[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-156-g34c5f
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-156-g34c5fe8 |
Date: |
Mon, 10 Oct 2011 12:46:53 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=34c5fe83c021eb27c5bdff0f1328c733a7cb45b4
The branch, stable-2.0 has been updated
via 34c5fe83c021eb27c5bdff0f1328c733a7cb45b4 (commit)
via 4bf9e92875973b8997b2876218b6bd595fbf1952 (commit)
via f26c3a93ecc0fdf69139ce86a825f262535554c9 (commit)
via 751708726bff664e1119396241dab8b99c19bbe0 (commit)
via 580a59e75e4d865da2b9e2490e73e5bbd3de5878 (commit)
via 30669991740de16d8147496def08592fd40e2e2c (commit)
from 022dda690126d993d82644efeffada1a1ef41123 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 34c5fe83c021eb27c5bdff0f1328c733a7cb45b4
Author: Andy Wingo <address@hidden>
Date: Mon Oct 10 13:01:54 2011 +0200
regenerate psyntax-pp.scm
* module/ice-9/psyntax-pp.scm: Regenerate, now with inlined letrec
bindings. Whee!!
commit 4bf9e92875973b8997b2876218b6bd595fbf1952
Author: Andy Wingo <address@hidden>
Date: Mon Oct 10 14:42:40 2011 +0200
peval support for memq and memv
* module/language/tree-il/peval.scm (peval): Add special handlers for
memq and memv, as inline.scm used to have. This is important for
`case' clauses. It is very ugly, though.
* test-suite/tests/tree-il.test ("partial evaluation"): Add tests.
commit f26c3a93ecc0fdf69139ce86a825f262535554c9
Author: Andy Wingo <address@hidden>
Date: Mon Oct 10 13:23:26 2011 +0200
add accessor-primitive?, peval uses it
* module/language/tree-il/primitives.scm (*primitive-accessors*): New
set of primitives: those that access mutable memory, but are otherwise
pure. Include bytevector references here.
(accessor-primitive?): New public predicate.
* module/language/tree-il/peval.scm (peval): Refactor to distinguish
constructor-primitive? from accessor-primitive?.
commit 751708726bff664e1119396241dab8b99c19bbe0
Author: Andy Wingo <address@hidden>
Date: Mon Oct 10 12:58:28 2011 +0200
peval: visit operands on-demand, to inline mutually recursive bindings
This commit changes to use <operand> structures to hold the context
needed to visit lexical bindings lazily, in context, instead of eagerly
visiting them for value. This laziness enables inlining of mutually
recursive bindings.
* module/language/tree-il/peval.scm (<var>): Remove comment about copy
propagation having to run build-var-table; things don't work like that
any more.
(build-var-table): Build <var> entries for all variables, even
unreferenced variables.
(alpha-rename): Remove. We will rename bindings on-demand now.
(peval lookup-var): New helper, to fetch the <var> of a gensym.
(peval fresh-gensyms): Fold here, under peval, and in it, handle
updating the store to record a mapping between new names and <var>
entries from the source program.
(peval record-source-expression): Don't call build-var-table on the
new expression, as alpha-renaming happens on-demand now.
(peval prune-bindings): Rewrite to work with mutually-recursive
bindings, while optionally preserving binding order.
(peval extend-env): New helper.
(peval loop): OK, here goes... Remove the `operand' context, as now we
visit operands lazily. Add a `call' context, which does not
copy-propagate lambda expressions, used to residualize a call after
aborting an inlining attempt. Change the `env' to be a mapping of
gensym to <operand>. Instead of looking up the operand's binding then
alpha-renaming it, just rely on the fact that visiting the operand
will rename it if necessary.
If we residualize a lexical, do so with the fresh name from the
environment. If we visit an operand and it doesn't turn out to be
constant, we will never be able to copy it, and so cache that fact in
the operand. If we residualize a binding and we know what the value
should be, record that binding so that prune-bindings won't have to
visit it again. If the operand folds to a constant, cache that too,
to save effort when unrolling loops.
For let, letrec, fix, and lambda-case, instead of visiting the
bindings eagerly for value, simply record the source expressions and
environments in an <operand> and rely on copy-propagation to visit
them later in the right context. In the case of letrec and fix, this
allows mutually-recursive bindings to be inlined.
Refactor folding of "constructors" (which still need renaming) to
avoid visiting operands twice in some contexts.
For applications, if we have to abort, process the procedure in call
context, which allows some folding but avoids copying lambdas. If we
find a recursive procedure, mark intervening counters as recursive
too, to allow for mutual recursion at the top level.
For lambdas, if we are processing for value, record the source
expression so we can detect recursion. This was previously done in
the lexical-ref copy propagator.
* test-suite/tests/tree-il.test ("partial evaluation"): Remove unused
recursive lexicals in a couple of cases. Add a couple test cases for
pruning. Add a few recursive binding cases.
commit 580a59e75e4d865da2b9e2490e73e5bbd3de5878
Author: Andy Wingo <address@hidden>
Date: Thu Oct 6 10:56:12 2011 +0200
peval: add operand structure
* module/language/tree-il/peval.scm (<operand>): Add operand structure,
to be used by peval.
commit 30669991740de16d8147496def08592fd40e2e2c
Author: Andy Wingo <address@hidden>
Date: Mon Oct 10 12:03:17 2011 +0200
peval: refactor logging
* module/language/tree-il/peval.scm: Make it easier to turn on logging.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/psyntax-pp.scm |39481 ++++++++++++++++++++------------
module/language/tree-il/peval.scm | 830 +-
module/language/tree-il/primitives.scm | 45 +-
test-suite/tests/tree-il.test | 193 +-
4 files changed, 25122 insertions(+), 15427 deletions(-)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 30c7751..de83209 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,3863 +2,11154 @@
(if #f #f)
(letrec*
- ((#{make-void 208}#
- (lambda (#{src 779}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #{src 779}#)))
- (#{make-const 210}#
- (lambda (#{src 781}# #{exp 782}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #{src 781}#
- #{exp 782}#)))
- (#{make-lexical-ref 214}#
- (lambda (#{src 789}# #{name 790}# #{gensym 791}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #{src 789}#
- #{name 790}#
- #{gensym 791}#)))
- (#{make-lexical-set 216}#
- (lambda (#{src 795}#
- #{name 796}#
- #{gensym 797}#
- #{exp 798}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 4)
- #{src 795}#
- #{name 796}#
- #{gensym 797}#
- #{exp 798}#)))
- (#{make-module-ref 218}#
- (lambda (#{src 803}#
- #{mod 804}#
- #{name 805}#
- #{public? 806}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #{src 803}#
- #{mod 804}#
- #{name 805}#
- #{public? 806}#)))
- (#{make-module-set 220}#
- (lambda (#{src 811}#
- #{mod 812}#
- #{name 813}#
- #{public? 814}#
- #{exp 815}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 6)
- #{src 811}#
- #{mod 812}#
- #{name 813}#
- #{public? 814}#
- #{exp 815}#)))
- (#{make-toplevel-ref 222}#
- (lambda (#{src 821}# #{name 822}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #{src 821}#
- #{name 822}#)))
- (#{make-toplevel-set 224}#
- (lambda (#{src 825}# #{name 826}# #{exp 827}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 8)
- #{src 825}#
- #{name 826}#
- #{exp 827}#)))
- (#{make-toplevel-define 226}#
- (lambda (#{src 831}# #{name 832}# #{exp 833}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 9)
- #{src 831}#
- #{name 832}#
- #{exp 833}#)))
- (#{make-conditional 228}#
- (lambda (#{src 837}#
- #{test 838}#
- #{consequent 839}#
- #{alternate 840}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 10)
- #{src 837}#
- #{test 838}#
- #{consequent 839}#
- #{alternate 840}#)))
- (#{make-application 230}#
- (lambda (#{src 845}# #{proc 846}# #{args 847}#)
+ ((#{top-level-eval-hook 4273}#
+ (lambda (#{x 28142}# #{mod 28143}#)
+ (primitive-eval #{x 28142}#)))
+ (#{maybe-name-value! 4278}#
+ (lambda (#{name 16638}# #{val 16639}#)
+ (if (if (struct? #{val 16639}#)
+ (eq? (struct-vtable #{val 16639}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 16646}# (struct-ref #{val 16639}# 1)))
+ (if (not (assq 'name #{meta 16646}#))
+ (let ((#{v 16651}#
+ (cons (cons 'name #{name 16638}#) #{meta 16646}#)))
+ (struct-set! #{val 16639}# 1 #{v 16651}#)))))))
+ (#{build-application 4280}#
+ (lambda (#{source 16363}#
+ #{fun-exp 16364}#
+ #{arg-exps 16365}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 845}#
- #{proc 846}#
- #{args 847}#)))
- (#{make-sequence 232}#
- (lambda (#{src 851}# #{exps 852}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 12)
- #{src 851}#
- #{exps 852}#)))
- (#{make-lambda 234}#
- (lambda (#{src 855}# #{meta 856}# #{body 857}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{src 855}#
- #{meta 856}#
- #{body 857}#)))
- (#{make-lambda-case 236}#
- (lambda (#{src 861}#
- #{req 862}#
- #{opt 863}#
- #{rest 864}#
- #{kw 865}#
- #{inits 866}#
- #{gensyms 867}#
- #{body 868}#
- #{alternate 869}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #{src 861}#
- #{req 862}#
- #{opt 863}#
- #{rest 864}#
- #{kw 865}#
- #{inits 866}#
- #{gensyms 867}#
- #{body 868}#
- #{alternate 869}#)))
- (#{make-let 238}#
- (lambda (#{src 879}#
- #{names 880}#
- #{gensyms 881}#
- #{vals 882}#
- #{body 883}#)
+ #{source 16363}#
+ #{fun-exp 16364}#
+ #{arg-exps 16365}#)))
+ (#{build-conditional 4281}#
+ (lambda (#{source 16371}#
+ #{test-exp 16372}#
+ #{then-exp 16373}#
+ #{else-exp 16374}#)
(make-struct/no-tail
- (vector-ref %expanded-vtables 15)
- #{src 879}#
- #{names 880}#
- #{gensyms 881}#
- #{vals 882}#
- #{body 883}#)))
- (#{make-letrec 240}#
- (lambda (#{src 889}#
- #{in-order? 890}#
- #{names 891}#
- #{gensyms 892}#
- #{vals 893}#
- #{body 894}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 16)
- #{src 889}#
- #{in-order? 890}#
- #{names 891}#
- #{gensyms 892}#
- #{vals 893}#
- #{body 894}#)))
- (#{make-dynlet 242}#
- (lambda (#{src 901}#
- #{fluids 902}#
- #{vals 903}#
- #{body 904}#)
+ (vector-ref %expanded-vtables 10)
+ #{source 16371}#
+ #{test-exp 16372}#
+ #{then-exp 16373}#
+ #{else-exp 16374}#)))
+ (#{build-dynlet 4282}#
+ (lambda (#{source 16381}#
+ #{fluids 16382}#
+ #{vals 16383}#
+ #{body 16384}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 901}#
- #{fluids 902}#
- #{vals 903}#
- #{body 904}#)))
- (#{lambda? 245}#
- (lambda (#{x 909}#)
- (if (struct? #{x 909}#)
- (eq? (struct-vtable #{x 909}#)
- (vector-ref %expanded-vtables 13))
- #f)))
- (#{lambda-meta 247}#
- (lambda (#{x 913}#) (struct-ref #{x 913}# 1)))
- (#{set-lambda-meta! 249}#
- (lambda (#{x 915}# #{v 916}#)
- (struct-set! #{x 915}# 1 #{v 916}#)))
- (#{top-level-eval-hook 255}#
- (lambda (#{x 919}# #{mod 920}#)
- (primitive-eval #{x 919}#)))
- (#{local-eval-hook 257}#
- (lambda (#{x 923}# #{mod 924}#)
- (primitive-eval #{x 923}#)))
- (#{put-global-definition-hook 261}#
- (lambda (#{symbol 927}# #{type 928}# #{val 929}#)
- (module-define!
- (current-module)
- #{symbol 927}#
- (make-syntax-transformer
- #{symbol 927}#
- #{type 928}#
- #{val 929}#))))
- (#{get-global-definition-hook 263}#
- (lambda (#{symbol 933}# #{module 934}#)
+ #{source 16381}#
+ #{fluids 16382}#
+ #{vals 16383}#
+ #{body 16384}#)))
+ (#{build-lexical-reference 4283}#
+ (lambda (#{type 28144}#
+ #{source 28145}#
+ #{name 28146}#
+ #{var 28147}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{source 28145}#
+ #{name 28146}#
+ #{var 28147}#)))
+ (#{build-lexical-assignment 4284}#
+ (lambda (#{source 16391}#
+ #{name 16392}#
+ #{var 16393}#
+ #{exp 16394}#)
(begin
- (if (if (not #{module 934}#) (current-module) #f)
- (warn "module system is booted, we should have a module"
- #{symbol 933}#))
- (let ((#{v 940}# (module-variable
- (if #{module 934}#
- (resolve-module (cdr #{module 934}#))
- (current-module))
- #{symbol 933}#)))
- (if #{v 940}#
- (if (variable-bound? #{v 940}#)
- (let ((#{val 945}# (variable-ref #{v 940}#)))
- (if (macro? #{val 945}#)
- (if (macro-type #{val 945}#)
- (cons (macro-type #{val 945}#)
- (macro-binding #{val 945}#))
- #f)
- #f))
+ (if (if (struct? #{exp 16394}#)
+ (eq? (struct-vtable #{exp 16394}#)
+ (vector-ref %expanded-vtables 13))
#f)
- #f)))))
- (#{decorate-source 265}#
- (lambda (#{e 949}# #{s 950}#)
- (begin
- (if (if (pair? #{e 949}#) #{s 950}# #f)
- (set-source-properties! #{e 949}# #{s 950}#))
- #{e 949}#)))
- (#{maybe-name-value! 267}#
- (lambda (#{name 955}# #{val 956}#)
- (if (#{lambda? 245}# #{val 956}#)
- (let ((#{meta 960}# (#{lambda-meta 247}# #{val 956}#)))
- (if (not (assq 'name #{meta 960}#))
- (#{set-lambda-meta! 249}#
- #{val 956}#
- (cons (cons 'name #{name 955}#) #{meta 960}#)))))))
- (#{build-void 269}#
- (lambda (#{source 961}#)
- (#{make-void 208}# #{source 961}#)))
- (#{build-application 271}#
- (lambda (#{source 963}# #{fun-exp 964}# #{arg-exps 965}#)
- (#{make-application 230}#
- #{source 963}#
- #{fun-exp 964}#
- #{arg-exps 965}#)))
- (#{build-conditional 273}#
- (lambda (#{source 969}#
- #{test-exp 970}#
- #{then-exp 971}#
- #{else-exp 972}#)
- (#{make-conditional 228}#
- #{source 969}#
- #{test-exp 970}#
- #{then-exp 971}#
- #{else-exp 972}#)))
- (#{build-lexical-reference 277}#
- (lambda (#{type 985}#
- #{source 986}#
- #{name 987}#
- #{var 988}#)
- (#{make-lexical-ref 214}#
- #{source 986}#
- #{name 987}#
- #{var 988}#)))
- (#{analyze-variable 281}#
- (lambda (#{mod 1001}#
- #{var 1002}#
- #{modref-cont 1003}#
- #{bare-cont 1004}#)
- (if (not #{mod 1001}#)
- (#{bare-cont 1004}# #{var 1002}#)
- (let ((#{kind 1011}# (car #{mod 1001}#))
- (#{mod 1012}# (cdr #{mod 1001}#)))
- (if (memv #{kind 1011}# '(public))
- (#{modref-cont 1003}#
- #{mod 1012}#
- #{var 1002}#
+ (let ((#{meta 16410}# (struct-ref #{exp 16394}# 1)))
+ (if (not (assq 'name #{meta 16410}#))
+ (let ((#{v 16417}#
+ (cons (cons 'name #{name 16392}#) #{meta 16410}#)))
+ (struct-set! #{exp 16394}# 1 #{v 16417}#)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 4)
+ #{source 16391}#
+ #{name 16392}#
+ #{var 16393}#
+ #{exp 16394}#))))
+ (#{analyze-variable 4285}#
+ (lambda (#{mod 28153}#
+ #{var 28154}#
+ #{modref-cont 28155}#
+ #{bare-cont 28156}#)
+ (if (not #{mod 28153}#)
+ (#{bare-cont 28156}# #{var 28154}#)
+ (let ((#{kind 28157}# (car #{mod 28153}#))
+ (#{mod 28158}# (cdr #{mod 28153}#)))
+ (if (eqv? #{kind 28157}# 'public)
+ (#{modref-cont 28155}#
+ #{mod 28158}#
+ #{var 28154}#
#t)
- (if (memv #{kind 1011}# '(private))
+ (if (eqv? #{kind 28157}# 'private)
(if (not (equal?
- #{mod 1012}#
+ #{mod 28158}#
(module-name (current-module))))
- (#{modref-cont 1003}#
- #{mod 1012}#
- #{var 1002}#
+ (#{modref-cont 28155}#
+ #{mod 28158}#
+ #{var 28154}#
#f)
- (#{bare-cont 1004}# #{var 1002}#))
- (if (memv #{kind 1011}# '(bare))
- (#{bare-cont 1004}# #{var 1002}#)
- (if (memv #{kind 1011}# '(hygiene))
+ (#{bare-cont 28156}# #{var 28154}#))
+ (if (eqv? #{kind 28157}# 'bare)
+ (#{bare-cont 28156}# #{var 28154}#)
+ (if (eqv? #{kind 28157}# 'hygiene)
(if (if (not (equal?
- #{mod 1012}#
+ #{mod 28158}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 1012}#)
- #{var 1002}#)
+ (resolve-module #{mod 28158}#)
+ #{var 28154}#)
#f)
- (#{modref-cont 1003}#
- #{mod 1012}#
- #{var 1002}#
+ (#{modref-cont 28155}#
+ #{mod 28158}#
+ #{var 28154}#
#f)
- (#{bare-cont 1004}# #{var 1002}#))
+ (#{bare-cont 28156}# #{var 28154}#))
(syntax-violation
#f
"bad module kind"
- #{var 1002}#
- #{mod 1012}#)))))))))
- (#{build-global-reference 283}#
- (lambda (#{source 1020}# #{var 1021}# #{mod 1022}#)
- (#{analyze-variable 281}#
- #{mod 1022}#
- #{var 1021}#
- (lambda (#{mod 1026}# #{var 1027}# #{public? 1028}#)
- (#{make-module-ref 218}#
- #{source 1020}#
- #{mod 1026}#
- #{var 1027}#
- #{public? 1028}#))
- (lambda (#{var 1032}#)
- (#{make-toplevel-ref 222}#
- #{source 1020}#
- #{var 1032}#)))))
- (#{build-global-assignment 285}#
- (lambda (#{source 1034}#
- #{var 1035}#
- #{exp 1036}#
- #{mod 1037}#)
+ #{var 28154}#
+ #{mod 28158}#)))))))))
+ (#{build-global-reference 4286}#
+ (lambda (#{source 28173}# #{var 28174}# #{mod 28175}#)
+ (#{analyze-variable 4285}#
+ #{mod 28175}#
+ #{var 28174}#
+ (lambda (#{mod 28178}# #{var 28179}# #{public? 28180}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #{source 28173}#
+ #{mod 28178}#
+ #{var 28179}#
+ #{public? 28180}#))
+ (lambda (#{var 28188}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #{source 28173}#
+ #{var 28188}#)))))
+ (#{build-global-assignment 4287}#
+ (lambda (#{source 16426}#
+ #{var 16427}#
+ #{exp 16428}#
+ #{mod 16429}#)
(begin
- (#{maybe-name-value! 267}#
- #{var 1035}#
- #{exp 1036}#)
- (#{analyze-variable 281}#
- #{mod 1037}#
- #{var 1035}#
- (lambda (#{mod 1042}# #{var 1043}# #{public? 1044}#)
- (#{make-module-set 220}#
- #{source 1034}#
- #{mod 1042}#
- #{var 1043}#
- #{public? 1044}#
- #{exp 1036}#))
- (lambda (#{var 1048}#)
- (#{make-toplevel-set 224}#
- #{source 1034}#
- #{var 1048}#
- #{exp 1036}#))))))
- (#{build-global-definition 287}#
- (lambda (#{source 1050}# #{var 1051}# #{exp 1052}#)
+ (if (if (struct? #{exp 16428}#)
+ (eq? (struct-vtable #{exp 16428}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 16445}# (struct-ref #{exp 16428}# 1)))
+ (if (not (assq 'name #{meta 16445}#))
+ (let ((#{v 16452}#
+ (cons (cons 'name #{var 16427}#) #{meta 16445}#)))
+ (struct-set! #{exp 16428}# 1 #{v 16452}#)))))
+ (#{analyze-variable 4285}#
+ #{mod 16429}#
+ #{var 16427}#
+ (lambda (#{mod 16457}# #{var 16458}# #{public? 16459}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 6)
+ #{source 16426}#
+ #{mod 16457}#
+ #{var 16458}#
+ #{public? 16459}#
+ #{exp 16428}#))
+ (lambda (#{var 16467}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 8)
+ #{source 16426}#
+ #{var 16467}#
+ #{exp 16428}#))))))
+ (#{build-global-definition 4288}#
+ (lambda (#{source 28194}# #{var 28195}# #{exp 28196}#)
(begin
- (#{maybe-name-value! 267}#
- #{var 1051}#
- #{exp 1052}#)
- (#{make-toplevel-define 226}#
- #{source 1050}#
- #{var 1051}#
- #{exp 1052}#))))
- (#{build-simple-lambda 289}#
- (lambda (#{src 1056}#
- #{req 1057}#
- #{rest 1058}#
- #{vars 1059}#
- #{meta 1060}#
- #{exp 1061}#)
- (#{make-lambda 234}#
- #{src 1056}#
- #{meta 1060}#
- (#{make-lambda-case 236}#
- #{src 1056}#
- #{req 1057}#
- #f
- #{rest 1058}#
- #f
- '()
- #{vars 1059}#
- #{exp 1061}#
- #f))))
- (#{build-lambda-case 293}#
- (lambda (#{src 1074}#
- #{req 1075}#
- #{opt 1076}#
- #{rest 1077}#
- #{kw 1078}#
- #{inits 1079}#
- #{vars 1080}#
- #{body 1081}#
- #{else-case 1082}#)
- (#{make-lambda-case 236}#
- #{src 1074}#
- #{req 1075}#
- #{opt 1076}#
- #{rest 1077}#
- #{kw 1078}#
- #{inits 1079}#
- #{vars 1080}#
- #{body 1081}#
- #{else-case 1082}#)))
- (#{build-primref 295}#
- (lambda (#{src 1092}# #{name 1093}#)
- (if (equal? (module-name (current-module)) '(guile))
- (#{make-toplevel-ref 222}#
- #{src 1092}#
- #{name 1093}#)
- (#{make-module-ref 218}#
- #{src 1092}#
- '(guile)
- #{name 1093}#
- #f))))
- (#{build-data 297}#
- (lambda (#{src 1096}# #{exp 1097}#)
- (#{make-const 210}# #{src 1096}# #{exp 1097}#)))
- (#{build-sequence 299}#
- (lambda (#{src 1100}# #{exps 1101}#)
- (if (null? (cdr #{exps 1101}#))
- (car #{exps 1101}#)
- (#{make-sequence 232}#
- #{src 1100}#
- #{exps 1101}#))))
- (#{build-letrec 305}#
- (lambda (#{src 1134}#
- #{in-order? 1135}#
- #{ids 1136}#
- #{vars 1137}#
- #{val-exps 1138}#
- #{body-exp 1139}#)
- (if (null? #{vars 1137}#)
- #{body-exp 1139}#
+ (if (if (struct? #{exp 28196}#)
+ (eq? (struct-vtable #{exp 28196}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 28212}# (struct-ref #{exp 28196}# 1)))
+ (if (not (assq 'name #{meta 28212}#))
+ (let ((#{v 28219}#
+ (cons (cons 'name #{var 28195}#) #{meta 28212}#)))
+ (struct-set! #{exp 28196}# 1 #{v 28219}#)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
+ #{source 28194}#
+ #{var 28195}#
+ #{exp 28196}#))))
+ (#{build-simple-lambda 4289}#
+ (lambda (#{src 16473}#
+ #{req 16474}#
+ #{rest 16475}#
+ #{vars 16476}#
+ #{meta 16477}#
+ #{exp 16478}#)
+ (let ((#{body 16484}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{src 16473}#
+ #{req 16474}#
+ #f
+ #{rest 16475}#
+ #f
+ '()
+ #{vars 16476}#
+ #{exp 16478}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{src 16473}#
+ #{meta 16477}#
+ #{body 16484}#))))
+ (#{build-sequence 4294}#
+ (lambda (#{src 28227}# #{exps 28228}#)
+ (if (null? (cdr #{exps 28228}#))
+ (car #{exps 28228}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 12)
+ #{src 28227}#
+ #{exps 28228}#))))
+ (#{build-let 4295}#
+ (lambda (#{src 16496}#
+ #{ids 16497}#
+ #{vars 16498}#
+ #{val-exps 16499}#
+ #{body-exp 16500}#)
+ (begin
+ (for-each
+ #{maybe-name-value! 4278}#
+ #{ids 16497}#
+ #{val-exps 16499}#)
+ (if (null? #{vars 16498}#)
+ #{body-exp 16500}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 15)
+ #{src 16496}#
+ #{ids 16497}#
+ #{vars 16498}#
+ #{val-exps 16499}#
+ #{body-exp 16500}#)))))
+ (#{build-named-let 4296}#
+ (lambda (#{src 16524}#
+ #{ids 16525}#
+ #{vars 16526}#
+ #{val-exps 16527}#
+ #{body-exp 16528}#)
+ (let ((#{f 16529}# (car #{vars 16526}#))
+ (#{f-name 16530}# (car #{ids 16525}#))
+ (#{vars 16531}# (cdr #{vars 16526}#))
+ (#{ids 16532}# (cdr #{ids 16525}#)))
+ (let ((#{proc 16533}#
+ (let ((#{body 16553}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{src 16524}#
+ #{ids 16532}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 16531}#
+ #{body-exp 16528}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{src 16524}#
+ '()
+ #{body 16553}#))))
+ (begin
+ (if (if (struct? #{proc 16533}#)
+ (eq? (struct-vtable #{proc 16533}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 16577}# (struct-ref #{proc 16533}# 1)))
+ (if (not (assq 'name #{meta 16577}#))
+ (let ((#{v 16584}#
+ (cons (cons 'name #{f-name 16530}#)
+ #{meta 16577}#)))
+ (struct-set! #{proc 16533}# 1 #{v 16584}#)))))
+ (for-each
+ #{maybe-name-value! 4278}#
+ #{ids 16532}#
+ #{val-exps 16527}#)
+ (let ((#{names 16608}# (list #{f-name 16530}#))
+ (#{gensyms 16609}# (list #{f 16529}#))
+ (#{vals 16610}# (list #{proc 16533}#))
+ (#{body 16611}#
+ (let ((#{fun-exp 16615}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{src 16524}#
+ #{f-name 16530}#
+ #{f 16529}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #{src 16524}#
+ #{fun-exp 16615}#
+ #{val-exps 16527}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ #{src 16524}#
+ #f
+ #{names 16608}#
+ #{gensyms 16609}#
+ #{vals 16610}#
+ #{body 16611}#)))))))
+ (#{build-letrec 4297}#
+ (lambda (#{src 16631}#
+ #{in-order? 16632}#
+ #{ids 16633}#
+ #{vars 16634}#
+ #{val-exps 16635}#
+ #{body-exp 16636}#)
+ (if (null? #{vars 16634}#)
+ #{body-exp 16636}#
(begin
(for-each
- #{maybe-name-value! 267}#
- #{ids 1136}#
- #{val-exps 1138}#)
- (#{make-letrec 240}#
- #{src 1134}#
- #{in-order? 1135}#
- #{ids 1136}#
- #{vars 1137}#
- #{val-exps 1138}#
- #{body-exp 1139}#)))))
- (#{make-syntax-object 310}#
- (lambda (#{expression 1146}#
- #{wrap 1147}#
- #{module 1148}#)
- (vector
- 'syntax-object
- #{expression 1146}#
- #{wrap 1147}#
- #{module 1148}#)))
- (#{syntax-object? 312}#
- (lambda (#{x 1152}#)
- (if (vector? #{x 1152}#)
- (if (= (vector-length #{x 1152}#) 4)
- (eq? (vector-ref #{x 1152}# 0) 'syntax-object)
- #f)
- #f)))
- (#{syntax-object-expression 314}#
- (lambda (#{x 1157}#) (vector-ref #{x 1157}# 1)))
- (#{syntax-object-wrap 316}#
- (lambda (#{x 1159}#) (vector-ref #{x 1159}# 2)))
- (#{syntax-object-module 318}#
- (lambda (#{x 1161}#) (vector-ref #{x 1161}# 3)))
- (#{source-annotation 327}#
- (lambda (#{x 1175}#)
- (if (#{syntax-object? 312}# #{x 1175}#)
- (#{source-annotation 327}#
- (#{syntax-object-expression 314}# #{x 1175}#))
- (if (pair? #{x 1175}#)
- (let ((#{props 1182}# (source-properties #{x 1175}#)))
- (if (pair? #{props 1182}#) #{props 1182}# #f))
+ #{maybe-name-value! 4278}#
+ #{ids 16633}#
+ #{val-exps 16635}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ #{src 16631}#
+ #{in-order? 16632}#
+ #{ids 16633}#
+ #{vars 16634}#
+ #{val-exps 16635}#
+ #{body-exp 16636}#)))))
+ (#{source-annotation 4306}#
+ (lambda (#{x 16662}#)
+ (if (if (vector? #{x 16662}#)
+ (if (= (vector-length #{x 16662}#) 4)
+ (eq? (vector-ref #{x 16662}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{source-annotation 4306}#
+ (vector-ref #{x 16662}# 1))
+ (if (pair? #{x 16662}#)
+ (let ((#{props 16677}# (source-properties #{x 16662}#)))
+ (if (pair? #{props 16677}#) #{props 16677}# #f))
#f))))
- (#{extend-env 337}#
- (lambda (#{labels 1184}# #{bindings 1185}# #{r 1186}#)
- (if (null? #{labels 1184}#)
- #{r 1186}#
- (#{extend-env 337}#
- (cdr #{labels 1184}#)
- (cdr #{bindings 1185}#)
- (cons (cons (car #{labels 1184}#)
- (car #{bindings 1185}#))
- #{r 1186}#)))))
- (#{extend-var-env 339}#
- (lambda (#{labels 1190}# #{vars 1191}# #{r 1192}#)
- (if (null? #{labels 1190}#)
- #{r 1192}#
- (#{extend-var-env 339}#
- (cdr #{labels 1190}#)
- (cdr #{vars 1191}#)
- (cons (cons (car #{labels 1190}#)
- (cons 'lexical (car #{vars 1191}#)))
- #{r 1192}#)))))
- (#{macros-only-env 341}#
- (lambda (#{r 1197}#)
- (if (null? #{r 1197}#)
+ (#{extend-env 4307}#
+ (lambda (#{labels 16679}# #{bindings 16680}# #{r 16681}#)
+ (if (null? #{labels 16679}#)
+ #{r 16681}#
+ (#{extend-env 4307}#
+ (cdr #{labels 16679}#)
+ (cdr #{bindings 16680}#)
+ (cons (cons (car #{labels 16679}#)
+ (car #{bindings 16680}#))
+ #{r 16681}#)))))
+ (#{extend-var-env 4308}#
+ (lambda (#{labels 16682}# #{vars 16683}# #{r 16684}#)
+ (if (null? #{labels 16682}#)
+ #{r 16684}#
+ (#{extend-var-env 4308}#
+ (cdr #{labels 16682}#)
+ (cdr #{vars 16683}#)
+ (cons (cons (car #{labels 16682}#)
+ (cons 'lexical (car #{vars 16683}#)))
+ #{r 16684}#)))))
+ (#{macros-only-env 4309}#
+ (lambda (#{r 16685}#)
+ (if (null? #{r 16685}#)
'()
- (let ((#{a 1200}# (car #{r 1197}#)))
- (if (eq? (car (cdr #{a 1200}#)) 'macro)
- (cons #{a 1200}#
- (#{macros-only-env 341}# (cdr #{r 1197}#)))
- (#{macros-only-env 341}# (cdr #{r 1197}#)))))))
- (#{lookup 343}#
- (lambda (#{x 1201}# #{r 1202}# #{mod 1203}#)
- (let ((#{t 1209}# (assq #{x 1201}# #{r 1202}#)))
- (if #{t 1209}#
- (cdr #{t 1209}#)
- (if (symbol? #{x 1201}#)
- (let ((#{t 1215}#
- (#{get-global-definition-hook 263}#
- #{x 1201}#
- #{mod 1203}#)))
- (if #{t 1215}# #{t 1215}# '(global)))
- '(displaced-lexical))))))
- (#{global-extend 345}#
- (lambda (#{type 1220}# #{sym 1221}# #{val 1222}#)
- (#{put-global-definition-hook 261}#
- #{sym 1221}#
- #{type 1220}#
- #{val 1222}#)))
- (#{nonsymbol-id? 347}#
- (lambda (#{x 1226}#)
- (if (#{syntax-object? 312}# #{x 1226}#)
- (symbol?
- (#{syntax-object-expression 314}# #{x 1226}#))
- #f)))
- (#{id? 349}#
- (lambda (#{x 1230}#)
- (if (symbol? #{x 1230}#)
+ (let ((#{a 16686}# (car #{r 16685}#)))
+ (if (eq? (car (cdr #{a 16686}#)) 'macro)
+ (cons #{a 16686}#
+ (#{macros-only-env 4309}# (cdr #{r 16685}#)))
+ (#{macros-only-env 4309}# (cdr #{r 16685}#)))))))
+ (#{global-extend 4311}#
+ (lambda (#{type 16688}# #{sym 16689}# #{val 16690}#)
+ (module-define!
+ (current-module)
+ #{sym 16689}#
+ (make-syntax-transformer
+ #{sym 16689}#
+ #{type 16688}#
+ #{val 16690}#))))
+ (#{id? 4313}#
+ (lambda (#{x 10546}#)
+ (if (symbol? #{x 10546}#)
#t
- (if (#{syntax-object? 312}# #{x 1230}#)
- (symbol?
- (#{syntax-object-expression 314}# #{x 1230}#))
+ (if (if (vector? #{x 10546}#)
+ (if (= (vector-length #{x 10546}#) 4)
+ (eq? (vector-ref #{x 10546}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 10546}# 1))
#f))))
- (#{id-sym-name&marks 353}#
- (lambda (#{x 1237}# #{w 1238}#)
- (if (#{syntax-object? 312}# #{x 1237}#)
- (values
- (#{syntax-object-expression 314}# #{x 1237}#)
- (#{join-marks 407}#
- (car #{w 1238}#)
- (car (#{syntax-object-wrap 316}# #{x 1237}#))))
- (values #{x 1237}# (car #{w 1238}#)))))
- (#{gen-label 367}#
- (lambda () (symbol->string (gensym "i"))))
- (#{gen-labels 369}#
- (lambda (#{ls 1244}#)
- (if (null? #{ls 1244}#)
+ (#{gen-labels 4316}#
+ (lambda (#{ls 16700}#)
+ (if (null? #{ls 16700}#)
'()
- (cons (#{gen-label 367}#)
- (#{gen-labels 369}# (cdr #{ls 1244}#))))))
- (#{make-ribcage 372}#
- (lambda (#{symnames 1246}#
- #{marks 1247}#
- #{labels 1248}#)
- (vector
- 'ribcage
- #{symnames 1246}#
- #{marks 1247}#
- #{labels 1248}#)))
- (#{ribcage-symnames 376}#
- (lambda (#{x 1257}#) (vector-ref #{x 1257}# 1)))
- (#{ribcage-marks 378}#
- (lambda (#{x 1259}#) (vector-ref #{x 1259}# 2)))
- (#{ribcage-labels 380}#
- (lambda (#{x 1261}#) (vector-ref #{x 1261}# 3)))
- (#{set-ribcage-symnames! 382}#
- (lambda (#{x 1263}# #{update 1264}#)
- (vector-set! #{x 1263}# 1 #{update 1264}#)))
- (#{set-ribcage-marks! 384}#
- (lambda (#{x 1267}# #{update 1268}#)
- (vector-set! #{x 1267}# 2 #{update 1268}#)))
- (#{set-ribcage-labels! 386}#
- (lambda (#{x 1271}# #{update 1272}#)
- (vector-set! #{x 1271}# 3 #{update 1272}#)))
- (#{anti-mark 393}#
- (lambda (#{w 1275}#)
- (cons (cons #f (car #{w 1275}#))
- (cons 'shift (cdr #{w 1275}#)))))
- (#{extend-ribcage! 399}#
- (lambda (#{ribcage 1281}# #{id 1282}# #{label 1283}#)
- (begin
- (#{set-ribcage-symnames! 382}#
- #{ribcage 1281}#
- (cons (#{syntax-object-expression 314}# #{id 1282}#)
- (#{ribcage-symnames 376}# #{ribcage 1281}#)))
- (#{set-ribcage-marks! 384}#
- #{ribcage 1281}#
- (cons (car (#{syntax-object-wrap 316}# #{id 1282}#))
- (#{ribcage-marks 378}# #{ribcage 1281}#)))
- (#{set-ribcage-labels! 386}#
- #{ribcage 1281}#
- (cons #{label 1283}#
- (#{ribcage-labels 380}# #{ribcage 1281}#))))))
- (#{make-binding-wrap 401}#
- (lambda (#{ids 1288}# #{labels 1289}# #{w 1290}#)
- (if (null? #{ids 1288}#)
- #{w 1290}#
- (cons (car #{w 1290}#)
- (cons (let ((#{labelvec 1297}#
- (list->vector #{labels 1289}#)))
- (let ((#{n 1299}# (vector-length #{labelvec 1297}#)))
- (let ((#{symnamevec 1302}# (make-vector #{n 1299}#))
- (#{marksvec 1303}# (make-vector #{n 1299}#)))
+ (cons (symbol->string (gensym "i"))
+ (#{gen-labels 4316}# (cdr #{ls 16700}#))))))
+ (#{make-binding-wrap 4327}#
+ (lambda (#{ids 16704}# #{labels 16705}# #{w 16706}#)
+ (if (null? #{ids 16704}#)
+ #{w 16706}#
+ (cons (car #{w 16706}#)
+ (cons (let ((#{labelvec 16707}#
+ (list->vector #{labels 16705}#)))
+ (let ((#{n 16708}# (vector-length #{labelvec 16707}#)))
+ (let ((#{symnamevec 16709}# (make-vector #{n 16708}#))
+ (#{marksvec 16710}# (make-vector #{n 16708}#)))
(begin
(letrec*
- ((#{f 1307}#
- (lambda (#{ids 1308}# #{i 1309}#)
- (if (not (null? #{ids 1308}#))
+ ((#{f 16711}#
+ (lambda (#{ids 16714}# #{i 16715}#)
+ (if (not (null? #{ids 16714}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks 353}#
- (car #{ids 1308}#)
- #{w 1290}#))
- (lambda (#{symname 1310}#
- #{marks 1311}#)
+ (let ((#{x 16718}#
+ (car #{ids 16714}#)))
+ (if (if (vector? #{x 16718}#)
+ (if (= (vector-length
+ #{x 16718}#)
+ 4)
+ (eq? (vector-ref
+ #{x 16718}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (values
+ (vector-ref #{x 16718}# 1)
+ (let ((#{m1 16734}#
+ (car #{w 16706}#))
+ (#{m2 16735}#
+ (car (vector-ref
+ #{x 16718}#
+ 2))))
+ (if (null? #{m2 16735}#)
+ #{m1 16734}#
+ (append
+ #{m1 16734}#
+ #{m2 16735}#))))
+ (values
+ #{x 16718}#
+ (car #{w 16706}#)))))
+ (lambda (#{symname 16755}#
+ #{marks 16756}#)
(begin
(vector-set!
- #{symnamevec 1302}#
- #{i 1309}#
- #{symname 1310}#)
+ #{symnamevec 16709}#
+ #{i 16715}#
+ #{symname 16755}#)
(vector-set!
- #{marksvec 1303}#
- #{i 1309}#
- #{marks 1311}#)
- (#{f 1307}#
- (cdr #{ids 1308}#)
- (#{1+}# #{i 1309}#)))))))))
- (#{f 1307}# #{ids 1288}# 0))
- (#{make-ribcage 372}#
- #{symnamevec 1302}#
- #{marksvec 1303}#
- #{labelvec 1297}#)))))
- (cdr #{w 1290}#))))))
- (#{smart-append 403}#
- (lambda (#{m1 1316}# #{m2 1317}#)
- (if (null? #{m2 1317}#)
- #{m1 1316}#
- (append #{m1 1316}# #{m2 1317}#))))
- (#{join-wraps 405}#
- (lambda (#{w1 1320}# #{w2 1321}#)
- (let ((#{m1 1326}# (car #{w1 1320}#))
- (#{s1 1327}# (cdr #{w1 1320}#)))
- (if (null? #{m1 1326}#)
- (if (null? #{s1 1327}#)
- #{w2 1321}#
- (cons (car #{w2 1321}#)
- (#{smart-append 403}#
- #{s1 1327}#
- (cdr #{w2 1321}#))))
- (cons (#{smart-append 403}#
- #{m1 1326}#
- (car #{w2 1321}#))
- (#{smart-append 403}#
- #{s1 1327}#
- (cdr #{w2 1321}#)))))))
- (#{join-marks 407}#
- (lambda (#{m1 1336}# #{m2 1337}#)
- (#{smart-append 403}# #{m1 1336}# #{m2 1337}#)))
- (#{same-marks? 409}#
- (lambda (#{x 1340}# #{y 1341}#)
- (if (eq? #{x 1340}# #{y 1341}#)
- (eq? #{x 1340}# #{y 1341}#)
- (if (not (null? #{x 1340}#))
- (if (not (null? #{y 1341}#))
- (if (eq? (car #{x 1340}#) (car #{y 1341}#))
- (#{same-marks? 409}#
- (cdr #{x 1340}#)
- (cdr #{y 1341}#))
+ #{marksvec 16710}#
+ #{i 16715}#
+ #{marks 16756}#)
+ (#{f 16711}#
+ (cdr #{ids 16714}#)
+ (#{1+}# #{i 16715}#)))))))))
+ (#{f 16711}# #{ids 16704}# 0))
+ (vector
+ 'ribcage
+ #{symnamevec 16709}#
+ #{marksvec 16710}#
+ #{labelvec 16707}#)))))
+ (cdr #{w 16706}#))))))
+ (#{join-wraps 4329}#
+ (lambda (#{w1 16765}# #{w2 16766}#)
+ (let ((#{m1 16767}# (car #{w1 16765}#))
+ (#{s1 16768}# (cdr #{w1 16765}#)))
+ (if (null? #{m1 16767}#)
+ (if (null? #{s1 16768}#)
+ #{w2 16766}#
+ (cons (car #{w2 16766}#)
+ (let ((#{m2 16775}# (cdr #{w2 16766}#)))
+ (if (null? #{m2 16775}#)
+ #{s1 16768}#
+ (append #{s1 16768}# #{m2 16775}#)))))
+ (cons (let ((#{m2 16784}# (car #{w2 16766}#)))
+ (if (null? #{m2 16784}#)
+ #{m1 16767}#
+ (append #{m1 16767}# #{m2 16784}#)))
+ (let ((#{m2 16793}# (cdr #{w2 16766}#)))
+ (if (null? #{m2 16793}#)
+ #{s1 16768}#
+ (append #{s1 16768}# #{m2 16793}#))))))))
+ (#{same-marks? 4331}#
+ (lambda (#{x 16798}# #{y 16799}#)
+ (if (eq? #{x 16798}# #{y 16799}#)
+ (eq? #{x 16798}# #{y 16799}#)
+ (if (not (null? #{x 16798}#))
+ (if (not (null? #{y 16799}#))
+ (if (eq? (car #{x 16798}#) (car #{y 16799}#))
+ (#{same-marks? 4331}#
+ (cdr #{x 16798}#)
+ (cdr #{y 16799}#))
#f)
#f)
#f))))
- (#{id-var-name 411}#
- (lambda (#{id 1352}# #{w 1353}#)
+ (#{id-var-name 4332}#
+ (lambda (#{id 16807}# #{w 16808}#)
(letrec*
- ((#{search 1359}#
- (lambda (#{sym 1375}# #{subst 1376}# #{marks 1377}#)
- (if (null? #{subst 1376}#)
- (values #f #{marks 1377}#)
- (let ((#{fst 1382}# (car #{subst 1376}#)))
- (if (eq? #{fst 1382}# 'shift)
- (#{search 1359}#
- #{sym 1375}#
- (cdr #{subst 1376}#)
- (cdr #{marks 1377}#))
- (let ((#{symnames 1384}#
- (#{ribcage-symnames 376}# #{fst 1382}#)))
- (if (vector? #{symnames 1384}#)
- (#{search-vector-rib 1363}#
- #{sym 1375}#
- #{subst 1376}#
- #{marks 1377}#
- #{symnames 1384}#
- #{fst 1382}#)
- (#{search-list-rib 1361}#
- #{sym 1375}#
- #{subst 1376}#
- #{marks 1377}#
- #{symnames 1384}#
- #{fst 1382}#))))))))
- (#{search-list-rib 1361}#
- (lambda (#{sym 1385}#
- #{subst 1386}#
- #{marks 1387}#
- #{symnames 1388}#
- #{ribcage 1389}#)
- (letrec*
- ((#{f 1398}#
- (lambda (#{symnames 1399}# #{i 1400}#)
- (if (null? #{symnames 1399}#)
- (#{search 1359}#
- #{sym 1385}#
- (cdr #{subst 1386}#)
- #{marks 1387}#)
- (if (if (eq? (car #{symnames 1399}#) #{sym 1385}#)
- (#{same-marks? 409}#
- #{marks 1387}#
- (list-ref
- (#{ribcage-marks 378}# #{ribcage 1389}#)
- #{i 1400}#))
- #f)
- (values
- (list-ref
- (#{ribcage-labels 380}# #{ribcage 1389}#)
- #{i 1400}#)
- #{marks 1387}#)
- (#{f 1398}#
- (cdr #{symnames 1399}#)
- (#{1+}# #{i 1400}#)))))))
- (#{f 1398}# #{symnames 1388}# 0))))
- (#{search-vector-rib 1363}#
- (lambda (#{sym 1409}#
- #{subst 1410}#
- #{marks 1411}#
- #{symnames 1412}#
- #{ribcage 1413}#)
- (let ((#{n 1420}# (vector-length #{symnames 1412}#)))
- (letrec*
- ((#{f 1423}#
- (lambda (#{i 1424}#)
- (if (= #{i 1424}# #{n 1420}#)
- (#{search 1359}#
- #{sym 1409}#
- (cdr #{subst 1410}#)
- #{marks 1411}#)
- (if (if (eq? (vector-ref #{symnames 1412}# #{i 1424}#)
- #{sym 1409}#)
- (#{same-marks? 409}#
- #{marks 1411}#
- (vector-ref
- (#{ribcage-marks 378}# #{ribcage 1413}#)
- #{i 1424}#))
- #f)
- (values
- (vector-ref
- (#{ribcage-labels 380}# #{ribcage 1413}#)
- #{i 1424}#)
- #{marks 1411}#)
- (#{f 1423}# (#{1+}# #{i 1424}#)))))))
- (#{f 1423}# 0))))))
- (if (symbol? #{id 1352}#)
- (let ((#{t 1436}#
- (#{search 1359}#
- #{id 1352}#
- (cdr #{w 1353}#)
- (car #{w 1353}#))))
- (if #{t 1436}# #{t 1436}# #{id 1352}#))
- (if (#{syntax-object? 312}# #{id 1352}#)
- (let ((#{id 1445}#
- (#{syntax-object-expression 314}# #{id 1352}#))
- (#{w1 1446}#
- (#{syntax-object-wrap 316}# #{id 1352}#)))
- (let ((#{marks 1448}#
- (#{join-marks 407}#
- (car #{w 1353}#)
- (car #{w1 1446}#))))
+ ((#{search 16809}#
+ (lambda (#{sym 16870}# #{subst 16871}# #{marks 16872}#)
+ (if (null? #{subst 16871}#)
+ (values #f #{marks 16872}#)
+ (let ((#{fst 16873}# (car #{subst 16871}#)))
+ (if (eq? #{fst 16873}# 'shift)
+ (#{search 16809}#
+ #{sym 16870}#
+ (cdr #{subst 16871}#)
+ (cdr #{marks 16872}#))
+ (let ((#{symnames 16875}# (vector-ref #{fst 16873}# 1)))
+ (if (vector? #{symnames 16875}#)
+ (let ((#{n 16887}# (vector-length #{symnames 16875}#)))
+ (letrec*
+ ((#{f 16888}#
+ (lambda (#{i 16890}#)
+ (if (= #{i 16890}# #{n 16887}#)
+ (#{search 16809}#
+ #{sym 16870}#
+ (cdr #{subst 16871}#)
+ #{marks 16872}#)
+ (if (if (eq? (vector-ref
+ #{symnames 16875}#
+ #{i 16890}#)
+ #{sym 16870}#)
+ (#{same-marks? 4331}#
+ #{marks 16872}#
+ (vector-ref
+ (vector-ref #{fst 16873}# 2)
+ #{i 16890}#))
+ #f)
+ (values
+ (vector-ref
+ (vector-ref #{fst 16873}# 3)
+ #{i 16890}#)
+ #{marks 16872}#)
+ (#{f 16888}# (#{1+}# #{i 16890}#)))))))
+ (#{f 16888}# 0)))
+ (letrec*
+ ((#{f 16923}#
+ (lambda (#{symnames 16925}# #{i 16926}#)
+ (if (null? #{symnames 16925}#)
+ (#{search 16809}#
+ #{sym 16870}#
+ (cdr #{subst 16871}#)
+ #{marks 16872}#)
+ (if (if (eq? (car #{symnames 16925}#)
+ #{sym 16870}#)
+ (#{same-marks? 4331}#
+ #{marks 16872}#
+ (list-ref
+ (vector-ref #{fst 16873}# 2)
+ #{i 16926}#))
+ #f)
+ (values
+ (list-ref
+ (vector-ref #{fst 16873}# 3)
+ #{i 16926}#)
+ #{marks 16872}#)
+ (#{f 16923}#
+ (cdr #{symnames 16925}#)
+ (#{1+}# #{i 16926}#)))))))
+ (#{f 16923}# #{symnames 16875}# 0))))))))))
+ (if (symbol? #{id 16807}#)
+ (let ((#{t 16812}#
+ (#{search 16809}#
+ #{id 16807}#
+ (cdr #{w 16808}#)
+ (car #{w 16808}#))))
+ (if #{t 16812}# #{t 16812}# #{id 16807}#))
+ (if (if (vector? #{id 16807}#)
+ (if (= (vector-length #{id 16807}#) 4)
+ (eq? (vector-ref #{id 16807}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{id 16827}# (vector-ref #{id 16807}# 1))
+ (#{w1 16828}# (vector-ref #{id 16807}# 2)))
+ (let ((#{marks 16829}#
+ (let ((#{m1 16839}# (car #{w 16808}#))
+ (#{m2 16840}# (car #{w1 16828}#)))
+ (if (null? #{m2 16840}#)
+ #{m1 16839}#
+ (append #{m1 16839}# #{m2 16840}#)))))
(call-with-values
(lambda ()
- (#{search 1359}#
- #{id 1445}#
- (cdr #{w 1353}#)
- #{marks 1448}#))
- (lambda (#{new-id 1452}# #{marks 1453}#)
- (if #{new-id 1452}#
- #{new-id 1452}#
- (let ((#{t 1461}#
- (#{search 1359}#
- #{id 1445}#
- (cdr #{w1 1446}#)
- #{marks 1453}#)))
- (if #{t 1461}# #{t 1461}# #{id 1445}#)))))))
+ (#{search 16809}#
+ #{id 16827}#
+ (cdr #{w 16808}#)
+ #{marks 16829}#))
+ (lambda (#{new-id 16856}# #{marks 16857}#)
+ (if #{new-id 16856}#
+ #{new-id 16856}#
+ (let ((#{t 16865}#
+ (#{search 16809}#
+ #{id 16827}#
+ (cdr #{w1 16828}#)
+ #{marks 16857}#)))
+ (if #{t 16865}# #{t 16865}# #{id 16827}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 1352}#))))))
- (#{free-id=? 413}#
- (lambda (#{i 1466}# #{j 1467}#)
- (if (eq? (if (#{syntax-object? 312}# #{i 1466}#)
- (#{syntax-object-expression 314}# #{i 1466}#)
- #{i 1466}#)
- (if (#{syntax-object? 312}# #{j 1467}#)
- (#{syntax-object-expression 314}# #{j 1467}#)
- #{j 1467}#))
- (eq? (#{id-var-name 411}# #{i 1466}# '(()))
- (#{id-var-name 411}# #{j 1467}# '(())))
- #f)))
- (#{bound-id=? 415}#
- (lambda (#{i 1480}# #{j 1481}#)
- (if (if (#{syntax-object? 312}# #{i 1480}#)
- (#{syntax-object? 312}# #{j 1481}#)
- #f)
- (if (eq? (#{syntax-object-expression 314}# #{i 1480}#)
- (#{syntax-object-expression 314}# #{j 1481}#))
- (#{same-marks? 409}#
- (car (#{syntax-object-wrap 316}# #{i 1480}#))
- (car (#{syntax-object-wrap 316}# #{j 1481}#)))
- #f)
- (eq? #{i 1480}# #{j 1481}#))))
- (#{valid-bound-ids? 417}#
- (lambda (#{ids 1490}#)
+ #{id 16807}#))))))
+ (#{valid-bound-ids? 4335}#
+ (lambda (#{ids 16948}#)
(if (letrec*
- ((#{all-ids? 1495}#
- (lambda (#{ids 1496}#)
- (if (null? #{ids 1496}#)
- (null? #{ids 1496}#)
- (if (#{id? 349}# (car #{ids 1496}#))
- (#{all-ids? 1495}# (cdr #{ids 1496}#))
+ ((#{all-ids? 16949}#
+ (lambda (#{ids 17111}#)
+ (if (null? #{ids 17111}#)
+ (null? #{ids 17111}#)
+ (if (let ((#{x 17122}# (car #{ids 17111}#)))
+ (if (symbol? #{x 17122}#)
+ #t
+ (if (if (vector? #{x 17122}#)
+ (if (= (vector-length #{x 17122}#) 4)
+ (eq? (vector-ref #{x 17122}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 17122}# 1))
+ #f)))
+ (#{all-ids? 16949}# (cdr #{ids 17111}#))
#f)))))
- (#{all-ids? 1495}# #{ids 1490}#))
- (#{distinct-bound-ids? 419}# #{ids 1490}#)
+ (#{all-ids? 16949}# #{ids 16948}#))
+ (#{distinct-bound-ids? 4336}# #{ids 16948}#)
#f)))
- (#{distinct-bound-ids? 419}#
- (lambda (#{ids 1504}#)
+ (#{distinct-bound-ids? 4336}#
+ (lambda (#{ids 17254}#)
(letrec*
- ((#{distinct? 1508}#
- (lambda (#{ids 1509}#)
- (if (null? #{ids 1509}#)
- (null? #{ids 1509}#)
- (if (not (#{bound-id-member? 421}#
- (car #{ids 1509}#)
- (cdr #{ids 1509}#)))
- (#{distinct? 1508}# (cdr #{ids 1509}#))
+ ((#{distinct? 17255}#
+ (lambda (#{ids 17371}#)
+ (if (null? #{ids 17371}#)
+ (null? #{ids 17371}#)
+ (if (not (#{bound-id-member? 4337}#
+ (car #{ids 17371}#)
+ (cdr #{ids 17371}#)))
+ (#{distinct? 17255}# (cdr #{ids 17371}#))
#f)))))
- (#{distinct? 1508}# #{ids 1504}#))))
- (#{bound-id-member? 421}#
- (lambda (#{x 1516}# #{list 1517}#)
- (if (not (null? #{list 1517}#))
- (let ((#{t 1524}#
- (#{bound-id=? 415}#
- #{x 1516}#
- (car #{list 1517}#))))
- (if #{t 1524}#
- #{t 1524}#
- (#{bound-id-member? 421}#
- #{x 1516}#
- (cdr #{list 1517}#))))
+ (#{distinct? 17255}# #{ids 17254}#))))
+ (#{bound-id-member? 4337}#
+ (lambda (#{x 17591}# #{list 17592}#)
+ (if (not (null? #{list 17592}#))
+ (let ((#{t 17593}#
+ (let ((#{j 17674}# (car #{list 17592}#)))
+ (if (if (if (vector? #{x 17591}#)
+ (if (= (vector-length #{x 17591}#) 4)
+ (eq? (vector-ref #{x 17591}# 0) 'syntax-object)
+ #f)
+ #f)
+ (if (vector? #{j 17674}#)
+ (if (= (vector-length #{j 17674}#) 4)
+ (eq? (vector-ref #{j 17674}# 0) 'syntax-object)
+ #f)
+ #f)
+ #f)
+ (if (eq? (vector-ref #{x 17591}# 1)
+ (vector-ref #{j 17674}# 1))
+ (#{same-marks? 4331}#
+ (car (vector-ref #{x 17591}# 2))
+ (car (vector-ref #{j 17674}# 2)))
+ #f)
+ (eq? #{x 17591}# #{j 17674}#)))))
+ (if #{t 17593}#
+ #{t 17593}#
+ (#{bound-id-member? 4337}#
+ #{x 17591}#
+ (cdr #{list 17592}#))))
#f)))
- (#{wrap 423}#
- (lambda (#{x 1526}# #{w 1527}# #{defmod 1528}#)
- (if (if (null? (car #{w 1527}#))
- (null? (cdr #{w 1527}#))
+ (#{wrap 4338}#
+ (lambda (#{x 17718}# #{w 17719}# #{defmod 17720}#)
+ (if (if (null? (car #{w 17719}#))
+ (null? (cdr #{w 17719}#))
#f)
- #{x 1526}#
- (if (#{syntax-object? 312}# #{x 1526}#)
- (#{make-syntax-object 310}#
- (#{syntax-object-expression 314}# #{x 1526}#)
- (#{join-wraps 405}#
- #{w 1527}#
- (#{syntax-object-wrap 316}# #{x 1526}#))
- (#{syntax-object-module 318}# #{x 1526}#))
- (if (null? #{x 1526}#)
- #{x 1526}#
- (#{make-syntax-object 310}#
- #{x 1526}#
- #{w 1527}#
- #{defmod 1528}#))))))
- (#{source-wrap 425}#
- (lambda (#{x 1543}#
- #{w 1544}#
- #{s 1545}#
- #{defmod 1546}#)
- (#{wrap 423}#
- (#{decorate-source 265}# #{x 1543}# #{s 1545}#)
- #{w 1544}#
- #{defmod 1546}#)))
- (#{chi-sequence 427}#
- (lambda (#{body 1551}#
- #{r 1552}#
- #{w 1553}#
- #{s 1554}#
- #{mod 1555}#)
- (#{build-sequence 299}#
- #{s 1554}#
+ #{x 17718}#
+ (if (if (vector? #{x 17718}#)
+ (if (= (vector-length #{x 17718}#) 4)
+ (eq? (vector-ref #{x 17718}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 17734}# (vector-ref #{x 17718}# 1))
+ (#{wrap 17735}#
+ (#{join-wraps 4329}#
+ #{w 17719}#
+ (vector-ref #{x 17718}# 2)))
+ (#{module 17736}# (vector-ref #{x 17718}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 17734}#
+ #{wrap 17735}#
+ #{module 17736}#))
+ (if (null? #{x 17718}#)
+ #{x 17718}#
+ (vector
+ 'syntax-object
+ #{x 17718}#
+ #{w 17719}#
+ #{defmod 17720}#))))))
+ (#{source-wrap 4339}#
+ (lambda (#{x 17753}#
+ #{w 17754}#
+ #{s 17755}#
+ #{defmod 17756}#)
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{x 17753}#) #{s 17755}# #f)
+ (set-source-properties! #{x 17753}# #{s 17755}#))
+ #{x 17753}#)
+ #{w 17754}#
+ #{defmod 17756}#)))
+ (#{chi-sequence 4340}#
+ (lambda (#{body 28233}#
+ #{r 28234}#
+ #{w 28235}#
+ #{s 28236}#
+ #{mod 28237}#)
+ (#{build-sequence 4294}#
+ #{s 28236}#
(letrec*
- ((#{dobody 1566}#
- (lambda (#{body 1567}#
- #{r 1568}#
- #{w 1569}#
- #{mod 1570}#)
- (if (null? #{body 1567}#)
+ ((#{dobody 28322}#
+ (lambda (#{body 28402}#
+ #{r 28403}#
+ #{w 28404}#
+ #{mod 28405}#)
+ (if (null? #{body 28402}#)
'()
- (let ((#{first 1572}#
- (#{chi 437}#
- (car #{body 1567}#)
- #{r 1568}#
- #{w 1569}#
- #{mod 1570}#)))
- (cons #{first 1572}#
- (#{dobody 1566}#
- (cdr #{body 1567}#)
- #{r 1568}#
- #{w 1569}#
- #{mod 1570}#)))))))
- (#{dobody 1566}#
- #{body 1551}#
- #{r 1552}#
- #{w 1553}#
- #{mod 1555}#)))))
- (#{chi-top-sequence 429}#
- (lambda (#{body 1573}#
- #{r 1574}#
- #{w 1575}#
- #{s 1576}#
- #{m 1577}#
- #{esew 1578}#
- #{mod 1579}#)
+ (let ((#{first 28406}#
+ (#{chi 4345}#
+ (car #{body 28402}#)
+ #{r 28403}#
+ #{w 28404}#
+ #{mod 28405}#)))
+ (cons #{first 28406}#
+ (#{dobody 28322}#
+ (cdr #{body 28402}#)
+ #{r 28403}#
+ #{w 28404}#
+ #{mod 28405}#)))))))
+ (#{dobody 28322}#
+ #{body 28233}#
+ #{r 28234}#
+ #{w 28235}#
+ #{mod 28237}#)))))
+ (#{chi-top-sequence 4341}#
+ (lambda (#{body 17774}#
+ #{r 17775}#
+ #{w 17776}#
+ #{s 17777}#
+ #{m 17778}#
+ #{esew 17779}#
+ #{mod 17780}#)
(letrec*
- ((#{scan 1588}#
- (lambda (#{body 1589}#
- #{r 1590}#
- #{w 1591}#
- #{s 1592}#
- #{m 1593}#
- #{esew 1594}#
- #{mod 1595}#
- #{exps 1596}#)
- (if (null? #{body 1589}#)
- #{exps 1596}#
+ ((#{scan 17781}#
+ (lambda (#{body 17912}#
+ #{r 17913}#
+ #{w 17914}#
+ #{s 17915}#
+ #{m 17916}#
+ #{esew 17917}#
+ #{mod 17918}#
+ #{exps 17919}#)
+ (if (null? #{body 17912}#)
+ #{exps 17919}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 1609}# (car #{body 1589}#)))
- (#{syntax-type 435}#
- #{e 1609}#
- #{r 1590}#
- #{w 1591}#
- (let ((#{t 1612}#
- (#{source-annotation 327}# #{e 1609}#)))
- (if #{t 1612}# #{t 1612}# #{s 1592}#))
+ (let ((#{e 17920}# (car #{body 17912}#)))
+ (#{syntax-type 4344}#
+ #{e 17920}#
+ #{r 17913}#
+ #{w 17914}#
+ (let ((#{t 17924}#
+ (#{source-annotation 4306}# #{e 17920}#)))
+ (if #{t 17924}# #{t 17924}# #{s 17915}#))
#f
- #{mod 1595}#
+ #{mod 17918}#
#f)))
- (lambda (#{type 1614}#
- #{value 1615}#
- #{e 1616}#
- #{w 1617}#
- #{s 1618}#
- #{mod 1619}#)
- (if (memv #{type 1614}# '(begin-form))
- (let ((#{tmp 1628}# ($sc-dispatch #{e 1616}# '(_))))
- (if #{tmp 1628}#
- (@apply (lambda () #{exps 1596}#) #{tmp 1628}#)
- (let ((#{tmp 1629}#
+ (lambda (#{type 18184}#
+ #{value 18185}#
+ #{e 18186}#
+ #{w 18187}#
+ #{s 18188}#
+ #{mod 18189}#)
+ (if (eqv? #{type 18184}# 'begin-form)
+ (let ((#{tmp 18194}#
+ ($sc-dispatch #{e 18186}# '(_))))
+ (if #{tmp 18194}#
+ (@apply (lambda () #{exps 17919}#) #{tmp 18194}#)
+ (let ((#{tmp 18198}#
($sc-dispatch
- #{e 1616}#
+ #{e 18186}#
'(_ any . each-any))))
- (if #{tmp 1629}#
+ (if #{tmp 18198}#
(@apply
- (lambda (#{e1 1632}# #{e2 1633}#)
- (#{scan 1588}#
- (cons #{e1 1632}# #{e2 1633}#)
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- #{m 1593}#
- #{esew 1594}#
- #{mod 1619}#
- #{exps 1596}#))
- #{tmp 1629}#)
+ (lambda (#{e1 18202}# #{e2 18203}#)
+ (#{scan 17781}#
+ (cons #{e1 18202}# #{e2 18203}#)
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ #{m 17916}#
+ #{esew 17917}#
+ #{mod 18189}#
+ #{exps 17919}#))
+ #{tmp 18198}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 1616}#)))))
- (if (memv #{type 1614}# '(local-syntax-form))
- (#{chi-local-syntax 447}#
- #{value 1615}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- #{mod 1619}#
- (lambda (#{body 1636}#
- #{r 1637}#
- #{w 1638}#
- #{s 1639}#
- #{mod 1640}#)
- (#{scan 1588}#
- #{body 1636}#
- #{r 1637}#
- #{w 1638}#
- #{s 1639}#
- #{m 1593}#
- #{esew 1594}#
- #{mod 1640}#
- #{exps 1596}#)))
- (if (memv #{type 1614}# '(eval-when-form))
- (let ((#{tmp 1648}#
+ #{e 18186}#)))))
+ (if (eqv? #{type 18184}# 'local-syntax-form)
+ (#{chi-local-syntax 4350}#
+ #{value 18185}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ #{mod 18189}#
+ (lambda (#{body 18218}#
+ #{r 18219}#
+ #{w 18220}#
+ #{s 18221}#
+ #{mod 18222}#)
+ (#{scan 17781}#
+ #{body 18218}#
+ #{r 18219}#
+ #{w 18220}#
+ #{s 18221}#
+ #{m 17916}#
+ #{esew 17917}#
+ #{mod 18222}#
+ #{exps 17919}#)))
+ (if (eqv? #{type 18184}# 'eval-when-form)
+ (let ((#{tmp 18227}#
($sc-dispatch
- #{e 1616}#
+ #{e 18186}#
'(_ each-any any . each-any))))
- (if #{tmp 1648}#
+ (if #{tmp 18227}#
(@apply
- (lambda (#{x 1652}#
- #{e1 1653}#
- #{e2 1654}#)
- (let ((#{when-list 1657}#
- (#{chi-when-list 433}#
- #{e 1616}#
- #{x 1652}#
- #{w 1617}#))
- (#{body 1658}#
- (cons #{e1 1653}# #{e2 1654}#)))
- (if (eq? #{m 1593}# 'e)
- (if (memq 'eval #{when-list 1657}#)
- (#{scan 1588}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
+ (lambda (#{x 18231}#
+ #{e1 18232}#
+ #{e2 18233}#)
+ (let ((#{when-list 18234}#
+ (#{chi-when-list 4343}#
+ #{e 18186}#
+ #{x 18231}#
+ #{w 18187}#))
+ (#{body 18235}#
+ (cons #{e1 18232}#
+ #{e2 18233}#)))
+ (if (eq? #{m 17916}# 'e)
+ (if (memq 'eval #{when-list 18234}#)
+ (#{scan 17781}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
(if (memq 'expand
- #{when-list 1657}#)
+ #{when-list 18234}#)
'c&e
'e)
'(eval)
- #{mod 1619}#
- #{exps 1596}#)
+ #{mod 18189}#
+ #{exps 17919}#)
(begin
(if (memq 'expand
- #{when-list 1657}#)
- (#{top-level-eval-hook 255}#
- (#{chi-top-sequence 429}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- 'e
- '(eval)
- #{mod 1619}#)
- #{mod 1619}#))
- (values #{exps 1596}#)))
- (if (memq 'load #{when-list 1657}#)
- (if (let ((#{t 1667}#
+ #{when-list 18234}#)
+ (let ((#{x 18242}#
+ (#{chi-top-sequence
4341}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ 'e
+ '(eval)
+ #{mod 18189}#)))
+ (primitive-eval
+ #{x 18242}#)))
+ (values #{exps 17919}#)))
+ (if (memq 'load #{when-list 18234}#)
+ (if (let ((#{t 18244}#
(memq 'compile
- #{when-list
1657}#)))
- (if #{t 1667}#
- #{t 1667}#
- (let ((#{t 1670}#
+ #{when-list
18234}#)))
+ (if #{t 18244}#
+ #{t 18244}#
+ (let ((#{t 18246}#
(memq 'expand
- #{when-list
1657}#)))
- (if #{t 1670}#
- #{t 1670}#
- (if (eq? #{m 1593}#
+ #{when-list
18234}#)))
+ (if #{t 18246}#
+ #{t 18246}#
+ (if (eq? #{m 17916}#
'c&e)
(memq 'eval
- #{when-list
1657}#)
+ #{when-list
18234}#)
#f)))))
- (#{scan 1588}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
+ (#{scan 17781}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
'c&e
'(compile load)
- #{mod 1619}#
- #{exps 1596}#)
- (if (memq #{m 1593}# '(c c&e))
- (#{scan 1588}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
+ #{mod 18189}#
+ #{exps 17919}#)
+ (if (if (eq? #{m 17916}# 'c)
+ #t
+ (eq? #{m 17916}# 'c&e))
+ (#{scan 17781}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
'c
'(load)
- #{mod 1619}#
- #{exps 1596}#)
- (values #{exps 1596}#)))
- (if (let ((#{t 1678}#
+ #{mod 18189}#
+ #{exps 17919}#)
+ (values #{exps 17919}#)))
+ (if (let ((#{t 18256}#
(memq 'compile
- #{when-list
1657}#)))
- (if #{t 1678}#
- #{t 1678}#
- (let ((#{t 1681}#
+ #{when-list
18234}#)))
+ (if #{t 18256}#
+ #{t 18256}#
+ (let ((#{t 18258}#
(memq 'expand
- #{when-list
1657}#)))
- (if #{t 1681}#
- #{t 1681}#
- (if (eq? #{m 1593}#
+ #{when-list
18234}#)))
+ (if #{t 18258}#
+ #{t 18258}#
+ (if (eq? #{m 17916}#
'c&e)
(memq 'eval
- #{when-list
1657}#)
+ #{when-list
18234}#)
#f)))))
(begin
- (#{top-level-eval-hook 255}#
- (#{chi-top-sequence 429}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- 'e
- '(eval)
- #{mod 1619}#)
- #{mod 1619}#)
- (values #{exps 1596}#))
- (values #{exps 1596}#))))))
- #{tmp 1648}#)
+ (let ((#{x 18263}#
+ (#{chi-top-sequence
4341}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ 'e
+ '(eval)
+ #{mod 18189}#)))
+ (primitive-eval #{x 18263}#))
+ (values #{exps 17919}#))
+ (values #{exps 17919}#))))))
+ #{tmp 18227}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 1616}#)))
- (if (memv #{type 1614}# '(define-syntax-form))
- (let ((#{n 1689}#
- (#{id-var-name 411}#
- #{value 1615}#
- #{w 1617}#))
- (#{r 1690}#
- (#{macros-only-env 341}# #{r 1590}#)))
- (if (memv #{m 1593}# '(c))
- (if (memq 'compile #{esew 1594}#)
- (let ((#{e 1693}#
- (#{chi-install-global 431}#
- #{n 1689}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1690}#
- #{w 1617}#
- #{mod 1619}#))))
+ #{e 18186}#)))
+ (if (eqv? #{type 18184}# 'define-syntax-form)
+ (let ((#{n 18274}#
+ (#{id-var-name 4332}#
+ #{value 18185}#
+ #{w 18187}#))
+ (#{r 18275}#
+ (#{macros-only-env 4309}#
+ #{r 17913}#)))
+ (if (eqv? #{m 17916}# 'c)
+ (if (memq 'compile #{esew 17917}#)
+ (let ((#{e 18279}#
+ (#{chi-install-global 4342}#
+ #{n 18274}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 18275}#
+ #{w 18187}#
+ #{mod 18189}#))))
(begin
- (#{top-level-eval-hook 255}#
- #{e 1693}#
- #{mod 1619}#)
- (if (memq 'load #{esew 1594}#)
+ (#{top-level-eval-hook 4273}#
+ #{e 18279}#
+ #{mod 18189}#)
+ (if (memq 'load #{esew 17917}#)
(values
- (cons #{e 1693}# #{exps 1596}#))
- (values #{exps 1596}#))))
- (if (memq 'load #{esew 1594}#)
+ (cons #{e 18279}#
+ #{exps 17919}#))
+ (values #{exps 17919}#))))
+ (if (memq 'load #{esew 17917}#)
(values
- (cons (#{chi-install-global 431}#
- #{n 1689}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1690}#
- #{w 1617}#
- #{mod 1619}#))
- #{exps 1596}#))
- (values #{exps 1596}#)))
- (if (memv #{m 1593}# '(c&e))
- (let ((#{e 1696}#
- (#{chi-install-global 431}#
- #{n 1689}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1690}#
- #{w 1617}#
- #{mod 1619}#))))
+ (cons (#{chi-install-global 4342}#
+ #{n 18274}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 18275}#
+ #{w 18187}#
+ #{mod 18189}#))
+ #{exps 17919}#))
+ (values #{exps 17919}#)))
+ (if (eqv? #{m 17916}# 'c&e)
+ (let ((#{e 18736}#
+ (#{chi-install-global 4342}#
+ #{n 18274}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 18275}#
+ #{w 18187}#
+ #{mod 18189}#))))
(begin
- (#{top-level-eval-hook 255}#
- #{e 1696}#
- #{mod 1619}#)
+ (#{top-level-eval-hook 4273}#
+ #{e 18736}#
+ #{mod 18189}#)
(values
- (cons #{e 1696}# #{exps 1596}#))))
+ (cons #{e 18736}#
+ #{exps 17919}#))))
(begin
- (if (memq 'eval #{esew 1594}#)
- (#{top-level-eval-hook 255}#
- (#{chi-install-global 431}#
- #{n 1689}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1690}#
- #{w 1617}#
- #{mod 1619}#))
- #{mod 1619}#))
- (values #{exps 1596}#)))))
- (if (memv #{type 1614}# '(define-form))
- (let ((#{n 1701}#
- (#{id-var-name 411}#
- #{value 1615}#
- #{w 1617}#)))
- (let ((#{type 1703}#
- (car (#{lookup 343}#
- #{n 1701}#
- #{r 1590}#
- #{mod 1619}#))))
- (if (memv #{type 1703}#
- '(global
- core
- macro
- module-ref))
+ (if (memq 'eval #{esew 17917}#)
+ (#{top-level-eval-hook 4273}#
+ (#{chi-install-global 4342}#
+ #{n 18274}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 18275}#
+ #{w 18187}#
+ #{mod 18189}#))
+ #{mod 18189}#))
+ (values #{exps 17919}#)))))
+ (if (eqv? #{type 18184}# 'define-form)
+ (let ((#{n 19386}#
+ (#{id-var-name 4332}#
+ #{value 18185}#
+ #{w 18187}#)))
+ (let ((#{type 19387}#
+ (car (let ((#{t 20156}#
+ (assq #{n 19386}#
+ #{r 17913}#)))
+ (if #{t 20156}#
+ (cdr #{t 20156}#)
+ (if (symbol? #{n 19386}#)
+ (let ((#{t 20161}#
+ (begin
+ (if (if (not
#{mod 18189}#)
+
(current-module)
+ #f)
+ (warn
"module system is booted, we should have a module"
+ #{n
19386}#))
+ (let ((#{v
20198}#
+
(module-variable
+ (if
#{mod 18189}#
+
(resolve-module
+
(cdr #{mod 18189}#))
+
(current-module))
+ #{n
19386}#)))
+ (if #{v
20198}#
+ (if
(variable-bound?
+ #{v
20198}#)
+ (let
((#{val 20207}#
+
(variable-ref
+
#{v 20198}#)))
+ (if
(macro?
+
#{val 20207}#)
+ (if
(macro-type
+
#{val 20207}#)
+
(cons (macro-type
+
#{val 20207}#)
+
(macro-binding
+
#{val 20207}#))
+
#f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 20161}#
+ #{t 20161}#
+ '(global)))
+
'(displaced-lexical)))))))
+ (if (let ((#{t 19421}# #{type 19387}#))
+ (if (eqv? #{t 19421}# 'global)
+ #t
+ (if (eqv? #{t 19421}# 'core)
+ #t
+ (if (eqv? #{t 19421}# 'macro)
+ #t
+ (eqv? #{t 19421}#
+ 'module-ref)))))
(begin
- (if (if (memq #{m 1593}# '(c c&e))
+ (if (if (if (eq? #{m 17916}# 'c)
+ #t
+ (eq? #{m 17916}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n 1701}#))
+ #{n 19386}#))
(current-module)
#f)
#f)
- (let ((#{old 1710}#
+ (let ((#{old 19585}#
(module-variable
(current-module)
- #{n 1701}#)))
- (if (if (variable? #{old 1710}#)
+ #{n 19386}#)))
+ (if (if (variable? #{old 19585}#)
(variable-bound?
- #{old 1710}#)
+ #{old 19585}#)
#f)
(module-define!
(current-module)
- #{n 1701}#
- (variable-ref #{old 1710}#))
+ #{n 19386}#
+ (variable-ref #{old 19585}#))
(module-add!
(current-module)
- #{n 1701}#
+ #{n 19386}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m 1593}# 'c&e)
- (let ((#{x 1714}#
-
(#{build-global-definition 287}#
- #{s 1618}#
- #{n 1701}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{mod
1619}#))))
+ (cons (if (eq? #{m 17916}# 'c&e)
+ (let ((#{x 19587}#
+
(#{build-global-definition 4288}#
+ #{s 18188}#
+ #{n 19386}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{mod
18189}#))))
(begin
- (#{top-level-eval-hook
255}#
- #{x 1714}#
- #{mod 1619}#)
- #{x 1714}#))
+ (#{top-level-eval-hook
4273}#
+ #{x 19587}#
+ #{mod 18189}#)
+ #{x 19587}#))
(lambda ()
-
(#{build-global-definition 287}#
- #{s 1618}#
- #{n 1701}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{mod 1619}#))))
- #{exps 1596}#)))
- (if (memv #{type 1703}#
- '(displaced-lexical))
+
(#{build-global-definition 4288}#
+ #{s 18188}#
+ #{n 19386}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{mod 18189}#))))
+ #{exps 17919}#)))
+ (if (let ((#{t 20083}# #{type 19387}#))
+ (eqv? #{t 20083}#
+ 'displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e 1616}#
- (#{wrap 423}#
- #{value 1615}#
- #{w 1617}#
- #{mod 1619}#))
+ #{e 18186}#
+ (#{wrap 4338}#
+ #{value 18185}#
+ #{w 18187}#
+ #{mod 18189}#))
(syntax-violation
#f
"cannot define keyword at top
level"
- #{e 1616}#
- (#{wrap 423}#
- #{value 1615}#
- #{w 1617}#
- #{mod 1619}#))))))
+ #{e 18186}#
+ (#{wrap 4338}#
+ #{value 18185}#
+ #{w 18187}#
+ #{mod 18189}#))))))
(values
- (cons (if (eq? #{m 1593}# 'c&e)
- (let ((#{x 1719}#
- (#{chi-expr 439}#
- #{type 1614}#
- #{value 1615}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- #{mod 1619}#)))
+ (cons (if (eq? #{m 17916}# 'c&e)
+ (let ((#{x 20218}#
+ (#{chi-expr 4346}#
+ #{type 18184}#
+ #{value 18185}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ #{mod 18189}#)))
(begin
- (#{top-level-eval-hook 255}#
- #{x 1719}#
- #{mod 1619}#)
- #{x 1719}#))
+ (primitive-eval #{x 20218}#)
+ #{x 20218}#))
(lambda ()
- (#{chi-expr 439}#
- #{type 1614}#
- #{value 1615}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- #{mod 1619}#)))
- #{exps 1596}#))))))))))
- (lambda (#{exps 1720}#)
- (#{scan 1588}#
- (cdr #{body 1589}#)
- #{r 1590}#
- #{w 1591}#
- #{s 1592}#
- #{m 1593}#
- #{esew 1594}#
- #{mod 1595}#
- #{exps 1720}#)))))))
+ (#{chi-expr 4346}#
+ #{type 18184}#
+ #{value 18185}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ #{mod 18189}#)))
+ #{exps 17919}#))))))))))
+ (lambda (#{exps 20227}#)
+ (#{scan 17781}#
+ (cdr #{body 17912}#)
+ #{r 17913}#
+ #{w 17914}#
+ #{s 17915}#
+ #{m 17916}#
+ #{esew 17917}#
+ #{mod 17918}#
+ #{exps 20227}#)))))))
(call-with-values
(lambda ()
- (#{scan 1588}#
- #{body 1573}#
- #{r 1574}#
- #{w 1575}#
- #{s 1576}#
- #{m 1577}#
- #{esew 1578}#
- #{mod 1579}#
+ (#{scan 17781}#
+ #{body 17774}#
+ #{r 17775}#
+ #{w 17776}#
+ #{s 17777}#
+ #{m 17778}#
+ #{esew 17779}#
+ #{mod 17780}#
'()))
- (lambda (#{exps 1722}#)
- (if (null? #{exps 1722}#)
- (#{build-void 269}# #{s 1576}#)
- (#{build-sequence 299}#
- #{s 1576}#
+ (lambda (#{exps 17784}#)
+ (if (null? #{exps 17784}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #{s 17777}#)
+ (#{build-sequence 4294}#
+ #{s 17777}#
(letrec*
- ((#{lp 1727}#
- (lambda (#{in 1728}# #{out 1729}#)
- (if (null? #{in 1728}#)
- #{out 1729}#
- (let ((#{e 1731}# (car #{in 1728}#)))
- (#{lp 1727}#
- (cdr #{in 1728}#)
- (cons (if (procedure? #{e 1731}#)
- (#{e 1731}#)
- #{e 1731}#)
- #{out 1729}#)))))))
- (#{lp 1727}# #{exps 1722}# '())))))))))
- (#{chi-install-global 431}#
- (lambda (#{name 1732}# #{e 1733}#)
- (#{build-global-definition 287}#
- #f
- #{name 1732}#
- (#{build-application 271}#
- #f
- (#{build-primref 295}#
+ ((#{lp 17824}#
+ (lambda (#{in 17908}# #{out 17909}#)
+ (if (null? #{in 17908}#)
+ #{out 17909}#
+ (let ((#{e 17910}# (car #{in 17908}#)))
+ (#{lp 17824}#
+ (cdr #{in 17908}#)
+ (cons (if (procedure? #{e 17910}#)
+ (#{e 17910}#)
+ #{e 17910}#)
+ #{out 17909}#)))))))
+ (#{lp 17824}# #{exps 17784}# '())))))))))
+ (#{chi-install-global 4342}#
+ (lambda (#{name 20228}# #{e 20229}#)
+ (let ((#{exp 20235}#
+ (let ((#{fun-exp 20245}#
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'make-syntax-transformer)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'make-syntax-transformer
+ #f)))
+ (#{arg-exps 20246}#
+ (list (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #{name 20228}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ 'macro)
+ #{e 20229}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 20245}#
+ #{arg-exps 20246}#))))
+ (begin
+ (if (if (struct? #{exp 20235}#)
+ (eq? (struct-vtable #{exp 20235}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 20287}# (struct-ref #{exp 20235}# 1)))
+ (if (not (assq 'name #{meta 20287}#))
+ (let ((#{v 20294}#
+ (cons (cons 'name #{name 20228}#) #{meta 20287}#)))
+ (struct-set! #{exp 20235}# 1 #{v 20294}#)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
#f
- 'make-syntax-transformer)
- (list (#{build-data 297}# #f #{name 1732}#)
- (#{build-data 297}# #f 'macro)
- #{e 1733}#)))))
- (#{chi-when-list 433}#
- (lambda (#{e 1741}# #{when-list 1742}# #{w 1743}#)
+ #{name 20228}#
+ #{exp 20235}#)))))
+ (#{chi-when-list 4343}#
+ (lambda (#{e 20305}# #{when-list 20306}# #{w 20307}#)
(letrec*
- ((#{f 1750}#
- (lambda (#{when-list 1751}# #{situations 1752}#)
- (if (null? #{when-list 1751}#)
- #{situations 1752}#
- (#{f 1750}#
- (cdr #{when-list 1751}#)
- (cons (let ((#{x 1754}# (car #{when-list 1751}#)))
- (if (#{free-id=? 413}#
- #{x 1754}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1753"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1747" "i1748" "i1749"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1744" "i1745" "i1746"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
- 'compile
- (if (#{free-id=? 413}#
- #{x 1754}#
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1753"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1747" "i1748" "i1749"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1744" "i1745" "i1746"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
- 'load
- (if (#{free-id=? 413}#
- #{x 1754}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1753"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1747" "i1748" "i1749"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1744" "i1745" "i1746"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
- 'eval
- (if (#{free-id=? 413}#
- #{x 1754}#
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1753"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1747" "i1748" "i1749"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1744" "i1745" "i1746"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
+ ((#{f 20308}#
+ (lambda (#{when-list 20311}# #{situations 20312}#)
+ (if (null? #{when-list 20311}#)
+ #{situations 20312}#
+ (#{f 20308}#
+ (cdr #{when-list 20311}#)
+ (cons (let ((#{x 20313}# (car #{when-list 20311}#)))
+ (if (if (eq? (if (if (vector? #{x 20313}#)
+ (if (= (vector-length #{x 20313}#)
+ 4)
+ (eq? (vector-ref #{x 20313}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 20313}# 1)
+ #{x 20313}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}# #{x 20313}# '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ 'compile
+ (if (if (eq? (if (if (vector? #{x 20313}#)
+ (if (= (vector-length
+ #{x 20313}#)
+ 4)
+ (eq? (vector-ref
+ #{x 20313}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 20313}# 1)
+ #{x 20313}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+
chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+
distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+
make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+
chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+
distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+
make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}# #{x 20313}# '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ load
((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
- 'expand
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e 1741}#
- (#{wrap 423}#
- #{x 1754}#
- #{w 1743}#
- #f)))))))
- #{situations 1752}#))))))
- (#{f 1750}# #{when-list 1742}# '()))))
- (#{syntax-type 435}#
- (lambda (#{e 1764}#
- #{r 1765}#
- #{w 1766}#
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#
- #{for-car? 1770}#)
- (if (symbol? #{e 1764}#)
- (let ((#{n 1782}#
- (#{id-var-name 411}# #{e 1764}# #{w 1766}#)))
- (let ((#{b 1784}#
- (#{lookup 343}#
- #{n 1782}#
- #{r 1765}#
- #{mod 1769}#)))
- (let ((#{type 1786}# (car #{b 1784}#)))
- (if (memv #{type 1786}# '(lexical))
- (values
- #{type 1786}#
- (cdr #{b 1784}#)
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{type 1786}# '(global))
- (values
- #{type 1786}#
- #{n 1782}#
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{type 1786}# '(macro))
- (if #{for-car? 1770}#
- (values
- #{type 1786}#
- (cdr #{b 1784}#)
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (#{syntax-type 435}#
- (#{chi-macro 443}#
- (cdr #{b 1784}#)
- #{e 1764}#
- #{r 1765}#
- #{w 1766}#
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#)
- #{r 1765}#
- '(())
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#
- #f))
- (values
- #{type 1786}#
- (cdr #{b 1784}#)
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)))))))
- (if (pair? #{e 1764}#)
- (let ((#{first 1800}# (car #{e 1764}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type 435}#
- #{first 1800}#
- #{r 1765}#
- #{w 1766}#
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#
- #t))
- (lambda (#{ftype 1801}#
- #{fval 1802}#
- #{fe 1803}#
- #{fw 1804}#
- #{fs 1805}#
- #{fmod 1806}#)
- (if (memv #{ftype 1801}# '(lexical))
- (values
- 'lexical-call
- #{fval 1802}#
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(global))
- (values
- 'global-call
- (#{make-syntax-object 310}#
- #{fval 1802}#
- #{w 1766}#
- #{fmod 1806}#)
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(macro))
- (#{syntax-type 435}#
- (#{chi-macro 443}#
- #{fval 1802}#
- #{e 1764}#
- #{r 1765}#
- #{w 1766}#
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#)
- #{r 1765}#
- '(())
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#
- #{for-car? 1770}#)
- (if (memv #{ftype 1801}# '(module-ref))
- (call-with-values
- (lambda ()
- (#{fval 1802}# #{e 1764}# #{r 1765}# #{w 1766}#))
- (lambda (#{e 1818}#
- #{r 1819}#
- #{w 1820}#
- #{s 1821}#
- #{mod 1822}#)
- (#{syntax-type 435}#
- #{e 1818}#
- #{r 1819}#
- #{w 1820}#
- #{s 1821}#
- #{rib 1768}#
- #{mod 1822}#
- #{for-car? 1770}#)))
- (if (memv #{ftype 1801}# '(core))
- (values
- 'core-form
- #{fval 1802}#
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(local-syntax))
- (values
- 'local-syntax-form
- #{fval 1802}#
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(begin))
- (values
- 'begin-form
- #f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(eval-when))
- (values
- 'eval-when-form
- #f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(define))
- (let ((#{tmp 1834}#
- ($sc-dispatch
- #{e 1764}#
- '(_ any any))))
- (if (if #{tmp 1834}#
- (@apply
- (lambda (#{name 1837}#
- #{val 1838}#)
- (#{id? 349}# #{name 1837}#))
- #{tmp 1834}#)
- #f)
- (@apply
- (lambda (#{name 1841}# #{val 1842}#)
- (values
- 'define-form
- #{name 1841}#
- #{val 1842}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#))
- #{tmp 1834}#)
- (let ((#{tmp 1843}#
- ($sc-dispatch
- #{e 1764}#
- '(_ (any . any)
- any
- .
- each-any))))
- (if (if #{tmp 1843}#
- (@apply
- (lambda (#{name 1848}#
- #{args 1849}#
- #{e1 1850}#
- #{e2 1851}#)
- (if (#{id? 349}#
- #{name 1848}#)
- (#{valid-bound-ids? 417}#
- (#{lambda-var-list 467}#
- #{args 1849}#))
- #f))
- #{tmp 1843}#)
- #f)
- (@apply
- (lambda (#{name 1858}#
- #{args 1859}#
- #{e1 1860}#
- #{e2 1861}#)
- (values
- 'define-form
- (#{wrap 423}#
- #{name 1858}#
- #{w 1766}#
- #{mod 1769}#)
- (#{decorate-source 265}#
- (cons '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(name
- args
- e1
- e2)
- #((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ 'load
+ (if (if (eq? (if (if (vector? #{x 20313}#)
+ (if (= (vector-length
+ #{x 20313}#)
+ 4)
+ (eq? (vector-ref
+ #{x 20313}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 20313}# 1)
+ #{x 20313}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+
chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+
chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+
chi-install-global
+
chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+
make-binding-wrap
+ extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+
ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+
id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+
source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+
make-syntax-object
+
build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+
build-conditional
+
build-application
+ build-void
+
maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+
make-lambda-case
+ make-lambda
+ make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+ make-module-set
+ make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+
chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+
chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+
chi-install-global
+
chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+
make-binding-wrap
+ extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+
ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+
id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+
source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+
make-syntax-object
+
build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+
build-conditional
+
build-application
+ build-void
+
maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+
make-lambda-case
+ make-lambda
+ make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+ make-module-set
+ make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}#
+ #{x 20313}#
+ '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ 'eval
+ (if (if (eq? (if (if (vector? #{x 20313}#)
+ (if (= (vector-length
+ #{x 20313}#)
+ 4)
+ (eq? (vector-ref
+ #{x 20313}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 20313}# 1)
+ #{x 20313}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ when-list
+ w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+
(lambda-var-list
+ gen-var
+ strip
+
chi-lambda-case
+
lambda*-formals
+
chi-simple-lambda
+
lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+
chi-local-syntax
+ chi-body
+ chi-macro
+
chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+
chi-install-global
+
chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+ ribcage-marks
+
ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+
id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+
macros-only-env
+
extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+
source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+ build-letrec
+
build-named-let
+ build-let
+
build-sequence
+ build-data
+ build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+
build-conditional
+
build-application
+ build-void
+
maybe-name-value!
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+
make-lambda-case
+ make-lambda
+ make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+
make-module-set
+
make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ when-list
+ w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+
(lambda-var-list
+ gen-var
+ strip
+
chi-lambda-case
+
lambda*-formals
+
chi-simple-lambda
+
lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+
chi-local-syntax
+ chi-body
+ chi-macro
+
chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+
chi-install-global
+
chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+ ribcage-marks
+
ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+
id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+
macros-only-env
+
extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+
source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+ build-letrec
+
build-named-let
+ build-let
+
build-sequence
+ build-data
+ build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+
build-conditional
+
build-application
+ build-void
+
maybe-name-value!
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+
make-lambda-case
+ make-lambda
+ make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+
make-module-set
+
make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
(top)
(top)
- (top))
- #("i1854"
- "i1855"
- "i1856"
- "i1857"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
(top)
(top)
(top)
(top)
- (top))
- #("i1807"
- "i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1799"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
(top)
(top)
(top)
(top)
(top)
- (top))
- #("i1771"
- "i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
-
macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
-
build-named-let
- build-let
- build-sequence
- build-data
- build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
- make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i45"
- "i44"
- "i43")))
- (hygiene guile))
- (#{wrap 423}#
- (cons #{args 1859}#
- (cons #{e1
1860}#
- #{e2
1861}#))
- #{w 1766}#
- #{mod 1769}#))
- #{s 1767}#)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+
build-global-assignment
+ build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}#
+ #{x 20313}#
+ '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ 'expand
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e 20305}#
+ (#{wrap 4338}#
+ #{x 20313}#
+ #{w 20307}#
+ #f)))))))
+ #{situations 20312}#))))))
+ (#{f 20308}# #{when-list 20306}# '()))))
+ (#{syntax-type 4344}#
+ (lambda (#{e 20516}#
+ #{r 20517}#
+ #{w 20518}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#
+ #{for-car? 20522}#)
+ (if (symbol? #{e 20516}#)
+ (let ((#{n 20523}#
+ (#{id-var-name 4332}# #{e 20516}# #{w 20518}#)))
+ (let ((#{b 20524}#
+ (let ((#{t 21099}# (assq #{n 20523}# #{r 20517}#)))
+ (if #{t 21099}#
+ (cdr #{t 21099}#)
+ (if (symbol? #{n 20523}#)
+ (let ((#{t 21104}#
+ (begin
+ (if (if (not #{mod 20521}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should
have a module"
+ #{n 20523}#))
+ (let ((#{v 21141}#
+ (module-variable
+ (if #{mod 20521}#
+ (resolve-module
+ (cdr #{mod 20521}#))
+ (current-module))
+ #{n 20523}#)))
+ (if #{v 21141}#
+ (if (variable-bound? #{v 21141}#)
+ (let ((#{val 21150}#
+ (variable-ref #{v 21141}#)))
+ (if (macro? #{val 21150}#)
+ (if (macro-type #{val 21150}#)
+ (cons (macro-type #{val 21150}#)
+ (macro-binding
+ #{val 21150}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 21104}# #{t 21104}# '(global)))
+ '(displaced-lexical))))))
+ (let ((#{type 20525}# (car #{b 20524}#)))
+ (if (let ((#{t 20559}# #{type 20525}#))
+ (eqv? #{t 20559}# 'lexical))
+ (values
+ #{type 20525}#
+ (cdr #{b 20524}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (let ((#{t 20716}# #{type 20525}#))
+ (eqv? #{t 20716}# 'global))
+ (values
+ #{type 20525}#
+ #{n 20523}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (let ((#{t 20842}# #{type 20525}#))
+ (eqv? #{t 20842}# 'macro))
+ (if #{for-car? 20522}#
+ (values
+ #{type 20525}#
+ (cdr #{b 20524}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (#{syntax-type 4344}#
+ (#{chi-macro 4348}#
+ (cdr #{b 20524}#)
+ #{e 20516}#
+ #{r 20517}#
+ #{w 20518}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#)
+ #{r 20517}#
+ '(())
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#
+ #f))
+ (values
+ #{type 20525}#
+ (cdr #{b 20524}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)))))))
+ (if (pair? #{e 20516}#)
+ (let ((#{first 21161}# (car #{e 20516}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4344}#
+ #{first 21161}#
+ #{r 20517}#
+ #{w 20518}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#
+ #t))
+ (lambda (#{ftype 21163}#
+ #{fval 21164}#
+ #{fe 21165}#
+ #{fw 21166}#
+ #{fs 21167}#
+ #{fmod 21168}#)
+ (if (eqv? #{ftype 21163}# 'lexical)
+ (values
+ 'lexical-call
+ #{fval 21164}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'global)
+ (values
+ 'global-call
+ (vector
+ 'syntax-object
+ #{fval 21164}#
+ #{w 20518}#
+ #{fmod 21168}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'macro)
+ (#{syntax-type 4344}#
+ (#{chi-macro 4348}#
+ #{fval 21164}#
+ #{e 20516}#
+ #{r 20517}#
+ #{w 20518}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#)
+ #{r 20517}#
+ '(())
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#
+ #{for-car? 20522}#)
+ (if (eqv? #{ftype 21163}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{fval 21164}#
+ #{e 20516}#
+ #{r 20517}#
+ #{w 20518}#))
+ (lambda (#{e 21189}#
+ #{r 21190}#
+ #{w 21191}#
+ #{s 21192}#
+ #{mod 21193}#)
+ (#{syntax-type 4344}#
+ #{e 21189}#
+ #{r 21190}#
+ #{w 21191}#
+ #{s 21192}#
+ #{rib 20520}#
+ #{mod 21193}#
+ #{for-car? 20522}#)))
+ (if (eqv? #{ftype 21163}# 'core)
+ (values
+ 'core-form
+ #{fval 21164}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'local-syntax)
+ (values
+ 'local-syntax-form
+ #{fval 21164}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'begin)
+ (values
+ 'begin-form
+ #f
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'eval-when)
+ (values
+ 'eval-when-form
+ #f
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'define)
+ (let ((#{tmp 21210}#
+ ($sc-dispatch
+ #{e 20516}#
+ '(_ any any))))
+ (if (if #{tmp 21210}#
+ (@apply
+ (lambda (#{name 21214}#
+ #{val 21215}#)
+ (if (symbol? #{name 21214}#)
+ #t
+ (if (if (vector?
+ #{name 21214}#)
+ (if (= (vector-length
+ #{name 21214}#)
+ 4)
+ (eq? (vector-ref
+ #{name 21214}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21214}#
+ 1))
+ #f)))
+ #{tmp 21210}#)
+ #f)
+ (@apply
+ (lambda (#{name 21242}# #{val 21243}#)
+ (values
+ 'define-form
+ #{name 21242}#
+ #{val 21243}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#))
+ #{tmp 21210}#)
+ (let ((#{tmp 21244}#
+ ($sc-dispatch
+ #{e 20516}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp 21244}#
+ (@apply
+ (lambda (#{name 21248}#
+ #{args 21249}#
+ #{e1 21250}#
+ #{e2 21251}#)
+ (if (if (symbol?
+ #{name 21248}#)
+ #t
+ (if (if (vector?
+ #{name
21248}#)
+ (if (=
(vector-length
+ #{name
21248}#)
+ 4)
+ (eq?
(vector-ref
+ #{name
21248}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21248}#
+ 1))
+ #f))
+ (#{valid-bound-ids? 4335}#
+ (letrec*
+ ((#{lvl 21400}#
+ (lambda (#{vars
21402}#
+ #{ls
21403}#
+ #{w
21404}#)
+ (if (pair?
#{vars 21402}#)
+ (#{lvl 21400}#
+ (cdr #{vars
21402}#)
+ (cons
(#{wrap 4338}#
+ (car
#{vars 21402}#)
+ #{w
21404}#
+ #f)
+ #{ls
21403}#)
+ #{w 21404}#)
+ (if (if
(symbol?
+
#{vars 21402}#)
+ #t
+ (if (if
(vector?
+
#{vars 21402}#)
+
(if (= (vector-length
+
#{vars 21402}#)
+
4)
+
(eq? (vector-ref
+
#{vars 21402}#
+
0)
+
'syntax-object)
+
#f)
+ #f)
+
(symbol?
+
(vector-ref
+
#{vars 21402}#
+ 1))
+ #f))
+ (cons
(#{wrap 4338}#
+
#{vars 21402}#
+ #{w
21404}#
+ #f)
+ #{ls
21403}#)
+ (if (null?
#{vars 21402}#)
+ #{ls
21403}#
+ (if (if
(vector?
+
#{vars 21402}#)
+ (if
(= (vector-length
+
#{vars 21402}#)
+
4)
+
(eq? (vector-ref
+
#{vars 21402}#
+
0)
+
'syntax-object)
+ #f)
+ #f)
+ (#{lvl
21400}#
+
(vector-ref
+
#{vars 21402}#
+ 1)
+ #{ls
21403}#
+
(#{join-wraps 4329}#
+ #{w
21404}#
+
(vector-ref
+
#{vars 21402}#
+
2)))
+ (cons
#{vars 21402}#
+
#{ls 21403}#))))))))
+ (#{lvl 21400}#
+ #{args 21249}#
+ '()
+ '(()))))
+ #f))
+ #{tmp 21244}#)
+ #f)
+ (@apply
+ (lambda (#{name 21448}#
+ #{args 21449}#
+ #{e1 21450}#
+ #{e2 21451}#)
+ (values
+ 'define-form
+ (#{wrap 4338}#
+ #{name 21448}#
+ #{w 20518}#
+ #{mod 20521}#)
+ (let ((#{e 21457}#
+ (cons '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i1855"
+ "i1856"
+ "i1857"
+
"i1858"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1808"
+ "i1809"
+ "i1810"
+ "i1811"
+ "i1812"
+
"i1813"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+
#("i1800"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+
for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1772"
+ "i1773"
+ "i1774"
+ "i1775"
+ "i1776"
+ "i1777"
+
"i1778"))
+ #(ribcage
+
(lambda-var-list
+ gen-var
+ strip
+
chi-lambda-case
+
lambda*-formals
+
chi-simple-lambda
+
lambda-formals
+
ellipsis?
+ chi-void
+
eval-local-transformer
+
chi-local-syntax
+ chi-body
+
chi-macro
+
chi-application
+ chi-expr
+ chi
+
syntax-type
+
chi-when-list
+
chi-install-global
+
chi-top-sequence
+
chi-sequence
+
source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+
bound-id=?
+
free-id=?
+
id-var-name
+
same-marks?
+
join-marks
+
join-wraps
+
smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+ new-mark
+
anti-mark
+
the-anti-mark
+
top-marked?
+ top-wrap
+
empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+
ribcage-marks
+
ribcage-symnames
+ ribcage?
+
make-ribcage
+
gen-labels
+
gen-label
+
make-rename
+
rename-marks
+
rename-new
+
rename-old
+
subst-rename?
+
wrap-subst
+
wrap-marks
+
make-wrap
+
id-sym-name&marks
+
id-sym-name
+ id?
+
nonsymbol-id?
+
global-extend
+ lookup
+
macros-only-env
+
extend-var-env
+
extend-env
+ null-env
+
binding-value
+
binding-type
+
make-binding
+
arg-check
+
source-annotation
+
no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+
build-letrec
+
build-named-let
+
build-let
+
build-sequence
+
build-data
+
build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+
build-dynlet
+
build-conditional
+
build-application
+
build-void
+
maybe-name-value!
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+
gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+
lambda-meta
+ lambda?
+
make-dynlet
+
make-letrec
+ make-let
+
make-lambda-case
+
make-lambda
+
make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+
make-module-set
+
make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+
make-const
+
make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene
+ guile))
+ (#{wrap 4338}#
+ (cons #{args
21449}#
+ (cons
#{e1 21450}#
+
#{e2 21451}#))
+ #{w 20518}#
+ #{mod
20521}#))))
+ (begin
+ (if (if (pair? #{e
21457}#)
+ #{s 20519}#
+ #f)
+ (set-source-properties!
+ #{e 21457}#
+ #{s 20519}#))
+ #{e 21457}#))
'(())
- #{s 1767}#
- #{mod 1769}#))
- #{tmp 1843}#)
- (let ((#{tmp 1864}#
+ #{s 20519}#
+ #{mod 20521}#))
+ #{tmp 21244}#)
+ (let ((#{tmp 21464}#
($sc-dispatch
- #{e 1764}#
+ #{e 20516}#
'(_ any))))
- (if (if #{tmp 1864}#
+ (if (if #{tmp 21464}#
(@apply
- (lambda (#{name 1866}#)
- (#{id? 349}#
- #{name 1866}#))
- #{tmp 1864}#)
+ (lambda (#{name 21468}#)
+ (if (symbol?
+ #{name 21468}#)
+ #t
+ (if (if (vector?
+ #{name
21468}#)
+ (if (=
(vector-length
+ #{name
21468}#)
+ 4)
+ (eq?
(vector-ref
+ #{name
21468}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21468}#
+ 1))
+ #f)))
+ #{tmp 21464}#)
#f)
(@apply
- (lambda (#{name 1868}#)
+ (lambda (#{name 21495}#)
(values
'define-form
- (#{wrap 423}#
- #{name 1868}#
- #{w 1766}#
- #{mod 1769}#)
+ (#{wrap 4338}#
+ #{name 21495}#
+ #{w 20518}#
+ #{mod 20521}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1867"))
+ #("i1868"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3874,17 +11165,17 @@
(top)
(top)
(top))
- #("i1807"
- "i1808"
+ #("i1808"
"i1809"
"i1810"
"i1811"
- "i1812"))
+ "i1812"
+ "i1813"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1799"))
+ #("i1800"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3903,13 +11194,13 @@
(top)
(top)
(top))
- #("i1771"
- "i1772"
+ #("i1772"
"i1773"
"i1774"
"i1775"
"i1776"
- "i1777"))
+ "i1777"
+ "i1778"))
#(ribcage
(lambda-var-list
gen-var
@@ -4183,150 +11474,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
#(syntax-object
#f
@@ -4334,7 +11625,7 @@
#(ribcage
#(name)
#((top))
- #("i1867"))
+ #("i1868"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -4350,17 +11641,17 @@
(top)
(top)
(top))
- #("i1807"
- "i1808"
+ #("i1808"
"i1809"
"i1810"
"i1811"
- "i1812"))
+ "i1812"
+ "i1813"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1799"))
+ #("i1800"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -4379,13 +11670,13 @@
(top)
(top)
(top))
- #("i1771"
- "i1772"
+ #("i1772"
"i1773"
"i1774"
"i1775"
"i1776"
- "i1777"))
+ "i1777"
+ "i1778"))
#(ribcage
(lambda-var-list
gen-var
@@ -4659,150 +11950,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
#(syntax-object
#f
@@ -4810,7 +12101,7 @@
#(ribcage
#(name)
#((top))
- #("i1867"))
+ #("i1868"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -4826,17 +12117,17 @@
(top)
(top)
(top))
- #("i1807"
- "i1808"
+ #("i1808"
"i1809"
"i1810"
"i1811"
- "i1812"))
+ "i1812"
+ "i1813"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1799"))
+ #("i1800"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -4855,13 +12146,13 @@
(top)
(top)
(top))
- #("i1771"
- "i1772"
+ #("i1772"
"i1773"
"i1774"
"i1775"
"i1776"
- "i1777"))
+ "i1777"
+ "i1778"))
#(ribcage
(lambda-var-list
gen-var
@@ -5135,1523 +12426,3526 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile)))
'(())
- #{s 1767}#
- #{mod 1769}#))
- #{tmp 1864}#)
+ #{s 20519}#
+ #{mod 20521}#))
+ #{tmp 21464}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e 1764}#)))))))
- (if (memv #{ftype 1801}# '(define-syntax))
- (let ((#{tmp 1872}#
+ #{e 20516}#)))))))
+ (if (eqv? #{ftype 21163}# 'define-syntax)
+ (let ((#{tmp 21514}#
($sc-dispatch
- #{e 1764}#
+ #{e 20516}#
'(_ any any))))
- (if (if #{tmp 1872}#
+ (if (if #{tmp 21514}#
(@apply
- (lambda (#{name 1875}#
- #{val 1876}#)
- (#{id? 349}# #{name 1875}#))
- #{tmp 1872}#)
+ (lambda (#{name 21518}#
+ #{val 21519}#)
+ (if (symbol? #{name 21518}#)
+ #t
+ (if (if (vector?
+ #{name 21518}#)
+ (if (= (vector-length
+ #{name
21518}#)
+ 4)
+ (eq? (vector-ref
+ #{name
21518}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21518}#
+ 1))
+ #f)))
+ #{tmp 21514}#)
#f)
(@apply
- (lambda (#{name 1879}# #{val 1880}#)
+ (lambda (#{name 21546}#
+ #{val 21547}#)
(values
'define-syntax-form
- #{name 1879}#
- #{val 1880}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#))
- #{tmp 1872}#)
+ #{name 21546}#
+ #{val 21547}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#))
+ #{tmp 21514}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{e 1764}#)))
+ #{e 20516}#)))
(values
'call
#f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#))))))))))))))
- (if (#{syntax-object? 312}# #{e 1764}#)
- (#{syntax-type 435}#
- (#{syntax-object-expression 314}# #{e 1764}#)
- #{r 1765}#
- (#{join-wraps 405}#
- #{w 1766}#
- (#{syntax-object-wrap 316}# #{e 1764}#))
- (let ((#{t 1886}#
- (#{source-annotation 327}# #{e 1764}#)))
- (if #{t 1886}# #{t 1886}# #{s 1767}#))
- #{rib 1768}#
- (let ((#{t 1890}#
- (#{syntax-object-module 318}# #{e 1764}#)))
- (if #{t 1890}# #{t 1890}# #{mod 1769}#))
- #{for-car? 1770}#)
- (if (self-evaluating? #{e 1764}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#))))))))))))))
+ (if (if (vector? #{e 20516}#)
+ (if (= (vector-length #{e 20516}#) 4)
+ (eq? (vector-ref #{e 20516}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{syntax-type 4344}#
+ (vector-ref #{e 20516}# 1)
+ #{r 20517}#
+ (#{join-wraps 4329}#
+ #{w 20518}#
+ (vector-ref #{e 20516}# 2))
+ (let ((#{t 21574}#
+ (#{source-annotation 4306}# #{e 20516}#)))
+ (if #{t 21574}# #{t 21574}# #{s 20519}#))
+ #{rib 20520}#
+ (let ((#{t 21834}# (vector-ref #{e 20516}# 3)))
+ (if #{t 21834}# #{t 21834}# #{mod 20521}#))
+ #{for-car? 20522}#)
+ (if (self-evaluating? #{e 20516}#)
(values
'constant
#f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
(values
'other
#f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)))))))
- (#{chi 437}#
- (lambda (#{e 1895}# #{r 1896}# #{w 1897}# #{mod 1898}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)))))))
+ (#{chi 4345}#
+ (lambda (#{e 21843}#
+ #{r 21844}#
+ #{w 21845}#
+ #{mod 21846}#)
(call-with-values
(lambda ()
- (#{syntax-type 435}#
- #{e 1895}#
- #{r 1896}#
- #{w 1897}#
- (#{source-annotation 327}# #{e 1895}#)
+ (#{syntax-type 4344}#
+ #{e 21843}#
+ #{r 21844}#
+ #{w 21845}#
+ (#{source-annotation 4306}# #{e 21843}#)
#f
- #{mod 1898}#
+ #{mod 21846}#
#f))
- (lambda (#{type 1903}#
- #{value 1904}#
- #{e 1905}#
- #{w 1906}#
- #{s 1907}#
- #{mod 1908}#)
- (#{chi-expr 439}#
- #{type 1903}#
- #{value 1904}#
- #{e 1905}#
- #{r 1896}#
- #{w 1906}#
- #{s 1907}#
- #{mod 1908}#)))))
- (#{chi-expr 439}#
- (lambda (#{type 1915}#
- #{value 1916}#
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(lexical))
- (#{build-lexical-reference 277}#
- 'value
- #{s 1920}#
- #{e 1917}#
- #{value 1916}#)
- (if (memv #{type 1915}# '(core core-form))
- (#{value 1916}#
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(module-ref))
+ (lambda (#{type 22020}#
+ #{value 22021}#
+ #{e 22022}#
+ #{w 22023}#
+ #{s 22024}#
+ #{mod 22025}#)
+ (#{chi-expr 4346}#
+ #{type 22020}#
+ #{value 22021}#
+ #{e 22022}#
+ #{r 21844}#
+ #{w 22023}#
+ #{s 22024}#
+ #{mod 22025}#)))))
+ (#{chi-expr 4346}#
+ (lambda (#{type 22028}#
+ #{value 22029}#
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'lexical)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{s 22033}#
+ #{e 22030}#
+ #{value 22029}#)
+ (if (if (eqv? #{type 22028}# 'core)
+ #t
+ (eqv? #{type 22028}# 'core-form))
+ (#{value 22029}#
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 1916}# #{e 1917}# #{r 1918}# #{w 1919}#))
- (lambda (#{e 1932}#
- #{r 1933}#
- #{w 1934}#
- #{s 1935}#
- #{mod 1936}#)
- (#{chi 437}#
- #{e 1932}#
- #{r 1933}#
- #{w 1934}#
- #{mod 1936}#)))
- (if (memv #{type 1915}# '(lexical-call))
- (#{chi-application 441}#
- (let ((#{id 1944}# (car #{e 1917}#)))
- (#{build-lexical-reference 277}#
+ (#{value 22029}#
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#))
+ (lambda (#{e 22060}#
+ #{r 22061}#
+ #{w 22062}#
+ #{s 22063}#
+ #{mod 22064}#)
+ (#{chi 4345}#
+ #{e 22060}#
+ #{r 22061}#
+ #{w 22062}#
+ #{mod 22064}#)))
+ (if (eqv? #{type 22028}# 'lexical-call)
+ (#{chi-application 4347}#
+ (let ((#{id 22144}# (car #{e 22030}#)))
+ (#{build-lexical-reference 4283}#
'fun
- (#{source-annotation 327}# #{id 1944}#)
- (if (#{syntax-object? 312}# #{id 1944}#)
- (syntax->datum #{id 1944}#)
- #{id 1944}#)
- #{value 1916}#))
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(global-call))
- (#{chi-application 441}#
- (#{build-global-reference 283}#
- (#{source-annotation 327}# (car #{e 1917}#))
- (if (#{syntax-object? 312}# #{value 1916}#)
- (#{syntax-object-expression 314}# #{value 1916}#)
- #{value 1916}#)
- (if (#{syntax-object? 312}# #{value 1916}#)
- (#{syntax-object-module 318}# #{value 1916}#)
- #{mod 1921}#))
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(constant))
- (#{build-data 297}#
- #{s 1920}#
- (#{strip 463}#
- (#{source-wrap 425}#
- #{e 1917}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- '(())))
- (if (memv #{type 1915}# '(global))
- (#{build-global-reference 283}#
- #{s 1920}#
- #{value 1916}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(call))
- (#{chi-application 441}#
- (#{chi 437}#
- (car #{e 1917}#)
- #{r 1918}#
- #{w 1919}#
- #{mod 1921}#)
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(begin-form))
- (let ((#{tmp 1952}#
+ (#{source-annotation 4306}# #{id 22144}#)
+ (if (if (vector? #{id 22144}#)
+ (if (= (vector-length #{id 22144}#) 4)
+ (eq? (vector-ref #{id 22144}# 0) 'syntax-object)
+ #f)
+ #f)
+ (syntax->datum #{id 22144}#)
+ #{id 22144}#)
+ #{value 22029}#))
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'global-call)
+ (#{chi-application 4347}#
+ (#{build-global-reference 4286}#
+ (#{source-annotation 4306}# (car #{e 22030}#))
+ (if (if (vector? #{value 22029}#)
+ (if (= (vector-length #{value 22029}#) 4)
+ (eq? (vector-ref #{value 22029}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{value 22029}# 1)
+ #{value 22029}#)
+ (if (if (vector? #{value 22029}#)
+ (if (= (vector-length #{value 22029}#) 4)
+ (eq? (vector-ref #{value 22029}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{value 22029}# 3)
+ #{mod 22034}#))
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'constant)
+ (let ((#{exp 22680}#
+ (#{strip 4358}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 22030}#) #{s 22033}# #f)
+ (set-source-properties!
+ #{e 22030}#
+ #{s 22033}#))
+ #{e 22030}#)
+ #{w 22032}#
+ #{mod 22034}#)
+ '(()))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{s 22033}#
+ #{exp 22680}#))
+ (if (eqv? #{type 22028}# 'global)
+ (#{analyze-variable 4285}#
+ #{mod 22034}#
+ #{value 22029}#
+ (lambda (#{mod 22716}# #{var 22717}# #{public? 22718}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #{s 22033}#
+ #{mod 22716}#
+ #{var 22717}#
+ #{public? 22718}#))
+ (lambda (#{var 22727}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #{s 22033}#
+ #{var 22727}#)))
+ (if (eqv? #{type 22028}# 'call)
+ (#{chi-application 4347}#
+ (#{chi 4345}#
+ (car #{e 22030}#)
+ #{r 22031}#
+ #{w 22032}#
+ #{mod 22034}#)
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'begin-form)
+ (let ((#{tmp 22807}#
($sc-dispatch
- #{e 1917}#
+ #{e 22030}#
'(_ any . each-any))))
- (if #{tmp 1952}#
+ (if #{tmp 22807}#
(@apply
- (lambda (#{e1 1955}# #{e2 1956}#)
- (#{chi-sequence 427}#
- (cons #{e1 1955}# #{e2 1956}#)
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#))
- #{tmp 1952}#)
+ (lambda (#{e1 22811}# #{e2 22812}#)
+ (#{chi-sequence 4340}#
+ (cons #{e1 22811}# #{e2 22812}#)
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#))
+ #{tmp 22807}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1917}#)))
- (if (memv #{type 1915}# '(local-syntax-form))
- (#{chi-local-syntax 447}#
- #{value 1916}#
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#
- #{chi-sequence 427}#)
- (if (memv #{type 1915}# '(eval-when-form))
- (let ((#{tmp 1961}#
+ #{e 22030}#)))
+ (if (eqv? #{type 22028}# 'local-syntax-form)
+ (#{chi-local-syntax 4350}#
+ #{value 22029}#
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#
+ #{chi-sequence 4340}#)
+ (if (eqv? #{type 22028}# 'eval-when-form)
+ (let ((#{tmp 22978}#
($sc-dispatch
- #{e 1917}#
+ #{e 22030}#
'(_ each-any any . each-any))))
- (if #{tmp 1961}#
+ (if #{tmp 22978}#
(@apply
- (lambda (#{x 1965}# #{e1 1966}# #{e2 1967}#)
- (let ((#{when-list 1969}#
- (#{chi-when-list 433}#
- #{e 1917}#
- #{x 1965}#
- #{w 1919}#)))
- (if (memq 'eval #{when-list 1969}#)
- (#{chi-sequence 427}#
- (cons #{e1 1966}# #{e2 1967}#)
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (#{chi-void 451}#))))
- #{tmp 1961}#)
+ (lambda (#{x 22982}#
+ #{e1 22983}#
+ #{e2 22984}#)
+ (let ((#{when-list 22985}#
+ (#{chi-when-list 4343}#
+ #{e 22030}#
+ #{x 22982}#
+ #{w 22032}#)))
+ (if (memq 'eval #{when-list 22985}#)
+ (#{chi-sequence 4340}#
+ (cons #{e1 22983}# #{e2 22984}#)
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f))))
+ #{tmp 22978}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 1917}#)))
- (if (memv #{type 1915}#
- '(define-form define-syntax-form))
+ #{e 22030}#)))
+ (if (if (eqv? #{type 22028}# 'define-form)
+ #t
+ (eqv? #{type 22028}# 'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 1917}#
- (#{wrap 423}#
- #{value 1916}#
- #{w 1919}#
- #{mod 1921}#))
- (if (memv #{type 1915}# '(syntax))
+ #{e 22030}#
+ (#{wrap 4338}#
+ #{value 22029}#
+ #{w 22032}#
+ #{mod 22034}#))
+ (if (eqv? #{type 22028}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside
syntax form"
- (#{source-wrap 425}#
- #{e 1917}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#))
- (if (memv #{type 1915}# '(displaced-lexical))
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 22030}#)
+ #{s 22033}#
+ #f)
+ (set-source-properties!
+ #{e 22030}#
+ #{s 22033}#))
+ #{e 22030}#)
+ #{w 22032}#
+ #{mod 22034}#))
+ (if (eqv? #{type 22028}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its
scope"
- (#{source-wrap 425}#
- #{e 1917}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#))
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 22030}#)
+ #{s 22033}#
+ #f)
+ (set-source-properties!
+ #{e 22030}#
+ #{s 22033}#))
+ #{e 22030}#)
+ #{w 22032}#
+ #{mod 22034}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap 425}#
- #{e 1917}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#))))))))))))))))))
- (#{chi-application 441}#
- (lambda (#{x 1976}#
- #{e 1977}#
- #{r 1978}#
- #{w 1979}#
- #{s 1980}#
- #{mod 1981}#)
- (let ((#{tmp 1989}#
- ($sc-dispatch #{e 1977}# '(any . each-any))))
- (if #{tmp 1989}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 22030}#)
+ #{s 22033}#
+ #f)
+ (set-source-properties!
+ #{e 22030}#
+ #{s 22033}#))
+ #{e 22030}#)
+ #{w 22032}#
+ #{mod 22034}#))))))))))))))))))
+ (#{chi-application 4347}#
+ (lambda (#{x 23174}#
+ #{e 23175}#
+ #{r 23176}#
+ #{w 23177}#
+ #{s 23178}#
+ #{mod 23179}#)
+ (let ((#{tmp 23181}#
+ ($sc-dispatch #{e 23175}# '(any . each-any))))
+ (if #{tmp 23181}#
(@apply
- (lambda (#{e0 1992}# #{e1 1993}#)
- (#{build-application 271}#
- #{s 1980}#
- #{x 1976}#
- (map (lambda (#{e 1994}#)
- (#{chi 437}#
- #{e 1994}#
- #{r 1978}#
- #{w 1979}#
- #{mod 1981}#))
- #{e1 1993}#)))
- #{tmp 1989}#)
+ (lambda (#{e0 23185}# #{e1 23186}#)
+ (#{build-application 4280}#
+ #{s 23178}#
+ #{x 23174}#
+ (map (lambda (#{e 23271}#)
+ (#{chi 4345}#
+ #{e 23271}#
+ #{r 23176}#
+ #{w 23177}#
+ #{mod 23179}#))
+ #{e1 23186}#)))
+ #{tmp 23181}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1977}#)))))
- (#{chi-macro 443}#
- (lambda (#{p 1997}#
- #{e 1998}#
- #{r 1999}#
- #{w 2000}#
- #{s 2001}#
- #{rib 2002}#
- #{mod 2003}#)
+ #{e 23175}#)))))
+ (#{chi-macro 4348}#
+ (lambda (#{p 23352}#
+ #{e 23353}#
+ #{r 23354}#
+ #{w 23355}#
+ #{s 23356}#
+ #{rib 23357}#
+ #{mod 23358}#)
(letrec*
- ((#{rebuild-macro-output 2012}#
- (lambda (#{x 2013}# #{m 2014}#)
- (if (pair? #{x 2013}#)
- (#{decorate-source 265}#
- (cons (#{rebuild-macro-output 2012}#
- (car #{x 2013}#)
- #{m 2014}#)
- (#{rebuild-macro-output 2012}#
- (cdr #{x 2013}#)
- #{m 2014}#))
- #{s 2001}#)
- (if (#{syntax-object? 312}# #{x 2013}#)
- (let ((#{w 2022}#
- (#{syntax-object-wrap 316}# #{x 2013}#)))
- (let ((#{ms 2025}# (car #{w 2022}#))
- (#{s 2026}# (cdr #{w 2022}#)))
- (if (if (pair? #{ms 2025}#)
- (eq? (car #{ms 2025}#) #f)
+ ((#{rebuild-macro-output 23359}#
+ (lambda (#{x 23390}# #{m 23391}#)
+ (if (pair? #{x 23390}#)
+ (let ((#{e 23395}#
+ (cons (#{rebuild-macro-output 23359}#
+ (car #{x 23390}#)
+ #{m 23391}#)
+ (#{rebuild-macro-output 23359}#
+ (cdr #{x 23390}#)
+ #{m 23391}#))))
+ (begin
+ (if (if (pair? #{e 23395}#) #{s 23356}# #f)
+ (set-source-properties! #{e 23395}# #{s 23356}#))
+ #{e 23395}#))
+ (if (if (vector? #{x 23390}#)
+ (if (= (vector-length #{x 23390}#) 4)
+ (eq? (vector-ref #{x 23390}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{w 23411}# (vector-ref #{x 23390}# 2)))
+ (let ((#{ms 23412}# (car #{w 23411}#))
+ (#{s 23413}# (cdr #{w 23411}#)))
+ (if (if (pair? #{ms 23412}#)
+ (eq? (car #{ms 23412}#) #f)
#f)
- (#{make-syntax-object 310}#
- (#{syntax-object-expression 314}# #{x 2013}#)
- (cons (cdr #{ms 2025}#)
- (if #{rib 2002}#
- (cons #{rib 2002}# (cdr #{s 2026}#))
- (cdr #{s 2026}#)))
- (#{syntax-object-module 318}# #{x 2013}#))
- (#{make-syntax-object 310}#
- (#{decorate-source 265}#
- (#{syntax-object-expression 314}# #{x 2013}#)
- #{s 2026}#)
- (cons (cons #{m 2014}# #{ms 2025}#)
- (if #{rib 2002}#
- (cons #{rib 2002}# (cons 'shift #{s 2026}#))
- (cons 'shift #{s 2026}#)))
- (#{syntax-object-module 318}# #{x 2013}#)))))
- (if (vector? #{x 2013}#)
- (let ((#{n 2038}# (vector-length #{x 2013}#)))
- (let ((#{v 2040}#
- (#{decorate-source 265}#
- (make-vector #{n 2038}#)
- #{x 2013}#)))
+ (let ((#{expression 23421}# (vector-ref #{x 23390}# 1))
+ (#{wrap 23422}#
+ (cons (cdr #{ms 23412}#)
+ (if #{rib 23357}#
+ (cons #{rib 23357}# (cdr #{s 23413}#))
+ (cdr #{s 23413}#))))
+ (#{module 23423}# (vector-ref #{x 23390}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 23421}#
+ #{wrap 23422}#
+ #{module 23423}#))
+ (let ((#{expression 23433}#
+ (let ((#{e 23438}# (vector-ref #{x 23390}# 1)))
+ (begin
+ (if (if (pair? #{e 23438}#) #{s 23413}# #f)
+ (set-source-properties!
+ #{e 23438}#
+ #{s 23413}#))
+ #{e 23438}#)))
+ (#{wrap 23434}#
+ (cons (cons #{m 23391}# #{ms 23412}#)
+ (if #{rib 23357}#
+ (cons #{rib 23357}#
+ (cons 'shift #{s 23413}#))
+ (cons 'shift #{s 23413}#))))
+ (#{module 23435}# (vector-ref #{x 23390}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 23433}#
+ #{wrap 23434}#
+ #{module 23435}#)))))
+ (if (vector? #{x 23390}#)
+ (let ((#{n 23450}# (vector-length #{x 23390}#)))
+ (let ((#{v 23451}#
+ (let ((#{e 23459}# (make-vector #{n 23450}#)))
+ (begin
+ (if (if (pair? #{e 23459}#) #{x 23390}# #f)
+ (set-source-properties!
+ #{e 23459}#
+ #{x 23390}#))
+ #{e 23459}#))))
(letrec*
- ((#{loop 2043}#
- (lambda (#{i 2044}#)
- (if (= #{i 2044}# #{n 2038}#)
- #{v 2040}#
+ ((#{loop 23452}#
+ (lambda (#{i 23504}#)
+ (if (= #{i 23504}# #{n 23450}#)
+ #{v 23451}#
(begin
(vector-set!
- #{v 2040}#
- #{i 2044}#
- (#{rebuild-macro-output 2012}#
- (vector-ref #{x 2013}# #{i 2044}#)
- #{m 2014}#))
- (#{loop 2043}# (#{1+}# #{i 2044}#)))))))
- (#{loop 2043}# 0))))
- (if (symbol? #{x 2013}#)
+ #{v 23451}#
+ #{i 23504}#
+ (#{rebuild-macro-output 23359}#
+ (vector-ref #{x 23390}# #{i 23504}#)
+ #{m 23391}#))
+ (#{loop 23452}# (#{1+}# #{i 23504}#)))))))
+ (#{loop 23452}# 0))))
+ (if (symbol? #{x 23390}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap 425}#
- #{e 1998}#
- #{w 2000}#
- (cdr #{w 2000}#)
- #{mod 2003}#)
- #{x 2013}#)
- (#{decorate-source 265}# #{x 2013}# #{s 2001}#))))))))
- (#{rebuild-macro-output 2012}#
- (#{p 1997}#
- (#{source-wrap 425}#
- #{e 1998}#
- (#{anti-mark 393}# #{w 2000}#)
- #{s 2001}#
- #{mod 2003}#))
+ (let ((#{s 23510}# (cdr #{w 23355}#)))
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 23353}#) #{s 23510}# #f)
+ (set-source-properties!
+ #{e 23353}#
+ #{s 23510}#))
+ #{e 23353}#)
+ #{w 23355}#
+ #{mod 23358}#))
+ #{x 23390}#)
+ (begin
+ (if (if (pair? #{x 23390}#) #{s 23356}# #f)
+ (set-source-properties! #{x 23390}# #{s 23356}#))
+ #{x 23390}#))))))))
+ (#{rebuild-macro-output 23359}#
+ (#{p 23352}#
+ (let ((#{w 23366}#
+ (cons (cons #f (car #{w 23355}#))
+ (cons 'shift (cdr #{w 23355}#)))))
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 23353}#) #{s 23356}# #f)
+ (set-source-properties! #{e 23353}# #{s 23356}#))
+ #{e 23353}#)
+ #{w 23366}#
+ #{mod 23358}#)))
(gensym "m")))))
- (#{chi-body 445}#
- (lambda (#{body 2054}#
- #{outer-form 2055}#
- #{r 2056}#
- #{w 2057}#
- #{mod 2058}#)
- (let ((#{r 2066}#
- (cons '("placeholder" placeholder) #{r 2056}#)))
- (let ((#{ribcage 2068}#
- (#{make-ribcage 372}# '() '() '())))
- (let ((#{w 2071}#
- (cons (car #{w 2057}#)
- (cons #{ribcage 2068}# (cdr #{w 2057}#)))))
+ (#{chi-body 4349}#
+ (lambda (#{body 23542}#
+ #{outer-form 23543}#
+ #{r 23544}#
+ #{w 23545}#
+ #{mod 23546}#)
+ (let ((#{r 23547}#
+ (cons '("placeholder" placeholder) #{r 23544}#)))
+ (let ((#{ribcage 23548}# (vector 'ribcage '() '() '())))
+ (let ((#{w 23549}#
+ (cons (car #{w 23545}#)
+ (cons #{ribcage 23548}# (cdr #{w 23545}#)))))
(letrec*
- ((#{parse 2083}#
- (lambda (#{body 2084}#
- #{ids 2085}#
- #{labels 2086}#
- #{var-ids 2087}#
- #{vars 2088}#
- #{vals 2089}#
- #{bindings 2090}#)
- (if (null? #{body 2084}#)
+ ((#{parse 23550}#
+ (lambda (#{body 23563}#
+ #{ids 23564}#
+ #{labels 23565}#
+ #{var-ids 23566}#
+ #{vars 23567}#
+ #{vals 23568}#
+ #{bindings 23569}#)
+ (if (null? #{body 23563}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 2055}#)
- (let ((#{e 2095}# (cdr (car #{body 2084}#)))
- (#{er 2096}# (car (car #{body 2084}#))))
+ #{outer-form 23543}#)
+ (let ((#{e 23570}# (cdr (car #{body 23563}#)))
+ (#{er 23571}# (car (car #{body 23563}#))))
(call-with-values
(lambda ()
- (#{syntax-type 435}#
- #{e 2095}#
- #{er 2096}#
+ (#{syntax-type 4344}#
+ #{e 23570}#
+ #{er 23571}#
'(())
- (#{source-annotation 327}# #{er 2096}#)
- #{ribcage 2068}#
- #{mod 2058}#
+ (#{source-annotation 4306}# #{er 23571}#)
+ #{ribcage 23548}#
+ #{mod 23546}#
#f))
- (lambda (#{type 2098}#
- #{value 2099}#
- #{e 2100}#
- #{w 2101}#
- #{s 2102}#
- #{mod 2103}#)
- (if (memv #{type 2098}# '(define-form))
- (let ((#{id 2113}#
- (#{wrap 423}#
- #{value 2099}#
- #{w 2101}#
- #{mod 2103}#))
- (#{label 2114}# (#{gen-label 367}#)))
- (let ((#{var 2116}#
- (#{gen-var 465}# #{id 2113}#)))
+ (lambda (#{type 23747}#
+ #{value 23748}#
+ #{e 23749}#
+ #{w 23750}#
+ #{s 23751}#
+ #{mod 23752}#)
+ (if (eqv? #{type 23747}# 'define-form)
+ (let ((#{id 23756}#
+ (#{wrap 4338}#
+ #{value 23748}#
+ #{w 23750}#
+ #{mod 23752}#))
+ (#{label 23757}#
+ (symbol->string (gensym "i"))))
+ (let ((#{var 23758}#
+ (let ((#{id 23818}#
+ (if (if (vector? #{id 23756}#)
+ (if (= (vector-length
+ #{id 23756}#)
+ 4)
+ (eq? (vector-ref
+ #{id 23756}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 23756}# 1)
+ #{id 23756}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 23818}#)
+ " ")))))
(begin
- (#{extend-ribcage! 399}#
- #{ribcage 2068}#
- #{id 2113}#
- #{label 2114}#)
- (#{parse 2083}#
- (cdr #{body 2084}#)
- (cons #{id 2113}# #{ids 2085}#)
- (cons #{label 2114}# #{labels 2086}#)
- (cons #{id 2113}# #{var-ids 2087}#)
- (cons #{var 2116}# #{vars 2088}#)
- (cons (cons #{er 2096}#
- (#{wrap 423}#
- #{e 2100}#
- #{w 2101}#
- #{mod 2103}#))
- #{vals 2089}#)
- (cons (cons 'lexical #{var 2116}#)
- #{bindings 2090}#)))))
- (if (memv #{type 2098}# '(define-syntax-form))
- (let ((#{id 2121}#
- (#{wrap 423}#
- #{value 2099}#
- #{w 2101}#
- #{mod 2103}#))
- (#{label 2122}# (#{gen-label 367}#)))
+ (let ((#{update 23808}#
+ (cons (vector-ref #{id 23756}# 1)
+ (vector-ref
+ #{ribcage 23548}#
+ 1))))
+ (vector-set!
+ #{ribcage 23548}#
+ 1
+ #{update 23808}#))
+ (let ((#{update 23810}#
+ (cons (car (vector-ref
+ #{id 23756}#
+ 2))
+ (vector-ref
+ #{ribcage 23548}#
+ 2))))
+ (vector-set!
+ #{ribcage 23548}#
+ 2
+ #{update 23810}#))
+ (let ((#{update 23812}#
+ (cons #{label 23757}#
+ (vector-ref
+ #{ribcage 23548}#
+ 3))))
+ (vector-set!
+ #{ribcage 23548}#
+ 3
+ #{update 23812}#))
+ (#{parse 23550}#
+ (cdr #{body 23563}#)
+ (cons #{id 23756}# #{ids 23564}#)
+ (cons #{label 23757}# #{labels 23565}#)
+ (cons #{id 23756}# #{var-ids 23566}#)
+ (cons #{var 23758}# #{vars 23567}#)
+ (cons (cons #{er 23571}#
+ (#{wrap 4338}#
+ #{e 23749}#
+ #{w 23750}#
+ #{mod 23752}#))
+ #{vals 23568}#)
+ (cons (cons 'lexical #{var 23758}#)
+ #{bindings 23569}#)))))
+ (if (eqv? #{type 23747}# 'define-syntax-form)
+ (let ((#{id 23846}#
+ (#{wrap 4338}#
+ #{value 23748}#
+ #{w 23750}#
+ #{mod 23752}#))
+ (#{label 23847}#
+ (symbol->string (gensym "i"))))
(begin
- (#{extend-ribcage! 399}#
- #{ribcage 2068}#
- #{id 2121}#
- #{label 2122}#)
- (#{parse 2083}#
- (cdr #{body 2084}#)
- (cons #{id 2121}# #{ids 2085}#)
- (cons #{label 2122}# #{labels 2086}#)
- #{var-ids 2087}#
- #{vars 2088}#
- #{vals 2089}#
+ (let ((#{update 23897}#
+ (cons (vector-ref #{id 23846}# 1)
+ (vector-ref
+ #{ribcage 23548}#
+ 1))))
+ (vector-set!
+ #{ribcage 23548}#
+ 1
+ #{update 23897}#))
+ (let ((#{update 23899}#
+ (cons (car (vector-ref
+ #{id 23846}#
+ 2))
+ (vector-ref
+ #{ribcage 23548}#
+ 2))))
+ (vector-set!
+ #{ribcage 23548}#
+ 2
+ #{update 23899}#))
+ (let ((#{update 23901}#
+ (cons #{label 23847}#
+ (vector-ref
+ #{ribcage 23548}#
+ 3))))
+ (vector-set!
+ #{ribcage 23548}#
+ 3
+ #{update 23901}#))
+ (#{parse 23550}#
+ (cdr #{body 23563}#)
+ (cons #{id 23846}# #{ids 23564}#)
+ (cons #{label 23847}# #{labels 23565}#)
+ #{var-ids 23566}#
+ #{vars 23567}#
+ #{vals 23568}#
(cons (cons 'macro
- (cons #{er 2096}#
- (#{wrap 423}#
- #{e 2100}#
- #{w 2101}#
- #{mod 2103}#)))
- #{bindings 2090}#))))
- (if (memv #{type 2098}# '(begin-form))
- (let ((#{tmp 2126}#
+ (cons #{er 23571}#
+ (#{wrap 4338}#
+ #{e 23749}#
+ #{w 23750}#
+ #{mod 23752}#)))
+ #{bindings 23569}#))))
+ (if (eqv? #{type 23747}# 'begin-form)
+ (let ((#{tmp 23909}#
($sc-dispatch
- #{e 2100}#
+ #{e 23749}#
'(_ . each-any))))
- (if #{tmp 2126}#
+ (if #{tmp 23909}#
(@apply
- (lambda (#{e1 2128}#)
- (#{parse 2083}#
+ (lambda (#{e1 23913}#)
+ (#{parse 23550}#
(letrec*
- ((#{f 2131}#
- (lambda (#{forms 2132}#)
- (if (null? #{forms 2132}#)
- (cdr #{body 2084}#)
- (cons (cons #{er 2096}#
- (#{wrap 423}#
- (car
#{forms 2132}#)
- #{w 2101}#
- #{mod
2103}#))
- (#{f 2131}#
- (cdr #{forms
2132}#)))))))
- (#{f 2131}# #{e1 2128}#))
- #{ids 2085}#
- #{labels 2086}#
- #{var-ids 2087}#
- #{vars 2088}#
- #{vals 2089}#
- #{bindings 2090}#))
- #{tmp 2126}#)
+ ((#{f 23914}#
+ (lambda (#{forms 23977}#)
+ (if (null? #{forms 23977}#)
+ (cdr #{body 23563}#)
+ (cons (cons #{er 23571}#
+ (#{wrap 4338}#
+ (car
#{forms 23977}#)
+ #{w 23750}#
+ #{mod
23752}#))
+ (#{f 23914}#
+ (cdr #{forms
23977}#)))))))
+ (#{f 23914}# #{e1 23913}#))
+ #{ids 23564}#
+ #{labels 23565}#
+ #{var-ids 23566}#
+ #{vars 23567}#
+ #{vals 23568}#
+ #{bindings 23569}#))
+ #{tmp 23909}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 2100}#)))
- (if (memv #{type 2098}# '(local-syntax-form))
- (#{chi-local-syntax 447}#
- #{value 2099}#
- #{e 2100}#
- #{er 2096}#
- #{w 2101}#
- #{s 2102}#
- #{mod 2103}#
- (lambda (#{forms 2135}#
- #{er 2136}#
- #{w 2137}#
- #{s 2138}#
- #{mod 2139}#)
- (#{parse 2083}#
+ #{e 23749}#)))
+ (if (eqv? #{type 23747}# 'local-syntax-form)
+ (#{chi-local-syntax 4350}#
+ #{value 23748}#
+ #{e 23749}#
+ #{er 23571}#
+ #{w 23750}#
+ #{s 23751}#
+ #{mod 23752}#
+ (lambda (#{forms 23991}#
+ #{er 23992}#
+ #{w 23993}#
+ #{s 23994}#
+ #{mod 23995}#)
+ (#{parse 23550}#
(letrec*
- ((#{f 2147}#
- (lambda (#{forms 2148}#)
- (if (null? #{forms 2148}#)
- (cdr #{body 2084}#)
- (cons (cons #{er 2136}#
- (#{wrap 423}#
- (car #{forms
2148}#)
- #{w 2137}#
- #{mod 2139}#))
- (#{f 2147}#
- (cdr #{forms
2148}#)))))))
- (#{f 2147}# #{forms 2135}#))
- #{ids 2085}#
- #{labels 2086}#
- #{var-ids 2087}#
- #{vars 2088}#
- #{vals 2089}#
- #{bindings 2090}#)))
- (if (null? #{ids 2085}#)
- (#{build-sequence 299}#
+ ((#{f 23996}#
+ (lambda (#{forms 24059}#)
+ (if (null? #{forms 24059}#)
+ (cdr #{body 23563}#)
+ (cons (cons #{er 23992}#
+ (#{wrap 4338}#
+ (car #{forms
24059}#)
+ #{w 23993}#
+ #{mod
23995}#))
+ (#{f 23996}#
+ (cdr #{forms
24059}#)))))))
+ (#{f 23996}# #{forms 23991}#))
+ #{ids 23564}#
+ #{labels 23565}#
+ #{var-ids 23566}#
+ #{vars 23567}#
+ #{vals 23568}#
+ #{bindings 23569}#)))
+ (if (null? #{ids 23564}#)
+ (#{build-sequence 4294}#
#f
- (map (lambda (#{x 2151}#)
- (#{chi 437}#
- (cdr #{x 2151}#)
- (car #{x 2151}#)
+ (map (lambda (#{x 24129}#)
+ (#{chi 4345}#
+ (cdr #{x 24129}#)
+ (car #{x 24129}#)
'(())
- #{mod 2103}#))
- (cons (cons #{er 2096}#
- (#{source-wrap 425}#
- #{e 2100}#
- #{w 2101}#
- #{s 2102}#
- #{mod 2103}#))
- (cdr #{body 2084}#))))
+ #{mod 23752}#))
+ (cons (cons #{er 23571}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair?
#{e 23749}#)
+ #{s 23751}#
+ #f)
+
(set-source-properties!
+ #{e 23749}#
+ #{s 23751}#))
+ #{e 23749}#)
+ #{w 23750}#
+ #{mod 23752}#))
+ (cdr #{body 23563}#))))
(begin
- (if (not (#{valid-bound-ids? 417}#
- #{ids 2085}#))
+ (if (not (#{valid-bound-ids? 4335}#
+ #{ids 23564}#))
(syntax-violation
#f
"invalid or duplicate identifier
in definition"
- #{outer-form 2055}#))
+ #{outer-form 23543}#))
(letrec*
- ((#{loop 2158}#
- (lambda (#{bs 2159}#
- #{er-cache 2160}#
- #{r-cache 2161}#)
- (if (not (null? #{bs 2159}#))
- (let ((#{b 2164}#
- (car #{bs 2159}#)))
- (if (eq? (car #{b 2164}#)
+ ((#{loop 24291}#
+ (lambda (#{bs 24294}#
+ #{er-cache 24295}#
+ #{r-cache 24296}#)
+ (if (not (null? #{bs 24294}#))
+ (let ((#{b 24297}#
+ (car #{bs 24294}#)))
+ (if (eq? (car #{b 24297}#)
'macro)
- (let ((#{er 2167}#
- (car (cdr #{b
2164}#))))
- (let ((#{r-cache 2169}#
- (if (eq? #{er
2167}#
-
#{er-cache 2160}#)
- #{r-cache
2161}#
-
(#{macros-only-env 341}#
- #{er
2167}#))))
+ (let ((#{er 24299}#
+ (car (cdr #{b
24297}#))))
+ (let ((#{r-cache 24300}#
+ (if (eq? #{er
24299}#
+
#{er-cache 24295}#)
+ #{r-cache
24296}#
+
(#{macros-only-env 4309}#
+ #{er
24299}#))))
(begin
(set-cdr!
- #{b 2164}#
-
(#{eval-local-transformer 449}#
- (#{chi 437}#
- (cdr (cdr #{b
2164}#))
- #{r-cache
2169}#
+ #{b 24297}#
+
(#{eval-local-transformer 4351}#
+ (#{chi 4345}#
+ (cdr (cdr #{b
24297}#))
+ #{r-cache
24300}#
'(())
- #{mod 2103}#)
- #{mod 2103}#))
- (#{loop 2158}#
- (cdr #{bs 2159}#)
- #{er 2167}#
- #{r-cache
2169}#))))
- (#{loop 2158}#
- (cdr #{bs 2159}#)
- #{er-cache 2160}#
- #{r-cache 2161}#)))))))
- (#{loop 2158}#
- #{bindings 2090}#
+ #{mod 23752}#)
+ #{mod 23752}#))
+ (#{loop 24291}#
+ (cdr #{bs 24294}#)
+ #{er 24299}#
+ #{r-cache
24300}#))))
+ (#{loop 24291}#
+ (cdr #{bs 24294}#)
+ #{er-cache 24295}#
+ #{r-cache 24296}#)))))))
+ (#{loop 24291}#
+ #{bindings 23569}#
#f
#f))
(set-cdr!
- #{r 2066}#
- (#{extend-env 337}#
- #{labels 2086}#
- #{bindings 2090}#
- (cdr #{r 2066}#)))
- (#{build-letrec 305}#
+ #{r 23547}#
+ (#{extend-env 4307}#
+ #{labels 23565}#
+ #{bindings 23569}#
+ (cdr #{r 23547}#)))
+ (#{build-letrec 4297}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 2087}#))
- (reverse #{vars 2088}#)
- (map (lambda (#{x 2172}#)
- (#{chi 437}#
- (cdr #{x 2172}#)
- (car #{x 2172}#)
+ #{var-ids 23566}#))
+ (reverse #{vars 23567}#)
+ (map (lambda (#{x 24653}#)
+ (#{chi 4345}#
+ (cdr #{x 24653}#)
+ (car #{x 24653}#)
'(())
- #{mod 2103}#))
- (reverse #{vals 2089}#))
- (#{build-sequence 299}#
+ #{mod 23752}#))
+ (reverse #{vals 23568}#))
+ (#{build-sequence 4294}#
#f
- (map (lambda (#{x 2176}#)
- (#{chi 437}#
- (cdr #{x 2176}#)
- (car #{x 2176}#)
+ (map (lambda (#{x 24783}#)
+ (#{chi 4345}#
+ (cdr #{x 24783}#)
+ (car #{x 24783}#)
'(())
- #{mod 2103}#))
- (cons (cons #{er 2096}#
- (#{source-wrap
425}#
- #{e 2100}#
- #{w 2101}#
- #{s 2102}#
- #{mod 2103}#))
- (cdr #{body
2084}#))))))))))))))))))
- (#{parse 2083}#
- (map (lambda (#{x 2091}#)
- (cons #{r 2066}#
- (#{wrap 423}#
- #{x 2091}#
- #{w 2071}#
- #{mod 2058}#)))
- #{body 2054}#)
+ #{mod 23752}#))
+ (cons (cons #{er 23571}#
+ (#{wrap 4338}#
+ (begin
+ (if (if
(pair? #{e 23749}#)
+ #{s
23751}#
+ #f)
+
(set-source-properties!
+ #{e
23749}#
+ #{s
23751}#))
+ #{e 23749}#)
+ #{w 23750}#
+ #{mod 23752}#))
+ (cdr #{body
23563}#))))))))))))))))))
+ (#{parse 23550}#
+ (map (lambda (#{x 23553}#)
+ (cons #{r 23547}#
+ (#{wrap 4338}#
+ #{x 23553}#
+ #{w 23549}#
+ #{mod 23546}#)))
+ #{body 23542}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-local-syntax 447}#
- (lambda (#{rec? 2179}#
- #{e 2180}#
- #{r 2181}#
- #{w 2182}#
- #{s 2183}#
- #{mod 2184}#
- #{k 2185}#)
- (let ((#{tmp 2194}#
+ (#{chi-local-syntax 4350}#
+ (lambda (#{rec? 24868}#
+ #{e 24869}#
+ #{r 24870}#
+ #{w 24871}#
+ #{s 24872}#
+ #{mod 24873}#
+ #{k 24874}#)
+ (let ((#{tmp 24876}#
($sc-dispatch
- #{e 2180}#
+ #{e 24869}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 2194}#
+ (if #{tmp 24876}#
(@apply
- (lambda (#{id 2199}#
- #{val 2200}#
- #{e1 2201}#
- #{e2 2202}#)
- (if (not (#{valid-bound-ids? 417}# #{id 2199}#))
+ (lambda (#{id 24880}#
+ #{val 24881}#
+ #{e1 24882}#
+ #{e2 24883}#)
+ (if (not (#{valid-bound-ids? 4335}# #{id 24880}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 2180}#)
- (let ((#{labels 2207}#
- (#{gen-labels 369}# #{id 2199}#)))
- (let ((#{new-w 2209}#
- (#{make-binding-wrap 401}#
- #{id 2199}#
- #{labels 2207}#
- #{w 2182}#)))
- (#{k 2185}#
- (cons #{e1 2201}# #{e2 2202}#)
- (#{extend-env 337}#
- #{labels 2207}#
- (let ((#{trans-r 2214}#
- (#{macros-only-env 341}# #{r 2181}#)))
+ #{e 24869}#)
+ (let ((#{labels 24973}#
+ (#{gen-labels 4316}# #{id 24880}#)))
+ (let ((#{new-w 24974}#
+ (#{make-binding-wrap 4327}#
+ #{id 24880}#
+ #{labels 24973}#
+ #{w 24871}#)))
+ (#{k 24874}#
+ (cons #{e1 24882}# #{e2 24883}#)
+ (#{extend-env 4307}#
+ #{labels 24973}#
+ (let ((#{trans-r 25012}#
+ (#{macros-only-env 4309}# #{r 24870}#)))
(begin
- (if #{rec? 2179}# (if #f #f))
- (map (lambda (#{x 2215}#)
+ (if #{rec? 24868}# (if #f #f))
+ (map (lambda (#{x 25013}#)
(cons 'macro
- (#{eval-local-transformer 449}#
- (#{chi 437}#
- #{x 2215}#
- #{trans-r 2214}#
- (if #{rec? 2179}#
- #{new-w 2209}#
- #{w 2182}#)
- #{mod 2184}#)
- #{mod 2184}#)))
- #{val 2200}#)))
- #{r 2181}#)
- #{new-w 2209}#
- #{s 2183}#
- #{mod 2184}#)))))
- #{tmp 2194}#)
+ (#{eval-local-transformer 4351}#
+ (#{chi 4345}#
+ #{x 25013}#
+ #{trans-r 25012}#
+ (if #{rec? 24868}#
+ #{new-w 24974}#
+ #{w 24871}#)
+ #{mod 24873}#)
+ #{mod 24873}#)))
+ #{val 24881}#)))
+ #{r 24870}#)
+ #{new-w 24974}#
+ #{s 24872}#
+ #{mod 24873}#)))))
+ #{tmp 24876}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap 425}#
- #{e 2180}#
- #{w 2182}#
- #{s 2183}#
- #{mod 2184}#))))))
- (#{eval-local-transformer 449}#
- (lambda (#{expanded 2221}# #{mod 2222}#)
- (let ((#{p 2226}#
- (#{local-eval-hook 257}#
- #{expanded 2221}#
- #{mod 2222}#)))
- (if (procedure? #{p 2226}#)
- #{p 2226}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 24869}#) #{s 24872}# #f)
+ (set-source-properties! #{e 24869}# #{s 24872}#))
+ #{e 24869}#)
+ #{w 24871}#
+ #{mod 24873}#))))))
+ (#{eval-local-transformer 4351}#
+ (lambda (#{expanded 25314}# #{mod 25315}#)
+ (let ((#{p 25316}# (primitive-eval #{expanded 25314}#)))
+ (if (procedure? #{p 25316}#)
+ #{p 25316}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 2226}#)))))
- (#{chi-void 451}#
- (lambda () (#{build-void 269}# #f)))
- (#{ellipsis? 453}#
- (lambda (#{x 2228}#)
- (if (#{nonsymbol-id? 347}# #{x 2228}#)
- (#{free-id=? 413}#
- #{x 2228}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2229"))
- #(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)))
+ #{p 25316}#)))))
+ (#{ellipsis? 4353}#
+ (lambda (#{x 5159}#)
+ (if (if (if (vector? #{x 5159}#)
+ (if (= (vector-length #{x 5159}#) 4)
+ (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 5159}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{x 5159}#)
+ (if (= (vector-length #{x 5159}#) 4)
+ (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 5159}# 1)
+ #{x 5159}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}# #{x 5159}# '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-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)
#f)))
- (#{lambda-formals 455}#
- (lambda (#{orig-args 2232}#)
+ (#{lambda-formals 4354}#
+ (lambda (#{orig-args 25321}#)
(letrec*
- ((#{req 2235}#
- (lambda (#{args 2238}# #{rreq 2239}#)
- (let ((#{tmp 2243}# ($sc-dispatch #{args 2238}# '())))
- (if #{tmp 2243}#
+ ((#{req 25322}#
+ (lambda (#{args 25326}# #{rreq 25327}#)
+ (let ((#{tmp 25329}# ($sc-dispatch #{args 25326}# '())))
+ (if #{tmp 25329}#
(@apply
(lambda ()
- (#{check 2237}# (reverse #{rreq 2239}#) #f))
- #{tmp 2243}#)
- (let ((#{tmp 2244}#
- ($sc-dispatch #{args 2238}# '(any . any))))
- (if (if #{tmp 2244}#
+ (#{check 25323}# (reverse #{rreq 25327}#) #f))
+ #{tmp 25329}#)
+ (let ((#{tmp 25456}#
+ ($sc-dispatch #{args 25326}# '(any . any))))
+ (if (if #{tmp 25456}#
(@apply
- (lambda (#{a 2247}# #{b 2248}#)
- (#{id? 349}# #{a 2247}#))
- #{tmp 2244}#)
+ (lambda (#{a 25460}# #{b 25461}#)
+ (if (symbol? #{a 25460}#)
+ #t
+ (if (if (vector? #{a 25460}#)
+ (if (= (vector-length #{a 25460}#) 4)
+ (eq? (vector-ref #{a 25460}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 25460}# 1))
+ #f)))
+ #{tmp 25456}#)
#f)
(@apply
- (lambda (#{a 2251}# #{b 2252}#)
- (#{req 2235}#
- #{b 2252}#
- (cons #{a 2251}# #{rreq 2239}#)))
- #{tmp 2244}#)
- (let ((#{tmp 2253}# (list #{args 2238}#)))
- (if (if #{tmp 2253}#
- (@apply
- (lambda (#{r 2255}#) (#{id? 349}# #{r 2255}#))
- #{tmp 2253}#)
- #f)
+ (lambda (#{a 25488}# #{b 25489}#)
+ (#{req 25322}#
+ #{b 25489}#
+ (cons #{a 25488}# #{rreq 25327}#)))
+ #{tmp 25456}#)
+ (let ((#{tmp 25490}# (list #{args 25326}#)))
+ (if (@apply
+ (lambda (#{r 25492}#)
+ (if (symbol? #{r 25492}#)
+ #t
+ (if (if (vector? #{r 25492}#)
+ (if (= (vector-length #{r 25492}#) 4)
+ (eq? (vector-ref #{r 25492}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{r 25492}# 1))
+ #f)))
+ #{tmp 25490}#)
(@apply
- (lambda (#{r 2257}#)
- (#{check 2237}#
- (reverse #{rreq 2239}#)
- #{r 2257}#))
- #{tmp 2253}#)
+ (lambda (#{r 25522}#)
+ (#{check 25323}#
+ (reverse #{rreq 25327}#)
+ #{r 25522}#))
+ #{tmp 25490}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 2232}#
- #{args 2238}#)))))))))
- (#{check 2237}#
- (lambda (#{req 2260}# #{rest 2261}#)
- (if (#{distinct-bound-ids? 419}#
- (if #{rest 2261}#
- (cons #{rest 2261}# #{req 2260}#)
- #{req 2260}#))
- (values #{req 2260}# #f #{rest 2261}# #f)
+ #{orig-args 25321}#
+ #{args 25326}#)))))))))
+ (#{check 25323}#
+ (lambda (#{req 25657}# #{rest 25658}#)
+ (if (#{distinct-bound-ids? 4336}#
+ (if #{rest 25658}#
+ (cons #{rest 25658}# #{req 25657}#)
+ #{req 25657}#))
+ (values #{req 25657}# #f #{rest 25658}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 2232}#)))))
- (#{req 2235}# #{orig-args 2232}# '()))))
- (#{lambda*-formals 459}#
- (lambda (#{orig-args 2294}#)
+ #{orig-args 25321}#)))))
+ (#{req 25322}# #{orig-args 25321}# '()))))
+ (#{chi-simple-lambda 4355}#
+ (lambda (#{e 25778}#
+ #{r 25779}#
+ #{w 25780}#
+ #{s 25781}#
+ #{mod 25782}#
+ #{req 25783}#
+ #{rest 25784}#
+ #{meta 25785}#
+ #{body 25786}#)
+ (let ((#{ids 25787}#
+ (if #{rest 25784}#
+ (append #{req 25783}# (list #{rest 25784}#))
+ #{req 25783}#)))
+ (let ((#{vars 25788}#
+ (map #{gen-var 4359}# #{ids 25787}#)))
+ (let ((#{labels 25789}#
+ (#{gen-labels 4316}# #{ids 25787}#)))
+ (#{build-simple-lambda 4289}#
+ #{s 25781}#
+ (map syntax->datum #{req 25783}#)
+ (if #{rest 25784}#
+ (syntax->datum #{rest 25784}#)
+ #f)
+ #{vars 25788}#
+ #{meta 25785}#
+ (#{chi-body 4349}#
+ #{body 25786}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 25778}#) #{s 25781}# #f)
+ (set-source-properties! #{e 25778}# #{s 25781}#))
+ #{e 25778}#)
+ #{w 25780}#
+ #{mod 25782}#)
+ (#{extend-var-env 4308}#
+ #{labels 25789}#
+ #{vars 25788}#
+ #{r 25779}#)
+ (#{make-binding-wrap 4327}#
+ #{ids 25787}#
+ #{labels 25789}#
+ #{w 25780}#)
+ #{mod 25782}#)))))))
+ (#{lambda*-formals 4356}#
+ (lambda (#{orig-args 26089}#)
(letrec*
- ((#{req 2297}#
- (lambda (#{args 2306}# #{rreq 2307}#)
- (let ((#{tmp 2311}# ($sc-dispatch #{args 2306}# '())))
- (if #{tmp 2311}#
+ ((#{req 26090}#
+ (lambda (#{args 26097}# #{rreq 26098}#)
+ (let ((#{tmp 26100}# ($sc-dispatch #{args 26097}# '())))
+ (if #{tmp 26100}#
(@apply
(lambda ()
- (#{check 2305}#
- (reverse #{rreq 2307}#)
+ (#{check 26094}#
+ (reverse #{rreq 26098}#)
'()
#f
'()))
- #{tmp 2311}#)
- (let ((#{tmp 2312}#
- ($sc-dispatch #{args 2306}# '(any . any))))
- (if (if #{tmp 2312}#
+ #{tmp 26100}#)
+ (let ((#{tmp 26106}#
+ ($sc-dispatch #{args 26097}# '(any . any))))
+ (if (if #{tmp 26106}#
(@apply
- (lambda (#{a 2315}# #{b 2316}#)
- (#{id? 349}# #{a 2315}#))
- #{tmp 2312}#)
+ (lambda (#{a 26110}# #{b 26111}#)
+ (if (symbol? #{a 26110}#)
+ #t
+ (if (if (vector? #{a 26110}#)
+ (if (= (vector-length #{a 26110}#) 4)
+ (eq? (vector-ref #{a 26110}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26110}# 1))
+ #f)))
+ #{tmp 26106}#)
#f)
(@apply
- (lambda (#{a 2319}# #{b 2320}#)
- (#{req 2297}#
- #{b 2320}#
- (cons #{a 2319}# #{rreq 2307}#)))
- #{tmp 2312}#)
- (let ((#{tmp 2321}#
- ($sc-dispatch #{args 2306}# '(any . any))))
- (if (if #{tmp 2321}#
+ (lambda (#{a 26138}# #{b 26139}#)
+ (#{req 26090}#
+ #{b 26139}#
+ (cons #{a 26138}# #{rreq 26098}#)))
+ #{tmp 26106}#)
+ (let ((#{tmp 26140}#
+ ($sc-dispatch #{args 26097}# '(any . any))))
+ (if (if #{tmp 26140}#
(@apply
- (lambda (#{a 2324}# #{b 2325}#)
- (eq? (syntax->datum #{a 2324}#) #:optional))
- #{tmp 2321}#)
+ (lambda (#{a 26144}# #{b 26145}#)
+ (eq? (syntax->datum #{a 26144}#) #:optional))
+ #{tmp 26140}#)
#f)
(@apply
- (lambda (#{a 2328}# #{b 2329}#)
- (#{opt 2299}#
- #{b 2329}#
- (reverse #{rreq 2307}#)
+ (lambda (#{a 26146}# #{b 26147}#)
+ (#{opt 26091}#
+ #{b 26147}#
+ (reverse #{rreq 26098}#)
'()))
- #{tmp 2321}#)
- (let ((#{tmp 2330}#
- ($sc-dispatch #{args 2306}# '(any . any))))
- (if (if #{tmp 2330}#
+ #{tmp 26140}#)
+ (let ((#{tmp 26150}#
+ ($sc-dispatch #{args 26097}# '(any . any))))
+ (if (if #{tmp 26150}#
(@apply
- (lambda (#{a 2333}# #{b 2334}#)
- (eq? (syntax->datum #{a 2333}#) #:key))
- #{tmp 2330}#)
+ (lambda (#{a 26154}# #{b 26155}#)
+ (eq? (syntax->datum #{a 26154}#) #:key))
+ #{tmp 26150}#)
#f)
(@apply
- (lambda (#{a 2337}# #{b 2338}#)
- (#{key 2301}#
- #{b 2338}#
- (reverse #{rreq 2307}#)
+ (lambda (#{a 26156}# #{b 26157}#)
+ (#{key 26092}#
+ #{b 26157}#
+ (reverse #{rreq 26098}#)
'()
'()))
- #{tmp 2330}#)
- (let ((#{tmp 2339}#
- ($sc-dispatch #{args 2306}# '(any any))))
- (if (if #{tmp 2339}#
+ #{tmp 26150}#)
+ (let ((#{tmp 26160}#
+ ($sc-dispatch
+ #{args 26097}#
+ '(any any))))
+ (if (if #{tmp 26160}#
(@apply
- (lambda (#{a 2342}# #{b 2343}#)
- (eq? (syntax->datum #{a 2342}#)
+ (lambda (#{a 26164}# #{b 26165}#)
+ (eq? (syntax->datum #{a 26164}#)
#:rest))
- #{tmp 2339}#)
+ #{tmp 26160}#)
#f)
(@apply
- (lambda (#{a 2346}# #{b 2347}#)
- (#{rest 2303}#
- #{b 2347}#
- (reverse #{rreq 2307}#)
+ (lambda (#{a 26166}# #{b 26167}#)
+ (#{rest 26093}#
+ #{b 26167}#
+ (reverse #{rreq 26098}#)
'()
'()))
- #{tmp 2339}#)
- (let ((#{tmp 2348}# (list #{args 2306}#)))
- (if (if #{tmp 2348}#
- (@apply
- (lambda (#{r 2350}#)
- (#{id? 349}# #{r 2350}#))
- #{tmp 2348}#)
- #f)
+ #{tmp 26160}#)
+ (let ((#{tmp 26170}# (list #{args 26097}#)))
+ (if (@apply
+ (lambda (#{r 26172}#)
+ (if (symbol? #{r 26172}#)
+ #t
+ (if (if (vector? #{r 26172}#)
+ (if (= (vector-length
+ #{r 26172}#)
+ 4)
+ (eq? (vector-ref
+ #{r 26172}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{r 26172}# 1))
+ #f)))
+ #{tmp 26170}#)
(@apply
- (lambda (#{r 2352}#)
- (#{rest 2303}#
- #{r 2352}#
- (reverse #{rreq 2307}#)
+ (lambda (#{r 26202}#)
+ (#{rest 26093}#
+ #{r 26202}#
+ (reverse #{rreq 26098}#)
'()
'()))
- #{tmp 2348}#)
+ #{tmp 26170}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 2294}#
- #{args 2306}#)))))))))))))))
- (#{opt 2299}#
- (lambda (#{args 2355}# #{req 2356}# #{ropt 2357}#)
- (let ((#{tmp 2362}# ($sc-dispatch #{args 2355}# '())))
- (if #{tmp 2362}#
+ #{orig-args 26089}#
+ #{args 26097}#)))))))))))))))
+ (#{opt 26091}#
+ (lambda (#{args 26221}# #{req 26222}# #{ropt 26223}#)
+ (let ((#{tmp 26225}# ($sc-dispatch #{args 26221}# '())))
+ (if #{tmp 26225}#
(@apply
(lambda ()
- (#{check 2305}#
- #{req 2356}#
- (reverse #{ropt 2357}#)
+ (#{check 26094}#
+ #{req 26222}#
+ (reverse #{ropt 26223}#)
#f
'()))
- #{tmp 2362}#)
- (let ((#{tmp 2363}#
- ($sc-dispatch #{args 2355}# '(any . any))))
- (if (if #{tmp 2363}#
+ #{tmp 26225}#)
+ (let ((#{tmp 26231}#
+ ($sc-dispatch #{args 26221}# '(any . any))))
+ (if (if #{tmp 26231}#
(@apply
- (lambda (#{a 2366}# #{b 2367}#)
- (#{id? 349}# #{a 2366}#))
- #{tmp 2363}#)
+ (lambda (#{a 26235}# #{b 26236}#)
+ (if (symbol? #{a 26235}#)
+ #t
+ (if (if (vector? #{a 26235}#)
+ (if (= (vector-length #{a 26235}#) 4)
+ (eq? (vector-ref #{a 26235}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26235}# 1))
+ #f)))
+ #{tmp 26231}#)
#f)
(@apply
- (lambda (#{a 2370}# #{b 2371}#)
- (#{opt 2299}#
- #{b 2371}#
- #{req 2356}#
- (cons (cons #{a 2370}#
+ (lambda (#{a 26263}# #{b 26264}#)
+ (#{opt 26091}#
+ #{b 26264}#
+ #{req 26222}#
+ (cons (cons #{a 26263}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2368" "i2369"))
+ #("i2369" "i2370"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2358" "i2359" "i2360"))
+ #("i2359" "i2360" "i2361"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"))
+ ("i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"))
#(ribcage
#(orig-args)
#((top))
- #("i2295"))
+ #("i2296"))
#(ribcage
(lambda-var-list
gen-var
@@ -6925,254 +16219,290 @@
(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))))
- #{ropt 2357}#)))
- #{tmp 2363}#)
- (let ((#{tmp 2372}#
- ($sc-dispatch #{args 2355}# '((any any) . any))))
- (if (if #{tmp 2372}#
+ #{ropt 26223}#)))
+ #{tmp 26231}#)
+ (let ((#{tmp 26265}#
+ ($sc-dispatch
+ #{args 26221}#
+ '((any any) . any))))
+ (if (if #{tmp 26265}#
(@apply
- (lambda (#{a 2376}# #{init 2377}# #{b 2378}#)
- (#{id? 349}# #{a 2376}#))
- #{tmp 2372}#)
+ (lambda (#{a 26269}#
+ #{init 26270}#
+ #{b 26271}#)
+ (if (symbol? #{a 26269}#)
+ #t
+ (if (if (vector? #{a 26269}#)
+ (if (= (vector-length #{a 26269}#) 4)
+ (eq? (vector-ref #{a 26269}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26269}# 1))
+ #f)))
+ #{tmp 26265}#)
#f)
(@apply
- (lambda (#{a 2382}# #{init 2383}# #{b 2384}#)
- (#{opt 2299}#
- #{b 2384}#
- #{req 2356}#
- (cons (list #{a 2382}# #{init 2383}#)
- #{ropt 2357}#)))
- #{tmp 2372}#)
- (let ((#{tmp 2385}#
- ($sc-dispatch #{args 2355}# '(any . any))))
- (if (if #{tmp 2385}#
+ (lambda (#{a 26298}# #{init 26299}# #{b 26300}#)
+ (#{opt 26091}#
+ #{b 26300}#
+ #{req 26222}#
+ (cons (list #{a 26298}# #{init 26299}#)
+ #{ropt 26223}#)))
+ #{tmp 26265}#)
+ (let ((#{tmp 26301}#
+ ($sc-dispatch #{args 26221}# '(any . any))))
+ (if (if #{tmp 26301}#
(@apply
- (lambda (#{a 2388}# #{b 2389}#)
- (eq? (syntax->datum #{a 2388}#) #:key))
- #{tmp 2385}#)
+ (lambda (#{a 26305}# #{b 26306}#)
+ (eq? (syntax->datum #{a 26305}#) #:key))
+ #{tmp 26301}#)
#f)
(@apply
- (lambda (#{a 2392}# #{b 2393}#)
- (#{key 2301}#
- #{b 2393}#
- #{req 2356}#
- (reverse #{ropt 2357}#)
+ (lambda (#{a 26307}# #{b 26308}#)
+ (#{key 26092}#
+ #{b 26308}#
+ #{req 26222}#
+ (reverse #{ropt 26223}#)
'()))
- #{tmp 2385}#)
- (let ((#{tmp 2394}#
- ($sc-dispatch #{args 2355}# '(any any))))
- (if (if #{tmp 2394}#
+ #{tmp 26301}#)
+ (let ((#{tmp 26311}#
+ ($sc-dispatch
+ #{args 26221}#
+ '(any any))))
+ (if (if #{tmp 26311}#
(@apply
- (lambda (#{a 2397}# #{b 2398}#)
- (eq? (syntax->datum #{a 2397}#)
+ (lambda (#{a 26315}# #{b 26316}#)
+ (eq? (syntax->datum #{a 26315}#)
#:rest))
- #{tmp 2394}#)
+ #{tmp 26311}#)
#f)
(@apply
- (lambda (#{a 2401}# #{b 2402}#)
- (#{rest 2303}#
- #{b 2402}#
- #{req 2356}#
- (reverse #{ropt 2357}#)
+ (lambda (#{a 26317}# #{b 26318}#)
+ (#{rest 26093}#
+ #{b 26318}#
+ #{req 26222}#
+ (reverse #{ropt 26223}#)
'()))
- #{tmp 2394}#)
- (let ((#{tmp 2403}# (list #{args 2355}#)))
- (if (if #{tmp 2403}#
- (@apply
- (lambda (#{r 2405}#)
- (#{id? 349}# #{r 2405}#))
- #{tmp 2403}#)
- #f)
+ #{tmp 26311}#)
+ (let ((#{tmp 26321}# (list #{args 26221}#)))
+ (if (@apply
+ (lambda (#{r 26323}#)
+ (if (symbol? #{r 26323}#)
+ #t
+ (if (if (vector? #{r 26323}#)
+ (if (= (vector-length
+ #{r 26323}#)
+ 4)
+ (eq? (vector-ref
+ #{r 26323}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{r 26323}# 1))
+ #f)))
+ #{tmp 26321}#)
(@apply
- (lambda (#{r 2407}#)
- (#{rest 2303}#
- #{r 2407}#
- #{req 2356}#
- (reverse #{ropt 2357}#)
+ (lambda (#{r 26353}#)
+ (#{rest 26093}#
+ #{r 26353}#
+ #{req 26222}#
+ (reverse #{ropt 26223}#)
'()))
- #{tmp 2403}#)
+ #{tmp 26321}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 2294}#
- #{args 2355}#)))))))))))))))
- (#{key 2301}#
- (lambda (#{args 2410}#
- #{req 2411}#
- #{opt 2412}#
- #{rkey 2413}#)
- (let ((#{tmp 2419}# ($sc-dispatch #{args 2410}# '())))
- (if #{tmp 2419}#
+ #{orig-args 26089}#
+ #{args 26221}#)))))))))))))))
+ (#{key 26092}#
+ (lambda (#{args 26372}#
+ #{req 26373}#
+ #{opt 26374}#
+ #{rkey 26375}#)
+ (let ((#{tmp 26377}# ($sc-dispatch #{args 26372}# '())))
+ (if #{tmp 26377}#
(@apply
(lambda ()
- (#{check 2305}#
- #{req 2411}#
- #{opt 2412}#
+ (#{check 26094}#
+ #{req 26373}#
+ #{opt 26374}#
#f
- (cons #f (reverse #{rkey 2413}#))))
- #{tmp 2419}#)
- (let ((#{tmp 2420}#
- ($sc-dispatch #{args 2410}# '(any . any))))
- (if (if #{tmp 2420}#
+ (cons #f (reverse #{rkey 26375}#))))
+ #{tmp 26377}#)
+ (let ((#{tmp 26383}#
+ ($sc-dispatch #{args 26372}# '(any . any))))
+ (if (if #{tmp 26383}#
(@apply
- (lambda (#{a 2423}# #{b 2424}#)
- (#{id? 349}# #{a 2423}#))
- #{tmp 2420}#)
+ (lambda (#{a 26387}# #{b 26388}#)
+ (if (symbol? #{a 26387}#)
+ #t
+ (if (if (vector? #{a 26387}#)
+ (if (= (vector-length #{a 26387}#) 4)
+ (eq? (vector-ref #{a 26387}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26387}# 1))
+ #f)))
+ #{tmp 26383}#)
#f)
(@apply
- (lambda (#{a 2427}# #{b 2428}#)
- (let ((#{tmp 2430}#
+ (lambda (#{a 26415}# #{b 26416}#)
+ (let ((#{tmp 26417}#
(symbol->keyword
- (syntax->datum #{a 2427}#))))
- (#{key 2301}#
- #{b 2428}#
- #{req 2411}#
- #{opt 2412}#
- (cons (cons #{tmp 2430}#
- (cons #{a 2427}#
+ (syntax->datum #{a 26415}#))))
+ (#{key 26092}#
+ #{b 26416}#
+ #{req 26373}#
+ #{opt 26374}#
+ (cons (cons #{tmp 26417}#
+ (cons #{a 26415}#
'(#(syntax-object
#f
((top)
@@ -7180,11 +16510,11 @@
#(ribcage
#(k)
#((top))
- #("i2431"))
+ #("i2432"))
#(ribcage
#(a b)
#((top) (top))
- #("i2425" "i2426"))
+ #("i2426" "i2427"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7192,10 +16522,10 @@
(top)
(top)
(top))
- #("i2414"
- "i2415"
+ #("i2415"
"i2416"
- "i2417"))
+ "i2417"
+ "i2418"))
#(ribcage
(check rest key opt req)
((top)
@@ -7203,15 +16533,15 @@
(top)
(top)
(top))
- ("i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"))
+ ("i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"))
#(ribcage
#(orig-args)
#((top))
- #("i2295"))
+ #("i2296"))
#(ribcage
(lambda-var-list
gen-var
@@ -7485,799 +16815,923 @@
(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)))))
- #{rkey 2413}#))))
- #{tmp 2420}#)
- (let ((#{tmp 2433}#
- ($sc-dispatch #{args 2410}# '((any any) . any))))
- (if (if #{tmp 2433}#
+ #{rkey 26375}#))))
+ #{tmp 26383}#)
+ (let ((#{tmp 26420}#
+ ($sc-dispatch
+ #{args 26372}#
+ '((any any) . any))))
+ (if (if #{tmp 26420}#
(@apply
- (lambda (#{a 2437}# #{init 2438}# #{b 2439}#)
- (#{id? 349}# #{a 2437}#))
- #{tmp 2433}#)
+ (lambda (#{a 26424}#
+ #{init 26425}#
+ #{b 26426}#)
+ (if (symbol? #{a 26424}#)
+ #t
+ (if (if (vector? #{a 26424}#)
+ (if (= (vector-length #{a 26424}#) 4)
+ (eq? (vector-ref #{a 26424}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26424}# 1))
+ #f)))
+ #{tmp 26420}#)
#f)
(@apply
- (lambda (#{a 2443}# #{init 2444}# #{b 2445}#)
- (let ((#{tmp 2447}#
+ (lambda (#{a 26453}# #{init 26454}# #{b 26455}#)
+ (let ((#{tmp 26456}#
(symbol->keyword
- (syntax->datum #{a 2443}#))))
- (#{key 2301}#
- #{b 2445}#
- #{req 2411}#
- #{opt 2412}#
- (cons (list #{tmp 2447}#
- #{a 2443}#
- #{init 2444}#)
- #{rkey 2413}#))))
- #{tmp 2433}#)
- (let ((#{tmp 2450}#
+ (syntax->datum #{a 26453}#))))
+ (#{key 26092}#
+ #{b 26455}#
+ #{req 26373}#
+ #{opt 26374}#
+ (cons (list #{tmp 26456}#
+ #{a 26453}#
+ #{init 26454}#)
+ #{rkey 26375}#))))
+ #{tmp 26420}#)
+ (let ((#{tmp 26459}#
($sc-dispatch
- #{args 2410}#
+ #{args 26372}#
'((any any any) . any))))
- (if (if #{tmp 2450}#
+ (if (if #{tmp 26459}#
(@apply
- (lambda (#{a 2455}#
- #{init 2456}#
- #{k 2457}#
- #{b 2458}#)
- (if (#{id? 349}# #{a 2455}#)
- (keyword? (syntax->datum #{k 2457}#))
+ (lambda (#{a 26463}#
+ #{init 26464}#
+ #{k 26465}#
+ #{b 26466}#)
+ (if (if (symbol? #{a 26463}#)
+ #t
+ (if (if (vector? #{a 26463}#)
+ (if (= (vector-length
+ #{a 26463}#)
+ 4)
+ (eq? (vector-ref
+ #{a 26463}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{a 26463}# 1))
+ #f))
+ (keyword? (syntax->datum #{k 26465}#))
#f))
- #{tmp 2450}#)
+ #{tmp 26459}#)
#f)
(@apply
- (lambda (#{a 2465}#
- #{init 2466}#
- #{k 2467}#
- #{b 2468}#)
- (#{key 2301}#
- #{b 2468}#
- #{req 2411}#
- #{opt 2412}#
- (cons (list #{k 2467}#
- #{a 2465}#
- #{init 2466}#)
- #{rkey 2413}#)))
- #{tmp 2450}#)
- (let ((#{tmp 2469}#
- ($sc-dispatch #{args 2410}# '(any))))
- (if (if #{tmp 2469}#
+ (lambda (#{a 26493}#
+ #{init 26494}#
+ #{k 26495}#
+ #{b 26496}#)
+ (#{key 26092}#
+ #{b 26496}#
+ #{req 26373}#
+ #{opt 26374}#
+ (cons (list #{k 26495}#
+ #{a 26493}#
+ #{init 26494}#)
+ #{rkey 26375}#)))
+ #{tmp 26459}#)
+ (let ((#{tmp 26497}#
+ ($sc-dispatch #{args 26372}# '(any))))
+ (if (if #{tmp 26497}#
(@apply
- (lambda (#{aok 2471}#)
- (eq? (syntax->datum #{aok 2471}#)
+ (lambda (#{aok 26501}#)
+ (eq? (syntax->datum #{aok 26501}#)
#:allow-other-keys))
- #{tmp 2469}#)
+ #{tmp 26497}#)
#f)
(@apply
- (lambda (#{aok 2473}#)
- (#{check 2305}#
- #{req 2411}#
- #{opt 2412}#
+ (lambda (#{aok 26502}#)
+ (#{check 26094}#
+ #{req 26373}#
+ #{opt 26374}#
#f
- (cons #t (reverse #{rkey 2413}#))))
- #{tmp 2469}#)
- (let ((#{tmp 2474}#
+ (cons #t (reverse #{rkey 26375}#))))
+ #{tmp 26497}#)
+ (let ((#{tmp 26505}#
($sc-dispatch
- #{args 2410}#
+ #{args 26372}#
'(any any any))))
- (if (if #{tmp 2474}#
+ (if (if #{tmp 26505}#
(@apply
- (lambda (#{aok 2478}#
- #{a 2479}#
- #{b 2480}#)
+ (lambda (#{aok 26509}#
+ #{a 26510}#
+ #{b 26511}#)
(if (eq? (syntax->datum
- #{aok 2478}#)
+ #{aok 26509}#)
#:allow-other-keys)
- (eq? (syntax->datum #{a 2479}#)
+ (eq? (syntax->datum
+ #{a 26510}#)
#:rest)
#f))
- #{tmp 2474}#)
+ #{tmp 26505}#)
#f)
(@apply
- (lambda (#{aok 2486}#
- #{a 2487}#
- #{b 2488}#)
- (#{rest 2303}#
- #{b 2488}#
- #{req 2411}#
- #{opt 2412}#
- (cons #t (reverse #{rkey 2413}#))))
- #{tmp 2474}#)
- (let ((#{tmp 2489}#
+ (lambda (#{aok 26512}#
+ #{a 26513}#
+ #{b 26514}#)
+ (#{rest 26093}#
+ #{b 26514}#
+ #{req 26373}#
+ #{opt 26374}#
+ (cons #t
+ (reverse #{rkey 26375}#))))
+ #{tmp 26505}#)
+ (let ((#{tmp 26517}#
($sc-dispatch
- #{args 2410}#
+ #{args 26372}#
'(any . any))))
- (if (if #{tmp 2489}#
+ (if (if #{tmp 26517}#
(@apply
- (lambda (#{aok 2492}#
- #{r 2493}#)
+ (lambda (#{aok 26521}#
+ #{r 26522}#)
(if (eq? (syntax->datum
- #{aok 2492}#)
+ #{aok 26521}#)
#:allow-other-keys)
- (#{id? 349}# #{r 2493}#)
+ (if (symbol? #{r 26522}#)
+ #t
+ (if (if (vector?
+ #{r 26522}#)
+ (if (=
(vector-length
+ #{r
26522}#)
+ 4)
+ (eq? (vector-ref
+ #{r
26522}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{r 26522}#
+ 1))
+ #f))
#f))
- #{tmp 2489}#)
+ #{tmp 26517}#)
#f)
(@apply
- (lambda (#{aok 2498}# #{r 2499}#)
- (#{rest 2303}#
- #{r 2499}#
- #{req 2411}#
- #{opt 2412}#
+ (lambda (#{aok 26549}# #{r 26550}#)
+ (#{rest 26093}#
+ #{r 26550}#
+ #{req 26373}#
+ #{opt 26374}#
(cons #t
(reverse
- #{rkey 2413}#))))
- #{tmp 2489}#)
- (let ((#{tmp 2500}#
+ #{rkey 26375}#))))
+ #{tmp 26517}#)
+ (let ((#{tmp 26553}#
($sc-dispatch
- #{args 2410}#
+ #{args 26372}#
'(any any))))
- (if (if #{tmp 2500}#
+ (if (if #{tmp 26553}#
(@apply
- (lambda (#{a 2503}#
- #{b 2504}#)
+ (lambda (#{a 26557}#
+ #{b 26558}#)
(eq? (syntax->datum
- #{a 2503}#)
+ #{a 26557}#)
#:rest))
- #{tmp 2500}#)
+ #{tmp 26553}#)
#f)
(@apply
- (lambda (#{a 2507}# #{b 2508}#)
- (#{rest 2303}#
- #{b 2508}#
- #{req 2411}#
- #{opt 2412}#
+ (lambda (#{a 26559}#
+ #{b 26560}#)
+ (#{rest 26093}#
+ #{b 26560}#
+ #{req 26373}#
+ #{opt 26374}#
(cons #f
(reverse
- #{rkey 2413}#))))
- #{tmp 2500}#)
- (let ((#{tmp 2509}#
- (list #{args 2410}#)))
- (if (if #{tmp 2509}#
- (@apply
- (lambda (#{r 2511}#)
- (#{id? 349}#
- #{r 2511}#))
- #{tmp 2509}#)
- #f)
+ #{rkey 26375}#))))
+ #{tmp 26553}#)
+ (let ((#{tmp 26563}#
+ (list #{args 26372}#)))
+ (if (@apply
+ (lambda (#{r 26565}#)
+ (if (symbol?
+ #{r 26565}#)
+ #t
+ (if (if (vector?
+ #{r
26565}#)
+ (if (=
(vector-length
+ #{r
26565}#)
+ 4)
+ (eq?
(vector-ref
+ #{r
26565}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{r 26565}#
+ 1))
+ #f)))
+ #{tmp 26563}#)
(@apply
- (lambda (#{r 2513}#)
- (#{rest 2303}#
- #{r 2513}#
- #{req 2411}#
- #{opt 2412}#
+ (lambda (#{r 26595}#)
+ (#{rest 26093}#
+ #{r 26595}#
+ #{req 26373}#
+ #{opt 26374}#
(cons #f
(reverse
- #{rkey
2413}#))))
- #{tmp 2509}#)
+ #{rkey
26375}#))))
+ #{tmp 26563}#)
(syntax-violation
'lambda*
"invalid keyword argument
list"
- #{orig-args 2294}#
- #{args
2410}#)))))))))))))))))))))
- (#{rest 2303}#
- (lambda (#{args 2516}#
- #{req 2517}#
- #{opt 2518}#
- #{kw 2519}#)
- (let ((#{tmp 2525}# (list #{args 2516}#)))
- (if (if #{tmp 2525}#
- (@apply
- (lambda (#{r 2527}#) (#{id? 349}# #{r 2527}#))
- #{tmp 2525}#)
- #f)
+ #{orig-args 26089}#
+ #{args
26372}#)))))))))))))))))))))
+ (#{rest 26093}#
+ (lambda (#{args 26623}#
+ #{req 26624}#
+ #{opt 26625}#
+ #{kw 26626}#)
+ (let ((#{tmp 26628}# (list #{args 26623}#)))
+ (if (@apply
+ (lambda (#{r 26630}#)
+ (if (symbol? #{r 26630}#)
+ #t
+ (if (if (vector? #{r 26630}#)
+ (if (= (vector-length #{r 26630}#) 4)
+ (eq? (vector-ref #{r 26630}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{r 26630}# 1))
+ #f)))
+ #{tmp 26628}#)
(@apply
- (lambda (#{r 2529}#)
- (#{check 2305}#
- #{req 2517}#
- #{opt 2518}#
- #{r 2529}#
- #{kw 2519}#))
- #{tmp 2525}#)
+ (lambda (#{r 26660}#)
+ (#{check 26094}#
+ #{req 26624}#
+ #{opt 26625}#
+ #{r 26660}#
+ #{kw 26626}#))
+ #{tmp 26628}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 2294}#
- #{args 2516}#)))))
- (#{check 2305}#
- (lambda (#{req 2532}#
- #{opt 2533}#
- #{rest 2534}#
- #{kw 2535}#)
- (if (#{distinct-bound-ids? 419}#
+ #{orig-args 26089}#
+ #{args 26623}#)))))
+ (#{check 26094}#
+ (lambda (#{req 26664}#
+ #{opt 26665}#
+ #{rest 26666}#
+ #{kw 26667}#)
+ (if (#{distinct-bound-ids? 4336}#
(append
- #{req 2532}#
- (map car #{opt 2533}#)
- (if #{rest 2534}# (list #{rest 2534}#) '())
- (if (pair? #{kw 2535}#)
- (map cadr (cdr #{kw 2535}#))
+ #{req 26664}#
+ (map car #{opt 26665}#)
+ (if #{rest 26666}# (list #{rest 26666}#) '())
+ (if (pair? #{kw 26667}#)
+ (map cadr (cdr #{kw 26667}#))
'())))
(values
- #{req 2532}#
- #{opt 2533}#
- #{rest 2534}#
- #{kw 2535}#)
+ #{req 26664}#
+ #{opt 26665}#
+ #{rest 26666}#
+ #{kw 26667}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 2294}#)))))
- (#{req 2297}# #{orig-args 2294}# '()))))
- (#{chi-lambda-case 461}#
- (lambda (#{e 2543}#
- #{r 2544}#
- #{w 2545}#
- #{s 2546}#
- #{mod 2547}#
- #{get-formals 2548}#
- #{clauses 2549}#)
+ #{orig-args 26089}#)))))
+ (#{req 26090}# #{orig-args 26089}# '()))))
+ (#{chi-lambda-case 4357}#
+ (lambda (#{e 26787}#
+ #{r 26788}#
+ #{w 26789}#
+ #{s 26790}#
+ #{mod 26791}#
+ #{get-formals 26792}#
+ #{clauses 26793}#)
(letrec*
- ((#{expand-opt 2560}#
- (lambda (#{req 2583}#
- #{opt 2584}#
- #{rest 2585}#
- #{kw 2586}#
- #{body 2587}#
- #{vars 2588}#
- #{r* 2589}#
- #{w* 2590}#
- #{out 2591}#
- #{inits 2592}#)
- (if (pair? #{opt 2584}#)
- (let ((#{tmp 2605}# (car #{opt 2584}#)))
- (let ((#{tmp 2606}#
- ($sc-dispatch #{tmp 2605}# '(any any))))
- (if #{tmp 2606}#
+ ((#{expand-req 26794}#
+ (lambda (#{req 26928}#
+ #{opt 26929}#
+ #{rest 26930}#
+ #{kw 26931}#
+ #{body 26932}#)
+ (let ((#{vars 26933}#
+ (map #{gen-var 4359}# #{req 26928}#))
+ (#{labels 26934}#
+ (#{gen-labels 4316}# #{req 26928}#)))
+ (let ((#{r* 26935}#
+ (#{extend-var-env 4308}#
+ #{labels 26934}#
+ #{vars 26933}#
+ #{r 26788}#))
+ (#{w* 26936}#
+ (#{make-binding-wrap 4327}#
+ #{req 26928}#
+ #{labels 26934}#
+ #{w 26789}#)))
+ (#{expand-opt 26795}#
+ (map syntax->datum #{req 26928}#)
+ #{opt 26929}#
+ #{rest 26930}#
+ #{kw 26931}#
+ #{body 26932}#
+ (reverse #{vars 26933}#)
+ #{r* 26935}#
+ #{w* 26936}#
+ '()
+ '())))))
+ (#{expand-opt 26795}#
+ (lambda (#{req 27152}#
+ #{opt 27153}#
+ #{rest 27154}#
+ #{kw 27155}#
+ #{body 27156}#
+ #{vars 27157}#
+ #{r* 27158}#
+ #{w* 27159}#
+ #{out 27160}#
+ #{inits 27161}#)
+ (if (pair? #{opt 27153}#)
+ (let ((#{tmp 27162}# (car #{opt 27153}#)))
+ (let ((#{tmp 27163}#
+ ($sc-dispatch #{tmp 27162}# '(any any))))
+ (if #{tmp 27163}#
(@apply
- (lambda (#{id 2609}# #{i 2610}#)
- (let ((#{v 2613}# (#{gen-var 465}# #{id 2609}#)))
- (let ((#{l 2615}#
- (#{gen-labels 369}# (list #{v 2613}#))))
- (let ((#{r** 2617}#
- (#{extend-var-env 339}#
- #{l 2615}#
- (list #{v 2613}#)
- #{r* 2589}#)))
- (let ((#{w** 2619}#
- (#{make-binding-wrap 401}#
- (list #{id 2609}#)
- #{l 2615}#
- #{w* 2590}#)))
- (#{expand-opt 2560}#
- #{req 2583}#
- (cdr #{opt 2584}#)
- #{rest 2585}#
- #{kw 2586}#
- #{body 2587}#
- (cons #{v 2613}# #{vars 2588}#)
- #{r** 2617}#
- #{w** 2619}#
- (cons (syntax->datum #{id 2609}#)
- #{out 2591}#)
- (cons (#{chi 437}#
- #{i 2610}#
- #{r* 2589}#
- #{w* 2590}#
- #{mod 2547}#)
- #{inits 2592}#)))))))
- #{tmp 2606}#)
+ (lambda (#{id 27165}# #{i 27166}#)
+ (let ((#{v 27167}#
+ (let ((#{id 27175}#
+ (if (if (vector? #{id 27165}#)
+ (if (= (vector-length
+ #{id 27165}#)
+ 4)
+ (eq? (vector-ref
+ #{id 27165}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 27165}# 1)
+ #{id 27165}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 27175}#)
+ " ")))))
+ (let ((#{l 27168}#
+ (#{gen-labels 4316}# (list #{v 27167}#))))
+ (let ((#{r** 27169}#
+ (#{extend-var-env 4308}#
+ #{l 27168}#
+ (list #{v 27167}#)
+ #{r* 27158}#)))
+ (let ((#{w** 27170}#
+ (#{make-binding-wrap 4327}#
+ (list #{id 27165}#)
+ #{l 27168}#
+ #{w* 27159}#)))
+ (#{expand-opt 26795}#
+ #{req 27152}#
+ (cdr #{opt 27153}#)
+ #{rest 27154}#
+ #{kw 27155}#
+ #{body 27156}#
+ (cons #{v 27167}# #{vars 27157}#)
+ #{r** 27169}#
+ #{w** 27170}#
+ (cons (syntax->datum #{id 27165}#)
+ #{out 27160}#)
+ (cons (#{chi 4345}#
+ #{i 27166}#
+ #{r* 27158}#
+ #{w* 27159}#
+ #{mod 26791}#)
+ #{inits 27161}#)))))))
+ #{tmp 27163}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2605}#))))
- (if #{rest 2585}#
- (let ((#{v 2624}# (#{gen-var 465}# #{rest 2585}#)))
- (let ((#{l 2626}#
- (#{gen-labels 369}# (list #{v 2624}#))))
- (let ((#{r* 2628}#
- (#{extend-var-env 339}#
- #{l 2626}#
- (list #{v 2624}#)
- #{r* 2589}#)))
- (let ((#{w* 2630}#
- (#{make-binding-wrap 401}#
- (list #{rest 2585}#)
- #{l 2626}#
- #{w* 2590}#)))
- (#{expand-kw 2562}#
- #{req 2583}#
- (if (pair? #{out 2591}#)
- (reverse #{out 2591}#)
+ #{tmp 27162}#))))
+ (if #{rest 27154}#
+ (let ((#{v 27447}#
+ (let ((#{id 27457}#
+ (if (if (vector? #{rest 27154}#)
+ (if (= (vector-length #{rest 27154}#)
+ 4)
+ (eq? (vector-ref #{rest 27154}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{rest 27154}# 1)
+ #{rest 27154}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 27457}#)
+ " ")))))
+ (let ((#{l 27448}#
+ (#{gen-labels 4316}# (list #{v 27447}#))))
+ (let ((#{r* 27449}#
+ (#{extend-var-env 4308}#
+ #{l 27448}#
+ (list #{v 27447}#)
+ #{r* 27158}#)))
+ (let ((#{w* 27450}#
+ (#{make-binding-wrap 4327}#
+ (list #{rest 27154}#)
+ #{l 27448}#
+ #{w* 27159}#)))
+ (#{expand-kw 26796}#
+ #{req 27152}#
+ (if (pair? #{out 27160}#)
+ (reverse #{out 27160}#)
#f)
- (syntax->datum #{rest 2585}#)
- (if (pair? #{kw 2586}#)
- (cdr #{kw 2586}#)
- #{kw 2586}#)
- #{body 2587}#
- (cons #{v 2624}# #{vars 2588}#)
- #{r* 2628}#
- #{w* 2630}#
- (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f)
+ (syntax->datum #{rest 27154}#)
+ (if (pair? #{kw 27155}#)
+ (cdr #{kw 27155}#)
+ #{kw 27155}#)
+ #{body 27156}#
+ (cons #{v 27447}# #{vars 27157}#)
+ #{r* 27449}#
+ #{w* 27450}#
+ (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f)
'()
- #{inits 2592}#)))))
- (#{expand-kw 2562}#
- #{req 2583}#
- (if (pair? #{out 2591}#)
- (reverse #{out 2591}#)
+ #{inits 27161}#)))))
+ (#{expand-kw 26796}#
+ #{req 27152}#
+ (if (pair? #{out 27160}#)
+ (reverse #{out 27160}#)
#f)
#f
- (if (pair? #{kw 2586}#)
- (cdr #{kw 2586}#)
- #{kw 2586}#)
- #{body 2587}#
- #{vars 2588}#
- #{r* 2589}#
- #{w* 2590}#
- (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f)
+ (if (pair? #{kw 27155}#)
+ (cdr #{kw 27155}#)
+ #{kw 27155}#)
+ #{body 27156}#
+ #{vars 27157}#
+ #{r* 27158}#
+ #{w* 27159}#
+ (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f)
'()
- #{inits 2592}#)))))
- (#{expand-kw 2562}#
- (lambda (#{req 2632}#
- #{opt 2633}#
- #{rest 2634}#
- #{kw 2635}#
- #{body 2636}#
- #{vars 2637}#
- #{r* 2638}#
- #{w* 2639}#
- #{aok 2640}#
- #{out 2641}#
- #{inits 2642}#)
- (if (pair? #{kw 2635}#)
- (let ((#{tmp 2656}# (car #{kw 2635}#)))
- (let ((#{tmp 2657}#
- ($sc-dispatch #{tmp 2656}# '(any any any))))
- (if #{tmp 2657}#
+ #{inits 27161}#)))))
+ (#{expand-kw 26796}#
+ (lambda (#{req 27657}#
+ #{opt 27658}#
+ #{rest 27659}#
+ #{kw 27660}#
+ #{body 27661}#
+ #{vars 27662}#
+ #{r* 27663}#
+ #{w* 27664}#
+ #{aok 27665}#
+ #{out 27666}#
+ #{inits 27667}#)
+ (if (pair? #{kw 27660}#)
+ (let ((#{tmp 27668}# (car #{kw 27660}#)))
+ (let ((#{tmp 27669}#
+ ($sc-dispatch #{tmp 27668}# '(any any any))))
+ (if #{tmp 27669}#
(@apply
- (lambda (#{k 2661}# #{id 2662}# #{i 2663}#)
- (let ((#{v 2666}# (#{gen-var 465}# #{id 2662}#)))
- (let ((#{l 2668}#
- (#{gen-labels 369}# (list #{v 2666}#))))
- (let ((#{r** 2670}#
- (#{extend-var-env 339}#
- #{l 2668}#
- (list #{v 2666}#)
- #{r* 2638}#)))
- (let ((#{w** 2672}#
- (#{make-binding-wrap 401}#
- (list #{id 2662}#)
- #{l 2668}#
- #{w* 2639}#)))
- (#{expand-kw 2562}#
- #{req 2632}#
- #{opt 2633}#
- #{rest 2634}#
- (cdr #{kw 2635}#)
- #{body 2636}#
- (cons #{v 2666}# #{vars 2637}#)
- #{r** 2670}#
- #{w** 2672}#
- #{aok 2640}#
- (cons (list (syntax->datum #{k 2661}#)
- (syntax->datum #{id 2662}#)
- #{v 2666}#)
- #{out 2641}#)
- (cons (#{chi 437}#
- #{i 2663}#
- #{r* 2638}#
- #{w* 2639}#
- #{mod 2547}#)
- #{inits 2642}#)))))))
- #{tmp 2657}#)
+ (lambda (#{k 27671}# #{id 27672}# #{i 27673}#)
+ (let ((#{v 27674}#
+ (let ((#{id 27682}#
+ (if (if (vector? #{id 27672}#)
+ (if (= (vector-length
+ #{id 27672}#)
+ 4)
+ (eq? (vector-ref
+ #{id 27672}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 27672}# 1)
+ #{id 27672}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 27682}#)
+ " ")))))
+ (let ((#{l 27675}#
+ (#{gen-labels 4316}# (list #{v 27674}#))))
+ (let ((#{r** 27676}#
+ (#{extend-var-env 4308}#
+ #{l 27675}#
+ (list #{v 27674}#)
+ #{r* 27663}#)))
+ (let ((#{w** 27677}#
+ (#{make-binding-wrap 4327}#
+ (list #{id 27672}#)
+ #{l 27675}#
+ #{w* 27664}#)))
+ (#{expand-kw 26796}#
+ #{req 27657}#
+ #{opt 27658}#
+ #{rest 27659}#
+ (cdr #{kw 27660}#)
+ #{body 27661}#
+ (cons #{v 27674}# #{vars 27662}#)
+ #{r** 27676}#
+ #{w** 27677}#
+ #{aok 27665}#
+ (cons (list (syntax->datum #{k 27671}#)
+ (syntax->datum #{id 27672}#)
+ #{v 27674}#)
+ #{out 27666}#)
+ (cons (#{chi 4345}#
+ #{i 27673}#
+ #{r* 27663}#
+ #{w* 27664}#
+ #{mod 26791}#)
+ #{inits 27667}#)))))))
+ #{tmp 27669}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2656}#))))
- (#{expand-body 2564}#
- #{req 2632}#
- #{opt 2633}#
- #{rest 2634}#
- (if (if #{aok 2640}#
- #{aok 2640}#
- (pair? #{out 2641}#))
- (cons #{aok 2640}# (reverse #{out 2641}#))
+ #{tmp 27668}#))))
+ (#{expand-body 26797}#
+ #{req 27657}#
+ #{opt 27658}#
+ #{rest 27659}#
+ (if (if #{aok 27665}#
+ #{aok 27665}#
+ (pair? #{out 27666}#))
+ (cons #{aok 27665}# (reverse #{out 27666}#))
#f)
- #{body 2636}#
- (reverse #{vars 2637}#)
- #{r* 2638}#
- #{w* 2639}#
- (reverse #{inits 2642}#)
+ #{body 27661}#
+ (reverse #{vars 27662}#)
+ #{r* 27663}#
+ #{w* 27664}#
+ (reverse #{inits 27667}#)
'()))))
- (#{expand-body 2564}#
- (lambda (#{req 2678}#
- #{opt 2679}#
- #{rest 2680}#
- #{kw 2681}#
- #{body 2682}#
- #{vars 2683}#
- #{r* 2684}#
- #{w* 2685}#
- #{inits 2686}#
- #{meta 2687}#)
- (let ((#{tmp 2699}#
+ (#{expand-body 26797}#
+ (lambda (#{req 27963}#
+ #{opt 27964}#
+ #{rest 27965}#
+ #{kw 27966}#
+ #{body 27967}#
+ #{vars 27968}#
+ #{r* 27969}#
+ #{w* 27970}#
+ #{inits 27971}#
+ #{meta 27972}#)
+ (let ((#{tmp 27974}#
($sc-dispatch
- #{body 2682}#
+ #{body 27967}#
'(any any . each-any))))
- (if (if #{tmp 2699}#
+ (if (if #{tmp 27974}#
(@apply
- (lambda (#{docstring 2703}# #{e1 2704}# #{e2 2705}#)
- (string? (syntax->datum #{docstring 2703}#)))
- #{tmp 2699}#)
+ (lambda (#{docstring 27978}# #{e1 27979}# #{e2 27980}#)
+ (string? (syntax->datum #{docstring 27978}#)))
+ #{tmp 27974}#)
#f)
(@apply
- (lambda (#{docstring 2709}# #{e1 2710}# #{e2 2711}#)
- (#{expand-body 2564}#
- #{req 2678}#
- #{opt 2679}#
- #{rest 2680}#
- #{kw 2681}#
- (cons #{e1 2710}# #{e2 2711}#)
- #{vars 2683}#
- #{r* 2684}#
- #{w* 2685}#
- #{inits 2686}#
+ (lambda (#{docstring 27981}# #{e1 27982}# #{e2 27983}#)
+ (#{expand-body 26797}#
+ #{req 27963}#
+ #{opt 27964}#
+ #{rest 27965}#
+ #{kw 27966}#
+ (cons #{e1 27982}# #{e2 27983}#)
+ #{vars 27968}#
+ #{r* 27969}#
+ #{w* 27970}#
+ #{inits 27971}#
(append
- #{meta 2687}#
+ #{meta 27972}#
(list (cons 'documentation
- (syntax->datum #{docstring 2709}#))))))
- #{tmp 2699}#)
- (let ((#{tmp 2714}#
+ (syntax->datum #{docstring 27981}#))))))
+ #{tmp 27974}#)
+ (let ((#{tmp 27984}#
($sc-dispatch
- #{body 2682}#
+ #{body 27967}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 2714}#
+ (if #{tmp 27984}#
(@apply
- (lambda (#{k 2719}# #{v 2720}# #{e1 2721}# #{e2 2722}#)
- (#{expand-body 2564}#
- #{req 2678}#
- #{opt 2679}#
- #{rest 2680}#
- #{kw 2681}#
- (cons #{e1 2721}# #{e2 2722}#)
- #{vars 2683}#
- #{r* 2684}#
- #{w* 2685}#
- #{inits 2686}#
+ (lambda (#{k 27988}#
+ #{v 27989}#
+ #{e1 27990}#
+ #{e2 27991}#)
+ (#{expand-body 26797}#
+ #{req 27963}#
+ #{opt 27964}#
+ #{rest 27965}#
+ #{kw 27966}#
+ (cons #{e1 27990}# #{e2 27991}#)
+ #{vars 27968}#
+ #{r* 27969}#
+ #{w* 27970}#
+ #{inits 27971}#
(append
- #{meta 2687}#
+ #{meta 27972}#
(syntax->datum
- (map cons #{k 2719}# #{v 2720}#)))))
- #{tmp 2714}#)
- (let ((#{tmp 2726}#
- ($sc-dispatch #{body 2682}# '(any . each-any))))
- (if #{tmp 2726}#
+ (map cons #{k 27988}# #{v 27989}#)))))
+ #{tmp 27984}#)
+ (let ((#{tmp 27992}#
+ ($sc-dispatch #{body 27967}# '(any . each-any))))
+ (if #{tmp 27992}#
(@apply
- (lambda (#{e1 2729}# #{e2 2730}#)
+ (lambda (#{e1 27996}# #{e2 27997}#)
(values
- #{meta 2687}#
- #{req 2678}#
- #{opt 2679}#
- #{rest 2680}#
- #{kw 2681}#
- #{inits 2686}#
- #{vars 2683}#
- (#{chi-body 445}#
- (cons #{e1 2729}# #{e2 2730}#)
- (#{source-wrap 425}#
- #{e 2543}#
- #{w 2545}#
- #{s 2546}#
- #{mod 2547}#)
- #{r* 2684}#
- #{w* 2685}#
- #{mod 2547}#)))
- #{tmp 2726}#)
+ #{meta 27972}#
+ #{req 27963}#
+ #{opt 27964}#
+ #{rest 27965}#
+ #{kw 27966}#
+ #{inits 27971}#
+ #{vars 27968}#
+ (#{chi-body 4349}#
+ (cons #{e1 27996}# #{e2 27997}#)
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 26787}#)
+ #{s 26790}#
+ #f)
+ (set-source-properties!
+ #{e 26787}#
+ #{s 26790}#))
+ #{e 26787}#)
+ #{w 26789}#
+ #{mod 26791}#)
+ #{r* 27969}#
+ #{w* 27970}#
+ #{mod 26791}#)))
+ #{tmp 27992}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 2682}#))))))))))
- (let ((#{tmp 2733}#
- ($sc-dispatch #{clauses 2549}# '())))
- (if #{tmp 2733}#
- (@apply (lambda () (values '() #f)) #{tmp 2733}#)
- (let ((#{tmp 2734}#
+ #{body 27967}#))))))))))
+ (let ((#{tmp 26799}#
+ ($sc-dispatch #{clauses 26793}# '())))
+ (if #{tmp 26799}#
+ (@apply
+ (lambda () (values '() #f))
+ #{tmp 26799}#)
+ (let ((#{tmp 26804}#
($sc-dispatch
- #{clauses 2549}#
+ #{clauses 26793}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 2734}#
+ (if #{tmp 26804}#
(@apply
- (lambda (#{args 2741}#
- #{e1 2742}#
- #{e2 2743}#
- #{args* 2744}#
- #{e1* 2745}#
- #{e2* 2746}#)
+ (lambda (#{args 26808}#
+ #{e1 26809}#
+ #{e2 26810}#
+ #{args* 26811}#
+ #{e1* 26812}#
+ #{e2* 26813}#)
(call-with-values
- (lambda () (#{get-formals 2548}# #{args 2741}#))
- (lambda (#{req 2747}#
- #{opt 2748}#
- #{rest 2749}#
- #{kw 2750}#)
+ (lambda ()
+ (#{get-formals 26792}# #{args 26808}#))
+ (lambda (#{req 26814}#
+ #{opt 26815}#
+ #{rest 26816}#
+ #{kw 26817}#)
(call-with-values
(lambda ()
- (let ((#{body 4788}#
- (cons #{e1 2742}# #{e2 2743}#)))
- (let ((#{vars 4789}#
- (map #{gen-var 465}# #{req 2747}#))
- (#{labels 4790}#
- (#{gen-labels 369}# #{req 2747}#)))
- (let ((#{r* 4791}#
- (#{extend-var-env 339}#
- #{labels 4790}#
- #{vars 4789}#
- #{r 2544}#))
- (#{w* 4792}#
- (#{make-binding-wrap 401}#
- #{req 2747}#
- #{labels 4790}#
- #{w 2545}#)))
- (#{expand-opt 2560}#
- (map syntax->datum #{req 2747}#)
- #{opt 2748}#
- #{rest 2749}#
- #{kw 2750}#
- #{body 4788}#
- (reverse #{vars 4789}#)
- #{r* 4791}#
- #{w* 4792}#
- '()
- '())))))
- (lambda (#{meta 2756}#
- #{req 2757}#
- #{opt 2758}#
- #{rest 2759}#
- #{kw 2760}#
- #{inits 2761}#
- #{vars 2762}#
- #{body 2763}#)
+ (#{expand-req 26794}#
+ #{req 26814}#
+ #{opt 26815}#
+ #{rest 26816}#
+ #{kw 26817}#
+ (cons #{e1 26809}# #{e2 26810}#)))
+ (lambda (#{meta 26884}#
+ #{req 26885}#
+ #{opt 26886}#
+ #{rest 26887}#
+ #{kw 26888}#
+ #{inits 26889}#
+ #{vars 26890}#
+ #{body 26891}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 461}#
- #{e 2543}#
- #{r 2544}#
- #{w 2545}#
- #{s 2546}#
- #{mod 2547}#
- #{get-formals 2548}#
- (map (lambda (#{tmp 2774}#
- #{tmp 2773}#
- #{tmp 2772}#)
- (cons #{tmp 2772}#
- (cons #{tmp 2773}#
- #{tmp 2774}#)))
- #{e2* 2746}#
- #{e1* 2745}#
- #{args* 2744}#)))
- (lambda (#{meta* 2776}# #{else* 2777}#)
+ (#{chi-lambda-case 4357}#
+ #{e 26787}#
+ #{r 26788}#
+ #{w 26789}#
+ #{s 26790}#
+ #{mod 26791}#
+ #{get-formals 26792}#
+ (map (lambda (#{tmp 2775 26892}#
+ #{tmp 2774 26893}#
+ #{tmp 2773 26894}#)
+ (cons #{tmp 2773 26894}#
+ (cons #{tmp 2774 26893}#
+ #{tmp 2775 26892}#)))
+ #{e2* 26813}#
+ #{e1* 26812}#
+ #{args* 26811}#)))
+ (lambda (#{meta* 26895}# #{else* 26896}#)
(values
- (append #{meta 2756}# #{meta* 2776}#)
- (#{build-lambda-case 293}#
- #{s 2546}#
- #{req 2757}#
- #{opt 2758}#
- #{rest 2759}#
- #{kw 2760}#
- #{inits 2761}#
- #{vars 2762}#
- #{body 2763}#
- #{else* 2777}#)))))))))
- #{tmp 2734}#)
+ (append #{meta 26884}# #{meta* 26895}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{s 26790}#
+ #{req 26885}#
+ #{opt 26886}#
+ #{rest 26887}#
+ #{kw 26888}#
+ #{inits 26889}#
+ #{vars 26890}#
+ #{body 26891}#
+ #{else* 26896}#)))))))))
+ #{tmp 26804}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 2549}#))))))))
- (#{strip 463}#
- (lambda (#{x 2780}# #{w 2781}#)
- (if (memq 'top (car #{w 2781}#))
- #{x 2780}#
+ #{clauses 26793}#))))))))
+ (#{strip 4358}#
+ (lambda (#{x 28034}# #{w 28035}#)
+ (if (memq 'top (car #{w 28035}#))
+ #{x 28034}#
(letrec*
- ((#{f 2788}#
- (lambda (#{x 2789}#)
- (if (#{syntax-object? 312}# #{x 2789}#)
- (#{strip 463}#
- (#{syntax-object-expression 314}# #{x 2789}#)
- (#{syntax-object-wrap 316}# #{x 2789}#))
- (if (pair? #{x 2789}#)
- (let ((#{a 2796}# (#{f 2788}# (car #{x 2789}#)))
- (#{d 2797}# (#{f 2788}# (cdr #{x 2789}#))))
- (if (if (eq? #{a 2796}# (car #{x 2789}#))
- (eq? #{d 2797}# (cdr #{x 2789}#))
+ ((#{f 28036}#
+ (lambda (#{x 28039}#)
+ (if (if (vector? #{x 28039}#)
+ (if (= (vector-length #{x 28039}#) 4)
+ (eq? (vector-ref #{x 28039}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{strip 4358}#
+ (vector-ref #{x 28039}# 1)
+ (vector-ref #{x 28039}# 2))
+ (if (pair? #{x 28039}#)
+ (let ((#{a 28058}# (#{f 28036}# (car #{x 28039}#)))
+ (#{d 28059}# (#{f 28036}# (cdr #{x 28039}#))))
+ (if (if (eq? #{a 28058}# (car #{x 28039}#))
+ (eq? #{d 28059}# (cdr #{x 28039}#))
#f)
- #{x 2789}#
- (cons #{a 2796}# #{d 2797}#)))
- (if (vector? #{x 2789}#)
- (let ((#{old 2803}# (vector->list #{x 2789}#)))
- (let ((#{new 2805}# (map #{f 2788}# #{old 2803}#)))
+ #{x 28039}#
+ (cons #{a 28058}# #{d 28059}#)))
+ (if (vector? #{x 28039}#)
+ (let ((#{old 28062}# (vector->list #{x 28039}#)))
+ (let ((#{new 28063}# (map #{f 28036}# #{old 28062}#)))
(letrec*
- ((#{lp 2809}#
- (lambda (#{l1 2810}# #{l2 2811}#)
- (if (null? #{l1 2810}#)
- #{x 2789}#
- (if (eq? (car #{l1 2810}#)
- (car #{l2 2811}#))
- (#{lp 2809}#
- (cdr #{l1 2810}#)
- (cdr #{l2 2811}#))
- (list->vector #{new 2805}#))))))
- (#{lp 2809}# #{old 2803}# #{new 2805}#))))
- #{x 2789}#))))))
- (#{f 2788}# #{x 2780}#)))))
- (#{gen-var 465}#
- (lambda (#{id 2813}#)
- (let ((#{id 2816}#
- (if (#{syntax-object? 312}# #{id 2813}#)
- (#{syntax-object-expression 314}# #{id 2813}#)
- #{id 2813}#)))
+ ((#{lp 28064}#
+ (lambda (#{l1 28140}# #{l2 28141}#)
+ (if (null? #{l1 28140}#)
+ #{x 28039}#
+ (if (eq? (car #{l1 28140}#)
+ (car #{l2 28141}#))
+ (#{lp 28064}#
+ (cdr #{l1 28140}#)
+ (cdr #{l2 28141}#))
+ (list->vector #{new 28063}#))))))
+ (#{lp 28064}# #{old 28062}# #{new 28063}#))))
+ #{x 28039}#))))))
+ (#{f 28036}# #{x 28034}#)))))
+ (#{gen-var 4359}#
+ (lambda (#{id 26940}#)
+ (let ((#{id 26941}#
+ (if (if (vector? #{id 26940}#)
+ (if (= (vector-length #{id 26940}#) 4)
+ (eq? (vector-ref #{id 26940}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 26940}# 1)
+ #{id 26940}#)))
(gensym
- (string-append (symbol->string #{id 2816}#) " ")))))
- (#{lambda-var-list 467}#
- (lambda (#{vars 2818}#)
- (letrec*
- ((#{lvl 2824}#
- (lambda (#{vars 2825}# #{ls 2826}# #{w 2827}#)
- (if (pair? #{vars 2825}#)
- (#{lvl 2824}#
- (cdr #{vars 2825}#)
- (cons (#{wrap 423}# (car #{vars 2825}#) #{w 2827}# #f)
- #{ls 2826}#)
- #{w 2827}#)
- (if (#{id? 349}# #{vars 2825}#)
- (cons (#{wrap 423}# #{vars 2825}# #{w 2827}# #f)
- #{ls 2826}#)
- (if (null? #{vars 2825}#)
- #{ls 2826}#
- (if (#{syntax-object? 312}# #{vars 2825}#)
- (#{lvl 2824}#
- (#{syntax-object-expression 314}# #{vars 2825}#)
- #{ls 2826}#
- (#{join-wraps 405}#
- #{w 2827}#
- (#{syntax-object-wrap 316}# #{vars 2825}#)))
- (cons #{vars 2825}# #{ls 2826}#))))))))
- (#{lvl 2824}# #{vars 2818}# '() '(()))))))
+ (string-append (symbol->string #{id 26941}#) " "))))))
(begin
(module-define!
(current-module)
@@ -8293,1436 +17747,1354 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 345}#
+ (#{global-extend 4311}#
'core
'fluid-let-syntax
- (lambda (#{e 2838}#
- #{r 2839}#
- #{w 2840}#
- #{s 2841}#
- #{mod 2842}#)
- (let ((#{tmp 2849}#
+ (lambda (#{e 4480}#
+ #{r 4481}#
+ #{w 4482}#
+ #{s 4483}#
+ #{mod 4484}#)
+ (let ((#{tmp 4486}#
($sc-dispatch
- #{e 2838}#
+ #{e 4480}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2849}#
+ (if (if #{tmp 4486}#
(@apply
- (lambda (#{var 2854}#
- #{val 2855}#
- #{e1 2856}#
- #{e2 2857}#)
- (#{valid-bound-ids? 417}# #{var 2854}#))
- #{tmp 2849}#)
+ (lambda (#{var 4490}#
+ #{val 4491}#
+ #{e1 4492}#
+ #{e2 4493}#)
+ (#{valid-bound-ids? 4335}# #{var 4490}#))
+ #{tmp 4486}#)
#f)
(@apply
- (lambda (#{var 2863}#
- #{val 2864}#
- #{e1 2865}#
- #{e2 2866}#)
- (let ((#{names 2868}#
- (map (lambda (#{x 2869}#)
- (#{id-var-name 411}# #{x 2869}# #{w 2840}#))
- #{var 2863}#)))
+ (lambda (#{var 4571}#
+ #{val 4572}#
+ #{e1 4573}#
+ #{e2 4574}#)
+ (let ((#{names 4575}#
+ (map (lambda (#{x 4765}#)
+ (#{id-var-name 4332}# #{x 4765}# #{w 4482}#))
+ #{var 4571}#)))
(begin
(for-each
- (lambda (#{id 2872}# #{n 2873}#)
- (let ((#{atom-key 2878}#
- (car (let ((#{t 5036}#
- (assq #{n 2873}# #{r 2839}#)))
- (if #{t 5036}#
- (cdr #{t 5036}#)
- (if (symbol? #{n 2873}#)
- (let ((#{t 5037}#
-
(#{get-global-definition-hook 263}#
- #{n 2873}#
- #{mod 2842}#)))
- (if #{t 5037}#
- #{t 5037}#
+ (lambda (#{id 4576}# #{n 4577}#)
+ (let ((#{atom-key 4578}#
+ (car (let ((#{t 4702}#
+ (assq #{n 4577}# #{r 4481}#)))
+ (if #{t 4702}#
+ (cdr #{t 4702}#)
+ (if (symbol? #{n 4577}#)
+ (let ((#{t 4707}#
+ (begin
+ (if (if (not #{mod 4484}#)
+ (current-module)
+ #f)
+ (warn "module system is
booted, we should have a module"
+ #{n 4577}#))
+ (let ((#{v 4744}#
+ (module-variable
+ (if #{mod 4484}#
+
(resolve-module
+ (cdr #{mod
4484}#))
+
(current-module))
+ #{n 4577}#)))
+ (if #{v 4744}#
+ (if (variable-bound?
+ #{v 4744}#)
+ (let ((#{val 4753}#
+
(variable-ref
+ #{v
4744}#)))
+ (if (macro?
+ #{val
4753}#)
+ (if (macro-type
+ #{val
4753}#)
+ (cons
(macro-type
+ #{val
4753}#)
+
(macro-binding
+ #{val
4753}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 4707}#
+ #{t 4707}#
'(global)))
'(displaced-lexical)))))))
- (if (memv #{atom-key 2878}# '(displaced-lexical))
+ (if (let ((#{t 4611}# #{atom-key 4578}#))
+ (eqv? #{t 4611}# 'displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e 2838}#
- (#{wrap 423}#
+ #{e 4480}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{id 2872}#) #{s 2841}# #f)
+ (if (if (pair? #{id 4576}#) #{s 4483}# #f)
(set-source-properties!
- #{id 2872}#
- #{s 2841}#))
- #{id 2872}#)
- #{w 2840}#
- #{mod 2842}#)))))
- #{var 2863}#
- #{names 2868}#)
- (#{chi-body 445}#
- (cons #{e1 2865}# #{e2 2866}#)
- (#{wrap 423}#
+ #{id 4576}#
+ #{s 4483}#))
+ #{id 4576}#)
+ #{w 4482}#
+ #{mod 4484}#)))))
+ #{var 4571}#
+ #{names 4575}#)
+ (#{chi-body 4349}#
+ (cons #{e1 4573}# #{e2 4574}#)
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 2838}#) #{s 2841}# #f)
- (set-source-properties! #{e 2838}# #{s 2841}#))
- #{e 2838}#)
- #{w 2840}#
- #{mod 2842}#)
- (#{extend-env 337}#
- #{names 2868}#
- (let ((#{trans-r 2884}#
- (#{macros-only-env 341}# #{r 2839}#)))
- (map (lambda (#{x 2885}#)
+ (if (if (pair? #{e 4480}#) #{s 4483}# #f)
+ (set-source-properties! #{e 4480}# #{s 4483}#))
+ #{e 4480}#)
+ #{w 4482}#
+ #{mod 4484}#)
+ (#{extend-env 4307}#
+ #{names 4575}#
+ (let ((#{trans-r 4851}#
+ (#{macros-only-env 4309}# #{r 4481}#)))
+ (map (lambda (#{x 4852}#)
(cons 'macro
- (#{eval-local-transformer 449}#
- (#{chi 437}#
- #{x 2885}#
- #{trans-r 2884}#
- #{w 2840}#
- #{mod 2842}#)
- #{mod 2842}#)))
- #{val 2864}#))
- #{r 2839}#)
- #{w 2840}#
- #{mod 2842}#))))
- #{tmp 2849}#)
+ (#{eval-local-transformer 4351}#
+ (#{chi 4345}#
+ #{x 4852}#
+ #{trans-r 4851}#
+ #{w 4482}#
+ #{mod 4484}#)
+ #{mod 4484}#)))
+ #{val 4572}#))
+ #{r 4481}#)
+ #{w 4482}#
+ #{mod 4484}#))))
+ #{tmp 4486}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 2838}#) #{s 2841}# #f)
- (set-source-properties! #{e 2838}# #{s 2841}#))
- #{e 2838}#)
- #{w 2840}#
- #{mod 2842}#))))))
+ (if (if (pair? #{e 4480}#) #{s 4483}# #f)
+ (set-source-properties! #{e 4480}# #{s 4483}#))
+ #{e 4480}#)
+ #{w 4482}#
+ #{mod 4484}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 2891}#
- #{r 2892}#
- #{w 2893}#
- #{s 2894}#
- #{mod 2895}#)
- (let ((#{tmp 2902}# ($sc-dispatch #{e 2891}# '(_ any))))
- (if #{tmp 2902}#
+ (lambda (#{e 5066}#
+ #{r 5067}#
+ #{w 5068}#
+ #{s 5069}#
+ #{mod 5070}#)
+ (let ((#{tmp 5072}# ($sc-dispatch #{e 5066}# '(_ any))))
+ (if #{tmp 5072}#
(@apply
- (lambda (#{e 2904}#)
- (let ((#{exp 5266}#
- (#{strip 463}# #{e 2904}# #{w 2893}#)))
+ (lambda (#{e 5075}#)
+ (let ((#{exp 5079}#
+ (#{strip 4358}# #{e 5075}# #{w 5068}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 2894}#
- #{exp 5266}#)))
- #{tmp 2902}#)
+ #{s 5069}#
+ #{exp 5079}#)))
+ #{tmp 5072}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 2891}#) #{s 2894}# #f)
- (set-source-properties! #{e 2891}# #{s 2894}#))
- #{e 2891}#)
- #{w 2893}#
- #{mod 2895}#)))))))
- (#{global-extend 345}#
+ (if (if (pair? #{e 5066}#) #{s 5069}# #f)
+ (set-source-properties! #{e 5066}# #{s 5069}#))
+ #{e 5066}#)
+ #{w 5068}#
+ #{mod 5070}#)))))))
+ (#{global-extend 4311}#
'core
'syntax
(letrec*
- ((#{gen-syntax 2908}#
- (lambda (#{src 2923}#
- #{e 2924}#
- #{r 2925}#
- #{maps 2926}#
- #{ellipsis? 2927}#
- #{mod 2928}#)
- (if (if (symbol? #{e 2924}#)
+ ((#{gen-syntax 5303}#
+ (lambda (#{src 5405}#
+ #{e 5406}#
+ #{r 5407}#
+ #{maps 5408}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#)
+ (if (if (symbol? #{e 5406}#)
#t
- (if (if (vector? #{e 2924}#)
- (if (= (vector-length #{e 2924}#) 4)
- (eq? (vector-ref #{e 2924}# 0) 'syntax-object)
+ (if (if (vector? #{e 5406}#)
+ (if (= (vector-length #{e 5406}#) 4)
+ (eq? (vector-ref #{e 5406}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 2924}# 1))
+ (symbol? (vector-ref #{e 5406}# 1))
#f))
- (let ((#{label 2936}#
- (#{id-var-name 411}# #{e 2924}# '(()))))
- (let ((#{b 2939}#
- (let ((#{t 5329}# (assq #{label 2936}# #{r 2925}#)))
- (if #{t 5329}#
- (cdr #{t 5329}#)
- (if (symbol? #{label 2936}#)
- (let ((#{t 5330}#
- (#{get-global-definition-hook 263}#
- #{label 2936}#
- #{mod 2928}#)))
- (if #{t 5330}# #{t 5330}# '(global)))
+ (let ((#{label 5437}#
+ (#{id-var-name 4332}# #{e 5406}# '(()))))
+ (let ((#{b 5438}#
+ (let ((#{t 5575}# (assq #{label 5437}# #{r 5407}#)))
+ (if #{t 5575}#
+ (cdr #{t 5575}#)
+ (if (symbol? #{label 5437}#)
+ (let ((#{t 5580}#
+ (begin
+ (if (if (not #{mod 5410}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we
should have a module"
+ #{label 5437}#))
+ (let ((#{v 5617}#
+ (module-variable
+ (if #{mod 5410}#
+ (resolve-module
+ (cdr #{mod 5410}#))
+ (current-module))
+ #{label 5437}#)))
+ (if #{v 5617}#
+ (if (variable-bound? #{v 5617}#)
+ (let ((#{val 5626}#
+ (variable-ref
+ #{v 5617}#)))
+ (if (macro? #{val 5626}#)
+ (if (macro-type
+ #{val 5626}#)
+ (cons (macro-type
+ #{val 5626}#)
+ (macro-binding
+ #{val 5626}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 5580}# #{t 5580}# '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 2939}#) 'syntax)
+ (if (eq? (car #{b 5438}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 2942}# (cdr #{b 2939}#)))
- (#{gen-ref 2910}#
- #{src 2923}#
- (car #{var.lev 2942}#)
- (cdr #{var.lev 2942}#)
- #{maps 2926}#)))
- (lambda (#{var 2944}# #{maps 2945}#)
- (values (list 'ref #{var 2944}#) #{maps 2945}#)))
- (if (#{ellipsis? 2927}# #{e 2924}#)
+ (let ((#{var.lev 5471}# (cdr #{b 5438}#)))
+ (#{gen-ref 5304}#
+ #{src 5405}#
+ (car #{var.lev 5471}#)
+ (cdr #{var.lev 5471}#)
+ #{maps 5408}#)))
+ (lambda (#{var 5567}# #{maps 5568}#)
+ (values (list 'ref #{var 5567}#) #{maps 5568}#)))
+ (if (#{ellipsis? 5409}# #{e 5406}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 2923}#)
- (values (list 'quote #{e 2924}#) #{maps 2926}#)))))
- (let ((#{tmp 2951}#
- ($sc-dispatch #{e 2924}# '(any any))))
- (if (if #{tmp 2951}#
+ #{src 5405}#)
+ (values (list 'quote #{e 5406}#) #{maps 5408}#)))))
+ (let ((#{tmp 5638}#
+ ($sc-dispatch #{e 5406}# '(any any))))
+ (if (if #{tmp 5638}#
(@apply
- (lambda (#{dots 2954}# #{e 2955}#)
- (#{ellipsis? 2927}# #{dots 2954}#))
- #{tmp 2951}#)
+ (lambda (#{dots 5642}# #{e 5643}#)
+ (#{ellipsis? 5409}# #{dots 5642}#))
+ #{tmp 5638}#)
#f)
(@apply
- (lambda (#{dots 2958}# #{e 2959}#)
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{e 2959}#
- #{r 2925}#
- #{maps 2926}#
- (lambda (#{x 2960}#) #f)
- #{mod 2928}#))
- #{tmp 2951}#)
- (let ((#{tmp 2962}#
- ($sc-dispatch #{e 2924}# '(any any . any))))
- (if (if #{tmp 2962}#
+ (lambda (#{dots 5644}# #{e 5645}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{e 5645}#
+ #{r 5407}#
+ #{maps 5408}#
+ (lambda (#{x 5646}#) #f)
+ #{mod 5410}#))
+ #{tmp 5638}#)
+ (let ((#{tmp 5647}#
+ ($sc-dispatch #{e 5406}# '(any any . any))))
+ (if (if #{tmp 5647}#
(@apply
- (lambda (#{x 2966}# #{dots 2967}# #{y 2968}#)
- (#{ellipsis? 2927}# #{dots 2967}#))
- #{tmp 2962}#)
+ (lambda (#{x 5651}# #{dots 5652}# #{y 5653}#)
+ (#{ellipsis? 5409}# #{dots 5652}#))
+ #{tmp 5647}#)
#f)
(@apply
- (lambda (#{x 2972}# #{dots 2973}# #{y 2974}#)
+ (lambda (#{x 5654}# #{dots 5655}# #{y 5656}#)
(letrec*
- ((#{f 2978}#
- (lambda (#{y 2979}# #{k 2980}#)
- (let ((#{tmp 2988}#
+ ((#{f 5657}#
+ (lambda (#{y 5665}# #{k 5666}#)
+ (let ((#{tmp 5668}#
($sc-dispatch
- #{y 2979}#
+ #{y 5665}#
'(any . any))))
- (if (if #{tmp 2988}#
+ (if (if #{tmp 5668}#
(@apply
- (lambda (#{dots 2991}# #{y 2992}#)
- (#{ellipsis? 2927}#
- #{dots 2991}#))
- #{tmp 2988}#)
+ (lambda (#{dots 5672}# #{y 5673}#)
+ (#{ellipsis? 5409}#
+ #{dots 5672}#))
+ #{tmp 5668}#)
#f)
(@apply
- (lambda (#{dots 2995}# #{y 2996}#)
- (#{f 2978}#
- #{y 2996}#
- (lambda (#{maps 2997}#)
+ (lambda (#{dots 5674}# #{y 5675}#)
+ (#{f 5657}#
+ #{y 5675}#
+ (lambda (#{maps 5676}#)
(call-with-values
(lambda ()
- (#{k 2980}#
- (cons '() #{maps 2997}#)))
- (lambda (#{x 2999}#
- #{maps 3000}#)
- (if (null? (car #{maps
3000}#))
+ (#{k 5666}#
+ (cons '() #{maps 5676}#)))
+ (lambda (#{x 5677}#
+ #{maps 5678}#)
+ (if (null? (car #{maps
5678}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 2923}#)
+ #{src 5405}#)
(values
- (#{gen-mappend 2912}#
- #{x 2999}#
- (car #{maps 3000}#))
- (cdr #{maps
3000}#))))))))
- #{tmp 2988}#)
+ (let ((#{map-env 5682}#
+ (car #{maps
5678}#)))
+ (list 'apply
+ '(primitive
+ append)
+ (#{gen-map 5306}#
+ #{x 5677}#
+ #{map-env
5682}#)))
+ (cdr #{maps
5678}#))))))))
+ #{tmp 5668}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{y 2979}#
- #{r 2925}#
- #{maps 2926}#
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{y 3005}# #{maps 3006}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{y 5665}#
+ #{r 5407}#
+ #{maps 5408}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{y 5685}# #{maps 5686}#)
(call-with-values
(lambda ()
- (#{k 2980}# #{maps 3006}#))
- (lambda (#{x 3009}# #{maps 3010}#)
+ (#{k 5666}# #{maps 5686}#))
+ (lambda (#{x 5687}# #{maps 5688}#)
(values
- (#{gen-append 2918}#
- #{x 3009}#
- #{y 3005}#)
- #{maps 3010}#))))))))))
- (#{f 2978}#
- #{y 2974}#
- (lambda (#{maps 2981}#)
+ (if (equal? #{y 5685}# ''())
+ #{x 5687}#
+ (list 'append
+ #{x 5687}#
+ #{y 5685}#))
+ #{maps 5688}#))))))))))
+ (#{f 5657}#
+ #{y 5656}#
+ (lambda (#{maps 5660}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{x 2972}#
- #{r 2925}#
- (cons '() #{maps 2981}#)
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{x 2983}# #{maps 2984}#)
- (if (null? (car #{maps 2984}#))
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{x 5654}#
+ #{r 5407}#
+ (cons '() #{maps 5660}#)
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{x 5661}# #{maps 5662}#)
+ (if (null? (car #{maps 5662}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 2923}#)
+ #{src 5405}#)
(values
- (#{gen-map 2914}#
- #{x 2983}#
- (car #{maps 2984}#))
- (cdr #{maps 2984}#)))))))))
- #{tmp 2962}#)
- (let ((#{tmp 3013}#
- ($sc-dispatch #{e 2924}# '(any . any))))
- (if #{tmp 3013}#
+ (#{gen-map 5306}#
+ #{x 5661}#
+ (car #{maps 5662}#))
+ (cdr #{maps 5662}#)))))))))
+ #{tmp 5647}#)
+ (let ((#{tmp 5704}#
+ ($sc-dispatch #{e 5406}# '(any . any))))
+ (if #{tmp 5704}#
(@apply
- (lambda (#{x 3016}# #{y 3017}#)
+ (lambda (#{x 5708}# #{y 5709}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{x 3016}#
- #{r 2925}#
- #{maps 2926}#
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{x 3018}# #{maps 3019}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{x 5708}#
+ #{r 5407}#
+ #{maps 5408}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{x 5710}# #{maps 5711}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{y 3017}#
- #{r 2925}#
- #{maps 3019}#
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{y 3022}# #{maps 3023}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{y 5709}#
+ #{r 5407}#
+ #{maps 5711}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{y 5712}# #{maps 5713}#)
(values
- (#{gen-cons 2916}#
- #{x 3018}#
- #{y 3022}#)
- #{maps 3023}#))))))
- #{tmp 3013}#)
- (let ((#{tmp 3026}#
+ (let ((#{atom-key 5718}#
+ (car #{y 5712}#)))
+ (if (eqv? #{atom-key 5718}# 'quote)
+ (if (eq? (car #{x 5710}#) 'quote)
+ (list 'quote
+ (cons (car (cdr #{x
5710}#))
+ (car (cdr #{y
5712}#))))
+ (if (eq? (car (cdr #{y 5712}#))
+ '())
+ (list 'list #{x 5710}#)
+ (list 'cons
+ #{x 5710}#
+ #{y 5712}#)))
+ (if (eqv? #{atom-key 5718}# 'list)
+ (cons 'list
+ (cons #{x 5710}#
+ (cdr #{y 5712}#)))
+ (list 'cons
+ #{x 5710}#
+ #{y 5712}#))))
+ #{maps 5713}#))))))
+ #{tmp 5704}#)
+ (let ((#{tmp 5747}#
($sc-dispatch
- #{e 2924}#
+ #{e 5406}#
'#(vector (any . each-any)))))
- (if #{tmp 3026}#
+ (if #{tmp 5747}#
(@apply
- (lambda (#{e1 3029}# #{e2 3030}#)
+ (lambda (#{e1 5751}# #{e2 5752}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- (cons #{e1 3029}# #{e2 3030}#)
- #{r 2925}#
- #{maps 2926}#
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{e 3032}# #{maps 3033}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ (cons #{e1 5751}# #{e2 5752}#)
+ #{r 5407}#
+ #{maps 5408}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{e 5753}# #{maps 5754}#)
(values
- (#{gen-vector 2920}# #{e 3032}#)
- #{maps 3033}#))))
- #{tmp 3026}#)
+ (if (eq? (car #{e 5753}#) 'list)
+ (cons 'vector (cdr #{e 5753}#))
+ (if (eq? (car #{e 5753}#) 'quote)
+ (list 'quote
+ (list->vector
+ (car (cdr #{e 5753}#))))
+ (list 'list->vector #{e 5753}#)))
+ #{maps 5754}#))))
+ #{tmp 5747}#)
(values
- (list 'quote #{e 2924}#)
- #{maps 2926}#))))))))))))
- (#{gen-ref 2910}#
- (lambda (#{src 3039}#
- #{var 3040}#
- #{level 3041}#
- #{maps 3042}#)
- (if (= #{level 3041}# 0)
- (values #{var 3040}# #{maps 3042}#)
- (if (null? #{maps 3042}#)
+ (list 'quote #{e 5406}#)
+ #{maps 5408}#))))))))))))
+ (#{gen-ref 5304}#
+ (lambda (#{src 5781}#
+ #{var 5782}#
+ #{level 5783}#
+ #{maps 5784}#)
+ (if (= #{level 5783}# 0)
+ (values #{var 5782}# #{maps 5784}#)
+ (if (null? #{maps 5784}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 3039}#)
+ #{src 5781}#)
(call-with-values
(lambda ()
- (#{gen-ref 2910}#
- #{src 3039}#
- #{var 3040}#
- (#{1-}# #{level 3041}#)
- (cdr #{maps 3042}#)))
- (lambda (#{outer-var 3049}# #{outer-maps 3050}#)
- (let ((#{b 3054}#
- (assq #{outer-var 3049}# (car #{maps 3042}#))))
- (if #{b 3054}#
- (values (cdr #{b 3054}#) #{maps 3042}#)
- (let ((#{inner-var 3056}#
+ (#{gen-ref 5304}#
+ #{src 5781}#
+ #{var 5782}#
+ (#{1-}# #{level 5783}#)
+ (cdr #{maps 5784}#)))
+ (lambda (#{outer-var 5785}# #{outer-maps 5786}#)
+ (let ((#{b 5787}#
+ (assq #{outer-var 5785}# (car #{maps 5784}#))))
+ (if #{b 5787}#
+ (values (cdr #{b 5787}#) #{maps 5784}#)
+ (let ((#{inner-var 5789}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{inner-var 3056}#
- (cons (cons (cons #{outer-var 3049}#
- #{inner-var 3056}#)
- (car #{maps 3042}#))
- #{outer-maps 3050}#)))))))))))
- (#{gen-mappend 2912}#
- (lambda (#{e 3057}# #{map-env 3058}#)
- (list 'apply
- '(primitive append)
- (#{gen-map 2914}# #{e 3057}# #{map-env 3058}#))))
- (#{gen-map 2914}#
- (lambda (#{e 3062}# #{map-env 3063}#)
- (let ((#{formals 3068}# (map cdr #{map-env 3063}#))
- (#{actuals 3069}#
- (map (lambda (#{x 3070}#)
- (list 'ref (car #{x 3070}#)))
- #{map-env 3063}#)))
- (if (eq? (car #{e 3062}#) 'ref)
- (car #{actuals 3069}#)
+ #{inner-var 5789}#
+ (cons (cons (cons #{outer-var 5785}#
+ #{inner-var 5789}#)
+ (car #{maps 5784}#))
+ #{outer-maps 5786}#)))))))))))
+ (#{gen-map 5306}#
+ (lambda (#{e 5803}# #{map-env 5804}#)
+ (let ((#{formals 5805}# (map cdr #{map-env 5804}#))
+ (#{actuals 5806}#
+ (map (lambda (#{x 5808}#)
+ (list 'ref (car #{x 5808}#)))
+ #{map-env 5804}#)))
+ (if (eq? (car #{e 5803}#) 'ref)
+ (car #{actuals 5806}#)
(if (and-map
- (lambda (#{x 3077}#)
- (if (eq? (car #{x 3077}#) 'ref)
- (memq (car (cdr #{x 3077}#)) #{formals 3068}#)
+ (lambda (#{x 5809}#)
+ (if (eq? (car #{x 5809}#) 'ref)
+ (memq (car (cdr #{x 5809}#)) #{formals 5805}#)
#f))
- (cdr #{e 3062}#))
+ (cdr #{e 5803}#))
(cons 'map
- (cons (list 'primitive (car #{e 3062}#))
- (map (let ((#{r 3083}#
+ (cons (list 'primitive (car #{e 5803}#))
+ (map (let ((#{r 5811}#
(map cons
- #{formals 3068}#
- #{actuals 3069}#)))
- (lambda (#{x 3084}#)
- (cdr (assq (car (cdr #{x 3084}#))
- #{r 3083}#))))
- (cdr #{e 3062}#))))
+ #{formals 5805}#
+ #{actuals 5806}#)))
+ (lambda (#{x 5812}#)
+ (cdr (assq (car (cdr #{x 5812}#))
+ #{r 5811}#))))
+ (cdr #{e 5803}#))))
(cons 'map
- (cons (list 'lambda #{formals 3068}# #{e 3062}#)
- #{actuals 3069}#)))))))
- (#{gen-cons 2916}#
- (lambda (#{x 3088}# #{y 3089}#)
- (let ((#{atom-key 3094}# (car #{y 3089}#)))
- (if (memv #{atom-key 3094}# '(quote))
- (if (eq? (car #{x 3088}#) 'quote)
- (list 'quote
- (cons (car (cdr #{x 3088}#))
- (car (cdr #{y 3089}#))))
- (if (eq? (car (cdr #{y 3089}#)) '())
- (list 'list #{x 3088}#)
- (list 'cons #{x 3088}# #{y 3089}#)))
- (if (memv #{atom-key 3094}# '(list))
- (cons 'list (cons #{x 3088}# (cdr #{y 3089}#)))
- (list 'cons #{x 3088}# #{y 3089}#))))))
- (#{gen-append 2918}#
- (lambda (#{x 3103}# #{y 3104}#)
- (if (equal? #{y 3104}# ''())
- #{x 3103}#
- (list 'append #{x 3103}# #{y 3104}#))))
- (#{gen-vector 2920}#
- (lambda (#{x 3108}#)
- (if (eq? (car #{x 3108}#) 'list)
- (cons 'vector (cdr #{x 3108}#))
- (if (eq? (car #{x 3108}#) 'quote)
- (list 'quote
- (list->vector (car (cdr #{x 3108}#))))
- (list 'list->vector #{x 3108}#)))))
- (#{regen 2922}#
- (lambda (#{x 3118}#)
- (let ((#{atom-key 3122}# (car #{x 3118}#)))
- (if (memv #{atom-key 3122}# '(ref))
- (let ((#{name 5345}# (car (cdr #{x 3118}#)))
- (#{var 5346}# (car (cdr #{x 3118}#))))
+ (cons (list 'lambda #{formals 5805}# #{e 5803}#)
+ #{actuals 5806}#)))))))
+ (#{regen 5310}#
+ (lambda (#{x 5814}#)
+ (let ((#{atom-key 5815}# (car #{x 5814}#)))
+ (if (eqv? #{atom-key 5815}# 'ref)
+ (let ((#{name 5825}# (car (cdr #{x 5814}#)))
+ (#{var 5826}# (car (cdr #{x 5814}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 5345}#
- #{var 5346}#))
- (if (memv #{atom-key 3122}# '(primitive))
- (let ((#{name 5355}# (car (cdr #{x 3118}#))))
+ #{name 5825}#
+ #{var 5826}#))
+ (if (eqv? #{atom-key 5815}# 'primitive)
+ (let ((#{name 5838}# (car (cdr #{x 5814}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5355}#)
+ #{name 5838}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5355}#
+ #{name 5838}#
#f)))
- (if (memv #{atom-key 3122}# '(quote))
- (let ((#{exp 5369}# (car (cdr #{x 3118}#))))
+ (if (eqv? #{atom-key 5815}# 'quote)
+ (let ((#{exp 5856}# (car (cdr #{x 5814}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 5369}#))
- (if (memv #{atom-key 3122}# '(lambda))
- (if (list? (car (cdr #{x 3118}#)))
- (let ((#{req 5377}# (car (cdr #{x 3118}#)))
- (#{vars 5379}# (car (cdr #{x 3118}#)))
- (#{exp 5381}#
- (#{regen 2922}#
- (car (cdr (cdr #{x 3118}#))))))
- (let ((#{body 5386}#
+ #{exp 5856}#))
+ (if (eqv? #{atom-key 5815}# 'lambda)
+ (if (list? (car (cdr #{x 5814}#)))
+ (let ((#{req 5867}# (car (cdr #{x 5814}#)))
+ (#{vars 5869}# (car (cdr #{x 5814}#)))
+ (#{exp 5871}#
+ (#{regen 5310}#
+ (car (cdr (cdr #{x 5814}#))))))
+ (let ((#{body 5876}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 5377}#
+ #{req 5867}#
#f
#f
#f
'()
- #{vars 5379}#
- #{exp 5381}#
+ #{vars 5869}#
+ #{exp 5871}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 5386}#)))
- (error "how did we get here" #{x 3118}#))
- (let ((#{fun-exp 5401}#
- (let ((#{name 5406}# (car #{x 3118}#)))
+ #{body 5876}#)))
+ (error "how did we get here" #{x 5814}#))
+ (let ((#{fun-exp 5892}#
+ (let ((#{name 5901}# (car #{x 5814}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5406}#)
+ #{name 5901}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5406}#
+ #{name 5901}#
#f))))
- (#{arg-exps 5402}#
- (map #{regen 2922}# (cdr #{x 3118}#))))
+ (#{arg-exps 5893}#
+ (map #{regen 5310}# (cdr #{x 5814}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 5401}#
- #{arg-exps 5402}#))))))))))
- (lambda (#{e 3134}#
- #{r 3135}#
- #{w 3136}#
- #{s 3137}#
- #{mod 3138}#)
- (let ((#{e 3145}#
- (#{wrap 423}#
+ #{fun-exp 5892}#
+ #{arg-exps 5893}#))))))))))
+ (lambda (#{e 5311}#
+ #{r 5312}#
+ #{w 5313}#
+ #{s 5314}#
+ #{mod 5315}#)
+ (let ((#{e 5316}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3134}#) #{s 3137}# #f)
- (set-source-properties! #{e 3134}# #{s 3137}#))
- #{e 3134}#)
- #{w 3136}#
- #{mod 3138}#)))
- (let ((#{tmp 3147}# ($sc-dispatch #{e 3145}# '(_ any))))
- (if #{tmp 3147}#
+ (if (if (pair? #{e 5311}#) #{s 5314}# #f)
+ (set-source-properties! #{e 5311}# #{s 5314}#))
+ #{e 5311}#)
+ #{w 5313}#
+ #{mod 5315}#)))
+ (let ((#{tmp 5318}# ($sc-dispatch #{e 5316}# '(_ any))))
+ (if #{tmp 5318}#
(@apply
- (lambda (#{x 3149}#)
+ (lambda (#{x 5343}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{e 3145}#
- #{x 3149}#
- #{r 3135}#
+ (#{gen-syntax 5303}#
+ #{e 5316}#
+ #{x 5343}#
+ #{r 5312}#
'()
- #{ellipsis? 453}#
- #{mod 3138}#))
- (lambda (#{e 3150}# #{maps 3151}#)
- (#{regen 2922}# #{e 3150}#))))
- #{tmp 3147}#)
+ #{ellipsis? 4353}#
+ #{mod 5315}#))
+ (lambda (#{e 5397}# #{maps 5398}#)
+ (#{regen 5310}# #{e 5397}#))))
+ #{tmp 5318}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 3145}#)))))))
- (#{global-extend 345}#
+ #{e 5316}#)))))))
+ (#{global-extend 4311}#
'core
'lambda
- (lambda (#{e 3156}#
- #{r 3157}#
- #{w 3158}#
- #{s 3159}#
- #{mod 3160}#)
- (let ((#{tmp 3167}#
- ($sc-dispatch #{e 3156}# '(_ any any . each-any))))
- (if #{tmp 3167}#
+ (lambda (#{e 6096}#
+ #{r 6097}#
+ #{w 6098}#
+ #{s 6099}#
+ #{mod 6100}#)
+ (let ((#{tmp 6102}#
+ ($sc-dispatch #{e 6096}# '(_ any any . each-any))))
+ (if #{tmp 6102}#
(@apply
- (lambda (#{args 3171}# #{e1 3172}# #{e2 3173}#)
+ (lambda (#{args 6106}# #{e1 6107}# #{e2 6108}#)
(call-with-values
(lambda ()
- (#{lambda-formals 455}# #{args 3171}#))
- (lambda (#{req 3174}#
- #{opt 3175}#
- #{rest 3176}#
- #{kw 3177}#)
+ (#{lambda-formals 4354}# #{args 6106}#))
+ (lambda (#{req 6111}#
+ #{opt 6112}#
+ #{rest 6113}#
+ #{kw 6114}#)
(letrec*
- ((#{lp 3185}#
- (lambda (#{body 3186}# #{meta 3187}#)
- (let ((#{tmp 3190}#
+ ((#{lp 6115}#
+ (lambda (#{body 6118}# #{meta 6119}#)
+ (let ((#{tmp 6121}#
($sc-dispatch
- #{body 3186}#
+ #{body 6118}#
'(any any . each-any))))
- (if (if #{tmp 3190}#
+ (if (if #{tmp 6121}#
(@apply
- (lambda (#{docstring 3194}#
- #{e1 3195}#
- #{e2 3196}#)
+ (lambda (#{docstring 6125}#
+ #{e1 6126}#
+ #{e2 6127}#)
(string?
- (syntax->datum #{docstring 3194}#)))
- #{tmp 3190}#)
+ (syntax->datum #{docstring 6125}#)))
+ #{tmp 6121}#)
#f)
(@apply
- (lambda (#{docstring 3200}#
- #{e1 3201}#
- #{e2 3202}#)
- (#{lp 3185}#
- (cons #{e1 3201}# #{e2 3202}#)
+ (lambda (#{docstring 6128}#
+ #{e1 6129}#
+ #{e2 6130}#)
+ (#{lp 6115}#
+ (cons #{e1 6129}# #{e2 6130}#)
(append
- #{meta 3187}#
+ #{meta 6119}#
(list (cons 'documentation
(syntax->datum
- #{docstring 3200}#))))))
- #{tmp 3190}#)
- (let ((#{tmp 3205}#
+ #{docstring 6128}#))))))
+ #{tmp 6121}#)
+ (let ((#{tmp 6131}#
($sc-dispatch
- #{body 3186}#
+ #{body 6118}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 3205}#
+ (if #{tmp 6131}#
(@apply
- (lambda (#{k 3210}#
- #{v 3211}#
- #{e1 3212}#
- #{e2 3213}#)
- (#{lp 3185}#
- (cons #{e1 3212}# #{e2 3213}#)
+ (lambda (#{k 6135}#
+ #{v 6136}#
+ #{e1 6137}#
+ #{e2 6138}#)
+ (#{lp 6115}#
+ (cons #{e1 6137}# #{e2 6138}#)
(append
- #{meta 3187}#
+ #{meta 6119}#
(syntax->datum
(map cons
- #{k 3210}#
- #{v 3211}#)))))
- #{tmp 3205}#)
- ((lambda (#{e 2267}#
- #{r 2268}#
- #{w 2269}#
- #{s 2270}#
- #{mod 2271}#
- #{req 2272}#
- #{rest 2273}#
- #{meta 2274}#
- #{body 2275}#)
- (let ((#{ids 2287}#
- (if #{rest 2273}#
- (append
- #{req 2272}#
- (list #{rest 2273}#))
- #{req 2272}#)))
- (let ((#{vars 2289}#
- (map #{gen-var 465}#
- #{ids 2287}#)))
- (let ((#{labels 2291}#
- (#{gen-labels 369}#
- #{ids 2287}#)))
- (#{build-simple-lambda 289}#
- #{s 2270}#
- (map syntax->datum #{req 2272}#)
- (if #{rest 2273}#
- (syntax->datum #{rest 2273}#)
- #f)
- #{vars 2289}#
- #{meta 2274}#
- (#{chi-body 445}#
- #{body 2275}#
- (#{source-wrap 425}#
- #{e 2267}#
- #{w 2269}#
- #{s 2270}#
- #{mod 2271}#)
- (#{extend-var-env 339}#
- #{labels 2291}#
- #{vars 2289}#
- #{r 2268}#)
- (#{make-binding-wrap 401}#
- #{ids 2287}#
- #{labels 2291}#
- #{w 2269}#)
- #{mod 2271}#))))))
- #{e 3156}#
- #{r 3157}#
- #{w 3158}#
- #{s 3159}#
- #{mod 3160}#
- #{req 3174}#
- #{rest 3176}#
- #{meta 3187}#
- #{body 3186}#))))))))
- (#{lp 3185}# (cons #{e1 3172}# #{e2 3173}#) '())))))
- #{tmp 3167}#)
+ #{k 6135}#
+ #{v 6136}#)))))
+ #{tmp 6131}#)
+ (#{chi-simple-lambda 4355}#
+ #{e 6096}#
+ #{r 6097}#
+ #{w 6098}#
+ #{s 6099}#
+ #{mod 6100}#
+ #{req 6111}#
+ #{rest 6113}#
+ #{meta 6119}#
+ #{body 6118}#))))))))
+ (#{lp 6115}# (cons #{e1 6107}# #{e2 6108}#) '())))))
+ #{tmp 6102}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 3156}#)))))
- (module-define!
- (current-module)
+ #{e 6096}#)))))
+ (#{global-extend 4311}#
+ 'core
'lambda*
- (make-syntax-transformer
- 'lambda*
- 'core
- (lambda (#{e 3221}#
- #{r 3222}#
- #{w 3223}#
- #{s 3224}#
- #{mod 3225}#)
- (let ((#{tmp 3232}#
- ($sc-dispatch #{e 3221}# '(_ any any . each-any))))
- (if #{tmp 3232}#
- (@apply
- (lambda (#{args 3236}# #{e1 3237}# #{e2 3238}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 461}#
- #{e 3221}#
- #{r 3222}#
- #{w 3223}#
- #{s 3224}#
- #{mod 3225}#
- #{lambda*-formals 459}#
- (list (cons #{args 3236}#
- (cons #{e1 3237}# #{e2 3238}#)))))
- (lambda (#{meta 3240}# #{lcase 3241}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 3224}#
- #{meta 3240}#
- #{lcase 3241}#))))
- #{tmp 3232}#)
- (syntax-violation
- 'lambda
- "bad lambda*"
- #{e 3221}#))))))
- (module-define!
- (current-module)
+ (lambda (#{e 6430}#
+ #{r 6431}#
+ #{w 6432}#
+ #{s 6433}#
+ #{mod 6434}#)
+ (let ((#{tmp 6436}#
+ ($sc-dispatch #{e 6430}# '(_ any any . each-any))))
+ (if #{tmp 6436}#
+ (@apply
+ (lambda (#{args 6440}# #{e1 6441}# #{e2 6442}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 4357}#
+ #{e 6430}#
+ #{r 6431}#
+ #{w 6432}#
+ #{s 6433}#
+ #{mod 6434}#
+ #{lambda*-formals 4356}#
+ (list (cons #{args 6440}#
+ (cons #{e1 6441}# #{e2 6442}#)))))
+ (lambda (#{meta 6445}# #{lcase 6446}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6433}#
+ #{meta 6445}#
+ #{lcase 6446}#))))
+ #{tmp 6436}#)
+ (syntax-violation
+ 'lambda
+ "bad lambda*"
+ #{e 6430}#)))))
+ (#{global-extend 4311}#
+ 'core
'case-lambda
- (make-syntax-transformer
- 'case-lambda
- 'core
- (lambda (#{e 3246}#
- #{r 3247}#
- #{w 3248}#
- #{s 3249}#
- #{mod 3250}#)
- (let ((#{tmp 3257}#
- ($sc-dispatch
- #{e 3246}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3257}#
- (@apply
- (lambda (#{args 3264}#
- #{e1 3265}#
- #{e2 3266}#
- #{args* 3267}#
- #{e1* 3268}#
- #{e2* 3269}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 461}#
- #{e 3246}#
- #{r 3247}#
- #{w 3248}#
- #{s 3249}#
- #{mod 3250}#
- #{lambda-formals 455}#
- (cons (cons #{args 3264}#
- (cons #{e1 3265}# #{e2 3266}#))
- (map (lambda (#{tmp 3273}#
- #{tmp 3272}#
- #{tmp 3271}#)
- (cons #{tmp 3271}#
- (cons #{tmp 3272}# #{tmp 3273}#)))
- #{e2* 3269}#
- #{e1* 3268}#
- #{args* 3267}#))))
- (lambda (#{meta 3275}# #{lcase 3276}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 3249}#
- #{meta 3275}#
- #{lcase 3276}#))))
- #{tmp 3257}#)
- (syntax-violation
- 'case-lambda
- "bad case-lambda"
- #{e 3246}#))))))
- (module-define!
- (current-module)
+ (lambda (#{e 6620}#
+ #{r 6621}#
+ #{w 6622}#
+ #{s 6623}#
+ #{mod 6624}#)
+ (let ((#{tmp 6626}#
+ ($sc-dispatch
+ #{e 6620}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 6626}#
+ (@apply
+ (lambda (#{args 6630}#
+ #{e1 6631}#
+ #{e2 6632}#
+ #{args* 6633}#
+ #{e1* 6634}#
+ #{e2* 6635}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 4357}#
+ #{e 6620}#
+ #{r 6621}#
+ #{w 6622}#
+ #{s 6623}#
+ #{mod 6624}#
+ #{lambda-formals 4354}#
+ (cons (cons #{args 6630}#
+ (cons #{e1 6631}# #{e2 6632}#))
+ (map (lambda (#{tmp 3274 6638}#
+ #{tmp 3273 6639}#
+ #{tmp 3272 6640}#)
+ (cons #{tmp 3272 6640}#
+ (cons #{tmp 3273 6639}#
+ #{tmp 3274 6638}#)))
+ #{e2* 6635}#
+ #{e1* 6634}#
+ #{args* 6633}#))))
+ (lambda (#{meta 6641}# #{lcase 6642}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6623}#
+ #{meta 6641}#
+ #{lcase 6642}#))))
+ #{tmp 6626}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda"
+ #{e 6620}#)))))
+ (#{global-extend 4311}#
+ 'core
'case-lambda*
- (make-syntax-transformer
- 'case-lambda*
- 'core
- (lambda (#{e 3281}#
- #{r 3282}#
- #{w 3283}#
- #{s 3284}#
- #{mod 3285}#)
- (let ((#{tmp 3292}#
- ($sc-dispatch
- #{e 3281}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3292}#
- (@apply
- (lambda (#{args 3299}#
- #{e1 3300}#
- #{e2 3301}#
- #{args* 3302}#
- #{e1* 3303}#
- #{e2* 3304}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 461}#
- #{e 3281}#
- #{r 3282}#
- #{w 3283}#
- #{s 3284}#
- #{mod 3285}#
- #{lambda*-formals 459}#
- (cons (cons #{args 3299}#
- (cons #{e1 3300}# #{e2 3301}#))
- (map (lambda (#{tmp 3308}#
- #{tmp 3307}#
- #{tmp 3306}#)
- (cons #{tmp 3306}#
- (cons #{tmp 3307}# #{tmp 3308}#)))
- #{e2* 3304}#
- #{e1* 3303}#
- #{args* 3302}#))))
- (lambda (#{meta 3310}# #{lcase 3311}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 3284}#
- #{meta 3310}#
- #{lcase 3311}#))))
- #{tmp 3292}#)
- (syntax-violation
- 'case-lambda
- "bad case-lambda*"
- #{e 3281}#))))))
- (#{global-extend 345}#
+ (lambda (#{e 6805}#
+ #{r 6806}#
+ #{w 6807}#
+ #{s 6808}#
+ #{mod 6809}#)
+ (let ((#{tmp 6811}#
+ ($sc-dispatch
+ #{e 6805}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 6811}#
+ (@apply
+ (lambda (#{args 6815}#
+ #{e1 6816}#
+ #{e2 6817}#
+ #{args* 6818}#
+ #{e1* 6819}#
+ #{e2* 6820}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 4357}#
+ #{e 6805}#
+ #{r 6806}#
+ #{w 6807}#
+ #{s 6808}#
+ #{mod 6809}#
+ #{lambda*-formals 4356}#
+ (cons (cons #{args 6815}#
+ (cons #{e1 6816}# #{e2 6817}#))
+ (map (lambda (#{tmp 3309 6823}#
+ #{tmp 3308 6824}#
+ #{tmp 3307 6825}#)
+ (cons #{tmp 3307 6825}#
+ (cons #{tmp 3308 6824}#
+ #{tmp 3309 6823}#)))
+ #{e2* 6820}#
+ #{e1* 6819}#
+ #{args* 6818}#))))
+ (lambda (#{meta 6826}# #{lcase 6827}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6808}#
+ #{meta 6826}#
+ #{lcase 6827}#))))
+ #{tmp 6811}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ #{e 6805}#)))))
+ (#{global-extend 4311}#
'core
'let
(letrec*
- ((#{chi-let 3317}#
- (lambda (#{e 3318}#
- #{r 3319}#
- #{w 3320}#
- #{s 3321}#
- #{mod 3322}#
- #{constructor 3323}#
- #{ids 3324}#
- #{vals 3325}#
- #{exps 3326}#)
- (if (not (#{valid-bound-ids? 417}# #{ids 3324}#))
+ ((#{chi-let 7019}#
+ (lambda (#{e 7168}#
+ #{r 7169}#
+ #{w 7170}#
+ #{s 7171}#
+ #{mod 7172}#
+ #{constructor 7173}#
+ #{ids 7174}#
+ #{vals 7175}#
+ #{exps 7176}#)
+ (if (not (#{valid-bound-ids? 4335}# #{ids 7174}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 3318}#)
- (let ((#{labels 3338}#
- (#{gen-labels 369}# #{ids 3324}#))
- (#{new-vars 3339}#
- (map #{gen-var 465}# #{ids 3324}#)))
- (let ((#{nw 3342}#
- (#{make-binding-wrap 401}#
- #{ids 3324}#
- #{labels 3338}#
- #{w 3320}#))
- (#{nr 3343}#
- (#{extend-var-env 339}#
- #{labels 3338}#
- #{new-vars 3339}#
- #{r 3319}#)))
- (#{constructor 3323}#
- #{s 3321}#
- (map syntax->datum #{ids 3324}#)
- #{new-vars 3339}#
- (map (lambda (#{x 3344}#)
- (#{chi 437}#
- #{x 3344}#
- #{r 3319}#
- #{w 3320}#
- #{mod 3322}#))
- #{vals 3325}#)
- (#{chi-body 445}#
- #{exps 3326}#
- (#{wrap 423}#
- (begin
- (if (if (pair? #{e 3318}#) #{s 3321}# #f)
- (set-source-properties! #{e 3318}# #{s 3321}#))
- #{e 3318}#)
- #{nw 3342}#
- #{mod 3322}#)
- #{nr 3343}#
- #{nw 3342}#
- #{mod 3322}#))))))))
- (lambda (#{e 3346}#
- #{r 3347}#
- #{w 3348}#
- #{s 3349}#
- #{mod 3350}#)
- (let ((#{tmp 3357}#
+ #{e 7168}#)
+ (let ((#{labels 7254}#
+ (#{gen-labels 4316}# #{ids 7174}#))
+ (#{new-vars 7255}#
+ (map #{gen-var 4359}# #{ids 7174}#)))
+ (let ((#{nw 7256}#
+ (#{make-binding-wrap 4327}#
+ #{ids 7174}#
+ #{labels 7254}#
+ #{w 7170}#))
+ (#{nr 7257}#
+ (#{extend-var-env 4308}#
+ #{labels 7254}#
+ #{new-vars 7255}#
+ #{r 7169}#)))
+ (#{constructor 7173}#
+ #{s 7171}#
+ (map syntax->datum #{ids 7174}#)
+ #{new-vars 7255}#
+ (map (lambda (#{x 7274}#)
+ (#{chi 4345}#
+ #{x 7274}#
+ #{r 7169}#
+ #{w 7170}#
+ #{mod 7172}#))
+ #{vals 7175}#)
+ (#{chi-body 4349}#
+ #{exps 7176}#
+ (#{source-wrap 4339}#
+ #{e 7168}#
+ #{nw 7256}#
+ #{s 7171}#
+ #{mod 7172}#)
+ #{nr 7257}#
+ #{nw 7256}#
+ #{mod 7172}#))))))))
+ (lambda (#{e 7020}#
+ #{r 7021}#
+ #{w 7022}#
+ #{s 7023}#
+ #{mod 7024}#)
+ (let ((#{tmp 7026}#
($sc-dispatch
- #{e 3346}#
+ #{e 7020}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3357}#
+ (if (if #{tmp 7026}#
(@apply
- (lambda (#{id 3362}#
- #{val 3363}#
- #{e1 3364}#
- #{e2 3365}#)
- (and-map #{id? 349}# #{id 3362}#))
- #{tmp 3357}#)
+ (lambda (#{id 7030}#
+ #{val 7031}#
+ #{e1 7032}#
+ #{e2 7033}#)
+ (and-map #{id? 4313}# #{id 7030}#))
+ #{tmp 7026}#)
#f)
(@apply
- (lambda (#{id 3371}#
- #{val 3372}#
- #{e1 3373}#
- #{e2 3374}#)
- (#{chi-let 3317}#
- #{e 3346}#
- #{r 3347}#
- #{w 3348}#
- #{s 3349}#
- #{mod 3350}#
- (lambda (#{src 1104}#
- #{ids 1105}#
- #{vars 1106}#
- #{val-exps 1107}#
- #{body-exp 1108}#)
- (begin
- (for-each
- #{maybe-name-value! 267}#
- #{ids 1105}#
- #{val-exps 1107}#)
- (if (null? #{vars 1106}#)
- #{body-exp 1108}#
- (#{make-let 238}#
- #{src 1104}#
- #{ids 1105}#
- #{vars 1106}#
- #{val-exps 1107}#
- #{body-exp 1108}#))))
- #{id 3371}#
- #{val 3372}#
- (cons #{e1 3373}# #{e2 3374}#)))
- #{tmp 3357}#)
- (let ((#{tmp 3378}#
+ (lambda (#{id 7049}#
+ #{val 7050}#
+ #{e1 7051}#
+ #{e2 7052}#)
+ (#{chi-let 7019}#
+ #{e 7020}#
+ #{r 7021}#
+ #{w 7022}#
+ #{s 7023}#
+ #{mod 7024}#
+ #{build-let 4295}#
+ #{id 7049}#
+ #{val 7050}#
+ (cons #{e1 7051}# #{e2 7052}#)))
+ #{tmp 7026}#)
+ (let ((#{tmp 7082}#
($sc-dispatch
- #{e 3346}#
+ #{e 7020}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 3378}#
+ (if (if #{tmp 7082}#
(@apply
- (lambda (#{f 3384}#
- #{id 3385}#
- #{val 3386}#
- #{e1 3387}#
- #{e2 3388}#)
- (if (if (symbol? #{f 3384}#)
+ (lambda (#{f 7086}#
+ #{id 7087}#
+ #{val 7088}#
+ #{e1 7089}#
+ #{e2 7090}#)
+ (if (if (symbol? #{f 7086}#)
#t
- (if (if (vector? #{f 3384}#)
- (if (= (vector-length #{f 3384}#) 4)
- (eq? (vector-ref #{f 3384}# 0)
+ (if (if (vector? #{f 7086}#)
+ (if (= (vector-length #{f 7086}#) 4)
+ (eq? (vector-ref #{f 7086}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 3384}# 1))
+ (symbol? (vector-ref #{f 7086}# 1))
#f))
- (and-map #{id? 349}# #{id 3385}#)
+ (and-map #{id? 4313}# #{id 7087}#)
#f))
- #{tmp 3378}#)
+ #{tmp 7082}#)
#f)
(@apply
- (lambda (#{f 3397}#
- #{id 3398}#
- #{val 3399}#
- #{e1 3400}#
- #{e2 3401}#)
- (#{chi-let 3317}#
- #{e 3346}#
- #{r 3347}#
- #{w 3348}#
- #{s 3349}#
- #{mod 3350}#
- (lambda (#{src 1114}#
- #{ids 1115}#
- #{vars 1116}#
- #{val-exps 1117}#
- #{body-exp 1118}#)
- (let ((#{f 1128}# (car #{vars 1116}#))
- (#{f-name 1129}# (car #{ids 1115}#))
- (#{vars 1130}# (cdr #{vars 1116}#))
- (#{ids 1131}# (cdr #{ids 1115}#)))
- (let ((#{proc 1133}#
- (#{build-simple-lambda 289}#
- #{src 1114}#
- #{ids 1131}#
- #f
- #{vars 1130}#
- '()
- #{body-exp 1118}#)))
- (begin
- (#{maybe-name-value! 267}#
- #{f-name 1129}#
- #{proc 1133}#)
- (for-each
- #{maybe-name-value! 267}#
- #{ids 1131}#
- #{val-exps 1117}#)
- (#{make-letrec 240}#
- #{src 1114}#
- #f
- (list #{f-name 1129}#)
- (list #{f 1128}#)
- (list #{proc 1133}#)
- (#{build-application 271}#
- #{src 1114}#
- (#{build-lexical-reference 277}#
- 'fun
- #{src 1114}#
- #{f-name 1129}#
- #{f 1128}#)
- #{val-exps 1117}#))))))
- (cons #{f 3397}# #{id 3398}#)
- #{val 3399}#
- (cons #{e1 3400}# #{e2 3401}#)))
- #{tmp 3378}#)
+ (lambda (#{f 7132}#
+ #{id 7133}#
+ #{val 7134}#
+ #{e1 7135}#
+ #{e2 7136}#)
+ (#{chi-let 7019}#
+ #{e 7020}#
+ #{r 7021}#
+ #{w 7022}#
+ #{s 7023}#
+ #{mod 7024}#
+ #{build-named-let 4296}#
+ (cons #{f 7132}# #{id 7133}#)
+ #{val 7134}#
+ (cons #{e1 7135}# #{e2 7136}#)))
+ #{tmp 7082}#)
(syntax-violation
'let
"bad let"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3346}#) #{s 3349}# #f)
- (set-source-properties! #{e 3346}# #{s 3349}#))
- #{e 3346}#)
- #{w 3348}#
- #{mod 3350}#)))))))))
- (#{global-extend 345}#
+ (if (if (pair? #{e 7020}#) #{s 7023}# #f)
+ (set-source-properties! #{e 7020}# #{s 7023}#))
+ #{e 7020}#)
+ #{w 7022}#
+ #{mod 7024}#)))))))))
+ (#{global-extend 4311}#
'core
'letrec
- (lambda (#{e 3407}#
- #{r 3408}#
- #{w 3409}#
- #{s 3410}#
- #{mod 3411}#)
- (let ((#{tmp 3418}#
+ (lambda (#{e 7723}#
+ #{r 7724}#
+ #{w 7725}#
+ #{s 7726}#
+ #{mod 7727}#)
+ (let ((#{tmp 7729}#
($sc-dispatch
- #{e 3407}#
+ #{e 7723}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3418}#
+ (if (if #{tmp 7729}#
(@apply
- (lambda (#{id 3423}#
- #{val 3424}#
- #{e1 3425}#
- #{e2 3426}#)
- (and-map #{id? 349}# #{id 3423}#))
- #{tmp 3418}#)
+ (lambda (#{id 7733}#
+ #{val 7734}#
+ #{e1 7735}#
+ #{e2 7736}#)
+ (and-map #{id? 4313}# #{id 7733}#))
+ #{tmp 7729}#)
#f)
(@apply
- (lambda (#{id 3432}#
- #{val 3433}#
- #{e1 3434}#
- #{e2 3435}#)
- (if (not (#{valid-bound-ids? 417}# #{id 3432}#))
+ (lambda (#{id 7752}#
+ #{val 7753}#
+ #{e1 7754}#
+ #{e2 7755}#)
+ (if (not (#{valid-bound-ids? 4335}# #{id 7752}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 3407}#)
- (let ((#{labels 3441}#
- (#{gen-labels 369}# #{id 3432}#))
- (#{new-vars 3442}#
- (map #{gen-var 465}# #{id 3432}#)))
- (let ((#{w 3445}#
- (#{make-binding-wrap 401}#
- #{id 3432}#
- #{labels 3441}#
- #{w 3409}#))
- (#{r 3446}#
- (#{extend-var-env 339}#
- #{labels 3441}#
- #{new-vars 3442}#
- #{r 3408}#)))
- (#{build-letrec 305}#
- #{s 3410}#
+ #{e 7723}#)
+ (let ((#{labels 7845}#
+ (#{gen-labels 4316}# #{id 7752}#))
+ (#{new-vars 7846}#
+ (map #{gen-var 4359}# #{id 7752}#)))
+ (let ((#{w 7847}#
+ (#{make-binding-wrap 4327}#
+ #{id 7752}#
+ #{labels 7845}#
+ #{w 7725}#))
+ (#{r 7848}#
+ (#{extend-var-env 4308}#
+ #{labels 7845}#
+ #{new-vars 7846}#
+ #{r 7724}#)))
+ (#{build-letrec 4297}#
+ #{s 7726}#
#f
- (map syntax->datum #{id 3432}#)
- #{new-vars 3442}#
- (map (lambda (#{x 3447}#)
- (#{chi 437}#
- #{x 3447}#
- #{r 3446}#
- #{w 3445}#
- #{mod 3411}#))
- #{val 3433}#)
- (#{chi-body 445}#
- (cons #{e1 3434}# #{e2 3435}#)
- (#{wrap 423}#
+ (map syntax->datum #{id 7752}#)
+ #{new-vars 7846}#
+ (map (lambda (#{x 7935}#)
+ (#{chi 4345}#
+ #{x 7935}#
+ #{r 7848}#
+ #{w 7847}#
+ #{mod 7727}#))
+ #{val 7753}#)
+ (#{chi-body 4349}#
+ (cons #{e1 7754}# #{e2 7755}#)
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3407}#) #{s 3410}# #f)
- (set-source-properties! #{e 3407}# #{s 3410}#))
- #{e 3407}#)
- #{w 3445}#
- #{mod 3411}#)
- #{r 3446}#
- #{w 3445}#
- #{mod 3411}#))))))
- #{tmp 3418}#)
+ (if (if (pair? #{e 7723}#) #{s 7726}# #f)
+ (set-source-properties! #{e 7723}# #{s 7726}#))
+ #{e 7723}#)
+ #{w 7847}#
+ #{mod 7727}#)
+ #{r 7848}#
+ #{w 7847}#
+ #{mod 7727}#))))))
+ #{tmp 7729}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3407}#) #{s 3410}# #f)
- (set-source-properties! #{e 3407}# #{s 3410}#))
- #{e 3407}#)
- #{w 3409}#
- #{mod 3411}#))))))
- (#{global-extend 345}#
+ (if (if (pair? #{e 7723}#) #{s 7726}# #f)
+ (set-source-properties! #{e 7723}# #{s 7726}#))
+ #{e 7723}#)
+ #{w 7725}#
+ #{mod 7727}#))))))
+ (#{global-extend 4311}#
'core
'letrec*
- (lambda (#{e 3453}#
- #{r 3454}#
- #{w 3455}#
- #{s 3456}#
- #{mod 3457}#)
- (let ((#{tmp 3464}#
+ (lambda (#{e 8352}#
+ #{r 8353}#
+ #{w 8354}#
+ #{s 8355}#
+ #{mod 8356}#)
+ (let ((#{tmp 8358}#
($sc-dispatch
- #{e 3453}#
+ #{e 8352}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3464}#
+ (if (if #{tmp 8358}#
(@apply
- (lambda (#{id 3469}#
- #{val 3470}#
- #{e1 3471}#
- #{e2 3472}#)
- (and-map #{id? 349}# #{id 3469}#))
- #{tmp 3464}#)
+ (lambda (#{id 8362}#
+ #{val 8363}#
+ #{e1 8364}#
+ #{e2 8365}#)
+ (and-map #{id? 4313}# #{id 8362}#))
+ #{tmp 8358}#)
#f)
(@apply
- (lambda (#{id 3478}#
- #{val 3479}#
- #{e1 3480}#
- #{e2 3481}#)
- (if (not (#{valid-bound-ids? 417}# #{id 3478}#))
+ (lambda (#{id 8381}#
+ #{val 8382}#
+ #{e1 8383}#
+ #{e2 8384}#)
+ (if (not (#{valid-bound-ids? 4335}# #{id 8381}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 3453}#)
- (let ((#{labels 3487}#
- (#{gen-labels 369}# #{id 3478}#))
- (#{new-vars 3488}#
- (map #{gen-var 465}# #{id 3478}#)))
- (let ((#{w 3491}#
- (#{make-binding-wrap 401}#
- #{id 3478}#
- #{labels 3487}#
- #{w 3455}#))
- (#{r 3492}#
- (#{extend-var-env 339}#
- #{labels 3487}#
- #{new-vars 3488}#
- #{r 3454}#)))
- (#{build-letrec 305}#
- #{s 3456}#
+ #{e 8352}#)
+ (let ((#{labels 8474}#
+ (#{gen-labels 4316}# #{id 8381}#))
+ (#{new-vars 8475}#
+ (map #{gen-var 4359}# #{id 8381}#)))
+ (let ((#{w 8476}#
+ (#{make-binding-wrap 4327}#
+ #{id 8381}#
+ #{labels 8474}#
+ #{w 8354}#))
+ (#{r 8477}#
+ (#{extend-var-env 4308}#
+ #{labels 8474}#
+ #{new-vars 8475}#
+ #{r 8353}#)))
+ (#{build-letrec 4297}#
+ #{s 8355}#
#t
- (map syntax->datum #{id 3478}#)
- #{new-vars 3488}#
- (map (lambda (#{x 3493}#)
- (#{chi 437}#
- #{x 3493}#
- #{r 3492}#
- #{w 3491}#
- #{mod 3457}#))
- #{val 3479}#)
- (#{chi-body 445}#
- (cons #{e1 3480}# #{e2 3481}#)
- (#{wrap 423}#
+ (map syntax->datum #{id 8381}#)
+ #{new-vars 8475}#
+ (map (lambda (#{x 8564}#)
+ (#{chi 4345}#
+ #{x 8564}#
+ #{r 8477}#
+ #{w 8476}#
+ #{mod 8356}#))
+ #{val 8382}#)
+ (#{chi-body 4349}#
+ (cons #{e1 8383}# #{e2 8384}#)
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3453}#) #{s 3456}# #f)
- (set-source-properties! #{e 3453}# #{s 3456}#))
- #{e 3453}#)
- #{w 3491}#
- #{mod 3457}#)
- #{r 3492}#
- #{w 3491}#
- #{mod 3457}#))))))
- #{tmp 3464}#)
+ (if (if (pair? #{e 8352}#) #{s 8355}# #f)
+ (set-source-properties! #{e 8352}# #{s 8355}#))
+ #{e 8352}#)
+ #{w 8476}#
+ #{mod 8356}#)
+ #{r 8477}#
+ #{w 8476}#
+ #{mod 8356}#))))))
+ #{tmp 8358}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3453}#) #{s 3456}# #f)
- (set-source-properties! #{e 3453}# #{s 3456}#))
- #{e 3453}#)
- #{w 3455}#
- #{mod 3457}#))))))
- (#{global-extend 345}#
+ (if (if (pair? #{e 8352}#) #{s 8355}# #f)
+ (set-source-properties! #{e 8352}# #{s 8355}#))
+ #{e 8352}#)
+ #{w 8354}#
+ #{mod 8356}#))))))
+ (#{global-extend 4311}#
'core
'set!
- (lambda (#{e 3499}#
- #{r 3500}#
- #{w 3501}#
- #{s 3502}#
- #{mod 3503}#)
- (let ((#{tmp 3510}#
- ($sc-dispatch #{e 3499}# '(_ any any))))
- (if (if #{tmp 3510}#
+ (lambda (#{e 9035}#
+ #{r 9036}#
+ #{w 9037}#
+ #{s 9038}#
+ #{mod 9039}#)
+ (let ((#{tmp 9041}#
+ ($sc-dispatch #{e 9035}# '(_ any any))))
+ (if (if #{tmp 9041}#
(@apply
- (lambda (#{id 3513}# #{val 3514}#)
- (if (symbol? #{id 3513}#)
+ (lambda (#{id 9045}# #{val 9046}#)
+ (if (symbol? #{id 9045}#)
#t
- (if (if (vector? #{id 3513}#)
- (if (= (vector-length #{id 3513}#) 4)
- (eq? (vector-ref #{id 3513}# 0) 'syntax-object)
+ (if (if (vector? #{id 9045}#)
+ (if (= (vector-length #{id 9045}#) 4)
+ (eq? (vector-ref #{id 9045}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 3513}# 1))
+ (symbol? (vector-ref #{id 9045}# 1))
#f)))
- #{tmp 3510}#)
+ #{tmp 9041}#)
#f)
(@apply
- (lambda (#{id 3517}# #{val 3518}#)
- (let ((#{n 3521}#
- (#{id-var-name 411}# #{id 3517}# #{w 3501}#))
- (#{id-mod 3522}#
- (if (if (vector? #{id 3517}#)
- (if (= (vector-length #{id 3517}#) 4)
- (eq? (vector-ref #{id 3517}# 0) 'syntax-object)
+ (lambda (#{id 9073}# #{val 9074}#)
+ (let ((#{n 9075}#
+ (#{id-var-name 4332}# #{id 9073}# #{w 9037}#))
+ (#{id-mod 9076}#
+ (if (if (vector? #{id 9073}#)
+ (if (= (vector-length #{id 9073}#) 4)
+ (eq? (vector-ref #{id 9073}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 3517}# 3)
- #{mod 3503}#)))
- (let ((#{b 3524}#
- (let ((#{t 7016}# (assq #{n 3521}# #{r 3500}#)))
- (if #{t 7016}#
- (cdr #{t 7016}#)
- (if (symbol? #{n 3521}#)
- (let ((#{t 7017}#
- (#{get-global-definition-hook 263}#
- #{n 3521}#
- #{id-mod 3522}#)))
- (if #{t 7017}# #{t 7017}# '(global)))
+ (vector-ref #{id 9073}# 3)
+ #{mod 9039}#)))
+ (let ((#{b 9077}#
+ (let ((#{t 9764}# (assq #{n 9075}# #{r 9036}#)))
+ (if #{t 9764}#
+ (cdr #{t 9764}#)
+ (if (symbol? #{n 9075}#)
+ (let ((#{t 9769}#
+ (begin
+ (if (if (not #{id-mod 9076}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we
should have a module"
+ #{n 9075}#))
+ (let ((#{v 9806}#
+ (module-variable
+ (if #{id-mod 9076}#
+ (resolve-module
+ (cdr #{id-mod 9076}#))
+ (current-module))
+ #{n 9075}#)))
+ (if #{v 9806}#
+ (if (variable-bound? #{v 9806}#)
+ (let ((#{val 9815}#
+ (variable-ref
+ #{v 9806}#)))
+ (if (macro? #{val 9815}#)
+ (if (macro-type
+ #{val 9815}#)
+ (cons (macro-type
+ #{val 9815}#)
+ (macro-binding
+ #{val 9815}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 9769}# #{t 9769}# '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 3527}# (car #{b 3524}#)))
- (if (memv #{atom-key 3527}# '(lexical))
- ((lambda (#{source 993}#
- #{name 994}#
- #{var 995}#
- #{exp 996}#)
- (begin
- (#{maybe-name-value! 267}#
- #{name 994}#
- #{exp 996}#)
- (#{make-lexical-set 216}#
- #{source 993}#
- #{name 994}#
- #{var 995}#
- #{exp 996}#)))
- #{s 3502}#
- (syntax->datum #{id 3517}#)
- (cdr #{b 3524}#)
- (#{chi 437}#
- #{val 3518}#
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#))
- (if (memv #{atom-key 3527}# '(global))
- (#{build-global-assignment 285}#
- #{s 3502}#
- #{n 3521}#
- (#{chi 437}#
- #{val 3518}#
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#)
- #{id-mod 3522}#)
- (if (memv #{atom-key 3527}# '(macro))
- (let ((#{p 3534}# (cdr #{b 3524}#)))
+ (let ((#{atom-key 9078}# (car #{b 9077}#)))
+ (if (let ((#{t 9115}# #{atom-key 9078}#))
+ (eqv? #{t 9115}# 'lexical))
+ (#{build-lexical-assignment 4284}#
+ #{s 9038}#
+ (syntax->datum #{id 9073}#)
+ (cdr #{b 9077}#)
+ (#{chi 4345}#
+ #{val 9074}#
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#))
+ (if (let ((#{t 9400}# #{atom-key 9078}#))
+ (eqv? #{t 9400}# 'global))
+ (#{build-global-assignment 4287}#
+ #{s 9038}#
+ #{n 9075}#
+ (#{chi 4345}#
+ #{val 9074}#
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#)
+ #{id-mod 9076}#)
+ (if (let ((#{t 9655}# #{atom-key 9078}#))
+ (eqv? #{t 9655}# 'macro))
+ (let ((#{p 9718}# (cdr #{b 9077}#)))
(if (procedure-property
- #{p 3534}#
+ #{p 9718}#
'variable-transformer)
- (#{chi 437}#
- (#{chi-macro 443}#
- #{p 3534}#
- #{e 3499}#
- #{r 3500}#
- #{w 3501}#
- #{s 3502}#
+ (#{chi 4345}#
+ (#{chi-macro 4348}#
+ #{p 9718}#
+ #{e 9035}#
+ #{r 9036}#
+ #{w 9037}#
+ #{s 9038}#
#f
- #{mod 3503}#)
- #{r 3500}#
+ #{mod 9039}#)
+ #{r 9036}#
'(())
- #{mod 3503}#)
+ #{mod 9039}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap 423}#
- #{e 3499}#
- #{w 3501}#
- #{mod 3503}#)
- (#{wrap 423}#
- #{id 3517}#
- #{w 3501}#
- #{id-mod 3522}#))))
- (if (memv #{atom-key 3527}# '(displaced-lexical))
+ (#{wrap 4338}#
+ #{e 9035}#
+ #{w 9037}#
+ #{mod 9039}#)
+ (#{wrap 4338}#
+ #{id 9073}#
+ #{w 9037}#
+ #{id-mod 9076}#))))
+ (if (eqv? #{atom-key 9078}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap 423}#
- #{id 3517}#
- #{w 3501}#
- #{mod 3503}#))
+ (#{wrap 4338}#
+ #{id 9073}#
+ #{w 9037}#
+ #{mod 9039}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3499}#) #{s 3502}# #f)
+ (if (if (pair? #{e 9035}#) #{s 9038}# #f)
(set-source-properties!
- #{e 3499}#
- #{s 3502}#))
- #{e 3499}#)
- #{w 3501}#
- #{mod 3503}#))))))))))
- #{tmp 3510}#)
- (let ((#{tmp 3539}#
+ #{e 9035}#
+ #{s 9038}#))
+ #{e 9035}#)
+ #{w 9037}#
+ #{mod 9039}#))))))))))
+ #{tmp 9041}#)
+ (let ((#{tmp 9916}#
($sc-dispatch
- #{e 3499}#
+ #{e 9035}#
'(_ (any . each-any) any))))
- (if #{tmp 3539}#
+ (if #{tmp 9916}#
(@apply
- (lambda (#{head 3543}# #{tail 3544}# #{val 3545}#)
+ (lambda (#{head 9920}# #{tail 9921}# #{val 9922}#)
(call-with-values
(lambda ()
- (#{syntax-type 435}#
- #{head 3543}#
- #{r 3500}#
+ (#{syntax-type 4344}#
+ #{head 9920}#
+ #{r 9036}#
'(())
#f
#f
- #{mod 3503}#
+ #{mod 9039}#
#t))
- (lambda (#{type 3548}#
- #{value 3549}#
- #{ee 3550}#
- #{ww 3551}#
- #{ss 3552}#
- #{modmod 3553}#)
- (if (memv #{type 3548}# '(module-ref))
- (let ((#{val 3562}#
- (#{chi 437}#
- #{val 3545}#
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#)))
+ (lambda (#{type 9925}#
+ #{value 9926}#
+ #{ee 9927}#
+ #{ww 9928}#
+ #{ss 9929}#
+ #{modmod 9930}#)
+ (if (eqv? #{type 9925}# 'module-ref)
+ (let ((#{val 9934}#
+ (#{chi 4345}#
+ #{val 9922}#
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#)))
(call-with-values
(lambda ()
- (#{value 3549}#
- (cons #{head 3543}# #{tail 3544}#)
- #{r 3500}#
- #{w 3501}#))
- (lambda (#{e 3564}#
- #{r 3565}#
- #{w 3566}#
- #{s* 3567}#
- #{mod 3568}#)
- (let ((#{tmp 3575}# (list #{e 3564}#)))
- (if (if #{tmp 3575}#
- (@apply
- (lambda (#{e 3577}#)
- (if (symbol? #{e 3577}#)
- #t
- (if (if (vector? #{e 3577}#)
- (if (= (vector-length
- #{e 3577}#)
- 4)
- (eq? (vector-ref
- #{e 3577}#
- 0)
- 'syntax-object)
- #f)
+ (#{value 9926}#
+ (cons #{head 9920}# #{tail 9921}#)
+ #{r 9036}#
+ #{w 9037}#))
+ (lambda (#{e 9935}#
+ #{r 9936}#
+ #{w 9937}#
+ #{s* 9938}#
+ #{mod 9939}#)
+ (let ((#{tmp 9941}# (list #{e 9935}#)))
+ (if (@apply
+ (lambda (#{e 9943}#)
+ (if (symbol? #{e 9943}#)
+ #t
+ (if (if (vector? #{e 9943}#)
+ (if (= (vector-length
+ #{e 9943}#)
+ 4)
+ (eq? (vector-ref
+ #{e 9943}#
+ 0)
+ 'syntax-object)
#f)
- (symbol?
- (vector-ref #{e 3577}# 1))
- #f)))
- #{tmp 3575}#)
- #f)
- (@apply
- (lambda (#{e 3579}#)
- (let ((#{var 7356}#
- (syntax->datum #{e 3579}#)))
- (begin
- (if (if (struct? #{val 3562}#)
- (eq? (struct-vtable
- #{val 3562}#)
- (vector-ref
- %expanded-vtables
- 13))
#f)
- (let ((#{meta 7367}#
- (struct-ref
- #{val 3562}#
- 1)))
- (if (not (assq 'name
- #{meta 7367}#))
- (let ((#{v 7377}#
- (cons (cons 'name
- #{var
7356}#)
- #{meta
7367}#)))
- (struct-set!
- #{val 3562}#
- 1
- #{v 7377}#)))))
- (#{analyze-variable 281}#
- #{mod 3568}#
- #{var 7356}#
- (lambda (#{mod 7359}#
- #{var 7360}#
- #{public? 7361}#)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 6)
- #{s 3502}#
- #{mod 7359}#
- #{var 7360}#
- #{public? 7361}#
- #{val 3562}#))
- (lambda (#{var 7362}#)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 8)
- #{s 3502}#
- #{var 7362}#
- #{val 3562}#))))))
- #{tmp 3575}#)
+ (symbol?
+ (vector-ref #{e 9943}# 1))
+ #f)))
+ #{tmp 9941}#)
+ (@apply
+ (lambda (#{e 9973}#)
+ (#{build-global-assignment 4287}#
+ #{s 9038}#
+ (syntax->datum #{e 9973}#)
+ #{val 9934}#
+ #{mod 9939}#))
+ #{tmp 9941}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 3564}#))))))
- (#{build-application 271}#
- #{s 3502}#
- (#{chi 437}#
+ #{e 9935}#))))))
+ (#{build-application 4280}#
+ #{s 9038}#
+ (#{chi 4345}#
(list '#(syntax-object
setter
((top)
@@ -9736,25 +19108,25 @@
(top)
(top)
(top))
- #("i3554"
- "i3555"
+ #("i3555"
"i3556"
"i3557"
"i3558"
- "i3559"))
+ "i3559"
+ "i3560"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3540" "i3541" "i3542"))
+ #("i3541" "i3542" "i3543"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3504"
- "i3505"
+ #("i3505"
"i3506"
"i3507"
- "i3508"))
+ "i3508"
+ "i3509"))
#(ribcage
(lambda-var-list
gen-var
@@ -10028,205 +19400,205 @@
(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))
- #{head 3543}#)
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#)
- (map (lambda (#{e 3581}#)
- (#{chi 437}#
- #{e 3581}#
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#))
+ #{head 9920}#)
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#)
+ (map (lambda (#{e 10274}#)
+ (#{chi 4345}#
+ #{e 10274}#
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#))
(append
- #{tail 3544}#
- (list #{val 3545}#))))))))
- #{tmp 3539}#)
+ #{tail 9921}#
+ (list #{val 9922}#))))))))
+ #{tmp 9916}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3499}#) #{s 3502}# #f)
- (set-source-properties! #{e 3499}# #{s 3502}#))
- #{e 3499}#)
- #{w 3501}#
- #{mod 3503}#))))))))
+ (if (if (pair? #{e 9035}#) #{s 9038}# #f)
+ (set-source-properties! #{e 9035}# #{s 9038}#))
+ #{e 9035}#)
+ #{w 9037}#
+ #{mod 9039}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 3586}# #{r 3587}# #{w 3588}#)
- (let ((#{tmp 3593}#
- ($sc-dispatch #{e 3586}# '(_ each-any any))))
- (if (if #{tmp 3593}#
+ (lambda (#{e 10388}# #{r 10389}# #{w 10390}#)
+ (let ((#{tmp 10392}#
+ ($sc-dispatch #{e 10388}# '(_ each-any any))))
+ (if (if #{tmp 10392}#
(@apply
- (lambda (#{mod 3596}# #{id 3597}#)
- (if (and-map #{id? 349}# #{mod 3596}#)
- (if (symbol? #{id 3597}#)
+ (lambda (#{mod 10395}# #{id 10396}#)
+ (if (and-map #{id? 4313}# #{mod 10395}#)
+ (if (symbol? #{id 10396}#)
#t
- (if (if (vector? #{id 3597}#)
- (if (= (vector-length #{id 3597}#) 4)
- (eq? (vector-ref #{id 3597}# 0)
+ (if (if (vector? #{id 10396}#)
+ (if (= (vector-length #{id 10396}#) 4)
+ (eq? (vector-ref #{id 10396}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 3597}# 1))
+ (symbol? (vector-ref #{id 10396}# 1))
#f))
#f))
- #{tmp 3593}#)
+ #{tmp 10392}#)
#f)
(@apply
- (lambda (#{mod 3603}# #{id 3604}#)
+ (lambda (#{mod 10436}# #{id 10437}#)
(values
- (syntax->datum #{id 3604}#)
- #{r 3587}#
- #{w 3588}#
+ (syntax->datum #{id 10437}#)
+ #{r 10389}#
+ #{w 10390}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10235,12 +19607,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3601" "i3602"))
+ #("i3602" "i3603"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3589" "i3590" "i3591"))
+ #("i3590" "i3591" "i3592"))
#(ribcage
(lambda-var-list
gen-var
@@ -10514,213 +19886,213 @@
(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))
- #{mod 3603}#))))
- #{tmp 3593}#)
+ #{mod 10436}#))))
+ #{tmp 10392}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3586}#))))))
- (#{global-extend 345}#
+ #{e 10388}#))))))
+ (#{global-extend 4311}#
'module-ref
'@@
- (lambda (#{e 3606}# #{r 3607}# #{w 3608}#)
+ (lambda (#{e 10534}# #{r 10535}# #{w 10536}#)
(letrec*
- ((#{remodulate 3613}#
- (lambda (#{x 3614}# #{mod 3615}#)
- (if (pair? #{x 3614}#)
- (cons (#{remodulate 3613}#
- (car #{x 3614}#)
- #{mod 3615}#)
- (#{remodulate 3613}#
- (cdr #{x 3614}#)
- #{mod 3615}#))
- (if (if (vector? #{x 3614}#)
- (if (= (vector-length #{x 3614}#) 4)
- (eq? (vector-ref #{x 3614}# 0) 'syntax-object)
+ ((#{remodulate 10537}#
+ (lambda (#{x 10743}# #{mod 10744}#)
+ (if (pair? #{x 10743}#)
+ (cons (#{remodulate 10537}#
+ (car #{x 10743}#)
+ #{mod 10744}#)
+ (#{remodulate 10537}#
+ (cdr #{x 10743}#)
+ #{mod 10744}#))
+ (if (if (vector? #{x 10743}#)
+ (if (= (vector-length #{x 10743}#) 4)
+ (eq? (vector-ref #{x 10743}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 7617}#
- (#{remodulate 3613}#
- (vector-ref #{x 3614}# 1)
- #{mod 3615}#))
- (#{wrap 7618}# (vector-ref #{x 3614}# 2)))
+ (let ((#{expression 10758}#
+ (#{remodulate 10537}#
+ (vector-ref #{x 10743}# 1)
+ #{mod 10744}#))
+ (#{wrap 10759}# (vector-ref #{x 10743}# 2)))
(vector
'syntax-object
- #{expression 7617}#
- #{wrap 7618}#
- #{mod 3615}#))
- (if (vector? #{x 3614}#)
- (let ((#{n 3626}# (vector-length #{x 3614}#)))
- (let ((#{v 3628}# (make-vector #{n 3626}#)))
+ #{expression 10758}#
+ #{wrap 10759}#
+ #{mod 10744}#))
+ (if (vector? #{x 10743}#)
+ (let ((#{n 10767}# (vector-length #{x 10743}#)))
+ (let ((#{v 10768}# (make-vector #{n 10767}#)))
(letrec*
- ((#{loop 3631}#
- (lambda (#{i 3632}#)
- (if (= #{i 3632}# #{n 3626}#)
- #{v 3628}#
+ ((#{loop 10769}#
+ (lambda (#{i 10816}#)
+ (if (= #{i 10816}# #{n 10767}#)
+ #{v 10768}#
(begin
(vector-set!
- #{v 3628}#
- #{i 3632}#
- (#{remodulate 3613}#
- (vector-ref #{x 3614}# #{i 3632}#)
- #{mod 3615}#))
- (#{loop 3631}# (#{1+}# #{i 3632}#)))))))
- (#{loop 3631}# 0))))
- #{x 3614}#))))))
- (let ((#{tmp 3639}#
- ($sc-dispatch #{e 3606}# '(_ each-any any))))
- (if (if #{tmp 3639}#
+ #{v 10768}#
+ #{i 10816}#
+ (#{remodulate 10537}#
+ (vector-ref #{x 10743}# #{i 10816}#)
+ #{mod 10744}#))
+ (#{loop 10769}# (#{1+}# #{i 10816}#)))))))
+ (#{loop 10769}# 0))))
+ #{x 10743}#))))))
+ (let ((#{tmp 10539}#
+ ($sc-dispatch #{e 10534}# '(_ each-any any))))
+ (if (if #{tmp 10539}#
(@apply
- (lambda (#{mod 3642}# #{exp 3643}#)
- (and-map #{id? 349}# #{mod 3642}#))
- #{tmp 3639}#)
+ (lambda (#{mod 10543}# #{exp 10544}#)
+ (and-map #{id? 4313}# #{mod 10543}#))
+ #{tmp 10539}#)
#f)
(@apply
- (lambda (#{mod 3647}# #{exp 3648}#)
- (let ((#{mod 3650}#
+ (lambda (#{mod 10560}# #{exp 10561}#)
+ (let ((#{mod 10562}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10728,12 +20100,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3645" "i3646"))
- #(ribcage (remodulate) ((top)) ("i3612"))
+ #("i3646" "i3647"))
+ #(ribcage (remodulate) ((top)) ("i3613"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3609" "i3610" "i3611"))
+ #("i3610" "i3611" "i3612"))
#(ribcage
(lambda-var-list
gen-var
@@ -11007,276 +20379,270 @@
(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))
- #{mod 3647}#))))
+ #{mod 10560}#))))
(values
- (#{remodulate 3613}# #{exp 3648}# #{mod 3650}#)
- #{r 3607}#
- #{w 3608}#
- (#{source-annotation 327}# #{exp 3648}#)
- #{mod 3650}#)))
- #{tmp 3639}#)
+ (#{remodulate 10537}#
+ #{exp 10561}#
+ #{mod 10562}#)
+ #{r 10535}#
+ #{w 10536}#
+ (#{source-annotation 4306}# #{exp 10561}#)
+ #{mod 10562}#)))
+ #{tmp 10539}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3606}#))))))
- (#{global-extend 345}#
+ #{e 10534}#))))))
+ (#{global-extend 4311}#
'core
'if
- (lambda (#{e 3652}#
- #{r 3653}#
- #{w 3654}#
- #{s 3655}#
- #{mod 3656}#)
- (let ((#{tmp 3663}#
- ($sc-dispatch #{e 3652}# '(_ any any))))
- (if #{tmp 3663}#
+ (lambda (#{e 10922}#
+ #{r 10923}#
+ #{w 10924}#
+ #{s 10925}#
+ #{mod 10926}#)
+ (let ((#{tmp 10928}#
+ ($sc-dispatch #{e 10922}# '(_ any any))))
+ (if #{tmp 10928}#
(@apply
- (lambda (#{test 3666}# #{then 3667}#)
- (#{build-conditional 273}#
- #{s 3655}#
- (#{chi 437}#
- #{test 3666}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)
- (#{chi 437}#
- #{then 3667}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)
+ (lambda (#{test 10932}# #{then 10933}#)
+ (#{build-conditional 4281}#
+ #{s 10925}#
+ (#{chi 4345}#
+ #{test 10932}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)
+ (#{chi 4345}#
+ #{then 10933}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 3663}#)
- (let ((#{tmp 3669}#
- ($sc-dispatch #{e 3652}# '(_ any any any))))
- (if #{tmp 3669}#
+ #{tmp 10928}#)
+ (let ((#{tmp 11173}#
+ ($sc-dispatch #{e 10922}# '(_ any any any))))
+ (if #{tmp 11173}#
(@apply
- (lambda (#{test 3673}# #{then 3674}# #{else 3675}#)
- (#{build-conditional 273}#
- #{s 3655}#
- (#{chi 437}#
- #{test 3673}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)
- (#{chi 437}#
- #{then 3674}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)
- (#{chi 437}#
- #{else 3675}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)))
- #{tmp 3669}#)
+ (lambda (#{test 11177}# #{then 11178}# #{else 11179}#)
+ (#{build-conditional 4281}#
+ #{s 10925}#
+ (#{chi 4345}#
+ #{test 11177}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)
+ (#{chi 4345}#
+ #{then 11178}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)
+ (#{chi 4345}#
+ #{else 11179}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)))
+ #{tmp 11173}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3652}#)))))))
- (#{global-extend 345}#
+ #{e 10922}#)))))))
+ (#{global-extend 4311}#
'core
'with-fluids
- (lambda (#{e 3676}#
- #{r 3677}#
- #{w 3678}#
- #{s 3679}#
- #{mod 3680}#)
- (let ((#{tmp 3687}#
+ (lambda (#{e 11603}#
+ #{r 11604}#
+ #{w 11605}#
+ #{s 11606}#
+ #{mod 11607}#)
+ (let ((#{tmp 11609}#
($sc-dispatch
- #{e 3676}#
+ #{e 11603}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 3687}#
+ (if #{tmp 11609}#
(@apply
- (lambda (#{fluid 3692}#
- #{val 3693}#
- #{b 3694}#
- #{b* 3695}#)
- ((lambda (#{source 977}#
- #{fluids 978}#
- #{vals 979}#
- #{body 980}#)
- (#{make-dynlet 242}#
- #{source 977}#
- #{fluids 978}#
- #{vals 979}#
- #{body 980}#))
- #{s 3679}#
- (map (lambda (#{x 3696}#)
- (#{chi 437}#
- #{x 3696}#
- #{r 3677}#
- #{w 3678}#
- #{mod 3680}#))
- #{fluid 3692}#)
- (map (lambda (#{x 3699}#)
- (#{chi 437}#
- #{x 3699}#
- #{r 3677}#
- #{w 3678}#
- #{mod 3680}#))
- #{val 3693}#)
- (#{chi-body 445}#
- (cons #{b 3694}# #{b* 3695}#)
- (#{wrap 423}#
- (begin
- (if (if (pair? #{e 3676}#) #{s 3679}# #f)
- (set-source-properties! #{e 3676}# #{s 3679}#))
- #{e 3676}#)
- #{w 3678}#
- #{mod 3680}#)
- #{r 3677}#
- #{w 3678}#
- #{mod 3680}#)))
- #{tmp 3687}#)
+ (lambda (#{fluid 11613}#
+ #{val 11614}#
+ #{b 11615}#
+ #{b* 11616}#)
+ (#{build-dynlet 4282}#
+ #{s 11606}#
+ (map (lambda (#{x 11702}#)
+ (#{chi 4345}#
+ #{x 11702}#
+ #{r 11604}#
+ #{w 11605}#
+ #{mod 11607}#))
+ #{fluid 11613}#)
+ (map (lambda (#{x 11777}#)
+ (#{chi 4345}#
+ #{x 11777}#
+ #{r 11604}#
+ #{w 11605}#
+ #{mod 11607}#))
+ #{val 11614}#)
+ (#{chi-body 4349}#
+ (cons #{b 11615}# #{b* 11616}#)
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 11603}#) #{s 11606}# #f)
+ (set-source-properties! #{e 11603}# #{s 11606}#))
+ #{e 11603}#)
+ #{w 11605}#
+ #{mod 11607}#)
+ #{r 11604}#
+ #{w 11605}#
+ #{mod 11607}#)))
+ #{tmp 11609}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3676}#)))))
+ #{e 11603}#)))))
(module-define!
(current-module)
'begin
@@ -11299,74 +20665,75 @@
'eval-when
'eval-when
'()))
- (#{global-extend 345}#
+ (#{global-extend 4311}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 3704}#
- (lambda (#{pattern 3711}# #{keys 3712}#)
+ ((#{convert-pattern 12148}#
+ (lambda (#{pattern 13759}# #{keys 13760}#)
(letrec*
- ((#{cvt* 3716}#
- (lambda (#{p* 3721}# #{n 3722}# #{ids 3723}#)
- (if (not (pair? #{p* 3721}#))
- (#{cvt 3720}#
- #{p* 3721}#
- #{n 3722}#
- #{ids 3723}#)
+ ((#{cvt* 13761}#
+ (lambda (#{p* 14378}# #{n 14379}# #{ids 14380}#)
+ (if (not (pair? #{p* 14378}#))
+ (#{cvt 13763}#
+ #{p* 14378}#
+ #{n 14379}#
+ #{ids 14380}#)
(call-with-values
(lambda ()
- (#{cvt* 3716}#
- (cdr #{p* 3721}#)
- #{n 3722}#
- #{ids 3723}#))
- (lambda (#{y 3727}# #{ids 3728}#)
+ (#{cvt* 13761}#
+ (cdr #{p* 14378}#)
+ #{n 14379}#
+ #{ids 14380}#))
+ (lambda (#{y 14383}# #{ids 14384}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- (car #{p* 3721}#)
- #{n 3722}#
- #{ids 3728}#))
- (lambda (#{x 3731}# #{ids 3732}#)
+ (#{cvt 13763}#
+ (car #{p* 14378}#)
+ #{n 14379}#
+ #{ids 14384}#))
+ (lambda (#{x 14387}# #{ids 14388}#)
(values
- (cons #{x 3731}# #{y 3727}#)
- #{ids 3732}#))))))))
- (#{v-reverse 3718}#
- (lambda (#{x 3735}#)
+ (cons #{x 14387}# #{y 14383}#)
+ #{ids 14388}#))))))))
+ (#{v-reverse 13762}#
+ (lambda (#{x 14389}#)
(letrec*
- ((#{loop 3740}#
- (lambda (#{r 3741}# #{x 3742}#)
- (if (not (pair? #{x 3742}#))
- (values #{r 3741}# #{x 3742}#)
- (#{loop 3740}#
- (cons (car #{x 3742}#) #{r 3741}#)
- (cdr #{x 3742}#))))))
- (#{loop 3740}# '() #{x 3735}#))))
- (#{cvt 3720}#
- (lambda (#{p 3743}# #{n 3744}# #{ids 3745}#)
- (if (if (symbol? #{p 3743}#)
+ ((#{loop 14390}#
+ (lambda (#{r 14467}# #{x 14468}#)
+ (if (not (pair? #{x 14468}#))
+ (values #{r 14467}# #{x 14468}#)
+ (#{loop 14390}#
+ (cons (car #{x 14468}#) #{r 14467}#)
+ (cdr #{x 14468}#))))))
+ (#{loop 14390}# '() #{x 14389}#))))
+ (#{cvt 13763}#
+ (lambda (#{p 13766}# #{n 13767}# #{ids 13768}#)
+ (if (if (symbol? #{p 13766}#)
#t
- (if (if (vector? #{p 3743}#)
- (if (= (vector-length #{p 3743}#) 4)
- (eq? (vector-ref #{p 3743}# 0)
+ (if (if (vector? #{p 13766}#)
+ (if (= (vector-length #{p 13766}#) 4)
+ (eq? (vector-ref #{p 13766}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 3743}# 1))
+ (symbol? (vector-ref #{p 13766}# 1))
#f))
- (if (#{bound-id-member? 421}#
- #{p 3743}#
- #{keys 3712}#)
+ (if (#{bound-id-member? 4337}#
+ #{p 13766}#
+ #{keys 13760}#)
(values
- (vector 'free-id #{p 3743}#)
- #{ids 3745}#)
- (if (if (eq? (if (if (vector? #{p 3743}#)
- (if (= (vector-length #{p 3743}#) 4)
- (eq? (vector-ref #{p 3743}# 0)
+ (vector 'free-id #{p 13766}#)
+ #{ids 13768}#)
+ (if (if (eq? (if (if (vector? #{p 13766}#)
+ (if (= (vector-length #{p 13766}#)
+ 4)
+ (eq? (vector-ref #{p 13766}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{p 3743}# 1)
- #{p 3743}#)
+ (vector-ref #{p 13766}# 1)
+ #{p 13766}#)
(if (if (= (vector-length
'#(syntax-object
_
@@ -11375,19 +20742,19 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746"
- "i3747"
- "i3748"))
+ #("i3747"
+ "i3748"
+ "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719"
- "i3717"
- "i3715"))
+ ("i3720"
+ "i3718"
+ "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11397,10 +20764,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -11674,148 +21041,148 @@
(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)))
4)
(eq? (vector-ref
@@ -11826,19 +21193,19 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746"
- "i3747"
- "i3748"))
+ #("i3747"
+ "i3748"
+ "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719"
- "i3717"
- "i3715"))
+ ("i3720"
+ "i3718"
+ "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11848,10 +21215,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -12125,148 +21492,148 @@
(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))
0)
'syntax-object)
@@ -12279,25 +21646,25 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746" "i3747" "i3748"))
+ #("i3747" "i3748" "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719" "i3717" "i3715"))
+ ("i3720" "i3718" "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -12571,148 +21938,148 @@
(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))
1)
'#(syntax-object
@@ -12722,22 +22089,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746" "i3747" "i3748"))
+ #("i3747" "i3748" "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719" "i3717" "i3715"))
+ ("i3720" "i3718" "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709" "i3707" "i3705" "i3703"))
+ ("i3710" "i3708" "i3706" "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -13011,151 +22378,151 @@
(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))))
- (eq? (#{id-var-name 411}# #{p 3743}# '(()))
- (#{id-var-name 411}#
+ (eq? (#{id-var-name 4332}# #{p 13766}# '(()))
+ (#{id-var-name 4332}#
'#(syntax-object
_
((top)
@@ -13163,22 +22530,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746" "i3747" "i3748"))
+ #("i3747" "i3748" "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719" "i3717" "i3715"))
+ ("i3720" "i3718" "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709" "i3707" "i3705" "i3703"))
+ ("i3710" "i3708" "i3706" "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -13452,182 +22819,185 @@
(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))
'(())))
#f)
- (values '_ #{ids 3745}#)
+ (values '_ #{ids 13768}#)
(values
'any
- (cons (cons #{p 3743}# #{n 3744}#) #{ids 3745}#))))
- (let ((#{tmp 3755}#
- ($sc-dispatch #{p 3743}# '(any any))))
- (if (if #{tmp 3755}#
+ (cons (cons #{p 13766}# #{n 13767}#)
+ #{ids 13768}#))))
+ (let ((#{tmp 14087}#
+ ($sc-dispatch #{p 13766}# '(any any))))
+ (if (if #{tmp 14087}#
(@apply
- (lambda (#{x 3758}# #{dots 3759}#)
- (if (if (if (vector? #{dots 3759}#)
+ (lambda (#{x 14091}# #{dots 14092}#)
+ (if (if (if (vector? #{dots 14092}#)
(if (= (vector-length
- #{dots 3759}#)
+ #{dots 14092}#)
4)
- (eq? (vector-ref #{dots 3759}# 0)
+ (eq? (vector-ref
+ #{dots 14092}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 3759}# 1))
+ (symbol? (vector-ref #{dots 14092}# 1))
#f)
- (if (eq? (if (if (vector? #{dots 3759}#)
+ (if (eq? (if (if (vector? #{dots 14092}#)
(if (= (vector-length
- #{dots 3759}#)
+ #{dots 14092}#)
4)
(eq? (vector-ref
- #{dots 3759}#
+ #{dots 14092}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 3759}# 1)
- #{dots 3759}#)
+ (vector-ref #{dots 14092}# 1)
+ #{dots 14092}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13643,7 +23013,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -13917,142 +23287,142 @@
(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
@@ -14060,9 +23430,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile)))
4)
(eq? (vector-ref
@@ -14080,7 +23450,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -14354,142 +23724,142 @@
(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
@@ -14497,9 +23867,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
0)
'syntax-object)
@@ -14513,7 +23883,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -14787,148 +24157,148 @@
(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))
1)
'#(syntax-object
@@ -14939,7 +24309,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -15213,153 +24583,153 @@
(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))))
- (eq? (#{id-var-name 411}#
- #{dots 3759}#
+ (eq? (#{id-var-name 4332}#
+ #{dots 14092}#
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
...
((top)
@@ -15368,7 +24738,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -15642,202 +25012,204 @@
(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))
'(())))
#f)
#f))
- #{tmp 3755}#)
+ #{tmp 14087}#)
#f)
(@apply
- (lambda (#{x 3762}# #{dots 3763}#)
+ (lambda (#{x 14189}# #{dots 14190}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{x 3762}#
- (#{1+}# #{n 3744}#)
- #{ids 3745}#))
- (lambda (#{p 3765}# #{ids 3766}#)
+ (#{cvt 13763}#
+ #{x 14189}#
+ (#{1+}# #{n 13767}#)
+ #{ids 13768}#))
+ (lambda (#{p 14191}# #{ids 14192}#)
(values
- (if (eq? #{p 3765}# 'any)
+ (if (eq? #{p 14191}# 'any)
'each-any
- (vector 'each #{p 3765}#))
- #{ids 3766}#))))
- #{tmp 3755}#)
- (let ((#{tmp 3769}#
- ($sc-dispatch #{p 3743}# '(any any . any))))
- (if (if #{tmp 3769}#
+ (vector 'each #{p 14191}#))
+ #{ids 14192}#))))
+ #{tmp 14087}#)
+ (let ((#{tmp 14193}#
+ ($sc-dispatch #{p 13766}# '(any any . any))))
+ (if (if #{tmp 14193}#
(@apply
- (lambda (#{x 3773}#
- #{dots 3774}#
- #{ys 3775}#)
- (if (if (if (vector? #{dots 3774}#)
+ (lambda (#{x 14197}#
+ #{dots 14198}#
+ #{ys 14199}#)
+ (if (if (if (vector? #{dots 14198}#)
(if (= (vector-length
- #{dots 3774}#)
+ #{dots 14198}#)
4)
(eq? (vector-ref
- #{dots 3774}#
+ #{dots 14198}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 3774}# 1))
+ (vector-ref #{dots 14198}# 1))
#f)
(if (eq? (if (if (vector?
- #{dots 3774}#)
+ #{dots 14198}#)
(if (= (vector-length
- #{dots 3774}#)
+ #{dots 14198}#)
4)
(eq? (vector-ref
- #{dots 3774}#
+ #{dots 14198}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 3774}# 1)
- #{dots 3774}#)
+ (vector-ref
+ #{dots 14198}#
+ 1)
+ #{dots 14198}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15853,7 +25225,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -16127,142 +25499,142 @@
(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
@@ -16270,9 +25642,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene
guile)))
4)
@@ -16291,7 +25663,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -16565,142 +25937,142 @@
(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
@@ -16708,9 +26080,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene
guile))
0)
@@ -16725,7 +26097,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -16999,150 +26371,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))
1)
'#(syntax-object
@@ -17153,7 +26525,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -17427,153 +26799,153 @@
(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))))
- (eq? (#{id-var-name 411}#
- #{dots 3774}#
+ (eq? (#{id-var-name 4332}#
+ #{dots 14198}#
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
...
((top)
@@ -17582,7 +26954,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -17856,250 +27228,257 @@
(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))
'(())))
#f)
#f))
- #{tmp 3769}#)
+ #{tmp 14193}#)
#f)
(@apply
- (lambda (#{x 3779}# #{dots 3780}# #{ys 3781}#)
+ (lambda (#{x 14296}#
+ #{dots 14297}#
+ #{ys 14298}#)
(call-with-values
(lambda ()
- (#{cvt* 3716}#
- #{ys 3781}#
- #{n 3744}#
- #{ids 3745}#))
- (lambda (#{ys 3782}# #{ids 3783}#)
+ (#{cvt* 13761}#
+ #{ys 14298}#
+ #{n 13767}#
+ #{ids 13768}#))
+ (lambda (#{ys 14301}# #{ids 14302}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{x 3779}#
- (#{1+}# #{n 3744}#)
- #{ids 3783}#))
- (lambda (#{x 3786}# #{ids 3787}#)
+ (#{cvt 13763}#
+ #{x 14296}#
+ (#{1+}# #{n 13767}#)
+ #{ids 14302}#))
+ (lambda (#{x 14303}# #{ids 14304}#)
(call-with-values
(lambda ()
- (#{v-reverse 3718}# #{ys 3782}#))
- (lambda (#{ys 3790}# #{e 3791}#)
+ (#{v-reverse 13762}#
+ #{ys 14301}#))
+ (lambda (#{ys 14337}# #{e 14338}#)
(values
(vector
'each+
- #{x 3786}#
- #{ys 3790}#
- #{e 3791}#)
- #{ids 3787}#))))))))
- #{tmp 3769}#)
- (let ((#{tmp 3795}#
- ($sc-dispatch #{p 3743}# '(any . any))))
- (if #{tmp 3795}#
+ #{x 14303}#
+ #{ys 14337}#
+ #{e 14338}#)
+ #{ids 14304}#))))))))
+ #{tmp 14193}#)
+ (let ((#{tmp 14339}#
+ ($sc-dispatch #{p 13766}# '(any . any))))
+ (if #{tmp 14339}#
(@apply
- (lambda (#{x 3798}# #{y 3799}#)
+ (lambda (#{x 14343}# #{y 14344}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{y 3799}#
- #{n 3744}#
- #{ids 3745}#))
- (lambda (#{y 3800}# #{ids 3801}#)
+ (#{cvt 13763}#
+ #{y 14344}#
+ #{n 13767}#
+ #{ids 13768}#))
+ (lambda (#{y 14345}# #{ids 14346}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{x 3798}#
- #{n 3744}#
- #{ids 3801}#))
- (lambda (#{x 3804}# #{ids 3805}#)
+ (#{cvt 13763}#
+ #{x 14343}#
+ #{n 13767}#
+ #{ids 14346}#))
+ (lambda (#{x 14347}# #{ids 14348}#)
(values
- (cons #{x 3804}# #{y 3800}#)
- #{ids 3805}#))))))
- #{tmp 3795}#)
- (let ((#{tmp 3808}#
- ($sc-dispatch #{p 3743}# '())))
- (if #{tmp 3808}#
+ (cons #{x 14347}# #{y 14345}#)
+ #{ids 14348}#))))))
+ #{tmp 14339}#)
+ (let ((#{tmp 14349}#
+ ($sc-dispatch #{p 13766}# '())))
+ (if #{tmp 14349}#
(@apply
- (lambda () (values '() #{ids 3745}#))
- #{tmp 3808}#)
- (let ((#{tmp 3809}#
+ (lambda () (values '() #{ids 13768}#))
+ #{tmp 14349}#)
+ (let ((#{tmp 14353}#
($sc-dispatch
- #{p 3743}#
+ #{p 13766}#
'#(vector each-any))))
- (if #{tmp 3809}#
+ (if #{tmp 14353}#
(@apply
- (lambda (#{x 3811}#)
+ (lambda (#{x 14357}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{x 3811}#
- #{n 3744}#
- #{ids 3745}#))
- (lambda (#{p 3813}#
- #{ids 3814}#)
+ (#{cvt 13763}#
+ #{x 14357}#
+ #{n 13767}#
+ #{ids 13768}#))
+ (lambda (#{p 14358}#
+ #{ids 14359}#)
(values
- (vector 'vector #{p 3813}#)
- #{ids 3814}#))))
- #{tmp 3809}#)
+ (vector
+ 'vector
+ #{p 14358}#)
+ #{ids 14359}#))))
+ #{tmp 14353}#)
(values
(vector
'atom
- (#{strip 463}# #{p 3743}# '(())))
- #{ids 3745}#)))))))))))))))
- (#{cvt 3720}# #{pattern 3711}# 0 '()))))
- (#{build-dispatch-call 3706}#
- (lambda (#{pvars 3820}#
- #{exp 3821}#
- #{y 3822}#
- #{r 3823}#
- #{mod 3824}#)
- (let ((#{ids 3832}# (map car #{pvars 3820}#)))
+ (#{strip 4358}#
+ #{p 13766}#
+ '(())))
+ #{ids 13768}#)))))))))))))))
+ (#{cvt 13763}# #{pattern 13759}# 0 '()))))
+ (#{build-dispatch-call 12149}#
+ (lambda (#{pvars 14469}#
+ #{exp 14470}#
+ #{y 14471}#
+ #{r 14472}#
+ #{mod 14473}#)
+ (let ((#{ids 14474}# (map car #{pvars 14469}#)))
(begin
- (map cdr #{pvars 3820}#)
- (let ((#{labels 3836}#
- (#{gen-labels 369}# #{ids 3832}#))
- (#{new-vars 3837}#
- (map #{gen-var 465}# #{ids 3832}#)))
- (#{build-application 271}#
+ (map cdr #{pvars 14469}#)
+ (let ((#{labels 14476}#
+ (#{gen-labels 4316}# #{ids 14474}#))
+ (#{new-vars 14477}#
+ (map #{gen-var 4359}# #{ids 14474}#)))
+ (#{build-application 4280}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -18112,78 +27491,78 @@
'(guile)
'apply
#f))
- (list (#{build-simple-lambda 289}#
+ (list (#{build-simple-lambda 4289}#
#f
- (map syntax->datum #{ids 3832}#)
+ (map syntax->datum #{ids 14474}#)
#f
- #{new-vars 3837}#
+ #{new-vars 14477}#
'()
- (#{chi 437}#
- #{exp 3821}#
- (#{extend-env 337}#
- #{labels 3836}#
- (map (lambda (#{var 3841}# #{level 3842}#)
+ (#{chi 4345}#
+ #{exp 14470}#
+ (#{extend-env 4307}#
+ #{labels 14476}#
+ (map (lambda (#{var 14802}# #{level 14803}#)
(cons 'syntax
- (cons #{var 3841}#
- #{level 3842}#)))
- #{new-vars 3837}#
- (map cdr #{pvars 3820}#))
- #{r 3823}#)
- (#{make-binding-wrap 401}#
- #{ids 3832}#
- #{labels 3836}#
+ (cons #{var 14802}#
+ #{level 14803}#)))
+ #{new-vars 14477}#
+ (map cdr #{pvars 14469}#))
+ #{r 14472}#)
+ (#{make-binding-wrap 4327}#
+ #{ids 14474}#
+ #{labels 14476}#
'(()))
- #{mod 3824}#))
- #{y 3822}#)))))))
- (#{gen-clause 3708}#
- (lambda (#{x 3848}#
- #{keys 3849}#
- #{clauses 3850}#
- #{r 3851}#
- #{pat 3852}#
- #{fender 3853}#
- #{exp 3854}#
- #{mod 3855}#)
+ #{mod 14473}#))
+ #{y 14471}#)))))))
+ (#{gen-clause 12150}#
+ (lambda (#{x 13123}#
+ #{keys 13124}#
+ #{clauses 13125}#
+ #{r 13126}#
+ #{pat 13127}#
+ #{fender 13128}#
+ #{exp 13129}#
+ #{mod 13130}#)
(call-with-values
(lambda ()
- (#{convert-pattern 3704}#
- #{pat 3852}#
- #{keys 3849}#))
- (lambda (#{p 3864}# #{pvars 3865}#)
- (if (not (#{distinct-bound-ids? 419}#
- (map car #{pvars 3865}#)))
+ (#{convert-pattern 12148}#
+ #{pat 13127}#
+ #{keys 13124}#))
+ (lambda (#{p 13285}# #{pvars 13286}#)
+ (if (not (#{distinct-bound-ids? 4336}#
+ (map car #{pvars 13286}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 3852}#)
+ #{pat 13127}#)
(if (not (and-map
- (lambda (#{x 3872}#)
- (not (let ((#{x 9164}# (car #{x 3872}#)))
- (if (if (if (vector? #{x 9164}#)
+ (lambda (#{x 13406}#)
+ (not (let ((#{x 13410}# (car #{x 13406}#)))
+ (if (if (if (vector? #{x 13410}#)
(if (= (vector-length
- #{x 9164}#)
+ #{x 13410}#)
4)
(eq? (vector-ref
- #{x 9164}#
+ #{x 13410}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 9164}# 1))
+ (vector-ref #{x 13410}# 1))
#f)
- (if (eq? (if (if (vector? #{x 9164}#)
+ (if (eq? (if (if (vector? #{x 13410}#)
(if (= (vector-length
- #{x 9164}#)
+ #{x 13410}#)
4)
(eq? (vector-ref
- #{x 9164}#
+ #{x 13410}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 9164}# 1)
- #{x 9164}#)
+ (vector-ref #{x 13410}# 1)
+ #{x 13410}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -18199,7 +27578,7 @@
#(ribcage
#(x)
#((top))
-
#("i2229"))
+
#("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -18473,142 +27852,142 @@
(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
@@ -18616,9 +27995,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene
guile)))
4)
@@ -18637,7 +28016,7 @@
#(ribcage
#(x)
#((top))
-
#("i2229"))
+
#("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -18911,142 +28290,142 @@
(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
@@ -19054,9 +28433,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene
guile))
0)
@@ -19071,7 +28450,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -19345,150 +28724,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))
1)
'#(syntax-object
@@ -19499,7 +28878,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -19773,153 +29152,153 @@
(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))))
- (eq? (#{id-var-name 411}#
- #{x 9164}#
+ (eq? (#{id-var-name 4332}#
+ #{x 13410}#
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
...
((top)
@@ -19928,7 +29307,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -20202,313 +29581,295 @@
(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))
'(())))
#f)
#f))))
- #{pvars 3865}#))
+ #{pvars 13286}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 3852}#)
- (let ((#{y 3876}#
+ #{pat 13127}#)
+ (let ((#{y 13483}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (let ((#{fun-exp 9204}#
- (let ((#{req 9209}# (list 'tmp))
- (#{vars 9211}# (list #{y 3876}#))
- (#{exp 9213}#
- (let ((#{y 3880}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 3)
- #f
- 'tmp
- #{y 3876}#)))
- (let ((#{test-exp 9228}#
- (let ((#{tmp 3884}#
- ($sc-dispatch
- #{fender 3853}#
- '#(atom #t))))
- (if #{tmp 3884}#
- (@apply
- (lambda () #{y 3880}#)
- #{tmp 3884}#)
- (let ((#{then-exp 9235}#
-
(#{build-dispatch-call 3706}#
- #{pvars 3865}#
- #{fender 3853}#
- #{y 3880}#
- #{r 3851}#
- #{mod 3855}#))
- (#{else-exp 9236}#
-
(make-struct/no-tail
- (vector-ref
-
%expanded-vtables
- 1)
- #f
- #f)))
+ (#{build-application 4280}#
+ #f
+ (let ((#{req 13633}# (list 'tmp))
+ (#{vars 13635}# (list #{y 13483}#))
+ (#{exp 13637}#
+ (let ((#{y 13654}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ 'tmp
+ #{y 13483}#)))
+ (let ((#{test-exp 13658}#
+ (let ((#{tmp 13667}#
+ ($sc-dispatch
+ #{fender 13128}#
+ '#(atom #t))))
+ (if #{tmp 13667}#
+ (@apply
+ (lambda () #{y 13654}#)
+ #{tmp 13667}#)
+ (let ((#{then-exp 13685}#
+ (#{build-dispatch-call
12149}#
+ #{pvars 13286}#
+ #{fender 13128}#
+ #{y 13654}#
+ #{r 13126}#
+ #{mod 13130}#))
+ (#{else-exp 13686}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
- 10)
+ 1)
#f
- #{y 3880}#
- #{then-exp 9235}#
- #{else-exp 9236}#)))))
- (#{then-exp 9229}#
- (#{build-dispatch-call 3706}#
- #{pvars 3865}#
- #{exp 3854}#
- #{y 3880}#
- #{r 3851}#
- #{mod 3855}#))
- (#{else-exp 9230}#
- (#{gen-syntax-case 3710}#
- #{x 3848}#
- #{keys 3849}#
- #{clauses 3850}#
- #{r 3851}#
- #{mod 3855}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 10)
- #f
- #{test-exp 9228}#
- #{then-exp 9229}#
- #{else-exp 9230}#)))))
- (let ((#{body 9261}#
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #f
- #{req 9209}#
- #f
- #f
- #f
- '()
- #{vars 9211}#
- #{exp 9213}#
- #f)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #f
- '()
- #{body 9261}#))))
- (#{arg-exps 9205}#
- (list (if (eq? #{p 3864}# 'any)
- (let ((#{fun-exp 9276}#
- (if (equal?
- (module-name
- (current-module))
- '(guile))
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 7)
- #f
- 'list)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 5)
- #f
- '(guile)
- 'list
- #f)))
- (#{arg-exps 9277}#
- (list #{x 3848}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 9276}#
- #{arg-exps 9277}#))
- (let ((#{fun-exp 9299}#
- (if (equal?
- (module-name
- (current-module))
- '(guile))
+ #f)))
(make-struct/no-tail
(vector-ref
%expanded-vtables
- 7)
+ 10)
#f
- '$sc-dispatch)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 5)
- #f
- '(guile)
- '$sc-dispatch
- #f)))
- (#{arg-exps 9300}#
- (list #{x 3848}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 1)
- #f
- #{p 3864}#))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 9299}#
- #{arg-exps 9300}#))))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 9204}#
- #{arg-exps 9205}#)))))))))
- (#{gen-syntax-case 3710}#
- (lambda (#{x 3894}#
- #{keys 3895}#
- #{clauses 3896}#
- #{r 3897}#
- #{mod 3898}#)
- (if (null? #{clauses 3896}#)
- (let ((#{fun-exp 9335}#
+ #{y 13654}#
+ #{then-exp 13685}#
+ #{else-exp 13686}#)))))
+ (#{then-exp 13659}#
+ (#{build-dispatch-call 12149}#
+ #{pvars 13286}#
+ #{exp 13129}#
+ #{y 13654}#
+ #{r 13126}#
+ #{mod 13130}#))
+ (#{else-exp 13660}#
+ (#{gen-syntax-case 12151}#
+ #{x 13123}#
+ #{keys 13124}#
+ #{clauses 13125}#
+ #{r 13126}#
+ #{mod 13130}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ #f
+ #{test-exp 13658}#
+ #{then-exp 13659}#
+ #{else-exp 13660}#)))))
+ (let ((#{body 13642}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ #{req 13633}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 13635}#
+ #{exp 13637}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ #{body 13642}#)))
+ (list (if (eq? #{p 13285}# 'any)
+ (let ((#{fun-exp 13708}#
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'list)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'list
+ #f)))
+ (#{arg-exps 13709}# (list #{x 13123}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 13708}#
+ #{arg-exps 13709}#))
+ (let ((#{fun-exp 13732}#
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ '$sc-dispatch)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ '$sc-dispatch
+ #f)))
+ (#{arg-exps 13733}#
+ (list #{x 13123}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ #{p 13285}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 13732}#
+ #{arg-exps 13733}#))))))))))))
+ (#{gen-syntax-case 12151}#
+ (lambda (#{x 12557}#
+ #{keys 12558}#
+ #{clauses 12559}#
+ #{r 12560}#
+ #{mod 12561}#)
+ (if (null? #{clauses 12559}#)
+ (let ((#{fun-exp 12566}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -20520,7 +29881,7 @@
'(guile)
'syntax-violation
#f)))
- (#{arg-exps 9336}#
+ (#{arg-exps 12567}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -20529,59 +29890,61 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 3894}#)))
+ #{x 12557}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 9335}#
- #{arg-exps 9336}#))
- (let ((#{tmp 3908}# (car #{clauses 3896}#)))
- (let ((#{tmp 3909}#
- ($sc-dispatch #{tmp 3908}# '(any any))))
- (if #{tmp 3909}#
+ #{fun-exp 12566}#
+ #{arg-exps 12567}#))
+ (let ((#{tmp 12600}# (car #{clauses 12559}#)))
+ (let ((#{tmp 12601}#
+ ($sc-dispatch #{tmp 12600}# '(any any))))
+ (if #{tmp 12601}#
(@apply
- (lambda (#{pat 3912}# #{exp 3913}#)
- (if (if (if (symbol? #{pat 3912}#)
+ (lambda (#{pat 12603}# #{exp 12604}#)
+ (if (if (if (symbol? #{pat 12603}#)
#t
- (if (if (vector? #{pat 3912}#)
- (if (= (vector-length #{pat 3912}#) 4)
- (eq? (vector-ref #{pat 3912}# 0)
+ (if (if (vector? #{pat 12603}#)
+ (if (= (vector-length #{pat 12603}#)
+ 4)
+ (eq? (vector-ref #{pat 12603}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 3912}# 1))
+ (symbol? (vector-ref #{pat 12603}# 1))
#f))
(and-map
- (lambda (#{x 3916}#)
- (not (if (eq? (if (if (vector? #{pat 3912}#)
+ (lambda (#{x 12631}#)
+ (not (if (eq? (if (if (vector?
+ #{pat 12603}#)
(if (= (vector-length
- #{pat 3912}#)
+ #{pat 12603}#)
4)
(eq? (vector-ref
- #{pat 3912}#
+ #{pat 12603}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 3912}# 1)
- #{pat 3912}#)
- (if (if (vector? #{x 3916}#)
+ (vector-ref #{pat 12603}# 1)
+ #{pat 12603}#)
+ (if (if (vector? #{x 12631}#)
(if (= (vector-length
- #{x 3916}#)
+ #{x 12631}#)
4)
(eq? (vector-ref
- #{x 3916}#
+ #{x 12631}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 3916}# 1)
- #{x 3916}#))
- (eq? (#{id-var-name 411}#
- #{pat 3912}#
+ (vector-ref #{x 12631}# 1)
+ #{x 12631}#))
+ (eq? (#{id-var-name 4332}#
+ #{pat 12603}#
'(()))
- (#{id-var-name 411}#
- #{x 3916}#
+ (#{id-var-name 4332}#
+ #{x 12631}#
'(())))
#f)))
(cons '#(syntax-object
@@ -20590,23 +29953,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709" "i3707" "i3705" "i3703"))
+ ("i3710" "i3708" "i3706" "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -20880,150 +30243,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))
- #{keys 3895}#))
+ #{keys 12558}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -21032,7 +30395,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x
@@ -21045,11 +30408,11 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -21059,10 +30422,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -21336,150 +30699,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)))
4)
(eq? (vector-ref
@@ -21489,7 +30852,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x
@@ -21502,11 +30865,11 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -21516,10 +30879,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -21793,150 +31156,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))
0)
'syntax-object)
@@ -21948,7 +31311,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -21957,21 +31320,21 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -22245,148 +31608,148 @@
(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))
1)
'#(syntax-object
@@ -22395,7 +31758,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -22404,21 +31767,21 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -22692,148 +32055,148 @@
(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)))
(if (if (= (vector-length
'#(syntax-object
@@ -22842,7 +32205,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x
@@ -22855,11 +32218,11 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -22869,10 +32232,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -23146,150 +32509,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)))
4)
(eq? (vector-ref
@@ -23299,7 +32662,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x
@@ -23312,11 +32675,11 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -23326,10 +32689,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -23603,150 +32966,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))
0)
'syntax-object)
@@ -23758,7 +33121,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -23767,21 +33130,21 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -24055,148 +33418,148 @@
(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))
1)
'#(syntax-object
@@ -24205,7 +33568,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -24214,21 +33577,21 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -24502,176 +33865,176 @@
(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))))
- (eq? (#{id-var-name 411}#
+ (eq? (#{id-var-name 4332}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -24945,177 +34308,177 @@
(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))
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -25389,279 +34752,281 @@
(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))
'(())))
#f)
- (#{chi 437}#
- #{exp 3913}#
- #{r 3897}#
+ (#{chi 4345}#
+ #{exp 12604}#
+ #{r 12560}#
'(())
- #{mod 3898}#)
- (let ((#{labels 3921}#
+ #{mod 12561}#)
+ (let ((#{labels 12806}#
(list (symbol->string (gensym "i"))))
- (#{var 3922}#
- (let ((#{id 9473}#
- (if (if (vector? #{pat 3912}#)
+ (#{var 12807}#
+ (let ((#{id 12845}#
+ (if (if (vector? #{pat 12603}#)
(if (= (vector-length
- #{pat 3912}#)
+ #{pat 12603}#)
4)
(eq? (vector-ref
- #{pat 3912}#
+ #{pat 12603}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 3912}# 1)
- #{pat 3912}#)))
+ (vector-ref #{pat 12603}# 1)
+ #{pat 12603}#)))
(gensym
(string-append
- (symbol->string #{id 9473}#)
+ (symbol->string #{id 12845}#)
" ")))))
- (#{build-application 271}#
+ (#{build-application 4280}#
#f
- (#{build-simple-lambda 289}#
+ (#{build-simple-lambda 4289}#
#f
- (list (syntax->datum #{pat 3912}#))
+ (list (syntax->datum #{pat 12603}#))
#f
- (list #{var 3922}#)
+ (list #{var 12807}#)
'()
- (#{chi 437}#
- #{exp 3913}#
- (#{extend-env 337}#
- #{labels 3921}#
+ (#{chi 4345}#
+ #{exp 12604}#
+ (#{extend-env 4307}#
+ #{labels 12806}#
(list (cons 'syntax
- (cons #{var 3922}# 0)))
- #{r 3897}#)
- (#{make-binding-wrap 401}#
- (list #{pat 3912}#)
- #{labels 3921}#
+ (cons #{var 12807}# 0)))
+ #{r 12560}#)
+ (#{make-binding-wrap 4327}#
+ (list #{pat 12603}#)
+ #{labels 12806}#
'(()))
- #{mod 3898}#))
- (list #{x 3894}#))))
- (#{gen-clause 3708}#
- #{x 3894}#
- #{keys 3895}#
- (cdr #{clauses 3896}#)
- #{r 3897}#
- #{pat 3912}#
+ #{mod 12561}#))
+ (list #{x 12557}#))))
+ (#{gen-clause 12150}#
+ #{x 12557}#
+ #{keys 12558}#
+ (cdr #{clauses 12559}#)
+ #{r 12560}#
+ #{pat 12603}#
#t
- #{exp 3913}#
- #{mod 3898}#)))
- #{tmp 3909}#)
- (let ((#{tmp 3928}#
- ($sc-dispatch #{tmp 3908}# '(any any any))))
- (if #{tmp 3928}#
+ #{exp 12604}#
+ #{mod 12561}#)))
+ #{tmp 12601}#)
+ (let ((#{tmp 13115}#
+ ($sc-dispatch #{tmp 12600}# '(any any any))))
+ (if #{tmp 13115}#
(@apply
- (lambda (#{pat 3932}# #{fender 3933}# #{exp 3934}#)
- (#{gen-clause 3708}#
- #{x 3894}#
- #{keys 3895}#
- (cdr #{clauses 3896}#)
- #{r 3897}#
- #{pat 3932}#
- #{fender 3933}#
- #{exp 3934}#
- #{mod 3898}#))
- #{tmp 3928}#)
+ (lambda (#{pat 13117}#
+ #{fender 13118}#
+ #{exp 13119}#)
+ (#{gen-clause 12150}#
+ #{x 12557}#
+ #{keys 12558}#
+ (cdr #{clauses 12559}#)
+ #{r 12560}#
+ #{pat 13117}#
+ #{fender 13118}#
+ #{exp 13119}#
+ #{mod 12561}#))
+ #{tmp 13115}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 3896}#)))))))))))
- (lambda (#{e 3937}#
- #{r 3938}#
- #{w 3939}#
- #{s 3940}#
- #{mod 3941}#)
- (let ((#{e 3948}#
- (#{wrap 423}#
+ (car #{clauses 12559}#)))))))))))
+ (lambda (#{e 12152}#
+ #{r 12153}#
+ #{w 12154}#
+ #{s 12155}#
+ #{mod 12156}#)
+ (let ((#{e 12157}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3937}#) #{s 3940}# #f)
- (set-source-properties! #{e 3937}# #{s 3940}#))
- #{e 3937}#)
- #{w 3939}#
- #{mod 3941}#)))
- (let ((#{tmp 3950}#
+ (if (if (pair? #{e 12152}#) #{s 12155}# #f)
+ (set-source-properties! #{e 12152}# #{s 12155}#))
+ #{e 12152}#)
+ #{w 12154}#
+ #{mod 12156}#)))
+ (let ((#{tmp 12159}#
($sc-dispatch
- #{e 3948}#
+ #{e 12157}#
'(_ any each-any . each-any))))
- (if #{tmp 3950}#
+ (if #{tmp 12159}#
(@apply
- (lambda (#{val 3954}# #{key 3955}# #{m 3956}#)
+ (lambda (#{val 12184}# #{key 12185}# #{m 12186}#)
(if (and-map
- (lambda (#{x 3957}#)
- (if (if (symbol? #{x 3957}#)
+ (lambda (#{x 12187}#)
+ (if (if (symbol? #{x 12187}#)
#t
- (if (if (vector? #{x 3957}#)
- (if (= (vector-length #{x 3957}#) 4)
- (eq? (vector-ref #{x 3957}# 0)
+ (if (if (vector? #{x 12187}#)
+ (if (= (vector-length #{x 12187}#) 4)
+ (eq? (vector-ref #{x 12187}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3957}# 1))
+ (symbol? (vector-ref #{x 12187}# 1))
#f))
- (not (if (if (if (vector? #{x 3957}#)
- (if (= (vector-length #{x 3957}#)
+ (not (if (if (if (vector? #{x 12187}#)
+ (if (= (vector-length #{x 12187}#)
4)
- (eq? (vector-ref #{x 3957}# 0)
+ (eq? (vector-ref #{x 12187}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3957}# 1))
+ (symbol? (vector-ref #{x 12187}# 1))
#f)
- (if (eq? (if (if (vector? #{x 3957}#)
+ (if (eq? (if (if (vector? #{x 12187}#)
(if (= (vector-length
- #{x 3957}#)
+ #{x 12187}#)
4)
(eq? (vector-ref
- #{x 3957}#
+ #{x 12187}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 3957}# 1)
- #{x 3957}#)
+ (vector-ref #{x 12187}# 1)
+ #{x 12187}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -25677,7 +35042,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -25951,142 +35316,142 @@
(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
@@ -26094,9 +35459,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile)))
4)
(eq? (vector-ref
@@ -26114,7 +35479,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -26388,142 +35753,142 @@
(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
@@ -26531,9 +35896,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
0)
'syntax-object)
@@ -26547,7 +35912,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -26821,148 +36186,148 @@
(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))
1)
'#(syntax-object
@@ -26973,7 +36338,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -27247,153 +36612,153 @@
(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))))
- (eq? (#{id-var-name 411}#
- #{x 3957}#
+ (eq? (#{id-var-name 4332}#
+ #{x 12187}#
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
...
((top)
@@ -27402,7 +36767,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -27676,726 +37041,738 @@
(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))
'(())))
#f)
#f))
#f))
- #{key 3955}#)
- (let ((#{x 3963}#
+ #{key 12185}#)
+ (let ((#{x 12310}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 271}#
- #{s 3940}#
- (let ((#{req 9847}# (list 'tmp))
- (#{vars 9849}# (list #{x 3963}#))
- (#{exp 9851}#
- (#{gen-syntax-case 3710}#
+ (#{build-application 4280}#
+ #{s 12155}#
+ (let ((#{req 12445}# (list 'tmp))
+ (#{vars 12447}# (list #{x 12310}#))
+ (#{exp 12449}#
+ (#{gen-syntax-case 12151}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 3963}#)
- #{key 3955}#
- #{m 3956}#
- #{r 3938}#
- #{mod 3941}#)))
- (let ((#{body 9868}#
+ #{x 12310}#)
+ #{key 12185}#
+ #{m 12186}#
+ #{r 12153}#
+ #{mod 12156}#)))
+ (let ((#{body 12454}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 9847}#
+ #{req 12445}#
#f
#f
#f
'()
- #{vars 9849}#
- #{exp 9851}#
+ #{vars 12447}#
+ #{exp 12449}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 9868}#)))
- (list (#{chi 437}#
- #{val 3954}#
- #{r 3938}#
+ #{body 12454}#)))
+ (list (#{chi 4345}#
+ #{val 12184}#
+ #{r 12153}#
'(())
- #{mod 3941}#))))
+ #{mod 12156}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 3948}#)))
- #{tmp 3950}#)
+ #{e 12157}#)))
+ #{tmp 12159}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3948}#)))))))
+ #{e 12157}#)))))))
(set! macroexpand
(lambda*
- (#{x 3969}#
+ (#{x 14894}#
#:optional
- (#{m 3971}# 'e)
- (#{esew 3973}# '(eval)))
- (#{chi-top-sequence 429}#
- (list #{x 3969}#)
+ (#{m 14895}# 'e)
+ (#{esew 14896}# '(eval)))
+ (#{chi-top-sequence 4341}#
+ (list #{x 14894}#)
'()
'((top))
#f
- #{m 3971}#
- #{esew 3973}#
+ #{m 14895}#
+ #{esew 14896}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 3977}#)
- (if (if (vector? #{x 3977}#)
- (if (= (vector-length #{x 3977}#) 4)
- (eq? (vector-ref #{x 3977}# 0) 'syntax-object)
+ (lambda (#{x 14899}#)
+ (if (if (vector? #{x 14899}#)
+ (if (= (vector-length #{x 14899}#) 4)
+ (eq? (vector-ref #{x 14899}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3977}# 1))
+ (symbol? (vector-ref #{x 14899}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 3979}# #{datum 3980}#)
- (let ((#{wrap 9942}# (vector-ref #{id 3979}# 2))
- (#{module 9943}# (vector-ref #{id 3979}# 3)))
+ (lambda (#{id 14924}# #{datum 14925}#)
+ (let ((#{wrap 14930}# (vector-ref #{id 14924}# 2))
+ (#{module 14931}# (vector-ref #{id 14924}# 3)))
(vector
'syntax-object
- #{datum 3980}#
- #{wrap 9942}#
- #{module 9943}#))))
+ #{datum 14925}#
+ #{wrap 14930}#
+ #{module 14931}#))))
(set! syntax->datum
- (lambda (#{x 3983}#)
- (#{strip 463}# #{x 3983}# '(()))))
+ (lambda (#{x 14938}#)
+ (#{strip 4358}# #{x 14938}# '(()))))
(set! syntax-source
- (lambda (#{x 3986}#)
- (#{source-annotation 327}# #{x 3986}#)))
+ (lambda (#{x 14941}#)
+ (#{source-annotation 4306}# #{x 14941}#)))
(set! generate-temporaries
- (lambda (#{ls 3988}#)
+ (lambda (#{ls 15113}#)
(begin
- (if (not (list? #{ls 3988}#))
+ (if (not (list? #{ls 15113}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 3988}#))
- (let ((#{mod 3994}#
+ #{ls 15113}#))
+ (let ((#{mod 15121}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 3995}#)
- (#{wrap 423}# (gensym) '((top)) #{mod 3994}#))
- #{ls 3988}#)))))
+ (map (lambda (#{x 15122}#)
+ (#{wrap 4338}# (gensym) '((top)) #{mod 15121}#))
+ #{ls 15113}#)))))
(set! free-identifier=?
- (lambda (#{x 3999}# #{y 4000}#)
+ (lambda (#{x 15126}# #{y 15127}#)
(begin
- (if (not (if (if (vector? #{x 3999}#)
- (if (= (vector-length #{x 3999}#) 4)
- (eq? (vector-ref #{x 3999}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 15126}#)
+ (if (= (vector-length #{x 15126}#) 4)
+ (eq? (vector-ref #{x 15126}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3999}# 1))
+ (symbol? (vector-ref #{x 15126}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 3999}#))
- (if (not (if (if (vector? #{y 4000}#)
- (if (= (vector-length #{y 4000}#) 4)
- (eq? (vector-ref #{y 4000}# 0) 'syntax-object)
+ #{x 15126}#))
+ (if (not (if (if (vector? #{y 15127}#)
+ (if (= (vector-length #{y 15127}#) 4)
+ (eq? (vector-ref #{y 15127}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 4000}# 1))
+ (symbol? (vector-ref #{y 15127}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 4000}#))
- (if (eq? (if (if (vector? #{x 3999}#)
- (if (= (vector-length #{x 3999}#) 4)
- (eq? (vector-ref #{x 3999}# 0) 'syntax-object)
+ #{y 15127}#))
+ (if (eq? (if (if (vector? #{x 15126}#)
+ (if (= (vector-length #{x 15126}#) 4)
+ (eq? (vector-ref #{x 15126}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x 3999}# 1)
- #{x 3999}#)
- (if (if (vector? #{y 4000}#)
- (if (= (vector-length #{y 4000}#) 4)
- (eq? (vector-ref #{y 4000}# 0) 'syntax-object)
+ (vector-ref #{x 15126}# 1)
+ #{x 15126}#)
+ (if (if (vector? #{y 15127}#)
+ (if (= (vector-length #{y 15127}#) 4)
+ (eq? (vector-ref #{y 15127}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{y 4000}# 1)
- #{y 4000}#))
- (eq? (#{id-var-name 411}# #{x 3999}# '(()))
- (#{id-var-name 411}# #{y 4000}# '(())))
+ (vector-ref #{y 15127}# 1)
+ #{y 15127}#))
+ (eq? (#{id-var-name 4332}# #{x 15126}# '(()))
+ (#{id-var-name 4332}# #{y 15127}# '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x 4009}# #{y 4010}#)
+ (lambda (#{x 15277}# #{y 15278}#)
(begin
- (if (not (if (if (vector? #{x 4009}#)
- (if (= (vector-length #{x 4009}#) 4)
- (eq? (vector-ref #{x 4009}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 15277}#)
+ (if (= (vector-length #{x 15277}#) 4)
+ (eq? (vector-ref #{x 15277}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 4009}# 1))
+ (symbol? (vector-ref #{x 15277}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 4009}#))
- (if (not (if (if (vector? #{y 4010}#)
- (if (= (vector-length #{y 4010}#) 4)
- (eq? (vector-ref #{y 4010}# 0) 'syntax-object)
+ #{x 15277}#))
+ (if (not (if (if (vector? #{y 15278}#)
+ (if (= (vector-length #{y 15278}#) 4)
+ (eq? (vector-ref #{y 15278}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 4010}# 1))
+ (symbol? (vector-ref #{y 15278}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 4010}#))
- (if (if (if (vector? #{x 4009}#)
- (if (= (vector-length #{x 4009}#) 4)
- (eq? (vector-ref #{x 4009}# 0) 'syntax-object)
+ #{y 15278}#))
+ (if (if (if (vector? #{x 15277}#)
+ (if (= (vector-length #{x 15277}#) 4)
+ (eq? (vector-ref #{x 15277}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{y 4010}#)
- (if (= (vector-length #{y 4010}#) 4)
- (eq? (vector-ref #{y 4010}# 0) 'syntax-object)
+ (if (vector? #{y 15278}#)
+ (if (= (vector-length #{y 15278}#) 4)
+ (eq? (vector-ref #{y 15278}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 4009}# 1)
- (vector-ref #{y 4010}# 1))
- (#{same-marks? 409}#
- (car (vector-ref #{x 4009}# 2))
- (car (vector-ref #{y 4010}# 2)))
+ (if (eq? (vector-ref #{x 15277}# 1)
+ (vector-ref #{y 15278}# 1))
+ (#{same-marks? 4331}#
+ (car (vector-ref #{x 15277}# 2))
+ (car (vector-ref #{y 15278}# 2)))
#f)
- (eq? #{x 4009}# #{y 4010}#)))))
+ (eq? #{x 15277}# #{y 15278}#)))))
(set! syntax-violation
(lambda*
- (#{who 4019}#
- #{message 4020}#
- #{form 4021}#
+ (#{who 15411}#
+ #{message 15412}#
+ #{form 15413}#
#:optional
- (#{subform 4025}# #f))
+ (#{subform 15414}# #f))
(begin
- (if (not (if (not #{who 4019}#)
- (not #{who 4019}#)
- (let ((#{t 4037}# (string? #{who 4019}#)))
- (if #{t 4037}# #{t 4037}# (symbol? #{who 4019}#)))))
+ (if (not (if (not #{who 15411}#)
+ (not #{who 15411}#)
+ (let ((#{t 15432}# (string? #{who 15411}#)))
+ (if #{t 15432}#
+ #{t 15432}#
+ (symbol? #{who 15411}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 4019}#))
- (if (not (string? #{message 4020}#))
+ #{who 15411}#))
+ (if (not (string? #{message 15412}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 4020}#))
+ #{message 15412}#))
(throw 'syntax-error
- #{who 4019}#
- #{message 4020}#
- (#{source-annotation 327}#
- (if #{form 4021}# #{form 4021}# #{subform 4025}#))
- (#{strip 463}# #{form 4021}# '(()))
- (if #{subform 4025}#
- (#{strip 463}# #{subform 4025}# '(()))
+ #{who 15411}#
+ #{message 15412}#
+ (#{source-annotation 4306}#
+ (if #{form 15413}#
+ #{form 15413}#
+ #{subform 15414}#))
+ (#{strip 4358}# #{form 15413}# '(()))
+ (if #{subform 15414}#
+ (#{strip 4358}# #{subform 15414}# '(()))
#f)))))
(letrec*
- ((#{match-each 4051}#
- (lambda (#{e 4064}# #{p 4065}# #{w 4066}# #{mod 4067}#)
- (if (pair? #{e 4064}#)
- (let ((#{first 4075}#
- (#{match 4063}#
- (car #{e 4064}#)
- #{p 4065}#
- #{w 4066}#
+ ((#{match-each 15655}#
+ (lambda (#{e 16278}#
+ #{p 16279}#
+ #{w 16280}#
+ #{mod 16281}#)
+ (if (pair? #{e 16278}#)
+ (let ((#{first 16282}#
+ (#{match 15661}#
+ (car #{e 16278}#)
+ #{p 16279}#
+ #{w 16280}#
'()
- #{mod 4067}#)))
- (if #{first 4075}#
- (let ((#{rest 4079}#
- (#{match-each 4051}#
- (cdr #{e 4064}#)
- #{p 4065}#
- #{w 4066}#
- #{mod 4067}#)))
- (if #{rest 4079}#
- (cons #{first 4075}# #{rest 4079}#)
+ #{mod 16281}#)))
+ (if #{first 16282}#
+ (let ((#{rest 16285}#
+ (#{match-each 15655}#
+ (cdr #{e 16278}#)
+ #{p 16279}#
+ #{w 16280}#
+ #{mod 16281}#)))
+ (if #{rest 16285}#
+ (cons #{first 16282}# #{rest 16285}#)
#f))
#f))
- (if (null? #{e 4064}#)
+ (if (null? #{e 16278}#)
'()
- (if (if (vector? #{e 4064}#)
- (if (= (vector-length #{e 4064}#) 4)
- (eq? (vector-ref #{e 4064}# 0) 'syntax-object)
+ (if (if (vector? #{e 16278}#)
+ (if (= (vector-length #{e 16278}#) 4)
+ (eq? (vector-ref #{e 16278}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 4051}#
- (vector-ref #{e 4064}# 1)
- #{p 4065}#
- (#{join-wraps 405}#
- #{w 4066}#
- (vector-ref #{e 4064}# 2))
- (vector-ref #{e 4064}# 3))
+ (#{match-each 15655}#
+ (vector-ref #{e 16278}# 1)
+ #{p 16279}#
+ (#{join-wraps 4329}#
+ #{w 16280}#
+ (vector-ref #{e 16278}# 2))
+ (vector-ref #{e 16278}# 3))
#f)))))
- (#{match-each+ 4053}#
- (lambda (#{e 4087}#
- #{x-pat 4088}#
- #{y-pat 4089}#
- #{z-pat 4090}#
- #{w 4091}#
- #{r 4092}#
- #{mod 4093}#)
- (letrec*
- ((#{f 4104}#
- (lambda (#{e 4105}# #{w 4106}#)
- (if (pair? #{e 4105}#)
- (call-with-values
- (lambda ()
- (#{f 4104}# (cdr #{e 4105}#) #{w 4106}#))
- (lambda (#{xr* 4109}# #{y-pat 4110}# #{r 4111}#)
- (if #{r 4111}#
- (if (null? #{y-pat 4110}#)
- (let ((#{xr 4116}#
- (#{match 4063}#
- (car #{e 4105}#)
- #{x-pat 4088}#
- #{w 4106}#
- '()
- #{mod 4093}#)))
- (if #{xr 4116}#
- (values
- (cons #{xr 4116}# #{xr* 4109}#)
- #{y-pat 4110}#
- #{r 4111}#)
- (values #f #f #f)))
- (values
- '()
- (cdr #{y-pat 4110}#)
- (#{match 4063}#
- (car #{e 4105}#)
- (car #{y-pat 4110}#)
- #{w 4106}#
- #{r 4111}#
- #{mod 4093}#)))
- (values #f #f #f))))
- (if (if (vector? #{e 4105}#)
- (if (= (vector-length #{e 4105}#) 4)
- (eq? (vector-ref #{e 4105}# 0) 'syntax-object)
- #f)
- #f)
- (#{f 4104}#
- (vector-ref #{e 4105}# 1)
- (#{join-wraps 405}# #{w 4106}# #{e 4105}#))
- (values
- '()
- #{y-pat 4089}#
- (#{match 4063}#
- #{e 4105}#
- #{z-pat 4090}#
- #{w 4106}#
- #{r 4092}#
- #{mod 4093}#)))))))
- (#{f 4104}# #{e 4087}# #{w 4091}#))))
- (#{match-each-any 4055}#
- (lambda (#{e 4120}# #{w 4121}# #{mod 4122}#)
- (if (pair? #{e 4120}#)
- (let ((#{l 4129}#
- (#{match-each-any 4055}#
- (cdr #{e 4120}#)
- #{w 4121}#
- #{mod 4122}#)))
- (if #{l 4129}#
- (cons (#{wrap 423}#
- (car #{e 4120}#)
- #{w 4121}#
- #{mod 4122}#)
- #{l 4129}#)
+ (#{match-each-any 15657}#
+ (lambda (#{e 16313}# #{w 16314}# #{mod 16315}#)
+ (if (pair? #{e 16313}#)
+ (let ((#{l 16316}#
+ (#{match-each-any 15657}#
+ (cdr #{e 16313}#)
+ #{w 16314}#
+ #{mod 16315}#)))
+ (if #{l 16316}#
+ (cons (#{wrap 4338}#
+ (car #{e 16313}#)
+ #{w 16314}#
+ #{mod 16315}#)
+ #{l 16316}#)
#f))
- (if (null? #{e 4120}#)
+ (if (null? #{e 16313}#)
'()
- (if (if (vector? #{e 4120}#)
- (if (= (vector-length #{e 4120}#) 4)
- (eq? (vector-ref #{e 4120}# 0) 'syntax-object)
+ (if (if (vector? #{e 16313}#)
+ (if (= (vector-length #{e 16313}#) 4)
+ (eq? (vector-ref #{e 16313}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 4055}#
- (vector-ref #{e 4120}# 1)
- (#{join-wraps 405}#
- #{w 4121}#
- (vector-ref #{e 4120}# 2))
- #{mod 4122}#)
+ (#{match-each-any 15657}#
+ (vector-ref #{e 16313}# 1)
+ (#{join-wraps 4329}#
+ #{w 16314}#
+ (vector-ref #{e 16313}# 2))
+ #{mod 16315}#)
#f)))))
- (#{match-empty 4057}#
- (lambda (#{p 4137}# #{r 4138}#)
- (if (null? #{p 4137}#)
- #{r 4138}#
- (if (eq? #{p 4137}# '_)
- #{r 4138}#
- (if (eq? #{p 4137}# 'any)
- (cons '() #{r 4138}#)
- (if (pair? #{p 4137}#)
- (#{match-empty 4057}#
- (car #{p 4137}#)
- (#{match-empty 4057}#
- (cdr #{p 4137}#)
- #{r 4138}#))
- (if (eq? #{p 4137}# 'each-any)
- (cons '() #{r 4138}#)
- (let ((#{atom-key 4154}# (vector-ref #{p 4137}# 0)))
- (if (memv #{atom-key 4154}# '(each))
- (#{match-empty 4057}#
- (vector-ref #{p 4137}# 1)
- #{r 4138}#)
- (if (memv #{atom-key 4154}# '(each+))
- (#{match-empty 4057}#
- (vector-ref #{p 4137}# 1)
- (#{match-empty 4057}#
- (reverse (vector-ref #{p 4137}# 2))
- (#{match-empty 4057}#
- (vector-ref #{p 4137}# 3)
- #{r 4138}#)))
- (if (memv #{atom-key 4154}# '(free-id atom))
- #{r 4138}#
- (if (memv #{atom-key 4154}# '(vector))
- (#{match-empty 4057}#
- (vector-ref #{p 4137}# 1)
- #{r 4138}#)))))))))))))
- (#{combine 4059}#
- (lambda (#{r* 4159}# #{r 4160}#)
- (if (null? (car #{r* 4159}#))
- #{r 4160}#
- (cons (map car #{r* 4159}#)
- (#{combine 4059}#
- (map cdr #{r* 4159}#)
- #{r 4160}#)))))
- (#{match* 4061}#
- (lambda (#{e 4163}#
- #{p 4164}#
- #{w 4165}#
- #{r 4166}#
- #{mod 4167}#)
- (if (null? #{p 4164}#)
- (if (null? #{e 4163}#) #{r 4166}# #f)
- (if (pair? #{p 4164}#)
- (if (pair? #{e 4163}#)
- (#{match 4063}#
- (car #{e 4163}#)
- (car #{p 4164}#)
- #{w 4165}#
- (#{match 4063}#
- (cdr #{e 4163}#)
- (cdr #{p 4164}#)
- #{w 4165}#
- #{r 4166}#
- #{mod 4167}#)
- #{mod 4167}#)
+ (#{match-empty 15658}#
+ (lambda (#{p 16340}# #{r 16341}#)
+ (if (null? #{p 16340}#)
+ #{r 16341}#
+ (if (eq? #{p 16340}# '_)
+ #{r 16341}#
+ (if (eq? #{p 16340}# 'any)
+ (cons '() #{r 16341}#)
+ (if (pair? #{p 16340}#)
+ (#{match-empty 15658}#
+ (car #{p 16340}#)
+ (#{match-empty 15658}#
+ (cdr #{p 16340}#)
+ #{r 16341}#))
+ (if (eq? #{p 16340}# 'each-any)
+ (cons '() #{r 16341}#)
+ (let ((#{atom-key 16342}# (vector-ref #{p 16340}# 0)))
+ (if (eqv? #{atom-key 16342}# 'each)
+ (#{match-empty 15658}#
+ (vector-ref #{p 16340}# 1)
+ #{r 16341}#)
+ (if (eqv? #{atom-key 16342}# 'each+)
+ (#{match-empty 15658}#
+ (vector-ref #{p 16340}# 1)
+ (#{match-empty 15658}#
+ (reverse (vector-ref #{p 16340}# 2))
+ (#{match-empty 15658}#
+ (vector-ref #{p 16340}# 3)
+ #{r 16341}#)))
+ (if (if (eqv? #{atom-key 16342}# 'free-id)
+ #t
+ (eqv? #{atom-key 16342}# 'atom))
+ #{r 16341}#
+ (if (eqv? #{atom-key 16342}# 'vector)
+ (#{match-empty 15658}#
+ (vector-ref #{p 16340}# 1)
+ #{r 16341}#)))))))))))))
+ (#{combine 15659}#
+ (lambda (#{r* 16361}# #{r 16362}#)
+ (if (null? (car #{r* 16361}#))
+ #{r 16362}#
+ (cons (map car #{r* 16361}#)
+ (#{combine 15659}#
+ (map cdr #{r* 16361}#)
+ #{r 16362}#)))))
+ (#{match* 15660}#
+ (lambda (#{e 15690}#
+ #{p 15691}#
+ #{w 15692}#
+ #{r 15693}#
+ #{mod 15694}#)
+ (if (null? #{p 15691}#)
+ (if (null? #{e 15690}#) #{r 15693}# #f)
+ (if (pair? #{p 15691}#)
+ (if (pair? #{e 15690}#)
+ (#{match 15661}#
+ (car #{e 15690}#)
+ (car #{p 15691}#)
+ #{w 15692}#
+ (#{match 15661}#
+ (cdr #{e 15690}#)
+ (cdr #{p 15691}#)
+ #{w 15692}#
+ #{r 15693}#
+ #{mod 15694}#)
+ #{mod 15694}#)
#f)
- (if (eq? #{p 4164}# 'each-any)
- (let ((#{l 4184}#
- (#{match-each-any 4055}#
- #{e 4163}#
- #{w 4165}#
- #{mod 4167}#)))
- (if #{l 4184}# (cons #{l 4184}# #{r 4166}#) #f))
- (let ((#{atom-key 4190}# (vector-ref #{p 4164}# 0)))
- (if (memv #{atom-key 4190}# '(each))
- (if (null? #{e 4163}#)
- (#{match-empty 4057}#
- (vector-ref #{p 4164}# 1)
- #{r 4166}#)
- (let ((#{l 4193}#
- (#{match-each 4051}#
- #{e 4163}#
- (vector-ref #{p 4164}# 1)
- #{w 4165}#
- #{mod 4167}#)))
- (if #{l 4193}#
+ (if (eq? #{p 15691}# 'each-any)
+ (let ((#{l 15699}#
+ (#{match-each-any 15657}#
+ #{e 15690}#
+ #{w 15692}#
+ #{mod 15694}#)))
+ (if #{l 15699}#
+ (cons #{l 15699}# #{r 15693}#)
+ #f))
+ (let ((#{atom-key 15704}# (vector-ref #{p 15691}# 0)))
+ (if (eqv? #{atom-key 15704}# 'each)
+ (if (null? #{e 15690}#)
+ (#{match-empty 15658}#
+ (vector-ref #{p 15691}# 1)
+ #{r 15693}#)
+ (let ((#{l 15711}#
+ (#{match-each 15655}#
+ #{e 15690}#
+ (vector-ref #{p 15691}# 1)
+ #{w 15692}#
+ #{mod 15694}#)))
+ (if #{l 15711}#
(letrec*
- ((#{collect 4198}#
- (lambda (#{l 4199}#)
- (if (null? (car #{l 4199}#))
- #{r 4166}#
- (cons (map car #{l 4199}#)
- (#{collect 4198}#
- (map cdr #{l 4199}#)))))))
- (#{collect 4198}# #{l 4193}#))
+ ((#{collect 15714}#
+ (lambda (#{l 15767}#)
+ (if (null? (car #{l 15767}#))
+ #{r 15693}#
+ (cons (map car #{l 15767}#)
+ (#{collect 15714}#
+ (map cdr #{l 15767}#)))))))
+ (#{collect 15714}# #{l 15711}#))
#f)))
- (if (memv #{atom-key 4190}# '(each+))
+ (if (eqv? #{atom-key 15704}# 'each+)
(call-with-values
(lambda ()
- (#{match-each+ 4053}#
- #{e 4163}#
- (vector-ref #{p 4164}# 1)
- (vector-ref #{p 4164}# 2)
- (vector-ref #{p 4164}# 3)
- #{w 4165}#
- #{r 4166}#
- #{mod 4167}#))
- (lambda (#{xr* 4201}# #{y-pat 4202}# #{r 4203}#)
- (if #{r 4203}#
- (if (null? #{y-pat 4202}#)
- (if (null? #{xr* 4201}#)
- (#{match-empty 4057}#
- (vector-ref #{p 4164}# 1)
- #{r 4203}#)
- (#{combine 4059}# #{xr* 4201}# #{r 4203}#))
+ (let ((#{x-pat 15776}# (vector-ref #{p 15691}# 1))
+ (#{y-pat 15777}# (vector-ref #{p 15691}# 2))
+ (#{z-pat 15778}# (vector-ref #{p 15691}# 3)))
+ (letrec*
+ ((#{f 15782}#
+ (lambda (#{e 15784}# #{w 15785}#)
+ (if (pair? #{e 15784}#)
+ (call-with-values
+ (lambda ()
+ (#{f 15782}#
+ (cdr #{e 15784}#)
+ #{w 15785}#))
+ (lambda (#{xr* 15786}#
+ #{y-pat 15787}#
+ #{r 15788}#)
+ (if #{r 15788}#
+ (if (null? #{y-pat 15787}#)
+ (let ((#{xr 15789}#
+ (#{match 15661}#
+ (car #{e 15784}#)
+ #{x-pat 15776}#
+ #{w 15785}#
+ '()
+ #{mod 15694}#)))
+ (if #{xr 15789}#
+ (values
+ (cons #{xr 15789}#
+ #{xr* 15786}#)
+ #{y-pat 15787}#
+ #{r 15788}#)
+ (values #f #f #f)))
+ (values
+ '()
+ (cdr #{y-pat 15787}#)
+ (#{match 15661}#
+ (car #{e 15784}#)
+ (car #{y-pat 15787}#)
+ #{w 15785}#
+ #{r 15788}#
+ #{mod 15694}#)))
+ (values #f #f #f))))
+ (if (if (vector? #{e 15784}#)
+ (if (= (vector-length #{e 15784}#)
+ 4)
+ (eq? (vector-ref #{e 15784}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (#{f 15782}#
+ (vector-ref #{e 15784}# 1)
+ (#{join-wraps 4329}#
+ #{w 15785}#
+ #{e 15784}#))
+ (values
+ '()
+ #{y-pat 15777}#
+ (#{match 15661}#
+ #{e 15784}#
+ #{z-pat 15778}#
+ #{w 15785}#
+ #{r 15693}#
+ #{mod 15694}#)))))))
+ (#{f 15782}# #{e 15690}# #{w 15692}#))))
+ (lambda (#{xr* 15817}# #{y-pat 15818}# #{r 15819}#)
+ (if #{r 15819}#
+ (if (null? #{y-pat 15818}#)
+ (if (null? #{xr* 15817}#)
+ (#{match-empty 15658}#
+ (vector-ref #{p 15691}# 1)
+ #{r 15819}#)
+ (#{combine 15659}# #{xr* 15817}# #{r 15819}#))
#f)
#f)))
- (if (memv #{atom-key 4190}# '(free-id))
- (if (if (symbol? #{e 4163}#)
+ (if (eqv? #{atom-key 15704}# 'free-id)
+ (if (if (symbol? #{e 15690}#)
#t
- (if (if (vector? #{e 4163}#)
- (if (= (vector-length #{e 4163}#) 4)
- (eq? (vector-ref #{e 4163}# 0)
+ (if (if (vector? #{e 15690}#)
+ (if (= (vector-length #{e 15690}#) 4)
+ (eq? (vector-ref #{e 15690}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 4163}# 1))
+ (symbol? (vector-ref #{e 15690}# 1))
#f))
- (if (let ((#{i 10362}#
- (#{wrap 423}#
- #{e 4163}#
- #{w 4165}#
- #{mod 4167}#))
- (#{j 10363}# (vector-ref #{p 4164}# 1)))
- (if (eq? (if (if (vector? #{i 10362}#)
+ (if (let ((#{i 16182}#
+ (#{wrap 4338}#
+ #{e 15690}#
+ #{w 15692}#
+ #{mod 15694}#))
+ (#{j 16183}# (vector-ref #{p 15691}# 1)))
+ (if (eq? (if (if (vector? #{i 16182}#)
(if (= (vector-length
- #{i 10362}#)
+ #{i 16182}#)
4)
(eq? (vector-ref
- #{i 10362}#
+ #{i 16182}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 10362}# 1)
- #{i 10362}#)
- (if (if (vector? #{j 10363}#)
+ (vector-ref #{i 16182}# 1)
+ #{i 16182}#)
+ (if (if (vector? #{j 16183}#)
(if (= (vector-length
- #{j 10363}#)
+ #{j 16183}#)
4)
(eq? (vector-ref
- #{j 10363}#
+ #{j 16183}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 10363}# 1)
- #{j 10363}#))
- (eq? (#{id-var-name 411}# #{i 10362}# '(()))
- (#{id-var-name 411}#
- #{j 10363}#
+ (vector-ref #{j 16183}# 1)
+ #{j 16183}#))
+ (eq? (#{id-var-name 4332}#
+ #{i 16182}#
+ '(()))
+ (#{id-var-name 4332}#
+ #{j 16183}#
'(())))
#f))
- #{r 4166}#
+ #{r 15693}#
#f)
#f)
- (if (memv #{atom-key 4190}# '(atom))
+ (if (eqv? #{atom-key 15704}# 'atom)
(if (equal?
- (vector-ref #{p 4164}# 1)
- (#{strip 463}# #{e 4163}# #{w 4165}#))
- #{r 4166}#
+ (vector-ref #{p 15691}# 1)
+ (#{strip 4358}# #{e 15690}# #{w 15692}#))
+ #{r 15693}#
#f)
- (if (memv #{atom-key 4190}# '(vector))
- (if (vector? #{e 4163}#)
- (#{match 4063}#
- (vector->list #{e 4163}#)
- (vector-ref #{p 4164}# 1)
- #{w 4165}#
- #{r 4166}#
- #{mod 4167}#)
+ (if (eqv? #{atom-key 15704}# 'vector)
+ (if (vector? #{e 15690}#)
+ (#{match 15661}#
+ (vector->list #{e 15690}#)
+ (vector-ref #{p 15691}# 1)
+ #{w 15692}#
+ #{r 15693}#
+ #{mod 15694}#)
#f))))))))))))
- (#{match 4063}#
- (lambda (#{e 4220}#
- #{p 4221}#
- #{w 4222}#
- #{r 4223}#
- #{mod 4224}#)
- (if (not #{r 4223}#)
+ (#{match 15661}#
+ (lambda (#{e 16243}#
+ #{p 16244}#
+ #{w 16245}#
+ #{r 16246}#
+ #{mod 16247}#)
+ (if (not #{r 16246}#)
#f
- (if (eq? #{p 4221}# '_)
- #{r 4223}#
- (if (eq? #{p 4221}# 'any)
- (cons (#{wrap 423}# #{e 4220}# #{w 4222}# #{mod 4224}#)
- #{r 4223}#)
- (if (if (vector? #{e 4220}#)
- (if (= (vector-length #{e 4220}#) 4)
- (eq? (vector-ref #{e 4220}# 0) 'syntax-object)
+ (if (eq? #{p 16244}# '_)
+ #{r 16246}#
+ (if (eq? #{p 16244}# 'any)
+ (cons (#{wrap 4338}#
+ #{e 16243}#
+ #{w 16245}#
+ #{mod 16247}#)
+ #{r 16246}#)
+ (if (if (vector? #{e 16243}#)
+ (if (= (vector-length #{e 16243}#) 4)
+ (eq? (vector-ref #{e 16243}# 0) 'syntax-object)
#f)
#f)
- (#{match* 4061}#
- (vector-ref #{e 4220}# 1)
- #{p 4221}#
- (#{join-wraps 405}#
- #{w 4222}#
- (vector-ref #{e 4220}# 2))
- #{r 4223}#
- (vector-ref #{e 4220}# 3))
- (#{match* 4061}#
- #{e 4220}#
- #{p 4221}#
- #{w 4222}#
- #{r 4223}#
- #{mod 4224}#))))))))
+ (#{match* 15660}#
+ (vector-ref #{e 16243}# 1)
+ #{p 16244}#
+ (#{join-wraps 4329}#
+ #{w 16245}#
+ (vector-ref #{e 16243}# 2))
+ #{r 16246}#
+ (vector-ref #{e 16243}# 3))
+ (#{match* 15660}#
+ #{e 16243}#
+ #{p 16244}#
+ #{w 16245}#
+ #{r 16246}#
+ #{mod 16247}#))))))))
(set! $sc-dispatch
- (lambda (#{e 4239}# #{p 4240}#)
- (if (eq? #{p 4240}# 'any)
- (list #{e 4239}#)
- (if (eq? #{p 4240}# '_)
+ (lambda (#{e 15662}# #{p 15663}#)
+ (if (eq? #{p 15663}# 'any)
+ (list #{e 15662}#)
+ (if (eq? #{p 15663}# '_)
'()
- (if (if (vector? #{e 4239}#)
- (if (= (vector-length #{e 4239}#) 4)
- (eq? (vector-ref #{e 4239}# 0) 'syntax-object)
+ (if (if (vector? #{e 15662}#)
+ (if (= (vector-length #{e 15662}#) 4)
+ (eq? (vector-ref #{e 15662}# 0) 'syntax-object)
#f)
#f)
- (#{match* 4061}#
- (vector-ref #{e 4239}# 1)
- #{p 4240}#
- (vector-ref #{e 4239}# 2)
+ (#{match* 15660}#
+ (vector-ref #{e 15662}# 1)
+ #{p 15663}#
+ (vector-ref #{e 15662}# 2)
'()
- (vector-ref #{e 4239}# 3))
- (#{match* 4061}#
- #{e 4239}#
- #{p 4240}#
+ (vector-ref #{e 15662}# 3))
+ (#{match* 15660}#
+ #{e 15662}#
+ #{p 15663}#
'(())
'()
#f)))))))))
@@ -28404,82 +37781,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 10409}#)
- (let ((#{tmp 10412}#
- ($sc-dispatch #{x 10409}# '(_ () any . each-any))))
- (if #{tmp 10412}#
+ (lambda (#{x 28547}#)
+ (let ((#{tmp 28549}#
+ ($sc-dispatch #{x 28547}# '(_ () any . each-any))))
+ (if #{tmp 28549}#
(@apply
- (lambda (#{e1 10415}# #{e2 10416}#)
+ (lambda (#{e1 28553}# #{e2 28554}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10413" "i10414"))
+ #("i28520" "i28521"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
- (cons '() (cons #{e1 10415}# #{e2 10416}#))))
- #{tmp 10412}#)
- (let ((#{tmp 10418}#
+ (cons '() (cons #{e1 28553}# #{e2 28554}#))))
+ #{tmp 28549}#)
+ (let ((#{tmp 28555}#
($sc-dispatch
- #{x 10409}#
+ #{x 28547}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 10418}#
+ (if #{tmp 28555}#
(@apply
- (lambda (#{out 10423}#
- #{in 10424}#
- #{e1 10425}#
- #{e2 10426}#)
+ (lambda (#{out 28559}#
+ #{in 28560}#
+ #{e1 28561}#
+ #{e2 28562}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10419" "i10420" "i10421" "i10422"))
+ #("i28526" "i28527" "i28528" "i28529"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
- #{in 10424}#
+ #{in 28560}#
'()
- (list #{out 10423}#
+ (list #{out 28559}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10419"
- "i10420"
- "i10421"
- "i10422"))
+ #("i28526"
+ "i28527"
+ "i28528"
+ "i28529"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
(cons '()
- (cons #{e1 10425}# #{e2 10426}#))))))
- #{tmp 10418}#)
- (let ((#{tmp 10428}#
+ (cons #{e1 28561}# #{e2 28562}#))))))
+ #{tmp 28555}#)
+ (let ((#{tmp 28563}#
($sc-dispatch
- #{x 10409}#
+ #{x 28547}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 10428}#
+ (if #{tmp 28563}#
(@apply
- (lambda (#{out 10433}#
- #{in 10434}#
- #{e1 10435}#
- #{e2 10436}#)
+ (lambda (#{out 28567}#
+ #{in 28568}#
+ #{e1 28569}#
+ #{e2 28570}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10429" "i10430" "i10431" "i10432"))
+ #("i28536" "i28537" "i28538" "i28539"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -28487,62 +37864,62 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10429" "i10430" "i10431" "i10432"))
+ #("i28536" "i28537" "i28538" "i28539"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
- #{in 10434}#)
+ #{in 28568}#)
'()
- (list #{out 10433}#
+ (list #{out 28567}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10429"
- "i10430"
- "i10431"
- "i10432"))
+ #("i28536"
+ "i28537"
+ "i28538"
+ "i28539"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10410")))
+ #("i28517")))
(hygiene guile))
(cons '()
- (cons #{e1 10435}#
- #{e2 10436}#))))))
- #{tmp 10428}#)
+ (cons #{e1 28569}#
+ #{e2 28570}#))))))
+ #{tmp 28563}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10409}#))))))))))
+ #{x 28547}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 10440}#)
- (let ((#{tmp 10443}#
+ (lambda (#{x 28624}#)
+ (let ((#{tmp 28626}#
($sc-dispatch
- #{x 10440}#
+ #{x 28624}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 10443}#
+ (if #{tmp 28626}#
(@apply
- (lambda (#{k 10448}#
- #{keyword 10449}#
- #{pattern 10450}#
- #{template 10451}#)
+ (lambda (#{k 28630}#
+ #{keyword 28631}#
+ #{pattern 28632}#
+ #{template 28633}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
'(#(syntax-object
x
@@ -28550,9 +37927,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -28561,9 +37938,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
.
#(syntax-object
@@ -28572,9 +37949,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -28582,20 +37959,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
- #{pattern 10450}#))
+ #{pattern 28632}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -28603,13 +37980,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
- (cons #{k 10448}#
- (map (lambda (#{tmp 10455}#
- #{tmp 10454}#)
+ (cons #{k 28630}#
+ (map (lambda (#{tmp 28598 28634}#
+ #{tmp 28597 28635}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -28622,10 +37999,10 @@
(top)
(top)
(top))
- #("i10444"
- "i10445"
- "i10446"
- "i10447"))
+ #("i28587"
+ "i28588"
+ "i28589"
+ "i28590"))
#(ribcage
()
()
@@ -28633,9 +38010,9 @@
#(ribcage
#(x)
#((top))
- #("i10441")))
+ #("i28584")))
(hygiene guile))
- #{tmp 10454}#)
+ #{tmp 28597 28635}#)
(list '#(syntax-object
syntax
((top)
@@ -28648,10 +38025,10 @@
(top)
(top)
(top))
- #("i10444"
- "i10445"
- "i10446"
- "i10447"))
+ #("i28587"
+ "i28588"
+ "i28589"
+ "i28590"))
#(ribcage
()
()
@@ -28659,41 +38036,41 @@
#(ribcage
#(x)
#((top))
- #("i10441")))
+ #("i28584")))
(hygiene guile))
- #{tmp 10455}#)))
- #{template 10451}#
- #{pattern 10450}#))))))
- #{tmp 10443}#)
- (let ((#{tmp 10456}#
+ #{tmp 28598 28634}#)))
+ #{template 28633}#
+ #{pattern 28632}#))))))
+ #{tmp 28626}#)
+ (let ((#{tmp 28636}#
($sc-dispatch
- #{x 10440}#
+ #{x 28624}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 10456}#
+ (if (if #{tmp 28636}#
(@apply
- (lambda (#{k 10462}#
- #{docstring 10463}#
- #{keyword 10464}#
- #{pattern 10465}#
- #{template 10466}#)
- (string? (syntax->datum #{docstring 10463}#)))
- #{tmp 10456}#)
+ (lambda (#{k 28640}#
+ #{docstring 28641}#
+ #{keyword 28642}#
+ #{pattern 28643}#
+ #{template 28644}#)
+ (string? (syntax->datum #{docstring 28641}#)))
+ #{tmp 28636}#)
#f)
(@apply
- (lambda (#{k 10472}#
- #{docstring 10473}#
- #{keyword 10474}#
- #{pattern 10475}#
- #{template 10476}#)
+ (lambda (#{k 28645}#
+ #{docstring 28646}#
+ #{keyword 28647}#
+ #{pattern 28648}#
+ #{template 28649}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467" "i10468" "i10469" "i10470" "i10471"))
+ #("i28610" "i28611" "i28612" "i28613" "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
'(#(syntax-object
x
@@ -28701,11 +38078,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467" "i10468" "i10469" "i10470" "i10471"))
+ #("i28610" "i28611" "i28612" "i28613" "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile)))
- #{docstring 10473}#
+ #{docstring 28646}#
(vector
'(#(syntax-object
macro-type
@@ -28713,13 +38090,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
.
#(syntax-object
@@ -28728,13 +38105,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -28742,28 +38119,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
- #{pattern 10475}#))
+ #{pattern 28648}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -28775,17 +38152,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
- (cons #{k 10472}#
- (map (lambda (#{tmp 10480}#
- #{tmp 10479}#)
+ (cons #{k 28645}#
+ (map (lambda (#{tmp 28623 28650}#
+ #{tmp 28622 28651}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -28800,11 +38177,11 @@
(top)
(top)
(top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage
()
()
@@ -28812,10 +38189,10 @@
#(ribcage
#(x)
#((top))
-
#("i10441")))
+
#("i28584")))
(hygiene
guile))
- #{tmp 10479}#)
+ #{tmp 28622
28651}#)
(list '#(syntax-object
syntax
((top)
@@ -28830,11 +38207,11 @@
(top)
(top)
(top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage
()
()
@@ -28842,50 +38219,50 @@
#(ribcage
#(x)
#((top))
-
#("i10441")))
+
#("i28584")))
(hygiene
guile))
- #{tmp 10480}#)))
- #{template 10476}#
- #{pattern 10475}#))))))
- #{tmp 10456}#)
+ #{tmp 28623
28650}#)))
+ #{template 28649}#
+ #{pattern 28648}#))))))
+ #{tmp 28636}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10440}#))))))))
+ #{x 28624}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 10481}#)
- (let ((#{tmp 10484}#
- ($sc-dispatch #{x 10481}# '(_ (any . any) any))))
- (if #{tmp 10484}#
+ (lambda (#{x 28688}#)
+ (let ((#{tmp 28690}#
+ ($sc-dispatch #{x 28688}# '(_ (any . any) any))))
+ (if #{tmp 28690}#
(@apply
- (lambda (#{name 10488}#
- #{pattern 10489}#
- #{template 10490}#)
+ (lambda (#{name 28694}#
+ #{pattern 28695}#
+ #{template 28696}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i10485" "i10486" "i10487"))
+ #("i28665" "i28666" "i28667"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
- #{name 10488}#
+ #{name 28694}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i10485" "i10486" "i10487"))
+ #("i28665" "i28666" "i28667"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -28894,54 +38271,54 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i10485" "i10486" "i10487"))
+ #("i28665" "i28666" "i28667"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
- #{pattern 10489}#)
- #{template 10490}#))))
- #{tmp 10484}#)
- (let ((#{tmp 10491}#
+ #{pattern 28695}#)
+ #{template 28696}#))))
+ #{tmp 28690}#)
+ (let ((#{tmp 28697}#
($sc-dispatch
- #{x 10481}#
+ #{x 28688}#
'(_ (any . any) any any))))
- (if (if #{tmp 10491}#
+ (if (if #{tmp 28697}#
(@apply
- (lambda (#{name 10496}#
- #{pattern 10497}#
- #{docstring 10498}#
- #{template 10499}#)
- (string? (syntax->datum #{docstring 10498}#)))
- #{tmp 10491}#)
+ (lambda (#{name 28701}#
+ #{pattern 28702}#
+ #{docstring 28703}#
+ #{template 28704}#)
+ (string? (syntax->datum #{docstring 28703}#)))
+ #{tmp 28697}#)
#f)
(@apply
- (lambda (#{name 10504}#
- #{pattern 10505}#
- #{docstring 10506}#
- #{template 10507}#)
+ (lambda (#{name 28705}#
+ #{pattern 28706}#
+ #{docstring 28707}#
+ #{template 28708}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i10500" "i10501" "i10502" "i10503"))
+ #("i28680" "i28681" "i28682" "i28683"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
- #{name 10504}#
+ #{name 28705}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i10500" "i10501" "i10502" "i10503"))
+ #("i28680" "i28681" "i28682" "i28683"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
'()
- #{docstring 10506}#
+ #{docstring 28707}#
(list (cons '#(syntax-object
_
((top)
@@ -28951,53 +38328,53 @@
docstring
template)
#((top) (top) (top) (top))
- #("i10500"
- "i10501"
- "i10502"
- "i10503"))
+ #("i28680"
+ "i28681"
+ "i28682"
+ "i28683"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10482")))
+ #("i28662")))
(hygiene guile))
- #{pattern 10505}#)
- #{template 10507}#))))
- #{tmp 10491}#)
+ #{pattern 28706}#)
+ #{template 28708}#))))
+ #{tmp 28697}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10481}#))))))))
+ #{x 28688}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 10508}#)
- (let ((#{tmp 10511}#
+ (lambda (#{x 28757}#)
+ (let ((#{tmp 28759}#
($sc-dispatch
- #{x 10508}#
+ #{x 28757}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 10511}#
+ (if (if #{tmp 28759}#
(@apply
- (lambda (#{let* 10517}#
- #{x 10518}#
- #{v 10519}#
- #{e1 10520}#
- #{e2 10521}#)
- (and-map identifier? #{x 10518}#))
- #{tmp 10511}#)
+ (lambda (#{let* 28763}#
+ #{x 28764}#
+ #{v 28765}#
+ #{e1 28766}#
+ #{e2 28767}#)
+ (and-map identifier? #{x 28764}#))
+ #{tmp 28759}#)
#f)
(@apply
- (lambda (#{let* 10528}#
- #{x 10529}#
- #{v 10530}#
- #{e1 10531}#
- #{e2 10532}#)
+ (lambda (#{let* 28768}#
+ #{x 28769}#
+ #{v 28770}#
+ #{e1 28771}#
+ #{e2 28772}#)
(letrec*
- ((#{f 10535}#
- (lambda (#{bindings 10536}#)
- (if (null? #{bindings 10536}#)
+ ((#{f 28773}#
+ (lambda (#{bindings 28776}#)
+ (if (null? #{bindings 28776}#)
(cons '#(syntax-object
let
((top)
@@ -29005,27 +38382,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i10533" "i10534"))
+ #("i28743" "i28744"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i10523"
- "i10524"
- "i10525"
- "i10526"
- "i10527"))
+ #("i28733"
+ "i28734"
+ "i28735"
+ "i28736"
+ "i28737"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10509")))
+ #(ribcage #(x) #((top)) #("i28719")))
(hygiene guile))
- (cons '() (cons #{e1 10531}# #{e2 10532}#)))
- (let ((#{tmp 10541}#
- (list (#{f 10535}# (cdr #{bindings 10536}#))
- (car #{bindings 10536}#))))
- (let ((#{tmp 10542}#
- ($sc-dispatch #{tmp 10541}# '(any any))))
- (if #{tmp 10542}#
+ (cons '() (cons #{e1 28771}# #{e2 28772}#)))
+ (let ((#{tmp 28777}#
+ (list (#{f 28773}# (cdr #{bindings 28776}#))
+ (car #{bindings 28776}#))))
+ (let ((#{tmp 28778}#
+ ($sc-dispatch #{tmp 28777}# '(any any))))
+ (if #{tmp 28778}#
(@apply
- (lambda (#{body 10545}# #{binding 10546}#)
+ (lambda (#{body 28780}# #{binding 28781}#)
(list '#(syntax-object
let
((top)
@@ -29033,86 +38410,86 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i10543" "i10544"))
+ #("i28753" "i28754"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i10533" "i10534"))
+ #("i28743" "i28744"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i10523"
- "i10524"
- "i10525"
- "i10526"
- "i10527"))
+ #("i28733"
+ "i28734"
+ "i28735"
+ "i28736"
+ "i28737"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10509")))
+ #("i28719")))
(hygiene guile))
- (list #{binding 10546}#)
- #{body 10545}#))
- #{tmp 10542}#)
+ (list #{binding 28781}#)
+ #{body 28780}#))
+ #{tmp 28778}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10541}#))))))))
- (#{f 10535}# (map list #{x 10529}# #{v 10530}#))))
- #{tmp 10511}#)
+ #{tmp 28777}#))))))))
+ (#{f 28773}# (map list #{x 28769}# #{v 28770}#))))
+ #{tmp 28759}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10508}#))))))
+ #{x 28757}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 10548}#)
- (let ((#{tmp 10551}#
+ (lambda (#{orig-x 28839}#)
+ (let ((#{tmp 28841}#
($sc-dispatch
- #{orig-x 10548}#
+ #{orig-x 28839}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 10551}#
+ (if #{tmp 28841}#
(@apply
- (lambda (#{var 10558}#
- #{init 10559}#
- #{step 10560}#
- #{e0 10561}#
- #{e1 10562}#
- #{c 10563}#)
- (let ((#{tmp 10565}#
- (map (lambda (#{v 10586}# #{s 10587}#)
- (let ((#{tmp 10591}#
- ($sc-dispatch #{s 10587}# '())))
- (if #{tmp 10591}#
- (@apply (lambda () #{v 10586}#) #{tmp 10591}#)
- (let ((#{tmp 10592}#
- ($sc-dispatch #{s 10587}# '(any))))
- (if #{tmp 10592}#
+ (lambda (#{var 28845}#
+ #{init 28846}#
+ #{step 28847}#
+ #{e0 28848}#
+ #{e1 28849}#
+ #{c 28850}#)
+ (let ((#{tmp 28851}#
+ (map (lambda (#{v 28854}# #{s 28855}#)
+ (let ((#{tmp 28857}#
+ ($sc-dispatch #{s 28855}# '())))
+ (if #{tmp 28857}#
+ (@apply (lambda () #{v 28854}#) #{tmp 28857}#)
+ (let ((#{tmp 28860}#
+ ($sc-dispatch #{s 28855}# '(any))))
+ (if #{tmp 28860}#
(@apply
- (lambda (#{e 10594}#) #{e 10594}#)
- #{tmp 10592}#)
+ (lambda (#{e 28863}#) #{e 28863}#)
+ #{tmp 28860}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 10548}#
- #{s 10587}#))))))
- #{var 10558}#
- #{step 10560}#)))
- (let ((#{tmp 10566}#
- ($sc-dispatch #{tmp 10565}# 'each-any)))
- (if #{tmp 10566}#
+ #{orig-x 28839}#
+ #{s 28855}#))))))
+ #{var 28845}#
+ #{step 28847}#)))
+ (let ((#{tmp 28852}#
+ ($sc-dispatch #{tmp 28851}# 'each-any)))
+ (if #{tmp 28852}#
(@apply
- (lambda (#{step 10568}#)
- (let ((#{tmp 10570}# ($sc-dispatch #{e1 10562}# '())))
- (if #{tmp 10570}#
+ (lambda (#{step 28869}#)
+ (let ((#{tmp 28871}# ($sc-dispatch #{e1 28849}# '())))
+ (if #{tmp 28871}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -29122,7 +38499,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29131,17 +38508,17 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
'#(syntax-object
doloop
@@ -29150,7 +38527,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29159,19 +38536,19 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
- (map list #{var 10558}# #{init 10559}#)
+ (map list #{var 28845}# #{init 28846}#)
(list '#(syntax-object
if
((top)
@@ -29179,7 +38556,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29188,17 +38565,17 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
(list '#(syntax-object
not
@@ -29207,7 +38584,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29221,19 +38598,19 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
- #{e0 10561}#)
+ #{e0 28848}#)
(cons '#(syntax-object
begin
((top)
@@ -29241,7 +38618,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29255,20 +38632,20 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
(append
- #{c 10563}#
+ #{c 28850}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -29279,7 +38656,7 @@
#(ribcage
#(step)
#((top))
-
#("i10567"))
+
#("i28807"))
#(ribcage
#(var
init
@@ -29293,12 +38670,12 @@
(top)
(top)
(top))
-
#("i10552"
-
"i10553"
-
"i10554"
-
"i10555"
-
"i10556"
-
"i10557"))
+
#("i28792"
+
"i28793"
+
"i28794"
+
"i28795"
+
"i28796"
+
"i28797"))
#(ribcage
()
()
@@ -29306,30 +38683,30 @@
#(ribcage
#(orig-x)
#((top))
-
#("i10549")))
+
#("i28789")))
(hygiene
guile))
- #{step
10568}#)))))))
- #{tmp 10570}#)
- (let ((#{tmp 10575}#
+ #{step
28869}#)))))))
+ #{tmp 28871}#)
+ (let ((#{tmp 28875}#
($sc-dispatch
- #{e1 10562}#
+ #{e1 28849}#
'(any . each-any))))
- (if #{tmp 10575}#
+ (if #{tmp 28875}#
(@apply
- (lambda (#{e1 10578}# #{e2 10579}#)
+ (lambda (#{e1 28879}# #{e2 28880}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576" "i10577"))
+ #("i28816" "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29338,17 +38715,17 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
'#(syntax-object
doloop
@@ -29356,12 +38733,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576" "i10577"))
+ #("i28816" "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29370,33 +38747,33 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
(map list
- #{var 10558}#
- #{init 10559}#)
+ #{var 28845}#
+ #{init 28846}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576" "i10577"))
+ #("i28816" "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29405,32 +38782,32 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
- #{e0 10561}#
+ #{e0 28848}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576"
- "i10577"))
+ #("i28816"
+ "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29444,33 +38821,33 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
- (cons #{e1 10578}#
- #{e2 10579}#))
+ (cons #{e1 28879}#
+ #{e2 28880}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576"
- "i10577"))
+ #("i28816"
+ "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29484,20 +38861,20 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
(append
- #{c 10563}#
+ #{c 28850}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -29506,8 +38883,8 @@
e2)
#((top)
(top))
-
#("i10576"
-
"i10577"))
+
#("i28816"
+
"i28817"))
#(ribcage
()
()
@@ -29515,7 +38892,7 @@
#(ribcage
#(step)
#((top))
-
#("i10567"))
+
#("i28807"))
#(ribcage
#(var
init
@@ -29529,12 +38906,12 @@
(top)
(top)
(top))
-
#("i10552"
-
"i10553"
-
"i10554"
-
"i10555"
-
"i10556"
-
"i10557"))
+
#("i28792"
+
"i28793"
+
"i28794"
+
"i28795"
+
"i28796"
+
"i28797"))
#(ribcage
()
()
@@ -29542,36 +38919,36 @@
#(ribcage
#(orig-x)
#((top))
-
#("i10549")))
+
#("i28789")))
(hygiene
guile))
- #{step
10568}#)))))))
- #{tmp 10575}#)
+ #{step
28869}#)))))))
+ #{tmp 28875}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 10562}#))))))
- #{tmp 10566}#)
+ #{e1 28849}#))))))
+ #{tmp 28852}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10565}#)))))
- #{tmp 10551}#)
+ #{tmp 28851}#)))))
+ #{tmp 28841}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 10548}#))))))
+ #{orig-x 28839}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 10600}#
- (lambda (#{p 10613}# #{lev 10614}#)
- (let ((#{tmp 10618}#
+ ((#{quasi 29166}#
+ (lambda (#{p 29190}# #{lev 29191}#)
+ (let ((#{tmp 29193}#
($sc-dispatch
- #{p 10613}#
+ #{p 29190}#
'(#(free-id
#(syntax-object
unquote
@@ -29580,7 +38957,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29589,28 +38966,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
any))))
- (if #{tmp 10618}#
+ (if #{tmp 29193}#
(@apply
- (lambda (#{p 10620}#)
- (if (= #{lev 10614}# 0)
+ (lambda (#{p 29197}#)
+ (if (= #{lev 29191}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i10619"))
+ #(ribcage #(p) #((top)) #("i28916"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29619,25 +38996,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{p 10620}#)
- (#{quasicons 10604}#
+ #{p 29197}#)
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10619"))
+ #(ribcage #(p) #((top)) #("i28916"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29646,23 +39023,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i10619"))
+ #(ribcage #(p) #((top)) #("i28916"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29671,21 +39048,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- (list #{p 10620}#)
- (#{1-}# #{lev 10614}#)))))
- #{tmp 10618}#)
- (let ((#{tmp 10621}#
+ (#{quasi 29166}#
+ (list #{p 29197}#)
+ (#{1-}# #{lev 29191}#)))))
+ #{tmp 29193}#)
+ (let ((#{tmp 29200}#
($sc-dispatch
- #{p 10613}#
+ #{p 29190}#
'(#(free-id
#(syntax-object
quasiquote
@@ -29694,7 +39071,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29703,28 +39080,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
any))))
- (if #{tmp 10621}#
+ (if #{tmp 29200}#
(@apply
- (lambda (#{p 10623}#)
- (#{quasicons 10604}#
+ (lambda (#{p 29204}#)
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10622"))
+ #(ribcage #(p) #((top)) #("i28919"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29733,23 +39110,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i10622"))
+ #(ribcage #(p) #((top)) #("i28919"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29758,26 +39135,26 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- (list #{p 10623}#)
- (#{1+}# #{lev 10614}#))))
- #{tmp 10621}#)
- (let ((#{tmp 10624}#
- ($sc-dispatch #{p 10613}# '(any . any))))
- (if #{tmp 10624}#
+ (#{quasi 29166}#
+ (list #{p 29204}#)
+ (#{1+}# #{lev 29191}#))))
+ #{tmp 29200}#)
+ (let ((#{tmp 29207}#
+ ($sc-dispatch #{p 29190}# '(any . any))))
+ (if #{tmp 29207}#
(@apply
- (lambda (#{p 10627}# #{q 10628}#)
- (let ((#{tmp 10630}#
+ (lambda (#{p 29211}# #{q 29212}#)
+ (let ((#{tmp 29214}#
($sc-dispatch
- #{p 10627}#
+ #{p 29211}#
'(#(free-id
#(syntax-object
unquote
@@ -29785,12 +39162,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29805,38 +39182,38 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 10630}#
+ (if #{tmp 29214}#
(@apply
- (lambda (#{p 10632}#)
- (if (= #{lev 10614}# 0)
- (#{quasilist* 10608}#
- (map (lambda (#{tmp 10633}#)
+ (lambda (#{p 29218}#)
+ (if (= #{lev 29191}# 0)
+ (#{quasilist* 29170}#
+ (map (lambda (#{tmp 28930 29254}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i10631"))
+ #("i28928"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29851,37 +39228,37 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10633}#))
- #{p 10632}#)
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#))
- (#{quasicons 10604}#
- (#{quasicons 10604}#
+ #{tmp 28930 29254}#))
+ #{p 29218}#)
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#))
+ (#{quasicons 29168}#
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i10631"))
+ #("i28928"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29896,13 +39273,13 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote
@@ -29910,16 +39287,16 @@
#(ribcage
#(p)
#((top))
- #("i10631"))
+ #("i28928"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29934,24 +39311,24 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- #{p 10632}#
- (#{1-}# #{lev 10614}#)))
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#))))
- #{tmp 10630}#)
- (let ((#{tmp 10635}#
+ (#{quasi 29166}#
+ #{p 29218}#
+ (#{1-}# #{lev 29191}#)))
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#))))
+ #{tmp 29214}#)
+ (let ((#{tmp 29259}#
($sc-dispatch
- #{p 10627}#
+ #{p 29211}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -29959,12 +39336,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29979,40 +39356,40 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 10635}#
+ (if #{tmp 29259}#
(@apply
- (lambda (#{p 10637}#)
- (if (= #{lev 10614}# 0)
- (#{quasiappend 10606}#
- (map (lambda (#{tmp 10638}#)
+ (lambda (#{p 29263}#)
+ (if (= #{lev 29191}# 0)
+ (#{quasiappend 29169}#
+ (map (lambda (#{tmp 28935 29266}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i10636"))
+ #("i28933"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625"
- "i10626"))
+ #("i28922"
+ "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615"
- "i10616"))
+ #("i28912"
+ "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -30027,37 +39404,37 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10638}#))
- #{p 10637}#)
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#))
- (#{quasicons 10604}#
- (#{quasicons 10604}#
+ #{tmp 28935 29266}#))
+ #{p 29263}#)
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#))
+ (#{quasicons 29168}#
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i10636"))
+ #("i28933"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -30072,13 +39449,13 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -30086,16 +39463,16 @@
#(ribcage
#(p)
#((top))
- #("i10636"))
+ #("i28933"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -30110,46 +39487,337 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- #{p 10637}#
- (#{1-}# #{lev 10614}#)))
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#))))
- #{tmp 10635}#)
- (#{quasicons 10604}#
- (#{quasi 10600}#
- #{p 10627}#
- #{lev 10614}#)
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#)))))))
- #{tmp 10624}#)
- (let ((#{tmp 10642}#
- ($sc-dispatch #{p 10613}# '#(vector each-any))))
- (if #{tmp 10642}#
+ (#{quasi 29166}#
+ #{p 29263}#
+ (#{1-}# #{lev 29191}#)))
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#))))
+ #{tmp 29259}#)
+ (#{quasicons 29168}#
+ (#{quasi 29166}#
+ #{p 29211}#
+ #{lev 29191}#)
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#)))))))
+ #{tmp 29207}#)
+ (let ((#{tmp 29280}#
+ ($sc-dispatch #{p 29190}# '#(vector each-any))))
+ (if #{tmp 29280}#
(@apply
- (lambda (#{x 10644}#)
- (#{quasivector 10610}#
- (#{vquasi 10602}# #{x 10644}# #{lev 10614}#)))
- #{tmp 10642}#)
+ (lambda (#{x 29284}#)
+ (let ((#{x 29287}#
+ (#{vquasi 29167}#
+ #{x 29284}#
+ #{lev 29191}#)))
+ (let ((#{tmp 29289}#
+ ($sc-dispatch
+ #{x 29287}#
+ '(#(atom "quote") each-any))))
+ (if #{tmp 29289}#
+ (@apply
+ (lambda (#{x 29293}#)
+ (list '#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(x)
+ #((top))
+ #("i29040"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i29037"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
+ (hygiene guile))
+ (list->vector #{x 29293}#)))
+ #{tmp 29289}#)
+ (letrec*
+ ((#{f 29295}#
+ (lambda (#{y 29307}# #{k 29308}#)
+ (let ((#{tmp 29310}#
+ ($sc-dispatch
+ #{y 29307}#
+ '(#(atom "quote")
+ each-any))))
+ (if #{tmp 29310}#
+ (@apply
+ (lambda (#{y 29313}#)
+ (#{k 29308}#
+ (map (lambda (#{tmp
29065 29314}#)
+ (list
'#(syntax-object
+ "quote"
+ ((top)
+
#(ribcage
+ #(y)
+
#((top))
+
#("i29063"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(f
+ y
+ k)
+
#((top)
+
(top)
+
(top))
+
#("i29045"
+
"i29046"
+
"i29047"))
+
#(ribcage
+ #(_)
+
#((top))
+
#("i29043"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i29037"))
+
#(ribcage
+ (emit
quasivector
+
quasilist*
+
quasiappend
+
quasicons
+
vquasi
+
quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+
(top))
+
("i28908"
+
"i28906"
+
"i28904"
+
"i28902"
+
"i28900"
+
"i28898"
+
"i28896")))
+ (hygiene
+ guile))
+ #{tmp 29065
29314}#))
+ #{y 29313}#)))
+ #{tmp 29310}#)
+ (let ((#{tmp 29315}#
+ ($sc-dispatch
+ #{y 29307}#
+ '(#(atom "list")
+ .
+ each-any))))
+ (if #{tmp 29315}#
+ (@apply
+ (lambda (#{y 29318}#)
+ (#{k 29308}#
+ #{y 29318}#))
+ #{tmp 29315}#)
+ (let ((#{tmp 29319}#
+ ($sc-dispatch
+ #{y 29307}#
+ '(#(atom "list*")
+ .
+ #(each+
+ any
+ (any)
+ ())))))
+ (if #{tmp 29319}#
+ (@apply
+ (lambda (#{y 29322}#
+ #{z 29323}#)
+ (#{f 29295}#
+ #{z 29323}#
+ (lambda (#{ls
29324}#)
+ (#{k 29308}#
+ (append
+ #{y 29322}#
+ #{ls
29324}#)))))
+ #{tmp 29319}#)
+ (list '#(syntax-object
+ "list->vector"
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(#{
g29080}#)
+ #((m29081
+ top))
+
#("i29084"))
+ #(ribcage
+ #(else)
+ #((top))
+
#("i29078"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f y k)
+ #((top)
+ (top)
+ (top))
+ #("i29045"
+ "i29046"
+
"i29047"))
+ #(ribcage
+ #(_)
+ #((top))
+
#("i29043"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i29037"))
+ #(ribcage
+ (emit
quasivector
+
quasilist*
+
quasiappend
+
quasicons
+
vquasi
+
quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+
"i28896")))
+ (hygiene
+ guile))
+ #{x
29287}#))))))))))
+ (#{f 29295}#
+ #{x 29287}#
+ (lambda (#{ls 29297}#)
+ (let ((#{tmp 29299}#
+ ($sc-dispatch
+ #{ls 29297}#
+ 'each-any)))
+ (if #{tmp 29299}#
+ (@apply
+ (lambda (#{ g29053 29302}#)
+ (cons '#(syntax-object
+ "vector"
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(#{ g29053}#)
+ #((m29054 top))
+ #("i29058"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ls)
+ #((top))
+ #("i29052"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("i29043"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i29037"))
+ #(ribcage
+ (emit
quasivector
+ quasilist*
+
quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
+ (hygiene guile))
+ #{ g29053 29302}#))
+ #{tmp 29299}#)
+ (syntax-violation
+ #f
+ "source expression failed to
match any pattern"
+ #{ls 29297}#))))))))))
+ #{tmp 29280}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10646"))
+ #(ribcage #(p) #((top)) #("i28943"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -30164,25 +39832,25 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{p 10613}#)))))))))))
- (#{vquasi 10602}#
- (lambda (#{p 10648}# #{lev 10649}#)
- (let ((#{tmp 10653}#
- ($sc-dispatch #{p 10648}# '(any . any))))
- (if #{tmp 10653}#
+ #{p 29190}#)))))))))))
+ (#{vquasi 29167}#
+ (lambda (#{p 29352}# #{lev 29353}#)
+ (let ((#{tmp 29355}#
+ ($sc-dispatch #{p 29352}# '(any . any))))
+ (if #{tmp 29355}#
(@apply
- (lambda (#{p 10656}# #{q 10657}#)
- (let ((#{tmp 10659}#
+ (lambda (#{p 29359}# #{q 29360}#)
+ (let ((#{tmp 29362}#
($sc-dispatch
- #{p 10656}#
+ #{p 29359}#
'(#(free-id
#(syntax-object
unquote
@@ -30190,12 +39858,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30210,38 +39878,38 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 10659}#
+ (if #{tmp 29362}#
(@apply
- (lambda (#{p 10661}#)
- (if (= #{lev 10649}# 0)
- (#{quasilist* 10608}#
- (map (lambda (#{tmp 10662}#)
+ (lambda (#{p 29366}#)
+ (if (= #{lev 29353}# 0)
+ (#{quasilist* 29170}#
+ (map (lambda (#{tmp 28959 29402}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i10660"))
+ #("i28957"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30256,32 +39924,32 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10662}#))
- #{p 10661}#)
- (#{vquasi 10602}# #{q 10657}# #{lev 10649}#))
- (#{quasicons 10604}#
- (#{quasicons 10604}#
+ #{tmp 28959 29402}#))
+ #{p 29366}#)
+ (#{vquasi 29167}# #{q 29360}# #{lev 29353}#))
+ (#{quasicons 29168}#
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10660"))
+ #(ribcage #(p) #((top)) #("i28957"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30296,27 +39964,27 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i10660"))
+ #(ribcage #(p) #((top)) #("i28957"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30331,22 +39999,22 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- #{p 10661}#
- (#{1-}# #{lev 10649}#)))
- (#{vquasi 10602}# #{q 10657}# #{lev 10649}#))))
- #{tmp 10659}#)
- (let ((#{tmp 10664}#
+ (#{quasi 29166}#
+ #{p 29366}#
+ (#{1-}# #{lev 29353}#)))
+ (#{vquasi 29167}# #{q 29360}# #{lev 29353}#))))
+ #{tmp 29362}#)
+ (let ((#{tmp 29409}#
($sc-dispatch
- #{p 10656}#
+ #{p 29359}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -30354,12 +40022,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30374,38 +40042,38 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 10664}#
+ (if #{tmp 29409}#
(@apply
- (lambda (#{p 10666}#)
- (if (= #{lev 10649}# 0)
- (#{quasiappend 10606}#
- (map (lambda (#{tmp 10667}#)
+ (lambda (#{p 29413}#)
+ (if (= #{lev 29353}# 0)
+ (#{quasiappend 29169}#
+ (map (lambda (#{tmp 28964 29416}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i10665"))
+ #("i28962"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30420,34 +40088,34 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10667}#))
- #{p 10666}#)
- (#{vquasi 10602}#
- #{q 10657}#
- #{lev 10649}#))
- (#{quasicons 10604}#
- (#{quasicons 10604}#
+ #{tmp 28964 29416}#))
+ #{p 29413}#)
+ (#{vquasi 29167}#
+ #{q 29360}#
+ #{lev 29353}#))
+ (#{quasicons 29168}#
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10665"))
+ #(ribcage #(p) #((top)) #("i28962"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30462,27 +40130,27 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i10665"))
+ #(ribcage #(p) #((top)) #("i28962"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30497,27 +40165,27 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- #{p 10666}#
- (#{1-}# #{lev 10649}#)))
- (#{vquasi 10602}#
- #{q 10657}#
- #{lev 10649}#))))
- #{tmp 10664}#)
- (#{quasicons 10604}#
- (#{quasi 10600}# #{p 10656}# #{lev 10649}#)
- (#{vquasi 10602}# #{q 10657}# #{lev 10649}#)))))))
- #{tmp 10653}#)
- (let ((#{tmp 10671}# ($sc-dispatch #{p 10648}# '())))
- (if #{tmp 10671}#
+ (#{quasi 29166}#
+ #{p 29413}#
+ (#{1-}# #{lev 29353}#)))
+ (#{vquasi 29167}#
+ #{q 29360}#
+ #{lev 29353}#))))
+ #{tmp 29409}#)
+ (#{quasicons 29168}#
+ (#{quasi 29166}# #{p 29359}# #{lev 29353}#)
+ (#{vquasi 29167}# #{q 29360}# #{lev 29353}#)))))))
+ #{tmp 29355}#)
+ (let ((#{tmp 29434}# ($sc-dispatch #{p 29352}# '())))
+ (if #{tmp 29434}#
(@apply
(lambda ()
'(#(syntax-object
@@ -30527,7 +40195,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30536,64 +40204,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
()))
- #{tmp 10671}#)
+ #{tmp 29434}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 10648}#)))))))
- (#{quasicons 10604}#
- (lambda (#{x 10672}# #{y 10673}#)
- (let ((#{tmp 10677}# (list #{x 10672}# #{y 10673}#)))
- (let ((#{tmp 10678}#
- ($sc-dispatch #{tmp 10677}# '(any any))))
- (if #{tmp 10678}#
+ #{p 29352}#)))))))
+ (#{quasicons 29168}#
+ (lambda (#{x 29447}# #{y 29448}#)
+ (let ((#{tmp 29449}# (list #{x 29447}# #{y 29448}#)))
+ (let ((#{tmp 29450}#
+ ($sc-dispatch #{tmp 29449}# '(any any))))
+ (if #{tmp 29450}#
(@apply
- (lambda (#{x 10681}# #{y 10682}#)
- (let ((#{tmp 10684}#
+ (lambda (#{x 29452}# #{y 29453}#)
+ (let ((#{tmp 29455}#
($sc-dispatch
- #{y 10682}#
+ #{y 29453}#
'(#(atom "quote") any))))
- (if #{tmp 10684}#
+ (if #{tmp 29455}#
(@apply
- (lambda (#{dy 10686}#)
- (let ((#{tmp 10688}#
+ (lambda (#{dy 29459}#)
+ (let ((#{tmp 29461}#
($sc-dispatch
- #{x 10681}#
+ #{x 29452}#
'(#(atom "quote") any))))
- (if #{tmp 10688}#
+ (if #{tmp 29461}#
(@apply
- (lambda (#{dx 10690}#)
+ (lambda (#{dx 29465}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i10689"))
+ #("i28986"))
#(ribcage
#(dy)
#((top))
- #("i10685"))
+ #("i28982"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30608,39 +40276,39 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- (cons #{dx 10690}# #{dy 10686}#)))
- #{tmp 10688}#)
- (if (null? #{dy 10686}#)
+ (cons #{dx 29465}# #{dy 29459}#)))
+ #{tmp 29461}#)
+ (if (null? #{dy 29459}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i10691"))
+ #("i28988"))
#(ribcage
#(dy)
#((top))
- #("i10685"))
+ #("i28982"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30655,37 +40323,37 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{x 10681}#)
+ #{x 29452}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i10691"))
+ #("i28988"))
#(ribcage
#(dy)
#((top))
- #("i10685"))
+ #("i28982"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30700,42 +40368,42 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{x 10681}#
- #{y 10682}#)))))
- #{tmp 10684}#)
- (let ((#{tmp 10693}#
+ #{x 29452}#
+ #{y 29453}#)))))
+ #{tmp 29455}#)
+ (let ((#{tmp 29470}#
($sc-dispatch
- #{y 10682}#
+ #{y 29453}#
'(#(atom "list") . any))))
- (if #{tmp 10693}#
+ (if #{tmp 29470}#
(@apply
- (lambda (#{stuff 10695}#)
+ (lambda (#{stuff 29474}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i10694"))
+ #("i28991"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30750,41 +40418,41 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- (cons #{x 10681}# #{stuff 10695}#)))
- #{tmp 10693}#)
- (let ((#{tmp 10696}#
+ (cons #{x 29452}# #{stuff 29474}#)))
+ #{tmp 29470}#)
+ (let ((#{tmp 29475}#
($sc-dispatch
- #{y 10682}#
+ #{y 29453}#
'(#(atom "list*") . any))))
- (if #{tmp 10696}#
+ (if #{tmp 29475}#
(@apply
- (lambda (#{stuff 10698}#)
+ (lambda (#{stuff 29479}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i10697"))
+ #("i28994"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30799,31 +40467,31 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- (cons #{x 10681}# #{stuff 10698}#)))
- #{tmp 10696}#)
+ (cons #{x 29452}# #{stuff 29479}#)))
+ #{tmp 29475}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i10699"))
+ #(ribcage #(_) #((top)) #("i28996"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30838,29 +40506,29 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{x 10681}#
- #{y 10682}#))))))))
- #{tmp 10678}#)
+ #{x 29452}#
+ #{y 29453}#))))))))
+ #{tmp 29450}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10677}#))))))
- (#{quasiappend 10606}#
- (lambda (#{x 10701}# #{y 10702}#)
- (let ((#{tmp 10706}#
- ($sc-dispatch #{y 10702}# '(#(atom "quote") ()))))
- (if #{tmp 10706}#
+ #{tmp 29449}#))))))
+ (#{quasiappend 29169}#
+ (lambda (#{x 29490}# #{y 29491}#)
+ (let ((#{tmp 29493}#
+ ($sc-dispatch #{y 29491}# '(#(atom "quote") ()))))
+ (if #{tmp 29493}#
(@apply
(lambda ()
- (if (null? #{x 10701}#)
+ (if (null? #{x 29490}#)
'(#(syntax-object
"quote"
((top)
@@ -30868,7 +40536,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i10703" "i10704"))
+ #("i29000" "i29001"))
#(ribcage
(emit quasivector
quasilist*
@@ -30877,32 +40545,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
())
- (if (null? (cdr #{x 10701}#))
- (car #{x 10701}#)
- (let ((#{tmp 10714}#
- ($sc-dispatch #{x 10701}# 'each-any)))
- (if #{tmp 10714}#
+ (if (null? (cdr #{x 29490}#))
+ (car #{x 29490}#)
+ (let ((#{tmp 29498}#
+ ($sc-dispatch #{x 29490}# 'each-any)))
+ (if #{tmp 29498}#
(@apply
- (lambda (#{p 10716}#)
+ (lambda (#{p 29502}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i10715"))
+ #(ribcage #(p) #((top)) #("i29012"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10703" "i10704"))
+ #("i29000" "i29001"))
#(ribcage
(emit quasivector
quasilist*
@@ -30917,29 +40585,29 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{p 10716}#))
- #{tmp 10714}#)
+ #{p 29502}#))
+ #{tmp 29498}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10701}#))))))
- #{tmp 10706}#)
- (if (null? #{x 10701}#)
- #{y 10702}#
- (let ((#{tmp 10724}# (list #{x 10701}# #{y 10702}#)))
- (let ((#{tmp 10725}#
- ($sc-dispatch #{tmp 10724}# '(each-any any))))
- (if #{tmp 10725}#
+ #{x 29490}#))))))
+ #{tmp 29493}#)
+ (if (null? #{x 29490}#)
+ #{y 29491}#
+ (let ((#{tmp 29510}# (list #{x 29490}# #{y 29491}#)))
+ (let ((#{tmp 29511}#
+ ($sc-dispatch #{tmp 29510}# '(each-any any))))
+ (if #{tmp 29511}#
(@apply
- (lambda (#{p 10728}# #{y 10729}#)
+ (lambda (#{p 29513}# #{y 29514}#)
(cons '#(syntax-object
"append"
((top)
@@ -30947,13 +40615,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i10726" "i10727"))
- #(ribcage #(_) #((top)) #("i10718"))
+ #("i29023" "i29024"))
+ #(ribcage #(_) #((top)) #("i29015"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10703" "i10704"))
+ #("i29000" "i29001"))
#(ribcage
(emit quasivector
quasilist*
@@ -30968,263 +40636,44 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- (append #{p 10728}# (list #{y 10729}#))))
- #{tmp 10725}#)
+ (append #{p 29513}# (list #{y 29514}#))))
+ #{tmp 29511}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10724}#)))))))))
- (#{quasilist* 10608}#
- (lambda (#{x 10731}# #{y 10732}#)
+ #{tmp 29510}#)))))))))
+ (#{quasilist* 29170}#
+ (lambda (#{x 29518}# #{y 29519}#)
(letrec*
- ((#{f 10737}#
- (lambda (#{x 10738}#)
- (if (null? #{x 10738}#)
- #{y 10732}#
- (#{quasicons 10604}#
- (car #{x 10738}#)
- (#{f 10737}# (cdr #{x 10738}#)))))))
- (#{f 10737}# #{x 10731}#))))
- (#{quasivector 10610}#
- (lambda (#{x 10739}#)
- (let ((#{tmp 10742}#
- ($sc-dispatch
- #{x 10739}#
- '(#(atom "quote") each-any))))
- (if #{tmp 10742}#
- (@apply
- (lambda (#{x 10744}#)
- (list '#(syntax-object
- "quote"
- ((top)
- #(ribcage #(x) #((top)) #("i10743"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10740"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
- (hygiene guile))
- (list->vector #{x 10744}#)))
- #{tmp 10742}#)
- (letrec*
- ((#{f 10751}#
- (lambda (#{y 10752}# #{k 10753}#)
- (let ((#{tmp 10765}#
- ($sc-dispatch
- #{y 10752}#
- '(#(atom "quote") each-any))))
- (if #{tmp 10765}#
- (@apply
- (lambda (#{y 10767}#)
- (#{k 10753}#
- (map (lambda (#{tmp 10768}#)
- (list '#(syntax-object
- "quote"
- ((top)
- #(ribcage
- #(y)
- #((top))
- #("i10766"))
- #(ribcage () () ())
- #(ribcage
- #(f y k)
- #((top) (top) (top))
- #("i10748"
- "i10749"
- "i10750"))
- #(ribcage
- #(_)
- #((top))
- #("i10746"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i10740"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
- (hygiene guile))
- #{tmp 10768}#))
- #{y 10767}#)))
- #{tmp 10765}#)
- (let ((#{tmp 10769}#
- ($sc-dispatch
- #{y 10752}#
- '(#(atom "list") . each-any))))
- (if #{tmp 10769}#
- (@apply
- (lambda (#{y 10771}#)
- (#{k 10753}# #{y 10771}#))
- #{tmp 10769}#)
- (let ((#{tmp 10773}#
- ($sc-dispatch
- #{y 10752}#
- '(#(atom "list*")
- .
- #(each+ any (any) ())))))
- (if #{tmp 10773}#
- (@apply
- (lambda (#{y 10776}# #{z 10777}#)
- (#{f 10751}#
- #{z 10777}#
- (lambda (#{ls 10778}#)
- (#{k 10753}#
- (append
- #{y 10776}#
- #{ls 10778}#)))))
- #{tmp 10773}#)
- (list '#(syntax-object
- "list->vector"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g10783}#)
- #((m10784 top))
- #("i10787"))
- #(ribcage
- #(else)
- #((top))
- #("i10781"))
- #(ribcage () () ())
- #(ribcage
- #(f y k)
- #((top) (top) (top))
- #("i10748" "i10749" "i10750"))
- #(ribcage
- #(_)
- #((top))
- #("i10746"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i10740"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
- (hygiene guile))
- #{x 10739}#))))))))))
- (#{f 10751}#
- #{x 10739}#
- (lambda (#{ls 10754}#)
- (let ((#{tmp 10760}#
- ($sc-dispatch #{ls 10754}# 'each-any)))
- (if #{tmp 10760}#
- (@apply
- (lambda (#{ g10756 10762}#)
- (cons '#(syntax-object
- "vector"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g10756}#)
- #((m10757 top))
- #("i10761"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(ls) #((top)) #("i10755"))
- #(ribcage #(_) #((top)) #("i10746"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10740"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
- (hygiene guile))
- #{ g10756 10762}#))
- #{tmp 10760}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{ls 10754}#))))))))))
- (#{emit 10612}#
- (lambda (#{x 10789}#)
- (let ((#{tmp 10792}#
- ($sc-dispatch #{x 10789}# '(#(atom "quote") any))))
- (if #{tmp 10792}#
+ ((#{f 29520}#
+ (lambda (#{x 29609}#)
+ (if (null? #{x 29609}#)
+ #{y 29519}#
+ (#{quasicons 29168}#
+ (car #{x 29609}#)
+ (#{f 29520}# (cdr #{x 29609}#)))))))
+ (#{f 29520}# #{x 29518}#))))
+ (#{emit 29172}#
+ (lambda (#{x 29612}#)
+ (let ((#{tmp 29614}#
+ ($sc-dispatch #{x 29612}# '(#(atom "quote") any))))
+ (if #{tmp 29614}#
(@apply
- (lambda (#{x 10794}#)
+ (lambda (#{x 29618}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i10793"))
+ #(ribcage #(x) #((top)) #("i29090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10790"))
+ #(ribcage #(x) #((top)) #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31233,40 +40682,40 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{x 10794}#))
- #{tmp 10792}#)
- (let ((#{tmp 10795}#
+ #{x 29618}#))
+ #{tmp 29614}#)
+ (let ((#{tmp 29619}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "list") . each-any))))
- (if #{tmp 10795}#
+ (if #{tmp 29619}#
(@apply
- (lambda (#{x 10797}#)
- (let ((#{tmp 10801}# (map #{emit 10612}# #{x 10797}#)))
- (let ((#{tmp 10802}#
- ($sc-dispatch #{tmp 10801}# 'each-any)))
- (if #{tmp 10802}#
+ (lambda (#{x 29623}#)
+ (let ((#{tmp 29624}# (map #{emit 29172}# #{x 29623}#)))
+ (let ((#{tmp 29625}#
+ ($sc-dispatch #{tmp 29624}# 'each-any)))
+ (if #{tmp 29625}#
(@apply
- (lambda (#{ g10798 10804}#)
+ (lambda (#{ g29095 29627}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10798}#)
- #((m10799 top))
- #("i10803"))
- #(ribcage #(x) #((top)) #("i10796"))
+ #(#{ g29095}#)
+ #((m29096 top))
+ #("i29100"))
+ #(ribcage #(x) #((top)) #("i29093"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10790"))
+ #(ribcage #(x) #((top)) #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31281,70 +40730,70 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{ g10798 10804}#))
- #{tmp 10802}#)
+ #{ g29095 29627}#))
+ #{tmp 29625}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10801}#)))))
- #{tmp 10795}#)
- (let ((#{tmp 10807}#
+ #{tmp 29624}#)))))
+ #{tmp 29619}#)
+ (let ((#{tmp 29628}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 10807}#
+ (if #{tmp 29628}#
(@apply
- (lambda (#{x 10810}# #{y 10811}#)
+ (lambda (#{x 29632}# #{y 29633}#)
(letrec*
- ((#{f 10814}#
- (lambda (#{x* 10815}#)
- (if (null? #{x* 10815}#)
- (#{emit 10612}# #{y 10811}#)
- (let ((#{tmp 10821}#
- (list (#{emit 10612}#
- (car #{x* 10815}#))
- (#{f 10814}#
- (cdr #{x* 10815}#)))))
- (let ((#{tmp 10822}#
+ ((#{f 29634}#
+ (lambda (#{x* 29637}#)
+ (if (null? #{x* 29637}#)
+ (#{emit 29172}# #{y 29633}#)
+ (let ((#{tmp 29638}#
+ (list (#{emit 29172}#
+ (car #{x* 29637}#))
+ (#{f 29634}#
+ (cdr #{x* 29637}#)))))
+ (let ((#{tmp 29639}#
($sc-dispatch
- #{tmp 10821}#
+ #{tmp 29638}#
'(any any))))
- (if #{tmp 10822}#
+ (if #{tmp 29639}#
(@apply
- (lambda (#{ g10818 10825}#
- #{ g10817 10826}#)
+ (lambda (#{ g29115 29641}#
+ #{ g29114 29642}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10818}#
- #{ g10817}#)
- #((m10819 top)
- (m10819 top))
- #("i10823" "i10824"))
+ #(#{ g29115}#
+ #{ g29114}#)
+ #((m29116 top)
+ (m29116 top))
+ #("i29120" "i29121"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i10812" "i10813"))
+ #("i29109" "i29110"))
#(ribcage
#(x y)
#((top) (top))
- #("i10808" "i10809"))
+ #("i29105" "i29106"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10790"))
+ #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31359,56 +40808,56 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{ g10818 10825}#
- #{ g10817 10826}#))
- #{tmp 10822}#)
+ #{ g29115 29641}#
+ #{ g29114 29642}#))
+ #{tmp 29639}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 10821}#))))))))
- (#{f 10814}# #{x 10810}#)))
- #{tmp 10807}#)
- (let ((#{tmp 10827}#
+ #{tmp 29638}#))))))))
+ (#{f 29634}# #{x 29632}#)))
+ #{tmp 29628}#)
+ (let ((#{tmp 29643}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "append") . each-any))))
- (if #{tmp 10827}#
+ (if #{tmp 29643}#
(@apply
- (lambda (#{x 10829}#)
- (let ((#{tmp 10833}#
- (map #{emit 10612}# #{x 10829}#)))
- (let ((#{tmp 10834}#
+ (lambda (#{x 29647}#)
+ (let ((#{tmp 29648}#
+ (map #{emit 29172}# #{x 29647}#)))
+ (let ((#{tmp 29649}#
($sc-dispatch
- #{tmp 10833}#
+ #{tmp 29648}#
'each-any)))
- (if #{tmp 10834}#
+ (if #{tmp 29649}#
(@apply
- (lambda (#{ g10830 10836}#)
+ (lambda (#{ g29127 29651}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10830}#)
- #((m10831 top))
- #("i10835"))
+ #(#{ g29127}#)
+ #((m29128 top))
+ #("i29132"))
#(ribcage
#(x)
#((top))
- #("i10828"))
+ #("i29125"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10790"))
+ #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31423,54 +40872,54 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{ g10830 10836}#))
- #{tmp 10834}#)
+ #{ g29127 29651}#))
+ #{tmp 29649}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 10833}#)))))
- #{tmp 10827}#)
- (let ((#{tmp 10839}#
+ #{tmp 29648}#)))))
+ #{tmp 29643}#)
+ (let ((#{tmp 29652}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "vector") . each-any))))
- (if #{tmp 10839}#
+ (if #{tmp 29652}#
(@apply
- (lambda (#{x 10841}#)
- (let ((#{tmp 10845}#
- (map #{emit 10612}# #{x 10841}#)))
- (let ((#{tmp 10846}#
+ (lambda (#{x 29656}#)
+ (let ((#{tmp 29657}#
+ (map #{emit 29172}# #{x 29656}#)))
+ (let ((#{tmp 29658}#
($sc-dispatch
- #{tmp 10845}#
+ #{tmp 29657}#
'each-any)))
- (if #{tmp 10846}#
+ (if #{tmp 29658}#
(@apply
- (lambda (#{ g10842 10848}#)
+ (lambda (#{ g29139 29660}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10842}#)
- #((m10843 top))
- #("i10847"))
+ #(#{ g29139}#)
+ #((m29140 top))
+ #("i29144"))
#(ribcage
#(x)
#((top))
- #("i10840"))
+ #("i29137"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10790"))
+ #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31485,47 +40934,47 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{ g10842 10848}#))
- #{tmp 10846}#)
+ #{ g29139 29660}#))
+ #{tmp 29658}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 10845}#)))))
- #{tmp 10839}#)
- (let ((#{tmp 10851}#
+ #{tmp 29657}#)))))
+ #{tmp 29652}#)
+ (let ((#{tmp 29661}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "list->vector") any))))
- (if #{tmp 10851}#
+ (if #{tmp 29661}#
(@apply
- (lambda (#{x 10853}#)
- (let ((#{tmp 10857}#
- (#{emit 10612}# #{x 10853}#)))
+ (lambda (#{x 29665}#)
+ (let ((#{tmp 29666}#
+ (#{emit 29172}# #{x 29665}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10854}#)
- #((m10855 top))
- #("i10858"))
+ #(#{ g29151}#)
+ #((m29152 top))
+ #("i29155"))
#(ribcage
#(x)
#((top))
- #("i10852"))
+ #("i29149"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10790"))
+ #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31540,187 +40989,188 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10857}#)))
- #{tmp 10851}#)
- (let ((#{tmp 10860}#
+ #{tmp 29666}#)))
+ #{tmp 29661}#)
+ (let ((#{tmp 29669}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "value") any))))
- (if #{tmp 10860}#
+ (if #{tmp 29669}#
(@apply
- (lambda (#{x 10862}#) #{x 10862}#)
- #{tmp 10860}#)
+ (lambda (#{x 29673}#) #{x 29673}#)
+ #{tmp 29669}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{x 10789}#))))))))))))))))))
- (lambda (#{x 10863}#)
- (let ((#{tmp 10866}#
- ($sc-dispatch #{x 10863}# '(_ any))))
- (if #{tmp 10866}#
+ #{x 29612}#))))))))))))))))))
+ (lambda (#{x 29173}#)
+ (let ((#{tmp 29175}#
+ ($sc-dispatch #{x 29173}# '(_ any))))
+ (if #{tmp 29175}#
(@apply
- (lambda (#{e 10868}#)
- (#{emit 10612}# (#{quasi 10600}# #{e 10868}# 0)))
- #{tmp 10866}#)
+ (lambda (#{e 29179}#)
+ (#{emit 29172}# (#{quasi 29166}# #{e 29179}# 0)))
+ #{tmp 29175}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10863}#)))))))
+ #{x 29173}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 10939}#)
- (let ((#{tmp 10956}#
- ($sc-dispatch #{x 10939}# '(any any))))
- (if #{tmp 10956}#
- (@apply
- (lambda (#{k 10959}# #{filename 10960}#)
- (let ((#{fn 10962}# (syntax->datum #{filename 10960}#)))
- (let ((#{tmp 10964}#
- ((lambda (#{fn 10943}# #{k 10944}#)
- (let ((#{p 10948}# (open-input-file #{fn 10943}#)))
- (letrec*
- ((#{f 10952}#
- (lambda (#{x 10953}# #{result 10954}#)
- (if (eof-object? #{x 10953}#)
- (begin
- (close-input-port #{p 10948}#)
- (reverse #{result 10954}#))
- (#{f 10952}#
- (read #{p 10948}#)
- (cons (datum->syntax
- #{k 10944}#
- #{x 10953}#)
- #{result 10954}#))))))
- (#{f 10952}# (read #{p 10948}#) '()))))
- #{fn 10962}#
- #{filename 10960}#)))
- (let ((#{tmp 10965}#
- ($sc-dispatch #{tmp 10964}# 'each-any)))
- (if #{tmp 10965}#
- (@apply
- (lambda (#{exp 10967}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i10966"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i10961"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i10957" "i10958"))
- #(ribcage (read-file) ((top)) ("i10941"))
- #(ribcage #(x) #((top)) #("i10940")))
- (hygiene guile))
- #{exp 10967}#))
- #{tmp 10965}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 10964}#))))))
- #{tmp 10956}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{x 10939}#))))))
+ (lambda (#{x 29728}#)
+ (letrec*
+ ((#{read-file 29729}#
+ (lambda (#{fn 29840}# #{k 29841}#)
+ (let ((#{p 29842}# (open-input-file #{fn 29840}#)))
+ (letrec*
+ ((#{f 29843}#
+ (lambda (#{x 29897}# #{result 29898}#)
+ (if (eof-object? #{x 29897}#)
+ (begin
+ (close-input-port #{p 29842}#)
+ (reverse #{result 29898}#))
+ (#{f 29843}#
+ (read #{p 29842}#)
+ (cons (datum->syntax #{k 29841}# #{x 29897}#)
+ #{result 29898}#))))))
+ (#{f 29843}# (read #{p 29842}#) '()))))))
+ (let ((#{tmp 29731}#
+ ($sc-dispatch #{x 29728}# '(any any))))
+ (if #{tmp 29731}#
+ (@apply
+ (lambda (#{k 29735}# #{filename 29736}#)
+ (let ((#{fn 29737}# (syntax->datum #{filename 29736}#)))
+ (let ((#{tmp 29738}#
+ (#{read-file 29729}#
+ #{fn 29737}#
+ #{filename 29736}#)))
+ (let ((#{tmp 29739}#
+ ($sc-dispatch #{tmp 29738}# 'each-any)))
+ (if #{tmp 29739}#
+ (@apply
+ (lambda (#{exp 29757}#)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(exp) #((top)) #("i29725"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(fn) #((top)) #("i29720"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
+ #("i29716" "i29717"))
+ #(ribcage (read-file) ((top)) ("i29700"))
+ #(ribcage #(x) #((top)) #("i29699")))
+ (hygiene guile))
+ #{exp 29757}#))
+ #{tmp 29739}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 29738}#))))))
+ #{tmp 29731}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 29728}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 11064}#)
- (let ((#{tmp 11067}#
- ($sc-dispatch #{x 11064}# '(any any))))
- (if #{tmp 11067}#
+ (lambda (#{x 29917}#)
+ (let ((#{tmp 29919}#
+ ($sc-dispatch #{x 29917}# '(any any))))
+ (if #{tmp 29919}#
(@apply
- (lambda (#{k 11070}# #{filename 11071}#)
- (let ((#{fn 11073}# (syntax->datum #{filename 11071}#)))
- (let ((#{tmp 11075}#
+ (lambda (#{k 29923}# #{filename 29924}#)
+ (let ((#{fn 29925}# (syntax->datum #{filename 29924}#)))
+ (let ((#{tmp 29926}#
(datum->syntax
- #{filename 11071}#
- (let ((#{t 11080}# (%search-load-path #{fn 11073}#)))
- (if #{t 11080}#
- #{t 11080}#
+ #{filename 29924}#
+ (let ((#{t 29929}# (%search-load-path #{fn 29925}#)))
+ (if #{t 29929}#
+ #{t 29929}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 11064}#
- #{filename 11071}#))))))
+ #{x 29917}#
+ #{filename 29924}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i11076"))
+ #(ribcage #(fn) #((top)) #("i29911"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i11072"))
+ #(ribcage #(fn) #((top)) #("i29907"))
#(ribcage
#(k filename)
#((top) (top))
- #("i11068" "i11069"))
+ #("i29903" "i29904"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11065")))
+ #(ribcage #(x) #((top)) #("i29900")))
(hygiene guile))
- #{tmp 11075}#))))
- #{tmp 11067}#)
+ #{tmp 29926}#))))
+ #{tmp 29919}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 11064}#))))))
+ #{x 29917}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 11082}#)
+ (lambda (#{x 29938}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 11082}#))))
+ #{x 29938}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 11084}#)
+ (lambda (#{x 29941}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 11084}#))))
+ #{x 29941}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 11086}#)
- (let ((#{tmp 11089}#
+ (lambda (#{x 29997}#)
+ (let ((#{tmp 29999}#
($sc-dispatch
- #{x 11086}#
+ #{x 29997}#
'(_ any any . each-any))))
- (if #{tmp 11089}#
+ (if #{tmp 29999}#
(@apply
- (lambda (#{e 11093}# #{m1 11094}# #{m2 11095}#)
- (let ((#{tmp 11097}#
+ (lambda (#{e 30003}# #{m1 30004}# #{m2 30005}#)
+ (let ((#{tmp 30006}#
(letrec*
- ((#{f 11103}#
- (lambda (#{clause 11104}# #{clauses 11105}#)
- (if (null? #{clauses 11105}#)
- (let ((#{tmp 11108}#
+ ((#{f 30052}#
+ (lambda (#{clause 30055}# #{clauses 30056}#)
+ (if (null? #{clauses 30056}#)
+ (let ((#{tmp 30058}#
($sc-dispatch
- #{clause 11104}#
+ #{clause 30055}#
'(#(free-id
#(syntax-object
else
@@ -31729,91 +41179,91 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 11108}#
+ (if #{tmp 30058}#
(@apply
- (lambda (#{e1 11111}# #{e2 11112}#)
+ (lambda (#{e1 30062}# #{e2 30063}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i11109" "i11110"))
+ #("i29965" "i29966"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
- (cons #{e1 11111}# #{e2 11112}#)))
- #{tmp 11108}#)
- (let ((#{tmp 11114}#
+ (cons #{e1 30062}# #{e2 30063}#)))
+ #{tmp 30058}#)
+ (let ((#{tmp 30064}#
($sc-dispatch
- #{clause 11104}#
+ #{clause 30055}#
'(each-any any . each-any))))
- (if #{tmp 11114}#
+ (if #{tmp 30064}#
(@apply
- (lambda (#{k 11118}#
- #{e1 11119}#
- #{e2 11120}#)
+ (lambda (#{k 30068}#
+ #{e1 30069}#
+ #{e2 30070}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -31823,9 +41273,9 @@
#((top)
(top)
(top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage () () ())
#(ribcage
#(f
@@ -31834,22 +41284,22 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
'#(syntax-object
t
@@ -31859,9 +41309,9 @@
#((top)
(top)
(top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage () () ())
#(ribcage
#(f
@@ -31870,22 +41320,22 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -31895,9 +41345,9 @@
#((top)
(top)
(top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage
()
()
@@ -31909,17 +41359,17 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage
()
()
@@ -31927,10 +41377,10 @@
#(ribcage
#(x)
#((top))
-
#("i11087")))
+
#("i29943")))
(hygiene
guile))
- #{k 11118}#))
+ #{k 30068}#))
(cons '#(syntax-object
begin
((top)
@@ -31939,9 +41389,9 @@
#((top)
(top)
(top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage () () ())
#(ribcage
#(f
@@ -31950,76 +41400,76 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
- (cons #{e1 11119}#
- #{e2 11120}#))))
- #{tmp 11114}#)
+ (cons #{e1 30069}#
+ #{e2 30070}#))))
+ #{tmp 30064}#)
(syntax-violation
'case
"bad clause"
- #{x 11086}#
- #{clause 11104}#)))))
- (let ((#{tmp 11126}#
- (#{f 11103}#
- (car #{clauses 11105}#)
- (cdr #{clauses 11105}#))))
- (let ((#{tmp 11130}#
+ #{x 29997}#
+ #{clause 30055}#)))))
+ (let ((#{tmp 30078}#
+ (#{f 30052}#
+ (car #{clauses 30056}#)
+ (cdr #{clauses 30056}#))))
+ (let ((#{tmp 30081}#
($sc-dispatch
- #{clause 11104}#
+ #{clause 30055}#
'(each-any any . each-any))))
- (if #{tmp 11130}#
+ (if #{tmp 30081}#
(@apply
- (lambda (#{k 11134}#
- #{e1 11135}#
- #{e2 11136}#)
+ (lambda (#{k 30085}#
+ #{e1 30086}#
+ #{e2 30087}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -32027,32 +41477,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
'#(syntax-object
t
@@ -32060,32 +41510,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -32095,9 +41545,9 @@
#((top)
(top)
(top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage
()
()
@@ -32105,7 +41555,7 @@
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage
()
()
@@ -32117,17 +41567,17 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage
()
()
@@ -32135,231 +41585,232 @@
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
- #{k 11134}#))
+ #{k 30085}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
- (cons #{e1 11135}#
- #{e2 11136}#))
- #{tmp 11126}#))
- #{tmp 11130}#)
+ (cons #{e1 30086}#
+ #{e2 30087}#))
+ #{tmp 30078}#))
+ #{tmp 30081}#)
(syntax-violation
'case
"bad clause"
- #{x 11086}#
- #{clause 11104}#))))))))
- (#{f 11103}# #{m1 11094}# #{m2 11095}#))))
- (list '#(syntax-object
- let
- ((top)
- #(ribcage () () ())
- #(ribcage #(body) #((top)) #("i11098"))
- #(ribcage
- #(e m1 m2)
- #((top) (top) (top))
- #("i11090" "i11091" "i11092"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11087")))
- (hygiene guile))
- (list (list '#(syntax-object
- t
- ((top)
- #(ribcage () () ())
- #(ribcage #(body) #((top)) #("i11098"))
- #(ribcage
- #(e m1 m2)
- #((top) (top) (top))
- #("i11090" "i11091" "i11092"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11087")))
- (hygiene guile))
- #{e 11093}#))
- #{tmp 11097}#)))
- #{tmp 11089}#)
+ #{x 29997}#
+ #{clause 30055}#))))))))
+ (#{f 30052}# #{m1 30004}# #{m2 30005}#))))
+ (let ((#{body 30007}# #{tmp 30006}#))
+ (list '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(body) #((top)) #("i29954"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i29946" "i29947" "i29948"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i29943")))
+ (hygiene guile))
+ (list (list '#(syntax-object
+ t
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(body) #((top)) #("i29954"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i29946" "i29947" "i29948"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i29943")))
+ (hygiene guile))
+ #{e 30003}#))
+ #{body 30007}#))))
+ #{tmp 29999}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 11086}#))))))
+ #{x 29997}#))))))
(define make-variable-transformer
- (lambda (#{proc 11142}#)
- (if (procedure? #{proc 11142}#)
+ (lambda (#{proc 30105}#)
+ (if (procedure? #{proc 30105}#)
(letrec*
- ((#{trans 11145}#
- (lambda (#{x 11146}#)
- (#{proc 11142}# #{x 11146}#))))
+ ((#{trans 30106}#
+ (lambda (#{x 30112}#)
+ (#{proc 30105}# #{x 30112}#))))
(begin
(set-procedure-property!
- #{trans 11145}#
+ #{trans 30106}#
'variable-transformer
#t)
- #{trans 11145}#))
+ #{trans 30106}#))
(error "variable transformer not a procedure"
- #{proc 11142}#))))
+ #{proc 30105}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 11152}#)
- (let ((#{tmp 11155}#
- ($sc-dispatch #{x 11152}# '(_ any))))
- (if #{tmp 11155}#
+ (lambda (#{x 30144}#)
+ (let ((#{tmp 30146}#
+ ($sc-dispatch #{x 30144}# '(_ any))))
+ (if #{tmp 30146}#
(@apply
- (lambda (#{e 11157}#)
+ (lambda (#{e 30150}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
- #{e 11157}#))
+ #{e 30150}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
- (cons #{e 11157}#
+ (cons #{e 30150}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i11156"))
+ #("i30119"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
#(syntax-object
...
@@ -32367,55 +41818,55 @@
#(ribcage
#(e)
#((top))
- #("i11156"))
+ #("i30119"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile)))))))))
- #{tmp 11155}#)
- (let ((#{tmp 11158}#
+ #{tmp 30146}#)
+ (let ((#{tmp 30151}#
($sc-dispatch
- #{x 11152}#
+ #{x 30144}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 11158}#
+ (if (if #{tmp 30151}#
(@apply
- (lambda (#{id 11164}#
- #{exp1 11165}#
- #{var 11166}#
- #{val 11167}#
- #{exp2 11168}#)
- (if (identifier? #{id 11164}#)
- (identifier? #{var 11166}#)
+ (lambda (#{id 30155}#
+ #{exp1 30156}#
+ #{var 30157}#
+ #{val 30158}#
+ #{exp2 30159}#)
+ (if (identifier? #{id 30155}#)
+ (identifier? #{var 30157}#)
#f))
- #{tmp 11158}#)
+ #{tmp 30151}#)
#f)
(@apply
- (lambda (#{id 11176}#
- #{exp1 11177}#
- #{var 11178}#
- #{val 11179}#
- #{exp2 11180}#)
+ (lambda (#{id 30160}#
+ #{exp1 30161}#
+ #{var 30162}#
+ #{val 30163}#
+ #{exp2 30164}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171" "i11172" "i11173" "i11174" "i11175"))
+ #("i30134" "i30135" "i30136" "i30137" "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -32423,13 +41874,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'(#(syntax-object
x
@@ -32437,13 +41888,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -32451,13 +41902,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
.
#(syntax-object
@@ -32466,13 +41917,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -32480,13 +41931,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'#(syntax-object
x
@@ -32494,13 +41945,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'(#(syntax-object
set!
@@ -32508,13 +41959,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -32526,19 +41977,19 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- #{var 11178}#
- #{val 11179}#)
+ #{var 30162}#
+ #{val 30163}#)
(list '#(syntax-object
syntax
((top)
@@ -32549,19 +42000,19 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- #{exp2 11180}#))
- (list (cons #{id 11176}#
+ #{exp2 30164}#))
+ (list (cons #{id 30160}#
'(#(syntax-object
x
((top)
@@ -32572,16 +42023,16 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
#(syntax-object
...
@@ -32593,16 +42044,16 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -32614,18 +42065,18 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- (cons #{exp1 11177}#
+ (cons #{exp1 30161}#
'(#(syntax-object
x
((top)
@@ -32640,16 +42091,16 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
#(syntax-object
...
@@ -32665,18 +42116,18 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))))))
- (list #{id 11176}#
+ (list #{id 30160}#
(list '#(syntax-object
identifier?
((top)
@@ -32687,16 +42138,16 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -32712,18 +42163,18 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- #{id 11176}#))
+ #{id 30160}#))
(list '#(syntax-object
syntax
((top)
@@ -32734,68 +42185,68 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- #{exp1 11177}#))))))
- #{tmp 11158}#)
+ #{exp1 30161}#))))))
+ #{tmp 30151}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 11152}#))))))))
+ #{x 30144}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 11181}#)
- (let ((#{tmp 11184}#
+ (lambda (#{x 30196}#)
+ (let ((#{tmp 30198}#
($sc-dispatch
- #{x 11181}#
+ #{x 30196}#
'(_ (any . any) any . each-any))))
- (if #{tmp 11184}#
+ (if #{tmp 30198}#
(@apply
- (lambda (#{id 11189}#
- #{args 11190}#
- #{b0 11191}#
- #{b1 11192}#)
+ (lambda (#{id 30202}#
+ #{args 30203}#
+ #{b0 30204}#
+ #{b1 30205}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i11185" "i11186" "i11187" "i11188"))
+ #("i30178" "i30179" "i30180" "i30181"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11182")))
+ #(ribcage #(x) #((top)) #("i30175")))
(hygiene guile))
- #{id 11189}#
+ #{id 30202}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i11185" "i11186" "i11187" "i11188"))
+ #("i30178" "i30179" "i30180" "i30181"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11182")))
+ #(ribcage #(x) #((top)) #("i30175")))
(hygiene guile))
- (cons #{args 11190}#
- (cons #{b0 11191}# #{b1 11192}#)))))
- #{tmp 11184}#)
- (let ((#{tmp 11194}#
- ($sc-dispatch #{x 11181}# '(_ any any))))
- (if (if #{tmp 11194}#
+ (cons #{args 30203}#
+ (cons #{b0 30204}# #{b1 30205}#)))))
+ #{tmp 30198}#)
+ (let ((#{tmp 30206}#
+ ($sc-dispatch #{x 30196}# '(_ any any))))
+ (if (if #{tmp 30206}#
(@apply
- (lambda (#{id 11197}# #{val 11198}#)
+ (lambda (#{id 30210}# #{val 30211}#)
(identifier?
'#(syntax-object
x
@@ -32803,29 +42254,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i11195" "i11196"))
+ #("i30188" "i30189"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11182")))
+ #(ribcage #(x) #((top)) #("i30175")))
(hygiene guile))))
- #{tmp 11194}#)
+ #{tmp 30206}#)
#f)
(@apply
- (lambda (#{id 11201}# #{val 11202}#)
+ (lambda (#{id 30212}# #{val 30213}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i11199" "i11200"))
+ #("i30192" "i30193"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11182")))
+ #(ribcage #(x) #((top)) #("i30175")))
(hygiene guile))
- #{id 11201}#
- #{val 11202}#))
- #{tmp 11194}#)
+ #{id 30212}#
+ #{val 30213}#))
+ #{tmp 30206}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 11181}#))))))))
+ #{x 30196}#))))))))
diff --git a/module/language/tree-il/peval.scm
b/module/language/tree-il/peval.scm
index 8246e47..8091e16 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -46,15 +46,16 @@
;; First, some helpers.
;;
+(define-syntax *logging* (identifier-syntax #f))
+
;; For efficiency we define *logging* to inline to #f, so that the call
-;; to log* gets optimized out. If you want to log, do:
+;; to log* gets optimized out. If you want to log, uncomment these
+;; lines:
;;
-;; (define %logging #f)
-;; (define-syntax *logging* (identifier-syntax %logging)
+;; (define %logging #f)
+;; (define-syntax *logging* (identifier-syntax %logging))
;;
;; Then you can change %logging at runtime.
-;;
-(define-syntax *logging* (identifier-syntax #f))
(define-syntax log
(syntax-rules (quote)
@@ -102,10 +103,6 @@
;; the set of assigned lexicals, and to identify unreferenced and
;; singly-referenced lexicals.
;;
-;; If peval introduces more code, via copy-propagation, it will need to
-;; run `build-var-table' on the new code to add to make sure it can find
-;; a <var> for each gensym bound in the program.
-;;
(define-record-type <var>
(make-var name gensym refcount set?)
var?
@@ -119,22 +116,36 @@
(lambda (exp res)
(match exp
(($ <lexical-ref> src name gensym)
- (let ((var (vhash-assq gensym res)))
- (if var
- (begin
- (set-var-refcount! (cdr var) (1+ (var-refcount (cdr var))))
- res)
- (vhash-consq gensym (make-var name gensym 1 #f) res))))
+ (let ((var (cdr (vhash-assq gensym res))))
+ (set-var-refcount! var (1+ (var-refcount var)))
+ res))
(_ res)))
(lambda (exp res)
(match exp
+ (($ <lambda-case> src req opt rest kw init gensyms body alt)
+ (fold (lambda (name sym res)
+ (vhash-consq sym (make-var name sym 0 #f) res))
+ res
+ (append req (or opt '()) (if rest (list rest) '())
+ (match kw
+ ((aok? (kw name sym) ...) name)
+ (_ '())))
+ gensyms))
+ (($ <let> src names gensyms vals body)
+ (fold (lambda (name sym res)
+ (vhash-consq sym (make-var name sym 0 #f) res))
+ res names gensyms))
+ (($ <letrec> src in-order? names gensyms vals body)
+ (fold (lambda (name sym res)
+ (vhash-consq sym (make-var name sym 0 #f) res))
+ res names gensyms))
+ (($ <fix> src names gensyms vals body)
+ (fold (lambda (name sym res)
+ (vhash-consq sym (make-var name sym 0 #f) res))
+ res names gensyms))
(($ <lexical-set> src name gensym exp)
- (let ((var (vhash-assq gensym res)))
- (if var
- (begin
- (set-var-set?! (cdr var) #t)
- res)
- (vhash-consq gensym (make-var name gensym 0 #t) res))))
+ (set-var-set?! (cdr (vhash-assq gensym res)) #t)
+ res)
(_ res)))
(lambda (exp res) res)
table exp))
@@ -179,7 +190,7 @@
(effort effort-counter)
(size size-counter)
(continuation counter-continuation)
- (recursive? counter-recursive?)
+ (recursive? counter-recursive? set-counter-recursive?!)
(data counter-data)
(prev counter-prev))
@@ -245,6 +256,65 @@
(transfer! current c effort-limit size-limit)
c))
+;; Operand structures allow bindings to be processed lazily instead of
+;; eagerly. By doing so, hopefully we can get process them in a way
+;; appropriate to their use contexts. Operands also prevent values from
+;; being visited multiple times, wasting effort.
+;;
+;; TODO: Record value size in operand structure?
+;;
+(define-record-type <operand>
+ (%make-operand var sym visit source visit-count residualize?
+ copyable? residual-value constant-value)
+ operand?
+ (var operand-var)
+ (sym operand-sym)
+ (visit %operand-visit)
+ (source operand-source)
+ (visit-count operand-visit-count set-operand-visit-count!)
+ (residualize? operand-residualize? set-operand-residualize?!)
+ (copyable? operand-copyable? set-operand-copyable?!)
+ (residual-value operand-residual-value set-operand-residual-value!)
+ (constant-value operand-constant-value set-operand-constant-value!))
+
+(define* (make-operand var sym #:optional source visit)
+ ;; Bound operands are considered copyable until we prove otherwise.
+ (%make-operand var sym visit source 0 #f (and source #t) #f #f))
+
+(define (make-bound-operands vars syms sources visit)
+ (map (lambda (x y z) (make-operand x y z visit)) vars syms sources))
+
+(define (make-unbound-operands vars syms)
+ (map make-operand vars syms))
+
+(define* (visit-operand op counter ctx #:optional effort-limit size-limit)
+ ;; Peval is O(N) in call sites of the source program. However,
+ ;; visiting an operand can introduce new call sites. If we visit an
+ ;; operand outside a counter -- i.e., outside an inlining attempt --
+ ;; this can lead to divergence. So, if we are visiting an operand to
+ ;; try to copy it, and there is no counter, make a new one.
+ ;;
+ ;; This will only happen at most as many times as there are lexical
+ ;; references in the source program.
+ (and (zero? (operand-visit-count op))
+ (dynamic-wind
+ (lambda ()
+ (set-operand-visit-count! op (1+ (operand-visit-count op))))
+ (lambda ()
+ (and (operand-source op)
+ (if (or counter (and (not effort-limit) (not size-limit)))
+ ((%operand-visit op) (operand-source op) counter ctx)
+ (let/ec k
+ (define (abort) (k #f))
+ ((%operand-visit op)
+ (operand-source op)
+ (make-top-counter effort-limit size-limit abort op)
+ ctx)))))
+ (lambda ()
+ (set-operand-visit-count! op (1- (operand-visit-count op)))))))
+
+;; A helper for constant folding.
+;;
(define (types-check? primitive-name args)
(case primitive-name
((values) #t)
@@ -255,127 +325,6 @@
;; FIXME: add more cases?
(else #f)))
-(define (fresh-gensyms syms)
- (map (lambda (x) (gensym (string-append (symbol->string x) " ")))
- syms))
-
-;; Copy propagation of terms that bind variables, like `lambda' terms,
-;; will need to bind fresh variables. This procedure renames all the
-;; lexicals in a term.
-;;
-(define (alpha-rename exp)
- "Alpha-rename EXP. For any lambda in EXP, generate new symbols and
-replace all lexical references to the former symbols with lexical
-references to the new symbols."
- ;; XXX: This should be factorized somehow.
- (let loop ((exp exp)
- (mapping vlist-null)) ; maps old to new gensyms
- (match exp
- (($ <lambda-case> src req opt rest kw inits gensyms body alt)
- ;; Create new symbols to replace GENSYMS and propagate them down
- ;; in BODY and ALT.
- (let* ((new (fresh-gensyms
- (append req
- (or opt '())
- (if rest (list rest) '())
- (match kw
- ((aok? (_ name _) ...) name)
- (_ '())))))
- (mapping (fold vhash-consq mapping gensyms new)))
- (make-lambda-case src req opt rest
- (match kw
- ((aok? (kw name old) ...)
- (cons aok? (map list
- kw
- name
- (take-right new (length old)))))
- (_ #f))
- (map (cut loop <> mapping) inits)
- new
- (loop body mapping)
- (and alt (loop alt mapping)))))
- (($ <lexical-ref> src name gensym)
- ;; Possibly replace GENSYM by the new gensym defined in MAPPING.
- (let ((val (vhash-assq gensym mapping)))
- (if val
- (make-lexical-ref src name (cdr val))
- exp)))
- (($ <lexical-set> src name gensym exp)
- (let ((val (vhash-assq gensym mapping)))
- (make-lexical-set src name (if val (cdr val) gensym)
- (loop exp mapping))))
- (($ <lambda> src meta body)
- (make-lambda src meta (loop body mapping)))
- (($ <let> src names gensyms vals body)
- ;; As for `lambda-case' rename GENSYMS to avoid any collision.
- (let* ((new (fresh-gensyms names))
- (mapping (fold vhash-consq mapping gensyms new))
- (vals (map (cut loop <> mapping) vals))
- (body (loop body mapping)))
- (make-let src names new vals body)))
- (($ <letrec> src in-order? names gensyms vals body)
- ;; Likewise.
- (let* ((new (fresh-gensyms names))
- (mapping (fold vhash-consq mapping gensyms new))
- (vals (map (cut loop <> mapping) vals))
- (body (loop body mapping)))
- (make-letrec src in-order? names new vals body)))
- (($ <fix> src names gensyms vals body)
- ;; Likewise.
- (let* ((new (fresh-gensyms names))
- (mapping (fold vhash-consq mapping gensyms new))
- (vals (map (cut loop <> mapping) vals))
- (body (loop body mapping)))
- (make-fix src names new vals body)))
- (($ <let-values> src exp body)
- (make-let-values src (loop exp mapping) (loop body mapping)))
- (($ <const>)
- exp)
- (($ <void>)
- exp)
- (($ <toplevel-ref>)
- exp)
- (($ <module-ref>)
- exp)
- (($ <primitive-ref>)
- exp)
- (($ <toplevel-set> src name exp)
- (make-toplevel-set src name (loop exp mapping)))
- (($ <toplevel-define> src name exp)
- (make-toplevel-define src name (loop exp mapping)))
- (($ <module-set> src mod name public? exp)
- (make-module-set src mod name public? (loop exp mapping)))
- (($ <dynlet> src fluids vals body)
- (make-dynlet src
- (map (cut loop <> mapping) fluids)
- (map (cut loop <> mapping) vals)
- (loop body mapping)))
- (($ <dynwind> src winder body unwinder)
- (make-dynwind src
- (loop winder mapping)
- (loop body mapping)
- (loop unwinder mapping)))
- (($ <dynref> src fluid)
- (make-dynref src (loop fluid mapping)))
- (($ <dynset> src fluid exp)
- (make-dynset src (loop fluid mapping) (loop exp mapping)))
- (($ <conditional> src condition subsequent alternate)
- (make-conditional src
- (loop condition mapping)
- (loop subsequent mapping)
- (loop alternate mapping)))
- (($ <application> src proc args)
- (make-application src (loop proc mapping)
- (map (cut loop <> mapping) args)))
- (($ <sequence> src exps)
- (make-sequence src (map (cut loop <> mapping) exps)))
- (($ <prompt> src tag body handler)
- (make-prompt src (loop tag mapping) (loop body mapping)
- (loop handler mapping)))
- (($ <abort> src tag args tail)
- (make-abort src (loop tag mapping) (map (cut loop <> mapping) args)
- (loop tail mapping))))))
-
(define* (peval exp #:optional (cenv (current-module)) (env vlist-null)
#:key
(operator-size-limit 40)
@@ -420,21 +369,32 @@ top-level bindings from ENV and return the resulting
expression."
;;
(define store (build-var-table exp))
- (define (assigned-lexical? sym)
+ (define (record-new-temporary! name sym refcount)
+ (set! store (vhash-consq sym (make-var name sym refcount #f) store)))
+
+ (define (lookup-var sym)
(let ((v (vhash-assq sym store)))
- (and v (var-set? (cdr v)))))
+ (if v (cdr v) (error "unbound var" sym (vlist->list store)))))
+
+ (define (fresh-gensyms vars)
+ (map (lambda (var)
+ (let ((new (gensym (string-append (symbol->string (var-name var))
+ " "))))
+ (set! store (vhash-consq new var store))
+ new))
+ vars))
+
+ (define (assigned-lexical? sym)
+ (var-set? (lookup-var sym)))
(define (lexical-refcount sym)
- (let ((v (vhash-assq sym store)))
- (if v (var-refcount (cdr v)) 0)))
+ (var-refcount (lookup-var sym)))
;; ORIG has been alpha-renamed to NEW. Analyze NEW and record a link
;; from it to ORIG.
;;
(define (record-source-expression! orig new)
- (set! store (vhash-consq new
- (source-expression orig)
- (build-var-table new store)))
+ (set! store (vhash-consq new (source-expression orig) store))
new)
;; Find the source expression corresponding to NEW. Used to detect
@@ -444,10 +404,12 @@ top-level bindings from ENV and return the resulting
expression."
(let ((x (vhash-assq new store)))
(if x (cdr x) new)))
- (define residual-lexical-references (make-hash-table))
-
- (define (record-residual-lexical-reference! sym)
- (hashq-set! residual-lexical-references sym #t))
+ (define* (residualize-lexical op #:optional ctx val)
+ (log 'residualize op)
+ (set-operand-residualize?! op #t)
+ (if (eq? ctx 'value)
+ (set-operand-residual-value! op val))
+ (make-lexical-ref #f (var-name (operand-var op)) (operand-sym op)))
(define (apply-primitive name args)
;; todo: further optimize commutative primitives
@@ -562,6 +524,7 @@ top-level bindings from ENV and return the resulting
expression."
(($ <application> _ ($ <primitive-ref> _ name) args)
(and (effect-free-primitive? name)
(not (constructor-primitive? name))
+ (not (accessor-primitive? name))
(types-check? name args)
(every loop args)))
(($ <application> _ ($ <lambda> _ _ body) args)
@@ -580,33 +543,81 @@ top-level bindings from ENV and return the resulting
expression."
(and (loop tag) (loop body) (loop handler)))
(_ #f))))
- (define (prune-bindings names syms vals body for-effect
- build-result)
- (let lp ((names names) (syms syms) (vals vals)
- (names* '()) (syms* '()) (vals* '())
- (effects '()))
- (match (list names syms vals)
- ((() () ())
- (let ((body (if (null? effects)
- body
- (make-sequence #f (reverse (cons body effects))))))
- (if (null? names*)
+ (define (prune-bindings ops in-order? body counter ctx build-result)
+ ;; This helper handles both `let' and `letrec'/`fix'. In the latter
+ ;; cases we need to make sure that if referenced binding A needs
+ ;; as-yet-unreferenced binding B, that B is processed for value.
+ ;; Likewise if C, when processed for effect, needs otherwise
+ ;; unreferenced D, then D needs to be processed for value too.
+ ;;
+ (define (referenced? op)
+ ;; When we visit lambdas in operator context, we just copy them,
+ ;; as we will process their body later. However this does have
+ ;; the problem that any free var referenced by the lambda is not
+ ;; marked as needing residualization. Here we hack around this
+ ;; and treat all bindings as referenced if we are in operator
+ ;; context.
+ (or (eq? ctx 'operator) (operand-residualize? op)))
+
+ ;; values := (op ...)
+ ;; effects := (op ...)
+ (define (residualize values effects)
+ ;; Note, values and effects are reversed.
+ (cond
+ (in-order?
+ (let ((values (filter operand-residual-value ops)))
+ (if (null? values)
body
- (build-result (reverse names*) (reverse syms*)
- (reverse vals*) body))))
- (((name . names) (sym . syms) (val . vals))
- (if (hashq-ref residual-lexical-references sym)
- (lp names syms vals
- (cons name names*) (cons sym syms*) (cons val vals*)
- effects)
- (let ((effect (for-effect val)))
- (lp names syms vals
- names* syms* vals*
- (if (void? effect)
- (begin
- (log 'prune sym)
- effects)
- (cons effect effects)))))))))
+ (build-result (map (compose var-name operand-var) values)
+ (map operand-sym values)
+ (map operand-residual-value values)
+ body))))
+ (else
+ (let ((body
+ (if (null? effects)
+ body
+ (let ((effect-vals (map operand-residual-value effects)))
+ (make-sequence #f (reverse (cons body effect-vals)))))))
+ (if (null? values)
+ body
+ (let ((values (reverse values)))
+ (build-result (map (compose var-name operand-var) values)
+ (map operand-sym values)
+ (map operand-residual-value values)
+ body)))))))
+
+ ;; old := (bool ...)
+ ;; values := (op ...)
+ ;; effects := ((op . value) ...)
+ (let prune ((old (map referenced? ops)) (values '()) (effects '()))
+ (let lp ((ops* ops) (values values) (effects effects))
+ (cond
+ ((null? ops*)
+ (let ((new (map referenced? ops)))
+ (if (not (equal? new old))
+ (prune new values '())
+ (residualize values
+ (map (lambda (op val)
+ (set-operand-residual-value! op val)
+ op)
+ (map car effects) (map cdr effects))))))
+ (else
+ (let ((op (car ops*)))
+ (cond
+ ((memq op values)
+ (lp (cdr ops*) values effects))
+ ((operand-residual-value op)
+ (lp (cdr ops*) (cons op values) effects))
+ ((referenced? op)
+ (set-operand-residual-value! op (visit-operand op counter
'value))
+ (lp (cdr ops*) (cons op values) effects))
+ (else
+ (lp (cdr ops*)
+ values
+ (let ((effect (visit-operand op counter 'effect)))
+ (if (void? effect)
+ effects
+ (acons op effect effects))))))))))))
(define (small-expression? x limit)
(let/ec k
@@ -622,20 +633,25 @@ top-level bindings from ENV and return the resulting
expression."
0 x)
#t))
+ (define (extend-env sym op env)
+ (vhash-consq (operand-sym op) op (vhash-consq sym op env)))
+
(let loop ((exp exp)
- (env vlist-null) ; static environment
+ (env vlist-null) ; vhash of gensym -> <operand>
(counter #f) ; inlined call stack
- (ctx 'value)) ; effect, value, test, operator, or operand
+ (ctx 'value)) ; effect, value, test, operator, or call
(define (lookup var)
- (and=> (vhash-assq var env) cdr))
+ (cond
+ ((vhash-assq var env) => cdr)
+ (else (error "unbound var" var))))
(define (visit exp ctx)
(loop exp env counter ctx))
(define (for-value exp) (visit exp 'value))
- (define (for-operand exp) (visit exp 'operand))
(define (for-test exp) (visit exp 'test))
(define (for-effect exp) (visit exp 'effect))
+ (define (for-call exp) (visit exp 'call))
(define (for-tail exp) (visit exp ctx))
(if counter
@@ -654,102 +670,117 @@ top-level bindings from ENV and return the resulting
expression."
((test) (make-const #f #t))
(else exp)))
(($ <lexical-ref> _ _ gensym)
- (case ctx
- ((effect) (make-void #f))
- (else
- (log 'begin-copy gensym)
- (let ((val (lookup gensym)))
- (cond
- ((or (not val)
- (assigned-lexical? gensym)
- (not (constant-expression? val)))
- ;; Don't copy-propagate through assigned variables,
- ;; and don't reorder effects.
- (log 'unbound-or-not-constant gensym val)
- (record-residual-lexical-reference! gensym)
- exp)
- ((lexical-ref? val)
- (for-tail val))
- ((or (const? val)
- (void? val)
- (primitive-ref? val))
- ;; Always propagate simple values that cannot lead to
- ;; code bloat.
- (log 'copy-simple gensym val)
- (for-tail val))
- ((= 1 (lexical-refcount gensym))
- ;; Always propagate values referenced only once.
- ;; There is no need to rename the bindings, as they
- ;; are only being moved, not copied. However in
- ;; operator context we do rename it, as that
- ;; effectively clears out the residualized-lexical
- ;; flags that may have been set when this value was
- ;; visited previously as an operand.
- (log 'copy-single gensym val)
- (case ctx
- ((test) (for-test val))
- ((operator) (record-source-expression! val (alpha-rename val)))
- (else val)))
- ;; FIXME: do demand-driven size accounting rather than
- ;; these heuristics.
- ((eq? ctx 'operator)
- ;; A pure expression in the operator position. Inline
- ;; if it's a lambda that's small enough.
- (if (and (lambda? val)
- (small-expression? val operator-size-limit))
- (begin
- (log 'copy-operator gensym val)
- (record-source-expression! val (alpha-rename val)))
- (begin
- (log 'too-big-for-operator gensym val)
- (record-residual-lexical-reference! gensym)
- exp)))
- ((eq? ctx 'operand)
- ;; A pure expression in the operand position. Inline
- ;; if it's small enough.
- (if (small-expression? val operand-size-limit)
- (begin
- (log 'copy-operand gensym val)
- (record-source-expression! val (alpha-rename val)))
- (begin
- (log 'too-big-for-operand gensym val)
- (record-residual-lexical-reference! gensym)
- exp)))
- (else
- ;; A pure expression, processed for value. Don't
- ;; inline lambdas, because they will probably won't
- ;; fold because we don't know the operator.
- (if (and (small-expression? val value-size-limit)
- (not (tree-il-any lambda? val)))
- (begin
- (log 'copy-value gensym val)
- (record-source-expression! val (alpha-rename val)))
- (begin
- (log 'too-big-or-has-lambda gensym val)
- (record-residual-lexical-reference! gensym)
- exp))))))))
+ (log 'begin-copy gensym)
+ (let ((op (lookup gensym)))
+ (cond
+ ((eq? ctx 'effect)
+ (log 'lexical-for-effect gensym)
+ (make-void #f))
+ ((eq? ctx 'call)
+ ;; Don't propagate copies if we are residualizing a call.
+ (log 'residualize-lexical-call gensym op)
+ (residualize-lexical op))
+ ((var-set? (operand-var op))
+ ;; Assigned lexicals don't copy-propagate.
+ (log 'assigned-var gensym op)
+ (residualize-lexical op))
+ ((not (operand-copyable? op))
+ ;; We already know that this operand is not copyable.
+ (log 'not-copyable gensym op)
+ (residualize-lexical op))
+ ((and=> (operand-constant-value op)
+ (lambda (x) (or (const? x) (void? x) (primitive-ref? x))))
+ ;; A cache hit.
+ (let ((val (operand-constant-value op)))
+ (log 'memoized-constant gensym val)
+ (for-tail val)))
+ ((visit-operand op counter ctx recursive-effort-limit
operand-size-limit)
+ =>
+ ;; If we end up deciding to residualize this value instead of
+ ;; copying it, save that residualized value.
+ (lambda (val)
+ (cond
+ ((not (constant-expression? val))
+ (log 'not-constant gensym op)
+ ;; At this point, ctx is operator, test, or value. A
+ ;; value that is non-constant in one context will be
+ ;; non-constant in the others, so it's safe to record
+ ;; that here, and avoid future visits.
+ (set-operand-copyable?! op #f)
+ (residualize-lexical op ctx val))
+ ((or (const? val)
+ (void? val)
+ (primitive-ref? val))
+ ;; Always propagate simple values that cannot lead to
+ ;; code bloat.
+ (log 'copy-simple gensym val)
+ ;; It could be this constant is the result of folding.
+ ;; If that is the case, cache it. This helps loop
+ ;; unrolling get farther.
+ (if (eq? ctx 'value)
+ (begin
+ (log 'memoize-constant gensym val)
+ (set-operand-constant-value! op val)))
+ val)
+ ((= 1 (var-refcount (operand-var op)))
+ ;; Always propagate values referenced only once.
+ (log 'copy-single gensym val)
+ val)
+ ;; FIXME: do demand-driven size accounting rather than
+ ;; these heuristics.
+ ((eq? ctx 'operator)
+ ;; A pure expression in the operator position. Inline
+ ;; if it's a lambda that's small enough.
+ (if (and (lambda? val)
+ (small-expression? val operator-size-limit))
+ (begin
+ (log 'copy-operator gensym val)
+ val)
+ (begin
+ (log 'too-big-for-operator gensym val)
+ (residualize-lexical op ctx val))))
+ (else
+ ;; A pure expression, processed for call or for value.
+ ;; Don't inline lambdas, because they will probably won't
+ ;; fold because we don't know the operator.
+ (if (and (small-expression? val value-size-limit)
+ (not (tree-il-any lambda? val)))
+ (begin
+ (log 'copy-value gensym val)
+ val)
+ (begin
+ (log 'too-big-or-has-lambda gensym val)
+ (residualize-lexical op ctx val)))))))
+ (else
+ ;; Visit failed. Either the operand isn't bound, as in
+ ;; lambda formal parameters, or the copy was aborted.
+ (log 'unbound-or-aborted gensym op)
+ (residualize-lexical op)))))
(($ <lexical-set> src name gensym exp)
- (if (zero? (lexical-refcount gensym))
- (let ((exp (for-effect exp)))
- (if (void? exp)
- exp
- (make-sequence src (list exp (make-void #f)))))
- (begin
- (record-residual-lexical-reference! gensym)
- (make-lexical-set src name gensym (for-value exp)))))
+ (let ((op (lookup gensym)))
+ (if (zero? (var-refcount (operand-var op)))
+ (let ((exp (for-effect exp)))
+ (if (void? exp)
+ exp
+ (make-sequence src (list exp (make-void #f)))))
+ (begin
+ (set-operand-residualize?! op #t)
+ (make-lexical-set src name (operand-sym op) (for-value exp))))))
(($ <let> src names gensyms vals body)
- (let* ((vals (map for-operand vals))
- (body (loop body
- (fold vhash-consq env gensyms vals)
- counter
- ctx)))
+ (let* ((vars (map lookup-var gensyms))
+ (new (fresh-gensyms vars))
+ (ops (make-bound-operands vars new vals
+ (lambda (exp counter ctx)
+ (loop exp env counter ctx))))
+ (env (fold extend-env env gensyms ops))
+ (body (loop body env counter ctx)))
(cond
((const? body)
(for-tail (make-sequence src (append vals (list body)))))
((and (lexical-ref? body)
- (memq (lexical-ref-gensym body) gensyms))
+ (memq (lexical-ref-gensym body) new))
(let ((sym (lexical-ref-gensym body))
- (pairs (map cons gensyms vals)))
+ (pairs (map cons new vals)))
;; (let ((x foo) (y bar) ...) x) => (begin bar ... foo)
(for-tail
(make-sequence
@@ -759,35 +790,39 @@ top-level bindings from ENV and return the resulting
expression."
(else
;; Only include bindings for which lexical references
;; have been residualized.
- (prune-bindings names gensyms vals body for-effect
+ (prune-bindings ops #f body counter ctx
(lambda (names gensyms vals body)
(if (null? names) (error "what!" names))
(make-let src names gensyms vals body)))))))
(($ <letrec> src in-order? names gensyms vals body)
- ;; Things could be done more precisely when IN-ORDER? but
- ;; it's OK not to do it---at worst we lost an optimization
- ;; opportunity.
- (let* ((vals (map for-operand vals))
- (body (loop body
- (fold vhash-consq env gensyms vals)
- counter
- ctx)))
- (if (and (const? body)
+ ;; Note the difference from the `let' case: here we use letrec*
+ ;; so that the `visit' procedure for the new operands closes over
+ ;; an environment that includes the operands.
+ (letrec* ((visit (lambda (exp counter ctx)
+ (loop exp env* counter ctx)))
+ (vars (map lookup-var gensyms))
+ (new (fresh-gensyms vars))
+ (ops (make-bound-operands vars new vals visit))
+ (env* (fold extend-env env gensyms ops))
+ (body* (visit body counter ctx)))
+ (if (and (const? body*)
(every constant-expression? vals))
- body
- (prune-bindings names gensyms vals body for-effect
+ body*
+ (prune-bindings ops in-order? body* counter ctx
(lambda (names gensyms vals body)
(make-letrec src in-order?
names gensyms vals body))))))
(($ <fix> src names gensyms vals body)
- (let* ((vals (map for-operand vals))
- (body (loop body
- (fold vhash-consq env gensyms vals)
- counter
- ctx)))
- (if (const? body)
- body
- (prune-bindings names gensyms vals body for-effect
+ (letrec* ((visit (lambda (exp counter ctx)
+ (loop exp env* counter ctx)))
+ (vars (map lookup-var gensyms))
+ (new (fresh-gensyms vars))
+ (ops (make-bound-operands vars new vals visit))
+ (env* (fold extend-env env gensyms ops))
+ (body* (visit body counter ctx)))
+ (if (const? body*)
+ body*
+ (prune-bindings ops #f body* counter ctx
(lambda (names gensyms vals body)
(make-fix src names gensyms vals body))))))
(($ <let-values> lv-src producer consumer)
@@ -816,7 +851,10 @@ top-level bindings from ENV and return the resulting
expression."
(($ <toplevel-ref> src (? effect-free-primitive? name))
(if (local-toplevel? name)
exp
- (resolve-primitives! exp cenv)))
+ (let ((exp (resolve-primitives! exp cenv)))
+ (if (primitive-ref? exp)
+ (for-tail exp)
+ exp))))
(($ <toplevel-ref>)
;; todo: open private local bindings.
exp)
@@ -864,71 +902,109 @@ top-level bindings from ENV and return the resulting
expression."
(($ <application> src orig-proc orig-args)
;; todo: augment the global env with specialized functions
- (let ((proc (loop orig-proc env counter 'operator)))
+ (let ((proc (visit orig-proc 'operator)))
(match proc
(($ <primitive-ref> _ (? constructor-primitive? name))
- (case ctx
- ((effect test)
- (let ((res (if (eq? ctx 'effect)
- (make-void #f)
- (make-const #f #t))))
- (match (for-value exp)
- (($ <application> _ ($ <primitive-ref> _ 'cons) (x xs))
- (for-tail
- (make-sequence src (list x xs res))))
- (($ <application> _ ($ <primitive-ref> _ 'list) elts)
- (for-tail
- (make-sequence src (append elts (list res)))))
- (($ <application> _ ($ <primitive-ref> _ 'vector) elts)
- (for-tail
- (make-sequence src (append elts (list res)))))
- (($ <application> _ ($ <primitive-ref> _ 'make-prompt-tag)
())
- res)
- (($ <application> _ ($ <primitive-ref> _ 'make-prompt-tag)
- (($ <const> _ (? string?))))
- res)
- (exp exp))))
- (else
- (match (cons name (map for-value orig-args))
- (('cons head tail)
- (match tail
- (($ <const> src ())
- (make-application src (make-primitive-ref #f 'list)
- (list head)))
- (($ <application> src ($ <primitive-ref> _ 'list) elts)
- (make-application src (make-primitive-ref #f 'list)
- (cons head elts)))
- (_ (make-application src proc
- (list head tail)))))
-
- ;; FIXME: these for-tail recursions could take
- ;; place outside an effort counter.
- (('car ($ <application> src ($ <primitive-ref> _ 'cons) (head
tail)))
- (for-tail (make-sequence src (list tail head))))
- (('cdr ($ <application> src ($ <primitive-ref> _ 'cons) (head
tail)))
- (for-tail (make-sequence src (list head tail))))
- (('car ($ <application> src ($ <primitive-ref> _ 'list) (head
. tail)))
- (for-tail (make-sequence src (append tail (list head)))))
- (('cdr ($ <application> src ($ <primitive-ref> _ 'list) (head
. tail)))
- (for-tail (make-sequence
- src
- (list head
- (make-application
- src (make-primitive-ref #f 'list) tail)))))
+ (cond
+ ((and (memq ctx '(effect test))
+ (match (cons name orig-args)
+ ((or ('cons _ _)
+ ('list . _)
+ ('vector . _)
+ ('make-prompt-tag)
+ ('make-prompt-tag ($ <const> _ (? string?))))
+ #t)
+ (_ #f)))
+ ;; Some expressions can be folded without visiting the
+ ;; arguments for value.
+ (let ((res (if (eq? ctx 'effect)
+ (make-void #f)
+ (make-const #f #t))))
+ (for-tail (make-sequence src (append orig-args (list res))))))
+ (else
+ (match (cons name (map for-value orig-args))
+ (('cons head tail)
+ (match tail
+ (($ <const> src ())
+ (make-application src (make-primitive-ref #f 'list)
+ (list head)))
+ (($ <application> src ($ <primitive-ref> _ 'list) elts)
+ (make-application src (make-primitive-ref #f 'list)
+ (cons head elts)))
+ (_ (make-application src proc (list head tail)))))
+ ((_ . args)
+ (make-application src proc args))))))
+ (($ <primitive-ref> _ (? accessor-primitive? name))
+ (match (cons name (map for-value orig-args))
+ ;; FIXME: these for-tail recursions could take place outside
+ ;; an effort counter.
+ (('car ($ <application> src ($ <primitive-ref> _ 'cons) (head
tail)))
+ (for-tail (make-sequence src (list tail head))))
+ (('cdr ($ <application> src ($ <primitive-ref> _ 'cons) (head
tail)))
+ (for-tail (make-sequence src (list head tail))))
+ (('car ($ <application> src ($ <primitive-ref> _ 'list) (head .
tail)))
+ (for-tail (make-sequence src (append tail (list head)))))
+ (('cdr ($ <application> src ($ <primitive-ref> _ 'list) (head .
tail)))
+ (for-tail (make-sequence
+ src
+ (list head
+ (make-application
+ src (make-primitive-ref #f 'list) tail)))))
- (('car ($ <const> src (head . tail)))
- (for-tail (make-const src head)))
- (('cdr ($ <const> src (head . tail)))
- (for-tail (make-const src tail)))
-
- ((_ . args)
- (make-application src proc args))))))
+ (('car ($ <const> src (head . tail)))
+ (for-tail (make-const src head)))
+ (('cdr ($ <const> src (head . tail)))
+ (for-tail (make-const src tail)))
+ (((or 'memq 'memv) k ($ <const> _ (elts ...)))
+ ;; FIXME: factor
+ (case ctx
+ ((effect)
+ (for-tail
+ (make-sequence src (list k (make-void #f)))))
+ ((test)
+ (cond
+ ((const? k)
+ ;; A shortcut. The `else' case would handle it, but
+ ;; this way is faster.
+ (let ((member (case name ((memq) memq) ((memv) memv))))
+ (make-const #f (and (member (const-exp k) elts) #t))))
+ ((null? elts)
+ (for-tail
+ (make-sequence src (list k (make-const #f #f)))))
+ (else
+ (let ((t (gensym "t "))
+ (eq (if (eq? name 'memq) 'eq? 'eqv?)))
+ (record-new-temporary! 't t (length elts))
+ (for-tail
+ (make-let
+ src (list 't) (list t) (list k)
+ (let lp ((elts elts))
+ (define test
+ (make-application
+ #f (make-primitive-ref #f eq)
+ (list (make-lexical-ref #f 't t)
+ (make-const #f (car elts)))))
+ (if (null? (cdr elts))
+ test
+ (make-conditional src test
+ (make-const #f #t)
+ (lp (cdr elts)))))))))))
+ (else
+ (cond
+ ((const? k)
+ (let ((member (case name ((memq) memq) ((memv) memv))))
+ (make-const #f (member (const-exp k) elts))))
+ ((null? elts)
+ (for-tail (make-sequence src (list k (make-const #f #f)))))
+ (else
+ (make-application src proc (list k (make-const #f
elts))))))))
+ ((_ . args)
+ (make-application src proc args))))
(($ <primitive-ref> _ (? effect-free-primitive? name))
(let ((args (map for-value orig-args)))
(if (every const? args) ; only simple constants
(let-values (((success? values)
- (apply-primitive name
- (map const-exp args))))
+ (apply-primitive name (map const-exp args))))
(log 'fold success? values exp)
(if success?
(case ctx
@@ -959,13 +1035,28 @@ top-level bindings from ENV and return the resulting
expression."
(cond
((or (< nargs nreq) (> nargs (+ nreq nopt)))
;; An error, or effecting arguments.
- (make-application src (for-value orig-proc)
+ (make-application src (for-call orig-proc)
(map for-value orig-args)))
((or (and=> (find-counter key counter) counter-recursive?)
(lambda? orig-proc))
;; A recursive call, or a lambda in the operator
;; position of the source expression. Process again in
;; tail context.
+ ;;
+ ;; In the recursive case, mark intervening counters as
+ ;; recursive, so we can handle a toplevel counter that
+ ;; recurses mutually with some other procedure.
+ ;; Otherwise, the next time we see the other procedure,
+ ;; the effort limit would be clamped to 100.
+ ;;
+ (let ((found (find-counter key counter)))
+ (if (and found (counter-recursive? found))
+ (let lp ((counter counter))
+ (if (not (eq? counter found))
+ (begin
+ (set-counter-recursive?! counter #t)
+ (lp (counter-prev counter)))))))
+
(log 'inline-recurse key)
(loop (make-let src (append req (or opt '()))
gensyms
@@ -982,8 +1073,7 @@ top-level bindings from ENV and return the resulting
expression."
(let/ec k
(define (abort)
(log 'inline-abort exp)
- (k (make-application src
- (for-value orig-proc)
+ (k (make-application src (for-call orig-proc)
(map for-value orig-args))))
(define new-counter
(cond
@@ -1020,21 +1110,32 @@ top-level bindings from ENV and return the resulting
expression."
(log 'inline-end result exp)
result)))))
(_
- (make-application src proc
+ (make-application src (for-call orig-proc)
(map for-value orig-args))))))
(($ <lambda> src meta body)
(case ctx
((effect) (make-void #f))
((test) (make-const #f #t))
((operator) exp)
- (else
- (make-lambda src meta (for-value body)))))
+ (else (record-source-expression!
+ exp
+ (make-lambda src meta (for-tail body))))))
(($ <lambda-case> src req opt rest kw inits gensyms body alt)
- (make-lambda-case src req opt rest kw
- (map for-value inits)
- gensyms
- (for-tail body)
- (and alt (for-tail alt))))
+ (let* ((vars (map lookup-var gensyms))
+ (new (fresh-gensyms vars))
+ (env (fold extend-env env gensyms
+ (make-unbound-operands vars new)))
+ (new-sym (lambda (old)
+ (operand-sym (cdr (vhash-assq old env))))))
+ (make-lambda-case src req opt rest
+ (match kw
+ ((aok? (kw name old) ...)
+ (cons aok? (map list kw name (map new-sym old))))
+ (_ #f))
+ (map (cut loop <> env counter 'value) inits)
+ new
+ (loop body env counter ctx)
+ (and alt (for-tail alt)))))
(($ <sequence> src exps)
(let lp ((exps exps) (effects '()))
(match exps
@@ -1060,7 +1161,8 @@ top-level bindings from ENV and return the resulting
expression."
;; Only fetch definitions with single uses.
(= (lexical-refcount (lexical-ref-gensym x)) 1)
(lookup (lexical-ref-gensym x)))
- => singly-used-definition)
+ => (lambda (x)
+ (singly-used-definition (visit-operand x counter 'value 10
10))))
(else x)))
(match (singly-used-definition tag)
(($ <application> _ ($ <primitive-ref> _ 'make-prompt-tag)
diff --git a/module/language/tree-il/primitives.scm
b/module/language/tree-il/primitives.scm
index c850cba..65b93b5 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -28,7 +28,8 @@
#:export (resolve-primitives! add-interesting-primitive!
expand-primitives!
effect-free-primitive? effect+exception-free-primitive?
- constructor-primitive? singly-valued-primitive?))
+ constructor-primitive? accessor-primitive?
+ singly-valued-primitive?))
(define *interesting-primitive-names*
'(apply @apply
@@ -110,7 +111,24 @@
(define *primitive-constructors*
;; Primitives that return a fresh object.
'(acons cons cons* list vector make-struct make-struct/no-tail
- car cdr vector-ref struct-ref make-prompt-tag))
+ make-prompt-tag))
+
+(define *primitive-accessors*
+ ;; Primitives that are pure, but whose result depends on the mutable
+ ;; memory pointed to by their operands.
+ '(vector-ref
+ car cdr
+ memq memv
+ struct-vtable struct-ref
+ bytevector-u8-ref bytevector-s8-ref
+ bytevector-u16-ref bytevector-u16-native-ref
+ bytevector-s16-ref bytevector-s16-native-ref
+ bytevector-u32-ref bytevector-u32-native-ref
+ bytevector-s32-ref bytevector-s32-native-ref
+ bytevector-u64-ref bytevector-u64-native-ref
+ bytevector-s64-ref bytevector-s64-native-ref
+ bytevector-ieee-single-ref bytevector-ieee-single-native-ref
+ bytevector-ieee-double-ref bytevector-ieee-double-native-ref))
(define *effect-free-primitives*
`(values
@@ -118,22 +136,14 @@
= < > <= >= zero?
+ * - / 1- 1+ quotient remainder modulo
not
- pair? null? list? symbol? vector?
+ pair? null? list? symbol? vector? struct?
+ ;; These all should get expanded out by expand-primitives!.
caar cadr cdar cddr
caaar caadr cadar caddr cdaar cdadr cddar cdddr
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
- struct? struct-vtable
- bytevector-u8-ref bytevector-s8-ref
- bytevector-u16-ref bytevector-u16-native-ref
- bytevector-s16-ref bytevector-s16-native-ref
- bytevector-u32-ref bytevector-u32-native-ref
- bytevector-s32-ref bytevector-s32-native-ref
- bytevector-u64-ref bytevector-u64-native-ref
- bytevector-s64-ref bytevector-s64-native-ref
- bytevector-ieee-single-ref bytevector-ieee-single-native-ref
- bytevector-ieee-double-ref bytevector-ieee-double-native-ref
- ,@*primitive-constructors*))
+ ,@*primitive-constructors*
+ ,@*primitive-accessors*))
;; Like *effect-free-primitives* above, but further restricted in that they
;; cannot raise exceptions.
@@ -141,9 +151,8 @@
'(values
eq? eqv? equal?
not
- pair? null? list? symbol? vector? acons cons cons*
- list vector
- struct?))
+ pair? null? list? symbol? vector? struct?
+ acons cons cons* list vector))
;; Primitives that only return one value.
(define *singly-valued-primitives*
@@ -207,6 +216,8 @@
(define (constructor-primitive? prim)
(memq prim *primitive-constructors*))
+(define (accessor-primitive? prim)
+ (memq prim *primitive-accessors*))
(define (effect-free-primitive? prim)
(hashq-ref *effect-free-primitive-table* prim))
(define (effect+exception-free-primitive? prim)
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index 32e2a28..789e8fd 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -716,17 +716,16 @@
(if (zero? i)
r
(loop (1- i) (cons (cons i i) r))))
- (letrec (loop) (_) (_)
- (let (r) (_)
- ((apply (primitive list)
- (apply (primitive cons) (const 3) (const 3))))
- (let (r) (_)
- ((apply (primitive cons)
- (apply (primitive cons) (const 2) (const 2))
- (lexical r _)))
- (apply (primitive cons)
- (apply (primitive cons) (const 1) (const 1))
- (lexical r _))))))
+ (let (r) (_)
+ ((apply (primitive list)
+ (apply (primitive cons) (const 3) (const 3))))
+ (let (r) (_)
+ ((apply (primitive cons)
+ (apply (primitive cons) (const 2) (const 2))
+ (lexical r _)))
+ (apply (primitive cons)
+ (apply (primitive cons) (const 1) (const 1))
+ (lexical r _)))))
;; See above.
(pass-if-peval
@@ -735,23 +734,22 @@
(if (<= i 0)
(car r)
(loop (1- i) (cons i r))))
- (letrec (loop) (_) (_)
- (let (r) (_)
- ((apply (primitive list) (const 4)))
- (let (r) (_)
- ((apply (primitive cons)
- (const 3)
- (lexical r _)))
- (let (r) (_)
- ((apply (primitive cons)
- (const 2)
- (lexical r _)))
- (let (r) (_)
- ((apply (primitive cons)
- (const 1)
- (lexical r _)))
- (apply (primitive car)
- (lexical r _))))))))
+ (let (r) (_)
+ ((apply (primitive list) (const 4)))
+ (let (r) (_)
+ ((apply (primitive cons)
+ (const 3)
+ (lexical r _)))
+ (let (r) (_)
+ ((apply (primitive cons)
+ (const 2)
+ (lexical r _)))
+ (let (r) (_)
+ ((apply (primitive cons)
+ (const 1)
+ (lexical r _)))
+ (apply (primitive car)
+ (lexical r _)))))))
;; Static sums.
(pass-if-peval
@@ -1050,15 +1048,69 @@
(_ #f)))
(pass-if-peval
+ ;; Unused letrec bindings are pruned.
+ (letrec ((a (lambda () (b)))
+ (b (lambda () (a)))
+ (c (lambda (x) x)))
+ (c 10))
+ (const 10))
+
+ (pass-if-peval
+ ;; Unused letrec bindings are pruned.
+ (letrec ((a (foo!))
+ (b (lambda () (a)))
+ (c (lambda (x) x)))
+ (c 10))
+ (begin (apply (toplevel foo!))
+ (const 10)))
+
+ (pass-if-peval
;; Higher order, mutually recursive procedures.
(letrec ((even? (lambda (x)
(or (= 0 x)
(odd? (- x 1)))))
(odd? (lambda (x)
- (not (even? (- x 1))))))
+ (not (even? x)))))
(and (even? 4) (odd? 7)))
(const #t))
+ (pass-if-peval
+ ;; Memv with constants.
+ (memv 1 '(3 2 1))
+ (const '(1)))
+
+ (pass-if-peval
+ ;; Memv with non-constant list. It could fold but doesn't
+ ;; currently.
+ (memv 1 (list 3 2 1))
+ (apply (primitive memv)
+ (const 1)
+ (apply (primitive list) (const 3) (const 2) (const 1))))
+
+ (pass-if-peval
+ ;; Memv with non-constant key, constant list, test context
+ (case foo
+ ((3 2 1) 'a)
+ (else 'b))
+ (if (let (t) (_) ((toplevel foo))
+ (if (apply (primitive eqv?) (lexical t _) (const 3))
+ (const #t)
+ (if (apply (primitive eqv?) (lexical t _) (const 2))
+ (const #t)
+ (apply (primitive eqv?) (lexical t _) (const 1)))))
+ (const a)
+ (const b)))
+
+ (pass-if-peval
+ ;; Memv with non-constant key, empty list, test context. Currently
+ ;; doesn't fold entirely.
+ (case foo
+ (() 'a)
+ (else 'b))
+ (if (begin (toplevel foo) (const #f))
+ (const a)
+ (const b)))
+
;;
;; Below are cases where constant propagation should bail out.
;;
@@ -1203,8 +1255,7 @@
(loop x (1- y))
(foo x y))))
(let (x) (_) ((apply (toplevel top)))
- (letrec (loop) (_) (_)
- (apply (toplevel foo) (lexical x _) (const 0)))))
+ (apply (toplevel foo) (lexical x _) (const 0))))
(pass-if-peval
;; Inlining aborted when residual code contains recursive calls.
@@ -1242,6 +1293,86 @@
(apply (lexical loop _) (const 0))))
(pass-if-peval
+ ;; This test checks that the `start' binding is indeed residualized.
+ ;; See the `referenced?' procedure in peval's `prune-bindings'.
+ (let ((pos 0))
+ (set! pos 1) ;; Cause references to `pos' to residualize.
+ (let ((here (let ((start pos)) (lambda () start))))
+ (here)))
+ (let (pos) (_) ((const 0))
+ (begin
+ (set! (lexical pos _) (const 1))
+ (let (here) (_) (_)
+ (apply (lexical here _))))))
+
+ (pass-if-peval
+ ;; FIXME: should this one residualize the binding?
+ (letrec ((a a))
+ 1)
+ (const 1))
+
+ (pass-if-peval
+ ;; This is a fun one for peval to handle.
+ (letrec ((a a))
+ a)
+ (letrec (a) (_) ((lexical a _))
+ (lexical a _)))
+
+ (pass-if-peval
+ ;; Another interesting recursive case.
+ (letrec ((a b) (b a))
+ a)
+ (letrec (a) (_) ((lexical a _))
+ (lexical a _)))
+
+ (pass-if-peval
+ ;; Another pruning case, that `a' is residualized.
+ (letrec ((a (lambda () (a)))
+ (b (lambda () (a)))
+ (c (lambda (x) x)))
+ (let ((d (foo b)))
+ (c d)))
+
+ ;; "b c a" is the current order that we get with unordered letrec,
+ ;; but it's not important to this test, so if it changes, just adapt
+ ;; the test.
+ (letrec (b c a) (_ _ _)
+ ((lambda _
+ (lambda-case
+ ((() #f #f #f () ())
+ (apply (lexical a _)))))
+ (lambda _
+ (lambda-case
+ (((x) #f #f #f () (_))
+ (lexical x _))))
+ (lambda _
+ (lambda-case
+ ((() #f #f #f () ())
+ (apply (lexical a _))))))
+ (let (d)
+ (_)
+ ((apply (toplevel foo) (lexical b _)))
+ (apply (lexical c _)
+ (lexical d _)))))
+
+ (pass-if-peval
+ ;; In this case, we can prune the bindings. `a' ends up being copied
+ ;; because it is only referenced once in the source program. Oh
+ ;; well.
+ (letrec* ((a (lambda (x) (top x)))
+ (b (lambda () a)))
+ (foo (b) (b)))
+ (apply (toplevel foo)
+ (lambda _
+ (lambda-case
+ (((x) #f #f #f () (_))
+ (apply (toplevel top) (lexical x _)))))
+ (lambda _
+ (lambda-case
+ (((x) #f #f #f () (_))
+ (apply (toplevel top) (lexical x _)))))))
+
+ (pass-if-peval
;; Constant folding: cons
(begin (cons 1 2) #f)
(const #f))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-156-g34c5fe8,
Andy Wingo <=