|
| 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}#
-