guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-156-g34c5f


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-156-g34c5fe8
Date: Mon, 10 Oct 2011 12:46:53 +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=34c5fe83c021eb27c5bdff0f1328c733a7cb45b4

The branch, stable-2.0 has been updated
       via  34c5fe83c021eb27c5bdff0f1328c733a7cb45b4 (commit)
       via  4bf9e92875973b8997b2876218b6bd595fbf1952 (commit)
       via  f26c3a93ecc0fdf69139ce86a825f262535554c9 (commit)
       via  751708726bff664e1119396241dab8b99c19bbe0 (commit)
       via  580a59e75e4d865da2b9e2490e73e5bbd3de5878 (commit)
       via  30669991740de16d8147496def08592fd40e2e2c (commit)
      from  022dda690126d993d82644efeffada1a1ef41123 (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 34c5fe83c021eb27c5bdff0f1328c733a7cb45b4
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 10 13:01:54 2011 +0200

    regenerate psyntax-pp.scm
    
    * module/ice-9/psyntax-pp.scm: Regenerate, now with inlined letrec
      bindings.  Whee!!

commit 4bf9e92875973b8997b2876218b6bd595fbf1952
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 10 14:42:40 2011 +0200

    peval support for memq and memv
    
    * module/language/tree-il/peval.scm (peval): Add special handlers for
      memq and memv, as inline.scm used to have.  This is important for
      `case' clauses.  It is very ugly, though.
    
    * test-suite/tests/tree-il.test ("partial evaluation"): Add tests.

commit f26c3a93ecc0fdf69139ce86a825f262535554c9
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 10 13:23:26 2011 +0200

    add accessor-primitive?, peval uses it
    
    * module/language/tree-il/primitives.scm (*primitive-accessors*): New
      set of primitives: those that access mutable memory, but are otherwise
      pure.  Include bytevector references here.
      (accessor-primitive?): New public predicate.
    
    * module/language/tree-il/peval.scm (peval): Refactor to distinguish
      constructor-primitive? from accessor-primitive?.

commit 751708726bff664e1119396241dab8b99c19bbe0
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 10 12:58:28 2011 +0200

    peval: visit operands on-demand, to inline mutually recursive bindings
    
    This commit changes to use <operand> structures to hold the context
    needed to visit lexical bindings lazily, in context, instead of eagerly
    visiting them for value.  This laziness enables inlining of mutually
    recursive bindings.
    
    * module/language/tree-il/peval.scm (<var>): Remove comment about copy
      propagation having to run build-var-table; things don't work like that
      any more.
      (build-var-table): Build <var> entries for all variables, even
      unreferenced variables.
      (alpha-rename): Remove.  We will rename bindings on-demand now.
    
      (peval lookup-var): New helper, to fetch the <var> of a gensym.
    
      (peval fresh-gensyms): Fold here, under peval, and in it, handle
      updating the store to record a mapping between new names and <var>
      entries from the source program.
    
      (peval record-source-expression): Don't call build-var-table on the
      new expression, as alpha-renaming happens on-demand now.
    
      (peval prune-bindings): Rewrite to work with mutually-recursive
      bindings, while optionally preserving binding order.
    
      (peval extend-env): New helper.
    
      (peval loop): OK, here goes... Remove the `operand' context, as now we
      visit operands lazily.  Add a `call' context, which does not
      copy-propagate lambda expressions, used to residualize a call after
      aborting an inlining attempt.  Change the `env' to be a mapping of
      gensym to <operand>.  Instead of looking up the operand's binding then
      alpha-renaming it, just rely on the fact that visiting the operand
      will rename it if necessary.
    
      If we residualize a lexical, do so with the fresh name from the
      environment.  If we visit an operand and it doesn't turn out to be
      constant, we will never be able to copy it, and so cache that fact in
      the operand.  If we residualize a binding and we know what the value
      should be, record that binding so that prune-bindings won't have to
      visit it again.  If the operand folds to a constant, cache that too,
      to save effort when unrolling loops.
    
      For let, letrec, fix, and lambda-case, instead of visiting the
      bindings eagerly for value, simply record the source expressions and
      environments in an <operand> and rely on copy-propagation to visit
      them later in the right context.  In the case of letrec and fix, this
      allows mutually-recursive bindings to be inlined.
    
      Refactor folding of "constructors" (which still need renaming) to
      avoid visiting operands twice in some contexts.
    
      For applications, if we have to abort, process the procedure in call
      context, which allows some folding but avoids copying lambdas.  If we
      find a recursive procedure, mark intervening counters as recursive
      too, to allow for mutual recursion at the top level.
    
      For lambdas, if we are processing for value, record the source
      expression so we can detect recursion.  This was previously done in
      the lexical-ref copy propagator.
    
    * test-suite/tests/tree-il.test ("partial evaluation"): Remove unused
      recursive lexicals in a couple of cases.  Add a couple test cases for
      pruning.  Add a few recursive binding cases.

commit 580a59e75e4d865da2b9e2490e73e5bbd3de5878
Author: Andy Wingo <address@hidden>
Date:   Thu Oct 6 10:56:12 2011 +0200

    peval: add operand structure
    
    * module/language/tree-il/peval.scm (<operand>): Add operand structure,
      to be used by peval.

commit 30669991740de16d8147496def08592fd40e2e2c
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 10 12:03:17 2011 +0200

    peval: refactor logging
    
    * module/language/tree-il/peval.scm: Make it easier to turn on logging.

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

Summary of changes:
 module/ice-9/psyntax-pp.scm            |39481 ++++++++++++++++++++------------
 module/language/tree-il/peval.scm      |  830 +-
 module/language/tree-il/primitives.scm |   45 +-
 test-suite/tests/tree-il.test          |  193 +-
 4 files changed, 25122 insertions(+), 15427 deletions(-)

diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 30c7751..de83209 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,3863 +2,11154 @@
 (if #f #f)
 
 (letrec*
-  ((#{make-void 208}#
-     (lambda (#{src 779}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 0)
-         #{src 779}#)))
-   (#{make-const 210}#
-     (lambda (#{src 781}# #{exp 782}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 1)
-         #{src 781}#
-         #{exp 782}#)))
-   (#{make-lexical-ref 214}#
-     (lambda (#{src 789}# #{name 790}# #{gensym 791}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 3)
-         #{src 789}#
-         #{name 790}#
-         #{gensym 791}#)))
-   (#{make-lexical-set 216}#
-     (lambda (#{src 795}#
-              #{name 796}#
-              #{gensym 797}#
-              #{exp 798}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 4)
-         #{src 795}#
-         #{name 796}#
-         #{gensym 797}#
-         #{exp 798}#)))
-   (#{make-module-ref 218}#
-     (lambda (#{src 803}#
-              #{mod 804}#
-              #{name 805}#
-              #{public? 806}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 5)
-         #{src 803}#
-         #{mod 804}#
-         #{name 805}#
-         #{public? 806}#)))
-   (#{make-module-set 220}#
-     (lambda (#{src 811}#
-              #{mod 812}#
-              #{name 813}#
-              #{public? 814}#
-              #{exp 815}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 6)
-         #{src 811}#
-         #{mod 812}#
-         #{name 813}#
-         #{public? 814}#
-         #{exp 815}#)))
-   (#{make-toplevel-ref 222}#
-     (lambda (#{src 821}# #{name 822}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 7)
-         #{src 821}#
-         #{name 822}#)))
-   (#{make-toplevel-set 224}#
-     (lambda (#{src 825}# #{name 826}# #{exp 827}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 8)
-         #{src 825}#
-         #{name 826}#
-         #{exp 827}#)))
-   (#{make-toplevel-define 226}#
-     (lambda (#{src 831}# #{name 832}# #{exp 833}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 9)
-         #{src 831}#
-         #{name 832}#
-         #{exp 833}#)))
-   (#{make-conditional 228}#
-     (lambda (#{src 837}#
-              #{test 838}#
-              #{consequent 839}#
-              #{alternate 840}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 10)
-         #{src 837}#
-         #{test 838}#
-         #{consequent 839}#
-         #{alternate 840}#)))
-   (#{make-application 230}#
-     (lambda (#{src 845}# #{proc 846}# #{args 847}#)
+  ((#{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}#)
+                  (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}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 11)
-         #{src 845}#
-         #{proc 846}#
-         #{args 847}#)))
-   (#{make-sequence 232}#
-     (lambda (#{src 851}# #{exps 852}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 12)
-         #{src 851}#
-         #{exps 852}#)))
-   (#{make-lambda 234}#
-     (lambda (#{src 855}# #{meta 856}# #{body 857}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 13)
-         #{src 855}#
-         #{meta 856}#
-         #{body 857}#)))
-   (#{make-lambda-case 236}#
-     (lambda (#{src 861}#
-              #{req 862}#
-              #{opt 863}#
-              #{rest 864}#
-              #{kw 865}#
-              #{inits 866}#
-              #{gensyms 867}#
-              #{body 868}#
-              #{alternate 869}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 14)
-         #{src 861}#
-         #{req 862}#
-         #{opt 863}#
-         #{rest 864}#
-         #{kw 865}#
-         #{inits 866}#
-         #{gensyms 867}#
-         #{body 868}#
-         #{alternate 869}#)))
-   (#{make-let 238}#
-     (lambda (#{src 879}#
-              #{names 880}#
-              #{gensyms 881}#
-              #{vals 882}#
-              #{body 883}#)
+         #{source 16363}#
+         #{fun-exp 16364}#
+         #{arg-exps 16365}#)))
+   (#{build-conditional 4281}#
+     (lambda (#{source 16371}#
+              #{test-exp 16372}#
+              #{then-exp 16373}#
+              #{else-exp 16374}#)
        (make-struct/no-tail
-         (vector-ref %expanded-vtables 15)
-         #{src 879}#
-         #{names 880}#
-         #{gensyms 881}#
-         #{vals 882}#
-         #{body 883}#)))
-   (#{make-letrec 240}#
-     (lambda (#{src 889}#
-              #{in-order? 890}#
-              #{names 891}#
-              #{gensyms 892}#
-              #{vals 893}#
-              #{body 894}#)
-       (make-struct/no-tail
-         (vector-ref %expanded-vtables 16)
-         #{src 889}#
-         #{in-order? 890}#
-         #{names 891}#
-         #{gensyms 892}#
-         #{vals 893}#
-         #{body 894}#)))
-   (#{make-dynlet 242}#
-     (lambda (#{src 901}#
-              #{fluids 902}#
-              #{vals 903}#
-              #{body 904}#)
+         (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}#)
        (make-struct/no-tail
          (vector-ref %expanded-vtables 17)
-         #{src 901}#
-         #{fluids 902}#
-         #{vals 903}#
-         #{body 904}#)))
-   (#{lambda? 245}#
-     (lambda (#{x 909}#)
-       (if (struct? #{x 909}#)
-         (eq? (struct-vtable #{x 909}#)
-              (vector-ref %expanded-vtables 13))
-         #f)))
-   (#{lambda-meta 247}#
-     (lambda (#{x 913}#) (struct-ref #{x 913}# 1)))
-   (#{set-lambda-meta! 249}#
-     (lambda (#{x 915}# #{v 916}#)
-       (struct-set! #{x 915}# 1 #{v 916}#)))
-   (#{top-level-eval-hook 255}#
-     (lambda (#{x 919}# #{mod 920}#)
-       (primitive-eval #{x 919}#)))
-   (#{local-eval-hook 257}#
-     (lambda (#{x 923}# #{mod 924}#)
-       (primitive-eval #{x 923}#)))
-   (#{put-global-definition-hook 261}#
-     (lambda (#{symbol 927}# #{type 928}# #{val 929}#)
-       (module-define!
-         (current-module)
-         #{symbol 927}#
-         (make-syntax-transformer
-           #{symbol 927}#
-           #{type 928}#
-           #{val 929}#))))
-   (#{get-global-definition-hook 263}#
-     (lambda (#{symbol 933}# #{module 934}#)
+         #{source 16381}#
+         #{fluids 16382}#
+         #{vals 16383}#
+         #{body 16384}#)))
+   (#{build-lexical-reference 4283}#
+     (lambda (#{type 28144}#
+              #{source 28145}#
+              #{name 28146}#
+              #{var 28147}#)
+       (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}#)
        (begin
-         (if (if (not #{module 934}#) (current-module) #f)
-           (warn "module system is booted, we should have a module"
-                 #{symbol 933}#))
-         (let ((#{v 940}# (module-variable
-                            (if #{module 934}#
-                              (resolve-module (cdr #{module 934}#))
-                              (current-module))
-                            #{symbol 933}#)))
-           (if #{v 940}#
-             (if (variable-bound? #{v 940}#)
-               (let ((#{val 945}# (variable-ref #{v 940}#)))
-                 (if (macro? #{val 945}#)
-                   (if (macro-type #{val 945}#)
-                     (cons (macro-type #{val 945}#)
-                           (macro-binding #{val 945}#))
-                     #f)
-                   #f))
+         (if (if (struct? #{exp 16394}#)
+               (eq? (struct-vtable #{exp 16394}#)
+                    (vector-ref %expanded-vtables 13))
                #f)
-             #f)))))
-   (#{decorate-source 265}#
-     (lambda (#{e 949}# #{s 950}#)
-       (begin
-         (if (if (pair? #{e 949}#) #{s 950}# #f)
-           (set-source-properties! #{e 949}# #{s 950}#))
-         #{e 949}#)))
-   (#{maybe-name-value! 267}#
-     (lambda (#{name 955}# #{val 956}#)
-       (if (#{lambda? 245}# #{val 956}#)
-         (let ((#{meta 960}# (#{lambda-meta 247}# #{val 956}#)))
-           (if (not (assq 'name #{meta 960}#))
-             (#{set-lambda-meta! 249}#
-               #{val 956}#
-               (cons (cons 'name #{name 955}#) #{meta 960}#)))))))
-   (#{build-void 269}#
-     (lambda (#{source 961}#)
-       (#{make-void 208}# #{source 961}#)))
-   (#{build-application 271}#
-     (lambda (#{source 963}# #{fun-exp 964}# #{arg-exps 965}#)
-       (#{make-application 230}#
-         #{source 963}#
-         #{fun-exp 964}#
-         #{arg-exps 965}#)))
-   (#{build-conditional 273}#
-     (lambda (#{source 969}#
-              #{test-exp 970}#
-              #{then-exp 971}#
-              #{else-exp 972}#)
-       (#{make-conditional 228}#
-         #{source 969}#
-         #{test-exp 970}#
-         #{then-exp 971}#
-         #{else-exp 972}#)))
-   (#{build-lexical-reference 277}#
-     (lambda (#{type 985}#
-              #{source 986}#
-              #{name 987}#
-              #{var 988}#)
-       (#{make-lexical-ref 214}#
-         #{source 986}#
-         #{name 987}#
-         #{var 988}#)))
-   (#{analyze-variable 281}#
-     (lambda (#{mod 1001}#
-              #{var 1002}#
-              #{modref-cont 1003}#
-              #{bare-cont 1004}#)
-       (if (not #{mod 1001}#)
-         (#{bare-cont 1004}# #{var 1002}#)
-         (let ((#{kind 1011}# (car #{mod 1001}#))
-               (#{mod 1012}# (cdr #{mod 1001}#)))
-           (if (memv #{kind 1011}# '(public))
-             (#{modref-cont 1003}#
-               #{mod 1012}#
-               #{var 1002}#
+           (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}#)))))
+         (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}#
                #t)
-             (if (memv #{kind 1011}# '(private))
+             (if (eqv? #{kind 28157}# 'private)
                (if (not (equal?
-                          #{mod 1012}#
+                          #{mod 28158}#
                           (module-name (current-module))))
-                 (#{modref-cont 1003}#
-                   #{mod 1012}#
-                   #{var 1002}#
+                 (#{modref-cont 28155}#
+                   #{mod 28158}#
+                   #{var 28154}#
                    #f)
-                 (#{bare-cont 1004}# #{var 1002}#))
-               (if (memv #{kind 1011}# '(bare))
-                 (#{bare-cont 1004}# #{var 1002}#)
-                 (if (memv #{kind 1011}# '(hygiene))
+                 (#{bare-cont 28156}# #{var 28154}#))
+               (if (eqv? #{kind 28157}# 'bare)
+                 (#{bare-cont 28156}# #{var 28154}#)
+                 (if (eqv? #{kind 28157}# 'hygiene)
                    (if (if (not (equal?
-                                  #{mod 1012}#
+                                  #{mod 28158}#
                                   (module-name (current-module))))
                          (module-variable
-                           (resolve-module #{mod 1012}#)
-                           #{var 1002}#)
+                           (resolve-module #{mod 28158}#)
+                           #{var 28154}#)
                          #f)
-                     (#{modref-cont 1003}#
-                       #{mod 1012}#
-                       #{var 1002}#
+                     (#{modref-cont 28155}#
+                       #{mod 28158}#
+                       #{var 28154}#
                        #f)
-                     (#{bare-cont 1004}# #{var 1002}#))
+                     (#{bare-cont 28156}# #{var 28154}#))
                    (syntax-violation
                      #f
                      "bad module kind"
-                     #{var 1002}#
-                     #{mod 1012}#)))))))))
-   (#{build-global-reference 283}#
-     (lambda (#{source 1020}# #{var 1021}# #{mod 1022}#)
-       (#{analyze-variable 281}#
-         #{mod 1022}#
-         #{var 1021}#
-         (lambda (#{mod 1026}# #{var 1027}# #{public? 1028}#)
-           (#{make-module-ref 218}#
-             #{source 1020}#
-             #{mod 1026}#
-             #{var 1027}#
-             #{public? 1028}#))
-         (lambda (#{var 1032}#)
-           (#{make-toplevel-ref 222}#
-             #{source 1020}#
-             #{var 1032}#)))))
-   (#{build-global-assignment 285}#
-     (lambda (#{source 1034}#
-              #{var 1035}#
-              #{exp 1036}#
-              #{mod 1037}#)
+                     #{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}#)
+           (make-struct/no-tail
+             (vector-ref %expanded-vtables 5)
+             #{source 28173}#
+             #{mod 28178}#
+             #{var 28179}#
+             #{public? 28180}#))
+         (lambda (#{var 28188}#)
+           (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}#)
        (begin
-         (#{maybe-name-value! 267}#
-           #{var 1035}#
-           #{exp 1036}#)
-         (#{analyze-variable 281}#
-           #{mod 1037}#
-           #{var 1035}#
-           (lambda (#{mod 1042}# #{var 1043}# #{public? 1044}#)
-             (#{make-module-set 220}#
-               #{source 1034}#
-               #{mod 1042}#
-               #{var 1043}#
-               #{public? 1044}#
-               #{exp 1036}#))
-           (lambda (#{var 1048}#)
-             (#{make-toplevel-set 224}#
-               #{source 1034}#
-               #{var 1048}#
-               #{exp 1036}#))))))
-   (#{build-global-definition 287}#
-     (lambda (#{source 1050}# #{var 1051}# #{exp 1052}#)
+         (if (if (struct? #{exp 16428}#)
+               (eq? (struct-vtable #{exp 16428}#)
+                    (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}#)
+             (make-struct/no-tail
+               (vector-ref %expanded-vtables 6)
+               #{source 16426}#
+               #{mod 16457}#
+               #{var 16458}#
+               #{public? 16459}#
+               #{exp 16428}#))
+           (lambda (#{var 16467}#)
+             (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}#)
        (begin
-         (#{maybe-name-value! 267}#
-           #{var 1051}#
-           #{exp 1052}#)
-         (#{make-toplevel-define 226}#
-           #{source 1050}#
-           #{var 1051}#
-           #{exp 1052}#))))
-   (#{build-simple-lambda 289}#
-     (lambda (#{src 1056}#
-              #{req 1057}#
-              #{rest 1058}#
-              #{vars 1059}#
-              #{meta 1060}#
-              #{exp 1061}#)
-       (#{make-lambda 234}#
-         #{src 1056}#
-         #{meta 1060}#
-         (#{make-lambda-case 236}#
-           #{src 1056}#
-           #{req 1057}#
-           #f
-           #{rest 1058}#
-           #f
-           '()
-           #{vars 1059}#
-           #{exp 1061}#
-           #f))))
-   (#{build-lambda-case 293}#
-     (lambda (#{src 1074}#
-              #{req 1075}#
-              #{opt 1076}#
-              #{rest 1077}#
-              #{kw 1078}#
-              #{inits 1079}#
-              #{vars 1080}#
-              #{body 1081}#
-              #{else-case 1082}#)
-       (#{make-lambda-case 236}#
-         #{src 1074}#
-         #{req 1075}#
-         #{opt 1076}#
-         #{rest 1077}#
-         #{kw 1078}#
-         #{inits 1079}#
-         #{vars 1080}#
-         #{body 1081}#
-         #{else-case 1082}#)))
-   (#{build-primref 295}#
-     (lambda (#{src 1092}# #{name 1093}#)
-       (if (equal? (module-name (current-module)) '(guile))
-         (#{make-toplevel-ref 222}#
-           #{src 1092}#
-           #{name 1093}#)
-         (#{make-module-ref 218}#
-           #{src 1092}#
-           '(guile)
-           #{name 1093}#
-           #f))))
-   (#{build-data 297}#
-     (lambda (#{src 1096}# #{exp 1097}#)
-       (#{make-const 210}# #{src 1096}# #{exp 1097}#)))
-   (#{build-sequence 299}#
-     (lambda (#{src 1100}# #{exps 1101}#)
-       (if (null? (cdr #{exps 1101}#))
-         (car #{exps 1101}#)
-         (#{make-sequence 232}#
-           #{src 1100}#
-           #{exps 1101}#))))
-   (#{build-letrec 305}#
-     (lambda (#{src 1134}#
-              #{in-order? 1135}#
-              #{ids 1136}#
-              #{vars 1137}#
-              #{val-exps 1138}#
-              #{body-exp 1139}#)
-       (if (null? #{vars 1137}#)
-         #{body-exp 1139}#
+         (if (if (struct? #{exp 28196}#)
+               (eq? (struct-vtable #{exp 28196}#)
+                    (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}#)))))
+         (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}#
+               (make-struct/no-tail
+                 (vector-ref %expanded-vtables 14)
+                 #{src 16473}#
+                 #{req 16474}#
+                 #f
+                 #{rest 16475}#
+                 #f
+                 '()
+                 #{vars 16476}#
+                 #{exp 16478}#
+                 #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}#)
+         (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}#)
+       (begin
+         (for-each
+           #{maybe-name-value! 4278}#
+           #{ids 16497}#
+           #{val-exps 16499}#)
+         (if (null? #{vars 16498}#)
+           #{body-exp 16500}#
+           (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}#
+                         (make-struct/no-tail
+                           (vector-ref %expanded-vtables 14)
+                           #{src 16524}#
+                           #{ids 16532}#
+                           #f
+                           #f
+                           #f
+                           '()
+                           #{vars 16531}#
+                           #{body-exp 16528}#
+                           #f)))
+                   (make-struct/no-tail
+                     (vector-ref %expanded-vtables 13)
+                     #{src 16524}#
+                     '()
+                     #{body 16553}#))))
+           (begin
+             (if (if (struct? #{proc 16533}#)
+                   (eq? (struct-vtable #{proc 16533}#)
+                        (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}#)))))
+             (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}#
+                             (make-struct/no-tail
+                               (vector-ref %expanded-vtables 3)
+                               #{src 16524}#
+                               #{f-name 16530}#
+                               #{f 16529}#)))
+                       (make-struct/no-tail
+                         (vector-ref %expanded-vtables 11)
+                         #{src 16524}#
+                         #{fun-exp 16615}#
+                         #{val-exps 16527}#))))
+               (make-struct/no-tail
+                 (vector-ref %expanded-vtables 16)
+                 #{src 16524}#
+                 #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}#
          (begin
            (for-each
-             #{maybe-name-value! 267}#
-             #{ids 1136}#
-             #{val-exps 1138}#)
-           (#{make-letrec 240}#
-             #{src 1134}#
-             #{in-order? 1135}#
-             #{ids 1136}#
-             #{vars 1137}#
-             #{val-exps 1138}#
-             #{body-exp 1139}#)))))
-   (#{make-syntax-object 310}#
-     (lambda (#{expression 1146}#
-              #{wrap 1147}#
-              #{module 1148}#)
-       (vector
-         'syntax-object
-         #{expression 1146}#
-         #{wrap 1147}#
-         #{module 1148}#)))
-   (#{syntax-object? 312}#
-     (lambda (#{x 1152}#)
-       (if (vector? #{x 1152}#)
-         (if (= (vector-length #{x 1152}#) 4)
-           (eq? (vector-ref #{x 1152}# 0) 'syntax-object)
-           #f)
-         #f)))
-   (#{syntax-object-expression 314}#
-     (lambda (#{x 1157}#) (vector-ref #{x 1157}# 1)))
-   (#{syntax-object-wrap 316}#
-     (lambda (#{x 1159}#) (vector-ref #{x 1159}# 2)))
-   (#{syntax-object-module 318}#
-     (lambda (#{x 1161}#) (vector-ref #{x 1161}# 3)))
-   (#{source-annotation 327}#
-     (lambda (#{x 1175}#)
-       (if (#{syntax-object? 312}# #{x 1175}#)
-         (#{source-annotation 327}#
-           (#{syntax-object-expression 314}# #{x 1175}#))
-         (if (pair? #{x 1175}#)
-           (let ((#{props 1182}# (source-properties #{x 1175}#)))
-             (if (pair? #{props 1182}#) #{props 1182}# #f))
+             #{maybe-name-value! 4278}#
+             #{ids 16633}#
+             #{val-exps 16635}#)
+           (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)
+               #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))
            #f))))
-   (#{extend-env 337}#
-     (lambda (#{labels 1184}# #{bindings 1185}# #{r 1186}#)
-       (if (null? #{labels 1184}#)
-         #{r 1186}#
-         (#{extend-env 337}#
-           (cdr #{labels 1184}#)
-           (cdr #{bindings 1185}#)
-           (cons (cons (car #{labels 1184}#)
-                       (car #{bindings 1185}#))
-                 #{r 1186}#)))))
-   (#{extend-var-env 339}#
-     (lambda (#{labels 1190}# #{vars 1191}# #{r 1192}#)
-       (if (null? #{labels 1190}#)
-         #{r 1192}#
-         (#{extend-var-env 339}#
-           (cdr #{labels 1190}#)
-           (cdr #{vars 1191}#)
-           (cons (cons (car #{labels 1190}#)
-                       (cons 'lexical (car #{vars 1191}#)))
-                 #{r 1192}#)))))
-   (#{macros-only-env 341}#
-     (lambda (#{r 1197}#)
-       (if (null? #{r 1197}#)
+   (#{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}#)
          '()
-         (let ((#{a 1200}# (car #{r 1197}#)))
-           (if (eq? (car (cdr #{a 1200}#)) 'macro)
-             (cons #{a 1200}#
-                   (#{macros-only-env 341}# (cdr #{r 1197}#)))
-             (#{macros-only-env 341}# (cdr #{r 1197}#)))))))
-   (#{lookup 343}#
-     (lambda (#{x 1201}# #{r 1202}# #{mod 1203}#)
-       (let ((#{t 1209}# (assq #{x 1201}# #{r 1202}#)))
-         (if #{t 1209}#
-           (cdr #{t 1209}#)
-           (if (symbol? #{x 1201}#)
-             (let ((#{t 1215}#
-                     (#{get-global-definition-hook 263}#
-                       #{x 1201}#
-                       #{mod 1203}#)))
-               (if #{t 1215}# #{t 1215}# '(global)))
-             '(displaced-lexical))))))
-   (#{global-extend 345}#
-     (lambda (#{type 1220}# #{sym 1221}# #{val 1222}#)
-       (#{put-global-definition-hook 261}#
-         #{sym 1221}#
-         #{type 1220}#
-         #{val 1222}#)))
-   (#{nonsymbol-id? 347}#
-     (lambda (#{x 1226}#)
-       (if (#{syntax-object? 312}# #{x 1226}#)
-         (symbol?
-           (#{syntax-object-expression 314}# #{x 1226}#))
-         #f)))
-   (#{id? 349}#
-     (lambda (#{x 1230}#)
-       (if (symbol? #{x 1230}#)
+         (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}#)
+       (module-define!
+         (current-module)
+         #{sym 16689}#
+         (make-syntax-transformer
+           #{sym 16689}#
+           #{type 16688}#
+           #{val 16690}#))))
+   (#{id? 4313}#
+     (lambda (#{x 10546}#)
+       (if (symbol? #{x 10546}#)
          #t
-         (if (#{syntax-object? 312}# #{x 1230}#)
-           (symbol?
-             (#{syntax-object-expression 314}# #{x 1230}#))
+         (if (if (vector? #{x 10546}#)
+               (if (= (vector-length #{x 10546}#) 4)
+                 (eq? (vector-ref #{x 10546}# 0) 'syntax-object)
+                 #f)
+               #f)
+           (symbol? (vector-ref #{x 10546}# 1))
            #f))))
-   (#{id-sym-name&marks 353}#
-     (lambda (#{x 1237}# #{w 1238}#)
-       (if (#{syntax-object? 312}# #{x 1237}#)
-         (values
-           (#{syntax-object-expression 314}# #{x 1237}#)
-           (#{join-marks 407}#
-             (car #{w 1238}#)
-             (car (#{syntax-object-wrap 316}# #{x 1237}#))))
-         (values #{x 1237}# (car #{w 1238}#)))))
-   (#{gen-label 367}#
-     (lambda () (symbol->string (gensym "i"))))
-   (#{gen-labels 369}#
-     (lambda (#{ls 1244}#)
-       (if (null? #{ls 1244}#)
+   (#{gen-labels 4316}#
+     (lambda (#{ls 16700}#)
+       (if (null? #{ls 16700}#)
          '()
-         (cons (#{gen-label 367}#)
-               (#{gen-labels 369}# (cdr #{ls 1244}#))))))
-   (#{make-ribcage 372}#
-     (lambda (#{symnames 1246}#
-              #{marks 1247}#
-              #{labels 1248}#)
-       (vector
-         'ribcage
-         #{symnames 1246}#
-         #{marks 1247}#
-         #{labels 1248}#)))
-   (#{ribcage-symnames 376}#
-     (lambda (#{x 1257}#) (vector-ref #{x 1257}# 1)))
-   (#{ribcage-marks 378}#
-     (lambda (#{x 1259}#) (vector-ref #{x 1259}# 2)))
-   (#{ribcage-labels 380}#
-     (lambda (#{x 1261}#) (vector-ref #{x 1261}# 3)))
-   (#{set-ribcage-symnames! 382}#
-     (lambda (#{x 1263}# #{update 1264}#)
-       (vector-set! #{x 1263}# 1 #{update 1264}#)))
-   (#{set-ribcage-marks! 384}#
-     (lambda (#{x 1267}# #{update 1268}#)
-       (vector-set! #{x 1267}# 2 #{update 1268}#)))
-   (#{set-ribcage-labels! 386}#
-     (lambda (#{x 1271}# #{update 1272}#)
-       (vector-set! #{x 1271}# 3 #{update 1272}#)))
-   (#{anti-mark 393}#
-     (lambda (#{w 1275}#)
-       (cons (cons #f (car #{w 1275}#))
-             (cons 'shift (cdr #{w 1275}#)))))
-   (#{extend-ribcage! 399}#
-     (lambda (#{ribcage 1281}# #{id 1282}# #{label 1283}#)
-       (begin
-         (#{set-ribcage-symnames! 382}#
-           #{ribcage 1281}#
-           (cons (#{syntax-object-expression 314}# #{id 1282}#)
-                 (#{ribcage-symnames 376}# #{ribcage 1281}#)))
-         (#{set-ribcage-marks! 384}#
-           #{ribcage 1281}#
-           (cons (car (#{syntax-object-wrap 316}# #{id 1282}#))
-                 (#{ribcage-marks 378}# #{ribcage 1281}#)))
-         (#{set-ribcage-labels! 386}#
-           #{ribcage 1281}#
-           (cons #{label 1283}#
-                 (#{ribcage-labels 380}# #{ribcage 1281}#))))))
-   (#{make-binding-wrap 401}#
-     (lambda (#{ids 1288}# #{labels 1289}# #{w 1290}#)
-       (if (null? #{ids 1288}#)
-         #{w 1290}#
-         (cons (car #{w 1290}#)
-               (cons (let ((#{labelvec 1297}#
-                             (list->vector #{labels 1289}#)))
-                       (let ((#{n 1299}# (vector-length #{labelvec 1297}#)))
-                         (let ((#{symnamevec 1302}# (make-vector #{n 1299}#))
-                               (#{marksvec 1303}# (make-vector #{n 1299}#)))
+         (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}#)))
                            (begin
                              (letrec*
-                               ((#{f 1307}#
-                                  (lambda (#{ids 1308}# #{i 1309}#)
-                                    (if (not (null? #{ids 1308}#))
+                               ((#{f 16711}#
+                                  (lambda (#{ids 16714}# #{i 16715}#)
+                                    (if (not (null? #{ids 16714}#))
                                       (call-with-values
                                         (lambda ()
-                                          (#{id-sym-name&marks 353}#
-                                            (car #{ids 1308}#)
-                                            #{w 1290}#))
-                                        (lambda (#{symname 1310}#
-                                                 #{marks 1311}#)
+                                          (let ((#{x 16718}#
+                                                  (car #{ids 16714}#)))
+                                            (if (if (vector? #{x 16718}#)
+                                                  (if (= (vector-length
+                                                           #{x 16718}#)
+                                                         4)
+                                                    (eq? (vector-ref
+                                                           #{x 16718}#
+                                                           0)
+                                                         'syntax-object)
+                                                    #f)
+                                                  #f)
+                                              (values
+                                                (vector-ref #{x 16718}# 1)
+                                                (let ((#{m1 16734}#
+                                                        (car #{w 16706}#))
+                                                      (#{m2 16735}#
+                                                        (car (vector-ref
+                                                               #{x 16718}#
+                                                               2))))
+                                                  (if (null? #{m2 16735}#)
+                                                    #{m1 16734}#
+                                                    (append
+                                                      #{m1 16734}#
+                                                      #{m2 16735}#))))
+                                              (values
+                                                #{x 16718}#
+                                                (car #{w 16706}#)))))
+                                        (lambda (#{symname 16755}#
+                                                 #{marks 16756}#)
                                           (begin
                                             (vector-set!
-                                              #{symnamevec 1302}#
-                                              #{i 1309}#
-                                              #{symname 1310}#)
+                                              #{symnamevec 16709}#
+                                              #{i 16715}#
+                                              #{symname 16755}#)
                                             (vector-set!
-                                              #{marksvec 1303}#
-                                              #{i 1309}#
-                                              #{marks 1311}#)
-                                            (#{f 1307}#
-                                              (cdr #{ids 1308}#)
-                                              (#{1+}# #{i 1309}#)))))))))
-                               (#{f 1307}# #{ids 1288}# 0))
-                             (#{make-ribcage 372}#
-                               #{symnamevec 1302}#
-                               #{marksvec 1303}#
-                               #{labelvec 1297}#)))))
-                     (cdr #{w 1290}#))))))
-   (#{smart-append 403}#
-     (lambda (#{m1 1316}# #{m2 1317}#)
-       (if (null? #{m2 1317}#)
-         #{m1 1316}#
-         (append #{m1 1316}# #{m2 1317}#))))
-   (#{join-wraps 405}#
-     (lambda (#{w1 1320}# #{w2 1321}#)
-       (let ((#{m1 1326}# (car #{w1 1320}#))
-             (#{s1 1327}# (cdr #{w1 1320}#)))
-         (if (null? #{m1 1326}#)
-           (if (null? #{s1 1327}#)
-             #{w2 1321}#
-             (cons (car #{w2 1321}#)
-                   (#{smart-append 403}#
-                     #{s1 1327}#
-                     (cdr #{w2 1321}#))))
-           (cons (#{smart-append 403}#
-                   #{m1 1326}#
-                   (car #{w2 1321}#))
-                 (#{smart-append 403}#
-                   #{s1 1327}#
-                   (cdr #{w2 1321}#)))))))
-   (#{join-marks 407}#
-     (lambda (#{m1 1336}# #{m2 1337}#)
-       (#{smart-append 403}# #{m1 1336}# #{m2 1337}#)))
-   (#{same-marks? 409}#
-     (lambda (#{x 1340}# #{y 1341}#)
-       (if (eq? #{x 1340}# #{y 1341}#)
-         (eq? #{x 1340}# #{y 1341}#)
-         (if (not (null? #{x 1340}#))
-           (if (not (null? #{y 1341}#))
-             (if (eq? (car #{x 1340}#) (car #{y 1341}#))
-               (#{same-marks? 409}#
-                 (cdr #{x 1340}#)
-                 (cdr #{y 1341}#))
+                                              #{marksvec 16710}#
+                                              #{i 16715}#
+                                              #{marks 16756}#)
+                                            (#{f 16711}#
+                                              (cdr #{ids 16714}#)
+                                              (#{1+}# #{i 16715}#)))))))))
+                               (#{f 16711}# #{ids 16704}# 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}#))
                #f)
              #f)
            #f))))
-   (#{id-var-name 411}#
-     (lambda (#{id 1352}# #{w 1353}#)
+   (#{id-var-name 4332}#
+     (lambda (#{id 16807}# #{w 16808}#)
        (letrec*
-         ((#{search 1359}#
-            (lambda (#{sym 1375}# #{subst 1376}# #{marks 1377}#)
-              (if (null? #{subst 1376}#)
-                (values #f #{marks 1377}#)
-                (let ((#{fst 1382}# (car #{subst 1376}#)))
-                  (if (eq? #{fst 1382}# 'shift)
-                    (#{search 1359}#
-                      #{sym 1375}#
-                      (cdr #{subst 1376}#)
-                      (cdr #{marks 1377}#))
-                    (let ((#{symnames 1384}#
-                            (#{ribcage-symnames 376}# #{fst 1382}#)))
-                      (if (vector? #{symnames 1384}#)
-                        (#{search-vector-rib 1363}#
-                          #{sym 1375}#
-                          #{subst 1376}#
-                          #{marks 1377}#
-                          #{symnames 1384}#
-                          #{fst 1382}#)
-                        (#{search-list-rib 1361}#
-                          #{sym 1375}#
-                          #{subst 1376}#
-                          #{marks 1377}#
-                          #{symnames 1384}#
-                          #{fst 1382}#))))))))
-          (#{search-list-rib 1361}#
-            (lambda (#{sym 1385}#
-                     #{subst 1386}#
-                     #{marks 1387}#
-                     #{symnames 1388}#
-                     #{ribcage 1389}#)
-              (letrec*
-                ((#{f 1398}#
-                   (lambda (#{symnames 1399}# #{i 1400}#)
-                     (if (null? #{symnames 1399}#)
-                       (#{search 1359}#
-                         #{sym 1385}#
-                         (cdr #{subst 1386}#)
-                         #{marks 1387}#)
-                       (if (if (eq? (car #{symnames 1399}#) #{sym 1385}#)
-                             (#{same-marks? 409}#
-                               #{marks 1387}#
-                               (list-ref
-                                 (#{ribcage-marks 378}# #{ribcage 1389}#)
-                                 #{i 1400}#))
-                             #f)
-                         (values
-                           (list-ref
-                             (#{ribcage-labels 380}# #{ribcage 1389}#)
-                             #{i 1400}#)
-                           #{marks 1387}#)
-                         (#{f 1398}#
-                           (cdr #{symnames 1399}#)
-                           (#{1+}# #{i 1400}#)))))))
-                (#{f 1398}# #{symnames 1388}# 0))))
-          (#{search-vector-rib 1363}#
-            (lambda (#{sym 1409}#
-                     #{subst 1410}#
-                     #{marks 1411}#
-                     #{symnames 1412}#
-                     #{ribcage 1413}#)
-              (let ((#{n 1420}# (vector-length #{symnames 1412}#)))
-                (letrec*
-                  ((#{f 1423}#
-                     (lambda (#{i 1424}#)
-                       (if (= #{i 1424}# #{n 1420}#)
-                         (#{search 1359}#
-                           #{sym 1409}#
-                           (cdr #{subst 1410}#)
-                           #{marks 1411}#)
-                         (if (if (eq? (vector-ref #{symnames 1412}# #{i 1424}#)
-                                      #{sym 1409}#)
-                               (#{same-marks? 409}#
-                                 #{marks 1411}#
-                                 (vector-ref
-                                   (#{ribcage-marks 378}# #{ribcage 1413}#)
-                                   #{i 1424}#))
-                               #f)
-                           (values
-                             (vector-ref
-                               (#{ribcage-labels 380}# #{ribcage 1413}#)
-                               #{i 1424}#)
-                             #{marks 1411}#)
-                           (#{f 1423}# (#{1+}# #{i 1424}#)))))))
-                  (#{f 1423}# 0))))))
-         (if (symbol? #{id 1352}#)
-           (let ((#{t 1436}#
-                   (#{search 1359}#
-                     #{id 1352}#
-                     (cdr #{w 1353}#)
-                     (car #{w 1353}#))))
-             (if #{t 1436}# #{t 1436}# #{id 1352}#))
-           (if (#{syntax-object? 312}# #{id 1352}#)
-             (let ((#{id 1445}#
-                     (#{syntax-object-expression 314}# #{id 1352}#))
-                   (#{w1 1446}#
-                     (#{syntax-object-wrap 316}# #{id 1352}#)))
-               (let ((#{marks 1448}#
-                       (#{join-marks 407}#
-                         (car #{w 1353}#)
-                         (car #{w1 1446}#))))
+         ((#{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}#)))
+                          (letrec*
+                            ((#{f 16888}#
+                               (lambda (#{i 16890}#)
+                                 (if (= #{i 16890}# #{n 16887}#)
+                                   (#{search 16809}#
+                                     #{sym 16870}#
+                                     (cdr #{subst 16871}#)
+                                     #{marks 16872}#)
+                                   (if (if (eq? (vector-ref
+                                                  #{symnames 16875}#
+                                                  #{i 16890}#)
+                                                #{sym 16870}#)
+                                         (#{same-marks? 4331}#
+                                           #{marks 16872}#
+                                           (vector-ref
+                                             (vector-ref #{fst 16873}# 2)
+                                             #{i 16890}#))
+                                         #f)
+                                     (values
+                                       (vector-ref
+                                         (vector-ref #{fst 16873}# 3)
+                                         #{i 16890}#)
+                                       #{marks 16872}#)
+                                     (#{f 16888}# (#{1+}# #{i 16890}#)))))))
+                            (#{f 16888}# 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}#
+                                         (list-ref
+                                           (vector-ref #{fst 16873}# 2)
+                                           #{i 16926}#))
+                                       #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)
+                   #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}#)))))
                  (call-with-values
                    (lambda ()
-                     (#{search 1359}#
-                       #{id 1445}#
-                       (cdr #{w 1353}#)
-                       #{marks 1448}#))
-                   (lambda (#{new-id 1452}# #{marks 1453}#)
-                     (if #{new-id 1452}#
-                       #{new-id 1452}#
-                       (let ((#{t 1461}#
-                               (#{search 1359}#
-                                 #{id 1445}#
-                                 (cdr #{w1 1446}#)
-                                 #{marks 1453}#)))
-                         (if #{t 1461}# #{t 1461}# #{id 1445}#)))))))
+                     (#{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}#)))))))
              (syntax-violation
                'id-var-name
                "invalid id"
-               #{id 1352}#))))))
-   (#{free-id=? 413}#
-     (lambda (#{i 1466}# #{j 1467}#)
-       (if (eq? (if (#{syntax-object? 312}# #{i 1466}#)
-                  (#{syntax-object-expression 314}# #{i 1466}#)
-                  #{i 1466}#)
-                (if (#{syntax-object? 312}# #{j 1467}#)
-                  (#{syntax-object-expression 314}# #{j 1467}#)
-                  #{j 1467}#))
-         (eq? (#{id-var-name 411}# #{i 1466}# '(()))
-              (#{id-var-name 411}# #{j 1467}# '(())))
-         #f)))
-   (#{bound-id=? 415}#
-     (lambda (#{i 1480}# #{j 1481}#)
-       (if (if (#{syntax-object? 312}# #{i 1480}#)
-             (#{syntax-object? 312}# #{j 1481}#)
-             #f)
-         (if (eq? (#{syntax-object-expression 314}# #{i 1480}#)
-                  (#{syntax-object-expression 314}# #{j 1481}#))
-           (#{same-marks? 409}#
-             (car (#{syntax-object-wrap 316}# #{i 1480}#))
-             (car (#{syntax-object-wrap 316}# #{j 1481}#)))
-           #f)
-         (eq? #{i 1480}# #{j 1481}#))))
-   (#{valid-bound-ids? 417}#
-     (lambda (#{ids 1490}#)
+               #{id 16807}#))))))
+   (#{valid-bound-ids? 4335}#
+     (lambda (#{ids 16948}#)
        (if (letrec*
-             ((#{all-ids? 1495}#
-                (lambda (#{ids 1496}#)
-                  (if (null? #{ids 1496}#)
-                    (null? #{ids 1496}#)
-                    (if (#{id? 349}# (car #{ids 1496}#))
-                      (#{all-ids? 1495}# (cdr #{ids 1496}#))
+             ((#{all-ids? 16949}#
+                (lambda (#{ids 17111}#)
+                  (if (null? #{ids 17111}#)
+                    (null? #{ids 17111}#)
+                    (if (let ((#{x 17122}# (car #{ids 17111}#)))
+                          (if (symbol? #{x 17122}#)
+                            #t
+                            (if (if (vector? #{x 17122}#)
+                                  (if (= (vector-length #{x 17122}#) 4)
+                                    (eq? (vector-ref #{x 17122}# 0)
+                                         'syntax-object)
+                                    #f)
+                                  #f)
+                              (symbol? (vector-ref #{x 17122}# 1))
+                              #f)))
+                      (#{all-ids? 16949}# (cdr #{ids 17111}#))
                       #f)))))
-             (#{all-ids? 1495}# #{ids 1490}#))
-         (#{distinct-bound-ids? 419}# #{ids 1490}#)
+             (#{all-ids? 16949}# #{ids 16948}#))
+         (#{distinct-bound-ids? 4336}# #{ids 16948}#)
          #f)))
-   (#{distinct-bound-ids? 419}#
-     (lambda (#{ids 1504}#)
+   (#{distinct-bound-ids? 4336}#
+     (lambda (#{ids 17254}#)
        (letrec*
-         ((#{distinct? 1508}#
-            (lambda (#{ids 1509}#)
-              (if (null? #{ids 1509}#)
-                (null? #{ids 1509}#)
-                (if (not (#{bound-id-member? 421}#
-                           (car #{ids 1509}#)
-                           (cdr #{ids 1509}#)))
-                  (#{distinct? 1508}# (cdr #{ids 1509}#))
+         ((#{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}#))
                   #f)))))
-         (#{distinct? 1508}# #{ids 1504}#))))
-   (#{bound-id-member? 421}#
-     (lambda (#{x 1516}# #{list 1517}#)
-       (if (not (null? #{list 1517}#))
-         (let ((#{t 1524}#
-                 (#{bound-id=? 415}#
-                   #{x 1516}#
-                   (car #{list 1517}#))))
-           (if #{t 1524}#
-             #{t 1524}#
-             (#{bound-id-member? 421}#
-               #{x 1516}#
-               (cdr #{list 1517}#))))
+         (#{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)
+                               #f)
+                             #f)
+                         (if (vector? #{j 17674}#)
+                           (if (= (vector-length #{j 17674}#) 4)
+                             (eq? (vector-ref #{j 17674}# 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)))
+                       #f)
+                     (eq? #{x 17591}# #{j 17674}#)))))
+           (if #{t 17593}#
+             #{t 17593}#
+             (#{bound-id-member? 4337}#
+               #{x 17591}#
+               (cdr #{list 17592}#))))
          #f)))
-   (#{wrap 423}#
-     (lambda (#{x 1526}# #{w 1527}# #{defmod 1528}#)
-       (if (if (null? (car #{w 1527}#))
-             (null? (cdr #{w 1527}#))
+   (#{wrap 4338}#
+     (lambda (#{x 17718}# #{w 17719}# #{defmod 17720}#)
+       (if (if (null? (car #{w 17719}#))
+             (null? (cdr #{w 17719}#))
              #f)
-         #{x 1526}#
-         (if (#{syntax-object? 312}# #{x 1526}#)
-           (#{make-syntax-object 310}#
-             (#{syntax-object-expression 314}# #{x 1526}#)
-             (#{join-wraps 405}#
-               #{w 1527}#
-               (#{syntax-object-wrap 316}# #{x 1526}#))
-             (#{syntax-object-module 318}# #{x 1526}#))
-           (if (null? #{x 1526}#)
-             #{x 1526}#
-             (#{make-syntax-object 310}#
-               #{x 1526}#
-               #{w 1527}#
-               #{defmod 1528}#))))))
-   (#{source-wrap 425}#
-     (lambda (#{x 1543}#
-              #{w 1544}#
-              #{s 1545}#
-              #{defmod 1546}#)
-       (#{wrap 423}#
-         (#{decorate-source 265}# #{x 1543}# #{s 1545}#)
-         #{w 1544}#
-         #{defmod 1546}#)))
-   (#{chi-sequence 427}#
-     (lambda (#{body 1551}#
-              #{r 1552}#
-              #{w 1553}#
-              #{s 1554}#
-              #{mod 1555}#)
-       (#{build-sequence 299}#
-         #{s 1554}#
+         #{x 17718}#
+         (if (if (vector? #{x 17718}#)
+               (if (= (vector-length #{x 17718}#) 4)
+                 (eq? (vector-ref #{x 17718}# 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)))
+             (vector
+               'syntax-object
+               #{expression 17734}#
+               #{wrap 17735}#
+               #{module 17736}#))
+           (if (null? #{x 17718}#)
+             #{x 17718}#
+             (vector
+               'syntax-object
+               #{x 17718}#
+               #{w 17719}#
+               #{defmod 17720}#))))))
+   (#{source-wrap 4339}#
+     (lambda (#{x 17753}#
+              #{w 17754}#
+              #{s 17755}#
+              #{defmod 17756}#)
+       (#{wrap 4338}#
+         (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}#
          (letrec*
-           ((#{dobody 1566}#
-              (lambda (#{body 1567}#
-                       #{r 1568}#
-                       #{w 1569}#
-                       #{mod 1570}#)
-                (if (null? #{body 1567}#)
+           ((#{dobody 28322}#
+              (lambda (#{body 28402}#
+                       #{r 28403}#
+                       #{w 28404}#
+                       #{mod 28405}#)
+                (if (null? #{body 28402}#)
                   '()
-                  (let ((#{first 1572}#
-                          (#{chi 437}#
-                            (car #{body 1567}#)
-                            #{r 1568}#
-                            #{w 1569}#
-                            #{mod 1570}#)))
-                    (cons #{first 1572}#
-                          (#{dobody 1566}#
-                            (cdr #{body 1567}#)
-                            #{r 1568}#
-                            #{w 1569}#
-                            #{mod 1570}#)))))))
-           (#{dobody 1566}#
-             #{body 1551}#
-             #{r 1552}#
-             #{w 1553}#
-             #{mod 1555}#)))))
-   (#{chi-top-sequence 429}#
-     (lambda (#{body 1573}#
-              #{r 1574}#
-              #{w 1575}#
-              #{s 1576}#
-              #{m 1577}#
-              #{esew 1578}#
-              #{mod 1579}#)
+                  (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}#)
        (letrec*
-         ((#{scan 1588}#
-            (lambda (#{body 1589}#
-                     #{r 1590}#
-                     #{w 1591}#
-                     #{s 1592}#
-                     #{m 1593}#
-                     #{esew 1594}#
-                     #{mod 1595}#
-                     #{exps 1596}#)
-              (if (null? #{body 1589}#)
-                #{exps 1596}#
+         ((#{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}#
                 (call-with-values
                   (lambda ()
                     (call-with-values
                       (lambda ()
-                        (let ((#{e 1609}# (car #{body 1589}#)))
-                          (#{syntax-type 435}#
-                            #{e 1609}#
-                            #{r 1590}#
-                            #{w 1591}#
-                            (let ((#{t 1612}#
-                                    (#{source-annotation 327}# #{e 1609}#)))
-                              (if #{t 1612}# #{t 1612}# #{s 1592}#))
+                        (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}#))
                             #f
-                            #{mod 1595}#
+                            #{mod 17918}#
                             #f)))
-                      (lambda (#{type 1614}#
-                               #{value 1615}#
-                               #{e 1616}#
-                               #{w 1617}#
-                               #{s 1618}#
-                               #{mod 1619}#)
-                        (if (memv #{type 1614}# '(begin-form))
-                          (let ((#{tmp 1628}# ($sc-dispatch #{e 1616}# '(_))))
-                            (if #{tmp 1628}#
-                              (@apply (lambda () #{exps 1596}#) #{tmp 1628}#)
-                              (let ((#{tmp 1629}#
+                      (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}#
                                       ($sc-dispatch
-                                        #{e 1616}#
+                                        #{e 18186}#
                                         '(_ any . each-any))))
-                                (if #{tmp 1629}#
+                                (if #{tmp 18198}#
                                   (@apply
-                                    (lambda (#{e1 1632}# #{e2 1633}#)
-                                      (#{scan 1588}#
-                                        (cons #{e1 1632}# #{e2 1633}#)
-                                        #{r 1590}#
-                                        #{w 1617}#
-                                        #{s 1618}#
-                                        #{m 1593}#
-                                        #{esew 1594}#
-                                        #{mod 1619}#
-                                        #{exps 1596}#))
-                                    #{tmp 1629}#)
+                                    (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}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{e 1616}#)))))
-                          (if (memv #{type 1614}# '(local-syntax-form))
-                            (#{chi-local-syntax 447}#
-                              #{value 1615}#
-                              #{e 1616}#
-                              #{r 1590}#
-                              #{w 1617}#
-                              #{s 1618}#
-                              #{mod 1619}#
-                              (lambda (#{body 1636}#
-                                       #{r 1637}#
-                                       #{w 1638}#
-                                       #{s 1639}#
-                                       #{mod 1640}#)
-                                (#{scan 1588}#
-                                  #{body 1636}#
-                                  #{r 1637}#
-                                  #{w 1638}#
-                                  #{s 1639}#
-                                  #{m 1593}#
-                                  #{esew 1594}#
-                                  #{mod 1640}#
-                                  #{exps 1596}#)))
-                            (if (memv #{type 1614}# '(eval-when-form))
-                              (let ((#{tmp 1648}#
+                                    #{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}#
                                       ($sc-dispatch
-                                        #{e 1616}#
+                                        #{e 18186}#
                                         '(_ each-any any . each-any))))
-                                (if #{tmp 1648}#
+                                (if #{tmp 18227}#
                                   (@apply
-                                    (lambda (#{x 1652}#
-                                             #{e1 1653}#
-                                             #{e2 1654}#)
-                                      (let ((#{when-list 1657}#
-                                              (#{chi-when-list 433}#
-                                                #{e 1616}#
-                                                #{x 1652}#
-                                                #{w 1617}#))
-                                            (#{body 1658}#
-                                              (cons #{e1 1653}# #{e2 1654}#)))
-                                        (if (eq? #{m 1593}# 'e)
-                                          (if (memq 'eval #{when-list 1657}#)
-                                            (#{scan 1588}#
-                                              #{body 1658}#
-                                              #{r 1590}#
-                                              #{w 1617}#
-                                              #{s 1618}#
+                                    (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}#
                                               (if (memq 'expand
-                                                        #{when-list 1657}#)
+                                                        #{when-list 18234}#)
                                                 'c&e
                                                 'e)
                                               '(eval)
-                                              #{mod 1619}#
-                                              #{exps 1596}#)
+                                              #{mod 18189}#
+                                              #{exps 17919}#)
                                             (begin
                                               (if (memq 'expand
-                                                        #{when-list 1657}#)
-                                                (#{top-level-eval-hook 255}#
-                                                  (#{chi-top-sequence 429}#
-                                                    #{body 1658}#
-                                                    #{r 1590}#
-                                                    #{w 1617}#
-                                                    #{s 1618}#
-                                                    'e
-                                                    '(eval)
-                                                    #{mod 1619}#)
-                                                  #{mod 1619}#))
-                                              (values #{exps 1596}#)))
-                                          (if (memq 'load #{when-list 1657}#)
-                                            (if (let ((#{t 1667}#
+                                                        #{when-list 18234}#)
+                                                (let ((#{x 18242}#
+                                                        (#{chi-top-sequence 
4341}#
+                                                          #{body 18235}#
+                                                          #{r 17913}#
+                                                          #{w 18187}#
+                                                          #{s 18188}#
+                                                          'e
+                                                          '(eval)
+                                                          #{mod 18189}#)))
+                                                  (primitive-eval
+                                                    #{x 18242}#)))
+                                              (values #{exps 17919}#)))
+                                          (if (memq 'load #{when-list 18234}#)
+                                            (if (let ((#{t 18244}#
                                                         (memq 'compile
-                                                              #{when-list 
1657}#)))
-                                                  (if #{t 1667}#
-                                                    #{t 1667}#
-                                                    (let ((#{t 1670}#
+                                                              #{when-list 
18234}#)))
+                                                  (if #{t 18244}#
+                                                    #{t 18244}#
+                                                    (let ((#{t 18246}#
                                                             (memq 'expand
-                                                                  #{when-list 
1657}#)))
-                                                      (if #{t 1670}#
-                                                        #{t 1670}#
-                                                        (if (eq? #{m 1593}#
+                                                                  #{when-list 
18234}#)))
+                                                      (if #{t 18246}#
+                                                        #{t 18246}#
+                                                        (if (eq? #{m 17916}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list 
1657}#)
+                                                                #{when-list 
18234}#)
                                                           #f)))))
-                                              (#{scan 1588}#
-                                                #{body 1658}#
-                                                #{r 1590}#
-                                                #{w 1617}#
-                                                #{s 1618}#
+                                              (#{scan 17781}#
+                                                #{body 18235}#
+                                                #{r 17913}#
+                                                #{w 18187}#
+                                                #{s 18188}#
                                                 'c&e
                                                 '(compile load)
-                                                #{mod 1619}#
-                                                #{exps 1596}#)
-                                              (if (memq #{m 1593}# '(c c&e))
-                                                (#{scan 1588}#
-                                                  #{body 1658}#
-                                                  #{r 1590}#
-                                                  #{w 1617}#
-                                                  #{s 1618}#
+                                                #{mod 18189}#
+                                                #{exps 17919}#)
+                                              (if (if (eq? #{m 17916}# 'c)
+                                                    #t
+                                                    (eq? #{m 17916}# 'c&e))
+                                                (#{scan 17781}#
+                                                  #{body 18235}#
+                                                  #{r 17913}#
+                                                  #{w 18187}#
+                                                  #{s 18188}#
                                                   'c
                                                   '(load)
-                                                  #{mod 1619}#
-                                                  #{exps 1596}#)
-                                                (values #{exps 1596}#)))
-                                            (if (let ((#{t 1678}#
+                                                  #{mod 18189}#
+                                                  #{exps 17919}#)
+                                                (values #{exps 17919}#)))
+                                            (if (let ((#{t 18256}#
                                                         (memq 'compile
-                                                              #{when-list 
1657}#)))
-                                                  (if #{t 1678}#
-                                                    #{t 1678}#
-                                                    (let ((#{t 1681}#
+                                                              #{when-list 
18234}#)))
+                                                  (if #{t 18256}#
+                                                    #{t 18256}#
+                                                    (let ((#{t 18258}#
                                                             (memq 'expand
-                                                                  #{when-list 
1657}#)))
-                                                      (if #{t 1681}#
-                                                        #{t 1681}#
-                                                        (if (eq? #{m 1593}#
+                                                                  #{when-list 
18234}#)))
+                                                      (if #{t 18258}#
+                                                        #{t 18258}#
+                                                        (if (eq? #{m 17916}#
                                                                  'c&e)
                                                           (memq 'eval
-                                                                #{when-list 
1657}#)
+                                                                #{when-list 
18234}#)
                                                           #f)))))
                                               (begin
-                                                (#{top-level-eval-hook 255}#
-                                                  (#{chi-top-sequence 429}#
-                                                    #{body 1658}#
-                                                    #{r 1590}#
-                                                    #{w 1617}#
-                                                    #{s 1618}#
-                                                    'e
-                                                    '(eval)
-                                                    #{mod 1619}#)
-                                                  #{mod 1619}#)
-                                                (values #{exps 1596}#))
-                                              (values #{exps 1596}#))))))
-                                    #{tmp 1648}#)
+                                                (let ((#{x 18263}#
+                                                        (#{chi-top-sequence 
4341}#
+                                                          #{body 18235}#
+                                                          #{r 17913}#
+                                                          #{w 18187}#
+                                                          #{s 18188}#
+                                                          'e
+                                                          '(eval)
+                                                          #{mod 18189}#)))
+                                                  (primitive-eval #{x 18263}#))
+                                                (values #{exps 17919}#))
+                                              (values #{exps 17919}#))))))
+                                    #{tmp 18227}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any 
pattern"
-                                    #{e 1616}#)))
-                              (if (memv #{type 1614}# '(define-syntax-form))
-                                (let ((#{n 1689}#
-                                        (#{id-var-name 411}#
-                                          #{value 1615}#
-                                          #{w 1617}#))
-                                      (#{r 1690}#
-                                        (#{macros-only-env 341}# #{r 1590}#)))
-                                  (if (memv #{m 1593}# '(c))
-                                    (if (memq 'compile #{esew 1594}#)
-                                      (let ((#{e 1693}#
-                                              (#{chi-install-global 431}#
-                                                #{n 1689}#
-                                                (#{chi 437}#
-                                                  #{e 1616}#
-                                                  #{r 1690}#
-                                                  #{w 1617}#
-                                                  #{mod 1619}#))))
+                                    #{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}#))))
                                         (begin
-                                          (#{top-level-eval-hook 255}#
-                                            #{e 1693}#
-                                            #{mod 1619}#)
-                                          (if (memq 'load #{esew 1594}#)
+                                          (#{top-level-eval-hook 4273}#
+                                            #{e 18279}#
+                                            #{mod 18189}#)
+                                          (if (memq 'load #{esew 17917}#)
                                             (values
-                                              (cons #{e 1693}# #{exps 1596}#))
-                                            (values #{exps 1596}#))))
-                                      (if (memq 'load #{esew 1594}#)
+                                              (cons #{e 18279}#
+                                                    #{exps 17919}#))
+                                            (values #{exps 17919}#))))
+                                      (if (memq 'load #{esew 17917}#)
                                         (values
-                                          (cons (#{chi-install-global 431}#
-                                                  #{n 1689}#
-                                                  (#{chi 437}#
-                                                    #{e 1616}#
-                                                    #{r 1690}#
-                                                    #{w 1617}#
-                                                    #{mod 1619}#))
-                                                #{exps 1596}#))
-                                        (values #{exps 1596}#)))
-                                    (if (memv #{m 1593}# '(c&e))
-                                      (let ((#{e 1696}#
-                                              (#{chi-install-global 431}#
-                                                #{n 1689}#
-                                                (#{chi 437}#
-                                                  #{e 1616}#
-                                                  #{r 1690}#
-                                                  #{w 1617}#
-                                                  #{mod 1619}#))))
+                                          (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}#))))
                                         (begin
-                                          (#{top-level-eval-hook 255}#
-                                            #{e 1696}#
-                                            #{mod 1619}#)
+                                          (#{top-level-eval-hook 4273}#
+                                            #{e 18736}#
+                                            #{mod 18189}#)
                                           (values
-                                            (cons #{e 1696}# #{exps 1596}#))))
+                                            (cons #{e 18736}#
+                                                  #{exps 17919}#))))
                                       (begin
-                                        (if (memq 'eval #{esew 1594}#)
-                                          (#{top-level-eval-hook 255}#
-                                            (#{chi-install-global 431}#
-                                              #{n 1689}#
-                                              (#{chi 437}#
-                                                #{e 1616}#
-                                                #{r 1690}#
-                                                #{w 1617}#
-                                                #{mod 1619}#))
-                                            #{mod 1619}#))
-                                        (values #{exps 1596}#)))))
-                                (if (memv #{type 1614}# '(define-form))
-                                  (let ((#{n 1701}#
-                                          (#{id-var-name 411}#
-                                            #{value 1615}#
-                                            #{w 1617}#)))
-                                    (let ((#{type 1703}#
-                                            (car (#{lookup 343}#
-                                                   #{n 1701}#
-                                                   #{r 1590}#
-                                                   #{mod 1619}#))))
-                                      (if (memv #{type 1703}#
-                                                '(global
-                                                   core
-                                                   macro
-                                                   module-ref))
+                                        (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}#
+                                                               (begin
+                                                                 (if (if (not 
#{mod 18189}#)
+                                                                       
(current-module)
+                                                                       #f)
+                                                                   (warn 
"module system is booted, we should have a module"
+                                                                         #{n 
19386}#))
+                                                                 (let ((#{v 
20198}#
+                                                                         
(module-variable
+                                                                           (if 
#{mod 18189}#
+                                                                             
(resolve-module
+                                                                               
(cdr #{mod 18189}#))
+                                                                             
(current-module))
+                                                                           #{n 
19386}#)))
+                                                                   (if #{v 
20198}#
+                                                                     (if 
(variable-bound?
+                                                                           #{v 
20198}#)
+                                                                       (let 
((#{val 20207}#
+                                                                               
(variable-ref
+                                                                               
  #{v 20198}#)))
+                                                                         (if 
(macro?
+                                                                               
#{val 20207}#)
+                                                                           (if 
(macro-type
+                                                                               
  #{val 20207}#)
+                                                                             
(cons (macro-type
+                                                                               
      #{val 20207}#)
+                                                                               
    (macro-binding
+                                                                               
      #{val 20207}#))
+                                                                             
#f)
+                                                                           #f))
+                                                                       #f)
+                                                                     #f)))))
+                                                         (if #{t 20161}#
+                                                           #{t 20161}#
+                                                           '(global)))
+                                                       
'(displaced-lexical)))))))
+                                      (if (let ((#{t 19421}# #{type 19387}#))
+                                            (if (eqv? #{t 19421}# 'global)
+                                              #t
+                                              (if (eqv? #{t 19421}# 'core)
+                                                #t
+                                                (if (eqv? #{t 19421}# 'macro)
+                                                  #t
+                                                  (eqv? #{t 19421}#
+                                                        'module-ref)))))
                                         (begin
-                                          (if (if (memq #{m 1593}# '(c c&e))
+                                          (if (if (if (eq? #{m 17916}# 'c)
+                                                    #t
+                                                    (eq? #{m 17916}# 'c&e))
                                                 (if (not (module-local-variable
                                                            (current-module)
-                                                           #{n 1701}#))
+                                                           #{n 19386}#))
                                                   (current-module)
                                                   #f)
                                                 #f)
-                                            (let ((#{old 1710}#
+                                            (let ((#{old 19585}#
                                                     (module-variable
                                                       (current-module)
-                                                      #{n 1701}#)))
-                                              (if (if (variable? #{old 1710}#)
+                                                      #{n 19386}#)))
+                                              (if (if (variable? #{old 19585}#)
                                                     (variable-bound?
-                                                      #{old 1710}#)
+                                                      #{old 19585}#)
                                                     #f)
                                                 (module-define!
                                                   (current-module)
-                                                  #{n 1701}#
-                                                  (variable-ref #{old 1710}#))
+                                                  #{n 19386}#
+                                                  (variable-ref #{old 19585}#))
                                                 (module-add!
                                                   (current-module)
-                                                  #{n 1701}#
+                                                  #{n 19386}#
                                                   (make-undefined-variable)))))
                                           (values
-                                            (cons (if (eq? #{m 1593}# 'c&e)
-                                                    (let ((#{x 1714}#
-                                                            
(#{build-global-definition 287}#
-                                                              #{s 1618}#
-                                                              #{n 1701}#
-                                                              (#{chi 437}#
-                                                                #{e 1616}#
-                                                                #{r 1590}#
-                                                                #{w 1617}#
-                                                                #{mod 
1619}#))))
+                                            (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}#))))
                                                       (begin
-                                                        (#{top-level-eval-hook 
255}#
-                                                          #{x 1714}#
-                                                          #{mod 1619}#)
-                                                        #{x 1714}#))
+                                                        (#{top-level-eval-hook 
4273}#
+                                                          #{x 19587}#
+                                                          #{mod 18189}#)
+                                                        #{x 19587}#))
                                                     (lambda ()
-                                                      
(#{build-global-definition 287}#
-                                                        #{s 1618}#
-                                                        #{n 1701}#
-                                                        (#{chi 437}#
-                                                          #{e 1616}#
-                                                          #{r 1590}#
-                                                          #{w 1617}#
-                                                          #{mod 1619}#))))
-                                                  #{exps 1596}#)))
-                                        (if (memv #{type 1703}#
-                                                  '(displaced-lexical))
+                                                      
(#{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}#
+                                                    'displaced-lexical))
                                           (syntax-violation
                                             #f
                                             "identifier out of context"
-                                            #{e 1616}#
-                                            (#{wrap 423}#
-                                              #{value 1615}#
-                                              #{w 1617}#
-                                              #{mod 1619}#))
+                                            #{e 18186}#
+                                            (#{wrap 4338}#
+                                              #{value 18185}#
+                                              #{w 18187}#
+                                              #{mod 18189}#))
                                           (syntax-violation
                                             #f
                                             "cannot define keyword at top 
level"
-                                            #{e 1616}#
-                                            (#{wrap 423}#
-                                              #{value 1615}#
-                                              #{w 1617}#
-                                              #{mod 1619}#))))))
+                                            #{e 18186}#
+                                            (#{wrap 4338}#
+                                              #{value 18185}#
+                                              #{w 18187}#
+                                              #{mod 18189}#))))))
                                   (values
-                                    (cons (if (eq? #{m 1593}# 'c&e)
-                                            (let ((#{x 1719}#
-                                                    (#{chi-expr 439}#
-                                                      #{type 1614}#
-                                                      #{value 1615}#
-                                                      #{e 1616}#
-                                                      #{r 1590}#
-                                                      #{w 1617}#
-                                                      #{s 1618}#
-                                                      #{mod 1619}#)))
+                                    (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}#)))
                                               (begin
-                                                (#{top-level-eval-hook 255}#
-                                                  #{x 1719}#
-                                                  #{mod 1619}#)
-                                                #{x 1719}#))
+                                                (primitive-eval #{x 20218}#)
+                                                #{x 20218}#))
                                             (lambda ()
-                                              (#{chi-expr 439}#
-                                                #{type 1614}#
-                                                #{value 1615}#
-                                                #{e 1616}#
-                                                #{r 1590}#
-                                                #{w 1617}#
-                                                #{s 1618}#
-                                                #{mod 1619}#)))
-                                          #{exps 1596}#))))))))))
-                  (lambda (#{exps 1720}#)
-                    (#{scan 1588}#
-                      (cdr #{body 1589}#)
-                      #{r 1590}#
-                      #{w 1591}#
-                      #{s 1592}#
-                      #{m 1593}#
-                      #{esew 1594}#
-                      #{mod 1595}#
-                      #{exps 1720}#)))))))
+                                              (#{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}#)))))))
          (call-with-values
            (lambda ()
-             (#{scan 1588}#
-               #{body 1573}#
-               #{r 1574}#
-               #{w 1575}#
-               #{s 1576}#
-               #{m 1577}#
-               #{esew 1578}#
-               #{mod 1579}#
+             (#{scan 17781}#
+               #{body 17774}#
+               #{r 17775}#
+               #{w 17776}#
+               #{s 17777}#
+               #{m 17778}#
+               #{esew 17779}#
+               #{mod 17780}#
                '()))
-           (lambda (#{exps 1722}#)
-             (if (null? #{exps 1722}#)
-               (#{build-void 269}# #{s 1576}#)
-               (#{build-sequence 299}#
-                 #{s 1576}#
+           (lambda (#{exps 17784}#)
+             (if (null? #{exps 17784}#)
+               (make-struct/no-tail
+                 (vector-ref %expanded-vtables 0)
+                 #{s 17777}#)
+               (#{build-sequence 4294}#
+                 #{s 17777}#
                  (letrec*
-                   ((#{lp 1727}#
-                      (lambda (#{in 1728}# #{out 1729}#)
-                        (if (null? #{in 1728}#)
-                          #{out 1729}#
-                          (let ((#{e 1731}# (car #{in 1728}#)))
-                            (#{lp 1727}#
-                              (cdr #{in 1728}#)
-                              (cons (if (procedure? #{e 1731}#)
-                                      (#{e 1731}#)
-                                      #{e 1731}#)
-                                    #{out 1729}#)))))))
-                   (#{lp 1727}# #{exps 1722}# '())))))))))
-   (#{chi-install-global 431}#
-     (lambda (#{name 1732}# #{e 1733}#)
-       (#{build-global-definition 287}#
-         #f
-         #{name 1732}#
-         (#{build-application 271}#
-           #f
-           (#{build-primref 295}#
+                   ((#{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}#
+                       (if (equal? (module-name (current-module)) '(guile))
+                         (make-struct/no-tail
+                           (vector-ref %expanded-vtables 7)
+                           #f
+                           'make-syntax-transformer)
+                         (make-struct/no-tail
+                           (vector-ref %expanded-vtables 5)
+                           #f
+                           '(guile)
+                           'make-syntax-transformer
+                           #f)))
+                     (#{arg-exps 20246}#
+                       (list (make-struct/no-tail
+                               (vector-ref %expanded-vtables 1)
+                               #f
+                               #{name 20228}#)
+                             (make-struct/no-tail
+                               (vector-ref %expanded-vtables 1)
+                               #f
+                               'macro)
+                             #{e 20229}#)))
+                 (make-struct/no-tail
+                   (vector-ref %expanded-vtables 11)
+                   #f
+                   #{fun-exp 20245}#
+                   #{arg-exps 20246}#))))
+         (begin
+           (if (if (struct? #{exp 20235}#)
+                 (eq? (struct-vtable #{exp 20235}#)
+                      (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}#)))))
+           (make-struct/no-tail
+             (vector-ref %expanded-vtables 9)
              #f
-             'make-syntax-transformer)
-           (list (#{build-data 297}# #f #{name 1732}#)
-                 (#{build-data 297}# #f 'macro)
-                 #{e 1733}#)))))
-   (#{chi-when-list 433}#
-     (lambda (#{e 1741}# #{when-list 1742}# #{w 1743}#)
+             #{name 20228}#
+             #{exp 20235}#)))))
+   (#{chi-when-list 4343}#
+     (lambda (#{e 20305}# #{when-list 20306}# #{w 20307}#)
        (letrec*
-         ((#{f 1750}#
-            (lambda (#{when-list 1751}# #{situations 1752}#)
-              (if (null? #{when-list 1751}#)
-                #{situations 1752}#
-                (#{f 1750}#
-                  (cdr #{when-list 1751}#)
-                  (cons (let ((#{x 1754}# (car #{when-list 1751}#)))
-                          (if (#{free-id=? 413}#
-                                #{x 1754}#
-                                '#(syntax-object
-                                   compile
-                                   ((top)
-                                    #(ribcage () () ())
-                                    #(ribcage () () ())
-                                    #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i1753"))
-                                    #(ribcage () () ())
-                                    #(ribcage
-                                      #(f when-list situations)
-                                      #((top) (top) (top))
-                                      #("i1747" "i1748" "i1749"))
-                                    #(ribcage () () ())
-                                    #(ribcage
-                                      #(e when-list w)
-                                      #((top) (top) (top))
-                                      #("i1744" "i1745" "i1746"))
-                                    #(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))
-                                      ("i466"
-                                       "i464"
-                                       "i462"
-                                       "i460"
-                                       "i458"
-                                       "i456"
-                                       "i454"
-                                       "i452"
-                                       "i450"
-                                       "i448"
-                                       "i446"
-                                       "i444"
-                                       "i442"
-                                       "i440"
-                                       "i438"
-                                       "i436"
-                                       "i434"
-                                       "i432"
-                                       "i430"
-                                       "i428"
-                                       "i426"
-                                       "i424"
-                                       "i422"
-                                       "i420"
-                                       "i418"
-                                       "i416"
-                                       "i414"
-                                       "i412"
-                                       "i410"
-                                       "i408"
-                                       "i406"
-                                       "i404"
-                                       "i402"
-                                       "i400"
-                                       "i398"
-                                       "i397"
-                                       "i395"
-                                       "i392"
-                                       "i391"
-                                       "i390"
-                                       "i388"
-                                       "i387"
-                                       "i385"
-                                       "i383"
-                                       "i381"
-                                       "i379"
-                                       "i377"
-                                       "i375"
-                                       "i373"
-                                       "i371"
-                                       "i368"
-                                       "i366"
-                                       "i365"
-                                       "i363"
-                                       "i361"
-                                       "i359"
-                                       "i357"
-                                       "i356"
-                                       "i355"
-                                       "i354"
-                                       "i352"
-                                       "i351"
-                                       "i348"
-                                       "i346"
-                                       "i344"
-                                       "i342"
-                                       "i340"
-                                       "i338"
-                                       "i336"
-                                       "i335"
-                                       "i334"
-                                       "i332"
-                                       "i330"
-                                       "i329"
-                                       "i326"
-                                       "i325"
-                                       "i323"
-                                       "i321"
-                                       "i319"
-                                       "i317"
-                                       "i315"
-                                       "i313"
-                                       "i311"
-                                       "i309"
-                                       "i307"
-                                       "i304"
-                                       "i302"
-                                       "i300"
-                                       "i298"
-                                       "i296"
-                                       "i294"
-                                       "i292"
-                                       "i290"
-                                       "i288"
-                                       "i286"
-                                       "i284"
-                                       "i282"
-                                       "i280"
-                                       "i278"
-                                       "i276"
-                                       "i274"
-                                       "i272"
-                                       "i270"
-                                       "i268"
-                                       "i266"
-                                       "i264"
-                                       "i262"
-                                       "i260"
-                                       "i259"
-                                       "i256"
-                                       "i254"
-                                       "i253"
-                                       "i252"
-                                       "i251"
-                                       "i250"
-                                       "i248"
-                                       "i246"
-                                       "i244"
-                                       "i241"
-                                       "i239"
-                                       "i237"
-                                       "i235"
-                                       "i233"
-                                       "i231"
-                                       "i229"
-                                       "i227"
-                                       "i225"
-                                       "i223"
-                                       "i221"
-                                       "i219"
-                                       "i217"
-                                       "i215"
-                                       "i213"
-                                       "i211"
-                                       "i209"
-                                       "i207"))
-                                    #(ribcage
-                                      (define-structure
-                                        define-expansion-accessors
-                                        define-expansion-constructors)
-                                      ((top) (top) (top))
-                                      ("i45" "i44" "i43")))
-                                   (hygiene guile)))
-                            'compile
-                            (if (#{free-id=? 413}#
-                                  #{x 1754}#
-                                  '#(syntax-object
-                                     load
-                                     ((top)
-                                      #(ribcage () () ())
-                                      #(ribcage () () ())
-                                      #(ribcage () () ())
-                                      #(ribcage #(x) #((top)) #("i1753"))
-                                      #(ribcage () () ())
-                                      #(ribcage
-                                        #(f when-list situations)
-                                        #((top) (top) (top))
-                                        #("i1747" "i1748" "i1749"))
-                                      #(ribcage () () ())
-                                      #(ribcage
-                                        #(e when-list w)
-                                        #((top) (top) (top))
-                                        #("i1744" "i1745" "i1746"))
-                                      #(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))
-                                        ("i466"
-                                         "i464"
-                                         "i462"
-                                         "i460"
-                                         "i458"
-                                         "i456"
-                                         "i454"
-                                         "i452"
-                                         "i450"
-                                         "i448"
-                                         "i446"
-                                         "i444"
-                                         "i442"
-                                         "i440"
-                                         "i438"
-                                         "i436"
-                                         "i434"
-                                         "i432"
-                                         "i430"
-                                         "i428"
-                                         "i426"
-                                         "i424"
-                                         "i422"
-                                         "i420"
-                                         "i418"
-                                         "i416"
-                                         "i414"
-                                         "i412"
-                                         "i410"
-                                         "i408"
-                                         "i406"
-                                         "i404"
-                                         "i402"
-                                         "i400"
-                                         "i398"
-                                         "i397"
-                                         "i395"
-                                         "i392"
-                                         "i391"
-                                         "i390"
-                                         "i388"
-                                         "i387"
-                                         "i385"
-                                         "i383"
-                                         "i381"
-                                         "i379"
-                                         "i377"
-                                         "i375"
-                                         "i373"
-                                         "i371"
-                                         "i368"
-                                         "i366"
-                                         "i365"
-                                         "i363"
-                                         "i361"
-                                         "i359"
-                                         "i357"
-                                         "i356"
-                                         "i355"
-                                         "i354"
-                                         "i352"
-                                         "i351"
-                                         "i348"
-                                         "i346"
-                                         "i344"
-                                         "i342"
-                                         "i340"
-                                         "i338"
-                                         "i336"
-                                         "i335"
-                                         "i334"
-                                         "i332"
-                                         "i330"
-                                         "i329"
-                                         "i326"
-                                         "i325"
-                                         "i323"
-                                         "i321"
-                                         "i319"
-                                         "i317"
-                                         "i315"
-                                         "i313"
-                                         "i311"
-                                         "i309"
-                                         "i307"
-                                         "i304"
-                                         "i302"
-                                         "i300"
-                                         "i298"
-                                         "i296"
-                                         "i294"
-                                         "i292"
-                                         "i290"
-                                         "i288"
-                                         "i286"
-                                         "i284"
-                                         "i282"
-                                         "i280"
-                                         "i278"
-                                         "i276"
-                                         "i274"
-                                         "i272"
-                                         "i270"
-                                         "i268"
-                                         "i266"
-                                         "i264"
-                                         "i262"
-                                         "i260"
-                                         "i259"
-                                         "i256"
-                                         "i254"
-                                         "i253"
-                                         "i252"
-                                         "i251"
-                                         "i250"
-                                         "i248"
-                                         "i246"
-                                         "i244"
-                                         "i241"
-                                         "i239"
-                                         "i237"
-                                         "i235"
-                                         "i233"
-                                         "i231"
-                                         "i229"
-                                         "i227"
-                                         "i225"
-                                         "i223"
-                                         "i221"
-                                         "i219"
-                                         "i217"
-                                         "i215"
-                                         "i213"
-                                         "i211"
-                                         "i209"
-                                         "i207"))
-                                      #(ribcage
-                                        (define-structure
-                                          define-expansion-accessors
-                                          define-expansion-constructors)
-                                        ((top) (top) (top))
-                                        ("i45" "i44" "i43")))
-                                     (hygiene guile)))
-                              'load
-                              (if (#{free-id=? 413}#
-                                    #{x 1754}#
-                                    '#(syntax-object
-                                       eval
-                                       ((top)
-                                        #(ribcage () () ())
-                                        #(ribcage () () ())
-                                        #(ribcage () () ())
-                                        #(ribcage #(x) #((top)) #("i1753"))
-                                        #(ribcage () () ())
-                                        #(ribcage
-                                          #(f when-list situations)
-                                          #((top) (top) (top))
-                                          #("i1747" "i1748" "i1749"))
-                                        #(ribcage () () ())
-                                        #(ribcage
-                                          #(e when-list w)
-                                          #((top) (top) (top))
-                                          #("i1744" "i1745" "i1746"))
-                                        #(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))
-                                          ("i466"
-                                           "i464"
-                                           "i462"
-                                           "i460"
-                                           "i458"
-                                           "i456"
-                                           "i454"
-                                           "i452"
-                                           "i450"
-                                           "i448"
-                                           "i446"
-                                           "i444"
-                                           "i442"
-                                           "i440"
-                                           "i438"
-                                           "i436"
-                                           "i434"
-                                           "i432"
-                                           "i430"
-                                           "i428"
-                                           "i426"
-                                           "i424"
-                                           "i422"
-                                           "i420"
-                                           "i418"
-                                           "i416"
-                                           "i414"
-                                           "i412"
-                                           "i410"
-                                           "i408"
-                                           "i406"
-                                           "i404"
-                                           "i402"
-                                           "i400"
-                                           "i398"
-                                           "i397"
-                                           "i395"
-                                           "i392"
-                                           "i391"
-                                           "i390"
-                                           "i388"
-                                           "i387"
-                                           "i385"
-                                           "i383"
-                                           "i381"
-                                           "i379"
-                                           "i377"
-                                           "i375"
-                                           "i373"
-                                           "i371"
-                                           "i368"
-                                           "i366"
-                                           "i365"
-                                           "i363"
-                                           "i361"
-                                           "i359"
-                                           "i357"
-                                           "i356"
-                                           "i355"
-                                           "i354"
-                                           "i352"
-                                           "i351"
-                                           "i348"
-                                           "i346"
-                                           "i344"
-                                           "i342"
-                                           "i340"
-                                           "i338"
-                                           "i336"
-                                           "i335"
-                                           "i334"
-                                           "i332"
-                                           "i330"
-                                           "i329"
-                                           "i326"
-                                           "i325"
-                                           "i323"
-                                           "i321"
-                                           "i319"
-                                           "i317"
-                                           "i315"
-                                           "i313"
-                                           "i311"
-                                           "i309"
-                                           "i307"
-                                           "i304"
-                                           "i302"
-                                           "i300"
-                                           "i298"
-                                           "i296"
-                                           "i294"
-                                           "i292"
-                                           "i290"
-                                           "i288"
-                                           "i286"
-                                           "i284"
-                                           "i282"
-                                           "i280"
-                                           "i278"
-                                           "i276"
-                                           "i274"
-                                           "i272"
-                                           "i270"
-                                           "i268"
-                                           "i266"
-                                           "i264"
-                                           "i262"
-                                           "i260"
-                                           "i259"
-                                           "i256"
-                                           "i254"
-                                           "i253"
-                                           "i252"
-                                           "i251"
-                                           "i250"
-                                           "i248"
-                                           "i246"
-                                           "i244"
-                                           "i241"
-                                           "i239"
-                                           "i237"
-                                           "i235"
-                                           "i233"
-                                           "i231"
-                                           "i229"
-                                           "i227"
-                                           "i225"
-                                           "i223"
-                                           "i221"
-                                           "i219"
-                                           "i217"
-                                           "i215"
-                                           "i213"
-                                           "i211"
-                                           "i209"
-                                           "i207"))
-                                        #(ribcage
-                                          (define-structure
-                                            define-expansion-accessors
-                                            define-expansion-constructors)
-                                          ((top) (top) (top))
-                                          ("i45" "i44" "i43")))
-                                       (hygiene guile)))
-                                'eval
-                                (if (#{free-id=? 413}#
-                                      #{x 1754}#
-                                      '#(syntax-object
-                                         expand
-                                         ((top)
-                                          #(ribcage () () ())
-                                          #(ribcage () () ())
-                                          #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i1753"))
-                                          #(ribcage () () ())
-                                          #(ribcage
-                                            #(f when-list situations)
-                                            #((top) (top) (top))
-                                            #("i1747" "i1748" "i1749"))
-                                          #(ribcage () () ())
-                                          #(ribcage
-                                            #(e when-list w)
-                                            #((top) (top) (top))
-                                            #("i1744" "i1745" "i1746"))
-                                          #(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)
+         ((#{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)
+                                               #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)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top)
-                                             (top))
-                                            ("i466"
-                                             "i464"
-                                             "i462"
-                                             "i460"
-                                             "i458"
-                                             "i456"
-                                             "i454"
-                                             "i452"
-                                             "i450"
-                                             "i448"
-                                             "i446"
-                                             "i444"
-                                             "i442"
-                                             "i440"
-                                             "i438"
-                                             "i436"
-                                             "i434"
-                                             "i432"
-                                             "i430"
-                                             "i428"
-                                             "i426"
-                                             "i424"
-                                             "i422"
-                                             "i420"
-                                             "i418"
-                                             "i416"
-                                             "i414"
-                                             "i412"
-                                             "i410"
-                                             "i408"
-                                             "i406"
-                                             "i404"
-                                             "i402"
-                                             "i400"
-                                             "i398"
-                                             "i397"
-                                             "i395"
-                                             "i392"
-                                             "i391"
-                                             "i390"
-                                             "i388"
-                                             "i387"
-                                             "i385"
-                                             "i383"
-                                             "i381"
-                                             "i379"
-                                             "i377"
-                                             "i375"
-                                             "i373"
-                                             "i371"
-                                             "i368"
-                                             "i366"
-                                             "i365"
-                                             "i363"
-                                             "i361"
-                                             "i359"
-                                             "i357"
-                                             "i356"
-                                             "i355"
-                                             "i354"
-                                             "i352"
-                                             "i351"
-                                             "i348"
-                                             "i346"
-                                             "i344"
-                                             "i342"
-                                             "i340"
-                                             "i338"
-                                             "i336"
-                                             "i335"
-                                             "i334"
-                                             "i332"
-                                             "i330"
-                                             "i329"
-                                             "i326"
-                                             "i325"
-                                             "i323"
-                                             "i321"
-                                             "i319"
-                                             "i317"
-                                             "i315"
-                                             "i313"
-                                             "i311"
-                                             "i309"
-                                             "i307"
-                                             "i304"
-                                             "i302"
-                                             "i300"
-                                             "i298"
-                                             "i296"
-                                             "i294"
-                                             "i292"
-                                             "i290"
-                                             "i288"
-                                             "i286"
-                                             "i284"
-                                             "i282"
-                                             "i280"
-                                             "i278"
-                                             "i276"
-                                             "i274"
-                                             "i272"
-                                             "i270"
-                                             "i268"
-                                             "i266"
-                                             "i264"
-                                             "i262"
-                                             "i260"
-                                             "i259"
-                                             "i256"
-                                             "i254"
-                                             "i253"
-                                             "i252"
-                                             "i251"
-                                             "i250"
-                                             "i248"
-                                             "i246"
-                                             "i244"
-                                             "i241"
-                                             "i239"
-                                             "i237"
-                                             "i235"
-                                             "i233"
-                                             "i231"
-                                             "i229"
-                                             "i227"
-                                             "i225"
-                                             "i223"
-                                             "i221"
-                                             "i219"
-                                             "i217"
-                                             "i215"
-                                             "i213"
-                                             "i211"
-                                             "i209"
-                                             "i207"))
-                                          #(ribcage
-                                            (define-structure
-                                              define-expansion-accessors
-                                              define-expansion-constructors)
-                                            ((top) (top) (top))
-                                            ("i45" "i44" "i43")))
-                                         (hygiene guile)))
-                                  'expand
-                                  (syntax-violation
-                                    'eval-when
-                                    "invalid situation"
-                                    #{e 1741}#
-                                    (#{wrap 423}#
-                                      #{x 1754}#
-                                      #{w 1743}#
-                                      #f)))))))
-                        #{situations 1752}#))))))
-         (#{f 1750}# #{when-list 1742}# '()))))
-   (#{syntax-type 435}#
-     (lambda (#{e 1764}#
-              #{r 1765}#
-              #{w 1766}#
-              #{s 1767}#
-              #{rib 1768}#
-              #{mod 1769}#
-              #{for-car? 1770}#)
-       (if (symbol? #{e 1764}#)
-         (let ((#{n 1782}#
-                 (#{id-var-name 411}# #{e 1764}# #{w 1766}#)))
-           (let ((#{b 1784}#
-                   (#{lookup 343}#
-                     #{n 1782}#
-                     #{r 1765}#
-                     #{mod 1769}#)))
-             (let ((#{type 1786}# (car #{b 1784}#)))
-               (if (memv #{type 1786}# '(lexical))
-                 (values
-                   #{type 1786}#
-                   (cdr #{b 1784}#)
-                   #{e 1764}#
-                   #{w 1766}#
-                   #{s 1767}#
-                   #{mod 1769}#)
-                 (if (memv #{type 1786}# '(global))
-                   (values
-                     #{type 1786}#
-                     #{n 1782}#
-                     #{e 1764}#
-                     #{w 1766}#
-                     #{s 1767}#
-                     #{mod 1769}#)
-                   (if (memv #{type 1786}# '(macro))
-                     (if #{for-car? 1770}#
-                       (values
-                         #{type 1786}#
-                         (cdr #{b 1784}#)
-                         #{e 1764}#
-                         #{w 1766}#
-                         #{s 1767}#
-                         #{mod 1769}#)
-                       (#{syntax-type 435}#
-                         (#{chi-macro 443}#
-                           (cdr #{b 1784}#)
-                           #{e 1764}#
-                           #{r 1765}#
-                           #{w 1766}#
-                           #{s 1767}#
-                           #{rib 1768}#
-                           #{mod 1769}#)
-                         #{r 1765}#
-                         '(())
-                         #{s 1767}#
-                         #{rib 1768}#
-                         #{mod 1769}#
-                         #f))
-                     (values
-                       #{type 1786}#
-                       (cdr #{b 1784}#)
-                       #{e 1764}#
-                       #{w 1766}#
-                       #{s 1767}#
-                       #{mod 1769}#)))))))
-         (if (pair? #{e 1764}#)
-           (let ((#{first 1800}# (car #{e 1764}#)))
-             (call-with-values
-               (lambda ()
-                 (#{syntax-type 435}#
-                   #{first 1800}#
-                   #{r 1765}#
-                   #{w 1766}#
-                   #{s 1767}#
-                   #{rib 1768}#
-                   #{mod 1769}#
-                   #t))
-               (lambda (#{ftype 1801}#
-                        #{fval 1802}#
-                        #{fe 1803}#
-                        #{fw 1804}#
-                        #{fs 1805}#
-                        #{fmod 1806}#)
-                 (if (memv #{ftype 1801}# '(lexical))
-                   (values
-                     'lexical-call
-                     #{fval 1802}#
-                     #{e 1764}#
-                     #{w 1766}#
-                     #{s 1767}#
-                     #{mod 1769}#)
-                   (if (memv #{ftype 1801}# '(global))
-                     (values
-                       'global-call
-                       (#{make-syntax-object 310}#
-                         #{fval 1802}#
-                         #{w 1766}#
-                         #{fmod 1806}#)
-                       #{e 1764}#
-                       #{w 1766}#
-                       #{s 1767}#
-                       #{mod 1769}#)
-                     (if (memv #{ftype 1801}# '(macro))
-                       (#{syntax-type 435}#
-                         (#{chi-macro 443}#
-                           #{fval 1802}#
-                           #{e 1764}#
-                           #{r 1765}#
-                           #{w 1766}#
-                           #{s 1767}#
-                           #{rib 1768}#
-                           #{mod 1769}#)
-                         #{r 1765}#
-                         '(())
-                         #{s 1767}#
-                         #{rib 1768}#
-                         #{mod 1769}#
-                         #{for-car? 1770}#)
-                       (if (memv #{ftype 1801}# '(module-ref))
-                         (call-with-values
-                           (lambda ()
-                             (#{fval 1802}# #{e 1764}# #{r 1765}# #{w 1766}#))
-                           (lambda (#{e 1818}#
-                                    #{r 1819}#
-                                    #{w 1820}#
-                                    #{s 1821}#
-                                    #{mod 1822}#)
-                             (#{syntax-type 435}#
-                               #{e 1818}#
-                               #{r 1819}#
-                               #{w 1820}#
-                               #{s 1821}#
-                               #{rib 1768}#
-                               #{mod 1822}#
-                               #{for-car? 1770}#)))
-                         (if (memv #{ftype 1801}# '(core))
-                           (values
-                             'core-form
-                             #{fval 1802}#
-                             #{e 1764}#
-                             #{w 1766}#
-                             #{s 1767}#
-                             #{mod 1769}#)
-                           (if (memv #{ftype 1801}# '(local-syntax))
-                             (values
-                               'local-syntax-form
-                               #{fval 1802}#
-                               #{e 1764}#
-                               #{w 1766}#
-                               #{s 1767}#
-                               #{mod 1769}#)
-                             (if (memv #{ftype 1801}# '(begin))
-                               (values
-                                 'begin-form
-                                 #f
-                                 #{e 1764}#
-                                 #{w 1766}#
-                                 #{s 1767}#
-                                 #{mod 1769}#)
-                               (if (memv #{ftype 1801}# '(eval-when))
-                                 (values
-                                   'eval-when-form
-                                   #f
-                                   #{e 1764}#
-                                   #{w 1766}#
-                                   #{s 1767}#
-                                   #{mod 1769}#)
-                                 (if (memv #{ftype 1801}# '(define))
-                                   (let ((#{tmp 1834}#
-                                           ($sc-dispatch
-                                             #{e 1764}#
-                                             '(_ any any))))
-                                     (if (if #{tmp 1834}#
-                                           (@apply
-                                             (lambda (#{name 1837}#
-                                                      #{val 1838}#)
-                                               (#{id? 349}# #{name 1837}#))
-                                             #{tmp 1834}#)
-                                           #f)
-                                       (@apply
-                                         (lambda (#{name 1841}# #{val 1842}#)
-                                           (values
-                                             'define-form
-                                             #{name 1841}#
-                                             #{val 1842}#
-                                             #{w 1766}#
-                                             #{s 1767}#
-                                             #{mod 1769}#))
-                                         #{tmp 1834}#)
-                                       (let ((#{tmp 1843}#
-                                               ($sc-dispatch
-                                                 #{e 1764}#
-                                                 '(_ (any . any)
-                                                     any
-                                                     .
-                                                     each-any))))
-                                         (if (if #{tmp 1843}#
-                                               (@apply
-                                                 (lambda (#{name 1848}#
-                                                          #{args 1849}#
-                                                          #{e1 1850}#
-                                                          #{e2 1851}#)
-                                                   (if (#{id? 349}#
-                                                         #{name 1848}#)
-                                                     (#{valid-bound-ids? 417}#
-                                                       (#{lambda-var-list 467}#
-                                                         #{args 1849}#))
-                                                     #f))
-                                                 #{tmp 1843}#)
-                                               #f)
-                                           (@apply
-                                             (lambda (#{name 1858}#
-                                                      #{args 1859}#
-                                                      #{e1 1860}#
-                                                      #{e2 1861}#)
-                                               (values
-                                                 'define-form
-                                                 (#{wrap 423}#
-                                                   #{name 1858}#
-                                                   #{w 1766}#
-                                                   #{mod 1769}#)
-                                                 (#{decorate-source 265}#
-                                                   (cons '#(syntax-object
-                                                            lambda
-                                                            ((top)
-                                                             #(ribcage
-                                                               #(name
-                                                                 args
-                                                                 e1
-                                                                 e2)
-                                                               #((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))
-                                                               #("i1854"
-                                                                 "i1855"
-                                                                 "i1856"
-                                                                 "i1857"))
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               #(ftype
-                                                                 fval
-                                                                 fe
-                                                                 fw
-                                                                 fs
-                                                                 fmod)
-                                                               #((top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
-                                                                 (top))
-                                                               #("i1807"
-                                                                 "i1808"
-                                                                 "i1809"
-                                                                 "i1810"
-                                                                 "i1811"
-                                                                 "i1812"))
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               #(first)
-                                                               #((top))
-                                                               #("i1799"))
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               ()
-                                                               ()
-                                                               ())
-                                                             #(ribcage
-                                                               #(e
-                                                                 r
-                                                                 w
-                                                                 s
-                                                                 rib
-                                                                 mod
-                                                                 for-car?)
-                                                               #((top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
-                                                                 (top))
-                                                               #("i1771"
-                                                                 "i1772"
-                                                                 "i1773"
-                                                                 "i1774"
-                                                                 "i1775"
-                                                                 "i1776"
-                                                                 "i1777"))
-                                                             #(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))
-                                                               ("i466"
-                                                                "i464"
-                                                                "i462"
-                                                                "i460"
-                                                                "i458"
-                                                                "i456"
-                                                                "i454"
-                                                                "i452"
-                                                                "i450"
-                                                                "i448"
-                                                                "i446"
-                                                                "i444"
-                                                                "i442"
-                                                                "i440"
-                                                                "i438"
-                                                                "i436"
-                                                                "i434"
-                                                                "i432"
-                                                                "i430"
-                                                                "i428"
-                                                                "i426"
-                                                                "i424"
-                                                                "i422"
-                                                                "i420"
-                                                                "i418"
-                                                                "i416"
-                                                                "i414"
-                                                                "i412"
-                                                                "i410"
-                                                                "i408"
-                                                                "i406"
-                                                                "i404"
-                                                                "i402"
-                                                                "i400"
-                                                                "i398"
-                                                                "i397"
-                                                                "i395"
-                                                                "i392"
-                                                                "i391"
-                                                                "i390"
-                                                                "i388"
-                                                                "i387"
-                                                                "i385"
-                                                                "i383"
-                                                                "i381"
-                                                                "i379"
-                                                                "i377"
-                                                                "i375"
-                                                                "i373"
-                                                                "i371"
-                                                                "i368"
-                                                                "i366"
-                                                                "i365"
-                                                                "i363"
-                                                                "i361"
-                                                                "i359"
-                                                                "i357"
-                                                                "i356"
-                                                                "i355"
-                                                                "i354"
-                                                                "i352"
-                                                                "i351"
-                                                                "i348"
-                                                                "i346"
-                                                                "i344"
-                                                                "i342"
-                                                                "i340"
-                                                                "i338"
-                                                                "i336"
-                                                                "i335"
-                                                                "i334"
-                                                                "i332"
-                                                                "i330"
-                                                                "i329"
-                                                                "i326"
-                                                                "i325"
-                                                                "i323"
-                                                                "i321"
-                                                                "i319"
-                                                                "i317"
-                                                                "i315"
-                                                                "i313"
-                                                                "i311"
-                                                                "i309"
-                                                                "i307"
-                                                                "i304"
-                                                                "i302"
-                                                                "i300"
-                                                                "i298"
-                                                                "i296"
-                                                                "i294"
-                                                                "i292"
-                                                                "i290"
-                                                                "i288"
-                                                                "i286"
-                                                                "i284"
-                                                                "i282"
-                                                                "i280"
-                                                                "i278"
-                                                                "i276"
-                                                                "i274"
-                                                                "i272"
-                                                                "i270"
-                                                                "i268"
-                                                                "i266"
-                                                                "i264"
-                                                                "i262"
-                                                                "i260"
-                                                                "i259"
-                                                                "i256"
-                                                                "i254"
-                                                                "i253"
-                                                                "i252"
-                                                                "i251"
-                                                                "i250"
-                                                                "i248"
-                                                                "i246"
-                                                                "i244"
-                                                                "i241"
-                                                                "i239"
-                                                                "i237"
-                                                                "i235"
-                                                                "i233"
-                                                                "i231"
-                                                                "i229"
-                                                                "i227"
-                                                                "i225"
-                                                                "i223"
-                                                                "i221"
-                                                                "i219"
-                                                                "i217"
-                                                                "i215"
-                                                                "i213"
-                                                                "i211"
-                                                                "i209"
-                                                                "i207"))
-                                                             #(ribcage
-                                                               
(define-structure
-                                                                 
define-expansion-accessors
-                                                                 
define-expansion-constructors)
-                                                               ((top)
-                                                                (top)
-                                                                (top))
-                                                               ("i45"
-                                                                "i44"
-                                                                "i43")))
-                                                            (hygiene guile))
-                                                         (#{wrap 423}#
-                                                           (cons #{args 1859}#
-                                                                 (cons #{e1 
1860}#
-                                                                       #{e2 
1861}#))
-                                                           #{w 1766}#
-                                                           #{mod 1769}#))
-                                                   #{s 1767}#)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (top)
+                                                                 (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 1767}#
-                                                 #{mod 1769}#))
-                                             #{tmp 1843}#)
-                                           (let ((#{tmp 1864}#
+                                                 #{s 20519}#
+                                                 #{mod 20521}#))
+                                             #{tmp 21244}#)
+                                           (let ((#{tmp 21464}#
                                                    ($sc-dispatch
-                                                     #{e 1764}#
+                                                     #{e 20516}#
                                                      '(_ any))))
-                                             (if (if #{tmp 1864}#
+                                             (if (if #{tmp 21464}#
                                                    (@apply
-                                                     (lambda (#{name 1866}#)
-                                                       (#{id? 349}#
-                                                         #{name 1866}#))
-                                                     #{tmp 1864}#)
+                                                     (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 1868}#)
+                                                 (lambda (#{name 21495}#)
                                                    (values
                                                      'define-form
-                                                     (#{wrap 423}#
-                                                       #{name 1868}#
-                                                       #{w 1766}#
-                                                       #{mod 1769}#)
+                                                     (#{wrap 4338}#
+                                                       #{name 21495}#
+                                                       #{w 20518}#
+                                                       #{mod 20521}#)
                                                      '(#(syntax-object
                                                          if
                                                          ((top)
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1867"))
+                                                            #("i1868"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -3874,17 +11165,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1807"
-                                                              "i1808"
+                                                            #("i1808"
                                                               "i1809"
                                                               "i1810"
                                                               "i1811"
-                                                              "i1812"))
+                                                              "i1812"
+                                                              "i1813"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1799"))
+                                                            #("i1800"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -3903,13 +11194,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1771"
-                                                              "i1772"
+                                                            #("i1772"
                                                               "i1773"
                                                               "i1774"
                                                               "i1775"
                                                               "i1776"
-                                                              "i1777"))
+                                                              "i1777"
+                                                              "i1778"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -4183,150 +11474,150 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i466"
-                                                             "i464"
-                                                             "i462"
-                                                             "i460"
-                                                             "i458"
-                                                             "i456"
-                                                             "i454"
-                                                             "i452"
-                                                             "i450"
-                                                             "i448"
-                                                             "i446"
-                                                             "i444"
-                                                             "i442"
-                                                             "i440"
-                                                             "i438"
-                                                             "i436"
-                                                             "i434"
-                                                             "i432"
-                                                             "i430"
-                                                             "i428"
-                                                             "i426"
-                                                             "i424"
-                                                             "i422"
-                                                             "i420"
-                                                             "i418"
-                                                             "i416"
-                                                             "i414"
-                                                             "i412"
-                                                             "i410"
-                                                             "i408"
-                                                             "i406"
-                                                             "i404"
-                                                             "i402"
-                                                             "i400"
+                                                            ("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"
-                                                             "i397"
-                                                             "i395"
+                                                             "i396"
+                                                             "i393"
                                                              "i392"
                                                              "i391"
-                                                             "i390"
+                                                             "i389"
                                                              "i388"
-                                                             "i387"
-                                                             "i385"
-                                                             "i383"
-                                                             "i381"
-                                                             "i379"
-                                                             "i377"
-                                                             "i375"
-                                                             "i373"
-                                                             "i371"
-                                                             "i368"
+                                                             "i386"
+                                                             "i384"
+                                                             "i382"
+                                                             "i380"
+                                                             "i378"
+                                                             "i376"
+                                                             "i374"
+                                                             "i372"
+                                                             "i369"
+                                                             "i367"
                                                              "i366"
-                                                             "i365"
-                                                             "i363"
-                                                             "i361"
-                                                             "i359"
+                                                             "i364"
+                                                             "i362"
+                                                             "i360"
+                                                             "i358"
                                                              "i357"
                                                              "i356"
                                                              "i355"
-                                                             "i354"
+                                                             "i353"
                                                              "i352"
-                                                             "i351"
-                                                             "i348"
-                                                             "i346"
-                                                             "i344"
-                                                             "i342"
-                                                             "i340"
-                                                             "i338"
+                                                             "i349"
+                                                             "i347"
+                                                             "i345"
+                                                             "i343"
+                                                             "i341"
+                                                             "i339"
+                                                             "i337"
                                                              "i336"
                                                              "i335"
-                                                             "i334"
-                                                             "i332"
+                                                             "i333"
+                                                             "i331"
                                                              "i330"
-                                                             "i329"
+                                                             "i327"
                                                              "i326"
-                                                             "i325"
-                                                             "i323"
-                                                             "i321"
-                                                             "i319"
-                                                             "i317"
-                                                             "i315"
-                                                             "i313"
-                                                             "i311"
-                                                             "i309"
-                                                             "i307"
-                                                             "i304"
-                                                             "i302"
-                                                             "i300"
-                                                             "i298"
-                                                             "i296"
-                                                             "i294"
-                                                             "i292"
-                                                             "i290"
-                                                             "i288"
-                                                             "i286"
-                                                             "i284"
-                                                             "i282"
-                                                             "i280"
-                                                             "i278"
-                                                             "i276"
-                                                             "i274"
-                                                             "i272"
-                                                             "i270"
-                                                             "i268"
-                                                             "i266"
-                                                             "i264"
-                                                             "i262"
+                                                             "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"
-                                                             "i259"
-                                                             "i256"
+                                                             "i257"
+                                                             "i255"
                                                              "i254"
                                                              "i253"
                                                              "i252"
                                                              "i251"
-                                                             "i250"
-                                                             "i248"
-                                                             "i246"
-                                                             "i244"
-                                                             "i241"
-                                                             "i239"
-                                                             "i237"
-                                                             "i235"
-                                                             "i233"
-                                                             "i231"
-                                                             "i229"
-                                                             "i227"
-                                                             "i225"
-                                                             "i223"
-                                                             "i221"
-                                                             "i219"
-                                                             "i217"
-                                                             "i215"
-                                                             "i213"
-                                                             "i211"
-                                                             "i209"
-                                                             "i207"))
+                                                             "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))
-                                                            ("i45"
-                                                             "i44"
-                                                             "i43")))
+                                                            ("i46"
+                                                             "i45"
+                                                             "i44")))
                                                          (hygiene guile))
                                                        #(syntax-object
                                                          #f
@@ -4334,7 +11625,7 @@
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1867"))
+                                                            #("i1868"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -4350,17 +11641,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1807"
-                                                              "i1808"
+                                                            #("i1808"
                                                               "i1809"
                                                               "i1810"
                                                               "i1811"
-                                                              "i1812"))
+                                                              "i1812"
+                                                              "i1813"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1799"))
+                                                            #("i1800"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -4379,13 +11670,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1771"
-                                                              "i1772"
+                                                            #("i1772"
                                                               "i1773"
                                                               "i1774"
                                                               "i1775"
                                                               "i1776"
-                                                              "i1777"))
+                                                              "i1777"
+                                                              "i1778"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -4659,150 +11950,150 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i466"
-                                                             "i464"
-                                                             "i462"
-                                                             "i460"
-                                                             "i458"
-                                                             "i456"
-                                                             "i454"
-                                                             "i452"
-                                                             "i450"
-                                                             "i448"
-                                                             "i446"
-                                                             "i444"
-                                                             "i442"
-                                                             "i440"
-                                                             "i438"
-                                                             "i436"
-                                                             "i434"
-                                                             "i432"
-                                                             "i430"
-                                                             "i428"
-                                                             "i426"
-                                                             "i424"
-                                                             "i422"
-                                                             "i420"
-                                                             "i418"
-                                                             "i416"
-                                                             "i414"
-                                                             "i412"
-                                                             "i410"
-                                                             "i408"
-                                                             "i406"
-                                                             "i404"
-                                                             "i402"
-                                                             "i400"
+                                                            ("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"
-                                                             "i397"
-                                                             "i395"
+                                                             "i396"
+                                                             "i393"
                                                              "i392"
                                                              "i391"
-                                                             "i390"
+                                                             "i389"
                                                              "i388"
-                                                             "i387"
-                                                             "i385"
-                                                             "i383"
-                                                             "i381"
-                                                             "i379"
-                                                             "i377"
-                                                             "i375"
-                                                             "i373"
-                                                             "i371"
-                                                             "i368"
+                                                             "i386"
+                                                             "i384"
+                                                             "i382"
+                                                             "i380"
+                                                             "i378"
+                                                             "i376"
+                                                             "i374"
+                                                             "i372"
+                                                             "i369"
+                                                             "i367"
                                                              "i366"
-                                                             "i365"
-                                                             "i363"
-                                                             "i361"
-                                                             "i359"
+                                                             "i364"
+                                                             "i362"
+                                                             "i360"
+                                                             "i358"
                                                              "i357"
                                                              "i356"
                                                              "i355"
-                                                             "i354"
+                                                             "i353"
                                                              "i352"
-                                                             "i351"
-                                                             "i348"
-                                                             "i346"
-                                                             "i344"
-                                                             "i342"
-                                                             "i340"
-                                                             "i338"
+                                                             "i349"
+                                                             "i347"
+                                                             "i345"
+                                                             "i343"
+                                                             "i341"
+                                                             "i339"
+                                                             "i337"
                                                              "i336"
                                                              "i335"
-                                                             "i334"
-                                                             "i332"
+                                                             "i333"
+                                                             "i331"
                                                              "i330"
-                                                             "i329"
+                                                             "i327"
                                                              "i326"
-                                                             "i325"
-                                                             "i323"
-                                                             "i321"
-                                                             "i319"
-                                                             "i317"
-                                                             "i315"
-                                                             "i313"
-                                                             "i311"
-                                                             "i309"
-                                                             "i307"
-                                                             "i304"
-                                                             "i302"
-                                                             "i300"
-                                                             "i298"
-                                                             "i296"
-                                                             "i294"
-                                                             "i292"
-                                                             "i290"
-                                                             "i288"
-                                                             "i286"
-                                                             "i284"
-                                                             "i282"
-                                                             "i280"
-                                                             "i278"
-                                                             "i276"
-                                                             "i274"
-                                                             "i272"
-                                                             "i270"
-                                                             "i268"
-                                                             "i266"
-                                                             "i264"
-                                                             "i262"
+                                                             "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"
-                                                             "i259"
-                                                             "i256"
+                                                             "i257"
+                                                             "i255"
                                                              "i254"
                                                              "i253"
                                                              "i252"
                                                              "i251"
-                                                             "i250"
-                                                             "i248"
-                                                             "i246"
-                                                             "i244"
-                                                             "i241"
-                                                             "i239"
-                                                             "i237"
-                                                             "i235"
-                                                             "i233"
-                                                             "i231"
-                                                             "i229"
-                                                             "i227"
-                                                             "i225"
-                                                             "i223"
-                                                             "i221"
-                                                             "i219"
-                                                             "i217"
-                                                             "i215"
-                                                             "i213"
-                                                             "i211"
-                                                             "i209"
-                                                             "i207"))
+                                                             "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))
-                                                            ("i45"
-                                                             "i44"
-                                                             "i43")))
+                                                            ("i46"
+                                                             "i45"
+                                                             "i44")))
                                                          (hygiene guile))
                                                        #(syntax-object
                                                          #f
@@ -4810,7 +12101,7 @@
                                                           #(ribcage
                                                             #(name)
                                                             #((top))
-                                                            #("i1867"))
+                                                            #("i1868"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage
@@ -4826,17 +12117,17 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1807"
-                                                              "i1808"
+                                                            #("i1808"
                                                               "i1809"
                                                               "i1810"
                                                               "i1811"
-                                                              "i1812"))
+                                                              "i1812"
+                                                              "i1813"))
                                                           #(ribcage () () ())
                                                           #(ribcage
                                                             #(first)
                                                             #((top))
-                                                            #("i1799"))
+                                                            #("i1800"))
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
                                                           #(ribcage () () ())
@@ -4855,13 +12146,13 @@
                                                               (top)
                                                               (top)
                                                               (top))
-                                                            #("i1771"
-                                                              "i1772"
+                                                            #("i1772"
                                                               "i1773"
                                                               "i1774"
                                                               "i1775"
                                                               "i1776"
-                                                              "i1777"))
+                                                              "i1777"
+                                                              "i1778"))
                                                           #(ribcage
                                                             (lambda-var-list
                                                               gen-var
@@ -5135,1523 +12426,3526 @@
                                                              (top)
                                                              (top)
                                                              (top))
-                                                            ("i466"
-                                                             "i464"
-                                                             "i462"
-                                                             "i460"
-                                                             "i458"
-                                                             "i456"
-                                                             "i454"
-                                                             "i452"
-                                                             "i450"
-                                                             "i448"
-                                                             "i446"
-                                                             "i444"
-                                                             "i442"
-                                                             "i440"
-                                                             "i438"
-                                                             "i436"
-                                                             "i434"
-                                                             "i432"
-                                                             "i430"
-                                                             "i428"
-                                                             "i426"
-                                                             "i424"
-                                                             "i422"
-                                                             "i420"
-                                                             "i418"
-                                                             "i416"
-                                                             "i414"
-                                                             "i412"
-                                                             "i410"
-                                                             "i408"
-                                                             "i406"
-                                                             "i404"
-                                                             "i402"
-                                                             "i400"
+                                                            ("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"
-                                                             "i397"
-                                                             "i395"
+                                                             "i396"
+                                                             "i393"
                                                              "i392"
                                                              "i391"
-                                                             "i390"
+                                                             "i389"
                                                              "i388"
-                                                             "i387"
-                                                             "i385"
-                                                             "i383"
-                                                             "i381"
-                                                             "i379"
-                                                             "i377"
-                                                             "i375"
-                                                             "i373"
-                                                             "i371"
-                                                             "i368"
+                                                             "i386"
+                                                             "i384"
+                                                             "i382"
+                                                             "i380"
+                                                             "i378"
+                                                             "i376"
+                                                             "i374"
+                                                             "i372"
+                                                             "i369"
+                                                             "i367"
                                                              "i366"
-                                                             "i365"
-                                                             "i363"
-                                                             "i361"
-                                                             "i359"
+                                                             "i364"
+                                                             "i362"
+                                                             "i360"
+                                                             "i358"
                                                              "i357"
                                                              "i356"
                                                              "i355"
-                                                             "i354"
+                                                             "i353"
                                                              "i352"
-                                                             "i351"
-                                                             "i348"
-                                                             "i346"
-                                                             "i344"
-                                                             "i342"
-                                                             "i340"
-                                                             "i338"
+                                                             "i349"
+                                                             "i347"
+                                                             "i345"
+                                                             "i343"
+                                                             "i341"
+                                                             "i339"
+                                                             "i337"
                                                              "i336"
                                                              "i335"
-                                                             "i334"
-                                                             "i332"
+                                                             "i333"
+                                                             "i331"
                                                              "i330"
-                                                             "i329"
+                                                             "i327"
                                                              "i326"
-                                                             "i325"
-                                                             "i323"
-                                                             "i321"
-                                                             "i319"
-                                                             "i317"
-                                                             "i315"
-                                                             "i313"
-                                                             "i311"
-                                                             "i309"
-                                                             "i307"
-                                                             "i304"
-                                                             "i302"
-                                                             "i300"
-                                                             "i298"
-                                                             "i296"
-                                                             "i294"
-                                                             "i292"
-                                                             "i290"
-                                                             "i288"
-                                                             "i286"
-                                                             "i284"
-                                                             "i282"
-                                                             "i280"
-                                                             "i278"
-                                                             "i276"
-                                                             "i274"
-                                                             "i272"
-                                                             "i270"
-                                                             "i268"
-                                                             "i266"
-                                                             "i264"
-                                                             "i262"
+                                                             "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"
-                                                             "i259"
-                                                             "i256"
+                                                             "i257"
+                                                             "i255"
                                                              "i254"
                                                              "i253"
                                                              "i252"
                                                              "i251"
-                                                             "i250"
-                                                             "i248"
-                                                             "i246"
-                                                             "i244"
-                                                             "i241"
-                                                             "i239"
-                                                             "i237"
-                                                             "i235"
-                                                             "i233"
-                                                             "i231"
-                                                             "i229"
-                                                             "i227"
-                                                             "i225"
-                                                             "i223"
-                                                             "i221"
-                                                             "i219"
-                                                             "i217"
-                                                             "i215"
-                                                             "i213"
-                                                             "i211"
-                                                             "i209"
-                                                             "i207"))
+                                                             "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))
-                                                            ("i45"
-                                                             "i44"
-                                                             "i43")))
+                                                            ("i46"
+                                                             "i45"
+                                                             "i44")))
                                                          (hygiene guile)))
                                                      '(())
-                                                     #{s 1767}#
-                                                     #{mod 1769}#))
-                                                 #{tmp 1864}#)
+                                                     #{s 20519}#
+                                                     #{mod 20521}#))
+                                                 #{tmp 21464}#)
                                                (syntax-violation
                                                  #f
                                                  "source expression failed to 
match any pattern"
-                                                 #{e 1764}#)))))))
-                                   (if (memv #{ftype 1801}# '(define-syntax))
-                                     (let ((#{tmp 1872}#
+                                                 #{e 20516}#)))))))
+                                   (if (eqv? #{ftype 21163}# 'define-syntax)
+                                     (let ((#{tmp 21514}#
                                              ($sc-dispatch
-                                               #{e 1764}#
+                                               #{e 20516}#
                                                '(_ any any))))
-                                       (if (if #{tmp 1872}#
+                                       (if (if #{tmp 21514}#
                                              (@apply
-                                               (lambda (#{name 1875}#
-                                                        #{val 1876}#)
-                                                 (#{id? 349}# #{name 1875}#))
-                                               #{tmp 1872}#)
+                                               (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 1879}# #{val 1880}#)
+                                           (lambda (#{name 21546}#
+                                                    #{val 21547}#)
                                              (values
                                                'define-syntax-form
-                                               #{name 1879}#
-                                               #{val 1880}#
-                                               #{w 1766}#
-                                               #{s 1767}#
-                                               #{mod 1769}#))
-                                           #{tmp 1872}#)
+                                               #{name 21546}#
+                                               #{val 21547}#
+                                               #{w 20518}#
+                                               #{s 20519}#
+                                               #{mod 20521}#))
+                                           #{tmp 21514}#)
                                          (syntax-violation
                                            #f
                                            "source expression failed to match 
any pattern"
-                                           #{e 1764}#)))
+                                           #{e 20516}#)))
                                      (values
                                        'call
                                        #f
-                                       #{e 1764}#
-                                       #{w 1766}#
-                                       #{s 1767}#
-                                       #{mod 1769}#))))))))))))))
-           (if (#{syntax-object? 312}# #{e 1764}#)
-             (#{syntax-type 435}#
-               (#{syntax-object-expression 314}# #{e 1764}#)
-               #{r 1765}#
-               (#{join-wraps 405}#
-                 #{w 1766}#
-                 (#{syntax-object-wrap 316}# #{e 1764}#))
-               (let ((#{t 1886}#
-                       (#{source-annotation 327}# #{e 1764}#)))
-                 (if #{t 1886}# #{t 1886}# #{s 1767}#))
-               #{rib 1768}#
-               (let ((#{t 1890}#
-                       (#{syntax-object-module 318}# #{e 1764}#)))
-                 (if #{t 1890}# #{t 1890}# #{mod 1769}#))
-               #{for-car? 1770}#)
-             (if (self-evaluating? #{e 1764}#)
+                                       #{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 1764}#
-                 #{w 1766}#
-                 #{s 1767}#
-                 #{mod 1769}#)
+                 #{e 20516}#
+                 #{w 20518}#
+                 #{s 20519}#
+                 #{mod 20521}#)
                (values
                  'other
                  #f
-                 #{e 1764}#
-                 #{w 1766}#
-                 #{s 1767}#
-                 #{mod 1769}#)))))))
-   (#{chi 437}#
-     (lambda (#{e 1895}# #{r 1896}# #{w 1897}# #{mod 1898}#)
+                 #{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 435}#
-             #{e 1895}#
-             #{r 1896}#
-             #{w 1897}#
-             (#{source-annotation 327}# #{e 1895}#)
+           (#{syntax-type 4344}#
+             #{e 21843}#
+             #{r 21844}#
+             #{w 21845}#
+             (#{source-annotation 4306}# #{e 21843}#)
              #f
-             #{mod 1898}#
+             #{mod 21846}#
              #f))
-         (lambda (#{type 1903}#
-                  #{value 1904}#
-                  #{e 1905}#
-                  #{w 1906}#
-                  #{s 1907}#
-                  #{mod 1908}#)
-           (#{chi-expr 439}#
-             #{type 1903}#
-             #{value 1904}#
-             #{e 1905}#
-             #{r 1896}#
-             #{w 1906}#
-             #{s 1907}#
-             #{mod 1908}#)))))
-   (#{chi-expr 439}#
-     (lambda (#{type 1915}#
-              #{value 1916}#
-              #{e 1917}#
-              #{r 1918}#
-              #{w 1919}#
-              #{s 1920}#
-              #{mod 1921}#)
-       (if (memv #{type 1915}# '(lexical))
-         (#{build-lexical-reference 277}#
-           'value
-           #{s 1920}#
-           #{e 1917}#
-           #{value 1916}#)
-         (if (memv #{type 1915}# '(core core-form))
-           (#{value 1916}#
-             #{e 1917}#
-             #{r 1918}#
-             #{w 1919}#
-             #{s 1920}#
-             #{mod 1921}#)
-           (if (memv #{type 1915}# '(module-ref))
+         (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 1916}# #{e 1917}# #{r 1918}# #{w 1919}#))
-               (lambda (#{e 1932}#
-                        #{r 1933}#
-