|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-12-9-g664a8b0 |
| Date: | Fri, 10 Sep 2010 13:47:37 +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=664a8b0d66e2e062e9946f41707855a588b489eb
The branch, master has been updated
via 664a8b0d66e2e062e9946f41707855a588b489eb (commit)
via 348fb7040fef1e11e7f7becb49ee73ac7a62873a (commit)
via d8e4f9e509f2ce24e1cb74ba4e0a43e64e0e3f14 (commit)
via c439c756ce6f00e3029aa07fd41ba36175f1bbbc (commit)
from f328f862302c40771b6bc7d9febd43232771a083 (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 664a8b0d66e2e062e9946f41707855a588b489eb
Author: Andy Wingo <address@hidden>
Date: Fri Sep 10 13:29:56 2010 +0200
new procedure: source-procedures
* module/system/xref.scm (source-procedures): New public procedure,
gives the procedures defined at a given source location.
commit 348fb7040fef1e11e7f7becb49ee73ac7a62873a
Author: Andy Wingo <address@hidden>
Date: Fri Sep 10 12:55:09 2010 +0200
(system xref) uses module-submodules
* module/system/xref.scm (ensure-callers-db): Fix up to use
module-submodules.
commit d8e4f9e509f2ce24e1cb74ba4e0a43e64e0e3f14
Author: Andy Wingo <address@hidden>
Date: Fri Sep 10 11:03:59 2010 +0200
regenerate psyntax-pp.scm
* module/ice-9/psyntax-pp.scm: Regenerate.
commit c439c756ce6f00e3029aa07fd41ba36175f1bbbc
Author: Andy Wingo <address@hidden>
Date: Fri Sep 10 11:01:23 2010 +0200
simplify module/Makefile.am rules to not require touch
* module/Makefile.am (ice-9/psyntax-pp.go, ice-9/psyntax-pp.scm.gen)
(ice-9/eval.go): Simplify rules to not require `touch', now that .go
files are checked for freshness, not for synchronicity.
-----------------------------------------------------------------------
Summary of changes:
module/Makefile.am | 17 +-
module/ice-9/psyntax-pp.scm |16680 ++++++++++++++++++++++---------------------
module/system/xref.scm | 189 +-
3 files changed, 8613 insertions(+), 8273 deletions(-)
diff --git a/module/Makefile.am b/module/Makefile.am
index a2fb0f3..a88df80 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -24,14 +24,9 @@ include $(top_srcdir)/am/guilec
# We're at the root of the module hierarchy.
modpath =
-BEGINNING_OF_TIME=198001010100
-
-$(GOBJECTS): ice-9/eval.go.stamp
-ice-9/eval.go.stamp: ice-9/eval.go
- touch -t $(BEGINNING_OF_TIME) $(srcdir)/ice-9/eval.scm
- touch -r $(srcdir)/ice-9/eval.scm ice-9/eval.go
- touch -r $(srcdir)/ice-9/eval.scm ice-9/eval.go.stamp
-CLEANFILES += ice-9/eval.go ice-9/eval.go.stamp
+# Build eval.go first.
+$(GOBJECTS): ice-9/eval.go
+CLEANFILES += ice-9/eval.go
nobase_mod_DATA += ice-9/eval.scm
nobase_ccache_DATA += ice-9/eval.go
EXTRA_DIST += ice-9/eval.scm
@@ -76,15 +71,13 @@ include $(top_srcdir)/am/pre-inst-guile
ice-9/psyntax-pp.scm.gen:
$(preinstguile) --no-autocompile -s $(srcdir)/ice-9/compile-psyntax.scm
\
$(srcdir)/ice-9/psyntax.scm $(srcdir)/ice-9/psyntax-pp.scm
- touch -r "$(srcdir)/ice-9/psyntax.scm" "$(srcdir)/ice-9/psyntax-pp.scm"
.PHONY: ice-9/psyntax-pp.scm.gen
-ice-9/psyntax-pp.go: ice-9/psyntax.scm
- GUILE_AUTO_COMPILE=0 \
+ice-9/psyntax-pp.go: ice-9/psyntax.scm ice-9/psyntax-pp.scm
+ $(AM_V_GUILEC) GUILE_AUTO_COMPILE=0 \
$(top_builddir)/meta/uninstalled-env \
guile-tools compile $(GUILE_WARNINGS) -o "ice-9/psyntax-pp.go"
"$(srcdir)/ice-9/psyntax.scm"
- touch -r "$(srcdir)/ice-9/psyntax.scm" "$(srcdir)/ice-9/psyntax-pp.scm"
SCHEME_LANG_SOURCES = \
language/scheme/spec.scm \
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 4e0a3e5..6e5427e 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1222 +2,1222 @@
(if #f #f)
(letrec*
- ((#{and-map*\ 35}#
- (lambda (#{f\ 199}# #{first\ 200}# . #{rest\ 201}#)
+ ((#{and-map*\ 36}#
+ (lambda (#{f\ 200}# #{first\ 201}# . #{rest\ 202}#)
(begin
- (let ((#{t\ 207}# (null? #{first\ 200}#)))
- (if #{t\ 207}#
- #{t\ 207}#
- (if (null? #{rest\ 201}#)
+ (let ((#{t\ 208}# (null? #{first\ 201}#)))
+ (if #{t\ 208}#
+ #{t\ 208}#
+ (if (null? #{rest\ 202}#)
(letrec*
- ((#{andmap\ 211}#
- (lambda (#{first\ 212}#)
+ ((#{andmap\ 212}#
+ (lambda (#{first\ 213}#)
(begin
- (let ((#{x\ 215}# (car #{first\ 212}#))
- (#{first\ 216}# (cdr #{first\ 212}#)))
- (if (null? #{first\ 216}#)
- (#{f\ 199}# #{x\ 215}#)
- (if (#{f\ 199}# #{x\ 215}#)
- (#{andmap\ 211}# #{first\ 216}#)
+ (let ((#{x\ 216}# (car #{first\ 213}#))
+ (#{first\ 217}# (cdr #{first\ 213}#)))
+ (if (null? #{first\ 217}#)
+ (#{f\ 200}# #{x\ 216}#)
+ (if (#{f\ 200}# #{x\ 216}#)
+ (#{andmap\ 212}# #{first\ 217}#)
#f)))))))
- (begin (#{andmap\ 211}# #{first\ 200}#)))
+ (begin (#{andmap\ 212}# #{first\ 201}#)))
(letrec*
- ((#{andmap\ 222}#
- (lambda (#{first\ 223}# #{rest\ 224}#)
+ ((#{andmap\ 223}#
+ (lambda (#{first\ 224}# #{rest\ 225}#)
(begin
- (let ((#{x\ 229}# (car #{first\ 223}#))
- (#{xr\ 230}# (map car #{rest\ 224}#))
- (#{first\ 231}# (cdr #{first\ 223}#))
- (#{rest\ 232}# (map cdr #{rest\ 224}#)))
- (if (null? #{first\ 231}#)
- (@apply #{f\ 199}# #{x\ 229}# #{xr\ 230}#)
- (if (@apply #{f\ 199}# #{x\ 229}# #{xr\ 230}#)
- (#{andmap\ 222}# #{first\ 231}# #{rest\ 232}#)
+ (let ((#{x\ 230}# (car #{first\ 224}#))
+ (#{xr\ 231}# (map car #{rest\ 225}#))
+ (#{first\ 232}# (cdr #{first\ 224}#))
+ (#{rest\ 233}# (map cdr #{rest\ 225}#)))
+ (if (null? #{first\ 232}#)
+ (@apply #{f\ 200}# #{x\ 230}# #{xr\ 231}#)
+ (if (@apply #{f\ 200}# #{x\ 230}# #{xr\ 231}#)
+ (#{andmap\ 223}# #{first\ 232}# #{rest\ 233}#)
#f)))))))
(begin
- (#{andmap\ 222}# #{first\ 200}# #{rest\ 201}#))))))))))
+ (#{andmap\ 223}# #{first\ 201}# #{rest\ 202}#))))))))))
(begin
- (let ((#{make-primitive-ref\ 241}# (if #f #f))
- (#{fx+\ 280}# (if #f #f))
- (#{fx-\ 282}# (if #f #f))
- (#{fx=\ 284}# (if #f #f))
- (#{fx<\ 286}# (if #f #f))
- (#{set-syntax-object-expression!\ 351}#
+ (let ((#{make-primitive-ref\ 242}# (if #f #f))
+ (#{fx+\ 281}# (if #f #f))
+ (#{fx-\ 283}# (if #f #f))
+ (#{fx=\ 285}# (if #f #f))
+ (#{fx<\ 287}# (if #f #f))
+ (#{set-syntax-object-expression!\ 352}#
(if #f #f))
- (#{set-syntax-object-wrap!\ 353}# (if #f #f))
- (#{set-syntax-object-module!\ 355}# (if #f #f))
- (#{binding-type\ 362}# (if #f #f))
- (#{binding-value\ 364}# (if #f #f))
- (#{make-wrap\ 384}# (if #f #f))
- (#{wrap-marks\ 386}# (if #f #f))
- (#{wrap-subst\ 388}# (if #f #f))
- (#{ribcage?\ 402}# (if #f #f)))
+ (#{set-syntax-object-wrap!\ 354}# (if #f #f))
+ (#{set-syntax-object-module!\ 356}# (if #f #f))
+ (#{binding-type\ 363}# (if #f #f))
+ (#{binding-value\ 365}# (if #f #f))
+ (#{make-wrap\ 385}# (if #f #f))
+ (#{wrap-marks\ 387}# (if #f #f))
+ (#{wrap-subst\ 389}# (if #f #f))
+ (#{ribcage?\ 403}# (if #f #f)))
(letrec*
- ((#{make-void\ 237}#
- (lambda (#{src\ 697}#)
+ ((#{make-void\ 238}#
+ (lambda (#{src\ 698}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 697}#)))
- (#{make-const\ 239}#
- (lambda (#{src\ 699}# #{exp\ 700}#)
+ #{src\ 698}#)))
+ (#{make-const\ 240}#
+ (lambda (#{src\ 700}# #{exp\ 701}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src\ 699}#
- #{exp\ 700}#)))
- (#{make-lexical-ref\ 243}#
- (lambda (#{src\ 707}# #{name\ 708}# #{gensym\ 709}#)
+ #{src\ 700}#
+ #{exp\ 701}#)))
+ (#{make-lexical-ref\ 244}#
+ (lambda (#{src\ 708}# #{name\ 709}# #{gensym\ 710}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src\ 707}#
- #{name\ 708}#
- #{gensym\ 709}#)))
- (#{make-lexical-set\ 245}#
- (lambda (#{src\ 713}#
- #{name\ 714}#
- #{gensym\ 715}#
- #{exp\ 716}#)
+ #{src\ 708}#
+ #{name\ 709}#
+ #{gensym\ 710}#)))
+ (#{make-lexical-set\ 246}#
+ (lambda (#{src\ 714}#
+ #{name\ 715}#
+ #{gensym\ 716}#
+ #{exp\ 717}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src\ 713}#
- #{name\ 714}#
- #{gensym\ 715}#
- #{exp\ 716}#)))
- (#{make-module-ref\ 247}#
- (lambda (#{src\ 721}#
- #{mod\ 722}#
- #{name\ 723}#
- #{public?\ 724}#)
+ #{src\ 714}#
+ #{name\ 715}#
+ #{gensym\ 716}#
+ #{exp\ 717}#)))
+ (#{make-module-ref\ 248}#
+ (lambda (#{src\ 722}#
+ #{mod\ 723}#
+ #{name\ 724}#
+ #{public?\ 725}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src\ 721}#
- #{mod\ 722}#
- #{name\ 723}#
- #{public?\ 724}#)))
- (#{make-module-set\ 249}#
- (lambda (#{src\ 729}#
- #{mod\ 730}#
- #{name\ 731}#
- #{public?\ 732}#
- #{exp\ 733}#)
+ #{src\ 722}#
+ #{mod\ 723}#
+ #{name\ 724}#
+ #{public?\ 725}#)))
+ (#{make-module-set\ 250}#
+ (lambda (#{src\ 730}#
+ #{mod\ 731}#
+ #{name\ 732}#
+ #{public?\ 733}#
+ #{exp\ 734}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src\ 729}#
- #{mod\ 730}#
- #{name\ 731}#
- #{public?\ 732}#
- #{exp\ 733}#)))
- (#{make-toplevel-ref\ 251}#
- (lambda (#{src\ 739}# #{name\ 740}#)
+ #{src\ 730}#
+ #{mod\ 731}#
+ #{name\ 732}#
+ #{public?\ 733}#
+ #{exp\ 734}#)))
+ (#{make-toplevel-ref\ 252}#
+ (lambda (#{src\ 740}# #{name\ 741}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src\ 739}#
- #{name\ 740}#)))
- (#{make-toplevel-set\ 253}#
- (lambda (#{src\ 743}# #{name\ 744}# #{exp\ 745}#)
+ #{src\ 740}#
+ #{name\ 741}#)))
+ (#{make-toplevel-set\ 254}#
+ (lambda (#{src\ 744}# #{name\ 745}# #{exp\ 746}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src\ 743}#
- #{name\ 744}#
- #{exp\ 745}#)))
- (#{make-toplevel-define\ 255}#
- (lambda (#{src\ 749}# #{name\ 750}# #{exp\ 751}#)
+ #{src\ 744}#
+ #{name\ 745}#
+ #{exp\ 746}#)))
+ (#{make-toplevel-define\ 256}#
+ (lambda (#{src\ 750}# #{name\ 751}# #{exp\ 752}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src\ 749}#
- #{name\ 750}#
- #{exp\ 751}#)))
- (#{make-conditional\ 257}#
- (lambda (#{src\ 755}#
- #{test\ 756}#
- #{consequent\ 757}#
- #{alternate\ 758}#)
+ #{src\ 750}#
+ #{name\ 751}#
+ #{exp\ 752}#)))
+ (#{make-conditional\ 258}#
+ (lambda (#{src\ 756}#
+ #{test\ 757}#
+ #{consequent\ 758}#
+ #{alternate\ 759}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src\ 755}#
- #{test\ 756}#
- #{consequent\ 757}#
- #{alternate\ 758}#)))
- (#{make-application\ 259}#
- (lambda (#{src\ 763}# #{proc\ 764}# #{args\ 765}#)
+ #{src\ 756}#
+ #{test\ 757}#
+ #{consequent\ 758}#
+ #{alternate\ 759}#)))
+ (#{make-application\ 260}#
+ (lambda (#{src\ 764}# #{proc\ 765}# #{args\ 766}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 763}#
- #{proc\ 764}#
- #{args\ 765}#)))
- (#{make-sequence\ 261}#
- (lambda (#{src\ 769}# #{exps\ 770}#)
+ #{src\ 764}#
+ #{proc\ 765}#
+ #{args\ 766}#)))
+ (#{make-sequence\ 262}#
+ (lambda (#{src\ 770}# #{exps\ 771}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 769}#
- #{exps\ 770}#)))
- (#{make-lambda\ 263}#
- (lambda (#{src\ 773}# #{meta\ 774}# #{body\ 775}#)
+ #{src\ 770}#
+ #{exps\ 771}#)))
+ (#{make-lambda\ 264}#
+ (lambda (#{src\ 774}# #{meta\ 775}# #{body\ 776}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src\ 773}#
- #{meta\ 774}#
- #{body\ 775}#)))
- (#{make-lambda-case\ 265}#
- (lambda (#{src\ 779}#
- #{req\ 780}#
- #{opt\ 781}#
- #{rest\ 782}#
- #{kw\ 783}#
- #{inits\ 784}#
- #{gensyms\ 785}#
- #{body\ 786}#
- #{alternate\ 787}#)
+ #{src\ 774}#
+ #{meta\ 775}#
+ #{body\ 776}#)))
+ (#{make-lambda-case\ 266}#
+ (lambda (#{src\ 780}#
+ #{req\ 781}#
+ #{opt\ 782}#
+ #{rest\ 783}#
+ #{kw\ 784}#
+ #{inits\ 785}#
+ #{gensyms\ 786}#
+ #{body\ 787}#
+ #{alternate\ 788}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src\ 779}#
- #{req\ 780}#
- #{opt\ 781}#
- #{rest\ 782}#
- #{kw\ 783}#
- #{inits\ 784}#
- #{gensyms\ 785}#
- #{body\ 786}#
- #{alternate\ 787}#)))
- (#{make-let\ 267}#
- (lambda (#{src\ 797}#
- #{names\ 798}#
- #{gensyms\ 799}#
- #{vals\ 800}#
- #{body\ 801}#)
+ #{src\ 780}#
+ #{req\ 781}#
+ #{opt\ 782}#
+ #{rest\ 783}#
+ #{kw\ 784}#
+ #{inits\ 785}#
+ #{gensyms\ 786}#
+ #{body\ 787}#
+ #{alternate\ 788}#)))
+ (#{make-let\ 268}#
+ (lambda (#{src\ 798}#
+ #{names\ 799}#
+ #{gensyms\ 800}#
+ #{vals\ 801}#
+ #{body\ 802}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src\ 797}#
- #{names\ 798}#
- #{gensyms\ 799}#
- #{vals\ 800}#
- #{body\ 801}#)))
- (#{make-letrec\ 269}#
- (lambda (#{src\ 807}#
- #{in-order?\ 808}#
- #{names\ 809}#
- #{gensyms\ 810}#
- #{vals\ 811}#
- #{body\ 812}#)
+ #{src\ 798}#
+ #{names\ 799}#
+ #{gensyms\ 800}#
+ #{vals\ 801}#
+ #{body\ 802}#)))
+ (#{make-letrec\ 270}#
+ (lambda (#{src\ 808}#
+ #{in-order?\ 809}#
+ #{names\ 810}#
+ #{gensyms\ 811}#
+ #{vals\ 812}#
+ #{body\ 813}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src\ 807}#
- #{in-order?\ 808}#
- #{names\ 809}#
- #{gensyms\ 810}#
- #{vals\ 811}#
- #{body\ 812}#)))
- (#{make-dynlet\ 271}#
- (lambda (#{src\ 819}#
- #{fluids\ 820}#
- #{vals\ 821}#
- #{body\ 822}#)
+ #{src\ 808}#
+ #{in-order?\ 809}#
+ #{names\ 810}#
+ #{gensyms\ 811}#
+ #{vals\ 812}#
+ #{body\ 813}#)))
+ (#{make-dynlet\ 272}#
+ (lambda (#{src\ 820}#
+ #{fluids\ 821}#
+ #{vals\ 822}#
+ #{body\ 823}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src\ 819}#
- #{fluids\ 820}#
- #{vals\ 821}#
- #{body\ 822}#)))
- (#{lambda?\ 274}#
- (lambda (#{x\ 827}#)
- (if (struct? #{x\ 827}#)
- (eq? (struct-vtable #{x\ 827}#)
+ #{src\ 820}#
+ #{fluids\ 821}#
+ #{vals\ 822}#
+ #{body\ 823}#)))
+ (#{lambda?\ 275}#
+ (lambda (#{x\ 828}#)
+ (if (struct? #{x\ 828}#)
+ (eq? (struct-vtable #{x\ 828}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta\ 276}#
- (lambda (#{x\ 831}#) (struct-ref #{x\ 831}# 1)))
- (#{set-lambda-meta!\ 278}#
- (lambda (#{x\ 833}# #{v\ 834}#)
- (struct-set! #{x\ 833}# 1 #{v\ 834}#)))
- (#{top-level-eval-hook\ 288}#
- (lambda (#{x\ 837}# #{mod\ 838}#)
- (primitive-eval #{x\ 837}#)))
- (#{local-eval-hook\ 290}#
- (lambda (#{x\ 841}# #{mod\ 842}#)
- (primitive-eval #{x\ 841}#)))
- (#{put-global-definition-hook\ 293}#
- (lambda (#{symbol\ 845}# #{type\ 846}# #{val\ 847}#)
+ (#{lambda-meta\ 277}#
+ (lambda (#{x\ 832}#) (struct-ref #{x\ 832}# 1)))
+ (#{set-lambda-meta!\ 279}#
+ (lambda (#{x\ 834}# #{v\ 835}#)
+ (struct-set! #{x\ 834}# 1 #{v\ 835}#)))
+ (#{top-level-eval-hook\ 289}#
+ (lambda (#{x\ 838}# #{mod\ 839}#)
+ (primitive-eval #{x\ 838}#)))
+ (#{local-eval-hook\ 291}#
+ (lambda (#{x\ 842}# #{mod\ 843}#)
+ (primitive-eval #{x\ 842}#)))
+ (#{put-global-definition-hook\ 294}#
+ (lambda (#{symbol\ 846}# #{type\ 847}# #{val\ 848}#)
(module-define!
(current-module)
- #{symbol\ 845}#
+ #{symbol\ 846}#
(make-syntax-transformer
- #{symbol\ 845}#
- #{type\ 846}#
- #{val\ 847}#))))
- (#{get-global-definition-hook\ 295}#
- (lambda (#{symbol\ 851}# #{module\ 852}#)
+ #{symbol\ 846}#
+ #{type\ 847}#
+ #{val\ 848}#))))
+ (#{get-global-definition-hook\ 296}#
+ (lambda (#{symbol\ 852}# #{module\ 853}#)
(begin
- (if (if (not #{module\ 852}#) (current-module) #f)
+ (if (if (not #{module\ 853}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 851}#))
+ #{symbol\ 852}#))
(begin
- (let ((#{v\ 858}# (module-variable
- (if #{module\ 852}#
- (resolve-module (cdr #{module\ 852}#))
+ (let ((#{v\ 859}# (module-variable
+ (if #{module\ 853}#
+ (resolve-module (cdr #{module\ 853}#))
(current-module))
- #{symbol\ 851}#)))
- (if #{v\ 858}#
- (if (variable-bound? #{v\ 858}#)
+ #{symbol\ 852}#)))
+ (if #{v\ 859}#
+ (if (variable-bound? #{v\ 859}#)
(begin
- (let ((#{val\ 863}# (variable-ref #{v\ 858}#)))
- (if (macro? #{val\ 863}#)
- (if (macro-type #{val\ 863}#)
- (cons (macro-type #{val\ 863}#)
- (macro-binding #{val\ 863}#))
+ (let ((#{val\ 864}# (variable-ref #{v\ 859}#)))
+ (if (macro? #{val\ 864}#)
+ (if (macro-type #{val\ 864}#)
+ (cons (macro-type #{val\ 864}#)
+ (macro-binding #{val\ 864}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 297}#
- (lambda (#{e\ 867}# #{s\ 868}#)
+ (#{decorate-source\ 298}#
+ (lambda (#{e\ 868}# #{s\ 869}#)
(begin
- (if (if (pair? #{e\ 867}#) #{s\ 868}# #f)
- (set-source-properties! #{e\ 867}# #{s\ 868}#))
- #{e\ 867}#)))
- (#{maybe-name-value!\ 299}#
- (lambda (#{name\ 873}# #{val\ 874}#)
- (if (#{lambda?\ 274}# #{val\ 874}#)
+ (if (if (pair? #{e\ 868}#) #{s\ 869}# #f)
+ (set-source-properties! #{e\ 868}# #{s\ 869}#))
+ #{e\ 868}#)))
+ (#{maybe-name-value!\ 300}#
+ (lambda (#{name\ 874}# #{val\ 875}#)
+ (if (#{lambda?\ 275}# #{val\ 875}#)
(begin
- (let ((#{meta\ 878}#
- (#{lambda-meta\ 276}# #{val\ 874}#)))
- (if (not (assq (quote name) #{meta\ 878}#))
- (#{set-lambda-meta!\ 278}#
- #{val\ 874}#
- (cons (cons (quote name) #{name\ 873}#)
- #{meta\ 878}#))))))))
- (#{build-void\ 301}#
- (lambda (#{source\ 879}#)
- (#{make-void\ 237}# #{source\ 879}#)))
- (#{build-application\ 303}#
- (lambda (#{source\ 881}#
- #{fun-exp\ 882}#
- #{arg-exps\ 883}#)
- (#{make-application\ 259}#
- #{source\ 881}#
- #{fun-exp\ 882}#
- #{arg-exps\ 883}#)))
- (#{build-conditional\ 305}#
- (lambda (#{source\ 887}#
- #{test-exp\ 888}#
- #{then-exp\ 889}#
- #{else-exp\ 890}#)
- (#{make-conditional\ 257}#
- #{source\ 887}#
- #{test-exp\ 888}#
- #{then-exp\ 889}#
- #{else-exp\ 890}#)))
- (#{build-dynlet\ 307}#
- (lambda (#{source\ 895}#
- #{fluids\ 896}#
- #{vals\ 897}#
- #{body\ 898}#)
- (#{make-dynlet\ 271}#
- #{source\ 895}#
- #{fluids\ 896}#
- #{vals\ 897}#
- #{body\ 898}#)))
- (#{build-lexical-reference\ 309}#
- (lambda (#{type\ 903}#
- #{source\ 904}#
- #{name\ 905}#
- #{var\ 906}#)
- (#{make-lexical-ref\ 243}#
- #{source\ 904}#
- #{name\ 905}#
- #{var\ 906}#)))
- (#{build-lexical-assignment\ 311}#
- (lambda (#{source\ 911}#
- #{name\ 912}#
- #{var\ 913}#
- #{exp\ 914}#)
+ (let ((#{meta\ 879}#
+ (#{lambda-meta\ 277}# #{val\ 875}#)))
+ (if (not (assq (quote name) #{meta\ 879}#))
+ (#{set-lambda-meta!\ 279}#
+ #{val\ 875}#
+ (cons (cons (quote name) #{name\ 874}#)
+ #{meta\ 879}#))))))))
+ (#{build-void\ 302}#
+ (lambda (#{source\ 880}#)
+ (#{make-void\ 238}# #{source\ 880}#)))
+ (#{build-application\ 304}#
+ (lambda (#{source\ 882}#
+ #{fun-exp\ 883}#
+ #{arg-exps\ 884}#)
+ (#{make-application\ 260}#
+ #{source\ 882}#
+ #{fun-exp\ 883}#
+ #{arg-exps\ 884}#)))
+ (#{build-conditional\ 306}#
+ (lambda (#{source\ 888}#
+ #{test-exp\ 889}#
+ #{then-exp\ 890}#
+ #{else-exp\ 891}#)
+ (#{make-conditional\ 258}#
+ #{source\ 888}#
+ #{test-exp\ 889}#
+ #{then-exp\ 890}#
+ #{else-exp\ 891}#)))
+ (#{build-dynlet\ 308}#
+ (lambda (#{source\ 896}#
+ #{fluids\ 897}#
+ #{vals\ 898}#
+ #{body\ 899}#)
+ (#{make-dynlet\ 272}#
+ #{source\ 896}#
+ #{fluids\ 897}#
+ #{vals\ 898}#
+ #{body\ 899}#)))
+ (#{build-lexical-reference\ 310}#
+ (lambda (#{type\ 904}#
+ #{source\ 905}#
+ #{name\ 906}#
+ #{var\ 907}#)
+ (#{make-lexical-ref\ 244}#
+ #{source\ 905}#
+ #{name\ 906}#
+ #{var\ 907}#)))
+ (#{build-lexical-assignment\ 312}#
+ (lambda (#{source\ 912}#
+ #{name\ 913}#
+ #{var\ 914}#
+ #{exp\ 915}#)
(begin
- (#{maybe-name-value!\ 299}#
- #{name\ 912}#
- #{exp\ 914}#)
- (#{make-lexical-set\ 245}#
- #{source\ 911}#
- #{name\ 912}#
- #{var\ 913}#
- #{exp\ 914}#))))
- (#{analyze-variable\ 313}#
- (lambda (#{mod\ 919}#
- #{var\ 920}#
- #{modref-cont\ 921}#
- #{bare-cont\ 922}#)
- (if (not #{mod\ 919}#)
- (#{bare-cont\ 922}# #{var\ 920}#)
+ (#{maybe-name-value!\ 300}#
+ #{name\ 913}#
+ #{exp\ 915}#)
+ (#{make-lexical-set\ 246}#
+ #{source\ 912}#
+ #{name\ 913}#
+ #{var\ 914}#
+ #{exp\ 915}#))))
+ (#{analyze-variable\ 314}#
+ (lambda (#{mod\ 920}#
+ #{var\ 921}#
+ #{modref-cont\ 922}#
+ #{bare-cont\ 923}#)
+ (if (not #{mod\ 920}#)
+ (#{bare-cont\ 923}# #{var\ 921}#)
(begin
- (let ((#{kind\ 929}# (car #{mod\ 919}#))
- (#{mod\ 930}# (cdr #{mod\ 919}#)))
- (if (eqv? #{kind\ 929}# (quote public))
- (#{modref-cont\ 921}#
- #{mod\ 930}#
- #{var\ 920}#
+ (let ((#{kind\ 930}# (car #{mod\ 920}#))
+ (#{mod\ 931}# (cdr #{mod\ 920}#)))
+ (if (eqv? #{kind\ 930}# (quote public))
+ (#{modref-cont\ 922}#
+ #{mod\ 931}#
+ #{var\ 921}#
#t)
- (if (eqv? #{kind\ 929}# (quote private))
+ (if (eqv? #{kind\ 930}# (quote private))
(if (not (equal?
- #{mod\ 930}#
+ #{mod\ 931}#
(module-name (current-module))))
- (#{modref-cont\ 921}#
- #{mod\ 930}#
- #{var\ 920}#
+ (#{modref-cont\ 922}#
+ #{mod\ 931}#
+ #{var\ 921}#
#f)
- (#{bare-cont\ 922}# #{var\ 920}#))
- (if (eqv? #{kind\ 929}# (quote bare))
- (#{bare-cont\ 922}# #{var\ 920}#)
- (if (eqv? #{kind\ 929}# (quote hygiene))
+ (#{bare-cont\ 923}# #{var\ 921}#))
+ (if (eqv? #{kind\ 930}# (quote bare))
+ (#{bare-cont\ 923}# #{var\ 921}#)
+ (if (eqv? #{kind\ 930}# (quote hygiene))
(if (if (not (equal?
- #{mod\ 930}#
+ #{mod\ 931}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 930}#)
- #{var\ 920}#)
+ (resolve-module #{mod\ 931}#)
+ #{var\ 921}#)
#f)
- (#{modref-cont\ 921}#
- #{mod\ 930}#
- #{var\ 920}#
+ (#{modref-cont\ 922}#
+ #{mod\ 931}#
+ #{var\ 921}#
#f)
- (#{bare-cont\ 922}# #{var\ 920}#))
+ (#{bare-cont\ 923}# #{var\ 921}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 920}#
- #{mod\ 930}#))))))))))
- (#{build-global-reference\ 315}#
- (lambda (#{source\ 938}# #{var\ 939}# #{mod\ 940}#)
- (#{analyze-variable\ 313}#
- #{mod\ 940}#
- #{var\ 939}#
- (lambda (#{mod\ 944}# #{var\ 945}# #{public?\ 946}#)
- (#{make-module-ref\ 247}#
- #{source\ 938}#
- #{mod\ 944}#
- #{var\ 945}#
- #{public?\ 946}#))
- (lambda (#{var\ 950}#)
- (#{make-toplevel-ref\ 251}#
- #{source\ 938}#
- #{var\ 950}#)))))
- (#{build-global-assignment\ 317}#
- (lambda (#{source\ 952}#
- #{var\ 953}#
- #{exp\ 954}#
- #{mod\ 955}#)
+ #{var\ 921}#
+ #{mod\ 931}#))))))))))
+ (#{build-global-reference\ 316}#
+ (lambda (#{source\ 939}# #{var\ 940}# #{mod\ 941}#)
+ (#{analyze-variable\ 314}#
+ #{mod\ 941}#
+ #{var\ 940}#
+ (lambda (#{mod\ 945}# #{var\ 946}# #{public?\ 947}#)
+ (#{make-module-ref\ 248}#
+ #{source\ 939}#
+ #{mod\ 945}#
+ #{var\ 946}#
+ #{public?\ 947}#))
+ (lambda (#{var\ 951}#)
+ (#{make-toplevel-ref\ 252}#
+ #{source\ 939}#
+ #{var\ 951}#)))))
+ (#{build-global-assignment\ 318}#
+ (lambda (#{source\ 953}#
+ #{var\ 954}#
+ #{exp\ 955}#
+ #{mod\ 956}#)
(begin
- (#{maybe-name-value!\ 299}#
- #{var\ 953}#
- #{exp\ 954}#)
- (#{analyze-variable\ 313}#
- #{mod\ 955}#
- #{var\ 953}#
- (lambda (#{mod\ 960}# #{var\ 961}# #{public?\ 962}#)
- (#{make-module-set\ 249}#
- #{source\ 952}#
- #{mod\ 960}#
- #{var\ 961}#
- #{public?\ 962}#
- #{exp\ 954}#))
- (lambda (#{var\ 966}#)
- (#{make-toplevel-set\ 253}#
- #{source\ 952}#
- #{var\ 966}#
- #{exp\ 954}#))))))
- (#{build-global-definition\ 319}#
- (lambda (#{source\ 968}# #{var\ 969}# #{exp\ 970}#)
+ (#{maybe-name-value!\ 300}#
+ #{var\ 954}#
+ #{exp\ 955}#)
+ (#{analyze-variable\ 314}#
+ #{mod\ 956}#
+ #{var\ 954}#
+ (lambda (#{mod\ 961}# #{var\ 962}# #{public?\ 963}#)
+ (#{make-module-set\ 250}#
+ #{source\ 953}#
+ #{mod\ 961}#
+ #{var\ 962}#
+ #{public?\ 963}#
+ #{exp\ 955}#))
+ (lambda (#{var\ 967}#)
+ (#{make-toplevel-set\ 254}#
+ #{source\ 953}#
+ #{var\ 967}#
+ #{exp\ 955}#))))))
+ (#{build-global-definition\ 320}#
+ (lambda (#{source\ 969}# #{var\ 970}# #{exp\ 971}#)
(begin
- (#{maybe-name-value!\ 299}#
- #{var\ 969}#
- #{exp\ 970}#)
- (#{make-toplevel-define\ 255}#
- #{source\ 968}#
- #{var\ 969}#
- #{exp\ 970}#))))
- (#{build-simple-lambda\ 321}#
- (lambda (#{src\ 974}#
- #{req\ 975}#
- #{rest\ 976}#
- #{vars\ 977}#
- #{meta\ 978}#
- #{exp\ 979}#)
- (#{make-lambda\ 263}#
- #{src\ 974}#
- #{meta\ 978}#
- (#{make-lambda-case\ 265}#
- #{src\ 974}#
- #{req\ 975}#
+ (#{maybe-name-value!\ 300}#
+ #{var\ 970}#
+ #{exp\ 971}#)
+ (#{make-toplevel-define\ 256}#
+ #{source\ 969}#
+ #{var\ 970}#
+ #{exp\ 971}#))))
+ (#{build-simple-lambda\ 322}#
+ (lambda (#{src\ 975}#
+ #{req\ 976}#
+ #{rest\ 977}#
+ #{vars\ 978}#
+ #{meta\ 979}#
+ #{exp\ 980}#)
+ (#{make-lambda\ 264}#
+ #{src\ 975}#
+ #{meta\ 979}#
+ (#{make-lambda-case\ 266}#
+ #{src\ 975}#
+ #{req\ 976}#
#f
- #{rest\ 976}#
+ #{rest\ 977}#
#f
'()
- #{vars\ 977}#
- #{exp\ 979}#
+ #{vars\ 978}#
+ #{exp\ 980}#
#f))))
- (#{build-case-lambda\ 323}#
- (lambda (#{src\ 986}# #{meta\ 987}# #{body\ 988}#)
- (#{make-lambda\ 263}#
- #{src\ 986}#
- #{meta\ 987}#
- #{body\ 988}#)))
- (#{build-lambda-case\ 325}#
- (lambda (#{src\ 992}#
- #{req\ 993}#
- #{opt\ 994}#
- #{rest\ 995}#
- #{kw\ 996}#
- #{inits\ 997}#
- #{vars\ 998}#
- #{body\ 999}#
- #{else-case\ 1000}#)
- (#{make-lambda-case\ 265}#
- #{src\ 992}#
- #{req\ 993}#
- #{opt\ 994}#
- #{rest\ 995}#
- #{kw\ 996}#
- #{inits\ 997}#
- #{vars\ 998}#
- #{body\ 999}#
- #{else-case\ 1000}#)))
- (#{build-primref\ 327}#
- (lambda (#{src\ 1010}# #{name\ 1011}#)
+ (#{build-case-lambda\ 324}#
+ (lambda (#{src\ 987}# #{meta\ 988}# #{body\ 989}#)
+ (#{make-lambda\ 264}#
+ #{src\ 987}#
+ #{meta\ 988}#
+ #{body\ 989}#)))
+ (#{build-lambda-case\ 326}#
+ (lambda (#{src\ 993}#
+ #{req\ 994}#
+ #{opt\ 995}#
+ #{rest\ 996}#
+ #{kw\ 997}#
+ #{inits\ 998}#
+ #{vars\ 999}#
+ #{body\ 1000}#
+ #{else-case\ 1001}#)
+ (#{make-lambda-case\ 266}#
+ #{src\ 993}#
+ #{req\ 994}#
+ #{opt\ 995}#
+ #{rest\ 996}#
+ #{kw\ 997}#
+ #{inits\ 998}#
+ #{vars\ 999}#
+ #{body\ 1000}#
+ #{else-case\ 1001}#)))
+ (#{build-primref\ 328}#
+ (lambda (#{src\ 1011}# #{name\ 1012}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 251}#
- #{src\ 1010}#
- #{name\ 1011}#)
- (#{make-module-ref\ 247}#
- #{src\ 1010}#
+ (#{make-toplevel-ref\ 252}#
+ #{src\ 1011}#
+ #{name\ 1012}#)
+ (#{make-module-ref\ 248}#
+ #{src\ 1011}#
'(guile)
- #{name\ 1011}#
+ #{name\ 1012}#
#f))))
- (#{build-data\ 329}#
- (lambda (#{src\ 1014}# #{exp\ 1015}#)
- (#{make-const\ 239}# #{src\ 1014}# #{exp\ 1015}#)))
- (#{build-sequence\ 331}#
- (lambda (#{src\ 1018}# #{exps\ 1019}#)
- (if (null? (cdr #{exps\ 1019}#))
- (car #{exps\ 1019}#)
- (#{make-sequence\ 261}#
- #{src\ 1018}#
- #{exps\ 1019}#))))
- (#{build-let\ 333}#
- (lambda (#{src\ 1022}#
- #{ids\ 1023}#
- #{vars\ 1024}#
- #{val-exps\ 1025}#
- #{body-exp\ 1026}#)
+ (#{build-data\ 330}#
+ (lambda (#{src\ 1015}# #{exp\ 1016}#)
+ (#{make-const\ 240}# #{src\ 1015}# #{exp\ 1016}#)))
+ (#{build-sequence\ 332}#
+ (lambda (#{src\ 1019}# #{exps\ 1020}#)
+ (if (null? (cdr #{exps\ 1020}#))
+ (car #{exps\ 1020}#)
+ (#{make-sequence\ 262}#
+ #{src\ 1019}#
+ #{exps\ 1020}#))))
+ (#{build-let\ 334}#
+ (lambda (#{src\ 1023}#
+ #{ids\ 1024}#
+ #{vars\ 1025}#
+ #{val-exps\ 1026}#
+ #{body-exp\ 1027}#)
(begin
(for-each
- #{maybe-name-value!\ 299}#
- #{ids\ 1023}#
- #{val-exps\ 1025}#)
- (if (null? #{vars\ 1024}#)
- #{body-exp\ 1026}#
- (#{make-let\ 267}#
- #{src\ 1022}#
- #{ids\ 1023}#
- #{vars\ 1024}#
- #{val-exps\ 1025}#
- #{body-exp\ 1026}#)))))
- (#{build-named-let\ 335}#
- (lambda (#{src\ 1032}#
- #{ids\ 1033}#
- #{vars\ 1034}#
- #{val-exps\ 1035}#
- #{body-exp\ 1036}#)
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1024}#
+ #{val-exps\ 1026}#)
+ (if (null? #{vars\ 1025}#)
+ #{body-exp\ 1027}#
+ (#{make-let\ 268}#
+ #{src\ 1023}#
+ #{ids\ 1024}#
+ #{vars\ 1025}#
+ #{val-exps\ 1026}#
+ #{body-exp\ 1027}#)))))
+ (#{build-named-let\ 336}#
+ (lambda (#{src\ 1033}#
+ #{ids\ 1034}#
+ #{vars\ 1035}#
+ #{val-exps\ 1036}#
+ #{body-exp\ 1037}#)
(begin
- (let ((#{f\ 1046}# (car #{vars\ 1034}#))
- (#{f-name\ 1047}# (car #{ids\ 1033}#))
- (#{vars\ 1048}# (cdr #{vars\ 1034}#))
- (#{ids\ 1049}# (cdr #{ids\ 1033}#)))
+ (let ((#{f\ 1047}# (car #{vars\ 1035}#))
+ (#{f-name\ 1048}# (car #{ids\ 1034}#))
+ (#{vars\ 1049}# (cdr #{vars\ 1035}#))
+ (#{ids\ 1050}# (cdr #{ids\ 1034}#)))
(begin
- (let ((#{proc\ 1051}#
- (#{build-simple-lambda\ 321}#
- #{src\ 1032}#
- #{ids\ 1049}#
+ (let ((#{proc\ 1052}#
+ (#{build-simple-lambda\ 322}#
+ #{src\ 1033}#
+ #{ids\ 1050}#
#f
- #{vars\ 1048}#
+ #{vars\ 1049}#
'()
- #{body-exp\ 1036}#)))
+ #{body-exp\ 1037}#)))
(begin
- (#{maybe-name-value!\ 299}#
- #{f-name\ 1047}#
- #{proc\ 1051}#)
+ (#{maybe-name-value!\ 300}#
+ #{f-name\ 1048}#
+ #{proc\ 1052}#)
(for-each
- #{maybe-name-value!\ 299}#
- #{ids\ 1049}#
- #{val-exps\ 1035}#)
- (#{make-letrec\ 269}#
- #{src\ 1032}#
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1050}#
+ #{val-exps\ 1036}#)
+ (#{make-letrec\ 270}#
+ #{src\ 1033}#
#f
- (list #{f-name\ 1047}#)
- (list #{f\ 1046}#)
- (list #{proc\ 1051}#)
- (#{build-application\ 303}#
- #{src\ 1032}#
- (#{build-lexical-reference\ 309}#
+ (list #{f-name\ 1048}#)
+ (list #{f\ 1047}#)
+ (list #{proc\ 1052}#)
+ (#{build-application\ 304}#
+ #{src\ 1033}#
+ (#{build-lexical-reference\ 310}#
'fun
- #{src\ 1032}#
- #{f-name\ 1047}#
- #{f\ 1046}#)
- #{val-exps\ 1035}#)))))))))
- (#{build-letrec\ 337}#
- (lambda (#{src\ 1052}#
- #{in-order?\ 1053}#
- #{ids\ 1054}#
- #{vars\ 1055}#
- #{val-exps\ 1056}#
- #{body-exp\ 1057}#)
- (if (null? #{vars\ 1055}#)
- #{body-exp\ 1057}#
+ #{src\ 1033}#
+ #{f-name\ 1048}#
+ #{f\ 1047}#)
+ #{val-exps\ 1036}#)))))))))
+ (#{build-letrec\ 338}#
+ (lambda (#{src\ 1053}#
+ #{in-order?\ 1054}#
+ #{ids\ 1055}#
+ #{vars\ 1056}#
+ #{val-exps\ 1057}#
+ #{body-exp\ 1058}#)
+ (if (null? #{vars\ 1056}#)
+ #{body-exp\ 1058}#
(begin
(for-each
- #{maybe-name-value!\ 299}#
- #{ids\ 1054}#
- #{val-exps\ 1056}#)
- (#{make-letrec\ 269}#
- #{src\ 1052}#
- #{in-order?\ 1053}#
- #{ids\ 1054}#
- #{vars\ 1055}#
- #{val-exps\ 1056}#
- #{body-exp\ 1057}#)))))
- (#{make-syntax-object\ 341}#
- (lambda (#{expression\ 1064}#
- #{wrap\ 1065}#
- #{module\ 1066}#)
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1055}#
+ #{val-exps\ 1057}#)
+ (#{make-letrec\ 270}#
+ #{src\ 1053}#
+ #{in-order?\ 1054}#
+ #{ids\ 1055}#
+ #{vars\ 1056}#
+ #{val-exps\ 1057}#
+ #{body-exp\ 1058}#)))))
+ (#{make-syntax-object\ 342}#
+ (lambda (#{expression\ 1065}#
+ #{wrap\ 1066}#
+ #{module\ 1067}#)
(vector
'syntax-object
- #{expression\ 1064}#
- #{wrap\ 1065}#
- #{module\ 1066}#)))
- (#{syntax-object?\ 343}#
- (lambda (#{x\ 1070}#)
- (if (vector? #{x\ 1070}#)
- (if (= (vector-length #{x\ 1070}#) 4)
- (eq? (vector-ref #{x\ 1070}# 0)
+ #{expression\ 1065}#
+ #{wrap\ 1066}#
+ #{module\ 1067}#)))
+ (#{syntax-object?\ 344}#
+ (lambda (#{x\ 1071}#)
+ (if (vector? #{x\ 1071}#)
+ (if (= (vector-length #{x\ 1071}#) 4)
+ (eq? (vector-ref #{x\ 1071}# 0)
'syntax-object)
#f)
#f)))
- (#{syntax-object-expression\ 345}#
- (lambda (#{x\ 1075}#) (vector-ref #{x\ 1075}# 1)))
- (#{syntax-object-wrap\ 347}#
- (lambda (#{x\ 1077}#) (vector-ref #{x\ 1077}# 2)))
- (#{syntax-object-module\ 349}#
- (lambda (#{x\ 1079}#) (vector-ref #{x\ 1079}# 3)))
- (#{source-annotation\ 358}#
- (lambda (#{x\ 1093}#)
- (if (#{syntax-object?\ 343}# #{x\ 1093}#)
- (#{source-annotation\ 358}#
- (#{syntax-object-expression\ 345}# #{x\ 1093}#))
- (if (pair? #{x\ 1093}#)
+ (#{syntax-object-expression\ 346}#
+ (lambda (#{x\ 1076}#) (vector-ref #{x\ 1076}# 1)))
+ (#{syntax-object-wrap\ 348}#
+ (lambda (#{x\ 1078}#) (vector-ref #{x\ 1078}# 2)))
+ (#{syntax-object-module\ 350}#
+ (lambda (#{x\ 1080}#) (vector-ref #{x\ 1080}# 3)))
+ (#{source-annotation\ 359}#
+ (lambda (#{x\ 1094}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1094}#)
+ (#{source-annotation\ 359}#
+ (#{syntax-object-expression\ 346}# #{x\ 1094}#))
+ (if (pair? #{x\ 1094}#)
(begin
- (let ((#{props\ 1100}# (source-properties #{x\ 1093}#)))
- (if (pair? #{props\ 1100}#) #{props\ 1100}# #f)))
+ (let ((#{props\ 1101}# (source-properties #{x\ 1094}#)))
+ (if (pair? #{props\ 1101}#) #{props\ 1101}# #f)))
#f))))
- (#{extend-env\ 367}#
- (lambda (#{labels\ 1102}# #{bindings\ 1103}# #{r\ 1104}#)
- (if (null? #{labels\ 1102}#)
- #{r\ 1104}#
- (#{extend-env\ 367}#
- (cdr #{labels\ 1102}#)
- (cdr #{bindings\ 1103}#)
- (cons (cons (car #{labels\ 1102}#)
- (car #{bindings\ 1103}#))
- #{r\ 1104}#)))))
- (#{extend-var-env\ 369}#
- (lambda (#{labels\ 1108}# #{vars\ 1109}# #{r\ 1110}#)
- (if (null? #{labels\ 1108}#)
- #{r\ 1110}#
- (#{extend-var-env\ 369}#
- (cdr #{labels\ 1108}#)
- (cdr #{vars\ 1109}#)
- (cons (cons (car #{labels\ 1108}#)
- (cons (quote lexical) (car #{vars\ 1109}#)))
- #{r\ 1110}#)))))
- (#{macros-only-env\ 371}#
- (lambda (#{r\ 1115}#)
- (if (null? #{r\ 1115}#)
+ (#{extend-env\ 368}#
+ (lambda (#{labels\ 1103}# #{bindings\ 1104}# #{r\ 1105}#)
+ (if (null? #{labels\ 1103}#)
+ #{r\ 1105}#
+ (#{extend-env\ 368}#
+ (cdr #{labels\ 1103}#)
+ (cdr #{bindings\ 1104}#)
+ (cons (cons (car #{labels\ 1103}#)
+ (car #{bindings\ 1104}#))
+ #{r\ 1105}#)))))
+ (#{extend-var-env\ 370}#
+ (lambda (#{labels\ 1109}# #{vars\ 1110}# #{r\ 1111}#)
+ (if (null? #{labels\ 1109}#)
+ #{r\ 1111}#
+ (#{extend-var-env\ 370}#
+ (cdr #{labels\ 1109}#)
+ (cdr #{vars\ 1110}#)
+ (cons (cons (car #{labels\ 1109}#)
+ (cons (quote lexical) (car #{vars\ 1110}#)))
+ #{r\ 1111}#)))))
+ (#{macros-only-env\ 372}#
+ (lambda (#{r\ 1116}#)
+ (if (null? #{r\ 1116}#)
'()
(begin
- (let ((#{a\ 1118}# (car #{r\ 1115}#)))
- (if (eq? (car (cdr #{a\ 1118}#)) (quote macro))
- (cons #{a\ 1118}#
- (#{macros-only-env\ 371}# (cdr #{r\ 1115}#)))
- (#{macros-only-env\ 371}# (cdr #{r\ 1115}#))))))))
- (#{lookup\ 373}#
- (lambda (#{x\ 1119}# #{r\ 1120}# #{mod\ 1121}#)
+ (let ((#{a\ 1119}# (car #{r\ 1116}#)))
+ (if (eq? (car (cdr #{a\ 1119}#)) (quote macro))
+ (cons #{a\ 1119}#
+ (#{macros-only-env\ 372}# (cdr #{r\ 1116}#)))
+ (#{macros-only-env\ 372}# (cdr #{r\ 1116}#))))))))
+ (#{lookup\ 374}#
+ (lambda (#{x\ 1120}# #{r\ 1121}# #{mod\ 1122}#)
(begin
- (let ((#{t\ 1127}# (assq #{x\ 1119}# #{r\ 1120}#)))
- (if #{t\ 1127}#
- (cdr #{t\ 1127}#)
- (if (symbol? #{x\ 1119}#)
+ (let ((#{t\ 1128}# (assq #{x\ 1120}# #{r\ 1121}#)))
+ (if #{t\ 1128}#
+ (cdr #{t\ 1128}#)
+ (if (symbol? #{x\ 1120}#)
(begin
- (let ((#{t\ 1133}#
- (#{get-global-definition-hook\ 295}#
- #{x\ 1119}#
- #{mod\ 1121}#)))
- (if #{t\ 1133}# #{t\ 1133}# (quote (global)))))
+ (let ((#{t\ 1134}#
+ (#{get-global-definition-hook\ 296}#
+ #{x\ 1120}#
+ #{mod\ 1122}#)))
+ (if #{t\ 1134}# #{t\ 1134}# (quote (global)))))
'(displaced-lexical)))))))
- (#{global-extend\ 375}#
- (lambda (#{type\ 1138}# #{sym\ 1139}# #{val\ 1140}#)
- (#{put-global-definition-hook\ 293}#
- #{sym\ 1139}#
- #{type\ 1138}#
- #{val\ 1140}#)))
- (#{nonsymbol-id?\ 377}#
- (lambda (#{x\ 1144}#)
- (if (#{syntax-object?\ 343}# #{x\ 1144}#)
+ (#{global-extend\ 376}#
+ (lambda (#{type\ 1139}# #{sym\ 1140}# #{val\ 1141}#)
+ (#{put-global-definition-hook\ 294}#
+ #{sym\ 1140}#
+ #{type\ 1139}#
+ #{val\ 1141}#)))
+ (#{nonsymbol-id?\ 378}#
+ (lambda (#{x\ 1145}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1145}#)
(symbol?
- (#{syntax-object-expression\ 345}# #{x\ 1144}#))
+ (#{syntax-object-expression\ 346}# #{x\ 1145}#))
#f)))
- (#{id?\ 379}#
- (lambda (#{x\ 1148}#)
- (if (symbol? #{x\ 1148}#)
+ (#{id?\ 380}#
+ (lambda (#{x\ 1149}#)
+ (if (symbol? #{x\ 1149}#)
#t
- (if (#{syntax-object?\ 343}# #{x\ 1148}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1149}#)
(symbol?
- (#{syntax-object-expression\ 345}# #{x\ 1148}#))
+ (#{syntax-object-expression\ 346}# #{x\ 1149}#))
#f))))
- (#{id-sym-name&marks\ 382}#
- (lambda (#{x\ 1155}# #{w\ 1156}#)
- (if (#{syntax-object?\ 343}# #{x\ 1155}#)
+ (#{id-sym-name&marks\ 383}#
+ (lambda (#{x\ 1156}# #{w\ 1157}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1156}#)
(values
- (#{syntax-object-expression\ 345}# #{x\ 1155}#)
- (#{join-marks\ 432}#
- (#{wrap-marks\ 386}# #{w\ 1156}#)
- (#{wrap-marks\ 386}#
- (#{syntax-object-wrap\ 347}# #{x\ 1155}#))))
+ (#{syntax-object-expression\ 346}# #{x\ 1156}#)
+ (#{join-marks\ 433}#
+ (#{wrap-marks\ 387}# #{w\ 1157}#)
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1156}#))))
(values
- #{x\ 1155}#
- (#{wrap-marks\ 386}# #{w\ 1156}#)))))
- (#{gen-label\ 395}#
+ #{x\ 1156}#
+ (#{wrap-marks\ 387}# #{w\ 1157}#)))))
+ (#{gen-label\ 396}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 397}#
- (lambda (#{ls\ 1159}#)
- (if (null? #{ls\ 1159}#)
+ (#{gen-labels\ 398}#
+ (lambda (#{ls\ 1160}#)
+ (if (null? #{ls\ 1160}#)
'()
- (cons (#{gen-label\ 395}#)
- (#{gen-labels\ 397}# (cdr #{ls\ 1159}#))))))
- (#{make-ribcage\ 400}#
- (lambda (#{symnames\ 1161}#
- #{marks\ 1162}#
- #{labels\ 1163}#)
+ (cons (#{gen-label\ 396}#)
+ (#{gen-labels\ 398}# (cdr #{ls\ 1160}#))))))
+ (#{make-ribcage\ 401}#
+ (lambda (#{symnames\ 1162}#
+ #{marks\ 1163}#
+ #{labels\ 1164}#)
(vector
'ribcage
- #{symnames\ 1161}#
- #{marks\ 1162}#
- #{labels\ 1163}#)))
- (#{ribcage-symnames\ 404}#
- (lambda (#{x\ 1172}#) (vector-ref #{x\ 1172}# 1)))
- (#{ribcage-marks\ 406}#
- (lambda (#{x\ 1174}#) (vector-ref #{x\ 1174}# 2)))
- (#{ribcage-labels\ 408}#
- (lambda (#{x\ 1176}#) (vector-ref #{x\ 1176}# 3)))
- (#{set-ribcage-symnames!\ 410}#
- (lambda (#{x\ 1178}# #{update\ 1179}#)
- (vector-set! #{x\ 1178}# 1 #{update\ 1179}#)))
- (#{set-ribcage-marks!\ 412}#
- (lambda (#{x\ 1182}# #{update\ 1183}#)
- (vector-set! #{x\ 1182}# 2 #{update\ 1183}#)))
- (#{set-ribcage-labels!\ 414}#
- (lambda (#{x\ 1186}# #{update\ 1187}#)
- (vector-set! #{x\ 1186}# 3 #{update\ 1187}#)))
- (#{anti-mark\ 420}#
- (lambda (#{w\ 1190}#)
- (#{make-wrap\ 384}#
- (cons #f (#{wrap-marks\ 386}# #{w\ 1190}#))
+ #{symnames\ 1162}#
+ #{marks\ 1163}#
+ #{labels\ 1164}#)))
+ (#{ribcage-symnames\ 405}#
+ (lambda (#{x\ 1173}#) (vector-ref #{x\ 1173}# 1)))
+ (#{ribcage-marks\ 407}#
+ (lambda (#{x\ 1175}#) (vector-ref #{x\ 1175}# 2)))
+ (#{ribcage-labels\ 409}#
+ (lambda (#{x\ 1177}#) (vector-ref #{x\ 1177}# 3)))
+ (#{set-ribcage-symnames!\ 411}#
+ (lambda (#{x\ 1179}# #{update\ 1180}#)
+ (vector-set! #{x\ 1179}# 1 #{update\ 1180}#)))
+ (#{set-ribcage-marks!\ 413}#
+ (lambda (#{x\ 1183}# #{update\ 1184}#)
+ (vector-set! #{x\ 1183}# 2 #{update\ 1184}#)))
+ (#{set-ribcage-labels!\ 415}#
+ (lambda (#{x\ 1187}# #{update\ 1188}#)
+ (vector-set! #{x\ 1187}# 3 #{update\ 1188}#)))
+ (#{anti-mark\ 421}#
+ (lambda (#{w\ 1191}#)
+ (#{make-wrap\ 385}#
+ (cons #f (#{wrap-marks\ 387}# #{w\ 1191}#))
(cons 'shift
- (#{wrap-subst\ 388}# #{w\ 1190}#)))))
- (#{extend-ribcage!\ 424}#
- (lambda (#{ribcage\ 1193}# #{id\ 1194}# #{label\ 1195}#)
+ (#{wrap-subst\ 389}# #{w\ 1191}#)))))
+ (#{extend-ribcage!\ 425}#
+ (lambda (#{ribcage\ 1194}# #{id\ 1195}# #{label\ 1196}#)
(begin
- (#{set-ribcage-symnames!\ 410}#
- #{ribcage\ 1193}#
- (cons (#{syntax-object-expression\ 345}# #{id\ 1194}#)
- (#{ribcage-symnames\ 404}# #{ribcage\ 1193}#)))
- (#{set-ribcage-marks!\ 412}#
- #{ribcage\ 1193}#
- (cons (#{wrap-marks\ 386}#
- (#{syntax-object-wrap\ 347}# #{id\ 1194}#))
- (#{ribcage-marks\ 406}# #{ribcage\ 1193}#)))
- (#{set-ribcage-labels!\ 414}#
- #{ribcage\ 1193}#
- (cons #{label\ 1195}#
- (#{ribcage-labels\ 408}# #{ribcage\ 1193}#))))))
- (#{make-binding-wrap\ 426}#
- (lambda (#{ids\ 1199}# #{labels\ 1200}# #{w\ 1201}#)
- (if (null? #{ids\ 1199}#)
- #{w\ 1201}#
- (#{make-wrap\ 384}#
- (#{wrap-marks\ 386}# #{w\ 1201}#)
+ (#{set-ribcage-symnames!\ 411}#
+ #{ribcage\ 1194}#
+ (cons (#{syntax-object-expression\ 346}# #{id\ 1195}#)
+ (#{ribcage-symnames\ 405}# #{ribcage\ 1194}#)))
+ (#{set-ribcage-marks!\ 413}#
+ #{ribcage\ 1194}#
+ (cons (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{id\ 1195}#))
+ (#{ribcage-marks\ 407}# #{ribcage\ 1194}#)))
+ (#{set-ribcage-labels!\ 415}#
+ #{ribcage\ 1194}#
+ (cons #{label\ 1196}#
+ (#{ribcage-labels\ 409}# #{ribcage\ 1194}#))))))
+ (#{make-binding-wrap\ 427}#
+ (lambda (#{ids\ 1200}# #{labels\ 1201}# #{w\ 1202}#)
+ (if (null? #{ids\ 1200}#)
+ #{w\ 1202}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w\ 1202}#)
(cons (begin
- (let ((#{labelvec\ 1206}#
- (list->vector #{labels\ 1200}#)))
+ (let ((#{labelvec\ 1207}#
+ (list->vector #{labels\ 1201}#)))
(begin
- (let ((#{n\ 1208}#
- (vector-length #{labelvec\ 1206}#)))
+ (let ((#{n\ 1209}#
+ (vector-length #{labelvec\ 1207}#)))
(begin
- (let ((#{symnamevec\ 1211}#
- (make-vector #{n\ 1208}#))
- (#{marksvec\ 1212}#
- (make-vector #{n\ 1208}#)))
+ (let ((#{symnamevec\ 1212}#
+ (make-vector #{n\ 1209}#))
+ (#{marksvec\ 1213}#
+ (make-vector #{n\ 1209}#)))
(begin
(letrec*
- ((#{f\ 1216}#
- (lambda (#{ids\ 1217}# #{i\ 1218}#)
- (if (not (null? #{ids\ 1217}#))
+ ((#{f\ 1217}#
+ (lambda (#{ids\ 1218}# #{i\ 1219}#)
+ (if (not (null? #{ids\ 1218}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 382}#
- (car #{ids\ 1217}#)
- #{w\ 1201}#))
- (lambda (#{symname\ 1219}#
- #{marks\ 1220}#)
+ (#{id-sym-name&marks\ 383}#
+ (car #{ids\ 1218}#)
+ #{w\ 1202}#))
+ (lambda (#{symname\ 1220}#
+ #{marks\ 1221}#)
(begin
(vector-set!
- #{symnamevec\ 1211}#
- #{i\ 1218}#
- #{symname\ 1219}#)
+ #{symnamevec\ 1212}#
+ #{i\ 1219}#
+ #{symname\ 1220}#)
(vector-set!
- #{marksvec\ 1212}#
- #{i\ 1218}#
- #{marks\ 1220}#)
- (#{f\ 1216}#
- (cdr #{ids\ 1217}#)
- (#{fx+\ 280}#
- #{i\ 1218}#
+ #{marksvec\ 1213}#
+ #{i\ 1219}#
+ #{marks\ 1221}#)
+ (#{f\ 1217}#
+ (cdr #{ids\ 1218}#)
+ (#{fx+\ 281}#
+ #{i\ 1219}#
1)))))))))
- (begin (#{f\ 1216}# #{ids\ 1199}# 0)))
- (#{make-ribcage\ 400}#
- #{symnamevec\ 1211}#
- #{marksvec\ 1212}#
- #{labelvec\ 1206}#))))))))
- (#{wrap-subst\ 388}# #{w\ 1201}#))))))
- (#{smart-append\ 428}#
- (lambda (#{m1\ 1223}# #{m2\ 1224}#)
- (if (null? #{m2\ 1224}#)
- #{m1\ 1223}#
- (append #{m1\ 1223}# #{m2\ 1224}#))))
- (#{join-wraps\ 430}#
- (lambda (#{w1\ 1227}# #{w2\ 1228}#)
+ (begin (#{f\ 1217}# #{ids\ 1200}# 0)))
+ (#{make-ribcage\ 401}#
+ #{symnamevec\ 1212}#
+ #{marksvec\ 1213}#
+ #{labelvec\ 1207}#))))))))
+ (#{wrap-subst\ 389}# #{w\ 1202}#))))))
+ (#{smart-append\ 429}#
+ (lambda (#{m1\ 1224}# #{m2\ 1225}#)
+ (if (null? #{m2\ 1225}#)
+ #{m1\ 1224}#
+ (append #{m1\ 1224}# #{m2\ 1225}#))))
+ (#{join-wraps\ 431}#
+ (lambda (#{w1\ 1228}# #{w2\ 1229}#)
(begin
- (let ((#{m1\ 1233}# (#{wrap-marks\ 386}# #{w1\ 1227}#))
- (#{s1\ 1234}# (#{wrap-subst\ 388}# #{w1\ 1227}#)))
- (if (null? #{m1\ 1233}#)
- (if (null? #{s1\ 1234}#)
- #{w2\ 1228}#
- (#{make-wrap\ 384}#
- (#{wrap-marks\ 386}# #{w2\ 1228}#)
- (#{smart-append\ 428}#
- #{s1\ 1234}#
- (#{wrap-subst\ 388}# #{w2\ 1228}#))))
- (#{make-wrap\ 384}#
- (#{smart-append\ 428}#
- #{m1\ 1233}#
- (#{wrap-marks\ 386}# #{w2\ 1228}#))
- (#{smart-append\ 428}#
- #{s1\ 1234}#
- (#{wrap-subst\ 388}# #{w2\ 1228}#))))))))
- (#{join-marks\ 432}#
- (lambda (#{m1\ 1235}# #{m2\ 1236}#)
- (#{smart-append\ 428}# #{m1\ 1235}# #{m2\ 1236}#)))
- (#{same-marks?\ 434}#
- (lambda (#{x\ 1239}# #{y\ 1240}#)
+ (let ((#{m1\ 1234}# (#{wrap-marks\ 387}# #{w1\ 1228}#))
+ (#{s1\ 1235}# (#{wrap-subst\ 389}# #{w1\ 1228}#)))
+ (if (null? #{m1\ 1234}#)
+ (if (null? #{s1\ 1235}#)
+ #{w2\ 1229}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w2\ 1229}#)
+ (#{smart-append\ 429}#
+ #{s1\ 1235}#
+ (#{wrap-subst\ 389}# #{w2\ 1229}#))))
+ (#{make-wrap\ 385}#
+ (#{smart-append\ 429}#
+ #{m1\ 1234}#
+ (#{wrap-marks\ 387}# #{w2\ 1229}#))
+ (#{smart-append\ 429}#
+ #{s1\ 1235}#
+ (#{wrap-subst\ 389}# #{w2\ 1229}#))))))))
+ (#{join-marks\ 433}#
+ (lambda (#{m1\ 1236}# #{m2\ 1237}#)
+ (#{smart-append\ 429}# #{m1\ 1236}# #{m2\ 1237}#)))
+ (#{same-marks?\ 435}#
+ (lambda (#{x\ 1240}# #{y\ 1241}#)
(begin
- (let ((#{t\ 1245}# (eq? #{x\ 1239}# #{y\ 1240}#)))
- (if #{t\ 1245}#
- #{t\ 1245}#
- (if (not (null? #{x\ 1239}#))
- (if (not (null? #{y\ 1240}#))
- (if (eq? (car #{x\ 1239}#) (car #{y\ 1240}#))
- (#{same-marks?\ 434}#
- (cdr #{x\ 1239}#)
- (cdr #{y\ 1240}#))
+ (let ((#{t\ 1246}# (eq? #{x\ 1240}# #{y\ 1241}#)))
+ (if #{t\ 1246}#
+ #{t\ 1246}#
+ (if (not (null? #{x\ 1240}#))
+ (if (not (null? #{y\ 1241}#))
+ (if (eq? (car #{x\ 1240}#) (car #{y\ 1241}#))
+ (#{same-marks?\ 435}#
+ (cdr #{x\ 1240}#)
+ (cdr #{y\ 1241}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 436}#
- (lambda (#{id\ 1251}# #{w\ 1252}#)
+ (#{id-var-name\ 437}#
+ (lambda (#{id\ 1252}# #{w\ 1253}#)
(letrec*
- ((#{search\ 1257}#
- (lambda (#{sym\ 1273}# #{subst\ 1274}# #{marks\ 1275}#)
- (if (null? #{subst\ 1274}#)
- (values #f #{marks\ 1275}#)
+ ((#{search\ 1258}#
+ (lambda (#{sym\ 1274}# #{subst\ 1275}# #{marks\ 1276}#)
+ (if (null? #{subst\ 1275}#)
+ (values #f #{marks\ 1276}#)
(begin
- (let ((#{fst\ 1280}# (car #{subst\ 1274}#)))
- (if (eq? #{fst\ 1280}# (quote shift))
- (#{search\ 1257}#
- #{sym\ 1273}#
- (cdr #{subst\ 1274}#)
- (cdr #{marks\ 1275}#))
+ (let ((#{fst\ 1281}# (car #{subst\ 1275}#)))
+ (if (eq? #{fst\ 1281}# (quote shift))
+ (#{search\ 1258}#
+ #{sym\ 1274}#
+ (cdr #{subst\ 1275}#)
+ (cdr #{marks\ 1276}#))
(begin
- (let ((#{symnames\ 1282}#
- (#{ribcage-symnames\ 404}#
- #{fst\ 1280}#)))
- (if (vector? #{symnames\ 1282}#)
- (#{search-vector-rib\ 1261}#
- #{sym\ 1273}#
- #{subst\ 1274}#
- #{marks\ 1275}#
- #{symnames\ 1282}#
- #{fst\ 1280}#)
- (#{search-list-rib\ 1259}#
- #{sym\ 1273}#
- #{subst\ 1274}#
- #{marks\ 1275}#
- #{symnames\ 1282}#
- #{fst\ 1280}#))))))))))
- (#{search-list-rib\ 1259}#
- (lambda (#{sym\ 1283}#
- #{subst\ 1284}#
- #{marks\ 1285}#
- #{symnames\ 1286}#
- #{ribcage\ 1287}#)
+ (let ((#{symnames\ 1283}#
+ (#{ribcage-symnames\ 405}#
+ #{fst\ 1281}#)))
+ (if (vector? #{symnames\ 1283}#)
+ (#{search-vector-rib\ 1262}#
+ #{sym\ 1274}#
+ #{subst\ 1275}#
+ #{marks\ 1276}#
+ #{symnames\ 1283}#
+ #{fst\ 1281}#)
+ (#{search-list-rib\ 1260}#
+ #{sym\ 1274}#
+ #{subst\ 1275}#
+ #{marks\ 1276}#
+ #{symnames\ 1283}#
+ #{fst\ 1281}#))))))))))
+ (#{search-list-rib\ 1260}#
+ (lambda (#{sym\ 1284}#
+ #{subst\ 1285}#
+ #{marks\ 1286}#
+ #{symnames\ 1287}#
+ #{ribcage\ 1288}#)
(letrec*
- ((#{f\ 1296}#
- (lambda (#{symnames\ 1297}# #{i\ 1298}#)
- (if (null? #{symnames\ 1297}#)
- (#{search\ 1257}#
- #{sym\ 1283}#
- (cdr #{subst\ 1284}#)
- #{marks\ 1285}#)
- (if (if (eq? (car #{symnames\ 1297}#)
- #{sym\ 1283}#)
- (#{same-marks?\ 434}#
- #{marks\ 1285}#
+ ((#{f\ 1297}#
+ (lambda (#{symnames\ 1298}# #{i\ 1299}#)
+ (if (null? #{symnames\ 1298}#)
+ (#{search\ 1258}#
+ #{sym\ 1284}#
+ (cdr #{subst\ 1285}#)
+ #{marks\ 1286}#)
+ (if (if (eq? (car #{symnames\ 1298}#)
+ #{sym\ 1284}#)
+ (#{same-marks?\ 435}#
+ #{marks\ 1286}#
(list-ref
- (#{ribcage-marks\ 406}#
- #{ribcage\ 1287}#)
- #{i\ 1298}#))
+ (#{ribcage-marks\ 407}#
+ #{ribcage\ 1288}#)
+ #{i\ 1299}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 408}# #{ribcage\ 1287}#)
- #{i\ 1298}#)
- #{marks\ 1285}#)
- (#{f\ 1296}#
- (cdr #{symnames\ 1297}#)
- (#{fx+\ 280}# #{i\ 1298}# 1)))))))
- (begin (#{f\ 1296}# #{symnames\ 1286}# 0)))))
- (#{search-vector-rib\ 1261}#
- (lambda (#{sym\ 1306}#
- #{subst\ 1307}#
- #{marks\ 1308}#
- #{symnames\ 1309}#
- #{ribcage\ 1310}#)
+ (#{ribcage-labels\ 409}# #{ribcage\ 1288}#)
+ #{i\ 1299}#)
+ #{marks\ 1286}#)
+ (#{f\ 1297}#
+ (cdr #{symnames\ 1298}#)
+ (#{fx+\ 281}# #{i\ 1299}# 1)))))))
+ (begin (#{f\ 1297}# #{symnames\ 1287}# 0)))))
+ (#{search-vector-rib\ 1262}#
+ (lambda (#{sym\ 1307}#
+ #{subst\ 1308}#
+ #{marks\ 1309}#
+ #{symnames\ 1310}#
+ #{ribcage\ 1311}#)
(begin
- (let ((#{n\ 1317}# (vector-length #{symnames\ 1309}#)))
+ (let ((#{n\ 1318}# (vector-length #{symnames\ 1310}#)))
(letrec*
- ((#{f\ 1320}#
- (lambda (#{i\ 1321}#)
- (if (#{fx=\ 284}# #{i\ 1321}# #{n\ 1317}#)
- (#{search\ 1257}#
- #{sym\ 1306}#
- (cdr #{subst\ 1307}#)
- #{marks\ 1308}#)
+ ((#{f\ 1321}#
+ (lambda (#{i\ 1322}#)
+ (if (#{fx=\ 285}# #{i\ 1322}# #{n\ 1318}#)
+ (#{search\ 1258}#
+ #{sym\ 1307}#
+ (cdr #{subst\ 1308}#)
+ #{marks\ 1309}#)
(if (if (eq? (vector-ref
- #{symnames\ 1309}#
- #{i\ 1321}#)
- #{sym\ 1306}#)
- (#{same-marks?\ 434}#
- #{marks\ 1308}#
+ #{symnames\ 1310}#
+ #{i\ 1322}#)
+ #{sym\ 1307}#)
+ (#{same-marks?\ 435}#
+ #{marks\ 1309}#
(vector-ref
- (#{ribcage-marks\ 406}#
- #{ribcage\ 1310}#)
- #{i\ 1321}#))
+ (#{ribcage-marks\ 407}#
+ #{ribcage\ 1311}#)
+ #{i\ 1322}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 408}#
- #{ribcage\ 1310}#)
- #{i\ 1321}#)
- #{marks\ 1308}#)
- (#{f\ 1320}#
- (#{fx+\ 280}# #{i\ 1321}# 1)))))))
- (begin (#{f\ 1320}# 0))))))))
+ (#{ribcage-labels\ 409}#
+ #{ribcage\ 1311}#)
+ #{i\ 1322}#)
+ #{marks\ 1309}#)
+ (#{f\ 1321}#
+ (#{fx+\ 281}# #{i\ 1322}# 1)))))))
+ (begin (#{f\ 1321}# 0))))))))
(begin
- (if (symbol? #{id\ 1251}#)
+ (if (symbol? #{id\ 1252}#)
(begin
- (let ((#{t\ 1331}#
+ (let ((#{t\ 1332}#
(call-with-values
(lambda ()
- (#{search\ 1257}#
- #{id\ 1251}#
- (#{wrap-subst\ 388}# #{w\ 1252}#)
- (#{wrap-marks\ 386}# #{w\ 1252}#)))
- (lambda (#{x\ 1333}# . #{ignore\ 1334}#)
- #{x\ 1333}#))))
- (if #{t\ 1331}# #{t\ 1331}# #{id\ 1251}#)))
- (if (#{syntax-object?\ 343}# #{id\ 1251}#)
+ (#{search\ 1258}#
+ #{id\ 1252}#
+ (#{wrap-subst\ 389}# #{w\ 1253}#)
+ (#{wrap-marks\ 387}# #{w\ 1253}#)))
+ (lambda (#{x\ 1334}# . #{ignore\ 1335}#)
+ #{x\ 1334}#))))
+ (if #{t\ 1332}# #{t\ 1332}# #{id\ 1252}#)))
+ (if (#{syntax-object?\ 344}# #{id\ 1252}#)
(begin
- (let ((#{id\ 1342}#
- (#{syntax-object-expression\ 345}#
- #{id\ 1251}#))
- (#{w1\ 1343}#
- (#{syntax-object-wrap\ 347}# #{id\ 1251}#)))
+ (let ((#{id\ 1343}#
+ (#{syntax-object-expression\ 346}#
+ #{id\ 1252}#))
+ (#{w1\ 1344}#
+ (#{syntax-object-wrap\ 348}# #{id\ 1252}#)))
(begin
- (let ((#{marks\ 1345}#
- (#{join-marks\ 432}#
- (#{wrap-marks\ 386}# #{w\ 1252}#)
- (#{wrap-marks\ 386}# #{w1\ 1343}#))))
+ (let ((#{marks\ 1346}#
+ (#{join-marks\ 433}#
+ (#{wrap-marks\ 387}# #{w\ 1253}#)
+ (#{wrap-marks\ 387}# #{w1\ 1344}#))))
(call-with-values
(lambda ()
- (#{search\ 1257}#
- #{id\ 1342}#
- (#{wrap-subst\ 388}# #{w\ 1252}#)
- #{marks\ 1345}#))
- (lambda (#{new-id\ 1346}# #{marks\ 1347}#)
+ (#{search\ 1258}#
+ #{id\ 1343}#
+ (#{wrap-subst\ 389}# #{w\ 1253}#)
+ #{marks\ 1346}#))
+ (lambda (#{new-id\ 1347}# #{marks\ 1348}#)
(begin
- (let ((#{t\ 1352}# #{new-id\ 1346}#))
- (if #{t\ 1352}#
- #{t\ 1352}#
+ (let ((#{t\ 1353}# #{new-id\ 1347}#))
+ (if #{t\ 1353}#
+ #{t\ 1353}#
(begin
- (let ((#{t\ 1355}#
+ (let ((#{t\ 1356}#
(call-with-values
(lambda ()
- (#{search\ 1257}#
- #{id\ 1342}#
- (#{wrap-subst\ 388}#
- #{w1\ 1343}#)
- #{marks\ 1347}#))
- (lambda (#{x\ 1357}#
+ (#{search\ 1258}#
+ #{id\ 1343}#
+ (#{wrap-subst\ 389}#
+ #{w1\ 1344}#)
+ #{marks\ 1348}#))
+ (lambda (#{x\ 1358}#
.
- #{ignore\ 1358}#)
- #{x\ 1357}#))))
- (if #{t\ 1355}#
- #{t\ 1355}#
- #{id\ 1342}#))))))))))))
+ #{ignore\ 1359}#)
+ #{x\ 1358}#))))
+ (if #{t\ 1356}#
+ #{t\ 1356}#
+ #{id\ 1343}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1251}#)))))))
- (#{free-id=?\ 438}#
- (lambda (#{i\ 1363}# #{j\ 1364}#)
+ #{id\ 1252}#)))))))
+ (#{free-id=?\ 439}#
+ (lambda (#{i\ 1364}# #{j\ 1365}#)
(if (eq? (begin
- (let ((#{x\ 1370}# #{i\ 1363}#))
- (if (#{syntax-object?\ 343}# #{x\ 1370}#)
- (#{syntax-object-expression\ 345}# #{x\ 1370}#)
- #{x\ 1370}#)))
+ (let ((#{x\ 1371}# #{i\ 1364}#))
+ (if (#{syntax-object?\ 344}# #{x\ 1371}#)
+ (#{syntax-object-expression\ 346}# #{x\ 1371}#)
+ #{x\ 1371}#)))
(begin
- (let ((#{x\ 1373}# #{j\ 1364}#))
- (if (#{syntax-object?\ 343}# #{x\ 1373}#)
- (#{syntax-object-expression\ 345}# #{x\ 1373}#)
- #{x\ 1373}#))))
- (eq? (#{id-var-name\ 436}# #{i\ 1363}# (quote (())))
- (#{id-var-name\ 436}# #{j\ 1364}# (quote (()))))
+ (let ((#{x\ 1374}# #{j\ 1365}#))
+ (if (#{syntax-object?\ 344}# #{x\ 1374}#)
+ (#{syntax-object-expression\ 346}# #{x\ 1374}#)
+ #{x\ 1374}#))))
+ (eq? (#{id-var-name\ 437}# #{i\ 1364}# (quote (())))
+ (#{id-var-name\ 437}# #{j\ 1365}# (quote (()))))
#f)))
- (#{bound-id=?\ 440}#
- (lambda (#{i\ 1377}# #{j\ 1378}#)
- (if (if (#{syntax-object?\ 343}# #{i\ 1377}#)
- (#{syntax-object?\ 343}# #{j\ 1378}#)
+ (#{bound-id=?\ 441}#
+ (lambda (#{i\ 1378}# #{j\ 1379}#)
+ (if (if (#{syntax-object?\ 344}# #{i\ 1378}#)
+ (#{syntax-object?\ 344}# #{j\ 1379}#)
#f)
- (if (eq? (#{syntax-object-expression\ 345}# #{i\ 1377}#)
- (#{syntax-object-expression\ 345}# #{j\ 1378}#))
- (#{same-marks?\ 434}#
- (#{wrap-marks\ 386}#
- (#{syntax-object-wrap\ 347}# #{i\ 1377}#))
- (#{wrap-marks\ 386}#
- (#{syntax-object-wrap\ 347}# #{j\ 1378}#)))
+ (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1378}#)
+ (#{syntax-object-expression\ 346}# #{j\ 1379}#))
+ (#{same-marks?\ 435}#
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{i\ 1378}#))
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{j\ 1379}#)))
#f)
- (eq? #{i\ 1377}# #{j\ 1378}#))))
- (#{valid-bound-ids?\ 442}#
- (lambda (#{ids\ 1385}#)
+ (eq? #{i\ 1378}# #{j\ 1379}#))))
+ (#{valid-bound-ids?\ 443}#
+ (lambda (#{ids\ 1386}#)
(if (letrec*
- ((#{all-ids?\ 1390}#
- (lambda (#{ids\ 1391}#)
+ ((#{all-ids?\ 1391}#
+ (lambda (#{ids\ 1392}#)
(begin
- (let ((#{t\ 1394}# (null? #{ids\ 1391}#)))
- (if #{t\ 1394}#
- #{t\ 1394}#
- (if (#{id?\ 379}# (car #{ids\ 1391}#))
- (#{all-ids?\ 1390}# (cdr #{ids\ 1391}#))
+ (let ((#{t\ 1395}# (null? #{ids\ 1392}#)))
+ (if #{t\ 1395}#
+ #{t\ 1395}#
+ (if (#{id?\ 380}# (car #{ids\ 1392}#))
+ (#{all-ids?\ 1391}# (cdr #{ids\ 1392}#))
#f)))))))
- (begin (#{all-ids?\ 1390}# #{ids\ 1385}#)))
- (#{distinct-bound-ids?\ 444}# #{ids\ 1385}#)
+ (begin (#{all-ids?\ 1391}# #{ids\ 1386}#)))
+ (#{distinct-bound-ids?\ 445}# #{ids\ 1386}#)
#f)))
- (#{distinct-bound-ids?\ 444}#
- (lambda (#{ids\ 1399}#)
+ (#{distinct-bound-ids?\ 445}#
+ (lambda (#{ids\ 1400}#)
(letrec*
- ((#{distinct?\ 1403}#
- (lambda (#{ids\ 1404}#)
+ ((#{distinct?\ 1404}#
+ (lambda (#{ids\ 1405}#)
(begin
- (let ((#{t\ 1407}# (null? #{ids\ 1404}#)))
- (if #{t\ 1407}#
- #{t\ 1407}#
- (if (not (#{bound-id-member?\ 446}#
- (car #{ids\ 1404}#)
- (cdr #{ids\ 1404}#)))
- (#{distinct?\ 1403}# (cdr #{ids\ 1404}#))
+ (let ((#{t\ 1408}# (null? #{ids\ 1405}#)))
+ (if #{t\ 1408}#
+ #{t\ 1408}#
+ (if (not (#{bound-id-member?\ 447}#
+ (car #{ids\ 1405}#)
+ (cdr #{ids\ 1405}#)))
+ (#{distinct?\ 1404}# (cdr #{ids\ 1405}#))
#f)))))))
- (begin (#{distinct?\ 1403}# #{ids\ 1399}#)))))
- (#{bound-id-member?\ 446}#
- (lambda (#{x\ 1411}# #{list\ 1412}#)
- (if (not (null? #{list\ 1412}#))
+ (begin (#{distinct?\ 1404}# #{ids\ 1400}#)))))
+ (#{bound-id-member?\ 447}#
+ (lambda (#{x\ 1412}# #{list\ 1413}#)
+ (if (not (null? #{list\ 1413}#))
(begin
- (let ((#{t\ 1419}#
- (#{bound-id=?\ 440}#
- #{x\ 1411}#
- (car #{list\ 1412}#))))
- (if #{t\ 1419}#
- #{t\ 1419}#
- (#{bound-id-member?\ 446}#
- #{x\ 1411}#
- (cdr #{list\ 1412}#)))))
+ (let ((#{t\ 1420}#
+ (#{bound-id=?\ 441}#
+ #{x\ 1412}#
+ (car #{list\ 1413}#))))
+ (if #{t\ 1420}#
+ #{t\ 1420}#
+ (#{bound-id-member?\ 447}#
+ #{x\ 1412}#
+ (cdr #{list\ 1413}#)))))
#f)))
- (#{wrap\ 448}#
- (lambda (#{x\ 1421}# #{w\ 1422}# #{defmod\ 1423}#)
- (if (if (null? (#{wrap-marks\ 386}# #{w\ 1422}#))
- (null? (#{wrap-subst\ 388}# #{w\ 1422}#))
+ (#{wrap\ 449}#
+ (lambda (#{x\ 1422}# #{w\ 1423}# #{defmod\ 1424}#)
+ (if (if (null? (#{wrap-marks\ 387}# #{w\ 1423}#))
+ (null? (#{wrap-subst\ 389}# #{w\ 1423}#))
#f)
- #{x\ 1421}#
- (if (#{syntax-object?\ 343}# #{x\ 1421}#)
- (#{make-syntax-object\ 341}#
- (#{syntax-object-expression\ 345}# #{x\ 1421}#)
- (#{join-wraps\ 430}#
- #{w\ 1422}#
- (#{syntax-object-wrap\ 347}# #{x\ 1421}#))
- (#{syntax-object-module\ 349}# #{x\ 1421}#))
- (if (null? #{x\ 1421}#)
- #{x\ 1421}#
- (#{make-syntax-object\ 341}#
- #{x\ 1421}#
- #{w\ 1422}#
- #{defmod\ 1423}#))))))
- (#{source-wrap\ 450}#
- (lambda (#{x\ 1436}#
- #{w\ 1437}#
- #{s\ 1438}#
- #{defmod\ 1439}#)
- (#{wrap\ 448}#
- (#{decorate-source\ 297}#
- #{x\ 1436}#
- #{s\ 1438}#)
- #{w\ 1437}#
- #{defmod\ 1439}#)))
- (#{chi-sequence\ 452}#
- (lambda (#{body\ 1444}#
- #{r\ 1445}#
- #{w\ 1446}#
- #{s\ 1447}#
- #{mod\ 1448}#)
- (#{build-sequence\ 331}#
- #{s\ 1447}#
+ #{x\ 1422}#
+ (if (#{syntax-object?\ 344}# #{x\ 1422}#)
+ (#{make-syntax-object\ 342}#
+ (#{syntax-object-expression\ 346}# #{x\ 1422}#)
+ (#{join-wraps\ 431}#
+ #{w\ 1423}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1422}#))
+ (#{syntax-object-module\ 350}# #{x\ 1422}#))
+ (if (null? #{x\ 1422}#)
+ #{x\ 1422}#
+ (#{make-syntax-object\ 342}#
+ #{x\ 1422}#
+ #{w\ 1423}#
+ #{defmod\ 1424}#))))))
+ (#{source-wrap\ 451}#
+ (lambda (#{x\ 1437}#
+ #{w\ 1438}#
+ #{s\ 1439}#
+ #{defmod\ 1440}#)
+ (#{wrap\ 449}#
+ (#{decorate-source\ 298}#
+ #{x\ 1437}#
+ #{s\ 1439}#)
+ #{w\ 1438}#
+ #{defmod\ 1440}#)))
+ (#{chi-sequence\ 453}#
+ (lambda (#{body\ 1445}#
+ #{r\ 1446}#
+ #{w\ 1447}#
+ #{s\ 1448}#
+ #{mod\ 1449}#)
+ (#{build-sequence\ 332}#
+ #{s\ 1448}#
(letrec*
- ((#{dobody\ 1459}#
- (lambda (#{body\ 1460}#
- #{r\ 1461}#
- #{w\ 1462}#
- #{mod\ 1463}#)
- (if (null? #{body\ 1460}#)
+ ((#{dobody\ 1460}#
+ (lambda (#{body\ 1461}#
+ #{r\ 1462}#
+ #{w\ 1463}#
+ #{mod\ 1464}#)
+ (if (null? #{body\ 1461}#)
'()
(begin
- (let ((#{first\ 1465}#
- (#{chi\ 464}#
- (car #{body\ 1460}#)
- #{r\ 1461}#
- #{w\ 1462}#
- #{mod\ 1463}#)))
- (cons #{first\ 1465}#
- (#{dobody\ 1459}#
- (cdr #{body\ 1460}#)
- #{r\ 1461}#
- #{w\ 1462}#
- #{mod\ 1463}#))))))))
+ (let ((#{first\ 1466}#
+ (#{chi\ 465}#
+ (car #{body\ 1461}#)
+ #{r\ 1462}#
+ #{w\ 1463}#
+ #{mod\ 1464}#)))
+ (cons #{first\ 1466}#
+ (#{dobody\ 1460}#
+ (cdr #{body\ 1461}#)
+ #{r\ 1462}#
+ #{w\ 1463}#
+ #{mod\ 1464}#))))))))
(begin
- (#{dobody\ 1459}#
- #{body\ 1444}#
- #{r\ 1445}#
- #{w\ 1446}#
- #{mod\ 1448}#))))))
- (#{chi-top-sequence\ 454}#
- (lambda (#{body\ 1466}#
- #{r\ 1467}#
- #{w\ 1468}#
- #{s\ 1469}#
- #{m\ 1470}#
- #{esew\ 1471}#
- #{mod\ 1472}#)
- (#{build-sequence\ 331}#
- #{s\ 1469}#
+ (#{dobody\ 1460}#
+ #{body\ 1445}#
+ #{r\ 1446}#
+ #{w\ 1447}#
+ #{mod\ 1449}#))))))
+ (#{chi-top-sequence\ 455}#
+ (lambda (#{body\ 1467}#
+ #{r\ 1468}#
+ #{w\ 1469}#
+ #{s\ 1470}#
+ #{m\ 1471}#
+ #{esew\ 1472}#
+ #{mod\ 1473}#)
+ (#{build-sequence\ 332}#
+ #{s\ 1470}#
(letrec*
- ((#{dobody\ 1488}#
- (lambda (#{body\ 1489}#
- #{r\ 1490}#
- #{w\ 1491}#
- #{m\ 1492}#
- #{esew\ 1493}#
- #{mod\ 1494}#
- #{out\ 1495}#)
- (if (null? #{body\ 1489}#)
- (reverse #{out\ 1495}#)
- (#{dobody\ 1488}#
- (cdr #{body\ 1489}#)
- #{r\ 1490}#
- #{w\ 1491}#
- #{m\ 1492}#
- #{esew\ 1493}#
- #{mod\ 1494}#
- (cons (#{chi-top\ 462}#
- (car #{body\ 1489}#)
- #{r\ 1490}#
- #{w\ 1491}#
- #{m\ 1492}#
- #{esew\ 1493}#
- #{mod\ 1494}#)
- #{out\ 1495}#))))))
+ ((#{dobody\ 1489}#
+ (lambda (#{body\ 1490}#
+ #{r\ 1491}#
+ #{w\ 1492}#
+ #{m\ 1493}#
+ #{esew\ 1494}#
+ #{mod\ 1495}#
+ #{out\ 1496}#)
+ (if (null? #{body\ 1490}#)
+ (reverse #{out\ 1496}#)
+ (#{dobody\ 1489}#
+ (cdr #{body\ 1490}#)
+ #{r\ 1491}#
+ #{w\ 1492}#
+ #{m\ 1493}#
+ #{esew\ 1494}#
+ #{mod\ 1495}#
+ (cons (#{chi-top\ 463}#
+ (car #{body\ 1490}#)
+ #{r\ 1491}#
+ #{w\ 1492}#
+ #{m\ 1493}#
+ #{esew\ 1494}#
+ #{mod\ 1495}#)
+ #{out\ 1496}#))))))
(begin
- (#{dobody\ 1488}#
- #{body\ 1466}#
- #{r\ 1467}#
- #{w\ 1468}#
- #{m\ 1470}#
- #{esew\ 1471}#
- #{mod\ 1472}#
+ (#{dobody\ 1489}#
+ #{body\ 1467}#
+ #{r\ 1468}#
+ #{w\ 1469}#
+ #{m\ 1471}#
+ #{esew\ 1472}#
+ #{mod\ 1473}#
'()))))))
- (#{chi-install-global\ 456}#
- (lambda (#{name\ 1496}# #{e\ 1497}#)
- (#{build-global-definition\ 319}#
+ (#{chi-install-global\ 457}#
+ (lambda (#{name\ 1497}# #{e\ 1498}#)
+ (#{build-global-definition\ 320}#
#f
- #{name\ 1496}#
- (#{build-application\ 303}#
+ #{name\ 1497}#
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 327}#
+ (#{build-primref\ 328}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 329}# #f #{name\ 1496}#)
- (#{build-data\ 329}# #f (quote macro))
- #{e\ 1497}#)))))
- (#{chi-when-list\ 458}#
- (lambda (#{e\ 1505}# #{when-list\ 1506}# #{w\ 1507}#)
+ (list (#{build-data\ 330}# #f #{name\ 1497}#)
+ (#{build-data\ 330}# #f (quote macro))
+ #{e\ 1498}#)))))
+ (#{chi-when-list\ 459}#
+ (lambda (#{e\ 1506}# #{when-list\ 1507}# #{w\ 1508}#)
(letrec*
- ((#{f\ 1514}#
- (lambda (#{when-list\ 1515}# #{situations\ 1516}#)
- (if (null? #{when-list\ 1515}#)
- #{situations\ 1516}#
- (#{f\ 1514}#
- (cdr #{when-list\ 1515}#)
+ ((#{f\ 1515}#
+ (lambda (#{when-list\ 1516}# #{situations\ 1517}#)
+ (if (null? #{when-list\ 1516}#)
+ #{situations\ 1517}#
+ (#{f\ 1515}#
+ (cdr #{when-list\ 1516}#)
(cons (begin
- (let ((#{x\ 1518}# (car #{when-list\ 1515}#)))
- (if (#{free-id=?\ 438}#
- #{x\ 1518}#
+ (let ((#{x\ 1519}# (car #{when-list\ 1516}#)))
+ (if (#{free-id=?\ 439}#
+ #{x\ 1519}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1517"))
+ #(ribcage #(x) #((top)) #("i1518"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1511" "i1512" "i1513"))
+ #("i1512" "i1513" "i1514"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1508" "i1509" "i1510"))
+ #("i1509" "i1510" "i1511"))
#(ribcage
(lambda-var-list
gen-var
@@ -1493,154 +1493,154 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 438}#
- #{x\ 1518}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1519}#
'#(syntax-object
load
((top)
@@ -1650,17 +1650,17 @@
#(ribcage
#(x)
#((top))
- #("i1517"))
+ #("i1518"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1511" "i1512" "i1513"))
+ #("i1512" "i1513" "i1514"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1508" "i1509" "i1510"))
+ #("i1509" "i1510" "i1511"))
#(ribcage
(lambda-var-list
gen-var
@@ -1936,154 +1936,154 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 438}#
- #{x\ 1518}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1519}#
'#(syntax-object
eval
((top)
@@ -2093,17 +2093,17 @@
#(ribcage
#(x)
#((top))
- #("i1517"))
+ #("i1518"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1511" "i1512" "i1513"))
+ #("i1512" "i1513" "i1514"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1508" "i1509" "i1510"))
+ #("i1509" "i1510" "i1511"))
#(ribcage
(lambda-var-list
gen-var
@@ -2379,154 +2379,154 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 438}#
- #{x\ 1518}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1519}#
'#(syntax-object
expand
((top)
@@ -2536,17 +2536,17 @@
#(ribcage
#(x)
#((top))
- #("i1517"))
+ #("i1518"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1511" "i1512" "i1513"))
+ #("i1512" "i1513" "i1514"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1508" "i1509" "i1510"))
+ #("i1509" "i1510" "i1511"))
#(ribcage
(lambda-var-list
gen-var
@@ -2822,398 +2822,398 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1505}#
- (#{wrap\ 448}#
- #{x\ 1518}#
- #{w\ 1507}#
+ #{e\ 1506}#
+ (#{wrap\ 449}#
+ #{x\ 1519}#
+ #{w\ 1508}#
#f))))))))
- #{situations\ 1516}#))))))
+ #{situations\ 1517}#))))))
(begin
- (#{f\ 1514}# #{when-list\ 1506}# (quote ()))))))
- (#{syntax-type\ 460}#
- (lambda (#{e\ 1528}#
- #{r\ 1529}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{rib\ 1532}#
- #{mod\ 1533}#
- #{for-car?\ 1534}#)
- (if (symbol? #{e\ 1528}#)
+ (#{f\ 1515}# #{when-list\ 1507}# (quote ()))))))
+ (#{syntax-type\ 461}#
+ (lambda (#{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#
+ #{for-car?\ 1535}#)
+ (if (symbol? #{e\ 1529}#)
(begin
- (let ((#{n\ 1546}#
- (#{id-var-name\ 436}# #{e\ 1528}# #{w\ 1530}#)))
+ (let ((#{n\ 1547}#
+ (#{id-var-name\ 437}# #{e\ 1529}# #{w\ 1531}#)))
(begin
- (let ((#{b\ 1548}#
- (#{lookup\ 373}#
- #{n\ 1546}#
- #{r\ 1529}#
- #{mod\ 1533}#)))
+ (let ((#{b\ 1549}#
+ (#{lookup\ 374}#
+ #{n\ 1547}#
+ #{r\ 1530}#
+ #{mod\ 1534}#)))
(begin
- (let ((#{type\ 1550}#
- (#{binding-type\ 362}# #{b\ 1548}#)))
- (if (eqv? #{type\ 1550}# (quote lexical))
+ (let ((#{type\ 1551}#
+ (#{binding-type\ 363}# #{b\ 1549}#)))
+ (if (eqv? #{type\ 1551}# (quote lexical))
(values
- #{type\ 1550}#
- (#{binding-value\ 364}# #{b\ 1548}#)
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (if (eqv? #{type\ 1550}# (quote global))
+ #{type\ 1551}#
+ (#{binding-value\ 365}# #{b\ 1549}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{type\ 1551}# (quote global))
(values
- #{type\ 1550}#
- #{n\ 1546}#
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (if (eqv? #{type\ 1550}# (quote macro))
- (if #{for-car?\ 1534}#
+ #{type\ 1551}#
+ #{n\ 1547}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{type\ 1551}# (quote macro))
+ (if #{for-car?\ 1535}#
(values
- #{type\ 1550}#
- (#{binding-value\ 364}# #{b\ 1548}#)
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (#{syntax-type\ 460}#
- (#{chi-macro\ 470}#
- (#{binding-value\ 364}# #{b\ 1548}#)
- #{e\ 1528}#
- #{r\ 1529}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{rib\ 1532}#
- #{mod\ 1533}#)
- #{r\ 1529}#
+ #{type\ 1551}#
+ (#{binding-value\ 365}# #{b\ 1549}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (#{syntax-type\ 461}#
+ (#{chi-macro\ 471}#
+ (#{binding-value\ 365}# #{b\ 1549}#)
+ #{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#)
+ #{r\ 1530}#
'(())
- #{s\ 1531}#
- #{rib\ 1532}#
- #{mod\ 1533}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#
#f))
(values
- #{type\ 1550}#
- (#{binding-value\ 364}# #{b\ 1548}#)
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#))))))))))
- (if (pair? #{e\ 1528}#)
+ #{type\ 1551}#
+ (#{binding-value\ 365}# #{b\ 1549}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#))))))))))
+ (if (pair? #{e\ 1529}#)
(begin
- (let ((#{first\ 1559}# (car #{e\ 1528}#)))
+ (let ((#{first\ 1560}# (car #{e\ 1529}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 460}#
- #{first\ 1559}#
- #{r\ 1529}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{rib\ 1532}#
- #{mod\ 1533}#
+ (#{syntax-type\ 461}#
+ #{first\ 1560}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#
#t))
- (lambda (#{ftype\ 1560}#
- #{fval\ 1561}#
- #{fe\ 1562}#
- #{fw\ 1563}#
- #{fs\ 1564}#
- #{fmod\ 1565}#)
- (if (eqv? #{ftype\ 1560}# (quote lexical))
+ (lambda (#{ftype\ 1561}#
+ #{fval\ 1562}#
+ #{fe\ 1563}#
+ #{fw\ 1564}#
+ #{fs\ 1565}#
+ #{fmod\ 1566}#)
+ (if (eqv? #{ftype\ 1561}# (quote lexical))
(values
'lexical-call
- #{fval\ 1561}#
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (if (eqv? #{ftype\ 1560}# (quote global))
+ #{fval\ 1562}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}# (quote global))
(values
'global-call
- (#{make-syntax-object\ 341}#
- #{fval\ 1561}#
- #{w\ 1530}#
- #{fmod\ 1565}#)
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (if (eqv? #{ftype\ 1560}# (quote macro))
- (#{syntax-type\ 460}#
- (#{chi-macro\ 470}#
- #{fval\ 1561}#
- #{e\ 1528}#
- #{r\ 1529}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{rib\ 1532}#
- #{mod\ 1533}#)
- #{r\ 1529}#
+ (#{make-syntax-object\ 342}#
+ #{fval\ 1562}#
+ #{w\ 1531}#
+ #{fmod\ 1566}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}# (quote macro))
+ (#{syntax-type\ 461}#
+ (#{chi-macro\ 471}#
+ #{fval\ 1562}#
+ #{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#)
+ #{r\ 1530}#
'(())
- #{s\ 1531}#
- #{rib\ 1532}#
- #{mod\ 1533}#
- #{for-car?\ 1534}#)
- (if (eqv? #{ftype\ 1560}# (quote module-ref))
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#
+ #{for-car?\ 1535}#)
+ (if (eqv? #{ftype\ 1561}# (quote module-ref))
(call-with-values
(lambda ()
- (#{fval\ 1561}#
- #{e\ 1528}#
- #{r\ 1529}#
- #{w\ 1530}#))
- (lambda (#{e\ 1577}#
- #{r\ 1578}#
- #{w\ 1579}#
- #{s\ 1580}#
- #{mod\ 1581}#)
- (#{syntax-type\ 460}#
- #{e\ 1577}#
- #{r\ 1578}#
- #{w\ 1579}#
- #{s\ 1580}#
- #{rib\ 1532}#
- #{mod\ 1581}#
- #{for-car?\ 1534}#)))
- (if (eqv? #{ftype\ 1560}# (quote core))
+ (#{fval\ 1562}#
+ #{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#))
+ (lambda (#{e\ 1578}#
+ #{r\ 1579}#
+ #{w\ 1580}#
+ #{s\ 1581}#
+ #{mod\ 1582}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1578}#
+ #{r\ 1579}#
+ #{w\ 1580}#
+ #{s\ 1581}#
+ #{rib\ 1533}#
+ #{mod\ 1582}#
+ #{for-car?\ 1535}#)))
+ (if (eqv? #{ftype\ 1561}# (quote core))
(values
'core-form
- #{fval\ 1561}#
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (if (eqv? #{ftype\ 1560}#
+ #{fval\ 1562}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}#
'local-syntax)
(values
'local-syntax-form
- #{fval\ 1561}#
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (if (eqv? #{ftype\ 1560}# (quote begin))
+ #{fval\ 1562}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}# (quote begin))
(values
'begin-form
#f
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (if (eqv? #{ftype\ 1560}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}#
'eval-when)
(values
'eval-when-form
#f
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
- (if (eqv? #{ftype\ 1560}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}#
'define)
- (let ((#{tmp\ 1592}# #{e\ 1528}#))
- (let ((#{tmp\ 1593}#
+ (let ((#{tmp\ 1593}# #{e\ 1529}#))
+ (let ((#{tmp\ 1594}#
($sc-dispatch
- #{tmp\ 1592}#
+ #{tmp\ 1593}#
'(_ any any))))
- (if (if #{tmp\ 1593}#
+ (if (if #{tmp\ 1594}#
(@apply
- (lambda (#{name\ 1596}#
- #{val\ 1597}#)
- (#{id?\ 379}#
- #{name\ 1596}#))
- #{tmp\ 1593}#)
+ (lambda (#{name\ 1597}#
+ #{val\ 1598}#)
+ (#{id?\ 380}#
+ #{name\ 1597}#))
+ #{tmp\ 1594}#)
#f)
(@apply
- (lambda (#{name\ 1600}#
- #{val\ 1601}#)
+ (lambda (#{name\ 1601}#
+ #{val\ 1602}#)
(values
'define-form
- #{name\ 1600}#
- #{val\ 1601}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#))
- #{tmp\ 1593}#)
- (let ((#{tmp\ 1602}#
+ #{name\ 1601}#
+ #{val\ 1602}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#))
+ #{tmp\ 1594}#)
+ (let ((#{tmp\ 1603}#
($sc-dispatch
- #{tmp\ 1592}#
+ #{tmp\ 1593}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp\ 1602}#
+ (if (if #{tmp\ 1603}#
(@apply
- (lambda (#{name\
1607}#
- #{args\
1608}#
- #{e1\
1609}#
- #{e2\
1610}#)
- (if (#{id?\ 379}#
- #{name\
1607}#)
-
(#{valid-bound-ids?\ 442}#
-
(#{lambda-var-list\ 494}#
- #{args\
1608}#))
+ (lambda (#{name\
1608}#
+ #{args\
1609}#
+ #{e1\
1610}#
+ #{e2\
1611}#)
+ (if (#{id?\ 380}#
+ #{name\
1608}#)
+
(#{valid-bound-ids?\ 443}#
+
(#{lambda-var-list\ 495}#
+ #{args\
1609}#))
#f))
- #{tmp\ 1602}#)
+ #{tmp\ 1603}#)
#f)
(@apply
- (lambda (#{name\ 1617}#
- #{args\ 1618}#
- #{e1\ 1619}#
- #{e2\ 1620}#)
+ (lambda (#{name\ 1618}#
+ #{args\ 1619}#
+ #{e1\ 1620}#
+ #{e2\ 1621}#)
(values
'define-form
- (#{wrap\ 448}#
- #{name\ 1617}#
- #{w\ 1530}#
- #{mod\ 1533}#)
- (#{decorate-source\
297}#
+ (#{wrap\ 449}#
+ #{name\ 1618}#
+ #{w\ 1531}#
+ #{mod\ 1534}#)
+ (#{decorate-source\
298}#
(cons
'#(syntax-object
lambda
((top)
@@ -3226,10 +3226,10 @@
(top)
(top)
(top))
-
#("i1613"
-
"i1614"
+
#("i1614"
"i1615"
-
"i1616"))
+
"i1616"
+
"i1617"))
#(ribcage
()
()
@@ -3251,12 +3251,12 @@
(top)
(top)
(top))
-
#("i1566"
-
"i1567"
+
#("i1567"
"i1568"
"i1569"
"i1570"
-
"i1571"))
+
"i1571"
+
"i1572"))
#(ribcage
()
()
@@ -3264,7 +3264,7 @@
#(ribcage
#(first)
#((top))
-
#("i1558"))
+
#("i1559"))
#(ribcage
()
()
@@ -3292,13 +3292,13 @@
(top)
(top)
(top))
-
#("i1535"
-
"i1536"
+
#("i1536"
"i1537"
"i1538"
"i1539"
"i1540"
-
"i1541"))
+
"i1541"
+
"i1542"))
#(ribcage
(lambda-var-list
gen-var
@@ -3574,143 +3574,143 @@
(top)
(top)
(top))
-
("i493"
-
"i491"
-
"i489"
-
"i487"
-
"i485"
-
"i483"
-
"i481"
-
"i479"
-
"i477"
-
"i475"
-
"i473"
-
"i471"
-
"i469"
-
"i467"
-
"i465"
-
"i463"
-
"i461"
-
"i459"
-
"i457"
-
"i455"
-
"i453"
-
"i451"
-
"i449"
-
"i447"
-
"i445"
-
"i443"
-
"i441"
-
"i439"
-
"i437"
-
"i435"
-
"i433"
-
"i431"
-
"i429"
-
"i427"
-
"i425"
+
("i494"
+
"i492"
+
"i490"
+
"i488"
+
"i486"
+
"i484"
+
"i482"
+
"i480"
+
"i478"
+
"i476"
+
"i474"
+
"i472"
+
"i470"
+
"i468"
+
"i466"
+
"i464"
+
"i462"
+
"i460"
+
"i458"
+
"i456"
+
"i454"
+
"i452"
+
"i450"
+
"i448"
+
"i446"
+
"i444"
+
"i442"
+
"i440"
+
"i438"
+
"i436"
+
"i434"
+
"i432"
+
"i430"
+
"i428"
+
"i426"
+
"i424"
"i423"
"i422"
-
"i421"
+
"i420"
"i419"
"i418"
"i417"
"i416"
-
"i415"
-
"i413"
-
"i411"
-
"i409"
-
"i407"
-
"i405"
-
"i403"
-
"i401"
-
"i399"
-
"i396"
+
"i414"
+
"i412"
+
"i410"
+
"i408"
+
"i406"
+
"i404"
+
"i402"
+
"i400"
+
"i397"
+
"i395"
"i394"
"i393"
"i392"
"i391"
"i390"
-
"i389"
-
"i387"
-
"i385"
-
"i383"
+
"i388"
+
"i386"
+
"i384"
+
"i382"
"i381"
-
"i380"
-
"i378"
-
"i376"
-
"i374"
-
"i372"
-
"i370"
-
"i368"
+
"i379"
+
"i377"
+
"i375"
+
"i373"
+
"i371"
+
"i369"
+
"i367"
"i366"
-
"i365"
-
"i363"
+
"i364"
+
"i362"
"i361"
"i360"
-
"i359"
+
"i358"
"i357"
-
"i356"
-
"i354"
-
"i352"
-
"i350"
-
"i348"
-
"i346"
-
"i344"
-
"i342"
-
"i340"
-
"i338"
-
"i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
+
"i355"
+
"i353"
+
"i351"
+
"i349"
+
"i347"
+
"i345"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i333"
+
"i331"
+
"i329"
+
"i327"
+
"i325"
+
"i323"
+
"i321"
+
"i319"
+
"i317"
+
"i315"
+
"i313"
+
"i311"
+
"i309"
+
"i307"
+
"i305"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
+
"i293"
"i292"
-
"i291"
-
"i289"
-
"i287"
-
"i285"
-
"i283"
-
"i281"
-
"i279"
-
"i277"
-
"i275"
-
"i273"
-
"i270"
-
"i268"
-
"i266"
-
"i264"
-
"i262"
-
"i260"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i240"
-
"i238"
-
"i236"))
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i271"
+
"i269"
+
"i267"
+
"i265"
+
"i263"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i241"
+
"i239"
+
"i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3720,49 +3720,49 @@
(top)
(top)
(top))
- ("i38"
+ ("i39"
+ "i38"
"i37"
- "i36"
-
"i34")))
+
"i35")))
(hygiene
guile))
- (#{wrap\
448}#
- (cons
#{args\ 1618}#
-
(cons #{e1\ 1619}#
-
#{e2\ 1620}#))
- #{w\
1530}#
- #{mod\
1533}#))
- #{s\ 1531}#)
+ (#{wrap\
449}#
+ (cons
#{args\ 1619}#
+
(cons #{e1\ 1620}#
+
#{e2\ 1621}#))
+ #{w\
1531}#
+ #{mod\
1534}#))
+ #{s\ 1532}#)
'(())
- #{s\ 1531}#
- #{mod\ 1533}#))
- #{tmp\ 1602}#)
- (let ((#{tmp\ 1623}#
+ #{s\ 1532}#
+ #{mod\ 1534}#))
+ #{tmp\ 1603}#)
+ (let ((#{tmp\ 1624}#
($sc-dispatch
- #{tmp\ 1592}#
+ #{tmp\ 1593}#
'(_ any))))
- (if (if #{tmp\ 1623}#
+ (if (if #{tmp\ 1624}#
(@apply
- (lambda
(#{name\ 1625}#)
- (#{id?\ 379}#
- #{name\
1625}#))
- #{tmp\ 1623}#)
+ (lambda
(#{name\ 1626}#)
+ (#{id?\ 380}#
+ #{name\
1626}#))
+ #{tmp\ 1624}#)
#f)
(@apply
- (lambda (#{name\
1627}#)
+ (lambda (#{name\
1628}#)
(values
'define-form
- (#{wrap\ 448}#
- #{name\ 1627}#
- #{w\ 1530}#
- #{mod\ 1533}#)
+ (#{wrap\ 449}#
+ #{name\ 1628}#
+ #{w\ 1531}#
+ #{mod\ 1534}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
-
#("i1626"))
+
#("i1627"))
#(ribcage
()
()
@@ -3784,12 +3784,12 @@
(top)
(top)
(top))
- #("i1566"
- "i1567"
+ #("i1567"
"i1568"
"i1569"
"i1570"
-
"i1571"))
+ "i1571"
+
"i1572"))
#(ribcage
()
()
@@ -3797,7 +3797,7 @@
#(ribcage
#(first)
#((top))
-
#("i1558"))
+
#("i1559"))
#(ribcage
()
()
@@ -3825,13 +3825,13 @@
(top)
(top)
(top))
- #("i1535"
- "i1536"
+ #("i1536"
"i1537"
"i1538"
"i1539"
"i1540"
-
"i1541"))
+ "i1541"
+
"i1542"))
#(ribcage
(lambda-var-list
gen-var
@@ -4107,143 +4107,143 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4253,10 +4253,10 @@
(top)
(top)
(top))
- ("i38"
+ ("i39"
+ "i38"
"i37"
- "i36"
- "i34")))
+ "i35")))
(hygiene
guile))
#(syntax-object
@@ -4265,7 +4265,7 @@
#(ribcage
#(name)
#((top))
-
#("i1626"))
+
#("i1627"))
#(ribcage
()
()
@@ -4287,12 +4287,12 @@
(top)
(top)
(top))
- #("i1566"
- "i1567"
+ #("i1567"
"i1568"
"i1569"
"i1570"
-
"i1571"))
+ "i1571"
+
"i1572"))
#(ribcage
()
()
@@ -4300,7 +4300,7 @@
#(ribcage
#(first)
#((top))
-
#("i1558"))
+
#("i1559"))
#(ribcage
()
()
@@ -4328,13 +4328,13 @@
(top)
(top)
(top))
- #("i1535"
- "i1536"
+ #("i1536"
"i1537"
"i1538"
"i1539"
"i1540"
-
"i1541"))
+ "i1541"
+
"i1542"))
#(ribcage
(lambda-var-list
gen-var
@@ -4610,143 +4610,143 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4756,10 +4756,10 @@
(top)
(top)
(top))
- ("i38"
+ ("i39"
+ "i38"
"i37"
- "i36"
- "i34")))
+ "i35")))
(hygiene
guile))
#(syntax-object
@@ -4768,7 +4768,7 @@
#(ribcage
#(name)
#((top))
-
#("i1626"))
+
#("i1627"))
#(ribcage
()
()
@@ -4790,12 +4790,12 @@
(top)
(top)
(top))
- #("i1566"
- "i1567"
+ #("i1567"
"i1568"
"i1569"
"i1570"
-
"i1571"))
+ "i1571"
+
"i1572"))
#(ribcage
()
()
@@ -4803,7 +4803,7 @@
#(ribcage
#(first)
#((top))
-
#("i1558"))
+
#("i1559"))
#(ribcage
()
()
@@ -4831,13 +4831,13 @@
(top)
(top)
(top))
- #("i1535"
- "i1536"
+ #("i1536"
"i1537"
"i1538"
"i1539"
"i1540"
-
"i1541"))
+ "i1541"
+
"i1542"))
#(ribcage
(lambda-var-list
gen-var
@@ -5113,143 +5113,143 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -5259,1219 +5259,1219 @@
(top)
(top)
(top))
- ("i38"
+ ("i39"
+ "i38"
"i37"
- "i36"
- "i34")))
+ "i35")))
(hygiene
guile)))
'(())
- #{s\ 1531}#
- #{mod\ 1533}#))
- #{tmp\ 1623}#)
+ #{s\ 1532}#
+ #{mod\ 1534}#))
+ #{tmp\ 1624}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\
1592}#))))))))
- (if (eqv? #{ftype\ 1560}#
+ #{tmp\
1593}#))))))))
+ (if (eqv? #{ftype\ 1561}#
'define-syntax)
- (let ((#{tmp\ 1630}# #{e\ 1528}#))
- (let ((#{tmp\ 1631}#
+ (let ((#{tmp\ 1631}# #{e\ 1529}#))
+ (let ((#{tmp\ 1632}#
($sc-dispatch
- #{tmp\ 1630}#
+ #{tmp\ 1631}#
'(_ any any))))
- (if (if #{tmp\ 1631}#
+ (if (if #{tmp\ 1632}#
(@apply
- (lambda (#{name\
1634}#
- #{val\
1635}#)
- (#{id?\ 379}#
- #{name\ 1634}#))
- #{tmp\ 1631}#)
+ (lambda (#{name\
1635}#
+ #{val\
1636}#)
+ (#{id?\ 380}#
+ #{name\ 1635}#))
+ #{tmp\ 1632}#)
#f)
(@apply
- (lambda (#{name\ 1638}#
- #{val\ 1639}#)
+ (lambda (#{name\ 1639}#
+ #{val\ 1640}#)
(values
'define-syntax-form
- #{name\ 1638}#
- #{val\ 1639}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#))
- #{tmp\ 1631}#)
+ #{name\ 1639}#
+ #{val\ 1640}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#))
+ #{tmp\ 1632}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 1630}#))))
+ #{tmp\ 1631}#))))
(values
'call
#f
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)))))))))))))))
- (if (#{syntax-object?\ 343}# #{e\ 1528}#)
- (#{syntax-type\ 460}#
- (#{syntax-object-expression\ 345}# #{e\ 1528}#)
- #{r\ 1529}#
- (#{join-wraps\ 430}#
- #{w\ 1530}#
- (#{syntax-object-wrap\ 347}# #{e\ 1528}#))
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)))))))))))))))
+ (if (#{syntax-object?\ 344}# #{e\ 1529}#)
+ (#{syntax-type\ 461}#
+ (#{syntax-object-expression\ 346}# #{e\ 1529}#)
+ #{r\ 1530}#
+ (#{join-wraps\ 431}#
+ #{w\ 1531}#
+ (#{syntax-object-wrap\ 348}# #{e\ 1529}#))
(begin
- (let ((#{t\ 1645}#
- (#{source-annotation\ 358}# #{e\ 1528}#)))
- (if #{t\ 1645}# #{t\ 1645}# #{s\ 1531}#)))
- #{rib\ 1532}#
+ (let ((#{t\ 1646}#
+ (#{source-annotation\ 359}# #{e\ 1529}#)))
+ (if #{t\ 1646}# #{t\ 1646}# #{s\ 1532}#)))
+ #{rib\ 1533}#
(begin
- (let ((#{t\ 1649}#
- (#{syntax-object-module\ 349}# #{e\ 1528}#)))
- (if #{t\ 1649}# #{t\ 1649}# #{mod\ 1533}#)))
- #{for-car?\ 1534}#)
- (if (self-evaluating? #{e\ 1528}#)
+ (let ((#{t\ 1650}#
+ (#{syntax-object-module\ 350}# #{e\ 1529}#)))
+ (if #{t\ 1650}# #{t\ 1650}# #{mod\ 1534}#)))
+ #{for-car?\ 1535}#)
+ (if (self-evaluating? #{e\ 1529}#)
(values
'constant
#f
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
(values
'other
#f
- #{e\ 1528}#
- #{w\ 1530}#
- #{s\ 1531}#
- #{mod\ 1533}#)))))))
- (#{chi-top\ 462}#
- (lambda (#{e\ 1654}#
- #{r\ 1655}#
- #{w\ 1656}#
- #{m\ 1657}#
- #{esew\ 1658}#
- #{mod\ 1659}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)))))))
+ (#{chi-top\ 463}#
+ (lambda (#{e\ 1655}#
+ #{r\ 1656}#
+ #{w\ 1657}#
+ #{m\ 1658}#
+ #{esew\ 1659}#
+ #{mod\ 1660}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 460}#
- #{e\ 1654}#
- #{r\ 1655}#
- #{w\ 1656}#
- (#{source-annotation\ 358}# #{e\ 1654}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1655}#
+ #{r\ 1656}#
+ #{w\ 1657}#
+ (#{source-annotation\ 359}# #{e\ 1655}#)
#f
- #{mod\ 1659}#
+ #{mod\ 1660}#
#f))
- (lambda (#{type\ 1680}#
- #{value\ 1681}#
- #{e\ 1682}#
- #{w\ 1683}#
- #{s\ 1684}#
- #{mod\ 1685}#)
- (if (eqv? #{type\ 1680}# (quote begin-form))
- (let ((#{tmp\ 1693}# #{e\ 1682}#))
- (let ((#{tmp\ 1694}#
- ($sc-dispatch #{tmp\ 1693}# (quote (_)))))
- (if #{tmp\ 1694}#
+ (lambda (#{type\ 1681}#
+ #{value\ 1682}#
+ #{e\ 1683}#
+ #{w\ 1684}#
+ #{s\ 1685}#
+ #{mod\ 1686}#)
+ (if (eqv? #{type\ 1681}# (quote begin-form))
+ (let ((#{tmp\ 1694}# #{e\ 1683}#))
+ (let ((#{tmp\ 1695}#
+ ($sc-dispatch #{tmp\ 1694}# (quote (_)))))
+ (if #{tmp\ 1695}#
(@apply
- (lambda () (#{chi-void\ 478}#))
- #{tmp\ 1694}#)
- (let ((#{tmp\ 1695}#
+ (lambda () (#{chi-void\ 479}#))
+ #{tmp\ 1695}#)
+ (let ((#{tmp\ 1696}#
($sc-dispatch
- #{tmp\ 1693}#
+ #{tmp\ 1694}#
'(_ any . each-any))))
- (if #{tmp\ 1695}#
+ (if #{tmp\ 1696}#
(@apply
- (lambda (#{e1\ 1698}# #{e2\ 1699}#)
- (#{chi-top-sequence\ 454}#
- (cons #{e1\ 1698}# #{e2\ 1699}#)
- #{r\ 1655}#
- #{w\ 1683}#
- #{s\ 1684}#
- #{m\ 1657}#
- #{esew\ 1658}#
- #{mod\ 1685}#))
- #{tmp\ 1695}#)
+ (lambda (#{e1\ 1699}# #{e2\ 1700}#)
+ (#{chi-top-sequence\ 455}#
+ (cons #{e1\ 1699}# #{e2\ 1700}#)
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
+ #{m\ 1658}#
+ #{esew\ 1659}#
+ #{mod\ 1686}#))
+ #{tmp\ 1696}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1693}#))))))
- (if (eqv? #{type\ 1680}# (quote local-syntax-form))
- (#{chi-local-syntax\ 474}#
- #{value\ 1681}#
- #{e\ 1682}#
- #{r\ 1655}#
- #{w\ 1683}#
- #{s\ 1684}#
- #{mod\ 1685}#
- (lambda (#{body\ 1702}#
- #{r\ 1703}#
- #{w\ 1704}#
- #{s\ 1705}#
- #{mod\ 1706}#)
- (#{chi-top-sequence\ 454}#
- #{body\ 1702}#
- #{r\ 1703}#
- #{w\ 1704}#
- #{s\ 1705}#
- #{m\ 1657}#
- #{esew\ 1658}#
- #{mod\ 1706}#)))
- (if (eqv? #{type\ 1680}# (quote eval-when-form))
- (let ((#{tmp\ 1713}# #{e\ 1682}#))
- (let ((#{tmp\ 1714}#
+ #{tmp\ 1694}#))))))
+ (if (eqv? #{type\ 1681}# (quote local-syntax-form))
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1682}#
+ #{e\ 1683}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
+ #{mod\ 1686}#
+ (lambda (#{body\ 1703}#
+ #{r\ 1704}#
+ #{w\ 1705}#
+ #{s\ 1706}#
+ #{mod\ 1707}#)
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1703}#
+ #{r\ 1704}#
+ #{w\ 1705}#
+ #{s\ 1706}#
+ #{m\ 1658}#
+ #{esew\ 1659}#
+ #{mod\ 1707}#)))
+ (if (eqv? #{type\ 1681}# (quote eval-when-form))
+ (let ((#{tmp\ 1714}# #{e\ 1683}#))
+ (let ((#{tmp\ 1715}#
($sc-dispatch
- #{tmp\ 1713}#
+ #{tmp\ 1714}#
'(_ each-any any . each-any))))
- (if #{tmp\ 1714}#
+ (if #{tmp\ 1715}#
(@apply
- (lambda (#{x\ 1718}# #{e1\ 1719}# #{e2\ 1720}#)
+ (lambda (#{x\ 1719}# #{e1\ 1720}# #{e2\ 1721}#)
(begin
- (let ((#{when-list\ 1723}#
- (#{chi-when-list\ 458}#
- #{e\ 1682}#
- #{x\ 1718}#
- #{w\ 1683}#))
- (#{body\ 1724}#
- (cons #{e1\ 1719}# #{e2\ 1720}#)))
- (if (eq? #{m\ 1657}# (quote e))
+ (let ((#{when-list\ 1724}#
+ (#{chi-when-list\ 459}#
+ #{e\ 1683}#
+ #{x\ 1719}#
+ #{w\ 1684}#))
+ (#{body\ 1725}#
+ (cons #{e1\ 1720}# #{e2\ 1721}#)))
+ (if (eq? #{m\ 1658}# (quote e))
(if (memq 'eval
- #{when-list\ 1723}#)
- (#{chi-top-sequence\ 454}#
- #{body\ 1724}#
- #{r\ 1655}#
- #{w\ 1683}#
- #{s\ 1684}#
+ #{when-list\ 1724}#)
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
(if (memq 'expand
- #{when-list\ 1723}#)
+ #{when-list\ 1724}#)
'c&e
'e)
'(eval)
- #{mod\ 1685}#)
+ #{mod\ 1686}#)
(begin
(if (memq 'expand
- #{when-list\ 1723}#)
- (#{top-level-eval-hook\ 288}#
- (#{chi-top-sequence\ 454}#
- #{body\ 1724}#
- #{r\ 1655}#
- #{w\ 1683}#
- #{s\ 1684}#
+ #{when-list\ 1724}#)
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
'e
'(eval)
- #{mod\ 1685}#)
- #{mod\ 1685}#))
- (#{chi-void\ 478}#)))
+ #{mod\ 1686}#)
+ #{mod\ 1686}#))
+ (#{chi-void\ 479}#)))
(if (memq 'load
- #{when-list\ 1723}#)
+ #{when-list\ 1724}#)
(if (begin
- (let ((#{t\ 1733}#
+ (let ((#{t\ 1734}#
(memq 'compile
- #{when-list\
1723}#)))
- (if #{t\ 1733}#
- #{t\ 1733}#
+ #{when-list\
1724}#)))
+ (if #{t\ 1734}#
+ #{t\ 1734}#
(begin
- (let ((#{t\ 1736}#
+ (let ((#{t\ 1737}#
(memq 'expand
-
#{when-list\ 1723}#)))
- (if #{t\ 1736}#
- #{t\ 1736}#
- (if (eq? #{m\ 1657}#
+
#{when-list\ 1724}#)))
+ (if #{t\ 1737}#
+ #{t\ 1737}#
+ (if (eq? #{m\ 1658}#
'c&e)
(memq 'eval
- #{when-list\
1723}#)
+ #{when-list\
1724}#)
#f)))))))
- (#{chi-top-sequence\ 454}#
- #{body\ 1724}#
- #{r\ 1655}#
- #{w\ 1683}#
- #{s\ 1684}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
'c&e
'(compile load)
- #{mod\ 1685}#)
- (if (if (eq? #{m\ 1657}# (quote c))
+ #{mod\ 1686}#)
+ (if (if (eq? #{m\ 1658}# (quote c))
#t
- (eq? #{m\ 1657}# (quote c&e)))
- (#{chi-top-sequence\ 454}#
- #{body\ 1724}#
- #{r\ 1655}#
- #{w\ 1683}#
- #{s\ 1684}#
+ (eq? #{m\ 1658}# (quote c&e)))
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
'c
'(load)
- #{mod\ 1685}#)
- (#{chi-void\ 478}#)))
+ #{mod\ 1686}#)
+ (#{chi-void\ 479}#)))
(if (begin
- (let ((#{t\ 1744}#
+ (let ((#{t\ 1745}#
(memq 'compile
- #{when-list\
1723}#)))
- (if #{t\ 1744}#
- #{t\ 1744}#
+ #{when-list\
1724}#)))
+ (if #{t\ 1745}#
+ #{t\ 1745}#
(begin
- (let ((#{t\ 1747}#
+ (let ((#{t\ 1748}#
(memq 'expand
-
#{when-list\ 1723}#)))
- (if #{t\ 1747}#
- #{t\ 1747}#
- (if (eq? #{m\ 1657}#
+
#{when-list\ 1724}#)))
+ (if #{t\ 1748}#
+ #{t\ 1748}#
+ (if (eq? #{m\ 1658}#
'c&e)
(memq 'eval
- #{when-list\
1723}#)
+ #{when-list\
1724}#)
#f)))))))
(begin
- (#{top-level-eval-hook\ 288}#
- (#{chi-top-sequence\ 454}#
- #{body\ 1724}#
- #{r\ 1655}#
- #{w\ 1683}#
- #{s\ 1684}#
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
'e
'(eval)
- #{mod\ 1685}#)
- #{mod\ 1685}#)
- (#{chi-void\ 478}#))
- (#{chi-void\ 478}#)))))))
- #{tmp\ 1714}#)
+ #{mod\ 1686}#)
+ #{mod\ 1686}#)
+ (#{chi-void\ 479}#))
+ (#{chi-void\ 479}#)))))))
+ #{tmp\ 1715}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1713}#))))
- (if (eqv? #{type\ 1680}# (quote define-syntax-form))
+ #{tmp\ 1714}#))))
+ (if (eqv? #{type\ 1681}# (quote define-syntax-form))
(begin
- (let ((#{n\ 1755}#
- (#{id-var-name\ 436}#
- #{value\ 1681}#
- #{w\ 1683}#))
- (#{r\ 1756}#
- (#{macros-only-env\ 371}# #{r\ 1655}#)))
- (if (eqv? #{m\ 1657}# (quote c))
- (if (memq (quote compile) #{esew\ 1658}#)
+ (let ((#{n\ 1756}#
+ (#{id-var-name\ 437}#
+ #{value\ 1682}#
+ #{w\ 1684}#))
+ (#{r\ 1757}#
+ (#{macros-only-env\ 372}# #{r\ 1656}#)))
+ (if (eqv? #{m\ 1658}# (quote c))
+ (if (memq (quote compile) #{esew\ 1659}#)
(begin
- (let ((#{e\ 1759}#
- (#{chi-install-global\ 456}#
- #{n\ 1755}#
- (#{chi\ 464}#
- #{e\ 1682}#
- #{r\ 1756}#
- #{w\ 1683}#
- #{mod\ 1685}#))))
+ (let ((#{e\ 1760}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1756}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1757}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))))
(begin
- (#{top-level-eval-hook\ 288}#
- #{e\ 1759}#
- #{mod\ 1685}#)
- (if (memq (quote load) #{esew\ 1658}#)
- #{e\ 1759}#
- (#{chi-void\ 478}#)))))
- (if (memq (quote load) #{esew\ 1658}#)
- (#{chi-install-global\ 456}#
- #{n\ 1755}#
- (#{chi\ 464}#
- #{e\ 1682}#
- #{r\ 1756}#
- #{w\ 1683}#
- #{mod\ 1685}#))
- (#{chi-void\ 478}#)))
- (if (eqv? #{m\ 1657}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{e\ 1760}#
+ #{mod\ 1686}#)
+ (if (memq (quote load) #{esew\ 1659}#)
+ #{e\ 1760}#
+ (#{chi-void\ 479}#)))))
+ (if (memq (quote load) #{esew\ 1659}#)
+ (#{chi-install-global\ 457}#
+ #{n\ 1756}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1757}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))
+ (#{chi-void\ 479}#)))
+ (if (eqv? #{m\ 1658}# (quote c&e))
(begin
- (let ((#{e\ 1762}#
- (#{chi-install-global\ 456}#
- #{n\ 1755}#
- (#{chi\ 464}#
- #{e\ 1682}#
- #{r\ 1756}#
- #{w\ 1683}#
- #{mod\ 1685}#))))
+ (let ((#{e\ 1763}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1756}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1757}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))))
(begin
- (#{top-level-eval-hook\ 288}#
- #{e\ 1762}#
- #{mod\ 1685}#)
- #{e\ 1762}#)))
+ (#{top-level-eval-hook\ 289}#
+ #{e\ 1763}#
+ #{mod\ 1686}#)
+ #{e\ 1763}#)))
(begin
- (if (memq (quote eval) #{esew\ 1658}#)
- (#{top-level-eval-hook\ 288}#
- (#{chi-install-global\ 456}#
- #{n\ 1755}#
- (#{chi\ 464}#
- #{e\ 1682}#
- #{r\ 1756}#
- #{w\ 1683}#
- #{mod\ 1685}#))
- #{mod\ 1685}#))
- (#{chi-void\ 478}#))))))
- (if (eqv? #{type\ 1680}# (quote define-form))
+ (if (memq (quote eval) #{esew\ 1659}#)
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1756}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1757}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))
+ #{mod\ 1686}#))
+ (#{chi-void\ 479}#))))))
+ (if (eqv? #{type\ 1681}# (quote define-form))
(begin
- (let ((#{n\ 1767}#
- (#{id-var-name\ 436}#
- #{value\ 1681}#
- #{w\ 1683}#)))
+ (let ((#{n\ 1768}#
+ (#{id-var-name\ 437}#
+ #{value\ 1682}#
+ #{w\ 1684}#)))
(begin
- (let ((#{type\ 1769}#
- (#{binding-type\ 362}#
- (#{lookup\ 373}#
- #{n\ 1767}#
- #{r\ 1655}#
- #{mod\ 1685}#))))
- (if (if (eqv? #{type\ 1769}# (quote global))
+ (let ((#{type\ 1770}#
+ (#{binding-type\ 363}#
+ (#{lookup\ 374}#
+ #{n\ 1768}#
+ #{r\ 1656}#
+ #{mod\ 1686}#))))
+ (if (if (eqv? #{type\ 1770}# (quote global))
#t
- (if (eqv? #{type\ 1769}# (quote core))
+ (if (eqv? #{type\ 1770}# (quote core))
#t
- (if (eqv? #{type\ 1769}#
+ (if (eqv? #{type\ 1770}#
'macro)
#t
- (eqv? #{type\ 1769}#
+ (eqv? #{type\ 1770}#
'module-ref))))
(begin
- (if (if (if (eq? #{m\ 1657}# (quote c))
+ (if (if (if (eq? #{m\ 1658}# (quote c))
#t
- (eq? #{m\ 1657}# (quote c&e)))
+ (eq? #{m\ 1658}# (quote c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 1767}#))
+ #{n\ 1768}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old\ 1775}#
+ (let ((#{old\ 1776}#
(module-variable
(current-module)
- #{n\ 1767}#)))
+ #{n\ 1768}#)))
(module-define!
(current-module)
- #{n\ 1767}#
- (if (variable? #{old\ 1775}#)
- (variable-ref #{old\ 1775}#)
+ #{n\ 1768}#
+ (if (variable? #{old\ 1776}#)
+ (variable-ref #{old\ 1776}#)
#f)))))
(begin
- (let ((#{x\ 1778}#
- (#{build-global-definition\
319}#
- #{s\ 1684}#
- #{n\ 1767}#
- (#{chi\ 464}#
- #{e\ 1682}#
- #{r\ 1655}#
- #{w\ 1683}#
- #{mod\ 1685}#))))
+ (let ((#{x\ 1779}#
+ (#{build-global-definition\
320}#
+ #{s\ 1685}#
+ #{n\ 1768}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))))
(begin
- (if (eq? #{m\ 1657}# (quote c&e))
- (#{top-level-eval-hook\ 288}#
- #{x\ 1778}#
- #{mod\ 1685}#))
- #{x\ 1778}#))))
- (if (eqv? #{type\ 1769}#
+ (if (eq? #{m\ 1658}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{x\ 1779}#
+ #{mod\ 1686}#))
+ #{x\ 1779}#))))
+ (if (eqv? #{type\ 1770}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e\ 1682}#
- (#{wrap\ 448}#
- #{value\ 1681}#
- #{w\ 1683}#
- #{mod\ 1685}#))
+ #{e\ 1683}#
+ (#{wrap\ 449}#
+ #{value\ 1682}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1682}#
- (#{wrap\ 448}#
- #{value\ 1681}#
- #{w\ 1683}#
- #{mod\ 1685}#))))))))
+ #{e\ 1683}#
+ (#{wrap\ 449}#
+ #{value\ 1682}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))))))))
(begin
- (let ((#{x\ 1784}#
- (#{chi-expr\ 466}#
- #{type\ 1680}#
- #{value\ 1681}#
- #{e\ 1682}#
- #{r\ 1655}#
- #{w\ 1683}#
- #{s\ 1684}#
- #{mod\ 1685}#)))
+ (let ((#{x\ 1785}#
+ (#{chi-expr\ 467}#
+ #{type\ 1681}#
+ #{value\ 1682}#
+ #{e\ 1683}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
+ #{mod\ 1686}#)))
(begin
- (if (eq? #{m\ 1657}# (quote c&e))
- (#{top-level-eval-hook\ 288}#
- #{x\ 1784}#
- #{mod\ 1685}#))
- #{x\ 1784}#))))))))))))
- (#{chi\ 464}#
- (lambda (#{e\ 1785}#
- #{r\ 1786}#
- #{w\ 1787}#
- #{mod\ 1788}#)
+ (if (eq? #{m\ 1658}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{x\ 1785}#
+ #{mod\ 1686}#))
+ #{x\ 1785}#))))))))))))
+ (#{chi\ 465}#
+ (lambda (#{e\ 1786}#
+ #{r\ 1787}#
+ #{w\ 1788}#
+ #{mod\ 1789}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 460}#
- #{e\ 1785}#
- #{r\ 1786}#
- #{w\ 1787}#
- (#{source-annotation\ 358}# #{e\ 1785}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1786}#
+ #{r\ 1787}#
+ #{w\ 1788}#
+ (#{source-annotation\ 359}# #{e\ 1786}#)
#f
- #{mod\ 1788}#
+ #{mod\ 1789}#
#f))
- (lambda (#{type\ 1793}#
- #{value\ 1794}#
- #{e\ 1795}#
- #{w\ 1796}#
- #{s\ 1797}#
- #{mod\ 1798}#)
- (#{chi-expr\ 466}#
- #{type\ 1793}#
- #{value\ 1794}#
- #{e\ 1795}#
- #{r\ 1786}#
- #{w\ 1796}#
- #{s\ 1797}#
- #{mod\ 1798}#)))))
- (#{chi-expr\ 466}#
- (lambda (#{type\ 1805}#
- #{value\ 1806}#
- #{e\ 1807}#
- #{r\ 1808}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#)
- (if (eqv? #{type\ 1805}# (quote lexical))
- (#{build-lexical-reference\ 309}#
+ (lambda (#{type\ 1794}#
+ #{value\ 1795}#
+ #{e\ 1796}#
+ #{w\ 1797}#
+ #{s\ 1798}#
+ #{mod\ 1799}#)
+ (#{chi-expr\ 467}#
+ #{type\ 1794}#
+ #{value\ 1795}#
+ #{e\ 1796}#
+ #{r\ 1787}#
+ #{w\ 1797}#
+ #{s\ 1798}#
+ #{mod\ 1799}#)))))
+ (#{chi-expr\ 467}#
+ (lambda (#{type\ 1806}#
+ #{value\ 1807}#
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote lexical))
+ (#{build-lexical-reference\ 310}#
'value
- #{s\ 1810}#
- #{e\ 1807}#
- #{value\ 1806}#)
- (if (if (eqv? #{type\ 1805}# (quote core))
+ #{s\ 1811}#
+ #{e\ 1808}#
+ #{value\ 1807}#)
+ (if (if (eqv? #{type\ 1806}# (quote core))
#t
- (eqv? #{type\ 1805}# (quote core-form)))
- (#{value\ 1806}#
- #{e\ 1807}#
- #{r\ 1808}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#)
- (if (eqv? #{type\ 1805}# (quote module-ref))
+ (eqv? #{type\ 1806}# (quote core-form)))
+ (#{value\ 1807}#
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote module-ref))
(call-with-values
(lambda ()
- (#{value\ 1806}#
- #{e\ 1807}#
- #{r\ 1808}#
- #{w\ 1809}#))
- (lambda (#{e\ 1822}#
- #{r\ 1823}#
- #{w\ 1824}#
- #{s\ 1825}#
- #{mod\ 1826}#)
- (#{chi\ 464}#
- #{e\ 1822}#
- #{r\ 1823}#
- #{w\ 1824}#
- #{mod\ 1826}#)))
- (if (eqv? #{type\ 1805}# (quote lexical-call))
- (#{chi-application\ 468}#
+ (#{value\ 1807}#
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#))
+ (lambda (#{e\ 1823}#
+ #{r\ 1824}#
+ #{w\ 1825}#
+ #{s\ 1826}#
+ #{mod\ 1827}#)
+ (#{chi\ 465}#
+ #{e\ 1823}#
+ #{r\ 1824}#
+ #{w\ 1825}#
+ #{mod\ 1827}#)))
+ (if (eqv? #{type\ 1806}# (quote lexical-call))
+ (#{chi-application\ 469}#
(begin
- (let ((#{id\ 1834}# (car #{e\ 1807}#)))
- (#{build-lexical-reference\ 309}#
+ (let ((#{id\ 1835}# (car #{e\ 1808}#)))
+ (#{build-lexical-reference\ 310}#
'fun
- (#{source-annotation\ 358}# #{id\ 1834}#)
- (if (#{syntax-object?\ 343}# #{id\ 1834}#)
- (syntax->datum #{id\ 1834}#)
- #{id\ 1834}#)
- #{value\ 1806}#)))
- #{e\ 1807}#
- #{r\ 1808}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#)
- (if (eqv? #{type\ 1805}# (quote global-call))
- (#{chi-application\ 468}#
- (#{build-global-reference\ 315}#
- (#{source-annotation\ 358}# (car #{e\ 1807}#))
- (if (#{syntax-object?\ 343}# #{value\ 1806}#)
- (#{syntax-object-expression\ 345}#
- #{value\ 1806}#)
- #{value\ 1806}#)
- (if (#{syntax-object?\ 343}# #{value\ 1806}#)
- (#{syntax-object-module\ 349}# #{value\ 1806}#)
- #{mod\ 1811}#))
- #{e\ 1807}#
- #{r\ 1808}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#)
- (if (eqv? #{type\ 1805}# (quote constant))
- (#{build-data\ 329}#
- #{s\ 1810}#
- (#{strip\ 490}#
- (#{source-wrap\ 450}#
- #{e\ 1807}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#)
+ (#{source-annotation\ 359}# #{id\ 1835}#)
+ (if (#{syntax-object?\ 344}# #{id\ 1835}#)
+ (syntax->datum #{id\ 1835}#)
+ #{id\ 1835}#)
+ #{value\ 1807}#)))
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote global-call))
+ (#{chi-application\ 469}#
+ (#{build-global-reference\ 316}#
+ (#{source-annotation\ 359}# (car #{e\ 1808}#))
+ (if (#{syntax-object?\ 344}# #{value\ 1807}#)
+ (#{syntax-object-expression\ 346}#
+ #{value\ 1807}#)
+ #{value\ 1807}#)
+ (if (#{syntax-object?\ 344}# #{value\ 1807}#)
+ (#{syntax-object-module\ 350}# #{value\ 1807}#)
+ #{mod\ 1812}#))
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote constant))
+ (#{build-data\ 330}#
+ #{s\ 1811}#
+ (#{strip\ 491}#
+ (#{source-wrap\ 451}#
+ #{e\ 1808}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
'(())))
- (if (eqv? #{type\ 1805}# (quote global))
- (#{build-global-reference\ 315}#
- #{s\ 1810}#
- #{value\ 1806}#
- #{mod\ 1811}#)
- (if (eqv? #{type\ 1805}# (quote call))
- (#{chi-application\ 468}#
- (#{chi\ 464}#
- (car #{e\ 1807}#)
- #{r\ 1808}#
- #{w\ 1809}#
- #{mod\ 1811}#)
- #{e\ 1807}#
- #{r\ 1808}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#)
- (if (eqv? #{type\ 1805}# (quote begin-form))
- (let ((#{tmp\ 1841}# #{e\ 1807}#))
- (let ((#{tmp\ 1842}#
+ (if (eqv? #{type\ 1806}# (quote global))
+ (#{build-global-reference\ 316}#
+ #{s\ 1811}#
+ #{value\ 1807}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote call))
+ (#{chi-application\ 469}#
+ (#{chi\ 465}#
+ (car #{e\ 1808}#)
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{mod\ 1812}#)
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote begin-form))
+ (let ((#{tmp\ 1842}# #{e\ 1808}#))
+ (let ((#{tmp\ 1843}#
($sc-dispatch
- #{tmp\ 1841}#
+ #{tmp\ 1842}#
'(_ any . each-any))))
- (if #{tmp\ 1842}#
+ (if #{tmp\ 1843}#
(@apply
- (lambda (#{e1\ 1845}# #{e2\ 1846}#)
- (#{chi-sequence\ 452}#
- (cons #{e1\ 1845}# #{e2\ 1846}#)
- #{r\ 1808}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#))
- #{tmp\ 1842}#)
+ (lambda (#{e1\ 1846}# #{e2\ 1847}#)
+ (#{chi-sequence\ 453}#
+ (cons #{e1\ 1846}# #{e2\ 1847}#)
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#))
+ #{tmp\ 1843}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1841}#))))
- (if (eqv? #{type\ 1805}#
+ #{tmp\ 1842}#))))
+ (if (eqv? #{type\ 1806}#
'local-syntax-form)
- (#{chi-local-syntax\ 474}#
- #{value\ 1806}#
- #{e\ 1807}#
- #{r\ 1808}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#
- #{chi-sequence\ 452}#)
- (if (eqv? #{type\ 1805}#
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1807}#
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#
+ #{chi-sequence\ 453}#)
+ (if (eqv? #{type\ 1806}#
'eval-when-form)
- (let ((#{tmp\ 1850}# #{e\ 1807}#))
- (let ((#{tmp\ 1851}#
+ (let ((#{tmp\ 1851}# #{e\ 1808}#))
+ (let ((#{tmp\ 1852}#
($sc-dispatch
- #{tmp\ 1850}#
+ #{tmp\ 1851}#
'(_ each-any any . each-any))))
- (if #{tmp\ 1851}#
+ (if #{tmp\ 1852}#
(@apply
- (lambda (#{x\ 1855}#
- #{e1\ 1856}#
- #{e2\ 1857}#)
+ (lambda (#{x\ 1856}#
+ #{e1\ 1857}#
+ #{e2\ 1858}#)
(begin
- (let ((#{when-list\ 1859}#
- (#{chi-when-list\ 458}#
- #{e\ 1807}#
- #{x\ 1855}#
- #{w\ 1809}#)))
+ (let ((#{when-list\ 1860}#
+ (#{chi-when-list\ 459}#
+ #{e\ 1808}#
+ #{x\ 1856}#
+ #{w\ 1810}#)))
(if (memq 'eval
- #{when-list\ 1859}#)
- (#{chi-sequence\ 452}#
- (cons #{e1\ 1856}#
- #{e2\ 1857}#)
- #{r\ 1808}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#)
- (#{chi-void\ 478}#)))))
- #{tmp\ 1851}#)
+ #{when-list\ 1860}#)
+ (#{chi-sequence\ 453}#
+ (cons #{e1\ 1857}#
+ #{e2\ 1858}#)
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (#{chi-void\ 479}#)))))
+ #{tmp\ 1852}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1850}#))))
- (if (if (eqv? #{type\ 1805}#
+ #{tmp\ 1851}#))))
+ (if (if (eqv? #{type\ 1806}#
'define-form)
#t
- (eqv? #{type\ 1805}#
+ (eqv? #{type\ 1806}#
'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1807}#
- (#{wrap\ 448}#
- #{value\ 1806}#
- #{w\ 1809}#
- #{mod\ 1811}#))
- (if (eqv? #{type\ 1805}# (quote syntax))
+ #{e\ 1808}#
+ (#{wrap\ 449}#
+ #{value\ 1807}#
+ #{w\ 1810}#
+ #{mod\ 1812}#))
+ (if (eqv? #{type\ 1806}# (quote syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 450}#
- #{e\ 1807}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#))
- (if (eqv? #{type\ 1805}#
+ (#{source-wrap\ 451}#
+ #{e\ 1808}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#))
+ (if (eqv? #{type\ 1806}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 450}#
- #{e\ 1807}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#))
+ (#{source-wrap\ 451}#
+ #{e\ 1808}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 450}#
- #{e\ 1807}#
- #{w\ 1809}#
- #{s\ 1810}#
- #{mod\ 1811}#))))))))))))))))))
- (#{chi-application\ 468}#
- (lambda (#{x\ 1866}#
- #{e\ 1867}#
- #{r\ 1868}#
- #{w\ 1869}#
- #{s\ 1870}#
- #{mod\ 1871}#)
- (let ((#{tmp\ 1878}# #{e\ 1867}#))
- (let ((#{tmp\ 1879}#
+ (#{source-wrap\ 451}#
+ #{e\ 1808}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#))))))))))))))))))
+ (#{chi-application\ 469}#
+ (lambda (#{x\ 1867}#
+ #{e\ 1868}#
+ #{r\ 1869}#
+ #{w\ 1870}#
+ #{s\ 1871}#
+ #{mod\ 1872}#)
+ (let ((#{tmp\ 1879}# #{e\ 1868}#))
+ (let ((#{tmp\ 1880}#
($sc-dispatch
- #{tmp\ 1878}#
+ #{tmp\ 1879}#
'(any . each-any))))
- (if #{tmp\ 1879}#
+ (if #{tmp\ 1880}#
(@apply
- (lambda (#{e0\ 1882}# #{e1\ 1883}#)
- (#{build-application\ 303}#
- #{s\ 1870}#
- #{x\ 1866}#
- (map (lambda (#{e\ 1884}#)
- (#{chi\ 464}#
- #{e\ 1884}#
- #{r\ 1868}#
- #{w\ 1869}#
- #{mod\ 1871}#))
- #{e1\ 1883}#)))
- #{tmp\ 1879}#)
+ (lambda (#{e0\ 1883}# #{e1\ 1884}#)
+ (#{build-application\ 304}#
+ #{s\ 1871}#
+ #{x\ 1867}#
+ (map (lambda (#{e\ 1885}#)
+ (#{chi\ 465}#
+ #{e\ 1885}#
+ #{r\ 1869}#
+ #{w\ 1870}#
+ #{mod\ 1872}#))
+ #{e1\ 1884}#)))
+ #{tmp\ 1880}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1878}#))))))
- (#{chi-macro\ 470}#
- (lambda (#{p\ 1887}#
- #{e\ 1888}#
- #{r\ 1889}#
- #{w\ 1890}#
- #{s\ 1891}#
- #{rib\ 1892}#
- #{mod\ 1893}#)
+ #{tmp\ 1879}#))))))
+ (#{chi-macro\ 471}#
+ (lambda (#{p\ 1888}#
+ #{e\ 1889}#
+ #{r\ 1890}#
+ #{w\ 1891}#
+ #{s\ 1892}#
+ #{rib\ 1893}#
+ #{mod\ 1894}#)
(letrec*
- ((#{rebuild-macro-output\ 1902}#
- (lambda (#{x\ 1903}# #{m\ 1904}#)
- (if (pair? #{x\ 1903}#)
- (#{decorate-source\ 297}#
- (cons (#{rebuild-macro-output\ 1902}#
- (car #{x\ 1903}#)
- #{m\ 1904}#)
- (#{rebuild-macro-output\ 1902}#
- (cdr #{x\ 1903}#)
- #{m\ 1904}#))
- #{s\ 1891}#)
- (if (#{syntax-object?\ 343}# #{x\ 1903}#)
+ ((#{rebuild-macro-output\ 1903}#
+ (lambda (#{x\ 1904}# #{m\ 1905}#)
+ (if (pair? #{x\ 1904}#)
+ (#{decorate-source\ 298}#
+ (cons (#{rebuild-macro-output\ 1903}#
+ (car #{x\ 1904}#)
+ #{m\ 1905}#)
+ (#{rebuild-macro-output\ 1903}#
+ (cdr #{x\ 1904}#)
+ #{m\ 1905}#))
+ #{s\ 1892}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1904}#)
(begin
- (let ((#{w\ 1912}#
- (#{syntax-object-wrap\ 347}# #{x\ 1903}#)))
+ (let ((#{w\ 1913}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1904}#)))
(begin
- (let ((#{ms\ 1915}#
- (#{wrap-marks\ 386}# #{w\ 1912}#))
- (#{s\ 1916}#
- (#{wrap-subst\ 388}# #{w\ 1912}#)))
- (if (if (pair? #{ms\ 1915}#)
- (eq? (car #{ms\ 1915}#) #f)
+ (let ((#{ms\ 1916}#
+ (#{wrap-marks\ 387}# #{w\ 1913}#))
+ (#{s\ 1917}#
+ (#{wrap-subst\ 389}# #{w\ 1913}#)))
+ (if (if (pair? #{ms\ 1916}#)
+ (eq? (car #{ms\ 1916}#) #f)
#f)
- (#{make-syntax-object\ 341}#
- (#{syntax-object-expression\ 345}#
- #{x\ 1903}#)
- (#{make-wrap\ 384}#
- (cdr #{ms\ 1915}#)
- (if #{rib\ 1892}#
- (cons #{rib\ 1892}# (cdr #{s\ 1916}#))
- (cdr #{s\ 1916}#)))
- (#{syntax-object-module\ 349}#
- #{x\ 1903}#))
- (#{make-syntax-object\ 341}#
- (#{decorate-source\ 297}#
- (#{syntax-object-expression\ 345}#
- #{x\ 1903}#)
- #{s\ 1916}#)
- (#{make-wrap\ 384}#
- (cons #{m\ 1904}# #{ms\ 1915}#)
- (if #{rib\ 1892}#
- (cons #{rib\ 1892}#
- (cons (quote shift) #{s\ 1916}#))
- (cons (quote shift) #{s\ 1916}#)))
- (#{syntax-object-module\ 349}#
- #{x\ 1903}#)))))))
- (if (vector? #{x\ 1903}#)
+ (#{make-syntax-object\ 342}#
+ (#{syntax-object-expression\ 346}#
+ #{x\ 1904}#)
+ (#{make-wrap\ 385}#
+ (cdr #{ms\ 1916}#)
+ (if #{rib\ 1893}#
+ (cons #{rib\ 1893}# (cdr #{s\ 1917}#))
+ (cdr #{s\ 1917}#)))
+ (#{syntax-object-module\ 350}#
+ #{x\ 1904}#))
+ (#{make-syntax-object\ 342}#
+ (#{decorate-source\ 298}#
+ (#{syntax-object-expression\ 346}#
+ #{x\ 1904}#)
+ #{s\ 1917}#)
+ (#{make-wrap\ 385}#
+ (cons #{m\ 1905}# #{ms\ 1916}#)
+ (if #{rib\ 1893}#
+ (cons #{rib\ 1893}#
+ (cons (quote shift) #{s\ 1917}#))
+ (cons (quote shift) #{s\ 1917}#)))
+ (#{syntax-object-module\ 350}#
+ #{x\ 1904}#)))))))
+ (if (vector? #{x\ 1904}#)
(begin
- (let ((#{n\ 1924}# (vector-length #{x\ 1903}#)))
+ (let ((#{n\ 1925}# (vector-length #{x\ 1904}#)))
(begin
- (let ((#{v\ 1926}#
- (#{decorate-source\ 297}#
- (make-vector #{n\ 1924}#)
- #{x\ 1903}#)))
+ (let ((#{v\ 1927}#
+ (#{decorate-source\ 298}#
+ (make-vector #{n\ 1925}#)
+ #{x\ 1904}#)))
(letrec*
- ((#{loop\ 1929}#
- (lambda (#{i\ 1930}#)
- (if (#{fx=\ 284}#
- #{i\ 1930}#
- #{n\ 1924}#)
- (begin (if #f #f) #{v\ 1926}#)
+ ((#{loop\ 1930}#
+ (lambda (#{i\ 1931}#)
+ (if (#{fx=\ 285}#
+ #{i\ 1931}#
+ #{n\ 1925}#)
+ (begin (if #f #f) #{v\ 1927}#)
(begin
(vector-set!
- #{v\ 1926}#
- #{i\ 1930}#
- (#{rebuild-macro-output\ 1902}#
+ #{v\ 1927}#
+ #{i\ 1931}#
+ (#{rebuild-macro-output\ 1903}#
(vector-ref
- #{x\ 1903}#
- #{i\ 1930}#)
- #{m\ 1904}#))
- (#{loop\ 1929}#
- (#{fx+\ 280}#
- #{i\ 1930}#
+ #{x\ 1904}#
+ #{i\ 1931}#)
+ #{m\ 1905}#))
+ (#{loop\ 1930}#
+ (#{fx+\ 281}#
+ #{i\ 1931}#
1)))))))
- (begin (#{loop\ 1929}# 0)))))))
- (if (symbol? #{x\ 1903}#)
+ (begin (#{loop\ 1930}# 0)))))))
+ (if (symbol? #{x\ 1904}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 450}#
- #{e\ 1888}#
- #{w\ 1890}#
- (#{wrap-subst\ 388}# #{w\ 1890}#)
- #{mod\ 1893}#)
- #{x\ 1903}#)
- (#{decorate-source\ 297}#
- #{x\ 1903}#
- #{s\ 1891}#))))))))
+ (#{source-wrap\ 451}#
+ #{e\ 1889}#
+ #{w\ 1891}#
+ (#{wrap-subst\ 389}# #{w\ 1891}#)
+ #{mod\ 1894}#)
+ #{x\ 1904}#)
+ (#{decorate-source\ 298}#
+ #{x\ 1904}#
+ #{s\ 1892}#))))))))
(begin
- (#{rebuild-macro-output\ 1902}#
- (#{p\ 1887}#
- (#{source-wrap\ 450}#
- #{e\ 1888}#
- (#{anti-mark\ 420}# #{w\ 1890}#)
- #{s\ 1891}#
- #{mod\ 1893}#))
+ (#{rebuild-macro-output\ 1903}#
+ (#{p\ 1888}#
+ (#{source-wrap\ 451}#
+ #{e\ 1889}#
+ (#{anti-mark\ 421}# #{w\ 1891}#)
+ #{s\ 1892}#
+ #{mod\ 1894}#))
(gensym "m"))))))
- (#{chi-body\ 472}#
- (lambda (#{body\ 1937}#
- #{outer-form\ 1938}#
- #{r\ 1939}#
- #{w\ 1940}#
- #{mod\ 1941}#)
+ (#{chi-body\ 473}#
+ (lambda (#{body\ 1938}#
+ #{outer-form\ 1939}#
+ #{r\ 1940}#
+ #{w\ 1941}#
+ #{mod\ 1942}#)
(begin
- (let ((#{r\ 1949}#
+ (let ((#{r\ 1950}#
(cons '("placeholder" placeholder)
- #{r\ 1939}#)))
+ #{r\ 1940}#)))
(begin
- (let ((#{ribcage\ 1951}#
- (#{make-ribcage\ 400}#
+ (let ((#{ribcage\ 1952}#
+ (#{make-ribcage\ 401}#
'()
'()
'())))
(begin
- (let ((#{w\ 1954}#
- (#{make-wrap\ 384}#
- (#{wrap-marks\ 386}# #{w\ 1940}#)
- (cons #{ribcage\ 1951}#
- (#{wrap-subst\ 388}# #{w\ 1940}#)))))
+ (let ((#{w\ 1955}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w\ 1941}#)
+ (cons #{ribcage\ 1952}#
+ (#{wrap-subst\ 389}# #{w\ 1941}#)))))
(letrec*
- ((#{parse\ 1963}#
- (lambda (#{body\ 1964}#
- #{ids\ 1965}#
- #{labels\ 1966}#
- #{var-ids\ 1967}#
- #{vars\ 1968}#
- #{vals\ 1969}#
- #{bindings\ 1970}#)
- (if (null? #{body\ 1964}#)
+ ((#{parse\ 1964}#
+ (lambda (#{body\ 1965}#
+ #{ids\ 1966}#
+ #{labels\ 1967}#
+ #{var-ids\ 1968}#
+ #{vars\ 1969}#
+ #{vals\ 1970}#
+ #{bindings\ 1971}#)
+ (if (null? #{body\ 1965}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1938}#)
+ #{outer-form\ 1939}#)
(begin
- (let ((#{e\ 1975}#
- (cdr (car #{body\ 1964}#)))
- (#{er\ 1976}#
- (car (car #{body\ 1964}#))))
+ (let ((#{e\ 1976}#
+ (cdr (car #{body\ 1965}#)))
+ (#{er\ 1977}#
+ (car (car #{body\ 1965}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 460}#
- #{e\ 1975}#
- #{er\ 1976}#
+ (#{syntax-type\ 461}#
+ #{e\ 1976}#
+ #{er\ 1977}#
'(())
- (#{source-annotation\ 358}#
- #{er\ 1976}#)
- #{ribcage\ 1951}#
- #{mod\ 1941}#
+ (#{source-annotation\ 359}#
+ #{er\ 1977}#)
+ #{ribcage\ 1952}#
+ #{mod\ 1942}#
#f))
- (lambda (#{type\ 1978}#
- #{value\ 1979}#
- #{e\ 1980}#
- #{w\ 1981}#
- #{s\ 1982}#
- #{mod\ 1983}#)
- (if (eqv? #{type\ 1978}#
+ (lambda (#{type\ 1979}#
+ #{value\ 1980}#
+ #{e\ 1981}#
+ #{w\ 1982}#
+ #{s\ 1983}#
+ #{mod\ 1984}#)
+ (if (eqv? #{type\ 1979}#
'define-form)
(begin
- (let ((#{id\ 1993}#
- (#{wrap\ 448}#
- #{value\ 1979}#
- #{w\ 1981}#
- #{mod\ 1983}#))
- (#{label\ 1994}#
- (#{gen-label\ 395}#)))
+ (let ((#{id\ 1994}#
+ (#{wrap\ 449}#
+ #{value\ 1980}#
+ #{w\ 1982}#
+ #{mod\ 1984}#))
+ (#{label\ 1995}#
+ (#{gen-label\ 396}#)))
(begin
- (let ((#{var\ 1996}#
- (#{gen-var\ 492}#
- #{id\ 1993}#)))
+ (let ((#{var\ 1997}#
+ (#{gen-var\ 493}#
+ #{id\ 1994}#)))
(begin
- (#{extend-ribcage!\ 424}#
- #{ribcage\ 1951}#
- #{id\ 1993}#
- #{label\ 1994}#)
- (#{parse\ 1963}#
- (cdr #{body\ 1964}#)
- (cons #{id\ 1993}#
- #{ids\ 1965}#)
- (cons #{label\ 1994}#
- #{labels\ 1966}#)
- (cons #{id\ 1993}#
- #{var-ids\
1967}#)
- (cons #{var\ 1996}#
- #{vars\ 1968}#)
- (cons (cons #{er\
1976}#
- (#{wrap\
448}#
- #{e\
1980}#
- #{w\
1981}#
- #{mod\
1983}#))
- #{vals\ 1969}#)
+ (#{extend-ribcage!\ 425}#
+ #{ribcage\ 1952}#
+ #{id\ 1994}#
+ #{label\ 1995}#)
+ (#{parse\ 1964}#
+ (cdr #{body\ 1965}#)
+ (cons #{id\ 1994}#
+ #{ids\ 1966}#)
+ (cons #{label\ 1995}#
+ #{labels\ 1967}#)
+ (cons #{id\ 1994}#
+ #{var-ids\
1968}#)
+ (cons #{var\ 1997}#
+ #{vars\ 1969}#)
+ (cons (cons #{er\
1977}#
+ (#{wrap\
449}#
+ #{e\
1981}#
+ #{w\
1982}#
+ #{mod\
1984}#))
+ #{vals\ 1970}#)
(cons (cons 'lexical
- #{var\
1996}#)
- #{bindings\
1970}#)))))))
- (if (eqv? #{type\ 1978}#
+ #{var\
1997}#)
+ #{bindings\
1971}#)))))))
+ (if (eqv? #{type\ 1979}#
'define-syntax-form)
(begin
- (let ((#{id\ 2001}#
- (#{wrap\ 448}#
- #{value\ 1979}#
- #{w\ 1981}#
- #{mod\ 1983}#))
- (#{label\ 2002}#
- (#{gen-label\ 395}#)))
+ (let ((#{id\ 2002}#
+ (#{wrap\ 449}#
+ #{value\ 1980}#
+ #{w\ 1982}#
+ #{mod\ 1984}#))
+ (#{label\ 2003}#
+ (#{gen-label\ 396}#)))
(begin
- (#{extend-ribcage!\ 424}#
- #{ribcage\ 1951}#
- #{id\ 2001}#
- #{label\ 2002}#)
- (#{parse\ 1963}#
- (cdr #{body\ 1964}#)
- (cons #{id\ 2001}#
- #{ids\ 1965}#)
- (cons #{label\ 2002}#
- #{labels\ 1966}#)
- #{var-ids\ 1967}#
- #{vars\ 1968}#
- #{vals\ 1969}#
+ (#{extend-ribcage!\ 425}#
+ #{ribcage\ 1952}#
+ #{id\ 2002}#
+ #{label\ 2003}#)
+ (#{parse\ 1964}#
+ (cdr #{body\ 1965}#)
+ (cons #{id\ 2002}#
+ #{ids\ 1966}#)
+ (cons #{label\ 2003}#
+ #{labels\ 1967}#)
+ #{var-ids\ 1968}#
+ #{vars\ 1969}#
+ #{vals\ 1970}#
(cons (cons 'macro
- (cons #{er\
1976}#
-
(#{wrap\ 448}#
- #{e\
1980}#
- #{w\
1981}#
-
#{mod\ 1983}#)))
- #{bindings\
1970}#)))))
- (if (eqv? #{type\ 1978}#
+ (cons #{er\
1977}#
+
(#{wrap\ 449}#
+ #{e\
1981}#
+ #{w\
1982}#
+
#{mod\ 1984}#)))
+ #{bindings\
1971}#)))))
+ (if (eqv? #{type\ 1979}#
'begin-form)
- (let ((#{tmp\ 2005}#
- #{e\ 1980}#))
- (let ((#{tmp\ 2006}#
+ (let ((#{tmp\ 2006}#
+ #{e\ 1981}#))
+ (let ((#{tmp\ 2007}#
($sc-dispatch
- #{tmp\ 2005}#
+ #{tmp\ 2006}#
'(_ . each-any))))
- (if #{tmp\ 2006}#
+ (if #{tmp\ 2007}#
(@apply
- (lambda (#{e1\ 2008}#)
- (#{parse\ 1963}#
+ (lambda (#{e1\ 2009}#)
+ (#{parse\ 1964}#
(letrec*
- ((#{f\ 2011}#
- (lambda
(#{forms\ 2012}#)
- (if (null?
#{forms\ 2012}#)
- (cdr
#{body\ 1964}#)
- (cons
(cons #{er\ 1976}#
-
(#{wrap\ 448}#
-
(car #{forms\ 2012}#)
-
#{w\ 1981}#
-
#{mod\ 1983}#))
-
(#{f\ 2011}#
-
(cdr #{forms\ 2012}#)))))))
+ ((#{f\ 2012}#
+ (lambda
(#{forms\ 2013}#)
+ (if (null?
#{forms\ 2013}#)
+ (cdr
#{body\ 1965}#)
+ (cons
(cons #{er\ 1977}#
+
(#{wrap\ 449}#
+
(car #{forms\ 2013}#)
+
#{w\ 1982}#
+
#{mod\ 1984}#))
+
(#{f\ 2012}#
+
(cdr #{forms\ 2013}#)))))))
(begin
- (#{f\ 2011}#
- #{e1\
2008}#)))
- #{ids\ 1965}#
- #{labels\ 1966}#
- #{var-ids\ 1967}#
- #{vars\ 1968}#
- #{vals\ 1969}#
- #{bindings\
1970}#))
- #{tmp\ 2006}#)
+ (#{f\ 2012}#
+ #{e1\
2009}#)))
+ #{ids\ 1966}#
+ #{labels\ 1967}#
+ #{var-ids\ 1968}#
+ #{vars\ 1969}#
+ #{vals\ 1970}#
+ #{bindings\
1971}#))
+ #{tmp\ 2007}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 2005}#))))
- (if (eqv? #{type\ 1978}#
+ #{tmp\ 2006}#))))
+ (if (eqv? #{type\ 1979}#
'local-syntax-form)
- (#{chi-local-syntax\ 474}#
- #{value\ 1979}#
- #{e\ 1980}#
- #{er\ 1976}#
- #{w\ 1981}#
- #{s\ 1982}#
- #{mod\ 1983}#
- (lambda (#{forms\ 2015}#
- #{er\ 2016}#
- #{w\ 2017}#
- #{s\ 2018}#
- #{mod\ 2019}#)
- (#{parse\ 1963}#
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1980}#
+ #{e\ 1981}#
+ #{er\ 1977}#
+ #{w\ 1982}#
+ #{s\ 1983}#
+ #{mod\ 1984}#
+ (lambda (#{forms\ 2016}#
+ #{er\ 2017}#
+ #{w\ 2018}#
+ #{s\ 2019}#
+ #{mod\ 2020}#)
+ (#{parse\ 1964}#
(letrec*
- ((#{f\ 2027}#
- (lambda (#{forms\
2028}#)
- (if (null?
#{forms\ 2028}#)
- (cdr #{body\
1964}#)
- (cons (cons
#{er\ 2016}#
-
(#{wrap\ 448}#
-
(car #{forms\ 2028}#)
-
#{w\ 2017}#
-
#{mod\ 2019}#))
- (#{f\
2027}#
- (cdr
#{forms\ 2028}#)))))))
+ ((#{f\ 2028}#
+ (lambda (#{forms\
2029}#)
+ (if (null?
#{forms\ 2029}#)
+ (cdr #{body\
1965}#)
+ (cons (cons
#{er\ 2017}#
+
(#{wrap\ 449}#
+
(car #{forms\ 2029}#)
+
#{w\ 2018}#
+
#{mod\ 2020}#))
+ (#{f\
2028}#
+ (cdr
#{forms\ 2029}#)))))))
(begin
- (#{f\ 2027}#
- #{forms\
2015}#)))
- #{ids\ 1965}#
- #{labels\ 1966}#
- #{var-ids\ 1967}#
- #{vars\ 1968}#
- #{vals\ 1969}#
- #{bindings\ 1970}#)))
- (if (null? #{ids\ 1965}#)
- (#{build-sequence\ 331}#
+ (#{f\ 2028}#
+ #{forms\
2016}#)))
+ #{ids\ 1966}#
+ #{labels\ 1967}#
+ #{var-ids\ 1968}#
+ #{vars\ 1969}#
+ #{vals\ 1970}#
+ #{bindings\ 1971}#)))
+ (if (null? #{ids\ 1966}#)
+ (#{build-sequence\ 332}#
#f
- (map (lambda (#{x\
2031}#)
- (#{chi\ 464}#
- (cdr #{x\
2031}#)
- (car #{x\
2031}#)
+ (map (lambda (#{x\
2032}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2032}#)
+ (car #{x\
2032}#)
'(())
- #{mod\ 1983}#))
- (cons (cons #{er\
1976}#
-
(#{source-wrap\ 450}#
- #{e\
1980}#
- #{w\
1981}#
- #{s\
1982}#
-
#{mod\ 1983}#))
- (cdr #{body\
1964}#))))
+ #{mod\ 1984}#))
+ (cons (cons #{er\
1977}#
+
(#{source-wrap\ 451}#
+ #{e\
1981}#
+ #{w\
1982}#
+ #{s\
1983}#
+
#{mod\ 1984}#))
+ (cdr #{body\
1965}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 442}#
- #{ids\
1965}#))
+ (if (not
(#{valid-bound-ids?\ 443}#
+ #{ids\
1966}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
1938}#))
+ #{outer-form\
1939}#))
(letrec*
- ((#{loop\ 2038}#
- (lambda (#{bs\
2039}#
-
#{er-cache\ 2040}#
- #{r-cache\
2041}#)
- (if (not (null?
#{bs\ 2039}#))
+ ((#{loop\ 2039}#
+ (lambda (#{bs\
2040}#
+
#{er-cache\ 2041}#
+ #{r-cache\
2042}#)
+ (if (not (null?
#{bs\ 2040}#))
(begin
- (let ((#{b\
2044}#
- (car
#{bs\ 2039}#)))
- (if (eq?
(car #{b\ 2044}#)
+ (let ((#{b\
2045}#
+ (car
#{bs\ 2040}#)))
+ (if (eq?
(car #{b\ 2045}#)
'macro)
(begin
- (let
((#{er\ 2047}#
-
(car (cdr #{b\ 2044}#))))
+ (let
((#{er\ 2048}#
+
(car (cdr #{b\ 2045}#))))
(begin
-
(let ((#{r-cache\ 2049}#
-
(if (eq? #{er\ 2047}#
-
#{er-cache\ 2040}#)
-
#{r-cache\ 2041}#
-
(#{macros-only-env\ 371}#
-
#{er\ 2047}#))))
+
(let ((#{r-cache\ 2050}#
+
(if (eq? #{er\ 2048}#
+
#{er-cache\ 2041}#)
+
#{r-cache\ 2042}#
+
(#{macros-only-env\ 372}#
+
#{er\ 2048}#))))
(begin
(set-cdr!
-
#{b\ 2044}#
-
(#{eval-local-transformer\ 476}#
-
(#{chi\ 464}#
-
(cdr (cdr #{b\ 2044}#))
-
#{r-cache\ 2049}#
+
#{b\ 2045}#
+
(#{eval-local-transformer\ 477}#
+
(#{chi\ 465}#
+
(cdr (cdr #{b\ 2045}#))
+
#{r-cache\ 2050}#
'(())
-
#{mod\ 1983}#)
-
#{mod\ 1983}#))
-
(#{loop\ 2038}#
-
(cdr #{bs\ 2039}#)
-
#{er\ 2047}#
-
#{r-cache\ 2049}#))))))
- (#{loop\
2038}#
- (cdr
#{bs\ 2039}#)
-
#{er-cache\ 2040}#
-
#{r-cache\ 2041}#))))))))
+
#{mod\ 1984}#)
+
#{mod\ 1984}#))
+
(#{loop\ 2039}#
+
(cdr #{bs\ 2040}#)
+
#{er\ 2048}#
+
#{r-cache\ 2050}#))))))
+ (#{loop\
2039}#
+ (cdr
#{bs\ 2040}#)
+
#{er-cache\ 2041}#
+
#{r-cache\ 2042}#))))))))
(begin
- (#{loop\ 2038}#
- #{bindings\ 1970}#
+ (#{loop\ 2039}#
+ #{bindings\ 1971}#
#f
#f)))
(set-cdr!
- #{r\ 1949}#
- (#{extend-env\ 367}#
- #{labels\ 1966}#
- #{bindings\ 1970}#
- (cdr #{r\ 1949}#)))
- (#{build-letrec\ 337}#
+ #{r\ 1950}#
+ (#{extend-env\ 368}#
+ #{labels\ 1967}#
+ #{bindings\ 1971}#
+ (cdr #{r\ 1950}#)))
+ (#{build-letrec\ 338}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\
1967}#))
+ #{var-ids\
1968}#))
(reverse
- #{vars\ 1968}#)
- (map (lambda (#{x\
2052}#)
- (#{chi\ 464}#
- (cdr #{x\
2052}#)
- (car #{x\
2052}#)
+ #{vars\ 1969}#)
+ (map (lambda (#{x\
2053}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2053}#)
+ (car #{x\
2053}#)
'(())
- #{mod\
1983}#))
+ #{mod\
1984}#))
(reverse
- #{vals\ 1969}#))
- (#{build-sequence\
331}#
+ #{vals\ 1970}#))
+ (#{build-sequence\
332}#
#f
- (map (lambda (#{x\
2056}#)
- (#{chi\ 464}#
- (cdr #{x\
2056}#)
- (car #{x\
2056}#)
+ (map (lambda (#{x\
2057}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2057}#)
+ (car #{x\
2057}#)
'(())
- #{mod\
1983}#))
- (cons (cons
#{er\ 1976}#
-
(#{source-wrap\ 450}#
-
#{e\ 1980}#
-
#{w\ 1981}#
-
#{s\ 1982}#
-
#{mod\ 1983}#))
- (cdr
#{body\ 1964}#)))))))))))))))))))
+ #{mod\
1984}#))
+ (cons (cons
#{er\ 1977}#
+
(#{source-wrap\ 451}#
+
#{e\ 1981}#
+
#{w\ 1982}#
+
#{s\ 1983}#
+
#{mod\ 1984}#))
+ (cdr
#{body\ 1965}#)))))))))))))))))))
(begin
- (#{parse\ 1963}#
- (map (lambda (#{x\ 1971}#)
- (cons #{r\ 1949}#
- (#{wrap\ 448}#
- #{x\ 1971}#
- #{w\ 1954}#
- #{mod\ 1941}#)))
- #{body\ 1937}#)
+ (#{parse\ 1964}#
+ (map (lambda (#{x\ 1972}#)
+ (cons #{r\ 1950}#
+ (#{wrap\ 449}#
+ #{x\ 1972}#
+ #{w\ 1955}#
+ #{mod\ 1942}#)))
+ #{body\ 1938}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax\ 474}#
- (lambda (#{rec?\ 2059}#
- #{e\ 2060}#
- #{r\ 2061}#
- #{w\ 2062}#
- #{s\ 2063}#
- #{mod\ 2064}#
- #{k\ 2065}#)
- (let ((#{tmp\ 2073}# #{e\ 2060}#))
- (let ((#{tmp\ 2074}#
+ (#{chi-local-syntax\ 475}#
+ (lambda (#{rec?\ 2060}#
+ #{e\ 2061}#
+ #{r\ 2062}#
+ #{w\ 2063}#
+ #{s\ 2064}#
+ #{mod\ 2065}#
+ #{k\ 2066}#)
+ (let ((#{tmp\ 2074}# #{e\ 2061}#))
+ (let ((#{tmp\ 2075}#
($sc-dispatch
- #{tmp\ 2073}#
+ #{tmp\ 2074}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 2074}#
+ (if #{tmp\ 2075}#
(@apply
- (lambda (#{id\ 2079}#
- #{val\ 2080}#
- #{e1\ 2081}#
- #{e2\ 2082}#)
+ (lambda (#{id\ 2080}#
+ #{val\ 2081}#
+ #{e1\ 2082}#
+ #{e2\ 2083}#)
(begin
- (let ((#{ids\ 2084}# #{id\ 2079}#))
- (if (not (#{valid-bound-ids?\ 442}# #{ids\ 2084}#))
+ (let ((#{ids\ 2085}# #{id\ 2080}#))
+ (if (not (#{valid-bound-ids?\ 443}# #{ids\ 2085}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 2060}#)
+ #{e\ 2061}#)
(begin
- (let ((#{labels\ 2087}#
- (#{gen-labels\ 397}# #{ids\ 2084}#)))
+ (let ((#{labels\ 2088}#
+ (#{gen-labels\ 398}# #{ids\ 2085}#)))
(begin
- (let ((#{new-w\ 2089}#
- (#{make-binding-wrap\ 426}#
- #{ids\ 2084}#
- #{labels\ 2087}#
- #{w\ 2062}#)))
- (#{k\ 2065}#
- (cons #{e1\ 2081}# #{e2\ 2082}#)
- (#{extend-env\ 367}#
- #{labels\ 2087}#
+ (let ((#{new-w\ 2090}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 2085}#
+ #{labels\ 2088}#
+ #{w\ 2063}#)))
+ (#{k\ 2066}#
+ (cons #{e1\ 2082}# #{e2\ 2083}#)
+ (#{extend-env\ 368}#
+ #{labels\ 2088}#
(begin
- (let ((#{w\ 2093}#
- (if #{rec?\ 2059}#
- #{new-w\ 2089}#
- #{w\ 2062}#))
- (#{trans-r\ 2094}#
- (#{macros-only-env\ 371}#
- #{r\ 2061}#)))
- (map (lambda (#{x\ 2095}#)
+ (let ((#{w\ 2094}#
+ (if #{rec?\ 2060}#
+ #{new-w\ 2090}#
+ #{w\ 2063}#))
+ (#{trans-r\ 2095}#
+ (#{macros-only-env\ 372}#
+ #{r\ 2062}#)))
+ (map (lambda (#{x\ 2096}#)
(cons 'macro
-
(#{eval-local-transformer\ 476}#
- (#{chi\ 464}#
- #{x\ 2095}#
- #{trans-r\ 2094}#
- #{w\ 2093}#
- #{mod\ 2064}#)
- #{mod\ 2064}#)))
- #{val\ 2080}#)))
- #{r\ 2061}#)
- #{new-w\ 2089}#
- #{s\ 2063}#
- #{mod\ 2064}#)))))))))
- #{tmp\ 2074}#)
- (let ((#{_\ 2100}# #{tmp\ 2073}#))
+
(#{eval-local-transformer\ 477}#
+ (#{chi\ 465}#
+ #{x\ 2096}#
+ #{trans-r\ 2095}#
+ #{w\ 2094}#
+ #{mod\ 2065}#)
+ #{mod\ 2065}#)))
+ #{val\ 2081}#)))
+ #{r\ 2062}#)
+ #{new-w\ 2090}#
+ #{s\ 2064}#
+ #{mod\ 2065}#)))))))))
+ #{tmp\ 2075}#)
+ (let ((#{_\ 2101}# #{tmp\ 2074}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 450}#
- #{e\ 2060}#
- #{w\ 2062}#
- #{s\ 2063}#
- #{mod\ 2064}#))))))))
- (#{eval-local-transformer\ 476}#
- (lambda (#{expanded\ 2101}# #{mod\ 2102}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2061}#
+ #{w\ 2063}#
+ #{s\ 2064}#
+ #{mod\ 2065}#))))))))
+ (#{eval-local-transformer\ 477}#
+ (lambda (#{expanded\ 2102}# #{mod\ 2103}#)
(begin
- (let ((#{p\ 2106}#
- (#{local-eval-hook\ 290}#
- #{expanded\ 2101}#
- #{mod\ 2102}#)))
- (if (procedure? #{p\ 2106}#)
- #{p\ 2106}#
+ (let ((#{p\ 2107}#
+ (#{local-eval-hook\ 291}#
+ #{expanded\ 2102}#
+ #{mod\ 2103}#)))
+ (if (procedure? #{p\ 2107}#)
+ #{p\ 2107}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 2106}#))))))
- (#{chi-void\ 478}#
- (lambda () (#{build-void\ 301}# #f)))
- (#{ellipsis?\ 480}#
- (lambda (#{x\ 2108}#)
- (if (#{nonsymbol-id?\ 377}# #{x\ 2108}#)
- (#{free-id=?\ 438}#
- #{x\ 2108}#
+ #{p\ 2107}#))))))
+ (#{chi-void\ 479}#
+ (lambda () (#{build-void\ 302}# #f)))
+ (#{ellipsis?\ 481}#
+ (lambda (#{x\ 2109}#)
+ (if (#{nonsymbol-id?\ 378}# #{x\ 2109}#)
+ (#{free-id=?\ 439}#
+ #{x\ 2109}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2109"))
+ #(ribcage #(x) #((top)) #("i2110"))
#(ribcage
(lambda-var-list
gen-var
@@ -6747,417 +6747,417 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
#f)))
- (#{lambda-formals\ 482}#
- (lambda (#{orig-args\ 2112}#)
+ (#{lambda-formals\ 483}#
+ (lambda (#{orig-args\ 2113}#)
(letrec*
- ((#{req\ 2115}#
- (lambda (#{args\ 2118}# #{rreq\ 2119}#)
- (let ((#{tmp\ 2122}# #{args\ 2118}#))
- (let ((#{tmp\ 2123}#
- ($sc-dispatch #{tmp\ 2122}# (quote ()))))
- (if #{tmp\ 2123}#
+ ((#{req\ 2116}#
+ (lambda (#{args\ 2119}# #{rreq\ 2120}#)
+ (let ((#{tmp\ 2123}# #{args\ 2119}#))
+ (let ((#{tmp\ 2124}#
+ ($sc-dispatch #{tmp\ 2123}# (quote ()))))
+ (if #{tmp\ 2124}#
(@apply
(lambda ()
- (#{check\ 2117}# (reverse #{rreq\ 2119}#) #f))
- #{tmp\ 2123}#)
- (let ((#{tmp\ 2124}#
+ (#{check\ 2118}# (reverse #{rreq\ 2120}#) #f))
+ #{tmp\ 2124}#)
+ (let ((#{tmp\ 2125}#
($sc-dispatch
- #{tmp\ 2122}#
+ #{tmp\ 2123}#
'(any . any))))
- (if (if #{tmp\ 2124}#
+ (if (if #{tmp\ 2125}#
(@apply
- (lambda (#{a\ 2127}# #{b\ 2128}#)
- (#{id?\ 379}# #{a\ 2127}#))
- #{tmp\ 2124}#)
+ (lambda (#{a\ 2128}# #{b\ 2129}#)
+ (#{id?\ 380}# #{a\ 2128}#))
+ #{tmp\ 2125}#)
#f)
(@apply
- (lambda (#{a\ 2131}# #{b\ 2132}#)
- (#{req\ 2115}#
- #{b\ 2132}#
- (cons #{a\ 2131}# #{rreq\ 2119}#)))
- #{tmp\ 2124}#)
- (let ((#{tmp\ 2133}# (list #{tmp\ 2122}#)))
- (if (if #{tmp\ 2133}#
+ (lambda (#{a\ 2132}# #{b\ 2133}#)
+ (#{req\ 2116}#
+ #{b\ 2133}#
+ (cons #{a\ 2132}# #{rreq\ 2120}#)))
+ #{tmp\ 2125}#)
+ (let ((#{tmp\ 2134}# (list #{tmp\ 2123}#)))
+ (if (if #{tmp\ 2134}#
(@apply
- (lambda (#{r\ 2135}#)
- (#{id?\ 379}# #{r\ 2135}#))
- #{tmp\ 2133}#)
+ (lambda (#{r\ 2136}#)
+ (#{id?\ 380}# #{r\ 2136}#))
+ #{tmp\ 2134}#)
#f)
(@apply
- (lambda (#{r\ 2137}#)
- (#{check\ 2117}#
- (reverse #{rreq\ 2119}#)
- #{r\ 2137}#))
- #{tmp\ 2133}#)
- (let ((#{else\ 2139}# #{tmp\ 2122}#))
+ (lambda (#{r\ 2138}#)
+ (#{check\ 2118}#
+ (reverse #{rreq\ 2120}#)
+ #{r\ 2138}#))
+ #{tmp\ 2134}#)
+ (let ((#{else\ 2140}# #{tmp\ 2123}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 2112}#
- #{args\ 2118}#)))))))))))
- (#{check\ 2117}#
- (lambda (#{req\ 2140}# #{rest\ 2141}#)
- (if (#{distinct-bound-ids?\ 444}#
- (if #{rest\ 2141}#
- (cons #{rest\ 2141}# #{req\ 2140}#)
- #{req\ 2140}#))
- (values #{req\ 2140}# #f #{rest\ 2141}# #f)
+ #{orig-args\ 2113}#
+ #{args\ 2119}#)))))))))))
+ (#{check\ 2118}#
+ (lambda (#{req\ 2141}# #{rest\ 2142}#)
+ (if (#{distinct-bound-ids?\ 445}#
+ (if #{rest\ 2142}#
+ (cons #{rest\ 2142}# #{req\ 2141}#)
+ #{req\ 2141}#))
+ (values #{req\ 2141}# #f #{rest\ 2142}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 2112}#)))))
+ #{orig-args\ 2113}#)))))
(begin
- (#{req\ 2115}# #{orig-args\ 2112}# (quote ()))))))
- (#{chi-simple-lambda\ 484}#
- (lambda (#{e\ 2147}#
- #{r\ 2148}#
- #{w\ 2149}#
- #{s\ 2150}#
- #{mod\ 2151}#
- #{req\ 2152}#
- #{rest\ 2153}#
- #{meta\ 2154}#
- #{body\ 2155}#)
+ (#{req\ 2116}# #{orig-args\ 2113}# (quote ()))))))
+ (#{chi-simple-lambda\ 485}#
+ (lambda (#{e\ 2148}#
+ #{r\ 2149}#
+ #{w\ 2150}#
+ #{s\ 2151}#
+ #{mod\ 2152}#
+ #{req\ 2153}#
+ #{rest\ 2154}#
+ #{meta\ 2155}#
+ #{body\ 2156}#)
(begin
- (let ((#{ids\ 2167}#
- (if #{rest\ 2153}#
- (append #{req\ 2152}# (list #{rest\ 2153}#))
- #{req\ 2152}#)))
+ (let ((#{ids\ 2168}#
+ (if #{rest\ 2154}#
+ (append #{req\ 2153}# (list #{rest\ 2154}#))
+ #{req\ 2153}#)))
(begin
- (let ((#{vars\ 2169}#
- (map #{gen-var\ 492}# #{ids\ 2167}#)))
+ (let ((#{vars\ 2170}#
+ (map #{gen-var\ 493}# #{ids\ 2168}#)))
(begin
- (let ((#{labels\ 2171}#
- (#{gen-labels\ 397}# #{ids\ 2167}#)))
- (#{build-simple-lambda\ 321}#
- #{s\ 2150}#
- (map syntax->datum #{req\ 2152}#)
- (if #{rest\ 2153}#
- (syntax->datum #{rest\ 2153}#)
+ (let ((#{labels\ 2172}#
+ (#{gen-labels\ 398}# #{ids\ 2168}#)))
+ (#{build-simple-lambda\ 322}#
+ #{s\ 2151}#
+ (map syntax->datum #{req\ 2153}#)
+ (if #{rest\ 2154}#
+ (syntax->datum #{rest\ 2154}#)
#f)
- #{vars\ 2169}#
- #{meta\ 2154}#
- (#{chi-body\ 472}#
- #{body\ 2155}#
- (#{source-wrap\ 450}#
- #{e\ 2147}#
- #{w\ 2149}#
- #{s\ 2150}#
- #{mod\ 2151}#)
- (#{extend-var-env\ 369}#
- #{labels\ 2171}#
- #{vars\ 2169}#
- #{r\ 2148}#)
- (#{make-binding-wrap\ 426}#
- #{ids\ 2167}#
- #{labels\ 2171}#
- #{w\ 2149}#)
- #{mod\ 2151}#))))))))))
- (#{lambda*-formals\ 486}#
- (lambda (#{orig-args\ 2174}#)
+ #{vars\ 2170}#
+ #{meta\ 2155}#
+ (#{chi-body\ 473}#
+ #{body\ 2156}#
+ (#{source-wrap\ 451}#
+ #{e\ 2148}#
+ #{w\ 2150}#
+ #{s\ 2151}#
+ #{mod\ 2152}#)
+ (#{extend-var-env\ 370}#
+ #{labels\ 2172}#
+ #{vars\ 2170}#
+ #{r\ 2149}#)
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 2168}#
+ #{labels\ 2172}#
+ #{w\ 2150}#)
+ #{mod\ 2152}#))))))))))
+ (#{lambda*-formals\ 487}#
+ (lambda (#{orig-args\ 2175}#)
(letrec*
- ((#{req\ 2177}#
- (lambda (#{args\ 2186}# #{rreq\ 2187}#)
- (let ((#{tmp\ 2190}# #{args\ 2186}#))
- (let ((#{tmp\ 2191}#
- ($sc-dispatch #{tmp\ 2190}# (quote ()))))
- (if #{tmp\ 2191}#
+ ((#{req\ 2178}#
+ (lambda (#{args\ 2187}# #{rreq\ 2188}#)
+ (let ((#{tmp\ 2191}# #{args\ 2187}#))
+ (let ((#{tmp\ 2192}#
+ ($sc-dispatch #{tmp\ 2191}# (quote ()))))
+ (if #{tmp\ 2192}#
(@apply
(lambda ()
- (#{check\ 2185}#
- (reverse #{rreq\ 2187}#)
+ (#{check\ 2186}#
+ (reverse #{rreq\ 2188}#)
'()
#f
'()))
- #{tmp\ 2191}#)
- (let ((#{tmp\ 2192}#
+ #{tmp\ 2192}#)
+ (let ((#{tmp\ 2193}#
($sc-dispatch
- #{tmp\ 2190}#
+ #{tmp\ 2191}#
'(any . any))))
- (if (if #{tmp\ 2192}#
+ (if (if #{tmp\ 2193}#
(@apply
- (lambda (#{a\ 2195}# #{b\ 2196}#)
- (#{id?\ 379}# #{a\ 2195}#))
- #{tmp\ 2192}#)
+ (lambda (#{a\ 2196}# #{b\ 2197}#)
+ (#{id?\ 380}# #{a\ 2196}#))
+ #{tmp\ 2193}#)
#f)
(@apply
- (lambda (#{a\ 2199}# #{b\ 2200}#)
- (#{req\ 2177}#
- #{b\ 2200}#
- (cons #{a\ 2199}# #{rreq\ 2187}#)))
- #{tmp\ 2192}#)
- (let ((#{tmp\ 2201}#
+ (lambda (#{a\ 2200}# #{b\ 2201}#)
+ (#{req\ 2178}#
+ #{b\ 2201}#
+ (cons #{a\ 2200}# #{rreq\ 2188}#)))
+ #{tmp\ 2193}#)
+ (let ((#{tmp\ 2202}#
($sc-dispatch
- #{tmp\ 2190}#
+ #{tmp\ 2191}#
'(any . any))))
- (if (if #{tmp\ 2201}#
+ (if (if #{tmp\ 2202}#
(@apply
- (lambda (#{a\ 2204}# #{b\ 2205}#)
- (eq? (syntax->datum #{a\ 2204}#)
+ (lambda (#{a\ 2205}# #{b\ 2206}#)
+ (eq? (syntax->datum #{a\ 2205}#)
#:optional))
- #{tmp\ 2201}#)
+ #{tmp\ 2202}#)
#f)
(@apply
- (lambda (#{a\ 2208}# #{b\ 2209}#)
- (#{opt\ 2179}#
- #{b\ 2209}#
- (reverse #{rreq\ 2187}#)
+ (lambda (#{a\ 2209}# #{b\ 2210}#)
+ (#{opt\ 2180}#
+ #{b\ 2210}#
+ (reverse #{rreq\ 2188}#)
'()))
- #{tmp\ 2201}#)
- (let ((#{tmp\ 2210}#
+ #{tmp\ 2202}#)
+ (let ((#{tmp\ 2211}#
($sc-dispatch
- #{tmp\ 2190}#
+ #{tmp\ 2191}#
'(any . any))))
- (if (if #{tmp\ 2210}#
+ (if (if #{tmp\ 2211}#
(@apply
- (lambda (#{a\ 2213}# #{b\ 2214}#)
- (eq? (syntax->datum #{a\ 2213}#)
+ (lambda (#{a\ 2214}# #{b\ 2215}#)
+ (eq? (syntax->datum #{a\ 2214}#)
#:key))
- #{tmp\ 2210}#)
+ #{tmp\ 2211}#)
#f)
(@apply
- (lambda (#{a\ 2217}# #{b\ 2218}#)
- (#{key\ 2181}#
- #{b\ 2218}#
- (reverse #{rreq\ 2187}#)
+ (lambda (#{a\ 2218}# #{b\ 2219}#)
+ (#{key\ 2182}#
+ #{b\ 2219}#
+ (reverse #{rreq\ 2188}#)
'()
'()))
- #{tmp\ 2210}#)
- (let ((#{tmp\ 2219}#
+ #{tmp\ 2211}#)
+ (let ((#{tmp\ 2220}#
($sc-dispatch
- #{tmp\ 2190}#
+ #{tmp\ 2191}#
'(any any))))
- (if (if #{tmp\ 2219}#
+ (if (if #{tmp\ 2220}#
(@apply
- (lambda (#{a\ 2222}#
- #{b\ 2223}#)
+ (lambda (#{a\ 2223}#
+ #{b\ 2224}#)
(eq? (syntax->datum
- #{a\ 2222}#)
+ #{a\ 2223}#)
#:rest))
- #{tmp\ 2219}#)
+ #{tmp\ 2220}#)
#f)
(@apply
- (lambda (#{a\ 2226}# #{b\ 2227}#)
- (#{rest\ 2183}#
- #{b\ 2227}#
- (reverse #{rreq\ 2187}#)
+ (lambda (#{a\ 2227}# #{b\ 2228}#)
+ (#{rest\ 2184}#
+ #{b\ 2228}#
+ (reverse #{rreq\ 2188}#)
'()
'()))
- #{tmp\ 2219}#)
- (let ((#{tmp\ 2228}#
- (list #{tmp\ 2190}#)))
- (if (if #{tmp\ 2228}#
+ #{tmp\ 2220}#)
+ (let ((#{tmp\ 2229}#
+ (list #{tmp\ 2191}#)))
+ (if (if #{tmp\ 2229}#
(@apply
- (lambda (#{r\ 2230}#)
- (#{id?\ 379}#
- #{r\ 2230}#))
- #{tmp\ 2228}#)
+ (lambda (#{r\ 2231}#)
+ (#{id?\ 380}#
+ #{r\ 2231}#))
+ #{tmp\ 2229}#)
#f)
(@apply
- (lambda (#{r\ 2232}#)
- (#{rest\ 2183}#
- #{r\ 2232}#
- (reverse #{rreq\ 2187}#)
+ (lambda (#{r\ 2233}#)
+ (#{rest\ 2184}#
+ #{r\ 2233}#
+ (reverse #{rreq\ 2188}#)
'()
'()))
- #{tmp\ 2228}#)
- (let ((#{else\ 2234}#
- #{tmp\ 2190}#))
+ #{tmp\ 2229}#)
+ (let ((#{else\ 2235}#
+ #{tmp\ 2191}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 2174}#
- #{args\
2186}#)))))))))))))))))
- (#{opt\ 2179}#
- (lambda (#{args\ 2235}# #{req\ 2236}# #{ropt\ 2237}#)
- (let ((#{tmp\ 2241}# #{args\ 2235}#))
- (let ((#{tmp\ 2242}#
- ($sc-dispatch #{tmp\ 2241}# (quote ()))))
- (if #{tmp\ 2242}#
+ #{orig-args\ 2175}#
+ #{args\
2187}#)))))))))))))))))
+ (#{opt\ 2180}#
+ (lambda (#{args\ 2236}# #{req\ 2237}# #{ropt\ 2238}#)
+ (let ((#{tmp\ 2242}# #{args\ 2236}#))
+ (let ((#{tmp\ 2243}#
+ ($sc-dispatch #{tmp\ 2242}# (quote ()))))
+ (if #{tmp\ 2243}#
(@apply
(lambda ()
- (#{check\ 2185}#
- #{req\ 2236}#
- (reverse #{ropt\ 2237}#)
+ (#{check\ 2186}#
+ #{req\ 2237}#
+ (reverse #{ropt\ 2238}#)
#f
'()))
- #{tmp\ 2242}#)
- (let ((#{tmp\ 2243}#
+ #{tmp\ 2243}#)
+ (let ((#{tmp\ 2244}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 2242}#
'(any . any))))
- (if (if #{tmp\ 2243}#
+ (if (if #{tmp\ 2244}#
(@apply
- (lambda (#{a\ 2246}# #{b\ 2247}#)
- (#{id?\ 379}# #{a\ 2246}#))
- #{tmp\ 2243}#)
+ (lambda (#{a\ 2247}# #{b\ 2248}#)
+ (#{id?\ 380}# #{a\ 2247}#))
+ #{tmp\ 2244}#)
#f)
(@apply
- (lambda (#{a\ 2250}# #{b\ 2251}#)
- (#{opt\ 2179}#
- #{b\ 2251}#
- #{req\ 2236}#
- (cons (cons #{a\ 2250}#
+ (lambda (#{a\ 2251}# #{b\ 2252}#)
+ (#{opt\ 2180}#
+ #{b\ 2252}#
+ #{req\ 2237}#
+ (cons (cons #{a\ 2251}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2248" "i2249"))
+ #("i2249" "i2250"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2238"
- "i2239"
- "i2240"))
+ #("i2239"
+ "i2240"
+ "i2241"))
#(ribcage
(check rest key opt req)
((top)
@@ -7165,15 +7165,15 @@
(top)
(top)
(top))
- ("i2184"
- "i2182"
- "i2180"
- "i2178"
- "i2176"))
+ ("i2185"
+ "i2183"
+ "i2181"
+ "i2179"
+ "i2177"))
#(ribcage
#(orig-args)
#((top))
- #("i2175"))
+ #("i2176"))
#(ribcage
(lambda-var-list
gen-var
@@ -7449,143 +7449,143 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -7595,150 +7595,150 @@
(top)
(top)
(top))
- ("i38"
+ ("i39"
+ "i38"
"i37"
- "i36"
- "i34")))
+ "i35")))
(hygiene guile))))
- #{ropt\ 2237}#)))
- #{tmp\ 2243}#)
- (let ((#{tmp\ 2252}#
+ #{ropt\ 2238}#)))
+ #{tmp\ 2244}#)
+ (let ((#{tmp\ 2253}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 2242}#
'((any any) . any))))
- (if (if #{tmp\ 2252}#
+ (if (if #{tmp\ 2253}#
(@apply
- (lambda (#{a\ 2256}#
- #{init\ 2257}#
- #{b\ 2258}#)
- (#{id?\ 379}# #{a\ 2256}#))
- #{tmp\ 2252}#)
+ (lambda (#{a\ 2257}#
+ #{init\ 2258}#
+ #{b\ 2259}#)
+ (#{id?\ 380}# #{a\ 2257}#))
+ #{tmp\ 2253}#)
#f)
(@apply
- (lambda (#{a\ 2262}#
- #{init\ 2263}#
- #{b\ 2264}#)
- (#{opt\ 2179}#
- #{b\ 2264}#
- #{req\ 2236}#
- (cons (list #{a\ 2262}# #{init\ 2263}#)
- #{ropt\ 2237}#)))
- #{tmp\ 2252}#)
- (let ((#{tmp\ 2265}#
+ (lambda (#{a\ 2263}#
+ #{init\ 2264}#
+ #{b\ 2265}#)
+ (#{opt\ 2180}#
+ #{b\ 2265}#
+ #{req\ 2237}#
+ (cons (list #{a\ 2263}# #{init\ 2264}#)
+ #{ropt\ 2238}#)))
+ #{tmp\ 2253}#)
+ (let ((#{tmp\ 2266}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 2242}#
'(any . any))))
- (if (if #{tmp\ 2265}#
+ (if (if #{tmp\ 2266}#
(@apply
- (lambda (#{a\ 2268}# #{b\ 2269}#)
- (eq? (syntax->datum #{a\ 2268}#)
+ (lambda (#{a\ 2269}# #{b\ 2270}#)
+ (eq? (syntax->datum #{a\ 2269}#)
#:key))
- #{tmp\ 2265}#)
+ #{tmp\ 2266}#)
#f)
(@apply
- (lambda (#{a\ 2272}# #{b\ 2273}#)
- (#{key\ 2181}#
- #{b\ 2273}#
- #{req\ 2236}#
- (reverse #{ropt\ 2237}#)
+ (lambda (#{a\ 2273}# #{b\ 2274}#)
+ (#{key\ 2182}#
+ #{b\ 2274}#
+ #{req\ 2237}#
+ (reverse #{ropt\ 2238}#)
'()))
- #{tmp\ 2265}#)
- (let ((#{tmp\ 2274}#
+ #{tmp\ 2266}#)
+ (let ((#{tmp\ 2275}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 2242}#
'(any any))))
- (if (if #{tmp\ 2274}#
+ (if (if #{tmp\ 2275}#
(@apply
- (lambda (#{a\ 2277}#
- #{b\ 2278}#)
+ (lambda (#{a\ 2278}#
+ #{b\ 2279}#)
(eq? (syntax->datum
- #{a\ 2277}#)
+ #{a\ 2278}#)
#:rest))
- #{tmp\ 2274}#)
+ #{tmp\ 2275}#)
#f)
(@apply
- (lambda (#{a\ 2281}# #{b\ 2282}#)
- (#{rest\ 2183}#
- #{b\ 2282}#
- #{req\ 2236}#
- (reverse #{ropt\ 2237}#)
+ (lambda (#{a\ 2282}# #{b\ 2283}#)
+ (#{rest\ 2184}#
+ #{b\ 2283}#
+ #{req\ 2237}#
+ (reverse #{ropt\ 2238}#)
'()))
- #{tmp\ 2274}#)
- (let ((#{tmp\ 2283}#
- (list #{tmp\ 2241}#)))
- (if (if #{tmp\ 2283}#
+ #{tmp\ 2275}#)
+ (let ((#{tmp\ 2284}#
+ (list #{tmp\ 2242}#)))
+ (if (if #{tmp\ 2284}#
(@apply
- (lambda (#{r\ 2285}#)
- (#{id?\ 379}#
- #{r\ 2285}#))
- #{tmp\ 2283}#)
+ (lambda (#{r\ 2286}#)
+ (#{id?\ 380}#
+ #{r\ 2286}#))
+ #{tmp\ 2284}#)
#f)
(@apply
- (lambda (#{r\ 2287}#)
- (#{rest\ 2183}#
- #{r\ 2287}#
- #{req\ 2236}#
- (reverse #{ropt\ 2237}#)
+ (lambda (#{r\ 2288}#)
+ (#{rest\ 2184}#
+ #{r\ 2288}#
+ #{req\ 2237}#
+ (reverse #{ropt\ 2238}#)
'()))
- #{tmp\ 2283}#)
- (let ((#{else\ 2289}#
- #{tmp\ 2241}#))
+ #{tmp\ 2284}#)
+ (let ((#{else\ 2290}#
+ #{tmp\ 2242}#))
(syntax-violation
'lambda*
"invalid optional argument
list"
- #{orig-args\ 2174}#
- #{args\
2235}#)))))))))))))))))
- (#{key\ 2181}#
- (lambda (#{args\ 2290}#
- #{req\ 2291}#
- #{opt\ 2292}#
- #{rkey\ 2293}#)
- (let ((#{tmp\ 2298}# #{args\ 2290}#))
- (let ((#{tmp\ 2299}#
- ($sc-dispatch #{tmp\ 2298}# (quote ()))))
- (if #{tmp\ 2299}#
+ #{orig-args\ 2175}#
+ #{args\
2236}#)))))))))))))))))
+ (#{key\ 2182}#
+ (lambda (#{args\ 2291}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
+ #{rkey\ 2294}#)
+ (let ((#{tmp\ 2299}# #{args\ 2291}#))
+ (let ((#{tmp\ 2300}#
+ ($sc-dispatch #{tmp\ 2299}# (quote ()))))
+ (if #{tmp\ 2300}#
(@apply
(lambda ()
- (#{check\ 2185}#
- #{req\ 2291}#
- #{opt\ 2292}#
+ (#{check\ 2186}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
#f
- (cons #f (reverse #{rkey\ 2293}#))))
- #{tmp\ 2299}#)
- (let ((#{tmp\ 2300}#
+ (cons #f (reverse #{rkey\ 2294}#))))
+ #{tmp\ 2300}#)
+ (let ((#{tmp\ 2301}#
($sc-dispatch
- #{tmp\ 2298}#
+ #{tmp\ 2299}#
'(any . any))))
- (if (if #{tmp\ 2300}#
+ (if (if #{tmp\ 2301}#
(@apply
- (lambda (#{a\ 2303}# #{b\ 2304}#)
- (#{id?\ 379}# #{a\ 2303}#))
- #{tmp\ 2300}#)
+ (lambda (#{a\ 2304}# #{b\ 2305}#)
+ (#{id?\ 380}# #{a\ 2304}#))
+ #{tmp\ 2301}#)
#f)
(@apply
- (lambda (#{a\ 2307}# #{b\ 2308}#)
- (let ((#{tmp\ 2310}#
+ (lambda (#{a\ 2308}# #{b\ 2309}#)
+ (let ((#{tmp\ 2311}#
(symbol->keyword
- (syntax->datum #{a\ 2307}#))))
- (let ((#{k\ 2312}# #{tmp\ 2310}#))
- (#{key\ 2181}#
- #{b\ 2308}#
- #{req\ 2291}#
- #{opt\ 2292}#
- (cons (cons #{k\ 2312}#
- (cons #{a\ 2307}#
+ (syntax->datum #{a\ 2308}#))))
+ (let ((#{k\ 2313}# #{tmp\ 2311}#))
+ (#{key\ 2182}#
+ #{b\ 2309}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
+ (cons (cons #{k\ 2313}#
+ (cons #{a\ 2308}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i2311"))
+ #("i2312"))
#(ribcage
#(a b)
#((top) (top))
- #("i2305"
- "i2306"))
+ #("i2306"
+ "i2307"))
#(ribcage
()
()
@@ -7752,10 +7752,10 @@
(top)
(top)
(top))
- #("i2294"
- "i2295"
+ #("i2295"
"i2296"
- "i2297"))
+ "i2297"
+ "i2298"))
#(ribcage
(check rest
key
@@ -7766,15 +7766,15 @@
(top)
(top)
(top))
- ("i2184"
- "i2182"
- "i2180"
- "i2178"
- "i2176"))
+ ("i2185"
+ "i2183"
+ "i2181"
+ "i2179"
+ "i2177"))
#(ribcage
#(orig-args)
#((top))
- #("i2175"))
+ #("i2176"))
#(ribcage
(lambda-var-list
gen-var
@@ -8050,143 +8050,143 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -8196,2073 +8196,2073 @@
(top)
(top)
(top))
- ("i38"
+ ("i39"
+ "i38"
"i37"
- "i36"
- "i34")))
+ "i35")))
(hygiene
guile)))))
- #{rkey\ 2293}#)))))
- #{tmp\ 2300}#)
- (let ((#{tmp\ 2313}#
+ #{rkey\ 2294}#)))))
+ #{tmp\ 2301}#)
+ (let ((#{tmp\ 2314}#
($sc-dispatch
- #{tmp\ 2298}#
+ #{tmp\ 2299}#
'((any any) . any))))
- (if (if #{tmp\ 2313}#
+ (if (if #{tmp\ 2314}#
(@apply
- (lambda (#{a\ 2317}#
- #{init\ 2318}#
- #{b\ 2319}#)
- (#{id?\ 379}# #{a\ 2317}#))
- #{tmp\ 2313}#)
+ (lambda (#{a\ 2318}#
+ #{init\ 2319}#
+ #{b\ 2320}#)
+ (#{id?\ 380}# #{a\ 2318}#))
+ #{tmp\ 2314}#)
#f)
(@apply
- (lambda (#{a\ 2323}#
- #{init\ 2324}#
- #{b\ 2325}#)
- (let ((#{tmp\ 2327}#
+ (lambda (#{a\ 2324}#
+ #{init\ 2325}#
+ #{b\ 2326}#)
+ (let ((#{tmp\ 2328}#
(symbol->keyword
- (syntax->datum #{a\ 2323}#))))
- (let ((#{k\ 2329}# #{tmp\ 2327}#))
- (#{key\ 2181}#
- #{b\ 2325}#
- #{req\ 2291}#
- #{opt\ 2292}#
- (cons (list #{k\ 2329}#
- #{a\ 2323}#
- #{init\ 2324}#)
- #{rkey\ 2293}#)))))
- #{tmp\ 2313}#)
- (let ((#{tmp\ 2330}#
+ (syntax->datum #{a\ 2324}#))))
+ (let ((#{k\ 2330}# #{tmp\ 2328}#))
+ (#{key\ 2182}#
+ #{b\ 2326}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
+ (cons (list #{k\ 2330}#
+ #{a\ 2324}#
+ #{init\ 2325}#)
+ #{rkey\ 2294}#)))))
+ #{tmp\ 2314}#)
+ (let ((#{tmp\ 2331}#
($sc-dispatch
- #{tmp\ 2298}#
+ #{tmp\ 2299}#
'((any any any) . any))))
- (if (if #{tmp\ 2330}#
+ (if (if #{tmp\ 2331}#
(@apply
- (lambda (#{a\ 2335}#
- #{init\ 2336}#
- #{k\ 2337}#
- #{b\ 2338}#)
- (if (#{id?\ 379}# #{a\ 2335}#)
+ (lambda (#{a\ 2336}#
+ #{init\ 2337}#
+ #{k\ 2338}#
+ #{b\ 2339}#)
+ (if (#{id?\ 380}# #{a\ 2336}#)
(keyword?
- (syntax->datum #{k\ 2337}#))
+ (syntax->datum #{k\ 2338}#))
#f))
- #{tmp\ 2330}#)
+ #{tmp\ 2331}#)
#f)
(@apply
- (lambda (#{a\ 2345}#
- #{init\ 2346}#
- #{k\ 2347}#
- #{b\ 2348}#)
- (#{key\ 2181}#
- #{b\ 2348}#
- #{req\ 2291}#
- #{opt\ 2292}#
- (cons (list #{k\ 2347}#
- #{a\ 2345}#
- #{init\ 2346}#)
- #{rkey\ 2293}#)))
- #{tmp\ 2330}#)
- (let ((#{tmp\ 2349}#
+ (lambda (#{a\ 2346}#
+ #{init\ 2347}#
+ #{k\ 2348}#
+ #{b\ 2349}#)
+ (#{key\ 2182}#
+ #{b\ 2349}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
+ (cons (list #{k\ 2348}#
+ #{a\ 2346}#
+ #{init\ 2347}#)
+ #{rkey\ 2294}#)))
+ #{tmp\ 2331}#)
+ (let ((#{tmp\ 2350}#
($sc-dispatch
- #{tmp\ 2298}#
+ #{tmp\ 2299}#
'(any))))
- (if (if #{tmp\ 2349}#
+ (if (if #{tmp\ 2350}#
(@apply
- (lambda (#{aok\ 2351}#)
+ (lambda (#{aok\ 2352}#)
(eq? (syntax->datum
- #{aok\ 2351}#)
+ #{aok\ 2352}#)
#:allow-other-keys))
- #{tmp\ 2349}#)
+ #{tmp\ 2350}#)
#f)
(@apply
- (lambda (#{aok\ 2353}#)
- (#{check\ 2185}#
- #{req\ 2291}#
- #{opt\ 2292}#
+ (lambda (#{aok\ 2354}#)
+ (#{check\ 2186}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
#f
(cons #t
(reverse
- #{rkey\ 2293}#))))
- #{tmp\ 2349}#)
- (let ((#{tmp\ 2354}#
+ #{rkey\ 2294}#))))
+ #{tmp\ 2350}#)
+ (let ((#{tmp\ 2355}#
($sc-dispatch
- #{tmp\ 2298}#
+ #{tmp\ 2299}#
'(any any any))))
- (if (if #{tmp\ 2354}#
+ (if (if #{tmp\ 2355}#
(@apply
- (lambda (#{aok\ 2358}#
- #{a\ 2359}#
- #{b\ 2360}#)
+ (lambda (#{aok\ 2359}#
+ #{a\ 2360}#
+ #{b\ 2361}#)
(if (eq? (syntax->datum
- #{aok\ 2358}#)
+ #{aok\ 2359}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 2359}#)
+ #{a\ 2360}#)
#:rest)
#f))
- #{tmp\ 2354}#)
+ #{tmp\ 2355}#)
#f)
(@apply
- (lambda (#{aok\ 2366}#
- #{a\ 2367}#
- #{b\ 2368}#)
- (#{rest\ 2183}#
- #{b\ 2368}#
- #{req\ 2291}#
- #{opt\ 2292}#
+ (lambda (#{aok\ 2367}#
+ #{a\ 2368}#
+ #{b\ 2369}#)
+ (#{rest\ 2184}#
+ #{b\ 2369}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
(cons #t
(reverse
- #{rkey\ 2293}#))))
- #{tmp\ 2354}#)
- (let ((#{tmp\ 2369}#
+ #{rkey\ 2294}#))))
+ #{tmp\ 2355}#)
+ (let ((#{tmp\ 2370}#
($sc-dispatch
- #{tmp\ 2298}#
+ #{tmp\ 2299}#
'(any . any))))
- (if (if #{tmp\ 2369}#
+ (if (if #{tmp\ 2370}#
(@apply
- (lambda (#{aok\ 2372}#
- #{r\ 2373}#)
+ (lambda (#{aok\ 2373}#
+ #{r\ 2374}#)
(if (eq?
(syntax->datum
- #{aok\
2372}#)
+ #{aok\
2373}#)
#:allow-other-keys)
- (#{id?\ 379}#
- #{r\ 2373}#)
+ (#{id?\ 380}#
+ #{r\ 2374}#)
#f))
- #{tmp\ 2369}#)
+ #{tmp\ 2370}#)
#f)
(@apply
- (lambda (#{aok\ 2378}#
- #{r\ 2379}#)
- (#{rest\ 2183}#
- #{r\ 2379}#
- #{req\ 2291}#
- #{opt\ 2292}#
+ (lambda (#{aok\ 2379}#
+ #{r\ 2380}#)
+ (#{rest\ 2184}#
+ #{r\ 2380}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
(cons #t
(reverse
- #{rkey\
2293}#))))
- #{tmp\ 2369}#)
- (let ((#{tmp\ 2380}#
+ #{rkey\
2294}#))))
+ #{tmp\ 2370}#)
+ (let ((#{tmp\ 2381}#
($sc-dispatch
- #{tmp\ 2298}#
+ #{tmp\ 2299}#
'(any any))))
- (if (if #{tmp\ 2380}#
+ (if (if #{tmp\ 2381}#
(@apply
- (lambda (#{a\
2383}#
- #{b\
2384}#)
+ (lambda (#{a\
2384}#
+ #{b\
2385}#)
(eq?
(syntax->datum
- #{a\
2383}#)
+ #{a\
2384}#)
#:rest))
- #{tmp\ 2380}#)
+ #{tmp\ 2381}#)
#f)
(@apply
- (lambda (#{a\ 2387}#
- #{b\ 2388}#)
- (#{rest\ 2183}#
- #{b\ 2388}#
- #{req\ 2291}#
- #{opt\ 2292}#
+ (lambda (#{a\ 2388}#
+ #{b\ 2389}#)
+ (#{rest\ 2184}#
+ #{b\ 2389}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
(cons #f
(reverse
- #{rkey\
2293}#))))
- #{tmp\ 2380}#)
- (let ((#{tmp\ 2389}#
- (list #{tmp\
2298}#)))
- (if (if #{tmp\ 2389}#
+ #{rkey\
2294}#))))
+ #{tmp\ 2381}#)
+ (let ((#{tmp\ 2390}#
+ (list #{tmp\
2299}#)))
+ (if (if #{tmp\ 2390}#
(@apply
- (lambda (#{r\
2391}#)
- (#{id?\ 379}#
- #{r\
2391}#))
- #{tmp\ 2389}#)
+ (lambda (#{r\
2392}#)
+ (#{id?\ 380}#
+ #{r\
2392}#))
+ #{tmp\ 2390}#)
#f)
(@apply
- (lambda (#{r\
2393}#)
- (#{rest\ 2183}#
- #{r\ 2393}#
- #{req\ 2291}#
- #{opt\ 2292}#
+ (lambda (#{r\
2394}#)
+ (#{rest\ 2184}#
+ #{r\ 2394}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
(cons #f
(reverse
-
#{rkey\ 2293}#))))
- #{tmp\ 2389}#)
- (let ((#{else\ 2395}#
- #{tmp\
2298}#))
+
#{rkey\ 2294}#))))
+ #{tmp\ 2390}#)
+ (let ((#{else\ 2396}#
+ #{tmp\
2299}#))
(syntax-violation
'lambda*
"invalid keyword
argument list"
- #{orig-args\
2174}#
- #{args\
2290}#)))))))))))))))))))))))
- (#{rest\ 2183}#
- (lambda (#{args\ 2396}#
- #{req\ 2397}#
- #{opt\ 2398}#
- #{kw\ 2399}#)
- (let ((#{tmp\ 2404}# #{args\ 2396}#))
- (let ((#{tmp\ 2405}# (list #{tmp\ 2404}#)))
- (if (if #{tmp\ 2405}#
+ #{orig-args\
2175}#
+ #{args\
2291}#)))))))))))))))))))))))
+ (#{rest\ 2184}#
+ (lambda (#{args\ 2397}#
+ #{req\ 2398}#
+ #{opt\ 2399}#
+ #{kw\ 2400}#)
+ (let ((#{tmp\ 2405}# #{args\ 2397}#))
+ (let ((#{tmp\ 2406}# (list #{tmp\ 2405}#)))
+ (if (if #{tmp\ 2406}#
(@apply
- (lambda (#{r\ 2407}#)
- (#{id?\ 379}# #{r\ 2407}#))
- #{tmp\ 2405}#)
+ (lambda (#{r\ 2408}#)
+ (#{id?\ 380}# #{r\ 2408}#))
+ #{tmp\ 2406}#)
#f)
(@apply
- (lambda (#{r\ 2409}#)
- (#{check\ 2185}#
- #{req\ 2397}#
- #{opt\ 2398}#
- #{r\ 2409}#
- #{kw\ 2399}#))
- #{tmp\ 2405}#)
- (let ((#{else\ 2411}# #{tmp\ 2404}#))
+ (lambda (#{r\ 2410}#)
+ (#{check\ 2186}#
+ #{req\ 2398}#
+ #{opt\ 2399}#
+ #{r\ 2410}#
+ #{kw\ 2400}#))
+ #{tmp\ 2406}#)
+ (let ((#{else\ 2412}# #{tmp\ 2405}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 2174}#
- #{args\ 2396}#)))))))
- (#{check\ 2185}#
- (lambda (#{req\ 2412}#
- #{opt\ 2413}#
- #{rest\ 2414}#
- #{kw\ 2415}#)
- (if (#{distinct-bound-ids?\ 444}#
+ #{orig-args\ 2175}#
+ #{args\ 2397}#)))))))
+ (#{check\ 2186}#
+ (lambda (#{req\ 2413}#
+ #{opt\ 2414}#
+ #{rest\ 2415}#
+ #{kw\ 2416}#)
+ (if (#{distinct-bound-ids?\ 445}#
(append
- #{req\ 2412}#
- (map car #{opt\ 2413}#)
- (if #{rest\ 2414}#
- (list #{rest\ 2414}#)
+ #{req\ 2413}#
+ (map car #{opt\ 2414}#)
+ (if #{rest\ 2415}#
+ (list #{rest\ 2415}#)
'())
- (if (pair? #{kw\ 2415}#)
- (map cadr (cdr #{kw\ 2415}#))
+ (if (pair? #{kw\ 2416}#)
+ (map cadr (cdr #{kw\ 2416}#))
'())))
(values
- #{req\ 2412}#
- #{opt\ 2413}#
- #{rest\ 2414}#
- #{kw\ 2415}#)
+ #{req\ 2413}#
+ #{opt\ 2414}#
+ #{rest\ 2415}#
+ #{kw\ 2416}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 2174}#)))))
+ #{orig-args\ 2175}#)))))
(begin
- (#{req\ 2177}# #{orig-args\ 2174}# (quote ()))))))
- (#{chi-lambda-case\ 488}#
- (lambda (#{e\ 2423}#
- #{r\ 2424}#
- #{w\ 2425}#
- #{s\ 2426}#
- #{mod\ 2427}#
- #{get-formals\ 2428}#
- #{clauses\ 2429}#)
+ (#{req\ 2178}# #{orig-args\ 2175}# (quote ()))))))
+ (#{chi-lambda-case\ 489}#
+ (lambda (#{e\ 2424}#
+ #{r\ 2425}#
+ #{w\ 2426}#
+ #{s\ 2427}#
+ #{mod\ 2428}#
+ #{get-formals\ 2429}#
+ #{clauses\ 2430}#)
(letrec*
- ((#{expand-req\ 2438}#
- (lambda (#{req\ 2445}#
- #{opt\ 2446}#
- #{rest\ 2447}#
- #{kw\ 2448}#
- #{body\ 2449}#)
+ ((#{expand-req\ 2439}#
+ (lambda (#{req\ 2446}#
+ #{opt\ 2447}#
+ #{rest\ 2448}#
+ #{kw\ 2449}#
+ #{body\ 2450}#)
(begin
- (let ((#{vars\ 2457}#
- (map #{gen-var\ 492}# #{req\ 2445}#))
- (#{labels\ 2458}#
- (#{gen-labels\ 397}# #{req\ 2445}#)))
+ (let ((#{vars\ 2458}#
+ (map #{gen-var\ 493}# #{req\ 2446}#))
+ (#{labels\ 2459}#
+ (#{gen-labels\ 398}# #{req\ 2446}#)))
(begin
- (let ((#{r*\ 2461}#
- (#{extend-var-env\ 369}#
- #{labels\ 2458}#
- #{vars\ 2457}#
- #{r\ 2424}#))
- (#{w*\ 2462}#
- (#{make-binding-wrap\ 426}#
- #{req\ 2445}#
- #{labels\ 2458}#
- #{w\ 2425}#)))
- (#{expand-opt\ 2440}#
- (map syntax->datum #{req\ 2445}#)
- #{opt\ 2446}#
- #{rest\ 2447}#
- #{kw\ 2448}#
- #{body\ 2449}#
- (reverse #{vars\ 2457}#)
- #{r*\ 2461}#
- #{w*\ 2462}#
+ (let ((#{r*\ 2462}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 2459}#
+ #{vars\ 2458}#
+ #{r\ 2425}#))
+ (#{w*\ 2463}#
+ (#{make-binding-wrap\ 427}#
+ #{req\ 2446}#
+ #{labels\ 2459}#
+ #{w\ 2426}#)))
+ (#{expand-opt\ 2441}#
+ (map syntax->datum #{req\ 2446}#)
+ #{opt\ 2447}#
+ #{rest\ 2448}#
+ #{kw\ 2449}#
+ #{body\ 2450}#
+ (reverse #{vars\ 2458}#)
+ #{r*\ 2462}#
+ #{w*\ 2463}#
'()
'())))))))
- (#{expand-opt\ 2440}#
- (lambda (#{req\ 2463}#
- #{opt\ 2464}#
- #{rest\ 2465}#
- #{kw\ 2466}#
- #{body\ 2467}#
- #{vars\ 2468}#
- #{r*\ 2469}#
- #{w*\ 2470}#
- #{out\ 2471}#
- #{inits\ 2472}#)
- (if (pair? #{opt\ 2464}#)
- (let ((#{tmp\ 2485}# (car #{opt\ 2464}#)))
- (let ((#{tmp\ 2486}#
+ (#{expand-opt\ 2441}#
+ (lambda (#{req\ 2464}#
+ #{opt\ 2465}#
+ #{rest\ 2466}#
+ #{kw\ 2467}#
+ #{body\ 2468}#
+ #{vars\ 2469}#
+ #{r*\ 2470}#
+ #{w*\ 2471}#
+ #{out\ 2472}#
+ #{inits\ 2473}#)
+ (if (pair? #{opt\ 2465}#)
+ (let ((#{tmp\ 2486}# (car #{opt\ 2465}#)))
+ (let ((#{tmp\ 2487}#
($sc-dispatch
- #{tmp\ 2485}#
+ #{tmp\ 2486}#
'(any any))))
- (if #{tmp\ 2486}#
+ (if #{tmp\ 2487}#
(@apply
- (lambda (#{id\ 2489}# #{i\ 2490}#)
+ (lambda (#{id\ 2490}# #{i\ 2491}#)
(begin
- (let ((#{v\ 2493}#
- (#{gen-var\ 492}# #{id\ 2489}#)))
+ (let ((#{v\ 2494}#
+ (#{gen-var\ 493}# #{id\ 2490}#)))
(begin
- (let ((#{l\ 2495}#
- (#{gen-labels\ 397}#
- (list #{v\ 2493}#))))
+ (let ((#{l\ 2496}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2494}#))))
(begin
- (let ((#{r**\ 2497}#
- (#{extend-var-env\ 369}#
- #{l\ 2495}#
- (list #{v\ 2493}#)
- #{r*\ 2469}#)))
+ (let ((#{r**\ 2498}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2496}#
+ (list #{v\ 2494}#)
+ #{r*\ 2470}#)))
(begin
- (let ((#{w**\ 2499}#
- (#{make-binding-wrap\
426}#
- (list #{id\ 2489}#)
- #{l\ 2495}#
- #{w*\ 2470}#)))
- (#{expand-opt\ 2440}#
- #{req\ 2463}#
- (cdr #{opt\ 2464}#)
- #{rest\ 2465}#
- #{kw\ 2466}#
- #{body\ 2467}#
- (cons #{v\ 2493}#
- #{vars\ 2468}#)
- #{r**\ 2497}#
- #{w**\ 2499}#
+ (let ((#{w**\ 2500}#
+ (#{make-binding-wrap\
427}#
+ (list #{id\ 2490}#)
+ #{l\ 2496}#
+ #{w*\ 2471}#)))
+ (#{expand-opt\ 2441}#
+ #{req\ 2464}#
+ (cdr #{opt\ 2465}#)
+ #{rest\ 2466}#
+ #{kw\ 2467}#
+ #{body\ 2468}#
+ (cons #{v\ 2494}#
+ #{vars\ 2469}#)
+ #{r**\ 2498}#
+ #{w**\ 2500}#
(cons (syntax->datum
- #{id\ 2489}#)
- #{out\ 2471}#)
- (cons (#{chi\ 464}#
- #{i\ 2490}#
- #{r*\ 2469}#
- #{w*\ 2470}#
- #{mod\ 2427}#)
- #{inits\
2472}#)))))))))))
- #{tmp\ 2486}#)
+ #{id\ 2490}#)
+ #{out\ 2472}#)
+ (cons (#{chi\ 465}#
+ #{i\ 2491}#
+ #{r*\ 2470}#
+ #{w*\ 2471}#
+ #{mod\ 2428}#)
+ #{inits\
2473}#)))))))))))
+ #{tmp\ 2487}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2485}#))))
- (if #{rest\ 2465}#
+ #{tmp\ 2486}#))))
+ (if #{rest\ 2466}#
(begin
- (let ((#{v\ 2504}#
- (#{gen-var\ 492}# #{rest\ 2465}#)))
+ (let ((#{v\ 2505}#
+ (#{gen-var\ 493}# #{rest\ 2466}#)))
(begin
- (let ((#{l\ 2506}#
- (#{gen-labels\ 397}#
- (list #{v\ 2504}#))))
+ (let ((#{l\ 2507}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2505}#))))
(begin
- (let ((#{r*\ 2508}#
- (#{extend-var-env\ 369}#
- #{l\ 2506}#
- (list #{v\ 2504}#)
- #{r*\ 2469}#)))
+ (let ((#{r*\ 2509}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2507}#
+ (list #{v\ 2505}#)
+ #{r*\ 2470}#)))
(begin
- (let ((#{w*\ 2510}#
- (#{make-binding-wrap\ 426}#
- (list #{rest\ 2465}#)
- #{l\ 2506}#
- #{w*\ 2470}#)))
- (#{expand-kw\ 2442}#
- #{req\ 2463}#
- (if (pair? #{out\ 2471}#)
- (reverse #{out\ 2471}#)
+ (let ((#{w*\ 2511}#
+ (#{make-binding-wrap\ 427}#
+ (list #{rest\ 2466}#)
+ #{l\ 2507}#
+ #{w*\ 2471}#)))
+ (#{expand-kw\ 2443}#
+ #{req\ 2464}#
+ (if (pair? #{out\ 2472}#)
+ (reverse #{out\ 2472}#)
#f)
- (syntax->datum #{rest\ 2465}#)
- (if (pair? #{kw\ 2466}#)
- (cdr #{kw\ 2466}#)
- #{kw\ 2466}#)
- #{body\ 2467}#
- (cons #{v\ 2504}# #{vars\ 2468}#)
- #{r*\ 2508}#
- #{w*\ 2510}#
- (if (pair? #{kw\ 2466}#)
- (car #{kw\ 2466}#)
+ (syntax->datum #{rest\ 2466}#)
+ (if (pair? #{kw\ 2467}#)
+ (cdr #{kw\ 2467}#)
+ #{kw\ 2467}#)
+ #{body\ 2468}#
+ (cons #{v\ 2505}# #{vars\ 2469}#)
+ #{r*\ 2509}#
+ #{w*\ 2511}#
+ (if (pair? #{kw\ 2467}#)
+ (car #{kw\ 2467}#)
#f)
'()
- #{inits\ 2472}#)))))))))
- (#{expand-kw\ 2442}#
- #{req\ 2463}#
- (if (pair? #{out\ 2471}#)
- (reverse #{out\ 2471}#)
+ #{inits\ 2473}#)))))))))
+ (#{expand-kw\ 2443}#
+ #{req\ 2464}#
+ (if (pair? #{out\ 2472}#)
+ (reverse #{out\ 2472}#)
#f)
#f
- (if (pair? #{kw\ 2466}#)
- (cdr #{kw\ 2466}#)
- #{kw\ 2466}#)
- #{body\ 2467}#
- #{vars\ 2468}#
- #{r*\ 2469}#
- #{w*\ 2470}#
- (if (pair? #{kw\ 2466}#) (car #{kw\ 2466}#) #f)
+ (if (pair? #{kw\ 2467}#)
+ (cdr #{kw\ 2467}#)
+ #{kw\ 2467}#)
+ #{body\ 2468}#
+ #{vars\ 2469}#
+ #{r*\ 2470}#
+ #{w*\ 2471}#
+ (if (pair? #{kw\ 2467}#) (car #{kw\ 2467}#) #f)
'()
- #{inits\ 2472}#)))))
- (#{expand-kw\ 2442}#
- (lambda (#{req\ 2512}#
- #{opt\ 2513}#
- #{rest\ 2514}#
- #{kw\ 2515}#
- #{body\ 2516}#
- #{vars\ 2517}#
- #{r*\ 2518}#
- #{w*\ 2519}#
- #{aok\ 2520}#
- #{out\ 2521}#
- #{inits\ 2522}#)
- (if (pair? #{kw\ 2515}#)
- (let ((#{tmp\ 2536}# (car #{kw\ 2515}#)))
- (let ((#{tmp\ 2537}#
+ #{inits\ 2473}#)))))
+ (#{expand-kw\ 2443}#
+ (lambda (#{req\ 2513}#
+ #{opt\ 2514}#
+ #{rest\ 2515}#
+ #{kw\ 2516}#
+ #{body\ 2517}#
+ #{vars\ 2518}#
+ #{r*\ 2519}#
+ #{w*\ 2520}#
+ #{aok\ 2521}#
+ #{out\ 2522}#
+ #{inits\ 2523}#)
+ (if (pair? #{kw\ 2516}#)
+ (let ((#{tmp\ 2537}# (car #{kw\ 2516}#)))
+ (let ((#{tmp\ 2538}#
($sc-dispatch
- #{tmp\ 2536}#
+ #{tmp\ 2537}#
'(any any any))))
- (if #{tmp\ 2537}#
+ (if #{tmp\ 2538}#
(@apply
- (lambda (#{k\ 2541}# #{id\ 2542}# #{i\ 2543}#)
+ (lambda (#{k\ 2542}# #{id\ 2543}# #{i\ 2544}#)
(begin
- (let ((#{v\ 2546}#
- (#{gen-var\ 492}# #{id\ 2542}#)))
+ (let ((#{v\ 2547}#
+ (#{gen-var\ 493}# #{id\ 2543}#)))
(begin
- (let ((#{l\ 2548}#
- (#{gen-labels\ 397}#
- (list #{v\ 2546}#))))
+ (let ((#{l\ 2549}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2547}#))))
(begin
- (let ((#{r**\ 2550}#
- (#{extend-var-env\ 369}#
- #{l\ 2548}#
- (list #{v\ 2546}#)
- #{r*\ 2518}#)))
+ (let ((#{r**\ 2551}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2549}#
+ (list #{v\ 2547}#)
+ #{r*\ 2519}#)))
(begin
- (let ((#{w**\ 2552}#
- (#{make-binding-wrap\
426}#
- (list #{id\ 2542}#)
- #{l\ 2548}#
- #{w*\ 2519}#)))
- (#{expand-kw\ 2442}#
- #{req\ 2512}#
- #{opt\ 2513}#
- #{rest\ 2514}#
- (cdr #{kw\ 2515}#)
- #{body\ 2516}#
- (cons #{v\ 2546}#
- #{vars\ 2517}#)
- #{r**\ 2550}#
- #{w**\ 2552}#
- #{aok\ 2520}#
+ (let ((#{w**\ 2553}#
+ (#{make-binding-wrap\
427}#
+ (list #{id\ 2543}#)
+ #{l\ 2549}#
+ #{w*\ 2520}#)))
+ (#{expand-kw\ 2443}#
+ #{req\ 2513}#
+ #{opt\ 2514}#
+ #{rest\ 2515}#
+ (cdr #{kw\ 2516}#)
+ #{body\ 2517}#
+ (cons #{v\ 2547}#
+ #{vars\ 2518}#)
+ #{r**\ 2551}#
+ #{w**\ 2553}#
+ #{aok\ 2521}#
(cons (list (syntax->datum
- #{k\ 2541}#)
+ #{k\ 2542}#)
(syntax->datum
- #{id\ 2542}#)
- #{v\ 2546}#)
- #{out\ 2521}#)
- (cons (#{chi\ 464}#
- #{i\ 2543}#
- #{r*\ 2518}#
- #{w*\ 2519}#
- #{mod\ 2427}#)
- #{inits\
2522}#)))))))))))
- #{tmp\ 2537}#)
+ #{id\ 2543}#)
+ #{v\ 2547}#)
+ #{out\ 2522}#)
+ (cons (#{chi\ 465}#
+ #{i\ 2544}#
+ #{r*\ 2519}#
+ #{w*\ 2520}#
+ #{mod\ 2428}#)
+ #{inits\
2523}#)))))))))))
+ #{tmp\ 2538}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2536}#))))
- (#{expand-body\ 2444}#
- #{req\ 2512}#
- #{opt\ 2513}#
- #{rest\ 2514}#
+ #{tmp\ 2537}#))))
+ (#{expand-body\ 2445}#
+ #{req\ 2513}#
+ #{opt\ 2514}#
+ #{rest\ 2515}#
(if (begin
- (let ((#{t\ 2556}# #{aok\ 2520}#))
- (if #{t\ 2556}#
- #{t\ 2556}#
- (pair? #{out\ 2521}#))))
- (cons #{aok\ 2520}# (reverse #{out\ 2521}#))
+ (let ((#{t\ 2557}# #{aok\ 2521}#))
+ (if #{t\ 2557}#
+ #{t\ 2557}#
+ (pair? #{out\ 2522}#))))
+ (cons #{aok\ 2521}# (reverse #{out\ 2522}#))
#f)
- #{body\ 2516}#
- (reverse #{vars\ 2517}#)
- #{r*\ 2518}#
- #{w*\ 2519}#
- (reverse #{inits\ 2522}#)
+ #{body\ 2517}#
+ (reverse #{vars\ 2518}#)
+ #{r*\ 2519}#
+ #{w*\ 2520}#
+ (reverse #{inits\ 2523}#)
'()))))
- (#{expand-body\ 2444}#
- (lambda (#{req\ 2558}#
- #{opt\ 2559}#
- #{rest\ 2560}#
- #{kw\ 2561}#
- #{body\ 2562}#
- #{vars\ 2563}#
- #{r*\ 2564}#
- #{w*\ 2565}#
- #{inits\ 2566}#
- #{meta\ 2567}#)
- (let ((#{tmp\ 2578}# #{body\ 2562}#))
- (let ((#{tmp\ 2579}#
+ (#{expand-body\ 2445}#
+ (lambda (#{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ #{body\ 2563}#
+ #{vars\ 2564}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{inits\ 2567}#
+ #{meta\ 2568}#)
+ (let ((#{tmp\ 2579}# #{body\ 2563}#))
+ (let ((#{tmp\ 2580}#
($sc-dispatch
- #{tmp\ 2578}#
+ #{tmp\ 2579}#
'(any any . each-any))))
- (if (if #{tmp\ 2579}#
+ (if (if #{tmp\ 2580}#
(@apply
- (lambda (#{docstring\ 2583}#
- #{e1\ 2584}#
- #{e2\ 2585}#)
+ (lambda (#{docstring\ 2584}#
+ #{e1\ 2585}#
+ #{e2\ 2586}#)
(string?
- (syntax->datum #{docstring\ 2583}#)))
- #{tmp\ 2579}#)
+ (syntax->datum #{docstring\ 2584}#)))
+ #{tmp\ 2580}#)
#f)
(@apply
- (lambda (#{docstring\ 2589}#
- #{e1\ 2590}#
- #{e2\ 2591}#)
- (#{expand-body\ 2444}#
- #{req\ 2558}#
- #{opt\ 2559}#
- #{rest\ 2560}#
- #{kw\ 2561}#
- (cons #{e1\ 2590}# #{e2\ 2591}#)
- #{vars\ 2563}#
- #{r*\ 2564}#
- #{w*\ 2565}#
- #{inits\ 2566}#
+ (lambda (#{docstring\ 2590}#
+ #{e1\ 2591}#
+ #{e2\ 2592}#)
+ (#{expand-body\ 2445}#
+ #{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ (cons #{e1\ 2591}# #{e2\ 2592}#)
+ #{vars\ 2564}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{inits\ 2567}#
(append
- #{meta\ 2567}#
+ #{meta\ 2568}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 2589}#))))))
- #{tmp\ 2579}#)
- (let ((#{tmp\ 2594}#
+ #{docstring\ 2590}#))))))
+ #{tmp\ 2580}#)
+ (let ((#{tmp\ 2595}#
($sc-dispatch
- #{tmp\ 2578}#
+ #{tmp\ 2579}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 2594}#
+ (if #{tmp\ 2595}#
(@apply
- (lambda (#{k\ 2599}#
- #{v\ 2600}#
- #{e1\ 2601}#
- #{e2\ 2602}#)
- (#{expand-body\ 2444}#
- #{req\ 2558}#
- #{opt\ 2559}#
- #{rest\ 2560}#
- #{kw\ 2561}#
- (cons #{e1\ 2601}# #{e2\ 2602}#)
- #{vars\ 2563}#
- #{r*\ 2564}#
- #{w*\ 2565}#
- #{inits\ 2566}#
+ (lambda (#{k\ 2600}#
+ #{v\ 2601}#
+ #{e1\ 2602}#
+ #{e2\ 2603}#)
+ (#{expand-body\ 2445}#
+ #{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ (cons #{e1\ 2602}# #{e2\ 2603}#)
+ #{vars\ 2564}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{inits\ 2567}#
(append
- #{meta\ 2567}#
+ #{meta\ 2568}#
(syntax->datum
- (map cons #{k\ 2599}# #{v\ 2600}#)))))
- #{tmp\ 2594}#)
- (let ((#{tmp\ 2606}#
+ (map cons #{k\ 2600}# #{v\ 2601}#)))))
+ #{tmp\ 2595}#)
+ (let ((#{tmp\ 2607}#
($sc-dispatch
- #{tmp\ 2578}#
+ #{tmp\ 2579}#
'(any . each-any))))
- (if #{tmp\ 2606}#
+ (if #{tmp\ 2607}#
(@apply
- (lambda (#{e1\ 2609}# #{e2\ 2610}#)
+ (lambda (#{e1\ 2610}# #{e2\ 2611}#)
(values
- #{meta\ 2567}#
- #{req\ 2558}#
- #{opt\ 2559}#
- #{rest\ 2560}#
- #{kw\ 2561}#
- #{inits\ 2566}#
- #{vars\ 2563}#
- (#{chi-body\ 472}#
- (cons #{e1\ 2609}# #{e2\ 2610}#)
- (#{source-wrap\ 450}#
- #{e\ 2423}#
- #{w\ 2425}#
- #{s\ 2426}#
- #{mod\ 2427}#)
- #{r*\ 2564}#
- #{w*\ 2565}#
- #{mod\ 2427}#)))
- #{tmp\ 2606}#)
+ #{meta\ 2568}#
+ #{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ #{inits\ 2567}#
+ #{vars\ 2564}#
+ (#{chi-body\ 473}#
+ (cons #{e1\ 2610}# #{e2\ 2611}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2424}#
+ #{w\ 2426}#
+ #{s\ 2427}#
+ #{mod\ 2428}#)
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{mod\ 2428}#)))
+ #{tmp\ 2607}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 2578}#)))))))))))
+ #{tmp\ 2579}#)))))))))))
(begin
- (let ((#{tmp\ 2612}# #{clauses\ 2429}#))
- (let ((#{tmp\ 2613}#
- ($sc-dispatch #{tmp\ 2612}# (quote ()))))
- (if #{tmp\ 2613}#
+ (let ((#{tmp\ 2613}# #{clauses\ 2430}#))
+ (let ((#{tmp\ 2614}#
+ ($sc-dispatch #{tmp\ 2613}# (quote ()))))
+ (if #{tmp\ 2614}#
(@apply
(lambda () (values (quote ()) #f))
- #{tmp\ 2613}#)
- (let ((#{tmp\ 2614}#
+ #{tmp\ 2614}#)
+ (let ((#{tmp\ 2615}#
($sc-dispatch
- #{tmp\ 2612}#
+ #{tmp\ 2613}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 2614}#
+ (if #{tmp\ 2615}#
(@apply
- (lambda (#{args\ 2621}#
- #{e1\ 2622}#
- #{e2\ 2623}#
- #{args*\ 2624}#
- #{e1*\ 2625}#
- #{e2*\ 2626}#)
+ (lambda (#{args\ 2622}#
+ #{e1\ 2623}#
+ #{e2\ 2624}#
+ #{args*\ 2625}#
+ #{e1*\ 2626}#
+ #{e2*\ 2627}#)
(call-with-values
(lambda ()
- (#{get-formals\ 2428}# #{args\ 2621}#))
- (lambda (#{req\ 2627}#
- #{opt\ 2628}#
- #{rest\ 2629}#
- #{kw\ 2630}#)
+ (#{get-formals\ 2429}# #{args\ 2622}#))
+ (lambda (#{req\ 2628}#
+ #{opt\ 2629}#
+ #{rest\ 2630}#
+ #{kw\ 2631}#)
(call-with-values
(lambda ()
- (#{expand-req\ 2438}#
- #{req\ 2627}#
- #{opt\ 2628}#
- #{rest\ 2629}#
- #{kw\ 2630}#
- (cons #{e1\ 2622}# #{e2\ 2623}#)))
- (lambda (#{meta\ 2636}#
- #{req\ 2637}#
- #{opt\ 2638}#
- #{rest\ 2639}#
- #{kw\ 2640}#
- #{inits\ 2641}#
- #{vars\ 2642}#
- #{body\ 2643}#)
+ (#{expand-req\ 2439}#
+ #{req\ 2628}#
+ #{opt\ 2629}#
+ #{rest\ 2630}#
+ #{kw\ 2631}#
+ (cons #{e1\ 2623}# #{e2\ 2624}#)))
+ (lambda (#{meta\ 2637}#
+ #{req\ 2638}#
+ #{opt\ 2639}#
+ #{rest\ 2640}#
+ #{kw\ 2641}#
+ #{inits\ 2642}#
+ #{vars\ 2643}#
+ #{body\ 2644}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 488}#
- #{e\ 2423}#
- #{r\ 2424}#
- #{w\ 2425}#
- #{s\ 2426}#
- #{mod\ 2427}#
- #{get-formals\ 2428}#
- (map (lambda (#{tmp\ 2654}#
- #{tmp\ 2653}#
- #{tmp\ 2652}#)
- (cons #{tmp\ 2652}#
- (cons #{tmp\ 2653}#
- #{tmp\
2654}#)))
- #{e2*\ 2626}#
- #{e1*\ 2625}#
- #{args*\ 2624}#)))
- (lambda (#{meta*\ 2656}#
- #{else*\ 2657}#)
+ (#{chi-lambda-case\ 489}#
+ #{e\ 2424}#
+ #{r\ 2425}#
+ #{w\ 2426}#
+ #{s\ 2427}#
+ #{mod\ 2428}#
+ #{get-formals\ 2429}#
+ (map (lambda (#{tmp\ 2655}#
+ #{tmp\ 2654}#
+ #{tmp\ 2653}#)
+ (cons #{tmp\ 2653}#
+ (cons #{tmp\ 2654}#
+ #{tmp\
2655}#)))
+ #{e2*\ 2627}#
+ #{e1*\ 2626}#
+ #{args*\ 2625}#)))
+ (lambda (#{meta*\ 2657}#
+ #{else*\ 2658}#)
(values
(append
- #{meta\ 2636}#
- #{meta*\ 2656}#)
- (#{build-lambda-case\ 325}#
- #{s\ 2426}#
- #{req\ 2637}#
- #{opt\ 2638}#
- #{rest\ 2639}#
- #{kw\ 2640}#
- #{inits\ 2641}#
- #{vars\ 2642}#
- #{body\ 2643}#
- #{else*\ 2657}#)))))))))
- #{tmp\ 2614}#)
+ #{meta\ 2637}#
+ #{meta*\ 2657}#)
+ (#{build-lambda-case\ 326}#
+ #{s\ 2427}#
+ #{req\ 2638}#
+ #{opt\ 2639}#
+ #{rest\ 2640}#
+ #{kw\ 2641}#
+ #{inits\ 2642}#
+ #{vars\ 2643}#
+ #{body\ 2644}#
+ #{else*\ 2658}#)))))))))
+ #{tmp\ 2615}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2612}#))))))))))
- (#{strip\ 490}#
- (lambda (#{x\ 2660}# #{w\ 2661}#)
+ #{tmp\ 2613}#))))))))))
+ (#{strip\ 491}#
+ (lambda (#{x\ 2661}# #{w\ 2662}#)
(if (memq 'top
- (#{wrap-marks\ 386}# #{w\ 2661}#))
- #{x\ 2660}#
+ (#{wrap-marks\ 387}# #{w\ 2662}#))
+ #{x\ 2661}#
(letrec*
- ((#{f\ 2667}#
- (lambda (#{x\ 2668}#)
- (if (#{syntax-object?\ 343}# #{x\ 2668}#)
- (#{strip\ 490}#
- (#{syntax-object-expression\ 345}# #{x\ 2668}#)
- (#{syntax-object-wrap\ 347}# #{x\ 2668}#))
- (if (pair? #{x\ 2668}#)
+ ((#{f\ 2668}#
+ (lambda (#{x\ 2669}#)
+ (if (#{syntax-object?\ 344}# #{x\ 2669}#)
+ (#{strip\ 491}#
+ (#{syntax-object-expression\ 346}# #{x\ 2669}#)
+ (#{syntax-object-wrap\ 348}# #{x\ 2669}#))
+ (if (pair? #{x\ 2669}#)
(begin
- (let ((#{a\ 2675}# (#{f\ 2667}# (car #{x\ 2668}#)))
- (#{d\ 2676}#
- (#{f\ 2667}# (cdr #{x\ 2668}#))))
- (if (if (eq? #{a\ 2675}# (car #{x\ 2668}#))
- (eq? #{d\ 2676}# (cdr #{x\ 2668}#))
+ (let ((#{a\ 2676}# (#{f\ 2668}# (car #{x\ 2669}#)))
+ (#{d\ 2677}#
+ (#{f\ 2668}# (cdr #{x\ 2669}#))))
+ (if (if (eq? #{a\ 2676}# (car #{x\ 2669}#))
+ (eq? #{d\ 2677}# (cdr #{x\ 2669}#))
#f)
- #{x\ 2668}#
- (cons #{a\ 2675}# #{d\ 2676}#))))
- (if (vector? #{x\ 2668}#)
+ #{x\ 2669}#
+ (cons #{a\ 2676}# #{d\ 2677}#))))
+ (if (vector? #{x\ 2669}#)
(begin
- (let ((#{old\ 2682}# (vector->list #{x\ 2668}#)))
+ (let ((#{old\ 2683}# (vector->list #{x\ 2669}#)))
(begin
- (let ((#{new\ 2684}#
- (map #{f\ 2667}# #{old\ 2682}#)))
- (if (#{and-map*\ 35}#
+ (let ((#{new\ 2685}#
+ (map #{f\ 2668}# #{old\ 2683}#)))
+ (if (#{and-map*\ 36}#
eq?
- #{old\ 2682}#
- #{new\ 2684}#)
- #{x\ 2668}#
- (list->vector #{new\ 2684}#))))))
- #{x\ 2668}#))))))
- (begin (#{f\ 2667}# #{x\ 2660}#))))))
- (#{gen-var\ 492}#
- (lambda (#{id\ 2686}#)
+ #{old\ 2683}#
+ #{new\ 2685}#)
+ #{x\ 2669}#
+ (list->vector #{new\ 2685}#))))))
+ #{x\ 2669}#))))))
+ (begin (#{f\ 2668}# #{x\ 2661}#))))))
+ (#{gen-var\ 493}#
+ (lambda (#{id\ 2687}#)
(begin
- (let ((#{id\ 2689}#
- (if (#{syntax-object?\ 343}# #{id\ 2686}#)
- (#{syntax-object-expression\ 345}# #{id\ 2686}#)
- #{id\ 2686}#)))
+ (let ((#{id\ 2690}#
+ (if (#{syntax-object?\ 344}# #{id\ 2687}#)
+ (#{syntax-object-expression\ 346}# #{id\ 2687}#)
+ #{id\ 2687}#)))
(gensym
- (string-append (symbol->string #{id\ 2689}#) " "))))))
- (#{lambda-var-list\ 494}#
- (lambda (#{vars\ 2691}#)
+ (string-append (symbol->string #{id\ 2690}#) " "))))))
+ (#{lambda-var-list\ 495}#
+ (lambda (#{vars\ 2692}#)
(letrec*
- ((#{lvl\ 2697}#
- (lambda (#{vars\ 2698}# #{ls\ 2699}# #{w\ 2700}#)
- (if (pair? #{vars\ 2698}#)
- (#{lvl\ 2697}#
- (cdr #{vars\ 2698}#)
- (cons (#{wrap\ 448}#
- (car #{vars\ 2698}#)
- #{w\ 2700}#
+ ((#{lvl\ 2698}#
+ (lambda (#{vars\ 2699}# #{ls\ 2700}# #{w\ 2701}#)
+ (if (pair? #{vars\ 2699}#)
+ (#{lvl\ 2698}#
+ (cdr #{vars\ 2699}#)
+ (cons (#{wrap\ 449}#
+ (car #{vars\ 2699}#)
+ #{w\ 2701}#
#f)
- #{ls\ 2699}#)
- #{w\ 2700}#)
- (if (#{id?\ 379}# #{vars\ 2698}#)
- (cons (#{wrap\ 448}# #{vars\ 2698}# #{w\ 2700}# #f)
- #{ls\ 2699}#)
- (if (null? #{vars\ 2698}#)
- #{ls\ 2699}#
- (if (#{syntax-object?\ 343}# #{vars\ 2698}#)
- (#{lvl\ 2697}#
- (#{syntax-object-expression\ 345}#
- #{vars\ 2698}#)
- #{ls\ 2699}#
- (#{join-wraps\ 430}#
- #{w\ 2700}#
- (#{syntax-object-wrap\ 347}# #{vars\ 2698}#)))
- (cons #{vars\ 2698}# #{ls\ 2699}#))))))))
+ #{ls\ 2700}#)
+ #{w\ 2701}#)
+ (if (#{id?\ 380}# #{vars\ 2699}#)
+ (cons (#{wrap\ 449}# #{vars\ 2699}# #{w\ 2701}# #f)
+ #{ls\ 2700}#)
+ (if (null? #{vars\ 2699}#)
+ #{ls\ 2700}#
+ (if (#{syntax-object?\ 344}# #{vars\ 2699}#)
+ (#{lvl\ 2698}#
+ (#{syntax-object-expression\ 346}#
+ #{vars\ 2699}#)
+ #{ls\ 2700}#
+ (#{join-wraps\ 431}#
+ #{w\ 2701}#
+ (#{syntax-object-wrap\ 348}# #{vars\ 2699}#)))
+ (cons #{vars\ 2699}# #{ls\ 2700}#))))))))
(begin
- (#{lvl\ 2697}#
- #{vars\ 2691}#
+ (#{lvl\ 2698}#
+ #{vars\ 2692}#
'()
'(())))))))
(begin
- (set! #{make-primitive-ref\ 241}#
- (lambda (#{src\ 703}# #{name\ 704}#)
+ (set! #{make-primitive-ref\ 242}#
+ (lambda (#{src\ 704}# #{name\ 705}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src\ 703}#
- #{name\ 704}#)))
- (set! #{fx+\ 280}# +)
- (set! #{fx-\ 282}# -)
- (set! #{fx=\ 284}# =)
- (set! #{fx<\ 286}# <)
- (set! #{set-syntax-object-expression!\ 351}#
- (lambda (#{x\ 1081}# #{update\ 1082}#)
- (vector-set! #{x\ 1081}# 1 #{update\ 1082}#)))
- (set! #{set-syntax-object-wrap!\ 353}#
- (lambda (#{x\ 1085}# #{update\ 1086}#)
- (vector-set! #{x\ 1085}# 2 #{update\ 1086}#)))
- (set! #{set-syntax-object-module!\ 355}#
- (lambda (#{x\ 1089}# #{update\ 1090}#)
- (vector-set! #{x\ 1089}# 3 #{update\ 1090}#)))
- (set! #{binding-type\ 362}# car)
- (set! #{binding-value\ 364}# cdr)
- (set! #{make-wrap\ 384}# cons)
- (set! #{wrap-marks\ 386}# car)
- (set! #{wrap-subst\ 388}# cdr)
- (set! #{ribcage?\ 402}#
- (lambda (#{x\ 1167}#)
- (if (vector? #{x\ 1167}#)
- (if (= (vector-length #{x\ 1167}#) 4)
- (eq? (vector-ref #{x\ 1167}# 0) (quote ribcage))
+ #{src\ 704}#
+ #{name\ 705}#)))
+ (set! #{fx+\ 281}# +)
+ (set! #{fx-\ 283}# -)
+ (set! #{fx=\ 285}# =)
+ (set! #{fx<\ 287}# <)
+ (set! #{set-syntax-object-expression!\ 352}#
+ (lambda (#{x\ 1082}# #{update\ 1083}#)
+ (vector-set! #{x\ 1082}# 1 #{update\ 1083}#)))
+ (set! #{set-syntax-object-wrap!\ 354}#
+ (lambda (#{x\ 1086}# #{update\ 1087}#)
+ (vector-set! #{x\ 1086}# 2 #{update\ 1087}#)))
+ (set! #{set-syntax-object-module!\ 356}#
+ (lambda (#{x\ 1090}# #{update\ 1091}#)
+ (vector-set! #{x\ 1090}# 3 #{update\ 1091}#)))
+ (set! #{binding-type\ 363}# car)
+ (set! #{binding-value\ 365}# cdr)
+ (set! #{make-wrap\ 385}# cons)
+ (set! #{wrap-marks\ 387}# car)
+ (set! #{wrap-subst\ 389}# cdr)
+ (set! #{ribcage?\ 403}#
+ (lambda (#{x\ 1168}#)
+ (if (vector? #{x\ 1168}#)
+ (if (= (vector-length #{x\ 1168}#) 4)
+ (eq? (vector-ref #{x\ 1168}# 0) (quote ribcage))
#f)
#f)))
(begin
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2711}#
- #{r\ 2712}#
- #{w\ 2713}#
- #{s\ 2714}#
- #{mod\ 2715}#)
- (let ((#{tmp\ 2721}# #{e\ 2711}#))
- (let ((#{tmp\ 2722}#
+ (lambda (#{e\ 2712}#
+ #{r\ 2713}#
+ #{w\ 2714}#
+ #{s\ 2715}#
+ #{mod\ 2716}#)
+ (let ((#{tmp\ 2722}# #{e\ 2712}#))
+ (let ((#{tmp\ 2723}#
($sc-dispatch
- #{tmp\ 2721}#
+ #{tmp\ 2722}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2722}#
+ (if (if #{tmp\ 2723}#
(@apply
- (lambda (#{var\ 2727}#
- #{val\ 2728}#
- #{e1\ 2729}#
- #{e2\ 2730}#)
- (#{valid-bound-ids?\ 442}# #{var\ 2727}#))
- #{tmp\ 2722}#)
+ (lambda (#{var\ 2728}#
+ #{val\ 2729}#
+ #{e1\ 2730}#
+ #{e2\ 2731}#)
+ (#{valid-bound-ids?\ 443}# #{var\ 2728}#))
+ #{tmp\ 2723}#)
#f)
(@apply
- (lambda (#{var\ 2736}#
- #{val\ 2737}#
- #{e1\ 2738}#
- #{e2\ 2739}#)
+ (lambda (#{var\ 2737}#
+ #{val\ 2738}#
+ #{e1\ 2739}#
+ #{e2\ 2740}#)
(begin
- (let ((#{names\ 2741}#
- (map (lambda (#{x\ 2742}#)
- (#{id-var-name\ 436}#
- #{x\ 2742}#
- #{w\ 2713}#))
- #{var\ 2736}#)))
+ (let ((#{names\ 2742}#
+ (map (lambda (#{x\ 2743}#)
+ (#{id-var-name\ 437}#
+ #{x\ 2743}#
+ #{w\ 2714}#))
+ #{var\ 2737}#)))
(begin
(for-each
- (lambda (#{id\ 2745}# #{n\ 2746}#)
+ (lambda (#{id\ 2746}# #{n\ 2747}#)
(begin
- (let ((#{atom-key\ 2751}#
- (#{binding-type\ 362}#
- (#{lookup\ 373}#
- #{n\ 2746}#
- #{r\ 2712}#
- #{mod\ 2715}#))))
- (if (eqv? #{atom-key\ 2751}#
+ (let ((#{atom-key\ 2752}#
+ (#{binding-type\ 363}#
+ (#{lookup\ 374}#
+ #{n\ 2747}#
+ #{r\ 2713}#
+ #{mod\ 2716}#))))
+ (if (eqv? #{atom-key\ 2752}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2711}#
- (#{source-wrap\ 450}#
- #{id\ 2745}#
- #{w\ 2713}#
- #{s\ 2714}#
- #{mod\ 2715}#))))))
- #{var\ 2736}#
- #{names\ 2741}#)
- (#{chi-body\ 472}#
- (cons #{e1\ 2738}# #{e2\ 2739}#)
- (#{source-wrap\ 450}#
- #{e\ 2711}#
- #{w\ 2713}#
- #{s\ 2714}#
- #{mod\ 2715}#)
- (#{extend-env\ 367}#
- #{names\ 2741}#
+ #{e\ 2712}#
+ (#{source-wrap\ 451}#
+ #{id\ 2746}#
+ #{w\ 2714}#
+ #{s\ 2715}#
+ #{mod\ 2716}#))))))
+ #{var\ 2737}#
+ #{names\ 2742}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 2739}# #{e2\ 2740}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2712}#
+ #{w\ 2714}#
+ #{s\ 2715}#
+ #{mod\ 2716}#)
+ (#{extend-env\ 368}#
+ #{names\ 2742}#
(begin
- (let ((#{trans-r\ 2756}#
- (#{macros-only-env\ 371}#
- #{r\ 2712}#)))
- (map (lambda (#{x\ 2757}#)
+ (let ((#{trans-r\ 2757}#
+ (#{macros-only-env\ 372}#
+ #{r\ 2713}#)))
+ (map (lambda (#{x\ 2758}#)
(cons 'macro
-
(#{eval-local-transformer\ 476}#
- (#{chi\ 464}#
- #{x\ 2757}#
- #{trans-r\ 2756}#
- #{w\ 2713}#
- #{mod\ 2715}#)
- #{mod\ 2715}#)))
- #{val\ 2737}#)))
- #{r\ 2712}#)
- #{w\ 2713}#
- #{mod\ 2715}#)))))
- #{tmp\ 2722}#)
- (let ((#{_\ 2762}# #{tmp\ 2721}#))
+
(#{eval-local-transformer\ 477}#
+ (#{chi\ 465}#
+ #{x\ 2758}#
+ #{trans-r\ 2757}#
+ #{w\ 2714}#
+ #{mod\ 2716}#)
+ #{mod\ 2716}#)))
+ #{val\ 2738}#)))
+ #{r\ 2713}#)
+ #{w\ 2714}#
+ #{mod\ 2716}#)))))
+ #{tmp\ 2723}#)
+ (let ((#{_\ 2763}# #{tmp\ 2722}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 450}#
- #{e\ 2711}#
- #{w\ 2713}#
- #{s\ 2714}#
- #{mod\ 2715}#))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 451}#
+ #{e\ 2712}#
+ #{w\ 2714}#
+ #{s\ 2715}#
+ #{mod\ 2716}#))))))))
+ (#{global-extend\ 376}#
'core
'quote
- (lambda (#{e\ 2763}#
- #{r\ 2764}#
- #{w\ 2765}#
- #{s\ 2766}#
- #{mod\ 2767}#)
- (let ((#{tmp\ 2773}# #{e\ 2763}#))
- (let ((#{tmp\ 2774}#
- ($sc-dispatch #{tmp\ 2773}# (quote (_ any)))))
- (if #{tmp\ 2774}#
+ (lambda (#{e\ 2764}#
+ #{r\ 2765}#
+ #{w\ 2766}#
+ #{s\ 2767}#
+ #{mod\ 2768}#)
+ (let ((#{tmp\ 2774}# #{e\ 2764}#))
+ (let ((#{tmp\ 2775}#
+ ($sc-dispatch #{tmp\ 2774}# (quote (_ any)))))
+ (if #{tmp\ 2775}#
(@apply
- (lambda (#{e\ 2776}#)
- (#{build-data\ 329}#
- #{s\ 2766}#
- (#{strip\ 490}# #{e\ 2776}# #{w\ 2765}#)))
- #{tmp\ 2774}#)
- (let ((#{_\ 2778}# #{tmp\ 2773}#))
+ (lambda (#{e\ 2777}#)
+ (#{build-data\ 330}#
+ #{s\ 2767}#
+ (#{strip\ 491}# #{e\ 2777}# #{w\ 2766}#)))
+ #{tmp\ 2775}#)
+ (let ((#{_\ 2779}# #{tmp\ 2774}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 450}#
- #{e\ 2763}#
- #{w\ 2765}#
- #{s\ 2766}#
- #{mod\ 2767}#))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 451}#
+ #{e\ 2764}#
+ #{w\ 2766}#
+ #{s\ 2767}#
+ #{mod\ 2768}#))))))))
+ (#{global-extend\ 376}#
'core
'syntax
(letrec*
- ((#{gen-syntax\ 2780}#
- (lambda (#{src\ 2795}#
- #{e\ 2796}#
- #{r\ 2797}#
- #{maps\ 2798}#
- #{ellipsis?\ 2799}#
- #{mod\ 2800}#)
- (if (#{id?\ 379}# #{e\ 2796}#)
+ ((#{gen-syntax\ 2781}#
+ (lambda (#{src\ 2796}#
+ #{e\ 2797}#
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#)
+ (if (#{id?\ 380}# #{e\ 2797}#)
(begin
- (let ((#{label\ 2808}#
- (#{id-var-name\ 436}#
- #{e\ 2796}#
+ (let ((#{label\ 2809}#
+ (#{id-var-name\ 437}#
+ #{e\ 2797}#
'(()))))
(begin
- (let ((#{b\ 2811}#
- (#{lookup\ 373}#
- #{label\ 2808}#
- #{r\ 2797}#
- #{mod\ 2800}#)))
- (if (eq? (#{binding-type\ 362}# #{b\ 2811}#)
+ (let ((#{b\ 2812}#
+ (#{lookup\ 374}#
+ #{label\ 2809}#
+ #{r\ 2798}#
+ #{mod\ 2801}#)))
+ (if (eq? (#{binding-type\ 363}# #{b\ 2812}#)
'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev\ 2813}#
- (#{binding-value\ 364}#
- #{b\ 2811}#)))
- (#{gen-ref\ 2782}#
- #{src\ 2795}#
- (car #{var.lev\ 2813}#)
- (cdr #{var.lev\ 2813}#)
- #{maps\ 2798}#))))
- (lambda (#{var\ 2814}# #{maps\ 2815}#)
+ (let ((#{var.lev\ 2814}#
+ (#{binding-value\ 365}#
+ #{b\ 2812}#)))
+ (#{gen-ref\ 2783}#
+ #{src\ 2796}#
+ (car #{var.lev\ 2814}#)
+ (cdr #{var.lev\ 2814}#)
+ #{maps\ 2799}#))))
+ (lambda (#{var\ 2815}# #{maps\ 2816}#)
(values
- (list (quote ref) #{var\ 2814}#)
- #{maps\ 2815}#)))
- (if (#{ellipsis?\ 2799}# #{e\ 2796}#)
+ (list (quote ref) #{var\ 2815}#)
+ #{maps\ 2816}#)))
+ (if (#{ellipsis?\ 2800}# #{e\ 2797}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2795}#)
+ #{src\ 2796}#)
(values
- (list (quote quote) #{e\ 2796}#)
- #{maps\ 2798}#)))))))
- (let ((#{tmp\ 2820}# #{e\ 2796}#))
- (let ((#{tmp\ 2821}#
+ (list (quote quote) #{e\ 2797}#)
+ #{maps\ 2799}#)))))))
+ (let ((#{tmp\ 2821}# #{e\ 2797}#))
+ (let ((#{tmp\ 2822}#
($sc-dispatch
- #{tmp\ 2820}#
+ #{tmp\ 2821}#
'(any any))))
- (if (if #{tmp\ 2821}#
+ (if (if #{tmp\ 2822}#
(@apply
- (lambda (#{dots\ 2824}# #{e\ 2825}#)
- (#{ellipsis?\ 2799}# #{dots\ 2824}#))
- #{tmp\ 2821}#)
+ (lambda (#{dots\ 2825}# #{e\ 2826}#)
+ (#{ellipsis?\ 2800}# #{dots\ 2825}#))
+ #{tmp\ 2822}#)
#f)
(@apply
- (lambda (#{dots\ 2828}# #{e\ 2829}#)
- (#{gen-syntax\ 2780}#
- #{src\ 2795}#
- #{e\ 2829}#
- #{r\ 2797}#
- #{maps\ 2798}#
- (lambda (#{x\ 2830}#) #f)
- #{mod\ 2800}#))
- #{tmp\ 2821}#)
- (let ((#{tmp\ 2832}#
+ (lambda (#{dots\ 2829}# #{e\ 2830}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{e\ 2830}#
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ (lambda (#{x\ 2831}#) #f)
+ #{mod\ 2801}#))
+ #{tmp\ 2822}#)
+ (let ((#{tmp\ 2833}#
($sc-dispatch
- #{tmp\ 2820}#
+ #{tmp\ 2821}#
'(any any . any))))
- (if (if #{tmp\ 2832}#
+ (if (if #{tmp\ 2833}#
(@apply
- (lambda (#{x\ 2836}#
- #{dots\ 2837}#
- #{y\ 2838}#)
- (#{ellipsis?\ 2799}# #{dots\ 2837}#))
- #{tmp\ 2832}#)
+ (lambda (#{x\ 2837}#
+ #{dots\ 2838}#
+ #{y\ 2839}#)
+ (#{ellipsis?\ 2800}# #{dots\ 2838}#))
+ #{tmp\ 2833}#)
#f)
(@apply
- (lambda (#{x\ 2842}#
- #{dots\ 2843}#
- #{y\ 2844}#)
+ (lambda (#{x\ 2843}#
+ #{dots\ 2844}#
+ #{y\ 2845}#)
(letrec*
- ((#{f\ 2848}#
- (lambda (#{y\ 2849}# #{k\ 2850}#)
- (let ((#{tmp\ 2857}# #{y\ 2849}#))
- (let ((#{tmp\ 2858}#
+ ((#{f\ 2849}#
+ (lambda (#{y\ 2850}# #{k\ 2851}#)
+ (let ((#{tmp\ 2858}# #{y\ 2850}#))
+ (let ((#{tmp\ 2859}#
($sc-dispatch
- #{tmp\ 2857}#
+ #{tmp\ 2858}#
'(any . any))))
- (if (if #{tmp\ 2858}#
+ (if (if #{tmp\ 2859}#
(@apply
- (lambda (#{dots\ 2861}#
- #{y\ 2862}#)
- (#{ellipsis?\ 2799}#
- #{dots\ 2861}#))
- #{tmp\ 2858}#)
+ (lambda (#{dots\ 2862}#
+ #{y\ 2863}#)
+ (#{ellipsis?\ 2800}#
+ #{dots\ 2862}#))
+ #{tmp\ 2859}#)
#f)
(@apply
- (lambda (#{dots\ 2865}#
- #{y\ 2866}#)
- (#{f\ 2848}#
- #{y\ 2866}#
- (lambda (#{maps\
2867}#)
+ (lambda (#{dots\ 2866}#
+ #{y\ 2867}#)
+ (#{f\ 2849}#
+ #{y\ 2867}#
+ (lambda (#{maps\
2868}#)
(call-with-values
(lambda ()
- (#{k\ 2850}#
+ (#{k\ 2851}#
(cons '()
- #{maps\
2867}#)))
- (lambda (#{x\
2869}#
- #{maps\
2870}#)
- (if (null? (car
#{maps\ 2870}#))
+ #{maps\
2868}#)))
+ (lambda (#{x\
2870}#
+ #{maps\
2871}#)
+ (if (null? (car
#{maps\ 2871}#))
(syntax-violation
'syntax
"extra
ellipsis"
- #{src\
2795}#)
+ #{src\
2796}#)
(values
-
(#{gen-mappend\ 2784}#
- #{x\ 2869}#
- (car
#{maps\ 2870}#))
- (cdr #{maps\
2870}#))))))))
- #{tmp\ 2858}#)
- (let ((#{_\ 2874}#
- #{tmp\ 2857}#))
+
(#{gen-mappend\ 2785}#
+ #{x\ 2870}#
+ (car
#{maps\ 2871}#))
+ (cdr #{maps\
2871}#))))))))
+ #{tmp\ 2859}#)
+ (let ((#{_\ 2875}#
+ #{tmp\ 2858}#))
(call-with-values
(lambda ()
- (#{gen-syntax\ 2780}#
- #{src\ 2795}#
- #{y\ 2849}#
- #{r\ 2797}#
- #{maps\ 2798}#
- #{ellipsis?\ 2799}#
- #{mod\ 2800}#))
- (lambda (#{y\ 2875}#
- #{maps\ 2876}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{y\ 2850}#
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{y\ 2876}#
+ #{maps\ 2877}#)
(call-with-values
(lambda ()
- (#{k\ 2850}#
- #{maps\ 2876}#))
- (lambda (#{x\ 2879}#
- #{maps\
2880}#)
+ (#{k\ 2851}#
+ #{maps\ 2877}#))
+ (lambda (#{x\ 2880}#
+ #{maps\
2881}#)
(values
- (#{gen-append\
2790}#
- #{x\ 2879}#
- #{y\ 2875}#)
- #{maps\
2880}#))))))))))))
+ (#{gen-append\
2791}#
+ #{x\ 2880}#
+ #{y\ 2876}#)
+ #{maps\
2881}#))))))))))))
(begin
- (#{f\ 2848}#
- #{y\ 2844}#
- (lambda (#{maps\ 2851}#)
+ (#{f\ 2849}#
+ #{y\ 2845}#
+ (lambda (#{maps\ 2852}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2780}#
- #{src\ 2795}#
- #{x\ 2842}#
- #{r\ 2797}#
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{x\ 2843}#
+ #{r\ 2798}#
(cons '()
- #{maps\ 2851}#)
- #{ellipsis?\ 2799}#
- #{mod\ 2800}#))
- (lambda (#{x\ 2853}#
- #{maps\ 2854}#)
- (if (null? (car #{maps\
2854}#))
+ #{maps\ 2852}#)
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{x\ 2854}#
+ #{maps\ 2855}#)
+ (if (null? (car #{maps\
2855}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2795}#)
+ #{src\ 2796}#)
(values
- (#{gen-map\ 2786}#
- #{x\ 2853}#
- (car #{maps\ 2854}#))
- (cdr #{maps\
2854}#))))))))))
- #{tmp\ 2832}#)
- (let ((#{tmp\ 2883}#
+ (#{gen-map\ 2787}#
+ #{x\ 2854}#
+ (car #{maps\ 2855}#))
+ (cdr #{maps\
2855}#))))))))))
+ #{tmp\ 2833}#)
+ (let ((#{tmp\ 2884}#
($sc-dispatch
- #{tmp\ 2820}#
+ #{tmp\ 2821}#
'(any . any))))
- (if #{tmp\ 2883}#
+ (if #{tmp\ 2884}#
(@apply
- (lambda (#{x\ 2886}# #{y\ 2887}#)
+ (lambda (#{x\ 2887}# #{y\ 2888}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2780}#
- #{src\ 2795}#
- #{x\ 2886}#
- #{r\ 2797}#
- #{maps\ 2798}#
- #{ellipsis?\ 2799}#
- #{mod\ 2800}#))
- (lambda (#{x\ 2888}# #{maps\ 2889}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{x\ 2887}#
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{x\ 2889}# #{maps\ 2890}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2780}#
- #{src\ 2795}#
- #{y\ 2887}#
- #{r\ 2797}#
- #{maps\ 2889}#
- #{ellipsis?\ 2799}#
- #{mod\ 2800}#))
- (lambda (#{y\ 2892}#
- #{maps\ 2893}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{y\ 2888}#
+ #{r\ 2798}#
+ #{maps\ 2890}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{y\ 2893}#
+ #{maps\ 2894}#)
(values
- (#{gen-cons\ 2788}#
- #{x\ 2888}#
- #{y\ 2892}#)
- #{maps\ 2893}#))))))
- #{tmp\ 2883}#)
- (let ((#{tmp\ 2896}#
+ (#{gen-cons\ 2789}#
+ #{x\ 2889}#
+ #{y\ 2893}#)
+ #{maps\ 2894}#))))))
+ #{tmp\ 2884}#)
+ (let ((#{tmp\ 2897}#
($sc-dispatch
- #{tmp\ 2820}#
+ #{tmp\ 2821}#
'#(vector (any . each-any)))))
- (if #{tmp\ 2896}#
+ (if #{tmp\ 2897}#
(@apply
- (lambda (#{e1\ 2899}# #{e2\ 2900}#)
+ (lambda (#{e1\ 2900}# #{e2\ 2901}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2780}#
- #{src\ 2795}#
- (cons #{e1\ 2899}#
- #{e2\ 2900}#)
- #{r\ 2797}#
- #{maps\ 2798}#
- #{ellipsis?\ 2799}#
- #{mod\ 2800}#))
- (lambda (#{e\ 2902}#
- #{maps\ 2903}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ (cons #{e1\ 2900}#
+ #{e2\ 2901}#)
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{e\ 2903}#
+ #{maps\ 2904}#)
(values
- (#{gen-vector\ 2792}#
- #{e\ 2902}#)
- #{maps\ 2903}#))))
- #{tmp\ 2896}#)
- (let ((#{_\ 2907}# #{tmp\ 2820}#))
+ (#{gen-vector\ 2793}#
+ #{e\ 2903}#)
+ #{maps\ 2904}#))))
+ #{tmp\ 2897}#)
+ (let ((#{_\ 2908}# #{tmp\ 2821}#))
(values
- (list (quote quote) #{e\ 2796}#)
- #{maps\ 2798}#))))))))))))))
- (#{gen-ref\ 2782}#
- (lambda (#{src\ 2909}#
- #{var\ 2910}#
- #{level\ 2911}#
- #{maps\ 2912}#)
- (if (#{fx=\ 284}# #{level\ 2911}# 0)
- (values #{var\ 2910}# #{maps\ 2912}#)
- (if (null? #{maps\ 2912}#)
+ (list (quote quote) #{e\ 2797}#)
+ #{maps\ 2799}#))))))))))))))
+ (#{gen-ref\ 2783}#
+ (lambda (#{src\ 2910}#
+ #{var\ 2911}#
+ #{level\ 2912}#
+ #{maps\ 2913}#)
+ (if (#{fx=\ 285}# #{level\ 2912}# 0)
+ (values #{var\ 2911}# #{maps\ 2913}#)
+ (if (null? #{maps\ 2913}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2909}#)
+ #{src\ 2910}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2782}#
- #{src\ 2909}#
- #{var\ 2910}#
- (#{fx-\ 282}# #{level\ 2911}# 1)
- (cdr #{maps\ 2912}#)))
- (lambda (#{outer-var\ 2917}# #{outer-maps\ 2918}#)
+ (#{gen-ref\ 2783}#
+ #{src\ 2910}#
+ #{var\ 2911}#
+ (#{fx-\ 283}# #{level\ 2912}# 1)
+ (cdr #{maps\ 2913}#)))
+ (lambda (#{outer-var\ 2918}# #{outer-maps\ 2919}#)
(begin
- (let ((#{b\ 2922}#
- (assq #{outer-var\ 2917}#
- (car #{maps\ 2912}#))))
- (if #{b\ 2922}#
- (values (cdr #{b\ 2922}#) #{maps\ 2912}#)
+ (let ((#{b\ 2923}#
+ (assq #{outer-var\ 2918}#
+ (car #{maps\ 2913}#))))
+ (if #{b\ 2923}#
+ (values (cdr #{b\ 2923}#) #{maps\ 2913}#)
(begin
- (let ((#{inner-var\ 2924}#
- (#{gen-var\ 492}# (quote tmp))))
+ (let ((#{inner-var\ 2925}#
+ (#{gen-var\ 493}# (quote tmp))))
(values
- #{inner-var\ 2924}#
- (cons (cons (cons #{outer-var\ 2917}#
- #{inner-var\ 2924}#)
- (car #{maps\ 2912}#))
- #{outer-maps\
2918}#)))))))))))))
- (#{gen-mappend\ 2784}#
- (lambda (#{e\ 2925}# #{map-env\ 2926}#)
+ #{inner-var\ 2925}#
+ (cons (cons (cons #{outer-var\ 2918}#
+ #{inner-var\ 2925}#)
+ (car #{maps\ 2913}#))
+ #{outer-maps\
2919}#)))))))))))))
+ (#{gen-mappend\ 2785}#
+ (lambda (#{e\ 2926}# #{map-env\ 2927}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2786}# #{e\ 2925}# #{map-env\ 2926}#))))
- (#{gen-map\ 2786}#
- (lambda (#{e\ 2930}# #{map-env\ 2931}#)
+ (#{gen-map\ 2787}# #{e\ 2926}# #{map-env\ 2927}#))))
+ (#{gen-map\ 2787}#
+ (lambda (#{e\ 2931}# #{map-env\ 2932}#)
(begin
- (let ((#{formals\ 2936}# (map cdr #{map-env\ 2931}#))
- (#{actuals\ 2937}#
- (map (lambda (#{x\ 2938}#)
- (list (quote ref) (car #{x\ 2938}#)))
- #{map-env\ 2931}#)))
- (if (eq? (car #{e\ 2930}#) (quote ref))
- (car #{actuals\ 2937}#)
+ (let ((#{formals\ 2937}# (map cdr #{map-env\ 2932}#))
+ (#{actuals\ 2938}#
+ (map (lambda (#{x\ 2939}#)
+ (list (quote ref) (car #{x\ 2939}#)))
+ #{map-env\ 2932}#)))
+ (if (eq? (car #{e\ 2931}#) (quote ref))
+ (car #{actuals\ 2938}#)
(if (and-map
- (lambda (#{x\ 2945}#)
- (if (eq? (car #{x\ 2945}#) (quote ref))
- (memq (car (cdr #{x\ 2945}#))
- #{formals\ 2936}#)
+ (lambda (#{x\ 2946}#)
+ (if (eq? (car #{x\ 2946}#) (quote ref))
+ (memq (car (cdr #{x\ 2946}#))
+ #{formals\ 2937}#)
#f))
- (cdr #{e\ 2930}#))
+ (cdr #{e\ 2931}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2930}#))
+ (car #{e\ 2931}#))
(map (begin
- (let ((#{r\ 2951}#
+ (let ((#{r\ 2952}#
(map cons
- #{formals\ 2936}#
- #{actuals\
2937}#)))
- (lambda (#{x\ 2952}#)
- (cdr (assq (car (cdr #{x\
2952}#))
- #{r\ 2951}#)))))
- (cdr #{e\ 2930}#))))
+ #{formals\ 2937}#
+ #{actuals\
2938}#)))
+ (lambda (#{x\ 2953}#)
+ (cdr (assq (car (cdr #{x\
2953}#))
+ #{r\ 2952}#)))))
+ (cdr #{e\ 2931}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2936}#
- #{e\ 2930}#)
- #{actuals\ 2937}#))))))))
- (#{gen-cons\ 2788}#
- (lambda (#{x\ 2956}# #{y\ 2957}#)
+ #{formals\ 2937}#
+ #{e\ 2931}#)
+ #{actuals\ 2938}#))))))))
+ (#{gen-cons\ 2789}#
+ (lambda (#{x\ 2957}# #{y\ 2958}#)
(begin
- (let ((#{atom-key\ 2962}# (car #{y\ 2957}#)))
- (if (eqv? #{atom-key\ 2962}# (quote quote))
- (if (eq? (car #{x\ 2956}#) (quote quote))
+ (let ((#{atom-key\ 2963}# (car #{y\ 2958}#)))
+ (if (eqv? #{atom-key\ 2963}# (quote quote))
+ (if (eq? (car #{x\ 2957}#) (quote quote))
(list 'quote
- (cons (car (cdr #{x\ 2956}#))
- (car (cdr #{y\ 2957}#))))
- (if (eq? (car (cdr #{y\ 2957}#)) (quote ()))
- (list (quote list) #{x\ 2956}#)
- (list (quote cons) #{x\ 2956}# #{y\ 2957}#)))
- (if (eqv? #{atom-key\ 2962}# (quote list))
+ (cons (car (cdr #{x\ 2957}#))
+ (car (cdr #{y\ 2958}#))))
+ (if (eq? (car (cdr #{y\ 2958}#)) (quote ()))
+ (list (quote list) #{x\ 2957}#)
+ (list (quote cons) #{x\ 2957}# #{y\ 2958}#)))
+ (if (eqv? #{atom-key\ 2963}# (quote list))
(cons 'list
- (cons #{x\ 2956}# (cdr #{y\ 2957}#)))
- (list (quote cons) #{x\ 2956}# #{y\ 2957}#)))))))
- (#{gen-append\ 2790}#
- (lambda (#{x\ 2971}# #{y\ 2972}#)
- (if (equal? #{y\ 2972}# (quote (quote ())))
- #{x\ 2971}#
- (list (quote append) #{x\ 2971}# #{y\ 2972}#))))
- (#{gen-vector\ 2792}#
- (lambda (#{x\ 2976}#)
- (if (eq? (car #{x\ 2976}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2976}#))
- (if (eq? (car #{x\ 2976}#) (quote quote))
+ (cons #{x\ 2957}# (cdr #{y\ 2958}#)))
+ (list (quote cons) #{x\ 2957}# #{y\ 2958}#)))))))
+ (#{gen-append\ 2791}#
+ (lambda (#{x\ 2972}# #{y\ 2973}#)
+ (if (equal? #{y\ 2973}# (quote (quote ())))
+ #{x\ 2972}#
+ (list (quote append) #{x\ 2972}# #{y\ 2973}#))))
+ (#{gen-vector\ 2793}#
+ (lambda (#{x\ 2977}#)
+ (if (eq? (car #{x\ 2977}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2977}#))
+ (if (eq? (car #{x\ 2977}#) (quote quote))
(list 'quote
- (list->vector (car (cdr #{x\ 2976}#))))
- (list (quote list->vector) #{x\ 2976}#)))))
- (#{regen\ 2794}#
- (lambda (#{x\ 2986}#)
+ (list->vector (car (cdr #{x\ 2977}#))))
+ (list (quote list->vector) #{x\ 2977}#)))))
+ (#{regen\ 2795}#
+ (lambda (#{x\ 2987}#)
(begin
- (let ((#{atom-key\ 2990}# (car #{x\ 2986}#)))
- (if (eqv? #{atom-key\ 2990}# (quote ref))
- (#{build-lexical-reference\ 309}#
+ (let ((#{atom-key\ 2991}# (car #{x\ 2987}#)))
+ (if (eqv? #{atom-key\ 2991}# (quote ref))
+ (#{build-lexical-reference\ 310}#
'value
#f
- (car (cdr #{x\ 2986}#))
- (car (cdr #{x\ 2986}#)))
- (if (eqv? #{atom-key\ 2990}# (quote primitive))
- (#{build-primref\ 327}#
+ (car (cdr #{x\ 2987}#))
+ (car (cdr #{x\ 2987}#)))
+ (if (eqv? #{atom-key\ 2991}# (quote primitive))
+ (#{build-primref\ 328}#
#f
- (car (cdr #{x\ 2986}#)))
- (if (eqv? #{atom-key\ 2990}# (quote quote))
- (#{build-data\ 329}# #f (car (cdr #{x\ 2986}#)))
- (if (eqv? #{atom-key\ 2990}# (quote lambda))
- (if (list? (car (cdr #{x\ 2986}#)))
- (#{build-simple-lambda\ 321}#
+ (car (cdr #{x\ 2987}#)))
+ (if (eqv? #{atom-key\ 2991}# (quote quote))
+ (#{build-data\ 330}# #f (car (cdr #{x\ 2987}#)))
+ (if (eqv? #{atom-key\ 2991}# (quote lambda))
+ (if (list? (car (cdr #{x\ 2987}#)))
+ (#{build-simple-lambda\ 322}#
#f
- (car (cdr #{x\ 2986}#))
+ (car (cdr #{x\ 2987}#))
#f
- (car (cdr #{x\ 2986}#))
+ (car (cdr #{x\ 2987}#))
'()
- (#{regen\ 2794}#
- (car (cdr (cdr #{x\ 2986}#)))))
- (error "how did we get here" #{x\ 2986}#))
- (#{build-application\ 303}#
+ (#{regen\ 2795}#
+ (car (cdr (cdr #{x\ 2987}#)))))
+ (error "how did we get here" #{x\ 2987}#))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 327}#
+ (#{build-primref\ 328}#
#f
- (car #{x\ 2986}#))
- (map #{regen\ 2794}#
- (cdr #{x\ 2986}#))))))))))))
+ (car #{x\ 2987}#))
+ (map #{regen\ 2795}#
+ (cdr #{x\ 2987}#))))))))))))
(begin
- (lambda (#{e\ 3002}#
- #{r\ 3003}#
- #{w\ 3004}#
- #{s\ 3005}#
- #{mod\ 3006}#)
+ (lambda (#{e\ 3003}#
+ #{r\ 3004}#
+ #{w\ 3005}#
+ #{s\ 3006}#
+ #{mod\ 3007}#)
(begin
- (let ((#{e\ 3013}#
- (#{source-wrap\ 450}#
- #{e\ 3002}#
- #{w\ 3004}#
- #{s\ 3005}#
- #{mod\ 3006}#)))
- (let ((#{tmp\ 3014}# #{e\ 3013}#))
- (let ((#{tmp\ 3015}#
+ (let ((#{e\ 3014}#
+ (#{source-wrap\ 451}#
+ #{e\ 3003}#
+ #{w\ 3005}#
+ #{s\ 3006}#
+ #{mod\ 3007}#)))
+ (let ((#{tmp\ 3015}# #{e\ 3014}#))
+ (let ((#{tmp\ 3016}#
($sc-dispatch
- #{tmp\ 3014}#
+ #{tmp\ 3015}#
'(_ any))))
- (if #{tmp\ 3015}#
+ (if #{tmp\ 3016}#
(@apply
- (lambda (#{x\ 3017}#)
+ (lambda (#{x\ 3018}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2780}#
- #{e\ 3013}#
- #{x\ 3017}#
- #{r\ 3003}#
+ (#{gen-syntax\ 2781}#
+ #{e\ 3014}#
+ #{x\ 3018}#
+ #{r\ 3004}#
'()
- #{ellipsis?\ 480}#
- #{mod\ 3006}#))
- (lambda (#{e\ 3018}# #{maps\ 3019}#)
- (#{regen\ 2794}# #{e\ 3018}#))))
- #{tmp\ 3015}#)
- (let ((#{_\ 3023}# #{tmp\ 3014}#))
+ #{ellipsis?\ 481}#
+ #{mod\ 3007}#))
+ (lambda (#{e\ 3019}# #{maps\ 3020}#)
+ (#{regen\ 2795}# #{e\ 3019}#))))
+ #{tmp\ 3016}#)
+ (let ((#{_\ 3024}# #{tmp\ 3015}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3013}#)))))))))))
- (#{global-extend\ 375}#
+ #{e\ 3014}#)))))))))))
+ (#{global-extend\ 376}#
'core
'lambda
- (lambda (#{e\ 3024}#
- #{r\ 3025}#
- #{w\ 3026}#
- #{s\ 3027}#
- #{mod\ 3028}#)
- (let ((#{tmp\ 3034}# #{e\ 3024}#))
- (let ((#{tmp\ 3035}#
+ (lambda (#{e\ 3025}#
+ #{r\ 3026}#
+ #{w\ 3027}#
+ #{s\ 3028}#
+ #{mod\ 3029}#)
+ (let ((#{tmp\ 3035}# #{e\ 3025}#))
+ (let ((#{tmp\ 3036}#
($sc-dispatch
- #{tmp\ 3034}#
+ #{tmp\ 3035}#
'(_ any any . each-any))))
- (if #{tmp\ 3035}#
+ (if #{tmp\ 3036}#
(@apply
- (lambda (#{args\ 3039}# #{e1\ 3040}# #{e2\ 3041}#)
+ (lambda (#{args\ 3040}# #{e1\ 3041}# #{e2\ 3042}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 482}# #{args\ 3039}#))
- (lambda (#{req\ 3042}#
- #{opt\ 3043}#
- #{rest\ 3044}#
- #{kw\ 3045}#)
+ (#{lambda-formals\ 483}# #{args\ 3040}#))
+ (lambda (#{req\ 3043}#
+ #{opt\ 3044}#
+ #{rest\ 3045}#
+ #{kw\ 3046}#)
(letrec*
- ((#{lp\ 3053}#
- (lambda (#{body\ 3054}# #{meta\ 3055}#)
- (let ((#{tmp\ 3057}# #{body\ 3054}#))
- (let ((#{tmp\ 3058}#
+ ((#{lp\ 3054}#
+ (lambda (#{body\ 3055}# #{meta\ 3056}#)
+ (let ((#{tmp\ 3058}# #{body\ 3055}#))
+ (let ((#{tmp\ 3059}#
($sc-dispatch
- #{tmp\ 3057}#
+ #{tmp\ 3058}#
'(any any . each-any))))
- (if (if #{tmp\ 3058}#
+ (if (if #{tmp\ 3059}#
(@apply
- (lambda (#{docstring\ 3062}#
- #{e1\ 3063}#
- #{e2\ 3064}#)
+ (lambda (#{docstring\ 3063}#
+ #{e1\ 3064}#
+ #{e2\ 3065}#)
(string?
(syntax->datum
- #{docstring\ 3062}#)))
- #{tmp\ 3058}#)
+ #{docstring\ 3063}#)))
+ #{tmp\ 3059}#)
#f)
(@apply
- (lambda (#{docstring\ 3068}#
- #{e1\ 3069}#
- #{e2\ 3070}#)
- (#{lp\ 3053}#
- (cons #{e1\ 3069}#
- #{e2\ 3070}#)
+ (lambda (#{docstring\ 3069}#
+ #{e1\ 3070}#
+ #{e2\ 3071}#)
+ (#{lp\ 3054}#
+ (cons #{e1\ 3070}#
+ #{e2\ 3071}#)
(append
- #{meta\ 3055}#
+ #{meta\ 3056}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
3068}#))))))
- #{tmp\ 3058}#)
- (let ((#{tmp\ 3073}#
+ #{docstring\
3069}#))))))
+ #{tmp\ 3059}#)
+ (let ((#{tmp\ 3074}#
($sc-dispatch
- #{tmp\ 3057}#
+ #{tmp\ 3058}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 3073}#
+ (if #{tmp\ 3074}#
(@apply
- (lambda (#{k\ 3078}#
- #{v\ 3079}#
- #{e1\ 3080}#
- #{e2\ 3081}#)
- (#{lp\ 3053}#
- (cons #{e1\ 3080}#
- #{e2\ 3081}#)
+ (lambda (#{k\ 3079}#
+ #{v\ 3080}#
+ #{e1\ 3081}#
+ #{e2\ 3082}#)
+ (#{lp\ 3054}#
+ (cons #{e1\ 3081}#
+ #{e2\ 3082}#)
(append
- #{meta\ 3055}#
+ #{meta\ 3056}#
(syntax->datum
(map cons
- #{k\ 3078}#
- #{v\ 3079}#)))))
- #{tmp\ 3073}#)
- (let ((#{_\ 3086}#
- #{tmp\ 3057}#))
- (#{chi-simple-lambda\ 484}#
- #{e\ 3024}#
- #{r\ 3025}#
- #{w\ 3026}#
- #{s\ 3027}#
- #{mod\ 3028}#
- #{req\ 3042}#
- #{rest\ 3044}#
- #{meta\ 3055}#
- #{body\ 3054}#))))))))))
+ #{k\ 3079}#
+ #{v\ 3080}#)))))
+ #{tmp\ 3074}#)
+ (let ((#{_\ 3087}#
+ #{tmp\ 3058}#))
+ (#{chi-simple-lambda\ 485}#
+ #{e\ 3025}#
+ #{r\ 3026}#
+ #{w\ 3027}#
+ #{s\ 3028}#
+ #{mod\ 3029}#
+ #{req\ 3043}#
+ #{rest\ 3045}#
+ #{meta\ 3056}#
+ #{body\ 3055}#))))))))))
(begin
- (#{lp\ 3053}#
- (cons #{e1\ 3040}# #{e2\ 3041}#)
+ (#{lp\ 3054}#
+ (cons #{e1\ 3041}# #{e2\ 3042}#)
'()))))))
- #{tmp\ 3035}#)
- (let ((#{_\ 3088}# #{tmp\ 3034}#))
+ #{tmp\ 3036}#)
+ (let ((#{_\ 3089}# #{tmp\ 3035}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3024}#)))))))
- (#{global-extend\ 375}#
+ #{e\ 3025}#)))))))
+ (#{global-extend\ 376}#
'core
'lambda*
- (lambda (#{e\ 3089}#
- #{r\ 3090}#
- #{w\ 3091}#
- #{s\ 3092}#
- #{mod\ 3093}#)
- (let ((#{tmp\ 3099}# #{e\ 3089}#))
- (let ((#{tmp\ 3100}#
+ (lambda (#{e\ 3090}#
+ #{r\ 3091}#
+ #{w\ 3092}#
+ #{s\ 3093}#
+ #{mod\ 3094}#)
+ (let ((#{tmp\ 3100}# #{e\ 3090}#))
+ (let ((#{tmp\ 3101}#
($sc-dispatch
- #{tmp\ 3099}#
+ #{tmp\ 3100}#
'(_ any any . each-any))))
- (if #{tmp\ 3100}#
+ (if #{tmp\ 3101}#
(@apply
- (lambda (#{args\ 3104}# #{e1\ 3105}# #{e2\ 3106}#)
+ (lambda (#{args\ 3105}# #{e1\ 3106}# #{e2\ 3107}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 488}#
- #{e\ 3089}#
- #{r\ 3090}#
- #{w\ 3091}#
- #{s\ 3092}#
- #{mod\ 3093}#
- #{lambda*-formals\ 486}#
- (list (cons #{args\ 3104}#
- (cons #{e1\ 3105}#
- #{e2\ 3106}#)))))
- (lambda (#{meta\ 3108}# #{lcase\ 3109}#)
- (#{build-case-lambda\ 323}#
- #{s\ 3092}#
- #{meta\ 3108}#
- #{lcase\ 3109}#))))
- #{tmp\ 3100}#)
- (let ((#{_\ 3113}# #{tmp\ 3099}#))
+ (#{chi-lambda-case\ 489}#
+ #{e\ 3090}#
+ #{r\ 3091}#
+ #{w\ 3092}#
+ #{s\ 3093}#
+ #{mod\ 3094}#
+ #{lambda*-formals\ 487}#
+ (list (cons #{args\ 3105}#
+ (cons #{e1\ 3106}#
+ #{e2\ 3107}#)))))
+ (lambda (#{meta\ 3109}# #{lcase\ 3110}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3093}#
+ #{meta\ 3109}#
+ #{lcase\ 3110}#))))
+ #{tmp\ 3101}#)
+ (let ((#{_\ 3114}# #{tmp\ 3100}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3089}#)))))))
- (#{global-extend\ 375}#
+ #{e\ 3090}#)))))))
+ (#{global-extend\ 376}#
'core
'case-lambda
- (lambda (#{e\ 3114}#
- #{r\ 3115}#
- #{w\ 3116}#
- #{s\ 3117}#
- #{mod\ 3118}#)
- (let ((#{tmp\ 3124}# #{e\ 3114}#))
- (let ((#{tmp\ 3125}#
+ (lambda (#{e\ 3115}#
+ #{r\ 3116}#
+ #{w\ 3117}#
+ #{s\ 3118}#
+ #{mod\ 3119}#)
+ (let ((#{tmp\ 3125}# #{e\ 3115}#))
+ (let ((#{tmp\ 3126}#
($sc-dispatch
- #{tmp\ 3124}#
+ #{tmp\ 3125}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3125}#
+ (if #{tmp\ 3126}#
(@apply
- (lambda (#{args\ 3132}#
- #{e1\ 3133}#
- #{e2\ 3134}#
- #{args*\ 3135}#
- #{e1*\ 3136}#
- #{e2*\ 3137}#)
+ (lambda (#{args\ 3133}#
+ #{e1\ 3134}#
+ #{e2\ 3135}#
+ #{args*\ 3136}#
+ #{e1*\ 3137}#
+ #{e2*\ 3138}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 488}#
- #{e\ 3114}#
- #{r\ 3115}#
- #{w\ 3116}#
- #{s\ 3117}#
- #{mod\ 3118}#
- #{lambda-formals\ 482}#
- (cons (cons #{args\ 3132}#
- (cons #{e1\ 3133}# #{e2\ 3134}#))
- (map (lambda (#{tmp\ 3141}#
- #{tmp\ 3140}#
- #{tmp\ 3139}#)
- (cons #{tmp\ 3139}#
- (cons #{tmp\ 3140}#
- #{tmp\ 3141}#)))
- #{e2*\ 3137}#
- #{e1*\ 3136}#
- #{args*\ 3135}#))))
- (lambda (#{meta\ 3143}# #{lcase\ 3144}#)
- (#{build-case-lambda\ 323}#
- #{s\ 3117}#
- #{meta\ 3143}#
- #{lcase\ 3144}#))))
- #{tmp\ 3125}#)
- (let ((#{_\ 3148}# #{tmp\ 3124}#))
+ (#{chi-lambda-case\ 489}#
+ #{e\ 3115}#
+ #{r\ 3116}#
+ #{w\ 3117}#
+ #{s\ 3118}#
+ #{mod\ 3119}#
+ #{lambda-formals\ 483}#
+ (cons (cons #{args\ 3133}#
+ (cons #{e1\ 3134}# #{e2\ 3135}#))
+ (map (lambda (#{tmp\ 3142}#
+ #{tmp\ 3141}#
+ #{tmp\ 3140}#)
+ (cons #{tmp\ 3140}#
+ (cons #{tmp\ 3141}#
+ #{tmp\ 3142}#)))
+ #{e2*\ 3138}#
+ #{e1*\ 3137}#
+ #{args*\ 3136}#))))
+ (lambda (#{meta\ 3144}# #{lcase\ 3145}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3118}#
+ #{meta\ 3144}#
+ #{lcase\ 3145}#))))
+ #{tmp\ 3126}#)
+ (let ((#{_\ 3149}# #{tmp\ 3125}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3114}#)))))))
- (#{global-extend\ 375}#
+ #{e\ 3115}#)))))))
+ (#{global-extend\ 376}#
'core
'case-lambda*
- (lambda (#{e\ 3149}#
- #{r\ 3150}#
- #{w\ 3151}#
- #{s\ 3152}#
- #{mod\ 3153}#)
- (let ((#{tmp\ 3159}# #{e\ 3149}#))
- (let ((#{tmp\ 3160}#
+ (lambda (#{e\ 3150}#
+ #{r\ 3151}#
+ #{w\ 3152}#
+ #{s\ 3153}#
+ #{mod\ 3154}#)
+ (let ((#{tmp\ 3160}# #{e\ 3150}#))
+ (let ((#{tmp\ 3161}#
($sc-dispatch
- #{tmp\ 3159}#
+ #{tmp\ 3160}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3160}#
+ (if #{tmp\ 3161}#
(@apply
- (lambda (#{args\ 3167}#
- #{e1\ 3168}#
- #{e2\ 3169}#
- #{args*\ 3170}#
- #{e1*\ 3171}#
- #{e2*\ 3172}#)
+ (lambda (#{args\ 3168}#
+ #{e1\ 3169}#
+ #{e2\ 3170}#
+ #{args*\ 3171}#
+ #{e1*\ 3172}#
+ #{e2*\ 3173}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 488}#
- #{e\ 3149}#
- #{r\ 3150}#
- #{w\ 3151}#
- #{s\ 3152}#
- #{mod\ 3153}#
- #{lambda*-formals\ 486}#
- (cons (cons #{args\ 3167}#
- (cons #{e1\ 3168}# #{e2\ 3169}#))
- (map (lambda (#{tmp\ 3176}#
- #{tmp\ 3175}#
- #{tmp\ 3174}#)
- (cons #{tmp\ 3174}#
- (cons #{tmp\ 3175}#
- #{tmp\ 3176}#)))
- #{e2*\ 3172}#
- #{e1*\ 3171}#
- #{args*\ 3170}#))))
- (lambda (#{meta\ 3178}# #{lcase\ 3179}#)
- (#{build-case-lambda\ 323}#
- #{s\ 3152}#
- #{meta\ 3178}#
- #{lcase\ 3179}#))))
- #{tmp\ 3160}#)
- (let ((#{_\ 3183}# #{tmp\ 3159}#))
+ (#{chi-lambda-case\ 489}#
+ #{e\ 3150}#
+ #{r\ 3151}#
+ #{w\ 3152}#
+ #{s\ 3153}#
+ #{mod\ 3154}#
+ #{lambda*-formals\ 487}#
+ (cons (cons #{args\ 3168}#
+ (cons #{e1\ 3169}# #{e2\ 3170}#))
+ (map (lambda (#{tmp\ 3177}#
+ #{tmp\ 3176}#
+ #{tmp\ 3175}#)
+ (cons #{tmp\ 3175}#
+ (cons #{tmp\ 3176}#
+ #{tmp\ 3177}#)))
+ #{e2*\ 3173}#
+ #{e1*\ 3172}#
+ #{args*\ 3171}#))))
+ (lambda (#{meta\ 3179}# #{lcase\ 3180}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3153}#
+ #{meta\ 3179}#
+ #{lcase\ 3180}#))))
+ #{tmp\ 3161}#)
+ (let ((#{_\ 3184}# #{tmp\ 3160}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3149}#)))))))
- (#{global-extend\ 375}#
+ #{e\ 3150}#)))))))
+ (#{global-extend\ 376}#
'core
'let
(letrec*
- ((#{chi-let\ 3185}#
- (lambda (#{e\ 3186}#
- #{r\ 3187}#
- #{w\ 3188}#
- #{s\ 3189}#
- #{mod\ 3190}#
- #{constructor\ 3191}#
- #{ids\ 3192}#
- #{vals\ 3193}#
- #{exps\ 3194}#)
- (if (not (#{valid-bound-ids?\ 442}# #{ids\ 3192}#))
+ ((#{chi-let\ 3186}#
+ (lambda (#{e\ 3187}#
+ #{r\ 3188}#
+ #{w\ 3189}#
+ #{s\ 3190}#
+ #{mod\ 3191}#
+ #{constructor\ 3192}#
+ #{ids\ 3193}#
+ #{vals\ 3194}#
+ #{exps\ 3195}#)
+ (if (not (#{valid-bound-ids?\ 443}# #{ids\ 3193}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3186}#)
+ #{e\ 3187}#)
(begin
- (let ((#{labels\ 3206}#
- (#{gen-labels\ 397}# #{ids\ 3192}#))
- (#{new-vars\ 3207}#
- (map #{gen-var\ 492}# #{ids\ 3192}#)))
+ (let ((#{labels\ 3207}#
+ (#{gen-labels\ 398}# #{ids\ 3193}#))
+ (#{new-vars\ 3208}#
+ (map #{gen-var\ 493}# #{ids\ 3193}#)))
(begin
- (let ((#{nw\ 3210}#
- (#{make-binding-wrap\ 426}#
- #{ids\ 3192}#
- #{labels\ 3206}#
- #{w\ 3188}#))
- (#{nr\ 3211}#
- (#{extend-var-env\ 369}#
- #{labels\ 3206}#
- #{new-vars\ 3207}#
- #{r\ 3187}#)))
- (#{constructor\ 3191}#
- #{s\ 3189}#
- (map syntax->datum #{ids\ 3192}#)
- #{new-vars\ 3207}#
- (map (lambda (#{x\ 3212}#)
- (#{chi\ 464}#
- #{x\ 3212}#
- #{r\ 3187}#
- #{w\ 3188}#
- #{mod\ 3190}#))
- #{vals\ 3193}#)
- (#{chi-body\ 472}#
- #{exps\ 3194}#
- (#{source-wrap\ 450}#
- #{e\ 3186}#
- #{nw\ 3210}#
- #{s\ 3189}#
- #{mod\ 3190}#)
- #{nr\ 3211}#
- #{nw\ 3210}#
- #{mod\ 3190}#))))))))))
+ (let ((#{nw\ 3211}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3193}#
+ #{labels\ 3207}#
+ #{w\ 3189}#))
+ (#{nr\ 3212}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3207}#
+ #{new-vars\ 3208}#
+ #{r\ 3188}#)))
+ (#{constructor\ 3192}#
+ #{s\ 3190}#
+ (map syntax->datum #{ids\ 3193}#)
+ #{new-vars\ 3208}#
+ (map (lambda (#{x\ 3213}#)
+ (#{chi\ 465}#
+ #{x\ 3213}#
+ #{r\ 3188}#
+ #{w\ 3189}#
+ #{mod\ 3191}#))
+ #{vals\ 3194}#)
+ (#{chi-body\ 473}#
+ #{exps\ 3195}#
+ (#{source-wrap\ 451}#
+ #{e\ 3187}#
+ #{nw\ 3211}#
+ #{s\ 3190}#
+ #{mod\ 3191}#)
+ #{nr\ 3212}#
+ #{nw\ 3211}#
+ #{mod\ 3191}#))))))))))
(begin
- (lambda (#{e\ 3214}#
- #{r\ 3215}#
- #{w\ 3216}#
- #{s\ 3217}#
- #{mod\ 3218}#)
- (let ((#{tmp\ 3224}# #{e\ 3214}#))
- (let ((#{tmp\ 3225}#
+ (lambda (#{e\ 3215}#
+ #{r\ 3216}#
+ #{w\ 3217}#
+ #{s\ 3218}#
+ #{mod\ 3219}#)
+ (let ((#{tmp\ 3225}# #{e\ 3215}#))
+ (let ((#{tmp\ 3226}#
($sc-dispatch
- #{tmp\ 3224}#
+ #{tmp\ 3225}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3225}#
+ (if (if #{tmp\ 3226}#
(@apply
- (lambda (#{id\ 3230}#
- #{val\ 3231}#
- #{e1\ 3232}#
- #{e2\ 3233}#)
- (and-map #{id?\ 379}# #{id\ 3230}#))
- #{tmp\ 3225}#)
+ (lambda (#{id\ 3231}#
+ #{val\ 3232}#
+ #{e1\ 3233}#
+ #{e2\ 3234}#)
+ (and-map #{id?\ 380}# #{id\ 3231}#))
+ #{tmp\ 3226}#)
#f)
(@apply
- (lambda (#{id\ 3239}#
- #{val\ 3240}#
- #{e1\ 3241}#
- #{e2\ 3242}#)
- (#{chi-let\ 3185}#
- #{e\ 3214}#
- #{r\ 3215}#
- #{w\ 3216}#
- #{s\ 3217}#
- #{mod\ 3218}#
- #{build-let\ 333}#
- #{id\ 3239}#
- #{val\ 3240}#
- (cons #{e1\ 3241}# #{e2\ 3242}#)))
- #{tmp\ 3225}#)
- (let ((#{tmp\ 3246}#
+ (lambda (#{id\ 3240}#
+ #{val\ 3241}#
+ #{e1\ 3242}#
+ #{e2\ 3243}#)
+ (#{chi-let\ 3186}#
+ #{e\ 3215}#
+ #{r\ 3216}#
+ #{w\ 3217}#
+ #{s\ 3218}#
+ #{mod\ 3219}#
+ #{build-let\ 334}#
+ #{id\ 3240}#
+ #{val\ 3241}#
+ (cons #{e1\ 3242}# #{e2\ 3243}#)))
+ #{tmp\ 3226}#)
+ (let ((#{tmp\ 3247}#
($sc-dispatch
- #{tmp\ 3224}#
+ #{tmp\ 3225}#
'(_ any
#(each (any any))
any
.
each-any))))
- (if (if #{tmp\ 3246}#
+ (if (if #{tmp\ 3247}#
(@apply
- (lambda (#{f\ 3252}#
- #{id\ 3253}#
- #{val\ 3254}#
- #{e1\ 3255}#
- #{e2\ 3256}#)
- (if (#{id?\ 379}# #{f\ 3252}#)
- (and-map #{id?\ 379}# #{id\ 3253}#)
+ (lambda (#{f\ 3253}#
+ #{id\ 3254}#
+ #{val\ 3255}#
+ #{e1\ 3256}#
+ #{e2\ 3257}#)
+ (if (#{id?\ 380}# #{f\ 3253}#)
+ (and-map #{id?\ 380}# #{id\ 3254}#)
#f))
- #{tmp\ 3246}#)
+ #{tmp\ 3247}#)
#f)
(@apply
- (lambda (#{f\ 3265}#
- #{id\ 3266}#
- #{val\ 3267}#
- #{e1\ 3268}#
- #{e2\ 3269}#)
- (#{chi-let\ 3185}#
- #{e\ 3214}#
- #{r\ 3215}#
- #{w\ 3216}#
- #{s\ 3217}#
- #{mod\ 3218}#
- #{build-named-let\ 335}#
- (cons #{f\ 3265}# #{id\ 3266}#)
- #{val\ 3267}#
- (cons #{e1\ 3268}# #{e2\ 3269}#)))
- #{tmp\ 3246}#)
- (let ((#{_\ 3274}# #{tmp\ 3224}#))
+ (lambda (#{f\ 3266}#
+ #{id\ 3267}#
+ #{val\ 3268}#
+ #{e1\ 3269}#
+ #{e2\ 3270}#)
+ (#{chi-let\ 3186}#
+ #{e\ 3215}#
+ #{r\ 3216}#
+ #{w\ 3217}#
+ #{s\ 3218}#
+ #{mod\ 3219}#
+ #{build-named-let\ 336}#
+ (cons #{f\ 3266}# #{id\ 3267}#)
+ #{val\ 3268}#
+ (cons #{e1\ 3269}# #{e2\ 3270}#)))
+ #{tmp\ 3247}#)
+ (let ((#{_\ 3275}# #{tmp\ 3225}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 450}#
- #{e\ 3214}#
- #{w\ 3216}#
- #{s\ 3217}#
- #{mod\ 3218}#))))))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 451}#
+ #{e\ 3215}#
+ #{w\ 3217}#
+ #{s\ 3218}#
+ #{mod\ 3219}#))))))))))))
+ (#{global-extend\ 376}#
'core
'letrec
- (lambda (#{e\ 3275}#
- #{r\ 3276}#
- #{w\ 3277}#
- #{s\ 3278}#
- #{mod\ 3279}#)
- (let ((#{tmp\ 3285}# #{e\ 3275}#))
- (let ((#{tmp\ 3286}#
+ (lambda (#{e\ 3276}#
+ #{r\ 3277}#
+ #{w\ 3278}#
+ #{s\ 3279}#
+ #{mod\ 3280}#)
+ (let ((#{tmp\ 3286}# #{e\ 3276}#))
+ (let ((#{tmp\ 3287}#
($sc-dispatch
- #{tmp\ 3285}#
+ #{tmp\ 3286}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3286}#
+ (if (if #{tmp\ 3287}#
(@apply
- (lambda (#{id\ 3291}#
- #{val\ 3292}#
- #{e1\ 3293}#
- #{e2\ 3294}#)
- (and-map #{id?\ 379}# #{id\ 3291}#))
- #{tmp\ 3286}#)
+ (lambda (#{id\ 3292}#
+ #{val\ 3293}#
+ #{e1\ 3294}#
+ #{e2\ 3295}#)
+ (and-map #{id?\ 380}# #{id\ 3292}#))
+ #{tmp\ 3287}#)
#f)
(@apply
- (lambda (#{id\ 3300}#
- #{val\ 3301}#
- #{e1\ 3302}#
- #{e2\ 3303}#)
+ (lambda (#{id\ 3301}#
+ #{val\ 3302}#
+ #{e1\ 3303}#
+ #{e2\ 3304}#)
(begin
- (let ((#{ids\ 3305}# #{id\ 3300}#))
- (if (not (#{valid-bound-ids?\ 442}#
- #{ids\ 3305}#))
+ (let ((#{ids\ 3306}# #{id\ 3301}#))
+ (if (not (#{valid-bound-ids?\ 443}#
+ #{ids\ 3306}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3275}#)
+ #{e\ 3276}#)
(begin
- (let ((#{labels\ 3309}#
- (#{gen-labels\ 397}# #{ids\ 3305}#))
- (#{new-vars\ 3310}#
- (map #{gen-var\ 492}#
- #{ids\ 3305}#)))
+ (let ((#{labels\ 3310}#
+ (#{gen-labels\ 398}# #{ids\ 3306}#))
+ (#{new-vars\ 3311}#
+ (map #{gen-var\ 493}#
+ #{ids\ 3306}#)))
(begin
- (let ((#{w\ 3313}#
- (#{make-binding-wrap\ 426}#
- #{ids\ 3305}#
- #{labels\ 3309}#
- #{w\ 3277}#))
- (#{r\ 3314}#
- (#{extend-var-env\ 369}#
- #{labels\ 3309}#
- #{new-vars\ 3310}#
- #{r\ 3276}#)))
- (#{build-letrec\ 337}#
- #{s\ 3278}#
+ (let ((#{w\ 3314}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3306}#
+ #{labels\ 3310}#
+ #{w\ 3278}#))
+ (#{r\ 3315}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3310}#
+ #{new-vars\ 3311}#
+ #{r\ 3277}#)))
+ (#{build-letrec\ 338}#
+ #{s\ 3279}#
#f
- (map syntax->datum #{ids\ 3305}#)
- #{new-vars\ 3310}#
- (map (lambda (#{x\ 3315}#)
- (#{chi\ 464}#
- #{x\ 3315}#
- #{r\ 3314}#
- #{w\ 3313}#
- #{mod\ 3279}#))
- #{val\ 3301}#)
- (#{chi-body\ 472}#
- (cons #{e1\ 3302}# #{e2\ 3303}#)
- (#{source-wrap\ 450}#
- #{e\ 3275}#
- #{w\ 3313}#
- #{s\ 3278}#
- #{mod\ 3279}#)
- #{r\ 3314}#
- #{w\ 3313}#
- #{mod\ 3279}#))))))))))
- #{tmp\ 3286}#)
- (let ((#{_\ 3320}# #{tmp\ 3285}#))
+ (map syntax->datum #{ids\ 3306}#)
+ #{new-vars\ 3311}#
+ (map (lambda (#{x\ 3316}#)
+ (#{chi\ 465}#
+ #{x\ 3316}#
+ #{r\ 3315}#
+ #{w\ 3314}#
+ #{mod\ 3280}#))
+ #{val\ 3302}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 3303}# #{e2\ 3304}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3276}#
+ #{w\ 3314}#
+ #{s\ 3279}#
+ #{mod\ 3280}#)
+ #{r\ 3315}#
+ #{w\ 3314}#
+ #{mod\ 3280}#))))))))))
+ #{tmp\ 3287}#)
+ (let ((#{_\ 3321}# #{tmp\ 3286}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 450}#
- #{e\ 3275}#
- #{w\ 3277}#
- #{s\ 3278}#
- #{mod\ 3279}#))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 451}#
+ #{e\ 3276}#
+ #{w\ 3278}#
+ #{s\ 3279}#
+ #{mod\ 3280}#))))))))
+ (#{global-extend\ 376}#
'core
'letrec*
- (lambda (#{e\ 3321}#
- #{r\ 3322}#
- #{w\ 3323}#
- #{s\ 3324}#
- #{mod\ 3325}#)
- (let ((#{tmp\ 3331}# #{e\ 3321}#))
- (let ((#{tmp\ 3332}#
+ (lambda (#{e\ 3322}#
+ #{r\ 3323}#
+ #{w\ 3324}#
+ #{s\ 3325}#
+ #{mod\ 3326}#)
+ (let ((#{tmp\ 3332}# #{e\ 3322}#))
+ (let ((#{tmp\ 3333}#
($sc-dispatch
- #{tmp\ 3331}#
+ #{tmp\ 3332}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3332}#
+ (if (if #{tmp\ 3333}#
(@apply
- (lambda (#{id\ 3337}#
- #{val\ 3338}#
- #{e1\ 3339}#
- #{e2\ 3340}#)
- (and-map #{id?\ 379}# #{id\ 3337}#))
- #{tmp\ 3332}#)
+ (lambda (#{id\ 3338}#
+ #{val\ 3339}#
+ #{e1\ 3340}#
+ #{e2\ 3341}#)
+ (and-map #{id?\ 380}# #{id\ 3338}#))
+ #{tmp\ 3333}#)
#f)
(@apply
- (lambda (#{id\ 3346}#
- #{val\ 3347}#
- #{e1\ 3348}#
- #{e2\ 3349}#)
+ (lambda (#{id\ 3347}#
+ #{val\ 3348}#
+ #{e1\ 3349}#
+ #{e2\ 3350}#)
(begin
- (let ((#{ids\ 3351}# #{id\ 3346}#))
- (if (not (#{valid-bound-ids?\ 442}#
- #{ids\ 3351}#))
+ (let ((#{ids\ 3352}# #{id\ 3347}#))
+ (if (not (#{valid-bound-ids?\ 443}#
+ #{ids\ 3352}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 3321}#)
+ #{e\ 3322}#)
(begin
- (let ((#{labels\ 3355}#
- (#{gen-labels\ 397}# #{ids\ 3351}#))
- (#{new-vars\ 3356}#
- (map #{gen-var\ 492}#
- #{ids\ 3351}#)))
+ (let ((#{labels\ 3356}#
+ (#{gen-labels\ 398}# #{ids\ 3352}#))
+ (#{new-vars\ 3357}#
+ (map #{gen-var\ 493}#
+ #{ids\ 3352}#)))
(begin
- (let ((#{w\ 3359}#
- (#{make-binding-wrap\ 426}#
- #{ids\ 3351}#
- #{labels\ 3355}#
- #{w\ 3323}#))
- (#{r\ 3360}#
- (#{extend-var-env\ 369}#
- #{labels\ 3355}#
- #{new-vars\ 3356}#
- #{r\ 3322}#)))
- (#{build-letrec\ 337}#
- #{s\ 3324}#
+ (let ((#{w\ 3360}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3352}#
+ #{labels\ 3356}#
+ #{w\ 3324}#))
+ (#{r\ 3361}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3356}#
+ #{new-vars\ 3357}#
+ #{r\ 3323}#)))
+ (#{build-letrec\ 338}#
+ #{s\ 3325}#
#t
- (map syntax->datum #{ids\ 3351}#)
- #{new-vars\ 3356}#
- (map (lambda (#{x\ 3361}#)
- (#{chi\ 464}#
- #{x\ 3361}#
- #{r\ 3360}#
- #{w\ 3359}#
- #{mod\ 3325}#))
- #{val\ 3347}#)
- (#{chi-body\ 472}#
- (cons #{e1\ 3348}# #{e2\ 3349}#)
- (#{source-wrap\ 450}#
- #{e\ 3321}#
- #{w\ 3359}#
- #{s\ 3324}#
- #{mod\ 3325}#)
- #{r\ 3360}#
- #{w\ 3359}#
- #{mod\ 3325}#))))))))))
- #{tmp\ 3332}#)
- (let ((#{_\ 3366}# #{tmp\ 3331}#))
+ (map syntax->datum #{ids\ 3352}#)
+ #{new-vars\ 3357}#
+ (map (lambda (#{x\ 3362}#)
+ (#{chi\ 465}#
+ #{x\ 3362}#
+ #{r\ 3361}#
+ #{w\ 3360}#
+ #{mod\ 3326}#))
+ #{val\ 3348}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 3349}# #{e2\ 3350}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3322}#
+ #{w\ 3360}#
+ #{s\ 3325}#
+ #{mod\ 3326}#)
+ #{r\ 3361}#
+ #{w\ 3360}#
+ #{mod\ 3326}#))))))))))
+ #{tmp\ 3333}#)
+ (let ((#{_\ 3367}# #{tmp\ 3332}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 450}#
- #{e\ 3321}#
- #{w\ 3323}#
- #{s\ 3324}#
- #{mod\ 3325}#))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 451}#
+ #{e\ 3322}#
+ #{w\ 3324}#
+ #{s\ 3325}#
+ #{mod\ 3326}#))))))))
+ (#{global-extend\ 376}#
'core
'set!
- (lambda (#{e\ 3367}#
- #{r\ 3368}#
- #{w\ 3369}#
- #{s\ 3370}#
- #{mod\ 3371}#)
- (let ((#{tmp\ 3377}# #{e\ 3367}#))
- (let ((#{tmp\ 3378}#
- ($sc-dispatch #{tmp\ 3377}# (quote (_ any any)))))
- (if (if #{tmp\ 3378}#
+ (lambda (#{e\ 3368}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{s\ 3371}#
+ #{mod\ 3372}#)
+ (let ((#{tmp\ 3378}# #{e\ 3368}#))
+ (let ((#{tmp\ 3379}#
+ ($sc-dispatch #{tmp\ 3378}# (quote (_ any any)))))
+ (if (if #{tmp\ 3379}#
(@apply
- (lambda (#{id\ 3381}# #{val\ 3382}#)
- (#{id?\ 379}# #{id\ 3381}#))
- #{tmp\ 3378}#)
+ (lambda (#{id\ 3382}# #{val\ 3383}#)
+ (#{id?\ 380}# #{id\ 3382}#))
+ #{tmp\ 3379}#)
#f)
(@apply
- (lambda (#{id\ 3385}# #{val\ 3386}#)
+ (lambda (#{id\ 3386}# #{val\ 3387}#)
(begin
- (let ((#{n\ 3389}#
- (#{id-var-name\ 436}#
- #{id\ 3385}#
- #{w\ 3369}#))
- (#{id-mod\ 3390}#
- (if (#{syntax-object?\ 343}# #{id\ 3385}#)
- (#{syntax-object-module\ 349}#
- #{id\ 3385}#)
- #{mod\ 3371}#)))
+ (let ((#{n\ 3390}#
+ (#{id-var-name\ 437}#
+ #{id\ 3386}#
+ #{w\ 3370}#))
+ (#{id-mod\ 3391}#
+ (if (#{syntax-object?\ 344}# #{id\ 3386}#)
+ (#{syntax-object-module\ 350}#
+ #{id\ 3386}#)
+ #{mod\ 3372}#)))
(begin
- (let ((#{b\ 3392}#
- (#{lookup\ 373}#
- #{n\ 3389}#
- #{r\ 3368}#
- #{id-mod\ 3390}#)))
+ (let ((#{b\ 3393}#
+ (#{lookup\ 374}#
+ #{n\ 3390}#
+ #{r\ 3369}#
+ #{id-mod\ 3391}#)))
(begin
- (let ((#{atom-key\ 3395}#
- (#{binding-type\ 362}#
- #{b\ 3392}#)))
- (if (eqv? #{atom-key\ 3395}#
+ (let ((#{atom-key\ 3396}#
+ (#{binding-type\ 363}#
+ #{b\ 3393}#)))
+ (if (eqv? #{atom-key\ 3396}#
'lexical)
- (#{build-lexical-assignment\ 311}#
- #{s\ 3370}#
- (syntax->datum #{id\ 3385}#)
- (#{binding-value\ 364}# #{b\ 3392}#)
- (#{chi\ 464}#
- #{val\ 3386}#
- #{r\ 3368}#
- #{w\ 3369}#
- #{mod\ 3371}#))
- (if (eqv? #{atom-key\ 3395}#
+ (#{build-lexical-assignment\ 312}#
+ #{s\ 3371}#
+ (syntax->datum #{id\ 3386}#)
+ (#{binding-value\ 365}# #{b\ 3393}#)
+ (#{chi\ 465}#
+ #{val\ 3387}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#))
+ (if (eqv? #{atom-key\ 3396}#
'global)
- (#{build-global-assignment\ 317}#
- #{s\ 3370}#
- #{n\ 3389}#
- (#{chi\ 464}#
- #{val\ 3386}#
- #{r\ 3368}#
- #{w\ 3369}#
- #{mod\ 3371}#)
- #{id-mod\ 3390}#)
- (if (eqv? #{atom-key\ 3395}#
+ (#{build-global-assignment\ 318}#
+ #{s\ 3371}#
+ #{n\ 3390}#
+ (#{chi\ 465}#
+ #{val\ 3387}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)
+ #{id-mod\ 3391}#)
+ (if (eqv? #{atom-key\ 3396}#
'macro)
(begin
- (let ((#{p\ 3400}#
- (#{binding-value\ 364}#
- #{b\ 3392}#)))
+ (let ((#{p\ 3401}#
+ (#{binding-value\ 365}#
+ #{b\ 3393}#)))
(if (procedure-property
- #{p\ 3400}#
+ #{p\ 3401}#
'variable-transformer)
- (#{chi\ 464}#
- (#{chi-macro\ 470}#
- #{p\ 3400}#
- #{e\ 3367}#
- #{r\ 3368}#
- #{w\ 3369}#
- #{s\ 3370}#
+ (#{chi\ 465}#
+ (#{chi-macro\ 471}#
+ #{p\ 3401}#
+ #{e\ 3368}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{s\ 3371}#
#f
- #{mod\ 3371}#)
- #{r\ 3368}#
+ #{mod\ 3372}#)
+ #{r\ 3369}#
'(())
- #{mod\ 3371}#)
+ #{mod\ 3372}#)
(syntax-violation
'set!
"not a variable
transformer"
- (#{wrap\ 448}#
- #{e\ 3367}#
- #{w\ 3369}#
- #{mod\ 3371}#)
- (#{wrap\ 448}#
- #{id\ 3385}#
- #{w\ 3369}#
- #{id-mod\ 3390}#)))))
- (if (eqv? #{atom-key\ 3395}#
+ (#{wrap\ 449}#
+ #{e\ 3368}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)
+ (#{wrap\ 449}#
+ #{id\ 3386}#
+ #{w\ 3370}#
+ #{id-mod\ 3391}#)))))
+ (if (eqv? #{atom-key\ 3396}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 448}#
- #{id\ 3385}#
- #{w\ 3369}#
- #{mod\ 3371}#))
+ (#{wrap\ 449}#
+ #{id\ 3386}#
+ #{w\ 3370}#
+ #{mod\ 3372}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 450}#
- #{e\ 3367}#
- #{w\ 3369}#
- #{s\ 3370}#
- #{mod\ 3371}#)))))))))))))
- #{tmp\ 3378}#)
- (let ((#{tmp\ 3404}#
+ (#{source-wrap\ 451}#
+ #{e\ 3368}#
+ #{w\ 3370}#
+ #{s\ 3371}#
+ #{mod\ 3372}#)))))))))))))
+ #{tmp\ 3379}#)
+ (let ((#{tmp\ 3405}#
($sc-dispatch
- #{tmp\ 3377}#
+ #{tmp\ 3378}#
'(_ (any . each-any) any))))
- (if #{tmp\ 3404}#
+ (if #{tmp\ 3405}#
(@apply
- (lambda (#{head\ 3408}#
- #{tail\ 3409}#
- #{val\ 3410}#)
+ (lambda (#{head\ 3409}#
+ #{tail\ 3410}#
+ #{val\ 3411}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 460}#
- #{head\ 3408}#
- #{r\ 3368}#
+ (#{syntax-type\ 461}#
+ #{head\ 3409}#
+ #{r\ 3369}#
'(())
#f
#f
- #{mod\ 3371}#
+ #{mod\ 3372}#
#t))
- (lambda (#{type\ 3413}#
- #{value\ 3414}#
- #{ee\ 3415}#
- #{ww\ 3416}#
- #{ss\ 3417}#
- #{modmod\ 3418}#)
- (if (eqv? #{type\ 3413}# (quote module-ref))
+ (lambda (#{type\ 3414}#
+ #{value\ 3415}#
+ #{ee\ 3416}#
+ #{ww\ 3417}#
+ #{ss\ 3418}#
+ #{modmod\ 3419}#)
+ (if (eqv? #{type\ 3414}# (quote module-ref))
(begin
- (let ((#{val\ 3427}#
- (#{chi\ 464}#
- #{val\ 3410}#
- #{r\ 3368}#
- #{w\ 3369}#
- #{mod\ 3371}#)))
+ (let ((#{val\ 3428}#
+ (#{chi\ 465}#
+ #{val\ 3411}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)))
(call-with-values
(lambda ()
- (#{value\ 3414}#
- (cons #{head\ 3408}#
- #{tail\ 3409}#)
- #{r\ 3368}#
- #{w\ 3369}#))
- (lambda (#{e\ 3429}#
- #{r\ 3430}#
- #{w\ 3431}#
- #{s*\ 3432}#
- #{mod\ 3433}#)
- (let ((#{tmp\ 3439}# #{e\ 3429}#))
- (let ((#{tmp\ 3440}#
- (list #{tmp\ 3439}#)))
- (if (if #{tmp\ 3440}#
+ (#{value\ 3415}#
+ (cons #{head\ 3409}#
+ #{tail\ 3410}#)
+ #{r\ 3369}#
+ #{w\ 3370}#))
+ (lambda (#{e\ 3430}#
+ #{r\ 3431}#
+ #{w\ 3432}#
+ #{s*\ 3433}#
+ #{mod\ 3434}#)
+ (let ((#{tmp\ 3440}# #{e\ 3430}#))
+ (let ((#{tmp\ 3441}#
+ (list #{tmp\ 3440}#)))
+ (if (if #{tmp\ 3441}#
(@apply
- (lambda (#{e\ 3442}#)
- (#{id?\ 379}#
- #{e\ 3442}#))
- #{tmp\ 3440}#)
+ (lambda (#{e\ 3443}#)
+ (#{id?\ 380}#
+ #{e\ 3443}#))
+ #{tmp\ 3441}#)
#f)
(@apply
- (lambda (#{e\ 3444}#)
-
(#{build-global-assignment\ 317}#
- #{s\ 3370}#
+ (lambda (#{e\ 3445}#)
+
(#{build-global-assignment\ 318}#
+ #{s\ 3371}#
(syntax->datum
- #{e\ 3444}#)
- #{val\ 3427}#
- #{mod\ 3433}#))
- #{tmp\ 3440}#)
+ #{e\ 3445}#)
+ #{val\ 3428}#
+ #{mod\ 3434}#))
+ #{tmp\ 3441}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 3439}#))))))))
- (#{build-application\ 303}#
- #{s\ 3370}#
- (#{chi\ 464}#
+ #{tmp\ 3440}#))))))))
+ (#{build-application\ 304}#
+ #{s\ 3371}#
+ (#{chi\ 465}#
(list '#(syntax-object
setter
((top)
@@ -10281,16 +10281,16 @@
(top)
(top)
(top))
- #("i3419"
- "i3420"
+ #("i3420"
"i3421"
"i3422"
"i3423"
- "i3424"))
+ "i3424"
+ "i3425"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3405" "i3406" "i3407"))
+ #("i3406" "i3407" "i3408"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10299,11 +10299,11 @@
(top)
(top)
(top))
- #("i3372"
- "i3373"
+ #("i3373"
"i3374"
"i3375"
- "i3376"))
+ "i3376"
+ "i3377"))
#(ribcage
(lambda-var-list
gen-var
@@ -10579,197 +10579,197 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile))
- #{head\ 3408}#)
- #{r\ 3368}#
- #{w\ 3369}#
- #{mod\ 3371}#)
- (map (lambda (#{e\ 3446}#)
- (#{chi\ 464}#
- #{e\ 3446}#
- #{r\ 3368}#
- #{w\ 3369}#
- #{mod\ 3371}#))
+ #{head\ 3409}#)
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)
+ (map (lambda (#{e\ 3447}#)
+ (#{chi\ 465}#
+ #{e\ 3447}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#))
(append
- #{tail\ 3409}#
- (list #{val\ 3410}#))))))))
- #{tmp\ 3404}#)
- (let ((#{_\ 3450}# #{tmp\ 3377}#))
+ #{tail\ 3410}#
+ (list #{val\ 3411}#))))))))
+ #{tmp\ 3405}#)
+ (let ((#{_\ 3451}# #{tmp\ 3378}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 450}#
- #{e\ 3367}#
- #{w\ 3369}#
- #{s\ 3370}#
- #{mod\ 3371}#))))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 451}#
+ #{e\ 3368}#
+ #{w\ 3370}#
+ #{s\ 3371}#
+ #{mod\ 3372}#))))))))))
+ (#{global-extend\ 376}#
'module-ref
'@
- (lambda (#{e\ 3451}# #{r\ 3452}# #{w\ 3453}#)
- (let ((#{tmp\ 3457}# #{e\ 3451}#))
- (let ((#{tmp\ 3458}#
+ (lambda (#{e\ 3452}# #{r\ 3453}# #{w\ 3454}#)
+ (let ((#{tmp\ 3458}# #{e\ 3452}#))
+ (let ((#{tmp\ 3459}#
($sc-dispatch
- #{tmp\ 3457}#
+ #{tmp\ 3458}#
'(_ each-any any))))
- (if (if #{tmp\ 3458}#
+ (if (if #{tmp\ 3459}#
(@apply
- (lambda (#{mod\ 3461}# #{id\ 3462}#)
- (if (and-map #{id?\ 379}# #{mod\ 3461}#)
- (#{id?\ 379}# #{id\ 3462}#)
+ (lambda (#{mod\ 3462}# #{id\ 3463}#)
+ (if (and-map #{id?\ 380}# #{mod\ 3462}#)
+ (#{id?\ 380}# #{id\ 3463}#)
#f))
- #{tmp\ 3458}#)
+ #{tmp\ 3459}#)
#f)
(@apply
- (lambda (#{mod\ 3468}# #{id\ 3469}#)
+ (lambda (#{mod\ 3469}# #{id\ 3470}#)
(values
- (syntax->datum #{id\ 3469}#)
- #{r\ 3452}#
- #{w\ 3453}#
+ (syntax->datum #{id\ 3470}#)
+ #{r\ 3453}#
+ #{w\ 3454}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10778,12 +10778,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3466" "i3467"))
+ #("i3467" "i3468"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3454" "i3455" "i3456"))
+ #("i3455" "i3456" "i3457"))
#(ribcage
(lambda-var-list
gen-var
@@ -11059,222 +11059,222 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile))
- #{mod\ 3468}#))))
- #{tmp\ 3458}#)
+ #{mod\ 3469}#))))
+ #{tmp\ 3459}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3457}#))))))
- (#{global-extend\ 375}#
+ #{tmp\ 3458}#))))))
+ (#{global-extend\ 376}#
'module-ref
'@@
- (lambda (#{e\ 3471}# #{r\ 3472}# #{w\ 3473}#)
+ (lambda (#{e\ 3472}# #{r\ 3473}# #{w\ 3474}#)
(letrec*
- ((#{remodulate\ 3478}#
- (lambda (#{x\ 3479}# #{mod\ 3480}#)
- (if (pair? #{x\ 3479}#)
- (cons (#{remodulate\ 3478}#
- (car #{x\ 3479}#)
- #{mod\ 3480}#)
- (#{remodulate\ 3478}#
- (cdr #{x\ 3479}#)
- #{mod\ 3480}#))
- (if (#{syntax-object?\ 343}# #{x\ 3479}#)
- (#{make-syntax-object\ 341}#
- (#{remodulate\ 3478}#
- (#{syntax-object-expression\ 345}# #{x\ 3479}#)
- #{mod\ 3480}#)
- (#{syntax-object-wrap\ 347}# #{x\ 3479}#)
- #{mod\ 3480}#)
- (if (vector? #{x\ 3479}#)
+ ((#{remodulate\ 3479}#
+ (lambda (#{x\ 3480}# #{mod\ 3481}#)
+ (if (pair? #{x\ 3480}#)
+ (cons (#{remodulate\ 3479}#
+ (car #{x\ 3480}#)
+ #{mod\ 3481}#)
+ (#{remodulate\ 3479}#
+ (cdr #{x\ 3480}#)
+ #{mod\ 3481}#))
+ (if (#{syntax-object?\ 344}# #{x\ 3480}#)
+ (#{make-syntax-object\ 342}#
+ (#{remodulate\ 3479}#
+ (#{syntax-object-expression\ 346}# #{x\ 3480}#)
+ #{mod\ 3481}#)
+ (#{syntax-object-wrap\ 348}# #{x\ 3480}#)
+ #{mod\ 3481}#)
+ (if (vector? #{x\ 3480}#)
(begin
- (let ((#{n\ 3491}# (vector-length #{x\ 3479}#)))
+ (let ((#{n\ 3492}# (vector-length #{x\ 3480}#)))
(begin
- (let ((#{v\ 3493}#
- (make-vector #{n\ 3491}#)))
+ (let ((#{v\ 3494}#
+ (make-vector #{n\ 3492}#)))
(letrec*
- ((#{loop\ 3496}#
- (lambda (#{i\ 3497}#)
- (if (#{fx=\ 284}#
- #{i\ 3497}#
- #{n\ 3491}#)
- (begin (if #f #f) #{v\ 3493}#)
+ ((#{loop\ 3497}#
+ (lambda (#{i\ 3498}#)
+ (if (#{fx=\ 285}#
+ #{i\ 3498}#
+ #{n\ 3492}#)
+ (begin (if #f #f) #{v\ 3494}#)
(begin
(vector-set!
- #{v\ 3493}#
- #{i\ 3497}#
- (#{remodulate\ 3478}#
+ #{v\ 3494}#
+ #{i\ 3498}#
+ (#{remodulate\ 3479}#
(vector-ref
- #{x\ 3479}#
- #{i\ 3497}#)
- #{mod\ 3480}#))
- (#{loop\ 3496}#
- (#{fx+\ 280}#
- #{i\ 3497}#
+ #{x\ 3480}#
+ #{i\ 3498}#)
+ #{mod\ 3481}#))
+ (#{loop\ 3497}#
+ (#{fx+\ 281}#
+ #{i\ 3498}#
1)))))))
- (begin (#{loop\ 3496}# 0)))))))
- #{x\ 3479}#))))))
+ (begin (#{loop\ 3497}# 0)))))))
+ #{x\ 3480}#))))))
(begin
- (let ((#{tmp\ 3501}# #{e\ 3471}#))
- (let ((#{tmp\ 3502}#
+ (let ((#{tmp\ 3502}# #{e\ 3472}#))
+ (let ((#{tmp\ 3503}#
($sc-dispatch
- #{tmp\ 3501}#
+ #{tmp\ 3502}#
'(_ each-any any))))
- (if (if #{tmp\ 3502}#
+ (if (if #{tmp\ 3503}#
(@apply
- (lambda (#{mod\ 3505}# #{exp\ 3506}#)
- (and-map #{id?\ 379}# #{mod\ 3505}#))
- #{tmp\ 3502}#)
+ (lambda (#{mod\ 3506}# #{exp\ 3507}#)
+ (and-map #{id?\ 380}# #{mod\ 3506}#))
+ #{tmp\ 3503}#)
#f)
(@apply
- (lambda (#{mod\ 3510}# #{exp\ 3511}#)
+ (lambda (#{mod\ 3511}# #{exp\ 3512}#)
(begin
- (let ((#{mod\ 3513}#
+ (let ((#{mod\ 3514}#
(syntax->datum
(cons '#(syntax-object
private
@@ -11282,17 +11282,17 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3508" "i3509"))
+ #("i3509" "i3510"))
#(ribcage
(remodulate)
((top))
- ("i3477"))
+ ("i3478"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3474"
- "i3475"
- "i3476"))
+ #("i3475"
+ "i3476"
+ "i3477"))
#(ribcage
(lambda-var-list
gen-var
@@ -11568,332 +11568,332 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38"
+ ("i39"
+ "i38"
"i37"
- "i36"
- "i34")))
+ "i35")))
(hygiene guile))
- #{mod\ 3510}#))))
+ #{mod\ 3511}#))))
(values
- (#{remodulate\ 3478}#
- #{exp\ 3511}#
- #{mod\ 3513}#)
- #{r\ 3472}#
- #{w\ 3473}#
- (#{source-annotation\ 358}# #{exp\ 3511}#)
- #{mod\ 3513}#))))
- #{tmp\ 3502}#)
+ (#{remodulate\ 3479}#
+ #{exp\ 3512}#
+ #{mod\ 3514}#)
+ #{r\ 3473}#
+ #{w\ 3474}#
+ (#{source-annotation\ 359}# #{exp\ 3512}#)
+ #{mod\ 3514}#))))
+ #{tmp\ 3503}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3501}#))))))))
- (#{global-extend\ 375}#
+ #{tmp\ 3502}#))))))))
+ (#{global-extend\ 376}#
'core
'if
- (lambda (#{e\ 3515}#
- #{r\ 3516}#
- #{w\ 3517}#
- #{s\ 3518}#
- #{mod\ 3519}#)
- (let ((#{tmp\ 3525}# #{e\ 3515}#))
- (let ((#{tmp\ 3526}#
- ($sc-dispatch #{tmp\ 3525}# (quote (_ any any)))))
- (if #{tmp\ 3526}#
+ (lambda (#{e\ 3516}#
+ #{r\ 3517}#
+ #{w\ 3518}#
+ #{s\ 3519}#
+ #{mod\ 3520}#)
+ (let ((#{tmp\ 3526}# #{e\ 3516}#))
+ (let ((#{tmp\ 3527}#
+ ($sc-dispatch #{tmp\ 3526}# (quote (_ any any)))))
+ (if #{tmp\ 3527}#
(@apply
- (lambda (#{test\ 3529}# #{then\ 3530}#)
- (#{build-conditional\ 305}#
- #{s\ 3518}#
- (#{chi\ 464}#
- #{test\ 3529}#
- #{r\ 3516}#
- #{w\ 3517}#
- #{mod\ 3519}#)
- (#{chi\ 464}#
- #{then\ 3530}#
- #{r\ 3516}#
- #{w\ 3517}#
- #{mod\ 3519}#)
- (#{build-void\ 301}# #f)))
- #{tmp\ 3526}#)
- (let ((#{tmp\ 3532}#
+ (lambda (#{test\ 3530}# #{then\ 3531}#)
+ (#{build-conditional\ 306}#
+ #{s\ 3519}#
+ (#{chi\ 465}#
+ #{test\ 3530}#
+ #{r\ 3517}#
+ #{w\ 3518}#
+ #{mod\ 3520}#)
+ (#{chi\ 465}#
+ #{then\ 3531}#
+ #{r\ 3517}#
+ #{w\ 3518}#
+ #{mod\ 3520}#)
+ (#{build-void\ 302}# #f)))
+ #{tmp\ 3527}#)
+ (let ((#{tmp\ 3533}#
($sc-dispatch
- #{tmp\ 3525}#
+ #{tmp\ 3526}#
'(_ any any any))))
- (if #{tmp\ 3532}#
+ (if #{tmp\ 3533}#
(@apply
- (lambda (#{test\ 3536}#
- #{then\ 3537}#
- #{else\ 3538}#)
- (#{build-conditional\ 305}#
- #{s\ 3518}#
- (#{chi\ 464}#
- #{test\ 3536}#
- #{r\ 3516}#
- #{w\ 3517}#
- #{mod\ 3519}#)
- (#{chi\ 464}#
- #{then\ 3537}#
- #{r\ 3516}#
- #{w\ 3517}#
- #{mod\ 3519}#)
- (#{chi\ 464}#
- #{else\ 3538}#
- #{r\ 3516}#
- #{w\ 3517}#
- #{mod\ 3519}#)))
- #{tmp\ 3532}#)
+ (lambda (#{test\ 3537}#
+ #{then\ 3538}#
+ #{else\ 3539}#)
+ (#{build-conditional\ 306}#
+ #{s\ 3519}#
+ (#{chi\ 465}#
+ #{test\ 3537}#
+ #{r\ 3517}#
+ #{w\ 3518}#
+ #{mod\ 3520}#)
+ (#{chi\ 465}#
+ #{then\ 3538}#
+ #{r\ 3517}#
+ #{w\ 3518}#
+ #{mod\ 3520}#)
+ (#{chi\ 465}#
+ #{else\ 3539}#
+ #{r\ 3517}#
+ #{w\ 3518}#
+ #{mod\ 3520}#)))
+ #{tmp\ 3533}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3525}#))))))))
- (#{global-extend\ 375}#
+ #{tmp\ 3526}#))))))))
+ (#{global-extend\ 376}#
'core
'with-fluids
- (lambda (#{e\ 3539}#
- #{r\ 3540}#
- #{w\ 3541}#
- #{s\ 3542}#
- #{mod\ 3543}#)
- (let ((#{tmp\ 3549}# #{e\ 3539}#))
- (let ((#{tmp\ 3550}#
+ (lambda (#{e\ 3540}#
+ #{r\ 3541}#
+ #{w\ 3542}#
+ #{s\ 3543}#
+ #{mod\ 3544}#)
+ (let ((#{tmp\ 3550}# #{e\ 3540}#))
+ (let ((#{tmp\ 3551}#
($sc-dispatch
- #{tmp\ 3549}#
+ #{tmp\ 3550}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 3550}#
+ (if #{tmp\ 3551}#
(@apply
- (lambda (#{fluid\ 3555}#
- #{val\ 3556}#
- #{b\ 3557}#
- #{b*\ 3558}#)
- (#{build-dynlet\ 307}#
- #{s\ 3542}#
- (map (lambda (#{x\ 3559}#)
- (#{chi\ 464}#
- #{x\ 3559}#
- #{r\ 3540}#
- #{w\ 3541}#
- #{mod\ 3543}#))
- #{fluid\ 3555}#)
- (map (lambda (#{x\ 3562}#)
- (#{chi\ 464}#
- #{x\ 3562}#
- #{r\ 3540}#
- #{w\ 3541}#
- #{mod\ 3543}#))
- #{val\ 3556}#)
- (#{chi-body\ 472}#
- (cons #{b\ 3557}# #{b*\ 3558}#)
- (#{source-wrap\ 450}#
- #{e\ 3539}#
- #{w\ 3541}#
- #{s\ 3542}#
- #{mod\ 3543}#)
- #{r\ 3540}#
- #{w\ 3541}#
- #{mod\ 3543}#)))
- #{tmp\ 3550}#)
+ (lambda (#{fluid\ 3556}#
+ #{val\ 3557}#
+ #{b\ 3558}#
+ #{b*\ 3559}#)
+ (#{build-dynlet\ 308}#
+ #{s\ 3543}#
+ (map (lambda (#{x\ 3560}#)
+ (#{chi\ 465}#
+ #{x\ 3560}#
+ #{r\ 3541}#
+ #{w\ 3542}#
+ #{mod\ 3544}#))
+ #{fluid\ 3556}#)
+ (map (lambda (#{x\ 3563}#)
+ (#{chi\ 465}#
+ #{x\ 3563}#
+ #{r\ 3541}#
+ #{w\ 3542}#
+ #{mod\ 3544}#))
+ #{val\ 3557}#)
+ (#{chi-body\ 473}#
+ (cons #{b\ 3558}# #{b*\ 3559}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3540}#
+ #{w\ 3542}#
+ #{s\ 3543}#
+ #{mod\ 3544}#)
+ #{r\ 3541}#
+ #{w\ 3542}#
+ #{mod\ 3544}#)))
+ #{tmp\ 3551}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3549}#))))))
- (#{global-extend\ 375}#
+ #{tmp\ 3550}#))))))
+ (#{global-extend\ 376}#
'begin
'begin
'())
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'define
'define
'())
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'eval-when
'eval-when
'())
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 3567}#
- (lambda (#{pattern\ 3574}# #{keys\ 3575}#)
+ ((#{convert-pattern\ 3568}#
+ (lambda (#{pattern\ 3575}# #{keys\ 3576}#)
(letrec*
- ((#{cvt*\ 3579}#
- (lambda (#{p*\ 3582}# #{n\ 3583}# #{ids\ 3584}#)
- (if (null? #{p*\ 3582}#)
- (values (quote ()) #{ids\ 3584}#)
+ ((#{cvt*\ 3580}#
+ (lambda (#{p*\ 3583}# #{n\ 3584}# #{ids\ 3585}#)
+ (if (null? #{p*\ 3583}#)
+ (values (quote ()) #{ids\ 3585}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3579}#
- (cdr #{p*\ 3582}#)
- #{n\ 3583}#
- #{ids\ 3584}#))
- (lambda (#{y\ 3588}# #{ids\ 3589}#)
+ (#{cvt*\ 3580}#
+ (cdr #{p*\ 3583}#)
+ #{n\ 3584}#
+ #{ids\ 3585}#))
+ (lambda (#{y\ 3589}# #{ids\ 3590}#)
(call-with-values
(lambda ()
- (#{cvt\ 3581}#
- (car #{p*\ 3582}#)
- #{n\ 3583}#
- #{ids\ 3589}#))
- (lambda (#{x\ 3592}# #{ids\ 3593}#)
+ (#{cvt\ 3582}#
+ (car #{p*\ 3583}#)
+ #{n\ 3584}#
+ #{ids\ 3590}#))
+ (lambda (#{x\ 3593}# #{ids\ 3594}#)
(values
- (cons #{x\ 3592}# #{y\ 3588}#)
- #{ids\ 3593}#))))))))
- (#{cvt\ 3581}#
- (lambda (#{p\ 3596}# #{n\ 3597}# #{ids\ 3598}#)
- (if (#{id?\ 379}# #{p\ 3596}#)
- (if (#{bound-id-member?\ 446}#
- #{p\ 3596}#
- #{keys\ 3575}#)
+ (cons #{x\ 3593}# #{y\ 3589}#)
+ #{ids\ 3594}#))))))))
+ (#{cvt\ 3582}#
+ (lambda (#{p\ 3597}# #{n\ 3598}# #{ids\ 3599}#)
+ (if (#{id?\ 380}# #{p\ 3597}#)
+ (if (#{bound-id-member?\ 447}#
+ #{p\ 3597}#
+ #{keys\ 3576}#)
(values
- (vector (quote free-id) #{p\ 3596}#)
- #{ids\ 3598}#)
- (if (#{free-id=?\ 438}#
- #{p\ 3596}#
+ (vector (quote free-id) #{p\ 3597}#)
+ #{ids\ 3599}#)
+ (if (#{free-id=?\ 439}#
+ #{p\ 3597}#
'#(syntax-object
_
((top)
@@ -11901,22 +11901,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3599" "i3600" "i3601"))
+ #("i3600" "i3601" "i3602"))
#(ribcage
(cvt cvt*)
((top) (top))
- ("i3580" "i3578"))
+ ("i3581" "i3579"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3576" "i3577"))
+ #("i3577" "i3578"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3572" "i3570" "i3568" "i3566"))
+ ("i3573" "i3571" "i3569" "i3567"))
#(ribcage
(lambda-var-list
gen-var
@@ -12192,480 +12192,480 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
- (values (quote _) #{ids\ 3598}#)
+ (values (quote _) #{ids\ 3599}#)
(values
'any
- (cons (cons #{p\ 3596}# #{n\ 3597}#)
- #{ids\ 3598}#))))
- (let ((#{tmp\ 3607}# #{p\ 3596}#))
- (let ((#{tmp\ 3608}#
+ (cons (cons #{p\ 3597}# #{n\ 3598}#)
+ #{ids\ 3599}#))))
+ (let ((#{tmp\ 3608}# #{p\ 3597}#))
+ (let ((#{tmp\ 3609}#
($sc-dispatch
- #{tmp\ 3607}#
+ #{tmp\ 3608}#
'(any any))))
- (if (if #{tmp\ 3608}#
+ (if (if #{tmp\ 3609}#
(@apply
- (lambda (#{x\ 3611}# #{dots\ 3612}#)
- (#{ellipsis?\ 480}#
- #{dots\ 3612}#))
- #{tmp\ 3608}#)
+ (lambda (#{x\ 3612}# #{dots\ 3613}#)
+ (#{ellipsis?\ 481}#
+ #{dots\ 3613}#))
+ #{tmp\ 3609}#)
#f)
(@apply
- (lambda (#{x\ 3615}# #{dots\ 3616}#)
+ (lambda (#{x\ 3616}# #{dots\ 3617}#)
(call-with-values
(lambda ()
- (#{cvt\ 3581}#
- #{x\ 3615}#
- (#{fx+\ 280}# #{n\ 3597}# 1)
- #{ids\ 3598}#))
- (lambda (#{p\ 3617}# #{ids\ 3618}#)
+ (#{cvt\ 3582}#
+ #{x\ 3616}#
+ (#{fx+\ 281}# #{n\ 3598}# 1)
+ #{ids\ 3599}#))
+ (lambda (#{p\ 3618}# #{ids\ 3619}#)
(values
- (if (eq? #{p\ 3617}# (quote any))
+ (if (eq? #{p\ 3618}# (quote any))
'each-any
(vector
'each
- #{p\ 3617}#))
- #{ids\ 3618}#))))
- #{tmp\ 3608}#)
- (let ((#{tmp\ 3621}#
+ #{p\ 3618}#))
+ #{ids\ 3619}#))))
+ #{tmp\ 3609}#)
+ (let ((#{tmp\ 3622}#
($sc-dispatch
- #{tmp\ 3607}#
+ #{tmp\ 3608}#
'(any any . each-any))))
- (if (if #{tmp\ 3621}#
+ (if (if #{tmp\ 3622}#
(@apply
- (lambda (#{x\ 3625}#
- #{dots\ 3626}#
- #{ys\ 3627}#)
- (#{ellipsis?\ 480}#
- #{dots\ 3626}#))
- #{tmp\ 3621}#)
+ (lambda (#{x\ 3626}#
+ #{dots\ 3627}#
+ #{ys\ 3628}#)
+ (#{ellipsis?\ 481}#
+ #{dots\ 3627}#))
+ #{tmp\ 3622}#)
#f)
(@apply
- (lambda (#{x\ 3631}#
- #{dots\ 3632}#
- #{ys\ 3633}#)
+ (lambda (#{x\ 3632}#
+ #{dots\ 3633}#
+ #{ys\ 3634}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3579}#
- #{ys\ 3633}#
- #{n\ 3597}#
- #{ids\ 3598}#))
- (lambda (#{ys\ 3635}#
- #{ids\ 3636}#)
+ (#{cvt*\ 3580}#
+ #{ys\ 3634}#
+ #{n\ 3598}#
+ #{ids\ 3599}#))
+ (lambda (#{ys\ 3636}#
+ #{ids\ 3637}#)
(call-with-values
(lambda ()
- (#{cvt\ 3581}#
- #{x\ 3631}#
- (1+ #{n\ 3597}#)
- #{ids\ 3636}#))
- (lambda (#{x\ 3639}#
- #{ids\ 3640}#)
+ (#{cvt\ 3582}#
+ #{x\ 3632}#
+ (1+ #{n\ 3598}#)
+ #{ids\ 3637}#))
+ (lambda (#{x\ 3640}#
+ #{ids\ 3641}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 3639}#
+ (cons #{x\ 3640}#
(cons
(reverse
-
#{ys\ 3635}#)
+
#{ys\ 3636}#)
'(())))))
- #{ids\ 3640}#))))))
- #{tmp\ 3621}#)
- (let ((#{tmp\ 3644}#
+ #{ids\ 3641}#))))))
+ #{tmp\ 3622}#)
+ (let ((#{tmp\ 3645}#
($sc-dispatch
- #{tmp\ 3607}#
+ #{tmp\ 3608}#
'(any . any))))
- (if #{tmp\ 3644}#
+ (if #{tmp\ 3645}#
(@apply
- (lambda (#{x\ 3647}# #{y\ 3648}#)
+ (lambda (#{x\ 3648}# #{y\ 3649}#)
(call-with-values
(lambda ()
- (#{cvt\ 3581}#
- #{y\ 3648}#
- #{n\ 3597}#
- #{ids\ 3598}#))
- (lambda (#{y\ 3649}#
- #{ids\ 3650}#)
+ (#{cvt\ 3582}#
+ #{y\ 3649}#
+ #{n\ 3598}#
+ #{ids\ 3599}#))
+ (lambda (#{y\ 3650}#
+ #{ids\ 3651}#)
(call-with-values
(lambda ()
- (#{cvt\ 3581}#
- #{x\ 3647}#
- #{n\ 3597}#
- #{ids\ 3650}#))
- (lambda (#{x\ 3653}#
- #{ids\ 3654}#)
+ (#{cvt\ 3582}#
+ #{x\ 3648}#
+ #{n\ 3598}#
+ #{ids\ 3651}#))
+ (lambda (#{x\ 3654}#
+ #{ids\ 3655}#)
(values
- (cons #{x\ 3653}#
- #{y\ 3649}#)
- #{ids\ 3654}#))))))
- #{tmp\ 3644}#)
- (let ((#{tmp\ 3657}#
+ (cons #{x\ 3654}#
+ #{y\ 3650}#)
+ #{ids\ 3655}#))))))
+ #{tmp\ 3645}#)
+ (let ((#{tmp\ 3658}#
($sc-dispatch
- #{tmp\ 3607}#
+ #{tmp\ 3608}#
'())))
- (if #{tmp\ 3657}#
+ (if #{tmp\ 3658}#
(@apply
(lambda ()
(values
'()
- #{ids\ 3598}#))
- #{tmp\ 3657}#)
- (let ((#{tmp\ 3658}#
+ #{ids\ 3599}#))
+ #{tmp\ 3658}#)
+ (let ((#{tmp\ 3659}#
($sc-dispatch
- #{tmp\ 3607}#
+ #{tmp\ 3608}#
'#(vector
each-any))))
- (if #{tmp\ 3658}#
+ (if #{tmp\ 3659}#
(@apply
- (lambda (#{x\ 3660}#)
+ (lambda (#{x\ 3661}#)
(call-with-values
(lambda ()
- (#{cvt\ 3581}#
- #{x\ 3660}#
- #{n\ 3597}#
- #{ids\ 3598}#))
- (lambda (#{p\ 3662}#
- #{ids\
3663}#)
+ (#{cvt\ 3582}#
+ #{x\ 3661}#
+ #{n\ 3598}#
+ #{ids\ 3599}#))
+ (lambda (#{p\ 3663}#
+ #{ids\
3664}#)
(values
(vector
'vector
- #{p\ 3662}#)
- #{ids\ 3663}#))))
- #{tmp\ 3658}#)
- (let ((#{x\ 3667}#
- #{tmp\ 3607}#))
+ #{p\ 3663}#)
+ #{ids\ 3664}#))))
+ #{tmp\ 3659}#)
+ (let ((#{x\ 3668}#
+ #{tmp\ 3608}#))
(values
(vector
'atom
- (#{strip\ 490}#
- #{p\ 3596}#
+ (#{strip\ 491}#
+ #{p\ 3597}#
'(())))
- #{ids\
3598}#)))))))))))))))))
+ #{ids\
3599}#)))))))))))))))))
(begin
- (#{cvt\ 3581}# #{pattern\ 3574}# 0 (quote ()))))))
- (#{build-dispatch-call\ 3569}#
- (lambda (#{pvars\ 3669}#
- #{exp\ 3670}#
- #{y\ 3671}#
- #{r\ 3672}#
- #{mod\ 3673}#)
+ (#{cvt\ 3582}# #{pattern\ 3575}# 0 (quote ()))))))
+ (#{build-dispatch-call\ 3570}#
+ (lambda (#{pvars\ 3670}#
+ #{exp\ 3671}#
+ #{y\ 3672}#
+ #{r\ 3673}#
+ #{mod\ 3674}#)
(begin
- (map cdr #{pvars\ 3669}#)
- (let ((#{ids\ 3681}# (map car #{pvars\ 3669}#)))
+ (map cdr #{pvars\ 3670}#)
+ (let ((#{ids\ 3682}# (map car #{pvars\ 3670}#)))
(begin
- (let ((#{labels\ 3685}#
- (#{gen-labels\ 397}# #{ids\ 3681}#))
- (#{new-vars\ 3686}#
- (map #{gen-var\ 492}# #{ids\ 3681}#)))
- (#{build-application\ 303}#
+ (let ((#{labels\ 3686}#
+ (#{gen-labels\ 398}# #{ids\ 3682}#))
+ (#{new-vars\ 3687}#
+ (map #{gen-var\ 493}# #{ids\ 3682}#)))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 327}# #f (quote apply))
- (list (#{build-simple-lambda\ 321}#
+ (#{build-primref\ 328}# #f (quote apply))
+ (list (#{build-simple-lambda\ 322}#
#f
- (map syntax->datum #{ids\ 3681}#)
+ (map syntax->datum #{ids\ 3682}#)
#f
- #{new-vars\ 3686}#
+ #{new-vars\ 3687}#
'()
- (#{chi\ 464}#
- #{exp\ 3670}#
- (#{extend-env\ 367}#
- #{labels\ 3685}#
- (map (lambda (#{var\ 3690}#
- #{level\ 3691}#)
+ (#{chi\ 465}#
+ #{exp\ 3671}#
+ (#{extend-env\ 368}#
+ #{labels\ 3686}#
+ (map (lambda (#{var\ 3691}#
+ #{level\ 3692}#)
(cons 'syntax
- (cons #{var\ 3690}#
- #{level\
3691}#)))
- #{new-vars\ 3686}#
- (map cdr #{pvars\ 3669}#))
- #{r\ 3672}#)
- (#{make-binding-wrap\ 426}#
- #{ids\ 3681}#
- #{labels\ 3685}#
+ (cons #{var\ 3691}#
+ #{level\
3692}#)))
+ #{new-vars\ 3687}#
+ (map cdr #{pvars\ 3670}#))
+ #{r\ 3673}#)
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3682}#
+ #{labels\ 3686}#
'(()))
- #{mod\ 3673}#))
- #{y\ 3671}#))))))))
- (#{gen-clause\ 3571}#
- (lambda (#{x\ 3697}#
- #{keys\ 3698}#
- #{clauses\ 3699}#
- #{r\ 3700}#
- #{pat\ 3701}#
- #{fender\ 3702}#
- #{exp\ 3703}#
- #{mod\ 3704}#)
+ #{mod\ 3674}#))
+ #{y\ 3672}#))))))))
+ (#{gen-clause\ 3572}#
+ (lambda (#{x\ 3698}#
+ #{keys\ 3699}#
+ #{clauses\ 3700}#
+ #{r\ 3701}#
+ #{pat\ 3702}#
+ #{fender\ 3703}#
+ #{exp\ 3704}#
+ #{mod\ 3705}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3567}#
- #{pat\ 3701}#
- #{keys\ 3698}#))
- (lambda (#{p\ 3713}# #{pvars\ 3714}#)
- (if (not (#{distinct-bound-ids?\ 444}#
- (map car #{pvars\ 3714}#)))
+ (#{convert-pattern\ 3568}#
+ #{pat\ 3702}#
+ #{keys\ 3699}#))
+ (lambda (#{p\ 3714}# #{pvars\ 3715}#)
+ (if (not (#{distinct-bound-ids?\ 445}#
+ (map car #{pvars\ 3715}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3701}#)
+ #{pat\ 3702}#)
(if (not (and-map
- (lambda (#{x\ 3721}#)
- (not (#{ellipsis?\ 480}#
- (car #{x\ 3721}#))))
- #{pvars\ 3714}#))
+ (lambda (#{x\ 3722}#)
+ (not (#{ellipsis?\ 481}#
+ (car #{x\ 3722}#))))
+ #{pvars\ 3715}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3701}#)
+ #{pat\ 3702}#)
(begin
- (let ((#{y\ 3725}#
- (#{gen-var\ 492}# (quote tmp))))
- (#{build-application\ 303}#
+ (let ((#{y\ 3726}#
+ (#{gen-var\ 493}# (quote tmp))))
+ (#{build-application\ 304}#
#f
- (#{build-simple-lambda\ 321}#
+ (#{build-simple-lambda\ 322}#
#f
(list (quote tmp))
#f
- (list #{y\ 3725}#)
+ (list #{y\ 3726}#)
'()
(begin
- (let ((#{y\ 3729}#
- (#{build-lexical-reference\
309}#
+ (let ((#{y\ 3730}#
+ (#{build-lexical-reference\
310}#
'value
#f
'tmp
- #{y\ 3725}#)))
- (#{build-conditional\ 305}#
+ #{y\ 3726}#)))
+ (#{build-conditional\ 306}#
#f
- (let ((#{tmp\ 3732}#
- #{fender\ 3702}#))
- (let ((#{tmp\ 3733}#
+ (let ((#{tmp\ 3733}#
+ #{fender\ 3703}#))
+ (let ((#{tmp\ 3734}#
($sc-dispatch
- #{tmp\ 3732}#
+ #{tmp\ 3733}#
'#(atom #t))))
- (if #{tmp\ 3733}#
+ (if #{tmp\ 3734}#
(@apply
- (lambda () #{y\ 3729}#)
- #{tmp\ 3733}#)
- (let ((#{_\ 3735}#
- #{tmp\ 3732}#))
- (#{build-conditional\ 305}#
+ (lambda () #{y\ 3730}#)
+ #{tmp\ 3734}#)
+ (let ((#{_\ 3736}#
+ #{tmp\ 3733}#))
+ (#{build-conditional\ 306}#
#f
- #{y\ 3729}#
- (#{build-dispatch-call\
3569}#
- #{pvars\ 3714}#
- #{fender\ 3702}#
- #{y\ 3729}#
- #{r\ 3700}#
- #{mod\ 3704}#)
- (#{build-data\ 329}#
+ #{y\ 3730}#
+ (#{build-dispatch-call\
3570}#
+ #{pvars\ 3715}#
+ #{fender\ 3703}#
+ #{y\ 3730}#
+ #{r\ 3701}#
+ #{mod\ 3705}#)
+ (#{build-data\ 330}#
#f
#f))))))
- (#{build-dispatch-call\ 3569}#
- #{pvars\ 3714}#
- #{exp\ 3703}#
- #{y\ 3729}#
- #{r\ 3700}#
- #{mod\ 3704}#)
- (#{gen-syntax-case\ 3573}#
- #{x\ 3697}#
- #{keys\ 3698}#
- #{clauses\ 3699}#
- #{r\ 3700}#
- #{mod\ 3704}#)))))
- (list (if (eq? #{p\ 3713}# (quote any))
- (#{build-application\ 303}#
+ (#{build-dispatch-call\ 3570}#
+ #{pvars\ 3715}#
+ #{exp\ 3704}#
+ #{y\ 3730}#
+ #{r\ 3701}#
+ #{mod\ 3705}#)
+ (#{gen-syntax-case\ 3574}#
+ #{x\ 3698}#
+ #{keys\ 3699}#
+ #{clauses\ 3700}#
+ #{r\ 3701}#
+ #{mod\ 3705}#)))))
+ (list (if (eq? #{p\ 3714}# (quote any))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 327}#
+ (#{build-primref\ 328}#
#f
'list)
- (list #{x\ 3697}#))
- (#{build-application\ 303}#
+ (list #{x\ 3698}#))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 327}#
+ (#{build-primref\ 328}#
#f
'$sc-dispatch)
- (list #{x\ 3697}#
- (#{build-data\ 329}#
+ (list #{x\ 3698}#
+ (#{build-data\ 330}#
#f
- #{p\ 3713}#))))))))))))))
- (#{gen-syntax-case\ 3573}#
- (lambda (#{x\ 3743}#
- #{keys\ 3744}#
- #{clauses\ 3745}#
- #{r\ 3746}#
- #{mod\ 3747}#)
- (if (null? #{clauses\ 3745}#)
- (#{build-application\ 303}#
+ #{p\ 3714}#))))))))))))))
+ (#{gen-syntax-case\ 3574}#
+ (lambda (#{x\ 3744}#
+ #{keys\ 3745}#
+ #{clauses\ 3746}#
+ #{r\ 3747}#
+ #{mod\ 3748}#)
+ (if (null? #{clauses\ 3746}#)
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 327}#
+ (#{build-primref\ 328}#
#f
'syntax-violation)
- (list (#{build-data\ 329}# #f #f)
- (#{build-data\ 329}#
+ (list (#{build-data\ 330}# #f #f)
+ (#{build-data\ 330}#
#f
"source expression failed to match any
pattern")
- #{x\ 3743}#))
- (let ((#{tmp\ 3757}# (car #{clauses\ 3745}#)))
- (let ((#{tmp\ 3758}#
+ #{x\ 3744}#))
+ (let ((#{tmp\ 3758}# (car #{clauses\ 3746}#)))
+ (let ((#{tmp\ 3759}#
($sc-dispatch
- #{tmp\ 3757}#
+ #{tmp\ 3758}#
'(any any))))
- (if #{tmp\ 3758}#
+ (if #{tmp\ 3759}#
(@apply
- (lambda (#{pat\ 3761}# #{exp\ 3762}#)
- (if (if (#{id?\ 379}# #{pat\ 3761}#)
+ (lambda (#{pat\ 3762}# #{exp\ 3763}#)
+ (if (if (#{id?\ 380}# #{pat\ 3762}#)
(and-map
- (lambda (#{x\ 3765}#)
- (not (#{free-id=?\ 438}#
- #{pat\ 3761}#
- #{x\ 3765}#)))
+ (lambda (#{x\ 3766}#)
+ (not (#{free-id=?\ 439}#
+ #{pat\ 3762}#
+ #{x\ 3766}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3759" "i3760"))
+ #("i3760" "i3761"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -12674,21 +12674,21 @@
(top)
(top)
(top))
- #("i3748"
- "i3749"
+ #("i3749"
"i3750"
"i3751"
- "i3752"))
+ "i3752"
+ "i3753"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3572"
- "i3570"
- "i3568"
- "i3566"))
+ ("i3573"
+ "i3571"
+ "i3569"
+ "i3567"))
#(ribcage
(lambda-var-list
gen-var
@@ -12964,183 +12964,183 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38"
+ ("i39"
+ "i38"
"i37"
- "i36"
- "i34")))
+ "i35")))
(hygiene guile))
- #{keys\ 3744}#))
+ #{keys\ 3745}#))
#f)
- (if (#{free-id=?\ 438}#
+ (if (#{free-id=?\ 439}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3759" "i3760"))
+ #("i3760" "i3761"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3748"
- "i3749"
+ #("i3749"
"i3750"
"i3751"
- "i3752"))
+ "i3752"
+ "i3753"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3572"
- "i3570"
- "i3568"
- "i3566"))
+ ("i3573"
+ "i3571"
+ "i3569"
+ "i3567"))
#(ribcage
(lambda-var-list
gen-var
@@ -13416,150 +13416,150 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile))
'#(syntax-object
_
@@ -13567,26 +13567,26 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3759" "i3760"))
+ #("i3760" "i3761"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3748"
- "i3749"
+ #("i3749"
"i3750"
"i3751"
- "i3752"))
+ "i3752"
+ "i3753"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3572"
- "i3570"
- "i3568"
- "i3566"))
+ ("i3573"
+ "i3571"
+ "i3569"
+ "i3567"))
#(ribcage
(lambda-var-list
gen-var
@@ -13862,750 +13862,750 @@
(top)
(top)
(top))
- ("i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
+ ("i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
"i423"
"i422"
- "i421"
+ "i420"
"i419"
"i418"
"i417"
"i416"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i396"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
"i394"
"i393"
"i392"
"i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
"i360"
- "i359"
+ "i358"
"i357"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"))
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
- (#{chi\ 464}#
- #{exp\ 3762}#
- #{r\ 3746}#
+ (#{chi\ 465}#
+ #{exp\ 3763}#
+ #{r\ 3747}#
'(())
- #{mod\ 3747}#)
+ #{mod\ 3748}#)
(begin
- (let ((#{labels\ 3770}#
- (list (#{gen-label\ 395}#)))
- (#{var\ 3771}#
- (#{gen-var\ 492}#
- #{pat\ 3761}#)))
- (#{build-application\ 303}#
+ (let ((#{labels\ 3771}#
+ (list (#{gen-label\ 396}#)))
+ (#{var\ 3772}#
+ (#{gen-var\ 493}#
+ #{pat\ 3762}#)))
+ (#{build-application\ 304}#
#f
- (#{build-simple-lambda\ 321}#
+ (#{build-simple-lambda\ 322}#
#f
(list (syntax->datum
- #{pat\ 3761}#))
+ #{pat\ 3762}#))
#f
- (list #{var\ 3771}#)
+ (list #{var\ 3772}#)
'()
- (#{chi\ 464}#
- #{exp\ 3762}#
- (#{extend-env\ 367}#
- #{labels\ 3770}#
+ (#{chi\ 465}#
+ #{exp\ 3763}#
+ (#{extend-env\ 368}#
+ #{labels\ 3771}#
(list (cons 'syntax
- (cons #{var\
3771}#
+ (cons #{var\
3772}#
0)))
- #{r\ 3746}#)
- (#{make-binding-wrap\ 426}#
- (list #{pat\ 3761}#)
- #{labels\ 3770}#
+ #{r\ 3747}#)
+ (#{make-binding-wrap\ 427}#
+ (list #{pat\ 3762}#)
+ #{labels\ 3771}#
'(()))
- #{mod\ 3747}#))
- (list #{x\ 3743}#)))))
- (#{gen-clause\ 3571}#
- #{x\ 3743}#
- #{keys\ 3744}#
- (cdr #{clauses\ 3745}#)
- #{r\ 3746}#
- #{pat\ 3761}#
+ #{mod\ 3748}#))
+ (list #{x\ 3744}#)))))
+ (#{gen-clause\ 3572}#
+ #{x\ 3744}#
+ #{keys\ 3745}#
+ (cdr #{clauses\ 3746}#)
+ #{r\ 3747}#
+ #{pat\ 3762}#
#t
- #{exp\ 3762}#
- #{mod\ 3747}#)))
- #{tmp\ 3758}#)
- (let ((#{tmp\ 3777}#
+ #{exp\ 3763}#
+ #{mod\ 3748}#)))
+ #{tmp\ 3759}#)
+ (let ((#{tmp\ 3778}#
($sc-dispatch
- #{tmp\ 3757}#
+ #{tmp\ 3758}#
'(any any any))))
- (if #{tmp\ 3777}#
+ (if #{tmp\ 3778}#
(@apply
- (lambda (#{pat\ 3781}#
- #{fender\ 3782}#
- #{exp\ 3783}#)
- (#{gen-clause\ 3571}#
- #{x\ 3743}#
- #{keys\ 3744}#
- (cdr #{clauses\ 3745}#)
- #{r\ 3746}#
- #{pat\ 3781}#
- #{fender\ 3782}#
- #{exp\ 3783}#
- #{mod\ 3747}#))
- #{tmp\ 3777}#)
- (let ((#{_\ 3785}# #{tmp\ 3757}#))
+ (lambda (#{pat\ 3782}#
+ #{fender\ 3783}#
+ #{exp\ 3784}#)
+ (#{gen-clause\ 3572}#
+ #{x\ 3744}#
+ #{keys\ 3745}#
+ (cdr #{clauses\ 3746}#)
+ #{r\ 3747}#
+ #{pat\ 3782}#
+ #{fender\ 3783}#
+ #{exp\ 3784}#
+ #{mod\ 3748}#))
+ #{tmp\ 3778}#)
+ (let ((#{_\ 3786}# #{tmp\ 3758}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3745}#))))))))))))
+ (car #{clauses\ 3746}#))))))))))))
(begin
- (lambda (#{e\ 3786}#
- #{r\ 3787}#
- #{w\ 3788}#
- #{s\ 3789}#
- #{mod\ 3790}#)
+ (lambda (#{e\ 3787}#
+ #{r\ 3788}#
+ #{w\ 3789}#
+ #{s\ 3790}#
+ #{mod\ 3791}#)
(begin
- (let ((#{e\ 3797}#
- (#{source-wrap\ 450}#
- #{e\ 3786}#
- #{w\ 3788}#
- #{s\ 3789}#
- #{mod\ 3790}#)))
- (let ((#{tmp\ 3798}# #{e\ 3797}#))
- (let ((#{tmp\ 3799}#
+ (let ((#{e\ 3798}#
+ (#{source-wrap\ 451}#
+ #{e\ 3787}#
+ #{w\ 3789}#
+ #{s\ 3790}#
+ #{mod\ 3791}#)))
+ (let ((#{tmp\ 3799}# #{e\ 3798}#))
+ (let ((#{tmp\ 3800}#
($sc-dispatch
- #{tmp\ 3798}#
+ #{tmp\ 3799}#
'(_ any each-any . each-any))))
- (if #{tmp\ 3799}#
+ (if #{tmp\ 3800}#
(@apply
- (lambda (#{val\ 3803}#
- #{key\ 3804}#
- #{m\ 3805}#)
+ (lambda (#{val\ 3804}#
+ #{key\ 3805}#
+ #{m\ 3806}#)
(if (and-map
- (lambda (#{x\ 3806}#)
- (if (#{id?\ 379}# #{x\ 3806}#)
- (not (#{ellipsis?\ 480}#
- #{x\ 3806}#))
+ (lambda (#{x\ 3807}#)
+ (if (#{id?\ 380}# #{x\ 3807}#)
+ (not (#{ellipsis?\ 481}#
+ #{x\ 3807}#))
#f))
- #{key\ 3804}#)
+ #{key\ 3805}#)
(begin
- (let ((#{x\ 3812}#
- (#{gen-var\ 492}# (quote tmp))))
- (#{build-application\ 303}#
- #{s\ 3789}#
- (#{build-simple-lambda\ 321}#
+ (let ((#{x\ 3813}#
+ (#{gen-var\ 493}# (quote tmp))))
+ (#{build-application\ 304}#
+ #{s\ 3790}#
+ (#{build-simple-lambda\ 322}#
#f
(list (quote tmp))
#f
- (list #{x\ 3812}#)
+ (list #{x\ 3813}#)
'()
- (#{gen-syntax-case\ 3573}#
- (#{build-lexical-reference\ 309}#
+ (#{gen-syntax-case\ 3574}#
+ (#{build-lexical-reference\ 310}#
'value
#f
'tmp
- #{x\ 3812}#)
- #{key\ 3804}#
- #{m\ 3805}#
- #{r\ 3787}#
- #{mod\ 3790}#))
- (list (#{chi\ 464}#
- #{val\ 3803}#
- #{r\ 3787}#
+ #{x\ 3813}#)
+ #{key\ 3805}#
+ #{m\ 3806}#
+ #{r\ 3788}#
+ #{mod\ 3791}#))
+ (list (#{chi\ 465}#
+ #{val\ 3804}#
+ #{r\ 3788}#
'(())
- #{mod\ 3790}#)))))
+ #{mod\ 3791}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3797}#)))
- #{tmp\ 3799}#)
+ #{e\ 3798}#)))
+ #{tmp\ 3800}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3798}#))))))))))
+ #{tmp\ 3799}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 3818}#
+ (#{x\ 3819}#
#:optional
- (#{m\ 3820}# (quote e))
- (#{esew\ 3822}# (quote (eval))))
- (#{chi-top\ 462}#
- #{x\ 3818}#
+ (#{m\ 3821}# (quote e))
+ (#{esew\ 3823}# (quote (eval))))
+ (#{chi-top\ 463}#
+ #{x\ 3819}#
'()
'((top))
- #{m\ 3820}#
- #{esew\ 3822}#
+ #{m\ 3821}#
+ #{esew\ 3823}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3826}#)
- (#{nonsymbol-id?\ 377}# #{x\ 3826}#)))
+ (lambda (#{x\ 3827}#)
+ (#{nonsymbol-id?\ 378}# #{x\ 3827}#)))
(set! datum->syntax
- (lambda (#{id\ 3828}# #{datum\ 3829}#)
- (#{make-syntax-object\ 341}#
- #{datum\ 3829}#
- (#{syntax-object-wrap\ 347}# #{id\ 3828}#)
- (#{syntax-object-module\ 349}# #{id\ 3828}#))))
+ (lambda (#{id\ 3829}# #{datum\ 3830}#)
+ (#{make-syntax-object\ 342}#
+ #{datum\ 3830}#
+ (#{syntax-object-wrap\ 348}# #{id\ 3829}#)
+ (#{syntax-object-module\ 350}# #{id\ 3829}#))))
(set! syntax->datum
- (lambda (#{x\ 3832}#)
- (#{strip\ 490}# #{x\ 3832}# (quote (())))))
+ (lambda (#{x\ 3833}#)
+ (#{strip\ 491}# #{x\ 3833}# (quote (())))))
(set! syntax-source
- (lambda (#{x\ 3835}#)
- (#{source-annotation\ 358}# #{x\ 3835}#)))
+ (lambda (#{x\ 3836}#)
+ (#{source-annotation\ 359}# #{x\ 3836}#)))
(set! generate-temporaries
- (lambda (#{ls\ 3837}#)
+ (lambda (#{ls\ 3838}#)
(begin
(begin
- (let ((#{x\ 3841}# #{ls\ 3837}#))
- (if (not (list? #{x\ 3841}#))
+ (let ((#{x\ 3842}# #{ls\ 3838}#))
+ (if (not (list? #{x\ 3842}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3841}#))))
- (map (lambda (#{x\ 3842}#)
- (#{wrap\ 448}# (gensym) (quote ((top))) #f))
- #{ls\ 3837}#))))
+ #{x\ 3842}#))))
+ (map (lambda (#{x\ 3843}#)
+ (#{wrap\ 449}# (gensym) (quote ((top))) #f))
+ #{ls\ 3838}#))))
(set! free-identifier=?
- (lambda (#{x\ 3846}# #{y\ 3847}#)
+ (lambda (#{x\ 3847}# #{y\ 3848}#)
(begin
(begin
- (let ((#{x\ 3852}# #{x\ 3846}#))
- (if (not (#{nonsymbol-id?\ 377}# #{x\ 3852}#))
+ (let ((#{x\ 3853}# #{x\ 3847}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3853}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3852}#))))
+ #{x\ 3853}#))))
(begin
- (let ((#{x\ 3855}# #{y\ 3847}#))
- (if (not (#{nonsymbol-id?\ 377}# #{x\ 3855}#))
+ (let ((#{x\ 3856}# #{y\ 3848}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3856}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3855}#))))
- (#{free-id=?\ 438}# #{x\ 3846}# #{y\ 3847}#))))
+ #{x\ 3856}#))))
+ (#{free-id=?\ 439}# #{x\ 3847}# #{y\ 3848}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3856}# #{y\ 3857}#)
+ (lambda (#{x\ 3857}# #{y\ 3858}#)
(begin
(begin
- (let ((#{x\ 3862}# #{x\ 3856}#))
- (if (not (#{nonsymbol-id?\ 377}# #{x\ 3862}#))
+ (let ((#{x\ 3863}# #{x\ 3857}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3863}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3862}#))))
+ #{x\ 3863}#))))
(begin
- (let ((#{x\ 3865}# #{y\ 3857}#))
- (if (not (#{nonsymbol-id?\ 377}# #{x\ 3865}#))
+ (let ((#{x\ 3866}# #{y\ 3858}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3866}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3865}#))))
- (#{bound-id=?\ 440}# #{x\ 3856}# #{y\ 3857}#))))
+ #{x\ 3866}#))))
+ (#{bound-id=?\ 441}# #{x\ 3857}# #{y\ 3858}#))))
(set! syntax-violation
- (lambda (#{who\ 3866}#
- #{message\ 3867}#
- #{form\ 3868}#
+ (lambda (#{who\ 3867}#
+ #{message\ 3868}#
+ #{form\ 3869}#
.
- #{subform\ 3869}#)
+ #{subform\ 3870}#)
(begin
(begin
- (let ((#{x\ 3876}# #{who\ 3866}#))
- (if (not (let ((#{x\ 3877}# #{x\ 3876}#))
+ (let ((#{x\ 3877}# #{who\ 3867}#))
+ (if (not (let ((#{x\ 3878}# #{x\ 3877}#))
(begin
- (let ((#{t\ 3881}# (not #{x\ 3877}#)))
- (if #{t\ 3881}#
- #{t\ 3881}#
+ (let ((#{t\ 3882}# (not #{x\ 3878}#)))
+ (if #{t\ 3882}#
+ #{t\ 3882}#
(begin
- (let ((#{t\ 3884}#
- (string? #{x\ 3877}#)))
- (if #{t\ 3884}#
- #{t\ 3884}#
- (symbol? #{x\ 3877}#)))))))))
+ (let ((#{t\ 3885}#
+ (string? #{x\ 3878}#)))
+ (if #{t\ 3885}#
+ #{t\ 3885}#
+ (symbol? #{x\ 3878}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3876}#))))
+ #{x\ 3877}#))))
(begin
- (let ((#{x\ 3888}# #{message\ 3867}#))
- (if (not (string? #{x\ 3888}#))
+ (let ((#{x\ 3889}# #{message\ 3868}#))
+ (if (not (string? #{x\ 3889}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3888}#))))
+ #{x\ 3889}#))))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 3866}# "~a: " "")
+ (if #{who\ 3867}# "~a: " "")
"~a "
- (if (null? #{subform\ 3869}#)
+ (if (null? #{subform\ 3870}#)
"in ~a"
"in subform `~s' of `~s'"))
(begin
- (let ((#{tail\ 3890}#
- (cons #{message\ 3867}#
- (map (lambda (#{x\ 3891}#)
- (#{strip\ 490}#
- #{x\ 3891}#
+ (let ((#{tail\ 3891}#
+ (cons #{message\ 3868}#
+ (map (lambda (#{x\ 3892}#)
+ (#{strip\ 491}#
+ #{x\ 3892}#
'(())))
(append
- #{subform\ 3869}#
- (list #{form\ 3868}#))))))
- (if #{who\ 3866}#
- (cons #{who\ 3866}# #{tail\ 3890}#)
- #{tail\ 3890}#)))
+ #{subform\ 3870}#
+ (list #{form\ 3869}#))))))
+ (if #{who\ 3867}#
+ (cons #{who\ 3867}# #{tail\ 3891}#)
+ #{tail\ 3891}#)))
#f))))
(letrec*
- ((#{match-each\ 3895}#
- (lambda (#{e\ 3908}#
- #{p\ 3909}#
- #{w\ 3910}#
- #{mod\ 3911}#)
- (if (pair? #{e\ 3908}#)
+ ((#{match-each\ 3896}#
+ (lambda (#{e\ 3909}#
+ #{p\ 3910}#
+ #{w\ 3911}#
+ #{mod\ 3912}#)
+ (if (pair? #{e\ 3909}#)
(begin
- (let ((#{first\ 3919}#
- (#{match\ 3907}#
- (car #{e\ 3908}#)
- #{p\ 3909}#
- #{w\ 3910}#
+ (let ((#{first\ 3920}#
+ (#{match\ 3908}#
+ (car #{e\ 3909}#)
+ #{p\ 3910}#
+ #{w\ 3911}#
'()
- #{mod\ 3911}#)))
- (if #{first\ 3919}#
+ #{mod\ 3912}#)))
+ (if #{first\ 3920}#
(begin
- (let ((#{rest\ 3923}#
- (#{match-each\ 3895}#
- (cdr #{e\ 3908}#)
- #{p\ 3909}#
- #{w\ 3910}#
- #{mod\ 3911}#)))
- (if #{rest\ 3923}#
- (cons #{first\ 3919}# #{rest\ 3923}#)
+ (let ((#{rest\ 3924}#
+ (#{match-each\ 3896}#
+ (cdr #{e\ 3909}#)
+ #{p\ 3910}#
+ #{w\ 3911}#
+ #{mod\ 3912}#)))
+ (if #{rest\ 3924}#
+ (cons #{first\ 3920}# #{rest\ 3924}#)
#f)))
#f)))
- (if (null? #{e\ 3908}#)
+ (if (null? #{e\ 3909}#)
'()
- (if (#{syntax-object?\ 343}# #{e\ 3908}#)
- (#{match-each\ 3895}#
- (#{syntax-object-expression\ 345}# #{e\ 3908}#)
- #{p\ 3909}#
- (#{join-wraps\ 430}#
- #{w\ 3910}#
- (#{syntax-object-wrap\ 347}# #{e\ 3908}#))
- (#{syntax-object-module\ 349}# #{e\ 3908}#))
+ (if (#{syntax-object?\ 344}# #{e\ 3909}#)
+ (#{match-each\ 3896}#
+ (#{syntax-object-expression\ 346}# #{e\ 3909}#)
+ #{p\ 3910}#
+ (#{join-wraps\ 431}#
+ #{w\ 3911}#
+ (#{syntax-object-wrap\ 348}# #{e\ 3909}#))
+ (#{syntax-object-module\ 350}# #{e\ 3909}#))
#f)))))
- (#{match-each+\ 3897}#
- (lambda (#{e\ 3931}#
- #{x-pat\ 3932}#
- #{y-pat\ 3933}#
- #{z-pat\ 3934}#
- #{w\ 3935}#
- #{r\ 3936}#
- #{mod\ 3937}#)
+ (#{match-each+\ 3898}#
+ (lambda (#{e\ 3932}#
+ #{x-pat\ 3933}#
+ #{y-pat\ 3934}#
+ #{z-pat\ 3935}#
+ #{w\ 3936}#
+ #{r\ 3937}#
+ #{mod\ 3938}#)
(letrec*
- ((#{f\ 3948}#
- (lambda (#{e\ 3949}# #{w\ 3950}#)
- (if (pair? #{e\ 3949}#)
+ ((#{f\ 3949}#
+ (lambda (#{e\ 3950}# #{w\ 3951}#)
+ (if (pair? #{e\ 3950}#)
(call-with-values
(lambda ()
- (#{f\ 3948}# (cdr #{e\ 3949}#) #{w\ 3950}#))
- (lambda (#{xr*\ 3953}#
- #{y-pat\ 3954}#
- #{r\ 3955}#)
- (if #{r\ 3955}#
- (if (null? #{y-pat\ 3954}#)
+ (#{f\ 3949}# (cdr #{e\ 3950}#) #{w\ 3951}#))
+ (lambda (#{xr*\ 3954}#
+ #{y-pat\ 3955}#
+ #{r\ 3956}#)
+ (if #{r\ 3956}#
+ (if (null? #{y-pat\ 3955}#)
(begin
- (let ((#{xr\ 3960}#
- (#{match\ 3907}#
- (car #{e\ 3949}#)
- #{x-pat\ 3932}#
- #{w\ 3950}#
+ (let ((#{xr\ 3961}#
+ (#{match\ 3908}#
+ (car #{e\ 3950}#)
+ #{x-pat\ 3933}#
+ #{w\ 3951}#
'()
- #{mod\ 3937}#)))
- (if #{xr\ 3960}#
+ #{mod\ 3938}#)))
+ (if #{xr\ 3961}#
(values
- (cons #{xr\ 3960}# #{xr*\ 3953}#)
- #{y-pat\ 3954}#
- #{r\ 3955}#)
+ (cons #{xr\ 3961}# #{xr*\ 3954}#)
+ #{y-pat\ 3955}#
+ #{r\ 3956}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat\ 3954}#)
- (#{match\ 3907}#
- (car #{e\ 3949}#)
- (car #{y-pat\ 3954}#)
- #{w\ 3950}#
- #{r\ 3955}#
- #{mod\ 3937}#)))
+ (cdr #{y-pat\ 3955}#)
+ (#{match\ 3908}#
+ (car #{e\ 3950}#)
+ (car #{y-pat\ 3955}#)
+ #{w\ 3951}#
+ #{r\ 3956}#
+ #{mod\ 3938}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 343}# #{e\ 3949}#)
- (#{f\ 3948}#
- (#{syntax-object-expression\ 345}# #{e\ 3949}#)
- (#{join-wraps\ 430}# #{w\ 3950}# #{e\ 3949}#))
+ (if (#{syntax-object?\ 344}# #{e\ 3950}#)
+ (#{f\ 3949}#
+ (#{syntax-object-expression\ 346}# #{e\ 3950}#)
+ (#{join-wraps\ 431}# #{w\ 3951}# #{e\ 3950}#))
(values
'()
- #{y-pat\ 3933}#
- (#{match\ 3907}#
- #{e\ 3949}#
- #{z-pat\ 3934}#
- #{w\ 3950}#
- #{r\ 3936}#
- #{mod\ 3937}#)))))))
- (begin (#{f\ 3948}# #{e\ 3931}# #{w\ 3935}#)))))
- (#{match-each-any\ 3899}#
- (lambda (#{e\ 3964}# #{w\ 3965}# #{mod\ 3966}#)
- (if (pair? #{e\ 3964}#)
+ #{y-pat\ 3934}#
+ (#{match\ 3908}#
+ #{e\ 3950}#
+ #{z-pat\ 3935}#
+ #{w\ 3951}#
+ #{r\ 3937}#
+ #{mod\ 3938}#)))))))
+ (begin (#{f\ 3949}# #{e\ 3932}# #{w\ 3936}#)))))
+ (#{match-each-any\ 3900}#
+ (lambda (#{e\ 3965}# #{w\ 3966}# #{mod\ 3967}#)
+ (if (pair? #{e\ 3965}#)
(begin
- (let ((#{l\ 3973}#
- (#{match-each-any\ 3899}#
- (cdr #{e\ 3964}#)
- #{w\ 3965}#
- #{mod\ 3966}#)))
- (if #{l\ 3973}#
- (cons (#{wrap\ 448}#
- (car #{e\ 3964}#)
- #{w\ 3965}#
- #{mod\ 3966}#)
- #{l\ 3973}#)
+ (let ((#{l\ 3974}#
+ (#{match-each-any\ 3900}#
+ (cdr #{e\ 3965}#)
+ #{w\ 3966}#
+ #{mod\ 3967}#)))
+ (if #{l\ 3974}#
+ (cons (#{wrap\ 449}#
+ (car #{e\ 3965}#)
+ #{w\ 3966}#
+ #{mod\ 3967}#)
+ #{l\ 3974}#)
#f)))
- (if (null? #{e\ 3964}#)
+ (if (null? #{e\ 3965}#)
'()
- (if (#{syntax-object?\ 343}# #{e\ 3964}#)
- (#{match-each-any\ 3899}#
- (#{syntax-object-expression\ 345}# #{e\ 3964}#)
- (#{join-wraps\ 430}#
- #{w\ 3965}#
- (#{syntax-object-wrap\ 347}# #{e\ 3964}#))
- #{mod\ 3966}#)
+ (if (#{syntax-object?\ 344}# #{e\ 3965}#)
+ (#{match-each-any\ 3900}#
+ (#{syntax-object-expression\ 346}# #{e\ 3965}#)
+ (#{join-wraps\ 431}#
+ #{w\ 3966}#
+ (#{syntax-object-wrap\ 348}# #{e\ 3965}#))
+ #{mod\ 3967}#)
#f)))))
- (#{match-empty\ 3901}#
- (lambda (#{p\ 3981}# #{r\ 3982}#)
- (if (null? #{p\ 3981}#)
- #{r\ 3982}#
- (if (eq? #{p\ 3981}# (quote _))
- #{r\ 3982}#
- (if (eq? #{p\ 3981}# (quote any))
- (cons (quote ()) #{r\ 3982}#)
- (if (pair? #{p\ 3981}#)
- (#{match-empty\ 3901}#
- (car #{p\ 3981}#)
- (#{match-empty\ 3901}#
- (cdr #{p\ 3981}#)
- #{r\ 3982}#))
- (if (eq? #{p\ 3981}# (quote each-any))
- (cons (quote ()) #{r\ 3982}#)
+ (#{match-empty\ 3902}#
+ (lambda (#{p\ 3982}# #{r\ 3983}#)
+ (if (null? #{p\ 3982}#)
+ #{r\ 3983}#
+ (if (eq? #{p\ 3982}# (quote _))
+ #{r\ 3983}#
+ (if (eq? #{p\ 3982}# (quote any))
+ (cons (quote ()) #{r\ 3983}#)
+ (if (pair? #{p\ 3982}#)
+ (#{match-empty\ 3902}#
+ (car #{p\ 3982}#)
+ (#{match-empty\ 3902}#
+ (cdr #{p\ 3982}#)
+ #{r\ 3983}#))
+ (if (eq? #{p\ 3982}# (quote each-any))
+ (cons (quote ()) #{r\ 3983}#)
(begin
- (let ((#{atom-key\ 3998}#
- (vector-ref #{p\ 3981}# 0)))
- (if (eqv? #{atom-key\ 3998}# (quote each))
- (#{match-empty\ 3901}#
- (vector-ref #{p\ 3981}# 1)
- #{r\ 3982}#)
- (if (eqv? #{atom-key\ 3998}# (quote each+))
- (#{match-empty\ 3901}#
- (vector-ref #{p\ 3981}# 1)
- (#{match-empty\ 3901}#
- (reverse (vector-ref #{p\ 3981}# 2))
- (#{match-empty\ 3901}#
- (vector-ref #{p\ 3981}# 3)
- #{r\ 3982}#)))
- (if (if (eqv? #{atom-key\ 3998}#
+ (let ((#{atom-key\ 3999}#
+ (vector-ref #{p\ 3982}# 0)))
+ (if (eqv? #{atom-key\ 3999}# (quote each))
+ (#{match-empty\ 3902}#
+ (vector-ref #{p\ 3982}# 1)
+ #{r\ 3983}#)
+ (if (eqv? #{atom-key\ 3999}# (quote each+))
+ (#{match-empty\ 3902}#
+ (vector-ref #{p\ 3982}# 1)
+ (#{match-empty\ 3902}#
+ (reverse (vector-ref #{p\ 3982}# 2))
+ (#{match-empty\ 3902}#
+ (vector-ref #{p\ 3982}# 3)
+ #{r\ 3983}#)))
+ (if (if (eqv? #{atom-key\ 3999}#
'free-id)
#t
- (eqv? #{atom-key\ 3998}#
+ (eqv? #{atom-key\ 3999}#
'atom))
- #{r\ 3982}#
- (if (eqv? #{atom-key\ 3998}#
+ #{r\ 3983}#
+ (if (eqv? #{atom-key\ 3999}#
'vector)
- (#{match-empty\ 3901}#
- (vector-ref #{p\ 3981}# 1)
- #{r\ 3982}#))))))))))))))
- (#{combine\ 3903}#
- (lambda (#{r*\ 4003}# #{r\ 4004}#)
- (if (null? (car #{r*\ 4003}#))
- #{r\ 4004}#
- (cons (map car #{r*\ 4003}#)
- (#{combine\ 3903}#
- (map cdr #{r*\ 4003}#)
- #{r\ 4004}#)))))
- (#{match*\ 3905}#
- (lambda (#{e\ 4007}#
- #{p\ 4008}#
- #{w\ 4009}#
- #{r\ 4010}#
- #{mod\ 4011}#)
- (if (null? #{p\ 4008}#)
- (if (null? #{e\ 4007}#) #{r\ 4010}# #f)
- (if (pair? #{p\ 4008}#)
- (if (pair? #{e\ 4007}#)
- (#{match\ 3907}#
- (car #{e\ 4007}#)
- (car #{p\ 4008}#)
- #{w\ 4009}#
- (#{match\ 3907}#
- (cdr #{e\ 4007}#)
- (cdr #{p\ 4008}#)
- #{w\ 4009}#
- #{r\ 4010}#
- #{mod\ 4011}#)
- #{mod\ 4011}#)
+ (#{match-empty\ 3902}#
+ (vector-ref #{p\ 3982}# 1)
+ #{r\ 3983}#))))))))))))))
+ (#{combine\ 3904}#
+ (lambda (#{r*\ 4004}# #{r\ 4005}#)
+ (if (null? (car #{r*\ 4004}#))
+ #{r\ 4005}#
+ (cons (map car #{r*\ 4004}#)
+ (#{combine\ 3904}#
+ (map cdr #{r*\ 4004}#)
+ #{r\ 4005}#)))))
+ (#{match*\ 3906}#
+ (lambda (#{e\ 4008}#
+ #{p\ 4009}#
+ #{w\ 4010}#
+ #{r\ 4011}#
+ #{mod\ 4012}#)
+ (if (null? #{p\ 4009}#)
+ (if (null? #{e\ 4008}#) #{r\ 4011}# #f)
+ (if (pair? #{p\ 4009}#)
+ (if (pair? #{e\ 4008}#)
+ (#{match\ 3908}#
+ (car #{e\ 4008}#)
+ (car #{p\ 4009}#)
+ #{w\ 4010}#
+ (#{match\ 3908}#
+ (cdr #{e\ 4008}#)
+ (cdr #{p\ 4009}#)
+ #{w\ 4010}#
+ #{r\ 4011}#
+ #{mod\ 4012}#)
+ #{mod\ 4012}#)
#f)
- (if (eq? #{p\ 4008}# (quote each-any))
+ (if (eq? #{p\ 4009}# (quote each-any))
(begin
- (let ((#{l\ 4028}#
- (#{match-each-any\ 3899}#
- #{e\ 4007}#
- #{w\ 4009}#
- #{mod\ 4011}#)))
- (if #{l\ 4028}#
- (cons #{l\ 4028}# #{r\ 4010}#)
+ (let ((#{l\ 4029}#
+ (#{match-each-any\ 3900}#
+ #{e\ 4008}#
+ #{w\ 4010}#
+ #{mod\ 4012}#)))
+ (if #{l\ 4029}#
+ (cons #{l\ 4029}# #{r\ 4011}#)
#f)))
(begin
- (let ((#{atom-key\ 4034}#
- (vector-ref #{p\ 4008}# 0)))
- (if (eqv? #{atom-key\ 4034}# (quote each))
- (if (null? #{e\ 4007}#)
- (#{match-empty\ 3901}#
- (vector-ref #{p\ 4008}# 1)
- #{r\ 4010}#)
+ (let ((#{atom-key\ 4035}#
+ (vector-ref #{p\ 4009}# 0)))
+ (if (eqv? #{atom-key\ 4035}# (quote each))
+ (if (null? #{e\ 4008}#)
+ (#{match-empty\ 3902}#
+ (vector-ref #{p\ 4009}# 1)
+ #{r\ 4011}#)
(begin
- (let ((#{l\ 4037}#
- (#{match-each\ 3895}#
- #{e\ 4007}#
- (vector-ref #{p\ 4008}# 1)
- #{w\ 4009}#
- #{mod\ 4011}#)))
- (if #{l\ 4037}#
+ (let ((#{l\ 4038}#
+ (#{match-each\ 3896}#
+ #{e\ 4008}#
+ (vector-ref #{p\ 4009}# 1)
+ #{w\ 4010}#
+ #{mod\ 4012}#)))
+ (if #{l\ 4038}#
(letrec*
- ((#{collect\ 4042}#
- (lambda (#{l\ 4043}#)
- (if (null? (car #{l\ 4043}#))
- #{r\ 4010}#
- (cons (map car #{l\ 4043}#)
- (#{collect\ 4042}#
+ ((#{collect\ 4043}#
+ (lambda (#{l\ 4044}#)
+ (if (null? (car #{l\ 4044}#))
+ #{r\ 4011}#
+ (cons (map car #{l\ 4044}#)
+ (#{collect\ 4043}#
(map cdr
- #{l\ 4043}#)))))))
+ #{l\ 4044}#)))))))
(begin
- (#{collect\ 4042}# #{l\ 4037}#)))
+ (#{collect\ 4043}# #{l\ 4038}#)))
#f))))
- (if (eqv? #{atom-key\ 4034}# (quote each+))
+ (if (eqv? #{atom-key\ 4035}# (quote each+))
(call-with-values
(lambda ()
- (#{match-each+\ 3897}#
- #{e\ 4007}#
- (vector-ref #{p\ 4008}# 1)
- (vector-ref #{p\ 4008}# 2)
- (vector-ref #{p\ 4008}# 3)
- #{w\ 4009}#
- #{r\ 4010}#
- #{mod\ 4011}#))
- (lambda (#{xr*\ 4045}#
- #{y-pat\ 4046}#
- #{r\ 4047}#)
- (if #{r\ 4047}#
- (if (null? #{y-pat\ 4046}#)
- (if (null? #{xr*\ 4045}#)
- (#{match-empty\ 3901}#
- (vector-ref #{p\ 4008}# 1)
- #{r\ 4047}#)
- (#{combine\ 3903}#
- #{xr*\ 4045}#
- #{r\ 4047}#))
+ (#{match-each+\ 3898}#
+ #{e\ 4008}#
+ (vector-ref #{p\ 4009}# 1)
+ (vector-ref #{p\ 4009}# 2)
+ (vector-ref #{p\ 4009}# 3)
+ #{w\ 4010}#
+ #{r\ 4011}#
+ #{mod\ 4012}#))
+ (lambda (#{xr*\ 4046}#
+ #{y-pat\ 4047}#
+ #{r\ 4048}#)
+ (if #{r\ 4048}#
+ (if (null? #{y-pat\ 4047}#)
+ (if (null? #{xr*\ 4046}#)
+ (#{match-empty\ 3902}#
+ (vector-ref #{p\ 4009}# 1)
+ #{r\ 4048}#)
+ (#{combine\ 3904}#
+ #{xr*\ 4046}#
+ #{r\ 4048}#))
#f)
#f)))
- (if (eqv? #{atom-key\ 4034}# (quote free-id))
- (if (#{id?\ 379}# #{e\ 4007}#)
- (if (#{free-id=?\ 438}#
- (#{wrap\ 448}#
- #{e\ 4007}#
- #{w\ 4009}#
- #{mod\ 4011}#)
- (vector-ref #{p\ 4008}# 1))
- #{r\ 4010}#
+ (if (eqv? #{atom-key\ 4035}# (quote free-id))
+ (if (#{id?\ 380}# #{e\ 4008}#)
+ (if (#{free-id=?\ 439}#
+ (#{wrap\ 449}#
+ #{e\ 4008}#
+ #{w\ 4010}#
+ #{mod\ 4012}#)
+ (vector-ref #{p\ 4009}# 1))
+ #{r\ 4011}#
#f)
#f)
- (if (eqv? #{atom-key\ 4034}# (quote atom))
+ (if (eqv? #{atom-key\ 4035}# (quote atom))
(if (equal?
- (vector-ref #{p\ 4008}# 1)
- (#{strip\ 490}#
- #{e\ 4007}#
- #{w\ 4009}#))
- #{r\ 4010}#
+ (vector-ref #{p\ 4009}# 1)
+ (#{strip\ 491}#
+ #{e\ 4008}#
+ #{w\ 4010}#))
+ #{r\ 4011}#
#f)
- (if (eqv? #{atom-key\ 4034}#
+ (if (eqv? #{atom-key\ 4035}#
'vector)
- (if (vector? #{e\ 4007}#)
- (#{match\ 3907}#
- (vector->list #{e\ 4007}#)
- (vector-ref #{p\ 4008}# 1)
- #{w\ 4009}#
- #{r\ 4010}#
- #{mod\ 4011}#)
+ (if (vector? #{e\ 4008}#)
+ (#{match\ 3908}#
+ (vector->list #{e\ 4008}#)
+ (vector-ref #{p\ 4009}# 1)
+ #{w\ 4010}#
+ #{r\ 4011}#
+ #{mod\ 4012}#)
#f)))))))))))))
- (#{match\ 3907}#
- (lambda (#{e\ 4064}#
- #{p\ 4065}#
- #{w\ 4066}#
- #{r\ 4067}#
- #{mod\ 4068}#)
- (if (not #{r\ 4067}#)
+ (#{match\ 3908}#
+ (lambda (#{e\ 4065}#
+ #{p\ 4066}#
+ #{w\ 4067}#
+ #{r\ 4068}#
+ #{mod\ 4069}#)
+ (if (not #{r\ 4068}#)
#f
- (if (eq? #{p\ 4065}# (quote _))
- #{r\ 4067}#
- (if (eq? #{p\ 4065}# (quote any))
- (cons (#{wrap\ 448}#
- #{e\ 4064}#
- #{w\ 4066}#
- #{mod\ 4068}#)
- #{r\ 4067}#)
- (if (#{syntax-object?\ 343}# #{e\ 4064}#)
- (#{match*\ 3905}#
- (#{syntax-object-expression\ 345}# #{e\ 4064}#)
- #{p\ 4065}#
- (#{join-wraps\ 430}#
- #{w\ 4066}#
- (#{syntax-object-wrap\ 347}# #{e\ 4064}#))
- #{r\ 4067}#
- (#{syntax-object-module\ 349}# #{e\ 4064}#))
- (#{match*\ 3905}#
- #{e\ 4064}#
- #{p\ 4065}#
- #{w\ 4066}#
- #{r\ 4067}#
- #{mod\ 4068}#))))))))
+ (if (eq? #{p\ 4066}# (quote _))
+ #{r\ 4068}#
+ (if (eq? #{p\ 4066}# (quote any))
+ (cons (#{wrap\ 449}#
+ #{e\ 4065}#
+ #{w\ 4067}#
+ #{mod\ 4069}#)
+ #{r\ 4068}#)
+ (if (#{syntax-object?\ 344}# #{e\ 4065}#)
+ (#{match*\ 3906}#
+ (#{syntax-object-expression\ 346}# #{e\ 4065}#)
+ #{p\ 4066}#
+ (#{join-wraps\ 431}#
+ #{w\ 4067}#
+ (#{syntax-object-wrap\ 348}# #{e\ 4065}#))
+ #{r\ 4068}#
+ (#{syntax-object-module\ 350}# #{e\ 4065}#))
+ (#{match*\ 3906}#
+ #{e\ 4065}#
+ #{p\ 4066}#
+ #{w\ 4067}#
+ #{r\ 4068}#
+ #{mod\ 4069}#))))))))
(begin
(set! $sc-dispatch
- (lambda (#{e\ 4083}# #{p\ 4084}#)
- (if (eq? #{p\ 4084}# (quote any))
- (list #{e\ 4083}#)
- (if (eq? #{p\ 4084}# (quote _))
+ (lambda (#{e\ 4084}# #{p\ 4085}#)
+ (if (eq? #{p\ 4085}# (quote any))
+ (list #{e\ 4084}#)
+ (if (eq? #{p\ 4085}# (quote _))
'()
- (if (#{syntax-object?\ 343}# #{e\ 4083}#)
- (#{match*\ 3905}#
- (#{syntax-object-expression\ 345}# #{e\ 4083}#)
- #{p\ 4084}#
- (#{syntax-object-wrap\ 347}# #{e\ 4083}#)
+ (if (#{syntax-object?\ 344}# #{e\ 4084}#)
+ (#{match*\ 3906}#
+ (#{syntax-object-expression\ 346}# #{e\ 4084}#)
+ #{p\ 4085}#
+ (#{syntax-object-wrap\ 348}# #{e\ 4084}#)
'()
- (#{syntax-object-module\ 349}# #{e\ 4083}#))
- (#{match*\ 3905}#
- #{e\ 4083}#
- #{p\ 4084}#
+ (#{syntax-object-module\ 350}# #{e\ 4084}#))
+ (#{match*\ 3906}#
+ #{e\ 4084}#
+ #{p\ 4085}#
'(())
'()
#f))))))))))))))
@@ -14614,81 +14614,81 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4095}#)
- (let ((#{tmp\ 4097}# #{x\ 4095}#))
- (let ((#{tmp\ 4098}#
+ (lambda (#{x\ 4096}#)
+ (let ((#{tmp\ 4098}# #{x\ 4096}#))
+ (let ((#{tmp\ 4099}#
($sc-dispatch
- #{tmp\ 4097}#
+ #{tmp\ 4098}#
'(_ () any . each-any))))
- (if #{tmp\ 4098}#
+ (if #{tmp\ 4099}#
(@apply
- (lambda (#{e1\ 4101}# #{e2\ 4102}#)
+ (lambda (#{e1\ 4102}# #{e2\ 4103}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4099" "i4100"))
+ #("i4100" "i4101"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4096")))
+ #(ribcage #(x) #((top)) #("i4097")))
(hygiene guile))
- (cons #{e1\ 4101}# #{e2\ 4102}#)))
- #{tmp\ 4098}#)
- (let ((#{tmp\ 4104}#
+ (cons #{e1\ 4102}# #{e2\ 4103}#)))
+ #{tmp\ 4099}#)
+ (let ((#{tmp\ 4105}#
($sc-dispatch
- #{tmp\ 4097}#
+ #{tmp\ 4098}#
'(_ ((any any)) any . each-any))))
- (if #{tmp\ 4104}#
+ (if #{tmp\ 4105}#
(@apply
- (lambda (#{out\ 4109}#
- #{in\ 4110}#
- #{e1\ 4111}#
- #{e2\ 4112}#)
+ (lambda (#{out\ 4110}#
+ #{in\ 4111}#
+ #{e1\ 4112}#
+ #{e2\ 4113}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4105" "i4106" "i4107" "i4108"))
+ #("i4106" "i4107" "i4108" "i4109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4096")))
+ #(ribcage #(x) #((top)) #("i4097")))
(hygiene guile))
- #{in\ 4110}#
+ #{in\ 4111}#
'()
- (list #{out\ 4109}#
+ (list #{out\ 4110}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4105" "i4106" "i4107" "i4108"))
+ #("i4106" "i4107" "i4108" "i4109"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4096")))
+ #(ribcage #(x) #((top)) #("i4097")))
(hygiene guile))
- (cons #{e1\ 4111}# #{e2\ 4112}#)))))
- #{tmp\ 4104}#)
- (let ((#{tmp\ 4114}#
+ (cons #{e1\ 4112}# #{e2\ 4113}#)))))
+ #{tmp\ 4105}#)
+ (let ((#{tmp\ 4115}#
($sc-dispatch
- #{tmp\ 4097}#
+ #{tmp\ 4098}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 4114}#
+ (if #{tmp\ 4115}#
(@apply
- (lambda (#{out\ 4119}#
- #{in\ 4120}#
- #{e1\ 4121}#
- #{e2\ 4122}#)
+ (lambda (#{out\ 4120}#
+ #{in\ 4121}#
+ #{e1\ 4122}#
+ #{e2\ 4123}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4115" "i4116" "i4117" "i4118"))
+ #("i4116" "i4117" "i4118" "i4119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4096")))
+ #(ribcage #(x) #((top)) #("i4097")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -14696,61 +14696,61 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4115" "i4116" "i4117" "i4118"))
+ #("i4116" "i4117" "i4118" "i4119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4096")))
+ #(ribcage #(x) #((top)) #("i4097")))
(hygiene guile))
- #{in\ 4120}#)
+ #{in\ 4121}#)
'()
- (list #{out\ 4119}#
+ (list #{out\ 4120}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4115"
- "i4116"
+ #("i4116"
"i4117"
- "i4118"))
+ "i4118"
+ "i4119"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4096")))
+ #("i4097")))
(hygiene guile))
- (cons #{e1\ 4121}# #{e2\ 4122}#)))))
- #{tmp\ 4114}#)
+ (cons #{e1\ 4122}# #{e2\ 4123}#)))))
+ #{tmp\ 4115}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4097}#)))))))))))
+ #{tmp\ 4098}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4126}#)
- (let ((#{tmp\ 4128}# #{x\ 4126}#))
- (let ((#{tmp\ 4129}#
+ (lambda (#{x\ 4127}#)
+ (let ((#{tmp\ 4129}# #{x\ 4127}#))
+ (let ((#{tmp\ 4130}#
($sc-dispatch
- #{tmp\ 4128}#
+ #{tmp\ 4129}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4129}#
+ (if #{tmp\ 4130}#
(@apply
- (lambda (#{k\ 4134}#
- #{keyword\ 4135}#
- #{pattern\ 4136}#
- #{template\ 4137}#)
+ (lambda (#{k\ 4135}#
+ #{keyword\ 4136}#
+ #{pattern\ 4137}#
+ #{template\ 4138}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4130" "i4131" "i4132" "i4133"))
+ #("i4131" "i4132" "i4133" "i4134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4127")))
+ #(ribcage #(x) #((top)) #("i4128")))
(hygiene guile))
'(#(syntax-object
x
@@ -14758,9 +14758,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4130" "i4131" "i4132" "i4133"))
+ #("i4131" "i4132" "i4133" "i4134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4127")))
+ #(ribcage #(x) #((top)) #("i4128")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -14769,9 +14769,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4130" "i4131" "i4132" "i4133"))
+ #("i4131" "i4132" "i4133" "i4134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4127")))
+ #(ribcage #(x) #((top)) #("i4128")))
(hygiene guile))
.
#(syntax-object
@@ -14780,9 +14780,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4130" "i4131" "i4132" "i4133"))
+ #("i4131" "i4132" "i4133" "i4134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4127")))
+ #(ribcage #(x) #((top)) #("i4128")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14790,20 +14790,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4130" "i4131" "i4132" "i4133"))
+ #("i4131" "i4132" "i4133" "i4134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4127")))
+ #(ribcage #(x) #((top)) #("i4128")))
(hygiene guile))
- #{pattern\ 4136}#))
+ #{pattern\ 4137}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4130" "i4131" "i4132" "i4133"))
+ #("i4131" "i4132" "i4133" "i4134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4127")))
+ #(ribcage #(x) #((top)) #("i4128")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14811,13 +14811,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4130" "i4131" "i4132" "i4133"))
+ #("i4131" "i4132" "i4133" "i4134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4127")))
+ #(ribcage #(x) #((top)) #("i4128")))
(hygiene guile))
- (cons #{k\ 4134}#
- (map (lambda (#{tmp\ 4141}#
- #{tmp\ 4140}#)
+ (cons #{k\ 4135}#
+ (map (lambda (#{tmp\ 4142}#
+ #{tmp\ 4141}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14830,10 +14830,10 @@
(top)
(top)
(top))
- #("i4130"
- "i4131"
+ #("i4131"
"i4132"
- "i4133"))
+ "i4133"
+ "i4134"))
#(ribcage
()
()
@@ -14841,9 +14841,9 @@
#(ribcage
#(x)
#((top))
- #("i4127")))
+ #("i4128")))
(hygiene guile))
- #{tmp\ 4140}#)
+ #{tmp\ 4141}#)
(list '#(syntax-object
syntax
((top)
@@ -14856,10 +14856,10 @@
(top)
(top)
(top))
- #("i4130"
- "i4131"
+ #("i4131"
"i4132"
- "i4133"))
+ "i4133"
+ "i4134"))
#(ribcage
()
()
@@ -14867,47 +14867,223 @@
#(ribcage
#(x)
#((top))
- #("i4127")))
+ #("i4128")))
(hygiene guile))
- #{tmp\ 4141}#)))
- #{template\ 4137}#
- #{pattern\ 4136}#))))))
- #{tmp\ 4129}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4128}#)))))))
+ #{tmp\ 4142}#)))
+ #{template\ 4138}#
+ #{pattern\ 4137}#))))))
+ #{tmp\ 4130}#)
+ (let ((#{tmp\ 4143}#
+ ($sc-dispatch
+ #{tmp\ 4129}#
+ '(_ each-any any . #(each ((any . any) any))))))
+ (if (if #{tmp\ 4143}#
+ (@apply
+ (lambda (#{k\ 4149}#
+ #{docstring\ 4150}#
+ #{keyword\ 4151}#
+ #{pattern\ 4152}#
+ #{template\ 4153}#)
+ (string? (syntax->datum #{docstring\ 4150}#)))
+ #{tmp\ 4143}#)
+ #f)
+ (@apply
+ (lambda (#{k\ 4159}#
+ #{docstring\ 4160}#
+ #{keyword\ 4161}#
+ #{pattern\ 4162}#
+ #{template\ 4163}#)
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i4154" "i4155" "i4156" "i4157" "i4158"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4128")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i4154" "i4155" "i4156" "i4157" "i4158"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4128")))
+ (hygiene guile)))
+ #{docstring\ 4160}#
+ (vector
+ '(#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i4154" "i4155" "i4156" "i4157" "i4158"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4128")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ syntax-rules
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i4154" "i4155" "i4156" "i4157" "i4158"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4128")))
+ (hygiene guile)))
+ (cons '#(syntax-object
+ patterns
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i4154"
+ "i4155"
+ "i4156"
+ "i4157"
+ "i4158"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4128")))
+ (hygiene guile))
+ #{pattern\ 4162}#))
+ (cons '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("i4154"
+ "i4155"
+ "i4156"
+ "i4157"
+ "i4158"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4128")))
+ (hygiene guile))
+ (cons '#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k
+ docstring
+ keyword
+ pattern
+ template)
+ #((top) (top) (top) (top) (top))
+ #("i4154"
+ "i4155"
+ "i4156"
+ "i4157"
+ "i4158"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4128")))
+ (hygiene guile))
+ (cons #{k\ 4159}#
+ (map (lambda (#{tmp\ 4167}#
+ #{tmp\ 4166}#)
+ (list (cons '#(syntax-object
+ dummy
+ ((top)
+ #(ribcage
+ #(k
+
docstring
+ keyword
+ pattern
+
template)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i4154"
+ "i4155"
+ "i4156"
+ "i4157"
+
"i4158"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i4128")))
+ (hygiene
+ guile))
+ #{tmp\ 4166}#)
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(k
+
docstring
+ keyword
+ pattern
+
template)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i4154"
+ "i4155"
+ "i4156"
+ "i4157"
+
"i4158"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i4128")))
+ (hygiene
+ guile))
+ #{tmp\ 4167}#)))
+ #{template\ 4163}#
+ #{pattern\ 4162}#))))))
+ #{tmp\ 4143}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 4129}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4142}#)
- (let ((#{tmp\ 4144}# #{x\ 4142}#))
- (let ((#{tmp\ 4145}#
+ (lambda (#{x\ 4168}#)
+ (let ((#{tmp\ 4170}# #{x\ 4168}#))
+ (let ((#{tmp\ 4171}#
($sc-dispatch
- #{tmp\ 4144}#
+ #{tmp\ 4170}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4145}#
+ (if (if #{tmp\ 4171}#
(@apply
- (lambda (#{let*\ 4151}#
- #{x\ 4152}#
- #{v\ 4153}#
- #{e1\ 4154}#
- #{e2\ 4155}#)
- (and-map identifier? #{x\ 4152}#))
- #{tmp\ 4145}#)
+ (lambda (#{let*\ 4177}#
+ #{x\ 4178}#
+ #{v\ 4179}#
+ #{e1\ 4180}#
+ #{e2\ 4181}#)
+ (and-map identifier? #{x\ 4178}#))
+ #{tmp\ 4171}#)
#f)
(@apply
- (lambda (#{let*\ 4162}#
- #{x\ 4163}#
- #{v\ 4164}#
- #{e1\ 4165}#
- #{e2\ 4166}#)
+ (lambda (#{let*\ 4188}#
+ #{x\ 4189}#
+ #{v\ 4190}#
+ #{e1\ 4191}#
+ #{e2\ 4192}#)
(letrec*
- ((#{f\ 4169}#
- (lambda (#{bindings\ 4170}#)
- (if (null? #{bindings\ 4170}#)
+ ((#{f\ 4195}#
+ (lambda (#{bindings\ 4196}#)
+ (if (null? #{bindings\ 4196}#)
(cons '#(syntax-object
let
((top)
@@ -14915,128 +15091,128 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4167" "i4168"))
+ #("i4193" "i4194"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4157"
- "i4158"
- "i4159"
- "i4160"
- "i4161"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4143")))
+ #(ribcage #(x) #((top)) #("i4169")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4165}# #{e2\ 4166}#)))
- (let ((#{tmp\ 4175}#
- (list (#{f\ 4169}# (cdr #{bindings\ 4170}#))
- (car #{bindings\ 4170}#))))
- (let ((#{tmp\ 4176}#
+ (cons #{e1\ 4191}# #{e2\ 4192}#)))
+ (let ((#{tmp\ 4201}#
+ (list (#{f\ 4195}# (cdr #{bindings\ 4196}#))
+ (car #{bindings\ 4196}#))))
+ (let ((#{tmp\ 4202}#
($sc-dispatch
- #{tmp\ 4175}#
+ #{tmp\ 4201}#
'(any any))))
- (if #{tmp\ 4176}#
+ (if #{tmp\ 4202}#
(@apply
- (lambda (#{body\ 4179}# #{binding\ 4180}#)
+ (lambda (#{body\ 4205}# #{binding\ 4206}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4177" "i4178"))
+ #("i4203" "i4204"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4167" "i4168"))
+ #("i4193" "i4194"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4157"
- "i4158"
- "i4159"
- "i4160"
- "i4161"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4143")))
+ #("i4169")))
(hygiene guile))
- (list #{binding\ 4180}#)
- #{body\ 4179}#))
- #{tmp\ 4176}#)
+ (list #{binding\ 4206}#)
+ #{body\ 4205}#))
+ #{tmp\ 4202}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4175}#))))))))
+ #{tmp\ 4201}#))))))))
(begin
- (#{f\ 4169}# (map list #{x\ 4163}# #{v\ 4164}#)))))
- #{tmp\ 4145}#)
+ (#{f\ 4195}# (map list #{x\ 4189}# #{v\ 4190}#)))))
+ #{tmp\ 4171}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4144}#)))))))
+ #{tmp\ 4170}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4181}#)
- (let ((#{tmp\ 4183}# #{orig-x\ 4181}#))
- (let ((#{tmp\ 4184}#
+ (lambda (#{orig-x\ 4207}#)
+ (let ((#{tmp\ 4209}# #{orig-x\ 4207}#))
+ (let ((#{tmp\ 4210}#
($sc-dispatch
- #{tmp\ 4183}#
+ #{tmp\ 4209}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp\ 4184}#
+ (if #{tmp\ 4210}#
(@apply
- (lambda (#{var\ 4191}#
- #{init\ 4192}#
- #{step\ 4193}#
- #{e0\ 4194}#
- #{e1\ 4195}#
- #{c\ 4196}#)
- (let ((#{tmp\ 4198}#
- (map (lambda (#{v\ 4219}# #{s\ 4220}#)
- (let ((#{tmp\ 4223}# #{s\ 4220}#))
- (let ((#{tmp\ 4224}#
+ (lambda (#{var\ 4217}#
+ #{init\ 4218}#
+ #{step\ 4219}#
+ #{e0\ 4220}#
+ #{e1\ 4221}#
+ #{c\ 4222}#)
+ (let ((#{tmp\ 4224}#
+ (map (lambda (#{v\ 4245}# #{s\ 4246}#)
+ (let ((#{tmp\ 4249}# #{s\ 4246}#))
+ (let ((#{tmp\ 4250}#
($sc-dispatch
- #{tmp\ 4223}#
+ #{tmp\ 4249}#
'())))
- (if #{tmp\ 4224}#
+ (if #{tmp\ 4250}#
(@apply
- (lambda () #{v\ 4219}#)
- #{tmp\ 4224}#)
- (let ((#{tmp\ 4225}#
+ (lambda () #{v\ 4245}#)
+ #{tmp\ 4250}#)
+ (let ((#{tmp\ 4251}#
($sc-dispatch
- #{tmp\ 4223}#
+ #{tmp\ 4249}#
'(any))))
- (if #{tmp\ 4225}#
+ (if #{tmp\ 4251}#
(@apply
- (lambda (#{e\ 4227}#) #{e\ 4227}#)
- #{tmp\ 4225}#)
- (let ((#{_\ 4229}# #{tmp\ 4223}#))
+ (lambda (#{e\ 4253}#) #{e\ 4253}#)
+ #{tmp\ 4251}#)
+ (let ((#{_\ 4255}# #{tmp\ 4249}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4181}#
- #{s\ 4220}#))))))))
- #{var\ 4191}#
- #{step\ 4193}#)))
- (let ((#{tmp\ 4199}#
- ($sc-dispatch #{tmp\ 4198}# (quote each-any))))
- (if #{tmp\ 4199}#
+ #{orig-x\ 4207}#
+ #{s\ 4246}#))))))))
+ #{var\ 4217}#
+ #{step\ 4219}#)))
+ (let ((#{tmp\ 4225}#
+ ($sc-dispatch #{tmp\ 4224}# (quote each-any))))
+ (if #{tmp\ 4225}#
(@apply
- (lambda (#{step\ 4201}#)
- (let ((#{tmp\ 4202}# #{e1\ 4195}#))
- (let ((#{tmp\ 4203}#
- ($sc-dispatch #{tmp\ 4202}# (quote ()))))
- (if #{tmp\ 4203}#
+ (lambda (#{step\ 4227}#)
+ (let ((#{tmp\ 4228}# #{e1\ 4221}#))
+ (let ((#{tmp\ 4229}#
+ ($sc-dispatch #{tmp\ 4228}# (quote ()))))
+ (if #{tmp\ 4229}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -15045,7 +15221,7 @@
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15054,17 +15230,17 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15072,7 +15248,7 @@
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15081,28 +15257,28 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
(map list
- #{var\ 4191}#
- #{init\ 4192}#)
+ #{var\ 4217}#
+ #{init\ 4218}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15111,17 +15287,17 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
(list '#(syntax-object
not
@@ -15129,7 +15305,7 @@
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var
init
@@ -15143,26 +15319,26 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
- #{e0\ 4194}#)
+ #{e0\ 4220}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var
init
@@ -15176,27 +15352,27 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
(append
- #{c\ 4196}#
+ #{c\ 4222}#
(list (cons
'#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i4200"))
+
#("i4226"))
#(ribcage
#(var
init
@@ -15210,12 +15386,12 @@
(top)
(top)
(top))
-
#("i4185"
-
"i4186"
-
"i4187"
-
"i4188"
-
"i4189"
-
"i4190"))
+
#("i4211"
+
"i4212"
+
"i4213"
+
"i4214"
+
"i4215"
+
"i4216"))
#(ribcage
()
()
@@ -15223,29 +15399,29 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4182")))
+
#("i4208")))
(hygiene
guile))
- #{step\
4201}#)))))))
- #{tmp\ 4203}#)
- (let ((#{tmp\ 4208}#
+ #{step\
4227}#)))))))
+ #{tmp\ 4229}#)
+ (let ((#{tmp\ 4234}#
($sc-dispatch
- #{tmp\ 4202}#
+ #{tmp\ 4228}#
'(any . each-any))))
- (if #{tmp\ 4208}#
+ (if #{tmp\ 4234}#
(@apply
- (lambda (#{e1\ 4211}# #{e2\ 4212}#)
+ (lambda (#{e1\ 4237}# #{e2\ 4238}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4209" "i4210"))
+ #("i4235" "i4236"))
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15254,17 +15430,17 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15272,11 +15448,11 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4209" "i4210"))
+ #("i4235" "i4236"))
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15285,32 +15461,32 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
(map list
- #{var\ 4191}#
- #{init\ 4192}#)
+ #{var\ 4217}#
+ #{init\ 4218}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4209" "i4210"))
+ #("i4235" "i4236"))
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var
init
@@ -15324,31 +15500,31 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
- #{e0\ 4194}#
+ #{e0\ 4220}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4209"
- "i4210"))
+ #("i4235"
+ "i4236"))
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var
init
@@ -15362,12 +15538,12 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage
()
()
@@ -15375,22 +15551,22 @@
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
- (cons #{e1\ 4211}#
- #{e2\ 4212}#))
+ (cons #{e1\ 4237}#
+ #{e2\ 4238}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4209"
- "i4210"))
+ #("i4235"
+ "i4236"))
#(ribcage
#(step)
#((top))
- #("i4200"))
+ #("i4226"))
#(ribcage
#(var
init
@@ -15404,12 +15580,12 @@
(top)
(top)
(top))
- #("i4185"
- "i4186"
- "i4187"
- "i4188"
- "i4189"
- "i4190"))
+ #("i4211"
+ "i4212"
+ "i4213"
+ "i4214"
+ "i4215"
+ "i4216"))
#(ribcage
()
()
@@ -15417,10 +15593,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4182")))
+ #("i4208")))
(hygiene guile))
(append
- #{c\ 4196}#
+ #{c\ 4222}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -15429,12 +15605,12 @@
e2)
#((top)
(top))
-
#("i4209"
-
"i4210"))
+
#("i4235"
+
"i4236"))
#(ribcage
#(step)
#((top))
-
#("i4200"))
+
#("i4226"))
#(ribcage
#(var
init
@@ -15448,12 +15624,12 @@
(top)
(top)
(top))
-
#("i4185"
-
"i4186"
-
"i4187"
-
"i4188"
-
"i4189"
-
"i4190"))
+
#("i4211"
+
"i4212"
+
"i4213"
+
"i4214"
+
"i4215"
+
"i4216"))
#(ribcage
()
()
@@ -15461,43 +15637,43 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4182")))
+
#("i4208")))
(hygiene
guile))
-
#{step\ 4201}#)))))))
- #{tmp\ 4208}#)
+
#{step\ 4227}#)))))))
+ #{tmp\ 4234}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4202}#)))))))
- #{tmp\ 4199}#)
+ #{tmp\ 4228}#)))))))
+ #{tmp\ 4225}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4198}#)))))
- #{tmp\ 4184}#)
+ #{tmp\ 4224}#)))))
+ #{tmp\ 4210}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4183}#)))))))
+ #{tmp\ 4209}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasicons\ 4236}#
- (lambda (#{x\ 4240}# #{y\ 4241}#)
- (let ((#{tmp\ 4245}# (list #{x\ 4240}# #{y\ 4241}#)))
- (let ((#{tmp\ 4246}#
- ($sc-dispatch #{tmp\ 4245}# (quote (any any)))))
- (if #{tmp\ 4246}#
+ ((#{quasicons\ 4262}#
+ (lambda (#{x\ 4266}# #{y\ 4267}#)
+ (let ((#{tmp\ 4271}# (list #{x\ 4266}# #{y\ 4267}#)))
+ (let ((#{tmp\ 4272}#
+ ($sc-dispatch #{tmp\ 4271}# (quote (any any)))))
+ (if #{tmp\ 4272}#
(@apply
- (lambda (#{x\ 4249}# #{y\ 4250}#)
- (let ((#{tmp\ 4251}# #{y\ 4250}#))
- (let ((#{tmp\ 4252}#
+ (lambda (#{x\ 4275}# #{y\ 4276}#)
+ (let ((#{tmp\ 4277}# #{y\ 4276}#))
+ (let ((#{tmp\ 4278}#
($sc-dispatch
- #{tmp\ 4251}#
+ #{tmp\ 4277}#
'(#(free-id
#(syntax-object
quote
@@ -15505,29 +15681,29 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4247" "i4248"))
+ #("i4273" "i4274"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4242" "i4243"))
+ #("i4268" "i4269"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
any))))
- (if #{tmp\ 4252}#
+ (if #{tmp\ 4278}#
(@apply
- (lambda (#{dy\ 4254}#)
- (let ((#{tmp\ 4255}# #{x\ 4249}#))
- (let ((#{tmp\ 4256}#
+ (lambda (#{dy\ 4280}#)
+ (let ((#{tmp\ 4281}# #{x\ 4275}#))
+ (let ((#{tmp\ 4282}#
($sc-dispatch
- #{tmp\ 4255}#
+ #{tmp\ 4281}#
'(#(free-id
#(syntax-object
quote
@@ -15535,140 +15711,140 @@
#(ribcage
#(dy)
#((top))
- #("i4253"))
+ #("i4279"))
#(ribcage
#(x y)
#((top) (top))
- #("i4247" "i4248"))
+ #("i4273" "i4274"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4242" "i4243"))
+ #("i4268" "i4269"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile)))
any))))
- (if #{tmp\ 4256}#
+ (if #{tmp\ 4282}#
(@apply
- (lambda (#{dx\ 4258}#)
+ (lambda (#{dx\ 4284}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4257"))
+ #("i4283"))
#(ribcage
#(dy)
#((top))
- #("i4253"))
+ #("i4279"))
#(ribcage
#(x y)
#((top) (top))
- #("i4247" "i4248"))
+ #("i4273" "i4274"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4242" "i4243"))
+ #("i4268" "i4269"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile))
- (cons #{dx\ 4258}#
- #{dy\ 4254}#)))
- #{tmp\ 4256}#)
- (let ((#{_\ 4260}# #{tmp\ 4255}#))
- (if (null? #{dy\ 4254}#)
+ (cons #{dx\ 4284}#
+ #{dy\ 4280}#)))
+ #{tmp\ 4282}#)
+ (let ((#{_\ 4286}# #{tmp\ 4281}#))
+ (if (null? #{dy\ 4280}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4259"))
+ #("i4285"))
#(ribcage
#(dy)
#((top))
- #("i4253"))
+ #("i4279"))
#(ribcage
#(x y)
#((top) (top))
- #("i4247" "i4248"))
+ #("i4273" "i4274"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4242" "i4243"))
+ #("i4268" "i4269"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile))
- #{x\ 4249}#)
+ #{x\ 4275}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4259"))
+ #("i4285"))
#(ribcage
#(dy)
#((top))
- #("i4253"))
+ #("i4279"))
#(ribcage
#(x y)
#((top) (top))
- #("i4247" "i4248"))
+ #("i4273" "i4274"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4242" "i4243"))
+ #("i4268" "i4269"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile))
- #{x\ 4249}#
- #{y\ 4250}#)))))))
- #{tmp\ 4252}#)
- (let ((#{tmp\ 4261}#
+ #{x\ 4275}#
+ #{y\ 4276}#)))))))
+ #{tmp\ 4278}#)
+ (let ((#{tmp\ 4287}#
($sc-dispatch
- #{tmp\ 4251}#
+ #{tmp\ 4277}#
'(#(free-id
#(syntax-object
list
@@ -15676,107 +15852,107 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4247" "i4248"))
+ #("i4273" "i4274"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4242" "i4243"))
+ #("i4268" "i4269"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile)))
.
any))))
- (if #{tmp\ 4261}#
+ (if #{tmp\ 4287}#
(@apply
- (lambda (#{stuff\ 4263}#)
+ (lambda (#{stuff\ 4289}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4262"))
+ #("i4288"))
#(ribcage
#(x y)
#((top) (top))
- #("i4247" "i4248"))
+ #("i4273" "i4274"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4242" "i4243"))
+ #("i4268" "i4269"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile))
- (cons #{x\ 4249}# #{stuff\ 4263}#)))
- #{tmp\ 4261}#)
- (let ((#{else\ 4265}# #{tmp\ 4251}#))
+ (cons #{x\ 4275}# #{stuff\ 4289}#)))
+ #{tmp\ 4287}#)
+ (let ((#{else\ 4291}# #{tmp\ 4277}#))
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4264"))
+ #("i4290"))
#(ribcage
#(x y)
#((top) (top))
- #("i4247" "i4248"))
+ #("i4273" "i4274"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4242" "i4243"))
+ #("i4268" "i4269"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile))
- #{x\ 4249}#
- #{y\ 4250}#))))))))
- #{tmp\ 4246}#)
+ #{x\ 4275}#
+ #{y\ 4276}#))))))))
+ #{tmp\ 4272}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4245}#))))))
- (#{quasiappend\ 4237}#
- (lambda (#{x\ 4266}# #{y\ 4267}#)
- (let ((#{tmp\ 4271}# (list #{x\ 4266}# #{y\ 4267}#)))
- (let ((#{tmp\ 4272}#
- ($sc-dispatch #{tmp\ 4271}# (quote (any any)))))
- (if #{tmp\ 4272}#
+ #{tmp\ 4271}#))))))
+ (#{quasiappend\ 4263}#
+ (lambda (#{x\ 4292}# #{y\ 4293}#)
+ (let ((#{tmp\ 4297}# (list #{x\ 4292}# #{y\ 4293}#)))
+ (let ((#{tmp\ 4298}#
+ ($sc-dispatch #{tmp\ 4297}# (quote (any any)))))
+ (if #{tmp\ 4298}#
(@apply
- (lambda (#{x\ 4275}# #{y\ 4276}#)
- (let ((#{tmp\ 4277}# #{y\ 4276}#))
- (let ((#{tmp\ 4278}#
+ (lambda (#{x\ 4301}# #{y\ 4302}#)
+ (let ((#{tmp\ 4303}# #{y\ 4302}#))
+ (let ((#{tmp\ 4304}#
($sc-dispatch
- #{tmp\ 4277}#
+ #{tmp\ 4303}#
'(#(free-id
#(syntax-object
quote
@@ -15784,160 +15960,160 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4273" "i4274"))
+ #("i4299" "i4300"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4268" "i4269"))
+ #("i4294" "i4295"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
()))))
- (if #{tmp\ 4278}#
- (@apply (lambda () #{x\ 4275}#) #{tmp\ 4278}#)
- (let ((#{_\ 4280}# #{tmp\ 4277}#))
+ (if #{tmp\ 4304}#
+ (@apply (lambda () #{x\ 4301}#) #{tmp\ 4304}#)
+ (let ((#{_\ 4306}# #{tmp\ 4303}#))
(list '#(syntax-object
append
((top)
- #(ribcage #(_) #((top)) #("i4279"))
+ #(ribcage #(_) #((top)) #("i4305"))
#(ribcage
#(x y)
#((top) (top))
- #("i4273" "i4274"))
+ #("i4299" "i4300"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4268" "i4269"))
+ #("i4294" "i4295"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile))
- #{x\ 4275}#
- #{y\ 4276}#))))))
- #{tmp\ 4272}#)
+ #{x\ 4301}#
+ #{y\ 4302}#))))))
+ #{tmp\ 4298}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4271}#))))))
- (#{quasivector\ 4238}#
- (lambda (#{x\ 4281}#)
- (let ((#{tmp\ 4284}# #{x\ 4281}#))
- (let ((#{x\ 4286}# #{tmp\ 4284}#))
- (let ((#{tmp\ 4287}# #{x\ 4286}#))
- (let ((#{tmp\ 4288}#
+ #{tmp\ 4297}#))))))
+ (#{quasivector\ 4264}#
+ (lambda (#{x\ 4307}#)
+ (let ((#{tmp\ 4310}# #{x\ 4307}#))
+ (let ((#{x\ 4312}# #{tmp\ 4310}#))
+ (let ((#{tmp\ 4313}# #{x\ 4312}#))
+ (let ((#{tmp\ 4314}#
($sc-dispatch
- #{tmp\ 4287}#
+ #{tmp\ 4313}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4285"))
+ #(ribcage #(x) #((top)) #("i4311"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4282"))
+ #(ribcage #(x) #((top)) #("i4308"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
each-any))))
- (if #{tmp\ 4288}#
+ (if #{tmp\ 4314}#
(@apply
- (lambda (#{x\ 4290}#)
+ (lambda (#{x\ 4316}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4289"))
- #(ribcage #(x) #((top)) #("i4285"))
+ #(ribcage #(x) #((top)) #("i4315"))
+ #(ribcage #(x) #((top)) #("i4311"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4282"))
+ #(ribcage #(x) #((top)) #("i4308"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile))
- (list->vector #{x\ 4290}#)))
- #{tmp\ 4288}#)
- (let ((#{tmp\ 4292}#
+ (list->vector #{x\ 4316}#)))
+ #{tmp\ 4314}#)
+ (let ((#{tmp\ 4318}#
($sc-dispatch
- #{tmp\ 4287}#
+ #{tmp\ 4313}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i4285"))
+ #(ribcage #(x) #((top)) #("i4311"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4282"))
+ #(ribcage #(x) #((top)) #("i4308"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4292}#
+ (if #{tmp\ 4318}#
(@apply
- (lambda (#{x\ 4294}#)
+ (lambda (#{x\ 4320}#)
(cons '#(syntax-object
vector
((top)
- #(ribcage #(x) #((top)) #("i4293"))
- #(ribcage #(x) #((top)) #("i4285"))
+ #(ribcage #(x) #((top)) #("i4319"))
+ #(ribcage #(x) #((top)) #("i4311"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4282"))
+ #(ribcage #(x) #((top)) #("i4308"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile))
- #{x\ 4294}#))
- #{tmp\ 4292}#)
- (let ((#{_\ 4297}# #{tmp\ 4287}#))
+ #{x\ 4320}#))
+ #{tmp\ 4318}#)
+ (let ((#{_\ 4323}# #{tmp\ 4313}#))
(list '#(syntax-object
list->vector
((top)
- #(ribcage #(_) #((top)) #("i4296"))
- #(ribcage #(x) #((top)) #("i4285"))
+ #(ribcage #(_) #((top)) #("i4322"))
+ #(ribcage #(x) #((top)) #("i4311"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4282"))
+ #(ribcage #(x) #((top)) #("i4308"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile))
- #{x\ 4286}#)))))))))))
- (#{quasi\ 4239}#
- (lambda (#{p\ 4298}# #{lev\ 4299}#)
- (let ((#{tmp\ 4302}# #{p\ 4298}#))
- (let ((#{tmp\ 4303}#
+ #{x\ 4312}#)))))))))))
+ (#{quasi\ 4265}#
+ (lambda (#{p\ 4324}# #{lev\ 4325}#)
+ (let ((#{tmp\ 4328}# #{p\ 4324}#))
+ (let ((#{tmp\ 4329}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 4328}#
'(#(free-id
#(syntax-object
unquote
@@ -15946,54 +16122,54 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
any))))
- (if #{tmp\ 4303}#
+ (if #{tmp\ 4329}#
(@apply
- (lambda (#{p\ 4305}#)
- (if (= #{lev\ 4299}# 0)
- #{p\ 4305}#
- (#{quasicons\ 4236}#
+ (lambda (#{p\ 4331}#)
+ (if (= #{lev\ 4325}# 0)
+ #{p\ 4331}#
+ (#{quasicons\ 4262}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4304"))
+ #(ribcage #(p) #((top)) #("i4330"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4304"))
+ #(ribcage #(p) #((top)) #("i4330"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
- (#{quasi\ 4239}#
- (list #{p\ 4305}#)
- (1- #{lev\ 4299}#)))))
- #{tmp\ 4303}#)
- (let ((#{tmp\ 4306}#
+ (#{quasi\ 4265}#
+ (list #{p\ 4331}#)
+ (1- #{lev\ 4325}#)))))
+ #{tmp\ 4329}#)
+ (let ((#{tmp\ 4332}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 4328}#
'(#(free-id
#(syntax-object
unquote
@@ -16002,47 +16178,47 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
.
any))))
- (if (if #{tmp\ 4306}#
+ (if (if #{tmp\ 4332}#
(@apply
- (lambda (#{args\ 4308}#) (= #{lev\ 4299}# 0))
- #{tmp\ 4306}#)
+ (lambda (#{args\ 4334}#) (= #{lev\ 4325}# 0))
+ #{tmp\ 4332}#)
#f)
(@apply
- (lambda (#{args\ 4310}#)
+ (lambda (#{args\ 4336}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4298}#
+ #{p\ 4324}#
(cons '#(syntax-object
unquote
((top)
- #(ribcage #(args) #((top)) #("i4309"))
+ #(ribcage #(args) #((top)) #("i4335"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile))
- #{args\ 4310}#)))
- #{tmp\ 4306}#)
- (let ((#{tmp\ 4311}#
+ #{args\ 4336}#)))
+ #{tmp\ 4332}#)
+ (let ((#{tmp\ 4337}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 4328}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -16051,46 +16227,46 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
any)
.
any))))
- (if #{tmp\ 4311}#
+ (if #{tmp\ 4337}#
(@apply
- (lambda (#{p\ 4314}# #{q\ 4315}#)
- (if (= #{lev\ 4299}# 0)
- (#{quasiappend\ 4237}#
- #{p\ 4314}#
- (#{quasi\ 4239}# #{q\ 4315}# #{lev\ 4299}#))
- (#{quasicons\ 4236}#
- (#{quasicons\ 4236}#
+ (lambda (#{p\ 4340}# #{q\ 4341}#)
+ (if (= #{lev\ 4325}# 0)
+ (#{quasiappend\ 4263}#
+ #{p\ 4340}#
+ (#{quasi\ 4265}# #{q\ 4341}# #{lev\ 4325}#))
+ (#{quasicons\ 4262}#
+ (#{quasicons\ 4262}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4312" "i4313"))
+ #("i4338" "i4339"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -16098,28 +16274,28 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4312" "i4313"))
+ #("i4338" "i4339"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235")))
+ #("i4258" "i4259" "i4260" "i4261")))
(hygiene guile)))
- (#{quasi\ 4239}#
- (list #{p\ 4314}#)
- (1- #{lev\ 4299}#)))
- (#{quasi\ 4239}# #{q\ 4315}# #{lev\ 4299}#))))
- #{tmp\ 4311}#)
- (let ((#{tmp\ 4316}#
+ (#{quasi\ 4265}#
+ (list #{p\ 4340}#)
+ (1- #{lev\ 4325}#)))
+ (#{quasi\ 4265}# #{q\ 4341}# #{lev\ 4325}#))))
+ #{tmp\ 4337}#)
+ (let ((#{tmp\ 4342}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 4328}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -16128,62 +16304,62 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile)))
.
any)
.
any))))
- (if (if #{tmp\ 4316}#
+ (if (if #{tmp\ 4342}#
(@apply
- (lambda (#{args\ 4319}# #{q\ 4320}#)
- (= #{lev\ 4299}# 0))
- #{tmp\ 4316}#)
+ (lambda (#{args\ 4345}# #{q\ 4346}#)
+ (= #{lev\ 4325}# 0))
+ #{tmp\ 4342}#)
#f)
(@apply
- (lambda (#{args\ 4323}# #{q\ 4324}#)
+ (lambda (#{args\ 4349}# #{q\ 4350}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one
argument"
- #{p\ 4298}#
+ #{p\ 4324}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i4321" "i4322"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile))
- #{args\ 4323}#)))
- #{tmp\ 4316}#)
- (let ((#{tmp\ 4325}#
+ #{args\ 4349}#)))
+ #{tmp\ 4342}#)
+ (let ((#{tmp\ 4351}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 4328}#
'(#(free-id
#(syntax-object
quasiquote
@@ -16192,107 +16368,107 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile)))
any))))
- (if #{tmp\ 4325}#
+ (if #{tmp\ 4351}#
(@apply
- (lambda (#{p\ 4327}#)
- (#{quasicons\ 4236}#
+ (lambda (#{p\ 4353}#)
+ (#{quasicons\ 4262}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4326"))
+ #(ribcage #(p) #((top)) #("i4352"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4326"))
+ #(ribcage #(p) #((top)) #("i4352"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile)))
- (#{quasi\ 4239}#
- (list #{p\ 4327}#)
- (1+ #{lev\ 4299}#))))
- #{tmp\ 4325}#)
- (let ((#{tmp\ 4328}#
+ (#{quasi\ 4265}#
+ (list #{p\ 4353}#)
+ (1+ #{lev\ 4325}#))))
+ #{tmp\ 4351}#)
+ (let ((#{tmp\ 4354}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 4328}#
'(any . any))))
- (if #{tmp\ 4328}#
+ (if #{tmp\ 4354}#
(@apply
- (lambda (#{p\ 4331}# #{q\ 4332}#)
- (#{quasicons\ 4236}#
- (#{quasi\ 4239}#
- #{p\ 4331}#
- #{lev\ 4299}#)
- (#{quasi\ 4239}#
- #{q\ 4332}#
- #{lev\ 4299}#)))
- #{tmp\ 4328}#)
- (let ((#{tmp\ 4333}#
+ (lambda (#{p\ 4357}# #{q\ 4358}#)
+ (#{quasicons\ 4262}#
+ (#{quasi\ 4265}#
+ #{p\ 4357}#
+ #{lev\ 4325}#)
+ (#{quasi\ 4265}#
+ #{q\ 4358}#
+ #{lev\ 4325}#)))
+ #{tmp\ 4354}#)
+ (let ((#{tmp\ 4359}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 4328}#
'#(vector each-any))))
- (if #{tmp\ 4333}#
+ (if #{tmp\ 4359}#
(@apply
- (lambda (#{x\ 4335}#)
- (#{quasivector\ 4238}#
- (#{quasi\ 4239}#
- #{x\ 4335}#
- #{lev\ 4299}#)))
- #{tmp\ 4333}#)
- (let ((#{p\ 4338}# #{tmp\ 4302}#))
+ (lambda (#{x\ 4361}#)
+ (#{quasivector\ 4264}#
+ (#{quasi\ 4265}#
+ #{x\ 4361}#
+ #{lev\ 4325}#)))
+ #{tmp\ 4359}#)
+ (let ((#{p\ 4364}# #{tmp\ 4328}#))
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4337"))
+ #("i4363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4326" "i4327"))
#(ribcage
#(quasicons
quasiappend
@@ -16302,220 +16478,220 @@
(top)
(top)
(top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235")))
+ #("i4258"
+ "i4259"
+ "i4260"
+ "i4261")))
(hygiene guile))
- #{p\
4338}#))))))))))))))))))))
+ #{p\
4364}#))))))))))))))))))))
(begin
- (lambda (#{x\ 4339}#)
- (let ((#{tmp\ 4341}# #{x\ 4339}#))
- (let ((#{tmp\ 4342}#
- ($sc-dispatch #{tmp\ 4341}# (quote (_ any)))))
- (if #{tmp\ 4342}#
+ (lambda (#{x\ 4365}#)
+ (let ((#{tmp\ 4367}# #{x\ 4365}#))
+ (let ((#{tmp\ 4368}#
+ ($sc-dispatch #{tmp\ 4367}# (quote (_ any)))))
+ (if #{tmp\ 4368}#
(@apply
- (lambda (#{e\ 4344}#)
- (#{quasi\ 4239}# #{e\ 4344}# 0))
- #{tmp\ 4342}#)
+ (lambda (#{e\ 4370}#)
+ (#{quasi\ 4265}# #{e\ 4370}# 0))
+ #{tmp\ 4368}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4341}#)))))))))
+ #{tmp\ 4367}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4345}#)
+ (lambda (#{x\ 4371}#)
(letrec*
- ((#{read-file\ 4348}#
- (lambda (#{fn\ 4349}# #{k\ 4350}#)
+ ((#{read-file\ 4374}#
+ (lambda (#{fn\ 4375}# #{k\ 4376}#)
(begin
- (let ((#{p\ 4354}# (open-input-file #{fn\ 4349}#)))
+ (let ((#{p\ 4380}# (open-input-file #{fn\ 4375}#)))
(letrec*
- ((#{f\ 4358}#
- (lambda (#{x\ 4359}# #{result\ 4360}#)
- (if (eof-object? #{x\ 4359}#)
+ ((#{f\ 4384}#
+ (lambda (#{x\ 4385}# #{result\ 4386}#)
+ (if (eof-object? #{x\ 4385}#)
(begin
- (close-input-port #{p\ 4354}#)
- (reverse #{result\ 4360}#))
- (#{f\ 4358}#
- (read #{p\ 4354}#)
- (cons (datum->syntax #{k\ 4350}# #{x\ 4359}#)
- #{result\ 4360}#))))))
+ (close-input-port #{p\ 4380}#)
+ (reverse #{result\ 4386}#))
+ (#{f\ 4384}#
+ (read #{p\ 4380}#)
+ (cons (datum->syntax #{k\ 4376}# #{x\ 4385}#)
+ #{result\ 4386}#))))))
(begin
- (#{f\ 4358}# (read #{p\ 4354}#) (quote ())))))))))
+ (#{f\ 4384}# (read #{p\ 4380}#) (quote ())))))))))
(begin
- (let ((#{tmp\ 4361}# #{x\ 4345}#))
- (let ((#{tmp\ 4362}#
- ($sc-dispatch #{tmp\ 4361}# (quote (any any)))))
- (if #{tmp\ 4362}#
+ (let ((#{tmp\ 4387}# #{x\ 4371}#))
+ (let ((#{tmp\ 4388}#
+ ($sc-dispatch #{tmp\ 4387}# (quote (any any)))))
+ (if #{tmp\ 4388}#
(@apply
- (lambda (#{k\ 4365}# #{filename\ 4366}#)
+ (lambda (#{k\ 4391}# #{filename\ 4392}#)
(begin
- (let ((#{fn\ 4368}# (syntax->datum #{filename\ 4366}#)))
- (let ((#{tmp\ 4370}#
- (#{read-file\ 4348}#
- #{fn\ 4368}#
- #{filename\ 4366}#)))
- (let ((#{tmp\ 4371}#
+ (let ((#{fn\ 4394}# (syntax->datum #{filename\ 4392}#)))
+ (let ((#{tmp\ 4396}#
+ (#{read-file\ 4374}#
+ #{fn\ 4394}#
+ #{filename\ 4392}#)))
+ (let ((#{tmp\ 4397}#
($sc-dispatch
- #{tmp\ 4370}#
+ #{tmp\ 4396}#
'each-any)))
- (if #{tmp\ 4371}#
+ (if #{tmp\ 4397}#
(@apply
- (lambda (#{exp\ 4373}#)
+ (lambda (#{exp\ 4399}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4372"))
+ #("i4398"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4367"))
+ #("i4393"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4363" "i4364"))
+ #("i4389" "i4390"))
#(ribcage
(read-file)
((top))
- ("i4347"))
+ ("i4373"))
#(ribcage
#(x)
#((top))
- #("i4346")))
+ #("i4372")))
(hygiene guile))
- #{exp\ 4373}#))
- #{tmp\ 4371}#)
+ #{exp\ 4399}#))
+ #{tmp\ 4397}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4370}#)))))))
- #{tmp\ 4362}#)
+ #{tmp\ 4396}#)))))))
+ #{tmp\ 4388}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4361}#)))))))))
+ #{tmp\ 4387}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4375}#)
- (let ((#{tmp\ 4377}# #{x\ 4375}#))
- (let ((#{tmp\ 4378}#
- ($sc-dispatch #{tmp\ 4377}# (quote (any any)))))
- (if #{tmp\ 4378}#
+ (lambda (#{x\ 4401}#)
+ (let ((#{tmp\ 4403}# #{x\ 4401}#))
+ (let ((#{tmp\ 4404}#
+ ($sc-dispatch #{tmp\ 4403}# (quote (any any)))))
+ (if #{tmp\ 4404}#
(@apply
- (lambda (#{k\ 4381}# #{filename\ 4382}#)
+ (lambda (#{k\ 4407}# #{filename\ 4408}#)
(begin
- (let ((#{fn\ 4384}# (syntax->datum #{filename\ 4382}#)))
- (let ((#{tmp\ 4386}#
+ (let ((#{fn\ 4410}# (syntax->datum #{filename\ 4408}#)))
+ (let ((#{tmp\ 4412}#
(datum->syntax
- #{filename\ 4382}#
+ #{filename\ 4408}#
(begin
- (let ((#{t\ 4391}#
- (%search-load-path #{fn\ 4384}#)))
- (if #{t\ 4391}#
- #{t\ 4391}#
+ (let ((#{t\ 4417}#
+ (%search-load-path #{fn\ 4410}#)))
+ (if #{t\ 4417}#
+ #{t\ 4417}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4375}#
- #{filename\ 4382}#)))))))
- (let ((#{fn\ 4388}# #{tmp\ 4386}#))
+ #{x\ 4401}#
+ #{filename\ 4408}#)))))))
+ (let ((#{fn\ 4414}# #{tmp\ 4412}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i4387"))
+ #(ribcage #(fn) #((top)) #("i4413"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4383"))
+ #(ribcage #(fn) #((top)) #("i4409"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4379" "i4380"))
+ #("i4405" "i4406"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4376")))
+ #(ribcage #(x) #((top)) #("i4402")))
(hygiene guile))
- #{fn\ 4388}#))))))
- #{tmp\ 4378}#)
+ #{fn\ 4414}#))))))
+ #{tmp\ 4404}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4377}#)))))))
+ #{tmp\ 4403}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4393}#)
- (let ((#{tmp\ 4395}# #{x\ 4393}#))
- (let ((#{tmp\ 4396}#
- ($sc-dispatch #{tmp\ 4395}# (quote (_ any)))))
- (if #{tmp\ 4396}#
+ (lambda (#{x\ 4419}#)
+ (let ((#{tmp\ 4421}# #{x\ 4419}#))
+ (let ((#{tmp\ 4422}#
+ ($sc-dispatch #{tmp\ 4421}# (quote (_ any)))))
+ (if #{tmp\ 4422}#
(@apply
- (lambda (#{e\ 4398}#)
+ (lambda (#{e\ 4424}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4393}#))
- #{tmp\ 4396}#)
+ #{x\ 4419}#))
+ #{tmp\ 4422}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4395}#)))))))
+ #{tmp\ 4421}#)))))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4399}#)
- (let ((#{tmp\ 4401}# #{x\ 4399}#))
- (let ((#{tmp\ 4402}#
- ($sc-dispatch #{tmp\ 4401}# (quote (_ any)))))
- (if #{tmp\ 4402}#
+ (lambda (#{x\ 4425}#)
+ (let ((#{tmp\ 4427}# #{x\ 4425}#))
+ (let ((#{tmp\ 4428}#
+ ($sc-dispatch #{tmp\ 4427}# (quote (_ any)))))
+ (if #{tmp\ 4428}#
(@apply
- (lambda (#{e\ 4404}#)
+ (lambda (#{e\ 4430}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4399}#))
- #{tmp\ 4402}#)
+ #{x\ 4425}#))
+ #{tmp\ 4428}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4401}#)))))))
+ #{tmp\ 4427}#)))))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4405}#)
- (let ((#{tmp\ 4407}# #{x\ 4405}#))
- (let ((#{tmp\ 4408}#
+ (lambda (#{x\ 4431}#)
+ (let ((#{tmp\ 4433}# #{x\ 4431}#))
+ (let ((#{tmp\ 4434}#
($sc-dispatch
- #{tmp\ 4407}#
+ #{tmp\ 4433}#
'(_ any any . each-any))))
- (if #{tmp\ 4408}#
+ (if #{tmp\ 4434}#
(@apply
- (lambda (#{e\ 4412}# #{m1\ 4413}# #{m2\ 4414}#)
- (let ((#{tmp\ 4416}#
+ (lambda (#{e\ 4438}# #{m1\ 4439}# #{m2\ 4440}#)
+ (let ((#{tmp\ 4442}#
(letrec*
- ((#{f\ 4422}#
- (lambda (#{clause\ 4423}# #{clauses\ 4424}#)
- (if (null? #{clauses\ 4424}#)
- (let ((#{tmp\ 4426}# #{clause\ 4423}#))
- (let ((#{tmp\ 4427}#
+ ((#{f\ 4448}#
+ (lambda (#{clause\ 4449}# #{clauses\ 4450}#)
+ (if (null? #{clauses\ 4450}#)
+ (let ((#{tmp\ 4452}# #{clause\ 4449}#))
+ (let ((#{tmp\ 4453}#
($sc-dispatch
- #{tmp\ 4426}#
+ #{tmp\ 4452}#
'(#(free-id
#(syntax-object
else
@@ -16524,92 +16700,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 4427}#
+ (if #{tmp\ 4453}#
(@apply
- (lambda (#{e1\ 4430}# #{e2\ 4431}#)
+ (lambda (#{e1\ 4456}# #{e2\ 4457}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4428" "i4429"))
+ #("i4454" "i4455"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
- (cons #{e1\ 4430}#
- #{e2\ 4431}#)))
- #{tmp\ 4427}#)
- (let ((#{tmp\ 4433}#
+ (cons #{e1\ 4456}#
+ #{e2\ 4457}#)))
+ #{tmp\ 4453}#)
+ (let ((#{tmp\ 4459}#
($sc-dispatch
- #{tmp\ 4426}#
+ #{tmp\ 4452}#
'(each-any any . each-any))))
- (if #{tmp\ 4433}#
+ (if #{tmp\ 4459}#
(@apply
- (lambda (#{k\ 4437}#
- #{e1\ 4438}#
- #{e2\ 4439}#)
+ (lambda (#{k\ 4463}#
+ #{e1\ 4464}#
+ #{e2\ 4465}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4434"
- "i4435"
- "i4436"))
+ #("i4460"
+ "i4461"
+ "i4462"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -16619,9 +16795,9 @@
#((top)
(top)
(top))
- #("i4434"
- "i4435"
- "i4436"))
+ #("i4460"
+ "i4461"
+ "i4462"))
#(ribcage
()
()
@@ -16633,17 +16809,17 @@
#((top)
(top)
(top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage
()
()
@@ -16651,7 +16827,7 @@
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
'#(syntax-object
t
@@ -16661,9 +16837,9 @@
#((top)
(top)
(top))
- #("i4434"
- "i4435"
- "i4436"))
+ #("i4460"
+ "i4461"
+ "i4462"))
#(ribcage
()
()
@@ -16675,17 +16851,17 @@
#((top)
(top)
(top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage
()
()
@@ -16693,7 +16869,7 @@
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -16705,9 +16881,9 @@
#((top)
(top)
(top))
-
#("i4434"
-
"i4435"
-
"i4436"))
+
#("i4460"
+
"i4461"
+
"i4462"))
#(ribcage
()
()
@@ -16719,9 +16895,9 @@
#((top)
(top)
(top))
-
#("i4419"
-
"i4420"
-
"i4421"))
+
#("i4445"
+
"i4446"
+
"i4447"))
#(ribcage
#(e
m1
@@ -16729,9 +16905,9 @@
#((top)
(top)
(top))
-
#("i4409"
-
"i4410"
-
"i4411"))
+
#("i4435"
+
"i4436"
+
"i4437"))
#(ribcage
()
()
@@ -16739,10 +16915,10 @@
#(ribcage
#(x)
#((top))
-
#("i4406")))
+
#("i4432")))
(hygiene
guile))
- #{k\ 4437}#))
+ #{k\ 4463}#))
(cons '#(syntax-object
begin
((top)
@@ -16751,9 +16927,9 @@
#((top)
(top)
(top))
- #("i4434"
- "i4435"
- "i4436"))
+ #("i4460"
+ "i4461"
+ "i4462"))
#(ribcage
()
()
@@ -16765,17 +16941,17 @@
#((top)
(top)
(top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage
()
()
@@ -16783,63 +16959,63 @@
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
- (cons #{e1\ 4438}#
- #{e2\
4439}#))))
- #{tmp\ 4433}#)
- (let ((#{_\ 4443}# #{tmp\ 4426}#))
+ (cons #{e1\ 4464}#
+ #{e2\
4465}#))))
+ #{tmp\ 4459}#)
+ (let ((#{_\ 4469}# #{tmp\ 4452}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4405}#
- #{clause\ 4423}#)))))))
- (let ((#{tmp\ 4445}#
- (#{f\ 4422}#
- (car #{clauses\ 4424}#)
- (cdr #{clauses\ 4424}#))))
- (let ((#{rest\ 4447}# #{tmp\ 4445}#))
- (let ((#{tmp\ 4448}# #{clause\ 4423}#))
- (let ((#{tmp\ 4449}#
+ #{x\ 4431}#
+ #{clause\ 4449}#)))))))
+ (let ((#{tmp\ 4471}#
+ (#{f\ 4448}#
+ (car #{clauses\ 4450}#)
+ (cdr #{clauses\ 4450}#))))
+ (let ((#{rest\ 4473}# #{tmp\ 4471}#))
+ (let ((#{tmp\ 4474}# #{clause\ 4449}#))
+ (let ((#{tmp\ 4475}#
($sc-dispatch
- #{tmp\ 4448}#
+ #{tmp\ 4474}#
'(each-any any . each-any))))
- (if #{tmp\ 4449}#
+ (if #{tmp\ 4475}#
(@apply
- (lambda (#{k\ 4453}#
- #{e1\ 4454}#
- #{e2\ 4455}#)
+ (lambda (#{k\ 4479}#
+ #{e1\ 4480}#
+ #{e2\ 4481}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4450"
- "i4451"
- "i4452"))
+ #("i4476"
+ "i4477"
+ "i4478"))
#(ribcage
#(rest)
#((top))
- #("i4446"))
+ #("i4472"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -16849,13 +17025,13 @@
#((top)
(top)
(top))
- #("i4450"
- "i4451"
- "i4452"))
+ #("i4476"
+ "i4477"
+ "i4478"))
#(ribcage
#(rest)
#((top))
- #("i4446"))
+ #("i4472"))
#(ribcage
()
()
@@ -16867,17 +17043,17 @@
#((top)
(top)
(top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage
()
()
@@ -16885,7 +17061,7 @@
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
'#(syntax-object
t
@@ -16895,13 +17071,13 @@
#((top)
(top)
(top))
- #("i4450"
- "i4451"
- "i4452"))
+ #("i4476"
+ "i4477"
+ "i4478"))
#(ribcage
#(rest)
#((top))
- #("i4446"))
+ #("i4472"))
#(ribcage
()
()
@@ -16913,17 +17089,17 @@
#((top)
(top)
(top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage
()
()
@@ -16931,7 +17107,7 @@
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -16943,13 +17119,13 @@
#((top)
(top)
(top))
-
#("i4450"
-
"i4451"
-
"i4452"))
+
#("i4476"
+
"i4477"
+
"i4478"))
#(ribcage
#(rest)
#((top))
-
#("i4446"))
+
#("i4472"))
#(ribcage
()
()
@@ -16961,9 +17137,9 @@
#((top)
(top)
(top))
-
#("i4419"
-
"i4420"
-
"i4421"))
+
#("i4445"
+
"i4446"
+
"i4447"))
#(ribcage
#(e
m1
@@ -16971,9 +17147,9 @@
#((top)
(top)
(top))
-
#("i4409"
-
"i4410"
-
"i4411"))
+
#("i4435"
+
"i4436"
+
"i4437"))
#(ribcage
()
()
@@ -16981,10 +17157,10 @@
#(ribcage
#(x)
#((top))
-
#("i4406")))
+
#("i4432")))
(hygiene
guile))
- #{k\ 4453}#))
+ #{k\ 4479}#))
(cons '#(syntax-object
begin
((top)
@@ -16993,13 +17169,13 @@
#((top)
(top)
(top))
- #("i4450"
- "i4451"
- "i4452"))
+ #("i4476"
+ "i4477"
+ "i4478"))
#(ribcage
#(rest)
#((top))
- #("i4446"))
+ #("i4472"))
#(ribcage
()
()
@@ -17011,17 +17187,17 @@
#((top)
(top)
(top))
- #("i4419"
- "i4420"
- "i4421"))
+ #("i4445"
+ "i4446"
+ "i4447"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4409"
- "i4410"
- "i4411"))
+ #("i4435"
+ "i4436"
+ "i4437"))
#(ribcage
()
()
@@ -17029,30 +17205,30 @@
#(ribcage
#(x)
#((top))
- #("i4406")))
+ #("i4432")))
(hygiene guile))
- (cons #{e1\ 4454}#
- #{e2\ 4455}#))
- #{rest\ 4447}#))
- #{tmp\ 4449}#)
- (let ((#{_\ 4459}# #{tmp\ 4448}#))
+ (cons #{e1\ 4480}#
+ #{e2\ 4481}#))
+ #{rest\ 4473}#))
+ #{tmp\ 4475}#)
+ (let ((#{_\ 4485}# #{tmp\ 4474}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4405}#
- #{clause\ 4423}#)))))))))))
- (begin (#{f\ 4422}# #{m1\ 4413}# #{m2\ 4414}#)))))
- (let ((#{body\ 4418}# #{tmp\ 4416}#))
+ #{x\ 4431}#
+ #{clause\ 4449}#)))))))))))
+ (begin (#{f\ 4448}# #{m1\ 4439}# #{m2\ 4440}#)))))
+ (let ((#{body\ 4444}# #{tmp\ 4442}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i4417"))
+ #(ribcage #(body) #((top)) #("i4443"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4409" "i4410" "i4411"))
+ #("i4435" "i4436" "i4437"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4406")))
+ #(ribcage #(x) #((top)) #("i4432")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -17060,177 +17236,177 @@
#(ribcage
#(body)
#((top))
- #("i4417"))
+ #("i4443"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4409" "i4410" "i4411"))
+ #("i4435" "i4436" "i4437"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4406")))
+ #(ribcage #(x) #((top)) #("i4432")))
(hygiene guile))
- #{e\ 4412}#))
- #{body\ 4418}#))))
- #{tmp\ 4408}#)
+ #{e\ 4438}#))
+ #{body\ 4444}#))))
+ #{tmp\ 4434}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4407}#)))))))
+ #{tmp\ 4433}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 4460}#)
- (if (procedure? #{proc\ 4460}#)
+ (lambda (#{proc\ 4486}#)
+ (if (procedure? #{proc\ 4486}#)
(begin
(letrec*
- ((#{trans\ 4463}#
- (lambda (#{x\ 4464}#)
- (#{proc\ 4460}# #{x\ 4464}#))))
+ ((#{trans\ 4489}#
+ (lambda (#{x\ 4490}#)
+ (#{proc\ 4486}# #{x\ 4490}#))))
(begin
(set-procedure-property!
- #{trans\ 4463}#
+ #{trans\ 4489}#
'variable-transformer
#t)
- #{trans\ 4463}#)))
+ #{trans\ 4489}#)))
(error "variable transformer not a procedure"
- #{proc\ 4460}#))))
+ #{proc\ 4486}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4466}#)
- (let ((#{tmp\ 4468}# #{x\ 4466}#))
- (let ((#{tmp\ 4469}#
- ($sc-dispatch #{tmp\ 4468}# (quote (_ any)))))
- (if #{tmp\ 4469}#
+ (lambda (#{x\ 4492}#)
+ (let ((#{tmp\ 4494}# #{x\ 4492}#))
+ (let ((#{tmp\ 4495}#
+ ($sc-dispatch #{tmp\ 4494}# (quote (_ any)))))
+ (if #{tmp\ 4495}#
(@apply
- (lambda (#{e\ 4471}#)
+ (lambda (#{e\ 4497}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
- #{e\ 4471}#))
+ #{e\ 4497}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4470"))
+ #(ribcage #(e) #((top)) #("i4496"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
- (cons #{e\ 4471}#
+ (cons #{e\ 4497}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4470"))
+ #("i4496"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
#(syntax-object
...
@@ -17238,55 +17414,55 @@
#(ribcage
#(e)
#((top))
- #("i4470"))
+ #("i4496"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile)))))))))
- #{tmp\ 4469}#)
- (let ((#{tmp\ 4472}#
+ #{tmp\ 4495}#)
+ (let ((#{tmp\ 4498}#
($sc-dispatch
- #{tmp\ 4468}#
+ #{tmp\ 4494}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp\ 4472}#
+ (if (if #{tmp\ 4498}#
(@apply
- (lambda (#{id\ 4478}#
- #{exp1\ 4479}#
- #{var\ 4480}#
- #{val\ 4481}#
- #{exp2\ 4482}#)
- (if (identifier? #{id\ 4478}#)
- (identifier? #{var\ 4480}#)
+ (lambda (#{id\ 4504}#
+ #{exp1\ 4505}#
+ #{var\ 4506}#
+ #{val\ 4507}#
+ #{exp2\ 4508}#)
+ (if (identifier? #{id\ 4504}#)
+ (identifier? #{var\ 4506}#)
#f))
- #{tmp\ 4472}#)
+ #{tmp\ 4498}#)
#f)
(@apply
- (lambda (#{id\ 4490}#
- #{exp1\ 4491}#
- #{var\ 4492}#
- #{val\ 4493}#
- #{exp2\ 4494}#)
+ (lambda (#{id\ 4516}#
+ #{exp1\ 4517}#
+ #{var\ 4518}#
+ #{val\ 4519}#
+ #{exp2\ 4520}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4485" "i4486" "i4487" "i4488" "i4489"))
+ #("i4511" "i4512" "i4513" "i4514" "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -17294,13 +17470,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
'(#(syntax-object
x
@@ -17308,13 +17484,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -17322,13 +17498,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
.
#(syntax-object
@@ -17337,13 +17513,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -17351,13 +17527,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
'#(syntax-object
x
@@ -17365,13 +17541,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile))
'(#(syntax-object
set!
@@ -17379,13 +17555,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4467")))
+ #(ribcage #(x) #((top)) #("i4493")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -17397,19 +17573,19 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
- #{var\ 4492}#
- #{val\ 4493}#)
+ #{var\ 4518}#
+ #{val\ 4519}#)
(list '#(syntax-object
syntax
((top)
@@ -17420,19 +17596,19 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
- #{exp2\ 4494}#))
- (list (cons #{id\ 4490}#
+ #{exp2\ 4520}#))
+ (list (cons #{id\ 4516}#
'(#(syntax-object
x
((top)
@@ -17447,16 +17623,16 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
#(syntax-object
...
@@ -17472,16 +17648,16 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -17493,18 +17669,18 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
- (cons #{exp1\ 4491}#
+ (cons #{exp1\ 4517}#
'(#(syntax-object
x
((top)
@@ -17519,11 +17695,11 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage
()
()
@@ -17531,7 +17707,7 @@
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
#(syntax-object
...
@@ -17547,11 +17723,11 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage
()
()
@@ -17559,10 +17735,10 @@
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene
guile))))))
- (list #{id\ 4490}#
+ (list #{id\ 4516}#
(list '#(syntax-object
identifier?
((top)
@@ -17573,16 +17749,16 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -17598,18 +17774,18 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
- #{id\ 4490}#))
+ #{id\ 4516}#))
(list '#(syntax-object
syntax
((top)
@@ -17620,69 +17796,69 @@
(top)
(top)
(top))
- #("i4485"
- "i4486"
- "i4487"
- "i4488"
- "i4489"))
+ #("i4511"
+ "i4512"
+ "i4513"
+ "i4514"
+ "i4515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4467")))
+ #("i4493")))
(hygiene guile))
- #{exp1\ 4491}#))))))
- #{tmp\ 4472}#)
+ #{exp1\ 4517}#))))))
+ #{tmp\ 4498}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4468}#)))))))))
+ #{tmp\ 4494}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4495}#)
- (let ((#{tmp\ 4497}# #{x\ 4495}#))
- (let ((#{tmp\ 4498}#
+ (lambda (#{x\ 4521}#)
+ (let ((#{tmp\ 4523}# #{x\ 4521}#))
+ (let ((#{tmp\ 4524}#
($sc-dispatch
- #{tmp\ 4497}#
+ #{tmp\ 4523}#
'(_ (any . any) any . each-any))))
- (if #{tmp\ 4498}#
+ (if #{tmp\ 4524}#
(@apply
- (lambda (#{id\ 4503}#
- #{args\ 4504}#
- #{b0\ 4505}#
- #{b1\ 4506}#)
+ (lambda (#{id\ 4529}#
+ #{args\ 4530}#
+ #{b0\ 4531}#
+ #{b1\ 4532}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4499" "i4500" "i4501" "i4502"))
+ #("i4525" "i4526" "i4527" "i4528"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4496")))
+ #(ribcage #(x) #((top)) #("i4522")))
(hygiene guile))
- #{id\ 4503}#
+ #{id\ 4529}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4499" "i4500" "i4501" "i4502"))
+ #("i4525" "i4526" "i4527" "i4528"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4496")))
+ #(ribcage #(x) #((top)) #("i4522")))
(hygiene guile))
- (cons #{args\ 4504}#
- (cons #{b0\ 4505}# #{b1\ 4506}#)))))
- #{tmp\ 4498}#)
- (let ((#{tmp\ 4508}#
- ($sc-dispatch #{tmp\ 4497}# (quote (_ any any)))))
- (if (if #{tmp\ 4508}#
+ (cons #{args\ 4530}#
+ (cons #{b0\ 4531}# #{b1\ 4532}#)))))
+ #{tmp\ 4524}#)
+ (let ((#{tmp\ 4534}#
+ ($sc-dispatch #{tmp\ 4523}# (quote (_ any any)))))
+ (if (if #{tmp\ 4534}#
(@apply
- (lambda (#{id\ 4511}# #{val\ 4512}#)
+ (lambda (#{id\ 4537}# #{val\ 4538}#)
(identifier?
'#(syntax-object
x
@@ -17690,29 +17866,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i4509" "i4510"))
+ #("i4535" "i4536"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4496")))
+ #(ribcage #(x) #((top)) #("i4522")))
(hygiene guile))))
- #{tmp\ 4508}#)
+ #{tmp\ 4534}#)
#f)
(@apply
- (lambda (#{id\ 4515}# #{val\ 4516}#)
+ (lambda (#{id\ 4541}# #{val\ 4542}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4513" "i4514"))
+ #("i4539" "i4540"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4496")))
+ #(ribcage #(x) #((top)) #("i4522")))
(hygiene guile))
- #{id\ 4515}#
- #{val\ 4516}#))
- #{tmp\ 4508}#)
+ #{id\ 4541}#
+ #{val\ 4542}#))
+ #{tmp\ 4534}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4497}#)))))))))
+ #{tmp\ 4523}#)))))))))
diff --git a/module/system/xref.scm b/module/system/xref.scm
index acf5ed2..199413e 100644
--- a/module/system/xref.scm
+++ b/module/system/xref.scm
@@ -23,7 +23,12 @@
#:use-module (srfi srfi-1)
#:export (*xref-ignored-modules*
procedure-callees
- procedure-callers))
+ procedure-callers
+ source-procedures))
+
+;;;
+;;; The cross-reference database: who calls whom.
+;;;
(define (program-callee-rev-vars prog)
(define (cons-uniq x y)
@@ -134,7 +139,7 @@
(define (ensure-callers-db mod-name)
(let ((mod (and mod-name (resolve-module mod-name)))
(visited #f))
- (define (visit-variable var recurse mod-name)
+ (define (visit-variable var mod-name)
(if (variable-bound? var)
(let ((x (variable-ref var)))
(cond
@@ -146,24 +151,31 @@
(for-each (lambda (callee)
(add-caller callee x mod-name))
callees)
- (add-callees callees mod-name)))
- ((and recurse (module? x))
- (visit-module x #t))))))
+ (add-callees callees mod-name)))))))
- (define (visit-module mod recurse)
+ (define (visit-module mod)
(if visited (hashq-set! visited mod #t))
(if (not (memq on-module-modified (module-observers mod)))
(module-observe mod on-module-modified))
(let ((name (module-name mod)))
(module-for-each (lambda (sym var)
- (visit-variable var recurse name))
+ (visit-variable var name))
mod)))
+ (define (visit-submodules mod)
+ (hash-for-each
+ (lambda (name sub)
+ (if (not (and visited (hashq-ref visited sub)))
+ (begin
+ (visit-module sub)
+ (visit-submodules sub))))
+ (module-submodules mod)))
+
(cond ((and (not mod-name) (not *callers-db*))
(set! *callers-db* (make-hash-table 1000))
(set! visited (make-hash-table 1000))
- (visit-module the-root-module #t))
- (mod-name (visit-module mod #f)))))
+ (visit-submodules (resolve-module '() #f)))
+ (mod-name (visit-module mod)))))
(define (procedure-callers var)
"Returns an association list, keyed by module name, of known callers
@@ -180,3 +192,162 @@ pair of the form (module-name . variable-name), "
(error "expected a variable, symbol, or (modname . sym)"
var)))))))
(untaint-modules)
(hashq-ref *callers-db* v '())))
+
+
+
+;;;
+;;; The source database: procedures defined at a given source location.
+;;;
+
+;; FIXME: refactor to share code with the xref database.
+
+;; ((ip file line . col) ...)
+(define (procedure-sources proc)
+ (cond
+ ((program? proc) (program-sources proc))
+ (else '())))
+
+;; file -> line -> (proc ...)
+(define *sources-db* #f)
+;; module-name -> proc -> sources
+(define *module-sources-db* (make-hash-table))
+;; (module-name ...)
+(define *tainted-sources* '())
+
+(define (on-source-modified m)
+ (let ((name (module-name m)))
+ (if (and (not (member name *xref-ignored-modules*))
+ (not (member name *tainted-sources*))
+ (pair? name))
+ (set! *tainted-sources* (cons name *tainted-sources*)))))
+
+(define (add-source proc file line)
+ (let ((file-table (or (hash-ref *sources-db* file)
+ (let ((table (make-hash-table)))
+ (hash-set! *sources-db* file table)
+ table))))
+ (hashv-set! file-table
+ line
+ (cons proc (hashv-ref file-table line '())))))
+
+(define (forget-source proc file line)
+ (let ((file-table (hash-ref *sources-db* file)))
+ (if file-table
+ (let ((procs (delq proc (hashv-ref file-table line '()))))
+ (if (pair? procs)
+ (hashv-set! file-table line procs)
+ (hashv-remove! file-table line))))))
+
+(define (add-sources proc mod-name)
+ (let ((sources (procedure-sources proc)))
+ (if (pair? sources)
+ (begin
+ ;; Add proc to *module-sources-db*, for book-keeping.
+ (hashq-set! (or (hash-ref *module-sources-db* mod-name)
+ (let ((table (make-hash-table)))
+ (hash-set! *module-sources-db* mod-name table)
+ table))
+ proc
+ sources)
+ ;; Actually add the source entries.
+ (for-each (lambda (source)
+ (pmatch source
+ ((,ip ,file ,line . ,col)
+ (add-source proc file line))
+ (else (error "unexpected source format" source))))
+ sources)))))
+
+(define (forget-sources proc mod-name)
+ (let ((mod-table (hash-ref *module-sources-db* mod-name)))
+ (if mod-table
+ (begin
+ ;; Forget source entries.
+ (for-each (lambda (source)
+ (pmatch source
+ ((,ip ,file ,line . ,col)
+ (forget-source proc file line))
+ (else (error "unexpected source format" source))))
+ (hashq-ref mod-table proc '()))
+ ;; Forget the proc.
+ (hashq-remove! mod-table proc)))))
+
+(define (untaint-sources)
+ (define (untaint m)
+ (for-each (lambda (proc) (forget-sources proc m))
+ (cond
+ ((hash-ref *module-sources-db* m)
+ => (lambda (table)
+ (hash-for-each (lambda (proc sources) proc) table)))
+ (else '())))
+ (ensure-sources-db m))
+ (ensure-sources-db #f)
+ (for-each untaint *tainted-sources*)
+ (set! *tainted-sources* '()))
+
+(define (ensure-sources-db mod-name)
+ (define (visit-module mod)
+ (if (not (memq on-source-modified (module-observers mod)))
+ (module-observe mod on-source-modified))
+ (let ((name (module-name mod)))
+ (module-for-each
+ (lambda (sym var)
+ (if (variable-bound? var)
+ (let ((x (variable-ref var)))
+ (if (procedure? x)
+ (add-sources x name)))))
+ mod)))
+
+ (define visit-submodules
+ (let ((visited #f))
+ (lambda (mod)
+ (if (not visited)
+ (set! visited (make-hash-table)))
+ (hash-for-each
+ (lambda (name sub)
+ (if (not (hashq-ref visited sub))
+ (begin
+ (hashq-set! visited sub #t)
+ (visit-module sub)
+ (visit-submodules sub))))
+ (module-submodules mod)))))
+
+ (cond ((and (not mod-name) (not *sources-db*))
+ (set! *sources-db* (make-hash-table 1000))
+ (visit-submodules (resolve-module '() #f)))
+ (mod-name (visit-module (resolve-module mod-name)))))
+
+(define (lines->ranges file-table)
+ (let ((ranges (make-hash-table)))
+ (hash-for-each
+ (lambda (line procs)
+ (for-each
+ (lambda (proc)
+ (cond
+ ((hashq-ref ranges proc)
+ => (lambda (pair)
+ (if (< line (car pair))
+ (set-car! pair line))
+ (if (> line (cdr pair))
+ (set-cdr! pair line))))
+ (else
+ (hashq-set! ranges proc (cons line line)))))
+ procs))
+ file-table)
+ (sort! (hash-map->list cons ranges)
+ (lambda (x y) (< (cadr x) (cadr y))))))
+
+(define* (source-procedures file line #:key (canonicalization 'relative))
+ (ensure-sources-db #f)
+ (let* ((port (with-fluids ((%file-port-name-canonicalization
canonicalization))
+ (false-if-exception (open-input-file file))))
+ (file (if port (port-filename port) file))
+ (file-table (hash-ref *sources-db* file)))
+ (if file-table
+ (let lp ((ranges (lines->ranges file-table))
+ (procs '()))
+ (cond
+ ((null? ranges) (reverse procs))
+ ((<= (cadar ranges) line (cddar ranges))
+ (lp (cdr ranges) (cons (caar ranges) procs)))
+ (else
+ (lp (cdr ranges) procs)))))))
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |