[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-136-gdf40b
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-136-gdf40b96 |
Date: |
Tue, 27 Sep 2011 22:14:12 +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=df40b969780df2979f9f5e1c9ae8b9d6f09dbd9a
The branch, stable-2.0 has been updated
via df40b969780df2979f9f5e1c9ae8b9d6f09dbd9a (commit)
via 0353a2d817d0d5b3c563af4fa1b5c7c1fe7ce3a6 (commit)
via 40be30c97459e1baf8a9997c1c116a67f153cfef (commit)
via fc283c92cbdb31942f033541b52376fd1bade3f2 (commit)
via b5ae223d129b427e2b5695c82c45f16995f36236 (commit)
via 1cc1c2d7e33bc40ac23e05636e69434d80e90af1 (commit)
via 6c4ffe2b2560eaeb0fe5aedb266183e3bb80dbd8 (commit)
via ea726a53b2180ee4548723f81d9b1be7732ef5d8 (commit)
via fbc9387f68be677663e6756c35afa973a9dc0a1a (commit)
from 58b5a2d4e10d2afb34dfcb086d2550e936800b3f (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 df40b969780df2979f9f5e1c9ae8b9d6f09dbd9a
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 15:09:25 2011 +0200
regenerate psyntax-pp.scm, with optimizations
* module/ice-9/psyntax-pp.scm: Regenerate.
commit 0353a2d817d0d5b3c563af4fa1b5c7c1fe7ce3a6
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 23:29:10 2011 +0200
((lambda ...) ...) fix
* module/language/tree-il/optimize.scm (peval): If it's a lambda in the
operator position, inline without a nested counter, as it's not
possible to increase code size.
commit 40be30c97459e1baf8a9997c1c116a67f153cfef
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 23:21:53 2011 +0200
peval: more effective binding pruning
* module/language/tree-il/optimize.scm (peval): Factor prune-bindings
out of `let' and company. Have it process unreferenced bindings in
effect context instead of always residualizing non-constant
expressions.
commit fc283c92cbdb31942f033541b52376fd1bade3f2
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 23:20:49 2011 +0200
don't propagate pure primcalls that might not type-check
* module/language/tree-il/optimize.scm (types-check?): New helper, to
determine if a primcall will apply without throwing an exception.
(peval): constant-expression? returns #f for expressions that don't
types-check?. Effect-free primitives that type-check are void.
commit b5ae223d129b427e2b5695c82c45f16995f36236
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 15:08:39 2011 +0200
fix unparse-tree-il of <dynset>
* module/language/tree-il.scm (unparse-tree-il): Fix printing of
`dynset'.
commit 1cc1c2d7e33bc40ac23e05636e69434d80e90af1
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 15:08:17 2011 +0200
peval works on all expressions
* module/language/tree-il/optimize.scm (alpha-rename, peval): Add
<dynset> cases. Allow any kind of <application>. Remove the `catch'
wrapper as now peval handles all kinds of expressions.
commit 6c4ffe2b2560eaeb0fe5aedb266183e3bb80dbd8
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 13:42:43 2011 +0200
peval: elide make-prompt-tag in effect context
* module/language/tree-il/optimize.scm (peval): Fix a duplicate
traversal for constructors in effect or test context. Add support for
eliding make-prompt-tag.
* test-suite/tests/tree-il.test ("partial evaluation"): Update the test
for make-prompt-tag elision.
commit ea726a53b2180ee4548723f81d9b1be7732ef5d8
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 13:39:29 2011 +0200
peval: add support for <prompt> and <abort>
* module/language/tree-il/optimize.scm (alpha-rename, peval): Handle
<prompt> and <abort>. Attempt to remove the prompt if the tag is
otherwise unreferenced.
* module/language/tree-il/primitives.scm (*primitive-constructors*): Add
make-prompt-tag as a constructor.
* test-suite/tests/tree-il.test ("partial evaluation"): Add a test that
an prompt whose tag is unreferenced is removed.
commit fbc9387f68be677663e6756c35afa973a9dc0a1a
Author: Andy Wingo <address@hidden>
Date: Tue Sep 27 09:48:18 2011 +0200
peval: fix algorithmic behavior of `cons'
* module/language/tree-il/optimize.scm (peval): Fix treatment of `cons'
to not process the value twice, leading to n^2 work. This prevented
primitives.scm from compiling in a reasonable amount of time, because
it contained a `(foo ... ,@bar) form that resulted in a long sequence
of nested conses, and no effort counter was in place as it was not
within an inlining attempt.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/psyntax-pp.scm |48189 +++++++++++++++++++++-----------
module/language/tree-il.scm | 2 +-
module/language/tree-il/optimize.scm | 943 +-
module/language/tree-il/primitives.scm | 2 +-
test-suite/tests/tree-il.test | 52 +-
5 files changed, 32267 insertions(+), 16921 deletions(-)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index d499b73..195f523 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1527 +2,1434 @@
(if #f #f)
(letrec*
- ((#{make-void 203}#
- (lambda (#{src 774}#)
+ ((#{make-void 207}#
+ (lambda (#{src 778}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src 774}#)))
- (#{make-const 205}#
- (lambda (#{src 776}# #{exp 777}#)
+ #{src 778}#)))
+ (#{make-const 209}#
+ (lambda (#{src 780}# #{exp 781}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src 776}#
- #{exp 777}#)))
- (#{make-lexical-ref 209}#
- (lambda (#{src 784}# #{name 785}# #{gensym 786}#)
+ #{src 780}#
+ #{exp 781}#)))
+ (#{make-lexical-ref 213}#
+ (lambda (#{src 788}# #{name 789}# #{gensym 790}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 784}#
- #{name 785}#
- #{gensym 786}#)))
- (#{make-lexical-set 211}#
- (lambda (#{src 790}#
- #{name 791}#
- #{gensym 792}#
- #{exp 793}#)
+ #{src 788}#
+ #{name 789}#
+ #{gensym 790}#)))
+ (#{make-lexical-set 215}#
+ (lambda (#{src 794}#
+ #{name 795}#
+ #{gensym 796}#
+ #{exp 797}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src 790}#
- #{name 791}#
- #{gensym 792}#
- #{exp 793}#)))
- (#{make-module-ref 213}#
- (lambda (#{src 798}#
- #{mod 799}#
- #{name 800}#
- #{public? 801}#)
+ #{src 794}#
+ #{name 795}#
+ #{gensym 796}#
+ #{exp 797}#)))
+ (#{make-module-ref 217}#
+ (lambda (#{src 802}#
+ #{mod 803}#
+ #{name 804}#
+ #{public? 805}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src 798}#
- #{mod 799}#
- #{name 800}#
- #{public? 801}#)))
- (#{make-module-set 215}#
- (lambda (#{src 806}#
- #{mod 807}#
- #{name 808}#
- #{public? 809}#
- #{exp 810}#)
+ #{src 802}#
+ #{mod 803}#
+ #{name 804}#
+ #{public? 805}#)))
+ (#{make-module-set 219}#
+ (lambda (#{src 810}#
+ #{mod 811}#
+ #{name 812}#
+ #{public? 813}#
+ #{exp 814}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src 806}#
- #{mod 807}#
- #{name 808}#
- #{public? 809}#
- #{exp 810}#)))
- (#{make-toplevel-ref 217}#
- (lambda (#{src 816}# #{name 817}#)
+ #{src 810}#
+ #{mod 811}#
+ #{name 812}#
+ #{public? 813}#
+ #{exp 814}#)))
+ (#{make-toplevel-ref 221}#
+ (lambda (#{src 820}# #{name 821}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src 816}#
- #{name 817}#)))
- (#{make-toplevel-set 219}#
- (lambda (#{src 820}# #{name 821}# #{exp 822}#)
+ #{src 820}#
+ #{name 821}#)))
+ (#{make-toplevel-set 223}#
+ (lambda (#{src 824}# #{name 825}# #{exp 826}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src 820}#
- #{name 821}#
- #{exp 822}#)))
- (#{make-toplevel-define 221}#
- (lambda (#{src 826}# #{name 827}# #{exp 828}#)
+ #{src 824}#
+ #{name 825}#
+ #{exp 826}#)))
+ (#{make-toplevel-define 225}#
+ (lambda (#{src 830}# #{name 831}# #{exp 832}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src 826}#
- #{name 827}#
- #{exp 828}#)))
- (#{make-conditional 223}#
- (lambda (#{src 832}#
- #{test 833}#
- #{consequent 834}#
- #{alternate 835}#)
+ #{src 830}#
+ #{name 831}#
+ #{exp 832}#)))
+ (#{make-conditional 227}#
+ (lambda (#{src 836}#
+ #{test 837}#
+ #{consequent 838}#
+ #{alternate 839}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src 832}#
- #{test 833}#
- #{consequent 834}#
- #{alternate 835}#)))
- (#{make-application 225}#
- (lambda (#{src 840}# #{proc 841}# #{args 842}#)
+ #{src 836}#
+ #{test 837}#
+ #{consequent 838}#
+ #{alternate 839}#)))
+ (#{make-application 229}#
+ (lambda (#{src 844}# #{proc 845}# #{args 846}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 840}#
- #{proc 841}#
- #{args 842}#)))
- (#{make-sequence 227}#
- (lambda (#{src 846}# #{exps 847}#)
+ #{src 844}#
+ #{proc 845}#
+ #{args 846}#)))
+ (#{make-sequence 231}#
+ (lambda (#{src 850}# #{exps 851}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 846}#
- #{exps 847}#)))
- (#{make-lambda 229}#
- (lambda (#{src 850}# #{meta 851}# #{body 852}#)
+ #{src 850}#
+ #{exps 851}#)))
+ (#{make-lambda 233}#
+ (lambda (#{src 854}# #{meta 855}# #{body 856}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 850}#
- #{meta 851}#
- #{body 852}#)))
- (#{make-lambda-case 231}#
- (lambda (#{src 856}#
- #{req 857}#
- #{opt 858}#
- #{rest 859}#
- #{kw 860}#
- #{inits 861}#
- #{gensyms 862}#
- #{body 863}#
- #{alternate 864}#)
+ #{src 854}#
+ #{meta 855}#
+ #{body 856}#)))
+ (#{make-lambda-case 235}#
+ (lambda (#{src 860}#
+ #{req 861}#
+ #{opt 862}#
+ #{rest 863}#
+ #{kw 864}#
+ #{inits 865}#
+ #{gensyms 866}#
+ #{body 867}#
+ #{alternate 868}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 856}#
- #{req 857}#
- #{opt 858}#
- #{rest 859}#
- #{kw 860}#
- #{inits 861}#
- #{gensyms 862}#
- #{body 863}#
- #{alternate 864}#)))
- (#{make-let 233}#
- (lambda (#{src 874}#
- #{names 875}#
- #{gensyms 876}#
- #{vals 877}#
- #{body 878}#)
+ #{src 860}#
+ #{req 861}#
+ #{opt 862}#
+ #{rest 863}#
+ #{kw 864}#
+ #{inits 865}#
+ #{gensyms 866}#
+ #{body 867}#
+ #{alternate 868}#)))
+ (#{make-let 237}#
+ (lambda (#{src 878}#
+ #{names 879}#
+ #{gensyms 880}#
+ #{vals 881}#
+ #{body 882}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 874}#
- #{names 875}#
- #{gensyms 876}#
- #{vals 877}#
- #{body 878}#)))
- (#{make-letrec 235}#
- (lambda (#{src 884}#
- #{in-order? 885}#
- #{names 886}#
- #{gensyms 887}#
- #{vals 888}#
- #{body 889}#)
+ #{src 878}#
+ #{names 879}#
+ #{gensyms 880}#
+ #{vals 881}#
+ #{body 882}#)))
+ (#{make-letrec 239}#
+ (lambda (#{src 888}#
+ #{in-order? 889}#
+ #{names 890}#
+ #{gensyms 891}#
+ #{vals 892}#
+ #{body 893}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 884}#
- #{in-order? 885}#
- #{names 886}#
- #{gensyms 887}#
- #{vals 888}#
- #{body 889}#)))
- (#{make-dynlet 237}#
- (lambda (#{src 896}#
- #{fluids 897}#
- #{vals 898}#
- #{body 899}#)
+ #{src 888}#
+ #{in-order? 889}#
+ #{names 890}#
+ #{gensyms 891}#
+ #{vals 892}#
+ #{body 893}#)))
+ (#{make-dynlet 241}#
+ (lambda (#{src 900}#
+ #{fluids 901}#
+ #{vals 902}#
+ #{body 903}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 896}#
- #{fluids 897}#
- #{vals 898}#
- #{body 899}#)))
- (#{lambda? 240}#
- (lambda (#{x 904}#)
- (if (struct? #{x 904}#)
- (eq? (struct-vtable #{x 904}#)
+ #{src 900}#
+ #{fluids 901}#
+ #{vals 902}#
+ #{body 903}#)))
+ (#{lambda? 244}#
+ (lambda (#{x 908}#)
+ (if (struct? #{x 908}#)
+ (eq? (struct-vtable #{x 908}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta 242}#
- (lambda (#{x 908}#) (struct-ref #{x 908}# 1)))
- (#{set-lambda-meta! 244}#
- (lambda (#{x 910}# #{v 911}#)
- (struct-set! #{x 910}# 1 #{v 911}#)))
- (#{top-level-eval-hook 250}#
- (lambda (#{x 914}# #{mod 915}#)
- (primitive-eval #{x 914}#)))
- (#{local-eval-hook 252}#
+ (#{lambda-meta 246}#
+ (lambda (#{x 912}#) (struct-ref #{x 912}# 1)))
+ (#{set-lambda-meta! 248}#
+ (lambda (#{x 914}# #{v 915}#)
+ (struct-set! #{x 914}# 1 #{v 915}#)))
+ (#{top-level-eval-hook 254}#
(lambda (#{x 918}# #{mod 919}#)
(primitive-eval #{x 918}#)))
- (#{put-global-definition-hook 256}#
- (lambda (#{symbol 922}# #{type 923}# #{val 924}#)
+ (#{local-eval-hook 256}#
+ (lambda (#{x 922}# #{mod 923}#)
+ (primitive-eval #{x 922}#)))
+ (#{put-global-definition-hook 260}#
+ (lambda (#{symbol 926}# #{type 927}# #{val 928}#)
(module-define!
(current-module)
- #{symbol 922}#
+ #{symbol 926}#
(make-syntax-transformer
- #{symbol 922}#
- #{type 923}#
- #{val 924}#))))
- (#{get-global-definition-hook 258}#
- (lambda (#{symbol 928}# #{module 929}#)
+ #{symbol 926}#
+ #{type 927}#
+ #{val 928}#))))
+ (#{get-global-definition-hook 262}#
+ (lambda (#{symbol 932}# #{module 933}#)
(begin
- (if (if (not #{module 929}#) (current-module) #f)
+ (if (if (not #{module 933}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol 928}#))
+ #{symbol 932}#))
(begin
- (let ((#{v 935}# (module-variable
- (if #{module 929}#
- (resolve-module (cdr #{module 929}#))
+ (let ((#{v 939}# (module-variable
+ (if #{module 933}#
+ (resolve-module (cdr #{module 933}#))
(current-module))
- #{symbol 928}#)))
- (if #{v 935}#
- (if (variable-bound? #{v 935}#)
+ #{symbol 932}#)))
+ (if #{v 939}#
+ (if (variable-bound? #{v 939}#)
(begin
- (let ((#{val 940}# (variable-ref #{v 935}#)))
- (if (macro? #{val 940}#)
- (if (macro-type #{val 940}#)
- (cons (macro-type #{val 940}#)
- (macro-binding #{val 940}#))
+ (let ((#{val 944}# (variable-ref #{v 939}#)))
+ (if (macro? #{val 944}#)
+ (if (macro-type #{val 944}#)
+ (cons (macro-type #{val 944}#)
+ (macro-binding #{val 944}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source 260}#
- (lambda (#{e 944}# #{s 945}#)
+ (#{decorate-source 264}#
+ (lambda (#{e 948}# #{s 949}#)
(begin
- (if (if (pair? #{e 944}#) #{s 945}# #f)
- (set-source-properties! #{e 944}# #{s 945}#))
- #{e 944}#)))
- (#{maybe-name-value! 262}#
- (lambda (#{name 950}# #{val 951}#)
- (if (#{lambda? 240}# #{val 951}#)
+ (if (if (pair? #{e 948}#) #{s 949}# #f)
+ (set-source-properties! #{e 948}# #{s 949}#))
+ #{e 948}#)))
+ (#{maybe-name-value! 266}#
+ (lambda (#{name 954}# #{val 955}#)
+ (if (#{lambda? 244}# #{val 955}#)
(begin
- (let ((#{meta 955}# (#{lambda-meta 242}# #{val 951}#)))
- (if (not (assq 'name #{meta 955}#))
- (#{set-lambda-meta! 244}#
- #{val 951}#
- (cons (cons 'name #{name 950}#) #{meta 955}#))))))))
- (#{build-void 264}#
- (lambda (#{source 956}#)
- (#{make-void 203}# #{source 956}#)))
- (#{build-application 266}#
- (lambda (#{source 958}# #{fun-exp 959}# #{arg-exps 960}#)
- (#{make-application 225}#
- #{source 958}#
- #{fun-exp 959}#
- #{arg-exps 960}#)))
- (#{build-conditional 268}#
- (lambda (#{source 964}#
- #{test-exp 965}#
- #{then-exp 966}#
- #{else-exp 967}#)
- (#{make-conditional 223}#
- #{source 964}#
- #{test-exp 965}#
- #{then-exp 966}#
- #{else-exp 967}#)))
- (#{build-dynlet 270}#
- (lambda (#{source 972}#
- #{fluids 973}#
- #{vals 974}#
- #{body 975}#)
- (#{make-dynlet 237}#
- #{source 972}#
- #{fluids 973}#
- #{vals 974}#
- #{body 975}#)))
- (#{build-lexical-reference 272}#
- (lambda (#{type 980}#
- #{source 981}#
- #{name 982}#
- #{var 983}#)
- (#{make-lexical-ref 209}#
- #{source 981}#
- #{name 982}#
- #{var 983}#)))
- (#{build-lexical-assignment 274}#
- (lambda (#{source 988}#
- #{name 989}#
- #{var 990}#
- #{exp 991}#)
- (begin
- (#{maybe-name-value! 262}#
- #{name 989}#
- #{exp 991}#)
- (#{make-lexical-set 211}#
- #{source 988}#
- #{name 989}#
- #{var 990}#
- #{exp 991}#))))
- (#{analyze-variable 276}#
- (lambda (#{mod 996}#
- #{var 997}#
- #{modref-cont 998}#
- #{bare-cont 999}#)
- (if (not #{mod 996}#)
- (#{bare-cont 999}# #{var 997}#)
+ (let ((#{meta 959}# (#{lambda-meta 246}# #{val 955}#)))
+ (if (not (assq 'name #{meta 959}#))
+ (#{set-lambda-meta! 248}#
+ #{val 955}#
+ (cons (cons 'name #{name 954}#) #{meta 959}#))))))))
+ (#{build-void 268}#
+ (lambda (#{source 960}#)
+ (#{make-void 207}# #{source 960}#)))
+ (#{build-application 270}#
+ (lambda (#{source 962}# #{fun-exp 963}# #{arg-exps 964}#)
+ (#{make-application 229}#
+ #{source 962}#
+ #{fun-exp 963}#
+ #{arg-exps 964}#)))
+ (#{build-conditional 272}#
+ (lambda (#{source 968}#
+ #{test-exp 969}#
+ #{then-exp 970}#
+ #{else-exp 971}#)
+ (#{make-conditional 227}#
+ #{source 968}#
+ #{test-exp 969}#
+ #{then-exp 970}#
+ #{else-exp 971}#)))
+ (#{build-lexical-reference 276}#
+ (lambda (#{type 984}#
+ #{source 985}#
+ #{name 986}#
+ #{var 987}#)
+ (#{make-lexical-ref 213}#
+ #{source 985}#
+ #{name 986}#
+ #{var 987}#)))
+ (#{analyze-variable 280}#
+ (lambda (#{mod 1000}#
+ #{var 1001}#
+ #{modref-cont 1002}#
+ #{bare-cont 1003}#)
+ (if (not #{mod 1000}#)
+ (#{bare-cont 1003}# #{var 1001}#)
(begin
- (let ((#{kind 1006}# (car #{mod 996}#))
- (#{mod 1007}# (cdr #{mod 996}#)))
- (if (eqv? #{kind 1006}# 'public)
- (#{modref-cont 998}# #{mod 1007}# #{var 997}# #t)
- (if (eqv? #{kind 1006}# 'private)
+ (let ((#{kind 1010}# (car #{mod 1000}#))
+ (#{mod 1011}# (cdr #{mod 1000}#)))
+ (if (eqv? #{kind 1010}# 'public)
+ (#{modref-cont 1002}#
+ #{mod 1011}#
+ #{var 1001}#
+ #t)
+ (if (eqv? #{kind 1010}# 'private)
(if (not (equal?
- #{mod 1007}#
+ #{mod 1011}#
(module-name (current-module))))
- (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f)
- (#{bare-cont 999}# #{var 997}#))
- (if (eqv? #{kind 1006}# 'bare)
- (#{bare-cont 999}# #{var 997}#)
- (if (eqv? #{kind 1006}# 'hygiene)
+ (#{modref-cont 1002}#
+ #{mod 1011}#
+ #{var 1001}#
+ #f)
+ (#{bare-cont 1003}# #{var 1001}#))
+ (if (eqv? #{kind 1010}# 'bare)
+ (#{bare-cont 1003}# #{var 1001}#)
+ (if (eqv? #{kind 1010}# 'hygiene)
(if (if (not (equal?
- #{mod 1007}#
+ #{mod 1011}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 1007}#)
- #{var 997}#)
+ (resolve-module #{mod 1011}#)
+ #{var 1001}#)
#f)
- (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f)
- (#{bare-cont 999}# #{var 997}#))
+ (#{modref-cont 1002}#
+ #{mod 1011}#
+ #{var 1001}#
+ #f)
+ (#{bare-cont 1003}# #{var 1001}#))
(syntax-violation
#f
"bad module kind"
- #{var 997}#
- #{mod 1007}#))))))))))
- (#{build-global-reference 278}#
- (lambda (#{source 1015}# #{var 1016}# #{mod 1017}#)
- (#{analyze-variable 276}#
- #{mod 1017}#
- #{var 1016}#
- (lambda (#{mod 1021}# #{var 1022}# #{public? 1023}#)
- (#{make-module-ref 213}#
- #{source 1015}#
- #{mod 1021}#
- #{var 1022}#
- #{public? 1023}#))
- (lambda (#{var 1027}#)
- (#{make-toplevel-ref 217}#
- #{source 1015}#
- #{var 1027}#)))))
- (#{build-global-assignment 280}#
- (lambda (#{source 1029}#
- #{var 1030}#
- #{exp 1031}#
- #{mod 1032}#)
+ #{var 1001}#
+ #{mod 1011}#))))))))))
+ (#{build-global-reference 282}#
+ (lambda (#{source 1019}# #{var 1020}# #{mod 1021}#)
+ (#{analyze-variable 280}#
+ #{mod 1021}#
+ #{var 1020}#
+ (lambda (#{mod 1025}# #{var 1026}# #{public? 1027}#)
+ (#{make-module-ref 217}#
+ #{source 1019}#
+ #{mod 1025}#
+ #{var 1026}#
+ #{public? 1027}#))
+ (lambda (#{var 1031}#)
+ (#{make-toplevel-ref 221}#
+ #{source 1019}#
+ #{var 1031}#)))))
+ (#{build-global-assignment 284}#
+ (lambda (#{source 1033}#
+ #{var 1034}#
+ #{exp 1035}#
+ #{mod 1036}#)
(begin
- (#{maybe-name-value! 262}#
- #{var 1030}#
- #{exp 1031}#)
- (#{analyze-variable 276}#
- #{mod 1032}#
- #{var 1030}#
- (lambda (#{mod 1037}# #{var 1038}# #{public? 1039}#)
- (#{make-module-set 215}#
- #{source 1029}#
- #{mod 1037}#
- #{var 1038}#
- #{public? 1039}#
- #{exp 1031}#))
- (lambda (#{var 1043}#)
- (#{make-toplevel-set 219}#
- #{source 1029}#
- #{var 1043}#
- #{exp 1031}#))))))
- (#{build-global-definition 282}#
- (lambda (#{source 1045}# #{var 1046}# #{exp 1047}#)
+ (#{maybe-name-value! 266}#
+ #{var 1034}#
+ #{exp 1035}#)
+ (#{analyze-variable 280}#
+ #{mod 1036}#
+ #{var 1034}#
+ (lambda (#{mod 1041}# #{var 1042}# #{public? 1043}#)
+ (#{make-module-set 219}#
+ #{source 1033}#
+ #{mod 1041}#
+ #{var 1042}#
+ #{public? 1043}#
+ #{exp 1035}#))
+ (lambda (#{var 1047}#)
+ (#{make-toplevel-set 223}#
+ #{source 1033}#
+ #{var 1047}#
+ #{exp 1035}#))))))
+ (#{build-global-definition 286}#
+ (lambda (#{source 1049}# #{var 1050}# #{exp 1051}#)
(begin
- (#{maybe-name-value! 262}#
- #{var 1046}#
- #{exp 1047}#)
- (#{make-toplevel-define 221}#
- #{source 1045}#
- #{var 1046}#
- #{exp 1047}#))))
- (#{build-simple-lambda 284}#
- (lambda (#{src 1051}#
- #{req 1052}#
- #{rest 1053}#
- #{vars 1054}#
- #{meta 1055}#
- #{exp 1056}#)
- (#{make-lambda 229}#
- #{src 1051}#
- #{meta 1055}#
- (#{make-lambda-case 231}#
- #{src 1051}#
- #{req 1052}#
+ (#{maybe-name-value! 266}#
+ #{var 1050}#
+ #{exp 1051}#)
+ (#{make-toplevel-define 225}#
+ #{source 1049}#
+ #{var 1050}#
+ #{exp 1051}#))))
+ (#{build-simple-lambda 288}#
+ (lambda (#{src 1055}#
+ #{req 1056}#
+ #{rest 1057}#
+ #{vars 1058}#
+ #{meta 1059}#
+ #{exp 1060}#)
+ (#{make-lambda 233}#
+ #{src 1055}#
+ #{meta 1059}#
+ (#{make-lambda-case 235}#
+ #{src 1055}#
+ #{req 1056}#
#f
- #{rest 1053}#
+ #{rest 1057}#
#f
'()
- #{vars 1054}#
- #{exp 1056}#
+ #{vars 1058}#
+ #{exp 1060}#
#f))))
- (#{build-case-lambda 286}#
- (lambda (#{src 1063}# #{meta 1064}# #{body 1065}#)
- (#{make-lambda 229}#
- #{src 1063}#
- #{meta 1064}#
- #{body 1065}#)))
- (#{build-lambda-case 288}#
- (lambda (#{src 1069}#
- #{req 1070}#
- #{opt 1071}#
- #{rest 1072}#
- #{kw 1073}#
- #{inits 1074}#
- #{vars 1075}#
- #{body 1076}#
- #{else-case 1077}#)
- (#{make-lambda-case 231}#
- #{src 1069}#
- #{req 1070}#
- #{opt 1071}#
- #{rest 1072}#
- #{kw 1073}#
- #{inits 1074}#
- #{vars 1075}#
- #{body 1076}#
- #{else-case 1077}#)))
- (#{build-primref 290}#
- (lambda (#{src 1087}# #{name 1088}#)
+ (#{build-lambda-case 292}#
+ (lambda (#{src 1073}#
+ #{req 1074}#
+ #{opt 1075}#
+ #{rest 1076}#
+ #{kw 1077}#
+ #{inits 1078}#
+ #{vars 1079}#
+ #{body 1080}#
+ #{else-case 1081}#)
+ (#{make-lambda-case 235}#
+ #{src 1073}#
+ #{req 1074}#
+ #{opt 1075}#
+ #{rest 1076}#
+ #{kw 1077}#
+ #{inits 1078}#
+ #{vars 1079}#
+ #{body 1080}#
+ #{else-case 1081}#)))
+ (#{build-primref 294}#
+ (lambda (#{src 1091}# #{name 1092}#)
(if (equal? (module-name (current-module)) '(guile))
- (#{make-toplevel-ref 217}#
- #{src 1087}#
- #{name 1088}#)
- (#{make-module-ref 213}#
- #{src 1087}#
+ (#{make-toplevel-ref 221}#
+ #{src 1091}#
+ #{name 1092}#)
+ (#{make-module-ref 217}#
+ #{src 1091}#
'(guile)
- #{name 1088}#
+ #{name 1092}#
#f))))
- (#{build-data 292}#
- (lambda (#{src 1091}# #{exp 1092}#)
- (#{make-const 205}# #{src 1091}# #{exp 1092}#)))
- (#{build-sequence 294}#
- (lambda (#{src 1095}# #{exps 1096}#)
- (if (null? (cdr #{exps 1096}#))
- (car #{exps 1096}#)
- (#{make-sequence 227}#
- #{src 1095}#
- #{exps 1096}#))))
- (#{build-let 296}#
- (lambda (#{src 1099}#
- #{ids 1100}#
- #{vars 1101}#
- #{val-exps 1102}#
- #{body-exp 1103}#)
- (begin
- (for-each
- #{maybe-name-value! 262}#
- #{ids 1100}#
- #{val-exps 1102}#)
- (if (null? #{vars 1101}#)
- #{body-exp 1103}#
- (#{make-let 233}#
- #{src 1099}#
- #{ids 1100}#
- #{vars 1101}#
- #{val-exps 1102}#
- #{body-exp 1103}#)))))
- (#{build-named-let 298}#
- (lambda (#{src 1109}#
- #{ids 1110}#
- #{vars 1111}#
- #{val-exps 1112}#
- #{body-exp 1113}#)
- (begin
- (let ((#{f 1123}# (car #{vars 1111}#))
- (#{f-name 1124}# (car #{ids 1110}#))
- (#{vars 1125}# (cdr #{vars 1111}#))
- (#{ids 1126}# (cdr #{ids 1110}#)))
- (begin
- (let ((#{proc 1128}#
- (#{build-simple-lambda 284}#
- #{src 1109}#
- #{ids 1126}#
- #f
- #{vars 1125}#
- '()
- #{body-exp 1113}#)))
- (begin
- (#{maybe-name-value! 262}#
- #{f-name 1124}#
- #{proc 1128}#)
- (for-each
- #{maybe-name-value! 262}#
- #{ids 1126}#
- #{val-exps 1112}#)
- (#{make-letrec 235}#
- #{src 1109}#
- #f
- (list #{f-name 1124}#)
- (list #{f 1123}#)
- (list #{proc 1128}#)
- (#{build-application 266}#
- #{src 1109}#
- (#{build-lexical-reference 272}#
- 'fun
- #{src 1109}#
- #{f-name 1124}#
- #{f 1123}#)
- #{val-exps 1112}#)))))))))
- (#{build-letrec 300}#
- (lambda (#{src 1129}#
- #{in-order? 1130}#
- #{ids 1131}#
- #{vars 1132}#
- #{val-exps 1133}#
- #{body-exp 1134}#)
- (if (null? #{vars 1132}#)
- #{body-exp 1134}#
+ (#{build-data 296}#
+ (lambda (#{src 1095}# #{exp 1096}#)
+ (#{make-const 209}# #{src 1095}# #{exp 1096}#)))
+ (#{build-sequence 298}#
+ (lambda (#{src 1099}# #{exps 1100}#)
+ (if (null? (cdr #{exps 1100}#))
+ (car #{exps 1100}#)
+ (#{make-sequence 231}#
+ #{src 1099}#
+ #{exps 1100}#))))
+ (#{build-letrec 304}#
+ (lambda (#{src 1133}#
+ #{in-order? 1134}#
+ #{ids 1135}#
+ #{vars 1136}#
+ #{val-exps 1137}#
+ #{body-exp 1138}#)
+ (if (null? #{vars 1136}#)
+ #{body-exp 1138}#
(begin
(for-each
- #{maybe-name-value! 262}#
- #{ids 1131}#
- #{val-exps 1133}#)
- (#{make-letrec 235}#
- #{src 1129}#
- #{in-order? 1130}#
- #{ids 1131}#
- #{vars 1132}#
- #{val-exps 1133}#
- #{body-exp 1134}#)))))
- (#{make-syntax-object 305}#
- (lambda (#{expression 1141}#
- #{wrap 1142}#
- #{module 1143}#)
+ #{maybe-name-value! 266}#
+ #{ids 1135}#
+ #{val-exps 1137}#)
+ (#{make-letrec 239}#
+ #{src 1133}#
+ #{in-order? 1134}#
+ #{ids 1135}#
+ #{vars 1136}#
+ #{val-exps 1137}#
+ #{body-exp 1138}#)))))
+ (#{make-syntax-object 309}#
+ (lambda (#{expression 1145}#
+ #{wrap 1146}#
+ #{module 1147}#)
(vector
'syntax-object
- #{expression 1141}#
- #{wrap 1142}#
- #{module 1143}#)))
- (#{syntax-object? 307}#
- (lambda (#{x 1147}#)
- (if (vector? #{x 1147}#)
- (if (= (vector-length #{x 1147}#) 4)
- (eq? (vector-ref #{x 1147}# 0) 'syntax-object)
+ #{expression 1145}#
+ #{wrap 1146}#
+ #{module 1147}#)))
+ (#{syntax-object? 311}#
+ (lambda (#{x 1151}#)
+ (if (vector? #{x 1151}#)
+ (if (= (vector-length #{x 1151}#) 4)
+ (eq? (vector-ref #{x 1151}# 0) 'syntax-object)
#f)
#f)))
- (#{syntax-object-expression 309}#
- (lambda (#{x 1152}#) (vector-ref #{x 1152}# 1)))
- (#{syntax-object-wrap 311}#
- (lambda (#{x 1154}#) (vector-ref #{x 1154}# 2)))
- (#{syntax-object-module 313}#
- (lambda (#{x 1156}#) (vector-ref #{x 1156}# 3)))
- (#{source-annotation 322}#
- (lambda (#{x 1170}#)
- (if (#{syntax-object? 307}# #{x 1170}#)
- (#{source-annotation 322}#
- (#{syntax-object-expression 309}# #{x 1170}#))
- (if (pair? #{x 1170}#)
+ (#{syntax-object-expression 313}#
+ (lambda (#{x 1156}#) (vector-ref #{x 1156}# 1)))
+ (#{syntax-object-wrap 315}#
+ (lambda (#{x 1158}#) (vector-ref #{x 1158}# 2)))
+ (#{syntax-object-module 317}#
+ (lambda (#{x 1160}#) (vector-ref #{x 1160}# 3)))
+ (#{source-annotation 326}#
+ (lambda (#{x 1174}#)
+ (if (#{syntax-object? 311}# #{x 1174}#)
+ (#{source-annotation 326}#
+ (#{syntax-object-expression 313}# #{x 1174}#))
+ (if (pair? #{x 1174}#)
(begin
- (let ((#{props 1177}# (source-properties #{x 1170}#)))
- (if (pair? #{props 1177}#) #{props 1177}# #f)))
+ (let ((#{props 1181}# (source-properties #{x 1174}#)))
+ (if (pair? #{props 1181}#) #{props 1181}# #f)))
#f))))
- (#{extend-env 332}#
- (lambda (#{labels 1179}# #{bindings 1180}# #{r 1181}#)
- (if (null? #{labels 1179}#)
- #{r 1181}#
- (#{extend-env 332}#
- (cdr #{labels 1179}#)
- (cdr #{bindings 1180}#)
- (cons (cons (car #{labels 1179}#)
- (car #{bindings 1180}#))
- #{r 1181}#)))))
- (#{extend-var-env 334}#
- (lambda (#{labels 1185}# #{vars 1186}# #{r 1187}#)
- (if (null? #{labels 1185}#)
- #{r 1187}#
- (#{extend-var-env 334}#
- (cdr #{labels 1185}#)
- (cdr #{vars 1186}#)
- (cons (cons (car #{labels 1185}#)
- (cons 'lexical (car #{vars 1186}#)))
- #{r 1187}#)))))
- (#{macros-only-env 336}#
- (lambda (#{r 1192}#)
- (if (null? #{r 1192}#)
+ (#{extend-env 336}#
+ (lambda (#{labels 1183}# #{bindings 1184}# #{r 1185}#)
+ (if (null? #{labels 1183}#)
+ #{r 1185}#
+ (#{extend-env 336}#
+ (cdr #{labels 1183}#)
+ (cdr #{bindings 1184}#)
+ (cons (cons (car #{labels 1183}#)
+ (car #{bindings 1184}#))
+ #{r 1185}#)))))
+ (#{extend-var-env 338}#
+ (lambda (#{labels 1189}# #{vars 1190}# #{r 1191}#)
+ (if (null? #{labels 1189}#)
+ #{r 1191}#
+ (#{extend-var-env 338}#
+ (cdr #{labels 1189}#)
+ (cdr #{vars 1190}#)
+ (cons (cons (car #{labels 1189}#)
+ (cons 'lexical (car #{vars 1190}#)))
+ #{r 1191}#)))))
+ (#{macros-only-env 340}#
+ (lambda (#{r 1196}#)
+ (if (null? #{r 1196}#)
'()
(begin
- (let ((#{a 1195}# (car #{r 1192}#)))
- (if (eq? (car (cdr #{a 1195}#)) 'macro)
- (cons #{a 1195}#
- (#{macros-only-env 336}# (cdr #{r 1192}#)))
- (#{macros-only-env 336}# (cdr #{r 1192}#))))))))
- (#{lookup 338}#
- (lambda (#{x 1196}# #{r 1197}# #{mod 1198}#)
+ (let ((#{a 1199}# (car #{r 1196}#)))
+ (if (eq? (car (cdr #{a 1199}#)) 'macro)
+ (cons #{a 1199}#
+ (#{macros-only-env 340}# (cdr #{r 1196}#)))
+ (#{macros-only-env 340}# (cdr #{r 1196}#))))))))
+ (#{lookup 342}#
+ (lambda (#{x 1200}# #{r 1201}# #{mod 1202}#)
(begin
- (let ((#{t 1204}# (assq #{x 1196}# #{r 1197}#)))
- (if #{t 1204}#
- (cdr #{t 1204}#)
- (if (symbol? #{x 1196}#)
+ (let ((#{t 1208}# (assq #{x 1200}# #{r 1201}#)))
+ (if #{t 1208}#
+ (cdr #{t 1208}#)
+ (if (symbol? #{x 1200}#)
(begin
- (let ((#{t 1210}#
- (#{get-global-definition-hook 258}#
- #{x 1196}#
- #{mod 1198}#)))
- (if #{t 1210}# #{t 1210}# '(global))))
+ (let ((#{t 1214}#
+ (#{get-global-definition-hook 262}#
+ #{x 1200}#
+ #{mod 1202}#)))
+ (if #{t 1214}# #{t 1214}# '(global))))
'(displaced-lexical)))))))
- (#{global-extend 340}#
- (lambda (#{type 1215}# #{sym 1216}# #{val 1217}#)
- (#{put-global-definition-hook 256}#
- #{sym 1216}#
- #{type 1215}#
- #{val 1217}#)))
- (#{nonsymbol-id? 342}#
- (lambda (#{x 1221}#)
- (if (#{syntax-object? 307}# #{x 1221}#)
+ (#{global-extend 344}#
+ (lambda (#{type 1219}# #{sym 1220}# #{val 1221}#)
+ (#{put-global-definition-hook 260}#
+ #{sym 1220}#
+ #{type 1219}#
+ #{val 1221}#)))
+ (#{nonsymbol-id? 346}#
+ (lambda (#{x 1225}#)
+ (if (#{syntax-object? 311}# #{x 1225}#)
(symbol?
- (#{syntax-object-expression 309}# #{x 1221}#))
+ (#{syntax-object-expression 313}# #{x 1225}#))
#f)))
- (#{id? 344}#
- (lambda (#{x 1225}#)
- (if (symbol? #{x 1225}#)
+ (#{id? 348}#
+ (lambda (#{x 1229}#)
+ (if (symbol? #{x 1229}#)
#t
- (if (#{syntax-object? 307}# #{x 1225}#)
+ (if (#{syntax-object? 311}# #{x 1229}#)
(symbol?
- (#{syntax-object-expression 309}# #{x 1225}#))
+ (#{syntax-object-expression 313}# #{x 1229}#))
#f))))
- (#{id-sym-name&marks 348}#
- (lambda (#{x 1232}# #{w 1233}#)
- (if (#{syntax-object? 307}# #{x 1232}#)
+ (#{id-sym-name&marks 352}#
+ (lambda (#{x 1236}# #{w 1237}#)
+ (if (#{syntax-object? 311}# #{x 1236}#)
(values
- (#{syntax-object-expression 309}# #{x 1232}#)
- (#{join-marks 402}#
- (car #{w 1233}#)
- (car (#{syntax-object-wrap 311}# #{x 1232}#))))
- (values #{x 1232}# (car #{w 1233}#)))))
- (#{gen-label 362}#
+ (#{syntax-object-expression 313}# #{x 1236}#)
+ (#{join-marks 406}#
+ (car #{w 1237}#)
+ (car (#{syntax-object-wrap 315}# #{x 1236}#))))
+ (values #{x 1236}# (car #{w 1237}#)))))
+ (#{gen-label 366}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels 364}#
- (lambda (#{ls 1239}#)
- (if (null? #{ls 1239}#)
+ (#{gen-labels 368}#
+ (lambda (#{ls 1243}#)
+ (if (null? #{ls 1243}#)
'()
- (cons (#{gen-label 362}#)
- (#{gen-labels 364}# (cdr #{ls 1239}#))))))
- (#{make-ribcage 367}#
- (lambda (#{symnames 1241}#
- #{marks 1242}#
- #{labels 1243}#)
+ (cons (#{gen-label 366}#)
+ (#{gen-labels 368}# (cdr #{ls 1243}#))))))
+ (#{make-ribcage 371}#
+ (lambda (#{symnames 1245}#
+ #{marks 1246}#
+ #{labels 1247}#)
(vector
'ribcage
- #{symnames 1241}#
- #{marks 1242}#
- #{labels 1243}#)))
- (#{ribcage-symnames 371}#
- (lambda (#{x 1252}#) (vector-ref #{x 1252}# 1)))
- (#{ribcage-marks 373}#
- (lambda (#{x 1254}#) (vector-ref #{x 1254}# 2)))
- (#{ribcage-labels 375}#
- (lambda (#{x 1256}#) (vector-ref #{x 1256}# 3)))
- (#{set-ribcage-symnames! 377}#
- (lambda (#{x 1258}# #{update 1259}#)
- (vector-set! #{x 1258}# 1 #{update 1259}#)))
- (#{set-ribcage-marks! 379}#
+ #{symnames 1245}#
+ #{marks 1246}#
+ #{labels 1247}#)))
+ (#{ribcage-symnames 375}#
+ (lambda (#{x 1256}#) (vector-ref #{x 1256}# 1)))
+ (#{ribcage-marks 377}#
+ (lambda (#{x 1258}#) (vector-ref #{x 1258}# 2)))
+ (#{ribcage-labels 379}#
+ (lambda (#{x 1260}#) (vector-ref #{x 1260}# 3)))
+ (#{set-ribcage-symnames! 381}#
(lambda (#{x 1262}# #{update 1263}#)
- (vector-set! #{x 1262}# 2 #{update 1263}#)))
- (#{set-ribcage-labels! 381}#
+ (vector-set! #{x 1262}# 1 #{update 1263}#)))
+ (#{set-ribcage-marks! 383}#
(lambda (#{x 1266}# #{update 1267}#)
- (vector-set! #{x 1266}# 3 #{update 1267}#)))
- (#{anti-mark 388}#
- (lambda (#{w 1270}#)
- (cons (cons #f (car #{w 1270}#))
- (cons 'shift (cdr #{w 1270}#)))))
- (#{extend-ribcage! 394}#
- (lambda (#{ribcage 1276}# #{id 1277}# #{label 1278}#)
+ (vector-set! #{x 1266}# 2 #{update 1267}#)))
+ (#{set-ribcage-labels! 385}#
+ (lambda (#{x 1270}# #{update 1271}#)
+ (vector-set! #{x 1270}# 3 #{update 1271}#)))
+ (#{anti-mark 392}#
+ (lambda (#{w 1274}#)
+ (cons (cons #f (car #{w 1274}#))
+ (cons 'shift (cdr #{w 1274}#)))))
+ (#{extend-ribcage! 398}#
+ (lambda (#{ribcage 1280}# #{id 1281}# #{label 1282}#)
(begin
- (#{set-ribcage-symnames! 377}#
- #{ribcage 1276}#
- (cons (#{syntax-object-expression 309}# #{id 1277}#)
- (#{ribcage-symnames 371}# #{ribcage 1276}#)))
- (#{set-ribcage-marks! 379}#
- #{ribcage 1276}#
- (cons (car (#{syntax-object-wrap 311}# #{id 1277}#))
- (#{ribcage-marks 373}# #{ribcage 1276}#)))
- (#{set-ribcage-labels! 381}#
- #{ribcage 1276}#
- (cons #{label 1278}#
- (#{ribcage-labels 375}# #{ribcage 1276}#))))))
- (#{make-binding-wrap 396}#
- (lambda (#{ids 1283}# #{labels 1284}# #{w 1285}#)
- (if (null? #{ids 1283}#)
- #{w 1285}#
- (cons (car #{w 1285}#)
+ (#{set-ribcage-symnames! 381}#
+ #{ribcage 1280}#
+ (cons (#{syntax-object-expression 313}# #{id 1281}#)
+ (#{ribcage-symnames 375}# #{ribcage 1280}#)))
+ (#{set-ribcage-marks! 383}#
+ #{ribcage 1280}#
+ (cons (car (#{syntax-object-wrap 315}# #{id 1281}#))
+ (#{ribcage-marks 377}# #{ribcage 1280}#)))
+ (#{set-ribcage-labels! 385}#
+ #{ribcage 1280}#
+ (cons #{label 1282}#
+ (#{ribcage-labels 379}# #{ribcage 1280}#))))))
+ (#{make-binding-wrap 400}#
+ (lambda (#{ids 1287}# #{labels 1288}# #{w 1289}#)
+ (if (null? #{ids 1287}#)
+ #{w 1289}#
+ (cons (car #{w 1289}#)
(cons (begin
- (let ((#{labelvec 1292}#
- (list->vector #{labels 1284}#)))
+ (let ((#{labelvec 1296}#
+ (list->vector #{labels 1288}#)))
(begin
- (let ((#{n 1294}#
- (vector-length #{labelvec 1292}#)))
+ (let ((#{n 1298}#
+ (vector-length #{labelvec 1296}#)))
(begin
- (let ((#{symnamevec 1297}#
- (make-vector #{n 1294}#))
- (#{marksvec 1298}#
- (make-vector #{n 1294}#)))
+ (let ((#{symnamevec 1301}#
+ (make-vector #{n 1298}#))
+ (#{marksvec 1302}#
+ (make-vector #{n 1298}#)))
(begin
(letrec*
- ((#{f 1302}#
- (lambda (#{ids 1303}# #{i 1304}#)
- (if (not (null? #{ids 1303}#))
+ ((#{f 1306}#
+ (lambda (#{ids 1307}# #{i 1308}#)
+ (if (not (null? #{ids 1307}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks 348}#
- (car #{ids 1303}#)
- #{w 1285}#))
- (lambda (#{symname 1305}#
- #{marks 1306}#)
+ (#{id-sym-name&marks 352}#
+ (car #{ids 1307}#)
+ #{w 1289}#))
+ (lambda (#{symname 1309}#
+ #{marks 1310}#)
(begin
(vector-set!
- #{symnamevec 1297}#
- #{i 1304}#
- #{symname 1305}#)
+ #{symnamevec 1301}#
+ #{i 1308}#
+ #{symname 1309}#)
(vector-set!
- #{marksvec 1298}#
- #{i 1304}#
- #{marks 1306}#)
- (#{f 1302}#
- (cdr #{ids 1303}#)
- (#{1+}# #{i 1304}#)))))))))
- (begin (#{f 1302}# #{ids 1283}# 0)))
- (#{make-ribcage 367}#
- #{symnamevec 1297}#
- #{marksvec 1298}#
- #{labelvec 1292}#))))))))
- (cdr #{w 1285}#))))))
- (#{smart-append 398}#
- (lambda (#{m1 1311}# #{m2 1312}#)
- (if (null? #{m2 1312}#)
- #{m1 1311}#
- (append #{m1 1311}# #{m2 1312}#))))
- (#{join-wraps 400}#
- (lambda (#{w1 1315}# #{w2 1316}#)
+ #{marksvec 1302}#
+ #{i 1308}#
+ #{marks 1310}#)
+ (#{f 1306}#
+ (cdr #{ids 1307}#)
+ (#{1+}# #{i 1308}#)))))))))
+ (begin (#{f 1306}# #{ids 1287}# 0)))
+ (#{make-ribcage 371}#
+ #{symnamevec 1301}#
+ #{marksvec 1302}#
+ #{labelvec 1296}#))))))))
+ (cdr #{w 1289}#))))))
+ (#{smart-append 402}#
+ (lambda (#{m1 1315}# #{m2 1316}#)
+ (if (null? #{m2 1316}#)
+ #{m1 1315}#
+ (append #{m1 1315}# #{m2 1316}#))))
+ (#{join-wraps 404}#
+ (lambda (#{w1 1319}# #{w2 1320}#)
(begin
- (let ((#{m1 1321}# (car #{w1 1315}#))
- (#{s1 1322}# (cdr #{w1 1315}#)))
- (if (null? #{m1 1321}#)
- (if (null? #{s1 1322}#)
- #{w2 1316}#
- (cons (car #{w2 1316}#)
- (#{smart-append 398}#
- #{s1 1322}#
- (cdr #{w2 1316}#))))
- (cons (#{smart-append 398}#
- #{m1 1321}#
- (car #{w2 1316}#))
- (#{smart-append 398}#
- #{s1 1322}#
- (cdr #{w2 1316}#))))))))
- (#{join-marks 402}#
- (lambda (#{m1 1331}# #{m2 1332}#)
- (#{smart-append 398}# #{m1 1331}# #{m2 1332}#)))
- (#{same-marks? 404}#
- (lambda (#{x 1335}# #{y 1336}#)
- (begin
- (let ((#{t 1341}# (eq? #{x 1335}# #{y 1336}#)))
- (if #{t 1341}#
- #{t 1341}#
- (if (not (null? #{x 1335}#))
- (if (not (null? #{y 1336}#))
- (if (eq? (car #{x 1335}#) (car #{y 1336}#))
- (#{same-marks? 404}#
- (cdr #{x 1335}#)
- (cdr #{y 1336}#))
- #f)
- #f)
- #f))))))
- (#{id-var-name 406}#
- (lambda (#{id 1347}# #{w 1348}#)
+ (let ((#{m1 1325}# (car #{w1 1319}#))
+ (#{s1 1326}# (cdr #{w1 1319}#)))
+ (if (null? #{m1 1325}#)
+ (if (null? #{s1 1326}#)
+ #{w2 1320}#
+ (cons (car #{w2 1320}#)
+ (#{smart-append 402}#
+ #{s1 1326}#
+ (cdr #{w2 1320}#))))
+ (cons (#{smart-append 402}#
+ #{m1 1325}#
+ (car #{w2 1320}#))
+ (#{smart-append 402}#
+ #{s1 1326}#
+ (cdr #{w2 1320}#))))))))
+ (#{join-marks 406}#
+ (lambda (#{m1 1335}# #{m2 1336}#)
+ (#{smart-append 402}# #{m1 1335}# #{m2 1336}#)))
+ (#{same-marks? 408}#
+ (lambda (#{x 1339}# #{y 1340}#)
+ (if (eq? #{x 1339}# #{y 1340}#)
+ (eq? #{x 1339}# #{y 1340}#)
+ (if (not (null? #{x 1339}#))
+ (if (not (null? #{y 1340}#))
+ (if (eq? (car #{x 1339}#) (car #{y 1340}#))
+ (#{same-marks? 408}#
+ (cdr #{x 1339}#)
+ (cdr #{y 1340}#))
+ #f)
+ #f)
+ #f))))
+ (#{id-var-name 410}#
+ (lambda (#{id 1351}# #{w 1352}#)
(letrec*
- ((#{search 1354}#
- (lambda (#{sym 1370}# #{subst 1371}# #{marks 1372}#)
- (if (null? #{subst 1371}#)
- (values #f #{marks 1372}#)
+ ((#{search 1358}#
+ (lambda (#{sym 1374}# #{subst 1375}# #{marks 1376}#)
+ (if (null? #{subst 1375}#)
+ (values #f #{marks 1376}#)
(begin
- (let ((#{fst 1377}# (car #{subst 1371}#)))
- (if (eq? #{fst 1377}# 'shift)
- (#{search 1354}#
- #{sym 1370}#
- (cdr #{subst 1371}#)
- (cdr #{marks 1372}#))
+ (let ((#{fst 1381}# (car #{subst 1375}#)))
+ (if (eq? #{fst 1381}# 'shift)
+ (#{search 1358}#
+ #{sym 1374}#
+ (cdr #{subst 1375}#)
+ (cdr #{marks 1376}#))
(begin
- (let ((#{symnames 1379}#
- (#{ribcage-symnames 371}# #{fst 1377}#)))
- (if (vector? #{symnames 1379}#)
- (#{search-vector-rib 1358}#
- #{sym 1370}#
- #{subst 1371}#
- #{marks 1372}#
- #{symnames 1379}#
- #{fst 1377}#)
- (#{search-list-rib 1356}#
- #{sym 1370}#
- #{subst 1371}#
- #{marks 1372}#
- #{symnames 1379}#
- #{fst 1377}#))))))))))
- (#{search-list-rib 1356}#
- (lambda (#{sym 1380}#
- #{subst 1381}#
- #{marks 1382}#
- #{symnames 1383}#
- #{ribcage 1384}#)
+ (let ((#{symnames 1383}#
+ (#{ribcage-symnames 375}# #{fst 1381}#)))
+ (if (vector? #{symnames 1383}#)
+ (#{search-vector-rib 1362}#
+ #{sym 1374}#
+ #{subst 1375}#
+ #{marks 1376}#
+ #{symnames 1383}#
+ #{fst 1381}#)
+ (#{search-list-rib 1360}#
+ #{sym 1374}#
+ #{subst 1375}#
+ #{marks 1376}#
+ #{symnames 1383}#
+ #{fst 1381}#))))))))))
+ (#{search-list-rib 1360}#
+ (lambda (#{sym 1384}#
+ #{subst 1385}#
+ #{marks 1386}#
+ #{symnames 1387}#
+ #{ribcage 1388}#)
(letrec*
- ((#{f 1393}#
- (lambda (#{symnames 1394}# #{i 1395}#)
- (if (null? #{symnames 1394}#)
- (#{search 1354}#
- #{sym 1380}#
- (cdr #{subst 1381}#)
- #{marks 1382}#)
- (if (if (eq? (car #{symnames 1394}#) #{sym 1380}#)
- (#{same-marks? 404}#
- #{marks 1382}#
+ ((#{f 1397}#
+ (lambda (#{symnames 1398}# #{i 1399}#)
+ (if (null? #{symnames 1398}#)
+ (#{search 1358}#
+ #{sym 1384}#
+ (cdr #{subst 1385}#)
+ #{marks 1386}#)
+ (if (if (eq? (car #{symnames 1398}#) #{sym 1384}#)
+ (#{same-marks? 408}#
+ #{marks 1386}#
(list-ref
- (#{ribcage-marks 373}# #{ribcage 1384}#)
- #{i 1395}#))
+ (#{ribcage-marks 377}# #{ribcage 1388}#)
+ #{i 1399}#))
#f)
(values
(list-ref
- (#{ribcage-labels 375}# #{ribcage 1384}#)
- #{i 1395}#)
- #{marks 1382}#)
- (#{f 1393}#
- (cdr #{symnames 1394}#)
- (#{1+}# #{i 1395}#)))))))
- (begin (#{f 1393}# #{symnames 1383}# 0)))))
- (#{search-vector-rib 1358}#
- (lambda (#{sym 1404}#
- #{subst 1405}#
- #{marks 1406}#
- #{symnames 1407}#
- #{ribcage 1408}#)
+ (#{ribcage-labels 379}# #{ribcage 1388}#)
+ #{i 1399}#)
+ #{marks 1386}#)
+ (#{f 1397}#
+ (cdr #{symnames 1398}#)
+ (#{1+}# #{i 1399}#)))))))
+ (begin (#{f 1397}# #{symnames 1387}# 0)))))
+ (#{search-vector-rib 1362}#
+ (lambda (#{sym 1408}#
+ #{subst 1409}#
+ #{marks 1410}#
+ #{symnames 1411}#
+ #{ribcage 1412}#)
(begin
- (let ((#{n 1415}# (vector-length #{symnames 1407}#)))
+ (let ((#{n 1419}# (vector-length #{symnames 1411}#)))
(letrec*
- ((#{f 1418}#
- (lambda (#{i 1419}#)
- (if (= #{i 1419}# #{n 1415}#)
- (#{search 1354}#
- #{sym 1404}#
- (cdr #{subst 1405}#)
- #{marks 1406}#)
+ ((#{f 1422}#
+ (lambda (#{i 1423}#)
+ (if (= #{i 1423}# #{n 1419}#)
+ (#{search 1358}#
+ #{sym 1408}#
+ (cdr #{subst 1409}#)
+ #{marks 1410}#)
(if (if (eq? (vector-ref
- #{symnames 1407}#
- #{i 1419}#)
- #{sym 1404}#)
- (#{same-marks? 404}#
- #{marks 1406}#
+ #{symnames 1411}#
+ #{i 1423}#)
+ #{sym 1408}#)
+ (#{same-marks? 408}#
+ #{marks 1410}#
(vector-ref
- (#{ribcage-marks 373}# #{ribcage 1408}#)
- #{i 1419}#))
+ (#{ribcage-marks 377}# #{ribcage 1412}#)
+ #{i 1423}#))
#f)
(values
(vector-ref
- (#{ribcage-labels 375}# #{ribcage 1408}#)
- #{i 1419}#)
- #{marks 1406}#)
- (#{f 1418}# (#{1+}# #{i 1419}#)))))))
- (begin (#{f 1418}# 0))))))))
+ (#{ribcage-labels 379}# #{ribcage 1412}#)
+ #{i 1423}#)
+ #{marks 1410}#)
+ (#{f 1422}# (#{1+}# #{i 1423}#)))))))
+ (begin (#{f 1422}# 0))))))))
(begin
- (if (symbol? #{id 1347}#)
+ (if (symbol? #{id 1351}#)
(begin
- (let ((#{t 1431}#
- (#{search 1354}#
- #{id 1347}#
- (cdr #{w 1348}#)
- (car #{w 1348}#))))
- (if #{t 1431}# #{t 1431}# #{id 1347}#)))
- (if (#{syntax-object? 307}# #{id 1347}#)
+ (let ((#{t 1435}#
+ (#{search 1358}#
+ #{id 1351}#
+ (cdr #{w 1352}#)
+ (car #{w 1352}#))))
+ (if #{t 1435}# #{t 1435}# #{id 1351}#)))
+ (if (#{syntax-object? 311}# #{id 1351}#)
(begin
- (let ((#{id 1440}#
- (#{syntax-object-expression 309}# #{id 1347}#))
- (#{w1 1441}#
- (#{syntax-object-wrap 311}# #{id 1347}#)))
+ (let ((#{id 1444}#
+ (#{syntax-object-expression 313}# #{id 1351}#))
+ (#{w1 1445}#
+ (#{syntax-object-wrap 315}# #{id 1351}#)))
(begin
- (let ((#{marks 1443}#
- (#{join-marks 402}#
- (car #{w 1348}#)
- (car #{w1 1441}#))))
+ (let ((#{marks 1447}#
+ (#{join-marks 406}#
+ (car #{w 1352}#)
+ (car #{w1 1445}#))))
(call-with-values
(lambda ()
- (#{search 1354}#
- #{id 1440}#
- (cdr #{w 1348}#)
- #{marks 1443}#))
- (lambda (#{new-id 1447}# #{marks 1448}#)
- (begin
- (let ((#{t 1453}# #{new-id 1447}#))
- (if #{t 1453}#
- #{t 1453}#
- (begin
- (let ((#{t 1456}#
- (#{search 1354}#
- #{id 1440}#
- (cdr #{w1 1441}#)
- #{marks 1448}#)))
- (if #{t 1456}#
- #{t 1456}#
- #{id 1440}#))))))))))))
+ (#{search 1358}#
+ #{id 1444}#
+ (cdr #{w 1352}#)
+ #{marks 1447}#))
+ (lambda (#{new-id 1451}# #{marks 1452}#)
+ (if #{new-id 1451}#
+ #{new-id 1451}#
+ (begin
+ (let ((#{t 1460}#
+ (#{search 1358}#
+ #{id 1444}#
+ (cdr #{w1 1445}#)
+ #{marks 1452}#)))
+ (if #{t 1460}#
+ #{t 1460}#
+ #{id 1444}#))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 1347}#)))))))
- (#{free-id=? 408}#
- (lambda (#{i 1461}# #{j 1462}#)
- (if (eq? (begin
- (let ((#{x 1468}# #{i 1461}#))
- (if (#{syntax-object? 307}# #{x 1468}#)
- (#{syntax-object-expression 309}# #{x 1468}#)
- #{x 1468}#)))
- (begin
- (let ((#{x 1471}# #{j 1462}#))
- (if (#{syntax-object? 307}# #{x 1471}#)
- (#{syntax-object-expression 309}# #{x 1471}#)
- #{x 1471}#))))
- (eq? (#{id-var-name 406}# #{i 1461}# '(()))
- (#{id-var-name 406}# #{j 1462}# '(())))
+ #{id 1351}#)))))))
+ (#{free-id=? 412}#
+ (lambda (#{i 1465}# #{j 1466}#)
+ (if (eq? (if (#{syntax-object? 311}# #{i 1465}#)
+ (#{syntax-object-expression 313}# #{i 1465}#)
+ #{i 1465}#)
+ (if (#{syntax-object? 311}# #{j 1466}#)
+ (#{syntax-object-expression 313}# #{j 1466}#)
+ #{j 1466}#))
+ (eq? (#{id-var-name 410}# #{i 1465}# '(()))
+ (#{id-var-name 410}# #{j 1466}# '(())))
#f)))
- (#{bound-id=? 410}#
- (lambda (#{i 1475}# #{j 1476}#)
- (if (if (#{syntax-object? 307}# #{i 1475}#)
- (#{syntax-object? 307}# #{j 1476}#)
+ (#{bound-id=? 414}#
+ (lambda (#{i 1479}# #{j 1480}#)
+ (if (if (#{syntax-object? 311}# #{i 1479}#)
+ (#{syntax-object? 311}# #{j 1480}#)
#f)
- (if (eq? (#{syntax-object-expression 309}# #{i 1475}#)
- (#{syntax-object-expression 309}# #{j 1476}#))
- (#{same-marks? 404}#
- (car (#{syntax-object-wrap 311}# #{i 1475}#))
- (car (#{syntax-object-wrap 311}# #{j 1476}#)))
+ (if (eq? (#{syntax-object-expression 313}# #{i 1479}#)
+ (#{syntax-object-expression 313}# #{j 1480}#))
+ (#{same-marks? 408}#
+ (car (#{syntax-object-wrap 315}# #{i 1479}#))
+ (car (#{syntax-object-wrap 315}# #{j 1480}#)))
#f)
- (eq? #{i 1475}# #{j 1476}#))))
- (#{valid-bound-ids? 412}#
- (lambda (#{ids 1485}#)
+ (eq? #{i 1479}# #{j 1480}#))))
+ (#{valid-bound-ids? 416}#
+ (lambda (#{ids 1489}#)
(if (letrec*
- ((#{all-ids? 1490}#
- (lambda (#{ids 1491}#)
- (begin
- (let ((#{t 1494}# (null? #{ids 1491}#)))
- (if #{t 1494}#
- #{t 1494}#
- (if (#{id? 344}# (car #{ids 1491}#))
- (#{all-ids? 1490}# (cdr #{ids 1491}#))
- #f)))))))
- (begin (#{all-ids? 1490}# #{ids 1485}#)))
- (#{distinct-bound-ids? 414}# #{ids 1485}#)
+ ((#{all-ids? 1494}#
+ (lambda (#{ids 1495}#)
+ (if (null? #{ids 1495}#)
+ (null? #{ids 1495}#)
+ (if (#{id? 348}# (car #{ids 1495}#))
+ (#{all-ids? 1494}# (cdr #{ids 1495}#))
+ #f)))))
+ (begin (#{all-ids? 1494}# #{ids 1489}#)))
+ (#{distinct-bound-ids? 418}# #{ids 1489}#)
#f)))
- (#{distinct-bound-ids? 414}#
- (lambda (#{ids 1499}#)
+ (#{distinct-bound-ids? 418}#
+ (lambda (#{ids 1503}#)
(letrec*
- ((#{distinct? 1503}#
- (lambda (#{ids 1504}#)
- (begin
- (let ((#{t 1507}# (null? #{ids 1504}#)))
- (if #{t 1507}#
- #{t 1507}#
- (if (not (#{bound-id-member? 416}#
- (car #{ids 1504}#)
- (cdr #{ids 1504}#)))
- (#{distinct? 1503}# (cdr #{ids 1504}#))
- #f)))))))
- (begin (#{distinct? 1503}# #{ids 1499}#)))))
- (#{bound-id-member? 416}#
- (lambda (#{x 1511}# #{list 1512}#)
- (if (not (null? #{list 1512}#))
+ ((#{distinct? 1507}#
+ (lambda (#{ids 1508}#)
+ (if (null? #{ids 1508}#)
+ (null? #{ids 1508}#)
+ (if (not (#{bound-id-member? 420}#
+ (car #{ids 1508}#)
+ (cdr #{ids 1508}#)))
+ (#{distinct? 1507}# (cdr #{ids 1508}#))
+ #f)))))
+ (begin (#{distinct? 1507}# #{ids 1503}#)))))
+ (#{bound-id-member? 420}#
+ (lambda (#{x 1515}# #{list 1516}#)
+ (if (not (null? #{list 1516}#))
(begin
- (let ((#{t 1519}#
- (#{bound-id=? 410}#
- #{x 1511}#
- (car #{list 1512}#))))
- (if #{t 1519}#
- #{t 1519}#
- (#{bound-id-member? 416}#
- #{x 1511}#
- (cdr #{list 1512}#)))))
+ (let ((#{t 1523}#
+ (#{bound-id=? 414}#
+ #{x 1515}#
+ (car #{list 1516}#))))
+ (if #{t 1523}#
+ #{t 1523}#
+ (#{bound-id-member? 420}#
+ #{x 1515}#
+ (cdr #{list 1516}#)))))
#f)))
- (#{wrap 418}#
- (lambda (#{x 1521}# #{w 1522}# #{defmod 1523}#)
- (if (if (null? (car #{w 1522}#))
- (null? (cdr #{w 1522}#))
+ (#{wrap 422}#
+ (lambda (#{x 1525}# #{w 1526}# #{defmod 1527}#)
+ (if (if (null? (car #{w 1526}#))
+ (null? (cdr #{w 1526}#))
#f)
- #{x 1521}#
- (if (#{syntax-object? 307}# #{x 1521}#)
- (#{make-syntax-object 305}#
- (#{syntax-object-expression 309}# #{x 1521}#)
- (#{join-wraps 400}#
- #{w 1522}#
- (#{syntax-object-wrap 311}# #{x 1521}#))
- (#{syntax-object-module 313}# #{x 1521}#))
- (if (null? #{x 1521}#)
- #{x 1521}#
- (#{make-syntax-object 305}#
- #{x 1521}#
- #{w 1522}#
- #{defmod 1523}#))))))
- (#{source-wrap 420}#
- (lambda (#{x 1538}#
- #{w 1539}#
- #{s 1540}#
- #{defmod 1541}#)
- (#{wrap 418}#
- (#{decorate-source 260}# #{x 1538}# #{s 1540}#)
- #{w 1539}#
- #{defmod 1541}#)))
- (#{chi-sequence 422}#
- (lambda (#{body 1546}#
- #{r 1547}#
- #{w 1548}#
- #{s 1549}#
- #{mod 1550}#)
- (#{build-sequence 294}#
- #{s 1549}#
+ #{x 1525}#
+ (if (#{syntax-object? 311}# #{x 1525}#)
+ (#{make-syntax-object 309}#
+ (#{syntax-object-expression 313}# #{x 1525}#)
+ (#{join-wraps 404}#
+ #{w 1526}#
+ (#{syntax-object-wrap 315}# #{x 1525}#))
+ (#{syntax-object-module 317}# #{x 1525}#))
+ (if (null? #{x 1525}#)
+ #{x 1525}#
+ (#{make-syntax-object 309}#
+ #{x 1525}#
+ #{w 1526}#
+ #{defmod 1527}#))))))
+ (#{source-wrap 424}#
+ (lambda (#{x 1542}#
+ #{w 1543}#
+ #{s 1544}#
+ #{defmod 1545}#)
+ (#{wrap 422}#
+ (#{decorate-source 264}# #{x 1542}# #{s 1544}#)
+ #{w 1543}#
+ #{defmod 1545}#)))
+ (#{chi-sequence 426}#
+ (lambda (#{body 1550}#
+ #{r 1551}#
+ #{w 1552}#
+ #{s 1553}#
+ #{mod 1554}#)
+ (#{build-sequence 298}#
+ #{s 1553}#
(letrec*
- ((#{dobody 1561}#
- (lambda (#{body 1562}#
- #{r 1563}#
- #{w 1564}#
- #{mod 1565}#)
- (if (null? #{body 1562}#)
+ ((#{dobody 1565}#
+ (lambda (#{body 1566}#
+ #{r 1567}#
+ #{w 1568}#
+ #{mod 1569}#)
+ (if (null? #{body 1566}#)
'()
(begin
- (let ((#{first 1567}#
- (#{chi 432}#
- (car #{body 1562}#)
- #{r 1563}#
- #{w 1564}#
- #{mod 1565}#)))
- (cons #{first 1567}#
- (#{dobody 1561}#
- (cdr #{body 1562}#)
- #{r 1563}#
- #{w 1564}#
- #{mod 1565}#))))))))
+ (let ((#{first 1571}#
+ (#{chi 436}#
+ (car #{body 1566}#)
+ #{r 1567}#
+ #{w 1568}#
+ #{mod 1569}#)))
+ (cons #{first 1571}#
+ (#{dobody 1565}#
+ (cdr #{body 1566}#)
+ #{r 1567}#
+ #{w 1568}#
+ #{mod 1569}#))))))))
(begin
- (#{dobody 1561}#
- #{body 1546}#
- #{r 1547}#
- #{w 1548}#
- #{mod 1550}#))))))
- (#{chi-top-sequence 424}#
- (lambda (#{body 1568}#
- #{r 1569}#
- #{w 1570}#
- #{s 1571}#
- #{m 1572}#
- #{esew 1573}#
- #{mod 1574}#)
+ (#{dobody 1565}#
+ #{body 1550}#
+ #{r 1551}#
+ #{w 1552}#
+ #{mod 1554}#))))))
+ (#{chi-top-sequence 428}#
+ (lambda (#{body 1572}#
+ #{r 1573}#
+ #{w 1574}#
+ #{s 1575}#
+ #{m 1576}#
+ #{esew 1577}#
+ #{mod 1578}#)
(letrec*
- ((#{scan 1583}#
- (lambda (#{body 1584}#
- #{r 1585}#
- #{w 1586}#
- #{s 1587}#
- #{m 1588}#
- #{esew 1589}#
- #{mod 1590}#
- #{exps 1591}#)
- (if (null? #{body 1584}#)
- #{exps 1591}#
+ ((#{scan 1587}#
+ (lambda (#{body 1588}#
+ #{r 1589}#
+ #{w 1590}#
+ #{s 1591}#
+ #{m 1592}#
+ #{esew 1593}#
+ #{mod 1594}#
+ #{exps 1595}#)
+ (if (null? #{body 1588}#)
+ #{exps 1595}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
(begin
- (let ((#{e 1604}# (car #{body 1584}#)))
- (#{syntax-type 430}#
- #{e 1604}#
- #{r 1585}#
- #{w 1586}#
+ (let ((#{e 1608}# (car #{body 1588}#)))
+ (#{syntax-type 434}#
+ #{e 1608}#
+ #{r 1589}#
+ #{w 1590}#
(begin
- (let ((#{t 1607}#
- (#{source-annotation 322}#
- #{e 1604}#)))
- (if #{t 1607}# #{t 1607}# #{s 1587}#)))
+ (let ((#{t 1611}#
+ (#{source-annotation 326}#
+ #{e 1608}#)))
+ (if #{t 1611}# #{t 1611}# #{s 1591}#)))
#f
- #{mod 1590}#
+ #{mod 1594}#
#f))))
- (lambda (#{type 1609}#
- #{value 1610}#
- #{e 1611}#
- #{w 1612}#
- #{s 1613}#
- #{mod 1614}#)
- (if (eqv? #{type 1609}# 'begin-form)
- (let ((#{tmp 1622}# #{e 1611}#))
- (let ((#{tmp 1623}#
- ($sc-dispatch #{tmp 1622}# '(_))))
- (if #{tmp 1623}#
- (@apply (lambda () #{exps 1591}#) #{tmp 1623}#)
- (let ((#{tmp 1624}#
- ($sc-dispatch
- #{tmp 1622}#
- '(_ any . each-any))))
- (if #{tmp 1624}#
- (@apply
- (lambda (#{e1 1627}# #{e2 1628}#)
- (#{scan 1583}#
- (cons #{e1 1627}# #{e2 1628}#)
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
- #{m 1588}#
- #{esew 1589}#
- #{mod 1614}#
- #{exps 1591}#))
- #{tmp 1624}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{tmp 1622}#))))))
- (if (eqv? #{type 1609}# 'local-syntax-form)
- (#{chi-local-syntax 442}#
- #{value 1610}#
- #{e 1611}#
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
- #{mod 1614}#
- (lambda (#{body 1631}#
- #{r 1632}#
- #{w 1633}#
- #{s 1634}#
- #{mod 1635}#)
- (#{scan 1583}#
- #{body 1631}#
- #{r 1632}#
- #{w 1633}#
- #{s 1634}#
- #{m 1588}#
- #{esew 1589}#
- #{mod 1635}#
- #{exps 1591}#)))
- (if (eqv? #{type 1609}# 'eval-when-form)
- (let ((#{tmp 1642}# #{e 1611}#))
- (let ((#{tmp 1643}#
+ (lambda (#{type 1613}#
+ #{value 1614}#
+ #{e 1615}#
+ #{w 1616}#
+ #{s 1617}#
+ #{mod 1618}#)
+ (if (eqv? #{type 1613}# 'begin-form)
+ (begin
+ (let ((#{tmp 1627}#
+ ($sc-dispatch #{e 1615}# '(_))))
+ (if #{tmp 1627}#
+ (@apply (lambda () #{exps 1595}#) #{tmp 1627}#)
+ (begin
+ (let ((#{tmp 1628}#
+ ($sc-dispatch
+ #{e 1615}#
+ '(_ any . each-any))))
+ (if #{tmp 1628}#
+ (@apply
+ (lambda (#{e1 1631}# #{e2 1632}#)
+ (#{scan 1587}#
+ (cons #{e1 1631}# #{e2 1632}#)
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ #{m 1592}#
+ #{esew 1593}#
+ #{mod 1618}#
+ #{exps 1595}#))
+ #{tmp 1628}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 1615}#)))))))
+ (if (eqv? #{type 1613}# 'local-syntax-form)
+ (#{chi-local-syntax 446}#
+ #{value 1614}#
+ #{e 1615}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ #{mod 1618}#
+ (lambda (#{body 1635}#
+ #{r 1636}#
+ #{w 1637}#
+ #{s 1638}#
+ #{mod 1639}#)
+ (#{scan 1587}#
+ #{body 1635}#
+ #{r 1636}#
+ #{w 1637}#
+ #{s 1638}#
+ #{m 1592}#
+ #{esew 1593}#
+ #{mod 1639}#
+ #{exps 1595}#)))
+ (if (eqv? #{type 1613}# 'eval-when-form)
+ (begin
+ (let ((#{tmp 1647}#
($sc-dispatch
- #{tmp 1642}#
+ #{e 1615}#
'(_ each-any any . each-any))))
- (if #{tmp 1643}#
+ (if #{tmp 1647}#
(@apply
- (lambda (#{x 1647}#
- #{e1 1648}#
- #{e2 1649}#)
+ (lambda (#{x 1651}#
+ #{e1 1652}#
+ #{e2 1653}#)
(begin
- (let ((#{when-list 1652}#
- (#{chi-when-list 428}#
- #{e 1611}#
- #{x 1647}#
- #{w 1612}#))
- (#{body 1653}#
- (cons #{e1 1648}#
- #{e2 1649}#)))
- (if (eq? #{m 1588}# 'e)
+ (let ((#{when-list 1656}#
+ (#{chi-when-list 432}#
+ #{e 1615}#
+ #{x 1651}#
+ #{w 1616}#))
+ (#{body 1657}#
+ (cons #{e1 1652}#
+ #{e2 1653}#)))
+ (if (eq? #{m 1592}# 'e)
(if (memq 'eval
- #{when-list 1652}#)
- (#{scan 1583}#
- #{body 1653}#
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
+ #{when-list 1656}#)
+ (#{scan 1587}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
(if (memq 'expand
- #{when-list 1652}#)
+ #{when-list 1656}#)
'c&e
'e)
'(eval)
- #{mod 1614}#
- #{exps 1591}#)
+ #{mod 1618}#
+ #{exps 1595}#)
(begin
(if (memq 'expand
- #{when-list 1652}#)
- (#{top-level-eval-hook
250}#
- (#{chi-top-sequence 424}#
- #{body 1653}#
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
+ #{when-list 1656}#)
+ (#{top-level-eval-hook
254}#
+ (#{chi-top-sequence 428}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
'e
'(eval)
- #{mod 1614}#)
- #{mod 1614}#))
- (values #{exps 1591}#)))
+ #{mod 1618}#)
+ #{mod 1618}#))
+ (values #{exps 1595}#)))
(if (memq 'load
- #{when-list 1652}#)
+ #{when-list 1656}#)
(if (begin
- (let ((#{t 1662}#
+ (let ((#{t 1666}#
(memq 'compile
-
#{when-list 1652}#)))
- (if #{t 1662}#
- #{t 1662}#
+
#{when-list 1656}#)))
+ (if #{t 1666}#
+ #{t 1666}#
(begin
- (let ((#{t 1665}#
+ (let ((#{t 1669}#
(memq
'expand
-
#{when-list 1652}#)))
- (if #{t 1665}#
- #{t 1665}#
- (if (eq? #{m
1588}#
+
#{when-list 1656}#)))
+ (if #{t 1669}#
+ #{t 1669}#
+ (if (eq? #{m
1592}#
'c&e)
(memq 'eval
-
#{when-list 1652}#)
+
#{when-list 1656}#)
#f)))))))
- (#{scan 1583}#
- #{body 1653}#
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
+ (#{scan 1587}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
'c&e
'(compile load)
- #{mod 1614}#
- #{exps 1591}#)
- (if (if (eq? #{m 1588}# 'c)
+ #{mod 1618}#
+ #{exps 1595}#)
+ (if (if (eq? #{m 1592}# 'c)
#t
- (eq? #{m 1588}# 'c&e))
- (#{scan 1583}#
- #{body 1653}#
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
+ (eq? #{m 1592}# 'c&e))
+ (#{scan 1587}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
'c
'(load)
- #{mod 1614}#
- #{exps 1591}#)
- (values #{exps 1591}#)))
+ #{mod 1618}#
+ #{exps 1595}#)
+ (values #{exps 1595}#)))
(if (begin
- (let ((#{t 1673}#
+ (let ((#{t 1677}#
(memq 'compile
-
#{when-list 1652}#)))
- (if #{t 1673}#
- #{t 1673}#
+
#{when-list 1656}#)))
+ (if #{t 1677}#
+ #{t 1677}#
(begin
- (let ((#{t 1676}#
+ (let ((#{t 1680}#
(memq
'expand
-
#{when-list 1652}#)))
- (if #{t 1676}#
- #{t 1676}#
- (if (eq? #{m
1588}#
+
#{when-list 1656}#)))
+ (if #{t 1680}#
+ #{t 1680}#
+ (if (eq? #{m
1592}#
'c&e)
(memq 'eval
-
#{when-list 1652}#)
+
#{when-list 1656}#)
#f)))))))
(begin
- (#{top-level-eval-hook
250}#
- (#{chi-top-sequence 424}#
- #{body 1653}#
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
+ (#{top-level-eval-hook
254}#
+ (#{chi-top-sequence 428}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
'e
'(eval)
- #{mod 1614}#)
- #{mod 1614}#)
- (values #{exps 1591}#))
- (values #{exps 1591}#)))))))
- #{tmp 1643}#)
+ #{mod 1618}#)
+ #{mod 1618}#)
+ (values #{exps 1595}#))
+ (values #{exps 1595}#)))))))
+ #{tmp 1647}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 1642}#))))
- (if (eqv? #{type 1609}# 'define-syntax-form)
+ #{e 1615}#))))
+ (if (eqv? #{type 1613}# 'define-syntax-form)
(begin
- (let ((#{n 1684}#
- (#{id-var-name 406}#
- #{value 1610}#
- #{w 1612}#))
- (#{r 1685}#
- (#{macros-only-env 336}#
- #{r 1585}#)))
- (if (eqv? #{m 1588}# 'c)
- (if (memq 'compile #{esew 1589}#)
+ (let ((#{n 1688}#
+ (#{id-var-name 410}#
+ #{value 1614}#
+ #{w 1616}#))
+ (#{r 1689}#
+ (#{macros-only-env 340}#
+ #{r 1589}#)))
+ (if (eqv? #{m 1592}# 'c)
+ (if (memq 'compile #{esew 1593}#)
(begin
- (let ((#{e 1688}#
- (#{chi-install-global 426}#
- #{n 1684}#
- (#{chi 432}#
- #{e 1611}#
- #{r 1685}#
- #{w 1612}#
- #{mod 1614}#))))
+ (let ((#{e 1692}#
+ (#{chi-install-global 430}#
+ #{n 1688}#
+ (#{chi 436}#
+ #{e 1615}#
+ #{r 1689}#
+ #{w 1616}#
+ #{mod 1618}#))))
(begin
- (#{top-level-eval-hook 250}#
- #{e 1688}#
- #{mod 1614}#)
- (if (memq 'load #{esew 1589}#)
+ (#{top-level-eval-hook 254}#
+ #{e 1692}#
+ #{mod 1618}#)
+ (if (memq 'load #{esew 1593}#)
(values
- (cons #{e 1688}#
- #{exps 1591}#))
- (values #{exps 1591}#)))))
- (if (memq 'load #{esew 1589}#)
+ (cons #{e 1692}#
+ #{exps 1595}#))
+ (values #{exps 1595}#)))))
+ (if (memq 'load #{esew 1593}#)
(values
- (cons (#{chi-install-global 426}#
- #{n 1684}#
- (#{chi 432}#
- #{e 1611}#
- #{r 1685}#
- #{w 1612}#
- #{mod 1614}#))
- #{exps 1591}#))
- (values #{exps 1591}#)))
- (if (eqv? #{m 1588}# 'c&e)
+ (cons (#{chi-install-global 430}#
+ #{n 1688}#
+ (#{chi 436}#
+ #{e 1615}#
+ #{r 1689}#
+ #{w 1616}#
+ #{mod 1618}#))
+ #{exps 1595}#))
+ (values #{exps 1595}#)))
+ (if (eqv? #{m 1592}# 'c&e)
(begin
- (let ((#{e 1691}#
- (#{chi-install-global 426}#
- #{n 1684}#
- (#{chi 432}#
- #{e 1611}#
- #{r 1685}#
- #{w 1612}#
- #{mod 1614}#))))
+ (let ((#{e 1695}#
+ (#{chi-install-global 430}#
+ #{n 1688}#
+ (#{chi 436}#
+ #{e 1615}#
+ #{r 1689}#
+ #{w 1616}#
+ #{mod 1618}#))))
(begin
- (#{top-level-eval-hook 250}#
- #{e 1691}#
- #{mod 1614}#)
+ (#{top-level-eval-hook 254}#
+ #{e 1695}#
+ #{mod 1618}#)
(values
- (cons #{e 1691}#
- #{exps 1591}#)))))
+ (cons #{e 1695}#
+ #{exps 1595}#)))))
(begin
- (if (memq 'eval #{esew 1589}#)
- (#{top-level-eval-hook 250}#
- (#{chi-install-global 426}#
- #{n 1684}#
- (#{chi 432}#
- #{e 1611}#
- #{r 1685}#
- #{w 1612}#
- #{mod 1614}#))
- #{mod 1614}#))
- (values #{exps 1591}#))))))
- (if (eqv? #{type 1609}# 'define-form)
+ (if (memq 'eval #{esew 1593}#)
+ (#{top-level-eval-hook 254}#
+ (#{chi-install-global 430}#
+ #{n 1688}#
+ (#{chi 436}#
+ #{e 1615}#
+ #{r 1689}#
+ #{w 1616}#
+ #{mod 1618}#))
+ #{mod 1618}#))
+ (values #{exps 1595}#))))))
+ (if (eqv? #{type 1613}# 'define-form)
(begin
- (let ((#{n 1696}#
- (#{id-var-name 406}#
- #{value 1610}#
- #{w 1612}#)))
+ (let ((#{n 1700}#
+ (#{id-var-name 410}#
+ #{value 1614}#
+ #{w 1616}#)))
(begin
- (let ((#{type 1698}#
- (car (#{lookup 338}#
- #{n 1696}#
- #{r 1585}#
- #{mod 1614}#))))
- (if (if (eqv? #{type 1698}# 'global)
+ (let ((#{type 1702}#
+ (car (#{lookup 342}#
+ #{n 1700}#
+ #{r 1589}#
+ #{mod 1618}#))))
+ (if (if (eqv? #{type 1702}# 'global)
#t
- (if (eqv? #{type 1698}# 'core)
+ (if (eqv? #{type 1702}# 'core)
#t
- (if (eqv? #{type 1698}#
+ (if (eqv? #{type 1702}#
'macro)
#t
- (eqv? #{type 1698}#
+ (eqv? #{type 1702}#
'module-ref))))
(begin
- (if (if (if (eq? #{m 1588}# 'c)
+ (if (if (if (eq? #{m 1592}# 'c)
#t
- (eq? #{m 1588}# 'c&e))
+ (eq? #{m 1592}# 'c&e))
(if (not
(module-local-variable
(current-module)
- #{n 1696}#))
+ #{n 1700}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old 1705}#
+ (let ((#{old 1709}#
(module-variable
(current-module)
- #{n 1696}#)))
+ #{n 1700}#)))
(if (if (variable?
- #{old 1705}#)
+ #{old 1709}#)
(variable-bound?
- #{old 1705}#)
+ #{old 1709}#)
#f)
(module-define!
(current-module)
- #{n 1696}#
+ #{n 1700}#
(variable-ref
- #{old 1705}#))
+ #{old 1709}#))
(module-add!
(current-module)
- #{n 1696}#
+ #{n 1700}#
(make-undefined-variable))))))
(values
- (cons (if (eq? #{m 1588}# 'c&e)
+ (cons (if (eq? #{m 1592}# 'c&e)
(begin
- (let ((#{x 1709}#
-
(#{build-global-definition 282}#
- #{s 1613}#
- #{n 1696}#
- (#{chi
432}#
- #{e
1611}#
- #{r
1585}#
- #{w
1612}#
- #{mod
1614}#))))
+ (let ((#{x 1713}#
+
(#{build-global-definition 286}#
+ #{s 1617}#
+ #{n 1700}#
+ (#{chi
436}#
+ #{e
1615}#
+ #{r
1589}#
+ #{w
1616}#
+ #{mod
1618}#))))
(begin
-
(#{top-level-eval-hook 250}#
- #{x 1709}#
- #{mod 1614}#)
- #{x 1709}#)))
+
(#{top-level-eval-hook 254}#
+ #{x 1713}#
+ #{mod 1618}#)
+ #{x 1713}#)))
(lambda ()
-
(#{build-global-definition 282}#
- #{s 1613}#
- #{n 1696}#
- (#{chi 432}#
- #{e 1611}#
- #{r 1585}#
- #{w 1612}#
- #{mod 1614}#))))
- #{exps 1591}#)))
- (if (eqv? #{type 1698}#
+
(#{build-global-definition 286}#
+ #{s 1617}#
+ #{n 1700}#
+ (#{chi 436}#
+ #{e 1615}#
+ #{r 1589}#
+ #{w 1616}#
+ #{mod 1618}#))))
+ #{exps 1595}#)))
+ (if (eqv? #{type 1702}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e 1611}#
- (#{wrap 418}#
- #{value 1610}#
- #{w 1612}#
- #{mod 1614}#))
+ #{e 1615}#
+ (#{wrap 422}#
+ #{value 1614}#
+ #{w 1616}#
+ #{mod 1618}#))
(syntax-violation
#f
"cannot define keyword at top
level"
- #{e 1611}#
- (#{wrap 418}#
- #{value 1610}#
- #{w 1612}#
- #{mod 1614}#))))))))
+ #{e 1615}#
+ (#{wrap 422}#
+ #{value 1614}#
+ #{w 1616}#
+ #{mod 1618}#))))))))
(values
- (cons (if (eq? #{m 1588}# 'c&e)
+ (cons (if (eq? #{m 1592}# 'c&e)
(begin
- (let ((#{x 1714}#
- (#{chi-expr 434}#
- #{type 1609}#
- #{value 1610}#
- #{e 1611}#
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
- #{mod 1614}#)))
+ (let ((#{x 1718}#
+ (#{chi-expr 438}#
+ #{type 1613}#
+ #{value 1614}#
+ #{e 1615}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ #{mod 1618}#)))
(begin
- (#{top-level-eval-hook 250}#
- #{x 1714}#
- #{mod 1614}#)
- #{x 1714}#)))
+ (#{top-level-eval-hook 254}#
+ #{x 1718}#
+ #{mod 1618}#)
+ #{x 1718}#)))
(lambda ()
- (#{chi-expr 434}#
- #{type 1609}#
- #{value 1610}#
- #{e 1611}#
- #{r 1585}#
- #{w 1612}#
- #{s 1613}#
- #{mod 1614}#)))
- #{exps 1591}#))))))))))
- (lambda (#{exps 1715}#)
- (#{scan 1583}#
- (cdr #{body 1584}#)
- #{r 1585}#
- #{w 1586}#
- #{s 1587}#
- #{m 1588}#
- #{esew 1589}#
- #{mod 1590}#
- #{exps 1715}#)))))))
+ (#{chi-expr 438}#
+ #{type 1613}#
+ #{value 1614}#
+ #{e 1615}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ #{mod 1618}#)))
+ #{exps 1595}#))))))))))
+ (lambda (#{exps 1719}#)
+ (#{scan 1587}#
+ (cdr #{body 1588}#)
+ #{r 1589}#
+ #{w 1590}#
+ #{s 1591}#
+ #{m 1592}#
+ #{esew 1593}#
+ #{mod 1594}#
+ #{exps 1719}#)))))))
(begin
(call-with-values
(lambda ()
- (#{scan 1583}#
- #{body 1568}#
- #{r 1569}#
- #{w 1570}#
- #{s 1571}#
- #{m 1572}#
- #{esew 1573}#
- #{mod 1574}#
+ (#{scan 1587}#
+ #{body 1572}#
+ #{r 1573}#
+ #{w 1574}#
+ #{s 1575}#
+ #{m 1576}#
+ #{esew 1577}#
+ #{mod 1578}#
'()))
- (lambda (#{exps 1717}#)
- (if (null? #{exps 1717}#)
- (#{build-void 264}# #{s 1571}#)
- (#{build-sequence 294}#
- #{s 1571}#
+ (lambda (#{exps 1721}#)
+ (if (null? #{exps 1721}#)
+ (#{build-void 268}# #{s 1575}#)
+ (#{build-sequence 298}#
+ #{s 1575}#
(letrec*
- ((#{lp 1722}#
- (lambda (#{in 1723}# #{out 1724}#)
- (if (null? #{in 1723}#)
- #{out 1724}#
+ ((#{lp 1726}#
+ (lambda (#{in 1727}# #{out 1728}#)
+ (if (null? #{in 1727}#)
+ #{out 1728}#
(begin
- (let ((#{e 1726}# (car #{in 1723}#)))
- (#{lp 1722}#
- (cdr #{in 1723}#)
- (cons (if (procedure? #{e 1726}#)
- (#{e 1726}#)
- #{e 1726}#)
- #{out 1724}#))))))))
- (begin (#{lp 1722}# #{exps 1717}# '())))))))))))
- (#{chi-install-global 426}#
- (lambda (#{name 1727}# #{e 1728}#)
- (#{build-global-definition 282}#
+ (let ((#{e 1730}# (car #{in 1727}#)))
+ (#{lp 1726}#
+ (cdr #{in 1727}#)
+ (cons (if (procedure? #{e 1730}#)
+ (#{e 1730}#)
+ #{e 1730}#)
+ #{out 1728}#))))))))
+ (begin (#{lp 1726}# #{exps 1721}# '())))))))))))
+ (#{chi-install-global 430}#
+ (lambda (#{name 1731}# #{e 1732}#)
+ (#{build-global-definition 286}#
#f
- #{name 1727}#
- (#{build-application 266}#
+ #{name 1731}#
+ (#{build-application 270}#
#f
- (#{build-primref 290}#
+ (#{build-primref 294}#
#f
'make-syntax-transformer)
- (list (#{build-data 292}# #f #{name 1727}#)
- (#{build-data 292}# #f 'macro)
- #{e 1728}#)))))
- (#{chi-when-list 428}#
- (lambda (#{e 1736}# #{when-list 1737}# #{w 1738}#)
+ (list (#{build-data 296}# #f #{name 1731}#)
+ (#{build-data 296}# #f 'macro)
+ #{e 1732}#)))))
+ (#{chi-when-list 432}#
+ (lambda (#{e 1740}# #{when-list 1741}# #{w 1742}#)
(letrec*
- ((#{f 1745}#
- (lambda (#{when-list 1746}# #{situations 1747}#)
- (if (null? #{when-list 1746}#)
- #{situations 1747}#
- (#{f 1745}#
- (cdr #{when-list 1746}#)
+ ((#{f 1749}#
+ (lambda (#{when-list 1750}# #{situations 1751}#)
+ (if (null? #{when-list 1750}#)
+ #{situations 1751}#
+ (#{f 1749}#
+ (cdr #{when-list 1750}#)
(cons (begin
- (let ((#{x 1749}# (car #{when-list 1746}#)))
- (if (#{free-id=? 408}#
- #{x 1749}#
+ (let ((#{x 1753}# (car #{when-list 1750}#)))
+ (if (#{free-id=? 412}#
+ #{x 1753}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1748"))
+ #(ribcage #(x) #((top)) #("i1752"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1742" "i1743" "i1744"))
+ #("i1746" "i1747" "i1748"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1739" "i1740" "i1741"))
+ #("i1743" "i1744" "i1745"))
#(ribcage
(lambda-var-list
gen-var
@@ -1796,7 +1703,9 @@
(top)
(top)
(top))
- ("i461"
+ ("i465"
+ "i463"
+ "i461"
"i459"
"i457"
"i455"
@@ -1829,14 +1738,14 @@
"i401"
"i399"
"i397"
- "i395"
- "i393"
- "i392"
+ "i396"
+ "i394"
+ "i391"
"i390"
+ "i389"
"i387"
"i386"
- "i385"
- "i383"
+ "i384"
"i382"
"i380"
"i378"
@@ -1844,33 +1753,33 @@
"i374"
"i372"
"i370"
- "i368"
- "i366"
- "i363"
- "i361"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
"i360"
"i358"
"i356"
+ "i355"
"i354"
- "i352"
+ "i353"
"i351"
"i350"
- "i349"
"i347"
- "i346"
+ "i345"
"i343"
"i341"
"i339"
"i337"
"i335"
+ "i334"
"i333"
"i331"
- "i330"
"i329"
- "i327"
+ "i328"
"i325"
"i324"
- "i321"
+ "i322"
"i320"
"i318"
"i316"
@@ -1879,8 +1788,8 @@
"i310"
"i308"
"i306"
- "i304"
- "i302"
+ "i303"
+ "i301"
"i299"
"i297"
"i295"
@@ -1902,18 +1811,18 @@
"i263"
"i261"
"i259"
- "i257"
+ "i258"
"i255"
- "i254"
+ "i253"
+ "i252"
"i251"
+ "i250"
"i249"
- "i248"
"i247"
- "i246"
"i245"
"i243"
- "i241"
- "i239"
+ "i240"
+ "i238"
"i236"
"i234"
"i232"
@@ -1929,36 +1838,34 @@
"i212"
"i210"
"i208"
- "i206"
- "i204"
- "i202"))
+ "i206"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i40" "i39" "i38")))
+ ("i44" "i43" "i42")))
(hygiene guile)))
'compile
- (if (#{free-id=? 408}#
- #{x 1749}#
+ (if (#{free-id=? 412}#
+ #{x 1753}#
'#(syntax-object
load
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1748"))
+ #(ribcage #(x) #((top)) #("i1752"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1742" "i1743" "i1744"))
+ #("i1746" "i1747" "i1748"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1739" "i1740" "i1741"))
+ #("i1743" "i1744" "i1745"))
#(ribcage
(lambda-var-list
gen-var
@@ -2232,7 +2139,9 @@
(top)
(top)
(top))
- ("i461"
+ ("i465"
+ "i463"
+ "i461"
"i459"
"i457"
"i455"
@@ -2265,14 +2174,14 @@
"i401"
"i399"
"i397"
- "i395"
- "i393"
- "i392"
+ "i396"
+ "i394"
+ "i391"
"i390"
+ "i389"
"i387"
"i386"
- "i385"
- "i383"
+ "i384"
"i382"
"i380"
"i378"
@@ -2280,33 +2189,33 @@
"i374"
"i372"
"i370"
- "i368"
- "i366"
- "i363"
- "i361"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
"i360"
"i358"
"i356"
+ "i355"
"i354"
- "i352"
+ "i353"
"i351"
"i350"
- "i349"
"i347"
- "i346"
+ "i345"
"i343"
"i341"
"i339"
"i337"
"i335"
+ "i334"
"i333"
"i331"
- "i330"
"i329"
- "i327"
+ "i328"
"i325"
"i324"
- "i321"
+ "i322"
"i320"
"i318"
"i316"
@@ -2315,8 +2224,8 @@
"i310"
"i308"
"i306"
- "i304"
- "i302"
+ "i303"
+ "i301"
"i299"
"i297"
"i295"
@@ -2338,18 +2247,18 @@
"i263"
"i261"
"i259"
- "i257"
+ "i258"
"i255"
- "i254"
+ "i253"
+ "i252"
"i251"
+ "i250"
"i249"
- "i248"
"i247"
- "i246"
"i245"
"i243"
- "i241"
- "i239"
+ "i240"
+ "i238"
"i236"
"i234"
"i232"
@@ -2365,36 +2274,34 @@
"i212"
"i210"
"i208"
- "i206"
- "i204"
- "i202"))
+ "i206"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i40" "i39" "i38")))
+ ("i44" "i43" "i42")))
(hygiene guile)))
'load
- (if (#{free-id=? 408}#
- #{x 1749}#
+ (if (#{free-id=? 412}#
+ #{x 1753}#
'#(syntax-object
eval
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1748"))
+ #(ribcage #(x) #((top)) #("i1752"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1742" "i1743" "i1744"))
+ #("i1746" "i1747" "i1748"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1739" "i1740" "i1741"))
+ #("i1743" "i1744" "i1745"))
#(ribcage
(lambda-var-list
gen-var
@@ -2668,7 +2575,9 @@
(top)
(top)
(top))
- ("i461"
+ ("i465"
+ "i463"
+ "i461"
"i459"
"i457"
"i455"
@@ -2701,14 +2610,14 @@
"i401"
"i399"
"i397"
- "i395"
- "i393"
- "i392"
+ "i396"
+ "i394"
+ "i391"
"i390"
+ "i389"
"i387"
"i386"
- "i385"
- "i383"
+ "i384"
"i382"
"i380"
"i378"
@@ -2716,33 +2625,33 @@
"i374"
"i372"
"i370"
- "i368"
- "i366"
- "i363"
- "i361"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
"i360"
"i358"
"i356"
+ "i355"
"i354"
- "i352"
+ "i353"
"i351"
"i350"
- "i349"
"i347"
- "i346"
+ "i345"
"i343"
"i341"
"i339"
"i337"
"i335"
+ "i334"
"i333"
"i331"
- "i330"
"i329"
- "i327"
+ "i328"
"i325"
"i324"
- "i321"
+ "i322"
"i320"
"i318"
"i316"
@@ -2751,8 +2660,8 @@
"i310"
"i308"
"i306"
- "i304"
- "i302"
+ "i303"
+ "i301"
"i299"
"i297"
"i295"
@@ -2774,18 +2683,18 @@
"i263"
"i261"
"i259"
- "i257"
+ "i258"
"i255"
- "i254"
+ "i253"
+ "i252"
"i251"
+ "i250"
"i249"
- "i248"
"i247"
- "i246"
"i245"
"i243"
- "i241"
- "i239"
+ "i240"
+ "i238"
"i236"
"i234"
"i232"
@@ -2801,36 +2710,34 @@
"i212"
"i210"
"i208"
- "i206"
- "i204"
- "i202"))
+ "i206"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i40" "i39" "i38")))
+ ("i44" "i43" "i42")))
(hygiene guile)))
'eval
- (if (#{free-id=? 408}#
- #{x 1749}#
+ (if (#{free-id=? 412}#
+ #{x 1753}#
'#(syntax-object
expand
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1748"))
+ #(ribcage #(x) #((top)) #("i1752"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1742" "i1743" "i1744"))
+ #("i1746" "i1747" "i1748"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1739" "i1740" "i1741"))
+ #("i1743" "i1744" "i1745"))
#(ribcage
(lambda-var-list
gen-var
@@ -3104,7 +3011,9 @@
(top)
(top)
(top))
- ("i461"
+ ("i465"
+ "i463"
+ "i461"
"i459"
"i457"
"i455"
@@ -3137,14 +3046,14 @@
"i401"
"i399"
"i397"
- "i395"
- "i393"
- "i392"
+ "i396"
+ "i394"
+ "i391"
"i390"
+ "i389"
"i387"
"i386"
- "i385"
- "i383"
+ "i384"
"i382"
"i380"
"i378"
@@ -3152,33 +3061,33 @@
"i374"
"i372"
"i370"
- "i368"
- "i366"
- "i363"
- "i361"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
"i360"
"i358"
"i356"
+ "i355"
"i354"
- "i352"
+ "i353"
"i351"
"i350"
- "i349"
"i347"
- "i346"
+ "i345"
"i343"
"i341"
"i339"
"i337"
"i335"
+ "i334"
"i333"
"i331"
- "i330"
"i329"
- "i327"
+ "i328"
"i325"
"i324"
- "i321"
+ "i322"
"i320"
"i318"
"i316"
@@ -3187,8 +3096,8 @@
"i310"
"i308"
"i306"
- "i304"
- "i302"
+ "i303"
+ "i301"
"i299"
"i297"
"i295"
@@ -3210,18 +3119,18 @@
"i263"
"i261"
"i259"
- "i257"
+ "i258"
"i255"
- "i254"
+ "i253"
+ "i252"
"i251"
+ "i250"
"i249"
- "i248"
"i247"
- "i246"
"i245"
"i243"
- "i241"
- "i239"
+ "i240"
+ "i238"
"i236"
"i234"
"i232"
@@ -3237,13079 +3146,27327 @@
"i212"
"i210"
"i208"
- "i206"
- "i204"
- "i202"))
+ "i206"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i40" "i39" "i38")))
+ ("i44" "i43" "i42")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e 1736}#
- (#{wrap 418}#
- #{x 1749}#
- #{w 1738}#
+ #{e 1740}#
+ (#{wrap 422}#
+ #{x 1753}#
+ #{w 1742}#
#f))))))))
- #{situations 1747}#))))))
- (begin (#{f 1745}# #{when-list 1737}# '())))))
- (#{syntax-type 430}#
- (lambda (#{e 1759}#
- #{r 1760}#
- #{w 1761}#
- #{s 1762}#
- #{rib 1763}#
- #{mod 1764}#
- #{for-car? 1765}#)
- (if (symbol? #{e 1759}#)
+ #{situations 1751}#))))))
+ (begin (#{f 1749}# #{when-list 1741}# '())))))
+ (#{syntax-type 434}#
+ (lambda (#{e 1763}#
+ #{r 1764}#
+ #{w 1765}#
+ #{s 1766}#
+ #{rib 1767}#
+ #{mod 1768}#
+ #{for-car? 1769}#)
+ (if (symbol? #{e 1763}#)
(begin
- (let ((#{n 1777}#
- (#{id-var-name 406}# #{e 1759}# #{w 1761}#)))
+ (let ((#{n 1781}#
+ (#{id-var-name 410}# #{e 1763}# #{w 1765}#)))
(begin
- (let ((#{b 1779}#
- (#{lookup 338}#
- #{n 1777}#
- #{r 1760}#
- #{mod 1764}#)))
+ (let ((#{b 1783}#
+ (#{lookup 342}#
+ #{n 1781}#
+ #{r 1764}#
+ #{mod 1768}#)))
(begin
- (let ((#{type 1781}# (car #{b 1779}#)))
- (if (eqv? #{type 1781}# 'lexical)
+ (let ((#{type 1785}# (car #{b 1783}#)))
+ (if (eqv? #{type 1785}# 'lexical)
(values
- #{type 1781}#
- (cdr #{b 1779}#)
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (if (eqv? #{type 1781}# 'global)
+ #{type 1785}#
+ (cdr #{b 1783}#)
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (if (eqv? #{type 1785}# 'global)
(values
- #{type 1781}#
- #{n 1777}#
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (if (eqv? #{type 1781}# 'macro)
- (if #{for-car? 1765}#
+ #{type 1785}#
+ #{n 1781}#
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (if (eqv? #{type 1785}# 'macro)
+ (if #{for-car? 1769}#
(values
- #{type 1781}#
- (cdr #{b 1779}#)
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (#{syntax-type 430}#
- (#{chi-macro 438}#
- (cdr #{b 1779}#)
- #{e 1759}#
- #{r 1760}#
- #{w 1761}#
- #{s 1762}#
- #{rib 1763}#
- #{mod 1764}#)
- #{r 1760}#
+ #{type 1785}#
+ (cdr #{b 1783}#)
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (#{syntax-type 434}#
+ (#{chi-macro 442}#
+ (cdr #{b 1783}#)
+ #{e 1763}#
+ #{r 1764}#
+ #{w 1765}#
+ #{s 1766}#
+ #{rib 1767}#
+ #{mod 1768}#)
+ #{r 1764}#
'(())
- #{s 1762}#
- #{rib 1763}#
- #{mod 1764}#
+ #{s 1766}#
+ #{rib 1767}#
+ #{mod 1768}#
#f))
(values
- #{type 1781}#
- (cdr #{b 1779}#)
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#))))))))))
- (if (pair? #{e 1759}#)
+ #{type 1785}#
+ (cdr #{b 1783}#)
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#))))))))))
+ (if (pair? #{e 1763}#)
(begin
- (let ((#{first 1795}# (car #{e 1759}#)))
+ (let ((#{first 1799}# (car #{e 1763}#)))
(call-with-values
(lambda ()
- (#{syntax-type 430}#
- #{first 1795}#
- #{r 1760}#
- #{w 1761}#
- #{s 1762}#
- #{rib 1763}#
- #{mod 1764}#
+ (#{syntax-type 434}#
+ #{first 1799}#
+ #{r 1764}#
+ #{w 1765}#
+ #{s 1766}#
+ #{rib 1767}#
+ #{mod 1768}#
#t))
- (lambda (#{ftype 1796}#
- #{fval 1797}#
- #{fe 1798}#
- #{fw 1799}#
- #{fs 1800}#
- #{fmod 1801}#)
- (if (eqv? #{ftype 1796}# 'lexical)
+ (lambda (#{ftype 1800}#
+ #{fval 1801}#
+ #{fe 1802}#
+ #{fw 1803}#
+ #{fs 1804}#
+ #{fmod 1805}#)
+ (if (eqv? #{ftype 1800}# 'lexical)
(values
'lexical-call
- #{fval 1797}#
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (if (eqv? #{ftype 1796}# 'global)
+ #{fval 1801}#
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (if (eqv? #{ftype 1800}# 'global)
(values
'global-call
- (#{make-syntax-object 305}#
- #{fval 1797}#
- #{w 1761}#
- #{fmod 1801}#)
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (if (eqv? #{ftype 1796}# 'macro)
- (#{syntax-type 430}#
- (#{chi-macro 438}#
- #{fval 1797}#
- #{e 1759}#
- #{r 1760}#
- #{w 1761}#
- #{s 1762}#
- #{rib 1763}#
- #{mod 1764}#)
- #{r 1760}#
+ (#{make-syntax-object 309}#
+ #{fval 1801}#
+ #{w 1765}#
+ #{fmod 1805}#)
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (if (eqv? #{ftype 1800}# 'macro)
+ (#{syntax-type 434}#
+ (#{chi-macro 442}#
+ #{fval 1801}#
+ #{e 1763}#
+ #{r 1764}#
+ #{w 1765}#
+ #{s 1766}#
+ #{rib 1767}#
+ #{mod 1768}#)
+ #{r 1764}#
'(())
- #{s 1762}#
- #{rib 1763}#
- #{mod 1764}#
- #{for-car? 1765}#)
- (if (eqv? #{ftype 1796}# 'module-ref)
+ #{s 1766}#
+ #{rib 1767}#
+ #{mod 1768}#
+ #{for-car? 1769}#)
+ (if (eqv? #{ftype 1800}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 1797}#
- #{e 1759}#
- #{r 1760}#
- #{w 1761}#))
- (lambda (#{e 1813}#
- #{r 1814}#
- #{w 1815}#
- #{s 1816}#
- #{mod 1817}#)
- (#{syntax-type 430}#
- #{e 1813}#
- #{r 1814}#
- #{w 1815}#
- #{s 1816}#
- #{rib 1763}#
- #{mod 1817}#
- #{for-car? 1765}#)))
- (if (eqv? #{ftype 1796}# 'core)
+ (#{fval 1801}#
+ #{e 1763}#
+ #{r 1764}#
+ #{w 1765}#))
+ (lambda (#{e 1817}#
+ #{r 1818}#
+ #{w 1819}#
+ #{s 1820}#
+ #{mod 1821}#)
+ (#{syntax-type 434}#
+ #{e 1817}#
+ #{r 1818}#
+ #{w 1819}#
+ #{s 1820}#
+ #{rib 1767}#
+ #{mod 1821}#
+ #{for-car? 1769}#)))
+ (if (eqv? #{ftype 1800}# 'core)
(values
'core-form
- #{fval 1797}#
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (if (eqv? #{ftype 1796}# 'local-syntax)
+ #{fval 1801}#
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (if (eqv? #{ftype 1800}# 'local-syntax)
(values
'local-syntax-form
- #{fval 1797}#
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (if (eqv? #{ftype 1796}# 'begin)
+ #{fval 1801}#
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (if (eqv? #{ftype 1800}# 'begin)
(values
'begin-form
#f
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (if (eqv? #{ftype 1796}# 'eval-when)
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (if (eqv? #{ftype 1800}# 'eval-when)
(values
'eval-when-form
#f
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (if (eqv? #{ftype 1796}# 'define)
- (let ((#{tmp 1828}# #{e 1759}#))
- (let ((#{tmp 1829}#
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (if (eqv? #{ftype 1800}# 'define)
+ (begin
+ (let ((#{tmp 1833}#
($sc-dispatch
- #{tmp 1828}#
+ #{e 1763}#
'(_ any any))))
- (if (if #{tmp 1829}#
+ (if (if #{tmp 1833}#
(@apply
- (lambda (#{name 1832}#
- #{val 1833}#)
- (#{id? 344}# #{name 1832}#))
- #{tmp 1829}#)
+ (lambda (#{name 1836}#
+ #{val 1837}#)
+ (#{id? 348}# #{name 1836}#))
+ #{tmp 1833}#)
#f)
(@apply
- (lambda (#{name 1836}#
- #{val 1837}#)
+ (lambda (#{name 1840}#
+ #{val 1841}#)
(values
'define-form
- #{name 1836}#
- #{val 1837}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#))
- #{tmp 1829}#)
- (let ((#{tmp 1838}#
- ($sc-dispatch
- #{tmp 1828}#
- '(_ (any . any)
- any
- .
- each-any))))
- (if (if #{tmp 1838}#
- (@apply
- (lambda (#{name 1843}#
- #{args 1844}#
- #{e1 1845}#
- #{e2 1846}#)
- (if (#{id? 344}#
- #{name 1843}#)
- (#{valid-bound-ids?
412}#
- (#{lambda-var-list
462}#
- #{args 1844}#))
- #f))
- #{tmp 1838}#)
- #f)
- (@apply
- (lambda (#{name 1853}#
- #{args 1854}#
- #{e1 1855}#
- #{e2 1856}#)
- (values
- 'define-form
- (#{wrap 418}#
- #{name 1853}#
- #{w 1761}#
- #{mod 1764}#)
- (#{decorate-source 260}#
- (cons '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(name
- args
- e1
- e2)
- #((top)
+ #{name 1840}#
+ #{val 1841}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#))
+ #{tmp 1833}#)
+ (begin
+ (let ((#{tmp 1842}#
+ ($sc-dispatch
+ #{e 1763}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp 1842}#
+ (@apply
+ (lambda (#{name 1847}#
+ #{args 1848}#
+ #{e1 1849}#
+ #{e2 1850}#)
+ (if (#{id? 348}#
+ #{name 1847}#)
+ (#{valid-bound-ids?
416}#
+
(#{lambda-var-list 466}#
+ #{args 1848}#))
+ #f))
+ #{tmp 1842}#)
+ #f)
+ (@apply
+ (lambda (#{name 1857}#
+ #{args 1858}#
+ #{e1 1859}#
+ #{e2 1860}#)
+ (values
+ 'define-form
+ (#{wrap 422}#
+ #{name 1857}#
+ #{w 1765}#
+ #{mod 1768}#)
+ (#{decorate-source 264}#
+ (cons '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i1853"
+ "i1854"
+ "i1855"
+
"i1856"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1806"
+ "i1807"
+ "i1808"
+ "i1809"
+ "i1810"
+
"i1811"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+
#("i1798"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+
for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1770"
+ "i1771"
+ "i1772"
+ "i1773"
+ "i1774"
+ "i1775"
+
"i1776"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene
+ guile))
+ (#{wrap 422}#
+ (cons #{args
1858}#
+ (cons
#{e1 1859}#
+
#{e2 1860}#))
+ #{w 1765}#
+ #{mod 1768}#))
+ #{s 1766}#)
+ '(())
+ #{s 1766}#
+ #{mod 1768}#))
+ #{tmp 1842}#)
+ (begin
+ (let ((#{tmp 1863}#
+ ($sc-dispatch
+ #{e 1763}#
+ '(_ any))))
+ (if (if #{tmp 1863}#
+ (@apply
+ (lambda (#{name
1865}#)
+ (#{id? 348}#
+ #{name
1865}#))
+ #{tmp 1863}#)
+ #f)
+ (@apply
+ (lambda (#{name
1867}#)
+ (values
+ 'define-form
+ (#{wrap 422}#
+ #{name 1867}#
+ #{w 1765}#
+ #{mod 1768}#)
+ '(#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1866"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1806"
+ "i1807"
+ "i1808"
+ "i1809"
+ "i1810"
+ "i1811"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1798"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1770"
+ "i1771"
+ "i1772"
+ "i1773"
+ "i1774"
+ "i1775"
+ "i1776"))
+ #(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))
- #("i1849"
- "i1850"
- "i1851"
- "i1852"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
(top)
(top)
(top)
(top)
- (top))
- #("i1802"
- "i1803"
- "i1804"
- "i1805"
- "i1806"
- "i1807"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1794"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
(top)
(top)
(top)
(top)
(top)
(top))
- #("i1766"
- "i1767"
- "i1768"
- "i1769"
- "i1770"
- "i1771"
- "i1772"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i40"
- "i39"
- "i38")))
- (hygiene
- guile))
- (#{wrap 418}#
- (cons #{args
1854}#
- (cons
#{e1 1855}#
-
#{e2 1856}#))
- #{w 1761}#
- #{mod 1764}#))
- #{s 1762}#)
- '(())
- #{s 1762}#
- #{mod 1764}#))
- #{tmp 1838}#)
- (let ((#{tmp 1859}#
- ($sc-dispatch
- #{tmp 1828}#
- '(_ any))))
- (if (if #{tmp 1859}#
- (@apply
- (lambda (#{name
1861}#)
- (#{id? 344}#
- #{name 1861}#))
- #{tmp 1859}#)
- #f)
- (@apply
- (lambda (#{name 1863}#)
- (values
- 'define-form
- (#{wrap 418}#
- #{name 1863}#
- #{w 1761}#
- #{mod 1764}#)
- '(#(syntax-object
- if
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1862"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1802"
- "i1803"
- "i1804"
- "i1805"
- "i1806"
- "i1807"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1794"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1766"
- "i1767"
- "i1768"
- "i1769"
- "i1770"
- "i1771"
- "i1772"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i40"
- "i39"
- "i38")))
- (hygiene guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1862"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1802"
- "i1803"
- "i1804"
- "i1805"
- "i1806"
- "i1807"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1794"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1766"
- "i1767"
- "i1768"
- "i1769"
- "i1770"
- "i1771"
- "i1772"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i40"
- "i39"
- "i38")))
- (hygiene guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1862"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1802"
- "i1803"
- "i1804"
- "i1805"
- "i1806"
- "i1807"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1794"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1766"
- "i1767"
- "i1768"
- "i1769"
- "i1770"
- "i1771"
- "i1772"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i40"
- "i39"
- "i38")))
- (hygiene guile)))
- '(())
- #{s 1762}#
- #{mod 1764}#))
- #{tmp 1859}#)
- (syntax-violation
- #f
- "source expression failed
to match any pattern"
- #{tmp 1828}#))))))))
- (if (eqv? #{ftype 1796}# 'define-syntax)
- (let ((#{tmp 1866}# #{e 1759}#))
- (let ((#{tmp 1867}#
- ($sc-dispatch
- #{tmp 1866}#
- '(_ any any))))
- (if (if #{tmp 1867}#
- (@apply
- (lambda (#{name 1870}#
- #{val 1871}#)
- (#{id? 344}#
- #{name 1870}#))
- #{tmp 1867}#)
- #f)
- (@apply
- (lambda (#{name 1874}#
- #{val 1875}#)
- (values
- 'define-syntax-form
- #{name 1874}#
- #{val 1875}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#))
- #{tmp 1867}#)
- (syntax-violation
- #f
- "source expression failed to
match any pattern"
- #{tmp 1866}#))))
- (values
- 'call
- #f
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)))))))))))))))
- (if (#{syntax-object? 307}# #{e 1759}#)
- (#{syntax-type 430}#
- (#{syntax-object-expression 309}# #{e 1759}#)
- #{r 1760}#
- (#{join-wraps 400}#
- #{w 1761}#
- (#{syntax-object-wrap 311}# #{e 1759}#))
- (begin
- (let ((#{t 1881}#
- (#{source-annotation 322}# #{e 1759}#)))
- (if #{t 1881}# #{t 1881}# #{s 1762}#)))
- #{rib 1763}#
- (begin
- (let ((#{t 1885}#
- (#{syntax-object-module 313}# #{e 1759}#)))
- (if #{t 1885}# #{t 1885}# #{mod 1764}#)))
- #{for-car? 1765}#)
- (if (self-evaluating? #{e 1759}#)
- (values
- 'constant
- #f
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)
- (values
- 'other
- #f
- #{e 1759}#
- #{w 1761}#
- #{s 1762}#
- #{mod 1764}#)))))))
- (#{chi 432}#
- (lambda (#{e 1890}# #{r 1891}# #{w 1892}# #{mod 1893}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 430}#
- #{e 1890}#
- #{r 1891}#
- #{w 1892}#
- (#{source-annotation 322}# #{e 1890}#)
- #f
- #{mod 1893}#
- #f))
- (lambda (#{type 1898}#
- #{value 1899}#
- #{e 1900}#
- #{w 1901}#
- #{s 1902}#
- #{mod 1903}#)
- (#{chi-expr 434}#
- #{type 1898}#
- #{value 1899}#
- #{e 1900}#
- #{r 1891}#
- #{w 1901}#
- #{s 1902}#
- #{mod 1903}#)))))
- (#{chi-expr 434}#
- (lambda (#{type 1910}#
- #{value 1911}#
- #{e 1912}#
- #{r 1913}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#)
- (if (eqv? #{type 1910}# 'lexical)
- (#{build-lexical-reference 272}#
- 'value
- #{s 1915}#
- #{e 1912}#
- #{value 1911}#)
- (if (if (eqv? #{type 1910}# 'core)
- #t
- (eqv? #{type 1910}# 'core-form))
- (#{value 1911}#
- #{e 1912}#
- #{r 1913}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#)
- (if (eqv? #{type 1910}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{value 1911}# #{e 1912}# #{r 1913}# #{w 1914}#))
- (lambda (#{e 1927}#
- #{r 1928}#
- #{w 1929}#
- #{s 1930}#
- #{mod 1931}#)
- (#{chi 432}#
- #{e 1927}#
- #{r 1928}#
- #{w 1929}#
- #{mod 1931}#)))
- (if (eqv? #{type 1910}# 'lexical-call)
- (#{chi-application 436}#
- (begin
- (let ((#{id 1939}# (car #{e 1912}#)))
- (#{build-lexical-reference 272}#
- 'fun
- (#{source-annotation 322}# #{id 1939}#)
- (if (#{syntax-object? 307}# #{id 1939}#)
- (syntax->datum #{id 1939}#)
- #{id 1939}#)
- #{value 1911}#)))
- #{e 1912}#
- #{r 1913}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#)
- (if (eqv? #{type 1910}# 'global-call)
- (#{chi-application 436}#
- (#{build-global-reference 278}#
- (#{source-annotation 322}# (car #{e 1912}#))
- (if (#{syntax-object? 307}# #{value 1911}#)
- (#{syntax-object-expression 309}# #{value 1911}#)
- #{value 1911}#)
- (if (#{syntax-object? 307}# #{value 1911}#)
- (#{syntax-object-module 313}# #{value 1911}#)
- #{mod 1916}#))
- #{e 1912}#
- #{r 1913}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#)
- (if (eqv? #{type 1910}# 'constant)
- (#{build-data 292}#
- #{s 1915}#
- (#{strip 458}#
- (#{source-wrap 420}#
- #{e 1912}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#)
- '(())))
- (if (eqv? #{type 1910}# 'global)
- (#{build-global-reference 278}#
- #{s 1915}#
- #{value 1911}#
- #{mod 1916}#)
- (if (eqv? #{type 1910}# 'call)
- (#{chi-application 436}#
- (#{chi 432}#
- (car #{e 1912}#)
- #{r 1913}#
- #{w 1914}#
- #{mod 1916}#)
- #{e 1912}#
- #{r 1913}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#)
- (if (eqv? #{type 1910}# 'begin-form)
- (let ((#{tmp 1946}# #{e 1912}#))
- (let ((#{tmp 1947}#
- ($sc-dispatch
- #{tmp 1946}#
- '(_ any . each-any))))
- (if #{tmp 1947}#
- (@apply
- (lambda (#{e1 1950}# #{e2 1951}#)
- (#{chi-sequence 422}#
- (cons #{e1 1950}# #{e2 1951}#)
- #{r 1913}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#))
- #{tmp 1947}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{tmp 1946}#))))
- (if (eqv? #{type 1910}# 'local-syntax-form)
- (#{chi-local-syntax 442}#
- #{value 1911}#
- #{e 1912}#
- #{r 1913}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#
- #{chi-sequence 422}#)
- (if (eqv? #{type 1910}# 'eval-when-form)
- (let ((#{tmp 1955}# #{e 1912}#))
- (let ((#{tmp 1956}#
- ($sc-dispatch
- #{tmp 1955}#
- '(_ each-any any . each-any))))
- (if #{tmp 1956}#
- (@apply
- (lambda (#{x 1960}#
- #{e1 1961}#
- #{e2 1962}#)
- (begin
- (let ((#{when-list 1964}#
- (#{chi-when-list 428}#
- #{e 1912}#
- #{x 1960}#
- #{w 1914}#)))
- (if (memq 'eval #{when-list 1964}#)
- (#{chi-sequence 422}#
- (cons #{e1 1961}# #{e2 1962}#)
- #{r 1913}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#)
- (#{chi-void 446}#)))))
- #{tmp 1956}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{tmp 1955}#))))
- (if (if (eqv? #{type 1910}# 'define-form)
- #t
- (eqv? #{type 1910}# 'define-syntax-form))
- (syntax-violation
- #f
- "definition in expression context"
- #{e 1912}#
- (#{wrap 418}#
- #{value 1911}#
- #{w 1914}#
- #{mod 1916}#))
- (if (eqv? #{type 1910}# 'syntax)
- (syntax-violation
- #f
- "reference to pattern variable outside
syntax form"
- (#{source-wrap 420}#
- #{e 1912}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#))
- (if (eqv? #{type 1910}# 'displaced-lexical)
- (syntax-violation
- #f
- "reference to identifier outside its
scope"
- (#{source-wrap 420}#
- #{e 1912}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#))
- (syntax-violation
- #f
- "unexpected syntax"
- (#{source-wrap 420}#
- #{e 1912}#
- #{w 1914}#
- #{s 1915}#
- #{mod 1916}#))))))))))))))))))
- (#{chi-application 436}#
- (lambda (#{x 1971}#
- #{e 1972}#
- #{r 1973}#
- #{w 1974}#
- #{s 1975}#
- #{mod 1976}#)
- (let ((#{tmp 1983}# #{e 1972}#))
- (let ((#{tmp 1984}#
- ($sc-dispatch #{tmp 1983}# '(any . each-any))))
- (if #{tmp 1984}#
- (@apply
- (lambda (#{e0 1987}# #{e1 1988}#)
- (#{build-application 266}#
- #{s 1975}#
- #{x 1971}#
- (map (lambda (#{e 1989}#)
- (#{chi 432}#
- #{e 1989}#
- #{r 1973}#
- #{w 1974}#
- #{mod 1976}#))
- #{e1 1988}#)))
- #{tmp 1984}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1983}#))))))
- (#{chi-macro 438}#
- (lambda (#{p 1992}#
- #{e 1993}#
- #{r 1994}#
- #{w 1995}#
- #{s 1996}#
- #{rib 1997}#
- #{mod 1998}#)
- (letrec*
- ((#{rebuild-macro-output 2007}#
- (lambda (#{x 2008}# #{m 2009}#)
- (if (pair? #{x 2008}#)
- (#{decorate-source 260}#
- (cons (#{rebuild-macro-output 2007}#
- (car #{x 2008}#)
- #{m 2009}#)
- (#{rebuild-macro-output 2007}#
- (cdr #{x 2008}#)
- #{m 2009}#))
- #{s 1996}#)
- (if (#{syntax-object? 307}# #{x 2008}#)
- (begin
- (let ((#{w 2017}#
- (#{syntax-object-wrap 311}# #{x 2008}#)))
- (begin
- (let ((#{ms 2020}# (car #{w 2017}#))
- (#{s 2021}# (cdr #{w 2017}#)))
- (if (if (pair? #{ms 2020}#)
- (eq? (car #{ms 2020}#) #f)
- #f)
- (#{make-syntax-object 305}#
- (#{syntax-object-expression 309}# #{x 2008}#)
- (cons (cdr #{ms 2020}#)
- (if #{rib 1997}#
- (cons #{rib 1997}# (cdr #{s 2021}#))
- (cdr #{s 2021}#)))
- (#{syntax-object-module 313}# #{x 2008}#))
- (#{make-syntax-object 305}#
- (#{decorate-source 260}#
- (#{syntax-object-expression 309}# #{x 2008}#)
- #{s 2021}#)
- (cons (cons #{m 2009}# #{ms 2020}#)
- (if #{rib 1997}#
- (cons #{rib 1997}#
- (cons 'shift #{s 2021}#))
- (cons 'shift #{s 2021}#)))
- (#{syntax-object-module 313}# #{x 2008}#)))))))
- (if (vector? #{x 2008}#)
- (begin
- (let ((#{n 2033}# (vector-length #{x 2008}#)))
- (begin
- (let ((#{v 2035}#
- (#{decorate-source 260}#
- (make-vector #{n 2033}#)
- #{x 2008}#)))
- (letrec*
- ((#{loop 2038}#
- (lambda (#{i 2039}#)
- (if (= #{i 2039}# #{n 2033}#)
- (begin (if #f #f) #{v 2035}#)
- (begin
- (vector-set!
- #{v 2035}#
- #{i 2039}#
- (#{rebuild-macro-output 2007}#
- (vector-ref #{x 2008}# #{i 2039}#)
- #{m 2009}#))
- (#{loop 2038}# (#{1+}# #{i 2039}#)))))))
- (begin (#{loop 2038}# 0)))))))
- (if (symbol? #{x 2008}#)
- (syntax-violation
- #f
- "encountered raw symbol in macro output"
- (#{source-wrap 420}#
- #{e 1993}#
- #{w 1995}#
- (cdr #{w 1995}#)
- #{mod 1998}#)
- #{x 2008}#)
- (#{decorate-source 260}# #{x 2008}# #{s 1996}#))))))))
- (begin
- (#{rebuild-macro-output 2007}#
- (#{p 1992}#
- (#{source-wrap 420}#
- #{e 1993}#
- (#{anti-mark 388}# #{w 1995}#)
- #{s 1996}#
- #{mod 1998}#))
- (gensym "m"))))))
- (#{chi-body 440}#
- (lambda (#{body 2049}#
- #{outer-form 2050}#
- #{r 2051}#
- #{w 2052}#
- #{mod 2053}#)
- (begin
- (let ((#{r 2061}#
- (cons '("placeholder" placeholder) #{r 2051}#)))
- (begin
- (let ((#{ribcage 2063}#
- (#{make-ribcage 367}# '() '() '())))
- (begin
- (let ((#{w 2066}#
- (cons (car #{w 2052}#)
- (cons #{ribcage 2063}# (cdr #{w 2052}#)))))
- (letrec*
- ((#{parse 2078}#
- (lambda (#{body 2079}#
- #{ids 2080}#
- #{labels 2081}#
- #{var-ids 2082}#
- #{vars 2083}#
- #{vals 2084}#
- #{bindings 2085}#)
- (if (null? #{body 2079}#)
- (syntax-violation
- #f
- "no expressions in body"
- #{outer-form 2050}#)
- (begin
- (let ((#{e 2090}# (cdr (car #{body 2079}#)))
- (#{er 2091}# (car (car #{body 2079}#))))
- (call-with-values
- (lambda ()
- (#{syntax-type 430}#
- #{e 2090}#
- #{er 2091}#
- '(())
- (#{source-annotation 322}# #{er 2091}#)
- #{ribcage 2063}#
- #{mod 2053}#
- #f))
- (lambda (#{type 2093}#
- #{value 2094}#
- #{e 2095}#
- #{w 2096}#
- #{s 2097}#
- #{mod 2098}#)
- (if (eqv? #{type 2093}# 'define-form)
- (begin
- (let ((#{id 2108}#
- (#{wrap 418}#
- #{value 2094}#
- #{w 2096}#
- #{mod 2098}#))
- (#{label 2109}#
- (#{gen-label 362}#)))
- (begin
- (let ((#{var 2111}#
- (#{gen-var 460}#
- #{id 2108}#)))
- (begin
- (#{extend-ribcage! 394}#
- #{ribcage 2063}#
- #{id 2108}#
- #{label 2109}#)
- (#{parse 2078}#
- (cdr #{body 2079}#)
- (cons #{id 2108}#
- #{ids 2080}#)
- (cons #{label 2109}#
- #{labels 2081}#)
- (cons #{id 2108}#
- #{var-ids 2082}#)
- (cons #{var 2111}#
- #{vars 2083}#)
- (cons (cons #{er 2091}#
- (#{wrap 418}#
- #{e 2095}#
- #{w 2096}#
- #{mod 2098}#))
- #{vals 2084}#)
- (cons (cons 'lexical
- #{var 2111}#)
- #{bindings
2085}#)))))))
- (if (eqv? #{type 2093}#
- 'define-syntax-form)
- (begin
- (let ((#{id 2116}#
- (#{wrap 418}#
- #{value 2094}#
- #{w 2096}#
- #{mod 2098}#))
- (#{label 2117}#
- (#{gen-label 362}#)))
- (begin
- (#{extend-ribcage! 394}#
- #{ribcage 2063}#
- #{id 2116}#
- #{label 2117}#)
- (#{parse 2078}#
- (cdr #{body 2079}#)
- (cons #{id 2116}# #{ids 2080}#)
- (cons #{label 2117}#
- #{labels 2081}#)
- #{var-ids 2082}#
- #{vars 2083}#
- #{vals 2084}#
- (cons (cons 'macro
- (cons #{er 2091}#
- (#{wrap 418}#
- #{e 2095}#
- #{w 2096}#
- #{mod
2098}#)))
- #{bindings 2085}#)))))
- (if (eqv? #{type 2093}# 'begin-form)
- (let ((#{tmp 2120}# #{e 2095}#))
- (let ((#{tmp 2121}#
- ($sc-dispatch
- #{tmp 2120}#
- '(_ . each-any))))
- (if #{tmp 2121}#
- (@apply
- (lambda (#{e1 2123}#)
- (#{parse 2078}#
- (letrec*
- ((#{f 2126}#
- (lambda (#{forms
2127}#)
- (if (null?
#{forms 2127}#)
- (cdr #{body
2079}#)
- (cons (cons
#{er 2091}#
-
(#{wrap 418}#
-
(car #{forms 2127}#)
-
#{w 2096}#
-
#{mod 2098}#))
- (#{f
2126}#
- (cdr
#{forms 2127}#)))))))
- (begin
- (#{f 2126}#
- #{e1 2123}#)))
- #{ids 2080}#
- #{labels 2081}#
- #{var-ids 2082}#
- #{vars 2083}#
- #{vals 2084}#
- #{bindings 2085}#))
- #{tmp 2121}#)
- (syntax-violation
- #f
- "source expression failed to
match any pattern"
- #{tmp 2120}#))))
- (if (eqv? #{type 2093}#
- 'local-syntax-form)
- (#{chi-local-syntax 442}#
- #{value 2094}#
- #{e 2095}#
- #{er 2091}#
- #{w 2096}#
- #{s 2097}#
- #{mod 2098}#
- (lambda (#{forms 2130}#
- #{er 2131}#
- #{w 2132}#
- #{s 2133}#
- #{mod 2134}#)
- (#{parse 2078}#
- (letrec*
- ((#{f 2142}#
- (lambda (#{forms 2143}#)
- (if (null? #{forms
2143}#)
- (cdr #{body 2079}#)
- (cons (cons #{er
2131}#
- (#{wrap
418}#
- (car
#{forms 2143}#)
- #{w
2132}#
- #{mod
2134}#))
- (#{f 2142}#
- (cdr
#{forms 2143}#)))))))
- (begin
- (#{f 2142}#
- #{forms 2130}#)))
- #{ids 2080}#
- #{labels 2081}#
- #{var-ids 2082}#
- #{vars 2083}#
- #{vals 2084}#
- #{bindings 2085}#)))
- (if (null? #{ids 2080}#)
- (#{build-sequence 294}#
- #f
- (map (lambda (#{x 2146}#)
- (#{chi 432}#
- (cdr #{x 2146}#)
- (car #{x 2146}#)
- '(())
- #{mod 2098}#))
- (cons (cons #{er 2091}#
-
(#{source-wrap 420}#
- #{e 2095}#
- #{w 2096}#
- #{s 2097}#
- #{mod
2098}#))
- (cdr #{body
2079}#))))
- (begin
- (if (not (#{valid-bound-ids?
412}#
- #{ids 2080}#))
- (syntax-violation
- #f
- "invalid or duplicate
identifier in definition"
- #{outer-form 2050}#))
- (letrec*
- ((#{loop 2153}#
- (lambda (#{bs 2154}#
- #{er-cache 2155}#
- #{r-cache 2156}#)
- (if (not (null? #{bs
2154}#))
- (begin
- (let ((#{b 2159}#
- (car #{bs
2154}#)))
- (if (eq? (car #{b
2159}#)
- 'macro)
- (begin
- (let ((#{er
2162}#
- (car
(cdr #{b 2159}#))))
- (begin
- (let
((#{r-cache 2164}#
-
(if (eq? #{er 2162}#
-
#{er-cache 2155}#)
-
#{r-cache 2156}#
-
(#{macros-only-env 336}#
-
#{er 2162}#))))
- (begin
-
(set-cdr!
- #{b
2159}#
-
(#{eval-local-transformer 444}#
-
(#{chi 432}#
-
(cdr (cdr #{b 2159}#))
-
#{r-cache 2164}#
-
'(())
-
#{mod 2098}#)
-
#{mod 2098}#))
-
(#{loop 2153}#
-
(cdr #{bs 2154}#)
-
#{er 2162}#
-
#{r-cache 2164}#))))))
- (#{loop 2153}#
- (cdr #{bs
2154}#)
- #{er-cache
2155}#
- #{r-cache
2156}#))))))))
- (begin
- (#{loop 2153}#
- #{bindings 2085}#
- #f
- #f)))
- (set-cdr!
- #{r 2061}#
- (#{extend-env 332}#
- #{labels 2081}#
- #{bindings 2085}#
- (cdr #{r 2061}#)))
- (#{build-letrec 300}#
- #f
- #t
- (reverse
- (map syntax->datum
- #{var-ids 2082}#))
- (reverse #{vars 2083}#)
- (map (lambda (#{x 2167}#)
- (#{chi 432}#
- (cdr #{x 2167}#)
- (car #{x 2167}#)
- '(())
- #{mod 2098}#))
- (reverse #{vals 2084}#))
- (#{build-sequence 294}#
- #f
- (map (lambda (#{x 2171}#)
- (#{chi 432}#
- (cdr #{x 2171}#)
- (car #{x 2171}#)
- '(())
- #{mod 2098}#))
- (cons (cons #{er
2091}#
-
(#{source-wrap 420}#
- #{e
2095}#
- #{w
2096}#
- #{s
2097}#
- #{mod
2098}#))
- (cdr #{body
2079}#)))))))))))))))))))
- (begin
- (#{parse 2078}#
- (map (lambda (#{x 2086}#)
- (cons #{r 2061}#
- (#{wrap 418}#
- #{x 2086}#
- #{w 2066}#
- #{mod 2053}#)))
- #{body 2049}#)
- '()
- '()
- '()
- '()
- '()
- '())))))))))))
- (#{chi-local-syntax 442}#
- (lambda (#{rec? 2174}#
- #{e 2175}#
- #{r 2176}#
- #{w 2177}#
- #{s 2178}#
- #{mod 2179}#
- #{k 2180}#)
- (let ((#{tmp 2188}# #{e 2175}#))
- (let ((#{tmp 2189}#
- ($sc-dispatch
- #{tmp 2188}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 2189}#
- (@apply
- (lambda (#{id 2194}#
- #{val 2195}#
- #{e1 2196}#
- #{e2 2197}#)
- (begin
- (let ((#{ids 2199}# #{id 2194}#))
- (if (not (#{valid-bound-ids? 412}# #{ids 2199}#))
- (syntax-violation
- #f
- "duplicate bound keyword"
- #{e 2175}#)
- (begin
- (let ((#{labels 2202}#
- (#{gen-labels 364}# #{ids 2199}#)))
- (begin
- (let ((#{new-w 2204}#
- (#{make-binding-wrap 396}#
- #{ids 2199}#
- #{labels 2202}#
- #{w 2177}#)))
- (#{k 2180}#
- (cons #{e1 2196}# #{e2 2197}#)
- (#{extend-env 332}#
- #{labels 2202}#
- (begin
- (let ((#{w 2208}#
- (if #{rec? 2174}#
- #{new-w 2204}#
- #{w 2177}#))
- (#{trans-r 2209}#
- (#{macros-only-env 336}#
- #{r 2176}#)))
- (map (lambda (#{x 2210}#)
- (cons 'macro
- (#{eval-local-transformer
444}#
- (#{chi 432}#
- #{x 2210}#
- #{trans-r 2209}#
- #{w 2208}#
- #{mod 2179}#)
- #{mod 2179}#)))
- #{val 2195}#)))
- #{r 2176}#)
- #{new-w 2204}#
- #{s 2178}#
- #{mod 2179}#)))))))))
- #{tmp 2189}#)
- (let ((#{_ 2215}# #{tmp 2188}#))
- (syntax-violation
- #f
- "bad local syntax definition"
- (#{source-wrap 420}#
- #{e 2175}#
- #{w 2177}#
- #{s 2178}#
- #{mod 2179}#))))))))
- (#{eval-local-transformer 444}#
- (lambda (#{expanded 2216}# #{mod 2217}#)
- (begin
- (let ((#{p 2221}#
- (#{local-eval-hook 252}#
- #{expanded 2216}#
- #{mod 2217}#)))
- (if (procedure? #{p 2221}#)
- #{p 2221}#
- (syntax-violation
- #f
- "nonprocedure transformer"
- #{p 2221}#))))))
- (#{chi-void 446}#
- (lambda () (#{build-void 264}# #f)))
- (#{ellipsis? 448}#
- (lambda (#{x 2223}#)
- (if (#{nonsymbol-id? 342}# #{x 2223}#)
- (#{free-id=? 408}#
- #{x 2223}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2224"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile)))
- #f)))
- (#{lambda-formals 450}#
- (lambda (#{orig-args 2227}#)
- (letrec*
- ((#{req 2230}#
- (lambda (#{args 2233}# #{rreq 2234}#)
- (let ((#{tmp 2237}# #{args 2233}#))
- (let ((#{tmp 2238}# ($sc-dispatch #{tmp 2237}# '())))
- (if #{tmp 2238}#
- (@apply
- (lambda ()
- (#{check 2232}# (reverse #{rreq 2234}#) #f))
- #{tmp 2238}#)
- (let ((#{tmp 2239}#
- ($sc-dispatch #{tmp 2237}# '(any . any))))
- (if (if #{tmp 2239}#
- (@apply
- (lambda (#{a 2242}# #{b 2243}#)
- (#{id? 344}# #{a 2242}#))
- #{tmp 2239}#)
- #f)
- (@apply
- (lambda (#{a 2246}# #{b 2247}#)
- (#{req 2230}#
- #{b 2247}#
- (cons #{a 2246}# #{rreq 2234}#)))
- #{tmp 2239}#)
- (let ((#{tmp 2248}# (list #{tmp 2237}#)))
- (if (if #{tmp 2248}#
- (@apply
- (lambda (#{r 2250}#)
- (#{id? 344}# #{r 2250}#))
- #{tmp 2248}#)
- #f)
- (@apply
- (lambda (#{r 2252}#)
- (#{check 2232}#
- (reverse #{rreq 2234}#)
- #{r 2252}#))
- #{tmp 2248}#)
- (let ((#{else 2254}# #{tmp 2237}#))
- (syntax-violation
- 'lambda
- "invalid argument list"
- #{orig-args 2227}#
- #{args 2233}#)))))))))))
- (#{check 2232}#
- (lambda (#{req 2255}# #{rest 2256}#)
- (if (#{distinct-bound-ids? 414}#
- (if #{rest 2256}#
- (cons #{rest 2256}# #{req 2255}#)
- #{req 2255}#))
- (values #{req 2255}# #f #{rest 2256}# #f)
- (syntax-violation
- 'lambda
- "duplicate identifier in argument list"
- #{orig-args 2227}#)))))
- (begin (#{req 2230}# #{orig-args 2227}# '())))))
- (#{chi-simple-lambda 452}#
- (lambda (#{e 2262}#
- #{r 2263}#
- #{w 2264}#
- #{s 2265}#
- #{mod 2266}#
- #{req 2267}#
- #{rest 2268}#
- #{meta 2269}#
- #{body 2270}#)
- (begin
- (let ((#{ids 2282}#
- (if #{rest 2268}#
- (append #{req 2267}# (list #{rest 2268}#))
- #{req 2267}#)))
- (begin
- (let ((#{vars 2284}#
- (map #{gen-var 460}# #{ids 2282}#)))
- (begin
- (let ((#{labels 2286}#
- (#{gen-labels 364}# #{ids 2282}#)))
- (#{build-simple-lambda 284}#
- #{s 2265}#
- (map syntax->datum #{req 2267}#)
- (if #{rest 2268}#
- (syntax->datum #{rest 2268}#)
- #f)
- #{vars 2284}#
- #{meta 2269}#
- (#{chi-body 440}#
- #{body 2270}#
- (#{source-wrap 420}#
- #{e 2262}#
- #{w 2264}#
- #{s 2265}#
- #{mod 2266}#)
- (#{extend-var-env 334}#
- #{labels 2286}#
- #{vars 2284}#
- #{r 2263}#)
- (#{make-binding-wrap 396}#
- #{ids 2282}#
- #{labels 2286}#
- #{w 2264}#)
- #{mod 2266}#))))))))))
- (#{lambda*-formals 454}#
- (lambda (#{orig-args 2289}#)
- (letrec*
- ((#{req 2292}#
- (lambda (#{args 2301}# #{rreq 2302}#)
- (let ((#{tmp 2305}# #{args 2301}#))
- (let ((#{tmp 2306}# ($sc-dispatch #{tmp 2305}# '())))
- (if #{tmp 2306}#
- (@apply
- (lambda ()
- (#{check 2300}#
- (reverse #{rreq 2302}#)
- '()
- #f
- '()))
- #{tmp 2306}#)
- (let ((#{tmp 2307}#
- ($sc-dispatch #{tmp 2305}# '(any . any))))
- (if (if #{tmp 2307}#
- (@apply
- (lambda (#{a 2310}# #{b 2311}#)
- (#{id? 344}# #{a 2310}#))
- #{tmp 2307}#)
- #f)
- (@apply
- (lambda (#{a 2314}# #{b 2315}#)
- (#{req 2292}#
- #{b 2315}#
- (cons #{a 2314}# #{rreq 2302}#)))
- #{tmp 2307}#)
- (let ((#{tmp 2316}#
- ($sc-dispatch #{tmp 2305}# '(any . any))))
- (if (if #{tmp 2316}#
- (@apply
- (lambda (#{a 2319}# #{b 2320}#)
- (eq? (syntax->datum #{a 2319}#)
- #:optional))
- #{tmp 2316}#)
- #f)
- (@apply
- (lambda (#{a 2323}# #{b 2324}#)
- (#{opt 2294}#
- #{b 2324}#
- (reverse #{rreq 2302}#)
- '()))
- #{tmp 2316}#)
- (let ((#{tmp 2325}#
- ($sc-dispatch #{tmp 2305}# '(any . any))))
- (if (if #{tmp 2325}#
- (@apply
- (lambda (#{a 2328}# #{b 2329}#)
- (eq? (syntax->datum #{a 2328}#) #:key))
- #{tmp 2325}#)
- #f)
- (@apply
- (lambda (#{a 2332}# #{b 2333}#)
- (#{key 2296}#
- #{b 2333}#
- (reverse #{rreq 2302}#)
- '()
- '()))
- #{tmp 2325}#)
- (let ((#{tmp 2334}#
- ($sc-dispatch
- #{tmp 2305}#
- '(any any))))
- (if (if #{tmp 2334}#
- (@apply
- (lambda (#{a 2337}# #{b 2338}#)
- (eq? (syntax->datum #{a 2337}#)
- #:rest))
- #{tmp 2334}#)
- #f)
- (@apply
- (lambda (#{a 2341}# #{b 2342}#)
- (#{rest 2298}#
- #{b 2342}#
- (reverse #{rreq 2302}#)
- '()
- '()))
- #{tmp 2334}#)
- (let ((#{tmp 2343}# (list #{tmp 2305}#)))
- (if (if #{tmp 2343}#
- (@apply
- (lambda (#{r 2345}#)
- (#{id? 344}# #{r 2345}#))
- #{tmp 2343}#)
- #f)
- (@apply
- (lambda (#{r 2347}#)
- (#{rest 2298}#
- #{r 2347}#
- (reverse #{rreq 2302}#)
- '()
- '()))
- #{tmp 2343}#)
- (let ((#{else 2349}# #{tmp 2305}#))
- (syntax-violation
- 'lambda*
- "invalid argument list"
- #{orig-args 2289}#
- #{args 2301}#)))))))))))))))))
- (#{opt 2294}#
- (lambda (#{args 2350}# #{req 2351}# #{ropt 2352}#)
- (let ((#{tmp 2356}# #{args 2350}#))
- (let ((#{tmp 2357}# ($sc-dispatch #{tmp 2356}# '())))
- (if #{tmp 2357}#
- (@apply
- (lambda ()
- (#{check 2300}#
- #{req 2351}#
- (reverse #{ropt 2352}#)
- #f
- '()))
- #{tmp 2357}#)
- (let ((#{tmp 2358}#
- ($sc-dispatch #{tmp 2356}# '(any . any))))
- (if (if #{tmp 2358}#
- (@apply
- (lambda (#{a 2361}# #{b 2362}#)
- (#{id? 344}# #{a 2361}#))
- #{tmp 2358}#)
- #f)
- (@apply
- (lambda (#{a 2365}# #{b 2366}#)
- (#{opt 2294}#
- #{b 2366}#
- #{req 2351}#
- (cons (cons #{a 2365}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2363" "i2364"))
- #(ribcage () () ())
- #(ribcage
- #(args req ropt)
- #((top) (top) (top))
- #("i2353" "i2354" "i2355"))
- #(ribcage
- (check rest key opt req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2299"
- "i2297"
- "i2295"
- "i2293"
- "i2291"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2290"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile))))
- #{ropt 2352}#)))
- #{tmp 2358}#)
- (let ((#{tmp 2367}#
- ($sc-dispatch
- #{tmp 2356}#
- '((any any) . any))))
- (if (if #{tmp 2367}#
- (@apply
- (lambda (#{a 2371}# #{init 2372}# #{b 2373}#)
- (#{id? 344}# #{a 2371}#))
- #{tmp 2367}#)
- #f)
- (@apply
- (lambda (#{a 2377}# #{init 2378}# #{b 2379}#)
- (#{opt 2294}#
- #{b 2379}#
- #{req 2351}#
- (cons (list #{a 2377}# #{init 2378}#)
- #{ropt 2352}#)))
- #{tmp 2367}#)
- (let ((#{tmp 2380}#
- ($sc-dispatch #{tmp 2356}# '(any . any))))
- (if (if #{tmp 2380}#
- (@apply
- (lambda (#{a 2383}# #{b 2384}#)
- (eq? (syntax->datum #{a 2383}#) #:key))
- #{tmp 2380}#)
- #f)
- (@apply
- (lambda (#{a 2387}# #{b 2388}#)
- (#{key 2296}#
- #{b 2388}#
- #{req 2351}#
- (reverse #{ropt 2352}#)
- '()))
- #{tmp 2380}#)
- (let ((#{tmp 2389}#
- ($sc-dispatch
- #{tmp 2356}#
- '(any any))))
- (if (if #{tmp 2389}#
- (@apply
- (lambda (#{a 2392}# #{b 2393}#)
- (eq? (syntax->datum #{a 2392}#)
- #:rest))
- #{tmp 2389}#)
- #f)
- (@apply
- (lambda (#{a 2396}# #{b 2397}#)
- (#{rest 2298}#
- #{b 2397}#
- #{req 2351}#
- (reverse #{ropt 2352}#)
- '()))
- #{tmp 2389}#)
- (let ((#{tmp 2398}# (list #{tmp 2356}#)))
- (if (if #{tmp 2398}#
- (@apply
- (lambda (#{r 2400}#)
- (#{id? 344}# #{r 2400}#))
- #{tmp 2398}#)
- #f)
- (@apply
- (lambda (#{r 2402}#)
- (#{rest 2298}#
- #{r 2402}#
- #{req 2351}#
- (reverse #{ropt 2352}#)
- '()))
- #{tmp 2398}#)
- (let ((#{else 2404}# #{tmp 2356}#))
- (syntax-violation
- 'lambda*
- "invalid optional argument list"
- #{orig-args 2289}#
- #{args 2350}#)))))))))))))))))
- (#{key 2296}#
- (lambda (#{args 2405}#
- #{req 2406}#
- #{opt 2407}#
- #{rkey 2408}#)
- (let ((#{tmp 2413}# #{args 2405}#))
- (let ((#{tmp 2414}# ($sc-dispatch #{tmp 2413}# '())))
- (if #{tmp 2414}#
- (@apply
- (lambda ()
- (#{check 2300}#
- #{req 2406}#
- #{opt 2407}#
- #f
- (cons #f (reverse #{rkey 2408}#))))
- #{tmp 2414}#)
- (let ((#{tmp 2415}#
- ($sc-dispatch #{tmp 2413}# '(any . any))))
- (if (if #{tmp 2415}#
- (@apply
- (lambda (#{a 2418}# #{b 2419}#)
- (#{id? 344}# #{a 2418}#))
- #{tmp 2415}#)
- #f)
- (@apply
- (lambda (#{a 2422}# #{b 2423}#)
- (let ((#{tmp 2425}#
- (symbol->keyword
- (syntax->datum #{a 2422}#))))
- (let ((#{k 2427}# #{tmp 2425}#))
- (#{key 2296}#
- #{b 2423}#
- #{req 2406}#
- #{opt 2407}#
- (cons (cons #{k 2427}#
- (cons #{a 2422}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(k)
- #((top))
- #("i2426"))
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2420" "i2421"))
- #(ribcage () () ())
- #(ribcage
- #(args req opt rkey)
- #((top)
- (top)
- (top)
- (top))
- #("i2409"
- "i2410"
- "i2411"
- "i2412"))
- #(ribcage
- (check rest
- key
- opt
- req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2299"
- "i2297"
- "i2295"
- "i2293"
- "i2291"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2290"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i40"
- "i39"
- "i38")))
- (hygiene guile)))))
- #{rkey 2408}#)))))
- #{tmp 2415}#)
- (let ((#{tmp 2428}#
- ($sc-dispatch
- #{tmp 2413}#
- '((any any) . any))))
- (if (if #{tmp 2428}#
- (@apply
- (lambda (#{a 2432}# #{init 2433}# #{b 2434}#)
- (#{id? 344}# #{a 2432}#))
- #{tmp 2428}#)
- #f)
- (@apply
- (lambda (#{a 2438}# #{init 2439}# #{b 2440}#)
- (let ((#{tmp 2442}#
- (symbol->keyword
- (syntax->datum #{a 2438}#))))
- (let ((#{k 2444}# #{tmp 2442}#))
- (#{key 2296}#
- #{b 2440}#
- #{req 2406}#
- #{opt 2407}#
- (cons (list #{k 2444}#
- #{a 2438}#
- #{init 2439}#)
- #{rkey 2408}#)))))
- #{tmp 2428}#)
- (let ((#{tmp 2445}#
- ($sc-dispatch
- #{tmp 2413}#
- '((any any any) . any))))
- (if (if #{tmp 2445}#
- (@apply
- (lambda (#{a 2450}#
- #{init 2451}#
- #{k 2452}#
- #{b 2453}#)
- (if (#{id? 344}# #{a 2450}#)
- (keyword? (syntax->datum #{k 2452}#))
- #f))
- #{tmp 2445}#)
- #f)
- (@apply
- (lambda (#{a 2460}#
- #{init 2461}#
- #{k 2462}#
- #{b 2463}#)
- (#{key 2296}#
- #{b 2463}#
- #{req 2406}#
- #{opt 2407}#
- (cons (list #{k 2462}#
- #{a 2460}#
- #{init 2461}#)
- #{rkey 2408}#)))
- #{tmp 2445}#)
- (let ((#{tmp 2464}#
- ($sc-dispatch #{tmp 2413}# '(any))))
- (if (if #{tmp 2464}#
- (@apply
- (lambda (#{aok 2466}#)
- (eq? (syntax->datum #{aok 2466}#)
- #:allow-other-keys))
- #{tmp 2464}#)
- #f)
- (@apply
- (lambda (#{aok 2468}#)
- (#{check 2300}#
- #{req 2406}#
- #{opt 2407}#
- #f
- (cons #t (reverse #{rkey 2408}#))))
- #{tmp 2464}#)
- (let ((#{tmp 2469}#
- ($sc-dispatch
- #{tmp 2413}#
- '(any any any))))
- (if (if #{tmp 2469}#
- (@apply
- (lambda (#{aok 2473}#
- #{a 2474}#
- #{b 2475}#)
- (if (eq? (syntax->datum
- #{aok 2473}#)
- #:allow-other-keys)
- (eq? (syntax->datum
- #{a 2474}#)
- #:rest)
- #f))
- #{tmp 2469}#)
- #f)
- (@apply
- (lambda (#{aok 2481}#
- #{a 2482}#
- #{b 2483}#)
- (#{rest 2298}#
- #{b 2483}#
- #{req 2406}#
- #{opt 2407}#
- (cons #t
- (reverse #{rkey 2408}#))))
- #{tmp 2469}#)
- (let ((#{tmp 2484}#
- ($sc-dispatch
- #{tmp 2413}#
- '(any . any))))
- (if (if #{tmp 2484}#
- (@apply
- (lambda (#{aok 2487}#
- #{r 2488}#)
- (if (eq? (syntax->datum
- #{aok 2487}#)
-
#:allow-other-keys)
- (#{id? 344}# #{r 2488}#)
- #f))
- #{tmp 2484}#)
- #f)
- (@apply
- (lambda (#{aok 2493}# #{r 2494}#)
- (#{rest 2298}#
- #{r 2494}#
- #{req 2406}#
- #{opt 2407}#
- (cons #t
- (reverse
- #{rkey 2408}#))))
- #{tmp 2484}#)
- (let ((#{tmp 2495}#
- ($sc-dispatch
- #{tmp 2413}#
- '(any any))))
- (if (if #{tmp 2495}#
- (@apply
- (lambda (#{a 2498}#
- #{b 2499}#)
- (eq? (syntax->datum
- #{a 2498}#)
- #:rest))
- #{tmp 2495}#)
- #f)
- (@apply
- (lambda (#{a 2502}#
- #{b 2503}#)
- (#{rest 2298}#
- #{b 2503}#
- #{req 2406}#
- #{opt 2407}#
- (cons #f
- (reverse
- #{rkey 2408}#))))
- #{tmp 2495}#)
- (let ((#{tmp 2504}#
- (list #{tmp 2413}#)))
- (if (if #{tmp 2504}#
- (@apply
- (lambda (#{r 2506}#)
- (#{id? 344}#
- #{r 2506}#))
- #{tmp 2504}#)
- #f)
- (@apply
- (lambda (#{r 2508}#)
- (#{rest 2298}#
- #{r 2508}#
- #{req 2406}#
- #{opt 2407}#
- (cons #f
- (reverse
- #{rkey
2408}#))))
- #{tmp 2504}#)
- (let ((#{else 2510}#
- #{tmp 2413}#))
- (syntax-violation
- 'lambda*
- "invalid keyword
argument list"
- #{orig-args 2289}#
- #{args
2405}#)))))))))))))))))))))))
- (#{rest 2298}#
- (lambda (#{args 2511}#
- #{req 2512}#
- #{opt 2513}#
- #{kw 2514}#)
- (let ((#{tmp 2519}# #{args 2511}#))
- (let ((#{tmp 2520}# (list #{tmp 2519}#)))
- (if (if #{tmp 2520}#
- (@apply
- (lambda (#{r 2522}#) (#{id? 344}# #{r 2522}#))
- #{tmp 2520}#)
- #f)
- (@apply
- (lambda (#{r 2524}#)
- (#{check 2300}#
- #{req 2512}#
- #{opt 2513}#
- #{r 2524}#
- #{kw 2514}#))
- #{tmp 2520}#)
- (let ((#{else 2526}# #{tmp 2519}#))
- (syntax-violation
- 'lambda*
- "invalid rest argument"
- #{orig-args 2289}#
- #{args 2511}#)))))))
- (#{check 2300}#
- (lambda (#{req 2527}#
- #{opt 2528}#
- #{rest 2529}#
- #{kw 2530}#)
- (if (#{distinct-bound-ids? 414}#
- (append
- #{req 2527}#
- (map car #{opt 2528}#)
- (if #{rest 2529}# (list #{rest 2529}#) '())
- (if (pair? #{kw 2530}#)
- (map cadr (cdr #{kw 2530}#))
- '())))
- (values
- #{req 2527}#
- #{opt 2528}#
- #{rest 2529}#
- #{kw 2530}#)
- (syntax-violation
- 'lambda*
- "duplicate identifier in argument list"
- #{orig-args 2289}#)))))
- (begin (#{req 2292}# #{orig-args 2289}# '())))))
- (#{chi-lambda-case 456}#
- (lambda (#{e 2538}#
- #{r 2539}#
- #{w 2540}#
- #{s 2541}#
- #{mod 2542}#
- #{get-formals 2543}#
- #{clauses 2544}#)
- (letrec*
- ((#{expand-req 2553}#
- (lambda (#{req 2560}#
- #{opt 2561}#
- #{rest 2562}#
- #{kw 2563}#
- #{body 2564}#)
- (begin
- (let ((#{vars 2572}#
- (map #{gen-var 460}# #{req 2560}#))
- (#{labels 2573}#
- (#{gen-labels 364}# #{req 2560}#)))
- (begin
- (let ((#{r* 2576}#
- (#{extend-var-env 334}#
- #{labels 2573}#
- #{vars 2572}#
- #{r 2539}#))
- (#{w* 2577}#
- (#{make-binding-wrap 396}#
- #{req 2560}#
- #{labels 2573}#
- #{w 2540}#)))
- (#{expand-opt 2555}#
- (map syntax->datum #{req 2560}#)
- #{opt 2561}#
- #{rest 2562}#
- #{kw 2563}#
- #{body 2564}#
- (reverse #{vars 2572}#)
- #{r* 2576}#
- #{w* 2577}#
- '()
- '())))))))
- (#{expand-opt 2555}#
- (lambda (#{req 2578}#
- #{opt 2579}#
- #{rest 2580}#
- #{kw 2581}#
- #{body 2582}#
- #{vars 2583}#
- #{r* 2584}#
- #{w* 2585}#
- #{out 2586}#
- #{inits 2587}#)
- (if (pair? #{opt 2579}#)
- (let ((#{tmp 2600}# (car #{opt 2579}#)))
- (let ((#{tmp 2601}#
- ($sc-dispatch #{tmp 2600}# '(any any))))
- (if #{tmp 2601}#
- (@apply
- (lambda (#{id 2604}# #{i 2605}#)
- (begin
- (let ((#{v 2608}# (#{gen-var 460}# #{id 2604}#)))
- (begin
- (let ((#{l 2610}#
- (#{gen-labels 364}#
- (list #{v 2608}#))))
- (begin
- (let ((#{r** 2612}#
- (#{extend-var-env 334}#
- #{l 2610}#
- (list #{v 2608}#)
- #{r* 2584}#)))
- (begin
- (let ((#{w** 2614}#
- (#{make-binding-wrap 396}#
- (list #{id 2604}#)
- #{l 2610}#
- #{w* 2585}#)))
- (#{expand-opt 2555}#
- #{req 2578}#
- (cdr #{opt 2579}#)
- #{rest 2580}#
- #{kw 2581}#
- #{body 2582}#
- (cons #{v 2608}# #{vars 2583}#)
- #{r** 2612}#
- #{w** 2614}#
- (cons (syntax->datum #{id 2604}#)
- #{out 2586}#)
- (cons (#{chi 432}#
- #{i 2605}#
- #{r* 2584}#
- #{w* 2585}#
- #{mod 2542}#)
- #{inits 2587}#)))))))))))
- #{tmp 2601}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2600}#))))
- (if #{rest 2580}#
- (begin
- (let ((#{v 2619}# (#{gen-var 460}# #{rest 2580}#)))
- (begin
- (let ((#{l 2621}#
- (#{gen-labels 364}# (list #{v 2619}#))))
- (begin
- (let ((#{r* 2623}#
- (#{extend-var-env 334}#
- #{l 2621}#
- (list #{v 2619}#)
- #{r* 2584}#)))
- (begin
- (let ((#{w* 2625}#
- (#{make-binding-wrap 396}#
- (list #{rest 2580}#)
- #{l 2621}#
- #{w* 2585}#)))
- (#{expand-kw 2557}#
- #{req 2578}#
- (if (pair? #{out 2586}#)
- (reverse #{out 2586}#)
- #f)
- (syntax->datum #{rest 2580}#)
- (if (pair? #{kw 2581}#)
- (cdr #{kw 2581}#)
- #{kw 2581}#)
- #{body 2582}#
- (cons #{v 2619}# #{vars 2583}#)
- #{r* 2623}#
- #{w* 2625}#
- (if (pair? #{kw 2581}#)
- (car #{kw 2581}#)
- #f)
- '()
- #{inits 2587}#)))))))))
- (#{expand-kw 2557}#
- #{req 2578}#
- (if (pair? #{out 2586}#)
- (reverse #{out 2586}#)
- #f)
- #f
- (if (pair? #{kw 2581}#)
- (cdr #{kw 2581}#)
- #{kw 2581}#)
- #{body 2582}#
- #{vars 2583}#
- #{r* 2584}#
- #{w* 2585}#
- (if (pair? #{kw 2581}#) (car #{kw 2581}#) #f)
- '()
- #{inits 2587}#)))))
- (#{expand-kw 2557}#
- (lambda (#{req 2627}#
- #{opt 2628}#
- #{rest 2629}#
- #{kw 2630}#
- #{body 2631}#
- #{vars 2632}#
- #{r* 2633}#
- #{w* 2634}#
- #{aok 2635}#
- #{out 2636}#
- #{inits 2637}#)
- (if (pair? #{kw 2630}#)
- (let ((#{tmp 2651}# (car #{kw 2630}#)))
- (let ((#{tmp 2652}#
- ($sc-dispatch #{tmp 2651}# '(any any any))))
- (if #{tmp 2652}#
- (@apply
- (lambda (#{k 2656}# #{id 2657}# #{i 2658}#)
- (begin
- (let ((#{v 2661}# (#{gen-var 460}# #{id 2657}#)))
- (begin
- (let ((#{l 2663}#
- (#{gen-labels 364}#
- (list #{v 2661}#))))
- (begin
- (let ((#{r** 2665}#
- (#{extend-var-env 334}#
- #{l 2663}#
- (list #{v 2661}#)
- #{r* 2633}#)))
- (begin
- (let ((#{w** 2667}#
- (#{make-binding-wrap 396}#
- (list #{id 2657}#)
- #{l 2663}#
- #{w* 2634}#)))
- (#{expand-kw 2557}#
- #{req 2627}#
- #{opt 2628}#
- #{rest 2629}#
- (cdr #{kw 2630}#)
- #{body 2631}#
- (cons #{v 2661}# #{vars 2632}#)
- #{r** 2665}#
- #{w** 2667}#
- #{aok 2635}#
- (cons (list (syntax->datum
- #{k 2656}#)
- (syntax->datum
- #{id 2657}#)
- #{v 2661}#)
- #{out 2636}#)
- (cons (#{chi 432}#
- #{i 2658}#
- #{r* 2633}#
- #{w* 2634}#
- #{mod 2542}#)
- #{inits 2637}#)))))))))))
- #{tmp 2652}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2651}#))))
- (#{expand-body 2559}#
- #{req 2627}#
- #{opt 2628}#
- #{rest 2629}#
- (if (begin
- (let ((#{t 2671}# #{aok 2635}#))
- (if #{t 2671}# #{t 2671}# (pair? #{out 2636}#))))
- (cons #{aok 2635}# (reverse #{out 2636}#))
- #f)
- #{body 2631}#
- (reverse #{vars 2632}#)
- #{r* 2633}#
- #{w* 2634}#
- (reverse #{inits 2637}#)
- '()))))
- (#{expand-body 2559}#
- (lambda (#{req 2673}#
- #{opt 2674}#
- #{rest 2675}#
- #{kw 2676}#
- #{body 2677}#
- #{vars 2678}#
- #{r* 2679}#
- #{w* 2680}#
- #{inits 2681}#
- #{meta 2682}#)
- (let ((#{tmp 2693}# #{body 2677}#))
- (let ((#{tmp 2694}#
- ($sc-dispatch #{tmp 2693}# '(any any . each-any))))
- (if (if #{tmp 2694}#
- (@apply
- (lambda (#{docstring 2698}# #{e1 2699}# #{e2 2700}#)
- (string? (syntax->datum #{docstring 2698}#)))
- #{tmp 2694}#)
- #f)
- (@apply
- (lambda (#{docstring 2704}# #{e1 2705}# #{e2 2706}#)
- (#{expand-body 2559}#
- #{req 2673}#
- #{opt 2674}#
- #{rest 2675}#
- #{kw 2676}#
- (cons #{e1 2705}# #{e2 2706}#)
- #{vars 2678}#
- #{r* 2679}#
- #{w* 2680}#
- #{inits 2681}#
- (append
- #{meta 2682}#
- (list (cons 'documentation
- (syntax->datum #{docstring 2704}#))))))
- #{tmp 2694}#)
- (let ((#{tmp 2709}#
- ($sc-dispatch
- #{tmp 2693}#
- '(#(vector #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp 2709}#
- (@apply
- (lambda (#{k 2714}#
- #{v 2715}#
- #{e1 2716}#
- #{e2 2717}#)
- (#{expand-body 2559}#
- #{req 2673}#
- #{opt 2674}#
- #{rest 2675}#
- #{kw 2676}#
- (cons #{e1 2716}# #{e2 2717}#)
- #{vars 2678}#
- #{r* 2679}#
- #{w* 2680}#
- #{inits 2681}#
- (append
- #{meta 2682}#
- (syntax->datum
- (map cons #{k 2714}# #{v 2715}#)))))
- #{tmp 2709}#)
- (let ((#{tmp 2721}#
- ($sc-dispatch #{tmp 2693}# '(any . each-any))))
- (if #{tmp 2721}#
- (@apply
- (lambda (#{e1 2724}# #{e2 2725}#)
- (values
- #{meta 2682}#
- #{req 2673}#
- #{opt 2674}#
- #{rest 2675}#
- #{kw 2676}#
- #{inits 2681}#
- #{vars 2678}#
- (#{chi-body 440}#
- (cons #{e1 2724}# #{e2 2725}#)
- (#{source-wrap 420}#
- #{e 2538}#
- #{w 2540}#
- #{s 2541}#
- #{mod 2542}#)
- #{r* 2679}#
- #{w* 2680}#
- #{mod 2542}#)))
- #{tmp 2721}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2693}#)))))))))))
- (begin
- (let ((#{tmp 2727}# #{clauses 2544}#))
- (let ((#{tmp 2728}# ($sc-dispatch #{tmp 2727}# '())))
- (if #{tmp 2728}#
- (@apply (lambda () (values '() #f)) #{tmp 2728}#)
- (let ((#{tmp 2729}#
- ($sc-dispatch
- #{tmp 2727}#
- '((any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 2729}#
- (@apply
- (lambda (#{args 2736}#
- #{e1 2737}#
- #{e2 2738}#
- #{args* 2739}#
- #{e1* 2740}#
- #{e2* 2741}#)
- (call-with-values
- (lambda () (#{get-formals 2543}# #{args 2736}#))
- (lambda (#{req 2742}#
- #{opt 2743}#
- #{rest 2744}#
- #{kw 2745}#)
- (call-with-values
- (lambda ()
- (#{expand-req 2553}#
- #{req 2742}#
- #{opt 2743}#
- #{rest 2744}#
- #{kw 2745}#
- (cons #{e1 2737}# #{e2 2738}#)))
- (lambda (#{meta 2751}#
- #{req 2752}#
- #{opt 2753}#
- #{rest 2754}#
- #{kw 2755}#
- #{inits 2756}#
- #{vars 2757}#
- #{body 2758}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 456}#
- #{e 2538}#
- #{r 2539}#
- #{w 2540}#
- #{s 2541}#
- #{mod 2542}#
- #{get-formals 2543}#
- (map (lambda (#{tmp 2769}#
- #{tmp 2768}#
- #{tmp 2767}#)
- (cons #{tmp 2767}#
- (cons #{tmp 2768}#
- #{tmp 2769}#)))
- #{e2* 2741}#
- #{e1* 2740}#
- #{args* 2739}#)))
- (lambda (#{meta* 2771}# #{else* 2772}#)
- (values
- (append #{meta 2751}# #{meta* 2771}#)
- (#{build-lambda-case 288}#
- #{s 2541}#
- #{req 2752}#
- #{opt 2753}#
- #{rest 2754}#
- #{kw 2755}#
- #{inits 2756}#
- #{vars 2757}#
- #{body 2758}#
- #{else* 2772}#)))))))))
- #{tmp 2729}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2727}#))))))))))
- (#{strip 458}#
- (lambda (#{x 2775}# #{w 2776}#)
- (if (memq 'top (car #{w 2776}#))
- #{x 2775}#
- (letrec*
- ((#{f 2783}#
- (lambda (#{x 2784}#)
- (if (#{syntax-object? 307}# #{x 2784}#)
- (#{strip 458}#
- (#{syntax-object-expression 309}# #{x 2784}#)
- (#{syntax-object-wrap 311}# #{x 2784}#))
- (if (pair? #{x 2784}#)
- (begin
- (let ((#{a 2791}# (#{f 2783}# (car #{x 2784}#)))
- (#{d 2792}# (#{f 2783}# (cdr #{x 2784}#))))
- (if (if (eq? #{a 2791}# (car #{x 2784}#))
- (eq? #{d 2792}# (cdr #{x 2784}#))
- #f)
- #{x 2784}#
- (cons #{a 2791}# #{d 2792}#))))
- (if (vector? #{x 2784}#)
- (begin
- (let ((#{old 2798}# (vector->list #{x 2784}#)))
- (begin
- (let ((#{new 2800}# (map #{f 2783}# #{old 2798}#)))
- (letrec*
- ((#{lp 2804}#
- (lambda (#{l1 2805}# #{l2 2806}#)
- (if (null? #{l1 2805}#)
- #{x 2784}#
- (if (eq? (car #{l1 2805}#)
- (car #{l2 2806}#))
- (#{lp 2804}#
- (cdr #{l1 2805}#)
- (cdr #{l2 2806}#))
- (list->vector #{new 2800}#))))))
- (begin
- (#{lp 2804}# #{old 2798}# #{new 2800}#)))))))
- #{x 2784}#))))))
- (begin (#{f 2783}# #{x 2775}#))))))
- (#{gen-var 460}#
- (lambda (#{id 2808}#)
- (begin
- (let ((#{id 2811}#
- (if (#{syntax-object? 307}# #{id 2808}#)
- (#{syntax-object-expression 309}# #{id 2808}#)
- #{id 2808}#)))
- (gensym
- (string-append (symbol->string #{id 2811}#) " "))))))
- (#{lambda-var-list 462}#
- (lambda (#{vars 2813}#)
- (letrec*
- ((#{lvl 2819}#
- (lambda (#{vars 2820}# #{ls 2821}# #{w 2822}#)
- (if (pair? #{vars 2820}#)
- (#{lvl 2819}#
- (cdr #{vars 2820}#)
- (cons (#{wrap 418}# (car #{vars 2820}#) #{w 2822}# #f)
- #{ls 2821}#)
- #{w 2822}#)
- (if (#{id? 344}# #{vars 2820}#)
- (cons (#{wrap 418}# #{vars 2820}# #{w 2822}# #f)
- #{ls 2821}#)
- (if (null? #{vars 2820}#)
- #{ls 2821}#
- (if (#{syntax-object? 307}# #{vars 2820}#)
- (#{lvl 2819}#
- (#{syntax-object-expression 309}# #{vars 2820}#)
- #{ls 2821}#
- (#{join-wraps 400}#
- #{w 2822}#
- (#{syntax-object-wrap 311}# #{vars 2820}#)))
- (cons #{vars 2820}# #{ls 2821}#))))))))
- (begin (#{lvl 2819}# #{vars 2813}# '() '(())))))))
- (begin
- (lambda (#{src 780}# #{name 781}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 2)
- #{src 780}#
- #{name 781}#))
- (lambda (#{x 1158}# #{update 1159}#)
- (vector-set! #{x 1158}# 1 #{update 1159}#))
- (lambda (#{x 1162}# #{update 1163}#)
- (vector-set! #{x 1162}# 2 #{update 1163}#))
- (lambda (#{x 1166}# #{update 1167}#)
- (vector-set! #{x 1166}# 3 #{update 1167}#))
- (lambda (#{x 1247}#)
- (if (vector? #{x 1247}#)
- (if (= (vector-length #{x 1247}#) 4)
- (eq? (vector-ref #{x 1247}# 0) 'ribcage)
- #f)
- #f))
- (begin
- (#{global-extend 340}#
- 'local-syntax
- 'letrec-syntax
- #t)
- (#{global-extend 340}#
- 'local-syntax
- 'let-syntax
- #f)
- (#{global-extend 340}#
- 'core
- 'fluid-let-syntax
- (lambda (#{e 2833}#
- #{r 2834}#
- #{w 2835}#
- #{s 2836}#
- #{mod 2837}#)
- (let ((#{tmp 2843}# #{e 2833}#))
- (let ((#{tmp 2844}#
- ($sc-dispatch
- #{tmp 2843}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2844}#
- (@apply
- (lambda (#{var 2849}#
- #{val 2850}#
- #{e1 2851}#
- #{e2 2852}#)
- (#{valid-bound-ids? 412}# #{var 2849}#))
- #{tmp 2844}#)
- #f)
- (@apply
- (lambda (#{var 2858}#
- #{val 2859}#
- #{e1 2860}#
- #{e2 2861}#)
- (begin
- (let ((#{names 2863}#
- (map (lambda (#{x 2864}#)
- (#{id-var-name 406}#
- #{x 2864}#
- #{w 2835}#))
- #{var 2858}#)))
- (begin
- (for-each
- (lambda (#{id 2867}# #{n 2868}#)
- (begin
- (let ((#{atom-key 2873}#
- (car (#{lookup 338}#
- #{n 2868}#
- #{r 2834}#
- #{mod 2837}#))))
- (if (eqv? #{atom-key 2873}#
- 'displaced-lexical)
- (syntax-violation
- 'fluid-let-syntax
- "identifier out of context"
- #{e 2833}#
- (#{source-wrap 420}#
- #{id 2867}#
- #{w 2835}#
- #{s 2836}#
- #{mod 2837}#))))))
- #{var 2858}#
- #{names 2863}#)
- (#{chi-body 440}#
- (cons #{e1 2860}# #{e2 2861}#)
- (#{source-wrap 420}#
- #{e 2833}#
- #{w 2835}#
- #{s 2836}#
- #{mod 2837}#)
- (#{extend-env 332}#
- #{names 2863}#
- (begin
- (let ((#{trans-r 2879}#
- (#{macros-only-env 336}# #{r 2834}#)))
- (map (lambda (#{x 2880}#)
- (cons 'macro
- (#{eval-local-transformer 444}#
- (#{chi 432}#
- #{x 2880}#
- #{trans-r 2879}#
- #{w 2835}#
- #{mod 2837}#)
- #{mod 2837}#)))
- #{val 2859}#)))
- #{r 2834}#)
- #{w 2835}#
- #{mod 2837}#)))))
- #{tmp 2844}#)
- (let ((#{_ 2885}# #{tmp 2843}#))
- (syntax-violation
- 'fluid-let-syntax
- "bad syntax"
- (#{source-wrap 420}#
- #{e 2833}#
- #{w 2835}#
- #{s 2836}#
- #{mod 2837}#))))))))
- (#{global-extend 340}#
- 'core
- 'quote
- (lambda (#{e 2886}#
- #{r 2887}#
- #{w 2888}#
- #{s 2889}#
- #{mod 2890}#)
- (let ((#{tmp 2896}# #{e 2886}#))
- (let ((#{tmp 2897}#
- ($sc-dispatch #{tmp 2896}# '(_ any))))
- (if #{tmp 2897}#
- (@apply
- (lambda (#{e 2899}#)
- (#{build-data 292}#
- #{s 2889}#
- (#{strip 458}# #{e 2899}# #{w 2888}#)))
- #{tmp 2897}#)
- (let ((#{_ 2901}# #{tmp 2896}#))
- (syntax-violation
- 'quote
- "bad syntax"
- (#{source-wrap 420}#
- #{e 2886}#
- #{w 2888}#
- #{s 2889}#
- #{mod 2890}#))))))))
- (#{global-extend 340}#
- 'core
- 'syntax
- (letrec*
- ((#{gen-syntax 2903}#
- (lambda (#{src 2918}#
- #{e 2919}#
- #{r 2920}#
- #{maps 2921}#
- #{ellipsis? 2922}#
- #{mod 2923}#)
- (if (#{id? 344}# #{e 2919}#)
- (begin
- (let ((#{label 2931}#
- (#{id-var-name 406}# #{e 2919}# '(()))))
- (begin
- (let ((#{b 2934}#
- (#{lookup 338}#
- #{label 2931}#
- #{r 2920}#
- #{mod 2923}#)))
- (if (eq? (car #{b 2934}#) 'syntax)
- (call-with-values
- (lambda ()
- (begin
- (let ((#{var.lev 2937}# (cdr #{b 2934}#)))
- (#{gen-ref 2905}#
- #{src 2918}#
- (car #{var.lev 2937}#)
- (cdr #{var.lev 2937}#)
- #{maps 2921}#))))
- (lambda (#{var 2939}# #{maps 2940}#)
- (values
- (list 'ref #{var 2939}#)
- #{maps 2940}#)))
- (if (#{ellipsis? 2922}# #{e 2919}#)
- (syntax-violation
- 'syntax
- "misplaced ellipsis"
- #{src 2918}#)
- (values
- (list 'quote #{e 2919}#)
- #{maps 2921}#)))))))
- (let ((#{tmp 2945}# #{e 2919}#))
- (let ((#{tmp 2946}#
- ($sc-dispatch #{tmp 2945}# '(any any))))
- (if (if #{tmp 2946}#
- (@apply
- (lambda (#{dots 2949}# #{e 2950}#)
- (#{ellipsis? 2922}# #{dots 2949}#))
- #{tmp 2946}#)
- #f)
- (@apply
- (lambda (#{dots 2953}# #{e 2954}#)
- (#{gen-syntax 2903}#
- #{src 2918}#
- #{e 2954}#
- #{r 2920}#
- #{maps 2921}#
- (lambda (#{x 2955}#) #f)
- #{mod 2923}#))
- #{tmp 2946}#)
- (let ((#{tmp 2957}#
- ($sc-dispatch #{tmp 2945}# '(any any . any))))
- (if (if #{tmp 2957}#
- (@apply
- (lambda (#{x 2961}# #{dots 2962}# #{y 2963}#)
- (#{ellipsis? 2922}# #{dots 2962}#))
- #{tmp 2957}#)
- #f)
- (@apply
- (lambda (#{x 2967}# #{dots 2968}# #{y 2969}#)
- (letrec*
- ((#{f 2973}#
- (lambda (#{y 2974}# #{k 2975}#)
- (let ((#{tmp 2982}# #{y 2974}#))
- (let ((#{tmp 2983}#
- ($sc-dispatch
- #{tmp 2982}#
- '(any . any))))
- (if (if #{tmp 2983}#
- (@apply
- (lambda (#{dots 2986}#
- #{y 2987}#)
- (#{ellipsis? 2922}#
- #{dots 2986}#))
- #{tmp 2983}#)
- #f)
- (@apply
- (lambda (#{dots 2990}#
- #{y 2991}#)
- (#{f 2973}#
- #{y 2991}#
- (lambda (#{maps 2992}#)
- (call-with-values
- (lambda ()
- (#{k 2975}#
- (cons '()
- #{maps
2992}#)))
- (lambda (#{x 2994}#
- #{maps 2995}#)
- (if (null? (car #{maps
2995}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src 2918}#)
- (values
- (#{gen-mappend
2907}#
- #{x 2994}#
- (car #{maps
2995}#))
- (cdr #{maps
2995}#))))))))
- #{tmp 2983}#)
- (let ((#{_ 2999}# #{tmp 2982}#))
- (call-with-values
- (lambda ()
- (#{gen-syntax 2903}#
- #{src 2918}#
- #{y 2974}#
- #{r 2920}#
- #{maps 2921}#
- #{ellipsis? 2922}#
- #{mod 2923}#))
- (lambda (#{y 3000}#
- #{maps 3001}#)
- (call-with-values
- (lambda ()
- (#{k 2975}#
- #{maps 3001}#))
- (lambda (#{x 3004}#
- #{maps 3005}#)
- (values
- (#{gen-append 2913}#
- #{x 3004}#
- #{y 3000}#)
- #{maps
3005}#))))))))))))
- (begin
- (#{f 2973}#
- #{y 2969}#
- (lambda (#{maps 2976}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2903}#
- #{src 2918}#
- #{x 2967}#
- #{r 2920}#
- (cons '() #{maps 2976}#)
- #{ellipsis? 2922}#
- #{mod 2923}#))
- (lambda (#{x 2978}# #{maps 2979}#)
- (if (null? (car #{maps 2979}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src 2918}#)
- (values
- (#{gen-map 2909}#
- #{x 2978}#
- (car #{maps 2979}#))
- (cdr #{maps 2979}#))))))))))
- #{tmp 2957}#)
- (let ((#{tmp 3008}#
- ($sc-dispatch #{tmp 2945}# '(any . any))))
- (if #{tmp 3008}#
- (@apply
- (lambda (#{x 3011}# #{y 3012}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2903}#
- #{src 2918}#
- #{x 3011}#
- #{r 2920}#
- #{maps 2921}#
- #{ellipsis? 2922}#
- #{mod 2923}#))
- (lambda (#{x 3013}# #{maps 3014}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2903}#
- #{src 2918}#
- #{y 3012}#
- #{r 2920}#
- #{maps 3014}#
- #{ellipsis? 2922}#
- #{mod 2923}#))
- (lambda (#{y 3017}# #{maps 3018}#)
- (values
- (#{gen-cons 2911}#
- #{x 3013}#
- #{y 3017}#)
- #{maps 3018}#))))))
- #{tmp 3008}#)
- (let ((#{tmp 3021}#
- ($sc-dispatch
- #{tmp 2945}#
- '#(vector (any . each-any)))))
- (if #{tmp 3021}#
- (@apply
- (lambda (#{e1 3024}# #{e2 3025}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2903}#
- #{src 2918}#
- (cons #{e1 3024}# #{e2 3025}#)
- #{r 2920}#
- #{maps 2921}#
- #{ellipsis? 2922}#
- #{mod 2923}#))
- (lambda (#{e 3027}# #{maps 3028}#)
- (values
- (#{gen-vector 2915}# #{e 3027}#)
- #{maps 3028}#))))
- #{tmp 3021}#)
- (let ((#{_ 3032}# #{tmp 2945}#))
- (values
- (list 'quote #{e 2919}#)
- #{maps 2921}#))))))))))))))
- (#{gen-ref 2905}#
- (lambda (#{src 3034}#
- #{var 3035}#
- #{level 3036}#
- #{maps 3037}#)
- (if (= #{level 3036}# 0)
- (values #{var 3035}# #{maps 3037}#)
- (if (null? #{maps 3037}#)
- (syntax-violation
- 'syntax
- "missing ellipsis"
- #{src 3034}#)
- (call-with-values
- (lambda ()
- (#{gen-ref 2905}#
- #{src 3034}#
- #{var 3035}#
- (#{1-}# #{level 3036}#)
- (cdr #{maps 3037}#)))
- (lambda (#{outer-var 3044}# #{outer-maps 3045}#)
- (begin
- (let ((#{b 3049}#
- (assq #{outer-var 3044}#
- (car #{maps 3037}#))))
- (if #{b 3049}#
- (values (cdr #{b 3049}#) #{maps 3037}#)
- (begin
- (let ((#{inner-var 3051}#
- (#{gen-var 460}# 'tmp)))
- (values
- #{inner-var 3051}#
- (cons (cons (cons #{outer-var 3044}#
- #{inner-var 3051}#)
- (car #{maps 3037}#))
- #{outer-maps 3045}#)))))))))))))
- (#{gen-mappend 2907}#
- (lambda (#{e 3052}# #{map-env 3053}#)
- (list 'apply
- '(primitive append)
- (#{gen-map 2909}# #{e 3052}# #{map-env 3053}#))))
- (#{gen-map 2909}#
- (lambda (#{e 3057}# #{map-env 3058}#)
- (begin
- (let ((#{formals 3063}# (map cdr #{map-env 3058}#))
- (#{actuals 3064}#
- (map (lambda (#{x 3065}#)
- (list 'ref (car #{x 3065}#)))
- #{map-env 3058}#)))
- (if (eq? (car #{e 3057}#) 'ref)
- (car #{actuals 3064}#)
- (if (and-map
- (lambda (#{x 3072}#)
- (if (eq? (car #{x 3072}#) 'ref)
- (memq (car (cdr #{x 3072}#)) #{formals 3063}#)
- #f))
- (cdr #{e 3057}#))
- (cons 'map
- (cons (list 'primitive (car #{e 3057}#))
- (map (begin
- (let ((#{r 3078}#
- (map cons
- #{formals 3063}#
- #{actuals 3064}#)))
- (lambda (#{x 3079}#)
- (cdr (assq (car (cdr #{x 3079}#))
- #{r 3078}#)))))
- (cdr #{e 3057}#))))
- (cons 'map
- (cons (list 'lambda #{formals 3063}# #{e 3057}#)
- #{actuals 3064}#))))))))
- (#{gen-cons 2911}#
- (lambda (#{x 3083}# #{y 3084}#)
- (begin
- (let ((#{atom-key 3089}# (car #{y 3084}#)))
- (if (eqv? #{atom-key 3089}# 'quote)
- (if (eq? (car #{x 3083}#) 'quote)
- (list 'quote
- (cons (car (cdr #{x 3083}#))
- (car (cdr #{y 3084}#))))
- (if (eq? (car (cdr #{y 3084}#)) '())
- (list 'list #{x 3083}#)
- (list 'cons #{x 3083}# #{y 3084}#)))
- (if (eqv? #{atom-key 3089}# 'list)
- (cons 'list (cons #{x 3083}# (cdr #{y 3084}#)))
- (list 'cons #{x 3083}# #{y 3084}#)))))))
- (#{gen-append 2913}#
- (lambda (#{x 3098}# #{y 3099}#)
- (if (equal? #{y 3099}# ''())
- #{x 3098}#
- (list 'append #{x 3098}# #{y 3099}#))))
- (#{gen-vector 2915}#
- (lambda (#{x 3103}#)
- (if (eq? (car #{x 3103}#) 'list)
- (cons 'vector (cdr #{x 3103}#))
- (if (eq? (car #{x 3103}#) 'quote)
- (list 'quote
- (list->vector (car (cdr #{x 3103}#))))
- (list 'list->vector #{x 3103}#)))))
- (#{regen 2917}#
- (lambda (#{x 3113}#)
- (begin
- (let ((#{atom-key 3117}# (car #{x 3113}#)))
- (if (eqv? #{atom-key 3117}# 'ref)
- (#{build-lexical-reference 272}#
- 'value
- #f
- (car (cdr #{x 3113}#))
- (car (cdr #{x 3113}#)))
- (if (eqv? #{atom-key 3117}# 'primitive)
- (#{build-primref 290}# #f (car (cdr #{x 3113}#)))
- (if (eqv? #{atom-key 3117}# 'quote)
- (#{build-data 292}# #f (car (cdr #{x 3113}#)))
- (if (eqv? #{atom-key 3117}# 'lambda)
- (if (list? (car (cdr #{x 3113}#)))
- (#{build-simple-lambda 284}#
- #f
- (car (cdr #{x 3113}#))
- #f
- (car (cdr #{x 3113}#))
- '()
- (#{regen 2917}# (car (cdr (cdr #{x 3113}#)))))
- (error "how did we get here" #{x 3113}#))
- (#{build-application 266}#
- #f
- (#{build-primref 290}# #f (car #{x 3113}#))
- (map #{regen 2917}# (cdr #{x 3113}#))))))))))))
- (begin
- (lambda (#{e 3129}#
- #{r 3130}#
- #{w 3131}#
- #{s 3132}#
- #{mod 3133}#)
- (begin
- (let ((#{e 3140}#
- (#{source-wrap 420}#
- #{e 3129}#
- #{w 3131}#
- #{s 3132}#
- #{mod 3133}#)))
- (let ((#{tmp 3141}# #{e 3140}#))
- (let ((#{tmp 3142}#
- ($sc-dispatch #{tmp 3141}# '(_ any))))
- (if #{tmp 3142}#
- (@apply
- (lambda (#{x 3144}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2903}#
- #{e 3140}#
- #{x 3144}#
- #{r 3130}#
- '()
- #{ellipsis? 448}#
- #{mod 3133}#))
- (lambda (#{e 3145}# #{maps 3146}#)
- (#{regen 2917}# #{e 3145}#))))
- #{tmp 3142}#)
- (let ((#{_ 3150}# #{tmp 3141}#))
- (syntax-violation
- 'syntax
- "bad `syntax' form"
- #{e 3140}#)))))))))))
- (#{global-extend 340}#
- 'core
- 'lambda
- (lambda (#{e 3151}#
- #{r 3152}#
- #{w 3153}#
- #{s 3154}#
- #{mod 3155}#)
- (let ((#{tmp 3161}# #{e 3151}#))
- (let ((#{tmp 3162}#
- ($sc-dispatch
- #{tmp 3161}#
- '(_ any any . each-any))))
- (if #{tmp 3162}#
- (@apply
- (lambda (#{args 3166}# #{e1 3167}# #{e2 3168}#)
- (call-with-values
- (lambda ()
- (#{lambda-formals 450}# #{args 3166}#))
- (lambda (#{req 3169}#
- #{opt 3170}#
- #{rest 3171}#
- #{kw 3172}#)
- (letrec*
- ((#{lp 3180}#
- (lambda (#{body 3181}# #{meta 3182}#)
- (let ((#{tmp 3184}# #{body 3181}#))
- (let ((#{tmp 3185}#
- ($sc-dispatch
- #{tmp 3184}#
- '(any any . each-any))))
- (if (if #{tmp 3185}#
- (@apply
- (lambda (#{docstring 3189}#
- #{e1 3190}#
- #{e2 3191}#)
- (string?
- (syntax->datum
- #{docstring 3189}#)))
- #{tmp 3185}#)
- #f)
- (@apply
- (lambda (#{docstring 3195}#
- #{e1 3196}#
- #{e2 3197}#)
- (#{lp 3180}#
- (cons #{e1 3196}# #{e2 3197}#)
- (append
- #{meta 3182}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring
3195}#))))))
- #{tmp 3185}#)
- (let ((#{tmp 3200}#
- ($sc-dispatch
- #{tmp 3184}#
- '(#(vector #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp 3200}#
- (@apply
- (lambda (#{k 3205}#
- #{v 3206}#
- #{e1 3207}#
- #{e2 3208}#)
- (#{lp 3180}#
- (cons #{e1 3207}# #{e2 3208}#)
- (append
- #{meta 3182}#
- (syntax->datum
- (map cons
- #{k 3205}#
- #{v 3206}#)))))
- #{tmp 3200}#)
- (let ((#{_ 3213}# #{tmp 3184}#))
- (#{chi-simple-lambda 452}#
- #{e 3151}#
- #{r 3152}#
- #{w 3153}#
- #{s 3154}#
- #{mod 3155}#
- #{req 3169}#
- #{rest 3171}#
- #{meta 3182}#
- #{body 3181}#))))))))))
- (begin
- (#{lp 3180}#
- (cons #{e1 3167}# #{e2 3168}#)
- '()))))))
- #{tmp 3162}#)
- (let ((#{_ 3215}# #{tmp 3161}#))
- (syntax-violation
- 'lambda
- "bad lambda"
- #{e 3151}#)))))))
- (#{global-extend 340}#
- 'core
- 'lambda*
- (lambda (#{e 3216}#
- #{r 3217}#
- #{w 3218}#
- #{s 3219}#
- #{mod 3220}#)
- (let ((#{tmp 3226}# #{e 3216}#))
- (let ((#{tmp 3227}#
- ($sc-dispatch
- #{tmp 3226}#
- '(_ any any . each-any))))
- (if #{tmp 3227}#
- (@apply
- (lambda (#{args 3231}# #{e1 3232}# #{e2 3233}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 456}#
- #{e 3216}#
- #{r 3217}#
- #{w 3218}#
- #{s 3219}#
- #{mod 3220}#
- #{lambda*-formals 454}#
- (list (cons #{args 3231}#
- (cons #{e1 3232}# #{e2 3233}#)))))
- (lambda (#{meta 3235}# #{lcase 3236}#)
- (#{build-case-lambda 286}#
- #{s 3219}#
- #{meta 3235}#
- #{lcase 3236}#))))
- #{tmp 3227}#)
- (let ((#{_ 3240}# #{tmp 3226}#))
- (syntax-violation
- 'lambda
- "bad lambda*"
- #{e 3216}#)))))))
- (#{global-extend 340}#
- 'core
- 'case-lambda
- (lambda (#{e 3241}#
- #{r 3242}#
- #{w 3243}#
- #{s 3244}#
- #{mod 3245}#)
- (let ((#{tmp 3251}# #{e 3241}#))
- (let ((#{tmp 3252}#
- ($sc-dispatch
- #{tmp 3251}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3252}#
- (@apply
- (lambda (#{args 3259}#
- #{e1 3260}#
- #{e2 3261}#
- #{args* 3262}#
- #{e1* 3263}#
- #{e2* 3264}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 456}#
- #{e 3241}#
- #{r 3242}#
- #{w 3243}#
- #{s 3244}#
- #{mod 3245}#
- #{lambda-formals 450}#
- (cons (cons #{args 3259}#
- (cons #{e1 3260}# #{e2 3261}#))
- (map (lambda (#{tmp 3268}#
- #{tmp 3267}#
- #{tmp 3266}#)
- (cons #{tmp 3266}#
- (cons #{tmp 3267}# #{tmp 3268}#)))
- #{e2* 3264}#
- #{e1* 3263}#
- #{args* 3262}#))))
- (lambda (#{meta 3270}# #{lcase 3271}#)
- (#{build-case-lambda 286}#
- #{s 3244}#
- #{meta 3270}#
- #{lcase 3271}#))))
- #{tmp 3252}#)
- (let ((#{_ 3275}# #{tmp 3251}#))
- (syntax-violation
- 'case-lambda
- "bad case-lambda"
- #{e 3241}#)))))))
- (#{global-extend 340}#
- 'core
- 'case-lambda*
- (lambda (#{e 3276}#
- #{r 3277}#
- #{w 3278}#
- #{s 3279}#
- #{mod 3280}#)
- (let ((#{tmp 3286}# #{e 3276}#))
- (let ((#{tmp 3287}#
- ($sc-dispatch
- #{tmp 3286}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3287}#
- (@apply
- (lambda (#{args 3294}#
- #{e1 3295}#
- #{e2 3296}#
- #{args* 3297}#
- #{e1* 3298}#
- #{e2* 3299}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 456}#
- #{e 3276}#
- #{r 3277}#
- #{w 3278}#
- #{s 3279}#
- #{mod 3280}#
- #{lambda*-formals 454}#
- (cons (cons #{args 3294}#
- (cons #{e1 3295}# #{e2 3296}#))
- (map (lambda (#{tmp 3303}#
- #{tmp 3302}#
- #{tmp 3301}#)
- (cons #{tmp 3301}#
- (cons #{tmp 3302}# #{tmp 3303}#)))
- #{e2* 3299}#
- #{e1* 3298}#
- #{args* 3297}#))))
- (lambda (#{meta 3305}# #{lcase 3306}#)
- (#{build-case-lambda 286}#
- #{s 3279}#
- #{meta 3305}#
- #{lcase 3306}#))))
- #{tmp 3287}#)
- (let ((#{_ 3310}# #{tmp 3286}#))
- (syntax-violation
- 'case-lambda
- "bad case-lambda*"
- #{e 3276}#)))))))
- (#{global-extend 340}#
- 'core
- 'let
- (letrec*
- ((#{chi-let 3312}#
- (lambda (#{e 3313}#
- #{r 3314}#
- #{w 3315}#
- #{s 3316}#
- #{mod 3317}#
- #{constructor 3318}#
- #{ids 3319}#
- #{vals 3320}#
- #{exps 3321}#)
- (if (not (#{valid-bound-ids? 412}# #{ids 3319}#))
- (syntax-violation
- 'let
- "duplicate bound variable"
- #{e 3313}#)
- (begin
- (let ((#{labels 3333}#
- (#{gen-labels 364}# #{ids 3319}#))
- (#{new-vars 3334}#
- (map #{gen-var 460}# #{ids 3319}#)))
- (begin
- (let ((#{nw 3337}#
- (#{make-binding-wrap 396}#
- #{ids 3319}#
- #{labels 3333}#
- #{w 3315}#))
- (#{nr 3338}#
- (#{extend-var-env 334}#
- #{labels 3333}#
- #{new-vars 3334}#
- #{r 3314}#)))
- (#{constructor 3318}#
- #{s 3316}#
- (map syntax->datum #{ids 3319}#)
- #{new-vars 3334}#
- (map (lambda (#{x 3339}#)
- (#{chi 432}#
- #{x 3339}#
- #{r 3314}#
- #{w 3315}#
- #{mod 3317}#))
- #{vals 3320}#)
- (#{chi-body 440}#
- #{exps 3321}#
- (#{source-wrap 420}#
- #{e 3313}#
- #{nw 3337}#
- #{s 3316}#
- #{mod 3317}#)
- #{nr 3338}#
- #{nw 3337}#
- #{mod 3317}#))))))))))
- (begin
- (lambda (#{e 3341}#
- #{r 3342}#
- #{w 3343}#
- #{s 3344}#
- #{mod 3345}#)
- (let ((#{tmp 3351}# #{e 3341}#))
- (let ((#{tmp 3352}#
- ($sc-dispatch
- #{tmp 3351}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3352}#
- (@apply
- (lambda (#{id 3357}#
- #{val 3358}#
- #{e1 3359}#
- #{e2 3360}#)
- (and-map #{id? 344}# #{id 3357}#))
- #{tmp 3352}#)
- #f)
- (@apply
- (lambda (#{id 3366}#
- #{val 3367}#
- #{e1 3368}#
- #{e2 3369}#)
- (#{chi-let 3312}#
- #{e 3341}#
- #{r 3342}#
- #{w 3343}#
- #{s 3344}#
- #{mod 3345}#
- #{build-let 296}#
- #{id 3366}#
- #{val 3367}#
- (cons #{e1 3368}# #{e2 3369}#)))
- #{tmp 3352}#)
- (let ((#{tmp 3373}#
- ($sc-dispatch
- #{tmp 3351}#
- '(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 3373}#
- (@apply
- (lambda (#{f 3379}#
- #{id 3380}#
- #{val 3381}#
- #{e1 3382}#
- #{e2 3383}#)
- (if (#{id? 344}# #{f 3379}#)
- (and-map #{id? 344}# #{id 3380}#)
- #f))
- #{tmp 3373}#)
- #f)
- (@apply
- (lambda (#{f 3392}#
- #{id 3393}#
- #{val 3394}#
- #{e1 3395}#
- #{e2 3396}#)
- (#{chi-let 3312}#
- #{e 3341}#
- #{r 3342}#
- #{w 3343}#
- #{s 3344}#
- #{mod 3345}#
- #{build-named-let 298}#
- (cons #{f 3392}# #{id 3393}#)
- #{val 3394}#
- (cons #{e1 3395}# #{e2 3396}#)))
- #{tmp 3373}#)
- (let ((#{_ 3401}# #{tmp 3351}#))
- (syntax-violation
- 'let
- "bad let"
- (#{source-wrap 420}#
- #{e 3341}#
- #{w 3343}#
- #{s 3344}#
- #{mod 3345}#))))))))))))
- (#{global-extend 340}#
- 'core
- 'letrec
- (lambda (#{e 3402}#
- #{r 3403}#
- #{w 3404}#
- #{s 3405}#
- #{mod 3406}#)
- (let ((#{tmp 3412}# #{e 3402}#))
- (let ((#{tmp 3413}#
- ($sc-dispatch
- #{tmp 3412}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3413}#
- (@apply
- (lambda (#{id 3418}#
- #{val 3419}#
- #{e1 3420}#
- #{e2 3421}#)
- (and-map #{id? 344}# #{id 3418}#))
- #{tmp 3413}#)
- #f)
- (@apply
- (lambda (#{id 3427}#
- #{val 3428}#
- #{e1 3429}#
- #{e2 3430}#)
- (begin
- (let ((#{ids 3432}# #{id 3427}#))
- (if (not (#{valid-bound-ids? 412}# #{ids 3432}#))
- (syntax-violation
- 'letrec
- "duplicate bound variable"
- #{e 3402}#)
- (begin
- (let ((#{labels 3436}#
- (#{gen-labels 364}# #{ids 3432}#))
- (#{new-vars 3437}#
- (map #{gen-var 460}# #{ids 3432}#)))
- (begin
- (let ((#{w 3440}#
- (#{make-binding-wrap 396}#
- #{ids 3432}#
- #{labels 3436}#
- #{w 3404}#))
- (#{r 3441}#
- (#{extend-var-env 334}#
- #{labels 3436}#
- #{new-vars 3437}#
- #{r 3403}#)))
- (#{build-letrec 300}#
- #{s 3405}#
- #f
- (map syntax->datum #{ids 3432}#)
- #{new-vars 3437}#
- (map (lambda (#{x 3442}#)
- (#{chi 432}#
- #{x 3442}#
- #{r 3441}#
- #{w 3440}#
- #{mod 3406}#))
- #{val 3428}#)
- (#{chi-body 440}#
- (cons #{e1 3429}# #{e2 3430}#)
- (#{source-wrap 420}#
- #{e 3402}#
- #{w 3440}#
- #{s 3405}#
- #{mod 3406}#)
- #{r 3441}#
- #{w 3440}#
- #{mod 3406}#))))))))))
- #{tmp 3413}#)
- (let ((#{_ 3447}# #{tmp 3412}#))
- (syntax-violation
- 'letrec
- "bad letrec"
- (#{source-wrap 420}#
- #{e 3402}#
- #{w 3404}#
- #{s 3405}#
- #{mod 3406}#))))))))
- (#{global-extend 340}#
- 'core
- 'letrec*
- (lambda (#{e 3448}#
- #{r 3449}#
- #{w 3450}#
- #{s 3451}#
- #{mod 3452}#)
- (let ((#{tmp 3458}# #{e 3448}#))
- (let ((#{tmp 3459}#
- ($sc-dispatch
- #{tmp 3458}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3459}#
- (@apply
- (lambda (#{id 3464}#
- #{val 3465}#
- #{e1 3466}#
- #{e2 3467}#)
- (and-map #{id? 344}# #{id 3464}#))
- #{tmp 3459}#)
- #f)
- (@apply
- (lambda (#{id 3473}#
- #{val 3474}#
- #{e1 3475}#
- #{e2 3476}#)
- (begin
- (let ((#{ids 3478}# #{id 3473}#))
- (if (not (#{valid-bound-ids? 412}# #{ids 3478}#))
- (syntax-violation
- 'letrec*
- "duplicate bound variable"
- #{e 3448}#)
- (begin
- (let ((#{labels 3482}#
- (#{gen-labels 364}# #{ids 3478}#))
- (#{new-vars 3483}#
- (map #{gen-var 460}# #{ids 3478}#)))
- (begin
- (let ((#{w 3486}#
- (#{make-binding-wrap 396}#
- #{ids 3478}#
- #{labels 3482}#
- #{w 3450}#))
- (#{r 3487}#
- (#{extend-var-env 334}#
- #{labels 3482}#
- #{new-vars 3483}#
- #{r 3449}#)))
- (#{build-letrec 300}#
- #{s 3451}#
- #t
- (map syntax->datum #{ids 3478}#)
- #{new-vars 3483}#
- (map (lambda (#{x 3488}#)
- (#{chi 432}#
- #{x 3488}#
- #{r 3487}#
- #{w 3486}#
- #{mod 3452}#))
- #{val 3474}#)
- (#{chi-body 440}#
- (cons #{e1 3475}# #{e2 3476}#)
- (#{source-wrap 420}#
- #{e 3448}#
- #{w 3486}#
- #{s 3451}#
- #{mod 3452}#)
- #{r 3487}#
- #{w 3486}#
- #{mod 3452}#))))))))))
- #{tmp 3459}#)
- (let ((#{_ 3493}# #{tmp 3458}#))
- (syntax-violation
- 'letrec*
- "bad letrec*"
- (#{source-wrap 420}#
- #{e 3448}#
- #{w 3450}#
- #{s 3451}#
- #{mod 3452}#))))))))
- (#{global-extend 340}#
- 'core
- 'set!
- (lambda (#{e 3494}#
- #{r 3495}#
- #{w 3496}#
- #{s 3497}#
- #{mod 3498}#)
- (let ((#{tmp 3504}# #{e 3494}#))
- (let ((#{tmp 3505}#
- ($sc-dispatch #{tmp 3504}# '(_ any any))))
- (if (if #{tmp 3505}#
- (@apply
- (lambda (#{id 3508}# #{val 3509}#)
- (#{id? 344}# #{id 3508}#))
- #{tmp 3505}#)
- #f)
- (@apply
- (lambda (#{id 3512}# #{val 3513}#)
- (begin
- (let ((#{n 3516}#
- (#{id-var-name 406}# #{id 3512}# #{w 3496}#))
- (#{id-mod 3517}#
- (if (#{syntax-object? 307}# #{id 3512}#)
- (#{syntax-object-module 313}# #{id 3512}#)
- #{mod 3498}#)))
- (begin
- (let ((#{b 3519}#
- (#{lookup 338}#
- #{n 3516}#
- #{r 3495}#
- #{id-mod 3517}#)))
- (begin
- (let ((#{atom-key 3522}# (car #{b 3519}#)))
- (if (eqv? #{atom-key 3522}# 'lexical)
- (#{build-lexical-assignment 274}#
- #{s 3497}#
- (syntax->datum #{id 3512}#)
- (cdr #{b 3519}#)
- (#{chi 432}#
- #{val 3513}#
- #{r 3495}#
- #{w 3496}#
- #{mod 3498}#))
- (if (eqv? #{atom-key 3522}# 'global)
- (#{build-global-assignment 280}#
- #{s 3497}#
- #{n 3516}#
- (#{chi 432}#
- #{val 3513}#
- #{r 3495}#
- #{w 3496}#
- #{mod 3498}#)
- #{id-mod 3517}#)
- (if (eqv? #{atom-key 3522}# 'macro)
- (begin
- (let ((#{p 3529}# (cdr #{b 3519}#)))
- (if (procedure-property
- #{p 3529}#
- 'variable-transformer)
- (#{chi 432}#
- (#{chi-macro 438}#
- #{p 3529}#
- #{e 3494}#
- #{r 3495}#
- #{w 3496}#
- #{s 3497}#
- #f
- #{mod 3498}#)
- #{r 3495}#
- '(())
- #{mod 3498}#)
- (syntax-violation
- 'set!
- "not a variable transformer"
- (#{wrap 418}#
- #{e 3494}#
- #{w 3496}#
- #{mod 3498}#)
- (#{wrap 418}#
- #{id 3512}#
- #{w 3496}#
- #{id-mod 3517}#)))))
- (if (eqv? #{atom-key 3522}#
- 'displaced-lexical)
- (syntax-violation
- 'set!
- "identifier out of context"
- (#{wrap 418}#
- #{id 3512}#
- #{w 3496}#
- #{mod 3498}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap 420}#
- #{e 3494}#
- #{w 3496}#
- #{s 3497}#
- #{mod 3498}#)))))))))))))
- #{tmp 3505}#)
- (let ((#{tmp 3534}#
- ($sc-dispatch
- #{tmp 3504}#
- '(_ (any . each-any) any))))
- (if #{tmp 3534}#
- (@apply
- (lambda (#{head 3538}# #{tail 3539}# #{val 3540}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 430}#
- #{head 3538}#
- #{r 3495}#
- '(())
- #f
- #f
- #{mod 3498}#
- #t))
- (lambda (#{type 3543}#
- #{value 3544}#
- #{ee 3545}#
- #{ww 3546}#
- #{ss 3547}#
- #{modmod 3548}#)
- (if (eqv? #{type 3543}# 'module-ref)
- (begin
- (let ((#{val 3557}#
- (#{chi 432}#
- #{val 3540}#
- #{r 3495}#
- #{w 3496}#
- #{mod 3498}#)))
- (call-with-values
- (lambda ()
- (#{value 3544}#
- (cons #{head 3538}# #{tail 3539}#)
- #{r 3495}#
- #{w 3496}#))
- (lambda (#{e 3559}#
- #{r 3560}#
- #{w 3561}#
- #{s* 3562}#
- #{mod 3563}#)
- (let ((#{tmp 3569}# #{e 3559}#))
- (let ((#{tmp 3570}#
- (list #{tmp 3569}#)))
- (if (if #{tmp 3570}#
- (@apply
- (lambda (#{e 3572}#)
- (#{id? 344}# #{e 3572}#))
- #{tmp 3570}#)
- #f)
- (@apply
- (lambda (#{e 3574}#)
- (#{build-global-assignment
280}#
- #{s 3497}#
- (syntax->datum #{e 3574}#)
- #{val 3557}#
- #{mod 3563}#))
- #{tmp 3570}#)
- (syntax-violation
- #f
- "source expression failed to
match any pattern"
- #{tmp 3569}#))))))))
- (#{build-application 266}#
- #{s 3497}#
- (#{chi 432}#
- (list '#(syntax-object
- setter
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(type value ee ww ss modmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i3549"
- "i3550"
- "i3551"
- "i3552"
- "i3553"
- "i3554"))
- #(ribcage
- #(head tail val)
- #((top) (top) (top))
- #("i3535" "i3536" "i3537"))
- #(ribcage () () ())
- #(ribcage
- #(e r w s mod)
- #((top) (top) (top) (top) (top))
- #("i3499"
- "i3500"
- "i3501"
- "i3502"
- "i3503"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile))
- #{head 3538}#)
- #{r 3495}#
- #{w 3496}#
- #{mod 3498}#)
- (map (lambda (#{e 3576}#)
- (#{chi 432}#
- #{e 3576}#
- #{r 3495}#
- #{w 3496}#
- #{mod 3498}#))
- (append
- #{tail 3539}#
- (list #{val 3540}#))))))))
- #{tmp 3534}#)
- (let ((#{_ 3580}# #{tmp 3504}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap 420}#
- #{e 3494}#
- #{w 3496}#
- #{s 3497}#
- #{mod 3498}#))))))))))
- (#{global-extend 340}#
- 'module-ref
- '@
- (lambda (#{e 3581}# #{r 3582}# #{w 3583}#)
- (let ((#{tmp 3587}# #{e 3581}#))
- (let ((#{tmp 3588}#
- ($sc-dispatch #{tmp 3587}# '(_ each-any any))))
- (if (if #{tmp 3588}#
- (@apply
- (lambda (#{mod 3591}# #{id 3592}#)
- (if (and-map #{id? 344}# #{mod 3591}#)
- (#{id? 344}# #{id 3592}#)
- #f))
- #{tmp 3588}#)
- #f)
- (@apply
- (lambda (#{mod 3598}# #{id 3599}#)
- (values
- (syntax->datum #{id 3599}#)
- #{r 3582}#
- #{w 3583}#
- #f
- (syntax->datum
- (cons '#(syntax-object
- public
- ((top)
- #(ribcage
- #(mod id)
- #((top) (top))
- #("i3596" "i3597"))
- #(ribcage () () ())
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3584" "i3585" "i3586"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile))
- #{mod 3598}#))))
- #{tmp 3588}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3587}#))))))
- (#{global-extend 340}#
- 'module-ref
- '@@
- (lambda (#{e 3601}# #{r 3602}# #{w 3603}#)
- (letrec*
- ((#{remodulate 3608}#
- (lambda (#{x 3609}# #{mod 3610}#)
- (if (pair? #{x 3609}#)
- (cons (#{remodulate 3608}#
- (car #{x 3609}#)
- #{mod 3610}#)
- (#{remodulate 3608}#
- (cdr #{x 3609}#)
- #{mod 3610}#))
- (if (#{syntax-object? 307}# #{x 3609}#)
- (#{make-syntax-object 305}#
- (#{remodulate 3608}#
- (#{syntax-object-expression 309}# #{x 3609}#)
- #{mod 3610}#)
- (#{syntax-object-wrap 311}# #{x 3609}#)
- #{mod 3610}#)
- (if (vector? #{x 3609}#)
- (begin
- (let ((#{n 3621}# (vector-length #{x 3609}#)))
- (begin
- (let ((#{v 3623}# (make-vector #{n 3621}#)))
- (letrec*
- ((#{loop 3626}#
- (lambda (#{i 3627}#)
- (if (= #{i 3627}# #{n 3621}#)
- (begin (if #f #f) #{v 3623}#)
- (begin
- (vector-set!
- #{v 3623}#
- #{i 3627}#
- (#{remodulate 3608}#
- (vector-ref
- #{x 3609}#
- #{i 3627}#)
- #{mod 3610}#))
- (#{loop 3626}#
- (#{1+}# #{i 3627}#)))))))
- (begin (#{loop 3626}# 0)))))))
- #{x 3609}#))))))
- (begin
- (let ((#{tmp 3633}# #{e 3601}#))
- (let ((#{tmp 3634}#
- ($sc-dispatch #{tmp 3633}# '(_ each-any any))))
- (if (if #{tmp 3634}#
- (@apply
- (lambda (#{mod 3637}# #{exp 3638}#)
- (and-map #{id? 344}# #{mod 3637}#))
- #{tmp 3634}#)
- #f)
- (@apply
- (lambda (#{mod 3642}# #{exp 3643}#)
- (begin
- (let ((#{mod 3645}#
- (syntax->datum
- (cons '#(syntax-object
- private
- ((top)
- #(ribcage
- #(mod exp)
- #((top) (top))
- #("i3640" "i3641"))
- #(ribcage
- (remodulate)
- ((top))
- ("i3607"))
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3604" "i3605" "i3606"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile))
- #{mod 3642}#))))
- (values
- (#{remodulate 3608}# #{exp 3643}# #{mod 3645}#)
- #{r 3602}#
- #{w 3603}#
- (#{source-annotation 322}# #{exp 3643}#)
- #{mod 3645}#))))
- #{tmp 3634}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3633}#))))))))
- (#{global-extend 340}#
- 'core
- 'if
- (lambda (#{e 3647}#
- #{r 3648}#
- #{w 3649}#
- #{s 3650}#
- #{mod 3651}#)
- (let ((#{tmp 3657}# #{e 3647}#))
- (let ((#{tmp 3658}#
- ($sc-dispatch #{tmp 3657}# '(_ any any))))
- (if #{tmp 3658}#
- (@apply
- (lambda (#{test 3661}# #{then 3662}#)
- (#{build-conditional 268}#
- #{s 3650}#
- (#{chi 432}#
- #{test 3661}#
- #{r 3648}#
- #{w 3649}#
- #{mod 3651}#)
- (#{chi 432}#
- #{then 3662}#
- #{r 3648}#
- #{w 3649}#
- #{mod 3651}#)
- (#{build-void 264}# #f)))
- #{tmp 3658}#)
- (let ((#{tmp 3664}#
- ($sc-dispatch #{tmp 3657}# '(_ any any any))))
- (if #{tmp 3664}#
- (@apply
- (lambda (#{test 3668}# #{then 3669}# #{else 3670}#)
- (#{build-conditional 268}#
- #{s 3650}#
- (#{chi 432}#
- #{test 3668}#
- #{r 3648}#
- #{w 3649}#
- #{mod 3651}#)
- (#{chi 432}#
- #{then 3669}#
- #{r 3648}#
- #{w 3649}#
- #{mod 3651}#)
- (#{chi 432}#
- #{else 3670}#
- #{r 3648}#
- #{w 3649}#
- #{mod 3651}#)))
- #{tmp 3664}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3657}#))))))))
- (#{global-extend 340}#
- 'core
- 'with-fluids
- (lambda (#{e 3671}#
- #{r 3672}#
- #{w 3673}#
- #{s 3674}#
- #{mod 3675}#)
- (let ((#{tmp 3681}# #{e 3671}#))
- (let ((#{tmp 3682}#
- ($sc-dispatch
- #{tmp 3681}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 3682}#
- (@apply
- (lambda (#{fluid 3687}#
- #{val 3688}#
- #{b 3689}#
- #{b* 3690}#)
- (#{build-dynlet 270}#
- #{s 3674}#
- (map (lambda (#{x 3691}#)
- (#{chi 432}#
- #{x 3691}#
- #{r 3672}#
- #{w 3673}#
- #{mod 3675}#))
- #{fluid 3687}#)
- (map (lambda (#{x 3694}#)
- (#{chi 432}#
- #{x 3694}#
- #{r 3672}#
- #{w 3673}#
- #{mod 3675}#))
- #{val 3688}#)
- (#{chi-body 440}#
- (cons #{b 3689}# #{b* 3690}#)
- (#{source-wrap 420}#
- #{e 3671}#
- #{w 3673}#
- #{s 3674}#
- #{mod 3675}#)
- #{r 3672}#
- #{w 3673}#
- #{mod 3675}#)))
- #{tmp 3682}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3681}#))))))
- (#{global-extend 340}# 'begin 'begin '())
- (#{global-extend 340}# 'define 'define '())
- (#{global-extend 340}#
- 'define-syntax
- 'define-syntax
- '())
- (#{global-extend 340}# 'eval-when 'eval-when '())
- (#{global-extend 340}#
- 'core
- 'syntax-case
- (letrec*
- ((#{convert-pattern 3699}#
- (lambda (#{pattern 3706}# #{keys 3707}#)
- (letrec*
- ((#{cvt* 3711}#
- (lambda (#{p* 3716}# #{n 3717}# #{ids 3718}#)
- (if (not (pair? #{p* 3716}#))
- (#{cvt 3715}#
- #{p* 3716}#
- #{n 3717}#
- #{ids 3718}#)
- (call-with-values
- (lambda ()
- (#{cvt* 3711}#
- (cdr #{p* 3716}#)
- #{n 3717}#
- #{ids 3718}#))
- (lambda (#{y 3722}# #{ids 3723}#)
- (call-with-values
- (lambda ()
- (#{cvt 3715}#
- (car #{p* 3716}#)
- #{n 3717}#
- #{ids 3723}#))
- (lambda (#{x 3726}# #{ids 3727}#)
- (values
- (cons #{x 3726}# #{y 3722}#)
- #{ids 3727}#))))))))
- (#{v-reverse 3713}#
- (lambda (#{x 3730}#)
- (letrec*
- ((#{loop 3735}#
- (lambda (#{r 3736}# #{x 3737}#)
- (if (not (pair? #{x 3737}#))
- (values #{r 3736}# #{x 3737}#)
- (#{loop 3735}#
- (cons (car #{x 3737}#) #{r 3736}#)
- (cdr #{x 3737}#))))))
- (begin (#{loop 3735}# '() #{x 3730}#)))))
- (#{cvt 3715}#
- (lambda (#{p 3738}# #{n 3739}# #{ids 3740}#)
- (if (#{id? 344}# #{p 3738}#)
- (if (#{bound-id-member? 416}#
- #{p 3738}#
- #{keys 3707}#)
- (values
- (vector 'free-id #{p 3738}#)
- #{ids 3740}#)
- (if (#{free-id=? 408}#
- #{p 3738}#
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3741" "i3742" "i3743"))
- #(ribcage
- (cvt v-reverse cvt*)
- ((top) (top) (top))
- ("i3714" "i3712" "i3710"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3708" "i3709"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3704" "i3702" "i3700" "i3698"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile)))
- (values '_ #{ids 3740}#)
- (values
- 'any
- (cons (cons #{p 3738}# #{n 3739}#)
- #{ids 3740}#))))
- (let ((#{tmp 3749}# #{p 3738}#))
- (let ((#{tmp 3750}#
- ($sc-dispatch #{tmp 3749}# '(any any))))
- (if (if #{tmp 3750}#
- (@apply
- (lambda (#{x 3753}# #{dots 3754}#)
- (#{ellipsis? 448}# #{dots 3754}#))
- #{tmp 3750}#)
- #f)
- (@apply
- (lambda (#{x 3757}# #{dots 3758}#)
- (call-with-values
- (lambda ()
- (#{cvt 3715}#
- #{x 3757}#
- (#{1+}# #{n 3739}#)
- #{ids 3740}#))
- (lambda (#{p 3760}# #{ids 3761}#)
- (values
- (if (eq? #{p 3760}# 'any)
- 'each-any
- (vector 'each #{p 3760}#))
- #{ids 3761}#))))
- #{tmp 3750}#)
- (let ((#{tmp 3764}#
- ($sc-dispatch
- #{tmp 3749}#
- '(any any . any))))
- (if (if #{tmp 3764}#
- (@apply
- (lambda (#{x 3768}#
- #{dots 3769}#
- #{ys 3770}#)
- (#{ellipsis? 448}# #{dots 3769}#))
- #{tmp 3764}#)
- #f)
- (@apply
- (lambda (#{x 3774}#
- #{dots 3775}#
- #{ys 3776}#)
- (call-with-values
- (lambda ()
- (#{cvt* 3711}#
- #{ys 3776}#
- #{n 3739}#
- #{ids 3740}#))
- (lambda (#{ys 3777}# #{ids 3778}#)
- (call-with-values
- (lambda ()
- (#{cvt 3715}#
- #{x 3774}#
- (#{1+}# #{n 3739}#)
- #{ids 3778}#))
- (lambda (#{x 3781}# #{ids 3782}#)
- (call-with-values
- (lambda ()
- (#{v-reverse 3713}#
- #{ys 3777}#))
- (lambda (#{ys 3785}#
- #{e 3786}#)
- (values
- (vector
- 'each+
- #{x 3781}#
- #{ys 3785}#
- #{e 3786}#)
- #{ids 3782}#))))))))
- #{tmp 3764}#)
- (let ((#{tmp 3790}#
- ($sc-dispatch
- #{tmp 3749}#
- '(any . any))))
- (if #{tmp 3790}#
- (@apply
- (lambda (#{x 3793}# #{y 3794}#)
- (call-with-values
- (lambda ()
- (#{cvt 3715}#
- #{y 3794}#
- #{n 3739}#
- #{ids 3740}#))
- (lambda (#{y 3795}# #{ids 3796}#)
- (call-with-values
- (lambda ()
- (#{cvt 3715}#
- #{x 3793}#
- #{n 3739}#
- #{ids 3796}#))
- (lambda (#{x 3799}#
- #{ids 3800}#)
- (values
- (cons #{x 3799}#
- #{y 3795}#)
- #{ids 3800}#))))))
- #{tmp 3790}#)
- (let ((#{tmp 3803}#
- ($sc-dispatch #{tmp 3749}# '())))
- (if #{tmp 3803}#
- (@apply
- (lambda ()
- (values '() #{ids 3740}#))
- #{tmp 3803}#)
- (let ((#{tmp 3804}#
- ($sc-dispatch
- #{tmp 3749}#
- '#(vector each-any))))
- (if #{tmp 3804}#
- (@apply
- (lambda (#{x 3806}#)
- (call-with-values
- (lambda ()
- (#{cvt 3715}#
- #{x 3806}#
- #{n 3739}#
- #{ids 3740}#))
- (lambda (#{p 3808}#
- #{ids 3809}#)
- (values
- (vector
- 'vector
- #{p 3808}#)
- #{ids 3809}#))))
- #{tmp 3804}#)
- (let ((#{x 3813}# #{tmp 3749}#))
- (values
- (vector
- 'atom
- (#{strip 458}#
- #{p 3738}#
- '(())))
- #{ids 3740}#)))))))))))))))))
- (begin (#{cvt 3715}# #{pattern 3706}# 0 '())))))
- (#{build-dispatch-call 3701}#
- (lambda (#{pvars 3815}#
- #{exp 3816}#
- #{y 3817}#
- #{r 3818}#
- #{mod 3819}#)
- (begin
- (map cdr #{pvars 3815}#)
- (let ((#{ids 3827}# (map car #{pvars 3815}#)))
- (begin
- (let ((#{labels 3831}#
- (#{gen-labels 364}# #{ids 3827}#))
- (#{new-vars 3832}#
- (map #{gen-var 460}# #{ids 3827}#)))
- (#{build-application 266}#
- #f
- (#{build-primref 290}# #f 'apply)
- (list (#{build-simple-lambda 284}#
- #f
- (map syntax->datum #{ids 3827}#)
- #f
- #{new-vars 3832}#
- '()
- (#{chi 432}#
- #{exp 3816}#
- (#{extend-env 332}#
- #{labels 3831}#
- (map (lambda (#{var 3836}# #{level 3837}#)
- (cons 'syntax
- (cons #{var 3836}#
- #{level 3837}#)))
- #{new-vars 3832}#
- (map cdr #{pvars 3815}#))
- #{r 3818}#)
- (#{make-binding-wrap 396}#
- #{ids 3827}#
- #{labels 3831}#
- '(()))
- #{mod 3819}#))
- #{y 3817}#))))))))
- (#{gen-clause 3703}#
- (lambda (#{x 3843}#
- #{keys 3844}#
- #{clauses 3845}#
- #{r 3846}#
- #{pat 3847}#
- #{fender 3848}#
- #{exp 3849}#
- #{mod 3850}#)
- (call-with-values
- (lambda ()
- (#{convert-pattern 3699}#
- #{pat 3847}#
- #{keys 3844}#))
- (lambda (#{p 3859}# #{pvars 3860}#)
- (if (not (#{distinct-bound-ids? 414}#
- (map car #{pvars 3860}#)))
- (syntax-violation
- 'syntax-case
- "duplicate pattern variable"
- #{pat 3847}#)
- (if (not (and-map
- (lambda (#{x 3867}#)
- (not (#{ellipsis? 448}# (car #{x 3867}#))))
- #{pvars 3860}#))
- (syntax-violation
- 'syntax-case
- "misplaced ellipsis"
- #{pat 3847}#)
- (begin
- (let ((#{y 3871}# (#{gen-var 460}# 'tmp)))
- (#{build-application 266}#
- #f
- (#{build-simple-lambda 284}#
- #f
- (list 'tmp)
- #f
- (list #{y 3871}#)
- '()
- (begin
- (let ((#{y 3875}#
- (#{build-lexical-reference 272}#
- 'value
- #f
- 'tmp
- #{y 3871}#)))
- (#{build-conditional 268}#
- #f
- (let ((#{tmp 3878}# #{fender 3848}#))
- (let ((#{tmp 3879}#
- ($sc-dispatch
- #{tmp 3878}#
- '#(atom #t))))
- (if #{tmp 3879}#
- (@apply
- (lambda () #{y 3875}#)
- #{tmp 3879}#)
- (let ((#{_ 3881}# #{tmp 3878}#))
- (#{build-conditional 268}#
- #f
- #{y 3875}#
- (#{build-dispatch-call 3701}#
- #{pvars 3860}#
- #{fender 3848}#
- #{y 3875}#
- #{r 3846}#
- #{mod 3850}#)
- (#{build-data 292}# #f #f))))))
- (#{build-dispatch-call 3701}#
- #{pvars 3860}#
- #{exp 3849}#
- #{y 3875}#
- #{r 3846}#
- #{mod 3850}#)
- (#{gen-syntax-case 3705}#
- #{x 3843}#
- #{keys 3844}#
- #{clauses 3845}#
- #{r 3846}#
- #{mod 3850}#)))))
- (list (if (eq? #{p 3859}# 'any)
- (#{build-application 266}#
- #f
- (#{build-primref 290}# #f 'list)
- (list #{x 3843}#))
- (#{build-application 266}#
- #f
- (#{build-primref 290}# #f '$sc-dispatch)
- (list #{x 3843}#
- (#{build-data 292}#
- #f
- #{p 3859}#))))))))))))))
- (#{gen-syntax-case 3705}#
- (lambda (#{x 3889}#
- #{keys 3890}#
- #{clauses 3891}#
- #{r 3892}#
- #{mod 3893}#)
- (if (null? #{clauses 3891}#)
- (#{build-application 266}#
- #f
- (#{build-primref 290}# #f 'syntax-violation)
- (list (#{build-data 292}# #f #f)
- (#{build-data 292}#
- #f
- "source expression failed to match any pattern")
- #{x 3889}#))
- (let ((#{tmp 3903}# (car #{clauses 3891}#)))
- (let ((#{tmp 3904}#
- ($sc-dispatch #{tmp 3903}# '(any any))))
- (if #{tmp 3904}#
- (@apply
- (lambda (#{pat 3907}# #{exp 3908}#)
- (if (if (#{id? 344}# #{pat 3907}#)
- (and-map
- (lambda (#{x 3911}#)
- (not (#{free-id=? 408}#
- #{pat 3907}#
- #{x 3911}#)))
- (cons '#(syntax-object
- ...
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3905" "i3906"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3894"
- "i3895"
- "i3896"
- "i3897"
- "i3898"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3704"
- "i3702"
- "i3700"
- "i3698"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile))
- #{keys 3890}#))
- #f)
- (if (#{free-id=? 408}#
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3905" "i3906"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3894"
- "i3895"
- "i3896"
- "i3897"
- "i3898"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3704" "i3702" "i3700" "i3698"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile))
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3905" "i3906"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3894"
- "i3895"
- "i3896"
- "i3897"
- "i3898"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3704" "i3702" "i3700" "i3698"))
- #(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))
- ("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"
- "i397"
- "i395"
- "i393"
- "i392"
- "i390"
- "i387"
- "i386"
- "i385"
- "i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i363"
- "i361"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i351"
- "i350"
- "i349"
- "i347"
- "i346"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i330"
- "i329"
- "i327"
- "i325"
- "i324"
- "i321"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i254"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile)))
- (#{chi 432}#
- #{exp 3908}#
- #{r 3892}#
- '(())
- #{mod 3893}#)
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene
+ guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1866"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1806"
+ "i1807"
+ "i1808"
+ "i1809"
+ "i1810"
+ "i1811"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1798"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1770"
+ "i1771"
+ "i1772"
+ "i1773"
+ "i1774"
+ "i1775"
+ "i1776"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene
+ guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1866"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1806"
+ "i1807"
+ "i1808"
+ "i1809"
+ "i1810"
+ "i1811"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1798"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1770"
+ "i1771"
+ "i1772"
+ "i1773"
+ "i1774"
+ "i1775"
+ "i1776"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene
+ guile)))
+ '(())
+ #{s 1766}#
+ #{mod 1768}#))
+ #{tmp 1863}#)
+ (syntax-violation
+ #f
+ "source expression
failed to match any pattern"
+ #{e 1763}#))))))))))
+ (if (eqv? #{ftype 1800}# 'define-syntax)
+ (begin
+ (let ((#{tmp 1871}#
+ ($sc-dispatch
+ #{e 1763}#
+ '(_ any any))))
+ (if (if #{tmp 1871}#
+ (@apply
+ (lambda (#{name 1874}#
+ #{val 1875}#)
+ (#{id? 348}#
+ #{name 1874}#))
+ #{tmp 1871}#)
+ #f)
+ (@apply
+ (lambda (#{name 1878}#
+ #{val 1879}#)
+ (values
+ 'define-syntax-form
+ #{name 1878}#
+ #{val 1879}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#))
+ #{tmp 1871}#)
+ (syntax-violation
+ #f
+ "source expression failed to
match any pattern"
+ #{e 1763}#))))
+ (values
+ 'call
+ #f
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)))))))))))))))
+ (if (#{syntax-object? 311}# #{e 1763}#)
+ (#{syntax-type 434}#
+ (#{syntax-object-expression 313}# #{e 1763}#)
+ #{r 1764}#
+ (#{join-wraps 404}#
+ #{w 1765}#
+ (#{syntax-object-wrap 315}# #{e 1763}#))
+ (begin
+ (let ((#{t 1885}#
+ (#{source-annotation 326}# #{e 1763}#)))
+ (if #{t 1885}# #{t 1885}# #{s 1766}#)))
+ #{rib 1767}#
+ (begin
+ (let ((#{t 1889}#
+ (#{syntax-object-module 317}# #{e 1763}#)))
+ (if #{t 1889}# #{t 1889}# #{mod 1768}#)))
+ #{for-car? 1769}#)
+ (if (self-evaluating? #{e 1763}#)
+ (values
+ 'constant
+ #f
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)
+ (values
+ 'other
+ #f
+ #{e 1763}#
+ #{w 1765}#
+ #{s 1766}#
+ #{mod 1768}#)))))))
+ (#{chi 436}#
+ (lambda (#{e 1894}# #{r 1895}# #{w 1896}# #{mod 1897}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 434}#
+ #{e 1894}#
+ #{r 1895}#
+ #{w 1896}#
+ (#{source-annotation 326}# #{e 1894}#)
+ #f
+ #{mod 1897}#
+ #f))
+ (lambda (#{type 1902}#
+ #{value 1903}#
+ #{e 1904}#
+ #{w 1905}#
+ #{s 1906}#
+ #{mod 1907}#)
+ (#{chi-expr 438}#
+ #{type 1902}#
+ #{value 1903}#
+ #{e 1904}#
+ #{r 1895}#
+ #{w 1905}#
+ #{s 1906}#
+ #{mod 1907}#)))))
+ (#{chi-expr 438}#
+ (lambda (#{type 1914}#
+ #{value 1915}#
+ #{e 1916}#
+ #{r 1917}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#)
+ (if (eqv? #{type 1914}# 'lexical)
+ (#{build-lexical-reference 276}#
+ 'value
+ #{s 1919}#
+ #{e 1916}#
+ #{value 1915}#)
+ (if (if (eqv? #{type 1914}# 'core)
+ #t
+ (eqv? #{type 1914}# 'core-form))
+ (#{value 1915}#
+ #{e 1916}#
+ #{r 1917}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#)
+ (if (eqv? #{type 1914}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{value 1915}# #{e 1916}# #{r 1917}# #{w 1918}#))
+ (lambda (#{e 1931}#
+ #{r 1932}#
+ #{w 1933}#
+ #{s 1934}#
+ #{mod 1935}#)
+ (#{chi 436}#
+ #{e 1931}#
+ #{r 1932}#
+ #{w 1933}#
+ #{mod 1935}#)))
+ (if (eqv? #{type 1914}# 'lexical-call)
+ (#{chi-application 440}#
+ (begin
+ (let ((#{id 1943}# (car #{e 1916}#)))
+ (#{build-lexical-reference 276}#
+ 'fun
+ (#{source-annotation 326}# #{id 1943}#)
+ (if (#{syntax-object? 311}# #{id 1943}#)
+ (syntax->datum #{id 1943}#)
+ #{id 1943}#)
+ #{value 1915}#)))
+ #{e 1916}#
+ #{r 1917}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#)
+ (if (eqv? #{type 1914}# 'global-call)
+ (#{chi-application 440}#
+ (#{build-global-reference 282}#
+ (#{source-annotation 326}# (car #{e 1916}#))
+ (if (#{syntax-object? 311}# #{value 1915}#)
+ (#{syntax-object-expression 313}# #{value 1915}#)
+ #{value 1915}#)
+ (if (#{syntax-object? 311}# #{value 1915}#)
+ (#{syntax-object-module 317}# #{value 1915}#)
+ #{mod 1920}#))
+ #{e 1916}#
+ #{r 1917}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#)
+ (if (eqv? #{type 1914}# 'constant)
+ (#{build-data 296}#
+ #{s 1919}#
+ (#{strip 462}#
+ (#{source-wrap 424}#
+ #{e 1916}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#)
+ '(())))
+ (if (eqv? #{type 1914}# 'global)
+ (#{build-global-reference 282}#
+ #{s 1919}#
+ #{value 1915}#
+ #{mod 1920}#)
+ (if (eqv? #{type 1914}# 'call)
+ (#{chi-application 440}#
+ (#{chi 436}#
+ (car #{e 1916}#)
+ #{r 1917}#
+ #{w 1918}#
+ #{mod 1920}#)
+ #{e 1916}#
+ #{r 1917}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#)
+ (if (eqv? #{type 1914}# 'begin-form)
+ (begin
+ (let ((#{tmp 1951}#
+ ($sc-dispatch
+ #{e 1916}#
+ '(_ any . each-any))))
+ (if #{tmp 1951}#
+ (@apply
+ (lambda (#{e1 1954}# #{e2 1955}#)
+ (#{chi-sequence 426}#
+ (cons #{e1 1954}# #{e2 1955}#)
+ #{r 1917}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#))
+ #{tmp 1951}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 1916}#))))
+ (if (eqv? #{type 1914}# 'local-syntax-form)
+ (#{chi-local-syntax 446}#
+ #{value 1915}#
+ #{e 1916}#
+ #{r 1917}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#
+ #{chi-sequence 426}#)
+ (if (eqv? #{type 1914}# 'eval-when-form)
+ (begin
+ (let ((#{tmp 1960}#
+ ($sc-dispatch
+ #{e 1916}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 1960}#
+ (@apply
+ (lambda (#{x 1964}#
+ #{e1 1965}#
+ #{e2 1966}#)
+ (begin
+ (let ((#{when-list 1968}#
+ (#{chi-when-list 432}#
+ #{e 1916}#
+ #{x 1964}#
+ #{w 1918}#)))
+ (if (memq 'eval #{when-list 1968}#)
+ (#{chi-sequence 426}#
+ (cons #{e1 1965}# #{e2 1966}#)
+ #{r 1917}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#)
+ (#{chi-void 450}#)))))
+ #{tmp 1960}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 1916}#))))
+ (if (if (eqv? #{type 1914}# 'define-form)
+ #t
+ (eqv? #{type 1914}# 'define-syntax-form))
+ (syntax-violation
+ #f
+ "definition in expression context"
+ #{e 1916}#
+ (#{wrap 422}#
+ #{value 1915}#
+ #{w 1918}#
+ #{mod 1920}#))
+ (if (eqv? #{type 1914}# 'syntax)
+ (syntax-violation
+ #f
+ "reference to pattern variable outside
syntax form"
+ (#{source-wrap 424}#
+ #{e 1916}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#))
+ (if (eqv? #{type 1914}# 'displaced-lexical)
+ (syntax-violation
+ #f
+ "reference to identifier outside its
scope"
+ (#{source-wrap 424}#
+ #{e 1916}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#))
+ (syntax-violation
+ #f
+ "unexpected syntax"
+ (#{source-wrap 424}#
+ #{e 1916}#
+ #{w 1918}#
+ #{s 1919}#
+ #{mod 1920}#))))))))))))))))))
+ (#{chi-application 440}#
+ (lambda (#{x 1975}#
+ #{e 1976}#
+ #{r 1977}#
+ #{w 1978}#
+ #{s 1979}#
+ #{mod 1980}#)
+ (begin
+ (let ((#{tmp 1988}#
+ ($sc-dispatch #{e 1976}# '(any . each-any))))
+ (if #{tmp 1988}#
+ (@apply
+ (lambda (#{e0 1991}# #{e1 1992}#)
+ (#{build-application 270}#
+ #{s 1979}#
+ #{x 1975}#
+ (map (lambda (#{e 1993}#)
+ (#{chi 436}#
+ #{e 1993}#
+ #{r 1977}#
+ #{w 1978}#
+ #{mod 1980}#))
+ #{e1 1992}#)))
+ #{tmp 1988}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 1976}#))))))
+ (#{chi-macro 442}#
+ (lambda (#{p 1996}#
+ #{e 1997}#
+ #{r 1998}#
+ #{w 1999}#
+ #{s 2000}#
+ #{rib 2001}#
+ #{mod 2002}#)
+ (letrec*
+ ((#{rebuild-macro-output 2011}#
+ (lambda (#{x 2012}# #{m 2013}#)
+ (if (pair? #{x 2012}#)
+ (#{decorate-source 264}#
+ (cons (#{rebuild-macro-output 2011}#
+ (car #{x 2012}#)
+ #{m 2013}#)
+ (#{rebuild-macro-output 2011}#
+ (cdr #{x 2012}#)
+ #{m 2013}#))
+ #{s 2000}#)
+ (if (#{syntax-object? 311}# #{x 2012}#)
+ (begin
+ (let ((#{w 2021}#
+ (#{syntax-object-wrap 315}# #{x 2012}#)))
+ (begin
+ (let ((#{ms 2024}# (car #{w 2021}#))
+ (#{s 2025}# (cdr #{w 2021}#)))
+ (if (if (pair? #{ms 2024}#)
+ (eq? (car #{ms 2024}#) #f)
+ #f)
+ (#{make-syntax-object 309}#
+ (#{syntax-object-expression 313}# #{x 2012}#)
+ (cons (cdr #{ms 2024}#)
+ (if #{rib 2001}#
+ (cons #{rib 2001}# (cdr #{s 2025}#))
+ (cdr #{s 2025}#)))
+ (#{syntax-object-module 317}# #{x 2012}#))
+ (#{make-syntax-object 309}#
+ (#{decorate-source 264}#
+ (#{syntax-object-expression 313}# #{x 2012}#)
+ #{s 2025}#)
+ (cons (cons #{m 2013}# #{ms 2024}#)
+ (if #{rib 2001}#
+ (cons #{rib 2001}#
+ (cons 'shift #{s 2025}#))
+ (cons 'shift #{s 2025}#)))
+ (#{syntax-object-module 317}# #{x 2012}#)))))))
+ (if (vector? #{x 2012}#)
+ (begin
+ (let ((#{n 2037}# (vector-length #{x 2012}#)))
+ (begin
+ (let ((#{v 2039}#
+ (#{decorate-source 264}#
+ (make-vector #{n 2037}#)
+ #{x 2012}#)))
+ (letrec*
+ ((#{loop 2042}#
+ (lambda (#{i 2043}#)
+ (if (= #{i 2043}# #{n 2037}#)
+ #{v 2039}#
+ (begin
+ (vector-set!
+ #{v 2039}#
+ #{i 2043}#
+ (#{rebuild-macro-output 2011}#
+ (vector-ref #{x 2012}# #{i 2043}#)
+ #{m 2013}#))
+ (#{loop 2042}# (#{1+}# #{i 2043}#)))))))
+ (begin (#{loop 2042}# 0)))))))
+ (if (symbol? #{x 2012}#)
+ (syntax-violation
+ #f
+ "encountered raw symbol in macro output"
+ (#{source-wrap 424}#
+ #{e 1997}#
+ #{w 1999}#
+ (cdr #{w 1999}#)
+ #{mod 2002}#)
+ #{x 2012}#)
+ (#{decorate-source 264}# #{x 2012}# #{s 2000}#))))))))
+ (begin
+ (#{rebuild-macro-output 2011}#
+ (#{p 1996}#
+ (#{source-wrap 424}#
+ #{e 1997}#
+ (#{anti-mark 392}# #{w 1999}#)
+ #{s 2000}#
+ #{mod 2002}#))
+ (gensym "m"))))))
+ (#{chi-body 444}#
+ (lambda (#{body 2053}#
+ #{outer-form 2054}#
+ #{r 2055}#
+ #{w 2056}#
+ #{mod 2057}#)
+ (begin
+ (let ((#{r 2065}#
+ (cons '("placeholder" placeholder) #{r 2055}#)))
+ (begin
+ (let ((#{ribcage 2067}#
+ (#{make-ribcage 371}# '() '() '())))
+ (begin
+ (let ((#{w 2070}#
+ (cons (car #{w 2056}#)
+ (cons #{ribcage 2067}# (cdr #{w 2056}#)))))
+ (letrec*
+ ((#{parse 2082}#
+ (lambda (#{body 2083}#
+ #{ids 2084}#
+ #{labels 2085}#
+ #{var-ids 2086}#
+ #{vars 2087}#
+ #{vals 2088}#
+ #{bindings 2089}#)
+ (if (null? #{body 2083}#)
+ (syntax-violation
+ #f
+ "no expressions in body"
+ #{outer-form 2054}#)
+ (begin
+ (let ((#{e 2094}# (cdr (car #{body 2083}#)))
+ (#{er 2095}# (car (car #{body 2083}#))))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 434}#
+ #{e 2094}#
+ #{er 2095}#
+ '(())
+ (#{source-annotation 326}# #{er 2095}#)
+ #{ribcage 2067}#
+ #{mod 2057}#
+ #f))
+ (lambda (#{type 2097}#
+ #{value 2098}#
+ #{e 2099}#
+ #{w 2100}#
+ #{s 2101}#
+ #{mod 2102}#)
+ (if (eqv? #{type 2097}# 'define-form)
+ (begin
+ (let ((#{id 2112}#
+ (#{wrap 422}#
+ #{value 2098}#
+ #{w 2100}#
+ #{mod 2102}#))
+ (#{label 2113}#
+ (#{gen-label 366}#)))
+ (begin
+ (let ((#{var 2115}#
+ (#{gen-var 464}#
+ #{id 2112}#)))
+ (begin
+ (#{extend-ribcage! 398}#
+ #{ribcage 2067}#
+ #{id 2112}#
+ #{label 2113}#)
+ (#{parse 2082}#
+ (cdr #{body 2083}#)
+ (cons #{id 2112}#
+ #{ids 2084}#)
+ (cons #{label 2113}#
+ #{labels 2085}#)
+ (cons #{id 2112}#
+ #{var-ids 2086}#)
+ (cons #{var 2115}#
+ #{vars 2087}#)
+ (cons (cons #{er 2095}#
+ (#{wrap 422}#
+ #{e 2099}#
+ #{w 2100}#
+ #{mod 2102}#))
+ #{vals 2088}#)
+ (cons (cons 'lexical
+ #{var 2115}#)
+ #{bindings
2089}#)))))))
+ (if (eqv? #{type 2097}#
+ 'define-syntax-form)
+ (begin
+ (let ((#{id 2120}#
+ (#{wrap 422}#
+ #{value 2098}#
+ #{w 2100}#
+ #{mod 2102}#))
+ (#{label 2121}#
+ (#{gen-label 366}#)))
+ (begin
+ (#{extend-ribcage! 398}#
+ #{ribcage 2067}#
+ #{id 2120}#
+ #{label 2121}#)
+ (#{parse 2082}#
+ (cdr #{body 2083}#)
+ (cons #{id 2120}# #{ids 2084}#)
+ (cons #{label 2121}#
+ #{labels 2085}#)
+ #{var-ids 2086}#
+ #{vars 2087}#
+ #{vals 2088}#
+ (cons (cons 'macro
+ (cons #{er 2095}#
+ (#{wrap 422}#
+ #{e 2099}#
+ #{w 2100}#
+ #{mod
2102}#)))
+ #{bindings 2089}#)))))
+ (if (eqv? #{type 2097}# 'begin-form)
+ (begin
+ (let ((#{tmp 2125}#
+ ($sc-dispatch
+ #{e 2099}#
+ '(_ . each-any))))
+ (if #{tmp 2125}#
+ (@apply
+ (lambda (#{e1 2127}#)
+ (#{parse 2082}#
+ (letrec*
+ ((#{f 2130}#
+ (lambda (#{forms
2131}#)
+ (if (null?
#{forms 2131}#)
+ (cdr #{body
2083}#)
+ (cons (cons
#{er 2095}#
+
(#{wrap 422}#
+
(car #{forms 2131}#)
+
#{w 2100}#
+
#{mod 2102}#))
+ (#{f
2130}#
+ (cdr
#{forms 2131}#)))))))
+ (begin
+ (#{f 2130}#
+ #{e1 2127}#)))
+ #{ids 2084}#
+ #{labels 2085}#
+ #{var-ids 2086}#
+ #{vars 2087}#
+ #{vals 2088}#
+ #{bindings 2089}#))
+ #{tmp 2125}#)
+ (syntax-violation
+ #f
+ "source expression failed to
match any pattern"
+ #{e 2099}#))))
+ (if (eqv? #{type 2097}#
+ 'local-syntax-form)
+ (#{chi-local-syntax 446}#
+ #{value 2098}#
+ #{e 2099}#
+ #{er 2095}#
+ #{w 2100}#
+ #{s 2101}#
+ #{mod 2102}#
+ (lambda (#{forms 2134}#
+ #{er 2135}#
+ #{w 2136}#
+ #{s 2137}#
+ #{mod 2138}#)
+ (#{parse 2082}#
+ (letrec*
+ ((#{f 2146}#
+ (lambda (#{forms 2147}#)
+ (if (null? #{forms
2147}#)
+ (cdr #{body 2083}#)
+ (cons (cons #{er
2135}#
+ (#{wrap
422}#
+ (car
#{forms 2147}#)
+ #{w
2136}#
+ #{mod
2138}#))
+ (#{f 2146}#
+ (cdr
#{forms 2147}#)))))))
+ (begin
+ (#{f 2146}#
+ #{forms 2134}#)))
+ #{ids 2084}#
+ #{labels 2085}#
+ #{var-ids 2086}#
+ #{vars 2087}#
+ #{vals 2088}#
+ #{bindings 2089}#)))
+ (if (null? #{ids 2084}#)
+ (#{build-sequence 298}#
+ #f
+ (map (lambda (#{x 2150}#)
+ (#{chi 436}#
+ (cdr #{x 2150}#)
+ (car #{x 2150}#)
+ '(())
+ #{mod 2102}#))
+ (cons (cons #{er 2095}#
+
(#{source-wrap 424}#
+ #{e 2099}#
+ #{w 2100}#
+ #{s 2101}#
+ #{mod
2102}#))
+ (cdr #{body
2083}#))))
+ (begin
+ (if (not (#{valid-bound-ids?
416}#
+ #{ids 2084}#))
+ (syntax-violation
+ #f
+ "invalid or duplicate
identifier in definition"
+ #{outer-form 2054}#))
+ (letrec*
+ ((#{loop 2157}#
+ (lambda (#{bs 2158}#
+ #{er-cache 2159}#
+ #{r-cache 2160}#)
+ (if (not (null? #{bs
2158}#))
+ (begin
+ (let ((#{b 2163}#
+ (car #{bs
2158}#)))
+ (if (eq? (car #{b
2163}#)
+ 'macro)
+ (begin
+ (let ((#{er
2166}#
+ (car
(cdr #{b 2163}#))))
+ (begin
+ (let
((#{r-cache 2168}#
+
(if (eq? #{er 2166}#
+
#{er-cache 2159}#)
+
#{r-cache 2160}#
+
(#{macros-only-env 340}#
+
#{er 2166}#))))
+ (begin
+
(set-cdr!
+ #{b
2163}#
+
(#{eval-local-transformer 448}#
+
(#{chi 436}#
+
(cdr (cdr #{b 2163}#))
+
#{r-cache 2168}#
+
'(())
+
#{mod 2102}#)
+
#{mod 2102}#))
+
(#{loop 2157}#
+
(cdr #{bs 2158}#)
+
#{er 2166}#
+
#{r-cache 2168}#))))))
+ (#{loop 2157}#
+ (cdr #{bs
2158}#)
+ #{er-cache
2159}#
+ #{r-cache
2160}#))))))))
+ (begin
+ (#{loop 2157}#
+ #{bindings 2089}#
+ #f
+ #f)))
+ (set-cdr!
+ #{r 2065}#
+ (#{extend-env 336}#
+ #{labels 2085}#
+ #{bindings 2089}#
+ (cdr #{r 2065}#)))
+ (#{build-letrec 304}#
+ #f
+ #t
+ (reverse
+ (map syntax->datum
+ #{var-ids 2086}#))
+ (reverse #{vars 2087}#)
+ (map (lambda (#{x 2171}#)
+ (#{chi 436}#
+ (cdr #{x 2171}#)
+ (car #{x 2171}#)
+ '(())
+ #{mod 2102}#))
+ (reverse #{vals 2088}#))
+ (#{build-sequence 298}#
+ #f
+ (map (lambda (#{x 2175}#)
+ (#{chi 436}#
+ (cdr #{x 2175}#)
+ (car #{x 2175}#)
+ '(())
+ #{mod 2102}#))
+ (cons (cons #{er
2095}#
+
(#{source-wrap 424}#
+ #{e
2099}#
+ #{w
2100}#
+ #{s
2101}#
+ #{mod
2102}#))
+ (cdr #{body
2083}#)))))))))))))))))))
+ (begin
+ (#{parse 2082}#
+ (map (lambda (#{x 2090}#)
+ (cons #{r 2065}#
+ (#{wrap 422}#
+ #{x 2090}#
+ #{w 2070}#
+ #{mod 2057}#)))
+ #{body 2053}#)
+ '()
+ '()
+ '()
+ '()
+ '()
+ '())))))))))))
+ (#{chi-local-syntax 446}#
+ (lambda (#{rec? 2178}#
+ #{e 2179}#
+ #{r 2180}#
+ #{w 2181}#
+ #{s 2182}#
+ #{mod 2183}#
+ #{k 2184}#)
+ (begin
+ (let ((#{tmp 2193}#
+ ($sc-dispatch
+ #{e 2179}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 2193}#
+ (@apply
+ (lambda (#{id 2198}#
+ #{val 2199}#
+ #{e1 2200}#
+ #{e2 2201}#)
+ (if (not (#{valid-bound-ids? 416}# #{id 2198}#))
+ (syntax-violation
+ #f
+ "duplicate bound keyword"
+ #{e 2179}#)
+ (begin
+ (let ((#{labels 2206}#
+ (#{gen-labels 368}# #{id 2198}#)))
+ (begin
+ (let ((#{new-w 2208}#
+ (#{make-binding-wrap 400}#
+ #{id 2198}#
+ #{labels 2206}#
+ #{w 2181}#)))
+ (#{k 2184}#
+ (cons #{e1 2200}# #{e2 2201}#)
+ (#{extend-env 336}#
+ #{labels 2206}#
+ (begin
+ (let ((#{trans-r 2213}#
+ (#{macros-only-env 340}# #{r 2180}#)))
+ (begin
+ (if #{rec? 2178}# (if #f #f))
+ (map (lambda (#{x 2214}#)
+ (cons 'macro
+ (#{eval-local-transformer
448}#
+ (#{chi 436}#
+ #{x 2214}#
+ #{trans-r 2213}#
+ (if #{rec? 2178}#
+ #{new-w 2208}#
+ #{w 2181}#)
+ #{mod 2183}#)
+ #{mod 2183}#)))
+ #{val 2199}#))))
+ #{r 2180}#)
+ #{new-w 2208}#
+ #{s 2182}#
+ #{mod 2183}#)))))))
+ #{tmp 2193}#)
+ (syntax-violation
+ #f
+ "bad local syntax definition"
+ (#{source-wrap 424}#
+ #{e 2179}#
+ #{w 2181}#
+ #{s 2182}#
+ #{mod 2183}#)))))))
+ (#{eval-local-transformer 448}#
+ (lambda (#{expanded 2220}# #{mod 2221}#)
+ (begin
+ (let ((#{p 2225}#
+ (#{local-eval-hook 256}#
+ #{expanded 2220}#
+ #{mod 2221}#)))
+ (if (procedure? #{p 2225}#)
+ #{p 2225}#
+ (syntax-violation
+ #f
+ "nonprocedure transformer"
+ #{p 2225}#))))))
+ (#{chi-void 450}#
+ (lambda () (#{build-void 268}# #f)))
+ (#{ellipsis? 452}#
+ (lambda (#{x 2227}#)
+ (if (#{nonsymbol-id? 346}# #{x 2227}#)
+ (#{free-id=? 412}#
+ #{x 2227}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile)))
+ #f)))
+ (#{lambda-formals 454}#
+ (lambda (#{orig-args 2231}#)
+ (letrec*
+ ((#{req 2234}#
+ (lambda (#{args 2237}# #{rreq 2238}#)
+ (begin
+ (let ((#{tmp 2242}# ($sc-dispatch #{args 2237}# '())))
+ (if #{tmp 2242}#
+ (@apply
+ (lambda ()
+ (#{check 2236}# (reverse #{rreq 2238}#) #f))
+ #{tmp 2242}#)
+ (begin
+ (let ((#{tmp 2243}#
+ ($sc-dispatch #{args 2237}# '(any . any))))
+ (if (if #{tmp 2243}#
+ (@apply
+ (lambda (#{a 2246}# #{b 2247}#)
+ (#{id? 348}# #{a 2246}#))
+ #{tmp 2243}#)
+ #f)
+ (@apply
+ (lambda (#{a 2250}# #{b 2251}#)
+ (#{req 2234}#
+ #{b 2251}#
+ (cons #{a 2250}# #{rreq 2238}#)))
+ #{tmp 2243}#)
+ (begin
+ (let ((#{tmp 2252}# (list #{args 2237}#)))
+ (if (if #{tmp 2252}#
+ (@apply
+ (lambda (#{r 2254}#)
+ (#{id? 348}# #{r 2254}#))
+ #{tmp 2252}#)
+ #f)
+ (@apply
+ (lambda (#{r 2256}#)
+ (#{check 2236}#
+ (reverse #{rreq 2238}#)
+ #{r 2256}#))
+ #{tmp 2252}#)
+ (syntax-violation
+ 'lambda
+ "invalid argument list"
+ #{orig-args 2231}#
+ #{args 2237}#))))))))))))
+ (#{check 2236}#
+ (lambda (#{req 2259}# #{rest 2260}#)
+ (if (#{distinct-bound-ids? 418}#
+ (if #{rest 2260}#
+ (cons #{rest 2260}# #{req 2259}#)
+ #{req 2259}#))
+ (values #{req 2259}# #f #{rest 2260}# #f)
+ (syntax-violation
+ 'lambda
+ "duplicate identifier in argument list"
+ #{orig-args 2231}#)))))
+ (begin (#{req 2234}# #{orig-args 2231}# '())))))
+ (#{lambda*-formals 458}#
+ (lambda (#{orig-args 2293}#)
+ (letrec*
+ ((#{req 2296}#
+ (lambda (#{args 2305}# #{rreq 2306}#)
+ (begin
+ (let ((#{tmp 2310}# ($sc-dispatch #{args 2305}# '())))
+ (if #{tmp 2310}#
+ (@apply
+ (lambda ()
+ (#{check 2304}#
+ (reverse #{rreq 2306}#)
+ '()
+ #f
+ '()))
+ #{tmp 2310}#)
+ (begin
+ (let ((#{tmp 2311}#
+ ($sc-dispatch #{args 2305}# '(any . any))))
+ (if (if #{tmp 2311}#
+ (@apply
+ (lambda (#{a 2314}# #{b 2315}#)
+ (#{id? 348}# #{a 2314}#))
+ #{tmp 2311}#)
+ #f)
+ (@apply
+ (lambda (#{a 2318}# #{b 2319}#)
+ (#{req 2296}#
+ #{b 2319}#
+ (cons #{a 2318}# #{rreq 2306}#)))
+ #{tmp 2311}#)
+ (begin
+ (let ((#{tmp 2320}#
+ ($sc-dispatch #{args 2305}# '(any . any))))
+ (if (if #{tmp 2320}#
+ (@apply
+ (lambda (#{a 2323}# #{b 2324}#)
+ (eq? (syntax->datum #{a 2323}#)
+ #:optional))
+ #{tmp 2320}#)
+ #f)
+ (@apply
+ (lambda (#{a 2327}# #{b 2328}#)
+ (#{opt 2298}#
+ #{b 2328}#
+ (reverse #{rreq 2306}#)
+ '()))
+ #{tmp 2320}#)
+ (begin
+ (let ((#{tmp 2329}#
+ ($sc-dispatch
+ #{args 2305}#
+ '(any . any))))
+ (if (if #{tmp 2329}#
+ (@apply
+ (lambda (#{a 2332}# #{b 2333}#)
+ (eq? (syntax->datum #{a 2332}#)
+ #:key))
+ #{tmp 2329}#)
+ #f)
+ (@apply
+ (lambda (#{a 2336}# #{b 2337}#)
+ (#{key 2300}#
+ #{b 2337}#
+ (reverse #{rreq 2306}#)
+ '()
+ '()))
+ #{tmp 2329}#)
+ (begin
+ (let ((#{tmp 2338}#
+ ($sc-dispatch
+ #{args 2305}#
+ '(any any))))
+ (if (if #{tmp 2338}#
+ (@apply
+ (lambda (#{a 2341}#
+ #{b 2342}#)
+ (eq? (syntax->datum
+ #{a 2341}#)
+ #:rest))
+ #{tmp 2338}#)
+ #f)
+ (@apply
+ (lambda (#{a 2345}# #{b 2346}#)
+ (#{rest 2302}#
+ #{b 2346}#
+ (reverse #{rreq 2306}#)
+ '()
+ '()))
+ #{tmp 2338}#)
+ (begin
+ (let ((#{tmp 2347}#
+ (list #{args 2305}#)))
+ (if (if #{tmp 2347}#
+ (@apply
+ (lambda (#{r 2349}#)
+ (#{id? 348}#
+ #{r 2349}#))
+ #{tmp 2347}#)
+ #f)
+ (@apply
+ (lambda (#{r 2351}#)
+ (#{rest 2302}#
+ #{r 2351}#
+ (reverse #{rreq 2306}#)
+ '()
+ '()))
+ #{tmp 2347}#)
+ (syntax-violation
+ 'lambda*
+ "invalid argument list"
+ #{orig-args 2293}#
+ #{args
2305}#)))))))))))))))))))))
+ (#{opt 2298}#
+ (lambda (#{args 2354}# #{req 2355}# #{ropt 2356}#)
+ (begin
+ (let ((#{tmp 2361}# ($sc-dispatch #{args 2354}# '())))
+ (if #{tmp 2361}#
+ (@apply
+ (lambda ()
+ (#{check 2304}#
+ #{req 2355}#
+ (reverse #{ropt 2356}#)
+ #f
+ '()))
+ #{tmp 2361}#)
+ (begin
+ (let ((#{tmp 2362}#
+ ($sc-dispatch #{args 2354}# '(any . any))))
+ (if (if #{tmp 2362}#
+ (@apply
+ (lambda (#{a 2365}# #{b 2366}#)
+ (#{id? 348}# #{a 2365}#))
+ #{tmp 2362}#)
+ #f)
+ (@apply
+ (lambda (#{a 2369}# #{b 2370}#)
+ (#{opt 2298}#
+ #{b 2370}#
+ #{req 2355}#
+ (cons (cons #{a 2369}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2367" "i2368"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req ropt)
+ #((top) (top) (top))
+ #("i2357" "i2358" "i2359"))
+ #(ribcage
+ (check rest key opt req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2294"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))))
+ #{ropt 2356}#)))
+ #{tmp 2362}#)
+ (begin
+ (let ((#{tmp 2371}#
+ ($sc-dispatch
+ #{args 2354}#
+ '((any any) . any))))
+ (if (if #{tmp 2371}#
+ (@apply
+ (lambda (#{a 2375}#
+ #{init 2376}#
+ #{b 2377}#)
+ (#{id? 348}# #{a 2375}#))
+ #{tmp 2371}#)
+ #f)
+ (@apply
+ (lambda (#{a 2381}# #{init 2382}# #{b 2383}#)
+ (#{opt 2298}#
+ #{b 2383}#
+ #{req 2355}#
+ (cons (list #{a 2381}# #{init 2382}#)
+ #{ropt 2356}#)))
+ #{tmp 2371}#)
+ (begin
+ (let ((#{tmp 2384}#
+ ($sc-dispatch
+ #{args 2354}#
+ '(any . any))))
+ (if (if #{tmp 2384}#
+ (@apply
+ (lambda (#{a 2387}# #{b 2388}#)
+ (eq? (syntax->datum #{a 2387}#)
+ #:key))
+ #{tmp 2384}#)
+ #f)
+ (@apply
+ (lambda (#{a 2391}# #{b 2392}#)
+ (#{key 2300}#
+ #{b 2392}#
+ #{req 2355}#
+ (reverse #{ropt 2356}#)
+ '()))
+ #{tmp 2384}#)
+ (begin
+ (let ((#{tmp 2393}#
+ ($sc-dispatch
+ #{args 2354}#
+ '(any any))))
+ (if (if #{tmp 2393}#
+ (@apply
+ (lambda (#{a 2396}#
+ #{b 2397}#)
+ (eq? (syntax->datum
+ #{a 2396}#)
+ #:rest))
+ #{tmp 2393}#)
+ #f)
+ (@apply
+ (lambda (#{a 2400}# #{b 2401}#)
+ (#{rest 2302}#
+ #{b 2401}#
+ #{req 2355}#
+ (reverse #{ropt 2356}#)
+ '()))
+ #{tmp 2393}#)
+ (begin
+ (let ((#{tmp 2402}#
+ (list #{args 2354}#)))
+ (if (if #{tmp 2402}#
+ (@apply
+ (lambda (#{r 2404}#)
+ (#{id? 348}#
+ #{r 2404}#))
+ #{tmp 2402}#)
+ #f)
+ (@apply
+ (lambda (#{r 2406}#)
+ (#{rest 2302}#
+ #{r 2406}#
+ #{req 2355}#
+ (reverse #{ropt 2356}#)
+ '()))
+ #{tmp 2402}#)
+ (syntax-violation
+ 'lambda*
+ "invalid optional argument
list"
+ #{orig-args 2293}#
+ #{args
2354}#)))))))))))))))))))))
+ (#{key 2300}#
+ (lambda (#{args 2409}#
+ #{req 2410}#
+ #{opt 2411}#
+ #{rkey 2412}#)
+ (begin
+ (let ((#{tmp 2418}# ($sc-dispatch #{args 2409}# '())))
+ (if #{tmp 2418}#
+ (@apply
+ (lambda ()
+ (#{check 2304}#
+ #{req 2410}#
+ #{opt 2411}#
+ #f
+ (cons #f (reverse #{rkey 2412}#))))
+ #{tmp 2418}#)
+ (begin
+ (let ((#{tmp 2419}#
+ ($sc-dispatch #{args 2409}# '(any . any))))
+ (if (if #{tmp 2419}#
+ (@apply
+ (lambda (#{a 2422}# #{b 2423}#)
+ (#{id? 348}# #{a 2422}#))
+ #{tmp 2419}#)
+ #f)
+ (@apply
+ (lambda (#{a 2426}# #{b 2427}#)
+ (begin
+ (let ((#{tmp 2429}#
+ (symbol->keyword
+ (syntax->datum #{a 2426}#))))
+ (#{key 2300}#
+ #{b 2427}#
+ #{req 2410}#
+ #{opt 2411}#
+ (cons (cons #{tmp 2429}#
+ (cons #{a 2426}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(k)
+ #((top))
+ #("i2430"))
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2424"
+ "i2425"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args
+ req
+ opt
+ rkey)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i2413"
+ "i2414"
+ "i2415"
+ "i2416"))
+ #(ribcage
+ (check rest
+ key
+ opt
+ req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2294"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile)))))
+ #{rkey 2412}#)))))
+ #{tmp 2419}#)
+ (begin
+ (let ((#{tmp 2432}#
+ ($sc-dispatch
+ #{args 2409}#
+ '((any any) . any))))
+ (if (if #{tmp 2432}#
+ (@apply
+ (lambda (#{a 2436}#
+ #{init 2437}#
+ #{b 2438}#)
+ (#{id? 348}# #{a 2436}#))
+ #{tmp 2432}#)
+ #f)
+ (@apply
+ (lambda (#{a 2442}# #{init 2443}# #{b 2444}#)
+ (begin
+ (let ((#{tmp 2446}#
+ (symbol->keyword
+ (syntax->datum #{a 2442}#))))
+ (#{key 2300}#
+ #{b 2444}#
+ #{req 2410}#
+ #{opt 2411}#
+ (cons (list #{tmp 2446}#
+ #{a 2442}#
+ #{init 2443}#)
+ #{rkey 2412}#)))))
+ #{tmp 2432}#)
+ (begin
+ (let ((#{tmp 2449}#
+ ($sc-dispatch
+ #{args 2409}#
+ '((any any any) . any))))
+ (if (if #{tmp 2449}#
+ (@apply
+ (lambda (#{a 2454}#
+ #{init 2455}#
+ #{k 2456}#
+ #{b 2457}#)
+ (if (#{id? 348}# #{a 2454}#)
+ (keyword?
+ (syntax->datum #{k 2456}#))
+ #f))
+ #{tmp 2449}#)
+ #f)
+ (@apply
+ (lambda (#{a 2464}#
+ #{init 2465}#
+ #{k 2466}#
+ #{b 2467}#)
+ (#{key 2300}#
+ #{b 2467}#
+ #{req 2410}#
+ #{opt 2411}#
+ (cons (list #{k 2466}#
+ #{a 2464}#
+ #{init 2465}#)
+ #{rkey 2412}#)))
+ #{tmp 2449}#)
+ (begin
+ (let ((#{tmp 2468}#
+ ($sc-dispatch
+ #{args 2409}#
+ '(any))))
+ (if (if #{tmp 2468}#
+ (@apply
+ (lambda (#{aok 2470}#)
+ (eq? (syntax->datum
+ #{aok 2470}#)
+ #:allow-other-keys))
+ #{tmp 2468}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2472}#)
+ (#{check 2304}#
+ #{req 2410}#
+ #{opt 2411}#
+ #f
+ (cons #t
+ (reverse
+ #{rkey 2412}#))))
+ #{tmp 2468}#)
+ (begin
+ (let ((#{tmp 2473}#
+ ($sc-dispatch
+ #{args 2409}#
+ '(any any any))))
+ (if (if #{tmp 2473}#
+ (@apply
+ (lambda (#{aok 2477}#
+ #{a 2478}#
+ #{b 2479}#)
+ (if (eq?
(syntax->datum
+ #{aok
2477}#)
+
#:allow-other-keys)
+ (eq? (syntax->datum
+ #{a 2478}#)
+ #:rest)
+ #f))
+ #{tmp 2473}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2485}#
+ #{a 2486}#
+ #{b 2487}#)
+ (#{rest 2302}#
+ #{b 2487}#
+ #{req 2410}#
+ #{opt 2411}#
+ (cons #t
+ (reverse
+ #{rkey
2412}#))))
+ #{tmp 2473}#)
+ (begin
+ (let ((#{tmp 2488}#
+ ($sc-dispatch
+ #{args 2409}#
+ '(any . any))))
+ (if (if #{tmp 2488}#
+ (@apply
+ (lambda (#{aok
2491}#
+ #{r
2492}#)
+ (if (eq?
(syntax->datum
+
#{aok 2491}#)
+
#:allow-other-keys)
+ (#{id? 348}#
+ #{r 2492}#)
+ #f))
+ #{tmp 2488}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2497}#
+ #{r 2498}#)
+ (#{rest 2302}#
+ #{r 2498}#
+ #{req 2410}#
+ #{opt 2411}#
+ (cons #t
+ (reverse
+ #{rkey
2412}#))))
+ #{tmp 2488}#)
+ (begin
+ (let ((#{tmp 2499}#
+ ($sc-dispatch
+ #{args
2409}#
+ '(any
any))))
+ (if (if #{tmp
2499}#
+ (@apply
+ (lambda
(#{a 2502}#
+
#{b 2503}#)
+ (eq?
(syntax->datum
+
#{a 2502}#)
+
#:rest))
+ #{tmp
2499}#)
+ #f)
+ (@apply
+ (lambda (#{a
2506}#
+ #{b
2507}#)
+ (#{rest
2302}#
+ #{b 2507}#
+ #{req
2410}#
+ #{opt
2411}#
+ (cons #f
+
(reverse
+
#{rkey 2412}#))))
+ #{tmp 2499}#)
+ (begin
+ (let ((#{tmp
2508}#
+ (list
#{args 2409}#)))
+ (if (if
#{tmp 2508}#
+ (@apply
+
(lambda (#{r 2510}#)
+
(#{id? 348}#
+
#{r 2510}#))
+
#{tmp 2508}#)
+ #f)
+ (@apply
+ (lambda
(#{r 2512}#)
+
(#{rest 2302}#
+ #{r
2512}#
+
#{req 2410}#
+
#{opt 2411}#
+
(cons #f
+
(reverse
+
#{rkey 2412}#))))
+ #{tmp
2508}#)
+
(syntax-violation
+ 'lambda*
+ "invalid
keyword argument list"
+
#{orig-args 2293}#
+ #{args
2409}#))))))))))))))))))))))))))))))
+ (#{rest 2302}#
+ (lambda (#{args 2515}#
+ #{req 2516}#
+ #{opt 2517}#
+ #{kw 2518}#)
+ (begin
+ (let ((#{tmp 2524}# (list #{args 2515}#)))
+ (if (if #{tmp 2524}#
+ (@apply
+ (lambda (#{r 2526}#) (#{id? 348}# #{r 2526}#))
+ #{tmp 2524}#)
+ #f)
+ (@apply
+ (lambda (#{r 2528}#)
+ (#{check 2304}#
+ #{req 2516}#
+ #{opt 2517}#
+ #{r 2528}#
+ #{kw 2518}#))
+ #{tmp 2524}#)
+ (syntax-violation
+ 'lambda*
+ "invalid rest argument"
+ #{orig-args 2293}#
+ #{args 2515}#))))))
+ (#{check 2304}#
+ (lambda (#{req 2531}#
+ #{opt 2532}#
+ #{rest 2533}#
+ #{kw 2534}#)
+ (if (#{distinct-bound-ids? 418}#
+ (append
+ #{req 2531}#
+ (map car #{opt 2532}#)
+ (if #{rest 2533}# (list #{rest 2533}#) '())
+ (if (pair? #{kw 2534}#)
+ (map cadr (cdr #{kw 2534}#))
+ '())))
+ (values
+ #{req 2531}#
+ #{opt 2532}#
+ #{rest 2533}#
+ #{kw 2534}#)
+ (syntax-violation
+ 'lambda*
+ "duplicate identifier in argument list"
+ #{orig-args 2293}#)))))
+ (begin (#{req 2296}# #{orig-args 2293}# '())))))
+ (#{chi-lambda-case 460}#
+ (lambda (#{e 2542}#
+ #{r 2543}#
+ #{w 2544}#
+ #{s 2545}#
+ #{mod 2546}#
+ #{get-formals 2547}#
+ #{clauses 2548}#)
+ (letrec*
+ ((#{expand-opt 2559}#
+ (lambda (#{req 2582}#
+ #{opt 2583}#
+ #{rest 2584}#
+ #{kw 2585}#
+ #{body 2586}#
+ #{vars 2587}#
+ #{r* 2588}#
+ #{w* 2589}#
+ #{out 2590}#
+ #{inits 2591}#)
+ (if (pair? #{opt 2583}#)
+ (begin
+ (let ((#{tmp 2604}# (car #{opt 2583}#)))
+ (begin
+ (let ((#{tmp 2605}#
+ ($sc-dispatch #{tmp 2604}# '(any any))))
+ (if #{tmp 2605}#
+ (@apply
+ (lambda (#{id 2608}# #{i 2609}#)
+ (begin
+ (let ((#{v 2612}#
+ (#{gen-var 464}# #{id 2608}#)))
+ (begin
+ (let ((#{l 2614}#
+ (#{gen-labels 368}#
+ (list #{v 2612}#))))
+ (begin
+ (let ((#{r** 2616}#
+ (#{extend-var-env 338}#
+ #{l 2614}#
+ (list #{v 2612}#)
+ #{r* 2588}#)))
+ (begin
+ (let ((#{w** 2618}#
+ (#{make-binding-wrap 400}#
+ (list #{id 2608}#)
+ #{l 2614}#
+ #{w* 2589}#)))
+ (#{expand-opt 2559}#
+ #{req 2582}#
+ (cdr #{opt 2583}#)
+ #{rest 2584}#
+ #{kw 2585}#
+ #{body 2586}#
+ (cons #{v 2612}# #{vars 2587}#)
+ #{r** 2616}#
+ #{w** 2618}#
+ (cons (syntax->datum
+ #{id 2608}#)
+ #{out 2590}#)
+ (cons (#{chi 436}#
+ #{i 2609}#
+ #{r* 2588}#
+ #{w* 2589}#
+ #{mod 2546}#)
+ #{inits 2591}#)))))))))))
+ #{tmp 2605}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2604}#))))))
+ (if #{rest 2584}#
+ (begin
+ (let ((#{v 2623}# (#{gen-var 464}# #{rest 2584}#)))
+ (begin
+ (let ((#{l 2625}#
+ (#{gen-labels 368}# (list #{v 2623}#))))
+ (begin
+ (let ((#{r* 2627}#
+ (#{extend-var-env 338}#
+ #{l 2625}#
+ (list #{v 2623}#)
+ #{r* 2588}#)))
+ (begin
+ (let ((#{w* 2629}#
+ (#{make-binding-wrap 400}#
+ (list #{rest 2584}#)
+ #{l 2625}#
+ #{w* 2589}#)))
+ (#{expand-kw 2561}#
+ #{req 2582}#
+ (if (pair? #{out 2590}#)
+ (reverse #{out 2590}#)
+ #f)
+ (syntax->datum #{rest 2584}#)
+ (if (pair? #{kw 2585}#)
+ (cdr #{kw 2585}#)
+ #{kw 2585}#)
+ #{body 2586}#
+ (cons #{v 2623}# #{vars 2587}#)
+ #{r* 2627}#
+ #{w* 2629}#
+ (if (pair? #{kw 2585}#)
+ (car #{kw 2585}#)
+ #f)
+ '()
+ #{inits 2591}#)))))))))
+ (#{expand-kw 2561}#
+ #{req 2582}#
+ (if (pair? #{out 2590}#)
+ (reverse #{out 2590}#)
+ #f)
+ #f
+ (if (pair? #{kw 2585}#)
+ (cdr #{kw 2585}#)
+ #{kw 2585}#)
+ #{body 2586}#
+ #{vars 2587}#
+ #{r* 2588}#
+ #{w* 2589}#
+ (if (pair? #{kw 2585}#) (car #{kw 2585}#) #f)
+ '()
+ #{inits 2591}#)))))
+ (#{expand-kw 2561}#
+ (lambda (#{req 2631}#
+ #{opt 2632}#
+ #{rest 2633}#
+ #{kw 2634}#
+ #{body 2635}#
+ #{vars 2636}#
+ #{r* 2637}#
+ #{w* 2638}#
+ #{aok 2639}#
+ #{out 2640}#
+ #{inits 2641}#)
+ (if (pair? #{kw 2634}#)
+ (begin
+ (let ((#{tmp 2655}# (car #{kw 2634}#)))
+ (begin
+ (let ((#{tmp 2656}#
+ ($sc-dispatch #{tmp 2655}# '(any any any))))
+ (if #{tmp 2656}#
+ (@apply
+ (lambda (#{k 2660}# #{id 2661}# #{i 2662}#)
+ (begin
+ (let ((#{v 2665}#
+ (#{gen-var 464}# #{id 2661}#)))
+ (begin
+ (let ((#{l 2667}#
+ (#{gen-labels 368}#
+ (list #{v 2665}#))))
+ (begin
+ (let ((#{r** 2669}#
+ (#{extend-var-env 338}#
+ #{l 2667}#
+ (list #{v 2665}#)
+ #{r* 2637}#)))
+ (begin
+ (let ((#{w** 2671}#
+ (#{make-binding-wrap 400}#
+ (list #{id 2661}#)
+ #{l 2667}#
+ #{w* 2638}#)))
+ (#{expand-kw 2561}#
+ #{req 2631}#
+ #{opt 2632}#
+ #{rest 2633}#
+ (cdr #{kw 2634}#)
+ #{body 2635}#
+ (cons #{v 2665}# #{vars 2636}#)
+ #{r** 2669}#
+ #{w** 2671}#
+ #{aok 2639}#
+ (cons (list (syntax->datum
+ #{k 2660}#)
+ (syntax->datum
+ #{id 2661}#)
+ #{v 2665}#)
+ #{out 2640}#)
+ (cons (#{chi 436}#
+ #{i 2662}#
+ #{r* 2637}#
+ #{w* 2638}#
+ #{mod 2546}#)
+ #{inits 2641}#)))))))))))
+ #{tmp 2656}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2655}#))))))
+ (#{expand-body 2563}#
+ #{req 2631}#
+ #{opt 2632}#
+ #{rest 2633}#
+ (if (if #{aok 2639}#
+ #{aok 2639}#
+ (pair? #{out 2640}#))
+ (cons #{aok 2639}# (reverse #{out 2640}#))
+ #f)
+ #{body 2635}#
+ (reverse #{vars 2636}#)
+ #{r* 2637}#
+ #{w* 2638}#
+ (reverse #{inits 2641}#)
+ '()))))
+ (#{expand-body 2563}#
+ (lambda (#{req 2677}#
+ #{opt 2678}#
+ #{rest 2679}#
+ #{kw 2680}#
+ #{body 2681}#
+ #{vars 2682}#
+ #{r* 2683}#
+ #{w* 2684}#
+ #{inits 2685}#
+ #{meta 2686}#)
+ (begin
+ (let ((#{tmp 2698}#
+ ($sc-dispatch
+ #{body 2681}#
+ '(any any . each-any))))
+ (if (if #{tmp 2698}#
+ (@apply
+ (lambda (#{docstring 2702}# #{e1 2703}# #{e2 2704}#)
+ (string? (syntax->datum #{docstring 2702}#)))
+ #{tmp 2698}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 2708}# #{e1 2709}# #{e2 2710}#)
+ (#{expand-body 2563}#
+ #{req 2677}#
+ #{opt 2678}#
+ #{rest 2679}#
+ #{kw 2680}#
+ (cons #{e1 2709}# #{e2 2710}#)
+ #{vars 2682}#
+ #{r* 2683}#
+ #{w* 2684}#
+ #{inits 2685}#
+ (append
+ #{meta 2686}#
+ (list (cons 'documentation
+ (syntax->datum #{docstring 2708}#))))))
+ #{tmp 2698}#)
+ (begin
+ (let ((#{tmp 2713}#
+ ($sc-dispatch
+ #{body 2681}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 2713}#
+ (@apply
+ (lambda (#{k 2718}#
+ #{v 2719}#
+ #{e1 2720}#
+ #{e2 2721}#)
+ (#{expand-body 2563}#
+ #{req 2677}#
+ #{opt 2678}#
+ #{rest 2679}#
+ #{kw 2680}#
+ (cons #{e1 2720}# #{e2 2721}#)
+ #{vars 2682}#
+ #{r* 2683}#
+ #{w* 2684}#
+ #{inits 2685}#
+ (append
+ #{meta 2686}#
+ (syntax->datum
+ (map cons #{k 2718}# #{v 2719}#)))))
+ #{tmp 2713}#)
+ (begin
+ (let ((#{tmp 2725}#
+ ($sc-dispatch
+ #{body 2681}#
+ '(any . each-any))))
+ (if #{tmp 2725}#
+ (@apply
+ (lambda (#{e1 2728}# #{e2 2729}#)
+ (values
+ #{meta 2686}#
+ #{req 2677}#
+ #{opt 2678}#
+ #{rest 2679}#
+ #{kw 2680}#
+ #{inits 2685}#
+ #{vars 2682}#
+ (#{chi-body 444}#
+ (cons #{e1 2728}# #{e2 2729}#)
+ (#{source-wrap 424}#
+ #{e 2542}#
+ #{w 2544}#
+ #{s 2545}#
+ #{mod 2546}#)
+ #{r* 2683}#
+ #{w* 2684}#
+ #{mod 2546}#)))
+ #{tmp 2725}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{body 2681}#)))))))))))))
+ (begin
+ (begin
+ (let ((#{tmp 2732}#
+ ($sc-dispatch #{clauses 2548}# '())))
+ (if #{tmp 2732}#
+ (@apply (lambda () (values '() #f)) #{tmp 2732}#)
+ (begin
+ (let ((#{tmp 2733}#
+ ($sc-dispatch
+ #{clauses 2548}#
+ '((any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 2733}#
+ (@apply
+ (lambda (#{args 2740}#
+ #{e1 2741}#
+ #{e2 2742}#
+ #{args* 2743}#
+ #{e1* 2744}#
+ #{e2* 2745}#)
+ (call-with-values
+ (lambda () (#{get-formals 2547}# #{args 2740}#))
+ (lambda (#{req 2746}#
+ #{opt 2747}#
+ #{rest 2748}#
+ #{kw 2749}#)
+ (call-with-values
+ (lambda ()
+ (begin
+ (let ((#{body 4787}#
+ (cons #{e1 2741}# #{e2 2742}#)))
+ (begin
+ (let ((#{vars 4788}#
+ (map #{gen-var 464}#
+ #{req 2746}#))
+ (#{labels 4789}#
+ (#{gen-labels 368}#
+ #{req 2746}#)))
+ (begin
+ (let ((#{r* 4790}#
+ (#{extend-var-env 338}#
+ #{labels 4789}#
+ #{vars 4788}#
+ #{r 2543}#))
+ (#{w* 4791}#
+ (#{make-binding-wrap 400}#
+ #{req 2746}#
+ #{labels 4789}#
+ #{w 2544}#)))
+ (#{expand-opt 2559}#
+ (map syntax->datum
+ #{req 2746}#)
+ #{opt 2747}#
+ #{rest 2748}#
+ #{kw 2749}#
+ #{body 4787}#
+ (reverse #{vars 4788}#)
+ #{r* 4790}#
+ #{w* 4791}#
+ '()
+ '()))))))))
+ (lambda (#{meta 2755}#
+ #{req 2756}#
+ #{opt 2757}#
+ #{rest 2758}#
+ #{kw 2759}#
+ #{inits 2760}#
+ #{vars 2761}#
+ #{body 2762}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 460}#
+ #{e 2542}#
+ #{r 2543}#
+ #{w 2544}#
+ #{s 2545}#
+ #{mod 2546}#
+ #{get-formals 2547}#
+ (map (lambda (#{tmp 2773}#
+ #{tmp 2772}#
+ #{tmp 2771}#)
+ (cons #{tmp 2771}#
+ (cons #{tmp 2772}#
+ #{tmp 2773}#)))
+ #{e2* 2745}#
+ #{e1* 2744}#
+ #{args* 2743}#)))
+ (lambda (#{meta* 2775}# #{else* 2776}#)
+ (values
+ (append #{meta 2755}# #{meta* 2775}#)
+ (#{build-lambda-case 292}#
+ #{s 2545}#
+ #{req 2756}#
+ #{opt 2757}#
+ #{rest 2758}#
+ #{kw 2759}#
+ #{inits 2760}#
+ #{vars 2761}#
+ #{body 2762}#
+ #{else* 2776}#)))))))))
+ #{tmp 2733}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{clauses 2548}#)))))))))))
+ (#{strip 462}#
+ (lambda (#{x 2779}# #{w 2780}#)
+ (if (memq 'top (car #{w 2780}#))
+ #{x 2779}#
+ (letrec*
+ ((#{f 2787}#
+ (lambda (#{x 2788}#)
+ (if (#{syntax-object? 311}# #{x 2788}#)
+ (#{strip 462}#
+ (#{syntax-object-expression 313}# #{x 2788}#)
+ (#{syntax-object-wrap 315}# #{x 2788}#))
+ (if (pair? #{x 2788}#)
+ (begin
+ (let ((#{a 2795}# (#{f 2787}# (car #{x 2788}#)))
+ (#{d 2796}# (#{f 2787}# (cdr #{x 2788}#))))
+ (if (if (eq? #{a 2795}# (car #{x 2788}#))
+ (eq? #{d 2796}# (cdr #{x 2788}#))
+ #f)
+ #{x 2788}#
+ (cons #{a 2795}# #{d 2796}#))))
+ (if (vector? #{x 2788}#)
+ (begin
+ (let ((#{old 2802}# (vector->list #{x 2788}#)))
+ (begin
+ (let ((#{new 2804}# (map #{f 2787}# #{old 2802}#)))
+ (letrec*
+ ((#{lp 2808}#
+ (lambda (#{l1 2809}# #{l2 2810}#)
+ (if (null? #{l1 2809}#)
+ #{x 2788}#
+ (if (eq? (car #{l1 2809}#)
+ (car #{l2 2810}#))
+ (#{lp 2808}#
+ (cdr #{l1 2809}#)
+ (cdr #{l2 2810}#))
+ (list->vector #{new 2804}#))))))
+ (begin
+ (#{lp 2808}# #{old 2802}# #{new 2804}#)))))))
+ #{x 2788}#))))))
+ (begin (#{f 2787}# #{x 2779}#))))))
+ (#{gen-var 464}#
+ (lambda (#{id 2812}#)
+ (begin
+ (let ((#{id 2815}#
+ (if (#{syntax-object? 311}# #{id 2812}#)
+ (#{syntax-object-expression 313}# #{id 2812}#)
+ #{id 2812}#)))
+ (gensym
+ (string-append (symbol->string #{id 2815}#) " "))))))
+ (#{lambda-var-list 466}#
+ (lambda (#{vars 2817}#)
+ (letrec*
+ ((#{lvl 2823}#
+ (lambda (#{vars 2824}# #{ls 2825}# #{w 2826}#)
+ (if (pair? #{vars 2824}#)
+ (#{lvl 2823}#
+ (cdr #{vars 2824}#)
+ (cons (#{wrap 422}# (car #{vars 2824}#) #{w 2826}# #f)
+ #{ls 2825}#)
+ #{w 2826}#)
+ (if (#{id? 348}# #{vars 2824}#)
+ (cons (#{wrap 422}# #{vars 2824}# #{w 2826}# #f)
+ #{ls 2825}#)
+ (if (null? #{vars 2824}#)
+ #{ls 2825}#
+ (if (#{syntax-object? 311}# #{vars 2824}#)
+ (#{lvl 2823}#
+ (#{syntax-object-expression 313}# #{vars 2824}#)
+ #{ls 2825}#
+ (#{join-wraps 404}#
+ #{w 2826}#
+ (#{syntax-object-wrap 315}# #{vars 2824}#)))
+ (cons #{vars 2824}# #{ls 2825}#))))))))
+ (begin (#{lvl 2823}# #{vars 2817}# '() '(())))))))
+ (begin
+ (begin
+ (module-define!
+ (current-module)
+ 'letrec-syntax
+ (make-syntax-transformer
+ 'letrec-syntax
+ 'local-syntax
+ #t))
+ (module-define!
+ (current-module)
+ 'let-syntax
+ (make-syntax-transformer
+ 'let-syntax
+ 'local-syntax
+ #f))
+ (#{global-extend 344}#
+ 'core
+ 'fluid-let-syntax
+ (lambda (#{e 2837}#
+ #{r 2838}#
+ #{w 2839}#
+ #{s 2840}#
+ #{mod 2841}#)
+ (begin
+ (let ((#{tmp 2848}#
+ ($sc-dispatch
+ #{e 2837}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 2848}#
+ (@apply
+ (lambda (#{var 2853}#
+ #{val 2854}#
+ #{e1 2855}#
+ #{e2 2856}#)
+ (#{valid-bound-ids? 416}# #{var 2853}#))
+ #{tmp 2848}#)
+ #f)
+ (@apply
+ (lambda (#{var 2862}#
+ #{val 2863}#
+ #{e1 2864}#
+ #{e2 2865}#)
+ (begin
+ (let ((#{names 2867}#
+ (map (lambda (#{x 2868}#)
+ (#{id-var-name 410}#
+ #{x 2868}#
+ #{w 2839}#))
+ #{var 2862}#)))
+ (begin
+ (for-each
+ (lambda (#{id 2871}# #{n 2872}#)
+ (begin
+ (let ((#{atom-key 2877}#
+ (car (begin
+ (let ((#{t 5035}#
+ (assq #{n 2872}#
+ #{r 2838}#)))
+ (if #{t 5035}#
+ (cdr #{t 5035}#)
+ (if (symbol? #{n 2872}#)
+ (begin
+ (let ((#{t 5036}#
+
(#{get-global-definition-hook 262}#
+ #{n 2872}#
+ #{mod
2841}#)))
+ (if #{t 5036}#
+ #{t 5036}#
+ '(global))))
+
'(displaced-lexical))))))))
+ (if (eqv? #{atom-key 2877}#
+ 'displaced-lexical)
+ (syntax-violation
+ 'fluid-let-syntax
+ "identifier out of context"
+ #{e 2837}#
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{id 2871}#)
+ #{s 2840}#
+ #f)
+ (set-source-properties!
+ #{id 2871}#
+ #{s 2840}#))
+ #{id 2871}#)
+ #{w 2839}#
+ #{mod 2841}#))))))
+ #{var 2862}#
+ #{names 2867}#)
+ (#{chi-body 444}#
+ (cons #{e1 2864}# #{e2 2865}#)
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 2837}#) #{s 2840}# #f)
+ (set-source-properties!
+ #{e 2837}#
+ #{s 2840}#))
+ #{e 2837}#)
+ #{w 2839}#
+ #{mod 2841}#)
+ (#{extend-env 336}#
+ #{names 2867}#
+ (begin
+ (let ((#{trans-r 2883}#
+ (#{macros-only-env 340}# #{r 2838}#)))
+ (map (lambda (#{x 2884}#)
+ (cons 'macro
+ (#{eval-local-transformer 448}#
+ (#{chi 436}#
+ #{x 2884}#
+ #{trans-r 2883}#
+ #{w 2839}#
+ #{mod 2841}#)
+ #{mod 2841}#)))
+ #{val 2863}#)))
+ #{r 2838}#)
+ #{w 2839}#
+ #{mod 2841}#)))))
+ #{tmp 2848}#)
+ (syntax-violation
+ 'fluid-let-syntax
+ "bad syntax"
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 2837}#) #{s 2840}# #f)
+ (set-source-properties! #{e 2837}# #{s 2840}#))
+ #{e 2837}#)
+ #{w 2839}#
+ #{mod 2841}#)))))))
+ (module-define!
+ (current-module)
+ 'quote
+ (make-syntax-transformer
+ 'quote
+ 'core
+ (lambda (#{e 2890}#
+ #{r 2891}#
+ #{w 2892}#
+ #{s 2893}#
+ #{mod 2894}#)
+ (begin
+ (let ((#{tmp 2901}# ($sc-dispatch #{e 2890}# '(_ any))))
+ (if #{tmp 2901}#
+ (@apply
+ (lambda (#{e 2903}#)
+ (begin
+ (let ((#{exp 5265}#
+ (#{strip 462}# #{e 2903}# #{w 2892}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{s 2893}#
+ #{exp 5265}#))))
+ #{tmp 2901}#)
+ (syntax-violation
+ 'quote
+ "bad syntax"
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 2890}#) #{s 2893}# #f)
+ (set-source-properties! #{e 2890}# #{s 2893}#))
+ #{e 2890}#)
+ #{w 2892}#
+ #{mod 2894}#))))))))
+ (#{global-extend 344}#
+ 'core
+ 'syntax
+ (letrec*
+ ((#{gen-syntax 2907}#
+ (lambda (#{src 2922}#
+ #{e 2923}#
+ #{r 2924}#
+ #{maps 2925}#
+ #{ellipsis? 2926}#
+ #{mod 2927}#)
+ (if (if (symbol? #{e 2923}#)
+ #t
+ (if (if (vector? #{e 2923}#)
+ (if (= (vector-length #{e 2923}#) 4)
+ (eq? (vector-ref #{e 2923}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{e 2923}# 1))
+ #f))
+ (begin
+ (let ((#{label 2935}#
+ (#{id-var-name 410}# #{e 2923}# '(()))))
+ (begin
+ (let ((#{b 2938}#
+ (begin
+ (let ((#{t 5328}#
+ (assq #{label 2935}# #{r 2924}#)))
+ (if #{t 5328}#
+ (cdr #{t 5328}#)
+ (if (symbol? #{label 2935}#)
+ (begin
+ (let ((#{t 5329}#
+ (#{get-global-definition-hook
262}#
+ #{label 2935}#
+ #{mod 2927}#)))
+ (if #{t 5329}#
+ #{t 5329}#
+ '(global))))
+ '(displaced-lexical)))))))
+ (if (eq? (car #{b 2938}#) 'syntax)
+ (call-with-values
+ (lambda ()
(begin
- (let ((#{labels 3916}#
- (list (#{gen-label 362}#)))
- (#{var 3917}#
- (#{gen-var 460}# #{pat 3907}#)))
- (#{build-application 266}#
- #f
- (#{build-simple-lambda 284}#
- #f
- (list (syntax->datum #{pat 3907}#))
+ (let ((#{var.lev 2941}# (cdr #{b 2938}#)))
+ (#{gen-ref 2909}#
+ #{src 2922}#
+ (car #{var.lev 2941}#)
+ (cdr #{var.lev 2941}#)
+ #{maps 2925}#))))
+ (lambda (#{var 2943}# #{maps 2944}#)
+ (values
+ (list 'ref #{var 2943}#)
+ #{maps 2944}#)))
+ (if (#{ellipsis? 2926}# #{e 2923}#)
+ (syntax-violation
+ 'syntax
+ "misplaced ellipsis"
+ #{src 2922}#)
+ (values
+ (list 'quote #{e 2923}#)
+ #{maps 2925}#)))))))
+ (begin
+ (let ((#{tmp 2950}#
+ ($sc-dispatch #{e 2923}# '(any any))))
+ (if (if #{tmp 2950}#
+ (@apply
+ (lambda (#{dots 2953}# #{e 2954}#)
+ (#{ellipsis? 2926}# #{dots 2953}#))
+ #{tmp 2950}#)
+ #f)
+ (@apply
+ (lambda (#{dots 2957}# #{e 2958}#)
+ (#{gen-syntax 2907}#
+ #{src 2922}#
+ #{e 2958}#
+ #{r 2924}#
+ #{maps 2925}#
+ (lambda (#{x 2959}#) #f)
+ #{mod 2927}#))
+ #{tmp 2950}#)
+ (begin
+ (let ((#{tmp 2961}#
+ ($sc-dispatch #{e 2923}# '(any any . any))))
+ (if (if #{tmp 2961}#
+ (@apply
+ (lambda (#{x 2965}#
+ #{dots 2966}#
+ #{y 2967}#)
+ (#{ellipsis? 2926}# #{dots 2966}#))
+ #{tmp 2961}#)
+ #f)
+ (@apply
+ (lambda (#{x 2971}# #{dots 2972}# #{y 2973}#)
+ (letrec*
+ ((#{f 2977}#
+ (lambda (#{y 2978}# #{k 2979}#)
+ (begin
+ (let ((#{tmp 2987}#
+ ($sc-dispatch
+ #{y 2978}#
+ '(any . any))))
+ (if (if #{tmp 2987}#
+ (@apply
+ (lambda (#{dots 2990}#
+ #{y 2991}#)
+ (#{ellipsis? 2926}#
+ #{dots 2990}#))
+ #{tmp 2987}#)
+ #f)
+ (@apply
+ (lambda (#{dots 2994}#
+ #{y 2995}#)
+ (#{f 2977}#
+ #{y 2995}#
+ (lambda (#{maps 2996}#)
+ (call-with-values
+ (lambda ()
+ (#{k 2979}#
+ (cons '()
+ #{maps
2996}#)))
+ (lambda (#{x 2998}#
+ #{maps 2999}#)
+ (if (null? (car
#{maps 2999}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 2922}#)
+ (values
+ (#{gen-mappend
2911}#
+ #{x 2998}#
+ (car #{maps
2999}#))
+ (cdr #{maps
2999}#))))))))
+ #{tmp 2987}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2907}#
+ #{src 2922}#
+ #{y 2978}#
+ #{r 2924}#
+ #{maps 2925}#
+ #{ellipsis? 2926}#
+ #{mod 2927}#))
+ (lambda (#{y 3004}#
+ #{maps 3005}#)
+ (call-with-values
+ (lambda ()
+ (#{k 2979}#
+ #{maps 3005}#))
+ (lambda (#{x 3008}#
+ #{maps 3009}#)
+ (values
+ (#{gen-append 2917}#
+ #{x 3008}#
+ #{y 3004}#)
+ #{maps
3009}#)))))))))))
+ (begin
+ (#{f 2977}#
+ #{y 2973}#
+ (lambda (#{maps 2980}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2907}#
+ #{src 2922}#
+ #{x 2971}#
+ #{r 2924}#
+ (cons '() #{maps 2980}#)
+ #{ellipsis? 2926}#
+ #{mod 2927}#))
+ (lambda (#{x 2982}# #{maps 2983}#)
+ (if (null? (car #{maps 2983}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 2922}#)
+ (values
+ (#{gen-map 2913}#
+ #{x 2982}#
+ (car #{maps 2983}#))
+ (cdr #{maps 2983}#))))))))))
+ #{tmp 2961}#)
+ (begin
+ (let ((#{tmp 3012}#
+ ($sc-dispatch #{e 2923}# '(any . any))))
+ (if #{tmp 3012}#
+ (@apply
+ (lambda (#{x 3015}# #{y 3016}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2907}#
+ #{src 2922}#
+ #{x 3015}#
+ #{r 2924}#
+ #{maps 2925}#
+ #{ellipsis? 2926}#
+ #{mod 2927}#))
+ (lambda (#{x 3017}# #{maps 3018}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2907}#
+ #{src 2922}#
+ #{y 3016}#
+ #{r 2924}#
+ #{maps 3018}#
+ #{ellipsis? 2926}#
+ #{mod 2927}#))
+ (lambda (#{y 3021}# #{maps 3022}#)
+ (values
+ (#{gen-cons 2915}#
+ #{x 3017}#
+ #{y 3021}#)
+ #{maps 3022}#))))))
+ #{tmp 3012}#)
+ (begin
+ (let ((#{tmp 3025}#
+ ($sc-dispatch
+ #{e 2923}#
+ '#(vector (any . each-any)))))
+ (if #{tmp 3025}#
+ (@apply
+ (lambda (#{e1 3028}# #{e2 3029}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2907}#
+ #{src 2922}#
+ (cons #{e1 3028}#
+ #{e2 3029}#)
+ #{r 2924}#
+ #{maps 2925}#
+ #{ellipsis? 2926}#
+ #{mod 2927}#))
+ (lambda (#{e 3031}#
+ #{maps 3032}#)
+ (values
+ (#{gen-vector 2919}#
+ #{e 3031}#)
+ #{maps 3032}#))))
+ #{tmp 3025}#)
+ (values
+ (list 'quote #{e 2923}#)
+ #{maps 2925}#))))))))))))))))
+ (#{gen-ref 2909}#
+ (lambda (#{src 3038}#
+ #{var 3039}#
+ #{level 3040}#
+ #{maps 3041}#)
+ (if (= #{level 3040}# 0)
+ (values #{var 3039}# #{maps 3041}#)
+ (if (null? #{maps 3041}#)
+ (syntax-violation
+ 'syntax
+ "missing ellipsis"
+ #{src 3038}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-ref 2909}#
+ #{src 3038}#
+ #{var 3039}#
+ (#{1-}# #{level 3040}#)
+ (cdr #{maps 3041}#)))
+ (lambda (#{outer-var 3048}# #{outer-maps 3049}#)
+ (begin
+ (let ((#{b 3053}#
+ (assq #{outer-var 3048}#
+ (car #{maps 3041}#))))
+ (if #{b 3053}#
+ (values (cdr #{b 3053}#) #{maps 3041}#)
+ (begin
+ (let ((#{inner-var 3055}#
+ (gensym
+ (string-append
+ (symbol->string 'tmp)
+ " "))))
+ (values
+ #{inner-var 3055}#
+ (cons (cons (cons #{outer-var 3048}#
+ #{inner-var 3055}#)
+ (car #{maps 3041}#))
+ #{outer-maps 3049}#)))))))))))))
+ (#{gen-mappend 2911}#
+ (lambda (#{e 3056}# #{map-env 3057}#)
+ (list 'apply
+ '(primitive append)
+ (#{gen-map 2913}# #{e 3056}# #{map-env 3057}#))))
+ (#{gen-map 2913}#
+ (lambda (#{e 3061}# #{map-env 3062}#)
+ (begin
+ (let ((#{formals 3067}# (map cdr #{map-env 3062}#))
+ (#{actuals 3068}#
+ (map (lambda (#{x 3069}#)
+ (list 'ref (car #{x 3069}#)))
+ #{map-env 3062}#)))
+ (if (eq? (car #{e 3061}#) 'ref)
+ (car #{actuals 3068}#)
+ (if (and-map
+ (lambda (#{x 3076}#)
+ (if (eq? (car #{x 3076}#) 'ref)
+ (memq (car (cdr #{x 3076}#)) #{formals 3067}#)
+ #f))
+ (cdr #{e 3061}#))
+ (cons 'map
+ (cons (list 'primitive (car #{e 3061}#))
+ (map (begin
+ (let ((#{r 3082}#
+ (map cons
+ #{formals 3067}#
+ #{actuals 3068}#)))
+ (lambda (#{x 3083}#)
+ (cdr (assq (car (cdr #{x 3083}#))
+ #{r 3082}#)))))
+ (cdr #{e 3061}#))))
+ (cons 'map
+ (cons (list 'lambda #{formals 3067}# #{e 3061}#)
+ #{actuals 3068}#))))))))
+ (#{gen-cons 2915}#
+ (lambda (#{x 3087}# #{y 3088}#)
+ (begin
+ (let ((#{atom-key 3093}# (car #{y 3088}#)))
+ (if (eqv? #{atom-key 3093}# 'quote)
+ (if (eq? (car #{x 3087}#) 'quote)
+ (list 'quote
+ (cons (car (cdr #{x 3087}#))
+ (car (cdr #{y 3088}#))))
+ (if (eq? (car (cdr #{y 3088}#)) '())
+ (list 'list #{x 3087}#)
+ (list 'cons #{x 3087}# #{y 3088}#)))
+ (if (eqv? #{atom-key 3093}# 'list)
+ (cons 'list (cons #{x 3087}# (cdr #{y 3088}#)))
+ (list 'cons #{x 3087}# #{y 3088}#)))))))
+ (#{gen-append 2917}#
+ (lambda (#{x 3102}# #{y 3103}#)
+ (if (equal? #{y 3103}# ''())
+ #{x 3102}#
+ (list 'append #{x 3102}# #{y 3103}#))))
+ (#{gen-vector 2919}#
+ (lambda (#{x 3107}#)
+ (if (eq? (car #{x 3107}#) 'list)
+ (cons 'vector (cdr #{x 3107}#))
+ (if (eq? (car #{x 3107}#) 'quote)
+ (list 'quote
+ (list->vector (car (cdr #{x 3107}#))))
+ (list 'list->vector #{x 3107}#)))))
+ (#{regen 2921}#
+ (lambda (#{x 3117}#)
+ (begin
+ (let ((#{atom-key 3121}# (car #{x 3117}#)))
+ (if (eqv? #{atom-key 3121}# 'ref)
+ (begin
+ (let ((#{name 5344}# (car (cdr #{x 3117}#)))
+ (#{var 5345}# (car (cdr #{x 3117}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ #{name 5344}#
+ #{var 5345}#)))
+ (if (eqv? #{atom-key 3121}# 'primitive)
+ (begin
+ (let ((#{name 5354}# (car (cdr #{x 3117}#))))
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ #{name 5354}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ #{name 5354}#
+ #f))))
+ (if (eqv? #{atom-key 3121}# 'quote)
+ (begin
+ (let ((#{exp 5368}# (car (cdr #{x 3117}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #{exp 5368}#)))
+ (if (eqv? #{atom-key 3121}# 'lambda)
+ (if (list? (car (cdr #{x 3117}#)))
+ (begin
+ (let ((#{req 5376}# (car (cdr #{x 3117}#)))
+ (#{vars 5378}# (car (cdr #{x 3117}#)))
+ (#{exp 5380}#
+ (#{regen 2921}#
+ (car (cdr (cdr #{x 3117}#))))))
+ (begin
+ (let ((#{body 5385}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ #{req 5376}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 5378}#
+ #{exp 5380}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
#f
- (list #{var 3917}#)
'()
- (#{chi 432}#
- #{exp 3908}#
- (#{extend-env 332}#
- #{labels 3916}#
- (list (cons 'syntax
- (cons #{var 3917}# 0)))
- #{r 3892}#)
- (#{make-binding-wrap 396}#
- (list #{pat 3907}#)
- #{labels 3916}#
- '(()))
- #{mod 3893}#))
- (list #{x 3889}#)))))
- (#{gen-clause 3703}#
- #{x 3889}#
- #{keys 3890}#
- (cdr #{clauses 3891}#)
- #{r 3892}#
- #{pat 3907}#
- #t
- #{exp 3908}#
- #{mod 3893}#)))
- #{tmp 3904}#)
- (let ((#{tmp 3923}#
- ($sc-dispatch #{tmp 3903}# '(any any any))))
- (if #{tmp 3923}#
- (@apply
- (lambda (#{pat 3927}#
- #{fender 3928}#
- #{exp 3929}#)
- (#{gen-clause 3703}#
- #{x 3889}#
- #{keys 3890}#
- (cdr #{clauses 3891}#)
- #{r 3892}#
- #{pat 3927}#
- #{fender 3928}#
- #{exp 3929}#
- #{mod 3893}#))
- #{tmp 3923}#)
- (let ((#{_ 3931}# #{tmp 3903}#))
- (syntax-violation
- 'syntax-case
- "invalid clause"
- (car #{clauses 3891}#))))))))))))
+ #{body 5385}#)))))
+ (error "how did we get here" #{x 3117}#))
+ (begin
+ (let ((#{fun-exp 5400}#
+ (begin
+ (let ((#{name 5405}# (car #{x 3117}#)))
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ #{name 5405}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ #{name 5405}#
+ #f)))))
+ (#{arg-exps 5401}#
+ (map #{regen 2921}# (cdr #{x 3117}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 5400}#
+ #{arg-exps 5401}#))))))))))))
(begin
- (lambda (#{e 3932}#
- #{r 3933}#
- #{w 3934}#
- #{s 3935}#
- #{mod 3936}#)
+ (lambda (#{e 3133}#
+ #{r 3134}#
+ #{w 3135}#
+ #{s 3136}#
+ #{mod 3137}#)
(begin
- (let ((#{e 3943}#
- (#{source-wrap 420}#
- #{e 3932}#
- #{w 3934}#
- #{s 3935}#
- #{mod 3936}#)))
- (let ((#{tmp 3944}# #{e 3943}#))
- (let ((#{tmp 3945}#
- ($sc-dispatch
- #{tmp 3944}#
- '(_ any each-any . each-any))))
- (if #{tmp 3945}#
+ (let ((#{e 3144}#
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3133}#) #{s 3136}# #f)
+ (set-source-properties! #{e 3133}# #{s 3136}#))
+ #{e 3133}#)
+ #{w 3135}#
+ #{mod 3137}#)))
+ (begin
+ (let ((#{tmp 3146}# ($sc-dispatch #{e 3144}# '(_ any))))
+ (if #{tmp 3146}#
(@apply
- (lambda (#{val 3949}# #{key 3950}# #{m 3951}#)
- (if (and-map
- (lambda (#{x 3952}#)
- (if (#{id? 344}# #{x 3952}#)
- (not (#{ellipsis? 448}# #{x 3952}#))
- #f))
- #{key 3950}#)
- (begin
- (let ((#{x 3958}# (#{gen-var 460}# 'tmp)))
- (#{build-application 266}#
- #{s 3935}#
- (#{build-simple-lambda 284}#
- #f
- (list 'tmp)
- #f
- (list #{x 3958}#)
- '()
- (#{gen-syntax-case 3705}#
- (#{build-lexical-reference 272}#
- 'value
- #f
- 'tmp
- #{x 3958}#)
- #{key 3950}#
- #{m 3951}#
- #{r 3933}#
- #{mod 3936}#))
- (list (#{chi 432}#
- #{val 3949}#
- #{r 3933}#
- '(())
- #{mod 3936}#)))))
- (syntax-violation
- 'syntax-case
- "invalid literals list"
- #{e 3943}#)))
- #{tmp 3945}#)
+ (lambda (#{x 3148}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2907}#
+ #{e 3144}#
+ #{x 3148}#
+ #{r 3134}#
+ '()
+ #{ellipsis? 452}#
+ #{mod 3137}#))
+ (lambda (#{e 3149}# #{maps 3150}#)
+ (#{regen 2921}# #{e 3149}#))))
+ #{tmp 3146}#)
(syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3944}#))))))))))
- (set! macroexpand
- (lambda*
- (#{x 3964}#
- #:optional
- (#{m 3966}# 'e)
- (#{esew 3968}# '(eval)))
- (#{chi-top-sequence 424}#
- (list #{x 3964}#)
- '()
- '((top))
- #f
- #{m 3966}#
- #{esew 3968}#
- (cons 'hygiene (module-name (current-module))))))
- (set! identifier?
- (lambda (#{x 3972}#)
- (#{nonsymbol-id? 342}# #{x 3972}#)))
- (set! datum->syntax
- (lambda (#{id 3974}# #{datum 3975}#)
- (#{make-syntax-object 305}#
- #{datum 3975}#
- (#{syntax-object-wrap 311}# #{id 3974}#)
- (#{syntax-object-module 313}# #{id 3974}#))))
- (set! syntax->datum
- (lambda (#{x 3978}#)
- (#{strip 458}# #{x 3978}# '(()))))
- (set! syntax-source
- (lambda (#{x 3981}#)
- (#{source-annotation 322}# #{x 3981}#)))
- (set! generate-temporaries
- (lambda (#{ls 3983}#)
- (begin
- (begin
- (let ((#{x 3987}# #{ls 3983}#))
- (if (not (list? #{x 3987}#))
- (syntax-violation
- 'generate-temporaries
- "invalid argument"
- #{x 3987}#))))
- (begin
- (let ((#{mod 3989}#
- (cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 3990}#)
- (#{wrap 418}# (gensym) '((top)) #{mod 3989}#))
- #{ls 3983}#))))))
- (set! free-identifier=?
- (lambda (#{x 3994}# #{y 3995}#)
- (begin
- (begin
- (let ((#{x 4000}# #{x 3994}#))
- (if (not (#{nonsymbol-id? 342}# #{x 4000}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x 4000}#))))
- (begin
- (let ((#{x 4003}# #{y 3995}#))
- (if (not (#{nonsymbol-id? 342}# #{x 4003}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x 4003}#))))
- (#{free-id=? 408}# #{x 3994}# #{y 3995}#))))
- (set! bound-identifier=?
- (lambda (#{x 4004}# #{y 4005}#)
+ 'syntax
+ "bad `syntax' form"
+ #{e 3144}#))))))))))
+ (#{global-extend 344}#
+ 'core
+ 'lambda
+ (lambda (#{e 3155}#
+ #{r 3156}#
+ #{w 3157}#
+ #{s 3158}#
+ #{mod 3159}#)
(begin
+ (let ((#{tmp 3166}#
+ ($sc-dispatch #{e 3155}# '(_ any any . each-any))))
+ (if #{tmp 3166}#
+ (@apply
+ (lambda (#{args 3170}# #{e1 3171}# #{e2 3172}#)
+ (call-with-values
+ (lambda ()
+ (#{lambda-formals 454}# #{args 3170}#))
+ (lambda (#{req 3173}#
+ #{opt 3174}#
+ #{rest 3175}#
+ #{kw 3176}#)
+ (letrec*
+ ((#{lp 3184}#
+ (lambda (#{body 3185}# #{meta 3186}#)
+ (begin
+ (let ((#{tmp 3189}#
+ ($sc-dispatch
+ #{body 3185}#
+ '(any any . each-any))))
+ (if (if #{tmp 3189}#
+ (@apply
+ (lambda (#{docstring 3193}#
+ #{e1 3194}#
+ #{e2 3195}#)
+ (string?
+ (syntax->datum
+ #{docstring 3193}#)))
+ #{tmp 3189}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 3199}#
+ #{e1 3200}#
+ #{e2 3201}#)
+ (#{lp 3184}#
+ (cons #{e1 3200}# #{e2 3201}#)
+ (append
+ #{meta 3186}#
+ (list (cons 'documentation
+ (syntax->datum
+ #{docstring
3199}#))))))
+ #{tmp 3189}#)
+ (begin
+ (let ((#{tmp 3204}#
+ ($sc-dispatch
+ #{body 3185}#
+ '(#(vector
+ #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 3204}#
+ (@apply
+ (lambda (#{k 3209}#
+ #{v 3210}#
+ #{e1 3211}#
+ #{e2 3212}#)
+ (#{lp 3184}#
+ (cons #{e1 3211}# #{e2 3212}#)
+ (append
+ #{meta 3186}#
+ (syntax->datum
+ (map cons
+ #{k 3209}#
+ #{v 3210}#)))))
+ #{tmp 3204}#)
+ (let ((#{e 2266}# #{e 3155}#)
+ (#{r 2267}# #{r 3156}#)
+ (#{w 2268}# #{w 3157}#)
+ (#{s 2269}# #{s 3158}#)
+ (#{mod 2270}# #{mod 3159}#)
+ (#{req 2271}# #{req 3173}#)
+ (#{rest 2272}# #{rest 3175}#)
+ (#{meta 2273}# #{meta 3186}#)
+ (#{body 2274}# #{body 3185}#))
+ (begin
+ (let ((#{ids 2286}#
+ (if #{rest 2272}#
+ (append
+ #{req 2271}#
+ (list #{rest
2272}#))
+ #{req 2271}#)))
+ (begin
+ (let ((#{vars 2288}#
+ (map #{gen-var 464}#
+ #{ids 2286}#)))
+ (begin
+ (let ((#{labels 2290}#
+ (#{gen-labels
368}#
+ #{ids
2286}#)))
+
(#{build-simple-lambda 288}#
+ #{s 2269}#
+ (map syntax->datum
+ #{req 2271}#)
+ (if #{rest 2272}#
+ (syntax->datum
+ #{rest 2272}#)
+ #f)
+ #{vars 2288}#
+ #{meta 2273}#
+ (#{chi-body 444}#
+ #{body 2274}#
+ (#{source-wrap
424}#
+ #{e 2266}#
+ #{w 2268}#
+ #{s 2269}#
+ #{mod 2270}#)
+ (#{extend-var-env
338}#
+ #{labels 2290}#
+ #{vars 2288}#
+ #{r 2267}#)
+
(#{make-binding-wrap 400}#
+ #{ids 2286}#
+ #{labels 2290}#
+ #{w 2268}#)
+ #{mod
2270}#))))))))))))))))))
+ (begin
+ (#{lp 3184}#
+ (cons #{e1 3171}# #{e2 3172}#)
+ '()))))))
+ #{tmp 3166}#)
+ (syntax-violation
+ 'lambda
+ "bad lambda"
+ #{e 3155}#))))))
+ (module-define!
+ (current-module)
+ 'lambda*
+ (make-syntax-transformer
+ 'lambda*
+ 'core
+ (lambda (#{e 3220}#
+ #{r 3221}#
+ #{w 3222}#
+ #{s 3223}#
+ #{mod 3224}#)
(begin
- (let ((#{x 4010}# #{x 4004}#))
- (if (not (#{nonsymbol-id? 342}# #{x 4010}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x 4010}#))))
- (begin
- (let ((#{x 4013}# #{y 4005}#))
- (if (not (#{nonsymbol-id? 342}# #{x 4013}#))
+ (let ((#{tmp 3231}#
+ ($sc-dispatch #{e 3220}# '(_ any any . each-any))))
+ (if #{tmp 3231}#
+ (@apply
+ (lambda (#{args 3235}# #{e1 3236}# #{e2 3237}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 460}#
+ #{e 3220}#
+ #{r 3221}#
+ #{w 3222}#
+ #{s 3223}#
+ #{mod 3224}#
+ #{lambda*-formals 458}#
+ (list (cons #{args 3235}#
+ (cons #{e1 3236}# #{e2 3237}#)))))
+ (lambda (#{meta 3239}# #{lcase 3240}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 3223}#
+ #{meta 3239}#
+ #{lcase 3240}#))))
+ #{tmp 3231}#)
(syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x 4013}#))))
- (#{bound-id=? 410}# #{x 4004}# #{y 4005}#))))
- (set! syntax-violation
- (lambda*
- (#{who 4014}#
- #{message 4015}#
- #{form 4016}#
- #:optional
- (#{subform 4020}# #f))
- (begin
+ 'lambda
+ "bad lambda*"
+ #{e 3220}#)))))))
+ (module-define!
+ (current-module)
+ 'case-lambda
+ (make-syntax-transformer
+ 'case-lambda
+ 'core
+ (lambda (#{e 3245}#
+ #{r 3246}#
+ #{w 3247}#
+ #{s 3248}#
+ #{mod 3249}#)
(begin
- (let ((#{x 4024}# #{who 4014}#))
- (if (not (let ((#{x 4025}# #{x 4024}#))
- (begin
- (let ((#{t 4029}# (not #{x 4025}#)))
- (if #{t 4029}#
- #{t 4029}#
- (begin
- (let ((#{t 4032}# (string? #{x 4025}#)))
- (if #{t 4032}#
- #{t 4032}#
- (symbol? #{x 4025}#)))))))))
+ (let ((#{tmp 3256}#
+ ($sc-dispatch
+ #{e 3245}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 3256}#
+ (@apply
+ (lambda (#{args 3263}#
+ #{e1 3264}#
+ #{e2 3265}#
+ #{args* 3266}#
+ #{e1* 3267}#
+ #{e2* 3268}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 460}#
+ #{e 3245}#
+ #{r 3246}#
+ #{w 3247}#
+ #{s 3248}#
+ #{mod 3249}#
+ #{lambda-formals 454}#
+ (cons (cons #{args 3263}#
+ (cons #{e1 3264}# #{e2 3265}#))
+ (map (lambda (#{tmp 3272}#
+ #{tmp 3271}#
+ #{tmp 3270}#)
+ (cons #{tmp 3270}#
+ (cons #{tmp 3271}#
+ #{tmp 3272}#)))
+ #{e2* 3268}#
+ #{e1* 3267}#
+ #{args* 3266}#))))
+ (lambda (#{meta 3274}# #{lcase 3275}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 3248}#
+ #{meta 3274}#
+ #{lcase 3275}#))))
+ #{tmp 3256}#)
(syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x 4024}#))))
+ 'case-lambda
+ "bad case-lambda"
+ #{e 3245}#)))))))
+ (module-define!
+ (current-module)
+ 'case-lambda*
+ (make-syntax-transformer
+ 'case-lambda*
+ 'core
+ (lambda (#{e 3280}#
+ #{r 3281}#
+ #{w 3282}#
+ #{s 3283}#
+ #{mod 3284}#)
(begin
- (let ((#{x 4036}# #{message 4015}#))
- (if (not (string? #{x 4036}#))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x 4036}#))))
- (throw 'syntax-error
- #{who 4014}#
- #{message 4015}#
- (#{source-annotation 322}#
- (begin
- (let ((#{t 4039}# #{form 4016}#))
- (if #{t 4039}# #{t 4039}# #{subform 4020}#))))
- (#{strip 458}# #{form 4016}# '(()))
- (if #{subform 4020}#
- (#{strip 458}# #{subform 4020}# '(()))
- #f)))))
- (letrec*
- ((#{match-each 4046}#
- (lambda (#{e 4059}# #{p 4060}# #{w 4061}# #{mod 4062}#)
- (if (pair? #{e 4059}#)
- (begin
- (let ((#{first 4070}#
- (#{match 4058}#
- (car #{e 4059}#)
- #{p 4060}#
- #{w 4061}#
- '()
- #{mod 4062}#)))
- (if #{first 4070}#
- (begin
- (let ((#{rest 4074}#
- (#{match-each 4046}#
- (cdr #{e 4059}#)
- #{p 4060}#
- #{w 4061}#
- #{mod 4062}#)))
- (if #{rest 4074}#
- (cons #{first 4070}# #{rest 4074}#)
- #f)))
- #f)))
- (if (null? #{e 4059}#)
- '()
- (if (#{syntax-object? 307}# #{e 4059}#)
- (#{match-each 4046}#
- (#{syntax-object-expression 309}# #{e 4059}#)
- #{p 4060}#
- (#{join-wraps 400}#
- #{w 4061}#
- (#{syntax-object-wrap 311}# #{e 4059}#))
- (#{syntax-object-module 313}# #{e 4059}#))
- #f)))))
- (#{match-each+ 4048}#
- (lambda (#{e 4082}#
- #{x-pat 4083}#
- #{y-pat 4084}#
- #{z-pat 4085}#
- #{w 4086}#
- #{r 4087}#
- #{mod 4088}#)
- (letrec*
- ((#{f 4099}#
- (lambda (#{e 4100}# #{w 4101}#)
- (if (pair? #{e 4100}#)
+ (let ((#{tmp 3291}#
+ ($sc-dispatch
+ #{e 3280}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 3291}#
+ (@apply
+ (lambda (#{args 3298}#
+ #{e1 3299}#
+ #{e2 3300}#
+ #{args* 3301}#
+ #{e1* 3302}#
+ #{e2* 3303}#)
(call-with-values
(lambda ()
- (#{f 4099}# (cdr #{e 4100}#) #{w 4101}#))
- (lambda (#{xr* 4104}# #{y-pat 4105}# #{r 4106}#)
- (if #{r 4106}#
- (if (null? #{y-pat 4105}#)
- (begin
- (let ((#{xr 4111}#
- (#{match 4058}#
- (car #{e 4100}#)
- #{x-pat 4083}#
- #{w 4101}#
- '()
- #{mod 4088}#)))
- (if #{xr 4111}#
- (values
- (cons #{xr 4111}# #{xr* 4104}#)
- #{y-pat 4105}#
- #{r 4106}#)
- (values #f #f #f))))
- (values
- '()
- (cdr #{y-pat 4105}#)
- (#{match 4058}#
- (car #{e 4100}#)
- (car #{y-pat 4105}#)
- #{w 4101}#
- #{r 4106}#
- #{mod 4088}#)))
- (values #f #f #f))))
- (if (#{syntax-object? 307}# #{e 4100}#)
- (#{f 4099}#
- (#{syntax-object-expression 309}# #{e 4100}#)
- (#{join-wraps 400}# #{w 4101}# #{e 4100}#))
- (values
- '()
- #{y-pat 4084}#
- (#{match 4058}#
- #{e 4100}#
- #{z-pat 4085}#
- #{w 4101}#
- #{r 4087}#
- #{mod 4088}#)))))))
- (begin (#{f 4099}# #{e 4082}# #{w 4086}#)))))
- (#{match-each-any 4050}#
- (lambda (#{e 4115}# #{w 4116}# #{mod 4117}#)
- (if (pair? #{e 4115}#)
- (begin
- (let ((#{l 4124}#
- (#{match-each-any 4050}#
- (cdr #{e 4115}#)
- #{w 4116}#
- #{mod 4117}#)))
- (if #{l 4124}#
- (cons (#{wrap 418}#
- (car #{e 4115}#)
- #{w 4116}#
- #{mod 4117}#)
- #{l 4124}#)
- #f)))
- (if (null? #{e 4115}#)
- '()
- (if (#{syntax-object? 307}# #{e 4115}#)
- (#{match-each-any 4050}#
- (#{syntax-object-expression 309}# #{e 4115}#)
- (#{join-wraps 400}#
- #{w 4116}#
- (#{syntax-object-wrap 311}# #{e 4115}#))
- #{mod 4117}#)
- #f)))))
- (#{match-empty 4052}#
- (lambda (#{p 4132}# #{r 4133}#)
- (if (null? #{p 4132}#)
- #{r 4133}#
- (if (eq? #{p 4132}# '_)
- #{r 4133}#
- (if (eq? #{p 4132}# 'any)
- (cons '() #{r 4133}#)
- (if (pair? #{p 4132}#)
- (#{match-empty 4052}#
- (car #{p 4132}#)
- (#{match-empty 4052}#
- (cdr #{p 4132}#)
- #{r 4133}#))
- (if (eq? #{p 4132}# 'each-any)
- (cons '() #{r 4133}#)
- (begin
- (let ((#{atom-key 4149}# (vector-ref #{p 4132}# 0)))
- (if (eqv? #{atom-key 4149}# 'each)
- (#{match-empty 4052}#
- (vector-ref #{p 4132}# 1)
- #{r 4133}#)
- (if (eqv? #{atom-key 4149}# 'each+)
- (#{match-empty 4052}#
- (vector-ref #{p 4132}# 1)
- (#{match-empty 4052}#
- (reverse (vector-ref #{p 4132}# 2))
- (#{match-empty 4052}#
- (vector-ref #{p 4132}# 3)
- #{r 4133}#)))
- (if (if (eqv? #{atom-key 4149}# 'free-id)
- #t
- (eqv? #{atom-key 4149}# 'atom))
- #{r 4133}#
- (if (eqv? #{atom-key 4149}# 'vector)
- (#{match-empty 4052}#
- (vector-ref #{p 4132}# 1)
- #{r 4133}#))))))))))))))
- (#{combine 4054}#
- (lambda (#{r* 4154}# #{r 4155}#)
- (if (null? (car #{r* 4154}#))
- #{r 4155}#
- (cons (map car #{r* 4154}#)
- (#{combine 4054}#
- (map cdr #{r* 4154}#)
- #{r 4155}#)))))
- (#{match* 4056}#
- (lambda (#{e 4158}#
- #{p 4159}#
- #{w 4160}#
- #{r 4161}#
- #{mod 4162}#)
- (if (null? #{p 4159}#)
- (if (null? #{e 4158}#) #{r 4161}# #f)
- (if (pair? #{p 4159}#)
- (if (pair? #{e 4158}#)
- (#{match 4058}#
- (car #{e 4158}#)
- (car #{p 4159}#)
- #{w 4160}#
- (#{match 4058}#
- (cdr #{e 4158}#)
- (cdr #{p 4159}#)
- #{w 4160}#
- #{r 4161}#
- #{mod 4162}#)
- #{mod 4162}#)
- #f)
- (if (eq? #{p 4159}# 'each-any)
- (begin
- (let ((#{l 4179}#
- (#{match-each-any 4050}#
- #{e 4158}#
- #{w 4160}#
- #{mod 4162}#)))
- (if #{l 4179}# (cons #{l 4179}# #{r 4161}#) #f)))
- (begin
- (let ((#{atom-key 4185}# (vector-ref #{p 4159}# 0)))
- (if (eqv? #{atom-key 4185}# 'each)
- (if (null? #{e 4158}#)
- (#{match-empty 4052}#
- (vector-ref #{p 4159}# 1)
- #{r 4161}#)
- (begin
- (let ((#{l 4188}#
- (#{match-each 4046}#
- #{e 4158}#
- (vector-ref #{p 4159}# 1)
- #{w 4160}#
- #{mod 4162}#)))
- (if #{l 4188}#
- (letrec*
- ((#{collect 4193}#
- (lambda (#{l 4194}#)
- (if (null? (car #{l 4194}#))
- #{r 4161}#
- (cons (map car #{l 4194}#)
- (#{collect 4193}#
- (map cdr #{l 4194}#)))))))
- (begin (#{collect 4193}# #{l 4188}#)))
- #f))))
- (if (eqv? #{atom-key 4185}# 'each+)
- (call-with-values
- (lambda ()
- (#{match-each+ 4048}#
- #{e 4158}#
- (vector-ref #{p 4159}# 1)
- (vector-ref #{p 4159}# 2)
- (vector-ref #{p 4159}# 3)
- #{w 4160}#
- #{r 4161}#
- #{mod 4162}#))
- (lambda (#{xr* 4196}# #{y-pat 4197}# #{r 4198}#)
- (if #{r 4198}#
- (if (null? #{y-pat 4197}#)
- (if (null? #{xr* 4196}#)
- (#{match-empty 4052}#
- (vector-ref #{p 4159}# 1)
- #{r 4198}#)
- (#{combine 4054}#
- #{xr* 4196}#
- #{r 4198}#))
- #f)
- #f)))
- (if (eqv? #{atom-key 4185}# 'free-id)
- (if (#{id? 344}# #{e 4158}#)
- (if (#{free-id=? 408}#
- (#{wrap 418}#
- #{e 4158}#
- #{w 4160}#
- #{mod 4162}#)
- (vector-ref #{p 4159}# 1))
- #{r 4161}#
- #f)
- #f)
- (if (eqv? #{atom-key 4185}# 'atom)
- (if (equal?
- (vector-ref #{p 4159}# 1)
- (#{strip 458}# #{e 4158}# #{w 4160}#))
- #{r 4161}#
- #f)
- (if (eqv? #{atom-key 4185}# 'vector)
- (if (vector? #{e 4158}#)
- (#{match 4058}#
- (vector->list #{e 4158}#)
- (vector-ref #{p 4159}# 1)
- #{w 4160}#
- #{r 4161}#
- #{mod 4162}#)
- #f)))))))))))))
- (#{match 4058}#
- (lambda (#{e 4215}#
- #{p 4216}#
- #{w 4217}#
- #{r 4218}#
- #{mod 4219}#)
- (if (not #{r 4218}#)
- #f
- (if (eq? #{p 4216}# '_)
- #{r 4218}#
- (if (eq? #{p 4216}# 'any)
- (cons (#{wrap 418}# #{e 4215}# #{w 4217}# #{mod 4219}#)
- #{r 4218}#)
- (if (#{syntax-object? 307}# #{e 4215}#)
- (#{match* 4056}#
- (#{syntax-object-expression 309}# #{e 4215}#)
- #{p 4216}#
- (#{join-wraps 400}#
- #{w 4217}#
- (#{syntax-object-wrap 311}# #{e 4215}#))
- #{r 4218}#
- (#{syntax-object-module 313}# #{e 4215}#))
- (#{match* 4056}#
- #{e 4215}#
- #{p 4216}#
- #{w 4217}#
- #{r 4218}#
- #{mod 4219}#))))))))
- (begin
- (set! $sc-dispatch
- (lambda (#{e 4234}# #{p 4235}#)
- (if (eq? #{p 4235}# 'any)
- (list #{e 4234}#)
- (if (eq? #{p 4235}# '_)
- '()
- (if (#{syntax-object? 307}# #{e 4234}#)
- (#{match* 4056}#
- (#{syntax-object-expression 309}# #{e 4234}#)
- #{p 4235}#
- (#{syntax-object-wrap 311}# #{e 4234}#)
- '()
- (#{syntax-object-module 313}# #{e 4234}#))
- (#{match* 4056}#
- #{e 4234}#
- #{p 4235}#
- '(())
- '()
- #f)))))))))))
-
-(define with-syntax
- (make-syntax-transformer
- 'with-syntax
- 'macro
- (lambda (#{x 4246}#)
- (let ((#{tmp 4248}# #{x 4246}#))
- (let ((#{tmp 4249}#
- ($sc-dispatch
- #{tmp 4248}#
- '(_ () any . each-any))))
- (if #{tmp 4249}#
- (@apply
- (lambda (#{e1 4252}# #{e2 4253}#)
- (cons '#(syntax-object
- let
- ((top)
- #(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4250" "i4251"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4247")))
- (hygiene guile))
- (cons '() (cons #{e1 4252}# #{e2 4253}#))))
- #{tmp 4249}#)
- (let ((#{tmp 4255}#
- ($sc-dispatch
- #{tmp 4248}#
- '(_ ((any any)) any . each-any))))
- (if #{tmp 4255}#
- (@apply
- (lambda (#{out 4260}#
- #{in 4261}#
- #{e1 4262}#
- #{e2 4263}#)
- (list '#(syntax-object
- syntax-case
- ((top)
- #(ribcage
- #(out in e1 e2)
- #((top) (top) (top) (top))
- #("i4256" "i4257" "i4258" "i4259"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4247")))
- (hygiene guile))
- #{in 4261}#
- '()
- (list #{out 4260}#
- (cons '#(syntax-object
- let
- ((top)
- #(ribcage
- #(out in e1 e2)
- #((top) (top) (top) (top))
- #("i4256" "i4257" "i4258" "i4259"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4247")))
- (hygiene guile))
- (cons '()
- (cons #{e1 4262}# #{e2 4263}#))))))
- #{tmp 4255}#)
- (let ((#{tmp 4265}#
+ (#{chi-lambda-case 460}#
+ #{e 3280}#
+ #{r 3281}#
+ #{w 3282}#
+ #{s 3283}#
+ #{mod 3284}#
+ #{lambda*-formals 458}#
+ (cons (cons #{args 3298}#
+ (cons #{e1 3299}# #{e2 3300}#))
+ (map (lambda (#{tmp 3307}#
+ #{tmp 3306}#
+ #{tmp 3305}#)
+ (cons #{tmp 3305}#
+ (cons #{tmp 3306}#
+ #{tmp 3307}#)))
+ #{e2* 3303}#
+ #{e1* 3302}#
+ #{args* 3301}#))))
+ (lambda (#{meta 3309}# #{lcase 3310}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 3283}#
+ #{meta 3309}#
+ #{lcase 3310}#))))
+ #{tmp 3291}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ #{e 3280}#)))))))
+ (#{global-extend 344}#
+ 'core
+ 'let
+ (letrec*
+ ((#{chi-let 3316}#
+ (lambda (#{e 3317}#
+ #{r 3318}#
+ #{w 3319}#
+ #{s 3320}#
+ #{mod 3321}#
+ #{constructor 3322}#
+ #{ids 3323}#
+ #{vals 3324}#
+ #{exps 3325}#)
+ (if (not (#{valid-bound-ids? 416}# #{ids 3323}#))
+ (syntax-violation
+ 'let
+ "duplicate bound variable"
+ #{e 3317}#)
+ (begin
+ (let ((#{labels 3337}#
+ (#{gen-labels 368}# #{ids 3323}#))
+ (#{new-vars 3338}#
+ (map #{gen-var 464}# #{ids 3323}#)))
+ (begin
+ (let ((#{nw 3341}#
+ (#{make-binding-wrap 400}#
+ #{ids 3323}#
+ #{labels 3337}#
+ #{w 3319}#))
+ (#{nr 3342}#
+ (#{extend-var-env 338}#
+ #{labels 3337}#
+ #{new-vars 3338}#
+ #{r 3318}#)))
+ (#{constructor 3322}#
+ #{s 3320}#
+ (map syntax->datum #{ids 3323}#)
+ #{new-vars 3338}#
+ (map (lambda (#{x 3343}#)
+ (#{chi 436}#
+ #{x 3343}#
+ #{r 3318}#
+ #{w 3319}#
+ #{mod 3321}#))
+ #{vals 3324}#)
+ (#{chi-body 444}#
+ #{exps 3325}#
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3317}#) #{s 3320}# #f)
+ (set-source-properties!
+ #{e 3317}#
+ #{s 3320}#))
+ #{e 3317}#)
+ #{nw 3341}#
+ #{mod 3321}#)
+ #{nr 3342}#
+ #{nw 3341}#
+ #{mod 3321}#))))))))))
+ (begin
+ (lambda (#{e 3345}#
+ #{r 3346}#
+ #{w 3347}#
+ #{s 3348}#
+ #{mod 3349}#)
+ (begin
+ (let ((#{tmp 3356}#
($sc-dispatch
- #{tmp 4248}#
+ #{e 3345}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 4265}#
+ (if (if #{tmp 3356}#
+ (@apply
+ (lambda (#{id 3361}#
+ #{val 3362}#
+ #{e1 3363}#
+ #{e2 3364}#)
+ (and-map #{id? 348}# #{id 3361}#))
+ #{tmp 3356}#)
+ #f)
(@apply
- (lambda (#{out 4270}#
- #{in 4271}#
- #{e1 4272}#
- #{e2 4273}#)
- (list '#(syntax-object
- syntax-case
- ((top)
- #(ribcage
- #(out in e1 e2)
- #((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4247")))
- (hygiene guile))
- (cons '#(syntax-object
- list
- ((top)
- #(ribcage
- #(out in e1 e2)
- #((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4247")))
- (hygiene guile))
- #{in 4271}#)
- '()
- (list #{out 4270}#
- (cons '#(syntax-object
- let
- ((top)
- #(ribcage
- #(out in e1 e2)
- #((top) (top) (top) (top))
- #("i4266"
- "i4267"
- "i4268"
- "i4269"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4247")))
- (hygiene guile))
- (cons '()
- (cons #{e1 4272}#
- #{e2 4273}#))))))
- #{tmp 4265}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4248}#)))))))))))
-
-(define syntax-rules
- (make-syntax-transformer
- 'syntax-rules
- 'macro
- (lambda (#{x 4277}#)
- (let ((#{tmp 4279}# #{x 4277}#))
- (let ((#{tmp 4280}#
- ($sc-dispatch
- #{tmp 4279}#
- '(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 4280}#
- (@apply
- (lambda (#{k 4285}#
- #{keyword 4286}#
- #{pattern 4287}#
- #{template 4288}#)
- (list '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(k keyword pattern template)
- #((top) (top) (top) (top))
- #("i4281" "i4282" "i4283" "i4284"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(k keyword pattern template)
- #((top) (top) (top) (top))
- #("i4281" "i4282" "i4283" "i4284"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile)))
- (vector
- '(#(syntax-object
- macro-type
- ((top)
- #(ribcage
- #(k keyword pattern template)
- #((top) (top) (top) (top))
- #("i4281" "i4282" "i4283" "i4284"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- .
- #(syntax-object
- syntax-rules
- ((top)
- #(ribcage
- #(k keyword pattern template)
- #((top) (top) (top) (top))
- #("i4281" "i4282" "i4283" "i4284"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile)))
- (cons '#(syntax-object
- patterns
- ((top)
- #(ribcage
- #(k keyword pattern template)
- #((top) (top) (top) (top))
- #("i4281" "i4282" "i4283" "i4284"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- #{pattern 4287}#))
- (cons '#(syntax-object
- syntax-case
- ((top)
- #(ribcage
- #(k keyword pattern template)
- #((top) (top) (top) (top))
- #("i4281" "i4282" "i4283" "i4284"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- (cons '#(syntax-object
- x
- ((top)
- #(ribcage
- #(k keyword pattern template)
- #((top) (top) (top) (top))
- #("i4281" "i4282" "i4283" "i4284"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- (cons #{k 4285}#
- (map (lambda (#{tmp 4292}#
- #{tmp 4291}#)
- (list (cons '#(syntax-object
- dummy
- ((top)
- #(ribcage
- #(k
- keyword
- pattern
- template)
- #((top)
- (top)
- (top)
- (top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4278")))
- (hygiene guile))
- #{tmp 4291}#)
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(k
- keyword
- pattern
- template)
- #((top)
- (top)
- (top)
- (top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4278")))
- (hygiene guile))
- #{tmp 4292}#)))
- #{template 4288}#
- #{pattern 4287}#))))))
- #{tmp 4280}#)
- (let ((#{tmp 4293}#
+ (lambda (#{id 3370}#
+ #{val 3371}#
+ #{e1 3372}#
+ #{e2 3373}#)
+ (#{chi-let 3316}#
+ #{e 3345}#
+ #{r 3346}#
+ #{w 3347}#
+ #{s 3348}#
+ #{mod 3349}#
+ (lambda (#{src 1103}#
+ #{ids 1104}#
+ #{vars 1105}#
+ #{val-exps 1106}#
+ #{body-exp 1107}#)
+ (begin
+ (for-each
+ #{maybe-name-value! 266}#
+ #{ids 1104}#
+ #{val-exps 1106}#)
+ (if (null? #{vars 1105}#)
+ #{body-exp 1107}#
+ (#{make-let 237}#
+ #{src 1103}#
+ #{ids 1104}#
+ #{vars 1105}#
+ #{val-exps 1106}#
+ #{body-exp 1107}#))))
+ #{id 3370}#
+ #{val 3371}#
+ (cons #{e1 3372}# #{e2 3373}#)))
+ #{tmp 3356}#)
+ (begin
+ (let ((#{tmp 3377}#
+ ($sc-dispatch
+ #{e 3345}#
+ '(_ any #(each (any any)) any . each-any))))
+ (if (if #{tmp 3377}#
+ (@apply
+ (lambda (#{f 3383}#
+ #{id 3384}#
+ #{val 3385}#
+ #{e1 3386}#
+ #{e2 3387}#)
+ (if (if (symbol? #{f 3383}#)
+ #t
+ (if (if (vector? #{f 3383}#)
+ (if (= (vector-length #{f 3383}#)
+ 4)
+ (eq? (vector-ref #{f 3383}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{f 3383}# 1))
+ #f))
+ (and-map #{id? 348}# #{id 3384}#)
+ #f))
+ #{tmp 3377}#)
+ #f)
+ (@apply
+ (lambda (#{f 3396}#
+ #{id 3397}#
+ #{val 3398}#
+ #{e1 3399}#
+ #{e2 3400}#)
+ (#{chi-let 3316}#
+ #{e 3345}#
+ #{r 3346}#
+ #{w 3347}#
+ #{s 3348}#
+ #{mod 3349}#
+ (lambda (#{src 1113}#
+ #{ids 1114}#
+ #{vars 1115}#
+ #{val-exps 1116}#
+ #{body-exp 1117}#)
+ (begin
+ (let ((#{f 1127}# (car #{vars 1115}#))
+ (#{f-name 1128}# (car #{ids 1114}#))
+ (#{vars 1129}# (cdr #{vars 1115}#))
+ (#{ids 1130}# (cdr #{ids 1114}#)))
+ (begin
+ (let ((#{proc 1132}#
+ (#{build-simple-lambda 288}#
+ #{src 1113}#
+ #{ids 1130}#
+ #f
+ #{vars 1129}#
+ '()
+ #{body-exp 1117}#)))
+ (begin
+ (#{maybe-name-value! 266}#
+ #{f-name 1128}#
+ #{proc 1132}#)
+ (for-each
+ #{maybe-name-value! 266}#
+ #{ids 1130}#
+ #{val-exps 1116}#)
+ (#{make-letrec 239}#
+ #{src 1113}#
+ #f
+ (list #{f-name 1128}#)
+ (list #{f 1127}#)
+ (list #{proc 1132}#)
+ (#{build-application 270}#
+ #{src 1113}#
+ (#{build-lexical-reference
276}#
+ 'fun
+ #{src 1113}#
+ #{f-name 1128}#
+ #{f 1127}#)
+ #{val-exps 1116}#))))))))
+ (cons #{f 3396}# #{id 3397}#)
+ #{val 3398}#
+ (cons #{e1 3399}# #{e2 3400}#)))
+ #{tmp 3377}#)
+ (syntax-violation
+ 'let
+ "bad let"
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3345}#) #{s 3348}# #f)
+ (set-source-properties!
+ #{e 3345}#
+ #{s 3348}#))
+ #{e 3345}#)
+ #{w 3347}#
+ #{mod 3349}#))))))))))))
+ (#{global-extend 344}#
+ 'core
+ 'letrec
+ (lambda (#{e 3406}#
+ #{r 3407}#
+ #{w 3408}#
+ #{s 3409}#
+ #{mod 3410}#)
+ (begin
+ (let ((#{tmp 3417}#
($sc-dispatch
- #{tmp 4279}#
- '(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 4293}#
+ #{e 3406}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 3417}#
(@apply
- (lambda (#{k 4299}#
- #{docstring 4300}#
- #{keyword 4301}#
- #{pattern 4302}#
- #{template 4303}#)
- (string? (syntax->datum #{docstring 4300}#)))
- #{tmp 4293}#)
+ (lambda (#{id 3422}#
+ #{val 3423}#
+ #{e1 3424}#
+ #{e2 3425}#)
+ (and-map #{id? 348}# #{id 3422}#))
+ #{tmp 3417}#)
#f)
(@apply
- (lambda (#{k 4309}#
- #{docstring 4310}#
- #{keyword 4311}#
- #{pattern 4312}#
- #{template 4313}#)
- (list '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(k docstring keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4304" "i4305" "i4306" "i4307" "i4308"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(k docstring keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4304" "i4305" "i4306" "i4307" "i4308"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile)))
- #{docstring 4310}#
- (vector
- '(#(syntax-object
- macro-type
- ((top)
- #(ribcage
- #(k docstring keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4304" "i4305" "i4306" "i4307" "i4308"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- .
- #(syntax-object
- syntax-rules
- ((top)
- #(ribcage
- #(k docstring keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4304" "i4305" "i4306" "i4307" "i4308"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile)))
- (cons '#(syntax-object
- patterns
- ((top)
- #(ribcage
- #(k docstring keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4304"
- "i4305"
- "i4306"
- "i4307"
- "i4308"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- #{pattern 4312}#))
+ (lambda (#{id 3431}#
+ #{val 3432}#
+ #{e1 3433}#
+ #{e2 3434}#)
+ (if (not (#{valid-bound-ids? 416}# #{id 3431}#))
+ (syntax-violation
+ 'letrec
+ "duplicate bound variable"
+ #{e 3406}#)
+ (begin
+ (let ((#{labels 3440}#
+ (#{gen-labels 368}# #{id 3431}#))
+ (#{new-vars 3441}#
+ (map #{gen-var 464}# #{id 3431}#)))
+ (begin
+ (let ((#{w 3444}#
+ (#{make-binding-wrap 400}#
+ #{id 3431}#
+ #{labels 3440}#
+ #{w 3408}#))
+ (#{r 3445}#
+ (#{extend-var-env 338}#
+ #{labels 3440}#
+ #{new-vars 3441}#
+ #{r 3407}#)))
+ (#{build-letrec 304}#
+ #{s 3409}#
+ #f
+ (map syntax->datum #{id 3431}#)
+ #{new-vars 3441}#
+ (map (lambda (#{x 3446}#)
+ (#{chi 436}#
+ #{x 3446}#
+ #{r 3445}#
+ #{w 3444}#
+ #{mod 3410}#))
+ #{val 3432}#)
+ (#{chi-body 444}#
+ (cons #{e1 3433}# #{e2 3434}#)
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3406}#) #{s 3409}# #f)
+ (set-source-properties!
+ #{e 3406}#
+ #{s 3409}#))
+ #{e 3406}#)
+ #{w 3444}#
+ #{mod 3410}#)
+ #{r 3445}#
+ #{w 3444}#
+ #{mod 3410}#))))))))
+ #{tmp 3417}#)
+ (syntax-violation
+ 'letrec
+ "bad letrec"
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3406}#) #{s 3409}# #f)
+ (set-source-properties! #{e 3406}# #{s 3409}#))
+ #{e 3406}#)
+ #{w 3408}#
+ #{mod 3410}#)))))))
+ (#{global-extend 344}#
+ 'core
+ 'letrec*
+ (lambda (#{e 3452}#
+ #{r 3453}#
+ #{w 3454}#
+ #{s 3455}#
+ #{mod 3456}#)
+ (begin
+ (let ((#{tmp 3463}#
+ ($sc-dispatch
+ #{e 3452}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 3463}#
+ (@apply
+ (lambda (#{id 3468}#
+ #{val 3469}#
+ #{e1 3470}#
+ #{e2 3471}#)
+ (and-map #{id? 348}# #{id 3468}#))
+ #{tmp 3463}#)
+ #f)
+ (@apply
+ (lambda (#{id 3477}#
+ #{val 3478}#
+ #{e1 3479}#
+ #{e2 3480}#)
+ (if (not (#{valid-bound-ids? 416}# #{id 3477}#))
+ (syntax-violation
+ 'letrec*
+ "duplicate bound variable"
+ #{e 3452}#)
+ (begin
+ (let ((#{labels 3486}#
+ (#{gen-labels 368}# #{id 3477}#))
+ (#{new-vars 3487}#
+ (map #{gen-var 464}# #{id 3477}#)))
+ (begin
+ (let ((#{w 3490}#
+ (#{make-binding-wrap 400}#
+ #{id 3477}#
+ #{labels 3486}#
+ #{w 3454}#))
+ (#{r 3491}#
+ (#{extend-var-env 338}#
+ #{labels 3486}#
+ #{new-vars 3487}#
+ #{r 3453}#)))
+ (#{build-letrec 304}#
+ #{s 3455}#
+ #t
+ (map syntax->datum #{id 3477}#)
+ #{new-vars 3487}#
+ (map (lambda (#{x 3492}#)
+ (#{chi 436}#
+ #{x 3492}#
+ #{r 3491}#
+ #{w 3490}#
+ #{mod 3456}#))
+ #{val 3478}#)
+ (#{chi-body 444}#
+ (cons #{e1 3479}# #{e2 3480}#)
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3452}#) #{s 3455}# #f)
+ (set-source-properties!
+ #{e 3452}#
+ #{s 3455}#))
+ #{e 3452}#)
+ #{w 3490}#
+ #{mod 3456}#)
+ #{r 3491}#
+ #{w 3490}#
+ #{mod 3456}#))))))))
+ #{tmp 3463}#)
+ (syntax-violation
+ 'letrec*
+ "bad letrec*"
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3452}#) #{s 3455}# #f)
+ (set-source-properties! #{e 3452}# #{s 3455}#))
+ #{e 3452}#)
+ #{w 3454}#
+ #{mod 3456}#)))))))
+ (#{global-extend 344}#
+ 'core
+ 'set!
+ (lambda (#{e 3498}#
+ #{r 3499}#
+ #{w 3500}#
+ #{s 3501}#
+ #{mod 3502}#)
+ (begin
+ (let ((#{tmp 3509}#
+ ($sc-dispatch #{e 3498}# '(_ any any))))
+ (if (if #{tmp 3509}#
+ (@apply
+ (lambda (#{id 3512}# #{val 3513}#)
+ (if (symbol? #{id 3512}#)
+ #t
+ (if (if (vector? #{id 3512}#)
+ (if (= (vector-length #{id 3512}#) 4)
+ (eq? (vector-ref #{id 3512}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{id 3512}# 1))
+ #f)))
+ #{tmp 3509}#)
+ #f)
+ (@apply
+ (lambda (#{id 3516}# #{val 3517}#)
+ (begin
+ (let ((#{n 3520}#
+ (#{id-var-name 410}# #{id 3516}# #{w 3500}#))
+ (#{id-mod 3521}#
+ (if (if (vector? #{id 3516}#)
+ (if (= (vector-length #{id 3516}#) 4)
+ (eq? (vector-ref #{id 3516}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 3516}# 3)
+ #{mod 3502}#)))
+ (begin
+ (let ((#{b 3523}#
+ (begin
+ (let ((#{t 7015}#
+ (assq #{n 3520}# #{r 3499}#)))
+ (if #{t 7015}#
+ (cdr #{t 7015}#)
+ (if (symbol? #{n 3520}#)
+ (begin
+ (let ((#{t 7016}#
+
(#{get-global-definition-hook 262}#
+ #{n 3520}#
+ #{id-mod 3521}#)))
+ (if #{t 7016}#
+ #{t 7016}#
+ '(global))))
+ '(displaced-lexical)))))))
+ (begin
+ (let ((#{atom-key 3526}# (car #{b 3523}#)))
+ (if (eqv? #{atom-key 3526}# 'lexical)
+ (let ((#{source 992}# #{s 3501}#)
+ (#{name 993}#
+ (syntax->datum #{id 3516}#))
+ (#{var 994}# (cdr #{b 3523}#))
+ (#{exp 995}#
+ (#{chi 436}#
+ #{val 3517}#
+ #{r 3499}#
+ #{w 3500}#
+ #{mod 3502}#)))
+ (begin
+ (#{maybe-name-value! 266}#
+ #{name 993}#
+ #{exp 995}#)
+ (#{make-lexical-set 215}#
+ #{source 992}#
+ #{name 993}#
+ #{var 994}#
+ #{exp 995}#)))
+ (if (eqv? #{atom-key 3526}# 'global)
+ (#{build-global-assignment 284}#
+ #{s 3501}#
+ #{n 3520}#
+ (#{chi 436}#
+ #{val 3517}#
+ #{r 3499}#
+ #{w 3500}#
+ #{mod 3502}#)
+ #{id-mod 3521}#)
+ (if (eqv? #{atom-key 3526}# 'macro)
+ (begin
+ (let ((#{p 3533}# (cdr #{b 3523}#)))
+ (if (procedure-property
+ #{p 3533}#
+ 'variable-transformer)
+ (#{chi 436}#
+ (#{chi-macro 442}#
+ #{p 3533}#
+ #{e 3498}#
+ #{r 3499}#
+ #{w 3500}#
+ #{s 3501}#
+ #f
+ #{mod 3502}#)
+ #{r 3499}#
+ '(())
+ #{mod 3502}#)
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (#{wrap 422}#
+ #{e 3498}#
+ #{w 3500}#
+ #{mod 3502}#)
+ (#{wrap 422}#
+ #{id 3516}#
+ #{w 3500}#
+ #{id-mod 3521}#)))))
+ (if (eqv? #{atom-key 3526}#
+ 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (#{wrap 422}#
+ #{id 3516}#
+ #{w 3500}#
+ #{mod 3502}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3498}#)
+ #{s 3501}#
+ #f)
+ (set-source-properties!
+ #{e 3498}#
+ #{s 3501}#))
+ #{e 3498}#)
+ #{w 3500}#
+ #{mod 3502}#)))))))))))))
+ #{tmp 3509}#)
+ (begin
+ (let ((#{tmp 3538}#
+ ($sc-dispatch
+ #{e 3498}#
+ '(_ (any . each-any) any))))
+ (if #{tmp 3538}#
+ (@apply
+ (lambda (#{head 3542}# #{tail 3543}# #{val 3544}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 434}#
+ #{head 3542}#
+ #{r 3499}#
+ '(())
+ #f
+ #f
+ #{mod 3502}#
+ #t))
+ (lambda (#{type 3547}#
+ #{value 3548}#
+ #{ee 3549}#
+ #{ww 3550}#
+ #{ss 3551}#
+ #{modmod 3552}#)
+ (if (eqv? #{type 3547}# 'module-ref)
+ (begin
+ (let ((#{val 3561}#
+ (#{chi 436}#
+ #{val 3544}#
+ #{r 3499}#
+ #{w 3500}#
+ #{mod 3502}#)))
+ (call-with-values
+ (lambda ()
+ (#{value 3548}#
+ (cons #{head 3542}# #{tail 3543}#)
+ #{r 3499}#
+ #{w 3500}#))
+ (lambda (#{e 3563}#
+ #{r 3564}#
+ #{w 3565}#
+ #{s* 3566}#
+ #{mod 3567}#)
+ (begin
+ (let ((#{tmp 3574}#
+ (list #{e 3563}#)))
+ (if (if #{tmp 3574}#
+ (@apply
+ (lambda (#{e 3576}#)
+ (if (symbol? #{e 3576}#)
+ #t
+ (if (if (vector?
+ #{e 3576}#)
+ (if (=
(vector-length
+ #{e
3576}#)
+ 4)
+ (eq?
(vector-ref
+ #{e
3576}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{e 3576}#
+ 1))
+ #f)))
+ #{tmp 3574}#)
+ #f)
+ (@apply
+ (lambda (#{e 3578}#)
+ (begin
+ (let ((#{var 7355}#
+ (syntax->datum
+ #{e 3578}#)))
+ (begin
+ (if (if (struct?
+ #{val 3561}#)
+ (eq?
(struct-vtable
+ #{val
3561}#)
+ (vector-ref
+
%expanded-vtables
+ 13))
+ #f)
+ (begin
+ (let ((#{meta
7366}#
+ (struct-ref
+ #{val
3561}#
+ 1)))
+ (if (not (assq
'name
+
#{meta 7366}#))
+ (begin
+ (let ((#{v
7376}#
+
(cons (cons 'name
+
#{var 7355}#)
+
#{meta 7366}#)))
+
(struct-set!
+ #{val
3561}#
+ 1
+ #{v
7376}#)))))))
+ (#{analyze-variable
280}#
+ #{mod 3567}#
+ #{var 7355}#
+ (lambda (#{mod 7358}#
+ #{var 7359}#
+ #{public?
7360}#)
+
(make-struct/no-tail
+ (vector-ref
+
%expanded-vtables
+ 6)
+ #{s 3501}#
+ #{mod 7358}#
+ #{var 7359}#
+ #{public? 7360}#
+ #{val 3561}#))
+ (lambda (#{var
7361}#)
+
(make-struct/no-tail
+ (vector-ref
+
%expanded-vtables
+ 8)
+ #{s 3501}#
+ #{var 7361}#
+ #{val
3561}#)))))))
+ #{tmp 3574}#)
+ (syntax-violation
+ #f
+ "source expression failed to
match any pattern"
+ #{e 3563}#))))))))
+ (#{build-application 270}#
+ #{s 3501}#
+ (#{chi 436}#
+ (list '#(syntax-object
+ setter
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(type value ee ww ss modmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3553"
+ "i3554"
+ "i3555"
+ "i3556"
+ "i3557"
+ "i3558"))
+ #(ribcage
+ #(head tail val)
+ #((top) (top) (top))
+ #("i3539" "i3540" "i3541"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w s mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3503"
+ "i3504"
+ "i3505"
+ "i3506"
+ "i3507"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ #{head 3542}#)
+ #{r 3499}#
+ #{w 3500}#
+ #{mod 3502}#)
+ (map (lambda (#{e 3580}#)
+ (#{chi 436}#
+ #{e 3580}#
+ #{r 3499}#
+ #{w 3500}#
+ #{mod 3502}#))
+ (append
+ #{tail 3543}#
+ (list #{val 3544}#))))))))
+ #{tmp 3538}#)
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3498}#) #{s 3501}# #f)
+ (set-source-properties! #{e 3498}# #{s 3501}#))
+ #{e 3498}#)
+ #{w 3500}#
+ #{mod 3502}#))))))))))
+ (module-define!
+ (current-module)
+ '@
+ (make-syntax-transformer
+ '@
+ 'module-ref
+ (lambda (#{e 3585}# #{r 3586}# #{w 3587}#)
+ (begin
+ (let ((#{tmp 3592}#
+ ($sc-dispatch #{e 3585}# '(_ each-any any))))
+ (if (if #{tmp 3592}#
+ (@apply
+ (lambda (#{mod 3595}# #{id 3596}#)
+ (if (and-map #{id? 348}# #{mod 3595}#)
+ (if (symbol? #{id 3596}#)
+ #t
+ (if (if (vector? #{id 3596}#)
+ (if (= (vector-length #{id 3596}#) 4)
+ (eq? (vector-ref #{id 3596}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{id 3596}# 1))
+ #f))
+ #f))
+ #{tmp 3592}#)
+ #f)
+ (@apply
+ (lambda (#{mod 3602}# #{id 3603}#)
+ (values
+ (syntax->datum #{id 3603}#)
+ #{r 3586}#
+ #{w 3587}#
+ #f
+ (syntax->datum
(cons '#(syntax-object
- syntax-case
+ public
((top)
#(ribcage
- #(k docstring keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4304"
- "i4305"
- "i4306"
- "i4307"
- "i4308"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
+ #(mod id)
+ #((top) (top))
+ #("i3600" "i3601"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("i3588" "i3589" "i3590"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
(hygiene guile))
- (cons '#(syntax-object
- x
- ((top)
- #(ribcage
- #(k
- docstring
- keyword
- pattern
- template)
- #((top) (top) (top) (top) (top))
- #("i4304"
- "i4305"
- "i4306"
- "i4307"
- "i4308"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4278")))
- (hygiene guile))
- (cons #{k 4309}#
- (map (lambda (#{tmp 4317}#
- #{tmp 4316}#)
- (list (cons '#(syntax-object
- dummy
- ((top)
- #(ribcage
- #(k
-
docstring
- keyword
- pattern
-
template)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4304"
- "i4305"
- "i4306"
- "i4307"
-
"i4308"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
-
#("i4278")))
- (hygiene
- guile))
- #{tmp 4316}#)
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(k
-
docstring
- keyword
- pattern
-
template)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4304"
- "i4305"
- "i4306"
- "i4307"
-
"i4308"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
-
#("i4278")))
- (hygiene
- guile))
- #{tmp 4317}#)))
- #{template 4313}#
- #{pattern 4312}#))))))
- #{tmp 4293}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4279}#)))))))))
-
-(define define-syntax-rule
- (make-syntax-transformer
- 'define-syntax-rule
- 'macro
- (lambda (#{x 4318}#)
- (let ((#{tmp 4320}# #{x 4318}#))
- (let ((#{tmp 4321}#
- ($sc-dispatch #{tmp 4320}# '(_ (any . any) any))))
- (if #{tmp 4321}#
- (@apply
- (lambda (#{name 4325}#
- #{pattern 4326}#
- #{template 4327}#)
- (list '#(syntax-object
- define-syntax
- ((top)
- #(ribcage
- #(name pattern template)
- #((top) (top) (top))
- #("i4322" "i4323" "i4324"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4319")))
- (hygiene guile))
- #{name 4325}#
- (list '#(syntax-object
- syntax-rules
- ((top)
- #(ribcage
- #(name pattern template)
- #((top) (top) (top))
- #("i4322" "i4323" "i4324"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4319")))
- (hygiene guile))
- '()
- (list (cons '#(syntax-object
- _
- ((top)
- #(ribcage
- #(name pattern template)
- #((top) (top) (top))
- #("i4322" "i4323" "i4324"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4319")))
- (hygiene guile))
- #{pattern 4326}#)
- #{template 4327}#))))
- #{tmp 4321}#)
- (let ((#{tmp 4328}#
+ #{mod 3602}#))))
+ #{tmp 3592}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 3585}#)))))))
+ (#{global-extend 344}#
+ 'module-ref
+ '@@
+ (lambda (#{e 3605}# #{r 3606}# #{w 3607}#)
+ (letrec*
+ ((#{remodulate 3612}#
+ (lambda (#{x 3613}# #{mod 3614}#)
+ (if (pair? #{x 3613}#)
+ (cons (#{remodulate 3612}#
+ (car #{x 3613}#)
+ #{mod 3614}#)
+ (#{remodulate 3612}#
+ (cdr #{x 3613}#)
+ #{mod 3614}#))
+ (if (if (vector? #{x 3613}#)
+ (if (= (vector-length #{x 3613}#) 4)
+ (eq? (vector-ref #{x 3613}# 0) 'syntax-object)
+ #f)
+ #f)
+ (begin
+ (let ((#{expression 7616}#
+ (#{remodulate 3612}#
+ (vector-ref #{x 3613}# 1)
+ #{mod 3614}#))
+ (#{wrap 7617}# (vector-ref #{x 3613}# 2)))
+ (vector
+ 'syntax-object
+ #{expression 7616}#
+ #{wrap 7617}#
+ #{mod 3614}#)))
+ (if (vector? #{x 3613}#)
+ (begin
+ (let ((#{n 3625}# (vector-length #{x 3613}#)))
+ (begin
+ (let ((#{v 3627}# (make-vector #{n 3625}#)))
+ (letrec*
+ ((#{loop 3630}#
+ (lambda (#{i 3631}#)
+ (if (= #{i 3631}# #{n 3625}#)
+ #{v 3627}#
+ (begin
+ (vector-set!
+ #{v 3627}#
+ #{i 3631}#
+ (#{remodulate 3612}#
+ (vector-ref
+ #{x 3613}#
+ #{i 3631}#)
+ #{mod 3614}#))
+ (#{loop 3630}#
+ (#{1+}# #{i 3631}#)))))))
+ (begin (#{loop 3630}# 0)))))))
+ #{x 3613}#))))))
+ (begin
+ (begin
+ (let ((#{tmp 3638}#
+ ($sc-dispatch #{e 3605}# '(_ each-any any))))
+ (if (if #{tmp 3638}#
+ (@apply
+ (lambda (#{mod 3641}# #{exp 3642}#)
+ (and-map #{id? 348}# #{mod 3641}#))
+ #{tmp 3638}#)
+ #f)
+ (@apply
+ (lambda (#{mod 3646}# #{exp 3647}#)
+ (begin
+ (let ((#{mod 3649}#
+ (syntax->datum
+ (cons '#(syntax-object
+ private
+ ((top)
+ #(ribcage
+ #(mod exp)
+ #((top) (top))
+ #("i3644" "i3645"))
+ #(ribcage
+ (remodulate)
+ ((top))
+ ("i3611"))
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("i3608" "i3609" "i3610"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ #{mod 3646}#))))
+ (values
+ (#{remodulate 3612}# #{exp 3647}# #{mod 3649}#)
+ #{r 3606}#
+ #{w 3607}#
+ (#{source-annotation 326}# #{exp 3647}#)
+ #{mod 3649}#))))
+ #{tmp 3638}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 3605}#))))))))
+ (#{global-extend 344}#
+ 'core
+ 'if
+ (lambda (#{e 3651}#
+ #{r 3652}#
+ #{w 3653}#
+ #{s 3654}#
+ #{mod 3655}#)
+ (begin
+ (let ((#{tmp 3662}#
+ ($sc-dispatch #{e 3651}# '(_ any any))))
+ (if #{tmp 3662}#
+ (@apply
+ (lambda (#{test 3665}# #{then 3666}#)
+ (#{build-conditional 272}#
+ #{s 3654}#
+ (#{chi 436}#
+ #{test 3665}#
+ #{r 3652}#
+ #{w 3653}#
+ #{mod 3655}#)
+ (#{chi 436}#
+ #{then 3666}#
+ #{r 3652}#
+ #{w 3653}#
+ #{mod 3655}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f)))
+ #{tmp 3662}#)
+ (begin
+ (let ((#{tmp 3668}#
+ ($sc-dispatch #{e 3651}# '(_ any any any))))
+ (if #{tmp 3668}#
+ (@apply
+ (lambda (#{test 3672}# #{then 3673}# #{else 3674}#)
+ (#{build-conditional 272}#
+ #{s 3654}#
+ (#{chi 436}#
+ #{test 3672}#
+ #{r 3652}#
+ #{w 3653}#
+ #{mod 3655}#)
+ (#{chi 436}#
+ #{then 3673}#
+ #{r 3652}#
+ #{w 3653}#
+ #{mod 3655}#)
+ (#{chi 436}#
+ #{else 3674}#
+ #{r 3652}#
+ #{w 3653}#
+ #{mod 3655}#)))
+ #{tmp 3668}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 3651}#)))))))))
+ (#{global-extend 344}#
+ 'core
+ 'with-fluids
+ (lambda (#{e 3675}#
+ #{r 3676}#
+ #{w 3677}#
+ #{s 3678}#
+ #{mod 3679}#)
+ (begin
+ (let ((#{tmp 3686}#
($sc-dispatch
- #{tmp 4320}#
- '(_ (any . any) any any))))
- (if (if #{tmp 4328}#
- (@apply
- (lambda (#{name 4333}#
- #{pattern 4334}#
- #{docstring 4335}#
- #{template 4336}#)
- (string? (syntax->datum #{docstring 4335}#)))
- #{tmp 4328}#)
- #f)
+ #{e 3675}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 3686}#
(@apply
- (lambda (#{name 4341}#
- #{pattern 4342}#
- #{docstring 4343}#
- #{template 4344}#)
- (list '#(syntax-object
- define-syntax
- ((top)
- #(ribcage
- #(name pattern docstring template)
- #((top) (top) (top) (top))
- #("i4337" "i4338" "i4339" "i4340"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4319")))
- (hygiene guile))
- #{name 4341}#
- (list '#(syntax-object
- syntax-rules
- ((top)
- #(ribcage
- #(name pattern docstring template)
- #((top) (top) (top) (top))
- #("i4337" "i4338" "i4339" "i4340"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4319")))
- (hygiene guile))
- '()
- #{docstring 4343}#
- (list (cons '#(syntax-object
- _
- ((top)
- #(ribcage
- #(name
- pattern
- docstring
- template)
- #((top) (top) (top) (top))
- #("i4337"
- "i4338"
- "i4339"
- "i4340"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4319")))
- (hygiene guile))
- #{pattern 4342}#)
- #{template 4344}#))))
- #{tmp 4328}#)
+ (lambda (#{fluid 3691}#
+ #{val 3692}#
+ #{b 3693}#
+ #{b* 3694}#)
+ (let ((#{source 976}# #{s 3678}#)
+ (#{fluids 977}#
+ (map (lambda (#{x 3695}#)
+ (#{chi 436}#
+ #{x 3695}#
+ #{r 3676}#
+ #{w 3677}#
+ #{mod 3679}#))
+ #{fluid 3691}#))
+ (#{vals 978}#
+ (map (lambda (#{x 3698}#)
+ (#{chi 436}#
+ #{x 3698}#
+ #{r 3676}#
+ #{w 3677}#
+ #{mod 3679}#))
+ #{val 3692}#))
+ (#{body 979}#
+ (#{chi-body 444}#
+ (cons #{b 3693}# #{b* 3694}#)
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3675}#) #{s 3678}# #f)
+ (set-source-properties!
+ #{e 3675}#
+ #{s 3678}#))
+ #{e 3675}#)
+ #{w 3677}#
+ #{mod 3679}#)
+ #{r 3676}#
+ #{w 3677}#
+ #{mod 3679}#)))
+ (#{make-dynlet 241}#
+ #{source 976}#
+ #{fluids 977}#
+ #{vals 978}#
+ #{body 979}#)))
+ #{tmp 3686}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4320}#)))))))))
-
-(define let*
- (make-syntax-transformer
- 'let*
- 'macro
- (lambda (#{x 4345}#)
- (let ((#{tmp 4347}# #{x 4345}#))
- (let ((#{tmp 4348}#
- ($sc-dispatch
- #{tmp 4347}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp 4348}#
- (@apply
- (lambda (#{let* 4354}#
- #{x 4355}#
- #{v 4356}#
- #{e1 4357}#
- #{e2 4358}#)
- (and-map identifier? #{x 4355}#))
- #{tmp 4348}#)
- #f)
- (@apply
- (lambda (#{let* 4365}#
- #{x 4366}#
- #{v 4367}#
- #{e1 4368}#
- #{e2 4369}#)
- (letrec*
- ((#{f 4372}#
- (lambda (#{bindings 4373}#)
- (if (null? #{bindings 4373}#)
- (cons '#(syntax-object
- let
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(f bindings)
- #((top) (top))
- #("i4370" "i4371"))
- #(ribcage
- #(let* x v e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4346")))
- (hygiene guile))
- (cons '() (cons #{e1 4368}# #{e2 4369}#)))
- (let ((#{tmp 4378}#
- (list (#{f 4372}# (cdr #{bindings 4373}#))
- (car #{bindings 4373}#))))
- (let ((#{tmp 4379}#
- ($sc-dispatch #{tmp 4378}# '(any any))))
- (if #{tmp 4379}#
- (@apply
- (lambda (#{body 4382}# #{binding 4383}#)
- (list '#(syntax-object
- let
+ #{e 3675}#))))))
+ (module-define!
+ (current-module)
+ 'begin
+ (make-syntax-transformer 'begin 'begin '()))
+ (module-define!
+ (current-module)
+ 'define
+ (make-syntax-transformer 'define 'define '()))
+ (module-define!
+ (current-module)
+ 'define-syntax
+ (make-syntax-transformer
+ 'define-syntax
+ 'define-syntax
+ '()))
+ (module-define!
+ (current-module)
+ 'eval-when
+ (make-syntax-transformer
+ 'eval-when
+ 'eval-when
+ '()))
+ (#{global-extend 344}#
+ 'core
+ 'syntax-case
+ (letrec*
+ ((#{convert-pattern 3703}#
+ (lambda (#{pattern 3710}# #{keys 3711}#)
+ (letrec*
+ ((#{cvt* 3715}#
+ (lambda (#{p* 3720}# #{n 3721}# #{ids 3722}#)
+ (if (not (pair? #{p* 3720}#))
+ (#{cvt 3719}#
+ #{p* 3720}#
+ #{n 3721}#
+ #{ids 3722}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 3715}#
+ (cdr #{p* 3720}#)
+ #{n 3721}#
+ #{ids 3722}#))
+ (lambda (#{y 3726}# #{ids 3727}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3719}#
+ (car #{p* 3720}#)
+ #{n 3721}#
+ #{ids 3727}#))
+ (lambda (#{x 3730}# #{ids 3731}#)
+ (values
+ (cons #{x 3730}# #{y 3726}#)
+ #{ids 3731}#))))))))
+ (#{v-reverse 3717}#
+ (lambda (#{x 3734}#)
+ (letrec*
+ ((#{loop 3739}#
+ (lambda (#{r 3740}# #{x 3741}#)
+ (if (not (pair? #{x 3741}#))
+ (values #{r 3740}# #{x 3741}#)
+ (#{loop 3739}#
+ (cons (car #{x 3741}#) #{r 3740}#)
+ (cdr #{x 3741}#))))))
+ (begin (#{loop 3739}# '() #{x 3734}#)))))
+ (#{cvt 3719}#
+ (lambda (#{p 3742}# #{n 3743}# #{ids 3744}#)
+ (if (if (symbol? #{p 3742}#)
+ #t
+ (if (if (vector? #{p 3742}#)
+ (if (= (vector-length #{p 3742}#) 4)
+ (eq? (vector-ref #{p 3742}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{p 3742}# 1))
+ #f))
+ (if (#{bound-id-member? 420}#
+ #{p 3742}#
+ #{keys 3711}#)
+ (values
+ (vector 'free-id #{p 3742}#)
+ #{ids 3744}#)
+ (if (if (eq? (if (if (vector? #{p 3742}#)
+ (if (= (vector-length #{p 3742}#)
+ 4)
+ (eq? (vector-ref #{p 3742}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{p 3742}# 1)
+ #{p 3742}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3745"
+ "i3746"
+ "i3747"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3718"
+ "i3716"
+ "i3714"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3712" "i3713"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3745"
+ "i3746"
+ "i3747"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3718"
+ "i3716"
+ "i3714"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3712" "i3713"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3745" "i3746" "i3747"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3718" "i3716" "i3714"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3712" "i3713"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ _
((top)
#(ribcage () () ())
#(ribcage
- #(body binding)
- #((top) (top))
- #("i4380" "i4381"))
- #(ribcage () () ())
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3745" "i3746" "i3747"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3718" "i3716" "i3714"))
#(ribcage
- #(f bindings)
+ #(pattern keys)
#((top) (top))
- #("i4370" "i4371"))
+ #("i3712" "i3713"))
#(ribcage
- #(let* x v e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4360"
- "i4361"
- "i4362"
- "i4363"
- "i4364"))
- #(ribcage () () ())
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
#(ribcage
- #(x)
- #((top))
- #("i4346")))
- (hygiene guile))
- (list #{binding 4383}#)
- #{body 4382}#))
- #{tmp 4379}#)
- (syntax-violation
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 410}# #{p 3742}# '(()))
+ (#{id-var-name 410}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3745" "i3746" "i3747"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3718" "i3716" "i3714"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3712" "i3713"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3708" "i3706" "i3704" "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ '(())))
+ #f)
+ (values '_ #{ids 3744}#)
+ (values
+ 'any
+ (cons (cons #{p 3742}# #{n 3743}#)
+ #{ids 3744}#))))
+ (begin
+ (let ((#{tmp 3754}#
+ ($sc-dispatch #{p 3742}# '(any any))))
+ (if (if #{tmp 3754}#
+ (@apply
+ (lambda (#{x 3757}# #{dots 3758}#)
+ (if (if (if (vector? #{dots 3758}#)
+ (if (= (vector-length
+ #{dots 3758}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 3758}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{dots 3758}# 1))
+ #f)
+ (if (eq? (if (if (vector?
+ #{dots 3758}#)
+ (if (= (vector-length
+ #{dots 3758}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 3758}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{dots 3758}# 1)
+ #{dots 3758}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene
+ guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene
+ guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 410}#
+ #{dots 3758}#
+ '(()))
+ (#{id-var-name 410}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #{tmp 3754}#)
+ #f)
+ (@apply
+ (lambda (#{x 3761}# #{dots 3762}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3719}#
+ #{x 3761}#
+ (#{1+}# #{n 3743}#)
+ #{ids 3744}#))
+ (lambda (#{p 3764}# #{ids 3765}#)
+ (values
+ (if (eq? #{p 3764}# 'any)
+ 'each-any
+ (vector 'each #{p 3764}#))
+ #{ids 3765}#))))
+ #{tmp 3754}#)
+ (begin
+ (let ((#{tmp 3768}#
+ ($sc-dispatch
+ #{p 3742}#
+ '(any any . any))))
+ (if (if #{tmp 3768}#
+ (@apply
+ (lambda (#{x 3772}#
+ #{dots 3773}#
+ #{ys 3774}#)
+ (if (if (if (vector? #{dots 3773}#)
+ (if (= (vector-length
+ #{dots 3773}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 3773}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{dots 3773}#
+ 1))
+ #f)
+ (if (eq? (if (if (vector?
+ #{dots 3773}#)
+ (if (=
(vector-length
+ #{dots
3773}#)
+ 4)
+ (eq? (vector-ref
+ #{dots
3773}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{dots 3773}#
+ 1)
+ #{dots 3773}#)
+ (if (if (=
(vector-length
+
'#(syntax-object
+ ...
+ ((top)
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i2228"))
+
#(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))
+
("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"
+
"i397"
+
"i396"
+
"i394"
+
"i391"
+
"i390"
+
"i389"
+
"i387"
+
"i386"
+
"i384"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
+
"i372"
+
"i370"
+
"i367"
+
"i365"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i355"
+
"i354"
+
"i353"
+
"i351"
+
"i350"
+
"i347"
+
"i345"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i334"
+
"i333"
+
"i331"
+
"i329"
+
"i328"
+
"i325"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
+
"i293"
+
"i291"
+
"i289"
+
"i287"
+
"i285"
+
"i283"
+
"i281"
+
"i279"
+
"i277"
+
"i275"
+
"i273"
+
"i271"
+
"i269"
+
"i267"
+
"i265"
+
"i263"
+
"i261"
+
"i259"
+
"i258"
+
"i255"
+
"i253"
+
"i252"
+
"i251"
+
"i250"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i218"
+
"i216"
+
"i214"
+
"i212"
+
"i210"
+
"i208"
+
"i206"))
+
#(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+
((top)
+
(top)
+
(top))
+
("i44"
+
"i43"
+
"i42")))
+ (hygiene
+
guile)))
+ 4)
+ (eq? (vector-ref
+
'#(syntax-object
+ ...
+ ((top)
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i2228"))
+
#(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))
+
("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"
+
"i397"
+
"i396"
+
"i394"
+
"i391"
+
"i390"
+
"i389"
+
"i387"
+
"i386"
+
"i384"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
+
"i372"
+
"i370"
+
"i367"
+
"i365"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i355"
+
"i354"
+
"i353"
+
"i351"
+
"i350"
+
"i347"
+
"i345"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i334"
+
"i333"
+
"i331"
+
"i329"
+
"i328"
+
"i325"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
+
"i293"
+
"i291"
+
"i289"
+
"i287"
+
"i285"
+
"i283"
+
"i281"
+
"i279"
+
"i277"
+
"i275"
+
"i273"
+
"i271"
+
"i269"
+
"i267"
+
"i265"
+
"i263"
+
"i261"
+
"i259"
+
"i258"
+
"i255"
+
"i253"
+
"i252"
+
"i251"
+
"i250"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i218"
+
"i216"
+
"i214"
+
"i212"
+
"i210"
+
"i208"
+
"i206"))
+
#(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+
((top)
+
(top)
+
(top))
+
("i44"
+
"i43"
+
"i42")))
+ (hygiene
+
guile))
+ 0)
+
'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 410}#
+ #{dots 3773}#
+ '(()))
+ (#{id-var-name 410}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #{tmp 3768}#)
+ #f)
+ (@apply
+ (lambda (#{x 3778}#
+ #{dots 3779}#
+ #{ys 3780}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 3715}#
+ #{ys 3780}#
+ #{n 3743}#
+ #{ids 3744}#))
+ (lambda (#{ys 3781}# #{ids 3782}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3719}#
+ #{x 3778}#
+ (#{1+}# #{n 3743}#)
+ #{ids 3782}#))
+ (lambda (#{x 3785}# #{ids 3786}#)
+ (call-with-values
+ (lambda ()
+ (#{v-reverse 3717}#
+ #{ys 3781}#))
+ (lambda (#{ys 3789}#
+ #{e 3790}#)
+ (values
+ (vector
+ 'each+
+ #{x 3785}#
+ #{ys 3789}#
+ #{e 3790}#)
+ #{ids 3786}#))))))))
+ #{tmp 3768}#)
+ (begin
+ (let ((#{tmp 3794}#
+ ($sc-dispatch
+ #{p 3742}#
+ '(any . any))))
+ (if #{tmp 3794}#
+ (@apply
+ (lambda (#{x 3797}# #{y 3798}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3719}#
+ #{y 3798}#
+ #{n 3743}#
+ #{ids 3744}#))
+ (lambda (#{y 3799}#
+ #{ids 3800}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3719}#
+ #{x 3797}#
+ #{n 3743}#
+ #{ids 3800}#))
+ (lambda (#{x 3803}#
+ #{ids 3804}#)
+ (values
+ (cons #{x 3803}#
+ #{y 3799}#)
+ #{ids 3804}#))))))
+ #{tmp 3794}#)
+ (begin
+ (let ((#{tmp 3807}#
+ ($sc-dispatch
+ #{p 3742}#
+ '())))
+ (if #{tmp 3807}#
+ (@apply
+ (lambda ()
+ (values '() #{ids 3744}#))
+ #{tmp 3807}#)
+ (begin
+ (let ((#{tmp 3808}#
+ ($sc-dispatch
+ #{p 3742}#
+ '#(vector
+ each-any))))
+ (if #{tmp 3808}#
+ (@apply
+ (lambda (#{x 3810}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3719}#
+ #{x 3810}#
+ #{n 3743}#
+ #{ids 3744}#))
+ (lambda (#{p 3812}#
+ #{ids
3813}#)
+ (values
+ (vector
+ 'vector
+ #{p 3812}#)
+ #{ids
3813}#))))
+ #{tmp 3808}#)
+ (values
+ (vector
+ 'atom
+ (#{strip 462}#
+ #{p 3742}#
+ '(())))
+ #{ids
3744}#))))))))))))))))))))
+ (begin (#{cvt 3719}# #{pattern 3710}# 0 '())))))
+ (#{build-dispatch-call 3705}#
+ (lambda (#{pvars 3819}#
+ #{exp 3820}#
+ #{y 3821}#
+ #{r 3822}#
+ #{mod 3823}#)
+ (begin
+ (let ((#{ids 3831}# (map car #{pvars 3819}#)))
+ (begin
+ (map cdr #{pvars 3819}#)
+ (begin
+ (let ((#{labels 3835}#
+ (#{gen-labels 368}# #{ids 3831}#))
+ (#{new-vars 3836}#
+ (map #{gen-var 464}# #{ids 3831}#)))
+ (#{build-application 270}#
+ #f
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'apply)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'apply
+ #f))
+ (list (#{build-simple-lambda 288}#
+ #f
+ (map syntax->datum #{ids 3831}#)
+ #f
+ #{new-vars 3836}#
+ '()
+ (#{chi 436}#
+ #{exp 3820}#
+ (#{extend-env 336}#
+ #{labels 3835}#
+ (map (lambda (#{var 3840}#
+ #{level 3841}#)
+ (cons 'syntax
+ (cons #{var 3840}#
+ #{level 3841}#)))
+ #{new-vars 3836}#
+ (map cdr #{pvars 3819}#))
+ #{r 3822}#)
+ (#{make-binding-wrap 400}#
+ #{ids 3831}#
+ #{labels 3835}#
+ '(()))
+ #{mod 3823}#))
+ #{y 3821}#)))))))))
+ (#{gen-clause 3707}#
+ (lambda (#{x 3847}#
+ #{keys 3848}#
+ #{clauses 3849}#
+ #{r 3850}#
+ #{pat 3851}#
+ #{fender 3852}#
+ #{exp 3853}#
+ #{mod 3854}#)
+ (call-with-values
+ (lambda ()
+ (#{convert-pattern 3703}#
+ #{pat 3851}#
+ #{keys 3848}#))
+ (lambda (#{p 3863}# #{pvars 3864}#)
+ (if (not (#{distinct-bound-ids? 418}#
+ (map car #{pvars 3864}#)))
+ (syntax-violation
+ 'syntax-case
+ "duplicate pattern variable"
+ #{pat 3851}#)
+ (if (not (and-map
+ (lambda (#{x 3871}#)
+ (not (begin
+ (let ((#{x 9163}# (car #{x 3871}#)))
+ (if (if (if (vector? #{x 9163}#)
+ (if (= (vector-length
+ #{x 9163}#)
+ 4)
+ (eq? (vector-ref
+ #{x 9163}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{x 9163}# 1))
+ #f)
+ (if (eq? (if (if (vector?
+ #{x 9163}#)
+ (if (=
(vector-length
+ #{x
9163}#)
+ 4)
+ (eq? (vector-ref
+ #{x 9163}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{x 9163}#
+ 1)
+ #{x 9163}#)
+ (if (if (= (vector-length
+
'#(syntax-object
+ ...
+ ((top)
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i2228"))
+
#(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))
+
("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"
+
"i397"
+
"i396"
+
"i394"
+
"i391"
+
"i390"
+
"i389"
+
"i387"
+
"i386"
+
"i384"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
+
"i372"
+
"i370"
+
"i367"
+
"i365"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i355"
+
"i354"
+
"i353"
+
"i351"
+
"i350"
+
"i347"
+
"i345"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i334"
+
"i333"
+
"i331"
+
"i329"
+
"i328"
+
"i325"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
+
"i293"
+
"i291"
+
"i289"
+
"i287"
+
"i285"
+
"i283"
+
"i281"
+
"i279"
+
"i277"
+
"i275"
+
"i273"
+
"i271"
+
"i269"
+
"i267"
+
"i265"
+
"i263"
+
"i261"
+
"i259"
+
"i258"
+
"i255"
+
"i253"
+
"i252"
+
"i251"
+
"i250"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i218"
+
"i216"
+
"i214"
+
"i212"
+
"i210"
+
"i208"
+
"i206"))
+
#(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+
(top))
+ ("i44"
+ "i43"
+
"i42")))
+ (hygiene
+
guile)))
+ 4)
+ (eq? (vector-ref
+
'#(syntax-object
+ ...
+ ((top)
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i2228"))
+
#(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))
+
("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"
+
"i397"
+
"i396"
+
"i394"
+
"i391"
+
"i390"
+
"i389"
+
"i387"
+
"i386"
+
"i384"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
+
"i372"
+
"i370"
+
"i367"
+
"i365"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i355"
+
"i354"
+
"i353"
+
"i351"
+
"i350"
+
"i347"
+
"i345"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i334"
+
"i333"
+
"i331"
+
"i329"
+
"i328"
+
"i325"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
+
"i293"
+
"i291"
+
"i289"
+
"i287"
+
"i285"
+
"i283"
+
"i281"
+
"i279"
+
"i277"
+
"i275"
+
"i273"
+
"i271"
+
"i269"
+
"i267"
+
"i265"
+
"i263"
+
"i261"
+
"i259"
+
"i258"
+
"i255"
+
"i253"
+
"i252"
+
"i251"
+
"i250"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i218"
+
"i216"
+
"i214"
+
"i212"
+
"i210"
+
"i208"
+
"i206"))
+
#(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+
(top))
+ ("i44"
+ "i43"
+
"i42")))
+ (hygiene
+ guile))
+ 0)
+
'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 410}#
+ #{x 9163}#
+ '(()))
+ (#{id-var-name 410}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f)))))
+ #{pvars 3864}#))
+ (syntax-violation
+ 'syntax-case
+ "misplaced ellipsis"
+ #{pat 3851}#)
+ (begin
+ (let ((#{y 3875}#
+ (gensym
+ (string-append (symbol->string 'tmp) " "))))
+ (begin
+ (let ((#{fun-exp 9203}#
+ (begin
+ (let ((#{req 9208}# (list 'tmp))
+ (#{vars 9210}# (list #{y 3875}#))
+ (#{exp 9212}#
+ (begin
+ (let ((#{y 3879}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 3)
+ #f
+ 'tmp
+ #{y 3875}#)))
+ (begin
+ (let ((#{test-exp 9227}#
+ (begin
+ (let ((#{tmp
3883}#
+
($sc-dispatch
+
#{fender 3852}#
+
'#(atom
+
#t))))
+ (if #{tmp
3883}#
+ (@apply
+ (lambda ()
+ #{y
3879}#)
+ #{tmp
3883}#)
+ (begin
+ (let
((#{then-exp 9234}#
+
(#{build-dispatch-call 3705}#
+
#{pvars 3864}#
+
#{fender 3852}#
+
#{y 3879}#
+
#{r 3850}#
+
#{mod 3854}#))
+
(#{else-exp 9235}#
+
(make-struct/no-tail
+
(vector-ref
+
%expanded-vtables
+
1)
+
#f
+
#f)))
+
(make-struct/no-tail
+
(vector-ref
+
%expanded-vtables
+ 10)
+ #f
+ #{y
3879}#
+
#{then-exp 9234}#
+
#{else-exp 9235}#)))))))
+ (#{then-exp 9228}#
+
(#{build-dispatch-call 3705}#
+ #{pvars 3864}#
+ #{exp 3853}#
+ #{y 3879}#
+ #{r 3850}#
+ #{mod 3854}#))
+ (#{else-exp 9229}#
+
(#{gen-syntax-case 3709}#
+ #{x 3847}#
+ #{keys 3848}#
+ #{clauses 3849}#
+ #{r 3850}#
+ #{mod 3854}#)))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 10)
+ #f
+ #{test-exp 9227}#
+ #{then-exp 9228}#
+ #{else-exp
9229}#)))))))
+ (begin
+ (let ((#{body 9260}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 14)
+ #f
+ #{req 9208}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 9210}#
+ #{exp 9212}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 13)
+ #f
+ '()
+ #{body 9260}#))))))
+ (#{arg-exps 9204}#
+ (list (if (eq? #{p 3863}# 'any)
+ (begin
+ (let ((#{fun-exp 9275}#
+ (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 9276}#
+ (list #{x 3847}#)))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 11)
+ #f
+ #{fun-exp 9275}#
+ #{arg-exps 9276}#)))
+ (begin
+ (let ((#{fun-exp 9298}#
+ (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 9299}#
+ (list #{x 3847}#
+
(make-struct/no-tail
+ (vector-ref
+
%expanded-vtables
+ 1)
+ #f
+ #{p 3863}#))))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 11)
+ #f
+ #{fun-exp 9298}#
+ #{arg-exps 9299}#)))))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
#f
- "source expression failed to match any
pattern"
- #{tmp 4378}#))))))))
- (begin
- (#{f 4372}# (map list #{x 4366}# #{v 4367}#)))))
- #{tmp 4348}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4347}#)))))))
-
-(define do
- (make-syntax-transformer
- 'do
- 'macro
- (lambda (#{orig-x 4384}#)
- (let ((#{tmp 4386}# #{orig-x 4384}#))
- (let ((#{tmp 4387}#
- ($sc-dispatch
- #{tmp 4386}#
- '(_ #(each (any any . any))
- (any . each-any)
- .
- each-any))))
- (if #{tmp 4387}#
- (@apply
- (lambda (#{var 4394}#
- #{init 4395}#
- #{step 4396}#
- #{e0 4397}#
- #{e1 4398}#
- #{c 4399}#)
- (let ((#{tmp 4401}#
- (map (lambda (#{v 4422}# #{s 4423}#)
- (let ((#{tmp 4426}# #{s 4423}#))
- (let ((#{tmp 4427}#
- ($sc-dispatch #{tmp 4426}# '())))
- (if #{tmp 4427}#
- (@apply
- (lambda () #{v 4422}#)
- #{tmp 4427}#)
- (let ((#{tmp 4428}#
- ($sc-dispatch
- #{tmp 4426}#
- '(any))))
- (if #{tmp 4428}#
- (@apply
- (lambda (#{e 4430}#) #{e 4430}#)
- #{tmp 4428}#)
- (let ((#{_ 4432}# #{tmp 4426}#))
- (syntax-violation
- 'do
- "bad step expression"
- #{orig-x 4384}#
- #{s 4423}#))))))))
- #{var 4394}#
- #{step 4396}#)))
- (let ((#{tmp 4402}#
- ($sc-dispatch #{tmp 4401}# 'each-any)))
- (if #{tmp 4402}#
- (@apply
- (lambda (#{step 4404}#)
- (let ((#{tmp 4405}# #{e1 4398}#))
- (let ((#{tmp 4406}#
- ($sc-dispatch #{tmp 4405}# '())))
- (if #{tmp 4406}#
- (@apply
- (lambda ()
- (list '#(syntax-object
- let
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(step)
- #((top))
- #("i4403"))
- #(ribcage
- #(var init step e0 e1 c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage () () ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
- (hygiene guile))
- '#(syntax-object
- doloop
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(step)
- #((top))
- #("i4403"))
- #(ribcage
- #(var init step e0 e1 c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage () () ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
- (hygiene guile))
- (map list #{var 4394}# #{init 4395}#)
- (list '#(syntax-object
- if
+ #{fun-exp 9203}#
+ #{arg-exps 9204}#)))))))))))
+ (#{gen-syntax-case 3709}#
+ (lambda (#{x 3893}#
+ #{keys 3894}#
+ #{clauses 3895}#
+ #{r 3896}#
+ #{mod 3897}#)
+ (if (null? #{clauses 3895}#)
+ (begin
+ (let ((#{fun-exp 9334}#
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'syntax-violation)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'syntax-violation
+ #f)))
+ (#{arg-exps 9335}#
+ (list (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #f)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ "source expression failed to match any
pattern")
+ #{x 3893}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 9334}#
+ #{arg-exps 9335}#)))
+ (begin
+ (let ((#{tmp 3907}# (car #{clauses 3895}#)))
+ (begin
+ (let ((#{tmp 3908}#
+ ($sc-dispatch #{tmp 3907}# '(any any))))
+ (if #{tmp 3908}#
+ (@apply
+ (lambda (#{pat 3911}# #{exp 3912}#)
+ (if (if (if (symbol? #{pat 3911}#)
+ #t
+ (if (if (vector? #{pat 3911}#)
+ (if (= (vector-length
+ #{pat 3911}#)
+ 4)
+ (eq? (vector-ref
+ #{pat 3911}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{pat 3911}# 1))
+ #f))
+ (and-map
+ (lambda (#{x 3915}#)
+ (not (if (eq? (if (if (vector?
+ #{pat 3911}#)
+ (if (=
(vector-length
+ #{pat
3911}#)
+ 4)
+ (eq? (vector-ref
+ #{pat
3911}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{pat 3911}#
+ 1)
+ #{pat 3911}#)
+ (if (if (vector?
+ #{x 3915}#)
+ (if (=
(vector-length
+ #{x
3915}#)
+ 4)
+ (eq? (vector-ref
+ #{x
3915}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{x 3915}#
+ 1)
+ #{x 3915}#))
+ (eq? (#{id-var-name 410}#
+ #{pat 3911}#
+ '(()))
+ (#{id-var-name 410}#
+ #{x 3915}#
+ '(())))
+ #f)))
+ (cons '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3909" "i3910"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ #{keys 3894}#))
+ #f)
+ (if (if (eq? (if (if (= (vector-length
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3909"
+ "i3910"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+
(gen-syntax-case
+ gen-clause
+
build-dispatch-call
+
convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3909"
+ "i3910"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+
(gen-syntax-case
+ gen-clause
+
build-dispatch-call
+
convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3909" "i3910"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3909" "i3910"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile)))
+ (if (if (= (vector-length
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3909"
+ "i3910"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+
(gen-syntax-case
+ gen-clause
+
build-dispatch-call
+
convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3909"
+ "i3910"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+
(gen-syntax-case
+ gen-clause
+
build-dispatch-call
+
convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3909" "i3910"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ _
((top)
- #(ribcage () () ())
#(ribcage
- #(step)
- #((top))
- #("i4403"))
+ #(pat exp)
+ #((top) (top))
+ #("i3909" "i3910"))
+ #(ribcage () () ())
#(ribcage
- #(var init step e0 e1 c)
+ #(x keys clauses r mod)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage () () ())
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
#(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
- (hygiene guile))
- (list '#(syntax-object
- not
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(step)
- #((top))
- #("i4403"))
- #(ribcage
- #(var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage () () ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
- (hygiene guile))
- #{e0 4397}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(step)
- #((top))
- #("i4403"))
- #(ribcage
- #(var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage () () ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
- (hygiene guile))
- (append
- #{c 4399}#
- (list (cons
'#(syntax-object
- doloop
- ((top)
-
#(ribcage
- ()
- ()
- ())
-
#(ribcage
-
#(step)
-
#((top))
-
#("i4403"))
-
#(ribcage
- #(var
-
init
-
step
- e0
- e1
- c)
-
#((top)
-
(top)
-
(top)
-
(top)
-
(top)
-
(top))
-
#("i4388"
-
"i4389"
-
"i4390"
-
"i4391"
-
"i4392"
-
"i4393"))
-
#(ribcage
- ()
- ()
- ())
-
#(ribcage
-
#(orig-x)
-
#((top))
-
#("i4385")))
- (hygiene
-
guile))
- #{step
4404}#)))))))
- #{tmp 4406}#)
- (let ((#{tmp 4411}#
- ($sc-dispatch
- #{tmp 4405}#
- '(any . each-any))))
- (if #{tmp 4411}#
- (@apply
- (lambda (#{e1 4414}# #{e2 4415}#)
- (list '#(syntax-object
- let
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 410}#
+ '#(syntax-object
+ pad
((top)
#(ribcage
- #(e1 e2)
+ #(pat exp)
#((top) (top))
- #("i4412" "i4413"))
+ #("i3909" "i3910"))
#(ribcage () () ())
#(ribcage
- #(step)
- #((top))
- #("i4403"))
- #(ribcage
- #(var init step e0 e1 c)
+ #(x keys clauses r mod)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage () () ())
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
#(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
(hygiene guile))
+ '(()))
+ (#{id-var-name 410}#
'#(syntax-object
- doloop
+ _
((top)
#(ribcage
- #(e1 e2)
+ #(pat exp)
#((top) (top))
- #("i4412" "i4413"))
+ #("i3909" "i3910"))
#(ribcage () () ())
#(ribcage
- #(step)
- #((top))
- #("i4403"))
- #(ribcage
- #(var init step e0 e1 c)
+ #(x keys clauses r mod)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage () () ())
+ #("i3898"
+ "i3899"
+ "i3900"
+ "i3901"
+ "i3902"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3708"
+ "i3706"
+ "i3704"
+ "i3702"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
#(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44" "i43" "i42")))
(hygiene guile))
- (map list
- #{var 4394}#
- #{init 4395}#)
- (list '#(syntax-object
- if
- ((top)
- #(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4412" "i4413"))
- #(ribcage () () ())
- #(ribcage
- #(step)
- #((top))
- #("i4403"))
- #(ribcage
- #(var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage () () ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
- (hygiene guile))
- #{e0 4397}#
- (cons '#(syntax-object
- begin
+ '(())))
+ #f)
+ (#{chi 436}#
+ #{exp 3912}#
+ #{r 3896}#
+ '(())
+ #{mod 3897}#)
+ (begin
+ (let ((#{labels 3920}#
+ (list (symbol->string
+ (gensym "i"))))
+ (#{var 3921}#
+ (begin
+ (let ((#{id 9472}#
+ (if (if (vector?
+ #{pat 3911}#)
+ (if (=
(vector-length
+ #{pat
3911}#)
+ 4)
+ (eq? (vector-ref
+ #{pat
3911}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{pat 3911}#
+ 1)
+ #{pat 3911}#)))
+ (gensym
+ (string-append
+ (symbol->string
+ #{id 9472}#)
+ " "))))))
+ (#{build-application 270}#
+ #f
+ (#{build-simple-lambda 288}#
+ #f
+ (list (syntax->datum #{pat 3911}#))
+ #f
+ (list #{var 3921}#)
+ '()
+ (#{chi 436}#
+ #{exp 3912}#
+ (#{extend-env 336}#
+ #{labels 3920}#
+ (list (cons 'syntax
+ (cons #{var 3921}#
+ 0)))
+ #{r 3896}#)
+ (#{make-binding-wrap 400}#
+ (list #{pat 3911}#)
+ #{labels 3920}#
+ '(()))
+ #{mod 3897}#))
+ (list #{x 3893}#)))))
+ (#{gen-clause 3707}#
+ #{x 3893}#
+ #{keys 3894}#
+ (cdr #{clauses 3895}#)
+ #{r 3896}#
+ #{pat 3911}#
+ #t
+ #{exp 3912}#
+ #{mod 3897}#)))
+ #{tmp 3908}#)
+ (begin
+ (let ((#{tmp 3927}#
+ ($sc-dispatch
+ #{tmp 3907}#
+ '(any any any))))
+ (if #{tmp 3927}#
+ (@apply
+ (lambda (#{pat 3931}#
+ #{fender 3932}#
+ #{exp 3933}#)
+ (#{gen-clause 3707}#
+ #{x 3893}#
+ #{keys 3894}#
+ (cdr #{clauses 3895}#)
+ #{r 3896}#
+ #{pat 3931}#
+ #{fender 3932}#
+ #{exp 3933}#
+ #{mod 3897}#))
+ #{tmp 3927}#)
+ (syntax-violation
+ 'syntax-case
+ "invalid clause"
+ (car #{clauses 3895}#))))))))))))))
+ (begin
+ (lambda (#{e 3936}#
+ #{r 3937}#
+ #{w 3938}#
+ #{s 3939}#
+ #{mod 3940}#)
+ (begin
+ (let ((#{e 3947}#
+ (#{wrap 422}#
+ (begin
+ (if (if (pair? #{e 3936}#) #{s 3939}# #f)
+ (set-source-properties! #{e 3936}# #{s 3939}#))
+ #{e 3936}#)
+ #{w 3938}#
+ #{mod 3940}#)))
+ (begin
+ (let ((#{tmp 3949}#
+ ($sc-dispatch
+ #{e 3947}#
+ '(_ any each-any . each-any))))
+ (if #{tmp 3949}#
+ (@apply
+ (lambda (#{val 3953}# #{key 3954}# #{m 3955}#)
+ (if (and-map
+ (lambda (#{x 3956}#)
+ (if (if (symbol? #{x 3956}#)
+ #t
+ (if (if (vector? #{x 3956}#)
+ (if (= (vector-length
+ #{x 3956}#)
+ 4)
+ (eq? (vector-ref
+ #{x 3956}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 3956}# 1))
+ #f))
+ (not (if (if (if (vector? #{x 3956}#)
+ (if (= (vector-length
+ #{x 3956}#)
+ 4)
+ (eq? (vector-ref
+ #{x 3956}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{x 3956}# 1))
+ #f)
+ (if (eq? (if (if (vector?
+ #{x 3956}#)
+ (if (=
(vector-length
+ #{x
3956}#)
+ 4)
+ (eq? (vector-ref
+ #{x 3956}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{x 3956}#
+ 1)
+ #{x 3956}#)
+ (if (if (= (vector-length
+
'#(syntax-object
+ ...
+ ((top)
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i2228"))
+
#(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))
+
("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"
+
"i397"
+
"i396"
+
"i394"
+
"i391"
+
"i390"
+
"i389"
+
"i387"
+
"i386"
+
"i384"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
+
"i372"
+
"i370"
+
"i367"
+
"i365"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i355"
+
"i354"
+
"i353"
+
"i351"
+
"i350"
+
"i347"
+
"i345"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i334"
+
"i333"
+
"i331"
+
"i329"
+
"i328"
+
"i325"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
+
"i293"
+
"i291"
+
"i289"
+
"i287"
+
"i285"
+
"i283"
+
"i281"
+
"i279"
+
"i277"
+
"i275"
+
"i273"
+
"i271"
+
"i269"
+
"i267"
+
"i265"
+
"i263"
+
"i261"
+
"i259"
+
"i258"
+
"i255"
+
"i253"
+
"i252"
+
"i251"
+
"i250"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i218"
+
"i216"
+
"i214"
+
"i212"
+
"i210"
+
"i208"
+
"i206"))
+
#(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+
(top))
+ ("i44"
+ "i43"
+
"i42")))
+ (hygiene
+
guile)))
+ 4)
+ (eq? (vector-ref
+
'#(syntax-object
+ ...
+ ((top)
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i2228"))
+
#(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))
+
("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"
+
"i397"
+
"i396"
+
"i394"
+
"i391"
+
"i390"
+
"i389"
+
"i387"
+
"i386"
+
"i384"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
+
"i372"
+
"i370"
+
"i367"
+
"i365"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i355"
+
"i354"
+
"i353"
+
"i351"
+
"i350"
+
"i347"
+
"i345"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i334"
+
"i333"
+
"i331"
+
"i329"
+
"i328"
+
"i325"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
+
"i293"
+
"i291"
+
"i289"
+
"i287"
+
"i285"
+
"i283"
+
"i281"
+
"i279"
+
"i277"
+
"i275"
+
"i273"
+
"i271"
+
"i269"
+
"i267"
+
"i265"
+
"i263"
+
"i261"
+
"i259"
+
"i258"
+
"i255"
+
"i253"
+
"i252"
+
"i251"
+
"i250"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i218"
+
"i216"
+
"i214"
+
"i212"
+
"i210"
+
"i208"
+
"i206"))
+
#(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+
(top))
+ ("i44"
+ "i43"
+
"i42")))
+ (hygiene
+ guile))
+ 0)
+
'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ ...
((top)
#(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4412"
- "i4413"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(step)
- #((top))
- #("i4403"))
- #(ribcage
- #(var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
- #(ribcage
()
()
())
#(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
- (hygiene guile))
- (cons #{e1 4414}#
- #{e2 4415}#))
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4412"
- "i4413"))
- #(ribcage
()
()
())
#(ribcage
- #(step)
+ #(x)
#((top))
- #("i4403"))
- #(ribcage
- #(var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4388"
- "i4389"
- "i4390"
- "i4391"
- "i4392"
- "i4393"))
+ #("i2228"))
#(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
#(ribcage
- #(orig-x)
- #((top))
- #("i4385")))
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
(hygiene guile))
- (append
- #{c 4399}#
- (list (cons
'#(syntax-object
-
doloop
-
((top)
-
#(ribcage
-
#(e1
-
e2)
-
#((top)
-
(top))
-
#("i4412"
-
"i4413"))
-
#(ribcage
-
()
-
()
-
())
-
#(ribcage
-
#(step)
-
#((top))
-
#("i4403"))
-
#(ribcage
-
#(var
-
init
-
step
-
e0
-
e1
-
c)
-
#((top)
-
(top)
-
(top)
-
(top)
-
(top)
-
(top))
-
#("i4388"
-
"i4389"
-
"i4390"
-
"i4391"
-
"i4392"
-
"i4393"))
-
#(ribcage
-
()
-
()
-
())
-
#(ribcage
-
#(orig-x)
-
#((top))
-
#("i4385")))
-
(hygiene
-
guile))
- #{step
4404}#)))))))
- #{tmp 4411}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{tmp 4405}#)))))))
- #{tmp 4402}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4401}#)))))
- #{tmp 4387}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4386}#)))))))
-
-(define quasiquote
- (make-syntax-transformer
- 'quasiquote
- 'macro
- (letrec*
- ((#{quasi 4436}#
- (lambda (#{p 4449}# #{lev 4450}#)
- (let ((#{tmp 4453}# #{p 4449}#))
- (let ((#{tmp 4454}#
- ($sc-dispatch
- #{tmp 4453}#
- '(#(free-id
- #(syntax-object
- unquote
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- any))))
- (if #{tmp 4454}#
- (@apply
- (lambda (#{p 4456}#)
- (if (= #{lev 4450}# 0)
- (list '#(syntax-object
- "value"
- ((top)
- #(ribcage #(p) #((top)) #("i4455"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{p 4456}#)
- (#{quasicons 4440}#
- '(#(syntax-object
- "quote"
- ((top)
- #(ribcage #(p) #((top)) #("i4455"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #(syntax-object
- unquote
- ((top)
- #(ribcage #(p) #((top)) #("i4455"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- (#{quasi 4436}#
- (list #{p 4456}#)
- (#{1-}# #{lev 4450}#)))))
- #{tmp 4454}#)
- (let ((#{tmp 4457}#
- ($sc-dispatch
- #{tmp 4453}#
- '(#(free-id
- #(syntax-object
- quasiquote
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- any))))
- (if #{tmp 4457}#
- (@apply
- (lambda (#{p 4459}#)
- (#{quasicons 4440}#
- '(#(syntax-object
- "quote"
- ((top)
- #(ribcage #(p) #((top)) #("i4458"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #(syntax-object
- quasiquote
- ((top)
- #(ribcage #(p) #((top)) #("i4458"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- (#{quasi 4436}#
- (list #{p 4459}#)
- (#{1+}# #{lev 4450}#))))
- #{tmp 4457}#)
- (let ((#{tmp 4460}#
- ($sc-dispatch #{tmp 4453}# '(any . any))))
- (if #{tmp 4460}#
- (@apply
- (lambda (#{p 4463}# #{q 4464}#)
- (let ((#{tmp 4465}# #{p 4463}#))
- (let ((#{tmp 4466}#
- ($sc-dispatch
- #{tmp 4465}#
- '(#(free-id
- #(syntax-object
- unquote
- ((top)
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4461" "i4462"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- .
- each-any))))
- (if #{tmp 4466}#
- (@apply
- (lambda (#{p 4468}#)
- (if (= #{lev 4450}# 0)
- (#{quasilist* 4444}#
- (map (lambda (#{tmp 4469}#)
- (list '#(syntax-object
- "value"
+ 1)
+ '#(syntax-object
+ ...
((top)
- #(ribcage
- #(p)
- #((top))
- #("i4467"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4461"
- "i4462"))
+ #(ribcage () () ())
#(ribcage () () ())
#(ribcage
- #(p lev)
- #((top) (top))
- #("i4451"
- "i4452"))
+ #(x)
+ #((top))
+ #("i2228"))
#(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
+ (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))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{tmp 4469}#))
- #{p 4468}#)
- (#{quasi 4436}#
- #{q 4464}#
- #{lev 4450}#))
- (#{quasicons 4440}#
- (#{quasicons 4440}#
- '(#(syntax-object
- "quote"
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4467"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4461" "i4462"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #(syntax-object
- unquote
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4467"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4461" "i4462"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- (#{quasi 4436}#
- #{p 4468}#
- (#{1-}# #{lev 4450}#)))
- (#{quasi 4436}#
- #{q 4464}#
- #{lev 4450}#))))
- #{tmp 4466}#)
- (let ((#{tmp 4471}#
- ($sc-dispatch
- #{tmp 4465}#
- '(#(free-id
- #(syntax-object
- unquote-splicing
- ((top)
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4461" "i4462"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- .
- each-any))))
- (if #{tmp 4471}#
- (@apply
- (lambda (#{p 4473}#)
- (if (= #{lev 4450}# 0)
- (#{quasiappend 4442}#
- (map (lambda (#{tmp 4474}#)
- (list '#(syntax-object
- "value"
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4472"))
- #(ribcage
- #(p q)
- #((top)
- (top))
- #("i4461"
- "i4462"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(p lev)
- #((top)
- (top))
- #("i4451"
- "i4452"))
- #(ribcage
- (emit
quasivector
-
quasilist*
-
quasiappend
-
quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{tmp 4474}#))
- #{p 4473}#)
- (#{quasi 4436}#
- #{q 4464}#
- #{lev 4450}#))
- (#{quasicons 4440}#
- (#{quasicons 4440}#
- '(#(syntax-object
- "quote"
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4472"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4461" "i4462"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #(syntax-object
- unquote-splicing
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4472"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4461" "i4462"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- (#{quasi 4436}#
- #{p 4473}#
- (#{1-}# #{lev 4450}#)))
- (#{quasi 4436}#
- #{q 4464}#
- #{lev 4450}#))))
- #{tmp 4471}#)
- (let ((#{_ 4477}# #{tmp 4465}#))
- (#{quasicons 4440}#
- (#{quasi 4436}#
- #{p 4463}#
- #{lev 4450}#)
- (#{quasi 4436}#
- #{q 4464}#
- #{lev 4450}#)))))))))
- #{tmp 4460}#)
- (let ((#{tmp 4478}#
- ($sc-dispatch
- #{tmp 4453}#
- '#(vector each-any))))
- (if #{tmp 4478}#
- (@apply
- (lambda (#{x 4480}#)
- (#{quasivector 4446}#
- (#{vquasi 4438}# #{x 4480}# #{lev 4450}#)))
- #{tmp 4478}#)
- (let ((#{p 4483}# #{tmp 4453}#))
- (list '#(syntax-object
- "quote"
- ((top)
- #(ribcage #(p) #((top)) #("i4482"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4451" "i4452"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 410}#
+ #{x 3956}#
+ '(()))
+ (#{id-var-name 410}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2228"))
+ #(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))
+ ("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"
+ "i397"
+ "i396"
+ "i394"
+ "i391"
+ "i390"
+ "i389"
+ "i387"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i367"
+ "i365"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i355"
+ "i354"
+ "i353"
+ "i351"
+ "i350"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i334"
+ "i333"
+ "i331"
+ "i329"
+ "i328"
+ "i325"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i258"
+ "i255"
+ "i253"
+ "i252"
+ "i251"
+ "i250"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i44"
+ "i43"
+ "i42")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #f))
+ #{key 3954}#)
+ (begin
+ (let ((#{x 3962}#
+ (gensym
+ (string-append
+ (symbol->string 'tmp)
+ " "))))
+ (#{build-application 270}#
+ #{s 3939}#
+ (begin
+ (let ((#{req 9846}# (list 'tmp))
+ (#{vars 9848}# (list #{x 3962}#))
+ (#{exp 9850}#
+ (#{gen-syntax-case 3709}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 3)
+ #f
+ 'tmp
+ #{x 3962}#)
+ #{key 3954}#
+ #{m 3955}#
+ #{r 3937}#
+ #{mod 3940}#)))
+ (begin
+ (let ((#{body 9867}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 14)
+ #f
+ #{req 9846}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 9848}#
+ #{exp 9850}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ #{body 9867}#)))))
+ (list (#{chi 436}#
+ #{val 3953}#
+ #{r 3937}#
+ '(())
+ #{mod 3940}#)))))
+ (syntax-violation
+ 'syntax-case
+ "invalid literals list"
+ #{e 3947}#)))
+ #{tmp 3949}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 3947}#))))))))))
+ (set! macroexpand
+ (lambda*
+ (#{x 3968}#
+ #:optional
+ (#{m 3970}# 'e)
+ (#{esew 3972}# '(eval)))
+ (#{chi-top-sequence 428}#
+ (list #{x 3968}#)
+ '()
+ '((top))
+ #f
+ #{m 3970}#
+ #{esew 3972}#
+ (cons 'hygiene (module-name (current-module))))))
+ (set! identifier?
+ (lambda (#{x 3976}#)
+ (if (if (vector? #{x 3976}#)
+ (if (= (vector-length #{x 3976}#) 4)
+ (eq? (vector-ref #{x 3976}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 3976}# 1))
+ #f)))
+ (set! datum->syntax
+ (lambda (#{id 3978}# #{datum 3979}#)
+ (begin
+ (let ((#{wrap 9941}# (vector-ref #{id 3978}# 2))
+ (#{module 9942}# (vector-ref #{id 3978}# 3)))
+ (vector
+ 'syntax-object
+ #{datum 3979}#
+ #{wrap 9941}#
+ #{module 9942}#)))))
+ (set! syntax->datum
+ (lambda (#{x 3982}#)
+ (#{strip 462}# #{x 3982}# '(()))))
+ (set! syntax-source
+ (lambda (#{x 3985}#)
+ (#{source-annotation 326}# #{x 3985}#)))
+ (set! generate-temporaries
+ (lambda (#{ls 3987}#)
+ (begin
+ (if (not (list? #{ls 3987}#))
+ (syntax-violation
+ 'generate-temporaries
+ "invalid argument"
+ #{ls 3987}#))
+ (begin
+ (let ((#{mod 3993}#
+ (cons 'hygiene (module-name (current-module)))))
+ (map (lambda (#{x 3994}#)
+ (#{wrap 422}# (gensym) '((top)) #{mod 3993}#))
+ #{ls 3987}#))))))
+ (set! free-identifier=?
+ (lambda (#{x 3998}# #{y 3999}#)
+ (begin
+ (if (not (if (if (vector? #{x 3998}#)
+ (if (= (vector-length #{x 3998}#) 4)
+ (eq? (vector-ref #{x 3998}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 3998}# 1))
+ #f))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ #{x 3998}#))
+ (if (not (if (if (vector? #{y 3999}#)
+ (if (= (vector-length #{y 3999}#) 4)
+ (eq? (vector-ref #{y 3999}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{y 3999}# 1))
+ #f))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ #{y 3999}#))
+ (if (eq? (if (if (vector? #{x 3998}#)
+ (if (= (vector-length #{x 3998}#) 4)
+ (eq? (vector-ref #{x 3998}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 3998}# 1)
+ #{x 3998}#)
+ (if (if (vector? #{y 3999}#)
+ (if (= (vector-length #{y 3999}#) 4)
+ (eq? (vector-ref #{y 3999}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{y 3999}# 1)
+ #{y 3999}#))
+ (eq? (#{id-var-name 410}# #{x 3998}# '(()))
+ (#{id-var-name 410}# #{y 3999}# '(())))
+ #f))))
+ (set! bound-identifier=?
+ (lambda (#{x 4008}# #{y 4009}#)
+ (begin
+ (if (not (if (if (vector? #{x 4008}#)
+ (if (= (vector-length #{x 4008}#) 4)
+ (eq? (vector-ref #{x 4008}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 4008}# 1))
+ #f))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ #{x 4008}#))
+ (if (not (if (if (vector? #{y 4009}#)
+ (if (= (vector-length #{y 4009}#) 4)
+ (eq? (vector-ref #{y 4009}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{y 4009}# 1))
+ #f))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ #{y 4009}#))
+ (if (if (if (vector? #{x 4008}#)
+ (if (= (vector-length #{x 4008}#) 4)
+ (eq? (vector-ref #{x 4008}# 0) 'syntax-object)
+ #f)
+ #f)
+ (if (vector? #{y 4009}#)
+ (if (= (vector-length #{y 4009}#) 4)
+ (eq? (vector-ref #{y 4009}# 0) 'syntax-object)
+ #f)
+ #f)
+ #f)
+ (if (eq? (vector-ref #{x 4008}# 1)
+ (vector-ref #{y 4009}# 1))
+ (#{same-marks? 408}#
+ (car (vector-ref #{x 4008}# 2))
+ (car (vector-ref #{y 4009}# 2)))
+ #f)
+ (eq? #{x 4008}# #{y 4009}#)))))
+ (set! syntax-violation
+ (lambda*
+ (#{who 4018}#
+ #{message 4019}#
+ #{form 4020}#
+ #:optional
+ (#{subform 4024}# #f))
+ (begin
+ (if (not (if (not #{who 4018}#)
+ (not #{who 4018}#)
+ (begin
+ (let ((#{t 4036}# (string? #{who 4018}#)))
+ (if #{t 4036}#
+ #{t 4036}#
+ (symbol? #{who 4018}#))))))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ #{who 4018}#))
+ (if (not (string? #{message 4019}#))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ #{message 4019}#))
+ (throw 'syntax-error
+ #{who 4018}#
+ #{message 4019}#
+ (#{source-annotation 326}#
+ (if #{form 4020}# #{form 4020}# #{subform 4024}#))
+ (#{strip 462}# #{form 4020}# '(()))
+ (if #{subform 4024}#
+ (#{strip 462}# #{subform 4024}# '(()))
+ #f)))))
+ (letrec*
+ ((#{match-each 4050}#
+ (lambda (#{e 4063}# #{p 4064}# #{w 4065}# #{mod 4066}#)
+ (if (pair? #{e 4063}#)
+ (begin
+ (let ((#{first 4074}#
+ (#{match 4062}#
+ (car #{e 4063}#)
+ #{p 4064}#
+ #{w 4065}#
+ '()
+ #{mod 4066}#)))
+ (if #{first 4074}#
+ (begin
+ (let ((#{rest 4078}#
+ (#{match-each 4050}#
+ (cdr #{e 4063}#)
+ #{p 4064}#
+ #{w 4065}#
+ #{mod 4066}#)))
+ (if #{rest 4078}#
+ (cons #{first 4074}# #{rest 4078}#)
+ #f)))
+ #f)))
+ (if (null? #{e 4063}#)
+ '()
+ (if (if (vector? #{e 4063}#)
+ (if (= (vector-length #{e 4063}#) 4)
+ (eq? (vector-ref #{e 4063}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{match-each 4050}#
+ (vector-ref #{e 4063}# 1)
+ #{p 4064}#
+ (#{join-wraps 404}#
+ #{w 4065}#
+ (vector-ref #{e 4063}# 2))
+ (vector-ref #{e 4063}# 3))
+ #f)))))
+ (#{match-each+ 4052}#
+ (lambda (#{e 4086}#
+ #{x-pat 4087}#
+ #{y-pat 4088}#
+ #{z-pat 4089}#
+ #{w 4090}#
+ #{r 4091}#
+ #{mod 4092}#)
+ (letrec*
+ ((#{f 4103}#
+ (lambda (#{e 4104}# #{w 4105}#)
+ (if (pair? #{e 4104}#)
+ (call-with-values
+ (lambda ()
+ (#{f 4103}# (cdr #{e 4104}#) #{w 4105}#))
+ (lambda (#{xr* 4108}# #{y-pat 4109}# #{r 4110}#)
+ (if #{r 4110}#
+ (if (null? #{y-pat 4109}#)
+ (begin
+ (let ((#{xr 4115}#
+ (#{match 4062}#
+ (car #{e 4104}#)
+ #{x-pat 4087}#
+ #{w 4105}#
+ '()
+ #{mod 4092}#)))
+ (if #{xr 4115}#
+ (values
+ (cons #{xr 4115}# #{xr* 4108}#)
+ #{y-pat 4109}#
+ #{r 4110}#)
+ (values #f #f #f))))
+ (values
+ '()
+ (cdr #{y-pat 4109}#)
+ (#{match 4062}#
+ (car #{e 4104}#)
+ (car #{y-pat 4109}#)
+ #{w 4105}#
+ #{r 4110}#
+ #{mod 4092}#)))
+ (values #f #f #f))))
+ (if (if (vector? #{e 4104}#)
+ (if (= (vector-length #{e 4104}#) 4)
+ (eq? (vector-ref #{e 4104}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{f 4103}#
+ (vector-ref #{e 4104}# 1)
+ (#{join-wraps 404}# #{w 4105}# #{e 4104}#))
+ (values
+ '()
+ #{y-pat 4088}#
+ (#{match 4062}#
+ #{e 4104}#
+ #{z-pat 4089}#
+ #{w 4105}#
+ #{r 4091}#
+ #{mod 4092}#)))))))
+ (begin (#{f 4103}# #{e 4086}# #{w 4090}#)))))
+ (#{match-each-any 4054}#
+ (lambda (#{e 4119}# #{w 4120}# #{mod 4121}#)
+ (if (pair? #{e 4119}#)
+ (begin
+ (let ((#{l 4128}#
+ (#{match-each-any 4054}#
+ (cdr #{e 4119}#)
+ #{w 4120}#
+ #{mod 4121}#)))
+ (if #{l 4128}#
+ (cons (#{wrap 422}#
+ (car #{e 4119}#)
+ #{w 4120}#
+ #{mod 4121}#)
+ #{l 4128}#)
+ #f)))
+ (if (null? #{e 4119}#)
+ '()
+ (if (if (vector? #{e 4119}#)
+ (if (= (vector-length #{e 4119}#) 4)
+ (eq? (vector-ref #{e 4119}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{match-each-any 4054}#
+ (vector-ref #{e 4119}# 1)
+ (#{join-wraps 404}#
+ #{w 4120}#
+ (vector-ref #{e 4119}# 2))
+ #{mod 4121}#)
+ #f)))))
+ (#{match-empty 4056}#
+ (lambda (#{p 4136}# #{r 4137}#)
+ (if (null? #{p 4136}#)
+ #{r 4137}#
+ (if (eq? #{p 4136}# '_)
+ #{r 4137}#
+ (if (eq? #{p 4136}# 'any)
+ (cons '() #{r 4137}#)
+ (if (pair? #{p 4136}#)
+ (#{match-empty 4056}#
+ (car #{p 4136}#)
+ (#{match-empty 4056}#
+ (cdr #{p 4136}#)
+ #{r 4137}#))
+ (if (eq? #{p 4136}# 'each-any)
+ (cons '() #{r 4137}#)
+ (begin
+ (let ((#{atom-key 4153}# (vector-ref #{p 4136}# 0)))
+ (if (eqv? #{atom-key 4153}# 'each)
+ (#{match-empty 4056}#
+ (vector-ref #{p 4136}# 1)
+ #{r 4137}#)
+ (if (eqv? #{atom-key 4153}# 'each+)
+ (#{match-empty 4056}#
+ (vector-ref #{p 4136}# 1)
+ (#{match-empty 4056}#
+ (reverse (vector-ref #{p 4136}# 2))
+ (#{match-empty 4056}#
+ (vector-ref #{p 4136}# 3)
+ #{r 4137}#)))
+ (if (if (eqv? #{atom-key 4153}# 'free-id)
+ #t
+ (eqv? #{atom-key 4153}# 'atom))
+ #{r 4137}#
+ (if (eqv? #{atom-key 4153}# 'vector)
+ (#{match-empty 4056}#
+ (vector-ref #{p 4136}# 1)
+ #{r 4137}#))))))))))))))
+ (#{combine 4058}#
+ (lambda (#{r* 4158}# #{r 4159}#)
+ (if (null? (car #{r* 4158}#))
+ #{r 4159}#
+ (cons (map car #{r* 4158}#)
+ (#{combine 4058}#
+ (map cdr #{r* 4158}#)
+ #{r 4159}#)))))
+ (#{match* 4060}#
+ (lambda (#{e 4162}#
+ #{p 4163}#
+ #{w 4164}#
+ #{r 4165}#
+ #{mod 4166}#)
+ (if (null? #{p 4163}#)
+ (if (null? #{e 4162}#) #{r 4165}# #f)
+ (if (pair? #{p 4163}#)
+ (if (pair? #{e 4162}#)
+ (#{match 4062}#
+ (car #{e 4162}#)
+ (car #{p 4163}#)
+ #{w 4164}#
+ (#{match 4062}#
+ (cdr #{e 4162}#)
+ (cdr #{p 4163}#)
+ #{w 4164}#
+ #{r 4165}#
+ #{mod 4166}#)
+ #{mod 4166}#)
+ #f)
+ (if (eq? #{p 4163}# 'each-any)
+ (begin
+ (let ((#{l 4183}#
+ (#{match-each-any 4054}#
+ #{e 4162}#
+ #{w 4164}#
+ #{mod 4166}#)))
+ (if #{l 4183}# (cons #{l 4183}# #{r 4165}#) #f)))
+ (begin
+ (let ((#{atom-key 4189}# (vector-ref #{p 4163}# 0)))
+ (if (eqv? #{atom-key 4189}# 'each)
+ (if (null? #{e 4162}#)
+ (#{match-empty 4056}#
+ (vector-ref #{p 4163}# 1)
+ #{r 4165}#)
+ (begin
+ (let ((#{l 4192}#
+ (#{match-each 4050}#
+ #{e 4162}#
+ (vector-ref #{p 4163}# 1)
+ #{w 4164}#
+ #{mod 4166}#)))
+ (if #{l 4192}#
+ (letrec*
+ ((#{collect 4197}#
+ (lambda (#{l 4198}#)
+ (if (null? (car #{l 4198}#))
+ #{r 4165}#
+ (cons (map car #{l 4198}#)
+ (#{collect 4197}#
+ (map cdr #{l 4198}#)))))))
+ (begin (#{collect 4197}# #{l 4192}#)))
+ #f))))
+ (if (eqv? #{atom-key 4189}# 'each+)
+ (call-with-values
+ (lambda ()
+ (#{match-each+ 4052}#
+ #{e 4162}#
+ (vector-ref #{p 4163}# 1)
+ (vector-ref #{p 4163}# 2)
+ (vector-ref #{p 4163}# 3)
+ #{w 4164}#
+ #{r 4165}#
+ #{mod 4166}#))
+ (lambda (#{xr* 4200}# #{y-pat 4201}# #{r 4202}#)
+ (if #{r 4202}#
+ (if (null? #{y-pat 4201}#)
+ (if (null? #{xr* 4200}#)
+ (#{match-empty 4056}#
+ (vector-ref #{p 4163}# 1)
+ #{r 4202}#)
+ (#{combine 4058}#
+ #{xr* 4200}#
+ #{r 4202}#))
+ #f)
+ #f)))
+ (if (eqv? #{atom-key 4189}# 'free-id)
+ (if (if (symbol? #{e 4162}#)
+ #t
+ (if (if (vector? #{e 4162}#)
+ (if (= (vector-length #{e 4162}#) 4)
+ (eq? (vector-ref #{e 4162}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{e 4162}# 1))
+ #f))
+ (if (begin
+ (let ((#{i 10361}#
+ (#{wrap 422}#
+ #{e 4162}#
+ #{w 4164}#
+ #{mod 4166}#))
+ (#{j 10362}#
+ (vector-ref #{p 4163}# 1)))
+ (if (eq? (if (if (vector? #{i 10361}#)
+ (if (= (vector-length
+ #{i 10361}#)
+ 4)
+ (eq? (vector-ref
+ #{i 10361}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{i 10361}# 1)
+ #{i 10361}#)
+ (if (if (vector? #{j 10362}#)
+ (if (= (vector-length
+ #{j 10362}#)
+ 4)
+ (eq? (vector-ref
+ #{j 10362}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{j 10362}# 1)
+ #{j 10362}#))
+ (eq? (#{id-var-name 410}#
+ #{i 10361}#
+ '(()))
+ (#{id-var-name 410}#
+ #{j 10362}#
+ '(())))
+ #f)))
+ #{r 4165}#
+ #f)
+ #f)
+ (if (eqv? #{atom-key 4189}# 'atom)
+ (if (equal?
+ (vector-ref #{p 4163}# 1)
+ (#{strip 462}# #{e 4162}# #{w 4164}#))
+ #{r 4165}#
+ #f)
+ (if (eqv? #{atom-key 4189}# 'vector)
+ (if (vector? #{e 4162}#)
+ (#{match 4062}#
+ (vector->list #{e 4162}#)
+ (vector-ref #{p 4163}# 1)
+ #{w 4164}#
+ #{r 4165}#
+ #{mod 4166}#)
+ #f)))))))))))))
+ (#{match 4062}#
+ (lambda (#{e 4219}#
+ #{p 4220}#
+ #{w 4221}#
+ #{r 4222}#
+ #{mod 4223}#)
+ (if (not #{r 4222}#)
+ #f
+ (if (eq? #{p 4220}# '_)
+ #{r 4222}#
+ (if (eq? #{p 4220}# 'any)
+ (cons (#{wrap 422}# #{e 4219}# #{w 4221}# #{mod 4223}#)
+ #{r 4222}#)
+ (if (if (vector? #{e 4219}#)
+ (if (= (vector-length #{e 4219}#) 4)
+ (eq? (vector-ref #{e 4219}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{match* 4060}#
+ (vector-ref #{e 4219}# 1)
+ #{p 4220}#
+ (#{join-wraps 404}#
+ #{w 4221}#
+ (vector-ref #{e 4219}# 2))
+ #{r 4222}#
+ (vector-ref #{e 4219}# 3))
+ (#{match* 4060}#
+ #{e 4219}#
+ #{p 4220}#
+ #{w 4221}#
+ #{r 4222}#
+ #{mod 4223}#))))))))
+ (begin
+ (set! $sc-dispatch
+ (lambda (#{e 4238}# #{p 4239}#)
+ (if (eq? #{p 4239}# 'any)
+ (list #{e 4238}#)
+ (if (eq? #{p 4239}# '_)
+ '()
+ (if (if (vector? #{e 4238}#)
+ (if (= (vector-length #{e 4238}#) 4)
+ (eq? (vector-ref #{e 4238}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{match* 4060}#
+ (vector-ref #{e 4238}# 1)
+ #{p 4239}#
+ (vector-ref #{e 4238}# 2)
+ '()
+ (vector-ref #{e 4238}# 3))
+ (#{match* 4060}#
+ #{e 4238}#
+ #{p 4239}#
+ '(())
+ '()
+ #f)))))))))))
+
+(define with-syntax
+ (make-syntax-transformer
+ 'with-syntax
+ 'macro
+ (lambda (#{x 10408}#)
+ (begin
+ (let ((#{tmp 10411}#
+ ($sc-dispatch #{x 10408}# '(_ () any . each-any))))
+ (if #{tmp 10411}#
+ (@apply
+ (lambda (#{e1 10414}# #{e2 10415}#)
+ (cons '#(syntax-object
+ let
+ ((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("i10412" "i10413"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10409")))
+ (hygiene guile))
+ (cons '() (cons #{e1 10414}# #{e2 10415}#))))
+ #{tmp 10411}#)
+ (begin
+ (let ((#{tmp 10417}#
+ ($sc-dispatch
+ #{x 10408}#
+ '(_ ((any any)) any . each-any))))
+ (if #{tmp 10417}#
+ (@apply
+ (lambda (#{out 10422}#
+ #{in 10423}#
+ #{e1 10424}#
+ #{e2 10425}#)
+ (list '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i10418" "i10419" "i10420" "i10421"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10409")))
+ (hygiene guile))
+ #{in 10423}#
+ '()
+ (list #{out 10422}#
+ (cons '#(syntax-object
+ let
((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{p 4483}#)))))))))))))
- (#{vquasi 4438}#
- (lambda (#{p 4484}# #{lev 4485}#)
- (let ((#{tmp 4488}# #{p 4484}#))
- (let ((#{tmp 4489}#
- ($sc-dispatch #{tmp 4488}# '(any . any))))
- (if #{tmp 4489}#
- (@apply
- (lambda (#{p 4492}# #{q 4493}#)
- (let ((#{tmp 4494}# #{p 4492}#))
- (let ((#{tmp 4495}#
- ($sc-dispatch
- #{tmp 4494}#
- '(#(free-id
- #(syntax-object
- unquote
- ((top)
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4490" "i4491"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4486" "i4487"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- .
- each-any))))
- (if #{tmp 4495}#
- (@apply
- (lambda (#{p 4497}#)
- (if (= #{lev 4485}# 0)
- (#{quasilist* 4444}#
- (map (lambda (#{tmp 4498}#)
- (list '#(syntax-object
- "value"
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4496"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4490" "i4491"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4486" "i4487"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{tmp 4498}#))
- #{p 4497}#)
- (#{vquasi 4438}# #{q 4493}# #{lev 4485}#))
- (#{quasicons 4440}#
- (#{quasicons 4440}#
- '(#(syntax-object
- "quote"
- ((top)
- #(ribcage #(p) #((top)) #("i4496"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4490" "i4491"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4486" "i4487"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #(syntax-object
- unquote
- ((top)
- #(ribcage #(p) #((top)) #("i4496"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4490" "i4491"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4486" "i4487"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- (#{quasi 4436}#
- #{p 4497}#
- (#{1-}# #{lev 4485}#)))
- (#{vquasi 4438}# #{q 4493}# #{lev 4485}#))))
- #{tmp 4495}#)
- (let ((#{tmp 4500}#
- ($sc-dispatch
- #{tmp 4494}#
- '(#(free-id
- #(syntax-object
- unquote-splicing
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i10418"
+ "i10419"
+ "i10420"
+ "i10421"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10409")))
+ (hygiene guile))
+ (cons '()
+ (cons #{e1 10424}#
+ #{e2 10425}#))))))
+ #{tmp 10417}#)
+ (begin
+ (let ((#{tmp 10427}#
+ ($sc-dispatch
+ #{x 10408}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 10427}#
+ (@apply
+ (lambda (#{out 10432}#
+ #{in 10433}#
+ #{e1 10434}#
+ #{e2 10435}#)
+ (list '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i10428" "i10429" "i10430" "i10431"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10409")))
+ (hygiene guile))
+ (cons '#(syntax-object
+ list
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i10428"
+ "i10429"
+ "i10430"
+ "i10431"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10409")))
+ (hygiene guile))
+ #{in 10433}#)
+ '()
+ (list #{out 10432}#
+ (cons '#(syntax-object
+ let
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i10428"
+ "i10429"
+ "i10430"
+ "i10431"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10409")))
+ (hygiene guile))
+ (cons '()
+ (cons #{e1 10434}#
+ #{e2 10435}#))))))
+ #{tmp 10427}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 10408}#)))))))))))))
+
+(define syntax-rules
+ (make-syntax-transformer
+ 'syntax-rules
+ 'macro
+ (lambda (#{x 10439}#)
+ (begin
+ (let ((#{tmp 10442}#
+ ($sc-dispatch
+ #{x 10439}#
+ '(_ each-any . #(each ((any . any) any))))))
+ (if #{tmp 10442}#
+ (@apply
+ (lambda (#{k 10447}#
+ #{keyword 10448}#
+ #{pattern 10449}#
+ #{template 10450}#)
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i10443" "i10444" "i10445" "i10446"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i10443" "i10444" "i10445" "i10446"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile)))
+ (vector
+ '(#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i10443" "i10444" "i10445" "i10446"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ syntax-rules
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i10443" "i10444" "i10445" "i10446"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile)))
+ (cons '#(syntax-object
+ patterns
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i10443" "i10444" "i10445" "i10446"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ #{pattern 10449}#))
+ (cons '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i10443" "i10444" "i10445" "i10446"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ (cons '#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i10443" "i10444" "i10445" "i10446"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ (cons #{k 10447}#
+ (map (lambda (#{tmp 10454}#
+ #{tmp 10453}#)
+ (list (cons '#(syntax-object
+ dummy
+ ((top)
+ #(ribcage
+ #(k
+ keyword
+ pattern
+ template)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i10443"
+ "i10444"
+ "i10445"
+ "i10446"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10440")))
+ (hygiene guile))
+ #{tmp 10453}#)
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(k
+ keyword
+ pattern
+ template)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i10443"
+ "i10444"
+ "i10445"
+ "i10446"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10440")))
+ (hygiene guile))
+ #{tmp 10454}#)))
+ #{template 10450}#
+ #{pattern 10449}#))))))
+ #{tmp 10442}#)
+ (begin
+ (let ((#{tmp 10455}#
+ ($sc-dispatch
+ #{x 10439}#
+ '(_ each-any any . #(each ((any . any) any))))))
+ (if (if #{tmp 10455}#
+ (@apply
+ (lambda (#{k 10461}#
+ #{docstring 10462}#
+ #{keyword 10463}#
+ #{pattern 10464}#
+ #{template 10465}#)
+ (string? (syntax->datum #{docstring 10462}#)))
+ #{tmp 10455}#)
+ #f)
+ (@apply
+ (lambda (#{k 10471}#
+ #{docstring 10472}#
+ #{keyword 10473}#
+ #{pattern 10474}#
+ #{template 10475}#)
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i10466"
+ "i10467"
+ "i10468"
+ "i10469"
+ "i10470"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i10466"
+ "i10467"
+ "i10468"
+ "i10469"
+ "i10470"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile)))
+ #{docstring 10472}#
+ (vector
+ '(#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i10466"
+ "i10467"
+ "i10468"
+ "i10469"
+ "i10470"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ syntax-rules
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i10466"
+ "i10467"
+ "i10468"
+ "i10469"
+ "i10470"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile)))
+ (cons '#(syntax-object
+ patterns
+ ((top)
+ #(ribcage
+ #(k
+ docstring
+ keyword
+ pattern
+ template)
+ #((top) (top) (top) (top) (top))
+ #("i10466"
+ "i10467"
+ "i10468"
+ "i10469"
+ "i10470"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ #{pattern 10474}#))
+ (cons '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i10466"
+ "i10467"
+ "i10468"
+ "i10469"
+ "i10470"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10440")))
+ (hygiene guile))
+ (cons '#(syntax-object
+ x
((top)
#(ribcage
- #(p q)
- #((top) (top))
- #("i4490" "i4491"))
+ #(k
+ docstring
+ keyword
+ pattern
+ template)
+ #((top) (top) (top) (top) (top))
+ #("i10466"
+ "i10467"
+ "i10468"
+ "i10469"
+ "i10470"))
#(ribcage () () ())
#(ribcage
- #(p lev)
- #((top) (top))
- #("i4486" "i4487"))
+ #(x)
+ #((top))
+ #("i10440")))
+ (hygiene guile))
+ (cons #{k 10471}#
+ (map (lambda (#{tmp 10479}#
+ #{tmp 10478}#)
+ (list (cons
'#(syntax-object
+ dummy
+ ((top)
+ #(ribcage
+ #(k
+
docstring
+
keyword
+
pattern
+
template)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+
#("i10466"
+
"i10467"
+
"i10468"
+
"i10469"
+
"i10470"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i10440")))
+ (hygiene
+ guile))
+ #{tmp 10478}#)
+ (list
'#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(k
+
docstring
+
keyword
+
pattern
+
template)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+
#("i10466"
+
"i10467"
+
"i10468"
+
"i10469"
+
"i10470"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i10440")))
+ (hygiene
+ guile))
+ #{tmp
10479}#)))
+ #{template 10475}#
+ #{pattern 10474}#))))))
+ #{tmp 10455}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 10439}#))))))))))
+
+(define define-syntax-rule
+ (make-syntax-transformer
+ 'define-syntax-rule
+ 'macro
+ (lambda (#{x 10480}#)
+ (begin
+ (let ((#{tmp 10483}#
+ ($sc-dispatch #{x 10480}# '(_ (any . any) any))))
+ (if #{tmp 10483}#
+ (@apply
+ (lambda (#{name 10487}#
+ #{pattern 10488}#
+ #{template 10489}#)
+ (list '#(syntax-object
+ define-syntax
+ ((top)
+ #(ribcage
+ #(name pattern template)
+ #((top) (top) (top))
+ #("i10484" "i10485" "i10486"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10481")))
+ (hygiene guile))
+ #{name 10487}#
+ (list '#(syntax-object
+ syntax-rules
+ ((top)
+ #(ribcage
+ #(name pattern template)
+ #((top) (top) (top))
+ #("i10484" "i10485" "i10486"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10481")))
+ (hygiene guile))
+ '()
+ (list (cons '#(syntax-object
+ _
+ ((top)
#(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- .
- each-any))))
- (if #{tmp 4500}#
- (@apply
- (lambda (#{p 4502}#)
- (if (= #{lev 4485}# 0)
- (#{quasiappend 4442}#
- (map (lambda (#{tmp 4503}#)
+ #(name pattern template)
+ #((top) (top) (top))
+ #("i10484" "i10485" "i10486"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10481")))
+ (hygiene guile))
+ #{pattern 10488}#)
+ #{template 10489}#))))
+ #{tmp 10483}#)
+ (begin
+ (let ((#{tmp 10490}#
+ ($sc-dispatch
+ #{x 10480}#
+ '(_ (any . any) any any))))
+ (if (if #{tmp 10490}#
+ (@apply
+ (lambda (#{name 10495}#
+ #{pattern 10496}#
+ #{docstring 10497}#
+ #{template 10498}#)
+ (string? (syntax->datum #{docstring 10497}#)))
+ #{tmp 10490}#)
+ #f)
+ (@apply
+ (lambda (#{name 10503}#
+ #{pattern 10504}#
+ #{docstring 10505}#
+ #{template 10506}#)
+ (list '#(syntax-object
+ define-syntax
+ ((top)
+ #(ribcage
+ #(name pattern docstring template)
+ #((top) (top) (top) (top))
+ #("i10499" "i10500" "i10501" "i10502"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10481")))
+ (hygiene guile))
+ #{name 10503}#
+ (list '#(syntax-object
+ syntax-rules
+ ((top)
+ #(ribcage
+ #(name pattern docstring template)
+ #((top) (top) (top) (top))
+ #("i10499" "i10500" "i10501" "i10502"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10481")))
+ (hygiene guile))
+ '()
+ #{docstring 10505}#
+ (list (cons '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(name
+ pattern
+ docstring
+ template)
+ #((top) (top) (top) (top))
+ #("i10499"
+ "i10500"
+ "i10501"
+ "i10502"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10481")))
+ (hygiene guile))
+ #{pattern 10504}#)
+ #{template 10506}#))))
+ #{tmp 10490}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 10480}#))))))))))
+
+(define let*
+ (make-syntax-transformer
+ 'let*
+ 'macro
+ (lambda (#{x 10507}#)
+ (begin
+ (let ((#{tmp 10510}#
+ ($sc-dispatch
+ #{x 10507}#
+ '(any #(each (any any)) any . each-any))))
+ (if (if #{tmp 10510}#
+ (@apply
+ (lambda (#{let* 10516}#
+ #{x 10517}#
+ #{v 10518}#
+ #{e1 10519}#
+ #{e2 10520}#)
+ (and-map identifier? #{x 10517}#))
+ #{tmp 10510}#)
+ #f)
+ (@apply
+ (lambda (#{let* 10527}#
+ #{x 10528}#
+ #{v 10529}#
+ #{e1 10530}#
+ #{e2 10531}#)
+ (letrec*
+ ((#{f 10534}#
+ (lambda (#{bindings 10535}#)
+ (if (null? #{bindings 10535}#)
+ (cons '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(f bindings)
+ #((top) (top))
+ #("i10532" "i10533"))
+ #(ribcage
+ #(let* x v e1 e2)
+ #((top) (top) (top) (top) (top))
+ #("i10522"
+ "i10523"
+ "i10524"
+ "i10525"
+ "i10526"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10508")))
+ (hygiene guile))
+ (cons '() (cons #{e1 10530}# #{e2 10531}#)))
+ (begin
+ (let ((#{tmp 10540}#
+ (list (#{f 10534}# (cdr #{bindings 10535}#))
+ (car #{bindings 10535}#))))
+ (begin
+ (let ((#{tmp 10541}#
+ ($sc-dispatch
+ #{tmp 10540}#
+ '(any any))))
+ (if #{tmp 10541}#
+ (@apply
+ (lambda (#{body 10544}# #{binding 10545}#)
+ (list '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(body binding)
+ #((top) (top))
+ #("i10542" "i10543"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f bindings)
+ #((top) (top))
+ #("i10532" "i10533"))
+ #(ribcage
+ #(let* x v e1 e2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10522"
+ "i10523"
+ "i10524"
+ "i10525"
+ "i10526"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10508")))
+ (hygiene guile))
+ (list #{binding 10545}#)
+ #{body 10544}#))
+ #{tmp 10541}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{tmp 10540}#))))))))))
+ (begin
+ (#{f 10534}# (map list #{x 10528}# #{v 10529}#)))))
+ #{tmp 10510}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 10507}#)))))))
+
+(define do
+ (make-syntax-transformer
+ 'do
+ 'macro
+ (lambda (#{orig-x 10547}#)
+ (begin
+ (let ((#{tmp 10550}#
+ ($sc-dispatch
+ #{orig-x 10547}#
+ '(_ #(each (any any . any))
+ (any . each-any)
+ .
+ each-any))))
+ (if #{tmp 10550}#
+ (@apply
+ (lambda (#{var 10557}#
+ #{init 10558}#
+ #{step 10559}#
+ #{e0 10560}#
+ #{e1 10561}#
+ #{c 10562}#)
+ (begin
+ (let ((#{tmp 10564}#
+ (map (lambda (#{v 10585}# #{s 10586}#)
+ (begin
+ (let ((#{tmp 10590}#
+ ($sc-dispatch #{s 10586}# '())))
+ (if #{tmp 10590}#
+ (@apply
+ (lambda () #{v 10585}#)
+ #{tmp 10590}#)
+ (begin
+ (let ((#{tmp 10591}#
+ ($sc-dispatch
+ #{s 10586}#
+ '(any))))
+ (if #{tmp 10591}#
+ (@apply
+ (lambda (#{e 10593}#)
+ #{e 10593}#)
+ #{tmp 10591}#)
+ (syntax-violation
+ 'do
+ "bad step expression"
+ #{orig-x 10547}#
+ #{s 10586}#))))))))
+ #{var 10557}#
+ #{step 10559}#)))
+ (begin
+ (let ((#{tmp 10565}#
+ ($sc-dispatch #{tmp 10564}# 'each-any)))
+ (if #{tmp 10565}#
+ (@apply
+ (lambda (#{step 10567}#)
+ (begin
+ (let ((#{tmp 10569}#
+ ($sc-dispatch #{e1 10561}# '())))
+ (if #{tmp 10569}#
+ (@apply
+ (lambda ()
+ (list '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("i10566"))
+ #(ribcage
+ #(var init step e0 e1 c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10551"
+ "i10552"
+ "i10553"
+ "i10554"
+ "i10555"
+ "i10556"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("i10548")))
+ (hygiene guile))
+ '#(syntax-object
+ doloop
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("i10566"))
+ #(ribcage
+ #(var init step e0 e1 c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10551"
+ "i10552"
+ "i10553"
+ "i10554"
+ "i10555"
+ "i10556"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("i10548")))
+ (hygiene guile))
+ (map list
+ #{var 10557}#
+ #{init 10558}#)
(list '#(syntax-object
- "value"
+ if
((top)
+ #(ribcage () () ())
#(ribcage
- #(p)
+ #(step)
#((top))
- #("i4501"))
+ #("i10566"))
#(ribcage
- #(p q)
- #((top) (top))
- #("i4490" "i4491"))
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10551"
+ "i10552"
+ "i10553"
+ "i10554"
+ "i10555"
+ "i10556"))
#(ribcage () () ())
#(ribcage
- #(p lev)
+ #(orig-x)
+ #((top))
+ #("i10548")))
+ (hygiene guile))
+ (list '#(syntax-object
+ not
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("i10566"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10551"
+ "i10552"
+ "i10553"
+ "i10554"
+ "i10555"
+ "i10556"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("i10548")))
+ (hygiene guile))
+ #{e0 10560}#)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("i10566"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10551"
+ "i10552"
+ "i10553"
+ "i10554"
+ "i10555"
+ "i10556"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("i10548")))
+ (hygiene guile))
+ (append
+ #{c 10562}#
+ (list (cons
'#(syntax-object
+
doloop
+
((top)
+
#(ribcage
+
()
+
()
+
())
+
#(ribcage
+
#(step)
+
#((top))
+
#("i10566"))
+
#(ribcage
+
#(var
+
init
+
step
+
e0
+
e1
+
c)
+
#((top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top))
+
#("i10551"
+
"i10552"
+
"i10553"
+
"i10554"
+
"i10555"
+
"i10556"))
+
#(ribcage
+
()
+
()
+
())
+
#(ribcage
+
#(orig-x)
+
#((top))
+
#("i10548")))
+
(hygiene
+
guile))
+ #{step
10567}#)))))))
+ #{tmp 10569}#)
+ (begin
+ (let ((#{tmp 10574}#
+ ($sc-dispatch
+ #{e1 10561}#
+ '(any . each-any))))
+ (if #{tmp 10574}#
+ (@apply
+ (lambda (#{e1 10577}# #{e2 10578}#)
+ (list '#(syntax-object
+ let
+ ((top)
+ #(ribcage
+ #(e1 e2)
#((top) (top))
- #("i4486" "i4487"))
+ #("i10575" "i10576"))
+ #(ribcage () () ())
#(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{tmp 4503}#))
- #{p 4502}#)
- (#{vquasi 4438}#
- #{q 4493}#
- #{lev 4485}#))
- (#{quasicons 4440}#
- (#{quasicons 4440}#
- '(#(syntax-object
- "quote"
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4501"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4490" "i4491"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4486" "i4487"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #(syntax-object
- unquote-splicing
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4501"))
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4490" "i4491"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4486" "i4487"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile)))
- (#{quasi 4436}#
- #{p 4502}#
- (#{1-}# #{lev 4485}#)))
- (#{vquasi 4438}#
- #{q 4493}#
- #{lev 4485}#))))
- #{tmp 4500}#)
- (let ((#{_ 4506}# #{tmp 4494}#))
- (#{quasicons 4440}#
- (#{quasi 4436}# #{p 4492}# #{lev 4485}#)
- (#{vquasi 4438}#
- #{q 4493}#
- #{lev 4485}#)))))))))
- #{tmp 4489}#)
- (let ((#{tmp 4507}# ($sc-dispatch #{tmp 4488}# '())))
- (if #{tmp 4507}#
- (@apply
- (lambda ()
+ #(step)
+ #((top))
+ #("i10566"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10551"
+ "i10552"
+ "i10553"
+ "i10554"
+ "i10555"
+ "i10556"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("i10548")))
+ (hygiene guile))
+ '#(syntax-object
+ doloop
+ ((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("i10575" "i10576"))
+ #(ribcage () () ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("i10566"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10551"
+ "i10552"
+ "i10553"
+ "i10554"
+ "i10555"
+ "i10556"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("i10548")))
+ (hygiene guile))
+ (map list
+ #{var 10557}#
+ #{init 10558}#)
+ (list '#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("i10575"
+ "i10576"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("i10566"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i10551"
+ "i10552"
+ "i10553"
+ "i10554"
+ "i10555"
+ "i10556"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("i10548")))
+ (hygiene guile))
+ #{e0 10560}#
+ (cons
'#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ #(e1 e2)
+ #((top)
+ (top))
+
#("i10575"
+
"i10576"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(step)
+ #((top))
+
#("i10566"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+
#("i10551"
+
"i10552"
+
"i10553"
+
"i10554"
+
"i10555"
+
"i10556"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+
#("i10548")))
+ (hygiene
+ guile))
+ (cons #{e1
10577}#
+ #{e2
10578}#))
+ (cons
'#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ #(e1 e2)
+ #((top)
+ (top))
+
#("i10575"
+
"i10576"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(step)
+ #((top))
+
#("i10566"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+
#("i10551"
+
"i10552"
+
"i10553"
+
"i10554"
+
"i10555"
+
"i10556"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+
#("i10548")))
+ (hygiene
+ guile))
+ (append
+ #{c 10562}#
+ (list (cons
'#(syntax-object
+
doloop
+
((top)
+
#(ribcage
+
#(e1
+
e2)
+
#((top)
+
(top))
+
#("i10575"
+
"i10576"))
+
#(ribcage
+
()
+
()
+
())
+
#(ribcage
+
#(step)
+
#((top))
+
#("i10566"))
+
#(ribcage
+
#(var
+
init
+
step
+
e0
+
e1
+
c)
+
#((top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top))
+
#("i10551"
+
"i10552"
+
"i10553"
+
"i10554"
+
"i10555"
+
"i10556"))
+
#(ribcage
+
()
+
()
+
())
+
#(ribcage
+
#(orig-x)
+
#((top))
+
#("i10548")))
+
(hygiene
+
guile))
+
#{step 10567}#)))))))
+ #{tmp 10574}#)
+ (syntax-violation
+ #f
+ "source expression failed to match
any pattern"
+ #{e1 10561}#))))))))
+ #{tmp 10565}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 10564}#)))))))
+ #{tmp 10550}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{orig-x 10547}#)))))))
+
+(define quasiquote
+ (make-syntax-transformer
+ 'quasiquote
+ 'macro
+ (letrec*
+ ((#{quasi 10599}#
+ (lambda (#{p 10612}# #{lev 10613}#)
+ (begin
+ (let ((#{tmp 10617}#
+ ($sc-dispatch
+ #{p 10612}#
+ '(#(free-id
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ any))))
+ (if #{tmp 10617}#
+ (@apply
+ (lambda (#{p 10619}#)
+ (if (= #{lev 10613}# 0)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage #(p) #((top)) #("i10618"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{p 10619}#)
+ (#{quasicons 10603}#
'(#(syntax-object
"quote"
((top)
+ #(ribcage #(p) #((top)) #("i10618"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4486" "i4487"))
+ #("i10614" "i10615"))
#(ribcage
(emit quasivector
quasilist*
@@ -16318,385 +30475,548 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
(hygiene guile))
- ()))
- #{tmp 4507}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4488}#))))))))
- (#{quasicons 4440}#
- (lambda (#{x 4508}# #{y 4509}#)
- (let ((#{tmp 4513}# (list #{x 4508}# #{y 4509}#)))
- (let ((#{tmp 4514}#
- ($sc-dispatch #{tmp 4513}# '(any any))))
- (if #{tmp 4514}#
- (@apply
- (lambda (#{x 4517}# #{y 4518}#)
- (let ((#{tmp 4519}# #{y 4518}#))
- (let ((#{tmp 4520}#
- ($sc-dispatch
- #{tmp 4519}#
- '(#(atom "quote") any))))
- (if #{tmp 4520}#
- (@apply
- (lambda (#{dy 4522}#)
- (let ((#{tmp 4523}# #{x 4517}#))
- (let ((#{tmp 4524}#
- ($sc-dispatch
- #{tmp 4523}#
- '(#(atom "quote") any))))
- (if #{tmp 4524}#
- (@apply
- (lambda (#{dx 4526}#)
- (list '#(syntax-object
- "quote"
- ((top)
- #(ribcage
- #(dx)
- #((top))
- #("i4525"))
- #(ribcage
- #(dy)
- #((top))
- #("i4521"))
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4515" "i4516"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4510" "i4511"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- (cons #{dx 4526}# #{dy 4522}#)))
- #{tmp 4524}#)
- (let ((#{_ 4528}# #{tmp 4523}#))
- (if (null? #{dy 4522}#)
- (list '#(syntax-object
- "list"
- ((top)
- #(ribcage
- #(_)
- #((top))
- #("i4527"))
- #(ribcage
- #(dy)
- #((top))
- #("i4521"))
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4515" "i4516"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4510" "i4511"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage #(p) #((top)) #("i10618"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ (#{quasi 10599}#
+ (list #{p 10619}#)
+ (#{1-}# #{lev 10613}#)))))
+ #{tmp 10617}#)
+ (begin
+ (let ((#{tmp 10620}#
+ ($sc-dispatch
+ #{p 10612}#
+ '(#(free-id
+ #(syntax-object
+ quasiquote
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ any))))
+ (if #{tmp 10620}#
+ (@apply
+ (lambda (#{p 10622}#)
+ (#{quasicons 10603}#
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage #(p) #((top)) #("i10621"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #(syntax-object
+ quasiquote
+ ((top)
+ #(ribcage #(p) #((top)) #("i10621"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ (#{quasi 10599}#
+ (list #{p 10622}#)
+ (#{1+}# #{lev 10613}#))))
+ #{tmp 10620}#)
+ (begin
+ (let ((#{tmp 10623}#
+ ($sc-dispatch #{p 10612}# '(any . any))))
+ (if #{tmp 10623}#
+ (@apply
+ (lambda (#{p 10626}# #{q 10627}#)
+ (begin
+ (let ((#{tmp 10629}#
+ ($sc-dispatch
+ #{p 10626}#
+ '(#(free-id
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10624" "i10625"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ .
+ each-any))))
+ (if #{tmp 10629}#
+ (@apply
+ (lambda (#{p 10631}#)
+ (if (= #{lev 10613}# 0)
+ (#{quasilist* 10607}#
+ (map (lambda (#{tmp 10632}#)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10630"))
+ #(ribcage
+ #(p q)
+ #((top)
+ (top))
+ #("i10624"
+ "i10625"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(p lev)
+ #((top)
+ (top))
+ #("i10614"
+ "i10615"))
+ #(ribcage
+ (emit
quasivector
+
quasilist*
+
quasiappend
+
quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{tmp 10632}#))
+ #{p 10631}#)
+ (#{quasi 10599}#
+ #{q 10627}#
+ #{lev 10613}#))
+ (#{quasicons 10603}#
+ (#{quasicons 10603}#
+ '(#(syntax-object
+ "quote"
((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{x 4517}#)
- (list '#(syntax-object
- "list*"
- ((top)
- #(ribcage
- #(_)
- #((top))
- #("i4527"))
- #(ribcage
- #(dy)
- #((top))
- #("i4521"))
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4515" "i4516"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4510" "i4511"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10630"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10624" "i10625"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #(syntax-object
+ unquote
((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{x 4517}#
- #{y 4518}#)))))))
- #{tmp 4520}#)
- (let ((#{tmp 4529}#
- ($sc-dispatch
- #{tmp 4519}#
- '(#(atom "list") . any))))
- (if #{tmp 4529}#
- (@apply
- (lambda (#{stuff 4531}#)
- (cons '#(syntax-object
- "list"
- ((top)
- #(ribcage
- #(stuff)
- #((top))
- #("i4530"))
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4515" "i4516"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4510" "i4511"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- (cons #{x 4517}# #{stuff 4531}#)))
- #{tmp 4529}#)
- (let ((#{tmp 4532}#
- ($sc-dispatch
- #{tmp 4519}#
- '(#(atom "list*") . any))))
- (if #{tmp 4532}#
- (@apply
- (lambda (#{stuff 4534}#)
- (cons '#(syntax-object
- "list*"
- ((top)
- #(ribcage
- #(stuff)
- #((top))
- #("i4533"))
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4515" "i4516"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4510" "i4511"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- (cons #{x 4517}# #{stuff 4534}#)))
- #{tmp 4532}#)
- (let ((#{_ 4536}# #{tmp 4519}#))
- (list '#(syntax-object
- "list*"
- ((top)
- #(ribcage
- #(_)
- #((top))
- #("i4535"))
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4515" "i4516"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4510" "i4511"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{x 4517}#
- #{y 4518}#))))))))))
- #{tmp 4514}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4513}#))))))
- (#{quasiappend 4442}#
- (lambda (#{x 4537}# #{y 4538}#)
- (let ((#{tmp 4541}# #{y 4538}#))
- (let ((#{tmp 4542}#
- ($sc-dispatch #{tmp 4541}# '(#(atom "quote") ()))))
- (if #{tmp 4542}#
- (@apply
- (lambda ()
- (if (null? #{x 4537}#)
- '(#(syntax-object
- "quote"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4539" "i4540"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- ())
- (if (null? (cdr #{x 4537}#))
- (car #{x 4537}#)
- (let ((#{tmp 4549}# #{x 4537}#))
- (let ((#{tmp 4550}#
- ($sc-dispatch #{tmp 4549}# 'each-any)))
- (if #{tmp 4550}#
- (@apply
- (lambda (#{p 4552}#)
- (cons '#(syntax-object
- "append"
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10630"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10624" "i10625"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614" "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ (#{quasi 10599}#
+ #{p 10631}#
+ (#{1-}# #{lev 10613}#)))
+ (#{quasi 10599}#
+ #{q 10627}#
+ #{lev 10613}#))))
+ #{tmp 10629}#)
+ (begin
+ (let ((#{tmp 10634}#
+ ($sc-dispatch
+ #{p 10626}#
+ '(#(free-id
+ #(syntax-object
+ unquote-splicing
+ ((top)
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10624"
+ "i10625"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614"
+ "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ .
+ each-any))))
+ (if #{tmp 10634}#
+ (@apply
+ (lambda (#{p 10636}#)
+ (if (= #{lev 10613}# 0)
+ (#{quasiappend 10605}#
+ (map (lambda (#{tmp
10637}#)
+ (list
'#(syntax-object
+ "value"
+ ((top)
+ #(ribcage
+ #(p)
+
#((top))
+
#("i10635"))
+ #(ribcage
+ #(p q)
+ #((top)
+
(top))
+
#("i10624"
+
"i10625"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(p
+ lev)
+ #((top)
+
(top))
+
#("i10614"
+
"i10615"))
+ #(ribcage
+ (emit
quasivector
+
quasilist*
+
quasiappend
+
quasicons
+
vquasi
+
quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+
("i10610"
+
"i10608"
+
"i10606"
+
"i10604"
+
"i10602"
+
"i10600"
+
"i10598")))
+ (hygiene
+ guile))
+ #{tmp
10637}#))
+ #{p 10636}#)
+ (#{quasi 10599}#
+ #{q 10627}#
+ #{lev 10613}#))
+ (#{quasicons 10603}#
+ (#{quasicons 10603}#
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10635"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10624"
+ "i10625"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614"
+ "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #(syntax-object
+ unquote-splicing
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10635"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10624"
+ "i10625"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10614"
+ "i10615"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ (#{quasi 10599}#
+ #{p 10636}#
+ (#{1-}# #{lev
10613}#)))
+ (#{quasi 10599}#
+ #{q 10627}#
+ #{lev 10613}#))))
+ #{tmp 10634}#)
+ (#{quasicons 10603}#
+ (#{quasi 10599}#
+ #{p 10626}#
+ #{lev 10613}#)
+ (#{quasi 10599}#
+ #{q 10627}#
+ #{lev 10613}#)))))))))
+ #{tmp 10623}#)
+ (begin
+ (let ((#{tmp 10641}#
+ ($sc-dispatch
+ #{p 10612}#
+ '#(vector each-any))))
+ (if #{tmp 10641}#
+ (@apply
+ (lambda (#{x 10643}#)
+ (#{quasivector 10609}#
+ (#{vquasi 10601}#
+ #{x 10643}#
+ #{lev 10613}#)))
+ #{tmp 10641}#)
+ (list '#(syntax-object
+ "quote"
((top)
- #(ribcage () () ())
#(ribcage
#(p)
#((top))
- #("i4551"))
+ #("i10645"))
#(ribcage () () ())
#(ribcage
- #(x y)
+ #(p lev)
#((top) (top))
- #("i4539" "i4540"))
+ #("i10614" "i10615"))
#(ribcage
(emit quasivector
quasilist*
@@ -16705,160 +31025,464 @@
vquasi
quasi)
((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{p 4552}#))
- #{tmp 4550}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{tmp 4549}#)))))))
- #{tmp 4542}#)
- (let ((#{_ 4555}# #{tmp 4541}#))
- (if (null? #{x 4537}#)
- #{y 4538}#
- (let ((#{tmp 4560}# (list #{x 4537}# #{y 4538}#)))
- (let ((#{tmp 4561}#
- ($sc-dispatch #{tmp 4560}# '(each-any any))))
- (if #{tmp 4561}#
- (@apply
- (lambda (#{p 4564}# #{y 4565}#)
- (cons '#(syntax-object
- "append"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p y)
- #((top) (top))
- #("i4562" "i4563"))
- #(ribcage #(_) #((top)) #("i4554"))
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4539" "i4540"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- (append #{p 4564}# (list #{y 4565}#))))
- #{tmp 4561}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4560}#)))))))))))
- (#{quasilist* 4444}#
- (lambda (#{x 4567}# #{y 4568}#)
- (letrec*
- ((#{f 4573}#
- (lambda (#{x 4574}#)
- (if (null? #{x 4574}#)
- #{y 4568}#
- (#{quasicons 4440}#
- (car #{x 4574}#)
- (#{f 4573}# (cdr #{x 4574}#)))))))
- (begin (#{f 4573}# #{x 4567}#)))))
- (#{quasivector 4446}#
- (lambda (#{x 4575}#)
- (let ((#{tmp 4577}# #{x 4575}#))
- (let ((#{tmp 4578}#
- ($sc-dispatch
- #{tmp 4577}#
- '(#(atom "quote") each-any))))
- (if #{tmp 4578}#
- (@apply
- (lambda (#{x 4580}#)
- (list '#(syntax-object
- "quote"
- ((top)
- #(ribcage #(x) #((top)) #("i4579"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4576"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- (list->vector #{x 4580}#)))
- #{tmp 4578}#)
- (let ((#{_ 4583}# #{tmp 4577}#))
- (letrec*
- ((#{f 4587}#
- (lambda (#{y 4588}# #{k 4589}#)
- (let ((#{tmp 4600}# #{y 4588}#))
- (let ((#{tmp 4601}#
- ($sc-dispatch
- #{tmp 4600}#
- '(#(atom "quote") each-any))))
- (if #{tmp 4601}#
- (@apply
- (lambda (#{y 4603}#)
- (#{k 4589}#
- (map (lambda (#{tmp 4604}#)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{p 10612}#)))))))))))))))
+ (#{vquasi 10601}#
+ (lambda (#{p 10647}# #{lev 10648}#)
+ (begin
+ (let ((#{tmp 10652}#
+ ($sc-dispatch #{p 10647}# '(any . any))))
+ (if #{tmp 10652}#
+ (@apply
+ (lambda (#{p 10655}# #{q 10656}#)
+ (begin
+ (let ((#{tmp 10658}#
+ ($sc-dispatch
+ #{p 10655}#
+ '(#(free-id
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10653" "i10654"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649" "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ .
+ each-any))))
+ (if #{tmp 10658}#
+ (@apply
+ (lambda (#{p 10660}#)
+ (if (= #{lev 10648}# 0)
+ (#{quasilist* 10607}#
+ (map (lambda (#{tmp 10661}#)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10659"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10653" "i10654"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649" "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{tmp 10661}#))
+ #{p 10660}#)
+ (#{vquasi 10601}#
+ #{q 10656}#
+ #{lev 10648}#))
+ (#{quasicons 10603}#
+ (#{quasicons 10603}#
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage #(p) #((top)) #("i10659"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10653" "i10654"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649" "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage #(p) #((top)) #("i10659"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10653" "i10654"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649" "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ (#{quasi 10599}#
+ #{p 10660}#
+ (#{1-}# #{lev 10648}#)))
+ (#{vquasi 10601}#
+ #{q 10656}#
+ #{lev 10648}#))))
+ #{tmp 10658}#)
+ (begin
+ (let ((#{tmp 10663}#
+ ($sc-dispatch
+ #{p 10655}#
+ '(#(free-id
+ #(syntax-object
+ unquote-splicing
+ ((top)
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10653" "i10654"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649" "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ .
+ each-any))))
+ (if #{tmp 10663}#
+ (@apply
+ (lambda (#{p 10665}#)
+ (if (= #{lev 10648}# 0)
+ (#{quasiappend 10605}#
+ (map (lambda (#{tmp 10666}#)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10664"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10653"
+ "i10654"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649"
+ "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{tmp 10666}#))
+ #{p 10665}#)
+ (#{vquasi 10601}#
+ #{q 10656}#
+ #{lev 10648}#))
+ (#{quasicons 10603}#
+ (#{quasicons 10603}#
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10664"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10653" "i10654"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649" "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #(syntax-object
+ unquote-splicing
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10664"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("i10653" "i10654"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649" "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile)))
+ (#{quasi 10599}#
+ #{p 10665}#
+ (#{1-}# #{lev 10648}#)))
+ (#{vquasi 10601}#
+ #{q 10656}#
+ #{lev 10648}#))))
+ #{tmp 10663}#)
+ (#{quasicons 10603}#
+ (#{quasi 10599}# #{p 10655}# #{lev 10648}#)
+ (#{vquasi 10601}#
+ #{q 10656}#
+ #{lev 10648}#)))))))))
+ #{tmp 10652}#)
+ (begin
+ (let ((#{tmp 10670}# ($sc-dispatch #{p 10647}# '())))
+ (if #{tmp 10670}#
+ (@apply
+ (lambda ()
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("i10649" "i10650"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ ()))
+ #{tmp 10670}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{p 10647}#)))))))))
+ (#{quasicons 10603}#
+ (lambda (#{x 10671}# #{y 10672}#)
+ (begin
+ (let ((#{tmp 10676}# (list #{x 10671}# #{y 10672}#)))
+ (begin
+ (let ((#{tmp 10677}#
+ ($sc-dispatch #{tmp 10676}# '(any any))))
+ (if #{tmp 10677}#
+ (@apply
+ (lambda (#{x 10680}# #{y 10681}#)
+ (begin
+ (let ((#{tmp 10683}#
+ ($sc-dispatch
+ #{y 10681}#
+ '(#(atom "quote") any))))
+ (if #{tmp 10683}#
+ (@apply
+ (lambda (#{dy 10685}#)
+ (begin
+ (let ((#{tmp 10687}#
+ ($sc-dispatch
+ #{x 10680}#
+ '(#(atom "quote") any))))
+ (if #{tmp 10687}#
+ (@apply
+ (lambda (#{dx 10689}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
- #(y)
+ #(dx)
#((top))
- #("i4602"))
- #(ribcage () () ())
+ #("i10688"))
#(ribcage
- #(f y k)
- #((top) (top) (top))
- #("i4584"
- "i4585"
- "i4586"))
- #(ribcage
- #(_)
+ #(dy)
#((top))
- #("i4582"))
+ #("i10684"))
#(ribcage () () ())
#(ribcage
- #(x)
- #((top))
- #("i4576"))
+ #(x y)
+ #((top) (top))
+ #("i10678" "i10679"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10673" "i10674"))
#(ribcage
(emit quasivector
quasilist*
@@ -16873,366 +31497,85 @@
(top)
(top)
(top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
(hygiene guile))
- #{tmp 4604}#))
- #{y 4603}#)))
- #{tmp 4601}#)
- (let ((#{tmp 4605}#
- ($sc-dispatch
- #{tmp 4600}#
- '(#(atom "list") . each-any))))
- (if #{tmp 4605}#
- (@apply
- (lambda (#{y 4607}#)
- (#{k 4589}# #{y 4607}#))
- #{tmp 4605}#)
- (let ((#{tmp 4609}#
- ($sc-dispatch
- #{tmp 4600}#
- '(#(atom "list*")
- .
- #(each+ any (any) ())))))
- (if #{tmp 4609}#
- (@apply
- (lambda (#{y 4612}# #{z 4613}#)
- (#{f 4587}#
- #{z 4613}#
- (lambda (#{ls 4614}#)
- (#{k 4589}#
- (append
- #{y 4612}#
- #{ls 4614}#)))))
- #{tmp 4609}#)
- (let ((#{else 4618}# #{tmp 4600}#))
- (let ((#{tmp 4622}# #{x 4575}#))
- (let ((#{ g4619 4624}#
- #{tmp 4622}#))
- (list '#(syntax-object
- "list->vector"
+ (cons #{dx 10689}#
+ #{dy 10685}#)))
+ #{tmp 10687}#)
+ (if (null? #{dy 10685}#)
+ (list '#(syntax-object
+ "list"
+ ((top)
+ #(ribcage
+ #(_)
+ #((top))
+ #("i10690"))
+ #(ribcage
+ #(dy)
+ #((top))
+ #("i10684"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10678" "i10679"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10673" "i10674"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g4619}#)
- #((m4620 top))
- #("i4623"))
- #(ribcage
- #(else)
- #((top))
- #("i4617"))
- #(ribcage () () ())
- #(ribcage
- #(f y k)
- #((top) (top) (top))
- #("i4584"
- "i4585"
- "i4586"))
- #(ribcage
- #(_)
- #((top))
- #("i4582"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4576"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{ g4619
4624}#))))))))))))))
- (begin
- (#{f 4587}#
- #{x 4575}#
- (lambda (#{ls 4590}#)
- (let ((#{tmp 4595}# #{ls 4590}#))
- (let ((#{tmp 4596}#
- ($sc-dispatch #{tmp 4595}# 'each-any)))
- (if #{tmp 4596}#
- (@apply
- (lambda (#{ g4592 4598}#)
- (cons '#(syntax-object
- "vector"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g4592}#)
- #((m4593 top))
- #("i4597"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(ls)
- #((top))
- #("i4591"))
- #(ribcage
- #(_)
- #((top))
- #("i4582"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4576"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{ g4592 4598}#))
- #{tmp 4596}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{tmp 4595}#))))))))))))))
- (#{emit 4448}#
- (lambda (#{x 4625}#)
- (let ((#{tmp 4627}# #{x 4625}#))
- (let ((#{tmp 4628}#
- ($sc-dispatch
- #{tmp 4627}#
- '(#(atom "quote") any))))
- (if #{tmp 4628}#
- (@apply
- (lambda (#{x 4630}#)
- (list '#(syntax-object
- quote
- ((top)
- #(ribcage #(x) #((top)) #("i4629"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4626"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{x 4630}#))
- #{tmp 4628}#)
- (let ((#{tmp 4631}#
- ($sc-dispatch
- #{tmp 4627}#
- '(#(atom "list") . each-any))))
- (if #{tmp 4631}#
- (@apply
- (lambda (#{x 4633}#)
- (let ((#{tmp 4637}# (map #{emit 4448}# #{x 4633}#)))
- (let ((#{tmp 4638}#
- ($sc-dispatch #{tmp 4637}# 'each-any)))
- (if #{tmp 4638}#
- (@apply
- (lambda (#{ g4634 4640}#)
- (cons '#(syntax-object
- list
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g4634}#)
- #((m4635 top))
- #("i4639"))
- #(ribcage
- #(x)
- #((top))
- #("i4632"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4626"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{ g4634 4640}#))
- #{tmp 4638}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{tmp 4637}#)))))
- #{tmp 4631}#)
- (let ((#{tmp 4643}#
- ($sc-dispatch
- #{tmp 4627}#
- '(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 4643}#
- (@apply
- (lambda (#{x 4646}# #{y 4647}#)
- (letrec*
- ((#{f 4650}#
- (lambda (#{x* 4651}#)
- (if (null? #{x* 4651}#)
- (#{emit 4448}# #{y 4647}#)
- (let ((#{tmp 4657}#
- (list (#{emit 4448}#
- (car #{x* 4651}#))
- (#{f 4650}#
- (cdr #{x* 4651}#)))))
- (let ((#{tmp 4658}#
- ($sc-dispatch
- #{tmp 4657}#
- '(any any))))
- (if #{tmp 4658}#
- (@apply
- (lambda (#{ g4654 4661}#
- #{ g4653 4662}#)
- (list '#(syntax-object
- cons
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g4654}#
- #{ g4653}#)
- #((m4655 top)
- (m4655 top))
- #("i4659" "i4660"))
- #(ribcage () () ())
- #(ribcage
- #(f x*)
- #((top) (top))
- #("i4648" "i4649"))
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4644" "i4645"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4626"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{ g4654 4661}#
- #{ g4653 4662}#))
- #{tmp 4658}#)
- (syntax-violation
- #f
- "source expression failed to
match any pattern"
- #{tmp 4657}#))))))))
- (begin (#{f 4650}# #{x 4646}#))))
- #{tmp 4643}#)
- (let ((#{tmp 4663}#
- ($sc-dispatch
- #{tmp 4627}#
- '(#(atom "append") . each-any))))
- (if #{tmp 4663}#
- (@apply
- (lambda (#{x 4665}#)
- (let ((#{tmp 4669}#
- (map #{emit 4448}# #{x 4665}#)))
- (let ((#{tmp 4670}#
- ($sc-dispatch
- #{tmp 4669}#
- 'each-any)))
- (if #{tmp 4670}#
- (@apply
- (lambda (#{ g4666 4672}#)
- (cons '#(syntax-object
- append
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{x 10680}#)
+ (list '#(syntax-object
+ "list*"
((top)
- #(ribcage () () ())
#(ribcage
- #(#{ g4666}#)
- #((m4667 top))
- #("i4671"))
+ #(_)
+ #((top))
+ #("i10690"))
#(ribcage
- #(x)
+ #(dy)
#((top))
- #("i4664"))
+ #("i10684"))
#(ribcage () () ())
#(ribcage
- #(x)
- #((top))
- #("i4626"))
+ #(x y)
+ #((top) (top))
+ #("i10678" "i10679"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10673" "i10674"))
#(ribcage
(emit quasivector
quasilist*
@@ -17247,54 +31590,96 @@
(top)
(top)
(top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
(hygiene guile))
- #{ g4666 4672}#))
- #{tmp 4670}#)
- (syntax-violation
- #f
- "source expression failed to match
any pattern"
- #{tmp 4669}#)))))
- #{tmp 4663}#)
- (let ((#{tmp 4675}#
- ($sc-dispatch
- #{tmp 4627}#
- '(#(atom "vector") . each-any))))
- (if #{tmp 4675}#
- (@apply
- (lambda (#{x 4677}#)
- (let ((#{tmp 4681}#
- (map #{emit 4448}# #{x 4677}#)))
- (let ((#{tmp 4682}#
+ #{x 10680}#
+ #{y 10681}#))))))
+ #{tmp 10683}#)
+ (begin
+ (let ((#{tmp 10692}#
+ ($sc-dispatch
+ #{y 10681}#
+ '(#(atom "list") . any))))
+ (if #{tmp 10692}#
+ (@apply
+ (lambda (#{stuff 10694}#)
+ (cons '#(syntax-object
+ "list"
+ ((top)
+ #(ribcage
+ #(stuff)
+ #((top))
+ #("i10693"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10678" "i10679"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10673" "i10674"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ (cons #{x 10680}#
+ #{stuff 10694}#)))
+ #{tmp 10692}#)
+ (begin
+ (let ((#{tmp 10695}#
($sc-dispatch
- #{tmp 4681}#
- 'each-any)))
- (if #{tmp 4682}#
+ #{y 10681}#
+ '(#(atom "list*") . any))))
+ (if #{tmp 10695}#
(@apply
- (lambda (#{ g4678 4684}#)
+ (lambda (#{stuff 10697}#)
(cons '#(syntax-object
- vector
+ "list*"
((top)
- #(ribcage () () ())
#(ribcage
- #(#{ g4678}#)
- #((m4679 top))
- #("i4683"))
- #(ribcage
- #(x)
+ #(stuff)
#((top))
- #("i4676"))
+ #("i10696"))
#(ribcage () () ())
#(ribcage
- #(x)
- #((top))
- #("i4626"))
+ #(x y)
+ #((top) (top))
+ #("i10678"
+ "i10679"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10673"
+ "i10674"))
#(ribcage
(emit quasivector
quasilist*
@@ -17309,637 +31694,684 @@
(top)
(top)
(top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
(hygiene guile))
- #{ g4678 4684}#))
- #{tmp 4682}#)
- (syntax-violation
- #f
- "source expression failed to
match any pattern"
- #{tmp 4681}#)))))
- #{tmp 4675}#)
- (let ((#{tmp 4687}#
- ($sc-dispatch
- #{tmp 4627}#
- '(#(atom "list->vector") any))))
- (if #{tmp 4687}#
- (@apply
- (lambda (#{x 4689}#)
- (let ((#{tmp 4693}#
- (#{emit 4448}# #{x 4689}#)))
- (let ((#{ g4690 4695}#
- #{tmp 4693}#))
- (list '#(syntax-object
- list->vector
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g4690}#)
- #((m4691 top))
- #("i4694"))
- #(ribcage
- #(x)
- #((top))
- #("i4688"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4626"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4447"
- "i4445"
- "i4443"
- "i4441"
- "i4439"
- "i4437"
- "i4435")))
- (hygiene guile))
- #{ g4690 4695}#))))
- #{tmp 4687}#)
- (let ((#{tmp 4696}#
- ($sc-dispatch
- #{tmp 4627}#
- '(#(atom "value") any))))
- (if #{tmp 4696}#
- (@apply
- (lambda (#{x 4698}#) #{x 4698}#)
- #{tmp 4696}#)
- (syntax-violation
- #f
- "source expression failed to match
any pattern"
- #{tmp 4627}#)))))))))))))))))))
- (begin
- (lambda (#{x 4699}#)
- (let ((#{tmp 4701}# #{x 4699}#))
- (let ((#{tmp 4702}#
- ($sc-dispatch #{tmp 4701}# '(_ any))))
- (if #{tmp 4702}#
- (@apply
- (lambda (#{e 4704}#)
- (#{emit 4448}# (#{quasi 4436}# #{e 4704}# 0)))
- #{tmp 4702}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4701}#)))))))))
-
-(define include
- (make-syntax-transformer
- 'include
- 'macro
- (lambda (#{x 4705}#)
- (letrec*
- ((#{read-file 4708}#
- (lambda (#{fn 4709}# #{k 4710}#)
- (begin
- (let ((#{p 4714}# (open-input-file #{fn 4709}#)))
- (letrec*
- ((#{f 4718}#
- (lambda (#{x 4719}# #{result 4720}#)
- (if (eof-object? #{x 4719}#)
- (begin
- (close-input-port #{p 4714}#)
- (reverse #{result 4720}#))
- (#{f 4718}#
- (read #{p 4714}#)
- (cons (datum->syntax #{k 4710}# #{x 4719}#)
- #{result 4720}#))))))
- (begin (#{f 4718}# (read #{p 4714}#) '()))))))))
- (begin
- (let ((#{tmp 4721}# #{x 4705}#))
- (let ((#{tmp 4722}#
- ($sc-dispatch #{tmp 4721}# '(any any))))
- (if #{tmp 4722}#
- (@apply
- (lambda (#{k 4725}# #{filename 4726}#)
- (begin
- (let ((#{fn 4728}# (syntax->datum #{filename 4726}#)))
- (let ((#{tmp 4730}#
- (#{read-file 4708}#
- #{fn 4728}#
- #{filename 4726}#)))
- (let ((#{tmp 4731}#
- ($sc-dispatch #{tmp 4730}# 'each-any)))
- (if #{tmp 4731}#
- (@apply
- (lambda (#{exp 4733}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(exp)
- #((top))
- #("i4732"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(fn)
- #((top))
- #("i4727"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i4723" "i4724"))
- #(ribcage
- (read-file)
- ((top))
- ("i4707"))
- #(ribcage
- #(x)
- #((top))
- #("i4706")))
- (hygiene guile))
- #{exp 4733}#))
- #{tmp 4731}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4730}#)))))))
- #{tmp 4722}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4721}#)))))))))
-
-(define include-from-path
- (make-syntax-transformer
- 'include-from-path
- 'macro
- (lambda (#{x 4735}#)
- (let ((#{tmp 4737}# #{x 4735}#))
- (let ((#{tmp 4738}#
- ($sc-dispatch #{tmp 4737}# '(any any))))
- (if #{tmp 4738}#
- (@apply
- (lambda (#{k 4741}# #{filename 4742}#)
- (begin
- (let ((#{fn 4744}# (syntax->datum #{filename 4742}#)))
- (let ((#{tmp 4746}#
- (datum->syntax
- #{filename 4742}#
- (begin
- (let ((#{t 4751}#
- (%search-load-path #{fn 4744}#)))
- (if #{t 4751}#
- #{t 4751}#
- (syntax-violation
- 'include-from-path
- "file not found in path"
- #{x 4735}#
- #{filename 4742}#)))))))
- (let ((#{fn 4748}# #{tmp 4746}#))
- (list '#(syntax-object
- include
- ((top)
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4747"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4743"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i4739" "i4740"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4736")))
- (hygiene guile))
- #{fn 4748}#))))))
- #{tmp 4738}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4737}#)))))))
-
-(define unquote
- (make-syntax-transformer
- 'unquote
- 'macro
- (lambda (#{x 4753}#)
- (syntax-violation
- 'unquote
- "expression not valid outside of quasiquote"
- #{x 4753}#))))
-
-(define unquote-splicing
- (make-syntax-transformer
- 'unquote-splicing
- 'macro
- (lambda (#{x 4755}#)
- (syntax-violation
- 'unquote-splicing
- "expression not valid outside of quasiquote"
- #{x 4755}#))))
-
-(define case
- (make-syntax-transformer
- 'case
- 'macro
- (lambda (#{x 4757}#)
- (let ((#{tmp 4759}# #{x 4757}#))
- (let ((#{tmp 4760}#
- ($sc-dispatch
- #{tmp 4759}#
- '(_ any any . each-any))))
- (if #{tmp 4760}#
- (@apply
- (lambda (#{e 4764}# #{m1 4765}# #{m2 4766}#)
- (let ((#{tmp 4768}#
- (letrec*
- ((#{f 4774}#
- (lambda (#{clause 4775}# #{clauses 4776}#)
- (if (null? #{clauses 4776}#)
- (let ((#{tmp 4778}# #{clause 4775}#))
- (let ((#{tmp 4779}#
- ($sc-dispatch
- #{tmp 4778}#
- '(#(free-id
- #(syntax-object
- else
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(f clause clauses)
- #((top) (top) (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4758")))
- (hygiene guile)))
- any
- .
- each-any))))
- (if #{tmp 4779}#
- (@apply
- (lambda (#{e1 4782}# #{e2 4783}#)
- (cons '#(syntax-object
- begin
+ (cons #{x 10680}#
+ #{stuff 10697}#)))
+ #{tmp 10695}#)
+ (list '#(syntax-object
+ "list*"
+ ((top)
+ #(ribcage
+ #(_)
+ #((top))
+ #("i10698"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10678" "i10679"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10673" "i10674"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{x 10680}#
+ #{y 10681}#)))))))))))
+ #{tmp 10677}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 10676}#))))))))
+ (#{quasiappend 10605}#
+ (lambda (#{x 10700}# #{y 10701}#)
+ (begin
+ (let ((#{tmp 10705}#
+ ($sc-dispatch #{y 10701}# '(#(atom "quote") ()))))
+ (if #{tmp 10705}#
+ (@apply
+ (lambda ()
+ (if (null? #{x 10700}#)
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10702" "i10703"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ ())
+ (if (null? (cdr #{x 10700}#))
+ (car #{x 10700}#)
+ (begin
+ (let ((#{tmp 10713}#
+ ($sc-dispatch #{x 10700}# 'each-any)))
+ (if #{tmp 10713}#
+ (@apply
+ (lambda (#{p 10715}#)
+ (cons '#(syntax-object
+ "append"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p)
+ #((top))
+ #("i10714"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10702" "i10703"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{p 10715}#))
+ #{tmp 10713}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{x 10700}#)))))))
+ #{tmp 10705}#)
+ (if (null? #{x 10700}#)
+ #{y 10701}#
+ (begin
+ (let ((#{tmp 10723}# (list #{x 10700}# #{y 10701}#)))
+ (begin
+ (let ((#{tmp 10724}#
+ ($sc-dispatch #{tmp 10723}# '(each-any any))))
+ (if #{tmp 10724}#
+ (@apply
+ (lambda (#{p 10727}# #{y 10728}#)
+ (cons '#(syntax-object
+ "append"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p y)
+ #((top) (top))
+ #("i10725" "i10726"))
+ #(ribcage #(_) #((top)) #("i10717"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("i10702" "i10703"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ (append
+ #{p 10727}#
+ (list #{y 10728}#))))
+ #{tmp 10724}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 10723}#))))))))))))
+ (#{quasilist* 10607}#
+ (lambda (#{x 10730}# #{y 10731}#)
+ (letrec*
+ ((#{f 10736}#
+ (lambda (#{x 10737}#)
+ (if (null? #{x 10737}#)
+ #{y 10731}#
+ (#{quasicons 10603}#
+ (car #{x 10737}#)
+ (#{f 10736}# (cdr #{x 10737}#)))))))
+ (begin (#{f 10736}# #{x 10730}#)))))
+ (#{quasivector 10609}#
+ (lambda (#{x 10738}#)
+ (begin
+ (let ((#{tmp 10741}#
+ ($sc-dispatch
+ #{x 10738}#
+ '(#(atom "quote") each-any))))
+ (if #{tmp 10741}#
+ (@apply
+ (lambda (#{x 10743}#)
+ (list '#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage #(x) #((top)) #("i10742"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10739"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ (list->vector #{x 10743}#)))
+ #{tmp 10741}#)
+ (letrec*
+ ((#{f 10750}#
+ (lambda (#{y 10751}# #{k 10752}#)
+ (begin
+ (let ((#{tmp 10764}#
+ ($sc-dispatch
+ #{y 10751}#
+ '(#(atom "quote") each-any))))
+ (if #{tmp 10764}#
+ (@apply
+ (lambda (#{y 10766}#)
+ (#{k 10752}#
+ (map (lambda (#{tmp 10767}#)
+ (list '#(syntax-object
+ "quote"
((top)
#(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4780" "i4781"))
+ #(y)
+ #((top))
+ #("i10765"))
#(ribcage () () ())
#(ribcage
- #(f clause clauses)
+ #(f y k)
#((top) (top) (top))
- #("i4771"
- "i4772"
- "i4773"))
+ #("i10747"
+ "i10748"
+ "i10749"))
#(ribcage
- #(e m1 m2)
- #((top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"))
+ #(_)
+ #((top))
+ #("i10745"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4758")))
+ #("i10739"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
(hygiene guile))
- (cons #{e1 4782}#
- #{e2 4783}#)))
- #{tmp 4779}#)
- (let ((#{tmp 4785}#
- ($sc-dispatch
- #{tmp 4778}#
- '(each-any any . each-any))))
- (if #{tmp 4785}#
- (@apply
- (lambda (#{k 4789}#
- #{e1 4790}#
- #{e2 4791}#)
- (list '#(syntax-object
- if
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top) (top) (top))
- #("i4786"
- "i4787"
- "i4788"))
- #(ribcage () () ())
- #(ribcage
- #(f clause clauses)
- #((top) (top) (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4758")))
- (hygiene guile))
- (list '#(syntax-object
- memv
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4786"
- "i4787"
- "i4788"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top)
- (top)
- (top))
- #("i4761"
- "i4762"
- "i4763"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4758")))
- (hygiene guile))
- '#(syntax-object
- t
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4786"
- "i4787"
- "i4788"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top)
- (top)
- (top))
- #("i4761"
- "i4762"
- "i4763"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4758")))
- (hygiene guile))
- (list
'#(syntax-object
- quote
+ #{tmp 10767}#))
+ #{y 10766}#)))
+ #{tmp 10764}#)
+ (begin
+ (let ((#{tmp 10768}#
+ ($sc-dispatch
+ #{y 10751}#
+ '(#(atom "list") . each-any))))
+ (if #{tmp 10768}#
+ (@apply
+ (lambda (#{y 10770}#)
+ (#{k 10752}# #{y 10770}#))
+ #{tmp 10768}#)
+ (begin
+ (let ((#{tmp 10772}#
+ ($sc-dispatch
+ #{y 10751}#
+ '(#(atom "list*")
+ .
+ #(each+ any (any) ())))))
+ (if #{tmp 10772}#
+ (@apply
+ (lambda (#{y 10775}# #{z 10776}#)
+ (#{f 10750}#
+ #{z 10776}#
+ (lambda (#{ls 10777}#)
+ (#{k 10752}#
+ (append
+ #{y 10775}#
+ #{ls 10777}#)))))
+ #{tmp 10772}#)
+ (list '#(syntax-object
+ "list->vector"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(#{ g10782}#)
+ #((m10783 top))
+ #("i10786"))
+ #(ribcage
+ #(else)
+ #((top))
+ #("i10780"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f y k)
+ #((top) (top) (top))
+ #("i10747"
+ "i10748"
+ "i10749"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("i10745"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10739"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{x 10738}#)))))))))))))
+ (begin
+ (#{f 10750}#
+ #{x 10738}#
+ (lambda (#{ls 10753}#)
+ (begin
+ (let ((#{tmp 10759}#
+ ($sc-dispatch #{ls 10753}# 'each-any)))
+ (if #{tmp 10759}#
+ (@apply
+ (lambda (#{ g10755 10761}#)
+ (cons '#(syntax-object
+ "vector"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(#{ g10755}#)
+ #((m10756 top))
+ #("i10760"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ls)
+ #((top))
+ #("i10754"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("i10745"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10739"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{ g10755 10761}#))
+ #{tmp 10759}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{ls 10753}#)))))))))))))
+ (#{emit 10611}#
+ (lambda (#{x 10788}#)
+ (begin
+ (let ((#{tmp 10791}#
+ ($sc-dispatch #{x 10788}# '(#(atom "quote") any))))
+ (if #{tmp 10791}#
+ (@apply
+ (lambda (#{x 10793}#)
+ (list '#(syntax-object
+ quote
+ ((top)
+ #(ribcage #(x) #((top)) #("i10792"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i10789"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{x 10793}#))
+ #{tmp 10791}#)
+ (begin
+ (let ((#{tmp 10794}#
+ ($sc-dispatch
+ #{x 10788}#
+ '(#(atom "list") . each-any))))
+ (if #{tmp 10794}#
+ (@apply
+ (lambda (#{x 10796}#)
+ (begin
+ (let ((#{tmp 10800}#
+ (map #{emit 10611}# #{x 10796}#)))
+ (begin
+ (let ((#{tmp 10801}#
+ ($sc-dispatch
+ #{tmp 10800}#
+ 'each-any)))
+ (if #{tmp 10801}#
+ (@apply
+ (lambda (#{ g10797 10803}#)
+ (cons '#(syntax-object
+ list
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(#{ g10797}#)
+ #((m10798 top))
+ #("i10802"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10795"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10789"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene guile))
+ #{ g10797 10803}#))
+ #{tmp 10801}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{tmp 10800}#)))))))
+ #{tmp 10794}#)
+ (begin
+ (let ((#{tmp 10806}#
+ ($sc-dispatch
+ #{x 10788}#
+ '(#(atom "list*")
+ .
+ #(each+ any (any) ())))))
+ (if #{tmp 10806}#
+ (@apply
+ (lambda (#{x 10809}# #{y 10810}#)
+ (letrec*
+ ((#{f 10813}#
+ (lambda (#{x* 10814}#)
+ (if (null? #{x* 10814}#)
+ (#{emit 10611}# #{y 10810}#)
+ (begin
+ (let ((#{tmp 10820}#
+ (list (#{emit 10611}#
+ (car #{x* 10814}#))
+ (#{f 10813}#
+ (cdr #{x*
10814}#)))))
+ (begin
+ (let ((#{tmp 10821}#
+ ($sc-dispatch
+ #{tmp 10820}#
+ '(any any))))
+ (if #{tmp 10821}#
+ (@apply
+ (lambda (#{ g10817
10824}#
+ #{ g10816
10825}#)
+ (list '#(syntax-object
+ cons
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(#{
g10817}#
+ #{
g10816}#)
+ #((m10818
+ top)
+ (m10818
+ top))
+ #("i10822"
+
"i10823"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f x*)
+ #((top)
+ (top))
+ #("i10811"
+
"i10812"))
+ #(ribcage
+ #(x y)
+ #((top)
+ (top))
+ #("i10807"
+
"i10808"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i10789"))
+ #(ribcage
+ (emit
quasivector
+
quasilist*
+
quasiappend
+
quasicons
+
vquasi
+
quasi)
((top)
- #(ribcage
- #(k
- e1
- e2)
- #((top)
- (top)
- (top))
-
#("i4786"
-
"i4787"
-
"i4788"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
-
clauses)
- #((top)
- (top)
- (top))
-
#("i4771"
-
"i4772"
-
"i4773"))
- #(ribcage
- #(e
- m1
- m2)
- #((top)
- (top)
- (top))
-
#("i4761"
-
"i4762"
-
"i4763"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
-
#("i4758")))
- (hygiene
- guile))
- #{k 4789}#))
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+
"i10598")))
+ (hygiene
+ guile))
+ #{ g10817 10824}#
+ #{ g10816
10825}#))
+ #{tmp 10821}#)
+ (syntax-violation
+ #f
+ "source expression
failed to match any pattern"
+ #{tmp 10820}#))))))))))
+ (begin (#{f 10813}# #{x 10809}#))))
+ #{tmp 10806}#)
+ (begin
+ (let ((#{tmp 10826}#
+ ($sc-dispatch
+ #{x 10788}#
+ '(#(atom "append") . each-any))))
+ (if #{tmp 10826}#
+ (@apply
+ (lambda (#{x 10828}#)
+ (begin
+ (let ((#{tmp 10832}#
+ (map #{emit 10611}#
+ #{x 10828}#)))
+ (begin
+ (let ((#{tmp 10833}#
+ ($sc-dispatch
+ #{tmp 10832}#
+ 'each-any)))
+ (if #{tmp 10833}#
+ (@apply
+ (lambda (#{ g10829 10835}#)
(cons '#(syntax-object
- begin
+ append
((top)
#(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4786"
- "i4787"
- "i4788"))
- #(ribcage
()
()
())
#(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top)
- (top)
- (top))
- #("i4761"
- "i4762"
- "i4763"))
- #(ribcage
- ()
- ()
- ())
+ #(#{ g10829}#)
+ #((m10830
+ top))
+ #("i10834"))
#(ribcage
#(x)
#((top))
- #("i4758")))
- (hygiene guile))
- (cons #{e1 4790}#
- #{e2
4791}#))))
- #{tmp 4785}#)
- (let ((#{_ 4795}# #{tmp 4778}#))
- (syntax-violation
- 'case
- "bad clause"
- #{x 4757}#
- #{clause 4775}#)))))))
- (let ((#{tmp 4797}#
- (#{f 4774}#
- (car #{clauses 4776}#)
- (cdr #{clauses 4776}#))))
- (let ((#{rest 4799}# #{tmp 4797}#))
- (let ((#{tmp 4800}# #{clause 4775}#))
- (let ((#{tmp 4801}#
- ($sc-dispatch
- #{tmp 4800}#
- '(each-any any . each-any))))
- (if #{tmp 4801}#
- (@apply
- (lambda (#{k 4805}#
- #{e1 4806}#
- #{e2 4807}#)
- (list '#(syntax-object
- if
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top) (top) (top))
- #("i4802"
- "i4803"
- "i4804"))
- #(ribcage () () ())
- #(ribcage
- #(rest)
- #((top))
- #("i4798"))
- #(ribcage () () ())
- #(ribcage
- #(f clause clauses)
- #((top) (top) (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4758")))
- (hygiene guile))
- (list '#(syntax-object
- memv
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4802"
- "i4803"
- "i4804"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(rest)
- #((top))
- #("i4798"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top)
- (top)
- (top))
- #("i4761"
- "i4762"
- "i4763"))
+ #("i10827"))
#(ribcage
()
()
@@ -17947,103 +32379,74 @@
#(ribcage
#(x)
#((top))
- #("i4758")))
- (hygiene guile))
- '#(syntax-object
- t
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4802"
- "i4803"
- "i4804"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(rest)
- #((top))
- #("i4798"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top)
- (top)
- (top))
- #("i4761"
- "i4762"
- "i4763"))
- #(ribcage
- ()
- ()
- ())
+ #("i10789"))
#(ribcage
- #(x)
- #((top))
- #("i4758")))
+ (emit
quasivector
+
quasilist*
+
quasiappend
+
quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
(hygiene guile))
- (list
'#(syntax-object
- quote
+ #{ g10829 10835}#))
+ #{tmp 10833}#)
+ (syntax-violation
+ #f
+ "source expression failed
to match any pattern"
+ #{tmp 10832}#)))))))
+ #{tmp 10826}#)
+ (begin
+ (let ((#{tmp 10838}#
+ ($sc-dispatch
+ #{x 10788}#
+ '(#(atom "vector")
+ .
+ each-any))))
+ (if #{tmp 10838}#
+ (@apply
+ (lambda (#{x 10840}#)
+ (begin
+ (let ((#{tmp 10844}#
+ (map #{emit 10611}#
+ #{x 10840}#)))
+ (begin
+ (let ((#{tmp 10845}#
+ ($sc-dispatch
+ #{tmp 10844}#
+ 'each-any)))
+ (if #{tmp 10845}#
+ (@apply
+ (lambda (#{ g10841
10847}#)
+ (cons
'#(syntax-object
+ vector
((top)
#(ribcage
- #(k
- e1
- e2)
- #((top)
- (top)
- (top))
-
#("i4802"
-
"i4803"
-
"i4804"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(rest)
- #((top))
-
#("i4798"))
- #(ribcage
()
()
())
#(ribcage
- #(f
- clause
-
clauses)
- #((top)
- (top)
- (top))
-
#("i4771"
-
"i4772"
-
"i4773"))
+ #(#{
g10841}#)
+
#((m10842
+
top))
+
#("i10846"))
#(ribcage
- #(e
- m1
- m2)
- #((top)
- (top)
- (top))
-
#("i4761"
-
"i4762"
-
"i4763"))
+ #(x)
+ #((top))
+
#("i10839"))
#(ribcage
()
()
@@ -18051,83 +32454,890 @@
#(ribcage
#(x)
#((top))
-
#("i4758")))
+
#("i10789"))
+ #(ribcage
+ (emit
quasivector
+
quasilist*
+
quasiappend
+
quasicons
+
vquasi
+
quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+
("i10610"
+
"i10608"
+
"i10606"
+
"i10604"
+
"i10602"
+
"i10600"
+
"i10598")))
(hygiene
guile))
- #{k 4805}#))
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4802"
- "i4803"
- "i4804"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(rest)
- #((top))
- #("i4798"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4771"
- "i4772"
- "i4773"))
- #(ribcage
- #(e m1 m2)
- #((top)
- (top)
- (top))
- #("i4761"
- "i4762"
- "i4763"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4758")))
- (hygiene guile))
- (cons #{e1 4806}#
- #{e2 4807}#))
- #{rest 4799}#))
- #{tmp 4801}#)
- (let ((#{_ 4811}# #{tmp 4800}#))
+ #{ g10841
10847}#))
+ #{tmp 10845}#)
+ (syntax-violation
+ #f
+ "source expression
failed to match any pattern"
+ #{tmp 10844}#)))))))
+ #{tmp 10838}#)
+ (begin
+ (let ((#{tmp 10850}#
+ ($sc-dispatch
+ #{x 10788}#
+ '(#(atom "list->vector")
+ any))))
+ (if #{tmp 10850}#
+ (@apply
+ (lambda (#{x 10852}#)
+ (begin
+ (let ((#{tmp 10856}#
+ (#{emit 10611}#
+ #{x 10852}#)))
+ (list '#(syntax-object
+ list->vector
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(#{
g10853}#)
+ #((m10854
+ top))
+ #("i10857"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10851"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10789"))
+ #(ribcage
+ (emit
quasivector
+
quasilist*
+
quasiappend
+
quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i10610"
+ "i10608"
+ "i10606"
+ "i10604"
+ "i10602"
+ "i10600"
+ "i10598")))
+ (hygiene
+ guile))
+ #{tmp 10856}#))))
+ #{tmp 10850}#)
+ (begin
+ (let ((#{tmp 10859}#
+ ($sc-dispatch
+ #{x 10788}#
+ '(#(atom "value")
+ any))))
+ (if #{tmp 10859}#
+ (@apply
+ (lambda (#{x 10861}#)
+ #{x 10861}#)
+ #{tmp 10859}#)
+ (syntax-violation
+ #f
+ "source expression
failed to match any pattern"
+ #{x
10788}#)))))))))))))))))))))))))
+ (begin
+ (lambda (#{x 10862}#)
+ (begin
+ (let ((#{tmp 10865}#
+ ($sc-dispatch #{x 10862}# '(_ any))))
+ (if #{tmp 10865}#
+ (@apply
+ (lambda (#{e 10867}#)
+ (#{emit 10611}# (#{quasi 10599}# #{e 10867}# 0)))
+ #{tmp 10865}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 10862}#)))))))))
+
+(define include
+ (make-syntax-transformer
+ 'include
+ 'macro
+ (lambda (#{x 10938}#)
+ (begin
+ (let ((#{tmp 10955}#
+ ($sc-dispatch #{x 10938}# '(any any))))
+ (if #{tmp 10955}#
+ (@apply
+ (lambda (#{k 10958}# #{filename 10959}#)
+ (begin
+ (let ((#{fn 10961}# (syntax->datum #{filename 10959}#)))
+ (begin
+ (let ((#{tmp 10963}#
+ (let ((#{fn 10942}# #{fn 10961}#)
+ (#{k 10943}# #{filename 10959}#))
+ (begin
+ (let ((#{p 10947}#
+ (open-input-file #{fn 10942}#)))
+ (letrec*
+ ((#{f 10951}#
+ (lambda (#{x 10952}# #{result 10953}#)
+ (if (eof-object? #{x 10952}#)
+ (begin
+ (close-input-port #{p 10947}#)
+ (reverse #{result 10953}#))
+ (#{f 10951}#
+ (read #{p 10947}#)
+ (cons (datum->syntax
+ #{k 10943}#
+ #{x 10952}#)
+ #{result 10953}#))))))
+ (begin
+ (#{f 10951}#
+ (read #{p 10947}#)
+ '()))))))))
+ (begin
+ (let ((#{tmp 10964}#
+ ($sc-dispatch #{tmp 10963}# 'each-any)))
+ (if #{tmp 10964}#
+ (@apply
+ (lambda (#{exp 10966}#)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(exp)
+ #((top))
+ #("i10965"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(fn)
+ #((top))
+ #("i10960"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
+ #("i10956" "i10957"))
+ #(ribcage
+ (read-file)
+ ((top))
+ ("i10940"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i10939")))
+ (hygiene guile))
+ #{exp 10966}#))
+ #{tmp 10964}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 10963}#)))))))))
+ #{tmp 10955}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 10938}#)))))))
+
+(define include-from-path
+ (make-syntax-transformer
+ 'include-from-path
+ 'macro
+ (lambda (#{x 11063}#)
+ (begin
+ (let ((#{tmp 11066}#
+ ($sc-dispatch #{x 11063}# '(any any))))
+ (if #{tmp 11066}#
+ (@apply
+ (lambda (#{k 11069}# #{filename 11070}#)
+ (begin
+ (let ((#{fn 11072}# (syntax->datum #{filename 11070}#)))
+ (begin
+ (let ((#{tmp 11074}#
+ (datum->syntax
+ #{filename 11070}#
+ (begin
+ (let ((#{t 11079}#
+ (%search-load-path #{fn 11072}#)))
+ (if #{t 11079}#
+ #{t 11079}#
+ (syntax-violation
+ 'include-from-path
+ "file not found in path"
+ #{x 11063}#
+ #{filename 11070}#)))))))
+ (list '#(syntax-object
+ include
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(fn) #((top)) #("i11075"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(fn) #((top)) #("i11071"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
+ #("i11067" "i11068"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11064")))
+ (hygiene guile))
+ #{tmp 11074}#))))))
+ #{tmp 11066}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 11063}#)))))))
+
+(define unquote
+ (make-syntax-transformer
+ 'unquote
+ 'macro
+ (lambda (#{x 11081}#)
+ (syntax-violation
+ 'unquote
+ "expression not valid outside of quasiquote"
+ #{x 11081}#))))
+
+(define unquote-splicing
+ (make-syntax-transformer
+ 'unquote-splicing
+ 'macro
+ (lambda (#{x 11083}#)
+ (syntax-violation
+ 'unquote-splicing
+ "expression not valid outside of quasiquote"
+ #{x 11083}#))))
+
+(define case
+ (make-syntax-transformer
+ 'case
+ 'macro
+ (lambda (#{x 11085}#)
+ (begin
+ (let ((#{tmp 11088}#
+ ($sc-dispatch
+ #{x 11085}#
+ '(_ any any . each-any))))
+ (if #{tmp 11088}#
+ (@apply
+ (lambda (#{e 11092}# #{m1 11093}# #{m2 11094}#)
+ (begin
+ (let ((#{tmp 11096}#
+ (letrec*
+ ((#{f 11102}#
+ (lambda (#{clause 11103}# #{clauses 11104}#)
+ (if (null? #{clauses 11104}#)
+ (begin
+ (let ((#{tmp 11107}#
+ ($sc-dispatch
+ #{clause 11103}#
+ '(#(free-id
+ #(syntax-object
+ else
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(f clause clauses)
+ #((top) (top) (top))
+ #("i11099"
+ "i11100"
+ "i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i11089"
+ "i11090"
+ "i11091"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11086")))
+ (hygiene guile)))
+ any
+ .
+ each-any))))
+ (if #{tmp 11107}#
+ (@apply
+ (lambda (#{e1 11110}# #{e2 11111}#)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("i11108" "i11109"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f clause clauses)
+ #((top) (top) (top))
+ #("i11099"
+ "i11100"
+ "i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i11089"
+ "i11090"
+ "i11091"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11086")))
+ (hygiene guile))
+ (cons #{e1 11110}#
+ #{e2 11111}#)))
+ #{tmp 11107}#)
+ (begin
+ (let ((#{tmp 11113}#
+ ($sc-dispatch
+ #{clause 11103}#
+ '(each-any
+ any
+ .
+ each-any))))
+ (if #{tmp 11113}#
+ (@apply
+ (lambda (#{k 11117}#
+ #{e1 11118}#
+ #{e2 11119}#)
+ (list '#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("i11114"
+ "i11115"
+ "i11116"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("i11099"
+ "i11100"
+ "i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("i11089"
+ "i11090"
+ "i11091"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11086")))
+ (hygiene guile))
+ (list '#(syntax-object
+ memv
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("i11114"
+ "i11115"
+
"i11116"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("i11099"
+ "i11100"
+
"i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("i11089"
+ "i11090"
+
"i11091"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i11086")))
+ (hygiene
+ guile))
+ '#(syntax-object
+ t
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("i11114"
+ "i11115"
+
"i11116"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("i11099"
+ "i11100"
+
"i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("i11089"
+ "i11090"
+
"i11091"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i11086")))
+ (hygiene
+ guile))
+ (list
'#(syntax-object
+ quote
+ ((top)
+
#(ribcage
+ #(k
+ e1
+
e2)
+
#((top)
+
(top)
+
(top))
+
#("i11114"
+
"i11115"
+
"i11116"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(f
+
clause
+
clauses)
+
#((top)
+
(top)
+
(top))
+
#("i11099"
+
"i11100"
+
"i11101"))
+
#(ribcage
+ #(e
+ m1
+
m2)
+
#((top)
+
(top)
+
(top))
+
#("i11089"
+
"i11090"
+
"i11091"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i11086")))
+
(hygiene
+
guile))
+ #{k
11117}#))
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("i11114"
+ "i11115"
+
"i11116"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("i11099"
+ "i11100"
+
"i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("i11089"
+ "i11090"
+
"i11091"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i11086")))
+ (hygiene
+ guile))
+ (cons #{e1
11118}#
+ #{e2
11119}#))))
+ #{tmp 11113}#)
+ (syntax-violation
+ 'case
+ "bad clause"
+ #{x 11085}#
+ #{clause 11103}#)))))))
+ (begin
+ (let ((#{tmp 11125}#
+ (#{f 11102}#
+ (car #{clauses 11104}#)
+ (cdr #{clauses 11104}#))))
+ (begin
+ (let ((#{tmp 11129}#
+ ($sc-dispatch
+ #{clause 11103}#
+ '(each-any
+ any
+ .
+ each-any))))
+ (if #{tmp 11129}#
+ (@apply
+ (lambda (#{k 11133}#
+ #{e1 11134}#
+ #{e2 11135}#)
+ (list '#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("i11130"
+ "i11131"
+ "i11132"))
+ #(ribcage () () ())
+ #(ribcage
+ #(rest)
+ #((top))
+ #("i11126"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("i11099"
+ "i11100"
+ "i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("i11089"
+ "i11090"
+ "i11091"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11086")))
+ (hygiene guile))
+ (list '#(syntax-object
+ memv
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("i11130"
+ "i11131"
+ "i11132"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(rest)
+ #((top))
+ #("i11126"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("i11099"
+ "i11100"
+ "i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("i11089"
+ "i11090"
+ "i11091"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i11086")))
+ (hygiene
+ guile))
+ '#(syntax-object
+ t
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("i11130"
+ "i11131"
+ "i11132"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(rest)
+ #((top))
+ #("i11126"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("i11099"
+ "i11100"
+ "i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("i11089"
+ "i11090"
+ "i11091"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i11086")))
+ (hygiene
+ guile))
+ (list
'#(syntax-object
+ quote
+ ((top)
+
#(ribcage
+ #(k
+ e1
+ e2)
+
#((top)
+
(top)
+
(top))
+
#("i11130"
+
"i11131"
+
"i11132"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+
#(rest)
+
#((top))
+
#("i11126"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(f
+
clause
+
clauses)
+
#((top)
+
(top)
+
(top))
+
#("i11099"
+
"i11100"
+
"i11101"))
+
#(ribcage
+ #(e
+ m1
+ m2)
+
#((top)
+
(top)
+
(top))
+
#("i11089"
+
"i11090"
+
"i11091"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i11086")))
+ (hygiene
+ guile))
+ #{k
11133}#))
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("i11130"
+ "i11131"
+ "i11132"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(rest)
+ #((top))
+ #("i11126"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("i11099"
+ "i11100"
+ "i11101"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("i11089"
+ "i11090"
+ "i11091"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i11086")))
+ (hygiene
+ guile))
+ (cons #{e1 11134}#
+ #{e2
11135}#))
+ #{tmp 11125}#))
+ #{tmp 11129}#)
(syntax-violation
'case
"bad clause"
- #{x 4757}#
- #{clause 4775}#)))))))))))
- (begin (#{f 4774}# #{m1 4765}# #{m2 4766}#)))))
- (let ((#{body 4770}# #{tmp 4768}#))
+ #{x 11085}#
+ #{clause 11103}#))))))))))
+ (begin (#{f 11102}# #{m1 11093}# #{m2 11094}#)))))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i4769"))
+ #(ribcage #(body) #((top)) #("i11097"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4761" "i4762" "i4763"))
+ #("i11089" "i11090" "i11091"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4758")))
+ #(ribcage #(x) #((top)) #("i11086")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -18136,658 +33346,703 @@
#(ribcage
#(body)
#((top))
- #("i4769"))
+ #("i11097"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4761" "i4762" "i4763"))
+ #("i11089" "i11090" "i11091"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4758")))
+ #(ribcage #(x) #((top)) #("i11086")))
(hygiene guile))
- #{e 4764}#))
- #{body 4770}#))))
- #{tmp 4760}#)
+ #{e 11092}#))
+ #{tmp 11096}#))))
+ #{tmp 11088}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4759}#)))))))
+ #{x 11085}#)))))))
(define make-variable-transformer
- (lambda (#{proc 4812}#)
- (if (procedure? #{proc 4812}#)
+ (lambda (#{proc 11141}#)
+ (if (procedure? #{proc 11141}#)
(begin
(letrec*
- ((#{trans 4815}#
- (lambda (#{x 4816}#) (#{proc 4812}# #{x 4816}#))))
+ ((#{trans 11144}#
+ (lambda (#{x 11145}#)
+ (#{proc 11141}# #{x 11145}#))))
(begin
(set-procedure-property!
- #{trans 4815}#
+ #{trans 11144}#
'variable-transformer
#t)
- #{trans 4815}#)))
+ #{trans 11144}#)))
(error "variable transformer not a procedure"
- #{proc 4812}#))))
+ #{proc 11141}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 4818}#)
- (let ((#{tmp 4820}# #{x 4818}#))
- (let ((#{tmp 4821}#
- ($sc-dispatch #{tmp 4820}# '(_ any))))
- (if #{tmp 4821}#
+ (lambda (#{x 11151}#)
+ (begin
+ (let ((#{tmp 11154}#
+ ($sc-dispatch #{x 11151}# '(_ any))))
+ (if #{tmp 11154}#
(@apply
- (lambda (#{e 4823}#)
+ (lambda (#{e 11156}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage
+ #(e)
+ #((top))
+ #("i11155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4819")))
+ #("i11152")))
(hygiene guile))
- #{e 4823}#))
+ #{e 11156}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4822"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
+ #(ribcage #(x) #((top)) #("i11152")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4822"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile)))
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage #(e) #((top)) #("i4822"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- (cons #{e 4823}#
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(e)
- #((top))
- #("i4822"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- #(syntax-object
- ...
- ((top)
- #(ribcage
- #(e)
- #((top))
- #("i4822"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile)))))))))
- #{tmp 4821}#)
- (let ((#{tmp 4824}#
- ($sc-dispatch
- #{tmp 4820}#
- '(_ (any any)
- ((#(free-id
- #(syntax-object
- set!
- ((top)
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile)))
- any
- any)
- any)))))
- (if (if #{tmp 4824}#
- (@apply
- (lambda (#{id 4830}#
- #{exp1 4831}#
- #{var 4832}#
- #{val 4833}#
- #{exp2 4834}#)
- (if (identifier? #{id 4830}#)
- (identifier? #{var 4832}#)
- #f))
- #{tmp 4824}#)
- #f)
- (@apply
- (lambda (#{id 4842}#
- #{exp1 4843}#
- #{var 4844}#
- #{val 4845}#
- #{exp2 4846}#)
- (list '#(syntax-object
- make-variable-transformer
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top) (top) (top) (top) (top))
- #("i4837" "i4838" "i4839" "i4840" "i4841"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile))
- (list '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top) (top) (top) (top) (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile))
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top) (top) (top) (top) (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile)))
- '#((#(syntax-object
- macro-type
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top) (top) (top) (top) (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile))
- .
- #(syntax-object
- variable-transformer
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top) (top) (top) (top) (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
+ #(ribcage #(e) #((top)) #("i11155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile))))
- (list '#(syntax-object
- syntax-case
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top) (top) (top) (top) (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile))
- '#(syntax-object
- x
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top) (top) (top) (top) (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile))
- '(#(syntax-object
- set!
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top) (top) (top) (top) (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4819")))
- (hygiene guile)))
- (list (list '#(syntax-object
- set!
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- #{var 4844}#
- #{val 4845}#)
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- #{exp2 4846}#))
- (list (cons #{id 4842}#
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(id
- exp1
- var
- val
- exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- #(syntax-object
- ...
- ((top)
- #(ribcage
- #(id
- exp1
- var
- val
- exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))))
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- (cons #{exp1 4843}#
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(id
- exp1
- var
- val
- exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- #(syntax-object
- ...
- ((top)
- #(ribcage
- #(id
- exp1
- var
- val
- exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene
- guile))))))
- (list #{id 4842}#
- (list '#(syntax-object
- identifier?
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(id
- exp1
- var
- val
- exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- #{id 4842}#))
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4837"
- "i4838"
- "i4839"
- "i4840"
- "i4841"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4819")))
- (hygiene guile))
- #{exp1 4843}#))))))
- #{tmp 4824}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4820}#)))))))))
+ #(ribcage #(x) #((top)) #("i11152")))
+ (hygiene guile)))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(e)
+ #((top))
+ #("i11155"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ (cons #{e 11156}#
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(e)
+ #((top))
+ #("i11155"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(e)
+ #((top))
+ #("i11155"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile)))))))))
+ #{tmp 11154}#)
+ (begin
+ (let ((#{tmp 11157}#
+ ($sc-dispatch
+ #{x 11151}#
+ '(_ (any any)
+ ((#(free-id
+ #(syntax-object
+ set!
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11152")))
+ (hygiene guile)))
+ any
+ any)
+ any)))))
+ (if (if #{tmp 11157}#
+ (@apply
+ (lambda (#{id 11163}#
+ #{exp1 11164}#
+ #{var 11165}#
+ #{val 11166}#
+ #{exp2 11167}#)
+ (if (identifier? #{id 11163}#)
+ (identifier? #{var 11165}#)
+ #f))
+ #{tmp 11157}#)
+ #f)
+ (@apply
+ (lambda (#{id 11175}#
+ #{exp1 11176}#
+ #{var 11177}#
+ #{val 11178}#
+ #{exp2 11179}#)
+ (list '#(syntax-object
+ make-variable-transformer
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11152")))
+ (hygiene guile))
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11152")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11152")))
+ (hygiene guile)))
+ '#((#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11152")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ variable-transformer
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11152")))
+ (hygiene guile))))
+ (list '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ '#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ '(#(syntax-object
+ set!
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile)))
+ (list (list '#(syntax-object
+ set!
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ #{var 11177}#
+ #{val 11178}#)
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ #{exp2 11179}#))
+ (list (cons #{id 11175}#
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ (cons #{exp1 11176}#
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene
+ guile))))))
+ (list #{id 11175}#
+ (list '#(syntax-object
+ identifier?
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ #{id 11175}#))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i11170"
+ "i11171"
+ "i11172"
+ "i11173"
+ "i11174"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i11152")))
+ (hygiene guile))
+ #{exp1 11176}#))))))
+ #{tmp 11157}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 11151}#))))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 4847}#)
- (let ((#{tmp 4849}# #{x 4847}#))
- (let ((#{tmp 4850}#
+ (lambda (#{x 11180}#)
+ (begin
+ (let ((#{tmp 11183}#
($sc-dispatch
- #{tmp 4849}#
+ #{x 11180}#
'(_ (any . any) any . each-any))))
- (if #{tmp 4850}#
+ (if #{tmp 11183}#
(@apply
- (lambda (#{id 4855}#
- #{args 4856}#
- #{b0 4857}#
- #{b1 4858}#)
+ (lambda (#{id 11188}#
+ #{args 11189}#
+ #{b0 11190}#
+ #{b1 11191}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4851" "i4852" "i4853" "i4854"))
+ #("i11184" "i11185" "i11186" "i11187"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4848")))
+ #(ribcage #(x) #((top)) #("i11181")))
(hygiene guile))
- #{id 4855}#
+ #{id 11188}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4851" "i4852" "i4853" "i4854"))
+ #("i11184" "i11185" "i11186" "i11187"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4848")))
+ #(ribcage #(x) #((top)) #("i11181")))
(hygiene guile))
- (cons #{args 4856}#
- (cons #{b0 4857}# #{b1 4858}#)))))
- #{tmp 4850}#)
- (let ((#{tmp 4860}#
- ($sc-dispatch #{tmp 4849}# '(_ any any))))
- (if (if #{tmp 4860}#
- (@apply
- (lambda (#{id 4863}# #{val 4864}#)
- (identifier?
- '#(syntax-object
- x
- ((top)
- #(ribcage
- #(id val)
- #((top) (top))
- #("i4861" "i4862"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4848")))
- (hygiene guile))))
- #{tmp 4860}#)
- #f)
- (@apply
- (lambda (#{id 4867}# #{val 4868}#)
- (list '#(syntax-object
- define
- ((top)
- #(ribcage
- #(id val)
- #((top) (top))
- #("i4865" "i4866"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4848")))
- (hygiene guile))
- #{id 4867}#
- #{val 4868}#))
- #{tmp 4860}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4849}#)))))))))
+ (cons #{args 11189}#
+ (cons #{b0 11190}# #{b1 11191}#)))))
+ #{tmp 11183}#)
+ (begin
+ (let ((#{tmp 11193}#
+ ($sc-dispatch #{x 11180}# '(_ any any))))
+ (if (if #{tmp 11193}#
+ (@apply
+ (lambda (#{id 11196}# #{val 11197}#)
+ (identifier?
+ '#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(id val)
+ #((top) (top))
+ #("i11194" "i11195"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11181")))
+ (hygiene guile))))
+ #{tmp 11193}#)
+ #f)
+ (@apply
+ (lambda (#{id 11200}# #{val 11201}#)
+ (list '#(syntax-object
+ define
+ ((top)
+ #(ribcage
+ #(id val)
+ #((top) (top))
+ #("i11198" "i11199"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i11181")))
+ (hygiene guile))
+ #{id 11200}#
+ #{val 11201}#))
+ #{tmp 11193}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 11180}#))))))))))
diff --git a/module/language/tree-il.scm b/module/language/tree-il.scm
index 580ebda..da51152 100644
--- a/module/language/tree-il.scm
+++ b/module/language/tree-il.scm
@@ -322,7 +322,7 @@
`(dynref ,(unparse-tree-il fluid)))
((<dynset> fluid exp)
- `(dynref ,(unparse-tree-il fluid) ,(unparse-tree-il exp)))
+ `(dynset ,(unparse-tree-il fluid) ,(unparse-tree-il exp)))
((<prompt> tag body handler)
`(prompt ,(unparse-tree-il tag) ,(unparse-tree-il body) ,(unparse-tree-il
handler)))
diff --git a/module/language/tree-il/optimize.scm
b/module/language/tree-il/optimize.scm
index d097331..fee629a 100644
--- a/module/language/tree-il/optimize.scm
+++ b/module/language/tree-il/optimize.scm
@@ -145,6 +145,8 @@ references to the new symbols."
(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)
@@ -154,7 +156,13 @@ references to the new symbols."
(make-application src (loop proc mapping)
(map (cut loop <> mapping) args)))
(($ <sequence> src exps)
- (make-sequence src (map (cut loop <> mapping) 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-syntax-rule (let/ec k e e* ...)
(let ((tag (make-prompt-tag)))
@@ -288,6 +296,16 @@ references to the new symbols."
(transfer! current c effort-limit size-limit)
c))
+(define (types-check? primitive-name args)
+ (case primitive-name
+ ((values) #t)
+ ((not pair? null? list? symbol? vector? struct?)
+ (= (length args) 1))
+ ((eq? eqv? equal?)
+ (= (length args) 2))
+ ;; FIXME: add more cases?
+ (else #f)))
+
(define* (peval exp #:optional (cenv (current-module)) (env vlist-null)
#:key
(operator-size-limit 40)
@@ -379,11 +397,12 @@ it does not handle <fix> and <let-values>, it should be
called before
($ <lexical-set>) ; FIXME: these set! expressions
($ <toplevel-set>) ; could return zero values in
($ <toplevel-define>) ; the future
- ($ <module-set>)) ;
+ ($ <module-set>) ;
+ ($ <dynset>)) ;
(and (= (length names) 1)
(make-let src names gensyms (list exp) body)))
(($ <application> src
- ($ <primitive-ref> _ (? singly-valued-primitive? name)))
+ ($ <primitive-ref> _ (? singly-valued-primitive? name)))
(and (= (length names) 1)
(make-let src names gensyms (list exp) body)))
@@ -398,6 +417,10 @@ it does not handle <fix> and <let-values>, it should be
called before
;; Bail on other applications.
(($ <application>) #f)
+ ;; Bail on prompt and abort.
+ (($ <prompt>) #f)
+ (($ <abort>) #f)
+
;; Propagate to tail positions.
(($ <let> src names gensyms vals body)
(let ((body (loop body)))
@@ -435,8 +458,8 @@ it does not handle <fix> and <let-values>, it should be
called before
(define (make-values src values)
(match values
- ((single) single) ; 1 value
- ((_ ...) ; 0, or 2 or more values
+ ((single) single) ; 1 value
+ ((_ ...) ; 0, or 2 or more values
(make-application src (make-primitive-ref src 'values)
values))))
@@ -459,6 +482,7 @@ it does not handle <fix> and <let-values>, it should be
called before
(($ <application> _ ($ <primitive-ref> _ name) args)
(and (effect-free-primitive? name)
(not (constructor-primitive? name))
+ (types-check? name args)
(every loop args)))
(($ <application> _ ($ <lambda> _ _ body) args)
(and (loop body) (every loop args)))
@@ -472,8 +496,36 @@ it does not handle <fix> and <let-values>, it should be
called before
(and (every loop vals) (loop body)))
(($ <let-values> _ exp body)
(and (loop exp) (loop body)))
+ (($ <prompt> _ tag body handler)
+ (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*)
+ 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)
+ effects
+ (cons effect effects)))))))))
+
(define (small-expression? x limit)
(let/ec k
(tree-il-fold
@@ -488,453 +540,458 @@ it does not handle <fix> and <let-values>, it should be
called before
0 x)
#t))
- (define (make-value-construction src exp)
- ;; Return an expression that builds a fresh copy of EXP at run-time,
- ;; or #f.
- (let loop ((exp exp))
- (match exp
- ((_ _ ...) ; non-empty proper list
- (let ((args (map loop exp)))
- (and (every struct? args)
- (make-application src (make-primitive-ref src 'list)
- args))))
- ((h . (? (negate pair?) t)) ; simple pair
- (let ((h (loop h))
- (t (loop t)))
- (and h t
- (make-application src (make-primitive-ref src 'cons)
- (list h t)))))
- ((? vector?) ; vector
- (let ((args (map loop (vector->list exp))))
- (and (every struct? args)
- (make-application src (make-primitive-ref src 'vector)
- args))))
- ((? number?) (make-const src exp))
- ((? string?) (make-const src exp))
- ((? symbol?) (make-const src exp))
- ;((? bytevector?) (make-const src exp))
- (_ #f))))
+ (let loop ((exp exp)
+ (env vlist-null) ; static environment
+ (counter #f) ; inlined call stack
+ (ctx 'value)) ; effect, value, test, operator, or operand
+ (define (lookup var)
+ (and=> (vhash-assq var env) cdr))
+
+ (define (for-value exp)
+ (loop exp env counter 'value))
+ (define (for-operand exp)
+ (loop exp env counter 'operand))
+ (define (for-test exp)
+ (loop exp env counter 'test))
+ (define (for-effect exp)
+ (loop exp env counter 'effect))
+ (define (for-tail exp)
+ (loop exp env counter ctx))
+
+ (if counter
+ (record-effort! counter))
- (catch 'match-error
- (lambda ()
- (let loop ((exp exp)
- (env vlist-null) ; static environment
- (counter #f) ; inlined call stack
- (ctx 'value)) ; effect, value, test, operator, or
operand
- (define (lookup var)
- (and=> (vhash-assq var env) cdr))
-
- (define (for-value exp)
- (loop exp env counter 'value))
- (define (for-operand exp)
- (loop exp env counter 'operand))
- (define (for-test exp)
- (loop exp env counter 'test))
- (define (for-effect exp)
- (loop exp env counter 'effect))
- (define (for-tail exp)
- (loop exp env counter ctx))
-
- (if counter
- (record-effort! counter))
-
- (match exp
- (($ <const>)
- (case ctx
- ((effect) (make-void #f))
- (else exp)))
- (($ <void>)
- (case ctx
- ((test) (make-const #f #t))
- (else exp)))
- (($ <lexical-ref> _ _ gensym)
- (case ctx
- ((effect) (make-void #f))
+ (match exp
+ (($ <const>)
+ (case ctx
+ ((effect) (make-void #f))
+ (else exp)))
+ (($ <void>)
+ (case ctx
+ ((test) (make-const #f #t))
+ (else exp)))
+ (($ <lexical-ref> _ _ gensym)
+ (case ctx
+ ((effect) (make-void #f))
+ (else
+ (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.
+ (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.
+ (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.
+ (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))
+ (record-source-expression! val (alpha-rename val))
+ (begin
+ (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)
+ (record-source-expression! val (alpha-rename val))
+ (begin
+ (record-residual-lexical-reference! gensym)
+ exp)))
(else
- (let ((val (lookup gensym)))
+ ;; 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)))
+ (record-source-expression! val (alpha-rename val))
+ (begin
+ (record-residual-lexical-reference! gensym)
+ exp))))))))
+ (($ <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> src names gensyms vals body)
+ (let* ((vals (map for-operand vals))
+ (body (loop body
+ (fold vhash-consq env gensyms vals)
+ counter
+ ctx)))
+ (cond
+ ((const? body)
+ (for-tail (make-sequence src (append vals (list body)))))
+ ((and (lexical-ref? body)
+ (memq (lexical-ref-gensym body) gensyms))
+ (let ((sym (lexical-ref-gensym body))
+ (pairs (map cons gensyms vals)))
+ ;; (let ((x foo) (y bar) ...) x) => (begin bar ... foo)
+ (for-tail
+ (make-sequence
+ src
+ (append (map cdr (alist-delete sym pairs eq?))
+ (list (assq-ref pairs sym)))))))
+ (else
+ ;; Only include bindings for which lexical references
+ ;; have been residualized.
+ (prune-bindings names gensyms vals body for-effect
+ (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)
+ (every constant-expression? vals))
+ body
+ (prune-bindings names gensyms vals body for-effect
+ (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
+ (lambda (names gensyms vals body)
+ (make-fix src names gensyms vals body))))))
+ (($ <let-values> lv-src producer consumer)
+ ;; Peval the producer, then try to inline the consumer into
+ ;; the producer. If that succeeds, peval again. Otherwise
+ ;; reconstruct the let-values, pevaling the consumer.
+ (let ((producer (for-value producer)))
+ (or (match consumer
+ (($ <lambda-case> src req #f #f #f () gensyms body #f)
(cond
- ((or (not val)
- (assigned-lexical? gensym)
- (not (constant-expression? val)))
- ;; Don't copy-propagate through assigned variables,
- ;; and don't reorder effects.
- (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.
- (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.
- (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))
- (record-source-expression! val (alpha-rename val))
- (begin
- (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)
- (record-source-expression! val (alpha-rename val))
- (begin
- (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)))
- (record-source-expression! val (alpha-rename val))
- (begin
- (record-residual-lexical-reference! gensym)
- exp))))))))
- (($ <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> src names gensyms vals body)
- (let* ((vals (map for-operand vals))
- (body (loop body
- (fold vhash-consq env gensyms vals)
- counter
- ctx)))
- (cond
- ((const? body)
- (for-tail (make-sequence src (append vals (list body)))))
- ((and (lexical-ref? body)
- (memq (lexical-ref-gensym body) gensyms))
- (let ((sym (lexical-ref-gensym body))
- (pairs (map cons gensyms vals)))
- ;; (let ((x foo) (y bar) ...) x) => (begin bar ... foo)
- (for-tail
- (make-sequence
- src
- (append (map cdr (alist-delete sym pairs eq?))
- (list (assq-ref pairs sym)))))))
+ ((inline-values producer src req gensyms body)
+ => for-tail)
+ (else #f)))
+ (_ #f))
+ (make-let-values lv-src producer (for-tail consumer)))))
+ (($ <dynwind> src winder body unwinder)
+ (make-dynwind src (for-value winder) (for-tail body)
+ (for-value unwinder)))
+ (($ <dynlet> src fluids vals body)
+ (make-dynlet src (map for-value fluids) (map for-value vals)
+ (for-tail body)))
+ (($ <dynref> src fluid)
+ (make-dynref src (for-value fluid)))
+ (($ <dynset> src fluid exp)
+ (make-dynset src (for-value fluid) (for-value exp)))
+ (($ <toplevel-ref> src (? effect-free-primitive? name))
+ (if (local-toplevel? name)
+ exp
+ (resolve-primitives! exp cenv)))
+ (($ <toplevel-ref>)
+ ;; todo: open private local bindings.
+ exp)
+ (($ <module-ref>)
+ exp)
+ (($ <module-set> src mod name public? exp)
+ (make-module-set src mod name public? (for-value exp)))
+ (($ <toplevel-define> src name exp)
+ (make-toplevel-define src name (for-value exp)))
+ (($ <toplevel-set> src name exp)
+ (make-toplevel-set src name (for-value exp)))
+ (($ <primitive-ref>)
+ (case ctx
+ ((effect) (make-void #f))
+ ((test) (make-const #f #t))
+ (else exp)))
+ (($ <conditional> src condition subsequent alternate)
+ (let ((condition (for-test condition)))
+ (if (const? condition)
+ (if (const-exp condition)
+ (for-tail subsequent)
+ (for-tail alternate))
+ (make-conditional src condition
+ (for-tail subsequent)
+ (for-tail alternate)))))
+ (($ <application> src
+ ($ <primitive-ref> _ '@call-with-values)
+ (producer
+ ($ <lambda> _ _
+ (and consumer
+ ;; No optional or kwargs.
+ ($ <lambda-case>
+ _ req #f rest #f () gensyms body #f)))))
+ (for-tail (make-let-values src (make-application src producer '())
+ consumer)))
+
+ (($ <application> src orig-proc orig-args)
+ ;; todo: augment the global env with specialized functions
+ (let ((proc (loop orig-proc env counter '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
- ;; Only include bindings for which lexical references
- ;; have been residualized.
- (let*-values
- (((stripped) (remove
- (lambda (x)
- (and (not (hashq-ref
- residual-lexical-references
- (cadr x)))
- ;; FIXME: Here we can probably
- ;; strip pure expressions in
- ;; addition to constant
- ;; expressions.
- (constant-expression? (car x))))
- (zip vals gensyms names)))
- ((vals gensyms names) (unzip3 stripped)))
- (if (null? stripped)
- body
- (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)
- (every constant-expression? vals))
- body
- (let*-values
- (((stripped) (remove
- (lambda (x)
- (and (constant-expression? (car x))
- (not (hashq-ref
- residual-lexical-references
- (cadr x)))))
- (zip vals gensyms names)))
- ((vals gensyms names) (unzip3 stripped)))
- (if (null? stripped)
- 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
- (make-fix src names gensyms vals body))))
- (($ <let-values> lv-src producer consumer)
- ;; Peval the producer, then try to inline the consumer into
- ;; the producer. If that succeeds, peval again. Otherwise
- ;; reconstruct the let-values, pevaling the consumer.
- (let ((producer (for-value producer)))
- (or (match consumer
- (($ <lambda-case> src req #f #f #f () gensyms body #f)
- (cond
- ((inline-values producer src req gensyms body)
- => for-tail)
- (else #f)))
- (_ #f))
- (make-let-values lv-src producer (for-tail consumer)))))
- (($ <dynwind> src winder body unwinder)
- (make-dynwind src (for-value winder) (for-tail body)
- (for-value unwinder)))
- (($ <dynlet> src fluids vals body)
- (make-dynlet src (map for-value fluids) (map for-value vals)
- (for-tail body)))
- (($ <dynref> src fluid)
- (make-dynref src (for-value fluid)))
- (($ <toplevel-ref> src (? effect-free-primitive? name))
- (if (local-toplevel? name)
- exp
- (resolve-primitives! exp cenv)))
- (($ <toplevel-ref>)
- ;; todo: open private local bindings.
- exp)
- (($ <module-ref>)
- exp)
- (($ <module-set> src mod name public? exp)
- (make-module-set src mod name public? (for-value exp)))
- (($ <toplevel-define> src name exp)
- (make-toplevel-define src name (for-value exp)))
- (($ <toplevel-set> src name exp)
- (make-toplevel-set src name (for-value exp)))
- (($ <primitive-ref>)
- (case ctx
- ((effect) (make-void #f))
- ((test) (make-const #f #t))
- (else exp)))
- (($ <conditional> src condition subsequent alternate)
- (let ((condition (for-test condition)))
- (if (const? condition)
- (if (const-exp condition)
- (for-tail subsequent)
- (for-tail alternate))
- (make-conditional src condition
- (for-tail subsequent)
- (for-tail alternate)))))
- (($ <application> src
- ($ <primitive-ref> _ '@call-with-values)
- (producer
- ($ <lambda> _ _
- (and consumer
- ;; No optional or kwargs.
- ($ <lambda-case>
- _ req #f rest #f () gensyms body #f)))))
- (for-tail (make-let-values src (make-application src producer '())
- consumer)))
-
- (($ <application> src orig-proc orig-args)
- ;; todo: augment the global env with specialized functions
- (let ((proc (loop orig-proc env counter 'operator)))
- (match proc
- (($ <primitive-ref> _ (? constructor-primitive? name))
- (case ctx
- ((effect test)
- (let ((exp (for-value exp))
- (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)))))
- (_ exp))))
- (else
- (match (cons name (map for-value orig-args))
- (('cons head tail)
- (let ((tail (for-value 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))))))
-
- (('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))))
+ (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)))))
- (('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))))))
- (($ <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))))
- (if success?
- (case ctx
- ((effect) (make-void #f))
- ((test)
- ;; Values truncation: only take the first
- ;; value.
- (if (pair? values)
- (make-const #f (car values))
- (make-values src '())))
- (else
- (make-values src (map (cut make-const src <>)
- values))))
- (make-application src proc args)))
- (make-application src proc args))))
- (($ <lambda> _ _
- ($ <lambda-case> _ req opt #f #f inits gensyms body #f))
- ;; Simple case: no rest, no keyword arguments.
- ;; todo: handle the more complex cases
- (let* ((nargs (length orig-args))
- (nreq (length req))
- (nopt (if opt (length opt) 0))
- (key (source-expression proc)))
+ (('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))))))
+ (($ <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))))
+ (if success?
+ (case ctx
+ ((effect) (make-void #f))
+ ((test)
+ ;; Values truncation: only take the first
+ ;; value.
+ (if (pair? values)
+ (make-const #f (car values))
+ (make-values src '())))
+ (else
+ (make-values src (map (cut make-const src <>)
+ values))))
+ (make-application src proc args)))
(cond
- ((or (< nargs nreq) (> nargs (+ nreq nopt)))
- ;; An error, or effecting arguments.
- (make-application src (for-value orig-proc)
- (map for-value orig-args)))
- ((and=> (find-counter key counter) counter-recursive?)
- ;; A recursive call. Process again in tail context.
+ ((and (eq? ctx 'effect) (types-check? name args))
+ (make-void #f))
+ (else
+ (make-application src proc args))))))
+ (($ <lambda> _ _
+ ($ <lambda-case> _ req opt #f #f inits gensyms body #f))
+ ;; Simple case: no rest, no keyword arguments.
+ ;; todo: handle the more complex cases
+ (let* ((nargs (length orig-args))
+ (nreq (length req))
+ (nopt (if opt (length opt) 0))
+ (key (source-expression proc)))
+ (cond
+ ((or (< nargs nreq) (> nargs (+ nreq nopt)))
+ ;; An error, or effecting arguments.
+ (make-application src (for-value 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.
+ (loop (make-let src (append req (or opt '()))
+ gensyms
+ (append orig-args
+ (drop inits (- nargs nreq)))
+ body)
+ env counter ctx))
+ (else
+ ;; An integration at the top-level, the first
+ ;; recursion of a recursive procedure, or a nested
+ ;; integration of a procedure that hasn't been seen
+ ;; yet.
+ (let/ec k
+ (define (abort)
+ (k (make-application src
+ (for-value orig-proc)
+ (map for-value orig-args))))
+ (define new-counter
+ (cond
+ ;; These first two cases will transfer effort
+ ;; from the current counter into the new
+ ;; counter.
+ ((find-counter key counter)
+ => (lambda (prev)
+ (make-recursive-counter recursive-effort-limit
+ operand-size-limit
+ prev counter)))
+ (counter
+ (make-nested-counter abort key counter))
+ ;; This case opens a new account, effectively
+ ;; printing money. It should only do so once
+ ;; for each call site in the source program.
+ (else
+ (make-top-counter effort-limit operand-size-limit
+ abort key))))
+ (define result
(loop (make-let src (append req (or opt '()))
gensyms
(append orig-args
(drop inits (- nargs nreq)))
body)
- env counter ctx))
- (else
- ;; An integration at the top-level, the first
- ;; recursion of a recursive procedure, or a nested
- ;; integration of a procedure that hasn't been seen
- ;; yet.
- (let/ec k
- (define (abort)
- (k (make-application src
- (for-value orig-proc)
- (map for-value orig-args))))
- (define new-counter
- (cond
- ;; These first two cases will transfer effort
- ;; from the current counter into the new
- ;; counter.
- ((find-counter key counter)
- => (lambda (prev)
- (make-recursive-counter recursive-effort-limit
- operand-size-limit
- prev counter)))
- (counter
- (make-nested-counter abort key counter))
- ;; This case opens a new account, effectively
- ;; printing money. It should only do so once
- ;; for each call site in the source program.
- (else
- (make-top-counter effort-limit operand-size-limit
- abort key))))
- (define result
- (loop (make-let src (append req (or opt '()))
- gensyms
- (append orig-args
- (drop inits (- nargs nreq)))
- body)
- env new-counter ctx))
+ env new-counter ctx))
- (if counter
- ;; The nested inlining attempt succeeded.
- ;; Deposit the unspent effort and size back
- ;; into the current counter.
- (transfer! new-counter counter))
-
- result)))))
- ((or ($ <primitive-ref>)
- ($ <lambda>)
- ($ <toplevel-ref>)
- ($ <lexical-ref>))
- (make-application src proc
- (map for-value orig-args)))
-
- ;; In practice, this is the clause that stops peval:
- ;; module-ref applications (produced by macros,
- ;; typically) don't match, and so this throws,
- ;; aborting peval for an entire expression.
- )))
- (($ <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)))))
- (($ <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))))
- (($ <sequence> src exps)
- (let lp ((exps exps) (effects '()))
- (match exps
- ((last)
- (if (null? effects)
- (for-tail last)
- (make-sequence
- src
- (reverse (cons (for-tail last) effects)))))
- ((head . rest)
- (let ((head (for-effect head)))
- (cond
- ((sequence? head)
- (lp (append (sequence-exps head) rest) effects))
- ((void? head)
- (lp rest effects))
- (else
- (lp rest (cons head effects))))))))))))
- (lambda _
- ;; We encountered something we don't handle, like <abort> or
- ;; <prompt>, so bail out.
- exp)))
+ (if counter
+ ;; The nested inlining attempt succeeded.
+ ;; Deposit the unspent effort and size back
+ ;; into the current counter.
+ (transfer! new-counter counter))
+
+ result)))))
+ (_
+ (make-application src 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)))))
+ (($ <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))))
+ (($ <sequence> src exps)
+ (let lp ((exps exps) (effects '()))
+ (match exps
+ ((last)
+ (if (null? effects)
+ (for-tail last)
+ (make-sequence
+ src
+ (reverse (cons (for-tail last) effects)))))
+ ((head . rest)
+ (let ((head (for-effect head)))
+ (cond
+ ((sequence? head)
+ (lp (append (sequence-exps head) rest) effects))
+ ((void? head)
+ (lp rest effects))
+ (else
+ (lp rest (cons head effects)))))))))
+ (($ <prompt> src tag body handler)
+ (define (singly-used-definition x)
+ (cond
+ ((and (lexical-ref? x)
+ ;; Only fetch definitions with single uses.
+ (= (lexical-refcount (lexical-ref-gensym x)) 1)
+ (lookup (lexical-ref-gensym x)))
+ => singly-used-definition)
+ (else x)))
+ (define (escape-only? handler)
+ (match handler
+ (($ <lambda-case> _ (_ . _) _ _ _ _ (cont . _) body #f)
+ (tree-il-any (lambda (x)
+ (and (lexical-ref? x)
+ (eq? (lexical-ref-gensym x) cont)))
+ body))
+ (else #f)))
+ (define (thunk-application? x)
+ (match x
+ (($ <application> _
+ ($ <lambda> _ _ ($ <lambda-case> _ () #f #f #f))
+ ()) #t)
+ (_ #f)))
+ (define (make-thunk-application body)
+ (define thunk
+ (make-lambda #f '()
+ (make-lambda-case #f '() #f #f #f '() '() body #f)))
+ (make-application #f thunk '()))
+
+ (match (singly-used-definition tag)
+ (($ <application> _ ($ <primitive-ref> _ 'make-prompt-tag)
+ (or () ((? constant-expression?))))
+ ;; There is no way that an <abort> could know the tag
+ ;; for this <prompt>, so we can elide the <prompt>
+ ;; entirely.
+ (for-tail body))
+ (_
+ ;; It's a nasty, but this code has another job to do: to
+ ;; ensure that either the handler is escape-only, or the
+ ;; body is the application of a thunk. Sad but true.
+ (let ((tag (for-value tag))
+ (body (for-value body))
+ (handler (for-value handler)))
+ (make-prompt src tag
+ (if (or (escape-only? handler)
+ (thunk-application? body))
+ body
+ (make-thunk-application body))
+ handler)))))
+ (($ <abort> src tag args tail)
+ (make-abort src (for-value tag) (map for-value args)
+ (for-value tail))))))
diff --git a/module/language/tree-il/primitives.scm
b/module/language/tree-il/primitives.scm
index 67c12d2..c850cba 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -110,7 +110,7 @@
(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))
+ car cdr vector-ref struct-ref make-prompt-tag))
(define *effect-free-primitives*
`(values
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index 290a483..1a11d35 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -793,14 +793,12 @@
(pass-if-peval
;; Infinite recursion
((lambda (x) (x x)) (lambda (x) (x x)))
- (apply (lambda _
+ (let (x) (_)
+ ((lambda _
(lambda-case
(((x) _ _ _ _ _)
- (apply (lexical x _) (lexical x _)))))
- (lambda _
- (lambda-case
- (((x) _ _ _ _ _)
- (apply (lexical x _) (lexical x _)))))))
+ (apply (lexical x _) (lexical x _))))))
+ (apply (lexical x _) (lexical x _))))
(pass-if-peval
;; First order, aliased primitive.
@@ -1085,8 +1083,9 @@
(let (x) (_) ((if (apply (primitive >) (toplevel p) (toplevel q))
(apply (toplevel frob!))
(apply (toplevel display) (const chbouib))))
- (apply (primitive +) (lexical x _) (lexical x _)
- (apply (primitive *) (lexical x _) (const 2)))))
+ (let (y) (_) ((apply (primitive *) (lexical x _) (const 2)))
+ (apply (primitive +)
+ (lexical x _) (lexical x _) (lexical y _)))))
(pass-if-peval
;; Non-constant arguments not propagated to lambdas.
@@ -1275,7 +1274,42 @@
(cdr (list (bar) 0))
(begin (apply (toplevel bar)) (apply (primitive list) (const 0))))
- )
+ (pass-if-peval
+ resolve-primitives
+ ;; Prompt is removed if tag is unreferenced
+ (let ((tag (make-prompt-tag)))
+ (call-with-prompt tag
+ (lambda () 1)
+ (lambda args args)))
+ (const 1))
+
+ (pass-if-peval
+ resolve-primitives
+ ;; Prompt is removed if tag is unreferenced, with explicit stem
+ (let ((tag (make-prompt-tag "foo")))
+ (call-with-prompt tag
+ (lambda () 1)
+ (lambda args args)))
+ (const 1))
+
+ (pass-if-peval
+ resolve-primitives
+ ;; `while' without `break' or `continue' has no prompts and gets its
+ ;; condition folded. Unfortunately the outer `lp' does not yet get
+ ;; elided.
+ (while #t #t)
+ (letrec (lp) (_)
+ ((lambda _
+ (lambda-case
+ ((() #f #f #f () ())
+ (letrec (loop) (_)
+ ((lambda _
+ (lambda-case
+ ((() #f #f #f () ())
+ (apply (lexical loop _))))))
+ (apply (lexical loop _)))))))
+ (apply (lexical lp _)))))
+
(with-test-prefix "tree-il-fold"
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-136-gdf40b96,
Andy Wingo <=