|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-11-1-g22cf27c |
| Date: | Wed, 02 Jun 2010 14:11:37 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=22cf27c815b756cac6893b5b239898767e6cb498
The branch, master has been updated
via 22cf27c815b756cac6893b5b239898767e6cb498 (commit)
from 04ed046aa47eab44d20f4ba6282fee6fcbe8dfc8 (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 22cf27c815b756cac6893b5b239898767e6cb498
Author: Andy Wingo <address@hidden>
Date: Wed Jun 2 16:07:11 2010 +0200
fix procedure naming
* module/ice-9/psyntax.scm (define-expansion-accessors): New helper, to
define accesors for a particular expansion data structure. Use it
later to define lambda?, lambda-meta, and set-lambda-meta!.
(maybe-name-value): Update to work with the newly defined accessors.
(build-global-reference, build-let, build-named-let, build-letrec):
Re-enable naming of procedures.
* module/ice-9/psyntax-pp.scm: Regenerated.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/psyntax-pp.scm |15090 ++++++++++++++++++++++---------------------
module/ice-9/psyntax.scm | 59 +-
2 files changed, 7694 insertions(+), 7455 deletions(-)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 76f409c..87dc159 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,637 +2,639 @@
(if #f #f)
(letrec ((#{and-map*\ 20}#
- (lambda (#{f\ 134}# #{first\ 135}# . #{rest\ 136}#)
- (let ((#{t\ 142}# (null? #{first\ 135}#)))
- (if #{t\ 142}#
- #{t\ 142}#
- (if (null? #{rest\ 136}#)
- (letrec ((#{andmap\ 146}#
- (lambda (#{first\ 147}#)
- (let ((#{x\ 150}# (car #{first\ 147}#))
- (#{first\ 151}# (cdr #{first\ 147}#)))
- (if (null? #{first\ 151}#)
- (#{f\ 134}# #{x\ 150}#)
- (if (#{f\ 134}# #{x\ 150}#)
- (#{andmap\ 146}# #{first\ 151}#)
+ (lambda (#{f\ 192}# #{first\ 193}# . #{rest\ 194}#)
+ (let ((#{t\ 200}# (null? #{first\ 193}#)))
+ (if #{t\ 200}#
+ #{t\ 200}#
+ (if (null? #{rest\ 194}#)
+ (letrec ((#{andmap\ 204}#
+ (lambda (#{first\ 205}#)
+ (let ((#{x\ 208}# (car #{first\ 205}#))
+ (#{first\ 209}# (cdr #{first\ 205}#)))
+ (if (null? #{first\ 209}#)
+ (#{f\ 192}# #{x\ 208}#)
+ (if (#{f\ 192}# #{x\ 208}#)
+ (#{andmap\ 204}# #{first\ 209}#)
#f))))))
- (#{andmap\ 146}# #{first\ 135}#))
- (letrec ((#{andmap\ 157}#
- (lambda (#{first\ 158}# #{rest\ 159}#)
- (let ((#{x\ 164}# (car #{first\ 158}#))
- (#{xr\ 165}# (map car #{rest\ 159}#))
- (#{first\ 166}# (cdr #{first\ 158}#))
- (#{rest\ 167}# (map cdr #{rest\ 159}#)))
- (if (null? #{first\ 166}#)
- (apply #{f\ 134}#
- (cons #{x\ 164}# #{xr\ 165}#))
- (if (apply #{f\ 134}#
- (cons #{x\ 164}# #{xr\ 165}#))
- (#{andmap\ 157}#
- #{first\ 166}#
- #{rest\ 167}#)
+ (#{andmap\ 204}# #{first\ 193}#))
+ (letrec ((#{andmap\ 215}#
+ (lambda (#{first\ 216}# #{rest\ 217}#)
+ (let ((#{x\ 222}# (car #{first\ 216}#))
+ (#{xr\ 223}# (map car #{rest\ 217}#))
+ (#{first\ 224}# (cdr #{first\ 216}#))
+ (#{rest\ 225}# (map cdr #{rest\ 217}#)))
+ (if (null? #{first\ 224}#)
+ (apply #{f\ 192}#
+ (cons #{x\ 222}# #{xr\ 223}#))
+ (if (apply #{f\ 192}#
+ (cons #{x\ 222}# #{xr\ 223}#))
+ (#{andmap\ 215}#
+ #{first\ 224}#
+ #{rest\ 225}#)
#f))))))
- (#{andmap\ 157}# #{first\ 135}# #{rest\ 136}#))))))))
- (letrec ((#{lambda-var-list\ 422}#
- (lambda (#{vars\ 637}#)
- (letrec ((#{lvl\ 643}#
- (lambda (#{vars\ 644}# #{ls\ 645}# #{w\ 646}#)
- (if (pair? #{vars\ 644}#)
- (#{lvl\ 643}#
- (cdr #{vars\ 644}#)
- (cons (#{wrap\ 376}#
- (car #{vars\ 644}#)
- #{w\ 646}#
+ (#{andmap\ 215}# #{first\ 193}# #{rest\ 194}#))))))))
+ (letrec ((#{lambda-var-list\ 487}#
+ (lambda (#{vars\ 702}#)
+ (letrec ((#{lvl\ 708}#
+ (lambda (#{vars\ 709}# #{ls\ 710}# #{w\ 711}#)
+ (if (pair? #{vars\ 709}#)
+ (#{lvl\ 708}#
+ (cdr #{vars\ 709}#)
+ (cons (#{wrap\ 441}#
+ (car #{vars\ 709}#)
+ #{w\ 711}#
#f)
- #{ls\ 645}#)
- #{w\ 646}#)
- (if (#{id?\ 307}# #{vars\ 644}#)
- (cons (#{wrap\ 376}#
- #{vars\ 644}#
- #{w\ 646}#
+ #{ls\ 710}#)
+ #{w\ 711}#)
+ (if (#{id?\ 372}# #{vars\ 709}#)
+ (cons (#{wrap\ 441}#
+ #{vars\ 709}#
+ #{w\ 711}#
#f)
- #{ls\ 645}#)
- (if (null? #{vars\ 644}#)
- #{ls\ 645}#
- (if (#{syntax-object?\ 271}# #{vars\ 644}#)
- (#{lvl\ 643}#
- (#{syntax-object-expression\ 273}#
- #{vars\ 644}#)
- #{ls\ 645}#
- (#{join-wraps\ 358}#
- #{w\ 646}#
- (#{syntax-object-wrap\ 275}#
- #{vars\ 644}#)))
- (cons #{vars\ 644}# #{ls\ 645}#))))))))
- (#{lvl\ 643}#
- #{vars\ 637}#
+ #{ls\ 710}#)
+ (if (null? #{vars\ 709}#)
+ #{ls\ 710}#
+ (if (#{syntax-object?\ 336}# #{vars\ 709}#)
+ (#{lvl\ 708}#
+ (#{syntax-object-expression\ 338}#
+ #{vars\ 709}#)
+ #{ls\ 710}#
+ (#{join-wraps\ 423}#
+ #{w\ 711}#
+ (#{syntax-object-wrap\ 340}#
+ #{vars\ 709}#)))
+ (cons #{vars\ 709}# #{ls\ 710}#))))))))
+ (#{lvl\ 708}#
+ #{vars\ 702}#
'()
'(())))))
- (#{gen-var\ 420}#
- (lambda (#{id\ 657}#)
- (let ((#{id\ 660}#
- (if (#{syntax-object?\ 271}# #{id\ 657}#)
- (#{syntax-object-expression\ 273}# #{id\ 657}#)
- #{id\ 657}#)))
+ (#{gen-var\ 485}#
+ (lambda (#{id\ 722}#)
+ (let ((#{id\ 725}#
+ (if (#{syntax-object?\ 336}# #{id\ 722}#)
+ (#{syntax-object-expression\ 338}# #{id\ 722}#)
+ #{id\ 722}#)))
(gensym
- (string-append (symbol->string #{id\ 660}#) " ")))))
- (#{strip\ 418}#
- (lambda (#{x\ 662}# #{w\ 663}#)
+ (string-append (symbol->string #{id\ 725}#) " ")))))
+ (#{strip\ 483}#
+ (lambda (#{x\ 727}# #{w\ 728}#)
(if (memq 'top
- (#{wrap-marks\ 314}# #{w\ 663}#))
- #{x\ 662}#
- (letrec ((#{f\ 669}# (lambda (#{x\ 670}#)
- (if (#{syntax-object?\ 271}#
- #{x\ 670}#)
- (#{strip\ 418}#
- (#{syntax-object-expression\ 273}#
- #{x\ 670}#)
- (#{syntax-object-wrap\ 275}#
- #{x\ 670}#))
- (if (pair? #{x\ 670}#)
- (let ((#{a\ 677}# (#{f\ 669}# (car
#{x\ 670}#)))
- (#{d\ 678}# (#{f\ 669}# (cdr
#{x\ 670}#))))
- (if (if (eq? #{a\ 677}#
- (car #{x\ 670}#))
- (eq? #{d\ 678}#
- (cdr #{x\ 670}#))
+ (#{wrap-marks\ 379}# #{w\ 728}#))
+ #{x\ 727}#
+ (letrec ((#{f\ 734}# (lambda (#{x\ 735}#)
+ (if (#{syntax-object?\ 336}#
+ #{x\ 735}#)
+ (#{strip\ 483}#
+ (#{syntax-object-expression\ 338}#
+ #{x\ 735}#)
+ (#{syntax-object-wrap\ 340}#
+ #{x\ 735}#))
+ (if (pair? #{x\ 735}#)
+ (let ((#{a\ 742}# (#{f\ 734}# (car
#{x\ 735}#)))
+ (#{d\ 743}# (#{f\ 734}# (cdr
#{x\ 735}#))))
+ (if (if (eq? #{a\ 742}#
+ (car #{x\ 735}#))
+ (eq? #{d\ 743}#
+ (cdr #{x\ 735}#))
#f)
- #{x\ 670}#
- (cons #{a\ 677}# #{d\ 678}#)))
- (if (vector? #{x\ 670}#)
- (let ((#{old\ 684}#
+ #{x\ 735}#
+ (cons #{a\ 742}# #{d\ 743}#)))
+ (if (vector? #{x\ 735}#)
+ (let ((#{old\ 749}#
(vector->list
- #{x\ 670}#)))
- (let ((#{new\ 686}#
- (map #{f\ 669}#
- #{old\ 684}#)))
+ #{x\ 735}#)))
+ (let ((#{new\ 751}#
+ (map #{f\ 734}#
+ #{old\ 749}#)))
(if (#{and-map*\ 20}#
eq?
- #{old\ 684}#
- #{new\ 686}#)
- #{x\ 670}#
+ #{old\ 749}#
+ #{new\ 751}#)
+ #{x\ 735}#
(list->vector
- #{new\ 686}#))))
- #{x\ 670}#))))))
- (#{f\ 669}# #{x\ 662}#)))))
- (#{chi-lambda-case\ 416}#
- (lambda (#{e\ 688}#
- #{r\ 689}#
- #{w\ 690}#
- #{s\ 691}#
- #{mod\ 692}#
- #{get-formals\ 693}#
- #{clauses\ 694}#)
- (letrec ((#{expand-body\ 709}#
- (lambda (#{req\ 710}#
- #{opt\ 711}#
- #{rest\ 712}#
- #{kw\ 713}#
- #{body\ 714}#
- #{vars\ 715}#
- #{r*\ 716}#
- #{w*\ 717}#
- #{inits\ 718}#
- #{meta\ 719}#)
- ((lambda (#{tmp\ 730}#)
- ((lambda (#{tmp\ 731}#)
- (if (if #{tmp\ 731}#
- (apply (lambda (#{docstring\ 735}#
- #{e1\ 736}#
- #{e2\ 737}#)
+ #{new\ 751}#))))
+ #{x\ 735}#))))))
+ (#{f\ 734}# #{x\ 727}#)))))
+ (#{chi-lambda-case\ 481}#
+ (lambda (#{e\ 753}#
+ #{r\ 754}#
+ #{w\ 755}#
+ #{s\ 756}#
+ #{mod\ 757}#
+ #{get-formals\ 758}#
+ #{clauses\ 759}#)
+ (letrec ((#{expand-body\ 774}#
+ (lambda (#{req\ 775}#
+ #{opt\ 776}#
+ #{rest\ 777}#
+ #{kw\ 778}#
+ #{body\ 779}#
+ #{vars\ 780}#
+ #{r*\ 781}#
+ #{w*\ 782}#
+ #{inits\ 783}#
+ #{meta\ 784}#)
+ ((lambda (#{tmp\ 795}#)
+ ((lambda (#{tmp\ 796}#)
+ (if (if #{tmp\ 796}#
+ (apply (lambda (#{docstring\ 800}#
+ #{e1\ 801}#
+ #{e2\ 802}#)
(string?
(syntax->datum
- #{docstring\ 735}#)))
- #{tmp\ 731}#)
+ #{docstring\ 800}#)))
+ #{tmp\ 796}#)
#f)
- (apply (lambda (#{docstring\ 741}#
- #{e1\ 742}#
- #{e2\ 743}#)
- (#{expand-body\ 709}#
- #{req\ 710}#
- #{opt\ 711}#
- #{rest\ 712}#
- #{kw\ 713}#
- (cons #{e1\ 742}# #{e2\ 743}#)
- #{vars\ 715}#
- #{r*\ 716}#
- #{w*\ 717}#
- #{inits\ 718}#
+ (apply (lambda (#{docstring\ 806}#
+ #{e1\ 807}#
+ #{e2\ 808}#)
+ (#{expand-body\ 774}#
+ #{req\ 775}#
+ #{opt\ 776}#
+ #{rest\ 777}#
+ #{kw\ 778}#
+ (cons #{e1\ 807}# #{e2\ 808}#)
+ #{vars\ 780}#
+ #{r*\ 781}#
+ #{w*\ 782}#
+ #{inits\ 783}#
(append
- #{meta\ 719}#
+ #{meta\ 784}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
741}#))))))
- #{tmp\ 731}#)
- ((lambda (#{tmp\ 746}#)
- (if #{tmp\ 746}#
- (apply (lambda (#{k\ 751}#
- #{v\ 752}#
- #{e1\ 753}#
- #{e2\ 754}#)
- (#{expand-body\ 709}#
- #{req\ 710}#
- #{opt\ 711}#
- #{rest\ 712}#
- #{kw\ 713}#
- (cons #{e1\ 753}#
- #{e2\ 754}#)
- #{vars\ 715}#
- #{r*\ 716}#
- #{w*\ 717}#
- #{inits\ 718}#
+ #{docstring\
806}#))))))
+ #{tmp\ 796}#)
+ ((lambda (#{tmp\ 811}#)
+ (if #{tmp\ 811}#
+ (apply (lambda (#{k\ 816}#
+ #{v\ 817}#
+ #{e1\ 818}#
+ #{e2\ 819}#)
+ (#{expand-body\ 774}#
+ #{req\ 775}#
+ #{opt\ 776}#
+ #{rest\ 777}#
+ #{kw\ 778}#
+ (cons #{e1\ 818}#
+ #{e2\ 819}#)
+ #{vars\ 780}#
+ #{r*\ 781}#
+ #{w*\ 782}#
+ #{inits\ 783}#
(append
- #{meta\ 719}#
+ #{meta\ 784}#
(syntax->datum
(map cons
- #{k\ 751}#
- #{v\ 752}#)))))
- #{tmp\ 746}#)
- ((lambda (#{tmp\ 758}#)
- (if #{tmp\ 758}#
- (apply (lambda (#{e1\ 761}#
- #{e2\ 762}#)
+ #{k\ 816}#
+ #{v\ 817}#)))))
+ #{tmp\ 811}#)
+ ((lambda (#{tmp\ 823}#)
+ (if #{tmp\ 823}#
+ (apply (lambda (#{e1\ 826}#
+ #{e2\ 827}#)
(values
- #{meta\ 719}#
- #{req\ 710}#
- #{opt\ 711}#
- #{rest\ 712}#
- #{kw\ 713}#
- #{inits\ 718}#
- #{vars\ 715}#
- (#{chi-body\ 400}#
- (cons #{e1\ 761}#
- #{e2\ 762}#)
- (#{source-wrap\
378}#
- #{e\ 688}#
- #{w\ 690}#
- #{s\ 691}#
- #{mod\ 692}#)
- #{r*\ 716}#
- #{w*\ 717}#
- #{mod\ 692}#)))
- #{tmp\ 758}#)
+ #{meta\ 784}#
+ #{req\ 775}#
+ #{opt\ 776}#
+ #{rest\ 777}#
+ #{kw\ 778}#
+ #{inits\ 783}#
+ #{vars\ 780}#
+ (#{chi-body\ 465}#
+ (cons #{e1\ 826}#
+ #{e2\ 827}#)
+ (#{source-wrap\
443}#
+ #{e\ 753}#
+ #{w\ 755}#
+ #{s\ 756}#
+ #{mod\ 757}#)
+ #{r*\ 781}#
+ #{w*\ 782}#
+ #{mod\ 757}#)))
+ #{tmp\ 823}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 730}#)))
+ #{tmp\ 795}#)))
($sc-dispatch
- #{tmp\ 730}#
+ #{tmp\ 795}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 730}#
+ #{tmp\ 795}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 730}#
+ #{tmp\ 795}#
'(any any . each-any))))
- #{body\ 714}#)))
- (#{expand-kw\ 707}#
- (lambda (#{req\ 764}#
- #{opt\ 765}#
- #{rest\ 766}#
- #{kw\ 767}#
- #{body\ 768}#
- #{vars\ 769}#
- #{r*\ 770}#
- #{w*\ 771}#
- #{aok\ 772}#
- #{out\ 773}#
- #{inits\ 774}#)
- (if (pair? #{kw\ 767}#)
- ((lambda (#{tmp\ 788}#)
- ((lambda (#{tmp\ 789}#)
- (if #{tmp\ 789}#
- (apply (lambda (#{k\ 793}#
- #{id\ 794}#
- #{i\ 795}#)
- (let ((#{v\ 798}# (#{gen-var\
420}#
- #{id\
794}#)))
- (let ((#{l\ 800}#
(#{gen-labels\ 325}#
- (list
#{v\ 798}#))))
- (let ((#{r**\ 802}#
- (#{extend-var-env\
297}#
- #{l\ 800}#
- (list #{v\ 798}#)
- #{r*\ 770}#)))
- (let ((#{w**\ 804}#
-
(#{make-binding-wrap\ 354}#
- (list #{id\
794}#)
- #{l\ 800}#
- #{w*\ 771}#)))
- (#{expand-kw\ 707}#
- #{req\ 764}#
- #{opt\ 765}#
- #{rest\ 766}#
- (cdr #{kw\ 767}#)
- #{body\ 768}#
- (cons #{v\ 798}#
- #{vars\ 769}#)
- #{r**\ 802}#
- #{w**\ 804}#
- #{aok\ 772}#
+ #{body\ 779}#)))
+ (#{expand-kw\ 772}#
+ (lambda (#{req\ 829}#
+ #{opt\ 830}#
+ #{rest\ 831}#
+ #{kw\ 832}#
+ #{body\ 833}#
+ #{vars\ 834}#
+ #{r*\ 835}#
+ #{w*\ 836}#
+ #{aok\ 837}#
+ #{out\ 838}#
+ #{inits\ 839}#)
+ (if (pair? #{kw\ 832}#)
+ ((lambda (#{tmp\ 853}#)
+ ((lambda (#{tmp\ 854}#)
+ (if #{tmp\ 854}#
+ (apply (lambda (#{k\ 858}#
+ #{id\ 859}#
+ #{i\ 860}#)
+ (let ((#{v\ 863}# (#{gen-var\
485}#
+ #{id\
859}#)))
+ (let ((#{l\ 865}#
(#{gen-labels\ 390}#
+ (list
#{v\ 863}#))))
+ (let ((#{r**\ 867}#
+ (#{extend-var-env\
362}#
+ #{l\ 865}#
+ (list #{v\ 863}#)
+ #{r*\ 835}#)))
+ (let ((#{w**\ 869}#
+
(#{make-binding-wrap\ 419}#
+ (list #{id\
859}#)
+ #{l\ 865}#
+ #{w*\ 836}#)))
+ (#{expand-kw\ 772}#
+ #{req\ 829}#
+ #{opt\ 830}#
+ #{rest\ 831}#
+ (cdr #{kw\ 832}#)
+ #{body\ 833}#
+ (cons #{v\ 863}#
+ #{vars\ 834}#)
+ #{r**\ 867}#
+ #{w**\ 869}#
+ #{aok\ 837}#
(cons (list
(syntax->datum
- #{k\
793}#)
+ #{k\
858}#)
(syntax->datum
- #{id\
794}#)
- #{v\
798}#)
- #{out\ 773}#)
- (cons (#{chi\ 392}#
- #{i\ 795}#
- #{r*\ 770}#
- #{w*\ 771}#
- #{mod\ 692}#)
- #{inits\
774}#)))))))
- #{tmp\ 789}#)
+ #{id\
859}#)
+ #{v\
863}#)
+ #{out\ 838}#)
+ (cons (#{chi\ 457}#
+ #{i\ 860}#
+ #{r*\ 835}#
+ #{w*\ 836}#
+ #{mod\ 757}#)
+ #{inits\
839}#)))))))
+ #{tmp\ 854}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 788}#)))
+ #{tmp\ 853}#)))
($sc-dispatch
- #{tmp\ 788}#
+ #{tmp\ 853}#
'(any any any))))
- (car #{kw\ 767}#))
- (#{expand-body\ 709}#
- #{req\ 764}#
- #{opt\ 765}#
- #{rest\ 766}#
- (if (let ((#{t\ 808}# #{aok\ 772}#))
- (if #{t\ 808}#
- #{t\ 808}#
- (pair? #{out\ 773}#)))
- (cons #{aok\ 772}# (reverse #{out\ 773}#))
+ (car #{kw\ 832}#))
+ (#{expand-body\ 774}#
+ #{req\ 829}#
+ #{opt\ 830}#
+ #{rest\ 831}#
+ (if (let ((#{t\ 873}# #{aok\ 837}#))
+ (if #{t\ 873}#
+ #{t\ 873}#
+ (pair? #{out\ 838}#)))
+ (cons #{aok\ 837}# (reverse #{out\ 838}#))
#f)
- #{body\ 768}#
- (reverse #{vars\ 769}#)
- #{r*\ 770}#
- #{w*\ 771}#
- (reverse #{inits\ 774}#)
+ #{body\ 833}#
+ (reverse #{vars\ 834}#)
+ #{r*\ 835}#
+ #{w*\ 836}#
+ (reverse #{inits\ 839}#)
'()))))
- (#{expand-opt\ 705}#
- (lambda (#{req\ 810}#
- #{opt\ 811}#
- #{rest\ 812}#
- #{kw\ 813}#
- #{body\ 814}#
- #{vars\ 815}#
- #{r*\ 816}#
- #{w*\ 817}#
- #{out\ 818}#
- #{inits\ 819}#)
- (if (pair? #{opt\ 811}#)
- ((lambda (#{tmp\ 832}#)
- ((lambda (#{tmp\ 833}#)
- (if #{tmp\ 833}#
- (apply (lambda (#{id\ 836}# #{i\ 837}#)
- (let ((#{v\ 840}# (#{gen-var\
420}#
- #{id\
836}#)))
- (let ((#{l\ 842}#
(#{gen-labels\ 325}#
- (list
#{v\ 840}#))))
- (let ((#{r**\ 844}#
- (#{extend-var-env\
297}#
- #{l\ 842}#
- (list #{v\ 840}#)
- #{r*\ 816}#)))
- (let ((#{w**\ 846}#
-
(#{make-binding-wrap\ 354}#
- (list #{id\
836}#)
- #{l\ 842}#
- #{w*\ 817}#)))
- (#{expand-opt\ 705}#
- #{req\ 810}#
- (cdr #{opt\ 811}#)
- #{rest\ 812}#
- #{kw\ 813}#
- #{body\ 814}#
- (cons #{v\ 840}#
- #{vars\ 815}#)
- #{r**\ 844}#
- #{w**\ 846}#
+ (#{expand-opt\ 770}#
+ (lambda (#{req\ 875}#
+ #{opt\ 876}#
+ #{rest\ 877}#
+ #{kw\ 878}#
+ #{body\ 879}#
+ #{vars\ 880}#
+ #{r*\ 881}#
+ #{w*\ 882}#
+ #{out\ 883}#
+ #{inits\ 884}#)
+ (if (pair? #{opt\ 876}#)
+ ((lambda (#{tmp\ 897}#)
+ ((lambda (#{tmp\ 898}#)
+ (if #{tmp\ 898}#
+ (apply (lambda (#{id\ 901}# #{i\ 902}#)
+ (let ((#{v\ 905}# (#{gen-var\
485}#
+ #{id\
901}#)))
+ (let ((#{l\ 907}#
(#{gen-labels\ 390}#
+ (list
#{v\ 905}#))))
+ (let ((#{r**\ 909}#
+ (#{extend-var-env\
362}#
+ #{l\ 907}#
+ (list #{v\ 905}#)
+ #{r*\ 881}#)))
+ (let ((#{w**\ 911}#
+
(#{make-binding-wrap\ 419}#
+ (list #{id\
901}#)
+ #{l\ 907}#
+ #{w*\ 882}#)))
+ (#{expand-opt\ 770}#
+ #{req\ 875}#
+ (cdr #{opt\ 876}#)
+ #{rest\ 877}#
+ #{kw\ 878}#
+ #{body\ 879}#
+ (cons #{v\ 905}#
+ #{vars\ 880}#)
+ #{r**\ 909}#
+ #{w**\ 911}#
(cons (syntax->datum
- #{id\ 836}#)
- #{out\ 818}#)
- (cons (#{chi\ 392}#
- #{i\ 837}#
- #{r*\ 816}#
- #{w*\ 817}#
- #{mod\ 692}#)
- #{inits\
819}#)))))))
- #{tmp\ 833}#)
+ #{id\ 901}#)
+ #{out\ 883}#)
+ (cons (#{chi\ 457}#
+ #{i\ 902}#
+ #{r*\ 881}#
+ #{w*\ 882}#
+ #{mod\ 757}#)
+ #{inits\
884}#)))))))
+ #{tmp\ 898}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 832}#)))
+ #{tmp\ 897}#)))
($sc-dispatch
- #{tmp\ 832}#
+ #{tmp\ 897}#
'(any any))))
- (car #{opt\ 811}#))
- (if #{rest\ 812}#
- (let ((#{v\ 851}# (#{gen-var\ 420}#
- #{rest\ 812}#)))
- (let ((#{l\ 853}# (#{gen-labels\ 325}#
- (list #{v\ 851}#))))
- (let ((#{r*\ 855}#
- (#{extend-var-env\ 297}#
- #{l\ 853}#
- (list #{v\ 851}#)
- #{r*\ 816}#)))
- (let ((#{w*\ 857}#
- (#{make-binding-wrap\ 354}#
- (list #{rest\ 812}#)
- #{l\ 853}#
- #{w*\ 817}#)))
- (#{expand-kw\ 707}#
- #{req\ 810}#
- (if (pair? #{out\ 818}#)
- (reverse #{out\ 818}#)
+ (car #{opt\ 876}#))
+ (if #{rest\ 877}#
+ (let ((#{v\ 916}# (#{gen-var\ 485}#
+ #{rest\ 877}#)))
+ (let ((#{l\ 918}# (#{gen-labels\ 390}#
+ (list #{v\ 916}#))))
+ (let ((#{r*\ 920}#
+ (#{extend-var-env\ 362}#
+ #{l\ 918}#
+ (list #{v\ 916}#)
+ #{r*\ 881}#)))
+ (let ((#{w*\ 922}#
+ (#{make-binding-wrap\ 419}#
+ (list #{rest\ 877}#)
+ #{l\ 918}#
+ #{w*\ 882}#)))
+ (#{expand-kw\ 772}#
+ #{req\ 875}#
+ (if (pair? #{out\ 883}#)
+ (reverse #{out\ 883}#)
#f)
- (syntax->datum #{rest\ 812}#)
- (if (pair? #{kw\ 813}#)
- (cdr #{kw\ 813}#)
- #{kw\ 813}#)
- #{body\ 814}#
- (cons #{v\ 851}# #{vars\ 815}#)
- #{r*\ 855}#
- #{w*\ 857}#
- (if (pair? #{kw\ 813}#)
- (car #{kw\ 813}#)
+ (syntax->datum #{rest\ 877}#)
+ (if (pair? #{kw\ 878}#)
+ (cdr #{kw\ 878}#)
+ #{kw\ 878}#)
+ #{body\ 879}#
+ (cons #{v\ 916}# #{vars\ 880}#)
+ #{r*\ 920}#
+ #{w*\ 922}#
+ (if (pair? #{kw\ 878}#)
+ (car #{kw\ 878}#)
#f)
'()
- #{inits\ 819}#)))))
- (#{expand-kw\ 707}#
- #{req\ 810}#
- (if (pair? #{out\ 818}#)
- (reverse #{out\ 818}#)
+ #{inits\ 884}#)))))
+ (#{expand-kw\ 772}#
+ #{req\ 875}#
+ (if (pair? #{out\ 883}#)
+ (reverse #{out\ 883}#)
#f)
#f
- (if (pair? #{kw\ 813}#)
- (cdr #{kw\ 813}#)
- #{kw\ 813}#)
- #{body\ 814}#
- #{vars\ 815}#
- #{r*\ 816}#
- #{w*\ 817}#
- (if (pair? #{kw\ 813}#) (car #{kw\ 813}#) #f)
+ (if (pair? #{kw\ 878}#)
+ (cdr #{kw\ 878}#)
+ #{kw\ 878}#)
+ #{body\ 879}#
+ #{vars\ 880}#
+ #{r*\ 881}#
+ #{w*\ 882}#
+ (if (pair? #{kw\ 878}#) (car #{kw\ 878}#) #f)
'()
- #{inits\ 819}#)))))
- (#{expand-req\ 703}#
- (lambda (#{req\ 859}#
- #{opt\ 860}#
- #{rest\ 861}#
- #{kw\ 862}#
- #{body\ 863}#)
- (let ((#{vars\ 871}#
- (map #{gen-var\ 420}# #{req\ 859}#))
- (#{labels\ 872}#
- (#{gen-labels\ 325}# #{req\ 859}#)))
- (let ((#{r*\ 875}#
- (#{extend-var-env\ 297}#
- #{labels\ 872}#
- #{vars\ 871}#
- #{r\ 689}#))
- (#{w*\ 876}#
- (#{make-binding-wrap\ 354}#
- #{req\ 859}#
- #{labels\ 872}#
- #{w\ 690}#)))
- (#{expand-opt\ 705}#
- (map syntax->datum #{req\ 859}#)
- #{opt\ 860}#
- #{rest\ 861}#
- #{kw\ 862}#
- #{body\ 863}#
- (reverse #{vars\ 871}#)
- #{r*\ 875}#
- #{w*\ 876}#
+ #{inits\ 884}#)))))
+ (#{expand-req\ 768}#
+ (lambda (#{req\ 924}#
+ #{opt\ 925}#
+ #{rest\ 926}#
+ #{kw\ 927}#
+ #{body\ 928}#)
+ (let ((#{vars\ 936}#
+ (map #{gen-var\ 485}# #{req\ 924}#))
+ (#{labels\ 937}#
+ (#{gen-labels\ 390}# #{req\ 924}#)))
+ (let ((#{r*\ 940}#
+ (#{extend-var-env\ 362}#
+ #{labels\ 937}#
+ #{vars\ 936}#
+ #{r\ 754}#))
+ (#{w*\ 941}#
+ (#{make-binding-wrap\ 419}#
+ #{req\ 924}#
+ #{labels\ 937}#
+ #{w\ 755}#)))
+ (#{expand-opt\ 770}#
+ (map syntax->datum #{req\ 924}#)
+ #{opt\ 925}#
+ #{rest\ 926}#
+ #{kw\ 927}#
+ #{body\ 928}#
+ (reverse #{vars\ 936}#)
+ #{r*\ 940}#
+ #{w*\ 941}#
'()
'()))))))
- ((lambda (#{tmp\ 877}#)
- ((lambda (#{tmp\ 878}#)
- (if #{tmp\ 878}#
+ ((lambda (#{tmp\ 942}#)
+ ((lambda (#{tmp\ 943}#)
+ (if #{tmp\ 943}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 878}#)
- ((lambda (#{tmp\ 879}#)
- (if #{tmp\ 879}#
- (apply (lambda (#{args\ 886}#
- #{e1\ 887}#
- #{e2\ 888}#
- #{args*\ 889}#
- #{e1*\ 890}#
- #{e2*\ 891}#)
+ #{tmp\ 943}#)
+ ((lambda (#{tmp\ 944}#)
+ (if #{tmp\ 944}#
+ (apply (lambda (#{args\ 951}#
+ #{e1\ 952}#
+ #{e2\ 953}#
+ #{args*\ 954}#
+ #{e1*\ 955}#
+ #{e2*\ 956}#)
(call-with-values
(lambda ()
- (#{get-formals\ 693}#
- #{args\ 886}#))
- (lambda (#{req\ 892}#
- #{opt\ 893}#
- #{rest\ 894}#
- #{kw\ 895}#)
+ (#{get-formals\ 758}#
+ #{args\ 951}#))
+ (lambda (#{req\ 957}#
+ #{opt\ 958}#
+ #{rest\ 959}#
+ #{kw\ 960}#)
(call-with-values
(lambda ()
- (#{expand-req\ 703}#
- #{req\ 892}#
- #{opt\ 893}#
- #{rest\ 894}#
- #{kw\ 895}#
- (cons #{e1\ 887}#
- #{e2\ 888}#)))
- (lambda (#{meta\ 901}#
- #{req\ 902}#
- #{opt\ 903}#
- #{rest\ 904}#
- #{kw\ 905}#
- #{inits\ 906}#
- #{vars\ 907}#
- #{body\ 908}#)
+ (#{expand-req\ 768}#
+ #{req\ 957}#
+ #{opt\ 958}#
+ #{rest\ 959}#
+ #{kw\ 960}#
+ (cons #{e1\ 952}#
+ #{e2\ 953}#)))
+ (lambda (#{meta\ 966}#
+ #{req\ 967}#
+ #{opt\ 968}#
+ #{rest\ 969}#
+ #{kw\ 970}#
+ #{inits\ 971}#
+ #{vars\ 972}#
+ #{body\ 973}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 416}#
- #{e\ 688}#
- #{r\ 689}#
- #{w\ 690}#
- #{s\ 691}#
- #{mod\ 692}#
- #{get-formals\ 693}#
- (map (lambda (#{tmp\ 919}#
- #{tmp\ 918}#
- #{tmp\
917}#)
- (cons #{tmp\ 917}#
- (cons #{tmp\
918}#
- #{tmp\
919}#)))
- #{e2*\ 891}#
- #{e1*\ 890}#
- #{args*\ 889}#)))
- (lambda (#{meta*\ 921}#
- #{else*\ 922}#)
+ (#{chi-lambda-case\ 481}#
+ #{e\ 753}#
+ #{r\ 754}#
+ #{w\ 755}#
+ #{s\ 756}#
+ #{mod\ 757}#
+ #{get-formals\ 758}#
+ (map (lambda (#{tmp\ 984}#
+ #{tmp\ 983}#
+ #{tmp\
982}#)
+ (cons #{tmp\ 982}#
+ (cons #{tmp\
983}#
+ #{tmp\
984}#)))
+ #{e2*\ 956}#
+ #{e1*\ 955}#
+ #{args*\ 954}#)))
+ (lambda (#{meta*\ 986}#
+ #{else*\ 987}#)
(values
(append
- #{meta\ 901}#
- #{meta*\ 921}#)
- (#{build-lambda-case\
253}#
- #{s\ 691}#
- #{req\ 902}#
- #{opt\ 903}#
- #{rest\ 904}#
- #{kw\ 905}#
- #{inits\ 906}#
- #{vars\ 907}#
- #{body\ 908}#
- #{else*\ 922}#)))))))))
- #{tmp\ 879}#)
+ #{meta\ 966}#
+ #{meta*\ 986}#)
+ (#{build-lambda-case\
318}#
+ #{s\ 756}#
+ #{req\ 967}#
+ #{opt\ 968}#
+ #{rest\ 969}#
+ #{kw\ 970}#
+ #{inits\ 971}#
+ #{vars\ 972}#
+ #{body\ 973}#
+ #{else*\ 987}#)))))))))
+ #{tmp\ 944}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 877}#)))
+ #{tmp\ 942}#)))
($sc-dispatch
- #{tmp\ 877}#
+ #{tmp\ 942}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 877}# (quote ()))))
- #{clauses\ 694}#))))
- (#{lambda*-formals\ 414}#
- (lambda (#{orig-args\ 925}#)
- (letrec ((#{check\ 936}#
- (lambda (#{req\ 937}#
- #{opt\ 938}#
- #{rest\ 939}#
- #{kw\ 940}#)
- (if (#{distinct-bound-ids?\ 372}#
+ ($sc-dispatch #{tmp\ 942}# (quote ()))))
+ #{clauses\ 759}#))))
+ (#{lambda*-formals\ 479}#
+ (lambda (#{orig-args\ 990}#)
+ (letrec ((#{check\ 1001}#
+ (lambda (#{req\ 1002}#
+ #{opt\ 1003}#
+ #{rest\ 1004}#
+ #{kw\ 1005}#)
+ (if (#{distinct-bound-ids?\ 437}#
(append
- #{req\ 937}#
- (map car #{opt\ 938}#)
- (if #{rest\ 939}#
- (list #{rest\ 939}#)
+ #{req\ 1002}#
+ (map car #{opt\ 1003}#)
+ (if #{rest\ 1004}#
+ (list #{rest\ 1004}#)
'())
- (if (pair? #{kw\ 940}#)
- (map cadr (cdr #{kw\ 940}#))
+ (if (pair? #{kw\ 1005}#)
+ (map cadr (cdr #{kw\ 1005}#))
'())))
(values
- #{req\ 937}#
- #{opt\ 938}#
- #{rest\ 939}#
- #{kw\ 940}#)
+ #{req\ 1002}#
+ #{opt\ 1003}#
+ #{rest\ 1004}#
+ #{kw\ 1005}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 925}#))))
- (#{rest\ 934}#
- (lambda (#{args\ 948}#
- #{req\ 949}#
- #{opt\ 950}#
- #{kw\ 951}#)
- ((lambda (#{tmp\ 956}#)
- ((lambda (#{tmp\ 957}#)
- (if (if #{tmp\ 957}#
- (apply (lambda (#{r\ 959}#)
- (#{id?\ 307}# #{r\ 959}#))
- #{tmp\ 957}#)
+ #{orig-args\ 990}#))))
+ (#{rest\ 999}#
+ (lambda (#{args\ 1013}#
+ #{req\ 1014}#
+ #{opt\ 1015}#
+ #{kw\ 1016}#)
+ ((lambda (#{tmp\ 1021}#)
+ ((lambda (#{tmp\ 1022}#)
+ (if (if #{tmp\ 1022}#
+ (apply (lambda (#{r\ 1024}#)
+ (#{id?\ 372}# #{r\ 1024}#))
+ #{tmp\ 1022}#)
#f)
- (apply (lambda (#{r\ 961}#)
- (#{check\ 936}#
- #{req\ 949}#
- #{opt\ 950}#
- #{r\ 961}#
- #{kw\ 951}#))
- #{tmp\ 957}#)
- ((lambda (#{else\ 963}#)
+ (apply (lambda (#{r\ 1026}#)
+ (#{check\ 1001}#
+ #{req\ 1014}#
+ #{opt\ 1015}#
+ #{r\ 1026}#
+ #{kw\ 1016}#))
+ #{tmp\ 1022}#)
+ ((lambda (#{else\ 1028}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 925}#
- #{args\ 948}#))
- #{tmp\ 956}#)))
- (list #{tmp\ 956}#)))
- #{args\ 948}#)))
- (#{key\ 932}#
- (lambda (#{args\ 964}#
- #{req\ 965}#
- #{opt\ 966}#
- #{rkey\ 967}#)
- ((lambda (#{tmp\ 972}#)
- ((lambda (#{tmp\ 973}#)
- (if #{tmp\ 973}#
+ #{orig-args\ 990}#
+ #{args\ 1013}#))
+ #{tmp\ 1021}#)))
+ (list #{tmp\ 1021}#)))
+ #{args\ 1013}#)))
+ (#{key\ 997}#
+ (lambda (#{args\ 1029}#
+ #{req\ 1030}#
+ #{opt\ 1031}#
+ #{rkey\ 1032}#)
+ ((lambda (#{tmp\ 1037}#)
+ ((lambda (#{tmp\ 1038}#)
+ (if #{tmp\ 1038}#
(apply (lambda ()
- (#{check\ 936}#
- #{req\ 965}#
- #{opt\ 966}#
+ (#{check\ 1001}#
+ #{req\ 1030}#
+ #{opt\ 1031}#
#f
(cons #f
- (reverse #{rkey\ 967}#))))
- #{tmp\ 973}#)
- ((lambda (#{tmp\ 974}#)
- (if (if #{tmp\ 974}#
- (apply (lambda (#{a\ 977}#
- #{b\ 978}#)
- (#{id?\ 307}#
- #{a\ 977}#))
- #{tmp\ 974}#)
+ (reverse
+ #{rkey\ 1032}#))))
+ #{tmp\ 1038}#)
+ ((lambda (#{tmp\ 1039}#)
+ (if (if #{tmp\ 1039}#
+ (apply (lambda (#{a\ 1042}#
+ #{b\ 1043}#)
+ (#{id?\ 372}#
+ #{a\ 1042}#))
+ #{tmp\ 1039}#)
#f)
- (apply (lambda (#{a\ 981}# #{b\ 982}#)
- ((lambda (#{tmp\ 984}#)
- ((lambda (#{k\ 986}#)
- (#{key\ 932}#
- #{b\ 982}#
- #{req\ 965}#
- #{opt\ 966}#
- (cons (cons #{k\
986}#
- (cons
#{a\ 981}#
+ (apply (lambda (#{a\ 1046}#
+ #{b\ 1047}#)
+ ((lambda (#{tmp\ 1049}#)
+ ((lambda (#{k\ 1051}#)
+ (#{key\ 997}#
+ #{b\ 1047}#
+ #{req\ 1030}#
+ #{opt\ 1031}#
+ (cons (cons #{k\
1051}#
+ (cons
#{a\ 1046}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
-
#("i985"))
+
#("i1050"))
#(ribcage
#(a
b)
#((top)
(top))
-
#("i979"
-
"i980"))
+
#("i1044"
+
"i1045"))
#(ribcage
()
()
@@ -646,10 +648,10 @@
(top)
(top)
(top))
-
#("i968"
-
"i969"
-
"i970"
-
"i971"))
+
#("i1033"
+
"i1034"
+
"i1035"
+
"i1036"))
#(ribcage
(check rest
key
@@ -660,15 +662,15 @@
(top)
(top)
(top))
-
("i935"
-
"i933"
-
"i931"
-
"i929"
-
"i927"))
+
("i1000"
+
"i998"
+
"i996"
+
"i994"
+
"i992"))
#(ribcage
#(orig-args)
#((top))
-
#("i926"))
+
#("i991"))
#(ribcage
(lambda-var-list
gen-var
@@ -786,6 +788,9 @@
fx=
fx-
fx+
+
set-lambda-meta!
+
lambda-meta
+
lambda?
make-dynlet
make-letrec
make-let
@@ -937,31 +942,72 @@
(top)
(top)
(top)
+
(top)
+
(top)
+
(top)
(top))
-
("i421"
-
"i419"
-
"i417"
+
("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"
+
"i422"
+
"i420"
+
"i418"
+
"i416"
"i415"
-
"i413"
+
"i414"
+
"i412"
"i411"
+
"i410"
"i409"
-
"i407"
-
"i405"
-
"i403"
-
"i401"
-
"i399"
-
"i397"
-
"i395"
-
"i393"
-
"i391"
+
"i408"
+
"i406"
+
"i404"
+
"i402"
+
"i400"
+
"i398"
+
"i396"
+
"i394"
+
"i392"
"i389"
"i387"
+
"i386"
"i385"
+
"i384"
"i383"
-
"i381"
-
"i379"
-
"i377"
-
"i375"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
"i373"
"i371"
"i369"
@@ -970,16 +1016,15 @@
"i363"
"i361"
"i359"
-
"i357"
-
"i355"
+
"i358"
+
"i356"
+
"i354"
"i353"
-
"i351"
+
"i352"
"i350"
"i349"
"i347"
-
"i346"
"i345"
-
"i344"
"i343"
"i341"
"i339"
@@ -989,29 +1034,25 @@
"i331"
"i329"
"i327"
-
"i324"
-
"i322"
+
"i325"
+
"i323"
"i321"
-
"i320"
"i319"
-
"i318"
"i317"
"i315"
"i313"
"i311"
"i309"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
+
"i307"
+
"i305"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
"i293"
"i291"
"i289"
-
"i288"
"i287"
"i285"
"i284"
@@ -1024,283 +1065,256 @@
"i270"
"i268"
"i266"
-
"i264"
-
"i262"
-
"i260"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i240"
-
"i238"
-
"i236"
-
"i234"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i222"
-
"i220"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"))
+
"i263"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i241"
+
"i239"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
((top)
(top)
+
(top)
(top))
-
("i22"
+
("i23"
+
"i22"
"i21"
"i19")))
(hygiene
guile)))))
- #{rkey\
967}#)))
- #{tmp\ 984}#))
+ #{rkey\
1032}#)))
+ #{tmp\ 1049}#))
(symbol->keyword
(syntax->datum
- #{a\ 981}#))))
- #{tmp\ 974}#)
- ((lambda (#{tmp\ 987}#)
- (if (if #{tmp\ 987}#
- (apply (lambda (#{a\ 991}#
- #{init\ 992}#
- #{b\ 993}#)
- (#{id?\ 307}#
- #{a\ 991}#))
- #{tmp\ 987}#)
+ #{a\ 1046}#))))
+ #{tmp\ 1039}#)
+ ((lambda (#{tmp\ 1052}#)
+ (if (if #{tmp\ 1052}#
+ (apply (lambda (#{a\ 1056}#
+ #{init\
1057}#
+ #{b\ 1058}#)
+ (#{id?\ 372}#
+ #{a\ 1056}#))
+ #{tmp\ 1052}#)
#f)
- (apply (lambda (#{a\ 997}#
- #{init\ 998}#
- #{b\ 999}#)
- ((lambda (#{tmp\ 1001}#)
- ((lambda (#{k\
1003}#)
- (#{key\ 932}#
- #{b\ 999}#
- #{req\ 965}#
- #{opt\ 966}#
- (cons (list
#{k\ 1003}#
-
#{a\ 997}#
-
#{init\ 998}#)
- #{rkey\
967}#)))
- #{tmp\ 1001}#))
+ (apply (lambda (#{a\ 1062}#
+ #{init\ 1063}#
+ #{b\ 1064}#)
+ ((lambda (#{tmp\ 1066}#)
+ ((lambda (#{k\
1068}#)
+ (#{key\ 997}#
+ #{b\ 1064}#
+ #{req\ 1030}#
+ #{opt\ 1031}#
+ (cons (list
#{k\ 1068}#
+
#{a\ 1062}#
+
#{init\ 1063}#)
+ #{rkey\
1032}#)))
+ #{tmp\ 1066}#))
(symbol->keyword
(syntax->datum
- #{a\ 997}#))))
- #{tmp\ 987}#)
- ((lambda (#{tmp\ 1004}#)
- (if (if #{tmp\ 1004}#
- (apply (lambda (#{a\
1009}#
- #{init\
1010}#
- #{k\
1011}#
- #{b\
1012}#)
- (if (#{id?\
307}#
- #{a\
1009}#)
+ #{a\ 1062}#))))
+ #{tmp\ 1052}#)
+ ((lambda (#{tmp\ 1069}#)
+ (if (if #{tmp\ 1069}#
+ (apply (lambda (#{a\
1074}#
+ #{init\
1075}#
+ #{k\
1076}#
+ #{b\
1077}#)
+ (if (#{id?\
372}#
+ #{a\
1074}#)
(keyword?
(syntax->datum
- #{k\
1011}#))
+ #{k\
1076}#))
#f))
- #{tmp\ 1004}#)
+ #{tmp\ 1069}#)
#f)
- (apply (lambda (#{a\ 1019}#
- #{init\
1020}#
- #{k\ 1021}#
- #{b\ 1022}#)
- (#{key\ 932}#
- #{b\ 1022}#
- #{req\ 965}#
- #{opt\ 966}#
- (cons (list #{k\
1021}#
- #{a\
1019}#
-
#{init\ 1020}#)
- #{rkey\
967}#)))
- #{tmp\ 1004}#)
- ((lambda (#{tmp\ 1023}#)
- (if (if #{tmp\ 1023}#
- (apply (lambda
(#{aok\ 1025}#)
+ (apply (lambda (#{a\ 1084}#
+ #{init\
1085}#
+ #{k\ 1086}#
+ #{b\ 1087}#)
+ (#{key\ 997}#
+ #{b\ 1087}#
+ #{req\ 1030}#
+ #{opt\ 1031}#
+ (cons (list #{k\
1086}#
+ #{a\
1084}#
+
#{init\ 1085}#)
+ #{rkey\
1032}#)))
+ #{tmp\ 1069}#)
+ ((lambda (#{tmp\ 1088}#)
+ (if (if #{tmp\ 1088}#
+ (apply (lambda
(#{aok\ 1090}#)
(eq?
(syntax->datum
-
#{aok\ 1025}#)
+
#{aok\ 1090}#)
#:allow-other-keys))
- #{tmp\
1023}#)
+ #{tmp\
1088}#)
#f)
- (apply (lambda (#{aok\
1027}#)
- (#{check\
936}#
- #{req\ 965}#
- #{opt\ 966}#
+ (apply (lambda (#{aok\
1092}#)
+ (#{check\
1001}#
+ #{req\
1030}#
+ #{opt\
1031}#
#f
(cons #t
(reverse
-
#{rkey\ 967}#))))
- #{tmp\ 1023}#)
- ((lambda (#{tmp\
1028}#)
- (if (if #{tmp\
1028}#
- (apply
(lambda (#{aok\ 1032}#
-
#{a\ 1033}#
-
#{b\ 1034}#)
+
#{rkey\ 1032}#))))
+ #{tmp\ 1088}#)
+ ((lambda (#{tmp\
1093}#)
+ (if (if #{tmp\
1093}#
+ (apply
(lambda (#{aok\ 1097}#
+
#{a\ 1098}#
+
#{b\ 1099}#)
(if
(eq? (syntax->datum
-
#{aok\ 1032}#)
+
#{aok\ 1097}#)
#:allow-other-keys)
(eq? (syntax->datum
-
#{a\ 1033}#)
+
#{a\ 1098}#)
#:rest)
#f))
- #{tmp\
1028}#)
+ #{tmp\
1093}#)
#f)
- (apply (lambda
(#{aok\ 1040}#
-
#{a\ 1041}#
-
#{b\ 1042}#)
- (#{rest\
934}#
- #{b\
1042}#
- #{req\
965}#
- #{opt\
966}#
+ (apply (lambda
(#{aok\ 1105}#
+
#{a\ 1106}#
+
#{b\ 1107}#)
+ (#{rest\
999}#
+ #{b\
1107}#
+ #{req\
1030}#
+ #{opt\
1031}#
(cons
#t
(reverse
-
#{rkey\ 967}#))))
- #{tmp\
1028}#)
- ((lambda (#{tmp\
1043}#)
- (if (if #{tmp\
1043}#
- (apply
(lambda (#{aok\ 1046}#
-
#{r\ 1047}#)
+
#{rkey\ 1032}#))))
+ #{tmp\
1093}#)
+ ((lambda (#{tmp\
1108}#)
+ (if (if #{tmp\
1108}#
+ (apply
(lambda (#{aok\ 1111}#
+
#{r\ 1112}#)
(if (eq? (syntax->datum
-
#{aok\ 1046}#)
+
#{aok\ 1111}#)
#:allow-other-keys)
-
(#{id?\ 307}#
-
#{r\ 1047}#)
+
(#{id?\ 372}#
+
#{r\ 1112}#)
#f))
-
#{tmp\ 1043}#)
+
#{tmp\ 1108}#)
#f)
- (apply
(lambda (#{aok\ 1052}#
-
#{r\ 1053}#)
-
(#{rest\ 934}#
-
#{r\ 1053}#
-
#{req\ 965}#
-
#{opt\ 966}#
+ (apply
(lambda (#{aok\ 1117}#
+
#{r\ 1118}#)
+
(#{rest\ 999}#
+
#{r\ 1118}#
+
#{req\ 1030}#
+
#{opt\ 1031}#
(cons #t
(reverse
-
#{rkey\ 967}#))))
-
#{tmp\ 1043}#)
- ((lambda
(#{tmp\ 1054}#)
- (if (if
#{tmp\ 1054}#
-
(apply (lambda (#{a\ 1057}#
-
#{b\ 1058}#)
+
#{rkey\ 1032}#))))
+
#{tmp\ 1108}#)
+ ((lambda
(#{tmp\ 1119}#)
+ (if (if
#{tmp\ 1119}#
+
(apply (lambda (#{a\ 1122}#
+
#{b\ 1123}#)
(eq? (syntax->datum
-
#{a\ 1057}#)
+
#{a\ 1122}#)
#:rest))
-
#{tmp\ 1054}#)
+
#{tmp\ 1119}#)
#f)
- (apply
(lambda (#{a\ 1061}#
-
#{b\ 1062}#)
-
(#{rest\ 934}#
-
#{b\ 1062}#
-
#{req\ 965}#
-
#{opt\ 966}#
+ (apply
(lambda (#{a\ 1126}#
+
#{b\ 1127}#)
+
(#{rest\ 999}#
+
#{b\ 1127}#
+
#{req\ 1030}#
+
#{opt\ 1031}#
(cons #f
(reverse
-
#{rkey\ 967}#))))
-
#{tmp\ 1054}#)
-
((lambda (#{tmp\ 1063}#)
- (if
(if #{tmp\ 1063}#
-
(apply (lambda (#{r\ 1065}#)
-
(#{id?\ 307}#
-
#{r\ 1065}#))
-
#{tmp\ 1063}#)
+
#{rkey\ 1032}#))))
+
#{tmp\ 1119}#)
+
((lambda (#{tmp\ 1128}#)
+ (if
(if #{tmp\ 1128}#
+
(apply (lambda (#{r\ 1130}#)
+
(#{id?\ 372}#
+
#{r\ 1130}#))
+
#{tmp\ 1128}#)
#f)
-
(apply (lambda (#{r\ 1067}#)
-
(#{rest\ 934}#
-
#{r\ 1067}#
-
#{req\ 965}#
-
#{opt\ 966}#
+
(apply (lambda (#{r\ 1132}#)
+
(#{rest\ 999}#
+
#{r\ 1132}#
+
#{req\ 1030}#
+
#{opt\ 1031}#
(cons #f
(reverse
-
#{rkey\ 967}#))))
-
#{tmp\ 1063}#)
-
((lambda (#{else\ 1069}#)
+
#{rkey\ 1032}#))))
+
#{tmp\ 1128}#)
+
((lambda (#{else\ 1134}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
-
#{orig-args\ 925}#
-
#{args\ 964}#))
-
#{tmp\ 972}#)))
- (list
#{tmp\ 972}#))))
+
#{orig-args\ 990}#
+
#{args\ 1029}#))
+
#{tmp\ 1037}#)))
+ (list
#{tmp\ 1037}#))))
($sc-dispatch
- #{tmp\
972}#
+ #{tmp\
1037}#
'(any
any)))))
($sc-dispatch
- #{tmp\ 972}#
+ #{tmp\ 1037}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 972}#
+ #{tmp\ 1037}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 972}#
+ #{tmp\ 1037}#
'(any)))))
($sc-dispatch
- #{tmp\ 972}#
+ #{tmp\ 1037}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 972}#
+ #{tmp\ 1037}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 972}#
+ #{tmp\ 1037}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 972}# (quote ()))))
- #{args\ 964}#)))
- (#{opt\ 930}#
- (lambda (#{args\ 1070}# #{req\ 1071}# #{ropt\ 1072}#)
- ((lambda (#{tmp\ 1076}#)
- ((lambda (#{tmp\ 1077}#)
- (if #{tmp\ 1077}#
+ ($sc-dispatch #{tmp\ 1037}# (quote ()))))
+ #{args\ 1029}#)))
+ (#{opt\ 995}#
+ (lambda (#{args\ 1135}# #{req\ 1136}# #{ropt\ 1137}#)
+ ((lambda (#{tmp\ 1141}#)
+ ((lambda (#{tmp\ 1142}#)
+ (if #{tmp\ 1142}#
(apply (lambda ()
- (#{check\ 936}#
- #{req\ 1071}#
- (reverse #{ropt\ 1072}#)
+ (#{check\ 1001}#
+ #{req\ 1136}#
+ (reverse #{ropt\ 1137}#)
#f
'()))
- #{tmp\ 1077}#)
- ((lambda (#{tmp\ 1078}#)
- (if (if #{tmp\ 1078}#
- (apply (lambda (#{a\ 1081}#
- #{b\ 1082}#)
- (#{id?\ 307}#
- #{a\ 1081}#))
- #{tmp\ 1078}#)
+ #{tmp\ 1142}#)
+ ((lambda (#{tmp\ 1143}#)
+ (if (if #{tmp\ 1143}#
+ (apply (lambda (#{a\ 1146}#
+ #{b\ 1147}#)
+ (#{id?\ 372}#
+ #{a\ 1146}#))
+ #{tmp\ 1143}#)
#f)
- (apply (lambda (#{a\ 1085}#
- #{b\ 1086}#)
- (#{opt\ 930}#
- #{b\ 1086}#
- #{req\ 1071}#
- (cons (cons #{a\ 1085}#
+ (apply (lambda (#{a\ 1150}#
+ #{b\ 1151}#)
+ (#{opt\ 995}#
+ #{b\ 1151}#
+ #{req\ 1136}#
+ (cons (cons #{a\ 1150}#
'(#(syntax-object
#f
((top)
@@ -1308,8 +1322,8 @@
#(a b)
#((top)
(top))
-
#("i1083"
-
"i1084"))
+
#("i1148"
+
"i1149"))
#(ribcage
()
()
@@ -1321,9 +1335,9 @@
#((top)
(top)
(top))
-
#("i1073"
-
"i1074"
-
"i1075"))
+
#("i1138"
+
"i1139"
+
"i1140"))
#(ribcage
(check
rest
key
@@ -1334,15 +1348,15 @@
(top)
(top)
(top))
- ("i935"
- "i933"
- "i931"
- "i929"
-
"i927"))
+ ("i1000"
+ "i998"
+ "i996"
+ "i994"
+
"i992"))
#(ribcage
#(orig-args)
#((top))
-
#("i926"))
+
#("i991"))
#(ribcage
(lambda-var-list
gen-var
@@ -1460,6 +1474,9 @@
fx=
fx-
fx+
+
set-lambda-meta!
+
lambda-meta
+
lambda?
make-dynlet
make-letrec
make-let
@@ -1611,31 +1628,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -1644,16 +1702,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -1663,29 +1720,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -1698,396 +1751,369 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
-
"i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+
"i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
((top)
(top)
+ (top)
(top))
- ("i22"
+ ("i23"
+ "i22"
"i21"
"i19")))
(hygiene
guile))))
- #{ropt\ 1072}#)))
- #{tmp\ 1078}#)
- ((lambda (#{tmp\ 1087}#)
- (if (if #{tmp\ 1087}#
- (apply (lambda (#{a\ 1091}#
- #{init\
1092}#
- #{b\ 1093}#)
- (#{id?\ 307}#
- #{a\ 1091}#))
- #{tmp\ 1087}#)
+ #{ropt\ 1137}#)))
+ #{tmp\ 1143}#)
+ ((lambda (#{tmp\ 1152}#)
+ (if (if #{tmp\ 1152}#
+ (apply (lambda (#{a\ 1156}#
+ #{init\
1157}#
+ #{b\ 1158}#)
+ (#{id?\ 372}#
+ #{a\ 1156}#))
+ #{tmp\ 1152}#)
#f)
- (apply (lambda (#{a\ 1097}#
- #{init\ 1098}#
- #{b\ 1099}#)
- (#{opt\ 930}#
- #{b\ 1099}#
- #{req\ 1071}#
- (cons (list #{a\
1097}#
- #{init\
1098}#)
- #{ropt\
1072}#)))
- #{tmp\ 1087}#)
- ((lambda (#{tmp\ 1100}#)
- (if (if #{tmp\ 1100}#
- (apply (lambda (#{a\
1103}#
- #{b\
1104}#)
+ (apply (lambda (#{a\ 1162}#
+ #{init\ 1163}#
+ #{b\ 1164}#)
+ (#{opt\ 995}#
+ #{b\ 1164}#
+ #{req\ 1136}#
+ (cons (list #{a\
1162}#
+ #{init\
1163}#)
+ #{ropt\
1137}#)))
+ #{tmp\ 1152}#)
+ ((lambda (#{tmp\ 1165}#)
+ (if (if #{tmp\ 1165}#
+ (apply (lambda (#{a\
1168}#
+ #{b\
1169}#)
(eq?
(syntax->datum
- #{a\
1103}#)
+ #{a\
1168}#)
#:key))
- #{tmp\ 1100}#)
+ #{tmp\ 1165}#)
#f)
- (apply (lambda (#{a\ 1107}#
- #{b\ 1108}#)
- (#{key\ 932}#
- #{b\ 1108}#
- #{req\ 1071}#
+ (apply (lambda (#{a\ 1172}#
+ #{b\ 1173}#)
+ (#{key\ 997}#
+ #{b\ 1173}#
+ #{req\ 1136}#
(reverse
- #{ropt\ 1072}#)
+ #{ropt\ 1137}#)
'()))
- #{tmp\ 1100}#)
- ((lambda (#{tmp\ 1109}#)
- (if (if #{tmp\ 1109}#
- (apply (lambda
(#{a\ 1112}#
-
#{b\ 1113}#)
+ #{tmp\ 1165}#)
+ ((lambda (#{tmp\ 1174}#)
+ (if (if #{tmp\ 1174}#
+ (apply (lambda
(#{a\ 1177}#
+
#{b\ 1178}#)
(eq?
(syntax->datum
-
#{a\ 1112}#)
+
#{a\ 1177}#)
#:rest))
- #{tmp\
1109}#)
+ #{tmp\
1174}#)
#f)
- (apply (lambda (#{a\
1116}#
- #{b\
1117}#)
- (#{rest\ 934}#
- #{b\ 1117}#
- #{req\
1071}#
+ (apply (lambda (#{a\
1181}#
+ #{b\
1182}#)
+ (#{rest\ 999}#
+ #{b\ 1182}#
+ #{req\
1136}#
(reverse
- #{ropt\
1072}#)
+ #{ropt\
1137}#)
'()))
- #{tmp\ 1109}#)
- ((lambda (#{tmp\
1118}#)
- (if (if #{tmp\
1118}#
- (apply
(lambda (#{r\ 1120}#)
-
(#{id?\ 307}#
-
#{r\ 1120}#))
- #{tmp\
1118}#)
+ #{tmp\ 1174}#)
+ ((lambda (#{tmp\
1183}#)
+ (if (if #{tmp\
1183}#
+ (apply
(lambda (#{r\ 1185}#)
+
(#{id?\ 372}#
+
#{r\ 1185}#))
+ #{tmp\
1183}#)
#f)
- (apply (lambda
(#{r\ 1122}#)
- (#{rest\
934}#
- #{r\
1122}#
- #{req\
1071}#
+ (apply (lambda
(#{r\ 1187}#)
+ (#{rest\
999}#
+ #{r\
1187}#
+ #{req\
1136}#
(reverse
-
#{ropt\ 1072}#)
+
#{ropt\ 1137}#)
'()))
- #{tmp\
1118}#)
- ((lambda (#{else\
1124}#)
+ #{tmp\
1183}#)
+ ((lambda (#{else\
1189}#)
(syntax-violation
'lambda*
"invalid
optional argument list"
- #{orig-args\
925}#
- #{args\
1070}#))
- #{tmp\ 1076}#)))
- (list #{tmp\
1076}#))))
+ #{orig-args\
990}#
+ #{args\
1135}#))
+ #{tmp\ 1141}#)))
+ (list #{tmp\
1141}#))))
($sc-dispatch
- #{tmp\ 1076}#
+ #{tmp\ 1141}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1076}#
+ #{tmp\ 1141}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1076}#
+ #{tmp\ 1141}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 1076}#
+ #{tmp\ 1141}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1076}# (quote ()))))
- #{args\ 1070}#)))
- (#{req\ 928}#
- (lambda (#{args\ 1125}# #{rreq\ 1126}#)
- ((lambda (#{tmp\ 1129}#)
- ((lambda (#{tmp\ 1130}#)
- (if #{tmp\ 1130}#
+ ($sc-dispatch #{tmp\ 1141}# (quote ()))))
+ #{args\ 1135}#)))
+ (#{req\ 993}#
+ (lambda (#{args\ 1190}# #{rreq\ 1191}#)
+ ((lambda (#{tmp\ 1194}#)
+ ((lambda (#{tmp\ 1195}#)
+ (if #{tmp\ 1195}#
(apply (lambda ()
- (#{check\ 936}#
- (reverse #{rreq\ 1126}#)
+ (#{check\ 1001}#
+ (reverse #{rreq\ 1191}#)
'()
#f
'()))
- #{tmp\ 1130}#)
- ((lambda (#{tmp\ 1131}#)
- (if (if #{tmp\ 1131}#
- (apply (lambda (#{a\ 1134}#
- #{b\ 1135}#)
- (#{id?\ 307}#
- #{a\ 1134}#))
- #{tmp\ 1131}#)
+ #{tmp\ 1195}#)
+ ((lambda (#{tmp\ 1196}#)
+ (if (if #{tmp\ 1196}#
+ (apply (lambda (#{a\ 1199}#
+ #{b\ 1200}#)
+ (#{id?\ 372}#
+ #{a\ 1199}#))
+ #{tmp\ 1196}#)
#f)
- (apply (lambda (#{a\ 1138}#
- #{b\ 1139}#)
- (#{req\ 928}#
- #{b\ 1139}#
- (cons #{a\ 1138}#
- #{rreq\ 1126}#)))
- #{tmp\ 1131}#)
- ((lambda (#{tmp\ 1140}#)
- (if (if #{tmp\ 1140}#
- (apply (lambda (#{a\ 1143}#
- #{b\ 1144}#)
+ (apply (lambda (#{a\ 1203}#
+ #{b\ 1204}#)
+ (#{req\ 993}#
+ #{b\ 1204}#
+ (cons #{a\ 1203}#
+ #{rreq\ 1191}#)))
+ #{tmp\ 1196}#)
+ ((lambda (#{tmp\ 1205}#)
+ (if (if #{tmp\ 1205}#
+ (apply (lambda (#{a\ 1208}#
+ #{b\ 1209}#)
(eq? (syntax->datum
- #{a\ 1143}#)
+ #{a\ 1208}#)
#:optional))
- #{tmp\ 1140}#)
+ #{tmp\ 1205}#)
#f)
- (apply (lambda (#{a\ 1147}#
- #{b\ 1148}#)
- (#{opt\ 930}#
- #{b\ 1148}#
+ (apply (lambda (#{a\ 1212}#
+ #{b\ 1213}#)
+ (#{opt\ 995}#
+ #{b\ 1213}#
(reverse
- #{rreq\ 1126}#)
+ #{rreq\ 1191}#)
'()))
- #{tmp\ 1140}#)
- ((lambda (#{tmp\ 1149}#)
- (if (if #{tmp\ 1149}#
- (apply (lambda (#{a\
1152}#
- #{b\
1153}#)
+ #{tmp\ 1205}#)
+ ((lambda (#{tmp\ 1214}#)
+ (if (if #{tmp\ 1214}#
+ (apply (lambda (#{a\
1217}#
+ #{b\
1218}#)
(eq?
(syntax->datum
- #{a\
1152}#)
+ #{a\
1217}#)
#:key))
- #{tmp\ 1149}#)
+ #{tmp\ 1214}#)
#f)
- (apply (lambda (#{a\ 1156}#
- #{b\ 1157}#)
- (#{key\ 932}#
- #{b\ 1157}#
+ (apply (lambda (#{a\ 1221}#
+ #{b\ 1222}#)
+ (#{key\ 997}#
+ #{b\ 1222}#
(reverse
- #{rreq\ 1126}#)
+ #{rreq\ 1191}#)
'()
'()))
- #{tmp\ 1149}#)
- ((lambda (#{tmp\ 1158}#)
- (if (if #{tmp\ 1158}#
- (apply (lambda
(#{a\ 1161}#
-
#{b\ 1162}#)
+ #{tmp\ 1214}#)
+ ((lambda (#{tmp\ 1223}#)
+ (if (if #{tmp\ 1223}#
+ (apply (lambda
(#{a\ 1226}#
+
#{b\ 1227}#)
(eq?
(syntax->datum
-
#{a\ 1161}#)
+
#{a\ 1226}#)
#:rest))
- #{tmp\
1158}#)
+ #{tmp\
1223}#)
#f)
- (apply (lambda (#{a\
1165}#
- #{b\
1166}#)
- (#{rest\ 934}#
- #{b\ 1166}#
+ (apply (lambda (#{a\
1230}#
+ #{b\
1231}#)
+ (#{rest\ 999}#
+ #{b\ 1231}#
(reverse
- #{rreq\
1126}#)
+ #{rreq\
1191}#)
'()
'()))
- #{tmp\ 1158}#)
- ((lambda (#{tmp\
1167}#)
- (if (if #{tmp\
1167}#
- (apply
(lambda (#{r\ 1169}#)
-
(#{id?\ 307}#
-
#{r\ 1169}#))
- #{tmp\
1167}#)
+ #{tmp\ 1223}#)
+ ((lambda (#{tmp\
1232}#)
+ (if (if #{tmp\
1232}#
+ (apply
(lambda (#{r\ 1234}#)
+
(#{id?\ 372}#
+
#{r\ 1234}#))
+ #{tmp\
1232}#)
#f)
- (apply (lambda
(#{r\ 1171}#)
- (#{rest\
934}#
- #{r\
1171}#
+ (apply (lambda
(#{r\ 1236}#)
+ (#{rest\
999}#
+ #{r\
1236}#
(reverse
-
#{rreq\ 1126}#)
+
#{rreq\ 1191}#)
'()
'()))
- #{tmp\
1167}#)
- ((lambda (#{else\
1173}#)
+ #{tmp\
1232}#)
+ ((lambda (#{else\
1238}#)
(syntax-violation
'lambda*
"invalid
argument list"
- #{orig-args\
925}#
- #{args\
1125}#))
- #{tmp\ 1129}#)))
- (list #{tmp\
1129}#))))
+ #{orig-args\
990}#
+ #{args\
1190}#))
+ #{tmp\ 1194}#)))
+ (list #{tmp\
1194}#))))
($sc-dispatch
- #{tmp\ 1129}#
+ #{tmp\ 1194}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1129}#
+ #{tmp\ 1194}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1129}#
+ #{tmp\ 1194}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1129}#
+ #{tmp\ 1194}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1129}# (quote ()))))
- #{args\ 1125}#))))
- (#{req\ 928}# #{orig-args\ 925}# (quote ())))))
- (#{chi-simple-lambda\ 412}#
- (lambda (#{e\ 1174}#
- #{r\ 1175}#
- #{w\ 1176}#
- #{s\ 1177}#
- #{mod\ 1178}#
- #{req\ 1179}#
- #{rest\ 1180}#
- #{meta\ 1181}#
- #{body\ 1182}#)
- (let ((#{ids\ 1194}#
- (if #{rest\ 1180}#
- (append #{req\ 1179}# (list #{rest\ 1180}#))
- #{req\ 1179}#)))
- (let ((#{vars\ 1196}#
- (map #{gen-var\ 420}# #{ids\ 1194}#)))
- (let ((#{labels\ 1198}#
- (#{gen-labels\ 325}# #{ids\ 1194}#)))
- (#{build-simple-lambda\ 249}#
- #{s\ 1177}#
- (map syntax->datum #{req\ 1179}#)
- (if #{rest\ 1180}#
- (syntax->datum #{rest\ 1180}#)
+ ($sc-dispatch #{tmp\ 1194}# (quote ()))))
+ #{args\ 1190}#))))
+ (#{req\ 993}# #{orig-args\ 990}# (quote ())))))
+ (#{chi-simple-lambda\ 477}#
+ (lambda (#{e\ 1239}#
+ #{r\ 1240}#
+ #{w\ 1241}#
+ #{s\ 1242}#
+ #{mod\ 1243}#
+ #{req\ 1244}#
+ #{rest\ 1245}#
+ #{meta\ 1246}#
+ #{body\ 1247}#)
+ (let ((#{ids\ 1259}#
+ (if #{rest\ 1245}#
+ (append #{req\ 1244}# (list #{rest\ 1245}#))
+ #{req\ 1244}#)))
+ (let ((#{vars\ 1261}#
+ (map #{gen-var\ 485}# #{ids\ 1259}#)))
+ (let ((#{labels\ 1263}#
+ (#{gen-labels\ 390}# #{ids\ 1259}#)))
+ (#{build-simple-lambda\ 314}#
+ #{s\ 1242}#
+ (map syntax->datum #{req\ 1244}#)
+ (if #{rest\ 1245}#
+ (syntax->datum #{rest\ 1245}#)
#f)
- #{vars\ 1196}#
- #{meta\ 1181}#
- (#{chi-body\ 400}#
- #{body\ 1182}#
- (#{source-wrap\ 378}#
- #{e\ 1174}#
- #{w\ 1176}#
- #{s\ 1177}#
- #{mod\ 1178}#)
- (#{extend-var-env\ 297}#
- #{labels\ 1198}#
- #{vars\ 1196}#
- #{r\ 1175}#)
- (#{make-binding-wrap\ 354}#
- #{ids\ 1194}#
- #{labels\ 1198}#
- #{w\ 1176}#)
- #{mod\ 1178}#)))))))
- (#{lambda-formals\ 410}#
- (lambda (#{orig-args\ 1201}#)
- (letrec ((#{check\ 1206}#
- (lambda (#{req\ 1207}# #{rest\ 1208}#)
- (if (#{distinct-bound-ids?\ 372}#
- (if #{rest\ 1208}#
- (cons #{rest\ 1208}# #{req\ 1207}#)
- #{req\ 1207}#))
- (values #{req\ 1207}# #f #{rest\ 1208}# #f)
+ #{vars\ 1261}#
+ #{meta\ 1246}#
+ (#{chi-body\ 465}#
+ #{body\ 1247}#
+ (#{source-wrap\ 443}#
+ #{e\ 1239}#
+ #{w\ 1241}#
+ #{s\ 1242}#
+ #{mod\ 1243}#)
+ (#{extend-var-env\ 362}#
+ #{labels\ 1263}#
+ #{vars\ 1261}#
+ #{r\ 1240}#)
+ (#{make-binding-wrap\ 419}#
+ #{ids\ 1259}#
+ #{labels\ 1263}#
+ #{w\ 1241}#)
+ #{mod\ 1243}#)))))))
+ (#{lambda-formals\ 475}#
+ (lambda (#{orig-args\ 1266}#)
+ (letrec ((#{check\ 1271}#
+ (lambda (#{req\ 1272}# #{rest\ 1273}#)
+ (if (#{distinct-bound-ids?\ 437}#
+ (if #{rest\ 1273}#
+ (cons #{rest\ 1273}# #{req\ 1272}#)
+ #{req\ 1272}#))
+ (values #{req\ 1272}# #f #{rest\ 1273}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 1201}#))))
- (#{req\ 1204}#
- (lambda (#{args\ 1214}# #{rreq\ 1215}#)
- ((lambda (#{tmp\ 1218}#)
- ((lambda (#{tmp\ 1219}#)
- (if #{tmp\ 1219}#
+ #{orig-args\ 1266}#))))
+ (#{req\ 1269}#
+ (lambda (#{args\ 1279}# #{rreq\ 1280}#)
+ ((lambda (#{tmp\ 1283}#)
+ ((lambda (#{tmp\ 1284}#)
+ (if #{tmp\ 1284}#
(apply (lambda ()
- (#{check\ 1206}#
- (reverse #{rreq\ 1215}#)
+ (#{check\ 1271}#
+ (reverse #{rreq\ 1280}#)
#f))
- #{tmp\ 1219}#)
- ((lambda (#{tmp\ 1220}#)
- (if (if #{tmp\ 1220}#
- (apply (lambda (#{a\ 1223}#
- #{b\ 1224}#)
- (#{id?\ 307}#
- #{a\ 1223}#))
- #{tmp\ 1220}#)
+ #{tmp\ 1284}#)
+ ((lambda (#{tmp\ 1285}#)
+ (if (if #{tmp\ 1285}#
+ (apply (lambda (#{a\ 1288}#
+ #{b\ 1289}#)
+ (#{id?\ 372}#
+ #{a\ 1288}#))
+ #{tmp\ 1285}#)
#f)
- (apply (lambda (#{a\ 1227}#
- #{b\ 1228}#)
- (#{req\ 1204}#
- #{b\ 1228}#
- (cons #{a\ 1227}#
- #{rreq\ 1215}#)))
- #{tmp\ 1220}#)
- ((lambda (#{tmp\ 1229}#)
- (if (if #{tmp\ 1229}#
- (apply (lambda (#{r\ 1231}#)
- (#{id?\ 307}#
- #{r\ 1231}#))
- #{tmp\ 1229}#)
+ (apply (lambda (#{a\ 1292}#
+ #{b\ 1293}#)
+ (#{req\ 1269}#
+ #{b\ 1293}#
+ (cons #{a\ 1292}#
+ #{rreq\ 1280}#)))
+ #{tmp\ 1285}#)
+ ((lambda (#{tmp\ 1294}#)
+ (if (if #{tmp\ 1294}#
+ (apply (lambda (#{r\ 1296}#)
+ (#{id?\ 372}#
+ #{r\ 1296}#))
+ #{tmp\ 1294}#)
#f)
- (apply (lambda (#{r\ 1233}#)
- (#{check\ 1206}#
+ (apply (lambda (#{r\ 1298}#)
+ (#{check\ 1271}#
(reverse
- #{rreq\ 1215}#)
- #{r\ 1233}#))
- #{tmp\ 1229}#)
- ((lambda (#{else\ 1235}#)
+ #{rreq\ 1280}#)
+ #{r\ 1298}#))
+ #{tmp\ 1294}#)
+ ((lambda (#{else\ 1300}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 1201}#
- #{args\ 1214}#))
- #{tmp\ 1218}#)))
- (list #{tmp\ 1218}#))))
+ #{orig-args\ 1266}#
+ #{args\ 1279}#))
+ #{tmp\ 1283}#)))
+ (list #{tmp\ 1283}#))))
($sc-dispatch
- #{tmp\ 1218}#
+ #{tmp\ 1283}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1218}# (quote ()))))
- #{args\ 1214}#))))
- (#{req\ 1204}# #{orig-args\ 1201}# (quote ())))))
- (#{ellipsis?\ 408}#
- (lambda (#{x\ 1236}#)
- (if (#{nonsymbol-id?\ 305}# #{x\ 1236}#)
- (#{free-id=?\ 366}#
- #{x\ 1236}#
+ ($sc-dispatch #{tmp\ 1283}# (quote ()))))
+ #{args\ 1279}#))))
+ (#{req\ 1269}# #{orig-args\ 1266}# (quote ())))))
+ (#{ellipsis?\ 473}#
+ (lambda (#{x\ 1301}#)
+ (if (#{nonsymbol-id?\ 370}# #{x\ 1301}#)
+ (#{free-id=?\ 431}#
+ #{x\ 1301}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1237"))
+ #(ribcage #(x) #((top)) #("i1302"))
#(ribcage
(lambda-var-list
gen-var
@@ -2205,6 +2231,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -2356,31 +2385,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -2389,16 +2459,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -2408,29 +2477,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -2443,1344 +2508,1315 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+ define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22" "i21" "i19")))
+ ((top) (top) (top) (top))
+ ("i23" "i22" "i21" "i19")))
(hygiene guile)))
#f)))
- (#{chi-void\ 406}#
- (lambda () (#{build-void\ 227}# #f)))
- (#{eval-local-transformer\ 404}#
- (lambda (#{expanded\ 1241}# #{mod\ 1242}#)
- (let ((#{p\ 1246}#
- (#{local-eval-hook\ 218}#
- #{expanded\ 1241}#
- #{mod\ 1242}#)))
- (if (procedure? #{p\ 1246}#)
- (cons #{p\ 1246}# (module-name (current-module)))
+ (#{chi-void\ 471}#
+ (lambda () (#{build-void\ 292}# #f)))
+ (#{eval-local-transformer\ 469}#
+ (lambda (#{expanded\ 1306}# #{mod\ 1307}#)
+ (let ((#{p\ 1311}#
+ (#{local-eval-hook\ 283}#
+ #{expanded\ 1306}#
+ #{mod\ 1307}#)))
+ (if (procedure? #{p\ 1311}#)
+ (cons #{p\ 1311}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 1246}#)))))
- (#{chi-local-syntax\ 402}#
- (lambda (#{rec?\ 1247}#
- #{e\ 1248}#
- #{r\ 1249}#
- #{w\ 1250}#
- #{s\ 1251}#
- #{mod\ 1252}#
- #{k\ 1253}#)
- ((lambda (#{tmp\ 1261}#)
- ((lambda (#{tmp\ 1262}#)
- (if #{tmp\ 1262}#
- (apply (lambda (#{_\ 1268}#
- #{id\ 1269}#
- #{val\ 1270}#
- #{e1\ 1271}#
- #{e2\ 1272}#)
- (let ((#{ids\ 1274}# #{id\ 1269}#))
- (if (not (#{valid-bound-ids?\ 370}#
- #{ids\ 1274}#))
+ #{p\ 1311}#)))))
+ (#{chi-local-syntax\ 467}#
+ (lambda (#{rec?\ 1312}#
+ #{e\ 1313}#
+ #{r\ 1314}#
+ #{w\ 1315}#
+ #{s\ 1316}#
+ #{mod\ 1317}#
+ #{k\ 1318}#)
+ ((lambda (#{tmp\ 1326}#)
+ ((lambda (#{tmp\ 1327}#)
+ (if #{tmp\ 1327}#
+ (apply (lambda (#{_\ 1333}#
+ #{id\ 1334}#
+ #{val\ 1335}#
+ #{e1\ 1336}#
+ #{e2\ 1337}#)
+ (let ((#{ids\ 1339}# #{id\ 1334}#))
+ (if (not (#{valid-bound-ids?\ 435}#
+ #{ids\ 1339}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 1248}#)
- (let ((#{labels\ 1277}#
- (#{gen-labels\ 325}#
- #{ids\ 1274}#)))
- (let ((#{new-w\ 1279}#
- (#{make-binding-wrap\ 354}#
- #{ids\ 1274}#
- #{labels\ 1277}#
- #{w\ 1250}#)))
- (#{k\ 1253}#
- (cons #{e1\ 1271}# #{e2\ 1272}#)
- (#{extend-env\ 295}#
- #{labels\ 1277}#
- (let ((#{w\ 1283}#
- (if #{rec?\ 1247}#
- #{new-w\ 1279}#
- #{w\ 1250}#))
- (#{trans-r\ 1284}#
- (#{macros-only-env\ 299}#
- #{r\ 1249}#)))
- (map (lambda (#{x\ 1285}#)
+ #{e\ 1313}#)
+ (let ((#{labels\ 1342}#
+ (#{gen-labels\ 390}#
+ #{ids\ 1339}#)))
+ (let ((#{new-w\ 1344}#
+ (#{make-binding-wrap\ 419}#
+ #{ids\ 1339}#
+ #{labels\ 1342}#
+ #{w\ 1315}#)))
+ (#{k\ 1318}#
+ (cons #{e1\ 1336}# #{e2\ 1337}#)
+ (#{extend-env\ 360}#
+ #{labels\ 1342}#
+ (let ((#{w\ 1348}#
+ (if #{rec?\ 1312}#
+ #{new-w\ 1344}#
+ #{w\ 1315}#))
+ (#{trans-r\ 1349}#
+ (#{macros-only-env\ 364}#
+ #{r\ 1314}#)))
+ (map (lambda (#{x\ 1350}#)
(cons 'macro
-
(#{eval-local-transformer\ 404}#
- (#{chi\ 392}#
- #{x\ 1285}#
- #{trans-r\
1284}#
- #{w\ 1283}#
- #{mod\ 1252}#)
- #{mod\ 1252}#)))
- #{val\ 1270}#))
- #{r\ 1249}#)
- #{new-w\ 1279}#
- #{s\ 1251}#
- #{mod\ 1252}#))))))
- #{tmp\ 1262}#)
- ((lambda (#{_\ 1290}#)
+
(#{eval-local-transformer\ 469}#
+ (#{chi\ 457}#
+ #{x\ 1350}#
+ #{trans-r\
1349}#
+ #{w\ 1348}#
+ #{mod\ 1317}#)
+ #{mod\ 1317}#)))
+ #{val\ 1335}#))
+ #{r\ 1314}#)
+ #{new-w\ 1344}#
+ #{s\ 1316}#
+ #{mod\ 1317}#))))))
+ #{tmp\ 1327}#)
+ ((lambda (#{_\ 1355}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 378}#
- #{e\ 1248}#
- #{w\ 1250}#
- #{s\ 1251}#
- #{mod\ 1252}#)))
- #{tmp\ 1261}#)))
+ (#{source-wrap\ 443}#
+ #{e\ 1313}#
+ #{w\ 1315}#
+ #{s\ 1316}#
+ #{mod\ 1317}#)))
+ #{tmp\ 1326}#)))
($sc-dispatch
- #{tmp\ 1261}#
+ #{tmp\ 1326}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1248}#)))
- (#{chi-body\ 400}#
- (lambda (#{body\ 1291}#
- #{outer-form\ 1292}#
- #{r\ 1293}#
- #{w\ 1294}#
- #{mod\ 1295}#)
- (let ((#{r\ 1303}#
+ #{e\ 1313}#)))
+ (#{chi-body\ 465}#
+ (lambda (#{body\ 1356}#
+ #{outer-form\ 1357}#
+ #{r\ 1358}#
+ #{w\ 1359}#
+ #{mod\ 1360}#)
+ (let ((#{r\ 1368}#
(cons '("placeholder" placeholder)
- #{r\ 1293}#)))
- (let ((#{ribcage\ 1305}#
- (#{make-ribcage\ 328}#
+ #{r\ 1358}#)))
+ (let ((#{ribcage\ 1370}#
+ (#{make-ribcage\ 393}#
'()
'()
'())))
- (let ((#{w\ 1308}#
- (#{make-wrap\ 312}#
- (#{wrap-marks\ 314}# #{w\ 1294}#)
- (cons #{ribcage\ 1305}#
- (#{wrap-subst\ 316}# #{w\ 1294}#)))))
- (letrec ((#{parse\ 1317}#
- (lambda (#{body\ 1318}#
- #{ids\ 1319}#
- #{labels\ 1320}#
- #{var-ids\ 1321}#
- #{vars\ 1322}#
- #{vals\ 1323}#
- #{bindings\ 1324}#)
- (if (null? #{body\ 1318}#)
+ (let ((#{w\ 1373}#
+ (#{make-wrap\ 377}#
+ (#{wrap-marks\ 379}# #{w\ 1359}#)
+ (cons #{ribcage\ 1370}#
+ (#{wrap-subst\ 381}# #{w\ 1359}#)))))
+ (letrec ((#{parse\ 1382}#
+ (lambda (#{body\ 1383}#
+ #{ids\ 1384}#
+ #{labels\ 1385}#
+ #{var-ids\ 1386}#
+ #{vars\ 1387}#
+ #{vals\ 1388}#
+ #{bindings\ 1389}#)
+ (if (null? #{body\ 1383}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1292}#)
- (let ((#{e\ 1329}# (cdar #{body\ 1318}#))
- (#{er\ 1330}# (caar #{body\ 1318}#)))
+ #{outer-form\ 1357}#)
+ (let ((#{e\ 1394}# (cdar #{body\ 1383}#))
+ (#{er\ 1395}# (caar #{body\ 1383}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 388}#
- #{e\ 1329}#
- #{er\ 1330}#
+ (#{syntax-type\ 453}#
+ #{e\ 1394}#
+ #{er\ 1395}#
'(())
- (#{source-annotation\ 286}#
- #{er\ 1330}#)
- #{ribcage\ 1305}#
- #{mod\ 1295}#
+ (#{source-annotation\ 351}#
+ #{er\ 1395}#)
+ #{ribcage\ 1370}#
+ #{mod\ 1360}#
#f))
- (lambda (#{type\ 1332}#
- #{value\ 1333}#
- #{e\ 1334}#
- #{w\ 1335}#
- #{s\ 1336}#
- #{mod\ 1337}#)
- (if (memv #{type\ 1332}#
+ (lambda (#{type\ 1397}#
+ #{value\ 1398}#
+ #{e\ 1399}#
+ #{w\ 1400}#
+ #{s\ 1401}#
+ #{mod\ 1402}#)
+ (if (memv #{type\ 1397}#
'(define-form))
- (let ((#{id\ 1347}#
- (#{wrap\ 376}#
- #{value\ 1333}#
- #{w\ 1335}#
- #{mod\ 1337}#))
- (#{label\ 1348}#
- (#{gen-label\ 323}#)))
- (let ((#{var\ 1350}#
- (#{gen-var\ 420}#
- #{id\ 1347}#)))
+ (let ((#{id\ 1412}#
+ (#{wrap\ 441}#
+ #{value\ 1398}#
+ #{w\ 1400}#
+ #{mod\ 1402}#))
+ (#{label\ 1413}#
+ (#{gen-label\ 388}#)))
+ (let ((#{var\ 1415}#
+ (#{gen-var\ 485}#
+ #{id\ 1412}#)))
(begin
- (#{extend-ribcage!\ 352}#
- #{ribcage\ 1305}#
- #{id\ 1347}#
- #{label\ 1348}#)
- (#{parse\ 1317}#
- (cdr #{body\ 1318}#)
- (cons #{id\ 1347}#
- #{ids\ 1319}#)
- (cons #{label\ 1348}#
- #{labels\ 1320}#)
- (cons #{id\ 1347}#
- #{var-ids\ 1321}#)
- (cons #{var\ 1350}#
- #{vars\ 1322}#)
- (cons (cons #{er\ 1330}#
- (#{wrap\ 376}#
- #{e\ 1334}#
- #{w\ 1335}#
- #{mod\
1337}#))
- #{vals\ 1323}#)
+ (#{extend-ribcage!\ 417}#
+ #{ribcage\ 1370}#
+ #{id\ 1412}#
+ #{label\ 1413}#)
+ (#{parse\ 1382}#
+ (cdr #{body\ 1383}#)
+ (cons #{id\ 1412}#
+ #{ids\ 1384}#)
+ (cons #{label\ 1413}#
+ #{labels\ 1385}#)
+ (cons #{id\ 1412}#
+ #{var-ids\ 1386}#)
+ (cons #{var\ 1415}#
+ #{vars\ 1387}#)
+ (cons (cons #{er\ 1395}#
+ (#{wrap\ 441}#
+ #{e\ 1399}#
+ #{w\ 1400}#
+ #{mod\
1402}#))
+ #{vals\ 1388}#)
(cons (cons 'lexical
- #{var\ 1350}#)
- #{bindings\
1324}#)))))
- (if (memv #{type\ 1332}#
+ #{var\ 1415}#)
+ #{bindings\
1389}#)))))
+ (if (memv #{type\ 1397}#
'(define-syntax-form))
- (let ((#{id\ 1355}#
- (#{wrap\ 376}#
- #{value\ 1333}#
- #{w\ 1335}#
- #{mod\ 1337}#))
- (#{label\ 1356}#
- (#{gen-label\ 323}#)))
+ (let ((#{id\ 1420}#
+ (#{wrap\ 441}#
+ #{value\ 1398}#
+ #{w\ 1400}#
+ #{mod\ 1402}#))
+ (#{label\ 1421}#
+ (#{gen-label\ 388}#)))
(begin
- (#{extend-ribcage!\ 352}#
- #{ribcage\ 1305}#
- #{id\ 1355}#
- #{label\ 1356}#)
- (#{parse\ 1317}#
- (cdr #{body\ 1318}#)
- (cons #{id\ 1355}#
- #{ids\ 1319}#)
- (cons #{label\ 1356}#
- #{labels\ 1320}#)
- #{var-ids\ 1321}#
- #{vars\ 1322}#
- #{vals\ 1323}#
+ (#{extend-ribcage!\ 417}#
+ #{ribcage\ 1370}#
+ #{id\ 1420}#
+ #{label\ 1421}#)
+ (#{parse\ 1382}#
+ (cdr #{body\ 1383}#)
+ (cons #{id\ 1420}#
+ #{ids\ 1384}#)
+ (cons #{label\ 1421}#
+ #{labels\ 1385}#)
+ #{var-ids\ 1386}#
+ #{vars\ 1387}#
+ #{vals\ 1388}#
(cons (cons 'macro
- (cons #{er\
1330}#
- (#{wrap\
376}#
- #{e\
1334}#
- #{w\
1335}#
- #{mod\
1337}#)))
- #{bindings\
1324}#))))
- (if (memv #{type\ 1332}#
+ (cons #{er\
1395}#
+ (#{wrap\
441}#
+ #{e\
1399}#
+ #{w\
1400}#
+ #{mod\
1402}#)))
+ #{bindings\
1389}#))))
+ (if (memv #{type\ 1397}#
'(begin-form))
- ((lambda (#{tmp\ 1359}#)
- ((lambda (#{tmp\ 1360}#)
- (if #{tmp\ 1360}#
- (apply (lambda (#{_\
1363}#
- #{e1\
1364}#)
- (#{parse\
1317}#
- (letrec
((#{f\ 1367}#
-
(lambda (#{forms\ 1368}#)
-
(if (null? #{forms\ 1368}#)
-
(cdr #{body\ 1318}#)
-
(cons (cons #{er\ 1330}#
-
(#{wrap\ 376}#
-
(car #{forms\ 1368}#)
-
#{w\ 1335}#
-
#{mod\ 1337}#))
-
(#{f\ 1367}#
-
(cdr #{forms\ 1368}#)))))))
- (#{f\
1367}#
- #{e1\
1364}#))
- #{ids\
1319}#
- #{labels\
1320}#
- #{var-ids\
1321}#
- #{vars\
1322}#
- #{vals\
1323}#
- #{bindings\
1324}#))
- #{tmp\ 1360}#)
+ ((lambda (#{tmp\ 1424}#)
+ ((lambda (#{tmp\ 1425}#)
+ (if #{tmp\ 1425}#
+ (apply (lambda (#{_\
1428}#
+ #{e1\
1429}#)
+ (#{parse\
1382}#
+ (letrec
((#{f\ 1432}#
+
(lambda (#{forms\ 1433}#)
+
(if (null? #{forms\ 1433}#)
+
(cdr #{body\ 1383}#)
+
(cons (cons #{er\ 1395}#
+
(#{wrap\ 441}#
+
(car #{forms\ 1433}#)
+
#{w\ 1400}#
+
#{mod\ 1402}#))
+
(#{f\ 1432}#
+
(cdr #{forms\ 1433}#)))))))
+ (#{f\
1432}#
+ #{e1\
1429}#))
+ #{ids\
1384}#
+ #{labels\
1385}#
+ #{var-ids\
1386}#
+ #{vars\
1387}#
+ #{vals\
1388}#
+ #{bindings\
1389}#))
+ #{tmp\ 1425}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1359}#)))
+ #{tmp\ 1424}#)))
($sc-dispatch
- #{tmp\ 1359}#
+ #{tmp\ 1424}#
'(any . each-any))))
- #{e\ 1334}#)
- (if (memv #{type\ 1332}#
+ #{e\ 1399}#)
+ (if (memv #{type\ 1397}#
'(local-syntax-form))
- (#{chi-local-syntax\ 402}#
- #{value\ 1333}#
- #{e\ 1334}#
- #{er\ 1330}#
- #{w\ 1335}#
- #{s\ 1336}#
- #{mod\ 1337}#
- (lambda (#{forms\ 1371}#
- #{er\ 1372}#
- #{w\ 1373}#
- #{s\ 1374}#
- #{mod\ 1375}#)
- (#{parse\ 1317}#
- (letrec ((#{f\ 1383}#
- (lambda
(#{forms\ 1384}#)
- (if
(null? #{forms\ 1384}#)
- (cdr
#{body\ 1318}#)
- (cons
(cons #{er\ 1372}#
-
(#{wrap\ 376}#
-
(car #{forms\ 1384}#)
-
#{w\ 1373}#
-
#{mod\ 1375}#))
-
(#{f\ 1383}#
-
(cdr #{forms\ 1384}#)))))))
- (#{f\ 1383}#
- #{forms\ 1371}#))
- #{ids\ 1319}#
- #{labels\ 1320}#
- #{var-ids\ 1321}#
- #{vars\ 1322}#
- #{vals\ 1323}#
- #{bindings\ 1324}#)))
- (if (null? #{ids\ 1319}#)
- (#{build-sequence\ 259}#
+ (#{chi-local-syntax\ 467}#
+ #{value\ 1398}#
+ #{e\ 1399}#
+ #{er\ 1395}#
+ #{w\ 1400}#
+ #{s\ 1401}#
+ #{mod\ 1402}#
+ (lambda (#{forms\ 1436}#
+ #{er\ 1437}#
+ #{w\ 1438}#
+ #{s\ 1439}#
+ #{mod\ 1440}#)
+ (#{parse\ 1382}#
+ (letrec ((#{f\ 1448}#
+ (lambda
(#{forms\ 1449}#)
+ (if
(null? #{forms\ 1449}#)
+ (cdr
#{body\ 1383}#)
+ (cons
(cons #{er\ 1437}#
+
(#{wrap\ 441}#
+
(car #{forms\ 1449}#)
+
#{w\ 1438}#
+
#{mod\ 1440}#))
+
(#{f\ 1448}#
+
(cdr #{forms\ 1449}#)))))))
+ (#{f\ 1448}#
+ #{forms\ 1436}#))
+ #{ids\ 1384}#
+ #{labels\ 1385}#
+ #{var-ids\ 1386}#
+ #{vars\ 1387}#
+ #{vals\ 1388}#
+ #{bindings\ 1389}#)))
+ (if (null? #{ids\ 1384}#)
+ (#{build-sequence\ 324}#
#f
- (map (lambda (#{x\
1387}#)
- (#{chi\ 392}#
- (cdr #{x\
1387}#)
- (car #{x\
1387}#)
+ (map (lambda (#{x\
1452}#)
+ (#{chi\ 457}#
+ (cdr #{x\
1452}#)
+ (car #{x\
1452}#)
'(())
- #{mod\ 1337}#))
- (cons (cons #{er\
1330}#
-
(#{source-wrap\ 378}#
- #{e\
1334}#
- #{w\
1335}#
- #{s\
1336}#
-
#{mod\ 1337}#))
- (cdr #{body\
1318}#))))
+ #{mod\ 1402}#))
+ (cons (cons #{er\
1395}#
+
(#{source-wrap\ 443}#
+ #{e\
1399}#
+ #{w\
1400}#
+ #{s\
1401}#
+
#{mod\ 1402}#))
+ (cdr #{body\
1383}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 370}#
- #{ids\
1319}#))
+ (if (not
(#{valid-bound-ids?\ 435}#
+ #{ids\
1384}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
1292}#))
- (letrec ((#{loop\ 1394}#
- (lambda
(#{bs\ 1395}#
-
#{er-cache\ 1396}#
-
#{r-cache\ 1397}#)
- (if (not
(null? #{bs\ 1395}#))
- (let
((#{b\ 1400}#
-
(car #{bs\ 1395}#)))
- (if
(eq? (car #{b\ 1400}#)
+ #{outer-form\
1357}#))
+ (letrec ((#{loop\ 1459}#
+ (lambda
(#{bs\ 1460}#
+
#{er-cache\ 1461}#
+
#{r-cache\ 1462}#)
+ (if (not
(null? #{bs\ 1460}#))
+ (let
((#{b\ 1465}#
+
(car #{bs\ 1460}#)))
+ (if
(eq? (car #{b\ 1465}#)
'macro)
- (let
((#{er\ 1403}#
-
(cadr #{b\ 1400}#)))
-
(let ((#{r-cache\ 1405}#
-
(if (eq? #{er\ 1403}#
-
#{er-cache\ 1396}#)
-
#{r-cache\ 1397}#
-
(#{macros-only-env\ 299}#
-
#{er\ 1403}#))))
+ (let
((#{er\ 1468}#
+
(cadr #{b\ 1465}#)))
+
(let ((#{r-cache\ 1470}#
+
(if (eq? #{er\ 1468}#
+
#{er-cache\ 1461}#)
+
#{r-cache\ 1462}#
+
(#{macros-only-env\ 364}#
+
#{er\ 1468}#))))
(begin
(set-cdr!
-
#{b\ 1400}#
-
(#{eval-local-transformer\ 404}#
-
(#{chi\ 392}#
-
(cddr #{b\ 1400}#)
-
#{r-cache\ 1405}#
+
#{b\ 1465}#
+
(#{eval-local-transformer\ 469}#
+
(#{chi\ 457}#
+
(cddr #{b\ 1465}#)
+
#{r-cache\ 1470}#
'(())
-
#{mod\ 1337}#)
-
#{mod\ 1337}#))
-
(#{loop\ 1394}#
-
(cdr #{bs\ 1395}#)
-
#{er\ 1403}#
-
#{r-cache\ 1405}#))))
-
(#{loop\ 1394}#
-
(cdr #{bs\ 1395}#)
-
#{er-cache\ 1396}#
-
#{r-cache\ 1397}#)))))))
- (#{loop\ 1394}#
- #{bindings\ 1324}#
+
#{mod\ 1402}#)
+
#{mod\ 1402}#))
+
(#{loop\ 1459}#
+
(cdr #{bs\ 1460}#)
+
#{er\ 1468}#
+
#{r-cache\ 1470}#))))
+
(#{loop\ 1459}#
+
(cdr #{bs\ 1460}#)
+
#{er-cache\ 1461}#
+
#{r-cache\ 1462}#)))))))
+ (#{loop\ 1459}#
+ #{bindings\ 1389}#
#f
#f))
(set-cdr!
- #{r\ 1303}#
- (#{extend-env\ 295}#
- #{labels\ 1320}#
- #{bindings\ 1324}#
- (cdr #{r\ 1303}#)))
- (#{build-letrec\ 265}#
+ #{r\ 1368}#
+ (#{extend-env\ 360}#
+ #{labels\ 1385}#
+ #{bindings\ 1389}#
+ (cdr #{r\ 1368}#)))
+ (#{build-letrec\ 330}#
#f
(map syntax->datum
- #{var-ids\ 1321}#)
- #{vars\ 1322}#
- (map (lambda (#{x\
1408}#)
- (#{chi\ 392}#
- (cdr #{x\
1408}#)
- (car #{x\
1408}#)
+ #{var-ids\ 1386}#)
+ #{vars\ 1387}#
+ (map (lambda (#{x\
1473}#)
+ (#{chi\ 457}#
+ (cdr #{x\
1473}#)
+ (car #{x\
1473}#)
'(())
- #{mod\
1337}#))
- #{vals\ 1323}#)
- (#{build-sequence\
259}#
+ #{mod\
1402}#))
+ #{vals\ 1388}#)
+ (#{build-sequence\
324}#
#f
- (map (lambda (#{x\
1412}#)
- (#{chi\ 392}#
- (cdr #{x\
1412}#)
- (car #{x\
1412}#)
+ (map (lambda (#{x\
1477}#)
+ (#{chi\ 457}#
+ (cdr #{x\
1477}#)
+ (car #{x\
1477}#)
'(())
- #{mod\
1337}#))
- (cons (cons
#{er\ 1330}#
-
(#{source-wrap\ 378}#
-
#{e\ 1334}#
-
#{w\ 1335}#
-
#{s\ 1336}#
-
#{mod\ 1337}#))
- (cdr
#{body\ 1318}#))))))))))))))))))
- (#{parse\ 1317}#
- (map (lambda (#{x\ 1325}#)
- (cons #{r\ 1303}#
- (#{wrap\ 376}#
- #{x\ 1325}#
- #{w\ 1308}#
- #{mod\ 1295}#)))
- #{body\ 1291}#)
+ #{mod\
1402}#))
+ (cons (cons
#{er\ 1395}#
+
(#{source-wrap\ 443}#
+
#{e\ 1399}#
+
#{w\ 1400}#
+
#{s\ 1401}#
+
#{mod\ 1402}#))
+ (cdr
#{body\ 1383}#))))))))))))))))))
+ (#{parse\ 1382}#
+ (map (lambda (#{x\ 1390}#)
+ (cons #{r\ 1368}#
+ (#{wrap\ 441}#
+ #{x\ 1390}#
+ #{w\ 1373}#
+ #{mod\ 1360}#)))
+ #{body\ 1356}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 398}#
- (lambda (#{p\ 1415}#
- #{e\ 1416}#
- #{r\ 1417}#
- #{w\ 1418}#
- #{rib\ 1419}#
- #{mod\ 1420}#)
- (letrec ((#{rebuild-macro-output\ 1428}#
- (lambda (#{x\ 1429}# #{m\ 1430}#)
- (if (pair? #{x\ 1429}#)
- (cons (#{rebuild-macro-output\ 1428}#
- (car #{x\ 1429}#)
- #{m\ 1430}#)
- (#{rebuild-macro-output\ 1428}#
- (cdr #{x\ 1429}#)
- #{m\ 1430}#))
- (if (#{syntax-object?\ 271}# #{x\ 1429}#)
- (let ((#{w\ 1438}#
- (#{syntax-object-wrap\ 275}#
- #{x\ 1429}#)))
- (let ((#{ms\ 1441}#
- (#{wrap-marks\ 314}# #{w\ 1438}#))
- (#{s\ 1442}#
- (#{wrap-subst\ 316}# #{w\ 1438}#)))
- (if (if (pair? #{ms\ 1441}#)
- (eq? (car #{ms\ 1441}#) #f)
+ (#{chi-macro\ 463}#
+ (lambda (#{p\ 1480}#
+ #{e\ 1481}#
+ #{r\ 1482}#
+ #{w\ 1483}#
+ #{rib\ 1484}#
+ #{mod\ 1485}#)
+ (letrec ((#{rebuild-macro-output\ 1493}#
+ (lambda (#{x\ 1494}# #{m\ 1495}#)
+ (if (pair? #{x\ 1494}#)
+ (cons (#{rebuild-macro-output\ 1493}#
+ (car #{x\ 1494}#)
+ #{m\ 1495}#)
+ (#{rebuild-macro-output\ 1493}#
+ (cdr #{x\ 1494}#)
+ #{m\ 1495}#))
+ (if (#{syntax-object?\ 336}# #{x\ 1494}#)
+ (let ((#{w\ 1503}#
+ (#{syntax-object-wrap\ 340}#
+ #{x\ 1494}#)))
+ (let ((#{ms\ 1506}#
+ (#{wrap-marks\ 379}# #{w\ 1503}#))
+ (#{s\ 1507}#
+ (#{wrap-subst\ 381}# #{w\ 1503}#)))
+ (if (if (pair? #{ms\ 1506}#)
+ (eq? (car #{ms\ 1506}#) #f)
#f)
- (#{make-syntax-object\ 269}#
- (#{syntax-object-expression\ 273}#
- #{x\ 1429}#)
- (#{make-wrap\ 312}#
- (cdr #{ms\ 1441}#)
- (if #{rib\ 1419}#
- (cons #{rib\ 1419}#
- (cdr #{s\ 1442}#))
- (cdr #{s\ 1442}#)))
- (#{syntax-object-module\ 277}#
- #{x\ 1429}#))
- (#{make-syntax-object\ 269}#
- (#{syntax-object-expression\ 273}#
- #{x\ 1429}#)
- (#{make-wrap\ 312}#
- (cons #{m\ 1430}# #{ms\ 1441}#)
- (if #{rib\ 1419}#
- (cons #{rib\ 1419}#
+ (#{make-syntax-object\ 334}#
+ (#{syntax-object-expression\ 338}#
+ #{x\ 1494}#)
+ (#{make-wrap\ 377}#
+ (cdr #{ms\ 1506}#)
+ (if #{rib\ 1484}#
+ (cons #{rib\ 1484}#
+ (cdr #{s\ 1507}#))
+ (cdr #{s\ 1507}#)))
+ (#{syntax-object-module\ 342}#
+ #{x\ 1494}#))
+ (#{make-syntax-object\ 334}#
+ (#{syntax-object-expression\ 338}#
+ #{x\ 1494}#)
+ (#{make-wrap\ 377}#
+ (cons #{m\ 1495}# #{ms\ 1506}#)
+ (if #{rib\ 1484}#
+ (cons #{rib\ 1484}#
(cons 'shift
- #{s\ 1442}#))
- (cons (quote shift) #{s\ 1442}#)))
+ #{s\ 1507}#))
+ (cons (quote shift) #{s\ 1507}#)))
(cons 'hygiene
- (cdr #{p\ 1415}#))))))
- (if (vector? #{x\ 1429}#)
- (let ((#{n\ 1450}#
- (vector-length #{x\ 1429}#)))
- (let ((#{v\ 1452}#
- (make-vector #{n\ 1450}#)))
- (letrec ((#{loop\ 1455}#
- (lambda (#{i\ 1456}#)
- (if (#{fx=\ 212}#
- #{i\ 1456}#
- #{n\ 1450}#)
+ (cdr #{p\ 1480}#))))))
+ (if (vector? #{x\ 1494}#)
+ (let ((#{n\ 1515}#
+ (vector-length #{x\ 1494}#)))
+ (let ((#{v\ 1517}#
+ (make-vector #{n\ 1515}#)))
+ (letrec ((#{loop\ 1520}#
+ (lambda (#{i\ 1521}#)
+ (if (#{fx=\ 277}#
+ #{i\ 1521}#
+ #{n\ 1515}#)
(begin
(if #f #f)
- #{v\ 1452}#)
+ #{v\ 1517}#)
(begin
(vector-set!
- #{v\ 1452}#
- #{i\ 1456}#
-
(#{rebuild-macro-output\ 1428}#
+ #{v\ 1517}#
+ #{i\ 1521}#
+
(#{rebuild-macro-output\ 1493}#
(vector-ref
- #{x\ 1429}#
- #{i\ 1456}#)
- #{m\ 1430}#))
- (#{loop\ 1455}#
- (#{fx+\ 208}#
- #{i\ 1456}#
+ #{x\ 1494}#
+ #{i\ 1521}#)
+ #{m\ 1495}#))
+ (#{loop\ 1520}#
+ (#{fx+\ 273}#
+ #{i\ 1521}#
1)))))))
- (#{loop\ 1455}# 0))))
- (if (symbol? #{x\ 1429}#)
+ (#{loop\ 1520}# 0))))
+ (if (symbol? #{x\ 1494}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 378}#
- #{e\ 1416}#
- #{w\ 1418}#
- (#{wrap-subst\ 316}# #{w\ 1418}#)
- #{mod\ 1420}#)
- #{x\ 1429}#)
- #{x\ 1429}#)))))))
- (#{rebuild-macro-output\ 1428}#
- ((car #{p\ 1415}#)
- (#{wrap\ 376}#
- #{e\ 1416}#
- (#{anti-mark\ 348}# #{w\ 1418}#)
- #{mod\ 1420}#))
+ (#{source-wrap\ 443}#
+ #{e\ 1481}#
+ #{w\ 1483}#
+ (#{wrap-subst\ 381}# #{w\ 1483}#)
+ #{mod\ 1485}#)
+ #{x\ 1494}#)
+ #{x\ 1494}#)))))))
+ (#{rebuild-macro-output\ 1493}#
+ ((car #{p\ 1480}#)
+ (#{wrap\ 441}#
+ #{e\ 1481}#
+ (#{anti-mark\ 413}# #{w\ 1483}#)
+ #{mod\ 1485}#))
(gensym "m")))))
- (#{chi-application\ 396}#
- (lambda (#{x\ 1463}#
- #{e\ 1464}#
- #{r\ 1465}#
- #{w\ 1466}#
- #{s\ 1467}#
- #{mod\ 1468}#)
- ((lambda (#{tmp\ 1475}#)
- ((lambda (#{tmp\ 1476}#)
- (if #{tmp\ 1476}#
- (apply (lambda (#{e0\ 1479}# #{e1\ 1480}#)
- (#{build-application\ 229}#
- #{s\ 1467}#
- #{x\ 1463}#
- (map (lambda (#{e\ 1481}#)
- (#{chi\ 392}#
- #{e\ 1481}#
- #{r\ 1465}#
- #{w\ 1466}#
- #{mod\ 1468}#))
- #{e1\ 1480}#)))
- #{tmp\ 1476}#)
+ (#{chi-application\ 461}#
+ (lambda (#{x\ 1528}#
+ #{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1533}#)
+ ((lambda (#{tmp\ 1540}#)
+ ((lambda (#{tmp\ 1541}#)
+ (if #{tmp\ 1541}#
+ (apply (lambda (#{e0\ 1544}# #{e1\ 1545}#)
+ (#{build-application\ 294}#
+ #{s\ 1532}#
+ #{x\ 1528}#
+ (map (lambda (#{e\ 1546}#)
+ (#{chi\ 457}#
+ #{e\ 1546}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{mod\ 1533}#))
+ #{e1\ 1545}#)))
+ #{tmp\ 1541}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1475}#)))
+ #{tmp\ 1540}#)))
($sc-dispatch
- #{tmp\ 1475}#
+ #{tmp\ 1540}#
'(any . each-any))))
- #{e\ 1464}#)))
- (#{chi-expr\ 394}#
- (lambda (#{type\ 1484}#
- #{value\ 1485}#
- #{e\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#)
- (if (memv #{type\ 1484}# (quote (lexical)))
- (#{build-lexical-reference\ 235}#
+ #{e\ 1529}#)))
+ (#{chi-expr\ 459}#
+ (lambda (#{type\ 1549}#
+ #{value\ 1550}#
+ #{e\ 1551}#
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#)
+ (if (memv #{type\ 1549}# (quote (lexical)))
+ (#{build-lexical-reference\ 300}#
'value
- #{s\ 1489}#
- #{e\ 1486}#
- #{value\ 1485}#)
- (if (memv #{type\ 1484}# (quote (core core-form)))
- (#{value\ 1485}#
- #{e\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#)
- (if (memv #{type\ 1484}# (quote (module-ref)))
+ #{s\ 1554}#
+ #{e\ 1551}#
+ #{value\ 1550}#)
+ (if (memv #{type\ 1549}# (quote (core core-form)))
+ (#{value\ 1550}#
+ #{e\ 1551}#
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#)
+ (if (memv #{type\ 1549}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{value\ 1485}#
- #{e\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#))
- (lambda (#{e\ 1501}#
- #{r\ 1502}#
- #{w\ 1503}#
- #{s\ 1504}#
- #{mod\ 1505}#)
- (#{chi\ 392}#
- #{e\ 1501}#
- #{r\ 1502}#
- #{w\ 1503}#
- #{mod\ 1505}#)))
- (if (memv #{type\ 1484}# (quote (lexical-call)))
- (#{chi-application\ 396}#
- (#{build-lexical-reference\ 235}#
+ (#{value\ 1550}#
+ #{e\ 1551}#
+ #{r\ 1552}#
+ #{w\ 1553}#))
+ (lambda (#{e\ 1566}#
+ #{r\ 1567}#
+ #{w\ 1568}#
+ #{s\ 1569}#
+ #{mod\ 1570}#)
+ (#{chi\ 457}#
+ #{e\ 1566}#
+ #{r\ 1567}#
+ #{w\ 1568}#
+ #{mod\ 1570}#)))
+ (if (memv #{type\ 1549}# (quote (lexical-call)))
+ (#{chi-application\ 461}#
+ (#{build-lexical-reference\ 300}#
'fun
- (#{source-annotation\ 286}# (car #{e\ 1486}#))
- (car #{e\ 1486}#)
- #{value\ 1485}#)
- #{e\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#)
- (if (memv #{type\ 1484}# (quote (global-call)))
- (#{chi-application\ 396}#
- (#{build-global-reference\ 241}#
- (#{source-annotation\ 286}# (car #{e\ 1486}#))
- (if (#{syntax-object?\ 271}# #{value\ 1485}#)
- (#{syntax-object-expression\ 273}#
- #{value\ 1485}#)
- #{value\ 1485}#)
- (if (#{syntax-object?\ 271}# #{value\ 1485}#)
- (#{syntax-object-module\ 277}# #{value\ 1485}#)
- #{mod\ 1490}#))
- #{e\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#)
- (if (memv #{type\ 1484}# (quote (constant)))
- (#{build-data\ 257}#
- #{s\ 1489}#
- (#{strip\ 418}#
- (#{source-wrap\ 378}#
- #{e\ 1486}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#)
+ (#{source-annotation\ 351}# (car #{e\ 1551}#))
+ (car #{e\ 1551}#)
+ #{value\ 1550}#)
+ #{e\ 1551}#
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#)
+ (if (memv #{type\ 1549}# (quote (global-call)))
+ (#{chi-application\ 461}#
+ (#{build-global-reference\ 306}#
+ (#{source-annotation\ 351}# (car #{e\ 1551}#))
+ (if (#{syntax-object?\ 336}# #{value\ 1550}#)
+ (#{syntax-object-expression\ 338}#
+ #{value\ 1550}#)
+ #{value\ 1550}#)
+ (if (#{syntax-object?\ 336}# #{value\ 1550}#)
+ (#{syntax-object-module\ 342}# #{value\ 1550}#)
+ #{mod\ 1555}#))
+ #{e\ 1551}#
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#)
+ (if (memv #{type\ 1549}# (quote (constant)))
+ (#{build-data\ 322}#
+ #{s\ 1554}#
+ (#{strip\ 483}#
+ (#{source-wrap\ 443}#
+ #{e\ 1551}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#)
'(())))
- (if (memv #{type\ 1484}# (quote (global)))
- (#{build-global-reference\ 241}#
- #{s\ 1489}#
- #{value\ 1485}#
- #{mod\ 1490}#)
- (if (memv #{type\ 1484}# (quote (call)))
- (#{chi-application\ 396}#
- (#{chi\ 392}#
- (car #{e\ 1486}#)
- #{r\ 1487}#
- #{w\ 1488}#
- #{mod\ 1490}#)
- #{e\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#)
- (if (memv #{type\ 1484}# (quote (begin-form)))
- ((lambda (#{tmp\ 1518}#)
- ((lambda (#{tmp\ 1519}#)
- (if #{tmp\ 1519}#
- (apply (lambda (#{_\ 1523}#
- #{e1\ 1524}#
- #{e2\ 1525}#)
- (#{chi-sequence\ 380}#
- (cons #{e1\ 1524}#
- #{e2\ 1525}#)
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#))
- #{tmp\ 1519}#)
+ (if (memv #{type\ 1549}# (quote (global)))
+ (#{build-global-reference\ 306}#
+ #{s\ 1554}#
+ #{value\ 1550}#
+ #{mod\ 1555}#)
+ (if (memv #{type\ 1549}# (quote (call)))
+ (#{chi-application\ 461}#
+ (#{chi\ 457}#
+ (car #{e\ 1551}#)
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{mod\ 1555}#)
+ #{e\ 1551}#
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#)
+ (if (memv #{type\ 1549}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1583}#)
+ ((lambda (#{tmp\ 1584}#)
+ (if #{tmp\ 1584}#
+ (apply (lambda (#{_\ 1588}#
+ #{e1\ 1589}#
+ #{e2\ 1590}#)
+ (#{chi-sequence\ 445}#
+ (cons #{e1\ 1589}#
+ #{e2\ 1590}#)
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#))
+ #{tmp\ 1584}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1518}#)))
+ #{tmp\ 1583}#)))
($sc-dispatch
- #{tmp\ 1518}#
+ #{tmp\ 1583}#
'(any any . each-any))))
- #{e\ 1486}#)
- (if (memv #{type\ 1484}#
+ #{e\ 1551}#)
+ (if (memv #{type\ 1549}#
'(local-syntax-form))
- (#{chi-local-syntax\ 402}#
- #{value\ 1485}#
- #{e\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#
- #{chi-sequence\ 380}#)
- (if (memv #{type\ 1484}#
+ (#{chi-local-syntax\ 467}#
+ #{value\ 1550}#
+ #{e\ 1551}#
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#
+ #{chi-sequence\ 445}#)
+ (if (memv #{type\ 1549}#
'(eval-when-form))
- ((lambda (#{tmp\ 1529}#)
- ((lambda (#{tmp\ 1530}#)
- (if #{tmp\ 1530}#
- (apply (lambda (#{_\ 1535}#
- #{x\ 1536}#
- #{e1\ 1537}#
- #{e2\ 1538}#)
- (let ((#{when-list\
1540}#
-
(#{chi-when-list\ 386}#
- #{e\ 1486}#
- #{x\ 1536}#
- #{w\ 1488}#)))
+ ((lambda (#{tmp\ 1594}#)
+ ((lambda (#{tmp\ 1595}#)
+ (if #{tmp\ 1595}#
+ (apply (lambda (#{_\ 1600}#
+ #{x\ 1601}#
+ #{e1\ 1602}#
+ #{e2\ 1603}#)
+ (let ((#{when-list\
1605}#
+
(#{chi-when-list\ 451}#
+ #{e\ 1551}#
+ #{x\ 1601}#
+ #{w\ 1553}#)))
(if (memq 'eval
- #{when-list\
1540}#)
- (#{chi-sequence\
380}#
- (cons #{e1\ 1537}#
- #{e2\ 1538}#)
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#)
- (#{chi-void\
406}#))))
- #{tmp\ 1530}#)
+ #{when-list\
1605}#)
+ (#{chi-sequence\
445}#
+ (cons #{e1\ 1602}#
+ #{e2\ 1603}#)
+ #{r\ 1552}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#)
+ (#{chi-void\
471}#))))
+ #{tmp\ 1595}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 1529}#)))
+ #{tmp\ 1594}#)))
($sc-dispatch
- #{tmp\ 1529}#
+ #{tmp\ 1594}#
'(any each-any any . each-any))))
- #{e\ 1486}#)
- (if (memv #{type\ 1484}#
+ #{e\ 1551}#)
+ (if (memv #{type\ 1549}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1486}#
- (#{wrap\ 376}#
- #{value\ 1485}#
- #{w\ 1488}#
- #{mod\ 1490}#))
- (if (memv #{type\ 1484}#
+ #{e\ 1551}#
+ (#{wrap\ 441}#
+ #{value\ 1550}#
+ #{w\ 1553}#
+ #{mod\ 1555}#))
+ (if (memv #{type\ 1549}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 378}#
- #{e\ 1486}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#))
- (if (memv #{type\ 1484}#
+ (#{source-wrap\ 443}#
+ #{e\ 1551}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#))
+ (if (memv #{type\ 1549}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 378}#
- #{e\ 1486}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#))
+ (#{source-wrap\ 443}#
+ #{e\ 1551}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 378}#
- #{e\ 1486}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{mod\ 1490}#))))))))))))))))))
- (#{chi\ 392}#
- (lambda (#{e\ 1547}#
- #{r\ 1548}#
- #{w\ 1549}#
- #{mod\ 1550}#)
+ (#{source-wrap\ 443}#
+ #{e\ 1551}#
+ #{w\ 1553}#
+ #{s\ 1554}#
+ #{mod\ 1555}#))))))))))))))))))
+ (#{chi\ 457}#
+ (lambda (#{e\ 1612}#
+ #{r\ 1613}#
+ #{w\ 1614}#
+ #{mod\ 1615}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 388}#
- #{e\ 1547}#
- #{r\ 1548}#
- #{w\ 1549}#
- (#{source-annotation\ 286}# #{e\ 1547}#)
+ (#{syntax-type\ 453}#
+ #{e\ 1612}#
+ #{r\ 1613}#
+ #{w\ 1614}#
+ (#{source-annotation\ 351}# #{e\ 1612}#)
#f
- #{mod\ 1550}#
+ #{mod\ 1615}#
#f))
- (lambda (#{type\ 1555}#
- #{value\ 1556}#
- #{e\ 1557}#
- #{w\ 1558}#
- #{s\ 1559}#
- #{mod\ 1560}#)
- (#{chi-expr\ 394}#
- #{type\ 1555}#
- #{value\ 1556}#
- #{e\ 1557}#
- #{r\ 1548}#
- #{w\ 1558}#
- #{s\ 1559}#
- #{mod\ 1560}#)))))
- (#{chi-top\ 390}#
- (lambda (#{e\ 1567}#
- #{r\ 1568}#
- #{w\ 1569}#
- #{m\ 1570}#
- #{esew\ 1571}#
- #{mod\ 1572}#)
+ (lambda (#{type\ 1620}#
+ #{value\ 1621}#
+ #{e\ 1622}#
+ #{w\ 1623}#
+ #{s\ 1624}#
+ #{mod\ 1625}#)
+ (#{chi-expr\ 459}#
+ #{type\ 1620}#
+ #{value\ 1621}#
+ #{e\ 1622}#
+ #{r\ 1613}#
+ #{w\ 1623}#
+ #{s\ 1624}#
+ #{mod\ 1625}#)))))
+ (#{chi-top\ 455}#
+ (lambda (#{e\ 1632}#
+ #{r\ 1633}#
+ #{w\ 1634}#
+ #{m\ 1635}#
+ #{esew\ 1636}#
+ #{mod\ 1637}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 388}#
- #{e\ 1567}#
- #{r\ 1568}#
- #{w\ 1569}#
- (#{source-annotation\ 286}# #{e\ 1567}#)
+ (#{syntax-type\ 453}#
+ #{e\ 1632}#
+ #{r\ 1633}#
+ #{w\ 1634}#
+ (#{source-annotation\ 351}# #{e\ 1632}#)
#f
- #{mod\ 1572}#
+ #{mod\ 1637}#
#f))
- (lambda (#{type\ 1593}#
- #{value\ 1594}#
- #{e\ 1595}#
- #{w\ 1596}#
- #{s\ 1597}#
- #{mod\ 1598}#)
- (if (memv #{type\ 1593}# (quote (begin-form)))
- ((lambda (#{tmp\ 1606}#)
- ((lambda (#{tmp\ 1607}#)
- (if #{tmp\ 1607}#
- (apply (lambda (#{_\ 1609}#) (#{chi-void\ 406}#))
- #{tmp\ 1607}#)
- ((lambda (#{tmp\ 1610}#)
- (if #{tmp\ 1610}#
- (apply (lambda (#{_\ 1614}#
- #{e1\ 1615}#
- #{e2\ 1616}#)
- (#{chi-top-sequence\ 382}#
- (cons #{e1\ 1615}# #{e2\ 1616}#)
- #{r\ 1568}#
- #{w\ 1596}#
- #{s\ 1597}#
- #{m\ 1570}#
- #{esew\ 1571}#
- #{mod\ 1598}#))
- #{tmp\ 1610}#)
+ (lambda (#{type\ 1658}#
+ #{value\ 1659}#
+ #{e\ 1660}#
+ #{w\ 1661}#
+ #{s\ 1662}#
+ #{mod\ 1663}#)
+ (if (memv #{type\ 1658}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1671}#)
+ ((lambda (#{tmp\ 1672}#)
+ (if #{tmp\ 1672}#
+ (apply (lambda (#{_\ 1674}#) (#{chi-void\ 471}#))
+ #{tmp\ 1672}#)
+ ((lambda (#{tmp\ 1675}#)
+ (if #{tmp\ 1675}#
+ (apply (lambda (#{_\ 1679}#
+ #{e1\ 1680}#
+ #{e2\ 1681}#)
+ (#{chi-top-sequence\ 447}#
+ (cons #{e1\ 1680}# #{e2\ 1681}#)
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{s\ 1662}#
+ #{m\ 1635}#
+ #{esew\ 1636}#
+ #{mod\ 1663}#))
+ #{tmp\ 1675}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1606}#)))
+ #{tmp\ 1671}#)))
($sc-dispatch
- #{tmp\ 1606}#
+ #{tmp\ 1671}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 1606}# (quote (any)))))
- #{e\ 1595}#)
- (if (memv #{type\ 1593}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 402}#
- #{value\ 1594}#
- #{e\ 1595}#
- #{r\ 1568}#
- #{w\ 1596}#
- #{s\ 1597}#
- #{mod\ 1598}#
- (lambda (#{body\ 1619}#
- #{r\ 1620}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1623}#)
- (#{chi-top-sequence\ 382}#
- #{body\ 1619}#
- #{r\ 1620}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{m\ 1570}#
- #{esew\ 1571}#
- #{mod\ 1623}#)))
- (if (memv #{type\ 1593}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 1630}#)
- ((lambda (#{tmp\ 1631}#)
- (if #{tmp\ 1631}#
- (apply (lambda (#{_\ 1636}#
- #{x\ 1637}#
- #{e1\ 1638}#
- #{e2\ 1639}#)
- (let ((#{when-list\ 1642}#
- (#{chi-when-list\ 386}#
- #{e\ 1595}#
- #{x\ 1637}#
- #{w\ 1596}#))
- (#{body\ 1643}#
- (cons #{e1\ 1638}#
- #{e2\ 1639}#)))
- (if (eq? #{m\ 1570}# (quote e))
+ ($sc-dispatch #{tmp\ 1671}# (quote (any)))))
+ #{e\ 1660}#)
+ (if (memv #{type\ 1658}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 467}#
+ #{value\ 1659}#
+ #{e\ 1660}#
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{s\ 1662}#
+ #{mod\ 1663}#
+ (lambda (#{body\ 1684}#
+ #{r\ 1685}#
+ #{w\ 1686}#
+ #{s\ 1687}#
+ #{mod\ 1688}#)
+ (#{chi-top-sequence\ 447}#
+ #{body\ 1684}#
+ #{r\ 1685}#
+ #{w\ 1686}#
+ #{s\ 1687}#
+ #{m\ 1635}#
+ #{esew\ 1636}#
+ #{mod\ 1688}#)))
+ (if (memv #{type\ 1658}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 1695}#)
+ ((lambda (#{tmp\ 1696}#)
+ (if #{tmp\ 1696}#
+ (apply (lambda (#{_\ 1701}#
+ #{x\ 1702}#
+ #{e1\ 1703}#
+ #{e2\ 1704}#)
+ (let ((#{when-list\ 1707}#
+ (#{chi-when-list\ 451}#
+ #{e\ 1660}#
+ #{x\ 1702}#
+ #{w\ 1661}#))
+ (#{body\ 1708}#
+ (cons #{e1\ 1703}#
+ #{e2\ 1704}#)))
+ (if (eq? #{m\ 1635}# (quote e))
(if (memq 'eval
- #{when-list\ 1642}#)
- (#{chi-top-sequence\ 382}#
- #{body\ 1643}#
- #{r\ 1568}#
- #{w\ 1596}#
- #{s\ 1597}#
+ #{when-list\ 1707}#)
+ (#{chi-top-sequence\ 447}#
+ #{body\ 1708}#
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{s\ 1662}#
(if (memq 'expand
- #{when-list\
1642}#)
+ #{when-list\
1707}#)
'c&e
'e)
'(eval)
- #{mod\ 1598}#)
+ #{mod\ 1663}#)
(begin
(if (memq 'expand
- #{when-list\
1642}#)
- (#{top-level-eval-hook\
216}#
- (#{chi-top-sequence\
382}#
- #{body\ 1643}#
- #{r\ 1568}#
- #{w\ 1596}#
- #{s\ 1597}#
+ #{when-list\
1707}#)
+ (#{top-level-eval-hook\
281}#
+ (#{chi-top-sequence\
447}#
+ #{body\ 1708}#
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{s\ 1662}#
'e
'(eval)
- #{mod\ 1598}#)
- #{mod\ 1598}#))
- (#{chi-void\ 406}#)))
+ #{mod\ 1663}#)
+ #{mod\ 1663}#))
+ (#{chi-void\ 471}#)))
(if (memq 'load
- #{when-list\ 1642}#)
- (if (let ((#{t\ 1652}#
+ #{when-list\ 1707}#)
+ (if (let ((#{t\ 1717}#
(memq 'compile
- #{when-list\
1642}#)))
- (if #{t\ 1652}#
- #{t\ 1652}#
- (let ((#{t\ 1655}#
+ #{when-list\
1707}#)))
+ (if #{t\ 1717}#
+ #{t\ 1717}#
+ (let ((#{t\ 1720}#
(memq 'expand
-
#{when-list\ 1642}#)))
- (if #{t\ 1655}#
- #{t\ 1655}#
- (if (eq? #{m\
1570}#
+
#{when-list\ 1707}#)))
+ (if #{t\ 1720}#
+ #{t\ 1720}#
+ (if (eq? #{m\
1635}#
'c&e)
(memq 'eval
-
#{when-list\ 1642}#)
+
#{when-list\ 1707}#)
#f)))))
- (#{chi-top-sequence\ 382}#
- #{body\ 1643}#
- #{r\ 1568}#
- #{w\ 1596}#
- #{s\ 1597}#
+ (#{chi-top-sequence\ 447}#
+ #{body\ 1708}#
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{s\ 1662}#
'c&e
'(compile load)
- #{mod\ 1598}#)
- (if (memq #{m\ 1570}#
+ #{mod\ 1663}#)
+ (if (memq #{m\ 1635}#
'(c c&e))
- (#{chi-top-sequence\ 382}#
- #{body\ 1643}#
- #{r\ 1568}#
- #{w\ 1596}#
- #{s\ 1597}#
+ (#{chi-top-sequence\ 447}#
+ #{body\ 1708}#
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{s\ 1662}#
'c
'(load)
- #{mod\ 1598}#)
- (#{chi-void\ 406}#)))
- (if (let ((#{t\ 1663}#
+ #{mod\ 1663}#)
+ (#{chi-void\ 471}#)))
+ (if (let ((#{t\ 1728}#
(memq 'compile
- #{when-list\
1642}#)))
- (if #{t\ 1663}#
- #{t\ 1663}#
- (let ((#{t\ 1666}#
+ #{when-list\
1707}#)))
+ (if #{t\ 1728}#
+ #{t\ 1728}#
+ (let ((#{t\ 1731}#
(memq 'expand
-
#{when-list\ 1642}#)))
- (if #{t\ 1666}#
- #{t\ 1666}#
- (if (eq? #{m\
1570}#
+
#{when-list\ 1707}#)))
+ (if #{t\ 1731}#
+ #{t\ 1731}#
+ (if (eq? #{m\
1635}#
'c&e)
(memq 'eval
-
#{when-list\ 1642}#)
+
#{when-list\ 1707}#)
#f)))))
(begin
- (#{top-level-eval-hook\
216}#
- (#{chi-top-sequence\
382}#
- #{body\ 1643}#
- #{r\ 1568}#
- #{w\ 1596}#
- #{s\ 1597}#
+ (#{top-level-eval-hook\
281}#
+ (#{chi-top-sequence\
447}#
+ #{body\ 1708}#
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{s\ 1662}#
'e
'(eval)
- #{mod\ 1598}#)
- #{mod\ 1598}#)
- (#{chi-void\ 406}#))
- (#{chi-void\ 406}#))))))
- #{tmp\ 1631}#)
+ #{mod\ 1663}#)
+ #{mod\ 1663}#)
+ (#{chi-void\ 471}#))
+ (#{chi-void\ 471}#))))))
+ #{tmp\ 1696}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1630}#)))
+ #{tmp\ 1695}#)))
($sc-dispatch
- #{tmp\ 1630}#
+ #{tmp\ 1695}#
'(any each-any any . each-any))))
- #{e\ 1595}#)
- (if (memv #{type\ 1593}#
+ #{e\ 1660}#)
+ (if (memv #{type\ 1658}#
'(define-syntax-form))
- (let ((#{n\ 1674}#
- (#{id-var-name\ 364}#
- #{value\ 1594}#
- #{w\ 1596}#))
- (#{r\ 1675}#
- (#{macros-only-env\ 299}# #{r\ 1568}#)))
- (if (memv #{m\ 1570}# (quote (c)))
- (if (memq (quote compile) #{esew\ 1571}#)
- (let ((#{e\ 1678}#
- (#{chi-install-global\ 384}#
- #{n\ 1674}#
- (#{chi\ 392}#
- #{e\ 1595}#
- #{r\ 1675}#
- #{w\ 1596}#
- #{mod\ 1598}#))))
+ (let ((#{n\ 1739}#
+ (#{id-var-name\ 429}#
+ #{value\ 1659}#
+ #{w\ 1661}#))
+ (#{r\ 1740}#
+ (#{macros-only-env\ 364}# #{r\ 1633}#)))
+ (if (memv #{m\ 1635}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 1636}#)
+ (let ((#{e\ 1743}#
+ (#{chi-install-global\ 449}#
+ #{n\ 1739}#
+ (#{chi\ 457}#
+ #{e\ 1660}#
+ #{r\ 1740}#
+ #{w\ 1661}#
+ #{mod\ 1663}#))))
(begin
- (#{top-level-eval-hook\ 216}#
- #{e\ 1678}#
- #{mod\ 1598}#)
- (if (memq (quote load) #{esew\ 1571}#)
- #{e\ 1678}#
- (#{chi-void\ 406}#))))
- (if (memq (quote load) #{esew\ 1571}#)
- (#{chi-install-global\ 384}#
- #{n\ 1674}#
- (#{chi\ 392}#
- #{e\ 1595}#
- #{r\ 1675}#
- #{w\ 1596}#
- #{mod\ 1598}#))
- (#{chi-void\ 406}#)))
- (if (memv #{m\ 1570}# (quote (c&e)))
- (let ((#{e\ 1681}#
- (#{chi-install-global\ 384}#
- #{n\ 1674}#
- (#{chi\ 392}#
- #{e\ 1595}#
- #{r\ 1675}#
- #{w\ 1596}#
- #{mod\ 1598}#))))
+ (#{top-level-eval-hook\ 281}#
+ #{e\ 1743}#
+ #{mod\ 1663}#)
+ (if (memq (quote load) #{esew\ 1636}#)
+ #{e\ 1743}#
+ (#{chi-void\ 471}#))))
+ (if (memq (quote load) #{esew\ 1636}#)
+ (#{chi-install-global\ 449}#
+ #{n\ 1739}#
+ (#{chi\ 457}#
+ #{e\ 1660}#
+ #{r\ 1740}#
+ #{w\ 1661}#
+ #{mod\ 1663}#))
+ (#{chi-void\ 471}#)))
+ (if (memv #{m\ 1635}# (quote (c&e)))
+ (let ((#{e\ 1746}#
+ (#{chi-install-global\ 449}#
+ #{n\ 1739}#
+ (#{chi\ 457}#
+ #{e\ 1660}#
+ #{r\ 1740}#
+ #{w\ 1661}#
+ #{mod\ 1663}#))))
(begin
- (#{top-level-eval-hook\ 216}#
- #{e\ 1681}#
- #{mod\ 1598}#)
- #{e\ 1681}#))
+ (#{top-level-eval-hook\ 281}#
+ #{e\ 1746}#
+ #{mod\ 1663}#)
+ #{e\ 1746}#))
(begin
- (if (memq (quote eval) #{esew\ 1571}#)
- (#{top-level-eval-hook\ 216}#
- (#{chi-install-global\ 384}#
- #{n\ 1674}#
- (#{chi\ 392}#
- #{e\ 1595}#
- #{r\ 1675}#
- #{w\ 1596}#
- #{mod\ 1598}#))
- #{mod\ 1598}#))
- (#{chi-void\ 406}#)))))
- (if (memv #{type\ 1593}# (quote (define-form)))
- (let ((#{n\ 1686}#
- (#{id-var-name\ 364}#
- #{value\ 1594}#
- #{w\ 1596}#)))
- (let ((#{type\ 1688}#
- (#{binding-type\ 290}#
- (#{lookup\ 301}#
- #{n\ 1686}#
- #{r\ 1568}#
- #{mod\ 1598}#))))
- (if (memv #{type\ 1688}#
+ (if (memq (quote eval) #{esew\ 1636}#)
+ (#{top-level-eval-hook\ 281}#
+ (#{chi-install-global\ 449}#
+ #{n\ 1739}#
+ (#{chi\ 457}#
+ #{e\ 1660}#
+ #{r\ 1740}#
+ #{w\ 1661}#
+ #{mod\ 1663}#))
+ #{mod\ 1663}#))
+ (#{chi-void\ 471}#)))))
+ (if (memv #{type\ 1658}# (quote (define-form)))
+ (let ((#{n\ 1751}#
+ (#{id-var-name\ 429}#
+ #{value\ 1659}#
+ #{w\ 1661}#)))
+ (let ((#{type\ 1753}#
+ (#{binding-type\ 355}#
+ (#{lookup\ 366}#
+ #{n\ 1751}#
+ #{r\ 1633}#
+ #{mod\ 1663}#))))
+ (if (memv #{type\ 1753}#
'(global core macro module-ref))
(begin
- (if (if (memq #{m\ 1570}# (quote (c c&e)))
+ (if (if (memq #{m\ 1635}# (quote (c c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 1686}#))
+ #{n\ 1751}#))
(current-module)
#f)
#f)
- (let ((#{old\ 1694}#
+ (let ((#{old\ 1759}#
(module-variable
(current-module)
- #{n\ 1686}#)))
+ #{n\ 1751}#)))
(module-define!
(current-module)
- #{n\ 1686}#
- (if (variable? #{old\ 1694}#)
- (variable-ref #{old\ 1694}#)
+ #{n\ 1751}#
+ (if (variable? #{old\ 1759}#)
+ (variable-ref #{old\ 1759}#)
#f))))
- (let ((#{x\ 1697}#
- (#{build-global-definition\ 247}#
- #{s\ 1597}#
- #{n\ 1686}#
- (#{chi\ 392}#
- #{e\ 1595}#
- #{r\ 1568}#
- #{w\ 1596}#
- #{mod\ 1598}#))))
+ (let ((#{x\ 1762}#
+ (#{build-global-definition\ 312}#
+ #{s\ 1662}#
+ #{n\ 1751}#
+ (#{chi\ 457}#
+ #{e\ 1660}#
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{mod\ 1663}#))))
(begin
- (if (eq? #{m\ 1570}# (quote c&e))
- (#{top-level-eval-hook\ 216}#
- #{x\ 1697}#
- #{mod\ 1598}#))
- #{x\ 1697}#)))
- (if (memv #{type\ 1688}#
+ (if (eq? #{m\ 1635}# (quote c&e))
+ (#{top-level-eval-hook\ 281}#
+ #{x\ 1762}#
+ #{mod\ 1663}#))
+ #{x\ 1762}#)))
+ (if (memv #{type\ 1753}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 1595}#
- (#{wrap\ 376}#
- #{value\ 1594}#
- #{w\ 1596}#
- #{mod\ 1598}#))
+ #{e\ 1660}#
+ (#{wrap\ 441}#
+ #{value\ 1659}#
+ #{w\ 1661}#
+ #{mod\ 1663}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1595}#
- (#{wrap\ 376}#
- #{value\ 1594}#
- #{w\ 1596}#
- #{mod\ 1598}#))))))
- (let ((#{x\ 1703}#
- (#{chi-expr\ 394}#
- #{type\ 1593}#
- #{value\ 1594}#
- #{e\ 1595}#
- #{r\ 1568}#
- #{w\ 1596}#
- #{s\ 1597}#
- #{mod\ 1598}#)))
+ #{e\ 1660}#
+ (#{wrap\ 441}#
+ #{value\ 1659}#
+ #{w\ 1661}#
+ #{mod\ 1663}#))))))
+ (let ((#{x\ 1768}#
+ (#{chi-expr\ 459}#
+ #{type\ 1658}#
+ #{value\ 1659}#
+ #{e\ 1660}#
+ #{r\ 1633}#
+ #{w\ 1661}#
+ #{s\ 1662}#
+ #{mod\ 1663}#)))
(begin
- (if (eq? #{m\ 1570}# (quote c&e))
- (#{top-level-eval-hook\ 216}#
- #{x\ 1703}#
- #{mod\ 1598}#))
- #{x\ 1703}#)))))))))))
- (#{syntax-type\ 388}#
- (lambda (#{e\ 1704}#
- #{r\ 1705}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{rib\ 1708}#
- #{mod\ 1709}#
- #{for-car?\ 1710}#)
- (if (symbol? #{e\ 1704}#)
- (let ((#{n\ 1722}#
- (#{id-var-name\ 364}# #{e\ 1704}# #{w\ 1706}#)))
- (let ((#{b\ 1724}#
- (#{lookup\ 301}#
- #{n\ 1722}#
- #{r\ 1705}#
- #{mod\ 1709}#)))
- (let ((#{type\ 1726}#
- (#{binding-type\ 290}# #{b\ 1724}#)))
- (if (memv #{type\ 1726}# (quote (lexical)))
+ (if (eq? #{m\ 1635}# (quote c&e))
+ (#{top-level-eval-hook\ 281}#
+ #{x\ 1768}#
+ #{mod\ 1663}#))
+ #{x\ 1768}#)))))))))))
+ (#{syntax-type\ 453}#
+ (lambda (#{e\ 1769}#
+ #{r\ 1770}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{rib\ 1773}#
+ #{mod\ 1774}#
+ #{for-car?\ 1775}#)
+ (if (symbol? #{e\ 1769}#)
+ (let ((#{n\ 1787}#
+ (#{id-var-name\ 429}# #{e\ 1769}# #{w\ 1771}#)))
+ (let ((#{b\ 1789}#
+ (#{lookup\ 366}#
+ #{n\ 1787}#
+ #{r\ 1770}#
+ #{mod\ 1774}#)))
+ (let ((#{type\ 1791}#
+ (#{binding-type\ 355}# #{b\ 1789}#)))
+ (if (memv #{type\ 1791}# (quote (lexical)))
(values
- #{type\ 1726}#
- (#{binding-value\ 292}# #{b\ 1724}#)
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (if (memv #{type\ 1726}# (quote (global)))
+ #{type\ 1791}#
+ (#{binding-value\ 357}# #{b\ 1789}#)
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (if (memv #{type\ 1791}# (quote (global)))
(values
- #{type\ 1726}#
- #{n\ 1722}#
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (if (memv #{type\ 1726}# (quote (macro)))
- (if #{for-car?\ 1710}#
+ #{type\ 1791}#
+ #{n\ 1787}#
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (if (memv #{type\ 1791}# (quote (macro)))
+ (if #{for-car?\ 1775}#
(values
- #{type\ 1726}#
- (#{binding-value\ 292}# #{b\ 1724}#)
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (#{syntax-type\ 388}#
- (#{chi-macro\ 398}#
- (#{binding-value\ 292}# #{b\ 1724}#)
- #{e\ 1704}#
- #{r\ 1705}#
- #{w\ 1706}#
- #{rib\ 1708}#
- #{mod\ 1709}#)
- #{r\ 1705}#
+ #{type\ 1791}#
+ (#{binding-value\ 357}# #{b\ 1789}#)
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (#{syntax-type\ 453}#
+ (#{chi-macro\ 463}#
+ (#{binding-value\ 357}# #{b\ 1789}#)
+ #{e\ 1769}#
+ #{r\ 1770}#
+ #{w\ 1771}#
+ #{rib\ 1773}#
+ #{mod\ 1774}#)
+ #{r\ 1770}#
'(())
- #{s\ 1707}#
- #{rib\ 1708}#
- #{mod\ 1709}#
+ #{s\ 1772}#
+ #{rib\ 1773}#
+ #{mod\ 1774}#
#f))
(values
- #{type\ 1726}#
- (#{binding-value\ 292}# #{b\ 1724}#)
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)))))))
- (if (pair? #{e\ 1704}#)
- (let ((#{first\ 1735}# (car #{e\ 1704}#)))
+ #{type\ 1791}#
+ (#{binding-value\ 357}# #{b\ 1789}#)
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)))))))
+ (if (pair? #{e\ 1769}#)
+ (let ((#{first\ 1800}# (car #{e\ 1769}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 388}#
- #{first\ 1735}#
- #{r\ 1705}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{rib\ 1708}#
- #{mod\ 1709}#
+ (#{syntax-type\ 453}#
+ #{first\ 1800}#
+ #{r\ 1770}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{rib\ 1773}#
+ #{mod\ 1774}#
#t))
- (lambda (#{ftype\ 1736}#
- #{fval\ 1737}#
- #{fe\ 1738}#
- #{fw\ 1739}#
- #{fs\ 1740}#
- #{fmod\ 1741}#)
- (if (memv #{ftype\ 1736}# (quote (lexical)))
+ (lambda (#{ftype\ 1801}#
+ #{fval\ 1802}#
+ #{fe\ 1803}#
+ #{fw\ 1804}#
+ #{fs\ 1805}#
+ #{fmod\ 1806}#)
+ (if (memv #{ftype\ 1801}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 1737}#
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (if (memv #{ftype\ 1736}# (quote (global)))
+ #{fval\ 1802}#
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (if (memv #{ftype\ 1801}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 269}#
- #{fval\ 1737}#
- #{w\ 1706}#
- #{fmod\ 1741}#)
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (if (memv #{ftype\ 1736}# (quote (macro)))
- (#{syntax-type\ 388}#
- (#{chi-macro\ 398}#
- #{fval\ 1737}#
- #{e\ 1704}#
- #{r\ 1705}#
- #{w\ 1706}#
- #{rib\ 1708}#
- #{mod\ 1709}#)
- #{r\ 1705}#
+ (#{make-syntax-object\ 334}#
+ #{fval\ 1802}#
+ #{w\ 1771}#
+ #{fmod\ 1806}#)
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (if (memv #{ftype\ 1801}# (quote (macro)))
+ (#{syntax-type\ 453}#
+ (#{chi-macro\ 463}#
+ #{fval\ 1802}#
+ #{e\ 1769}#
+ #{r\ 1770}#
+ #{w\ 1771}#
+ #{rib\ 1773}#
+ #{mod\ 1774}#)
+ #{r\ 1770}#
'(())
- #{s\ 1707}#
- #{rib\ 1708}#
- #{mod\ 1709}#
- #{for-car?\ 1710}#)
- (if (memv #{ftype\ 1736}# (quote (module-ref)))
+ #{s\ 1772}#
+ #{rib\ 1773}#
+ #{mod\ 1774}#
+ #{for-car?\ 1775}#)
+ (if (memv #{ftype\ 1801}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{fval\ 1737}#
- #{e\ 1704}#
- #{r\ 1705}#
- #{w\ 1706}#))
- (lambda (#{e\ 1753}#
- #{r\ 1754}#
- #{w\ 1755}#
- #{s\ 1756}#
- #{mod\ 1757}#)
- (#{syntax-type\ 388}#
- #{e\ 1753}#
- #{r\ 1754}#
- #{w\ 1755}#
- #{s\ 1756}#
- #{rib\ 1708}#
- #{mod\ 1757}#
- #{for-car?\ 1710}#)))
- (if (memv #{ftype\ 1736}# (quote (core)))
+ (#{fval\ 1802}#
+ #{e\ 1769}#
+ #{r\ 1770}#
+ #{w\ 1771}#))
+ (lambda (#{e\ 1818}#
+ #{r\ 1819}#
+ #{w\ 1820}#
+ #{s\ 1821}#
+ #{mod\ 1822}#)
+ (#{syntax-type\ 453}#
+ #{e\ 1818}#
+ #{r\ 1819}#
+ #{w\ 1820}#
+ #{s\ 1821}#
+ #{rib\ 1773}#
+ #{mod\ 1822}#
+ #{for-car?\ 1775}#)))
+ (if (memv #{ftype\ 1801}# (quote (core)))
(values
'core-form
- #{fval\ 1737}#
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (if (memv #{ftype\ 1736}#
+ #{fval\ 1802}#
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (if (memv #{ftype\ 1801}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 1737}#
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (if (memv #{ftype\ 1736}# (quote (begin)))
+ #{fval\ 1802}#
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (if (memv #{ftype\ 1801}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (if (memv #{ftype\ 1736}#
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (if (memv #{ftype\ 1801}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
- (if (memv #{ftype\ 1736}#
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
+ (if (memv #{ftype\ 1801}#
'(define))
- ((lambda (#{tmp\ 1768}#)
- ((lambda (#{tmp\ 1769}#)
- (if (if #{tmp\ 1769}#
- (apply (lambda (#{_\
1773}#
- #{name\
1774}#
- #{val\
1775}#)
- (#{id?\ 307}#
- #{name\
1774}#))
- #{tmp\ 1769}#)
+ ((lambda (#{tmp\ 1833}#)
+ ((lambda (#{tmp\ 1834}#)
+ (if (if #{tmp\ 1834}#
+ (apply (lambda (#{_\
1838}#
+ #{name\
1839}#
+ #{val\
1840}#)
+ (#{id?\ 372}#
+ #{name\
1839}#))
+ #{tmp\ 1834}#)
#f)
- (apply (lambda (#{_\ 1779}#
- #{name\
1780}#
- #{val\
1781}#)
+ (apply (lambda (#{_\ 1844}#
+ #{name\
1845}#
+ #{val\
1846}#)
(values
'define-form
- #{name\ 1780}#
- #{val\ 1781}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#))
- #{tmp\ 1769}#)
- ((lambda (#{tmp\ 1782}#)
- (if (if #{tmp\ 1782}#
- (apply (lambda
(#{_\ 1788}#
-
#{name\ 1789}#
-
#{args\ 1790}#
-
#{e1\ 1791}#
-
#{e2\ 1792}#)
- (if
(#{id?\ 307}#
-
#{name\ 1789}#)
-
(#{valid-bound-ids?\ 370}#
-
(#{lambda-var-list\ 422}#
-
#{args\ 1790}#))
+ #{name\ 1845}#
+ #{val\ 1846}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#))
+ #{tmp\ 1834}#)
+ ((lambda (#{tmp\ 1847}#)
+ (if (if #{tmp\ 1847}#
+ (apply (lambda
(#{_\ 1853}#
+
#{name\ 1854}#
+
#{args\ 1855}#
+
#{e1\ 1856}#
+
#{e2\ 1857}#)
+ (if
(#{id?\ 372}#
+
#{name\ 1854}#)
+
(#{valid-bound-ids?\ 435}#
+
(#{lambda-var-list\ 487}#
+
#{args\ 1855}#))
#f))
- #{tmp\
1782}#)
+ #{tmp\
1847}#)
#f)
- (apply (lambda (#{_\
1800}#
-
#{name\ 1801}#
-
#{args\ 1802}#
- #{e1\
1803}#
- #{e2\
1804}#)
+ (apply (lambda (#{_\
1865}#
+
#{name\ 1866}#
+
#{args\ 1867}#
+ #{e1\
1868}#
+ #{e2\
1869}#)
(values
'define-form
- (#{wrap\
376}#
- #{name\
1801}#
- #{w\
1706}#
- #{mod\
1709}#)
-
(#{decorate-source\ 225}#
+ (#{wrap\
441}#
+ #{name\
1866}#
+ #{w\
1771}#
+ #{mod\
1774}#)
+
(#{decorate-source\ 290}#
(cons
'#(syntax-object
lambda
((top)
@@ -3795,11 +3831,11 @@
(top)
(top)
(top))
-
#("i1795"
-
"i1796"
-
"i1797"
-
"i1798"
-
"i1799"))
+
#("i1860"
+
"i1861"
+
"i1862"
+
"i1863"
+
"i1864"))
#(ribcage
()
()
@@ -3821,12 +3857,12 @@
(top)
(top)
(top))
-
#("i1742"
-
"i1743"
-
"i1744"
-
"i1745"
-
"i1746"
-
"i1747"))
+
#("i1807"
+
"i1808"
+
"i1809"
+
"i1810"
+
"i1811"
+
"i1812"))
#(ribcage
()
()
@@ -3834,7 +3870,7 @@
#(ribcage
#(first)
#((top))
-
#("i1734"))
+
#("i1799"))
#(ribcage
()
()
@@ -3862,13 +3898,13 @@
(top)
(top)
(top))
-
#("i1711"
-
"i1712"
-
"i1713"
-
"i1714"
-
"i1715"
-
"i1716"
-
"i1717"))
+
#("i1776"
+
"i1777"
+
"i1778"
+
"i1779"
+
"i1780"
+
"i1781"
+
"i1782"))
#(ribcage
(lambda-var-list
gen-var
@@ -3986,6 +4022,9 @@
fx=
fx-
fx+
+
set-lambda-meta!
+
lambda-meta
+
lambda?
make-dynlet
make-letrec
make-let
@@ -4137,31 +4176,72 @@
(top)
(top)
(top)
+
(top)
+
(top)
+
(top)
(top))
-
("i421"
-
"i419"
-
"i417"
+
("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"
+
"i422"
+
"i420"
+
"i418"
+
"i416"
"i415"
-
"i413"
+
"i414"
+
"i412"
"i411"
+
"i410"
"i409"
-
"i407"
-
"i405"
-
"i403"
-
"i401"
-
"i399"
-
"i397"
-
"i395"
-
"i393"
-
"i391"
+
"i408"
+
"i406"
+
"i404"
+
"i402"
+
"i400"
+
"i398"
+
"i396"
+
"i394"
+
"i392"
"i389"
"i387"
+
"i386"
"i385"
+
"i384"
"i383"
-
"i381"
-
"i379"
-
"i377"
-
"i375"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
"i373"
"i371"
"i369"
@@ -4170,16 +4250,15 @@
"i363"
"i361"
"i359"
-
"i357"
-
"i355"
+
"i358"
+
"i356"
+
"i354"
"i353"
-
"i351"
+
"i352"
"i350"
"i349"
"i347"
-
"i346"
"i345"
-
"i344"
"i343"
"i341"
"i339"
@@ -4189,29 +4268,25 @@
"i331"
"i329"
"i327"
-
"i324"
-
"i322"
+
"i325"
+
"i323"
"i321"
-
"i320"
"i319"
-
"i318"
"i317"
"i315"
"i313"
"i311"
"i309"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
+
"i307"
+
"i305"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
"i293"
"i291"
"i289"
-
"i288"
"i287"
"i285"
"i284"
@@ -4224,93 +4299,66 @@
"i270"
"i268"
"i266"
-
"i264"
-
"i262"
-
"i260"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i240"
-
"i238"
-
"i236"
-
"i234"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i222"
-
"i220"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"))
+
"i263"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i241"
+
"i239"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
((top)
(top)
+
(top)
(top))
-
("i22"
+
("i23"
+
"i22"
"i21"
"i19")))
(hygiene
guile))
-
(#{wrap\ 376}#
-
(cons #{args\ 1802}#
-
(cons #{e1\ 1803}#
-
#{e2\ 1804}#))
-
#{w\ 1706}#
-
#{mod\ 1709}#))
- #{s\
1707}#)
+
(#{wrap\ 441}#
+
(cons #{args\ 1867}#
+
(cons #{e1\ 1868}#
+
#{e2\ 1869}#))
+
#{w\ 1771}#
+
#{mod\ 1774}#))
+ #{s\
1772}#)
'(())
- #{s\ 1707}#
- #{mod\
1709}#))
- #{tmp\ 1782}#)
- ((lambda (#{tmp\
1807}#)
- (if (if #{tmp\
1807}#
- (apply
(lambda (#{_\ 1810}#
-
#{name\ 1811}#)
-
(#{id?\ 307}#
-
#{name\ 1811}#))
- #{tmp\
1807}#)
+ #{s\ 1772}#
+ #{mod\
1774}#))
+ #{tmp\ 1847}#)
+ ((lambda (#{tmp\
1872}#)
+ (if (if #{tmp\
1872}#
+ (apply
(lambda (#{_\ 1875}#
+
#{name\ 1876}#)
+
(#{id?\ 372}#
+
#{name\ 1876}#))
+ #{tmp\
1872}#)
#f)
- (apply (lambda
(#{_\ 1814}#
-
#{name\ 1815}#)
+ (apply (lambda
(#{_\ 1879}#
+
#{name\ 1880}#)
(values
'define-form
-
(#{wrap\ 376}#
-
#{name\ 1815}#
- #{w\
1706}#
-
#{mod\ 1709}#)
+
(#{wrap\ 441}#
+
#{name\ 1880}#
+ #{w\
1771}#
+
#{mod\ 1774}#)
'(#(syntax-object
if
((top)
@@ -4319,8 +4367,8 @@
name)
#((top)
(top))
-
#("i1812"
-
"i1813"))
+
#("i1877"
+
"i1878"))
#(ribcage
()
()
@@ -4342,12 +4390,12 @@
(top)
(top)
(top))
-
#("i1742"
-
"i1743"
-
"i1744"
-
"i1745"
-
"i1746"
-
"i1747"))
+
#("i1807"
+
"i1808"
+
"i1809"
+
"i1810"
+
"i1811"
+
"i1812"))
#(ribcage
()
()
@@ -4355,7 +4403,7 @@
#(ribcage
#(first)
#((top))
-
#("i1734"))
+
#("i1799"))
#(ribcage
()
()
@@ -4383,13 +4431,13 @@
(top)
(top)
(top))
-
#("i1711"
-
"i1712"
-
"i1713"
-
"i1714"
-
"i1715"
-
"i1716"
-
"i1717"))
+
#("i1776"
+
"i1777"
+
"i1778"
+
"i1779"
+
"i1780"
+
"i1781"
+
"i1782"))
#(ribcage
(lambda-var-list
gen-var
@@ -4507,6 +4555,9 @@
fx=
fx-
fx+
+
set-lambda-meta!
+
lambda-meta
+
lambda?
make-dynlet
make-letrec
make-let
@@ -4658,31 +4709,72 @@
(top)
(top)
(top)
+
(top)
+
(top)
+
(top)
(top))
-
("i421"
-
"i419"
-
"i417"
+
("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"
+
"i422"
+
"i420"
+
"i418"
+
"i416"
"i415"
-
"i413"
+
"i414"
+
"i412"
"i411"
+
"i410"
"i409"
-
"i407"
-
"i405"
-
"i403"
-
"i401"
-
"i399"
-
"i397"
-
"i395"
-
"i393"
-
"i391"
+
"i408"
+
"i406"
+
"i404"
+
"i402"
+
"i400"
+
"i398"
+
"i396"
+
"i394"
+
"i392"
"i389"
"i387"
+
"i386"
"i385"
+
"i384"
"i383"
-
"i381"
-
"i379"
-
"i377"
-
"i375"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
"i373"
"i371"
"i369"
@@ -4691,16 +4783,15 @@
"i363"
"i361"
"i359"
-
"i357"
-
"i355"
+
"i358"
+
"i356"
+
"i354"
"i353"
-
"i351"
+
"i352"
"i350"
"i349"
"i347"
-
"i346"
"i345"
-
"i344"
"i343"
"i341"
"i339"
@@ -4710,29 +4801,25 @@
"i331"
"i329"
"i327"
-
"i324"
-
"i322"
+
"i325"
+
"i323"
"i321"
-
"i320"
"i319"
-
"i318"
"i317"
"i315"
"i313"
"i311"
"i309"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
+
"i307"
+
"i305"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
"i293"
"i291"
"i289"
-
"i288"
"i287"
"i285"
"i284"
@@ -4745,62 +4832,35 @@
"i270"
"i268"
"i266"
-
"i264"
-
"i262"
-
"i260"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i240"
-
"i238"
-
"i236"
-
"i234"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i222"
-
"i220"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"))
+
"i263"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i241"
+
"i239"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
((top)
(top)
+
(top)
(top))
-
("i22"
+
("i23"
+
"i22"
"i21"
"i19")))
(hygiene
@@ -4813,8 +4873,8 @@
name)
#((top)
(top))
-
#("i1812"
-
"i1813"))
+
#("i1877"
+
"i1878"))
#(ribcage
()
()
@@ -4836,12 +4896,12 @@
(top)
(top)
(top))
-
#("i1742"
-
"i1743"
-
"i1744"
-
"i1745"
-
"i1746"
-
"i1747"))
+
#("i1807"
+
"i1808"
+
"i1809"
+
"i1810"
+
"i1811"
+
"i1812"))
#(ribcage
()
()
@@ -4849,7 +4909,7 @@
#(ribcage
#(first)
#((top))
-
#("i1734"))
+
#("i1799"))
#(ribcage
()
()
@@ -4877,13 +4937,13 @@
(top)
(top)
(top))
-
#("i1711"
-
"i1712"
-
"i1713"
-
"i1714"
-
"i1715"
-
"i1716"
-
"i1717"))
+
#("i1776"
+
"i1777"
+
"i1778"
+
"i1779"
+
"i1780"
+
"i1781"
+
"i1782"))
#(ribcage
(lambda-var-list
gen-var
@@ -5001,6 +5061,9 @@
fx=
fx-
fx+
+
set-lambda-meta!
+
lambda-meta
+
lambda?
make-dynlet
make-letrec
make-let
@@ -5152,31 +5215,72 @@
(top)
(top)
(top)
+
(top)
+
(top)
+
(top)
(top))
-
("i421"
-
"i419"
-
"i417"
+
("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"
+
"i422"
+
"i420"
+
"i418"
+
"i416"
"i415"
-
"i413"
+
"i414"
+
"i412"
"i411"
+
"i410"
"i409"
-
"i407"
-
"i405"
-
"i403"
-
"i401"
-
"i399"
-
"i397"
-
"i395"
-
"i393"
-
"i391"
+
"i408"
+
"i406"
+
"i404"
+
"i402"
+
"i400"
+
"i398"
+
"i396"
+
"i394"
+
"i392"
"i389"
"i387"
+
"i386"
"i385"
+
"i384"
"i383"
-
"i381"
-
"i379"
-
"i377"
-
"i375"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
"i373"
"i371"
"i369"
@@ -5185,16 +5289,15 @@
"i363"
"i361"
"i359"
-
"i357"
-
"i355"
+
"i358"
+
"i356"
+
"i354"
"i353"
-
"i351"
+
"i352"
"i350"
"i349"
"i347"
-
"i346"
"i345"
-
"i344"
"i343"
"i341"
"i339"
@@ -5204,29 +5307,25 @@
"i331"
"i329"
"i327"
-
"i324"
-
"i322"
+
"i325"
+
"i323"
"i321"
-
"i320"
"i319"
-
"i318"
"i317"
"i315"
"i313"
"i311"
"i309"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
+
"i307"
+
"i305"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
"i293"
"i291"
"i289"
-
"i288"
"i287"
"i285"
"i284"
@@ -5239,62 +5338,35 @@
"i270"
"i268"
"i266"
-
"i264"
-
"i262"
-
"i260"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i240"
-
"i238"
-
"i236"
-
"i234"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i222"
-
"i220"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"))
+
"i263"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i241"
+
"i239"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
((top)
(top)
+
(top)
(top))
-
("i22"
+
("i23"
+
"i22"
"i21"
"i19")))
(hygiene
@@ -5307,8 +5379,8 @@
name)
#((top)
(top))
-
#("i1812"
-
"i1813"))
+
#("i1877"
+
"i1878"))
#(ribcage
()
()
@@ -5330,12 +5402,12 @@
(top)
(top)
(top))
-
#("i1742"
-
"i1743"
-
"i1744"
-
"i1745"
-
"i1746"
-
"i1747"))
+
#("i1807"
+
"i1808"
+
"i1809"
+
"i1810"
+
"i1811"
+
"i1812"))
#(ribcage
()
()
@@ -5343,7 +5415,7 @@
#(ribcage
#(first)
#((top))
-
#("i1734"))
+
#("i1799"))
#(ribcage
()
()
@@ -5371,13 +5443,13 @@
(top)
(top)
(top))
-
#("i1711"
-
"i1712"
-
"i1713"
-
"i1714"
-
"i1715"
-
"i1716"
-
"i1717"))
+
#("i1776"
+
"i1777"
+
"i1778"
+
"i1779"
+
"i1780"
+
"i1781"
+
"i1782"))
#(ribcage
(lambda-var-list
gen-var
@@ -5495,6 +5567,9 @@
fx=
fx-
fx+
+
set-lambda-meta!
+
lambda-meta
+
lambda?
make-dynlet
make-letrec
make-let
@@ -5646,31 +5721,72 @@
(top)
(top)
(top)
+
(top)
+
(top)
+
(top)
(top))
-
("i421"
-
"i419"
-
"i417"
+
("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"
+
"i422"
+
"i420"
+
"i418"
+
"i416"
"i415"
-
"i413"
+
"i414"
+
"i412"
"i411"
+
"i410"
"i409"
-
"i407"
-
"i405"
-
"i403"
-
"i401"
-
"i399"
-
"i397"
-
"i395"
-
"i393"
-
"i391"
+
"i408"
+
"i406"
+
"i404"
+
"i402"
+
"i400"
+
"i398"
+
"i396"
+
"i394"
+
"i392"
"i389"
"i387"
+
"i386"
"i385"
+
"i384"
"i383"
-
"i381"
-
"i379"
-
"i377"
-
"i375"
+
"i382"
+
"i380"
+
"i378"
+
"i376"
+
"i374"
"i373"
"i371"
"i369"
@@ -5679,16 +5795,15 @@
"i363"
"i361"
"i359"
-
"i357"
-
"i355"
+
"i358"
+
"i356"
+
"i354"
"i353"
-
"i351"
+
"i352"
"i350"
"i349"
"i347"
-
"i346"
"i345"
-
"i344"
"i343"
"i341"
"i339"
@@ -5698,29 +5813,25 @@
"i331"
"i329"
"i327"
-
"i324"
-
"i322"
+
"i325"
+
"i323"
"i321"
-
"i320"
"i319"
-
"i318"
"i317"
"i315"
"i313"
"i311"
"i309"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
+
"i307"
+
"i305"
+
"i303"
+
"i301"
+
"i299"
+
"i297"
+
"i295"
"i293"
"i291"
"i289"
-
"i288"
"i287"
"i285"
"i284"
@@ -5733,165 +5844,138 @@
"i270"
"i268"
"i266"
-
"i264"
-
"i262"
-
"i260"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i240"
-
"i238"
-
"i236"
-
"i234"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i222"
-
"i220"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"))
+
"i263"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i245"
+
"i243"
+
"i241"
+
"i239"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
((top)
(top)
+
(top)
(top))
-
("i22"
+
("i23"
+
"i22"
"i21"
"i19")))
(hygiene
guile)))
'(())
- #{s\
1707}#
- #{mod\
1709}#))
- #{tmp\
1807}#)
+ #{s\
1772}#
+ #{mod\
1774}#))
+ #{tmp\
1872}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 1768}#)))
+ #{tmp\ 1833}#)))
($sc-dispatch
- #{tmp\ 1768}#
+ #{tmp\ 1833}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1768}#
+ #{tmp\ 1833}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1768}#
+ #{tmp\ 1833}#
'(any any any))))
- #{e\ 1704}#)
- (if (memv #{ftype\ 1736}#
+ #{e\ 1769}#)
+ (if (memv #{ftype\ 1801}#
'(define-syntax))
- ((lambda (#{tmp\ 1818}#)
- ((lambda (#{tmp\ 1819}#)
- (if (if #{tmp\ 1819}#
- (apply (lambda (#{_\
1823}#
-
#{name\ 1824}#
-
#{val\ 1825}#)
- (#{id?\ 307}#
- #{name\
1824}#))
- #{tmp\ 1819}#)
+ ((lambda (#{tmp\ 1883}#)
+ ((lambda (#{tmp\ 1884}#)
+ (if (if #{tmp\ 1884}#
+ (apply (lambda (#{_\
1888}#
+
#{name\ 1889}#
+
#{val\ 1890}#)
+ (#{id?\ 372}#
+ #{name\
1889}#))
+ #{tmp\ 1884}#)
#f)
- (apply (lambda (#{_\
1829}#
- #{name\
1830}#
- #{val\
1831}#)
+ (apply (lambda (#{_\
1894}#
+ #{name\
1895}#
+ #{val\
1896}#)
(values
'define-syntax-form
- #{name\ 1830}#
- #{val\ 1831}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#))
- #{tmp\ 1819}#)
+ #{name\ 1895}#
+ #{val\ 1896}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#))
+ #{tmp\ 1884}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1818}#)))
+ #{tmp\ 1883}#)))
($sc-dispatch
- #{tmp\ 1818}#
+ #{tmp\ 1883}#
'(any any any))))
- #{e\ 1704}#)
+ #{e\ 1769}#)
(values
'call
#f
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#))))))))))))))
- (if (#{syntax-object?\ 271}# #{e\ 1704}#)
- (#{syntax-type\ 388}#
- (#{syntax-object-expression\ 273}# #{e\ 1704}#)
- #{r\ 1705}#
- (#{join-wraps\ 358}#
- #{w\ 1706}#
- (#{syntax-object-wrap\ 275}# #{e\ 1704}#))
- #{s\ 1707}#
- #{rib\ 1708}#
- (let ((#{t\ 1837}#
- (#{syntax-object-module\ 277}# #{e\ 1704}#)))
- (if #{t\ 1837}# #{t\ 1837}# #{mod\ 1709}#))
- #{for-car?\ 1710}#)
- (if (self-evaluating? #{e\ 1704}#)
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#))))))))))))))
+ (if (#{syntax-object?\ 336}# #{e\ 1769}#)
+ (#{syntax-type\ 453}#
+ (#{syntax-object-expression\ 338}# #{e\ 1769}#)
+ #{r\ 1770}#
+ (#{join-wraps\ 423}#
+ #{w\ 1771}#
+ (#{syntax-object-wrap\ 340}# #{e\ 1769}#))
+ #{s\ 1772}#
+ #{rib\ 1773}#
+ (let ((#{t\ 1902}#
+ (#{syntax-object-module\ 342}# #{e\ 1769}#)))
+ (if #{t\ 1902}# #{t\ 1902}# #{mod\ 1774}#))
+ #{for-car?\ 1775}#)
+ (if (self-evaluating? #{e\ 1769}#)
(values
'constant
#f
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)
(values
'other
#f
- #{e\ 1704}#
- #{w\ 1706}#
- #{s\ 1707}#
- #{mod\ 1709}#)))))))
- (#{chi-when-list\ 386}#
- (lambda (#{e\ 1842}# #{when-list\ 1843}# #{w\ 1844}#)
- (letrec ((#{f\ 1851}#
- (lambda (#{when-list\ 1852}# #{situations\ 1853}#)
- (if (null? #{when-list\ 1852}#)
- #{situations\ 1853}#
- (#{f\ 1851}#
- (cdr #{when-list\ 1852}#)
- (cons (let ((#{x\ 1855}#
- (car #{when-list\ 1852}#)))
- (if (#{free-id=?\ 366}#
- #{x\ 1855}#
+ #{e\ 1769}#
+ #{w\ 1771}#
+ #{s\ 1772}#
+ #{mod\ 1774}#)))))))
+ (#{chi-when-list\ 451}#
+ (lambda (#{e\ 1907}# #{when-list\ 1908}# #{w\ 1909}#)
+ (letrec ((#{f\ 1916}#
+ (lambda (#{when-list\ 1917}# #{situations\ 1918}#)
+ (if (null? #{when-list\ 1917}#)
+ #{situations\ 1918}#
+ (#{f\ 1916}#
+ (cdr #{when-list\ 1917}#)
+ (cons (let ((#{x\ 1920}#
+ (car #{when-list\ 1917}#)))
+ (if (#{free-id=?\ 431}#
+ #{x\ 1920}#
'#(syntax-object
compile
((top)
@@ -5901,17 +5985,17 @@
#(ribcage
#(x)
#((top))
- #("i1854"))
+ #("i1919"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1848" "i1849" "i1850"))
+ #("i1913" "i1914" "i1915"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1845" "i1846" "i1847"))
+ #("i1910" "i1911" "i1912"))
#(ribcage
(lambda-var-list
gen-var
@@ -6029,6 +6113,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -6180,31 +6267,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -6213,16 +6341,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -6232,29 +6359,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -6267,64 +6390,35 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22" "i21" "i19")))
+ ((top) (top) (top) (top))
+ ("i23" "i22" "i21" "i19")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 366}#
- #{x\ 1855}#
+ (if (#{free-id=?\ 431}#
+ #{x\ 1920}#
'#(syntax-object
load
((top)
@@ -6334,21 +6428,21 @@
#(ribcage
#(x)
#((top))
- #("i1854"))
+ #("i1919"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1848"
- "i1849"
- "i1850"))
+ #("i1913"
+ "i1914"
+ "i1915"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1845"
- "i1846"
- "i1847"))
+ #("i1910"
+ "i1911"
+ "i1912"))
#(ribcage
(lambda-var-list
gen-var
@@ -6466,6 +6560,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -6617,31 +6714,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -6650,16 +6788,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -6669,29 +6806,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -6704,64 +6837,38 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22" "i21" "i19")))
+ ((top) (top) (top) (top))
+ ("i23"
+ "i22"
+ "i21"
+ "i19")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 366}#
- #{x\ 1855}#
+ (if (#{free-id=?\ 431}#
+ #{x\ 1920}#
'#(syntax-object
eval
((top)
@@ -6771,23 +6878,23 @@
#(ribcage
#(x)
#((top))
- #("i1854"))
+ #("i1919"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i1848"
- "i1849"
- "i1850"))
+ #("i1913"
+ "i1914"
+ "i1915"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1845"
- "i1846"
- "i1847"))
+ #("i1910"
+ "i1911"
+ "i1912"))
#(ribcage
(lambda-var-list
gen-var
@@ -6905,6 +7012,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -7056,31 +7166,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -7089,16 +7240,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -7108,29 +7258,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -7143,64 +7289,41 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22" "i21" "i19")))
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i23"
+ "i22"
+ "i21"
+ "i19")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 366}#
- #{x\ 1855}#
+ (if (#{free-id=?\ 431}#
+ #{x\ 1920}#
'#(syntax-object
expand
((top)
@@ -7210,23 +7333,23 @@
#(ribcage
#(x)
#((top))
- #("i1854"))
+ #("i1919"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i1848"
- "i1849"
- "i1850"))
+ #("i1913"
+ "i1914"
+ "i1915"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1845"
- "i1846"
- "i1847"))
+ #("i1910"
+ "i1911"
+ "i1912"))
#(ribcage
(lambda-var-list
gen-var
@@ -7344,6 +7467,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -7495,31 +7621,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -7528,16 +7695,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -7547,29 +7713,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -7582,2316 +7744,2325 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22" "i21" "i19")))
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i23"
+ "i22"
+ "i21"
+ "i19")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1842}#
- (#{wrap\ 376}#
- #{x\ 1855}#
- #{w\ 1844}#
+ #{e\ 1907}#
+ (#{wrap\ 441}#
+ #{x\ 1920}#
+ #{w\ 1909}#
#f)))))))
- #{situations\ 1853}#))))))
- (#{f\ 1851}# #{when-list\ 1843}# (quote ())))))
- (#{chi-install-global\ 384}#
- (lambda (#{name\ 1865}# #{e\ 1866}#)
- (#{build-global-definition\ 247}#
+ #{situations\ 1918}#))))))
+ (#{f\ 1916}# #{when-list\ 1908}# (quote ())))))
+ (#{chi-install-global\ 449}#
+ (lambda (#{name\ 1930}# #{e\ 1931}#)
+ (#{build-global-definition\ 312}#
#f
- #{name\ 1865}#
- (#{build-application\ 229}#
+ #{name\ 1930}#
+ (#{build-application\ 294}#
#f
- (#{build-primref\ 255}#
+ (#{build-primref\ 320}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 257}# #f #{name\ 1865}#)
- (#{build-data\ 257}# #f (quote macro))
- (#{build-application\ 229}#
+ (list (#{build-data\ 322}# #f #{name\ 1930}#)
+ (#{build-data\ 322}# #f (quote macro))
+ (#{build-application\ 294}#
#f
- (#{build-primref\ 255}# #f (quote cons))
- (list #{e\ 1866}#
- (#{build-application\ 229}#
+ (#{build-primref\ 320}# #f (quote cons))
+ (list #{e\ 1931}#
+ (#{build-application\ 294}#
#f
- (#{build-primref\ 255}#
+ (#{build-primref\ 320}#
#f
'module-name)
- (list (#{build-application\ 229}#
+ (list (#{build-application\ 294}#
#f
- (#{build-primref\ 255}#
+ (#{build-primref\ 320}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 382}#
- (lambda (#{body\ 1880}#
- #{r\ 1881}#
- #{w\ 1882}#
- #{s\ 1883}#
- #{m\ 1884}#
- #{esew\ 1885}#
- #{mod\ 1886}#)
- (#{build-sequence\ 259}#
- #{s\ 1883}#
- (letrec ((#{dobody\ 1902}#
- (lambda (#{body\ 1903}#
- #{r\ 1904}#
- #{w\ 1905}#
- #{m\ 1906}#
- #{esew\ 1907}#
- #{mod\ 1908}#
- #{out\ 1909}#)
- (if (null? #{body\ 1903}#)
- (reverse #{out\ 1909}#)
- (#{dobody\ 1902}#
- (cdr #{body\ 1903}#)
- #{r\ 1904}#
- #{w\ 1905}#
- #{m\ 1906}#
- #{esew\ 1907}#
- #{mod\ 1908}#
- (cons (#{chi-top\ 390}#
- (car #{body\ 1903}#)
- #{r\ 1904}#
- #{w\ 1905}#
- #{m\ 1906}#
- #{esew\ 1907}#
- #{mod\ 1908}#)
- #{out\ 1909}#))))))
- (#{dobody\ 1902}#
- #{body\ 1880}#
- #{r\ 1881}#
- #{w\ 1882}#
- #{m\ 1884}#
- #{esew\ 1885}#
- #{mod\ 1886}#
+ (#{chi-top-sequence\ 447}#
+ (lambda (#{body\ 1945}#
+ #{r\ 1946}#
+ #{w\ 1947}#
+ #{s\ 1948}#
+ #{m\ 1949}#
+ #{esew\ 1950}#
+ #{mod\ 1951}#)
+ (#{build-sequence\ 324}#
+ #{s\ 1948}#
+ (letrec ((#{dobody\ 1967}#
+ (lambda (#{body\ 1968}#
+ #{r\ 1969}#
+ #{w\ 1970}#
+ #{m\ 1971}#
+ #{esew\ 1972}#
+ #{mod\ 1973}#
+ #{out\ 1974}#)
+ (if (null? #{body\ 1968}#)
+ (reverse #{out\ 1974}#)
+ (#{dobody\ 1967}#
+ (cdr #{body\ 1968}#)
+ #{r\ 1969}#
+ #{w\ 1970}#
+ #{m\ 1971}#
+ #{esew\ 1972}#
+ #{mod\ 1973}#
+ (cons (#{chi-top\ 455}#
+ (car #{body\ 1968}#)
+ #{r\ 1969}#
+ #{w\ 1970}#
+ #{m\ 1971}#
+ #{esew\ 1972}#
+ #{mod\ 1973}#)
+ #{out\ 1974}#))))))
+ (#{dobody\ 1967}#
+ #{body\ 1945}#
+ #{r\ 1946}#
+ #{w\ 1947}#
+ #{m\ 1949}#
+ #{esew\ 1950}#
+ #{mod\ 1951}#
'())))))
- (#{chi-sequence\ 380}#
- (lambda (#{body\ 1910}#
- #{r\ 1911}#
- #{w\ 1912}#
- #{s\ 1913}#
- #{mod\ 1914}#)
- (#{build-sequence\ 259}#
- #{s\ 1913}#
- (letrec ((#{dobody\ 1925}#
- (lambda (#{body\ 1926}#
- #{r\ 1927}#
- #{w\ 1928}#
- #{mod\ 1929}#)
- (if (null? #{body\ 1926}#)
+ (#{chi-sequence\ 445}#
+ (lambda (#{body\ 1975}#
+ #{r\ 1976}#
+ #{w\ 1977}#
+ #{s\ 1978}#
+ #{mod\ 1979}#)
+ (#{build-sequence\ 324}#
+ #{s\ 1978}#
+ (letrec ((#{dobody\ 1990}#
+ (lambda (#{body\ 1991}#
+ #{r\ 1992}#
+ #{w\ 1993}#
+ #{mod\ 1994}#)
+ (if (null? #{body\ 1991}#)
'()
- (let ((#{first\ 1931}#
- (#{chi\ 392}#
- (car #{body\ 1926}#)
- #{r\ 1927}#
- #{w\ 1928}#
- #{mod\ 1929}#)))
- (cons #{first\ 1931}#
- (#{dobody\ 1925}#
- (cdr #{body\ 1926}#)
- #{r\ 1927}#
- #{w\ 1928}#
- #{mod\ 1929}#)))))))
- (#{dobody\ 1925}#
- #{body\ 1910}#
- #{r\ 1911}#
- #{w\ 1912}#
- #{mod\ 1914}#)))))
- (#{source-wrap\ 378}#
- (lambda (#{x\ 1932}#
- #{w\ 1933}#
- #{s\ 1934}#
- #{defmod\ 1935}#)
- (#{wrap\ 376}#
- (#{decorate-source\ 225}#
- #{x\ 1932}#
- #{s\ 1934}#)
- #{w\ 1933}#
- #{defmod\ 1935}#)))
- (#{wrap\ 376}#
- (lambda (#{x\ 1940}# #{w\ 1941}# #{defmod\ 1942}#)
- (if (if (null? (#{wrap-marks\ 314}# #{w\ 1941}#))
- (null? (#{wrap-subst\ 316}# #{w\ 1941}#))
+ (let ((#{first\ 1996}#
+ (#{chi\ 457}#
+ (car #{body\ 1991}#)
+ #{r\ 1992}#
+ #{w\ 1993}#
+ #{mod\ 1994}#)))
+ (cons #{first\ 1996}#
+ (#{dobody\ 1990}#
+ (cdr #{body\ 1991}#)
+ #{r\ 1992}#
+ #{w\ 1993}#
+ #{mod\ 1994}#)))))))
+ (#{dobody\ 1990}#
+ #{body\ 1975}#
+ #{r\ 1976}#
+ #{w\ 1977}#
+ #{mod\ 1979}#)))))
+ (#{source-wrap\ 443}#
+ (lambda (#{x\ 1997}#
+ #{w\ 1998}#
+ #{s\ 1999}#
+ #{defmod\ 2000}#)
+ (#{wrap\ 441}#
+ (#{decorate-source\ 290}#
+ #{x\ 1997}#
+ #{s\ 1999}#)
+ #{w\ 1998}#
+ #{defmod\ 2000}#)))
+ (#{wrap\ 441}#
+ (lambda (#{x\ 2005}# #{w\ 2006}# #{defmod\ 2007}#)
+ (if (if (null? (#{wrap-marks\ 379}# #{w\ 2006}#))
+ (null? (#{wrap-subst\ 381}# #{w\ 2006}#))
#f)
- #{x\ 1940}#
- (if (#{syntax-object?\ 271}# #{x\ 1940}#)
- (#{make-syntax-object\ 269}#
- (#{syntax-object-expression\ 273}# #{x\ 1940}#)
- (#{join-wraps\ 358}#
- #{w\ 1941}#
- (#{syntax-object-wrap\ 275}# #{x\ 1940}#))
- (#{syntax-object-module\ 277}# #{x\ 1940}#))
- (if (null? #{x\ 1940}#)
- #{x\ 1940}#
- (#{make-syntax-object\ 269}#
- #{x\ 1940}#
- #{w\ 1941}#
- #{defmod\ 1942}#))))))
- (#{bound-id-member?\ 374}#
- (lambda (#{x\ 1955}# #{list\ 1956}#)
- (if (not (null? #{list\ 1956}#))
- (let ((#{t\ 1963}#
- (#{bound-id=?\ 368}#
- #{x\ 1955}#
- (car #{list\ 1956}#))))
- (if #{t\ 1963}#
- #{t\ 1963}#
- (#{bound-id-member?\ 374}#
- #{x\ 1955}#
- (cdr #{list\ 1956}#))))
+ #{x\ 2005}#
+ (if (#{syntax-object?\ 336}# #{x\ 2005}#)
+ (#{make-syntax-object\ 334}#
+ (#{syntax-object-expression\ 338}# #{x\ 2005}#)
+ (#{join-wraps\ 423}#
+ #{w\ 2006}#
+ (#{syntax-object-wrap\ 340}# #{x\ 2005}#))
+ (#{syntax-object-module\ 342}# #{x\ 2005}#))
+ (if (null? #{x\ 2005}#)
+ #{x\ 2005}#
+ (#{make-syntax-object\ 334}#
+ #{x\ 2005}#
+ #{w\ 2006}#
+ #{defmod\ 2007}#))))))
+ (#{bound-id-member?\ 439}#
+ (lambda (#{x\ 2020}# #{list\ 2021}#)
+ (if (not (null? #{list\ 2021}#))
+ (let ((#{t\ 2028}#
+ (#{bound-id=?\ 433}#
+ #{x\ 2020}#
+ (car #{list\ 2021}#))))
+ (if #{t\ 2028}#
+ #{t\ 2028}#
+ (#{bound-id-member?\ 439}#
+ #{x\ 2020}#
+ (cdr #{list\ 2021}#))))
#f)))
- (#{distinct-bound-ids?\ 372}#
- (lambda (#{ids\ 1965}#)
- (letrec ((#{distinct?\ 1969}#
- (lambda (#{ids\ 1970}#)
- (let ((#{t\ 1973}# (null? #{ids\ 1970}#)))
- (if #{t\ 1973}#
- #{t\ 1973}#
- (if (not (#{bound-id-member?\ 374}#
- (car #{ids\ 1970}#)
- (cdr #{ids\ 1970}#)))
- (#{distinct?\ 1969}# (cdr #{ids\ 1970}#))
+ (#{distinct-bound-ids?\ 437}#
+ (lambda (#{ids\ 2030}#)
+ (letrec ((#{distinct?\ 2034}#
+ (lambda (#{ids\ 2035}#)
+ (let ((#{t\ 2038}# (null? #{ids\ 2035}#)))
+ (if #{t\ 2038}#
+ #{t\ 2038}#
+ (if (not (#{bound-id-member?\ 439}#
+ (car #{ids\ 2035}#)
+ (cdr #{ids\ 2035}#)))
+ (#{distinct?\ 2034}# (cdr #{ids\ 2035}#))
#f))))))
- (#{distinct?\ 1969}# #{ids\ 1965}#))))
- (#{valid-bound-ids?\ 370}#
- (lambda (#{ids\ 1977}#)
- (if (letrec ((#{all-ids?\ 1982}#
- (lambda (#{ids\ 1983}#)
- (let ((#{t\ 1986}# (null? #{ids\ 1983}#)))
- (if #{t\ 1986}#
- #{t\ 1986}#
- (if (#{id?\ 307}# (car #{ids\ 1983}#))
- (#{all-ids?\ 1982}# (cdr #{ids\ 1983}#))
+ (#{distinct?\ 2034}# #{ids\ 2030}#))))
+ (#{valid-bound-ids?\ 435}#
+ (lambda (#{ids\ 2042}#)
+ (if (letrec ((#{all-ids?\ 2047}#
+ (lambda (#{ids\ 2048}#)
+ (let ((#{t\ 2051}# (null? #{ids\ 2048}#)))
+ (if #{t\ 2051}#
+ #{t\ 2051}#
+ (if (#{id?\ 372}# (car #{ids\ 2048}#))
+ (#{all-ids?\ 2047}# (cdr #{ids\ 2048}#))
#f))))))
- (#{all-ids?\ 1982}# #{ids\ 1977}#))
- (#{distinct-bound-ids?\ 372}# #{ids\ 1977}#)
+ (#{all-ids?\ 2047}# #{ids\ 2042}#))
+ (#{distinct-bound-ids?\ 437}# #{ids\ 2042}#)
#f)))
- (#{bound-id=?\ 368}#
- (lambda (#{i\ 1991}# #{j\ 1992}#)
- (if (if (#{syntax-object?\ 271}# #{i\ 1991}#)
- (#{syntax-object?\ 271}# #{j\ 1992}#)
+ (#{bound-id=?\ 433}#
+ (lambda (#{i\ 2056}# #{j\ 2057}#)
+ (if (if (#{syntax-object?\ 336}# #{i\ 2056}#)
+ (#{syntax-object?\ 336}# #{j\ 2057}#)
#f)
- (if (eq? (#{syntax-object-expression\ 273}# #{i\ 1991}#)
- (#{syntax-object-expression\ 273}# #{j\ 1992}#))
- (#{same-marks?\ 362}#
- (#{wrap-marks\ 314}#
- (#{syntax-object-wrap\ 275}# #{i\ 1991}#))
- (#{wrap-marks\ 314}#
- (#{syntax-object-wrap\ 275}# #{j\ 1992}#)))
+ (if (eq? (#{syntax-object-expression\ 338}# #{i\ 2056}#)
+ (#{syntax-object-expression\ 338}# #{j\ 2057}#))
+ (#{same-marks?\ 427}#
+ (#{wrap-marks\ 379}#
+ (#{syntax-object-wrap\ 340}# #{i\ 2056}#))
+ (#{wrap-marks\ 379}#
+ (#{syntax-object-wrap\ 340}# #{j\ 2057}#)))
#f)
- (eq? #{i\ 1991}# #{j\ 1992}#))))
- (#{free-id=?\ 366}#
- (lambda (#{i\ 1999}# #{j\ 2000}#)
- (if (eq? (let ((#{x\ 2006}# #{i\ 1999}#))
- (if (#{syntax-object?\ 271}# #{x\ 2006}#)
- (#{syntax-object-expression\ 273}# #{x\ 2006}#)
- #{x\ 2006}#))
- (let ((#{x\ 2009}# #{j\ 2000}#))
- (if (#{syntax-object?\ 271}# #{x\ 2009}#)
- (#{syntax-object-expression\ 273}# #{x\ 2009}#)
- #{x\ 2009}#)))
- (eq? (#{id-var-name\ 364}# #{i\ 1999}# (quote (())))
- (#{id-var-name\ 364}# #{j\ 2000}# (quote (()))))
+ (eq? #{i\ 2056}# #{j\ 2057}#))))
+ (#{free-id=?\ 431}#
+ (lambda (#{i\ 2064}# #{j\ 2065}#)
+ (if (eq? (let ((#{x\ 2071}# #{i\ 2064}#))
+ (if (#{syntax-object?\ 336}# #{x\ 2071}#)
+ (#{syntax-object-expression\ 338}# #{x\ 2071}#)
+ #{x\ 2071}#))
+ (let ((#{x\ 2074}# #{j\ 2065}#))
+ (if (#{syntax-object?\ 336}# #{x\ 2074}#)
+ (#{syntax-object-expression\ 338}# #{x\ 2074}#)
+ #{x\ 2074}#)))
+ (eq? (#{id-var-name\ 429}# #{i\ 2064}# (quote (())))
+ (#{id-var-name\ 429}# #{j\ 2065}# (quote (()))))
#f)))
- (#{id-var-name\ 364}#
- (lambda (#{id\ 2013}# #{w\ 2014}#)
- (letrec ((#{search-vector-rib\ 2023}#
- (lambda (#{sym\ 2035}#
- #{subst\ 2036}#
- #{marks\ 2037}#
- #{symnames\ 2038}#
- #{ribcage\ 2039}#)
- (let ((#{n\ 2046}#
- (vector-length #{symnames\ 2038}#)))
- (letrec ((#{f\ 2049}#
- (lambda (#{i\ 2050}#)
- (if (#{fx=\ 212}#
- #{i\ 2050}#
- #{n\ 2046}#)
- (#{search\ 2019}#
- #{sym\ 2035}#
- (cdr #{subst\ 2036}#)
- #{marks\ 2037}#)
+ (#{id-var-name\ 429}#
+ (lambda (#{id\ 2078}# #{w\ 2079}#)
+ (letrec ((#{search-vector-rib\ 2088}#
+ (lambda (#{sym\ 2100}#
+ #{subst\ 2101}#
+ #{marks\ 2102}#
+ #{symnames\ 2103}#
+ #{ribcage\ 2104}#)
+ (let ((#{n\ 2111}#
+ (vector-length #{symnames\ 2103}#)))
+ (letrec ((#{f\ 2114}#
+ (lambda (#{i\ 2115}#)
+ (if (#{fx=\ 277}#
+ #{i\ 2115}#
+ #{n\ 2111}#)
+ (#{search\ 2084}#
+ #{sym\ 2100}#
+ (cdr #{subst\ 2101}#)
+ #{marks\ 2102}#)
(if (if (eq? (vector-ref
- #{symnames\ 2038}#
- #{i\ 2050}#)
- #{sym\ 2035}#)
- (#{same-marks?\ 362}#
- #{marks\ 2037}#
+ #{symnames\ 2103}#
+ #{i\ 2115}#)
+ #{sym\ 2100}#)
+ (#{same-marks?\ 427}#
+ #{marks\ 2102}#
(vector-ref
- (#{ribcage-marks\ 334}#
- #{ribcage\ 2039}#)
- #{i\ 2050}#))
+ (#{ribcage-marks\ 399}#
+ #{ribcage\ 2104}#)
+ #{i\ 2115}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 336}#
- #{ribcage\ 2039}#)
- #{i\ 2050}#)
- #{marks\ 2037}#)
- (#{f\ 2049}#
- (#{fx+\ 208}#
- #{i\ 2050}#
+ (#{ribcage-labels\ 401}#
+ #{ribcage\ 2104}#)
+ #{i\ 2115}#)
+ #{marks\ 2102}#)
+ (#{f\ 2114}#
+ (#{fx+\ 273}#
+ #{i\ 2115}#
1)))))))
- (#{f\ 2049}# 0)))))
- (#{search-list-rib\ 2021}#
- (lambda (#{sym\ 2058}#
- #{subst\ 2059}#
- #{marks\ 2060}#
- #{symnames\ 2061}#
- #{ribcage\ 2062}#)
- (letrec ((#{f\ 2071}#
- (lambda (#{symnames\ 2072}# #{i\ 2073}#)
- (if (null? #{symnames\ 2072}#)
- (#{search\ 2019}#
- #{sym\ 2058}#
- (cdr #{subst\ 2059}#)
- #{marks\ 2060}#)
- (if (if (eq? (car #{symnames\
2072}#)
- #{sym\ 2058}#)
- (#{same-marks?\ 362}#
- #{marks\ 2060}#
+ (#{f\ 2114}# 0)))))
+ (#{search-list-rib\ 2086}#
+ (lambda (#{sym\ 2123}#
+ #{subst\ 2124}#
+ #{marks\ 2125}#
+ #{symnames\ 2126}#
+ #{ribcage\ 2127}#)
+ (letrec ((#{f\ 2136}#
+ (lambda (#{symnames\ 2137}# #{i\ 2138}#)
+ (if (null? #{symnames\ 2137}#)
+ (#{search\ 2084}#
+ #{sym\ 2123}#
+ (cdr #{subst\ 2124}#)
+ #{marks\ 2125}#)
+ (if (if (eq? (car #{symnames\
2137}#)
+ #{sym\ 2123}#)
+ (#{same-marks?\ 427}#
+ #{marks\ 2125}#
(list-ref
- (#{ribcage-marks\ 334}#
- #{ribcage\ 2062}#)
- #{i\ 2073}#))
+ (#{ribcage-marks\ 399}#
+ #{ribcage\ 2127}#)
+ #{i\ 2138}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 336}#
- #{ribcage\ 2062}#)
- #{i\ 2073}#)
- #{marks\ 2060}#)
- (#{f\ 2071}#
- (cdr #{symnames\ 2072}#)
- (#{fx+\ 208}#
- #{i\ 2073}#
+ (#{ribcage-labels\ 401}#
+ #{ribcage\ 2127}#)
+ #{i\ 2138}#)
+ #{marks\ 2125}#)
+ (#{f\ 2136}#
+ (cdr #{symnames\ 2137}#)
+ (#{fx+\ 273}#
+ #{i\ 2138}#
1)))))))
- (#{f\ 2071}# #{symnames\ 2061}# 0))))
- (#{search\ 2019}#
- (lambda (#{sym\ 2081}#
- #{subst\ 2082}#
- #{marks\ 2083}#)
- (if (null? #{subst\ 2082}#)
- (values #f #{marks\ 2083}#)
- (let ((#{fst\ 2088}# (car #{subst\ 2082}#)))
- (if (eq? #{fst\ 2088}# (quote shift))
- (#{search\ 2019}#
- #{sym\ 2081}#
- (cdr #{subst\ 2082}#)
- (cdr #{marks\ 2083}#))
- (let ((#{symnames\ 2090}#
- (#{ribcage-symnames\ 332}#
- #{fst\ 2088}#)))
- (if (vector? #{symnames\ 2090}#)
- (#{search-vector-rib\ 2023}#
- #{sym\ 2081}#
- #{subst\ 2082}#
- #{marks\ 2083}#
- #{symnames\ 2090}#
- #{fst\ 2088}#)
- (#{search-list-rib\ 2021}#
- #{sym\ 2081}#
- #{subst\ 2082}#
- #{marks\ 2083}#
- #{symnames\ 2090}#
- #{fst\ 2088}#)))))))))
- (if (symbol? #{id\ 2013}#)
- (let ((#{t\ 2093}#
+ (#{f\ 2136}# #{symnames\ 2126}# 0))))
+ (#{search\ 2084}#
+ (lambda (#{sym\ 2146}#
+ #{subst\ 2147}#
+ #{marks\ 2148}#)
+ (if (null? #{subst\ 2147}#)
+ (values #f #{marks\ 2148}#)
+ (let ((#{fst\ 2153}# (car #{subst\ 2147}#)))
+ (if (eq? #{fst\ 2153}# (quote shift))
+ (#{search\ 2084}#
+ #{sym\ 2146}#
+ (cdr #{subst\ 2147}#)
+ (cdr #{marks\ 2148}#))
+ (let ((#{symnames\ 2155}#
+ (#{ribcage-symnames\ 397}#
+ #{fst\ 2153}#)))
+ (if (vector? #{symnames\ 2155}#)
+ (#{search-vector-rib\ 2088}#
+ #{sym\ 2146}#
+ #{subst\ 2147}#
+ #{marks\ 2148}#
+ #{symnames\ 2155}#
+ #{fst\ 2153}#)
+ (#{search-list-rib\ 2086}#
+ #{sym\ 2146}#
+ #{subst\ 2147}#
+ #{marks\ 2148}#
+ #{symnames\ 2155}#
+ #{fst\ 2153}#)))))))))
+ (if (symbol? #{id\ 2078}#)
+ (let ((#{t\ 2158}#
(call-with-values
(lambda ()
- (#{search\ 2019}#
- #{id\ 2013}#
- (#{wrap-subst\ 316}# #{w\ 2014}#)
- (#{wrap-marks\ 314}# #{w\ 2014}#)))
- (lambda (#{x\ 2095}# . #{ignore\ 2096}#)
- #{x\ 2095}#))))
- (if #{t\ 2093}# #{t\ 2093}# #{id\ 2013}#))
- (if (#{syntax-object?\ 271}# #{id\ 2013}#)
- (let ((#{id\ 2104}#
- (#{syntax-object-expression\ 273}# #{id\ 2013}#))
- (#{w1\ 2105}#
- (#{syntax-object-wrap\ 275}# #{id\ 2013}#)))
- (let ((#{marks\ 2107}#
- (#{join-marks\ 360}#
- (#{wrap-marks\ 314}# #{w\ 2014}#)
- (#{wrap-marks\ 314}# #{w1\ 2105}#))))
+ (#{search\ 2084}#
+ #{id\ 2078}#
+ (#{wrap-subst\ 381}# #{w\ 2079}#)
+ (#{wrap-marks\ 379}# #{w\ 2079}#)))
+ (lambda (#{x\ 2160}# . #{ignore\ 2161}#)
+ #{x\ 2160}#))))
+ (if #{t\ 2158}# #{t\ 2158}# #{id\ 2078}#))
+ (if (#{syntax-object?\ 336}# #{id\ 2078}#)
+ (let ((#{id\ 2169}#
+ (#{syntax-object-expression\ 338}# #{id\ 2078}#))
+ (#{w1\ 2170}#
+ (#{syntax-object-wrap\ 340}# #{id\ 2078}#)))
+ (let ((#{marks\ 2172}#
+ (#{join-marks\ 425}#
+ (#{wrap-marks\ 379}# #{w\ 2079}#)
+ (#{wrap-marks\ 379}# #{w1\ 2170}#))))
(call-with-values
(lambda ()
- (#{search\ 2019}#
- #{id\ 2104}#
- (#{wrap-subst\ 316}# #{w\ 2014}#)
- #{marks\ 2107}#))
- (lambda (#{new-id\ 2108}# #{marks\ 2109}#)
- (let ((#{t\ 2114}# #{new-id\ 2108}#))
- (if #{t\ 2114}#
- #{t\ 2114}#
- (let ((#{t\ 2117}#
+ (#{search\ 2084}#
+ #{id\ 2169}#
+ (#{wrap-subst\ 381}# #{w\ 2079}#)
+ #{marks\ 2172}#))
+ (lambda (#{new-id\ 2173}# #{marks\ 2174}#)
+ (let ((#{t\ 2179}# #{new-id\ 2173}#))
+ (if #{t\ 2179}#
+ #{t\ 2179}#
+ (let ((#{t\ 2182}#
(call-with-values
(lambda ()
- (#{search\ 2019}#
- #{id\ 2104}#
- (#{wrap-subst\ 316}#
- #{w1\ 2105}#)
- #{marks\ 2109}#))
- (lambda (#{x\ 2119}#
+ (#{search\ 2084}#
+ #{id\ 2169}#
+ (#{wrap-subst\ 381}#
+ #{w1\ 2170}#)
+ #{marks\ 2174}#))
+ (lambda (#{x\ 2184}#
.
- #{ignore\ 2120}#)
- #{x\ 2119}#))))
- (if #{t\ 2117}#
- #{t\ 2117}#
- #{id\ 2104}#))))))))
+ #{ignore\ 2185}#)
+ #{x\ 2184}#))))
+ (if #{t\ 2182}#
+ #{t\ 2182}#
+ #{id\ 2169}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 2013}#))))))
- (#{same-marks?\ 362}#
- (lambda (#{x\ 2125}# #{y\ 2126}#)
- (let ((#{t\ 2131}# (eq? #{x\ 2125}# #{y\ 2126}#)))
- (if #{t\ 2131}#
- #{t\ 2131}#
- (if (not (null? #{x\ 2125}#))
- (if (not (null? #{y\ 2126}#))
- (if (eq? (car #{x\ 2125}#) (car #{y\ 2126}#))
- (#{same-marks?\ 362}#
- (cdr #{x\ 2125}#)
- (cdr #{y\ 2126}#))
+ #{id\ 2078}#))))))
+ (#{same-marks?\ 427}#
+ (lambda (#{x\ 2190}# #{y\ 2191}#)
+ (let ((#{t\ 2196}# (eq? #{x\ 2190}# #{y\ 2191}#)))
+ (if #{t\ 2196}#
+ #{t\ 2196}#
+ (if (not (null? #{x\ 2190}#))
+ (if (not (null? #{y\ 2191}#))
+ (if (eq? (car #{x\ 2190}#) (car #{y\ 2191}#))
+ (#{same-marks?\ 427}#
+ (cdr #{x\ 2190}#)
+ (cdr #{y\ 2191}#))
#f)
#f)
#f)))))
- (#{join-marks\ 360}#
- (lambda (#{m1\ 2137}# #{m2\ 2138}#)
- (#{smart-append\ 356}# #{m1\ 2137}# #{m2\ 2138}#)))
- (#{join-wraps\ 358}#
- (lambda (#{w1\ 2141}# #{w2\ 2142}#)
- (let ((#{m1\ 2147}# (#{wrap-marks\ 314}# #{w1\ 2141}#))
- (#{s1\ 2148}# (#{wrap-subst\ 316}# #{w1\ 2141}#)))
- (if (null? #{m1\ 2147}#)
- (if (null? #{s1\ 2148}#)
- #{w2\ 2142}#
- (#{make-wrap\ 312}#
- (#{wrap-marks\ 314}# #{w2\ 2142}#)
- (#{smart-append\ 356}#
- #{s1\ 2148}#
- (#{wrap-subst\ 316}# #{w2\ 2142}#))))
- (#{make-wrap\ 312}#
- (#{smart-append\ 356}#
- #{m1\ 2147}#
- (#{wrap-marks\ 314}# #{w2\ 2142}#))
- (#{smart-append\ 356}#
- #{s1\ 2148}#
- (#{wrap-subst\ 316}# #{w2\ 2142}#)))))))
- (#{smart-append\ 356}#
- (lambda (#{m1\ 2149}# #{m2\ 2150}#)
- (if (null? #{m2\ 2150}#)
- #{m1\ 2149}#
- (append #{m1\ 2149}# #{m2\ 2150}#))))
- (#{make-binding-wrap\ 354}#
- (lambda (#{ids\ 2153}# #{labels\ 2154}# #{w\ 2155}#)
- (if (null? #{ids\ 2153}#)
- #{w\ 2155}#
- (#{make-wrap\ 312}#
- (#{wrap-marks\ 314}# #{w\ 2155}#)
- (cons (let ((#{labelvec\ 2160}#
- (list->vector #{labels\ 2154}#)))
- (let ((#{n\ 2162}#
- (vector-length #{labelvec\ 2160}#)))
- (let ((#{symnamevec\ 2165}#
- (make-vector #{n\ 2162}#))
- (#{marksvec\ 2166}#
- (make-vector #{n\ 2162}#)))
+ (#{join-marks\ 425}#
+ (lambda (#{m1\ 2202}# #{m2\ 2203}#)
+ (#{smart-append\ 421}# #{m1\ 2202}# #{m2\ 2203}#)))
+ (#{join-wraps\ 423}#
+ (lambda (#{w1\ 2206}# #{w2\ 2207}#)
+ (let ((#{m1\ 2212}# (#{wrap-marks\ 379}# #{w1\ 2206}#))
+ (#{s1\ 2213}# (#{wrap-subst\ 381}# #{w1\ 2206}#)))
+ (if (null? #{m1\ 2212}#)
+ (if (null? #{s1\ 2213}#)
+ #{w2\ 2207}#
+ (#{make-wrap\ 377}#
+ (#{wrap-marks\ 379}# #{w2\ 2207}#)
+ (#{smart-append\ 421}#
+ #{s1\ 2213}#
+ (#{wrap-subst\ 381}# #{w2\ 2207}#))))
+ (#{make-wrap\ 377}#
+ (#{smart-append\ 421}#
+ #{m1\ 2212}#
+ (#{wrap-marks\ 379}# #{w2\ 2207}#))
+ (#{smart-append\ 421}#
+ #{s1\ 2213}#
+ (#{wrap-subst\ 381}# #{w2\ 2207}#)))))))
+ (#{smart-append\ 421}#
+ (lambda (#{m1\ 2214}# #{m2\ 2215}#)
+ (if (null? #{m2\ 2215}#)
+ #{m1\ 2214}#
+ (append #{m1\ 2214}# #{m2\ 2215}#))))
+ (#{make-binding-wrap\ 419}#
+ (lambda (#{ids\ 2218}# #{labels\ 2219}# #{w\ 2220}#)
+ (if (null? #{ids\ 2218}#)
+ #{w\ 2220}#
+ (#{make-wrap\ 377}#
+ (#{wrap-marks\ 379}# #{w\ 2220}#)
+ (cons (let ((#{labelvec\ 2225}#
+ (list->vector #{labels\ 2219}#)))
+ (let ((#{n\ 2227}#
+ (vector-length #{labelvec\ 2225}#)))
+ (let ((#{symnamevec\ 2230}#
+ (make-vector #{n\ 2227}#))
+ (#{marksvec\ 2231}#
+ (make-vector #{n\ 2227}#)))
(begin
- (letrec ((#{f\ 2170}#
- (lambda (#{ids\ 2171}# #{i\ 2172}#)
- (if (not (null? #{ids\ 2171}#))
+ (letrec ((#{f\ 2235}#
+ (lambda (#{ids\ 2236}# #{i\ 2237}#)
+ (if (not (null? #{ids\ 2236}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 310}#
- (car #{ids\ 2171}#)
- #{w\ 2155}#))
- (lambda (#{symname\ 2173}#
- #{marks\ 2174}#)
+ (#{id-sym-name&marks\ 375}#
+ (car #{ids\ 2236}#)
+ #{w\ 2220}#))
+ (lambda (#{symname\ 2238}#
+ #{marks\ 2239}#)
(begin
(vector-set!
- #{symnamevec\ 2165}#
- #{i\ 2172}#
- #{symname\ 2173}#)
+ #{symnamevec\ 2230}#
+ #{i\ 2237}#
+ #{symname\ 2238}#)
(vector-set!
- #{marksvec\ 2166}#
- #{i\ 2172}#
- #{marks\ 2174}#)
- (#{f\ 2170}#
- (cdr #{ids\ 2171}#)
- (#{fx+\ 208}#
- #{i\ 2172}#
+ #{marksvec\ 2231}#
+ #{i\ 2237}#
+ #{marks\ 2239}#)
+ (#{f\ 2235}#
+ (cdr #{ids\ 2236}#)
+ (#{fx+\ 273}#
+ #{i\ 2237}#
1)))))))))
- (#{f\ 2170}# #{ids\ 2153}# 0))
- (#{make-ribcage\ 328}#
- #{symnamevec\ 2165}#
- #{marksvec\ 2166}#
- #{labelvec\ 2160}#)))))
- (#{wrap-subst\ 316}# #{w\ 2155}#))))))
- (#{extend-ribcage!\ 352}#
- (lambda (#{ribcage\ 2177}# #{id\ 2178}# #{label\ 2179}#)
+ (#{f\ 2235}# #{ids\ 2218}# 0))
+ (#{make-ribcage\ 393}#
+ #{symnamevec\ 2230}#
+ #{marksvec\ 2231}#
+ #{labelvec\ 2225}#)))))
+ (#{wrap-subst\ 381}# #{w\ 2220}#))))))
+ (#{extend-ribcage!\ 417}#
+ (lambda (#{ribcage\ 2242}# #{id\ 2243}# #{label\ 2244}#)
(begin
- (#{set-ribcage-symnames!\ 338}#
- #{ribcage\ 2177}#
- (cons (#{syntax-object-expression\ 273}# #{id\ 2178}#)
- (#{ribcage-symnames\ 332}# #{ribcage\ 2177}#)))
- (#{set-ribcage-marks!\ 340}#
- #{ribcage\ 2177}#
- (cons (#{wrap-marks\ 314}#
- (#{syntax-object-wrap\ 275}# #{id\ 2178}#))
- (#{ribcage-marks\ 334}# #{ribcage\ 2177}#)))
- (#{set-ribcage-labels!\ 342}#
- #{ribcage\ 2177}#
- (cons #{label\ 2179}#
- (#{ribcage-labels\ 336}# #{ribcage\ 2177}#))))))
- (#{anti-mark\ 348}#
- (lambda (#{w\ 2183}#)
- (#{make-wrap\ 312}#
- (cons #f (#{wrap-marks\ 314}# #{w\ 2183}#))
+ (#{set-ribcage-symnames!\ 403}#
+ #{ribcage\ 2242}#
+ (cons (#{syntax-object-expression\ 338}# #{id\ 2243}#)
+ (#{ribcage-symnames\ 397}# #{ribcage\ 2242}#)))
+ (#{set-ribcage-marks!\ 405}#
+ #{ribcage\ 2242}#
+ (cons (#{wrap-marks\ 379}#
+ (#{syntax-object-wrap\ 340}# #{id\ 2243}#))
+ (#{ribcage-marks\ 399}# #{ribcage\ 2242}#)))
+ (#{set-ribcage-labels!\ 407}#
+ #{ribcage\ 2242}#
+ (cons #{label\ 2244}#
+ (#{ribcage-labels\ 401}# #{ribcage\ 2242}#))))))
+ (#{anti-mark\ 413}#
+ (lambda (#{w\ 2248}#)
+ (#{make-wrap\ 377}#
+ (cons #f (#{wrap-marks\ 379}# #{w\ 2248}#))
(cons 'shift
- (#{wrap-subst\ 316}# #{w\ 2183}#)))))
- (#{set-ribcage-labels!\ 342}#
- (lambda (#{x\ 2186}# #{update\ 2187}#)
- (vector-set! #{x\ 2186}# 3 #{update\ 2187}#)))
- (#{set-ribcage-marks!\ 340}#
- (lambda (#{x\ 2190}# #{update\ 2191}#)
- (vector-set! #{x\ 2190}# 2 #{update\ 2191}#)))
- (#{set-ribcage-symnames!\ 338}#
- (lambda (#{x\ 2194}# #{update\ 2195}#)
- (vector-set! #{x\ 2194}# 1 #{update\ 2195}#)))
- (#{ribcage-labels\ 336}#
- (lambda (#{x\ 2198}#) (vector-ref #{x\ 2198}# 3)))
- (#{ribcage-marks\ 334}#
- (lambda (#{x\ 2200}#) (vector-ref #{x\ 2200}# 2)))
- (#{ribcage-symnames\ 332}#
- (lambda (#{x\ 2202}#) (vector-ref #{x\ 2202}# 1)))
- (#{ribcage?\ 330}#
- (lambda (#{x\ 2204}#)
- (if (vector? #{x\ 2204}#)
- (if (= (vector-length #{x\ 2204}#) 4)
- (eq? (vector-ref #{x\ 2204}# 0) (quote ribcage))
+ (#{wrap-subst\ 381}# #{w\ 2248}#)))))
+ (#{set-ribcage-labels!\ 407}#
+ (lambda (#{x\ 2251}# #{update\ 2252}#)
+ (vector-set! #{x\ 2251}# 3 #{update\ 2252}#)))
+ (#{set-ribcage-marks!\ 405}#
+ (lambda (#{x\ 2255}# #{update\ 2256}#)
+ (vector-set! #{x\ 2255}# 2 #{update\ 2256}#)))
+ (#{set-ribcage-symnames!\ 403}#
+ (lambda (#{x\ 2259}# #{update\ 2260}#)
+ (vector-set! #{x\ 2259}# 1 #{update\ 2260}#)))
+ (#{ribcage-labels\ 401}#
+ (lambda (#{x\ 2263}#) (vector-ref #{x\ 2263}# 3)))
+ (#{ribcage-marks\ 399}#
+ (lambda (#{x\ 2265}#) (vector-ref #{x\ 2265}# 2)))
+ (#{ribcage-symnames\ 397}#
+ (lambda (#{x\ 2267}#) (vector-ref #{x\ 2267}# 1)))
+ (#{ribcage?\ 395}#
+ (lambda (#{x\ 2269}#)
+ (if (vector? #{x\ 2269}#)
+ (if (= (vector-length #{x\ 2269}#) 4)
+ (eq? (vector-ref #{x\ 2269}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 328}#
- (lambda (#{symnames\ 2209}#
- #{marks\ 2210}#
- #{labels\ 2211}#)
+ (#{make-ribcage\ 393}#
+ (lambda (#{symnames\ 2274}#
+ #{marks\ 2275}#
+ #{labels\ 2276}#)
(vector
'ribcage
- #{symnames\ 2209}#
- #{marks\ 2210}#
- #{labels\ 2211}#)))
- (#{gen-labels\ 325}#
- (lambda (#{ls\ 2215}#)
- (if (null? #{ls\ 2215}#)
+ #{symnames\ 2274}#
+ #{marks\ 2275}#
+ #{labels\ 2276}#)))
+ (#{gen-labels\ 390}#
+ (lambda (#{ls\ 2280}#)
+ (if (null? #{ls\ 2280}#)
'()
- (cons (#{gen-label\ 323}#)
- (#{gen-labels\ 325}# (cdr #{ls\ 2215}#))))))
- (#{gen-label\ 323}#
+ (cons (#{gen-label\ 388}#)
+ (#{gen-labels\ 390}# (cdr #{ls\ 2280}#))))))
+ (#{gen-label\ 388}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 316}# cdr)
- (#{wrap-marks\ 314}# car)
- (#{make-wrap\ 312}# cons)
- (#{id-sym-name&marks\ 310}#
- (lambda (#{x\ 2217}# #{w\ 2218}#)
- (if (#{syntax-object?\ 271}# #{x\ 2217}#)
+ (#{wrap-subst\ 381}# cdr)
+ (#{wrap-marks\ 379}# car)
+ (#{make-wrap\ 377}# cons)
+ (#{id-sym-name&marks\ 375}#
+ (lambda (#{x\ 2282}# #{w\ 2283}#)
+ (if (#{syntax-object?\ 336}# #{x\ 2282}#)
(values
- (#{syntax-object-expression\ 273}# #{x\ 2217}#)
- (#{join-marks\ 360}#
- (#{wrap-marks\ 314}# #{w\ 2218}#)
- (#{wrap-marks\ 314}#
- (#{syntax-object-wrap\ 275}# #{x\ 2217}#))))
+ (#{syntax-object-expression\ 338}# #{x\ 2282}#)
+ (#{join-marks\ 425}#
+ (#{wrap-marks\ 379}# #{w\ 2283}#)
+ (#{wrap-marks\ 379}#
+ (#{syntax-object-wrap\ 340}# #{x\ 2282}#))))
(values
- #{x\ 2217}#
- (#{wrap-marks\ 314}# #{w\ 2218}#)))))
- (#{id?\ 307}#
- (lambda (#{x\ 2221}#)
- (if (symbol? #{x\ 2221}#)
+ #{x\ 2282}#
+ (#{wrap-marks\ 379}# #{w\ 2283}#)))))
+ (#{id?\ 372}#
+ (lambda (#{x\ 2286}#)
+ (if (symbol? #{x\ 2286}#)
#t
- (if (#{syntax-object?\ 271}# #{x\ 2221}#)
+ (if (#{syntax-object?\ 336}# #{x\ 2286}#)
(symbol?
- (#{syntax-object-expression\ 273}# #{x\ 2221}#))
+ (#{syntax-object-expression\ 338}# #{x\ 2286}#))
#f))))
- (#{nonsymbol-id?\ 305}#
- (lambda (#{x\ 2228}#)
- (if (#{syntax-object?\ 271}# #{x\ 2228}#)
+ (#{nonsymbol-id?\ 370}#
+ (lambda (#{x\ 2293}#)
+ (if (#{syntax-object?\ 336}# #{x\ 2293}#)
(symbol?
- (#{syntax-object-expression\ 273}# #{x\ 2228}#))
+ (#{syntax-object-expression\ 338}# #{x\ 2293}#))
#f)))
- (#{global-extend\ 303}#
- (lambda (#{type\ 2232}# #{sym\ 2233}# #{val\ 2234}#)
- (#{put-global-definition-hook\ 221}#
- #{sym\ 2233}#
- #{type\ 2232}#
- #{val\ 2234}#)))
- (#{lookup\ 301}#
- (lambda (#{x\ 2238}# #{r\ 2239}# #{mod\ 2240}#)
- (let ((#{t\ 2246}# (assq #{x\ 2238}# #{r\ 2239}#)))
- (if #{t\ 2246}#
- (cdr #{t\ 2246}#)
- (if (symbol? #{x\ 2238}#)
- (let ((#{t\ 2252}#
- (#{get-global-definition-hook\ 223}#
- #{x\ 2238}#
- #{mod\ 2240}#)))
- (if #{t\ 2252}# #{t\ 2252}# (quote (global))))
+ (#{global-extend\ 368}#
+ (lambda (#{type\ 2297}# #{sym\ 2298}# #{val\ 2299}#)
+ (#{put-global-definition-hook\ 286}#
+ #{sym\ 2298}#
+ #{type\ 2297}#
+ #{val\ 2299}#)))
+ (#{lookup\ 366}#
+ (lambda (#{x\ 2303}# #{r\ 2304}# #{mod\ 2305}#)
+ (let ((#{t\ 2311}# (assq #{x\ 2303}# #{r\ 2304}#)))
+ (if #{t\ 2311}#
+ (cdr #{t\ 2311}#)
+ (if (symbol? #{x\ 2303}#)
+ (let ((#{t\ 2317}#
+ (#{get-global-definition-hook\ 288}#
+ #{x\ 2303}#
+ #{mod\ 2305}#)))
+ (if #{t\ 2317}# #{t\ 2317}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 299}#
- (lambda (#{r\ 2257}#)
- (if (null? #{r\ 2257}#)
+ (#{macros-only-env\ 364}#
+ (lambda (#{r\ 2322}#)
+ (if (null? #{r\ 2322}#)
'()
- (let ((#{a\ 2260}# (car #{r\ 2257}#)))
- (if (eq? (cadr #{a\ 2260}#) (quote macro))
- (cons #{a\ 2260}#
- (#{macros-only-env\ 299}# (cdr #{r\ 2257}#)))
- (#{macros-only-env\ 299}# (cdr #{r\ 2257}#)))))))
- (#{extend-var-env\ 297}#
- (lambda (#{labels\ 2261}# #{vars\ 2262}# #{r\ 2263}#)
- (if (null? #{labels\ 2261}#)
- #{r\ 2263}#
- (#{extend-var-env\ 297}#
- (cdr #{labels\ 2261}#)
- (cdr #{vars\ 2262}#)
- (cons (cons (car #{labels\ 2261}#)
- (cons (quote lexical) (car #{vars\ 2262}#)))
- #{r\ 2263}#)))))
- (#{extend-env\ 295}#
- (lambda (#{labels\ 2268}# #{bindings\ 2269}# #{r\ 2270}#)
- (if (null? #{labels\ 2268}#)
- #{r\ 2270}#
- (#{extend-env\ 295}#
- (cdr #{labels\ 2268}#)
- (cdr #{bindings\ 2269}#)
- (cons (cons (car #{labels\ 2268}#)
- (car #{bindings\ 2269}#))
- #{r\ 2270}#)))))
- (#{binding-value\ 292}# cdr)
- (#{binding-type\ 290}# car)
- (#{source-annotation\ 286}#
- (lambda (#{x\ 2274}#)
- (if (#{syntax-object?\ 271}# #{x\ 2274}#)
- (#{source-annotation\ 286}#
- (#{syntax-object-expression\ 273}# #{x\ 2274}#))
- (if (pair? #{x\ 2274}#)
- (let ((#{props\ 2281}# (source-properties #{x\ 2274}#)))
- (if (pair? #{props\ 2281}#) #{props\ 2281}# #f))
+ (let ((#{a\ 2325}# (car #{r\ 2322}#)))
+ (if (eq? (cadr #{a\ 2325}#) (quote macro))
+ (cons #{a\ 2325}#
+ (#{macros-only-env\ 364}# (cdr #{r\ 2322}#)))
+ (#{macros-only-env\ 364}# (cdr #{r\ 2322}#)))))))
+ (#{extend-var-env\ 362}#
+ (lambda (#{labels\ 2326}# #{vars\ 2327}# #{r\ 2328}#)
+ (if (null? #{labels\ 2326}#)
+ #{r\ 2328}#
+ (#{extend-var-env\ 362}#
+ (cdr #{labels\ 2326}#)
+ (cdr #{vars\ 2327}#)
+ (cons (cons (car #{labels\ 2326}#)
+ (cons (quote lexical) (car #{vars\ 2327}#)))
+ #{r\ 2328}#)))))
+ (#{extend-env\ 360}#
+ (lambda (#{labels\ 2333}# #{bindings\ 2334}# #{r\ 2335}#)
+ (if (null? #{labels\ 2333}#)
+ #{r\ 2335}#
+ (#{extend-env\ 360}#
+ (cdr #{labels\ 2333}#)
+ (cdr #{bindings\ 2334}#)
+ (cons (cons (car #{labels\ 2333}#)
+ (car #{bindings\ 2334}#))
+ #{r\ 2335}#)))))
+ (#{binding-value\ 357}# cdr)
+ (#{binding-type\ 355}# car)
+ (#{source-annotation\ 351}#
+ (lambda (#{x\ 2339}#)
+ (if (#{syntax-object?\ 336}# #{x\ 2339}#)
+ (#{source-annotation\ 351}#
+ (#{syntax-object-expression\ 338}# #{x\ 2339}#))
+ (if (pair? #{x\ 2339}#)
+ (let ((#{props\ 2346}# (source-properties #{x\ 2339}#)))
+ (if (pair? #{props\ 2346}#) #{props\ 2346}# #f))
#f))))
- (#{set-syntax-object-module!\ 283}#
- (lambda (#{x\ 2283}# #{update\ 2284}#)
- (vector-set! #{x\ 2283}# 3 #{update\ 2284}#)))
- (#{set-syntax-object-wrap!\ 281}#
- (lambda (#{x\ 2287}# #{update\ 2288}#)
- (vector-set! #{x\ 2287}# 2 #{update\ 2288}#)))
- (#{set-syntax-object-expression!\ 279}#
- (lambda (#{x\ 2291}# #{update\ 2292}#)
- (vector-set! #{x\ 2291}# 1 #{update\ 2292}#)))
- (#{syntax-object-module\ 277}#
- (lambda (#{x\ 2295}#) (vector-ref #{x\ 2295}# 3)))
- (#{syntax-object-wrap\ 275}#
- (lambda (#{x\ 2297}#) (vector-ref #{x\ 2297}# 2)))
- (#{syntax-object-expression\ 273}#
- (lambda (#{x\ 2299}#) (vector-ref #{x\ 2299}# 1)))
- (#{syntax-object?\ 271}#
- (lambda (#{x\ 2301}#)
- (if (vector? #{x\ 2301}#)
- (if (= (vector-length #{x\ 2301}#) 4)
- (eq? (vector-ref #{x\ 2301}# 0)
+ (#{set-syntax-object-module!\ 348}#
+ (lambda (#{x\ 2348}# #{update\ 2349}#)
+ (vector-set! #{x\ 2348}# 3 #{update\ 2349}#)))
+ (#{set-syntax-object-wrap!\ 346}#
+ (lambda (#{x\ 2352}# #{update\ 2353}#)
+ (vector-set! #{x\ 2352}# 2 #{update\ 2353}#)))
+ (#{set-syntax-object-expression!\ 344}#
+ (lambda (#{x\ 2356}# #{update\ 2357}#)
+ (vector-set! #{x\ 2356}# 1 #{update\ 2357}#)))
+ (#{syntax-object-module\ 342}#
+ (lambda (#{x\ 2360}#) (vector-ref #{x\ 2360}# 3)))
+ (#{syntax-object-wrap\ 340}#
+ (lambda (#{x\ 2362}#) (vector-ref #{x\ 2362}# 2)))
+ (#{syntax-object-expression\ 338}#
+ (lambda (#{x\ 2364}#) (vector-ref #{x\ 2364}# 1)))
+ (#{syntax-object?\ 336}#
+ (lambda (#{x\ 2366}#)
+ (if (vector? #{x\ 2366}#)
+ (if (= (vector-length #{x\ 2366}#) 4)
+ (eq? (vector-ref #{x\ 2366}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 269}#
- (lambda (#{expression\ 2306}#
- #{wrap\ 2307}#
- #{module\ 2308}#)
+ (#{make-syntax-object\ 334}#
+ (lambda (#{expression\ 2371}#
+ #{wrap\ 2372}#
+ #{module\ 2373}#)
(vector
'syntax-object
- #{expression\ 2306}#
- #{wrap\ 2307}#
- #{module\ 2308}#)))
- (#{build-letrec\ 265}#
- (lambda (#{src\ 2312}#
- #{ids\ 2313}#
- #{vars\ 2314}#
- #{val-exps\ 2315}#
- #{body-exp\ 2316}#)
- (if (null? #{vars\ 2314}#)
- #{body-exp\ 2316}#
- (#{make-letrec\ 204}#
- #{src\ 2312}#
- #{ids\ 2313}#
- #{vars\ 2314}#
- #{val-exps\ 2315}#
- #{body-exp\ 2316}#))))
- (#{build-named-let\ 263}#
- (lambda (#{src\ 2322}#
- #{ids\ 2323}#
- #{vars\ 2324}#
- #{val-exps\ 2325}#
- #{body-exp\ 2326}#)
- (let ((#{f\ 2336}# (car #{vars\ 2324}#))
- (#{f-name\ 2337}# (car #{ids\ 2323}#))
- (#{vars\ 2338}# (cdr #{vars\ 2324}#))
- (#{ids\ 2339}# (cdr #{ids\ 2323}#)))
- (let ((#{proc\ 2341}#
- (#{build-simple-lambda\ 249}#
- #{src\ 2322}#
- #{ids\ 2339}#
+ #{expression\ 2371}#
+ #{wrap\ 2372}#
+ #{module\ 2373}#)))
+ (#{build-letrec\ 330}#
+ (lambda (#{src\ 2377}#
+ #{ids\ 2378}#
+ #{vars\ 2379}#
+ #{val-exps\ 2380}#
+ #{body-exp\ 2381}#)
+ (if (null? #{vars\ 2379}#)
+ #{body-exp\ 2381}#
+ (begin
+ (for-each
+ #{maybe-name-value!\ 310}#
+ #{ids\ 2378}#
+ #{val-exps\ 2380}#)
+ (#{make-letrec\ 262}#
+ #{src\ 2377}#
+ #{ids\ 2378}#
+ #{vars\ 2379}#
+ #{val-exps\ 2380}#
+ #{body-exp\ 2381}#)))))
+ (#{build-named-let\ 328}#
+ (lambda (#{src\ 2387}#
+ #{ids\ 2388}#
+ #{vars\ 2389}#
+ #{val-exps\ 2390}#
+ #{body-exp\ 2391}#)
+ (let ((#{f\ 2401}# (car #{vars\ 2389}#))
+ (#{f-name\ 2402}# (car #{ids\ 2388}#))
+ (#{vars\ 2403}# (cdr #{vars\ 2389}#))
+ (#{ids\ 2404}# (cdr #{ids\ 2388}#)))
+ (let ((#{proc\ 2406}#
+ (#{build-simple-lambda\ 314}#
+ #{src\ 2387}#
+ #{ids\ 2404}#
#f
- #{vars\ 2338}#
+ #{vars\ 2403}#
'()
- #{body-exp\ 2326}#)))
- (#{make-letrec\ 204}#
- #{src\ 2322}#
- (list #{f-name\ 2337}#)
- (list #{f\ 2336}#)
- (list #{proc\ 2341}#)
- (#{build-application\ 229}#
- #{src\ 2322}#
- (#{build-lexical-reference\ 235}#
- 'fun
- #{src\ 2322}#
- #{f-name\ 2337}#
- #{f\ 2336}#)
- #{val-exps\ 2325}#))))))
- (#{build-let\ 261}#
- (lambda (#{src\ 2342}#
- #{ids\ 2343}#
- #{vars\ 2344}#
- #{val-exps\ 2345}#
- #{body-exp\ 2346}#)
- (if (null? #{vars\ 2344}#)
- #{body-exp\ 2346}#
- (#{make-let\ 202}#
- #{src\ 2342}#
- #{ids\ 2343}#
- #{vars\ 2344}#
- #{val-exps\ 2345}#
- #{body-exp\ 2346}#))))
- (#{build-sequence\ 259}#
- (lambda (#{src\ 2352}# #{exps\ 2353}#)
- (if (null? (cdr #{exps\ 2353}#))
- (car #{exps\ 2353}#)
- (#{make-sequence\ 196}#
- #{src\ 2352}#
- #{exps\ 2353}#))))
- (#{build-data\ 257}#
- (lambda (#{src\ 2356}# #{exp\ 2357}#)
- (#{make-const\ 174}# #{src\ 2356}# #{exp\ 2357}#)))
- (#{build-primref\ 255}#
- (lambda (#{src\ 2360}# #{name\ 2361}#)
+ #{body-exp\ 2391}#)))
+ (begin
+ (#{maybe-name-value!\ 310}#
+ #{f-name\ 2402}#
+ #{proc\ 2406}#)
+ (for-each
+ #{maybe-name-value!\ 310}#
+ #{ids\ 2404}#
+ #{val-exps\ 2390}#)
+ (#{make-letrec\ 262}#
+ #{src\ 2387}#
+ (list #{f-name\ 2402}#)
+ (list #{f\ 2401}#)
+ (list #{proc\ 2406}#)
+ (#{build-application\ 294}#
+ #{src\ 2387}#
+ (#{build-lexical-reference\ 300}#
+ 'fun
+ #{src\ 2387}#
+ #{f-name\ 2402}#
+ #{f\ 2401}#)
+ #{val-exps\ 2390}#)))))))
+ (#{build-let\ 326}#
+ (lambda (#{src\ 2407}#
+ #{ids\ 2408}#
+ #{vars\ 2409}#
+ #{val-exps\ 2410}#
+ #{body-exp\ 2411}#)
+ (begin
+ (for-each
+ #{maybe-name-value!\ 310}#
+ #{ids\ 2408}#
+ #{val-exps\ 2410}#)
+ (if (null? #{vars\ 2409}#)
+ #{body-exp\ 2411}#
+ (#{make-let\ 260}#
+ #{src\ 2407}#
+ #{ids\ 2408}#
+ #{vars\ 2409}#
+ #{val-exps\ 2410}#
+ #{body-exp\ 2411}#)))))
+ (#{build-sequence\ 324}#
+ (lambda (#{src\ 2417}# #{exps\ 2418}#)
+ (if (null? (cdr #{exps\ 2418}#))
+ (car #{exps\ 2418}#)
+ (#{make-sequence\ 254}#
+ #{src\ 2417}#
+ #{exps\ 2418}#))))
+ (#{build-data\ 322}#
+ (lambda (#{src\ 2421}# #{exp\ 2422}#)
+ (#{make-const\ 232}# #{src\ 2421}# #{exp\ 2422}#)))
+ (#{build-primref\ 320}#
+ (lambda (#{src\ 2425}# #{name\ 2426}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 186}#
- #{src\ 2360}#
- #{name\ 2361}#)
- (#{make-module-ref\ 182}#
- #{src\ 2360}#
+ (#{make-toplevel-ref\ 244}#
+ #{src\ 2425}#
+ #{name\ 2426}#)
+ (#{make-module-ref\ 240}#
+ #{src\ 2425}#
'(guile)
- #{name\ 2361}#
+ #{name\ 2426}#
#f))))
- (#{build-lambda-case\ 253}#
- (lambda (#{src\ 2364}#
- #{req\ 2365}#
- #{opt\ 2366}#
- #{rest\ 2367}#
- #{kw\ 2368}#
- #{inits\ 2369}#
- #{vars\ 2370}#
- #{body\ 2371}#
- #{else-case\ 2372}#)
- (#{make-lambda-case\ 200}#
- #{src\ 2364}#
- #{req\ 2365}#
- #{opt\ 2366}#
- #{rest\ 2367}#
- #{kw\ 2368}#
- #{inits\ 2369}#
- #{vars\ 2370}#
- #{body\ 2371}#
- #{else-case\ 2372}#)))
- (#{build-case-lambda\ 251}#
- (lambda (#{src\ 2382}# #{meta\ 2383}# #{body\ 2384}#)
- (#{make-lambda\ 198}#
- #{src\ 2382}#
- #{meta\ 2383}#
- #{body\ 2384}#)))
- (#{build-simple-lambda\ 249}#
- (lambda (#{src\ 2388}#
- #{req\ 2389}#
- #{rest\ 2390}#
- #{vars\ 2391}#
- #{meta\ 2392}#
- #{exp\ 2393}#)
- (#{make-lambda\ 198}#
- #{src\ 2388}#
- #{meta\ 2392}#
- (#{make-lambda-case\ 200}#
- #{src\ 2388}#
- #{req\ 2389}#
+ (#{build-lambda-case\ 318}#
+ (lambda (#{src\ 2429}#
+ #{req\ 2430}#
+ #{opt\ 2431}#
+ #{rest\ 2432}#
+ #{kw\ 2433}#
+ #{inits\ 2434}#
+ #{vars\ 2435}#
+ #{body\ 2436}#
+ #{else-case\ 2437}#)
+ (#{make-lambda-case\ 258}#
+ #{src\ 2429}#
+ #{req\ 2430}#
+ #{opt\ 2431}#
+ #{rest\ 2432}#
+ #{kw\ 2433}#
+ #{inits\ 2434}#
+ #{vars\ 2435}#
+ #{body\ 2436}#
+ #{else-case\ 2437}#)))
+ (#{build-case-lambda\ 316}#
+ (lambda (#{src\ 2447}# #{meta\ 2448}# #{body\ 2449}#)
+ (#{make-lambda\ 256}#
+ #{src\ 2447}#
+ #{meta\ 2448}#
+ #{body\ 2449}#)))
+ (#{build-simple-lambda\ 314}#
+ (lambda (#{src\ 2453}#
+ #{req\ 2454}#
+ #{rest\ 2455}#
+ #{vars\ 2456}#
+ #{meta\ 2457}#
+ #{exp\ 2458}#)
+ (#{make-lambda\ 256}#
+ #{src\ 2453}#
+ #{meta\ 2457}#
+ (#{make-lambda-case\ 258}#
+ #{src\ 2453}#
+ #{req\ 2454}#
#f
- #{rest\ 2390}#
+ #{rest\ 2455}#
#f
'()
- #{vars\ 2391}#
- #{exp\ 2393}#
+ #{vars\ 2456}#
+ #{exp\ 2458}#
#f))))
- (#{build-global-definition\ 247}#
- (lambda (#{source\ 2400}# #{var\ 2401}# #{exp\ 2402}#)
- (#{make-toplevel-define\ 190}#
- #{source\ 2400}#
- #{var\ 2401}#
- #{exp\ 2402}#)))
- (#{maybe-name-value!\ 245}#
- (lambda (#{name\ 2406}# #{val\ 2407}#)
- (if ((@ (language tree-il) lambda?) #{val\ 2407}#)
- (let ((#{meta\ 2413}#
- ((@ (language tree-il) lambda-meta)
- #{val\ 2407}#)))
- (if (not (assq (quote name) #{meta\ 2413}#))
- ((setter (@ (language tree-il) lambda-meta))
- #{val\ 2407}#
- (acons 'name
- #{name\ 2406}#
- #{meta\ 2413}#)))))))
- (#{build-global-assignment\ 243}#
- (lambda (#{source\ 2414}#
- #{var\ 2415}#
- #{exp\ 2416}#
- #{mod\ 2417}#)
- (#{analyze-variable\ 239}#
- #{mod\ 2417}#
- #{var\ 2415}#
- (lambda (#{mod\ 2422}# #{var\ 2423}# #{public?\ 2424}#)
- (#{make-module-set\ 184}#
- #{source\ 2414}#
- #{mod\ 2422}#
- #{var\ 2423}#
- #{public?\ 2424}#
- #{exp\ 2416}#))
- (lambda (#{var\ 2428}#)
- (#{make-toplevel-set\ 188}#
- #{source\ 2414}#
- #{var\ 2428}#
- #{exp\ 2416}#)))))
- (#{build-global-reference\ 241}#
- (lambda (#{source\ 2430}# #{var\ 2431}# #{mod\ 2432}#)
- (#{analyze-variable\ 239}#
- #{mod\ 2432}#
- #{var\ 2431}#
- (lambda (#{mod\ 2436}# #{var\ 2437}# #{public?\ 2438}#)
- (#{make-module-ref\ 182}#
- #{source\ 2430}#
- #{mod\ 2436}#
- #{var\ 2437}#
- #{public?\ 2438}#))
- (lambda (#{var\ 2442}#)
- (#{make-toplevel-ref\ 186}#
- #{source\ 2430}#
- #{var\ 2442}#)))))
- (#{analyze-variable\ 239}#
- (lambda (#{mod\ 2444}#
- #{var\ 2445}#
- #{modref-cont\ 2446}#
- #{bare-cont\ 2447}#)
- (if (not #{mod\ 2444}#)
- (#{bare-cont\ 2447}# #{var\ 2445}#)
- (let ((#{kind\ 2454}# (car #{mod\ 2444}#))
- (#{mod\ 2455}# (cdr #{mod\ 2444}#)))
- (if (memv #{kind\ 2454}# (quote (public)))
- (#{modref-cont\ 2446}#
- #{mod\ 2455}#
- #{var\ 2445}#
+ (#{build-global-definition\ 312}#
+ (lambda (#{source\ 2465}# #{var\ 2466}# #{exp\ 2467}#)
+ (begin
+ (#{maybe-name-value!\ 310}#
+ #{var\ 2466}#
+ #{exp\ 2467}#)
+ (#{make-toplevel-define\ 248}#
+ #{source\ 2465}#
+ #{var\ 2466}#
+ #{exp\ 2467}#))))
+ (#{maybe-name-value!\ 310}#
+ (lambda (#{name\ 2471}# #{val\ 2472}#)
+ (if (#{lambda?\ 267}# #{val\ 2472}#)
+ (let ((#{meta\ 2476}#
+ (#{lambda-meta\ 269}# #{val\ 2472}#)))
+ (if (not (assq (quote name) #{meta\ 2476}#))
+ (#{set-lambda-meta!\ 271}#
+ #{val\ 2472}#
+ (acons 'name
+ #{name\ 2471}#
+ #{meta\ 2476}#)))))))
+ (#{build-global-assignment\ 308}#
+ (lambda (#{source\ 2477}#
+ #{var\ 2478}#
+ #{exp\ 2479}#
+ #{mod\ 2480}#)
+ (#{analyze-variable\ 304}#
+ #{mod\ 2480}#
+ #{var\ 2478}#
+ (lambda (#{mod\ 2485}# #{var\ 2486}# #{public?\ 2487}#)
+ (#{make-module-set\ 242}#
+ #{source\ 2477}#
+ #{mod\ 2485}#
+ #{var\ 2486}#
+ #{public?\ 2487}#
+ #{exp\ 2479}#))
+ (lambda (#{var\ 2491}#)
+ (#{make-toplevel-set\ 246}#
+ #{source\ 2477}#
+ #{var\ 2491}#
+ #{exp\ 2479}#)))))
+ (#{build-global-reference\ 306}#
+ (lambda (#{source\ 2493}# #{var\ 2494}# #{mod\ 2495}#)
+ (#{analyze-variable\ 304}#
+ #{mod\ 2495}#
+ #{var\ 2494}#
+ (lambda (#{mod\ 2499}# #{var\ 2500}# #{public?\ 2501}#)
+ (#{make-module-ref\ 240}#
+ #{source\ 2493}#
+ #{mod\ 2499}#
+ #{var\ 2500}#
+ #{public?\ 2501}#))
+ (lambda (#{var\ 2505}#)
+ (#{make-toplevel-ref\ 244}#
+ #{source\ 2493}#
+ #{var\ 2505}#)))))
+ (#{analyze-variable\ 304}#
+ (lambda (#{mod\ 2507}#
+ #{var\ 2508}#
+ #{modref-cont\ 2509}#
+ #{bare-cont\ 2510}#)
+ (if (not #{mod\ 2507}#)
+ (#{bare-cont\ 2510}# #{var\ 2508}#)
+ (let ((#{kind\ 2517}# (car #{mod\ 2507}#))
+ (#{mod\ 2518}# (cdr #{mod\ 2507}#)))
+ (if (memv #{kind\ 2517}# (quote (public)))
+ (#{modref-cont\ 2509}#
+ #{mod\ 2518}#
+ #{var\ 2508}#
#t)
- (if (memv #{kind\ 2454}# (quote (private)))
+ (if (memv #{kind\ 2517}# (quote (private)))
(if (not (equal?
- #{mod\ 2455}#
+ #{mod\ 2518}#
(module-name (current-module))))
- (#{modref-cont\ 2446}#
- #{mod\ 2455}#
- #{var\ 2445}#
+ (#{modref-cont\ 2509}#
+ #{mod\ 2518}#
+ #{var\ 2508}#
#f)
- (#{bare-cont\ 2447}# #{var\ 2445}#))
- (if (memv #{kind\ 2454}# (quote (bare)))
- (#{bare-cont\ 2447}# #{var\ 2445}#)
- (if (memv #{kind\ 2454}# (quote (hygiene)))
+ (#{bare-cont\ 2510}# #{var\ 2508}#))
+ (if (memv #{kind\ 2517}# (quote (bare)))
+ (#{bare-cont\ 2510}# #{var\ 2508}#)
+ (if (memv #{kind\ 2517}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 2455}#
+ #{mod\ 2518}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 2455}#)
- #{var\ 2445}#)
+ (resolve-module #{mod\ 2518}#)
+ #{var\ 2508}#)
#f)
- (#{modref-cont\ 2446}#
- #{mod\ 2455}#
- #{var\ 2445}#
+ (#{modref-cont\ 2509}#
+ #{mod\ 2518}#
+ #{var\ 2508}#
#f)
- (#{bare-cont\ 2447}# #{var\ 2445}#))
+ (#{bare-cont\ 2510}# #{var\ 2508}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 2445}#
- #{mod\ 2455}#)))))))))
- (#{build-lexical-assignment\ 237}#
- (lambda (#{source\ 2463}#
- #{name\ 2464}#
- #{var\ 2465}#
- #{exp\ 2466}#)
- (#{make-lexical-set\ 180}#
- #{source\ 2463}#
- #{name\ 2464}#
- #{var\ 2465}#
- #{exp\ 2466}#)))
- (#{build-lexical-reference\ 235}#
- (lambda (#{type\ 2471}#
- #{source\ 2472}#
- #{name\ 2473}#
- #{var\ 2474}#)
- (#{make-lexical-ref\ 178}#
- #{source\ 2472}#
- #{name\ 2473}#
- #{var\ 2474}#)))
- (#{build-dynlet\ 233}#
- (lambda (#{source\ 2479}#
- #{fluids\ 2480}#
- #{vals\ 2481}#
- #{body\ 2482}#)
- (#{make-dynlet\ 206}#
- #{source\ 2479}#
- #{fluids\ 2480}#
- #{vals\ 2481}#
- #{body\ 2482}#)))
- (#{build-conditional\ 231}#
- (lambda (#{source\ 2487}#
- #{test-exp\ 2488}#
- #{then-exp\ 2489}#
- #{else-exp\ 2490}#)
- (#{make-conditional\ 192}#
- #{source\ 2487}#
- #{test-exp\ 2488}#
- #{then-exp\ 2489}#
- #{else-exp\ 2490}#)))
- (#{build-application\ 229}#
- (lambda (#{source\ 2495}#
- #{fun-exp\ 2496}#
- #{arg-exps\ 2497}#)
- (#{make-application\ 194}#
- #{source\ 2495}#
- #{fun-exp\ 2496}#
- #{arg-exps\ 2497}#)))
- (#{build-void\ 227}#
- (lambda (#{source\ 2501}#)
- (#{make-void\ 172}# #{source\ 2501}#)))
- (#{decorate-source\ 225}#
- (lambda (#{e\ 2503}# #{s\ 2504}#)
+ #{var\ 2508}#
+ #{mod\ 2518}#)))))))))
+ (#{build-lexical-assignment\ 302}#
+ (lambda (#{source\ 2526}#
+ #{name\ 2527}#
+ #{var\ 2528}#
+ #{exp\ 2529}#)
+ (#{make-lexical-set\ 238}#
+ #{source\ 2526}#
+ #{name\ 2527}#
+ #{var\ 2528}#
+ #{exp\ 2529}#)))
+ (#{build-lexical-reference\ 300}#
+ (lambda (#{type\ 2534}#
+ #{source\ 2535}#
+ #{name\ 2536}#
+ #{var\ 2537}#)
+ (#{make-lexical-ref\ 236}#
+ #{source\ 2535}#
+ #{name\ 2536}#
+ #{var\ 2537}#)))
+ (#{build-dynlet\ 298}#
+ (lambda (#{source\ 2542}#
+ #{fluids\ 2543}#
+ #{vals\ 2544}#
+ #{body\ 2545}#)
+ (#{make-dynlet\ 264}#
+ #{source\ 2542}#
+ #{fluids\ 2543}#
+ #{vals\ 2544}#
+ #{body\ 2545}#)))
+ (#{build-conditional\ 296}#
+ (lambda (#{source\ 2550}#
+ #{test-exp\ 2551}#
+ #{then-exp\ 2552}#
+ #{else-exp\ 2553}#)
+ (#{make-conditional\ 250}#
+ #{source\ 2550}#
+ #{test-exp\ 2551}#
+ #{then-exp\ 2552}#
+ #{else-exp\ 2553}#)))
+ (#{build-application\ 294}#
+ (lambda (#{source\ 2558}#
+ #{fun-exp\ 2559}#
+ #{arg-exps\ 2560}#)
+ (#{make-application\ 252}#
+ #{source\ 2558}#
+ #{fun-exp\ 2559}#
+ #{arg-exps\ 2560}#)))
+ (#{build-void\ 292}#
+ (lambda (#{source\ 2564}#)
+ (#{make-void\ 230}# #{source\ 2564}#)))
+ (#{decorate-source\ 290}#
+ (lambda (#{e\ 2566}# #{s\ 2567}#)
(begin
- (if (if (pair? #{e\ 2503}#) #{s\ 2504}# #f)
- (set-source-properties! #{e\ 2503}# #{s\ 2504}#))
- #{e\ 2503}#)))
- (#{get-global-definition-hook\ 223}#
- (lambda (#{symbol\ 2509}# #{module\ 2510}#)
+ (if (if (pair? #{e\ 2566}#) #{s\ 2567}# #f)
+ (set-source-properties! #{e\ 2566}# #{s\ 2567}#))
+ #{e\ 2566}#)))
+ (#{get-global-definition-hook\ 288}#
+ (lambda (#{symbol\ 2572}# #{module\ 2573}#)
(begin
- (if (if (not #{module\ 2510}#) (current-module) #f)
+ (if (if (not #{module\ 2573}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2509}#))
- (let ((#{v\ 2516}#
+ #{symbol\ 2572}#))
+ (let ((#{v\ 2579}#
(module-variable
- (if #{module\ 2510}#
- (resolve-module (cdr #{module\ 2510}#))
+ (if #{module\ 2573}#
+ (resolve-module (cdr #{module\ 2573}#))
(current-module))
- #{symbol\ 2509}#)))
- (if #{v\ 2516}#
- (if (variable-bound? #{v\ 2516}#)
- (let ((#{val\ 2521}# (variable-ref #{v\ 2516}#)))
- (if (macro? #{val\ 2521}#)
- (if (macro-type #{val\ 2521}#)
- (cons (macro-type #{val\ 2521}#)
- (macro-binding #{val\ 2521}#))
+ #{symbol\ 2572}#)))
+ (if #{v\ 2579}#
+ (if (variable-bound? #{v\ 2579}#)
+ (let ((#{val\ 2584}# (variable-ref #{v\ 2579}#)))
+ (if (macro? #{val\ 2584}#)
+ (if (macro-type #{val\ 2584}#)
+ (cons (macro-type #{val\ 2584}#)
+ (macro-binding #{val\ 2584}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 221}#
- (lambda (#{symbol\ 2525}# #{type\ 2526}# #{val\ 2527}#)
+ (#{put-global-definition-hook\ 286}#
+ (lambda (#{symbol\ 2588}# #{type\ 2589}# #{val\ 2590}#)
(module-define!
(current-module)
- #{symbol\ 2525}#
+ #{symbol\ 2588}#
(make-syntax-transformer
- #{symbol\ 2525}#
- #{type\ 2526}#
- #{val\ 2527}#))))
- (#{local-eval-hook\ 218}#
- (lambda (#{x\ 2531}# #{mod\ 2532}#)
- (primitive-eval #{x\ 2531}#)))
- (#{top-level-eval-hook\ 216}#
- (lambda (#{x\ 2535}# #{mod\ 2536}#)
- (primitive-eval #{x\ 2535}#)))
- (#{fx<\ 214}# <)
- (#{fx=\ 212}# =)
- (#{fx-\ 210}# -)
- (#{fx+\ 208}# +)
- (#{make-dynlet\ 206}#
- (lambda (#{src\ 2539}#
- #{fluids\ 2540}#
- #{vals\ 2541}#
- #{body\ 2542}#)
+ #{symbol\ 2588}#
+ #{type\ 2589}#
+ #{val\ 2590}#))))
+ (#{local-eval-hook\ 283}#
+ (lambda (#{x\ 2594}# #{mod\ 2595}#)
+ (primitive-eval #{x\ 2594}#)))
+ (#{top-level-eval-hook\ 281}#
+ (lambda (#{x\ 2598}# #{mod\ 2599}#)
+ (primitive-eval #{x\ 2598}#)))
+ (#{fx<\ 279}# <)
+ (#{fx=\ 277}# =)
+ (#{fx-\ 275}# -)
+ (#{fx+\ 273}# +)
+ (#{set-lambda-meta!\ 271}#
+ (lambda (#{x\ 2602}# #{v\ 2603}#)
+ (struct-set! #{x\ 2602}# 1 #{v\ 2603}#)))
+ (#{lambda-meta\ 269}#
+ (lambda (#{x\ 2606}#) (struct-ref #{x\ 2606}# 1)))
+ (#{lambda?\ 267}#
+ (lambda (#{x\ 2608}#)
+ (if (struct? #{x\ 2608}#)
+ (eq? (struct-vtable #{x\ 2608}#)
+ (vector-ref %expanded-vtables 13))
+ #f)))
+ (#{make-dynlet\ 264}#
+ (lambda (#{src\ 2612}#
+ #{fluids\ 2613}#
+ #{vals\ 2614}#
+ #{body\ 2615}#)
(make-struct
(vector-ref %expanded-vtables 17)
0
- #{src\ 2539}#
- #{fluids\ 2540}#
- #{vals\ 2541}#
- #{body\ 2542}#)))
- (#{make-letrec\ 204}#
- (lambda (#{src\ 2547}#
- #{names\ 2548}#
- #{gensyms\ 2549}#
- #{vals\ 2550}#
- #{body\ 2551}#)
+ #{src\ 2612}#
+ #{fluids\ 2613}#
+ #{vals\ 2614}#
+ #{body\ 2615}#)))
+ (#{make-letrec\ 262}#
+ (lambda (#{src\ 2620}#
+ #{names\ 2621}#
+ #{gensyms\ 2622}#
+ #{vals\ 2623}#
+ #{body\ 2624}#)
(make-struct
(vector-ref %expanded-vtables 16)
0
- #{src\ 2547}#
- #{names\ 2548}#
- #{gensyms\ 2549}#
- #{vals\ 2550}#
- #{body\ 2551}#)))
- (#{make-let\ 202}#
- (lambda (#{src\ 2557}#
- #{names\ 2558}#
- #{gensyms\ 2559}#
- #{vals\ 2560}#
- #{body\ 2561}#)
+ #{src\ 2620}#
+ #{names\ 2621}#
+ #{gensyms\ 2622}#
+ #{vals\ 2623}#
+ #{body\ 2624}#)))
+ (#{make-let\ 260}#
+ (lambda (#{src\ 2630}#
+ #{names\ 2631}#
+ #{gensyms\ 2632}#
+ #{vals\ 2633}#
+ #{body\ 2634}#)
(make-struct
(vector-ref %expanded-vtables 15)
0
- #{src\ 2557}#
- #{names\ 2558}#
- #{gensyms\ 2559}#
- #{vals\ 2560}#
- #{body\ 2561}#)))
- (#{make-lambda-case\ 200}#
- (lambda (#{src\ 2567}#
- #{req\ 2568}#
- #{opt\ 2569}#
- #{rest\ 2570}#
- #{kw\ 2571}#
- #{inits\ 2572}#
- #{gensyms\ 2573}#
- #{body\ 2574}#
- #{alternate\ 2575}#)
+ #{src\ 2630}#
+ #{names\ 2631}#
+ #{gensyms\ 2632}#
+ #{vals\ 2633}#
+ #{body\ 2634}#)))
+ (#{make-lambda-case\ 258}#
+ (lambda (#{src\ 2640}#
+ #{req\ 2641}#
+ #{opt\ 2642}#
+ #{rest\ 2643}#
+ #{kw\ 2644}#
+ #{inits\ 2645}#
+ #{gensyms\ 2646}#
+ #{body\ 2647}#
+ #{alternate\ 2648}#)
(make-struct
(vector-ref %expanded-vtables 14)
0
- #{src\ 2567}#
- #{req\ 2568}#
- #{opt\ 2569}#
- #{rest\ 2570}#
- #{kw\ 2571}#
- #{inits\ 2572}#
- #{gensyms\ 2573}#
- #{body\ 2574}#
- #{alternate\ 2575}#)))
- (#{make-lambda\ 198}#
- (lambda (#{src\ 2585}# #{meta\ 2586}# #{body\ 2587}#)
+ #{src\ 2640}#
+ #{req\ 2641}#
+ #{opt\ 2642}#
+ #{rest\ 2643}#
+ #{kw\ 2644}#
+ #{inits\ 2645}#
+ #{gensyms\ 2646}#
+ #{body\ 2647}#
+ #{alternate\ 2648}#)))
+ (#{make-lambda\ 256}#
+ (lambda (#{src\ 2658}# #{meta\ 2659}# #{body\ 2660}#)
(make-struct
(vector-ref %expanded-vtables 13)
0
- #{src\ 2585}#
- #{meta\ 2586}#
- #{body\ 2587}#)))
- (#{make-sequence\ 196}#
- (lambda (#{src\ 2591}# #{exps\ 2592}#)
+ #{src\ 2658}#
+ #{meta\ 2659}#
+ #{body\ 2660}#)))
+ (#{make-sequence\ 254}#
+ (lambda (#{src\ 2664}# #{exps\ 2665}#)
(make-struct
(vector-ref %expanded-vtables 12)
0
- #{src\ 2591}#
- #{exps\ 2592}#)))
- (#{make-application\ 194}#
- (lambda (#{src\ 2595}# #{proc\ 2596}# #{args\ 2597}#)
+ #{src\ 2664}#
+ #{exps\ 2665}#)))
+ (#{make-application\ 252}#
+ (lambda (#{src\ 2668}# #{proc\ 2669}# #{args\ 2670}#)
(make-struct
(vector-ref %expanded-vtables 11)
0
- #{src\ 2595}#
- #{proc\ 2596}#
- #{args\ 2597}#)))
- (#{make-conditional\ 192}#
- (lambda (#{src\ 2601}#
- #{test\ 2602}#
- #{consequent\ 2603}#
- #{alternate\ 2604}#)
+ #{src\ 2668}#
+ #{proc\ 2669}#
+ #{args\ 2670}#)))
+ (#{make-conditional\ 250}#
+ (lambda (#{src\ 2674}#
+ #{test\ 2675}#
+ #{consequent\ 2676}#
+ #{alternate\ 2677}#)
(make-struct
(vector-ref %expanded-vtables 10)
0
- #{src\ 2601}#
- #{test\ 2602}#
- #{consequent\ 2603}#
- #{alternate\ 2604}#)))
- (#{make-toplevel-define\ 190}#
- (lambda (#{src\ 2609}# #{name\ 2610}# #{exp\ 2611}#)
+ #{src\ 2674}#
+ #{test\ 2675}#
+ #{consequent\ 2676}#
+ #{alternate\ 2677}#)))
+ (#{make-toplevel-define\ 248}#
+ (lambda (#{src\ 2682}# #{name\ 2683}# #{exp\ 2684}#)
(make-struct
(vector-ref %expanded-vtables 9)
0
- #{src\ 2609}#
- #{name\ 2610}#
- #{exp\ 2611}#)))
- (#{make-toplevel-set\ 188}#
- (lambda (#{src\ 2615}# #{name\ 2616}# #{exp\ 2617}#)
+ #{src\ 2682}#
+ #{name\ 2683}#
+ #{exp\ 2684}#)))
+ (#{make-toplevel-set\ 246}#
+ (lambda (#{src\ 2688}# #{name\ 2689}# #{exp\ 2690}#)
(make-struct
(vector-ref %expanded-vtables 8)
0
- #{src\ 2615}#
- #{name\ 2616}#
- #{exp\ 2617}#)))
- (#{make-toplevel-ref\ 186}#
- (lambda (#{src\ 2621}# #{name\ 2622}#)
+ #{src\ 2688}#
+ #{name\ 2689}#
+ #{exp\ 2690}#)))
+ (#{make-toplevel-ref\ 244}#
+ (lambda (#{src\ 2694}# #{name\ 2695}#)
(make-struct
(vector-ref %expanded-vtables 7)
0
- #{src\ 2621}#
- #{name\ 2622}#)))
- (#{make-module-set\ 184}#
- (lambda (#{src\ 2625}#
- #{mod\ 2626}#
- #{name\ 2627}#
- #{public?\ 2628}#
- #{exp\ 2629}#)
+ #{src\ 2694}#
+ #{name\ 2695}#)))
+ (#{make-module-set\ 242}#
+ (lambda (#{src\ 2698}#
+ #{mod\ 2699}#
+ #{name\ 2700}#
+ #{public?\ 2701}#
+ #{exp\ 2702}#)
(make-struct
(vector-ref %expanded-vtables 6)
0
- #{src\ 2625}#
- #{mod\ 2626}#
- #{name\ 2627}#
- #{public?\ 2628}#
- #{exp\ 2629}#)))
- (#{make-module-ref\ 182}#
- (lambda (#{src\ 2635}#
- #{mod\ 2636}#
- #{name\ 2637}#
- #{public?\ 2638}#)
+ #{src\ 2698}#
+ #{mod\ 2699}#
+ #{name\ 2700}#
+ #{public?\ 2701}#
+ #{exp\ 2702}#)))
+ (#{make-module-ref\ 240}#
+ (lambda (#{src\ 2708}#
+ #{mod\ 2709}#
+ #{name\ 2710}#
+ #{public?\ 2711}#)
(make-struct
(vector-ref %expanded-vtables 5)
0
- #{src\ 2635}#
- #{mod\ 2636}#
- #{name\ 2637}#
- #{public?\ 2638}#)))
- (#{make-lexical-set\ 180}#
- (lambda (#{src\ 2643}#
- #{name\ 2644}#
- #{gensym\ 2645}#
- #{exp\ 2646}#)
+ #{src\ 2708}#
+ #{mod\ 2709}#
+ #{name\ 2710}#
+ #{public?\ 2711}#)))
+ (#{make-lexical-set\ 238}#
+ (lambda (#{src\ 2716}#
+ #{name\ 2717}#
+ #{gensym\ 2718}#
+ #{exp\ 2719}#)
(make-struct
(vector-ref %expanded-vtables 4)
0
- #{src\ 2643}#
- #{name\ 2644}#
- #{gensym\ 2645}#
- #{exp\ 2646}#)))
- (#{make-lexical-ref\ 178}#
- (lambda (#{src\ 2651}# #{name\ 2652}# #{gensym\ 2653}#)
+ #{src\ 2716}#
+ #{name\ 2717}#
+ #{gensym\ 2718}#
+ #{exp\ 2719}#)))
+ (#{make-lexical-ref\ 236}#
+ (lambda (#{src\ 2724}# #{name\ 2725}# #{gensym\ 2726}#)
(make-struct
(vector-ref %expanded-vtables 3)
0
- #{src\ 2651}#
- #{name\ 2652}#
- #{gensym\ 2653}#)))
- (#{make-primitive-ref\ 176}#
- (lambda (#{src\ 2657}# #{name\ 2658}#)
+ #{src\ 2724}#
+ #{name\ 2725}#
+ #{gensym\ 2726}#)))
+ (#{make-primitive-ref\ 234}#
+ (lambda (#{src\ 2730}# #{name\ 2731}#)
(make-struct
(vector-ref %expanded-vtables 2)
0
- #{src\ 2657}#
- #{name\ 2658}#)))
- (#{make-const\ 174}#
- (lambda (#{src\ 2661}# #{exp\ 2662}#)
+ #{src\ 2730}#
+ #{name\ 2731}#)))
+ (#{make-const\ 232}#
+ (lambda (#{src\ 2734}# #{exp\ 2735}#)
(make-struct
(vector-ref %expanded-vtables 1)
0
- #{src\ 2661}#
- #{exp\ 2662}#)))
- (#{make-void\ 172}#
- (lambda (#{src\ 2665}#)
+ #{src\ 2734}#
+ #{exp\ 2735}#)))
+ (#{make-void\ 230}#
+ (lambda (#{src\ 2738}#)
(make-struct
(vector-ref %expanded-vtables 0)
0
- #{src\ 2665}#))))
+ #{src\ 2738}#))))
(begin
- (#{global-extend\ 303}#
+ (#{global-extend\ 368}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 303}#
+ (#{global-extend\ 368}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 303}#
+ (#{global-extend\ 368}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2667}#
- #{r\ 2668}#
- #{w\ 2669}#
- #{s\ 2670}#
- #{mod\ 2671}#)
- ((lambda (#{tmp\ 2677}#)
- ((lambda (#{tmp\ 2678}#)
- (if (if #{tmp\ 2678}#
- (apply (lambda (#{_\ 2684}#
- #{var\ 2685}#
- #{val\ 2686}#
- #{e1\ 2687}#
- #{e2\ 2688}#)
- (#{valid-bound-ids?\ 370}# #{var\ 2685}#))
- #{tmp\ 2678}#)
+ (lambda (#{e\ 2740}#
+ #{r\ 2741}#
+ #{w\ 2742}#
+ #{s\ 2743}#
+ #{mod\ 2744}#)
+ ((lambda (#{tmp\ 2750}#)
+ ((lambda (#{tmp\ 2751}#)
+ (if (if #{tmp\ 2751}#
+ (apply (lambda (#{_\ 2757}#
+ #{var\ 2758}#
+ #{val\ 2759}#
+ #{e1\ 2760}#
+ #{e2\ 2761}#)
+ (#{valid-bound-ids?\ 435}# #{var\ 2758}#))
+ #{tmp\ 2751}#)
#f)
- (apply (lambda (#{_\ 2695}#
- #{var\ 2696}#
- #{val\ 2697}#
- #{e1\ 2698}#
- #{e2\ 2699}#)
- (let ((#{names\ 2701}#
- (map (lambda (#{x\ 2702}#)
- (#{id-var-name\ 364}#
- #{x\ 2702}#
- #{w\ 2669}#))
- #{var\ 2696}#)))
+ (apply (lambda (#{_\ 2768}#
+ #{var\ 2769}#
+ #{val\ 2770}#
+ #{e1\ 2771}#
+ #{e2\ 2772}#)
+ (let ((#{names\ 2774}#
+ (map (lambda (#{x\ 2775}#)
+ (#{id-var-name\ 429}#
+ #{x\ 2775}#
+ #{w\ 2742}#))
+ #{var\ 2769}#)))
(begin
(for-each
- (lambda (#{id\ 2705}# #{n\ 2706}#)
- (let ((#{atom-key\ 2711}#
- (#{binding-type\ 290}#
- (#{lookup\ 301}#
- #{n\ 2706}#
- #{r\ 2668}#
- #{mod\ 2671}#))))
- (if (memv #{atom-key\ 2711}#
+ (lambda (#{id\ 2778}# #{n\ 2779}#)
+ (let ((#{atom-key\ 2784}#
+ (#{binding-type\ 355}#
+ (#{lookup\ 366}#
+ #{n\ 2779}#
+ #{r\ 2741}#
+ #{mod\ 2744}#))))
+ (if (memv #{atom-key\ 2784}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2667}#
- (#{source-wrap\ 378}#
- #{id\ 2705}#
- #{w\ 2669}#
- #{s\ 2670}#
- #{mod\ 2671}#)))))
- #{var\ 2696}#
- #{names\ 2701}#)
- (#{chi-body\ 400}#
- (cons #{e1\ 2698}# #{e2\ 2699}#)
- (#{source-wrap\ 378}#
- #{e\ 2667}#
- #{w\ 2669}#
- #{s\ 2670}#
- #{mod\ 2671}#)
- (#{extend-env\ 295}#
- #{names\ 2701}#
- (let ((#{trans-r\ 2716}#
- (#{macros-only-env\ 299}#
- #{r\ 2668}#)))
- (map (lambda (#{x\ 2717}#)
+ #{e\ 2740}#
+ (#{source-wrap\ 443}#
+ #{id\ 2778}#
+ #{w\ 2742}#
+ #{s\ 2743}#
+ #{mod\ 2744}#)))))
+ #{var\ 2769}#
+ #{names\ 2774}#)
+ (#{chi-body\ 465}#
+ (cons #{e1\ 2771}# #{e2\ 2772}#)
+ (#{source-wrap\ 443}#
+ #{e\ 2740}#
+ #{w\ 2742}#
+ #{s\ 2743}#
+ #{mod\ 2744}#)
+ (#{extend-env\ 360}#
+ #{names\ 2774}#
+ (let ((#{trans-r\ 2789}#
+ (#{macros-only-env\ 364}#
+ #{r\ 2741}#)))
+ (map (lambda (#{x\ 2790}#)
(cons 'macro
- (#{eval-local-transformer\
404}#
- (#{chi\ 392}#
- #{x\ 2717}#
- #{trans-r\ 2716}#
- #{w\ 2669}#
- #{mod\ 2671}#)
- #{mod\ 2671}#)))
- #{val\ 2697}#))
- #{r\ 2668}#)
- #{w\ 2669}#
- #{mod\ 2671}#))))
- #{tmp\ 2678}#)
- ((lambda (#{_\ 2722}#)
+ (#{eval-local-transformer\
469}#
+ (#{chi\ 457}#
+ #{x\ 2790}#
+ #{trans-r\ 2789}#
+ #{w\ 2742}#
+ #{mod\ 2744}#)
+ #{mod\ 2744}#)))
+ #{val\ 2770}#))
+ #{r\ 2741}#)
+ #{w\ 2742}#
+ #{mod\ 2744}#))))
+ #{tmp\ 2751}#)
+ ((lambda (#{_\ 2795}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 378}#
- #{e\ 2667}#
- #{w\ 2669}#
- #{s\ 2670}#
- #{mod\ 2671}#)))
- #{tmp\ 2677}#)))
+ (#{source-wrap\ 443}#
+ #{e\ 2740}#
+ #{w\ 2742}#
+ #{s\ 2743}#
+ #{mod\ 2744}#)))
+ #{tmp\ 2750}#)))
($sc-dispatch
- #{tmp\ 2677}#
+ #{tmp\ 2750}#
'(any #(each (any any)) any . each-any))))
- #{e\ 2667}#)))
- (#{global-extend\ 303}#
+ #{e\ 2740}#)))
+ (#{global-extend\ 368}#
'core
'quote
- (lambda (#{e\ 2723}#
- #{r\ 2724}#
- #{w\ 2725}#
- #{s\ 2726}#
- #{mod\ 2727}#)
- ((lambda (#{tmp\ 2733}#)
- ((lambda (#{tmp\ 2734}#)
- (if #{tmp\ 2734}#
- (apply (lambda (#{_\ 2737}# #{e\ 2738}#)
- (#{build-data\ 257}#
- #{s\ 2726}#
- (#{strip\ 418}# #{e\ 2738}# #{w\ 2725}#)))
- #{tmp\ 2734}#)
- ((lambda (#{_\ 2740}#)
+ (lambda (#{e\ 2796}#
+ #{r\ 2797}#
+ #{w\ 2798}#
+ #{s\ 2799}#
+ #{mod\ 2800}#)
+ ((lambda (#{tmp\ 2806}#)
+ ((lambda (#{tmp\ 2807}#)
+ (if #{tmp\ 2807}#
+ (apply (lambda (#{_\ 2810}# #{e\ 2811}#)
+ (#{build-data\ 322}#
+ #{s\ 2799}#
+ (#{strip\ 483}# #{e\ 2811}# #{w\ 2798}#)))
+ #{tmp\ 2807}#)
+ ((lambda (#{_\ 2813}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 378}#
- #{e\ 2723}#
- #{w\ 2725}#
- #{s\ 2726}#
- #{mod\ 2727}#)))
- #{tmp\ 2733}#)))
- ($sc-dispatch #{tmp\ 2733}# (quote (any any)))))
- #{e\ 2723}#)))
- (#{global-extend\ 303}#
+ (#{source-wrap\ 443}#
+ #{e\ 2796}#
+ #{w\ 2798}#
+ #{s\ 2799}#
+ #{mod\ 2800}#)))
+ #{tmp\ 2806}#)))
+ ($sc-dispatch #{tmp\ 2806}# (quote (any any)))))
+ #{e\ 2796}#)))
+ (#{global-extend\ 368}#
'core
'syntax
- (letrec ((#{regen\ 2756}#
- (lambda (#{x\ 2757}#)
- (let ((#{atom-key\ 2761}# (car #{x\ 2757}#)))
- (if (memv #{atom-key\ 2761}# (quote (ref)))
- (#{build-lexical-reference\ 235}#
+ (letrec ((#{regen\ 2829}#
+ (lambda (#{x\ 2830}#)
+ (let ((#{atom-key\ 2834}# (car #{x\ 2830}#)))
+ (if (memv #{atom-key\ 2834}# (quote (ref)))
+ (#{build-lexical-reference\ 300}#
'value
#f
- (cadr #{x\ 2757}#)
- (cadr #{x\ 2757}#))
- (if (memv #{atom-key\ 2761}# (quote (primitive)))
- (#{build-primref\ 255}# #f (cadr #{x\ 2757}#))
- (if (memv #{atom-key\ 2761}# (quote (quote)))
- (#{build-data\ 257}# #f (cadr #{x\ 2757}#))
- (if (memv #{atom-key\ 2761}# (quote (lambda)))
- (if (list? (cadr #{x\ 2757}#))
- (#{build-simple-lambda\ 249}#
+ (cadr #{x\ 2830}#)
+ (cadr #{x\ 2830}#))
+ (if (memv #{atom-key\ 2834}# (quote (primitive)))
+ (#{build-primref\ 320}# #f (cadr #{x\ 2830}#))
+ (if (memv #{atom-key\ 2834}# (quote (quote)))
+ (#{build-data\ 322}# #f (cadr #{x\ 2830}#))
+ (if (memv #{atom-key\ 2834}# (quote (lambda)))
+ (if (list? (cadr #{x\ 2830}#))
+ (#{build-simple-lambda\ 314}#
#f
- (cadr #{x\ 2757}#)
+ (cadr #{x\ 2830}#)
#f
- (cadr #{x\ 2757}#)
+ (cadr #{x\ 2830}#)
'()
- (#{regen\ 2756}# (caddr #{x\ 2757}#)))
- (error "how did we get here" #{x\ 2757}#))
- (#{build-application\ 229}#
+ (#{regen\ 2829}# (caddr #{x\ 2830}#)))
+ (error "how did we get here" #{x\ 2830}#))
+ (#{build-application\ 294}#
#f
- (#{build-primref\ 255}# #f (car #{x\ 2757}#))
- (map #{regen\ 2756}#
- (cdr #{x\ 2757}#))))))))))
- (#{gen-vector\ 2754}#
- (lambda (#{x\ 2773}#)
- (if (eq? (car #{x\ 2773}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2773}#))
- (if (eq? (car #{x\ 2773}#) (quote quote))
+ (#{build-primref\ 320}# #f (car #{x\ 2830}#))
+ (map #{regen\ 2829}#
+ (cdr #{x\ 2830}#))))))))))
+ (#{gen-vector\ 2827}#
+ (lambda (#{x\ 2846}#)
+ (if (eq? (car #{x\ 2846}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2846}#))
+ (if (eq? (car #{x\ 2846}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 2773}#)))
- (list (quote list->vector) #{x\ 2773}#)))))
- (#{gen-append\ 2752}#
- (lambda (#{x\ 2783}# #{y\ 2784}#)
- (if (equal? #{y\ 2784}# (quote (quote ())))
- #{x\ 2783}#
- (list (quote append) #{x\ 2783}# #{y\ 2784}#))))
- (#{gen-cons\ 2750}#
- (lambda (#{x\ 2788}# #{y\ 2789}#)
- (let ((#{atom-key\ 2794}# (car #{y\ 2789}#)))
- (if (memv #{atom-key\ 2794}# (quote (quote)))
- (if (eq? (car #{x\ 2788}#) (quote quote))
+ (list->vector (cadr #{x\ 2846}#)))
+ (list (quote list->vector) #{x\ 2846}#)))))
+ (#{gen-append\ 2825}#
+ (lambda (#{x\ 2856}# #{y\ 2857}#)
+ (if (equal? #{y\ 2857}# (quote (quote ())))
+ #{x\ 2856}#
+ (list (quote append) #{x\ 2856}# #{y\ 2857}#))))
+ (#{gen-cons\ 2823}#
+ (lambda (#{x\ 2861}# #{y\ 2862}#)
+ (let ((#{atom-key\ 2867}# (car #{y\ 2862}#)))
+ (if (memv #{atom-key\ 2867}# (quote (quote)))
+ (if (eq? (car #{x\ 2861}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 2788}#) (cadr #{y\ 2789}#)))
- (if (eq? (cadr #{y\ 2789}#) (quote ()))
- (list (quote list) #{x\ 2788}#)
- (list (quote cons) #{x\ 2788}# #{y\ 2789}#)))
- (if (memv #{atom-key\ 2794}# (quote (list)))
+ (cons (cadr #{x\ 2861}#) (cadr #{y\ 2862}#)))
+ (if (eq? (cadr #{y\ 2862}#) (quote ()))
+ (list (quote list) #{x\ 2861}#)
+ (list (quote cons) #{x\ 2861}# #{y\ 2862}#)))
+ (if (memv #{atom-key\ 2867}# (quote (list)))
(cons 'list
- (cons #{x\ 2788}# (cdr #{y\ 2789}#)))
- (list (quote cons) #{x\ 2788}# #{y\ 2789}#))))))
- (#{gen-map\ 2748}#
- (lambda (#{e\ 2803}# #{map-env\ 2804}#)
- (let ((#{formals\ 2809}# (map cdr #{map-env\ 2804}#))
- (#{actuals\ 2810}#
- (map (lambda (#{x\ 2811}#)
- (list (quote ref) (car #{x\ 2811}#)))
- #{map-env\ 2804}#)))
- (if (eq? (car #{e\ 2803}#) (quote ref))
- (car #{actuals\ 2810}#)
+ (cons #{x\ 2861}# (cdr #{y\ 2862}#)))
+ (list (quote cons) #{x\ 2861}# #{y\ 2862}#))))))
+ (#{gen-map\ 2821}#
+ (lambda (#{e\ 2876}# #{map-env\ 2877}#)
+ (let ((#{formals\ 2882}# (map cdr #{map-env\ 2877}#))
+ (#{actuals\ 2883}#
+ (map (lambda (#{x\ 2884}#)
+ (list (quote ref) (car #{x\ 2884}#)))
+ #{map-env\ 2877}#)))
+ (if (eq? (car #{e\ 2876}#) (quote ref))
+ (car #{actuals\ 2883}#)
(if (and-map
- (lambda (#{x\ 2818}#)
- (if (eq? (car #{x\ 2818}#) (quote ref))
- (memq (cadr #{x\ 2818}#) #{formals\ 2809}#)
+ (lambda (#{x\ 2891}#)
+ (if (eq? (car #{x\ 2891}#) (quote ref))
+ (memq (cadr #{x\ 2891}#) #{formals\ 2882}#)
#f))
- (cdr #{e\ 2803}#))
+ (cdr #{e\ 2876}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2803}#))
- (map (let ((#{r\ 2824}#
+ (car #{e\ 2876}#))
+ (map (let ((#{r\ 2897}#
(map cons
- #{formals\ 2809}#
- #{actuals\ 2810}#)))
- (lambda (#{x\ 2825}#)
- (cdr (assq (cadr #{x\ 2825}#)
- #{r\ 2824}#))))
- (cdr #{e\ 2803}#))))
+ #{formals\ 2882}#
+ #{actuals\ 2883}#)))
+ (lambda (#{x\ 2898}#)
+ (cdr (assq (cadr #{x\ 2898}#)
+ #{r\ 2897}#))))
+ (cdr #{e\ 2876}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2809}#
- #{e\ 2803}#)
- #{actuals\ 2810}#)))))))
- (#{gen-mappend\ 2746}#
- (lambda (#{e\ 2829}# #{map-env\ 2830}#)
+ #{formals\ 2882}#
+ #{e\ 2876}#)
+ #{actuals\ 2883}#)))))))
+ (#{gen-mappend\ 2819}#
+ (lambda (#{e\ 2902}# #{map-env\ 2903}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2748}# #{e\ 2829}# #{map-env\ 2830}#))))
- (#{gen-ref\ 2744}#
- (lambda (#{src\ 2834}#
- #{var\ 2835}#
- #{level\ 2836}#
- #{maps\ 2837}#)
- (if (#{fx=\ 212}# #{level\ 2836}# 0)
- (values #{var\ 2835}# #{maps\ 2837}#)
- (if (null? #{maps\ 2837}#)
+ (#{gen-map\ 2821}# #{e\ 2902}# #{map-env\ 2903}#))))
+ (#{gen-ref\ 2817}#
+ (lambda (#{src\ 2907}#
+ #{var\ 2908}#
+ #{level\ 2909}#
+ #{maps\ 2910}#)
+ (if (#{fx=\ 277}# #{level\ 2909}# 0)
+ (values #{var\ 2908}# #{maps\ 2910}#)
+ (if (null? #{maps\ 2910}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2834}#)
+ #{src\ 2907}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2744}#
- #{src\ 2834}#
- #{var\ 2835}#
- (#{fx-\ 210}# #{level\ 2836}# 1)
- (cdr #{maps\ 2837}#)))
- (lambda (#{outer-var\ 2842}# #{outer-maps\ 2843}#)
- (let ((#{b\ 2847}#
- (assq #{outer-var\ 2842}#
- (car #{maps\ 2837}#))))
- (if #{b\ 2847}#
- (values (cdr #{b\ 2847}#) #{maps\ 2837}#)
- (let ((#{inner-var\ 2849}#
- (#{gen-var\ 420}# (quote tmp))))
+ (#{gen-ref\ 2817}#
+ #{src\ 2907}#
+ #{var\ 2908}#
+ (#{fx-\ 275}# #{level\ 2909}# 1)
+ (cdr #{maps\ 2910}#)))
+ (lambda (#{outer-var\ 2915}# #{outer-maps\ 2916}#)
+ (let ((#{b\ 2920}#
+ (assq #{outer-var\ 2915}#
+ (car #{maps\ 2910}#))))
+ (if #{b\ 2920}#
+ (values (cdr #{b\ 2920}#) #{maps\ 2910}#)
+ (let ((#{inner-var\ 2922}#
+ (#{gen-var\ 485}# (quote tmp))))
(values
- #{inner-var\ 2849}#
- (cons (cons (cons #{outer-var\ 2842}#
- #{inner-var\ 2849}#)
- (car #{maps\ 2837}#))
- #{outer-maps\ 2843}#)))))))))))
- (#{gen-syntax\ 2742}#
- (lambda (#{src\ 2850}#
- #{e\ 2851}#
- #{r\ 2852}#
- #{maps\ 2853}#
- #{ellipsis?\ 2854}#
- #{mod\ 2855}#)
- (if (#{id?\ 307}# #{e\ 2851}#)
- (let ((#{label\ 2863}#
- (#{id-var-name\ 364}#
- #{e\ 2851}#
+ #{inner-var\ 2922}#
+ (cons (cons (cons #{outer-var\ 2915}#
+ #{inner-var\ 2922}#)
+ (car #{maps\ 2910}#))
+ #{outer-maps\ 2916}#)))))))))))
+ (#{gen-syntax\ 2815}#
+ (lambda (#{src\ 2923}#
+ #{e\ 2924}#
+ #{r\ 2925}#
+ #{maps\ 2926}#
+ #{ellipsis?\ 2927}#
+ #{mod\ 2928}#)
+ (if (#{id?\ 372}# #{e\ 2924}#)
+ (let ((#{label\ 2936}#
+ (#{id-var-name\ 429}#
+ #{e\ 2924}#
'(()))))
- (let ((#{b\ 2866}#
- (#{lookup\ 301}#
- #{label\ 2863}#
- #{r\ 2852}#
- #{mod\ 2855}#)))
- (if (eq? (#{binding-type\ 290}# #{b\ 2866}#)
+ (let ((#{b\ 2939}#
+ (#{lookup\ 366}#
+ #{label\ 2936}#
+ #{r\ 2925}#
+ #{mod\ 2928}#)))
+ (if (eq? (#{binding-type\ 355}# #{b\ 2939}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 2868}#
- (#{binding-value\ 292}# #{b\ 2866}#)))
- (#{gen-ref\ 2744}#
- #{src\ 2850}#
- (car #{var.lev\ 2868}#)
- (cdr #{var.lev\ 2868}#)
- #{maps\ 2853}#)))
- (lambda (#{var\ 2869}# #{maps\ 2870}#)
+ (let ((#{var.lev\ 2941}#
+ (#{binding-value\ 357}# #{b\ 2939}#)))
+ (#{gen-ref\ 2817}#
+ #{src\ 2923}#
+ (car #{var.lev\ 2941}#)
+ (cdr #{var.lev\ 2941}#)
+ #{maps\ 2926}#)))
+ (lambda (#{var\ 2942}# #{maps\ 2943}#)
(values
- (list (quote ref) #{var\ 2869}#)
- #{maps\ 2870}#)))
- (if (#{ellipsis?\ 2854}# #{e\ 2851}#)
+ (list (quote ref) #{var\ 2942}#)
+ #{maps\ 2943}#)))
+ (if (#{ellipsis?\ 2927}# #{e\ 2924}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2850}#)
+ #{src\ 2923}#)
(values
- (list (quote quote) #{e\ 2851}#)
- #{maps\ 2853}#)))))
- ((lambda (#{tmp\ 2875}#)
- ((lambda (#{tmp\ 2876}#)
- (if (if #{tmp\ 2876}#
- (apply (lambda (#{dots\ 2879}# #{e\ 2880}#)
- (#{ellipsis?\ 2854}#
- #{dots\ 2879}#))
- #{tmp\ 2876}#)
+ (list (quote quote) #{e\ 2924}#)
+ #{maps\ 2926}#)))))
+ ((lambda (#{tmp\ 2948}#)
+ ((lambda (#{tmp\ 2949}#)
+ (if (if #{tmp\ 2949}#
+ (apply (lambda (#{dots\ 2952}# #{e\ 2953}#)
+ (#{ellipsis?\ 2927}#
+ #{dots\ 2952}#))
+ #{tmp\ 2949}#)
#f)
- (apply (lambda (#{dots\ 2883}# #{e\ 2884}#)
- (#{gen-syntax\ 2742}#
- #{src\ 2850}#
- #{e\ 2884}#
- #{r\ 2852}#
- #{maps\ 2853}#
- (lambda (#{x\ 2885}#) #f)
- #{mod\ 2855}#))
- #{tmp\ 2876}#)
- ((lambda (#{tmp\ 2887}#)
- (if (if #{tmp\ 2887}#
- (apply (lambda (#{x\ 2891}#
- #{dots\ 2892}#
- #{y\ 2893}#)
- (#{ellipsis?\ 2854}#
- #{dots\ 2892}#))
- #{tmp\ 2887}#)
+ (apply (lambda (#{dots\ 2956}# #{e\ 2957}#)
+ (#{gen-syntax\ 2815}#
+ #{src\ 2923}#
+ #{e\ 2957}#
+ #{r\ 2925}#
+ #{maps\ 2926}#
+ (lambda (#{x\ 2958}#) #f)
+ #{mod\ 2928}#))
+ #{tmp\ 2949}#)
+ ((lambda (#{tmp\ 2960}#)
+ (if (if #{tmp\ 2960}#
+ (apply (lambda (#{x\ 2964}#
+ #{dots\ 2965}#
+ #{y\ 2966}#)
+ (#{ellipsis?\ 2927}#
+ #{dots\ 2965}#))
+ #{tmp\ 2960}#)
#f)
- (apply (lambda (#{x\ 2897}#
- #{dots\ 2898}#
- #{y\ 2899}#)
- (letrec ((#{f\ 2903}#
- (lambda (#{y\ 2904}#
- #{k\ 2905}#)
- ((lambda (#{tmp\
2912}#)
- ((lambda (#{tmp\
2913}#)
- (if (if #{tmp\
2913}#
- (apply
(lambda (#{dots\ 2916}#
-
#{y\ 2917}#)
-
(#{ellipsis?\ 2854}#
-
#{dots\ 2916}#))
-
#{tmp\ 2913}#)
+ (apply (lambda (#{x\ 2970}#
+ #{dots\ 2971}#
+ #{y\ 2972}#)
+ (letrec ((#{f\ 2976}#
+ (lambda (#{y\ 2977}#
+ #{k\ 2978}#)
+ ((lambda (#{tmp\
2985}#)
+ ((lambda (#{tmp\
2986}#)
+ (if (if #{tmp\
2986}#
+ (apply
(lambda (#{dots\ 2989}#
+
#{y\ 2990}#)
+
(#{ellipsis?\ 2927}#
+
#{dots\ 2989}#))
+
#{tmp\ 2986}#)
#f)
- (apply
(lambda (#{dots\ 2920}#
-
#{y\ 2921}#)
-
(#{f\ 2903}#
-
#{y\ 2921}#
-
(lambda (#{maps\ 2922}#)
+ (apply
(lambda (#{dots\ 2993}#
+
#{y\ 2994}#)
+
(#{f\ 2976}#
+
#{y\ 2994}#
+
(lambda (#{maps\ 2995}#)
(call-with-values
(lambda ()
-
(#{k\ 2905}#
+
(#{k\ 2978}#
(cons '()
-
#{maps\ 2922}#)))
-
(lambda (#{x\ 2924}#
-
#{maps\ 2925}#)
-
(if (null? (car #{maps\ 2925}#))
+
#{maps\ 2995}#)))
+
(lambda (#{x\ 2997}#
+
#{maps\ 2998}#)
+
(if (null? (car #{maps\ 2998}#))
(syntax-violation
'syntax
"extra ellipsis"
-
#{src\ 2850}#)
+
#{src\ 2923}#)
(values
-
(#{gen-mappend\ 2746}#
-
#{x\ 2924}#
-
(car #{maps\ 2925}#))
-
(cdr #{maps\ 2925}#))))))))
-
#{tmp\ 2913}#)
- ((lambda
(#{_\ 2929}#)
+
(#{gen-mappend\ 2819}#
+
#{x\ 2997}#
+
(car #{maps\ 2998}#))
+
(cdr #{maps\ 2998}#))))))))
+
#{tmp\ 2986}#)
+ ((lambda
(#{_\ 3002}#)
(call-with-values
(lambda
()
-
(#{gen-syntax\ 2742}#
-
#{src\ 2850}#
-
#{y\ 2904}#
-
#{r\ 2852}#
-
#{maps\ 2853}#
-
#{ellipsis?\ 2854}#
-
#{mod\ 2855}#))
- (lambda
(#{y\ 2930}#
-
#{maps\ 2931}#)
+
(#{gen-syntax\ 2815}#
+
#{src\ 2923}#
+
#{y\ 2977}#
+
#{r\ 2925}#
+
#{maps\ 2926}#
+
#{ellipsis?\ 2927}#
+
#{mod\ 2928}#))
+ (lambda
(#{y\ 3003}#
+
#{maps\ 3004}#)
(call-with-values
(lambda ()
-
(#{k\ 2905}#
-
#{maps\ 2931}#))
-
(lambda (#{x\ 2934}#
-
#{maps\ 2935}#)
+
(#{k\ 2978}#
+
#{maps\ 3004}#))
+
(lambda (#{x\ 3007}#
+
#{maps\ 3008}#)
(values
-
(#{gen-append\ 2752}#
-
#{x\ 2934}#
-
#{y\ 2930}#)
-
#{maps\ 2935}#))))))
- #{tmp\
2912}#)))
+
(#{gen-append\ 2825}#
+
#{x\ 3007}#
+
#{y\ 3003}#)
+
#{maps\ 3008}#))))))
+ #{tmp\
2985}#)))
($sc-dispatch
- #{tmp\ 2912}#
+ #{tmp\ 2985}#
'(any . any))))
- #{y\ 2904}#))))
- (#{f\ 2903}#
- #{y\ 2899}#
- (lambda (#{maps\ 2906}#)
+ #{y\ 2977}#))))
+ (#{f\ 2976}#
+ #{y\ 2972}#
+ (lambda (#{maps\ 2979}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2742}#
- #{src\ 2850}#
- #{x\ 2897}#
- #{r\ 2852}#
+ (#{gen-syntax\ 2815}#
+ #{src\ 2923}#
+ #{x\ 2970}#
+ #{r\ 2925}#
(cons '()
- #{maps\ 2906}#)
- #{ellipsis?\ 2854}#
- #{mod\ 2855}#))
- (lambda (#{x\ 2908}#
- #{maps\ 2909}#)
- (if (null? (car #{maps\
2909}#))
+ #{maps\ 2979}#)
+ #{ellipsis?\ 2927}#
+ #{mod\ 2928}#))
+ (lambda (#{x\ 2981}#
+ #{maps\ 2982}#)
+ (if (null? (car #{maps\
2982}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2850}#)
+ #{src\ 2923}#)
(values
- (#{gen-map\ 2748}#
- #{x\ 2908}#
- (car #{maps\
2909}#))
- (cdr #{maps\
2909}#)))))))))
- #{tmp\ 2887}#)
- ((lambda (#{tmp\ 2938}#)
- (if #{tmp\ 2938}#
- (apply (lambda (#{x\ 2941}#
- #{y\ 2942}#)
+ (#{gen-map\ 2821}#
+ #{x\ 2981}#
+ (car #{maps\
2982}#))
+ (cdr #{maps\
2982}#)))))))))
+ #{tmp\ 2960}#)
+ ((lambda (#{tmp\ 3011}#)
+ (if #{tmp\ 3011}#
+ (apply (lambda (#{x\ 3014}#
+ #{y\ 3015}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2742}#
- #{src\ 2850}#
- #{x\ 2941}#
- #{r\ 2852}#
- #{maps\ 2853}#
- #{ellipsis?\ 2854}#
- #{mod\ 2855}#))
- (lambda (#{x\ 2943}#
- #{maps\ 2944}#)
+ (#{gen-syntax\ 2815}#
+ #{src\ 2923}#
+ #{x\ 3014}#
+ #{r\ 2925}#
+ #{maps\ 2926}#
+ #{ellipsis?\ 2927}#
+ #{mod\ 2928}#))
+ (lambda (#{x\ 3016}#
+ #{maps\ 3017}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2742}#
- #{src\ 2850}#
- #{y\ 2942}#
- #{r\ 2852}#
- #{maps\ 2944}#
- #{ellipsis?\ 2854}#
- #{mod\ 2855}#))
- (lambda (#{y\ 2947}#
- #{maps\
2948}#)
+ (#{gen-syntax\ 2815}#
+ #{src\ 2923}#
+ #{y\ 3015}#
+ #{r\ 2925}#
+ #{maps\ 3017}#
+ #{ellipsis?\ 2927}#
+ #{mod\ 2928}#))
+ (lambda (#{y\ 3020}#
+ #{maps\
3021}#)
(values
- (#{gen-cons\ 2750}#
- #{x\ 2943}#
- #{y\ 2947}#)
- #{maps\
2948}#))))))
- #{tmp\ 2938}#)
- ((lambda (#{tmp\ 2951}#)
- (if #{tmp\ 2951}#
- (apply (lambda (#{e1\ 2954}#
- #{e2\ 2955}#)
+ (#{gen-cons\ 2823}#
+ #{x\ 3016}#
+ #{y\ 3020}#)
+ #{maps\
3021}#))))))
+ #{tmp\ 3011}#)
+ ((lambda (#{tmp\ 3024}#)
+ (if #{tmp\ 3024}#
+ (apply (lambda (#{e1\ 3027}#
+ #{e2\ 3028}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
2742}#
- #{src\ 2850}#
- (cons #{e1\ 2954}#
- #{e2\
2955}#)
- #{r\ 2852}#
- #{maps\ 2853}#
- #{ellipsis?\
2854}#
- #{mod\ 2855}#))
- (lambda (#{e\ 2957}#
- #{maps\
2958}#)
+ (#{gen-syntax\
2815}#
+ #{src\ 2923}#
+ (cons #{e1\ 3027}#
+ #{e2\
3028}#)
+ #{r\ 2925}#
+ #{maps\ 2926}#
+ #{ellipsis?\
2927}#
+ #{mod\ 2928}#))
+ (lambda (#{e\ 3030}#
+ #{maps\
3031}#)
(values
- (#{gen-vector\
2754}#
- #{e\ 2957}#)
- #{maps\ 2958}#))))
- #{tmp\ 2951}#)
- ((lambda (#{_\ 2962}#)
+ (#{gen-vector\
2827}#
+ #{e\ 3030}#)
+ #{maps\ 3031}#))))
+ #{tmp\ 3024}#)
+ ((lambda (#{_\ 3035}#)
(values
(list 'quote
- #{e\ 2851}#)
- #{maps\ 2853}#))
- #{tmp\ 2875}#)))
+ #{e\ 2924}#)
+ #{maps\ 2926}#))
+ #{tmp\ 2948}#)))
($sc-dispatch
- #{tmp\ 2875}#
+ #{tmp\ 2948}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 2875}#
+ #{tmp\ 2948}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 2875}#
+ #{tmp\ 2948}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 2875}# (quote (any any)))))
- #{e\ 2851}#)))))
- (lambda (#{e\ 2964}#
- #{r\ 2965}#
- #{w\ 2966}#
- #{s\ 2967}#
- #{mod\ 2968}#)
- (let ((#{e\ 2975}#
- (#{source-wrap\ 378}#
- #{e\ 2964}#
- #{w\ 2966}#
- #{s\ 2967}#
- #{mod\ 2968}#)))
- ((lambda (#{tmp\ 2976}#)
- ((lambda (#{tmp\ 2977}#)
- (if #{tmp\ 2977}#
- (apply (lambda (#{_\ 2980}# #{x\ 2981}#)
+ ($sc-dispatch #{tmp\ 2948}# (quote (any any)))))
+ #{e\ 2924}#)))))
+ (lambda (#{e\ 3037}#
+ #{r\ 3038}#
+ #{w\ 3039}#
+ #{s\ 3040}#
+ #{mod\ 3041}#)
+ (let ((#{e\ 3048}#
+ (#{source-wrap\ 443}#
+ #{e\ 3037}#
+ #{w\ 3039}#
+ #{s\ 3040}#
+ #{mod\ 3041}#)))
+ ((lambda (#{tmp\ 3049}#)
+ ((lambda (#{tmp\ 3050}#)
+ (if #{tmp\ 3050}#
+ (apply (lambda (#{_\ 3053}# #{x\ 3054}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2742}#
- #{e\ 2975}#
- #{x\ 2981}#
- #{r\ 2965}#
+ (#{gen-syntax\ 2815}#
+ #{e\ 3048}#
+ #{x\ 3054}#
+ #{r\ 3038}#
'()
- #{ellipsis?\ 408}#
- #{mod\ 2968}#))
- (lambda (#{e\ 2982}# #{maps\ 2983}#)
- (#{regen\ 2756}# #{e\ 2982}#))))
- #{tmp\ 2977}#)
- ((lambda (#{_\ 2987}#)
+ #{ellipsis?\ 473}#
+ #{mod\ 3041}#))
+ (lambda (#{e\ 3055}# #{maps\ 3056}#)
+ (#{regen\ 2829}# #{e\ 3055}#))))
+ #{tmp\ 3050}#)
+ ((lambda (#{_\ 3060}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 2975}#))
- #{tmp\ 2976}#)))
- ($sc-dispatch #{tmp\ 2976}# (quote (any any)))))
- #{e\ 2975}#)))))
- (#{global-extend\ 303}#
+ #{e\ 3048}#))
+ #{tmp\ 3049}#)))
+ ($sc-dispatch #{tmp\ 3049}# (quote (any any)))))
+ #{e\ 3048}#)))))
+ (#{global-extend\ 368}#
'core
'lambda
- (lambda (#{e\ 2988}#
- #{r\ 2989}#
- #{w\ 2990}#
- #{s\ 2991}#
- #{mod\ 2992}#)
- ((lambda (#{tmp\ 2998}#)
- ((lambda (#{tmp\ 2999}#)
- (if #{tmp\ 2999}#
- (apply (lambda (#{_\ 3004}#
- #{args\ 3005}#
- #{e1\ 3006}#
- #{e2\ 3007}#)
+ (lambda (#{e\ 3061}#
+ #{r\ 3062}#
+ #{w\ 3063}#
+ #{s\ 3064}#
+ #{mod\ 3065}#)
+ ((lambda (#{tmp\ 3071}#)
+ ((lambda (#{tmp\ 3072}#)
+ (if #{tmp\ 3072}#
+ (apply (lambda (#{_\ 3077}#
+ #{args\ 3078}#
+ #{e1\ 3079}#
+ #{e2\ 3080}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 410}# #{args\ 3005}#))
- (lambda (#{req\ 3008}#
- #{opt\ 3009}#
- #{rest\ 3010}#
- #{kw\ 3011}#)
- (letrec ((#{lp\ 3019}#
- (lambda (#{body\ 3020}#
- #{meta\ 3021}#)
- ((lambda (#{tmp\ 3023}#)
- ((lambda (#{tmp\ 3024}#)
- (if (if #{tmp\ 3024}#
- (apply (lambda
(#{docstring\ 3028}#
- #{e1\
3029}#
- #{e2\
3030}#)
+ (#{lambda-formals\ 475}# #{args\ 3078}#))
+ (lambda (#{req\ 3081}#
+ #{opt\ 3082}#
+ #{rest\ 3083}#
+ #{kw\ 3084}#)
+ (letrec ((#{lp\ 3092}#
+ (lambda (#{body\ 3093}#
+ #{meta\ 3094}#)
+ ((lambda (#{tmp\ 3096}#)
+ ((lambda (#{tmp\ 3097}#)
+ (if (if #{tmp\ 3097}#
+ (apply (lambda
(#{docstring\ 3101}#
+ #{e1\
3102}#
+ #{e2\
3103}#)
(string?
(syntax->datum
-
#{docstring\ 3028}#)))
- #{tmp\ 3024}#)
+
#{docstring\ 3101}#)))
+ #{tmp\ 3097}#)
#f)
- (apply (lambda
(#{docstring\ 3034}#
- #{e1\
3035}#
- #{e2\
3036}#)
- (#{lp\ 3019}#
- (cons #{e1\
3035}#
- #{e2\
3036}#)
+ (apply (lambda
(#{docstring\ 3107}#
+ #{e1\
3108}#
+ #{e2\
3109}#)
+ (#{lp\ 3092}#
+ (cons #{e1\
3108}#
+ #{e2\
3109}#)
(append
- #{meta\ 3021}#
+ #{meta\ 3094}#
(list (cons
'documentation
(syntax->datum
-
#{docstring\ 3034}#))))))
- #{tmp\ 3024}#)
- ((lambda (#{tmp\ 3039}#)
- (if #{tmp\ 3039}#
- (apply (lambda (#{k\
3044}#
- #{v\
3045}#
- #{e1\
3046}#
- #{e2\
3047}#)
- (#{lp\ 3019}#
- (cons
#{e1\ 3046}#
-
#{e2\ 3047}#)
+
#{docstring\ 3107}#))))))
+ #{tmp\ 3097}#)
+ ((lambda (#{tmp\ 3112}#)
+ (if #{tmp\ 3112}#
+ (apply (lambda (#{k\
3117}#
+ #{v\
3118}#
+ #{e1\
3119}#
+ #{e2\
3120}#)
+ (#{lp\ 3092}#
+ (cons
#{e1\ 3119}#
+
#{e2\ 3120}#)
(append
- #{meta\
3021}#
+ #{meta\
3094}#
(syntax->datum
(map
cons
-
#{k\ 3044}#
-
#{v\ 3045}#)))))
- #{tmp\ 3039}#)
- ((lambda (#{_\ 3052}#)
-
(#{chi-simple-lambda\ 412}#
- #{e\ 2988}#
- #{r\ 2989}#
- #{w\ 2990}#
- #{s\ 2991}#
- #{mod\ 2992}#
- #{req\ 3008}#
- #{rest\ 3010}#
- #{meta\ 3021}#
- #{body\ 3020}#))
- #{tmp\ 3023}#)))
+
#{k\ 3117}#
+
#{v\ 3118}#)))))
+ #{tmp\ 3112}#)
+ ((lambda (#{_\ 3125}#)
+
(#{chi-simple-lambda\ 477}#
+ #{e\ 3061}#
+ #{r\ 3062}#
+ #{w\ 3063}#
+ #{s\ 3064}#
+ #{mod\ 3065}#
+ #{req\ 3081}#
+ #{rest\ 3083}#
+ #{meta\ 3094}#
+ #{body\ 3093}#))
+ #{tmp\ 3096}#)))
($sc-dispatch
- #{tmp\ 3023}#
+ #{tmp\ 3096}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 3023}#
+ #{tmp\ 3096}#
'(any any . each-any))))
- #{body\ 3020}#))))
- (#{lp\ 3019}#
- (cons #{e1\ 3006}# #{e2\ 3007}#)
+ #{body\ 3093}#))))
+ (#{lp\ 3092}#
+ (cons #{e1\ 3079}# #{e2\ 3080}#)
'())))))
- #{tmp\ 2999}#)
- ((lambda (#{_\ 3054}#)
+ #{tmp\ 3072}#)
+ ((lambda (#{_\ 3127}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 2988}#))
- #{tmp\ 2998}#)))
+ #{e\ 3061}#))
+ #{tmp\ 3071}#)))
($sc-dispatch
- #{tmp\ 2998}#
+ #{tmp\ 3071}#
'(any any any . each-any))))
- #{e\ 2988}#)))
- (#{global-extend\ 303}#
+ #{e\ 3061}#)))
+ (#{global-extend\ 368}#
'core
'lambda*
- (lambda (#{e\ 3055}#
- #{r\ 3056}#
- #{w\ 3057}#
- #{s\ 3058}#
- #{mod\ 3059}#)
- ((lambda (#{tmp\ 3065}#)
- ((lambda (#{tmp\ 3066}#)
- (if #{tmp\ 3066}#
- (apply (lambda (#{_\ 3071}#
- #{args\ 3072}#
- #{e1\ 3073}#
- #{e2\ 3074}#)
+ (lambda (#{e\ 3128}#
+ #{r\ 3129}#
+ #{w\ 3130}#
+ #{s\ 3131}#
+ #{mod\ 3132}#)
+ ((lambda (#{tmp\ 3138}#)
+ ((lambda (#{tmp\ 3139}#)
+ (if #{tmp\ 3139}#
+ (apply (lambda (#{_\ 3144}#
+ #{args\ 3145}#
+ #{e1\ 3146}#
+ #{e2\ 3147}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 416}#
- #{e\ 3055}#
- #{r\ 3056}#
- #{w\ 3057}#
- #{s\ 3058}#
- #{mod\ 3059}#
- #{lambda*-formals\ 414}#
- (list (cons #{args\ 3072}#
- (cons #{e1\ 3073}#
- #{e2\ 3074}#)))))
- (lambda (#{meta\ 3076}# #{lcase\ 3077}#)
- (#{build-case-lambda\ 251}#
- #{s\ 3058}#
- #{meta\ 3076}#
- #{lcase\ 3077}#))))
- #{tmp\ 3066}#)
- ((lambda (#{_\ 3081}#)
+ (#{chi-lambda-case\ 481}#
+ #{e\ 3128}#
+ #{r\ 3129}#
+ #{w\ 3130}#
+ #{s\ 3131}#
+ #{mod\ 3132}#
+ #{lambda*-formals\ 479}#
+ (list (cons #{args\ 3145}#
+ (cons #{e1\ 3146}#
+ #{e2\ 3147}#)))))
+ (lambda (#{meta\ 3149}# #{lcase\ 3150}#)
+ (#{build-case-lambda\ 316}#
+ #{s\ 3131}#
+ #{meta\ 3149}#
+ #{lcase\ 3150}#))))
+ #{tmp\ 3139}#)
+ ((lambda (#{_\ 3154}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3055}#))
- #{tmp\ 3065}#)))
+ #{e\ 3128}#))
+ #{tmp\ 3138}#)))
($sc-dispatch
- #{tmp\ 3065}#
+ #{tmp\ 3138}#
'(any any any . each-any))))
- #{e\ 3055}#)))
- (#{global-extend\ 303}#
+ #{e\ 3128}#)))
+ (#{global-extend\ 368}#
'core
'case-lambda
- (lambda (#{e\ 3082}#
- #{r\ 3083}#
- #{w\ 3084}#
- #{s\ 3085}#
- #{mod\ 3086}#)
- ((lambda (#{tmp\ 3092}#)
- ((lambda (#{tmp\ 3093}#)
- (if #{tmp\ 3093}#
- (apply (lambda (#{_\ 3101}#
- #{args\ 3102}#
- #{e1\ 3103}#
- #{e2\ 3104}#
- #{args*\ 3105}#
- #{e1*\ 3106}#
- #{e2*\ 3107}#)
+ (lambda (#{e\ 3155}#
+ #{r\ 3156}#
+ #{w\ 3157}#
+ #{s\ 3158}#
+ #{mod\ 3159}#)
+ ((lambda (#{tmp\ 3165}#)
+ ((lambda (#{tmp\ 3166}#)
+ (if #{tmp\ 3166}#
+ (apply (lambda (#{_\ 3174}#
+ #{args\ 3175}#
+ #{e1\ 3176}#
+ #{e2\ 3177}#
+ #{args*\ 3178}#
+ #{e1*\ 3179}#
+ #{e2*\ 3180}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 416}#
- #{e\ 3082}#
- #{r\ 3083}#
- #{w\ 3084}#
- #{s\ 3085}#
- #{mod\ 3086}#
- #{lambda-formals\ 410}#
- (cons (cons #{args\ 3102}#
- (cons #{e1\ 3103}# #{e2\ 3104}#))
- (map (lambda (#{tmp\ 3111}#
- #{tmp\ 3110}#
- #{tmp\ 3109}#)
- (cons #{tmp\ 3109}#
- (cons #{tmp\ 3110}#
- #{tmp\ 3111}#)))
- #{e2*\ 3107}#
- #{e1*\ 3106}#
- #{args*\ 3105}#))))
- (lambda (#{meta\ 3113}# #{lcase\ 3114}#)
- (#{build-case-lambda\ 251}#
- #{s\ 3085}#
- #{meta\ 3113}#
- #{lcase\ 3114}#))))
- #{tmp\ 3093}#)
- ((lambda (#{_\ 3118}#)
+ (#{chi-lambda-case\ 481}#
+ #{e\ 3155}#
+ #{r\ 3156}#
+ #{w\ 3157}#
+ #{s\ 3158}#
+ #{mod\ 3159}#
+ #{lambda-formals\ 475}#
+ (cons (cons #{args\ 3175}#
+ (cons #{e1\ 3176}# #{e2\ 3177}#))
+ (map (lambda (#{tmp\ 3184}#
+ #{tmp\ 3183}#
+ #{tmp\ 3182}#)
+ (cons #{tmp\ 3182}#
+ (cons #{tmp\ 3183}#
+ #{tmp\ 3184}#)))
+ #{e2*\ 3180}#
+ #{e1*\ 3179}#
+ #{args*\ 3178}#))))
+ (lambda (#{meta\ 3186}# #{lcase\ 3187}#)
+ (#{build-case-lambda\ 316}#
+ #{s\ 3158}#
+ #{meta\ 3186}#
+ #{lcase\ 3187}#))))
+ #{tmp\ 3166}#)
+ ((lambda (#{_\ 3191}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3082}#))
- #{tmp\ 3092}#)))
+ #{e\ 3155}#))
+ #{tmp\ 3165}#)))
($sc-dispatch
- #{tmp\ 3092}#
+ #{tmp\ 3165}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3082}#)))
- (#{global-extend\ 303}#
+ #{e\ 3155}#)))
+ (#{global-extend\ 368}#
'core
'case-lambda*
- (lambda (#{e\ 3119}#
- #{r\ 3120}#
- #{w\ 3121}#
- #{s\ 3122}#
- #{mod\ 3123}#)
- ((lambda (#{tmp\ 3129}#)
- ((lambda (#{tmp\ 3130}#)
- (if #{tmp\ 3130}#
- (apply (lambda (#{_\ 3138}#
- #{args\ 3139}#
- #{e1\ 3140}#
- #{e2\ 3141}#
- #{args*\ 3142}#
- #{e1*\ 3143}#
- #{e2*\ 3144}#)
+ (lambda (#{e\ 3192}#
+ #{r\ 3193}#
+ #{w\ 3194}#
+ #{s\ 3195}#
+ #{mod\ 3196}#)
+ ((lambda (#{tmp\ 3202}#)
+ ((lambda (#{tmp\ 3203}#)
+ (if #{tmp\ 3203}#
+ (apply (lambda (#{_\ 3211}#
+ #{args\ 3212}#
+ #{e1\ 3213}#
+ #{e2\ 3214}#
+ #{args*\ 3215}#
+ #{e1*\ 3216}#
+ #{e2*\ 3217}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 416}#
- #{e\ 3119}#
- #{r\ 3120}#
- #{w\ 3121}#
- #{s\ 3122}#
- #{mod\ 3123}#
- #{lambda*-formals\ 414}#
- (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\ 251}#
- #{s\ 3122}#
- #{meta\ 3150}#
- #{lcase\ 3151}#))))
- #{tmp\ 3130}#)
- ((lambda (#{_\ 3155}#)
+ (#{chi-lambda-case\ 481}#
+ #{e\ 3192}#
+ #{r\ 3193}#
+ #{w\ 3194}#
+ #{s\ 3195}#
+ #{mod\ 3196}#
+ #{lambda*-formals\ 479}#
+ (cons (cons #{args\ 3212}#
+ (cons #{e1\ 3213}# #{e2\ 3214}#))
+ (map (lambda (#{tmp\ 3221}#
+ #{tmp\ 3220}#
+ #{tmp\ 3219}#)
+ (cons #{tmp\ 3219}#
+ (cons #{tmp\ 3220}#
+ #{tmp\ 3221}#)))
+ #{e2*\ 3217}#
+ #{e1*\ 3216}#
+ #{args*\ 3215}#))))
+ (lambda (#{meta\ 3223}# #{lcase\ 3224}#)
+ (#{build-case-lambda\ 316}#
+ #{s\ 3195}#
+ #{meta\ 3223}#
+ #{lcase\ 3224}#))))
+ #{tmp\ 3203}#)
+ ((lambda (#{_\ 3228}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3119}#))
- #{tmp\ 3129}#)))
+ #{e\ 3192}#))
+ #{tmp\ 3202}#)))
($sc-dispatch
- #{tmp\ 3129}#
+ #{tmp\ 3202}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3119}#)))
- (#{global-extend\ 303}#
+ #{e\ 3192}#)))
+ (#{global-extend\ 368}#
'core
'let
- (letrec ((#{chi-let\ 3157}#
- (lambda (#{e\ 3158}#
- #{r\ 3159}#
- #{w\ 3160}#
- #{s\ 3161}#
- #{mod\ 3162}#
- #{constructor\ 3163}#
- #{ids\ 3164}#
- #{vals\ 3165}#
- #{exps\ 3166}#)
- (if (not (#{valid-bound-ids?\ 370}# #{ids\ 3164}#))
+ (letrec ((#{chi-let\ 3230}#
+ (lambda (#{e\ 3231}#
+ #{r\ 3232}#
+ #{w\ 3233}#
+ #{s\ 3234}#
+ #{mod\ 3235}#
+ #{constructor\ 3236}#
+ #{ids\ 3237}#
+ #{vals\ 3238}#
+ #{exps\ 3239}#)
+ (if (not (#{valid-bound-ids?\ 435}# #{ids\ 3237}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3158}#)
- (let ((#{labels\ 3178}#
- (#{gen-labels\ 325}# #{ids\ 3164}#))
- (#{new-vars\ 3179}#
- (map #{gen-var\ 420}# #{ids\ 3164}#)))
- (let ((#{nw\ 3182}#
- (#{make-binding-wrap\ 354}#
- #{ids\ 3164}#
- #{labels\ 3178}#
- #{w\ 3160}#))
- (#{nr\ 3183}#
- (#{extend-var-env\ 297}#
- #{labels\ 3178}#
- #{new-vars\ 3179}#
- #{r\ 3159}#)))
- (#{constructor\ 3163}#
- #{s\ 3161}#
- (map syntax->datum #{ids\ 3164}#)
- #{new-vars\ 3179}#
- (map (lambda (#{x\ 3184}#)
- (#{chi\ 392}#
- #{x\ 3184}#
- #{r\ 3159}#
- #{w\ 3160}#
- #{mod\ 3162}#))
- #{vals\ 3165}#)
- (#{chi-body\ 400}#
- #{exps\ 3166}#
- (#{source-wrap\ 378}#
- #{e\ 3158}#
- #{nw\ 3182}#
- #{s\ 3161}#
- #{mod\ 3162}#)
- #{nr\ 3183}#
- #{nw\ 3182}#
- #{mod\ 3162}#))))))))
- (lambda (#{e\ 3186}#
- #{r\ 3187}#
- #{w\ 3188}#
- #{s\ 3189}#
- #{mod\ 3190}#)
- ((lambda (#{tmp\ 3196}#)
- ((lambda (#{tmp\ 3197}#)
- (if (if #{tmp\ 3197}#
- (apply (lambda (#{_\ 3203}#
- #{id\ 3204}#
- #{val\ 3205}#
- #{e1\ 3206}#
- #{e2\ 3207}#)
- (and-map #{id?\ 307}# #{id\ 3204}#))
- #{tmp\ 3197}#)
+ #{e\ 3231}#)
+ (let ((#{labels\ 3251}#
+ (#{gen-labels\ 390}# #{ids\ 3237}#))
+ (#{new-vars\ 3252}#
+ (map #{gen-var\ 485}# #{ids\ 3237}#)))
+ (let ((#{nw\ 3255}#
+ (#{make-binding-wrap\ 419}#
+ #{ids\ 3237}#
+ #{labels\ 3251}#
+ #{w\ 3233}#))
+ (#{nr\ 3256}#
+ (#{extend-var-env\ 362}#
+ #{labels\ 3251}#
+ #{new-vars\ 3252}#
+ #{r\ 3232}#)))
+ (#{constructor\ 3236}#
+ #{s\ 3234}#
+ (map syntax->datum #{ids\ 3237}#)
+ #{new-vars\ 3252}#
+ (map (lambda (#{x\ 3257}#)
+ (#{chi\ 457}#
+ #{x\ 3257}#
+ #{r\ 3232}#
+ #{w\ 3233}#
+ #{mod\ 3235}#))
+ #{vals\ 3238}#)
+ (#{chi-body\ 465}#
+ #{exps\ 3239}#
+ (#{source-wrap\ 443}#
+ #{e\ 3231}#
+ #{nw\ 3255}#
+ #{s\ 3234}#
+ #{mod\ 3235}#)
+ #{nr\ 3256}#
+ #{nw\ 3255}#
+ #{mod\ 3235}#))))))))
+ (lambda (#{e\ 3259}#
+ #{r\ 3260}#
+ #{w\ 3261}#
+ #{s\ 3262}#
+ #{mod\ 3263}#)
+ ((lambda (#{tmp\ 3269}#)
+ ((lambda (#{tmp\ 3270}#)
+ (if (if #{tmp\ 3270}#
+ (apply (lambda (#{_\ 3276}#
+ #{id\ 3277}#
+ #{val\ 3278}#
+ #{e1\ 3279}#
+ #{e2\ 3280}#)
+ (and-map #{id?\ 372}# #{id\ 3277}#))
+ #{tmp\ 3270}#)
#f)
- (apply (lambda (#{_\ 3214}#
- #{id\ 3215}#
- #{val\ 3216}#
- #{e1\ 3217}#
- #{e2\ 3218}#)
- (#{chi-let\ 3157}#
- #{e\ 3186}#
- #{r\ 3187}#
- #{w\ 3188}#
- #{s\ 3189}#
- #{mod\ 3190}#
- #{build-let\ 261}#
- #{id\ 3215}#
- #{val\ 3216}#
- (cons #{e1\ 3217}# #{e2\ 3218}#)))
- #{tmp\ 3197}#)
- ((lambda (#{tmp\ 3222}#)
- (if (if #{tmp\ 3222}#
- (apply (lambda (#{_\ 3229}#
- #{f\ 3230}#
- #{id\ 3231}#
- #{val\ 3232}#
- #{e1\ 3233}#
- #{e2\ 3234}#)
- (if (#{id?\ 307}# #{f\ 3230}#)
- (and-map #{id?\ 307}# #{id\ 3231}#)
+ (apply (lambda (#{_\ 3287}#
+ #{id\ 3288}#
+ #{val\ 3289}#
+ #{e1\ 3290}#
+ #{e2\ 3291}#)
+ (#{chi-let\ 3230}#
+ #{e\ 3259}#
+ #{r\ 3260}#
+ #{w\ 3261}#
+ #{s\ 3262}#
+ #{mod\ 3263}#
+ #{build-let\ 326}#
+ #{id\ 3288}#
+ #{val\ 3289}#
+ (cons #{e1\ 3290}# #{e2\ 3291}#)))
+ #{tmp\ 3270}#)
+ ((lambda (#{tmp\ 3295}#)
+ (if (if #{tmp\ 3295}#
+ (apply (lambda (#{_\ 3302}#
+ #{f\ 3303}#
+ #{id\ 3304}#
+ #{val\ 3305}#
+ #{e1\ 3306}#
+ #{e2\ 3307}#)
+ (if (#{id?\ 372}# #{f\ 3303}#)
+ (and-map #{id?\ 372}# #{id\ 3304}#)
#f))
- #{tmp\ 3222}#)
+ #{tmp\ 3295}#)
#f)
- (apply (lambda (#{_\ 3244}#
- #{f\ 3245}#
- #{id\ 3246}#
- #{val\ 3247}#
- #{e1\ 3248}#
- #{e2\ 3249}#)
- (#{chi-let\ 3157}#
- #{e\ 3186}#
- #{r\ 3187}#
- #{w\ 3188}#
- #{s\ 3189}#
- #{mod\ 3190}#
- #{build-named-let\ 263}#
- (cons #{f\ 3245}# #{id\ 3246}#)
- #{val\ 3247}#
- (cons #{e1\ 3248}# #{e2\ 3249}#)))
- #{tmp\ 3222}#)
- ((lambda (#{_\ 3254}#)
+ (apply (lambda (#{_\ 3317}#
+ #{f\ 3318}#
+ #{id\ 3319}#
+ #{val\ 3320}#
+ #{e1\ 3321}#
+ #{e2\ 3322}#)
+ (#{chi-let\ 3230}#
+ #{e\ 3259}#
+ #{r\ 3260}#
+ #{w\ 3261}#
+ #{s\ 3262}#
+ #{mod\ 3263}#
+ #{build-named-let\ 328}#
+ (cons #{f\ 3318}# #{id\ 3319}#)
+ #{val\ 3320}#
+ (cons #{e1\ 3321}# #{e2\ 3322}#)))
+ #{tmp\ 3295}#)
+ ((lambda (#{_\ 3327}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 378}#
- #{e\ 3186}#
- #{w\ 3188}#
- #{s\ 3189}#
- #{mod\ 3190}#)))
- #{tmp\ 3196}#)))
+ (#{source-wrap\ 443}#
+ #{e\ 3259}#
+ #{w\ 3261}#
+ #{s\ 3262}#
+ #{mod\ 3263}#)))
+ #{tmp\ 3269}#)))
($sc-dispatch
- #{tmp\ 3196}#
+ #{tmp\ 3269}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3196}#
+ #{tmp\ 3269}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3186}#))))
- (#{global-extend\ 303}#
+ #{e\ 3259}#))))
+ (#{global-extend\ 368}#
'core
'letrec
- (lambda (#{e\ 3255}#
- #{r\ 3256}#
- #{w\ 3257}#
- #{s\ 3258}#
- #{mod\ 3259}#)
- ((lambda (#{tmp\ 3265}#)
- ((lambda (#{tmp\ 3266}#)
- (if (if #{tmp\ 3266}#
- (apply (lambda (#{_\ 3272}#
- #{id\ 3273}#
- #{val\ 3274}#
- #{e1\ 3275}#
- #{e2\ 3276}#)
- (and-map #{id?\ 307}# #{id\ 3273}#))
- #{tmp\ 3266}#)
+ (lambda (#{e\ 3328}#
+ #{r\ 3329}#
+ #{w\ 3330}#
+ #{s\ 3331}#
+ #{mod\ 3332}#)
+ ((lambda (#{tmp\ 3338}#)
+ ((lambda (#{tmp\ 3339}#)
+ (if (if #{tmp\ 3339}#
+ (apply (lambda (#{_\ 3345}#
+ #{id\ 3346}#
+ #{val\ 3347}#
+ #{e1\ 3348}#
+ #{e2\ 3349}#)
+ (and-map #{id?\ 372}# #{id\ 3346}#))
+ #{tmp\ 3339}#)
#f)
- (apply (lambda (#{_\ 3283}#
- #{id\ 3284}#
- #{val\ 3285}#
- #{e1\ 3286}#
- #{e2\ 3287}#)
- (let ((#{ids\ 3289}# #{id\ 3284}#))
- (if (not (#{valid-bound-ids?\ 370}#
- #{ids\ 3289}#))
+ (apply (lambda (#{_\ 3356}#
+ #{id\ 3357}#
+ #{val\ 3358}#
+ #{e1\ 3359}#
+ #{e2\ 3360}#)
+ (let ((#{ids\ 3362}# #{id\ 3357}#))
+ (if (not (#{valid-bound-ids?\ 435}#
+ #{ids\ 3362}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3255}#)
- (let ((#{labels\ 3293}#
- (#{gen-labels\ 325}# #{ids\ 3289}#))
- (#{new-vars\ 3294}#
- (map #{gen-var\ 420}# #{ids\ 3289}#)))
- (let ((#{w\ 3297}#
- (#{make-binding-wrap\ 354}#
- #{ids\ 3289}#
- #{labels\ 3293}#
- #{w\ 3257}#))
- (#{r\ 3298}#
- (#{extend-var-env\ 297}#
- #{labels\ 3293}#
- #{new-vars\ 3294}#
- #{r\ 3256}#)))
- (#{build-letrec\ 265}#
- #{s\ 3258}#
- (map syntax->datum #{ids\ 3289}#)
- #{new-vars\ 3294}#
- (map (lambda (#{x\ 3299}#)
- (#{chi\ 392}#
- #{x\ 3299}#
- #{r\ 3298}#
- #{w\ 3297}#
- #{mod\ 3259}#))
- #{val\ 3285}#)
- (#{chi-body\ 400}#
- (cons #{e1\ 3286}# #{e2\ 3287}#)
- (#{source-wrap\ 378}#
- #{e\ 3255}#
- #{w\ 3297}#
- #{s\ 3258}#
- #{mod\ 3259}#)
- #{r\ 3298}#
- #{w\ 3297}#
- #{mod\ 3259}#)))))))
- #{tmp\ 3266}#)
- ((lambda (#{_\ 3304}#)
+ #{e\ 3328}#)
+ (let ((#{labels\ 3366}#
+ (#{gen-labels\ 390}# #{ids\ 3362}#))
+ (#{new-vars\ 3367}#
+ (map #{gen-var\ 485}# #{ids\ 3362}#)))
+ (let ((#{w\ 3370}#
+ (#{make-binding-wrap\ 419}#
+ #{ids\ 3362}#
+ #{labels\ 3366}#
+ #{w\ 3330}#))
+ (#{r\ 3371}#
+ (#{extend-var-env\ 362}#
+ #{labels\ 3366}#
+ #{new-vars\ 3367}#
+ #{r\ 3329}#)))
+ (#{build-letrec\ 330}#
+ #{s\ 3331}#
+ (map syntax->datum #{ids\ 3362}#)
+ #{new-vars\ 3367}#
+ (map (lambda (#{x\ 3372}#)
+ (#{chi\ 457}#
+ #{x\ 3372}#
+ #{r\ 3371}#
+ #{w\ 3370}#
+ #{mod\ 3332}#))
+ #{val\ 3358}#)
+ (#{chi-body\ 465}#
+ (cons #{e1\ 3359}# #{e2\ 3360}#)
+ (#{source-wrap\ 443}#
+ #{e\ 3328}#
+ #{w\ 3370}#
+ #{s\ 3331}#
+ #{mod\ 3332}#)
+ #{r\ 3371}#
+ #{w\ 3370}#
+ #{mod\ 3332}#)))))))
+ #{tmp\ 3339}#)
+ ((lambda (#{_\ 3377}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 378}#
- #{e\ 3255}#
- #{w\ 3257}#
- #{s\ 3258}#
- #{mod\ 3259}#)))
- #{tmp\ 3265}#)))
+ (#{source-wrap\ 443}#
+ #{e\ 3328}#
+ #{w\ 3330}#
+ #{s\ 3331}#
+ #{mod\ 3332}#)))
+ #{tmp\ 3338}#)))
($sc-dispatch
- #{tmp\ 3265}#
+ #{tmp\ 3338}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3255}#)))
- (#{global-extend\ 303}#
+ #{e\ 3328}#)))
+ (#{global-extend\ 368}#
'core
'set!
- (lambda (#{e\ 3305}#
- #{r\ 3306}#
- #{w\ 3307}#
- #{s\ 3308}#
- #{mod\ 3309}#)
- ((lambda (#{tmp\ 3315}#)
- ((lambda (#{tmp\ 3316}#)
- (if (if #{tmp\ 3316}#
- (apply (lambda (#{_\ 3320}# #{id\ 3321}# #{val\ 3322}#)
- (#{id?\ 307}# #{id\ 3321}#))
- #{tmp\ 3316}#)
+ (lambda (#{e\ 3378}#
+ #{r\ 3379}#
+ #{w\ 3380}#
+ #{s\ 3381}#
+ #{mod\ 3382}#)
+ ((lambda (#{tmp\ 3388}#)
+ ((lambda (#{tmp\ 3389}#)
+ (if (if #{tmp\ 3389}#
+ (apply (lambda (#{_\ 3393}# #{id\ 3394}# #{val\ 3395}#)
+ (#{id?\ 372}# #{id\ 3394}#))
+ #{tmp\ 3389}#)
#f)
- (apply (lambda (#{_\ 3326}# #{id\ 3327}# #{val\ 3328}#)
- (let ((#{val\ 3331}#
- (#{chi\ 392}#
- #{val\ 3328}#
- #{r\ 3306}#
- #{w\ 3307}#
- #{mod\ 3309}#))
- (#{n\ 3332}#
- (#{id-var-name\ 364}#
- #{id\ 3327}#
- #{w\ 3307}#)))
- (let ((#{b\ 3334}#
- (#{lookup\ 301}#
- #{n\ 3332}#
- #{r\ 3306}#
- #{mod\ 3309}#)))
- (let ((#{atom-key\ 3337}#
- (#{binding-type\ 290}# #{b\ 3334}#)))
- (if (memv #{atom-key\ 3337}#
+ (apply (lambda (#{_\ 3399}# #{id\ 3400}# #{val\ 3401}#)
+ (let ((#{val\ 3404}#
+ (#{chi\ 457}#
+ #{val\ 3401}#
+ #{r\ 3379}#
+ #{w\ 3380}#
+ #{mod\ 3382}#))
+ (#{n\ 3405}#
+ (#{id-var-name\ 429}#
+ #{id\ 3400}#
+ #{w\ 3380}#)))
+ (let ((#{b\ 3407}#
+ (#{lookup\ 366}#
+ #{n\ 3405}#
+ #{r\ 3379}#
+ #{mod\ 3382}#)))
+ (let ((#{atom-key\ 3410}#
+ (#{binding-type\ 355}# #{b\ 3407}#)))
+ (if (memv #{atom-key\ 3410}#
'(lexical))
- (#{build-lexical-assignment\ 237}#
- #{s\ 3308}#
- (syntax->datum #{id\ 3327}#)
- (#{binding-value\ 292}# #{b\ 3334}#)
- #{val\ 3331}#)
- (if (memv #{atom-key\ 3337}#
+ (#{build-lexical-assignment\ 302}#
+ #{s\ 3381}#
+ (syntax->datum #{id\ 3400}#)
+ (#{binding-value\ 357}# #{b\ 3407}#)
+ #{val\ 3404}#)
+ (if (memv #{atom-key\ 3410}#
'(global))
- (#{build-global-assignment\ 243}#
- #{s\ 3308}#
- #{n\ 3332}#
- #{val\ 3331}#
- #{mod\ 3309}#)
- (if (memv #{atom-key\ 3337}#
+ (#{build-global-assignment\ 308}#
+ #{s\ 3381}#
+ #{n\ 3405}#
+ #{val\ 3404}#
+ #{mod\ 3382}#)
+ (if (memv #{atom-key\ 3410}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 376}#
- #{id\ 3327}#
- #{w\ 3307}#
- #{mod\ 3309}#))
+ (#{wrap\ 441}#
+ #{id\ 3400}#
+ #{w\ 3380}#
+ #{mod\ 3382}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 378}#
- #{e\ 3305}#
- #{w\ 3307}#
- #{s\ 3308}#
- #{mod\ 3309}#)))))))))
- #{tmp\ 3316}#)
- ((lambda (#{tmp\ 3342}#)
- (if #{tmp\ 3342}#
- (apply (lambda (#{_\ 3347}#
- #{head\ 3348}#
- #{tail\ 3349}#
- #{val\ 3350}#)
+ (#{source-wrap\ 443}#
+ #{e\ 3378}#
+ #{w\ 3380}#
+ #{s\ 3381}#
+ #{mod\ 3382}#)))))))))
+ #{tmp\ 3389}#)
+ ((lambda (#{tmp\ 3415}#)
+ (if #{tmp\ 3415}#
+ (apply (lambda (#{_\ 3420}#
+ #{head\ 3421}#
+ #{tail\ 3422}#
+ #{val\ 3423}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 388}#
- #{head\ 3348}#
- #{r\ 3306}#
+ (#{syntax-type\ 453}#
+ #{head\ 3421}#
+ #{r\ 3379}#
'(())
#f
#f
- #{mod\ 3309}#
+ #{mod\ 3382}#
#t))
- (lambda (#{type\ 3353}#
- #{value\ 3354}#
- #{ee\ 3355}#
- #{ww\ 3356}#
- #{ss\ 3357}#
- #{modmod\ 3358}#)
- (if (memv #{type\ 3353}#
+ (lambda (#{type\ 3426}#
+ #{value\ 3427}#
+ #{ee\ 3428}#
+ #{ww\ 3429}#
+ #{ss\ 3430}#
+ #{modmod\ 3431}#)
+ (if (memv #{type\ 3426}#
'(module-ref))
- (let ((#{val\ 3367}#
- (#{chi\ 392}#
- #{val\ 3350}#
- #{r\ 3306}#
- #{w\ 3307}#
- #{mod\ 3309}#)))
+ (let ((#{val\ 3440}#
+ (#{chi\ 457}#
+ #{val\ 3423}#
+ #{r\ 3379}#
+ #{w\ 3380}#
+ #{mod\ 3382}#)))
(call-with-values
(lambda ()
- (#{value\ 3354}#
- (cons #{head\ 3348}#
- #{tail\ 3349}#)
- #{r\ 3306}#
- #{w\ 3307}#))
- (lambda (#{e\ 3369}#
- #{r\ 3370}#
- #{w\ 3371}#
- #{s*\ 3372}#
- #{mod\ 3373}#)
- ((lambda (#{tmp\ 3379}#)
- ((lambda (#{tmp\ 3380}#)
- (if (if #{tmp\ 3380}#
- (apply (lambda (#{e\
3382}#)
- (#{id?\ 307}#
- #{e\
3382}#))
- #{tmp\ 3380}#)
+ (#{value\ 3427}#
+ (cons #{head\ 3421}#
+ #{tail\ 3422}#)
+ #{r\ 3379}#
+ #{w\ 3380}#))
+ (lambda (#{e\ 3442}#
+ #{r\ 3443}#
+ #{w\ 3444}#
+ #{s*\ 3445}#
+ #{mod\ 3446}#)
+ ((lambda (#{tmp\ 3452}#)
+ ((lambda (#{tmp\ 3453}#)
+ (if (if #{tmp\ 3453}#
+ (apply (lambda (#{e\
3455}#)
+ (#{id?\ 372}#
+ #{e\
3455}#))
+ #{tmp\ 3453}#)
#f)
- (apply (lambda (#{e\
3384}#)
-
(#{build-global-assignment\ 243}#
- #{s\ 3308}#
+ (apply (lambda (#{e\
3457}#)
+
(#{build-global-assignment\ 308}#
+ #{s\ 3381}#
(syntax->datum
- #{e\ 3384}#)
- #{val\ 3367}#
- #{mod\ 3373}#))
- #{tmp\ 3380}#)
+ #{e\ 3457}#)
+ #{val\ 3440}#
+ #{mod\ 3446}#))
+ #{tmp\ 3453}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 3379}#)))
- (list #{tmp\ 3379}#)))
- #{e\ 3369}#))))
- (#{build-application\ 229}#
- #{s\ 3308}#
- (#{chi\ 392}#
+ #{tmp\ 3452}#)))
+ (list #{tmp\ 3452}#)))
+ #{e\ 3442}#))))
+ (#{build-application\ 294}#
+ #{s\ 3381}#
+ (#{chi\ 457}#
(list '#(syntax-object
setter
((top)
@@ -9910,22 +10081,22 @@
(top)
(top)
(top))
- #("i3359"
- "i3360"
- "i3361"
- "i3362"
- "i3363"
- "i3364"))
+ #("i3432"
+ "i3433"
+ "i3434"
+ "i3435"
+ "i3436"
+ "i3437"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i3343"
- "i3344"
- "i3345"
- "i3346"))
+ #("i3416"
+ "i3417"
+ "i3418"
+ "i3419"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9934,11 +10105,11 @@
(top)
(top)
(top))
- #("i3310"
- "i3311"
- "i3312"
- "i3313"
- "i3314"))
+ #("i3383"
+ "i3384"
+ "i3385"
+ "i3386"
+ "i3387"))
#(ribcage
(lambda-var-list
gen-var
@@ -10056,6 +10227,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -10207,31 +10381,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -10240,16 +10455,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -10259,29 +10473,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -10294,110 +10504,84 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22" "i21" "i19")))
+ ((top) (top) (top) (top))
+ ("i23"
+ "i22"
+ "i21"
+ "i19")))
(hygiene guile))
- #{head\ 3348}#)
- #{r\ 3306}#
- #{w\ 3307}#
- #{mod\ 3309}#)
- (map (lambda (#{e\ 3386}#)
- (#{chi\ 392}#
- #{e\ 3386}#
- #{r\ 3306}#
- #{w\ 3307}#
- #{mod\ 3309}#))
+ #{head\ 3421}#)
+ #{r\ 3379}#
+ #{w\ 3380}#
+ #{mod\ 3382}#)
+ (map (lambda (#{e\ 3459}#)
+ (#{chi\ 457}#
+ #{e\ 3459}#
+ #{r\ 3379}#
+ #{w\ 3380}#
+ #{mod\ 3382}#))
(append
- #{tail\ 3349}#
- (list #{val\ 3350}#))))))))
- #{tmp\ 3342}#)
- ((lambda (#{_\ 3390}#)
+ #{tail\ 3422}#
+ (list #{val\ 3423}#))))))))
+ #{tmp\ 3415}#)
+ ((lambda (#{_\ 3463}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 378}#
- #{e\ 3305}#
- #{w\ 3307}#
- #{s\ 3308}#
- #{mod\ 3309}#)))
- #{tmp\ 3315}#)))
+ (#{source-wrap\ 443}#
+ #{e\ 3378}#
+ #{w\ 3380}#
+ #{s\ 3381}#
+ #{mod\ 3382}#)))
+ #{tmp\ 3388}#)))
($sc-dispatch
- #{tmp\ 3315}#
+ #{tmp\ 3388}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 3315}#
+ #{tmp\ 3388}#
'(any any any))))
- #{e\ 3305}#)))
- (#{global-extend\ 303}#
+ #{e\ 3378}#)))
+ (#{global-extend\ 368}#
'module-ref
'@
- (lambda (#{e\ 3391}# #{r\ 3392}# #{w\ 3393}#)
- ((lambda (#{tmp\ 3397}#)
- ((lambda (#{tmp\ 3398}#)
- (if (if #{tmp\ 3398}#
- (apply (lambda (#{_\ 3402}# #{mod\ 3403}# #{id\ 3404}#)
- (if (and-map #{id?\ 307}# #{mod\ 3403}#)
- (#{id?\ 307}# #{id\ 3404}#)
+ (lambda (#{e\ 3464}# #{r\ 3465}# #{w\ 3466}#)
+ ((lambda (#{tmp\ 3470}#)
+ ((lambda (#{tmp\ 3471}#)
+ (if (if #{tmp\ 3471}#
+ (apply (lambda (#{_\ 3475}# #{mod\ 3476}# #{id\ 3477}#)
+ (if (and-map #{id?\ 372}# #{mod\ 3476}#)
+ (#{id?\ 372}# #{id\ 3477}#)
#f))
- #{tmp\ 3398}#)
+ #{tmp\ 3471}#)
#f)
- (apply (lambda (#{_\ 3411}# #{mod\ 3412}# #{id\ 3413}#)
+ (apply (lambda (#{_\ 3484}# #{mod\ 3485}# #{id\ 3486}#)
(values
- (syntax->datum #{id\ 3413}#)
- #{r\ 3392}#
- #{w\ 3393}#
+ (syntax->datum #{id\ 3486}#)
+ #{r\ 3465}#
+ #{w\ 3466}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10406,12 +10590,12 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3408" "i3409" "i3410"))
+ #("i3481" "i3482" "i3483"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3394" "i3395" "i3396"))
+ #("i3467" "i3468" "i3469"))
#(ribcage
(lambda-var-list
gen-var
@@ -10529,6 +10713,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -10680,31 +10867,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -10713,16 +10941,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -10732,29 +10959,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -10767,126 +10990,97 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+ define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22" "i21" "i19")))
+ ((top) (top) (top) (top))
+ ("i23" "i22" "i21" "i19")))
(hygiene guile))
- #{mod\ 3412}#))))
- #{tmp\ 3398}#)
+ #{mod\ 3485}#))))
+ #{tmp\ 3471}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3397}#)))
+ #{tmp\ 3470}#)))
($sc-dispatch
- #{tmp\ 3397}#
+ #{tmp\ 3470}#
'(any each-any any))))
- #{e\ 3391}#)))
- (#{global-extend\ 303}#
+ #{e\ 3464}#)))
+ (#{global-extend\ 368}#
'module-ref
'@@
- (lambda (#{e\ 3415}# #{r\ 3416}# #{w\ 3417}#)
- (letrec ((#{remodulate\ 3422}#
- (lambda (#{x\ 3423}# #{mod\ 3424}#)
- (if (pair? #{x\ 3423}#)
- (cons (#{remodulate\ 3422}#
- (car #{x\ 3423}#)
- #{mod\ 3424}#)
- (#{remodulate\ 3422}#
- (cdr #{x\ 3423}#)
- #{mod\ 3424}#))
- (if (#{syntax-object?\ 271}# #{x\ 3423}#)
- (#{make-syntax-object\ 269}#
- (#{remodulate\ 3422}#
- (#{syntax-object-expression\ 273}# #{x\ 3423}#)
- #{mod\ 3424}#)
- (#{syntax-object-wrap\ 275}# #{x\ 3423}#)
- #{mod\ 3424}#)
- (if (vector? #{x\ 3423}#)
- (let ((#{n\ 3435}# (vector-length #{x\ 3423}#)))
- (let ((#{v\ 3437}# (make-vector #{n\ 3435}#)))
- (letrec ((#{loop\ 3440}#
- (lambda (#{i\ 3441}#)
- (if (#{fx=\ 212}#
- #{i\ 3441}#
- #{n\ 3435}#)
- (begin (if #f #f) #{v\ 3437}#)
+ (lambda (#{e\ 3488}# #{r\ 3489}# #{w\ 3490}#)
+ (letrec ((#{remodulate\ 3495}#
+ (lambda (#{x\ 3496}# #{mod\ 3497}#)
+ (if (pair? #{x\ 3496}#)
+ (cons (#{remodulate\ 3495}#
+ (car #{x\ 3496}#)
+ #{mod\ 3497}#)
+ (#{remodulate\ 3495}#
+ (cdr #{x\ 3496}#)
+ #{mod\ 3497}#))
+ (if (#{syntax-object?\ 336}# #{x\ 3496}#)
+ (#{make-syntax-object\ 334}#
+ (#{remodulate\ 3495}#
+ (#{syntax-object-expression\ 338}# #{x\ 3496}#)
+ #{mod\ 3497}#)
+ (#{syntax-object-wrap\ 340}# #{x\ 3496}#)
+ #{mod\ 3497}#)
+ (if (vector? #{x\ 3496}#)
+ (let ((#{n\ 3508}# (vector-length #{x\ 3496}#)))
+ (let ((#{v\ 3510}# (make-vector #{n\ 3508}#)))
+ (letrec ((#{loop\ 3513}#
+ (lambda (#{i\ 3514}#)
+ (if (#{fx=\ 277}#
+ #{i\ 3514}#
+ #{n\ 3508}#)
+ (begin (if #f #f) #{v\ 3510}#)
(begin
(vector-set!
- #{v\ 3437}#
- #{i\ 3441}#
- (#{remodulate\ 3422}#
+ #{v\ 3510}#
+ #{i\ 3514}#
+ (#{remodulate\ 3495}#
(vector-ref
- #{x\ 3423}#
- #{i\ 3441}#)
- #{mod\ 3424}#))
- (#{loop\ 3440}#
- (#{fx+\ 208}#
- #{i\ 3441}#
+ #{x\ 3496}#
+ #{i\ 3514}#)
+ #{mod\ 3497}#))
+ (#{loop\ 3513}#
+ (#{fx+\ 273}#
+ #{i\ 3514}#
1)))))))
- (#{loop\ 3440}# 0))))
- #{x\ 3423}#))))))
- ((lambda (#{tmp\ 3445}#)
- ((lambda (#{tmp\ 3446}#)
- (if (if #{tmp\ 3446}#
- (apply (lambda (#{_\ 3450}#
- #{mod\ 3451}#
- #{exp\ 3452}#)
- (and-map #{id?\ 307}# #{mod\ 3451}#))
- #{tmp\ 3446}#)
+ (#{loop\ 3513}# 0))))
+ #{x\ 3496}#))))))
+ ((lambda (#{tmp\ 3518}#)
+ ((lambda (#{tmp\ 3519}#)
+ (if (if #{tmp\ 3519}#
+ (apply (lambda (#{_\ 3523}#
+ #{mod\ 3524}#
+ #{exp\ 3525}#)
+ (and-map #{id?\ 372}# #{mod\ 3524}#))
+ #{tmp\ 3519}#)
#f)
- (apply (lambda (#{_\ 3457}# #{mod\ 3458}# #{exp\ 3459}#)
- (let ((#{mod\ 3461}#
+ (apply (lambda (#{_\ 3530}# #{mod\ 3531}# #{exp\ 3532}#)
+ (let ((#{mod\ 3534}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10894,15 +11088,15 @@
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i3454" "i3455" "i3456"))
+ #("i3527" "i3528" "i3529"))
#(ribcage
(remodulate)
((top))
- ("i3421"))
+ ("i3494"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3418" "i3419" "i3420"))
+ #("i3491" "i3492" "i3493"))
#(ribcage
(lambda-var-list
gen-var
@@ -11020,6 +11214,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -11171,31 +11368,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -11204,16 +11442,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -11223,29 +11460,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -11258,244 +11491,215 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+ define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22" "i21" "i19")))
+ ((top) (top) (top) (top))
+ ("i23" "i22" "i21" "i19")))
(hygiene guile))
- #{mod\ 3458}#))))
+ #{mod\ 3531}#))))
(values
- (#{remodulate\ 3422}#
- #{exp\ 3459}#
- #{mod\ 3461}#)
- #{r\ 3416}#
- #{w\ 3417}#
- (#{source-annotation\ 286}# #{exp\ 3459}#)
- #{mod\ 3461}#)))
- #{tmp\ 3446}#)
+ (#{remodulate\ 3495}#
+ #{exp\ 3532}#
+ #{mod\ 3534}#)
+ #{r\ 3489}#
+ #{w\ 3490}#
+ (#{source-annotation\ 351}# #{exp\ 3532}#)
+ #{mod\ 3534}#)))
+ #{tmp\ 3519}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3445}#)))
+ #{tmp\ 3518}#)))
($sc-dispatch
- #{tmp\ 3445}#
+ #{tmp\ 3518}#
'(any each-any any))))
- #{e\ 3415}#))))
- (#{global-extend\ 303}#
+ #{e\ 3488}#))))
+ (#{global-extend\ 368}#
'core
'if
- (lambda (#{e\ 3463}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{s\ 3466}#
- #{mod\ 3467}#)
- ((lambda (#{tmp\ 3473}#)
- ((lambda (#{tmp\ 3474}#)
- (if #{tmp\ 3474}#
- (apply (lambda (#{_\ 3478}# #{test\ 3479}# #{then\ 3480}#)
- (#{build-conditional\ 231}#
- #{s\ 3466}#
- (#{chi\ 392}#
- #{test\ 3479}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{mod\ 3467}#)
- (#{chi\ 392}#
- #{then\ 3480}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{mod\ 3467}#)
- (#{build-void\ 227}# #f)))
- #{tmp\ 3474}#)
- ((lambda (#{tmp\ 3482}#)
- (if #{tmp\ 3482}#
- (apply (lambda (#{_\ 3487}#
- #{test\ 3488}#
- #{then\ 3489}#
- #{else\ 3490}#)
- (#{build-conditional\ 231}#
- #{s\ 3466}#
- (#{chi\ 392}#
- #{test\ 3488}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{mod\ 3467}#)
- (#{chi\ 392}#
- #{then\ 3489}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{mod\ 3467}#)
- (#{chi\ 392}#
- #{else\ 3490}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{mod\ 3467}#)))
- #{tmp\ 3482}#)
+ (lambda (#{e\ 3536}#
+ #{r\ 3537}#
+ #{w\ 3538}#
+ #{s\ 3539}#
+ #{mod\ 3540}#)
+ ((lambda (#{tmp\ 3546}#)
+ ((lambda (#{tmp\ 3547}#)
+ (if #{tmp\ 3547}#
+ (apply (lambda (#{_\ 3551}# #{test\ 3552}# #{then\ 3553}#)
+ (#{build-conditional\ 296}#
+ #{s\ 3539}#
+ (#{chi\ 457}#
+ #{test\ 3552}#
+ #{r\ 3537}#
+ #{w\ 3538}#
+ #{mod\ 3540}#)
+ (#{chi\ 457}#
+ #{then\ 3553}#
+ #{r\ 3537}#
+ #{w\ 3538}#
+ #{mod\ 3540}#)
+ (#{build-void\ 292}# #f)))
+ #{tmp\ 3547}#)
+ ((lambda (#{tmp\ 3555}#)
+ (if #{tmp\ 3555}#
+ (apply (lambda (#{_\ 3560}#
+ #{test\ 3561}#
+ #{then\ 3562}#
+ #{else\ 3563}#)
+ (#{build-conditional\ 296}#
+ #{s\ 3539}#
+ (#{chi\ 457}#
+ #{test\ 3561}#
+ #{r\ 3537}#
+ #{w\ 3538}#
+ #{mod\ 3540}#)
+ (#{chi\ 457}#
+ #{then\ 3562}#
+ #{r\ 3537}#
+ #{w\ 3538}#
+ #{mod\ 3540}#)
+ (#{chi\ 457}#
+ #{else\ 3563}#
+ #{r\ 3537}#
+ #{w\ 3538}#
+ #{mod\ 3540}#)))
+ #{tmp\ 3555}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3473}#)))
+ #{tmp\ 3546}#)))
($sc-dispatch
- #{tmp\ 3473}#
+ #{tmp\ 3546}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 3473}#
+ #{tmp\ 3546}#
'(any any any))))
- #{e\ 3463}#)))
- (#{global-extend\ 303}#
+ #{e\ 3536}#)))
+ (#{global-extend\ 368}#
'core
'with-fluids
- (lambda (#{e\ 3491}#
- #{r\ 3492}#
- #{w\ 3493}#
- #{s\ 3494}#
- #{mod\ 3495}#)
- ((lambda (#{tmp\ 3501}#)
- ((lambda (#{tmp\ 3502}#)
- (if #{tmp\ 3502}#
- (apply (lambda (#{_\ 3508}#
- #{fluid\ 3509}#
- #{val\ 3510}#
- #{b\ 3511}#
- #{b*\ 3512}#)
- (#{build-dynlet\ 233}#
- #{s\ 3494}#
- (map (lambda (#{x\ 3513}#)
- (#{chi\ 392}#
- #{x\ 3513}#
- #{r\ 3492}#
- #{w\ 3493}#
- #{mod\ 3495}#))
- #{fluid\ 3509}#)
- (map (lambda (#{x\ 3516}#)
- (#{chi\ 392}#
- #{x\ 3516}#
- #{r\ 3492}#
- #{w\ 3493}#
- #{mod\ 3495}#))
- #{val\ 3510}#)
- (#{chi-body\ 400}#
- (cons #{b\ 3511}# #{b*\ 3512}#)
- (#{source-wrap\ 378}#
- #{e\ 3491}#
- #{w\ 3493}#
- #{s\ 3494}#
- #{mod\ 3495}#)
- #{r\ 3492}#
- #{w\ 3493}#
- #{mod\ 3495}#)))
- #{tmp\ 3502}#)
+ (lambda (#{e\ 3564}#
+ #{r\ 3565}#
+ #{w\ 3566}#
+ #{s\ 3567}#
+ #{mod\ 3568}#)
+ ((lambda (#{tmp\ 3574}#)
+ ((lambda (#{tmp\ 3575}#)
+ (if #{tmp\ 3575}#
+ (apply (lambda (#{_\ 3581}#
+ #{fluid\ 3582}#
+ #{val\ 3583}#
+ #{b\ 3584}#
+ #{b*\ 3585}#)
+ (#{build-dynlet\ 298}#
+ #{s\ 3567}#
+ (map (lambda (#{x\ 3586}#)
+ (#{chi\ 457}#
+ #{x\ 3586}#
+ #{r\ 3565}#
+ #{w\ 3566}#
+ #{mod\ 3568}#))
+ #{fluid\ 3582}#)
+ (map (lambda (#{x\ 3589}#)
+ (#{chi\ 457}#
+ #{x\ 3589}#
+ #{r\ 3565}#
+ #{w\ 3566}#
+ #{mod\ 3568}#))
+ #{val\ 3583}#)
+ (#{chi-body\ 465}#
+ (cons #{b\ 3584}# #{b*\ 3585}#)
+ (#{source-wrap\ 443}#
+ #{e\ 3564}#
+ #{w\ 3566}#
+ #{s\ 3567}#
+ #{mod\ 3568}#)
+ #{r\ 3565}#
+ #{w\ 3566}#
+ #{mod\ 3568}#)))
+ #{tmp\ 3575}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3501}#)))
+ #{tmp\ 3574}#)))
($sc-dispatch
- #{tmp\ 3501}#
+ #{tmp\ 3574}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3491}#)))
- (#{global-extend\ 303}#
+ #{e\ 3564}#)))
+ (#{global-extend\ 368}#
'begin
'begin
'())
- (#{global-extend\ 303}#
+ (#{global-extend\ 368}#
'define
'define
'())
- (#{global-extend\ 303}#
+ (#{global-extend\ 368}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 303}#
+ (#{global-extend\ 368}#
'eval-when
'eval-when
'())
- (#{global-extend\ 303}#
+ (#{global-extend\ 368}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 3527}#
- (lambda (#{x\ 3528}#
- #{keys\ 3529}#
- #{clauses\ 3530}#
- #{r\ 3531}#
- #{mod\ 3532}#)
- (if (null? #{clauses\ 3530}#)
- (#{build-application\ 229}#
+ (letrec ((#{gen-syntax-case\ 3600}#
+ (lambda (#{x\ 3601}#
+ #{keys\ 3602}#
+ #{clauses\ 3603}#
+ #{r\ 3604}#
+ #{mod\ 3605}#)
+ (if (null? #{clauses\ 3603}#)
+ (#{build-application\ 294}#
#f
- (#{build-primref\ 255}#
+ (#{build-primref\ 320}#
#f
'syntax-violation)
- (list (#{build-data\ 257}# #f #f)
- (#{build-data\ 257}#
+ (list (#{build-data\ 322}# #f #f)
+ (#{build-data\ 322}#
#f
"source expression failed to match any
pattern")
- #{x\ 3528}#))
- ((lambda (#{tmp\ 3542}#)
- ((lambda (#{tmp\ 3543}#)
- (if #{tmp\ 3543}#
- (apply (lambda (#{pat\ 3546}# #{exp\ 3547}#)
- (if (if (#{id?\ 307}# #{pat\ 3546}#)
+ #{x\ 3601}#))
+ ((lambda (#{tmp\ 3615}#)
+ ((lambda (#{tmp\ 3616}#)
+ (if #{tmp\ 3616}#
+ (apply (lambda (#{pat\ 3619}# #{exp\ 3620}#)
+ (if (if (#{id?\ 372}# #{pat\ 3619}#)
(and-map
- (lambda (#{x\ 3550}#)
- (not (#{free-id=?\ 366}#
- #{pat\ 3546}#
- #{x\ 3550}#)))
+ (lambda (#{x\ 3623}#)
+ (not (#{free-id=?\ 431}#
+ #{pat\ 3619}#
+ #{x\ 3623}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3544" "i3545"))
+ #("i3617" "i3618"))
#(ribcage () () ())
#(ribcage
#(x
@@ -11508,11 +11712,11 @@
(top)
(top)
(top))
- #("i3533"
- "i3534"
- "i3535"
- "i3536"
- "i3537"))
+ #("i3606"
+ "i3607"
+ "i3608"
+ "i3609"
+ "i3610"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11522,10 +11726,10 @@
(top)
(top)
(top))
- ("i3526"
- "i3524"
- "i3522"
- "i3520"))
+ ("i3599"
+ "i3597"
+ "i3595"
+ "i3593"))
#(ribcage
(lambda-var-list
gen-var
@@ -11643,6 +11847,9 @@
fx=
fx-
fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
make-dynlet
make-letrec
make-let
@@ -11794,31 +12001,72 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i421"
- "i419"
- "i417"
+ ("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"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
"i415"
- "i413"
+ "i414"
+ "i412"
"i411"
+ "i410"
"i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i391"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i389"
"i387"
+ "i386"
"i385"
+ "i384"
"i383"
- "i381"
- "i379"
- "i377"
- "i375"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
"i373"
"i371"
"i369"
@@ -11827,16 +12075,15 @@
"i363"
"i361"
"i359"
- "i357"
- "i355"
+ "i358"
+ "i356"
+ "i354"
"i353"
- "i351"
+ "i352"
"i350"
"i349"
"i347"
- "i346"
"i345"
- "i344"
"i343"
"i341"
"i339"
@@ -11846,29 +12093,25 @@
"i331"
"i329"
"i327"
- "i324"
- "i322"
+ "i325"
+ "i323"
"i321"
- "i320"
"i319"
- "i318"
"i317"
"i315"
"i313"
"i311"
"i309"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i293"
"i291"
"i289"
- "i288"
"i287"
"i285"
"i284"
@@ -11881,945 +12124,920 @@
"i270"
"i268"
"i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"))
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"))
#(ribcage
(define-structure
+
define-expansion-accessors
define-expansion-constructors
and-map*)
- ((top) (top) (top))
- ("i22"
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i23"
+ "i22"
"i21"
"i19")))
(hygiene guile))
- #{keys\ 3529}#))
+ #{keys\ 3602}#))
#f)
- (let ((#{labels\ 3554}#
- (list (#{gen-label\ 323}#)))
- (#{var\ 3555}#
- (#{gen-var\ 420}#
- #{pat\ 3546}#)))
- (#{build-application\ 229}#
+ (let ((#{labels\ 3627}#
+ (list (#{gen-label\ 388}#)))
+ (#{var\ 3628}#
+ (#{gen-var\ 485}#
+ #{pat\ 3619}#)))
+ (#{build-application\ 294}#
#f
- (#{build-simple-lambda\ 249}#
+ (#{build-simple-lambda\ 314}#
#f
(list (syntax->datum
- #{pat\ 3546}#))
+ #{pat\ 3619}#))
#f
- (list #{var\ 3555}#)
+ (list #{var\ 3628}#)
'()
- (#{chi\ 392}#
- #{exp\ 3547}#
- (#{extend-env\ 295}#
- #{labels\ 3554}#
+ (#{chi\ 457}#
+ #{exp\ 3620}#
+ (#{extend-env\ 360}#
+ #{labels\ 3627}#
(list (cons 'syntax
- (cons #{var\
3555}#
+ (cons #{var\
3628}#
0)))
- #{r\ 3531}#)
- (#{make-binding-wrap\ 354}#
- (list #{pat\ 3546}#)
- #{labels\ 3554}#
+ #{r\ 3604}#)
+ (#{make-binding-wrap\ 419}#
+ (list #{pat\ 3619}#)
+ #{labels\ 3627}#
'(()))
- #{mod\ 3532}#))
- (list #{x\ 3528}#)))
- (#{gen-clause\ 3525}#
- #{x\ 3528}#
- #{keys\ 3529}#
- (cdr #{clauses\ 3530}#)
- #{r\ 3531}#
- #{pat\ 3546}#
+ #{mod\ 3605}#))
+ (list #{x\ 3601}#)))
+ (#{gen-clause\ 3598}#
+ #{x\ 3601}#
+ #{keys\ 3602}#
+ (cdr #{clauses\ 3603}#)
+ #{r\ 3604}#
+ #{pat\ 3619}#
#t
- #{exp\ 3547}#
- #{mod\ 3532}#)))
- #{tmp\ 3543}#)
- ((lambda (#{tmp\ 3561}#)
- (if #{tmp\ 3561}#
- (apply (lambda (#{pat\ 3565}#
- #{fender\ 3566}#
- #{exp\ 3567}#)
- (#{gen-clause\ 3525}#
- #{x\ 3528}#
- #{keys\ 3529}#
- (cdr #{clauses\ 3530}#)
- #{r\ 3531}#
- #{pat\ 3565}#
- #{fender\ 3566}#
- #{exp\ 3567}#
- #{mod\ 3532}#))
- #{tmp\ 3561}#)
- ((lambda (#{_\ 3569}#)
+ #{exp\ 3620}#
+ #{mod\ 3605}#)))
+ #{tmp\ 3616}#)
+ ((lambda (#{tmp\ 3634}#)
+ (if #{tmp\ 3634}#
+ (apply (lambda (#{pat\ 3638}#
+ #{fender\ 3639}#
+ #{exp\ 3640}#)
+ (#{gen-clause\ 3598}#
+ #{x\ 3601}#
+ #{keys\ 3602}#
+ (cdr #{clauses\ 3603}#)
+ #{r\ 3604}#
+ #{pat\ 3638}#
+ #{fender\ 3639}#
+ #{exp\ 3640}#
+ #{mod\ 3605}#))
+ #{tmp\ 3634}#)
+ ((lambda (#{_\ 3642}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3530}#)))
- #{tmp\ 3542}#)))
+ (car #{clauses\ 3603}#)))
+ #{tmp\ 3615}#)))
($sc-dispatch
- #{tmp\ 3542}#
+ #{tmp\ 3615}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 3542}# (quote (any any)))))
- (car #{clauses\ 3530}#)))))
- (#{gen-clause\ 3525}#
- (lambda (#{x\ 3570}#
- #{keys\ 3571}#
- #{clauses\ 3572}#
- #{r\ 3573}#
- #{pat\ 3574}#
- #{fender\ 3575}#
- #{exp\ 3576}#
- #{mod\ 3577}#)
+ ($sc-dispatch #{tmp\ 3615}# (quote (any any)))))
+ (car #{clauses\ 3603}#)))))
+ (#{gen-clause\ 3598}#
+ (lambda (#{x\ 3643}#
+ #{keys\ 3644}#
+ #{clauses\ 3645}#
+ #{r\ 3646}#
+ #{pat\ 3647}#
+ #{fender\ 3648}#
+ #{exp\ 3649}#
+ #{mod\ 3650}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3521}#
- #{pat\ 3574}#
- #{keys\ 3571}#))
- (lambda (#{p\ 3586}# #{pvars\ 3587}#)
- (if (not (#{distinct-bound-ids?\ 372}#
- (map car #{pvars\ 3587}#)))
+ (#{convert-pattern\ 3594}#
+ #{pat\ 3647}#
+ #{keys\ 3644}#))
+ (lambda (#{p\ 3659}# #{pvars\ 3660}#)
+ (if (not (#{distinct-bound-ids?\ 437}#
+ (map car #{pvars\ 3660}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3574}#)
+ #{pat\ 3647}#)
(if (not (and-map
- (lambda (#{x\ 3594}#)
- (not (#{ellipsis?\ 408}#
- (car #{x\ 3594}#))))
- #{pvars\ 3587}#))
+ (lambda (#{x\ 3667}#)
+ (not (#{ellipsis?\ 473}#
+ (car #{x\ 3667}#))))
+ #{pvars\ 3660}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3574}#)
- (let ((#{y\ 3598}#
- (#{gen-var\ 420}# (quote tmp))))
- (#{build-application\ 229}#
+ #{pat\ 3647}#)
+ (let ((#{y\ 3671}#
+ (#{gen-var\ 485}# (quote tmp))))
+ (#{build-application\ 294}#
#f
- (#{build-simple-lambda\ 249}#
+ (#{build-simple-lambda\ 314}#
#f
(list (quote tmp))
#f
- (list #{y\ 3598}#)
+ (list #{y\ 3671}#)
'()
- (let ((#{y\ 3602}#
- (#{build-lexical-reference\ 235}#
+ (let ((#{y\ 3675}#
+ (#{build-lexical-reference\ 300}#
'value
#f
'tmp
- #{y\ 3598}#)))
- (#{build-conditional\ 231}#
+ #{y\ 3671}#)))
+ (#{build-conditional\ 296}#
#f
- ((lambda (#{tmp\ 3605}#)
- ((lambda (#{tmp\ 3606}#)
- (if #{tmp\ 3606}#
- (apply (lambda () #{y\ 3602}#)
- #{tmp\ 3606}#)
- ((lambda (#{_\ 3608}#)
- (#{build-conditional\ 231}#
+ ((lambda (#{tmp\ 3678}#)
+ ((lambda (#{tmp\ 3679}#)
+ (if #{tmp\ 3679}#
+ (apply (lambda () #{y\ 3675}#)
+ #{tmp\ 3679}#)
+ ((lambda (#{_\ 3681}#)
+ (#{build-conditional\ 296}#
#f
- #{y\ 3602}#
- (#{build-dispatch-call\
3523}#
- #{pvars\ 3587}#
- #{fender\ 3575}#
- #{y\ 3602}#
- #{r\ 3573}#
- #{mod\ 3577}#)
- (#{build-data\ 257}#
+ #{y\ 3675}#
+ (#{build-dispatch-call\
3596}#
+ #{pvars\ 3660}#
+ #{fender\ 3648}#
+ #{y\ 3675}#
+ #{r\ 3646}#
+ #{mod\ 3650}#)
+ (#{build-data\ 322}#
#f
#f)))
- #{tmp\ 3605}#)))
+ #{tmp\ 3678}#)))
($sc-dispatch
- #{tmp\ 3605}#
+ #{tmp\ 3678}#
'#(atom #t))))
- #{fender\ 3575}#)
- (#{build-dispatch-call\ 3523}#
- #{pvars\ 3587}#
- #{exp\ 3576}#
- #{y\ 3602}#
- #{r\ 3573}#
- #{mod\ 3577}#)
- (#{gen-syntax-case\ 3527}#
- #{x\ 3570}#
- #{keys\ 3571}#
- #{clauses\ 3572}#
- #{r\ 3573}#
- #{mod\ 3577}#))))
- (list (if (eq? #{p\ 3586}# (quote any))
- (#{build-application\ 229}#
+ #{fender\ 3648}#)
+ (#{build-dispatch-call\ 3596}#
+ #{pvars\ 3660}#
+ #{exp\ 3649}#
+ #{y\ 3675}#
+ #{r\ 3646}#
+ #{mod\ 3650}#)
+ (#{gen-syntax-case\ 3600}#
+ #{x\ 3643}#
+ #{keys\ 3644}#
+ #{clauses\ 3645}#
+ #{r\ 3646}#
+ #{mod\ 3650}#))))
+ (list (if (eq? #{p\ 3659}# (quote any))
+ (#{build-application\ 294}#
#f
- (#{build-primref\ 255}#
+ (#{build-primref\ 320}#
#f
'list)
- (list #{x\ 3570}#))
- (#{build-application\ 229}#
+ (list #{x\ 3643}#))
+ (#{build-application\ 294}#
#f
- (#{build-primref\ 255}#
+ (#{build-primref\ 320}#
#f
'$sc-dispatch)
- (list #{x\ 3570}#
- (#{build-data\ 257}#
+ (list #{x\ 3643}#
+ (#{build-data\ 322}#
#f
- #{p\ 3586}#)))))))))))))
- (#{build-dispatch-call\ 3523}#
- (lambda (#{pvars\ 3616}#
- #{exp\ 3617}#
- #{y\ 3618}#
- #{r\ 3619}#
- #{mod\ 3620}#)
- (let ((#{ids\ 3628}# (map car #{pvars\ 3616}#))
- (#{levels\ 3629}# (map cdr #{pvars\ 3616}#)))
- (let ((#{labels\ 3632}#
- (#{gen-labels\ 325}# #{ids\ 3628}#))
- (#{new-vars\ 3633}#
- (map #{gen-var\ 420}# #{ids\ 3628}#)))
- (#{build-application\ 229}#
+ #{p\ 3659}#)))))))))))))
+ (#{build-dispatch-call\ 3596}#
+ (lambda (#{pvars\ 3689}#
+ #{exp\ 3690}#
+ #{y\ 3691}#
+ #{r\ 3692}#
+ #{mod\ 3693}#)
+ (let ((#{ids\ 3701}# (map car #{pvars\ 3689}#))
+ (#{levels\ 3702}# (map cdr #{pvars\ 3689}#)))
+ (let ((#{labels\ 3705}#
+ (#{gen-labels\ 390}# #{ids\ 3701}#))
+ (#{new-vars\ 3706}#
+ (map #{gen-var\ 485}# #{ids\ 3701}#)))
+ (#{build-application\ 294}#
#f
- (#{build-primref\ 255}# #f (quote apply))
- (list (#{build-simple-lambda\ 249}#
+ (#{build-primref\ 320}# #f (quote apply))
+ (list (#{build-simple-lambda\ 314}#
#f
- (map syntax->datum #{ids\ 3628}#)
+ (map syntax->datum #{ids\ 3701}#)
#f
- #{new-vars\ 3633}#
+ #{new-vars\ 3706}#
'()
- (#{chi\ 392}#
- #{exp\ 3617}#
- (#{extend-env\ 295}#
- #{labels\ 3632}#
- (map (lambda (#{var\ 3637}#
- #{level\ 3638}#)
+ (#{chi\ 457}#
+ #{exp\ 3690}#
+ (#{extend-env\ 360}#
+ #{labels\ 3705}#
+ (map (lambda (#{var\ 3710}#
+ #{level\ 3711}#)
(cons 'syntax
- (cons #{var\ 3637}#
- #{level\ 3638}#)))
- #{new-vars\ 3633}#
- (map cdr #{pvars\ 3616}#))
- #{r\ 3619}#)
- (#{make-binding-wrap\ 354}#
- #{ids\ 3628}#
- #{labels\ 3632}#
+ (cons #{var\ 3710}#
+ #{level\ 3711}#)))
+ #{new-vars\ 3706}#
+ (map cdr #{pvars\ 3689}#))
+ #{r\ 3692}#)
+ (#{make-binding-wrap\ 419}#
+ #{ids\ 3701}#
+ #{labels\ 3705}#
'(()))
- #{mod\ 3620}#))
- #{y\ 3618}#))))))
- (#{convert-pattern\ 3521}#
- (lambda (#{pattern\ 3644}# #{keys\ 3645}#)
- (letrec ((#{cvt\ 3651}#
- (lambda (#{p\ 3652}# #{n\ 3653}# #{ids\ 3654}#)
- (if (#{id?\ 307}# #{p\ 3652}#)
- (if (#{bound-id-member?\ 374}#
- #{p\ 3652}#
- #{keys\ 3645}#)
+ #{mod\ 3693}#))
+ #{y\ 3691}#))))))
+ (#{convert-pattern\ 3594}#
+ (lambda (#{pattern\ 3717}# #{keys\ 3718}#)
+ (letrec ((#{cvt\ 3724}#
+ (lambda (#{p\ 3725}# #{n\ 3726}# #{ids\ 3727}#)
+ (if (#{id?\ 372}# #{p\ 3725}#)
+ (if (#{bound-id-member?\ 439}#
+ #{p\ 3725}#
+ #{keys\ 3718}#)
(values
- (vector (quote free-id) #{p\ 3652}#)
- #{ids\ 3654}#)
+ (vector (quote free-id) #{p\ 3725}#)
+ #{ids\ 3727}#)
(values
'any
- (cons (cons #{p\ 3652}# #{n\ 3653}#)
- #{ids\ 3654}#)))
- ((lambda (#{tmp\ 3658}#)
- ((lambda (#{tmp\ 3659}#)
- (if (if #{tmp\ 3659}#
- (apply (lambda (#{x\ 3662}#
- #{dots\ 3663}#)
- (#{ellipsis?\ 408}#
- #{dots\ 3663}#))
- #{tmp\ 3659}#)
+ (cons (cons #{p\ 3725}# #{n\ 3726}#)
+ #{ids\ 3727}#)))
+ ((lambda (#{tmp\ 3731}#)
+ ((lambda (#{tmp\ 3732}#)
+ (if (if #{tmp\ 3732}#
+ (apply (lambda (#{x\ 3735}#
+ #{dots\ 3736}#)
+ (#{ellipsis?\ 473}#
+ #{dots\ 3736}#))
+ #{tmp\ 3732}#)
#f)
- (apply (lambda (#{x\ 3666}#
- #{dots\ 3667}#)
+ (apply (lambda (#{x\ 3739}#
+ #{dots\ 3740}#)
(call-with-values
(lambda ()
- (#{cvt\ 3651}#
- #{x\ 3666}#
- (#{fx+\ 208}#
- #{n\ 3653}#
+ (#{cvt\ 3724}#
+ #{x\ 3739}#
+ (#{fx+\ 273}#
+ #{n\ 3726}#
1)
- #{ids\ 3654}#))
- (lambda (#{p\ 3668}#
- #{ids\ 3669}#)
+ #{ids\ 3727}#))
+ (lambda (#{p\ 3741}#
+ #{ids\ 3742}#)
(values
- (if (eq? #{p\ 3668}#
+ (if (eq? #{p\ 3741}#
'any)
'each-any
(vector
'each
- #{p\ 3668}#))
- #{ids\ 3669}#))))
- #{tmp\ 3659}#)
- ((lambda (#{tmp\ 3672}#)
- (if (if #{tmp\ 3672}#
- (apply (lambda (#{x\
3676}#
- #{dots\
3677}#
- #{ys\
3678}#)
- (#{ellipsis?\
408}#
- #{dots\
3677}#))
- #{tmp\ 3672}#)
+ #{p\ 3741}#))
+ #{ids\ 3742}#))))
+ #{tmp\ 3732}#)
+ ((lambda (#{tmp\ 3745}#)
+ (if (if #{tmp\ 3745}#
+ (apply (lambda (#{x\
3749}#
+ #{dots\
3750}#
+ #{ys\
3751}#)
+ (#{ellipsis?\
473}#
+ #{dots\
3750}#))
+ #{tmp\ 3745}#)
#f)
- (apply (lambda (#{x\ 3682}#
- #{dots\ 3683}#
- #{ys\ 3684}#)
+ (apply (lambda (#{x\ 3755}#
+ #{dots\ 3756}#
+ #{ys\ 3757}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3649}#
- #{ys\ 3684}#
- #{n\ 3653}#
- #{ids\ 3654}#))
- (lambda (#{ys\
3686}#
- #{ids\
3687}#)
+ (#{cvt*\ 3722}#
+ #{ys\ 3757}#
+ #{n\ 3726}#
+ #{ids\ 3727}#))
+ (lambda (#{ys\
3759}#
+ #{ids\
3760}#)
(call-with-values
(lambda ()
- (#{cvt\
3651}#
- #{x\ 3682}#
- (+ #{n\
3653}#
+ (#{cvt\
3724}#
+ #{x\ 3755}#
+ (+ #{n\
3726}#
1)
- #{ids\
3687}#))
- (lambda (#{x\
3690}#
-
#{ids\ 3691}#)
+ #{ids\
3760}#))
+ (lambda (#{x\
3763}#
+
#{ids\ 3764}#)
(values
(list->vector
(cons
'each+
-
(cons #{x\ 3690}#
+
(cons #{x\ 3763}#
(cons (reverse
-
#{ys\ 3686}#)
+
#{ys\ 3759}#)
'(())))))
- #{ids\
3691}#))))))
- #{tmp\ 3672}#)
- ((lambda (#{tmp\ 3695}#)
- (if #{tmp\ 3695}#
- (apply (lambda (#{x\
3698}#
- #{y\
3699}#)
+ #{ids\
3764}#))))))
+ #{tmp\ 3745}#)
+ ((lambda (#{tmp\ 3768}#)
+ (if #{tmp\ 3768}#
+ (apply (lambda (#{x\
3771}#
+ #{y\
3772}#)
(call-with-values
(lambda ()
- (#{cvt\
3651}#
- #{y\
3699}#
- #{n\
3653}#
- #{ids\
3654}#))
- (lambda (#{y\
3700}#
-
#{ids\ 3701}#)
+ (#{cvt\
3724}#
+ #{y\
3772}#
+ #{n\
3726}#
+ #{ids\
3727}#))
+ (lambda (#{y\
3773}#
+
#{ids\ 3774}#)
(call-with-values
(lambda ()
- (#{cvt\
3651}#
- #{x\
3698}#
- #{n\
3653}#
-
#{ids\ 3701}#))
- (lambda
(#{x\ 3704}#
-
#{ids\ 3705}#)
+ (#{cvt\
3724}#
+ #{x\
3771}#
+ #{n\
3726}#
+
#{ids\ 3774}#))
+ (lambda
(#{x\ 3777}#
+
#{ids\ 3778}#)
(values
- (cons
#{x\ 3704}#
-
#{y\ 3700}#)
-
#{ids\ 3705}#))))))
- #{tmp\ 3695}#)
- ((lambda (#{tmp\ 3708}#)
- (if #{tmp\ 3708}#
+ (cons
#{x\ 3777}#
+
#{y\ 3773}#)
+
#{ids\ 3778}#))))))
+ #{tmp\ 3768}#)
+ ((lambda (#{tmp\ 3781}#)
+ (if #{tmp\ 3781}#
(apply (lambda ()
(values
'()
- #{ids\
3654}#))
- #{tmp\
3708}#)
- ((lambda (#{tmp\
3709}#)
- (if #{tmp\ 3709}#
- (apply (lambda
(#{x\ 3711}#)
+ #{ids\
3727}#))
+ #{tmp\
3781}#)
+ ((lambda (#{tmp\
3782}#)
+ (if #{tmp\ 3782}#
+ (apply (lambda
(#{x\ 3784}#)
(call-with-values
(lambda ()
-
(#{cvt\ 3651}#
-
#{x\ 3711}#
-
#{n\ 3653}#
-
#{ids\ 3654}#))
-
(lambda (#{p\ 3713}#
-
#{ids\ 3714}#)
+
(#{cvt\ 3724}#
+
#{x\ 3784}#
+
#{n\ 3726}#
+
#{ids\ 3727}#))
+
(lambda (#{p\ 3786}#
+
#{ids\ 3787}#)
(values
(vector
'vector
-
#{p\ 3713}#)
-
#{ids\ 3714}#))))
- #{tmp\
3709}#)
- ((lambda (#{x\
3718}#)
+
#{p\ 3786}#)
+
#{ids\ 3787}#))))
+ #{tmp\
3782}#)
+ ((lambda (#{x\
3791}#)
(values
(vector
'atom
-
(#{strip\ 418}#
- #{p\
3652}#
+
(#{strip\ 483}#
+ #{p\
3725}#
'(())))
- #{ids\
3654}#))
- #{tmp\
3658}#)))
+ #{ids\
3727}#))
+ #{tmp\
3731}#)))
($sc-dispatch
- #{tmp\ 3658}#
+ #{tmp\ 3731}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 3658}#
+ #{tmp\ 3731}#
'()))))
($sc-dispatch
- #{tmp\ 3658}#
+ #{tmp\ 3731}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3658}#
+ #{tmp\ 3731}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 3658}#
+ #{tmp\ 3731}#
'(any any))))
- #{p\ 3652}#))))
- (#{cvt*\ 3649}#
- (lambda (#{p*\ 3720}#
- #{n\ 3721}#
- #{ids\ 3722}#)
- (if (null? #{p*\ 3720}#)
- (values (quote ()) #{ids\ 3722}#)
+ #{p\ 3725}#))))
+ (#{cvt*\ 3722}#
+ (lambda (#{p*\ 3793}#
+ #{n\ 3794}#
+ #{ids\ 3795}#)
+ (if (null? #{p*\ 3793}#)
+ (values (quote ()) #{ids\ 3795}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3649}#
- (cdr #{p*\ 3720}#)
- #{n\ 3721}#
- #{ids\ 3722}#))
- (lambda (#{y\ 3726}# #{ids\ 3727}#)
+ (#{cvt*\ 3722}#
+ (cdr #{p*\ 3793}#)
+ #{n\ 3794}#
+ #{ids\ 3795}#))
+ (lambda (#{y\ 3799}# #{ids\ 3800}#)
(call-with-values
(lambda ()
- (#{cvt\ 3651}#
- (car #{p*\ 3720}#)
- #{n\ 3721}#
- #{ids\ 3727}#))
- (lambda (#{x\ 3730}# #{ids\ 3731}#)
+ (#{cvt\ 3724}#
+ (car #{p*\ 3793}#)
+ #{n\ 3794}#
+ #{ids\ 3800}#))
+ (lambda (#{x\ 3803}# #{ids\ 3804}#)
(values
- (cons #{x\ 3730}# #{y\ 3726}#)
- #{ids\ 3731}#)))))))))
- (#{cvt\ 3651}# #{pattern\ 3644}# 0 (quote ()))))))
- (lambda (#{e\ 3734}#
- #{r\ 3735}#
- #{w\ 3736}#
- #{s\ 3737}#
- #{mod\ 3738}#)
- (let ((#{e\ 3745}#
- (#{source-wrap\ 378}#
- #{e\ 3734}#
- #{w\ 3736}#
- #{s\ 3737}#
- #{mod\ 3738}#)))
- ((lambda (#{tmp\ 3746}#)
- ((lambda (#{tmp\ 3747}#)
- (if #{tmp\ 3747}#
- (apply (lambda (#{_\ 3752}#
- #{val\ 3753}#
- #{key\ 3754}#
- #{m\ 3755}#)
+ (cons #{x\ 3803}# #{y\ 3799}#)
+ #{ids\ 3804}#)))))))))
+ (#{cvt\ 3724}# #{pattern\ 3717}# 0 (quote ()))))))
+ (lambda (#{e\ 3807}#
+ #{r\ 3808}#
+ #{w\ 3809}#
+ #{s\ 3810}#
+ #{mod\ 3811}#)
+ (let ((#{e\ 3818}#
+ (#{source-wrap\ 443}#
+ #{e\ 3807}#
+ #{w\ 3809}#
+ #{s\ 3810}#
+ #{mod\ 3811}#)))
+ ((lambda (#{tmp\ 3819}#)
+ ((lambda (#{tmp\ 3820}#)
+ (if #{tmp\ 3820}#
+ (apply (lambda (#{_\ 3825}#
+ #{val\ 3826}#
+ #{key\ 3827}#
+ #{m\ 3828}#)
(if (and-map
- (lambda (#{x\ 3756}#)
- (if (#{id?\ 307}# #{x\ 3756}#)
- (not (#{ellipsis?\ 408}# #{x\ 3756}#))
+ (lambda (#{x\ 3829}#)
+ (if (#{id?\ 372}# #{x\ 3829}#)
+ (not (#{ellipsis?\ 473}# #{x\ 3829}#))
#f))
- #{key\ 3754}#)
- (let ((#{x\ 3762}#
- (#{gen-var\ 420}# (quote tmp))))
- (#{build-application\ 229}#
- #{s\ 3737}#
- (#{build-simple-lambda\ 249}#
+ #{key\ 3827}#)
+ (let ((#{x\ 3835}#
+ (#{gen-var\ 485}# (quote tmp))))
+ (#{build-application\ 294}#
+ #{s\ 3810}#
+ (#{build-simple-lambda\ 314}#
#f
(list (quote tmp))
#f
- (list #{x\ 3762}#)
+ (list #{x\ 3835}#)
'()
- (#{gen-syntax-case\ 3527}#
- (#{build-lexical-reference\ 235}#
+ (#{gen-syntax-case\ 3600}#
+ (#{build-lexical-reference\ 300}#
'value
#f
'tmp
- #{x\ 3762}#)
- #{key\ 3754}#
- #{m\ 3755}#
- #{r\ 3735}#
- #{mod\ 3738}#))
- (list (#{chi\ 392}#
- #{val\ 3753}#
- #{r\ 3735}#
+ #{x\ 3835}#)
+ #{key\ 3827}#
+ #{m\ 3828}#
+ #{r\ 3808}#
+ #{mod\ 3811}#))
+ (list (#{chi\ 457}#
+ #{val\ 3826}#
+ #{r\ 3808}#
'(())
- #{mod\ 3738}#))))
+ #{mod\ 3811}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3745}#)))
- #{tmp\ 3747}#)
+ #{e\ 3818}#)))
+ #{tmp\ 3820}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3746}#)))
+ #{tmp\ 3819}#)))
($sc-dispatch
- #{tmp\ 3746}#
+ #{tmp\ 3819}#
'(any any each-any . each-any))))
- #{e\ 3745}#)))))
+ #{e\ 3818}#)))))
(set! macroexpand
(lambda*
- (#{x\ 3768}#
+ (#{x\ 3841}#
#:optional
- (#{m\ 3770}# (quote e))
- (#{esew\ 3772}# (quote (eval))))
- (#{chi-top\ 390}#
- #{x\ 3768}#
+ (#{m\ 3843}# (quote e))
+ (#{esew\ 3845}# (quote (eval))))
+ (#{chi-top\ 455}#
+ #{x\ 3841}#
'()
'((top))
- #{m\ 3770}#
- #{esew\ 3772}#
+ #{m\ 3843}#
+ #{esew\ 3845}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3776}#)
- (#{nonsymbol-id?\ 305}# #{x\ 3776}#)))
+ (lambda (#{x\ 3849}#)
+ (#{nonsymbol-id?\ 370}# #{x\ 3849}#)))
(set! datum->syntax
- (lambda (#{id\ 3778}# #{datum\ 3779}#)
- (#{make-syntax-object\ 269}#
- #{datum\ 3779}#
- (#{syntax-object-wrap\ 275}# #{id\ 3778}#)
+ (lambda (#{id\ 3851}# #{datum\ 3852}#)
+ (#{make-syntax-object\ 334}#
+ #{datum\ 3852}#
+ (#{syntax-object-wrap\ 340}# #{id\ 3851}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 3782}#)
- (#{strip\ 418}# #{x\ 3782}# (quote (())))))
+ (lambda (#{x\ 3855}#)
+ (#{strip\ 483}# #{x\ 3855}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 3785}#)
+ (lambda (#{ls\ 3858}#)
(begin
- (let ((#{x\ 3789}# #{ls\ 3785}#))
- (if (not (list? #{x\ 3789}#))
+ (let ((#{x\ 3862}# #{ls\ 3858}#))
+ (if (not (list? #{x\ 3862}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3789}#)))
- (map (lambda (#{x\ 3790}#)
- (#{wrap\ 376}# (gensym) (quote ((top))) #f))
- #{ls\ 3785}#))))
+ #{x\ 3862}#)))
+ (map (lambda (#{x\ 3863}#)
+ (#{wrap\ 441}# (gensym) (quote ((top))) #f))
+ #{ls\ 3858}#))))
(set! free-identifier=?
- (lambda (#{x\ 3794}# #{y\ 3795}#)
+ (lambda (#{x\ 3867}# #{y\ 3868}#)
(begin
- (let ((#{x\ 3800}# #{x\ 3794}#))
- (if (not (#{nonsymbol-id?\ 305}# #{x\ 3800}#))
+ (let ((#{x\ 3873}# #{x\ 3867}#))
+ (if (not (#{nonsymbol-id?\ 370}# #{x\ 3873}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3800}#)))
- (let ((#{x\ 3803}# #{y\ 3795}#))
- (if (not (#{nonsymbol-id?\ 305}# #{x\ 3803}#))
+ #{x\ 3873}#)))
+ (let ((#{x\ 3876}# #{y\ 3868}#))
+ (if (not (#{nonsymbol-id?\ 370}# #{x\ 3876}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3803}#)))
- (#{free-id=?\ 366}# #{x\ 3794}# #{y\ 3795}#))))
+ #{x\ 3876}#)))
+ (#{free-id=?\ 431}# #{x\ 3867}# #{y\ 3868}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3804}# #{y\ 3805}#)
+ (lambda (#{x\ 3877}# #{y\ 3878}#)
(begin
- (let ((#{x\ 3810}# #{x\ 3804}#))
- (if (not (#{nonsymbol-id?\ 305}# #{x\ 3810}#))
+ (let ((#{x\ 3883}# #{x\ 3877}#))
+ (if (not (#{nonsymbol-id?\ 370}# #{x\ 3883}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3810}#)))
- (let ((#{x\ 3813}# #{y\ 3805}#))
- (if (not (#{nonsymbol-id?\ 305}# #{x\ 3813}#))
+ #{x\ 3883}#)))
+ (let ((#{x\ 3886}# #{y\ 3878}#))
+ (if (not (#{nonsymbol-id?\ 370}# #{x\ 3886}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3813}#)))
- (#{bound-id=?\ 368}# #{x\ 3804}# #{y\ 3805}#))))
+ #{x\ 3886}#)))
+ (#{bound-id=?\ 433}# #{x\ 3877}# #{y\ 3878}#))))
(set! syntax-violation
- (lambda (#{who\ 3814}#
- #{message\ 3815}#
- #{form\ 3816}#
+ (lambda (#{who\ 3887}#
+ #{message\ 3888}#
+ #{form\ 3889}#
.
- #{subform\ 3817}#)
+ #{subform\ 3890}#)
(begin
- (let ((#{x\ 3824}# #{who\ 3814}#))
- (if (not ((lambda (#{x\ 3825}#)
- (let ((#{t\ 3829}# (not #{x\ 3825}#)))
- (if #{t\ 3829}#
- #{t\ 3829}#
- (let ((#{t\ 3832}# (string? #{x\ 3825}#)))
- (if #{t\ 3832}#
- #{t\ 3832}#
- (symbol? #{x\ 3825}#))))))
- #{x\ 3824}#))
+ (let ((#{x\ 3897}# #{who\ 3887}#))
+ (if (not ((lambda (#{x\ 3898}#)
+ (let ((#{t\ 3902}# (not #{x\ 3898}#)))
+ (if #{t\ 3902}#
+ #{t\ 3902}#
+ (let ((#{t\ 3905}# (string? #{x\ 3898}#)))
+ (if #{t\ 3905}#
+ #{t\ 3905}#
+ (symbol? #{x\ 3898}#))))))
+ #{x\ 3897}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3824}#)))
- (let ((#{x\ 3836}# #{message\ 3815}#))
- (if (not (string? #{x\ 3836}#))
+ #{x\ 3897}#)))
+ (let ((#{x\ 3909}# #{message\ 3888}#))
+ (if (not (string? #{x\ 3909}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3836}#)))
+ #{x\ 3909}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 3814}# "~a: " "")
+ (if #{who\ 3887}# "~a: " "")
"~a "
- (if (null? #{subform\ 3817}#)
+ (if (null? #{subform\ 3890}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 3838}#
- (cons #{message\ 3815}#
- (map (lambda (#{x\ 3839}#)
- (#{strip\ 418}# #{x\ 3839}# (quote (()))))
+ (let ((#{tail\ 3911}#
+ (cons #{message\ 3888}#
+ (map (lambda (#{x\ 3912}#)
+ (#{strip\ 483}# #{x\ 3912}# (quote (()))))
(append
- #{subform\ 3817}#
- (list #{form\ 3816}#))))))
- (if #{who\ 3814}#
- (cons #{who\ 3814}# #{tail\ 3838}#)
- #{tail\ 3838}#))
+ #{subform\ 3890}#
+ (list #{form\ 3889}#))))))
+ (if #{who\ 3887}#
+ (cons #{who\ 3887}# #{tail\ 3911}#)
+ #{tail\ 3911}#))
#f))))
- (letrec ((#{match\ 3855}#
- (lambda (#{e\ 3856}#
- #{p\ 3857}#
- #{w\ 3858}#
- #{r\ 3859}#
- #{mod\ 3860}#)
- (if (not #{r\ 3859}#)
+ (letrec ((#{match\ 3928}#
+ (lambda (#{e\ 3929}#
+ #{p\ 3930}#
+ #{w\ 3931}#
+ #{r\ 3932}#
+ #{mod\ 3933}#)
+ (if (not #{r\ 3932}#)
#f
- (if (eq? #{p\ 3857}# (quote any))
- (cons (#{wrap\ 376}#
- #{e\ 3856}#
- #{w\ 3858}#
- #{mod\ 3860}#)
- #{r\ 3859}#)
- (if (#{syntax-object?\ 271}# #{e\ 3856}#)
- (#{match*\ 3853}#
- (#{syntax-object-expression\ 273}# #{e\ 3856}#)
- #{p\ 3857}#
- (#{join-wraps\ 358}#
- #{w\ 3858}#
- (#{syntax-object-wrap\ 275}# #{e\ 3856}#))
- #{r\ 3859}#
- (#{syntax-object-module\ 277}# #{e\ 3856}#))
- (#{match*\ 3853}#
- #{e\ 3856}#
- #{p\ 3857}#
- #{w\ 3858}#
- #{r\ 3859}#
- #{mod\ 3860}#))))))
- (#{match*\ 3853}#
- (lambda (#{e\ 3873}#
- #{p\ 3874}#
- #{w\ 3875}#
- #{r\ 3876}#
- #{mod\ 3877}#)
- (if (null? #{p\ 3874}#)
- (if (null? #{e\ 3873}#) #{r\ 3876}# #f)
- (if (pair? #{p\ 3874}#)
- (if (pair? #{e\ 3873}#)
- (#{match\ 3855}#
- (car #{e\ 3873}#)
- (car #{p\ 3874}#)
- #{w\ 3875}#
- (#{match\ 3855}#
- (cdr #{e\ 3873}#)
- (cdr #{p\ 3874}#)
- #{w\ 3875}#
- #{r\ 3876}#
- #{mod\ 3877}#)
- #{mod\ 3877}#)
+ (if (eq? #{p\ 3930}# (quote any))
+ (cons (#{wrap\ 441}#
+ #{e\ 3929}#
+ #{w\ 3931}#
+ #{mod\ 3933}#)
+ #{r\ 3932}#)
+ (if (#{syntax-object?\ 336}# #{e\ 3929}#)
+ (#{match*\ 3926}#
+ (#{syntax-object-expression\ 338}# #{e\ 3929}#)
+ #{p\ 3930}#
+ (#{join-wraps\ 423}#
+ #{w\ 3931}#
+ (#{syntax-object-wrap\ 340}# #{e\ 3929}#))
+ #{r\ 3932}#
+ (#{syntax-object-module\ 342}# #{e\ 3929}#))
+ (#{match*\ 3926}#
+ #{e\ 3929}#
+ #{p\ 3930}#
+ #{w\ 3931}#
+ #{r\ 3932}#
+ #{mod\ 3933}#))))))
+ (#{match*\ 3926}#
+ (lambda (#{e\ 3946}#
+ #{p\ 3947}#
+ #{w\ 3948}#
+ #{r\ 3949}#
+ #{mod\ 3950}#)
+ (if (null? #{p\ 3947}#)
+ (if (null? #{e\ 3946}#) #{r\ 3949}# #f)
+ (if (pair? #{p\ 3947}#)
+ (if (pair? #{e\ 3946}#)
+ (#{match\ 3928}#
+ (car #{e\ 3946}#)
+ (car #{p\ 3947}#)
+ #{w\ 3948}#
+ (#{match\ 3928}#
+ (cdr #{e\ 3946}#)
+ (cdr #{p\ 3947}#)
+ #{w\ 3948}#
+ #{r\ 3949}#
+ #{mod\ 3950}#)
+ #{mod\ 3950}#)
#f)
- (if (eq? #{p\ 3874}# (quote each-any))
- (let ((#{l\ 3894}#
- (#{match-each-any\ 3847}#
- #{e\ 3873}#
- #{w\ 3875}#
- #{mod\ 3877}#)))
- (if #{l\ 3894}#
- (cons #{l\ 3894}# #{r\ 3876}#)
+ (if (eq? #{p\ 3947}# (quote each-any))
+ (let ((#{l\ 3967}#
+ (#{match-each-any\ 3920}#
+ #{e\ 3946}#
+ #{w\ 3948}#
+ #{mod\ 3950}#)))
+ (if #{l\ 3967}#
+ (cons #{l\ 3967}# #{r\ 3949}#)
#f))
- (let ((#{atom-key\ 3900}# (vector-ref #{p\ 3874}# 0)))
- (if (memv #{atom-key\ 3900}# (quote (each)))
- (if (null? #{e\ 3873}#)
- (#{match-empty\ 3849}#
- (vector-ref #{p\ 3874}# 1)
- #{r\ 3876}#)
- (let ((#{l\ 3903}#
- (#{match-each\ 3843}#
- #{e\ 3873}#
- (vector-ref #{p\ 3874}# 1)
- #{w\ 3875}#
- #{mod\ 3877}#)))
- (if #{l\ 3903}#
- (letrec ((#{collect\ 3908}#
- (lambda (#{l\ 3909}#)
- (if (null? (car #{l\ 3909}#))
- #{r\ 3876}#
- (cons (map car #{l\ 3909}#)
- (#{collect\ 3908}#
+ (let ((#{atom-key\ 3973}# (vector-ref #{p\ 3947}# 0)))
+ (if (memv #{atom-key\ 3973}# (quote (each)))
+ (if (null? #{e\ 3946}#)
+ (#{match-empty\ 3922}#
+ (vector-ref #{p\ 3947}# 1)
+ #{r\ 3949}#)
+ (let ((#{l\ 3976}#
+ (#{match-each\ 3916}#
+ #{e\ 3946}#
+ (vector-ref #{p\ 3947}# 1)
+ #{w\ 3948}#
+ #{mod\ 3950}#)))
+ (if #{l\ 3976}#
+ (letrec ((#{collect\ 3981}#
+ (lambda (#{l\ 3982}#)
+ (if (null? (car #{l\ 3982}#))
+ #{r\ 3949}#
+ (cons (map car #{l\ 3982}#)
+ (#{collect\ 3981}#
(map cdr
- #{l\
3909}#)))))))
- (#{collect\ 3908}# #{l\ 3903}#))
+ #{l\
3982}#)))))))
+ (#{collect\ 3981}# #{l\ 3976}#))
#f)))
- (if (memv #{atom-key\ 3900}# (quote (each+)))
+ (if (memv #{atom-key\ 3973}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 3845}#
- #{e\ 3873}#
- (vector-ref #{p\ 3874}# 1)
- (vector-ref #{p\ 3874}# 2)
- (vector-ref #{p\ 3874}# 3)
- #{w\ 3875}#
- #{r\ 3876}#
- #{mod\ 3877}#))
- (lambda (#{xr*\ 3911}#
- #{y-pat\ 3912}#
- #{r\ 3913}#)
- (if #{r\ 3913}#
- (if (null? #{y-pat\ 3912}#)
- (if (null? #{xr*\ 3911}#)
- (#{match-empty\ 3849}#
- (vector-ref #{p\ 3874}# 1)
- #{r\ 3913}#)
- (#{combine\ 3851}#
- #{xr*\ 3911}#
- #{r\ 3913}#))
+ (#{match-each+\ 3918}#
+ #{e\ 3946}#
+ (vector-ref #{p\ 3947}# 1)
+ (vector-ref #{p\ 3947}# 2)
+ (vector-ref #{p\ 3947}# 3)
+ #{w\ 3948}#
+ #{r\ 3949}#
+ #{mod\ 3950}#))
+ (lambda (#{xr*\ 3984}#
+ #{y-pat\ 3985}#
+ #{r\ 3986}#)
+ (if #{r\ 3986}#
+ (if (null? #{y-pat\ 3985}#)
+ (if (null? #{xr*\ 3984}#)
+ (#{match-empty\ 3922}#
+ (vector-ref #{p\ 3947}# 1)
+ #{r\ 3986}#)
+ (#{combine\ 3924}#
+ #{xr*\ 3984}#
+ #{r\ 3986}#))
#f)
#f)))
- (if (memv #{atom-key\ 3900}# (quote (free-id)))
- (if (#{id?\ 307}# #{e\ 3873}#)
- (if (#{free-id=?\ 366}#
- (#{wrap\ 376}#
- #{e\ 3873}#
- #{w\ 3875}#
- #{mod\ 3877}#)
- (vector-ref #{p\ 3874}# 1))
- #{r\ 3876}#
+ (if (memv #{atom-key\ 3973}# (quote (free-id)))
+ (if (#{id?\ 372}# #{e\ 3946}#)
+ (if (#{free-id=?\ 431}#
+ (#{wrap\ 441}#
+ #{e\ 3946}#
+ #{w\ 3948}#
+ #{mod\ 3950}#)
+ (vector-ref #{p\ 3947}# 1))
+ #{r\ 3949}#
#f)
#f)
- (if (memv #{atom-key\ 3900}# (quote (atom)))
+ (if (memv #{atom-key\ 3973}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 3874}# 1)
- (#{strip\ 418}#
- #{e\ 3873}#
- #{w\ 3875}#))
- #{r\ 3876}#
+ (vector-ref #{p\ 3947}# 1)
+ (#{strip\ 483}#
+ #{e\ 3946}#
+ #{w\ 3948}#))
+ #{r\ 3949}#
#f)
- (if (memv #{atom-key\ 3900}#
+ (if (memv #{atom-key\ 3973}#
'(vector))
- (if (vector? #{e\ 3873}#)
- (#{match\ 3855}#
- (vector->list #{e\ 3873}#)
- (vector-ref #{p\ 3874}# 1)
- #{w\ 3875}#
- #{r\ 3876}#
- #{mod\ 3877}#)
+ (if (vector? #{e\ 3946}#)
+ (#{match\ 3928}#
+ (vector->list #{e\ 3946}#)
+ (vector-ref #{p\ 3947}# 1)
+ #{w\ 3948}#
+ #{r\ 3949}#
+ #{mod\ 3950}#)
#f))))))))))))
- (#{combine\ 3851}#
- (lambda (#{r*\ 3930}# #{r\ 3931}#)
- (if (null? (car #{r*\ 3930}#))
- #{r\ 3931}#
- (cons (map car #{r*\ 3930}#)
- (#{combine\ 3851}#
- (map cdr #{r*\ 3930}#)
- #{r\ 3931}#)))))
- (#{match-empty\ 3849}#
- (lambda (#{p\ 3934}# #{r\ 3935}#)
- (if (null? #{p\ 3934}#)
- #{r\ 3935}#
- (if (eq? #{p\ 3934}# (quote any))
- (cons (quote ()) #{r\ 3935}#)
- (if (pair? #{p\ 3934}#)
- (#{match-empty\ 3849}#
- (car #{p\ 3934}#)
- (#{match-empty\ 3849}#
- (cdr #{p\ 3934}#)
- #{r\ 3935}#))
- (if (eq? #{p\ 3934}# (quote each-any))
- (cons (quote ()) #{r\ 3935}#)
- (let ((#{atom-key\ 3949}#
- (vector-ref #{p\ 3934}# 0)))
- (if (memv #{atom-key\ 3949}# (quote (each)))
- (#{match-empty\ 3849}#
- (vector-ref #{p\ 3934}# 1)
- #{r\ 3935}#)
- (if (memv #{atom-key\ 3949}# (quote (each+)))
- (#{match-empty\ 3849}#
- (vector-ref #{p\ 3934}# 1)
- (#{match-empty\ 3849}#
- (reverse (vector-ref #{p\ 3934}# 2))
- (#{match-empty\ 3849}#
- (vector-ref #{p\ 3934}# 3)
- #{r\ 3935}#)))
- (if (memv #{atom-key\ 3949}#
+ (#{combine\ 3924}#
+ (lambda (#{r*\ 4003}# #{r\ 4004}#)
+ (if (null? (car #{r*\ 4003}#))
+ #{r\ 4004}#
+ (cons (map car #{r*\ 4003}#)
+ (#{combine\ 3924}#
+ (map cdr #{r*\ 4003}#)
+ #{r\ 4004}#)))))
+ (#{match-empty\ 3922}#
+ (lambda (#{p\ 4007}# #{r\ 4008}#)
+ (if (null? #{p\ 4007}#)
+ #{r\ 4008}#
+ (if (eq? #{p\ 4007}# (quote any))
+ (cons (quote ()) #{r\ 4008}#)
+ (if (pair? #{p\ 4007}#)
+ (#{match-empty\ 3922}#
+ (car #{p\ 4007}#)
+ (#{match-empty\ 3922}#
+ (cdr #{p\ 4007}#)
+ #{r\ 4008}#))
+ (if (eq? #{p\ 4007}# (quote each-any))
+ (cons (quote ()) #{r\ 4008}#)
+ (let ((#{atom-key\ 4022}#
+ (vector-ref #{p\ 4007}# 0)))
+ (if (memv #{atom-key\ 4022}# (quote (each)))
+ (#{match-empty\ 3922}#
+ (vector-ref #{p\ 4007}# 1)
+ #{r\ 4008}#)
+ (if (memv #{atom-key\ 4022}# (quote (each+)))
+ (#{match-empty\ 3922}#
+ (vector-ref #{p\ 4007}# 1)
+ (#{match-empty\ 3922}#
+ (reverse (vector-ref #{p\ 4007}# 2))
+ (#{match-empty\ 3922}#
+ (vector-ref #{p\ 4007}# 3)
+ #{r\ 4008}#)))
+ (if (memv #{atom-key\ 4022}#
'(free-id atom))
- #{r\ 3935}#
- (if (memv #{atom-key\ 3949}#
+ #{r\ 4008}#
+ (if (memv #{atom-key\ 4022}#
'(vector))
- (#{match-empty\ 3849}#
- (vector-ref #{p\ 3934}# 1)
- #{r\ 3935}#))))))))))))
- (#{match-each-any\ 3847}#
- (lambda (#{e\ 3954}# #{w\ 3955}# #{mod\ 3956}#)
- (if (pair? #{e\ 3954}#)
- (let ((#{l\ 3963}#
- (#{match-each-any\ 3847}#
- (cdr #{e\ 3954}#)
- #{w\ 3955}#
- #{mod\ 3956}#)))
- (if #{l\ 3963}#
- (cons (#{wrap\ 376}#
- (car #{e\ 3954}#)
- #{w\ 3955}#
- #{mod\ 3956}#)
- #{l\ 3963}#)
+ (#{match-empty\ 3922}#
+ (vector-ref #{p\ 4007}# 1)
+ #{r\ 4008}#))))))))))))
+ (#{match-each-any\ 3920}#
+ (lambda (#{e\ 4027}# #{w\ 4028}# #{mod\ 4029}#)
+ (if (pair? #{e\ 4027}#)
+ (let ((#{l\ 4036}#
+ (#{match-each-any\ 3920}#
+ (cdr #{e\ 4027}#)
+ #{w\ 4028}#
+ #{mod\ 4029}#)))
+ (if #{l\ 4036}#
+ (cons (#{wrap\ 441}#
+ (car #{e\ 4027}#)
+ #{w\ 4028}#
+ #{mod\ 4029}#)
+ #{l\ 4036}#)
#f))
- (if (null? #{e\ 3954}#)
+ (if (null? #{e\ 4027}#)
'()
- (if (#{syntax-object?\ 271}# #{e\ 3954}#)
- (#{match-each-any\ 3847}#
- (#{syntax-object-expression\ 273}# #{e\ 3954}#)
- (#{join-wraps\ 358}#
- #{w\ 3955}#
- (#{syntax-object-wrap\ 275}# #{e\ 3954}#))
- #{mod\ 3956}#)
+ (if (#{syntax-object?\ 336}# #{e\ 4027}#)
+ (#{match-each-any\ 3920}#
+ (#{syntax-object-expression\ 338}# #{e\ 4027}#)
+ (#{join-wraps\ 423}#
+ #{w\ 4028}#
+ (#{syntax-object-wrap\ 340}# #{e\ 4027}#))
+ #{mod\ 4029}#)
#f)))))
- (#{match-each+\ 3845}#
- (lambda (#{e\ 3971}#
- #{x-pat\ 3972}#
- #{y-pat\ 3973}#
- #{z-pat\ 3974}#
- #{w\ 3975}#
- #{r\ 3976}#
- #{mod\ 3977}#)
- (letrec ((#{f\ 3988}#
- (lambda (#{e\ 3989}# #{w\ 3990}#)
- (if (pair? #{e\ 3989}#)
+ (#{match-each+\ 3918}#
+ (lambda (#{e\ 4044}#
+ #{x-pat\ 4045}#
+ #{y-pat\ 4046}#
+ #{z-pat\ 4047}#
+ #{w\ 4048}#
+ #{r\ 4049}#
+ #{mod\ 4050}#)
+ (letrec ((#{f\ 4061}#
+ (lambda (#{e\ 4062}# #{w\ 4063}#)
+ (if (pair? #{e\ 4062}#)
(call-with-values
(lambda ()
- (#{f\ 3988}#
- (cdr #{e\ 3989}#)
- #{w\ 3990}#))
- (lambda (#{xr*\ 3993}#
- #{y-pat\ 3994}#
- #{r\ 3995}#)
- (if #{r\ 3995}#
- (if (null? #{y-pat\ 3994}#)
- (let ((#{xr\ 4000}#
- (#{match\ 3855}#
- (car #{e\ 3989}#)
- #{x-pat\ 3972}#
- #{w\ 3990}#
+ (#{f\ 4061}#
+ (cdr #{e\ 4062}#)
+ #{w\ 4063}#))
+ (lambda (#{xr*\ 4066}#
+ #{y-pat\ 4067}#
+ #{r\ 4068}#)
+ (if #{r\ 4068}#
+ (if (null? #{y-pat\ 4067}#)
+ (let ((#{xr\ 4073}#
+ (#{match\ 3928}#
+ (car #{e\ 4062}#)
+ #{x-pat\ 4045}#
+ #{w\ 4063}#
'()
- #{mod\ 3977}#)))
- (if #{xr\ 4000}#
+ #{mod\ 4050}#)))
+ (if #{xr\ 4073}#
(values
- (cons #{xr\ 4000}#
- #{xr*\ 3993}#)
- #{y-pat\ 3994}#
- #{r\ 3995}#)
+ (cons #{xr\ 4073}#
+ #{xr*\ 4066}#)
+ #{y-pat\ 4067}#
+ #{r\ 4068}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 3994}#)
- (#{match\ 3855}#
- (car #{e\ 3989}#)
- (car #{y-pat\ 3994}#)
- #{w\ 3990}#
- #{r\ 3995}#
- #{mod\ 3977}#)))
+ (cdr #{y-pat\ 4067}#)
+ (#{match\ 3928}#
+ (car #{e\ 4062}#)
+ (car #{y-pat\ 4067}#)
+ #{w\ 4063}#
+ #{r\ 4068}#
+ #{mod\ 4050}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 271}# #{e\ 3989}#)
- (#{f\ 3988}#
- (#{syntax-object-expression\ 273}#
- #{e\ 3989}#)
- (#{join-wraps\ 358}#
- #{w\ 3990}#
- #{e\ 3989}#))
+ (if (#{syntax-object?\ 336}# #{e\ 4062}#)
+ (#{f\ 4061}#
+ (#{syntax-object-expression\ 338}#
+ #{e\ 4062}#)
+ (#{join-wraps\ 423}#
+ #{w\ 4063}#
+ #{e\ 4062}#))
(values
'()
- #{y-pat\ 3973}#
- (#{match\ 3855}#
- #{e\ 3989}#
- #{z-pat\ 3974}#
- #{w\ 3990}#
- #{r\ 3976}#
- #{mod\ 3977}#)))))))
- (#{f\ 3988}# #{e\ 3971}# #{w\ 3975}#))))
- (#{match-each\ 3843}#
- (lambda (#{e\ 4004}#
- #{p\ 4005}#
- #{w\ 4006}#
- #{mod\ 4007}#)
- (if (pair? #{e\ 4004}#)
- (let ((#{first\ 4015}#
- (#{match\ 3855}#
- (car #{e\ 4004}#)
- #{p\ 4005}#
- #{w\ 4006}#
+ #{y-pat\ 4046}#
+ (#{match\ 3928}#
+ #{e\ 4062}#
+ #{z-pat\ 4047}#
+ #{w\ 4063}#
+ #{r\ 4049}#
+ #{mod\ 4050}#)))))))
+ (#{f\ 4061}# #{e\ 4044}# #{w\ 4048}#))))
+ (#{match-each\ 3916}#
+ (lambda (#{e\ 4077}#
+ #{p\ 4078}#
+ #{w\ 4079}#
+ #{mod\ 4080}#)
+ (if (pair? #{e\ 4077}#)
+ (let ((#{first\ 4088}#
+ (#{match\ 3928}#
+ (car #{e\ 4077}#)
+ #{p\ 4078}#
+ #{w\ 4079}#
'()
- #{mod\ 4007}#)))
- (if #{first\ 4015}#
- (let ((#{rest\ 4019}#
- (#{match-each\ 3843}#
- (cdr #{e\ 4004}#)
- #{p\ 4005}#
- #{w\ 4006}#
- #{mod\ 4007}#)))
- (if #{rest\ 4019}#
- (cons #{first\ 4015}# #{rest\ 4019}#)
+ #{mod\ 4080}#)))
+ (if #{first\ 4088}#
+ (let ((#{rest\ 4092}#
+ (#{match-each\ 3916}#
+ (cdr #{e\ 4077}#)
+ #{p\ 4078}#
+ #{w\ 4079}#
+ #{mod\ 4080}#)))
+ (if #{rest\ 4092}#
+ (cons #{first\ 4088}# #{rest\ 4092}#)
#f))
#f))
- (if (null? #{e\ 4004}#)
+ (if (null? #{e\ 4077}#)
'()
- (if (#{syntax-object?\ 271}# #{e\ 4004}#)
- (#{match-each\ 3843}#
- (#{syntax-object-expression\ 273}# #{e\ 4004}#)
- #{p\ 4005}#
- (#{join-wraps\ 358}#
- #{w\ 4006}#
- (#{syntax-object-wrap\ 275}# #{e\ 4004}#))
- (#{syntax-object-module\ 277}# #{e\ 4004}#))
+ (if (#{syntax-object?\ 336}# #{e\ 4077}#)
+ (#{match-each\ 3916}#
+ (#{syntax-object-expression\ 338}# #{e\ 4077}#)
+ #{p\ 4078}#
+ (#{join-wraps\ 423}#
+ #{w\ 4079}#
+ (#{syntax-object-wrap\ 340}# #{e\ 4077}#))
+ (#{syntax-object-module\ 342}# #{e\ 4077}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 4027}# #{p\ 4028}#)
- (if (eq? #{p\ 4028}# (quote any))
- (list #{e\ 4027}#)
- (if (#{syntax-object?\ 271}# #{e\ 4027}#)
- (#{match*\ 3853}#
- (#{syntax-object-expression\ 273}# #{e\ 4027}#)
- #{p\ 4028}#
- (#{syntax-object-wrap\ 275}# #{e\ 4027}#)
+ (lambda (#{e\ 4100}# #{p\ 4101}#)
+ (if (eq? #{p\ 4101}# (quote any))
+ (list #{e\ 4100}#)
+ (if (#{syntax-object?\ 336}# #{e\ 4100}#)
+ (#{match*\ 3926}#
+ (#{syntax-object-expression\ 338}# #{e\ 4100}#)
+ #{p\ 4101}#
+ (#{syntax-object-wrap\ 340}# #{e\ 4100}#)
'()
- (#{syntax-object-module\ 277}# #{e\ 4027}#))
- (#{match*\ 3853}#
- #{e\ 4027}#
- #{p\ 4028}#
+ (#{syntax-object-module\ 342}# #{e\ 4100}#))
+ (#{match*\ 3926}#
+ #{e\ 4100}#
+ #{p\ 4101}#
'(())
'()
#f)))))))))
@@ -12828,50 +13046,50 @@
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 4037}#)
- ((lambda (#{tmp\ 4039}#)
- ((lambda (#{tmp\ 4040}#)
- (if #{tmp\ 4040}#
- (apply (lambda (#{_\ 4044}# #{e1\ 4045}# #{e2\ 4046}#)
+ (cons (lambda (#{x\ 4110}#)
+ ((lambda (#{tmp\ 4112}#)
+ ((lambda (#{tmp\ 4113}#)
+ (if #{tmp\ 4113}#
+ (apply (lambda (#{_\ 4117}# #{e1\ 4118}# #{e2\ 4119}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i4041" "i4042" "i4043"))
+ #("i4114" "i4115" "i4116"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4038")))
+ #(ribcage #(x) #((top)) #("i4111")))
(hygiene guile))
- (cons #{e1\ 4045}# #{e2\ 4046}#)))
- #{tmp\ 4040}#)
- ((lambda (#{tmp\ 4048}#)
- (if #{tmp\ 4048}#
- (apply (lambda (#{_\ 4054}#
- #{out\ 4055}#
- #{in\ 4056}#
- #{e1\ 4057}#
- #{e2\ 4058}#)
+ (cons #{e1\ 4118}# #{e2\ 4119}#)))
+ #{tmp\ 4113}#)
+ ((lambda (#{tmp\ 4121}#)
+ (if #{tmp\ 4121}#
+ (apply (lambda (#{_\ 4127}#
+ #{out\ 4128}#
+ #{in\ 4129}#
+ #{e1\ 4130}#
+ #{e2\ 4131}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4049"
- "i4050"
- "i4051"
- "i4052"
- "i4053"))
+ #("i4122"
+ "i4123"
+ "i4124"
+ "i4125"
+ "i4126"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4038")))
+ #("i4111")))
(hygiene guile))
- #{in\ 4056}#
+ #{in\ 4129}#
'()
- (list #{out\ 4055}#
+ (list #{out\ 4128}#
(cons '#(syntax-object
begin
((top)
@@ -12882,27 +13100,27 @@
(top)
(top)
(top))
- #("i4049"
- "i4050"
- "i4051"
- "i4052"
- "i4053"))
+ #("i4122"
+ "i4123"
+ "i4124"
+ "i4125"
+ "i4126"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4038")))
+ #("i4111")))
(hygiene guile))
- (cons #{e1\ 4057}#
- #{e2\ 4058}#)))))
- #{tmp\ 4048}#)
- ((lambda (#{tmp\ 4060}#)
- (if #{tmp\ 4060}#
- (apply (lambda (#{_\ 4066}#
- #{out\ 4067}#
- #{in\ 4068}#
- #{e1\ 4069}#
- #{e2\ 4070}#)
+ (cons #{e1\ 4130}#
+ #{e2\ 4131}#)))))
+ #{tmp\ 4121}#)
+ ((lambda (#{tmp\ 4133}#)
+ (if #{tmp\ 4133}#
+ (apply (lambda (#{_\ 4139}#
+ #{out\ 4140}#
+ #{in\ 4141}#
+ #{e1\ 4142}#
+ #{e2\ 4143}#)
(list '#(syntax-object
syntax-case
((top)
@@ -12913,16 +13131,16 @@
(top)
(top)
(top))
- #("i4061"
- "i4062"
- "i4063"
- "i4064"
- "i4065"))
+ #("i4134"
+ "i4135"
+ "i4136"
+ "i4137"
+ "i4138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4038")))
+ #("i4111")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -12934,20 +13152,20 @@
(top)
(top)
(top))
- #("i4061"
- "i4062"
- "i4063"
- "i4064"
- "i4065"))
+ #("i4134"
+ "i4135"
+ "i4136"
+ "i4137"
+ "i4138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4038")))
+ #("i4111")))
(hygiene guile))
- #{in\ 4068}#)
+ #{in\ 4141}#)
'()
- (list #{out\ 4067}#
+ (list #{out\ 4140}#
(cons '#(syntax-object
begin
((top)
@@ -12962,11 +13180,11 @@
(top)
(top)
(top))
- #("i4061"
- "i4062"
- "i4063"
- "i4064"
- "i4065"))
+ #("i4134"
+ "i4135"
+ "i4136"
+ "i4137"
+ "i4138"))
#(ribcage
()
()
@@ -12974,53 +13192,53 @@
#(ribcage
#(x)
#((top))
- #("i4038")))
+ #("i4111")))
(hygiene guile))
- (cons #{e1\ 4069}#
- #{e2\
4070}#)))))
- #{tmp\ 4060}#)
+ (cons #{e1\ 4142}#
+ #{e2\
4143}#)))))
+ #{tmp\ 4133}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4039}#)))
+ #{tmp\ 4112}#)))
($sc-dispatch
- #{tmp\ 4039}#
+ #{tmp\ 4112}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 4039}#
+ #{tmp\ 4112}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 4039}#
+ #{tmp\ 4112}#
'(any () any . each-any))))
- #{x\ 4037}#))
+ #{x\ 4110}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 4074}#)
- ((lambda (#{tmp\ 4076}#)
- ((lambda (#{tmp\ 4077}#)
- (if #{tmp\ 4077}#
- (apply (lambda (#{_\ 4083}#
- #{k\ 4084}#
- #{keyword\ 4085}#
- #{pattern\ 4086}#
- #{template\ 4087}#)
+ (cons (lambda (#{x\ 4147}#)
+ ((lambda (#{tmp\ 4149}#)
+ ((lambda (#{tmp\ 4150}#)
+ (if #{tmp\ 4150}#
+ (apply (lambda (#{_\ 4156}#
+ #{k\ 4157}#
+ #{keyword\ 4158}#
+ #{pattern\ 4159}#
+ #{template\ 4160}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4078"
- "i4079"
- "i4080"
- "i4081"
- "i4082"))
+ #("i4151"
+ "i4152"
+ "i4153"
+ "i4154"
+ "i4155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4075")))
+ #(ribcage #(x) #((top)) #("i4148")))
(hygiene guile))
'(#(syntax-object
x
@@ -13028,13 +13246,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4078"
- "i4079"
- "i4080"
- "i4081"
- "i4082"))
+ #("i4151"
+ "i4152"
+ "i4153"
+ "i4154"
+ "i4155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4075")))
+ #(ribcage #(x) #((top)) #("i4148")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -13043,13 +13261,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4078"
- "i4079"
- "i4080"
- "i4081"
- "i4082"))
+ #("i4151"
+ "i4152"
+ "i4153"
+ "i4154"
+ "i4155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4075")))
+ #(ribcage #(x) #((top)) #("i4148")))
(hygiene guile))
.
#(syntax-object
@@ -13058,13 +13276,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4078"
- "i4079"
- "i4080"
- "i4081"
- "i4082"))
+ #("i4151"
+ "i4152"
+ "i4153"
+ "i4154"
+ "i4155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4075")))
+ #(ribcage #(x) #((top)) #("i4148")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -13080,34 +13298,34 @@
(top)
(top)
(top))
- #("i4078"
- "i4079"
- "i4080"
- "i4081"
- "i4082"))
+ #("i4151"
+ "i4152"
+ "i4153"
+ "i4154"
+ "i4155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4075")))
+ #("i4148")))
(hygiene guile))
- #{pattern\ 4086}#))
+ #{pattern\ 4159}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4078"
- "i4079"
- "i4080"
- "i4081"
- "i4082"))
+ #("i4151"
+ "i4152"
+ "i4153"
+ "i4154"
+ "i4155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4075")))
+ #("i4148")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -13123,20 +13341,20 @@
(top)
(top)
(top))
- #("i4078"
- "i4079"
- "i4080"
- "i4081"
- "i4082"))
+ #("i4151"
+ "i4152"
+ "i4153"
+ "i4154"
+ "i4155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4075")))
+ #("i4148")))
(hygiene guile))
- (cons #{k\ 4084}#
- (map (lambda (#{tmp\
4091}#
- #{tmp\
4090}#)
+ (cons #{k\ 4157}#
+ (map (lambda (#{tmp\
4164}#
+ #{tmp\
4163}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -13151,11 +13369,11 @@
(top)
(top)
(top))
-
#("i4078"
-
"i4079"
-
"i4080"
-
"i4081"
-
"i4082"))
+
#("i4151"
+
"i4152"
+
"i4153"
+
"i4154"
+
"i4155"))
#(ribcage
()
()
@@ -13163,10 +13381,10 @@
#(ribcage
#(x)
#((top))
-
#("i4075")))
+
#("i4148")))
(hygiene
guile))
- #{tmp\
4090}#)
+ #{tmp\
4163}#)
(list
'#(syntax-object
syntax
((top)
@@ -13181,11 +13399,11 @@
(top)
(top)
(top))
-
#("i4078"
-
"i4079"
-
"i4080"
-
"i4081"
-
"i4082"))
+
#("i4151"
+
"i4152"
+
"i4153"
+
"i4154"
+
"i4155"))
#(ribcage
()
()
@@ -13193,47 +13411,47 @@
#(ribcage
#(x)
#((top))
-
#("i4075")))
+
#("i4148")))
(hygiene
guile))
- #{tmp\
4091}#)))
- #{template\ 4087}#
- #{pattern\
4086}#))))))
- #{tmp\ 4077}#)
+ #{tmp\
4164}#)))
+ #{template\ 4160}#
+ #{pattern\
4159}#))))))
+ #{tmp\ 4150}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4076}#)))
+ #{tmp\ 4149}#)))
($sc-dispatch
- #{tmp\ 4076}#
+ #{tmp\ 4149}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 4074}#))
+ #{x\ 4147}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 4092}#)
- ((lambda (#{tmp\ 4094}#)
- ((lambda (#{tmp\ 4095}#)
- (if (if #{tmp\ 4095}#
- (apply (lambda (#{let*\ 4101}#
- #{x\ 4102}#
- #{v\ 4103}#
- #{e1\ 4104}#
- #{e2\ 4105}#)
- (and-map identifier? #{x\ 4102}#))
- #{tmp\ 4095}#)
+ (cons (lambda (#{x\ 4165}#)
+ ((lambda (#{tmp\ 4167}#)
+ ((lambda (#{tmp\ 4168}#)
+ (if (if #{tmp\ 4168}#
+ (apply (lambda (#{let*\ 4174}#
+ #{x\ 4175}#
+ #{v\ 4176}#
+ #{e1\ 4177}#
+ #{e2\ 4178}#)
+ (and-map identifier? #{x\ 4175}#))
+ #{tmp\ 4168}#)
#f)
- (apply (lambda (#{let*\ 4112}#
- #{x\ 4113}#
- #{v\ 4114}#
- #{e1\ 4115}#
- #{e2\ 4116}#)
- (letrec ((#{f\ 4119}#
- (lambda (#{bindings\ 4120}#)
- (if (null? #{bindings\ 4120}#)
+ (apply (lambda (#{let*\ 4185}#
+ #{x\ 4186}#
+ #{v\ 4187}#
+ #{e1\ 4188}#
+ #{e2\ 4189}#)
+ (letrec ((#{f\ 4192}#
+ (lambda (#{bindings\ 4193}#)
+ (if (null? #{bindings\ 4193}#)
(cons '#(syntax-object
let
((top)
@@ -13241,7 +13459,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4117" "i4118"))
+ #("i4190" "i4191"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -13249,25 +13467,25 @@
(top)
(top)
(top))
- #("i4107"
- "i4108"
- "i4109"
- "i4110"
- "i4111"))
+ #("i4180"
+ "i4181"
+ "i4182"
+ "i4183"
+ "i4184"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4093")))
+ #("i4166")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4115}#
- #{e2\ 4116}#)))
- ((lambda (#{tmp\ 4125}#)
- ((lambda (#{tmp\ 4126}#)
- (if #{tmp\ 4126}#
- (apply (lambda (#{body\
4129}#
- #{binding\
4130}#)
+ (cons #{e1\ 4188}#
+ #{e2\ 4189}#)))
+ ((lambda (#{tmp\ 4198}#)
+ ((lambda (#{tmp\ 4199}#)
+ (if #{tmp\ 4199}#
+ (apply (lambda (#{body\
4202}#
+ #{binding\
4203}#)
(list
'#(syntax-object
let
((top)
@@ -13276,8 +13494,8 @@
binding)
#((top)
(top))
-
#("i4127"
-
"i4128"))
+
#("i4200"
+
"i4201"))
#(ribcage
()
()
@@ -13287,8 +13505,8 @@
bindings)
#((top)
(top))
-
#("i4117"
-
"i4118"))
+
#("i4190"
+
"i4191"))
#(ribcage
#(let*
x
@@ -13300,11 +13518,11 @@
(top)
(top)
(top))
-
#("i4107"
-
"i4108"
-
"i4109"
-
"i4110"
-
"i4111"))
+
#("i4180"
+
"i4181"
+
"i4182"
+
"i4183"
+
"i4184"))
#(ribcage
()
()
@@ -13312,57 +13530,57 @@
#(ribcage
#(x)
#((top))
-
#("i4093")))
+
#("i4166")))
(hygiene
guile))
- (list
#{binding\ 4130}#)
- #{body\
4129}#))
- #{tmp\ 4126}#)
+ (list
#{binding\ 4203}#)
+ #{body\
4202}#))
+ #{tmp\ 4199}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 4125}#)))
+ #{tmp\ 4198}#)))
($sc-dispatch
- #{tmp\ 4125}#
+ #{tmp\ 4198}#
'(any any))))
- (list (#{f\ 4119}#
- (cdr #{bindings\ 4120}#))
- (car #{bindings\
4120}#)))))))
- (#{f\ 4119}#
- (map list #{x\ 4113}# #{v\ 4114}#))))
- #{tmp\ 4095}#)
+ (list (#{f\ 4192}#
+ (cdr #{bindings\ 4193}#))
+ (car #{bindings\
4193}#)))))))
+ (#{f\ 4192}#
+ (map list #{x\ 4186}# #{v\ 4187}#))))
+ #{tmp\ 4168}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4094}#)))
+ #{tmp\ 4167}#)))
($sc-dispatch
- #{tmp\ 4094}#
+ #{tmp\ 4167}#
'(any #(each (any any)) any . each-any))))
- #{x\ 4092}#))
+ #{x\ 4165}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 4131}#)
- ((lambda (#{tmp\ 4133}#)
- ((lambda (#{tmp\ 4134}#)
- (if #{tmp\ 4134}#
- (apply (lambda (#{_\ 4142}#
- #{var\ 4143}#
- #{init\ 4144}#
- #{step\ 4145}#
- #{e0\ 4146}#
- #{e1\ 4147}#
- #{c\ 4148}#)
- ((lambda (#{tmp\ 4150}#)
- ((lambda (#{tmp\ 4151}#)
- (if #{tmp\ 4151}#
- (apply (lambda (#{step\ 4153}#)
- ((lambda (#{tmp\ 4154}#)
- ((lambda (#{tmp\ 4155}#)
- (if #{tmp\ 4155}#
+ (cons (lambda (#{orig-x\ 4204}#)
+ ((lambda (#{tmp\ 4206}#)
+ ((lambda (#{tmp\ 4207}#)
+ (if #{tmp\ 4207}#
+ (apply (lambda (#{_\ 4215}#
+ #{var\ 4216}#
+ #{init\ 4217}#
+ #{step\ 4218}#
+ #{e0\ 4219}#
+ #{e1\ 4220}#
+ #{c\ 4221}#)
+ ((lambda (#{tmp\ 4223}#)
+ ((lambda (#{tmp\ 4224}#)
+ (if #{tmp\ 4224}#
+ (apply (lambda (#{step\ 4226}#)
+ ((lambda (#{tmp\ 4227}#)
+ ((lambda (#{tmp\ 4228}#)
+ (if #{tmp\ 4228}#
(apply (lambda ()
(list
'#(syntax-object
let
@@ -13370,7 +13588,7 @@
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13386,13 +13604,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13400,7 +13618,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
'#(syntax-object
@@ -13409,7 +13627,7 @@
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13425,13 +13643,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13439,19 +13657,19 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
(map list
-
#{var\ 4143}#
-
#{init\ 4144}#)
+
#{var\ 4216}#
+
#{init\ 4217}#)
(list
'#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13467,13 +13685,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13481,7 +13699,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
(list '#(syntax-object
@@ -13490,7 +13708,7 @@
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13506,13 +13724,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13520,17 +13738,17 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
-
#{e0\ 4146}#)
+
#{e0\ 4219}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13546,13 +13764,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13560,18 +13778,18 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
(append
-
#{c\ 4148}#
+
#{c\ 4221}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13587,13 +13805,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13601,15 +13819,15 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
-
#{step\ 4153}#)))))))
- #{tmp\ 4155}#)
- ((lambda (#{tmp\ 4160}#)
- (if #{tmp\ 4160}#
- (apply (lambda
(#{e1\ 4163}#
-
#{e2\ 4164}#)
+
#{step\ 4226}#)))))))
+ #{tmp\ 4228}#)
+ ((lambda (#{tmp\ 4233}#)
+ (if #{tmp\ 4233}#
+ (apply (lambda
(#{e1\ 4236}#
+
#{e2\ 4237}#)
(list
'#(syntax-object
let
((top)
@@ -13618,12 +13836,12 @@
e2)
#((top)
(top))
-
#("i4161"
-
"i4162"))
+
#("i4234"
+
"i4235"))
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13639,13 +13857,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13653,7 +13871,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
'#(syntax-object
@@ -13664,12 +13882,12 @@
e2)
#((top)
(top))
-
#("i4161"
-
"i4162"))
+
#("i4234"
+
"i4235"))
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13685,13 +13903,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13699,12 +13917,12 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
(map
list
-
#{var\ 4143}#
-
#{init\ 4144}#)
+
#{var\ 4216}#
+
#{init\ 4217}#)
(list '#(syntax-object
if
((top)
@@ -13713,12 +13931,12 @@
e2)
#((top)
(top))
-
#("i4161"
-
"i4162"))
+
#("i4234"
+
"i4235"))
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13734,13 +13952,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13748,10 +13966,10 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
-
#{e0\ 4146}#
+
#{e0\ 4219}#
(cons '#(syntax-object
begin
((top)
@@ -13760,12 +13978,12 @@
e2)
#((top)
(top))
-
#("i4161"
-
"i4162"))
+
#("i4234"
+
"i4235"))
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13781,13 +13999,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13795,11 +14013,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
-
(cons #{e1\ 4163}#
-
#{e2\ 4164}#))
+
(cons #{e1\ 4236}#
+
#{e2\ 4237}#))
(cons '#(syntax-object
begin
((top)
@@ -13808,12 +14026,12 @@
e2)
#((top)
(top))
-
#("i4161"
-
"i4162"))
+
#("i4234"
+
"i4235"))
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13829,13 +14047,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13843,11 +14061,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
(append
-
#{c\ 4148}#
+
#{c\ 4221}#
(list (cons '#(syntax-object
doloop
((top)
@@ -13856,12 +14074,12 @@
e2)
#((top)
(top))
-
#("i4161"
-
"i4162"))
+
#("i4234"
+
"i4235"))
#(ribcage
#(step)
#((top))
-
#("i4152"))
+
#("i4225"))
#(ribcage
#(_
var
@@ -13877,13 +14095,13 @@
(top)
(top)
(top))
-
#("i4135"
-
"i4136"
-
"i4137"
-
"i4138"
-
"i4139"
-
"i4140"
-
"i4141"))
+
#("i4208"
+
"i4209"
+
"i4210"
+
"i4211"
+
"i4212"
+
"i4213"
+
"i4214"))
#(ribcage
()
()
@@ -13891,107 +14109,107 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4132")))
+
#("i4205")))
(hygiene
guile))
-
#{step\ 4153}#)))))))
- #{tmp\
4160}#)
+
#{step\ 4226}#)))))))
+ #{tmp\
4233}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 4154}#)))
+ #{tmp\ 4227}#)))
($sc-dispatch
- #{tmp\ 4154}#
+ #{tmp\ 4227}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 4154}#
+ #{tmp\ 4227}#
'())))
- #{e1\ 4147}#))
- #{tmp\ 4151}#)
+ #{e1\ 4220}#))
+ #{tmp\ 4224}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4150}#)))
+ #{tmp\ 4223}#)))
($sc-dispatch
- #{tmp\ 4150}#
+ #{tmp\ 4223}#
'each-any)))
- (map (lambda (#{v\ 4171}# #{s\ 4172}#)
- ((lambda (#{tmp\ 4175}#)
- ((lambda (#{tmp\ 4176}#)
- (if #{tmp\ 4176}#
- (apply (lambda () #{v\ 4171}#)
- #{tmp\ 4176}#)
- ((lambda (#{tmp\ 4177}#)
- (if #{tmp\ 4177}#
- (apply (lambda (#{e\ 4179}#)
- #{e\ 4179}#)
- #{tmp\ 4177}#)
- ((lambda (#{_\ 4181}#)
+ (map (lambda (#{v\ 4244}# #{s\ 4245}#)
+ ((lambda (#{tmp\ 4248}#)
+ ((lambda (#{tmp\ 4249}#)
+ (if #{tmp\ 4249}#
+ (apply (lambda () #{v\ 4244}#)
+ #{tmp\ 4249}#)
+ ((lambda (#{tmp\ 4250}#)
+ (if #{tmp\ 4250}#
+ (apply (lambda (#{e\ 4252}#)
+ #{e\ 4252}#)
+ #{tmp\ 4250}#)
+ ((lambda (#{_\ 4254}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4131}#
- #{s\ 4172}#))
- #{tmp\ 4175}#)))
+ #{orig-x\ 4204}#
+ #{s\ 4245}#))
+ #{tmp\ 4248}#)))
($sc-dispatch
- #{tmp\ 4175}#
+ #{tmp\ 4248}#
'(any)))))
($sc-dispatch
- #{tmp\ 4175}#
+ #{tmp\ 4248}#
'())))
- #{s\ 4172}#))
- #{var\ 4143}#
- #{step\ 4145}#)))
- #{tmp\ 4134}#)
+ #{s\ 4245}#))
+ #{var\ 4216}#
+ #{step\ 4218}#)))
+ #{tmp\ 4207}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4133}#)))
+ #{tmp\ 4206}#)))
($sc-dispatch
- #{tmp\ 4133}#
+ #{tmp\ 4206}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 4131}#))
+ #{orig-x\ 4204}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 4188}#
- (lambda (#{x\ 4192}# #{y\ 4193}#)
- ((lambda (#{tmp\ 4197}#)
- ((lambda (#{tmp\ 4198}#)
- (if #{tmp\ 4198}#
- (apply (lambda (#{x\ 4201}# #{y\ 4202}#)
- ((lambda (#{tmp\ 4203}#)
- ((lambda (#{tmp\ 4204}#)
- (if #{tmp\ 4204}#
- (apply (lambda (#{dy\ 4206}#)
- ((lambda (#{tmp\
4207}#)
- ((lambda (#{tmp\
4208}#)
- (if #{tmp\
4208}#
- (apply
(lambda (#{dx\ 4210}#)
+ (cons (letrec ((#{quasicons\ 4261}#
+ (lambda (#{x\ 4265}# #{y\ 4266}#)
+ ((lambda (#{tmp\ 4270}#)
+ ((lambda (#{tmp\ 4271}#)
+ (if #{tmp\ 4271}#
+ (apply (lambda (#{x\ 4274}# #{y\ 4275}#)
+ ((lambda (#{tmp\ 4276}#)
+ ((lambda (#{tmp\ 4277}#)
+ (if #{tmp\ 4277}#
+ (apply (lambda (#{dy\ 4279}#)
+ ((lambda (#{tmp\
4280}#)
+ ((lambda (#{tmp\
4281}#)
+ (if #{tmp\
4281}#
+ (apply
(lambda (#{dx\ 4283}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
-
#("i4209"))
+
#("i4282"))
#(ribcage
#(dy)
#((top))
-
#("i4205"))
+
#("i4278"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4199"
-
"i4200"))
+
#("i4272"
+
"i4273"))
#(ribcage
()
()
@@ -14005,8 +14223,8 @@
y)
#((top)
(top))
-
#("i4194"
-
"i4195"))
+
#("i4267"
+
"i4268"))
#(ribcage
#(quasicons
quasiappend
@@ -14016,35 +14234,35 @@
(top)
(top)
(top))
-
#("i4184"
-
"i4185"
-
"i4186"
-
"i4187")))
+
#("i4257"
+
"i4258"
+
"i4259"
+
"i4260")))
(hygiene
guile))
-
(cons #{dx\ 4210}#
-
#{dy\ 4206}#)))
- #{tmp\
4208}#)
- ((lambda
(#{_\ 4212}#)
- (if (null?
#{dy\ 4206}#)
+
(cons #{dx\ 4283}#
+
#{dy\ 4279}#)))
+ #{tmp\
4281}#)
+ ((lambda
(#{_\ 4285}#)
+ (if (null?
#{dy\ 4279}#)
(list
'#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
-
#("i4211"))
+
#("i4284"))
#(ribcage
#(dy)
#((top))
-
#("i4205"))
+
#("i4278"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4199"
-
"i4200"))
+
#("i4272"
+
"i4273"))
#(ribcage
()
()
@@ -14058,8 +14276,8 @@
y)
#((top)
(top))
-
#("i4194"
-
"i4195"))
+
#("i4267"
+
"i4268"))
#(ribcage
#(quasicons
quasiappend
@@ -14069,31 +14287,31 @@
(top)
(top)
(top))
-
#("i4184"
-
"i4185"
-
"i4186"
-
"i4187")))
+
#("i4257"
+
"i4258"
+
"i4259"
+
"i4260")))
(hygiene
guile))
-
#{x\ 4201}#)
+
#{x\ 4274}#)
(list
'#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
-
#("i4211"))
+
#("i4284"))
#(ribcage
#(dy)
#((top))
-
#("i4205"))
+
#("i4278"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4199"
-
"i4200"))
+
#("i4272"
+
"i4273"))
#(ribcage
()
()
@@ -14107,8 +14325,8 @@
y)
#((top)
(top))
-
#("i4194"
-
"i4195"))
+
#("i4267"
+
"i4268"))
#(ribcage
#(quasicons
quasiappend
@@ -14118,17 +14336,17 @@
(top)
(top)
(top))
-
#("i4184"
-
"i4185"
-
"i4186"
-
"i4187")))
+
#("i4257"
+
"i4258"
+
"i4259"
+
"i4260")))
(hygiene
guile))
-
#{x\ 4201}#
-
#{y\ 4202}#)))
- #{tmp\
4207}#)))
+
#{x\ 4274}#
+
#{y\ 4275}#)))
+ #{tmp\
4280}#)))
($sc-dispatch
- #{tmp\ 4207}#
+ #{tmp\ 4280}#
'(#(free-id
#(syntax-object
quote
@@ -14136,13 +14354,13 @@
#(ribcage
#(dy)
#((top))
-
#("i4205"))
+
#("i4278"))
#(ribcage
#(x y)
#((top)
(top))
-
#("i4199"
-
"i4200"))
+
#("i4272"
+
"i4273"))
#(ribcage
()
()
@@ -14155,8 +14373,8 @@
#(x y)
#((top)
(top))
-
#("i4194"
-
"i4195"))
+
#("i4267"
+
"i4268"))
#(ribcage
#(quasicons
quasiappend
@@ -14166,32 +14384,32 @@
(top)
(top)
(top))
-
#("i4184"
-
"i4185"
-
"i4186"
-
"i4187")))
+
#("i4257"
+
"i4258"
+
"i4259"
+
"i4260")))
(hygiene
guile)))
any))))
- #{x\ 4201}#))
- #{tmp\ 4204}#)
- ((lambda (#{tmp\ 4213}#)
- (if #{tmp\ 4213}#
- (apply (lambda (#{stuff\
4215}#)
+ #{x\ 4274}#))
+ #{tmp\ 4277}#)
+ ((lambda (#{tmp\ 4286}#)
+ (if #{tmp\ 4286}#
+ (apply (lambda (#{stuff\
4288}#)
(cons
'#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
-
#("i4214"))
+
#("i4287"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4199"
-
"i4200"))
+
#("i4272"
+
"i4273"))
#(ribcage
()
()
@@ -14205,8 +14423,8 @@
y)
#((top)
(top))
-
#("i4194"
-
"i4195"))
+
#("i4267"
+
"i4268"))
#(ribcage
#(quasicons
quasiappend
@@ -14216,29 +14434,29 @@
(top)
(top)
(top))
-
#("i4184"
-
"i4185"
-
"i4186"
-
"i4187")))
+
#("i4257"
+
"i4258"
+
"i4259"
+
"i4260")))
(hygiene
guile))
- (cons #{x\
4201}#
-
#{stuff\ 4215}#)))
- #{tmp\ 4213}#)
- ((lambda (#{else\ 4217}#)
+ (cons #{x\
4274}#
+
#{stuff\ 4288}#)))
+ #{tmp\ 4286}#)
+ ((lambda (#{else\ 4290}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4216"))
+ #("i4289"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4199"
- "i4200"))
+ #("i4272"
+ "i4273"))
#(ribcage
()
()
@@ -14251,8 +14469,8 @@
#(x y)
#((top)
(top))
- #("i4194"
- "i4195"))
+ #("i4267"
+ "i4268"))
#(ribcage
#(quasicons
quasiappend
@@ -14262,17 +14480,17 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
-
"i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+
"i4260")))
(hygiene
guile))
- #{x\ 4201}#
- #{y\ 4202}#))
- #{tmp\ 4203}#)))
+ #{x\ 4274}#
+ #{y\ 4275}#))
+ #{tmp\ 4276}#)))
($sc-dispatch
- #{tmp\ 4203}#
+ #{tmp\ 4276}#
'(#(free-id
#(syntax-object
list
@@ -14280,13 +14498,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4199" "i4200"))
+ #("i4272" "i4273"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4194" "i4195"))
+ #("i4267" "i4268"))
#(ribcage
#(quasicons
quasiappend
@@ -14296,15 +14514,15 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4203}#
+ #{tmp\ 4276}#
'(#(free-id
#(syntax-object
quote
@@ -14312,13 +14530,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4199" "i4200"))
+ #("i4272" "i4273"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4194" "i4195"))
+ #("i4267" "i4268"))
#(ribcage
#(quasicons
quasiappend
@@ -14328,44 +14546,44 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
any))))
- #{y\ 4202}#))
- #{tmp\ 4198}#)
+ #{y\ 4275}#))
+ #{tmp\ 4271}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4197}#)))
- ($sc-dispatch #{tmp\ 4197}# (quote (any any)))))
- (list #{x\ 4192}# #{y\ 4193}#))))
- (#{quasiappend\ 4189}#
- (lambda (#{x\ 4218}# #{y\ 4219}#)
- ((lambda (#{tmp\ 4223}#)
- ((lambda (#{tmp\ 4224}#)
- (if #{tmp\ 4224}#
- (apply (lambda (#{x\ 4227}# #{y\ 4228}#)
- ((lambda (#{tmp\ 4229}#)
- ((lambda (#{tmp\ 4230}#)
- (if #{tmp\ 4230}#
- (apply (lambda () #{x\ 4227}#)
- #{tmp\ 4230}#)
- ((lambda (#{_\ 4232}#)
+ #{tmp\ 4270}#)))
+ ($sc-dispatch #{tmp\ 4270}# (quote (any any)))))
+ (list #{x\ 4265}# #{y\ 4266}#))))
+ (#{quasiappend\ 4262}#
+ (lambda (#{x\ 4291}# #{y\ 4292}#)
+ ((lambda (#{tmp\ 4296}#)
+ ((lambda (#{tmp\ 4297}#)
+ (if #{tmp\ 4297}#
+ (apply (lambda (#{x\ 4300}# #{y\ 4301}#)
+ ((lambda (#{tmp\ 4302}#)
+ ((lambda (#{tmp\ 4303}#)
+ (if #{tmp\ 4303}#
+ (apply (lambda () #{x\ 4300}#)
+ #{tmp\ 4303}#)
+ ((lambda (#{_\ 4305}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i4231"))
+ #("i4304"))
#(ribcage
#(x y)
#((top) (top))
- #("i4225"
- "i4226"))
+ #("i4298"
+ "i4299"))
#(ribcage
()
()
@@ -14377,8 +14595,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4220"
- "i4221"))
+ #("i4293"
+ "i4294"))
#(ribcage
#(quasicons
quasiappend
@@ -14388,16 +14606,16 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile))
- #{x\ 4227}#
- #{y\ 4228}#))
- #{tmp\ 4229}#)))
+ #{x\ 4300}#
+ #{y\ 4301}#))
+ #{tmp\ 4302}#)))
($sc-dispatch
- #{tmp\ 4229}#
+ #{tmp\ 4302}#
'(#(free-id
#(syntax-object
quote
@@ -14405,13 +14623,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4225" "i4226"))
+ #("i4298" "i4299"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4220" "i4221"))
+ #("i4293" "i4294"))
#(ribcage
#(quasicons
quasiappend
@@ -14421,45 +14639,45 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
()))))
- #{y\ 4228}#))
- #{tmp\ 4224}#)
+ #{y\ 4301}#))
+ #{tmp\ 4297}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4223}#)))
- ($sc-dispatch #{tmp\ 4223}# (quote (any any)))))
- (list #{x\ 4218}# #{y\ 4219}#))))
- (#{quasivector\ 4190}#
- (lambda (#{x\ 4233}#)
- ((lambda (#{tmp\ 4236}#)
- ((lambda (#{x\ 4238}#)
- ((lambda (#{tmp\ 4239}#)
- ((lambda (#{tmp\ 4240}#)
- (if #{tmp\ 4240}#
- (apply (lambda (#{x\ 4242}#)
+ #{tmp\ 4296}#)))
+ ($sc-dispatch #{tmp\ 4296}# (quote (any any)))))
+ (list #{x\ 4291}# #{y\ 4292}#))))
+ (#{quasivector\ 4263}#
+ (lambda (#{x\ 4306}#)
+ ((lambda (#{tmp\ 4309}#)
+ ((lambda (#{x\ 4311}#)
+ ((lambda (#{tmp\ 4312}#)
+ ((lambda (#{tmp\ 4313}#)
+ (if #{tmp\ 4313}#
+ (apply (lambda (#{x\ 4315}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i4241"))
+ #("i4314"))
#(ribcage
#(x)
#((top))
- #("i4237"))
+ #("i4310"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4234"))
+ #("i4307"))
#(ribcage
#(quasicons
quasiappend
@@ -14469,28 +14687,28 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile))
(list->vector
- #{x\ 4242}#)))
- #{tmp\ 4240}#)
- ((lambda (#{tmp\ 4244}#)
- (if #{tmp\ 4244}#
- (apply (lambda (#{x\ 4246}#)
+ #{x\ 4315}#)))
+ #{tmp\ 4313}#)
+ ((lambda (#{tmp\ 4317}#)
+ (if #{tmp\ 4317}#
+ (apply (lambda (#{x\ 4319}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i4245"))
+ #("i4318"))
#(ribcage
#(x)
#((top))
- #("i4237"))
+ #("i4310"))
#(ribcage
()
()
@@ -14502,7 +14720,7 @@
#(ribcage
#(x)
#((top))
- #("i4234"))
+ #("i4307"))
#(ribcage
#(quasicons
quasiappend
@@ -14512,31 +14730,31 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile))
- #{x\ 4246}#))
- #{tmp\ 4244}#)
- ((lambda (#{_\ 4249}#)
+ #{x\ 4319}#))
+ #{tmp\ 4317}#)
+ ((lambda (#{_\ 4322}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i4248"))
+ #("i4321"))
#(ribcage
#(x)
#((top))
- #("i4237"))
+ #("i4310"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4234"))
+ #("i4307"))
#(ribcage
#(quasicons
quasiappend
@@ -14546,15 +14764,15 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile))
- #{x\ 4238}#))
- #{tmp\ 4239}#)))
+ #{x\ 4311}#))
+ #{tmp\ 4312}#)))
($sc-dispatch
- #{tmp\ 4239}#
+ #{tmp\ 4312}#
'(#(free-id
#(syntax-object
list
@@ -14562,82 +14780,82 @@
#(ribcage
#(x)
#((top))
- #("i4237"))
+ #("i4310"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4234"))
+ #("i4307"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 4239}#
+ #{tmp\ 4312}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4237"))
+ #(ribcage #(x) #((top)) #("i4310"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4234"))
+ #(ribcage #(x) #((top)) #("i4307"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
each-any))))
- #{x\ 4238}#))
- #{tmp\ 4236}#))
- #{x\ 4233}#)))
- (#{quasi\ 4191}#
- (lambda (#{p\ 4250}# #{lev\ 4251}#)
- ((lambda (#{tmp\ 4254}#)
- ((lambda (#{tmp\ 4255}#)
- (if #{tmp\ 4255}#
- (apply (lambda (#{p\ 4257}#)
- (if (= #{lev\ 4251}# 0)
- #{p\ 4257}#
- (#{quasicons\ 4188}#
+ #{x\ 4311}#))
+ #{tmp\ 4309}#))
+ #{x\ 4306}#)))
+ (#{quasi\ 4264}#
+ (lambda (#{p\ 4323}# #{lev\ 4324}#)
+ ((lambda (#{tmp\ 4327}#)
+ ((lambda (#{tmp\ 4328}#)
+ (if #{tmp\ 4328}#
+ (apply (lambda (#{p\ 4330}#)
+ (if (= #{lev\ 4324}# 0)
+ #{p\ 4330}#
+ (#{quasicons\ 4261}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4256"))
+ #("i4329"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4252" "i4253"))
+ #("i4325" "i4326"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile))
#(syntax-object
unquote
@@ -14645,50 +14863,50 @@
#(ribcage
#(p)
#((top))
- #("i4256"))
+ #("i4329"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4252" "i4253"))
+ #("i4325" "i4326"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
- (#{quasi\ 4191}#
- (list #{p\ 4257}#)
- (- #{lev\ 4251}# 1)))))
- #{tmp\ 4255}#)
- ((lambda (#{tmp\ 4258}#)
- (if (if #{tmp\ 4258}#
- (apply (lambda (#{args\ 4260}#)
- (= #{lev\ 4251}# 0))
- #{tmp\ 4258}#)
+ (#{quasi\ 4264}#
+ (list #{p\ 4330}#)
+ (- #{lev\ 4324}# 1)))))
+ #{tmp\ 4328}#)
+ ((lambda (#{tmp\ 4331}#)
+ (if (if #{tmp\ 4331}#
+ (apply (lambda (#{args\ 4333}#)
+ (= #{lev\ 4324}# 0))
+ #{tmp\ 4331}#)
#f)
- (apply (lambda (#{args\ 4262}#)
+ (apply (lambda (#{args\ 4335}#)
(syntax-violation
'unquote
"unquote takes exactly one
argument"
- #{p\ 4250}#
+ #{p\ 4323}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i4261"))
+ #("i4334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4252" "i4253"))
+ #("i4325" "i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -14698,33 +14916,33 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile))
- #{args\ 4262}#)))
- #{tmp\ 4258}#)
- ((lambda (#{tmp\ 4263}#)
- (if #{tmp\ 4263}#
- (apply (lambda (#{p\ 4266}#
- #{q\ 4267}#)
- (if (= #{lev\ 4251}# 0)
- (#{quasiappend\ 4189}#
- #{p\ 4266}#
- (#{quasi\ 4191}#
- #{q\ 4267}#
- #{lev\ 4251}#))
- (#{quasicons\ 4188}#
- (#{quasicons\ 4188}#
+ #{args\ 4335}#)))
+ #{tmp\ 4331}#)
+ ((lambda (#{tmp\ 4336}#)
+ (if #{tmp\ 4336}#
+ (apply (lambda (#{p\ 4339}#
+ #{q\ 4340}#)
+ (if (= #{lev\ 4324}# 0)
+ (#{quasiappend\ 4262}#
+ #{p\ 4339}#
+ (#{quasi\ 4264}#
+ #{q\ 4340}#
+ #{lev\ 4324}#))
+ (#{quasicons\ 4261}#
+ (#{quasicons\ 4261}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4264"
- "i4265"))
+ #("i4337"
+ "i4338"))
#(ribcage
()
()
@@ -14732,8 +14950,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4252"
- "i4253"))
+ #("i4325"
+ "i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -14743,10 +14961,10 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -14754,8 +14972,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4264"
- "i4265"))
+ #("i4337"
+ "i4338"))
#(ribcage
()
()
@@ -14763,8 +14981,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4252"
- "i4253"))
+ #("i4325"
+ "i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -14774,31 +14992,31 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
- (#{quasi\ 4191}#
- (list #{p\ 4266}#)
- (- #{lev\ 4251}# 1)))
- (#{quasi\ 4191}#
- #{q\ 4267}#
- #{lev\ 4251}#))))
- #{tmp\ 4263}#)
- ((lambda (#{tmp\ 4268}#)
- (if (if #{tmp\ 4268}#
- (apply (lambda (#{args\
4271}#
- #{q\ 4272}#)
- (= #{lev\ 4251}# 0))
- #{tmp\ 4268}#)
+ (#{quasi\ 4264}#
+ (list #{p\ 4339}#)
+ (- #{lev\ 4324}# 1)))
+ (#{quasi\ 4264}#
+ #{q\ 4340}#
+ #{lev\ 4324}#))))
+ #{tmp\ 4336}#)
+ ((lambda (#{tmp\ 4341}#)
+ (if (if #{tmp\ 4341}#
+ (apply (lambda (#{args\
4344}#
+ #{q\ 4345}#)
+ (= #{lev\ 4324}# 0))
+ #{tmp\ 4341}#)
#f)
- (apply (lambda (#{args\ 4275}#
- #{q\ 4276}#)
+ (apply (lambda (#{args\ 4348}#
+ #{q\ 4349}#)
(syntax-violation
'unquote-splicing
"unquote-splicing
takes exactly one argument"
- #{p\ 4250}#
+ #{p\ 4323}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -14806,8 +15024,8 @@
#(args q)
#((top)
(top))
- #("i4273"
-
"i4274"))
+ #("i4346"
+
"i4347"))
#(ribcage
()
()
@@ -14816,8 +15034,8 @@
#(p lev)
#((top)
(top))
- #("i4252"
-
"i4253"))
+ #("i4325"
+
"i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -14827,25 +15045,25 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
-
"i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+
"i4260")))
(hygiene
guile))
- #{args\
4275}#)))
- #{tmp\ 4268}#)
- ((lambda (#{tmp\ 4277}#)
- (if #{tmp\ 4277}#
- (apply (lambda (#{p\ 4279}#)
- (#{quasicons\
4188}#
+ #{args\
4348}#)))
+ #{tmp\ 4341}#)
+ ((lambda (#{tmp\ 4350}#)
+ (if #{tmp\ 4350}#
+ (apply (lambda (#{p\ 4352}#)
+ (#{quasicons\
4261}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i4278"))
+
#("i4351"))
#(ribcage
()
()
@@ -14854,8 +15072,8 @@
#(p lev)
#((top)
(top))
- #("i4252"
-
"i4253"))
+ #("i4325"
+
"i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -14865,10 +15083,10 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
-
"i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+
"i4260")))
(hygiene
guile))
#(syntax-object
@@ -14877,7 +15095,7 @@
#(ribcage
#(p)
#((top))
-
#("i4278"))
+
#("i4351"))
#(ribcage
()
()
@@ -14886,8 +15104,8 @@
#(p lev)
#((top)
(top))
- #("i4252"
-
"i4253"))
+ #("i4325"
+
"i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -14897,45 +15115,45 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
-
"i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+
"i4260")))
(hygiene
guile)))
- (#{quasi\ 4191}#
- (list #{p\
4279}#)
- (+ #{lev\
4251}#
+ (#{quasi\ 4264}#
+ (list #{p\
4352}#)
+ (+ #{lev\
4324}#
1))))
- #{tmp\ 4277}#)
- ((lambda (#{tmp\ 4280}#)
- (if #{tmp\ 4280}#
- (apply (lambda (#{p\
4283}#
- #{q\
4284}#)
- (#{quasicons\
4188}#
- (#{quasi\
4191}#
- #{p\
4283}#
- #{lev\
4251}#)
- (#{quasi\
4191}#
- #{q\
4284}#
- #{lev\
4251}#)))
- #{tmp\ 4280}#)
- ((lambda (#{tmp\
4285}#)
- (if #{tmp\ 4285}#
- (apply (lambda
(#{x\ 4287}#)
-
(#{quasivector\ 4190}#
-
(#{quasi\ 4191}#
- #{x\
4287}#
-
#{lev\ 4251}#)))
- #{tmp\
4285}#)
- ((lambda (#{p\
4290}#)
+ #{tmp\ 4350}#)
+ ((lambda (#{tmp\ 4353}#)
+ (if #{tmp\ 4353}#
+ (apply (lambda (#{p\
4356}#
+ #{q\
4357}#)
+ (#{quasicons\
4261}#
+ (#{quasi\
4264}#
+ #{p\
4356}#
+ #{lev\
4324}#)
+ (#{quasi\
4264}#
+ #{q\
4357}#
+ #{lev\
4324}#)))
+ #{tmp\ 4353}#)
+ ((lambda (#{tmp\
4358}#)
+ (if #{tmp\ 4358}#
+ (apply (lambda
(#{x\ 4360}#)
+
(#{quasivector\ 4263}#
+
(#{quasi\ 4264}#
+ #{x\
4360}#
+
#{lev\ 4324}#)))
+ #{tmp\
4358}#)
+ ((lambda (#{p\
4363}#)
(list
'#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i4289"))
+
#("i4362"))
#(ribcage
()
()
@@ -14945,8 +15163,8 @@
lev)
#((top)
(top))
-
#("i4252"
-
"i4253"))
+
#("i4325"
+
"i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -14956,23 +15174,23 @@
(top)
(top)
(top))
-
#("i4184"
-
"i4185"
-
"i4186"
-
"i4187")))
+
#("i4257"
+
"i4258"
+
"i4259"
+
"i4260")))
(hygiene
guile))
- #{p\
4290}#))
- #{tmp\ 4254}#)))
+ #{p\
4363}#))
+ #{tmp\ 4327}#)))
($sc-dispatch
- #{tmp\ 4254}#
+ #{tmp\ 4327}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 4254}#
+ #{tmp\ 4327}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4254}#
+ #{tmp\ 4327}#
'(#(free-id
#(syntax-object
quasiquote
@@ -14981,7 +15199,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4252" "i4253"))
+ #("i4325" "i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -14991,14 +15209,14 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 4254}#
+ #{tmp\ 4327}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -15007,7 +15225,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4252" "i4253"))
+ #("i4325" "i4326"))
#(ribcage
#(quasicons
quasiappend
@@ -15017,17 +15235,17 @@
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4254}#
+ #{tmp\ 4327}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -15036,23 +15254,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4252" "i4253"))
+ #("i4325" "i4326"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187")))
+ #("i4257"
+ "i4258"
+ "i4259"
+ "i4260")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4254}#
+ #{tmp\ 4327}#
'(#(free-id
#(syntax-object
unquote
@@ -15061,19 +15279,19 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4252" "i4253"))
+ #("i4325" "i4326"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4184" "i4185" "i4186" "i4187")))
+ #("i4257" "i4258" "i4259" "i4260")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4254}#
+ #{tmp\ 4327}#
'(#(free-id
#(syntax-object
unquote
@@ -15082,244 +15300,244 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4252" "i4253"))
+ #("i4325" "i4326"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4184" "i4185" "i4186" "i4187")))
+ #("i4257" "i4258" "i4259" "i4260")))
(hygiene guile)))
any))))
- #{p\ 4250}#))))
- (lambda (#{x\ 4291}#)
- ((lambda (#{tmp\ 4293}#)
- ((lambda (#{tmp\ 4294}#)
- (if #{tmp\ 4294}#
- (apply (lambda (#{_\ 4297}# #{e\ 4298}#)
- (#{quasi\ 4191}# #{e\ 4298}# 0))
- #{tmp\ 4294}#)
+ #{p\ 4323}#))))
+ (lambda (#{x\ 4364}#)
+ ((lambda (#{tmp\ 4366}#)
+ ((lambda (#{tmp\ 4367}#)
+ (if #{tmp\ 4367}#
+ (apply (lambda (#{_\ 4370}# #{e\ 4371}#)
+ (#{quasi\ 4264}# #{e\ 4371}# 0))
+ #{tmp\ 4367}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4293}#)))
- ($sc-dispatch #{tmp\ 4293}# (quote (any any)))))
- #{x\ 4291}#)))
+ #{tmp\ 4366}#)))
+ ($sc-dispatch #{tmp\ 4366}# (quote (any any)))))
+ #{x\ 4364}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 4299}#)
- (letrec ((#{read-file\ 4302}#
- (lambda (#{fn\ 4303}# #{k\ 4304}#)
- (let ((#{p\ 4308}# (open-input-file #{fn\ 4303}#)))
- (letrec ((#{f\ 4312}#
- (lambda (#{x\ 4313}# #{result\ 4314}#)
- (if (eof-object? #{x\ 4313}#)
+ (cons (lambda (#{x\ 4372}#)
+ (letrec ((#{read-file\ 4375}#
+ (lambda (#{fn\ 4376}# #{k\ 4377}#)
+ (let ((#{p\ 4381}# (open-input-file #{fn\ 4376}#)))
+ (letrec ((#{f\ 4385}#
+ (lambda (#{x\ 4386}# #{result\ 4387}#)
+ (if (eof-object? #{x\ 4386}#)
(begin
- (close-input-port #{p\ 4308}#)
- (reverse #{result\ 4314}#))
- (#{f\ 4312}#
- (read #{p\ 4308}#)
+ (close-input-port #{p\ 4381}#)
+ (reverse #{result\ 4387}#))
+ (#{f\ 4385}#
+ (read #{p\ 4381}#)
(cons (datum->syntax
- #{k\ 4304}#
- #{x\ 4313}#)
- #{result\ 4314}#))))))
- (#{f\ 4312}# (read #{p\ 4308}#) (quote ())))))))
- ((lambda (#{tmp\ 4315}#)
- ((lambda (#{tmp\ 4316}#)
- (if #{tmp\ 4316}#
- (apply (lambda (#{k\ 4319}# #{filename\ 4320}#)
- (let ((#{fn\ 4322}#
- (syntax->datum #{filename\ 4320}#)))
- ((lambda (#{tmp\ 4324}#)
- ((lambda (#{tmp\ 4325}#)
- (if #{tmp\ 4325}#
- (apply (lambda (#{exp\ 4327}#)
+ #{k\ 4377}#
+ #{x\ 4386}#)
+ #{result\ 4387}#))))))
+ (#{f\ 4385}# (read #{p\ 4381}#) (quote ())))))))
+ ((lambda (#{tmp\ 4388}#)
+ ((lambda (#{tmp\ 4389}#)
+ (if #{tmp\ 4389}#
+ (apply (lambda (#{k\ 4392}# #{filename\ 4393}#)
+ (let ((#{fn\ 4395}#
+ (syntax->datum #{filename\ 4393}#)))
+ ((lambda (#{tmp\ 4397}#)
+ ((lambda (#{tmp\ 4398}#)
+ (if #{tmp\ 4398}#
+ (apply (lambda (#{exp\ 4400}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4326"))
+ #("i4399"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4321"))
+ #("i4394"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4317"
- "i4318"))
+ #("i4390"
+ "i4391"))
#(ribcage
(read-file)
((top))
- ("i4301"))
+ ("i4374"))
#(ribcage
#(x)
#((top))
- #("i4300")))
+ #("i4373")))
(hygiene guile))
- #{exp\ 4327}#))
- #{tmp\ 4325}#)
+ #{exp\ 4400}#))
+ #{tmp\ 4398}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 4324}#)))
+ #{tmp\ 4397}#)))
($sc-dispatch
- #{tmp\ 4324}#
+ #{tmp\ 4397}#
'each-any)))
- (#{read-file\ 4302}#
- #{fn\ 4322}#
- #{k\ 4319}#))))
- #{tmp\ 4316}#)
+ (#{read-file\ 4375}#
+ #{fn\ 4395}#
+ #{k\ 4392}#))))
+ #{tmp\ 4389}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4315}#)))
- ($sc-dispatch #{tmp\ 4315}# (quote (any any)))))
- #{x\ 4299}#)))
+ #{tmp\ 4388}#)))
+ ($sc-dispatch #{tmp\ 4388}# (quote (any any)))))
+ #{x\ 4372}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 4329}#)
- ((lambda (#{tmp\ 4331}#)
- ((lambda (#{tmp\ 4332}#)
- (if #{tmp\ 4332}#
- (apply (lambda (#{k\ 4335}# #{filename\ 4336}#)
- (let ((#{fn\ 4338}#
- (syntax->datum #{filename\ 4336}#)))
- ((lambda (#{tmp\ 4340}#)
- ((lambda (#{fn\ 4342}#)
+ (cons (lambda (#{x\ 4402}#)
+ ((lambda (#{tmp\ 4404}#)
+ ((lambda (#{tmp\ 4405}#)
+ (if #{tmp\ 4405}#
+ (apply (lambda (#{k\ 4408}# #{filename\ 4409}#)
+ (let ((#{fn\ 4411}#
+ (syntax->datum #{filename\ 4409}#)))
+ ((lambda (#{tmp\ 4413}#)
+ ((lambda (#{fn\ 4415}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i4341"))
+ #("i4414"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4337"))
+ #("i4410"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4333" "i4334"))
+ #("i4406" "i4407"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4330")))
+ #("i4403")))
(hygiene guile))
- #{fn\ 4342}#))
- #{tmp\ 4340}#))
- (let ((#{t\ 4345}#
- (%search-load-path #{fn\ 4338}#)))
- (if #{t\ 4345}#
- #{t\ 4345}#
+ #{fn\ 4415}#))
+ #{tmp\ 4413}#))
+ (let ((#{t\ 4418}#
+ (%search-load-path #{fn\ 4411}#)))
+ (if #{t\ 4418}#
+ #{t\ 4418}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4329}#
- #{filename\ 4336}#))))))
- #{tmp\ 4332}#)
+ #{x\ 4402}#
+ #{filename\ 4409}#))))))
+ #{tmp\ 4405}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4331}#)))
- ($sc-dispatch #{tmp\ 4331}# (quote (any any)))))
- #{x\ 4329}#))
+ #{tmp\ 4404}#)))
+ ($sc-dispatch #{tmp\ 4404}# (quote (any any)))))
+ #{x\ 4402}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 4347}#)
- ((lambda (#{tmp\ 4349}#)
- ((lambda (#{tmp\ 4350}#)
- (if #{tmp\ 4350}#
- (apply (lambda (#{_\ 4353}# #{e\ 4354}#)
+ (cons (lambda (#{x\ 4420}#)
+ ((lambda (#{tmp\ 4422}#)
+ ((lambda (#{tmp\ 4423}#)
+ (if #{tmp\ 4423}#
+ (apply (lambda (#{_\ 4426}# #{e\ 4427}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4347}#))
- #{tmp\ 4350}#)
+ #{x\ 4420}#))
+ #{tmp\ 4423}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4349}#)))
- ($sc-dispatch #{tmp\ 4349}# (quote (any any)))))
- #{x\ 4347}#))
+ #{tmp\ 4422}#)))
+ ($sc-dispatch #{tmp\ 4422}# (quote (any any)))))
+ #{x\ 4420}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 4355}#)
- ((lambda (#{tmp\ 4357}#)
- ((lambda (#{tmp\ 4358}#)
- (if #{tmp\ 4358}#
- (apply (lambda (#{_\ 4361}# #{e\ 4362}#)
+ (cons (lambda (#{x\ 4428}#)
+ ((lambda (#{tmp\ 4430}#)
+ ((lambda (#{tmp\ 4431}#)
+ (if #{tmp\ 4431}#
+ (apply (lambda (#{_\ 4434}# #{e\ 4435}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4355}#))
- #{tmp\ 4358}#)
+ #{x\ 4428}#))
+ #{tmp\ 4431}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4357}#)))
- ($sc-dispatch #{tmp\ 4357}# (quote (any any)))))
- #{x\ 4355}#))
+ #{tmp\ 4430}#)))
+ ($sc-dispatch #{tmp\ 4430}# (quote (any any)))))
+ #{x\ 4428}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 4363}#)
- ((lambda (#{tmp\ 4365}#)
- ((lambda (#{tmp\ 4366}#)
- (if #{tmp\ 4366}#
- (apply (lambda (#{_\ 4371}#
- #{e\ 4372}#
- #{m1\ 4373}#
- #{m2\ 4374}#)
- ((lambda (#{tmp\ 4376}#)
- ((lambda (#{body\ 4378}#)
+ (cons (lambda (#{x\ 4436}#)
+ ((lambda (#{tmp\ 4438}#)
+ ((lambda (#{tmp\ 4439}#)
+ (if #{tmp\ 4439}#
+ (apply (lambda (#{_\ 4444}#
+ #{e\ 4445}#
+ #{m1\ 4446}#
+ #{m2\ 4447}#)
+ ((lambda (#{tmp\ 4449}#)
+ ((lambda (#{body\ 4451}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i4377"))
+ #("i4450"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4367"
- "i4368"
- "i4369"
- "i4370"))
+ #("i4440"
+ "i4441"
+ "i4442"
+ "i4443"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4364")))
+ #("i4437")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -15327,35 +15545,35 @@
#(ribcage
#(body)
#((top))
- #("i4377"))
+ #("i4450"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4367"
- "i4368"
- "i4369"
- "i4370"))
+ #("i4440"
+ "i4441"
+ "i4442"
+ "i4443"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4364")))
+ #("i4437")))
(hygiene guile))
- #{e\ 4372}#))
- #{body\ 4378}#))
- #{tmp\ 4376}#))
- (letrec ((#{f\ 4382}#
- (lambda (#{clause\ 4383}#
- #{clauses\ 4384}#)
- (if (null? #{clauses\ 4384}#)
- ((lambda (#{tmp\ 4386}#)
- ((lambda (#{tmp\ 4387}#)
- (if #{tmp\ 4387}#
- (apply (lambda (#{e1\
4390}#
- #{e2\
4391}#)
+ #{e\ 4445}#))
+ #{body\ 4451}#))
+ #{tmp\ 4449}#))
+ (letrec ((#{f\ 4455}#
+ (lambda (#{clause\ 4456}#
+ #{clauses\ 4457}#)
+ (if (null? #{clauses\ 4457}#)
+ ((lambda (#{tmp\ 4459}#)
+ ((lambda (#{tmp\ 4460}#)
+ (if #{tmp\ 4460}#
+ (apply (lambda (#{e1\
4463}#
+ #{e2\
4464}#)
(cons
'#(syntax-object
begin
((top)
@@ -15364,8 +15582,8 @@
e2)
#((top)
(top))
-
#("i4388"
-
"i4389"))
+
#("i4461"
+
"i4462"))
#(ribcage
()
()
@@ -15377,9 +15595,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15389,10 +15607,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15400,17 +15618,17 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
- (cons
#{e1\ 4390}#
-
#{e2\ 4391}#)))
- #{tmp\ 4387}#)
- ((lambda (#{tmp\ 4393}#)
- (if #{tmp\ 4393}#
- (apply (lambda (#{k\
4397}#
-
#{e1\ 4398}#
-
#{e2\ 4399}#)
+ (cons
#{e1\ 4463}#
+
#{e2\ 4464}#)))
+ #{tmp\ 4460}#)
+ ((lambda (#{tmp\ 4466}#)
+ (if #{tmp\ 4466}#
+ (apply (lambda (#{k\
4470}#
+
#{e1\ 4471}#
+
#{e2\ 4472}#)
(list
'#(syntax-object
if
((top)
@@ -15421,9 +15639,9 @@
#((top)
(top)
(top))
-
#("i4394"
-
"i4395"
-
"i4396"))
+
#("i4467"
+
"i4468"
+
"i4469"))
#(ribcage
()
()
@@ -15435,9 +15653,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15447,10 +15665,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15458,7 +15676,7 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
(list
'#(syntax-object
@@ -15471,9 +15689,9 @@
#((top)
(top)
(top))
-
#("i4394"
-
"i4395"
-
"i4396"))
+
#("i4467"
+
"i4468"
+
"i4469"))
#(ribcage
()
()
@@ -15485,9 +15703,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15497,10 +15715,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15508,7 +15726,7 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
'#(syntax-object
@@ -15521,9 +15739,9 @@
#((top)
(top)
(top))
-
#("i4394"
-
"i4395"
-
"i4396"))
+
#("i4467"
+
"i4468"
+
"i4469"))
#(ribcage
()
()
@@ -15535,9 +15753,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15547,10 +15765,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15558,7 +15776,7 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
(list '#(syntax-object
@@ -15571,9 +15789,9 @@
#((top)
(top)
(top))
-
#("i4394"
-
"i4395"
-
"i4396"))
+
#("i4467"
+
"i4468"
+
"i4469"))
#(ribcage
()
()
@@ -15585,9 +15803,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15597,10 +15815,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15608,10 +15826,10 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
-
#{k\ 4397}#))
+
#{k\ 4470}#))
(cons
'#(syntax-object
begin
((top)
@@ -15622,9 +15840,9 @@
#((top)
(top)
(top))
-
#("i4394"
-
"i4395"
-
"i4396"))
+
#("i4467"
+
"i4468"
+
"i4469"))
#(ribcage
()
()
@@ -15636,9 +15854,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15648,10 +15866,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15659,27 +15877,27 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
-
(cons #{e1\ 4398}#
-
#{e2\ 4399}#))))
- #{tmp\ 4393}#)
- ((lambda (#{_\
4403}#)
+
(cons #{e1\ 4471}#
+
#{e2\ 4472}#))))
+ #{tmp\ 4466}#)
+ ((lambda (#{_\
4476}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4363}#
- #{clause\
4383}#))
- #{tmp\ 4386}#)))
+ #{x\ 4436}#
+ #{clause\
4456}#))
+ #{tmp\ 4459}#)))
($sc-dispatch
- #{tmp\ 4386}#
+ #{tmp\ 4459}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 4386}#
+ #{tmp\ 4459}#
'(#(free-id
#(syntax-object
else
@@ -15690,37 +15908,37 @@
#((top)
(top)
(top))
- #("i4379"
- "i4380"
- "i4381"))
+ #("i4452"
+ "i4453"
+ "i4454"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4367"
- "i4368"
- "i4369"
- "i4370"))
+ #("i4440"
+ "i4441"
+ "i4442"
+ "i4443"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4364")))
+ #("i4437")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 4383}#)
- ((lambda (#{tmp\ 4405}#)
- ((lambda (#{rest\ 4407}#)
- ((lambda (#{tmp\ 4408}#)
- ((lambda (#{tmp\ 4409}#)
- (if #{tmp\ 4409}#
- (apply (lambda
(#{k\ 4413}#
-
#{e1\ 4414}#
-
#{e2\ 4415}#)
+ #{clause\ 4456}#)
+ ((lambda (#{tmp\ 4478}#)
+ ((lambda (#{rest\ 4480}#)
+ ((lambda (#{tmp\ 4481}#)
+ ((lambda (#{tmp\ 4482}#)
+ (if #{tmp\ 4482}#
+ (apply (lambda
(#{k\ 4486}#
+
#{e1\ 4487}#
+
#{e2\ 4488}#)
(list
'#(syntax-object
if
((top)
@@ -15731,13 +15949,13 @@
#((top)
(top)
(top))
-
#("i4410"
-
"i4411"
-
"i4412"))
+
#("i4483"
+
"i4484"
+
"i4485"))
#(ribcage
#(rest)
#((top))
-
#("i4406"))
+
#("i4479"))
#(ribcage
()
()
@@ -15749,9 +15967,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15761,10 +15979,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15772,7 +15990,7 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
(list '#(syntax-object
@@ -15785,13 +16003,13 @@
#((top)
(top)
(top))
-
#("i4410"
-
"i4411"
-
"i4412"))
+
#("i4483"
+
"i4484"
+
"i4485"))
#(ribcage
#(rest)
#((top))
-
#("i4406"))
+
#("i4479"))
#(ribcage
()
()
@@ -15803,9 +16021,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15815,10 +16033,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15826,7 +16044,7 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
'#(syntax-object
@@ -15839,13 +16057,13 @@
#((top)
(top)
(top))
-
#("i4410"
-
"i4411"
-
"i4412"))
+
#("i4483"
+
"i4484"
+
"i4485"))
#(ribcage
#(rest)
#((top))
-
#("i4406"))
+
#("i4479"))
#(ribcage
()
()
@@ -15857,9 +16075,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15869,10 +16087,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15880,7 +16098,7 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
(list '#(syntax-object
@@ -15893,13 +16111,13 @@
#((top)
(top)
(top))
-
#("i4410"
-
"i4411"
-
"i4412"))
+
#("i4483"
+
"i4484"
+
"i4485"))
#(ribcage
#(rest)
#((top))
-
#("i4406"))
+
#("i4479"))
#(ribcage
()
()
@@ -15911,9 +16129,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15923,10 +16141,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15934,10 +16152,10 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
-
#{k\ 4413}#))
+
#{k\ 4486}#))
(cons '#(syntax-object
begin
((top)
@@ -15948,13 +16166,13 @@
#((top)
(top)
(top))
-
#("i4410"
-
"i4411"
-
"i4412"))
+
#("i4483"
+
"i4484"
+
"i4485"))
#(ribcage
#(rest)
#((top))
-
#("i4406"))
+
#("i4479"))
#(ribcage
()
()
@@ -15966,9 +16184,9 @@
#((top)
(top)
(top))
-
#("i4379"
-
"i4380"
-
"i4381"))
+
#("i4452"
+
"i4453"
+
"i4454"))
#(ribcage
#(_
e
@@ -15978,10 +16196,10 @@
(top)
(top)
(top))
-
#("i4367"
-
"i4368"
-
"i4369"
-
"i4370"))
+
#("i4440"
+
"i4441"
+
"i4442"
+
"i4443"))
#(ribcage
()
()
@@ -15989,61 +16207,61 @@
#(ribcage
#(x)
#((top))
-
#("i4364")))
+
#("i4437")))
(hygiene
guile))
-
(cons #{e1\ 4414}#
-
#{e2\ 4415}#))
-
#{rest\ 4407}#))
- #{tmp\
4409}#)
- ((lambda (#{_\
4419}#)
+
(cons #{e1\ 4487}#
+
#{e2\ 4488}#))
+
#{rest\ 4480}#))
+ #{tmp\
4482}#)
+ ((lambda (#{_\
4492}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4363}#
- #{clause\
4383}#))
- #{tmp\ 4408}#)))
+ #{x\ 4436}#
+ #{clause\
4456}#))
+ #{tmp\ 4481}#)))
($sc-dispatch
- #{tmp\ 4408}#
+ #{tmp\ 4481}#
'(each-any
any
.
each-any))))
- #{clause\ 4383}#))
- #{tmp\ 4405}#))
- (#{f\ 4382}#
- (car #{clauses\ 4384}#)
- (cdr #{clauses\ 4384}#)))))))
- (#{f\ 4382}# #{m1\ 4373}# #{m2\ 4374}#))))
- #{tmp\ 4366}#)
+ #{clause\ 4456}#))
+ #{tmp\ 4478}#))
+ (#{f\ 4455}#
+ (car #{clauses\ 4457}#)
+ (cdr #{clauses\ 4457}#)))))))
+ (#{f\ 4455}# #{m1\ 4446}# #{m2\ 4447}#))))
+ #{tmp\ 4439}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4365}#)))
+ #{tmp\ 4438}#)))
($sc-dispatch
- #{tmp\ 4365}#
+ #{tmp\ 4438}#
'(any any any . each-any))))
- #{x\ 4363}#))
+ #{x\ 4436}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 4420}#)
- ((lambda (#{tmp\ 4422}#)
- ((lambda (#{tmp\ 4423}#)
- (if #{tmp\ 4423}#
- (apply (lambda (#{_\ 4426}# #{e\ 4427}#)
+ (cons (lambda (#{x\ 4493}#)
+ ((lambda (#{tmp\ 4495}#)
+ ((lambda (#{tmp\ 4496}#)
+ (if #{tmp\ 4496}#
+ (apply (lambda (#{_\ 4499}# #{e\ 4500}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4421")))
+ #(ribcage #(x) #((top)) #("i4494")))
(hygiene guile))
'(#(syntax-object
x
@@ -16051,9 +16269,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4421")))
+ #(ribcage #(x) #((top)) #("i4494")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -16061,9 +16279,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4421")))
+ #(ribcage #(x) #((top)) #("i4494")))
(hygiene guile))
.
#(syntax-object
@@ -16072,9 +16290,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4421")))
+ #(ribcage #(x) #((top)) #("i4494")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -16082,12 +16300,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
'#(syntax-object
x
@@ -16095,12 +16313,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -16109,12 +16327,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -16122,12 +16340,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
(#(syntax-object
syntax
@@ -16135,12 +16353,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
#(syntax-object
id
@@ -16148,12 +16366,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16161,27 +16379,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
- #{e\ 4427}#))
- (list (cons #{_\ 4426}#
+ #{e\ 4500}#))
+ (list (cons #{_\ 4499}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
#(syntax-object
...
@@ -16189,12 +16407,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16202,14 +16420,14 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4424" "i4425"))
+ #("i4497" "i4498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
- (cons #{e\ 4427}#
+ (cons #{e\ 4500}#
'(#(syntax-object
x
((top)
@@ -16217,8 +16435,8 @@
#(_ e)
#((top)
(top))
- #("i4424"
- "i4425"))
+ #("i4497"
+ "i4498"))
#(ribcage
()
()
@@ -16226,7 +16444,7 @@
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene guile))
#(syntax-object
...
@@ -16235,8 +16453,8 @@
#(_ e)
#((top)
(top))
- #("i4424"
- "i4425"))
+ #("i4497"
+ "i4498"))
#(ribcage
()
()
@@ -16244,72 +16462,72 @@
#(ribcage
#(x)
#((top))
- #("i4421")))
+ #("i4494")))
(hygiene
guile)))))))))
- #{tmp\ 4423}#)
+ #{tmp\ 4496}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4422}#)))
- ($sc-dispatch #{tmp\ 4422}# (quote (any any)))))
- #{x\ 4420}#))
+ #{tmp\ 4495}#)))
+ ($sc-dispatch #{tmp\ 4495}# (quote (any any)))))
+ #{x\ 4493}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 4428}#)
- ((lambda (#{tmp\ 4430}#)
- ((lambda (#{tmp\ 4431}#)
- (if #{tmp\ 4431}#
- (apply (lambda (#{_\ 4437}#
- #{id\ 4438}#
- #{args\ 4439}#
- #{b0\ 4440}#
- #{b1\ 4441}#)
+ (cons (lambda (#{x\ 4501}#)
+ ((lambda (#{tmp\ 4503}#)
+ ((lambda (#{tmp\ 4504}#)
+ (if #{tmp\ 4504}#
+ (apply (lambda (#{_\ 4510}#
+ #{id\ 4511}#
+ #{args\ 4512}#
+ #{b0\ 4513}#
+ #{b1\ 4514}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4432"
- "i4433"
- "i4434"
- "i4435"
- "i4436"))
+ #("i4505"
+ "i4506"
+ "i4507"
+ "i4508"
+ "i4509"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4429")))
+ #(ribcage #(x) #((top)) #("i4502")))
(hygiene guile))
- #{id\ 4438}#
+ #{id\ 4511}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4432"
- "i4433"
- "i4434"
- "i4435"
- "i4436"))
+ #("i4505"
+ "i4506"
+ "i4507"
+ "i4508"
+ "i4509"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4429")))
+ #("i4502")))
(hygiene guile))
- (cons #{args\ 4439}#
- (cons #{b0\ 4440}#
- #{b1\ 4441}#)))))
- #{tmp\ 4431}#)
- ((lambda (#{tmp\ 4443}#)
- (if (if #{tmp\ 4443}#
- (apply (lambda (#{_\ 4447}#
- #{id\ 4448}#
- #{val\ 4449}#)
+ (cons #{args\ 4512}#
+ (cons #{b0\ 4513}#
+ #{b1\ 4514}#)))))
+ #{tmp\ 4504}#)
+ ((lambda (#{tmp\ 4516}#)
+ (if (if #{tmp\ 4516}#
+ (apply (lambda (#{_\ 4520}#
+ #{id\ 4521}#
+ #{val\ 4522}#)
(identifier?
'#(syntax-object
x
@@ -16317,44 +16535,44 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4444" "i4445" "i4446"))
+ #("i4517" "i4518" "i4519"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4429")))
+ #("i4502")))
(hygiene guile))))
- #{tmp\ 4443}#)
+ #{tmp\ 4516}#)
#f)
- (apply (lambda (#{_\ 4453}#
- #{id\ 4454}#
- #{val\ 4455}#)
+ (apply (lambda (#{_\ 4526}#
+ #{id\ 4527}#
+ #{val\ 4528}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4450" "i4451" "i4452"))
+ #("i4523" "i4524" "i4525"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4429")))
+ #("i4502")))
(hygiene guile))
- #{id\ 4454}#
- #{val\ 4455}#))
- #{tmp\ 4443}#)
+ #{id\ 4527}#
+ #{val\ 4528}#))
+ #{tmp\ 4516}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4430}#)))
+ #{tmp\ 4503}#)))
($sc-dispatch
- #{tmp\ 4430}#
+ #{tmp\ 4503}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 4430}#
+ #{tmp\ 4503}#
'(any (any . any) any . each-any))))
- #{x\ 4428}#))
+ #{x\ 4501}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 9c0c994..2850624 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -242,6 +242,34 @@
out)))
#`(begin #,@(reverse out))))))))
+(define-syntax define-expansion-accessors
+ (lambda (x)
+ (syntax-case x ()
+ ((_ stem field ...)
+ (let lp ((n 0))
+ (let ((vtable (vector-ref %expanded-vtables n))
+ (stem (syntax->datum #'stem)))
+ (if (eq? (struct-ref vtable (+ vtable-offset-user 0)) stem)
+ #`(begin
+ (define (#,(datum->syntax x (symbol-append stem '?)) x)
+ (and (struct? x)
+ (eq? (struct-vtable x)
+ (vector-ref %expanded-vtables #,n))))
+ #,@(map
+ (lambda (f)
+ (let ((get (datum->syntax x (symbol-append stem '-
f)))
+ (set (datum->syntax x (symbol-append 'set- stem
'- f '!)))
+ (idx (list-index (struct-ref vtable
+ (+
vtable-offset-user 2))
+ f)))
+ #`(begin
+ (define (#,get x)
+ (struct-ref x #,idx))
+ (define (#,set x v)
+ (struct-set! x #,idx v)))))
+ (syntax->datum #'(field ...))))
+ (lp (1+ n)))))))))
+
(define-syntax define-structure
(lambda (x)
(define construct-name
@@ -295,6 +323,7 @@
(let ()
(define-expansion-constructors)
+ (define-expansion-accessors lambda meta)
;;; hooks to nonportable run-time helpers
(begin
@@ -411,21 +440,15 @@
(lambda (var)
(make-toplevel-set source var exp)))))
- ;; FIXME: there is a bug that prevents (set! ((@ (foo) bar) baz) quz)
- ;; from working. Hack around it.
(define (maybe-name-value! name val)
- (cond
- (((@ (language tree-il) lambda?) val)
- (let ((meta ((@ (language tree-il) lambda-meta) val)))
- (if (not (assq 'name meta))
- ((setter (@ (language tree-il) lambda-meta))
- val
- (acons 'name name meta)))))))
+ (if (lambda? val)
+ (let ((meta (lambda-meta val)))
+ (if (not (assq 'name meta))
+ (set-lambda-meta! val (acons 'name name meta))))))
(define build-global-definition
(lambda (source var exp)
- ;; FIXME:
- ;; (maybe-name-value! var exp)
+ (maybe-name-value! var exp)
(make-toplevel-define source var exp)))
;; Ideally we would have all lambdas be case lambdas, but that would
@@ -477,8 +500,7 @@
(define build-let
(lambda (src ids vars val-exps body-exp)
- ;; FIXME
- ;; (for-each maybe-name-value! ids val-exps)
+ (for-each maybe-name-value! ids val-exps)
(if (null? vars)
body-exp
(make-let src ids vars val-exps body-exp))))
@@ -490,9 +512,8 @@
(vars (cdr vars))
(ids (cdr ids)))
(let ((proc (build-simple-lambda src ids #f vars '() body-exp)))
- ;; FIXME
- ;; (maybe-name-value! f-name proc)
- ;; (for-each maybe-name-value! ids val-exps)
+ (maybe-name-value! f-name proc)
+ (for-each maybe-name-value! ids val-exps)
(make-letrec
src
(list f-name) (list f) (list proc)
@@ -503,9 +524,9 @@
(lambda (src ids vars val-exps body-exp)
(if (null? vars)
body-exp
- ;; FIXME
- ;; (for-each maybe-name-value! ids val-exps)
- (make-letrec src ids vars val-exps body-exp))))
+ (begin
+ (for-each maybe-name-value! ids val-exps)
+ (make-letrec src ids vars val-exps body-exp)))))
;; FIXME: use a faster gensym
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |