|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-11-130-g31fe120 |
| Date: | Mon, 21 Jun 2010 19:04:08 +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=31fe12021603701d3cf5dfe058d897e8fe558e1c
The branch, master has been updated
via 31fe12021603701d3cf5dfe058d897e8fe558e1c (commit)
via b78d91d517d900ee9825393be97d1f9079381367 (commit)
from 233b5d892cf56892f4e0e6ad9bc5e79a817fe023 (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 31fe12021603701d3cf5dfe058d897e8fe558e1c
Author: Andy Wingo <address@hidden>
Date: Mon Jun 21 21:06:29 2010 +0200
fix matches? test
* test-suite/tests/syntax.test (matches?): Unfortunately this relatively
recent macro fails due to the underscore-in-literals-list prohibition.
But, it seems I was in the minority wanting _ for a literal.
commit b78d91d517d900ee9825393be97d1f9079381367
Author: Andy Wingo <address@hidden>
Date: Mon Jun 21 20:54:14 2010 +0200
syntax-case treats _ as placeholder
* module/ice-9/psyntax.scm (underscore?): New helper, like ellipsis?.
(syntax-case): Treat the _ pattern as a matches-all pattern,
disallowing it from the keyword list. Another well-thought part of the
R6RS.
($sc-dispatch): Dispatch _ patterns.
* module/ice-9/psyntax-pp.scm: Regenerated.
* test-suite/tests/syncase.test ("_ is a placeholder"): Add a test.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/psyntax-pp.scm |15635 ++++++++++++++++++++++-------------------
module/ice-9/psyntax.scm | 51 +-
test-suite/tests/syncase.test | 11 +
test-suite/tests/syntax.test | 4 +-
4 files changed, 8642 insertions(+), 7059 deletions(-)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 761ad56..04225a8 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -3,1223 +3,1223 @@
(letrec*
((#{and-map*\ 36}#
- (lambda (#{f\ 208}# #{first\ 209}# . #{rest\ 210}#)
+ (lambda (#{f\ 200}# #{first\ 201}# . #{rest\ 202}#)
(begin
- (let ((#{t\ 216}# (null? #{first\ 209}#)))
- (if #{t\ 216}#
- #{t\ 216}#
- (if (null? #{rest\ 210}#)
+ (let ((#{t\ 208}# (null? #{first\ 201}#)))
+ (if #{t\ 208}#
+ #{t\ 208}#
+ (if (null? #{rest\ 202}#)
(letrec*
- ((#{andmap\ 220}#
- (lambda (#{first\ 221}#)
+ ((#{andmap\ 212}#
+ (lambda (#{first\ 213}#)
(begin
- (let ((#{x\ 224}# (car #{first\ 221}#))
- (#{first\ 225}# (cdr #{first\ 221}#)))
- (if (null? #{first\ 225}#)
- (#{f\ 208}# #{x\ 224}#)
- (if (#{f\ 208}# #{x\ 224}#)
- (#{andmap\ 220}# #{first\ 225}#)
+ (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\ 220}# #{first\ 209}#)))
+ (begin (#{andmap\ 212}# #{first\ 201}#)))
(letrec*
- ((#{andmap\ 231}#
- (lambda (#{first\ 232}# #{rest\ 233}#)
+ ((#{andmap\ 223}#
+ (lambda (#{first\ 224}# #{rest\ 225}#)
(begin
- (let ((#{x\ 238}# (car #{first\ 232}#))
- (#{xr\ 239}# (map car #{rest\ 233}#))
- (#{first\ 240}# (cdr #{first\ 232}#))
- (#{rest\ 241}# (map cdr #{rest\ 233}#)))
- (if (null? #{first\ 240}#)
- (@apply #{f\ 208}# (cons #{x\ 238}# #{xr\ 239}#))
+ (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}# (cons #{x\ 230}# #{xr\ 231}#))
(if (@apply
- #{f\ 208}#
- (cons #{x\ 238}# #{xr\ 239}#))
- (#{andmap\ 231}# #{first\ 240}# #{rest\ 241}#)
+ #{f\ 200}#
+ (cons #{x\ 230}# #{xr\ 231}#))
+ (#{andmap\ 223}# #{first\ 232}# #{rest\ 233}#)
#f)))))))
(begin
- (#{andmap\ 231}# #{first\ 209}# #{rest\ 210}#))))))))))
+ (#{andmap\ 223}# #{first\ 201}# #{rest\ 202}#))))))))))
(begin
- (let ((#{make-primitive-ref\ 250}# (if #f #f))
- (#{fx+\ 289}# (if #f #f))
- (#{fx-\ 291}# (if #f #f))
- (#{fx=\ 293}# (if #f #f))
- (#{fx<\ 295}# (if #f #f))
- (#{set-syntax-object-expression!\ 360}#
+ (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!\ 362}# (if #f #f))
- (#{set-syntax-object-module!\ 364}# (if #f #f))
- (#{binding-type\ 371}# (if #f #f))
- (#{binding-value\ 373}# (if #f #f))
- (#{make-wrap\ 393}# (if #f #f))
- (#{wrap-marks\ 395}# (if #f #f))
- (#{wrap-subst\ 397}# (if #f #f))
- (#{ribcage?\ 411}# (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\ 246}#
- (lambda (#{src\ 718}#)
+ ((#{make-void\ 238}#
+ (lambda (#{src\ 700}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 718}#)))
- (#{make-const\ 248}#
- (lambda (#{src\ 720}# #{exp\ 721}#)
+ #{src\ 700}#)))
+ (#{make-const\ 240}#
+ (lambda (#{src\ 702}# #{exp\ 703}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src\ 720}#
- #{exp\ 721}#)))
- (#{make-lexical-ref\ 252}#
- (lambda (#{src\ 728}# #{name\ 729}# #{gensym\ 730}#)
+ #{src\ 702}#
+ #{exp\ 703}#)))
+ (#{make-lexical-ref\ 244}#
+ (lambda (#{src\ 710}# #{name\ 711}# #{gensym\ 712}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src\ 728}#
- #{name\ 729}#
- #{gensym\ 730}#)))
- (#{make-lexical-set\ 254}#
- (lambda (#{src\ 734}#
- #{name\ 735}#
- #{gensym\ 736}#
- #{exp\ 737}#)
+ #{src\ 710}#
+ #{name\ 711}#
+ #{gensym\ 712}#)))
+ (#{make-lexical-set\ 246}#
+ (lambda (#{src\ 716}#
+ #{name\ 717}#
+ #{gensym\ 718}#
+ #{exp\ 719}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src\ 734}#
- #{name\ 735}#
- #{gensym\ 736}#
- #{exp\ 737}#)))
- (#{make-module-ref\ 256}#
- (lambda (#{src\ 742}#
- #{mod\ 743}#
- #{name\ 744}#
- #{public?\ 745}#)
+ #{src\ 716}#
+ #{name\ 717}#
+ #{gensym\ 718}#
+ #{exp\ 719}#)))
+ (#{make-module-ref\ 248}#
+ (lambda (#{src\ 724}#
+ #{mod\ 725}#
+ #{name\ 726}#
+ #{public?\ 727}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src\ 742}#
- #{mod\ 743}#
- #{name\ 744}#
- #{public?\ 745}#)))
- (#{make-module-set\ 258}#
- (lambda (#{src\ 750}#
- #{mod\ 751}#
- #{name\ 752}#
- #{public?\ 753}#
- #{exp\ 754}#)
+ #{src\ 724}#
+ #{mod\ 725}#
+ #{name\ 726}#
+ #{public?\ 727}#)))
+ (#{make-module-set\ 250}#
+ (lambda (#{src\ 732}#
+ #{mod\ 733}#
+ #{name\ 734}#
+ #{public?\ 735}#
+ #{exp\ 736}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src\ 750}#
- #{mod\ 751}#
- #{name\ 752}#
- #{public?\ 753}#
- #{exp\ 754}#)))
- (#{make-toplevel-ref\ 260}#
- (lambda (#{src\ 760}# #{name\ 761}#)
+ #{src\ 732}#
+ #{mod\ 733}#
+ #{name\ 734}#
+ #{public?\ 735}#
+ #{exp\ 736}#)))
+ (#{make-toplevel-ref\ 252}#
+ (lambda (#{src\ 742}# #{name\ 743}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src\ 760}#
- #{name\ 761}#)))
- (#{make-toplevel-set\ 262}#
- (lambda (#{src\ 764}# #{name\ 765}# #{exp\ 766}#)
+ #{src\ 742}#
+ #{name\ 743}#)))
+ (#{make-toplevel-set\ 254}#
+ (lambda (#{src\ 746}# #{name\ 747}# #{exp\ 748}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src\ 764}#
- #{name\ 765}#
- #{exp\ 766}#)))
- (#{make-toplevel-define\ 264}#
- (lambda (#{src\ 770}# #{name\ 771}# #{exp\ 772}#)
+ #{src\ 746}#
+ #{name\ 747}#
+ #{exp\ 748}#)))
+ (#{make-toplevel-define\ 256}#
+ (lambda (#{src\ 752}# #{name\ 753}# #{exp\ 754}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src\ 770}#
- #{name\ 771}#
- #{exp\ 772}#)))
- (#{make-conditional\ 266}#
- (lambda (#{src\ 776}#
- #{test\ 777}#
- #{consequent\ 778}#
- #{alternate\ 779}#)
+ #{src\ 752}#
+ #{name\ 753}#
+ #{exp\ 754}#)))
+ (#{make-conditional\ 258}#
+ (lambda (#{src\ 758}#
+ #{test\ 759}#
+ #{consequent\ 760}#
+ #{alternate\ 761}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src\ 776}#
- #{test\ 777}#
- #{consequent\ 778}#
- #{alternate\ 779}#)))
- (#{make-application\ 268}#
- (lambda (#{src\ 784}# #{proc\ 785}# #{args\ 786}#)
+ #{src\ 758}#
+ #{test\ 759}#
+ #{consequent\ 760}#
+ #{alternate\ 761}#)))
+ (#{make-application\ 260}#
+ (lambda (#{src\ 766}# #{proc\ 767}# #{args\ 768}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 784}#
- #{proc\ 785}#
- #{args\ 786}#)))
- (#{make-sequence\ 270}#
- (lambda (#{src\ 790}# #{exps\ 791}#)
+ #{src\ 766}#
+ #{proc\ 767}#
+ #{args\ 768}#)))
+ (#{make-sequence\ 262}#
+ (lambda (#{src\ 772}# #{exps\ 773}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 790}#
- #{exps\ 791}#)))
- (#{make-lambda\ 272}#
- (lambda (#{src\ 794}# #{meta\ 795}# #{body\ 796}#)
+ #{src\ 772}#
+ #{exps\ 773}#)))
+ (#{make-lambda\ 264}#
+ (lambda (#{src\ 776}# #{meta\ 777}# #{body\ 778}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src\ 794}#
- #{meta\ 795}#
- #{body\ 796}#)))
- (#{make-lambda-case\ 274}#
- (lambda (#{src\ 800}#
- #{req\ 801}#
- #{opt\ 802}#
- #{rest\ 803}#
- #{kw\ 804}#
- #{inits\ 805}#
- #{gensyms\ 806}#
- #{body\ 807}#
- #{alternate\ 808}#)
+ #{src\ 776}#
+ #{meta\ 777}#
+ #{body\ 778}#)))
+ (#{make-lambda-case\ 266}#
+ (lambda (#{src\ 782}#
+ #{req\ 783}#
+ #{opt\ 784}#
+ #{rest\ 785}#
+ #{kw\ 786}#
+ #{inits\ 787}#
+ #{gensyms\ 788}#
+ #{body\ 789}#
+ #{alternate\ 790}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src\ 800}#
- #{req\ 801}#
- #{opt\ 802}#
- #{rest\ 803}#
- #{kw\ 804}#
- #{inits\ 805}#
- #{gensyms\ 806}#
- #{body\ 807}#
- #{alternate\ 808}#)))
- (#{make-let\ 276}#
- (lambda (#{src\ 818}#
- #{names\ 819}#
- #{gensyms\ 820}#
- #{vals\ 821}#
- #{body\ 822}#)
+ #{src\ 782}#
+ #{req\ 783}#
+ #{opt\ 784}#
+ #{rest\ 785}#
+ #{kw\ 786}#
+ #{inits\ 787}#
+ #{gensyms\ 788}#
+ #{body\ 789}#
+ #{alternate\ 790}#)))
+ (#{make-let\ 268}#
+ (lambda (#{src\ 800}#
+ #{names\ 801}#
+ #{gensyms\ 802}#
+ #{vals\ 803}#
+ #{body\ 804}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src\ 818}#
- #{names\ 819}#
- #{gensyms\ 820}#
- #{vals\ 821}#
- #{body\ 822}#)))
- (#{make-letrec\ 278}#
- (lambda (#{src\ 828}#
- #{in-order?\ 829}#
- #{names\ 830}#
- #{gensyms\ 831}#
- #{vals\ 832}#
- #{body\ 833}#)
+ #{src\ 800}#
+ #{names\ 801}#
+ #{gensyms\ 802}#
+ #{vals\ 803}#
+ #{body\ 804}#)))
+ (#{make-letrec\ 270}#
+ (lambda (#{src\ 810}#
+ #{in-order?\ 811}#
+ #{names\ 812}#
+ #{gensyms\ 813}#
+ #{vals\ 814}#
+ #{body\ 815}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src\ 828}#
- #{in-order?\ 829}#
- #{names\ 830}#
- #{gensyms\ 831}#
- #{vals\ 832}#
- #{body\ 833}#)))
- (#{make-dynlet\ 280}#
- (lambda (#{src\ 840}#
- #{fluids\ 841}#
- #{vals\ 842}#
- #{body\ 843}#)
+ #{src\ 810}#
+ #{in-order?\ 811}#
+ #{names\ 812}#
+ #{gensyms\ 813}#
+ #{vals\ 814}#
+ #{body\ 815}#)))
+ (#{make-dynlet\ 272}#
+ (lambda (#{src\ 822}#
+ #{fluids\ 823}#
+ #{vals\ 824}#
+ #{body\ 825}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src\ 840}#
- #{fluids\ 841}#
- #{vals\ 842}#
- #{body\ 843}#)))
- (#{lambda?\ 283}#
- (lambda (#{x\ 848}#)
- (if (struct? #{x\ 848}#)
- (eq? (struct-vtable #{x\ 848}#)
+ #{src\ 822}#
+ #{fluids\ 823}#
+ #{vals\ 824}#
+ #{body\ 825}#)))
+ (#{lambda?\ 275}#
+ (lambda (#{x\ 830}#)
+ (if (struct? #{x\ 830}#)
+ (eq? (struct-vtable #{x\ 830}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta\ 285}#
- (lambda (#{x\ 852}#) (struct-ref #{x\ 852}# 1)))
- (#{set-lambda-meta!\ 287}#
- (lambda (#{x\ 854}# #{v\ 855}#)
- (struct-set! #{x\ 854}# 1 #{v\ 855}#)))
- (#{top-level-eval-hook\ 297}#
- (lambda (#{x\ 858}# #{mod\ 859}#)
- (primitive-eval #{x\ 858}#)))
- (#{local-eval-hook\ 299}#
- (lambda (#{x\ 862}# #{mod\ 863}#)
- (primitive-eval #{x\ 862}#)))
- (#{put-global-definition-hook\ 302}#
- (lambda (#{symbol\ 866}# #{type\ 867}# #{val\ 868}#)
+ (#{lambda-meta\ 277}#
+ (lambda (#{x\ 834}#) (struct-ref #{x\ 834}# 1)))
+ (#{set-lambda-meta!\ 279}#
+ (lambda (#{x\ 836}# #{v\ 837}#)
+ (struct-set! #{x\ 836}# 1 #{v\ 837}#)))
+ (#{top-level-eval-hook\ 289}#
+ (lambda (#{x\ 840}# #{mod\ 841}#)
+ (primitive-eval #{x\ 840}#)))
+ (#{local-eval-hook\ 291}#
+ (lambda (#{x\ 844}# #{mod\ 845}#)
+ (primitive-eval #{x\ 844}#)))
+ (#{put-global-definition-hook\ 294}#
+ (lambda (#{symbol\ 848}# #{type\ 849}# #{val\ 850}#)
(module-define!
(current-module)
- #{symbol\ 866}#
+ #{symbol\ 848}#
(make-syntax-transformer
- #{symbol\ 866}#
- #{type\ 867}#
- #{val\ 868}#))))
- (#{get-global-definition-hook\ 304}#
- (lambda (#{symbol\ 872}# #{module\ 873}#)
+ #{symbol\ 848}#
+ #{type\ 849}#
+ #{val\ 850}#))))
+ (#{get-global-definition-hook\ 296}#
+ (lambda (#{symbol\ 854}# #{module\ 855}#)
(begin
- (if (if (not #{module\ 873}#) (current-module) #f)
+ (if (if (not #{module\ 855}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 872}#))
+ #{symbol\ 854}#))
(begin
- (let ((#{v\ 879}# (module-variable
- (if #{module\ 873}#
- (resolve-module (cdr #{module\ 873}#))
+ (let ((#{v\ 861}# (module-variable
+ (if #{module\ 855}#
+ (resolve-module (cdr #{module\ 855}#))
(current-module))
- #{symbol\ 872}#)))
- (if #{v\ 879}#
- (if (variable-bound? #{v\ 879}#)
+ #{symbol\ 854}#)))
+ (if #{v\ 861}#
+ (if (variable-bound? #{v\ 861}#)
(begin
- (let ((#{val\ 884}# (variable-ref #{v\ 879}#)))
- (if (macro? #{val\ 884}#)
- (if (macro-type #{val\ 884}#)
- (cons (macro-type #{val\ 884}#)
- (macro-binding #{val\ 884}#))
+ (let ((#{val\ 866}# (variable-ref #{v\ 861}#)))
+ (if (macro? #{val\ 866}#)
+ (if (macro-type #{val\ 866}#)
+ (cons (macro-type #{val\ 866}#)
+ (macro-binding #{val\ 866}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 306}#
- (lambda (#{e\ 888}# #{s\ 889}#)
+ (#{decorate-source\ 298}#
+ (lambda (#{e\ 870}# #{s\ 871}#)
(begin
- (if (if (pair? #{e\ 888}#) #{s\ 889}# #f)
- (set-source-properties! #{e\ 888}# #{s\ 889}#))
- #{e\ 888}#)))
- (#{maybe-name-value!\ 308}#
- (lambda (#{name\ 894}# #{val\ 895}#)
- (if (#{lambda?\ 283}# #{val\ 895}#)
+ (if (if (pair? #{e\ 870}#) #{s\ 871}# #f)
+ (set-source-properties! #{e\ 870}# #{s\ 871}#))
+ #{e\ 870}#)))
+ (#{maybe-name-value!\ 300}#
+ (lambda (#{name\ 876}# #{val\ 877}#)
+ (if (#{lambda?\ 275}# #{val\ 877}#)
(begin
- (let ((#{meta\ 899}#
- (#{lambda-meta\ 285}# #{val\ 895}#)))
- (if (not (assq (quote name) #{meta\ 899}#))
- (#{set-lambda-meta!\ 287}#
- #{val\ 895}#
- (cons (cons (quote name) #{name\ 894}#)
- #{meta\ 899}#))))))))
- (#{build-void\ 310}#
- (lambda (#{source\ 900}#)
- (#{make-void\ 246}# #{source\ 900}#)))
- (#{build-application\ 312}#
- (lambda (#{source\ 902}#
- #{fun-exp\ 903}#
- #{arg-exps\ 904}#)
- (#{make-application\ 268}#
- #{source\ 902}#
- #{fun-exp\ 903}#
- #{arg-exps\ 904}#)))
- (#{build-conditional\ 314}#
- (lambda (#{source\ 908}#
- #{test-exp\ 909}#
- #{then-exp\ 910}#
- #{else-exp\ 911}#)
- (#{make-conditional\ 266}#
- #{source\ 908}#
- #{test-exp\ 909}#
- #{then-exp\ 910}#
- #{else-exp\ 911}#)))
- (#{build-dynlet\ 316}#
- (lambda (#{source\ 916}#
- #{fluids\ 917}#
- #{vals\ 918}#
- #{body\ 919}#)
- (#{make-dynlet\ 280}#
- #{source\ 916}#
- #{fluids\ 917}#
- #{vals\ 918}#
- #{body\ 919}#)))
- (#{build-lexical-reference\ 318}#
- (lambda (#{type\ 924}#
- #{source\ 925}#
- #{name\ 926}#
- #{var\ 927}#)
- (#{make-lexical-ref\ 252}#
- #{source\ 925}#
- #{name\ 926}#
- #{var\ 927}#)))
- (#{build-lexical-assignment\ 320}#
- (lambda (#{source\ 932}#
- #{name\ 933}#
- #{var\ 934}#
- #{exp\ 935}#)
+ (let ((#{meta\ 881}#
+ (#{lambda-meta\ 277}# #{val\ 877}#)))
+ (if (not (assq (quote name) #{meta\ 881}#))
+ (#{set-lambda-meta!\ 279}#
+ #{val\ 877}#
+ (cons (cons (quote name) #{name\ 876}#)
+ #{meta\ 881}#))))))))
+ (#{build-void\ 302}#
+ (lambda (#{source\ 882}#)
+ (#{make-void\ 238}# #{source\ 882}#)))
+ (#{build-application\ 304}#
+ (lambda (#{source\ 884}#
+ #{fun-exp\ 885}#
+ #{arg-exps\ 886}#)
+ (#{make-application\ 260}#
+ #{source\ 884}#
+ #{fun-exp\ 885}#
+ #{arg-exps\ 886}#)))
+ (#{build-conditional\ 306}#
+ (lambda (#{source\ 890}#
+ #{test-exp\ 891}#
+ #{then-exp\ 892}#
+ #{else-exp\ 893}#)
+ (#{make-conditional\ 258}#
+ #{source\ 890}#
+ #{test-exp\ 891}#
+ #{then-exp\ 892}#
+ #{else-exp\ 893}#)))
+ (#{build-dynlet\ 308}#
+ (lambda (#{source\ 898}#
+ #{fluids\ 899}#
+ #{vals\ 900}#
+ #{body\ 901}#)
+ (#{make-dynlet\ 272}#
+ #{source\ 898}#
+ #{fluids\ 899}#
+ #{vals\ 900}#
+ #{body\ 901}#)))
+ (#{build-lexical-reference\ 310}#
+ (lambda (#{type\ 906}#
+ #{source\ 907}#
+ #{name\ 908}#
+ #{var\ 909}#)
+ (#{make-lexical-ref\ 244}#
+ #{source\ 907}#
+ #{name\ 908}#
+ #{var\ 909}#)))
+ (#{build-lexical-assignment\ 312}#
+ (lambda (#{source\ 914}#
+ #{name\ 915}#
+ #{var\ 916}#
+ #{exp\ 917}#)
(begin
- (#{maybe-name-value!\ 308}#
- #{name\ 933}#
- #{exp\ 935}#)
- (#{make-lexical-set\ 254}#
- #{source\ 932}#
- #{name\ 933}#
- #{var\ 934}#
- #{exp\ 935}#))))
- (#{analyze-variable\ 322}#
- (lambda (#{mod\ 940}#
- #{var\ 941}#
- #{modref-cont\ 942}#
- #{bare-cont\ 943}#)
- (if (not #{mod\ 940}#)
- (#{bare-cont\ 943}# #{var\ 941}#)
+ (#{maybe-name-value!\ 300}#
+ #{name\ 915}#
+ #{exp\ 917}#)
+ (#{make-lexical-set\ 246}#
+ #{source\ 914}#
+ #{name\ 915}#
+ #{var\ 916}#
+ #{exp\ 917}#))))
+ (#{analyze-variable\ 314}#
+ (lambda (#{mod\ 922}#
+ #{var\ 923}#
+ #{modref-cont\ 924}#
+ #{bare-cont\ 925}#)
+ (if (not #{mod\ 922}#)
+ (#{bare-cont\ 925}# #{var\ 923}#)
(begin
- (let ((#{kind\ 950}# (car #{mod\ 940}#))
- (#{mod\ 951}# (cdr #{mod\ 940}#)))
- (if (eqv? #{kind\ 950}# (quote public))
- (#{modref-cont\ 942}#
- #{mod\ 951}#
- #{var\ 941}#
+ (let ((#{kind\ 932}# (car #{mod\ 922}#))
+ (#{mod\ 933}# (cdr #{mod\ 922}#)))
+ (if (eqv? #{kind\ 932}# (quote public))
+ (#{modref-cont\ 924}#
+ #{mod\ 933}#
+ #{var\ 923}#
#t)
- (if (eqv? #{kind\ 950}# (quote private))
+ (if (eqv? #{kind\ 932}# (quote private))
(if (not (equal?
- #{mod\ 951}#
+ #{mod\ 933}#
(module-name (current-module))))
- (#{modref-cont\ 942}#
- #{mod\ 951}#
- #{var\ 941}#
+ (#{modref-cont\ 924}#
+ #{mod\ 933}#
+ #{var\ 923}#
#f)
- (#{bare-cont\ 943}# #{var\ 941}#))
- (if (eqv? #{kind\ 950}# (quote bare))
- (#{bare-cont\ 943}# #{var\ 941}#)
- (if (eqv? #{kind\ 950}# (quote hygiene))
+ (#{bare-cont\ 925}# #{var\ 923}#))
+ (if (eqv? #{kind\ 932}# (quote bare))
+ (#{bare-cont\ 925}# #{var\ 923}#)
+ (if (eqv? #{kind\ 932}# (quote hygiene))
(if (if (not (equal?
- #{mod\ 951}#
+ #{mod\ 933}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 951}#)
- #{var\ 941}#)
+ (resolve-module #{mod\ 933}#)
+ #{var\ 923}#)
#f)
- (#{modref-cont\ 942}#
- #{mod\ 951}#
- #{var\ 941}#
+ (#{modref-cont\ 924}#
+ #{mod\ 933}#
+ #{var\ 923}#
#f)
- (#{bare-cont\ 943}# #{var\ 941}#))
+ (#{bare-cont\ 925}# #{var\ 923}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 941}#
- #{mod\ 951}#))))))))))
- (#{build-global-reference\ 324}#
- (lambda (#{source\ 959}# #{var\ 960}# #{mod\ 961}#)
- (#{analyze-variable\ 322}#
- #{mod\ 961}#
- #{var\ 960}#
- (lambda (#{mod\ 965}# #{var\ 966}# #{public?\ 967}#)
- (#{make-module-ref\ 256}#
- #{source\ 959}#
- #{mod\ 965}#
- #{var\ 966}#
- #{public?\ 967}#))
- (lambda (#{var\ 971}#)
- (#{make-toplevel-ref\ 260}#
- #{source\ 959}#
- #{var\ 971}#)))))
- (#{build-global-assignment\ 326}#
- (lambda (#{source\ 973}#
- #{var\ 974}#
- #{exp\ 975}#
- #{mod\ 976}#)
+ #{var\ 923}#
+ #{mod\ 933}#))))))))))
+ (#{build-global-reference\ 316}#
+ (lambda (#{source\ 941}# #{var\ 942}# #{mod\ 943}#)
+ (#{analyze-variable\ 314}#
+ #{mod\ 943}#
+ #{var\ 942}#
+ (lambda (#{mod\ 947}# #{var\ 948}# #{public?\ 949}#)
+ (#{make-module-ref\ 248}#
+ #{source\ 941}#
+ #{mod\ 947}#
+ #{var\ 948}#
+ #{public?\ 949}#))
+ (lambda (#{var\ 953}#)
+ (#{make-toplevel-ref\ 252}#
+ #{source\ 941}#
+ #{var\ 953}#)))))
+ (#{build-global-assignment\ 318}#
+ (lambda (#{source\ 955}#
+ #{var\ 956}#
+ #{exp\ 957}#
+ #{mod\ 958}#)
(begin
- (#{maybe-name-value!\ 308}#
- #{var\ 974}#
- #{exp\ 975}#)
- (#{analyze-variable\ 322}#
- #{mod\ 976}#
- #{var\ 974}#
- (lambda (#{mod\ 981}# #{var\ 982}# #{public?\ 983}#)
- (#{make-module-set\ 258}#
- #{source\ 973}#
- #{mod\ 981}#
- #{var\ 982}#
- #{public?\ 983}#
- #{exp\ 975}#))
- (lambda (#{var\ 987}#)
- (#{make-toplevel-set\ 262}#
- #{source\ 973}#
- #{var\ 987}#
- #{exp\ 975}#))))))
- (#{build-global-definition\ 328}#
- (lambda (#{source\ 989}# #{var\ 990}# #{exp\ 991}#)
+ (#{maybe-name-value!\ 300}#
+ #{var\ 956}#
+ #{exp\ 957}#)
+ (#{analyze-variable\ 314}#
+ #{mod\ 958}#
+ #{var\ 956}#
+ (lambda (#{mod\ 963}# #{var\ 964}# #{public?\ 965}#)
+ (#{make-module-set\ 250}#
+ #{source\ 955}#
+ #{mod\ 963}#
+ #{var\ 964}#
+ #{public?\ 965}#
+ #{exp\ 957}#))
+ (lambda (#{var\ 969}#)
+ (#{make-toplevel-set\ 254}#
+ #{source\ 955}#
+ #{var\ 969}#
+ #{exp\ 957}#))))))
+ (#{build-global-definition\ 320}#
+ (lambda (#{source\ 971}# #{var\ 972}# #{exp\ 973}#)
(begin
- (#{maybe-name-value!\ 308}#
- #{var\ 990}#
- #{exp\ 991}#)
- (#{make-toplevel-define\ 264}#
- #{source\ 989}#
- #{var\ 990}#
- #{exp\ 991}#))))
- (#{build-simple-lambda\ 330}#
- (lambda (#{src\ 995}#
- #{req\ 996}#
- #{rest\ 997}#
- #{vars\ 998}#
- #{meta\ 999}#
- #{exp\ 1000}#)
- (#{make-lambda\ 272}#
- #{src\ 995}#
- #{meta\ 999}#
- (#{make-lambda-case\ 274}#
- #{src\ 995}#
- #{req\ 996}#
+ (#{maybe-name-value!\ 300}#
+ #{var\ 972}#
+ #{exp\ 973}#)
+ (#{make-toplevel-define\ 256}#
+ #{source\ 971}#
+ #{var\ 972}#
+ #{exp\ 973}#))))
+ (#{build-simple-lambda\ 322}#
+ (lambda (#{src\ 977}#
+ #{req\ 978}#
+ #{rest\ 979}#
+ #{vars\ 980}#
+ #{meta\ 981}#
+ #{exp\ 982}#)
+ (#{make-lambda\ 264}#
+ #{src\ 977}#
+ #{meta\ 981}#
+ (#{make-lambda-case\ 266}#
+ #{src\ 977}#
+ #{req\ 978}#
#f
- #{rest\ 997}#
+ #{rest\ 979}#
#f
'()
- #{vars\ 998}#
- #{exp\ 1000}#
+ #{vars\ 980}#
+ #{exp\ 982}#
#f))))
- (#{build-case-lambda\ 332}#
- (lambda (#{src\ 1007}# #{meta\ 1008}# #{body\ 1009}#)
- (#{make-lambda\ 272}#
- #{src\ 1007}#
- #{meta\ 1008}#
- #{body\ 1009}#)))
- (#{build-lambda-case\ 334}#
- (lambda (#{src\ 1013}#
- #{req\ 1014}#
- #{opt\ 1015}#
- #{rest\ 1016}#
- #{kw\ 1017}#
- #{inits\ 1018}#
- #{vars\ 1019}#
- #{body\ 1020}#
- #{else-case\ 1021}#)
- (#{make-lambda-case\ 274}#
- #{src\ 1013}#
- #{req\ 1014}#
- #{opt\ 1015}#
- #{rest\ 1016}#
- #{kw\ 1017}#
- #{inits\ 1018}#
- #{vars\ 1019}#
- #{body\ 1020}#
- #{else-case\ 1021}#)))
- (#{build-primref\ 336}#
- (lambda (#{src\ 1031}# #{name\ 1032}#)
+ (#{build-case-lambda\ 324}#
+ (lambda (#{src\ 989}# #{meta\ 990}# #{body\ 991}#)
+ (#{make-lambda\ 264}#
+ #{src\ 989}#
+ #{meta\ 990}#
+ #{body\ 991}#)))
+ (#{build-lambda-case\ 326}#
+ (lambda (#{src\ 995}#
+ #{req\ 996}#
+ #{opt\ 997}#
+ #{rest\ 998}#
+ #{kw\ 999}#
+ #{inits\ 1000}#
+ #{vars\ 1001}#
+ #{body\ 1002}#
+ #{else-case\ 1003}#)
+ (#{make-lambda-case\ 266}#
+ #{src\ 995}#
+ #{req\ 996}#
+ #{opt\ 997}#
+ #{rest\ 998}#
+ #{kw\ 999}#
+ #{inits\ 1000}#
+ #{vars\ 1001}#
+ #{body\ 1002}#
+ #{else-case\ 1003}#)))
+ (#{build-primref\ 328}#
+ (lambda (#{src\ 1013}# #{name\ 1014}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 260}#
- #{src\ 1031}#
- #{name\ 1032}#)
- (#{make-module-ref\ 256}#
- #{src\ 1031}#
+ (#{make-toplevel-ref\ 252}#
+ #{src\ 1013}#
+ #{name\ 1014}#)
+ (#{make-module-ref\ 248}#
+ #{src\ 1013}#
'(guile)
- #{name\ 1032}#
+ #{name\ 1014}#
#f))))
- (#{build-data\ 338}#
- (lambda (#{src\ 1035}# #{exp\ 1036}#)
- (#{make-const\ 248}# #{src\ 1035}# #{exp\ 1036}#)))
- (#{build-sequence\ 340}#
- (lambda (#{src\ 1039}# #{exps\ 1040}#)
- (if (null? (cdr #{exps\ 1040}#))
- (car #{exps\ 1040}#)
- (#{make-sequence\ 270}#
- #{src\ 1039}#
- #{exps\ 1040}#))))
- (#{build-let\ 342}#
- (lambda (#{src\ 1043}#
- #{ids\ 1044}#
- #{vars\ 1045}#
- #{val-exps\ 1046}#
- #{body-exp\ 1047}#)
+ (#{build-data\ 330}#
+ (lambda (#{src\ 1017}# #{exp\ 1018}#)
+ (#{make-const\ 240}# #{src\ 1017}# #{exp\ 1018}#)))
+ (#{build-sequence\ 332}#
+ (lambda (#{src\ 1021}# #{exps\ 1022}#)
+ (if (null? (cdr #{exps\ 1022}#))
+ (car #{exps\ 1022}#)
+ (#{make-sequence\ 262}#
+ #{src\ 1021}#
+ #{exps\ 1022}#))))
+ (#{build-let\ 334}#
+ (lambda (#{src\ 1025}#
+ #{ids\ 1026}#
+ #{vars\ 1027}#
+ #{val-exps\ 1028}#
+ #{body-exp\ 1029}#)
(begin
(for-each
- #{maybe-name-value!\ 308}#
- #{ids\ 1044}#
- #{val-exps\ 1046}#)
- (if (null? #{vars\ 1045}#)
- #{body-exp\ 1047}#
- (#{make-let\ 276}#
- #{src\ 1043}#
- #{ids\ 1044}#
- #{vars\ 1045}#
- #{val-exps\ 1046}#
- #{body-exp\ 1047}#)))))
- (#{build-named-let\ 344}#
- (lambda (#{src\ 1053}#
- #{ids\ 1054}#
- #{vars\ 1055}#
- #{val-exps\ 1056}#
- #{body-exp\ 1057}#)
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1026}#
+ #{val-exps\ 1028}#)
+ (if (null? #{vars\ 1027}#)
+ #{body-exp\ 1029}#
+ (#{make-let\ 268}#
+ #{src\ 1025}#
+ #{ids\ 1026}#
+ #{vars\ 1027}#
+ #{val-exps\ 1028}#
+ #{body-exp\ 1029}#)))))
+ (#{build-named-let\ 336}#
+ (lambda (#{src\ 1035}#
+ #{ids\ 1036}#
+ #{vars\ 1037}#
+ #{val-exps\ 1038}#
+ #{body-exp\ 1039}#)
(begin
- (let ((#{f\ 1067}# (car #{vars\ 1055}#))
- (#{f-name\ 1068}# (car #{ids\ 1054}#))
- (#{vars\ 1069}# (cdr #{vars\ 1055}#))
- (#{ids\ 1070}# (cdr #{ids\ 1054}#)))
+ (let ((#{f\ 1049}# (car #{vars\ 1037}#))
+ (#{f-name\ 1050}# (car #{ids\ 1036}#))
+ (#{vars\ 1051}# (cdr #{vars\ 1037}#))
+ (#{ids\ 1052}# (cdr #{ids\ 1036}#)))
(begin
- (let ((#{proc\ 1072}#
- (#{build-simple-lambda\ 330}#
- #{src\ 1053}#
- #{ids\ 1070}#
+ (let ((#{proc\ 1054}#
+ (#{build-simple-lambda\ 322}#
+ #{src\ 1035}#
+ #{ids\ 1052}#
#f
- #{vars\ 1069}#
+ #{vars\ 1051}#
'()
- #{body-exp\ 1057}#)))
+ #{body-exp\ 1039}#)))
(begin
- (#{maybe-name-value!\ 308}#
- #{f-name\ 1068}#
- #{proc\ 1072}#)
+ (#{maybe-name-value!\ 300}#
+ #{f-name\ 1050}#
+ #{proc\ 1054}#)
(for-each
- #{maybe-name-value!\ 308}#
- #{ids\ 1070}#
- #{val-exps\ 1056}#)
- (#{make-letrec\ 278}#
- #{src\ 1053}#
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1052}#
+ #{val-exps\ 1038}#)
+ (#{make-letrec\ 270}#
+ #{src\ 1035}#
#f
- (list #{f-name\ 1068}#)
- (list #{f\ 1067}#)
- (list #{proc\ 1072}#)
- (#{build-application\ 312}#
- #{src\ 1053}#
- (#{build-lexical-reference\ 318}#
+ (list #{f-name\ 1050}#)
+ (list #{f\ 1049}#)
+ (list #{proc\ 1054}#)
+ (#{build-application\ 304}#
+ #{src\ 1035}#
+ (#{build-lexical-reference\ 310}#
'fun
- #{src\ 1053}#
- #{f-name\ 1068}#
- #{f\ 1067}#)
- #{val-exps\ 1056}#)))))))))
- (#{build-letrec\ 346}#
- (lambda (#{src\ 1073}#
- #{in-order?\ 1074}#
- #{ids\ 1075}#
- #{vars\ 1076}#
- #{val-exps\ 1077}#
- #{body-exp\ 1078}#)
- (if (null? #{vars\ 1076}#)
- #{body-exp\ 1078}#
+ #{src\ 1035}#
+ #{f-name\ 1050}#
+ #{f\ 1049}#)
+ #{val-exps\ 1038}#)))))))))
+ (#{build-letrec\ 338}#
+ (lambda (#{src\ 1055}#
+ #{in-order?\ 1056}#
+ #{ids\ 1057}#
+ #{vars\ 1058}#
+ #{val-exps\ 1059}#
+ #{body-exp\ 1060}#)
+ (if (null? #{vars\ 1058}#)
+ #{body-exp\ 1060}#
(begin
(for-each
- #{maybe-name-value!\ 308}#
- #{ids\ 1075}#
- #{val-exps\ 1077}#)
- (#{make-letrec\ 278}#
- #{src\ 1073}#
- #{in-order?\ 1074}#
- #{ids\ 1075}#
- #{vars\ 1076}#
- #{val-exps\ 1077}#
- #{body-exp\ 1078}#)))))
- (#{make-syntax-object\ 350}#
- (lambda (#{expression\ 1085}#
- #{wrap\ 1086}#
- #{module\ 1087}#)
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1057}#
+ #{val-exps\ 1059}#)
+ (#{make-letrec\ 270}#
+ #{src\ 1055}#
+ #{in-order?\ 1056}#
+ #{ids\ 1057}#
+ #{vars\ 1058}#
+ #{val-exps\ 1059}#
+ #{body-exp\ 1060}#)))))
+ (#{make-syntax-object\ 342}#
+ (lambda (#{expression\ 1067}#
+ #{wrap\ 1068}#
+ #{module\ 1069}#)
(vector
'syntax-object
- #{expression\ 1085}#
- #{wrap\ 1086}#
- #{module\ 1087}#)))
- (#{syntax-object?\ 352}#
- (lambda (#{x\ 1091}#)
- (if (vector? #{x\ 1091}#)
- (if (= (vector-length #{x\ 1091}#) 4)
- (eq? (vector-ref #{x\ 1091}# 0)
+ #{expression\ 1067}#
+ #{wrap\ 1068}#
+ #{module\ 1069}#)))
+ (#{syntax-object?\ 344}#
+ (lambda (#{x\ 1073}#)
+ (if (vector? #{x\ 1073}#)
+ (if (= (vector-length #{x\ 1073}#) 4)
+ (eq? (vector-ref #{x\ 1073}# 0)
'syntax-object)
#f)
#f)))
- (#{syntax-object-expression\ 354}#
- (lambda (#{x\ 1096}#) (vector-ref #{x\ 1096}# 1)))
- (#{syntax-object-wrap\ 356}#
- (lambda (#{x\ 1098}#) (vector-ref #{x\ 1098}# 2)))
- (#{syntax-object-module\ 358}#
- (lambda (#{x\ 1100}#) (vector-ref #{x\ 1100}# 3)))
- (#{source-annotation\ 367}#
- (lambda (#{x\ 1114}#)
- (if (#{syntax-object?\ 352}# #{x\ 1114}#)
- (#{source-annotation\ 367}#
- (#{syntax-object-expression\ 354}# #{x\ 1114}#))
- (if (pair? #{x\ 1114}#)
+ (#{syntax-object-expression\ 346}#
+ (lambda (#{x\ 1078}#) (vector-ref #{x\ 1078}# 1)))
+ (#{syntax-object-wrap\ 348}#
+ (lambda (#{x\ 1080}#) (vector-ref #{x\ 1080}# 2)))
+ (#{syntax-object-module\ 350}#
+ (lambda (#{x\ 1082}#) (vector-ref #{x\ 1082}# 3)))
+ (#{source-annotation\ 359}#
+ (lambda (#{x\ 1096}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1096}#)
+ (#{source-annotation\ 359}#
+ (#{syntax-object-expression\ 346}# #{x\ 1096}#))
+ (if (pair? #{x\ 1096}#)
(begin
- (let ((#{props\ 1121}# (source-properties #{x\ 1114}#)))
- (if (pair? #{props\ 1121}#) #{props\ 1121}# #f)))
+ (let ((#{props\ 1103}# (source-properties #{x\ 1096}#)))
+ (if (pair? #{props\ 1103}#) #{props\ 1103}# #f)))
#f))))
- (#{extend-env\ 376}#
- (lambda (#{labels\ 1123}# #{bindings\ 1124}# #{r\ 1125}#)
- (if (null? #{labels\ 1123}#)
- #{r\ 1125}#
- (#{extend-env\ 376}#
- (cdr #{labels\ 1123}#)
- (cdr #{bindings\ 1124}#)
- (cons (cons (car #{labels\ 1123}#)
- (car #{bindings\ 1124}#))
- #{r\ 1125}#)))))
- (#{extend-var-env\ 378}#
- (lambda (#{labels\ 1129}# #{vars\ 1130}# #{r\ 1131}#)
- (if (null? #{labels\ 1129}#)
- #{r\ 1131}#
- (#{extend-var-env\ 378}#
- (cdr #{labels\ 1129}#)
- (cdr #{vars\ 1130}#)
- (cons (cons (car #{labels\ 1129}#)
- (cons (quote lexical) (car #{vars\ 1130}#)))
- #{r\ 1131}#)))))
- (#{macros-only-env\ 380}#
- (lambda (#{r\ 1136}#)
- (if (null? #{r\ 1136}#)
+ (#{extend-env\ 368}#
+ (lambda (#{labels\ 1105}# #{bindings\ 1106}# #{r\ 1107}#)
+ (if (null? #{labels\ 1105}#)
+ #{r\ 1107}#
+ (#{extend-env\ 368}#
+ (cdr #{labels\ 1105}#)
+ (cdr #{bindings\ 1106}#)
+ (cons (cons (car #{labels\ 1105}#)
+ (car #{bindings\ 1106}#))
+ #{r\ 1107}#)))))
+ (#{extend-var-env\ 370}#
+ (lambda (#{labels\ 1111}# #{vars\ 1112}# #{r\ 1113}#)
+ (if (null? #{labels\ 1111}#)
+ #{r\ 1113}#
+ (#{extend-var-env\ 370}#
+ (cdr #{labels\ 1111}#)
+ (cdr #{vars\ 1112}#)
+ (cons (cons (car #{labels\ 1111}#)
+ (cons (quote lexical) (car #{vars\ 1112}#)))
+ #{r\ 1113}#)))))
+ (#{macros-only-env\ 372}#
+ (lambda (#{r\ 1118}#)
+ (if (null? #{r\ 1118}#)
'()
(begin
- (let ((#{a\ 1139}# (car #{r\ 1136}#)))
- (if (eq? (car (cdr #{a\ 1139}#)) (quote macro))
- (cons #{a\ 1139}#
- (#{macros-only-env\ 380}# (cdr #{r\ 1136}#)))
- (#{macros-only-env\ 380}# (cdr #{r\ 1136}#))))))))
- (#{lookup\ 382}#
- (lambda (#{x\ 1140}# #{r\ 1141}# #{mod\ 1142}#)
+ (let ((#{a\ 1121}# (car #{r\ 1118}#)))
+ (if (eq? (car (cdr #{a\ 1121}#)) (quote macro))
+ (cons #{a\ 1121}#
+ (#{macros-only-env\ 372}# (cdr #{r\ 1118}#)))
+ (#{macros-only-env\ 372}# (cdr #{r\ 1118}#))))))))
+ (#{lookup\ 374}#
+ (lambda (#{x\ 1122}# #{r\ 1123}# #{mod\ 1124}#)
(begin
- (let ((#{t\ 1148}# (assq #{x\ 1140}# #{r\ 1141}#)))
- (if #{t\ 1148}#
- (cdr #{t\ 1148}#)
- (if (symbol? #{x\ 1140}#)
+ (let ((#{t\ 1130}# (assq #{x\ 1122}# #{r\ 1123}#)))
+ (if #{t\ 1130}#
+ (cdr #{t\ 1130}#)
+ (if (symbol? #{x\ 1122}#)
(begin
- (let ((#{t\ 1154}#
- (#{get-global-definition-hook\ 304}#
- #{x\ 1140}#
- #{mod\ 1142}#)))
- (if #{t\ 1154}# #{t\ 1154}# (quote (global)))))
+ (let ((#{t\ 1136}#
+ (#{get-global-definition-hook\ 296}#
+ #{x\ 1122}#
+ #{mod\ 1124}#)))
+ (if #{t\ 1136}# #{t\ 1136}# (quote (global)))))
'(displaced-lexical)))))))
- (#{global-extend\ 384}#
- (lambda (#{type\ 1159}# #{sym\ 1160}# #{val\ 1161}#)
- (#{put-global-definition-hook\ 302}#
- #{sym\ 1160}#
- #{type\ 1159}#
- #{val\ 1161}#)))
- (#{nonsymbol-id?\ 386}#
- (lambda (#{x\ 1165}#)
- (if (#{syntax-object?\ 352}# #{x\ 1165}#)
+ (#{global-extend\ 376}#
+ (lambda (#{type\ 1141}# #{sym\ 1142}# #{val\ 1143}#)
+ (#{put-global-definition-hook\ 294}#
+ #{sym\ 1142}#
+ #{type\ 1141}#
+ #{val\ 1143}#)))
+ (#{nonsymbol-id?\ 378}#
+ (lambda (#{x\ 1147}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1147}#)
(symbol?
- (#{syntax-object-expression\ 354}# #{x\ 1165}#))
+ (#{syntax-object-expression\ 346}# #{x\ 1147}#))
#f)))
- (#{id?\ 388}#
- (lambda (#{x\ 1169}#)
- (if (symbol? #{x\ 1169}#)
+ (#{id?\ 380}#
+ (lambda (#{x\ 1151}#)
+ (if (symbol? #{x\ 1151}#)
#t
- (if (#{syntax-object?\ 352}# #{x\ 1169}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1151}#)
(symbol?
- (#{syntax-object-expression\ 354}# #{x\ 1169}#))
+ (#{syntax-object-expression\ 346}# #{x\ 1151}#))
#f))))
- (#{id-sym-name&marks\ 391}#
- (lambda (#{x\ 1176}# #{w\ 1177}#)
- (if (#{syntax-object?\ 352}# #{x\ 1176}#)
+ (#{id-sym-name&marks\ 383}#
+ (lambda (#{x\ 1158}# #{w\ 1159}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1158}#)
(values
- (#{syntax-object-expression\ 354}# #{x\ 1176}#)
- (#{join-marks\ 441}#
- (#{wrap-marks\ 395}# #{w\ 1177}#)
- (#{wrap-marks\ 395}#
- (#{syntax-object-wrap\ 356}# #{x\ 1176}#))))
+ (#{syntax-object-expression\ 346}# #{x\ 1158}#)
+ (#{join-marks\ 433}#
+ (#{wrap-marks\ 387}# #{w\ 1159}#)
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1158}#))))
(values
- #{x\ 1176}#
- (#{wrap-marks\ 395}# #{w\ 1177}#)))))
- (#{gen-label\ 404}#
+ #{x\ 1158}#
+ (#{wrap-marks\ 387}# #{w\ 1159}#)))))
+ (#{gen-label\ 396}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 406}#
- (lambda (#{ls\ 1180}#)
- (if (null? #{ls\ 1180}#)
+ (#{gen-labels\ 398}#
+ (lambda (#{ls\ 1162}#)
+ (if (null? #{ls\ 1162}#)
'()
- (cons (#{gen-label\ 404}#)
- (#{gen-labels\ 406}# (cdr #{ls\ 1180}#))))))
- (#{make-ribcage\ 409}#
- (lambda (#{symnames\ 1182}#
- #{marks\ 1183}#
- #{labels\ 1184}#)
+ (cons (#{gen-label\ 396}#)
+ (#{gen-labels\ 398}# (cdr #{ls\ 1162}#))))))
+ (#{make-ribcage\ 401}#
+ (lambda (#{symnames\ 1164}#
+ #{marks\ 1165}#
+ #{labels\ 1166}#)
(vector
'ribcage
- #{symnames\ 1182}#
- #{marks\ 1183}#
- #{labels\ 1184}#)))
- (#{ribcage-symnames\ 413}#
- (lambda (#{x\ 1193}#) (vector-ref #{x\ 1193}# 1)))
- (#{ribcage-marks\ 415}#
- (lambda (#{x\ 1195}#) (vector-ref #{x\ 1195}# 2)))
- (#{ribcage-labels\ 417}#
- (lambda (#{x\ 1197}#) (vector-ref #{x\ 1197}# 3)))
- (#{set-ribcage-symnames!\ 419}#
- (lambda (#{x\ 1199}# #{update\ 1200}#)
- (vector-set! #{x\ 1199}# 1 #{update\ 1200}#)))
- (#{set-ribcage-marks!\ 421}#
- (lambda (#{x\ 1203}# #{update\ 1204}#)
- (vector-set! #{x\ 1203}# 2 #{update\ 1204}#)))
- (#{set-ribcage-labels!\ 423}#
- (lambda (#{x\ 1207}# #{update\ 1208}#)
- (vector-set! #{x\ 1207}# 3 #{update\ 1208}#)))
- (#{anti-mark\ 429}#
- (lambda (#{w\ 1211}#)
- (#{make-wrap\ 393}#
- (cons #f (#{wrap-marks\ 395}# #{w\ 1211}#))
+ #{symnames\ 1164}#
+ #{marks\ 1165}#
+ #{labels\ 1166}#)))
+ (#{ribcage-symnames\ 405}#
+ (lambda (#{x\ 1175}#) (vector-ref #{x\ 1175}# 1)))
+ (#{ribcage-marks\ 407}#
+ (lambda (#{x\ 1177}#) (vector-ref #{x\ 1177}# 2)))
+ (#{ribcage-labels\ 409}#
+ (lambda (#{x\ 1179}#) (vector-ref #{x\ 1179}# 3)))
+ (#{set-ribcage-symnames!\ 411}#
+ (lambda (#{x\ 1181}# #{update\ 1182}#)
+ (vector-set! #{x\ 1181}# 1 #{update\ 1182}#)))
+ (#{set-ribcage-marks!\ 413}#
+ (lambda (#{x\ 1185}# #{update\ 1186}#)
+ (vector-set! #{x\ 1185}# 2 #{update\ 1186}#)))
+ (#{set-ribcage-labels!\ 415}#
+ (lambda (#{x\ 1189}# #{update\ 1190}#)
+ (vector-set! #{x\ 1189}# 3 #{update\ 1190}#)))
+ (#{anti-mark\ 421}#
+ (lambda (#{w\ 1193}#)
+ (#{make-wrap\ 385}#
+ (cons #f (#{wrap-marks\ 387}# #{w\ 1193}#))
(cons 'shift
- (#{wrap-subst\ 397}# #{w\ 1211}#)))))
- (#{extend-ribcage!\ 433}#
- (lambda (#{ribcage\ 1214}# #{id\ 1215}# #{label\ 1216}#)
+ (#{wrap-subst\ 389}# #{w\ 1193}#)))))
+ (#{extend-ribcage!\ 425}#
+ (lambda (#{ribcage\ 1196}# #{id\ 1197}# #{label\ 1198}#)
(begin
- (#{set-ribcage-symnames!\ 419}#
- #{ribcage\ 1214}#
- (cons (#{syntax-object-expression\ 354}# #{id\ 1215}#)
- (#{ribcage-symnames\ 413}# #{ribcage\ 1214}#)))
- (#{set-ribcage-marks!\ 421}#
- #{ribcage\ 1214}#
- (cons (#{wrap-marks\ 395}#
- (#{syntax-object-wrap\ 356}# #{id\ 1215}#))
- (#{ribcage-marks\ 415}# #{ribcage\ 1214}#)))
- (#{set-ribcage-labels!\ 423}#
- #{ribcage\ 1214}#
- (cons #{label\ 1216}#
- (#{ribcage-labels\ 417}# #{ribcage\ 1214}#))))))
- (#{make-binding-wrap\ 435}#
- (lambda (#{ids\ 1220}# #{labels\ 1221}# #{w\ 1222}#)
- (if (null? #{ids\ 1220}#)
- #{w\ 1222}#
- (#{make-wrap\ 393}#
- (#{wrap-marks\ 395}# #{w\ 1222}#)
+ (#{set-ribcage-symnames!\ 411}#
+ #{ribcage\ 1196}#
+ (cons (#{syntax-object-expression\ 346}# #{id\ 1197}#)
+ (#{ribcage-symnames\ 405}# #{ribcage\ 1196}#)))
+ (#{set-ribcage-marks!\ 413}#
+ #{ribcage\ 1196}#
+ (cons (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{id\ 1197}#))
+ (#{ribcage-marks\ 407}# #{ribcage\ 1196}#)))
+ (#{set-ribcage-labels!\ 415}#
+ #{ribcage\ 1196}#
+ (cons #{label\ 1198}#
+ (#{ribcage-labels\ 409}# #{ribcage\ 1196}#))))))
+ (#{make-binding-wrap\ 427}#
+ (lambda (#{ids\ 1202}# #{labels\ 1203}# #{w\ 1204}#)
+ (if (null? #{ids\ 1202}#)
+ #{w\ 1204}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w\ 1204}#)
(cons (begin
- (let ((#{labelvec\ 1227}#
- (list->vector #{labels\ 1221}#)))
+ (let ((#{labelvec\ 1209}#
+ (list->vector #{labels\ 1203}#)))
(begin
- (let ((#{n\ 1229}#
- (vector-length #{labelvec\ 1227}#)))
+ (let ((#{n\ 1211}#
+ (vector-length #{labelvec\ 1209}#)))
(begin
- (let ((#{symnamevec\ 1232}#
- (make-vector #{n\ 1229}#))
- (#{marksvec\ 1233}#
- (make-vector #{n\ 1229}#)))
+ (let ((#{symnamevec\ 1214}#
+ (make-vector #{n\ 1211}#))
+ (#{marksvec\ 1215}#
+ (make-vector #{n\ 1211}#)))
(begin
(letrec*
- ((#{f\ 1237}#
- (lambda (#{ids\ 1238}# #{i\ 1239}#)
- (if (not (null? #{ids\ 1238}#))
+ ((#{f\ 1219}#
+ (lambda (#{ids\ 1220}# #{i\ 1221}#)
+ (if (not (null? #{ids\ 1220}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 391}#
- (car #{ids\ 1238}#)
- #{w\ 1222}#))
- (lambda (#{symname\ 1240}#
- #{marks\ 1241}#)
+ (#{id-sym-name&marks\ 383}#
+ (car #{ids\ 1220}#)
+ #{w\ 1204}#))
+ (lambda (#{symname\ 1222}#
+ #{marks\ 1223}#)
(begin
(vector-set!
- #{symnamevec\ 1232}#
- #{i\ 1239}#
- #{symname\ 1240}#)
+ #{symnamevec\ 1214}#
+ #{i\ 1221}#
+ #{symname\ 1222}#)
(vector-set!
- #{marksvec\ 1233}#
- #{i\ 1239}#
- #{marks\ 1241}#)
- (#{f\ 1237}#
- (cdr #{ids\ 1238}#)
- (#{fx+\ 289}#
- #{i\ 1239}#
+ #{marksvec\ 1215}#
+ #{i\ 1221}#
+ #{marks\ 1223}#)
+ (#{f\ 1219}#
+ (cdr #{ids\ 1220}#)
+ (#{fx+\ 281}#
+ #{i\ 1221}#
1)))))))))
- (begin (#{f\ 1237}# #{ids\ 1220}# 0)))
- (#{make-ribcage\ 409}#
- #{symnamevec\ 1232}#
- #{marksvec\ 1233}#
- #{labelvec\ 1227}#))))))))
- (#{wrap-subst\ 397}# #{w\ 1222}#))))))
- (#{smart-append\ 437}#
- (lambda (#{m1\ 1244}# #{m2\ 1245}#)
- (if (null? #{m2\ 1245}#)
- #{m1\ 1244}#
- (append #{m1\ 1244}# #{m2\ 1245}#))))
- (#{join-wraps\ 439}#
- (lambda (#{w1\ 1248}# #{w2\ 1249}#)
+ (begin (#{f\ 1219}# #{ids\ 1202}# 0)))
+ (#{make-ribcage\ 401}#
+ #{symnamevec\ 1214}#
+ #{marksvec\ 1215}#
+ #{labelvec\ 1209}#))))))))
+ (#{wrap-subst\ 389}# #{w\ 1204}#))))))
+ (#{smart-append\ 429}#
+ (lambda (#{m1\ 1226}# #{m2\ 1227}#)
+ (if (null? #{m2\ 1227}#)
+ #{m1\ 1226}#
+ (append #{m1\ 1226}# #{m2\ 1227}#))))
+ (#{join-wraps\ 431}#
+ (lambda (#{w1\ 1230}# #{w2\ 1231}#)
(begin
- (let ((#{m1\ 1254}# (#{wrap-marks\ 395}# #{w1\ 1248}#))
- (#{s1\ 1255}# (#{wrap-subst\ 397}# #{w1\ 1248}#)))
- (if (null? #{m1\ 1254}#)
- (if (null? #{s1\ 1255}#)
- #{w2\ 1249}#
- (#{make-wrap\ 393}#
- (#{wrap-marks\ 395}# #{w2\ 1249}#)
- (#{smart-append\ 437}#
- #{s1\ 1255}#
- (#{wrap-subst\ 397}# #{w2\ 1249}#))))
- (#{make-wrap\ 393}#
- (#{smart-append\ 437}#
- #{m1\ 1254}#
- (#{wrap-marks\ 395}# #{w2\ 1249}#))
- (#{smart-append\ 437}#
- #{s1\ 1255}#
- (#{wrap-subst\ 397}# #{w2\ 1249}#))))))))
- (#{join-marks\ 441}#
- (lambda (#{m1\ 1256}# #{m2\ 1257}#)
- (#{smart-append\ 437}# #{m1\ 1256}# #{m2\ 1257}#)))
- (#{same-marks?\ 443}#
- (lambda (#{x\ 1260}# #{y\ 1261}#)
+ (let ((#{m1\ 1236}# (#{wrap-marks\ 387}# #{w1\ 1230}#))
+ (#{s1\ 1237}# (#{wrap-subst\ 389}# #{w1\ 1230}#)))
+ (if (null? #{m1\ 1236}#)
+ (if (null? #{s1\ 1237}#)
+ #{w2\ 1231}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w2\ 1231}#)
+ (#{smart-append\ 429}#
+ #{s1\ 1237}#
+ (#{wrap-subst\ 389}# #{w2\ 1231}#))))
+ (#{make-wrap\ 385}#
+ (#{smart-append\ 429}#
+ #{m1\ 1236}#
+ (#{wrap-marks\ 387}# #{w2\ 1231}#))
+ (#{smart-append\ 429}#
+ #{s1\ 1237}#
+ (#{wrap-subst\ 389}# #{w2\ 1231}#))))))))
+ (#{join-marks\ 433}#
+ (lambda (#{m1\ 1238}# #{m2\ 1239}#)
+ (#{smart-append\ 429}# #{m1\ 1238}# #{m2\ 1239}#)))
+ (#{same-marks?\ 435}#
+ (lambda (#{x\ 1242}# #{y\ 1243}#)
(begin
- (let ((#{t\ 1266}# (eq? #{x\ 1260}# #{y\ 1261}#)))
- (if #{t\ 1266}#
- #{t\ 1266}#
- (if (not (null? #{x\ 1260}#))
- (if (not (null? #{y\ 1261}#))
- (if (eq? (car #{x\ 1260}#) (car #{y\ 1261}#))
- (#{same-marks?\ 443}#
- (cdr #{x\ 1260}#)
- (cdr #{y\ 1261}#))
+ (let ((#{t\ 1248}# (eq? #{x\ 1242}# #{y\ 1243}#)))
+ (if #{t\ 1248}#
+ #{t\ 1248}#
+ (if (not (null? #{x\ 1242}#))
+ (if (not (null? #{y\ 1243}#))
+ (if (eq? (car #{x\ 1242}#) (car #{y\ 1243}#))
+ (#{same-marks?\ 435}#
+ (cdr #{x\ 1242}#)
+ (cdr #{y\ 1243}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 445}#
- (lambda (#{id\ 1272}# #{w\ 1273}#)
+ (#{id-var-name\ 437}#
+ (lambda (#{id\ 1254}# #{w\ 1255}#)
(letrec*
- ((#{search\ 1278}#
- (lambda (#{sym\ 1294}# #{subst\ 1295}# #{marks\ 1296}#)
- (if (null? #{subst\ 1295}#)
- (values #f #{marks\ 1296}#)
+ ((#{search\ 1260}#
+ (lambda (#{sym\ 1276}# #{subst\ 1277}# #{marks\ 1278}#)
+ (if (null? #{subst\ 1277}#)
+ (values #f #{marks\ 1278}#)
(begin
- (let ((#{fst\ 1301}# (car #{subst\ 1295}#)))
- (if (eq? #{fst\ 1301}# (quote shift))
- (#{search\ 1278}#
- #{sym\ 1294}#
- (cdr #{subst\ 1295}#)
- (cdr #{marks\ 1296}#))
+ (let ((#{fst\ 1283}# (car #{subst\ 1277}#)))
+ (if (eq? #{fst\ 1283}# (quote shift))
+ (#{search\ 1260}#
+ #{sym\ 1276}#
+ (cdr #{subst\ 1277}#)
+ (cdr #{marks\ 1278}#))
(begin
- (let ((#{symnames\ 1303}#
- (#{ribcage-symnames\ 413}#
- #{fst\ 1301}#)))
- (if (vector? #{symnames\ 1303}#)
- (#{search-vector-rib\ 1282}#
- #{sym\ 1294}#
- #{subst\ 1295}#
- #{marks\ 1296}#
- #{symnames\ 1303}#
- #{fst\ 1301}#)
- (#{search-list-rib\ 1280}#
- #{sym\ 1294}#
- #{subst\ 1295}#
- #{marks\ 1296}#
- #{symnames\ 1303}#
- #{fst\ 1301}#))))))))))
- (#{search-list-rib\ 1280}#
- (lambda (#{sym\ 1304}#
- #{subst\ 1305}#
- #{marks\ 1306}#
- #{symnames\ 1307}#
- #{ribcage\ 1308}#)
+ (let ((#{symnames\ 1285}#
+ (#{ribcage-symnames\ 405}#
+ #{fst\ 1283}#)))
+ (if (vector? #{symnames\ 1285}#)
+ (#{search-vector-rib\ 1264}#
+ #{sym\ 1276}#
+ #{subst\ 1277}#
+ #{marks\ 1278}#
+ #{symnames\ 1285}#
+ #{fst\ 1283}#)
+ (#{search-list-rib\ 1262}#
+ #{sym\ 1276}#
+ #{subst\ 1277}#
+ #{marks\ 1278}#
+ #{symnames\ 1285}#
+ #{fst\ 1283}#))))))))))
+ (#{search-list-rib\ 1262}#
+ (lambda (#{sym\ 1286}#
+ #{subst\ 1287}#
+ #{marks\ 1288}#
+ #{symnames\ 1289}#
+ #{ribcage\ 1290}#)
(letrec*
- ((#{f\ 1317}#
- (lambda (#{symnames\ 1318}# #{i\ 1319}#)
- (if (null? #{symnames\ 1318}#)
- (#{search\ 1278}#
- #{sym\ 1304}#
- (cdr #{subst\ 1305}#)
- #{marks\ 1306}#)
- (if (if (eq? (car #{symnames\ 1318}#)
- #{sym\ 1304}#)
- (#{same-marks?\ 443}#
- #{marks\ 1306}#
+ ((#{f\ 1299}#
+ (lambda (#{symnames\ 1300}# #{i\ 1301}#)
+ (if (null? #{symnames\ 1300}#)
+ (#{search\ 1260}#
+ #{sym\ 1286}#
+ (cdr #{subst\ 1287}#)
+ #{marks\ 1288}#)
+ (if (if (eq? (car #{symnames\ 1300}#)
+ #{sym\ 1286}#)
+ (#{same-marks?\ 435}#
+ #{marks\ 1288}#
(list-ref
- (#{ribcage-marks\ 415}#
- #{ribcage\ 1308}#)
- #{i\ 1319}#))
+ (#{ribcage-marks\ 407}#
+ #{ribcage\ 1290}#)
+ #{i\ 1301}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 417}# #{ribcage\ 1308}#)
- #{i\ 1319}#)
- #{marks\ 1306}#)
- (#{f\ 1317}#
- (cdr #{symnames\ 1318}#)
- (#{fx+\ 289}# #{i\ 1319}# 1)))))))
- (begin (#{f\ 1317}# #{symnames\ 1307}# 0)))))
- (#{search-vector-rib\ 1282}#
- (lambda (#{sym\ 1327}#
- #{subst\ 1328}#
- #{marks\ 1329}#
- #{symnames\ 1330}#
- #{ribcage\ 1331}#)
+ (#{ribcage-labels\ 409}# #{ribcage\ 1290}#)
+ #{i\ 1301}#)
+ #{marks\ 1288}#)
+ (#{f\ 1299}#
+ (cdr #{symnames\ 1300}#)
+ (#{fx+\ 281}# #{i\ 1301}# 1)))))))
+ (begin (#{f\ 1299}# #{symnames\ 1289}# 0)))))
+ (#{search-vector-rib\ 1264}#
+ (lambda (#{sym\ 1309}#
+ #{subst\ 1310}#
+ #{marks\ 1311}#
+ #{symnames\ 1312}#
+ #{ribcage\ 1313}#)
(begin
- (let ((#{n\ 1338}# (vector-length #{symnames\ 1330}#)))
+ (let ((#{n\ 1320}# (vector-length #{symnames\ 1312}#)))
(letrec*
- ((#{f\ 1341}#
- (lambda (#{i\ 1342}#)
- (if (#{fx=\ 293}# #{i\ 1342}# #{n\ 1338}#)
- (#{search\ 1278}#
- #{sym\ 1327}#
- (cdr #{subst\ 1328}#)
- #{marks\ 1329}#)
+ ((#{f\ 1323}#
+ (lambda (#{i\ 1324}#)
+ (if (#{fx=\ 285}# #{i\ 1324}# #{n\ 1320}#)
+ (#{search\ 1260}#
+ #{sym\ 1309}#
+ (cdr #{subst\ 1310}#)
+ #{marks\ 1311}#)
(if (if (eq? (vector-ref
- #{symnames\ 1330}#
- #{i\ 1342}#)
- #{sym\ 1327}#)
- (#{same-marks?\ 443}#
- #{marks\ 1329}#
+ #{symnames\ 1312}#
+ #{i\ 1324}#)
+ #{sym\ 1309}#)
+ (#{same-marks?\ 435}#
+ #{marks\ 1311}#
(vector-ref
- (#{ribcage-marks\ 415}#
- #{ribcage\ 1331}#)
- #{i\ 1342}#))
+ (#{ribcage-marks\ 407}#
+ #{ribcage\ 1313}#)
+ #{i\ 1324}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 417}#
- #{ribcage\ 1331}#)
- #{i\ 1342}#)
- #{marks\ 1329}#)
- (#{f\ 1341}#
- (#{fx+\ 289}# #{i\ 1342}# 1)))))))
- (begin (#{f\ 1341}# 0))))))))
+ (#{ribcage-labels\ 409}#
+ #{ribcage\ 1313}#)
+ #{i\ 1324}#)
+ #{marks\ 1311}#)
+ (#{f\ 1323}#
+ (#{fx+\ 281}# #{i\ 1324}# 1)))))))
+ (begin (#{f\ 1323}# 0))))))))
(begin
- (if (symbol? #{id\ 1272}#)
+ (if (symbol? #{id\ 1254}#)
(begin
- (let ((#{t\ 1352}#
+ (let ((#{t\ 1334}#
(call-with-values
(lambda ()
- (#{search\ 1278}#
- #{id\ 1272}#
- (#{wrap-subst\ 397}# #{w\ 1273}#)
- (#{wrap-marks\ 395}# #{w\ 1273}#)))
- (lambda (#{x\ 1354}# . #{ignore\ 1355}#)
- #{x\ 1354}#))))
- (if #{t\ 1352}# #{t\ 1352}# #{id\ 1272}#)))
- (if (#{syntax-object?\ 352}# #{id\ 1272}#)
+ (#{search\ 1260}#
+ #{id\ 1254}#
+ (#{wrap-subst\ 389}# #{w\ 1255}#)
+ (#{wrap-marks\ 387}# #{w\ 1255}#)))
+ (lambda (#{x\ 1336}# . #{ignore\ 1337}#)
+ #{x\ 1336}#))))
+ (if #{t\ 1334}# #{t\ 1334}# #{id\ 1254}#)))
+ (if (#{syntax-object?\ 344}# #{id\ 1254}#)
(begin
- (let ((#{id\ 1363}#
- (#{syntax-object-expression\ 354}#
- #{id\ 1272}#))
- (#{w1\ 1364}#
- (#{syntax-object-wrap\ 356}# #{id\ 1272}#)))
+ (let ((#{id\ 1345}#
+ (#{syntax-object-expression\ 346}#
+ #{id\ 1254}#))
+ (#{w1\ 1346}#
+ (#{syntax-object-wrap\ 348}# #{id\ 1254}#)))
(begin
- (let ((#{marks\ 1366}#
- (#{join-marks\ 441}#
- (#{wrap-marks\ 395}# #{w\ 1273}#)
- (#{wrap-marks\ 395}# #{w1\ 1364}#))))
+ (let ((#{marks\ 1348}#
+ (#{join-marks\ 433}#
+ (#{wrap-marks\ 387}# #{w\ 1255}#)
+ (#{wrap-marks\ 387}# #{w1\ 1346}#))))
(call-with-values
(lambda ()
- (#{search\ 1278}#
- #{id\ 1363}#
- (#{wrap-subst\ 397}# #{w\ 1273}#)
- #{marks\ 1366}#))
- (lambda (#{new-id\ 1367}# #{marks\ 1368}#)
+ (#{search\ 1260}#
+ #{id\ 1345}#
+ (#{wrap-subst\ 389}# #{w\ 1255}#)
+ #{marks\ 1348}#))
+ (lambda (#{new-id\ 1349}# #{marks\ 1350}#)
(begin
- (let ((#{t\ 1373}# #{new-id\ 1367}#))
- (if #{t\ 1373}#
- #{t\ 1373}#
+ (let ((#{t\ 1355}# #{new-id\ 1349}#))
+ (if #{t\ 1355}#
+ #{t\ 1355}#
(begin
- (let ((#{t\ 1376}#
+ (let ((#{t\ 1358}#
(call-with-values
(lambda ()
- (#{search\ 1278}#
- #{id\ 1363}#
- (#{wrap-subst\ 397}#
- #{w1\ 1364}#)
- #{marks\ 1368}#))
- (lambda (#{x\ 1378}#
+ (#{search\ 1260}#
+ #{id\ 1345}#
+ (#{wrap-subst\ 389}#
+ #{w1\ 1346}#)
+ #{marks\ 1350}#))
+ (lambda (#{x\ 1360}#
.
- #{ignore\ 1379}#)
- #{x\ 1378}#))))
- (if #{t\ 1376}#
- #{t\ 1376}#
- #{id\ 1363}#))))))))))))
+ #{ignore\ 1361}#)
+ #{x\ 1360}#))))
+ (if #{t\ 1358}#
+ #{t\ 1358}#
+ #{id\ 1345}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1272}#)))))))
- (#{free-id=?\ 447}#
- (lambda (#{i\ 1384}# #{j\ 1385}#)
+ #{id\ 1254}#)))))))
+ (#{free-id=?\ 439}#
+ (lambda (#{i\ 1366}# #{j\ 1367}#)
(if (eq? (begin
- (let ((#{x\ 1391}# #{i\ 1384}#))
- (if (#{syntax-object?\ 352}# #{x\ 1391}#)
- (#{syntax-object-expression\ 354}# #{x\ 1391}#)
- #{x\ 1391}#)))
+ (let ((#{x\ 1373}# #{i\ 1366}#))
+ (if (#{syntax-object?\ 344}# #{x\ 1373}#)
+ (#{syntax-object-expression\ 346}# #{x\ 1373}#)
+ #{x\ 1373}#)))
(begin
- (let ((#{x\ 1394}# #{j\ 1385}#))
- (if (#{syntax-object?\ 352}# #{x\ 1394}#)
- (#{syntax-object-expression\ 354}# #{x\ 1394}#)
- #{x\ 1394}#))))
- (eq? (#{id-var-name\ 445}# #{i\ 1384}# (quote (())))
- (#{id-var-name\ 445}# #{j\ 1385}# (quote (()))))
+ (let ((#{x\ 1376}# #{j\ 1367}#))
+ (if (#{syntax-object?\ 344}# #{x\ 1376}#)
+ (#{syntax-object-expression\ 346}# #{x\ 1376}#)
+ #{x\ 1376}#))))
+ (eq? (#{id-var-name\ 437}# #{i\ 1366}# (quote (())))
+ (#{id-var-name\ 437}# #{j\ 1367}# (quote (()))))
#f)))
- (#{bound-id=?\ 449}#
- (lambda (#{i\ 1398}# #{j\ 1399}#)
- (if (if (#{syntax-object?\ 352}# #{i\ 1398}#)
- (#{syntax-object?\ 352}# #{j\ 1399}#)
+ (#{bound-id=?\ 441}#
+ (lambda (#{i\ 1380}# #{j\ 1381}#)
+ (if (if (#{syntax-object?\ 344}# #{i\ 1380}#)
+ (#{syntax-object?\ 344}# #{j\ 1381}#)
#f)
- (if (eq? (#{syntax-object-expression\ 354}# #{i\ 1398}#)
- (#{syntax-object-expression\ 354}# #{j\ 1399}#))
- (#{same-marks?\ 443}#
- (#{wrap-marks\ 395}#
- (#{syntax-object-wrap\ 356}# #{i\ 1398}#))
- (#{wrap-marks\ 395}#
- (#{syntax-object-wrap\ 356}# #{j\ 1399}#)))
+ (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1380}#)
+ (#{syntax-object-expression\ 346}# #{j\ 1381}#))
+ (#{same-marks?\ 435}#
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{i\ 1380}#))
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{j\ 1381}#)))
#f)
- (eq? #{i\ 1398}# #{j\ 1399}#))))
- (#{valid-bound-ids?\ 451}#
- (lambda (#{ids\ 1406}#)
+ (eq? #{i\ 1380}# #{j\ 1381}#))))
+ (#{valid-bound-ids?\ 443}#
+ (lambda (#{ids\ 1388}#)
(if (letrec*
- ((#{all-ids?\ 1411}#
- (lambda (#{ids\ 1412}#)
+ ((#{all-ids?\ 1393}#
+ (lambda (#{ids\ 1394}#)
(begin
- (let ((#{t\ 1415}# (null? #{ids\ 1412}#)))
- (if #{t\ 1415}#
- #{t\ 1415}#
- (if (#{id?\ 388}# (car #{ids\ 1412}#))
- (#{all-ids?\ 1411}# (cdr #{ids\ 1412}#))
+ (let ((#{t\ 1397}# (null? #{ids\ 1394}#)))
+ (if #{t\ 1397}#
+ #{t\ 1397}#
+ (if (#{id?\ 380}# (car #{ids\ 1394}#))
+ (#{all-ids?\ 1393}# (cdr #{ids\ 1394}#))
#f)))))))
- (begin (#{all-ids?\ 1411}# #{ids\ 1406}#)))
- (#{distinct-bound-ids?\ 453}# #{ids\ 1406}#)
+ (begin (#{all-ids?\ 1393}# #{ids\ 1388}#)))
+ (#{distinct-bound-ids?\ 445}# #{ids\ 1388}#)
#f)))
- (#{distinct-bound-ids?\ 453}#
- (lambda (#{ids\ 1420}#)
+ (#{distinct-bound-ids?\ 445}#
+ (lambda (#{ids\ 1402}#)
(letrec*
- ((#{distinct?\ 1424}#
- (lambda (#{ids\ 1425}#)
+ ((#{distinct?\ 1406}#
+ (lambda (#{ids\ 1407}#)
(begin
- (let ((#{t\ 1428}# (null? #{ids\ 1425}#)))
- (if #{t\ 1428}#
- #{t\ 1428}#
- (if (not (#{bound-id-member?\ 455}#
- (car #{ids\ 1425}#)
- (cdr #{ids\ 1425}#)))
- (#{distinct?\ 1424}# (cdr #{ids\ 1425}#))
+ (let ((#{t\ 1410}# (null? #{ids\ 1407}#)))
+ (if #{t\ 1410}#
+ #{t\ 1410}#
+ (if (not (#{bound-id-member?\ 447}#
+ (car #{ids\ 1407}#)
+ (cdr #{ids\ 1407}#)))
+ (#{distinct?\ 1406}# (cdr #{ids\ 1407}#))
#f)))))))
- (begin (#{distinct?\ 1424}# #{ids\ 1420}#)))))
- (#{bound-id-member?\ 455}#
- (lambda (#{x\ 1432}# #{list\ 1433}#)
- (if (not (null? #{list\ 1433}#))
+ (begin (#{distinct?\ 1406}# #{ids\ 1402}#)))))
+ (#{bound-id-member?\ 447}#
+ (lambda (#{x\ 1414}# #{list\ 1415}#)
+ (if (not (null? #{list\ 1415}#))
(begin
- (let ((#{t\ 1440}#
- (#{bound-id=?\ 449}#
- #{x\ 1432}#
- (car #{list\ 1433}#))))
- (if #{t\ 1440}#
- #{t\ 1440}#
- (#{bound-id-member?\ 455}#
- #{x\ 1432}#
- (cdr #{list\ 1433}#)))))
+ (let ((#{t\ 1422}#
+ (#{bound-id=?\ 441}#
+ #{x\ 1414}#
+ (car #{list\ 1415}#))))
+ (if #{t\ 1422}#
+ #{t\ 1422}#
+ (#{bound-id-member?\ 447}#
+ #{x\ 1414}#
+ (cdr #{list\ 1415}#)))))
#f)))
- (#{wrap\ 457}#
- (lambda (#{x\ 1442}# #{w\ 1443}# #{defmod\ 1444}#)
- (if (if (null? (#{wrap-marks\ 395}# #{w\ 1443}#))
- (null? (#{wrap-subst\ 397}# #{w\ 1443}#))
+ (#{wrap\ 449}#
+ (lambda (#{x\ 1424}# #{w\ 1425}# #{defmod\ 1426}#)
+ (if (if (null? (#{wrap-marks\ 387}# #{w\ 1425}#))
+ (null? (#{wrap-subst\ 389}# #{w\ 1425}#))
#f)
- #{x\ 1442}#
- (if (#{syntax-object?\ 352}# #{x\ 1442}#)
- (#{make-syntax-object\ 350}#
- (#{syntax-object-expression\ 354}# #{x\ 1442}#)
- (#{join-wraps\ 439}#
- #{w\ 1443}#
- (#{syntax-object-wrap\ 356}# #{x\ 1442}#))
- (#{syntax-object-module\ 358}# #{x\ 1442}#))
- (if (null? #{x\ 1442}#)
- #{x\ 1442}#
- (#{make-syntax-object\ 350}#
- #{x\ 1442}#
- #{w\ 1443}#
- #{defmod\ 1444}#))))))
- (#{source-wrap\ 459}#
- (lambda (#{x\ 1457}#
- #{w\ 1458}#
- #{s\ 1459}#
- #{defmod\ 1460}#)
- (#{wrap\ 457}#
- (#{decorate-source\ 306}#
- #{x\ 1457}#
- #{s\ 1459}#)
- #{w\ 1458}#
- #{defmod\ 1460}#)))
- (#{chi-sequence\ 461}#
- (lambda (#{body\ 1465}#
- #{r\ 1466}#
- #{w\ 1467}#
- #{s\ 1468}#
- #{mod\ 1469}#)
- (#{build-sequence\ 340}#
- #{s\ 1468}#
+ #{x\ 1424}#
+ (if (#{syntax-object?\ 344}# #{x\ 1424}#)
+ (#{make-syntax-object\ 342}#
+ (#{syntax-object-expression\ 346}# #{x\ 1424}#)
+ (#{join-wraps\ 431}#
+ #{w\ 1425}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1424}#))
+ (#{syntax-object-module\ 350}# #{x\ 1424}#))
+ (if (null? #{x\ 1424}#)
+ #{x\ 1424}#
+ (#{make-syntax-object\ 342}#
+ #{x\ 1424}#
+ #{w\ 1425}#
+ #{defmod\ 1426}#))))))
+ (#{source-wrap\ 451}#
+ (lambda (#{x\ 1439}#
+ #{w\ 1440}#
+ #{s\ 1441}#
+ #{defmod\ 1442}#)
+ (#{wrap\ 449}#
+ (#{decorate-source\ 298}#
+ #{x\ 1439}#
+ #{s\ 1441}#)
+ #{w\ 1440}#
+ #{defmod\ 1442}#)))
+ (#{chi-sequence\ 453}#
+ (lambda (#{body\ 1447}#
+ #{r\ 1448}#
+ #{w\ 1449}#
+ #{s\ 1450}#
+ #{mod\ 1451}#)
+ (#{build-sequence\ 332}#
+ #{s\ 1450}#
(letrec*
- ((#{dobody\ 1480}#
- (lambda (#{body\ 1481}#
- #{r\ 1482}#
- #{w\ 1483}#
- #{mod\ 1484}#)
- (if (null? #{body\ 1481}#)
+ ((#{dobody\ 1462}#
+ (lambda (#{body\ 1463}#
+ #{r\ 1464}#
+ #{w\ 1465}#
+ #{mod\ 1466}#)
+ (if (null? #{body\ 1463}#)
'()
(begin
- (let ((#{first\ 1486}#
- (#{chi\ 473}#
- (car #{body\ 1481}#)
- #{r\ 1482}#
- #{w\ 1483}#
- #{mod\ 1484}#)))
- (cons #{first\ 1486}#
- (#{dobody\ 1480}#
- (cdr #{body\ 1481}#)
- #{r\ 1482}#
- #{w\ 1483}#
- #{mod\ 1484}#))))))))
+ (let ((#{first\ 1468}#
+ (#{chi\ 465}#
+ (car #{body\ 1463}#)
+ #{r\ 1464}#
+ #{w\ 1465}#
+ #{mod\ 1466}#)))
+ (cons #{first\ 1468}#
+ (#{dobody\ 1462}#
+ (cdr #{body\ 1463}#)
+ #{r\ 1464}#
+ #{w\ 1465}#
+ #{mod\ 1466}#))))))))
(begin
- (#{dobody\ 1480}#
- #{body\ 1465}#
- #{r\ 1466}#
- #{w\ 1467}#
- #{mod\ 1469}#))))))
- (#{chi-top-sequence\ 463}#
- (lambda (#{body\ 1487}#
- #{r\ 1488}#
- #{w\ 1489}#
- #{s\ 1490}#
- #{m\ 1491}#
- #{esew\ 1492}#
- #{mod\ 1493}#)
- (#{build-sequence\ 340}#
- #{s\ 1490}#
+ (#{dobody\ 1462}#
+ #{body\ 1447}#
+ #{r\ 1448}#
+ #{w\ 1449}#
+ #{mod\ 1451}#))))))
+ (#{chi-top-sequence\ 455}#
+ (lambda (#{body\ 1469}#
+ #{r\ 1470}#
+ #{w\ 1471}#
+ #{s\ 1472}#
+ #{m\ 1473}#
+ #{esew\ 1474}#
+ #{mod\ 1475}#)
+ (#{build-sequence\ 332}#
+ #{s\ 1472}#
(letrec*
- ((#{dobody\ 1509}#
- (lambda (#{body\ 1510}#
- #{r\ 1511}#
- #{w\ 1512}#
- #{m\ 1513}#
- #{esew\ 1514}#
- #{mod\ 1515}#
- #{out\ 1516}#)
- (if (null? #{body\ 1510}#)
- (reverse #{out\ 1516}#)
- (#{dobody\ 1509}#
- (cdr #{body\ 1510}#)
- #{r\ 1511}#
- #{w\ 1512}#
- #{m\ 1513}#
- #{esew\ 1514}#
- #{mod\ 1515}#
- (cons (#{chi-top\ 471}#
- (car #{body\ 1510}#)
- #{r\ 1511}#
- #{w\ 1512}#
- #{m\ 1513}#
- #{esew\ 1514}#
- #{mod\ 1515}#)
- #{out\ 1516}#))))))
+ ((#{dobody\ 1491}#
+ (lambda (#{body\ 1492}#
+ #{r\ 1493}#
+ #{w\ 1494}#
+ #{m\ 1495}#
+ #{esew\ 1496}#
+ #{mod\ 1497}#
+ #{out\ 1498}#)
+ (if (null? #{body\ 1492}#)
+ (reverse #{out\ 1498}#)
+ (#{dobody\ 1491}#
+ (cdr #{body\ 1492}#)
+ #{r\ 1493}#
+ #{w\ 1494}#
+ #{m\ 1495}#
+ #{esew\ 1496}#
+ #{mod\ 1497}#
+ (cons (#{chi-top\ 463}#
+ (car #{body\ 1492}#)
+ #{r\ 1493}#
+ #{w\ 1494}#
+ #{m\ 1495}#
+ #{esew\ 1496}#
+ #{mod\ 1497}#)
+ #{out\ 1498}#))))))
(begin
- (#{dobody\ 1509}#
- #{body\ 1487}#
- #{r\ 1488}#
- #{w\ 1489}#
- #{m\ 1491}#
- #{esew\ 1492}#
- #{mod\ 1493}#
+ (#{dobody\ 1491}#
+ #{body\ 1469}#
+ #{r\ 1470}#
+ #{w\ 1471}#
+ #{m\ 1473}#
+ #{esew\ 1474}#
+ #{mod\ 1475}#
'()))))))
- (#{chi-install-global\ 465}#
- (lambda (#{name\ 1517}# #{e\ 1518}#)
- (#{build-global-definition\ 328}#
+ (#{chi-install-global\ 457}#
+ (lambda (#{name\ 1499}# #{e\ 1500}#)
+ (#{build-global-definition\ 320}#
#f
- #{name\ 1517}#
- (#{build-application\ 312}#
+ #{name\ 1499}#
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 328}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 338}# #f #{name\ 1517}#)
- (#{build-data\ 338}# #f (quote macro))
- #{e\ 1518}#)))))
- (#{chi-when-list\ 467}#
- (lambda (#{e\ 1526}# #{when-list\ 1527}# #{w\ 1528}#)
+ (list (#{build-data\ 330}# #f #{name\ 1499}#)
+ (#{build-data\ 330}# #f (quote macro))
+ #{e\ 1500}#)))))
+ (#{chi-when-list\ 459}#
+ (lambda (#{e\ 1508}# #{when-list\ 1509}# #{w\ 1510}#)
(letrec*
- ((#{f\ 1535}#
- (lambda (#{when-list\ 1536}# #{situations\ 1537}#)
- (if (null? #{when-list\ 1536}#)
- #{situations\ 1537}#
- (#{f\ 1535}#
- (cdr #{when-list\ 1536}#)
+ ((#{f\ 1517}#
+ (lambda (#{when-list\ 1518}# #{situations\ 1519}#)
+ (if (null? #{when-list\ 1518}#)
+ #{situations\ 1519}#
+ (#{f\ 1517}#
+ (cdr #{when-list\ 1518}#)
(cons (begin
- (let ((#{x\ 1539}# (car #{when-list\ 1536}#)))
- (if (#{free-id=?\ 447}#
- #{x\ 1539}#
+ (let ((#{x\ 1521}# (car #{when-list\ 1518}#)))
+ (if (#{free-id=?\ 439}#
+ #{x\ 1521}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1538"))
+ #(ribcage #(x) #((top)) #("i1520"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1532" "i1533" "i1534"))
+ #("i1514" "i1515" "i1516"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1529" "i1530" "i1531"))
+ #("i1511" "i1512" "i1513"))
#(ribcage
(lambda-var-list
gen-var
@@ -1228,6 +1228,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -1494,11 +1495,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -1531,50 +1530,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -1604,20 +1603,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -1631,7 +1630,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -1641,8 +1644,8 @@
("i39" "i38" "i37" "i35")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 447}#
- #{x\ 1539}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1521}#
'#(syntax-object
load
((top)
@@ -1652,17 +1655,17 @@
#(ribcage
#(x)
#((top))
- #("i1538"))
+ #("i1520"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1532" "i1533" "i1534"))
+ #("i1514" "i1515" "i1516"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1529" "i1530" "i1531"))
+ #("i1511" "i1512" "i1513"))
#(ribcage
(lambda-var-list
gen-var
@@ -1671,6 +1674,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -1937,11 +1941,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -1974,50 +1976,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -2047,20 +2049,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -2074,7 +2076,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2084,8 +2090,8 @@
("i39" "i38" "i37" "i35")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 447}#
- #{x\ 1539}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1521}#
'#(syntax-object
eval
((top)
@@ -2095,17 +2101,17 @@
#(ribcage
#(x)
#((top))
- #("i1538"))
+ #("i1520"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1532" "i1533" "i1534"))
+ #("i1514" "i1515" "i1516"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1529" "i1530" "i1531"))
+ #("i1511" "i1512" "i1513"))
#(ribcage
(lambda-var-list
gen-var
@@ -2114,6 +2120,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -2380,11 +2387,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -2417,50 +2422,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -2490,20 +2495,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -2517,7 +2522,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2527,8 +2536,8 @@
("i39" "i38" "i37" "i35")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 447}#
- #{x\ 1539}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1521}#
'#(syntax-object
expand
((top)
@@ -2538,17 +2547,17 @@
#(ribcage
#(x)
#((top))
- #("i1538"))
+ #("i1520"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1532" "i1533" "i1534"))
+ #("i1514" "i1515" "i1516"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1529" "i1530" "i1531"))
+ #("i1511" "i1512" "i1513"))
#(ribcage
(lambda-var-list
gen-var
@@ -2557,6 +2566,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -2823,11 +2833,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -2860,50 +2868,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -2933,20 +2941,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -2960,7 +2968,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2973,272 +2985,265 @@
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1526}#
- (#{wrap\ 457}#
- #{x\ 1539}#
- #{w\ 1528}#
+ #{e\ 1508}#
+ (#{wrap\ 449}#
+ #{x\ 1521}#
+ #{w\ 1510}#
#f))))))))
- #{situations\ 1537}#))))))
+ #{situations\ 1519}#))))))
(begin
- (#{f\ 1535}# #{when-list\ 1527}# (quote ()))))))
- (#{syntax-type\ 469}#
- (lambda (#{e\ 1549}#
- #{r\ 1550}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#
- #{for-car?\ 1555}#)
- (if (symbol? #{e\ 1549}#)
+ (#{f\ 1517}# #{when-list\ 1509}# (quote ()))))))
+ (#{syntax-type\ 461}#
+ (lambda (#{e\ 1531}#
+ #{r\ 1532}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{rib\ 1535}#
+ #{mod\ 1536}#
+ #{for-car?\ 1537}#)
+ (if (symbol? #{e\ 1531}#)
(begin
- (let ((#{n\ 1567}#
- (#{id-var-name\ 445}# #{e\ 1549}# #{w\ 1551}#)))
+ (let ((#{n\ 1549}#
+ (#{id-var-name\ 437}# #{e\ 1531}# #{w\ 1533}#)))
(begin
- (let ((#{b\ 1569}#
- (#{lookup\ 382}#
- #{n\ 1567}#
- #{r\ 1550}#
- #{mod\ 1554}#)))
+ (let ((#{b\ 1551}#
+ (#{lookup\ 374}#
+ #{n\ 1549}#
+ #{r\ 1532}#
+ #{mod\ 1536}#)))
(begin
- (let ((#{type\ 1571}#
- (#{binding-type\ 371}# #{b\ 1569}#)))
- (if (eqv? #{type\ 1571}# (quote lexical))
+ (let ((#{type\ 1553}#
+ (#{binding-type\ 363}# #{b\ 1551}#)))
+ (if (eqv? #{type\ 1553}# (quote lexical))
(values
- #{type\ 1571}#
- (#{binding-value\ 373}# #{b\ 1569}#)
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{type\ 1571}# (quote global))
+ #{type\ 1553}#
+ (#{binding-value\ 365}# #{b\ 1551}#)
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (if (eqv? #{type\ 1553}# (quote global))
(values
- #{type\ 1571}#
- #{n\ 1567}#
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{type\ 1571}# (quote macro))
- (if #{for-car?\ 1555}#
+ #{type\ 1553}#
+ #{n\ 1549}#
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (if (eqv? #{type\ 1553}# (quote macro))
+ (if #{for-car?\ 1537}#
(values
- #{type\ 1571}#
- (#{binding-value\ 373}# #{b\ 1569}#)
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (#{syntax-type\ 469}#
- (#{chi-macro\ 479}#
- (#{binding-value\ 373}# #{b\ 1569}#)
- #{e\ 1549}#
- #{r\ 1550}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#)
- #{r\ 1550}#
+ #{type\ 1553}#
+ (#{binding-value\ 365}# #{b\ 1551}#)
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (#{syntax-type\ 461}#
+ (#{chi-macro\ 471}#
+ (#{binding-value\ 365}# #{b\ 1551}#)
+ #{e\ 1531}#
+ #{r\ 1532}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{rib\ 1535}#
+ #{mod\ 1536}#)
+ #{r\ 1532}#
'(())
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#
+ #{s\ 1534}#
+ #{rib\ 1535}#
+ #{mod\ 1536}#
#f))
(values
- #{type\ 1571}#
- (#{binding-value\ 373}# #{b\ 1569}#)
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#))))))))))
- (if (pair? #{e\ 1549}#)
+ #{type\ 1553}#
+ (#{binding-value\ 365}# #{b\ 1551}#)
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#))))))))))
+ (if (pair? #{e\ 1531}#)
(begin
- (let ((#{first\ 1580}# (car #{e\ 1549}#)))
+ (let ((#{first\ 1562}# (car #{e\ 1531}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{first\ 1580}#
- #{r\ 1550}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#
+ (#{syntax-type\ 461}#
+ #{first\ 1562}#
+ #{r\ 1532}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{rib\ 1535}#
+ #{mod\ 1536}#
#t))
- (lambda (#{ftype\ 1581}#
- #{fval\ 1582}#
- #{fe\ 1583}#
- #{fw\ 1584}#
- #{fs\ 1585}#
- #{fmod\ 1586}#)
- (if (eqv? #{ftype\ 1581}# (quote lexical))
+ (lambda (#{ftype\ 1563}#
+ #{fval\ 1564}#
+ #{fe\ 1565}#
+ #{fw\ 1566}#
+ #{fs\ 1567}#
+ #{fmod\ 1568}#)
+ (if (eqv? #{ftype\ 1563}# (quote lexical))
(values
'lexical-call
- #{fval\ 1582}#
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}# (quote global))
+ #{fval\ 1564}#
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (if (eqv? #{ftype\ 1563}# (quote global))
(values
'global-call
- (#{make-syntax-object\ 350}#
- #{fval\ 1582}#
- #{w\ 1551}#
- #{fmod\ 1586}#)
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}# (quote macro))
- (#{syntax-type\ 469}#
- (#{chi-macro\ 479}#
- #{fval\ 1582}#
- #{e\ 1549}#
- #{r\ 1550}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#)
- #{r\ 1550}#
+ (#{make-syntax-object\ 342}#
+ #{fval\ 1564}#
+ #{w\ 1533}#
+ #{fmod\ 1568}#)
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (if (eqv? #{ftype\ 1563}# (quote macro))
+ (#{syntax-type\ 461}#
+ (#{chi-macro\ 471}#
+ #{fval\ 1564}#
+ #{e\ 1531}#
+ #{r\ 1532}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{rib\ 1535}#
+ #{mod\ 1536}#)
+ #{r\ 1532}#
'(())
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#
- #{for-car?\ 1555}#)
- (if (eqv? #{ftype\ 1581}# (quote module-ref))
+ #{s\ 1534}#
+ #{rib\ 1535}#
+ #{mod\ 1536}#
+ #{for-car?\ 1537}#)
+ (if (eqv? #{ftype\ 1563}# (quote module-ref))
(call-with-values
(lambda ()
- (#{fval\ 1582}#
- #{e\ 1549}#
- #{r\ 1550}#
- #{w\ 1551}#))
- (lambda (#{e\ 1598}#
- #{r\ 1599}#
- #{w\ 1600}#
- #{s\ 1601}#
- #{mod\ 1602}#)
- (#{syntax-type\ 469}#
- #{e\ 1598}#
- #{r\ 1599}#
- #{w\ 1600}#
- #{s\ 1601}#
- #{rib\ 1553}#
- #{mod\ 1602}#
- #{for-car?\ 1555}#)))
- (if (eqv? #{ftype\ 1581}# (quote core))
+ (#{fval\ 1564}#
+ #{e\ 1531}#
+ #{r\ 1532}#
+ #{w\ 1533}#))
+ (lambda (#{e\ 1580}#
+ #{r\ 1581}#
+ #{w\ 1582}#
+ #{s\ 1583}#
+ #{mod\ 1584}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1580}#
+ #{r\ 1581}#
+ #{w\ 1582}#
+ #{s\ 1583}#
+ #{rib\ 1535}#
+ #{mod\ 1584}#
+ #{for-car?\ 1537}#)))
+ (if (eqv? #{ftype\ 1563}# (quote core))
(values
'core-form
- #{fval\ 1582}#
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}#
+ #{fval\ 1564}#
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (if (eqv? #{ftype\ 1563}#
'local-syntax)
(values
'local-syntax-form
- #{fval\ 1582}#
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}# (quote begin))
+ #{fval\ 1564}#
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (if (eqv? #{ftype\ 1563}# (quote begin))
(values
'begin-form
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}#
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (if (eqv? #{ftype\ 1563}#
'eval-when)
(values
'eval-when-form
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}#
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
+ (if (eqv? #{ftype\ 1563}#
'define)
- (let ((#{tmp\ 1613}# #{e\ 1549}#))
- (let ((#{tmp\ 1614}#
+ (let ((#{tmp\ 1595}# #{e\ 1531}#))
+ (let ((#{tmp\ 1596}#
($sc-dispatch
- #{tmp\ 1613}#
- '(any any any))))
- (if (if #{tmp\ 1614}#
+ #{tmp\ 1595}#
+ '(_ any any))))
+ (if (if #{tmp\ 1596}#
(@apply
- (lambda (#{_\ 1618}#
- #{name\ 1619}#
- #{val\ 1620}#)
- (#{id?\ 388}#
- #{name\ 1619}#))
- #{tmp\ 1614}#)
+ (lambda (#{name\ 1599}#
+ #{val\ 1600}#)
+ (#{id?\ 380}#
+ #{name\ 1599}#))
+ #{tmp\ 1596}#)
#f)
(@apply
- (lambda (#{_\ 1624}#
- #{name\ 1625}#
- #{val\ 1626}#)
+ (lambda (#{name\ 1603}#
+ #{val\ 1604}#)
(values
'define-form
- #{name\ 1625}#
- #{val\ 1626}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#))
- #{tmp\ 1614}#)
- (let ((#{tmp\ 1627}#
+ #{name\ 1603}#
+ #{val\ 1604}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#))
+ #{tmp\ 1596}#)
+ (let ((#{tmp\ 1605}#
($sc-dispatch
- #{tmp\ 1613}#
- '(any (any . any)
- any
- .
- each-any))))
- (if (if #{tmp\ 1627}#
+ #{tmp\ 1595}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp\ 1605}#
(@apply
- (lambda (#{_\ 1633}#
- #{name\
1634}#
- #{args\
1635}#
- #{e1\
1636}#
- #{e2\
1637}#)
- (if (#{id?\ 388}#
- #{name\
1634}#)
-
(#{valid-bound-ids?\ 451}#
-
(#{lambda-var-list\ 503}#
- #{args\
1635}#))
+ (lambda (#{name\
1610}#
+ #{args\
1611}#
+ #{e1\
1612}#
+ #{e2\
1613}#)
+ (if (#{id?\ 380}#
+ #{name\
1610}#)
+
(#{valid-bound-ids?\ 443}#
+
(#{lambda-var-list\ 497}#
+ #{args\
1611}#))
#f))
- #{tmp\ 1627}#)
+ #{tmp\ 1605}#)
#f)
(@apply
- (lambda (#{_\ 1645}#
- #{name\ 1646}#
- #{args\ 1647}#
- #{e1\ 1648}#
- #{e2\ 1649}#)
+ (lambda (#{name\ 1620}#
+ #{args\ 1621}#
+ #{e1\ 1622}#
+ #{e2\ 1623}#)
(values
'define-form
- (#{wrap\ 457}#
- #{name\ 1646}#
- #{w\ 1551}#
- #{mod\ 1554}#)
- (#{decorate-source\
306}#
+ (#{wrap\ 449}#
+ #{name\ 1620}#
+ #{w\ 1533}#
+ #{mod\ 1536}#)
+ (#{decorate-source\
298}#
(cons
'#(syntax-object
lambda
((top)
#(ribcage
- #(_
- name
+ #(name
args
e1
e2)
#((top)
(top)
(top)
-
(top)
(top))
-
#("i1640"
-
"i1641"
-
"i1642"
-
"i1643"
-
"i1644"))
+
#("i1616"
+
"i1617"
+
"i1618"
+
"i1619"))
#(ribcage
()
()
@@ -3260,12 +3265,12 @@
(top)
(top)
(top))
-
#("i1587"
-
"i1588"
-
"i1589"
-
"i1590"
-
"i1591"
-
"i1592"))
+
#("i1569"
+
"i1570"
+
"i1571"
+
"i1572"
+
"i1573"
+
"i1574"))
#(ribcage
()
()
@@ -3273,7 +3278,7 @@
#(ribcage
#(first)
#((top))
-
#("i1579"))
+
#("i1561"))
#(ribcage
()
()
@@ -3301,13 +3306,13 @@
(top)
(top)
(top))
-
#("i1556"
-
"i1557"
-
"i1558"
-
"i1559"
-
"i1560"
-
"i1561"
-
"i1562"))
+
#("i1538"
+
"i1539"
+
"i1540"
+
"i1541"
+
"i1542"
+
"i1543"
+
"i1544"))
#(ribcage
(lambda-var-list
gen-var
@@ -3316,6 +3321,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+
underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -3582,11 +3588,9 @@
(top)
(top)
(top)
+ (top)
(top))
-
("i502"
-
"i500"
-
"i498"
-
"i496"
+
("i496"
"i494"
"i492"
"i490"
@@ -3619,50 +3623,50 @@
"i436"
"i434"
"i432"
-
"i431"
"i430"
"i428"
-
"i427"
"i426"
-
"i425"
"i424"
+
"i423"
"i422"
"i420"
+
"i419"
"i418"
+
"i417"
"i416"
"i414"
"i412"
"i410"
"i408"
-
"i405"
-
"i403"
+
"i406"
+
"i404"
"i402"
-
"i401"
"i400"
-
"i399"
-
"i398"
-
"i396"
+
"i397"
+
"i395"
"i394"
+
"i393"
"i392"
+
"i391"
"i390"
-
"i389"
-
"i387"
-
"i385"
-
"i383"
+
"i388"
+
"i386"
+
"i384"
+
"i382"
"i381"
"i379"
"i377"
"i375"
-
"i374"
-
"i372"
-
"i370"
+
"i373"
+
"i371"
"i369"
-
"i368"
+
"i367"
"i366"
-
"i365"
-
"i363"
+
"i364"
+
"i362"
"i361"
-
"i359"
+
"i360"
+
"i358"
"i357"
"i355"
"i353"
@@ -3692,20 +3696,20 @@
"i305"
"i303"
"i301"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
+
"i299"
+
"i297"
+
"i295"
+
"i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
-
"i279"
-
"i277"
-
"i275"
-
"i273"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
"i271"
"i269"
"i267"
@@ -3719,7 +3723,11 @@
"i251"
"i249"
"i247"
-
"i245"))
+
"i245"
+
"i243"
+
"i241"
+
"i239"
+
"i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3735,47 +3743,43 @@
"i35")))
(hygiene
guile))
- (#{wrap\
457}#
- (cons
#{args\ 1647}#
-
(cons #{e1\ 1648}#
-
#{e2\ 1649}#))
- #{w\
1551}#
- #{mod\
1554}#))
- #{s\ 1552}#)
+ (#{wrap\
449}#
+ (cons
#{args\ 1621}#
+
(cons #{e1\ 1622}#
+
#{e2\ 1623}#))
+ #{w\
1533}#
+ #{mod\
1536}#))
+ #{s\ 1534}#)
'(())
- #{s\ 1552}#
- #{mod\ 1554}#))
- #{tmp\ 1627}#)
- (let ((#{tmp\ 1652}#
+ #{s\ 1534}#
+ #{mod\ 1536}#))
+ #{tmp\ 1605}#)
+ (let ((#{tmp\ 1626}#
($sc-dispatch
- #{tmp\ 1613}#
- '(any any))))
- (if (if #{tmp\ 1652}#
+ #{tmp\ 1595}#
+ '(_ any))))
+ (if (if #{tmp\ 1626}#
(@apply
- (lambda (#{_\
1655}#
-
#{name\ 1656}#)
- (#{id?\ 388}#
- #{name\
1656}#))
- #{tmp\ 1652}#)
+ (lambda
(#{name\ 1628}#)
+ (#{id?\ 380}#
+ #{name\
1628}#))
+ #{tmp\ 1626}#)
#f)
(@apply
- (lambda (#{_\ 1659}#
- #{name\
1660}#)
+ (lambda (#{name\
1630}#)
(values
'define-form
- (#{wrap\ 457}#
- #{name\ 1660}#
- #{w\ 1551}#
- #{mod\ 1554}#)
+ (#{wrap\ 449}#
+ #{name\ 1630}#
+ #{w\ 1533}#
+ #{mod\ 1536}#)
'(#(syntax-object
if
((top)
#(ribcage
- #(_ name)
- #((top)
- (top))
- #("i1657"
-
"i1658"))
+ #(name)
+ #((top))
+
#("i1629"))
#(ribcage
()
()
@@ -3797,12 +3801,12 @@
(top)
(top)
(top))
- #("i1587"
- "i1588"
- "i1589"
- "i1590"
- "i1591"
-
"i1592"))
+ #("i1569"
+ "i1570"
+ "i1571"
+ "i1572"
+ "i1573"
+
"i1574"))
#(ribcage
()
()
@@ -3810,7 +3814,7 @@
#(ribcage
#(first)
#((top))
-
#("i1579"))
+
#("i1561"))
#(ribcage
()
()
@@ -3838,13 +3842,13 @@
(top)
(top)
(top))
- #("i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
- "i1561"
-
"i1562"))
+ #("i1538"
+ "i1539"
+ "i1540"
+ "i1541"
+ "i1542"
+ "i1543"
+
"i1544"))
#(ribcage
(lambda-var-list
gen-var
@@ -3853,6 +3857,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+
underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -4119,11 +4124,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -4156,50 +4159,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -4229,20 +4232,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -4256,7 +4259,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4276,11 +4283,9 @@
#f
((top)
#(ribcage
- #(_ name)
- #((top)
- (top))
- #("i1657"
-
"i1658"))
+ #(name)
+ #((top))
+
#("i1629"))
#(ribcage
()
()
@@ -4302,12 +4307,12 @@
(top)
(top)
(top))
- #("i1587"
- "i1588"
- "i1589"
- "i1590"
- "i1591"
-
"i1592"))
+ #("i1569"
+ "i1570"
+ "i1571"
+ "i1572"
+ "i1573"
+
"i1574"))
#(ribcage
()
()
@@ -4315,7 +4320,7 @@
#(ribcage
#(first)
#((top))
-
#("i1579"))
+
#("i1561"))
#(ribcage
()
()
@@ -4343,13 +4348,13 @@
(top)
(top)
(top))
- #("i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
- "i1561"
-
"i1562"))
+ #("i1538"
+ "i1539"
+ "i1540"
+ "i1541"
+ "i1542"
+ "i1543"
+
"i1544"))
#(ribcage
(lambda-var-list
gen-var
@@ -4358,6 +4363,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+
underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -4624,11 +4630,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -4661,50 +4665,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -4734,20 +4738,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -4761,7 +4765,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4781,11 +4789,9 @@
#f
((top)
#(ribcage
- #(_ name)
- #((top)
- (top))
- #("i1657"
-
"i1658"))
+ #(name)
+ #((top))
+
#("i1629"))
#(ribcage
()
()
@@ -4807,12 +4813,12 @@
(top)
(top)
(top))
- #("i1587"
- "i1588"
- "i1589"
- "i1590"
- "i1591"
-
"i1592"))
+ #("i1569"
+ "i1570"
+ "i1571"
+ "i1572"
+ "i1573"
+
"i1574"))
#(ribcage
()
()
@@ -4820,7 +4826,7 @@
#(ribcage
#(first)
#((top))
-
#("i1579"))
+
#("i1561"))
#(ribcage
()
()
@@ -4848,13 +4854,13 @@
(top)
(top)
(top))
- #("i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
- "i1561"
-
"i1562"))
+ #("i1538"
+ "i1539"
+ "i1540"
+ "i1541"
+ "i1542"
+ "i1543"
+
"i1544"))
#(ribcage
(lambda-var-list
gen-var
@@ -4863,6 +4869,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+
underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -5129,11 +5136,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -5166,50 +5171,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -5239,20 +5244,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -5266,7 +5271,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -5283,1226 +5292,1647 @@
(hygiene
guile)))
'(())
- #{s\ 1552}#
- #{mod\ 1554}#))
- #{tmp\ 1652}#)
+ #{s\ 1534}#
+ #{mod\ 1536}#))
+ #{tmp\ 1626}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\
1613}#))))))))
- (if (eqv? #{ftype\ 1581}#
+ #{tmp\
1595}#))))))))
+ (if (eqv? #{ftype\ 1563}#
'define-syntax)
- (let ((#{tmp\ 1663}# #{e\ 1549}#))
- (let ((#{tmp\ 1664}#
+ (let ((#{tmp\ 1633}# #{e\ 1531}#))
+ (let ((#{tmp\ 1634}#
($sc-dispatch
- #{tmp\ 1663}#
- '(any any any))))
- (if (if #{tmp\ 1664}#
+ #{tmp\ 1633}#
+ '(_ any any))))
+ (if (if #{tmp\ 1634}#
(@apply
- (lambda (#{_\ 1668}#
- #{name\
1669}#
- #{val\
1670}#)
- (#{id?\ 388}#
- #{name\ 1669}#))
- #{tmp\ 1664}#)
+ (lambda (#{name\
1637}#
+ #{val\
1638}#)
+ (#{id?\ 380}#
+ #{name\ 1637}#))
+ #{tmp\ 1634}#)
#f)
(@apply
- (lambda (#{_\ 1674}#
- #{name\ 1675}#
- #{val\ 1676}#)
+ (lambda (#{name\ 1641}#
+ #{val\ 1642}#)
(values
'define-syntax-form
- #{name\ 1675}#
- #{val\ 1676}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#))
- #{tmp\ 1664}#)
+ #{name\ 1641}#
+ #{val\ 1642}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#))
+ #{tmp\ 1634}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 1663}#))))
+ #{tmp\ 1633}#))))
(values
'call
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)))))))))))))))
- (if (#{syntax-object?\ 352}# #{e\ 1549}#)
- (#{syntax-type\ 469}#
- (#{syntax-object-expression\ 354}# #{e\ 1549}#)
- #{r\ 1550}#
- (#{join-wraps\ 439}#
- #{w\ 1551}#
- (#{syntax-object-wrap\ 356}# #{e\ 1549}#))
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)))))))))))))))
+ (if (#{syntax-object?\ 344}# #{e\ 1531}#)
+ (#{syntax-type\ 461}#
+ (#{syntax-object-expression\ 346}# #{e\ 1531}#)
+ #{r\ 1532}#
+ (#{join-wraps\ 431}#
+ #{w\ 1533}#
+ (#{syntax-object-wrap\ 348}# #{e\ 1531}#))
(begin
- (let ((#{t\ 1682}#
- (#{source-annotation\ 367}# #{e\ 1549}#)))
- (if #{t\ 1682}# #{t\ 1682}# #{s\ 1552}#)))
- #{rib\ 1553}#
+ (let ((#{t\ 1648}#
+ (#{source-annotation\ 359}# #{e\ 1531}#)))
+ (if #{t\ 1648}# #{t\ 1648}# #{s\ 1534}#)))
+ #{rib\ 1535}#
(begin
- (let ((#{t\ 1686}#
- (#{syntax-object-module\ 358}# #{e\ 1549}#)))
- (if #{t\ 1686}# #{t\ 1686}# #{mod\ 1554}#)))
- #{for-car?\ 1555}#)
- (if (self-evaluating? #{e\ 1549}#)
+ (let ((#{t\ 1652}#
+ (#{syntax-object-module\ 350}# #{e\ 1531}#)))
+ (if #{t\ 1652}# #{t\ 1652}# #{mod\ 1536}#)))
+ #{for-car?\ 1537}#)
+ (if (self-evaluating? #{e\ 1531}#)
(values
'constant
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)
(values
'other
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)))))))
- (#{chi-top\ 471}#
- (lambda (#{e\ 1691}#
- #{r\ 1692}#
- #{w\ 1693}#
- #{m\ 1694}#
- #{esew\ 1695}#
- #{mod\ 1696}#)
+ #{e\ 1531}#
+ #{w\ 1533}#
+ #{s\ 1534}#
+ #{mod\ 1536}#)))))))
+ (#{chi-top\ 463}#
+ (lambda (#{e\ 1657}#
+ #{r\ 1658}#
+ #{w\ 1659}#
+ #{m\ 1660}#
+ #{esew\ 1661}#
+ #{mod\ 1662}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{e\ 1691}#
- #{r\ 1692}#
- #{w\ 1693}#
- (#{source-annotation\ 367}# #{e\ 1691}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1657}#
+ #{r\ 1658}#
+ #{w\ 1659}#
+ (#{source-annotation\ 359}# #{e\ 1657}#)
#f
- #{mod\ 1696}#
+ #{mod\ 1662}#
#f))
- (lambda (#{type\ 1717}#
- #{value\ 1718}#
- #{e\ 1719}#
- #{w\ 1720}#
- #{s\ 1721}#
- #{mod\ 1722}#)
- (if (eqv? #{type\ 1717}# (quote begin-form))
- (let ((#{tmp\ 1730}# #{e\ 1719}#))
- (let ((#{tmp\ 1731}#
- ($sc-dispatch #{tmp\ 1730}# (quote (any)))))
- (if #{tmp\ 1731}#
+ (lambda (#{type\ 1683}#
+ #{value\ 1684}#
+ #{e\ 1685}#
+ #{w\ 1686}#
+ #{s\ 1687}#
+ #{mod\ 1688}#)
+ (if (eqv? #{type\ 1683}# (quote begin-form))
+ (let ((#{tmp\ 1696}# #{e\ 1685}#))
+ (let ((#{tmp\ 1697}#
+ ($sc-dispatch #{tmp\ 1696}# (quote (_)))))
+ (if #{tmp\ 1697}#
(@apply
- (lambda (#{_\ 1733}#) (#{chi-void\ 487}#))
- #{tmp\ 1731}#)
- (let ((#{tmp\ 1734}#
+ (lambda () (#{chi-void\ 479}#))
+ #{tmp\ 1697}#)
+ (let ((#{tmp\ 1698}#
($sc-dispatch
- #{tmp\ 1730}#
- '(any any . each-any))))
- (if #{tmp\ 1734}#
+ #{tmp\ 1696}#
+ '(_ any . each-any))))
+ (if #{tmp\ 1698}#
(@apply
- (lambda (#{_\ 1738}# #{e1\ 1739}# #{e2\ 1740}#)
- (#{chi-top-sequence\ 463}#
- (cons #{e1\ 1739}# #{e2\ 1740}#)
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
- #{m\ 1694}#
- #{esew\ 1695}#
- #{mod\ 1722}#))
- #{tmp\ 1734}#)
+ (lambda (#{e1\ 1701}# #{e2\ 1702}#)
+ (#{chi-top-sequence\ 455}#
+ (cons #{e1\ 1701}# #{e2\ 1702}#)
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{s\ 1687}#
+ #{m\ 1660}#
+ #{esew\ 1661}#
+ #{mod\ 1688}#))
+ #{tmp\ 1698}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1730}#))))))
- (if (eqv? #{type\ 1717}# (quote local-syntax-form))
- (#{chi-local-syntax\ 483}#
- #{value\ 1718}#
- #{e\ 1719}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
- #{mod\ 1722}#
- (lambda (#{body\ 1743}#
- #{r\ 1744}#
- #{w\ 1745}#
- #{s\ 1746}#
- #{mod\ 1747}#)
- (#{chi-top-sequence\ 463}#
- #{body\ 1743}#
- #{r\ 1744}#
- #{w\ 1745}#
- #{s\ 1746}#
- #{m\ 1694}#
- #{esew\ 1695}#
- #{mod\ 1747}#)))
- (if (eqv? #{type\ 1717}# (quote eval-when-form))
- (let ((#{tmp\ 1754}# #{e\ 1719}#))
- (let ((#{tmp\ 1755}#
+ #{tmp\ 1696}#))))))
+ (if (eqv? #{type\ 1683}# (quote local-syntax-form))
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1684}#
+ #{e\ 1685}#
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{s\ 1687}#
+ #{mod\ 1688}#
+ (lambda (#{body\ 1705}#
+ #{r\ 1706}#
+ #{w\ 1707}#
+ #{s\ 1708}#
+ #{mod\ 1709}#)
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1705}#
+ #{r\ 1706}#
+ #{w\ 1707}#
+ #{s\ 1708}#
+ #{m\ 1660}#
+ #{esew\ 1661}#
+ #{mod\ 1709}#)))
+ (if (eqv? #{type\ 1683}# (quote eval-when-form))
+ (let ((#{tmp\ 1716}# #{e\ 1685}#))
+ (let ((#{tmp\ 1717}#
($sc-dispatch
- #{tmp\ 1754}#
- '(any each-any any . each-any))))
- (if #{tmp\ 1755}#
+ #{tmp\ 1716}#
+ '(_ each-any any . each-any))))
+ (if #{tmp\ 1717}#
(@apply
- (lambda (#{_\ 1760}#
- #{x\ 1761}#
- #{e1\ 1762}#
- #{e2\ 1763}#)
+ (lambda (#{x\ 1721}# #{e1\ 1722}# #{e2\ 1723}#)
(begin
- (let ((#{when-list\ 1766}#
- (#{chi-when-list\ 467}#
- #{e\ 1719}#
- #{x\ 1761}#
- #{w\ 1720}#))
- (#{body\ 1767}#
- (cons #{e1\ 1762}# #{e2\ 1763}#)))
- (if (eq? #{m\ 1694}# (quote e))
+ (let ((#{when-list\ 1726}#
+ (#{chi-when-list\ 459}#
+ #{e\ 1685}#
+ #{x\ 1721}#
+ #{w\ 1686}#))
+ (#{body\ 1727}#
+ (cons #{e1\ 1722}# #{e2\ 1723}#)))
+ (if (eq? #{m\ 1660}# (quote e))
(if (memq 'eval
- #{when-list\ 1766}#)
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ #{when-list\ 1726}#)
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1727}#
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{s\ 1687}#
(if (memq 'expand
- #{when-list\ 1766}#)
+ #{when-list\ 1726}#)
'c&e
'e)
'(eval)
- #{mod\ 1722}#)
+ #{mod\ 1688}#)
(begin
(if (memq 'expand
- #{when-list\ 1766}#)
- (#{top-level-eval-hook\ 297}#
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ #{when-list\ 1726}#)
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1727}#
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{s\ 1687}#
'e
'(eval)
- #{mod\ 1722}#)
- #{mod\ 1722}#))
- (#{chi-void\ 487}#)))
+ #{mod\ 1688}#)
+ #{mod\ 1688}#))
+ (#{chi-void\ 479}#)))
(if (memq 'load
- #{when-list\ 1766}#)
+ #{when-list\ 1726}#)
(if (begin
- (let ((#{t\ 1776}#
+ (let ((#{t\ 1736}#
(memq 'compile
- #{when-list\
1766}#)))
- (if #{t\ 1776}#
- #{t\ 1776}#
+ #{when-list\
1726}#)))
+ (if #{t\ 1736}#
+ #{t\ 1736}#
(begin
- (let ((#{t\ 1779}#
+ (let ((#{t\ 1739}#
(memq 'expand
-
#{when-list\ 1766}#)))
- (if #{t\ 1779}#
- #{t\ 1779}#
- (if (eq? #{m\ 1694}#
+
#{when-list\ 1726}#)))
+ (if #{t\ 1739}#
+ #{t\ 1739}#
+ (if (eq? #{m\ 1660}#
'c&e)
(memq 'eval
- #{when-list\
1766}#)
+ #{when-list\
1726}#)
#f)))))))
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1727}#
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{s\ 1687}#
'c&e
'(compile load)
- #{mod\ 1722}#)
- (if (if (eq? #{m\ 1694}# (quote c))
+ #{mod\ 1688}#)
+ (if (if (eq? #{m\ 1660}# (quote c))
#t
- (eq? #{m\ 1694}# (quote c&e)))
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ (eq? #{m\ 1660}# (quote c&e)))
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1727}#
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{s\ 1687}#
'c
'(load)
- #{mod\ 1722}#)
- (#{chi-void\ 487}#)))
+ #{mod\ 1688}#)
+ (#{chi-void\ 479}#)))
(if (begin
- (let ((#{t\ 1787}#
+ (let ((#{t\ 1747}#
(memq 'compile
- #{when-list\
1766}#)))
- (if #{t\ 1787}#
- #{t\ 1787}#
+ #{when-list\
1726}#)))
+ (if #{t\ 1747}#
+ #{t\ 1747}#
(begin
- (let ((#{t\ 1790}#
+ (let ((#{t\ 1750}#
(memq 'expand
-
#{when-list\ 1766}#)))
- (if #{t\ 1790}#
- #{t\ 1790}#
- (if (eq? #{m\ 1694}#
+
#{when-list\ 1726}#)))
+ (if #{t\ 1750}#
+ #{t\ 1750}#
+ (if (eq? #{m\ 1660}#
'c&e)
(memq 'eval
- #{when-list\
1766}#)
+ #{when-list\
1726}#)
#f)))))))
(begin
- (#{top-level-eval-hook\ 297}#
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1727}#
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{s\ 1687}#
'e
'(eval)
- #{mod\ 1722}#)
- #{mod\ 1722}#)
- (#{chi-void\ 487}#))
- (#{chi-void\ 487}#)))))))
- #{tmp\ 1755}#)
+ #{mod\ 1688}#)
+ #{mod\ 1688}#)
+ (#{chi-void\ 479}#))
+ (#{chi-void\ 479}#)))))))
+ #{tmp\ 1717}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1754}#))))
- (if (eqv? #{type\ 1717}# (quote define-syntax-form))
+ #{tmp\ 1716}#))))
+ (if (eqv? #{type\ 1683}# (quote define-syntax-form))
(begin
- (let ((#{n\ 1798}#
- (#{id-var-name\ 445}#
- #{value\ 1718}#
- #{w\ 1720}#))
- (#{r\ 1799}#
- (#{macros-only-env\ 380}# #{r\ 1692}#)))
- (if (eqv? #{m\ 1694}# (quote c))
- (if (memq (quote compile) #{esew\ 1695}#)
+ (let ((#{n\ 1758}#
+ (#{id-var-name\ 437}#
+ #{value\ 1684}#
+ #{w\ 1686}#))
+ (#{r\ 1759}#
+ (#{macros-only-env\ 372}# #{r\ 1658}#)))
+ (if (eqv? #{m\ 1660}# (quote c))
+ (if (memq (quote compile) #{esew\ 1661}#)
(begin
- (let ((#{e\ 1802}#
- (#{chi-install-global\ 465}#
- #{n\ 1798}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1799}#
- #{w\ 1720}#
- #{mod\ 1722}#))))
+ (let ((#{e\ 1762}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1758}#
+ (#{chi\ 465}#
+ #{e\ 1685}#
+ #{r\ 1759}#
+ #{w\ 1686}#
+ #{mod\ 1688}#))))
(begin
- (#{top-level-eval-hook\ 297}#
- #{e\ 1802}#
- #{mod\ 1722}#)
- (if (memq (quote load) #{esew\ 1695}#)
- #{e\ 1802}#
- (#{chi-void\ 487}#)))))
- (if (memq (quote load) #{esew\ 1695}#)
- (#{chi-install-global\ 465}#
- #{n\ 1798}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1799}#
- #{w\ 1720}#
- #{mod\ 1722}#))
- (#{chi-void\ 487}#)))
- (if (eqv? #{m\ 1694}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{e\ 1762}#
+ #{mod\ 1688}#)
+ (if (memq (quote load) #{esew\ 1661}#)
+ #{e\ 1762}#
+ (#{chi-void\ 479}#)))))
+ (if (memq (quote load) #{esew\ 1661}#)
+ (#{chi-install-global\ 457}#
+ #{n\ 1758}#
+ (#{chi\ 465}#
+ #{e\ 1685}#
+ #{r\ 1759}#
+ #{w\ 1686}#
+ #{mod\ 1688}#))
+ (#{chi-void\ 479}#)))
+ (if (eqv? #{m\ 1660}# (quote c&e))
(begin
- (let ((#{e\ 1805}#
- (#{chi-install-global\ 465}#
- #{n\ 1798}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1799}#
- #{w\ 1720}#
- #{mod\ 1722}#))))
+ (let ((#{e\ 1765}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1758}#
+ (#{chi\ 465}#
+ #{e\ 1685}#
+ #{r\ 1759}#
+ #{w\ 1686}#
+ #{mod\ 1688}#))))
(begin
- (#{top-level-eval-hook\ 297}#
- #{e\ 1805}#
- #{mod\ 1722}#)
- #{e\ 1805}#)))
+ (#{top-level-eval-hook\ 289}#
+ #{e\ 1765}#
+ #{mod\ 1688}#)
+ #{e\ 1765}#)))
(begin
- (if (memq (quote eval) #{esew\ 1695}#)
- (#{top-level-eval-hook\ 297}#
- (#{chi-install-global\ 465}#
- #{n\ 1798}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1799}#
- #{w\ 1720}#
- #{mod\ 1722}#))
- #{mod\ 1722}#))
- (#{chi-void\ 487}#))))))
- (if (eqv? #{type\ 1717}# (quote define-form))
+ (if (memq (quote eval) #{esew\ 1661}#)
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1758}#
+ (#{chi\ 465}#
+ #{e\ 1685}#
+ #{r\ 1759}#
+ #{w\ 1686}#
+ #{mod\ 1688}#))
+ #{mod\ 1688}#))
+ (#{chi-void\ 479}#))))))
+ (if (eqv? #{type\ 1683}# (quote define-form))
(begin
- (let ((#{n\ 1810}#
- (#{id-var-name\ 445}#
- #{value\ 1718}#
- #{w\ 1720}#)))
+ (let ((#{n\ 1770}#
+ (#{id-var-name\ 437}#
+ #{value\ 1684}#
+ #{w\ 1686}#)))
(begin
- (let ((#{type\ 1812}#
- (#{binding-type\ 371}#
- (#{lookup\ 382}#
- #{n\ 1810}#
- #{r\ 1692}#
- #{mod\ 1722}#))))
- (if (if (eqv? #{type\ 1812}# (quote global))
+ (let ((#{type\ 1772}#
+ (#{binding-type\ 363}#
+ (#{lookup\ 374}#
+ #{n\ 1770}#
+ #{r\ 1658}#
+ #{mod\ 1688}#))))
+ (if (if (eqv? #{type\ 1772}# (quote global))
#t
- (if (eqv? #{type\ 1812}# (quote core))
+ (if (eqv? #{type\ 1772}# (quote core))
#t
- (if (eqv? #{type\ 1812}#
+ (if (eqv? #{type\ 1772}#
'macro)
#t
- (eqv? #{type\ 1812}#
+ (eqv? #{type\ 1772}#
'module-ref))))
(begin
- (if (if (if (eq? #{m\ 1694}# (quote c))
+ (if (if (if (eq? #{m\ 1660}# (quote c))
#t
- (eq? #{m\ 1694}# (quote c&e)))
+ (eq? #{m\ 1660}# (quote c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 1810}#))
+ #{n\ 1770}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old\ 1818}#
+ (let ((#{old\ 1778}#
(module-variable
(current-module)
- #{n\ 1810}#)))
+ #{n\ 1770}#)))
(module-define!
(current-module)
- #{n\ 1810}#
- (if (variable? #{old\ 1818}#)
- (variable-ref #{old\ 1818}#)
+ #{n\ 1770}#
+ (if (variable? #{old\ 1778}#)
+ (variable-ref #{old\ 1778}#)
#f)))))
(begin
- (let ((#{x\ 1821}#
- (#{build-global-definition\
328}#
- #{s\ 1721}#
- #{n\ 1810}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{mod\ 1722}#))))
+ (let ((#{x\ 1781}#
+ (#{build-global-definition\
320}#
+ #{s\ 1687}#
+ #{n\ 1770}#
+ (#{chi\ 465}#
+ #{e\ 1685}#
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{mod\ 1688}#))))
(begin
- (if (eq? #{m\ 1694}# (quote c&e))
- (#{top-level-eval-hook\ 297}#
- #{x\ 1821}#
- #{mod\ 1722}#))
- #{x\ 1821}#))))
- (if (eqv? #{type\ 1812}#
+ (if (eq? #{m\ 1660}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{x\ 1781}#
+ #{mod\ 1688}#))
+ #{x\ 1781}#))))
+ (if (eqv? #{type\ 1772}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e\ 1719}#
- (#{wrap\ 457}#
- #{value\ 1718}#
- #{w\ 1720}#
- #{mod\ 1722}#))
+ #{e\ 1685}#
+ (#{wrap\ 449}#
+ #{value\ 1684}#
+ #{w\ 1686}#
+ #{mod\ 1688}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1719}#
- (#{wrap\ 457}#
- #{value\ 1718}#
- #{w\ 1720}#
- #{mod\ 1722}#))))))))
+ #{e\ 1685}#
+ (#{wrap\ 449}#
+ #{value\ 1684}#
+ #{w\ 1686}#
+ #{mod\ 1688}#))))))))
(begin
- (let ((#{x\ 1827}#
- (#{chi-expr\ 475}#
- #{type\ 1717}#
- #{value\ 1718}#
- #{e\ 1719}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
- #{mod\ 1722}#)))
+ (let ((#{x\ 1787}#
+ (#{chi-expr\ 467}#
+ #{type\ 1683}#
+ #{value\ 1684}#
+ #{e\ 1685}#
+ #{r\ 1658}#
+ #{w\ 1686}#
+ #{s\ 1687}#
+ #{mod\ 1688}#)))
(begin
- (if (eq? #{m\ 1694}# (quote c&e))
- (#{top-level-eval-hook\ 297}#
- #{x\ 1827}#
- #{mod\ 1722}#))
- #{x\ 1827}#))))))))))))
- (#{chi\ 473}#
- (lambda (#{e\ 1828}#
- #{r\ 1829}#
- #{w\ 1830}#
- #{mod\ 1831}#)
+ (if (eq? #{m\ 1660}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{x\ 1787}#
+ #{mod\ 1688}#))
+ #{x\ 1787}#))))))))))))
+ (#{chi\ 465}#
+ (lambda (#{e\ 1788}#
+ #{r\ 1789}#
+ #{w\ 1790}#
+ #{mod\ 1791}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{e\ 1828}#
- #{r\ 1829}#
- #{w\ 1830}#
- (#{source-annotation\ 367}# #{e\ 1828}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1788}#
+ #{r\ 1789}#
+ #{w\ 1790}#
+ (#{source-annotation\ 359}# #{e\ 1788}#)
#f
- #{mod\ 1831}#
+ #{mod\ 1791}#
#f))
- (lambda (#{type\ 1836}#
- #{value\ 1837}#
- #{e\ 1838}#
- #{w\ 1839}#
- #{s\ 1840}#
- #{mod\ 1841}#)
- (#{chi-expr\ 475}#
- #{type\ 1836}#
- #{value\ 1837}#
- #{e\ 1838}#
- #{r\ 1829}#
- #{w\ 1839}#
- #{s\ 1840}#
- #{mod\ 1841}#)))))
- (#{chi-expr\ 475}#
- (lambda (#{type\ 1848}#
- #{value\ 1849}#
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote lexical))
- (#{build-lexical-reference\ 318}#
+ (lambda (#{type\ 1796}#
+ #{value\ 1797}#
+ #{e\ 1798}#
+ #{w\ 1799}#
+ #{s\ 1800}#
+ #{mod\ 1801}#)
+ (#{chi-expr\ 467}#
+ #{type\ 1796}#
+ #{value\ 1797}#
+ #{e\ 1798}#
+ #{r\ 1789}#
+ #{w\ 1799}#
+ #{s\ 1800}#
+ #{mod\ 1801}#)))))
+ (#{chi-expr\ 467}#
+ (lambda (#{type\ 1808}#
+ #{value\ 1809}#
+ #{e\ 1810}#
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#)
+ (if (eqv? #{type\ 1808}# (quote lexical))
+ (#{build-lexical-reference\ 310}#
'value
- #{s\ 1853}#
- #{e\ 1850}#
- #{value\ 1849}#)
- (if (if (eqv? #{type\ 1848}# (quote core))
+ #{s\ 1813}#
+ #{e\ 1810}#
+ #{value\ 1809}#)
+ (if (if (eqv? #{type\ 1808}# (quote core))
#t
- (eqv? #{type\ 1848}# (quote core-form)))
- (#{value\ 1849}#
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote module-ref))
+ (eqv? #{type\ 1808}# (quote core-form)))
+ (#{value\ 1809}#
+ #{e\ 1810}#
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#)
+ (if (eqv? #{type\ 1808}# (quote module-ref))
(call-with-values
(lambda ()
- (#{value\ 1849}#
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#))
- (lambda (#{e\ 1865}#
- #{r\ 1866}#
- #{w\ 1867}#
- #{s\ 1868}#
- #{mod\ 1869}#)
- (#{chi\ 473}#
- #{e\ 1865}#
- #{r\ 1866}#
- #{w\ 1867}#
- #{mod\ 1869}#)))
- (if (eqv? #{type\ 1848}# (quote lexical-call))
- (#{chi-application\ 477}#
+ (#{value\ 1809}#
+ #{e\ 1810}#
+ #{r\ 1811}#
+ #{w\ 1812}#))
+ (lambda (#{e\ 1825}#
+ #{r\ 1826}#
+ #{w\ 1827}#
+ #{s\ 1828}#
+ #{mod\ 1829}#)
+ (#{chi\ 465}#
+ #{e\ 1825}#
+ #{r\ 1826}#
+ #{w\ 1827}#
+ #{mod\ 1829}#)))
+ (if (eqv? #{type\ 1808}# (quote lexical-call))
+ (#{chi-application\ 469}#
(begin
- (let ((#{id\ 1877}# (car #{e\ 1850}#)))
- (#{build-lexical-reference\ 318}#
+ (let ((#{id\ 1837}# (car #{e\ 1810}#)))
+ (#{build-lexical-reference\ 310}#
'fun
- (#{source-annotation\ 367}# #{id\ 1877}#)
- (if (#{syntax-object?\ 352}# #{id\ 1877}#)
- (syntax->datum #{id\ 1877}#)
- #{id\ 1877}#)
- #{value\ 1849}#)))
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote global-call))
- (#{chi-application\ 477}#
- (#{build-global-reference\ 324}#
- (#{source-annotation\ 367}# (car #{e\ 1850}#))
- (if (#{syntax-object?\ 352}# #{value\ 1849}#)
- (#{syntax-object-expression\ 354}#
- #{value\ 1849}#)
- #{value\ 1849}#)
- (if (#{syntax-object?\ 352}# #{value\ 1849}#)
- (#{syntax-object-module\ 358}# #{value\ 1849}#)
- #{mod\ 1854}#))
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote constant))
- (#{build-data\ 338}#
- #{s\ 1853}#
- (#{strip\ 499}#
- (#{source-wrap\ 459}#
- #{e\ 1850}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
+ (#{source-annotation\ 359}# #{id\ 1837}#)
+ (if (#{syntax-object?\ 344}# #{id\ 1837}#)
+ (syntax->datum #{id\ 1837}#)
+ #{id\ 1837}#)
+ #{value\ 1809}#)))
+ #{e\ 1810}#
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#)
+ (if (eqv? #{type\ 1808}# (quote global-call))
+ (#{chi-application\ 469}#
+ (#{build-global-reference\ 316}#
+ (#{source-annotation\ 359}# (car #{e\ 1810}#))
+ (if (#{syntax-object?\ 344}# #{value\ 1809}#)
+ (#{syntax-object-expression\ 346}#
+ #{value\ 1809}#)
+ #{value\ 1809}#)
+ (if (#{syntax-object?\ 344}# #{value\ 1809}#)
+ (#{syntax-object-module\ 350}# #{value\ 1809}#)
+ #{mod\ 1814}#))
+ #{e\ 1810}#
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#)
+ (if (eqv? #{type\ 1808}# (quote constant))
+ (#{build-data\ 330}#
+ #{s\ 1813}#
+ (#{strip\ 493}#
+ (#{source-wrap\ 451}#
+ #{e\ 1810}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#)
'(())))
- (if (eqv? #{type\ 1848}# (quote global))
- (#{build-global-reference\ 324}#
- #{s\ 1853}#
- #{value\ 1849}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote call))
- (#{chi-application\ 477}#
- (#{chi\ 473}#
- (car #{e\ 1850}#)
- #{r\ 1851}#
- #{w\ 1852}#
- #{mod\ 1854}#)
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote begin-form))
- (let ((#{tmp\ 1884}# #{e\ 1850}#))
- (let ((#{tmp\ 1885}#
+ (if (eqv? #{type\ 1808}# (quote global))
+ (#{build-global-reference\ 316}#
+ #{s\ 1813}#
+ #{value\ 1809}#
+ #{mod\ 1814}#)
+ (if (eqv? #{type\ 1808}# (quote call))
+ (#{chi-application\ 469}#
+ (#{chi\ 465}#
+ (car #{e\ 1810}#)
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{mod\ 1814}#)
+ #{e\ 1810}#
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#)
+ (if (eqv? #{type\ 1808}# (quote begin-form))
+ (let ((#{tmp\ 1844}# #{e\ 1810}#))
+ (let ((#{tmp\ 1845}#
($sc-dispatch
- #{tmp\ 1884}#
- '(any any . each-any))))
- (if #{tmp\ 1885}#
+ #{tmp\ 1844}#
+ '(_ any . each-any))))
+ (if #{tmp\ 1845}#
(@apply
- (lambda (#{_\ 1889}#
- #{e1\ 1890}#
- #{e2\ 1891}#)
- (#{chi-sequence\ 461}#
- (cons #{e1\ 1890}# #{e2\ 1891}#)
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#))
- #{tmp\ 1885}#)
+ (lambda (#{e1\ 1848}# #{e2\ 1849}#)
+ (#{chi-sequence\ 453}#
+ (cons #{e1\ 1848}# #{e2\ 1849}#)
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#))
+ #{tmp\ 1845}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1884}#))))
- (if (eqv? #{type\ 1848}#
+ #{tmp\ 1844}#))))
+ (if (eqv? #{type\ 1808}#
'local-syntax-form)
- (#{chi-local-syntax\ 483}#
- #{value\ 1849}#
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#
- #{chi-sequence\ 461}#)
- (if (eqv? #{type\ 1848}#
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1809}#
+ #{e\ 1810}#
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#
+ #{chi-sequence\ 453}#)
+ (if (eqv? #{type\ 1808}#
'eval-when-form)
- (let ((#{tmp\ 1895}# #{e\ 1850}#))
- (let ((#{tmp\ 1896}#
+ (let ((#{tmp\ 1853}# #{e\ 1810}#))
+ (let ((#{tmp\ 1854}#
($sc-dispatch
- #{tmp\ 1895}#
- '(any each-any
- any
- .
- each-any))))
- (if #{tmp\ 1896}#
+ #{tmp\ 1853}#
+ '(_ each-any any . each-any))))
+ (if #{tmp\ 1854}#
(@apply
- (lambda (#{_\ 1901}#
- #{x\ 1902}#
- #{e1\ 1903}#
- #{e2\ 1904}#)
+ (lambda (#{x\ 1858}#
+ #{e1\ 1859}#
+ #{e2\ 1860}#)
(begin
- (let ((#{when-list\ 1906}#
- (#{chi-when-list\ 467}#
- #{e\ 1850}#
- #{x\ 1902}#
- #{w\ 1852}#)))
+ (let ((#{when-list\ 1862}#
+ (#{chi-when-list\ 459}#
+ #{e\ 1810}#
+ #{x\ 1858}#
+ #{w\ 1812}#)))
(if (memq 'eval
- #{when-list\ 1906}#)
- (#{chi-sequence\ 461}#
- (cons #{e1\ 1903}#
- #{e2\ 1904}#)
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (#{chi-void\ 487}#)))))
- #{tmp\ 1896}#)
+ #{when-list\ 1862}#)
+ (#{chi-sequence\ 453}#
+ (cons #{e1\ 1859}#
+ #{e2\ 1860}#)
+ #{r\ 1811}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#)
+ (#{chi-void\ 479}#)))))
+ #{tmp\ 1854}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1895}#))))
- (if (if (eqv? #{type\ 1848}#
+ #{tmp\ 1853}#))))
+ (if (if (eqv? #{type\ 1808}#
'define-form)
#t
- (eqv? #{type\ 1848}#
+ (eqv? #{type\ 1808}#
'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1850}#
- (#{wrap\ 457}#
- #{value\ 1849}#
- #{w\ 1852}#
- #{mod\ 1854}#))
- (if (eqv? #{type\ 1848}# (quote syntax))
+ #{e\ 1810}#
+ (#{wrap\ 449}#
+ #{value\ 1809}#
+ #{w\ 1812}#
+ #{mod\ 1814}#))
+ (if (eqv? #{type\ 1808}# (quote syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 459}#
- #{e\ 1850}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#))
- (if (eqv? #{type\ 1848}#
+ (#{source-wrap\ 451}#
+ #{e\ 1810}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#))
+ (if (eqv? #{type\ 1808}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 459}#
- #{e\ 1850}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#))
+ (#{source-wrap\ 451}#
+ #{e\ 1810}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 459}#
- #{e\ 1850}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#))))))))))))))))))
- (#{chi-application\ 477}#
- (lambda (#{x\ 1913}#
- #{e\ 1914}#
- #{r\ 1915}#
- #{w\ 1916}#
- #{s\ 1917}#
- #{mod\ 1918}#)
- (let ((#{tmp\ 1925}# #{e\ 1914}#))
- (let ((#{tmp\ 1926}#
+ (#{source-wrap\ 451}#
+ #{e\ 1810}#
+ #{w\ 1812}#
+ #{s\ 1813}#
+ #{mod\ 1814}#))))))))))))))))))
+ (#{chi-application\ 469}#
+ (lambda (#{x\ 1869}#
+ #{e\ 1870}#
+ #{r\ 1871}#
+ #{w\ 1872}#
+ #{s\ 1873}#
+ #{mod\ 1874}#)
+ (let ((#{tmp\ 1881}# #{e\ 1870}#))
+ (let ((#{tmp\ 1882}#
($sc-dispatch
- #{tmp\ 1925}#
+ #{tmp\ 1881}#
'(any . each-any))))
- (if #{tmp\ 1926}#
+ (if #{tmp\ 1882}#
(@apply
- (lambda (#{e0\ 1929}# #{e1\ 1930}#)
- (#{build-application\ 312}#
- #{s\ 1917}#
- #{x\ 1913}#
- (map (lambda (#{e\ 1931}#)
- (#{chi\ 473}#
- #{e\ 1931}#
- #{r\ 1915}#
- #{w\ 1916}#
- #{mod\ 1918}#))
- #{e1\ 1930}#)))
- #{tmp\ 1926}#)
+ (lambda (#{e0\ 1885}# #{e1\ 1886}#)
+ (#{build-application\ 304}#
+ #{s\ 1873}#
+ #{x\ 1869}#
+ (map (lambda (#{e\ 1887}#)
+ (#{chi\ 465}#
+ #{e\ 1887}#
+ #{r\ 1871}#
+ #{w\ 1872}#
+ #{mod\ 1874}#))
+ #{e1\ 1886}#)))
+ #{tmp\ 1882}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1925}#))))))
- (#{chi-macro\ 479}#
- (lambda (#{p\ 1934}#
- #{e\ 1935}#
- #{r\ 1936}#
- #{w\ 1937}#
- #{s\ 1938}#
- #{rib\ 1939}#
- #{mod\ 1940}#)
+ #{tmp\ 1881}#))))))
+ (#{chi-macro\ 471}#
+ (lambda (#{p\ 1890}#
+ #{e\ 1891}#
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{rib\ 1895}#
+ #{mod\ 1896}#)
(letrec*
- ((#{rebuild-macro-output\ 1949}#
- (lambda (#{x\ 1950}# #{m\ 1951}#)
- (if (pair? #{x\ 1950}#)
- (#{decorate-source\ 306}#
- (cons (#{rebuild-macro-output\ 1949}#
- (car #{x\ 1950}#)
- #{m\ 1951}#)
- (#{rebuild-macro-output\ 1949}#
- (cdr #{x\ 1950}#)
- #{m\ 1951}#))
- #{s\ 1938}#)
- (if (#{syntax-object?\ 352}# #{x\ 1950}#)
+ ((#{rebuild-macro-output\ 1905}#
+ (lambda (#{x\ 1906}# #{m\ 1907}#)
+ (if (pair? #{x\ 1906}#)
+ (#{decorate-source\ 298}#
+ (cons (#{rebuild-macro-output\ 1905}#
+ (car #{x\ 1906}#)
+ #{m\ 1907}#)
+ (#{rebuild-macro-output\ 1905}#
+ (cdr #{x\ 1906}#)
+ #{m\ 1907}#))
+ #{s\ 1894}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1906}#)
(begin
- (let ((#{w\ 1959}#
- (#{syntax-object-wrap\ 356}# #{x\ 1950}#)))
+ (let ((#{w\ 1915}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1906}#)))
(begin
- (let ((#{ms\ 1962}#
- (#{wrap-marks\ 395}# #{w\ 1959}#))
- (#{s\ 1963}#
- (#{wrap-subst\ 397}# #{w\ 1959}#)))
- (if (if (pair? #{ms\ 1962}#)
- (eq? (car #{ms\ 1962}#) #f)
+ (let ((#{ms\ 1918}#
+ (#{wrap-marks\ 387}# #{w\ 1915}#))
+ (#{s\ 1919}#
+ (#{wrap-subst\ 389}# #{w\ 1915}#)))
+ (if (if (pair? #{ms\ 1918}#)
+ (eq? (car #{ms\ 1918}#) #f)
#f)
- (#{make-syntax-object\ 350}#
- (#{syntax-object-expression\ 354}#
- #{x\ 1950}#)
- (#{make-wrap\ 393}#
- (cdr #{ms\ 1962}#)
- (if #{rib\ 1939}#
- (cons #{rib\ 1939}# (cdr #{s\ 1963}#))
- (cdr #{s\ 1963}#)))
- (#{syntax-object-module\ 358}#
- #{x\ 1950}#))
- (#{make-syntax-object\ 350}#
- (#{decorate-source\ 306}#
- (#{syntax-object-expression\ 354}#
- #{x\ 1950}#)
- #{s\ 1963}#)
- (#{make-wrap\ 393}#
- (cons #{m\ 1951}# #{ms\ 1962}#)
- (if #{rib\ 1939}#
- (cons #{rib\ 1939}#
- (cons (quote shift) #{s\ 1963}#))
- (cons (quote shift) #{s\ 1963}#)))
- (#{syntax-object-module\ 358}#
- #{x\ 1950}#)))))))
- (if (vector? #{x\ 1950}#)
+ (#{make-syntax-object\ 342}#
+ (#{syntax-object-expression\ 346}#
+ #{x\ 1906}#)
+ (#{make-wrap\ 385}#
+ (cdr #{ms\ 1918}#)
+ (if #{rib\ 1895}#
+ (cons #{rib\ 1895}# (cdr #{s\ 1919}#))
+ (cdr #{s\ 1919}#)))
+ (#{syntax-object-module\ 350}#
+ #{x\ 1906}#))
+ (#{make-syntax-object\ 342}#
+ (#{decorate-source\ 298}#
+ (#{syntax-object-expression\ 346}#
+ #{x\ 1906}#)
+ #{s\ 1919}#)
+ (#{make-wrap\ 385}#
+ (cons #{m\ 1907}# #{ms\ 1918}#)
+ (if #{rib\ 1895}#
+ (cons #{rib\ 1895}#
+ (cons (quote shift) #{s\ 1919}#))
+ (cons (quote shift) #{s\ 1919}#)))
+ (#{syntax-object-module\ 350}#
+ #{x\ 1906}#)))))))
+ (if (vector? #{x\ 1906}#)
(begin
- (let ((#{n\ 1971}# (vector-length #{x\ 1950}#)))
+ (let ((#{n\ 1927}# (vector-length #{x\ 1906}#)))
(begin
- (let ((#{v\ 1973}#
- (#{decorate-source\ 306}#
- (make-vector #{n\ 1971}#)
- #{x\ 1950}#)))
+ (let ((#{v\ 1929}#
+ (#{decorate-source\ 298}#
+ (make-vector #{n\ 1927}#)
+ #{x\ 1906}#)))
(letrec*
- ((#{loop\ 1976}#
- (lambda (#{i\ 1977}#)
- (if (#{fx=\ 293}#
- #{i\ 1977}#
- #{n\ 1971}#)
- (begin (if #f #f) #{v\ 1973}#)
+ ((#{loop\ 1932}#
+ (lambda (#{i\ 1933}#)
+ (if (#{fx=\ 285}#
+ #{i\ 1933}#
+ #{n\ 1927}#)
+ (begin (if #f #f) #{v\ 1929}#)
(begin
(vector-set!
- #{v\ 1973}#
- #{i\ 1977}#
- (#{rebuild-macro-output\ 1949}#
+ #{v\ 1929}#
+ #{i\ 1933}#
+ (#{rebuild-macro-output\ 1905}#
(vector-ref
- #{x\ 1950}#
- #{i\ 1977}#)
- #{m\ 1951}#))
- (#{loop\ 1976}#
- (#{fx+\ 289}#
- #{i\ 1977}#
+ #{x\ 1906}#
+ #{i\ 1933}#)
+ #{m\ 1907}#))
+ (#{loop\ 1932}#
+ (#{fx+\ 281}#
+ #{i\ 1933}#
1)))))))
- (begin (#{loop\ 1976}# 0)))))))
- (if (symbol? #{x\ 1950}#)
+ (begin (#{loop\ 1932}# 0)))))))
+ (if (symbol? #{x\ 1906}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 459}#
- #{e\ 1935}#
- #{w\ 1937}#
- (#{wrap-subst\ 397}# #{w\ 1937}#)
- #{mod\ 1940}#)
- #{x\ 1950}#)
- (#{decorate-source\ 306}#
- #{x\ 1950}#
- #{s\ 1938}#))))))))
+ (#{source-wrap\ 451}#
+ #{e\ 1891}#
+ #{w\ 1893}#
+ (#{wrap-subst\ 389}# #{w\ 1893}#)
+ #{mod\ 1896}#)
+ #{x\ 1906}#)
+ (#{decorate-source\ 298}#
+ #{x\ 1906}#
+ #{s\ 1894}#))))))))
(begin
- (#{rebuild-macro-output\ 1949}#
- (#{p\ 1934}#
- (#{source-wrap\ 459}#
- #{e\ 1935}#
- (#{anti-mark\ 429}# #{w\ 1937}#)
- #{s\ 1938}#
- #{mod\ 1940}#))
+ (#{rebuild-macro-output\ 1905}#
+ (#{p\ 1890}#
+ (#{source-wrap\ 451}#
+ #{e\ 1891}#
+ (#{anti-mark\ 421}# #{w\ 1893}#)
+ #{s\ 1894}#
+ #{mod\ 1896}#))
(gensym "m"))))))
- (#{chi-body\ 481}#
- (lambda (#{body\ 1984}#
- #{outer-form\ 1985}#
- #{r\ 1986}#
- #{w\ 1987}#
- #{mod\ 1988}#)
+ (#{chi-body\ 473}#
+ (lambda (#{body\ 1940}#
+ #{outer-form\ 1941}#
+ #{r\ 1942}#
+ #{w\ 1943}#
+ #{mod\ 1944}#)
(begin
- (let ((#{r\ 1996}#
+ (let ((#{r\ 1952}#
(cons '("placeholder" placeholder)
- #{r\ 1986}#)))
+ #{r\ 1942}#)))
(begin
- (let ((#{ribcage\ 1998}#
- (#{make-ribcage\ 409}#
+ (let ((#{ribcage\ 1954}#
+ (#{make-ribcage\ 401}#
'()
'()
'())))
(begin
- (let ((#{w\ 2001}#
- (#{make-wrap\ 393}#
- (#{wrap-marks\ 395}# #{w\ 1987}#)
- (cons #{ribcage\ 1998}#
- (#{wrap-subst\ 397}# #{w\ 1987}#)))))
+ (let ((#{w\ 1957}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w\ 1943}#)
+ (cons #{ribcage\ 1954}#
+ (#{wrap-subst\ 389}# #{w\ 1943}#)))))
(letrec*
- ((#{parse\ 2010}#
- (lambda (#{body\ 2011}#
- #{ids\ 2012}#
- #{labels\ 2013}#
- #{var-ids\ 2014}#
- #{vars\ 2015}#
- #{vals\ 2016}#
- #{bindings\ 2017}#)
- (if (null? #{body\ 2011}#)
+ ((#{parse\ 1966}#
+ (lambda (#{body\ 1967}#
+ #{ids\ 1968}#
+ #{labels\ 1969}#
+ #{var-ids\ 1970}#
+ #{vars\ 1971}#
+ #{vals\ 1972}#
+ #{bindings\ 1973}#)
+ (if (null? #{body\ 1967}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1985}#)
+ #{outer-form\ 1941}#)
(begin
- (let ((#{e\ 2022}#
- (cdr (car #{body\ 2011}#)))
- (#{er\ 2023}#
- (car (car #{body\ 2011}#))))
+ (let ((#{e\ 1978}#
+ (cdr (car #{body\ 1967}#)))
+ (#{er\ 1979}#
+ (car (car #{body\ 1967}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{e\ 2022}#
- #{er\ 2023}#
+ (#{syntax-type\ 461}#
+ #{e\ 1978}#
+ #{er\ 1979}#
'(())
- (#{source-annotation\ 367}#
- #{er\ 2023}#)
- #{ribcage\ 1998}#
- #{mod\ 1988}#
+ (#{source-annotation\ 359}#
+ #{er\ 1979}#)
+ #{ribcage\ 1954}#
+ #{mod\ 1944}#
#f))
- (lambda (#{type\ 2025}#
- #{value\ 2026}#
- #{e\ 2027}#
- #{w\ 2028}#
- #{s\ 2029}#
- #{mod\ 2030}#)
- (if (eqv? #{type\ 2025}#
+ (lambda (#{type\ 1981}#
+ #{value\ 1982}#
+ #{e\ 1983}#
+ #{w\ 1984}#
+ #{s\ 1985}#
+ #{mod\ 1986}#)
+ (if (eqv? #{type\ 1981}#
'define-form)
(begin
- (let ((#{id\ 2040}#
- (#{wrap\ 457}#
- #{value\ 2026}#
- #{w\ 2028}#
- #{mod\ 2030}#))
- (#{label\ 2041}#
- (#{gen-label\ 404}#)))
+ (let ((#{id\ 1996}#
+ (#{wrap\ 449}#
+ #{value\ 1982}#
+ #{w\ 1984}#
+ #{mod\ 1986}#))
+ (#{label\ 1997}#
+ (#{gen-label\ 396}#)))
(begin
- (let ((#{var\ 2043}#
- (#{gen-var\ 501}#
- #{id\ 2040}#)))
+ (let ((#{var\ 1999}#
+ (#{gen-var\ 495}#
+ #{id\ 1996}#)))
(begin
- (#{extend-ribcage!\ 433}#
- #{ribcage\ 1998}#
- #{id\ 2040}#
- #{label\ 2041}#)
- (#{parse\ 2010}#
- (cdr #{body\ 2011}#)
- (cons #{id\ 2040}#
- #{ids\ 2012}#)
- (cons #{label\ 2041}#
- #{labels\ 2013}#)
- (cons #{id\ 2040}#
- #{var-ids\
2014}#)
- (cons #{var\ 2043}#
- #{vars\ 2015}#)
- (cons (cons #{er\
2023}#
- (#{wrap\
457}#
- #{e\
2027}#
- #{w\
2028}#
- #{mod\
2030}#))
- #{vals\ 2016}#)
+ (#{extend-ribcage!\ 425}#
+ #{ribcage\ 1954}#
+ #{id\ 1996}#
+ #{label\ 1997}#)
+ (#{parse\ 1966}#
+ (cdr #{body\ 1967}#)
+ (cons #{id\ 1996}#
+ #{ids\ 1968}#)
+ (cons #{label\ 1997}#
+ #{labels\ 1969}#)
+ (cons #{id\ 1996}#
+ #{var-ids\
1970}#)
+ (cons #{var\ 1999}#
+ #{vars\ 1971}#)
+ (cons (cons #{er\
1979}#
+ (#{wrap\
449}#
+ #{e\
1983}#
+ #{w\
1984}#
+ #{mod\
1986}#))
+ #{vals\ 1972}#)
(cons (cons 'lexical
- #{var\
2043}#)
- #{bindings\
2017}#)))))))
- (if (eqv? #{type\ 2025}#
+ #{var\
1999}#)
+ #{bindings\
1973}#)))))))
+ (if (eqv? #{type\ 1981}#
'define-syntax-form)
(begin
- (let ((#{id\ 2048}#
- (#{wrap\ 457}#
- #{value\ 2026}#
- #{w\ 2028}#
- #{mod\ 2030}#))
- (#{label\ 2049}#
- (#{gen-label\ 404}#)))
+ (let ((#{id\ 2004}#
+ (#{wrap\ 449}#
+ #{value\ 1982}#
+ #{w\ 1984}#
+ #{mod\ 1986}#))
+ (#{label\ 2005}#
+ (#{gen-label\ 396}#)))
(begin
- (#{extend-ribcage!\ 433}#
- #{ribcage\ 1998}#
- #{id\ 2048}#
- #{label\ 2049}#)
- (#{parse\ 2010}#
- (cdr #{body\ 2011}#)
- (cons #{id\ 2048}#
- #{ids\ 2012}#)
- (cons #{label\ 2049}#
- #{labels\ 2013}#)
- #{var-ids\ 2014}#
- #{vars\ 2015}#
- #{vals\ 2016}#
+ (#{extend-ribcage!\ 425}#
+ #{ribcage\ 1954}#
+ #{id\ 2004}#
+ #{label\ 2005}#)
+ (#{parse\ 1966}#
+ (cdr #{body\ 1967}#)
+ (cons #{id\ 2004}#
+ #{ids\ 1968}#)
+ (cons #{label\ 2005}#
+ #{labels\ 1969}#)
+ #{var-ids\ 1970}#
+ #{vars\ 1971}#
+ #{vals\ 1972}#
(cons (cons 'macro
- (cons #{er\
2023}#
-
(#{wrap\ 457}#
- #{e\
2027}#
- #{w\
2028}#
-
#{mod\ 2030}#)))
- #{bindings\
2017}#)))))
- (if (eqv? #{type\ 2025}#
+ (cons #{er\
1979}#
+
(#{wrap\ 449}#
+ #{e\
1983}#
+ #{w\
1984}#
+
#{mod\ 1986}#)))
+ #{bindings\
1973}#)))))
+ (if (eqv? #{type\ 1981}#
'begin-form)
- (let ((#{tmp\ 2052}#
- #{e\ 2027}#))
- (let ((#{tmp\ 2053}#
+ (let ((#{tmp\ 2008}#
+ #{e\ 1983}#))
+ (let ((#{tmp\ 2009}#
($sc-dispatch
- #{tmp\ 2052}#
- '(any .
- each-any))))
- (if #{tmp\ 2053}#
+ #{tmp\ 2008}#
+ '(_ . each-any))))
+ (if #{tmp\ 2009}#
(@apply
- (lambda (#{_\ 2056}#
- #{e1\ 2057}#)
- (#{parse\ 2010}#
+ (lambda (#{e1\ 2011}#)
+ (#{parse\ 1966}#
(letrec*
- ((#{f\ 2060}#
- (lambda
(#{forms\ 2061}#)
- (if (null?
#{forms\ 2061}#)
- (cdr
#{body\ 2011}#)
- (cons
(cons #{er\ 2023}#
-
(#{wrap\ 457}#
-
(car #{forms\ 2061}#)
-
#{w\ 2028}#
-
#{mod\ 2030}#))
-
(#{f\ 2060}#
-
(cdr #{forms\ 2061}#)))))))
+ ((#{f\ 2014}#
+ (lambda
(#{forms\ 2015}#)
+ (if (null?
#{forms\ 2015}#)
+ (cdr
#{body\ 1967}#)
+ (cons
(cons #{er\ 1979}#
+
(#{wrap\ 449}#
+
(car #{forms\ 2015}#)
+
#{w\ 1984}#
+
#{mod\ 1986}#))
+
(#{f\ 2014}#
+
(cdr #{forms\ 2015}#)))))))
(begin
- (#{f\ 2060}#
- #{e1\
2057}#)))
- #{ids\ 2012}#
- #{labels\ 2013}#
- #{var-ids\ 2014}#
- #{vars\ 2015}#
- #{vals\ 2016}#
- #{bindings\
2017}#))
- #{tmp\ 2053}#)
+ (#{f\ 2014}#
+ #{e1\
2011}#)))
+ #{ids\ 1968}#
+ #{labels\ 1969}#
+ #{var-ids\ 1970}#
+ #{vars\ 1971}#
+ #{vals\ 1972}#
+ #{bindings\
1973}#))
+ #{tmp\ 2009}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 2052}#))))
- (if (eqv? #{type\ 2025}#
+ #{tmp\ 2008}#))))
+ (if (eqv? #{type\ 1981}#
'local-syntax-form)
- (#{chi-local-syntax\ 483}#
- #{value\ 2026}#
- #{e\ 2027}#
- #{er\ 2023}#
- #{w\ 2028}#
- #{s\ 2029}#
- #{mod\ 2030}#
- (lambda (#{forms\ 2064}#
- #{er\ 2065}#
- #{w\ 2066}#
- #{s\ 2067}#
- #{mod\ 2068}#)
- (#{parse\ 2010}#
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1982}#
+ #{e\ 1983}#
+ #{er\ 1979}#
+ #{w\ 1984}#
+ #{s\ 1985}#
+ #{mod\ 1986}#
+ (lambda (#{forms\ 2018}#
+ #{er\ 2019}#
+ #{w\ 2020}#
+ #{s\ 2021}#
+ #{mod\ 2022}#)
+ (#{parse\ 1966}#
(letrec*
- ((#{f\ 2076}#
- (lambda (#{forms\
2077}#)
- (if (null?
#{forms\ 2077}#)
- (cdr #{body\
2011}#)
- (cons (cons
#{er\ 2065}#
-
(#{wrap\ 457}#
-
(car #{forms\ 2077}#)
-
#{w\ 2066}#
-
#{mod\ 2068}#))
- (#{f\
2076}#
- (cdr
#{forms\ 2077}#)))))))
+ ((#{f\ 2030}#
+ (lambda (#{forms\
2031}#)
+ (if (null?
#{forms\ 2031}#)
+ (cdr #{body\
1967}#)
+ (cons (cons
#{er\ 2019}#
+
(#{wrap\ 449}#
+
(car #{forms\ 2031}#)
+
#{w\ 2020}#
+
#{mod\ 2022}#))
+ (#{f\
2030}#
+ (cdr
#{forms\ 2031}#)))))))
(begin
- (#{f\ 2076}#
- #{forms\
2064}#)))
- #{ids\ 2012}#
- #{labels\ 2013}#
- #{var-ids\ 2014}#
- #{vars\ 2015}#
- #{vals\ 2016}#
- #{bindings\ 2017}#)))
- (if (null? #{ids\ 2012}#)
- (#{build-sequence\ 340}#
+ (#{f\ 2030}#
+ #{forms\
2018}#)))
+ #{ids\ 1968}#
+ #{labels\ 1969}#
+ #{var-ids\ 1970}#
+ #{vars\ 1971}#
+ #{vals\ 1972}#
+ #{bindings\ 1973}#)))
+ (if (null? #{ids\ 1968}#)
+ (#{build-sequence\ 332}#
#f
- (map (lambda (#{x\
2080}#)
- (#{chi\ 473}#
- (cdr #{x\
2080}#)
- (car #{x\
2080}#)
+ (map (lambda (#{x\
2034}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2034}#)
+ (car #{x\
2034}#)
'(())
- #{mod\ 2030}#))
- (cons (cons #{er\
2023}#
-
(#{source-wrap\ 459}#
- #{e\
2027}#
- #{w\
2028}#
- #{s\
2029}#
-
#{mod\ 2030}#))
- (cdr #{body\
2011}#))))
+ #{mod\ 1986}#))
+ (cons (cons #{er\
1979}#
+
(#{source-wrap\ 451}#
+ #{e\
1983}#
+ #{w\
1984}#
+ #{s\
1985}#
+
#{mod\ 1986}#))
+ (cdr #{body\
1967}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 451}#
- #{ids\
2012}#))
+ (if (not
(#{valid-bound-ids?\ 443}#
+ #{ids\
1968}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
1985}#))
+ #{outer-form\
1941}#))
(letrec*
- ((#{loop\ 2087}#
- (lambda (#{bs\
2088}#
-
#{er-cache\ 2089}#
- #{r-cache\
2090}#)
- (if (not (null?
#{bs\ 2088}#))
+ ((#{loop\ 2041}#
+ (lambda (#{bs\
2042}#
+
#{er-cache\ 2043}#
+ #{r-cache\
2044}#)
+ (if (not (null?
#{bs\ 2042}#))
(begin
- (let ((#{b\
2093}#
- (car
#{bs\ 2088}#)))
- (if (eq?
(car #{b\ 2093}#)
+ (let ((#{b\
2047}#
+ (car
#{bs\ 2042}#)))
+ (if (eq?
(car #{b\ 2047}#)
'macro)
(begin
- (let
((#{er\ 2096}#
-
(car (cdr #{b\ 2093}#))))
+ (let
((#{er\ 2050}#
+
(car (cdr #{b\ 2047}#))))
(begin
-
(let ((#{r-cache\ 2098}#
-
(if (eq? #{er\ 2096}#
-
#{er-cache\ 2089}#)
-
#{r-cache\ 2090}#
-
(#{macros-only-env\ 380}#
-
#{er\ 2096}#))))
+
(let ((#{r-cache\ 2052}#
+
(if (eq? #{er\ 2050}#
+
#{er-cache\ 2043}#)
+
#{r-cache\ 2044}#
+
(#{macros-only-env\ 372}#
+
#{er\ 2050}#))))
(begin
(set-cdr!
-
#{b\ 2093}#
-
(#{eval-local-transformer\ 485}#
-
(#{chi\ 473}#
-
(cdr (cdr #{b\ 2093}#))
-
#{r-cache\ 2098}#
+
#{b\ 2047}#
+
(#{eval-local-transformer\ 477}#
+
(#{chi\ 465}#
+
(cdr (cdr #{b\ 2047}#))
+
#{r-cache\ 2052}#
'(())
-
#{mod\ 2030}#)
-
#{mod\ 2030}#))
-
(#{loop\ 2087}#
-
(cdr #{bs\ 2088}#)
-
#{er\ 2096}#
-
#{r-cache\ 2098}#))))))
- (#{loop\
2087}#
- (cdr
#{bs\ 2088}#)
-
#{er-cache\ 2089}#
-
#{r-cache\ 2090}#))))))))
+
#{mod\ 1986}#)
+
#{mod\ 1986}#))
+
(#{loop\ 2041}#
+
(cdr #{bs\ 2042}#)
+
#{er\ 2050}#
+
#{r-cache\ 2052}#))))))
+ (#{loop\
2041}#
+ (cdr
#{bs\ 2042}#)
+
#{er-cache\ 2043}#
+
#{r-cache\ 2044}#))))))))
(begin
- (#{loop\ 2087}#
- #{bindings\ 2017}#
+ (#{loop\ 2041}#
+ #{bindings\ 1973}#
#f
#f)))
(set-cdr!
- #{r\ 1996}#
- (#{extend-env\ 376}#
- #{labels\ 2013}#
- #{bindings\ 2017}#
- (cdr #{r\ 1996}#)))
- (#{build-letrec\ 346}#
+ #{r\ 1952}#
+ (#{extend-env\ 368}#
+ #{labels\ 1969}#
+ #{bindings\ 1973}#
+ (cdr #{r\ 1952}#)))
+ (#{build-letrec\ 338}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\
2014}#))
+ #{var-ids\
1970}#))
(reverse
- #{vars\ 2015}#)
- (map (lambda (#{x\
2101}#)
- (#{chi\ 473}#
- (cdr #{x\
2101}#)
- (car #{x\
2101}#)
+ #{vars\ 1971}#)
+ (map (lambda (#{x\
2055}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2055}#)
+ (car #{x\
2055}#)
'(())
- #{mod\
2030}#))
+ #{mod\
1986}#))
(reverse
- #{vals\ 2016}#))
- (#{build-sequence\
340}#
+ #{vals\ 1972}#))
+ (#{build-sequence\
332}#
#f
- (map (lambda (#{x\
2105}#)
- (#{chi\ 473}#
- (cdr #{x\
2105}#)
- (car #{x\
2105}#)
+ (map (lambda (#{x\
2059}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2059}#)
+ (car #{x\
2059}#)
'(())
- #{mod\
2030}#))
- (cons (cons
#{er\ 2023}#
-
(#{source-wrap\ 459}#
-
#{e\ 2027}#
-
#{w\ 2028}#
-
#{s\ 2029}#
-
#{mod\ 2030}#))
- (cdr
#{body\ 2011}#)))))))))))))))))))
+ #{mod\
1986}#))
+ (cons (cons
#{er\ 1979}#
+
(#{source-wrap\ 451}#
+
#{e\ 1983}#
+
#{w\ 1984}#
+
#{s\ 1985}#
+
#{mod\ 1986}#))
+ (cdr
#{body\ 1967}#)))))))))))))))))))
(begin
- (#{parse\ 2010}#
- (map (lambda (#{x\ 2018}#)
- (cons #{r\ 1996}#
- (#{wrap\ 457}#
- #{x\ 2018}#
- #{w\ 2001}#
- #{mod\ 1988}#)))
- #{body\ 1984}#)
+ (#{parse\ 1966}#
+ (map (lambda (#{x\ 1974}#)
+ (cons #{r\ 1952}#
+ (#{wrap\ 449}#
+ #{x\ 1974}#
+ #{w\ 1957}#
+ #{mod\ 1944}#)))
+ #{body\ 1940}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax\ 483}#
- (lambda (#{rec?\ 2108}#
- #{e\ 2109}#
- #{r\ 2110}#
- #{w\ 2111}#
- #{s\ 2112}#
- #{mod\ 2113}#
- #{k\ 2114}#)
- (let ((#{tmp\ 2122}# #{e\ 2109}#))
- (let ((#{tmp\ 2123}#
+ (#{chi-local-syntax\ 475}#
+ (lambda (#{rec?\ 2062}#
+ #{e\ 2063}#
+ #{r\ 2064}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2067}#
+ #{k\ 2068}#)
+ (let ((#{tmp\ 2076}# #{e\ 2063}#))
+ (let ((#{tmp\ 2077}#
($sc-dispatch
- #{tmp\ 2122}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 2123}#
+ #{tmp\ 2076}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp\ 2077}#
(@apply
- (lambda (#{_\ 2129}#
- #{id\ 2130}#
- #{val\ 2131}#
- #{e1\ 2132}#
- #{e2\ 2133}#)
+ (lambda (#{id\ 2082}#
+ #{val\ 2083}#
+ #{e1\ 2084}#
+ #{e2\ 2085}#)
(begin
- (let ((#{ids\ 2135}# #{id\ 2130}#))
- (if (not (#{valid-bound-ids?\ 451}# #{ids\ 2135}#))
+ (let ((#{ids\ 2087}# #{id\ 2082}#))
+ (if (not (#{valid-bound-ids?\ 443}# #{ids\ 2087}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 2109}#)
+ #{e\ 2063}#)
(begin
- (let ((#{labels\ 2138}#
- (#{gen-labels\ 406}# #{ids\ 2135}#)))
+ (let ((#{labels\ 2090}#
+ (#{gen-labels\ 398}# #{ids\ 2087}#)))
(begin
- (let ((#{new-w\ 2140}#
- (#{make-binding-wrap\ 435}#
- #{ids\ 2135}#
- #{labels\ 2138}#
- #{w\ 2111}#)))
- (#{k\ 2114}#
- (cons #{e1\ 2132}# #{e2\ 2133}#)
- (#{extend-env\ 376}#
- #{labels\ 2138}#
+ (let ((#{new-w\ 2092}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 2087}#
+ #{labels\ 2090}#
+ #{w\ 2065}#)))
+ (#{k\ 2068}#
+ (cons #{e1\ 2084}# #{e2\ 2085}#)
+ (#{extend-env\ 368}#
+ #{labels\ 2090}#
(begin
- (let ((#{w\ 2144}#
- (if #{rec?\ 2108}#
- #{new-w\ 2140}#
- #{w\ 2111}#))
- (#{trans-r\ 2145}#
- (#{macros-only-env\ 380}#
- #{r\ 2110}#)))
- (map (lambda (#{x\ 2146}#)
+ (let ((#{w\ 2096}#
+ (if #{rec?\ 2062}#
+ #{new-w\ 2092}#
+ #{w\ 2065}#))
+ (#{trans-r\ 2097}#
+ (#{macros-only-env\ 372}#
+ #{r\ 2064}#)))
+ (map (lambda (#{x\ 2098}#)
(cons 'macro
-
(#{eval-local-transformer\ 485}#
- (#{chi\ 473}#
- #{x\ 2146}#
- #{trans-r\ 2145}#
- #{w\ 2144}#
- #{mod\ 2113}#)
- #{mod\ 2113}#)))
- #{val\ 2131}#)))
- #{r\ 2110}#)
- #{new-w\ 2140}#
- #{s\ 2112}#
- #{mod\ 2113}#)))))))))
- #{tmp\ 2123}#)
- (let ((#{_\ 2151}# #{tmp\ 2122}#))
+
(#{eval-local-transformer\ 477}#
+ (#{chi\ 465}#
+ #{x\ 2098}#
+ #{trans-r\ 2097}#
+ #{w\ 2096}#
+ #{mod\ 2067}#)
+ #{mod\ 2067}#)))
+ #{val\ 2083}#)))
+ #{r\ 2064}#)
+ #{new-w\ 2092}#
+ #{s\ 2066}#
+ #{mod\ 2067}#)))))))))
+ #{tmp\ 2077}#)
+ (let ((#{_\ 2103}# #{tmp\ 2076}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 459}#
- #{e\ 2109}#
- #{w\ 2111}#
- #{s\ 2112}#
- #{mod\ 2113}#))))))))
- (#{eval-local-transformer\ 485}#
- (lambda (#{expanded\ 2152}# #{mod\ 2153}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2067}#))))))))
+ (#{eval-local-transformer\ 477}#
+ (lambda (#{expanded\ 2104}# #{mod\ 2105}#)
(begin
- (let ((#{p\ 2157}#
- (#{local-eval-hook\ 299}#
- #{expanded\ 2152}#
- #{mod\ 2153}#)))
- (if (procedure? #{p\ 2157}#)
- #{p\ 2157}#
+ (let ((#{p\ 2109}#
+ (#{local-eval-hook\ 291}#
+ #{expanded\ 2104}#
+ #{mod\ 2105}#)))
+ (if (procedure? #{p\ 2109}#)
+ #{p\ 2109}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 2157}#))))))
- (#{chi-void\ 487}#
- (lambda () (#{build-void\ 310}# #f)))
- (#{ellipsis?\ 489}#
- (lambda (#{x\ 2159}#)
- (if (#{nonsymbol-id?\ 386}# #{x\ 2159}#)
- (#{free-id=?\ 447}#
- #{x\ 2159}#
+ #{p\ 2109}#))))))
+ (#{chi-void\ 479}#
+ (lambda () (#{build-void\ 302}# #f)))
+ (#{ellipsis?\ 481}#
+ (lambda (#{x\ 2111}#)
+ (if (#{nonsymbol-id?\ 378}# #{x\ 2111}#)
+ (#{free-id=?\ 439}#
+ #{x\ 2111}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2160"))
+ #(ribcage #(x) #((top)) #("i2112"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ underscore?
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i496"
+ "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"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "i358"
+ "i357"
+ "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"
+ "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))
+ ("i39" "i38" "i37" "i35")))
+ (hygiene guile)))
+ #f)))
+ (#{underscore?\ 483}#
+ (lambda (#{x\ 2115}#)
+ (if (#{nonsymbol-id?\ 378}# #{x\ 2115}#)
+ (#{free-id=?\ 439}#
+ #{x\ 2115}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2116"))
#(ribcage
(lambda-var-list
gen-var
@@ -6511,6 +6941,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -6777,11 +7208,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -6814,50 +7243,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -6887,20 +7316,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -6914,7 +7343,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -6924,271 +7357,271 @@
("i39" "i38" "i37" "i35")))
(hygiene guile)))
#f)))
- (#{lambda-formals\ 491}#
- (lambda (#{orig-args\ 2163}#)
+ (#{lambda-formals\ 485}#
+ (lambda (#{orig-args\ 2119}#)
(letrec*
- ((#{req\ 2166}#
- (lambda (#{args\ 2169}# #{rreq\ 2170}#)
- (let ((#{tmp\ 2173}# #{args\ 2169}#))
- (let ((#{tmp\ 2174}#
- ($sc-dispatch #{tmp\ 2173}# (quote ()))))
- (if #{tmp\ 2174}#
+ ((#{req\ 2122}#
+ (lambda (#{args\ 2125}# #{rreq\ 2126}#)
+ (let ((#{tmp\ 2129}# #{args\ 2125}#))
+ (let ((#{tmp\ 2130}#
+ ($sc-dispatch #{tmp\ 2129}# (quote ()))))
+ (if #{tmp\ 2130}#
(@apply
(lambda ()
- (#{check\ 2168}# (reverse #{rreq\ 2170}#) #f))
- #{tmp\ 2174}#)
- (let ((#{tmp\ 2175}#
+ (#{check\ 2124}# (reverse #{rreq\ 2126}#) #f))
+ #{tmp\ 2130}#)
+ (let ((#{tmp\ 2131}#
($sc-dispatch
- #{tmp\ 2173}#
+ #{tmp\ 2129}#
'(any . any))))
- (if (if #{tmp\ 2175}#
+ (if (if #{tmp\ 2131}#
(@apply
- (lambda (#{a\ 2178}# #{b\ 2179}#)
- (#{id?\ 388}# #{a\ 2178}#))
- #{tmp\ 2175}#)
+ (lambda (#{a\ 2134}# #{b\ 2135}#)
+ (#{id?\ 380}# #{a\ 2134}#))
+ #{tmp\ 2131}#)
#f)
(@apply
- (lambda (#{a\ 2182}# #{b\ 2183}#)
- (#{req\ 2166}#
- #{b\ 2183}#
- (cons #{a\ 2182}# #{rreq\ 2170}#)))
- #{tmp\ 2175}#)
- (let ((#{tmp\ 2184}# (list #{tmp\ 2173}#)))
- (if (if #{tmp\ 2184}#
+ (lambda (#{a\ 2138}# #{b\ 2139}#)
+ (#{req\ 2122}#
+ #{b\ 2139}#
+ (cons #{a\ 2138}# #{rreq\ 2126}#)))
+ #{tmp\ 2131}#)
+ (let ((#{tmp\ 2140}# (list #{tmp\ 2129}#)))
+ (if (if #{tmp\ 2140}#
(@apply
- (lambda (#{r\ 2186}#)
- (#{id?\ 388}# #{r\ 2186}#))
- #{tmp\ 2184}#)
+ (lambda (#{r\ 2142}#)
+ (#{id?\ 380}# #{r\ 2142}#))
+ #{tmp\ 2140}#)
#f)
(@apply
- (lambda (#{r\ 2188}#)
- (#{check\ 2168}#
- (reverse #{rreq\ 2170}#)
- #{r\ 2188}#))
- #{tmp\ 2184}#)
- (let ((#{else\ 2190}# #{tmp\ 2173}#))
+ (lambda (#{r\ 2144}#)
+ (#{check\ 2124}#
+ (reverse #{rreq\ 2126}#)
+ #{r\ 2144}#))
+ #{tmp\ 2140}#)
+ (let ((#{else\ 2146}# #{tmp\ 2129}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 2163}#
- #{args\ 2169}#)))))))))))
- (#{check\ 2168}#
- (lambda (#{req\ 2191}# #{rest\ 2192}#)
- (if (#{distinct-bound-ids?\ 453}#
- (if #{rest\ 2192}#
- (cons #{rest\ 2192}# #{req\ 2191}#)
- #{req\ 2191}#))
- (values #{req\ 2191}# #f #{rest\ 2192}# #f)
+ #{orig-args\ 2119}#
+ #{args\ 2125}#)))))))))))
+ (#{check\ 2124}#
+ (lambda (#{req\ 2147}# #{rest\ 2148}#)
+ (if (#{distinct-bound-ids?\ 445}#
+ (if #{rest\ 2148}#
+ (cons #{rest\ 2148}# #{req\ 2147}#)
+ #{req\ 2147}#))
+ (values #{req\ 2147}# #f #{rest\ 2148}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 2163}#)))))
+ #{orig-args\ 2119}#)))))
(begin
- (#{req\ 2166}# #{orig-args\ 2163}# (quote ()))))))
- (#{chi-simple-lambda\ 493}#
- (lambda (#{e\ 2198}#
- #{r\ 2199}#
- #{w\ 2200}#
- #{s\ 2201}#
- #{mod\ 2202}#
- #{req\ 2203}#
- #{rest\ 2204}#
- #{meta\ 2205}#
- #{body\ 2206}#)
+ (#{req\ 2122}# #{orig-args\ 2119}# (quote ()))))))
+ (#{chi-simple-lambda\ 487}#
+ (lambda (#{e\ 2154}#
+ #{r\ 2155}#
+ #{w\ 2156}#
+ #{s\ 2157}#
+ #{mod\ 2158}#
+ #{req\ 2159}#
+ #{rest\ 2160}#
+ #{meta\ 2161}#
+ #{body\ 2162}#)
(begin
- (let ((#{ids\ 2218}#
- (if #{rest\ 2204}#
- (append #{req\ 2203}# (list #{rest\ 2204}#))
- #{req\ 2203}#)))
+ (let ((#{ids\ 2174}#
+ (if #{rest\ 2160}#
+ (append #{req\ 2159}# (list #{rest\ 2160}#))
+ #{req\ 2159}#)))
(begin
- (let ((#{vars\ 2220}#
- (map #{gen-var\ 501}# #{ids\ 2218}#)))
+ (let ((#{vars\ 2176}#
+ (map #{gen-var\ 495}# #{ids\ 2174}#)))
(begin
- (let ((#{labels\ 2222}#
- (#{gen-labels\ 406}# #{ids\ 2218}#)))
- (#{build-simple-lambda\ 330}#
- #{s\ 2201}#
- (map syntax->datum #{req\ 2203}#)
- (if #{rest\ 2204}#
- (syntax->datum #{rest\ 2204}#)
+ (let ((#{labels\ 2178}#
+ (#{gen-labels\ 398}# #{ids\ 2174}#)))
+ (#{build-simple-lambda\ 322}#
+ #{s\ 2157}#
+ (map syntax->datum #{req\ 2159}#)
+ (if #{rest\ 2160}#
+ (syntax->datum #{rest\ 2160}#)
#f)
- #{vars\ 2220}#
- #{meta\ 2205}#
- (#{chi-body\ 481}#
- #{body\ 2206}#
- (#{source-wrap\ 459}#
- #{e\ 2198}#
- #{w\ 2200}#
- #{s\ 2201}#
- #{mod\ 2202}#)
- (#{extend-var-env\ 378}#
- #{labels\ 2222}#
- #{vars\ 2220}#
- #{r\ 2199}#)
- (#{make-binding-wrap\ 435}#
- #{ids\ 2218}#
- #{labels\ 2222}#
- #{w\ 2200}#)
- #{mod\ 2202}#))))))))))
- (#{lambda*-formals\ 495}#
- (lambda (#{orig-args\ 2225}#)
+ #{vars\ 2176}#
+ #{meta\ 2161}#
+ (#{chi-body\ 473}#
+ #{body\ 2162}#
+ (#{source-wrap\ 451}#
+ #{e\ 2154}#
+ #{w\ 2156}#
+ #{s\ 2157}#
+ #{mod\ 2158}#)
+ (#{extend-var-env\ 370}#
+ #{labels\ 2178}#
+ #{vars\ 2176}#
+ #{r\ 2155}#)
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 2174}#
+ #{labels\ 2178}#
+ #{w\ 2156}#)
+ #{mod\ 2158}#))))))))))
+ (#{lambda*-formals\ 489}#
+ (lambda (#{orig-args\ 2181}#)
(letrec*
- ((#{req\ 2228}#
- (lambda (#{args\ 2237}# #{rreq\ 2238}#)
- (let ((#{tmp\ 2241}# #{args\ 2237}#))
- (let ((#{tmp\ 2242}#
- ($sc-dispatch #{tmp\ 2241}# (quote ()))))
- (if #{tmp\ 2242}#
+ ((#{req\ 2184}#
+ (lambda (#{args\ 2193}# #{rreq\ 2194}#)
+ (let ((#{tmp\ 2197}# #{args\ 2193}#))
+ (let ((#{tmp\ 2198}#
+ ($sc-dispatch #{tmp\ 2197}# (quote ()))))
+ (if #{tmp\ 2198}#
(@apply
(lambda ()
- (#{check\ 2236}#
- (reverse #{rreq\ 2238}#)
+ (#{check\ 2192}#
+ (reverse #{rreq\ 2194}#)
'()
#f
'()))
- #{tmp\ 2242}#)
- (let ((#{tmp\ 2243}#
+ #{tmp\ 2198}#)
+ (let ((#{tmp\ 2199}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 2197}#
'(any . any))))
- (if (if #{tmp\ 2243}#
+ (if (if #{tmp\ 2199}#
(@apply
- (lambda (#{a\ 2246}# #{b\ 2247}#)
- (#{id?\ 388}# #{a\ 2246}#))
- #{tmp\ 2243}#)
+ (lambda (#{a\ 2202}# #{b\ 2203}#)
+ (#{id?\ 380}# #{a\ 2202}#))
+ #{tmp\ 2199}#)
#f)
(@apply
- (lambda (#{a\ 2250}# #{b\ 2251}#)
- (#{req\ 2228}#
- #{b\ 2251}#
- (cons #{a\ 2250}# #{rreq\ 2238}#)))
- #{tmp\ 2243}#)
- (let ((#{tmp\ 2252}#
+ (lambda (#{a\ 2206}# #{b\ 2207}#)
+ (#{req\ 2184}#
+ #{b\ 2207}#
+ (cons #{a\ 2206}# #{rreq\ 2194}#)))
+ #{tmp\ 2199}#)
+ (let ((#{tmp\ 2208}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 2197}#
'(any . any))))
- (if (if #{tmp\ 2252}#
+ (if (if #{tmp\ 2208}#
(@apply
- (lambda (#{a\ 2255}# #{b\ 2256}#)
- (eq? (syntax->datum #{a\ 2255}#)
+ (lambda (#{a\ 2211}# #{b\ 2212}#)
+ (eq? (syntax->datum #{a\ 2211}#)
#:optional))
- #{tmp\ 2252}#)
+ #{tmp\ 2208}#)
#f)
(@apply
- (lambda (#{a\ 2259}# #{b\ 2260}#)
- (#{opt\ 2230}#
- #{b\ 2260}#
- (reverse #{rreq\ 2238}#)
+ (lambda (#{a\ 2215}# #{b\ 2216}#)
+ (#{opt\ 2186}#
+ #{b\ 2216}#
+ (reverse #{rreq\ 2194}#)
'()))
- #{tmp\ 2252}#)
- (let ((#{tmp\ 2261}#
+ #{tmp\ 2208}#)
+ (let ((#{tmp\ 2217}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 2197}#
'(any . any))))
- (if (if #{tmp\ 2261}#
+ (if (if #{tmp\ 2217}#
(@apply
- (lambda (#{a\ 2264}# #{b\ 2265}#)
- (eq? (syntax->datum #{a\ 2264}#)
+ (lambda (#{a\ 2220}# #{b\ 2221}#)
+ (eq? (syntax->datum #{a\ 2220}#)
#:key))
- #{tmp\ 2261}#)
+ #{tmp\ 2217}#)
#f)
(@apply
- (lambda (#{a\ 2268}# #{b\ 2269}#)
- (#{key\ 2232}#
- #{b\ 2269}#
- (reverse #{rreq\ 2238}#)
+ (lambda (#{a\ 2224}# #{b\ 2225}#)
+ (#{key\ 2188}#
+ #{b\ 2225}#
+ (reverse #{rreq\ 2194}#)
'()
'()))
- #{tmp\ 2261}#)
- (let ((#{tmp\ 2270}#
+ #{tmp\ 2217}#)
+ (let ((#{tmp\ 2226}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 2197}#
'(any any))))
- (if (if #{tmp\ 2270}#
+ (if (if #{tmp\ 2226}#
(@apply
- (lambda (#{a\ 2273}#
- #{b\ 2274}#)
+ (lambda (#{a\ 2229}#
+ #{b\ 2230}#)
(eq? (syntax->datum
- #{a\ 2273}#)
+ #{a\ 2229}#)
#:rest))
- #{tmp\ 2270}#)
+ #{tmp\ 2226}#)
#f)
(@apply
- (lambda (#{a\ 2277}# #{b\ 2278}#)
- (#{rest\ 2234}#
- #{b\ 2278}#
- (reverse #{rreq\ 2238}#)
+ (lambda (#{a\ 2233}# #{b\ 2234}#)
+ (#{rest\ 2190}#
+ #{b\ 2234}#
+ (reverse #{rreq\ 2194}#)
'()
'()))
- #{tmp\ 2270}#)
- (let ((#{tmp\ 2279}#
- (list #{tmp\ 2241}#)))
- (if (if #{tmp\ 2279}#
+ #{tmp\ 2226}#)
+ (let ((#{tmp\ 2235}#
+ (list #{tmp\ 2197}#)))
+ (if (if #{tmp\ 2235}#
(@apply
- (lambda (#{r\ 2281}#)
- (#{id?\ 388}#
- #{r\ 2281}#))
- #{tmp\ 2279}#)
+ (lambda (#{r\ 2237}#)
+ (#{id?\ 380}#
+ #{r\ 2237}#))
+ #{tmp\ 2235}#)
#f)
(@apply
- (lambda (#{r\ 2283}#)
- (#{rest\ 2234}#
- #{r\ 2283}#
- (reverse #{rreq\ 2238}#)
+ (lambda (#{r\ 2239}#)
+ (#{rest\ 2190}#
+ #{r\ 2239}#
+ (reverse #{rreq\ 2194}#)
'()
'()))
- #{tmp\ 2279}#)
- (let ((#{else\ 2285}#
- #{tmp\ 2241}#))
+ #{tmp\ 2235}#)
+ (let ((#{else\ 2241}#
+ #{tmp\ 2197}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 2225}#
- #{args\
2237}#)))))))))))))))))
- (#{opt\ 2230}#
- (lambda (#{args\ 2286}# #{req\ 2287}# #{ropt\ 2288}#)
- (let ((#{tmp\ 2292}# #{args\ 2286}#))
- (let ((#{tmp\ 2293}#
- ($sc-dispatch #{tmp\ 2292}# (quote ()))))
- (if #{tmp\ 2293}#
+ #{orig-args\ 2181}#
+ #{args\
2193}#)))))))))))))))))
+ (#{opt\ 2186}#
+ (lambda (#{args\ 2242}# #{req\ 2243}# #{ropt\ 2244}#)
+ (let ((#{tmp\ 2248}# #{args\ 2242}#))
+ (let ((#{tmp\ 2249}#
+ ($sc-dispatch #{tmp\ 2248}# (quote ()))))
+ (if #{tmp\ 2249}#
(@apply
(lambda ()
- (#{check\ 2236}#
- #{req\ 2287}#
- (reverse #{ropt\ 2288}#)
+ (#{check\ 2192}#
+ #{req\ 2243}#
+ (reverse #{ropt\ 2244}#)
#f
'()))
- #{tmp\ 2293}#)
- (let ((#{tmp\ 2294}#
+ #{tmp\ 2249}#)
+ (let ((#{tmp\ 2250}#
($sc-dispatch
- #{tmp\ 2292}#
+ #{tmp\ 2248}#
'(any . any))))
- (if (if #{tmp\ 2294}#
+ (if (if #{tmp\ 2250}#
(@apply
- (lambda (#{a\ 2297}# #{b\ 2298}#)
- (#{id?\ 388}# #{a\ 2297}#))
- #{tmp\ 2294}#)
+ (lambda (#{a\ 2253}# #{b\ 2254}#)
+ (#{id?\ 380}# #{a\ 2253}#))
+ #{tmp\ 2250}#)
#f)
(@apply
- (lambda (#{a\ 2301}# #{b\ 2302}#)
- (#{opt\ 2230}#
- #{b\ 2302}#
- #{req\ 2287}#
- (cons (cons #{a\ 2301}#
+ (lambda (#{a\ 2257}# #{b\ 2258}#)
+ (#{opt\ 2186}#
+ #{b\ 2258}#
+ #{req\ 2243}#
+ (cons (cons #{a\ 2257}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2299" "i2300"))
+ #("i2255" "i2256"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2289"
- "i2290"
- "i2291"))
+ #("i2245"
+ "i2246"
+ "i2247"))
#(ribcage
(check rest key opt req)
((top)
@@ -7196,15 +7629,15 @@
(top)
(top)
(top))
- ("i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"))
+ ("i2191"
+ "i2189"
+ "i2187"
+ "i2185"
+ "i2183"))
#(ribcage
#(orig-args)
#((top))
- #("i2226"))
+ #("i2182"))
#(ribcage
(lambda-var-list
gen-var
@@ -7213,6 +7646,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -7479,11 +7913,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -7516,50 +7948,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -7589,20 +8021,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -7616,7 +8048,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -7631,145 +8067,145 @@
"i37"
"i35")))
(hygiene guile))))
- #{ropt\ 2288}#)))
- #{tmp\ 2294}#)
- (let ((#{tmp\ 2303}#
+ #{ropt\ 2244}#)))
+ #{tmp\ 2250}#)
+ (let ((#{tmp\ 2259}#
($sc-dispatch
- #{tmp\ 2292}#
+ #{tmp\ 2248}#
'((any any) . any))))
- (if (if #{tmp\ 2303}#
+ (if (if #{tmp\ 2259}#
(@apply
- (lambda (#{a\ 2307}#
- #{init\ 2308}#
- #{b\ 2309}#)
- (#{id?\ 388}# #{a\ 2307}#))
- #{tmp\ 2303}#)
+ (lambda (#{a\ 2263}#
+ #{init\ 2264}#
+ #{b\ 2265}#)
+ (#{id?\ 380}# #{a\ 2263}#))
+ #{tmp\ 2259}#)
#f)
(@apply
- (lambda (#{a\ 2313}#
- #{init\ 2314}#
- #{b\ 2315}#)
- (#{opt\ 2230}#
- #{b\ 2315}#
- #{req\ 2287}#
- (cons (list #{a\ 2313}# #{init\ 2314}#)
- #{ropt\ 2288}#)))
- #{tmp\ 2303}#)
- (let ((#{tmp\ 2316}#
+ (lambda (#{a\ 2269}#
+ #{init\ 2270}#
+ #{b\ 2271}#)
+ (#{opt\ 2186}#
+ #{b\ 2271}#
+ #{req\ 2243}#
+ (cons (list #{a\ 2269}# #{init\ 2270}#)
+ #{ropt\ 2244}#)))
+ #{tmp\ 2259}#)
+ (let ((#{tmp\ 2272}#
($sc-dispatch
- #{tmp\ 2292}#
+ #{tmp\ 2248}#
'(any . any))))
- (if (if #{tmp\ 2316}#
+ (if (if #{tmp\ 2272}#
(@apply
- (lambda (#{a\ 2319}# #{b\ 2320}#)
- (eq? (syntax->datum #{a\ 2319}#)
+ (lambda (#{a\ 2275}# #{b\ 2276}#)
+ (eq? (syntax->datum #{a\ 2275}#)
#:key))
- #{tmp\ 2316}#)
+ #{tmp\ 2272}#)
#f)
(@apply
- (lambda (#{a\ 2323}# #{b\ 2324}#)
- (#{key\ 2232}#
- #{b\ 2324}#
- #{req\ 2287}#
- (reverse #{ropt\ 2288}#)
+ (lambda (#{a\ 2279}# #{b\ 2280}#)
+ (#{key\ 2188}#
+ #{b\ 2280}#
+ #{req\ 2243}#
+ (reverse #{ropt\ 2244}#)
'()))
- #{tmp\ 2316}#)
- (let ((#{tmp\ 2325}#
+ #{tmp\ 2272}#)
+ (let ((#{tmp\ 2281}#
($sc-dispatch
- #{tmp\ 2292}#
+ #{tmp\ 2248}#
'(any any))))
- (if (if #{tmp\ 2325}#
+ (if (if #{tmp\ 2281}#
(@apply
- (lambda (#{a\ 2328}#
- #{b\ 2329}#)
+ (lambda (#{a\ 2284}#
+ #{b\ 2285}#)
(eq? (syntax->datum
- #{a\ 2328}#)
+ #{a\ 2284}#)
#:rest))
- #{tmp\ 2325}#)
+ #{tmp\ 2281}#)
#f)
(@apply
- (lambda (#{a\ 2332}# #{b\ 2333}#)
- (#{rest\ 2234}#
- #{b\ 2333}#
- #{req\ 2287}#
- (reverse #{ropt\ 2288}#)
+ (lambda (#{a\ 2288}# #{b\ 2289}#)
+ (#{rest\ 2190}#
+ #{b\ 2289}#
+ #{req\ 2243}#
+ (reverse #{ropt\ 2244}#)
'()))
- #{tmp\ 2325}#)
- (let ((#{tmp\ 2334}#
- (list #{tmp\ 2292}#)))
- (if (if #{tmp\ 2334}#
+ #{tmp\ 2281}#)
+ (let ((#{tmp\ 2290}#
+ (list #{tmp\ 2248}#)))
+ (if (if #{tmp\ 2290}#
(@apply
- (lambda (#{r\ 2336}#)
- (#{id?\ 388}#
- #{r\ 2336}#))
- #{tmp\ 2334}#)
+ (lambda (#{r\ 2292}#)
+ (#{id?\ 380}#
+ #{r\ 2292}#))
+ #{tmp\ 2290}#)
#f)
(@apply
- (lambda (#{r\ 2338}#)
- (#{rest\ 2234}#
- #{r\ 2338}#
- #{req\ 2287}#
- (reverse #{ropt\ 2288}#)
+ (lambda (#{r\ 2294}#)
+ (#{rest\ 2190}#
+ #{r\ 2294}#
+ #{req\ 2243}#
+ (reverse #{ropt\ 2244}#)
'()))
- #{tmp\ 2334}#)
- (let ((#{else\ 2340}#
- #{tmp\ 2292}#))
+ #{tmp\ 2290}#)
+ (let ((#{else\ 2296}#
+ #{tmp\ 2248}#))
(syntax-violation
'lambda*
"invalid optional argument
list"
- #{orig-args\ 2225}#
- #{args\
2286}#)))))))))))))))))
- (#{key\ 2232}#
- (lambda (#{args\ 2341}#
- #{req\ 2342}#
- #{opt\ 2343}#
- #{rkey\ 2344}#)
- (let ((#{tmp\ 2349}# #{args\ 2341}#))
- (let ((#{tmp\ 2350}#
- ($sc-dispatch #{tmp\ 2349}# (quote ()))))
- (if #{tmp\ 2350}#
+ #{orig-args\ 2181}#
+ #{args\
2242}#)))))))))))))))))
+ (#{key\ 2188}#
+ (lambda (#{args\ 2297}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
+ #{rkey\ 2300}#)
+ (let ((#{tmp\ 2305}# #{args\ 2297}#))
+ (let ((#{tmp\ 2306}#
+ ($sc-dispatch #{tmp\ 2305}# (quote ()))))
+ (if #{tmp\ 2306}#
(@apply
(lambda ()
- (#{check\ 2236}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (#{check\ 2192}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
#f
- (cons #f (reverse #{rkey\ 2344}#))))
- #{tmp\ 2350}#)
- (let ((#{tmp\ 2351}#
+ (cons #f (reverse #{rkey\ 2300}#))))
+ #{tmp\ 2306}#)
+ (let ((#{tmp\ 2307}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 2305}#
'(any . any))))
- (if (if #{tmp\ 2351}#
+ (if (if #{tmp\ 2307}#
(@apply
- (lambda (#{a\ 2354}# #{b\ 2355}#)
- (#{id?\ 388}# #{a\ 2354}#))
- #{tmp\ 2351}#)
+ (lambda (#{a\ 2310}# #{b\ 2311}#)
+ (#{id?\ 380}# #{a\ 2310}#))
+ #{tmp\ 2307}#)
#f)
(@apply
- (lambda (#{a\ 2358}# #{b\ 2359}#)
- (let ((#{tmp\ 2361}#
+ (lambda (#{a\ 2314}# #{b\ 2315}#)
+ (let ((#{tmp\ 2317}#
(symbol->keyword
- (syntax->datum #{a\ 2358}#))))
- (let ((#{k\ 2363}# #{tmp\ 2361}#))
- (#{key\ 2232}#
- #{b\ 2359}#
- #{req\ 2342}#
- #{opt\ 2343}#
- (cons (cons #{k\ 2363}#
- (cons #{a\ 2358}#
+ (syntax->datum #{a\ 2314}#))))
+ (let ((#{k\ 2319}# #{tmp\ 2317}#))
+ (#{key\ 2188}#
+ #{b\ 2315}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
+ (cons (cons #{k\ 2319}#
+ (cons #{a\ 2314}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i2362"))
+ #("i2318"))
#(ribcage
#(a b)
#((top) (top))
- #("i2356"
- "i2357"))
+ #("i2312"
+ "i2313"))
#(ribcage
()
()
@@ -7783,10 +8219,10 @@
(top)
(top)
(top))
- #("i2345"
- "i2346"
- "i2347"
- "i2348"))
+ #("i2301"
+ "i2302"
+ "i2303"
+ "i2304"))
#(ribcage
(check rest
key
@@ -7797,15 +8233,15 @@
(top)
(top)
(top))
- ("i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"))
+ ("i2191"
+ "i2189"
+ "i2187"
+ "i2185"
+ "i2183"))
#(ribcage
#(orig-args)
#((top))
- #("i2226"))
+ #("i2182"))
#(ribcage
(lambda-var-list
gen-var
@@ -7814,6 +8250,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -8080,11 +8517,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -8117,50 +8552,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -8190,20 +8625,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -8217,7 +8652,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -8233,2083 +8672,2062 @@
"i35")))
(hygiene
guile)))))
- #{rkey\ 2344}#)))))
- #{tmp\ 2351}#)
- (let ((#{tmp\ 2364}#
+ #{rkey\ 2300}#)))))
+ #{tmp\ 2307}#)
+ (let ((#{tmp\ 2320}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 2305}#
'((any any) . any))))
- (if (if #{tmp\ 2364}#
+ (if (if #{tmp\ 2320}#
(@apply
- (lambda (#{a\ 2368}#
- #{init\ 2369}#
- #{b\ 2370}#)
- (#{id?\ 388}# #{a\ 2368}#))
- #{tmp\ 2364}#)
+ (lambda (#{a\ 2324}#
+ #{init\ 2325}#
+ #{b\ 2326}#)
+ (#{id?\ 380}# #{a\ 2324}#))
+ #{tmp\ 2320}#)
#f)
(@apply
- (lambda (#{a\ 2374}#
- #{init\ 2375}#
- #{b\ 2376}#)
- (let ((#{tmp\ 2378}#
+ (lambda (#{a\ 2330}#
+ #{init\ 2331}#
+ #{b\ 2332}#)
+ (let ((#{tmp\ 2334}#
(symbol->keyword
- (syntax->datum #{a\ 2374}#))))
- (let ((#{k\ 2380}# #{tmp\ 2378}#))
- (#{key\ 2232}#
- #{b\ 2376}#
- #{req\ 2342}#
- #{opt\ 2343}#
- (cons (list #{k\ 2380}#
- #{a\ 2374}#
- #{init\ 2375}#)
- #{rkey\ 2344}#)))))
- #{tmp\ 2364}#)
- (let ((#{tmp\ 2381}#
+ (syntax->datum #{a\ 2330}#))))
+ (let ((#{k\ 2336}# #{tmp\ 2334}#))
+ (#{key\ 2188}#
+ #{b\ 2332}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
+ (cons (list #{k\ 2336}#
+ #{a\ 2330}#
+ #{init\ 2331}#)
+ #{rkey\ 2300}#)))))
+ #{tmp\ 2320}#)
+ (let ((#{tmp\ 2337}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 2305}#
'((any any any) . any))))
- (if (if #{tmp\ 2381}#
+ (if (if #{tmp\ 2337}#
(@apply
- (lambda (#{a\ 2386}#
- #{init\ 2387}#
- #{k\ 2388}#
- #{b\ 2389}#)
- (if (#{id?\ 388}# #{a\ 2386}#)
+ (lambda (#{a\ 2342}#
+ #{init\ 2343}#
+ #{k\ 2344}#
+ #{b\ 2345}#)
+ (if (#{id?\ 380}# #{a\ 2342}#)
(keyword?
- (syntax->datum #{k\ 2388}#))
+ (syntax->datum #{k\ 2344}#))
#f))
- #{tmp\ 2381}#)
+ #{tmp\ 2337}#)
#f)
(@apply
- (lambda (#{a\ 2396}#
- #{init\ 2397}#
- #{k\ 2398}#
- #{b\ 2399}#)
- (#{key\ 2232}#
- #{b\ 2399}#
- #{req\ 2342}#
- #{opt\ 2343}#
- (cons (list #{k\ 2398}#
- #{a\ 2396}#
- #{init\ 2397}#)
- #{rkey\ 2344}#)))
- #{tmp\ 2381}#)
- (let ((#{tmp\ 2400}#
+ (lambda (#{a\ 2352}#
+ #{init\ 2353}#
+ #{k\ 2354}#
+ #{b\ 2355}#)
+ (#{key\ 2188}#
+ #{b\ 2355}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
+ (cons (list #{k\ 2354}#
+ #{a\ 2352}#
+ #{init\ 2353}#)
+ #{rkey\ 2300}#)))
+ #{tmp\ 2337}#)
+ (let ((#{tmp\ 2356}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 2305}#
'(any))))
- (if (if #{tmp\ 2400}#
+ (if (if #{tmp\ 2356}#
(@apply
- (lambda (#{aok\ 2402}#)
+ (lambda (#{aok\ 2358}#)
(eq? (syntax->datum
- #{aok\ 2402}#)
+ #{aok\ 2358}#)
#:allow-other-keys))
- #{tmp\ 2400}#)
+ #{tmp\ 2356}#)
#f)
(@apply
- (lambda (#{aok\ 2404}#)
- (#{check\ 2236}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{aok\ 2360}#)
+ (#{check\ 2192}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
#f
(cons #t
(reverse
- #{rkey\ 2344}#))))
- #{tmp\ 2400}#)
- (let ((#{tmp\ 2405}#
+ #{rkey\ 2300}#))))
+ #{tmp\ 2356}#)
+ (let ((#{tmp\ 2361}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 2305}#
'(any any any))))
- (if (if #{tmp\ 2405}#
+ (if (if #{tmp\ 2361}#
(@apply
- (lambda (#{aok\ 2409}#
- #{a\ 2410}#
- #{b\ 2411}#)
+ (lambda (#{aok\ 2365}#
+ #{a\ 2366}#
+ #{b\ 2367}#)
(if (eq? (syntax->datum
- #{aok\ 2409}#)
+ #{aok\ 2365}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 2410}#)
+ #{a\ 2366}#)
#:rest)
#f))
- #{tmp\ 2405}#)
+ #{tmp\ 2361}#)
#f)
(@apply
- (lambda (#{aok\ 2417}#
- #{a\ 2418}#
- #{b\ 2419}#)
- (#{rest\ 2234}#
- #{b\ 2419}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{aok\ 2373}#
+ #{a\ 2374}#
+ #{b\ 2375}#)
+ (#{rest\ 2190}#
+ #{b\ 2375}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
(cons #t
(reverse
- #{rkey\ 2344}#))))
- #{tmp\ 2405}#)
- (let ((#{tmp\ 2420}#
+ #{rkey\ 2300}#))))
+ #{tmp\ 2361}#)
+ (let ((#{tmp\ 2376}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 2305}#
'(any . any))))
- (if (if #{tmp\ 2420}#
+ (if (if #{tmp\ 2376}#
(@apply
- (lambda (#{aok\ 2423}#
- #{r\ 2424}#)
+ (lambda (#{aok\ 2379}#
+ #{r\ 2380}#)
(if (eq?
(syntax->datum
- #{aok\
2423}#)
+ #{aok\
2379}#)
#:allow-other-keys)
- (#{id?\ 388}#
- #{r\ 2424}#)
+ (#{id?\ 380}#
+ #{r\ 2380}#)
#f))
- #{tmp\ 2420}#)
+ #{tmp\ 2376}#)
#f)
(@apply
- (lambda (#{aok\ 2429}#
- #{r\ 2430}#)
- (#{rest\ 2234}#
- #{r\ 2430}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{aok\ 2385}#
+ #{r\ 2386}#)
+ (#{rest\ 2190}#
+ #{r\ 2386}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
(cons #t
(reverse
- #{rkey\
2344}#))))
- #{tmp\ 2420}#)
- (let ((#{tmp\ 2431}#
+ #{rkey\
2300}#))))
+ #{tmp\ 2376}#)
+ (let ((#{tmp\ 2387}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 2305}#
'(any any))))
- (if (if #{tmp\ 2431}#
+ (if (if #{tmp\ 2387}#
(@apply
- (lambda (#{a\
2434}#
- #{b\
2435}#)
+ (lambda (#{a\
2390}#
+ #{b\
2391}#)
(eq?
(syntax->datum
- #{a\
2434}#)
+ #{a\
2390}#)
#:rest))
- #{tmp\ 2431}#)
+ #{tmp\ 2387}#)
#f)
(@apply
- (lambda (#{a\ 2438}#
- #{b\ 2439}#)
- (#{rest\ 2234}#
- #{b\ 2439}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{a\ 2394}#
+ #{b\ 2395}#)
+ (#{rest\ 2190}#
+ #{b\ 2395}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
(cons #f
(reverse
- #{rkey\
2344}#))))
- #{tmp\ 2431}#)
- (let ((#{tmp\ 2440}#
- (list #{tmp\
2349}#)))
- (if (if #{tmp\ 2440}#
+ #{rkey\
2300}#))))
+ #{tmp\ 2387}#)
+ (let ((#{tmp\ 2396}#
+ (list #{tmp\
2305}#)))
+ (if (if #{tmp\ 2396}#
(@apply
- (lambda (#{r\
2442}#)
- (#{id?\ 388}#
- #{r\
2442}#))
- #{tmp\ 2440}#)
+ (lambda (#{r\
2398}#)
+ (#{id?\ 380}#
+ #{r\
2398}#))
+ #{tmp\ 2396}#)
#f)
(@apply
- (lambda (#{r\
2444}#)
- (#{rest\ 2234}#
- #{r\ 2444}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{r\
2400}#)
+ (#{rest\ 2190}#
+ #{r\ 2400}#
+ #{req\ 2298}#
+ #{opt\ 2299}#
(cons #f
(reverse
-
#{rkey\ 2344}#))))
- #{tmp\ 2440}#)
- (let ((#{else\ 2446}#
- #{tmp\
2349}#))
+
#{rkey\ 2300}#))))
+ #{tmp\ 2396}#)
+ (let ((#{else\ 2402}#
+ #{tmp\
2305}#))
(syntax-violation
'lambda*
"invalid keyword
argument list"
- #{orig-args\
2225}#
- #{args\
2341}#)))))))))))))))))))))))
- (#{rest\ 2234}#
- (lambda (#{args\ 2447}#
- #{req\ 2448}#
- #{opt\ 2449}#
- #{kw\ 2450}#)
- (let ((#{tmp\ 2455}# #{args\ 2447}#))
- (let ((#{tmp\ 2456}# (list #{tmp\ 2455}#)))
- (if (if #{tmp\ 2456}#
+ #{orig-args\
2181}#
+ #{args\
2297}#)))))))))))))))))))))))
+ (#{rest\ 2190}#
+ (lambda (#{args\ 2403}#
+ #{req\ 2404}#
+ #{opt\ 2405}#
+ #{kw\ 2406}#)
+ (let ((#{tmp\ 2411}# #{args\ 2403}#))
+ (let ((#{tmp\ 2412}# (list #{tmp\ 2411}#)))
+ (if (if #{tmp\ 2412}#
(@apply
- (lambda (#{r\ 2458}#)
- (#{id?\ 388}# #{r\ 2458}#))
- #{tmp\ 2456}#)
+ (lambda (#{r\ 2414}#)
+ (#{id?\ 380}# #{r\ 2414}#))
+ #{tmp\ 2412}#)
#f)
(@apply
- (lambda (#{r\ 2460}#)
- (#{check\ 2236}#
- #{req\ 2448}#
- #{opt\ 2449}#
- #{r\ 2460}#
- #{kw\ 2450}#))
- #{tmp\ 2456}#)
- (let ((#{else\ 2462}# #{tmp\ 2455}#))
+ (lambda (#{r\ 2416}#)
+ (#{check\ 2192}#
+ #{req\ 2404}#
+ #{opt\ 2405}#
+ #{r\ 2416}#
+ #{kw\ 2406}#))
+ #{tmp\ 2412}#)
+ (let ((#{else\ 2418}# #{tmp\ 2411}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 2225}#
- #{args\ 2447}#)))))))
- (#{check\ 2236}#
- (lambda (#{req\ 2463}#
- #{opt\ 2464}#
- #{rest\ 2465}#
- #{kw\ 2466}#)
- (if (#{distinct-bound-ids?\ 453}#
+ #{orig-args\ 2181}#
+ #{args\ 2403}#)))))))
+ (#{check\ 2192}#
+ (lambda (#{req\ 2419}#
+ #{opt\ 2420}#
+ #{rest\ 2421}#
+ #{kw\ 2422}#)
+ (if (#{distinct-bound-ids?\ 445}#
(append
- #{req\ 2463}#
- (map car #{opt\ 2464}#)
- (if #{rest\ 2465}#
- (list #{rest\ 2465}#)
+ #{req\ 2419}#
+ (map car #{opt\ 2420}#)
+ (if #{rest\ 2421}#
+ (list #{rest\ 2421}#)
'())
- (if (pair? #{kw\ 2466}#)
- (map cadr (cdr #{kw\ 2466}#))
+ (if (pair? #{kw\ 2422}#)
+ (map cadr (cdr #{kw\ 2422}#))
'())))
(values
- #{req\ 2463}#
- #{opt\ 2464}#
- #{rest\ 2465}#
- #{kw\ 2466}#)
+ #{req\ 2419}#
+ #{opt\ 2420}#
+ #{rest\ 2421}#
+ #{kw\ 2422}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 2225}#)))))
+ #{orig-args\ 2181}#)))))
(begin
- (#{req\ 2228}# #{orig-args\ 2225}# (quote ()))))))
- (#{chi-lambda-case\ 497}#
- (lambda (#{e\ 2474}#
- #{r\ 2475}#
- #{w\ 2476}#
- #{s\ 2477}#
- #{mod\ 2478}#
- #{get-formals\ 2479}#
- #{clauses\ 2480}#)
+ (#{req\ 2184}# #{orig-args\ 2181}# (quote ()))))))
+ (#{chi-lambda-case\ 491}#
+ (lambda (#{e\ 2430}#
+ #{r\ 2431}#
+ #{w\ 2432}#
+ #{s\ 2433}#
+ #{mod\ 2434}#
+ #{get-formals\ 2435}#
+ #{clauses\ 2436}#)
(letrec*
- ((#{expand-req\ 2489}#
- (lambda (#{req\ 2496}#
- #{opt\ 2497}#
- #{rest\ 2498}#
- #{kw\ 2499}#
- #{body\ 2500}#)
+ ((#{expand-req\ 2445}#
+ (lambda (#{req\ 2452}#
+ #{opt\ 2453}#
+ #{rest\ 2454}#
+ #{kw\ 2455}#
+ #{body\ 2456}#)
(begin
- (let ((#{vars\ 2508}#
- (map #{gen-var\ 501}# #{req\ 2496}#))
- (#{labels\ 2509}#
- (#{gen-labels\ 406}# #{req\ 2496}#)))
+ (let ((#{vars\ 2464}#
+ (map #{gen-var\ 495}# #{req\ 2452}#))
+ (#{labels\ 2465}#
+ (#{gen-labels\ 398}# #{req\ 2452}#)))
(begin
- (let ((#{r*\ 2512}#
- (#{extend-var-env\ 378}#
- #{labels\ 2509}#
- #{vars\ 2508}#
- #{r\ 2475}#))
- (#{w*\ 2513}#
- (#{make-binding-wrap\ 435}#
- #{req\ 2496}#
- #{labels\ 2509}#
- #{w\ 2476}#)))
- (#{expand-opt\ 2491}#
- (map syntax->datum #{req\ 2496}#)
- #{opt\ 2497}#
- #{rest\ 2498}#
- #{kw\ 2499}#
- #{body\ 2500}#
- (reverse #{vars\ 2508}#)
- #{r*\ 2512}#
- #{w*\ 2513}#
+ (let ((#{r*\ 2468}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 2465}#
+ #{vars\ 2464}#
+ #{r\ 2431}#))
+ (#{w*\ 2469}#
+ (#{make-binding-wrap\ 427}#
+ #{req\ 2452}#
+ #{labels\ 2465}#
+ #{w\ 2432}#)))
+ (#{expand-opt\ 2447}#
+ (map syntax->datum #{req\ 2452}#)
+ #{opt\ 2453}#
+ #{rest\ 2454}#
+ #{kw\ 2455}#
+ #{body\ 2456}#
+ (reverse #{vars\ 2464}#)
+ #{r*\ 2468}#
+ #{w*\ 2469}#
'()
'())))))))
- (#{expand-opt\ 2491}#
- (lambda (#{req\ 2514}#
- #{opt\ 2515}#
- #{rest\ 2516}#
- #{kw\ 2517}#
- #{body\ 2518}#
- #{vars\ 2519}#
- #{r*\ 2520}#
- #{w*\ 2521}#
- #{out\ 2522}#
- #{inits\ 2523}#)
- (if (pair? #{opt\ 2515}#)
- (let ((#{tmp\ 2536}# (car #{opt\ 2515}#)))
- (let ((#{tmp\ 2537}#
+ (#{expand-opt\ 2447}#
+ (lambda (#{req\ 2470}#
+ #{opt\ 2471}#
+ #{rest\ 2472}#
+ #{kw\ 2473}#
+ #{body\ 2474}#
+ #{vars\ 2475}#
+ #{r*\ 2476}#
+ #{w*\ 2477}#
+ #{out\ 2478}#
+ #{inits\ 2479}#)
+ (if (pair? #{opt\ 2471}#)
+ (let ((#{tmp\ 2492}# (car #{opt\ 2471}#)))
+ (let ((#{tmp\ 2493}#
($sc-dispatch
- #{tmp\ 2536}#
+ #{tmp\ 2492}#
'(any any))))
- (if #{tmp\ 2537}#
+ (if #{tmp\ 2493}#
(@apply
- (lambda (#{id\ 2540}# #{i\ 2541}#)
+ (lambda (#{id\ 2496}# #{i\ 2497}#)
(begin
- (let ((#{v\ 2544}#
- (#{gen-var\ 501}# #{id\ 2540}#)))
+ (let ((#{v\ 2500}#
+ (#{gen-var\ 495}# #{id\ 2496}#)))
(begin
- (let ((#{l\ 2546}#
- (#{gen-labels\ 406}#
- (list #{v\ 2544}#))))
+ (let ((#{l\ 2502}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2500}#))))
(begin
- (let ((#{r**\ 2548}#
- (#{extend-var-env\ 378}#
- #{l\ 2546}#
- (list #{v\ 2544}#)
- #{r*\ 2520}#)))
+ (let ((#{r**\ 2504}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2502}#
+ (list #{v\ 2500}#)
+ #{r*\ 2476}#)))
(begin
- (let ((#{w**\ 2550}#
- (#{make-binding-wrap\
435}#
- (list #{id\ 2540}#)
- #{l\ 2546}#
- #{w*\ 2521}#)))
- (#{expand-opt\ 2491}#
- #{req\ 2514}#
- (cdr #{opt\ 2515}#)
- #{rest\ 2516}#
- #{kw\ 2517}#
- #{body\ 2518}#
- (cons #{v\ 2544}#
- #{vars\ 2519}#)
- #{r**\ 2548}#
- #{w**\ 2550}#
+ (let ((#{w**\ 2506}#
+ (#{make-binding-wrap\
427}#
+ (list #{id\ 2496}#)
+ #{l\ 2502}#
+ #{w*\ 2477}#)))
+ (#{expand-opt\ 2447}#
+ #{req\ 2470}#
+ (cdr #{opt\ 2471}#)
+ #{rest\ 2472}#
+ #{kw\ 2473}#
+ #{body\ 2474}#
+ (cons #{v\ 2500}#
+ #{vars\ 2475}#)
+ #{r**\ 2504}#
+ #{w**\ 2506}#
(cons (syntax->datum
- #{id\ 2540}#)
- #{out\ 2522}#)
- (cons (#{chi\ 473}#
- #{i\ 2541}#
- #{r*\ 2520}#
- #{w*\ 2521}#
- #{mod\ 2478}#)
- #{inits\
2523}#)))))))))))
- #{tmp\ 2537}#)
+ #{id\ 2496}#)
+ #{out\ 2478}#)
+ (cons (#{chi\ 465}#
+ #{i\ 2497}#
+ #{r*\ 2476}#
+ #{w*\ 2477}#
+ #{mod\ 2434}#)
+ #{inits\
2479}#)))))))))))
+ #{tmp\ 2493}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2536}#))))
- (if #{rest\ 2516}#
+ #{tmp\ 2492}#))))
+ (if #{rest\ 2472}#
(begin
- (let ((#{v\ 2555}#
- (#{gen-var\ 501}# #{rest\ 2516}#)))
+ (let ((#{v\ 2511}#
+ (#{gen-var\ 495}# #{rest\ 2472}#)))
(begin
- (let ((#{l\ 2557}#
- (#{gen-labels\ 406}#
- (list #{v\ 2555}#))))
+ (let ((#{l\ 2513}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2511}#))))
(begin
- (let ((#{r*\ 2559}#
- (#{extend-var-env\ 378}#
- #{l\ 2557}#
- (list #{v\ 2555}#)
- #{r*\ 2520}#)))
+ (let ((#{r*\ 2515}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2513}#
+ (list #{v\ 2511}#)
+ #{r*\ 2476}#)))
(begin
- (let ((#{w*\ 2561}#
- (#{make-binding-wrap\ 435}#
- (list #{rest\ 2516}#)
- #{l\ 2557}#
- #{w*\ 2521}#)))
- (#{expand-kw\ 2493}#
- #{req\ 2514}#
- (if (pair? #{out\ 2522}#)
- (reverse #{out\ 2522}#)
+ (let ((#{w*\ 2517}#
+ (#{make-binding-wrap\ 427}#
+ (list #{rest\ 2472}#)
+ #{l\ 2513}#
+ #{w*\ 2477}#)))
+ (#{expand-kw\ 2449}#
+ #{req\ 2470}#
+ (if (pair? #{out\ 2478}#)
+ (reverse #{out\ 2478}#)
#f)
- (syntax->datum #{rest\ 2516}#)
- (if (pair? #{kw\ 2517}#)
- (cdr #{kw\ 2517}#)
- #{kw\ 2517}#)
- #{body\ 2518}#
- (cons #{v\ 2555}# #{vars\ 2519}#)
- #{r*\ 2559}#
- #{w*\ 2561}#
- (if (pair? #{kw\ 2517}#)
- (car #{kw\ 2517}#)
+ (syntax->datum #{rest\ 2472}#)
+ (if (pair? #{kw\ 2473}#)
+ (cdr #{kw\ 2473}#)
+ #{kw\ 2473}#)
+ #{body\ 2474}#
+ (cons #{v\ 2511}# #{vars\ 2475}#)
+ #{r*\ 2515}#
+ #{w*\ 2517}#
+ (if (pair? #{kw\ 2473}#)
+ (car #{kw\ 2473}#)
#f)
'()
- #{inits\ 2523}#)))))))))
- (#{expand-kw\ 2493}#
- #{req\ 2514}#
- (if (pair? #{out\ 2522}#)
- (reverse #{out\ 2522}#)
+ #{inits\ 2479}#)))))))))
+ (#{expand-kw\ 2449}#
+ #{req\ 2470}#
+ (if (pair? #{out\ 2478}#)
+ (reverse #{out\ 2478}#)
#f)
#f
- (if (pair? #{kw\ 2517}#)
- (cdr #{kw\ 2517}#)
- #{kw\ 2517}#)
- #{body\ 2518}#
- #{vars\ 2519}#
- #{r*\ 2520}#
- #{w*\ 2521}#
- (if (pair? #{kw\ 2517}#) (car #{kw\ 2517}#) #f)
+ (if (pair? #{kw\ 2473}#)
+ (cdr #{kw\ 2473}#)
+ #{kw\ 2473}#)
+ #{body\ 2474}#
+ #{vars\ 2475}#
+ #{r*\ 2476}#
+ #{w*\ 2477}#
+ (if (pair? #{kw\ 2473}#) (car #{kw\ 2473}#) #f)
'()
- #{inits\ 2523}#)))))
- (#{expand-kw\ 2493}#
- (lambda (#{req\ 2563}#
- #{opt\ 2564}#
- #{rest\ 2565}#
- #{kw\ 2566}#
- #{body\ 2567}#
- #{vars\ 2568}#
- #{r*\ 2569}#
- #{w*\ 2570}#
- #{aok\ 2571}#
- #{out\ 2572}#
- #{inits\ 2573}#)
- (if (pair? #{kw\ 2566}#)
- (let ((#{tmp\ 2587}# (car #{kw\ 2566}#)))
- (let ((#{tmp\ 2588}#
+ #{inits\ 2479}#)))))
+ (#{expand-kw\ 2449}#
+ (lambda (#{req\ 2519}#
+ #{opt\ 2520}#
+ #{rest\ 2521}#
+ #{kw\ 2522}#
+ #{body\ 2523}#
+ #{vars\ 2524}#
+ #{r*\ 2525}#
+ #{w*\ 2526}#
+ #{aok\ 2527}#
+ #{out\ 2528}#
+ #{inits\ 2529}#)
+ (if (pair? #{kw\ 2522}#)
+ (let ((#{tmp\ 2543}# (car #{kw\ 2522}#)))
+ (let ((#{tmp\ 2544}#
($sc-dispatch
- #{tmp\ 2587}#
+ #{tmp\ 2543}#
'(any any any))))
- (if #{tmp\ 2588}#
+ (if #{tmp\ 2544}#
(@apply
- (lambda (#{k\ 2592}# #{id\ 2593}# #{i\ 2594}#)
+ (lambda (#{k\ 2548}# #{id\ 2549}# #{i\ 2550}#)
(begin
- (let ((#{v\ 2597}#
- (#{gen-var\ 501}# #{id\ 2593}#)))
+ (let ((#{v\ 2553}#
+ (#{gen-var\ 495}# #{id\ 2549}#)))
(begin
- (let ((#{l\ 2599}#
- (#{gen-labels\ 406}#
- (list #{v\ 2597}#))))
+ (let ((#{l\ 2555}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2553}#))))
(begin
- (let ((#{r**\ 2601}#
- (#{extend-var-env\ 378}#
- #{l\ 2599}#
- (list #{v\ 2597}#)
- #{r*\ 2569}#)))
+ (let ((#{r**\ 2557}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2555}#
+ (list #{v\ 2553}#)
+ #{r*\ 2525}#)))
(begin
- (let ((#{w**\ 2603}#
- (#{make-binding-wrap\
435}#
- (list #{id\ 2593}#)
- #{l\ 2599}#
- #{w*\ 2570}#)))
- (#{expand-kw\ 2493}#
- #{req\ 2563}#
- #{opt\ 2564}#
- #{rest\ 2565}#
- (cdr #{kw\ 2566}#)
- #{body\ 2567}#
- (cons #{v\ 2597}#
- #{vars\ 2568}#)
- #{r**\ 2601}#
- #{w**\ 2603}#
- #{aok\ 2571}#
+ (let ((#{w**\ 2559}#
+ (#{make-binding-wrap\
427}#
+ (list #{id\ 2549}#)
+ #{l\ 2555}#
+ #{w*\ 2526}#)))
+ (#{expand-kw\ 2449}#
+ #{req\ 2519}#
+ #{opt\ 2520}#
+ #{rest\ 2521}#
+ (cdr #{kw\ 2522}#)
+ #{body\ 2523}#
+ (cons #{v\ 2553}#
+ #{vars\ 2524}#)
+ #{r**\ 2557}#
+ #{w**\ 2559}#
+ #{aok\ 2527}#
(cons (list (syntax->datum
- #{k\ 2592}#)
+ #{k\ 2548}#)
(syntax->datum
- #{id\ 2593}#)
- #{v\ 2597}#)
- #{out\ 2572}#)
- (cons (#{chi\ 473}#
- #{i\ 2594}#
- #{r*\ 2569}#
- #{w*\ 2570}#
- #{mod\ 2478}#)
- #{inits\
2573}#)))))))))))
- #{tmp\ 2588}#)
+ #{id\ 2549}#)
+ #{v\ 2553}#)
+ #{out\ 2528}#)
+ (cons (#{chi\ 465}#
+ #{i\ 2550}#
+ #{r*\ 2525}#
+ #{w*\ 2526}#
+ #{mod\ 2434}#)
+ #{inits\
2529}#)))))))))))
+ #{tmp\ 2544}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2587}#))))
- (#{expand-body\ 2495}#
- #{req\ 2563}#
- #{opt\ 2564}#
- #{rest\ 2565}#
+ #{tmp\ 2543}#))))
+ (#{expand-body\ 2451}#
+ #{req\ 2519}#
+ #{opt\ 2520}#
+ #{rest\ 2521}#
(if (begin
- (let ((#{t\ 2607}# #{aok\ 2571}#))
- (if #{t\ 2607}#
- #{t\ 2607}#
- (pair? #{out\ 2572}#))))
- (cons #{aok\ 2571}# (reverse #{out\ 2572}#))
+ (let ((#{t\ 2563}# #{aok\ 2527}#))
+ (if #{t\ 2563}#
+ #{t\ 2563}#
+ (pair? #{out\ 2528}#))))
+ (cons #{aok\ 2527}# (reverse #{out\ 2528}#))
#f)
- #{body\ 2567}#
- (reverse #{vars\ 2568}#)
- #{r*\ 2569}#
- #{w*\ 2570}#
- (reverse #{inits\ 2573}#)
+ #{body\ 2523}#
+ (reverse #{vars\ 2524}#)
+ #{r*\ 2525}#
+ #{w*\ 2526}#
+ (reverse #{inits\ 2529}#)
'()))))
- (#{expand-body\ 2495}#
- (lambda (#{req\ 2609}#
- #{opt\ 2610}#
- #{rest\ 2611}#
- #{kw\ 2612}#
- #{body\ 2613}#
- #{vars\ 2614}#
- #{r*\ 2615}#
- #{w*\ 2616}#
- #{inits\ 2617}#
- #{meta\ 2618}#)
- (let ((#{tmp\ 2629}# #{body\ 2613}#))
- (let ((#{tmp\ 2630}#
+ (#{expand-body\ 2451}#
+ (lambda (#{req\ 2565}#
+ #{opt\ 2566}#
+ #{rest\ 2567}#
+ #{kw\ 2568}#
+ #{body\ 2569}#
+ #{vars\ 2570}#
+ #{r*\ 2571}#
+ #{w*\ 2572}#
+ #{inits\ 2573}#
+ #{meta\ 2574}#)
+ (let ((#{tmp\ 2585}# #{body\ 2569}#))
+ (let ((#{tmp\ 2586}#
($sc-dispatch
- #{tmp\ 2629}#
+ #{tmp\ 2585}#
'(any any . each-any))))
- (if (if #{tmp\ 2630}#
+ (if (if #{tmp\ 2586}#
(@apply
- (lambda (#{docstring\ 2634}#
- #{e1\ 2635}#
- #{e2\ 2636}#)
+ (lambda (#{docstring\ 2590}#
+ #{e1\ 2591}#
+ #{e2\ 2592}#)
(string?
- (syntax->datum #{docstring\ 2634}#)))
- #{tmp\ 2630}#)
+ (syntax->datum #{docstring\ 2590}#)))
+ #{tmp\ 2586}#)
#f)
(@apply
- (lambda (#{docstring\ 2640}#
- #{e1\ 2641}#
- #{e2\ 2642}#)
- (#{expand-body\ 2495}#
- #{req\ 2609}#
- #{opt\ 2610}#
- #{rest\ 2611}#
- #{kw\ 2612}#
- (cons #{e1\ 2641}# #{e2\ 2642}#)
- #{vars\ 2614}#
- #{r*\ 2615}#
- #{w*\ 2616}#
- #{inits\ 2617}#
+ (lambda (#{docstring\ 2596}#
+ #{e1\ 2597}#
+ #{e2\ 2598}#)
+ (#{expand-body\ 2451}#
+ #{req\ 2565}#
+ #{opt\ 2566}#
+ #{rest\ 2567}#
+ #{kw\ 2568}#
+ (cons #{e1\ 2597}# #{e2\ 2598}#)
+ #{vars\ 2570}#
+ #{r*\ 2571}#
+ #{w*\ 2572}#
+ #{inits\ 2573}#
(append
- #{meta\ 2618}#
+ #{meta\ 2574}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 2640}#))))))
- #{tmp\ 2630}#)
- (let ((#{tmp\ 2645}#
+ #{docstring\ 2596}#))))))
+ #{tmp\ 2586}#)
+ (let ((#{tmp\ 2601}#
($sc-dispatch
- #{tmp\ 2629}#
+ #{tmp\ 2585}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 2645}#
+ (if #{tmp\ 2601}#
(@apply
- (lambda (#{k\ 2650}#
- #{v\ 2651}#
- #{e1\ 2652}#
- #{e2\ 2653}#)
- (#{expand-body\ 2495}#
- #{req\ 2609}#
- #{opt\ 2610}#
- #{rest\ 2611}#
- #{kw\ 2612}#
- (cons #{e1\ 2652}# #{e2\ 2653}#)
- #{vars\ 2614}#
- #{r*\ 2615}#
- #{w*\ 2616}#
- #{inits\ 2617}#
+ (lambda (#{k\ 2606}#
+ #{v\ 2607}#
+ #{e1\ 2608}#
+ #{e2\ 2609}#)
+ (#{expand-body\ 2451}#
+ #{req\ 2565}#
+ #{opt\ 2566}#
+ #{rest\ 2567}#
+ #{kw\ 2568}#
+ (cons #{e1\ 2608}# #{e2\ 2609}#)
+ #{vars\ 2570}#
+ #{r*\ 2571}#
+ #{w*\ 2572}#
+ #{inits\ 2573}#
(append
- #{meta\ 2618}#
+ #{meta\ 2574}#
(syntax->datum
- (map cons #{k\ 2650}# #{v\ 2651}#)))))
- #{tmp\ 2645}#)
- (let ((#{tmp\ 2657}#
+ (map cons #{k\ 2606}# #{v\ 2607}#)))))
+ #{tmp\ 2601}#)
+ (let ((#{tmp\ 2613}#
($sc-dispatch
- #{tmp\ 2629}#
+ #{tmp\ 2585}#
'(any . each-any))))
- (if #{tmp\ 2657}#
+ (if #{tmp\ 2613}#
(@apply
- (lambda (#{e1\ 2660}# #{e2\ 2661}#)
+ (lambda (#{e1\ 2616}# #{e2\ 2617}#)
(values
- #{meta\ 2618}#
- #{req\ 2609}#
- #{opt\ 2610}#
- #{rest\ 2611}#
- #{kw\ 2612}#
- #{inits\ 2617}#
- #{vars\ 2614}#
- (#{chi-body\ 481}#
- (cons #{e1\ 2660}# #{e2\ 2661}#)
- (#{source-wrap\ 459}#
- #{e\ 2474}#
- #{w\ 2476}#
- #{s\ 2477}#
- #{mod\ 2478}#)
- #{r*\ 2615}#
- #{w*\ 2616}#
- #{mod\ 2478}#)))
- #{tmp\ 2657}#)
+ #{meta\ 2574}#
+ #{req\ 2565}#
+ #{opt\ 2566}#
+ #{rest\ 2567}#
+ #{kw\ 2568}#
+ #{inits\ 2573}#
+ #{vars\ 2570}#
+ (#{chi-body\ 473}#
+ (cons #{e1\ 2616}# #{e2\ 2617}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2430}#
+ #{w\ 2432}#
+ #{s\ 2433}#
+ #{mod\ 2434}#)
+ #{r*\ 2571}#
+ #{w*\ 2572}#
+ #{mod\ 2434}#)))
+ #{tmp\ 2613}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 2629}#)))))))))))
+ #{tmp\ 2585}#)))))))))))
(begin
- (let ((#{tmp\ 2663}# #{clauses\ 2480}#))
- (let ((#{tmp\ 2664}#
- ($sc-dispatch #{tmp\ 2663}# (quote ()))))
- (if #{tmp\ 2664}#
+ (let ((#{tmp\ 2619}# #{clauses\ 2436}#))
+ (let ((#{tmp\ 2620}#
+ ($sc-dispatch #{tmp\ 2619}# (quote ()))))
+ (if #{tmp\ 2620}#
(@apply
(lambda () (values (quote ()) #f))
- #{tmp\ 2664}#)
- (let ((#{tmp\ 2665}#
+ #{tmp\ 2620}#)
+ (let ((#{tmp\ 2621}#
($sc-dispatch
- #{tmp\ 2663}#
+ #{tmp\ 2619}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 2665}#
+ (if #{tmp\ 2621}#
(@apply
- (lambda (#{args\ 2672}#
- #{e1\ 2673}#
- #{e2\ 2674}#
- #{args*\ 2675}#
- #{e1*\ 2676}#
- #{e2*\ 2677}#)
+ (lambda (#{args\ 2628}#
+ #{e1\ 2629}#
+ #{e2\ 2630}#
+ #{args*\ 2631}#
+ #{e1*\ 2632}#
+ #{e2*\ 2633}#)
(call-with-values
(lambda ()
- (#{get-formals\ 2479}# #{args\ 2672}#))
- (lambda (#{req\ 2678}#
- #{opt\ 2679}#
- #{rest\ 2680}#
- #{kw\ 2681}#)
+ (#{get-formals\ 2435}# #{args\ 2628}#))
+ (lambda (#{req\ 2634}#
+ #{opt\ 2635}#
+ #{rest\ 2636}#
+ #{kw\ 2637}#)
(call-with-values
(lambda ()
- (#{expand-req\ 2489}#
- #{req\ 2678}#
- #{opt\ 2679}#
- #{rest\ 2680}#
- #{kw\ 2681}#
- (cons #{e1\ 2673}# #{e2\ 2674}#)))
- (lambda (#{meta\ 2687}#
- #{req\ 2688}#
- #{opt\ 2689}#
- #{rest\ 2690}#
- #{kw\ 2691}#
- #{inits\ 2692}#
- #{vars\ 2693}#
- #{body\ 2694}#)
+ (#{expand-req\ 2445}#
+ #{req\ 2634}#
+ #{opt\ 2635}#
+ #{rest\ 2636}#
+ #{kw\ 2637}#
+ (cons #{e1\ 2629}# #{e2\ 2630}#)))
+ (lambda (#{meta\ 2643}#
+ #{req\ 2644}#
+ #{opt\ 2645}#
+ #{rest\ 2646}#
+ #{kw\ 2647}#
+ #{inits\ 2648}#
+ #{vars\ 2649}#
+ #{body\ 2650}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 497}#
- #{e\ 2474}#
- #{r\ 2475}#
- #{w\ 2476}#
- #{s\ 2477}#
- #{mod\ 2478}#
- #{get-formals\ 2479}#
- (map (lambda (#{tmp\ 2705}#
- #{tmp\ 2704}#
- #{tmp\ 2703}#)
- (cons #{tmp\ 2703}#
- (cons #{tmp\ 2704}#
- #{tmp\
2705}#)))
- #{e2*\ 2677}#
- #{e1*\ 2676}#
- #{args*\ 2675}#)))
- (lambda (#{meta*\ 2707}#
- #{else*\ 2708}#)
+ (#{chi-lambda-case\ 491}#
+ #{e\ 2430}#
+ #{r\ 2431}#
+ #{w\ 2432}#
+ #{s\ 2433}#
+ #{mod\ 2434}#
+ #{get-formals\ 2435}#
+ (map (lambda (#{tmp\ 2661}#
+ #{tmp\ 2660}#
+ #{tmp\ 2659}#)
+ (cons #{tmp\ 2659}#
+ (cons #{tmp\ 2660}#
+ #{tmp\
2661}#)))
+ #{e2*\ 2633}#
+ #{e1*\ 2632}#
+ #{args*\ 2631}#)))
+ (lambda (#{meta*\ 2663}#
+ #{else*\ 2664}#)
(values
(append
- #{meta\ 2687}#
- #{meta*\ 2707}#)
- (#{build-lambda-case\ 334}#
- #{s\ 2477}#
- #{req\ 2688}#
- #{opt\ 2689}#
- #{rest\ 2690}#
- #{kw\ 2691}#
- #{inits\ 2692}#
- #{vars\ 2693}#
- #{body\ 2694}#
- #{else*\ 2708}#)))))))))
- #{tmp\ 2665}#)
+ #{meta\ 2643}#
+ #{meta*\ 2663}#)
+ (#{build-lambda-case\ 326}#
+ #{s\ 2433}#
+ #{req\ 2644}#
+ #{opt\ 2645}#
+ #{rest\ 2646}#
+ #{kw\ 2647}#
+ #{inits\ 2648}#
+ #{vars\ 2649}#
+ #{body\ 2650}#
+ #{else*\ 2664}#)))))))))
+ #{tmp\ 2621}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2663}#))))))))))
- (#{strip\ 499}#
- (lambda (#{x\ 2711}# #{w\ 2712}#)
+ #{tmp\ 2619}#))))))))))
+ (#{strip\ 493}#
+ (lambda (#{x\ 2667}# #{w\ 2668}#)
(if (memq 'top
- (#{wrap-marks\ 395}# #{w\ 2712}#))
- #{x\ 2711}#
+ (#{wrap-marks\ 387}# #{w\ 2668}#))
+ #{x\ 2667}#
(letrec*
- ((#{f\ 2718}#
- (lambda (#{x\ 2719}#)
- (if (#{syntax-object?\ 352}# #{x\ 2719}#)
- (#{strip\ 499}#
- (#{syntax-object-expression\ 354}# #{x\ 2719}#)
- (#{syntax-object-wrap\ 356}# #{x\ 2719}#))
- (if (pair? #{x\ 2719}#)
+ ((#{f\ 2674}#
+ (lambda (#{x\ 2675}#)
+ (if (#{syntax-object?\ 344}# #{x\ 2675}#)
+ (#{strip\ 493}#
+ (#{syntax-object-expression\ 346}# #{x\ 2675}#)
+ (#{syntax-object-wrap\ 348}# #{x\ 2675}#))
+ (if (pair? #{x\ 2675}#)
(begin
- (let ((#{a\ 2726}# (#{f\ 2718}# (car #{x\ 2719}#)))
- (#{d\ 2727}#
- (#{f\ 2718}# (cdr #{x\ 2719}#))))
- (if (if (eq? #{a\ 2726}# (car #{x\ 2719}#))
- (eq? #{d\ 2727}# (cdr #{x\ 2719}#))
+ (let ((#{a\ 2682}# (#{f\ 2674}# (car #{x\ 2675}#)))
+ (#{d\ 2683}#
+ (#{f\ 2674}# (cdr #{x\ 2675}#))))
+ (if (if (eq? #{a\ 2682}# (car #{x\ 2675}#))
+ (eq? #{d\ 2683}# (cdr #{x\ 2675}#))
#f)
- #{x\ 2719}#
- (cons #{a\ 2726}# #{d\ 2727}#))))
- (if (vector? #{x\ 2719}#)
+ #{x\ 2675}#
+ (cons #{a\ 2682}# #{d\ 2683}#))))
+ (if (vector? #{x\ 2675}#)
(begin
- (let ((#{old\ 2733}# (vector->list #{x\ 2719}#)))
+ (let ((#{old\ 2689}# (vector->list #{x\ 2675}#)))
(begin
- (let ((#{new\ 2735}#
- (map #{f\ 2718}# #{old\ 2733}#)))
+ (let ((#{new\ 2691}#
+ (map #{f\ 2674}# #{old\ 2689}#)))
(if (#{and-map*\ 36}#
eq?
- #{old\ 2733}#
- #{new\ 2735}#)
- #{x\ 2719}#
- (list->vector #{new\ 2735}#))))))
- #{x\ 2719}#))))))
- (begin (#{f\ 2718}# #{x\ 2711}#))))))
- (#{gen-var\ 501}#
- (lambda (#{id\ 2737}#)
+ #{old\ 2689}#
+ #{new\ 2691}#)
+ #{x\ 2675}#
+ (list->vector #{new\ 2691}#))))))
+ #{x\ 2675}#))))))
+ (begin (#{f\ 2674}# #{x\ 2667}#))))))
+ (#{gen-var\ 495}#
+ (lambda (#{id\ 2693}#)
(begin
- (let ((#{id\ 2740}#
- (if (#{syntax-object?\ 352}# #{id\ 2737}#)
- (#{syntax-object-expression\ 354}# #{id\ 2737}#)
- #{id\ 2737}#)))
+ (let ((#{id\ 2696}#
+ (if (#{syntax-object?\ 344}# #{id\ 2693}#)
+ (#{syntax-object-expression\ 346}# #{id\ 2693}#)
+ #{id\ 2693}#)))
(gensym
- (string-append (symbol->string #{id\ 2740}#) " "))))))
- (#{lambda-var-list\ 503}#
- (lambda (#{vars\ 2742}#)
+ (string-append (symbol->string #{id\ 2696}#) " "))))))
+ (#{lambda-var-list\ 497}#
+ (lambda (#{vars\ 2698}#)
(letrec*
- ((#{lvl\ 2748}#
- (lambda (#{vars\ 2749}# #{ls\ 2750}# #{w\ 2751}#)
- (if (pair? #{vars\ 2749}#)
- (#{lvl\ 2748}#
- (cdr #{vars\ 2749}#)
- (cons (#{wrap\ 457}#
- (car #{vars\ 2749}#)
- #{w\ 2751}#
+ ((#{lvl\ 2704}#
+ (lambda (#{vars\ 2705}# #{ls\ 2706}# #{w\ 2707}#)
+ (if (pair? #{vars\ 2705}#)
+ (#{lvl\ 2704}#
+ (cdr #{vars\ 2705}#)
+ (cons (#{wrap\ 449}#
+ (car #{vars\ 2705}#)
+ #{w\ 2707}#
#f)
- #{ls\ 2750}#)
- #{w\ 2751}#)
- (if (#{id?\ 388}# #{vars\ 2749}#)
- (cons (#{wrap\ 457}# #{vars\ 2749}# #{w\ 2751}# #f)
- #{ls\ 2750}#)
- (if (null? #{vars\ 2749}#)
- #{ls\ 2750}#
- (if (#{syntax-object?\ 352}# #{vars\ 2749}#)
- (#{lvl\ 2748}#
- (#{syntax-object-expression\ 354}#
- #{vars\ 2749}#)
- #{ls\ 2750}#
- (#{join-wraps\ 439}#
- #{w\ 2751}#
- (#{syntax-object-wrap\ 356}# #{vars\ 2749}#)))
- (cons #{vars\ 2749}# #{ls\ 2750}#))))))))
+ #{ls\ 2706}#)
+ #{w\ 2707}#)
+ (if (#{id?\ 380}# #{vars\ 2705}#)
+ (cons (#{wrap\ 449}# #{vars\ 2705}# #{w\ 2707}# #f)
+ #{ls\ 2706}#)
+ (if (null? #{vars\ 2705}#)
+ #{ls\ 2706}#
+ (if (#{syntax-object?\ 344}# #{vars\ 2705}#)
+ (#{lvl\ 2704}#
+ (#{syntax-object-expression\ 346}#
+ #{vars\ 2705}#)
+ #{ls\ 2706}#
+ (#{join-wraps\ 431}#
+ #{w\ 2707}#
+ (#{syntax-object-wrap\ 348}# #{vars\ 2705}#)))
+ (cons #{vars\ 2705}# #{ls\ 2706}#))))))))
(begin
- (#{lvl\ 2748}#
- #{vars\ 2742}#
+ (#{lvl\ 2704}#
+ #{vars\ 2698}#
'()
'(())))))))
(begin
- (set! #{make-primitive-ref\ 250}#
- (lambda (#{src\ 724}# #{name\ 725}#)
+ (set! #{make-primitive-ref\ 242}#
+ (lambda (#{src\ 706}# #{name\ 707}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src\ 724}#
- #{name\ 725}#)))
- (set! #{fx+\ 289}# +)
- (set! #{fx-\ 291}# -)
- (set! #{fx=\ 293}# =)
- (set! #{fx<\ 295}# <)
- (set! #{set-syntax-object-expression!\ 360}#
- (lambda (#{x\ 1102}# #{update\ 1103}#)
- (vector-set! #{x\ 1102}# 1 #{update\ 1103}#)))
- (set! #{set-syntax-object-wrap!\ 362}#
- (lambda (#{x\ 1106}# #{update\ 1107}#)
- (vector-set! #{x\ 1106}# 2 #{update\ 1107}#)))
- (set! #{set-syntax-object-module!\ 364}#
- (lambda (#{x\ 1110}# #{update\ 1111}#)
- (vector-set! #{x\ 1110}# 3 #{update\ 1111}#)))
- (set! #{binding-type\ 371}# car)
- (set! #{binding-value\ 373}# cdr)
- (set! #{make-wrap\ 393}# cons)
- (set! #{wrap-marks\ 395}# car)
- (set! #{wrap-subst\ 397}# cdr)
- (set! #{ribcage?\ 411}#
- (lambda (#{x\ 1188}#)
- (if (vector? #{x\ 1188}#)
- (if (= (vector-length #{x\ 1188}#) 4)
- (eq? (vector-ref #{x\ 1188}# 0) (quote ribcage))
+ #{src\ 706}#
+ #{name\ 707}#)))
+ (set! #{fx+\ 281}# +)
+ (set! #{fx-\ 283}# -)
+ (set! #{fx=\ 285}# =)
+ (set! #{fx<\ 287}# <)
+ (set! #{set-syntax-object-expression!\ 352}#
+ (lambda (#{x\ 1084}# #{update\ 1085}#)
+ (vector-set! #{x\ 1084}# 1 #{update\ 1085}#)))
+ (set! #{set-syntax-object-wrap!\ 354}#
+ (lambda (#{x\ 1088}# #{update\ 1089}#)
+ (vector-set! #{x\ 1088}# 2 #{update\ 1089}#)))
+ (set! #{set-syntax-object-module!\ 356}#
+ (lambda (#{x\ 1092}# #{update\ 1093}#)
+ (vector-set! #{x\ 1092}# 3 #{update\ 1093}#)))
+ (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\ 1170}#)
+ (if (vector? #{x\ 1170}#)
+ (if (= (vector-length #{x\ 1170}#) 4)
+ (eq? (vector-ref #{x\ 1170}# 0) (quote ribcage))
#f)
#f)))
(begin
- (#{global-extend\ 384}#
+ (#{global-extend\ 376}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 384}#
+ (#{global-extend\ 376}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 384}#
+ (#{global-extend\ 376}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2762}#
- #{r\ 2763}#
- #{w\ 2764}#
- #{s\ 2765}#
- #{mod\ 2766}#)
- (let ((#{tmp\ 2772}# #{e\ 2762}#))
- (let ((#{tmp\ 2773}#
+ (lambda (#{e\ 2718}#
+ #{r\ 2719}#
+ #{w\ 2720}#
+ #{s\ 2721}#
+ #{mod\ 2722}#)
+ (let ((#{tmp\ 2728}# #{e\ 2718}#))
+ (let ((#{tmp\ 2729}#
($sc-dispatch
- #{tmp\ 2772}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2773}#
+ #{tmp\ 2728}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 2729}#
(@apply
- (lambda (#{_\ 2779}#
- #{var\ 2780}#
- #{val\ 2781}#
- #{e1\ 2782}#
- #{e2\ 2783}#)
- (#{valid-bound-ids?\ 451}# #{var\ 2780}#))
- #{tmp\ 2773}#)
+ (lambda (#{var\ 2734}#
+ #{val\ 2735}#
+ #{e1\ 2736}#
+ #{e2\ 2737}#)
+ (#{valid-bound-ids?\ 443}# #{var\ 2734}#))
+ #{tmp\ 2729}#)
#f)
(@apply
- (lambda (#{_\ 2790}#
- #{var\ 2791}#
- #{val\ 2792}#
- #{e1\ 2793}#
- #{e2\ 2794}#)
+ (lambda (#{var\ 2743}#
+ #{val\ 2744}#
+ #{e1\ 2745}#
+ #{e2\ 2746}#)
(begin
- (let ((#{names\ 2796}#
- (map (lambda (#{x\ 2797}#)
- (#{id-var-name\ 445}#
- #{x\ 2797}#
- #{w\ 2764}#))
- #{var\ 2791}#)))
+ (let ((#{names\ 2748}#
+ (map (lambda (#{x\ 2749}#)
+ (#{id-var-name\ 437}#
+ #{x\ 2749}#
+ #{w\ 2720}#))
+ #{var\ 2743}#)))
(begin
(for-each
- (lambda (#{id\ 2800}# #{n\ 2801}#)
+ (lambda (#{id\ 2752}# #{n\ 2753}#)
(begin
- (let ((#{atom-key\ 2806}#
- (#{binding-type\ 371}#
- (#{lookup\ 382}#
- #{n\ 2801}#
- #{r\ 2763}#
- #{mod\ 2766}#))))
- (if (eqv? #{atom-key\ 2806}#
+ (let ((#{atom-key\ 2758}#
+ (#{binding-type\ 363}#
+ (#{lookup\ 374}#
+ #{n\ 2753}#
+ #{r\ 2719}#
+ #{mod\ 2722}#))))
+ (if (eqv? #{atom-key\ 2758}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2762}#
- (#{source-wrap\ 459}#
- #{id\ 2800}#
- #{w\ 2764}#
- #{s\ 2765}#
- #{mod\ 2766}#))))))
- #{var\ 2791}#
- #{names\ 2796}#)
- (#{chi-body\ 481}#
- (cons #{e1\ 2793}# #{e2\ 2794}#)
- (#{source-wrap\ 459}#
- #{e\ 2762}#
- #{w\ 2764}#
- #{s\ 2765}#
- #{mod\ 2766}#)
- (#{extend-env\ 376}#
- #{names\ 2796}#
+ #{e\ 2718}#
+ (#{source-wrap\ 451}#
+ #{id\ 2752}#
+ #{w\ 2720}#
+ #{s\ 2721}#
+ #{mod\ 2722}#))))))
+ #{var\ 2743}#
+ #{names\ 2748}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 2745}# #{e2\ 2746}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2718}#
+ #{w\ 2720}#
+ #{s\ 2721}#
+ #{mod\ 2722}#)
+ (#{extend-env\ 368}#
+ #{names\ 2748}#
(begin
- (let ((#{trans-r\ 2811}#
- (#{macros-only-env\ 380}#
- #{r\ 2763}#)))
- (map (lambda (#{x\ 2812}#)
+ (let ((#{trans-r\ 2763}#
+ (#{macros-only-env\ 372}#
+ #{r\ 2719}#)))
+ (map (lambda (#{x\ 2764}#)
(cons 'macro
-
(#{eval-local-transformer\ 485}#
- (#{chi\ 473}#
- #{x\ 2812}#
- #{trans-r\ 2811}#
- #{w\ 2764}#
- #{mod\ 2766}#)
- #{mod\ 2766}#)))
- #{val\ 2792}#)))
- #{r\ 2763}#)
- #{w\ 2764}#
- #{mod\ 2766}#)))))
- #{tmp\ 2773}#)
- (let ((#{_\ 2817}# #{tmp\ 2772}#))
+
(#{eval-local-transformer\ 477}#
+ (#{chi\ 465}#
+ #{x\ 2764}#
+ #{trans-r\ 2763}#
+ #{w\ 2720}#
+ #{mod\ 2722}#)
+ #{mod\ 2722}#)))
+ #{val\ 2744}#)))
+ #{r\ 2719}#)
+ #{w\ 2720}#
+ #{mod\ 2722}#)))))
+ #{tmp\ 2729}#)
+ (let ((#{_\ 2769}# #{tmp\ 2728}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 459}#
- #{e\ 2762}#
- #{w\ 2764}#
- #{s\ 2765}#
- #{mod\ 2766}#))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 451}#
+ #{e\ 2718}#
+ #{w\ 2720}#
+ #{s\ 2721}#
+ #{mod\ 2722}#))))))))
+ (#{global-extend\ 376}#
'core
'quote
- (lambda (#{e\ 2818}#
- #{r\ 2819}#
- #{w\ 2820}#
- #{s\ 2821}#
- #{mod\ 2822}#)
- (let ((#{tmp\ 2828}# #{e\ 2818}#))
- (let ((#{tmp\ 2829}#
- ($sc-dispatch #{tmp\ 2828}# (quote (any any)))))
- (if #{tmp\ 2829}#
+ (lambda (#{e\ 2770}#
+ #{r\ 2771}#
+ #{w\ 2772}#
+ #{s\ 2773}#
+ #{mod\ 2774}#)
+ (let ((#{tmp\ 2780}# #{e\ 2770}#))
+ (let ((#{tmp\ 2781}#
+ ($sc-dispatch #{tmp\ 2780}# (quote (_ any)))))
+ (if #{tmp\ 2781}#
(@apply
- (lambda (#{_\ 2832}# #{e\ 2833}#)
- (#{build-data\ 338}#
- #{s\ 2821}#
- (#{strip\ 499}# #{e\ 2833}# #{w\ 2820}#)))
- #{tmp\ 2829}#)
- (let ((#{_\ 2835}# #{tmp\ 2828}#))
+ (lambda (#{e\ 2783}#)
+ (#{build-data\ 330}#
+ #{s\ 2773}#
+ (#{strip\ 493}# #{e\ 2783}# #{w\ 2772}#)))
+ #{tmp\ 2781}#)
+ (let ((#{_\ 2785}# #{tmp\ 2780}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 459}#
- #{e\ 2818}#
- #{w\ 2820}#
- #{s\ 2821}#
- #{mod\ 2822}#))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 451}#
+ #{e\ 2770}#
+ #{w\ 2772}#
+ #{s\ 2773}#
+ #{mod\ 2774}#))))))))
+ (#{global-extend\ 376}#
'core
'syntax
(letrec*
- ((#{gen-syntax\ 2837}#
- (lambda (#{src\ 2852}#
- #{e\ 2853}#
- #{r\ 2854}#
- #{maps\ 2855}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#)
- (if (#{id?\ 388}# #{e\ 2853}#)
+ ((#{gen-syntax\ 2787}#
+ (lambda (#{src\ 2802}#
+ #{e\ 2803}#
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#)
+ (if (#{id?\ 380}# #{e\ 2803}#)
(begin
- (let ((#{label\ 2865}#
- (#{id-var-name\ 445}#
- #{e\ 2853}#
+ (let ((#{label\ 2815}#
+ (#{id-var-name\ 437}#
+ #{e\ 2803}#
'(()))))
(begin
- (let ((#{b\ 2868}#
- (#{lookup\ 382}#
- #{label\ 2865}#
- #{r\ 2854}#
- #{mod\ 2857}#)))
- (if (eq? (#{binding-type\ 371}# #{b\ 2868}#)
+ (let ((#{b\ 2818}#
+ (#{lookup\ 374}#
+ #{label\ 2815}#
+ #{r\ 2804}#
+ #{mod\ 2807}#)))
+ (if (eq? (#{binding-type\ 363}# #{b\ 2818}#)
'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev\ 2870}#
- (#{binding-value\ 373}#
- #{b\ 2868}#)))
- (#{gen-ref\ 2839}#
- #{src\ 2852}#
- (car #{var.lev\ 2870}#)
- (cdr #{var.lev\ 2870}#)
- #{maps\ 2855}#))))
- (lambda (#{var\ 2871}# #{maps\ 2872}#)
+ (let ((#{var.lev\ 2820}#
+ (#{binding-value\ 365}#
+ #{b\ 2818}#)))
+ (#{gen-ref\ 2789}#
+ #{src\ 2802}#
+ (car #{var.lev\ 2820}#)
+ (cdr #{var.lev\ 2820}#)
+ #{maps\ 2805}#))))
+ (lambda (#{var\ 2821}# #{maps\ 2822}#)
(values
- (list (quote ref) #{var\ 2871}#)
- #{maps\ 2872}#)))
- (if (#{ellipsis?\ 2856}# #{e\ 2853}#)
+ (list (quote ref) #{var\ 2821}#)
+ #{maps\ 2822}#)))
+ (if (#{ellipsis?\ 2806}# #{e\ 2803}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2852}#)
+ #{src\ 2802}#)
(values
- (list (quote quote) #{e\ 2853}#)
- #{maps\ 2855}#)))))))
- (let ((#{tmp\ 2877}# #{e\ 2853}#))
- (let ((#{tmp\ 2878}#
+ (list (quote quote) #{e\ 2803}#)
+ #{maps\ 2805}#)))))))
+ (let ((#{tmp\ 2827}# #{e\ 2803}#))
+ (let ((#{tmp\ 2828}#
($sc-dispatch
- #{tmp\ 2877}#
+ #{tmp\ 2827}#
'(any any))))
- (if (if #{tmp\ 2878}#
+ (if (if #{tmp\ 2828}#
(@apply
- (lambda (#{dots\ 2881}# #{e\ 2882}#)
- (#{ellipsis?\ 2856}# #{dots\ 2881}#))
- #{tmp\ 2878}#)
+ (lambda (#{dots\ 2831}# #{e\ 2832}#)
+ (#{ellipsis?\ 2806}# #{dots\ 2831}#))
+ #{tmp\ 2828}#)
#f)
(@apply
- (lambda (#{dots\ 2885}# #{e\ 2886}#)
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{e\ 2886}#
- #{r\ 2854}#
- #{maps\ 2855}#
- (lambda (#{x\ 2887}#) #f)
- #{mod\ 2857}#))
- #{tmp\ 2878}#)
- (let ((#{tmp\ 2889}#
+ (lambda (#{dots\ 2835}# #{e\ 2836}#)
+ (#{gen-syntax\ 2787}#
+ #{src\ 2802}#
+ #{e\ 2836}#
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ (lambda (#{x\ 2837}#) #f)
+ #{mod\ 2807}#))
+ #{tmp\ 2828}#)
+ (let ((#{tmp\ 2839}#
($sc-dispatch
- #{tmp\ 2877}#
+ #{tmp\ 2827}#
'(any any . any))))
- (if (if #{tmp\ 2889}#
+ (if (if #{tmp\ 2839}#
(@apply
- (lambda (#{x\ 2893}#
- #{dots\ 2894}#
- #{y\ 2895}#)
- (#{ellipsis?\ 2856}# #{dots\ 2894}#))
- #{tmp\ 2889}#)
+ (lambda (#{x\ 2843}#
+ #{dots\ 2844}#
+ #{y\ 2845}#)
+ (#{ellipsis?\ 2806}# #{dots\ 2844}#))
+ #{tmp\ 2839}#)
#f)
(@apply
- (lambda (#{x\ 2899}#
- #{dots\ 2900}#
- #{y\ 2901}#)
+ (lambda (#{x\ 2849}#
+ #{dots\ 2850}#
+ #{y\ 2851}#)
(letrec*
- ((#{f\ 2905}#
- (lambda (#{y\ 2906}# #{k\ 2907}#)
- (let ((#{tmp\ 2914}# #{y\ 2906}#))
- (let ((#{tmp\ 2915}#
+ ((#{f\ 2855}#
+ (lambda (#{y\ 2856}# #{k\ 2857}#)
+ (let ((#{tmp\ 2864}# #{y\ 2856}#))
+ (let ((#{tmp\ 2865}#
($sc-dispatch
- #{tmp\ 2914}#
+ #{tmp\ 2864}#
'(any . any))))
- (if (if #{tmp\ 2915}#
+ (if (if #{tmp\ 2865}#
(@apply
- (lambda (#{dots\ 2918}#
- #{y\ 2919}#)
- (#{ellipsis?\ 2856}#
- #{dots\ 2918}#))
- #{tmp\ 2915}#)
+ (lambda (#{dots\ 2868}#
+ #{y\ 2869}#)
+ (#{ellipsis?\ 2806}#
+ #{dots\ 2868}#))
+ #{tmp\ 2865}#)
#f)
(@apply
- (lambda (#{dots\ 2922}#
- #{y\ 2923}#)
- (#{f\ 2905}#
- #{y\ 2923}#
- (lambda (#{maps\
2924}#)
+ (lambda (#{dots\ 2872}#
+ #{y\ 2873}#)
+ (#{f\ 2855}#
+ #{y\ 2873}#
+ (lambda (#{maps\
2874}#)
(call-with-values
(lambda ()
- (#{k\ 2907}#
+ (#{k\ 2857}#
(cons '()
- #{maps\
2924}#)))
- (lambda (#{x\
2926}#
- #{maps\
2927}#)
- (if (null? (car
#{maps\ 2927}#))
+ #{maps\
2874}#)))
+ (lambda (#{x\
2876}#
+ #{maps\
2877}#)
+ (if (null? (car
#{maps\ 2877}#))
(syntax-violation
'syntax
"extra
ellipsis"
- #{src\
2852}#)
+ #{src\
2802}#)
(values
-
(#{gen-mappend\ 2841}#
- #{x\ 2926}#
- (car
#{maps\ 2927}#))
- (cdr #{maps\
2927}#))))))))
- #{tmp\ 2915}#)
- (let ((#{_\ 2931}#
- #{tmp\ 2914}#))
+
(#{gen-mappend\ 2791}#
+ #{x\ 2876}#
+ (car
#{maps\ 2877}#))
+ (cdr #{maps\
2877}#))))))))
+ #{tmp\ 2865}#)
+ (let ((#{_\ 2881}#
+ #{tmp\ 2864}#))
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{y\ 2906}#
- #{r\ 2854}#
- #{maps\ 2855}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{y\ 2932}#
- #{maps\ 2933}#)
+ (#{gen-syntax\ 2787}#
+ #{src\ 2802}#
+ #{y\ 2856}#
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{y\ 2882}#
+ #{maps\ 2883}#)
(call-with-values
(lambda ()
- (#{k\ 2907}#
- #{maps\ 2933}#))
- (lambda (#{x\ 2936}#
- #{maps\
2937}#)
+ (#{k\ 2857}#
+ #{maps\ 2883}#))
+ (lambda (#{x\ 2886}#
+ #{maps\
2887}#)
(values
- (#{gen-append\
2847}#
- #{x\ 2936}#
- #{y\ 2932}#)
- #{maps\
2937}#))))))))))))
+ (#{gen-append\
2797}#
+ #{x\ 2886}#
+ #{y\ 2882}#)
+ #{maps\
2887}#))))))))))))
(begin
- (#{f\ 2905}#
- #{y\ 2901}#
- (lambda (#{maps\ 2908}#)
+ (#{f\ 2855}#
+ #{y\ 2851}#
+ (lambda (#{maps\ 2858}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{x\ 2899}#
- #{r\ 2854}#
+ (#{gen-syntax\ 2787}#
+ #{src\ 2802}#
+ #{x\ 2849}#
+ #{r\ 2804}#
(cons '()
- #{maps\ 2908}#)
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{x\ 2910}#
- #{maps\ 2911}#)
- (if (null? (car #{maps\
2911}#))
+ #{maps\ 2858}#)
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{x\ 2860}#
+ #{maps\ 2861}#)
+ (if (null? (car #{maps\
2861}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2852}#)
+ #{src\ 2802}#)
(values
- (#{gen-map\ 2843}#
- #{x\ 2910}#
- (car #{maps\ 2911}#))
- (cdr #{maps\
2911}#))))))))))
- #{tmp\ 2889}#)
- (let ((#{tmp\ 2940}#
+ (#{gen-map\ 2793}#
+ #{x\ 2860}#
+ (car #{maps\ 2861}#))
+ (cdr #{maps\
2861}#))))))))))
+ #{tmp\ 2839}#)
+ (let ((#{tmp\ 2890}#
($sc-dispatch
- #{tmp\ 2877}#
+ #{tmp\ 2827}#
'(any . any))))
- (if #{tmp\ 2940}#
+ (if #{tmp\ 2890}#
(@apply
- (lambda (#{x\ 2943}# #{y\ 2944}#)
+ (lambda (#{x\ 2893}# #{y\ 2894}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{x\ 2943}#
- #{r\ 2854}#
- #{maps\ 2855}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{x\ 2945}# #{maps\ 2946}#)
+ (#{gen-syntax\ 2787}#
+ #{src\ 2802}#
+ #{x\ 2893}#
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{x\ 2895}# #{maps\ 2896}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{y\ 2944}#
- #{r\ 2854}#
- #{maps\ 2946}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{y\ 2949}#
- #{maps\ 2950}#)
+ (#{gen-syntax\ 2787}#
+ #{src\ 2802}#
+ #{y\ 2894}#
+ #{r\ 2804}#
+ #{maps\ 2896}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{y\ 2899}#
+ #{maps\ 2900}#)
(values
- (#{gen-cons\ 2845}#
- #{x\ 2945}#
- #{y\ 2949}#)
- #{maps\ 2950}#))))))
- #{tmp\ 2940}#)
- (let ((#{tmp\ 2953}#
+ (#{gen-cons\ 2795}#
+ #{x\ 2895}#
+ #{y\ 2899}#)
+ #{maps\ 2900}#))))))
+ #{tmp\ 2890}#)
+ (let ((#{tmp\ 2903}#
($sc-dispatch
- #{tmp\ 2877}#
+ #{tmp\ 2827}#
'#(vector (any . each-any)))))
- (if #{tmp\ 2953}#
+ (if #{tmp\ 2903}#
(@apply
- (lambda (#{e1\ 2956}# #{e2\ 2957}#)
+ (lambda (#{e1\ 2906}# #{e2\ 2907}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- (cons #{e1\ 2956}#
- #{e2\ 2957}#)
- #{r\ 2854}#
- #{maps\ 2855}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{e\ 2959}#
- #{maps\ 2960}#)
+ (#{gen-syntax\ 2787}#
+ #{src\ 2802}#
+ (cons #{e1\ 2906}#
+ #{e2\ 2907}#)
+ #{r\ 2804}#
+ #{maps\ 2805}#
+ #{ellipsis?\ 2806}#
+ #{mod\ 2807}#))
+ (lambda (#{e\ 2909}#
+ #{maps\ 2910}#)
(values
- (#{gen-vector\ 2849}#
- #{e\ 2959}#)
- #{maps\ 2960}#))))
- #{tmp\ 2953}#)
- (let ((#{_\ 2964}# #{tmp\ 2877}#))
+ (#{gen-vector\ 2799}#
+ #{e\ 2909}#)
+ #{maps\ 2910}#))))
+ #{tmp\ 2903}#)
+ (let ((#{_\ 2914}# #{tmp\ 2827}#))
(values
- (list (quote quote) #{e\ 2853}#)
- #{maps\ 2855}#))))))))))))))
- (#{gen-ref\ 2839}#
- (lambda (#{src\ 2966}#
- #{var\ 2967}#
- #{level\ 2968}#
- #{maps\ 2969}#)
- (if (#{fx=\ 293}# #{level\ 2968}# 0)
- (values #{var\ 2967}# #{maps\ 2969}#)
- (if (null? #{maps\ 2969}#)
+ (list (quote quote) #{e\ 2803}#)
+ #{maps\ 2805}#))))))))))))))
+ (#{gen-ref\ 2789}#
+ (lambda (#{src\ 2916}#
+ #{var\ 2917}#
+ #{level\ 2918}#
+ #{maps\ 2919}#)
+ (if (#{fx=\ 285}# #{level\ 2918}# 0)
+ (values #{var\ 2917}# #{maps\ 2919}#)
+ (if (null? #{maps\ 2919}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2966}#)
+ #{src\ 2916}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2839}#
- #{src\ 2966}#
- #{var\ 2967}#
- (#{fx-\ 291}# #{level\ 2968}# 1)
- (cdr #{maps\ 2969}#)))
- (lambda (#{outer-var\ 2974}# #{outer-maps\ 2975}#)
+ (#{gen-ref\ 2789}#
+ #{src\ 2916}#
+ #{var\ 2917}#
+ (#{fx-\ 283}# #{level\ 2918}# 1)
+ (cdr #{maps\ 2919}#)))
+ (lambda (#{outer-var\ 2924}# #{outer-maps\ 2925}#)
(begin
- (let ((#{b\ 2979}#
- (assq #{outer-var\ 2974}#
- (car #{maps\ 2969}#))))
- (if #{b\ 2979}#
- (values (cdr #{b\ 2979}#) #{maps\ 2969}#)
+ (let ((#{b\ 2929}#
+ (assq #{outer-var\ 2924}#
+ (car #{maps\ 2919}#))))
+ (if #{b\ 2929}#
+ (values (cdr #{b\ 2929}#) #{maps\ 2919}#)
(begin
- (let ((#{inner-var\ 2981}#
- (#{gen-var\ 501}# (quote tmp))))
+ (let ((#{inner-var\ 2931}#
+ (#{gen-var\ 495}# (quote tmp))))
(values
- #{inner-var\ 2981}#
- (cons (cons (cons #{outer-var\ 2974}#
- #{inner-var\ 2981}#)
- (car #{maps\ 2969}#))
- #{outer-maps\
2975}#)))))))))))))
- (#{gen-mappend\ 2841}#
- (lambda (#{e\ 2982}# #{map-env\ 2983}#)
+ #{inner-var\ 2931}#
+ (cons (cons (cons #{outer-var\ 2924}#
+ #{inner-var\ 2931}#)
+ (car #{maps\ 2919}#))
+ #{outer-maps\
2925}#)))))))))))))
+ (#{gen-mappend\ 2791}#
+ (lambda (#{e\ 2932}# #{map-env\ 2933}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2843}# #{e\ 2982}# #{map-env\ 2983}#))))
- (#{gen-map\ 2843}#
- (lambda (#{e\ 2987}# #{map-env\ 2988}#)
+ (#{gen-map\ 2793}# #{e\ 2932}# #{map-env\ 2933}#))))
+ (#{gen-map\ 2793}#
+ (lambda (#{e\ 2937}# #{map-env\ 2938}#)
(begin
- (let ((#{formals\ 2993}# (map cdr #{map-env\ 2988}#))
- (#{actuals\ 2994}#
- (map (lambda (#{x\ 2995}#)
- (list (quote ref) (car #{x\ 2995}#)))
- #{map-env\ 2988}#)))
- (if (eq? (car #{e\ 2987}#) (quote ref))
- (car #{actuals\ 2994}#)
+ (let ((#{formals\ 2943}# (map cdr #{map-env\ 2938}#))
+ (#{actuals\ 2944}#
+ (map (lambda (#{x\ 2945}#)
+ (list (quote ref) (car #{x\ 2945}#)))
+ #{map-env\ 2938}#)))
+ (if (eq? (car #{e\ 2937}#) (quote ref))
+ (car #{actuals\ 2944}#)
(if (and-map
- (lambda (#{x\ 3002}#)
- (if (eq? (car #{x\ 3002}#) (quote ref))
- (memq (car (cdr #{x\ 3002}#))
- #{formals\ 2993}#)
+ (lambda (#{x\ 2952}#)
+ (if (eq? (car #{x\ 2952}#) (quote ref))
+ (memq (car (cdr #{x\ 2952}#))
+ #{formals\ 2943}#)
#f))
- (cdr #{e\ 2987}#))
+ (cdr #{e\ 2937}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2987}#))
+ (car #{e\ 2937}#))
(map (begin
- (let ((#{r\ 3008}#
+ (let ((#{r\ 2958}#
(map cons
- #{formals\ 2993}#
- #{actuals\
2994}#)))
- (lambda (#{x\ 3009}#)
- (cdr (assq (car (cdr #{x\
3009}#))
- #{r\ 3008}#)))))
- (cdr #{e\ 2987}#))))
+ #{formals\ 2943}#
+ #{actuals\
2944}#)))
+ (lambda (#{x\ 2959}#)
+ (cdr (assq (car (cdr #{x\
2959}#))
+ #{r\ 2958}#)))))
+ (cdr #{e\ 2937}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2993}#
- #{e\ 2987}#)
- #{actuals\ 2994}#))))))))
- (#{gen-cons\ 2845}#
- (lambda (#{x\ 3013}# #{y\ 3014}#)
+ #{formals\ 2943}#
+ #{e\ 2937}#)
+ #{actuals\ 2944}#))))))))
+ (#{gen-cons\ 2795}#
+ (lambda (#{x\ 2963}# #{y\ 2964}#)
(begin
- (let ((#{atom-key\ 3019}# (car #{y\ 3014}#)))
- (if (eqv? #{atom-key\ 3019}# (quote quote))
- (if (eq? (car #{x\ 3013}#) (quote quote))
+ (let ((#{atom-key\ 2969}# (car #{y\ 2964}#)))
+ (if (eqv? #{atom-key\ 2969}# (quote quote))
+ (if (eq? (car #{x\ 2963}#) (quote quote))
(list 'quote
- (cons (car (cdr #{x\ 3013}#))
- (car (cdr #{y\ 3014}#))))
- (if (eq? (car (cdr #{y\ 3014}#)) (quote ()))
- (list (quote list) #{x\ 3013}#)
- (list (quote cons) #{x\ 3013}# #{y\ 3014}#)))
- (if (eqv? #{atom-key\ 3019}# (quote list))
+ (cons (car (cdr #{x\ 2963}#))
+ (car (cdr #{y\ 2964}#))))
+ (if (eq? (car (cdr #{y\ 2964}#)) (quote ()))
+ (list (quote list) #{x\ 2963}#)
+ (list (quote cons) #{x\ 2963}# #{y\ 2964}#)))
+ (if (eqv? #{atom-key\ 2969}# (quote list))
(cons 'list
- (cons #{x\ 3013}# (cdr #{y\ 3014}#)))
- (list (quote cons) #{x\ 3013}# #{y\ 3014}#)))))))
- (#{gen-append\ 2847}#
- (lambda (#{x\ 3028}# #{y\ 3029}#)
- (if (equal? #{y\ 3029}# (quote (quote ())))
- #{x\ 3028}#
- (list (quote append) #{x\ 3028}# #{y\ 3029}#))))
- (#{gen-vector\ 2849}#
- (lambda (#{x\ 3033}#)
- (if (eq? (car #{x\ 3033}#) (quote list))
- (cons (quote vector) (cdr #{x\ 3033}#))
- (if (eq? (car #{x\ 3033}#) (quote quote))
+ (cons #{x\ 2963}# (cdr #{y\ 2964}#)))
+ (list (quote cons) #{x\ 2963}# #{y\ 2964}#)))))))
+ (#{gen-append\ 2797}#
+ (lambda (#{x\ 2978}# #{y\ 2979}#)
+ (if (equal? #{y\ 2979}# (quote (quote ())))
+ #{x\ 2978}#
+ (list (quote append) #{x\ 2978}# #{y\ 2979}#))))
+ (#{gen-vector\ 2799}#
+ (lambda (#{x\ 2983}#)
+ (if (eq? (car #{x\ 2983}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2983}#))
+ (if (eq? (car #{x\ 2983}#) (quote quote))
(list 'quote
- (list->vector (car (cdr #{x\ 3033}#))))
- (list (quote list->vector) #{x\ 3033}#)))))
- (#{regen\ 2851}#
- (lambda (#{x\ 3043}#)
+ (list->vector (car (cdr #{x\ 2983}#))))
+ (list (quote list->vector) #{x\ 2983}#)))))
+ (#{regen\ 2801}#
+ (lambda (#{x\ 2993}#)
(begin
- (let ((#{atom-key\ 3047}# (car #{x\ 3043}#)))
- (if (eqv? #{atom-key\ 3047}# (quote ref))
- (#{build-lexical-reference\ 318}#
+ (let ((#{atom-key\ 2997}# (car #{x\ 2993}#)))
+ (if (eqv? #{atom-key\ 2997}# (quote ref))
+ (#{build-lexical-reference\ 310}#
'value
#f
- (car (cdr #{x\ 3043}#))
- (car (cdr #{x\ 3043}#)))
- (if (eqv? #{atom-key\ 3047}# (quote primitive))
- (#{build-primref\ 336}#
+ (car (cdr #{x\ 2993}#))
+ (car (cdr #{x\ 2993}#)))
+ (if (eqv? #{atom-key\ 2997}# (quote primitive))
+ (#{build-primref\ 328}#
#f
- (car (cdr #{x\ 3043}#)))
- (if (eqv? #{atom-key\ 3047}# (quote quote))
- (#{build-data\ 338}# #f (car (cdr #{x\ 3043}#)))
- (if (eqv? #{atom-key\ 3047}# (quote lambda))
- (if (list? (car (cdr #{x\ 3043}#)))
- (#{build-simple-lambda\ 330}#
+ (car (cdr #{x\ 2993}#)))
+ (if (eqv? #{atom-key\ 2997}# (quote quote))
+ (#{build-data\ 330}# #f (car (cdr #{x\ 2993}#)))
+ (if (eqv? #{atom-key\ 2997}# (quote lambda))
+ (if (list? (car (cdr #{x\ 2993}#)))
+ (#{build-simple-lambda\ 322}#
#f
- (car (cdr #{x\ 3043}#))
+ (car (cdr #{x\ 2993}#))
#f
- (car (cdr #{x\ 3043}#))
+ (car (cdr #{x\ 2993}#))
'()
- (#{regen\ 2851}#
- (car (cdr (cdr #{x\ 3043}#)))))
- (error "how did we get here" #{x\ 3043}#))
- (#{build-application\ 312}#
+ (#{regen\ 2801}#
+ (car (cdr (cdr #{x\ 2993}#)))))
+ (error "how did we get here" #{x\ 2993}#))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 328}#
#f
- (car #{x\ 3043}#))
- (map #{regen\ 2851}#
- (cdr #{x\ 3043}#))))))))))))
+ (car #{x\ 2993}#))
+ (map #{regen\ 2801}#
+ (cdr #{x\ 2993}#))))))))))))
(begin
- (lambda (#{e\ 3059}#
- #{r\ 3060}#
- #{w\ 3061}#
- #{s\ 3062}#
- #{mod\ 3063}#)
+ (lambda (#{e\ 3009}#
+ #{r\ 3010}#
+ #{w\ 3011}#
+ #{s\ 3012}#
+ #{mod\ 3013}#)
(begin
- (let ((#{e\ 3070}#
- (#{source-wrap\ 459}#
- #{e\ 3059}#
- #{w\ 3061}#
- #{s\ 3062}#
- #{mod\ 3063}#)))
- (let ((#{tmp\ 3071}# #{e\ 3070}#))
- (let ((#{tmp\ 3072}#
+ (let ((#{e\ 3020}#
+ (#{source-wrap\ 451}#
+ #{e\ 3009}#
+ #{w\ 3011}#
+ #{s\ 3012}#
+ #{mod\ 3013}#)))
+ (let ((#{tmp\ 3021}# #{e\ 3020}#))
+ (let ((#{tmp\ 3022}#
($sc-dispatch
- #{tmp\ 3071}#
- '(any any))))
- (if #{tmp\ 3072}#
+ #{tmp\ 3021}#
+ '(_ any))))
+ (if #{tmp\ 3022}#
(@apply
- (lambda (#{_\ 3075}# #{x\ 3076}#)
+ (lambda (#{x\ 3024}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{e\ 3070}#
- #{x\ 3076}#
- #{r\ 3060}#
+ (#{gen-syntax\ 2787}#
+ #{e\ 3020}#
+ #{x\ 3024}#
+ #{r\ 3010}#
'()
- #{ellipsis?\ 489}#
- #{mod\ 3063}#))
- (lambda (#{e\ 3077}# #{maps\ 3078}#)
- (#{regen\ 2851}# #{e\ 3077}#))))
- #{tmp\ 3072}#)
- (let ((#{_\ 3082}# #{tmp\ 3071}#))
+ #{ellipsis?\ 481}#
+ #{mod\ 3013}#))
+ (lambda (#{e\ 3025}# #{maps\ 3026}#)
+ (#{regen\ 2801}# #{e\ 3025}#))))
+ #{tmp\ 3022}#)
+ (let ((#{_\ 3030}# #{tmp\ 3021}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3070}#)))))))))))
- (#{global-extend\ 384}#
+ #{e\ 3020}#)))))))))))
+ (#{global-extend\ 376}#
'core
'lambda
- (lambda (#{e\ 3083}#
- #{r\ 3084}#
- #{w\ 3085}#
- #{s\ 3086}#
- #{mod\ 3087}#)
- (let ((#{tmp\ 3093}# #{e\ 3083}#))
- (let ((#{tmp\ 3094}#
+ (lambda (#{e\ 3031}#
+ #{r\ 3032}#
+ #{w\ 3033}#
+ #{s\ 3034}#
+ #{mod\ 3035}#)
+ (let ((#{tmp\ 3041}# #{e\ 3031}#))
+ (let ((#{tmp\ 3042}#
($sc-dispatch
- #{tmp\ 3093}#
- '(any any any . each-any))))
- (if #{tmp\ 3094}#
+ #{tmp\ 3041}#
+ '(_ any any . each-any))))
+ (if #{tmp\ 3042}#
(@apply
- (lambda (#{_\ 3099}#
- #{args\ 3100}#
- #{e1\ 3101}#
- #{e2\ 3102}#)
+ (lambda (#{args\ 3046}# #{e1\ 3047}# #{e2\ 3048}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 491}# #{args\ 3100}#))
- (lambda (#{req\ 3103}#
- #{opt\ 3104}#
- #{rest\ 3105}#
- #{kw\ 3106}#)
+ (#{lambda-formals\ 485}# #{args\ 3046}#))
+ (lambda (#{req\ 3049}#
+ #{opt\ 3050}#
+ #{rest\ 3051}#
+ #{kw\ 3052}#)
(letrec*
- ((#{lp\ 3114}#
- (lambda (#{body\ 3115}# #{meta\ 3116}#)
- (let ((#{tmp\ 3118}# #{body\ 3115}#))
- (let ((#{tmp\ 3119}#
+ ((#{lp\ 3060}#
+ (lambda (#{body\ 3061}# #{meta\ 3062}#)
+ (let ((#{tmp\ 3064}# #{body\ 3061}#))
+ (let ((#{tmp\ 3065}#
($sc-dispatch
- #{tmp\ 3118}#
+ #{tmp\ 3064}#
'(any any . each-any))))
- (if (if #{tmp\ 3119}#
+ (if (if #{tmp\ 3065}#
(@apply
- (lambda (#{docstring\ 3123}#
- #{e1\ 3124}#
- #{e2\ 3125}#)
+ (lambda (#{docstring\ 3069}#
+ #{e1\ 3070}#
+ #{e2\ 3071}#)
(string?
(syntax->datum
- #{docstring\ 3123}#)))
- #{tmp\ 3119}#)
+ #{docstring\ 3069}#)))
+ #{tmp\ 3065}#)
#f)
(@apply
- (lambda (#{docstring\ 3129}#
- #{e1\ 3130}#
- #{e2\ 3131}#)
- (#{lp\ 3114}#
- (cons #{e1\ 3130}#
- #{e2\ 3131}#)
+ (lambda (#{docstring\ 3075}#
+ #{e1\ 3076}#
+ #{e2\ 3077}#)
+ (#{lp\ 3060}#
+ (cons #{e1\ 3076}#
+ #{e2\ 3077}#)
(append
- #{meta\ 3116}#
+ #{meta\ 3062}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
3129}#))))))
- #{tmp\ 3119}#)
- (let ((#{tmp\ 3134}#
+ #{docstring\
3075}#))))))
+ #{tmp\ 3065}#)
+ (let ((#{tmp\ 3080}#
($sc-dispatch
- #{tmp\ 3118}#
+ #{tmp\ 3064}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 3134}#
+ (if #{tmp\ 3080}#
(@apply
- (lambda (#{k\ 3139}#
- #{v\ 3140}#
- #{e1\ 3141}#
- #{e2\ 3142}#)
- (#{lp\ 3114}#
- (cons #{e1\ 3141}#
- #{e2\ 3142}#)
+ (lambda (#{k\ 3085}#
+ #{v\ 3086}#
+ #{e1\ 3087}#
+ #{e2\ 3088}#)
+ (#{lp\ 3060}#
+ (cons #{e1\ 3087}#
+ #{e2\ 3088}#)
(append
- #{meta\ 3116}#
+ #{meta\ 3062}#
(syntax->datum
(map cons
- #{k\ 3139}#
- #{v\ 3140}#)))))
- #{tmp\ 3134}#)
- (let ((#{_\ 3147}#
- #{tmp\ 3118}#))
- (#{chi-simple-lambda\ 493}#
- #{e\ 3083}#
- #{r\ 3084}#
- #{w\ 3085}#
- #{s\ 3086}#
- #{mod\ 3087}#
- #{req\ 3103}#
- #{rest\ 3105}#
- #{meta\ 3116}#
- #{body\ 3115}#))))))))))
+ #{k\ 3085}#
+ #{v\ 3086}#)))))
+ #{tmp\ 3080}#)
+ (let ((#{_\ 3093}#
+ #{tmp\ 3064}#))
+ (#{chi-simple-lambda\ 487}#
+ #{e\ 3031}#
+ #{r\ 3032}#
+ #{w\ 3033}#
+ #{s\ 3034}#
+ #{mod\ 3035}#
+ #{req\ 3049}#
+ #{rest\ 3051}#
+ #{meta\ 3062}#
+ #{body\ 3061}#))))))))))
(begin
- (#{lp\ 3114}#
- (cons #{e1\ 3101}# #{e2\ 3102}#)
+ (#{lp\ 3060}#
+ (cons #{e1\ 3047}# #{e2\ 3048}#)
'()))))))
- #{tmp\ 3094}#)
- (let ((#{_\ 3149}# #{tmp\ 3093}#))
+ #{tmp\ 3042}#)
+ (let ((#{_\ 3095}# #{tmp\ 3041}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3083}#)))))))
- (#{global-extend\ 384}#
+ #{e\ 3031}#)))))))
+ (#{global-extend\ 376}#
'core
'lambda*
- (lambda (#{e\ 3150}#
- #{r\ 3151}#
- #{w\ 3152}#
- #{s\ 3153}#
- #{mod\ 3154}#)
- (let ((#{tmp\ 3160}# #{e\ 3150}#))
- (let ((#{tmp\ 3161}#
+ (lambda (#{e\ 3096}#
+ #{r\ 3097}#
+ #{w\ 3098}#
+ #{s\ 3099}#
+ #{mod\ 3100}#)
+ (let ((#{tmp\ 3106}# #{e\ 3096}#))
+ (let ((#{tmp\ 3107}#
($sc-dispatch
- #{tmp\ 3160}#
- '(any any any . each-any))))
- (if #{tmp\ 3161}#
+ #{tmp\ 3106}#
+ '(_ any any . each-any))))
+ (if #{tmp\ 3107}#
(@apply
- (lambda (#{_\ 3166}#
- #{args\ 3167}#
- #{e1\ 3168}#
- #{e2\ 3169}#)
+ (lambda (#{args\ 3111}# #{e1\ 3112}# #{e2\ 3113}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 497}#
- #{e\ 3150}#
- #{r\ 3151}#
- #{w\ 3152}#
- #{s\ 3153}#
- #{mod\ 3154}#
- #{lambda*-formals\ 495}#
- (list (cons #{args\ 3167}#
- (cons #{e1\ 3168}#
- #{e2\ 3169}#)))))
- (lambda (#{meta\ 3171}# #{lcase\ 3172}#)
- (#{build-case-lambda\ 332}#
- #{s\ 3153}#
- #{meta\ 3171}#
- #{lcase\ 3172}#))))
- #{tmp\ 3161}#)
- (let ((#{_\ 3176}# #{tmp\ 3160}#))
+ (#{chi-lambda-case\ 491}#
+ #{e\ 3096}#
+ #{r\ 3097}#
+ #{w\ 3098}#
+ #{s\ 3099}#
+ #{mod\ 3100}#
+ #{lambda*-formals\ 489}#
+ (list (cons #{args\ 3111}#
+ (cons #{e1\ 3112}#
+ #{e2\ 3113}#)))))
+ (lambda (#{meta\ 3115}# #{lcase\ 3116}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3099}#
+ #{meta\ 3115}#
+ #{lcase\ 3116}#))))
+ #{tmp\ 3107}#)
+ (let ((#{_\ 3120}# #{tmp\ 3106}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3150}#)))))))
- (#{global-extend\ 384}#
+ #{e\ 3096}#)))))))
+ (#{global-extend\ 376}#
'core
'case-lambda
- (lambda (#{e\ 3177}#
- #{r\ 3178}#
- #{w\ 3179}#
- #{s\ 3180}#
- #{mod\ 3181}#)
- (let ((#{tmp\ 3187}# #{e\ 3177}#))
- (let ((#{tmp\ 3188}#
+ (lambda (#{e\ 3121}#
+ #{r\ 3122}#
+ #{w\ 3123}#
+ #{s\ 3124}#
+ #{mod\ 3125}#)
+ (let ((#{tmp\ 3131}# #{e\ 3121}#))
+ (let ((#{tmp\ 3132}#
($sc-dispatch
- #{tmp\ 3187}#
- '(any (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 3188}#
+ #{tmp\ 3131}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp\ 3132}#
(@apply
- (lambda (#{_\ 3196}#
- #{args\ 3197}#
- #{e1\ 3198}#
- #{e2\ 3199}#
- #{args*\ 3200}#
- #{e1*\ 3201}#
- #{e2*\ 3202}#)
+ (lambda (#{args\ 3139}#
+ #{e1\ 3140}#
+ #{e2\ 3141}#
+ #{args*\ 3142}#
+ #{e1*\ 3143}#
+ #{e2*\ 3144}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 497}#
- #{e\ 3177}#
- #{r\ 3178}#
- #{w\ 3179}#
- #{s\ 3180}#
- #{mod\ 3181}#
- #{lambda-formals\ 491}#
- (cons (cons #{args\ 3197}#
- (cons #{e1\ 3198}# #{e2\ 3199}#))
- (map (lambda (#{tmp\ 3206}#
- #{tmp\ 3205}#
- #{tmp\ 3204}#)
- (cons #{tmp\ 3204}#
- (cons #{tmp\ 3205}#
- #{tmp\ 3206}#)))
- #{e2*\ 3202}#
- #{e1*\ 3201}#
- #{args*\ 3200}#))))
- (lambda (#{meta\ 3208}# #{lcase\ 3209}#)
- (#{build-case-lambda\ 332}#
- #{s\ 3180}#
- #{meta\ 3208}#
- #{lcase\ 3209}#))))
- #{tmp\ 3188}#)
- (let ((#{_\ 3213}# #{tmp\ 3187}#))
+ (#{chi-lambda-case\ 491}#
+ #{e\ 3121}#
+ #{r\ 3122}#
+ #{w\ 3123}#
+ #{s\ 3124}#
+ #{mod\ 3125}#
+ #{lambda-formals\ 485}#
+ (cons (cons #{args\ 3139}#
+ (cons #{e1\ 3140}# #{e2\ 3141}#))
+ (map (lambda (#{tmp\ 3148}#
+ #{tmp\ 3147}#
+ #{tmp\ 3146}#)
+ (cons #{tmp\ 3146}#
+ (cons #{tmp\ 3147}#
+ #{tmp\ 3148}#)))
+ #{e2*\ 3144}#
+ #{e1*\ 3143}#
+ #{args*\ 3142}#))))
+ (lambda (#{meta\ 3150}# #{lcase\ 3151}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3124}#
+ #{meta\ 3150}#
+ #{lcase\ 3151}#))))
+ #{tmp\ 3132}#)
+ (let ((#{_\ 3155}# #{tmp\ 3131}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3177}#)))))))
- (#{global-extend\ 384}#
+ #{e\ 3121}#)))))))
+ (#{global-extend\ 376}#
'core
'case-lambda*
- (lambda (#{e\ 3214}#
- #{r\ 3215}#
- #{w\ 3216}#
- #{s\ 3217}#
- #{mod\ 3218}#)
- (let ((#{tmp\ 3224}# #{e\ 3214}#))
- (let ((#{tmp\ 3225}#
+ (lambda (#{e\ 3156}#
+ #{r\ 3157}#
+ #{w\ 3158}#
+ #{s\ 3159}#
+ #{mod\ 3160}#)
+ (let ((#{tmp\ 3166}# #{e\ 3156}#))
+ (let ((#{tmp\ 3167}#
($sc-dispatch
- #{tmp\ 3224}#
- '(any (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 3225}#
+ #{tmp\ 3166}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp\ 3167}#
(@apply
- (lambda (#{_\ 3233}#
- #{args\ 3234}#
- #{e1\ 3235}#
- #{e2\ 3236}#
- #{args*\ 3237}#
- #{e1*\ 3238}#
- #{e2*\ 3239}#)
+ (lambda (#{args\ 3174}#
+ #{e1\ 3175}#
+ #{e2\ 3176}#
+ #{args*\ 3177}#
+ #{e1*\ 3178}#
+ #{e2*\ 3179}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 497}#
- #{e\ 3214}#
- #{r\ 3215}#
- #{w\ 3216}#
- #{s\ 3217}#
- #{mod\ 3218}#
- #{lambda*-formals\ 495}#
- (cons (cons #{args\ 3234}#
- (cons #{e1\ 3235}# #{e2\ 3236}#))
- (map (lambda (#{tmp\ 3243}#
- #{tmp\ 3242}#
- #{tmp\ 3241}#)
- (cons #{tmp\ 3241}#
- (cons #{tmp\ 3242}#
- #{tmp\ 3243}#)))
- #{e2*\ 3239}#
- #{e1*\ 3238}#
- #{args*\ 3237}#))))
- (lambda (#{meta\ 3245}# #{lcase\ 3246}#)
- (#{build-case-lambda\ 332}#
- #{s\ 3217}#
- #{meta\ 3245}#
- #{lcase\ 3246}#))))
- #{tmp\ 3225}#)
- (let ((#{_\ 3250}# #{tmp\ 3224}#))
+ (#{chi-lambda-case\ 491}#
+ #{e\ 3156}#
+ #{r\ 3157}#
+ #{w\ 3158}#
+ #{s\ 3159}#
+ #{mod\ 3160}#
+ #{lambda*-formals\ 489}#
+ (cons (cons #{args\ 3174}#
+ (cons #{e1\ 3175}# #{e2\ 3176}#))
+ (map (lambda (#{tmp\ 3183}#
+ #{tmp\ 3182}#
+ #{tmp\ 3181}#)
+ (cons #{tmp\ 3181}#
+ (cons #{tmp\ 3182}#
+ #{tmp\ 3183}#)))
+ #{e2*\ 3179}#
+ #{e1*\ 3178}#
+ #{args*\ 3177}#))))
+ (lambda (#{meta\ 3185}# #{lcase\ 3186}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3159}#
+ #{meta\ 3185}#
+ #{lcase\ 3186}#))))
+ #{tmp\ 3167}#)
+ (let ((#{_\ 3190}# #{tmp\ 3166}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3214}#)))))))
- (#{global-extend\ 384}#
+ #{e\ 3156}#)))))))
+ (#{global-extend\ 376}#
'core
'let
(letrec*
- ((#{chi-let\ 3252}#
- (lambda (#{e\ 3253}#
- #{r\ 3254}#
- #{w\ 3255}#
- #{s\ 3256}#
- #{mod\ 3257}#
- #{constructor\ 3258}#
- #{ids\ 3259}#
- #{vals\ 3260}#
- #{exps\ 3261}#)
- (if (not (#{valid-bound-ids?\ 451}# #{ids\ 3259}#))
+ ((#{chi-let\ 3192}#
+ (lambda (#{e\ 3193}#
+ #{r\ 3194}#
+ #{w\ 3195}#
+ #{s\ 3196}#
+ #{mod\ 3197}#
+ #{constructor\ 3198}#
+ #{ids\ 3199}#
+ #{vals\ 3200}#
+ #{exps\ 3201}#)
+ (if (not (#{valid-bound-ids?\ 443}# #{ids\ 3199}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3253}#)
+ #{e\ 3193}#)
(begin
- (let ((#{labels\ 3273}#
- (#{gen-labels\ 406}# #{ids\ 3259}#))
- (#{new-vars\ 3274}#
- (map #{gen-var\ 501}# #{ids\ 3259}#)))
+ (let ((#{labels\ 3213}#
+ (#{gen-labels\ 398}# #{ids\ 3199}#))
+ (#{new-vars\ 3214}#
+ (map #{gen-var\ 495}# #{ids\ 3199}#)))
(begin
- (let ((#{nw\ 3277}#
- (#{make-binding-wrap\ 435}#
- #{ids\ 3259}#
- #{labels\ 3273}#
- #{w\ 3255}#))
- (#{nr\ 3278}#
- (#{extend-var-env\ 378}#
- #{labels\ 3273}#
- #{new-vars\ 3274}#
- #{r\ 3254}#)))
- (#{constructor\ 3258}#
- #{s\ 3256}#
- (map syntax->datum #{ids\ 3259}#)
- #{new-vars\ 3274}#
- (map (lambda (#{x\ 3279}#)
- (#{chi\ 473}#
- #{x\ 3279}#
- #{r\ 3254}#
- #{w\ 3255}#
- #{mod\ 3257}#))
- #{vals\ 3260}#)
- (#{chi-body\ 481}#
- #{exps\ 3261}#
- (#{source-wrap\ 459}#
- #{e\ 3253}#
- #{nw\ 3277}#
- #{s\ 3256}#
- #{mod\ 3257}#)
- #{nr\ 3278}#
- #{nw\ 3277}#
- #{mod\ 3257}#))))))))))
+ (let ((#{nw\ 3217}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3199}#
+ #{labels\ 3213}#
+ #{w\ 3195}#))
+ (#{nr\ 3218}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3213}#
+ #{new-vars\ 3214}#
+ #{r\ 3194}#)))
+ (#{constructor\ 3198}#
+ #{s\ 3196}#
+ (map syntax->datum #{ids\ 3199}#)
+ #{new-vars\ 3214}#
+ (map (lambda (#{x\ 3219}#)
+ (#{chi\ 465}#
+ #{x\ 3219}#
+ #{r\ 3194}#
+ #{w\ 3195}#
+ #{mod\ 3197}#))
+ #{vals\ 3200}#)
+ (#{chi-body\ 473}#
+ #{exps\ 3201}#
+ (#{source-wrap\ 451}#
+ #{e\ 3193}#
+ #{nw\ 3217}#
+ #{s\ 3196}#
+ #{mod\ 3197}#)
+ #{nr\ 3218}#
+ #{nw\ 3217}#
+ #{mod\ 3197}#))))))))))
(begin
- (lambda (#{e\ 3281}#
- #{r\ 3282}#
- #{w\ 3283}#
- #{s\ 3284}#
- #{mod\ 3285}#)
- (let ((#{tmp\ 3291}# #{e\ 3281}#))
- (let ((#{tmp\ 3292}#
+ (lambda (#{e\ 3221}#
+ #{r\ 3222}#
+ #{w\ 3223}#
+ #{s\ 3224}#
+ #{mod\ 3225}#)
+ (let ((#{tmp\ 3231}# #{e\ 3221}#))
+ (let ((#{tmp\ 3232}#
($sc-dispatch
- #{tmp\ 3291}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3292}#
+ #{tmp\ 3231}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3232}#
(@apply
- (lambda (#{_\ 3298}#
- #{id\ 3299}#
- #{val\ 3300}#
- #{e1\ 3301}#
- #{e2\ 3302}#)
- (and-map #{id?\ 388}# #{id\ 3299}#))
- #{tmp\ 3292}#)
+ (lambda (#{id\ 3237}#
+ #{val\ 3238}#
+ #{e1\ 3239}#
+ #{e2\ 3240}#)
+ (and-map #{id?\ 380}# #{id\ 3237}#))
+ #{tmp\ 3232}#)
#f)
(@apply
- (lambda (#{_\ 3309}#
- #{id\ 3310}#
- #{val\ 3311}#
- #{e1\ 3312}#
- #{e2\ 3313}#)
- (#{chi-let\ 3252}#
- #{e\ 3281}#
- #{r\ 3282}#
- #{w\ 3283}#
- #{s\ 3284}#
- #{mod\ 3285}#
- #{build-let\ 342}#
- #{id\ 3310}#
- #{val\ 3311}#
- (cons #{e1\ 3312}# #{e2\ 3313}#)))
- #{tmp\ 3292}#)
- (let ((#{tmp\ 3317}#
+ (lambda (#{id\ 3246}#
+ #{val\ 3247}#
+ #{e1\ 3248}#
+ #{e2\ 3249}#)
+ (#{chi-let\ 3192}#
+ #{e\ 3221}#
+ #{r\ 3222}#
+ #{w\ 3223}#
+ #{s\ 3224}#
+ #{mod\ 3225}#
+ #{build-let\ 334}#
+ #{id\ 3246}#
+ #{val\ 3247}#
+ (cons #{e1\ 3248}# #{e2\ 3249}#)))
+ #{tmp\ 3232}#)
+ (let ((#{tmp\ 3253}#
($sc-dispatch
- #{tmp\ 3291}#
- '(any any
- #(each (any any))
- any
- .
- each-any))))
- (if (if #{tmp\ 3317}#
+ #{tmp\ 3231}#
+ '(_ any
+ #(each (any any))
+ any
+ .
+ each-any))))
+ (if (if #{tmp\ 3253}#
(@apply
- (lambda (#{_\ 3324}#
- #{f\ 3325}#
- #{id\ 3326}#
- #{val\ 3327}#
- #{e1\ 3328}#
- #{e2\ 3329}#)
- (if (#{id?\ 388}# #{f\ 3325}#)
- (and-map #{id?\ 388}# #{id\ 3326}#)
+ (lambda (#{f\ 3259}#
+ #{id\ 3260}#
+ #{val\ 3261}#
+ #{e1\ 3262}#
+ #{e2\ 3263}#)
+ (if (#{id?\ 380}# #{f\ 3259}#)
+ (and-map #{id?\ 380}# #{id\ 3260}#)
#f))
- #{tmp\ 3317}#)
+ #{tmp\ 3253}#)
#f)
(@apply
- (lambda (#{_\ 3339}#
- #{f\ 3340}#
- #{id\ 3341}#
- #{val\ 3342}#
- #{e1\ 3343}#
- #{e2\ 3344}#)
- (#{chi-let\ 3252}#
- #{e\ 3281}#
- #{r\ 3282}#
- #{w\ 3283}#
- #{s\ 3284}#
- #{mod\ 3285}#
- #{build-named-let\ 344}#
- (cons #{f\ 3340}# #{id\ 3341}#)
- #{val\ 3342}#
- (cons #{e1\ 3343}# #{e2\ 3344}#)))
- #{tmp\ 3317}#)
- (let ((#{_\ 3349}# #{tmp\ 3291}#))
+ (lambda (#{f\ 3272}#
+ #{id\ 3273}#
+ #{val\ 3274}#
+ #{e1\ 3275}#
+ #{e2\ 3276}#)
+ (#{chi-let\ 3192}#
+ #{e\ 3221}#
+ #{r\ 3222}#
+ #{w\ 3223}#
+ #{s\ 3224}#
+ #{mod\ 3225}#
+ #{build-named-let\ 336}#
+ (cons #{f\ 3272}# #{id\ 3273}#)
+ #{val\ 3274}#
+ (cons #{e1\ 3275}# #{e2\ 3276}#)))
+ #{tmp\ 3253}#)
+ (let ((#{_\ 3281}# #{tmp\ 3231}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 459}#
- #{e\ 3281}#
- #{w\ 3283}#
- #{s\ 3284}#
- #{mod\ 3285}#))))))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 451}#
+ #{e\ 3221}#
+ #{w\ 3223}#
+ #{s\ 3224}#
+ #{mod\ 3225}#))))))))))))
+ (#{global-extend\ 376}#
'core
'letrec
- (lambda (#{e\ 3350}#
- #{r\ 3351}#
- #{w\ 3352}#
- #{s\ 3353}#
- #{mod\ 3354}#)
- (let ((#{tmp\ 3360}# #{e\ 3350}#))
- (let ((#{tmp\ 3361}#
+ (lambda (#{e\ 3282}#
+ #{r\ 3283}#
+ #{w\ 3284}#
+ #{s\ 3285}#
+ #{mod\ 3286}#)
+ (let ((#{tmp\ 3292}# #{e\ 3282}#))
+ (let ((#{tmp\ 3293}#
($sc-dispatch
- #{tmp\ 3360}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3361}#
+ #{tmp\ 3292}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3293}#
(@apply
- (lambda (#{_\ 3367}#
- #{id\ 3368}#
- #{val\ 3369}#
- #{e1\ 3370}#
- #{e2\ 3371}#)
- (and-map #{id?\ 388}# #{id\ 3368}#))
- #{tmp\ 3361}#)
+ (lambda (#{id\ 3298}#
+ #{val\ 3299}#
+ #{e1\ 3300}#
+ #{e2\ 3301}#)
+ (and-map #{id?\ 380}# #{id\ 3298}#))
+ #{tmp\ 3293}#)
#f)
(@apply
- (lambda (#{_\ 3378}#
- #{id\ 3379}#
- #{val\ 3380}#
- #{e1\ 3381}#
- #{e2\ 3382}#)
+ (lambda (#{id\ 3307}#
+ #{val\ 3308}#
+ #{e1\ 3309}#
+ #{e2\ 3310}#)
(begin
- (let ((#{ids\ 3384}# #{id\ 3379}#))
- (if (not (#{valid-bound-ids?\ 451}#
- #{ids\ 3384}#))
+ (let ((#{ids\ 3312}# #{id\ 3307}#))
+ (if (not (#{valid-bound-ids?\ 443}#
+ #{ids\ 3312}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3350}#)
+ #{e\ 3282}#)
(begin
- (let ((#{labels\ 3388}#
- (#{gen-labels\ 406}# #{ids\ 3384}#))
- (#{new-vars\ 3389}#
- (map #{gen-var\ 501}#
- #{ids\ 3384}#)))
+ (let ((#{labels\ 3316}#
+ (#{gen-labels\ 398}# #{ids\ 3312}#))
+ (#{new-vars\ 3317}#
+ (map #{gen-var\ 495}#
+ #{ids\ 3312}#)))
(begin
- (let ((#{w\ 3392}#
- (#{make-binding-wrap\ 435}#
- #{ids\ 3384}#
- #{labels\ 3388}#
- #{w\ 3352}#))
- (#{r\ 3393}#
- (#{extend-var-env\ 378}#
- #{labels\ 3388}#
- #{new-vars\ 3389}#
- #{r\ 3351}#)))
- (#{build-letrec\ 346}#
- #{s\ 3353}#
+ (let ((#{w\ 3320}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3312}#
+ #{labels\ 3316}#
+ #{w\ 3284}#))
+ (#{r\ 3321}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3316}#
+ #{new-vars\ 3317}#
+ #{r\ 3283}#)))
+ (#{build-letrec\ 338}#
+ #{s\ 3285}#
#f
- (map syntax->datum #{ids\ 3384}#)
- #{new-vars\ 3389}#
- (map (lambda (#{x\ 3394}#)
- (#{chi\ 473}#
- #{x\ 3394}#
- #{r\ 3393}#
- #{w\ 3392}#
- #{mod\ 3354}#))
- #{val\ 3380}#)
- (#{chi-body\ 481}#
- (cons #{e1\ 3381}# #{e2\ 3382}#)
- (#{source-wrap\ 459}#
- #{e\ 3350}#
- #{w\ 3392}#
- #{s\ 3353}#
- #{mod\ 3354}#)
- #{r\ 3393}#
- #{w\ 3392}#
- #{mod\ 3354}#))))))))))
- #{tmp\ 3361}#)
- (let ((#{_\ 3399}# #{tmp\ 3360}#))
+ (map syntax->datum #{ids\ 3312}#)
+ #{new-vars\ 3317}#
+ (map (lambda (#{x\ 3322}#)
+ (#{chi\ 465}#
+ #{x\ 3322}#
+ #{r\ 3321}#
+ #{w\ 3320}#
+ #{mod\ 3286}#))
+ #{val\ 3308}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 3309}# #{e2\ 3310}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3282}#
+ #{w\ 3320}#
+ #{s\ 3285}#
+ #{mod\ 3286}#)
+ #{r\ 3321}#
+ #{w\ 3320}#
+ #{mod\ 3286}#))))))))))
+ #{tmp\ 3293}#)
+ (let ((#{_\ 3327}# #{tmp\ 3292}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 459}#
- #{e\ 3350}#
- #{w\ 3352}#
- #{s\ 3353}#
- #{mod\ 3354}#))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 451}#
+ #{e\ 3282}#
+ #{w\ 3284}#
+ #{s\ 3285}#
+ #{mod\ 3286}#))))))))
+ (#{global-extend\ 376}#
'core
'letrec*
- (lambda (#{e\ 3400}#
- #{r\ 3401}#
- #{w\ 3402}#
- #{s\ 3403}#
- #{mod\ 3404}#)
- (let ((#{tmp\ 3410}# #{e\ 3400}#))
- (let ((#{tmp\ 3411}#
+ (lambda (#{e\ 3328}#
+ #{r\ 3329}#
+ #{w\ 3330}#
+ #{s\ 3331}#
+ #{mod\ 3332}#)
+ (let ((#{tmp\ 3338}# #{e\ 3328}#))
+ (let ((#{tmp\ 3339}#
($sc-dispatch
- #{tmp\ 3410}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3411}#
+ #{tmp\ 3338}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3339}#
(@apply
- (lambda (#{_\ 3417}#
- #{id\ 3418}#
- #{val\ 3419}#
- #{e1\ 3420}#
- #{e2\ 3421}#)
- (and-map #{id?\ 388}# #{id\ 3418}#))
- #{tmp\ 3411}#)
+ (lambda (#{id\ 3344}#
+ #{val\ 3345}#
+ #{e1\ 3346}#
+ #{e2\ 3347}#)
+ (and-map #{id?\ 380}# #{id\ 3344}#))
+ #{tmp\ 3339}#)
#f)
(@apply
- (lambda (#{_\ 3428}#
- #{id\ 3429}#
- #{val\ 3430}#
- #{e1\ 3431}#
- #{e2\ 3432}#)
+ (lambda (#{id\ 3353}#
+ #{val\ 3354}#
+ #{e1\ 3355}#
+ #{e2\ 3356}#)
(begin
- (let ((#{ids\ 3434}# #{id\ 3429}#))
- (if (not (#{valid-bound-ids?\ 451}#
- #{ids\ 3434}#))
+ (let ((#{ids\ 3358}# #{id\ 3353}#))
+ (if (not (#{valid-bound-ids?\ 443}#
+ #{ids\ 3358}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 3400}#)
+ #{e\ 3328}#)
(begin
- (let ((#{labels\ 3438}#
- (#{gen-labels\ 406}# #{ids\ 3434}#))
- (#{new-vars\ 3439}#
- (map #{gen-var\ 501}#
- #{ids\ 3434}#)))
+ (let ((#{labels\ 3362}#
+ (#{gen-labels\ 398}# #{ids\ 3358}#))
+ (#{new-vars\ 3363}#
+ (map #{gen-var\ 495}#
+ #{ids\ 3358}#)))
(begin
- (let ((#{w\ 3442}#
- (#{make-binding-wrap\ 435}#
- #{ids\ 3434}#
- #{labels\ 3438}#
- #{w\ 3402}#))
- (#{r\ 3443}#
- (#{extend-var-env\ 378}#
- #{labels\ 3438}#
- #{new-vars\ 3439}#
- #{r\ 3401}#)))
- (#{build-letrec\ 346}#
- #{s\ 3403}#
+ (let ((#{w\ 3366}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3358}#
+ #{labels\ 3362}#
+ #{w\ 3330}#))
+ (#{r\ 3367}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3362}#
+ #{new-vars\ 3363}#
+ #{r\ 3329}#)))
+ (#{build-letrec\ 338}#
+ #{s\ 3331}#
#t
- (map syntax->datum #{ids\ 3434}#)
- #{new-vars\ 3439}#
- (map (lambda (#{x\ 3444}#)
- (#{chi\ 473}#
- #{x\ 3444}#
- #{r\ 3443}#
- #{w\ 3442}#
- #{mod\ 3404}#))
- #{val\ 3430}#)
- (#{chi-body\ 481}#
- (cons #{e1\ 3431}# #{e2\ 3432}#)
- (#{source-wrap\ 459}#
- #{e\ 3400}#
- #{w\ 3442}#
- #{s\ 3403}#
- #{mod\ 3404}#)
- #{r\ 3443}#
- #{w\ 3442}#
- #{mod\ 3404}#))))))))))
- #{tmp\ 3411}#)
- (let ((#{_\ 3449}# #{tmp\ 3410}#))
+ (map syntax->datum #{ids\ 3358}#)
+ #{new-vars\ 3363}#
+ (map (lambda (#{x\ 3368}#)
+ (#{chi\ 465}#
+ #{x\ 3368}#
+ #{r\ 3367}#
+ #{w\ 3366}#
+ #{mod\ 3332}#))
+ #{val\ 3354}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 3355}# #{e2\ 3356}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3328}#
+ #{w\ 3366}#
+ #{s\ 3331}#
+ #{mod\ 3332}#)
+ #{r\ 3367}#
+ #{w\ 3366}#
+ #{mod\ 3332}#))))))))))
+ #{tmp\ 3339}#)
+ (let ((#{_\ 3373}# #{tmp\ 3338}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 459}#
- #{e\ 3400}#
- #{w\ 3402}#
- #{s\ 3403}#
- #{mod\ 3404}#))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 451}#
+ #{e\ 3328}#
+ #{w\ 3330}#
+ #{s\ 3331}#
+ #{mod\ 3332}#))))))))
+ (#{global-extend\ 376}#
'core
'set!
- (lambda (#{e\ 3450}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{s\ 3453}#
- #{mod\ 3454}#)
- (let ((#{tmp\ 3460}# #{e\ 3450}#))
- (let ((#{tmp\ 3461}#
- ($sc-dispatch
- #{tmp\ 3460}#
- '(any any any))))
- (if (if #{tmp\ 3461}#
+ (lambda (#{e\ 3374}#
+ #{r\ 3375}#
+ #{w\ 3376}#
+ #{s\ 3377}#
+ #{mod\ 3378}#)
+ (let ((#{tmp\ 3384}# #{e\ 3374}#))
+ (let ((#{tmp\ 3385}#
+ ($sc-dispatch #{tmp\ 3384}# (quote (_ any any)))))
+ (if (if #{tmp\ 3385}#
(@apply
- (lambda (#{_\ 3465}# #{id\ 3466}# #{val\ 3467}#)
- (#{id?\ 388}# #{id\ 3466}#))
- #{tmp\ 3461}#)
+ (lambda (#{id\ 3388}# #{val\ 3389}#)
+ (#{id?\ 380}# #{id\ 3388}#))
+ #{tmp\ 3385}#)
#f)
(@apply
- (lambda (#{_\ 3471}# #{id\ 3472}# #{val\ 3473}#)
+ (lambda (#{id\ 3392}# #{val\ 3393}#)
(begin
- (let ((#{n\ 3475}#
- (#{id-var-name\ 445}#
- #{id\ 3472}#
- #{w\ 3452}#)))
+ (let ((#{n\ 3395}#
+ (#{id-var-name\ 437}#
+ #{id\ 3392}#
+ #{w\ 3376}#)))
(begin
- (let ((#{b\ 3477}#
- (#{lookup\ 382}#
- #{n\ 3475}#
- #{r\ 3451}#
- #{mod\ 3454}#)))
+ (let ((#{b\ 3397}#
+ (#{lookup\ 374}#
+ #{n\ 3395}#
+ #{r\ 3375}#
+ #{mod\ 3378}#)))
(begin
- (let ((#{atom-key\ 3480}#
- (#{binding-type\ 371}#
- #{b\ 3477}#)))
- (if (eqv? #{atom-key\ 3480}#
+ (let ((#{atom-key\ 3400}#
+ (#{binding-type\ 363}#
+ #{b\ 3397}#)))
+ (if (eqv? #{atom-key\ 3400}#
'lexical)
- (#{build-lexical-assignment\ 320}#
- #{s\ 3453}#
- (syntax->datum #{id\ 3472}#)
- (#{binding-value\ 373}# #{b\ 3477}#)
- (#{chi\ 473}#
- #{val\ 3473}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#))
- (if (eqv? #{atom-key\ 3480}#
+ (#{build-lexical-assignment\ 312}#
+ #{s\ 3377}#
+ (syntax->datum #{id\ 3392}#)
+ (#{binding-value\ 365}# #{b\ 3397}#)
+ (#{chi\ 465}#
+ #{val\ 3393}#
+ #{r\ 3375}#
+ #{w\ 3376}#
+ #{mod\ 3378}#))
+ (if (eqv? #{atom-key\ 3400}#
'global)
- (#{build-global-assignment\ 326}#
- #{s\ 3453}#
- #{n\ 3475}#
- (#{chi\ 473}#
- #{val\ 3473}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#)
- #{mod\ 3454}#)
- (if (eqv? #{atom-key\ 3480}#
+ (#{build-global-assignment\ 318}#
+ #{s\ 3377}#
+ #{n\ 3395}#
+ (#{chi\ 465}#
+ #{val\ 3393}#
+ #{r\ 3375}#
+ #{w\ 3376}#
+ #{mod\ 3378}#)
+ #{mod\ 3378}#)
+ (if (eqv? #{atom-key\ 3400}#
'macro)
(begin
- (let ((#{p\ 3485}#
- (#{binding-value\ 373}#
- #{b\ 3477}#)))
+ (let ((#{p\ 3405}#
+ (#{binding-value\ 365}#
+ #{b\ 3397}#)))
(if (procedure-property
- #{p\ 3485}#
+ #{p\ 3405}#
'variable-transformer)
- (#{chi\ 473}#
- (#{chi-macro\ 479}#
- #{p\ 3485}#
- #{e\ 3450}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{s\ 3453}#
+ (#{chi\ 465}#
+ (#{chi-macro\ 471}#
+ #{p\ 3405}#
+ #{e\ 3374}#
+ #{r\ 3375}#
+ #{w\ 3376}#
+ #{s\ 3377}#
#f
- #{mod\ 3454}#)
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#)
+ #{mod\ 3378}#)
+ #{r\ 3375}#
+ #{w\ 3376}#
+ #{mod\ 3378}#)
(syntax-violation
'set!
"not a variable
transformer"
- (#{wrap\ 457}#
- #{e\ 3450}#
- #{w\ 3452}#
- #{mod\ 3454}#)
- (#{wrap\ 457}#
- #{id\ 3472}#
- #{w\ 3452}#
- #{mod\ 3454}#)))))
- (if (eqv? #{atom-key\ 3480}#
+ (#{wrap\ 449}#
+ #{e\ 3374}#
+ #{w\ 3376}#
+ #{mod\ 3378}#)
+ (#{wrap\ 449}#
+ #{id\ 3392}#
+ #{w\ 3376}#
+ #{mod\ 3378}#)))))
+ (if (eqv? #{atom-key\ 3400}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 457}#
- #{id\ 3472}#
- #{w\ 3452}#
- #{mod\ 3454}#))
+ (#{wrap\ 449}#
+ #{id\ 3392}#
+ #{w\ 3376}#
+ #{mod\ 3378}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 459}#
- #{e\ 3450}#
- #{w\ 3452}#
- #{s\ 3453}#
- #{mod\ 3454}#)))))))))))))
- #{tmp\ 3461}#)
- (let ((#{tmp\ 3488}#
+ (#{source-wrap\ 451}#
+ #{e\ 3374}#
+ #{w\ 3376}#
+ #{s\ 3377}#
+ #{mod\ 3378}#)))))))))))))
+ #{tmp\ 3385}#)
+ (let ((#{tmp\ 3408}#
($sc-dispatch
- #{tmp\ 3460}#
- '(any (any . each-any) any))))
- (if #{tmp\ 3488}#
+ #{tmp\ 3384}#
+ '(_ (any . each-any) any))))
+ (if #{tmp\ 3408}#
(@apply
- (lambda (#{_\ 3493}#
- #{head\ 3494}#
- #{tail\ 3495}#
- #{val\ 3496}#)
+ (lambda (#{head\ 3412}#
+ #{tail\ 3413}#
+ #{val\ 3414}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{head\ 3494}#
- #{r\ 3451}#
+ (#{syntax-type\ 461}#
+ #{head\ 3412}#
+ #{r\ 3375}#
'(())
#f
#f
- #{mod\ 3454}#
+ #{mod\ 3378}#
#t))
- (lambda (#{type\ 3499}#
- #{value\ 3500}#
- #{ee\ 3501}#
- #{ww\ 3502}#
- #{ss\ 3503}#
- #{modmod\ 3504}#)
- (if (eqv? #{type\ 3499}# (quote module-ref))
+ (lambda (#{type\ 3417}#
+ #{value\ 3418}#
+ #{ee\ 3419}#
+ #{ww\ 3420}#
+ #{ss\ 3421}#
+ #{modmod\ 3422}#)
+ (if (eqv? #{type\ 3417}# (quote module-ref))
(begin
- (let ((#{val\ 3513}#
- (#{chi\ 473}#
- #{val\ 3496}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#)))
+ (let ((#{val\ 3431}#
+ (#{chi\ 465}#
+ #{val\ 3414}#
+ #{r\ 3375}#
+ #{w\ 3376}#
+ #{mod\ 3378}#)))
(call-with-values
(lambda ()
- (#{value\ 3500}#
- (cons #{head\ 3494}#
- #{tail\ 3495}#)
- #{r\ 3451}#
- #{w\ 3452}#))
- (lambda (#{e\ 3515}#
- #{r\ 3516}#
- #{w\ 3517}#
- #{s*\ 3518}#
- #{mod\ 3519}#)
- (let ((#{tmp\ 3525}# #{e\ 3515}#))
- (let ((#{tmp\ 3526}#
- (list #{tmp\ 3525}#)))
- (if (if #{tmp\ 3526}#
+ (#{value\ 3418}#
+ (cons #{head\ 3412}#
+ #{tail\ 3413}#)
+ #{r\ 3375}#
+ #{w\ 3376}#))
+ (lambda (#{e\ 3433}#
+ #{r\ 3434}#
+ #{w\ 3435}#
+ #{s*\ 3436}#
+ #{mod\ 3437}#)
+ (let ((#{tmp\ 3443}# #{e\ 3433}#))
+ (let ((#{tmp\ 3444}#
+ (list #{tmp\ 3443}#)))
+ (if (if #{tmp\ 3444}#
(@apply
- (lambda (#{e\ 3528}#)
- (#{id?\ 388}#
- #{e\ 3528}#))
- #{tmp\ 3526}#)
+ (lambda (#{e\ 3446}#)
+ (#{id?\ 380}#
+ #{e\ 3446}#))
+ #{tmp\ 3444}#)
#f)
(@apply
- (lambda (#{e\ 3530}#)
-
(#{build-global-assignment\ 326}#
- #{s\ 3453}#
+ (lambda (#{e\ 3448}#)
+
(#{build-global-assignment\ 318}#
+ #{s\ 3377}#
(syntax->datum
- #{e\ 3530}#)
- #{val\ 3513}#
- #{mod\ 3519}#))
- #{tmp\ 3526}#)
+ #{e\ 3448}#)
+ #{val\ 3431}#
+ #{mod\ 3437}#))
+ #{tmp\ 3444}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 3525}#))))))))
- (#{build-application\ 312}#
- #{s\ 3453}#
- (#{chi\ 473}#
+ #{tmp\ 3443}#))))))))
+ (#{build-application\ 304}#
+ #{s\ 3377}#
+ (#{chi\ 465}#
(list '#(syntax-object
setter
((top)
@@ -10328,19 +10746,16 @@
(top)
(top)
(top))
- #("i3505"
- "i3506"
- "i3507"
- "i3508"
- "i3509"
- "i3510"))
+ #("i3423"
+ "i3424"
+ "i3425"
+ "i3426"
+ "i3427"
+ "i3428"))
#(ribcage
- #(_ head tail val)
- #((top) (top) (top) (top))
- #("i3489"
- "i3490"
- "i3491"
- "i3492"))
+ #(head tail val)
+ #((top) (top) (top))
+ #("i3409" "i3410" "i3411"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10349,11 +10764,11 @@
(top)
(top)
(top))
- #("i3455"
- "i3456"
- "i3457"
- "i3458"
- "i3459"))
+ #("i3379"
+ "i3380"
+ "i3381"
+ "i3382"
+ "i3383"))
#(ribcage
(lambda-var-list
gen-var
@@ -10362,6 +10777,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -10628,11 +11044,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -10665,50 +11079,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -10738,20 +11152,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -10765,7 +11179,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -10774,66 +11192,66 @@
((top) (top) (top) (top))
("i39" "i38" "i37" "i35")))
(hygiene guile))
- #{head\ 3494}#)
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#)
- (map (lambda (#{e\ 3532}#)
- (#{chi\ 473}#
- #{e\ 3532}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#))
+ #{head\ 3412}#)
+ #{r\ 3375}#
+ #{w\ 3376}#
+ #{mod\ 3378}#)
+ (map (lambda (#{e\ 3450}#)
+ (#{chi\ 465}#
+ #{e\ 3450}#
+ #{r\ 3375}#
+ #{w\ 3376}#
+ #{mod\ 3378}#))
(append
- #{tail\ 3495}#
- (list #{val\ 3496}#))))))))
- #{tmp\ 3488}#)
- (let ((#{_\ 3536}# #{tmp\ 3460}#))
+ #{tail\ 3413}#
+ (list #{val\ 3414}#))))))))
+ #{tmp\ 3408}#)
+ (let ((#{_\ 3454}# #{tmp\ 3384}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 459}#
- #{e\ 3450}#
- #{w\ 3452}#
- #{s\ 3453}#
- #{mod\ 3454}#))))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 451}#
+ #{e\ 3374}#
+ #{w\ 3376}#
+ #{s\ 3377}#
+ #{mod\ 3378}#))))))))))
+ (#{global-extend\ 376}#
'module-ref
'@
- (lambda (#{e\ 3537}# #{r\ 3538}# #{w\ 3539}#)
- (let ((#{tmp\ 3543}# #{e\ 3537}#))
- (let ((#{tmp\ 3544}#
+ (lambda (#{e\ 3455}# #{r\ 3456}# #{w\ 3457}#)
+ (let ((#{tmp\ 3461}# #{e\ 3455}#))
+ (let ((#{tmp\ 3462}#
($sc-dispatch
- #{tmp\ 3543}#
- '(any each-any any))))
- (if (if #{tmp\ 3544}#
+ #{tmp\ 3461}#
+ '(_ each-any any))))
+ (if (if #{tmp\ 3462}#
(@apply
- (lambda (#{_\ 3548}# #{mod\ 3549}# #{id\ 3550}#)
- (if (and-map #{id?\ 388}# #{mod\ 3549}#)
- (#{id?\ 388}# #{id\ 3550}#)
+ (lambda (#{mod\ 3465}# #{id\ 3466}#)
+ (if (and-map #{id?\ 380}# #{mod\ 3465}#)
+ (#{id?\ 380}# #{id\ 3466}#)
#f))
- #{tmp\ 3544}#)
+ #{tmp\ 3462}#)
#f)
(@apply
- (lambda (#{_\ 3557}# #{mod\ 3558}# #{id\ 3559}#)
+ (lambda (#{mod\ 3472}# #{id\ 3473}#)
(values
- (syntax->datum #{id\ 3559}#)
- #{r\ 3538}#
- #{w\ 3539}#
+ (syntax->datum #{id\ 3473}#)
+ #{r\ 3456}#
+ #{w\ 3457}#
#f
(syntax->datum
(cons '#(syntax-object
public
((top)
#(ribcage
- #(_ mod id)
- #((top) (top) (top))
- #("i3554" "i3555" "i3556"))
+ #(mod id)
+ #((top) (top))
+ #("i3470" "i3471"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3540" "i3541" "i3542"))
+ #("i3458" "i3459" "i3460"))
#(ribcage
(lambda-var-list
gen-var
@@ -10842,6 +11260,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -11108,11 +11527,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -11145,50 +11562,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -11218,20 +11635,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -11245,7 +11662,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -11254,99 +11675,95 @@
((top) (top) (top) (top))
("i39" "i38" "i37" "i35")))
(hygiene guile))
- #{mod\ 3558}#))))
- #{tmp\ 3544}#)
+ #{mod\ 3472}#))))
+ #{tmp\ 3462}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3543}#))))))
- (#{global-extend\ 384}#
+ #{tmp\ 3461}#))))))
+ (#{global-extend\ 376}#
'module-ref
'@@
- (lambda (#{e\ 3561}# #{r\ 3562}# #{w\ 3563}#)
+ (lambda (#{e\ 3475}# #{r\ 3476}# #{w\ 3477}#)
(letrec*
- ((#{remodulate\ 3568}#
- (lambda (#{x\ 3569}# #{mod\ 3570}#)
- (if (pair? #{x\ 3569}#)
- (cons (#{remodulate\ 3568}#
- (car #{x\ 3569}#)
- #{mod\ 3570}#)
- (#{remodulate\ 3568}#
- (cdr #{x\ 3569}#)
- #{mod\ 3570}#))
- (if (#{syntax-object?\ 352}# #{x\ 3569}#)
- (#{make-syntax-object\ 350}#
- (#{remodulate\ 3568}#
- (#{syntax-object-expression\ 354}# #{x\ 3569}#)
- #{mod\ 3570}#)
- (#{syntax-object-wrap\ 356}# #{x\ 3569}#)
- #{mod\ 3570}#)
- (if (vector? #{x\ 3569}#)
+ ((#{remodulate\ 3482}#
+ (lambda (#{x\ 3483}# #{mod\ 3484}#)
+ (if (pair? #{x\ 3483}#)
+ (cons (#{remodulate\ 3482}#
+ (car #{x\ 3483}#)
+ #{mod\ 3484}#)
+ (#{remodulate\ 3482}#
+ (cdr #{x\ 3483}#)
+ #{mod\ 3484}#))
+ (if (#{syntax-object?\ 344}# #{x\ 3483}#)
+ (#{make-syntax-object\ 342}#
+ (#{remodulate\ 3482}#
+ (#{syntax-object-expression\ 346}# #{x\ 3483}#)
+ #{mod\ 3484}#)
+ (#{syntax-object-wrap\ 348}# #{x\ 3483}#)
+ #{mod\ 3484}#)
+ (if (vector? #{x\ 3483}#)
(begin
- (let ((#{n\ 3581}# (vector-length #{x\ 3569}#)))
+ (let ((#{n\ 3495}# (vector-length #{x\ 3483}#)))
(begin
- (let ((#{v\ 3583}#
- (make-vector #{n\ 3581}#)))
+ (let ((#{v\ 3497}#
+ (make-vector #{n\ 3495}#)))
(letrec*
- ((#{loop\ 3586}#
- (lambda (#{i\ 3587}#)
- (if (#{fx=\ 293}#
- #{i\ 3587}#
- #{n\ 3581}#)
- (begin (if #f #f) #{v\ 3583}#)
+ ((#{loop\ 3500}#
+ (lambda (#{i\ 3501}#)
+ (if (#{fx=\ 285}#
+ #{i\ 3501}#
+ #{n\ 3495}#)
+ (begin (if #f #f) #{v\ 3497}#)
(begin
(vector-set!
- #{v\ 3583}#
- #{i\ 3587}#
- (#{remodulate\ 3568}#
+ #{v\ 3497}#
+ #{i\ 3501}#
+ (#{remodulate\ 3482}#
(vector-ref
- #{x\ 3569}#
- #{i\ 3587}#)
- #{mod\ 3570}#))
- (#{loop\ 3586}#
- (#{fx+\ 289}#
- #{i\ 3587}#
+ #{x\ 3483}#
+ #{i\ 3501}#)
+ #{mod\ 3484}#))
+ (#{loop\ 3500}#
+ (#{fx+\ 281}#
+ #{i\ 3501}#
1)))))))
- (begin (#{loop\ 3586}# 0)))))))
- #{x\ 3569}#))))))
+ (begin (#{loop\ 3500}# 0)))))))
+ #{x\ 3483}#))))))
(begin
- (let ((#{tmp\ 3591}# #{e\ 3561}#))
- (let ((#{tmp\ 3592}#
+ (let ((#{tmp\ 3505}# #{e\ 3475}#))
+ (let ((#{tmp\ 3506}#
($sc-dispatch
- #{tmp\ 3591}#
- '(any each-any any))))
- (if (if #{tmp\ 3592}#
+ #{tmp\ 3505}#
+ '(_ each-any any))))
+ (if (if #{tmp\ 3506}#
(@apply
- (lambda (#{_\ 3596}#
- #{mod\ 3597}#
- #{exp\ 3598}#)
- (and-map #{id?\ 388}# #{mod\ 3597}#))
- #{tmp\ 3592}#)
+ (lambda (#{mod\ 3509}# #{exp\ 3510}#)
+ (and-map #{id?\ 380}# #{mod\ 3509}#))
+ #{tmp\ 3506}#)
#f)
(@apply
- (lambda (#{_\ 3603}# #{mod\ 3604}# #{exp\ 3605}#)
+ (lambda (#{mod\ 3514}# #{exp\ 3515}#)
(begin
- (let ((#{mod\ 3607}#
+ (let ((#{mod\ 3517}#
(syntax->datum
(cons '#(syntax-object
private
((top)
#(ribcage
- #(_ mod exp)
- #((top) (top) (top))
- #("i3600"
- "i3601"
- "i3602"))
+ #(mod exp)
+ #((top) (top))
+ #("i3512" "i3513"))
#(ribcage
(remodulate)
((top))
- ("i3567"))
+ ("i3481"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3564"
- "i3565"
- "i3566"))
+ #("i3478"
+ "i3479"
+ "i3480"))
#(ribcage
(lambda-var-list
gen-var
@@ -11355,6 +11772,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -11621,11 +12039,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -11658,50 +12074,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -11731,20 +12147,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -11758,7 +12174,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -11770,514 +12190,959 @@
"i37"
"i35")))
(hygiene guile))
- #{mod\ 3604}#))))
+ #{mod\ 3514}#))))
(values
- (#{remodulate\ 3568}#
- #{exp\ 3605}#
- #{mod\ 3607}#)
- #{r\ 3562}#
- #{w\ 3563}#
- (#{source-annotation\ 367}# #{exp\ 3605}#)
- #{mod\ 3607}#))))
- #{tmp\ 3592}#)
+ (#{remodulate\ 3482}#
+ #{exp\ 3515}#
+ #{mod\ 3517}#)
+ #{r\ 3476}#
+ #{w\ 3477}#
+ (#{source-annotation\ 359}# #{exp\ 3515}#)
+ #{mod\ 3517}#))))
+ #{tmp\ 3506}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3591}#))))))))
- (#{global-extend\ 384}#
+ #{tmp\ 3505}#))))))))
+ (#{global-extend\ 376}#
'core
'if
- (lambda (#{e\ 3609}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{s\ 3612}#
- #{mod\ 3613}#)
- (let ((#{tmp\ 3619}# #{e\ 3609}#))
- (let ((#{tmp\ 3620}#
- ($sc-dispatch
- #{tmp\ 3619}#
- '(any any any))))
- (if #{tmp\ 3620}#
+ (lambda (#{e\ 3519}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{s\ 3522}#
+ #{mod\ 3523}#)
+ (let ((#{tmp\ 3529}# #{e\ 3519}#))
+ (let ((#{tmp\ 3530}#
+ ($sc-dispatch #{tmp\ 3529}# (quote (_ any any)))))
+ (if #{tmp\ 3530}#
(@apply
- (lambda (#{_\ 3624}# #{test\ 3625}# #{then\ 3626}#)
- (#{build-conditional\ 314}#
- #{s\ 3612}#
- (#{chi\ 473}#
- #{test\ 3625}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)
- (#{chi\ 473}#
- #{then\ 3626}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)
- (#{build-void\ 310}# #f)))
- #{tmp\ 3620}#)
- (let ((#{tmp\ 3628}#
+ (lambda (#{test\ 3533}# #{then\ 3534}#)
+ (#{build-conditional\ 306}#
+ #{s\ 3522}#
+ (#{chi\ 465}#
+ #{test\ 3533}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)
+ (#{chi\ 465}#
+ #{then\ 3534}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)
+ (#{build-void\ 302}# #f)))
+ #{tmp\ 3530}#)
+ (let ((#{tmp\ 3536}#
($sc-dispatch
- #{tmp\ 3619}#
- '(any any any any))))
- (if #{tmp\ 3628}#
+ #{tmp\ 3529}#
+ '(_ any any any))))
+ (if #{tmp\ 3536}#
(@apply
- (lambda (#{_\ 3633}#
- #{test\ 3634}#
- #{then\ 3635}#
- #{else\ 3636}#)
- (#{build-conditional\ 314}#
- #{s\ 3612}#
- (#{chi\ 473}#
- #{test\ 3634}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)
- (#{chi\ 473}#
- #{then\ 3635}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)
- (#{chi\ 473}#
- #{else\ 3636}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)))
- #{tmp\ 3628}#)
+ (lambda (#{test\ 3540}#
+ #{then\ 3541}#
+ #{else\ 3542}#)
+ (#{build-conditional\ 306}#
+ #{s\ 3522}#
+ (#{chi\ 465}#
+ #{test\ 3540}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)
+ (#{chi\ 465}#
+ #{then\ 3541}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)
+ (#{chi\ 465}#
+ #{else\ 3542}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)))
+ #{tmp\ 3536}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3619}#))))))))
- (#{global-extend\ 384}#
+ #{tmp\ 3529}#))))))))
+ (#{global-extend\ 376}#
'core
'with-fluids
- (lambda (#{e\ 3637}#
- #{r\ 3638}#
- #{w\ 3639}#
- #{s\ 3640}#
- #{mod\ 3641}#)
- (let ((#{tmp\ 3647}# #{e\ 3637}#))
- (let ((#{tmp\ 3648}#
+ (lambda (#{e\ 3543}#
+ #{r\ 3544}#
+ #{w\ 3545}#
+ #{s\ 3546}#
+ #{mod\ 3547}#)
+ (let ((#{tmp\ 3553}# #{e\ 3543}#))
+ (let ((#{tmp\ 3554}#
($sc-dispatch
- #{tmp\ 3647}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 3648}#
+ #{tmp\ 3553}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp\ 3554}#
(@apply
- (lambda (#{_\ 3654}#
- #{fluid\ 3655}#
- #{val\ 3656}#
- #{b\ 3657}#
- #{b*\ 3658}#)
- (#{build-dynlet\ 316}#
- #{s\ 3640}#
- (map (lambda (#{x\ 3659}#)
- (#{chi\ 473}#
- #{x\ 3659}#
- #{r\ 3638}#
- #{w\ 3639}#
- #{mod\ 3641}#))
- #{fluid\ 3655}#)
- (map (lambda (#{x\ 3662}#)
- (#{chi\ 473}#
- #{x\ 3662}#
- #{r\ 3638}#
- #{w\ 3639}#
- #{mod\ 3641}#))
- #{val\ 3656}#)
- (#{chi-body\ 481}#
- (cons #{b\ 3657}# #{b*\ 3658}#)
- (#{source-wrap\ 459}#
- #{e\ 3637}#
- #{w\ 3639}#
- #{s\ 3640}#
- #{mod\ 3641}#)
- #{r\ 3638}#
- #{w\ 3639}#
- #{mod\ 3641}#)))
- #{tmp\ 3648}#)
+ (lambda (#{fluid\ 3559}#
+ #{val\ 3560}#
+ #{b\ 3561}#
+ #{b*\ 3562}#)
+ (#{build-dynlet\ 308}#
+ #{s\ 3546}#
+ (map (lambda (#{x\ 3563}#)
+ (#{chi\ 465}#
+ #{x\ 3563}#
+ #{r\ 3544}#
+ #{w\ 3545}#
+ #{mod\ 3547}#))
+ #{fluid\ 3559}#)
+ (map (lambda (#{x\ 3566}#)
+ (#{chi\ 465}#
+ #{x\ 3566}#
+ #{r\ 3544}#
+ #{w\ 3545}#
+ #{mod\ 3547}#))
+ #{val\ 3560}#)
+ (#{chi-body\ 473}#
+ (cons #{b\ 3561}# #{b*\ 3562}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3543}#
+ #{w\ 3545}#
+ #{s\ 3546}#
+ #{mod\ 3547}#)
+ #{r\ 3544}#
+ #{w\ 3545}#
+ #{mod\ 3547}#)))
+ #{tmp\ 3554}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3647}#))))))
- (#{global-extend\ 384}#
+ #{tmp\ 3553}#))))))
+ (#{global-extend\ 376}#
'begin
'begin
'())
- (#{global-extend\ 384}#
+ (#{global-extend\ 376}#
'define
'define
'())
- (#{global-extend\ 384}#
+ (#{global-extend\ 376}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 384}#
+ (#{global-extend\ 376}#
'eval-when
'eval-when
'())
- (#{global-extend\ 384}#
+ (#{global-extend\ 376}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 3667}#
- (lambda (#{pattern\ 3674}# #{keys\ 3675}#)
+ ((#{convert-pattern\ 3571}#
+ (lambda (#{pattern\ 3578}# #{keys\ 3579}#)
(letrec*
- ((#{cvt*\ 3679}#
- (lambda (#{p*\ 3682}# #{n\ 3683}# #{ids\ 3684}#)
- (if (null? #{p*\ 3682}#)
- (values (quote ()) #{ids\ 3684}#)
+ ((#{cvt*\ 3583}#
+ (lambda (#{p*\ 3586}# #{n\ 3587}# #{ids\ 3588}#)
+ (if (null? #{p*\ 3586}#)
+ (values (quote ()) #{ids\ 3588}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3679}#
- (cdr #{p*\ 3682}#)
- #{n\ 3683}#
- #{ids\ 3684}#))
- (lambda (#{y\ 3688}# #{ids\ 3689}#)
+ (#{cvt*\ 3583}#
+ (cdr #{p*\ 3586}#)
+ #{n\ 3587}#
+ #{ids\ 3588}#))
+ (lambda (#{y\ 3592}# #{ids\ 3593}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- (car #{p*\ 3682}#)
- #{n\ 3683}#
- #{ids\ 3689}#))
- (lambda (#{x\ 3692}# #{ids\ 3693}#)
+ (#{cvt\ 3585}#
+ (car #{p*\ 3586}#)
+ #{n\ 3587}#
+ #{ids\ 3593}#))
+ (lambda (#{x\ 3596}# #{ids\ 3597}#)
(values
- (cons #{x\ 3692}# #{y\ 3688}#)
- #{ids\ 3693}#))))))))
- (#{cvt\ 3681}#
- (lambda (#{p\ 3696}# #{n\ 3697}# #{ids\ 3698}#)
- (if (#{id?\ 388}# #{p\ 3696}#)
- (if (#{bound-id-member?\ 455}#
- #{p\ 3696}#
- #{keys\ 3675}#)
- (values
- (vector (quote free-id) #{p\ 3696}#)
- #{ids\ 3698}#)
+ (cons #{x\ 3596}# #{y\ 3592}#)
+ #{ids\ 3597}#))))))))
+ (#{cvt\ 3585}#
+ (lambda (#{p\ 3600}# #{n\ 3601}# #{ids\ 3602}#)
+ (if (#{id?\ 380}# #{p\ 3600}#)
+ (if (#{bound-id-member?\ 447}#
+ #{p\ 3600}#
+ #{keys\ 3579}#)
(values
- 'any
- (cons (cons #{p\ 3696}# #{n\ 3697}#)
- #{ids\ 3698}#)))
- (let ((#{tmp\ 3702}# #{p\ 3696}#))
- (let ((#{tmp\ 3703}#
+ (vector (quote free-id) #{p\ 3600}#)
+ #{ids\ 3602}#)
+ (if (#{free-id=?\ 439}#
+ #{p\ 3600}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3603" "i3604" "i3605"))
+ #(ribcage
+ (cvt cvt*)
+ ((top) (top))
+ ("i3584" "i3582"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3580" "i3581"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3576" "i3574" "i3572" "i3570"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ underscore?
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i496"
+ "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"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "i358"
+ "i357"
+ "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"
+ "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))
+ ("i39" "i38" "i37" "i35")))
+ (hygiene guile)))
+ (values (quote _) #{ids\ 3602}#)
+ (values
+ 'any
+ (cons (cons #{p\ 3600}# #{n\ 3601}#)
+ #{ids\ 3602}#))))
+ (let ((#{tmp\ 3611}# #{p\ 3600}#))
+ (let ((#{tmp\ 3612}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 3611}#
'(any any))))
- (if (if #{tmp\ 3703}#
+ (if (if #{tmp\ 3612}#
(@apply
- (lambda (#{x\ 3706}# #{dots\ 3707}#)
- (#{ellipsis?\ 489}#
- #{dots\ 3707}#))
- #{tmp\ 3703}#)
+ (lambda (#{x\ 3615}# #{dots\ 3616}#)
+ (#{ellipsis?\ 481}#
+ #{dots\ 3616}#))
+ #{tmp\ 3612}#)
#f)
(@apply
- (lambda (#{x\ 3710}# #{dots\ 3711}#)
+ (lambda (#{x\ 3619}# #{dots\ 3620}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{x\ 3710}#
- (#{fx+\ 289}# #{n\ 3697}# 1)
- #{ids\ 3698}#))
- (lambda (#{p\ 3712}# #{ids\ 3713}#)
+ (#{cvt\ 3585}#
+ #{x\ 3619}#
+ (#{fx+\ 281}# #{n\ 3601}# 1)
+ #{ids\ 3602}#))
+ (lambda (#{p\ 3621}# #{ids\ 3622}#)
(values
- (if (eq? #{p\ 3712}# (quote any))
+ (if (eq? #{p\ 3621}# (quote any))
'each-any
(vector
'each
- #{p\ 3712}#))
- #{ids\ 3713}#))))
- #{tmp\ 3703}#)
- (let ((#{tmp\ 3716}#
+ #{p\ 3621}#))
+ #{ids\ 3622}#))))
+ #{tmp\ 3612}#)
+ (let ((#{tmp\ 3625}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 3611}#
'(any any . each-any))))
- (if (if #{tmp\ 3716}#
+ (if (if #{tmp\ 3625}#
(@apply
- (lambda (#{x\ 3720}#
- #{dots\ 3721}#
- #{ys\ 3722}#)
- (#{ellipsis?\ 489}#
- #{dots\ 3721}#))
- #{tmp\ 3716}#)
+ (lambda (#{x\ 3629}#
+ #{dots\ 3630}#
+ #{ys\ 3631}#)
+ (#{ellipsis?\ 481}#
+ #{dots\ 3630}#))
+ #{tmp\ 3625}#)
#f)
(@apply
- (lambda (#{x\ 3726}#
- #{dots\ 3727}#
- #{ys\ 3728}#)
+ (lambda (#{x\ 3635}#
+ #{dots\ 3636}#
+ #{ys\ 3637}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3679}#
- #{ys\ 3728}#
- #{n\ 3697}#
- #{ids\ 3698}#))
- (lambda (#{ys\ 3730}#
- #{ids\ 3731}#)
+ (#{cvt*\ 3583}#
+ #{ys\ 3637}#
+ #{n\ 3601}#
+ #{ids\ 3602}#))
+ (lambda (#{ys\ 3639}#
+ #{ids\ 3640}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{x\ 3726}#
- (1+ #{n\ 3697}#)
- #{ids\ 3731}#))
- (lambda (#{x\ 3734}#
- #{ids\ 3735}#)
+ (#{cvt\ 3585}#
+ #{x\ 3635}#
+ (1+ #{n\ 3601}#)
+ #{ids\ 3640}#))
+ (lambda (#{x\ 3643}#
+ #{ids\ 3644}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 3734}#
+ (cons #{x\ 3643}#
(cons
(reverse
-
#{ys\ 3730}#)
+
#{ys\ 3639}#)
'(())))))
- #{ids\ 3735}#))))))
- #{tmp\ 3716}#)
- (let ((#{tmp\ 3739}#
+ #{ids\ 3644}#))))))
+ #{tmp\ 3625}#)
+ (let ((#{tmp\ 3648}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 3611}#
'(any . any))))
- (if #{tmp\ 3739}#
+ (if #{tmp\ 3648}#
(@apply
- (lambda (#{x\ 3742}# #{y\ 3743}#)
+ (lambda (#{x\ 3651}# #{y\ 3652}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{y\ 3743}#
- #{n\ 3697}#
- #{ids\ 3698}#))
- (lambda (#{y\ 3744}#
- #{ids\ 3745}#)
+ (#{cvt\ 3585}#
+ #{y\ 3652}#
+ #{n\ 3601}#
+ #{ids\ 3602}#))
+ (lambda (#{y\ 3653}#
+ #{ids\ 3654}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{x\ 3742}#
- #{n\ 3697}#
- #{ids\ 3745}#))
- (lambda (#{x\ 3748}#
- #{ids\ 3749}#)
+ (#{cvt\ 3585}#
+ #{x\ 3651}#
+ #{n\ 3601}#
+ #{ids\ 3654}#))
+ (lambda (#{x\ 3657}#
+ #{ids\ 3658}#)
(values
- (cons #{x\ 3748}#
- #{y\ 3744}#)
- #{ids\ 3749}#))))))
- #{tmp\ 3739}#)
- (let ((#{tmp\ 3752}#
+ (cons #{x\ 3657}#
+ #{y\ 3653}#)
+ #{ids\ 3658}#))))))
+ #{tmp\ 3648}#)
+ (let ((#{tmp\ 3661}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 3611}#
'())))
- (if #{tmp\ 3752}#
+ (if #{tmp\ 3661}#
(@apply
(lambda ()
(values
'()
- #{ids\ 3698}#))
- #{tmp\ 3752}#)
- (let ((#{tmp\ 3753}#
+ #{ids\ 3602}#))
+ #{tmp\ 3661}#)
+ (let ((#{tmp\ 3662}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 3611}#
'#(vector
each-any))))
- (if #{tmp\ 3753}#
+ (if #{tmp\ 3662}#
(@apply
- (lambda (#{x\ 3755}#)
+ (lambda (#{x\ 3664}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{x\ 3755}#
- #{n\ 3697}#
- #{ids\ 3698}#))
- (lambda (#{p\ 3757}#
- #{ids\
3758}#)
+ (#{cvt\ 3585}#
+ #{x\ 3664}#
+ #{n\ 3601}#
+ #{ids\ 3602}#))
+ (lambda (#{p\ 3666}#
+ #{ids\
3667}#)
(values
(vector
'vector
- #{p\ 3757}#)
- #{ids\ 3758}#))))
- #{tmp\ 3753}#)
- (let ((#{x\ 3762}#
- #{tmp\ 3702}#))
+ #{p\ 3666}#)
+ #{ids\ 3667}#))))
+ #{tmp\ 3662}#)
+ (let ((#{x\ 3671}#
+ #{tmp\ 3611}#))
(values
(vector
'atom
- (#{strip\ 499}#
- #{p\ 3696}#
+ (#{strip\ 493}#
+ #{p\ 3600}#
'(())))
- #{ids\
3698}#)))))))))))))))))
+ #{ids\
3602}#)))))))))))))))))
(begin
- (#{cvt\ 3681}# #{pattern\ 3674}# 0 (quote ()))))))
- (#{build-dispatch-call\ 3669}#
- (lambda (#{pvars\ 3764}#
- #{exp\ 3765}#
- #{y\ 3766}#
- #{r\ 3767}#
- #{mod\ 3768}#)
+ (#{cvt\ 3585}# #{pattern\ 3578}# 0 (quote ()))))))
+ (#{build-dispatch-call\ 3573}#
+ (lambda (#{pvars\ 3673}#
+ #{exp\ 3674}#
+ #{y\ 3675}#
+ #{r\ 3676}#
+ #{mod\ 3677}#)
(begin
- (map cdr #{pvars\ 3764}#)
- (let ((#{ids\ 3776}# (map car #{pvars\ 3764}#)))
+ (map cdr #{pvars\ 3673}#)
+ (let ((#{ids\ 3685}# (map car #{pvars\ 3673}#)))
(begin
- (let ((#{labels\ 3780}#
- (#{gen-labels\ 406}# #{ids\ 3776}#))
- (#{new-vars\ 3781}#
- (map #{gen-var\ 501}# #{ids\ 3776}#)))
- (#{build-application\ 312}#
+ (let ((#{labels\ 3689}#
+ (#{gen-labels\ 398}# #{ids\ 3685}#))
+ (#{new-vars\ 3690}#
+ (map #{gen-var\ 495}# #{ids\ 3685}#)))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 336}# #f (quote apply))
- (list (#{build-simple-lambda\ 330}#
+ (#{build-primref\ 328}# #f (quote apply))
+ (list (#{build-simple-lambda\ 322}#
#f
- (map syntax->datum #{ids\ 3776}#)
+ (map syntax->datum #{ids\ 3685}#)
#f
- #{new-vars\ 3781}#
+ #{new-vars\ 3690}#
'()
- (#{chi\ 473}#
- #{exp\ 3765}#
- (#{extend-env\ 376}#
- #{labels\ 3780}#
- (map (lambda (#{var\ 3785}#
- #{level\ 3786}#)
+ (#{chi\ 465}#
+ #{exp\ 3674}#
+ (#{extend-env\ 368}#
+ #{labels\ 3689}#
+ (map (lambda (#{var\ 3694}#
+ #{level\ 3695}#)
(cons 'syntax
- (cons #{var\ 3785}#
- #{level\
3786}#)))
- #{new-vars\ 3781}#
- (map cdr #{pvars\ 3764}#))
- #{r\ 3767}#)
- (#{make-binding-wrap\ 435}#
- #{ids\ 3776}#
- #{labels\ 3780}#
+ (cons #{var\ 3694}#
+ #{level\
3695}#)))
+ #{new-vars\ 3690}#
+ (map cdr #{pvars\ 3673}#))
+ #{r\ 3676}#)
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3685}#
+ #{labels\ 3689}#
'(()))
- #{mod\ 3768}#))
- #{y\ 3766}#))))))))
- (#{gen-clause\ 3671}#
- (lambda (#{x\ 3792}#
- #{keys\ 3793}#
- #{clauses\ 3794}#
- #{r\ 3795}#
- #{pat\ 3796}#
- #{fender\ 3797}#
- #{exp\ 3798}#
- #{mod\ 3799}#)
+ #{mod\ 3677}#))
+ #{y\ 3675}#))))))))
+ (#{gen-clause\ 3575}#
+ (lambda (#{x\ 3701}#
+ #{keys\ 3702}#
+ #{clauses\ 3703}#
+ #{r\ 3704}#
+ #{pat\ 3705}#
+ #{fender\ 3706}#
+ #{exp\ 3707}#
+ #{mod\ 3708}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3667}#
- #{pat\ 3796}#
- #{keys\ 3793}#))
- (lambda (#{p\ 3808}# #{pvars\ 3809}#)
- (if (not (#{distinct-bound-ids?\ 453}#
- (map car #{pvars\ 3809}#)))
+ (#{convert-pattern\ 3571}#
+ #{pat\ 3705}#
+ #{keys\ 3702}#))
+ (lambda (#{p\ 3717}# #{pvars\ 3718}#)
+ (if (not (#{distinct-bound-ids?\ 445}#
+ (map car #{pvars\ 3718}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3796}#)
+ #{pat\ 3705}#)
(if (not (and-map
- (lambda (#{x\ 3816}#)
- (not (#{ellipsis?\ 489}#
- (car #{x\ 3816}#))))
- #{pvars\ 3809}#))
+ (lambda (#{x\ 3725}#)
+ (not (#{ellipsis?\ 481}#
+ (car #{x\ 3725}#))))
+ #{pvars\ 3718}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3796}#)
+ #{pat\ 3705}#)
(begin
- (let ((#{y\ 3820}#
- (#{gen-var\ 501}# (quote tmp))))
- (#{build-application\ 312}#
+ (let ((#{y\ 3729}#
+ (#{gen-var\ 495}# (quote tmp))))
+ (#{build-application\ 304}#
#f
- (#{build-simple-lambda\ 330}#
+ (#{build-simple-lambda\ 322}#
#f
(list (quote tmp))
#f
- (list #{y\ 3820}#)
+ (list #{y\ 3729}#)
'()
(begin
- (let ((#{y\ 3824}#
- (#{build-lexical-reference\
318}#
+ (let ((#{y\ 3733}#
+ (#{build-lexical-reference\
310}#
'value
#f
'tmp
- #{y\ 3820}#)))
- (#{build-conditional\ 314}#
+ #{y\ 3729}#)))
+ (#{build-conditional\ 306}#
#f
- (let ((#{tmp\ 3827}#
- #{fender\ 3797}#))
- (let ((#{tmp\ 3828}#
+ (let ((#{tmp\ 3736}#
+ #{fender\ 3706}#))
+ (let ((#{tmp\ 3737}#
($sc-dispatch
- #{tmp\ 3827}#
+ #{tmp\ 3736}#
'#(atom #t))))
- (if #{tmp\ 3828}#
+ (if #{tmp\ 3737}#
(@apply
- (lambda () #{y\ 3824}#)
- #{tmp\ 3828}#)
- (let ((#{_\ 3830}#
- #{tmp\ 3827}#))
- (#{build-conditional\ 314}#
+ (lambda () #{y\ 3733}#)
+ #{tmp\ 3737}#)
+ (let ((#{_\ 3739}#
+ #{tmp\ 3736}#))
+ (#{build-conditional\ 306}#
#f
- #{y\ 3824}#
- (#{build-dispatch-call\
3669}#
- #{pvars\ 3809}#
- #{fender\ 3797}#
- #{y\ 3824}#
- #{r\ 3795}#
- #{mod\ 3799}#)
- (#{build-data\ 338}#
+ #{y\ 3733}#
+ (#{build-dispatch-call\
3573}#
+ #{pvars\ 3718}#
+ #{fender\ 3706}#
+ #{y\ 3733}#
+ #{r\ 3704}#
+ #{mod\ 3708}#)
+ (#{build-data\ 330}#
#f
#f))))))
- (#{build-dispatch-call\ 3669}#
- #{pvars\ 3809}#
- #{exp\ 3798}#
- #{y\ 3824}#
- #{r\ 3795}#
- #{mod\ 3799}#)
- (#{gen-syntax-case\ 3673}#
- #{x\ 3792}#
- #{keys\ 3793}#
- #{clauses\ 3794}#
- #{r\ 3795}#
- #{mod\ 3799}#)))))
- (list (if (eq? #{p\ 3808}# (quote any))
- (#{build-application\ 312}#
+ (#{build-dispatch-call\ 3573}#
+ #{pvars\ 3718}#
+ #{exp\ 3707}#
+ #{y\ 3733}#
+ #{r\ 3704}#
+ #{mod\ 3708}#)
+ (#{gen-syntax-case\ 3577}#
+ #{x\ 3701}#
+ #{keys\ 3702}#
+ #{clauses\ 3703}#
+ #{r\ 3704}#
+ #{mod\ 3708}#)))))
+ (list (if (eq? #{p\ 3717}# (quote any))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 328}#
#f
'list)
- (list #{x\ 3792}#))
- (#{build-application\ 312}#
+ (list #{x\ 3701}#))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 328}#
#f
'$sc-dispatch)
- (list #{x\ 3792}#
- (#{build-data\ 338}#
+ (list #{x\ 3701}#
+ (#{build-data\ 330}#
#f
- #{p\ 3808}#))))))))))))))
- (#{gen-syntax-case\ 3673}#
- (lambda (#{x\ 3838}#
- #{keys\ 3839}#
- #{clauses\ 3840}#
- #{r\ 3841}#
- #{mod\ 3842}#)
- (if (null? #{clauses\ 3840}#)
- (#{build-application\ 312}#
+ #{p\ 3717}#))))))))))))))
+ (#{gen-syntax-case\ 3577}#
+ (lambda (#{x\ 3747}#
+ #{keys\ 3748}#
+ #{clauses\ 3749}#
+ #{r\ 3750}#
+ #{mod\ 3751}#)
+ (if (null? #{clauses\ 3749}#)
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 328}#
#f
'syntax-violation)
- (list (#{build-data\ 338}# #f #f)
- (#{build-data\ 338}#
+ (list (#{build-data\ 330}# #f #f)
+ (#{build-data\ 330}#
#f
"source expression failed to match any
pattern")
- #{x\ 3838}#))
- (let ((#{tmp\ 3852}# (car #{clauses\ 3840}#)))
- (let ((#{tmp\ 3853}#
+ #{x\ 3747}#))
+ (let ((#{tmp\ 3761}# (car #{clauses\ 3749}#)))
+ (let ((#{tmp\ 3762}#
($sc-dispatch
- #{tmp\ 3852}#
+ #{tmp\ 3761}#
'(any any))))
- (if #{tmp\ 3853}#
+ (if #{tmp\ 3762}#
(@apply
- (lambda (#{pat\ 3856}# #{exp\ 3857}#)
- (if (if (#{id?\ 388}# #{pat\ 3856}#)
+ (lambda (#{pat\ 3765}# #{exp\ 3766}#)
+ (if (if (#{id?\ 380}# #{pat\ 3765}#)
(and-map
- (lambda (#{x\ 3860}#)
- (not (#{free-id=?\ 447}#
- #{pat\ 3856}#
- #{x\ 3860}#)))
+ (lambda (#{x\ 3769}#)
+ (not (#{free-id=?\ 439}#
+ #{pat\ 3765}#
+ #{x\ 3769}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3854" "i3855"))
+ #("i3763" "i3764"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -12286,21 +13151,21 @@
(top)
(top)
(top))
- #("i3843"
- "i3844"
- "i3845"
- "i3846"
- "i3847"))
+ #("i3752"
+ "i3753"
+ "i3754"
+ "i3755"
+ "i3756"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3672"
- "i3670"
- "i3668"
- "i3666"))
+ ("i3576"
+ "i3574"
+ "i3572"
+ "i3570"))
#(ribcage
(lambda-var-list
gen-var
@@ -12309,6 +13174,7 @@
lambda*-formals
chi-simple-lambda
lambda-formals
+ underscore?
ellipsis?
chi-void
eval-local-transformer
@@ -12575,11 +13441,9 @@
(top)
(top)
(top)
+ (top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
+ ("i496"
"i494"
"i492"
"i490"
@@ -12612,50 +13476,50 @@
"i436"
"i434"
"i432"
- "i431"
"i430"
"i428"
- "i427"
"i426"
- "i425"
"i424"
+ "i423"
"i422"
"i420"
+ "i419"
"i418"
+ "i417"
"i416"
"i414"
"i412"
"i410"
"i408"
- "i405"
- "i403"
+ "i406"
+ "i404"
"i402"
- "i401"
"i400"
- "i399"
- "i398"
- "i396"
+ "i397"
+ "i395"
"i394"
+ "i393"
"i392"
+ "i391"
"i390"
- "i389"
- "i387"
- "i385"
- "i383"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
"i381"
"i379"
"i377"
"i375"
- "i374"
- "i372"
- "i370"
+ "i373"
+ "i371"
"i369"
- "i368"
+ "i367"
"i366"
- "i365"
- "i363"
+ "i364"
+ "i362"
"i361"
- "i359"
+ "i360"
+ "i358"
"i357"
"i355"
"i353"
@@ -12685,20 +13549,20 @@
"i305"
"i303"
"i301"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
"i292"
"i290"
"i288"
"i286"
"i284"
"i282"
- "i279"
- "i277"
- "i275"
- "i273"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
"i271"
"i269"
"i267"
@@ -12712,7 +13576,11 @@
"i251"
"i249"
"i247"
- "i245"))
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -12724,846 +13592,1737 @@
"i37"
"i35")))
(hygiene guile))
- #{keys\ 3839}#))
+ #{keys\ 3748}#))
#f)
- (begin
- (let ((#{labels\ 3864}#
- (list (#{gen-label\ 404}#)))
- (#{var\ 3865}#
- (#{gen-var\ 501}# #{pat\ 3856}#)))
- (#{build-application\ 312}#
- #f
- (#{build-simple-lambda\ 330}#
- #f
- (list (syntax->datum #{pat\ 3856}#))
+ (if (#{free-id=?\ 439}#
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3763" "i3764"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3752"
+ "i3753"
+ "i3754"
+ "i3755"
+ "i3756"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3576"
+ "i3574"
+ "i3572"
+ "i3570"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ underscore?
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i496"
+ "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"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "i358"
+ "i357"
+ "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"
+ "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))
+ ("i39" "i38" "i37" "i35")))
+ (hygiene guile))
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3763" "i3764"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3752"
+ "i3753"
+ "i3754"
+ "i3755"
+ "i3756"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3576"
+ "i3574"
+ "i3572"
+ "i3570"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ underscore?
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i496"
+ "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"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "i358"
+ "i357"
+ "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"
+ "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))
+ ("i39" "i38" "i37" "i35")))
+ (hygiene guile)))
+ (#{chi\ 465}#
+ #{exp\ 3766}#
+ #{r\ 3750}#
+ '(())
+ #{mod\ 3751}#)
+ (begin
+ (let ((#{labels\ 3774}#
+ (list (#{gen-label\ 396}#)))
+ (#{var\ 3775}#
+ (#{gen-var\ 495}#
+ #{pat\ 3765}#)))
+ (#{build-application\ 304}#
#f
- (list #{var\ 3865}#)
- '()
- (#{chi\ 473}#
- #{exp\ 3857}#
- (#{extend-env\ 376}#
- #{labels\ 3864}#
- (list (cons 'syntax
- (cons #{var\ 3865}#
- 0)))
- #{r\ 3841}#)
- (#{make-binding-wrap\ 435}#
- (list #{pat\ 3856}#)
- #{labels\ 3864}#
- '(()))
- #{mod\ 3842}#))
- (list #{x\ 3838}#))))
- (#{gen-clause\ 3671}#
- #{x\ 3838}#
- #{keys\ 3839}#
- (cdr #{clauses\ 3840}#)
- #{r\ 3841}#
- #{pat\ 3856}#
+ (#{build-simple-lambda\ 322}#
+ #f
+ (list (syntax->datum
+ #{pat\ 3765}#))
+ #f
+ (list #{var\ 3775}#)
+ '()
+ (#{chi\ 465}#
+ #{exp\ 3766}#
+ (#{extend-env\ 368}#
+ #{labels\ 3774}#
+ (list (cons 'syntax
+ (cons #{var\
3775}#
+ 0)))
+ #{r\ 3750}#)
+ (#{make-binding-wrap\ 427}#
+ (list #{pat\ 3765}#)
+ #{labels\ 3774}#
+ '(()))
+ #{mod\ 3751}#))
+ (list #{x\ 3747}#)))))
+ (#{gen-clause\ 3575}#
+ #{x\ 3747}#
+ #{keys\ 3748}#
+ (cdr #{clauses\ 3749}#)
+ #{r\ 3750}#
+ #{pat\ 3765}#
#t
- #{exp\ 3857}#
- #{mod\ 3842}#)))
- #{tmp\ 3853}#)
- (let ((#{tmp\ 3871}#
+ #{exp\ 3766}#
+ #{mod\ 3751}#)))
+ #{tmp\ 3762}#)
+ (let ((#{tmp\ 3781}#
($sc-dispatch
- #{tmp\ 3852}#
+ #{tmp\ 3761}#
'(any any any))))
- (if #{tmp\ 3871}#
+ (if #{tmp\ 3781}#
(@apply
- (lambda (#{pat\ 3875}#
- #{fender\ 3876}#
- #{exp\ 3877}#)
- (#{gen-clause\ 3671}#
- #{x\ 3838}#
- #{keys\ 3839}#
- (cdr #{clauses\ 3840}#)
- #{r\ 3841}#
- #{pat\ 3875}#
- #{fender\ 3876}#
- #{exp\ 3877}#
- #{mod\ 3842}#))
- #{tmp\ 3871}#)
- (let ((#{_\ 3879}# #{tmp\ 3852}#))
+ (lambda (#{pat\ 3785}#
+ #{fender\ 3786}#
+ #{exp\ 3787}#)
+ (#{gen-clause\ 3575}#
+ #{x\ 3747}#
+ #{keys\ 3748}#
+ (cdr #{clauses\ 3749}#)
+ #{r\ 3750}#
+ #{pat\ 3785}#
+ #{fender\ 3786}#
+ #{exp\ 3787}#
+ #{mod\ 3751}#))
+ #{tmp\ 3781}#)
+ (let ((#{_\ 3789}# #{tmp\ 3761}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3840}#))))))))))))
+ (car #{clauses\ 3749}#))))))))))))
(begin
- (lambda (#{e\ 3880}#
- #{r\ 3881}#
- #{w\ 3882}#
- #{s\ 3883}#
- #{mod\ 3884}#)
+ (lambda (#{e\ 3790}#
+ #{r\ 3791}#
+ #{w\ 3792}#
+ #{s\ 3793}#
+ #{mod\ 3794}#)
(begin
- (let ((#{e\ 3891}#
- (#{source-wrap\ 459}#
- #{e\ 3880}#
- #{w\ 3882}#
- #{s\ 3883}#
- #{mod\ 3884}#)))
- (let ((#{tmp\ 3892}# #{e\ 3891}#))
- (let ((#{tmp\ 3893}#
+ (let ((#{e\ 3801}#
+ (#{source-wrap\ 451}#
+ #{e\ 3790}#
+ #{w\ 3792}#
+ #{s\ 3793}#
+ #{mod\ 3794}#)))
+ (let ((#{tmp\ 3802}# #{e\ 3801}#))
+ (let ((#{tmp\ 3803}#
($sc-dispatch
- #{tmp\ 3892}#
- '(any any each-any . each-any))))
- (if #{tmp\ 3893}#
+ #{tmp\ 3802}#
+ '(_ any each-any . each-any))))
+ (if #{tmp\ 3803}#
(@apply
- (lambda (#{_\ 3898}#
- #{val\ 3899}#
- #{key\ 3900}#
- #{m\ 3901}#)
+ (lambda (#{val\ 3807}#
+ #{key\ 3808}#
+ #{m\ 3809}#)
(if (and-map
- (lambda (#{x\ 3902}#)
- (if (#{id?\ 388}# #{x\ 3902}#)
- (not (#{ellipsis?\ 489}#
- #{x\ 3902}#))
+ (lambda (#{x\ 3810}#)
+ (if (#{id?\ 380}# #{x\ 3810}#)
+ (if (not (#{ellipsis?\ 481}#
+ #{x\ 3810}#))
+ (not (#{underscore?\ 483}#
+ #{x\ 3810}#))
+ #f)
#f))
- #{key\ 3900}#)
+ #{key\ 3808}#)
(begin
- (let ((#{x\ 3908}#
- (#{gen-var\ 501}# (quote tmp))))
- (#{build-application\ 312}#
- #{s\ 3883}#
- (#{build-simple-lambda\ 330}#
+ (let ((#{x\ 3817}#
+ (#{gen-var\ 495}# (quote tmp))))
+ (#{build-application\ 304}#
+ #{s\ 3793}#
+ (#{build-simple-lambda\ 322}#
#f
(list (quote tmp))
#f
- (list #{x\ 3908}#)
+ (list #{x\ 3817}#)
'()
- (#{gen-syntax-case\ 3673}#
- (#{build-lexical-reference\ 318}#
+ (#{gen-syntax-case\ 3577}#
+ (#{build-lexical-reference\ 310}#
'value
#f
'tmp
- #{x\ 3908}#)
- #{key\ 3900}#
- #{m\ 3901}#
- #{r\ 3881}#
- #{mod\ 3884}#))
- (list (#{chi\ 473}#
- #{val\ 3899}#
- #{r\ 3881}#
+ #{x\ 3817}#)
+ #{key\ 3808}#
+ #{m\ 3809}#
+ #{r\ 3791}#
+ #{mod\ 3794}#))
+ (list (#{chi\ 465}#
+ #{val\ 3807}#
+ #{r\ 3791}#
'(())
- #{mod\ 3884}#)))))
+ #{mod\ 3794}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3891}#)))
- #{tmp\ 3893}#)
+ #{e\ 3801}#)))
+ #{tmp\ 3803}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3892}#))))))))))
+ #{tmp\ 3802}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 3914}#
+ (#{x\ 3823}#
#:optional
- (#{m\ 3916}# (quote e))
- (#{esew\ 3918}# (quote (eval))))
- (#{chi-top\ 471}#
- #{x\ 3914}#
+ (#{m\ 3825}# (quote e))
+ (#{esew\ 3827}# (quote (eval))))
+ (#{chi-top\ 463}#
+ #{x\ 3823}#
'()
'((top))
- #{m\ 3916}#
- #{esew\ 3918}#
+ #{m\ 3825}#
+ #{esew\ 3827}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3922}#)
- (#{nonsymbol-id?\ 386}# #{x\ 3922}#)))
+ (lambda (#{x\ 3831}#)
+ (#{nonsymbol-id?\ 378}# #{x\ 3831}#)))
(set! datum->syntax
- (lambda (#{id\ 3924}# #{datum\ 3925}#)
- (#{make-syntax-object\ 350}#
- #{datum\ 3925}#
- (#{syntax-object-wrap\ 356}# #{id\ 3924}#)
- (#{syntax-object-module\ 358}# #{id\ 3924}#))))
+ (lambda (#{id\ 3833}# #{datum\ 3834}#)
+ (#{make-syntax-object\ 342}#
+ #{datum\ 3834}#
+ (#{syntax-object-wrap\ 348}# #{id\ 3833}#)
+ (#{syntax-object-module\ 350}# #{id\ 3833}#))))
(set! syntax->datum
- (lambda (#{x\ 3928}#)
- (#{strip\ 499}# #{x\ 3928}# (quote (())))))
+ (lambda (#{x\ 3837}#)
+ (#{strip\ 493}# #{x\ 3837}# (quote (())))))
(set! syntax-source
- (lambda (#{x\ 3931}#)
- (#{source-annotation\ 367}# #{x\ 3931}#)))
+ (lambda (#{x\ 3840}#)
+ (#{source-annotation\ 359}# #{x\ 3840}#)))
(set! generate-temporaries
- (lambda (#{ls\ 3933}#)
+ (lambda (#{ls\ 3842}#)
(begin
(begin
- (let ((#{x\ 3937}# #{ls\ 3933}#))
- (if (not (list? #{x\ 3937}#))
+ (let ((#{x\ 3846}# #{ls\ 3842}#))
+ (if (not (list? #{x\ 3846}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3937}#))))
- (map (lambda (#{x\ 3938}#)
- (#{wrap\ 457}# (gensym) (quote ((top))) #f))
- #{ls\ 3933}#))))
+ #{x\ 3846}#))))
+ (map (lambda (#{x\ 3847}#)
+ (#{wrap\ 449}# (gensym) (quote ((top))) #f))
+ #{ls\ 3842}#))))
(set! free-identifier=?
- (lambda (#{x\ 3942}# #{y\ 3943}#)
+ (lambda (#{x\ 3851}# #{y\ 3852}#)
(begin
(begin
- (let ((#{x\ 3948}# #{x\ 3942}#))
- (if (not (#{nonsymbol-id?\ 386}# #{x\ 3948}#))
+ (let ((#{x\ 3857}# #{x\ 3851}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3857}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3948}#))))
+ #{x\ 3857}#))))
(begin
- (let ((#{x\ 3951}# #{y\ 3943}#))
- (if (not (#{nonsymbol-id?\ 386}# #{x\ 3951}#))
+ (let ((#{x\ 3860}# #{y\ 3852}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3860}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3951}#))))
- (#{free-id=?\ 447}# #{x\ 3942}# #{y\ 3943}#))))
+ #{x\ 3860}#))))
+ (#{free-id=?\ 439}# #{x\ 3851}# #{y\ 3852}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3952}# #{y\ 3953}#)
+ (lambda (#{x\ 3861}# #{y\ 3862}#)
(begin
(begin
- (let ((#{x\ 3958}# #{x\ 3952}#))
- (if (not (#{nonsymbol-id?\ 386}# #{x\ 3958}#))
+ (let ((#{x\ 3867}# #{x\ 3861}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3867}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3958}#))))
+ #{x\ 3867}#))))
(begin
- (let ((#{x\ 3961}# #{y\ 3953}#))
- (if (not (#{nonsymbol-id?\ 386}# #{x\ 3961}#))
+ (let ((#{x\ 3870}# #{y\ 3862}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3870}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3961}#))))
- (#{bound-id=?\ 449}# #{x\ 3952}# #{y\ 3953}#))))
+ #{x\ 3870}#))))
+ (#{bound-id=?\ 441}# #{x\ 3861}# #{y\ 3862}#))))
(set! syntax-violation
- (lambda (#{who\ 3962}#
- #{message\ 3963}#
- #{form\ 3964}#
+ (lambda (#{who\ 3871}#
+ #{message\ 3872}#
+ #{form\ 3873}#
.
- #{subform\ 3965}#)
+ #{subform\ 3874}#)
(begin
(begin
- (let ((#{x\ 3972}# #{who\ 3962}#))
- (if (not (let ((#{x\ 3973}# #{x\ 3972}#))
+ (let ((#{x\ 3881}# #{who\ 3871}#))
+ (if (not (let ((#{x\ 3882}# #{x\ 3881}#))
(begin
- (let ((#{t\ 3977}# (not #{x\ 3973}#)))
- (if #{t\ 3977}#
- #{t\ 3977}#
+ (let ((#{t\ 3886}# (not #{x\ 3882}#)))
+ (if #{t\ 3886}#
+ #{t\ 3886}#
(begin
- (let ((#{t\ 3980}#
- (string? #{x\ 3973}#)))
- (if #{t\ 3980}#
- #{t\ 3980}#
- (symbol? #{x\ 3973}#)))))))))
+ (let ((#{t\ 3889}#
+ (string? #{x\ 3882}#)))
+ (if #{t\ 3889}#
+ #{t\ 3889}#
+ (symbol? #{x\ 3882}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3972}#))))
+ #{x\ 3881}#))))
(begin
- (let ((#{x\ 3984}# #{message\ 3963}#))
- (if (not (string? #{x\ 3984}#))
+ (let ((#{x\ 3893}# #{message\ 3872}#))
+ (if (not (string? #{x\ 3893}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3984}#))))
+ #{x\ 3893}#))))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 3962}# "~a: " "")
+ (if #{who\ 3871}# "~a: " "")
"~a "
- (if (null? #{subform\ 3965}#)
+ (if (null? #{subform\ 3874}#)
"in ~a"
"in subform `~s' of `~s'"))
(begin
- (let ((#{tail\ 3986}#
- (cons #{message\ 3963}#
- (map (lambda (#{x\ 3987}#)
- (#{strip\ 499}#
- #{x\ 3987}#
+ (let ((#{tail\ 3895}#
+ (cons #{message\ 3872}#
+ (map (lambda (#{x\ 3896}#)
+ (#{strip\ 493}#
+ #{x\ 3896}#
'(())))
(append
- #{subform\ 3965}#
- (list #{form\ 3964}#))))))
- (if #{who\ 3962}#
- (cons #{who\ 3962}# #{tail\ 3986}#)
- #{tail\ 3986}#)))
+ #{subform\ 3874}#
+ (list #{form\ 3873}#))))))
+ (if #{who\ 3871}#
+ (cons #{who\ 3871}# #{tail\ 3895}#)
+ #{tail\ 3895}#)))
#f))))
(letrec*
- ((#{match-each\ 3991}#
- (lambda (#{e\ 4004}#
- #{p\ 4005}#
- #{w\ 4006}#
- #{mod\ 4007}#)
- (if (pair? #{e\ 4004}#)
+ ((#{match-each\ 3900}#
+ (lambda (#{e\ 3913}#
+ #{p\ 3914}#
+ #{w\ 3915}#
+ #{mod\ 3916}#)
+ (if (pair? #{e\ 3913}#)
(begin
- (let ((#{first\ 4015}#
- (#{match\ 4003}#
- (car #{e\ 4004}#)
- #{p\ 4005}#
- #{w\ 4006}#
+ (let ((#{first\ 3924}#
+ (#{match\ 3912}#
+ (car #{e\ 3913}#)
+ #{p\ 3914}#
+ #{w\ 3915}#
'()
- #{mod\ 4007}#)))
- (if #{first\ 4015}#
+ #{mod\ 3916}#)))
+ (if #{first\ 3924}#
(begin
- (let ((#{rest\ 4019}#
- (#{match-each\ 3991}#
- (cdr #{e\ 4004}#)
- #{p\ 4005}#
- #{w\ 4006}#
- #{mod\ 4007}#)))
- (if #{rest\ 4019}#
- (cons #{first\ 4015}# #{rest\ 4019}#)
+ (let ((#{rest\ 3928}#
+ (#{match-each\ 3900}#
+ (cdr #{e\ 3913}#)
+ #{p\ 3914}#
+ #{w\ 3915}#
+ #{mod\ 3916}#)))
+ (if #{rest\ 3928}#
+ (cons #{first\ 3924}# #{rest\ 3928}#)
#f)))
#f)))
- (if (null? #{e\ 4004}#)
+ (if (null? #{e\ 3913}#)
'()
- (if (#{syntax-object?\ 352}# #{e\ 4004}#)
- (#{match-each\ 3991}#
- (#{syntax-object-expression\ 354}# #{e\ 4004}#)
- #{p\ 4005}#
- (#{join-wraps\ 439}#
- #{w\ 4006}#
- (#{syntax-object-wrap\ 356}# #{e\ 4004}#))
- (#{syntax-object-module\ 358}# #{e\ 4004}#))
+ (if (#{syntax-object?\ 344}# #{e\ 3913}#)
+ (#{match-each\ 3900}#
+ (#{syntax-object-expression\ 346}# #{e\ 3913}#)
+ #{p\ 3914}#
+ (#{join-wraps\ 431}#
+ #{w\ 3915}#
+ (#{syntax-object-wrap\ 348}# #{e\ 3913}#))
+ (#{syntax-object-module\ 350}# #{e\ 3913}#))
#f)))))
- (#{match-each+\ 3993}#
- (lambda (#{e\ 4027}#
- #{x-pat\ 4028}#
- #{y-pat\ 4029}#
- #{z-pat\ 4030}#
- #{w\ 4031}#
- #{r\ 4032}#
- #{mod\ 4033}#)
+ (#{match-each+\ 3902}#
+ (lambda (#{e\ 3936}#
+ #{x-pat\ 3937}#
+ #{y-pat\ 3938}#
+ #{z-pat\ 3939}#
+ #{w\ 3940}#
+ #{r\ 3941}#
+ #{mod\ 3942}#)
(letrec*
- ((#{f\ 4044}#
- (lambda (#{e\ 4045}# #{w\ 4046}#)
- (if (pair? #{e\ 4045}#)
+ ((#{f\ 3953}#
+ (lambda (#{e\ 3954}# #{w\ 3955}#)
+ (if (pair? #{e\ 3954}#)
(call-with-values
(lambda ()
- (#{f\ 4044}# (cdr #{e\ 4045}#) #{w\ 4046}#))
- (lambda (#{xr*\ 4049}#
- #{y-pat\ 4050}#
- #{r\ 4051}#)
- (if #{r\ 4051}#
- (if (null? #{y-pat\ 4050}#)
+ (#{f\ 3953}# (cdr #{e\ 3954}#) #{w\ 3955}#))
+ (lambda (#{xr*\ 3958}#
+ #{y-pat\ 3959}#
+ #{r\ 3960}#)
+ (if #{r\ 3960}#
+ (if (null? #{y-pat\ 3959}#)
(begin
- (let ((#{xr\ 4056}#
- (#{match\ 4003}#
- (car #{e\ 4045}#)
- #{x-pat\ 4028}#
- #{w\ 4046}#
+ (let ((#{xr\ 3965}#
+ (#{match\ 3912}#
+ (car #{e\ 3954}#)
+ #{x-pat\ 3937}#
+ #{w\ 3955}#
'()
- #{mod\ 4033}#)))
- (if #{xr\ 4056}#
+ #{mod\ 3942}#)))
+ (if #{xr\ 3965}#
(values
- (cons #{xr\ 4056}# #{xr*\ 4049}#)
- #{y-pat\ 4050}#
- #{r\ 4051}#)
+ (cons #{xr\ 3965}# #{xr*\ 3958}#)
+ #{y-pat\ 3959}#
+ #{r\ 3960}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat\ 4050}#)
- (#{match\ 4003}#
- (car #{e\ 4045}#)
- (car #{y-pat\ 4050}#)
- #{w\ 4046}#
- #{r\ 4051}#
- #{mod\ 4033}#)))
+ (cdr #{y-pat\ 3959}#)
+ (#{match\ 3912}#
+ (car #{e\ 3954}#)
+ (car #{y-pat\ 3959}#)
+ #{w\ 3955}#
+ #{r\ 3960}#
+ #{mod\ 3942}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 352}# #{e\ 4045}#)
- (#{f\ 4044}#
- (#{syntax-object-expression\ 354}# #{e\ 4045}#)
- (#{join-wraps\ 439}# #{w\ 4046}# #{e\ 4045}#))
+ (if (#{syntax-object?\ 344}# #{e\ 3954}#)
+ (#{f\ 3953}#
+ (#{syntax-object-expression\ 346}# #{e\ 3954}#)
+ (#{join-wraps\ 431}# #{w\ 3955}# #{e\ 3954}#))
(values
'()
- #{y-pat\ 4029}#
- (#{match\ 4003}#
- #{e\ 4045}#
- #{z-pat\ 4030}#
- #{w\ 4046}#
- #{r\ 4032}#
- #{mod\ 4033}#)))))))
- (begin (#{f\ 4044}# #{e\ 4027}# #{w\ 4031}#)))))
- (#{match-each-any\ 3995}#
- (lambda (#{e\ 4060}# #{w\ 4061}# #{mod\ 4062}#)
- (if (pair? #{e\ 4060}#)
+ #{y-pat\ 3938}#
+ (#{match\ 3912}#
+ #{e\ 3954}#
+ #{z-pat\ 3939}#
+ #{w\ 3955}#
+ #{r\ 3941}#
+ #{mod\ 3942}#)))))))
+ (begin (#{f\ 3953}# #{e\ 3936}# #{w\ 3940}#)))))
+ (#{match-each-any\ 3904}#
+ (lambda (#{e\ 3969}# #{w\ 3970}# #{mod\ 3971}#)
+ (if (pair? #{e\ 3969}#)
(begin
- (let ((#{l\ 4069}#
- (#{match-each-any\ 3995}#
- (cdr #{e\ 4060}#)
- #{w\ 4061}#
- #{mod\ 4062}#)))
- (if #{l\ 4069}#
- (cons (#{wrap\ 457}#
- (car #{e\ 4060}#)
- #{w\ 4061}#
- #{mod\ 4062}#)
- #{l\ 4069}#)
+ (let ((#{l\ 3978}#
+ (#{match-each-any\ 3904}#
+ (cdr #{e\ 3969}#)
+ #{w\ 3970}#
+ #{mod\ 3971}#)))
+ (if #{l\ 3978}#
+ (cons (#{wrap\ 449}#
+ (car #{e\ 3969}#)
+ #{w\ 3970}#
+ #{mod\ 3971}#)
+ #{l\ 3978}#)
#f)))
- (if (null? #{e\ 4060}#)
+ (if (null? #{e\ 3969}#)
'()
- (if (#{syntax-object?\ 352}# #{e\ 4060}#)
- (#{match-each-any\ 3995}#
- (#{syntax-object-expression\ 354}# #{e\ 4060}#)
- (#{join-wraps\ 439}#
- #{w\ 4061}#
- (#{syntax-object-wrap\ 356}# #{e\ 4060}#))
- #{mod\ 4062}#)
+ (if (#{syntax-object?\ 344}# #{e\ 3969}#)
+ (#{match-each-any\ 3904}#
+ (#{syntax-object-expression\ 346}# #{e\ 3969}#)
+ (#{join-wraps\ 431}#
+ #{w\ 3970}#
+ (#{syntax-object-wrap\ 348}# #{e\ 3969}#))
+ #{mod\ 3971}#)
#f)))))
- (#{match-empty\ 3997}#
- (lambda (#{p\ 4077}# #{r\ 4078}#)
- (if (null? #{p\ 4077}#)
- #{r\ 4078}#
- (if (eq? #{p\ 4077}# (quote any))
- (cons (quote ()) #{r\ 4078}#)
- (if (pair? #{p\ 4077}#)
- (#{match-empty\ 3997}#
- (car #{p\ 4077}#)
- (#{match-empty\ 3997}#
- (cdr #{p\ 4077}#)
- #{r\ 4078}#))
- (if (eq? #{p\ 4077}# (quote each-any))
- (cons (quote ()) #{r\ 4078}#)
- (begin
- (let ((#{atom-key\ 4092}#
- (vector-ref #{p\ 4077}# 0)))
- (if (eqv? #{atom-key\ 4092}# (quote each))
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4077}# 1)
- #{r\ 4078}#)
- (if (eqv? #{atom-key\ 4092}# (quote each+))
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4077}# 1)
- (#{match-empty\ 3997}#
- (reverse (vector-ref #{p\ 4077}# 2))
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4077}# 3)
- #{r\ 4078}#)))
- (if (if (eqv? #{atom-key\ 4092}#
- 'free-id)
- #t
- (eqv? #{atom-key\ 4092}#
- 'atom))
- #{r\ 4078}#
- (if (eqv? #{atom-key\ 4092}#
- 'vector)
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4077}# 1)
- #{r\ 4078}#)))))))))))))
- (#{combine\ 3999}#
- (lambda (#{r*\ 4097}# #{r\ 4098}#)
- (if (null? (car #{r*\ 4097}#))
- #{r\ 4098}#
- (cons (map car #{r*\ 4097}#)
- (#{combine\ 3999}#
- (map cdr #{r*\ 4097}#)
- #{r\ 4098}#)))))
- (#{match*\ 4001}#
- (lambda (#{e\ 4101}#
- #{p\ 4102}#
- #{w\ 4103}#
- #{r\ 4104}#
- #{mod\ 4105}#)
- (if (null? #{p\ 4102}#)
- (if (null? #{e\ 4101}#) #{r\ 4104}# #f)
- (if (pair? #{p\ 4102}#)
- (if (pair? #{e\ 4101}#)
- (#{match\ 4003}#
- (car #{e\ 4101}#)
- (car #{p\ 4102}#)
- #{w\ 4103}#
- (#{match\ 4003}#
- (cdr #{e\ 4101}#)
- (cdr #{p\ 4102}#)
- #{w\ 4103}#
- #{r\ 4104}#
- #{mod\ 4105}#)
- #{mod\ 4105}#)
+ (#{match-empty\ 3906}#
+ (lambda (#{p\ 3986}# #{r\ 3987}#)
+ (if (null? #{p\ 3986}#)
+ #{r\ 3987}#
+ (if (eq? #{p\ 3986}# (quote _))
+ #{r\ 3987}#
+ (if (eq? #{p\ 3986}# (quote any))
+ (cons (quote ()) #{r\ 3987}#)
+ (if (pair? #{p\ 3986}#)
+ (#{match-empty\ 3906}#
+ (car #{p\ 3986}#)
+ (#{match-empty\ 3906}#
+ (cdr #{p\ 3986}#)
+ #{r\ 3987}#))
+ (if (eq? #{p\ 3986}# (quote each-any))
+ (cons (quote ()) #{r\ 3987}#)
+ (begin
+ (let ((#{atom-key\ 4003}#
+ (vector-ref #{p\ 3986}# 0)))
+ (if (eqv? #{atom-key\ 4003}# (quote each))
+ (#{match-empty\ 3906}#
+ (vector-ref #{p\ 3986}# 1)
+ #{r\ 3987}#)
+ (if (eqv? #{atom-key\ 4003}# (quote each+))
+ (#{match-empty\ 3906}#
+ (vector-ref #{p\ 3986}# 1)
+ (#{match-empty\ 3906}#
+ (reverse (vector-ref #{p\ 3986}# 2))
+ (#{match-empty\ 3906}#
+ (vector-ref #{p\ 3986}# 3)
+ #{r\ 3987}#)))
+ (if (if (eqv? #{atom-key\ 4003}#
+ 'free-id)
+ #t
+ (eqv? #{atom-key\ 4003}#
+ 'atom))
+ #{r\ 3987}#
+ (if (eqv? #{atom-key\ 4003}#
+ 'vector)
+ (#{match-empty\ 3906}#
+ (vector-ref #{p\ 3986}# 1)
+ #{r\ 3987}#))))))))))))))
+ (#{combine\ 3908}#
+ (lambda (#{r*\ 4008}# #{r\ 4009}#)
+ (if (null? (car #{r*\ 4008}#))
+ #{r\ 4009}#
+ (cons (map car #{r*\ 4008}#)
+ (#{combine\ 3908}#
+ (map cdr #{r*\ 4008}#)
+ #{r\ 4009}#)))))
+ (#{match*\ 3910}#
+ (lambda (#{e\ 4012}#
+ #{p\ 4013}#
+ #{w\ 4014}#
+ #{r\ 4015}#
+ #{mod\ 4016}#)
+ (if (null? #{p\ 4013}#)
+ (if (null? #{e\ 4012}#) #{r\ 4015}# #f)
+ (if (pair? #{p\ 4013}#)
+ (if (pair? #{e\ 4012}#)
+ (#{match\ 3912}#
+ (car #{e\ 4012}#)
+ (car #{p\ 4013}#)
+ #{w\ 4014}#
+ (#{match\ 3912}#
+ (cdr #{e\ 4012}#)
+ (cdr #{p\ 4013}#)
+ #{w\ 4014}#
+ #{r\ 4015}#
+ #{mod\ 4016}#)
+ #{mod\ 4016}#)
#f)
- (if (eq? #{p\ 4102}# (quote each-any))
+ (if (eq? #{p\ 4013}# (quote each-any))
(begin
- (let ((#{l\ 4122}#
- (#{match-each-any\ 3995}#
- #{e\ 4101}#
- #{w\ 4103}#
- #{mod\ 4105}#)))
- (if #{l\ 4122}#
- (cons #{l\ 4122}# #{r\ 4104}#)
+ (let ((#{l\ 4033}#
+ (#{match-each-any\ 3904}#
+ #{e\ 4012}#
+ #{w\ 4014}#
+ #{mod\ 4016}#)))
+ (if #{l\ 4033}#
+ (cons #{l\ 4033}# #{r\ 4015}#)
#f)))
(begin
- (let ((#{atom-key\ 4128}#
- (vector-ref #{p\ 4102}# 0)))
- (if (eqv? #{atom-key\ 4128}# (quote each))
- (if (null? #{e\ 4101}#)
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4102}# 1)
- #{r\ 4104}#)
+ (let ((#{atom-key\ 4039}#
+ (vector-ref #{p\ 4013}# 0)))
+ (if (eqv? #{atom-key\ 4039}# (quote each))
+ (if (null? #{e\ 4012}#)
+ (#{match-empty\ 3906}#
+ (vector-ref #{p\ 4013}# 1)
+ #{r\ 4015}#)
(begin
- (let ((#{l\ 4131}#
- (#{match-each\ 3991}#
- #{e\ 4101}#
- (vector-ref #{p\ 4102}# 1)
- #{w\ 4103}#
- #{mod\ 4105}#)))
- (if #{l\ 4131}#
+ (let ((#{l\ 4042}#
+ (#{match-each\ 3900}#
+ #{e\ 4012}#
+ (vector-ref #{p\ 4013}# 1)
+ #{w\ 4014}#
+ #{mod\ 4016}#)))
+ (if #{l\ 4042}#
(letrec*
- ((#{collect\ 4136}#
- (lambda (#{l\ 4137}#)
- (if (null? (car #{l\ 4137}#))
- #{r\ 4104}#
- (cons (map car #{l\ 4137}#)
- (#{collect\ 4136}#
+ ((#{collect\ 4047}#
+ (lambda (#{l\ 4048}#)
+ (if (null? (car #{l\ 4048}#))
+ #{r\ 4015}#
+ (cons (map car #{l\ 4048}#)
+ (#{collect\ 4047}#
(map cdr
- #{l\ 4137}#)))))))
+ #{l\ 4048}#)))))))
(begin
- (#{collect\ 4136}# #{l\ 4131}#)))
+ (#{collect\ 4047}# #{l\ 4042}#)))
#f))))
- (if (eqv? #{atom-key\ 4128}# (quote each+))
+ (if (eqv? #{atom-key\ 4039}# (quote each+))
(call-with-values
(lambda ()
- (#{match-each+\ 3993}#
- #{e\ 4101}#
- (vector-ref #{p\ 4102}# 1)
- (vector-ref #{p\ 4102}# 2)
- (vector-ref #{p\ 4102}# 3)
- #{w\ 4103}#
- #{r\ 4104}#
- #{mod\ 4105}#))
- (lambda (#{xr*\ 4139}#
- #{y-pat\ 4140}#
- #{r\ 4141}#)
- (if #{r\ 4141}#
- (if (null? #{y-pat\ 4140}#)
- (if (null? #{xr*\ 4139}#)
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4102}# 1)
- #{r\ 4141}#)
- (#{combine\ 3999}#
- #{xr*\ 4139}#
- #{r\ 4141}#))
+ (#{match-each+\ 3902}#
+ #{e\ 4012}#
+ (vector-ref #{p\ 4013}# 1)
+ (vector-ref #{p\ 4013}# 2)
+ (vector-ref #{p\ 4013}# 3)
+ #{w\ 4014}#
+ #{r\ 4015}#
+ #{mod\ 4016}#))
+ (lambda (#{xr*\ 4050}#
+ #{y-pat\ 4051}#
+ #{r\ 4052}#)
+ (if #{r\ 4052}#
+ (if (null? #{y-pat\ 4051}#)
+ (if (null? #{xr*\ 4050}#)
+ (#{match-empty\ 3906}#
+ (vector-ref #{p\ 4013}# 1)
+ #{r\ 4052}#)
+ (#{combine\ 3908}#
+ #{xr*\ 4050}#
+ #{r\ 4052}#))
#f)
#f)))
- (if (eqv? #{atom-key\ 4128}# (quote free-id))
- (if (#{id?\ 388}# #{e\ 4101}#)
- (if (#{free-id=?\ 447}#
- (#{wrap\ 457}#
- #{e\ 4101}#
- #{w\ 4103}#
- #{mod\ 4105}#)
- (vector-ref #{p\ 4102}# 1))
- #{r\ 4104}#
+ (if (eqv? #{atom-key\ 4039}# (quote free-id))
+ (if (#{id?\ 380}# #{e\ 4012}#)
+ (if (#{free-id=?\ 439}#
+ (#{wrap\ 449}#
+ #{e\ 4012}#
+ #{w\ 4014}#
+ #{mod\ 4016}#)
+ (vector-ref #{p\ 4013}# 1))
+ #{r\ 4015}#
#f)
#f)
- (if (eqv? #{atom-key\ 4128}# (quote atom))
+ (if (eqv? #{atom-key\ 4039}# (quote atom))
(if (equal?
- (vector-ref #{p\ 4102}# 1)
- (#{strip\ 499}#
- #{e\ 4101}#
- #{w\ 4103}#))
- #{r\ 4104}#
+ (vector-ref #{p\ 4013}# 1)
+ (#{strip\ 493}#
+ #{e\ 4012}#
+ #{w\ 4014}#))
+ #{r\ 4015}#
#f)
- (if (eqv? #{atom-key\ 4128}#
+ (if (eqv? #{atom-key\ 4039}#
'vector)
- (if (vector? #{e\ 4101}#)
- (#{match\ 4003}#
- (vector->list #{e\ 4101}#)
- (vector-ref #{p\ 4102}# 1)
- #{w\ 4103}#
- #{r\ 4104}#
- #{mod\ 4105}#)
+ (if (vector? #{e\ 4012}#)
+ (#{match\ 3912}#
+ (vector->list #{e\ 4012}#)
+ (vector-ref #{p\ 4013}# 1)
+ #{w\ 4014}#
+ #{r\ 4015}#
+ #{mod\ 4016}#)
#f)))))))))))))
- (#{match\ 4003}#
- (lambda (#{e\ 4158}#
- #{p\ 4159}#
- #{w\ 4160}#
- #{r\ 4161}#
- #{mod\ 4162}#)
- (if (not #{r\ 4161}#)
+ (#{match\ 3912}#
+ (lambda (#{e\ 4069}#
+ #{p\ 4070}#
+ #{w\ 4071}#
+ #{r\ 4072}#
+ #{mod\ 4073}#)
+ (if (not #{r\ 4072}#)
#f
- (if (eq? #{p\ 4159}# (quote any))
- (cons (#{wrap\ 457}#
- #{e\ 4158}#
- #{w\ 4160}#
- #{mod\ 4162}#)
- #{r\ 4161}#)
- (if (#{syntax-object?\ 352}# #{e\ 4158}#)
- (#{match*\ 4001}#
- (#{syntax-object-expression\ 354}# #{e\ 4158}#)
- #{p\ 4159}#
- (#{join-wraps\ 439}#
- #{w\ 4160}#
- (#{syntax-object-wrap\ 356}# #{e\ 4158}#))
- #{r\ 4161}#
- (#{syntax-object-module\ 358}# #{e\ 4158}#))
- (#{match*\ 4001}#
- #{e\ 4158}#
- #{p\ 4159}#
- #{w\ 4160}#
- #{r\ 4161}#
- #{mod\ 4162}#)))))))
+ (if (eq? #{p\ 4070}# (quote _))
+ #{r\ 4072}#
+ (if (eq? #{p\ 4070}# (quote any))
+ (cons (#{wrap\ 449}#
+ #{e\ 4069}#
+ #{w\ 4071}#
+ #{mod\ 4073}#)
+ #{r\ 4072}#)
+ (if (#{syntax-object?\ 344}# #{e\ 4069}#)
+ (#{match*\ 3910}#
+ (#{syntax-object-expression\ 346}# #{e\ 4069}#)
+ #{p\ 4070}#
+ (#{join-wraps\ 431}#
+ #{w\ 4071}#
+ (#{syntax-object-wrap\ 348}# #{e\ 4069}#))
+ #{r\ 4072}#
+ (#{syntax-object-module\ 350}# #{e\ 4069}#))
+ (#{match*\ 3910}#
+ #{e\ 4069}#
+ #{p\ 4070}#
+ #{w\ 4071}#
+ #{r\ 4072}#
+ #{mod\ 4073}#))))))))
(begin
(set! $sc-dispatch
- (lambda (#{e\ 4175}# #{p\ 4176}#)
- (if (eq? #{p\ 4176}# (quote any))
- (list #{e\ 4175}#)
- (if (#{syntax-object?\ 352}# #{e\ 4175}#)
- (#{match*\ 4001}#
- (#{syntax-object-expression\ 354}# #{e\ 4175}#)
- #{p\ 4176}#
- (#{syntax-object-wrap\ 356}# #{e\ 4175}#)
- '()
- (#{syntax-object-module\ 358}# #{e\ 4175}#))
- (#{match*\ 4001}#
- #{e\ 4175}#
- #{p\ 4176}#
- '(())
- '()
- #f)))))))))))))
+ (lambda (#{e\ 4088}# #{p\ 4089}#)
+ (if (eq? #{p\ 4089}# (quote any))
+ (list #{e\ 4088}#)
+ (if (eq? #{p\ 4089}# (quote _))
+ '()
+ (if (#{syntax-object?\ 344}# #{e\ 4088}#)
+ (#{match*\ 3910}#
+ (#{syntax-object-expression\ 346}# #{e\ 4088}#)
+ #{p\ 4089}#
+ (#{syntax-object-wrap\ 348}# #{e\ 4088}#)
+ '()
+ (#{syntax-object-module\ 350}# #{e\ 4088}#))
+ (#{match*\ 3910}#
+ #{e\ 4088}#
+ #{p\ 4089}#
+ '(())
+ '()
+ #f))))))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4185}#)
- (let ((#{tmp\ 4187}# #{x\ 4185}#))
- (let ((#{tmp\ 4188}#
+ (lambda (#{x\ 4100}#)
+ (let ((#{tmp\ 4102}# #{x\ 4100}#))
+ (let ((#{tmp\ 4103}#
($sc-dispatch
- #{tmp\ 4187}#
- '(any () any . each-any))))
- (if #{tmp\ 4188}#
+ #{tmp\ 4102}#
+ '(_ () any . each-any))))
+ (if #{tmp\ 4103}#
(@apply
- (lambda (#{_\ 4192}# #{e1\ 4193}# #{e2\ 4194}#)
+ (lambda (#{e1\ 4106}# #{e2\ 4107}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
- #(_ e1 e2)
- #((top) (top) (top))
- #("i4189" "i4190" "i4191"))
+ #(e1 e2)
+ #((top) (top))
+ #("i4104" "i4105"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i4101")))
(hygiene guile))
- (cons #{e1\ 4193}# #{e2\ 4194}#)))
- #{tmp\ 4188}#)
- (let ((#{tmp\ 4196}#
+ (cons #{e1\ 4106}# #{e2\ 4107}#)))
+ #{tmp\ 4103}#)
+ (let ((#{tmp\ 4109}#
($sc-dispatch
- #{tmp\ 4187}#
- '(any ((any any)) any . each-any))))
- (if #{tmp\ 4196}#
+ #{tmp\ 4102}#
+ '(_ ((any any)) any . each-any))))
+ (if #{tmp\ 4109}#
(@apply
- (lambda (#{_\ 4202}#
- #{out\ 4203}#
- #{in\ 4204}#
- #{e1\ 4205}#
- #{e2\ 4206}#)
+ (lambda (#{out\ 4114}#
+ #{in\ 4115}#
+ #{e1\ 4116}#
+ #{e2\ 4117}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4197" "i4198" "i4199" "i4200" "i4201"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4110" "i4111" "i4112" "i4113"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i4101")))
(hygiene guile))
- #{in\ 4204}#
+ #{in\ 4115}#
'()
- (list #{out\ 4203}#
+ (list #{out\ 4114}#
(cons '#(syntax-object
begin
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4197"
- "i4198"
- "i4199"
- "i4200"
- "i4201"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4110" "i4111" "i4112" "i4113"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i4101")))
(hygiene guile))
- (cons #{e1\ 4205}# #{e2\ 4206}#)))))
- #{tmp\ 4196}#)
- (let ((#{tmp\ 4208}#
+ (cons #{e1\ 4116}# #{e2\ 4117}#)))))
+ #{tmp\ 4109}#)
+ (let ((#{tmp\ 4119}#
($sc-dispatch
- #{tmp\ 4187}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 4208}#
+ #{tmp\ 4102}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp\ 4119}#
(@apply
- (lambda (#{_\ 4214}#
- #{out\ 4215}#
- #{in\ 4216}#
- #{e1\ 4217}#
- #{e2\ 4218}#)
+ (lambda (#{out\ 4124}#
+ #{in\ 4125}#
+ #{e1\ 4126}#
+ #{e2\ 4127}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4209" "i4210" "i4211" "i4212" "i4213"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4120" "i4121" "i4122" "i4123"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i4101")))
(hygiene guile))
(cons '#(syntax-object
list
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4209"
- "i4210"
- "i4211"
- "i4212"
- "i4213"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4120" "i4121" "i4122" "i4123"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i4101")))
(hygiene guile))
- #{in\ 4216}#)
+ #{in\ 4125}#)
'()
- (list #{out\ 4215}#
+ (list #{out\ 4124}#
(cons '#(syntax-object
begin
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4209"
- "i4210"
- "i4211"
- "i4212"
- "i4213"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4120"
+ "i4121"
+ "i4122"
+ "i4123"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4186")))
+ #("i4101")))
(hygiene guile))
- (cons #{e1\ 4217}# #{e2\ 4218}#)))))
- #{tmp\ 4208}#)
+ (cons #{e1\ 4126}# #{e2\ 4127}#)))))
+ #{tmp\ 4119}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4187}#)))))))))))
+ #{tmp\ 4102}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4222}#)
- (let ((#{tmp\ 4224}# #{x\ 4222}#))
- (let ((#{tmp\ 4225}#
+ (lambda (#{x\ 4131}#)
+ (let ((#{tmp\ 4133}# #{x\ 4131}#))
+ (let ((#{tmp\ 4134}#
($sc-dispatch
- #{tmp\ 4224}#
- '(any each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4225}#
+ #{tmp\ 4133}#
+ '(_ each-any . #(each ((any . any) any))))))
+ (if #{tmp\ 4134}#
(@apply
- (lambda (#{_\ 4231}#
- #{k\ 4232}#
- #{keyword\ 4233}#
- #{pattern\ 4234}#
- #{template\ 4235}#)
+ (lambda (#{k\ 4139}#
+ #{keyword\ 4140}#
+ #{pattern\ 4141}#
+ #{template\ 4142}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4135" "i4136" "i4137" "i4138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i4132")))
(hygiene guile))
'(#(syntax-object
x
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4135" "i4136" "i4137" "i4138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i4132")))
(hygiene guile)))
(vector
'(#(syntax-object
macro-type
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4135" "i4136" "i4137" "i4138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i4132")))
(hygiene guile))
.
#(syntax-object
syntax-rules
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4135" "i4136" "i4137" "i4138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i4132")))
(hygiene guile)))
(cons '#(syntax-object
patterns
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4135" "i4136" "i4137" "i4138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i4132")))
(hygiene guile))
- #{pattern\ 4234}#))
+ #{pattern\ 4141}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4135" "i4136" "i4137" "i4138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i4132")))
(hygiene guile))
(cons '#(syntax-object
x
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4226"
- "i4227"
- "i4228"
- "i4229"
- "i4230"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4135" "i4136" "i4137" "i4138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i4132")))
(hygiene guile))
- (cons #{k\ 4232}#
- (map (lambda (#{tmp\ 4239}#
- #{tmp\ 4238}#)
+ (cons #{k\ 4139}#
+ (map (lambda (#{tmp\ 4146}#
+ #{tmp\ 4145}#)
(list (cons '#(syntax-object
dummy
((top)
#(ribcage
- #(_
- k
+ #(k
keyword
pattern
template)
#((top)
(top)
(top)
- (top)
(top))
- #("i4226"
- "i4227"
- "i4228"
- "i4229"
- "i4230"))
+ #("i4135"
+ "i4136"
+ "i4137"
+ "i4138"))
#(ribcage
()
()
@@ -13571,28 +15330,25 @@
#(ribcage
#(x)
#((top))
- #("i4223")))
+ #("i4132")))
(hygiene guile))
- #{tmp\ 4238}#)
+ #{tmp\ 4145}#)
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- k
+ #(k
keyword
pattern
template)
#((top)
(top)
(top)
- (top)
(top))
- #("i4226"
- "i4227"
- "i4228"
- "i4229"
- "i4230"))
+ #("i4135"
+ "i4136"
+ "i4137"
+ "i4138"))
#(ribcage
()
()
@@ -13600,47 +15356,47 @@
#(ribcage
#(x)
#((top))
- #("i4223")))
+ #("i4132")))
(hygiene guile))
- #{tmp\ 4239}#)))
- #{template\ 4235}#
- #{pattern\ 4234}#))))))
- #{tmp\ 4225}#)
+ #{tmp\ 4146}#)))
+ #{template\ 4142}#
+ #{pattern\ 4141}#))))))
+ #{tmp\ 4134}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4224}#)))))))
+ #{tmp\ 4133}#)))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4240}#)
- (let ((#{tmp\ 4242}# #{x\ 4240}#))
- (let ((#{tmp\ 4243}#
+ (lambda (#{x\ 4147}#)
+ (let ((#{tmp\ 4149}# #{x\ 4147}#))
+ (let ((#{tmp\ 4150}#
($sc-dispatch
- #{tmp\ 4242}#
+ #{tmp\ 4149}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4243}#
+ (if (if #{tmp\ 4150}#
(@apply
- (lambda (#{let*\ 4249}#
- #{x\ 4250}#
- #{v\ 4251}#
- #{e1\ 4252}#
- #{e2\ 4253}#)
- (and-map identifier? #{x\ 4250}#))
- #{tmp\ 4243}#)
+ (lambda (#{let*\ 4156}#
+ #{x\ 4157}#
+ #{v\ 4158}#
+ #{e1\ 4159}#
+ #{e2\ 4160}#)
+ (and-map identifier? #{x\ 4157}#))
+ #{tmp\ 4150}#)
#f)
(@apply
- (lambda (#{let*\ 4260}#
- #{x\ 4261}#
- #{v\ 4262}#
- #{e1\ 4263}#
- #{e2\ 4264}#)
+ (lambda (#{let*\ 4167}#
+ #{x\ 4168}#
+ #{v\ 4169}#
+ #{e1\ 4170}#
+ #{e2\ 4171}#)
(letrec*
- ((#{f\ 4267}#
- (lambda (#{bindings\ 4268}#)
- (if (null? #{bindings\ 4268}#)
+ ((#{f\ 4174}#
+ (lambda (#{bindings\ 4175}#)
+ (if (null? #{bindings\ 4175}#)
(cons '#(syntax-object
let
((top)
@@ -13648,129 +15404,128 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4265" "i4266"))
+ #("i4172" "i4173"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4162"
+ "i4163"
+ "i4164"
+ "i4165"
+ "i4166"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4241")))
+ #(ribcage #(x) #((top)) #("i4148")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4263}# #{e2\ 4264}#)))
- (let ((#{tmp\ 4273}#
- (list (#{f\ 4267}# (cdr #{bindings\ 4268}#))
- (car #{bindings\ 4268}#))))
- (let ((#{tmp\ 4274}#
+ (cons #{e1\ 4170}# #{e2\ 4171}#)))
+ (let ((#{tmp\ 4180}#
+ (list (#{f\ 4174}# (cdr #{bindings\ 4175}#))
+ (car #{bindings\ 4175}#))))
+ (let ((#{tmp\ 4181}#
($sc-dispatch
- #{tmp\ 4273}#
+ #{tmp\ 4180}#
'(any any))))
- (if #{tmp\ 4274}#
+ (if #{tmp\ 4181}#
(@apply
- (lambda (#{body\ 4277}# #{binding\ 4278}#)
+ (lambda (#{body\ 4184}# #{binding\ 4185}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4275" "i4276"))
+ #("i4182" "i4183"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4265" "i4266"))
+ #("i4172" "i4173"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4162"
+ "i4163"
+ "i4164"
+ "i4165"
+ "i4166"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4241")))
+ #("i4148")))
(hygiene guile))
- (list #{binding\ 4278}#)
- #{body\ 4277}#))
- #{tmp\ 4274}#)
+ (list #{binding\ 4185}#)
+ #{body\ 4184}#))
+ #{tmp\ 4181}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4273}#))))))))
+ #{tmp\ 4180}#))))))))
(begin
- (#{f\ 4267}# (map list #{x\ 4261}# #{v\ 4262}#)))))
- #{tmp\ 4243}#)
+ (#{f\ 4174}# (map list #{x\ 4168}# #{v\ 4169}#)))))
+ #{tmp\ 4150}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4242}#)))))))
+ #{tmp\ 4149}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4279}#)
- (let ((#{tmp\ 4281}# #{orig-x\ 4279}#))
- (let ((#{tmp\ 4282}#
+ (lambda (#{orig-x\ 4186}#)
+ (let ((#{tmp\ 4188}# #{orig-x\ 4186}#))
+ (let ((#{tmp\ 4189}#
($sc-dispatch
- #{tmp\ 4281}#
- '(any #(each (any any . any))
- (any . each-any)
- .
- each-any))))
- (if #{tmp\ 4282}#
+ #{tmp\ 4188}#
+ '(_ #(each (any any . any))
+ (any . each-any)
+ .
+ each-any))))
+ (if #{tmp\ 4189}#
(@apply
- (lambda (#{_\ 4290}#
- #{var\ 4291}#
- #{init\ 4292}#
- #{step\ 4293}#
- #{e0\ 4294}#
- #{e1\ 4295}#
- #{c\ 4296}#)
- (let ((#{tmp\ 4298}#
- (map (lambda (#{v\ 4319}# #{s\ 4320}#)
- (let ((#{tmp\ 4323}# #{s\ 4320}#))
- (let ((#{tmp\ 4324}#
+ (lambda (#{var\ 4196}#
+ #{init\ 4197}#
+ #{step\ 4198}#
+ #{e0\ 4199}#
+ #{e1\ 4200}#
+ #{c\ 4201}#)
+ (let ((#{tmp\ 4203}#
+ (map (lambda (#{v\ 4224}# #{s\ 4225}#)
+ (let ((#{tmp\ 4228}# #{s\ 4225}#))
+ (let ((#{tmp\ 4229}#
($sc-dispatch
- #{tmp\ 4323}#
+ #{tmp\ 4228}#
'())))
- (if #{tmp\ 4324}#
+ (if #{tmp\ 4229}#
(@apply
- (lambda () #{v\ 4319}#)
- #{tmp\ 4324}#)
- (let ((#{tmp\ 4325}#
+ (lambda () #{v\ 4224}#)
+ #{tmp\ 4229}#)
+ (let ((#{tmp\ 4230}#
($sc-dispatch
- #{tmp\ 4323}#
+ #{tmp\ 4228}#
'(any))))
- (if #{tmp\ 4325}#
+ (if #{tmp\ 4230}#
(@apply
- (lambda (#{e\ 4327}#) #{e\ 4327}#)
- #{tmp\ 4325}#)
- (let ((#{_\ 4329}# #{tmp\ 4323}#))
+ (lambda (#{e\ 4232}#) #{e\ 4232}#)
+ #{tmp\ 4230}#)
+ (let ((#{_\ 4234}# #{tmp\ 4228}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4279}#
- #{s\ 4320}#))))))))
- #{var\ 4291}#
- #{step\ 4293}#)))
- (let ((#{tmp\ 4299}#
- ($sc-dispatch #{tmp\ 4298}# (quote each-any))))
- (if #{tmp\ 4299}#
+ #{orig-x\ 4186}#
+ #{s\ 4225}#))))))))
+ #{var\ 4196}#
+ #{step\ 4198}#)))
+ (let ((#{tmp\ 4204}#
+ ($sc-dispatch #{tmp\ 4203}# (quote each-any))))
+ (if #{tmp\ 4204}#
(@apply
- (lambda (#{step\ 4301}#)
- (let ((#{tmp\ 4302}# #{e1\ 4295}#))
- (let ((#{tmp\ 4303}#
- ($sc-dispatch #{tmp\ 4302}# (quote ()))))
- (if #{tmp\ 4303}#
+ (lambda (#{step\ 4206}#)
+ (let ((#{tmp\ 4207}# #{e1\ 4200}#))
+ (let ((#{tmp\ 4208}#
+ ($sc-dispatch #{tmp\ 4207}# (quote ()))))
+ (if #{tmp\ 4208}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -13779,28 +15534,26 @@
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
'#(syntax-object
doloop
@@ -13808,66 +15561,56 @@
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
(map list
- #{var\ 4291}#
- #{init\ 4292}#)
+ #{var\ 4196}#
+ #{init\ 4197}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_
- var
- init
- step
- e0
- e1
- c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
(list '#(syntax-object
not
@@ -13875,10 +15618,9 @@
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -13889,32 +15631,29 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
- #{e0\ 4294}#)
+ #{e0\ 4199}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -13925,33 +15664,30 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
(append
- #{c\ 4296}#
+ #{c\ 4201}#
(list (cons
'#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i4300"))
+
#("i4205"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -13962,15 +15698,13 @@
(top)
(top)
(top)
-
(top)
(top))
-
#("i4283"
-
"i4284"
-
"i4285"
-
"i4286"
-
"i4287"
-
"i4288"
-
"i4289"))
+
#("i4190"
+
"i4191"
+
"i4192"
+
"i4193"
+
"i4194"
+
"i4195"))
#(ribcage
()
()
@@ -13978,50 +15712,48 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4280")))
+
#("i4187")))
(hygiene
guile))
- #{step\
4301}#)))))))
- #{tmp\ 4303}#)
- (let ((#{tmp\ 4308}#
+ #{step\
4206}#)))))))
+ #{tmp\ 4208}#)
+ (let ((#{tmp\ 4213}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 4207}#
'(any . each-any))))
- (if #{tmp\ 4308}#
+ (if #{tmp\ 4213}#
(@apply
- (lambda (#{e1\ 4311}# #{e2\ 4312}#)
+ (lambda (#{e1\ 4216}# #{e2\ 4217}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309" "i4310"))
+ #("i4214" "i4215"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
'#(syntax-object
doloop
@@ -14029,50 +15761,47 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309" "i4310"))
+ #("i4214" "i4215"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
(map list
- #{var\ 4291}#
- #{init\ 4292}#)
+ #{var\ 4196}#
+ #{init\ 4197}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309" "i4310"))
+ #("i4214" "i4215"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -14083,37 +15812,34 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
- #{e0\ 4294}#
+ #{e0\ 4199}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309"
- "i4310"))
+ #("i4214"
+ "i4215"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -14124,15 +15850,13 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage
()
()
@@ -14140,25 +15864,24 @@
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
- (cons #{e1\ 4311}#
- #{e2\ 4312}#))
+ (cons #{e1\ 4216}#
+ #{e2\ 4217}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309"
- "i4310"))
+ #("i4214"
+ "i4215"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i4205"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -14169,15 +15892,13 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i4190"
+ "i4191"
+ "i4192"
+ "i4193"
+ "i4194"
+ "i4195"))
#(ribcage
()
()
@@ -14185,10 +15906,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i4187")))
(hygiene guile))
(append
- #{c\ 4296}#
+ #{c\ 4201}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -14197,15 +15918,14 @@
e2)
#((top)
(top))
-
#("i4309"
-
"i4310"))
+
#("i4214"
+
"i4215"))
#(ribcage
#(step)
#((top))
-
#("i4300"))
+
#("i4205"))
#(ribcage
-
#(_
-
var
+
#(var
init
step
e0
@@ -14216,15 +15936,13 @@
(top)
(top)
(top)
-
(top)
(top))
-
#("i4283"
-
"i4284"
-
"i4285"
-
"i4286"
-
"i4287"
-
"i4288"
-
"i4289"))
+
#("i4190"
+
"i4191"
+
"i4192"
+
"i4193"
+
"i4194"
+
"i4195"))
#(ribcage
()
()
@@ -14232,43 +15950,43 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4280")))
+
#("i4187")))
(hygiene
guile))
-
#{step\ 4301}#)))))))
- #{tmp\ 4308}#)
+
#{step\ 4206}#)))))))
+ #{tmp\ 4213}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4302}#)))))))
- #{tmp\ 4299}#)
+ #{tmp\ 4207}#)))))))
+ #{tmp\ 4204}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4298}#)))))
- #{tmp\ 4282}#)
+ #{tmp\ 4203}#)))))
+ #{tmp\ 4189}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4281}#)))))))
+ #{tmp\ 4188}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasicons\ 4336}#
- (lambda (#{x\ 4340}# #{y\ 4341}#)
- (let ((#{tmp\ 4345}# (list #{x\ 4340}# #{y\ 4341}#)))
- (let ((#{tmp\ 4346}#
- ($sc-dispatch #{tmp\ 4345}# (quote (any any)))))
- (if #{tmp\ 4346}#
+ ((#{quasicons\ 4241}#
+ (lambda (#{x\ 4245}# #{y\ 4246}#)
+ (let ((#{tmp\ 4250}# (list #{x\ 4245}# #{y\ 4246}#)))
+ (let ((#{tmp\ 4251}#
+ ($sc-dispatch #{tmp\ 4250}# (quote (any any)))))
+ (if #{tmp\ 4251}#
(@apply
- (lambda (#{x\ 4349}# #{y\ 4350}#)
- (let ((#{tmp\ 4351}# #{y\ 4350}#))
- (let ((#{tmp\ 4352}#
+ (lambda (#{x\ 4254}# #{y\ 4255}#)
+ (let ((#{tmp\ 4256}# #{y\ 4255}#))
+ (let ((#{tmp\ 4257}#
($sc-dispatch
- #{tmp\ 4351}#
+ #{tmp\ 4256}#
'(#(free-id
#(syntax-object
quote
@@ -14276,29 +15994,29 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i4252" "i4253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4247" "i4248"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
any))))
- (if #{tmp\ 4352}#
+ (if #{tmp\ 4257}#
(@apply
- (lambda (#{dy\ 4354}#)
- (let ((#{tmp\ 4355}# #{x\ 4349}#))
- (let ((#{tmp\ 4356}#
+ (lambda (#{dy\ 4259}#)
+ (let ((#{tmp\ 4260}# #{x\ 4254}#))
+ (let ((#{tmp\ 4261}#
($sc-dispatch
- #{tmp\ 4355}#
+ #{tmp\ 4260}#
'(#(free-id
#(syntax-object
quote
@@ -14306,140 +16024,140 @@
#(ribcage
#(dy)
#((top))
- #("i4353"))
+ #("i4258"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i4252" "i4253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4247" "i4248"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile)))
any))))
- (if #{tmp\ 4356}#
+ (if #{tmp\ 4261}#
(@apply
- (lambda (#{dx\ 4358}#)
+ (lambda (#{dx\ 4263}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4357"))
+ #("i4262"))
#(ribcage
#(dy)
#((top))
- #("i4353"))
+ #("i4258"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i4252" "i4253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4247" "i4248"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile))
- (cons #{dx\ 4358}#
- #{dy\ 4354}#)))
- #{tmp\ 4356}#)
- (let ((#{_\ 4360}# #{tmp\ 4355}#))
- (if (null? #{dy\ 4354}#)
+ (cons #{dx\ 4263}#
+ #{dy\ 4259}#)))
+ #{tmp\ 4261}#)
+ (let ((#{_\ 4265}# #{tmp\ 4260}#))
+ (if (null? #{dy\ 4259}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4359"))
+ #("i4264"))
#(ribcage
#(dy)
#((top))
- #("i4353"))
+ #("i4258"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i4252" "i4253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4247" "i4248"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile))
- #{x\ 4349}#)
+ #{x\ 4254}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4359"))
+ #("i4264"))
#(ribcage
#(dy)
#((top))
- #("i4353"))
+ #("i4258"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i4252" "i4253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4247" "i4248"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile))
- #{x\ 4349}#
- #{y\ 4350}#)))))))
- #{tmp\ 4352}#)
- (let ((#{tmp\ 4361}#
+ #{x\ 4254}#
+ #{y\ 4255}#)))))))
+ #{tmp\ 4257}#)
+ (let ((#{tmp\ 4266}#
($sc-dispatch
- #{tmp\ 4351}#
+ #{tmp\ 4256}#
'(#(free-id
#(syntax-object
list
@@ -14447,107 +16165,107 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i4252" "i4253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4247" "i4248"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile)))
.
any))))
- (if #{tmp\ 4361}#
+ (if #{tmp\ 4266}#
(@apply
- (lambda (#{stuff\ 4363}#)
+ (lambda (#{stuff\ 4268}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4362"))
+ #("i4267"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i4252" "i4253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4247" "i4248"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile))
- (cons #{x\ 4349}# #{stuff\ 4363}#)))
- #{tmp\ 4361}#)
- (let ((#{else\ 4365}# #{tmp\ 4351}#))
+ (cons #{x\ 4254}# #{stuff\ 4268}#)))
+ #{tmp\ 4266}#)
+ (let ((#{else\ 4270}# #{tmp\ 4256}#))
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4364"))
+ #("i4269"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i4252" "i4253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4247" "i4248"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile))
- #{x\ 4349}#
- #{y\ 4350}#))))))))
- #{tmp\ 4346}#)
+ #{x\ 4254}#
+ #{y\ 4255}#))))))))
+ #{tmp\ 4251}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4345}#))))))
- (#{quasiappend\ 4337}#
- (lambda (#{x\ 4366}# #{y\ 4367}#)
- (let ((#{tmp\ 4371}# (list #{x\ 4366}# #{y\ 4367}#)))
- (let ((#{tmp\ 4372}#
- ($sc-dispatch #{tmp\ 4371}# (quote (any any)))))
- (if #{tmp\ 4372}#
+ #{tmp\ 4250}#))))))
+ (#{quasiappend\ 4242}#
+ (lambda (#{x\ 4271}# #{y\ 4272}#)
+ (let ((#{tmp\ 4276}# (list #{x\ 4271}# #{y\ 4272}#)))
+ (let ((#{tmp\ 4277}#
+ ($sc-dispatch #{tmp\ 4276}# (quote (any any)))))
+ (if #{tmp\ 4277}#
(@apply
- (lambda (#{x\ 4375}# #{y\ 4376}#)
- (let ((#{tmp\ 4377}# #{y\ 4376}#))
- (let ((#{tmp\ 4378}#
+ (lambda (#{x\ 4280}# #{y\ 4281}#)
+ (let ((#{tmp\ 4282}# #{y\ 4281}#))
+ (let ((#{tmp\ 4283}#
($sc-dispatch
- #{tmp\ 4377}#
+ #{tmp\ 4282}#
'(#(free-id
#(syntax-object
quote
@@ -14555,160 +16273,160 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4373" "i4374"))
+ #("i4278" "i4279"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4368" "i4369"))
+ #("i4273" "i4274"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
()))))
- (if #{tmp\ 4378}#
- (@apply (lambda () #{x\ 4375}#) #{tmp\ 4378}#)
- (let ((#{_\ 4380}# #{tmp\ 4377}#))
+ (if #{tmp\ 4283}#
+ (@apply (lambda () #{x\ 4280}#) #{tmp\ 4283}#)
+ (let ((#{_\ 4285}# #{tmp\ 4282}#))
(list '#(syntax-object
append
((top)
- #(ribcage #(_) #((top)) #("i4379"))
+ #(ribcage #(_) #((top)) #("i4284"))
#(ribcage
#(x y)
#((top) (top))
- #("i4373" "i4374"))
+ #("i4278" "i4279"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4368" "i4369"))
+ #("i4273" "i4274"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile))
- #{x\ 4375}#
- #{y\ 4376}#))))))
- #{tmp\ 4372}#)
+ #{x\ 4280}#
+ #{y\ 4281}#))))))
+ #{tmp\ 4277}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4371}#))))))
- (#{quasivector\ 4338}#
- (lambda (#{x\ 4381}#)
- (let ((#{tmp\ 4384}# #{x\ 4381}#))
- (let ((#{x\ 4386}# #{tmp\ 4384}#))
- (let ((#{tmp\ 4387}# #{x\ 4386}#))
- (let ((#{tmp\ 4388}#
+ #{tmp\ 4276}#))))))
+ (#{quasivector\ 4243}#
+ (lambda (#{x\ 4286}#)
+ (let ((#{tmp\ 4289}# #{x\ 4286}#))
+ (let ((#{x\ 4291}# #{tmp\ 4289}#))
+ (let ((#{tmp\ 4292}# #{x\ 4291}#))
+ (let ((#{tmp\ 4293}#
($sc-dispatch
- #{tmp\ 4387}#
+ #{tmp\ 4292}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(x) #((top)) #("i4290"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i4287"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
each-any))))
- (if #{tmp\ 4388}#
+ (if #{tmp\ 4293}#
(@apply
- (lambda (#{x\ 4390}#)
+ (lambda (#{x\ 4295}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4389"))
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(x) #((top)) #("i4294"))
+ #(ribcage #(x) #((top)) #("i4290"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i4287"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile))
- (list->vector #{x\ 4390}#)))
- #{tmp\ 4388}#)
- (let ((#{tmp\ 4392}#
+ (list->vector #{x\ 4295}#)))
+ #{tmp\ 4293}#)
+ (let ((#{tmp\ 4297}#
($sc-dispatch
- #{tmp\ 4387}#
+ #{tmp\ 4292}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(x) #((top)) #("i4290"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i4287"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4392}#
+ (if #{tmp\ 4297}#
(@apply
- (lambda (#{x\ 4394}#)
+ (lambda (#{x\ 4299}#)
(cons '#(syntax-object
vector
((top)
- #(ribcage #(x) #((top)) #("i4393"))
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(x) #((top)) #("i4298"))
+ #(ribcage #(x) #((top)) #("i4290"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i4287"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile))
- #{x\ 4394}#))
- #{tmp\ 4392}#)
- (let ((#{_\ 4397}# #{tmp\ 4387}#))
+ #{x\ 4299}#))
+ #{tmp\ 4297}#)
+ (let ((#{_\ 4302}# #{tmp\ 4292}#))
(list '#(syntax-object
list->vector
((top)
- #(ribcage #(_) #((top)) #("i4396"))
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(_) #((top)) #("i4301"))
+ #(ribcage #(x) #((top)) #("i4290"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i4287"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile))
- #{x\ 4386}#)))))))))))
- (#{quasi\ 4339}#
- (lambda (#{p\ 4398}# #{lev\ 4399}#)
- (let ((#{tmp\ 4402}# #{p\ 4398}#))
- (let ((#{tmp\ 4403}#
+ #{x\ 4291}#)))))))))))
+ (#{quasi\ 4244}#
+ (lambda (#{p\ 4303}# #{lev\ 4304}#)
+ (let ((#{tmp\ 4307}# #{p\ 4303}#))
+ (let ((#{tmp\ 4308}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 4307}#
'(#(free-id
#(syntax-object
unquote
@@ -14717,54 +16435,54 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
any))))
- (if #{tmp\ 4403}#
+ (if #{tmp\ 4308}#
(@apply
- (lambda (#{p\ 4405}#)
- (if (= #{lev\ 4399}# 0)
- #{p\ 4405}#
- (#{quasicons\ 4336}#
+ (lambda (#{p\ 4310}#)
+ (if (= #{lev\ 4304}# 0)
+ #{p\ 4310}#
+ (#{quasicons\ 4241}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4404"))
+ #(ribcage #(p) #((top)) #("i4309"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4404"))
+ #(ribcage #(p) #((top)) #("i4309"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
- (#{quasi\ 4339}#
- (list #{p\ 4405}#)
- (1- #{lev\ 4399}#)))))
- #{tmp\ 4403}#)
- (let ((#{tmp\ 4406}#
+ (#{quasi\ 4244}#
+ (list #{p\ 4310}#)
+ (1- #{lev\ 4304}#)))))
+ #{tmp\ 4308}#)
+ (let ((#{tmp\ 4311}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 4307}#
'(#(free-id
#(syntax-object
unquote
@@ -14773,47 +16491,47 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
.
any))))
- (if (if #{tmp\ 4406}#
+ (if (if #{tmp\ 4311}#
(@apply
- (lambda (#{args\ 4408}#) (= #{lev\ 4399}# 0))
- #{tmp\ 4406}#)
+ (lambda (#{args\ 4313}#) (= #{lev\ 4304}# 0))
+ #{tmp\ 4311}#)
#f)
(@apply
- (lambda (#{args\ 4410}#)
+ (lambda (#{args\ 4315}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4398}#
+ #{p\ 4303}#
(cons '#(syntax-object
unquote
((top)
- #(ribcage #(args) #((top)) #("i4409"))
+ #(ribcage #(args) #((top)) #("i4314"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile))
- #{args\ 4410}#)))
- #{tmp\ 4406}#)
- (let ((#{tmp\ 4411}#
+ #{args\ 4315}#)))
+ #{tmp\ 4311}#)
+ (let ((#{tmp\ 4316}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 4307}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14822,46 +16540,46 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
any)
.
any))))
- (if #{tmp\ 4411}#
+ (if #{tmp\ 4316}#
(@apply
- (lambda (#{p\ 4414}# #{q\ 4415}#)
- (if (= #{lev\ 4399}# 0)
- (#{quasiappend\ 4337}#
- #{p\ 4414}#
- (#{quasi\ 4339}# #{q\ 4415}# #{lev\ 4399}#))
- (#{quasicons\ 4336}#
- (#{quasicons\ 4336}#
+ (lambda (#{p\ 4319}# #{q\ 4320}#)
+ (if (= #{lev\ 4304}# 0)
+ (#{quasiappend\ 4242}#
+ #{p\ 4319}#
+ (#{quasi\ 4244}# #{q\ 4320}# #{lev\ 4304}#))
+ (#{quasicons\ 4241}#
+ (#{quasicons\ 4241}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4412" "i4413"))
+ #("i4317" "i4318"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -14869,28 +16587,28 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4412" "i4413"))
+ #("i4317" "i4318"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i4237" "i4238" "i4239" "i4240")))
(hygiene guile)))
- (#{quasi\ 4339}#
- (list #{p\ 4414}#)
- (1- #{lev\ 4399}#)))
- (#{quasi\ 4339}# #{q\ 4415}# #{lev\ 4399}#))))
- #{tmp\ 4411}#)
- (let ((#{tmp\ 4416}#
+ (#{quasi\ 4244}#
+ (list #{p\ 4319}#)
+ (1- #{lev\ 4304}#)))
+ (#{quasi\ 4244}# #{q\ 4320}# #{lev\ 4304}#))))
+ #{tmp\ 4316}#)
+ (let ((#{tmp\ 4321}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 4307}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14899,62 +16617,62 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile)))
.
any)
.
any))))
- (if (if #{tmp\ 4416}#
+ (if (if #{tmp\ 4321}#
(@apply
- (lambda (#{args\ 4419}# #{q\ 4420}#)
- (= #{lev\ 4399}# 0))
- #{tmp\ 4416}#)
+ (lambda (#{args\ 4324}# #{q\ 4325}#)
+ (= #{lev\ 4304}# 0))
+ #{tmp\ 4321}#)
#f)
(@apply
- (lambda (#{args\ 4423}# #{q\ 4424}#)
+ (lambda (#{args\ 4328}# #{q\ 4329}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one
argument"
- #{p\ 4398}#
+ #{p\ 4303}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i4421" "i4422"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile))
- #{args\ 4423}#)))
- #{tmp\ 4416}#)
- (let ((#{tmp\ 4425}#
+ #{args\ 4328}#)))
+ #{tmp\ 4321}#)
+ (let ((#{tmp\ 4330}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 4307}#
'(#(free-id
#(syntax-object
quasiquote
@@ -14963,107 +16681,107 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile)))
any))))
- (if #{tmp\ 4425}#
+ (if #{tmp\ 4330}#
(@apply
- (lambda (#{p\ 4427}#)
- (#{quasicons\ 4336}#
+ (lambda (#{p\ 4332}#)
+ (#{quasicons\ 4241}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i4331"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i4331"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile)))
- (#{quasi\ 4339}#
- (list #{p\ 4427}#)
- (1+ #{lev\ 4399}#))))
- #{tmp\ 4425}#)
- (let ((#{tmp\ 4428}#
+ (#{quasi\ 4244}#
+ (list #{p\ 4332}#)
+ (1+ #{lev\ 4304}#))))
+ #{tmp\ 4330}#)
+ (let ((#{tmp\ 4333}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 4307}#
'(any . any))))
- (if #{tmp\ 4428}#
+ (if #{tmp\ 4333}#
(@apply
- (lambda (#{p\ 4431}# #{q\ 4432}#)
- (#{quasicons\ 4336}#
- (#{quasi\ 4339}#
- #{p\ 4431}#
- #{lev\ 4399}#)
- (#{quasi\ 4339}#
- #{q\ 4432}#
- #{lev\ 4399}#)))
- #{tmp\ 4428}#)
- (let ((#{tmp\ 4433}#
+ (lambda (#{p\ 4336}# #{q\ 4337}#)
+ (#{quasicons\ 4241}#
+ (#{quasi\ 4244}#
+ #{p\ 4336}#
+ #{lev\ 4304}#)
+ (#{quasi\ 4244}#
+ #{q\ 4337}#
+ #{lev\ 4304}#)))
+ #{tmp\ 4333}#)
+ (let ((#{tmp\ 4338}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 4307}#
'#(vector each-any))))
- (if #{tmp\ 4433}#
+ (if #{tmp\ 4338}#
(@apply
- (lambda (#{x\ 4435}#)
- (#{quasivector\ 4338}#
- (#{quasi\ 4339}#
- #{x\ 4435}#
- #{lev\ 4399}#)))
- #{tmp\ 4433}#)
- (let ((#{p\ 4438}# #{tmp\ 4402}#))
+ (lambda (#{x\ 4340}#)
+ (#{quasivector\ 4243}#
+ (#{quasi\ 4244}#
+ #{x\ 4340}#
+ #{lev\ 4304}#)))
+ #{tmp\ 4338}#)
+ (let ((#{p\ 4343}# #{tmp\ 4307}#))
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4437"))
+ #("i4342"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4305" "i4306"))
#(ribcage
#(quasicons
quasiappend
@@ -15073,223 +16791,220 @@
(top)
(top)
(top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240")))
(hygiene guile))
- #{p\
4438}#))))))))))))))))))))
+ #{p\
4343}#))))))))))))))))))))
(begin
- (lambda (#{x\ 4439}#)
- (let ((#{tmp\ 4441}# #{x\ 4439}#))
- (let ((#{tmp\ 4442}#
- ($sc-dispatch #{tmp\ 4441}# (quote (any any)))))
- (if #{tmp\ 4442}#
+ (lambda (#{x\ 4344}#)
+ (let ((#{tmp\ 4346}# #{x\ 4344}#))
+ (let ((#{tmp\ 4347}#
+ ($sc-dispatch #{tmp\ 4346}# (quote (_ any)))))
+ (if #{tmp\ 4347}#
(@apply
- (lambda (#{_\ 4445}# #{e\ 4446}#)
- (#{quasi\ 4339}# #{e\ 4446}# 0))
- #{tmp\ 4442}#)
+ (lambda (#{e\ 4349}#)
+ (#{quasi\ 4244}# #{e\ 4349}# 0))
+ #{tmp\ 4347}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4441}#)))))))))
+ #{tmp\ 4346}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4447}#)
+ (lambda (#{x\ 4350}#)
(letrec*
- ((#{read-file\ 4450}#
- (lambda (#{fn\ 4451}# #{k\ 4452}#)
+ ((#{read-file\ 4353}#
+ (lambda (#{fn\ 4354}# #{k\ 4355}#)
(begin
- (let ((#{p\ 4456}# (open-input-file #{fn\ 4451}#)))
+ (let ((#{p\ 4359}# (open-input-file #{fn\ 4354}#)))
(letrec*
- ((#{f\ 4460}#
- (lambda (#{x\ 4461}# #{result\ 4462}#)
- (if (eof-object? #{x\ 4461}#)
+ ((#{f\ 4363}#
+ (lambda (#{x\ 4364}# #{result\ 4365}#)
+ (if (eof-object? #{x\ 4364}#)
(begin
- (close-input-port #{p\ 4456}#)
- (reverse #{result\ 4462}#))
- (#{f\ 4460}#
- (read #{p\ 4456}#)
- (cons (datum->syntax #{k\ 4452}# #{x\ 4461}#)
- #{result\ 4462}#))))))
+ (close-input-port #{p\ 4359}#)
+ (reverse #{result\ 4365}#))
+ (#{f\ 4363}#
+ (read #{p\ 4359}#)
+ (cons (datum->syntax #{k\ 4355}# #{x\ 4364}#)
+ #{result\ 4365}#))))))
(begin
- (#{f\ 4460}# (read #{p\ 4456}#) (quote ())))))))))
+ (#{f\ 4363}# (read #{p\ 4359}#) (quote ())))))))))
(begin
- (let ((#{tmp\ 4463}# #{x\ 4447}#))
- (let ((#{tmp\ 4464}#
- ($sc-dispatch #{tmp\ 4463}# (quote (any any)))))
- (if #{tmp\ 4464}#
+ (let ((#{tmp\ 4366}# #{x\ 4350}#))
+ (let ((#{tmp\ 4367}#
+ ($sc-dispatch #{tmp\ 4366}# (quote (any any)))))
+ (if #{tmp\ 4367}#
(@apply
- (lambda (#{k\ 4467}# #{filename\ 4468}#)
+ (lambda (#{k\ 4370}# #{filename\ 4371}#)
(begin
- (let ((#{fn\ 4470}# (syntax->datum #{filename\ 4468}#)))
- (let ((#{tmp\ 4472}#
- (#{read-file\ 4450}#
- #{fn\ 4470}#
- #{filename\ 4468}#)))
- (let ((#{tmp\ 4473}#
+ (let ((#{fn\ 4373}# (syntax->datum #{filename\ 4371}#)))
+ (let ((#{tmp\ 4375}#
+ (#{read-file\ 4353}#
+ #{fn\ 4373}#
+ #{filename\ 4371}#)))
+ (let ((#{tmp\ 4376}#
($sc-dispatch
- #{tmp\ 4472}#
+ #{tmp\ 4375}#
'each-any)))
- (if #{tmp\ 4473}#
+ (if #{tmp\ 4376}#
(@apply
- (lambda (#{exp\ 4475}#)
+ (lambda (#{exp\ 4378}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4474"))
+ #("i4377"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4469"))
+ #("i4372"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4465" "i4466"))
+ #("i4368" "i4369"))
#(ribcage
(read-file)
((top))
- ("i4449"))
+ ("i4352"))
#(ribcage
#(x)
#((top))
- #("i4448")))
+ #("i4351")))
(hygiene guile))
- #{exp\ 4475}#))
- #{tmp\ 4473}#)
+ #{exp\ 4378}#))
+ #{tmp\ 4376}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4472}#)))))))
- #{tmp\ 4464}#)
+ #{tmp\ 4375}#)))))))
+ #{tmp\ 4367}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4463}#)))))))))
+ #{tmp\ 4366}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4477}#)
- (let ((#{tmp\ 4479}# #{x\ 4477}#))
- (let ((#{tmp\ 4480}#
- ($sc-dispatch #{tmp\ 4479}# (quote (any any)))))
- (if #{tmp\ 4480}#
+ (lambda (#{x\ 4380}#)
+ (let ((#{tmp\ 4382}# #{x\ 4380}#))
+ (let ((#{tmp\ 4383}#
+ ($sc-dispatch #{tmp\ 4382}# (quote (any any)))))
+ (if #{tmp\ 4383}#
(@apply
- (lambda (#{k\ 4483}# #{filename\ 4484}#)
+ (lambda (#{k\ 4386}# #{filename\ 4387}#)
(begin
- (let ((#{fn\ 4486}# (syntax->datum #{filename\ 4484}#)))
- (let ((#{tmp\ 4488}#
+ (let ((#{fn\ 4389}# (syntax->datum #{filename\ 4387}#)))
+ (let ((#{tmp\ 4391}#
(datum->syntax
- #{filename\ 4484}#
+ #{filename\ 4387}#
(begin
- (let ((#{t\ 4493}#
- (%search-load-path #{fn\ 4486}#)))
- (if #{t\ 4493}#
- #{t\ 4493}#
+ (let ((#{t\ 4396}#
+ (%search-load-path #{fn\ 4389}#)))
+ (if #{t\ 4396}#
+ #{t\ 4396}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4477}#
- #{filename\ 4484}#)))))))
- (let ((#{fn\ 4490}# #{tmp\ 4488}#))
+ #{x\ 4380}#
+ #{filename\ 4387}#)))))))
+ (let ((#{fn\ 4393}# #{tmp\ 4391}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i4489"))
+ #(ribcage #(fn) #((top)) #("i4392"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4485"))
+ #(ribcage #(fn) #((top)) #("i4388"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4481" "i4482"))
+ #("i4384" "i4385"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4478")))
+ #(ribcage #(x) #((top)) #("i4381")))
(hygiene guile))
- #{fn\ 4490}#))))))
- #{tmp\ 4480}#)
+ #{fn\ 4393}#))))))
+ #{tmp\ 4383}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4479}#)))))))
+ #{tmp\ 4382}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4495}#)
- (let ((#{tmp\ 4497}# #{x\ 4495}#))
- (let ((#{tmp\ 4498}#
- ($sc-dispatch #{tmp\ 4497}# (quote (any any)))))
- (if #{tmp\ 4498}#
+ (lambda (#{x\ 4398}#)
+ (let ((#{tmp\ 4400}# #{x\ 4398}#))
+ (let ((#{tmp\ 4401}#
+ ($sc-dispatch #{tmp\ 4400}# (quote (_ any)))))
+ (if #{tmp\ 4401}#
(@apply
- (lambda (#{_\ 4501}# #{e\ 4502}#)
+ (lambda (#{e\ 4403}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4495}#))
- #{tmp\ 4498}#)
+ #{x\ 4398}#))
+ #{tmp\ 4401}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4497}#)))))))
+ #{tmp\ 4400}#)))))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4503}#)
- (let ((#{tmp\ 4505}# #{x\ 4503}#))
- (let ((#{tmp\ 4506}#
- ($sc-dispatch #{tmp\ 4505}# (quote (any any)))))
- (if #{tmp\ 4506}#
+ (lambda (#{x\ 4404}#)
+ (let ((#{tmp\ 4406}# #{x\ 4404}#))
+ (let ((#{tmp\ 4407}#
+ ($sc-dispatch #{tmp\ 4406}# (quote (_ any)))))
+ (if #{tmp\ 4407}#
(@apply
- (lambda (#{_\ 4509}# #{e\ 4510}#)
+ (lambda (#{e\ 4409}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4503}#))
- #{tmp\ 4506}#)
+ #{x\ 4404}#))
+ #{tmp\ 4407}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4505}#)))))))
+ #{tmp\ 4406}#)))))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4511}#)
- (let ((#{tmp\ 4513}# #{x\ 4511}#))
- (let ((#{tmp\ 4514}#
+ (lambda (#{x\ 4410}#)
+ (let ((#{tmp\ 4412}# #{x\ 4410}#))
+ (let ((#{tmp\ 4413}#
($sc-dispatch
- #{tmp\ 4513}#
- '(any any any . each-any))))
- (if #{tmp\ 4514}#
+ #{tmp\ 4412}#
+ '(_ any any . each-any))))
+ (if #{tmp\ 4413}#
(@apply
- (lambda (#{_\ 4519}#
- #{e\ 4520}#
- #{m1\ 4521}#
- #{m2\ 4522}#)
- (let ((#{tmp\ 4524}#
+ (lambda (#{e\ 4417}# #{m1\ 4418}# #{m2\ 4419}#)
+ (let ((#{tmp\ 4421}#
(letrec*
- ((#{f\ 4530}#
- (lambda (#{clause\ 4531}# #{clauses\ 4532}#)
- (if (null? #{clauses\ 4532}#)
- (let ((#{tmp\ 4534}# #{clause\ 4531}#))
- (let ((#{tmp\ 4535}#
+ ((#{f\ 4427}#
+ (lambda (#{clause\ 4428}# #{clauses\ 4429}#)
+ (if (null? #{clauses\ 4429}#)
+ (let ((#{tmp\ 4431}# #{clause\ 4428}#))
+ (let ((#{tmp\ 4432}#
($sc-dispatch
- #{tmp\ 4534}#
+ #{tmp\ 4431}#
'(#(free-id
#(syntax-object
else
@@ -15298,104 +17013,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 4535}#
+ (if #{tmp\ 4432}#
(@apply
- (lambda (#{e1\ 4538}# #{e2\ 4539}#)
+ (lambda (#{e1\ 4435}# #{e2\ 4436}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4536" "i4537"))
+ #("i4433" "i4434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
- (cons #{e1\ 4538}#
- #{e2\ 4539}#)))
- #{tmp\ 4535}#)
- (let ((#{tmp\ 4541}#
+ (cons #{e1\ 4435}#
+ #{e2\ 4436}#)))
+ #{tmp\ 4432}#)
+ (let ((#{tmp\ 4438}#
($sc-dispatch
- #{tmp\ 4534}#
+ #{tmp\ 4431}#
'(each-any any . each-any))))
- (if #{tmp\ 4541}#
+ (if #{tmp\ 4438}#
(@apply
- (lambda (#{k\ 4545}#
- #{e1\ 4546}#
- #{e2\ 4547}#)
+ (lambda (#{k\ 4442}#
+ #{e1\ 4443}#
+ #{e2\ 4444}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i4439"
+ "i4440"
+ "i4441"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -15405,9 +17108,9 @@
#((top)
(top)
(top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i4439"
+ "i4440"
+ "i4441"))
#(ribcage
()
()
@@ -15419,19 +17122,17 @@
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage
()
()
@@ -15439,7 +17140,7 @@
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
'#(syntax-object
t
@@ -15449,9 +17150,9 @@
#((top)
(top)
(top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i4439"
+ "i4440"
+ "i4441"))
#(ribcage
()
()
@@ -15463,19 +17164,17 @@
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage
()
()
@@ -15483,7 +17182,7 @@
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -15495,9 +17194,9 @@
#((top)
(top)
(top))
-
#("i4542"
-
"i4543"
-
"i4544"))
+
#("i4439"
+
"i4440"
+
"i4441"))
#(ribcage
()
()
@@ -15509,22 +17208,19 @@
#((top)
(top)
(top))
-
#("i4527"
-
"i4528"
-
"i4529"))
+
#("i4424"
+
"i4425"
+
"i4426"))
#(ribcage
- #(_
- e
+ #(e
m1
m2)
#((top)
(top)
- (top)
(top))
-
#("i4515"
-
"i4516"
-
"i4517"
-
"i4518"))
+
#("i4414"
+
"i4415"
+
"i4416"))
#(ribcage
()
()
@@ -15532,10 +17228,10 @@
#(ribcage
#(x)
#((top))
-
#("i4512")))
+
#("i4411")))
(hygiene
guile))
- #{k\ 4545}#))
+ #{k\ 4442}#))
(cons '#(syntax-object
begin
((top)
@@ -15544,9 +17240,9 @@
#((top)
(top)
(top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i4439"
+ "i4440"
+ "i4441"))
#(ribcage
()
()
@@ -15558,19 +17254,17 @@
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage
()
()
@@ -15578,67 +17272,63 @@
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
- (cons #{e1\ 4546}#
- #{e2\
4547}#))))
- #{tmp\ 4541}#)
- (let ((#{_\ 4551}# #{tmp\ 4534}#))
+ (cons #{e1\ 4443}#
+ #{e2\
4444}#))))
+ #{tmp\ 4438}#)
+ (let ((#{_\ 4448}# #{tmp\ 4431}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4511}#
- #{clause\ 4531}#)))))))
- (let ((#{tmp\ 4553}#
- (#{f\ 4530}#
- (car #{clauses\ 4532}#)
- (cdr #{clauses\ 4532}#))))
- (let ((#{rest\ 4555}# #{tmp\ 4553}#))
- (let ((#{tmp\ 4556}# #{clause\ 4531}#))
- (let ((#{tmp\ 4557}#
+ #{x\ 4410}#
+ #{clause\ 4428}#)))))))
+ (let ((#{tmp\ 4450}#
+ (#{f\ 4427}#
+ (car #{clauses\ 4429}#)
+ (cdr #{clauses\ 4429}#))))
+ (let ((#{rest\ 4452}# #{tmp\ 4450}#))
+ (let ((#{tmp\ 4453}# #{clause\ 4428}#))
+ (let ((#{tmp\ 4454}#
($sc-dispatch
- #{tmp\ 4556}#
+ #{tmp\ 4453}#
'(each-any any . each-any))))
- (if #{tmp\ 4557}#
+ (if #{tmp\ 4454}#
(@apply
- (lambda (#{k\ 4561}#
- #{e1\ 4562}#
- #{e2\ 4563}#)
+ (lambda (#{k\ 4458}#
+ #{e1\ 4459}#
+ #{e2\ 4460}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i4455"
+ "i4456"
+ "i4457"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i4451"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -15648,13 +17338,13 @@
#((top)
(top)
(top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i4455"
+ "i4456"
+ "i4457"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i4451"))
#(ribcage
()
()
@@ -15666,19 +17356,17 @@
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage
()
()
@@ -15686,7 +17374,7 @@
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
'#(syntax-object
t
@@ -15696,13 +17384,13 @@
#((top)
(top)
(top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i4455"
+ "i4456"
+ "i4457"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i4451"))
#(ribcage
()
()
@@ -15714,19 +17402,17 @@
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage
()
()
@@ -15734,7 +17420,7 @@
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -15746,13 +17432,13 @@
#((top)
(top)
(top))
-
#("i4558"
-
"i4559"
-
"i4560"))
+
#("i4455"
+
"i4456"
+
"i4457"))
#(ribcage
#(rest)
#((top))
-
#("i4554"))
+
#("i4451"))
#(ribcage
()
()
@@ -15764,22 +17450,19 @@
#((top)
(top)
(top))
-
#("i4527"
-
"i4528"
-
"i4529"))
+
#("i4424"
+
"i4425"
+
"i4426"))
#(ribcage
- #(_
- e
+ #(e
m1
m2)
#((top)
(top)
- (top)
(top))
-
#("i4515"
-
"i4516"
-
"i4517"
-
"i4518"))
+
#("i4414"
+
"i4415"
+
"i4416"))
#(ribcage
()
()
@@ -15787,10 +17470,10 @@
#(ribcage
#(x)
#((top))
-
#("i4512")))
+
#("i4411")))
(hygiene
guile))
- #{k\ 4561}#))
+ #{k\ 4458}#))
(cons '#(syntax-object
begin
((top)
@@ -15799,13 +17482,13 @@
#((top)
(top)
(top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i4455"
+ "i4456"
+ "i4457"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i4451"))
#(ribcage
()
()
@@ -15817,19 +17500,17 @@
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i4424"
+ "i4425"
+ "i4426"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i4414"
+ "i4415"
+ "i4416"))
#(ribcage
()
()
@@ -15837,30 +17518,30 @@
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i4411")))
(hygiene guile))
- (cons #{e1\ 4562}#
- #{e2\ 4563}#))
- #{rest\ 4555}#))
- #{tmp\ 4557}#)
- (let ((#{_\ 4567}# #{tmp\ 4556}#))
+ (cons #{e1\ 4459}#
+ #{e2\ 4460}#))
+ #{rest\ 4452}#))
+ #{tmp\ 4454}#)
+ (let ((#{_\ 4464}# #{tmp\ 4453}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4511}#
- #{clause\ 4531}#)))))))))))
- (begin (#{f\ 4530}# #{m1\ 4521}# #{m2\ 4522}#)))))
- (let ((#{body\ 4526}# #{tmp\ 4524}#))
+ #{x\ 4410}#
+ #{clause\ 4428}#)))))))))))
+ (begin (#{f\ 4427}# #{m1\ 4418}# #{m2\ 4419}#)))))
+ (let ((#{body\ 4423}# #{tmp\ 4421}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i4525"))
+ #(ribcage #(body) #((top)) #("i4422"))
#(ribcage
- #(_ e m1 m2)
- #((top) (top) (top) (top))
- #("i4515" "i4516" "i4517" "i4518"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4414" "i4415" "i4416"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4512")))
+ #(ribcage #(x) #((top)) #("i4411")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -15868,470 +17549,384 @@
#(ribcage
#(body)
#((top))
- #("i4525"))
+ #("i4422"))
#(ribcage
- #(_ e m1 m2)
- #((top) (top) (top) (top))
- #("i4515" "i4516" "i4517" "i4518"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4414" "i4415" "i4416"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4512")))
+ #(ribcage #(x) #((top)) #("i4411")))
(hygiene guile))
- #{e\ 4520}#))
- #{body\ 4526}#))))
- #{tmp\ 4514}#)
+ #{e\ 4417}#))
+ #{body\ 4423}#))))
+ #{tmp\ 4413}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4513}#)))))))
+ #{tmp\ 4412}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 4568}#)
- (if (procedure? #{proc\ 4568}#)
+ (lambda (#{proc\ 4465}#)
+ (if (procedure? #{proc\ 4465}#)
(begin
(letrec*
- ((#{trans\ 4571}#
- (lambda (#{x\ 4572}#)
- (#{proc\ 4568}# #{x\ 4572}#))))
+ ((#{trans\ 4468}#
+ (lambda (#{x\ 4469}#)
+ (#{proc\ 4465}# #{x\ 4469}#))))
(begin
(set-procedure-property!
- #{trans\ 4571}#
+ #{trans\ 4468}#
'variable-transformer
#t)
- #{trans\ 4571}#)))
+ #{trans\ 4468}#)))
(error "variable transformer not a procedure"
- #{proc\ 4568}#))))
+ #{proc\ 4465}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4574}#)
- (let ((#{tmp\ 4576}# #{x\ 4574}#))
- (let ((#{tmp\ 4577}#
- ($sc-dispatch #{tmp\ 4576}# (quote (any any)))))
- (if #{tmp\ 4577}#
+ (lambda (#{x\ 4471}#)
+ (let ((#{tmp\ 4473}# #{x\ 4471}#))
+ (let ((#{tmp\ 4474}#
+ ($sc-dispatch #{tmp\ 4473}# (quote (_ any)))))
+ (if #{tmp\ 4474}#
(@apply
- (lambda (#{_\ 4580}# #{e\ 4581}#)
+ (lambda (#{e\ 4476}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
- #{e\ 4581}#))
- (list (cons #{_\ 4580}#
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4575")))
- (hygiene guile))
- #(syntax-object
- ...
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4575")))
- (hygiene guile))))
+ #{e\ 4476}#))
+ (list '(#(syntax-object
+ _
+ ((top)
+ #(ribcage #(e) #((top)) #("i4475"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4472")))
+ (hygiene guile))
+ #(syntax-object
+ x
+ ((top)
+ #(ribcage #(e) #((top)) #("i4475"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4472")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage #(e) #((top)) #("i4475"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4472")))
+ (hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(ribcage #(e) #((top)) #("i4475"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
- (cons #{e\ 4581}#
+ (cons #{e\ 4476}#
'(#(syntax-object
x
((top)
#(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(e)
+ #((top))
+ #("i4475"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
#(syntax-object
...
((top)
#(ribcage
- #(_ e)
- #((top) (top))
- #("i4578" "i4579"))
+ #(e)
+ #((top))
+ #("i4475"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile)))))))))
- #{tmp\ 4577}#)
- (let ((#{tmp\ 4582}#
+ #{tmp\ 4474}#)
+ (let ((#{tmp\ 4477}#
($sc-dispatch
- #{tmp\ 4576}#
- '(any (any any)
- ((#(free-id
- #(syntax-object
- set!
- ((top)
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
- (hygiene guile)))
- any
- any)
- any)))))
- (if (if #{tmp\ 4582}#
+ #{tmp\ 4473}#
+ '(_ (any any)
+ ((#(free-id
+ #(syntax-object
+ set!
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4472")))
+ (hygiene guile)))
+ any
+ any)
+ any)))))
+ (if (if #{tmp\ 4477}#
(@apply
- (lambda (#{_\ 4589}#
- #{id\ 4590}#
- #{exp1\ 4591}#
- #{var\ 4592}#
- #{val\ 4593}#
- #{exp2\ 4594}#)
- (if (identifier? #{id\ 4590}#)
- (identifier? #{var\ 4592}#)
+ (lambda (#{id\ 4483}#
+ #{exp1\ 4484}#
+ #{var\ 4485}#
+ #{val\ 4486}#
+ #{exp2\ 4487}#)
+ (if (identifier? #{id\ 4483}#)
+ (identifier? #{var\ 4485}#)
#f))
- #{tmp\ 4582}#)
+ #{tmp\ 4477}#)
#f)
(@apply
- (lambda (#{_\ 4603}#
- #{id\ 4604}#
- #{exp1\ 4605}#
- #{var\ 4606}#
- #{val\ 4607}#
- #{exp2\ 4608}#)
+ (lambda (#{id\ 4495}#
+ #{exp1\ 4496}#
+ #{var\ 4497}#
+ #{val\ 4498}#
+ #{exp2\ 4499}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4490" "i4491" "i4492" "i4493" "i4494"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
(list '#(syntax-object
lambda
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
'(#(syntax-object
x
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
.
#(syntax-object
variable-transformer
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
'#(syntax-object
x
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile))
'(#(syntax-object
set!
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i4472")))
(hygiene guile)))
(list (list '#(syntax-object
set!
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
- #{var\ 4606}#
- #{val\ 4607}#)
+ #{var\ 4497}#
+ #{val\ 4498}#)
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
- #{exp2\ 4608}#))
- (list (cons #{id\ 4604}#
+ #{exp2\ 4499}#))
+ (list (cons #{id\ 4495}#
'(#(syntax-object
x
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16340,26 +17935,23 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
#(syntax-object
...
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16368,55 +17960,45 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
- (cons #{exp1\ 4605}#
+ (cons #{exp1\ 4496}#
'(#(syntax-object
x
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16425,14 +18007,12 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage
()
()
@@ -16440,14 +18020,13 @@
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
#(syntax-object
...
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16456,14 +18035,12 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage
()
()
@@ -16471,44 +18048,36 @@
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene
guile))))))
- (list #{id\ 4604}#
+ (list #{id\ 4495}#
(list '#(syntax-object
identifier?
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16517,134 +18086,122 @@
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
- #{id\ 4604}#))
+ #{id\ 4495}#))
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i4490"
+ "i4491"
+ "i4492"
+ "i4493"
+ "i4494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i4472")))
(hygiene guile))
- #{exp1\ 4605}#))))))
- #{tmp\ 4582}#)
+ #{exp1\ 4496}#))))))
+ #{tmp\ 4477}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4576}#)))))))))
+ #{tmp\ 4473}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4609}#)
- (let ((#{tmp\ 4611}# #{x\ 4609}#))
- (let ((#{tmp\ 4612}#
+ (lambda (#{x\ 4500}#)
+ (let ((#{tmp\ 4502}# #{x\ 4500}#))
+ (let ((#{tmp\ 4503}#
($sc-dispatch
- #{tmp\ 4611}#
- '(any (any . any) any . each-any))))
- (if #{tmp\ 4612}#
+ #{tmp\ 4502}#
+ '(_ (any . any) any . each-any))))
+ (if #{tmp\ 4503}#
(@apply
- (lambda (#{_\ 4618}#
- #{id\ 4619}#
- #{args\ 4620}#
- #{b0\ 4621}#
- #{b1\ 4622}#)
+ (lambda (#{id\ 4508}#
+ #{args\ 4509}#
+ #{b0\ 4510}#
+ #{b1\ 4511}#)
(list '#(syntax-object
define
((top)
#(ribcage
- #(_ id args b0 b1)
- #((top) (top) (top) (top) (top))
- #("i4613" "i4614" "i4615" "i4616" "i4617"))
+ #(id args b0 b1)
+ #((top) (top) (top) (top))
+ #("i4504" "i4505" "i4506" "i4507"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4610")))
+ #(ribcage #(x) #((top)) #("i4501")))
(hygiene guile))
- #{id\ 4619}#
+ #{id\ 4508}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
- #(_ id args b0 b1)
- #((top) (top) (top) (top) (top))
- #("i4613" "i4614" "i4615" "i4616" "i4617"))
+ #(id args b0 b1)
+ #((top) (top) (top) (top))
+ #("i4504" "i4505" "i4506" "i4507"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4610")))
+ #(ribcage #(x) #((top)) #("i4501")))
(hygiene guile))
- (cons #{args\ 4620}#
- (cons #{b0\ 4621}# #{b1\ 4622}#)))))
- #{tmp\ 4612}#)
- (let ((#{tmp\ 4624}#
- ($sc-dispatch
- #{tmp\ 4611}#
- '(any any any))))
- (if (if #{tmp\ 4624}#
+ (cons #{args\ 4509}#
+ (cons #{b0\ 4510}# #{b1\ 4511}#)))))
+ #{tmp\ 4503}#)
+ (let ((#{tmp\ 4513}#
+ ($sc-dispatch #{tmp\ 4502}# (quote (_ any any)))))
+ (if (if #{tmp\ 4513}#
(@apply
- (lambda (#{_\ 4628}# #{id\ 4629}# #{val\ 4630}#)
+ (lambda (#{id\ 4516}# #{val\ 4517}#)
(identifier?
'#(syntax-object
x
((top)
#(ribcage
- #(_ id val)
- #((top) (top) (top))
- #("i4625" "i4626" "i4627"))
+ #(id val)
+ #((top) (top))
+ #("i4514" "i4515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4610")))
+ #(ribcage #(x) #((top)) #("i4501")))
(hygiene guile))))
- #{tmp\ 4624}#)
+ #{tmp\ 4513}#)
#f)
(@apply
- (lambda (#{_\ 4634}# #{id\ 4635}# #{val\ 4636}#)
+ (lambda (#{id\ 4520}# #{val\ 4521}#)
(list '#(syntax-object
define
((top)
#(ribcage
- #(_ id val)
- #((top) (top) (top))
- #("i4631" "i4632" "i4633"))
+ #(id val)
+ #((top) (top))
+ #("i4518" "i4519"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4610")))
+ #(ribcage #(x) #((top)) #("i4501")))
(hygiene guile))
- #{id\ 4635}#
- #{val\ 4636}#))
- #{tmp\ 4624}#)
+ #{id\ 4520}#
+ #{val\ 4521}#))
+ #{tmp\ 4513}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4611}#)))))))))
+ #{tmp\ 4502}#)))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 21aa2ac..b18099b 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1539,6 +1539,11 @@
(and (nonsymbol-id? x)
(free-id=? x #'(... ...)))))
+ (define underscore?
+ (lambda (x)
+ (and (nonsymbol-id? x)
+ (free-id=? x #'_))))
+
(define lambda-formals
(lambda (orig-args)
(define (req args rreq)
@@ -2272,9 +2277,13 @@
(define cvt
(lambda (p n ids)
(if (id? p)
- (if (bound-id-member? p keys)
- (values (vector 'free-id p) ids)
- (values 'any (cons (cons p n) ids)))
+ (cond
+ ((bound-id-member? p keys)
+ (values (vector 'free-id p) ids))
+ ((free-id=? p #'_)
+ (values '_ ids))
+ (else
+ (values 'any (cons (cons p n) ids))))
(syntax-case p ()
((x dots)
(ellipsis? (syntax dots))
@@ -2375,20 +2384,22 @@
(if (and (id? #'pat)
(and-map (lambda (x) (not (free-id=?
#'pat x)))
(cons #'(... ...) keys)))
- (let ((labels (list (gen-label)))
- (var (gen-var #'pat)))
- (build-application no-source
- (build-simple-lambda
- no-source (list
(syntax->datum #'pat)) #f (list var)
- '()
- (chi #'exp
- (extend-env labels
- (list
(make-binding 'syntax `(,var . 0)))
- r)
-
(make-binding-wrap #'(pat)
-
labels empty-wrap)
- mod))
- (list x)))
+ (if (free-id=? #'pad #'_)
+ (chi #'exp r empty-wrap mod)
+ (let ((labels (list (gen-label)))
+ (var (gen-var #'pat)))
+ (build-application no-source
+ (build-simple-lambda
+ no-source (list
(syntax->datum #'pat)) #f (list var)
+ '()
+ (chi #'exp
+ (extend-env
labels
+
(list (make-binding 'syntax `(,var . 0)))
+ r)
+
(make-binding-wrap #'(pat)
+
labels empty-wrap)
+ mod))
+ (list x))))
(gen-clause x keys (cdr clauses) r
#'pat #t #'exp mod)))
((pat fender exp)
@@ -2401,7 +2412,8 @@
(let ((e (source-wrap e w s mod)))
(syntax-case e ()
((_ val (key ...) m ...)
- (if (and-map (lambda (x) (and (id? x) (not
(ellipsis? x))))
+ (if (and-map (lambda (x)
+ (and (id? x) (not (ellipsis? x)) (not
(underscore? x))))
#'(key ...))
(let ((x (gen-var 'tmp)))
; fat finger binding and references to
temp variable x
@@ -2561,6 +2573,7 @@
(lambda (p r)
(cond
((null? p) r)
+ ((eq? p '_) r)
((eq? p 'any) (cons '() r))
((pair? p) (match-empty (car p) (match-empty (cdr p) r)))
((eq? p 'each-any) (cons '() r))
@@ -2621,6 +2634,7 @@
(lambda (e p w r mod)
(cond
((not r) #f)
+ ((eq? p '_) r)
((eq? p 'any) (cons (wrap e w mod) r))
((syntax-object? e)
(match*
@@ -2635,6 +2649,7 @@
(lambda (e p)
(cond
((eq? p 'any) (list e))
+ ((eq? p '_) '())
((syntax-object? e)
(match* (syntax-object-expression e)
p (syntax-object-wrap e) '() (syntax-object-module e)))
diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test
index 8cc366e..87d7890 100644
--- a/test-suite/tests/syncase.test
+++ b/test-suite/tests/syncase.test
@@ -141,3 +141,14 @@
(with-test-prefix "macro-generating macro"
(pass-if "module hygiene"
(eq? (foo) 'hello)))
+
+(pass-if "_ is a placeholder"
+ (equal? (eval '(begin
+ (define-syntax ciao
+ (lambda (stx)
+ (syntax-case stx ()
+ ((_ _)
+ "ciao"))))
+ (ciao 1))
+ (current-module))
+ "ciao"))
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 035ebf8..5813e4d 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -139,14 +139,14 @@
(eval '(begin (if #t (begin)) #t) (interaction-environment))))
(define-syntax matches?
- (syntax-rules (_)
+ (syntax-rules (<>)
((_ (op arg ...) pat) (let ((x (op arg ...)))
(matches? x pat)))
((_ x ()) (null? x))
((_ x (a . b)) (and (pair? x)
(matches? (car x) a)
(matches? (cdr x) b)))
- ((_ x _) #t)
+ ((_ x <>) #t)
((_ x pat) (equal? x 'pat))))
(with-test-prefix "lambda"
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |