guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-15-g440ac7


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-15-g440ac79
Date: Wed, 16 Nov 2011 19:16:28 +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=440ac793c4f32d1eeef89eb9974be39270c18069

The branch, stable-2.0 has been updated
       via  440ac793c4f32d1eeef89eb9974be39270c18069 (commit)
       via  78a474558aa1261c51f443d464e00a3105f90b38 (commit)
      from  46e0923d3526679701113c9ae01df1ba3a9ea0f5 (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 440ac793c4f32d1eeef89eb9974be39270c18069
Author: Andy Wingo <address@hidden>
Date:   Wed Nov 16 20:15:26 2011 +0100

    eval-when tidying up
    
    * module/ice-9/psyntax.scm: Rename expand-when-list to parse-when-list,
      and simplify to compare literal values.
    * module/ice-9/psyntax-pp.scm: Regenerate.

commit 78a474558aa1261c51f443d464e00a3105f90b38
Author: Andy Wingo <address@hidden>
Date:   Wed Nov 16 20:08:40 2011 +0100

    psyntax: s/chi/expand/g
    
    * module/ice-9/psyntax.scm: Rename all instances of "chi" to "expand".
      Addded a hack to expand-eval-when that will be fixed later.
    * module/ice-9/psyntax-pp.scm: Regenerated.

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

Summary of changes:
 module/ice-9/psyntax-pp.scm |59485 ++++++++++++++++---------------------------
 module/ice-9/psyntax.scm    |  362 +-
 2 files changed, 21939 insertions(+), 37908 deletions(-)

diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index de83209..644ebf5 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1212 +2,1211 @@
 (if #f #f)
 
 (letrec*
-  ((#{top-level-eval-hook 4273}#
-     (lambda (#{x 28142}# #{mod 28143}#)
-       (primitive-eval #{x 28142}#)))
-   (#{maybe-name-value! 4278}#
-     (lambda (#{name 16638}# #{val 16639}#)
-       (if (if (struct? #{val 16639}#)
-             (eq? (struct-vtable #{val 16639}#)
+  ((#{top-level-eval-hook 4261}#
+     (lambda (#{x 28515}# #{mod 28516}#)
+       (primitive-eval #{x 28515}#)))
+   (#{maybe-name-value! 4266}#
+     (lambda (#{name 16653}# #{val 16654}#)
+       (if (if (struct? #{val 16654}#)
+             (eq? (struct-vtable #{val 16654}#)
                   (vector-ref %expanded-vtables 13))
              #f)
-         (let ((#{meta 16646}# (struct-ref #{val 16639}# 1)))
-           (if (not (assq 'name #{meta 16646}#))
-             (let ((#{v 16651}#
-                     (cons (cons 'name #{name 16638}#) #{meta 16646}#)))
-               (struct-set! #{val 16639}# 1 #{v 16651}#)))))))
-   (#{build-application 4280}#
-     (lambda (#{source 16363}#
-              #{fun-exp 16364}#
-              #{arg-exps 16365}#)
+         (let ((#{meta 16661}# (struct-ref #{val 16654}# 1)))
+           (if (not (assq 'name #{meta 16661}#))
+             (let ((#{v 16666}#
+                     (cons (cons 'name #{name 16653}#) #{meta 16661}#)))
+               (struct-set! #{val 16654}# 1 #{v 16666}#)))))))
+   (#{build-application 4268}#
+     (lambda (#{source 16378}#
+              #{fun-exp 16379}#
+              #{arg-exps 16380}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 11)
-         #{source 16363}#
-         #{fun-exp 16364}#
-         #{arg-exps 16365}#)))
-   (#{build-conditional 4281}#
-     (lambda (#{source 16371}#
-              #{test-exp 16372}#
-              #{then-exp 16373}#
-              #{else-exp 16374}#)
+         #{source 16378}#
+         #{fun-exp 16379}#
+         #{arg-exps 16380}#)))
+   (#{build-conditional 4269}#
+     (lambda (#{source 16386}#
+              #{test-exp 16387}#
+              #{then-exp 16388}#
+              #{else-exp 16389}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 10)
-         #{source 16371}#
-         #{test-exp 16372}#
-         #{then-exp 16373}#
-         #{else-exp 16374}#)))
-   (#{build-dynlet 4282}#
-     (lambda (#{source 16381}#
-              #{fluids 16382}#
-              #{vals 16383}#
-              #{body 16384}#)
+         #{source 16386}#
+         #{test-exp 16387}#
+         #{then-exp 16388}#
+         #{else-exp 16389}#)))
+   (#{build-dynlet 4270}#
+     (lambda (#{source 16396}#
+              #{fluids 16397}#
+              #{vals 16398}#
+              #{body 16399}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 17)
-         #{source 16381}#
-         #{fluids 16382}#
-         #{vals 16383}#
-         #{body 16384}#)))
-   (#{build-lexical-reference 4283}#
-     (lambda (#{type 28144}#
-              #{source 28145}#
-              #{name 28146}#
-              #{var 28147}#)
+         #{source 16396}#
+         #{fluids 16397}#
+         #{vals 16398}#
+         #{body 16399}#)))
+   (#{build-lexical-reference 4271}#
+     (lambda (#{type 28517}#
+              #{source 28518}#
+              #{name 28519}#
+              #{var 28520}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 3)
-         #{source 28145}#
-         #{name 28146}#
-         #{var 28147}#)))
-   (#{build-lexical-assignment 4284}#
-     (lambda (#{source 16391}#
-              #{name 16392}#
-              #{var 16393}#
-              #{exp 16394}#)
+         #{source 28518}#
+         #{name 28519}#
+         #{var 28520}#)))
+   (#{build-lexical-assignment 4272}#
+     (lambda (#{source 16406}#
+              #{name 16407}#
+              #{var 16408}#
+              #{exp 16409}#)
        (begin
-         (if (if (struct? #{exp 16394}#)
-               (eq? (struct-vtable #{exp 16394}#)
+         (if (if (struct? #{exp 16409}#)
+               (eq? (struct-vtable #{exp 16409}#)
                     (vector-ref %expanded-vtables 13))
                #f)
-           (let ((#{meta 16410}# (struct-ref #{exp 16394}# 1)))
-             (if (not (assq 'name #{meta 16410}#))
-               (let ((#{v 16417}#
-                       (cons (cons 'name #{name 16392}#) #{meta 16410}#)))
-                 (struct-set! #{exp 16394}# 1 #{v 16417}#)))))
+           (let ((#{meta 16425}# (struct-ref #{exp 16409}# 1)))
+             (if (not (assq 'name #{meta 16425}#))
+               (let ((#{v 16432}#
+                       (cons (cons 'name #{name 16407}#) #{meta 16425}#)))
+                 (struct-set! #{exp 16409}# 1 #{v 16432}#)))))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 4)
-           #{source 16391}#
-           #{name 16392}#
-           #{var 16393}#
-           #{exp 16394}#))))
-   (#{analyze-variable 4285}#
-     (lambda (#{mod 28153}#
-              #{var 28154}#
-              #{modref-cont 28155}#
-              #{bare-cont 28156}#)
-       (if (not #{mod 28153}#)
-         (#{bare-cont 28156}# #{var 28154}#)
-         (let ((#{kind 28157}# (car #{mod 28153}#))
-               (#{mod 28158}# (cdr #{mod 28153}#)))
-           (if (eqv? #{kind 28157}# 'public)
-             (#{modref-cont 28155}#
-               #{mod 28158}#
-               #{var 28154}#
+           #{source 16406}#
+           #{name 16407}#
+           #{var 16408}#
+           #{exp 16409}#))))
+   (#{analyze-variable 4273}#
+     (lambda (#{mod 28526}#
+              #{var 28527}#
+              #{modref-cont 28528}#
+              #{bare-cont 28529}#)
+       (if (not #{mod 28526}#)
+         (#{bare-cont 28529}# #{var 28527}#)
+         (let ((#{kind 28530}# (car #{mod 28526}#))
+               (#{mod 28531}# (cdr #{mod 28526}#)))
+           (if (eqv? #{kind 28530}# 'public)
+             (#{modref-cont 28528}#
+               #{mod 28531}#
+               #{var 28527}#
                #t)
-             (if (eqv? #{kind 28157}# 'private)
+             (if (eqv? #{kind 28530}# 'private)
                (if (not (equal?
-                          #{mod 28158}#
+                          #{mod 28531}#
                           (module-name (current-module))))
-                 (#{modref-cont 28155}#
-                   #{mod 28158}#
-                   #{var 28154}#
+                 (#{modref-cont 28528}#
+                   #{mod 28531}#
+                   #{var 28527}#
                    #f)
-                 (#{bare-cont 28156}# #{var 28154}#))
-               (if (eqv? #{kind 28157}# 'bare)
-                 (#{bare-cont 28156}# #{var 28154}#)
-                 (if (eqv? #{kind 28157}# 'hygiene)
+                 (#{bare-cont 28529}# #{var 28527}#))
+               (if (eqv? #{kind 28530}# 'bare)
+                 (#{bare-cont 28529}# #{var 28527}#)
+                 (if (eqv? #{kind 28530}# 'hygiene)
                    (if (if (not (equal?
-                                  #{mod 28158}#
+                                  #{mod 28531}#
                                   (module-name (current-module))))
                          (module-variable
-                           (resolve-module #{mod 28158}#)
-                           #{var 28154}#)
+                           (resolve-module #{mod 28531}#)
+                           #{var 28527}#)
                          #f)
-                     (#{modref-cont 28155}#
-                       #{mod 28158}#
-                       #{var 28154}#
+                     (#{modref-cont 28528}#
+                       #{mod 28531}#
+                       #{var 28527}#
                        #f)
-                     (#{bare-cont 28156}# #{var 28154}#))
+                     (#{bare-cont 28529}# #{var 28527}#))
                    (syntax-violation
                      #f
                      "bad module kind"
-                     #{var 28154}#
-                     #{mod 28158}#)))))))))
-   (#{build-global-reference 4286}#
-     (lambda (#{source 28173}# #{var 28174}# #{mod 28175}#)
-       (#{analyze-variable 4285}#
-         #{mod 28175}#
-         #{var 28174}#
-         (lambda (#{mod 28178}# #{var 28179}# #{public? 28180}#)
+                     #{var 28527}#
+                     #{mod 28531}#)))))))))
+   (#{build-global-reference 4274}#
+     (lambda (#{source 28546}# #{var 28547}# #{mod 28548}#)
+       (#{analyze-variable 4273}#
+         #{mod 28548}#
+         #{var 28547}#
+         (lambda (#{mod 28551}# #{var 28552}# #{public? 28553}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 5)
-             #{source 28173}#
-             #{mod 28178}#
-             #{var 28179}#
-             #{public? 28180}#))
-         (lambda (#{var 28188}#)
+             #{source 28546}#
+             #{mod 28551}#
+             #{var 28552}#
+             #{public? 28553}#))
+         (lambda (#{var 28561}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 7)
-             #{source 28173}#
-             #{var 28188}#)))))
-   (#{build-global-assignment 4287}#
-     (lambda (#{source 16426}#
-              #{var 16427}#
-              #{exp 16428}#
-              #{mod 16429}#)
+             #{source 28546}#
+             #{var 28561}#)))))
+   (#{build-global-assignment 4275}#
+     (lambda (#{source 16441}#
+              #{var 16442}#
+              #{exp 16443}#
+              #{mod 16444}#)
        (begin
-         (if (if (struct? #{exp 16428}#)
-               (eq? (struct-vtable #{exp 16428}#)
+         (if (if (struct? #{exp 16443}#)
+               (eq? (struct-vtable #{exp 16443}#)
                     (vector-ref %expanded-vtables 13))
                #f)
-           (let ((#{meta 16445}# (struct-ref #{exp 16428}# 1)))
-             (if (not (assq 'name #{meta 16445}#))
-               (let ((#{v 16452}#
-                       (cons (cons 'name #{var 16427}#) #{meta 16445}#)))
-                 (struct-set! #{exp 16428}# 1 #{v 16452}#)))))
-         (#{analyze-variable 4285}#
-           #{mod 16429}#
-           #{var 16427}#
-           (lambda (#{mod 16457}# #{var 16458}# #{public? 16459}#)
+           (let ((#{meta 16460}# (struct-ref #{exp 16443}# 1)))
+             (if (not (assq 'name #{meta 16460}#))
+               (let ((#{v 16467}#
+                       (cons (cons 'name #{var 16442}#) #{meta 16460}#)))
+                 (struct-set! #{exp 16443}# 1 #{v 16467}#)))))
+         (#{analyze-variable 4273}#
+           #{mod 16444}#
+           #{var 16442}#
+           (lambda (#{mod 16472}# #{var 16473}# #{public? 16474}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 6)
-               #{source 16426}#
-               #{mod 16457}#
-               #{var 16458}#
-               #{public? 16459}#
-               #{exp 16428}#))
-           (lambda (#{var 16467}#)
+               #{source 16441}#
+               #{mod 16472}#
+               #{var 16473}#
+               #{public? 16474}#
+               #{exp 16443}#))
+           (lambda (#{var 16482}#)
              (make-struct/no-tail
                (vector-ref %expanded-vtables 8)
-               #{source 16426}#
-               #{var 16467}#
-               #{exp 16428}#))))))
-   (#{build-global-definition 4288}#
-     (lambda (#{source 28194}# #{var 28195}# #{exp 28196}#)
+               #{source 16441}#
+               #{var 16482}#
+               #{exp 16443}#))))))
+   (#{build-global-definition 4276}#
+     (lambda (#{source 28567}# #{var 28568}# #{exp 28569}#)
        (begin
-         (if (if (struct? #{exp 28196}#)
-               (eq? (struct-vtable #{exp 28196}#)
+         (if (if (struct? #{exp 28569}#)
+               (eq? (struct-vtable #{exp 28569}#)
                     (vector-ref %expanded-vtables 13))
                #f)
-           (let ((#{meta 28212}# (struct-ref #{exp 28196}# 1)))
-             (if (not (assq 'name #{meta 28212}#))
-               (let ((#{v 28219}#
-                       (cons (cons 'name #{var 28195}#) #{meta 28212}#)))
-                 (struct-set! #{exp 28196}# 1 #{v 28219}#)))))
+           (let ((#{meta 28585}# (struct-ref #{exp 28569}# 1)))
+             (if (not (assq 'name #{meta 28585}#))
+               (let ((#{v 28592}#
+                       (cons (cons 'name #{var 28568}#) #{meta 28585}#)))
+                 (struct-set! #{exp 28569}# 1 #{v 28592}#)))))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 9)
-           #{source 28194}#
-           #{var 28195}#
-           #{exp 28196}#))))
-   (#{build-simple-lambda 4289}#
-     (lambda (#{src 16473}#
-              #{req 16474}#
-              #{rest 16475}#
-              #{vars 16476}#
-              #{meta 16477}#
-              #{exp 16478}#)
-       (let ((#{body 16484}#
+           #{source 28567}#
+           #{var 28568}#
+           #{exp 28569}#))))
+   (#{build-simple-lambda 4277}#
+     (lambda (#{src 16488}#
+              #{req 16489}#
+              #{rest 16490}#
+              #{vars 16491}#
+              #{meta 16492}#
+              #{exp 16493}#)
+       (let ((#{body 16499}#
                (make-struct/no-tail
                  (vector-ref %expanded-vtables 14)
-                 #{src 16473}#
-                 #{req 16474}#
+                 #{src 16488}#
+                 #{req 16489}#
                  #f
-                 #{rest 16475}#
+                 #{rest 16490}#
                  #f
                  '()
-                 #{vars 16476}#
-                 #{exp 16478}#
+                 #{vars 16491}#
+                 #{exp 16493}#
                  #f)))
          (make-struct/no-tail
            (vector-ref %expanded-vtables 13)
-           #{src 16473}#
-           #{meta 16477}#
-           #{body 16484}#))))
-   (#{build-sequence 4294}#
-     (lambda (#{src 28227}# #{exps 28228}#)
-       (if (null? (cdr #{exps 28228}#))
-         (car #{exps 28228}#)
+           #{src 16488}#
+           #{meta 16492}#
+           #{body 16499}#))))
+   (#{build-sequence 4282}#
+     (lambda (#{src 28600}# #{exps 28601}#)
+       (if (null? (cdr #{exps 28601}#))
+         (car #{exps 28601}#)
          (make-struct/no-tail
            (vector-ref %expanded-vtables 12)
-           #{src 28227}#
-           #{exps 28228}#))))
-   (#{build-let 4295}#
-     (lambda (#{src 16496}#
-              #{ids 16497}#
-              #{vars 16498}#
-              #{val-exps 16499}#
-              #{body-exp 16500}#)
+           #{src 28600}#
+           #{exps 28601}#))))
+   (#{build-let 4283}#
+     (lambda (#{src 16511}#
+              #{ids 16512}#
+              #{vars 16513}#
+              #{val-exps 16514}#
+              #{body-exp 16515}#)
        (begin
          (for-each
-           #{maybe-name-value! 4278}#
-           #{ids 16497}#
-           #{val-exps 16499}#)
-         (if (null? #{vars 16498}#)
-           #{body-exp 16500}#
+           #{maybe-name-value! 4266}#
+           #{ids 16512}#
+           #{val-exps 16514}#)
+         (if (null? #{vars 16513}#)
+           #{body-exp 16515}#
            (make-struct/no-tail
              (vector-ref %expanded-vtables 15)
-             #{src 16496}#
-             #{ids 16497}#
-             #{vars 16498}#
-             #{val-exps 16499}#
-             #{body-exp 16500}#)))))
-   (#{build-named-let 4296}#
-     (lambda (#{src 16524}#
-              #{ids 16525}#
-              #{vars 16526}#
-              #{val-exps 16527}#
-              #{body-exp 16528}#)
-       (let ((#{f 16529}# (car #{vars 16526}#))
-             (#{f-name 16530}# (car #{ids 16525}#))
-             (#{vars 16531}# (cdr #{vars 16526}#))
-             (#{ids 16532}# (cdr #{ids 16525}#)))
-         (let ((#{proc 16533}#
-                 (let ((#{body 16553}#
+             #{src 16511}#
+             #{ids 16512}#
+             #{vars 16513}#
+             #{val-exps 16514}#
+             #{body-exp 16515}#)))))
+   (#{build-named-let 4284}#
+     (lambda (#{src 16539}#
+              #{ids 16540}#
+              #{vars 16541}#
+              #{val-exps 16542}#
+              #{body-exp 16543}#)
+       (let ((#{f 16544}# (car #{vars 16541}#))
+             (#{f-name 16545}# (car #{ids 16540}#))
+             (#{vars 16546}# (cdr #{vars 16541}#))
+             (#{ids 16547}# (cdr #{ids 16540}#)))
+         (let ((#{proc 16548}#
+                 (let ((#{body 16568}#
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 14)
-                           #{src 16524}#
-                           #{ids 16532}#
+                           #{src 16539}#
+                           #{ids 16547}#
                            #f
                            #f
                            #f
                            '()
-                           #{vars 16531}#
-                           #{body-exp 16528}#
+                           #{vars 16546}#
+                           #{body-exp 16543}#
                            #f)))
                    (make-struct/no-tail
                      (vector-ref %expanded-vtables 13)
-                     #{src 16524}#
+                     #{src 16539}#
                      '()
-                     #{body 16553}#))))
+                     #{body 16568}#))))
            (begin
-             (if (if (struct? #{proc 16533}#)
-                   (eq? (struct-vtable #{proc 16533}#)
+             (if (if (struct? #{proc 16548}#)
+                   (eq? (struct-vtable #{proc 16548}#)
                         (vector-ref %expanded-vtables 13))
                    #f)
-               (let ((#{meta 16577}# (struct-ref #{proc 16533}# 1)))
-                 (if (not (assq 'name #{meta 16577}#))
-                   (let ((#{v 16584}#
-                           (cons (cons 'name #{f-name 16530}#)
-                                 #{meta 16577}#)))
-                     (struct-set! #{proc 16533}# 1 #{v 16584}#)))))
+               (let ((#{meta 16592}# (struct-ref #{proc 16548}# 1)))
+                 (if (not (assq 'name #{meta 16592}#))
+                   (let ((#{v 16599}#
+                           (cons (cons 'name #{f-name 16545}#)
+                                 #{meta 16592}#)))
+                     (struct-set! #{proc 16548}# 1 #{v 16599}#)))))
              (for-each
-               #{maybe-name-value! 4278}#
-               #{ids 16532}#
-               #{val-exps 16527}#)
-             (let ((#{names 16608}# (list #{f-name 16530}#))
-                   (#{gensyms 16609}# (list #{f 16529}#))
-                   (#{vals 16610}# (list #{proc 16533}#))
-                   (#{body 16611}#
-                     (let ((#{fun-exp 16615}#
+               #{maybe-name-value! 4266}#
+               #{ids 16547}#
+               #{val-exps 16542}#)
+             (let ((#{names 16623}# (list #{f-name 16545}#))
+                   (#{gensyms 16624}# (list #{f 16544}#))
+                   (#{vals 16625}# (list #{proc 16548}#))
+                   (#{body 16626}#
+                     (let ((#{fun-exp 16630}#
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 3)
-                               #{src 16524}#
-                               #{f-name 16530}#
-                               #{f 16529}#)))
+                               #{src 16539}#
+                               #{f-name 16545}#
+                               #{f 16544}#)))
                        (make-struct/no-tail
                          (vector-ref %expanded-vtables 11)
-                         #{src 16524}#
-                         #{fun-exp 16615}#
-                         #{val-exps 16527}#))))
+                         #{src 16539}#
+                         #{fun-exp 16630}#
+                         #{val-exps 16542}#))))
                (make-struct/no-tail
                  (vector-ref %expanded-vtables 16)
-                 #{src 16524}#
+                 #{src 16539}#
                  #f
-                 #{names 16608}#
-                 #{gensyms 16609}#
-                 #{vals 16610}#
-                 #{body 16611}#)))))))
-   (#{build-letrec 4297}#
-     (lambda (#{src 16631}#
-              #{in-order? 16632}#
-              #{ids 16633}#
-              #{vars 16634}#
-              #{val-exps 16635}#
-              #{body-exp 16636}#)
-       (if (null? #{vars 16634}#)
-         #{body-exp 16636}#
+                 #{names 16623}#
+                 #{gensyms 16624}#
+                 #{vals 16625}#
+                 #{body 16626}#)))))))
+   (#{build-letrec 4285}#
+     (lambda (#{src 16646}#
+              #{in-order? 16647}#
+              #{ids 16648}#
+              #{vars 16649}#
+              #{val-exps 16650}#
+              #{body-exp 16651}#)
+       (if (null? #{vars 16649}#)
+         #{body-exp 16651}#
          (begin
            (for-each
-             #{maybe-name-value! 4278}#
-             #{ids 16633}#
-             #{val-exps 16635}#)
+             #{maybe-name-value! 4266}#
+             #{ids 16648}#
+             #{val-exps 16650}#)
            (make-struct/no-tail
              (vector-ref %expanded-vtables 16)
-             #{src 16631}#
-             #{in-order? 16632}#
-             #{ids 16633}#
-             #{vars 16634}#
-             #{val-exps 16635}#
-             #{body-exp 16636}#)))))
-   (#{source-annotation 4306}#
-     (lambda (#{x 16662}#)
-       (if (if (vector? #{x 16662}#)
-             (if (= (vector-length #{x 16662}#) 4)
-               (eq? (vector-ref #{x 16662}# 0) 'syntax-object)
+             #{src 16646}#
+             #{in-order? 16647}#
+             #{ids 16648}#
+             #{vars 16649}#
+             #{val-exps 16650}#
+             #{body-exp 16651}#)))))
+   (#{source-annotation 4294}#
+     (lambda (#{x 16677}#)
+       (if (if (vector? #{x 16677}#)
+             (if (= (vector-length #{x 16677}#) 4)
+               (eq? (vector-ref #{x 16677}# 0) 'syntax-object)
                #f)
              #f)
-         (#{source-annotation 4306}#
-           (vector-ref #{x 16662}# 1))
-         (if (pair? #{x 16662}#)
-           (let ((#{props 16677}# (source-properties #{x 16662}#)))
-             (if (pair? #{props 16677}#) #{props 16677}# #f))
+         (#{source-annotation 4294}#
+           (vector-ref #{x 16677}# 1))
+         (if (pair? #{x 16677}#)
+           (let ((#{props 16692}# (source-properties #{x 16677}#)))
+             (if (pair? #{props 16692}#) #{props 16692}# #f))
            #f))))
-   (#{extend-env 4307}#
-     (lambda (#{labels 16679}# #{bindings 16680}# #{r 16681}#)
-       (if (null? #{labels 16679}#)
-         #{r 16681}#
-         (#{extend-env 4307}#
-           (cdr #{labels 16679}#)
-           (cdr #{bindings 16680}#)
-           (cons (cons (car #{labels 16679}#)
-                       (car #{bindings 16680}#))
-                 #{r 16681}#)))))
-   (#{extend-var-env 4308}#
-     (lambda (#{labels 16682}# #{vars 16683}# #{r 16684}#)
-       (if (null? #{labels 16682}#)
-         #{r 16684}#
-         (#{extend-var-env 4308}#
-           (cdr #{labels 16682}#)
-           (cdr #{vars 16683}#)
-           (cons (cons (car #{labels 16682}#)
-                       (cons 'lexical (car #{vars 16683}#)))
-                 #{r 16684}#)))))
-   (#{macros-only-env 4309}#
-     (lambda (#{r 16685}#)
-       (if (null? #{r 16685}#)
+   (#{extend-env 4295}#
+     (lambda (#{labels 16694}# #{bindings 16695}# #{r 16696}#)
+       (if (null? #{labels 16694}#)
+         #{r 16696}#
+         (#{extend-env 4295}#
+           (cdr #{labels 16694}#)
+           (cdr #{bindings 16695}#)
+           (cons (cons (car #{labels 16694}#)
+                       (car #{bindings 16695}#))
+                 #{r 16696}#)))))
+   (#{extend-var-env 4296}#
+     (lambda (#{labels 16697}# #{vars 16698}# #{r 16699}#)
+       (if (null? #{labels 16697}#)
+         #{r 16699}#
+         (#{extend-var-env 4296}#
+           (cdr #{labels 16697}#)
+           (cdr #{vars 16698}#)
+           (cons (cons (car #{labels 16697}#)
+                       (cons 'lexical (car #{vars 16698}#)))
+                 #{r 16699}#)))))
+   (#{macros-only-env 4297}#
+     (lambda (#{r 16700}#)
+       (if (null? #{r 16700}#)
          '()
-         (let ((#{a 16686}# (car #{r 16685}#)))
-           (if (eq? (car (cdr #{a 16686}#)) 'macro)
-             (cons #{a 16686}#
-                   (#{macros-only-env 4309}# (cdr #{r 16685}#)))
-             (#{macros-only-env 4309}# (cdr #{r 16685}#)))))))
-   (#{global-extend 4311}#
-     (lambda (#{type 16688}# #{sym 16689}# #{val 16690}#)
+         (let ((#{a 16701}# (car #{r 16700}#)))
+           (if (eq? (car (cdr #{a 16701}#)) 'macro)
+             (cons #{a 16701}#
+                   (#{macros-only-env 4297}# (cdr #{r 16700}#)))
+             (#{macros-only-env 4297}# (cdr #{r 16700}#)))))))
+   (#{global-extend 4299}#
+     (lambda (#{type 16703}# #{sym 16704}# #{val 16705}#)
        (module-define!
          (current-module)
-         #{sym 16689}#
+         #{sym 16704}#
          (make-syntax-transformer
-           #{sym 16689}#
-           #{type 16688}#
-           #{val 16690}#))))
-   (#{id? 4313}#
-     (lambda (#{x 10546}#)
-       (if (symbol? #{x 10546}#)
+           #{sym 16704}#
+           #{type 16703}#
+           #{val 16705}#))))
+   (#{id? 4301}#
+     (lambda (#{x 10537}#)
+       (if (symbol? #{x 10537}#)
          #t
-         (if (if (vector? #{x 10546}#)
-               (if (= (vector-length #{x 10546}#) 4)
-                 (eq? (vector-ref #{x 10546}# 0) 'syntax-object)
+         (if (if (vector? #{x 10537}#)
+               (if (= (vector-length #{x 10537}#) 4)
+                 (eq? (vector-ref #{x 10537}# 0) 'syntax-object)
                  #f)
                #f)
-           (symbol? (vector-ref #{x 10546}# 1))
+           (symbol? (vector-ref #{x 10537}# 1))
            #f))))
-   (#{gen-labels 4316}#
-     (lambda (#{ls 16700}#)
-       (if (null? #{ls 16700}#)
+   (#{gen-labels 4304}#
+     (lambda (#{ls 16715}#)
+       (if (null? #{ls 16715}#)
          '()
          (cons (symbol->string (gensym "i"))
-               (#{gen-labels 4316}# (cdr #{ls 16700}#))))))
-   (#{make-binding-wrap 4327}#
-     (lambda (#{ids 16704}# #{labels 16705}# #{w 16706}#)
-       (if (null? #{ids 16704}#)
-         #{w 16706}#
-         (cons (car #{w 16706}#)
-               (cons (let ((#{labelvec 16707}#
-                             (list->vector #{labels 16705}#)))
-                       (let ((#{n 16708}# (vector-length #{labelvec 16707}#)))
-                         (let ((#{symnamevec 16709}# (make-vector #{n 16708}#))
-                               (#{marksvec 16710}# (make-vector #{n 16708}#)))
+               (#{gen-labels 4304}# (cdr #{ls 16715}#))))))
+   (#{make-binding-wrap 4315}#
+     (lambda (#{ids 16719}# #{labels 16720}# #{w 16721}#)
+       (if (null? #{ids 16719}#)
+         #{w 16721}#
+         (cons (car #{w 16721}#)
+               (cons (let ((#{labelvec 16722}#
+                             (list->vector #{labels 16720}#)))
+                       (let ((#{n 16723}# (vector-length #{labelvec 16722}#)))
+                         (let ((#{symnamevec 16724}# (make-vector #{n 16723}#))
+                               (#{marksvec 16725}# (make-vector #{n 16723}#)))
                            (begin
                              (letrec*
-                               ((#{f 16711}#
-                                  (lambda (#{ids 16714}# #{i 16715}#)
-                                    (if (not (null? #{ids 16714}#))
+                               ((#{f 16726}#
+                                  (lambda (#{ids 16729}# #{i 16730}#)
+                                    (if (not (null? #{ids 16729}#))
                                       (call-with-values
                                         (lambda ()
-                                          (let ((#{x 16718}#
-                                                  (car #{ids 16714}#)))
-                                            (if (if (vector? #{x 16718}#)
+                                          (let ((#{x 16733}#
+                                                  (car #{ids 16729}#)))
+                                            (if (if (vector? #{x 16733}#)
                                                   (if (= (vector-length
-                                                           #{x 16718}#)
+                                                           #{x 16733}#)
                                                          4)
                                                     (eq? (vector-ref
-                                                           #{x 16718}#
+                                                           #{x 16733}#
                                                            0)
                                                          'syntax-object)
                                                     #f)
                                                   #f)
                                               (values
-                                                (vector-ref #{x 16718}# 1)
-                                                (let ((#{m1 16734}#
-                                                        (car #{w 16706}#))
-                                                      (#{m2 16735}#
+                                                (vector-ref #{x 16733}# 1)
+                                                (let ((#{m1 16749}#
+                                                        (car #{w 16721}#))
+                                                      (#{m2 16750}#
                                                         (car (vector-ref
-                                                               #{x 16718}#
+                                                               #{x 16733}#
                                                                2))))
-                                                  (if (null? #{m2 16735}#)
-                                                    #{m1 16734}#
+                                                  (if (null? #{m2 16750}#)
+                                                    #{m1 16749}#
                                                     (append
-                                                      #{m1 16734}#
-                                                      #{m2 16735}#))))
+                                                      #{m1 16749}#
+                                                      #{m2 16750}#))))
                                               (values
-                                                #{x 16718}#
-                                                (car #{w 16706}#)))))
-                                        (lambda (#{symname 16755}#
-                                                 #{marks 16756}#)
+                                                #{x 16733}#
+                                                (car #{w 16721}#)))))
+                                        (lambda (#{symname 16770}#
+                                                 #{marks 16771}#)
                                           (begin
                                             (vector-set!
-                                              #{symnamevec 16709}#
-                                              #{i 16715}#
-                                              #{symname 16755}#)
+                                              #{symnamevec 16724}#
+                                              #{i 16730}#
+                                              #{symname 16770}#)
                                             (vector-set!
-                                              #{marksvec 16710}#
-                                              #{i 16715}#
-                                              #{marks 16756}#)
-                                            (#{f 16711}#
-                                              (cdr #{ids 16714}#)
-                                              (#{1+}# #{i 16715}#)))))))))
-                               (#{f 16711}# #{ids 16704}# 0))
+                                              #{marksvec 16725}#
+                                              #{i 16730}#
+                                              #{marks 16771}#)
+                                            (#{f 16726}#
+                                              (cdr #{ids 16729}#)
+                                              (#{1+}# #{i 16730}#)))))))))
+                               (#{f 16726}# #{ids 16719}# 0))
                              (vector
                                'ribcage
-                               #{symnamevec 16709}#
-                               #{marksvec 16710}#
-                               #{labelvec 16707}#)))))
-                     (cdr #{w 16706}#))))))
-   (#{join-wraps 4329}#
-     (lambda (#{w1 16765}# #{w2 16766}#)
-       (let ((#{m1 16767}# (car #{w1 16765}#))
-             (#{s1 16768}# (cdr #{w1 16765}#)))
-         (if (null? #{m1 16767}#)
-           (if (null? #{s1 16768}#)
-             #{w2 16766}#
-             (cons (car #{w2 16766}#)
-                   (let ((#{m2 16775}# (cdr #{w2 16766}#)))
-                     (if (null? #{m2 16775}#)
-                       #{s1 16768}#
-                       (append #{s1 16768}# #{m2 16775}#)))))
-           (cons (let ((#{m2 16784}# (car #{w2 16766}#)))
-                   (if (null? #{m2 16784}#)
-                     #{m1 16767}#
-                     (append #{m1 16767}# #{m2 16784}#)))
-                 (let ((#{m2 16793}# (cdr #{w2 16766}#)))
-                   (if (null? #{m2 16793}#)
-                     #{s1 16768}#
-                     (append #{s1 16768}# #{m2 16793}#))))))))
-   (#{same-marks? 4331}#
-     (lambda (#{x 16798}# #{y 16799}#)
-       (if (eq? #{x 16798}# #{y 16799}#)
-         (eq? #{x 16798}# #{y 16799}#)
-         (if (not (null? #{x 16798}#))
-           (if (not (null? #{y 16799}#))
-             (if (eq? (car #{x 16798}#) (car #{y 16799}#))
-               (#{same-marks? 4331}#
-                 (cdr #{x 16798}#)
-                 (cdr #{y 16799}#))
+                               #{symnamevec 16724}#
+                               #{marksvec 16725}#
+                               #{labelvec 16722}#)))))
+                     (cdr #{w 16721}#))))))
+   (#{join-wraps 4317}#
+     (lambda (#{w1 16780}# #{w2 16781}#)
+       (let ((#{m1 16782}# (car #{w1 16780}#))
+             (#{s1 16783}# (cdr #{w1 16780}#)))
+         (if (null? #{m1 16782}#)
+           (if (null? #{s1 16783}#)
+             #{w2 16781}#
+             (cons (car #{w2 16781}#)
+                   (let ((#{m2 16790}# (cdr #{w2 16781}#)))
+                     (if (null? #{m2 16790}#)
+                       #{s1 16783}#
+                       (append #{s1 16783}# #{m2 16790}#)))))
+           (cons (let ((#{m2 16799}# (car #{w2 16781}#)))
+                   (if (null? #{m2 16799}#)
+                     #{m1 16782}#
+                     (append #{m1 16782}# #{m2 16799}#)))
+                 (let ((#{m2 16808}# (cdr #{w2 16781}#)))
+                   (if (null? #{m2 16808}#)
+                     #{s1 16783}#
+                     (append #{s1 16783}# #{m2 16808}#))))))))
+   (#{same-marks? 4319}#
+     (lambda (#{x 16813}# #{y 16814}#)
+       (if (eq? #{x 16813}# #{y 16814}#)
+         (eq? #{x 16813}# #{y 16814}#)
+         (if (not (null? #{x 16813}#))
+           (if (not (null? #{y 16814}#))
+             (if (eq? (car #{x 16813}#) (car #{y 16814}#))
+               (#{same-marks? 4319}#
+                 (cdr #{x 16813}#)
+                 (cdr #{y 16814}#))
                #f)
              #f)
            #f))))
-   (#{id-var-name 4332}#
-     (lambda (#{id 16807}# #{w 16808}#)
+   (#{id-var-name 4320}#
+     (lambda (#{id 16822}# #{w 16823}#)
        (letrec*
-         ((#{search 16809}#
-            (lambda (#{sym 16870}# #{subst 16871}# #{marks 16872}#)
-              (if (null? #{subst 16871}#)
-                (values #f #{marks 16872}#)
-                (let ((#{fst 16873}# (car #{subst 16871}#)))
-                  (if (eq? #{fst 16873}# 'shift)
-                    (#{search 16809}#
-                      #{sym 16870}#
-                      (cdr #{subst 16871}#)
-                      (cdr #{marks 16872}#))
-                    (let ((#{symnames 16875}# (vector-ref #{fst 16873}# 1)))
-                      (if (vector? #{symnames 16875}#)
-                        (let ((#{n 16887}# (vector-length #{symnames 16875}#)))
+         ((#{search 16824}#
+            (lambda (#{sym 16885}# #{subst 16886}# #{marks 16887}#)
+              (if (null? #{subst 16886}#)
+                (values #f #{marks 16887}#)
+                (let ((#{fst 16888}# (car #{subst 16886}#)))
+                  (if (eq? #{fst 16888}# 'shift)
+                    (#{search 16824}#
+                      #{sym 16885}#
+                      (cdr #{subst 16886}#)
+                      (cdr #{marks 16887}#))
+                    (let ((#{symnames 16890}# (vector-ref #{fst 16888}# 1)))
+                      (if (vector? #{symnames 16890}#)
+                        (let ((#{n 16902}# (vector-length #{symnames 16890}#)))
                           (letrec*
-                            ((#{f 16888}#
-                               (lambda (#{i 16890}#)
-                                 (if (= #{i 16890}# #{n 16887}#)
-                                   (#{search 16809}#
-                                     #{sym 16870}#
-                                     (cdr #{subst 16871}#)
-                                     #{marks 16872}#)
+                            ((#{f 16903}#
+                               (lambda (#{i 16905}#)
+                                 (if (= #{i 16905}# #{n 16902}#)
+                                   (#{search 16824}#
+                                     #{sym 16885}#
+                                     (cdr #{subst 16886}#)
+                                     #{marks 16887}#)
                                    (if (if (eq? (vector-ref
-                                                  #{symnames 16875}#
-                                                  #{i 16890}#)
-                                                #{sym 16870}#)
-                                         (#{same-marks? 4331}#
-                                           #{marks 16872}#
+                                                  #{symnames 16890}#
+                                                  #{i 16905}#)
+                                                #{sym 16885}#)
+                                         (#{same-marks? 4319}#
+                                           #{marks 16887}#
                                            (vector-ref
-                                             (vector-ref #{fst 16873}# 2)
-                                             #{i 16890}#))
+                                             (vector-ref #{fst 16888}# 2)
+                                             #{i 16905}#))
                                          #f)
                                      (values
                                        (vector-ref
-                                         (vector-ref #{fst 16873}# 3)
-                                         #{i 16890}#)
-                                       #{marks 16872}#)
-                                     (#{f 16888}# (#{1+}# #{i 16890}#)))))))
-                            (#{f 16888}# 0)))
+                                         (vector-ref #{fst 16888}# 3)
+                                         #{i 16905}#)
+                                       #{marks 16887}#)
+                                     (#{f 16903}# (#{1+}# #{i 16905}#)))))))
+                            (#{f 16903}# 0)))
                         (letrec*
-                          ((#{f 16923}#
-                             (lambda (#{symnames 16925}# #{i 16926}#)
-                               (if (null? #{symnames 16925}#)
-                                 (#{search 16809}#
-                                   #{sym 16870}#
-                                   (cdr #{subst 16871}#)
-                                   #{marks 16872}#)
-                                 (if (if (eq? (car #{symnames 16925}#)
-                                              #{sym 16870}#)
-                                       (#{same-marks? 4331}#
-                                         #{marks 16872}#
+                          ((#{f 16938}#
+                             (lambda (#{symnames 16940}# #{i 16941}#)
+                               (if (null? #{symnames 16940}#)
+                                 (#{search 16824}#
+                                   #{sym 16885}#
+                                   (cdr #{subst 16886}#)
+                                   #{marks 16887}#)
+                                 (if (if (eq? (car #{symnames 16940}#)
+                                              #{sym 16885}#)
+                                       (#{same-marks? 4319}#
+                                         #{marks 16887}#
                                          (list-ref
-                                           (vector-ref #{fst 16873}# 2)
-                                           #{i 16926}#))
+                                           (vector-ref #{fst 16888}# 2)
+                                           #{i 16941}#))
                                        #f)
                                    (values
                                      (list-ref
-                                       (vector-ref #{fst 16873}# 3)
-                                       #{i 16926}#)
-                                     #{marks 16872}#)
-                                   (#{f 16923}#
-                                     (cdr #{symnames 16925}#)
-                                     (#{1+}# #{i 16926}#)))))))
-                          (#{f 16923}# #{symnames 16875}# 0))))))))))
-         (if (symbol? #{id 16807}#)
-           (let ((#{t 16812}#
-                   (#{search 16809}#
-                     #{id 16807}#
-                     (cdr #{w 16808}#)
-                     (car #{w 16808}#))))
-             (if #{t 16812}# #{t 16812}# #{id 16807}#))
-           (if (if (vector? #{id 16807}#)
-                 (if (= (vector-length #{id 16807}#) 4)
-                   (eq? (vector-ref #{id 16807}# 0) 'syntax-object)
+                                       (vector-ref #{fst 16888}# 3)
+                                       #{i 16941}#)
+                                     #{marks 16887}#)
+                                   (#{f 16938}#
+                                     (cdr #{symnames 16940}#)
+                                     (#{1+}# #{i 16941}#)))))))
+                          (#{f 16938}# #{symnames 16890}# 0))))))))))
+         (if (symbol? #{id 16822}#)
+           (let ((#{t 16827}#
+                   (#{search 16824}#
+                     #{id 16822}#
+                     (cdr #{w 16823}#)
+                     (car #{w 16823}#))))
+             (if #{t 16827}# #{t 16827}# #{id 16822}#))
+           (if (if (vector? #{id 16822}#)
+                 (if (= (vector-length #{id 16822}#) 4)
+                   (eq? (vector-ref #{id 16822}# 0) 'syntax-object)
                    #f)
                  #f)
-             (let ((#{id 16827}# (vector-ref #{id 16807}# 1))
-                   (#{w1 16828}# (vector-ref #{id 16807}# 2)))
-               (let ((#{marks 16829}#
-                       (let ((#{m1 16839}# (car #{w 16808}#))
-                             (#{m2 16840}# (car #{w1 16828}#)))
-                         (if (null? #{m2 16840}#)
-                           #{m1 16839}#
-                           (append #{m1 16839}# #{m2 16840}#)))))
+             (let ((#{id 16842}# (vector-ref #{id 16822}# 1))
+                   (#{w1 16843}# (vector-ref #{id 16822}# 2)))
+               (let ((#{marks 16844}#
+                       (let ((#{m1 16854}# (car #{w 16823}#))
+                             (#{m2 16855}# (car #{w1 16843}#)))
+                         (if (null? #{m2 16855}#)
+                           #{m1 16854}#
+                           (append #{m1 16854}# #{m2 16855}#)))))
                  (call-with-values
                    (lambda ()
-                     (#{search 16809}#
-                       #{id 16827}#
-                       (cdr #{w 16808}#)
-                       #{marks 16829}#))
-                   (lambda (#{new-id 16856}# #{marks 16857}#)
-                     (if #{new-id 16856}#
-                       #{new-id 16856}#
-                       (let ((#{t 16865}#
-                               (#{search 16809}#
-                                 #{id 16827}#
-                                 (cdr #{w1 16828}#)
-                                 #{marks 16857}#)))
-                         (if #{t 16865}# #{t 16865}# #{id 16827}#)))))))
+                     (#{search 16824}#
+                       #{id 16842}#
+                       (cdr #{w 16823}#)
+                       #{marks 16844}#))
+                   (lambda (#{new-id 16871}# #{marks 16872}#)
+                     (if #{new-id 16871}#
+                       #{new-id 16871}#
+                       (let ((#{t 16880}#
+                               (#{search 16824}#
+                                 #{id 16842}#
+                                 (cdr #{w1 16843}#)
+                                 #{marks 16872}#)))
+                         (if #{t 16880}# #{t 16880}# #{id 16842}#)))))))
              (syntax-violation
                'id-var-name
                "invalid id"
-               #{id 16807}#))))))
-   (#{valid-bound-ids? 4335}#
-     (lambda (#{ids 16948}#)
+               #{id 16822}#))))))
+   (#{valid-bound-ids? 4323}#
+     (lambda (#{ids 16963}#)
        (if (letrec*
-             ((#{all-ids? 16949}#
-                (lambda (#{ids 17111}#)
-                  (if (null? #{ids 17111}#)
-                    (null? #{ids 17111}#)
-                    (if (let ((#{x 17122}# (car #{ids 17111}#)))
-                          (if (symbol? #{x 17122}#)
+             ((#{all-ids? 16964}#
+                (lambda (#{ids 17126}#)
+                  (if (null? #{ids 17126}#)
+                    (null? #{ids 17126}#)
+                    (if (let ((#{x 17137}# (car #{ids 17126}#)))
+                          (if (symbol? #{x 17137}#)
                             #t
-                            (if (if (vector? #{x 17122}#)
-                                  (if (= (vector-length #{x 17122}#) 4)
-                                    (eq? (vector-ref #{x 17122}# 0)
+                            (if (if (vector? #{x 17137}#)
+                                  (if (= (vector-length #{x 17137}#) 4)
+                                    (eq? (vector-ref #{x 17137}# 0)
                                          'syntax-object)
                                     #f)
                                   #f)
-                              (symbol? (vector-ref #{x 17122}# 1))
+                              (symbol? (vector-ref #{x 17137}# 1))
                               #f)))
-                      (#{all-ids? 16949}# (cdr #{ids 17111}#))
+                      (#{all-ids? 16964}# (cdr #{ids 17126}#))
                       #f)))))
-             (#{all-ids? 16949}# #{ids 16948}#))
-         (#{distinct-bound-ids? 4336}# #{ids 16948}#)
+             (#{all-ids? 16964}# #{ids 16963}#))
+         (#{distinct-bound-ids? 4324}# #{ids 16963}#)
          #f)))
-   (#{distinct-bound-ids? 4336}#
-     (lambda (#{ids 17254}#)
+   (#{distinct-bound-ids? 4324}#
+     (lambda (#{ids 17269}#)
        (letrec*
-         ((#{distinct? 17255}#
-            (lambda (#{ids 17371}#)
-              (if (null? #{ids 17371}#)
-                (null? #{ids 17371}#)
-                (if (not (#{bound-id-member? 4337}#
-                           (car #{ids 17371}#)
-                           (cdr #{ids 17371}#)))
-                  (#{distinct? 17255}# (cdr #{ids 17371}#))
+         ((#{distinct? 17270}#
+            (lambda (#{ids 17386}#)
+              (if (null? #{ids 17386}#)
+                (null? #{ids 17386}#)
+                (if (not (#{bound-id-member? 4325}#
+                           (car #{ids 17386}#)
+                           (cdr #{ids 17386}#)))
+                  (#{distinct? 17270}# (cdr #{ids 17386}#))
                   #f)))))
-         (#{distinct? 17255}# #{ids 17254}#))))
-   (#{bound-id-member? 4337}#
-     (lambda (#{x 17591}# #{list 17592}#)
-       (if (not (null? #{list 17592}#))
-         (let ((#{t 17593}#
-                 (let ((#{j 17674}# (car #{list 17592}#)))
-                   (if (if (if (vector? #{x 17591}#)
-                             (if (= (vector-length #{x 17591}#) 4)
-                               (eq? (vector-ref #{x 17591}# 0) 'syntax-object)
+         (#{distinct? 17270}# #{ids 17269}#))))
+   (#{bound-id-member? 4325}#
+     (lambda (#{x 17606}# #{list 17607}#)
+       (if (not (null? #{list 17607}#))
+         (let ((#{t 17608}#
+                 (let ((#{j 17689}# (car #{list 17607}#)))
+                   (if (if (if (vector? #{x 17606}#)
+                             (if (= (vector-length #{x 17606}#) 4)
+                               (eq? (vector-ref #{x 17606}# 0) 'syntax-object)
                                #f)
                              #f)
-                         (if (vector? #{j 17674}#)
-                           (if (= (vector-length #{j 17674}#) 4)
-                             (eq? (vector-ref #{j 17674}# 0) 'syntax-object)
+                         (if (vector? #{j 17689}#)
+                           (if (= (vector-length #{j 17689}#) 4)
+                             (eq? (vector-ref #{j 17689}# 0) 'syntax-object)
                              #f)
                            #f)
                          #f)
-                     (if (eq? (vector-ref #{x 17591}# 1)
-                              (vector-ref #{j 17674}# 1))
-                       (#{same-marks? 4331}#
-                         (car (vector-ref #{x 17591}# 2))
-                         (car (vector-ref #{j 17674}# 2)))
+                     (if (eq? (vector-ref #{x 17606}# 1)
+                              (vector-ref #{j 17689}# 1))
+                       (#{same-marks? 4319}#
+                         (car (vector-ref #{x 17606}# 2))
+                         (car (vector-ref #{j 17689}# 2)))
                        #f)
-                     (eq? #{x 17591}# #{j 17674}#)))))
-           (if #{t 17593}#
-             #{t 17593}#
-             (#{bound-id-member? 4337}#
-               #{x 17591}#
-               (cdr #{list 17592}#))))
+                     (eq? #{x 17606}# #{j 17689}#)))))
+           (if #{t 17608}#
+             #{t 17608}#
+             (#{bound-id-member? 4325}#
+               #{x 17606}#
+               (cdr #{list 17607}#))))
          #f)))
-   (#{wrap 4338}#
-     (lambda (#{x 17718}# #{w 17719}# #{defmod 17720}#)
-       (if (if (null? (car #{w 17719}#))
-             (null? (cdr #{w 17719}#))
+   (#{wrap 4326}#
+     (lambda (#{x 17733}# #{w 17734}# #{defmod 17735}#)
+       (if (if (null? (car #{w 17734}#))
+             (null? (cdr #{w 17734}#))
              #f)
-         #{x 17718}#
-         (if (if (vector? #{x 17718}#)
-               (if (= (vector-length #{x 17718}#) 4)
-                 (eq? (vector-ref #{x 17718}# 0) 'syntax-object)
+         #{x 17733}#
+         (if (if (vector? #{x 17733}#)
+               (if (= (vector-length #{x 17733}#) 4)
+                 (eq? (vector-ref #{x 17733}# 0) 'syntax-object)
                  #f)
                #f)
-           (let ((#{expression 17734}# (vector-ref #{x 17718}# 1))
-                 (#{wrap 17735}#
-                   (#{join-wraps 4329}#
-                     #{w 17719}#
-                     (vector-ref #{x 17718}# 2)))
-                 (#{module 17736}# (vector-ref #{x 17718}# 3)))
+           (let ((#{expression 17749}# (vector-ref #{x 17733}# 1))
+                 (#{wrap 17750}#
+                   (#{join-wraps 4317}#
+                     #{w 17734}#
+                     (vector-ref #{x 17733}# 2)))
+                 (#{module 17751}# (vector-ref #{x 17733}# 3)))
              (vector
                'syntax-object
-               #{expression 17734}#
-               #{wrap 17735}#
-               #{module 17736}#))
-           (if (null? #{x 17718}#)
-             #{x 17718}#
+               #{expression 17749}#
+               #{wrap 17750}#
+               #{module 17751}#))
+           (if (null? #{x 17733}#)
+             #{x 17733}#
              (vector
                'syntax-object
-               #{x 17718}#
-               #{w 17719}#
-               #{defmod 17720}#))))))
-   (#{source-wrap 4339}#
-     (lambda (#{x 17753}#
-              #{w 17754}#
-              #{s 17755}#
-              #{defmod 17756}#)
-       (#{wrap 4338}#
+               #{x 17733}#
+               #{w 17734}#
+               #{defmod 17735}#))))))
+   (#{source-wrap 4327}#
+     (lambda (#{x 17768}#
+              #{w 17769}#
+              #{s 17770}#
+              #{defmod 17771}#)
+       (#{wrap 4326}#
          (begin
-           (if (if (pair? #{x 17753}#) #{s 17755}# #f)
-             (set-source-properties! #{x 17753}# #{s 17755}#))
-           #{x 17753}#)
-         #{w 17754}#
-         #{defmod 17756}#)))
-   (#{chi-sequence 4340}#
-     (lambda (#{body 28233}#
-              #{r 28234}#
-              #{w 28235}#
-              #{s 28236}#
-              #{mod 28237}#)
-       (#{build-sequence 4294}#
-         #{s 28236}#
+           (if (if (pair? #{x 17768}#) #{s 17770}# #f)
+             (set-source-properties! #{x 17768}# #{s 17770}#))
+           #{x 17768}#)
+         #{w 17769}#
+         #{defmod 17771}#)))
+   (#{expand-sequence 4328}#
+     (lambda (#{body 28606}#
+              #{r 28607}#
+              #{w 28608}#
+              #{s 28609}#
+              #{mod 28610}#)
+       (#{build-sequence 4282}#
+         #{s 28609}#
          (letrec*
-           ((#{dobody 28322}#
-              (lambda (#{body 28402}#
-                       #{r 28403}#
-                       #{w 28404}#
-                       #{mod 28405}#)
-                (if (null? #{body 28402}#)
+           ((#{dobody 28695}#
+              (lambda (#{body 28775}#
+                       #{r 28776}#
+                       #{w 28777}#
+                       #{mod 28778}#)
+                (if (null? #{body 28775}#)
                   '()
-                  (let ((#{first 28406}#
-                          (#{chi 4345}#
-                            (car #{body 28402}#)
-                            #{r 28403}#
-                            #{w 28404}#
-                            #{mod 28405}#)))
-                    (cons #{first 28406}#
-                          (#{dobody 28322}#
-                            (cdr #{body 28402}#)
-                            #{r 28403}#
-                            #{w 28404}#
-                            #{mod 28405}#)))))))
-           (#{dobody 28322}#
-             #{body 28233}#
-             #{r 28234}#
-             #{w 28235}#
-             #{mod 28237}#)))))
-   (#{chi-top-sequence 4341}#
-     (lambda (#{body 17774}#
-              #{r 17775}#
-              #{w 17776}#
-              #{s 17777}#
-              #{m 17778}#
-              #{esew 17779}#
-              #{mod 17780}#)
+                  (let ((#{first 28779}#
+                          (#{expand 4333}#
+                            (car #{body 28775}#)
+                            #{r 28776}#
+                            #{w 28777}#
+                            #{mod 28778}#)))
+                    (cons #{first 28779}#
+                          (#{dobody 28695}#
+                            (cdr #{body 28775}#)
+                            #{r 28776}#
+                            #{w 28777}#
+                            #{mod 28778}#)))))))
+           (#{dobody 28695}#
+             #{body 28606}#
+             #{r 28607}#
+             #{w 28608}#
+             #{mod 28610}#)))))
+   (#{expand-top-sequence 4329}#
+     (lambda (#{body 17789}#
+              #{r 17790}#
+              #{w 17791}#
+              #{s 17792}#
+              #{m 17793}#
+              #{esew 17794}#
+              #{mod 17795}#)
        (letrec*
-         ((#{scan 17781}#
-            (lambda (#{body 17912}#
-                     #{r 17913}#
-                     #{w 17914}#
-                     #{s 17915}#
-                     #{m 17916}#
-                     #{esew 17917}#
-                     #{mod 17918}#
-                     #{exps 17919}#)
-              (if (null? #{body 17912}#)
-                #{exps 17919}#
+         ((#{scan 17796}#
+            (lambda (#{body 17927}#
+                     #{r 17928}#
+                     #{w 17929}#
+                     #{s 17930}#
+                     #{m 17931}#
+                     #{esew 17932}#
+                     #{mod 17933}#
+                     #{exps 17934}#)
+              (if (null? #{body 17927}#)
+                #{exps 17934}#
                 (call-with-values
                   (lambda ()
                     (call-with-values
                       (lambda ()
-                        (let ((#{e 17920}# (car #{body 17912}#)))
-                          (#{syntax-type 4344}#
-                            #{e 17920}#
-                            #{r 17913}#
-                            #{w 17914}#
-                            (let ((#{t 17924}#
-                                    (#{source-annotation 4306}# #{e 17920}#)))
-                              (if #{t 17924}# #{t 17924}# #{s 17915}#))
+                        (let ((#{e 17935}# (car #{body 17927}#)))
+                          (#{syntax-type 4332}#
+                            #{e 17935}#
+                            #{r 17928}#
+                            #{w 17929}#
+                            (let ((#{t 17939}#
+                                    (#{source-annotation 4294}# #{e 17935}#)))
+                              (if #{t 17939}# #{t 17939}# #{s 17930}#))
                             #f
-                            #{mod 17918}#
+                            #{mod 17933}#
                             #f)))
-                      (lambda (#{type 18184}#
-                               #{value 18185}#
-                               #{e 18186}#
-                               #{w 18187}#
-                               #{s 18188}#
-                               #{mod 18189}#)
-                        (if (eqv? #{type 18184}# 'begin-form)
-                          (let ((#{tmp 18194}#
-                                  ($sc-dispatch #{e 18186}# '(_))))
-                            (if #{tmp 18194}#
-                              (@apply (lambda () #{exps 17919}#) #{tmp 18194}#)
-                              (let ((#{tmp 18198}#
+                      (lambda (#{type 18199}#
+                               #{value 18200}#
+                               #{e 18201}#
+                               #{w 18202}#
+                               #{s 18203}#
+                               #{mod 18204}#)
+                        (if (eqv? #{type 18199}# 'begin-form)
+                          (let ((#{tmp 18209}#
+                                  ($sc-dispatch #{e 18201}# '(_))))
+                            (if #{tmp 18209}#
+                              (@apply (lambda () #{exps 17934}#) #{tmp 18209}#)
+                              (let ((#{tmp 18213}#
                                       ($sc-dispatch
-                                        #{e 18186}#
+                                        #{e 18201}#
                                         '(_ any . each-any))))
-                                (if #{tmp 18198}#
+                                (if #{tmp 18213}#
                                   (@apply
-                                    (lambda (#{e1 18202}# #{e2 18203}#)
-                                      (#{scan 17781}#
-                                        (cons #{e1 18202}# #{e2 18203}#)
-                                        #{r 17913}#
-                                        #{w 18187}#
-                                        #{s 18188}#
-                                        #{m 17916}#
-                                        #{esew 17917}#
-                                        #{mod 18189}#
-                                        #{exps 17919}#))
-                                    #{tmp 18198}#)
+                                    (lambda (#{e1 18217}# #{e2 18218}#)
+                                      (#{scan 17796}#
+                                        (cons #{e1 18217}# #{e2 18218}#)
+                                        #{r 17928}#
+                                        #{w 18202}#
+                                        #{s 18203}#
+                                        #{m 17931}#
+                                        #{esew 17932}#
+                                        #{mod 18204}#
+                                        #{exps 17934}#))
+                                    #{tmp 18213}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{e 18186}#)))))
-                          (if (eqv? #{type 18184}# 'local-syntax-form)
-                            (#{chi-local-syntax 4350}#
-                              #{value 18185}#
-                              #{e 18186}#
-                              #{r 17913}#
-                              #{w 18187}#
-                              #{s 18188}#
-                              #{mod 18189}#
-                              (lambda (#{body 18218}#
-                                       #{r 18219}#
-                                       #{w 18220}#
-                                       #{s 18221}#
-                                       #{mod 18222}#)
-                                (#{scan 17781}#
-                                  #{body 18218}#
-                                  #{r 18219}#
-                                  #{w 18220}#
-                                  #{s 18221}#
-                                  #{m 17916}#
-                                  #{esew 17917}#
-                                  #{mod 18222}#
-                                  #{exps 17919}#)))
-                            (if (eqv? #{type 18184}# 'eval-when-form)
-                              (let ((#{tmp 18227}#
+                                    #{e 18201}#)))))
+                          (if (eqv? #{type 18199}# 'local-syntax-form)
+                            (#{expand-local-syntax 4338}#
+                              #{value 18200}#
+                              #{e 18201}#
+                              #{r 17928}#
+                              #{w 18202}#
+                              #{s 18203}#
+                              #{mod 18204}#
+                              (lambda (#{body 18233}#
+                                       #{r 18234}#
+                                       #{w 18235}#
+                                       #{s 18236}#
+                                       #{mod 18237}#)
+                                (#{scan 17796}#
+                                  #{body 18233}#
+                                  #{r 18234}#
+                                  #{w 18235}#
+                                  #{s 18236}#
+                                  #{m 17931}#
+                                  #{esew 17932}#
+                                  #{mod 18237}#
+                                  #{exps 17934}#)))
+                            (if (eqv? #{type 18199}# 'eval-when-form)
+                              (let ((#{tmp 18242}#
                                       ($sc-dispatch
-                                        #{e 18186}#
+                                        #{e 18201}#
                                         '(_ each-any any . each-any))))
-                                (if #{tmp 18227}#
+                                (if #{tmp 18242}#
                                   (@apply
-                                    (lambda (#{x 18231}#
-                                             #{e1 18232}#
-                                             #{e2 18233}#)
-                                      (let ((#{when-list 18234}#
-                                              (#{chi-when-list 4343}#
-                                                #{e 18186}#
-                                                #{x 18231}#
-                                                #{w 18187}#))
-                                            (#{body 18235}#
-                                              (cons #{e1 18232}#
-                                                    #{e2 18233}#)))
-                                        (if (eq? #{m 17916}# 'e)
-                                          (if (memq 'eval #{when-list 18234}#)
-                                            (#{scan 17781}#
-                                              #{body 18235}#
-                                              #{r 17913}#
-                                              #{w 18187}#
-                                              #{s 18188}#
+                                    (lambda (#{x 18246}#
+                                             #{e1 18247}#
+                                             #{e2 18248}#)
+                                      (let ((#{when-list 18249}#
+                                              (#{parse-when-list 4331}#
+                                                #{e 18201}#
+                                                #{x 18246}#))
+                                            (#{body 18250}#
+                                              (cons #{e1 18247}#
+                                                    #{e2 18248}#)))
+                                        (if (eq? #{m 17931}# 'e)
+                                          (if (memq 'eval #{when-list 18249}#)
+                                            (#{scan 17796}#
+                                              #{body 18250}#
+                                              #{r 17928}#
+                                              #{w 18202}#
+                                              #{s 18203}#
                                               (if (memq 'expand
-                                                        #{when-list 18234}#)
+                                                        #{when-list 18249}#)
                                                 'c&e
                                                 'e)
                                               '(eval)
-                                              #{mod 18189}#
-                                              #{exps 17919}#)
+                                              #{mod 18204}#
+                                              #{exps 17934}#)
                                             (begin
                                               (if (memq 'expand
-                                                        #{when-list 18234}#)
-                                                (let ((#{x 18242}#
-                                                        (#{chi-top-sequence 
4341}#
-                                                          #{body 18235}#
-                                                          #{r 17913}#
-                                                          #{w 18187}#
-                                                          #{s 18188}#
+                                                        #{when-list 18249}#)
+                                                (let ((#{x 18327}#
+                                                        (#{expand-top-sequence 
4329}#
+                                                          #{body 18250}#
+                                                          #{r 17928}#
+                                                          #{w 18202}#
+                                                          #{s 18203}#
                                                           'e
                                                           '(eval)
-                                                          #{mod 18189}#)))
+                                                          #{mod 18204}#)))
                                                   (primitive-eval
-                                                    #{x 18242}#)))
-                                              (values #{exps 17919}#)))
-                                          (if (memq 'load #{when-list 18234}#)
-                                            (if (let ((#{t 18244}#
+                                                    #{x 18327}#)))
+                                              (values #{exps 17934}#)))
+                                          (if (memq 'load #{when-list 18249}#)
+                                            (if (let ((#{t 18353}#
                                                         (memq 'compile
-                                                              #{when-list 
18234}#)))
-                                                  (if #{t 18244}#
-                                                    #{t 18244}#
-                                                    (let ((#{t 18246}#
+                                                              #{when-list 
18249}#)))
+                                                  (if #{t 18353}#
+                                                    #{t 18353}#
+                                                    (let ((#{t 18402}#
                                                             (memq 'expand
-                                                                  #{when-list 
18234}#)))
-                                                      (if #{t 18246}#
-                                                        #{t 18246}#
-                                                        (if (eq? #{m 17916}#
+                                                                  #{when-list 
18249}#)))
+                                                      (if #{t 18402}#
+                                                        #{t 18402}#
+                                                        (if (eq? #{m 17931}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list 
18234}#)
+                                                                #{when-list 
18249}#)
                                                           #f)))))
-                                              (#{scan 17781}#
-                                                #{body 18235}#
-                                                #{r 17913}#
-                                                #{w 18187}#
-                                                #{s 18188}#
+                                              (#{scan 17796}#
+                                                #{body 18250}#
+                                                #{r 17928}#
+                                                #{w 18202}#
+                                                #{s 18203}#
                                                 'c&e
                                                 '(compile load)
-                                                #{mod 18189}#
-                                                #{exps 17919}#)
-                                              (if (if (eq? #{m 17916}# 'c)
+                                                #{mod 18204}#
+                                                #{exps 17934}#)
+                                              (if (if (eq? #{m 17931}# 'c)
                                                     #t
-                                                    (eq? #{m 17916}# 'c&e))
-                                                (#{scan 17781}#
-                                                  #{body 18235}#
-                                                  #{r 17913}#
-                                                  #{w 18187}#
-                                                  #{s 18188}#
+                                                    (eq? #{m 17931}# 'c&e))
+                                                (#{scan 17796}#
+                                                  #{body 18250}#
+                                                  #{r 17928}#
+                                                  #{w 18202}#
+                                                  #{s 18203}#
                                                   'c
                                                   '(load)
-                                                  #{mod 18189}#
-                                                  #{exps 17919}#)
-                                                (values #{exps 17919}#)))
-                                            (if (let ((#{t 18256}#
+                                                  #{mod 18204}#
+                                                  #{exps 17934}#)
+                                                (values #{exps 17934}#)))
+                                            (if (let ((#{t 18531}#
                                                         (memq 'compile
-                                                              #{when-list 
18234}#)))
-                                                  (if #{t 18256}#
-                                                    #{t 18256}#
-                                                    (let ((#{t 18258}#
+                                                              #{when-list 
18249}#)))
+                                                  (if #{t 18531}#
+                                                    #{t 18531}#
+                                                    (let ((#{t 18580}#
                                                             (memq 'expand
-                                                                  #{when-list 
18234}#)))
-                                                      (if #{t 18258}#
-                                                        #{t 18258}#
-                                                        (if (eq? #{m 17916}#
+                                                                  #{when-list 
18249}#)))
+                                                      (if #{t 18580}#
+                                                        #{t 18580}#
+                                                        (if (eq? #{m 17931}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list 
18234}#)
+                                                                #{when-list 
18249}#)
                                                           #f)))))
                                               (begin
-                                                (let ((#{x 18263}#
-                                                        (#{chi-top-sequence 
4341}#
-                                                          #{body 18235}#
-                                                          #{r 17913}#
-                                                          #{w 18187}#
-                                                          #{s 18188}#
+                                                (let ((#{x 18704}#
+                                                        (#{expand-top-sequence 
4329}#
+                                                          #{body 18250}#
+                                                          #{r 17928}#
+                                                          #{w 18202}#
+                                                          #{s 18203}#
                                                           'e
                                                           '(eval)
-                                                          #{mod 18189}#)))
-                                                  (primitive-eval #{x 18263}#))
-                                                (values #{exps 17919}#))
-                                              (values #{exps 17919}#))))))
-                                    #{tmp 18227}#)
+                                                          #{mod 18204}#)))
+                                                  (primitive-eval #{x 18704}#))
+                                                (values #{exps 17934}#))
+                                              (values #{exps 17934}#))))))
+                                    #{tmp 18242}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{e 18186}#)))
-                              (if (eqv? #{type 18184}# 'define-syntax-form)
-                                (let ((#{n 18274}#
-                                        (#{id-var-name 4332}#
-                                          #{value 18185}#
-                                          #{w 18187}#))
-                                      (#{r 18275}#
-                                        (#{macros-only-env 4309}#
-                                          #{r 17913}#)))
-                                  (if (eqv? #{m 17916}# 'c)
-                                    (if (memq 'compile #{esew 17917}#)
-                                      (let ((#{e 18279}#
-                                              (#{chi-install-global 4342}#
-                                                #{n 18274}#
-                                                (#{chi 4345}#
-                                                  #{e 18186}#
-                                                  #{r 18275}#
-                                                  #{w 18187}#
-                                                  #{mod 18189}#))))
+                                    #{e 18201}#)))
+                              (if (eqv? #{type 18199}# 'define-syntax-form)
+                                (let ((#{n 18745}#
+                                        (#{id-var-name 4320}#
+                                          #{value 18200}#
+                                          #{w 18202}#))
+                                      (#{r 18746}#
+                                        (#{macros-only-env 4297}#
+                                          #{r 17928}#)))
+                                  (if (eqv? #{m 17931}# 'c)
+                                    (if (memq 'compile #{esew 17932}#)
+                                      (let ((#{e 18750}#
+                                              (#{expand-install-global 4330}#
+                                                #{n 18745}#
+                                                (#{expand 4333}#
+                                                  #{e 18201}#
+                                                  #{r 18746}#
+                                                  #{w 18202}#
+                                                  #{mod 18204}#))))
                                         (begin
-                                          (#{top-level-eval-hook 4273}#
-                                            #{e 18279}#
-                                            #{mod 18189}#)
-                                          (if (memq 'load #{esew 17917}#)
+                                          (#{top-level-eval-hook 4261}#
+                                            #{e 18750}#
+                                            #{mod 18204}#)
+                                          (if (memq 'load #{esew 17932}#)
                                             (values
-                                              (cons #{e 18279}#
-                                                    #{exps 17919}#))
-                                            (values #{exps 17919}#))))
-                                      (if (memq 'load #{esew 17917}#)
+                                              (cons #{e 18750}#
+                                                    #{exps 17934}#))
+                                            (values #{exps 17934}#))))
+                                      (if (memq 'load #{esew 17932}#)
                                         (values
-                                          (cons (#{chi-install-global 4342}#
-                                                  #{n 18274}#
-                                                  (#{chi 4345}#
-                                                    #{e 18186}#
-                                                    #{r 18275}#
-                                                    #{w 18187}#
-                                                    #{mod 18189}#))
-                                                #{exps 17919}#))
-                                        (values #{exps 17919}#)))
-                                    (if (eqv? #{m 17916}# 'c&e)
-                                      (let ((#{e 18736}#
-                                              (#{chi-install-global 4342}#
-                                                #{n 18274}#
-                                                (#{chi 4345}#
-                                                  #{e 18186}#
-                                                  #{r 18275}#
-                                                  #{w 18187}#
-                                                  #{mod 18189}#))))
+                                          (cons (#{expand-install-global 4330}#
+                                                  #{n 18745}#
+                                                  (#{expand 4333}#
+                                                    #{e 18201}#
+                                                    #{r 18746}#
+                                                    #{w 18202}#
+                                                    #{mod 18204}#))
+                                                #{exps 17934}#))
+                                        (values #{exps 17934}#)))
+                                    (if (eqv? #{m 17931}# 'c&e)
+                                      (let ((#{e 19207}#
+                                              (#{expand-install-global 4330}#
+                                                #{n 18745}#
+                                                (#{expand 4333}#
+                                                  #{e 18201}#
+                                                  #{r 18746}#
+                                                  #{w 18202}#
+                                                  #{mod 18204}#))))
                                         (begin
-                                          (#{top-level-eval-hook 4273}#
-                                            #{e 18736}#
-                                            #{mod 18189}#)
+                                          (#{top-level-eval-hook 4261}#
+                                            #{e 19207}#
+                                            #{mod 18204}#)
                                           (values
-                                            (cons #{e 18736}#
-                                                  #{exps 17919}#))))
+                                            (cons #{e 19207}#
+                                                  #{exps 17934}#))))
                                       (begin
-                                        (if (memq 'eval #{esew 17917}#)
-                                          (#{top-level-eval-hook 4273}#
-                                            (#{chi-install-global 4342}#
-                                              #{n 18274}#
-                                              (#{chi 4345}#
-                                                #{e 18186}#
-                                                #{r 18275}#
-                                                #{w 18187}#
-                                                #{mod 18189}#))
-                                            #{mod 18189}#))
-                                        (values #{exps 17919}#)))))
-                                (if (eqv? #{type 18184}# 'define-form)
-                                  (let ((#{n 19386}#
-                                          (#{id-var-name 4332}#
-                                            #{value 18185}#
-                                            #{w 18187}#)))
-                                    (let ((#{type 19387}#
-                                            (car (let ((#{t 20156}#
-                                                         (assq #{n 19386}#
-                                                               #{r 17913}#)))
-                                                   (if #{t 20156}#
-                                                     (cdr #{t 20156}#)
-                                                     (if (symbol? #{n 19386}#)
-                                                       (let ((#{t 20161}#
+                                        (if (memq 'eval #{esew 17932}#)
+                                          (#{top-level-eval-hook 4261}#
+                                            (#{expand-install-global 4330}#
+                                              #{n 18745}#
+                                              (#{expand 4333}#
+                                                #{e 18201}#
+                                                #{r 18746}#
+                                                #{w 18202}#
+                                                #{mod 18204}#))
+                                            #{mod 18204}#))
+                                        (values #{exps 17934}#)))))
+                                (if (eqv? #{type 18199}# 'define-form)
+                                  (let ((#{n 19857}#
+                                          (#{id-var-name 4320}#
+                                            #{value 18200}#
+                                            #{w 18202}#)))
+                                    (let ((#{type 19858}#
+                                            (car (let ((#{t 20627}#
+                                                         (assq #{n 19857}#
+                                                               #{r 17928}#)))
+                                                   (if #{t 20627}#
+                                                     (cdr #{t 20627}#)
+                                                     (if (symbol? #{n 19857}#)
+                                                       (let ((#{t 20632}#
                                                                (begin
-                                                                 (if (if (not 
#{mod 18189}#)
+                                                                 (if (if (not 
#{mod 18204}#)
                                                                        
(current-module)
                                                                        #f)
                                                                    (warn 
"module system is booted, we should have a module"
-                                                                         #{n 
19386}#))
-                                                                 (let ((#{v 
20198}#
+                                                                         #{n 
19857}#))
+                                                                 (let ((#{v 
20669}#
                                                                          
(module-variable
-                                                                           (if 
#{mod 18189}#
+                                                                           (if 
#{mod 18204}#
                                                                              
(resolve-module
-                                                                               
(cdr #{mod 18189}#))
+                                                                               
(cdr #{mod 18204}#))
                                                                              
(current-module))
-                                                                           #{n 
19386}#)))
-                                                                   (if #{v 
20198}#
+                                                                           #{n 
19857}#)))
+                                                                   (if #{v 
20669}#
                                                                      (if 
(variable-bound?
-                                                                           #{v 
20198}#)
-                                                                       (let 
((#{val 20207}#
+                                                                           #{v 
20669}#)
+                                                                       (let 
((#{val 20678}#
                                                                                
(variable-ref
-                                                                               
  #{v 20198}#)))
+                                                                               
  #{v 20669}#)))
                                                                          (if 
(macro?
-                                                                               
#{val 20207}#)
+                                                                               
#{val 20678}#)
                                                                            (if 
(macro-type
-                                                                               
  #{val 20207}#)
+                                                                               
  #{val 20678}#)
                                                                              
(cons (macro-type
-                                                                               
      #{val 20207}#)
+                                                                               
      #{val 20678}#)
                                                                                
    (macro-binding
-                                                                               
      #{val 20207}#))
+                                                                               
      #{val 20678}#))
                                                                              
#f)
                                                                            #f))
                                                                        #f)
                                                                      #f)))))
-                                                         (if #{t 20161}#
-                                                           #{t 20161}#
+                                                         (if #{t 20632}#
+                                                           #{t 20632}#
                                                            '(global)))
                                                        
'(displaced-lexical)))))))
-                                      (if (let ((#{t 19421}# #{type 19387}#))
-                                            (if (eqv? #{t 19421}# 'global)
+                                      (if (let ((#{t 19892}# #{type 19858}#))
+                                            (if (eqv? #{t 19892}# 'global)
                                               #t
-                                              (if (eqv? #{t 19421}# 'core)
+                                              (if (eqv? #{t 19892}# 'core)
                                                 #t
-                                                (if (eqv? #{t 19421}# 'macro)
+                                                (if (eqv? #{t 19892}# 'macro)
                                                   #t
-                                                  (eqv? #{t 19421}#
+                                                  (eqv? #{t 19892}#
                                                         'module-ref)))))
                                         (begin
-                                          (if (if (if (eq? #{m 17916}# 'c)
+                                          (if (if (if (eq? #{m 17931}# 'c)
                                                     #t
-                                                    (eq? #{m 17916}# 'c&e))
+                                                    (eq? #{m 17931}# 'c&e))
                                                 (if (not (module-local-variable
                                                            (current-module)
-                                                           #{n 19386}#))
+                                                           #{n 19857}#))
                                                   (current-module)
                                                   #f)
                                                 #f)
-                                            (let ((#{old 19585}#
+                                            (let ((#{old 20056}#
                                                     (module-variable
                                                       (current-module)
-                                                      #{n 19386}#)))
-                                              (if (if (variable? #{old 19585}#)
+                                                      #{n 19857}#)))
+                                              (if (if (variable? #{old 20056}#)
                                                     (variable-bound?
-                                                      #{old 19585}#)
+                                                      #{old 20056}#)
                                                     #f)
                                                 (module-define!
                                                   (current-module)
-                                                  #{n 19386}#
-                                                  (variable-ref #{old 19585}#))
+                                                  #{n 19857}#
+                                                  (variable-ref #{old 20056}#))
                                                 (module-add!
                                                   (current-module)
-                                                  #{n 19386}#
+                                                  #{n 19857}#
                                                   (make-undefined-variable)))))
                                           (values
-                                            (cons (if (eq? #{m 17916}# 'c&e)
-                                                    (let ((#{x 19587}#
-                                                            
(#{build-global-definition 4288}#
-                                                              #{s 18188}#
-                                                              #{n 19386}#
-                                                              (#{chi 4345}#
-                                                                #{e 18186}#
-                                                                #{r 17913}#
-                                                                #{w 18187}#
-                                                                #{mod 
18189}#))))
+                                            (cons (if (eq? #{m 17931}# 'c&e)
+                                                    (let ((#{x 20058}#
+                                                            
(#{build-global-definition 4276}#
+                                                              #{s 18203}#
+                                                              #{n 19857}#
+                                                              (#{expand 4333}#
+                                                                #{e 18201}#
+                                                                #{r 17928}#
+                                                                #{w 18202}#
+                                                                #{mod 
18204}#))))
                                                       (begin
-                                                        (#{top-level-eval-hook 
4273}#
-                                                          #{x 19587}#
-                                                          #{mod 18189}#)
-                                                        #{x 19587}#))
+                                                        (#{top-level-eval-hook 
4261}#
+                                                          #{x 20058}#
+                                                          #{mod 18204}#)
+                                                        #{x 20058}#))
                                                     (lambda ()
-                                                      
(#{build-global-definition 4288}#
-                                                        #{s 18188}#
-                                                        #{n 19386}#
-                                                        (#{chi 4345}#
-                                                          #{e 18186}#
-                                                          #{r 17913}#
-                                                          #{w 18187}#
-                                                          #{mod 18189}#))))
-                                                  #{exps 17919}#)))
-                                        (if (let ((#{t 20083}# #{type 19387}#))
-                                              (eqv? #{t 20083}#
+                                                      
(#{build-global-definition 4276}#
+                                                        #{s 18203}#
+                                                        #{n 19857}#
+                                                        (#{expand 4333}#
+                                                          #{e 18201}#
+                                                          #{r 17928}#
+                                                          #{w 18202}#
+                                                          #{mod 18204}#))))
+                                                  #{exps 17934}#)))
+                                        (if (let ((#{t 20554}# #{type 19858}#))
+                                              (eqv? #{t 20554}#
                                                     'displaced-lexical))
                                           (syntax-violation
                                             #f
                                             "identifier out of context"
-                                            #{e 18186}#
-                                            (#{wrap 4338}#
-                                              #{value 18185}#
-                                              #{w 18187}#
-                                              #{mod 18189}#))
+                                            #{e 18201}#
+                                            (#{wrap 4326}#
+                                              #{value 18200}#
+                                              #{w 18202}#
+                                              #{mod 18204}#))
                                           (syntax-violation
                                             #f
                                             "cannot define keyword at top 
level"
-                                            #{e 18186}#
-                                            (#{wrap 4338}#
-                                              #{value 18185}#
-                                              #{w 18187}#
-                                              #{mod 18189}#))))))
+                                            #{e 18201}#
+                                            (#{wrap 4326}#
+                                              #{value 18200}#
+                                              #{w 18202}#
+                                              #{mod 18204}#))))))
                                   (values
-                                    (cons (if (eq? #{m 17916}# 'c&e)
-                                            (let ((#{x 20218}#
-                                                    (#{chi-expr 4346}#
-                                                      #{type 18184}#
-                                                      #{value 18185}#
-                                                      #{e 18186}#
-                                                      #{r 17913}#
-                                                      #{w 18187}#
-                                                      #{s 18188}#
-                                                      #{mod 18189}#)))
+                                    (cons (if (eq? #{m 17931}# 'c&e)
+                                            (let ((#{x 20689}#
+                                                    (#{expand-expr 4334}#
+                                                      #{type 18199}#
+                                                      #{value 18200}#
+                                                      #{e 18201}#
+                                                      #{r 17928}#
+                                                      #{w 18202}#
+                                                      #{s 18203}#
+                                                      #{mod 18204}#)))
                                               (begin
-                                                (primitive-eval #{x 20218}#)
-                                                #{x 20218}#))
+                                                (primitive-eval #{x 20689}#)
+                                                #{x 20689}#))
                                             (lambda ()
-                                              (#{chi-expr 4346}#
-                                                #{type 18184}#
-                                                #{value 18185}#
-                                                #{e 18186}#
-                                                #{r 17913}#
-                                                #{w 18187}#
-                                                #{s 18188}#
-                                                #{mod 18189}#)))
-                                          #{exps 17919}#))))))))))
-                  (lambda (#{exps 20227}#)
-                    (#{scan 17781}#
-                      (cdr #{body 17912}#)
-                      #{r 17913}#
-                      #{w 17914}#
-                      #{s 17915}#
-                      #{m 17916}#
-                      #{esew 17917}#
-                      #{mod 17918}#
-                      #{exps 20227}#)))))))
+                                              (#{expand-expr 4334}#
+                                                #{type 18199}#
+                                                #{value 18200}#
+                                                #{e 18201}#
+                                                #{r 17928}#
+                                                #{w 18202}#
+                                                #{s 18203}#
+                                                #{mod 18204}#)))
+                                          #{exps 17934}#))))))))))
+                  (lambda (#{exps 20698}#)
+                    (#{scan 17796}#
+                      (cdr #{body 17927}#)
+                      #{r 17928}#
+                      #{w 17929}#
+                      #{s 17930}#
+                      #{m 17931}#
+                      #{esew 17932}#
+                      #{mod 17933}#
+                      #{exps 20698}#)))))))
          (call-with-values
            (lambda ()
-             (#{scan 17781}#
-               #{body 17774}#
-               #{r 17775}#
-               #{w 17776}#
-               #{s 17777}#
-               #{m 17778}#
-               #{esew 17779}#
-               #{mod 17780}#
+             (#{scan 17796}#
+               #{body 17789}#
+               #{r 17790}#
+               #{w 17791}#
+               #{s 17792}#
+               #{m 17793}#
+               #{esew 17794}#
+               #{mod 17795}#
                '()))
-           (lambda (#{exps 17784}#)
-             (if (null? #{exps 17784}#)
+           (lambda (#{exps 17799}#)
+             (if (null? #{exps 17799}#)
                (make-struct/no-tail
                  (vector-ref %expanded-vtables 0)
-                 #{s 17777}#)
-               (#{build-sequence 4294}#
-                 #{s 17777}#
+                 #{s 17792}#)
+               (#{build-sequence 4282}#
+                 #{s 17792}#
                  (letrec*
-                   ((#{lp 17824}#
-                      (lambda (#{in 17908}# #{out 17909}#)
-                        (if (null? #{in 17908}#)
-                          #{out 17909}#
-                          (let ((#{e 17910}# (car #{in 17908}#)))
-                            (#{lp 17824}#
-                              (cdr #{in 17908}#)
-                              (cons (if (procedure? #{e 17910}#)
-                                      (#{e 17910}#)
-                                      #{e 17910}#)
-                                    #{out 17909}#)))))))
-                   (#{lp 17824}# #{exps 17784}# '())))))))))
-   (#{chi-install-global 4342}#
-     (lambda (#{name 20228}# #{e 20229}#)
-       (let ((#{exp 20235}#
-               (let ((#{fun-exp 20245}#
+                   ((#{lp 17839}#
+                      (lambda (#{in 17923}# #{out 17924}#)
+                        (if (null? #{in 17923}#)
+                          #{out 17924}#
+                          (let ((#{e 17925}# (car #{in 17923}#)))
+                            (#{lp 17839}#
+                              (cdr #{in 17923}#)
+                              (cons (if (procedure? #{e 17925}#)
+                                      (#{e 17925}#)
+                                      #{e 17925}#)
+                                    #{out 17924}#)))))))
+                   (#{lp 17839}# #{exps 17799}# '())))))))))
+   (#{expand-install-global 4330}#
+     (lambda (#{name 20699}# #{e 20700}#)
+       (let ((#{exp 20706}#
+               (let ((#{fun-exp 20716}#
                        (if (equal? (module-name (current-module)) '(guile))
                          (make-struct/no-tail
                            (vector-ref %expanded-vtables 7)
@@ -1219,34691 +1218,14795 @@
                            '(guile)
                            'make-syntax-transformer
                            #f)))
-                     (#{arg-exps 20246}#
+                     (#{arg-exps 20717}#
                        (list (make-struct/no-tail
                                (vector-ref %expanded-vtables 1)
                                #f
-                               #{name 20228}#)
+                               #{name 20699}#)
                              (make-struct/no-tail
                                (vector-ref %expanded-vtables 1)
                                #f
                                'macro)
-                             #{e 20229}#)))
+                             #{e 20700}#)))
                  (make-struct/no-tail
                    (vector-ref %expanded-vtables 11)
                    #f
-                   #{fun-exp 20245}#
-                   #{arg-exps 20246}#))))
+                   #{fun-exp 20716}#
+                   #{arg-exps 20717}#))))
          (begin
-           (if (if (struct? #{exp 20235}#)
-                 (eq? (struct-vtable #{exp 20235}#)
+           (if (if (struct? #{exp 20706}#)
+                 (eq? (struct-vtable #{exp 20706}#)
                       (vector-ref %expanded-vtables 13))
                  #f)
-             (let ((#{meta 20287}# (struct-ref #{exp 20235}# 1)))
-               (if (not (assq 'name #{meta 20287}#))
-                 (let ((#{v 20294}#
-                         (cons (cons 'name #{name 20228}#) #{meta 20287}#)))
-                   (struct-set! #{exp 20235}# 1 #{v 20294}#)))))
+             (let ((#{meta 20758}# (struct-ref #{exp 20706}# 1)))
+               (if (not (assq 'name #{meta 20758}#))
+                 (let ((#{v 20765}#
+                         (cons (cons 'name #{name 20699}#) #{meta 20758}#)))
+                   (struct-set! #{exp 20706}# 1 #{v 20765}#)))))
            (make-struct/no-tail
              (vector-ref %expanded-vtables 9)
              #f
-             #{name 20228}#
-             #{exp 20235}#)))))
-   (#{chi-when-list 4343}#
-     (lambda (#{e 20305}# #{when-list 20306}# #{w 20307}#)
-       (letrec*
-         ((#{f 20308}#
-            (lambda (#{when-list 20311}# #{situations 20312}#)
-              (if (null? #{when-list 20311}#)
-                #{situations 20312}#
-                (#{f 20308}#
-                  (cdr #{when-list 20311}#)
-                  (cons (let ((#{x 20313}# (car #{when-list 20311}#)))
-                          (if (if (eq? (if (if (vector? #{x 20313}#)
-                                             (if (= (vector-length #{x 20313}#)
-                                                    4)
-                                               (eq? (vector-ref #{x 20313}# 0)
-                                                    'syntax-object)
+             #{name 20699}#
+             #{exp 20706}#)))))
+   (#{parse-when-list 4331}#
+     (lambda (#{e 20776}# #{when-list 20777}#)
+       (let ((#{result 20778}#
+               (#{strip 4346}# #{when-list 20777}# '(()))))
+         (letrec*
+           ((#{lp 20779}#
+              (lambda (#{l 20833}#)
+                (if (null? #{l 20833}#)
+                  #{result 20778}#
+                  (if (let ((#{t 20835}# (car #{l 20833}#)))
+                        (if (eq? #{t 20835}# 'compile)
+                          #t
+                          (if (eq? #{t 20835}# 'load)
+                            #t
+                            (if (eq? #{t 20835}# 'eval)
+                              #t
+                              (eq? #{t 20835}# 'expand)))))
+                    (#{lp 20779}# (cdr #{l 20833}#))
+                    (syntax-violation
+                      'eval-when
+                      "invalid situation"
+                      #{e 20776}#
+                      (car #{l 20833}#)))))))
+           (#{lp 20779}# #{result 20778}#)))))
+   (#{syntax-type 4332}#
+     (lambda (#{e 20837}#
+              #{r 20838}#
+              #{w 20839}#
+              #{s 20840}#
+              #{rib 20841}#
+              #{mod 20842}#
+              #{for-car? 20843}#)
+       (if (symbol? #{e 20837}#)
+         (let ((#{n 20844}#
+                 (#{id-var-name 4320}# #{e 20837}# #{w 20839}#)))
+           (let ((#{b 20845}#
+                   (let ((#{t 21420}# (assq #{n 20844}# #{r 20838}#)))
+                     (if #{t 21420}#
+                       (cdr #{t 21420}#)
+                       (if (symbol? #{n 20844}#)
+                         (let ((#{t 21425}#
+                                 (begin
+                                   (if (if (not #{mod 20842}#)
+                                         (current-module)
+                                         #f)
+                                     (warn "module system is booted, we should 
have a module"
+                                           #{n 20844}#))
+                                   (let ((#{v 21462}#
+                                           (module-variable
+                                             (if #{mod 20842}#
+                                               (resolve-module
+                                                 (cdr #{mod 20842}#))
+                                               (current-module))
+                                             #{n 20844}#)))
+                                     (if #{v 21462}#
+                                       (if (variable-bound? #{v 21462}#)
+                                         (let ((#{val 21471}#
+                                                 (variable-ref #{v 21462}#)))
+                                           (if (macro? #{val 21471}#)
+                                             (if (macro-type #{val 21471}#)
+                                               (cons (macro-type #{val 21471}#)
+                                                     (macro-binding
+                                                       #{val 21471}#))
                                                #f)
-                                             #f)
-                                         (vector-ref #{x 20313}# 1)
-                                         #{x 20313}#)
-                                       (if (if (= (vector-length
-                                                    '#(syntax-object
-                                                       compile
-                                                       ((top)
-                                                        #(ribcage () () ())
-                                                        #(ribcage () () ())
-                                                        #(ribcage () () ())
-                                                        #(ribcage
-                                                          #(x)
-                                                          #((top))
-                                                          #("i1754"))
-                                                        #(ribcage () () ())
-                                                        #(ribcage
-                                                          #(f
-                                                            when-list
-                                                            situations)
-                                                          #((top) (top) (top))
-                                                          #("i1748"
-                                                            "i1749"
-                                                            "i1750"))
-                                                        #(ribcage () () ())
-                                                        #(ribcage
-                                                          #(e when-list w)
-                                                          #((top) (top) (top))
-                                                          #("i1745"
-                                                            "i1746"
-                                                            "i1747"))
-                                                        #(ribcage
-                                                          (lambda-var-list
-                                                            gen-var
-                                                            strip
-                                                            chi-lambda-case
-                                                            lambda*-formals
-                                                            chi-simple-lambda
-                                                            lambda-formals
-                                                            ellipsis?
-                                                            chi-void
-                                                            
eval-local-transformer
-                                                            chi-local-syntax
-                                                            chi-body
-                                                            chi-macro
-                                                            chi-application
-                                                            chi-expr
-                                                            chi
-                                                            syntax-type
-                                                            chi-when-list
-                                                            chi-install-global
-                                                            chi-top-sequence
-                                                            chi-sequence
-                                                            source-wrap
-                                                            wrap
-                                                            bound-id-member?
-                                                            distinct-bound-ids?
-                                                            valid-bound-ids?
-                                                            bound-id=?
-                                                            free-id=?
-                                                            id-var-name
-                                                            same-marks?
-                                                            join-marks
-                                                            join-wraps
-                                                            smart-append
-                                                            make-binding-wrap
-                                                            extend-ribcage!
-                                                            make-empty-ribcage
-                                                            new-mark
-                                                            anti-mark
-                                                            the-anti-mark
-                                                            top-marked?
-                                                            top-wrap
-                                                            empty-wrap
-                                                            set-ribcage-labels!
-                                                            set-ribcage-marks!
-                                                            
set-ribcage-symnames!
-                                                            ribcage-labels
-                                                            ribcage-marks
-                                                            ribcage-symnames
-                                                            ribcage?
-                                                            make-ribcage
-                                                            gen-labels
-                                                            gen-label
-                                                            make-rename
-                                                            rename-marks
-                                                            rename-new
-                                                            rename-old
-                                                            subst-rename?
-                                                            wrap-subst
-                                                            wrap-marks
-                                                            make-wrap
-                                                            id-sym-name&marks
-                                                            id-sym-name
-                                                            id?
-                                                            nonsymbol-id?
-                                                            global-extend
-                                                            lookup
-                                                            macros-only-env
-                                                            extend-var-env
-                                                            extend-env
-                                                            null-env
-                                                            binding-value
-                                                            binding-type
-                                                            make-binding
-                                                            arg-check
-                                                            source-annotation
-                                                            no-source
-                                                            
set-syntax-object-module!
-                                                            
set-syntax-object-wrap!
-                                                            
set-syntax-object-expression!
-                                                            
syntax-object-module
-                                                            syntax-object-wrap
-                                                            
syntax-object-expression
-                                                            syntax-object?
-                                                            make-syntax-object
-                                                            build-lexical-var
-                                                            build-letrec
-                                                            build-named-let
-                                                            build-let
-                                                            build-sequence
-                                                            build-data
-                                                            build-primref
-                                                            build-lambda-case
-                                                            build-case-lambda
-                                                            build-simple-lambda
-                                                            
build-global-definition
-                                                            
build-global-assignment
-                                                            
build-global-reference
-                                                            analyze-variable
-                                                            
build-lexical-assignment
-                                                            
build-lexical-reference
-                                                            build-dynlet
-                                                            build-conditional
-                                                            build-application
-                                                            build-void
-                                                            maybe-name-value!
-                                                            decorate-source
-                                                            
get-global-definition-hook
-                                                            
put-global-definition-hook
-                                                            gensym-hook
-                                                            local-eval-hook
-                                                            top-level-eval-hook
-                                                            fx<
-                                                            fx=
-                                                            fx-
-                                                            fx+
-                                                            set-lambda-meta!
-                                                            lambda-meta
-                                                            lambda?
-                                                            make-dynlet
-                                                            make-letrec
-                                                            make-let
-                                                            make-lambda-case
-                                                            make-lambda
-                                                            make-sequence
-                                                            make-application
-                                                            make-conditional
-                                                            
make-toplevel-define
-                                                            make-toplevel-set
-                                                            make-toplevel-ref
-                                                            make-module-set
-                                                            make-module-ref
-                                                            make-lexical-set
-                                                            make-lexical-ref
-                                                            make-primitive-ref
-                                                            make-const
-                                                            make-void)
-                                                          ((top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top))
-                                                          ("i467"
-                                                           "i465"
-                                                           "i463"
-                                                           "i461"
-                                                           "i459"
-                                                           "i457"
-                                                           "i455"
-                                                           "i453"
-                                                           "i451"
-                                                           "i449"
-                                                           "i447"
-                                                           "i445"
-                                                           "i443"
-                                                           "i441"
-                                                           "i439"
-                                                           "i437"
-                                                           "i435"
-                                                           "i433"
-                                                           "i431"
-                                                           "i429"
-                                                           "i427"
-                                                           "i425"
-                                                           "i423"
-                                                           "i421"
-                                                           "i419"
-                                                           "i417"
-                                                           "i415"
-                                                           "i413"
-                                                           "i411"
-                                                           "i409"
-                                                           "i407"
-                                                           "i405"
-                                                           "i403"
-                                                           "i401"
-                                                           "i399"
-                                                           "i398"
-                                                           "i396"
-                                                           "i393"
-                                                           "i392"
-                                                           "i391"
-                                                           "i389"
-                                                           "i388"
-                                                           "i386"
-                                                           "i384"
-                                                           "i382"
-                                                           "i380"
-                                                           "i378"
-                                                           "i376"
-                                                           "i374"
-                                                           "i372"
-                                                           "i369"
-                                                           "i367"
-                                                           "i366"
-                                                           "i364"
-                                                           "i362"
-                                                           "i360"
-                                                           "i358"
-                                                           "i357"
-                                                           "i356"
-                                                           "i355"
-                                                           "i353"
-                                                           "i352"
-                                                           "i349"
-                                                           "i347"
-                                                           "i345"
-                                                           "i343"
-                                                           "i341"
-                                                           "i339"
-                                                           "i337"
-                                                           "i336"
-                                                           "i335"
-                                                           "i333"
-                                                           "i331"
-                                                           "i330"
-                                                           "i327"
-                                                           "i326"
-                                                           "i324"
-                                                           "i322"
-                                                           "i320"
-                                                           "i318"
-                                                           "i316"
-                                                           "i314"
-                                                           "i312"
-                                                           "i310"
-                                                           "i308"
-                                                           "i305"
-                                                           "i303"
-                                                           "i301"
-                                                           "i299"
-                                                           "i297"
-                                                           "i295"
-                                                           "i293"
-                                                           "i291"
-                                                           "i289"
-                                                           "i287"
-                                                           "i285"
-                                                           "i283"
-                                                           "i281"
-                                                           "i279"
-                                                           "i277"
-                                                           "i275"
-                                                           "i273"
-                                                           "i271"
-                                                           "i269"
-                                                           "i267"
-                                                           "i265"
-                                                           "i263"
-                                                           "i261"
-                                                           "i260"
-                                                           "i257"
-                                                           "i255"
-                                                           "i254"
-                                                           "i253"
-                                                           "i252"
-                                                           "i251"
-                                                           "i249"
-                                                           "i247"
-                                                           "i245"
-                                                           "i242"
-                                                           "i240"
-                                                           "i238"
-                                                           "i236"
-                                                           "i234"
-                                                           "i232"
-                                                           "i230"
-                                                           "i228"
-                                                           "i226"
-                                                           "i224"
-                                                           "i222"
-                                                           "i220"
-                                                           "i218"
-                                                           "i216"
-                                                           "i214"
-                                                           "i212"
-                                                           "i210"
-                                                           "i208"))
-                                                        #(ribcage
-                                                          (define-structure
-                                                            
define-expansion-accessors
-                                                            
define-expansion-constructors)
-                                                          ((top) (top) (top))
-                                                          ("i46" "i45" "i44")))
-                                                       (hygiene guile)))
-                                                  4)
-                                             (eq? (vector-ref
-                                                    '#(syntax-object
-                                                       compile
-                                                       ((top)
-                                                        #(ribcage () () ())
-                                                        #(ribcage () () ())
-                                                        #(ribcage () () ())
-                                                        #(ribcage
-                                                          #(x)
-                                                          #((top))
-                                                          #("i1754"))
-                                                        #(ribcage () () ())
-                                                        #(ribcage
-                                                          #(f
-                                                            when-list
-                                                            situations)
-                                                          #((top) (top) (top))
-                                                          #("i1748"
-                                                            "i1749"
-                                                            "i1750"))
-                                                        #(ribcage () () ())
-                                                        #(ribcage
-                                                          #(e when-list w)
-                                                          #((top) (top) (top))
-                                                          #("i1745"
-                                                            "i1746"
-                                                            "i1747"))
-                                                        #(ribcage
-                                                          (lambda-var-list
-                                                            gen-var
-                                                            strip
-                                                            chi-lambda-case
-                                                            lambda*-formals
-                                                            chi-simple-lambda
-                                                            lambda-formals
-                                                            ellipsis?
-                                                            chi-void
-                                                            
eval-local-transformer
-                                                            chi-local-syntax
-                                                            chi-body
-                                                            chi-macro
-                                                            chi-application
-                                                            chi-expr
-                                                            chi
-                                                            syntax-type
-                                                            chi-when-list
-                                                            chi-install-global
-                                                            chi-top-sequence
-                                                            chi-sequence
-                                                            source-wrap
-                                                            wrap
-                                                            bound-id-member?
-                                                            distinct-bound-ids?
-                                                            valid-bound-ids?
-                                                            bound-id=?
-                                                            free-id=?
-                                                            id-var-name
-                                                            same-marks?
-                                                            join-marks
-                                                            join-wraps
-                                                            smart-append
-                                                            make-binding-wrap
-                                                            extend-ribcage!
-                                                            make-empty-ribcage
-                                                            new-mark
-                                                            anti-mark
-                                                            the-anti-mark
-                                                            top-marked?
-                                                            top-wrap
-                                                            empty-wrap
-                                                            set-ribcage-labels!
-                                                            set-ribcage-marks!
-                                                            
set-ribcage-symnames!
-                                                            ribcage-labels
-                                                            ribcage-marks
-                                                            ribcage-symnames
-                                                            ribcage?
-                                                            make-ribcage
-                                                            gen-labels
-                                                            gen-label
-                                                            make-rename
-                                                            rename-marks
-                                                            rename-new
-                                                            rename-old
-                                                            subst-rename?
-                                                            wrap-subst
-                                                            wrap-marks
-                                                            make-wrap
-                                                            id-sym-name&marks
-                                                            id-sym-name
-                                                            id?
-                                                            nonsymbol-id?
-                                                            global-extend
-                                                            lookup
-                                                            macros-only-env
-                                                            extend-var-env
-                                                            extend-env
-                                                            null-env
-                                                            binding-value
-                                                            binding-type
-                                                            make-binding
-                                                            arg-check
-                                                            source-annotation
-                                                            no-source
-                                                            
set-syntax-object-module!
-                                                            
set-syntax-object-wrap!
-                                                            
set-syntax-object-expression!
-                                                            
syntax-object-module
-                                                            syntax-object-wrap
-                                                            
syntax-object-expression
-                                                            syntax-object?
-                                                            make-syntax-object
-                                                            build-lexical-var
-                                                            build-letrec
-                                                            build-named-let
-                                                            build-let
-                                                            build-sequence
-                                                            build-data
-                                                            build-primref
-                                                            build-lambda-case
-                                                            build-case-lambda
-                                                            build-simple-lambda
-                                                            
build-global-definition
-                                                            
build-global-assignment
-                                                            
build-global-reference
-                                                            analyze-variable
-                                                            
build-lexical-assignment
-                                                            
build-lexical-reference
-                                                            build-dynlet
-                                                            build-conditional
-                                                            build-application
-                                                            build-void
-                                                            maybe-name-value!
-                                                            decorate-source
-                                                            
get-global-definition-hook
-                                                            
put-global-definition-hook
-                                                            gensym-hook
-                                                            local-eval-hook
-                                                            top-level-eval-hook
-                                                            fx<
-                                                            fx=
-                                                            fx-
-                                                            fx+
-                                                            set-lambda-meta!
-                                                            lambda-meta
-                                                            lambda?
-                                                            make-dynlet
-                                                            make-letrec
-                                                            make-let
-                                                            make-lambda-case
-                                                            make-lambda
-                                                            make-sequence
-                                                            make-application
-                                                            make-conditional
-                                                            
make-toplevel-define
-                                                            make-toplevel-set
-                                                            make-toplevel-ref
-                                                            make-module-set
-                                                            make-module-ref
-                                                            make-lexical-set
-                                                            make-lexical-ref
-                                                            make-primitive-ref
-                                                            make-const
-                                                            make-void)
-                                                          ((top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top)
-                                                           (top))
-                                                          ("i467"
-                                                           "i465"
-                                                           "i463"
-                                                           "i461"
-                                                           "i459"
-                                                           "i457"
-                                                           "i455"
-                                                           "i453"
-                                                           "i451"
-                                                           "i449"
-                                                           "i447"
-                                                           "i445"
-                                                           "i443"
-                                                           "i441"
-                                                           "i439"
-                                                           "i437"
-                                                           "i435"
-                                                           "i433"
-                                                           "i431"
-                                                           "i429"
-                                                           "i427"
-                                                           "i425"
-                                                           "i423"
-                                                           "i421"
-                                                           "i419"
-                                                           "i417"
-                                                           "i415"
-                                                           "i413"
-                                                           "i411"
-                                                           "i409"
-                                                           "i407"
-                                                           "i405"
-                                                           "i403"
-                                                           "i401"
-                                                           "i399"
-                                                           "i398"
-                                                           "i396"
-                                                           "i393"
-                                                           "i392"
-                                                           "i391"
-                                                           "i389"
-                                                           "i388"
-                                                           "i386"
-                                                           "i384"
-                                                           "i382"
-                                                           "i380"
-                                                           "i378"
-                                                           "i376"
-                                                           "i374"
-                                                           "i372"
-                                                           "i369"
-                                                           "i367"
-                                                           "i366"
-                                                           "i364"
-                                                           "i362"
-                                                           "i360"
-                                                           "i358"
-                                                           "i357"
-                                                           "i356"
-                                                           "i355"
-                                                           "i353"
-                                                           "i352"
-                                                           "i349"
-                                                           "i347"
-                                                           "i345"
-                                                           "i343"
-                                                           "i341"
-                                                           "i339"
-                                                           "i337"
-                                                           "i336"
-                                                           "i335"
-                                                           "i333"
-                                                           "i331"
-                                                           "i330"
-                                                           "i327"
-                                                           "i326"
-                                                           "i324"
-                                                           "i322"
-                                                           "i320"
-                                                           "i318"
-                                                           "i316"
-                                                           "i314"
-                                                           "i312"
-                                                           "i310"
-                                                           "i308"
-                                                           "i305"
-                                                           "i303"
-                                                           "i301"
-                                                           "i299"
-                                                           "i297"
-                                                           "i295"
-                                                           "i293"
-                                                           "i291"
-                                                           "i289"
-                                                           "i287"
-                                                           "i285"
-                                                           "i283"
-                                                           "i281"
-                                                           "i279"
-                                                           "i277"
-                                                           "i275"
-                                                           "i273"
-                                                           "i271"
-                                                           "i269"
-                                                           "i267"
-                                                           "i265"
-                                                           "i263"
-                                                           "i261"
-                                                           "i260"
-                                                           "i257"
-                                                           "i255"
-                                                           "i254"
-                                                           "i253"
-                                                           "i252"
-                                                           "i251"
-                                                           "i249"
-                                                           "i247"
-                                                           "i245"
-                                                           "i242"
-                                                           "i240"
-                                                           "i238"
-                                                           "i236"
-                                                           "i234"
-                                                           "i232"
-                                                           "i230"
-                                                           "i228"
-                                                           "i226"
-                                                           "i224"
-                                                           "i222"
-                                                           "i220"
-                                                           "i218"
-                                                           "i216"
-                                                           "i214"
-                                                           "i212"
-                                                           "i210"
-                                                           "i208"))
-                                                        #(ribcage
-                                                          (define-structure
-                                                            
define-expansion-accessors
-                                                            
define-expansion-constructors)
-                                                          ((top) (top) (top))
-                                                          ("i46" "i45" "i44")))
-                                                       (hygiene guile))
-                                                    0)
-                                                  'syntax-object)
-                                             #f)
-                                         (vector-ref
-                                           '#(syntax-object
-                                              compile
-                                              ((top)
-                                               #(ribcage () () ())
-                                               #(ribcage () () ())
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(x)
-                                                 #((top))
-                                                 #("i1754"))
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(f when-list situations)
-                                                 #((top) (top) (top))
-                                                 #("i1748" "i1749" "i1750"))
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(e when-list w)
-                                                 #((top) (top) (top))
-                                                 #("i1745" "i1746" "i1747"))
-                                               #(ribcage
-                                                 (lambda-var-list
-                                                   gen-var
-                                                   strip
-                                                   chi-lambda-case
-                                                   lambda*-formals
-                                                   chi-simple-lambda
-                                                   lambda-formals
-                                                   ellipsis?
-                                                   chi-void
-                                                   eval-local-transformer
-                                                   chi-local-syntax
-                                                   chi-body
-                                                   chi-macro
-                                                   chi-application
-                                                   chi-expr
-                                                   chi
-                                                   syntax-type
-                                                   chi-when-list
-                                                   chi-install-global
-                                                   chi-top-sequence
-                                                   chi-sequence
-                                                   source-wrap
-                                                   wrap
-                                                   bound-id-member?
-                                                   distinct-bound-ids?
-                                                   valid-bound-ids?
-                                                   bound-id=?
-                                                   free-id=?
-                                                   id-var-name
-                                                   same-marks?
-                                                   join-marks
-                                                   join-wraps
-                                                   smart-append
-                                                   make-binding-wrap
-                                                   extend-ribcage!
-                                                   make-empty-ribcage
-                                                   new-mark
-                                                   anti-mark
-                                                   the-anti-mark
-                                                   top-marked?
-                                                   top-wrap
-                                                   empty-wrap
-                                                   set-ribcage-labels!
-                                                   set-ribcage-marks!
-                                                   set-ribcage-symnames!
-                                                   ribcage-labels
-                                                   ribcage-marks
-                                                   ribcage-symnames
-                                                   ribcage?
-                                                   make-ribcage
-                                                   gen-labels
-                                                   gen-label
-                                                   make-rename
-                                                   rename-marks
-                                                   rename-new
-                                                   rename-old
-                                                   subst-rename?
-                                                   wrap-subst
-                                                   wrap-marks
-                                                   make-wrap
-                                                   id-sym-name&marks
-                                                   id-sym-name
-                                                   id?
-                                                   nonsymbol-id?
-                                                   global-extend
-                                                   lookup
-                                                   macros-only-env
-                                                   extend-var-env
-                                                   extend-env
-                                                   null-env
-                                                   binding-value
-                                                   binding-type
-                                                   make-binding
-                                                   arg-check
-                                                   source-annotation
-                                                   no-source
-                                                   set-syntax-object-module!
-                                                   set-syntax-object-wrap!
-                                                   
set-syntax-object-expression!
-                                                   syntax-object-module
-                                                   syntax-object-wrap
-                                                   syntax-object-expression
-                                                   syntax-object?
-                                                   make-syntax-object
-                                                   build-lexical-var
-                                                   build-letrec
-                                                   build-named-let
-                                                   build-let
-                                                   build-sequence
-                                                   build-data
-                                                   build-primref
-                                                   build-lambda-case
-                                                   build-case-lambda
-                                                   build-simple-lambda
-                                                   build-global-definition
-                                                   build-global-assignment
-                                                   build-global-reference
-                                                   analyze-variable
-                                                   build-lexical-assignment
-                                                   build-lexical-reference
-                                                   build-dynlet
-                                                   build-conditional
-                                                   build-application
-                                                   build-void
-                                                   maybe-name-value!
-                                                   decorate-source
-                                                   get-global-definition-hook
-                                                   put-global-definition-hook
-                                                   gensym-hook
-                                                   local-eval-hook
-                                                   top-level-eval-hook
-                                                   fx<
-                                                   fx=
-                                                   fx-
-                                                   fx+
-                                                   set-lambda-meta!
-                                                   lambda-meta
-                                                   lambda?
-                                                   make-dynlet
-                                                   make-letrec
-                                                   make-let
-                                                   make-lambda-case
-                                                   make-lambda
-                                                   make-sequence
-                                                   make-application
-                                                   make-conditional
-                                                   make-toplevel-define
-                                                   make-toplevel-set
-                                                   make-toplevel-ref
-                                                   make-module-set
-                                                   make-module-ref
-                                                   make-lexical-set
-                                                   make-lexical-ref
-                                                   make-primitive-ref
-                                                   make-const
-                                                   make-void)
-                                                 ((top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top))
-                                                 ("i467"
-                                                  "i465"
-                                                  "i463"
-                                                  "i461"
-                                                  "i459"
-                                                  "i457"
-                                                  "i455"
-                                                  "i453"
-                                                  "i451"
-                                                  "i449"
-                                                  "i447"
-                                                  "i445"
-                                                  "i443"
-                                                  "i441"
-                                                  "i439"
-                                                  "i437"
-                                                  "i435"
-                                                  "i433"
-                                                  "i431"
-                                                  "i429"
-                                                  "i427"
-                                                  "i425"
-                                                  "i423"
-                                                  "i421"
-                                                  "i419"
-                                                  "i417"
-                                                  "i415"
-                                                  "i413"
-                                                  "i411"
-                                                  "i409"
-                                                  "i407"
-                                                  "i405"
-                                                  "i403"
-                                                  "i401"
-                                                  "i399"
-                                                  "i398"
-                                                  "i396"
-                                                  "i393"
-                                                  "i392"
-                                                  "i391"
-                                                  "i389"
-                                                  "i388"
-                                                  "i386"
-                                                  "i384"
-                                                  "i382"
-                                                  "i380"
-                                                  "i378"
-                                                  "i376"
-                                                  "i374"
-                                                  "i372"
-                                                  "i369"
-                                                  "i367"
-                                                  "i366"
-                                                  "i364"
-                                                  "i362"
-                                                  "i360"
-                                                  "i358"
-                                                  "i357"
-                                                  "i356"
-                                                  "i355"
-                                                  "i353"
-                                                  "i352"
-                                                  "i349"
-                                                  "i347"
-                                                  "i345"
-                                                  "i343"
-                                                  "i341"
-                                                  "i339"
-                                                  "i337"
-                                                  "i336"
-                                                  "i335"
-                                                  "i333"
-                                                  "i331"
-                                                  "i330"
-                                                  "i327"
-                                                  "i326"
-                                                  "i324"
-                                                  "i322"
-                                                  "i320"
-                                                  "i318"
-                                                  "i316"
-                                                  "i314"
-                                                  "i312"
-                                                  "i310"
-                                                  "i308"
-                                                  "i305"
-                                                  "i303"
-                                                  "i301"
-                                                  "i299"
-                                                  "i297"
-                                                  "i295"
-                                                  "i293"
-                                                  "i291"
-                                                  "i289"
-                                                  "i287"
-                                                  "i285"
-                                                  "i283"
-                                                  "i281"
-                                                  "i279"
-                                                  "i277"
-                                                  "i275"
-                                                  "i273"
-                                                  "i271"
-                                                  "i269"
-                                                  "i267"
-                                                  "i265"
-                                                  "i263"
-                                                  "i261"
-                                                  "i260"
-                                                  "i257"
-                                                  "i255"
-                                                  "i254"
-                                                  "i253"
-                                                  "i252"
-                                                  "i251"
-                                                  "i249"
-                                                  "i247"
-                                                  "i245"
-                                                  "i242"
-                                                  "i240"
-                                                  "i238"
-                                                  "i236"
-                                                  "i234"
-                                                  "i232"
-                                                  "i230"
-                                                  "i228"
-                                                  "i226"
-                                                  "i224"
-                                                  "i222"
-                                                  "i220"
-                                                  "i218"
-                                                  "i216"
-                                                  "i214"
-                                                  "i212"
-                                                  "i210"
-                                                  "i208"))
-                                               #(ribcage
-                                                 (define-structure
-                                                   define-expansion-accessors
-                                                   
define-expansion-constructors)
-                                                 ((top) (top) (top))
-                                                 ("i46" "i45" "i44")))
-                                              (hygiene guile))
-                                           1)
-                                         '#(syntax-object
-                                            compile
-                                            ((top)
-                                             #(ribcage () () ())
-                                             #(ribcage () () ())
-                                             #(ribcage () () ())
-                                             #(ribcage
-                                               #(x)
-                                               #((top))
-                                               #("i1754"))
-                                             #(ribcage () () ())
-                                             #(ribcage
-                                               #(f when-list situations)
-                                               #((top) (top) (top))
-                                               #("i1748" "i1749" "i1750"))
-                                             #(ribcage () () ())
-                                             #(ribcage
-                                               #(e when-list w)
-                                               #((top) (top) (top))
-                                               #("i1745" "i1746" "i1747"))
-                                             #(ribcage
-                                               (lambda-var-list
-                                                 gen-var
-                                                 strip
-                                                 chi-lambda-case
-                                                 lambda*-formals
-                                                 chi-simple-lambda
-                                                 lambda-formals
-                                                 ellipsis?
-                                                 chi-void
-                                                 eval-local-transformer
-                                                 chi-local-syntax
-                                                 chi-body
-                                                 chi-macro
-                                                 chi-application
-                                                 chi-expr
-                                                 chi
-                                                 syntax-type
-                                                 chi-when-list
-                                                 chi-install-global
-                                                 chi-top-sequence
-                                                 chi-sequence
-                                                 source-wrap
-                                                 wrap
-                                                 bound-id-member?
-                                                 distinct-bound-ids?
-                                                 valid-bound-ids?
-                                                 bound-id=?
-                                                 free-id=?
-                                                 id-var-name
-                                                 same-marks?
-                                                 join-marks
-                                                 join-wraps
-                                                 smart-append
-                                                 make-binding-wrap
-                                                 extend-ribcage!
-                                                 make-empty-ribcage
-                                                 new-mark
-                                                 anti-mark
-                                                 the-anti-mark
-                                                 top-marked?
-                                                 top-wrap
-                                                 empty-wrap
-                                                 set-ribcage-labels!
-                                                 set-ribcage-marks!
-                                                 set-ribcage-symnames!
-                                                 ribcage-labels
-                                                 ribcage-marks
-                                                 ribcage-symnames
-                                                 ribcage?
-                                                 make-ribcage
-                                                 gen-labels
-                                                 gen-label
-                                                 make-rename
-                                                 rename-marks
-                                                 rename-new
-                                                 rename-old
-                                                 subst-rename?
-                                                 wrap-subst
-                                                 wrap-marks
-                                                 make-wrap
-                                                 id-sym-name&marks
-                                                 id-sym-name
-                                                 id?
-                                                 nonsymbol-id?
-                                                 global-extend
-                                                 lookup
-                                                 macros-only-env
-                                                 extend-var-env
-                                                 extend-env
-                                                 null-env
-                                                 binding-value
-                                                 binding-type
-                                                 make-binding
-                                                 arg-check
-                                                 source-annotation
-                                                 no-source
-                                                 set-syntax-object-module!
-                                                 set-syntax-object-wrap!
-                                                 set-syntax-object-expression!
-                                                 syntax-object-module
-                                                 syntax-object-wrap
-                                                 syntax-object-expression
-                                                 syntax-object?
-                                                 make-syntax-object
-                                                 build-lexical-var
-                                                 build-letrec
-                                                 build-named-let
-                                                 build-let
-                                                 build-sequence
-                                                 build-data
-                                                 build-primref
-                                                 build-lambda-case
-                                                 build-case-lambda
-                                                 build-simple-lambda
-                                                 build-global-definition
-                                                 build-global-assignment
-                                                 build-global-reference
-                                                 analyze-variable
-                                                 build-lexical-assignment
-                                                 build-lexical-reference
-                                                 build-dynlet
-                                                 build-conditional
-                                                 build-application
-                                                 build-void
-                                                 maybe-name-value!
-                                                 decorate-source
-                                                 get-global-definition-hook
-                                                 put-global-definition-hook
-                                                 gensym-hook
-                                                 local-eval-hook
-                                                 top-level-eval-hook
-                                                 fx<
-                                                 fx=
-                                                 fx-
-                                                 fx+
-                                                 set-lambda-meta!
-                                                 lambda-meta
-                                                 lambda?
-                                                 make-dynlet
-                                                 make-letrec
-                                                 make-let
-                                                 make-lambda-case
-                                                 make-lambda
-                                                 make-sequence
-                                                 make-application
-                                                 make-conditional
-                                                 make-toplevel-define
-                                                 make-toplevel-set
-                                                 make-toplevel-ref
-                                                 make-module-set
-                                                 make-module-ref
-                                                 make-lexical-set
-                                                 make-lexical-ref
-                                                 make-primitive-ref
-                                                 make-const
-                                                 make-void)
-                                               ((top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top))
-                                               ("i467"
-                                                "i465"
-                                                "i463"
-                                                "i461"
-                                                "i459"
-                                                "i457"
-                                                "i455"
-                                                "i453"
-                                                "i451"
-                                                "i449"
-                                                "i447"
-                                                "i445"
-                                                "i443"
-                                                "i441"
-                                                "i439"
-                                                "i437"
-                                                "i435"
-                                                "i433"
-                                                "i431"
-                                                "i429"
-                                                "i427"
-                                                "i425"
-                                                "i423"
-                                                "i421"
-                                                "i419"
-                                                "i417"
-                                                "i415"
-                                                "i413"
-                                                "i411"
-                                                "i409"
-                                                "i407"
-                                                "i405"
-                                                "i403"
-                                                "i401"
-                                                "i399"
-                                                "i398"
-                                                "i396"
-                                                "i393"
-                                                "i392"
-                                                "i391"
-                                                "i389"
-                                                "i388"
-                                                "i386"
-                                                "i384"
-                                                "i382"
-                                                "i380"
-                                                "i378"
-                                                "i376"
-                                                "i374"
-                                                "i372"
-                                                "i369"
-                                                "i367"
-                                                "i366"
-                                                "i364"
-                                                "i362"
-                                                "i360"
-                                                "i358"
-                                                "i357"
-                                                "i356"
-                                                "i355"
-                                                "i353"
-                                                "i352"
-                                                "i349"
-                                                "i347"
-                                                "i345"
-                                                "i343"
-                                                "i341"
-                                                "i339"
-                                                "i337"
-                                                "i336"
-                                                "i335"
-                                                "i333"
-                                                "i331"
-                                                "i330"
-                                                "i327"
-                                                "i326"
-                                                "i324"
-                                                "i322"
-                                                "i320"
-                                                "i318"
-                                                "i316"
-                                                "i314"
-                                                "i312"
-                                                "i310"
-                                                "i308"
-                                                "i305"
-                                                "i303"
-                                                "i301"
-                                                "i299"
-                                                "i297"
-                                                "i295"
-                                                "i293"
-                                                "i291"
-                                                "i289"
-                                                "i287"
-                                                "i285"
-                                                "i283"
-                                                "i281"
-                                                "i279"
-                                                "i277"
-                                                "i275"
-                                                "i273"
-                                                "i271"
-                                                "i269"
-                                                "i267"
-                                                "i265"
-                                                "i263"
-                                                "i261"
-                                                "i260"
-                                                "i257"
-                                                "i255"
-                                                "i254"
-                                                "i253"
-                                                "i252"
-                                                "i251"
-                                                "i249"
-                                                "i247"
-                                                "i245"
-                                                "i242"
-                                                "i240"
-                                                "i238"
-                                                "i236"
-                                                "i234"
-                                                "i232"
-                                                "i230"
-                                                "i228"
-                                                "i226"
-                                                "i224"
-                                                "i222"
-                                                "i220"
-                                                "i218"
-                                                "i216"
-                                                "i214"
-                                                "i212"
-                                                "i210"
-                                                "i208"))
-                                             #(ribcage
-                                               (define-structure
-                                                 define-expansion-accessors
-                                                 define-expansion-constructors)
-                                               ((top) (top) (top))
-                                               ("i46" "i45" "i44")))
-                                            (hygiene guile))))
-                                (eq? (#{id-var-name 4332}# #{x 20313}# '(()))
-                                     (#{id-var-name 4332}#
-                                       '#(syntax-object
-                                          compile
-                                          ((top)
-                                           #(ribcage () () ())
-                                           #(ribcage () () ())
-                                           #(ribcage () () ())
-                                           #(ribcage #(x) #((top)) #("i1754"))
-                                           #(ribcage () () ())
-                                           #(ribcage
-                                             #(f when-list situations)
-                                             #((top) (top) (top))
-                                             #("i1748" "i1749" "i1750"))
-                                           #(ribcage () () ())
-                                           #(ribcage
-                                             #(e when-list w)
-                                             #((top) (top) (top))
-                                             #("i1745" "i1746" "i1747"))
-                                           #(ribcage
-                                             (lambda-var-list
-                                               gen-var
-                                               strip
-                                               chi-lambda-case
-                                               lambda*-formals
-                                               chi-simple-lambda
-                                               lambda-formals
-                                               ellipsis?
-                                               chi-void
-                                               eval-local-transformer
-                                               chi-local-syntax
-                                               chi-body
-                                               chi-macro
-                                               chi-application
-                                               chi-expr
-                                               chi
-                                               syntax-type
-                                               chi-when-list
-                                               chi-install-global
-                                               chi-top-sequence
-                                               chi-sequence
-                                               source-wrap
-                                               wrap
-                                               bound-id-member?
-                                               distinct-bound-ids?
-                                               valid-bound-ids?
-                                               bound-id=?
-                                               free-id=?
-                                               id-var-name
-                                               same-marks?
-                                               join-marks
-                                               join-wraps
-                                               smart-append
-                                               make-binding-wrap
-                                               extend-ribcage!
-                                               make-empty-ribcage
-                                               new-mark
-                                               anti-mark
-                                               the-anti-mark
-                                               top-marked?
-                                               top-wrap
-                                               empty-wrap
-                                               set-ribcage-labels!
-                                               set-ribcage-marks!
-                                               set-ribcage-symnames!
-                                               ribcage-labels
-                                               ribcage-marks
-                                               ribcage-symnames
-                                               ribcage?
-                                               make-ribcage
-                                               gen-labels
-                                               gen-label
-                                               make-rename
-                                               rename-marks
-                                               rename-new
-                                               rename-old
-                                               subst-rename?
-                                               wrap-subst
-                                               wrap-marks
-                                               make-wrap
-                                               id-sym-name&marks
-                                               id-sym-name
-                                               id?
-                                               nonsymbol-id?
-                                               global-extend
-                                               lookup
-                                               macros-only-env
-                                               extend-var-env
-                                               extend-env
-                                               null-env
-                                               binding-value
-                                               binding-type
-                                               make-binding
-                                               arg-check
-                                               source-annotation
-                                               no-source
-                                               set-syntax-object-module!
-                                               set-syntax-object-wrap!
-                                               set-syntax-object-expression!
-                                               syntax-object-module
-                                               syntax-object-wrap
-                                               syntax-object-expression
-                                               syntax-object?
-                                               make-syntax-object
-                                               build-lexical-var
-                                               build-letrec
-                                               build-named-let
-                                               build-let
-                                               build-sequence
-                                               build-data
-                                               build-primref
-                                               build-lambda-case
-                                               build-case-lambda
-                                               build-simple-lambda
-                                               build-global-definition
-                                               build-global-assignment
-                                               build-global-reference
-                                               analyze-variable
-                                               build-lexical-assignment
-                                               build-lexical-reference
-                                               build-dynlet
-                                               build-conditional
-                                               build-application
-                                               build-void
-                                               maybe-name-value!
-                                               decorate-source
-                                               get-global-definition-hook
-                                               put-global-definition-hook
-                                               gensym-hook
-                                               local-eval-hook
-                                               top-level-eval-hook
-                                               fx<
-                                               fx=
-                                               fx-
-                                               fx+
-                                               set-lambda-meta!
-                                               lambda-meta
-                                               lambda?
-                                               make-dynlet
-                                               make-letrec
-                                               make-let
-                                               make-lambda-case
-                                               make-lambda
-                                               make-sequence
-                                               make-application
-                                               make-conditional
-                                               make-toplevel-define
-                                               make-toplevel-set
-                                               make-toplevel-ref
-                                               make-module-set
-                                               make-module-ref
-                                               make-lexical-set
-                                               make-lexical-ref
-                                               make-primitive-ref
-                                               make-const
-                                               make-void)
-                                             ((top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top)
-                                              (top))
-                                             ("i467"
-                                              "i465"
-                                              "i463"
-                                              "i461"
-                                              "i459"
-                                              "i457"
-                                              "i455"
-                                              "i453"
-                                              "i451"
-                                              "i449"
-                                              "i447"
-                                              "i445"
-                                              "i443"
-                                              "i441"
-                                              "i439"
-                                              "i437"
-                                              "i435"
-                                              "i433"
-                                              "i431"
-                                              "i429"
-                                              "i427"
-                                              "i425"
-                                              "i423"
-                                              "i421"
-                                              "i419"
-                                              "i417"
-                                              "i415"
-                                              "i413"
-                                              "i411"
-                                              "i409"
-                                              "i407"
-                                              "i405"
-                                              "i403"
-                                              "i401"
-                                              "i399"
-                                              "i398"
-                                              "i396"
-                                              "i393"
-                                              "i392"
-                                              "i391"
-                                              "i389"
-                                              "i388"
-                                              "i386"
-                                              "i384"
-                                              "i382"
-                                              "i380"
-                                              "i378"
-                                              "i376"
-                                              "i374"
-                                              "i372"
-                                              "i369"
-                                              "i367"
-                                              "i366"
-                                              "i364"
-                                              "i362"
-                                              "i360"
-                                              "i358"
-                                              "i357"
-                                              "i356"
-                                              "i355"
-                                              "i353"
-                                              "i352"
-                                              "i349"
-                                              "i347"
-                                              "i345"
-                                              "i343"
-                                              "i341"
-                                              "i339"
-                                              "i337"
-                                              "i336"
-                                              "i335"
-                                              "i333"
-                                              "i331"
-                                              "i330"
-                                              "i327"
-                                              "i326"
-                                              "i324"
-                                              "i322"
-                                              "i320"
-                                              "i318"
-                                              "i316"
-                                              "i314"
-                                              "i312"
-                                              "i310"
-                                              "i308"
-                                              "i305"
-                                              "i303"
-                                              "i301"
-                                              "i299"
-                                              "i297"
-                                              "i295"
-                                              "i293"
-                                              "i291"
-                                              "i289"
-                                              "i287"
-                                              "i285"
-                                              "i283"
-                                              "i281"
-                                              "i279"
-                                              "i277"
-                                              "i275"
-                                              "i273"
-                                              "i271"
-                                              "i269"
-                                              "i267"
-                                              "i265"
-                                              "i263"
-                                              "i261"
-                                              "i260"
-                                              "i257"
-                                              "i255"
-                                              "i254"
-                                              "i253"
-                                              "i252"
-                                              "i251"
-                                              "i249"
-                                              "i247"
-                                              "i245"
-                                              "i242"
-                                              "i240"
-                                              "i238"
-                                              "i236"
-                                              "i234"
-                                              "i232"
-                                              "i230"
-                                              "i228"
-                                              "i226"
-                                              "i224"
-                                              "i222"
-                                              "i220"
-                                              "i218"
-                                              "i216"
-                                              "i214"
-                                              "i212"
-                                              "i210"
-                                              "i208"))
-                                           #(ribcage
-                                             (define-structure
-                                               define-expansion-accessors
-                                               define-expansion-constructors)
-                                             ((top) (top) (top))
-                                             ("i46" "i45" "i44")))
-                                          (hygiene guile))
-                                       '(())))
-                                #f)
-                            'compile
-                            (if (if (eq? (if (if (vector? #{x 20313}#)
-                                               (if (= (vector-length
-                                                        #{x 20313}#)
-                                                      4)
-                                                 (eq? (vector-ref
-                                                        #{x 20313}#
-                                                        0)
-                                                      'syntax-object)
-                                                 #f)
-                                               #f)
-                                           (vector-ref #{x 20313}# 1)
-                                           #{x 20313}#)
-                                         (if (if (= (vector-length
-                                                      '#(syntax-object
-                                                         load
-                                                         ((top)
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(x)
-                                                            #((top))
-                                                            #("i1754"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(f
-                                                              when-list
-                                                              situations)
-                                                            #((top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1748"
-                                                              "i1749"
-                                                              "i1750"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(e when-list w)
-                                                            #((top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1745"
-                                                              "i1746"
-                                                              "i1747"))
-                                                          #(ribcage
-                                                            (lambda-var-list
-                                                              gen-var
-                                                              strip
-                                                              chi-lambda-case
-                                                              lambda*-formals
-                                                              chi-simple-lambda
-                                                              lambda-formals
-                                                              ellipsis?
-                                                              chi-void
-                                                              
eval-local-transformer
-                                                              chi-local-syntax
-                                                              chi-body
-                                                              chi-macro
-                                                              chi-application
-                                                              chi-expr
-                                                              chi
-                                                              syntax-type
-                                                              chi-when-list
-                                                              
chi-install-global
-                                                              chi-top-sequence
-                                                              chi-sequence
-                                                              source-wrap
-                                                              wrap
-                                                              bound-id-member?
-                                                              
distinct-bound-ids?
-                                                              valid-bound-ids?
-                                                              bound-id=?
-                                                              free-id=?
-                                                              id-var-name
-                                                              same-marks?
-                                                              join-marks
-                                                              join-wraps
-                                                              smart-append
-                                                              make-binding-wrap
-                                                              extend-ribcage!
-                                                              
make-empty-ribcage
-                                                              new-mark
-                                                              anti-mark
-                                                              the-anti-mark
-                                                              top-marked?
-                                                              top-wrap
-                                                              empty-wrap
-                                                              
set-ribcage-labels!
-                                                              
set-ribcage-marks!
-                                                              
set-ribcage-symnames!
-                                                              ribcage-labels
-                                                              ribcage-marks
-                                                              ribcage-symnames
-                                                              ribcage?
-                                                              make-ribcage
-                                                              gen-labels
-                                                              gen-label
-                                                              make-rename
-                                                              rename-marks
-                                                              rename-new
-                                                              rename-old
-                                                              subst-rename?
-                                                              wrap-subst
-                                                              wrap-marks
-                                                              make-wrap
-                                                              id-sym-name&marks
-                                                              id-sym-name
-                                                              id?
-                                                              nonsymbol-id?
-                                                              global-extend
-                                                              lookup
-                                                              macros-only-env
-                                                              extend-var-env
-                                                              extend-env
-                                                              null-env
-                                                              binding-value
-                                                              binding-type
-                                                              make-binding
-                                                              arg-check
-                                                              source-annotation
-                                                              no-source
-                                                              
set-syntax-object-module!
-                                                              
set-syntax-object-wrap!
-                                                              
set-syntax-object-expression!
-                                                              
syntax-object-module
-                                                              
syntax-object-wrap
-                                                              
syntax-object-expression
-                                                              syntax-object?
-                                                              
make-syntax-object
-                                                              build-lexical-var
-                                                              build-letrec
-                                                              build-named-let
-                                                              build-let
-                                                              build-sequence
-                                                              build-data
-                                                              build-primref
-                                                              build-lambda-case
-                                                              build-case-lambda
-                                                              
build-simple-lambda
-                                                              
build-global-definition
-                                                              
build-global-assignment
-                                                              
build-global-reference
-                                                              analyze-variable
-                                                              
build-lexical-assignment
-                                                              
build-lexical-reference
-                                                              build-dynlet
-                                                              build-conditional
-                                                              build-application
-                                                              build-void
-                                                              maybe-name-value!
-                                                              decorate-source
-                                                              
get-global-definition-hook
-                                                              
put-global-definition-hook
-                                                              gensym-hook
-                                                              local-eval-hook
-                                                              
top-level-eval-hook
-                                                              fx<
-                                                              fx=
-                                                              fx-
-                                                              fx+
-                                                              set-lambda-meta!
-                                                              lambda-meta
-                                                              lambda?
-                                                              make-dynlet
-                                                              make-letrec
-                                                              make-let
-                                                              make-lambda-case
-                                                              make-lambda
-                                                              make-sequence
-                                                              make-application
-                                                              make-conditional
-                                                              
make-toplevel-define
-                                                              make-toplevel-set
-                                                              make-toplevel-ref
-                                                              make-module-set
-                                                              make-module-ref
-                                                              make-lexical-set
-                                                              make-lexical-ref
-                                                              
make-primitive-ref
-                                                              make-const
-                                                              make-void)
-                                                            ((top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top))
-                                                            ("i467"
-                                                             "i465"
-                                                             "i463"
-                                                             "i461"
-                                                             "i459"
-                                                             "i457"
-                                                             "i455"
-                                                             "i453"
-                                                             "i451"
-                                                             "i449"
-                                                             "i447"
-                                                             "i445"
-                                                             "i443"
-                                                             "i441"
-                                                             "i439"
-                                                             "i437"
-                                                             "i435"
-                                                             "i433"
-                                                             "i431"
-                                                             "i429"
-                                                             "i427"
-                                                             "i425"
-                                                             "i423"
-                                                             "i421"
-                                                             "i419"
-                                                             "i417"
-                                                             "i415"
-                                                             "i413"
-                                                             "i411"
-                                                             "i409"
-                                                             "i407"
-                                                             "i405"
-                                                             "i403"
-                                                             "i401"
-                                                             "i399"
-                                                             "i398"
-                                                             "i396"
-                                                             "i393"
-                                                             "i392"
-                                                             "i391"
-                                                             "i389"
-                                                             "i388"
-                                                             "i386"
-                                                             "i384"
-                                                             "i382"
-                                                             "i380"
-                                                             "i378"
-                                                             "i376"
-                                                             "i374"
-                                                             "i372"
-                                                             "i369"
-                                                             "i367"
-                                                             "i366"
-                                                             "i364"
-                                                             "i362"
-                                                             "i360"
-                                                             "i358"
-                                                             "i357"
-                                                             "i356"
-                                                             "i355"
-                                                             "i353"
-                                                             "i352"
-                                                             "i349"
-                                                             "i347"
-                                                             "i345"
-                                                             "i343"
-                                                             "i341"
-                                                             "i339"
-                                                             "i337"
-                                                             "i336"
-                                                             "i335"
-                                                             "i333"
-                                                             "i331"
-                                                             "i330"
-                                                             "i327"
-                                                             "i326"
-                                                             "i324"
-                                                             "i322"
-                                                             "i320"
-                                                             "i318"
-                                                             "i316"
-                                                             "i314"
-                                                             "i312"
-                                                             "i310"
-                                                             "i308"
-                                                             "i305"
-                                                             "i303"
-                                                             "i301"
-                                                             "i299"
-                                                             "i297"
-                                                             "i295"
-                                                             "i293"
-                                                             "i291"
-                                                             "i289"
-                                                             "i287"
-                                                             "i285"
-                                                             "i283"
-                                                             "i281"
-                                                             "i279"
-                                                             "i277"
-                                                             "i275"
-                                                             "i273"
-                                                             "i271"
-                                                             "i269"
-                                                             "i267"
-                                                             "i265"
-                                                             "i263"
-                                                             "i261"
-                                                             "i260"
-                                                             "i257"
-                                                             "i255"
-                                                             "i254"
-                                                             "i253"
-                                                             "i252"
-                                                             "i251"
-                                                             "i249"
-                                                             "i247"
-                                                             "i245"
-                                                             "i242"
-                                                             "i240"
-                                                             "i238"
-                                                             "i236"
-                                                             "i234"
-                                                             "i232"
-                                                             "i230"
-                                                             "i228"
-                                                             "i226"
-                                                             "i224"
-                                                             "i222"
-                                                             "i220"
-                                                             "i218"
-                                                             "i216"
-                                                             "i214"
-                                                             "i212"
-                                                             "i210"
-                                                             "i208"))
-                                                          #(ribcage
-                                                            (define-structure
-                                                              
define-expansion-accessors
-                                                              
define-expansion-constructors)
-                                                            ((top) (top) (top))
-                                                            ("i46"
-                                                             "i45"
-                                                             "i44")))
-                                                         (hygiene guile)))
-                                                    4)
-                                               (eq? (vector-ref
-                                                      '#(syntax-object
-                                                         load
-                                                         ((top)
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(x)
-                                                            #((top))
-                                                            #("i1754"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(f
-                                                              when-list
-                                                              situations)
-                                                            #((top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1748"
-                                                              "i1749"
-                                                              "i1750"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(e when-list w)
-                                                            #((top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1745"
-                                                              "i1746"
-                                                              "i1747"))
-                                                          #(ribcage
-                                                            (lambda-var-list
-                                                              gen-var
-                                                              strip
-                                                              chi-lambda-case
-                                                              lambda*-formals
-                                                              chi-simple-lambda
-                                                              lambda-formals
-                                                              ellipsis?
-                                                              chi-void
-                                                              
eval-local-transformer
-                                                              chi-local-syntax
-                                                              chi-body
-                                                              chi-macro
-                                                              chi-application
-                                                              chi-expr
-                                                              chi
-                                                              syntax-type
-                                                              chi-when-list
-                                                              
chi-install-global
-                                                              chi-top-sequence
-                                                              chi-sequence
-                                                              source-wrap
-                                                              wrap
-                                                              bound-id-member?
-                                                              
distinct-bound-ids?
-                                                              valid-bound-ids?
-                                                              bound-id=?
-                                                              free-id=?
-                                                              id-var-name
-                                                              same-marks?
-                                                              join-marks
-                                                              join-wraps
-                                                              smart-append
-                                                              make-binding-wrap
-                                                              extend-ribcage!
-                                                              
make-empty-ribcage
-                                                              new-mark
-                                                              anti-mark
-                                                              the-anti-mark
-                                                              top-marked?
-                                                              top-wrap
-                                                              empty-wrap
-                                                              
set-ribcage-labels!
-                                                              
set-ribcage-marks!
-                                                              
set-ribcage-symnames!
-                                                              ribcage-labels
-                                                              ribcage-marks
-                                                              ribcage-symnames
-                                                              ribcage?
-                                                              make-ribcage
-                                                              gen-labels
-                                                              gen-label
-                                                              make-rename
-                                                              rename-marks
-                                                              rename-new
-                                                              rename-old
-                                                              subst-rename?
-                                                              wrap-subst
-                                                              wrap-marks
-                                                              make-wrap
-                                                              id-sym-name&marks
-                                                              id-sym-name
-                                                              id?
-                                                              nonsymbol-id?
-                                                              global-extend
-                                                              lookup
-                                                              macros-only-env
-                                                              extend-var-env
-                                                              extend-env
-                                                              null-env
-                                                              binding-value
-                                                              binding-type
-                                                              make-binding
-                                                              arg-check
-                                                              source-annotation
-                                                              no-source
-                                                              
set-syntax-object-module!
-                                                              
set-syntax-object-wrap!
-                                                              
set-syntax-object-expression!
-                                                              
syntax-object-module
-                                                              
syntax-object-wrap
-                                                              
syntax-object-expression
-                                                              syntax-object?
-                                                              
make-syntax-object
-                                                              build-lexical-var
-                                                              build-letrec
-                                                              build-named-let
-                                                              build-let
-                                                              build-sequence
-                                                              build-data
-                                                              build-primref
-                                                              build-lambda-case
-                                                              build-case-lambda
-                                                              
build-simple-lambda
-                                                              
build-global-definition
-                                                              
build-global-assignment
-                                                              
build-global-reference
-                                                              analyze-variable
-                                                              
build-lexical-assignment
-                                                              
build-lexical-reference
-                                                              build-dynlet
-                                                              build-conditional
-                                                              build-application
-                                                              build-void
-                                                              maybe-name-value!
-                                                              decorate-source
-                                                              
get-global-definition-hook
-                                                              
put-global-definition-hook
-                                                              gensym-hook
-                                                              local-eval-hook
-                                                              
top-level-eval-hook
-                                                              fx<
-                                                              fx=
-                                                              fx-
-                                                              fx+
-                                                              set-lambda-meta!
-                                                              lambda-meta
-                                                              lambda?
-                                                              make-dynlet
-                                                              make-letrec
-                                                              make-let
-                                                              make-lambda-case
-                                                              make-lambda
-                                                              make-sequence
-                                                              make-application
-                                                              make-conditional
-                                                              
make-toplevel-define
-                                                              make-toplevel-set
-                                                              make-toplevel-ref
-                                                              make-module-set
-                                                              make-module-ref
-                                                              make-lexical-set
-                                                              make-lexical-ref
-                                                              
make-primitive-ref
-                                                              make-const
-                                                              make-void)
-                                                            ((top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top))
-                                                            ("i467"
-                                                             "i465"
-                                                             "i463"
-                                                             "i461"
-                                                             "i459"
-                                                             "i457"
-                                                             "i455"
-                                                             "i453"
-                                                             "i451"
-                                                             "i449"
-                                                             "i447"
-                                                             "i445"
-                                                             "i443"
-                                                             "i441"
-                                                             "i439"
-                                                             "i437"
-                                                             "i435"
-                                                             "i433"
-                                                             "i431"
-                                                             "i429"
-                                                             "i427"
-                                                             "i425"
-                                                             "i423"
-                                                             "i421"
-                                                             "i419"
-                                                             "i417"
-                                                             "i415"
-                                                             "i413"
-                                                             "i411"
-                                                             "i409"
-                                                             "i407"
-                                                             "i405"
-                                                             "i403"
-                                                             "i401"
-                                                             "i399"
-                                                             "i398"
-                                                             "i396"
-                                                             "i393"
-                                                             "i392"
-                                                             "i391"
-                                                             "i389"
-                                                             "i388"
-                                                             "i386"
-                                                             "i384"
-                                                             "i382"
-                                                             "i380"
-                                                             "i378"
-                                                             "i376"
-                                                             "i374"
-                                                             "i372"
-                                                             "i369"
-                                                             "i367"
-                                                             "i366"
-                                                             "i364"
-                                                             "i362"
-                                                             "i360"
-                                                             "i358"
-                                                             "i357"
-                                                             "i356"
-                                                             "i355"
-                                                             "i353"
-                                                             "i352"
-                                                             "i349"
-                                                             "i347"
-                                                             "i345"
-                                                             "i343"
-                                                             "i341"
-                                                             "i339"
-                                                             "i337"
-                                                             "i336"
-                                                             "i335"
-                                                             "i333"
-                                                             "i331"
-                                                             "i330"
-                                                             "i327"
-                                                             "i326"
-                                                             "i324"
-                                                             "i322"
-                                                             "i320"
-                                                             "i318"
-                                                             "i316"
-                                                             "i314"
-                                                             "i312"
-                                                             "i310"
-                                                             "i308"
-                                                             "i305"
-                                                             "i303"
-                                                             "i301"
-                                                             "i299"
-                                                             "i297"
-                                                             "i295"
-                                                             "i293"
-                                                             "i291"
-                                                             "i289"
-                                                             "i287"
-                                                             "i285"
-                                                             "i283"
-                                                             "i281"
-                                                             "i279"
-                                                             "i277"
-                                                             "i275"
-                                                             "i273"
-                                                             "i271"
-                                                             "i269"
-                                                             "i267"
-                                                             "i265"
-                                                             "i263"
-                                                             "i261"
-                                                             "i260"
-                                                             "i257"
-                                                             "i255"
-                                                             "i254"
-                                                             "i253"
-                                                             "i252"
-                                                             "i251"
-                                                             "i249"
-                                                             "i247"
-                                                             "i245"
-                                                             "i242"
-                                                             "i240"
-                                                             "i238"
-                                                             "i236"
-                                                             "i234"
-                                                             "i232"
-                                                             "i230"
-                                                             "i228"
-                                                             "i226"
-                                                             "i224"
-                                                             "i222"
-                                                             "i220"
-                                                             "i218"
-                                                             "i216"
-                                                             "i214"
-                                                             "i212"
-                                                             "i210"
-                                                             "i208"))
-                                                          #(ribcage
-                                                            (define-structure
-                                                              
define-expansion-accessors
-                                                              
define-expansion-constructors)
-                                                            ((top) (top) (top))
-                                                            ("i46"
-                                                             "i45"
-                                                             "i44")))
-                                                         (hygiene guile))
-                                                      0)
-                                                    'syntax-object)
-                                               #f)
-                                           (vector-ref
-                                             '#(syntax-object
-                                                load
-                                                ((top)
-                                                 #(ribcage () () ())
-                                                 #(ribcage () () ())
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(x)
-                                                   #((top))
-                                                   #("i1754"))
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(f when-list situations)
-                                                   #((top) (top) (top))
-                                                   #("i1748" "i1749" "i1750"))
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(e when-list w)
-                                                   #((top) (top) (top))
-                                                   #("i1745" "i1746" "i1747"))
-                                                 #(ribcage
-                                                   (lambda-var-list
-                                                     gen-var
-                                                     strip
-                                                     chi-lambda-case
-                                                     lambda*-formals
-                                                     chi-simple-lambda
-                                                     lambda-formals
-                                                     ellipsis?
-                                                     chi-void
-                                                     eval-local-transformer
-                                                     chi-local-syntax
-                                                     chi-body
-                                                     chi-macro
-                                                     chi-application
-                                                     chi-expr
-                                                     chi
-                                                     syntax-type
-                                                     chi-when-list
-                                                     chi-install-global
-                                                     chi-top-sequence
-                                                     chi-sequence
-                                                     source-wrap
-                                                     wrap
-                                                     bound-id-member?
-                                                     distinct-bound-ids?
-                                                     valid-bound-ids?
-                                                     bound-id=?
-                                                     free-id=?
-                                                     id-var-name
-                                                     same-marks?
-                                                     join-marks
-                                                     join-wraps
-                                                     smart-append
-                                                     make-binding-wrap
-                                                     extend-ribcage!
-                                                     make-empty-ribcage
-                                                     new-mark
-                                                     anti-mark
-                                                     the-anti-mark
-                                                     top-marked?
-                                                     top-wrap
-                                                     empty-wrap
-                                                     set-ribcage-labels!
-                                                     set-ribcage-marks!
-                                                     set-ribcage-symnames!
-                                                     ribcage-labels
-                                                     ribcage-marks
-                                                     ribcage-symnames
-                                                     ribcage?
-                                                     make-ribcage
-                                                     gen-labels
-                                                     gen-label
-                                                     make-rename
-                                                     rename-marks
-                                                     rename-new
-                                                     rename-old
-                                                     subst-rename?
-                                                     wrap-subst
-                                                     wrap-marks
-                                                     make-wrap
-                                                     id-sym-name&marks
-                                                     id-sym-name
-                                                     id?
-                                                     nonsymbol-id?
-                                                     global-extend
-                                                     lookup
-                                                     macros-only-env
-                                                     extend-var-env
-                                                     extend-env
-                                                     null-env
-                                                     binding-value
-                                                     binding-type
-                                                     make-binding
-                                                     arg-check
-                                                     source-annotation
-                                                     no-source
-                                                     set-syntax-object-module!
-                                                     set-syntax-object-wrap!
-                                                     
set-syntax-object-expression!
-                                                     syntax-object-module
-                                                     syntax-object-wrap
-                                                     syntax-object-expression
-                                                     syntax-object?
-                                                     make-syntax-object
-                                                     build-lexical-var
-                                                     build-letrec
-                                                     build-named-let
-                                                     build-let
-                                                     build-sequence
-                                                     build-data
-                                                     build-primref
-                                                     build-lambda-case
-                                                     build-case-lambda
-                                                     build-simple-lambda
-                                                     build-global-definition
-                                                     build-global-assignment
-                                                     build-global-reference
-                                                     analyze-variable
-                                                     build-lexical-assignment
-                                                     build-lexical-reference
-                                                     build-dynlet
-                                                     build-conditional
-                                                     build-application
-                                                     build-void
-                                                     maybe-name-value!
-                                                     decorate-source
-                                                     get-global-definition-hook
-                                                     put-global-definition-hook
-                                                     gensym-hook
-                                                     local-eval-hook
-                                                     top-level-eval-hook
-                                                     fx<
-                                                     fx=
-                                                     fx-
-                                                     fx+
-                                                     set-lambda-meta!
-                                                     lambda-meta
-                                                     lambda?
-                                                     make-dynlet
-                                                     make-letrec
-                                                     make-let
-                                                     make-lambda-case
-                                                     make-lambda
-                                                     make-sequence
-                                                     make-application
-                                                     make-conditional
-                                                     make-toplevel-define
-                                                     make-toplevel-set
-                                                     make-toplevel-ref
-                                                     make-module-set
-                                                     make-module-ref
-                                                     make-lexical-set
-                                                     make-lexical-ref
-                                                     make-primitive-ref
-                                                     make-const
-                                                     make-void)
-                                                   ((top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top))
-                                                   ("i467"
-                                                    "i465"
-                                                    "i463"
-                                                    "i461"
-                                                    "i459"
-                                                    "i457"
-                                                    "i455"
-                                                    "i453"
-                                                    "i451"
-                                                    "i449"
-                                                    "i447"
-                                                    "i445"
-                                                    "i443"
-                                                    "i441"
-                                                    "i439"
-                                                    "i437"
-                                                    "i435"
-                                                    "i433"
-                                                    "i431"
-                                                    "i429"
-                                                    "i427"
-                                                    "i425"
-                                                    "i423"
-                                                    "i421"
-                                                    "i419"
-                                                    "i417"
-                                                    "i415"
-                                                    "i413"
-                                                    "i411"
-                                                    "i409"
-                                                    "i407"
-                                                    "i405"
-                                                    "i403"
-                                                    "i401"
-                                                    "i399"
-                                                    "i398"
-                                                    "i396"
-                                                    "i393"
-                                                    "i392"
-                                                    "i391"
-                                                    "i389"
-                                                    "i388"
-                                                    "i386"
-                                                    "i384"
-                                                    "i382"
-                                                    "i380"
-                                                    "i378"
-                                                    "i376"
-                                                    "i374"
-                                                    "i372"
-                                                    "i369"
-                                                    "i367"
-                                                    "i366"
-                                                    "i364"
-                                                    "i362"
-                                                    "i360"
-                                                    "i358"
-                                                    "i357"
-                                                    "i356"
-                                                    "i355"
-                                                    "i353"
-                                                    "i352"
-                                                    "i349"
-                                                    "i347"
-                                                    "i345"
-                                                    "i343"
-                                                    "i341"
-                                                    "i339"
-                                                    "i337"
-                                                    "i336"
-                                                    "i335"
-                                                    "i333"
-                                                    "i331"
-                                                    "i330"
-                                                    "i327"
-                                                    "i326"
-                                                    "i324"
-                                                    "i322"
-                                                    "i320"
-                                                    "i318"
-                                                    "i316"
-                                                    "i314"
-                                                    "i312"
-                                                    "i310"
-                                                    "i308"
-                                                    "i305"
-                                                    "i303"
-                                                    "i301"
-                                                    "i299"
-                                                    "i297"
-                                                    "i295"
-                                                    "i293"
-                                                    "i291"
-                                                    "i289"
-                                                    "i287"
-                                                    "i285"
-                                                    "i283"
-                                                    "i281"
-                                                    "i279"
-                                                    "i277"
-                                                    "i275"
-                                                    "i273"
-                                                    "i271"
-                                                    "i269"
-                                                    "i267"
-                                                    "i265"
-                                                    "i263"
-                                                    "i261"
-                                                    "i260"
-                                                    "i257"
-                                                    "i255"
-                                                    "i254"
-                                                    "i253"
-                                                    "i252"
-                                                    "i251"
-                                                    "i249"
-                                                    "i247"
-                                                    "i245"
-                                                    "i242"
-                                                    "i240"
-                                                    "i238"
-                                                    "i236"
-                                                    "i234"
-                                                    "i232"
-                                                    "i230"
-                                                    "i228"
-                                                    "i226"
-                                                    "i224"
-                                                    "i222"
-                                                    "i220"
-                                                    "i218"
-                                                    "i216"
-                                                    "i214"
-                                                    "i212"
-                                                    "i210"
-                                                    "i208"))
-                                                 #(ribcage
-                                                   (define-structure
-                                                     define-expansion-accessors
-                                                     
define-expansion-constructors)
-                                                   ((top) (top) (top))
-                                                   ("i46" "i45" "i44")))
-                                                (hygiene guile))
-                                             1)
-                                           '#(syntax-object
-                                              load
-                                              ((top)
-                                               #(ribcage () () ())
-                                               #(ribcage () () ())
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(x)
-                                                 #((top))
-                                                 #("i1754"))
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(f when-list situations)
-                                                 #((top) (top) (top))
-                                                 #("i1748" "i1749" "i1750"))
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(e when-list w)
-                                                 #((top) (top) (top))
-                                                 #("i1745" "i1746" "i1747"))
-                                               #(ribcage
-                                                 (lambda-var-list
-                                                   gen-var
-                                                   strip
-                                                   chi-lambda-case
-                                                   lambda*-formals
-                                                   chi-simple-lambda
-                                                   lambda-formals
-                                                   ellipsis?
-                                                   chi-void
-                                                   eval-local-transformer
-                                                   chi-local-syntax
-                                                   chi-body
-                                                   chi-macro
-                                                   chi-application
-                                                   chi-expr
-                                                   chi
-                                                   syntax-type
-                                                   chi-when-list
-                                                   chi-install-global
-                                                   chi-top-sequence
-                                                   chi-sequence
-                                                   source-wrap
-                                                   wrap
-                                                   bound-id-member?
-                                                   distinct-bound-ids?
-                                                   valid-bound-ids?
-                                                   bound-id=?
-                                                   free-id=?
-                                                   id-var-name
-                                                   same-marks?
-                                                   join-marks
-                                                   join-wraps
-                                                   smart-append
-                                                   make-binding-wrap
-                                                   extend-ribcage!
-                                                   make-empty-ribcage
-                                                   new-mark
-                                                   anti-mark
-                                                   the-anti-mark
-                                                   top-marked?
-                                                   top-wrap
-                                                   empty-wrap
-                                                   set-ribcage-labels!
-                                                   set-ribcage-marks!
-                                                   set-ribcage-symnames!
-                                                   ribcage-labels
-                                                   ribcage-marks
-                                                   ribcage-symnames
-                                                   ribcage?
-                                                   make-ribcage
-                                                   gen-labels
-                                                   gen-label
-                                                   make-rename
-                                                   rename-marks
-                                                   rename-new
-                                                   rename-old
-                                                   subst-rename?
-                                                   wrap-subst
-                                                   wrap-marks
-                                                   make-wrap
-                                                   id-sym-name&marks
-                                                   id-sym-name
-                                                   id?
-                                                   nonsymbol-id?
-                                                   global-extend
-                                                   lookup
-                                                   macros-only-env
-                                                   extend-var-env
-                                                   extend-env
-                                                   null-env
-                                                   binding-value
-                                                   binding-type
-                                                   make-binding
-                                                   arg-check
-                                                   source-annotation
-                                                   no-source
-                                                   set-syntax-object-module!
-                                                   set-syntax-object-wrap!
-                                                   
set-syntax-object-expression!
-                                                   syntax-object-module
-                                                   syntax-object-wrap
-                                                   syntax-object-expression
-                                                   syntax-object?
-                                                   make-syntax-object
-                                                   build-lexical-var
-                                                   build-letrec
-                                                   build-named-let
-                                                   build-let
-                                                   build-sequence
-                                                   build-data
-                                                   build-primref
-                                                   build-lambda-case
-                                                   build-case-lambda
-                                                   build-simple-lambda
-                                                   build-global-definition
-                                                   build-global-assignment
-                                                   build-global-reference
-                                                   analyze-variable
-                                                   build-lexical-assignment
-                                                   build-lexical-reference
-                                                   build-dynlet
-                                                   build-conditional
-                                                   build-application
-                                                   build-void
-                                                   maybe-name-value!
-                                                   decorate-source
-                                                   get-global-definition-hook
-                                                   put-global-definition-hook
-                                                   gensym-hook
-                                                   local-eval-hook
-                                                   top-level-eval-hook
-                                                   fx<
-                                                   fx=
-                                                   fx-
-                                                   fx+
-                                                   set-lambda-meta!
-                                                   lambda-meta
-                                                   lambda?
-                                                   make-dynlet
-                                                   make-letrec
-                                                   make-let
-                                                   make-lambda-case
-                                                   make-lambda
-                                                   make-sequence
-                                                   make-application
-                                                   make-conditional
-                                                   make-toplevel-define
-                                                   make-toplevel-set
-                                                   make-toplevel-ref
-                                                   make-module-set
-                                                   make-module-ref
-                                                   make-lexical-set
-                                                   make-lexical-ref
-                                                   make-primitive-ref
-                                                   make-const
-                                                   make-void)
-                                                 ((top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top))
-                                                 ("i467"
-                                                  "i465"
-                                                  "i463"
-                                                  "i461"
-                                                  "i459"
-                                                  "i457"
-                                                  "i455"
-                                                  "i453"
-                                                  "i451"
-                                                  "i449"
-                                                  "i447"
-                                                  "i445"
-                                                  "i443"
-                                                  "i441"
-                                                  "i439"
-                                                  "i437"
-                                                  "i435"
-                                                  "i433"
-                                                  "i431"
-                                                  "i429"
-                                                  "i427"
-                                                  "i425"
-                                                  "i423"
-                                                  "i421"
-                                                  "i419"
-                                                  "i417"
-                                                  "i415"
-                                                  "i413"
-                                                  "i411"
-                                                  "i409"
-                                                  "i407"
-                                                  "i405"
-                                                  "i403"
-                                                  "i401"
-                                                  "i399"
-                                                  "i398"
-                                                  "i396"
-                                                  "i393"
-                                                  "i392"
-                                                  "i391"
-                                                  "i389"
-                                                  "i388"
-                                                  "i386"
-                                                  "i384"
-                                                  "i382"
-                                                  "i380"
-                                                  "i378"
-                                                  "i376"
-                                                  "i374"
-                                                  "i372"
-                                                  "i369"
-                                                  "i367"
-                                                  "i366"
-                                                  "i364"
-                                                  "i362"
-                                                  "i360"
-                                                  "i358"
-                                                  "i357"
-                                                  "i356"
-                                                  "i355"
-                                                  "i353"
-                                                  "i352"
-                                                  "i349"
-                                                  "i347"
-                                                  "i345"
-                                                  "i343"
-                                                  "i341"
-                                                  "i339"
-                                                  "i337"
-                                                  "i336"
-                                                  "i335"
-                                                  "i333"
-                                                  "i331"
-                                                  "i330"
-                                                  "i327"
-                                                  "i326"
-                                                  "i324"
-                                                  "i322"
-                                                  "i320"
-                                                  "i318"
-                                                  "i316"
-                                                  "i314"
-                                                  "i312"
-                                                  "i310"
-                                                  "i308"
-                                                  "i305"
-                                                  "i303"
-                                                  "i301"
-                                                  "i299"
-                                                  "i297"
-                                                  "i295"
-                                                  "i293"
-                                                  "i291"
-                                                  "i289"
-                                                  "i287"
-                                                  "i285"
-                                                  "i283"
-                                                  "i281"
-                                                  "i279"
-                                                  "i277"
-                                                  "i275"
-                                                  "i273"
-                                                  "i271"
-                                                  "i269"
-                                                  "i267"
-                                                  "i265"
-                                                  "i263"
-                                                  "i261"
-                                                  "i260"
-                                                  "i257"
-                                                  "i255"
-                                                  "i254"
-                                                  "i253"
-                                                  "i252"
-                                                  "i251"
-                                                  "i249"
-                                                  "i247"
-                                                  "i245"
-                                                  "i242"
-                                                  "i240"
-                                                  "i238"
-                                                  "i236"
-                                                  "i234"
-                                                  "i232"
-                                                  "i230"
-                                                  "i228"
-                                                  "i226"
-                                                  "i224"
-                                                  "i222"
-                                                  "i220"
-                                                  "i218"
-                                                  "i216"
-                                                  "i214"
-                                                  "i212"
-                                                  "i210"
-                                                  "i208"))
-                                               #(ribcage
-                                                 (define-structure
-                                                   define-expansion-accessors
-                                                   
define-expansion-constructors)
-                                                 ((top) (top) (top))
-                                                 ("i46" "i45" "i44")))
-                                              (hygiene guile))))
-                                  (eq? (#{id-var-name 4332}# #{x 20313}# '(()))
-                                       (#{id-var-name 4332}#
-                                         '#(syntax-object
-                                            load
-                                            ((top)
-                                             #(ribcage () () ())
-                                             #(ribcage () () ())
-                                             #(ribcage () () ())
-                                             #(ribcage
-                                               #(x)
-                                               #((top))
-                                               #("i1754"))
-                                             #(ribcage () () ())
-                                             #(ribcage
-                                               #(f when-list situations)
-                                               #((top) (top) (top))
-                                               #("i1748" "i1749" "i1750"))
-                                             #(ribcage () () ())
-                                             #(ribcage
-                                               #(e when-list w)
-                                               #((top) (top) (top))
-                                               #("i1745" "i1746" "i1747"))
-                                             #(ribcage
-                                               (lambda-var-list
-                                                 gen-var
-                                                 strip
-                                                 chi-lambda-case
-                                                 lambda*-formals
-                                                 chi-simple-lambda
-                                                 lambda-formals
-                                                 ellipsis?
-                                                 chi-void
-                                                 eval-local-transformer
-                                                 chi-local-syntax
-                                                 chi-body
-                                                 chi-macro
-                                                 chi-application
-                                                 chi-expr
-                                                 chi
-                                                 syntax-type
-                                                 chi-when-list
-                                                 chi-install-global
-                                                 chi-top-sequence
-                                                 chi-sequence
-                                                 source-wrap
-                                                 wrap
-                                                 bound-id-member?
-                                                 distinct-bound-ids?
-                                                 valid-bound-ids?
-                                                 bound-id=?
-                                                 free-id=?
-                                                 id-var-name
-                                                 same-marks?
-                                                 join-marks
-                                                 join-wraps
-                                                 smart-append
-                                                 make-binding-wrap
-                                                 extend-ribcage!
-                                                 make-empty-ribcage
-                                                 new-mark
-                                                 anti-mark
-                                                 the-anti-mark
-                                                 top-marked?
-                                                 top-wrap
-                                                 empty-wrap
-                                                 set-ribcage-labels!
-                                                 set-ribcage-marks!
-                                                 set-ribcage-symnames!
-                                                 ribcage-labels
-                                                 ribcage-marks
-                                                 ribcage-symnames
-                                                 ribcage?
-                                                 make-ribcage
-                                                 gen-labels
-                                                 gen-label
-                                                 make-rename
-                                                 rename-marks
-                                                 rename-new
-                                                 rename-old
-                                                 subst-rename?
-                                                 wrap-subst
-                                                 wrap-marks
-                                                 make-wrap
-                                                 id-sym-name&marks
-                                                 id-sym-name
-                                                 id?
-                                                 nonsymbol-id?
-                                                 global-extend
-                                                 lookup
-                                                 macros-only-env
-                                                 extend-var-env
-                                                 extend-env
-                                                 null-env
-                                                 binding-value
-                                                 binding-type
-                                                 make-binding
-                                                 arg-check
-                                                 source-annotation
-                                                 no-source
-                                                 set-syntax-object-module!
-                                                 set-syntax-object-wrap!
-                                                 set-syntax-object-expression!
-                                                 syntax-object-module
-                                                 syntax-object-wrap
-                                                 syntax-object-expression
-                                                 syntax-object?
-                                                 make-syntax-object
-                                                 build-lexical-var
-                                                 build-letrec
-                                                 build-named-let
-                                                 build-let
-                                                 build-sequence
-                                                 build-data
-                                                 build-primref
-                                                 build-lambda-case
-                                                 build-case-lambda
-                                                 build-simple-lambda
-                                                 build-global-definition
-                                                 build-global-assignment
-                                                 build-global-reference
-                                                 analyze-variable
-                                                 build-lexical-assignment
-                                                 build-lexical-reference
-                                                 build-dynlet
-                                                 build-conditional
-                                                 build-application
-                                                 build-void
-                                                 maybe-name-value!
-                                                 decorate-source
-                                                 get-global-definition-hook
-                                                 put-global-definition-hook
-                                                 gensym-hook
-                                                 local-eval-hook
-                                                 top-level-eval-hook
-                                                 fx<
-                                                 fx=
-                                                 fx-
-                                                 fx+
-                                                 set-lambda-meta!
-                                                 lambda-meta
-                                                 lambda?
-                                                 make-dynlet
-                                                 make-letrec
-                                                 make-let
-                                                 make-lambda-case
-                                                 make-lambda
-                                                 make-sequence
-                                                 make-application
-                                                 make-conditional
-                                                 make-toplevel-define
-                                                 make-toplevel-set
-                                                 make-toplevel-ref
-                                                 make-module-set
-                                                 make-module-ref
-                                                 make-lexical-set
-                                                 make-lexical-ref
-                                                 make-primitive-ref
-                                                 make-const
-                                                 make-void)
-                                               ((top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top)
-                                                (top))
-                                               ("i467"
-                                                "i465"
-                                                "i463"
-                                                "i461"
-                                                "i459"
-                                                "i457"
-                                                "i455"
-                                                "i453"
-                                                "i451"
-                                                "i449"
-                                                "i447"
-                                                "i445"
-                                                "i443"
-                                                "i441"
-                                                "i439"
-                                                "i437"
-                                                "i435"
-                                                "i433"
-                                                "i431"
-                                                "i429"
-                                                "i427"
-                                                "i425"
-                                                "i423"
-                                                "i421"
-                                                "i419"
-                                                "i417"
-                                                "i415"
-                                                "i413"
-                                                "i411"
-                                                "i409"
-                                                "i407"
-                                                "i405"
-                                                "i403"
-                                                "i401"
-                                                "i399"
-                                                "i398"
-                                                "i396"
-                                                "i393"
-                                                "i392"
-                                                "i391"
-                                                "i389"
-                                                "i388"
-                                                "i386"
-                                                "i384"
-                                                "i382"
-                                                "i380"
-                                                "i378"
-                                                "i376"
-                                                "i374"
-                                                "i372"
-                                                "i369"
-                                                "i367"
-                                                "i366"
-                                                "i364"
-                                                "i362"
-                                                "i360"
-                                                "i358"
-                                                "i357"
-                                                "i356"
-                                                "i355"
-                                                "i353"
-                                                "i352"
-                                                "i349"
-                                                "i347"
-                                                "i345"
-                                                "i343"
-                                                "i341"
-                                                "i339"
-                                                "i337"
-                                                "i336"
-                                                "i335"
-                                                "i333"
-                                                "i331"
-                                                "i330"
-                                                "i327"
-                                                "i326"
-                                                "i324"
-                                                "i322"
-                                                "i320"
-                                                "i318"
-                                                "i316"
-                                                "i314"
-                                                "i312"
-                                                "i310"
-                                                "i308"
-                                                "i305"
-                                                "i303"
-                                                "i301"
-                                                "i299"
-                                                "i297"
-                                                "i295"
-                                                "i293"
-                                                "i291"
-                                                "i289"
-                                                "i287"
-                                                "i285"
-                                                "i283"
-                                                "i281"
-                                                "i279"
-                                                "i277"
-                                                "i275"
-                                                "i273"
-                                                "i271"
-                                                "i269"
-                                                "i267"
-                                                "i265"
-                                                "i263"
-                                                "i261"
-                                                "i260"
-                                                "i257"
-                                                "i255"
-                                                "i254"
-                                                "i253"
-                                                "i252"
-                                                "i251"
-                                                "i249"
-                                                "i247"
-                                                "i245"
-                                                "i242"
-                                                "i240"
-                                                "i238"
-                                                "i236"
-                                                "i234"
-                                                "i232"
-                                                "i230"
-                                                "i228"
-                                                "i226"
-                                                "i224"
-                                                "i222"
-                                                "i220"
-                                                "i218"
-                                                "i216"
-                                                "i214"
-                                                "i212"
-                                                "i210"
-                                                "i208"))
-                                             #(ribcage
-                                               (define-structure
-                                                 define-expansion-accessors
-                                                 define-expansion-constructors)
-                                               ((top) (top) (top))
-                                               ("i46" "i45" "i44")))
-                                            (hygiene guile))
-                                         '(())))
-                                  #f)
-                              'load
-                              (if (if (eq? (if (if (vector? #{x 20313}#)
-                                                 (if (= (vector-length
-                                                          #{x 20313}#)
-                                                        4)
-                                                   (eq? (vector-ref
-                                                          #{x 20313}#
-                                                          0)
-                                                        'syntax-object)
-                                                   #f)
-                                                 #f)
-                                             (vector-ref #{x 20313}# 1)
-                                             #{x 20313}#)
-                                           (if (if (= (vector-length
-                                                        '#(syntax-object
-                                                           eval
-                                                           ((top)
-                                                            #(ribcage () () ())
-                                                            #(ribcage () () ())
-                                                            #(ribcage () () ())
-                                                            #(ribcage
-                                                              #(x)
-                                                              #((top))
-                                                              #("i1754"))
-                                                            #(ribcage () () ())
-                                                            #(ribcage
-                                                              #(f
-                                                                when-list
-                                                                situations)
-                                                              #((top)
-                                                                (top)
-                                                                (top))
-                                                              #("i1748"
-                                                                "i1749"
-                                                                "i1750"))
-                                                            #(ribcage () () ())
-                                                            #(ribcage
-                                                              #(e when-list w)
-                                                              #((top)
-                                                                (top)
-                                                                (top))
-                                                              #("i1745"
-                                                                "i1746"
-                                                                "i1747"))
-                                                            #(ribcage
-                                                              (lambda-var-list
-                                                                gen-var
-                                                                strip
-                                                                chi-lambda-case
-                                                                lambda*-formals
-                                                                
chi-simple-lambda
-                                                                lambda-formals
-                                                                ellipsis?
-                                                                chi-void
-                                                                
eval-local-transformer
-                                                                
chi-local-syntax
-                                                                chi-body
-                                                                chi-macro
-                                                                chi-application
-                                                                chi-expr
-                                                                chi
-                                                                syntax-type
-                                                                chi-when-list
-                                                                
chi-install-global
-                                                                
chi-top-sequence
-                                                                chi-sequence
-                                                                source-wrap
-                                                                wrap
-                                                                
bound-id-member?
-                                                                
distinct-bound-ids?
-                                                                
valid-bound-ids?
-                                                                bound-id=?
-                                                                free-id=?
-                                                                id-var-name
-                                                                same-marks?
-                                                                join-marks
-                                                                join-wraps
-                                                                smart-append
-                                                                
make-binding-wrap
-                                                                extend-ribcage!
-                                                                
make-empty-ribcage
-                                                                new-mark
-                                                                anti-mark
-                                                                the-anti-mark
-                                                                top-marked?
-                                                                top-wrap
-                                                                empty-wrap
-                                                                
set-ribcage-labels!
-                                                                
set-ribcage-marks!
-                                                                
set-ribcage-symnames!
-                                                                ribcage-labels
-                                                                ribcage-marks
-                                                                
ribcage-symnames
-                                                                ribcage?
-                                                                make-ribcage
-                                                                gen-labels
-                                                                gen-label
-                                                                make-rename
-                                                                rename-marks
-                                                                rename-new
-                                                                rename-old
-                                                                subst-rename?
-                                                                wrap-subst
-                                                                wrap-marks
-                                                                make-wrap
-                                                                
id-sym-name&marks
-                                                                id-sym-name
-                                                                id?
-                                                                nonsymbol-id?
-                                                                global-extend
-                                                                lookup
-                                                                macros-only-env
-                                                                extend-var-env
-                                                                extend-env
-                                                                null-env
-                                                                binding-value
-                                                                binding-type
-                                                                make-binding
-                                                                arg-check
-                                                                
source-annotation
-                                                                no-source
-                                                                
set-syntax-object-module!
-                                                                
set-syntax-object-wrap!
-                                                                
set-syntax-object-expression!
-                                                                
syntax-object-module
-                                                                
syntax-object-wrap
-                                                                
syntax-object-expression
-                                                                syntax-object?
-                                                                
make-syntax-object
-                                                                
build-lexical-var
-                                                                build-letrec
-                                                                build-named-let
-                                                                build-let
-                                                                build-sequence
-                                                                build-data
-                                                                build-primref
-                                                                
build-lambda-case
-                                                                
build-case-lambda
-                                                                
build-simple-lambda
-                                                                
build-global-definition
-                                                                
build-global-assignment
-                                                                
build-global-reference
-                                                                
analyze-variable
-                                                                
build-lexical-assignment
-                                                                
build-lexical-reference
-                                                                build-dynlet
-                                                                
build-conditional
-                                                                
build-application
-                                                                build-void
-                                                                
maybe-name-value!
-                                                                decorate-source
-                                                                
get-global-definition-hook
-                                                                
put-global-definition-hook
-                                                                gensym-hook
-                                                                local-eval-hook
-                                                                
top-level-eval-hook
-                                                                fx<
-                                                                fx=
-                                                                fx-
-                                                                fx+
-                                                                
set-lambda-meta!
-                                                                lambda-meta
-                                                                lambda?
-                                                                make-dynlet
-                                                                make-letrec
-                                                                make-let
-                                                                
make-lambda-case
-                                                                make-lambda
-                                                                make-sequence
-                                                                
make-application
-                                                                
make-conditional
-                                                                
make-toplevel-define
-                                                                
make-toplevel-set
-                                                                
make-toplevel-ref
-                                                                make-module-set
-                                                                make-module-ref
-                                                                
make-lexical-set
-                                                                
make-lexical-ref
-                                                                
make-primitive-ref
-                                                                make-const
-                                                                make-void)
-                                                              ((top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top))
-                                                              ("i467"
-                                                               "i465"
-                                                               "i463"
-                                                               "i461"
-                                                               "i459"
-                                                               "i457"
-                                                               "i455"
-                                                               "i453"
-                                                               "i451"
-                                                               "i449"
-                                                               "i447"
-                                                               "i445"
-                                                               "i443"
-                                                               "i441"
-                                                               "i439"
-                                                               "i437"
-                                                               "i435"
-                                                               "i433"
-                                                               "i431"
-                                                               "i429"
-                                                               "i427"
-                                                               "i425"
-                                                               "i423"
-                                                               "i421"
-                                                               "i419"
-                                                               "i417"
-                                                               "i415"
-                                                               "i413"
-                                                               "i411"
-                                                               "i409"
-                                                               "i407"
-                                                               "i405"
-                                                               "i403"
-                                                               "i401"
-                                                               "i399"
-                                                               "i398"
-                                                               "i396"
-                                                               "i393"
-                                                               "i392"
-                                                               "i391"
-                                                               "i389"
-                                                               "i388"
-                                                               "i386"
-                                                               "i384"
-                                                               "i382"
-                                                               "i380"
-                                                               "i378"
-                                                               "i376"
-                                                               "i374"
-                                                               "i372"
-                                                               "i369"
-                                                               "i367"
-                                                               "i366"
-                                                               "i364"
-                                                               "i362"
-                                                               "i360"
-                                                               "i358"
-                                                               "i357"
-                                                               "i356"
-                                                               "i355"
-                                                               "i353"
-                                                               "i352"
-                                                               "i349"
-                                                               "i347"
-                                                               "i345"
-                                                               "i343"
-                                                               "i341"
-                                                               "i339"
-                                                               "i337"
-                                                               "i336"
-                                                               "i335"
-                                                               "i333"
-                                                               "i331"
-                                                               "i330"
-                                                               "i327"
-                                                               "i326"
-                                                               "i324"
-                                                               "i322"
-                                                               "i320"
-                                                               "i318"
-                                                               "i316"
-                                                               "i314"
-                                                               "i312"
-                                                               "i310"
-                                                               "i308"
-                                                               "i305"
-                                                               "i303"
-                                                               "i301"
-                                                               "i299"
-                                                               "i297"
-                                                               "i295"
-                                                               "i293"
-                                                               "i291"
-                                                               "i289"
-                                                               "i287"
-                                                               "i285"
-                                                               "i283"
-                                                               "i281"
-                                                               "i279"
-                                                               "i277"
-                                                               "i275"
-                                                               "i273"
-                                                               "i271"
-                                                               "i269"
-                                                               "i267"
-                                                               "i265"
-                                                               "i263"
-                                                               "i261"
-                                                               "i260"
-                                                               "i257"
-                                                               "i255"
-                                                               "i254"
-                                                               "i253"
-                                                               "i252"
-                                                               "i251"
-                                                               "i249"
-                                                               "i247"
-                                                               "i245"
-                                                               "i242"
-                                                               "i240"
-                                                               "i238"
-                                                               "i236"
-                                                               "i234"
-                                                               "i232"
-                                                               "i230"
-                                                               "i228"
-                                                               "i226"
-                                                               "i224"
-                                                               "i222"
-                                                               "i220"
-                                                               "i218"
-                                                               "i216"
-                                                               "i214"
-                                                               "i212"
-                                                               "i210"
-                                                               "i208"))
-                                                            #(ribcage
-                                                              (define-structure
-                                                                
define-expansion-accessors
-                                                                
define-expansion-constructors)
-                                                              ((top)
-                                                               (top)
-                                                               (top))
-                                                              ("i46"
-                                                               "i45"
-                                                               "i44")))
-                                                           (hygiene guile)))
-                                                      4)
-                                                 (eq? (vector-ref
-                                                        '#(syntax-object
-                                                           eval
-                                                           ((top)
-                                                            #(ribcage () () ())
-                                                            #(ribcage () () ())
-                                                            #(ribcage () () ())
-                                                            #(ribcage
-                                                              #(x)
-                                                              #((top))
-                                                              #("i1754"))
-                                                            #(ribcage () () ())
-                                                            #(ribcage
-                                                              #(f
-                                                                when-list
-                                                                situations)
-                                                              #((top)
-                                                                (top)
-                                                                (top))
-                                                              #("i1748"
-                                                                "i1749"
-                                                                "i1750"))
-                                                            #(ribcage () () ())
-                                                            #(ribcage
-                                                              #(e when-list w)
-                                                              #((top)
-                                                                (top)
-                                                                (top))
-                                                              #("i1745"
-                                                                "i1746"
-                                                                "i1747"))
-                                                            #(ribcage
-                                                              (lambda-var-list
-                                                                gen-var
-                                                                strip
-                                                                chi-lambda-case
-                                                                lambda*-formals
-                                                                
chi-simple-lambda
-                                                                lambda-formals
-                                                                ellipsis?
-                                                                chi-void
-                                                                
eval-local-transformer
-                                                                
chi-local-syntax
-                                                                chi-body
-                                                                chi-macro
-                                                                chi-application
-                                                                chi-expr
-                                                                chi
-                                                                syntax-type
-                                                                chi-when-list
-                                                                
chi-install-global
-                                                                
chi-top-sequence
-                                                                chi-sequence
-                                                                source-wrap
-                                                                wrap
-                                                                
bound-id-member?
-                                                                
distinct-bound-ids?
-                                                                
valid-bound-ids?
-                                                                bound-id=?
-                                                                free-id=?
-                                                                id-var-name
-                                                                same-marks?
-                                                                join-marks
-                                                                join-wraps
-                                                                smart-append
-                                                                
make-binding-wrap
-                                                                extend-ribcage!
-                                                                
make-empty-ribcage
-                                                                new-mark
-                                                                anti-mark
-                                                                the-anti-mark
-                                                                top-marked?
-                                                                top-wrap
-                                                                empty-wrap
-                                                                
set-ribcage-labels!
-                                                                
set-ribcage-marks!
-                                                                
set-ribcage-symnames!
-                                                                ribcage-labels
-                                                                ribcage-marks
-                                                                
ribcage-symnames
-                                                                ribcage?
-                                                                make-ribcage
-                                                                gen-labels
-                                                                gen-label
-                                                                make-rename
-                                                                rename-marks
-                                                                rename-new
-                                                                rename-old
-                                                                subst-rename?
-                                                                wrap-subst
-                                                                wrap-marks
-                                                                make-wrap
-                                                                
id-sym-name&marks
-                                                                id-sym-name
-                                                                id?
-                                                                nonsymbol-id?
-                                                                global-extend
-                                                                lookup
-                                                                macros-only-env
-                                                                extend-var-env
-                                                                extend-env
-                                                                null-env
-                                                                binding-value
-                                                                binding-type
-                                                                make-binding
-                                                                arg-check
-                                                                
source-annotation
-                                                                no-source
-                                                                
set-syntax-object-module!
-                                                                
set-syntax-object-wrap!
-                                                                
set-syntax-object-expression!
-                                                                
syntax-object-module
-                                                                
syntax-object-wrap
-                                                                
syntax-object-expression
-                                                                syntax-object?
-                                                                
make-syntax-object
-                                                                
build-lexical-var
-                                                                build-letrec
-                                                                build-named-let
-                                                                build-let
-                                                                build-sequence
-                                                                build-data
-                                                                build-primref
-                                                                
build-lambda-case
-                                                                
build-case-lambda
-                                                                
build-simple-lambda
-                                                                
build-global-definition
-                                                                
build-global-assignment
-                                                                
build-global-reference
-                                                                
analyze-variable
-                                                                
build-lexical-assignment
-                                                                
build-lexical-reference
-                                                                build-dynlet
-                                                                
build-conditional
-                                                                
build-application
-                                                                build-void
-                                                                
maybe-name-value!
-                                                                decorate-source
-                                                                
get-global-definition-hook
-                                                                
put-global-definition-hook
-                                                                gensym-hook
-                                                                local-eval-hook
-                                                                
top-level-eval-hook
-                                                                fx<
-                                                                fx=
-                                                                fx-
-                                                                fx+
-                                                                
set-lambda-meta!
-                                                                lambda-meta
-                                                                lambda?
-                                                                make-dynlet
-                                                                make-letrec
-                                                                make-let
-                                                                
make-lambda-case
-                                                                make-lambda
-                                                                make-sequence
-                                                                
make-application
-                                                                
make-conditional
-                                                                
make-toplevel-define
-                                                                
make-toplevel-set
-                                                                
make-toplevel-ref
-                                                                make-module-set
-                                                                make-module-ref
-                                                                
make-lexical-set
-                                                                
make-lexical-ref
-                                                                
make-primitive-ref
-                                                                make-const
-                                                                make-void)
-                                                              ((top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top)
-                                                               (top))
-                                                              ("i467"
-                                                               "i465"
-                                                               "i463"
-                                                               "i461"
-                                                               "i459"
-                                                               "i457"
-                                                               "i455"
-                                                               "i453"
-                                                               "i451"
-                                                               "i449"
-                                                               "i447"
-                                                               "i445"
-                                                               "i443"
-                                                               "i441"
-                                                               "i439"
-                                                               "i437"
-                                                               "i435"
-                                                               "i433"
-                                                               "i431"
-                                                               "i429"
-                                                               "i427"
-                                                               "i425"
-                                                               "i423"
-                                                               "i421"
-                                                               "i419"
-                                                               "i417"
-                                                               "i415"
-                                                               "i413"
-                                                               "i411"
-                                                               "i409"
-                                                               "i407"
-                                                               "i405"
-                                                               "i403"
-                                                               "i401"
-                                                               "i399"
-                                                               "i398"
-                                                               "i396"
-                                                               "i393"
-                                                               "i392"
-                                                               "i391"
-                                                               "i389"
-                                                               "i388"
-                                                               "i386"
-                                                               "i384"
-                                                               "i382"
-                                                               "i380"
-                                                               "i378"
-                                                               "i376"
-                                                               "i374"
-                                                               "i372"
-                                                               "i369"
-                                                               "i367"
-                                                               "i366"
-                                                               "i364"
-                                                               "i362"
-                                                               "i360"
-                                                               "i358"
-                                                               "i357"
-                                                               "i356"
-                                                               "i355"
-                                                               "i353"
-                                                               "i352"
-                                                               "i349"
-                                                               "i347"
-                                                               "i345"
-                                                               "i343"
-                                                               "i341"
-                                                               "i339"
-                                                               "i337"
-                                                               "i336"
-                                                               "i335"
-                                                               "i333"
-                                                               "i331"
-                                                               "i330"
-                                                               "i327"
-                                                               "i326"
-                                                               "i324"
-                                                               "i322"
-                                                               "i320"
-                                                               "i318"
-                                                               "i316"
-                                                               "i314"
-                                                               "i312"
-                                                               "i310"
-                                                               "i308"
-                                                               "i305"
-                                                               "i303"
-                                                               "i301"
-                                                               "i299"
-                                                               "i297"
-                                                               "i295"
-                                                               "i293"
-                                                               "i291"
-                                                               "i289"
-                                                               "i287"
-                                                               "i285"
-                                                               "i283"
-                                                               "i281"
-                                                               "i279"
-                                                               "i277"
-                                                               "i275"
-                                                               "i273"
-                                                               "i271"
-                                                               "i269"
-                                                               "i267"
-                                                               "i265"
-                                                               "i263"
-                                                               "i261"
-                                                               "i260"
-                                                               "i257"
-                                                               "i255"
-                                                               "i254"
-                                                               "i253"
-                                                               "i252"
-                                                               "i251"
-                                                               "i249"
-                                                               "i247"
-                                                               "i245"
-                                                               "i242"
-                                                               "i240"
-                                                               "i238"
-                                                               "i236"
-                                                               "i234"
-                                                               "i232"
-                                                               "i230"
-                                                               "i228"
-                                                               "i226"
-                                                               "i224"
-                                                               "i222"
-                                                               "i220"
-                                                               "i218"
-                                                               "i216"
-                                                               "i214"
-                                                               "i212"
-                                                               "i210"
-                                                               "i208"))
-                                                            #(ribcage
-                                                              (define-structure
-                                                                
define-expansion-accessors
-                                                                
define-expansion-constructors)
-                                                              ((top)
-                                                               (top)
-                                                               (top))
-                                                              ("i46"
-                                                               "i45"
-                                                               "i44")))
-                                                           (hygiene guile))
-                                                        0)
-                                                      'syntax-object)
-                                                 #f)
-                                             (vector-ref
-                                               '#(syntax-object
-                                                  eval
-                                                  ((top)
-                                                   #(ribcage () () ())
-                                                   #(ribcage () () ())
-                                                   #(ribcage () () ())
-                                                   #(ribcage
-                                                     #(x)
-                                                     #((top))
-                                                     #("i1754"))
-                                                   #(ribcage () () ())
-                                                   #(ribcage
-                                                     #(f when-list situations)
-                                                     #((top) (top) (top))
-                                                     #("i1748"
-                                                       "i1749"
-                                                       "i1750"))
-                                                   #(ribcage () () ())
-                                                   #(ribcage
-                                                     #(e when-list w)
-                                                     #((top) (top) (top))
-                                                     #("i1745"
-                                                       "i1746"
-                                                       "i1747"))
-                                                   #(ribcage
-                                                     (lambda-var-list
-                                                       gen-var
-                                                       strip
-                                                       chi-lambda-case
-                                                       lambda*-formals
-                                                       chi-simple-lambda
-                                                       lambda-formals
-                                                       ellipsis?
-                                                       chi-void
-                                                       eval-local-transformer
-                                                       chi-local-syntax
-                                                       chi-body
-                                                       chi-macro
-                                                       chi-application
-                                                       chi-expr
-                                                       chi
-                                                       syntax-type
-                                                       chi-when-list
-                                                       chi-install-global
-                                                       chi-top-sequence
-                                                       chi-sequence
-                                                       source-wrap
-                                                       wrap
-                                                       bound-id-member?
-                                                       distinct-bound-ids?
-                                                       valid-bound-ids?
-                                                       bound-id=?
-                                                       free-id=?
-                                                       id-var-name
-                                                       same-marks?
-                                                       join-marks
-                                                       join-wraps
-                                                       smart-append
-                                                       make-binding-wrap
-                                                       extend-ribcage!
-                                                       make-empty-ribcage
-                                                       new-mark
-                                                       anti-mark
-                                                       the-anti-mark
-                                                       top-marked?
-                                                       top-wrap
-                                                       empty-wrap
-                                                       set-ribcage-labels!
-                                                       set-ribcage-marks!
-                                                       set-ribcage-symnames!
-                                                       ribcage-labels
-                                                       ribcage-marks
-                                                       ribcage-symnames
-                                                       ribcage?
-                                                       make-ribcage
-                                                       gen-labels
-                                                       gen-label
-                                                       make-rename
-                                                       rename-marks
-                                                       rename-new
-                                                       rename-old
-                                                       subst-rename?
-                                                       wrap-subst
-                                                       wrap-marks
-                                                       make-wrap
-                                                       id-sym-name&marks
-                                                       id-sym-name
-                                                       id?
-                                                       nonsymbol-id?
-                                                       global-extend
-                                                       lookup
-                                                       macros-only-env
-                                                       extend-var-env
-                                                       extend-env
-                                                       null-env
-                                                       binding-value
-                                                       binding-type
-                                                       make-binding
-                                                       arg-check
-                                                       source-annotation
-                                                       no-source
-                                                       
set-syntax-object-module!
-                                                       set-syntax-object-wrap!
-                                                       
set-syntax-object-expression!
-                                                       syntax-object-module
-                                                       syntax-object-wrap
-                                                       syntax-object-expression
-                                                       syntax-object?
-                                                       make-syntax-object
-                                                       build-lexical-var
-                                                       build-letrec
-                                                       build-named-let
-                                                       build-let
-                                                       build-sequence
-                                                       build-data
-                                                       build-primref
-                                                       build-lambda-case
-                                                       build-case-lambda
-                                                       build-simple-lambda
-                                                       build-global-definition
-                                                       build-global-assignment
-                                                       build-global-reference
-                                                       analyze-variable
-                                                       build-lexical-assignment
-                                                       build-lexical-reference
-                                                       build-dynlet
-                                                       build-conditional
-                                                       build-application
-                                                       build-void
-                                                       maybe-name-value!
-                                                       decorate-source
-                                                       
get-global-definition-hook
-                                                       
put-global-definition-hook
-                                                       gensym-hook
-                                                       local-eval-hook
-                                                       top-level-eval-hook
-                                                       fx<
-                                                       fx=
-                                                       fx-
-                                                       fx+
-                                                       set-lambda-meta!
-                                                       lambda-meta
-                                                       lambda?
-                                                       make-dynlet
-                                                       make-letrec
-                                                       make-let
-                                                       make-lambda-case
-                                                       make-lambda
-                                                       make-sequence
-                                                       make-application
-                                                       make-conditional
-                                                       make-toplevel-define
-                                                       make-toplevel-set
-                                                       make-toplevel-ref
-                                                       make-module-set
-                                                       make-module-ref
-                                                       make-lexical-set
-                                                       make-lexical-ref
-                                                       make-primitive-ref
-                                                       make-const
-                                                       make-void)
-                                                     ((top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top))
-                                                     ("i467"
-                                                      "i465"
-                                                      "i463"
-                                                      "i461"
-                                                      "i459"
-                                                      "i457"
-                                                      "i455"
-                                                      "i453"
-                                                      "i451"
-                                                      "i449"
-                                                      "i447"
-                                                      "i445"
-                                                      "i443"
-                                                      "i441"
-                                                      "i439"
-                                                      "i437"
-                                                      "i435"
-                                                      "i433"
-                                                      "i431"
-                                                      "i429"
-                                                      "i427"
-                                                      "i425"
-                                                      "i423"
-                                                      "i421"
-                                                      "i419"
-                                                      "i417"
-                                                      "i415"
-                                                      "i413"
-                                                      "i411"
-                                                      "i409"
-                                                      "i407"
-                                                      "i405"
-                                                      "i403"
-                                                      "i401"
-                                                      "i399"
-                                                      "i398"
-                                                      "i396"
-                                                      "i393"
-                                                      "i392"
-                                                      "i391"
-                                                      "i389"
-                                                      "i388"
-                                                      "i386"
-                                                      "i384"
-                                                      "i382"
-                                                      "i380"
-                                                      "i378"
-                                                      "i376"
-                                                      "i374"
-                                                      "i372"
-                                                      "i369"
-                                                      "i367"
-                                                      "i366"
-                                                      "i364"
-                                                      "i362"
-                                                      "i360"
-                                                      "i358"
-                                                      "i357"
-                                                      "i356"
-                                                      "i355"
-                                                      "i353"
-                                                      "i352"
-                                                      "i349"
-                                                      "i347"
-                                                      "i345"
-                                                      "i343"
-                                                      "i341"
-                                                      "i339"
-                                                      "i337"
-                                                      "i336"
-                                                      "i335"
-                                                      "i333"
-                                                      "i331"
-                                                      "i330"
-                                                      "i327"
-                                                      "i326"
-                                                      "i324"
-                                                      "i322"
-                                                      "i320"
-                                                      "i318"
-                                                      "i316"
-                                                      "i314"
-                                                      "i312"
-                                                      "i310"
-                                                      "i308"
-                                                      "i305"
-                                                      "i303"
-                                                      "i301"
-                                                      "i299"
-                                                      "i297"
-                                                      "i295"
-                                                      "i293"
-                                                      "i291"
-                                                      "i289"
-                                                      "i287"
-                                                      "i285"
-                                                      "i283"
-                                                      "i281"
-                                                      "i279"
-                                                      "i277"
-                                                      "i275"
-                                                      "i273"
-                                                      "i271"
-                                                      "i269"
-                                                      "i267"
-                                                      "i265"
-                                                      "i263"
-                                                      "i261"
-                                                      "i260"
-                                                      "i257"
-                                                      "i255"
-                                                      "i254"
-                                                      "i253"
-                                                      "i252"
-                                                      "i251"
-                                                      "i249"
-                                                      "i247"
-                                                      "i245"
-                                                      "i242"
-                                                      "i240"
-                                                      "i238"
-                                                      "i236"
-                                                      "i234"
-                                                      "i232"
-                                                      "i230"
-                                                      "i228"
-                                                      "i226"
-                                                      "i224"
-                                                      "i222"
-                                                      "i220"
-                                                      "i218"
-                                                      "i216"
-                                                      "i214"
-                                                      "i212"
-                                                      "i210"
-                                                      "i208"))
-                                                   #(ribcage
-                                                     (define-structure
-                                                       
define-expansion-accessors
-                                                       
define-expansion-constructors)
-                                                     ((top) (top) (top))
-                                                     ("i46" "i45" "i44")))
-                                                  (hygiene guile))
-                                               1)
-                                             '#(syntax-object
-                                                eval
-                                                ((top)
-                                                 #(ribcage () () ())
-                                                 #(ribcage () () ())
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(x)
-                                                   #((top))
-                                                   #("i1754"))
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(f when-list situations)
-                                                   #((top) (top) (top))
-                                                   #("i1748" "i1749" "i1750"))
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(e when-list w)
-                                                   #((top) (top) (top))
-                                                   #("i1745" "i1746" "i1747"))
-                                                 #(ribcage
-                                                   (lambda-var-list
-                                                     gen-var
-                                                     strip
-                                                     chi-lambda-case
-                                                     lambda*-formals
-                                                     chi-simple-lambda
-                                                     lambda-formals
-                                                     ellipsis?
-                                                     chi-void
-                                                     eval-local-transformer
-                                                     chi-local-syntax
-                                                     chi-body
-                                                     chi-macro
-                                                     chi-application
-                                                     chi-expr
-                                                     chi
-                                                     syntax-type
-                                                     chi-when-list
-                                                     chi-install-global
-                                                     chi-top-sequence
-                                                     chi-sequence
-                                                     source-wrap
-                                                     wrap
-                                                     bound-id-member?
-                                                     distinct-bound-ids?
-                                                     valid-bound-ids?
-                                                     bound-id=?
-                                                     free-id=?
-                                                     id-var-name
-                                                     same-marks?
-                                                     join-marks
-                                                     join-wraps
-                                                     smart-append
-                                                     make-binding-wrap
-                                                     extend-ribcage!
-                                                     make-empty-ribcage
-                                                     new-mark
-                                                     anti-mark
-                                                     the-anti-mark
-                                                     top-marked?
-                                                     top-wrap
-                                                     empty-wrap
-                                                     set-ribcage-labels!
-                                                     set-ribcage-marks!
-                                                     set-ribcage-symnames!
-                                                     ribcage-labels
-                                                     ribcage-marks
-                                                     ribcage-symnames
-                                                     ribcage?
-                                                     make-ribcage
-                                                     gen-labels
-                                                     gen-label
-                                                     make-rename
-                                                     rename-marks
-                                                     rename-new
-                                                     rename-old
-                                                     subst-rename?
-                                                     wrap-subst
-                                                     wrap-marks
-                                                     make-wrap
-                                                     id-sym-name&marks
-                                                     id-sym-name
-                                                     id?
-                                                     nonsymbol-id?
-                                                     global-extend
-                                                     lookup
-                                                     macros-only-env
-                                                     extend-var-env
-                                                     extend-env
-                                                     null-env
-                                                     binding-value
-                                                     binding-type
-                                                     make-binding
-                                                     arg-check
-                                                     source-annotation
-                                                     no-source
-                                                     set-syntax-object-module!
-                                                     set-syntax-object-wrap!
-                                                     
set-syntax-object-expression!
-                                                     syntax-object-module
-                                                     syntax-object-wrap
-                                                     syntax-object-expression
-                                                     syntax-object?
-                                                     make-syntax-object
-                                                     build-lexical-var
-                                                     build-letrec
-                                                     build-named-let
-                                                     build-let
-                                                     build-sequence
-                                                     build-data
-                                                     build-primref
-                                                     build-lambda-case
-                                                     build-case-lambda
-                                                     build-simple-lambda
-                                                     build-global-definition
-                                                     build-global-assignment
-                                                     build-global-reference
-                                                     analyze-variable
-                                                     build-lexical-assignment
-                                                     build-lexical-reference
-                                                     build-dynlet
-                                                     build-conditional
-                                                     build-application
-                                                     build-void
-                                                     maybe-name-value!
-                                                     decorate-source
-                                                     get-global-definition-hook
-                                                     put-global-definition-hook
-                                                     gensym-hook
-                                                     local-eval-hook
-                                                     top-level-eval-hook
-                                                     fx<
-                                                     fx=
-                                                     fx-
-                                                     fx+
-                                                     set-lambda-meta!
-                                                     lambda-meta
-                                                     lambda?
-                                                     make-dynlet
-                                                     make-letrec
-                                                     make-let
-                                                     make-lambda-case
-                                                     make-lambda
-                                                     make-sequence
-                                                     make-application
-                                                     make-conditional
-                                                     make-toplevel-define
-                                                     make-toplevel-set
-                                                     make-toplevel-ref
-                                                     make-module-set
-                                                     make-module-ref
-                                                     make-lexical-set
-                                                     make-lexical-ref
-                                                     make-primitive-ref
-                                                     make-const
-                                                     make-void)
-                                                   ((top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top))
-                                                   ("i467"
-                                                    "i465"
-                                                    "i463"
-                                                    "i461"
-                                                    "i459"
-                                                    "i457"
-                                                    "i455"
-                                                    "i453"
-                                                    "i451"
-                                                    "i449"
-                                                    "i447"
-                                                    "i445"
-                                                    "i443"
-                                                    "i441"
-                                                    "i439"
-                                                    "i437"
-                                                    "i435"
-                                                    "i433"
-                                                    "i431"
-                                                    "i429"
-                                                    "i427"
-                                                    "i425"
-                                                    "i423"
-                                                    "i421"
-                                                    "i419"
-                                                    "i417"
-                                                    "i415"
-                                                    "i413"
-                                                    "i411"
-                                                    "i409"
-                                                    "i407"
-                                                    "i405"
-                                                    "i403"
-                                                    "i401"
-                                                    "i399"
-                                                    "i398"
-                                                    "i396"
-                                                    "i393"
-                                                    "i392"
-                                                    "i391"
-                                                    "i389"
-                                                    "i388"
-                                                    "i386"
-                                                    "i384"
-                                                    "i382"
-                                                    "i380"
-                                                    "i378"
-                                                    "i376"
-                                                    "i374"
-                                                    "i372"
-                                                    "i369"
-                                                    "i367"
-                                                    "i366"
-                                                    "i364"
-                                                    "i362"
-                                                    "i360"
-                                                    "i358"
-                                                    "i357"
-                                                    "i356"
-                                                    "i355"
-                                                    "i353"
-                                                    "i352"
-                                                    "i349"
-                                                    "i347"
-                                                    "i345"
-                                                    "i343"
-                                                    "i341"
-                                                    "i339"
-                                                    "i337"
-                                                    "i336"
-                                                    "i335"
-                                                    "i333"
-                                                    "i331"
-                                                    "i330"
-                                                    "i327"
-                                                    "i326"
-                                                    "i324"
-                                                    "i322"
-                                                    "i320"
-                                                    "i318"
-                                                    "i316"
-                                                    "i314"
-                                                    "i312"
-                                                    "i310"
-                                                    "i308"
-                                                    "i305"
-                                                    "i303"
-                                                    "i301"
-                                                    "i299"
-                                                    "i297"
-                                                    "i295"
-                                                    "i293"
-                                                    "i291"
-                                                    "i289"
-                                                    "i287"
-                                                    "i285"
-                                                    "i283"
-                                                    "i281"
-                                                    "i279"
-                                                    "i277"
-                                                    "i275"
-                                                    "i273"
-                                                    "i271"
-                                                    "i269"
-                                                    "i267"
-                                                    "i265"
-                                                    "i263"
-                                                    "i261"
-                                                    "i260"
-                                                    "i257"
-                                                    "i255"
-                                                    "i254"
-                                                    "i253"
-                                                    "i252"
-                                                    "i251"
-                                                    "i249"
-                                                    "i247"
-                                                    "i245"
-                                                    "i242"
-                                                    "i240"
-                                                    "i238"
-                                                    "i236"
-                                                    "i234"
-                                                    "i232"
-                                                    "i230"
-                                                    "i228"
-                                                    "i226"
-                                                    "i224"
-                                                    "i222"
-                                                    "i220"
-                                                    "i218"
-                                                    "i216"
-                                                    "i214"
-                                                    "i212"
-                                                    "i210"
-                                                    "i208"))
-                                                 #(ribcage
-                                                   (define-structure
-                                                     define-expansion-accessors
-                                                     
define-expansion-constructors)
-                                                   ((top) (top) (top))
-                                                   ("i46" "i45" "i44")))
-                                                (hygiene guile))))
-                                    (eq? (#{id-var-name 4332}#
-                                           #{x 20313}#
-                                           '(()))
-                                         (#{id-var-name 4332}#
-                                           '#(syntax-object
-                                              eval
-                                              ((top)
-                                               #(ribcage () () ())
-                                               #(ribcage () () ())
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(x)
-                                                 #((top))
-                                                 #("i1754"))
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(f when-list situations)
-                                                 #((top) (top) (top))
-                                                 #("i1748" "i1749" "i1750"))
-                                               #(ribcage () () ())
-                                               #(ribcage
-                                                 #(e when-list w)
-                                                 #((top) (top) (top))
-                                                 #("i1745" "i1746" "i1747"))
-                                               #(ribcage
-                                                 (lambda-var-list
-                                                   gen-var
-                                                   strip
-                                                   chi-lambda-case
-                                                   lambda*-formals
-                                                   chi-simple-lambda
-                                                   lambda-formals
-                                                   ellipsis?
-                                                   chi-void
-                                                   eval-local-transformer
-                                                   chi-local-syntax
-                                                   chi-body
-                                                   chi-macro
-                                                   chi-application
-                                                   chi-expr
-                                                   chi
-                                                   syntax-type
-                                                   chi-when-list
-                                                   chi-install-global
-                                                   chi-top-sequence
-                                                   chi-sequence
-                                                   source-wrap
-                                                   wrap
-                                                   bound-id-member?
-                                                   distinct-bound-ids?
-                                                   valid-bound-ids?
-                                                   bound-id=?
-                                                   free-id=?
-                                                   id-var-name
-                                                   same-marks?
-                                                   join-marks
-                                                   join-wraps
-                                                   smart-append
-                                                   make-binding-wrap
-                                                   extend-ribcage!
-                                                   make-empty-ribcage
-                                                   new-mark
-                                                   anti-mark
-                                                   the-anti-mark
-                                                   top-marked?
-                                                   top-wrap
-                                                   empty-wrap
-                                                   set-ribcage-labels!
-                                                   set-ribcage-marks!
-                                                   set-ribcage-symnames!
-                                                   ribcage-labels
-                                                   ribcage-marks
-                                                   ribcage-symnames
-                                                   ribcage?
-                                                   make-ribcage
-                                                   gen-labels
-                                                   gen-label
-                                                   make-rename
-                                                   rename-marks
-                                                   rename-new
-                                                   rename-old
-                                                   subst-rename?
-                                                   wrap-subst
-                                                   wrap-marks
-                                                   make-wrap
-                                                   id-sym-name&marks
-                                                   id-sym-name
-                                                   id?
-                                                   nonsymbol-id?
-                                                   global-extend
-                                                   lookup
-                                                   macros-only-env
-                                                   extend-var-env
-                                                   extend-env
-                                                   null-env
-                                                   binding-value
-                                                   binding-type
-                                                   make-binding
-                                                   arg-check
-                                                   source-annotation
-                                                   no-source
-                                                   set-syntax-object-module!
-                                                   set-syntax-object-wrap!
-                                                   
set-syntax-object-expression!
-                                                   syntax-object-module
-                                                   syntax-object-wrap
-                                                   syntax-object-expression
-                                                   syntax-object?
-                                                   make-syntax-object
-                                                   build-lexical-var
-                                                   build-letrec
-                                                   build-named-let
-                                                   build-let
-                                                   build-sequence
-                                                   build-data
-                                                   build-primref
-                                                   build-lambda-case
-                                                   build-case-lambda
-                                                   build-simple-lambda
-                                                   build-global-definition
-                                                   build-global-assignment
-                                                   build-global-reference
-                                                   analyze-variable
-                                                   build-lexical-assignment
-                                                   build-lexical-reference
-                                                   build-dynlet
-                                                   build-conditional
-                                                   build-application
-                                                   build-void
-                                                   maybe-name-value!
-                                                   decorate-source
-                                                   get-global-definition-hook
-                                                   put-global-definition-hook
-                                                   gensym-hook
-                                                   local-eval-hook
-                                                   top-level-eval-hook
-                                                   fx<
-                                                   fx=
-                                                   fx-
-                                                   fx+
-                                                   set-lambda-meta!
-                                                   lambda-meta
-                                                   lambda?
-                                                   make-dynlet
-                                                   make-letrec
-                                                   make-let
-                                                   make-lambda-case
-                                                   make-lambda
-                                                   make-sequence
-                                                   make-application
-                                                   make-conditional
-                                                   make-toplevel-define
-                                                   make-toplevel-set
-                                                   make-toplevel-ref
-                                                   make-module-set
-                                                   make-module-ref
-                                                   make-lexical-set
-                                                   make-lexical-ref
-                                                   make-primitive-ref
-                                                   make-const
-                                                   make-void)
-                                                 ((top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top)
-                                                  (top))
-                                                 ("i467"
-                                                  "i465"
-                                                  "i463"
-                                                  "i461"
-                                                  "i459"
-                                                  "i457"
-                                                  "i455"
-                                                  "i453"
-                                                  "i451"
-                                                  "i449"
-                                                  "i447"
-                                                  "i445"
-                                                  "i443"
-                                                  "i441"
-                                                  "i439"
-                                                  "i437"
-                                                  "i435"
-                                                  "i433"
-                                                  "i431"
-                                                  "i429"
-                                                  "i427"
-                                                  "i425"
-                                                  "i423"
-                                                  "i421"
-                                                  "i419"
-                                                  "i417"
-                                                  "i415"
-                                                  "i413"
-                                                  "i411"
-                                                  "i409"
-                                                  "i407"
-                                                  "i405"
-                                                  "i403"
-                                                  "i401"
-                                                  "i399"
-                                                  "i398"
-                                                  "i396"
-                                                  "i393"
-                                                  "i392"
-                                                  "i391"
-                                                  "i389"
-                                                  "i388"
-                                                  "i386"
-                                                  "i384"
-                                                  "i382"
-                                                  "i380"
-                                                  "i378"
-                                                  "i376"
-                                                  "i374"
-                                                  "i372"
-                                                  "i369"
-                                                  "i367"
-                                                  "i366"
-                                                  "i364"
-                                                  "i362"
-                                                  "i360"
-                                                  "i358"
-                                                  "i357"
-                                                  "i356"
-                                                  "i355"
-                                                  "i353"
-                                                  "i352"
-                                                  "i349"
-                                                  "i347"
-                                                  "i345"
-                                                  "i343"
-                                                  "i341"
-                                                  "i339"
-                                                  "i337"
-                                                  "i336"
-                                                  "i335"
-                                                  "i333"
-                                                  "i331"
-                                                  "i330"
-                                                  "i327"
-                                                  "i326"
-                                                  "i324"
-                                                  "i322"
-                                                  "i320"
-                                                  "i318"
-                                                  "i316"
-                                                  "i314"
-                                                  "i312"
-                                                  "i310"
-                                                  "i308"
-                                                  "i305"
-                                                  "i303"
-                                                  "i301"
-                                                  "i299"
-                                                  "i297"
-                                                  "i295"
-                                                  "i293"
-                                                  "i291"
-                                                  "i289"
-                                                  "i287"
-                                                  "i285"
-                                                  "i283"
-                                                  "i281"
-                                                  "i279"
-                                                  "i277"
-                                                  "i275"
-                                                  "i273"
-                                                  "i271"
-                                                  "i269"
-                                                  "i267"
-                                                  "i265"
-                                                  "i263"
-                                                  "i261"
-                                                  "i260"
-                                                  "i257"
-                                                  "i255"
-                                                  "i254"
-                                                  "i253"
-                                                  "i252"
-                                                  "i251"
-                                                  "i249"
-                                                  "i247"
-                                                  "i245"
-                                                  "i242"
-                                                  "i240"
-                                                  "i238"
-                                                  "i236"
-                                                  "i234"
-                                                  "i232"
-                                                  "i230"
-                                                  "i228"
-                                                  "i226"
-                                                  "i224"
-                                                  "i222"
-                                                  "i220"
-                                                  "i218"
-                                                  "i216"
-                                                  "i214"
-                                                  "i212"
-                                                  "i210"
-                                                  "i208"))
-                                               #(ribcage
-                                                 (define-structure
-                                                   define-expansion-accessors
-                                                   
define-expansion-constructors)
-                                                 ((top) (top) (top))
-                                                 ("i46" "i45" "i44")))
-                                              (hygiene guile))
-                                           '(())))
-                                    #f)
-                                'eval
-                                (if (if (eq? (if (if (vector? #{x 20313}#)
-                                                   (if (= (vector-length
-                                                            #{x 20313}#)
-                                                          4)
-                                                     (eq? (vector-ref
-                                                            #{x 20313}#
-                                                            0)
-                                                          'syntax-object)
-                                                     #f)
-                                                   #f)
-                                               (vector-ref #{x 20313}# 1)
-                                               #{x 20313}#)
-                                             (if (if (= (vector-length
-                                                          '#(syntax-object
-                                                             expand
-                                                             ((top)
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                #(x)
-                                                                #((top))
-                                                                #("i1754"))
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                #(f
-                                                                  when-list
-                                                                  situations)
-                                                                #((top)
-                                                                  (top)
-                                                                  (top))
-                                                                #("i1748"
-                                                                  "i1749"
-                                                                  "i1750"))
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                #(e
-                                                                  when-list
-                                                                  w)
-                                                                #((top)
-                                                                  (top)
-                                                                  (top))
-                                                                #("i1745"
-                                                                  "i1746"
-                                                                  "i1747"))
-                                                              #(ribcage
-                                                                
(lambda-var-list
-                                                                  gen-var
-                                                                  strip
-                                                                  
chi-lambda-case
-                                                                  
lambda*-formals
-                                                                  
chi-simple-lambda
-                                                                  
lambda-formals
-                                                                  ellipsis?
-                                                                  chi-void
-                                                                  
eval-local-transformer
-                                                                  
chi-local-syntax
-                                                                  chi-body
-                                                                  chi-macro
-                                                                  
chi-application
-                                                                  chi-expr
-                                                                  chi
-                                                                  syntax-type
-                                                                  chi-when-list
-                                                                  
chi-install-global
-                                                                  
chi-top-sequence
-                                                                  chi-sequence
-                                                                  source-wrap
-                                                                  wrap
-                                                                  
bound-id-member?
-                                                                  
distinct-bound-ids?
-                                                                  
valid-bound-ids?
-                                                                  bound-id=?
-                                                                  free-id=?
-                                                                  id-var-name
-                                                                  same-marks?
-                                                                  join-marks
-                                                                  join-wraps
-                                                                  smart-append
-                                                                  
make-binding-wrap
-                                                                  
extend-ribcage!
-                                                                  
make-empty-ribcage
-                                                                  new-mark
-                                                                  anti-mark
-                                                                  the-anti-mark
-                                                                  top-marked?
-                                                                  top-wrap
-                                                                  empty-wrap
-                                                                  
set-ribcage-labels!
-                                                                  
set-ribcage-marks!
-                                                                  
set-ribcage-symnames!
-                                                                  
ribcage-labels
-                                                                  ribcage-marks
-                                                                  
ribcage-symnames
-                                                                  ribcage?
-                                                                  make-ribcage
-                                                                  gen-labels
-                                                                  gen-label
-                                                                  make-rename
-                                                                  rename-marks
-                                                                  rename-new
-                                                                  rename-old
-                                                                  subst-rename?
-                                                                  wrap-subst
-                                                                  wrap-marks
-                                                                  make-wrap
-                                                                  
id-sym-name&marks
-                                                                  id-sym-name
-                                                                  id?
-                                                                  nonsymbol-id?
-                                                                  global-extend
-                                                                  lookup
-                                                                  
macros-only-env
-                                                                  
extend-var-env
-                                                                  extend-env
-                                                                  null-env
-                                                                  binding-value
-                                                                  binding-type
-                                                                  make-binding
-                                                                  arg-check
-                                                                  
source-annotation
-                                                                  no-source
-                                                                  
set-syntax-object-module!
-                                                                  
set-syntax-object-wrap!
-                                                                  
set-syntax-object-expression!
-                                                                  
syntax-object-module
-                                                                  
syntax-object-wrap
-                                                                  
syntax-object-expression
-                                                                  
syntax-object?
-                                                                  
make-syntax-object
-                                                                  
build-lexical-var
-                                                                  build-letrec
-                                                                  
build-named-let
-                                                                  build-let
-                                                                  
build-sequence
-                                                                  build-data
-                                                                  build-primref
-                                                                  
build-lambda-case
-                                                                  
build-case-lambda
-                                                                  
build-simple-lambda
-                                                                  
build-global-definition
-                                                                  
build-global-assignment
-                                                                  
build-global-reference
-                                                                  
analyze-variable
-                                                                  
build-lexical-assignment
-                                                                  
build-lexical-reference
-                                                                  build-dynlet
-                                                                  
build-conditional
-                                                                  
build-application
-                                                                  build-void
-                                                                  
maybe-name-value!
-                                                                  
decorate-source
-                                                                  
get-global-definition-hook
-                                                                  
put-global-definition-hook
-                                                                  gensym-hook
-                                                                  
local-eval-hook
-                                                                  
top-level-eval-hook
-                                                                  fx<
-                                                                  fx=
-                                                                  fx-
-                                                                  fx+
-                                                                  
set-lambda-meta!
-                                                                  lambda-meta
-                                                                  lambda?
-                                                                  make-dynlet
-                                                                  make-letrec
-                                                                  make-let
-                                                                  
make-lambda-case
-                                                                  make-lambda
-                                                                  make-sequence
-                                                                  
make-application
-                                                                  
make-conditional
-                                                                  
make-toplevel-define
-                                                                  
make-toplevel-set
-                                                                  
make-toplevel-ref
-                                                                  
make-module-set
-                                                                  
make-module-ref
-                                                                  
make-lexical-set
-                                                                  
make-lexical-ref
-                                                                  
make-primitive-ref
-                                                                  make-const
-                                                                  make-void)
-                                                                ((top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top))
-                                                                ("i467"
-                                                                 "i465"
-                                                                 "i463"
-                                                                 "i461"
-                                                                 "i459"
-                                                                 "i457"
-                                                                 "i455"
-                                                                 "i453"
-                                                                 "i451"
-                                                                 "i449"
-                                                                 "i447"
-                                                                 "i445"
-                                                                 "i443"
-                                                                 "i441"
-                                                                 "i439"
-                                                                 "i437"
-                                                                 "i435"
-                                                                 "i433"
-                                                                 "i431"
-                                                                 "i429"
-                                                                 "i427"
-                                                                 "i425"
-                                                                 "i423"
-                                                                 "i421"
-                                                                 "i419"
-                                                                 "i417"
-                                                                 "i415"
-                                                                 "i413"
-                                                                 "i411"
-                                                                 "i409"
-                                                                 "i407"
-                                                                 "i405"
-                                                                 "i403"
-                                                                 "i401"
-                                                                 "i399"
-                                                                 "i398"
-                                                                 "i396"
-                                                                 "i393"
-                                                                 "i392"
-                                                                 "i391"
-                                                                 "i389"
-                                                                 "i388"
-                                                                 "i386"
-                                                                 "i384"
-                                                                 "i382"
-                                                                 "i380"
-                                                                 "i378"
-                                                                 "i376"
-                                                                 "i374"
-                                                                 "i372"
-                                                                 "i369"
-                                                                 "i367"
-                                                                 "i366"
-                                                                 "i364"
-                                                                 "i362"
-                                                                 "i360"
-                                                                 "i358"
-                                                                 "i357"
-                                                                 "i356"
-                                                                 "i355"
-                                                                 "i353"
-                                                                 "i352"
-                                                                 "i349"
-                                                                 "i347"
-                                                                 "i345"
-                                                                 "i343"
-                                                                 "i341"
-                                                                 "i339"
-                                                                 "i337"
-                                                                 "i336"
-                                                                 "i335"
-                                                                 "i333"
-                                                                 "i331"
-                                                                 "i330"
-                                                                 "i327"
-                                                                 "i326"
-                                                                 "i324"
-                                                                 "i322"
-                                                                 "i320"
-                                                                 "i318"
-                                                                 "i316"
-                                                                 "i314"
-                                                                 "i312"
-                                                                 "i310"
-                                                                 "i308"
-                                                                 "i305"
-                                                                 "i303"
-                                                                 "i301"
-                                                                 "i299"
-                                                                 "i297"
-                                                                 "i295"
-                                                                 "i293"
-                                                                 "i291"
-                                                                 "i289"
-                                                                 "i287"
-                                                                 "i285"
-                                                                 "i283"
-                                                                 "i281"
-                                                                 "i279"
-                                                                 "i277"
-                                                                 "i275"
-                                                                 "i273"
-                                                                 "i271"
-                                                                 "i269"
-                                                                 "i267"
-                                                                 "i265"
-                                                                 "i263"
-                                                                 "i261"
-                                                                 "i260"
-                                                                 "i257"
-                                                                 "i255"
-                                                                 "i254"
-                                                                 "i253"
-                                                                 "i252"
-                                                                 "i251"
-                                                                 "i249"
-                                                                 "i247"
-                                                                 "i245"
-                                                                 "i242"
-                                                                 "i240"
-                                                                 "i238"
-                                                                 "i236"
-                                                                 "i234"
-                                                                 "i232"
-                                                                 "i230"
-                                                                 "i228"
-                                                                 "i226"
-                                                                 "i224"
-                                                                 "i222"
-                                                                 "i220"
-                                                                 "i218"
-                                                                 "i216"
-                                                                 "i214"
-                                                                 "i212"
-                                                                 "i210"
-                                                                 "i208"))
-                                                              #(ribcage
-                                                                
(define-structure
-                                                                  
define-expansion-accessors
-                                                                  
define-expansion-constructors)
-                                                                ((top)
-                                                                 (top)
-                                                                 (top))
-                                                                ("i46"
-                                                                 "i45"
-                                                                 "i44")))
-                                                             (hygiene guile)))
-                                                        4)
-                                                   (eq? (vector-ref
-                                                          '#(syntax-object
-                                                             expand
-                                                             ((top)
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                #(x)
-                                                                #((top))
-                                                                #("i1754"))
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                #(f
-                                                                  when-list
-                                                                  situations)
-                                                                #((top)
-                                                                  (top)
-                                                                  (top))
-                                                                #("i1748"
-                                                                  "i1749"
-                                                                  "i1750"))
-                                                              #(ribcage
-                                                                ()
-                                                                ()
-                                                                ())
-                                                              #(ribcage
-                                                                #(e
-                                                                  when-list
-                                                                  w)
-                                                                #((top)
-                                                                  (top)
-                                                                  (top))
-                                                                #("i1745"
-                                                                  "i1746"
-                                                                  "i1747"))
-                                                              #(ribcage
-                                                                
(lambda-var-list
-                                                                  gen-var
-                                                                  strip
-                                                                  
chi-lambda-case
-                                                                  
lambda*-formals
-                                                                  
chi-simple-lambda
-                                                                  
lambda-formals
-                                                                  ellipsis?
-                                                                  chi-void
-                                                                  
eval-local-transformer
-                                                                  
chi-local-syntax
-                                                                  chi-body
-                                                                  chi-macro
-                                                                  
chi-application
-                                                                  chi-expr
-                                                                  chi
-                                                                  syntax-type
-                                                                  chi-when-list
-                                                                  
chi-install-global
-                                                                  
chi-top-sequence
-                                                                  chi-sequence
-                                                                  source-wrap
-                                                                  wrap
-                                                                  
bound-id-member?
-                                                                  
distinct-bound-ids?
-                                                                  
valid-bound-ids?
-                                                                  bound-id=?
-                                                                  free-id=?
-                                                                  id-var-name
-                                                                  same-marks?
-                                                                  join-marks
-                                                                  join-wraps
-                                                                  smart-append
-                                                                  
make-binding-wrap
-                                                                  
extend-ribcage!
-                                                                  
make-empty-ribcage
-                                                                  new-mark
-                                                                  anti-mark
-                                                                  the-anti-mark
-                                                                  top-marked?
-                                                                  top-wrap
-                                                                  empty-wrap
-                                                                  
set-ribcage-labels!
-                                                                  
set-ribcage-marks!
-                                                                  
set-ribcage-symnames!
-                                                                  
ribcage-labels
-                                                                  ribcage-marks
-                                                                  
ribcage-symnames
-                                                                  ribcage?
-                                                                  make-ribcage
-                                                                  gen-labels
-                                                                  gen-label
-                                                                  make-rename
-                                                                  rename-marks
-                                                                  rename-new
-                                                                  rename-old
-                                                                  subst-rename?
-                                                                  wrap-subst
-                                                                  wrap-marks
-                                                                  make-wrap
-                                                                  
id-sym-name&marks
-                                                                  id-sym-name
-                                                                  id?
-                                                                  nonsymbol-id?
-                                                                  global-extend
-                                                                  lookup
-                                                                  
macros-only-env
-                                                                  
extend-var-env
-                                                                  extend-env
-                                                                  null-env
-                                                                  binding-value
-                                                                  binding-type
-                                                                  make-binding
-                                                                  arg-check
-                                                                  
source-annotation
-                                                                  no-source
-                                                                  
set-syntax-object-module!
-                                                                  
set-syntax-object-wrap!
-                                                                  
set-syntax-object-expression!
-                                                                  
syntax-object-module
-                                                                  
syntax-object-wrap
-                                                                  
syntax-object-expression
-                                                                  
syntax-object?
-                                                                  
make-syntax-object
-                                                                  
build-lexical-var
-                                                                  build-letrec
-                                                                  
build-named-let
-                                                                  build-let
-                                                                  
build-sequence
-                                                                  build-data
-                                                                  build-primref
-                                                                  
build-lambda-case
-                                                                  
build-case-lambda
-                                                                  
build-simple-lambda
-                                                                  
build-global-definition
-                                                                  
build-global-assignment
-                                                                  
build-global-reference
-                                                                  
analyze-variable
-                                                                  
build-lexical-assignment
-                                                                  
build-lexical-reference
-                                                                  build-dynlet
-                                                                  
build-conditional
-                                                                  
build-application
-                                                                  build-void
-                                                                  
maybe-name-value!
-                                                                  
decorate-source
-                                                                  
get-global-definition-hook
-                                                                  
put-global-definition-hook
-                                                                  gensym-hook
-                                                                  
local-eval-hook
-                                                                  
top-level-eval-hook
-                                                                  fx<
-                                                                  fx=
-                                                                  fx-
-                                                                  fx+
-                                                                  
set-lambda-meta!
-                                                                  lambda-meta
-                                                                  lambda?
-                                                                  make-dynlet
-                                                                  make-letrec
-                                                                  make-let
-                                                                  
make-lambda-case
-                                                                  make-lambda
-                                                                  make-sequence
-                                                                  
make-application
-                                                                  
make-conditional
-                                                                  
make-toplevel-define
-                                                                  
make-toplevel-set
-                                                                  
make-toplevel-ref
-                                                                  
make-module-set
-                                                                  
make-module-ref
-                                                                  
make-lexical-set
-                                                                  
make-lexical-ref
-                                                                  
make-primitive-ref
-                                                                  make-const
-                                                                  make-void)
-                                                                ((top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top)
-                                                                 (top))
-                                                                ("i467"
-                                                                 "i465"
-                                                                 "i463"
-                                                                 "i461"
-                                                                 "i459"
-                                                                 "i457"
-                                                                 "i455"
-                                                                 "i453"
-                                                                 "i451"
-                                                                 "i449"
-                                                                 "i447"
-                                                                 "i445"
-                                                                 "i443"
-                                                                 "i441"
-                                                                 "i439"
-                                                                 "i437"
-                                                                 "i435"
-                                                                 "i433"
-                                                                 "i431"
-                                                                 "i429"
-                                                                 "i427"
-                                                                 "i425"
-                                                                 "i423"
-                                                                 "i421"
-                                                                 "i419"
-                                                                 "i417"
-                                                                 "i415"
-                                                                 "i413"
-                                                                 "i411"
-                                                                 "i409"
-                                                                 "i407"
-                                                                 "i405"
-                                                                 "i403"
-                                                                 "i401"
-                                                                 "i399"
-                                                                 "i398"
-                                                                 "i396"
-                                                                 "i393"
-                                                                 "i392"
-                                                                 "i391"
-                                                                 "i389"
-                                                                 "i388"
-                                                                 "i386"
-                                                                 "i384"
-                                                                 "i382"
-                                                                 "i380"
-                                                                 "i378"
-                                                                 "i376"
-                                                                 "i374"
-                                                                 "i372"
-                                                                 "i369"
-                                                                 "i367"
-                                                                 "i366"
-                                                                 "i364"
-                                                                 "i362"
-                                                                 "i360"
-                                                                 "i358"
-                                                                 "i357"
-                                                                 "i356"
-                                                                 "i355"
-                                                                 "i353"
-                                                                 "i352"
-                                                                 "i349"
-                                                                 "i347"
-                                                                 "i345"
-                                                                 "i343"
-                                                                 "i341"
-                                                                 "i339"
-                                                                 "i337"
-                                                                 "i336"
-                                                                 "i335"
-                                                                 "i333"
-                                                                 "i331"
-                                                                 "i330"
-                                                                 "i327"
-                                                                 "i326"
-                                                                 "i324"
-                                                                 "i322"
-                                                                 "i320"
-                                                                 "i318"
-                                                                 "i316"
-                                                                 "i314"
-                                                                 "i312"
-                                                                 "i310"
-                                                                 "i308"
-                                                                 "i305"
-                                                                 "i303"
-                                                                 "i301"
-                                                                 "i299"
-                                                                 "i297"
-                                                                 "i295"
-                                                                 "i293"
-                                                                 "i291"
-                                                                 "i289"
-                                                                 "i287"
-                                                                 "i285"
-                                                                 "i283"
-                                                                 "i281"
-                                                                 "i279"
-                                                                 "i277"
-                                                                 "i275"
-                                                                 "i273"
-                                                                 "i271"
-                                                                 "i269"
-                                                                 "i267"
-                                                                 "i265"
-                                                                 "i263"
-                                                                 "i261"
-                                                                 "i260"
-                                                                 "i257"
-                                                                 "i255"
-                                                                 "i254"
-                                                                 "i253"
-                                                                 "i252"
-                                                                 "i251"
-                                                                 "i249"
-                                                                 "i247"
-                                                                 "i245"
-                                                                 "i242"
-                                                                 "i240"
-                                                                 "i238"
-                                                                 "i236"
-                                                                 "i234"
-                                                                 "i232"
-                                                                 "i230"
-                                                                 "i228"
-                                                                 "i226"
-                                                                 "i224"
-                                                                 "i222"
-                                                                 "i220"
-                                                                 "i218"
-                                                                 "i216"
-                                                                 "i214"
-                                                                 "i212"
-                                                                 "i210"
-                                                                 "i208"))
-                                                              #(ribcage
-                                                                
(define-structure
-                                                                  
define-expansion-accessors
-                                                                  
define-expansion-constructors)
-                                                                ((top)
-                                                                 (top)
-                                                                 (top))
-                                                                ("i46"
-                                                                 "i45"
-                                                                 "i44")))
-                                                             (hygiene guile))
-                                                          0)
-                                                        'syntax-object)
-                                                   #f)
-                                               (vector-ref
-                                                 '#(syntax-object
-                                                    expand
-                                                    ((top)
-                                                     #(ribcage () () ())
-                                                     #(ribcage () () ())
-                                                     #(ribcage () () ())
-                                                     #(ribcage
-                                                       #(x)
-                                                       #((top))
-                                                       #("i1754"))
-                                                     #(ribcage () () ())
-                                                     #(ribcage
-                                                       #(f
-                                                         when-list
-                                                         situations)
-                                                       #((top) (top) (top))
-                                                       #("i1748"
-                                                         "i1749"
-                                                         "i1750"))
-                                                     #(ribcage () () ())
-                                                     #(ribcage
-                                                       #(e when-list w)
-                                                       #((top) (top) (top))
-                                                       #("i1745"
-                                                         "i1746"
-                                                         "i1747"))
-                                                     #(ribcage
-                                                       (lambda-var-list
-                                                         gen-var
-                                                         strip
-                                                         chi-lambda-case
-                                                         lambda*-formals
-                                                         chi-simple-lambda
-                                                         lambda-formals
-                                                         ellipsis?
-                                                         chi-void
-                                                         eval-local-transformer
-                                                         chi-local-syntax
-                                                         chi-body
-                                                         chi-macro
-                                                         chi-application
-                                                         chi-expr
-                                                         chi
-                                                         syntax-type
-                                                         chi-when-list
-                                                         chi-install-global
-                                                         chi-top-sequence
-                                                         chi-sequence
-                                                         source-wrap
-                                                         wrap
-                                                         bound-id-member?
-                                                         distinct-bound-ids?
-                                                         valid-bound-ids?
-                                                         bound-id=?
-                                                         free-id=?
-                                                         id-var-name
-                                                         same-marks?
-                                                         join-marks
-                                                         join-wraps
-                                                         smart-append
-                                                         make-binding-wrap
-                                                         extend-ribcage!
-                                                         make-empty-ribcage
-                                                         new-mark
-                                                         anti-mark
-                                                         the-anti-mark
-                                                         top-marked?
-                                                         top-wrap
-                                                         empty-wrap
-                                                         set-ribcage-labels!
-                                                         set-ribcage-marks!
-                                                         set-ribcage-symnames!
-                                                         ribcage-labels
-                                                         ribcage-marks
-                                                         ribcage-symnames
-                                                         ribcage?
-                                                         make-ribcage
-                                                         gen-labels
-                                                         gen-label
-                                                         make-rename
-                                                         rename-marks
-                                                         rename-new
-                                                         rename-old
-                                                         subst-rename?
-                                                         wrap-subst
-                                                         wrap-marks
-                                                         make-wrap
-                                                         id-sym-name&marks
-                                                         id-sym-name
-                                                         id?
-                                                         nonsymbol-id?
-                                                         global-extend
-                                                         lookup
-                                                         macros-only-env
-                                                         extend-var-env
-                                                         extend-env
-                                                         null-env
-                                                         binding-value
-                                                         binding-type
-                                                         make-binding
-                                                         arg-check
-                                                         source-annotation
-                                                         no-source
-                                                         
set-syntax-object-module!
-                                                         
set-syntax-object-wrap!
-                                                         
set-syntax-object-expression!
-                                                         syntax-object-module
-                                                         syntax-object-wrap
-                                                         
syntax-object-expression
-                                                         syntax-object?
-                                                         make-syntax-object
-                                                         build-lexical-var
-                                                         build-letrec
-                                                         build-named-let
-                                                         build-let
-                                                         build-sequence
-                                                         build-data
-                                                         build-primref
-                                                         build-lambda-case
-                                                         build-case-lambda
-                                                         build-simple-lambda
-                                                         
build-global-definition
-                                                         
build-global-assignment
-                                                         build-global-reference
-                                                         analyze-variable
-                                                         
build-lexical-assignment
-                                                         
build-lexical-reference
-                                                         build-dynlet
-                                                         build-conditional
-                                                         build-application
-                                                         build-void
-                                                         maybe-name-value!
-                                                         decorate-source
-                                                         
get-global-definition-hook
-                                                         
put-global-definition-hook
-                                                         gensym-hook
-                                                         local-eval-hook
-                                                         top-level-eval-hook
-                                                         fx<
-                                                         fx=
-                                                         fx-
-                                                         fx+
-                                                         set-lambda-meta!
-                                                         lambda-meta
-                                                         lambda?
-                                                         make-dynlet
-                                                         make-letrec
-                                                         make-let
-                                                         make-lambda-case
-                                                         make-lambda
-                                                         make-sequence
-                                                         make-application
-                                                         make-conditional
-                                                         make-toplevel-define
-                                                         make-toplevel-set
-                                                         make-toplevel-ref
-                                                         make-module-set
-                                                         make-module-ref
-                                                         make-lexical-set
-                                                         make-lexical-ref
-                                                         make-primitive-ref
-                                                         make-const
-                                                         make-void)
-                                                       ((top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top))
-                                                       ("i467"
-                                                        "i465"
-                                                        "i463"
-                                                        "i461"
-                                                        "i459"
-                                                        "i457"
-                                                        "i455"
-                                                        "i453"
-                                                        "i451"
-                                                        "i449"
-                                                        "i447"
-                                                        "i445"
-                                                        "i443"
-                                                        "i441"
-                                                        "i439"
-                                                        "i437"
-                                                        "i435"
-                                                        "i433"
-                                                        "i431"
-                                                        "i429"
-                                                        "i427"
-                                                        "i425"
-                                                        "i423"
-                                                        "i421"
-                                                        "i419"
-                                                        "i417"
-                                                        "i415"
-                                                        "i413"
-                                                        "i411"
-                                                        "i409"
-                                                        "i407"
-                                                        "i405"
-                                                        "i403"
-                                                        "i401"
-                                                        "i399"
-                                                        "i398"
-                                                        "i396"
-                                                        "i393"
-                                                        "i392"
-                                                        "i391"
-                                                        "i389"
-                                                        "i388"
-                                                        "i386"
-                                                        "i384"
-                                                        "i382"
-                                                        "i380"
-                                                        "i378"
-                                                        "i376"
-                                                        "i374"
-                                                        "i372"
-                                                        "i369"
-                                                        "i367"
-                                                        "i366"
-                                                        "i364"
-                                                        "i362"
-                                                        "i360"
-                                                        "i358"
-                                                        "i357"
-                                                        "i356"
-                                                        "i355"
-                                                        "i353"
-                                                        "i352"
-                                                        "i349"
-                                                        "i347"
-                                                        "i345"
-                                                        "i343"
-                                                        "i341"
-                                                        "i339"
-                                                        "i337"
-                                                        "i336"
-                                                        "i335"
-                                                        "i333"
-                                                        "i331"
-                                                        "i330"
-                                                        "i327"
-                                                        "i326"
-                                                        "i324"
-                                                        "i322"
-                                                        "i320"
-                                                        "i318"
-                                                        "i316"
-                                                        "i314"
-                                                        "i312"
-                                                        "i310"
-                                                        "i308"
-                                                        "i305"
-                                                        "i303"
-                                                        "i301"
-                                                        "i299"
-                                                        "i297"
-                                                        "i295"
-                                                        "i293"
-                                                        "i291"
-                                                        "i289"
-                                                        "i287"
-                                                        "i285"
-                                                        "i283"
-                                                        "i281"
-                                                        "i279"
-                                                        "i277"
-                                                        "i275"
-                                                        "i273"
-                                                        "i271"
-                                                        "i269"
-                                                        "i267"
-                                                        "i265"
-                                                        "i263"
-                                                        "i261"
-                                                        "i260"
-                                                        "i257"
-                                                        "i255"
-                                                        "i254"
-                                                        "i253"
-                                                        "i252"
-                                                        "i251"
-                                                        "i249"
-                                                        "i247"
-                                                        "i245"
-                                                        "i242"
-                                                        "i240"
-                                                        "i238"
-                                                        "i236"
-                                                        "i234"
-                                                        "i232"
-                                                        "i230"
-                                                        "i228"
-                                                        "i226"
-                                                        "i224"
-                                                        "i222"
-                                                        "i220"
-                                                        "i218"
-                                                        "i216"
-                                                        "i214"
-                                                        "i212"
-                                                        "i210"
-                                                        "i208"))
-                                                     #(ribcage
-                                                       (define-structure
-                                                         
define-expansion-accessors
-                                                         
define-expansion-constructors)
-                                                       ((top) (top) (top))
-                                                       ("i46" "i45" "i44")))
-                                                    (hygiene guile))
-                                                 1)
-                                               '#(syntax-object
-                                                  expand
-                                                  ((top)
-                                                   #(ribcage () () ())
-                                                   #(ribcage () () ())
-                                                   #(ribcage () () ())
-                                                   #(ribcage
-                                                     #(x)
-                                                     #((top))
-                                                     #("i1754"))
-                                                   #(ribcage () () ())
-                                                   #(ribcage
-                                                     #(f when-list situations)
-                                                     #((top) (top) (top))
-                                                     #("i1748"
-                                                       "i1749"
-                                                       "i1750"))
-                                                   #(ribcage () () ())
-                                                   #(ribcage
-                                                     #(e when-list w)
-                                                     #((top) (top) (top))
-                                                     #("i1745"
-                                                       "i1746"
-                                                       "i1747"))
-                                                   #(ribcage
-                                                     (lambda-var-list
-                                                       gen-var
-                                                       strip
-                                                       chi-lambda-case
-                                                       lambda*-formals
-                                                       chi-simple-lambda
-                                                       lambda-formals
-                                                       ellipsis?
-                                                       chi-void
-                                                       eval-local-transformer
-                                                       chi-local-syntax
-                                                       chi-body
-                                                       chi-macro
-                                                       chi-application
-                                                       chi-expr
-                                                       chi
-                                                       syntax-type
-                                                       chi-when-list
-                                                       chi-install-global
-                                                       chi-top-sequence
-                                                       chi-sequence
-                                                       source-wrap
-                                                       wrap
-                                                       bound-id-member?
-                                                       distinct-bound-ids?
-                                                       valid-bound-ids?
-                                                       bound-id=?
-                                                       free-id=?
-                                                       id-var-name
-                                                       same-marks?
-                                                       join-marks
-                                                       join-wraps
-                                                       smart-append
-                                                       make-binding-wrap
-                                                       extend-ribcage!
-                                                       make-empty-ribcage
-                                                       new-mark
-                                                       anti-mark
-                                                       the-anti-mark
-                                                       top-marked?
-                                                       top-wrap
-                                                       empty-wrap
-                                                       set-ribcage-labels!
-                                                       set-ribcage-marks!
-                                                       set-ribcage-symnames!
-                                                       ribcage-labels
-                                                       ribcage-marks
-                                                       ribcage-symnames
-                                                       ribcage?
-                                                       make-ribcage
-                                                       gen-labels
-                                                       gen-label
-                                                       make-rename
-                                                       rename-marks
-                                                       rename-new
-                                                       rename-old
-                                                       subst-rename?
-                                                       wrap-subst
-                                                       wrap-marks
-                                                       make-wrap
-                                                       id-sym-name&marks
-                                                       id-sym-name
-                                                       id?
-                                                       nonsymbol-id?
-                                                       global-extend
-                                                       lookup
-                                                       macros-only-env
-                                                       extend-var-env
-                                                       extend-env
-                                                       null-env
-                                                       binding-value
-                                                       binding-type
-                                                       make-binding
-                                                       arg-check
-                                                       source-annotation
-                                                       no-source
-                                                       
set-syntax-object-module!
-                                                       set-syntax-object-wrap!
-                                                       
set-syntax-object-expression!
-                                                       syntax-object-module
-                                                       syntax-object-wrap
-                                                       syntax-object-expression
-                                                       syntax-object?
-                                                       make-syntax-object
-                                                       build-lexical-var
-                                                       build-letrec
-                                                       build-named-let
-                                                       build-let
-                                                       build-sequence
-                                                       build-data
-                                                       build-primref
-                                                       build-lambda-case
-                                                       build-case-lambda
-                                                       build-simple-lambda
-                                                       build-global-definition
-                                                       build-global-assignment
-                                                       build-global-reference
-                                                       analyze-variable
-                                                       build-lexical-assignment
-                                                       build-lexical-reference
-                                                       build-dynlet
-                                                       build-conditional
-                                                       build-application
-                                                       build-void
-                                                       maybe-name-value!
-                                                       decorate-source
-                                                       
get-global-definition-hook
-                                                       
put-global-definition-hook
-                                                       gensym-hook
-                                                       local-eval-hook
-                                                       top-level-eval-hook
-                                                       fx<
-                                                       fx=
-                                                       fx-
-                                                       fx+
-                                                       set-lambda-meta!
-                                                       lambda-meta
-                                                       lambda?
-                                                       make-dynlet
-                                                       make-letrec
-                                                       make-let
-                                                       make-lambda-case
-                                                       make-lambda
-                                                       make-sequence
-                                                       make-application
-                                                       make-conditional
-                                                       make-toplevel-define
-                                                       make-toplevel-set
-                                                       make-toplevel-ref
-                                                       make-module-set
-                                                       make-module-ref
-                                                       make-lexical-set
-                                                       make-lexical-ref
-                                                       make-primitive-ref
-                                                       make-const
-                                                       make-void)
-                                                     ((top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top)
-                                                      (top))
-                                                     ("i467"
-                                                      "i465"
-                                                      "i463"
-                                                      "i461"
-                                                      "i459"
-                                                      "i457"
-                                                      "i455"
-                                                      "i453"
-                                                      "i451"
-                                                      "i449"
-                                                      "i447"
-                                                      "i445"
-                                                      "i443"
-                                                      "i441"
-                                                      "i439"
-                                                      "i437"
-                                                      "i435"
-                                                      "i433"
-                                                      "i431"
-                                                      "i429"
-                                                      "i427"
-                                                      "i425"
-                                                      "i423"
-                                                      "i421"
-                                                      "i419"
-                                                      "i417"
-                                                      "i415"
-                                                      "i413"
-                                                      "i411"
-                                                      "i409"
-                                                      "i407"
-                                                      "i405"
-                                                      "i403"
-                                                      "i401"
-                                                      "i399"
-                                                      "i398"
-                                                      "i396"
-                                                      "i393"
-                                                      "i392"
-                                                      "i391"
-                                                      "i389"
-                                                      "i388"
-                                                      "i386"
-                                                      "i384"
-                                                      "i382"
-                                                      "i380"
-                                                      "i378"
-                                                      "i376"
-                                                      "i374"
-                                                      "i372"
-                                                      "i369"
-                                                      "i367"
-                                                      "i366"
-                                                      "i364"
-                                                      "i362"
-                                                      "i360"
-                                                      "i358"
-                                                      "i357"
-                                                      "i356"
-                                                      "i355"
-                                                      "i353"
-                                                      "i352"
-                                                      "i349"
-                                                      "i347"
-                                                      "i345"
-                                                      "i343"
-                                                      "i341"
-                                                      "i339"
-                                                      "i337"
-                                                      "i336"
-                                                      "i335"
-                                                      "i333"
-                                                      "i331"
-                                                      "i330"
-                                                      "i327"
-                                                      "i326"
-                                                      "i324"
-                                                      "i322"
-                                                      "i320"
-                                                      "i318"
-                                                      "i316"
-                                                      "i314"
-                                                      "i312"
-                                                      "i310"
-                                                      "i308"
-                                                      "i305"
-                                                      "i303"
-                                                      "i301"
-                                                      "i299"
-                                                      "i297"
-                                                      "i295"
-                                                      "i293"
-                                                      "i291"
-                                                      "i289"
-                                                      "i287"
-                                                      "i285"
-                                                      "i283"
-                                                      "i281"
-                                                      "i279"
-                                                      "i277"
-                                                      "i275"
-                                                      "i273"
-                                                      "i271"
-                                                      "i269"
-                                                      "i267"
-                                                      "i265"
-                                                      "i263"
-                                                      "i261"
-                                                      "i260"
-                                                      "i257"
-                                                      "i255"
-                                                      "i254"
-                                                      "i253"
-                                                      "i252"
-                                                      "i251"
-                                                      "i249"
-                                                      "i247"
-                                                      "i245"
-                                                      "i242"
-                                                      "i240"
-                                                      "i238"
-                                                      "i236"
-                                                      "i234"
-                                                      "i232"
-                                                      "i230"
-                                                      "i228"
-                                                      "i226"
-                                                      "i224"
-                                                      "i222"
-                                                      "i220"
-                                                      "i218"
-                                                      "i216"
-                                                      "i214"
-                                                      "i212"
-                                                      "i210"
-                                                      "i208"))
-                                                   #(ribcage
-                                                     (define-structure
-                                                       
define-expansion-accessors
-                                                       
define-expansion-constructors)
-                                                     ((top) (top) (top))
-                                                     ("i46" "i45" "i44")))
-                                                  (hygiene guile))))
-                                      (eq? (#{id-var-name 4332}#
-                                             #{x 20313}#
-                                             '(()))
-                                           (#{id-var-name 4332}#
-                                             '#(syntax-object
-                                                expand
-                                                ((top)
-                                                 #(ribcage () () ())
-                                                 #(ribcage () () ())
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(x)
-                                                   #((top))
-                                                   #("i1754"))
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(f when-list situations)
-                                                   #((top) (top) (top))
-                                                   #("i1748" "i1749" "i1750"))
-                                                 #(ribcage () () ())
-                                                 #(ribcage
-                                                   #(e when-list w)
-                                                   #((top) (top) (top))
-                                                   #("i1745" "i1746" "i1747"))
-                                                 #(ribcage
-                                                   (lambda-var-list
-                                                     gen-var
-                                                     strip
-                                                     chi-lambda-case
-                                                     lambda*-formals
-                                                     chi-simple-lambda
-                                                     lambda-formals
-                                                     ellipsis?
-                                                     chi-void
-                                                     eval-local-transformer
-                                                     chi-local-syntax
-                                                     chi-body
-                                                     chi-macro
-                                                     chi-application
-                                                     chi-expr
-                                                     chi
-                                                     syntax-type
-                                                     chi-when-list
-                                                     chi-install-global
-                                                     chi-top-sequence
-                                                     chi-sequence
-                                                     source-wrap
-                                                     wrap
-                                                     bound-id-member?
-                                                     distinct-bound-ids?
-                                                     valid-bound-ids?
-                                                     bound-id=?
-                                                     free-id=?
-                                                     id-var-name
-                                                     same-marks?
-                                                     join-marks
-                                                     join-wraps
-                                                     smart-append
-                                                     make-binding-wrap
-                                                     extend-ribcage!
-                                                     make-empty-ribcage
-                                                     new-mark
-                                                     anti-mark
-                                                     the-anti-mark
-                                                     top-marked?
-                                                     top-wrap
-                                                     empty-wrap
-                                                     set-ribcage-labels!
-                                                     set-ribcage-marks!
-                                                     set-ribcage-symnames!
-                                                     ribcage-labels
-                                                     ribcage-marks
-                                                     ribcage-symnames
-                                                     ribcage?
-                                                     make-ribcage
-                                                     gen-labels
-                                                     gen-label
-                                                     make-rename
-                                                     rename-marks
-                                                     rename-new
-                                                     rename-old
-                                                     subst-rename?
-                                                     wrap-subst
-                                                     wrap-marks
-                                                     make-wrap
-                                                     id-sym-name&marks
-                                                     id-sym-name
-                                                     id?
-                                                     nonsymbol-id?
-                                                     global-extend
-                                                     lookup
-                                                     macros-only-env
-                                                     extend-var-env
-                                                     extend-env
-                                                     null-env
-                                                     binding-value
-                                                     binding-type
-                                                     make-binding
-                                                     arg-check
-                                                     source-annotation
-                                                     no-source
-                                                     set-syntax-object-module!
-                                                     set-syntax-object-wrap!
-                                                     
set-syntax-object-expression!
-                                                     syntax-object-module
-                                                     syntax-object-wrap
-                                                     syntax-object-expression
-                                                     syntax-object?
-                                                     make-syntax-object
-                                                     build-lexical-var
-                                                     build-letrec
-                                                     build-named-let
-                                                     build-let
-                                                     build-sequence
-                                                     build-data
-                                                     build-primref
-                                                     build-lambda-case
-                                                     build-case-lambda
-                                                     build-simple-lambda
-                                                     build-global-definition
-                                                     build-global-assignment
-                                                     build-global-reference
-                                                     analyze-variable
-                                                     build-lexical-assignment
-                                                     build-lexical-reference
-                                                     build-dynlet
-                                                     build-conditional
-                                                     build-application
-                                                     build-void
-                                                     maybe-name-value!
-                                                     decorate-source
-                                                     get-global-definition-hook
-                                                     put-global-definition-hook
-                                                     gensym-hook
-                                                     local-eval-hook
-                                                     top-level-eval-hook
-                                                     fx<
-                                                     fx=
-                                                     fx-
-                                                     fx+
-                                                     set-lambda-meta!
-                                                     lambda-meta
-                                                     lambda?
-                                                     make-dynlet
-                                                     make-letrec
-                                                     make-let
-                                                     make-lambda-case
-                                                     make-lambda
-                                                     make-sequence
-                                                     make-application
-                                                     make-conditional
-                                                     make-toplevel-define
-                                                     make-toplevel-set
-                                                     make-toplevel-ref
-                                                     make-module-set
-                                                     make-module-ref
-                                                     make-lexical-set
-                                                     make-lexical-ref
-                                                     make-primitive-ref
-                                                     make-const
-                                                     make-void)
-                                                   ((top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top)
-                                                    (top))
-                                                   ("i467"
-                                                    "i465"
-                                                    "i463"
-                                                    "i461"
-                                                    "i459"
-                                                    "i457"
-                                                    "i455"
-                                                    "i453"
-                                                    "i451"
-                                                    "i449"
-                                                    "i447"
-                                                    "i445"
-                                                    "i443"
-                                                    "i441"
-                                                    "i439"
-                                                    "i437"
-                                                    "i435"
-                                                    "i433"
-                                                    "i431"
-                                                    "i429"
-                                                    "i427"
-                                                    "i425"
-                                                    "i423"
-                                                    "i421"
-                                                    "i419"
-                                                    "i417"
-                                                    "i415"
-                                                    "i413"
-                                                    "i411"
-                                                    "i409"
-                                                    "i407"
-                                                    "i405"
-                                                    "i403"
-                                                    "i401"
-                                                    "i399"
-                                                    "i398"
-                                                    "i396"
-                                                    "i393"
-                                                    "i392"
-                                                    "i391"
-                                                    "i389"
-                                                    "i388"
-                                                    "i386"
-                                                    "i384"
-                                                    "i382"
-                                                    "i380"
-                                                    "i378"
-                                                    "i376"
-                                                    "i374"
-                                                    "i372"
-                                                    "i369"
-                                                    "i367"
-                                                    "i366"
-                                                    "i364"
-                                                    "i362"
-                                                    "i360"
-                                                    "i358"
-                                                    "i357"
-                                                    "i356"
-                                                    "i355"
-                                                    "i353"
-                                                    "i352"
-                                                    "i349"
-                                                    "i347"
-                                                    "i345"
-                                                    "i343"
-                                                    "i341"
-                                                    "i339"
-                                                    "i337"
-                                                    "i336"
-                                                    "i335"
-                                                    "i333"
-                                                    "i331"
-                                                    "i330"
-                                                    "i327"
-                                                    "i326"
-                                                    "i324"
-                                                    "i322"
-                                                    "i320"
-                                                    "i318"
-                                                    "i316"
-                                                    "i314"
-                                                    "i312"
-                                                    "i310"
-                                                    "i308"
-                                                    "i305"
-                                                    "i303"
-                                                    "i301"
-                                                    "i299"
-                                                    "i297"
-                                                    "i295"
-                                                    "i293"
-                                                    "i291"
-                                                    "i289"
-                                                    "i287"
-                                                    "i285"
-                                                    "i283"
-                                                    "i281"
-                                                    "i279"
-                                                    "i277"
-                                                    "i275"
-                                                    "i273"
-                                                    "i271"
-                                                    "i269"
-                                                    "i267"
-                                                    "i265"
-                                                    "i263"
-                                                    "i261"
-                                                    "i260"
-                                                    "i257"
-                                                    "i255"
-                                                    "i254"
-                                                    "i253"
-                                                    "i252"
-                                                    "i251"
-                                                    "i249"
-                                                    "i247"
-                                                    "i245"
-                                                    "i242"
-                                                    "i240"
-                                                    "i238"
-                                                    "i236"
-                                                    "i234"
-                                                    "i232"
-                                                    "i230"
-                                                    "i228"
-                                                    "i226"
-                                                    "i224"
-                                                    "i222"
-                                                    "i220"
-                                                    "i218"
-                                                    "i216"
-                                                    "i214"
-                                                    "i212"
-                                                    "i210"
-                                                    "i208"))
-                                                 #(ribcage
-                                                   (define-structure
-                                                     define-expansion-accessors
-                                                     
define-expansion-constructors)
-                                                   ((top) (top) (top))
-                                                   ("i46" "i45" "i44")))
-                                                (hygiene guile))
-                                             '(())))
-                                      #f)
-                                  'expand
-                                  (syntax-violation
-                                    'eval-when
-                                    "invalid situation"
-                                    #{e 20305}#
-                                    (#{wrap 4338}#
-                                      #{x 20313}#
-                                      #{w 20307}#
-                                      #f)))))))
-                        #{situations 20312}#))))))
-         (#{f 20308}# #{when-list 20306}# '()))))
-   (#{syntax-type 4344}#
-     (lambda (#{e 20516}#
-              #{r 20517}#
-              #{w 20518}#
-              #{s 20519}#
-              #{rib 20520}#
-              #{mod 20521}#
-              #{for-car? 20522}#)
-       (if (symbol? #{e 20516}#)
-         (let ((#{n 20523}#
-                 (#{id-var-name 4332}# #{e 20516}# #{w 20518}#)))
-           (let ((#{b 20524}#
-                   (let ((#{t 21099}# (assq #{n 20523}# #{r 20517}#)))
-                     (if #{t 21099}#
-                       (cdr #{t 21099}#)
-                       (if (symbol? #{n 20523}#)
-                         (let ((#{t 21104}#
-                                 (begin
-                                   (if (if (not #{mod 20521}#)
-                                         (current-module)
-                                         #f)
-                                     (warn "module system is booted, we should 
have a module"
-                                           #{n 20523}#))
-                                   (let ((#{v 21141}#
-                                           (module-variable
-                                             (if #{mod 20521}#
-                                               (resolve-module
-                                                 (cdr #{mod 20521}#))
-                                               (current-module))
-                                             #{n 20523}#)))
-                                     (if #{v 21141}#
-                                       (if (variable-bound? #{v 21141}#)
-                                         (let ((#{val 21150}#
-                                                 (variable-ref #{v 21141}#)))
-                                           (if (macro? #{val 21150}#)
-                                             (if (macro-type #{val 21150}#)
-                                               (cons (macro-type #{val 21150}#)
-                                                     (macro-binding
-                                                       #{val 21150}#))
-                                               #f)
-                                             #f))
-                                         #f)
-                                       #f)))))
-                           (if #{t 21104}# #{t 21104}# '(global)))
-                         '(displaced-lexical))))))
-             (let ((#{type 20525}# (car #{b 20524}#)))
-               (if (let ((#{t 20559}# #{type 20525}#))
-                     (eqv? #{t 20559}# 'lexical))
-                 (values
-                   #{type 20525}#
-                   (cdr #{b 20524}#)
-                   #{e 20516}#
-                   #{w 20518}#
-                   #{s 20519}#
-                   #{mod 20521}#)
-                 (if (let ((#{t 20716}# #{type 20525}#))
-                       (eqv? #{t 20716}# 'global))
-                   (values
-                     #{type 20525}#
-                     #{n 20523}#
-                     #{e 20516}#
-                     #{w 20518}#
-                     #{s 20519}#
-                     #{mod 20521}#)
-                   (if (let ((#{t 20842}# #{type 20525}#))
-                         (eqv? #{t 20842}# 'macro))
-                     (if #{for-car? 20522}#
-                       (values
-                         #{type 20525}#
-                         (cdr #{b 20524}#)
-                         #{e 20516}#
-                         #{w 20518}#
-                         #{s 20519}#
-                         #{mod 20521}#)
-                       (#{syntax-type 4344}#
-                         (#{chi-macro 4348}#
-                           (cdr #{b 20524}#)
-                           #{e 20516}#
-                           #{r 20517}#
-                           #{w 20518}#
-                           #{s 20519}#
-                           #{rib 20520}#
-                           #{mod 20521}#)
-                         #{r 20517}#
-                         '(())
-                         #{s 20519}#
-                         #{rib 20520}#
-                         #{mod 20521}#
-                         #f))
-                     (values
-                       #{type 20525}#
-                       (cdr #{b 20524}#)
-                       #{e 20516}#
-                       #{w 20518}#
-                       #{s 20519}#
-                       #{mod 20521}#)))))))
-         (if (pair? #{e 20516}#)
-           (let ((#{first 21161}# (car #{e 20516}#)))
-             (call-with-values
-               (lambda ()
-                 (#{syntax-type 4344}#
-                   #{first 21161}#
-                   #{r 20517}#
-                   #{w 20518}#
-                   #{s 20519}#
-                   #{rib 20520}#
-                   #{mod 20521}#
-                   #t))
-               (lambda (#{ftype 21163}#
-                        #{fval 21164}#
-                        #{fe 21165}#
-                        #{fw 21166}#
-                        #{fs 21167}#
-                        #{fmod 21168}#)
-                 (if (eqv? #{ftype 21163}# 'lexical)
-                   (values
-                     'lexical-call
-                     #{fval 21164}#
-                     #{e 20516}#
-                     #{w 20518}#
-                     #{s 20519}#
-                     #{mod 20521}#)
-                   (if (eqv? #{ftype 21163}# 'global)
-                     (values
-                       'global-call
-                       (vector
-                         'syntax-object
-                         #{fval 21164}#
-                         #{w 20518}#
-                         #{fmod 21168}#)
-                       #{e 20516}#
-                       #{w 20518}#
-                       #{s 20519}#
-                       #{mod 20521}#)
-                     (if (eqv? #{ftype 21163}# 'macro)
-                       (#{syntax-type 4344}#
-                         (#{chi-macro 4348}#
-                           #{fval 21164}#
-                           #{e 20516}#
-                           #{r 20517}#
-                           #{w 20518}#
-                           #{s 20519}#
-                           #{rib 20520}#
-                           #{mod 20521}#)
-                         #{r 20517}#
-                         '(())
-                         #{s 20519}#
-                         #{rib 20520}#
-                         #{mod 20521}#
-                         #{for-car? 20522}#)
-                       (if (eqv? #{ftype 21163}# 'module-ref)
-                         (call-with-values
-                           (lambda ()
-                             (#{fval 21164}#
-                               #{e 20516}#
-                               #{r 20517}#
-                               #{w 20518}#))
-                           (lambda (#{e 21189}#
-                                    #{r 21190}#
-                                    #{w 21191}#
-                                    #{s 21192}#
-                                    #{mod 21193}#)
-                             (#{syntax-type 4344}#
-                               #{e 21189}#
-                               #{r 21190}#
-                               #{w 21191}#
-                               #{s 21192}#
-                               #{rib 20520}#
-                               #{mod 21193}#
-                               #{for-car? 20522}#)))
-                         (if (eqv? #{ftype 21163}# 'core)
-                           (values
-                             'core-form
-                             #{fval 21164}#
-                             #{e 20516}#
-                             #{w 20518}#
-                             #{s 20519}#
-                             #{mod 20521}#)
-                           (if (eqv? #{ftype 21163}# 'local-syntax)
-                             (values
-                               'local-syntax-form
-                               #{fval 21164}#
-                               #{e 20516}#
-                               #{w 20518}#
-                               #{s 20519}#
-                               #{mod 20521}#)
-                             (if (eqv? #{ftype 21163}# 'begin)
-                               (values
-                                 'begin-form
-                                 #f
-                                 #{e 20516}#
-                                 #{w 20518}#
-                                 #{s 20519}#
-                                 #{mod 20521}#)
-                               (if (eqv? #{ftype 21163}# 'eval-when)
-                                 (values
-                                   'eval-when-form
-                                   #f
-                                   #{e 20516}#
-                                   #{w 20518}#
-                                   #{s 20519}#
-                                   #{mod 20521}#)
-                                 (if (eqv? #{ftype 21163}# 'define)
-                                   (let ((#{tmp 21210}#
-                                           ($sc-dispatch
-                                             #{e 20516}#
-                                             '(_ any any))))
-                                     (if (if #{tmp 21210}#
-                                           (@apply
-                                             (lambda (#{name 21214}#
-                                                      #{val 21215}#)
-                                               (if (symbol? #{name 21214}#)
-                                                 #t
-                                                 (if (if (vector?
-                                                           #{name 21214}#)
-                                                       (if (= (vector-length
-                                                                #{name 21214}#)
-                                                              4)
-                                                         (eq? (vector-ref
-                                                                #{name 21214}#
-                                                                0)
-                                                              'syntax-object)
-                                                         #f)
-                                                       #f)
-                                                   (symbol?
-                                                     (vector-ref
-                                                       #{name 21214}#
-                                                       1))
-                                                   #f)))
-                                             #{tmp 21210}#)
-                                           #f)
-                                       (@apply
-                                         (lambda (#{name 21242}# #{val 21243}#)
-                                           (values
-                                             'define-form
-                                             #{name 21242}#
-                                             #{val 21243}#
-                                             #{w 20518}#
-                                             #{s 20519}#
-                                             #{mod 20521}#))
-                                         #{tmp 21210}#)
-                                       (let ((#{tmp 21244}#
-                                               ($sc-dispatch
-                                                 #{e 20516}#
-                                                 '(_ (any . any)
-                                                     any
-                                                     .
-                                                     each-any))))
-                                         (if (if #{tmp 21244}#
-                                               (@apply
-                                                 (lambda (#{name 21248}#
-                                                          #{args 21249}#
-                                                          #{e1 21250}#
-                                                          #{e2 21251}#)
-                                                   (if (if (symbol?
-                                                             #{name 21248}#)
-                                                         #t
-                                                         (if (if (vector?
-                                                                   #{name 
21248}#)
-                                                               (if (= 
(vector-length
-                                                                        #{name 
21248}#)
-                                                                      4)
-                                                                 (eq? 
(vector-ref
-                                                                        #{name 
21248}#
-                                                                        0)
-                                                                      
'syntax-object)
-                                                                 #f)
-                                                               #f)
-                                                           (symbol?
-                                                             (vector-ref
-                                                               #{name 21248}#
-                                                               1))
-                                                           #f))
-                                                     (#{valid-bound-ids? 4335}#
-                                                       (letrec*
-                                                         ((#{lvl 21400}#
-                                                            (lambda (#{vars 
21402}#
-                                                                     #{ls 
21403}#
-                                                                     #{w 
21404}#)
-                                                              (if (pair? 
#{vars 21402}#)
-                                                                (#{lvl 21400}#
-                                                                  (cdr #{vars 
21402}#)
-                                                                  (cons 
(#{wrap 4338}#
-                                                                          (car 
#{vars 21402}#)
-                                                                          #{w 
21404}#
-                                                                          #f)
-                                                                        #{ls 
21403}#)
-                                                                  #{w 21404}#)
-                                                                (if (if 
(symbol?
-                                                                          
#{vars 21402}#)
-                                                                      #t
-                                                                      (if (if 
(vector?
-                                                                               
 #{vars 21402}#)
-                                                                            
(if (= (vector-length
-                                                                               
      #{vars 21402}#)
-                                                                               
    4)
-                                                                              
(eq? (vector-ref
-                                                                               
      #{vars 21402}#
-                                                                               
      0)
-                                                                               
    'syntax-object)
-                                                                              
#f)
-                                                                            #f)
-                                                                        
(symbol?
-                                                                          
(vector-ref
-                                                                            
#{vars 21402}#
-                                                                            1))
-                                                                        #f))
-                                                                  (cons 
(#{wrap 4338}#
-                                                                          
#{vars 21402}#
-                                                                          #{w 
21404}#
-                                                                          #f)
-                                                                        #{ls 
21403}#)
-                                                                  (if (null? 
#{vars 21402}#)
-                                                                    #{ls 
21403}#
-                                                                    (if (if 
(vector?
-                                                                              
#{vars 21402}#)
-                                                                          (if 
(= (vector-length
-                                                                               
    #{vars 21402}#)
-                                                                               
  4)
-                                                                            
(eq? (vector-ref
-                                                                               
    #{vars 21402}#
-                                                                               
    0)
-                                                                               
  'syntax-object)
-                                                                            #f)
-                                                                          #f)
-                                                                      (#{lvl 
21400}#
-                                                                        
(vector-ref
-                                                                          
#{vars 21402}#
-                                                                          1)
-                                                                        #{ls 
21403}#
-                                                                        
(#{join-wraps 4329}#
-                                                                          #{w 
21404}#
-                                                                          
(vector-ref
-                                                                            
#{vars 21402}#
-                                                                            
2)))
-                                                                      (cons 
#{vars 21402}#
-                                                                            
#{ls 21403}#))))))))
-                                                         (#{lvl 21400}#
-                                                           #{args 21249}#
-                                                           '()
-                                                           '(()))))
-                                                     #f))
-                                                 #{tmp 21244}#)
-                                               #f)
-                                           (@apply
-                                             (lambda (#{name 21448}#
-                                                      #{args 21449}#
-                                                      #{e1 21450}#
-                                                      #{e2 21451}#)
-                                               (values
-                                                 'define-form
-                                                 (#{wrap 4338}#
-                                                   #{name 21448}#
-                                                   #{w 20518}#
-                                                   #{mod 20521}#)
-                                                 (let ((#{e 21457}#
-                                                         (cons '#(syntax-object
-                                                                  lambda
-                                                                  ((top)
-                                                                   #(ribcage
-                                                                     #(name
-                                                                       args
-                                                                       e1
-                                                                       e2)
-                                                                     #((top)
-                                                                       (top)
-                                                                       (top)
-                                                                       (top))
-                                                                     #("i1855"
-                                                                       "i1856"
-                                                                       "i1857"
-                                                                       
"i1858"))
-                                                                   #(ribcage
-                                                                     ()
-                                                                     ()
-                                                                     ())
-                                                                   #(ribcage
-                                                                     ()
-                                                                     ()
-                                                                     ())
-                                                                   #(ribcage
-                                                                     #(ftype
-                                                                       fval
-                                                                       fe
-                                                                       fw
-                                                                       fs
-                                                                       fmod)
-                                                                     #((top)
-                                                                       (top)
-                                                                       (top)
-                                                                       (top)
-                                                                       (top)
-                                                                       (top))
-                                                                     #("i1808"
-                                                                       "i1809"
-                                                                       "i1810"
-                                                                       "i1811"
-                                                                       "i1812"
-                                                                       
"i1813"))
-                                                                   #(ribcage
-                                                                     ()
-                                                                     ()
-                                                                     ())
-                                                                   #(ribcage
-                                                                     #(first)
-                                                                     #((top))
-                                                                     
#("i1800"))
-                                                                   #(ribcage
-                                                                     ()
-                                                                     ()
-                                                                     ())
-                                                                   #(ribcage
-                                                                     ()
-                                                                     ()
-                                                                     ())
-                                                                   #(ribcage
-                                                                     ()
-                                                                     ()
-                                                                     ())
-                                                                   #(ribcage
-                                                                     #(e
-                                                                       r
-                                                                       w
-                                                                       s
-                                                                       rib
-                                                                       mod
-                                                                       
for-car?)
-                                                                     #((top)
-                                                                       (top)
-                                                                       (top)
-                                                                       (top)
-                                                                       (top)
-                                                                       (top)
-                                                                       (top))
-                                                                     #("i1772"
-                                                                       "i1773"
-                                                                       "i1774"
-                                                                       "i1775"
-                                                                       "i1776"
-                                                                       "i1777"
-                                                                       
"i1778"))
-                                                                   #(ribcage
-                                                                     
(lambda-var-list
-                                                                       gen-var
-                                                                       strip
-                                                                       
chi-lambda-case
-                                                                       
lambda*-formals
-                                                                       
chi-simple-lambda
-                                                                       
lambda-formals
-                                                                       
ellipsis?
-                                                                       chi-void
-                                                                       
eval-local-transformer
-                                                                       
chi-local-syntax
-                                                                       chi-body
-                                                                       
chi-macro
-                                                                       
chi-application
-                                                                       chi-expr
-                                                                       chi
-                                                                       
syntax-type
-                                                                       
chi-when-list
-                                                                       
chi-install-global
-                                                                       
chi-top-sequence
-                                                                       
chi-sequence
-                                                                       
source-wrap
-                                                                       wrap
-                                                                       
bound-id-member?
-                                                                       
distinct-bound-ids?
-                                                                       
valid-bound-ids?
-                                                                       
bound-id=?
-                                                                       
free-id=?
-                                                                       
id-var-name
-                                                                       
same-marks?
-                                                                       
join-marks
-                                                                       
join-wraps
-                                                                       
smart-append
-                                                                       
make-binding-wrap
-                                                                       
extend-ribcage!
-                                                                       
make-empty-ribcage
-                                                                       new-mark
-                                                                       
anti-mark
-                                                                       
the-anti-mark
-                                                                       
top-marked?
-                                                                       top-wrap
-                                                                       
empty-wrap
-                                                                       
set-ribcage-labels!
-                                                                       
set-ribcage-marks!
-                                                                       
set-ribcage-symnames!
-                                                                       
ribcage-labels
-                                                                       
ribcage-marks
-                                                                       
ribcage-symnames
-                                                                       ribcage?
-                                                                       
make-ribcage
-                                                                       
gen-labels
-                                                                       
gen-label
-                                                                       
make-rename
-                                                                       
rename-marks
-                                                                       
rename-new
-                                                                       
rename-old
-                                                                       
subst-rename?
-                                                                       
wrap-subst
-                                                                       
wrap-marks
-                                                                       
make-wrap
-                                                                       
id-sym-name&marks
-                                                                       
id-sym-name
-                                                                       id?
-                                                                       
nonsymbol-id?
-                                                                       
global-extend
-                                                                       lookup
-                                                                       
macros-only-env
-                                                                       
extend-var-env
-                                                                       
extend-env
-                                                                       null-env
-                                                                       
binding-value
-                                                                       
binding-type
-                                                                       
make-binding
-                                                                       
arg-check
-                                                                       
source-annotation
-                                                                       
no-source
-                                                                       
set-syntax-object-module!
-                                                                       
set-syntax-object-wrap!
-                                                                       
set-syntax-object-expression!
-                                                                       
syntax-object-module
-                                                                       
syntax-object-wrap
-                                                                       
syntax-object-expression
-                                                                       
syntax-object?
-                                                                       
make-syntax-object
-                                                                       
build-lexical-var
-                                                                       
build-letrec
-                                                                       
build-named-let
-                                                                       
build-let
-                                                                       
build-sequence
-                                                                       
build-data
-                                                                       
build-primref
-                                                                       
build-lambda-case
-                                                                       
build-case-lambda
-                                                                       
build-simple-lambda
-                                                                       
build-global-definition
-                                                                       
build-global-assignment
-                                                                       
build-global-reference
-                                                                       
analyze-variable
-                                                                       
build-lexical-assignment
-                                                                       
build-lexical-reference
-                                                                       
build-dynlet
-                                                                       
build-conditional
-                                                                       
build-application
-                                                                       
build-void
-                                                                       
maybe-name-value!
-                                                                       
decorate-source
-                                                                       
get-global-definition-hook
-                                                                       
put-global-definition-hook
-                                                                       
gensym-hook
-                                                                       
local-eval-hook
-                                                                       
top-level-eval-hook
-                                                                       fx<
-                                                                       fx=
-                                                                       fx-
-                                                                       fx+
-                                                                       
set-lambda-meta!
-                                                                       
lambda-meta
-                                                                       lambda?
-                                                                       
make-dynlet
-                                                                       
make-letrec
-                                                                       make-let
-                                                                       
make-lambda-case
-                                                                       
make-lambda
-                                                                       
make-sequence
-                                                                       
make-application
-                                                                       
make-conditional
-                                                                       
make-toplevel-define
-                                                                       
make-toplevel-set
-                                                                       
make-toplevel-ref
-                                                                       
make-module-set
-                                                                       
make-module-ref
-                                                                       
make-lexical-set
-                                                                       
make-lexical-ref
-                                                                       
make-primitive-ref
-                                                                       
make-const
-                                                                       
make-void)
-                                                                     ((top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top)
-                                                                      (top))
-                                                                     ("i467"
-                                                                      "i465"
-                                                                      "i463"
-                                                                      "i461"
-                                                                      "i459"
-                                                                      "i457"
-                                                                      "i455"
-                                                                      "i453"
-                                                                      "i451"
-                                                                      "i449"
-                                                                      "i447"
-                                                                      "i445"
-                                                                      "i443"
-                                                                      "i441"
-                                                                      "i439"
-                                                                      "i437"
-                                                                      "i435"
-                                                                      "i433"
-                                                                      "i431"
-                                                                      "i429"
-                                                                      "i427"
-                                                                      "i425"
-                                                                      "i423"
-                                                                      "i421"
-                                                                      "i419"
-                                                                      "i417"
-                                                                      "i415"
-                                                                      "i413"
-                                                                      "i411"
-                                                                      "i409"
-                                                                      "i407"
-                                                                      "i405"
-                                                                      "i403"
-                                                                      "i401"
-                                                                      "i399"
-                                                                      "i398"
-                                                                      "i396"
-                                                                      "i393"
-                                                                      "i392"
-                                                                      "i391"
-                                                                      "i389"
-                                                                      "i388"
-                                                                      "i386"
-                                                                      "i384"
-                                                                      "i382"
-                                                                      "i380"
-                                                                      "i378"
-                                                                      "i376"
-                                                                      "i374"
-                                                                      "i372"
-                                                                      "i369"
-                                                                      "i367"
-                                                                      "i366"
-                                                                      "i364"
-                                                                      "i362"
-                                                                      "i360"
-                                                                      "i358"
-                                                                      "i357"
-                                                                      "i356"
-                                                                      "i355"
-                                                                      "i353"
-                                                                      "i352"
-                                                                      "i349"
-                                                                      "i347"
-                                                                      "i345"
-                                                                      "i343"
-                                                                      "i341"
-                                                                      "i339"
-                                                                      "i337"
-                                                                      "i336"
-                                                                      "i335"
-                                                                      "i333"
-                                                                      "i331"
-                                                                      "i330"
-                                                                      "i327"
-                                                                      "i326"
-                                                                      "i324"
-                                                                      "i322"
-                                                                      "i320"
-                                                                      "i318"
-                                                                      "i316"
-                                                                      "i314"
-                                                                      "i312"
-                                                                      "i310"
-                                                                      "i308"
-                                                                      "i305"
-                                                                      "i303"
-                                                                      "i301"
-                                                                      "i299"
-                                                                      "i297"
-                                                                      "i295"
-                                                                      "i293"
-                                                                      "i291"
-                                                                      "i289"
-                                                                      "i287"
-                                                                      "i285"
-                                                                      "i283"
-                                                                      "i281"
-                                                                      "i279"
-                                                                      "i277"
-                                                                      "i275"
-                                                                      "i273"
-                                                                      "i271"
-                                                                      "i269"
-                                                                      "i267"
-                                                                      "i265"
-                                                                      "i263"
-                                                                      "i261"
-                                                                      "i260"
-                                                                      "i257"
-                                                                      "i255"
-                                                                      "i254"
-                                                                      "i253"
-                                                                      "i252"
-                                                                      "i251"
-                                                                      "i249"
-                                                                      "i247"
-                                                                      "i245"
-                                                                      "i242"
-                                                                      "i240"
-                                                                      "i238"
-                                                                      "i236"
-                                                                      "i234"
-                                                                      "i232"
-                                                                      "i230"
-                                                                      "i228"
-                                                                      "i226"
-                                                                      "i224"
-                                                                      "i222"
-                                                                      "i220"
-                                                                      "i218"
-                                                                      "i216"
-                                                                      "i214"
-                                                                      "i212"
-                                                                      "i210"
-                                                                      "i208"))
-                                                                   #(ribcage
-                                                                     
(define-structure
-                                                                       
define-expansion-accessors
-                                                                       
define-expansion-constructors)
-                                                                     ((top)
-                                                                      (top)
-                                                                      (top))
-                                                                     ("i46"
-                                                                      "i45"
-                                                                      "i44")))
-                                                                  (hygiene
-                                                                    guile))
-                                                               (#{wrap 4338}#
-                                                                 (cons #{args 
21449}#
-                                                                       (cons 
#{e1 21450}#
-                                                                             
#{e2 21451}#))
-                                                                 #{w 20518}#
-                                                                 #{mod 
20521}#))))
-                                                   (begin
-                                                     (if (if (pair? #{e 
21457}#)
-                                                           #{s 20519}#
-                                                           #f)
-                                                       (set-source-properties!
-                                                         #{e 21457}#
-                                                         #{s 20519}#))
-                                                     #{e 21457}#))
-                                                 '(())
-                                                 #{s 20519}#
-                                                 #{mod 20521}#))
-                                             #{tmp 21244}#)
-                                           (let ((#{tmp 21464}#
-                                                   ($sc-dispatch
-                                                     #{e 20516}#
-                                                     '(_ any))))
-                                             (if (if #{tmp 21464}#
-                                                   (@apply
-                                                     (lambda (#{name 21468}#)
-                                                       (if (symbol?
-                                                             #{name 21468}#)
-                                                         #t
-                                                         (if (if (vector?
-                                                                   #{name 
21468}#)
-                                                               (if (= 
(vector-length
-                                                                        #{name 
21468}#)
-                                                                      4)
-                                                                 (eq? 
(vector-ref
-                                                                        #{name 
21468}#
-                                                                        0)
-                                                                      
'syntax-object)
-                                                                 #f)
-                                                               #f)
-                                                           (symbol?
-                                                             (vector-ref
-                                                               #{name 21468}#
-                                                               1))
-                                                           #f)))
-                                                     #{tmp 21464}#)
-                                                   #f)
-                                               (@apply
-                                                 (lambda (#{name 21495}#)
-                                                   (values
-                                                     'define-form
-                                                     (#{wrap 4338}#
-                                                       #{name 21495}#
-                                                       #{w 20518}#
-                                                       #{mod 20521}#)
-                                                     '(#(syntax-object
-                                                         if
-                                                         ((top)
-                                                          #(ribcage
-                                                            #(name)
-                                                            #((top))
-                                                            #("i1868"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(ftype
-                                                              fval
-                                                              fe
-                                                              fw
-                                                              fs
-                                                              fmod)
-                                                            #((top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1808"
-                                                              "i1809"
-                                                              "i1810"
-                                                              "i1811"
-                                                              "i1812"
-                                                              "i1813"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(first)
-                                                            #((top))
-                                                            #("i1800"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(e
-                                                              r
-                                                              w
-                                                              s
-                                                              rib
-                                                              mod
-                                                              for-car?)
-                                                            #((top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1772"
-                                                              "i1773"
-                                                              "i1774"
-                                                              "i1775"
-                                                              "i1776"
-                                                              "i1777"
-                                                              "i1778"))
-                                                          #(ribcage
-                                                            (lambda-var-list
-                                                              gen-var
-                                                              strip
-                                                              chi-lambda-case
-                                                              lambda*-formals
-                                                              chi-simple-lambda
-                                                              lambda-formals
-                                                              ellipsis?
-                                                              chi-void
-                                                              
eval-local-transformer
-                                                              chi-local-syntax
-                                                              chi-body
-                                                              chi-macro
-                                                              chi-application
-                                                              chi-expr
-                                                              chi
-                                                              syntax-type
-                                                              chi-when-list
-                                                              
chi-install-global
-                                                              chi-top-sequence
-                                                              chi-sequence
-                                                              source-wrap
-                                                              wrap
-                                                              bound-id-member?
-                                                              
distinct-bound-ids?
-                                                              valid-bound-ids?
-                                                              bound-id=?
-                                                              free-id=?
-                                                              id-var-name
-                                                              same-marks?
-                                                              join-marks
-                                                              join-wraps
-                                                              smart-append
-                                                              make-binding-wrap
-                                                              extend-ribcage!
-                                                              
make-empty-ribcage
-                                                              new-mark
-                                                              anti-mark
-                                                              the-anti-mark
-                                                              top-marked?
-                                                              top-wrap
-                                                              empty-wrap
-                                                              
set-ribcage-labels!
-                                                              
set-ribcage-marks!
-                                                              
set-ribcage-symnames!
-                                                              ribcage-labels
-                                                              ribcage-marks
-                                                              ribcage-symnames
-                                                              ribcage?
-                                                              make-ribcage
-                                                              gen-labels
-                                                              gen-label
-                                                              make-rename
-                                                              rename-marks
-                                                              rename-new
-                                                              rename-old
-                                                              subst-rename?
-                                                              wrap-subst
-                                                              wrap-marks
-                                                              make-wrap
-                                                              id-sym-name&marks
-                                                              id-sym-name
-                                                              id?
-                                                              nonsymbol-id?
-                                                              global-extend
-                                                              lookup
-                                                              macros-only-env
-                                                              extend-var-env
-                                                              extend-env
-                                                              null-env
-                                                              binding-value
-                                                              binding-type
-                                                              make-binding
-                                                              arg-check
-                                                              source-annotation
-                                                              no-source
-                                                              
set-syntax-object-module!
-                                                              
set-syntax-object-wrap!
-                                                              
set-syntax-object-expression!
-                                                              
syntax-object-module
-                                                              
syntax-object-wrap
-                                                              
syntax-object-expression
-                                                              syntax-object?
-                                                              
make-syntax-object
-                                                              build-lexical-var
-                                                              build-letrec
-                                                              build-named-let
-                                                              build-let
-                                                              build-sequence
-                                                              build-data
-                                                              build-primref
-                                                              build-lambda-case
-                                                              build-case-lambda
-                                                              
build-simple-lambda
-                                                              
build-global-definition
-                                                              
build-global-assignment
-                                                              
build-global-reference
-                                                              analyze-variable
-                                                              
build-lexical-assignment
-                                                              
build-lexical-reference
-                                                              build-dynlet
-                                                              build-conditional
-                                                              build-application
-                                                              build-void
-                                                              maybe-name-value!
-                                                              decorate-source
-                                                              
get-global-definition-hook
-                                                              
put-global-definition-hook
-                                                              gensym-hook
-                                                              local-eval-hook
-                                                              
top-level-eval-hook
-                                                              fx<
-                                                              fx=
-                                                              fx-
-                                                              fx+
-                                                              set-lambda-meta!
-                                                              lambda-meta
-                                                              lambda?
-                                                              make-dynlet
-                                                              make-letrec
-                                                              make-let
-                                                              make-lambda-case
-                                                              make-lambda
-                                                              make-sequence
-                                                              make-application
-                                                              make-conditional
-                                                              
make-toplevel-define
-                                                              make-toplevel-set
-                                                              make-toplevel-ref
-                                                              make-module-set
-                                                              make-module-ref
-                                                              make-lexical-set
-                                                              make-lexical-ref
-                                                              
make-primitive-ref
-                                                              make-const
-                                                              make-void)
-                                                            ((top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top))
-                                                            ("i467"
-                                                             "i465"
-                                                             "i463"
-                                                             "i461"
-                                                             "i459"
-                                                             "i457"
-                                                             "i455"
-                                                             "i453"
-                                                             "i451"
-                                                             "i449"
-                                                             "i447"
-                                                             "i445"
-                                                             "i443"
-                                                             "i441"
-                                                             "i439"
-                                                             "i437"
-                                                             "i435"
-                                                             "i433"
-                                                             "i431"
-                                                             "i429"
-                                                             "i427"
-                                                             "i425"
-                                                             "i423"
-                                                             "i421"
-                                                             "i419"
-                                                             "i417"
-                                                             "i415"
-                                                             "i413"
-                                                             "i411"
-                                                             "i409"
-                                                             "i407"
-                                                             "i405"
-                                                             "i403"
-                                                             "i401"
-                                                             "i399"
-                                                             "i398"
-                                                             "i396"
-                                                             "i393"
-                                                             "i392"
-                                                             "i391"
-                                                             "i389"
-                                                             "i388"
-                                                             "i386"
-                                                             "i384"
-                                                             "i382"
-                                                             "i380"
-                                                             "i378"
-                                                             "i376"
-                                                             "i374"
-                                                             "i372"
-                                                             "i369"
-                                                             "i367"
-                                                             "i366"
-                                                             "i364"
-                                                             "i362"
-                                                             "i360"
-                                                             "i358"
-                                                             "i357"
-                                                             "i356"
-                                                             "i355"
-                                                             "i353"
-                                                             "i352"
-                                                             "i349"
-                                                             "i347"
-                                                             "i345"
-                                                             "i343"
-                                                             "i341"
-                                                             "i339"
-                                                             "i337"
-                                                             "i336"
-                                                             "i335"
-                                                             "i333"
-                                                             "i331"
-                                                             "i330"
-                                                             "i327"
-                                                             "i326"
-                                                             "i324"
-                                                             "i322"
-                                                             "i320"
-                                                             "i318"
-                                                             "i316"
-                                                             "i314"
-                                                             "i312"
-                                                             "i310"
-                                                             "i308"
-                                                             "i305"
-                                                             "i303"
-                                                             "i301"
-                                                             "i299"
-                                                             "i297"
-                                                             "i295"
-                                                             "i293"
-                                                             "i291"
-                                                             "i289"
-                                                             "i287"
-                                                             "i285"
-                                                             "i283"
-                                                             "i281"
-                                                             "i279"
-                                                             "i277"
-                                                             "i275"
-                                                             "i273"
-                                                             "i271"
-                                                             "i269"
-                                                             "i267"
-                                                             "i265"
-                                                             "i263"
-                                                             "i261"
-                                                             "i260"
-                                                             "i257"
-                                                             "i255"
-                                                             "i254"
-                                                             "i253"
-                                                             "i252"
-                                                             "i251"
-                                                             "i249"
-                                                             "i247"
-                                                             "i245"
-                                                             "i242"
-                                                             "i240"
-                                                             "i238"
-                                                             "i236"
-                                                             "i234"
-                                                             "i232"
-                                                             "i230"
-                                                             "i228"
-                                                             "i226"
-                                                             "i224"
-                                                             "i222"
-                                                             "i220"
-                                                             "i218"
-                                                             "i216"
-                                                             "i214"
-                                                             "i212"
-                                                             "i210"
-                                                             "i208"))
-                                                          #(ribcage
-                                                            (define-structure
-                                                              
define-expansion-accessors
-                                                              
define-expansion-constructors)
-                                                            ((top) (top) (top))
-                                                            ("i46"
-                                                             "i45"
-                                                             "i44")))
-                                                         (hygiene guile))
-                                                       #(syntax-object
-                                                         #f
-                                                         ((top)
-                                                          #(ribcage
-                                                            #(name)
-                                                            #((top))
-                                                            #("i1868"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(ftype
-                                                              fval
-                                                              fe
-                                                              fw
-                                                              fs
-                                                              fmod)
-                                                            #((top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1808"
-                                                              "i1809"
-                                                              "i1810"
-                                                              "i1811"
-                                                              "i1812"
-                                                              "i1813"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(first)
-                                                            #((top))
-                                                            #("i1800"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(e
-                                                              r
-                                                              w
-                                                              s
-                                                              rib
-                                                              mod
-                                                              for-car?)
-                                                            #((top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1772"
-                                                              "i1773"
-                                                              "i1774"
-                                                              "i1775"
-                                                              "i1776"
-                                                              "i1777"
-                                                              "i1778"))
-                                                          #(ribcage
-                                                            (lambda-var-list
-                                                              gen-var
-                                                              strip
-                                                              chi-lambda-case
-                                                              lambda*-formals
-                                                              chi-simple-lambda
-                                                              lambda-formals
-                                                              ellipsis?
-                                                              chi-void
-                                                              
eval-local-transformer
-                                                              chi-local-syntax
-                                                              chi-body
-                                                              chi-macro
-                                                              chi-application
-                                                              chi-expr
-                                                              chi
-                                                              syntax-type
-                                                              chi-when-list
-                                                              
chi-install-global
-                                                              chi-top-sequence
-                                                              chi-sequence
-                                                              source-wrap
-                                                              wrap
-                                                              bound-id-member?
-                                                              
distinct-bound-ids?
-                                                              valid-bound-ids?
-                                                              bound-id=?
-                                                              free-id=?
-                                                              id-var-name
-                                                              same-marks?
-                                                              join-marks
-                                                              join-wraps
-                                                              smart-append
-                                                              make-binding-wrap
-                                                              extend-ribcage!
-                                                              
make-empty-ribcage
-                                                              new-mark
-                                                              anti-mark
-                                                              the-anti-mark
-                                                              top-marked?
-                                                              top-wrap
-                                                              empty-wrap
-                                                              
set-ribcage-labels!
-                                                              
set-ribcage-marks!
-                                                              
set-ribcage-symnames!
-                                                              ribcage-labels
-                                                              ribcage-marks
-                                                              ribcage-symnames
-                                                              ribcage?
-                                                              make-ribcage
-                                                              gen-labels
-                                                              gen-label
-                                                              make-rename
-                                                              rename-marks
-                                                              rename-new
-                                                              rename-old
-                                                              subst-rename?
-                                                              wrap-subst
-                                                              wrap-marks
-                                                              make-wrap
-                                                              id-sym-name&marks
-                                                              id-sym-name
-                                                              id?
-                                                              nonsymbol-id?
-                                                              global-extend
-                                                              lookup
-                                                              macros-only-env
-                                                              extend-var-env
-                                                              extend-env
-                                                              null-env
-                                                              binding-value
-                                                              binding-type
-                                                              make-binding
-                                                              arg-check
-                                                              source-annotation
-                                                              no-source
-                                                              
set-syntax-object-module!
-                                                              
set-syntax-object-wrap!
-                                                              
set-syntax-object-expression!
-                                                              
syntax-object-module
-                                                              
syntax-object-wrap
-                                                              
syntax-object-expression
-                                                              syntax-object?
-                                                              
make-syntax-object
-                                                              build-lexical-var
-                                                              build-letrec
-                                                              build-named-let
-                                                              build-let
-                                                              build-sequence
-                                                              build-data
-                                                              build-primref
-                                                              build-lambda-case
-                                                              build-case-lambda
-                                                              
build-simple-lambda
-                                                              
build-global-definition
-                                                              
build-global-assignment
-                                                              
build-global-reference
-                                                              analyze-variable
-                                                              
build-lexical-assignment
-                                                              
build-lexical-reference
-                                                              build-dynlet
-                                                              build-conditional
-                                                              build-application
-                                                              build-void
-                                                              maybe-name-value!
-                                                              decorate-source
-                                                              
get-global-definition-hook
-                                                              
put-global-definition-hook
-                                                              gensym-hook
-                                                              local-eval-hook
-                                                              
top-level-eval-hook
-                                                              fx<
-                                                              fx=
-                                                              fx-
-                                                              fx+
-                                                              set-lambda-meta!
-                                                              lambda-meta
-                                                              lambda?
-                                                              make-dynlet
-                                                              make-letrec
-                                                              make-let
-                                                              make-lambda-case
-                                                              make-lambda
-                                                              make-sequence
-                                                              make-application
-                                                              make-conditional
-                                                              
make-toplevel-define
-                                                              make-toplevel-set
-                                                              make-toplevel-ref
-                                                              make-module-set
-                                                              make-module-ref
-                                                              make-lexical-set
-                                                              make-lexical-ref
-                                                              
make-primitive-ref
-                                                              make-const
-                                                              make-void)
-                                                            ((top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top))
-                                                            ("i467"
-                                                             "i465"
-                                                             "i463"
-                                                             "i461"
-                                                             "i459"
-                                                             "i457"
-                                                             "i455"
-                                                             "i453"
-                                                             "i451"
-                                                             "i449"
-                                                             "i447"
-                                                             "i445"
-                                                             "i443"
-                                                             "i441"
-                                                             "i439"
-                                                             "i437"
-                                                             "i435"
-                                                             "i433"
-                                                             "i431"
-                                                             "i429"
-                                                             "i427"
-                                                             "i425"
-                                                             "i423"
-                                                             "i421"
-                                                             "i419"
-                                                             "i417"
-                                                             "i415"
-                                                             "i413"
-                                                             "i411"
-                                                             "i409"
-                                                             "i407"
-                                                             "i405"
-                                                             "i403"
-                                                             "i401"
-                                                             "i399"
-                                                             "i398"
-                                                             "i396"
-                                                             "i393"
-                                                             "i392"
-                                                             "i391"
-                                                             "i389"
-                                                             "i388"
-                                                             "i386"
-                                                             "i384"
-                                                             "i382"
-                                                             "i380"
-                                                             "i378"
-                                                             "i376"
-                                                             "i374"
-                                                             "i372"
-                                                             "i369"
-                                                             "i367"
-                                                             "i366"
-                                                             "i364"
-                                                             "i362"
-                                                             "i360"
-                                                             "i358"
-                                                             "i357"
-                                                             "i356"
-                                                             "i355"
-                                                             "i353"
-                                                             "i352"
-                                                             "i349"
-                                                             "i347"
-                                                             "i345"
-                                                             "i343"
-                                                             "i341"
-                                                             "i339"
-                                                             "i337"
-                                                             "i336"
-                                                             "i335"
-                                                             "i333"
-                                                             "i331"
-                                                             "i330"
-                                                             "i327"
-                                                             "i326"
-                                                             "i324"
-                                                             "i322"
-                                                             "i320"
-                                                             "i318"
-                                                             "i316"
-                                                             "i314"
-                                                             "i312"
-                                                             "i310"
-                                                             "i308"
-                                                             "i305"
-                                                             "i303"
-                                                             "i301"
-                                                             "i299"
-                                                             "i297"
-                                                             "i295"
-                                                             "i293"
-                                                             "i291"
-                                                             "i289"
-                                                             "i287"
-                                                             "i285"
-                                                             "i283"
-                                                             "i281"
-                                                             "i279"
-                                                             "i277"
-                                                             "i275"
-                                                             "i273"
-                                                             "i271"
-                                                             "i269"
-                                                             "i267"
-                                                             "i265"
-                                                             "i263"
-                                                             "i261"
-                                                             "i260"
-                                                             "i257"
-                                                             "i255"
-                                                             "i254"
-                                                             "i253"
-                                                             "i252"
-                                                             "i251"
-                                                             "i249"
-                                                             "i247"
-                                                             "i245"
-                                                             "i242"
-                                                             "i240"
-                                                             "i238"
-                                                             "i236"
-                                                             "i234"
-                                                             "i232"
-                                                             "i230"
-                                                             "i228"
-                                                             "i226"
-                                                             "i224"
-                                                             "i222"
-                                                             "i220"
-                                                             "i218"
-                                                             "i216"
-                                                             "i214"
-                                                             "i212"
-                                                             "i210"
-                                                             "i208"))
-                                                          #(ribcage
-                                                            (define-structure
-                                                              
define-expansion-accessors
-                                                              
define-expansion-constructors)
-                                                            ((top) (top) (top))
-                                                            ("i46"
-                                                             "i45"
-                                                             "i44")))
-                                                         (hygiene guile))
-                                                       #(syntax-object
-                                                         #f
-                                                         ((top)
-                                                          #(ribcage
-                                                            #(name)
-                                                            #((top))
-                                                            #("i1868"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(ftype
-                                                              fval
-                                                              fe
-                                                              fw
-                                                              fs
-                                                              fmod)
-                                                            #((top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1808"
-                                                              "i1809"
-                                                              "i1810"
-                                                              "i1811"
-                                                              "i1812"
-                                                              "i1813"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(first)
-                                                            #((top))
-                                                            #("i1800"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(e
-                                                              r
-                                                              w
-                                                              s
-                                                              rib
-                                                              mod
-                                                              for-car?)
-                                                            #((top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top))
-                                                            #("i1772"
-                                                              "i1773"
-                                                              "i1774"
-                                                              "i1775"
-                                                              "i1776"
-                                                              "i1777"
-                                                              "i1778"))
-                                                          #(ribcage
-                                                            (lambda-var-list
-                                                              gen-var
-                                                              strip
-                                                              chi-lambda-case
-                                                              lambda*-formals
-                                                              chi-simple-lambda
-                                                              lambda-formals
-                                                              ellipsis?
-                                                              chi-void
-                                                              
eval-local-transformer
-                                                              chi-local-syntax
-                                                              chi-body
-                                                              chi-macro
-                                                              chi-application
-                                                              chi-expr
-                                                              chi
-                                                              syntax-type
-                                                              chi-when-list
-                                                              
chi-install-global
-                                                              chi-top-sequence
-                                                              chi-sequence
-                                                              source-wrap
-                                                              wrap
-                                                              bound-id-member?
-                                                              
distinct-bound-ids?
-                                                              valid-bound-ids?
-                                                              bound-id=?
-                                                              free-id=?
-                                                              id-var-name
-                                                              same-marks?
-                                                              join-marks
-                                                              join-wraps
-                                                              smart-append
-                                                              make-binding-wrap
-                                                              extend-ribcage!
-                                                              
make-empty-ribcage
-                                                              new-mark
-                                                              anti-mark
-                                                              the-anti-mark
-                                                              top-marked?
-                                                              top-wrap
-                                                              empty-wrap
-                                                              
set-ribcage-labels!
-                                                              
set-ribcage-marks!
-                                                              
set-ribcage-symnames!
-                                                              ribcage-labels
-                                                              ribcage-marks
-                                                              ribcage-symnames
-                                                              ribcage?
-                                                              make-ribcage
-                                                              gen-labels
-                                                              gen-label
-                                                              make-rename
-                                                              rename-marks
-                                                              rename-new
-                                                              rename-old
-                                                              subst-rename?
-                                                              wrap-subst
-                                                              wrap-marks
-                                                              make-wrap
-                                                              id-sym-name&marks
-                                                              id-sym-name
-                                                              id?
-                                                              nonsymbol-id?
-                                                              global-extend
-                                                              lookup
-                                                              macros-only-env
-                                                              extend-var-env
-                                                              extend-env
-                                                              null-env
-                                                              binding-value
-                                                              binding-type
-                                                              make-binding
-                                                              arg-check
-                                                              source-annotation
-                                                              no-source
-                                                              
set-syntax-object-module!
-                                                              
set-syntax-object-wrap!
-                                                              
set-syntax-object-expression!
-                                                              
syntax-object-module
-                                                              
syntax-object-wrap
-                                                              
syntax-object-expression
-                                                              syntax-object?
-                                                              
make-syntax-object
-                                                              build-lexical-var
-                                                              build-letrec
-                                                              build-named-let
-                                                              build-let
-                                                              build-sequence
-                                                              build-data
-                                                              build-primref
-                                                              build-lambda-case
-                                                              build-case-lambda
-                                                              
build-simple-lambda
-                                                              
build-global-definition
-                                                              
build-global-assignment
-                                                              
build-global-reference
-                                                              analyze-variable
-                                                              
build-lexical-assignment
-                                                              
build-lexical-reference
-                                                              build-dynlet
-                                                              build-conditional
-                                                              build-application
-                                                              build-void
-                                                              maybe-name-value!
-                                                              decorate-source
-                                                              
get-global-definition-hook
-                                                              
put-global-definition-hook
-                                                              gensym-hook
-                                                              local-eval-hook
-                                                              
top-level-eval-hook
-                                                              fx<
-                                                              fx=
-                                                              fx-
-                                                              fx+
-                                                              set-lambda-meta!
-                                                              lambda-meta
-                                                              lambda?
-                                                              make-dynlet
-                                                              make-letrec
-                                                              make-let
-                                                              make-lambda-case
-                                                              make-lambda
-                                                              make-sequence
-                                                              make-application
-                                                              make-conditional
-                                                              
make-toplevel-define
-                                                              make-toplevel-set
-                                                              make-toplevel-ref
-                                                              make-module-set
-                                                              make-module-ref
-                                                              make-lexical-set
-                                                              make-lexical-ref
-                                                              
make-primitive-ref
-                                                              make-const
-                                                              make-void)
-                                                            ((top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top)
-                                                             (top))
-                                                            ("i467"
-                                                             "i465"
-                                                             "i463"
-                                                             "i461"
-                                                             "i459"
-                                                             "i457"
-                                                             "i455"
-                                                             "i453"
-                                                             "i451"
-                                                             "i449"
-                                                             "i447"
-                                                             "i445"
-                                                             "i443"
-                                                             "i441"
-                                                             "i439"
-                                                             "i437"
-                                                             "i435"
-                                                             "i433"
-                                                             "i431"
-                                                             "i429"
-                                                             "i427"
-                                                             "i425"
-                                                             "i423"
-                                                             "i421"
-                                                             "i419"
-                                                             "i417"
-                                                             "i415"
-                                                             "i413"
-                                                             "i411"
-                                                             "i409"
-                                                             "i407"
-                                                             "i405"
-                                                             "i403"
-                                                             "i401"
-                                                             "i399"
-                                                             "i398"
-                                                             "i396"
-                                                             "i393"
-                                                             "i392"
-                                                             "i391"
-                                                             "i389"
-                                                             "i388"
-                                                             "i386"
-                                                             "i384"
-                                                             "i382"
-                                                             "i380"
-                                                             "i378"
-                                                             "i376"
-                                                             "i374"
-                                                             "i372"
-                                                             "i369"
-                                                             "i367"
-                                                             "i366"
-                                                             "i364"
-                                                             "i362"
-                                                             "i360"
-                                                             "i358"
-                                                             "i357"
-                                                             "i356"
-                                                             "i355"
-                                                             "i353"
-                                                             "i352"
-                                                             "i349"
-                                                             "i347"
-                                                             "i345"
-                                                             "i343"
-                                                             "i341"
-                                                             "i339"
-                                                             "i337"
-                                                             "i336"
-                                                             "i335"
-                                                             "i333"
-                                                             "i331"
-                                                             "i330"
-                                                             "i327"
-                                                             "i326"
-                                                             "i324"
-                                                             "i322"
-                                                             "i320"
-                                                             "i318"
-                                                             "i316"
-                                                             "i314"
-                                                             "i312"
-                                                             "i310"
-                                                             "i308"
-                                                             "i305"
-                                                             "i303"
-                                                             "i301"
-                                                             "i299"
-                                                             "i297"
-                                                             "i295"
-                                                             "i293"
-                                                             "i291"
-                                                             "i289"
-                                                             "i287"
-                                                             "i285"
-                                                             "i283"
-                                                             "i281"
-                                                             "i279"
-                                                             "i277"
-                                                             "i275"
-                                                             "i273"
-                                                             "i271"
-                                                             "i269"
-                                                             "i267"
-                                                             "i265"
-                                                             "i263"
-                                                             "i261"
-                                                             "i260"
-                                                             "i257"
-                                                             "i255"
-                                                             "i254"
-                                                             "i253"
-                                                             "i252"
-                                                             "i251"
-                                                             "i249"
-                                                             "i247"
-                                                             "i245"
-                                                             "i242"
-                                                             "i240"
-                                                             "i238"
-                                                             "i236"
-                                                             "i234"
-                                                             "i232"
-                                                             "i230"
-                                                             "i228"
-                                                             "i226"
-                                                             "i224"
-                                                             "i222"
-                                                             "i220"
-                                                             "i218"
-                                                             "i216"
-                                                             "i214"
-                                                             "i212"
-                                                             "i210"
-                                                             "i208"))
-                                                          #(ribcage
-                                                            (define-structure
-                                                              
define-expansion-accessors
-                                                              
define-expansion-constructors)
-                                                            ((top) (top) (top))
-                                                            ("i46"
-                                                             "i45"
-                                                             "i44")))
-                                                         (hygiene guile)))
-                                                     '(())
-                                                     #{s 20519}#
-                                                     #{mod 20521}#))
-                                                 #{tmp 21464}#)
-                                               (syntax-violation
-                                                 #f
-                                                 "source expression failed to 
match any pattern"
-                                                 #{e 20516}#)))))))
-                                   (if (eqv? #{ftype 21163}# 'define-syntax)
-                                     (let ((#{tmp 21514}#
-                                             ($sc-dispatch
-                                               #{e 20516}#
-                                               '(_ any any))))
-                                       (if (if #{tmp 21514}#
-                                             (@apply
-                                               (lambda (#{name 21518}#
-                                                        #{val 21519}#)
-                                                 (if (symbol? #{name 21518}#)
-                                                   #t
-                                                   (if (if (vector?
-                                                             #{name 21518}#)
-                                                         (if (= (vector-length
-                                                                  #{name 
21518}#)
-                                                                4)
-                                                           (eq? (vector-ref
-                                                                  #{name 
21518}#
-                                                                  0)
-                                                                'syntax-object)
-                                                           #f)
-                                                         #f)
-                                                     (symbol?
-                                                       (vector-ref
-                                                         #{name 21518}#
-                                                         1))
-                                                     #f)))
-                                               #{tmp 21514}#)
-                                             #f)
-                                         (@apply
-                                           (lambda (#{name 21546}#
-                                                    #{val 21547}#)
-                                             (values
-                                               'define-syntax-form
-                                               #{name 21546}#
-                                               #{val 21547}#
-                                               #{w 20518}#
-                                               #{s 20519}#
-                                               #{mod 20521}#))
-                                           #{tmp 21514}#)
-                                         (syntax-violation
-                                           #f
-                                           "source expression failed to match 
any pattern"
-                                           #{e 20516}#)))
-                                     (values
-                                       'call
-                                       #f
-                                       #{e 20516}#
-                                       #{w 20518}#
-                                       #{s 20519}#
-                                       #{mod 20521}#))))))))))))))
-           (if (if (vector? #{e 20516}#)
-                 (if (= (vector-length #{e 20516}#) 4)
-                   (eq? (vector-ref #{e 20516}# 0) 'syntax-object)
-                   #f)
-                 #f)
-             (#{syntax-type 4344}#
-               (vector-ref #{e 20516}# 1)
-               #{r 20517}#
-               (#{join-wraps 4329}#
-                 #{w 20518}#
-                 (vector-ref #{e 20516}# 2))
-               (let ((#{t 21574}#
-                       (#{source-annotation 4306}# #{e 20516}#)))
-                 (if #{t 21574}# #{t 21574}# #{s 20519}#))
-               #{rib 20520}#
-               (let ((#{t 21834}# (vector-ref #{e 20516}# 3)))
-                 (if #{t 21834}# #{t 21834}# #{mod 20521}#))
-               #{for-car? 20522}#)
-             (if (self-evaluating? #{e 20516}#)
-               (values
-                 'constant
-                 #f
-                 #{e 20516}#
-                 #{w 20518}#
-                 #{s 20519}#
-                 #{mod 20521}#)
-               (values
-                 'other
-                 #f
-                 #{e 20516}#
-                 #{w 20518}#
-                 #{s 20519}#
-                 #{mod 20521}#)))))))
-   (#{chi 4345}#
-     (lambda (#{e 21843}#
-              #{r 21844}#
-              #{w 21845}#
-              #{mod 21846}#)
-       (call-with-values
-         (lambda ()
-           (#{syntax-type 4344}#
-             #{e 21843}#
-             #{r 21844}#
-             #{w 21845}#
-             (#{source-annotation 4306}# #{e 21843}#)
-             #f
-             #{mod 21846}#
-             #f))
-         (lambda (#{type 22020}#
-                  #{value 22021}#
-                  #{e 22022}#
-                  #{w 22023}#
-                  #{s 22024}#
-                  #{mod 22025}#)
-           (#{chi-expr 4346}#
-             #{type 22020}#
-             #{value 22021}#
-             #{e 22022}#
-             #{r 21844}#
-             #{w 22023}#
-             #{s 22024}#
-             #{mod 22025}#)))))
-   (#{chi-expr 4346}#
-     (lambda (#{type 22028}#
-              #{value 22029}#
-              #{e 22030}#
-              #{r 22031}#
-              #{w 22032}#
-              #{s 22033}#
-              #{mod 22034}#)
-       (if (eqv? #{type 22028}# 'lexical)
-         (make-struct/no-tail
-           (vector-ref %expanded-vtables 3)
-           #{s 22033}#
-           #{e 22030}#
-           #{value 22029}#)
-         (if (if (eqv? #{type 22028}# 'core)
-               #t
-               (eqv? #{type 22028}# 'core-form))
-           (#{value 22029}#
-             #{e 22030}#
-             #{r 22031}#
-             #{w 22032}#
-             #{s 22033}#
-             #{mod 22034}#)
-           (if (eqv? #{type 22028}# 'module-ref)
-             (call-with-values
-               (lambda ()
-                 (#{value 22029}#
-                   #{e 22030}#
-                   #{r 22031}#
-                   #{w 22032}#))
-               (lambda (#{e 22060}#
-                        #{r 22061}#
-                        #{w 22062}#
-                        #{s 22063}#
-                        #{mod 22064}#)
-                 (#{chi 4345}#
-                   #{e 22060}#
-                   #{r 22061}#
-                   #{w 22062}#
-                   #{mod 22064}#)))
-             (if (eqv? #{type 22028}# 'lexical-call)
-               (#{chi-application 4347}#
-                 (let ((#{id 22144}# (car #{e 22030}#)))
-                   (#{build-lexical-reference 4283}#
-                     'fun
-                     (#{source-annotation 4306}# #{id 22144}#)
-                     (if (if (vector? #{id 22144}#)
-                           (if (= (vector-length #{id 22144}#) 4)
-                             (eq? (vector-ref #{id 22144}# 0) 'syntax-object)
-                             #f)
-                           #f)
-                       (syntax->datum #{id 22144}#)
-                       #{id 22144}#)
-                     #{value 22029}#))
-                 #{e 22030}#
-                 #{r 22031}#
-                 #{w 22032}#
-                 #{s 22033}#
-                 #{mod 22034}#)
-               (if (eqv? #{type 22028}# 'global-call)
-                 (#{chi-application 4347}#
-                   (#{build-global-reference 4286}#
-                     (#{source-annotation 4306}# (car #{e 22030}#))
-                     (if (if (vector? #{value 22029}#)
-                           (if (= (vector-length #{value 22029}#) 4)
-                             (eq? (vector-ref #{value 22029}# 0)
-                                  'syntax-object)
-                             #f)
-                           #f)
-                       (vector-ref #{value 22029}# 1)
-                       #{value 22029}#)
-                     (if (if (vector? #{value 22029}#)
-                           (if (= (vector-length #{value 22029}#) 4)
-                             (eq? (vector-ref #{value 22029}# 0)
-                                  'syntax-object)
-                             #f)
-                           #f)
-                       (vector-ref #{value 22029}# 3)
-                       #{mod 22034}#))
-                   #{e 22030}#
-                   #{r 22031}#
-                   #{w 22032}#
-                   #{s 22033}#
-                   #{mod 22034}#)
-                 (if (eqv? #{type 22028}# 'constant)
-                   (let ((#{exp 22680}#
-                           (#{strip 4358}#
-                             (#{wrap 4338}#
-                               (begin
-                                 (if (if (pair? #{e 22030}#) #{s 22033}# #f)
-                                   (set-source-properties!
-                                     #{e 22030}#
-                                     #{s 22033}#))
-                                 #{e 22030}#)
-                               #{w 22032}#
-                               #{mod 22034}#)
-                             '(()))))
-                     (make-struct/no-tail
-                       (vector-ref %expanded-vtables 1)
-                       #{s 22033}#
-                       #{exp 22680}#))
-                   (if (eqv? #{type 22028}# 'global)
-                     (#{analyze-variable 4285}#
-                       #{mod 22034}#
-                       #{value 22029}#
-                       (lambda (#{mod 22716}# #{var 22717}# #{public? 22718}#)
-                         (make-struct/no-tail
-                           (vector-ref %expanded-vtables 5)
-                           #{s 22033}#
-                           #{mod 22716}#
-                           #{var 22717}#
-                           #{public? 22718}#))
-                       (lambda (#{var 22727}#)
-                         (make-struct/no-tail
-                           (vector-ref %expanded-vtables 7)
-                           #{s 22033}#
-                           #{var 22727}#)))
-                     (if (eqv? #{type 22028}# 'call)
-                       (#{chi-application 4347}#
-                         (#{chi 4345}#
-                           (car #{e 22030}#)
-                           #{r 22031}#
-                           #{w 22032}#
-                           #{mod 22034}#)
-                         #{e 22030}#
-                         #{r 22031}#
-                         #{w 22032}#
-                         #{s 22033}#
-                         #{mod 22034}#)
-                       (if (eqv? #{type 22028}# 'begin-form)
-                         (let ((#{tmp 22807}#
-                                 ($sc-dispatch
-                                   #{e 22030}#
-                                   '(_ any . each-any))))
-                           (if #{tmp 22807}#
-                             (@apply
-                               (lambda (#{e1 22811}# #{e2 22812}#)
-                                 (#{chi-sequence 4340}#
-                                   (cons #{e1 22811}# #{e2 22812}#)
-                                   #{r 22031}#
-                                   #{w 22032}#
-                                   #{s 22033}#
-                                   #{mod 22034}#))
-                               #{tmp 22807}#)
-                             (syntax-violation
-                               #f
-                               "source expression failed to match any pattern"
-                               #{e 22030}#)))
-                         (if (eqv? #{type 22028}# 'local-syntax-form)
-                           (#{chi-local-syntax 4350}#
-                             #{value 22029}#
-                             #{e 22030}#
-                             #{r 22031}#
-                             #{w 22032}#
-                             #{s 22033}#
-                             #{mod 22034}#
-                             #{chi-sequence 4340}#)
-                           (if (eqv? #{type 22028}# 'eval-when-form)
-                             (let ((#{tmp 22978}#
-                                     ($sc-dispatch
-                                       #{e 22030}#
-                                       '(_ each-any any . each-any))))
-                               (if #{tmp 22978}#
-                                 (@apply
-                                   (lambda (#{x 22982}#
-                                            #{e1 22983}#
-                                            #{e2 22984}#)
-                                     (let ((#{when-list 22985}#
-                                             (#{chi-when-list 4343}#
-                                               #{e 22030}#
-                                               #{x 22982}#
-                                               #{w 22032}#)))
-                                       (if (memq 'eval #{when-list 22985}#)
-                                         (#{chi-sequence 4340}#
-                                           (cons #{e1 22983}# #{e2 22984}#)
-                                           #{r 22031}#
-                                           #{w 22032}#
-                                           #{s 22033}#
-                                           #{mod 22034}#)
-                                         (make-struct/no-tail
-                                           (vector-ref %expanded-vtables 0)
-                                           #f))))
-                                   #{tmp 22978}#)
-                                 (syntax-violation
-                                   #f
-                                   "source expression failed to match any 
pattern"
-                                   #{e 22030}#)))
-                             (if (if (eqv? #{type 22028}# 'define-form)
-                                   #t
-                                   (eqv? #{type 22028}# 'define-syntax-form))
-                               (syntax-violation
-                                 #f
-                                 "definition in expression context"
-                                 #{e 22030}#
-                                 (#{wrap 4338}#
-                                   #{value 22029}#
-                                   #{w 22032}#
-                                   #{mod 22034}#))
-                               (if (eqv? #{type 22028}# 'syntax)
-                                 (syntax-violation
-                                   #f
-                                   "reference to pattern variable outside 
syntax form"
-                                   (#{wrap 4338}#
-                                     (begin
-                                       (if (if (pair? #{e 22030}#)
-                                             #{s 22033}#
-                                             #f)
-                                         (set-source-properties!
-                                           #{e 22030}#
-                                           #{s 22033}#))
-                                       #{e 22030}#)
-                                     #{w 22032}#
-                                     #{mod 22034}#))
-                                 (if (eqv? #{type 22028}# 'displaced-lexical)
-                                   (syntax-violation
-                                     #f
-                                     "reference to identifier outside its 
scope"
-                                     (#{wrap 4338}#
-                                       (begin
-                                         (if (if (pair? #{e 22030}#)
-                                               #{s 22033}#
-                                               #f)
-                                           (set-source-properties!
-                                             #{e 22030}#
-                                             #{s 22033}#))
-                                         #{e 22030}#)
-                                       #{w 22032}#
-                                       #{mod 22034}#))
-                                   (syntax-violation
-                                     #f
-                                     "unexpected syntax"
-                                     (#{wrap 4338}#
-                                       (begin
-                                         (if (if (pair? #{e 22030}#)
-                                               #{s 22033}#
-                                               #f)
-                                           (set-source-properties!
-                                             #{e 22030}#
-                                             #{s 22033}#))
-                                         #{e 22030}#)
-                                       #{w 22032}#
-                                       #{mod 22034}#))))))))))))))))))
-   (#{chi-application 4347}#
-     (lambda (#{x 23174}#
-              #{e 23175}#
-              #{r 23176}#
-              #{w 23177}#
-              #{s 23178}#
-              #{mod 23179}#)
-       (let ((#{tmp 23181}#
-               ($sc-dispatch #{e 23175}# '(any . each-any))))
-         (if #{tmp 23181}#
-           (@apply
-             (lambda (#{e0 23185}# #{e1 23186}#)
-               (#{build-application 4280}#
-                 #{s 23178}#
-                 #{x 23174}#
-                 (map (lambda (#{e 23271}#)
-                        (#{chi 4345}#
-                          #{e 23271}#
-                          #{r 23176}#
-                          #{w 23177}#
-                          #{mod 23179}#))
-                      #{e1 23186}#)))
-             #{tmp 23181}#)
-           (syntax-violation
-             #f
-             "source expression failed to match any pattern"
-             #{e 23175}#)))))
-   (#{chi-macro 4348}#
-     (lambda (#{p 23352}#
-              #{e 23353}#
-              #{r 23354}#
-              #{w 23355}#
-              #{s 23356}#
-              #{rib 23357}#
-              #{mod 23358}#)
-       (letrec*
-         ((#{rebuild-macro-output 23359}#
-            (lambda (#{x 23390}# #{m 23391}#)
-              (if (pair? #{x 23390}#)
-                (let ((#{e 23395}#
-                        (cons (#{rebuild-macro-output 23359}#
-                                (car #{x 23390}#)
-                                #{m 23391}#)
-                              (#{rebuild-macro-output 23359}#
-                                (cdr #{x 23390}#)
-                                #{m 23391}#))))
-                  (begin
-                    (if (if (pair? #{e 23395}#) #{s 23356}# #f)
-                      (set-source-properties! #{e 23395}# #{s 23356}#))
-                    #{e 23395}#))
-                (if (if (vector? #{x 23390}#)
-                      (if (= (vector-length #{x 23390}#) 4)
-                        (eq? (vector-ref #{x 23390}# 0) 'syntax-object)
-                        #f)
-                      #f)
-                  (let ((#{w 23411}# (vector-ref #{x 23390}# 2)))
-                    (let ((#{ms 23412}# (car #{w 23411}#))
-                          (#{s 23413}# (cdr #{w 23411}#)))
-                      (if (if (pair? #{ms 23412}#)
-                            (eq? (car #{ms 23412}#) #f)
-                            #f)
-                        (let ((#{expression 23421}# (vector-ref #{x 23390}# 1))
-                              (#{wrap 23422}#
-                                (cons (cdr #{ms 23412}#)
-                                      (if #{rib 23357}#
-                                        (cons #{rib 23357}# (cdr #{s 23413}#))
-                                        (cdr #{s 23413}#))))
-                              (#{module 23423}# (vector-ref #{x 23390}# 3)))
-                          (vector
-                            'syntax-object
-                            #{expression 23421}#
-                            #{wrap 23422}#
-                            #{module 23423}#))
-                        (let ((#{expression 23433}#
-                                (let ((#{e 23438}# (vector-ref #{x 23390}# 1)))
-                                  (begin
-                                    (if (if (pair? #{e 23438}#) #{s 23413}# #f)
-                                      (set-source-properties!
-                                        #{e 23438}#
-                                        #{s 23413}#))
-                                    #{e 23438}#)))
-                              (#{wrap 23434}#
-                                (cons (cons #{m 23391}# #{ms 23412}#)
-                                      (if #{rib 23357}#
-                                        (cons #{rib 23357}#
-                                              (cons 'shift #{s 23413}#))
-                                        (cons 'shift #{s 23413}#))))
-                              (#{module 23435}# (vector-ref #{x 23390}# 3)))
-                          (vector
-                            'syntax-object
-                            #{expression 23433}#
-                            #{wrap 23434}#
-                            #{module 23435}#)))))
-                  (if (vector? #{x 23390}#)
-                    (let ((#{n 23450}# (vector-length #{x 23390}#)))
-                      (let ((#{v 23451}#
-                              (let ((#{e 23459}# (make-vector #{n 23450}#)))
-                                (begin
-                                  (if (if (pair? #{e 23459}#) #{x 23390}# #f)
-                                    (set-source-properties!
-                                      #{e 23459}#
-                                      #{x 23390}#))
-                                  #{e 23459}#))))
-                        (letrec*
-                          ((#{loop 23452}#
-                             (lambda (#{i 23504}#)
-                               (if (= #{i 23504}# #{n 23450}#)
-                                 #{v 23451}#
-                                 (begin
-                                   (vector-set!
-                                     #{v 23451}#
-                                     #{i 23504}#
-                                     (#{rebuild-macro-output 23359}#
-                                       (vector-ref #{x 23390}# #{i 23504}#)
-                                       #{m 23391}#))
-                                   (#{loop 23452}# (#{1+}# #{i 23504}#)))))))
-                          (#{loop 23452}# 0))))
-                    (if (symbol? #{x 23390}#)
-                      (syntax-violation
-                        #f
-                        "encountered raw symbol in macro output"
-                        (let ((#{s 23510}# (cdr #{w 23355}#)))
-                          (#{wrap 4338}#
-                            (begin
-                              (if (if (pair? #{e 23353}#) #{s 23510}# #f)
-                                (set-source-properties!
-                                  #{e 23353}#
-                                  #{s 23510}#))
-                              #{e 23353}#)
-                            #{w 23355}#
-                            #{mod 23358}#))
-                        #{x 23390}#)
-                      (begin
-                        (if (if (pair? #{x 23390}#) #{s 23356}# #f)
-                          (set-source-properties! #{x 23390}# #{s 23356}#))
-                        #{x 23390}#))))))))
-         (#{rebuild-macro-output 23359}#
-           (#{p 23352}#
-             (let ((#{w 23366}#
-                     (cons (cons #f (car #{w 23355}#))
-                           (cons 'shift (cdr #{w 23355}#)))))
-               (#{wrap 4338}#
-                 (begin
-                   (if (if (pair? #{e 23353}#) #{s 23356}# #f)
-                     (set-source-properties! #{e 23353}# #{s 23356}#))
-                   #{e 23353}#)
-                 #{w 23366}#
-                 #{mod 23358}#)))
-           (gensym "m")))))
-   (#{chi-body 4349}#
-     (lambda (#{body 23542}#
-              #{outer-form 23543}#
-              #{r 23544}#
-              #{w 23545}#
-              #{mod 23546}#)
-       (let ((#{r 23547}#
-               (cons '("placeholder" placeholder) #{r 23544}#)))
-         (let ((#{ribcage 23548}# (vector 'ribcage '() '() '())))
-           (let ((#{w 23549}#
-                   (cons (car #{w 23545}#)
-                         (cons #{ribcage 23548}# (cdr #{w 23545}#)))))
-             (letrec*
-               ((#{parse 23550}#
-                  (lambda (#{body 23563}#
-                           #{ids 23564}#
-                           #{labels 23565}#
-                           #{var-ids 23566}#
-                           #{vars 23567}#
-                           #{vals 23568}#
-                           #{bindings 23569}#)
-                    (if (null? #{body 23563}#)
-                      (syntax-violation
-                        #f
-                        "no expressions in body"
-                        #{outer-form 23543}#)
-                      (let ((#{e 23570}# (cdr (car #{body 23563}#)))
-                            (#{er 23571}# (car (car #{body 23563}#))))
-                        (call-with-values
-                          (lambda ()
-                            (#{syntax-type 4344}#
-                              #{e 23570}#
-                              #{er 23571}#
-                              '(())
-                              (#{source-annotation 4306}# #{er 23571}#)
-                              #{ribcage 23548}#
-                              #{mod 23546}#
-                              #f))
-                          (lambda (#{type 23747}#
-                                   #{value 23748}#
-                                   #{e 23749}#
-                                   #{w 23750}#
-                                   #{s 23751}#
-                                   #{mod 23752}#)
-                            (if (eqv? #{type 23747}# 'define-form)
-                              (let ((#{id 23756}#
-                                      (#{wrap 4338}#
-                                        #{value 23748}#
-                                        #{w 23750}#
-                                        #{mod 23752}#))
-                                    (#{label 23757}#
-                                      (symbol->string (gensym "i"))))
-                                (let ((#{var 23758}#
-                                        (let ((#{id 23818}#
-                                                (if (if (vector? #{id 23756}#)
-                                                      (if (= (vector-length
-                                                               #{id 23756}#)
-                                                             4)
-                                                        (eq? (vector-ref
-                                                               #{id 23756}#
-                                                               0)
-                                                             'syntax-object)
-                                                        #f)
-                                                      #f)
-                                                  (vector-ref #{id 23756}# 1)
-                                                  #{id 23756}#)))
-                                          (gensym
-                                            (string-append
-                                              (symbol->string #{id 23818}#)
-                                              " ")))))
-                                  (begin
-                                    (let ((#{update 23808}#
-                                            (cons (vector-ref #{id 23756}# 1)
-                                                  (vector-ref
-                                                    #{ribcage 23548}#
-                                                    1))))
-                                      (vector-set!
-                                        #{ribcage 23548}#
-                                        1
-                                        #{update 23808}#))
-                                    (let ((#{update 23810}#
-                                            (cons (car (vector-ref
-                                                         #{id 23756}#
-                                                         2))
-                                                  (vector-ref
-                                                    #{ribcage 23548}#
-                                                    2))))
-                                      (vector-set!
-                                        #{ribcage 23548}#
-                                        2
-                                        #{update 23810}#))
-                                    (let ((#{update 23812}#
-                                            (cons #{label 23757}#
-                                                  (vector-ref
-                                                    #{ribcage 23548}#
-                                                    3))))
-                                      (vector-set!
-                                        #{ribcage 23548}#
-                                        3
-                                        #{update 23812}#))
-                                    (#{parse 23550}#
-                                      (cdr #{body 23563}#)
-                                      (cons #{id 23756}# #{ids 23564}#)
-                                      (cons #{label 23757}# #{labels 23565}#)
-                                      (cons #{id 23756}# #{var-ids 23566}#)
-                                      (cons #{var 23758}# #{vars 23567}#)
-                                      (cons (cons #{er 23571}#
-                                                  (#{wrap 4338}#
-                                                    #{e 23749}#
-                                                    #{w 23750}#
-                                                    #{mod 23752}#))
-                                            #{vals 23568}#)
-                                      (cons (cons 'lexical #{var 23758}#)
-                                            #{bindings 23569}#)))))
-                              (if (eqv? #{type 23747}# 'define-syntax-form)
-                                (let ((#{id 23846}#
-                                        (#{wrap 4338}#
-                                          #{value 23748}#
-                                          #{w 23750}#
-                                          #{mod 23752}#))
-                                      (#{label 23847}#
-                                        (symbol->string (gensym "i"))))
-                                  (begin
-                                    (let ((#{update 23897}#
-                                            (cons (vector-ref #{id 23846}# 1)
-                                                  (vector-ref
-                                                    #{ribcage 23548}#
-                                                    1))))
-                                      (vector-set!
-                                        #{ribcage 23548}#
-                                        1
-                                        #{update 23897}#))
-                                    (let ((#{update 23899}#
-                                            (cons (car (vector-ref
-                                                         #{id 23846}#
-                                                         2))
-                                                  (vector-ref
-                                                    #{ribcage 23548}#
-                                                    2))))
-                                      (vector-set!
-                                        #{ribcage 23548}#
-                                        2
-                                        #{update 23899}#))
-                                    (let ((#{update 23901}#
-                                            (cons #{label 23847}#
-                                                  (vector-ref
-                                                    #{ribcage 23548}#
-                                                    3))))
-                                      (vector-set!
-                                        #{ribcage 23548}#
-                                        3
-                                        #{update 23901}#))
-                                    (#{parse 23550}#
-                                      (cdr #{body 23563}#)
-                                      (cons #{id 23846}# #{ids 23564}#)
-                                      (cons #{label 23847}# #{labels 23565}#)
-                                      #{var-ids 23566}#
-                                      #{vars 23567}#
-                                      #{vals 23568}#
-                                      (cons (cons 'macro
-                                                  (cons #{er 23571}#
-                                                        (#{wrap 4338}#
-                                                          #{e 23749}#
-                                                          #{w 23750}#
-                                                          #{mod 23752}#)))
-                                            #{bindings 23569}#))))
-                                (if (eqv? #{type 23747}# 'begin-form)
-                                  (let ((#{tmp 23909}#
-                                          ($sc-dispatch
-                                            #{e 23749}#
-                                            '(_ . each-any))))
-                                    (if #{tmp 23909}#
-                                      (@apply
-                                        (lambda (#{e1 23913}#)
-                                          (#{parse 23550}#
-                                            (letrec*
-                                              ((#{f 23914}#
-                                                 (lambda (#{forms 23977}#)
-                                                   (if (null? #{forms 23977}#)
-                                                     (cdr #{body 23563}#)
-                                                     (cons (cons #{er 23571}#
-                                                                 (#{wrap 4338}#
-                                                                   (car 
#{forms 23977}#)
-                                                                   #{w 23750}#
-                                                                   #{mod 
23752}#))
-                                                           (#{f 23914}#
-                                                             (cdr #{forms 
23977}#)))))))
-                                              (#{f 23914}# #{e1 23913}#))
-                                            #{ids 23564}#
-                                            #{labels 23565}#
-                                            #{var-ids 23566}#
-                                            #{vars 23567}#
-                                            #{vals 23568}#
-                                            #{bindings 23569}#))
-                                        #{tmp 23909}#)
-                                      (syntax-violation
-                                        #f
-                                        "source expression failed to match any 
pattern"
-                                        #{e 23749}#)))
-                                  (if (eqv? #{type 23747}# 'local-syntax-form)
-                                    (#{chi-local-syntax 4350}#
-                                      #{value 23748}#
-                                      #{e 23749}#
-                                      #{er 23571}#
-                                      #{w 23750}#
-                                      #{s 23751}#
-                                      #{mod 23752}#
-                                      (lambda (#{forms 23991}#
-                                               #{er 23992}#
-                                               #{w 23993}#
-                                               #{s 23994}#
-                                               #{mod 23995}#)
-                                        (#{parse 23550}#
-                                          (letrec*
-                                            ((#{f 23996}#
-                                               (lambda (#{forms 24059}#)
-                                                 (if (null? #{forms 24059}#)
-                                                   (cdr #{body 23563}#)
-                                                   (cons (cons #{er 23992}#
-                                                               (#{wrap 4338}#
-                                                                 (car #{forms 
24059}#)
-                                                                 #{w 23993}#
-                                                                 #{mod 
23995}#))
-                                                         (#{f 23996}#
-                                                           (cdr #{forms 
24059}#)))))))
-                                            (#{f 23996}# #{forms 23991}#))
-                                          #{ids 23564}#
-                                          #{labels 23565}#
-                                          #{var-ids 23566}#
-                                          #{vars 23567}#
-                                          #{vals 23568}#
-                                          #{bindings 23569}#)))
-                                    (if (null? #{ids 23564}#)
-                                      (#{build-sequence 4294}#
-                                        #f
-                                        (map (lambda (#{x 24129}#)
-                                               (#{chi 4345}#
-                                                 (cdr #{x 24129}#)
-                                                 (car #{x 24129}#)
-                                                 '(())
-                                                 #{mod 23752}#))
-                                             (cons (cons #{er 23571}#
-                                                         (#{wrap 4338}#
-                                                           (begin
-                                                             (if (if (pair? 
#{e 23749}#)
-                                                                   #{s 23751}#
-                                                                   #f)
-                                                               
(set-source-properties!
-                                                                 #{e 23749}#
-                                                                 #{s 23751}#))
-                                                             #{e 23749}#)
-                                                           #{w 23750}#
-                                                           #{mod 23752}#))
-                                                   (cdr #{body 23563}#))))
-                                      (begin
-                                        (if (not (#{valid-bound-ids? 4335}#
-                                                   #{ids 23564}#))
-                                          (syntax-violation
-                                            #f
-                                            "invalid or duplicate identifier 
in definition"
-                                            #{outer-form 23543}#))
-                                        (letrec*
-                                          ((#{loop 24291}#
-                                             (lambda (#{bs 24294}#
-                                                      #{er-cache 24295}#
-                                                      #{r-cache 24296}#)
-                                               (if (not (null? #{bs 24294}#))
-                                                 (let ((#{b 24297}#
-                                                         (car #{bs 24294}#)))
-                                                   (if (eq? (car #{b 24297}#)
-                                                            'macro)
-                                                     (let ((#{er 24299}#
-                                                             (car (cdr #{b 
24297}#))))
-                                                       (let ((#{r-cache 24300}#
-                                                               (if (eq? #{er 
24299}#
-                                                                        
#{er-cache 24295}#)
-                                                                 #{r-cache 
24296}#
-                                                                 
(#{macros-only-env 4309}#
-                                                                   #{er 
24299}#))))
-                                                         (begin
-                                                           (set-cdr!
-                                                             #{b 24297}#
-                                                             
(#{eval-local-transformer 4351}#
-                                                               (#{chi 4345}#
-                                                                 (cdr (cdr #{b 
24297}#))
-                                                                 #{r-cache 
24300}#
-                                                                 '(())
-                                                                 #{mod 23752}#)
-                                                               #{mod 23752}#))
-                                                           (#{loop 24291}#
-                                                             (cdr #{bs 24294}#)
-                                                             #{er 24299}#
-                                                             #{r-cache 
24300}#))))
-                                                     (#{loop 24291}#
-                                                       (cdr #{bs 24294}#)
-                                                       #{er-cache 24295}#
-                                                       #{r-cache 24296}#)))))))
-                                          (#{loop 24291}#
-                                            #{bindings 23569}#
-                                            #f
-                                            #f))
-                                        (set-cdr!
-                                          #{r 23547}#
-                                          (#{extend-env 4307}#
-                                            #{labels 23565}#
-                                            #{bindings 23569}#
-                                            (cdr #{r 23547}#)))
-                                        (#{build-letrec 4297}#
-                                          #f
-                                          #t
-                                          (reverse
-                                            (map syntax->datum
-                                                 #{var-ids 23566}#))
-                                          (reverse #{vars 23567}#)
-                                          (map (lambda (#{x 24653}#)
-                                                 (#{chi 4345}#
-                                                   (cdr #{x 24653}#)
-                                                   (car #{x 24653}#)
-                                                   '(())
-                                                   #{mod 23752}#))
-                                               (reverse #{vals 23568}#))
-                                          (#{build-sequence 4294}#
-                                            #f
-                                            (map (lambda (#{x 24783}#)
-                                                   (#{chi 4345}#
-                                                     (cdr #{x 24783}#)
-                                                     (car #{x 24783}#)
-                                                     '(())
-                                                     #{mod 23752}#))
-                                                 (cons (cons #{er 23571}#
-                                                             (#{wrap 4338}#
-                                                               (begin
-                                                                 (if (if 
(pair? #{e 23749}#)
-                                                                       #{s 
23751}#
-                                                                       #f)
-                                                                   
(set-source-properties!
-                                                                     #{e 
23749}#
-                                                                     #{s 
23751}#))
-                                                                 #{e 23749}#)
-                                                               #{w 23750}#
-                                                               #{mod 23752}#))
-                                                       (cdr #{body 
23563}#))))))))))))))))))
-               (#{parse 23550}#
-                 (map (lambda (#{x 23553}#)
-                        (cons #{r 23547}#
-                              (#{wrap 4338}#
-                                #{x 23553}#
-                                #{w 23549}#
-                                #{mod 23546}#)))
-                      #{body 23542}#)
-                 '()
-                 '()
-                 '()
-                 '()
-                 '()
-                 '())))))))
-   (#{chi-local-syntax 4350}#
-     (lambda (#{rec? 24868}#
-              #{e 24869}#
-              #{r 24870}#
-              #{w 24871}#
-              #{s 24872}#
-              #{mod 24873}#
-              #{k 24874}#)
-       (let ((#{tmp 24876}#
-               ($sc-dispatch
-                 #{e 24869}#
-                 '(_ #(each (any any)) any . each-any))))
-         (if #{tmp 24876}#
-           (@apply
-             (lambda (#{id 24880}#
-                      #{val 24881}#
-                      #{e1 24882}#
-                      #{e2 24883}#)
-               (if (not (#{valid-bound-ids? 4335}# #{id 24880}#))
-                 (syntax-violation
-                   #f
-                   "duplicate bound keyword"
-                   #{e 24869}#)
-                 (let ((#{labels 24973}#
-                         (#{gen-labels 4316}# #{id 24880}#)))
-                   (let ((#{new-w 24974}#
-                           (#{make-binding-wrap 4327}#
-                             #{id 24880}#
-                             #{labels 24973}#
-                             #{w 24871}#)))
-                     (#{k 24874}#
-                       (cons #{e1 24882}# #{e2 24883}#)
-                       (#{extend-env 4307}#
-                         #{labels 24973}#
-                         (let ((#{trans-r 25012}#
-                                 (#{macros-only-env 4309}# #{r 24870}#)))
-                           (begin
-                             (if #{rec? 24868}# (if #f #f))
-                             (map (lambda (#{x 25013}#)
-                                    (cons 'macro
-                                          (#{eval-local-transformer 4351}#
-                                            (#{chi 4345}#
-                                              #{x 25013}#
-                                              #{trans-r 25012}#
-                                              (if #{rec? 24868}#
-                                                #{new-w 24974}#
-                                                #{w 24871}#)
-                                              #{mod 24873}#)
-                                            #{mod 24873}#)))
-                                  #{val 24881}#)))
-                         #{r 24870}#)
-                       #{new-w 24974}#
-                       #{s 24872}#
-                       #{mod 24873}#)))))
-             #{tmp 24876}#)
-           (syntax-violation
-             #f
-             "bad local syntax definition"
-             (#{wrap 4338}#
-               (begin
-                 (if (if (pair? #{e 24869}#) #{s 24872}# #f)
-                   (set-source-properties! #{e 24869}# #{s 24872}#))
-                 #{e 24869}#)
-               #{w 24871}#
-               #{mod 24873}#))))))
-   (#{eval-local-transformer 4351}#
-     (lambda (#{expanded 25314}# #{mod 25315}#)
-       (let ((#{p 25316}# (primitive-eval #{expanded 25314}#)))
-         (if (procedure? #{p 25316}#)
-           #{p 25316}#
-           (syntax-violation
-             #f
-             "nonprocedure transformer"
-             #{p 25316}#)))))
-   (#{ellipsis? 4353}#
-     (lambda (#{x 5159}#)
-       (if (if (if (vector? #{x 5159}#)
-                 (if (= (vector-length #{x 5159}#) 4)
-                   (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
-                   #f)
-                 #f)
-             (symbol? (vector-ref #{x 5159}# 1))
-             #f)
-         (if (eq? (if (if (vector? #{x 5159}#)
-                        (if (= (vector-length #{x 5159}#) 4)
-                          (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
-                          #f)
-                        #f)
-                    (vector-ref #{x 5159}# 1)
-                    #{x 5159}#)
-                  (if (if (= (vector-length
-                               '#(syntax-object
-                                  ...
-                                  ((top)
-                                   #(ribcage () () ())
-                                   #(ribcage () () ())
-                                   #(ribcage #(x) #((top)) #("i2230"))
-                                   #(ribcage
-                                     (lambda-var-list
-                                       gen-var
-                                       strip
-                                       chi-lambda-case
-                                       lambda*-formals
-                                       chi-simple-lambda
-                                       lambda-formals
-                                       ellipsis?
-                                       chi-void
-                                       eval-local-transformer
-                                       chi-local-syntax
-                                       chi-body
-                                       chi-macro
-                                       chi-application
-                                       chi-expr
-                                       chi
-                                       syntax-type
-                                       chi-when-list
-                                       chi-install-global
-                                       chi-top-sequence
-                                       chi-sequence
-                                       source-wrap
-                                       wrap
-                                       bound-id-member?
-                                       distinct-bound-ids?
-                                       valid-bound-ids?
-                                       bound-id=?
-                                       free-id=?
-                                       id-var-name
-                                       same-marks?
-                                       join-marks
-                                       join-wraps
-                                       smart-append
-                                       make-binding-wrap
-                                       extend-ribcage!
-                                       make-empty-ribcage
-                                       new-mark
-                                       anti-mark
-                                       the-anti-mark
-                                       top-marked?
-                                       top-wrap
-                                       empty-wrap
-                                       set-ribcage-labels!
-                                       set-ribcage-marks!
-                                       set-ribcage-symnames!
-                                       ribcage-labels
-                                       ribcage-marks
-                                       ribcage-symnames
-                                       ribcage?
-                                       make-ribcage
-                                       gen-labels
-                                       gen-label
-                                       make-rename
-                                       rename-marks
-                                       rename-new
-                                       rename-old
-                                       subst-rename?
-                                       wrap-subst
-                                       wrap-marks
-                                       make-wrap
-                                       id-sym-name&marks
-                                       id-sym-name
-                                       id?
-                                       nonsymbol-id?
-                                       global-extend
-                                       lookup
-                                       macros-only-env
-                                       extend-var-env
-                                       extend-env
-                                       null-env
-                                       binding-value
-                                       binding-type
-                                       make-binding
-                                       arg-check
-                                       source-annotation
-                                       no-source
-                                       set-syntax-object-module!
-                                       set-syntax-object-wrap!
-                                       set-syntax-object-expression!
-                                       syntax-object-module
-                                       syntax-object-wrap
-                                       syntax-object-expression
-                                       syntax-object?
-                                       make-syntax-object
-                                       build-lexical-var
-                                       build-letrec
-                                       build-named-let
-                                       build-let
-                                       build-sequence
-                                       build-data
-                                       build-primref
-                                       build-lambda-case
-                                       build-case-lambda
-                                       build-simple-lambda
-                                       build-global-definition
-                                       build-global-assignment
-                                       build-global-reference
-                                       analyze-variable
-                                       build-lexical-assignment
-                                       build-lexical-reference
-                                       build-dynlet
-                                       build-conditional
-                                       build-application
-                                       build-void
-                                       maybe-name-value!
-                                       decorate-source
-                                       get-global-definition-hook
-                                       put-global-definition-hook
-                                       gensym-hook
-                                       local-eval-hook
-                                       top-level-eval-hook
-                                       fx<
-                                       fx=
-                                       fx-
-                                       fx+
-                                       set-lambda-meta!
-                                       lambda-meta
-                                       lambda?
-                                       make-dynlet
-                                       make-letrec
-                                       make-let
-                                       make-lambda-case
-                                       make-lambda
-                                       make-sequence
-                                       make-application
-                                       make-conditional
-                                       make-toplevel-define
-                                       make-toplevel-set
-                                       make-toplevel-ref
-                                       make-module-set
-                                       make-module-ref
-                                       make-lexical-set
-                                       make-lexical-ref
-                                       make-primitive-ref
-                                       make-const
-                                       make-void)
-                                     ((top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top))
-                                     ("i467"
-                                      "i465"
-                                      "i463"
-                                      "i461"
-                                      "i459"
-                                      "i457"
-                                      "i455"
-                                      "i453"
-                                      "i451"
-                                      "i449"
-                                      "i447"
-                                      "i445"
-                                      "i443"
-                                      "i441"
-                                      "i439"
-                                      "i437"
-                                      "i435"
-                                      "i433"
-                                      "i431"
-                                      "i429"
-                                      "i427"
-                                      "i425"
-                                      "i423"
-                                      "i421"
-                                      "i419"
-                                      "i417"
-                                      "i415"
-                                      "i413"
-                                      "i411"
-                                      "i409"
-                                      "i407"
-                                      "i405"
-                                      "i403"
-                                      "i401"
-                                      "i399"
-                                      "i398"
-                                      "i396"
-                                      "i393"
-                                      "i392"
-                                      "i391"
-                                      "i389"
-                                      "i388"
-                                      "i386"
-                                      "i384"
-                                      "i382"
-                                      "i380"
-                                      "i378"
-                                      "i376"
-                                      "i374"
-                                      "i372"
-                                      "i369"
-                                      "i367"
-                                      "i366"
-                                      "i364"
-                                      "i362"
-                                      "i360"
-                                      "i358"
-                                      "i357"
-                                      "i356"
-                                      "i355"
-                                      "i353"
-                                      "i352"
-                                      "i349"
-                                      "i347"
-                                      "i345"
-                                      "i343"
-                                      "i341"
-                                      "i339"
-                                      "i337"
-                                      "i336"
-                                      "i335"
-                                      "i333"
-                                      "i331"
-                                      "i330"
-                                      "i327"
-                                      "i326"
-                                      "i324"
-                                      "i322"
-                                      "i320"
-                                      "i318"
-                                      "i316"
-                                      "i314"
-                                      "i312"
-                                      "i310"
-                                      "i308"
-                                      "i305"
-                                      "i303"
-                                      "i301"
-                                      "i299"
-                                      "i297"
-                                      "i295"
-                                      "i293"
-                                      "i291"
-                                      "i289"
-                                      "i287"
-                                      "i285"
-                                      "i283"
-                                      "i281"
-                                      "i279"
-                                      "i277"
-                                      "i275"
-                                      "i273"
-                                      "i271"
-                                      "i269"
-                                      "i267"
-                                      "i265"
-                                      "i263"
-                                      "i261"
-                                      "i260"
-                                      "i257"
-                                      "i255"
-                                      "i254"
-                                      "i253"
-                                      "i252"
-                                      "i251"
-                                      "i249"
-                                      "i247"
-                                      "i245"
-                                      "i242"
-                                      "i240"
-                                      "i238"
-                                      "i236"
-                                      "i234"
-                                      "i232"
-                                      "i230"
-                                      "i228"
-                                      "i226"
-                                      "i224"
-                                      "i222"
-                                      "i220"
-                                      "i218"
-                                      "i216"
-                                      "i214"
-                                      "i212"
-                                      "i210"
-                                      "i208"))
-                                   #(ribcage
-                                     (define-structure
-                                       define-expansion-accessors
-                                       define-expansion-constructors)
-                                     ((top) (top) (top))
-                                     ("i46" "i45" "i44")))
-                                  (hygiene guile)))
-                             4)
-                        (eq? (vector-ref
-                               '#(syntax-object
-                                  ...
-                                  ((top)
-                                   #(ribcage () () ())
-                                   #(ribcage () () ())
-                                   #(ribcage #(x) #((top)) #("i2230"))
-                                   #(ribcage
-                                     (lambda-var-list
-                                       gen-var
-                                       strip
-                                       chi-lambda-case
-                                       lambda*-formals
-                                       chi-simple-lambda
-                                       lambda-formals
-                                       ellipsis?
-                                       chi-void
-                                       eval-local-transformer
-                                       chi-local-syntax
-                                       chi-body
-                                       chi-macro
-                                       chi-application
-                                       chi-expr
-                                       chi
-                                       syntax-type
-                                       chi-when-list
-                                       chi-install-global
-                                       chi-top-sequence
-                                       chi-sequence
-                                       source-wrap
-                                       wrap
-                                       bound-id-member?
-                                       distinct-bound-ids?
-                                       valid-bound-ids?
-                                       bound-id=?
-                                       free-id=?
-                                       id-var-name
-                                       same-marks?
-                                       join-marks
-                                       join-wraps
-                                       smart-append
-                                       make-binding-wrap
-                                       extend-ribcage!
-                                       make-empty-ribcage
-                                       new-mark
-                                       anti-mark
-                                       the-anti-mark
-                                       top-marked?
-                                       top-wrap
-                                       empty-wrap
-                                       set-ribcage-labels!
-                                       set-ribcage-marks!
-                                       set-ribcage-symnames!
-                                       ribcage-labels
-                                       ribcage-marks
-                                       ribcage-symnames
-                                       ribcage?
-                                       make-ribcage
-                                       gen-labels
-                                       gen-label
-                                       make-rename
-                                       rename-marks
-                                       rename-new
-                                       rename-old
-                                       subst-rename?
-                                       wrap-subst
-                                       wrap-marks
-                                       make-wrap
-                                       id-sym-name&marks
-                                       id-sym-name
-                                       id?
-                                       nonsymbol-id?
-                                       global-extend
-                                       lookup
-                                       macros-only-env
-                                       extend-var-env
-                                       extend-env
-                                       null-env
-                                       binding-value
-                                       binding-type
-                                       make-binding
-                                       arg-check
-                                       source-annotation
-                                       no-source
-                                       set-syntax-object-module!
-                                       set-syntax-object-wrap!
-                                       set-syntax-object-expression!
-                                       syntax-object-module
-                                       syntax-object-wrap
-                                       syntax-object-expression
-                                       syntax-object?
-                                       make-syntax-object
-                                       build-lexical-var
-                                       build-letrec
-                                       build-named-let
-                                       build-let
-                                       build-sequence
-                                       build-data
-                                       build-primref
-                                       build-lambda-case
-                                       build-case-lambda
-                                       build-simple-lambda
-                                       build-global-definition
-                                       build-global-assignment
-                                       build-global-reference
-                                       analyze-variable
-                                       build-lexical-assignment
-                                       build-lexical-reference
-                                       build-dynlet
-                                       build-conditional
-                                       build-application
-                                       build-void
-                                       maybe-name-value!
-                                       decorate-source
-                                       get-global-definition-hook
-                                       put-global-definition-hook
-                                       gensym-hook
-                                       local-eval-hook
-                                       top-level-eval-hook
-                                       fx<
-                                       fx=
-                                       fx-
-                                       fx+
-                                       set-lambda-meta!
-                                       lambda-meta
-                                       lambda?
-                                       make-dynlet
-                                       make-letrec
-                                       make-let
-                                       make-lambda-case
-                                       make-lambda
-                                       make-sequence
-                                       make-application
-                                       make-conditional
-                                       make-toplevel-define
-                                       make-toplevel-set
-                                       make-toplevel-ref
-                                       make-module-set
-                                       make-module-ref
-                                       make-lexical-set
-                                       make-lexical-ref
-                                       make-primitive-ref
-                                       make-const
-                                       make-void)
-                                     ((top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top)
-                                      (top))
-                                     ("i467"
-                                      "i465"
-                                      "i463"
-                                      "i461"
-                                      "i459"
-                                      "i457"
-                                      "i455"
-                                      "i453"
-                                      "i451"
-                                      "i449"
-                                      "i447"
-                                      "i445"
-                                      "i443"
-                                      "i441"
-                                      "i439"
-                                      "i437"
-                                      "i435"
-                                      "i433"
-                                      "i431"
-                                      "i429"
-                                      "i427"
-                                      "i425"
-                                      "i423"
-                                      "i421"
-                                      "i419"
-                                      "i417"
-                                      "i415"
-                                      "i413"
-                                      "i411"
-                                      "i409"
-                                      "i407"
-                                      "i405"
-                                      "i403"
-                                      "i401"
-                                      "i399"
-                                      "i398"
-                                      "i396"
-                                      "i393"
-                                      "i392"
-                                      "i391"
-                                      "i389"
-                                      "i388"
-                                      "i386"
-                                      "i384"
-                                      "i382"
-                                      "i380"
-                                      "i378"
-                                      "i376"
-                                      "i374"
-                                      "i372"
-                                      "i369"
-                                      "i367"
-                                      "i366"
-                                      "i364"
-                                      "i362"
-                                      "i360"
-                                      "i358"
-                                      "i357"
-                                      "i356"
-                                      "i355"
-                                      "i353"
-                                      "i352"
-                                      "i349"
-                                      "i347"
-                                      "i345"
-                                      "i343"
-                                      "i341"
-                                      "i339"
-                                      "i337"
-                                      "i336"
-                                      "i335"
-                                      "i333"
-                                      "i331"
-                                      "i330"
-                                      "i327"
-                                      "i326"
-                                      "i324"
-                                      "i322"
-                                      "i320"
-                                      "i318"
-                                      "i316"
-                                      "i314"
-                                      "i312"
-                                      "i310"
-                                      "i308"
-                                      "i305"
-                                      "i303"
-                                      "i301"
-                                      "i299"
-                                      "i297"
-                                      "i295"
-                                      "i293"
-                                      "i291"
-                                      "i289"
-                                      "i287"
-                                      "i285"
-                                      "i283"
-                                      "i281"
-                                      "i279"
-                                      "i277"
-                                      "i275"
-                                      "i273"
-                                      "i271"
-                                      "i269"
-                                      "i267"
-                                      "i265"
-                                      "i263"
-                                      "i261"
-                                      "i260"
-                                      "i257"
-                                      "i255"
-                                      "i254"
-                                      "i253"
-                                      "i252"
-                                      "i251"
-                                      "i249"
-                                      "i247"
-                                      "i245"
-                                      "i242"
-                                      "i240"
-                                      "i238"
-                                      "i236"
-                                      "i234"
-                                      "i232"
-                                      "i230"
-                                      "i228"
-                                      "i226"
-                                      "i224"
-                                      "i222"
-                                      "i220"
-                                      "i218"
-                                      "i216"
-                                      "i214"
-                                      "i212"
-                                      "i210"
-                                      "i208"))
-                                   #(ribcage
-                                     (define-structure
-                                       define-expansion-accessors
-                                       define-expansion-constructors)
-                                     ((top) (top) (top))
-                                     ("i46" "i45" "i44")))
-                                  (hygiene guile))
-                               0)
-                             'syntax-object)
-                        #f)
-                    (vector-ref
-                      '#(syntax-object
-                         ...
-                         ((top)
-                          #(ribcage () () ())
-                          #(ribcage () () ())
-                          #(ribcage #(x) #((top)) #("i2230"))
-                          #(ribcage
-                            (lambda-var-list
-                              gen-var
-                              strip
-                              chi-lambda-case
-                              lambda*-formals
-                              chi-simple-lambda
-                              lambda-formals
-                              ellipsis?
-                              chi-void
-                              eval-local-transformer
-                              chi-local-syntax
-                              chi-body
-                              chi-macro
-                              chi-application
-                              chi-expr
-                              chi
-                              syntax-type
-                              chi-when-list
-                              chi-install-global
-                              chi-top-sequence
-                              chi-sequence
-                              source-wrap
-                              wrap
-                              bound-id-member?
-                              distinct-bound-ids?
-                              valid-bound-ids?
-                              bound-id=?
-                              free-id=?
-                              id-var-name
-                              same-marks?
-                              join-marks
-                              join-wraps
-                              smart-append
-                              make-binding-wrap
-                              extend-ribcage!
-                              make-empty-ribcage
-                              new-mark
-                              anti-mark
-                              the-anti-mark
-                              top-marked?
-                              top-wrap
-                              empty-wrap
-                              set-ribcage-labels!
-                              set-ribcage-marks!
-                              set-ribcage-symnames!
-                              ribcage-labels
-                              ribcage-marks
-                              ribcage-symnames
-                              ribcage?
-                              make-ribcage
-                              gen-labels
-                              gen-label
-                              make-rename
-                              rename-marks
-                              rename-new
-                              rename-old
-                              subst-rename?
-                              wrap-subst
-                              wrap-marks
-                              make-wrap
-                              id-sym-name&marks
-                              id-sym-name
-                              id?
-                              nonsymbol-id?
-                              global-extend
-                              lookup
-                              macros-only-env
-                              extend-var-env
-                              extend-env
-                              null-env
-                              binding-value
-                              binding-type
-                              make-binding
-                              arg-check
-                              source-annotation
-                              no-source
-                              set-syntax-object-module!
-                              set-syntax-object-wrap!
-                              set-syntax-object-expression!
-                              syntax-object-module
-                              syntax-object-wrap
-                              syntax-object-expression
-                              syntax-object?
-                              make-syntax-object
-                              build-lexical-var
-                              build-letrec
-                              build-named-let
-                              build-let
-                              build-sequence
-                              build-data
-                              build-primref
-                              build-lambda-case
-                              build-case-lambda
-                              build-simple-lambda
-                              build-global-definition
-                              build-global-assignment
-                              build-global-reference
-                              analyze-variable
-                              build-lexical-assignment
-                              build-lexical-reference
-                              build-dynlet
-                              build-conditional
-                              build-application
-                              build-void
-                              maybe-name-value!
-                              decorate-source
-                              get-global-definition-hook
-                              put-global-definition-hook
-                              gensym-hook
-                              local-eval-hook
-                              top-level-eval-hook
-                              fx<
-                              fx=
-                              fx-
-                              fx+
-                              set-lambda-meta!
-                              lambda-meta
-                              lambda?
-                              make-dynlet
-                              make-letrec
-                              make-let
-                              make-lambda-case
-                              make-lambda
-                              make-sequence
-                              make-application
-                              make-conditional
-                              make-toplevel-define
-                              make-toplevel-set
-                              make-toplevel-ref
-                              make-module-set
-                              make-module-ref
-                              make-lexical-set
-                              make-lexical-ref
-                              make-primitive-ref
-                              make-const
-                              make-void)
-                            ((top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top)
-                             (top))
-                            ("i467"
-                             "i465"
-                             "i463"
-                             "i461"
-                             "i459"
-                             "i457"
-                             "i455"
-                             "i453"
-                             "i451"
-                             "i449"
-                             "i447"
-                             "i445"
-                             "i443"
-                             "i441"
-                             "i439"
-                             "i437"
-                             "i435"
-                             "i433"
-                             "i431"
-                             "i429"
-                             "i427"
-                             "i425"
-                             "i423"
-                             "i421"
-                             "i419"
-                             "i417"
-                             "i415"
-                             "i413"
-                             "i411"
-                             "i409"
-                             "i407"
-                             "i405"
-                             "i403"
-                             "i401"
-                             "i399"
-                             "i398"
-                             "i396"
-                             "i393"
-                             "i392"
-                             "i391"
-                             "i389"
-                             "i388"
-                             "i386"
-                             "i384"
-                             "i382"
-                             "i380"
-                             "i378"
-                             "i376"
-                             "i374"
-                             "i372"
-                             "i369"
-                             "i367"
-                             "i366"
-                             "i364"
-                             "i362"
-                             "i360"
-                             "i358"
-                             "i357"
-                             "i356"
-                             "i355"
-                             "i353"
-                             "i352"
-                             "i349"
-                             "i347"
-                             "i345"
-                             "i343"
-                             "i341"
-                             "i339"
-                             "i337"
-                             "i336"
-                             "i335"
-                             "i333"
-                             "i331"
-                             "i330"
-                             "i327"
-                             "i326"
-                             "i324"
-                             "i322"
-                             "i320"
-                             "i318"
-                             "i316"
-                             "i314"
-                             "i312"
-                             "i310"
-                             "i308"
-                             "i305"
-                             "i303"
-                             "i301"
-                             "i299"
-                             "i297"
-                             "i295"
-                             "i293"
-                             "i291"
-                             "i289"
-                             "i287"
-                             "i285"
-                             "i283"
-                             "i281"
-                             "i279"
-                             "i277"
-                             "i275"
-                             "i273"
-                             "i271"
-                             "i269"
-                             "i267"
-                             "i265"
-                             "i263"
-                             "i261"
-                             "i260"
-                             "i257"
-                             "i255"
-                             "i254"
-                             "i253"
-                             "i252"
-                             "i251"
-                             "i249"
-                             "i247"
-                             "i245"
-                             "i242"
-                             "i240"
-                             "i238"
-                             "i236"
-                             "i234"
-                             "i232"
-                             "i230"
-                             "i228"
-                             "i226"
-                             "i224"
-                             "i222"
-                             "i220"
-                             "i218"
-                             "i216"
-                             "i214"
-                             "i212"
-                             "i210"
-                             "i208"))
-                          #(ribcage
-                            (define-structure
-                              define-expansion-accessors
-                              define-expansion-constructors)
-                            ((top) (top) (top))
-                            ("i46" "i45" "i44")))
-                         (hygiene guile))
-                      1)
-                    '#(syntax-object
-                       ...
-                       ((top)
-                        #(ribcage () () ())
-                        #(ribcage () () ())
-                        #(ribcage #(x) #((top)) #("i2230"))
-                        #(ribcage
-                          (lambda-var-list
-                            gen-var
-                            strip
-                            chi-lambda-case
-                            lambda*-formals
-                            chi-simple-lambda
-                            lambda-formals
-                            ellipsis?
-                            chi-void
-                            eval-local-transformer
-                            chi-local-syntax
-                            chi-body
-                            chi-macro
-                            chi-application
-                            chi-expr
-                            chi
-                            syntax-type
-                            chi-when-list
-                            chi-install-global
-                            chi-top-sequence
-                            chi-sequence
-                            source-wrap
-                            wrap
-                            bound-id-member?
-                            distinct-bound-ids?
-                            valid-bound-ids?
-                            bound-id=?
-                            free-id=?
-                            id-var-name
-                            same-marks?
-                            join-marks
-                            join-wraps
-                            smart-append
-                            make-binding-wrap
-                            extend-ribcage!
-                            make-empty-ribcage
-                            new-mark
-                            anti-mark
-                            the-anti-mark
-                            top-marked?
-                            top-wrap
-                            empty-wrap
-                            set-ribcage-labels!
-                            set-ribcage-marks!
-                            set-ribcage-symnames!
-                            ribcage-labels
-                            ribcage-marks
-                            ribcage-symnames
-                            ribcage?
-                            make-ribcage
-                            gen-labels
-                            gen-label
-                            make-rename
-                            rename-marks
-                            rename-new
-                            rename-old
-                            subst-rename?
-                            wrap-subst
-                            wrap-marks
-                            make-wrap
-                            id-sym-name&marks
-                            id-sym-name
-                            id?
-                            nonsymbol-id?
-                            global-extend
-                            lookup
-                            macros-only-env
-                            extend-var-env
-                            extend-env
-                            null-env
-                            binding-value
-                            binding-type
-                            make-binding
-                            arg-check
-                            source-annotation
-                            no-source
-                            set-syntax-object-module!
-                            set-syntax-object-wrap!
-                            set-syntax-object-expression!
-                            syntax-object-module
-                            syntax-object-wrap
-                            syntax-object-expression
-                            syntax-object?
-                            make-syntax-object
-                            build-lexical-var
-                            build-letrec
-                            build-named-let
-                            build-let
-                            build-sequence
-                            build-data
-                            build-primref
-                            build-lambda-case
-                            build-case-lambda
-                            build-simple-lambda
-                            build-global-definition
-                            build-global-assignment
-                            build-global-reference
-                            analyze-variable
-                            build-lexical-assignment
-                            build-lexical-reference
-                            build-dynlet
-                            build-conditional
-                            build-application
-                            build-void
-                            maybe-name-value!
-                            decorate-source
-                            get-global-definition-hook
-                            put-global-definition-hook
-                            gensym-hook
-                            local-eval-hook
-                            top-level-eval-hook
-                            fx<
-                            fx=
-                            fx-
-                            fx+
-                            set-lambda-meta!
-                            lambda-meta
-                            lambda?
-                            make-dynlet
-                            make-letrec
-                            make-let
-                            make-lambda-case
-                            make-lambda
-                            make-sequence
-                            make-application
-                            make-conditional
-                            make-toplevel-define
-                            make-toplevel-set
-                            make-toplevel-ref
-                            make-module-set
-                            make-module-ref
-                            make-lexical-set
-                            make-lexical-ref
-                            make-primitive-ref
-                            make-const
-                            make-void)
-                          ((top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top)
-                           (top))
-                          ("i467"
-                           "i465"
-                           "i463"
-                           "i461"
-                           "i459"
-                           "i457"
-                           "i455"
-                           "i453"
-                           "i451"
-                           "i449"
-                           "i447"
-                           "i445"
-                           "i443"
-                           "i441"
-                           "i439"
-                           "i437"
-                           "i435"
-                           "i433"
-                           "i431"
-                           "i429"
-                           "i427"
-                           "i425"
-                           "i423"
-                           "i421"
-                           "i419"
-                           "i417"
-                           "i415"
-                           "i413"
-                           "i411"
-                           "i409"
-                           "i407"
-                           "i405"
-                           "i403"
-                           "i401"
-                           "i399"
-                           "i398"
-                           "i396"
-                           "i393"
-                           "i392"
-                           "i391"
-                           "i389"
-                           "i388"
-                           "i386"
-                           "i384"
-                           "i382"
-                           "i380"
-                           "i378"
-                           "i376"
-                           "i374"
-                           "i372"
-                           "i369"
-                           "i367"
-                           "i366"
-                           "i364"
-                           "i362"
-                           "i360"
-                           "i358"
-                           "i357"
-                           "i356"
-                           "i355"
-                           "i353"
-                           "i352"
-                           "i349"
-                           "i347"
-                           "i345"
-                           "i343"
-                           "i341"
-                           "i339"
-                           "i337"
-                           "i336"
-                           "i335"
-                           "i333"
-                           "i331"
-                           "i330"
-                           "i327"
-                           "i326"
-                           "i324"
-                           "i322"
-                           "i320"
-                           "i318"
-                           "i316"
-                           "i314"
-                           "i312"
-                           "i310"
-                           "i308"
-                           "i305"
-                           "i303"
-                           "i301"
-                           "i299"
-                           "i297"
-                           "i295"
-                           "i293"
-                           "i291"
-                           "i289"
-                           "i287"
-                           "i285"
-                           "i283"
-                           "i281"
-                           "i279"
-                           "i277"
-                           "i275"
-                           "i273"
-                           "i271"
-                           "i269"
-                           "i267"
-                           "i265"
-                           "i263"
-                           "i261"
-                           "i260"
-                           "i257"
-                           "i255"
-                           "i254"
-                           "i253"
-                           "i252"
-                           "i251"
-                           "i249"
-                           "i247"
-                           "i245"
-                           "i242"
-                           "i240"
-                           "i238"
-                           "i236"
-                           "i234"
-                           "i232"
-                           "i230"
-                           "i228"
-                           "i226"
-                           "i224"
-                           "i222"
-                           "i220"
-                           "i218"
-                           "i216"
-                           "i214"
-                           "i212"
-                           "i210"
-                           "i208"))
-                        #(ribcage
-                          (define-structure
-                            define-expansion-accessors
-                            define-expansion-constructors)
-                          ((top) (top) (top))
-                          ("i46" "i45" "i44")))
-                       (hygiene guile))))
-           (eq? (#{id-var-name 4332}# #{x 5159}# '(()))
-                (#{id-var-name 4332}#
-                  '#(syntax-object
-                     ...
-                     ((top)
-                      #(ribcage () () ())
-                      #(ribcage () () ())
-                      #(ribcage #(x) #((top)) #("i2230"))
-                      #(ribcage
-                        (lambda-var-list
-                          gen-var
-                          strip
-                          chi-lambda-case
-                          lambda*-formals
-                          chi-simple-lambda
-                          lambda-formals
-                          ellipsis?
-                          chi-void
-                          eval-local-transformer
-                          chi-local-syntax
-                          chi-body
-                          chi-macro
-                          chi-application
-                          chi-expr
-                          chi
-                          syntax-type
-                          chi-when-list
-                          chi-install-global
-                          chi-top-sequence
-                          chi-sequence
-                          source-wrap
-                          wrap
-                          bound-id-member?
-                          distinct-bound-ids?
-                          valid-bound-ids?
-                          bound-id=?
-                          free-id=?
-                          id-var-name
-                          same-marks?
-                          join-marks
-                          join-wraps
-                          smart-append
-                          make-binding-wrap
-                          extend-ribcage!
-                          make-empty-ribcage
-                          new-mark
-                          anti-mark
-                          the-anti-mark
-                          top-marked?
-                          top-wrap
-                          empty-wrap
-                          set-ribcage-labels!
-                          set-ribcage-marks!
-                          set-ribcage-symnames!
-                          ribcage-labels
-                          ribcage-marks
-                          ribcage-symnames
-                          ribcage?
-                          make-ribcage
-                          gen-labels
-                          gen-label
-                          make-rename
-                          rename-marks
-                          rename-new
-                          rename-old
-                          subst-rename?
-                          wrap-subst
-                          wrap-marks
-                          make-wrap
-                          id-sym-name&marks
-                          id-sym-name
-                          id?
-                          nonsymbol-id?
-                          global-ext