|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-94-g42a7106 |
| Date: | Mon, 03 May 2010 20:10:42 +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=42a710680d23d44fe43ae08339691e9424be4471
The branch, master has been updated
via 42a710680d23d44fe43ae08339691e9424be4471 (commit)
via b1e4c7cc28c35308a566d82e748847abc4d3d2f8 (commit)
via fe58ead4a33c9f12e83a09962b926271d68031a4 (commit)
from d61517239da142bafae2d656d82b3af599cac1ee (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 42a710680d23d44fe43ae08339691e9424be4471
Author: Andy Wingo <address@hidden>
Date: Mon May 3 19:09:35 2010 +0200
add rnrs libraries test suite
* test-suite/Makefile.am:
* test-suite/tests/rnrs-libraries.test:
* test-suite/tests/rnrs-test-a.scm: Add rnrs libraries test suite.
commit b1e4c7cc28c35308a566d82e748847abc4d3d2f8
Author: Julian Graham <address@hidden>
Date: Sat Feb 6 12:33:20 2010 -0500
add support for r6rs libraries
* module/ice-9/boot-9.scm: Include ice-9/r6rs-libraries.scm.
* module/ice-9/r6rs-libraries.scm: New file.
* module/Makefile.am (NOCOMP_SOURCES): Add r6rs-libraries.scm.
commit fe58ead4a33c9f12e83a09962b926271d68031a4
Author: Andy Wingo <address@hidden>
Date: Mon May 3 22:06:44 2010 +0200
only ensure local vars for definitions during expansion when compiling
* module/ice-9/psyntax.scm (chi-top): Only modify the compile-time
environment to indicate that there is a local binding if we are
running in compile mode. Otherwise some eval-when things might not
have gotten executed, and our current-module could be wrong.
* module/ice-9/psyntax-pp.scm: Regenerate.
-----------------------------------------------------------------------
Summary of changes:
module/Makefile.am | 1 +
module/ice-9/boot-9.scm | 2 +
module/ice-9/psyntax-pp.scm |15721 ++++++++++----------
module/ice-9/psyntax.scm | 3 +-
module/ice-9/r6rs-libraries.scm | 194 +
test-suite/Makefile.am | 8 +-
test-suite/tests/rnrs-libraries.test | 171 +
.../srfi-8.scm => test-suite/tests/rnrs-test-a.scm | 24 +-
8 files changed, 8196 insertions(+), 7928 deletions(-)
create mode 100644 module/ice-9/r6rs-libraries.scm
create mode 100644 test-suite/tests/rnrs-libraries.test
copy module/srfi/srfi-8.scm => test-suite/tests/rnrs-test-a.scm (67%)
diff --git a/module/Makefile.am b/module/Makefile.am
index 90c1dff..2410cb2 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -315,6 +315,7 @@ EXTRA_DIST += oop/ChangeLog-2008
NOCOMP_SOURCES = \
ice-9/gds-client.scm \
ice-9/psyntax.scm \
+ ice-9/r6rs-libraries.scm \
ice-9/quasisyntax.scm \
system/base/lalr.upstream.scm \
system/repl/describe.scm \
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 35714f7..c1a9447 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3399,6 +3399,8 @@ module '(ice-9 q) '(make-q q-length))}."
"`use-syntax' is deprecated. Please contact guile-devel for more
info."))
(use-modules spec ...)))))
+(include-from-path "ice-9/r6rs-libraries")
+
(define-syntax define-private
(syntax-rules ()
((_ foo bar)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index f84119d..338dffa 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,644 +1,638 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 8874}#
- (lambda (#{f\ 8936}# #{first\ 8937}# . #{rest\ 8938}#)
- (let ((#{t\ 8944}# (null? #{first\ 8937}#)))
- (if #{t\ 8944}#
- #{t\ 8944}#
- (if (null? #{rest\ 8938}#)
- (letrec ((#{andmap\ 8948}#
- (lambda (#{first\ 8949}#)
- (let ((#{x\ 8952}# (car #{first\ 8949}#))
- (#{first\ 8953}# (cdr #{first\ 8949}#)))
- (if (null? #{first\ 8953}#)
- (#{f\ 8936}# #{x\ 8952}#)
- (if (#{f\ 8936}# #{x\ 8952}#)
- (#{andmap\ 8948}# #{first\ 8953}#)
+(letrec ((#{and-map*\ 20}#
+ (lambda (#{f\ 82}# #{first\ 83}# . #{rest\ 84}#)
+ (let ((#{t\ 90}# (null? #{first\ 83}#)))
+ (if #{t\ 90}#
+ #{t\ 90}#
+ (if (null? #{rest\ 84}#)
+ (letrec ((#{andmap\ 94}#
+ (lambda (#{first\ 95}#)
+ (let ((#{x\ 98}# (car #{first\ 95}#))
+ (#{first\ 99}# (cdr #{first\ 95}#)))
+ (if (null? #{first\ 99}#)
+ (#{f\ 82}# #{x\ 98}#)
+ (if (#{f\ 82}# #{x\ 98}#)
+ (#{andmap\ 94}# #{first\ 99}#)
#f))))))
- (#{andmap\ 8948}# #{first\ 8937}#))
- (letrec ((#{andmap\ 8959}#
- (lambda (#{first\ 8960}# #{rest\ 8961}#)
- (let ((#{x\ 8966}# (car #{first\ 8960}#))
- (#{xr\ 8967}# (map car #{rest\ 8961}#))
- (#{first\ 8968}# (cdr #{first\ 8960}#))
- (#{rest\ 8969}#
- (map cdr #{rest\ 8961}#)))
- (if (null? #{first\ 8968}#)
- (apply #{f\ 8936}#
- (cons #{x\ 8966}# #{xr\ 8967}#))
- (if (apply #{f\ 8936}#
- (cons #{x\ 8966}# #{xr\ 8967}#))
- (#{andmap\ 8959}#
- #{first\ 8968}#
- #{rest\ 8969}#)
+ (#{andmap\ 94}# #{first\ 83}#))
+ (letrec ((#{andmap\ 105}#
+ (lambda (#{first\ 106}# #{rest\ 107}#)
+ (let ((#{x\ 112}# (car #{first\ 106}#))
+ (#{xr\ 113}# (map car #{rest\ 107}#))
+ (#{first\ 114}# (cdr #{first\ 106}#))
+ (#{rest\ 115}# (map cdr #{rest\ 107}#)))
+ (if (null? #{first\ 114}#)
+ (apply #{f\ 82}#
+ (cons #{x\ 112}# #{xr\ 113}#))
+ (if (apply #{f\ 82}#
+ (cons #{x\ 112}# #{xr\ 113}#))
+ (#{andmap\ 105}#
+ #{first\ 114}#
+ #{rest\ 115}#)
#f))))))
- (#{andmap\ 8959}# #{first\ 8937}# #{rest\ 8938}#))))))))
- (letrec ((#{lambda-var-list\ 9191}#
- (lambda (#{vars\ 9406}#)
- (letrec ((#{lvl\ 9412}#
- (lambda (#{vars\ 9413}# #{ls\ 9414}# #{w\ 9415}#)
- (if (pair? #{vars\ 9413}#)
- (#{lvl\ 9412}#
- (cdr #{vars\ 9413}#)
- (cons (#{wrap\ 9145}#
- (car #{vars\ 9413}#)
- #{w\ 9415}#
+ (#{andmap\ 105}# #{first\ 83}# #{rest\ 84}#))))))))
+ (letrec ((#{lambda-var-list\ 337}#
+ (lambda (#{vars\ 552}#)
+ (letrec ((#{lvl\ 558}#
+ (lambda (#{vars\ 559}# #{ls\ 560}# #{w\ 561}#)
+ (if (pair? #{vars\ 559}#)
+ (#{lvl\ 558}#
+ (cdr #{vars\ 559}#)
+ (cons (#{wrap\ 291}#
+ (car #{vars\ 559}#)
+ #{w\ 561}#
#f)
- #{ls\ 9414}#)
- #{w\ 9415}#)
- (if (#{id?\ 9076}# #{vars\ 9413}#)
- (cons (#{wrap\ 9145}#
- #{vars\ 9413}#
- #{w\ 9415}#
+ #{ls\ 560}#)
+ #{w\ 561}#)
+ (if (#{id?\ 222}# #{vars\ 559}#)
+ (cons (#{wrap\ 291}#
+ #{vars\ 559}#
+ #{w\ 561}#
#f)
- #{ls\ 9414}#)
- (if (null? #{vars\ 9413}#)
- #{ls\ 9414}#
- (if (#{syntax-object?\ 9040}# #{vars\ 9413}#)
- (#{lvl\ 9412}#
- (#{syntax-object-expression\ 9042}#
- #{vars\ 9413}#)
- #{ls\ 9414}#
- (#{join-wraps\ 9127}#
- #{w\ 9415}#
- (#{syntax-object-wrap\ 9044}#
- #{vars\ 9413}#)))
- (cons #{vars\ 9413}# #{ls\ 9414}#))))))))
- (#{lvl\ 9412}#
- #{vars\ 9406}#
+ #{ls\ 560}#)
+ (if (null? #{vars\ 559}#)
+ #{ls\ 560}#
+ (if (#{syntax-object?\ 186}# #{vars\ 559}#)
+ (#{lvl\ 558}#
+ (#{syntax-object-expression\ 188}#
+ #{vars\ 559}#)
+ #{ls\ 560}#
+ (#{join-wraps\ 273}#
+ #{w\ 561}#
+ (#{syntax-object-wrap\ 190}#
+ #{vars\ 559}#)))
+ (cons #{vars\ 559}# #{ls\ 560}#))))))))
+ (#{lvl\ 558}#
+ #{vars\ 552}#
'()
'(())))))
- (#{gen-var\ 9189}#
- (lambda (#{id\ 9426}#)
- (let ((#{id\ 9429}#
- (if (#{syntax-object?\ 9040}# #{id\ 9426}#)
- (#{syntax-object-expression\ 9042}# #{id\ 9426}#)
- #{id\ 9426}#)))
+ (#{gen-var\ 335}#
+ (lambda (#{id\ 572}#)
+ (let ((#{id\ 575}#
+ (if (#{syntax-object?\ 186}# #{id\ 572}#)
+ (#{syntax-object-expression\ 188}# #{id\ 572}#)
+ #{id\ 572}#)))
(gensym
- (string-append (symbol->string #{id\ 9429}#) " ")))))
- (#{strip\ 9187}#
- (lambda (#{x\ 9431}# #{w\ 9432}#)
+ (string-append (symbol->string #{id\ 575}#) " ")))))
+ (#{strip\ 333}#
+ (lambda (#{x\ 577}# #{w\ 578}#)
(if (memq 'top
- (#{wrap-marks\ 9083}# #{w\ 9432}#))
- #{x\ 9431}#
- (letrec ((#{f\ 9438}#
- (lambda (#{x\ 9439}#)
- (if (#{syntax-object?\ 9040}# #{x\ 9439}#)
- (#{strip\ 9187}#
- (#{syntax-object-expression\ 9042}#
- #{x\ 9439}#)
- (#{syntax-object-wrap\ 9044}# #{x\ 9439}#))
- (if (pair? #{x\ 9439}#)
- (let ((#{a\ 9446}#
- (#{f\ 9438}# (car #{x\ 9439}#)))
- (#{d\ 9447}#
- (#{f\ 9438}# (cdr #{x\ 9439}#))))
- (if (if (eq? #{a\ 9446}# (car #{x\ 9439}#))
- (eq? #{d\ 9447}# (cdr #{x\ 9439}#))
- #f)
- #{x\ 9439}#
- (cons #{a\ 9446}# #{d\ 9447}#)))
- (if (vector? #{x\ 9439}#)
- (let ((#{old\ 9453}#
- (vector->list #{x\ 9439}#)))
- (let ((#{new\ 9455}#
- (map #{f\ 9438}# #{old\ 9453}#)))
- (if (#{and-map*\ 8874}#
- eq?
- #{old\ 9453}#
- #{new\ 9455}#)
- #{x\ 9439}#
- (list->vector #{new\ 9455}#))))
- #{x\ 9439}#))))))
- (#{f\ 9438}# #{x\ 9431}#)))))
- (#{chi-lambda-case\ 9185}#
- (lambda (#{e\ 9457}#
- #{r\ 9458}#
- #{w\ 9459}#
- #{s\ 9460}#
- #{mod\ 9461}#
- #{get-formals\ 9462}#
- #{clauses\ 9463}#)
- (letrec ((#{expand-body\ 9478}#
- (lambda (#{req\ 9479}#
- #{opt\ 9480}#
- #{rest\ 9481}#
- #{kw\ 9482}#
- #{body\ 9483}#
- #{vars\ 9484}#
- #{r*\ 9485}#
- #{w*\ 9486}#
- #{inits\ 9487}#
- #{meta\ 9488}#)
- ((lambda (#{tmp\ 9499}#)
- ((lambda (#{tmp\ 9500}#)
- (if (if #{tmp\ 9500}#
- (apply (lambda (#{docstring\ 9504}#
- #{e1\ 9505}#
- #{e2\ 9506}#)
+ (#{wrap-marks\ 229}# #{w\ 578}#))
+ #{x\ 577}#
+ (letrec ((#{f\ 584}# (lambda (#{x\ 585}#)
+ (if (#{syntax-object?\ 186}#
+ #{x\ 585}#)
+ (#{strip\ 333}#
+ (#{syntax-object-expression\ 188}#
+ #{x\ 585}#)
+ (#{syntax-object-wrap\ 190}#
+ #{x\ 585}#))
+ (if (pair? #{x\ 585}#)
+ (let ((#{a\ 592}# (#{f\ 584}# (car
#{x\ 585}#)))
+ (#{d\ 593}# (#{f\ 584}# (cdr
#{x\ 585}#))))
+ (if (if (eq? #{a\ 592}#
+ (car #{x\ 585}#))
+ (eq? #{d\ 593}#
+ (cdr #{x\ 585}#))
+ #f)
+ #{x\ 585}#
+ (cons #{a\ 592}# #{d\ 593}#)))
+ (if (vector? #{x\ 585}#)
+ (let ((#{old\ 599}#
+ (vector->list
+ #{x\ 585}#)))
+ (let ((#{new\ 601}#
+ (map #{f\ 584}#
+ #{old\ 599}#)))
+ (if (#{and-map*\ 20}#
+ eq?
+ #{old\ 599}#
+ #{new\ 601}#)
+ #{x\ 585}#
+ (list->vector
+ #{new\ 601}#))))
+ #{x\ 585}#))))))
+ (#{f\ 584}# #{x\ 577}#)))))
+ (#{chi-lambda-case\ 331}#
+ (lambda (#{e\ 603}#
+ #{r\ 604}#
+ #{w\ 605}#
+ #{s\ 606}#
+ #{mod\ 607}#
+ #{get-formals\ 608}#
+ #{clauses\ 609}#)
+ (letrec ((#{expand-body\ 624}#
+ (lambda (#{req\ 625}#
+ #{opt\ 626}#
+ #{rest\ 627}#
+ #{kw\ 628}#
+ #{body\ 629}#
+ #{vars\ 630}#
+ #{r*\ 631}#
+ #{w*\ 632}#
+ #{inits\ 633}#
+ #{meta\ 634}#)
+ ((lambda (#{tmp\ 645}#)
+ ((lambda (#{tmp\ 646}#)
+ (if (if #{tmp\ 646}#
+ (apply (lambda (#{docstring\ 650}#
+ #{e1\ 651}#
+ #{e2\ 652}#)
(string?
(syntax->datum
- #{docstring\ 9504}#)))
- #{tmp\ 9500}#)
+ #{docstring\ 650}#)))
+ #{tmp\ 646}#)
#f)
- (apply (lambda (#{docstring\ 9510}#
- #{e1\ 9511}#
- #{e2\ 9512}#)
- (#{expand-body\ 9478}#
- #{req\ 9479}#
- #{opt\ 9480}#
- #{rest\ 9481}#
- #{kw\ 9482}#
- (cons #{e1\ 9511}# #{e2\ 9512}#)
- #{vars\ 9484}#
- #{r*\ 9485}#
- #{w*\ 9486}#
- #{inits\ 9487}#
+ (apply (lambda (#{docstring\ 656}#
+ #{e1\ 657}#
+ #{e2\ 658}#)
+ (#{expand-body\ 624}#
+ #{req\ 625}#
+ #{opt\ 626}#
+ #{rest\ 627}#
+ #{kw\ 628}#
+ (cons #{e1\ 657}# #{e2\ 658}#)
+ #{vars\ 630}#
+ #{r*\ 631}#
+ #{w*\ 632}#
+ #{inits\ 633}#
(append
- #{meta\ 9488}#
+ #{meta\ 634}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
9510}#))))))
- #{tmp\ 9500}#)
- ((lambda (#{tmp\ 9515}#)
- (if #{tmp\ 9515}#
- (apply (lambda (#{k\ 9520}#
- #{v\ 9521}#
- #{e1\ 9522}#
- #{e2\ 9523}#)
- (#{expand-body\ 9478}#
- #{req\ 9479}#
- #{opt\ 9480}#
- #{rest\ 9481}#
- #{kw\ 9482}#
- (cons #{e1\ 9522}#
- #{e2\ 9523}#)
- #{vars\ 9484}#
- #{r*\ 9485}#
- #{w*\ 9486}#
- #{inits\ 9487}#
+ #{docstring\
656}#))))))
+ #{tmp\ 646}#)
+ ((lambda (#{tmp\ 661}#)
+ (if #{tmp\ 661}#
+ (apply (lambda (#{k\ 666}#
+ #{v\ 667}#
+ #{e1\ 668}#
+ #{e2\ 669}#)
+ (#{expand-body\ 624}#
+ #{req\ 625}#
+ #{opt\ 626}#
+ #{rest\ 627}#
+ #{kw\ 628}#
+ (cons #{e1\ 668}#
+ #{e2\ 669}#)
+ #{vars\ 630}#
+ #{r*\ 631}#
+ #{w*\ 632}#
+ #{inits\ 633}#
(append
- #{meta\ 9488}#
+ #{meta\ 634}#
(syntax->datum
(map cons
- #{k\ 9520}#
- #{v\ 9521}#)))))
- #{tmp\ 9515}#)
- ((lambda (#{tmp\ 9527}#)
- (if #{tmp\ 9527}#
- (apply (lambda (#{e1\ 9530}#
- #{e2\ 9531}#)
+ #{k\ 666}#
+ #{v\ 667}#)))))
+ #{tmp\ 661}#)
+ ((lambda (#{tmp\ 673}#)
+ (if #{tmp\ 673}#
+ (apply (lambda (#{e1\ 676}#
+ #{e2\ 677}#)
(values
- #{meta\ 9488}#
- #{req\ 9479}#
- #{opt\ 9480}#
- #{rest\ 9481}#
- #{kw\ 9482}#
- #{inits\ 9487}#
- #{vars\ 9484}#
- (#{chi-body\ 9169}#
- (cons #{e1\ 9530}#
- #{e2\ 9531}#)
- (#{source-wrap\
9147}#
- #{e\ 9457}#
- #{w\ 9459}#
- #{s\ 9460}#
- #{mod\ 9461}#)
- #{r*\ 9485}#
- #{w*\ 9486}#
- #{mod\ 9461}#)))
- #{tmp\ 9527}#)
+ #{meta\ 634}#
+ #{req\ 625}#
+ #{opt\ 626}#
+ #{rest\ 627}#
+ #{kw\ 628}#
+ #{inits\ 633}#
+ #{vars\ 630}#
+ (#{chi-body\ 315}#
+ (cons #{e1\ 676}#
+ #{e2\ 677}#)
+ (#{source-wrap\
293}#
+ #{e\ 603}#
+ #{w\ 605}#
+ #{s\ 606}#
+ #{mod\ 607}#)
+ #{r*\ 631}#
+ #{w*\ 632}#
+ #{mod\ 607}#)))
+ #{tmp\ 673}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 9499}#)))
+ #{tmp\ 645}#)))
($sc-dispatch
- #{tmp\ 9499}#
+ #{tmp\ 645}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 9499}#
+ #{tmp\ 645}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 9499}#
+ #{tmp\ 645}#
'(any any . each-any))))
- #{body\ 9483}#)))
- (#{expand-kw\ 9476}#
- (lambda (#{req\ 9533}#
- #{opt\ 9534}#
- #{rest\ 9535}#
- #{kw\ 9536}#
- #{body\ 9537}#
- #{vars\ 9538}#
- #{r*\ 9539}#
- #{w*\ 9540}#
- #{aok\ 9541}#
- #{out\ 9542}#
- #{inits\ 9543}#)
- (if (pair? #{kw\ 9536}#)
- ((lambda (#{tmp\ 9557}#)
- ((lambda (#{tmp\ 9558}#)
- (if #{tmp\ 9558}#
- (apply (lambda (#{k\ 9562}#
- #{id\ 9563}#
- #{i\ 9564}#)
- (let ((#{v\ 9567}#
- (#{gen-var\ 9189}#
- #{id\ 9563}#)))
- (let ((#{l\ 9569}#
- (#{gen-labels\ 9094}#
- (list #{v\
9567}#))))
- (let ((#{r**\ 9571}#
- (#{extend-var-env\
9066}#
- #{l\ 9569}#
- (list #{v\ 9567}#)
- #{r*\ 9539}#)))
- (let ((#{w**\ 9573}#
-
(#{make-binding-wrap\ 9123}#
- (list #{id\
9563}#)
- #{l\ 9569}#
- #{w*\ 9540}#)))
- (#{expand-kw\ 9476}#
- #{req\ 9533}#
- #{opt\ 9534}#
- #{rest\ 9535}#
- (cdr #{kw\ 9536}#)
- #{body\ 9537}#
- (cons #{v\ 9567}#
- #{vars\ 9538}#)
- #{r**\ 9571}#
- #{w**\ 9573}#
- #{aok\ 9541}#
+ #{body\ 629}#)))
+ (#{expand-kw\ 622}#
+ (lambda (#{req\ 679}#
+ #{opt\ 680}#
+ #{rest\ 681}#
+ #{kw\ 682}#
+ #{body\ 683}#
+ #{vars\ 684}#
+ #{r*\ 685}#
+ #{w*\ 686}#
+ #{aok\ 687}#
+ #{out\ 688}#
+ #{inits\ 689}#)
+ (if (pair? #{kw\ 682}#)
+ ((lambda (#{tmp\ 703}#)
+ ((lambda (#{tmp\ 704}#)
+ (if #{tmp\ 704}#
+ (apply (lambda (#{k\ 708}#
+ #{id\ 709}#
+ #{i\ 710}#)
+ (let ((#{v\ 713}# (#{gen-var\
335}#
+ #{id\
709}#)))
+ (let ((#{l\ 715}#
(#{gen-labels\ 240}#
+ (list
#{v\ 713}#))))
+ (let ((#{r**\ 717}#
+ (#{extend-var-env\
212}#
+ #{l\ 715}#
+ (list #{v\ 713}#)
+ #{r*\ 685}#)))
+ (let ((#{w**\ 719}#
+
(#{make-binding-wrap\ 269}#
+ (list #{id\
709}#)
+ #{l\ 715}#
+ #{w*\ 686}#)))
+ (#{expand-kw\ 622}#
+ #{req\ 679}#
+ #{opt\ 680}#
+ #{rest\ 681}#
+ (cdr #{kw\ 682}#)
+ #{body\ 683}#
+ (cons #{v\ 713}#
+ #{vars\ 684}#)
+ #{r**\ 717}#
+ #{w**\ 719}#
+ #{aok\ 687}#
(cons (list
(syntax->datum
- #{k\
9562}#)
+ #{k\
708}#)
(syntax->datum
- #{id\
9563}#)
- #{v\
9567}#)
- #{out\ 9542}#)
- (cons (#{chi\ 9161}#
- #{i\ 9564}#
- #{r*\ 9539}#
- #{w*\ 9540}#
- #{mod\ 9461}#)
- #{inits\
9543}#)))))))
- #{tmp\ 9558}#)
+ #{id\
709}#)
+ #{v\
713}#)
+ #{out\ 688}#)
+ (cons (#{chi\ 307}#
+ #{i\ 710}#
+ #{r*\ 685}#
+ #{w*\ 686}#
+ #{mod\ 607}#)
+ #{inits\
689}#)))))))
+ #{tmp\ 704}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 9557}#)))
+ #{tmp\ 703}#)))
($sc-dispatch
- #{tmp\ 9557}#
+ #{tmp\ 703}#
'(any any any))))
- (car #{kw\ 9536}#))
- (#{expand-body\ 9478}#
- #{req\ 9533}#
- #{opt\ 9534}#
- #{rest\ 9535}#
- (if (let ((#{t\ 9577}# #{aok\ 9541}#))
- (if #{t\ 9577}#
- #{t\ 9577}#
- (pair? #{out\ 9542}#)))
- (cons #{aok\ 9541}# (reverse #{out\ 9542}#))
+ (car #{kw\ 682}#))
+ (#{expand-body\ 624}#
+ #{req\ 679}#
+ #{opt\ 680}#
+ #{rest\ 681}#
+ (if (let ((#{t\ 723}# #{aok\ 687}#))
+ (if #{t\ 723}#
+ #{t\ 723}#
+ (pair? #{out\ 688}#)))
+ (cons #{aok\ 687}# (reverse #{out\ 688}#))
#f)
- #{body\ 9537}#
- (reverse #{vars\ 9538}#)
- #{r*\ 9539}#
- #{w*\ 9540}#
- (reverse #{inits\ 9543}#)
+ #{body\ 683}#
+ (reverse #{vars\ 684}#)
+ #{r*\ 685}#
+ #{w*\ 686}#
+ (reverse #{inits\ 689}#)
'()))))
- (#{expand-opt\ 9474}#
- (lambda (#{req\ 9579}#
- #{opt\ 9580}#
- #{rest\ 9581}#
- #{kw\ 9582}#
- #{body\ 9583}#
- #{vars\ 9584}#
- #{r*\ 9585}#
- #{w*\ 9586}#
- #{out\ 9587}#
- #{inits\ 9588}#)
- (if (pair? #{opt\ 9580}#)
- ((lambda (#{tmp\ 9601}#)
- ((lambda (#{tmp\ 9602}#)
- (if #{tmp\ 9602}#
- (apply (lambda (#{id\ 9605}# #{i\ 9606}#)
- (let ((#{v\ 9609}#
- (#{gen-var\ 9189}#
- #{id\ 9605}#)))
- (let ((#{l\ 9611}#
- (#{gen-labels\ 9094}#
- (list #{v\
9609}#))))
- (let ((#{r**\ 9613}#
- (#{extend-var-env\
9066}#
- #{l\ 9611}#
- (list #{v\ 9609}#)
- #{r*\ 9585}#)))
- (let ((#{w**\ 9615}#
-
(#{make-binding-wrap\ 9123}#
- (list #{id\
9605}#)
- #{l\ 9611}#
- #{w*\ 9586}#)))
- (#{expand-opt\ 9474}#
- #{req\ 9579}#
- (cdr #{opt\ 9580}#)
- #{rest\ 9581}#
- #{kw\ 9582}#
- #{body\ 9583}#
- (cons #{v\ 9609}#
- #{vars\ 9584}#)
- #{r**\ 9613}#
- #{w**\ 9615}#
+ (#{expand-opt\ 620}#
+ (lambda (#{req\ 725}#
+ #{opt\ 726}#
+ #{rest\ 727}#
+ #{kw\ 728}#
+ #{body\ 729}#
+ #{vars\ 730}#
+ #{r*\ 731}#
+ #{w*\ 732}#
+ #{out\ 733}#
+ #{inits\ 734}#)
+ (if (pair? #{opt\ 726}#)
+ ((lambda (#{tmp\ 747}#)
+ ((lambda (#{tmp\ 748}#)
+ (if #{tmp\ 748}#
+ (apply (lambda (#{id\ 751}# #{i\ 752}#)
+ (let ((#{v\ 755}# (#{gen-var\
335}#
+ #{id\
751}#)))
+ (let ((#{l\ 757}#
(#{gen-labels\ 240}#
+ (list
#{v\ 755}#))))
+ (let ((#{r**\ 759}#
+ (#{extend-var-env\
212}#
+ #{l\ 757}#
+ (list #{v\ 755}#)
+ #{r*\ 731}#)))
+ (let ((#{w**\ 761}#
+
(#{make-binding-wrap\ 269}#
+ (list #{id\
751}#)
+ #{l\ 757}#
+ #{w*\ 732}#)))
+ (#{expand-opt\ 620}#
+ #{req\ 725}#
+ (cdr #{opt\ 726}#)
+ #{rest\ 727}#
+ #{kw\ 728}#
+ #{body\ 729}#
+ (cons #{v\ 755}#
+ #{vars\ 730}#)
+ #{r**\ 759}#
+ #{w**\ 761}#
(cons (syntax->datum
- #{id\ 9605}#)
- #{out\ 9587}#)
- (cons (#{chi\ 9161}#
- #{i\ 9606}#
- #{r*\ 9585}#
- #{w*\ 9586}#
- #{mod\ 9461}#)
- #{inits\
9588}#)))))))
- #{tmp\ 9602}#)
+ #{id\ 751}#)
+ #{out\ 733}#)
+ (cons (#{chi\ 307}#
+ #{i\ 752}#
+ #{r*\ 731}#
+ #{w*\ 732}#
+ #{mod\ 607}#)
+ #{inits\
734}#)))))))
+ #{tmp\ 748}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 9601}#)))
+ #{tmp\ 747}#)))
($sc-dispatch
- #{tmp\ 9601}#
+ #{tmp\ 747}#
'(any any))))
- (car #{opt\ 9580}#))
- (if #{rest\ 9581}#
- (let ((#{v\ 9620}#
- (#{gen-var\ 9189}# #{rest\ 9581}#)))
- (let ((#{l\ 9622}#
- (#{gen-labels\ 9094}#
- (list #{v\ 9620}#))))
- (let ((#{r*\ 9624}#
- (#{extend-var-env\ 9066}#
- #{l\ 9622}#
- (list #{v\ 9620}#)
- #{r*\ 9585}#)))
- (let ((#{w*\ 9626}#
- (#{make-binding-wrap\ 9123}#
- (list #{rest\ 9581}#)
- #{l\ 9622}#
- #{w*\ 9586}#)))
- (#{expand-kw\ 9476}#
- #{req\ 9579}#
- (if (pair? #{out\ 9587}#)
- (reverse #{out\ 9587}#)
+ (car #{opt\ 726}#))
+ (if #{rest\ 727}#
+ (let ((#{v\ 766}# (#{gen-var\ 335}#
+ #{rest\ 727}#)))
+ (let ((#{l\ 768}# (#{gen-labels\ 240}#
+ (list #{v\ 766}#))))
+ (let ((#{r*\ 770}#
+ (#{extend-var-env\ 212}#
+ #{l\ 768}#
+ (list #{v\ 766}#)
+ #{r*\ 731}#)))
+ (let ((#{w*\ 772}#
+ (#{make-binding-wrap\ 269}#
+ (list #{rest\ 727}#)
+ #{l\ 768}#
+ #{w*\ 732}#)))
+ (#{expand-kw\ 622}#
+ #{req\ 725}#
+ (if (pair? #{out\ 733}#)
+ (reverse #{out\ 733}#)
#f)
- (syntax->datum #{rest\ 9581}#)
- (if (pair? #{kw\ 9582}#)
- (cdr #{kw\ 9582}#)
- #{kw\ 9582}#)
- #{body\ 9583}#
- (cons #{v\ 9620}# #{vars\ 9584}#)
- #{r*\ 9624}#
- #{w*\ 9626}#
- (if (pair? #{kw\ 9582}#)
- (car #{kw\ 9582}#)
+ (syntax->datum #{rest\ 727}#)
+ (if (pair? #{kw\ 728}#)
+ (cdr #{kw\ 728}#)
+ #{kw\ 728}#)
+ #{body\ 729}#
+ (cons #{v\ 766}# #{vars\ 730}#)
+ #{r*\ 770}#
+ #{w*\ 772}#
+ (if (pair? #{kw\ 728}#)
+ (car #{kw\ 728}#)
#f)
'()
- #{inits\ 9588}#)))))
- (#{expand-kw\ 9476}#
- #{req\ 9579}#
- (if (pair? #{out\ 9587}#)
- (reverse #{out\ 9587}#)
+ #{inits\ 734}#)))))
+ (#{expand-kw\ 622}#
+ #{req\ 725}#
+ (if (pair? #{out\ 733}#)
+ (reverse #{out\ 733}#)
#f)
#f
- (if (pair? #{kw\ 9582}#)
- (cdr #{kw\ 9582}#)
- #{kw\ 9582}#)
- #{body\ 9583}#
- #{vars\ 9584}#
- #{r*\ 9585}#
- #{w*\ 9586}#
- (if (pair? #{kw\ 9582}#)
- (car #{kw\ 9582}#)
- #f)
+ (if (pair? #{kw\ 728}#)
+ (cdr #{kw\ 728}#)
+ #{kw\ 728}#)
+ #{body\ 729}#
+ #{vars\ 730}#
+ #{r*\ 731}#
+ #{w*\ 732}#
+ (if (pair? #{kw\ 728}#) (car #{kw\ 728}#) #f)
'()
- #{inits\ 9588}#)))))
- (#{expand-req\ 9472}#
- (lambda (#{req\ 9628}#
- #{opt\ 9629}#
- #{rest\ 9630}#
- #{kw\ 9631}#
- #{body\ 9632}#)
- (let ((#{vars\ 9640}#
- (map #{gen-var\ 9189}# #{req\ 9628}#))
- (#{labels\ 9641}#
- (#{gen-labels\ 9094}# #{req\ 9628}#)))
- (let ((#{r*\ 9644}#
- (#{extend-var-env\ 9066}#
- #{labels\ 9641}#
- #{vars\ 9640}#
- #{r\ 9458}#))
- (#{w*\ 9645}#
- (#{make-binding-wrap\ 9123}#
- #{req\ 9628}#
- #{labels\ 9641}#
- #{w\ 9459}#)))
- (#{expand-opt\ 9474}#
- (map syntax->datum #{req\ 9628}#)
- #{opt\ 9629}#
- #{rest\ 9630}#
- #{kw\ 9631}#
- #{body\ 9632}#
- (reverse #{vars\ 9640}#)
- #{r*\ 9644}#
- #{w*\ 9645}#
+ #{inits\ 734}#)))))
+ (#{expand-req\ 618}#
+ (lambda (#{req\ 774}#
+ #{opt\ 775}#
+ #{rest\ 776}#
+ #{kw\ 777}#
+ #{body\ 778}#)
+ (let ((#{vars\ 786}#
+ (map #{gen-var\ 335}# #{req\ 774}#))
+ (#{labels\ 787}#
+ (#{gen-labels\ 240}# #{req\ 774}#)))
+ (let ((#{r*\ 790}#
+ (#{extend-var-env\ 212}#
+ #{labels\ 787}#
+ #{vars\ 786}#
+ #{r\ 604}#))
+ (#{w*\ 791}#
+ (#{make-binding-wrap\ 269}#
+ #{req\ 774}#
+ #{labels\ 787}#
+ #{w\ 605}#)))
+ (#{expand-opt\ 620}#
+ (map syntax->datum #{req\ 774}#)
+ #{opt\ 775}#
+ #{rest\ 776}#
+ #{kw\ 777}#
+ #{body\ 778}#
+ (reverse #{vars\ 786}#)
+ #{r*\ 790}#
+ #{w*\ 791}#
'()
'()))))))
- ((lambda (#{tmp\ 9646}#)
- ((lambda (#{tmp\ 9647}#)
- (if #{tmp\ 9647}#
+ ((lambda (#{tmp\ 792}#)
+ ((lambda (#{tmp\ 793}#)
+ (if #{tmp\ 793}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 9647}#)
- ((lambda (#{tmp\ 9648}#)
- (if #{tmp\ 9648}#
- (apply (lambda (#{args\ 9655}#
- #{e1\ 9656}#
- #{e2\ 9657}#
- #{args*\ 9658}#
- #{e1*\ 9659}#
- #{e2*\ 9660}#)
+ #{tmp\ 793}#)
+ ((lambda (#{tmp\ 794}#)
+ (if #{tmp\ 794}#
+ (apply (lambda (#{args\ 801}#
+ #{e1\ 802}#
+ #{e2\ 803}#
+ #{args*\ 804}#
+ #{e1*\ 805}#
+ #{e2*\ 806}#)
(call-with-values
(lambda ()
- (#{get-formals\ 9462}#
- #{args\ 9655}#))
- (lambda (#{req\ 9661}#
- #{opt\ 9662}#
- #{rest\ 9663}#
- #{kw\ 9664}#)
+ (#{get-formals\ 608}#
+ #{args\ 801}#))
+ (lambda (#{req\ 807}#
+ #{opt\ 808}#
+ #{rest\ 809}#
+ #{kw\ 810}#)
(call-with-values
(lambda ()
- (#{expand-req\ 9472}#
- #{req\ 9661}#
- #{opt\ 9662}#
- #{rest\ 9663}#
- #{kw\ 9664}#
- (cons #{e1\ 9656}#
- #{e2\ 9657}#)))
- (lambda (#{meta\ 9670}#
- #{req\ 9671}#
- #{opt\ 9672}#
- #{rest\ 9673}#
- #{kw\ 9674}#
- #{inits\ 9675}#
- #{vars\ 9676}#
- #{body\ 9677}#)
+ (#{expand-req\ 618}#
+ #{req\ 807}#
+ #{opt\ 808}#
+ #{rest\ 809}#
+ #{kw\ 810}#
+ (cons #{e1\ 802}#
+ #{e2\ 803}#)))
+ (lambda (#{meta\ 816}#
+ #{req\ 817}#
+ #{opt\ 818}#
+ #{rest\ 819}#
+ #{kw\ 820}#
+ #{inits\ 821}#
+ #{vars\ 822}#
+ #{body\ 823}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 9185}#
- #{e\ 9457}#
- #{r\ 9458}#
- #{w\ 9459}#
- #{s\ 9460}#
- #{mod\ 9461}#
- #{get-formals\ 9462}#
- (map (lambda (#{tmp\
9688}#
- #{tmp\
9687}#
- #{tmp\
9686}#)
- (cons #{tmp\ 9686}#
- (cons #{tmp\
9687}#
- #{tmp\
9688}#)))
- #{e2*\ 9660}#
- #{e1*\ 9659}#
- #{args*\ 9658}#)))
- (lambda (#{meta*\ 9690}#
- #{else*\ 9691}#)
+ (#{chi-lambda-case\ 331}#
+ #{e\ 603}#
+ #{r\ 604}#
+ #{w\ 605}#
+ #{s\ 606}#
+ #{mod\ 607}#
+ #{get-formals\ 608}#
+ (map (lambda (#{tmp\ 834}#
+ #{tmp\ 833}#
+ #{tmp\
832}#)
+ (cons #{tmp\ 832}#
+ (cons #{tmp\
833}#
+ #{tmp\
834}#)))
+ #{e2*\ 806}#
+ #{e1*\ 805}#
+ #{args*\ 804}#)))
+ (lambda (#{meta*\ 836}#
+ #{else*\ 837}#)
(values
(append
- #{meta\ 9670}#
- #{meta*\ 9690}#)
- (#{build-lambda-case\
9022}#
- #{s\ 9460}#
- #{req\ 9671}#
- #{opt\ 9672}#
- #{rest\ 9673}#
- #{kw\ 9674}#
- #{inits\ 9675}#
- #{vars\ 9676}#
- #{body\ 9677}#
- #{else*\ 9691}#)))))))))
- #{tmp\ 9648}#)
+ #{meta\ 816}#
+ #{meta*\ 836}#)
+ (#{build-lambda-case\
168}#
+ #{s\ 606}#
+ #{req\ 817}#
+ #{opt\ 818}#
+ #{rest\ 819}#
+ #{kw\ 820}#
+ #{inits\ 821}#
+ #{vars\ 822}#
+ #{body\ 823}#
+ #{else*\ 837}#)))))))))
+ #{tmp\ 794}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 9646}#)))
+ #{tmp\ 792}#)))
($sc-dispatch
- #{tmp\ 9646}#
+ #{tmp\ 792}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 9646}# (quote ()))))
- #{clauses\ 9463}#))))
- (#{lambda*-formals\ 9183}#
- (lambda (#{orig-args\ 9694}#)
- (letrec ((#{check\ 9705}#
- (lambda (#{req\ 9706}#
- #{opt\ 9707}#
- #{rest\ 9708}#
- #{kw\ 9709}#)
- (if (#{distinct-bound-ids?\ 9141}#
+ ($sc-dispatch #{tmp\ 792}# (quote ()))))
+ #{clauses\ 609}#))))
+ (#{lambda*-formals\ 329}#
+ (lambda (#{orig-args\ 840}#)
+ (letrec ((#{check\ 851}#
+ (lambda (#{req\ 852}#
+ #{opt\ 853}#
+ #{rest\ 854}#
+ #{kw\ 855}#)
+ (if (#{distinct-bound-ids?\ 287}#
(append
- #{req\ 9706}#
- (map car #{opt\ 9707}#)
- (if #{rest\ 9708}#
- (list #{rest\ 9708}#)
+ #{req\ 852}#
+ (map car #{opt\ 853}#)
+ (if #{rest\ 854}#
+ (list #{rest\ 854}#)
'())
- (if (pair? #{kw\ 9709}#)
- (map cadr (cdr #{kw\ 9709}#))
+ (if (pair? #{kw\ 855}#)
+ (map cadr (cdr #{kw\ 855}#))
'())))
(values
- #{req\ 9706}#
- #{opt\ 9707}#
- #{rest\ 9708}#
- #{kw\ 9709}#)
+ #{req\ 852}#
+ #{opt\ 853}#
+ #{rest\ 854}#
+ #{kw\ 855}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 9694}#))))
- (#{rest\ 9703}#
- (lambda (#{args\ 9717}#
- #{req\ 9718}#
- #{opt\ 9719}#
- #{kw\ 9720}#)
- ((lambda (#{tmp\ 9725}#)
- ((lambda (#{tmp\ 9726}#)
- (if (if #{tmp\ 9726}#
- (apply (lambda (#{r\ 9728}#)
- (#{id?\ 9076}# #{r\ 9728}#))
- #{tmp\ 9726}#)
+ #{orig-args\ 840}#))))
+ (#{rest\ 849}#
+ (lambda (#{args\ 863}#
+ #{req\ 864}#
+ #{opt\ 865}#
+ #{kw\ 866}#)
+ ((lambda (#{tmp\ 871}#)
+ ((lambda (#{tmp\ 872}#)
+ (if (if #{tmp\ 872}#
+ (apply (lambda (#{r\ 874}#)
+ (#{id?\ 222}# #{r\ 874}#))
+ #{tmp\ 872}#)
#f)
- (apply (lambda (#{r\ 9730}#)
- (#{check\ 9705}#
- #{req\ 9718}#
- #{opt\ 9719}#
- #{r\ 9730}#
- #{kw\ 9720}#))
- #{tmp\ 9726}#)
- ((lambda (#{else\ 9732}#)
+ (apply (lambda (#{r\ 876}#)
+ (#{check\ 851}#
+ #{req\ 864}#
+ #{opt\ 865}#
+ #{r\ 876}#
+ #{kw\ 866}#))
+ #{tmp\ 872}#)
+ ((lambda (#{else\ 878}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 9694}#
- #{args\ 9717}#))
- #{tmp\ 9725}#)))
- (list #{tmp\ 9725}#)))
- #{args\ 9717}#)))
- (#{key\ 9701}#
- (lambda (#{args\ 9733}#
- #{req\ 9734}#
- #{opt\ 9735}#
- #{rkey\ 9736}#)
- ((lambda (#{tmp\ 9741}#)
- ((lambda (#{tmp\ 9742}#)
- (if #{tmp\ 9742}#
+ #{orig-args\ 840}#
+ #{args\ 863}#))
+ #{tmp\ 871}#)))
+ (list #{tmp\ 871}#)))
+ #{args\ 863}#)))
+ (#{key\ 847}#
+ (lambda (#{args\ 879}#
+ #{req\ 880}#
+ #{opt\ 881}#
+ #{rkey\ 882}#)
+ ((lambda (#{tmp\ 887}#)
+ ((lambda (#{tmp\ 888}#)
+ (if #{tmp\ 888}#
(apply (lambda ()
- (#{check\ 9705}#
- #{req\ 9734}#
- #{opt\ 9735}#
+ (#{check\ 851}#
+ #{req\ 880}#
+ #{opt\ 881}#
#f
(cons #f
- (reverse
- #{rkey\ 9736}#))))
- #{tmp\ 9742}#)
- ((lambda (#{tmp\ 9743}#)
- (if (if #{tmp\ 9743}#
- (apply (lambda (#{a\ 9746}#
- #{b\ 9747}#)
- (#{id?\ 9076}#
- #{a\ 9746}#))
- #{tmp\ 9743}#)
+ (reverse #{rkey\ 882}#))))
+ #{tmp\ 888}#)
+ ((lambda (#{tmp\ 889}#)
+ (if (if #{tmp\ 889}#
+ (apply (lambda (#{a\ 892}#
+ #{b\ 893}#)
+ (#{id?\ 222}#
+ #{a\ 892}#))
+ #{tmp\ 889}#)
#f)
- (apply (lambda (#{a\ 9750}#
- #{b\ 9751}#)
- ((lambda (#{tmp\ 9753}#)
- ((lambda (#{k\ 9755}#)
- (#{key\ 9701}#
- #{b\ 9751}#
- #{req\ 9734}#
- #{opt\ 9735}#
- (cons (cons #{k\
9755}#
- (cons
#{a\ 9750}#
+ (apply (lambda (#{a\ 896}# #{b\ 897}#)
+ ((lambda (#{tmp\ 899}#)
+ ((lambda (#{k\ 901}#)
+ (#{key\ 847}#
+ #{b\ 897}#
+ #{req\ 880}#
+ #{opt\ 881}#
+ (cons (cons #{k\
901}#
+ (cons
#{a\ 896}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
-
#("i9754"))
+
#("i900"))
#(ribcage
#(a
b)
#((top)
(top))
-
#("i9748"
-
"i9749"))
+
#("i894"
+
"i895"))
#(ribcage
()
()
@@ -652,10 +646,10 @@
(top)
(top)
(top))
-
#("i9737"
-
"i9738"
-
"i9739"
-
"i9740"))
+
#("i883"
+
"i884"
+
"i885"
+
"i886"))
#(ribcage
(check rest
key
@@ -666,15 +660,15 @@
(top)
(top)
(top))
-
("i9704"
-
"i9702"
-
"i9700"
-
"i9698"
-
"i9696"))
+
("i850"
+
"i848"
+
"i846"
+
"i844"
+
"i842"))
#(ribcage
#(orig-args)
#((top))
-
#("i9695"))
+
#("i841"))
#(ribcage
(lambda-var-list
gen-var
@@ -912,350 +906,350 @@
(top)
(top)
(top))
-
("i9190"
-
"i9188"
-
"i9186"
-
"i9184"
-
"i9182"
-
"i9180"
-
"i9178"
-
"i9176"
-
"i9174"
-
"i9172"
-
"i9170"
-
"i9168"
-
"i9166"
-
"i9164"
-
"i9162"
-
"i9160"
-
"i9158"
-
"i9156"
-
"i9154"
-
"i9152"
-
"i9150"
-
"i9148"
-
"i9146"
-
"i9144"
-
"i9142"
-
"i9140"
-
"i9138"
-
"i9136"
-
"i9134"
-
"i9132"
-
"i9130"
-
"i9128"
-
"i9126"
-
"i9124"
-
"i9122"
-
"i9120"
-
"i9119"
-
"i9118"
-
"i9116"
-
"i9115"
-
"i9114"
-
"i9113"
-
"i9112"
-
"i9110"
-
"i9108"
-
"i9106"
-
"i9104"
-
"i9102"
-
"i9100"
-
"i9098"
-
"i9096"
-
"i9093"
-
"i9091"
-
"i9090"
-
"i9089"
-
"i9088"
-
"i9087"
-
"i9086"
-
"i9084"
-
"i9082"
-
"i9080"
-
"i9078"
-
"i9077"
-
"i9075"
-
"i9073"
-
"i9071"
-
"i9069"
-
"i9067"
-
"i9065"
-
"i9063"
-
"i9062"
-
"i9060"
-
"i9058"
-
"i9057"
-
"i9056"
-
"i9054"
-
"i9053"
-
"i9051"
-
"i9049"
-
"i9047"
-
"i9045"
-
"i9043"
-
"i9041"
-
"i9039"
-
"i9037"
-
"i9035"
-
"i9033"
-
"i9031"
-
"i9029"
-
"i9027"
-
"i9025"
-
"i9023"
-
"i9021"
-
"i9019"
-
"i9017"
-
"i9015"
-
"i9013"
-
"i9011"
-
"i9009"
-
"i9007"
-
"i9005"
-
"i9003"
-
"i9001"
-
"i8999"
-
"i8997"
-
"i8995"
-
"i8993"
-
"i8991"
-
"i8989"
-
"i8988"
-
"i8986"
-
"i8984"
-
"i8982"
-
"i8980"
-
"i8978"
-
"i8976"
-
"i8974"
-
"i8972"))
+
("i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i265"
+
"i264"
+
"i262"
+
"i261"
+
"i260"
+
"i259"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i239"
+
"i237"
+
"i236"
+
"i235"
+
"i234"
+
"i233"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i208"
+
"i206"
+
"i204"
+
"i203"
+
"i202"
+
"i200"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"
+
"i169"
+
"i167"
+
"i165"
+
"i163"
+
"i161"
+
"i159"
+
"i157"
+
"i155"
+
"i153"
+
"i151"
+
"i149"
+
"i147"
+
"i145"
+
"i143"
+
"i141"
+
"i139"
+
"i137"
+
"i135"
+
"i134"
+
"i132"
+
"i130"
+
"i128"
+
"i126"
+
"i124"
+
"i122"
+
"i120"
+
"i118"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i8875"
-
"i8873")))
+
("i21"
+
"i19")))
(hygiene
guile)))))
- #{rkey\
9736}#)))
- #{tmp\ 9753}#))
+ #{rkey\
882}#)))
+ #{tmp\ 899}#))
(symbol->keyword
(syntax->datum
- #{a\ 9750}#))))
- #{tmp\ 9743}#)
- ((lambda (#{tmp\ 9756}#)
- (if (if #{tmp\ 9756}#
- (apply (lambda (#{a\ 9760}#
- #{init\
9761}#
- #{b\ 9762}#)
- (#{id?\ 9076}#
- #{a\ 9760}#))
- #{tmp\ 9756}#)
+ #{a\ 896}#))))
+ #{tmp\ 889}#)
+ ((lambda (#{tmp\ 902}#)
+ (if (if #{tmp\ 902}#
+ (apply (lambda (#{a\ 906}#
+ #{init\ 907}#
+ #{b\ 908}#)
+ (#{id?\ 222}#
+ #{a\ 906}#))
+ #{tmp\ 902}#)
#f)
- (apply (lambda (#{a\ 9766}#
- #{init\ 9767}#
- #{b\ 9768}#)
- ((lambda (#{tmp\ 9770}#)
- ((lambda (#{k\
9772}#)
- (#{key\ 9701}#
- #{b\ 9768}#
- #{req\ 9734}#
- #{opt\ 9735}#
- (cons (list
#{k\ 9772}#
-
#{a\ 9766}#
-
#{init\ 9767}#)
- #{rkey\
9736}#)))
- #{tmp\ 9770}#))
+ (apply (lambda (#{a\ 912}#
+ #{init\ 913}#
+ #{b\ 914}#)
+ ((lambda (#{tmp\ 916}#)
+ ((lambda (#{k\ 918}#)
+ (#{key\ 847}#
+ #{b\ 914}#
+ #{req\ 880}#
+ #{opt\ 881}#
+ (cons (list
#{k\ 918}#
+
#{a\ 912}#
+
#{init\ 913}#)
+ #{rkey\
882}#)))
+ #{tmp\ 916}#))
(symbol->keyword
(syntax->datum
- #{a\ 9766}#))))
- #{tmp\ 9756}#)
- ((lambda (#{tmp\ 9773}#)
- (if (if #{tmp\ 9773}#
- (apply (lambda (#{a\
9778}#
- #{init\
9779}#
- #{k\
9780}#
- #{b\
9781}#)
- (if (#{id?\
9076}#
- #{a\
9778}#)
+ #{a\ 912}#))))
+ #{tmp\ 902}#)
+ ((lambda (#{tmp\ 919}#)
+ (if (if #{tmp\ 919}#
+ (apply (lambda (#{a\
924}#
+ #{init\
925}#
+ #{k\
926}#
+ #{b\
927}#)
+ (if (#{id?\
222}#
+ #{a\
924}#)
(keyword?
(syntax->datum
- #{k\
9780}#))
+ #{k\
926}#))
#f))
- #{tmp\ 9773}#)
+ #{tmp\ 919}#)
#f)
- (apply (lambda (#{a\ 9788}#
- #{init\
9789}#
- #{k\ 9790}#
- #{b\ 9791}#)
- (#{key\ 9701}#
- #{b\ 9791}#
- #{req\ 9734}#
- #{opt\ 9735}#
- (cons (list #{k\
9790}#
- #{a\
9788}#
-
#{init\ 9789}#)
- #{rkey\
9736}#)))
- #{tmp\ 9773}#)
- ((lambda (#{tmp\ 9792}#)
- (if (if #{tmp\ 9792}#
- (apply (lambda
(#{aok\ 9794}#)
+ (apply (lambda (#{a\ 934}#
+ #{init\
935}#
+ #{k\ 936}#
+ #{b\ 937}#)
+ (#{key\ 847}#
+ #{b\ 937}#
+ #{req\ 880}#
+ #{opt\ 881}#
+ (cons (list #{k\
936}#
+ #{a\
934}#
+
#{init\ 935}#)
+ #{rkey\
882}#)))
+ #{tmp\ 919}#)
+ ((lambda (#{tmp\ 938}#)
+ (if (if #{tmp\ 938}#
+ (apply (lambda
(#{aok\ 940}#)
(eq?
(syntax->datum
-
#{aok\ 9794}#)
+
#{aok\ 940}#)
#:allow-other-keys))
- #{tmp\
9792}#)
+ #{tmp\
938}#)
#f)
- (apply (lambda (#{aok\
9796}#)
- (#{check\
9705}#
- #{req\
9734}#
- #{opt\
9735}#
+ (apply (lambda (#{aok\
942}#)
+ (#{check\
851}#
+ #{req\ 880}#
+ #{opt\ 881}#
#f
(cons #t
(reverse
-
#{rkey\ 9736}#))))
- #{tmp\ 9792}#)
- ((lambda (#{tmp\
9797}#)
- (if (if #{tmp\
9797}#
- (apply
(lambda (#{aok\ 9801}#
-
#{a\ 9802}#
-
#{b\ 9803}#)
+
#{rkey\ 882}#))))
+ #{tmp\ 938}#)
+ ((lambda (#{tmp\ 943}#)
+ (if (if #{tmp\ 943}#
+ (apply
(lambda (#{aok\ 947}#
+
#{a\ 948}#
+
#{b\ 949}#)
(if
(eq? (syntax->datum
-
#{aok\ 9801}#)
+
#{aok\ 947}#)
#:allow-other-keys)
(eq? (syntax->datum
-
#{a\ 9802}#)
+
#{a\ 948}#)
#:rest)
#f))
- #{tmp\
9797}#)
+ #{tmp\
943}#)
#f)
- (apply (lambda
(#{aok\ 9809}#
-
#{a\ 9810}#
-
#{b\ 9811}#)
- (#{rest\
9703}#
- #{b\
9811}#
- #{req\
9734}#
- #{opt\
9735}#
+ (apply (lambda
(#{aok\ 955}#
+
#{a\ 956}#
+
#{b\ 957}#)
+ (#{rest\
849}#
+ #{b\
957}#
+ #{req\
880}#
+ #{opt\
881}#
(cons
#t
(reverse
-
#{rkey\ 9736}#))))
- #{tmp\
9797}#)
- ((lambda (#{tmp\
9812}#)
- (if (if #{tmp\
9812}#
- (apply
(lambda (#{aok\ 9815}#
-
#{r\ 9816}#)
+
#{rkey\ 882}#))))
+ #{tmp\
943}#)
+ ((lambda (#{tmp\
958}#)
+ (if (if #{tmp\
958}#
+ (apply
(lambda (#{aok\ 961}#
+
#{r\ 962}#)
(if (eq? (syntax->datum
-
#{aok\ 9815}#)
+
#{aok\ 961}#)
#:allow-other-keys)
-
(#{id?\ 9076}#
-
#{r\ 9816}#)
+
(#{id?\ 222}#
+
#{r\ 962}#)
#f))
-
#{tmp\ 9812}#)
+
#{tmp\ 958}#)
#f)
- (apply
(lambda (#{aok\ 9821}#
-
#{r\ 9822}#)
-
(#{rest\ 9703}#
-
#{r\ 9822}#
-
#{req\ 9734}#
-
#{opt\ 9735}#
+ (apply
(lambda (#{aok\ 967}#
+
#{r\ 968}#)
+
(#{rest\ 849}#
+
#{r\ 968}#
+
#{req\ 880}#
+
#{opt\ 881}#
(cons #t
(reverse
-
#{rkey\ 9736}#))))
-
#{tmp\ 9812}#)
- ((lambda
(#{tmp\ 9823}#)
- (if (if
#{tmp\ 9823}#
-
(apply (lambda (#{a\ 9826}#
-
#{b\ 9827}#)
+
#{rkey\ 882}#))))
+
#{tmp\ 958}#)
+ ((lambda
(#{tmp\ 969}#)
+ (if (if
#{tmp\ 969}#
+
(apply (lambda (#{a\ 972}#
+
#{b\ 973}#)
(eq? (syntax->datum
-
#{a\ 9826}#)
+
#{a\ 972}#)
#:rest))
-
#{tmp\ 9823}#)
+
#{tmp\ 969}#)
#f)
- (apply
(lambda (#{a\ 9830}#
-
#{b\ 9831}#)
-
(#{rest\ 9703}#
-
#{b\ 9831}#
-
#{req\ 9734}#
-
#{opt\ 9735}#
+ (apply
(lambda (#{a\ 976}#
+
#{b\ 977}#)
+
(#{rest\ 849}#
+
#{b\ 977}#
+
#{req\ 880}#
+
#{opt\ 881}#
(cons #f
(reverse
-
#{rkey\ 9736}#))))
-
#{tmp\ 9823}#)
-
((lambda (#{tmp\ 9832}#)
- (if
(if #{tmp\ 9832}#
-
(apply (lambda (#{r\ 9834}#)
-
(#{id?\ 9076}#
-
#{r\ 9834}#))
-
#{tmp\ 9832}#)
+
#{rkey\ 882}#))))
+
#{tmp\ 969}#)
+
((lambda (#{tmp\ 978}#)
+ (if
(if #{tmp\ 978}#
+
(apply (lambda (#{r\ 980}#)
+
(#{id?\ 222}#
+
#{r\ 980}#))
+
#{tmp\ 978}#)
#f)
-
(apply (lambda (#{r\ 9836}#)
-
(#{rest\ 9703}#
-
#{r\ 9836}#
-
#{req\ 9734}#
-
#{opt\ 9735}#
+
(apply (lambda (#{r\ 982}#)
+
(#{rest\ 849}#
+
#{r\ 982}#
+
#{req\ 880}#
+
#{opt\ 881}#
(cons #f
(reverse
-
#{rkey\ 9736}#))))
-
#{tmp\ 9832}#)
-
((lambda (#{else\ 9838}#)
+
#{rkey\ 882}#))))
+
#{tmp\ 978}#)
+
((lambda (#{else\ 984}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
-
#{orig-args\ 9694}#
-
#{args\ 9733}#))
-
#{tmp\ 9741}#)))
- (list
#{tmp\ 9741}#))))
+
#{orig-args\ 840}#
+
#{args\ 879}#))
+
#{tmp\ 887}#)))
+ (list
#{tmp\ 887}#))))
($sc-dispatch
- #{tmp\
9741}#
+ #{tmp\
887}#
'(any
any)))))
($sc-dispatch
- #{tmp\ 9741}#
+ #{tmp\ 887}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 9741}#
+ #{tmp\ 887}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 9741}#
+ #{tmp\ 887}#
'(any)))))
($sc-dispatch
- #{tmp\ 9741}#
+ #{tmp\ 887}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 9741}#
+ #{tmp\ 887}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 9741}#
+ #{tmp\ 887}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 9741}# (quote ()))))
- #{args\ 9733}#)))
- (#{opt\ 9699}#
- (lambda (#{args\ 9839}# #{req\ 9840}# #{ropt\ 9841}#)
- ((lambda (#{tmp\ 9845}#)
- ((lambda (#{tmp\ 9846}#)
- (if #{tmp\ 9846}#
+ ($sc-dispatch #{tmp\ 887}# (quote ()))))
+ #{args\ 879}#)))
+ (#{opt\ 845}#
+ (lambda (#{args\ 985}# #{req\ 986}# #{ropt\ 987}#)
+ ((lambda (#{tmp\ 991}#)
+ ((lambda (#{tmp\ 992}#)
+ (if #{tmp\ 992}#
(apply (lambda ()
- (#{check\ 9705}#
- #{req\ 9840}#
- (reverse #{ropt\ 9841}#)
+ (#{check\ 851}#
+ #{req\ 986}#
+ (reverse #{ropt\ 987}#)
#f
'()))
- #{tmp\ 9846}#)
- ((lambda (#{tmp\ 9847}#)
- (if (if #{tmp\ 9847}#
- (apply (lambda (#{a\ 9850}#
- #{b\ 9851}#)
- (#{id?\ 9076}#
- #{a\ 9850}#))
- #{tmp\ 9847}#)
+ #{tmp\ 992}#)
+ ((lambda (#{tmp\ 993}#)
+ (if (if #{tmp\ 993}#
+ (apply (lambda (#{a\ 996}#
+ #{b\ 997}#)
+ (#{id?\ 222}#
+ #{a\ 996}#))
+ #{tmp\ 993}#)
#f)
- (apply (lambda (#{a\ 9854}#
- #{b\ 9855}#)
- (#{opt\ 9699}#
- #{b\ 9855}#
- #{req\ 9840}#
- (cons (cons #{a\ 9854}#
+ (apply (lambda (#{a\ 1000}#
+ #{b\ 1001}#)
+ (#{opt\ 845}#
+ #{b\ 1001}#
+ #{req\ 986}#
+ (cons (cons #{a\ 1000}#
'(#(syntax-object
#f
((top)
@@ -1263,8 +1257,8 @@
#(a b)
#((top)
(top))
-
#("i9852"
-
"i9853"))
+ #("i998"
+
"i999"))
#(ribcage
()
()
@@ -1276,9 +1270,9 @@
#((top)
(top)
(top))
-
#("i9842"
-
"i9843"
-
"i9844"))
+ #("i988"
+ "i989"
+
"i990"))
#(ribcage
(check
rest
key
@@ -1289,15 +1283,15 @@
(top)
(top)
(top))
- ("i9704"
- "i9702"
- "i9700"
- "i9698"
-
"i9696"))
+ ("i850"
+ "i848"
+ "i846"
+ "i844"
+
"i842"))
#(ribcage
#(orig-args)
#((top))
-
#("i9695"))
+
#("i841"))
#(ribcage
(lambda-var-list
gen-var
@@ -1535,463 +1529,463 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
-
"i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+
"i118"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i8875"
-
"i8873")))
+ ("i21"
+
"i19")))
(hygiene
guile))))
- #{ropt\ 9841}#)))
- #{tmp\ 9847}#)
- ((lambda (#{tmp\ 9856}#)
- (if (if #{tmp\ 9856}#
- (apply (lambda (#{a\ 9860}#
- #{init\
9861}#
- #{b\ 9862}#)
- (#{id?\ 9076}#
- #{a\ 9860}#))
- #{tmp\ 9856}#)
+ #{ropt\ 987}#)))
+ #{tmp\ 993}#)
+ ((lambda (#{tmp\ 1002}#)
+ (if (if #{tmp\ 1002}#
+ (apply (lambda (#{a\ 1006}#
+ #{init\
1007}#
+ #{b\ 1008}#)
+ (#{id?\ 222}#
+ #{a\ 1006}#))
+ #{tmp\ 1002}#)
#f)
- (apply (lambda (#{a\ 9866}#
- #{init\ 9867}#
- #{b\ 9868}#)
- (#{opt\ 9699}#
- #{b\ 9868}#
- #{req\ 9840}#
- (cons (list #{a\
9866}#
- #{init\
9867}#)
- #{ropt\
9841}#)))
- #{tmp\ 9856}#)
- ((lambda (#{tmp\ 9869}#)
- (if (if #{tmp\ 9869}#
- (apply (lambda (#{a\
9872}#
- #{b\
9873}#)
+ (apply (lambda (#{a\ 1012}#
+ #{init\ 1013}#
+ #{b\ 1014}#)
+ (#{opt\ 845}#
+ #{b\ 1014}#
+ #{req\ 986}#
+ (cons (list #{a\
1012}#
+ #{init\
1013}#)
+ #{ropt\ 987}#)))
+ #{tmp\ 1002}#)
+ ((lambda (#{tmp\ 1015}#)
+ (if (if #{tmp\ 1015}#
+ (apply (lambda (#{a\
1018}#
+ #{b\
1019}#)
(eq?
(syntax->datum
- #{a\
9872}#)
+ #{a\
1018}#)
#:key))
- #{tmp\ 9869}#)
+ #{tmp\ 1015}#)
#f)
- (apply (lambda (#{a\ 9876}#
- #{b\ 9877}#)
- (#{key\ 9701}#
- #{b\ 9877}#
- #{req\ 9840}#
+ (apply (lambda (#{a\ 1022}#
+ #{b\ 1023}#)
+ (#{key\ 847}#
+ #{b\ 1023}#
+ #{req\ 986}#
(reverse
- #{ropt\ 9841}#)
+ #{ropt\ 987}#)
'()))
- #{tmp\ 9869}#)
- ((lambda (#{tmp\ 9878}#)
- (if (if #{tmp\ 9878}#
- (apply (lambda
(#{a\ 9881}#
-
#{b\ 9882}#)
+ #{tmp\ 1015}#)
+ ((lambda (#{tmp\ 1024}#)
+ (if (if #{tmp\ 1024}#
+ (apply (lambda
(#{a\ 1027}#
+
#{b\ 1028}#)
(eq?
(syntax->datum
-
#{a\ 9881}#)
+
#{a\ 1027}#)
#:rest))
- #{tmp\
9878}#)
+ #{tmp\
1024}#)
#f)
- (apply (lambda (#{a\
9885}#
- #{b\
9886}#)
- (#{rest\
9703}#
- #{b\ 9886}#
- #{req\
9840}#
+ (apply (lambda (#{a\
1031}#
+ #{b\
1032}#)
+ (#{rest\ 849}#
+ #{b\ 1032}#
+ #{req\ 986}#
(reverse
- #{ropt\
9841}#)
+ #{ropt\
987}#)
'()))
- #{tmp\ 9878}#)
- ((lambda (#{tmp\
9887}#)
- (if (if #{tmp\
9887}#
- (apply
(lambda (#{r\ 9889}#)
-
(#{id?\ 9076}#
-
#{r\ 9889}#))
- #{tmp\
9887}#)
+ #{tmp\ 1024}#)
+ ((lambda (#{tmp\
1033}#)
+ (if (if #{tmp\
1033}#
+ (apply
(lambda (#{r\ 1035}#)
+
(#{id?\ 222}#
+
#{r\ 1035}#))
+ #{tmp\
1033}#)
#f)
- (apply (lambda
(#{r\ 9891}#)
- (#{rest\
9703}#
- #{r\
9891}#
- #{req\
9840}#
+ (apply (lambda
(#{r\ 1037}#)
+ (#{rest\
849}#
+ #{r\
1037}#
+ #{req\
986}#
(reverse
-
#{ropt\ 9841}#)
+
#{ropt\ 987}#)
'()))
- #{tmp\
9887}#)
- ((lambda (#{else\
9893}#)
+ #{tmp\
1033}#)
+ ((lambda (#{else\
1039}#)
(syntax-violation
'lambda*
"invalid
optional argument list"
- #{orig-args\
9694}#
- #{args\
9839}#))
- #{tmp\ 9845}#)))
- (list #{tmp\
9845}#))))
+ #{orig-args\
840}#
+ #{args\
985}#))
+ #{tmp\ 991}#)))
+ (list #{tmp\ 991}#))))
($sc-dispatch
- #{tmp\ 9845}#
+ #{tmp\ 991}#
'(any any)))))
($sc-dispatch
- #{tmp\ 9845}#
+ #{tmp\ 991}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 9845}#
+ #{tmp\ 991}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 9845}#
+ #{tmp\ 991}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 9845}# (quote ()))))
- #{args\ 9839}#)))
- (#{req\ 9697}#
- (lambda (#{args\ 9894}# #{rreq\ 9895}#)
- ((lambda (#{tmp\ 9898}#)
- ((lambda (#{tmp\ 9899}#)
- (if #{tmp\ 9899}#
+ ($sc-dispatch #{tmp\ 991}# (quote ()))))
+ #{args\ 985}#)))
+ (#{req\ 843}#
+ (lambda (#{args\ 1040}# #{rreq\ 1041}#)
+ ((lambda (#{tmp\ 1044}#)
+ ((lambda (#{tmp\ 1045}#)
+ (if #{tmp\ 1045}#
(apply (lambda ()
- (#{check\ 9705}#
- (reverse #{rreq\ 9895}#)
+ (#{check\ 851}#
+ (reverse #{rreq\ 1041}#)
'()
#f
'()))
- #{tmp\ 9899}#)
- ((lambda (#{tmp\ 9900}#)
- (if (if #{tmp\ 9900}#
- (apply (lambda (#{a\ 9903}#
- #{b\ 9904}#)
- (#{id?\ 9076}#
- #{a\ 9903}#))
- #{tmp\ 9900}#)
+ #{tmp\ 1045}#)
+ ((lambda (#{tmp\ 1046}#)
+ (if (if #{tmp\ 1046}#
+ (apply (lambda (#{a\ 1049}#
+ #{b\ 1050}#)
+ (#{id?\ 222}#
+ #{a\ 1049}#))
+ #{tmp\ 1046}#)
#f)
- (apply (lambda (#{a\ 9907}#
- #{b\ 9908}#)
- (#{req\ 9697}#
- #{b\ 9908}#
- (cons #{a\ 9907}#
- #{rreq\ 9895}#)))
- #{tmp\ 9900}#)
- ((lambda (#{tmp\ 9909}#)
- (if (if #{tmp\ 9909}#
- (apply (lambda (#{a\ 9912}#
- #{b\ 9913}#)
+ (apply (lambda (#{a\ 1053}#
+ #{b\ 1054}#)
+ (#{req\ 843}#
+ #{b\ 1054}#
+ (cons #{a\ 1053}#
+ #{rreq\ 1041}#)))
+ #{tmp\ 1046}#)
+ ((lambda (#{tmp\ 1055}#)
+ (if (if #{tmp\ 1055}#
+ (apply (lambda (#{a\ 1058}#
+ #{b\ 1059}#)
(eq? (syntax->datum
- #{a\ 9912}#)
+ #{a\ 1058}#)
#:optional))
- #{tmp\ 9909}#)
+ #{tmp\ 1055}#)
#f)
- (apply (lambda (#{a\ 9916}#
- #{b\ 9917}#)
- (#{opt\ 9699}#
- #{b\ 9917}#
+ (apply (lambda (#{a\ 1062}#
+ #{b\ 1063}#)
+ (#{opt\ 845}#
+ #{b\ 1063}#
(reverse
- #{rreq\ 9895}#)
+ #{rreq\ 1041}#)
'()))
- #{tmp\ 9909}#)
- ((lambda (#{tmp\ 9918}#)
- (if (if #{tmp\ 9918}#
- (apply (lambda (#{a\
9921}#
- #{b\
9922}#)
+ #{tmp\ 1055}#)
+ ((lambda (#{tmp\ 1064}#)
+ (if (if #{tmp\ 1064}#
+ (apply (lambda (#{a\
1067}#
+ #{b\
1068}#)
(eq?
(syntax->datum
- #{a\
9921}#)
+ #{a\
1067}#)
#:key))
- #{tmp\ 9918}#)
+ #{tmp\ 1064}#)
#f)
- (apply (lambda (#{a\ 9925}#
- #{b\ 9926}#)
- (#{key\ 9701}#
- #{b\ 9926}#
+ (apply (lambda (#{a\ 1071}#
+ #{b\ 1072}#)
+ (#{key\ 847}#
+ #{b\ 1072}#
(reverse
- #{rreq\ 9895}#)
+ #{rreq\ 1041}#)
'()
'()))
- #{tmp\ 9918}#)
- ((lambda (#{tmp\ 9927}#)
- (if (if #{tmp\ 9927}#
- (apply (lambda
(#{a\ 9930}#
-
#{b\ 9931}#)
+ #{tmp\ 1064}#)
+ ((lambda (#{tmp\ 1073}#)
+ (if (if #{tmp\ 1073}#
+ (apply (lambda
(#{a\ 1076}#
+
#{b\ 1077}#)
(eq?
(syntax->datum
-
#{a\ 9930}#)
+
#{a\ 1076}#)
#:rest))
- #{tmp\
9927}#)
+ #{tmp\
1073}#)
#f)
- (apply (lambda (#{a\
9934}#
- #{b\
9935}#)
- (#{rest\
9703}#
- #{b\ 9935}#
+ (apply (lambda (#{a\
1080}#
+ #{b\
1081}#)
+ (#{rest\ 849}#
+ #{b\ 1081}#
(reverse
- #{rreq\
9895}#)
+ #{rreq\
1041}#)
'()
'()))
- #{tmp\ 9927}#)
- ((lambda (#{tmp\
9936}#)
- (if (if #{tmp\
9936}#
- (apply
(lambda (#{r\ 9938}#)
-
(#{id?\ 9076}#
-
#{r\ 9938}#))
- #{tmp\
9936}#)
+ #{tmp\ 1073}#)
+ ((lambda (#{tmp\
1082}#)
+ (if (if #{tmp\
1082}#
+ (apply
(lambda (#{r\ 1084}#)
+
(#{id?\ 222}#
+
#{r\ 1084}#))
+ #{tmp\
1082}#)
#f)
- (apply (lambda
(#{r\ 9940}#)
- (#{rest\
9703}#
- #{r\
9940}#
+ (apply (lambda
(#{r\ 1086}#)
+ (#{rest\
849}#
+ #{r\
1086}#
(reverse
-
#{rreq\ 9895}#)
+
#{rreq\ 1041}#)
'()
'()))
- #{tmp\
9936}#)
- ((lambda (#{else\
9942}#)
+ #{tmp\
1082}#)
+ ((lambda (#{else\
1088}#)
(syntax-violation
'lambda*
"invalid
argument list"
- #{orig-args\
9694}#
- #{args\
9894}#))
- #{tmp\ 9898}#)))
- (list #{tmp\
9898}#))))
+ #{orig-args\
840}#
+ #{args\
1040}#))
+ #{tmp\ 1044}#)))
+ (list #{tmp\
1044}#))))
($sc-dispatch
- #{tmp\ 9898}#
+ #{tmp\ 1044}#
'(any any)))))
($sc-dispatch
- #{tmp\ 9898}#
+ #{tmp\ 1044}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 9898}#
+ #{tmp\ 1044}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 9898}#
+ #{tmp\ 1044}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 9898}# (quote ()))))
- #{args\ 9894}#))))
- (#{req\ 9697}# #{orig-args\ 9694}# (quote ())))))
- (#{chi-simple-lambda\ 9181}#
- (lambda (#{e\ 9943}#
- #{r\ 9944}#
- #{w\ 9945}#
- #{s\ 9946}#
- #{mod\ 9947}#
- #{req\ 9948}#
- #{rest\ 9949}#
- #{meta\ 9950}#
- #{body\ 9951}#)
- (let ((#{ids\ 9963}#
- (if #{rest\ 9949}#
- (append #{req\ 9948}# (list #{rest\ 9949}#))
- #{req\ 9948}#)))
- (let ((#{vars\ 9965}#
- (map #{gen-var\ 9189}# #{ids\ 9963}#)))
- (let ((#{labels\ 9967}#
- (#{gen-labels\ 9094}# #{ids\ 9963}#)))
- (#{build-simple-lambda\ 9018}#
- #{s\ 9946}#
- (map syntax->datum #{req\ 9948}#)
- (if #{rest\ 9949}#
- (syntax->datum #{rest\ 9949}#)
+ ($sc-dispatch #{tmp\ 1044}# (quote ()))))
+ #{args\ 1040}#))))
+ (#{req\ 843}# #{orig-args\ 840}# (quote ())))))
+ (#{chi-simple-lambda\ 327}#
+ (lambda (#{e\ 1089}#
+ #{r\ 1090}#
+ #{w\ 1091}#
+ #{s\ 1092}#
+ #{mod\ 1093}#
+ #{req\ 1094}#
+ #{rest\ 1095}#
+ #{meta\ 1096}#
+ #{body\ 1097}#)
+ (let ((#{ids\ 1109}#
+ (if #{rest\ 1095}#
+ (append #{req\ 1094}# (list #{rest\ 1095}#))
+ #{req\ 1094}#)))
+ (let ((#{vars\ 1111}#
+ (map #{gen-var\ 335}# #{ids\ 1109}#)))
+ (let ((#{labels\ 1113}#
+ (#{gen-labels\ 240}# #{ids\ 1109}#)))
+ (#{build-simple-lambda\ 164}#
+ #{s\ 1092}#
+ (map syntax->datum #{req\ 1094}#)
+ (if #{rest\ 1095}#
+ (syntax->datum #{rest\ 1095}#)
#f)
- #{vars\ 9965}#
- #{meta\ 9950}#
- (#{chi-body\ 9169}#
- #{body\ 9951}#
- (#{source-wrap\ 9147}#
- #{e\ 9943}#
- #{w\ 9945}#
- #{s\ 9946}#
- #{mod\ 9947}#)
- (#{extend-var-env\ 9066}#
- #{labels\ 9967}#
- #{vars\ 9965}#
- #{r\ 9944}#)
- (#{make-binding-wrap\ 9123}#
- #{ids\ 9963}#
- #{labels\ 9967}#
- #{w\ 9945}#)
- #{mod\ 9947}#)))))))
- (#{lambda-formals\ 9179}#
- (lambda (#{orig-args\ 9970}#)
- (letrec ((#{check\ 9975}#
- (lambda (#{req\ 9976}# #{rest\ 9977}#)
- (if (#{distinct-bound-ids?\ 9141}#
- (if #{rest\ 9977}#
- (cons #{rest\ 9977}# #{req\ 9976}#)
- #{req\ 9976}#))
- (values #{req\ 9976}# #f #{rest\ 9977}# #f)
+ #{vars\ 1111}#
+ #{meta\ 1096}#
+ (#{chi-body\ 315}#
+ #{body\ 1097}#
+ (#{source-wrap\ 293}#
+ #{e\ 1089}#
+ #{w\ 1091}#
+ #{s\ 1092}#
+ #{mod\ 1093}#)
+ (#{extend-var-env\ 212}#
+ #{labels\ 1113}#
+ #{vars\ 1111}#
+ #{r\ 1090}#)
+ (#{make-binding-wrap\ 269}#
+ #{ids\ 1109}#
+ #{labels\ 1113}#
+ #{w\ 1091}#)
+ #{mod\ 1093}#)))))))
+ (#{lambda-formals\ 325}#
+ (lambda (#{orig-args\ 1116}#)
+ (letrec ((#{check\ 1121}#
+ (lambda (#{req\ 1122}# #{rest\ 1123}#)
+ (if (#{distinct-bound-ids?\ 287}#
+ (if #{rest\ 1123}#
+ (cons #{rest\ 1123}# #{req\ 1122}#)
+ #{req\ 1122}#))
+ (values #{req\ 1122}# #f #{rest\ 1123}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 9970}#))))
- (#{req\ 9973}#
- (lambda (#{args\ 9983}# #{rreq\ 9984}#)
- ((lambda (#{tmp\ 9987}#)
- ((lambda (#{tmp\ 9988}#)
- (if #{tmp\ 9988}#
+ #{orig-args\ 1116}#))))
+ (#{req\ 1119}#
+ (lambda (#{args\ 1129}# #{rreq\ 1130}#)
+ ((lambda (#{tmp\ 1133}#)
+ ((lambda (#{tmp\ 1134}#)
+ (if #{tmp\ 1134}#
(apply (lambda ()
- (#{check\ 9975}#
- (reverse #{rreq\ 9984}#)
+ (#{check\ 1121}#
+ (reverse #{rreq\ 1130}#)
#f))
- #{tmp\ 9988}#)
- ((lambda (#{tmp\ 9989}#)
- (if (if #{tmp\ 9989}#
- (apply (lambda (#{a\ 9992}#
- #{b\ 9993}#)
- (#{id?\ 9076}#
- #{a\ 9992}#))
- #{tmp\ 9989}#)
+ #{tmp\ 1134}#)
+ ((lambda (#{tmp\ 1135}#)
+ (if (if #{tmp\ 1135}#
+ (apply (lambda (#{a\ 1138}#
+ #{b\ 1139}#)
+ (#{id?\ 222}#
+ #{a\ 1138}#))
+ #{tmp\ 1135}#)
#f)
- (apply (lambda (#{a\ 9996}#
- #{b\ 9997}#)
- (#{req\ 9973}#
- #{b\ 9997}#
- (cons #{a\ 9996}#
- #{rreq\ 9984}#)))
- #{tmp\ 9989}#)
- ((lambda (#{tmp\ 9998}#)
- (if (if #{tmp\ 9998}#
- (apply (lambda (#{r\ 10000}#)
- (#{id?\ 9076}#
- #{r\ 10000}#))
- #{tmp\ 9998}#)
+ (apply (lambda (#{a\ 1142}#
+ #{b\ 1143}#)
+ (#{req\ 1119}#
+ #{b\ 1143}#
+ (cons #{a\ 1142}#
+ #{rreq\ 1130}#)))
+ #{tmp\ 1135}#)
+ ((lambda (#{tmp\ 1144}#)
+ (if (if #{tmp\ 1144}#
+ (apply (lambda (#{r\ 1146}#)
+ (#{id?\ 222}#
+ #{r\ 1146}#))
+ #{tmp\ 1144}#)
#f)
- (apply (lambda (#{r\ 10002}#)
- (#{check\ 9975}#
+ (apply (lambda (#{r\ 1148}#)
+ (#{check\ 1121}#
(reverse
- #{rreq\ 9984}#)
- #{r\ 10002}#))
- #{tmp\ 9998}#)
- ((lambda (#{else\ 10004}#)
+ #{rreq\ 1130}#)
+ #{r\ 1148}#))
+ #{tmp\ 1144}#)
+ ((lambda (#{else\ 1150}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 9970}#
- #{args\ 9983}#))
- #{tmp\ 9987}#)))
- (list #{tmp\ 9987}#))))
+ #{orig-args\ 1116}#
+ #{args\ 1129}#))
+ #{tmp\ 1133}#)))
+ (list #{tmp\ 1133}#))))
($sc-dispatch
- #{tmp\ 9987}#
+ #{tmp\ 1133}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 9987}# (quote ()))))
- #{args\ 9983}#))))
- (#{req\ 9973}# #{orig-args\ 9970}# (quote ())))))
- (#{ellipsis?\ 9177}#
- (lambda (#{x\ 10005}#)
- (if (#{nonsymbol-id?\ 9074}# #{x\ 10005}#)
- (#{free-id=?\ 9135}#
- #{x\ 10005}#
+ ($sc-dispatch #{tmp\ 1133}# (quote ()))))
+ #{args\ 1129}#))))
+ (#{req\ 1119}# #{orig-args\ 1116}# (quote ())))))
+ (#{ellipsis?\ 323}#
+ (lambda (#{x\ 1151}#)
+ (if (#{nonsymbol-id?\ 220}# #{x\ 1151}#)
+ (#{free-id=?\ 281}#
+ #{x\ 1151}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10006"))
+ #(ribcage #(x) #((top)) #("i1152"))
#(ribcage
(lambda-var-list
gen-var
@@ -2229,1373 +2223,1369 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
- "i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+ "i118"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i8875" "i8873")))
+ ("i21" "i19")))
(hygiene guile)))
#f)))
- (#{chi-void\ 9175}#
- (lambda () (#{build-void\ 8996}# #f)))
- (#{eval-local-transformer\ 9173}#
- (lambda (#{expanded\ 10010}# #{mod\ 10011}#)
- (let ((#{p\ 10015}#
- (#{local-eval-hook\ 8987}#
- #{expanded\ 10010}#
- #{mod\ 10011}#)))
- (if (procedure? #{p\ 10015}#)
- (cons #{p\ 10015}#
- (module-name (current-module)))
+ (#{chi-void\ 321}#
+ (lambda () (#{build-void\ 142}# #f)))
+ (#{eval-local-transformer\ 319}#
+ (lambda (#{expanded\ 1156}# #{mod\ 1157}#)
+ (let ((#{p\ 1161}#
+ (#{local-eval-hook\ 133}#
+ #{expanded\ 1156}#
+ #{mod\ 1157}#)))
+ (if (procedure? #{p\ 1161}#)
+ (cons #{p\ 1161}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 10015}#)))))
- (#{chi-local-syntax\ 9171}#
- (lambda (#{rec?\ 10016}#
- #{e\ 10017}#
- #{r\ 10018}#
- #{w\ 10019}#
- #{s\ 10020}#
- #{mod\ 10021}#
- #{k\ 10022}#)
- ((lambda (#{tmp\ 10030}#)
- ((lambda (#{tmp\ 10031}#)
- (if #{tmp\ 10031}#
- (apply (lambda (#{_\ 10037}#
- #{id\ 10038}#
- #{val\ 10039}#
- #{e1\ 10040}#
- #{e2\ 10041}#)
- (let ((#{ids\ 10043}# #{id\ 10038}#))
- (if (not (#{valid-bound-ids?\ 9139}#
- #{ids\ 10043}#))
+ #{p\ 1161}#)))))
+ (#{chi-local-syntax\ 317}#
+ (lambda (#{rec?\ 1162}#
+ #{e\ 1163}#
+ #{r\ 1164}#
+ #{w\ 1165}#
+ #{s\ 1166}#
+ #{mod\ 1167}#
+ #{k\ 1168}#)
+ ((lambda (#{tmp\ 1176}#)
+ ((lambda (#{tmp\ 1177}#)
+ (if #{tmp\ 1177}#
+ (apply (lambda (#{_\ 1183}#
+ #{id\ 1184}#
+ #{val\ 1185}#
+ #{e1\ 1186}#
+ #{e2\ 1187}#)
+ (let ((#{ids\ 1189}# #{id\ 1184}#))
+ (if (not (#{valid-bound-ids?\ 285}#
+ #{ids\ 1189}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 10017}#)
- (let ((#{labels\ 10046}#
- (#{gen-labels\ 9094}#
- #{ids\ 10043}#)))
- (let ((#{new-w\ 10048}#
- (#{make-binding-wrap\ 9123}#
- #{ids\ 10043}#
- #{labels\ 10046}#
- #{w\ 10019}#)))
- (#{k\ 10022}#
- (cons #{e1\ 10040}# #{e2\ 10041}#)
- (#{extend-env\ 9064}#
- #{labels\ 10046}#
- (let ((#{w\ 10052}#
- (if #{rec?\ 10016}#
- #{new-w\ 10048}#
- #{w\ 10019}#))
- (#{trans-r\ 10053}#
- (#{macros-only-env\ 9068}#
- #{r\ 10018}#)))
- (map (lambda (#{x\ 10054}#)
+ #{e\ 1163}#)
+ (let ((#{labels\ 1192}#
+ (#{gen-labels\ 240}#
+ #{ids\ 1189}#)))
+ (let ((#{new-w\ 1194}#
+ (#{make-binding-wrap\ 269}#
+ #{ids\ 1189}#
+ #{labels\ 1192}#
+ #{w\ 1165}#)))
+ (#{k\ 1168}#
+ (cons #{e1\ 1186}# #{e2\ 1187}#)
+ (#{extend-env\ 210}#
+ #{labels\ 1192}#
+ (let ((#{w\ 1198}#
+ (if #{rec?\ 1162}#
+ #{new-w\ 1194}#
+ #{w\ 1165}#))
+ (#{trans-r\ 1199}#
+ (#{macros-only-env\ 214}#
+ #{r\ 1164}#)))
+ (map (lambda (#{x\ 1200}#)
(cons 'macro
-
(#{eval-local-transformer\ 9173}#
- (#{chi\ 9161}#
- #{x\ 10054}#
- #{trans-r\
10053}#
- #{w\ 10052}#
- #{mod\ 10021}#)
- #{mod\ 10021}#)))
- #{val\ 10039}#))
- #{r\ 10018}#)
- #{new-w\ 10048}#
- #{s\ 10020}#
- #{mod\ 10021}#))))))
- #{tmp\ 10031}#)
- ((lambda (#{_\ 10059}#)
+
(#{eval-local-transformer\ 319}#
+ (#{chi\ 307}#
+ #{x\ 1200}#
+ #{trans-r\
1199}#
+ #{w\ 1198}#
+ #{mod\ 1167}#)
+ #{mod\ 1167}#)))
+ #{val\ 1185}#))
+ #{r\ 1164}#)
+ #{new-w\ 1194}#
+ #{s\ 1166}#
+ #{mod\ 1167}#))))))
+ #{tmp\ 1177}#)
+ ((lambda (#{_\ 1205}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 9147}#
- #{e\ 10017}#
- #{w\ 10019}#
- #{s\ 10020}#
- #{mod\ 10021}#)))
- #{tmp\ 10030}#)))
+ (#{source-wrap\ 293}#
+ #{e\ 1163}#
+ #{w\ 1165}#
+ #{s\ 1166}#
+ #{mod\ 1167}#)))
+ #{tmp\ 1176}#)))
($sc-dispatch
- #{tmp\ 10030}#
+ #{tmp\ 1176}#
'(any #(each (any any)) any . each-any))))
- #{e\ 10017}#)))
- (#{chi-body\ 9169}#
- (lambda (#{body\ 10060}#
- #{outer-form\ 10061}#
- #{r\ 10062}#
- #{w\ 10063}#
- #{mod\ 10064}#)
- (let ((#{r\ 10072}#
+ #{e\ 1163}#)))
+ (#{chi-body\ 315}#
+ (lambda (#{body\ 1206}#
+ #{outer-form\ 1207}#
+ #{r\ 1208}#
+ #{w\ 1209}#
+ #{mod\ 1210}#)
+ (let ((#{r\ 1218}#
(cons '("placeholder" placeholder)
- #{r\ 10062}#)))
- (let ((#{ribcage\ 10074}#
- (#{make-ribcage\ 9097}#
+ #{r\ 1208}#)))
+ (let ((#{ribcage\ 1220}#
+ (#{make-ribcage\ 243}#
'()
'()
'())))
- (let ((#{w\ 10077}#
- (#{make-wrap\ 9081}#
- (#{wrap-marks\ 9083}# #{w\ 10063}#)
- (cons #{ribcage\ 10074}#
- (#{wrap-subst\ 9085}# #{w\ 10063}#)))))
- (letrec ((#{parse\ 10086}#
- (lambda (#{body\ 10087}#
- #{ids\ 10088}#
- #{labels\ 10089}#
- #{var-ids\ 10090}#
- #{vars\ 10091}#
- #{vals\ 10092}#
- #{bindings\ 10093}#)
- (if (null? #{body\ 10087}#)
+ (let ((#{w\ 1223}#
+ (#{make-wrap\ 227}#
+ (#{wrap-marks\ 229}# #{w\ 1209}#)
+ (cons #{ribcage\ 1220}#
+ (#{wrap-subst\ 231}# #{w\ 1209}#)))))
+ (letrec ((#{parse\ 1232}#
+ (lambda (#{body\ 1233}#
+ #{ids\ 1234}#
+ #{labels\ 1235}#
+ #{var-ids\ 1236}#
+ #{vars\ 1237}#
+ #{vals\ 1238}#
+ #{bindings\ 1239}#)
+ (if (null? #{body\ 1233}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 10061}#)
- (let ((#{e\ 10098}# (cdar #{body\ 10087}#))
- (#{er\ 10099}#
- (caar #{body\ 10087}#)))
+ #{outer-form\ 1207}#)
+ (let ((#{e\ 1244}# (cdar #{body\ 1233}#))
+ (#{er\ 1245}# (caar #{body\ 1233}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 9157}#
- #{e\ 10098}#
- #{er\ 10099}#
+ (#{syntax-type\ 303}#
+ #{e\ 1244}#
+ #{er\ 1245}#
'(())
- (#{source-annotation\ 9055}#
- #{er\ 10099}#)
- #{ribcage\ 10074}#
- #{mod\ 10064}#
+ (#{source-annotation\ 201}#
+ #{er\ 1245}#)
+ #{ribcage\ 1220}#
+ #{mod\ 1210}#
#f))
- (lambda (#{type\ 10101}#
- #{value\ 10102}#
- #{e\ 10103}#
- #{w\ 10104}#
- #{s\ 10105}#
- #{mod\ 10106}#)
- (if (memv #{type\ 10101}#
+ (lambda (#{type\ 1247}#
+ #{value\ 1248}#
+ #{e\ 1249}#
+ #{w\ 1250}#
+ #{s\ 1251}#
+ #{mod\ 1252}#)
+ (if (memv #{type\ 1247}#
'(define-form))
- (let ((#{id\ 10116}#
- (#{wrap\ 9145}#
- #{value\ 10102}#
- #{w\ 10104}#
- #{mod\ 10106}#))
- (#{label\ 10117}#
- (#{gen-label\ 9092}#)))
- (let ((#{var\ 10119}#
- (#{gen-var\ 9189}#
- #{id\ 10116}#)))
+ (let ((#{id\ 1262}#
+ (#{wrap\ 291}#
+ #{value\ 1248}#
+ #{w\ 1250}#
+ #{mod\ 1252}#))
+ (#{label\ 1263}#
+ (#{gen-label\ 238}#)))
+ (let ((#{var\ 1265}#
+ (#{gen-var\ 335}#
+ #{id\ 1262}#)))
(begin
- (#{extend-ribcage!\ 9121}#
- #{ribcage\ 10074}#
- #{id\ 10116}#
- #{label\ 10117}#)
- (#{parse\ 10086}#
- (cdr #{body\ 10087}#)
- (cons #{id\ 10116}#
- #{ids\ 10088}#)
- (cons #{label\ 10117}#
- #{labels\ 10089}#)
- (cons #{id\ 10116}#
- #{var-ids\ 10090}#)
- (cons #{var\ 10119}#
- #{vars\ 10091}#)
- (cons (cons #{er\ 10099}#
- (#{wrap\ 9145}#
- #{e\ 10103}#
- #{w\ 10104}#
- #{mod\
10106}#))
- #{vals\ 10092}#)
+ (#{extend-ribcage!\ 267}#
+ #{ribcage\ 1220}#
+ #{id\ 1262}#
+ #{label\ 1263}#)
+ (#{parse\ 1232}#
+ (cdr #{body\ 1233}#)
+ (cons #{id\ 1262}#
+ #{ids\ 1234}#)
+ (cons #{label\ 1263}#
+ #{labels\ 1235}#)
+ (cons #{id\ 1262}#
+ #{var-ids\ 1236}#)
+ (cons #{var\ 1265}#
+ #{vars\ 1237}#)
+ (cons (cons #{er\ 1245}#
+ (#{wrap\ 291}#
+ #{e\ 1249}#
+ #{w\ 1250}#
+ #{mod\
1252}#))
+ #{vals\ 1238}#)
(cons (cons 'lexical
- #{var\ 10119}#)
- #{bindings\
10093}#)))))
- (if (memv #{type\ 10101}#
+ #{var\ 1265}#)
+ #{bindings\
1239}#)))))
+ (if (memv #{type\ 1247}#
'(define-syntax-form))
- (let ((#{id\ 10124}#
- (#{wrap\ 9145}#
- #{value\ 10102}#
- #{w\ 10104}#
- #{mod\ 10106}#))
- (#{label\ 10125}#
- (#{gen-label\ 9092}#)))
+ (let ((#{id\ 1270}#
+ (#{wrap\ 291}#
+ #{value\ 1248}#
+ #{w\ 1250}#
+ #{mod\ 1252}#))
+ (#{label\ 1271}#
+ (#{gen-label\ 238}#)))
(begin
- (#{extend-ribcage!\ 9121}#
- #{ribcage\ 10074}#
- #{id\ 10124}#
- #{label\ 10125}#)
- (#{parse\ 10086}#
- (cdr #{body\ 10087}#)
- (cons #{id\ 10124}#
- #{ids\ 10088}#)
- (cons #{label\ 10125}#
- #{labels\ 10089}#)
- #{var-ids\ 10090}#
- #{vars\ 10091}#
- #{vals\ 10092}#
+ (#{extend-ribcage!\ 267}#
+ #{ribcage\ 1220}#
+ #{id\ 1270}#
+ #{label\ 1271}#)
+ (#{parse\ 1232}#
+ (cdr #{body\ 1233}#)
+ (cons #{id\ 1270}#
+ #{ids\ 1234}#)
+ (cons #{label\ 1271}#
+ #{labels\ 1235}#)
+ #{var-ids\ 1236}#
+ #{vars\ 1237}#
+ #{vals\ 1238}#
(cons (cons 'macro
- (cons #{er\
10099}#
- (#{wrap\
9145}#
- #{e\
10103}#
- #{w\
10104}#
- #{mod\
10106}#)))
- #{bindings\
10093}#))))
- (if (memv #{type\ 10101}#
+ (cons #{er\
1245}#
+ (#{wrap\
291}#
+ #{e\
1249}#
+ #{w\
1250}#
+ #{mod\
1252}#)))
+ #{bindings\
1239}#))))
+ (if (memv #{type\ 1247}#
'(begin-form))
- ((lambda (#{tmp\ 10128}#)
- ((lambda (#{tmp\ 10129}#)
- (if #{tmp\ 10129}#
- (apply (lambda (#{_\
10132}#
- #{e1\
10133}#)
- (#{parse\
10086}#
- (letrec
((#{f\ 10136}#
-
(lambda (#{forms\ 10137}#)
-
(if (null? #{forms\ 10137}#)
-
(cdr #{body\ 10087}#)
-
(cons (cons #{er\ 10099}#
-
(#{wrap\ 9145}#
-
(car #{forms\ 10137}#)
-
#{w\ 10104}#
-
#{mod\ 10106}#))
-
(#{f\ 10136}#
-
(cdr #{forms\ 10137}#)))))))
- (#{f\
10136}#
- #{e1\
10133}#))
- #{ids\
10088}#
- #{labels\
10089}#
- #{var-ids\
10090}#
- #{vars\
10091}#
- #{vals\
10092}#
- #{bindings\
10093}#))
- #{tmp\ 10129}#)
+ ((lambda (#{tmp\ 1274}#)
+ ((lambda (#{tmp\ 1275}#)
+ (if #{tmp\ 1275}#
+ (apply (lambda (#{_\
1278}#
+ #{e1\
1279}#)
+ (#{parse\
1232}#
+ (letrec
((#{f\ 1282}#
+
(lambda (#{forms\ 1283}#)
+
(if (null? #{forms\ 1283}#)
+
(cdr #{body\ 1233}#)
+
(cons (cons #{er\ 1245}#
+
(#{wrap\ 291}#
+
(car #{forms\ 1283}#)
+
#{w\ 1250}#
+
#{mod\ 1252}#))
+
(#{f\ 1282}#
+
(cdr #{forms\ 1283}#)))))))
+ (#{f\
1282}#
+ #{e1\
1279}#))
+ #{ids\
1234}#
+ #{labels\
1235}#
+ #{var-ids\
1236}#
+ #{vars\
1237}#
+ #{vals\
1238}#
+ #{bindings\
1239}#))
+ #{tmp\ 1275}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 10128}#)))
+ #{tmp\ 1274}#)))
($sc-dispatch
- #{tmp\ 10128}#
+ #{tmp\ 1274}#
'(any . each-any))))
- #{e\ 10103}#)
- (if (memv #{type\ 10101}#
+ #{e\ 1249}#)
+ (if (memv #{type\ 1247}#
'(local-syntax-form))
- (#{chi-local-syntax\ 9171}#
- #{value\ 10102}#
- #{e\ 10103}#
- #{er\ 10099}#
- #{w\ 10104}#
- #{s\ 10105}#
- #{mod\ 10106}#
- (lambda (#{forms\ 10140}#
- #{er\ 10141}#
- #{w\ 10142}#
- #{s\ 10143}#
- #{mod\ 10144}#)
- (#{parse\ 10086}#
- (letrec ((#{f\ 10152}#
- (lambda
(#{forms\ 10153}#)
- (if
(null? #{forms\ 10153}#)
- (cdr
#{body\ 10087}#)
- (cons
(cons #{er\ 10141}#
-
(#{wrap\ 9145}#
-
(car #{forms\ 10153}#)
-
#{w\ 10142}#
-
#{mod\ 10144}#))
-
(#{f\ 10152}#
-
(cdr #{forms\ 10153}#)))))))
- (#{f\ 10152}#
- #{forms\ 10140}#))
- #{ids\ 10088}#
- #{labels\ 10089}#
- #{var-ids\ 10090}#
- #{vars\ 10091}#
- #{vals\ 10092}#
- #{bindings\ 10093}#)))
- (if (null? #{ids\ 10088}#)
- (#{build-sequence\ 9028}#
+ (#{chi-local-syntax\ 317}#
+ #{value\ 1248}#
+ #{e\ 1249}#
+ #{er\ 1245}#
+ #{w\ 1250}#
+ #{s\ 1251}#
+ #{mod\ 1252}#
+ (lambda (#{forms\ 1286}#
+ #{er\ 1287}#
+ #{w\ 1288}#
+ #{s\ 1289}#
+ #{mod\ 1290}#)
+ (#{parse\ 1232}#
+ (letrec ((#{f\ 1298}#
+ (lambda
(#{forms\ 1299}#)
+ (if
(null? #{forms\ 1299}#)
+ (cdr
#{body\ 1233}#)
+ (cons
(cons #{er\ 1287}#
+
(#{wrap\ 291}#
+
(car #{forms\ 1299}#)
+
#{w\ 1288}#
+
#{mod\ 1290}#))
+
(#{f\ 1298}#
+
(cdr #{forms\ 1299}#)))))))
+ (#{f\ 1298}#
+ #{forms\ 1286}#))
+ #{ids\ 1234}#
+ #{labels\ 1235}#
+ #{var-ids\ 1236}#
+ #{vars\ 1237}#
+ #{vals\ 1238}#
+ #{bindings\ 1239}#)))
+ (if (null? #{ids\ 1234}#)
+ (#{build-sequence\ 174}#
#f
- (map (lambda (#{x\
10156}#)
- (#{chi\ 9161}#
- (cdr #{x\
10156}#)
- (car #{x\
10156}#)
+ (map (lambda (#{x\
1302}#)
+ (#{chi\ 307}#
+ (cdr #{x\
1302}#)
+ (car #{x\
1302}#)
'(())
- #{mod\ 10106}#))
- (cons (cons #{er\
10099}#
-
(#{source-wrap\ 9147}#
- #{e\
10103}#
- #{w\
10104}#
- #{s\
10105}#
-
#{mod\ 10106}#))
- (cdr #{body\
10087}#))))
+ #{mod\ 1252}#))
+ (cons (cons #{er\
1245}#
+
(#{source-wrap\ 293}#
+ #{e\
1249}#
+ #{w\
1250}#
+ #{s\
1251}#
+
#{mod\ 1252}#))
+ (cdr #{body\
1233}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 9139}#
- #{ids\
10088}#))
+ (if (not
(#{valid-bound-ids?\ 285}#
+ #{ids\
1234}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
10061}#))
- (letrec ((#{loop\ 10163}#
- (lambda
(#{bs\ 10164}#
-
#{er-cache\ 10165}#
-
#{r-cache\ 10166}#)
- (if (not
(null? #{bs\ 10164}#))
- (let
((#{b\ 10169}#
-
(car #{bs\ 10164}#)))
- (if
(eq? (car #{b\ 10169}#)
+ #{outer-form\
1207}#))
+ (letrec ((#{loop\ 1309}#
+ (lambda
(#{bs\ 1310}#
+
#{er-cache\ 1311}#
+
#{r-cache\ 1312}#)
+ (if (not
(null? #{bs\ 1310}#))
+ (let
((#{b\ 1315}#
+
(car #{bs\ 1310}#)))
+ (if
(eq? (car #{b\ 1315}#)
'macro)
- (let
((#{er\ 10172}#
-
(cadr #{b\ 10169}#)))
-
(let ((#{r-cache\ 10174}#
-
(if (eq? #{er\ 10172}#
-
#{er-cache\ 10165}#)
-
#{r-cache\ 10166}#
-
(#{macros-only-env\ 9068}#
-
#{er\ 10172}#))))
+ (let
((#{er\ 1318}#
+
(cadr #{b\ 1315}#)))
+
(let ((#{r-cache\ 1320}#
+
(if (eq? #{er\ 1318}#
+
#{er-cache\ 1311}#)
+
#{r-cache\ 1312}#
+
(#{macros-only-env\ 214}#
+
#{er\ 1318}#))))
(begin
(set-cdr!
-
#{b\ 10169}#
-
(#{eval-local-transformer\ 9173}#
-
(#{chi\ 9161}#
-
(cddr #{b\ 10169}#)
-
#{r-cache\ 10174}#
+
#{b\ 1315}#
+
(#{eval-local-transformer\ 319}#
+
(#{chi\ 307}#
+
(cddr #{b\ 1315}#)
+
#{r-cache\ 1320}#
'(())
-
#{mod\ 10106}#)
-
#{mod\ 10106}#))
-
(#{loop\ 10163}#
-
(cdr #{bs\ 10164}#)
-
#{er\ 10172}#
-
#{r-cache\ 10174}#))))
-
(#{loop\ 10163}#
-
(cdr #{bs\ 10164}#)
-
#{er-cache\ 10165}#
-
#{r-cache\ 10166}#)))))))
- (#{loop\ 10163}#
- #{bindings\ 10093}#
+
#{mod\ 1252}#)
+
#{mod\ 1252}#))
+
(#{loop\ 1309}#
+
(cdr #{bs\ 1310}#)
+
#{er\ 1318}#
+
#{r-cache\ 1320}#))))
+
(#{loop\ 1309}#
+
(cdr #{bs\ 1310}#)
+
#{er-cache\ 1311}#
+
#{r-cache\ 1312}#)))))))
+ (#{loop\ 1309}#
+ #{bindings\ 1239}#
#f
#f))
(set-cdr!
- #{r\ 10072}#
- (#{extend-env\ 9064}#
- #{labels\ 10089}#
- #{bindings\ 10093}#
- (cdr #{r\ 10072}#)))
- (#{build-letrec\ 9034}#
+ #{r\ 1218}#
+ (#{extend-env\ 210}#
+ #{labels\ 1235}#
+ #{bindings\ 1239}#
+ (cdr #{r\ 1218}#)))
+ (#{build-letrec\ 180}#
#f
(map syntax->datum
- #{var-ids\
10090}#)
- #{vars\ 10091}#
- (map (lambda (#{x\
10177}#)
- (#{chi\ 9161}#
- (cdr #{x\
10177}#)
- (car #{x\
10177}#)
+ #{var-ids\ 1236}#)
+ #{vars\ 1237}#
+ (map (lambda (#{x\
1323}#)
+ (#{chi\ 307}#
+ (cdr #{x\
1323}#)
+ (car #{x\
1323}#)
'(())
- #{mod\
10106}#))
- #{vals\ 10092}#)
- (#{build-sequence\
9028}#
+ #{mod\
1252}#))
+ #{vals\ 1238}#)
+ (#{build-sequence\
174}#
#f
- (map (lambda (#{x\
10181}#)
- (#{chi\ 9161}#
- (cdr #{x\
10181}#)
- (car #{x\
10181}#)
+ (map (lambda (#{x\
1327}#)
+ (#{chi\ 307}#
+ (cdr #{x\
1327}#)
+ (car #{x\
1327}#)
'(())
- #{mod\
10106}#))
- (cons (cons
#{er\ 10099}#
-
(#{source-wrap\ 9147}#
-
#{e\ 10103}#
-
#{w\ 10104}#
-
#{s\ 10105}#
-
#{mod\ 10106}#))
- (cdr
#{body\ 10087}#))))))))))))))))))
- (#{parse\ 10086}#
- (map (lambda (#{x\ 10094}#)
- (cons #{r\ 10072}#
- (#{wrap\ 9145}#
- #{x\ 10094}#
- #{w\ 10077}#
- #{mod\ 10064}#)))
- #{body\ 10060}#)
+ #{mod\
1252}#))
+ (cons (cons
#{er\ 1245}#
+
(#{source-wrap\ 293}#
+
#{e\ 1249}#
+
#{w\ 1250}#
+
#{s\ 1251}#
+
#{mod\ 1252}#))
+ (cdr
#{body\ 1233}#))))))))))))))))))
+ (#{parse\ 1232}#
+ (map (lambda (#{x\ 1240}#)
+ (cons #{r\ 1218}#
+ (#{wrap\ 291}#
+ #{x\ 1240}#
+ #{w\ 1223}#
+ #{mod\ 1210}#)))
+ #{body\ 1206}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 9167}#
- (lambda (#{p\ 10184}#
- #{e\ 10185}#
- #{r\ 10186}#
- #{w\ 10187}#
- #{rib\ 10188}#
- #{mod\ 10189}#)
- (letrec ((#{rebuild-macro-output\ 10197}#
- (lambda (#{x\ 10198}# #{m\ 10199}#)
- (if (pair? #{x\ 10198}#)
- (cons (#{rebuild-macro-output\ 10197}#
- (car #{x\ 10198}#)
- #{m\ 10199}#)
- (#{rebuild-macro-output\ 10197}#
- (cdr #{x\ 10198}#)
- #{m\ 10199}#))
- (if (#{syntax-object?\ 9040}# #{x\ 10198}#)
- (let ((#{w\ 10207}#
- (#{syntax-object-wrap\ 9044}#
- #{x\ 10198}#)))
- (let ((#{ms\ 10210}#
- (#{wrap-marks\ 9083}# #{w\ 10207}#))
- (#{s\ 10211}#
- (#{wrap-subst\ 9085}# #{w\ 10207}#)))
- (if (if (pair? #{ms\ 10210}#)
- (eq? (car #{ms\ 10210}#) #f)
+ (#{chi-macro\ 313}#
+ (lambda (#{p\ 1330}#
+ #{e\ 1331}#
+ #{r\ 1332}#
+ #{w\ 1333}#
+ #{rib\ 1334}#
+ #{mod\ 1335}#)
+ (letrec ((#{rebuild-macro-output\ 1343}#
+ (lambda (#{x\ 1344}# #{m\ 1345}#)
+ (if (pair? #{x\ 1344}#)
+ (cons (#{rebuild-macro-output\ 1343}#
+ (car #{x\ 1344}#)
+ #{m\ 1345}#)
+ (#{rebuild-macro-output\ 1343}#
+ (cdr #{x\ 1344}#)
+ #{m\ 1345}#))
+ (if (#{syntax-object?\ 186}# #{x\ 1344}#)
+ (let ((#{w\ 1353}#
+ (#{syntax-object-wrap\ 190}#
+ #{x\ 1344}#)))
+ (let ((#{ms\ 1356}#
+ (#{wrap-marks\ 229}# #{w\ 1353}#))
+ (#{s\ 1357}#
+ (#{wrap-subst\ 231}# #{w\ 1353}#)))
+ (if (if (pair? #{ms\ 1356}#)
+ (eq? (car #{ms\ 1356}#) #f)
#f)
- (#{make-syntax-object\ 9038}#
- (#{syntax-object-expression\ 9042}#
- #{x\ 10198}#)
- (#{make-wrap\ 9081}#
- (cdr #{ms\ 10210}#)
- (if #{rib\ 10188}#
- (cons #{rib\ 10188}#
- (cdr #{s\ 10211}#))
- (cdr #{s\ 10211}#)))
- (#{syntax-object-module\ 9046}#
- #{x\ 10198}#))
- (#{make-syntax-object\ 9038}#
- (#{syntax-object-expression\ 9042}#
- #{x\ 10198}#)
- (#{make-wrap\ 9081}#
- (cons #{m\ 10199}# #{ms\ 10210}#)
- (if #{rib\ 10188}#
- (cons #{rib\ 10188}#
+ (#{make-syntax-object\ 184}#
+ (#{syntax-object-expression\ 188}#
+ #{x\ 1344}#)
+ (#{make-wrap\ 227}#
+ (cdr #{ms\ 1356}#)
+ (if #{rib\ 1334}#
+ (cons #{rib\ 1334}#
+ (cdr #{s\ 1357}#))
+ (cdr #{s\ 1357}#)))
+ (#{syntax-object-module\ 192}#
+ #{x\ 1344}#))
+ (#{make-syntax-object\ 184}#
+ (#{syntax-object-expression\ 188}#
+ #{x\ 1344}#)
+ (#{make-wrap\ 227}#
+ (cons #{m\ 1345}# #{ms\ 1356}#)
+ (if #{rib\ 1334}#
+ (cons #{rib\ 1334}#
(cons 'shift
- #{s\ 10211}#))
- (cons (quote shift) #{s\ 10211}#)))
+ #{s\ 1357}#))
+ (cons (quote shift) #{s\ 1357}#)))
(cons 'hygiene
- (cdr #{p\ 10184}#))))))
- (if (vector? #{x\ 10198}#)
- (let ((#{n\ 10219}#
- (vector-length #{x\ 10198}#)))
- (let ((#{v\ 10221}#
- (make-vector #{n\ 10219}#)))
- (letrec ((#{loop\ 10224}#
- (lambda (#{i\ 10225}#)
- (if (#{fx=\ 8981}#
- #{i\ 10225}#
- #{n\ 10219}#)
+ (cdr #{p\ 1330}#))))))
+ (if (vector? #{x\ 1344}#)
+ (let ((#{n\ 1365}#
+ (vector-length #{x\ 1344}#)))
+ (let ((#{v\ 1367}#
+ (make-vector #{n\ 1365}#)))
+ (letrec ((#{loop\ 1370}#
+ (lambda (#{i\ 1371}#)
+ (if (#{fx=\ 127}#
+ #{i\ 1371}#
+ #{n\ 1365}#)
(begin
(if #f #f)
- #{v\ 10221}#)
+ #{v\ 1367}#)
(begin
(vector-set!
- #{v\ 10221}#
- #{i\ 10225}#
-
(#{rebuild-macro-output\ 10197}#
+ #{v\ 1367}#
+ #{i\ 1371}#
+
(#{rebuild-macro-output\ 1343}#
(vector-ref
- #{x\ 10198}#
- #{i\ 10225}#)
- #{m\ 10199}#))
- (#{loop\ 10224}#
- (#{fx+\ 8977}#
- #{i\ 10225}#
+ #{x\ 1344}#
+ #{i\ 1371}#)
+ #{m\ 1345}#))
+ (#{loop\ 1370}#
+ (#{fx+\ 123}#
+ #{i\ 1371}#
1)))))))
- (#{loop\ 10224}# 0))))
- (if (symbol? #{x\ 10198}#)
+ (#{loop\ 1370}# 0))))
+ (if (symbol? #{x\ 1344}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 9147}#
- #{e\ 10185}#
- #{w\ 10187}#
- (#{wrap-subst\ 9085}# #{w\ 10187}#)
- #{mod\ 10189}#)
- #{x\ 10198}#)
- #{x\ 10198}#)))))))
- (#{rebuild-macro-output\ 10197}#
- ((car #{p\ 10184}#)
- (#{wrap\ 9145}#
- #{e\ 10185}#
- (#{anti-mark\ 9117}# #{w\ 10187}#)
- #{mod\ 10189}#))
+ (#{source-wrap\ 293}#
+ #{e\ 1331}#
+ #{w\ 1333}#
+ (#{wrap-subst\ 231}# #{w\ 1333}#)
+ #{mod\ 1335}#)
+ #{x\ 1344}#)
+ #{x\ 1344}#)))))))
+ (#{rebuild-macro-output\ 1343}#
+ ((car #{p\ 1330}#)
+ (#{wrap\ 291}#
+ #{e\ 1331}#
+ (#{anti-mark\ 263}# #{w\ 1333}#)
+ #{mod\ 1335}#))
(gensym "m")))))
- (#{chi-application\ 9165}#
- (lambda (#{x\ 10232}#
- #{e\ 10233}#
- #{r\ 10234}#
- #{w\ 10235}#
- #{s\ 10236}#
- #{mod\ 10237}#)
- ((lambda (#{tmp\ 10244}#)
- ((lambda (#{tmp\ 10245}#)
- (if #{tmp\ 10245}#
- (apply (lambda (#{e0\ 10248}# #{e1\ 10249}#)
- (#{build-application\ 8998}#
- #{s\ 10236}#
- #{x\ 10232}#
- (map (lambda (#{e\ 10250}#)
- (#{chi\ 9161}#
- #{e\ 10250}#
- #{r\ 10234}#
- #{w\ 10235}#
- #{mod\ 10237}#))
- #{e1\ 10249}#)))
- #{tmp\ 10245}#)
+ (#{chi-application\ 311}#
+ (lambda (#{x\ 1378}#
+ #{e\ 1379}#
+ #{r\ 1380}#
+ #{w\ 1381}#
+ #{s\ 1382}#
+ #{mod\ 1383}#)
+ ((lambda (#{tmp\ 1390}#)
+ ((lambda (#{tmp\ 1391}#)
+ (if #{tmp\ 1391}#
+ (apply (lambda (#{e0\ 1394}# #{e1\ 1395}#)
+ (#{build-application\ 144}#
+ #{s\ 1382}#
+ #{x\ 1378}#
+ (map (lambda (#{e\ 1396}#)
+ (#{chi\ 307}#
+ #{e\ 1396}#
+ #{r\ 1380}#
+ #{w\ 1381}#
+ #{mod\ 1383}#))
+ #{e1\ 1395}#)))
+ #{tmp\ 1391}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 10244}#)))
+ #{tmp\ 1390}#)))
($sc-dispatch
- #{tmp\ 10244}#
+ #{tmp\ 1390}#
'(any . each-any))))
- #{e\ 10233}#)))
- (#{chi-expr\ 9163}#
- (lambda (#{type\ 10253}#
- #{value\ 10254}#
- #{e\ 10255}#
- #{r\ 10256}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#)
- (if (memv #{type\ 10253}# (quote (lexical)))
- (#{build-lexical-reference\ 9004}#
+ #{e\ 1379}#)))
+ (#{chi-expr\ 309}#
+ (lambda (#{type\ 1399}#
+ #{value\ 1400}#
+ #{e\ 1401}#
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#)
+ (if (memv #{type\ 1399}# (quote (lexical)))
+ (#{build-lexical-reference\ 150}#
'value
- #{s\ 10258}#
- #{e\ 10255}#
- #{value\ 10254}#)
- (if (memv #{type\ 10253}# (quote (core core-form)))
- (#{value\ 10254}#
- #{e\ 10255}#
- #{r\ 10256}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#)
- (if (memv #{type\ 10253}# (quote (module-ref)))
+ #{s\ 1404}#
+ #{e\ 1401}#
+ #{value\ 1400}#)
+ (if (memv #{type\ 1399}# (quote (core core-form)))
+ (#{value\ 1400}#
+ #{e\ 1401}#
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#)
+ (if (memv #{type\ 1399}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 10254}# #{e\ 10255}#))
- (lambda (#{id\ 10270}# #{mod\ 10271}#)
- (#{build-global-reference\ 9010}#
- #{s\ 10258}#
- #{id\ 10270}#
- #{mod\ 10271}#)))
- (if (memv #{type\ 10253}# (quote (lexical-call)))
- (#{chi-application\ 9165}#
- (#{build-lexical-reference\ 9004}#
+ (lambda () (#{value\ 1400}# #{e\ 1401}#))
+ (lambda (#{id\ 1416}# #{mod\ 1417}#)
+ (#{build-global-reference\ 156}#
+ #{s\ 1404}#
+ #{id\ 1416}#
+ #{mod\ 1417}#)))
+ (if (memv #{type\ 1399}# (quote (lexical-call)))
+ (#{chi-application\ 311}#
+ (#{build-lexical-reference\ 150}#
'fun
- (#{source-annotation\ 9055}# (car #{e\ 10255}#))
- (car #{e\ 10255}#)
- #{value\ 10254}#)
- #{e\ 10255}#
- #{r\ 10256}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#)
- (if (memv #{type\ 10253}# (quote (global-call)))
- (#{chi-application\ 9165}#
- (#{build-global-reference\ 9010}#
- (#{source-annotation\ 9055}# (car #{e\ 10255}#))
- (if (#{syntax-object?\ 9040}# #{value\ 10254}#)
- (#{syntax-object-expression\ 9042}#
- #{value\ 10254}#)
- #{value\ 10254}#)
- (if (#{syntax-object?\ 9040}# #{value\ 10254}#)
- (#{syntax-object-module\ 9046}#
- #{value\ 10254}#)
- #{mod\ 10259}#))
- #{e\ 10255}#
- #{r\ 10256}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#)
- (if (memv #{type\ 10253}# (quote (constant)))
- (#{build-data\ 9026}#
- #{s\ 10258}#
- (#{strip\ 9187}#
- (#{source-wrap\ 9147}#
- #{e\ 10255}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#)
+ (#{source-annotation\ 201}# (car #{e\ 1401}#))
+ (car #{e\ 1401}#)
+ #{value\ 1400}#)
+ #{e\ 1401}#
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#)
+ (if (memv #{type\ 1399}# (quote (global-call)))
+ (#{chi-application\ 311}#
+ (#{build-global-reference\ 156}#
+ (#{source-annotation\ 201}# (car #{e\ 1401}#))
+ (if (#{syntax-object?\ 186}# #{value\ 1400}#)
+ (#{syntax-object-expression\ 188}#
+ #{value\ 1400}#)
+ #{value\ 1400}#)
+ (if (#{syntax-object?\ 186}# #{value\ 1400}#)
+ (#{syntax-object-module\ 192}# #{value\ 1400}#)
+ #{mod\ 1405}#))
+ #{e\ 1401}#
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#)
+ (if (memv #{type\ 1399}# (quote (constant)))
+ (#{build-data\ 172}#
+ #{s\ 1404}#
+ (#{strip\ 333}#
+ (#{source-wrap\ 293}#
+ #{e\ 1401}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#)
'(())))
- (if (memv #{type\ 10253}# (quote (global)))
- (#{build-global-reference\ 9010}#
- #{s\ 10258}#
- #{value\ 10254}#
- #{mod\ 10259}#)
- (if (memv #{type\ 10253}# (quote (call)))
- (#{chi-application\ 9165}#
- (#{chi\ 9161}#
- (car #{e\ 10255}#)
- #{r\ 10256}#
- #{w\ 10257}#
- #{mod\ 10259}#)
- #{e\ 10255}#
- #{r\ 10256}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#)
- (if (memv #{type\ 10253}# (quote (begin-form)))
- ((lambda (#{tmp\ 10281}#)
- ((lambda (#{tmp\ 10282}#)
- (if #{tmp\ 10282}#
- (apply (lambda (#{_\ 10286}#
- #{e1\ 10287}#
- #{e2\ 10288}#)
- (#{chi-sequence\ 9149}#
- (cons #{e1\ 10287}#
- #{e2\ 10288}#)
- #{r\ 10256}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#))
- #{tmp\ 10282}#)
+ (if (memv #{type\ 1399}# (quote (global)))
+ (#{build-global-reference\ 156}#
+ #{s\ 1404}#
+ #{value\ 1400}#
+ #{mod\ 1405}#)
+ (if (memv #{type\ 1399}# (quote (call)))
+ (#{chi-application\ 311}#
+ (#{chi\ 307}#
+ (car #{e\ 1401}#)
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{mod\ 1405}#)
+ #{e\ 1401}#
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#)
+ (if (memv #{type\ 1399}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1427}#)
+ ((lambda (#{tmp\ 1428}#)
+ (if #{tmp\ 1428}#
+ (apply (lambda (#{_\ 1432}#
+ #{e1\ 1433}#
+ #{e2\ 1434}#)
+ (#{chi-sequence\ 295}#
+ (cons #{e1\ 1433}#
+ #{e2\ 1434}#)
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#))
+ #{tmp\ 1428}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 10281}#)))
+ #{tmp\ 1427}#)))
($sc-dispatch
- #{tmp\ 10281}#
+ #{tmp\ 1427}#
'(any any . each-any))))
- #{e\ 10255}#)
- (if (memv #{type\ 10253}#
+ #{e\ 1401}#)
+ (if (memv #{type\ 1399}#
'(local-syntax-form))
- (#{chi-local-syntax\ 9171}#
- #{value\ 10254}#
- #{e\ 10255}#
- #{r\ 10256}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#
- #{chi-sequence\ 9149}#)
- (if (memv #{type\ 10253}#
+ (#{chi-local-syntax\ 317}#
+ #{value\ 1400}#
+ #{e\ 1401}#
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#
+ #{chi-sequence\ 295}#)
+ (if (memv #{type\ 1399}#
'(eval-when-form))
- ((lambda (#{tmp\ 10292}#)
- ((lambda (#{tmp\ 10293}#)
- (if #{tmp\ 10293}#
- (apply (lambda (#{_\ 10298}#
- #{x\ 10299}#
- #{e1\ 10300}#
- #{e2\ 10301}#)
- (let ((#{when-list\
10303}#
-
(#{chi-when-list\ 9155}#
- #{e\ 10255}#
- #{x\ 10299}#
- #{w\ 10257}#)))
+ ((lambda (#{tmp\ 1438}#)
+ ((lambda (#{tmp\ 1439}#)
+ (if #{tmp\ 1439}#
+ (apply (lambda (#{_\ 1444}#
+ #{x\ 1445}#
+ #{e1\ 1446}#
+ #{e2\ 1447}#)
+ (let ((#{when-list\
1449}#
+
(#{chi-when-list\ 301}#
+ #{e\ 1401}#
+ #{x\ 1445}#
+ #{w\ 1403}#)))
(if (memq 'eval
- #{when-list\
10303}#)
- (#{chi-sequence\
9149}#
- (cons #{e1\ 10300}#
- #{e2\
10301}#)
- #{r\ 10256}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#)
- (#{chi-void\
9175}#))))
- #{tmp\ 10293}#)
+ #{when-list\
1449}#)
+ (#{chi-sequence\
295}#
+ (cons #{e1\ 1446}#
+ #{e2\ 1447}#)
+ #{r\ 1402}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#)
+ (#{chi-void\
321}#))))
+ #{tmp\ 1439}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 10292}#)))
+ #{tmp\ 1438}#)))
($sc-dispatch
- #{tmp\ 10292}#
+ #{tmp\ 1438}#
'(any each-any any . each-any))))
- #{e\ 10255}#)
- (if (memv #{type\ 10253}#
+ #{e\ 1401}#)
+ (if (memv #{type\ 1399}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 10255}#
- (#{wrap\ 9145}#
- #{value\ 10254}#
- #{w\ 10257}#
- #{mod\ 10259}#))
- (if (memv #{type\ 10253}#
+ #{e\ 1401}#
+ (#{wrap\ 291}#
+ #{value\ 1400}#
+ #{w\ 1403}#
+ #{mod\ 1405}#))
+ (if (memv #{type\ 1399}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 9147}#
- #{e\ 10255}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#))
- (if (memv #{type\ 10253}#
+ (#{source-wrap\ 293}#
+ #{e\ 1401}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#))
+ (if (memv #{type\ 1399}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 9147}#
- #{e\ 10255}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#))
+ (#{source-wrap\ 293}#
+ #{e\ 1401}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 9147}#
- #{e\ 10255}#
- #{w\ 10257}#
- #{s\ 10258}#
- #{mod\ 10259}#))))))))))))))))))
- (#{chi\ 9161}#
- (lambda (#{e\ 10310}#
- #{r\ 10311}#
- #{w\ 10312}#
- #{mod\ 10313}#)
+ (#{source-wrap\ 293}#
+ #{e\ 1401}#
+ #{w\ 1403}#
+ #{s\ 1404}#
+ #{mod\ 1405}#))))))))))))))))))
+ (#{chi\ 307}#
+ (lambda (#{e\ 1456}#
+ #{r\ 1457}#
+ #{w\ 1458}#
+ #{mod\ 1459}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 9157}#
- #{e\ 10310}#
- #{r\ 10311}#
- #{w\ 10312}#
- (#{source-annotation\ 9055}# #{e\ 10310}#)
+ (#{syntax-type\ 303}#
+ #{e\ 1456}#
+ #{r\ 1457}#
+ #{w\ 1458}#
+ (#{source-annotation\ 201}# #{e\ 1456}#)
#f
- #{mod\ 10313}#
+ #{mod\ 1459}#
#f))
- (lambda (#{type\ 10318}#
- #{value\ 10319}#
- #{e\ 10320}#
- #{w\ 10321}#
- #{s\ 10322}#
- #{mod\ 10323}#)
- (#{chi-expr\ 9163}#
- #{type\ 10318}#
- #{value\ 10319}#
- #{e\ 10320}#
- #{r\ 10311}#
- #{w\ 10321}#
- #{s\ 10322}#
- #{mod\ 10323}#)))))
- (#{chi-top\ 9159}#
- (lambda (#{e\ 10330}#
- #{r\ 10331}#
- #{w\ 10332}#
- #{m\ 10333}#
- #{esew\ 10334}#
- #{mod\ 10335}#)
+ (lambda (#{type\ 1464}#
+ #{value\ 1465}#
+ #{e\ 1466}#
+ #{w\ 1467}#
+ #{s\ 1468}#
+ #{mod\ 1469}#)
+ (#{chi-expr\ 309}#
+ #{type\ 1464}#
+ #{value\ 1465}#
+ #{e\ 1466}#
+ #{r\ 1457}#
+ #{w\ 1467}#
+ #{s\ 1468}#
+ #{mod\ 1469}#)))))
+ (#{chi-top\ 305}#
+ (lambda (#{e\ 1476}#
+ #{r\ 1477}#
+ #{w\ 1478}#
+ #{m\ 1479}#
+ #{esew\ 1480}#
+ #{mod\ 1481}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 9157}#
- #{e\ 10330}#
- #{r\ 10331}#
- #{w\ 10332}#
- (#{source-annotation\ 9055}# #{e\ 10330}#)
+ (#{syntax-type\ 303}#
+ #{e\ 1476}#
+ #{r\ 1477}#
+ #{w\ 1478}#
+ (#{source-annotation\ 201}# #{e\ 1476}#)
#f
- #{mod\ 10335}#
+ #{mod\ 1481}#
#f))
- (lambda (#{type\ 10356}#
- #{value\ 10357}#
- #{e\ 10358}#
- #{w\ 10359}#
- #{s\ 10360}#
- #{mod\ 10361}#)
- (if (memv #{type\ 10356}# (quote (begin-form)))
- ((lambda (#{tmp\ 10369}#)
- ((lambda (#{tmp\ 10370}#)
- (if #{tmp\ 10370}#
- (apply (lambda (#{_\ 10372}#)
- (#{chi-void\ 9175}#))
- #{tmp\ 10370}#)
- ((lambda (#{tmp\ 10373}#)
- (if #{tmp\ 10373}#
- (apply (lambda (#{_\ 10377}#
- #{e1\ 10378}#
- #{e2\ 10379}#)
- (#{chi-top-sequence\ 9151}#
- (cons #{e1\ 10378}# #{e2\ 10379}#)
- #{r\ 10331}#
- #{w\ 10359}#
- #{s\ 10360}#
- #{m\ 10333}#
- #{esew\ 10334}#
- #{mod\ 10361}#))
- #{tmp\ 10373}#)
+ (lambda (#{type\ 1502}#
+ #{value\ 1503}#
+ #{e\ 1504}#
+ #{w\ 1505}#
+ #{s\ 1506}#
+ #{mod\ 1507}#)
+ (if (memv #{type\ 1502}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1515}#)
+ ((lambda (#{tmp\ 1516}#)
+ (if #{tmp\ 1516}#
+ (apply (lambda (#{_\ 1518}#) (#{chi-void\ 321}#))
+ #{tmp\ 1516}#)
+ ((lambda (#{tmp\ 1519}#)
+ (if #{tmp\ 1519}#
+ (apply (lambda (#{_\ 1523}#
+ #{e1\ 1524}#
+ #{e2\ 1525}#)
+ (#{chi-top-sequence\ 297}#
+ (cons #{e1\ 1524}# #{e2\ 1525}#)
+ #{r\ 1477}#
+ #{w\ 1505}#
+ #{s\ 1506}#
+ #{m\ 1479}#
+ #{esew\ 1480}#
+ #{mod\ 1507}#))
+ #{tmp\ 1519}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 10369}#)))
+ #{tmp\ 1515}#)))
($sc-dispatch
- #{tmp\ 10369}#
+ #{tmp\ 1515}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 10369}# (quote (any)))))
- #{e\ 10358}#)
- (if (memv #{type\ 10356}#
- '(local-syntax-form))
- (#{chi-local-syntax\ 9171}#
- #{value\ 10357}#
- #{e\ 10358}#
- #{r\ 10331}#
- #{w\ 10359}#
- #{s\ 10360}#
- #{mod\ 10361}#
- (lambda (#{body\ 10382}#
- #{r\ 10383}#
- #{w\ 10384}#
- #{s\ 10385}#
- #{mod\ 10386}#)
- (#{chi-top-sequence\ 9151}#
- #{body\ 10382}#
- #{r\ 10383}#
- #{w\ 10384}#
- #{s\ 10385}#
- #{m\ 10333}#
- #{esew\ 10334}#
- #{mod\ 10386}#)))
- (if (memv #{type\ 10356}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 10393}#)
- ((lambda (#{tmp\ 10394}#)
- (if #{tmp\ 10394}#
- (apply (lambda (#{_\ 10399}#
- #{x\ 10400}#
- #{e1\ 10401}#
- #{e2\ 10402}#)
- (let ((#{when-list\ 10405}#
- (#{chi-when-list\ 9155}#
- #{e\ 10358}#
- #{x\ 10400}#
- #{w\ 10359}#))
- (#{body\ 10406}#
- (cons #{e1\ 10401}#
- #{e2\ 10402}#)))
- (if (eq? #{m\ 10333}# (quote e))
+ ($sc-dispatch #{tmp\ 1515}# (quote (any)))))
+ #{e\ 1504}#)
+ (if (memv #{type\ 1502}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 317}#
+ #{value\ 1503}#
+ #{e\ 1504}#
+ #{r\ 1477}#
+ #{w\ 1505}#
+ #{s\ 1506}#
+ #{mod\ 1507}#
+ (lambda (#{body\ 1528}#
+ #{r\ 1529}#
+ #{w\ 1530}#
+ #{s\ 1531}#
+ #{mod\ 1532}#)
+ (#{chi-top-sequence\ 297}#
+ #{body\ 1528}#
+ #{r\ 1529}#
+ #{w\ 1530}#
+ #{s\ 1531}#
+ #{m\ 1479}#
+ #{esew\ 1480}#
+ #{mod\ 1532}#)))
+ (if (memv #{type\ 1502}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 1539}#)
+ ((lambda (#{tmp\ 1540}#)
+ (if #{tmp\ 1540}#
+ (apply (lambda (#{_\ 1545}#
+ #{x\ 1546}#
+ #{e1\ 1547}#
+ #{e2\ 1548}#)
+ (let ((#{when-list\ 1551}#
+ (#{chi-when-list\ 301}#
+ #{e\ 1504}#
+ #{x\ 1546}#
+ #{w\ 1505}#))
+ (#{body\ 1552}#
+ (cons #{e1\ 1547}#
+ #{e2\ 1548}#)))
+ (if (eq? #{m\ 1479}# (quote e))
(if (memq 'eval
- #{when-list\ 10405}#)
- (#{chi-top-sequence\ 9151}#
- #{body\ 10406}#
- #{r\ 10331}#
- #{w\ 10359}#
- #{s\ 10360}#
+ #{when-list\ 1551}#)
+ (#{chi-top-sequence\ 297}#
+ #{body\ 1552}#
+ #{r\ 1477}#
+ #{w\ 1505}#
+ #{s\ 1506}#
'e
'(eval)
- #{mod\ 10361}#)
- (#{chi-void\ 9175}#))
+ #{mod\ 1507}#)
+ (#{chi-void\ 321}#))
(if (memq 'load
- #{when-list\ 10405}#)
- (if (let ((#{t\ 10415}#
+ #{when-list\ 1551}#)
+ (if (let ((#{t\ 1561}#
(memq 'compile
- #{when-list\
10405}#)))
- (if #{t\ 10415}#
- #{t\ 10415}#
- (if (eq? #{m\ 10333}#
+ #{when-list\
1551}#)))
+ (if #{t\ 1561}#
+ #{t\ 1561}#
+ (if (eq? #{m\ 1479}#
'c&e)
(memq 'eval
- #{when-list\
10405}#)
+ #{when-list\
1551}#)
#f)))
- (#{chi-top-sequence\ 9151}#
- #{body\ 10406}#
- #{r\ 10331}#
- #{w\ 10359}#
- #{s\ 10360}#
+ (#{chi-top-sequence\ 297}#
+ #{body\ 1552}#
+ #{r\ 1477}#
+ #{w\ 1505}#
+ #{s\ 1506}#
'c&e
'(compile load)
- #{mod\ 10361}#)
- (if (memq #{m\ 10333}#
+ #{mod\ 1507}#)
+ (if (memq #{m\ 1479}#
'(c c&e))
- (#{chi-top-sequence\ 9151}#
- #{body\ 10406}#
- #{r\ 10331}#
- #{w\ 10359}#
- #{s\ 10360}#
+ (#{chi-top-sequence\ 297}#
+ #{body\ 1552}#
+ #{r\ 1477}#
+ #{w\ 1505}#
+ #{s\ 1506}#
'c
'(load)
- #{mod\ 10361}#)
- (#{chi-void\ 9175}#)))
- (if (let ((#{t\ 10423}#
+ #{mod\ 1507}#)
+ (#{chi-void\ 321}#)))
+ (if (let ((#{t\ 1569}#
(memq 'compile
- #{when-list\
10405}#)))
- (if #{t\ 10423}#
- #{t\ 10423}#
- (if (eq? #{m\ 10333}#
+ #{when-list\
1551}#)))
+ (if #{t\ 1569}#
+ #{t\ 1569}#
+ (if (eq? #{m\ 1479}#
'c&e)
(memq 'eval
- #{when-list\
10405}#)
+ #{when-list\
1551}#)
#f)))
(begin
- (#{top-level-eval-hook\
8985}#
- (#{chi-top-sequence\
9151}#
- #{body\ 10406}#
- #{r\ 10331}#
- #{w\ 10359}#
- #{s\ 10360}#
+ (#{top-level-eval-hook\
131}#
+ (#{chi-top-sequence\
297}#
+ #{body\ 1552}#
+ #{r\ 1477}#
+ #{w\ 1505}#
+ #{s\ 1506}#
'e
'(eval)
- #{mod\ 10361}#)
- #{mod\ 10361}#)
- (#{chi-void\ 9175}#))
- (#{chi-void\ 9175}#))))))
- #{tmp\ 10394}#)
+ #{mod\ 1507}#)
+ #{mod\ 1507}#)
+ (#{chi-void\ 321}#))
+ (#{chi-void\ 321}#))))))
+ #{tmp\ 1540}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 10393}#)))
+ #{tmp\ 1539}#)))
($sc-dispatch
- #{tmp\ 10393}#
+ #{tmp\ 1539}#
'(any each-any any . each-any))))
- #{e\ 10358}#)
- (if (memv #{type\ 10356}#
+ #{e\ 1504}#)
+ (if (memv #{type\ 1502}#
'(define-syntax-form))
- (let ((#{n\ 10431}#
- (#{id-var-name\ 9133}#
- #{value\ 10357}#
- #{w\ 10359}#))
- (#{r\ 10432}#
- (#{macros-only-env\ 9068}# #{r\ 10331}#)))
- (if (memv #{m\ 10333}# (quote (c)))
- (if (memq (quote compile) #{esew\ 10334}#)
- (let ((#{e\ 10435}#
- (#{chi-install-global\ 9153}#
- #{n\ 10431}#
- (#{chi\ 9161}#
- #{e\ 10358}#
- #{r\ 10432}#
- #{w\ 10359}#
- #{mod\ 10361}#))))
+ (let ((#{n\ 1577}#
+ (#{id-var-name\ 279}#
+ #{value\ 1503}#
+ #{w\ 1505}#))
+ (#{r\ 1578}#
+ (#{macros-only-env\ 214}# #{r\ 1477}#)))
+ (if (memv #{m\ 1479}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 1480}#)
+ (let ((#{e\ 1581}#
+ (#{chi-install-global\ 299}#
+ #{n\ 1577}#
+ (#{chi\ 307}#
+ #{e\ 1504}#
+ #{r\ 1578}#
+ #{w\ 1505}#
+ #{mod\ 1507}#))))
(begin
- (#{top-level-eval-hook\ 8985}#
- #{e\ 10435}#
- #{mod\ 10361}#)
- (if (memq (quote load) #{esew\ 10334}#)
- #{e\ 10435}#
- (#{chi-void\ 9175}#))))
- (if (memq (quote load) #{esew\ 10334}#)
- (#{chi-install-global\ 9153}#
- #{n\ 10431}#
- (#{chi\ 9161}#
- #{e\ 10358}#
- #{r\ 10432}#
- #{w\ 10359}#
- #{mod\ 10361}#))
- (#{chi-void\ 9175}#)))
- (if (memv #{m\ 10333}# (quote (c&e)))
- (let ((#{e\ 10438}#
- (#{chi-install-global\ 9153}#
- #{n\ 10431}#
- (#{chi\ 9161}#
- #{e\ 10358}#
- #{r\ 10432}#
- #{w\ 10359}#
- #{mod\ 10361}#))))
+ (#{top-level-eval-hook\ 131}#
+ #{e\ 1581}#
+ #{mod\ 1507}#)
+ (if (memq (quote load) #{esew\ 1480}#)
+ #{e\ 1581}#
+ (#{chi-void\ 321}#))))
+ (if (memq (quote load) #{esew\ 1480}#)
+ (#{chi-install-global\ 299}#
+ #{n\ 1577}#
+ (#{chi\ 307}#
+ #{e\ 1504}#
+ #{r\ 1578}#
+ #{w\ 1505}#
+ #{mod\ 1507}#))
+ (#{chi-void\ 321}#)))
+ (if (memv #{m\ 1479}# (quote (c&e)))
+ (let ((#{e\ 1584}#
+ (#{chi-install-global\ 299}#
+ #{n\ 1577}#
+ (#{chi\ 307}#
+ #{e\ 1504}#
+ #{r\ 1578}#
+ #{w\ 1505}#
+ #{mod\ 1507}#))))
(begin
- (#{top-level-eval-hook\ 8985}#
- #{e\ 10438}#
- #{mod\ 10361}#)
- #{e\ 10438}#))
+ (#{top-level-eval-hook\ 131}#
+ #{e\ 1584}#
+ #{mod\ 1507}#)
+ #{e\ 1584}#))
(begin
- (if (memq (quote eval) #{esew\ 10334}#)
- (#{top-level-eval-hook\ 8985}#
- (#{chi-install-global\ 9153}#
- #{n\ 10431}#
- (#{chi\ 9161}#
- #{e\ 10358}#
- #{r\ 10432}#
- #{w\ 10359}#
- #{mod\ 10361}#))
- #{mod\ 10361}#))
- (#{chi-void\ 9175}#)))))
- (if (memv #{type\ 10356}# (quote (define-form)))
- (let ((#{n\ 10443}#
- (#{id-var-name\ 9133}#
- #{value\ 10357}#
- #{w\ 10359}#)))
- (let ((#{type\ 10445}#
- (#{binding-type\ 9059}#
- (#{lookup\ 9070}#
- #{n\ 10443}#
- #{r\ 10331}#
- #{mod\ 10361}#))))
- (if (memv #{type\ 10445}#
+ (if (memq (quote eval) #{esew\ 1480}#)
+ (#{top-level-eval-hook\ 131}#
+ (#{chi-install-global\ 299}#
+ #{n\ 1577}#
+ (#{chi\ 307}#
+ #{e\ 1504}#
+ #{r\ 1578}#
+ #{w\ 1505}#
+ #{mod\ 1507}#))
+ #{mod\ 1507}#))
+ (#{chi-void\ 321}#)))))
+ (if (memv #{type\ 1502}# (quote (define-form)))
+ (let ((#{n\ 1589}#
+ (#{id-var-name\ 279}#
+ #{value\ 1503}#
+ #{w\ 1505}#)))
+ (let ((#{type\ 1591}#
+ (#{binding-type\ 205}#
+ (#{lookup\ 216}#
+ #{n\ 1589}#
+ #{r\ 1477}#
+ #{mod\ 1507}#))))
+ (if (memv #{type\ 1591}#
'(global core macro module-ref))
(begin
- (if (if (not (module-local-variable
- (current-module)
- #{n\ 10443}#))
- (current-module)
+ (if (if (memq #{m\ 1479}# (quote (c c&e)))
+ (if (not (module-local-variable
+ (current-module)
+ #{n\ 1589}#))
+ (current-module)
+ #f)
#f)
- (let ((#{old\ 10450}#
+ (let ((#{old\ 1597}#
(module-variable
(current-module)
- #{n\ 10443}#)))
+ #{n\ 1589}#)))
(module-define!
(current-module)
- #{n\ 10443}#
- (if (variable? #{old\ 10450}#)
- (variable-ref #{old\ 10450}#)
+ #{n\ 1589}#
+ (if (variable? #{old\ 1597}#)
+ (variable-ref #{old\ 1597}#)
#f))))
- (let ((#{x\ 10453}#
- (#{build-global-definition\ 9016}#
- #{s\ 10360}#
- #{n\ 10443}#
- (#{chi\ 9161}#
- #{e\ 10358}#
- #{r\ 10331}#
- #{w\ 10359}#
- #{mod\ 10361}#))))
+ (let ((#{x\ 1600}#
+ (#{build-global-definition\ 162}#
+ #{s\ 1506}#
+ #{n\ 1589}#
+ (#{chi\ 307}#
+ #{e\ 1504}#
+ #{r\ 1477}#
+ #{w\ 1505}#
+ #{mod\ 1507}#))))
(begin
- (if (eq? #{m\ 10333}# (quote c&e))
- (#{top-level-eval-hook\ 8985}#
- #{x\ 10453}#
- #{mod\ 10361}#))
- #{x\ 10453}#)))
- (if (memv #{type\ 10445}#
+ (if (eq? #{m\ 1479}# (quote c&e))
+ (#{top-level-eval-hook\ 131}#
+ #{x\ 1600}#
+ #{mod\ 1507}#))
+ #{x\ 1600}#)))
+ (if (memv #{type\ 1591}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 10358}#
- (#{wrap\ 9145}#
- #{value\ 10357}#
- #{w\ 10359}#
- #{mod\ 10361}#))
+ #{e\ 1504}#
+ (#{wrap\ 291}#
+ #{value\ 1503}#
+ #{w\ 1505}#
+ #{mod\ 1507}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 10358}#
- (#{wrap\ 9145}#
- #{value\ 10357}#
- #{w\ 10359}#
- #{mod\ 10361}#))))))
- (let ((#{x\ 10459}#
- (#{chi-expr\ 9163}#
- #{type\ 10356}#
- #{value\ 10357}#
- #{e\ 10358}#
- #{r\ 10331}#
- #{w\ 10359}#
- #{s\ 10360}#
- #{mod\ 10361}#)))
+ #{e\ 1504}#
+ (#{wrap\ 291}#
+ #{value\ 1503}#
+ #{w\ 1505}#
+ #{mod\ 1507}#))))))
+ (let ((#{x\ 1606}#
+ (#{chi-expr\ 309}#
+ #{type\ 1502}#
+ #{value\ 1503}#
+ #{e\ 1504}#
+ #{r\ 1477}#
+ #{w\ 1505}#
+ #{s\ 1506}#
+ #{mod\ 1507}#)))
(begin
- (if (eq? #{m\ 10333}# (quote c&e))
- (#{top-level-eval-hook\ 8985}#
- #{x\ 10459}#
- #{mod\ 10361}#))
- #{x\ 10459}#)))))))))))
- (#{syntax-type\ 9157}#
- (lambda (#{e\ 10460}#
- #{r\ 10461}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{rib\ 10464}#
- #{mod\ 10465}#
- #{for-car?\ 10466}#)
- (if (symbol? #{e\ 10460}#)
- (let ((#{n\ 10478}#
- (#{id-var-name\ 9133}# #{e\ 10460}# #{w\ 10462}#)))
- (let ((#{b\ 10480}#
- (#{lookup\ 9070}#
- #{n\ 10478}#
- #{r\ 10461}#
- #{mod\ 10465}#)))
- (let ((#{type\ 10482}#
- (#{binding-type\ 9059}# #{b\ 10480}#)))
- (if (memv #{type\ 10482}# (quote (lexical)))
+ (if (eq? #{m\ 1479}# (quote c&e))
+ (#{top-level-eval-hook\ 131}#
+ #{x\ 1606}#
+ #{mod\ 1507}#))
+ #{x\ 1606}#)))))))))))
+ (#{syntax-type\ 303}#
+ (lambda (#{e\ 1607}#
+ #{r\ 1608}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{rib\ 1611}#
+ #{mod\ 1612}#
+ #{for-car?\ 1613}#)
+ (if (symbol? #{e\ 1607}#)
+ (let ((#{n\ 1625}#
+ (#{id-var-name\ 279}# #{e\ 1607}# #{w\ 1609}#)))
+ (let ((#{b\ 1627}#
+ (#{lookup\ 216}#
+ #{n\ 1625}#
+ #{r\ 1608}#
+ #{mod\ 1612}#)))
+ (let ((#{type\ 1629}#
+ (#{binding-type\ 205}# #{b\ 1627}#)))
+ (if (memv #{type\ 1629}# (quote (lexical)))
(values
- #{type\ 10482}#
- (#{binding-value\ 9061}# #{b\ 10480}#)
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (if (memv #{type\ 10482}# (quote (global)))
+ #{type\ 1629}#
+ (#{binding-value\ 207}# #{b\ 1627}#)
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (if (memv #{type\ 1629}# (quote (global)))
(values
- #{type\ 10482}#
- #{n\ 10478}#
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (if (memv #{type\ 10482}# (quote (macro)))
- (if #{for-car?\ 10466}#
+ #{type\ 1629}#
+ #{n\ 1625}#
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (if (memv #{type\ 1629}# (quote (macro)))
+ (if #{for-car?\ 1613}#
(values
- #{type\ 10482}#
- (#{binding-value\ 9061}# #{b\ 10480}#)
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (#{syntax-type\ 9157}#
- (#{chi-macro\ 9167}#
- (#{binding-value\ 9061}# #{b\ 10480}#)
- #{e\ 10460}#
- #{r\ 10461}#
- #{w\ 10462}#
- #{rib\ 10464}#
- #{mod\ 10465}#)
- #{r\ 10461}#
+ #{type\ 1629}#
+ (#{binding-value\ 207}# #{b\ 1627}#)
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (#{syntax-type\ 303}#
+ (#{chi-macro\ 313}#
+ (#{binding-value\ 207}# #{b\ 1627}#)
+ #{e\ 1607}#
+ #{r\ 1608}#
+ #{w\ 1609}#
+ #{rib\ 1611}#
+ #{mod\ 1612}#)
+ #{r\ 1608}#
'(())
- #{s\ 10463}#
- #{rib\ 10464}#
- #{mod\ 10465}#
+ #{s\ 1610}#
+ #{rib\ 1611}#
+ #{mod\ 1612}#
#f))
(values
- #{type\ 10482}#
- (#{binding-value\ 9061}# #{b\ 10480}#)
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)))))))
- (if (pair? #{e\ 10460}#)
- (let ((#{first\ 10491}# (car #{e\ 10460}#)))
+ #{type\ 1629}#
+ (#{binding-value\ 207}# #{b\ 1627}#)
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)))))))
+ (if (pair? #{e\ 1607}#)
+ (let ((#{first\ 1638}# (car #{e\ 1607}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 9157}#
- #{first\ 10491}#
- #{r\ 10461}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{rib\ 10464}#
- #{mod\ 10465}#
+ (#{syntax-type\ 303}#
+ #{first\ 1638}#
+ #{r\ 1608}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{rib\ 1611}#
+ #{mod\ 1612}#
#t))
- (lambda (#{ftype\ 10492}#
- #{fval\ 10493}#
- #{fe\ 10494}#
- #{fw\ 10495}#
- #{fs\ 10496}#
- #{fmod\ 10497}#)
- (if (memv #{ftype\ 10492}# (quote (lexical)))
+ (lambda (#{ftype\ 1639}#
+ #{fval\ 1640}#
+ #{fe\ 1641}#
+ #{fw\ 1642}#
+ #{fs\ 1643}#
+ #{fmod\ 1644}#)
+ (if (memv #{ftype\ 1639}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 10493}#
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (if (memv #{ftype\ 10492}# (quote (global)))
+ #{fval\ 1640}#
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (if (memv #{ftype\ 1639}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 9038}#
- #{fval\ 10493}#
- #{w\ 10462}#
- #{fmod\ 10497}#)
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (if (memv #{ftype\ 10492}# (quote (macro)))
- (#{syntax-type\ 9157}#
- (#{chi-macro\ 9167}#
- #{fval\ 10493}#
- #{e\ 10460}#
- #{r\ 10461}#
- #{w\ 10462}#
- #{rib\ 10464}#
- #{mod\ 10465}#)
- #{r\ 10461}#
+ (#{make-syntax-object\ 184}#
+ #{fval\ 1640}#
+ #{w\ 1609}#
+ #{fmod\ 1644}#)
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (if (memv #{ftype\ 1639}# (quote (macro)))
+ (#{syntax-type\ 303}#
+ (#{chi-macro\ 313}#
+ #{fval\ 1640}#
+ #{e\ 1607}#
+ #{r\ 1608}#
+ #{w\ 1609}#
+ #{rib\ 1611}#
+ #{mod\ 1612}#)
+ #{r\ 1608}#
'(())
- #{s\ 10463}#
- #{rib\ 10464}#
- #{mod\ 10465}#
- #{for-car?\ 10466}#)
- (if (memv #{ftype\ 10492}# (quote (module-ref)))
+ #{s\ 1610}#
+ #{rib\ 1611}#
+ #{mod\ 1612}#
+ #{for-car?\ 1613}#)
+ (if (memv #{ftype\ 1639}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 10493}# #{e\ 10460}#))
- (lambda (#{sym\ 10509}# #{mod\ 10510}#)
- (#{syntax-type\ 9157}#
- #{sym\ 10509}#
- #{r\ 10461}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{rib\ 10464}#
- #{mod\ 10510}#
- #{for-car?\ 10466}#)))
- (if (memv #{ftype\ 10492}# (quote (core)))
+ (lambda () (#{fval\ 1640}# #{e\ 1607}#))
+ (lambda (#{sym\ 1656}# #{mod\ 1657}#)
+ (#{syntax-type\ 303}#
+ #{sym\ 1656}#
+ #{r\ 1608}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{rib\ 1611}#
+ #{mod\ 1657}#
+ #{for-car?\ 1613}#)))
+ (if (memv #{ftype\ 1639}# (quote (core)))
(values
'core-form
- #{fval\ 10493}#
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (if (memv #{ftype\ 10492}#
+ #{fval\ 1640}#
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (if (memv #{ftype\ 1639}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 10493}#
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (if (memv #{ftype\ 10492}#
- '(begin))
+ #{fval\ 1640}#
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (if (memv #{ftype\ 1639}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (if (memv #{ftype\ 10492}#
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (if (memv #{ftype\ 1639}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
- (if (memv #{ftype\ 10492}#
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
+ (if (memv #{ftype\ 1639}#
'(define))
- ((lambda (#{tmp\ 10518}#)
- ((lambda (#{tmp\ 10519}#)
- (if (if #{tmp\ 10519}#
- (apply (lambda (#{_\
10523}#
- #{name\
10524}#
- #{val\
10525}#)
- (#{id?\ 9076}#
- #{name\
10524}#))
- #{tmp\ 10519}#)
+ ((lambda (#{tmp\ 1665}#)
+ ((lambda (#{tmp\ 1666}#)
+ (if (if #{tmp\ 1666}#
+ (apply (lambda (#{_\
1670}#
+ #{name\
1671}#
+ #{val\
1672}#)
+ (#{id?\ 222}#
+ #{name\
1671}#))
+ #{tmp\ 1666}#)
#f)
- (apply (lambda (#{_\ 10529}#
- #{name\
10530}#
- #{val\
10531}#)
+ (apply (lambda (#{_\ 1676}#
+ #{name\
1677}#
+ #{val\
1678}#)
(values
'define-form
- #{name\ 10530}#
- #{val\ 10531}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#))
- #{tmp\ 10519}#)
- ((lambda (#{tmp\ 10532}#)
- (if (if #{tmp\ 10532}#
- (apply (lambda
(#{_\ 10538}#
-
#{name\ 10539}#
-
#{args\ 10540}#
-
#{e1\ 10541}#
-
#{e2\ 10542}#)
- (if
(#{id?\ 9076}#
-
#{name\ 10539}#)
-
(#{valid-bound-ids?\ 9139}#
-
(#{lambda-var-list\ 9191}#
-
#{args\ 10540}#))
+ #{name\ 1677}#
+ #{val\ 1678}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#))
+ #{tmp\ 1666}#)
+ ((lambda (#{tmp\ 1679}#)
+ (if (if #{tmp\ 1679}#
+ (apply (lambda
(#{_\ 1685}#
+
#{name\ 1686}#
+
#{args\ 1687}#
+
#{e1\ 1688}#
+
#{e2\ 1689}#)
+ (if
(#{id?\ 222}#
+
#{name\ 1686}#)
+
(#{valid-bound-ids?\ 285}#
+
(#{lambda-var-list\ 337}#
+
#{args\ 1687}#))
#f))
- #{tmp\
10532}#)
+ #{tmp\
1679}#)
#f)
- (apply (lambda (#{_\
10550}#
-
#{name\ 10551}#
-
#{args\ 10552}#
- #{e1\
10553}#
- #{e2\
10554}#)
+ (apply (lambda (#{_\
1697}#
+
#{name\ 1698}#
+
#{args\ 1699}#
+ #{e1\
1700}#
+ #{e2\
1701}#)
(values
'define-form
- (#{wrap\
9145}#
- #{name\
10551}#
- #{w\
10462}#
- #{mod\
10465}#)
-
(#{decorate-source\ 8994}#
+ (#{wrap\
291}#
+ #{name\
1698}#
+ #{w\
1609}#
+ #{mod\
1612}#)
+
(#{decorate-source\ 140}#
(cons
'#(syntax-object
lambda
((top)
@@ -3610,11 +3600,11 @@
(top)
(top)
(top))
-
#("i10545"
-
"i10546"
-
"i10547"
-
"i10548"
-
"i10549"))
+
#("i1692"
+
"i1693"
+
"i1694"
+
"i1695"
+
"i1696"))
#(ribcage
()
()
@@ -3636,12 +3626,12 @@
(top)
(top)
(top))
-
#("i10498"
-
"i10499"
-
"i10500"
-
"i10501"
-
"i10502"
-
"i10503"))
+
#("i1645"
+
"i1646"
+
"i1647"
+
"i1648"
+
"i1649"
+
"i1650"))
#(ribcage
()
()
@@ -3649,7 +3639,7 @@
#(ribcage
#(first)
#((top))
-
#("i10490"))
+
#("i1637"))
#(ribcage
()
()
@@ -3677,13 +3667,13 @@
(top)
(top)
(top))
-
#("i10467"
-
"i10468"
-
"i10469"
-
"i10470"
-
"i10471"
-
"i10472"
-
"i10473"))
+
#("i1614"
+
"i1615"
+
"i1616"
+
"i1617"
+
"i1618"
+
"i1619"
+
"i1620"))
#(ribcage
(lambda-var-list
gen-var
@@ -3921,160 +3911,160 @@
(top)
(top)
(top))
-
("i9190"
-
"i9188"
-
"i9186"
-
"i9184"
-
"i9182"
-
"i9180"
-
"i9178"
-
"i9176"
-
"i9174"
-
"i9172"
-
"i9170"
-
"i9168"
-
"i9166"
-
"i9164"
-
"i9162"
-
"i9160"
-
"i9158"
-
"i9156"
-
"i9154"
-
"i9152"
-
"i9150"
-
"i9148"
-
"i9146"
-
"i9144"
-
"i9142"
-
"i9140"
-
"i9138"
-
"i9136"
-
"i9134"
-
"i9132"
-
"i9130"
-
"i9128"
-
"i9126"
-
"i9124"
-
"i9122"
-
"i9120"
-
"i9119"
-
"i9118"
-
"i9116"
-
"i9115"
-
"i9114"
-
"i9113"
-
"i9112"
-
"i9110"
-
"i9108"
-
"i9106"
-
"i9104"
-
"i9102"
-
"i9100"
-
"i9098"
-
"i9096"
-
"i9093"
-
"i9091"
-
"i9090"
-
"i9089"
-
"i9088"
-
"i9087"
-
"i9086"
-
"i9084"
-
"i9082"
-
"i9080"
-
"i9078"
-
"i9077"
-
"i9075"
-
"i9073"
-
"i9071"
-
"i9069"
-
"i9067"
-
"i9065"
-
"i9063"
-
"i9062"
-
"i9060"
-
"i9058"
-
"i9057"
-
"i9056"
-
"i9054"
-
"i9053"
-
"i9051"
-
"i9049"
-
"i9047"
-
"i9045"
-
"i9043"
-
"i9041"
-
"i9039"
-
"i9037"
-
"i9035"
-
"i9033"
-
"i9031"
-
"i9029"
-
"i9027"
-
"i9025"
-
"i9023"
-
"i9021"
-
"i9019"
-
"i9017"
-
"i9015"
-
"i9013"
-
"i9011"
-
"i9009"
-
"i9007"
-
"i9005"
-
"i9003"
-
"i9001"
-
"i8999"
-
"i8997"
-
"i8995"
-
"i8993"
-
"i8991"
-
"i8989"
-
"i8988"
-
"i8986"
-
"i8984"
-
"i8982"
-
"i8980"
-
"i8978"
-
"i8976"
-
"i8974"
-
"i8972"))
+
("i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i265"
+
"i264"
+
"i262"
+
"i261"
+
"i260"
+
"i259"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i239"
+
"i237"
+
"i236"
+
"i235"
+
"i234"
+
"i233"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i208"
+
"i206"
+
"i204"
+
"i203"
+
"i202"
+
"i200"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"
+
"i169"
+
"i167"
+
"i165"
+
"i163"
+
"i161"
+
"i159"
+
"i157"
+
"i155"
+
"i153"
+
"i151"
+
"i149"
+
"i147"
+
"i145"
+
"i143"
+
"i141"
+
"i139"
+
"i137"
+
"i135"
+
"i134"
+
"i132"
+
"i130"
+
"i128"
+
"i126"
+
"i124"
+
"i122"
+
"i120"
+
"i118"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i8875"
-
"i8873")))
+
("i21"
+
"i19")))
(hygiene
guile))
-
(#{wrap\ 9145}#
-
(cons #{args\ 10552}#
-
(cons #{e1\ 10553}#
-
#{e2\ 10554}#))
-
#{w\ 10462}#
-
#{mod\ 10465}#))
- #{s\
10463}#)
+
(#{wrap\ 291}#
+
(cons #{args\ 1699}#
+
(cons #{e1\ 1700}#
+
#{e2\ 1701}#))
+
#{w\ 1609}#
+
#{mod\ 1612}#))
+ #{s\
1610}#)
'(())
- #{s\ 10463}#
- #{mod\
10465}#))
- #{tmp\ 10532}#)
- ((lambda (#{tmp\
10557}#)
- (if (if #{tmp\
10557}#
- (apply
(lambda (#{_\ 10560}#
-
#{name\ 10561}#)
-
(#{id?\ 9076}#
-
#{name\ 10561}#))
- #{tmp\
10557}#)
+ #{s\ 1610}#
+ #{mod\
1612}#))
+ #{tmp\ 1679}#)
+ ((lambda (#{tmp\
1704}#)
+ (if (if #{tmp\
1704}#
+ (apply
(lambda (#{_\ 1707}#
+
#{name\ 1708}#)
+
(#{id?\ 222}#
+
#{name\ 1708}#))
+ #{tmp\
1704}#)
#f)
- (apply (lambda
(#{_\ 10564}#
-
#{name\ 10565}#)
+ (apply (lambda
(#{_\ 1711}#
+
#{name\ 1712}#)
(values
'define-form
-
(#{wrap\ 9145}#
-
#{name\ 10565}#
- #{w\
10462}#
-
#{mod\ 10465}#)
+
(#{wrap\ 291}#
+
#{name\ 1712}#
+ #{w\
1609}#
+
#{mod\ 1612}#)
'(#(syntax-object
if
((top)
@@ -4083,8 +4073,8 @@
name)
#((top)
(top))
-
#("i10562"
-
"i10563"))
+
#("i1709"
+
"i1710"))
#(ribcage
()
()
@@ -4106,12 +4096,12 @@
(top)
(top)
(top))
-
#("i10498"
-
"i10499"
-
"i10500"
-
"i10501"
-
"i10502"
-
"i10503"))
+
#("i1645"
+
"i1646"
+
"i1647"
+
"i1648"
+
"i1649"
+
"i1650"))
#(ribcage
()
()
@@ -4119,7 +4109,7 @@
#(ribcage
#(first)
#((top))
-
#("i10490"))
+
#("i1637"))
#(ribcage
()
()
@@ -4147,13 +4137,13 @@
(top)
(top)
(top))
-
#("i10467"
-
"i10468"
-
"i10469"
-
"i10470"
-
"i10471"
-
"i10472"
-
"i10473"))
+
#("i1614"
+
"i1615"
+
"i1616"
+
"i1617"
+
"i1618"
+
"i1619"
+
"i1620"))
#(ribcage
(lambda-var-list
gen-var
@@ -4391,131 +4381,131 @@
(top)
(top)
(top))
-
("i9190"
-
"i9188"
-
"i9186"
-
"i9184"
-
"i9182"
-
"i9180"
-
"i9178"
-
"i9176"
-
"i9174"
-
"i9172"
-
"i9170"
-
"i9168"
-
"i9166"
-
"i9164"
-
"i9162"
-
"i9160"
-
"i9158"
-
"i9156"
-
"i9154"
-
"i9152"
-
"i9150"
-
"i9148"
-
"i9146"
-
"i9144"
-
"i9142"
-
"i9140"
-
"i9138"
-
"i9136"
-
"i9134"
-
"i9132"
-
"i9130"
-
"i9128"
-
"i9126"
-
"i9124"
-
"i9122"
-
"i9120"
-
"i9119"
-
"i9118"
-
"i9116"
-
"i9115"
-
"i9114"
-
"i9113"
-
"i9112"
-
"i9110"
-
"i9108"
-
"i9106"
-
"i9104"
-
"i9102"
-
"i9100"
-
"i9098"
-
"i9096"
-
"i9093"
-
"i9091"
-
"i9090"
-
"i9089"
-
"i9088"
-
"i9087"
-
"i9086"
-
"i9084"
-
"i9082"
-
"i9080"
-
"i9078"
-
"i9077"
-
"i9075"
-
"i9073"
-
"i9071"
-
"i9069"
-
"i9067"
-
"i9065"
-
"i9063"
-
"i9062"
-
"i9060"
-
"i9058"
-
"i9057"
-
"i9056"
-
"i9054"
-
"i9053"
-
"i9051"
-
"i9049"
-
"i9047"
-
"i9045"
-
"i9043"
-
"i9041"
-
"i9039"
-
"i9037"
-
"i9035"
-
"i9033"
-
"i9031"
-
"i9029"
-
"i9027"
-
"i9025"
-
"i9023"
-
"i9021"
-
"i9019"
-
"i9017"
-
"i9015"
-
"i9013"
-
"i9011"
-
"i9009"
-
"i9007"
-
"i9005"
-
"i9003"
-
"i9001"
-
"i8999"
-
"i8997"
-
"i8995"
-
"i8993"
-
"i8991"
-
"i8989"
-
"i8988"
-
"i8986"
-
"i8984"
-
"i8982"
-
"i8980"
-
"i8978"
-
"i8976"
-
"i8974"
-
"i8972"))
+
("i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i265"
+
"i264"
+
"i262"
+
"i261"
+
"i260"
+
"i259"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i239"
+
"i237"
+
"i236"
+
"i235"
+
"i234"
+
"i233"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i208"
+
"i206"
+
"i204"
+
"i203"
+
"i202"
+
"i200"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"
+
"i169"
+
"i167"
+
"i165"
+
"i163"
+
"i161"
+
"i159"
+
"i157"
+
"i155"
+
"i153"
+
"i151"
+
"i149"
+
"i147"
+
"i145"
+
"i143"
+
"i141"
+
"i139"
+
"i137"
+
"i135"
+
"i134"
+
"i132"
+
"i130"
+
"i128"
+
"i126"
+
"i124"
+
"i122"
+
"i120"
+
"i118"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i8875"
-
"i8873")))
+
("i21"
+
"i19")))
(hygiene
guile))
#(syntax-object
@@ -4526,8 +4516,8 @@
name)
#((top)
(top))
-
#("i10562"
-
"i10563"))
+
#("i1709"
+
"i1710"))
#(ribcage
()
()
@@ -4549,12 +4539,12 @@
(top)
(top)
(top))
-
#("i10498"
-
"i10499"
-
"i10500"
-
"i10501"
-
"i10502"
-
"i10503"))
+
#("i1645"
+
"i1646"
+
"i1647"
+
"i1648"
+
"i1649"
+
"i1650"))
#(ribcage
()
()
@@ -4562,7 +4552,7 @@
#(ribcage
#(first)
#((top))
-
#("i10490"))
+
#("i1637"))
#(ribcage
()
()
@@ -4590,13 +4580,13 @@
(top)
(top)
(top))
-
#("i10467"
-
"i10468"
-
"i10469"
-
"i10470"
-
"i10471"
-
"i10472"
-
"i10473"))
+
#("i1614"
+
"i1615"
+
"i1616"
+
"i1617"
+
"i1618"
+
"i1619"
+
"i1620"))
#(ribcage
(lambda-var-list
gen-var
@@ -4834,131 +4824,131 @@
(top)
(top)
(top))
-
("i9190"
-
"i9188"
-
"i9186"
-
"i9184"
-
"i9182"
-
"i9180"
-
"i9178"
-
"i9176"
-
"i9174"
-
"i9172"
-
"i9170"
-
"i9168"
-
"i9166"
-
"i9164"
-
"i9162"
-
"i9160"
-
"i9158"
-
"i9156"
-
"i9154"
-
"i9152"
-
"i9150"
-
"i9148"
-
"i9146"
-
"i9144"
-
"i9142"
-
"i9140"
-
"i9138"
-
"i9136"
-
"i9134"
-
"i9132"
-
"i9130"
-
"i9128"
-
"i9126"
-
"i9124"
-
"i9122"
-
"i9120"
-
"i9119"
-
"i9118"
-
"i9116"
-
"i9115"
-
"i9114"
-
"i9113"
-
"i9112"
-
"i9110"
-
"i9108"
-
"i9106"
-
"i9104"
-
"i9102"
-
"i9100"
-
"i9098"
-
"i9096"
-
"i9093"
-
"i9091"
-
"i9090"
-
"i9089"
-
"i9088"
-
"i9087"
-
"i9086"
-
"i9084"
-
"i9082"
-
"i9080"
-
"i9078"
-
"i9077"
-
"i9075"
-
"i9073"
-
"i9071"
-
"i9069"
-
"i9067"
-
"i9065"
-
"i9063"
-
"i9062"
-
"i9060"
-
"i9058"
-
"i9057"
-
"i9056"
-
"i9054"
-
"i9053"
-
"i9051"
-
"i9049"
-
"i9047"
-
"i9045"
-
"i9043"
-
"i9041"
-
"i9039"
-
"i9037"
-
"i9035"
-
"i9033"
-
"i9031"
-
"i9029"
-
"i9027"
-
"i9025"
-
"i9023"
-
"i9021"
-
"i9019"
-
"i9017"
-
"i9015"
-
"i9013"
-
"i9011"
-
"i9009"
-
"i9007"
-
"i9005"
-
"i9003"
-
"i9001"
-
"i8999"
-
"i8997"
-
"i8995"
-
"i8993"
-
"i8991"
-
"i8989"
-
"i8988"
-
"i8986"
-
"i8984"
-
"i8982"
-
"i8980"
-
"i8978"
-
"i8976"
-
"i8974"
-
"i8972"))
+
("i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i265"
+
"i264"
+
"i262"
+
"i261"
+
"i260"
+
"i259"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i239"
+
"i237"
+
"i236"
+
"i235"
+
"i234"
+
"i233"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i208"
+
"i206"
+
"i204"
+
"i203"
+
"i202"
+
"i200"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"
+
"i169"
+
"i167"
+
"i165"
+
"i163"
+
"i161"
+
"i159"
+
"i157"
+
"i155"
+
"i153"
+
"i151"
+
"i149"
+
"i147"
+
"i145"
+
"i143"
+
"i141"
+
"i139"
+
"i137"
+
"i135"
+
"i134"
+
"i132"
+
"i130"
+
"i128"
+
"i126"
+
"i124"
+
"i122"
+
"i120"
+
"i118"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i8875"
-
"i8873")))
+
("i21"
+
"i19")))
(hygiene
guile))
#(syntax-object
@@ -4969,8 +4959,8 @@
name)
#((top)
(top))
-
#("i10562"
-
"i10563"))
+
#("i1709"
+
"i1710"))
#(ribcage
()
()
@@ -4992,12 +4982,12 @@
(top)
(top)
(top))
-
#("i10498"
-
"i10499"
-
"i10500"
-
"i10501"
-
"i10502"
-
"i10503"))
+
#("i1645"
+
"i1646"
+
"i1647"
+
"i1648"
+
"i1649"
+
"i1650"))
#(ribcage
()
()
@@ -5005,7 +4995,7 @@
#(ribcage
#(first)
#((top))
-
#("i10490"))
+
#("i1637"))
#(ribcage
()
()
@@ -5033,13 +5023,13 @@
(top)
(top)
(top))
-
#("i10467"
-
"i10468"
-
"i10469"
-
"i10470"
-
"i10471"
-
"i10472"
-
"i10473"))
+
#("i1614"
+
"i1615"
+
"i1616"
+
"i1617"
+
"i1618"
+
"i1619"
+
"i1620"))
#(ribcage
(lambda-var-list
gen-var
@@ -5277,232 +5267,232 @@
(top)
(top)
(top))
-
("i9190"
-
"i9188"
-
"i9186"
-
"i9184"
-
"i9182"
-
"i9180"
-
"i9178"
-
"i9176"
-
"i9174"
-
"i9172"
-
"i9170"
-
"i9168"
-
"i9166"
-
"i9164"
-
"i9162"
-
"i9160"
-
"i9158"
-
"i9156"
-
"i9154"
-
"i9152"
-
"i9150"
-
"i9148"
-
"i9146"
-
"i9144"
-
"i9142"
-
"i9140"
-
"i9138"
-
"i9136"
-
"i9134"
-
"i9132"
-
"i9130"
-
"i9128"
-
"i9126"
-
"i9124"
-
"i9122"
-
"i9120"
-
"i9119"
-
"i9118"
-
"i9116"
-
"i9115"
-
"i9114"
-
"i9113"
-
"i9112"
-
"i9110"
-
"i9108"
-
"i9106"
-
"i9104"
-
"i9102"
-
"i9100"
-
"i9098"
-
"i9096"
-
"i9093"
-
"i9091"
-
"i9090"
-
"i9089"
-
"i9088"
-
"i9087"
-
"i9086"
-
"i9084"
-
"i9082"
-
"i9080"
-
"i9078"
-
"i9077"
-
"i9075"
-
"i9073"
-
"i9071"
-
"i9069"
-
"i9067"
-
"i9065"
-
"i9063"
-
"i9062"
-
"i9060"
-
"i9058"
-
"i9057"
-
"i9056"
-
"i9054"
-
"i9053"
-
"i9051"
-
"i9049"
-
"i9047"
-
"i9045"
-
"i9043"
-
"i9041"
-
"i9039"
-
"i9037"
-
"i9035"
-
"i9033"
-
"i9031"
-
"i9029"
-
"i9027"
-
"i9025"
-
"i9023"
-
"i9021"
-
"i9019"
-
"i9017"
-
"i9015"
-
"i9013"
-
"i9011"
-
"i9009"
-
"i9007"
-
"i9005"
-
"i9003"
-
"i9001"
-
"i8999"
-
"i8997"
-
"i8995"
-
"i8993"
-
"i8991"
-
"i8989"
-
"i8988"
-
"i8986"
-
"i8984"
-
"i8982"
-
"i8980"
-
"i8978"
-
"i8976"
-
"i8974"
-
"i8972"))
+
("i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i265"
+
"i264"
+
"i262"
+
"i261"
+
"i260"
+
"i259"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i239"
+
"i237"
+
"i236"
+
"i235"
+
"i234"
+
"i233"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i208"
+
"i206"
+
"i204"
+
"i203"
+
"i202"
+
"i200"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"
+
"i169"
+
"i167"
+
"i165"
+
"i163"
+
"i161"
+
"i159"
+
"i157"
+
"i155"
+
"i153"
+
"i151"
+
"i149"
+
"i147"
+
"i145"
+
"i143"
+
"i141"
+
"i139"
+
"i137"
+
"i135"
+
"i134"
+
"i132"
+
"i130"
+
"i128"
+
"i126"
+
"i124"
+
"i122"
+
"i120"
+
"i118"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i8875"
-
"i8873")))
+
("i21"
+
"i19")))
(hygiene
guile)))
'(())
- #{s\
10463}#
- #{mod\
10465}#))
- #{tmp\
10557}#)
+ #{s\
1610}#
+ #{mod\
1612}#))
+ #{tmp\
1704}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\
10518}#)))
+ #{tmp\ 1665}#)))
($sc-dispatch
- #{tmp\ 10518}#
+ #{tmp\ 1665}#
'(any any)))))
($sc-dispatch
- #{tmp\ 10518}#
+ #{tmp\ 1665}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 10518}#
+ #{tmp\ 1665}#
'(any any any))))
- #{e\ 10460}#)
- (if (memv #{ftype\ 10492}#
+ #{e\ 1607}#)
+ (if (memv #{ftype\ 1639}#
'(define-syntax))
- ((lambda (#{tmp\ 10568}#)
- ((lambda (#{tmp\ 10569}#)
- (if (if #{tmp\ 10569}#
- (apply (lambda (#{_\
10573}#
-
#{name\ 10574}#
-
#{val\ 10575}#)
- (#{id?\
9076}#
- #{name\
10574}#))
- #{tmp\ 10569}#)
+ ((lambda (#{tmp\ 1715}#)
+ ((lambda (#{tmp\ 1716}#)
+ (if (if #{tmp\ 1716}#
+ (apply (lambda (#{_\
1720}#
+
#{name\ 1721}#
+
#{val\ 1722}#)
+ (#{id?\ 222}#
+ #{name\
1721}#))
+ #{tmp\ 1716}#)
#f)
- (apply (lambda (#{_\
10579}#
- #{name\
10580}#
- #{val\
10581}#)
+ (apply (lambda (#{_\
1726}#
+ #{name\
1727}#
+ #{val\
1728}#)
(values
'define-syntax-form
- #{name\ 10580}#
- #{val\ 10581}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\
10465}#))
- #{tmp\ 10569}#)
+ #{name\ 1727}#
+ #{val\ 1728}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#))
+ #{tmp\ 1716}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 10568}#)))
+ #{tmp\ 1715}#)))
($sc-dispatch
- #{tmp\ 10568}#
+ #{tmp\ 1715}#
'(any any any))))
- #{e\ 10460}#)
+ #{e\ 1607}#)
(values
'call
#f
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#))))))))))))))
- (if (#{syntax-object?\ 9040}# #{e\ 10460}#)
- (#{syntax-type\ 9157}#
- (#{syntax-object-expression\ 9042}# #{e\ 10460}#)
- #{r\ 10461}#
- (#{join-wraps\ 9127}#
- #{w\ 10462}#
- (#{syntax-object-wrap\ 9044}# #{e\ 10460}#))
- #{s\ 10463}#
- #{rib\ 10464}#
- (let ((#{t\ 10587}#
- (#{syntax-object-module\ 9046}# #{e\ 10460}#)))
- (if #{t\ 10587}# #{t\ 10587}# #{mod\ 10465}#))
- #{for-car?\ 10466}#)
- (if (self-evaluating? #{e\ 10460}#)
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#))))))))))))))
+ (if (#{syntax-object?\ 186}# #{e\ 1607}#)
+ (#{syntax-type\ 303}#
+ (#{syntax-object-expression\ 188}# #{e\ 1607}#)
+ #{r\ 1608}#
+ (#{join-wraps\ 273}#
+ #{w\ 1609}#
+ (#{syntax-object-wrap\ 190}# #{e\ 1607}#))
+ #{s\ 1610}#
+ #{rib\ 1611}#
+ (let ((#{t\ 1734}#
+ (#{syntax-object-module\ 192}# #{e\ 1607}#)))
+ (if #{t\ 1734}# #{t\ 1734}# #{mod\ 1612}#))
+ #{for-car?\ 1613}#)
+ (if (self-evaluating? #{e\ 1607}#)
(values
'constant
#f
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)
(values
'other
#f
- #{e\ 10460}#
- #{w\ 10462}#
- #{s\ 10463}#
- #{mod\ 10465}#)))))))
- (#{chi-when-list\ 9155}#
- (lambda (#{e\ 10592}# #{when-list\ 10593}# #{w\ 10594}#)
- (letrec ((#{f\ 10601}#
- (lambda (#{when-list\ 10602}# #{situations\ 10603}#)
- (if (null? #{when-list\ 10602}#)
- #{situations\ 10603}#
- (#{f\ 10601}#
- (cdr #{when-list\ 10602}#)
- (cons (let ((#{x\ 10605}#
- (car #{when-list\ 10602}#)))
- (if (#{free-id=?\ 9135}#
- #{x\ 10605}#
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1612}#)))))))
+ (#{chi-when-list\ 301}#
+ (lambda (#{e\ 1739}# #{when-list\ 1740}# #{w\ 1741}#)
+ (letrec ((#{f\ 1748}#
+ (lambda (#{when-list\ 1749}# #{situations\ 1750}#)
+ (if (null? #{when-list\ 1749}#)
+ #{situations\ 1750}#
+ (#{f\ 1748}#
+ (cdr #{when-list\ 1749}#)
+ (cons (let ((#{x\ 1752}#
+ (car #{when-list\ 1749}#)))
+ (if (#{free-id=?\ 281}#
+ #{x\ 1752}#
'#(syntax-object
compile
((top)
@@ -5512,21 +5502,17 @@
#(ribcage
#(x)
#((top))
- #("i10604"))
+ #("i1751"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i10598"
- "i10599"
- "i10600"))
+ #("i1745" "i1746" "i1747"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i10595"
- "i10596"
- "i10597"))
+ #("i1742" "i1743" "i1744"))
#(ribcage
(lambda-var-list
gen-var
@@ -5764,132 +5750,132 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
- "i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+ "i118"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i8875" "i8873")))
+ ("i21" "i19")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 9135}#
- #{x\ 10605}#
+ (if (#{free-id=?\ 281}#
+ #{x\ 1752}#
'#(syntax-object
load
((top)
@@ -5899,21 +5885,21 @@
#(ribcage
#(x)
#((top))
- #("i10604"))
+ #("i1751"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i10598"
- "i10599"
- "i10600"))
+ #("i1745"
+ "i1746"
+ "i1747"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i10595"
- "i10596"
- "i10597"))
+ #("i1742"
+ "i1743"
+ "i1744"))
#(ribcage
(lambda-var-list
gen-var
@@ -6151,133 +6137,133 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
- "i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+ "i118"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i8875" "i8873")))
+ ("i21" "i19")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 9135}#
- #{x\ 10605}#
+ (if (#{free-id=?\ 281}#
+ #{x\ 1752}#
'#(syntax-object
eval
((top)
@@ -6287,23 +6273,23 @@
#(ribcage
#(x)
#((top))
- #("i10604"))
+ #("i1751"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i10598"
- "i10599"
- "i10600"))
+ #("i1745"
+ "i1746"
+ "i1747"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i10595"
- "i10596"
- "i10597"))
+ #("i1742"
+ "i1743"
+ "i1744"))
#(ribcage
(lambda-var-list
gen-var
@@ -6541,1044 +6527,1016 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
- "i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+ "i118"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i8875" "i8873")))
+ ("i21" "i19")))
(hygiene guile)))
'eval
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 10592}#
- (#{wrap\ 9145}#
- #{x\ 10605}#
- #{w\ 10594}#
+ #{e\ 1739}#
+ (#{wrap\ 291}#
+ #{x\ 1752}#
+ #{w\ 1741}#
#f))))))
- #{situations\ 10603}#))))))
- (#{f\ 10601}# #{when-list\ 10593}# (quote ())))))
- (#{chi-install-global\ 9153}#
- (lambda (#{name\ 10613}# #{e\ 10614}#)
- (#{build-global-definition\ 9016}#
+ #{situations\ 1750}#))))))
+ (#{f\ 1748}# #{when-list\ 1740}# (quote ())))))
+ (#{chi-install-global\ 299}#
+ (lambda (#{name\ 1760}# #{e\ 1761}#)
+ (#{build-global-definition\ 162}#
#f
- #{name\ 10613}#
- (#{build-application\ 8998}#
+ #{name\ 1760}#
+ (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}#
+ (#{build-primref\ 170}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 9026}# #f #{name\ 10613}#)
- (#{build-data\ 9026}# #f (quote macro))
- (#{build-application\ 8998}#
+ (list (#{build-data\ 172}# #f #{name\ 1760}#)
+ (#{build-data\ 172}# #f (quote macro))
+ (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}# #f (quote cons))
- (list #{e\ 10614}#
- (#{build-application\ 8998}#
+ (#{build-primref\ 170}# #f (quote cons))
+ (list #{e\ 1761}#
+ (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}#
+ (#{build-primref\ 170}#
#f
'module-name)
- (list (#{build-application\ 8998}#
+ (list (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}#
+ (#{build-primref\ 170}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 9151}#
- (lambda (#{body\ 10628}#
- #{r\ 10629}#
- #{w\ 10630}#
- #{s\ 10631}#
- #{m\ 10632}#
- #{esew\ 10633}#
- #{mod\ 10634}#)
- (#{build-sequence\ 9028}#
- #{s\ 10631}#
- (letrec ((#{dobody\ 10651}#
- (lambda (#{body\ 10652}#
- #{r\ 10653}#
- #{w\ 10654}#
- #{m\ 10655}#
- #{esew\ 10656}#
- #{mod\ 10657}#
- #{module\ 10658}#
- #{out\ 10659}#)
- (if (null? #{body\ 10652}#)
- (reverse #{out\ 10659}#)
- (let ((#{first\ 10662}#
- (#{chi-top\ 9159}#
- (car #{body\ 10652}#)
- #{r\ 10653}#
- #{w\ 10654}#
- #{m\ 10655}#
- #{esew\ 10656}#
- #{mod\ 10657}#)))
- (let ((#{new-module\ 10664}#
+ (#{chi-top-sequence\ 297}#
+ (lambda (#{body\ 1775}#
+ #{r\ 1776}#
+ #{w\ 1777}#
+ #{s\ 1778}#
+ #{m\ 1779}#
+ #{esew\ 1780}#
+ #{mod\ 1781}#)
+ (#{build-sequence\ 174}#
+ #{s\ 1778}#
+ (letrec ((#{dobody\ 1798}#
+ (lambda (#{body\ 1799}#
+ #{r\ 1800}#
+ #{w\ 1801}#
+ #{m\ 1802}#
+ #{esew\ 1803}#
+ #{mod\ 1804}#
+ #{module\ 1805}#
+ #{out\ 1806}#)
+ (if (null? #{body\ 1799}#)
+ (reverse #{out\ 1806}#)
+ (let ((#{first\ 1809}#
+ (#{chi-top\ 305}#
+ (car #{body\ 1799}#)
+ #{r\ 1800}#
+ #{w\ 1801}#
+ #{m\ 1802}#
+ #{esew\ 1803}#
+ #{mod\ 1804}#)))
+ (let ((#{new-module\ 1811}#
(current-module)))
- (#{dobody\ 10651}#
- (cdr #{body\ 10652}#)
- #{r\ 10653}#
- #{w\ 10654}#
- #{m\ 10655}#
- #{esew\ 10656}#
- (if (eq? #{module\ 10658}#
- #{new-module\ 10664}#)
- #{mod\ 10657}#
+ (#{dobody\ 1798}#
+ (cdr #{body\ 1799}#)
+ #{r\ 1800}#
+ #{w\ 1801}#
+ #{m\ 1802}#
+ #{esew\ 1803}#
+ (if (eq? #{module\ 1805}#
+ #{new-module\ 1811}#)
+ #{mod\ 1804}#
(cons 'hygiene
(module-name
- #{new-module\ 10664}#)))
- #{new-module\ 10664}#
- (cons #{first\ 10662}#
- #{out\ 10659}#))))))))
- (#{dobody\ 10651}#
- #{body\ 10628}#
- #{r\ 10629}#
- #{w\ 10630}#
- #{m\ 10632}#
- #{esew\ 10633}#
- #{mod\ 10634}#
+ #{new-module\ 1811}#)))
+ #{new-module\ 1811}#
+ (cons #{first\ 1809}#
+ #{out\ 1806}#))))))))
+ (#{dobody\ 1798}#
+ #{body\ 1775}#
+ #{r\ 1776}#
+ #{w\ 1777}#
+ #{m\ 1779}#
+ #{esew\ 1780}#
+ #{mod\ 1781}#
(current-module)
'())))))
- (#{chi-sequence\ 9149}#
- (lambda (#{body\ 10665}#
- #{r\ 10666}#
- #{w\ 10667}#
- #{s\ 10668}#
- #{mod\ 10669}#)
- (#{build-sequence\ 9028}#
- #{s\ 10668}#
- (letrec ((#{dobody\ 10680}#
- (lambda (#{body\ 10681}#
- #{r\ 10682}#
- #{w\ 10683}#
- #{mod\ 10684}#)
- (if (null? #{body\ 10681}#)
+ (#{chi-sequence\ 295}#
+ (lambda (#{body\ 1812}#
+ #{r\ 1813}#
+ #{w\ 1814}#
+ #{s\ 1815}#
+ #{mod\ 1816}#)
+ (#{build-sequence\ 174}#
+ #{s\ 1815}#
+ (letrec ((#{dobody\ 1827}#
+ (lambda (#{body\ 1828}#
+ #{r\ 1829}#
+ #{w\ 1830}#
+ #{mod\ 1831}#)
+ (if (null? #{body\ 1828}#)
'()
- (let ((#{first\ 10686}#
- (#{chi\ 9161}#
- (car #{body\ 10681}#)
- #{r\ 10682}#
- #{w\ 10683}#
- #{mod\ 10684}#)))
- (cons #{first\ 10686}#
- (#{dobody\ 10680}#
- (cdr #{body\ 10681}#)
- #{r\ 10682}#
- #{w\ 10683}#
- #{mod\ 10684}#)))))))
- (#{dobody\ 10680}#
- #{body\ 10665}#
- #{r\ 10666}#
- #{w\ 10667}#
- #{mod\ 10669}#)))))
- (#{source-wrap\ 9147}#
- (lambda (#{x\ 10687}#
- #{w\ 10688}#
- #{s\ 10689}#
- #{defmod\ 10690}#)
- (#{wrap\ 9145}#
- (#{decorate-source\ 8994}#
- #{x\ 10687}#
- #{s\ 10689}#)
- #{w\ 10688}#
- #{defmod\ 10690}#)))
- (#{wrap\ 9145}#
- (lambda (#{x\ 10695}# #{w\ 10696}# #{defmod\ 10697}#)
- (if (if (null? (#{wrap-marks\ 9083}# #{w\ 10696}#))
- (null? (#{wrap-subst\ 9085}# #{w\ 10696}#))
+ (let ((#{first\ 1833}#
+ (#{chi\ 307}#
+ (car #{body\ 1828}#)
+ #{r\ 1829}#
+ #{w\ 1830}#
+ #{mod\ 1831}#)))
+ (cons #{first\ 1833}#
+ (#{dobody\ 1827}#
+ (cdr #{body\ 1828}#)
+ #{r\ 1829}#
+ #{w\ 1830}#
+ #{mod\ 1831}#)))))))
+ (#{dobody\ 1827}#
+ #{body\ 1812}#
+ #{r\ 1813}#
+ #{w\ 1814}#
+ #{mod\ 1816}#)))))
+ (#{source-wrap\ 293}#
+ (lambda (#{x\ 1834}#
+ #{w\ 1835}#
+ #{s\ 1836}#
+ #{defmod\ 1837}#)
+ (#{wrap\ 291}#
+ (#{decorate-source\ 140}#
+ #{x\ 1834}#
+ #{s\ 1836}#)
+ #{w\ 1835}#
+ #{defmod\ 1837}#)))
+ (#{wrap\ 291}#
+ (lambda (#{x\ 1842}# #{w\ 1843}# #{defmod\ 1844}#)
+ (if (if (null? (#{wrap-marks\ 229}# #{w\ 1843}#))
+ (null? (#{wrap-subst\ 231}# #{w\ 1843}#))
#f)
- #{x\ 10695}#
- (if (#{syntax-object?\ 9040}# #{x\ 10695}#)
- (#{make-syntax-object\ 9038}#
- (#{syntax-object-expression\ 9042}# #{x\ 10695}#)
- (#{join-wraps\ 9127}#
- #{w\ 10696}#
- (#{syntax-object-wrap\ 9044}# #{x\ 10695}#))
- (#{syntax-object-module\ 9046}# #{x\ 10695}#))
- (if (null? #{x\ 10695}#)
- #{x\ 10695}#
- (#{make-syntax-object\ 9038}#
- #{x\ 10695}#
- #{w\ 10696}#
- #{defmod\ 10697}#))))))
- (#{bound-id-member?\ 9143}#
- (lambda (#{x\ 10710}# #{list\ 10711}#)
- (if (not (null? #{list\ 10711}#))
- (let ((#{t\ 10718}#
- (#{bound-id=?\ 9137}#
- #{x\ 10710}#
- (car #{list\ 10711}#))))
- (if #{t\ 10718}#
- #{t\ 10718}#
- (#{bound-id-member?\ 9143}#
- #{x\ 10710}#
- (cdr #{list\ 10711}#))))
+ #{x\ 1842}#
+ (if (#{syntax-object?\ 186}# #{x\ 1842}#)
+ (#{make-syntax-object\ 184}#
+ (#{syntax-object-expression\ 188}# #{x\ 1842}#)
+ (#{join-wraps\ 273}#
+ #{w\ 1843}#
+ (#{syntax-object-wrap\ 190}# #{x\ 1842}#))
+ (#{syntax-object-module\ 192}# #{x\ 1842}#))
+ (if (null? #{x\ 1842}#)
+ #{x\ 1842}#
+ (#{make-syntax-object\ 184}#
+ #{x\ 1842}#
+ #{w\ 1843}#
+ #{defmod\ 1844}#))))))
+ (#{bound-id-member?\ 289}#
+ (lambda (#{x\ 1857}# #{list\ 1858}#)
+ (if (not (null? #{list\ 1858}#))
+ (let ((#{t\ 1865}#
+ (#{bound-id=?\ 283}#
+ #{x\ 1857}#
+ (car #{list\ 1858}#))))
+ (if #{t\ 1865}#
+ #{t\ 1865}#
+ (#{bound-id-member?\ 289}#
+ #{x\ 1857}#
+ (cdr #{list\ 1858}#))))
#f)))
- (#{distinct-bound-ids?\ 9141}#
- (lambda (#{ids\ 10720}#)
- (letrec ((#{distinct?\ 10724}#
- (lambda (#{ids\ 10725}#)
- (let ((#{t\ 10728}# (null? #{ids\ 10725}#)))
- (if #{t\ 10728}#
- #{t\ 10728}#
- (if (not (#{bound-id-member?\ 9143}#
- (car #{ids\ 10725}#)
- (cdr #{ids\ 10725}#)))
- (#{distinct?\ 10724}# (cdr #{ids\ 10725}#))
+ (#{distinct-bound-ids?\ 287}#
+ (lambda (#{ids\ 1867}#)
+ (letrec ((#{distinct?\ 1871}#
+ (lambda (#{ids\ 1872}#)
+ (let ((#{t\ 1875}# (null? #{ids\ 1872}#)))
+ (if #{t\ 1875}#
+ #{t\ 1875}#
+ (if (not (#{bound-id-member?\ 289}#
+ (car #{ids\ 1872}#)
+ (cdr #{ids\ 1872}#)))
+ (#{distinct?\ 1871}# (cdr #{ids\ 1872}#))
#f))))))
- (#{distinct?\ 10724}# #{ids\ 10720}#))))
- (#{valid-bound-ids?\ 9139}#
- (lambda (#{ids\ 10732}#)
- (if (letrec ((#{all-ids?\ 10737}#
- (lambda (#{ids\ 10738}#)
- (let ((#{t\ 10741}# (null? #{ids\ 10738}#)))
- (if #{t\ 10741}#
- #{t\ 10741}#
- (if (#{id?\ 9076}# (car #{ids\ 10738}#))
- (#{all-ids?\ 10737}#
- (cdr #{ids\ 10738}#))
+ (#{distinct?\ 1871}# #{ids\ 1867}#))))
+ (#{valid-bound-ids?\ 285}#
+ (lambda (#{ids\ 1879}#)
+ (if (letrec ((#{all-ids?\ 1884}#
+ (lambda (#{ids\ 1885}#)
+ (let ((#{t\ 1888}# (null? #{ids\ 1885}#)))
+ (if #{t\ 1888}#
+ #{t\ 1888}#
+ (if (#{id?\ 222}# (car #{ids\ 1885}#))
+ (#{all-ids?\ 1884}# (cdr #{ids\ 1885}#))
#f))))))
- (#{all-ids?\ 10737}# #{ids\ 10732}#))
- (#{distinct-bound-ids?\ 9141}# #{ids\ 10732}#)
+ (#{all-ids?\ 1884}# #{ids\ 1879}#))
+ (#{distinct-bound-ids?\ 287}# #{ids\ 1879}#)
#f)))
- (#{bound-id=?\ 9137}#
- (lambda (#{i\ 10746}# #{j\ 10747}#)
- (if (if (#{syntax-object?\ 9040}# #{i\ 10746}#)
- (#{syntax-object?\ 9040}# #{j\ 10747}#)
+ (#{bound-id=?\ 283}#
+ (lambda (#{i\ 1893}# #{j\ 1894}#)
+ (if (if (#{syntax-object?\ 186}# #{i\ 1893}#)
+ (#{syntax-object?\ 186}# #{j\ 1894}#)
#f)
- (if (eq? (#{syntax-object-expression\ 9042}# #{i\ 10746}#)
- (#{syntax-object-expression\ 9042}# #{j\ 10747}#))
- (#{same-marks?\ 9131}#
- (#{wrap-marks\ 9083}#
- (#{syntax-object-wrap\ 9044}# #{i\ 10746}#))
- (#{wrap-marks\ 9083}#
- (#{syntax-object-wrap\ 9044}# #{j\ 10747}#)))
+ (if (eq? (#{syntax-object-expression\ 188}# #{i\ 1893}#)
+ (#{syntax-object-expression\ 188}# #{j\ 1894}#))
+ (#{same-marks?\ 277}#
+ (#{wrap-marks\ 229}#
+ (#{syntax-object-wrap\ 190}# #{i\ 1893}#))
+ (#{wrap-marks\ 229}#
+ (#{syntax-object-wrap\ 190}# #{j\ 1894}#)))
#f)
- (eq? #{i\ 10746}# #{j\ 10747}#))))
- (#{free-id=?\ 9135}#
- (lambda (#{i\ 10754}# #{j\ 10755}#)
- (if (eq? (let ((#{x\ 10761}# #{i\ 10754}#))
- (if (#{syntax-object?\ 9040}# #{x\ 10761}#)
- (#{syntax-object-expression\ 9042}# #{x\ 10761}#)
- #{x\ 10761}#))
- (let ((#{x\ 10764}# #{j\ 10755}#))
- (if (#{syntax-object?\ 9040}# #{x\ 10764}#)
- (#{syntax-object-expression\ 9042}# #{x\ 10764}#)
- #{x\ 10764}#)))
- (eq? (#{id-var-name\ 9133}# #{i\ 10754}# (quote (())))
- (#{id-var-name\ 9133}# #{j\ 10755}# (quote (()))))
+ (eq? #{i\ 1893}# #{j\ 1894}#))))
+ (#{free-id=?\ 281}#
+ (lambda (#{i\ 1901}# #{j\ 1902}#)
+ (if (eq? (let ((#{x\ 1908}# #{i\ 1901}#))
+ (if (#{syntax-object?\ 186}# #{x\ 1908}#)
+ (#{syntax-object-expression\ 188}# #{x\ 1908}#)
+ #{x\ 1908}#))
+ (let ((#{x\ 1911}# #{j\ 1902}#))
+ (if (#{syntax-object?\ 186}# #{x\ 1911}#)
+ (#{syntax-object-expression\ 188}# #{x\ 1911}#)
+ #{x\ 1911}#)))
+ (eq? (#{id-var-name\ 279}# #{i\ 1901}# (quote (())))
+ (#{id-var-name\ 279}# #{j\ 1902}# (quote (()))))
#f)))
- (#{id-var-name\ 9133}#
- (lambda (#{id\ 10768}# #{w\ 10769}#)
- (letrec ((#{search-vector-rib\ 10778}#
- (lambda (#{sym\ 10790}#
- #{subst\ 10791}#
- #{marks\ 10792}#
- #{symnames\ 10793}#
- #{ribcage\ 10794}#)
- (let ((#{n\ 10801}#
- (vector-length #{symnames\ 10793}#)))
- (letrec ((#{f\ 10804}#
- (lambda (#{i\ 10805}#)
- (if (#{fx=\ 8981}#
- #{i\ 10805}#
- #{n\ 10801}#)
- (#{search\ 10774}#
- #{sym\ 10790}#
- (cdr #{subst\ 10791}#)
- #{marks\ 10792}#)
+ (#{id-var-name\ 279}#
+ (lambda (#{id\ 1915}# #{w\ 1916}#)
+ (letrec ((#{search-vector-rib\ 1925}#
+ (lambda (#{sym\ 1937}#
+ #{subst\ 1938}#
+ #{marks\ 1939}#
+ #{symnames\ 1940}#
+ #{ribcage\ 1941}#)
+ (let ((#{n\ 1948}#
+ (vector-length #{symnames\ 1940}#)))
+ (letrec ((#{f\ 1951}#
+ (lambda (#{i\ 1952}#)
+ (if (#{fx=\ 127}#
+ #{i\ 1952}#
+ #{n\ 1948}#)
+ (#{search\ 1921}#
+ #{sym\ 1937}#
+ (cdr #{subst\ 1938}#)
+ #{marks\ 1939}#)
(if (if (eq? (vector-ref
- #{symnames\ 10793}#
- #{i\ 10805}#)
- #{sym\ 10790}#)
- (#{same-marks?\ 9131}#
- #{marks\ 10792}#
+ #{symnames\ 1940}#
+ #{i\ 1952}#)
+ #{sym\ 1937}#)
+ (#{same-marks?\ 277}#
+ #{marks\ 1939}#
(vector-ref
- (#{ribcage-marks\ 9103}#
- #{ribcage\ 10794}#)
- #{i\ 10805}#))
+ (#{ribcage-marks\ 249}#
+ #{ribcage\ 1941}#)
+ #{i\ 1952}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 9105}#
- #{ribcage\ 10794}#)
- #{i\ 10805}#)
- #{marks\ 10792}#)
- (#{f\ 10804}#
- (#{fx+\ 8977}#
- #{i\ 10805}#
+ (#{ribcage-labels\ 251}#
+ #{ribcage\ 1941}#)
+ #{i\ 1952}#)
+ #{marks\ 1939}#)
+ (#{f\ 1951}#
+ (#{fx+\ 123}#
+ #{i\ 1952}#
1)))))))
- (#{f\ 10804}# 0)))))
- (#{search-list-rib\ 10776}#
- (lambda (#{sym\ 10813}#
- #{subst\ 10814}#
- #{marks\ 10815}#
- #{symnames\ 10816}#
- #{ribcage\ 10817}#)
- (letrec ((#{f\ 10826}#
- (lambda (#{symnames\ 10827}#
- #{i\ 10828}#)
- (if (null? #{symnames\ 10827}#)
- (#{search\ 10774}#
- #{sym\ 10813}#
- (cdr #{subst\ 10814}#)
- #{marks\ 10815}#)
- (if (if (eq? (car #{symnames\
10827}#)
- #{sym\ 10813}#)
- (#{same-marks?\ 9131}#
- #{marks\ 10815}#
+ (#{f\ 1951}# 0)))))
+ (#{search-list-rib\ 1923}#
+ (lambda (#{sym\ 1960}#
+ #{subst\ 1961}#
+ #{marks\ 1962}#
+ #{symnames\ 1963}#
+ #{ribcage\ 1964}#)
+ (letrec ((#{f\ 1973}#
+ (lambda (#{symnames\ 1974}# #{i\ 1975}#)
+ (if (null? #{symnames\ 1974}#)
+ (#{search\ 1921}#
+ #{sym\ 1960}#
+ (cdr #{subst\ 1961}#)
+ #{marks\ 1962}#)
+ (if (if (eq? (car #{symnames\
1974}#)
+ #{sym\ 1960}#)
+ (#{same-marks?\ 277}#
+ #{marks\ 1962}#
(list-ref
- (#{ribcage-marks\ 9103}#
- #{ribcage\ 10817}#)
- #{i\ 10828}#))
+ (#{ribcage-marks\ 249}#
+ #{ribcage\ 1964}#)
+ #{i\ 1975}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 9105}#
- #{ribcage\ 10817}#)
- #{i\ 10828}#)
- #{marks\ 10815}#)
- (#{f\ 10826}#
- (cdr #{symnames\ 10827}#)
- (#{fx+\ 8977}#
- #{i\ 10828}#
+ (#{ribcage-labels\ 251}#
+ #{ribcage\ 1964}#)
+ #{i\ 1975}#)
+ #{marks\ 1962}#)
+ (#{f\ 1973}#
+ (cdr #{symnames\ 1974}#)
+ (#{fx+\ 123}#
+ #{i\ 1975}#
1)))))))
- (#{f\ 10826}# #{symnames\ 10816}# 0))))
- (#{search\ 10774}#
- (lambda (#{sym\ 10836}#
- #{subst\ 10837}#
- #{marks\ 10838}#)
- (if (null? #{subst\ 10837}#)
- (values #f #{marks\ 10838}#)
- (let ((#{fst\ 10843}# (car #{subst\ 10837}#)))
- (if (eq? #{fst\ 10843}# (quote shift))
- (#{search\ 10774}#
- #{sym\ 10836}#
- (cdr #{subst\ 10837}#)
- (cdr #{marks\ 10838}#))
- (let ((#{symnames\ 10845}#
- (#{ribcage-symnames\ 9101}#
- #{fst\ 10843}#)))
- (if (vector? #{symnames\ 10845}#)
- (#{search-vector-rib\ 10778}#
- #{sym\ 10836}#
- #{subst\ 10837}#
- #{marks\ 10838}#
- #{symnames\ 10845}#
- #{fst\ 10843}#)
- (#{search-list-rib\ 10776}#
- #{sym\ 10836}#
- #{subst\ 10837}#
- #{marks\ 10838}#
- #{symnames\ 10845}#
- #{fst\ 10843}#)))))))))
- (if (symbol? #{id\ 10768}#)
- (let ((#{t\ 10848}#
+ (#{f\ 1973}# #{symnames\ 1963}# 0))))
+ (#{search\ 1921}#
+ (lambda (#{sym\ 1983}#
+ #{subst\ 1984}#
+ #{marks\ 1985}#)
+ (if (null? #{subst\ 1984}#)
+ (values #f #{marks\ 1985}#)
+ (let ((#{fst\ 1990}# (car #{subst\ 1984}#)))
+ (if (eq? #{fst\ 1990}# (quote shift))
+ (#{search\ 1921}#
+ #{sym\ 1983}#
+ (cdr #{subst\ 1984}#)
+ (cdr #{marks\ 1985}#))
+ (let ((#{symnames\ 1992}#
+ (#{ribcage-symnames\ 247}#
+ #{fst\ 1990}#)))
+ (if (vector? #{symnames\ 1992}#)
+ (#{search-vector-rib\ 1925}#
+ #{sym\ 1983}#
+ #{subst\ 1984}#
+ #{marks\ 1985}#
+ #{symnames\ 1992}#
+ #{fst\ 1990}#)
+ (#{search-list-rib\ 1923}#
+ #{sym\ 1983}#
+ #{subst\ 1984}#
+ #{marks\ 1985}#
+ #{symnames\ 1992}#
+ #{fst\ 1990}#)))))))))
+ (if (symbol? #{id\ 1915}#)
+ (let ((#{t\ 1995}#
(call-with-values
(lambda ()
- (#{search\ 10774}#
- #{id\ 10768}#
- (#{wrap-subst\ 9085}# #{w\ 10769}#)
- (#{wrap-marks\ 9083}# #{w\ 10769}#)))
- (lambda (#{x\ 10850}# . #{ignore\ 10851}#)
- #{x\ 10850}#))))
- (if #{t\ 10848}# #{t\ 10848}# #{id\ 10768}#))
- (if (#{syntax-object?\ 9040}# #{id\ 10768}#)
- (let ((#{id\ 10859}#
- (#{syntax-object-expression\ 9042}#
- #{id\ 10768}#))
- (#{w1\ 10860}#
- (#{syntax-object-wrap\ 9044}# #{id\ 10768}#)))
- (let ((#{marks\ 10862}#
- (#{join-marks\ 9129}#
- (#{wrap-marks\ 9083}# #{w\ 10769}#)
- (#{wrap-marks\ 9083}# #{w1\ 10860}#))))
+ (#{search\ 1921}#
+ #{id\ 1915}#
+ (#{wrap-subst\ 231}# #{w\ 1916}#)
+ (#{wrap-marks\ 229}# #{w\ 1916}#)))
+ (lambda (#{x\ 1997}# . #{ignore\ 1998}#)
+ #{x\ 1997}#))))
+ (if #{t\ 1995}# #{t\ 1995}# #{id\ 1915}#))
+ (if (#{syntax-object?\ 186}# #{id\ 1915}#)
+ (let ((#{id\ 2006}#
+ (#{syntax-object-expression\ 188}# #{id\ 1915}#))
+ (#{w1\ 2007}#
+ (#{syntax-object-wrap\ 190}# #{id\ 1915}#)))
+ (let ((#{marks\ 2009}#
+ (#{join-marks\ 275}#
+ (#{wrap-marks\ 229}# #{w\ 1916}#)
+ (#{wrap-marks\ 229}# #{w1\ 2007}#))))
(call-with-values
(lambda ()
- (#{search\ 10774}#
- #{id\ 10859}#
- (#{wrap-subst\ 9085}# #{w\ 10769}#)
- #{marks\ 10862}#))
- (lambda (#{new-id\ 10863}# #{marks\ 10864}#)
- (let ((#{t\ 10869}# #{new-id\ 10863}#))
- (if #{t\ 10869}#
- #{t\ 10869}#
- (let ((#{t\ 10872}#
+ (#{search\ 1921}#
+ #{id\ 2006}#
+ (#{wrap-subst\ 231}# #{w\ 1916}#)
+ #{marks\ 2009}#))
+ (lambda (#{new-id\ 2010}# #{marks\ 2011}#)
+ (let ((#{t\ 2016}# #{new-id\ 2010}#))
+ (if #{t\ 2016}#
+ #{t\ 2016}#
+ (let ((#{t\ 2019}#
(call-with-values
(lambda ()
- (#{search\ 10774}#
- #{id\ 10859}#
- (#{wrap-subst\ 9085}#
- #{w1\ 10860}#)
- #{marks\ 10864}#))
- (lambda (#{x\ 10874}#
+ (#{search\ 1921}#
+ #{id\ 2006}#
+ (#{wrap-subst\ 231}#
+ #{w1\ 2007}#)
+ #{marks\ 2011}#))
+ (lambda (#{x\ 2021}#
.
- #{ignore\ 10875}#)
- #{x\ 10874}#))))
- (if #{t\ 10872}#
- #{t\ 10872}#
- #{id\ 10859}#))))))))
+ #{ignore\ 2022}#)
+ #{x\ 2021}#))))
+ (if #{t\ 2019}#
+ #{t\ 2019}#
+ #{id\ 2006}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 10768}#))))))
- (#{same-marks?\ 9131}#
- (lambda (#{x\ 10880}# #{y\ 10881}#)
- (let ((#{t\ 10886}# (eq? #{x\ 10880}# #{y\ 10881}#)))
- (if #{t\ 10886}#
- #{t\ 10886}#
- (if (not (null? #{x\ 10880}#))
- (if (not (null? #{y\ 10881}#))
- (if (eq? (car #{x\ 10880}#) (car #{y\ 10881}#))
- (#{same-marks?\ 9131}#
- (cdr #{x\ 10880}#)
- (cdr #{y\ 10881}#))
+ #{id\ 1915}#))))))
+ (#{same-marks?\ 277}#
+ (lambda (#{x\ 2027}# #{y\ 2028}#)
+ (let ((#{t\ 2033}# (eq? #{x\ 2027}# #{y\ 2028}#)))
+ (if #{t\ 2033}#
+ #{t\ 2033}#
+ (if (not (null? #{x\ 2027}#))
+ (if (not (null? #{y\ 2028}#))
+ (if (eq? (car #{x\ 2027}#) (car #{y\ 2028}#))
+ (#{same-marks?\ 277}#
+ (cdr #{x\ 2027}#)
+ (cdr #{y\ 2028}#))
#f)
#f)
#f)))))
- (#{join-marks\ 9129}#
- (lambda (#{m1\ 10892}# #{m2\ 10893}#)
- (#{smart-append\ 9125}#
- #{m1\ 10892}#
- #{m2\ 10893}#)))
- (#{join-wraps\ 9127}#
- (lambda (#{w1\ 10896}# #{w2\ 10897}#)
- (let ((#{m1\ 10902}#
- (#{wrap-marks\ 9083}# #{w1\ 10896}#))
- (#{s1\ 10903}#
- (#{wrap-subst\ 9085}# #{w1\ 10896}#)))
- (if (null? #{m1\ 10902}#)
- (if (null? #{s1\ 10903}#)
- #{w2\ 10897}#
- (#{make-wrap\ 9081}#
- (#{wrap-marks\ 9083}# #{w2\ 10897}#)
- (#{smart-append\ 9125}#
- #{s1\ 10903}#
- (#{wrap-subst\ 9085}# #{w2\ 10897}#))))
- (#{make-wrap\ 9081}#
- (#{smart-append\ 9125}#
- #{m1\ 10902}#
- (#{wrap-marks\ 9083}# #{w2\ 10897}#))
- (#{smart-append\ 9125}#
- #{s1\ 10903}#
- (#{wrap-subst\ 9085}# #{w2\ 10897}#)))))))
- (#{smart-append\ 9125}#
- (lambda (#{m1\ 10904}# #{m2\ 10905}#)
- (if (null? #{m2\ 10905}#)
- #{m1\ 10904}#
- (append #{m1\ 10904}# #{m2\ 10905}#))))
- (#{make-binding-wrap\ 9123}#
- (lambda (#{ids\ 10908}# #{labels\ 10909}# #{w\ 10910}#)
- (if (null? #{ids\ 10908}#)
- #{w\ 10910}#
- (#{make-wrap\ 9081}#
- (#{wrap-marks\ 9083}# #{w\ 10910}#)
- (cons (let ((#{labelvec\ 10915}#
- (list->vector #{labels\ 10909}#)))
- (let ((#{n\ 10917}#
- (vector-length #{labelvec\ 10915}#)))
- (let ((#{symnamevec\ 10920}#
- (make-vector #{n\ 10917}#))
- (#{marksvec\ 10921}#
- (make-vector #{n\ 10917}#)))
+ (#{join-marks\ 275}#
+ (lambda (#{m1\ 2039}# #{m2\ 2040}#)
+ (#{smart-append\ 271}# #{m1\ 2039}# #{m2\ 2040}#)))
+ (#{join-wraps\ 273}#
+ (lambda (#{w1\ 2043}# #{w2\ 2044}#)
+ (let ((#{m1\ 2049}# (#{wrap-marks\ 229}# #{w1\ 2043}#))
+ (#{s1\ 2050}# (#{wrap-subst\ 231}# #{w1\ 2043}#)))
+ (if (null? #{m1\ 2049}#)
+ (if (null? #{s1\ 2050}#)
+ #{w2\ 2044}#
+ (#{make-wrap\ 227}#
+ (#{wrap-marks\ 229}# #{w2\ 2044}#)
+ (#{smart-append\ 271}#
+ #{s1\ 2050}#
+ (#{wrap-subst\ 231}# #{w2\ 2044}#))))
+ (#{make-wrap\ 227}#
+ (#{smart-append\ 271}#
+ #{m1\ 2049}#
+ (#{wrap-marks\ 229}# #{w2\ 2044}#))
+ (#{smart-append\ 271}#
+ #{s1\ 2050}#
+ (#{wrap-subst\ 231}# #{w2\ 2044}#)))))))
+ (#{smart-append\ 271}#
+ (lambda (#{m1\ 2051}# #{m2\ 2052}#)
+ (if (null? #{m2\ 2052}#)
+ #{m1\ 2051}#
+ (append #{m1\ 2051}# #{m2\ 2052}#))))
+ (#{make-binding-wrap\ 269}#
+ (lambda (#{ids\ 2055}# #{labels\ 2056}# #{w\ 2057}#)
+ (if (null? #{ids\ 2055}#)
+ #{w\ 2057}#
+ (#{make-wrap\ 227}#
+ (#{wrap-marks\ 229}# #{w\ 2057}#)
+ (cons (let ((#{labelvec\ 2062}#
+ (list->vector #{labels\ 2056}#)))
+ (let ((#{n\ 2064}#
+ (vector-length #{labelvec\ 2062}#)))
+ (let ((#{symnamevec\ 2067}#
+ (make-vector #{n\ 2064}#))
+ (#{marksvec\ 2068}#
+ (make-vector #{n\ 2064}#)))
(begin
- (letrec ((#{f\ 10925}#
- (lambda (#{ids\ 10926}#
- #{i\ 10927}#)
- (if (not (null? #{ids\ 10926}#))
+ (letrec ((#{f\ 2072}#
+ (lambda (#{ids\ 2073}# #{i\ 2074}#)
+ (if (not (null? #{ids\ 2073}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\
9079}#
- (car #{ids\ 10926}#)
- #{w\ 10910}#))
- (lambda (#{symname\ 10928}#
- #{marks\ 10929}#)
+ (#{id-sym-name&marks\ 225}#
+ (car #{ids\ 2073}#)
+ #{w\ 2057}#))
+ (lambda (#{symname\ 2075}#
+ #{marks\ 2076}#)
(begin
(vector-set!
- #{symnamevec\ 10920}#
- #{i\ 10927}#
- #{symname\ 10928}#)
+ #{symnamevec\ 2067}#
+ #{i\ 2074}#
+ #{symname\ 2075}#)
(vector-set!
- #{marksvec\ 10921}#
- #{i\ 10927}#
- #{marks\ 10929}#)
- (#{f\ 10925}#
- (cdr #{ids\ 10926}#)
- (#{fx+\ 8977}#
- #{i\ 10927}#
+ #{marksvec\ 2068}#
+ #{i\ 2074}#
+ #{marks\ 2076}#)
+ (#{f\ 2072}#
+ (cdr #{ids\ 2073}#)
+ (#{fx+\ 123}#
+ #{i\ 2074}#
1)))))))))
- (#{f\ 10925}# #{ids\ 10908}# 0))
- (#{make-ribcage\ 9097}#
- #{symnamevec\ 10920}#
- #{marksvec\ 10921}#
- #{labelvec\ 10915}#)))))
- (#{wrap-subst\ 9085}# #{w\ 10910}#))))))
- (#{extend-ribcage!\ 9121}#
- (lambda (#{ribcage\ 10932}#
- #{id\ 10933}#
- #{label\ 10934}#)
+ (#{f\ 2072}# #{ids\ 2055}# 0))
+ (#{make-ribcage\ 243}#
+ #{symnamevec\ 2067}#
+ #{marksvec\ 2068}#
+ #{labelvec\ 2062}#)))))
+ (#{wrap-subst\ 231}# #{w\ 2057}#))))))
+ (#{extend-ribcage!\ 267}#
+ (lambda (#{ribcage\ 2079}# #{id\ 2080}# #{label\ 2081}#)
(begin
- (#{set-ribcage-symnames!\ 9107}#
- #{ribcage\ 10932}#
- (cons (#{syntax-object-expression\ 9042}#
- #{id\ 10933}#)
- (#{ribcage-symnames\ 9101}# #{ribcage\ 10932}#)))
- (#{set-ribcage-marks!\ 9109}#
- #{ribcage\ 10932}#
- (cons (#{wrap-marks\ 9083}#
- (#{syntax-object-wrap\ 9044}# #{id\ 10933}#))
- (#{ribcage-marks\ 9103}# #{ribcage\ 10932}#)))
- (#{set-ribcage-labels!\ 9111}#
- #{ribcage\ 10932}#
- (cons #{label\ 10934}#
- (#{ribcage-labels\ 9105}# #{ribcage\ 10932}#))))))
- (#{anti-mark\ 9117}#
- (lambda (#{w\ 10938}#)
- (#{make-wrap\ 9081}#
- (cons #f (#{wrap-marks\ 9083}# #{w\ 10938}#))
+ (#{set-ribcage-symnames!\ 253}#
+ #{ribcage\ 2079}#
+ (cons (#{syntax-object-expression\ 188}# #{id\ 2080}#)
+ (#{ribcage-symnames\ 247}# #{ribcage\ 2079}#)))
+ (#{set-ribcage-marks!\ 255}#
+ #{ribcage\ 2079}#
+ (cons (#{wrap-marks\ 229}#
+ (#{syntax-object-wrap\ 190}# #{id\ 2080}#))
+ (#{ribcage-marks\ 249}# #{ribcage\ 2079}#)))
+ (#{set-ribcage-labels!\ 257}#
+ #{ribcage\ 2079}#
+ (cons #{label\ 2081}#
+ (#{ribcage-labels\ 251}# #{ribcage\ 2079}#))))))
+ (#{anti-mark\ 263}#
+ (lambda (#{w\ 2085}#)
+ (#{make-wrap\ 227}#
+ (cons #f (#{wrap-marks\ 229}# #{w\ 2085}#))
(cons 'shift
- (#{wrap-subst\ 9085}# #{w\ 10938}#)))))
- (#{set-ribcage-labels!\ 9111}#
- (lambda (#{x\ 10941}# #{update\ 10942}#)
- (vector-set! #{x\ 10941}# 3 #{update\ 10942}#)))
- (#{set-ribcage-marks!\ 9109}#
- (lambda (#{x\ 10945}# #{update\ 10946}#)
- (vector-set! #{x\ 10945}# 2 #{update\ 10946}#)))
- (#{set-ribcage-symnames!\ 9107}#
- (lambda (#{x\ 10949}# #{update\ 10950}#)
- (vector-set! #{x\ 10949}# 1 #{update\ 10950}#)))
- (#{ribcage-labels\ 9105}#
- (lambda (#{x\ 10953}#)
- (vector-ref #{x\ 10953}# 3)))
- (#{ribcage-marks\ 9103}#
- (lambda (#{x\ 10955}#)
- (vector-ref #{x\ 10955}# 2)))
- (#{ribcage-symnames\ 9101}#
- (lambda (#{x\ 10957}#)
- (vector-ref #{x\ 10957}# 1)))
- (#{ribcage?\ 9099}#
- (lambda (#{x\ 10959}#)
- (if (vector? #{x\ 10959}#)
- (if (= (vector-length #{x\ 10959}#) 4)
- (eq? (vector-ref #{x\ 10959}# 0) (quote ribcage))
+ (#{wrap-subst\ 231}# #{w\ 2085}#)))))
+ (#{set-ribcage-labels!\ 257}#
+ (lambda (#{x\ 2088}# #{update\ 2089}#)
+ (vector-set! #{x\ 2088}# 3 #{update\ 2089}#)))
+ (#{set-ribcage-marks!\ 255}#
+ (lambda (#{x\ 2092}# #{update\ 2093}#)
+ (vector-set! #{x\ 2092}# 2 #{update\ 2093}#)))
+ (#{set-ribcage-symnames!\ 253}#
+ (lambda (#{x\ 2096}# #{update\ 2097}#)
+ (vector-set! #{x\ 2096}# 1 #{update\ 2097}#)))
+ (#{ribcage-labels\ 251}#
+ (lambda (#{x\ 2100}#) (vector-ref #{x\ 2100}# 3)))
+ (#{ribcage-marks\ 249}#
+ (lambda (#{x\ 2102}#) (vector-ref #{x\ 2102}# 2)))
+ (#{ribcage-symnames\ 247}#
+ (lambda (#{x\ 2104}#) (vector-ref #{x\ 2104}# 1)))
+ (#{ribcage?\ 245}#
+ (lambda (#{x\ 2106}#)
+ (if (vector? #{x\ 2106}#)
+ (if (= (vector-length #{x\ 2106}#) 4)
+ (eq? (vector-ref #{x\ 2106}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 9097}#
- (lambda (#{symnames\ 10964}#
- #{marks\ 10965}#
- #{labels\ 10966}#)
+ (#{make-ribcage\ 243}#
+ (lambda (#{symnames\ 2111}#
+ #{marks\ 2112}#
+ #{labels\ 2113}#)
(vector
'ribcage
- #{symnames\ 10964}#
- #{marks\ 10965}#
- #{labels\ 10966}#)))
- (#{gen-labels\ 9094}#
- (lambda (#{ls\ 10970}#)
- (if (null? #{ls\ 10970}#)
+ #{symnames\ 2111}#
+ #{marks\ 2112}#
+ #{labels\ 2113}#)))
+ (#{gen-labels\ 240}#
+ (lambda (#{ls\ 2117}#)
+ (if (null? #{ls\ 2117}#)
'()
- (cons (#{gen-label\ 9092}#)
- (#{gen-labels\ 9094}# (cdr #{ls\ 10970}#))))))
- (#{gen-label\ 9092}#
+ (cons (#{gen-label\ 238}#)
+ (#{gen-labels\ 240}# (cdr #{ls\ 2117}#))))))
+ (#{gen-label\ 238}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 9085}# cdr)
- (#{wrap-marks\ 9083}# car)
- (#{make-wrap\ 9081}# cons)
- (#{id-sym-name&marks\ 9079}#
- (lambda (#{x\ 10972}# #{w\ 10973}#)
- (if (#{syntax-object?\ 9040}# #{x\ 10972}#)
+ (#{wrap-subst\ 231}# cdr)
+ (#{wrap-marks\ 229}# car)
+ (#{make-wrap\ 227}# cons)
+ (#{id-sym-name&marks\ 225}#
+ (lambda (#{x\ 2119}# #{w\ 2120}#)
+ (if (#{syntax-object?\ 186}# #{x\ 2119}#)
(values
- (#{syntax-object-expression\ 9042}# #{x\ 10972}#)
- (#{join-marks\ 9129}#
- (#{wrap-marks\ 9083}# #{w\ 10973}#)
- (#{wrap-marks\ 9083}#
- (#{syntax-object-wrap\ 9044}# #{x\ 10972}#))))
+ (#{syntax-object-expression\ 188}# #{x\ 2119}#)
+ (#{join-marks\ 275}#
+ (#{wrap-marks\ 229}# #{w\ 2120}#)
+ (#{wrap-marks\ 229}#
+ (#{syntax-object-wrap\ 190}# #{x\ 2119}#))))
(values
- #{x\ 10972}#
- (#{wrap-marks\ 9083}# #{w\ 10973}#)))))
- (#{id?\ 9076}#
- (lambda (#{x\ 10976}#)
- (if (symbol? #{x\ 10976}#)
+ #{x\ 2119}#
+ (#{wrap-marks\ 229}# #{w\ 2120}#)))))
+ (#{id?\ 222}#
+ (lambda (#{x\ 2123}#)
+ (if (symbol? #{x\ 2123}#)
#t
- (if (#{syntax-object?\ 9040}# #{x\ 10976}#)
+ (if (#{syntax-object?\ 186}# #{x\ 2123}#)
(symbol?
- (#{syntax-object-expression\ 9042}# #{x\ 10976}#))
+ (#{syntax-object-expression\ 188}# #{x\ 2123}#))
#f))))
- (#{nonsymbol-id?\ 9074}#
- (lambda (#{x\ 10983}#)
- (if (#{syntax-object?\ 9040}# #{x\ 10983}#)
+ (#{nonsymbol-id?\ 220}#
+ (lambda (#{x\ 2130}#)
+ (if (#{syntax-object?\ 186}# #{x\ 2130}#)
(symbol?
- (#{syntax-object-expression\ 9042}# #{x\ 10983}#))
+ (#{syntax-object-expression\ 188}# #{x\ 2130}#))
#f)))
- (#{global-extend\ 9072}#
- (lambda (#{type\ 10987}# #{sym\ 10988}# #{val\ 10989}#)
- (#{put-global-definition-hook\ 8990}#
- #{sym\ 10988}#
- #{type\ 10987}#
- #{val\ 10989}#)))
- (#{lookup\ 9070}#
- (lambda (#{x\ 10993}# #{r\ 10994}# #{mod\ 10995}#)
- (let ((#{t\ 11001}# (assq #{x\ 10993}# #{r\ 10994}#)))
- (if #{t\ 11001}#
- (cdr #{t\ 11001}#)
- (if (symbol? #{x\ 10993}#)
- (let ((#{t\ 11007}#
- (#{get-global-definition-hook\ 8992}#
- #{x\ 10993}#
- #{mod\ 10995}#)))
- (if #{t\ 11007}# #{t\ 11007}# (quote (global))))
+ (#{global-extend\ 218}#
+ (lambda (#{type\ 2134}# #{sym\ 2135}# #{val\ 2136}#)
+ (#{put-global-definition-hook\ 136}#
+ #{sym\ 2135}#
+ #{type\ 2134}#
+ #{val\ 2136}#)))
+ (#{lookup\ 216}#
+ (lambda (#{x\ 2140}# #{r\ 2141}# #{mod\ 2142}#)
+ (let ((#{t\ 2148}# (assq #{x\ 2140}# #{r\ 2141}#)))
+ (if #{t\ 2148}#
+ (cdr #{t\ 2148}#)
+ (if (symbol? #{x\ 2140}#)
+ (let ((#{t\ 2154}#
+ (#{get-global-definition-hook\ 138}#
+ #{x\ 2140}#
+ #{mod\ 2142}#)))
+ (if #{t\ 2154}# #{t\ 2154}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 9068}#
- (lambda (#{r\ 11012}#)
- (if (null? #{r\ 11012}#)
+ (#{macros-only-env\ 214}#
+ (lambda (#{r\ 2159}#)
+ (if (null? #{r\ 2159}#)
'()
- (let ((#{a\ 11015}# (car #{r\ 11012}#)))
- (if (eq? (cadr #{a\ 11015}#) (quote macro))
- (cons #{a\ 11015}#
- (#{macros-only-env\ 9068}# (cdr #{r\ 11012}#)))
- (#{macros-only-env\ 9068}# (cdr #{r\ 11012}#)))))))
- (#{extend-var-env\ 9066}#
- (lambda (#{labels\ 11016}# #{vars\ 11017}# #{r\ 11018}#)
- (if (null? #{labels\ 11016}#)
- #{r\ 11018}#
- (#{extend-var-env\ 9066}#
- (cdr #{labels\ 11016}#)
- (cdr #{vars\ 11017}#)
- (cons (cons (car #{labels\ 11016}#)
- (cons (quote lexical) (car #{vars\ 11017}#)))
- #{r\ 11018}#)))))
- (#{extend-env\ 9064}#
- (lambda (#{labels\ 11023}#
- #{bindings\ 11024}#
- #{r\ 11025}#)
- (if (null? #{labels\ 11023}#)
- #{r\ 11025}#
- (#{extend-env\ 9064}#
- (cdr #{labels\ 11023}#)
- (cdr #{bindings\ 11024}#)
- (cons (cons (car #{labels\ 11023}#)
- (car #{bindings\ 11024}#))
- #{r\ 11025}#)))))
- (#{binding-value\ 9061}# cdr)
- (#{binding-type\ 9059}# car)
- (#{source-annotation\ 9055}#
- (lambda (#{x\ 11029}#)
- (if (#{syntax-object?\ 9040}# #{x\ 11029}#)
- (#{source-annotation\ 9055}#
- (#{syntax-object-expression\ 9042}# #{x\ 11029}#))
- (if (pair? #{x\ 11029}#)
- (let ((#{props\ 11036}#
- (source-properties #{x\ 11029}#)))
- (if (pair? #{props\ 11036}#) #{props\ 11036}# #f))
+ (let ((#{a\ 2162}# (car #{r\ 2159}#)))
+ (if (eq? (cadr #{a\ 2162}#) (quote macro))
+ (cons #{a\ 2162}#
+ (#{macros-only-env\ 214}# (cdr #{r\ 2159}#)))
+ (#{macros-only-env\ 214}# (cdr #{r\ 2159}#)))))))
+ (#{extend-var-env\ 212}#
+ (lambda (#{labels\ 2163}# #{vars\ 2164}# #{r\ 2165}#)
+ (if (null? #{labels\ 2163}#)
+ #{r\ 2165}#
+ (#{extend-var-env\ 212}#
+ (cdr #{labels\ 2163}#)
+ (cdr #{vars\ 2164}#)
+ (cons (cons (car #{labels\ 2163}#)
+ (cons (quote lexical) (car #{vars\ 2164}#)))
+ #{r\ 2165}#)))))
+ (#{extend-env\ 210}#
+ (lambda (#{labels\ 2170}# #{bindings\ 2171}# #{r\ 2172}#)
+ (if (null? #{labels\ 2170}#)
+ #{r\ 2172}#
+ (#{extend-env\ 210}#
+ (cdr #{labels\ 2170}#)
+ (cdr #{bindings\ 2171}#)
+ (cons (cons (car #{labels\ 2170}#)
+ (car #{bindings\ 2171}#))
+ #{r\ 2172}#)))))
+ (#{binding-value\ 207}# cdr)
+ (#{binding-type\ 205}# car)
+ (#{source-annotation\ 201}#
+ (lambda (#{x\ 2176}#)
+ (if (#{syntax-object?\ 186}# #{x\ 2176}#)
+ (#{source-annotation\ 201}#
+ (#{syntax-object-expression\ 188}# #{x\ 2176}#))
+ (if (pair? #{x\ 2176}#)
+ (let ((#{props\ 2183}# (source-properties #{x\ 2176}#)))
+ (if (pair? #{props\ 2183}#) #{props\ 2183}# #f))
#f))))
- (#{set-syntax-object-module!\ 9052}#
- (lambda (#{x\ 11038}# #{update\ 11039}#)
- (vector-set! #{x\ 11038}# 3 #{update\ 11039}#)))
- (#{set-syntax-object-wrap!\ 9050}#
- (lambda (#{x\ 11042}# #{update\ 11043}#)
- (vector-set! #{x\ 11042}# 2 #{update\ 11043}#)))
- (#{set-syntax-object-expression!\ 9048}#
- (lambda (#{x\ 11046}# #{update\ 11047}#)
- (vector-set! #{x\ 11046}# 1 #{update\ 11047}#)))
- (#{syntax-object-module\ 9046}#
- (lambda (#{x\ 11050}#)
- (vector-ref #{x\ 11050}# 3)))
- (#{syntax-object-wrap\ 9044}#
- (lambda (#{x\ 11052}#)
- (vector-ref #{x\ 11052}# 2)))
- (#{syntax-object-expression\ 9042}#
- (lambda (#{x\ 11054}#)
- (vector-ref #{x\ 11054}# 1)))
- (#{syntax-object?\ 9040}#
- (lambda (#{x\ 11056}#)
- (if (vector? #{x\ 11056}#)
- (if (= (vector-length #{x\ 11056}#) 4)
- (eq? (vector-ref #{x\ 11056}# 0)
+ (#{set-syntax-object-module!\ 198}#
+ (lambda (#{x\ 2185}# #{update\ 2186}#)
+ (vector-set! #{x\ 2185}# 3 #{update\ 2186}#)))
+ (#{set-syntax-object-wrap!\ 196}#
+ (lambda (#{x\ 2189}# #{update\ 2190}#)
+ (vector-set! #{x\ 2189}# 2 #{update\ 2190}#)))
+ (#{set-syntax-object-expression!\ 194}#
+ (lambda (#{x\ 2193}# #{update\ 2194}#)
+ (vector-set! #{x\ 2193}# 1 #{update\ 2194}#)))
+ (#{syntax-object-module\ 192}#
+ (lambda (#{x\ 2197}#) (vector-ref #{x\ 2197}# 3)))
+ (#{syntax-object-wrap\ 190}#
+ (lambda (#{x\ 2199}#) (vector-ref #{x\ 2199}# 2)))
+ (#{syntax-object-expression\ 188}#
+ (lambda (#{x\ 2201}#) (vector-ref #{x\ 2201}# 1)))
+ (#{syntax-object?\ 186}#
+ (lambda (#{x\ 2203}#)
+ (if (vector? #{x\ 2203}#)
+ (if (= (vector-length #{x\ 2203}#) 4)
+ (eq? (vector-ref #{x\ 2203}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 9038}#
- (lambda (#{expression\ 11061}#
- #{wrap\ 11062}#
- #{module\ 11063}#)
+ (#{make-syntax-object\ 184}#
+ (lambda (#{expression\ 2208}#
+ #{wrap\ 2209}#
+ #{module\ 2210}#)
(vector
'syntax-object
- #{expression\ 11061}#
- #{wrap\ 11062}#
- #{module\ 11063}#)))
- (#{build-letrec\ 9034}#
- (lambda (#{src\ 11067}#
- #{ids\ 11068}#
- #{vars\ 11069}#
- #{val-exps\ 11070}#
- #{body-exp\ 11071}#)
- (if (null? #{vars\ 11069}#)
- #{body-exp\ 11071}#
- (let ((#{atom-key\ 11079}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11079}# (quote (c)))
+ #{expression\ 2208}#
+ #{wrap\ 2209}#
+ #{module\ 2210}#)))
+ (#{build-letrec\ 180}#
+ (lambda (#{src\ 2214}#
+ #{ids\ 2215}#
+ #{vars\ 2216}#
+ #{val-exps\ 2217}#
+ #{body-exp\ 2218}#)
+ (if (null? #{vars\ 2216}#)
+ #{body-exp\ 2218}#
+ (let ((#{atom-key\ 2226}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2226}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 9014}#
- #{ids\ 11068}#
- #{val-exps\ 11070}#)
+ #{maybe-name-value!\ 160}#
+ #{ids\ 2215}#
+ #{val-exps\ 2217}#)
((@ (language tree-il) make-letrec)
- #{src\ 11067}#
- #{ids\ 11068}#
- #{vars\ 11069}#
- #{val-exps\ 11070}#
- #{body-exp\ 11071}#))
- (#{decorate-source\ 8994}#
+ #{src\ 2214}#
+ #{ids\ 2215}#
+ #{vars\ 2216}#
+ #{val-exps\ 2217}#
+ #{body-exp\ 2218}#))
+ (#{decorate-source\ 140}#
(list 'letrec
- (map list #{vars\ 11069}# #{val-exps\ 11070}#)
- #{body-exp\ 11071}#)
- #{src\ 11067}#))))))
- (#{build-named-let\ 9032}#
- (lambda (#{src\ 11083}#
- #{ids\ 11084}#
- #{vars\ 11085}#
- #{val-exps\ 11086}#
- #{body-exp\ 11087}#)
- (let ((#{f\ 11097}# (car #{vars\ 11085}#))
- (#{f-name\ 11098}# (car #{ids\ 11084}#))
- (#{vars\ 11099}# (cdr #{vars\ 11085}#))
- (#{ids\ 11100}# (cdr #{ids\ 11084}#)))
- (let ((#{atom-key\ 11103}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11103}# (quote (c)))
- (let ((#{proc\ 11106}#
- (#{build-simple-lambda\ 9018}#
- #{src\ 11083}#
- #{ids\ 11100}#
+ (map list #{vars\ 2216}# #{val-exps\ 2217}#)
+ #{body-exp\ 2218}#)
+ #{src\ 2214}#))))))
+ (#{build-named-let\ 178}#
+ (lambda (#{src\ 2230}#
+ #{ids\ 2231}#
+ #{vars\ 2232}#
+ #{val-exps\ 2233}#
+ #{body-exp\ 2234}#)
+ (let ((#{f\ 2244}# (car #{vars\ 2232}#))
+ (#{f-name\ 2245}# (car #{ids\ 2231}#))
+ (#{vars\ 2246}# (cdr #{vars\ 2232}#))
+ (#{ids\ 2247}# (cdr #{ids\ 2231}#)))
+ (let ((#{atom-key\ 2250}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2250}# (quote (c)))
+ (let ((#{proc\ 2253}#
+ (#{build-simple-lambda\ 164}#
+ #{src\ 2230}#
+ #{ids\ 2247}#
#f
- #{vars\ 11099}#
+ #{vars\ 2246}#
'()
- #{body-exp\ 11087}#)))
+ #{body-exp\ 2234}#)))
(begin
- (#{maybe-name-value!\ 9014}#
- #{f-name\ 11098}#
- #{proc\ 11106}#)
+ (#{maybe-name-value!\ 160}#
+ #{f-name\ 2245}#
+ #{proc\ 2253}#)
(for-each
- #{maybe-name-value!\ 9014}#
- #{ids\ 11100}#
- #{val-exps\ 11086}#)
+ #{maybe-name-value!\ 160}#
+ #{ids\ 2247}#
+ #{val-exps\ 2233}#)
((@ (language tree-il) make-letrec)
- #{src\ 11083}#
- (list #{f-name\ 11098}#)
- (list #{f\ 11097}#)
- (list #{proc\ 11106}#)
- (#{build-application\ 8998}#
- #{src\ 11083}#
- (#{build-lexical-reference\ 9004}#
+ #{src\ 2230}#
+ (list #{f-name\ 2245}#)
+ (list #{f\ 2244}#)
+ (list #{proc\ 2253}#)
+ (#{build-application\ 144}#
+ #{src\ 2230}#
+ (#{build-lexical-reference\ 150}#
'fun
- #{src\ 11083}#
- #{f-name\ 11098}#
- #{f\ 11097}#)
- #{val-exps\ 11086}#))))
- (#{decorate-source\ 8994}#
+ #{src\ 2230}#
+ #{f-name\ 2245}#
+ #{f\ 2244}#)
+ #{val-exps\ 2233}#))))
+ (#{decorate-source\ 140}#
(list 'letrec
- (list (list #{f\ 11097}#
+ (list (list #{f\ 2244}#
(list 'lambda
- #{vars\ 11099}#
- #{body-exp\ 11087}#)))
- (cons #{f\ 11097}# #{val-exps\ 11086}#))
- #{src\ 11083}#))))))
- (#{build-let\ 9030}#
- (lambda (#{src\ 11109}#
- #{ids\ 11110}#
- #{vars\ 11111}#
- #{val-exps\ 11112}#
- #{body-exp\ 11113}#)
- (if (null? #{vars\ 11111}#)
- #{body-exp\ 11113}#
- (let ((#{atom-key\ 11121}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11121}# (quote (c)))
+ #{vars\ 2246}#
+ #{body-exp\ 2234}#)))
+ (cons #{f\ 2244}# #{val-exps\ 2233}#))
+ #{src\ 2230}#))))))
+ (#{build-let\ 176}#
+ (lambda (#{src\ 2256}#
+ #{ids\ 2257}#
+ #{vars\ 2258}#
+ #{val-exps\ 2259}#
+ #{body-exp\ 2260}#)
+ (if (null? #{vars\ 2258}#)
+ #{body-exp\ 2260}#
+ (let ((#{atom-key\ 2268}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2268}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 9014}#
- #{ids\ 11110}#
- #{val-exps\ 11112}#)
+ #{maybe-name-value!\ 160}#
+ #{ids\ 2257}#
+ #{val-exps\ 2259}#)
((@ (language tree-il) make-let)
- #{src\ 11109}#
- #{ids\ 11110}#
- #{vars\ 11111}#
- #{val-exps\ 11112}#
- #{body-exp\ 11113}#))
- (#{decorate-source\ 8994}#
+ #{src\ 2256}#
+ #{ids\ 2257}#
+ #{vars\ 2258}#
+ #{val-exps\ 2259}#
+ #{body-exp\ 2260}#))
+ (#{decorate-source\ 140}#
(list 'let
- (map list #{vars\ 11111}# #{val-exps\ 11112}#)
- #{body-exp\ 11113}#)
- #{src\ 11109}#))))))
- (#{build-sequence\ 9028}#
- (lambda (#{src\ 11125}# #{exps\ 11126}#)
- (if (null? (cdr #{exps\ 11126}#))
- (car #{exps\ 11126}#)
- (let ((#{atom-key\ 11131}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11131}# (quote (c)))
+ (map list #{vars\ 2258}# #{val-exps\ 2259}#)
+ #{body-exp\ 2260}#)
+ #{src\ 2256}#))))))
+ (#{build-sequence\ 174}#
+ (lambda (#{src\ 2272}# #{exps\ 2273}#)
+ (if (null? (cdr #{exps\ 2273}#))
+ (car #{exps\ 2273}#)
+ (let ((#{atom-key\ 2278}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2278}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 11125}#
- #{exps\ 11126}#)
- (#{decorate-source\ 8994}#
- (cons (quote begin) #{exps\ 11126}#)
- #{src\ 11125}#))))))
- (#{build-data\ 9026}#
- (lambda (#{src\ 11135}# #{exp\ 11136}#)
- (let ((#{atom-key\ 11141}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11141}# (quote (c)))
+ #{src\ 2272}#
+ #{exps\ 2273}#)
+ (#{decorate-source\ 140}#
+ (cons (quote begin) #{exps\ 2273}#)
+ #{src\ 2272}#))))))
+ (#{build-data\ 172}#
+ (lambda (#{src\ 2282}# #{exp\ 2283}#)
+ (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2288}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 11135}#
- #{exp\ 11136}#)
- (#{decorate-source\ 8994}#
- (if (if (self-evaluating? #{exp\ 11136}#)
- (not (vector? #{exp\ 11136}#))
+ #{src\ 2282}#
+ #{exp\ 2283}#)
+ (#{decorate-source\ 140}#
+ (if (if (self-evaluating? #{exp\ 2283}#)
+ (not (vector? #{exp\ 2283}#))
#f)
- #{exp\ 11136}#
- (list (quote quote) #{exp\ 11136}#))
- #{src\ 11135}#)))))
- (#{build-primref\ 9024}#
- (lambda (#{src\ 11146}# #{name\ 11147}#)
+ #{exp\ 2283}#
+ (list (quote quote) #{exp\ 2283}#))
+ #{src\ 2282}#)))))
+ (#{build-primref\ 170}#
+ (lambda (#{src\ 2293}# #{name\ 2294}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 11152}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11152}# (quote (c)))
+ (let ((#{atom-key\ 2299}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2299}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 11146}#
- #{name\ 11147}#)
- (#{decorate-source\ 8994}#
- #{name\ 11147}#
- #{src\ 11146}#)))
- (let ((#{atom-key\ 11157}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11157}# (quote (c)))
+ #{src\ 2293}#
+ #{name\ 2294}#)
+ (#{decorate-source\ 140}#
+ #{name\ 2294}#
+ #{src\ 2293}#)))
+ (let ((#{atom-key\ 2304}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2304}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 11146}#
+ #{src\ 2293}#
'(guile)
- #{name\ 11147}#
+ #{name\ 2294}#
#f)
- (#{decorate-source\ 8994}#
- (list (quote @@) (quote (guile)) #{name\ 11147}#)
- #{src\ 11146}#))))))
- (#{build-lambda-case\ 9022}#
- (lambda (#{src\ 11161}#
- #{req\ 11162}#
- #{opt\ 11163}#
- #{rest\ 11164}#
- #{kw\ 11165}#
- #{inits\ 11166}#
- #{vars\ 11167}#
- #{body\ 11168}#
- #{else-case\ 11169}#)
- (let ((#{atom-key\ 11181}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11181}# (quote (c)))
+ (#{decorate-source\ 140}#
+ (list (quote @@) (quote (guile)) #{name\ 2294}#)
+ #{src\ 2293}#))))))
+ (#{build-lambda-case\ 168}#
+ (lambda (#{src\ 2308}#
+ #{req\ 2309}#
+ #{opt\ 2310}#
+ #{rest\ 2311}#
+ #{kw\ 2312}#
+ #{inits\ 2313}#
+ #{vars\ 2314}#
+ #{body\ 2315}#
+ #{else-case\ 2316}#)
+ (let ((#{atom-key\ 2328}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2328}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 11161}#
- #{req\ 11162}#
- #{opt\ 11163}#
- #{rest\ 11164}#
- #{kw\ 11165}#
- #{inits\ 11166}#
- #{vars\ 11167}#
- #{body\ 11168}#
- #{else-case\ 11169}#)
- (let ((#{nreq\ 11186}# (length #{req\ 11162}#)))
- (let ((#{nopt\ 11188}#
- (if #{opt\ 11163}# (length #{opt\ 11163}#) 0)))
- (let ((#{rest-idx\ 11190}#
- (if #{rest\ 11164}#
- (+ #{nreq\ 11186}# #{nopt\ 11188}#)
+ #{src\ 2308}#
+ #{req\ 2309}#
+ #{opt\ 2310}#
+ #{rest\ 2311}#
+ #{kw\ 2312}#
+ #{inits\ 2313}#
+ #{vars\ 2314}#
+ #{body\ 2315}#
+ #{else-case\ 2316}#)
+ (let ((#{nreq\ 2333}# (length #{req\ 2309}#)))
+ (let ((#{nopt\ 2335}#
+ (if #{opt\ 2310}# (length #{opt\ 2310}#) 0)))
+ (let ((#{rest-idx\ 2337}#
+ (if #{rest\ 2311}#
+ (+ #{nreq\ 2333}# #{nopt\ 2335}#)
#f)))
- (let ((#{allow-other-keys?\ 11194}#
- (if #{kw\ 11165}# (car #{kw\ 11165}#) #f)))
- (let ((#{kw-indices\ 11196}#
- (map (lambda (#{x\ 11197}#)
- (cons (car #{x\ 11197}#)
+ (let ((#{allow-other-keys?\ 2341}#
+ (if #{kw\ 2312}# (car #{kw\ 2312}#) #f)))
+ (let ((#{kw-indices\ 2343}#
+ (map (lambda (#{x\ 2344}#)
+ (cons (car #{x\ 2344}#)
(list-index
- #{vars\ 11167}#
- (caddr #{x\ 11197}#))))
- (if #{kw\ 11165}#
- (cdr #{kw\ 11165}#)
+ #{vars\ 2314}#
+ (caddr #{x\ 2344}#))))
+ (if #{kw\ 2312}#
+ (cdr #{kw\ 2312}#)
'()))))
- (let ((#{nargs\ 11200}#
+ (let ((#{nargs\ 2347}#
(apply max
- (+ #{nreq\ 11186}#
- #{nopt\ 11188}#
- (if #{rest\ 11164}# 1 0))
+ (+ #{nreq\ 2333}#
+ #{nopt\ 2335}#
+ (if #{rest\ 2311}# 1 0))
(map 1+
(map cdr
- #{kw-indices\
11196}#)))))
+ #{kw-indices\ 2343}#)))))
(begin
- (let ((#{t\ 11203}#
- (= #{nargs\ 11200}#
- (length #{vars\ 11167}#)
- (+ #{nreq\ 11186}#
- (length #{inits\ 11166}#)
- (if #{rest\ 11164}# 1 0)))))
- (if #{t\ 11203}#
- #{t\ 11203}#
+ (let ((#{t\ 2350}#
+ (= #{nargs\ 2347}#
+ (length #{vars\ 2314}#)
+ (+ #{nreq\ 2333}#
+ (length #{inits\ 2313}#)
+ (if #{rest\ 2311}# 1 0)))))
+ (if #{t\ 2350}#
+ #{t\ 2350}#
(error "something went wrong"
- #{req\ 11162}#
- #{opt\ 11163}#
- #{rest\ 11164}#
- #{kw\ 11165}#
- #{inits\ 11166}#
- #{vars\ 11167}#
- #{nreq\ 11186}#
- #{nopt\ 11188}#
- #{kw-indices\ 11196}#
- #{nargs\ 11200}#)))
- (#{decorate-source\ 8994}#
+ #{req\ 2309}#
+ #{opt\ 2310}#
+ #{rest\ 2311}#
+ #{kw\ 2312}#
+ #{inits\ 2313}#
+ #{vars\ 2314}#
+ #{nreq\ 2333}#
+ #{nopt\ 2335}#
+ #{kw-indices\ 2343}#
+ #{nargs\ 2347}#)))
+ (#{decorate-source\ 140}#
(cons (list (cons '(@@ (ice-9 optargs)
parse-lambda-case)
(cons (list 'quote
- (list #{nreq\
11186}#
- #{nopt\
11188}#
-
#{rest-idx\ 11190}#
-
#{nargs\ 11200}#
-
#{allow-other-keys?\ 11194}#
-
#{kw-indices\ 11196}#))
+ (list #{nreq\
2333}#
+ #{nopt\
2335}#
+
#{rest-idx\ 2337}#
+
#{nargs\ 2347}#
+
#{allow-other-keys?\ 2341}#
+
#{kw-indices\ 2343}#))
(cons (cons 'list
- (map
(lambda (#{i\ 11206}#)
+ (map
(lambda (#{i\ 2353}#)
(list 'lambda
-
#{vars\ 11167}#
-
#{i\ 11206}#))
-
#{inits\ 11166}#))
+
#{vars\ 2314}#
+
#{i\ 2353}#))
+
#{inits\ 2313}#))
'(%%args))))
'=>
(list 'lambda
'(%%args)
(cons 'apply
(cons (list 'lambda
- #{vars\
11167}#
- #{body\
11168}#)
+ #{vars\
2314}#
+ #{body\
2315}#)
'(%%args)))))
- (let ((#{t\ 11211}#
- #{else-case\ 11169}#))
- (if #{t\ 11211}#
- #{t\ 11211}#
+ (let ((#{t\ 2358}#
+ #{else-case\ 2316}#))
+ (if #{t\ 2358}#
+ #{t\ 2358}#
'((%%args
(scm-error
'wrong-number-of-args
@@ -7586,1469 +7544,1431 @@
"Wrong number of arguments"
'()
%%args))))))
- #{src\ 11161}#))))))))))))
- (#{build-case-lambda\ 9020}#
- (lambda (#{src\ 11214}# #{meta\ 11215}# #{body\ 11216}#)
- (let ((#{atom-key\ 11222}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11222}# (quote (c)))
+ #{src\ 2308}#))))))))))))
+ (#{build-case-lambda\ 166}#
+ (lambda (#{src\ 2361}# #{meta\ 2362}# #{body\ 2363}#)
+ (let ((#{atom-key\ 2369}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2369}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 11214}#
- #{meta\ 11215}#
- #{body\ 11216}#)
- (#{decorate-source\ 8994}#
+ #{src\ 2361}#
+ #{meta\ 2362}#
+ #{body\ 2363}#)
+ (#{decorate-source\ 140}#
(list 'lambda
'%%args
- (cons (quote cond) #{body\ 11216}#))
- #{src\ 11214}#)))))
- (#{build-simple-lambda\ 9018}#
- (lambda (#{src\ 11226}#
- #{req\ 11227}#
- #{rest\ 11228}#
- #{vars\ 11229}#
- #{meta\ 11230}#
- #{exp\ 11231}#)
- (let ((#{atom-key\ 11240}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11240}# (quote (c)))
+ (cons (quote cond) #{body\ 2363}#))
+ #{src\ 2361}#)))))
+ (#{build-simple-lambda\ 164}#
+ (lambda (#{src\ 2373}#
+ #{req\ 2374}#
+ #{rest\ 2375}#
+ #{vars\ 2376}#
+ #{meta\ 2377}#
+ #{exp\ 2378}#)
+ (let ((#{atom-key\ 2387}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2387}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 11226}#
- #{meta\ 11230}#
+ #{src\ 2373}#
+ #{meta\ 2377}#
((@ (language tree-il) make-lambda-case)
- #{src\ 11226}#
- #{req\ 11227}#
+ #{src\ 2373}#
+ #{req\ 2374}#
#f
- #{rest\ 11228}#
+ #{rest\ 2375}#
#f
'()
- #{vars\ 11229}#
- #{exp\ 11231}#
+ #{vars\ 2376}#
+ #{exp\ 2378}#
#f))
- (#{decorate-source\ 8994}#
+ (#{decorate-source\ 140}#
(list 'lambda
- (if #{rest\ 11228}#
- (apply cons* #{vars\ 11229}#)
- #{vars\ 11229}#)
- #{exp\ 11231}#)
- #{src\ 11226}#)))))
- (#{build-global-definition\ 9016}#
- (lambda (#{source\ 11244}# #{var\ 11245}# #{exp\ 11246}#)
- (let ((#{atom-key\ 11252}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11252}# (quote (c)))
+ (if #{rest\ 2375}#
+ (apply cons* #{vars\ 2376}#)
+ #{vars\ 2376}#)
+ #{exp\ 2378}#)
+ #{src\ 2373}#)))))
+ (#{build-global-definition\ 162}#
+ (lambda (#{source\ 2391}# #{var\ 2392}# #{exp\ 2393}#)
+ (let ((#{atom-key\ 2399}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2399}# (quote (c)))
(begin
- (#{maybe-name-value!\ 9014}#
- #{var\ 11245}#
- #{exp\ 11246}#)
+ (#{maybe-name-value!\ 160}#
+ #{var\ 2392}#
+ #{exp\ 2393}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 11244}#
- #{var\ 11245}#
- #{exp\ 11246}#))
- (#{decorate-source\ 8994}#
- (list 'define
- #{var\ 11245}#
- #{exp\ 11246}#)
- #{source\ 11244}#)))))
- (#{maybe-name-value!\ 9014}#
- (lambda (#{name\ 11256}# #{val\ 11257}#)
- (if ((@ (language tree-il) lambda?) #{val\ 11257}#)
- (let ((#{meta\ 11263}#
+ #{source\ 2391}#
+ #{var\ 2392}#
+ #{exp\ 2393}#))
+ (#{decorate-source\ 140}#
+ (list (quote define) #{var\ 2392}# #{exp\ 2393}#)
+ #{source\ 2391}#)))))
+ (#{maybe-name-value!\ 160}#
+ (lambda (#{name\ 2403}# #{val\ 2404}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 2404}#)
+ (let ((#{meta\ 2410}#
((@ (language tree-il) lambda-meta)
- #{val\ 11257}#)))
- (if (not (assq (quote name) #{meta\ 11263}#))
+ #{val\ 2404}#)))
+ (if (not (assq (quote name) #{meta\ 2410}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 11257}#
+ #{val\ 2404}#
(acons 'name
- #{name\ 11256}#
- #{meta\ 11263}#)))))))
- (#{build-global-assignment\ 9012}#
- (lambda (#{source\ 11264}#
- #{var\ 11265}#
- #{exp\ 11266}#
- #{mod\ 11267}#)
- (#{analyze-variable\ 9008}#
- #{mod\ 11267}#
- #{var\ 11265}#
- (lambda (#{mod\ 11272}#
- #{var\ 11273}#
- #{public?\ 11274}#)
- (let ((#{atom-key\ 11280}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11280}# (quote (c)))
+ #{name\ 2403}#
+ #{meta\ 2410}#)))))))
+ (#{build-global-assignment\ 158}#
+ (lambda (#{source\ 2411}#
+ #{var\ 2412}#
+ #{exp\ 2413}#
+ #{mod\ 2414}#)
+ (#{analyze-variable\ 154}#
+ #{mod\ 2414}#
+ #{var\ 2412}#
+ (lambda (#{mod\ 2419}# #{var\ 2420}# #{public?\ 2421}#)
+ (let ((#{atom-key\ 2427}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2427}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 11264}#
- #{mod\ 11272}#
- #{var\ 11273}#
- #{public?\ 11274}#
- #{exp\ 11266}#)
- (#{decorate-source\ 8994}#
+ #{source\ 2411}#
+ #{mod\ 2419}#
+ #{var\ 2420}#
+ #{public?\ 2421}#
+ #{exp\ 2413}#)
+ (#{decorate-source\ 140}#
(list 'set!
- (list (if #{public?\ 11274}#
+ (list (if #{public?\ 2421}#
'@
'@@)
- #{mod\ 11272}#
- #{var\ 11273}#)
- #{exp\ 11266}#)
- #{source\ 11264}#))))
- (lambda (#{var\ 11284}#)
- (let ((#{atom-key\ 11288}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11288}# (quote (c)))
+ #{mod\ 2419}#
+ #{var\ 2420}#)
+ #{exp\ 2413}#)
+ #{source\ 2411}#))))
+ (lambda (#{var\ 2431}#)
+ (let ((#{atom-key\ 2435}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2435}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 11264}#
- #{var\ 11284}#
- #{exp\ 11266}#)
- (#{decorate-source\ 8994}#
- (list (quote set!) #{var\ 11284}# #{exp\ 11266}#)
- #{source\ 11264}#)))))))
- (#{build-global-reference\ 9010}#
- (lambda (#{source\ 11292}# #{var\ 11293}# #{mod\ 11294}#)
- (#{analyze-variable\ 9008}#
- #{mod\ 11294}#
- #{var\ 11293}#
- (lambda (#{mod\ 11298}#
- #{var\ 11299}#
- #{public?\ 11300}#)
- (let ((#{atom-key\ 11306}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11306}# (quote (c)))
+ #{source\ 2411}#
+ #{var\ 2431}#
+ #{exp\ 2413}#)
+ (#{decorate-source\ 140}#
+ (list (quote set!) #{var\ 2431}# #{exp\ 2413}#)
+ #{source\ 2411}#)))))))
+ (#{build-global-reference\ 156}#
+ (lambda (#{source\ 2439}# #{var\ 2440}# #{mod\ 2441}#)
+ (#{analyze-variable\ 154}#
+ #{mod\ 2441}#
+ #{var\ 2440}#
+ (lambda (#{mod\ 2445}# #{var\ 2446}# #{public?\ 2447}#)
+ (let ((#{atom-key\ 2453}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2453}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 11292}#
- #{mod\ 11298}#
- #{var\ 11299}#
- #{public?\ 11300}#)
- (#{decorate-source\ 8994}#
- (list (if #{public?\ 11300}# (quote @) (quote @@))
- #{mod\ 11298}#
- #{var\ 11299}#)
- #{source\ 11292}#))))
- (lambda (#{var\ 11309}#)
- (let ((#{atom-key\ 11313}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11313}# (quote (c)))
+ #{source\ 2439}#
+ #{mod\ 2445}#
+ #{var\ 2446}#
+ #{public?\ 2447}#)
+ (#{decorate-source\ 140}#
+ (list (if #{public?\ 2447}# (quote @) (quote @@))
+ #{mod\ 2445}#
+ #{var\ 2446}#)
+ #{source\ 2439}#))))
+ (lambda (#{var\ 2456}#)
+ (let ((#{atom-key\ 2460}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2460}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 11292}#
- #{var\ 11309}#)
- (#{decorate-source\ 8994}#
- #{var\ 11309}#
- #{source\ 11292}#)))))))
- (#{analyze-variable\ 9008}#
- (lambda (#{mod\ 11316}#
- #{var\ 11317}#
- #{modref-cont\ 11318}#
- #{bare-cont\ 11319}#)
- (if (not #{mod\ 11316}#)
- (#{bare-cont\ 11319}# #{var\ 11317}#)
- (let ((#{kind\ 11326}# (car #{mod\ 11316}#))
- (#{mod\ 11327}# (cdr #{mod\ 11316}#)))
- (if (memv #{kind\ 11326}# (quote (public)))
- (#{modref-cont\ 11318}#
- #{mod\ 11327}#
- #{var\ 11317}#
+ #{source\ 2439}#
+ #{var\ 2456}#)
+ (#{decorate-source\ 140}#
+ #{var\ 2456}#
+ #{source\ 2439}#)))))))
+ (#{analyze-variable\ 154}#
+ (lambda (#{mod\ 2463}#
+ #{var\ 2464}#
+ #{modref-cont\ 2465}#
+ #{bare-cont\ 2466}#)
+ (if (not #{mod\ 2463}#)
+ (#{bare-cont\ 2466}# #{var\ 2464}#)
+ (let ((#{kind\ 2473}# (car #{mod\ 2463}#))
+ (#{mod\ 2474}# (cdr #{mod\ 2463}#)))
+ (if (memv #{kind\ 2473}# (quote (public)))
+ (#{modref-cont\ 2465}#
+ #{mod\ 2474}#
+ #{var\ 2464}#
#t)
- (if (memv #{kind\ 11326}# (quote (private)))
+ (if (memv #{kind\ 2473}# (quote (private)))
(if (not (equal?
- #{mod\ 11327}#
+ #{mod\ 2474}#
(module-name (current-module))))
- (#{modref-cont\ 11318}#
- #{mod\ 11327}#
- #{var\ 11317}#
+ (#{modref-cont\ 2465}#
+ #{mod\ 2474}#
+ #{var\ 2464}#
#f)
- (#{bare-cont\ 11319}# #{var\ 11317}#))
- (if (memv #{kind\ 11326}# (quote (bare)))
- (#{bare-cont\ 11319}# #{var\ 11317}#)
- (if (memv #{kind\ 11326}# (quote (hygiene)))
+ (#{bare-cont\ 2466}# #{var\ 2464}#))
+ (if (memv #{kind\ 2473}# (quote (bare)))
+ (#{bare-cont\ 2466}# #{var\ 2464}#)
+ (if (memv #{kind\ 2473}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 11327}#
+ #{mod\ 2474}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 11327}#)
- #{var\ 11317}#)
+ (resolve-module #{mod\ 2474}#)
+ #{var\ 2464}#)
#f)
- (#{modref-cont\ 11318}#
- #{mod\ 11327}#
- #{var\ 11317}#
+ (#{modref-cont\ 2465}#
+ #{mod\ 2474}#
+ #{var\ 2464}#
#f)
- (#{bare-cont\ 11319}# #{var\ 11317}#))
+ (#{bare-cont\ 2466}# #{var\ 2464}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 11317}#
- #{mod\ 11327}#)))))))))
- (#{build-lexical-assignment\ 9006}#
- (lambda (#{source\ 11335}#
- #{name\ 11336}#
- #{var\ 11337}#
- #{exp\ 11338}#)
- (let ((#{atom-key\ 11345}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11345}# (quote (c)))
+ #{var\ 2464}#
+ #{mod\ 2474}#)))))))))
+ (#{build-lexical-assignment\ 152}#
+ (lambda (#{source\ 2482}#
+ #{name\ 2483}#
+ #{var\ 2484}#
+ #{exp\ 2485}#)
+ (let ((#{atom-key\ 2492}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2492}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 11335}#
- #{name\ 11336}#
- #{var\ 11337}#
- #{exp\ 11338}#)
- (#{decorate-source\ 8994}#
- (list (quote set!) #{var\ 11337}# #{exp\ 11338}#)
- #{source\ 11335}#)))))
- (#{build-lexical-reference\ 9004}#
- (lambda (#{type\ 11349}#
- #{source\ 11350}#
- #{name\ 11351}#
- #{var\ 11352}#)
- (let ((#{atom-key\ 11359}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11359}# (quote (c)))
+ #{source\ 2482}#
+ #{name\ 2483}#
+ #{var\ 2484}#
+ #{exp\ 2485}#)
+ (#{decorate-source\ 140}#
+ (list (quote set!) #{var\ 2484}# #{exp\ 2485}#)
+ #{source\ 2482}#)))))
+ (#{build-lexical-reference\ 150}#
+ (lambda (#{type\ 2496}#
+ #{source\ 2497}#
+ #{name\ 2498}#
+ #{var\ 2499}#)
+ (let ((#{atom-key\ 2506}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2506}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 11350}#
- #{name\ 11351}#
- #{var\ 11352}#)
- (#{decorate-source\ 8994}#
- #{var\ 11352}#
- #{source\ 11350}#)))))
- (#{build-dynlet\ 9002}#
- (lambda (#{source\ 11362}#
- #{fluids\ 11363}#
- #{vals\ 11364}#
- #{body\ 11365}#)
- (let ((#{atom-key\ 11372}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11372}# (quote (c)))
+ #{source\ 2497}#
+ #{name\ 2498}#
+ #{var\ 2499}#)
+ (#{decorate-source\ 140}#
+ #{var\ 2499}#
+ #{source\ 2497}#)))))
+ (#{build-dynlet\ 148}#
+ (lambda (#{source\ 2509}#
+ #{fluids\ 2510}#
+ #{vals\ 2511}#
+ #{body\ 2512}#)
+ (let ((#{atom-key\ 2519}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2519}# (quote (c)))
((@ (language tree-il) make-dynlet)
- #{source\ 11362}#
- #{fluids\ 11363}#
- #{vals\ 11364}#
- #{body\ 11365}#)
- (#{decorate-source\ 8994}#
+ #{source\ 2509}#
+ #{fluids\ 2510}#
+ #{vals\ 2511}#
+ #{body\ 2512}#)
+ (#{decorate-source\ 140}#
(list 'with-fluids
- (map list #{fluids\ 11363}# #{vals\ 11364}#)
- #{body\ 11365}#)
- #{source\ 11362}#)))))
- (#{build-conditional\ 9000}#
- (lambda (#{source\ 11376}#
- #{test-exp\ 11377}#
- #{then-exp\ 11378}#
- #{else-exp\ 11379}#)
- (let ((#{atom-key\ 11386}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11386}# (quote (c)))
+ (map list #{fluids\ 2510}# #{vals\ 2511}#)
+ #{body\ 2512}#)
+ #{source\ 2509}#)))))
+ (#{build-conditional\ 146}#
+ (lambda (#{source\ 2523}#
+ #{test-exp\ 2524}#
+ #{then-exp\ 2525}#
+ #{else-exp\ 2526}#)
+ (let ((#{atom-key\ 2533}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2533}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 11376}#
- #{test-exp\ 11377}#
- #{then-exp\ 11378}#
- #{else-exp\ 11379}#)
- (#{decorate-source\ 8994}#
- (if (equal? #{else-exp\ 11379}# (quote (if #f #f)))
+ #{source\ 2523}#
+ #{test-exp\ 2524}#
+ #{then-exp\ 2525}#
+ #{else-exp\ 2526}#)
+ (#{decorate-source\ 140}#
+ (if (equal? #{else-exp\ 2526}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 11377}#
- #{then-exp\ 11378}#)
+ #{test-exp\ 2524}#
+ #{then-exp\ 2525}#)
(list 'if
- #{test-exp\ 11377}#
- #{then-exp\ 11378}#
- #{else-exp\ 11379}#))
- #{source\ 11376}#)))))
- (#{build-application\ 8998}#
- (lambda (#{source\ 11391}#
- #{fun-exp\ 11392}#
- #{arg-exps\ 11393}#)
- (let ((#{atom-key\ 11399}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11399}# (quote (c)))
+ #{test-exp\ 2524}#
+ #{then-exp\ 2525}#
+ #{else-exp\ 2526}#))
+ #{source\ 2523}#)))))
+ (#{build-application\ 144}#
+ (lambda (#{source\ 2538}#
+ #{fun-exp\ 2539}#
+ #{arg-exps\ 2540}#)
+ (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2546}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 11391}#
- #{fun-exp\ 11392}#
- #{arg-exps\ 11393}#)
- (#{decorate-source\ 8994}#
- (cons #{fun-exp\ 11392}# #{arg-exps\ 11393}#)
- #{source\ 11391}#)))))
- (#{build-void\ 8996}#
- (lambda (#{source\ 11403}#)
- (let ((#{atom-key\ 11407}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11407}# (quote (c)))
+ #{source\ 2538}#
+ #{fun-exp\ 2539}#
+ #{arg-exps\ 2540}#)
+ (#{decorate-source\ 140}#
+ (cons #{fun-exp\ 2539}# #{arg-exps\ 2540}#)
+ #{source\ 2538}#)))))
+ (#{build-void\ 142}#
+ (lambda (#{source\ 2550}#)
+ (let ((#{atom-key\ 2554}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2554}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 11403}#)
- (#{decorate-source\ 8994}#
+ #{source\ 2550}#)
+ (#{decorate-source\ 140}#
'(if #f #f)
- #{source\ 11403}#)))))
- (#{decorate-source\ 8994}#
- (lambda (#{e\ 11410}# #{s\ 11411}#)
+ #{source\ 2550}#)))))
+ (#{decorate-source\ 140}#
+ (lambda (#{e\ 2557}# #{s\ 2558}#)
(begin
- (if (if (pair? #{e\ 11410}#) #{s\ 11411}# #f)
- (set-source-properties!
- #{e\ 11410}#
- #{s\ 11411}#))
- #{e\ 11410}#)))
- (#{get-global-definition-hook\ 8992}#
- (lambda (#{symbol\ 11416}# #{module\ 11417}#)
+ (if (if (pair? #{e\ 2557}#) #{s\ 2558}# #f)
+ (set-source-properties! #{e\ 2557}# #{s\ 2558}#))
+ #{e\ 2557}#)))
+ (#{get-global-definition-hook\ 138}#
+ (lambda (#{symbol\ 2563}# #{module\ 2564}#)
(begin
- (if (if (not #{module\ 11417}#) (current-module) #f)
+ (if (if (not #{module\ 2564}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 11416}#))
- (let ((#{v\ 11423}#
+ #{symbol\ 2563}#))
+ (let ((#{v\ 2570}#
(module-variable
- (if #{module\ 11417}#
- (resolve-module (cdr #{module\ 11417}#))
+ (if #{module\ 2564}#
+ (resolve-module (cdr #{module\ 2564}#))
(current-module))
- #{symbol\ 11416}#)))
- (if #{v\ 11423}#
- (if (variable-bound? #{v\ 11423}#)
- (let ((#{val\ 11428}# (variable-ref #{v\ 11423}#)))
- (if (macro? #{val\ 11428}#)
- (if (macro-type #{val\ 11428}#)
- (cons (macro-type #{val\ 11428}#)
- (macro-binding #{val\ 11428}#))
+ #{symbol\ 2563}#)))
+ (if #{v\ 2570}#
+ (if (variable-bound? #{v\ 2570}#)
+ (let ((#{val\ 2575}# (variable-ref #{v\ 2570}#)))
+ (if (macro? #{val\ 2575}#)
+ (if (macro-type #{val\ 2575}#)
+ (cons (macro-type #{val\ 2575}#)
+ (macro-binding #{val\ 2575}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 8990}#
- (lambda (#{symbol\ 11432}#
- #{type\ 11433}#
- #{val\ 11434}#)
+ (#{put-global-definition-hook\ 136}#
+ (lambda (#{symbol\ 2579}# #{type\ 2580}# #{val\ 2581}#)
(module-define!
(current-module)
- #{symbol\ 11432}#
+ #{symbol\ 2579}#
(make-syntax-transformer
- #{symbol\ 11432}#
- #{type\ 11433}#
- #{val\ 11434}#))))
- (#{local-eval-hook\ 8987}#
- (lambda (#{x\ 11438}# #{mod\ 11439}#)
+ #{symbol\ 2579}#
+ #{type\ 2580}#
+ #{val\ 2581}#))))
+ (#{local-eval-hook\ 133}#
+ (lambda (#{x\ 2585}# #{mod\ 2586}#)
(primitive-eval
- (list #{noexpand\ 8973}#
- (let ((#{atom-key\ 11445}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11445}# (quote (c)))
+ (list #{noexpand\ 119}#
+ (let ((#{atom-key\ 2592}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2592}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 11438}#)
- #{x\ 11438}#))))))
- (#{top-level-eval-hook\ 8985}#
- (lambda (#{x\ 11448}# #{mod\ 11449}#)
+ #{x\ 2585}#)
+ #{x\ 2585}#))))))
+ (#{top-level-eval-hook\ 131}#
+ (lambda (#{x\ 2595}# #{mod\ 2596}#)
(primitive-eval
- (list #{noexpand\ 8973}#
- (let ((#{atom-key\ 11455}#
- (fluid-ref #{*mode*\ 8975}#)))
- (if (memv #{atom-key\ 11455}# (quote (c)))
+ (list #{noexpand\ 119}#
+ (let ((#{atom-key\ 2602}# (fluid-ref #{*mode*\ 121}#)))
+ (if (memv #{atom-key\ 2602}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 11448}#)
- #{x\ 11448}#))))))
- (#{fx<\ 8983}# <)
- (#{fx=\ 8981}# =)
- (#{fx-\ 8979}# -)
- (#{fx+\ 8977}# +)
- (#{*mode*\ 8975}# (make-fluid))
- (#{noexpand\ 8973}# "noexpand"))
+ #{x\ 2595}#)
+ #{x\ 2595}#))))))
+ (#{fx<\ 129}# <)
+ (#{fx=\ 127}# =)
+ (#{fx-\ 125}# -)
+ (#{fx+\ 123}# +)
+ (#{*mode*\ 121}# (make-fluid))
+ (#{noexpand\ 119}# "noexpand"))
(begin
- (#{global-extend\ 9072}#
+ (#{global-extend\ 218}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 9072}#
+ (#{global-extend\ 218}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 9072}#
+ (#{global-extend\ 218}#
'core
'fluid-let-syntax
- (lambda (#{e\ 11458}#
- #{r\ 11459}#
- #{w\ 11460}#
- #{s\ 11461}#
- #{mod\ 11462}#)
- ((lambda (#{tmp\ 11468}#)
- ((lambda (#{tmp\ 11469}#)
- (if (if #{tmp\ 11469}#
- (apply (lambda (#{_\ 11475}#
- #{var\ 11476}#
- #{val\ 11477}#
- #{e1\ 11478}#
- #{e2\ 11479}#)
- (#{valid-bound-ids?\ 9139}# #{var\ 11476}#))
- #{tmp\ 11469}#)
+ (lambda (#{e\ 2605}#
+ #{r\ 2606}#
+ #{w\ 2607}#
+ #{s\ 2608}#
+ #{mod\ 2609}#)
+ ((lambda (#{tmp\ 2615}#)
+ ((lambda (#{tmp\ 2616}#)
+ (if (if #{tmp\ 2616}#
+ (apply (lambda (#{_\ 2622}#
+ #{var\ 2623}#
+ #{val\ 2624}#
+ #{e1\ 2625}#
+ #{e2\ 2626}#)
+ (#{valid-bound-ids?\ 285}# #{var\ 2623}#))
+ #{tmp\ 2616}#)
#f)
- (apply (lambda (#{_\ 11486}#
- #{var\ 11487}#
- #{val\ 11488}#
- #{e1\ 11489}#
- #{e2\ 11490}#)
- (let ((#{names\ 11492}#
- (map (lambda (#{x\ 11493}#)
- (#{id-var-name\ 9133}#
- #{x\ 11493}#
- #{w\ 11460}#))
- #{var\ 11487}#)))
+ (apply (lambda (#{_\ 2633}#
+ #{var\ 2634}#
+ #{val\ 2635}#
+ #{e1\ 2636}#
+ #{e2\ 2637}#)
+ (let ((#{names\ 2639}#
+ (map (lambda (#{x\ 2640}#)
+ (#{id-var-name\ 279}#
+ #{x\ 2640}#
+ #{w\ 2607}#))
+ #{var\ 2634}#)))
(begin
(for-each
- (lambda (#{id\ 11496}# #{n\ 11497}#)
- (let ((#{atom-key\ 11502}#
- (#{binding-type\ 9059}#
- (#{lookup\ 9070}#
- #{n\ 11497}#
- #{r\ 11459}#
- #{mod\ 11462}#))))
- (if (memv #{atom-key\ 11502}#
+ (lambda (#{id\ 2643}# #{n\ 2644}#)
+ (let ((#{atom-key\ 2649}#
+ (#{binding-type\ 205}#
+ (#{lookup\ 216}#
+ #{n\ 2644}#
+ #{r\ 2606}#
+ #{mod\ 2609}#))))
+ (if (memv #{atom-key\ 2649}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 11458}#
- (#{source-wrap\ 9147}#
- #{id\ 11496}#
- #{w\ 11460}#
- #{s\ 11461}#
- #{mod\ 11462}#)))))
- #{var\ 11487}#
- #{names\ 11492}#)
- (#{chi-body\ 9169}#
- (cons #{e1\ 11489}# #{e2\ 11490}#)
- (#{source-wrap\ 9147}#
- #{e\ 11458}#
- #{w\ 11460}#
- #{s\ 11461}#
- #{mod\ 11462}#)
- (#{extend-env\ 9064}#
- #{names\ 11492}#
- (let ((#{trans-r\ 11507}#
- (#{macros-only-env\ 9068}#
- #{r\ 11459}#)))
- (map (lambda (#{x\ 11508}#)
+ #{e\ 2605}#
+ (#{source-wrap\ 293}#
+ #{id\ 2643}#
+ #{w\ 2607}#
+ #{s\ 2608}#
+ #{mod\ 2609}#)))))
+ #{var\ 2634}#
+ #{names\ 2639}#)
+ (#{chi-body\ 315}#
+ (cons #{e1\ 2636}# #{e2\ 2637}#)
+ (#{source-wrap\ 293}#
+ #{e\ 2605}#
+ #{w\ 2607}#
+ #{s\ 2608}#
+ #{mod\ 2609}#)
+ (#{extend-env\ 210}#
+ #{names\ 2639}#
+ (let ((#{trans-r\ 2654}#
+ (#{macros-only-env\ 214}#
+ #{r\ 2606}#)))
+ (map (lambda (#{x\ 2655}#)
(cons 'macro
- (#{eval-local-transformer\
9173}#
- (#{chi\ 9161}#
- #{x\ 11508}#
- #{trans-r\ 11507}#
- #{w\ 11460}#
- #{mod\ 11462}#)
- #{mod\ 11462}#)))
- #{val\ 11488}#))
- #{r\ 11459}#)
- #{w\ 11460}#
- #{mod\ 11462}#))))
- #{tmp\ 11469}#)
- ((lambda (#{_\ 11513}#)
+ (#{eval-local-transformer\
319}#
+ (#{chi\ 307}#
+ #{x\ 2655}#
+ #{trans-r\ 2654}#
+ #{w\ 2607}#
+ #{mod\ 2609}#)
+ #{mod\ 2609}#)))
+ #{val\ 2635}#))
+ #{r\ 2606}#)
+ #{w\ 2607}#
+ #{mod\ 2609}#))))
+ #{tmp\ 2616}#)
+ ((lambda (#{_\ 2660}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 9147}#
- #{e\ 11458}#
- #{w\ 11460}#
- #{s\ 11461}#
- #{mod\ 11462}#)))
- #{tmp\ 11468}#)))
+ (#{source-wrap\ 293}#
+ #{e\ 2605}#
+ #{w\ 2607}#
+ #{s\ 2608}#
+ #{mod\ 2609}#)))
+ #{tmp\ 2615}#)))
($sc-dispatch
- #{tmp\ 11468}#
+ #{tmp\ 2615}#
'(any #(each (any any)) any . each-any))))
- #{e\ 11458}#)))
- (#{global-extend\ 9072}#
+ #{e\ 2605}#)))
+ (#{global-extend\ 218}#
'core
'quote
- (lambda (#{e\ 11514}#
- #{r\ 11515}#
- #{w\ 11516}#
- #{s\ 11517}#
- #{mod\ 11518}#)
- ((lambda (#{tmp\ 11524}#)
- ((lambda (#{tmp\ 11525}#)
- (if #{tmp\ 11525}#
- (apply (lambda (#{_\ 11528}# #{e\ 11529}#)
- (#{build-data\ 9026}#
- #{s\ 11517}#
- (#{strip\ 9187}# #{e\ 11529}# #{w\ 11516}#)))
- #{tmp\ 11525}#)
- ((lambda (#{_\ 11531}#)
+ (lambda (#{e\ 2661}#
+ #{r\ 2662}#
+ #{w\ 2663}#
+ #{s\ 2664}#
+ #{mod\ 2665}#)
+ ((lambda (#{tmp\ 2671}#)
+ ((lambda (#{tmp\ 2672}#)
+ (if #{tmp\ 2672}#
+ (apply (lambda (#{_\ 2675}# #{e\ 2676}#)
+ (#{build-data\ 172}#
+ #{s\ 2664}#
+ (#{strip\ 333}# #{e\ 2676}# #{w\ 2663}#)))
+ #{tmp\ 2672}#)
+ ((lambda (#{_\ 2678}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 9147}#
- #{e\ 11514}#
- #{w\ 11516}#
- #{s\ 11517}#
- #{mod\ 11518}#)))
- #{tmp\ 11524}#)))
- ($sc-dispatch #{tmp\ 11524}# (quote (any any)))))
- #{e\ 11514}#)))
- (#{global-extend\ 9072}#
+ (#{source-wrap\ 293}#
+ #{e\ 2661}#
+ #{w\ 2663}#
+ #{s\ 2664}#
+ #{mod\ 2665}#)))
+ #{tmp\ 2671}#)))
+ ($sc-dispatch #{tmp\ 2671}# (quote (any any)))))
+ #{e\ 2661}#)))
+ (#{global-extend\ 218}#
'core
'syntax
- (letrec ((#{regen\ 11547}#
- (lambda (#{x\ 11548}#)
- (let ((#{atom-key\ 11552}# (car #{x\ 11548}#)))
- (if (memv #{atom-key\ 11552}# (quote (ref)))
- (#{build-lexical-reference\ 9004}#
+ (letrec ((#{regen\ 2694}#
+ (lambda (#{x\ 2695}#)
+ (let ((#{atom-key\ 2699}# (car #{x\ 2695}#)))
+ (if (memv #{atom-key\ 2699}# (quote (ref)))
+ (#{build-lexical-reference\ 150}#
'value
#f
- (cadr #{x\ 11548}#)
- (cadr #{x\ 11548}#))
- (if (memv #{atom-key\ 11552}# (quote (primitive)))
- (#{build-primref\ 9024}# #f (cadr #{x\ 11548}#))
- (if (memv #{atom-key\ 11552}# (quote (quote)))
- (#{build-data\ 9026}# #f (cadr #{x\ 11548}#))
- (if (memv #{atom-key\ 11552}# (quote (lambda)))
- (if (list? (cadr #{x\ 11548}#))
- (#{build-simple-lambda\ 9018}#
+ (cadr #{x\ 2695}#)
+ (cadr #{x\ 2695}#))
+ (if (memv #{atom-key\ 2699}# (quote (primitive)))
+ (#{build-primref\ 170}# #f (cadr #{x\ 2695}#))
+ (if (memv #{atom-key\ 2699}# (quote (quote)))
+ (#{build-data\ 172}# #f (cadr #{x\ 2695}#))
+ (if (memv #{atom-key\ 2699}# (quote (lambda)))
+ (if (list? (cadr #{x\ 2695}#))
+ (#{build-simple-lambda\ 164}#
#f
- (cadr #{x\ 11548}#)
+ (cadr #{x\ 2695}#)
#f
- (cadr #{x\ 11548}#)
+ (cadr #{x\ 2695}#)
'()
- (#{regen\ 11547}# (caddr #{x\ 11548}#)))
- (error "how did we get here" #{x\ 11548}#))
- (#{build-application\ 8998}#
+ (#{regen\ 2694}# (caddr #{x\ 2695}#)))
+ (error "how did we get here" #{x\ 2695}#))
+ (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}#
- #f
- (car #{x\ 11548}#))
- (map #{regen\ 11547}#
- (cdr #{x\ 11548}#))))))))))
- (#{gen-vector\ 11545}#
- (lambda (#{x\ 11564}#)
- (if (eq? (car #{x\ 11564}#) (quote list))
- (cons (quote vector) (cdr #{x\ 11564}#))
- (if (eq? (car #{x\ 11564}#) (quote quote))
+ (#{build-primref\ 170}# #f (car #{x\ 2695}#))
+ (map #{regen\ 2694}#
+ (cdr #{x\ 2695}#))))))))))
+ (#{gen-vector\ 2692}#
+ (lambda (#{x\ 2711}#)
+ (if (eq? (car #{x\ 2711}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2711}#))
+ (if (eq? (car #{x\ 2711}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 11564}#)))
- (list (quote list->vector) #{x\ 11564}#)))))
- (#{gen-append\ 11543}#
- (lambda (#{x\ 11574}# #{y\ 11575}#)
- (if (equal? #{y\ 11575}# (quote (quote ())))
- #{x\ 11574}#
- (list (quote append) #{x\ 11574}# #{y\ 11575}#))))
- (#{gen-cons\ 11541}#
- (lambda (#{x\ 11579}# #{y\ 11580}#)
- (let ((#{atom-key\ 11585}# (car #{y\ 11580}#)))
- (if (memv #{atom-key\ 11585}# (quote (quote)))
- (if (eq? (car #{x\ 11579}#) (quote quote))
+ (list->vector (cadr #{x\ 2711}#)))
+ (list (quote list->vector) #{x\ 2711}#)))))
+ (#{gen-append\ 2690}#
+ (lambda (#{x\ 2721}# #{y\ 2722}#)
+ (if (equal? #{y\ 2722}# (quote (quote ())))
+ #{x\ 2721}#
+ (list (quote append) #{x\ 2721}# #{y\ 2722}#))))
+ (#{gen-cons\ 2688}#
+ (lambda (#{x\ 2726}# #{y\ 2727}#)
+ (let ((#{atom-key\ 2732}# (car #{y\ 2727}#)))
+ (if (memv #{atom-key\ 2732}# (quote (quote)))
+ (if (eq? (car #{x\ 2726}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 11579}#)
- (cadr #{y\ 11580}#)))
- (if (eq? (cadr #{y\ 11580}#) (quote ()))
- (list (quote list) #{x\ 11579}#)
- (list (quote cons) #{x\ 11579}# #{y\ 11580}#)))
- (if (memv #{atom-key\ 11585}# (quote (list)))
+ (cons (cadr #{x\ 2726}#) (cadr #{y\ 2727}#)))
+ (if (eq? (cadr #{y\ 2727}#) (quote ()))
+ (list (quote list) #{x\ 2726}#)
+ (list (quote cons) #{x\ 2726}# #{y\ 2727}#)))
+ (if (memv #{atom-key\ 2732}# (quote (list)))
(cons 'list
- (cons #{x\ 11579}# (cdr #{y\ 11580}#)))
- (list (quote cons) #{x\ 11579}# #{y\ 11580}#))))))
- (#{gen-map\ 11539}#
- (lambda (#{e\ 11594}# #{map-env\ 11595}#)
- (let ((#{formals\ 11600}# (map cdr #{map-env\ 11595}#))
- (#{actuals\ 11601}#
- (map (lambda (#{x\ 11602}#)
- (list (quote ref) (car #{x\ 11602}#)))
- #{map-env\ 11595}#)))
- (if (eq? (car #{e\ 11594}#) (quote ref))
- (car #{actuals\ 11601}#)
+ (cons #{x\ 2726}# (cdr #{y\ 2727}#)))
+ (list (quote cons) #{x\ 2726}# #{y\ 2727}#))))))
+ (#{gen-map\ 2686}#
+ (lambda (#{e\ 2741}# #{map-env\ 2742}#)
+ (let ((#{formals\ 2747}# (map cdr #{map-env\ 2742}#))
+ (#{actuals\ 2748}#
+ (map (lambda (#{x\ 2749}#)
+ (list (quote ref) (car #{x\ 2749}#)))
+ #{map-env\ 2742}#)))
+ (if (eq? (car #{e\ 2741}#) (quote ref))
+ (car #{actuals\ 2748}#)
(if (and-map
- (lambda (#{x\ 11609}#)
- (if (eq? (car #{x\ 11609}#) (quote ref))
- (memq (cadr #{x\ 11609}#)
- #{formals\ 11600}#)
+ (lambda (#{x\ 2756}#)
+ (if (eq? (car #{x\ 2756}#) (quote ref))
+ (memq (cadr #{x\ 2756}#) #{formals\ 2747}#)
#f))
- (cdr #{e\ 11594}#))
+ (cdr #{e\ 2741}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 11594}#))
- (map (let ((#{r\ 11615}#
+ (car #{e\ 2741}#))
+ (map (let ((#{r\ 2762}#
(map cons
- #{formals\ 11600}#
- #{actuals\ 11601}#)))
- (lambda (#{x\ 11616}#)
- (cdr (assq (cadr #{x\ 11616}#)
- #{r\ 11615}#))))
- (cdr #{e\ 11594}#))))
+ #{formals\ 2747}#
+ #{actuals\ 2748}#)))
+ (lambda (#{x\ 2763}#)
+ (cdr (assq (cadr #{x\ 2763}#)
+ #{r\ 2762}#))))
+ (cdr #{e\ 2741}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 11600}#
- #{e\ 11594}#)
- #{actuals\ 11601}#)))))))
- (#{gen-mappend\ 11537}#
- (lambda (#{e\ 11620}# #{map-env\ 11621}#)
+ #{formals\ 2747}#
+ #{e\ 2741}#)
+ #{actuals\ 2748}#)))))))
+ (#{gen-mappend\ 2684}#
+ (lambda (#{e\ 2767}# #{map-env\ 2768}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 11539}#
- #{e\ 11620}#
- #{map-env\ 11621}#))))
- (#{gen-ref\ 11535}#
- (lambda (#{src\ 11625}#
- #{var\ 11626}#
- #{level\ 11627}#
- #{maps\ 11628}#)
- (if (#{fx=\ 8981}# #{level\ 11627}# 0)
- (values #{var\ 11626}# #{maps\ 11628}#)
- (if (null? #{maps\ 11628}#)
+ (#{gen-map\ 2686}# #{e\ 2767}# #{map-env\ 2768}#))))
+ (#{gen-ref\ 2682}#
+ (lambda (#{src\ 2772}#
+ #{var\ 2773}#
+ #{level\ 2774}#
+ #{maps\ 2775}#)
+ (if (#{fx=\ 127}# #{level\ 2774}# 0)
+ (values #{var\ 2773}# #{maps\ 2775}#)
+ (if (null? #{maps\ 2775}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 11625}#)
+ #{src\ 2772}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 11535}#
- #{src\ 11625}#
- #{var\ 11626}#
- (#{fx-\ 8979}# #{level\ 11627}# 1)
- (cdr #{maps\ 11628}#)))
- (lambda (#{outer-var\ 11633}# #{outer-maps\ 11634}#)
- (let ((#{b\ 11638}#
- (assq #{outer-var\ 11633}#
- (car #{maps\ 11628}#))))
- (if #{b\ 11638}#
- (values (cdr #{b\ 11638}#) #{maps\ 11628}#)
- (let ((#{inner-var\ 11640}#
- (#{gen-var\ 9189}# (quote tmp))))
+ (#{gen-ref\ 2682}#
+ #{src\ 2772}#
+ #{var\ 2773}#
+ (#{fx-\ 125}# #{level\ 2774}# 1)
+ (cdr #{maps\ 2775}#)))
+ (lambda (#{outer-var\ 2780}# #{outer-maps\ 2781}#)
+ (let ((#{b\ 2785}#
+ (assq #{outer-var\ 2780}#
+ (car #{maps\ 2775}#))))
+ (if #{b\ 2785}#
+ (values (cdr #{b\ 2785}#) #{maps\ 2775}#)
+ (let ((#{inner-var\ 2787}#
+ (#{gen-var\ 335}# (quote tmp))))
(values
- #{inner-var\ 11640}#
- (cons (cons (cons #{outer-var\ 11633}#
- #{inner-var\ 11640}#)
- (car #{maps\ 11628}#))
- #{outer-maps\ 11634}#)))))))))))
- (#{gen-syntax\ 11533}#
- (lambda (#{src\ 11641}#
- #{e\ 11642}#
- #{r\ 11643}#
- #{maps\ 11644}#
- #{ellipsis?\ 11645}#
- #{mod\ 11646}#)
- (if (#{id?\ 9076}# #{e\ 11642}#)
- (let ((#{label\ 11654}#
- (#{id-var-name\ 9133}#
- #{e\ 11642}#
+ #{inner-var\ 2787}#
+ (cons (cons (cons #{outer-var\ 2780}#
+ #{inner-var\ 2787}#)
+ (car #{maps\ 2775}#))
+ #{outer-maps\ 2781}#)))))))))))
+ (#{gen-syntax\ 2680}#
+ (lambda (#{src\ 2788}#
+ #{e\ 2789}#
+ #{r\ 2790}#
+ #{maps\ 2791}#
+ #{ellipsis?\ 2792}#
+ #{mod\ 2793}#)
+ (if (#{id?\ 222}# #{e\ 2789}#)
+ (let ((#{label\ 2801}#
+ (#{id-var-name\ 279}#
+ #{e\ 2789}#
'(()))))
- (let ((#{b\ 11657}#
- (#{lookup\ 9070}#
- #{label\ 11654}#
- #{r\ 11643}#
- #{mod\ 11646}#)))
- (if (eq? (#{binding-type\ 9059}# #{b\ 11657}#)
+ (let ((#{b\ 2804}#
+ (#{lookup\ 216}#
+ #{label\ 2801}#
+ #{r\ 2790}#
+ #{mod\ 2793}#)))
+ (if (eq? (#{binding-type\ 205}# #{b\ 2804}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 11659}#
- (#{binding-value\ 9061}#
- #{b\ 11657}#)))
- (#{gen-ref\ 11535}#
- #{src\ 11641}#
- (car #{var.lev\ 11659}#)
- (cdr #{var.lev\ 11659}#)
- #{maps\ 11644}#)))
- (lambda (#{var\ 11660}# #{maps\ 11661}#)
+ (let ((#{var.lev\ 2806}#
+ (#{binding-value\ 207}# #{b\ 2804}#)))
+ (#{gen-ref\ 2682}#
+ #{src\ 2788}#
+ (car #{var.lev\ 2806}#)
+ (cdr #{var.lev\ 2806}#)
+ #{maps\ 2791}#)))
+ (lambda (#{var\ 2807}# #{maps\ 2808}#)
(values
- (list (quote ref) #{var\ 11660}#)
- #{maps\ 11661}#)))
- (if (#{ellipsis?\ 11645}# #{e\ 11642}#)
+ (list (quote ref) #{var\ 2807}#)
+ #{maps\ 2808}#)))
+ (if (#{ellipsis?\ 2792}# #{e\ 2789}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 11641}#)
+ #{src\ 2788}#)
(values
- (list (quote quote) #{e\ 11642}#)
- #{maps\ 11644}#)))))
- ((lambda (#{tmp\ 11666}#)
- ((lambda (#{tmp\ 11667}#)
- (if (if #{tmp\ 11667}#
- (apply (lambda (#{dots\ 11670}#
- #{e\ 11671}#)
- (#{ellipsis?\ 11645}#
- #{dots\ 11670}#))
- #{tmp\ 11667}#)
+ (list (quote quote) #{e\ 2789}#)
+ #{maps\ 2791}#)))))
+ ((lambda (#{tmp\ 2813}#)
+ ((lambda (#{tmp\ 2814}#)
+ (if (if #{tmp\ 2814}#
+ (apply (lambda (#{dots\ 2817}# #{e\ 2818}#)
+ (#{ellipsis?\ 2792}#
+ #{dots\ 2817}#))
+ #{tmp\ 2814}#)
#f)
- (apply (lambda (#{dots\ 11674}# #{e\ 11675}#)
- (#{gen-syntax\ 11533}#
- #{src\ 11641}#
- #{e\ 11675}#
- #{r\ 11643}#
- #{maps\ 11644}#
- (lambda (#{x\ 11676}#) #f)
- #{mod\ 11646}#))
- #{tmp\ 11667}#)
- ((lambda (#{tmp\ 11678}#)
- (if (if #{tmp\ 11678}#
- (apply (lambda (#{x\ 11682}#
- #{dots\ 11683}#
- #{y\ 11684}#)
- (#{ellipsis?\ 11645}#
- #{dots\ 11683}#))
- #{tmp\ 11678}#)
+ (apply (lambda (#{dots\ 2821}# #{e\ 2822}#)
+ (#{gen-syntax\ 2680}#
+ #{src\ 2788}#
+ #{e\ 2822}#
+ #{r\ 2790}#
+ #{maps\ 2791}#
+ (lambda (#{x\ 2823}#) #f)
+ #{mod\ 2793}#))
+ #{tmp\ 2814}#)
+ ((lambda (#{tmp\ 2825}#)
+ (if (if #{tmp\ 2825}#
+ (apply (lambda (#{x\ 2829}#
+ #{dots\ 2830}#
+ #{y\ 2831}#)
+ (#{ellipsis?\ 2792}#
+ #{dots\ 2830}#))
+ #{tmp\ 2825}#)
#f)
- (apply (lambda (#{x\ 11688}#
- #{dots\ 11689}#
- #{y\ 11690}#)
- (letrec ((#{f\ 11694}#
- (lambda (#{y\ 11695}#
- #{k\ 11696}#)
- ((lambda (#{tmp\
11703}#)
- ((lambda (#{tmp\
11704}#)
- (if (if #{tmp\
11704}#
- (apply
(lambda (#{dots\ 11707}#
-
#{y\ 11708}#)
-
(#{ellipsis?\ 11645}#
-
#{dots\ 11707}#))
-
#{tmp\ 11704}#)
+ (apply (lambda (#{x\ 2835}#
+ #{dots\ 2836}#
+ #{y\ 2837}#)
+ (letrec ((#{f\ 2841}#
+ (lambda (#{y\ 2842}#
+ #{k\ 2843}#)
+ ((lambda (#{tmp\
2850}#)
+ ((lambda (#{tmp\
2851}#)
+ (if (if #{tmp\
2851}#
+ (apply
(lambda (#{dots\ 2854}#
+
#{y\ 2855}#)
+
(#{ellipsis?\ 2792}#
+
#{dots\ 2854}#))
+
#{tmp\ 2851}#)
#f)
- (apply
(lambda (#{dots\ 11711}#
-
#{y\ 11712}#)
-
(#{f\ 11694}#
-
#{y\ 11712}#
-
(lambda (#{maps\ 11713}#)
+ (apply
(lambda (#{dots\ 2858}#
+
#{y\ 2859}#)
+
(#{f\ 2841}#
+
#{y\ 2859}#
+
(lambda (#{maps\ 2860}#)
(call-with-values
(lambda ()
-
(#{k\ 11696}#
+
(#{k\ 2843}#
(cons '()
-
#{maps\ 11713}#)))
-
(lambda (#{x\ 11715}#
-
#{maps\ 11716}#)
-
(if (null? (car #{maps\ 11716}#))
+
#{maps\ 2860}#)))
+
(lambda (#{x\ 2862}#
+
#{maps\ 2863}#)
+
(if (null? (car #{maps\ 2863}#))
(syntax-violation
'syntax
"extra ellipsis"
-
#{src\ 11641}#)
+
#{src\ 2788}#)
(values
-
(#{gen-mappend\ 11537}#
-
#{x\ 11715}#
-
(car #{maps\ 11716}#))
-
(cdr #{maps\ 11716}#))))))))
-
#{tmp\ 11704}#)
- ((lambda
(#{_\ 11720}#)
+
(#{gen-mappend\ 2684}#
+
#{x\ 2862}#
+
(car #{maps\ 2863}#))
+
(cdr #{maps\ 2863}#))))))))
+
#{tmp\ 2851}#)
+ ((lambda
(#{_\ 2867}#)
(call-with-values
(lambda
()
-
(#{gen-syntax\ 11533}#
-
#{src\ 11641}#
-
#{y\ 11695}#
-
#{r\ 11643}#
-
#{maps\ 11644}#
-
#{ellipsis?\ 11645}#
-
#{mod\ 11646}#))
- (lambda
(#{y\ 11721}#
-
#{maps\ 11722}#)
+
(#{gen-syntax\ 2680}#
+
#{src\ 2788}#
+
#{y\ 2842}#
+
#{r\ 2790}#
+
#{maps\ 2791}#
+
#{ellipsis?\ 2792}#
+
#{mod\ 2793}#))
+ (lambda
(#{y\ 2868}#
+
#{maps\ 2869}#)
(call-with-values
(lambda ()
-
(#{k\ 11696}#
-
#{maps\ 11722}#))
-
(lambda (#{x\ 11725}#
-
#{maps\ 11726}#)
+
(#{k\ 2843}#
+
#{maps\ 2869}#))
+
(lambda (#{x\ 2872}#
+
#{maps\ 2873}#)
(values
-
(#{gen-append\ 11543}#
-
#{x\ 11725}#
-
#{y\ 11721}#)
-
#{maps\ 11726}#))))))
- #{tmp\
11703}#)))
+
(#{gen-append\ 2690}#
+
#{x\ 2872}#
+
#{y\ 2868}#)
+
#{maps\ 2873}#))))))
+ #{tmp\
2850}#)))
($sc-dispatch
- #{tmp\ 11703}#
+ #{tmp\ 2850}#
'(any . any))))
- #{y\ 11695}#))))
- (#{f\ 11694}#
- #{y\ 11690}#
- (lambda (#{maps\ 11697}#)
+ #{y\ 2842}#))))
+ (#{f\ 2841}#
+ #{y\ 2837}#
+ (lambda (#{maps\ 2844}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 11533}#
- #{src\ 11641}#
- #{x\ 11688}#
- #{r\ 11643}#
+ (#{gen-syntax\ 2680}#
+ #{src\ 2788}#
+ #{x\ 2835}#
+ #{r\ 2790}#
(cons '()
- #{maps\ 11697}#)
- #{ellipsis?\ 11645}#
- #{mod\ 11646}#))
- (lambda (#{x\ 11699}#
- #{maps\ 11700}#)
- (if (null? (car #{maps\
11700}#))
+ #{maps\ 2844}#)
+ #{ellipsis?\ 2792}#
+ #{mod\ 2793}#))
+ (lambda (#{x\ 2846}#
+ #{maps\ 2847}#)
+ (if (null? (car #{maps\
2847}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 11641}#)
+ #{src\ 2788}#)
(values
- (#{gen-map\ 11539}#
- #{x\ 11699}#
- (car #{maps\
11700}#))
- (cdr #{maps\
11700}#)))))))))
- #{tmp\ 11678}#)
- ((lambda (#{tmp\ 11729}#)
- (if #{tmp\ 11729}#
- (apply (lambda (#{x\ 11732}#
- #{y\ 11733}#)
+ (#{gen-map\ 2686}#
+ #{x\ 2846}#
+ (car #{maps\
2847}#))
+ (cdr #{maps\
2847}#)))))))))
+ #{tmp\ 2825}#)
+ ((lambda (#{tmp\ 2876}#)
+ (if #{tmp\ 2876}#
+ (apply (lambda (#{x\ 2879}#
+ #{y\ 2880}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 11533}#
- #{src\ 11641}#
- #{x\ 11732}#
- #{r\ 11643}#
- #{maps\ 11644}#
- #{ellipsis?\ 11645}#
- #{mod\ 11646}#))
- (lambda (#{x\ 11734}#
- #{maps\ 11735}#)
+ (#{gen-syntax\ 2680}#
+ #{src\ 2788}#
+ #{x\ 2879}#
+ #{r\ 2790}#
+ #{maps\ 2791}#
+ #{ellipsis?\ 2792}#
+ #{mod\ 2793}#))
+ (lambda (#{x\ 2881}#
+ #{maps\ 2882}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
11533}#
- #{src\ 11641}#
- #{y\ 11733}#
- #{r\ 11643}#
- #{maps\ 11735}#
- #{ellipsis?\
11645}#
- #{mod\ 11646}#))
- (lambda (#{y\ 11738}#
- #{maps\
11739}#)
+ (#{gen-syntax\ 2680}#
+ #{src\ 2788}#
+ #{y\ 2880}#
+ #{r\ 2790}#
+ #{maps\ 2882}#
+ #{ellipsis?\ 2792}#
+ #{mod\ 2793}#))
+ (lambda (#{y\ 2885}#
+ #{maps\
2886}#)
(values
- (#{gen-cons\
11541}#
- #{x\ 11734}#
- #{y\ 11738}#)
- #{maps\
11739}#))))))
- #{tmp\ 11729}#)
- ((lambda (#{tmp\ 11742}#)
- (if #{tmp\ 11742}#
- (apply (lambda (#{e1\ 11745}#
- #{e2\ 11746}#)
+ (#{gen-cons\ 2688}#
+ #{x\ 2881}#
+ #{y\ 2885}#)
+ #{maps\
2886}#))))))
+ #{tmp\ 2876}#)
+ ((lambda (#{tmp\ 2889}#)
+ (if #{tmp\ 2889}#
+ (apply (lambda (#{e1\ 2892}#
+ #{e2\ 2893}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
11533}#
- #{src\ 11641}#
- (cons #{e1\
11745}#
- #{e2\
11746}#)
- #{r\ 11643}#
- #{maps\ 11644}#
- #{ellipsis?\
11645}#
- #{mod\ 11646}#))
- (lambda (#{e\ 11748}#
- #{maps\
11749}#)
+ (#{gen-syntax\
2680}#
+ #{src\ 2788}#
+ (cons #{e1\ 2892}#
+ #{e2\
2893}#)
+ #{r\ 2790}#
+ #{maps\ 2791}#
+ #{ellipsis?\
2792}#
+ #{mod\ 2793}#))
+ (lambda (#{e\ 2895}#
+ #{maps\
2896}#)
(values
- (#{gen-vector\
11545}#
- #{e\ 11748}#)
- #{maps\
11749}#))))
- #{tmp\ 11742}#)
- ((lambda (#{_\ 11753}#)
+ (#{gen-vector\
2692}#
+ #{e\ 2895}#)
+ #{maps\ 2896}#))))
+ #{tmp\ 2889}#)
+ ((lambda (#{_\ 2900}#)
(values
(list 'quote
- #{e\ 11642}#)
- #{maps\ 11644}#))
- #{tmp\ 11666}#)))
+ #{e\ 2789}#)
+ #{maps\ 2791}#))
+ #{tmp\ 2813}#)))
($sc-dispatch
- #{tmp\ 11666}#
+ #{tmp\ 2813}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 11666}#
+ #{tmp\ 2813}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 11666}#
+ #{tmp\ 2813}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 11666}# (quote (any any)))))
- #{e\ 11642}#)))))
- (lambda (#{e\ 11755}#
- #{r\ 11756}#
- #{w\ 11757}#
- #{s\ 11758}#
- #{mod\ 11759}#)
- (let ((#{e\ 11766}#
- (#{source-wrap\ 9147}#
- #{e\ 11755}#
- #{w\ 11757}#
- #{s\ 11758}#
- #{mod\ 11759}#)))
- ((lambda (#{tmp\ 11767}#)
- ((lambda (#{tmp\ 11768}#)
- (if #{tmp\ 11768}#
- (apply (lambda (#{_\ 11771}# #{x\ 11772}#)
+ ($sc-dispatch #{tmp\ 2813}# (quote (any any)))))
+ #{e\ 2789}#)))))
+ (lambda (#{e\ 2902}#
+ #{r\ 2903}#
+ #{w\ 2904}#
+ #{s\ 2905}#
+ #{mod\ 2906}#)
+ (let ((#{e\ 2913}#
+ (#{source-wrap\ 293}#
+ #{e\ 2902}#
+ #{w\ 2904}#
+ #{s\ 2905}#
+ #{mod\ 2906}#)))
+ ((lambda (#{tmp\ 2914}#)
+ ((lambda (#{tmp\ 2915}#)
+ (if #{tmp\ 2915}#
+ (apply (lambda (#{_\ 2918}# #{x\ 2919}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 11533}#
- #{e\ 11766}#
- #{x\ 11772}#
- #{r\ 11756}#
+ (#{gen-syntax\ 2680}#
+ #{e\ 2913}#
+ #{x\ 2919}#
+ #{r\ 2903}#
'()
- #{ellipsis?\ 9177}#
- #{mod\ 11759}#))
- (lambda (#{e\ 11773}# #{maps\ 11774}#)
- (#{regen\ 11547}# #{e\ 11773}#))))
- #{tmp\ 11768}#)
- ((lambda (#{_\ 11778}#)
+ #{ellipsis?\ 323}#
+ #{mod\ 2906}#))
+ (lambda (#{e\ 2920}# #{maps\ 2921}#)
+ (#{regen\ 2694}# #{e\ 2920}#))))
+ #{tmp\ 2915}#)
+ ((lambda (#{_\ 2925}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 11766}#))
- #{tmp\ 11767}#)))
- ($sc-dispatch #{tmp\ 11767}# (quote (any any)))))
- #{e\ 11766}#)))))
- (#{global-extend\ 9072}#
+ #{e\ 2913}#))
+ #{tmp\ 2914}#)))
+ ($sc-dispatch #{tmp\ 2914}# (quote (any any)))))
+ #{e\ 2913}#)))))
+ (#{global-extend\ 218}#
'core
'lambda
- (lambda (#{e\ 11779}#
- #{r\ 11780}#
- #{w\ 11781}#
- #{s\ 11782}#
- #{mod\ 11783}#)
- ((lambda (#{tmp\ 11789}#)
- ((lambda (#{tmp\ 11790}#)
- (if #{tmp\ 11790}#
- (apply (lambda (#{_\ 11795}#
- #{args\ 11796}#
- #{e1\ 11797}#
- #{e2\ 11798}#)
+ (lambda (#{e\ 2926}#
+ #{r\ 2927}#
+ #{w\ 2928}#
+ #{s\ 2929}#
+ #{mod\ 2930}#)
+ ((lambda (#{tmp\ 2936}#)
+ ((lambda (#{tmp\ 2937}#)
+ (if #{tmp\ 2937}#
+ (apply (lambda (#{_\ 2942}#
+ #{args\ 2943}#
+ #{e1\ 2944}#
+ #{e2\ 2945}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 9179}# #{args\ 11796}#))
- (lambda (#{req\ 11799}#
- #{opt\ 11800}#
- #{rest\ 11801}#
- #{kw\ 11802}#)
- (letrec ((#{lp\ 11810}#
- (lambda (#{body\ 11811}#
- #{meta\ 11812}#)
- ((lambda (#{tmp\ 11814}#)
- ((lambda (#{tmp\ 11815}#)
- (if (if #{tmp\ 11815}#
- (apply (lambda
(#{docstring\ 11819}#
- #{e1\
11820}#
- #{e2\
11821}#)
+ (#{lambda-formals\ 325}# #{args\ 2943}#))
+ (lambda (#{req\ 2946}#
+ #{opt\ 2947}#
+ #{rest\ 2948}#
+ #{kw\ 2949}#)
+ (letrec ((#{lp\ 2957}#
+ (lambda (#{body\ 2958}#
+ #{meta\ 2959}#)
+ ((lambda (#{tmp\ 2961}#)
+ ((lambda (#{tmp\ 2962}#)
+ (if (if #{tmp\ 2962}#
+ (apply (lambda
(#{docstring\ 2966}#
+ #{e1\
2967}#
+ #{e2\
2968}#)
(string?
(syntax->datum
-
#{docstring\ 11819}#)))
- #{tmp\ 11815}#)
+
#{docstring\ 2966}#)))
+ #{tmp\ 2962}#)
#f)
- (apply (lambda
(#{docstring\ 11825}#
- #{e1\
11826}#
- #{e2\
11827}#)
- (#{lp\ 11810}#
- (cons #{e1\
11826}#
- #{e2\
11827}#)
+ (apply (lambda
(#{docstring\ 2972}#
+ #{e1\
2973}#
+ #{e2\
2974}#)
+ (#{lp\ 2957}#
+ (cons #{e1\
2973}#
+ #{e2\
2974}#)
(append
- #{meta\
11812}#
+ #{meta\ 2959}#
(list (cons
'documentation
(syntax->datum
-
#{docstring\ 11825}#))))))
- #{tmp\ 11815}#)
- ((lambda (#{tmp\ 11830}#)
- (if #{tmp\ 11830}#
- (apply (lambda (#{k\
11835}#
- #{v\
11836}#
- #{e1\
11837}#
- #{e2\
11838}#)
- (#{lp\
11810}#
- (cons
#{e1\ 11837}#
-
#{e2\ 11838}#)
+
#{docstring\ 2972}#))))))
+ #{tmp\ 2962}#)
+ ((lambda (#{tmp\ 2977}#)
+ (if #{tmp\ 2977}#
+ (apply (lambda (#{k\
2982}#
+ #{v\
2983}#
+ #{e1\
2984}#
+ #{e2\
2985}#)
+ (#{lp\ 2957}#
+ (cons
#{e1\ 2984}#
+
#{e2\ 2985}#)
(append
- #{meta\
11812}#
+ #{meta\
2959}#
(syntax->datum
(map
cons
-
#{k\ 11835}#
-
#{v\ 11836}#)))))
- #{tmp\ 11830}#)
- ((lambda (#{_\
11843}#)
-
(#{chi-simple-lambda\ 9181}#
- #{e\ 11779}#
- #{r\ 11780}#
- #{w\ 11781}#
- #{s\ 11782}#
- #{mod\ 11783}#
- #{req\ 11799}#
- #{rest\ 11801}#
- #{meta\ 11812}#
- #{body\ 11811}#))
- #{tmp\ 11814}#)))
+
#{k\ 2982}#
+
#{v\ 2983}#)))))
+ #{tmp\ 2977}#)
+ ((lambda (#{_\ 2990}#)
+
(#{chi-simple-lambda\ 327}#
+ #{e\ 2926}#
+ #{r\ 2927}#
+ #{w\ 2928}#
+ #{s\ 2929}#
+ #{mod\ 2930}#
+ #{req\ 2946}#
+ #{rest\ 2948}#
+ #{meta\ 2959}#
+ #{body\ 2958}#))
+ #{tmp\ 2961}#)))
($sc-dispatch
- #{tmp\ 11814}#
+ #{tmp\ 2961}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 11814}#
+ #{tmp\ 2961}#
'(any any . each-any))))
- #{body\ 11811}#))))
- (#{lp\ 11810}#
- (cons #{e1\ 11797}# #{e2\ 11798}#)
+ #{body\ 2958}#))))
+ (#{lp\ 2957}#
+ (cons #{e1\ 2944}# #{e2\ 2945}#)
'())))))
- #{tmp\ 11790}#)
- ((lambda (#{_\ 11845}#)
+ #{tmp\ 2937}#)
+ ((lambda (#{_\ 2992}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 11779}#))
- #{tmp\ 11789}#)))
+ #{e\ 2926}#))
+ #{tmp\ 2936}#)))
($sc-dispatch
- #{tmp\ 11789}#
+ #{tmp\ 2936}#
'(any any any . each-any))))
- #{e\ 11779}#)))
- (#{global-extend\ 9072}#
+ #{e\ 2926}#)))
+ (#{global-extend\ 218}#
'core
'lambda*
- (lambda (#{e\ 11846}#
- #{r\ 11847}#
- #{w\ 11848}#
- #{s\ 11849}#
- #{mod\ 11850}#)
- ((lambda (#{tmp\ 11856}#)
- ((lambda (#{tmp\ 11857}#)
- (if #{tmp\ 11857}#
- (apply (lambda (#{_\ 11862}#
- #{args\ 11863}#
- #{e1\ 11864}#
- #{e2\ 11865}#)
+ (lambda (#{e\ 2993}#
+ #{r\ 2994}#
+ #{w\ 2995}#
+ #{s\ 2996}#
+ #{mod\ 2997}#)
+ ((lambda (#{tmp\ 3003}#)
+ ((lambda (#{tmp\ 3004}#)
+ (if #{tmp\ 3004}#
+ (apply (lambda (#{_\ 3009}#
+ #{args\ 3010}#
+ #{e1\ 3011}#
+ #{e2\ 3012}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 9185}#
- #{e\ 11846}#
- #{r\ 11847}#
- #{w\ 11848}#
- #{s\ 11849}#
- #{mod\ 11850}#
- #{lambda*-formals\ 9183}#
- (list (cons #{args\ 11863}#
- (cons #{e1\ 11864}#
- #{e2\ 11865}#)))))
- (lambda (#{meta\ 11867}# #{lcase\ 11868}#)
- (#{build-case-lambda\ 9020}#
- #{s\ 11849}#
- #{meta\ 11867}#
- #{lcase\ 11868}#))))
- #{tmp\ 11857}#)
- ((lambda (#{_\ 11872}#)
+ (#{chi-lambda-case\ 331}#
+ #{e\ 2993}#
+ #{r\ 2994}#
+ #{w\ 2995}#
+ #{s\ 2996}#
+ #{mod\ 2997}#
+ #{lambda*-formals\ 329}#
+ (list (cons #{args\ 3010}#
+ (cons #{e1\ 3011}#
+ #{e2\ 3012}#)))))
+ (lambda (#{meta\ 3014}# #{lcase\ 3015}#)
+ (#{build-case-lambda\ 166}#
+ #{s\ 2996}#
+ #{meta\ 3014}#
+ #{lcase\ 3015}#))))
+ #{tmp\ 3004}#)
+ ((lambda (#{_\ 3019}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 11846}#))
- #{tmp\ 11856}#)))
+ #{e\ 2993}#))
+ #{tmp\ 3003}#)))
($sc-dispatch
- #{tmp\ 11856}#
+ #{tmp\ 3003}#
'(any any any . each-any))))
- #{e\ 11846}#)))
- (#{global-extend\ 9072}#
+ #{e\ 2993}#)))
+ (#{global-extend\ 218}#
'core
'case-lambda
- (lambda (#{e\ 11873}#
- #{r\ 11874}#
- #{w\ 11875}#
- #{s\ 11876}#
- #{mod\ 11877}#)
- ((lambda (#{tmp\ 11883}#)
- ((lambda (#{tmp\ 11884}#)
- (if #{tmp\ 11884}#
- (apply (lambda (#{_\ 11892}#
- #{args\ 11893}#
- #{e1\ 11894}#
- #{e2\ 11895}#
- #{args*\ 11896}#
- #{e1*\ 11897}#
- #{e2*\ 11898}#)
+ (lambda (#{e\ 3020}#
+ #{r\ 3021}#
+ #{w\ 3022}#
+ #{s\ 3023}#
+ #{mod\ 3024}#)
+ ((lambda (#{tmp\ 3030}#)
+ ((lambda (#{tmp\ 3031}#)
+ (if #{tmp\ 3031}#
+ (apply (lambda (#{_\ 3039}#
+ #{args\ 3040}#
+ #{e1\ 3041}#
+ #{e2\ 3042}#
+ #{args*\ 3043}#
+ #{e1*\ 3044}#
+ #{e2*\ 3045}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 9185}#
- #{e\ 11873}#
- #{r\ 11874}#
- #{w\ 11875}#
- #{s\ 11876}#
- #{mod\ 11877}#
- #{lambda-formals\ 9179}#
- (cons (cons #{args\ 11893}#
- (cons #{e1\ 11894}#
- #{e2\ 11895}#))
- (map (lambda (#{tmp\ 11902}#
- #{tmp\ 11901}#
- #{tmp\ 11900}#)
- (cons #{tmp\ 11900}#
- (cons #{tmp\ 11901}#
- #{tmp\ 11902}#)))
- #{e2*\ 11898}#
- #{e1*\ 11897}#
- #{args*\ 11896}#))))
- (lambda (#{meta\ 11904}# #{lcase\ 11905}#)
- (#{build-case-lambda\ 9020}#
- #{s\ 11876}#
- #{meta\ 11904}#
- #{lcase\ 11905}#))))
- #{tmp\ 11884}#)
- ((lambda (#{_\ 11909}#)
+ (#{chi-lambda-case\ 331}#
+ #{e\ 3020}#
+ #{r\ 3021}#
+ #{w\ 3022}#
+ #{s\ 3023}#
+ #{mod\ 3024}#
+ #{lambda-formals\ 325}#
+ (cons (cons #{args\ 3040}#
+ (cons #{e1\ 3041}# #{e2\ 3042}#))
+ (map (lambda (#{tmp\ 3049}#
+ #{tmp\ 3048}#
+ #{tmp\ 3047}#)
+ (cons #{tmp\ 3047}#
+ (cons #{tmp\ 3048}#
+ #{tmp\ 3049}#)))
+ #{e2*\ 3045}#
+ #{e1*\ 3044}#
+ #{args*\ 3043}#))))
+ (lambda (#{meta\ 3051}# #{lcase\ 3052}#)
+ (#{build-case-lambda\ 166}#
+ #{s\ 3023}#
+ #{meta\ 3051}#
+ #{lcase\ 3052}#))))
+ #{tmp\ 3031}#)
+ ((lambda (#{_\ 3056}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 11873}#))
- #{tmp\ 11883}#)))
+ #{e\ 3020}#))
+ #{tmp\ 3030}#)))
($sc-dispatch
- #{tmp\ 11883}#
+ #{tmp\ 3030}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 11873}#)))
- (#{global-extend\ 9072}#
+ #{e\ 3020}#)))
+ (#{global-extend\ 218}#
'core
'case-lambda*
- (lambda (#{e\ 11910}#
- #{r\ 11911}#
- #{w\ 11912}#
- #{s\ 11913}#
- #{mod\ 11914}#)
- ((lambda (#{tmp\ 11920}#)
- ((lambda (#{tmp\ 11921}#)
- (if #{tmp\ 11921}#
- (apply (lambda (#{_\ 11929}#
- #{args\ 11930}#
- #{e1\ 11931}#
- #{e2\ 11932}#
- #{args*\ 11933}#
- #{e1*\ 11934}#
- #{e2*\ 11935}#)
+ (lambda (#{e\ 3057}#
+ #{r\ 3058}#
+ #{w\ 3059}#
+ #{s\ 3060}#
+ #{mod\ 3061}#)
+ ((lambda (#{tmp\ 3067}#)
+ ((lambda (#{tmp\ 3068}#)
+ (if #{tmp\ 3068}#
+ (apply (lambda (#{_\ 3076}#
+ #{args\ 3077}#
+ #{e1\ 3078}#
+ #{e2\ 3079}#
+ #{args*\ 3080}#
+ #{e1*\ 3081}#
+ #{e2*\ 3082}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 9185}#
- #{e\ 11910}#
- #{r\ 11911}#
- #{w\ 11912}#
- #{s\ 11913}#
- #{mod\ 11914}#
- #{lambda*-formals\ 9183}#
- (cons (cons #{args\ 11930}#
- (cons #{e1\ 11931}#
- #{e2\ 11932}#))
- (map (lambda (#{tmp\ 11939}#
- #{tmp\ 11938}#
- #{tmp\ 11937}#)
- (cons #{tmp\ 11937}#
- (cons #{tmp\ 11938}#
- #{tmp\ 11939}#)))
- #{e2*\ 11935}#
- #{e1*\ 11934}#
- #{args*\ 11933}#))))
- (lambda (#{meta\ 11941}# #{lcase\ 11942}#)
- (#{build-case-lambda\ 9020}#
- #{s\ 11913}#
- #{meta\ 11941}#
- #{lcase\ 11942}#))))
- #{tmp\ 11921}#)
- ((lambda (#{_\ 11946}#)
+ (#{chi-lambda-case\ 331}#
+ #{e\ 3057}#
+ #{r\ 3058}#
+ #{w\ 3059}#
+ #{s\ 3060}#
+ #{mod\ 3061}#
+ #{lambda*-formals\ 329}#
+ (cons (cons #{args\ 3077}#
+ (cons #{e1\ 3078}# #{e2\ 3079}#))
+ (map (lambda (#{tmp\ 3086}#
+ #{tmp\ 3085}#
+ #{tmp\ 3084}#)
+ (cons #{tmp\ 3084}#
+ (cons #{tmp\ 3085}#
+ #{tmp\ 3086}#)))
+ #{e2*\ 3082}#
+ #{e1*\ 3081}#
+ #{args*\ 3080}#))))
+ (lambda (#{meta\ 3088}# #{lcase\ 3089}#)
+ (#{build-case-lambda\ 166}#
+ #{s\ 3060}#
+ #{meta\ 3088}#
+ #{lcase\ 3089}#))))
+ #{tmp\ 3068}#)
+ ((lambda (#{_\ 3093}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 11910}#))
- #{tmp\ 11920}#)))
+ #{e\ 3057}#))
+ #{tmp\ 3067}#)))
($sc-dispatch
- #{tmp\ 11920}#
+ #{tmp\ 3067}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 11910}#)))
- (#{global-extend\ 9072}#
+ #{e\ 3057}#)))
+ (#{global-extend\ 218}#
'core
'let
- (letrec ((#{chi-let\ 11948}#
- (lambda (#{e\ 11949}#
- #{r\ 11950}#
- #{w\ 11951}#
- #{s\ 11952}#
- #{mod\ 11953}#
- #{constructor\ 11954}#
- #{ids\ 11955}#
- #{vals\ 11956}#
- #{exps\ 11957}#)
- (if (not (#{valid-bound-ids?\ 9139}# #{ids\ 11955}#))
+ (letrec ((#{chi-let\ 3095}#
+ (lambda (#{e\ 3096}#
+ #{r\ 3097}#
+ #{w\ 3098}#
+ #{s\ 3099}#
+ #{mod\ 3100}#
+ #{constructor\ 3101}#
+ #{ids\ 3102}#
+ #{vals\ 3103}#
+ #{exps\ 3104}#)
+ (if (not (#{valid-bound-ids?\ 285}# #{ids\ 3102}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 11949}#)
- (let ((#{labels\ 11969}#
- (#{gen-labels\ 9094}# #{ids\ 11955}#))
- (#{new-vars\ 11970}#
- (map #{gen-var\ 9189}# #{ids\ 11955}#)))
- (let ((#{nw\ 11973}#
- (#{make-binding-wrap\ 9123}#
- #{ids\ 11955}#
- #{labels\ 11969}#
- #{w\ 11951}#))
- (#{nr\ 11974}#
- (#{extend-var-env\ 9066}#
- #{labels\ 11969}#
- #{new-vars\ 11970}#
- #{r\ 11950}#)))
- (#{constructor\ 11954}#
- #{s\ 11952}#
- (map syntax->datum #{ids\ 11955}#)
- #{new-vars\ 11970}#
- (map (lambda (#{x\ 11975}#)
- (#{chi\ 9161}#
- #{x\ 11975}#
- #{r\ 11950}#
- #{w\ 11951}#
- #{mod\ 11953}#))
- #{vals\ 11956}#)
- (#{chi-body\ 9169}#
- #{exps\ 11957}#
- (#{source-wrap\ 9147}#
- #{e\ 11949}#
- #{nw\ 11973}#
- #{s\ 11952}#
- #{mod\ 11953}#)
- #{nr\ 11974}#
- #{nw\ 11973}#
- #{mod\ 11953}#))))))))
- (lambda (#{e\ 11977}#
- #{r\ 11978}#
- #{w\ 11979}#
- #{s\ 11980}#
- #{mod\ 11981}#)
- ((lambda (#{tmp\ 11987}#)
- ((lambda (#{tmp\ 11988}#)
- (if (if #{tmp\ 11988}#
- (apply (lambda (#{_\ 11994}#
- #{id\ 11995}#
- #{val\ 11996}#
- #{e1\ 11997}#
- #{e2\ 11998}#)
- (and-map #{id?\ 9076}# #{id\ 11995}#))
- #{tmp\ 11988}#)
+ #{e\ 3096}#)
+ (let ((#{labels\ 3116}#
+ (#{gen-labels\ 240}# #{ids\ 3102}#))
+ (#{new-vars\ 3117}#
+ (map #{gen-var\ 335}# #{ids\ 3102}#)))
+ (let ((#{nw\ 3120}#
+ (#{make-binding-wrap\ 269}#
+ #{ids\ 3102}#
+ #{labels\ 3116}#
+ #{w\ 3098}#))
+ (#{nr\ 3121}#
+ (#{extend-var-env\ 212}#
+ #{labels\ 3116}#
+ #{new-vars\ 3117}#
+ #{r\ 3097}#)))
+ (#{constructor\ 3101}#
+ #{s\ 3099}#
+ (map syntax->datum #{ids\ 3102}#)
+ #{new-vars\ 3117}#
+ (map (lambda (#{x\ 3122}#)
+ (#{chi\ 307}#
+ #{x\ 3122}#
+ #{r\ 3097}#
+ #{w\ 3098}#
+ #{mod\ 3100}#))
+ #{vals\ 3103}#)
+ (#{chi-body\ 315}#
+ #{exps\ 3104}#
+ (#{source-wrap\ 293}#
+ #{e\ 3096}#
+ #{nw\ 3120}#
+ #{s\ 3099}#
+ #{mod\ 3100}#)
+ #{nr\ 3121}#
+ #{nw\ 3120}#
+ #{mod\ 3100}#))))))))
+ (lambda (#{e\ 3124}#
+ #{r\ 3125}#
+ #{w\ 3126}#
+ #{s\ 3127}#
+ #{mod\ 3128}#)
+ ((lambda (#{tmp\ 3134}#)
+ ((lambda (#{tmp\ 3135}#)
+ (if (if #{tmp\ 3135}#
+ (apply (lambda (#{_\ 3141}#
+ #{id\ 3142}#
+ #{val\ 3143}#
+ #{e1\ 3144}#
+ #{e2\ 3145}#)
+ (and-map #{id?\ 222}# #{id\ 3142}#))
+ #{tmp\ 3135}#)
#f)
- (apply (lambda (#{_\ 12005}#
- #{id\ 12006}#
- #{val\ 12007}#
- #{e1\ 12008}#
- #{e2\ 12009}#)
- (#{chi-let\ 11948}#
- #{e\ 11977}#
- #{r\ 11978}#
- #{w\ 11979}#
- #{s\ 11980}#
- #{mod\ 11981}#
- #{build-let\ 9030}#
- #{id\ 12006}#
- #{val\ 12007}#
- (cons #{e1\ 12008}# #{e2\ 12009}#)))
- #{tmp\ 11988}#)
- ((lambda (#{tmp\ 12013}#)
- (if (if #{tmp\ 12013}#
- (apply (lambda (#{_\ 12020}#
- #{f\ 12021}#
- #{id\ 12022}#
- #{val\ 12023}#
- #{e1\ 12024}#
- #{e2\ 12025}#)
- (if (#{id?\ 9076}# #{f\ 12021}#)
- (and-map #{id?\ 9076}# #{id\ 12022}#)
+ (apply (lambda (#{_\ 3152}#
+ #{id\ 3153}#
+ #{val\ 3154}#
+ #{e1\ 3155}#
+ #{e2\ 3156}#)
+ (#{chi-let\ 3095}#
+ #{e\ 3124}#
+ #{r\ 3125}#
+ #{w\ 3126}#
+ #{s\ 3127}#
+ #{mod\ 3128}#
+ #{build-let\ 176}#
+ #{id\ 3153}#
+ #{val\ 3154}#
+ (cons #{e1\ 3155}# #{e2\ 3156}#)))
+ #{tmp\ 3135}#)
+ ((lambda (#{tmp\ 3160}#)
+ (if (if #{tmp\ 3160}#
+ (apply (lambda (#{_\ 3167}#
+ #{f\ 3168}#
+ #{id\ 3169}#
+ #{val\ 3170}#
+ #{e1\ 3171}#
+ #{e2\ 3172}#)
+ (if (#{id?\ 222}# #{f\ 3168}#)
+ (and-map #{id?\ 222}# #{id\ 3169}#)
#f))
- #{tmp\ 12013}#)
+ #{tmp\ 3160}#)
#f)
- (apply (lambda (#{_\ 12035}#
- #{f\ 12036}#
- #{id\ 12037}#
- #{val\ 12038}#
- #{e1\ 12039}#
- #{e2\ 12040}#)
- (#{chi-let\ 11948}#
- #{e\ 11977}#
- #{r\ 11978}#
- #{w\ 11979}#
- #{s\ 11980}#
- #{mod\ 11981}#
- #{build-named-let\ 9032}#
- (cons #{f\ 12036}# #{id\ 12037}#)
- #{val\ 12038}#
- (cons #{e1\ 12039}# #{e2\ 12040}#)))
- #{tmp\ 12013}#)
- ((lambda (#{_\ 12045}#)
+ (apply (lambda (#{_\ 3182}#
+ #{f\ 3183}#
+ #{id\ 3184}#
+ #{val\ 3185}#
+ #{e1\ 3186}#
+ #{e2\ 3187}#)
+ (#{chi-let\ 3095}#
+ #{e\ 3124}#
+ #{r\ 3125}#
+ #{w\ 3126}#
+ #{s\ 3127}#
+ #{mod\ 3128}#
+ #{build-named-let\ 178}#
+ (cons #{f\ 3183}# #{id\ 3184}#)
+ #{val\ 3185}#
+ (cons #{e1\ 3186}# #{e2\ 3187}#)))
+ #{tmp\ 3160}#)
+ ((lambda (#{_\ 3192}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 9147}#
- #{e\ 11977}#
- #{w\ 11979}#
- #{s\ 11980}#
- #{mod\ 11981}#)))
- #{tmp\ 11987}#)))
+ (#{source-wrap\ 293}#
+ #{e\ 3124}#
+ #{w\ 3126}#
+ #{s\ 3127}#
+ #{mod\ 3128}#)))
+ #{tmp\ 3134}#)))
($sc-dispatch
- #{tmp\ 11987}#
+ #{tmp\ 3134}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 11987}#
+ #{tmp\ 3134}#
'(any #(each (any any)) any . each-any))))
- #{e\ 11977}#))))
- (#{global-extend\ 9072}#
+ #{e\ 3124}#))))
+ (#{global-extend\ 218}#
'core
'letrec
- (lambda (#{e\ 12046}#
- #{r\ 12047}#
- #{w\ 12048}#
- #{s\ 12049}#
- #{mod\ 12050}#)
- ((lambda (#{tmp\ 12056}#)
- ((lambda (#{tmp\ 12057}#)
- (if (if #{tmp\ 12057}#
- (apply (lambda (#{_\ 12063}#
- #{id\ 12064}#
- #{val\ 12065}#
- #{e1\ 12066}#
- #{e2\ 12067}#)
- (and-map #{id?\ 9076}# #{id\ 12064}#))
- #{tmp\ 12057}#)
+ (lambda (#{e\ 3193}#
+ #{r\ 3194}#
+ #{w\ 3195}#
+ #{s\ 3196}#
+ #{mod\ 3197}#)
+ ((lambda (#{tmp\ 3203}#)
+ ((lambda (#{tmp\ 3204}#)
+ (if (if #{tmp\ 3204}#
+ (apply (lambda (#{_\ 3210}#
+ #{id\ 3211}#
+ #{val\ 3212}#
+ #{e1\ 3213}#
+ #{e2\ 3214}#)
+ (and-map #{id?\ 222}# #{id\ 3211}#))
+ #{tmp\ 3204}#)
#f)
- (apply (lambda (#{_\ 12074}#
- #{id\ 12075}#
- #{val\ 12076}#
- #{e1\ 12077}#
- #{e2\ 12078}#)
- (let ((#{ids\ 12080}# #{id\ 12075}#))
- (if (not (#{valid-bound-ids?\ 9139}#
- #{ids\ 12080}#))
+ (apply (lambda (#{_\ 3221}#
+ #{id\ 3222}#
+ #{val\ 3223}#
+ #{e1\ 3224}#
+ #{e2\ 3225}#)
+ (let ((#{ids\ 3227}# #{id\ 3222}#))
+ (if (not (#{valid-bound-ids?\ 285}#
+ #{ids\ 3227}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 12046}#)
- (let ((#{labels\ 12084}#
- (#{gen-labels\ 9094}# #{ids\ 12080}#))
- (#{new-vars\ 12085}#
- (map #{gen-var\ 9189}# #{ids\ 12080}#)))
- (let ((#{w\ 12088}#
- (#{make-binding-wrap\ 9123}#
- #{ids\ 12080}#
- #{labels\ 12084}#
- #{w\ 12048}#))
- (#{r\ 12089}#
- (#{extend-var-env\ 9066}#
- #{labels\ 12084}#
- #{new-vars\ 12085}#
- #{r\ 12047}#)))
- (#{build-letrec\ 9034}#
- #{s\ 12049}#
- (map syntax->datum #{ids\ 12080}#)
- #{new-vars\ 12085}#
- (map (lambda (#{x\ 12090}#)
- (#{chi\ 9161}#
- #{x\ 12090}#
- #{r\ 12089}#
- #{w\ 12088}#
- #{mod\ 12050}#))
- #{val\ 12076}#)
- (#{chi-body\ 9169}#
- (cons #{e1\ 12077}# #{e2\ 12078}#)
- (#{source-wrap\ 9147}#
- #{e\ 12046}#
- #{w\ 12088}#
- #{s\ 12049}#
- #{mod\ 12050}#)
- #{r\ 12089}#
- #{w\ 12088}#
- #{mod\ 12050}#)))))))
- #{tmp\ 12057}#)
- ((lambda (#{_\ 12095}#)
+ #{e\ 3193}#)
+ (let ((#{labels\ 3231}#
+ (#{gen-labels\ 240}# #{ids\ 3227}#))
+ (#{new-vars\ 3232}#
+ (map #{gen-var\ 335}# #{ids\ 3227}#)))
+ (let ((#{w\ 3235}#
+ (#{make-binding-wrap\ 269}#
+ #{ids\ 3227}#
+ #{labels\ 3231}#
+ #{w\ 3195}#))
+ (#{r\ 3236}#
+ (#{extend-var-env\ 212}#
+ #{labels\ 3231}#
+ #{new-vars\ 3232}#
+ #{r\ 3194}#)))
+ (#{build-letrec\ 180}#
+ #{s\ 3196}#
+ (map syntax->datum #{ids\ 3227}#)
+ #{new-vars\ 3232}#
+ (map (lambda (#{x\ 3237}#)
+ (#{chi\ 307}#
+ #{x\ 3237}#
+ #{r\ 3236}#
+ #{w\ 3235}#
+ #{mod\ 3197}#))
+ #{val\ 3223}#)
+ (#{chi-body\ 315}#
+ (cons #{e1\ 3224}# #{e2\ 3225}#)
+ (#{source-wrap\ 293}#
+ #{e\ 3193}#
+ #{w\ 3235}#
+ #{s\ 3196}#
+ #{mod\ 3197}#)
+ #{r\ 3236}#
+ #{w\ 3235}#
+ #{mod\ 3197}#)))))))
+ #{tmp\ 3204}#)
+ ((lambda (#{_\ 3242}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 9147}#
- #{e\ 12046}#
- #{w\ 12048}#
- #{s\ 12049}#
- #{mod\ 12050}#)))
- #{tmp\ 12056}#)))
+ (#{source-wrap\ 293}#
+ #{e\ 3193}#
+ #{w\ 3195}#
+ #{s\ 3196}#
+ #{mod\ 3197}#)))
+ #{tmp\ 3203}#)))
($sc-dispatch
- #{tmp\ 12056}#
+ #{tmp\ 3203}#
'(any #(each (any any)) any . each-any))))
- #{e\ 12046}#)))
- (#{global-extend\ 9072}#
+ #{e\ 3193}#)))
+ (#{global-extend\ 218}#
'core
'set!
- (lambda (#{e\ 12096}#
- #{r\ 12097}#
- #{w\ 12098}#
- #{s\ 12099}#
- #{mod\ 12100}#)
- ((lambda (#{tmp\ 12106}#)
- ((lambda (#{tmp\ 12107}#)
- (if (if #{tmp\ 12107}#
- (apply (lambda (#{_\ 12111}#
- #{id\ 12112}#
- #{val\ 12113}#)
- (#{id?\ 9076}# #{id\ 12112}#))
- #{tmp\ 12107}#)
+ (lambda (#{e\ 3243}#
+ #{r\ 3244}#
+ #{w\ 3245}#
+ #{s\ 3246}#
+ #{mod\ 3247}#)
+ ((lambda (#{tmp\ 3253}#)
+ ((lambda (#{tmp\ 3254}#)
+ (if (if #{tmp\ 3254}#
+ (apply (lambda (#{_\ 3258}# #{id\ 3259}# #{val\ 3260}#)
+ (#{id?\ 222}# #{id\ 3259}#))
+ #{tmp\ 3254}#)
#f)
- (apply (lambda (#{_\ 12117}# #{id\ 12118}# #{val\ 12119}#)
- (let ((#{val\ 12122}#
- (#{chi\ 9161}#
- #{val\ 12119}#
- #{r\ 12097}#
- #{w\ 12098}#
- #{mod\ 12100}#))
- (#{n\ 12123}#
- (#{id-var-name\ 9133}#
- #{id\ 12118}#
- #{w\ 12098}#)))
- (let ((#{b\ 12125}#
- (#{lookup\ 9070}#
- #{n\ 12123}#
- #{r\ 12097}#
- #{mod\ 12100}#)))
- (let ((#{atom-key\ 12128}#
- (#{binding-type\ 9059}# #{b\ 12125}#)))
- (if (memv #{atom-key\ 12128}#
+ (apply (lambda (#{_\ 3264}# #{id\ 3265}# #{val\ 3266}#)
+ (let ((#{val\ 3269}#
+ (#{chi\ 307}#
+ #{val\ 3266}#
+ #{r\ 3244}#
+ #{w\ 3245}#
+ #{mod\ 3247}#))
+ (#{n\ 3270}#
+ (#{id-var-name\ 279}#
+ #{id\ 3265}#
+ #{w\ 3245}#)))
+ (let ((#{b\ 3272}#
+ (#{lookup\ 216}#
+ #{n\ 3270}#
+ #{r\ 3244}#
+ #{mod\ 3247}#)))
+ (let ((#{atom-key\ 3275}#
+ (#{binding-type\ 205}# #{b\ 3272}#)))
+ (if (memv #{atom-key\ 3275}#
'(lexical))
- (#{build-lexical-assignment\ 9006}#
- #{s\ 12099}#
- (syntax->datum #{id\ 12118}#)
- (#{binding-value\ 9061}# #{b\ 12125}#)
- #{val\ 12122}#)
- (if (memv #{atom-key\ 12128}#
+ (#{build-lexical-assignment\ 152}#
+ #{s\ 3246}#
+ (syntax->datum #{id\ 3265}#)
+ (#{binding-value\ 207}# #{b\ 3272}#)
+ #{val\ 3269}#)
+ (if (memv #{atom-key\ 3275}#
'(global))
- (#{build-global-assignment\ 9012}#
- #{s\ 12099}#
- #{n\ 12123}#
- #{val\ 12122}#
- #{mod\ 12100}#)
- (if (memv #{atom-key\ 12128}#
+ (#{build-global-assignment\ 158}#
+ #{s\ 3246}#
+ #{n\ 3270}#
+ #{val\ 3269}#
+ #{mod\ 3247}#)
+ (if (memv #{atom-key\ 3275}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 9145}#
- #{id\ 12118}#
- #{w\ 12098}#
- #{mod\ 12100}#))
+ (#{wrap\ 291}#
+ #{id\ 3265}#
+ #{w\ 3245}#
+ #{mod\ 3247}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 9147}#
- #{e\ 12096}#
- #{w\ 12098}#
- #{s\ 12099}#
- #{mod\ 12100}#)))))))))
- #{tmp\ 12107}#)
- ((lambda (#{tmp\ 12133}#)
- (if #{tmp\ 12133}#
- (apply (lambda (#{_\ 12138}#
- #{head\ 12139}#
- #{tail\ 12140}#
- #{val\ 12141}#)
+ (#{source-wrap\ 293}#
+ #{e\ 3243}#
+ #{w\ 3245}#
+ #{s\ 3246}#
+ #{mod\ 3247}#)))))))))
+ #{tmp\ 3254}#)
+ ((lambda (#{tmp\ 3280}#)
+ (if #{tmp\ 3280}#
+ (apply (lambda (#{_\ 3285}#
+ #{head\ 3286}#
+ #{tail\ 3287}#
+ #{val\ 3288}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 9157}#
- #{head\ 12139}#
- #{r\ 12097}#
+ (#{syntax-type\ 303}#
+ #{head\ 3286}#
+ #{r\ 3244}#
'(())
#f
#f
- #{mod\ 12100}#
+ #{mod\ 3247}#
#t))
- (lambda (#{type\ 12144}#
- #{value\ 12145}#
- #{ee\ 12146}#
- #{ww\ 12147}#
- #{ss\ 12148}#
- #{modmod\ 12149}#)
- (if (memv #{type\ 12144}#
+ (lambda (#{type\ 3291}#
+ #{value\ 3292}#
+ #{ee\ 3293}#
+ #{ww\ 3294}#
+ #{ss\ 3295}#
+ #{modmod\ 3296}#)
+ (if (memv #{type\ 3291}#
'(module-ref))
- (let ((#{val\ 12158}#
- (#{chi\ 9161}#
- #{val\ 12141}#
- #{r\ 12097}#
- #{w\ 12098}#
- #{mod\ 12100}#)))
+ (let ((#{val\ 3305}#
+ (#{chi\ 307}#
+ #{val\ 3288}#
+ #{r\ 3244}#
+ #{w\ 3245}#
+ #{mod\ 3247}#)))
(call-with-values
(lambda ()
- (#{value\ 12145}#
- (cons #{head\ 12139}#
- #{tail\ 12140}#)))
- (lambda (#{id\ 12160}#
- #{mod\ 12161}#)
- (#{build-global-assignment\ 9012}#
- #{s\ 12099}#
- #{id\ 12160}#
- #{val\ 12158}#
- #{mod\ 12161}#))))
- (#{build-application\ 8998}#
- #{s\ 12099}#
- (#{chi\ 9161}#
+ (#{value\ 3292}#
+ (cons #{head\ 3286}#
+ #{tail\ 3287}#)))
+ (lambda (#{id\ 3307}# #{mod\ 3308}#)
+ (#{build-global-assignment\ 158}#
+ #{s\ 3246}#
+ #{id\ 3307}#
+ #{val\ 3305}#
+ #{mod\ 3308}#))))
+ (#{build-application\ 144}#
+ #{s\ 3246}#
+ (#{chi\ 307}#
(list '#(syntax-object
setter
((top)
@@ -9067,22 +8987,22 @@
(top)
(top)
(top))
- #("i12150"
- "i12151"
- "i12152"
- "i12153"
- "i12154"
- "i12155"))
+ #("i3297"
+ "i3298"
+ "i3299"
+ "i3300"
+ "i3301"
+ "i3302"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i12134"
- "i12135"
- "i12136"
- "i12137"))
+ #("i3281"
+ "i3282"
+ "i3283"
+ "i3284"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9091,11 +9011,11 @@
(top)
(top)
(top))
- #("i12101"
- "i12102"
- "i12103"
- "i12104"
- "i12105"))
+ #("i3248"
+ "i3249"
+ "i3250"
+ "i3251"
+ "i3252"))
#(ribcage
(lambda-var-list
gen-var
@@ -9333,179 +9253,177 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
- "i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+ "i118"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i8875" "i8873")))
+ ("i21" "i19")))
(hygiene guile))
- #{head\ 12139}#)
- #{r\ 12097}#
- #{w\ 12098}#
- #{mod\ 12100}#)
- (map (lambda (#{e\ 12165}#)
- (#{chi\ 9161}#
- #{e\ 12165}#
- #{r\ 12097}#
- #{w\ 12098}#
- #{mod\ 12100}#))
+ #{head\ 3286}#)
+ #{r\ 3244}#
+ #{w\ 3245}#
+ #{mod\ 3247}#)
+ (map (lambda (#{e\ 3312}#)
+ (#{chi\ 307}#
+ #{e\ 3312}#
+ #{r\ 3244}#
+ #{w\ 3245}#
+ #{mod\ 3247}#))
(append
- #{tail\ 12140}#
- (list #{val\ 12141}#))))))))
- #{tmp\ 12133}#)
- ((lambda (#{_\ 12169}#)
+ #{tail\ 3287}#
+ (list #{val\ 3288}#))))))))
+ #{tmp\ 3280}#)
+ ((lambda (#{_\ 3316}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 9147}#
- #{e\ 12096}#
- #{w\ 12098}#
- #{s\ 12099}#
- #{mod\ 12100}#)))
- #{tmp\ 12106}#)))
+ (#{source-wrap\ 293}#
+ #{e\ 3243}#
+ #{w\ 3245}#
+ #{s\ 3246}#
+ #{mod\ 3247}#)))
+ #{tmp\ 3253}#)))
($sc-dispatch
- #{tmp\ 12106}#
+ #{tmp\ 3253}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 12106}#
+ #{tmp\ 3253}#
'(any any any))))
- #{e\ 12096}#)))
- (#{global-extend\ 9072}#
+ #{e\ 3243}#)))
+ (#{global-extend\ 218}#
'module-ref
'@
- (lambda (#{e\ 12170}#)
- ((lambda (#{tmp\ 12172}#)
- ((lambda (#{tmp\ 12173}#)
- (if (if #{tmp\ 12173}#
- (apply (lambda (#{_\ 12177}#
- #{mod\ 12178}#
- #{id\ 12179}#)
- (if (and-map #{id?\ 9076}# #{mod\ 12178}#)
- (#{id?\ 9076}# #{id\ 12179}#)
+ (lambda (#{e\ 3317}#)
+ ((lambda (#{tmp\ 3319}#)
+ ((lambda (#{tmp\ 3320}#)
+ (if (if #{tmp\ 3320}#
+ (apply (lambda (#{_\ 3324}# #{mod\ 3325}# #{id\ 3326}#)
+ (if (and-map #{id?\ 222}# #{mod\ 3325}#)
+ (#{id?\ 222}# #{id\ 3326}#)
#f))
- #{tmp\ 12173}#)
+ #{tmp\ 3320}#)
#f)
- (apply (lambda (#{_\ 12186}# #{mod\ 12187}# #{id\ 12188}#)
+ (apply (lambda (#{_\ 3333}# #{mod\ 3334}# #{id\ 3335}#)
(values
- (syntax->datum #{id\ 12188}#)
+ (syntax->datum #{id\ 3335}#)
(syntax->datum
(cons '#(syntax-object
public
@@ -9513,9 +9431,9 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i12183" "i12184" "i12185"))
+ #("i3330" "i3331" "i3332"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i12171"))
+ #(ribcage #(e) #((top)) #("i3318"))
#(ribcage
(lambda-var-list
gen-var
@@ -9753,157 +9671,155 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
- "i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+ "i118"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i8875" "i8873")))
+ ("i21" "i19")))
(hygiene guile))
- #{mod\ 12187}#))))
- #{tmp\ 12173}#)
+ #{mod\ 3334}#))))
+ #{tmp\ 3320}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12172}#)))
+ #{tmp\ 3319}#)))
($sc-dispatch
- #{tmp\ 12172}#
+ #{tmp\ 3319}#
'(any each-any any))))
- #{e\ 12170}#)))
- (#{global-extend\ 9072}#
+ #{e\ 3317}#)))
+ (#{global-extend\ 218}#
'module-ref
'@@
- (lambda (#{e\ 12190}#)
- ((lambda (#{tmp\ 12192}#)
- ((lambda (#{tmp\ 12193}#)
- (if (if #{tmp\ 12193}#
- (apply (lambda (#{_\ 12197}#
- #{mod\ 12198}#
- #{id\ 12199}#)
- (if (and-map #{id?\ 9076}# #{mod\ 12198}#)
- (#{id?\ 9076}# #{id\ 12199}#)
+ (lambda (#{e\ 3337}#)
+ ((lambda (#{tmp\ 3339}#)
+ ((lambda (#{tmp\ 3340}#)
+ (if (if #{tmp\ 3340}#
+ (apply (lambda (#{_\ 3344}# #{mod\ 3345}# #{id\ 3346}#)
+ (if (and-map #{id?\ 222}# #{mod\ 3345}#)
+ (#{id?\ 222}# #{id\ 3346}#)
#f))
- #{tmp\ 12193}#)
+ #{tmp\ 3340}#)
#f)
- (apply (lambda (#{_\ 12206}# #{mod\ 12207}# #{id\ 12208}#)
+ (apply (lambda (#{_\ 3353}# #{mod\ 3354}# #{id\ 3355}#)
(values
- (syntax->datum #{id\ 12208}#)
+ (syntax->datum #{id\ 3355}#)
(syntax->datum
(cons '#(syntax-object
private
@@ -9911,9 +9827,9 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i12203" "i12204" "i12205"))
+ #("i3350" "i3351" "i3352"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i12191"))
+ #(ribcage #(e) #((top)) #("i3338"))
#(ribcage
(lambda-var-list
gen-var
@@ -10151,305 +10067,304 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
- "i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+ "i118"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i8875" "i8873")))
+ ("i21" "i19")))
(hygiene guile))
- #{mod\ 12207}#))))
- #{tmp\ 12193}#)
+ #{mod\ 3354}#))))
+ #{tmp\ 3340}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12192}#)))
+ #{tmp\ 3339}#)))
($sc-dispatch
- #{tmp\ 12192}#
+ #{tmp\ 3339}#
'(any each-any any))))
- #{e\ 12190}#)))
- (#{global-extend\ 9072}#
+ #{e\ 3337}#)))
+ (#{global-extend\ 218}#
'core
'if
- (lambda (#{e\ 12210}#
- #{r\ 12211}#
- #{w\ 12212}#
- #{s\ 12213}#
- #{mod\ 12214}#)
- ((lambda (#{tmp\ 12220}#)
- ((lambda (#{tmp\ 12221}#)
- (if #{tmp\ 12221}#
- (apply (lambda (#{_\ 12225}# #{test\ 12226}# #{then\ 12227}#)
- (#{build-conditional\ 9000}#
- #{s\ 12213}#
- (#{chi\ 9161}#
- #{test\ 12226}#
- #{r\ 12211}#
- #{w\ 12212}#
- #{mod\ 12214}#)
- (#{chi\ 9161}#
- #{then\ 12227}#
- #{r\ 12211}#
- #{w\ 12212}#
- #{mod\ 12214}#)
- (#{build-void\ 8996}# #f)))
- #{tmp\ 12221}#)
- ((lambda (#{tmp\ 12229}#)
- (if #{tmp\ 12229}#
- (apply (lambda (#{_\ 12234}#
- #{test\ 12235}#
- #{then\ 12236}#
- #{else\ 12237}#)
- (#{build-conditional\ 9000}#
- #{s\ 12213}#
- (#{chi\ 9161}#
- #{test\ 12235}#
- #{r\ 12211}#
- #{w\ 12212}#
- #{mod\ 12214}#)
- (#{chi\ 9161}#
- #{then\ 12236}#
- #{r\ 12211}#
- #{w\ 12212}#
- #{mod\ 12214}#)
- (#{chi\ 9161}#
- #{else\ 12237}#
- #{r\ 12211}#
- #{w\ 12212}#
- #{mod\ 12214}#)))
- #{tmp\ 12229}#)
+ (lambda (#{e\ 3357}#
+ #{r\ 3358}#
+ #{w\ 3359}#
+ #{s\ 3360}#
+ #{mod\ 3361}#)
+ ((lambda (#{tmp\ 3367}#)
+ ((lambda (#{tmp\ 3368}#)
+ (if #{tmp\ 3368}#
+ (apply (lambda (#{_\ 3372}# #{test\ 3373}# #{then\ 3374}#)
+ (#{build-conditional\ 146}#
+ #{s\ 3360}#
+ (#{chi\ 307}#
+ #{test\ 3373}#
+ #{r\ 3358}#
+ #{w\ 3359}#
+ #{mod\ 3361}#)
+ (#{chi\ 307}#
+ #{then\ 3374}#
+ #{r\ 3358}#
+ #{w\ 3359}#
+ #{mod\ 3361}#)
+ (#{build-void\ 142}# #f)))
+ #{tmp\ 3368}#)
+ ((lambda (#{tmp\ 3376}#)
+ (if #{tmp\ 3376}#
+ (apply (lambda (#{_\ 3381}#
+ #{test\ 3382}#
+ #{then\ 3383}#
+ #{else\ 3384}#)
+ (#{build-conditional\ 146}#
+ #{s\ 3360}#
+ (#{chi\ 307}#
+ #{test\ 3382}#
+ #{r\ 3358}#
+ #{w\ 3359}#
+ #{mod\ 3361}#)
+ (#{chi\ 307}#
+ #{then\ 3383}#
+ #{r\ 3358}#
+ #{w\ 3359}#
+ #{mod\ 3361}#)
+ (#{chi\ 307}#
+ #{else\ 3384}#
+ #{r\ 3358}#
+ #{w\ 3359}#
+ #{mod\ 3361}#)))
+ #{tmp\ 3376}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12220}#)))
+ #{tmp\ 3367}#)))
($sc-dispatch
- #{tmp\ 12220}#
+ #{tmp\ 3367}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 12220}#
+ #{tmp\ 3367}#
'(any any any))))
- #{e\ 12210}#)))
- (#{global-extend\ 9072}#
+ #{e\ 3357}#)))
+ (#{global-extend\ 218}#
'core
'with-fluids
- (lambda (#{e\ 12238}#
- #{r\ 12239}#
- #{w\ 12240}#
- #{s\ 12241}#
- #{mod\ 12242}#)
- ((lambda (#{tmp\ 12248}#)
- ((lambda (#{tmp\ 12249}#)
- (if #{tmp\ 12249}#
- (apply (lambda (#{_\ 12255}#
- #{fluid\ 12256}#
- #{val\ 12257}#
- #{b\ 12258}#
- #{b*\ 12259}#)
- (#{build-dynlet\ 9002}#
- #{s\ 12241}#
- (map (lambda (#{x\ 12260}#)
- (#{chi\ 9161}#
- #{x\ 12260}#
- #{r\ 12239}#
- #{w\ 12240}#
- #{mod\ 12242}#))
- #{fluid\ 12256}#)
- (map (lambda (#{x\ 12263}#)
- (#{chi\ 9161}#
- #{x\ 12263}#
- #{r\ 12239}#
- #{w\ 12240}#
- #{mod\ 12242}#))
- #{val\ 12257}#)
- (#{chi-body\ 9169}#
- (cons #{b\ 12258}# #{b*\ 12259}#)
- (#{source-wrap\ 9147}#
- #{e\ 12238}#
- #{w\ 12240}#
- #{s\ 12241}#
- #{mod\ 12242}#)
- #{r\ 12239}#
- #{w\ 12240}#
- #{mod\ 12242}#)))
- #{tmp\ 12249}#)
+ (lambda (#{e\ 3385}#
+ #{r\ 3386}#
+ #{w\ 3387}#
+ #{s\ 3388}#
+ #{mod\ 3389}#)
+ ((lambda (#{tmp\ 3395}#)
+ ((lambda (#{tmp\ 3396}#)
+ (if #{tmp\ 3396}#
+ (apply (lambda (#{_\ 3402}#
+ #{fluid\ 3403}#
+ #{val\ 3404}#
+ #{b\ 3405}#
+ #{b*\ 3406}#)
+ (#{build-dynlet\ 148}#
+ #{s\ 3388}#
+ (map (lambda (#{x\ 3407}#)
+ (#{chi\ 307}#
+ #{x\ 3407}#
+ #{r\ 3386}#
+ #{w\ 3387}#
+ #{mod\ 3389}#))
+ #{fluid\ 3403}#)
+ (map (lambda (#{x\ 3410}#)
+ (#{chi\ 307}#
+ #{x\ 3410}#
+ #{r\ 3386}#
+ #{w\ 3387}#
+ #{mod\ 3389}#))
+ #{val\ 3404}#)
+ (#{chi-body\ 315}#
+ (cons #{b\ 3405}# #{b*\ 3406}#)
+ (#{source-wrap\ 293}#
+ #{e\ 3385}#
+ #{w\ 3387}#
+ #{s\ 3388}#
+ #{mod\ 3389}#)
+ #{r\ 3386}#
+ #{w\ 3387}#
+ #{mod\ 3389}#)))
+ #{tmp\ 3396}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12248}#)))
+ #{tmp\ 3395}#)))
($sc-dispatch
- #{tmp\ 12248}#
+ #{tmp\ 3395}#
'(any #(each (any any)) any . each-any))))
- #{e\ 12238}#)))
- (#{global-extend\ 9072}#
+ #{e\ 3385}#)))
+ (#{global-extend\ 218}#
'begin
'begin
'())
- (#{global-extend\ 9072}#
+ (#{global-extend\ 218}#
'define
'define
'())
- (#{global-extend\ 9072}#
+ (#{global-extend\ 218}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 9072}#
+ (#{global-extend\ 218}#
'eval-when
'eval-when
'())
- (#{global-extend\ 9072}#
+ (#{global-extend\ 218}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 12274}#
- (lambda (#{x\ 12275}#
- #{keys\ 12276}#
- #{clauses\ 12277}#
- #{r\ 12278}#
- #{mod\ 12279}#)
- (if (null? #{clauses\ 12277}#)
- (#{build-application\ 8998}#
+ (letrec ((#{gen-syntax-case\ 3421}#
+ (lambda (#{x\ 3422}#
+ #{keys\ 3423}#
+ #{clauses\ 3424}#
+ #{r\ 3425}#
+ #{mod\ 3426}#)
+ (if (null? #{clauses\ 3424}#)
+ (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}#
+ (#{build-primref\ 170}#
#f
'syntax-violation)
- (list (#{build-data\ 9026}# #f #f)
- (#{build-data\ 9026}#
+ (list (#{build-data\ 172}# #f #f)
+ (#{build-data\ 172}#
#f
"source expression failed to match any
pattern")
- #{x\ 12275}#))
- ((lambda (#{tmp\ 12289}#)
- ((lambda (#{tmp\ 12290}#)
- (if #{tmp\ 12290}#
- (apply (lambda (#{pat\ 12293}# #{exp\ 12294}#)
- (if (if (#{id?\ 9076}# #{pat\ 12293}#)
+ #{x\ 3422}#))
+ ((lambda (#{tmp\ 3436}#)
+ ((lambda (#{tmp\ 3437}#)
+ (if #{tmp\ 3437}#
+ (apply (lambda (#{pat\ 3440}# #{exp\ 3441}#)
+ (if (if (#{id?\ 222}# #{pat\ 3440}#)
(and-map
- (lambda (#{x\ 12297}#)
- (not (#{free-id=?\ 9135}#
- #{pat\ 12293}#
- #{x\ 12297}#)))
+ (lambda (#{x\ 3444}#)
+ (not (#{free-id=?\ 281}#
+ #{pat\ 3440}#
+ #{x\ 3444}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i12291"
- "i12292"))
+ #("i3438" "i3439"))
#(ribcage () () ())
#(ribcage
#(x
@@ -10462,11 +10377,11 @@
(top)
(top)
(top))
- #("i12280"
- "i12281"
- "i12282"
- "i12283"
- "i12284"))
+ #("i3427"
+ "i3428"
+ "i3429"
+ "i3430"
+ "i3431"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -10476,10 +10391,10 @@
(top)
(top)
(top))
- ("i12273"
- "i12271"
- "i12269"
- "i12267"))
+ ("i3420"
+ "i3418"
+ "i3416"
+ "i3414"))
#(ribcage
(lambda-var-list
gen-var
@@ -10717,1029 +10632,1025 @@
(top)
(top)
(top))
- ("i9190"
- "i9188"
- "i9186"
- "i9184"
- "i9182"
- "i9180"
- "i9178"
- "i9176"
- "i9174"
- "i9172"
- "i9170"
- "i9168"
- "i9166"
- "i9164"
- "i9162"
- "i9160"
- "i9158"
- "i9156"
- "i9154"
- "i9152"
- "i9150"
- "i9148"
- "i9146"
- "i9144"
- "i9142"
- "i9140"
- "i9138"
- "i9136"
- "i9134"
- "i9132"
- "i9130"
- "i9128"
- "i9126"
- "i9124"
- "i9122"
- "i9120"
- "i9119"
- "i9118"
- "i9116"
- "i9115"
- "i9114"
- "i9113"
- "i9112"
- "i9110"
- "i9108"
- "i9106"
- "i9104"
- "i9102"
- "i9100"
- "i9098"
- "i9096"
- "i9093"
- "i9091"
- "i9090"
- "i9089"
- "i9088"
- "i9087"
- "i9086"
- "i9084"
- "i9082"
- "i9080"
- "i9078"
- "i9077"
- "i9075"
- "i9073"
- "i9071"
- "i9069"
- "i9067"
- "i9065"
- "i9063"
- "i9062"
- "i9060"
- "i9058"
- "i9057"
- "i9056"
- "i9054"
- "i9053"
- "i9051"
- "i9049"
- "i9047"
- "i9045"
- "i9043"
- "i9041"
- "i9039"
- "i9037"
- "i9035"
- "i9033"
- "i9031"
- "i9029"
- "i9027"
- "i9025"
- "i9023"
- "i9021"
- "i9019"
- "i9017"
- "i9015"
- "i9013"
- "i9011"
- "i9009"
- "i9007"
- "i9005"
- "i9003"
- "i9001"
- "i8999"
- "i8997"
- "i8995"
- "i8993"
- "i8991"
- "i8989"
- "i8988"
- "i8986"
- "i8984"
- "i8982"
- "i8980"
- "i8978"
- "i8976"
- "i8974"
- "i8972"))
+ ("i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i265"
+ "i264"
+ "i262"
+ "i261"
+ "i260"
+ "i259"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i239"
+ "i237"
+ "i236"
+ "i235"
+ "i234"
+ "i233"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i208"
+ "i206"
+ "i204"
+ "i203"
+ "i202"
+ "i200"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"
+ "i169"
+ "i167"
+ "i165"
+ "i163"
+ "i161"
+ "i159"
+ "i157"
+ "i155"
+ "i153"
+ "i151"
+ "i149"
+ "i147"
+ "i145"
+ "i143"
+ "i141"
+ "i139"
+ "i137"
+ "i135"
+ "i134"
+ "i132"
+ "i130"
+ "i128"
+ "i126"
+ "i124"
+ "i122"
+ "i120"
+ "i118"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i8875" "i8873")))
+ ("i21" "i19")))
(hygiene guile))
- #{keys\ 12276}#))
+ #{keys\ 3423}#))
#f)
- (let ((#{labels\ 12301}#
- (list (#{gen-label\ 9092}#)))
- (#{var\ 12302}#
- (#{gen-var\ 9189}#
- #{pat\ 12293}#)))
- (#{build-application\ 8998}#
+ (let ((#{labels\ 3448}#
+ (list (#{gen-label\ 238}#)))
+ (#{var\ 3449}#
+ (#{gen-var\ 335}#
+ #{pat\ 3440}#)))
+ (#{build-application\ 144}#
#f
- (#{build-simple-lambda\ 9018}#
+ (#{build-simple-lambda\ 164}#
#f
(list (syntax->datum
- #{pat\ 12293}#))
+ #{pat\ 3440}#))
#f
- (list #{var\ 12302}#)
+ (list #{var\ 3449}#)
'()
- (#{chi\ 9161}#
- #{exp\ 12294}#
- (#{extend-env\ 9064}#
- #{labels\ 12301}#
+ (#{chi\ 307}#
+ #{exp\ 3441}#
+ (#{extend-env\ 210}#
+ #{labels\ 3448}#
(list (cons 'syntax
- (cons #{var\
12302}#
+ (cons #{var\
3449}#
0)))
- #{r\ 12278}#)
- (#{make-binding-wrap\ 9123}#
- (list #{pat\ 12293}#)
- #{labels\ 12301}#
+ #{r\ 3425}#)
+ (#{make-binding-wrap\ 269}#
+ (list #{pat\ 3440}#)
+ #{labels\ 3448}#
'(()))
- #{mod\ 12279}#))
- (list #{x\ 12275}#)))
- (#{gen-clause\ 12272}#
- #{x\ 12275}#
- #{keys\ 12276}#
- (cdr #{clauses\ 12277}#)
- #{r\ 12278}#
- #{pat\ 12293}#
+ #{mod\ 3426}#))
+ (list #{x\ 3422}#)))
+ (#{gen-clause\ 3419}#
+ #{x\ 3422}#
+ #{keys\ 3423}#
+ (cdr #{clauses\ 3424}#)
+ #{r\ 3425}#
+ #{pat\ 3440}#
#t
- #{exp\ 12294}#
- #{mod\ 12279}#)))
- #{tmp\ 12290}#)
- ((lambda (#{tmp\ 12308}#)
- (if #{tmp\ 12308}#
- (apply (lambda (#{pat\ 12312}#
- #{fender\ 12313}#
- #{exp\ 12314}#)
- (#{gen-clause\ 12272}#
- #{x\ 12275}#
- #{keys\ 12276}#
- (cdr #{clauses\ 12277}#)
- #{r\ 12278}#
- #{pat\ 12312}#
- #{fender\ 12313}#
- #{exp\ 12314}#
- #{mod\ 12279}#))
- #{tmp\ 12308}#)
- ((lambda (#{_\ 12316}#)
+ #{exp\ 3441}#
+ #{mod\ 3426}#)))
+ #{tmp\ 3437}#)
+ ((lambda (#{tmp\ 3455}#)
+ (if #{tmp\ 3455}#
+ (apply (lambda (#{pat\ 3459}#
+ #{fender\ 3460}#
+ #{exp\ 3461}#)
+ (#{gen-clause\ 3419}#
+ #{x\ 3422}#
+ #{keys\ 3423}#
+ (cdr #{clauses\ 3424}#)
+ #{r\ 3425}#
+ #{pat\ 3459}#
+ #{fender\ 3460}#
+ #{exp\ 3461}#
+ #{mod\ 3426}#))
+ #{tmp\ 3455}#)
+ ((lambda (#{_\ 3463}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 12277}#)))
- #{tmp\ 12289}#)))
+ (car #{clauses\ 3424}#)))
+ #{tmp\ 3436}#)))
($sc-dispatch
- #{tmp\ 12289}#
+ #{tmp\ 3436}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 12289}# (quote (any any)))))
- (car #{clauses\ 12277}#)))))
- (#{gen-clause\ 12272}#
- (lambda (#{x\ 12317}#
- #{keys\ 12318}#
- #{clauses\ 12319}#
- #{r\ 12320}#
- #{pat\ 12321}#
- #{fender\ 12322}#
- #{exp\ 12323}#
- #{mod\ 12324}#)
+ ($sc-dispatch #{tmp\ 3436}# (quote (any any)))))
+ (car #{clauses\ 3424}#)))))
+ (#{gen-clause\ 3419}#
+ (lambda (#{x\ 3464}#
+ #{keys\ 3465}#
+ #{clauses\ 3466}#
+ #{r\ 3467}#
+ #{pat\ 3468}#
+ #{fender\ 3469}#
+ #{exp\ 3470}#
+ #{mod\ 3471}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 12268}#
- #{pat\ 12321}#
- #{keys\ 12318}#))
- (lambda (#{p\ 12333}# #{pvars\ 12334}#)
- (if (not (#{distinct-bound-ids?\ 9141}#
- (map car #{pvars\ 12334}#)))
+ (#{convert-pattern\ 3415}#
+ #{pat\ 3468}#
+ #{keys\ 3465}#))
+ (lambda (#{p\ 3480}# #{pvars\ 3481}#)
+ (if (not (#{distinct-bound-ids?\ 287}#
+ (map car #{pvars\ 3481}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 12321}#)
+ #{pat\ 3468}#)
(if (not (and-map
- (lambda (#{x\ 12341}#)
- (not (#{ellipsis?\ 9177}#
- (car #{x\ 12341}#))))
- #{pvars\ 12334}#))
+ (lambda (#{x\ 3488}#)
+ (not (#{ellipsis?\ 323}#
+ (car #{x\ 3488}#))))
+ #{pvars\ 3481}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 12321}#)
- (let ((#{y\ 12345}#
- (#{gen-var\ 9189}# (quote tmp))))
- (#{build-application\ 8998}#
+ #{pat\ 3468}#)
+ (let ((#{y\ 3492}#
+ (#{gen-var\ 335}# (quote tmp))))
+ (#{build-application\ 144}#
#f
- (#{build-simple-lambda\ 9018}#
+ (#{build-simple-lambda\ 164}#
#f
(list (quote tmp))
#f
- (list #{y\ 12345}#)
+ (list #{y\ 3492}#)
'()
- (let ((#{y\ 12349}#
- (#{build-lexical-reference\ 9004}#
+ (let ((#{y\ 3496}#
+ (#{build-lexical-reference\ 150}#
'value
#f
'tmp
- #{y\ 12345}#)))
- (#{build-conditional\ 9000}#
+ #{y\ 3492}#)))
+ (#{build-conditional\ 146}#
#f
- ((lambda (#{tmp\ 12352}#)
- ((lambda (#{tmp\ 12353}#)
- (if #{tmp\ 12353}#
- (apply (lambda () #{y\ 12349}#)
- #{tmp\ 12353}#)
- ((lambda (#{_\ 12355}#)
- (#{build-conditional\ 9000}#
+ ((lambda (#{tmp\ 3499}#)
+ ((lambda (#{tmp\ 3500}#)
+ (if #{tmp\ 3500}#
+ (apply (lambda () #{y\ 3496}#)
+ #{tmp\ 3500}#)
+ ((lambda (#{_\ 3502}#)
+ (#{build-conditional\ 146}#
#f
- #{y\ 12349}#
- (#{build-dispatch-call\
12270}#
- #{pvars\ 12334}#
- #{fender\ 12322}#
- #{y\ 12349}#
- #{r\ 12320}#
- #{mod\ 12324}#)
- (#{build-data\ 9026}#
+ #{y\ 3496}#
+ (#{build-dispatch-call\
3417}#
+ #{pvars\ 3481}#
+ #{fender\ 3469}#
+ #{y\ 3496}#
+ #{r\ 3467}#
+ #{mod\ 3471}#)
+ (#{build-data\ 172}#
#f
#f)))
- #{tmp\ 12352}#)))
+ #{tmp\ 3499}#)))
($sc-dispatch
- #{tmp\ 12352}#
+ #{tmp\ 3499}#
'#(atom #t))))
- #{fender\ 12322}#)
- (#{build-dispatch-call\ 12270}#
- #{pvars\ 12334}#
- #{exp\ 12323}#
- #{y\ 12349}#
- #{r\ 12320}#
- #{mod\ 12324}#)
- (#{gen-syntax-case\ 12274}#
- #{x\ 12317}#
- #{keys\ 12318}#
- #{clauses\ 12319}#
- #{r\ 12320}#
- #{mod\ 12324}#))))
- (list (if (eq? #{p\ 12333}# (quote any))
- (#{build-application\ 8998}#
+ #{fender\ 3469}#)
+ (#{build-dispatch-call\ 3417}#
+ #{pvars\ 3481}#
+ #{exp\ 3470}#
+ #{y\ 3496}#
+ #{r\ 3467}#
+ #{mod\ 3471}#)
+ (#{gen-syntax-case\ 3421}#
+ #{x\ 3464}#
+ #{keys\ 3465}#
+ #{clauses\ 3466}#
+ #{r\ 3467}#
+ #{mod\ 3471}#))))
+ (list (if (eq? #{p\ 3480}# (quote any))
+ (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}#
+ (#{build-primref\ 170}#
#f
'list)
- (list #{x\ 12317}#))
- (#{build-application\ 8998}#
+ (list #{x\ 3464}#))
+ (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}#
+ (#{build-primref\ 170}#
#f
'$sc-dispatch)
- (list #{x\ 12317}#
- (#{build-data\ 9026}#
+ (list #{x\ 3464}#
+ (#{build-data\ 172}#
#f
- #{p\ 12333}#)))))))))))))
- (#{build-dispatch-call\ 12270}#
- (lambda (#{pvars\ 12363}#
- #{exp\ 12364}#
- #{y\ 12365}#
- #{r\ 12366}#
- #{mod\ 12367}#)
- (let ((#{ids\ 12375}# (map car #{pvars\ 12363}#))
- (#{levels\ 12376}# (map cdr #{pvars\ 12363}#)))
- (let ((#{labels\ 12379}#
- (#{gen-labels\ 9094}# #{ids\ 12375}#))
- (#{new-vars\ 12380}#
- (map #{gen-var\ 9189}# #{ids\ 12375}#)))
- (#{build-application\ 8998}#
+ #{p\ 3480}#)))))))))))))
+ (#{build-dispatch-call\ 3417}#
+ (lambda (#{pvars\ 3510}#
+ #{exp\ 3511}#
+ #{y\ 3512}#
+ #{r\ 3513}#
+ #{mod\ 3514}#)
+ (let ((#{ids\ 3522}# (map car #{pvars\ 3510}#))
+ (#{levels\ 3523}# (map cdr #{pvars\ 3510}#)))
+ (let ((#{labels\ 3526}#
+ (#{gen-labels\ 240}# #{ids\ 3522}#))
+ (#{new-vars\ 3527}#
+ (map #{gen-var\ 335}# #{ids\ 3522}#)))
+ (#{build-application\ 144}#
#f
- (#{build-primref\ 9024}# #f (quote apply))
- (list (#{build-simple-lambda\ 9018}#
+ (#{build-primref\ 170}# #f (quote apply))
+ (list (#{build-simple-lambda\ 164}#
#f
- (map syntax->datum #{ids\ 12375}#)
+ (map syntax->datum #{ids\ 3522}#)
#f
- #{new-vars\ 12380}#
+ #{new-vars\ 3527}#
'()
- (#{chi\ 9161}#
- #{exp\ 12364}#
- (#{extend-env\ 9064}#
- #{labels\ 12379}#
- (map (lambda (#{var\ 12384}#
- #{level\ 12385}#)
+ (#{chi\ 307}#
+ #{exp\ 3511}#
+ (#{extend-env\ 210}#
+ #{labels\ 3526}#
+ (map (lambda (#{var\ 3531}#
+ #{level\ 3532}#)
(cons 'syntax
- (cons #{var\ 12384}#
- #{level\ 12385}#)))
- #{new-vars\ 12380}#
- (map cdr #{pvars\ 12363}#))
- #{r\ 12366}#)
- (#{make-binding-wrap\ 9123}#
- #{ids\ 12375}#
- #{labels\ 12379}#
+ (cons #{var\ 3531}#
+ #{level\ 3532}#)))
+ #{new-vars\ 3527}#
+ (map cdr #{pvars\ 3510}#))
+ #{r\ 3513}#)
+ (#{make-binding-wrap\ 269}#
+ #{ids\ 3522}#
+ #{labels\ 3526}#
'(()))
- #{mod\ 12367}#))
- #{y\ 12365}#))))))
- (#{convert-pattern\ 12268}#
- (lambda (#{pattern\ 12391}# #{keys\ 12392}#)
- (letrec ((#{cvt\ 12398}#
- (lambda (#{p\ 12399}#
- #{n\ 12400}#
- #{ids\ 12401}#)
- (if (#{id?\ 9076}# #{p\ 12399}#)
- (if (#{bound-id-member?\ 9143}#
- #{p\ 12399}#
- #{keys\ 12392}#)
+ #{mod\ 3514}#))
+ #{y\ 3512}#))))))
+ (#{convert-pattern\ 3415}#
+ (lambda (#{pattern\ 3538}# #{keys\ 3539}#)
+ (letrec ((#{cvt\ 3545}#
+ (lambda (#{p\ 3546}# #{n\ 3547}# #{ids\ 3548}#)
+ (if (#{id?\ 222}# #{p\ 3546}#)
+ (if (#{bound-id-member?\ 289}#
+ #{p\ 3546}#
+ #{keys\ 3539}#)
(values
- (vector (quote free-id) #{p\ 12399}#)
- #{ids\ 12401}#)
+ (vector (quote free-id) #{p\ 3546}#)
+ #{ids\ 3548}#)
(values
'any
- (cons (cons #{p\ 12399}# #{n\ 12400}#)
- #{ids\ 12401}#)))
- ((lambda (#{tmp\ 12405}#)
- ((lambda (#{tmp\ 12406}#)
- (if (if #{tmp\ 12406}#
- (apply (lambda (#{x\ 12409}#
- #{dots\
12410}#)
- (#{ellipsis?\ 9177}#
- #{dots\ 12410}#))
- #{tmp\ 12406}#)
+ (cons (cons #{p\ 3546}# #{n\ 3547}#)
+ #{ids\ 3548}#)))
+ ((lambda (#{tmp\ 3552}#)
+ ((lambda (#{tmp\ 3553}#)
+ (if (if #{tmp\ 3553}#
+ (apply (lambda (#{x\ 3556}#
+ #{dots\ 3557}#)
+ (#{ellipsis?\ 323}#
+ #{dots\ 3557}#))
+ #{tmp\ 3553}#)
#f)
- (apply (lambda (#{x\ 12413}#
- #{dots\ 12414}#)
+ (apply (lambda (#{x\ 3560}#
+ #{dots\ 3561}#)
(call-with-values
(lambda ()
- (#{cvt\ 12398}#
- #{x\ 12413}#
- (#{fx+\ 8977}#
- #{n\ 12400}#
+ (#{cvt\ 3545}#
+ #{x\ 3560}#
+ (#{fx+\ 123}#
+ #{n\ 3547}#
1)
- #{ids\ 12401}#))
- (lambda (#{p\ 12415}#
- #{ids\ 12416}#)
+ #{ids\ 3548}#))
+ (lambda (#{p\ 3562}#
+ #{ids\ 3563}#)
(values
- (if (eq? #{p\
12415}#
+ (if (eq? #{p\ 3562}#
'any)
'each-any
(vector
'each
- #{p\ 12415}#))
- #{ids\ 12416}#))))
- #{tmp\ 12406}#)
- ((lambda (#{tmp\ 12419}#)
- (if (if #{tmp\ 12419}#
- (apply (lambda (#{x\
12423}#
- #{dots\
12424}#
- #{ys\
12425}#)
- (#{ellipsis?\
9177}#
- #{dots\
12424}#))
- #{tmp\ 12419}#)
+ #{p\ 3562}#))
+ #{ids\ 3563}#))))
+ #{tmp\ 3553}#)
+ ((lambda (#{tmp\ 3566}#)
+ (if (if #{tmp\ 3566}#
+ (apply (lambda (#{x\
3570}#
+ #{dots\
3571}#
+ #{ys\
3572}#)
+ (#{ellipsis?\
323}#
+ #{dots\
3571}#))
+ #{tmp\ 3566}#)
#f)
- (apply (lambda (#{x\ 12429}#
- #{dots\
12430}#
- #{ys\ 12431}#)
+ (apply (lambda (#{x\ 3576}#
+ #{dots\ 3577}#
+ #{ys\ 3578}#)
(call-with-values
(lambda ()
- (#{cvt*\ 12396}#
- #{ys\ 12431}#
- #{n\ 12400}#
- #{ids\
12401}#))
- (lambda (#{ys\
12433}#
- #{ids\
12434}#)
+ (#{cvt*\ 3543}#
+ #{ys\ 3578}#
+ #{n\ 3547}#
+ #{ids\ 3548}#))
+ (lambda (#{ys\
3580}#
+ #{ids\
3581}#)
(call-with-values
(lambda ()
- (#{cvt\
12398}#
- #{x\
12429}#
- (+ #{n\
12400}#
+ (#{cvt\
3545}#
+ #{x\ 3576}#
+ (+ #{n\
3547}#
1)
- #{ids\
12434}#))
- (lambda (#{x\
12437}#
-
#{ids\ 12438}#)
+ #{ids\
3581}#))
+ (lambda (#{x\
3584}#
+
#{ids\ 3585}#)
(values
(list->vector
(cons
'each+
-
(cons #{x\ 12437}#
+
(cons #{x\ 3584}#
(cons (reverse
-
#{ys\ 12433}#)
+
#{ys\ 3580}#)
'(())))))
- #{ids\
12438}#))))))
- #{tmp\ 12419}#)
- ((lambda (#{tmp\ 12442}#)
- (if #{tmp\ 12442}#
- (apply (lambda (#{x\
12445}#
- #{y\
12446}#)
+ #{ids\
3585}#))))))
+ #{tmp\ 3566}#)
+ ((lambda (#{tmp\ 3589}#)
+ (if #{tmp\ 3589}#
+ (apply (lambda (#{x\
3592}#
+ #{y\
3593}#)
(call-with-values
(lambda ()
- (#{cvt\
12398}#
- #{y\
12446}#
- #{n\
12400}#
- #{ids\
12401}#))
- (lambda (#{y\
12447}#
-
#{ids\ 12448}#)
+ (#{cvt\
3545}#
+ #{y\
3593}#
+ #{n\
3547}#
+ #{ids\
3548}#))
+ (lambda (#{y\
3594}#
+
#{ids\ 3595}#)
(call-with-values
(lambda ()
- (#{cvt\
12398}#
- #{x\
12445}#
- #{n\
12400}#
-
#{ids\ 12448}#))
- (lambda
(#{x\ 12451}#
-
#{ids\ 12452}#)
+ (#{cvt\
3545}#
+ #{x\
3592}#
+ #{n\
3547}#
+
#{ids\ 3595}#))
+ (lambda
(#{x\ 3598}#
+
#{ids\ 3599}#)
(values
- (cons
#{x\ 12451}#
-
#{y\ 12447}#)
-
#{ids\ 12452}#))))))
- #{tmp\ 12442}#)
- ((lambda (#{tmp\ 12455}#)
- (if #{tmp\ 12455}#
+ (cons
#{x\ 3598}#
+
#{y\ 3594}#)
+
#{ids\ 3599}#))))))
+ #{tmp\ 3589}#)
+ ((lambda (#{tmp\ 3602}#)
+ (if #{tmp\ 3602}#
(apply (lambda ()
(values
'()
- #{ids\
12401}#))
- #{tmp\
12455}#)
- ((lambda (#{tmp\
12456}#)
- (if #{tmp\
12456}#
- (apply (lambda
(#{x\ 12458}#)
+ #{ids\
3548}#))
+ #{tmp\
3602}#)
+ ((lambda (#{tmp\
3603}#)
+ (if #{tmp\ 3603}#
+ (apply (lambda
(#{x\ 3605}#)
(call-with-values
(lambda ()
-
(#{cvt\ 12398}#
-
#{x\ 12458}#
-
#{n\ 12400}#
-
#{ids\ 12401}#))
-
(lambda (#{p\ 12460}#
-
#{ids\ 12461}#)
+
(#{cvt\ 3545}#
+
#{x\ 3605}#
+
#{n\ 3547}#
+
#{ids\ 3548}#))
+
(lambda (#{p\ 3607}#
+
#{ids\ 3608}#)
(values
(vector
'vector
-
#{p\ 12460}#)
-
#{ids\ 12461}#))))
- #{tmp\
12456}#)
- ((lambda (#{x\
12465}#)
+
#{p\ 3607}#)
+
#{ids\ 3608}#))))
+ #{tmp\
3603}#)
+ ((lambda (#{x\
3612}#)
(values
(vector
'atom
-
(#{strip\ 9187}#
- #{p\
12399}#
+
(#{strip\ 333}#
+ #{p\
3546}#
'(())))
- #{ids\
12401}#))
- #{tmp\
12405}#)))
+ #{ids\
3548}#))
+ #{tmp\
3552}#)))
($sc-dispatch
- #{tmp\ 12405}#
+ #{tmp\ 3552}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 12405}#
+ #{tmp\ 3552}#
'()))))
($sc-dispatch
- #{tmp\ 12405}#
+ #{tmp\ 3552}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 12405}#
+ #{tmp\ 3552}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 12405}#
+ #{tmp\ 3552}#
'(any any))))
- #{p\ 12399}#))))
- (#{cvt*\ 12396}#
- (lambda (#{p*\ 12467}#
- #{n\ 12468}#
- #{ids\ 12469}#)
- (if (null? #{p*\ 12467}#)
- (values (quote ()) #{ids\ 12469}#)
+ #{p\ 3546}#))))
+ (#{cvt*\ 3543}#
+ (lambda (#{p*\ 3614}#
+ #{n\ 3615}#
+ #{ids\ 3616}#)
+ (if (null? #{p*\ 3614}#)
+ (values (quote ()) #{ids\ 3616}#)
(call-with-values
(lambda ()
- (#{cvt*\ 12396}#
- (cdr #{p*\ 12467}#)
- #{n\ 12468}#
- #{ids\ 12469}#))
- (lambda (#{y\ 12473}# #{ids\ 12474}#)
+ (#{cvt*\ 3543}#
+ (cdr #{p*\ 3614}#)
+ #{n\ 3615}#
+ #{ids\ 3616}#))
+ (lambda (#{y\ 3620}# #{ids\ 3621}#)
(call-with-values
(lambda ()
- (#{cvt\ 12398}#
- (car #{p*\ 12467}#)
- #{n\ 12468}#
- #{ids\ 12474}#))
- (lambda (#{x\ 12477}# #{ids\ 12478}#)
+ (#{cvt\ 3545}#
+ (car #{p*\ 3614}#)
+ #{n\ 3615}#
+ #{ids\ 3621}#))
+ (lambda (#{x\ 3624}# #{ids\ 3625}#)
(values
- (cons #{x\ 12477}# #{y\ 12473}#)
- #{ids\ 12478}#)))))))))
- (#{cvt\ 12398}# #{pattern\ 12391}# 0 (quote ()))))))
- (lambda (#{e\ 12481}#
- #{r\ 12482}#
- #{w\ 12483}#
- #{s\ 12484}#
- #{mod\ 12485}#)
- (let ((#{e\ 12492}#
- (#{source-wrap\ 9147}#
- #{e\ 12481}#
- #{w\ 12483}#
- #{s\ 12484}#
- #{mod\ 12485}#)))
- ((lambda (#{tmp\ 12493}#)
- ((lambda (#{tmp\ 12494}#)
- (if #{tmp\ 12494}#
- (apply (lambda (#{_\ 12499}#
- #{val\ 12500}#
- #{key\ 12501}#
- #{m\ 12502}#)
+ (cons #{x\ 3624}# #{y\ 3620}#)
+ #{ids\ 3625}#)))))))))
+ (#{cvt\ 3545}# #{pattern\ 3538}# 0 (quote ()))))))
+ (lambda (#{e\ 3628}#
+ #{r\ 3629}#
+ #{w\ 3630}#
+ #{s\ 3631}#
+ #{mod\ 3632}#)
+ (let ((#{e\ 3639}#
+ (#{source-wrap\ 293}#
+ #{e\ 3628}#
+ #{w\ 3630}#
+ #{s\ 3631}#
+ #{mod\ 3632}#)))
+ ((lambda (#{tmp\ 3640}#)
+ ((lambda (#{tmp\ 3641}#)
+ (if #{tmp\ 3641}#
+ (apply (lambda (#{_\ 3646}#
+ #{val\ 3647}#
+ #{key\ 3648}#
+ #{m\ 3649}#)
(if (and-map
- (lambda (#{x\ 12503}#)
- (if (#{id?\ 9076}# #{x\ 12503}#)
- (not (#{ellipsis?\ 9177}#
- #{x\ 12503}#))
+ (lambda (#{x\ 3650}#)
+ (if (#{id?\ 222}# #{x\ 3650}#)
+ (not (#{ellipsis?\ 323}# #{x\ 3650}#))
#f))
- #{key\ 12501}#)
- (let ((#{x\ 12509}#
- (#{gen-var\ 9189}# (quote tmp))))
- (#{build-application\ 8998}#
- #{s\ 12484}#
- (#{build-simple-lambda\ 9018}#
+ #{key\ 3648}#)
+ (let ((#{x\ 3656}#
+ (#{gen-var\ 335}# (quote tmp))))
+ (#{build-application\ 144}#
+ #{s\ 3631}#
+ (#{build-simple-lambda\ 164}#
#f
(list (quote tmp))
#f
- (list #{x\ 12509}#)
+ (list #{x\ 3656}#)
'()
- (#{gen-syntax-case\ 12274}#
- (#{build-lexical-reference\ 9004}#
+ (#{gen-syntax-case\ 3421}#
+ (#{build-lexical-reference\ 150}#
'value
#f
'tmp
- #{x\ 12509}#)
- #{key\ 12501}#
- #{m\ 12502}#
- #{r\ 12482}#
- #{mod\ 12485}#))
- (list (#{chi\ 9161}#
- #{val\ 12500}#
- #{r\ 12482}#
+ #{x\ 3656}#)
+ #{key\ 3648}#
+ #{m\ 3649}#
+ #{r\ 3629}#
+ #{mod\ 3632}#))
+ (list (#{chi\ 307}#
+ #{val\ 3647}#
+ #{r\ 3629}#
'(())
- #{mod\ 12485}#))))
+ #{mod\ 3632}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 12492}#)))
- #{tmp\ 12494}#)
+ #{e\ 3639}#)))
+ #{tmp\ 3641}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12493}#)))
+ #{tmp\ 3640}#)))
($sc-dispatch
- #{tmp\ 12493}#
+ #{tmp\ 3640}#
'(any any each-any . each-any))))
- #{e\ 12492}#)))))
+ #{e\ 3639}#)))))
(set! macroexpand
- (lambda (#{x\ 12515}# . #{rest\ 12516}#)
- (if (if (pair? #{x\ 12515}#)
- (equal? (car #{x\ 12515}#) #{noexpand\ 8973}#)
+ (lambda (#{x\ 3662}# . #{rest\ 3663}#)
+ (if (if (pair? #{x\ 3662}#)
+ (equal? (car #{x\ 3662}#) #{noexpand\ 119}#)
#f)
- (cadr #{x\ 12515}#)
- (let ((#{m\ 12523}#
- (if (null? #{rest\ 12516}#)
+ (cadr #{x\ 3662}#)
+ (let ((#{m\ 3670}#
+ (if (null? #{rest\ 3663}#)
'e
- (car #{rest\ 12516}#)))
- (#{esew\ 12524}#
- (if (let ((#{t\ 12527}# (null? #{rest\ 12516}#)))
- (if #{t\ 12527}#
- #{t\ 12527}#
- (null? (cdr #{rest\ 12516}#))))
+ (car #{rest\ 3663}#)))
+ (#{esew\ 3671}#
+ (if (let ((#{t\ 3674}# (null? #{rest\ 3663}#)))
+ (if #{t\ 3674}#
+ #{t\ 3674}#
+ (null? (cdr #{rest\ 3663}#))))
'(eval)
- (cadr #{rest\ 12516}#))))
+ (cadr #{rest\ 3663}#))))
(with-fluids
- ((#{*mode*\ 8975}# #{m\ 12523}#))
- (#{chi-top\ 9159}#
- #{x\ 12515}#
+ ((#{*mode*\ 121}# #{m\ 3670}#))
+ (#{chi-top\ 305}#
+ #{x\ 3662}#
'()
'((top))
- #{m\ 12523}#
- #{esew\ 12524}#
+ #{m\ 3670}#
+ #{esew\ 3671}#
(cons 'hygiene
(module-name (current-module)))))))))
(set! identifier?
- (lambda (#{x\ 12531}#)
- (#{nonsymbol-id?\ 9074}# #{x\ 12531}#)))
+ (lambda (#{x\ 3678}#)
+ (#{nonsymbol-id?\ 220}# #{x\ 3678}#)))
(set! datum->syntax
- (lambda (#{id\ 12533}# #{datum\ 12534}#)
- (#{make-syntax-object\ 9038}#
- #{datum\ 12534}#
- (#{syntax-object-wrap\ 9044}# #{id\ 12533}#)
+ (lambda (#{id\ 3680}# #{datum\ 3681}#)
+ (#{make-syntax-object\ 184}#
+ #{datum\ 3681}#
+ (#{syntax-object-wrap\ 190}# #{id\ 3680}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 12537}#)
- (#{strip\ 9187}# #{x\ 12537}# (quote (())))))
+ (lambda (#{x\ 3684}#)
+ (#{strip\ 333}# #{x\ 3684}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 12540}#)
+ (lambda (#{ls\ 3687}#)
(begin
- (let ((#{x\ 12544}# #{ls\ 12540}#))
- (if (not (list? #{x\ 12544}#))
+ (let ((#{x\ 3691}# #{ls\ 3687}#))
+ (if (not (list? #{x\ 3691}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 12544}#)))
- (map (lambda (#{x\ 12545}#)
- (#{wrap\ 9145}# (gensym) (quote ((top))) #f))
- #{ls\ 12540}#))))
+ #{x\ 3691}#)))
+ (map (lambda (#{x\ 3692}#)
+ (#{wrap\ 291}# (gensym) (quote ((top))) #f))
+ #{ls\ 3687}#))))
(set! free-identifier=?
- (lambda (#{x\ 12549}# #{y\ 12550}#)
+ (lambda (#{x\ 3696}# #{y\ 3697}#)
(begin
- (let ((#{x\ 12555}# #{x\ 12549}#))
- (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12555}#))
+ (let ((#{x\ 3702}# #{x\ 3696}#))
+ (if (not (#{nonsymbol-id?\ 220}# #{x\ 3702}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 12555}#)))
- (let ((#{x\ 12558}# #{y\ 12550}#))
- (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12558}#))
+ #{x\ 3702}#)))
+ (let ((#{x\ 3705}# #{y\ 3697}#))
+ (if (not (#{nonsymbol-id?\ 220}# #{x\ 3705}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 12558}#)))
- (#{free-id=?\ 9135}# #{x\ 12549}# #{y\ 12550}#))))
+ #{x\ 3705}#)))
+ (#{free-id=?\ 281}# #{x\ 3696}# #{y\ 3697}#))))
(set! bound-identifier=?
- (lambda (#{x\ 12559}# #{y\ 12560}#)
+ (lambda (#{x\ 3706}# #{y\ 3707}#)
(begin
- (let ((#{x\ 12565}# #{x\ 12559}#))
- (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12565}#))
+ (let ((#{x\ 3712}# #{x\ 3706}#))
+ (if (not (#{nonsymbol-id?\ 220}# #{x\ 3712}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 12565}#)))
- (let ((#{x\ 12568}# #{y\ 12560}#))
- (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12568}#))
+ #{x\ 3712}#)))
+ (let ((#{x\ 3715}# #{y\ 3707}#))
+ (if (not (#{nonsymbol-id?\ 220}# #{x\ 3715}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 12568}#)))
- (#{bound-id=?\ 9137}# #{x\ 12559}# #{y\ 12560}#))))
+ #{x\ 3715}#)))
+ (#{bound-id=?\ 283}# #{x\ 3706}# #{y\ 3707}#))))
(set! syntax-violation
- (lambda (#{who\ 12569}#
- #{message\ 12570}#
- #{form\ 12571}#
+ (lambda (#{who\ 3716}#
+ #{message\ 3717}#
+ #{form\ 3718}#
.
- #{subform\ 12572}#)
+ #{subform\ 3719}#)
(begin
- (let ((#{x\ 12579}# #{who\ 12569}#))
- (if (not ((lambda (#{x\ 12580}#)
- (let ((#{t\ 12584}# (not #{x\ 12580}#)))
- (if #{t\ 12584}#
- #{t\ 12584}#
- (let ((#{t\ 12587}# (string? #{x\ 12580}#)))
- (if #{t\ 12587}#
- #{t\ 12587}#
- (symbol? #{x\ 12580}#))))))
- #{x\ 12579}#))
+ (let ((#{x\ 3726}# #{who\ 3716}#))
+ (if (not ((lambda (#{x\ 3727}#)
+ (let ((#{t\ 3731}# (not #{x\ 3727}#)))
+ (if #{t\ 3731}#
+ #{t\ 3731}#
+ (let ((#{t\ 3734}# (string? #{x\ 3727}#)))
+ (if #{t\ 3734}#
+ #{t\ 3734}#
+ (symbol? #{x\ 3727}#))))))
+ #{x\ 3726}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 12579}#)))
- (let ((#{x\ 12591}# #{message\ 12570}#))
- (if (not (string? #{x\ 12591}#))
+ #{x\ 3726}#)))
+ (let ((#{x\ 3738}# #{message\ 3717}#))
+ (if (not (string? #{x\ 3738}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 12591}#)))
+ #{x\ 3738}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 12569}# "~a: " "")
+ (if #{who\ 3716}# "~a: " "")
"~a "
- (if (null? #{subform\ 12572}#)
+ (if (null? #{subform\ 3719}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 12593}#
- (cons #{message\ 12570}#
- (map (lambda (#{x\ 12594}#)
- (#{strip\ 9187}# #{x\ 12594}# (quote (()))))
+ (let ((#{tail\ 3740}#
+ (cons #{message\ 3717}#
+ (map (lambda (#{x\ 3741}#)
+ (#{strip\ 333}# #{x\ 3741}# (quote (()))))
(append
- #{subform\ 12572}#
- (list #{form\ 12571}#))))))
- (if #{who\ 12569}#
- (cons #{who\ 12569}# #{tail\ 12593}#)
- #{tail\ 12593}#))
+ #{subform\ 3719}#
+ (list #{form\ 3718}#))))))
+ (if #{who\ 3716}#
+ (cons #{who\ 3716}# #{tail\ 3740}#)
+ #{tail\ 3740}#))
#f))))
- (letrec ((#{match\ 12610}#
- (lambda (#{e\ 12611}#
- #{p\ 12612}#
- #{w\ 12613}#
- #{r\ 12614}#
- #{mod\ 12615}#)
- (if (not #{r\ 12614}#)
+ (letrec ((#{match\ 3757}#
+ (lambda (#{e\ 3758}#
+ #{p\ 3759}#
+ #{w\ 3760}#
+ #{r\ 3761}#
+ #{mod\ 3762}#)
+ (if (not #{r\ 3761}#)
#f
- (if (eq? #{p\ 12612}# (quote any))
- (cons (#{wrap\ 9145}#
- #{e\ 12611}#
- #{w\ 12613}#
- #{mod\ 12615}#)
- #{r\ 12614}#)
- (if (#{syntax-object?\ 9040}# #{e\ 12611}#)
- (#{match*\ 12608}#
- (#{syntax-object-expression\ 9042}# #{e\ 12611}#)
- #{p\ 12612}#
- (#{join-wraps\ 9127}#
- #{w\ 12613}#
- (#{syntax-object-wrap\ 9044}# #{e\ 12611}#))
- #{r\ 12614}#
- (#{syntax-object-module\ 9046}# #{e\ 12611}#))
- (#{match*\ 12608}#
- #{e\ 12611}#
- #{p\ 12612}#
- #{w\ 12613}#
- #{r\ 12614}#
- #{mod\ 12615}#))))))
- (#{match*\ 12608}#
- (lambda (#{e\ 12628}#
- #{p\ 12629}#
- #{w\ 12630}#
- #{r\ 12631}#
- #{mod\ 12632}#)
- (if (null? #{p\ 12629}#)
- (if (null? #{e\ 12628}#) #{r\ 12631}# #f)
- (if (pair? #{p\ 12629}#)
- (if (pair? #{e\ 12628}#)
- (#{match\ 12610}#
- (car #{e\ 12628}#)
- (car #{p\ 12629}#)
- #{w\ 12630}#
- (#{match\ 12610}#
- (cdr #{e\ 12628}#)
- (cdr #{p\ 12629}#)
- #{w\ 12630}#
- #{r\ 12631}#
- #{mod\ 12632}#)
- #{mod\ 12632}#)
+ (if (eq? #{p\ 3759}# (quote any))
+ (cons (#{wrap\ 291}#
+ #{e\ 3758}#
+ #{w\ 3760}#
+ #{mod\ 3762}#)
+ #{r\ 3761}#)
+ (if (#{syntax-object?\ 186}# #{e\ 3758}#)
+ (#{match*\ 3755}#
+ (#{syntax-object-expression\ 188}# #{e\ 3758}#)
+ #{p\ 3759}#
+ (#{join-wraps\ 273}#
+ #{w\ 3760}#
+ (#{syntax-object-wrap\ 190}# #{e\ 3758}#))
+ #{r\ 3761}#
+ (#{syntax-object-module\ 192}# #{e\ 3758}#))
+ (#{match*\ 3755}#
+ #{e\ 3758}#
+ #{p\ 3759}#
+ #{w\ 3760}#
+ #{r\ 3761}#
+ #{mod\ 3762}#))))))
+ (#{match*\ 3755}#
+ (lambda (#{e\ 3775}#
+ #{p\ 3776}#
+ #{w\ 3777}#
+ #{r\ 3778}#
+ #{mod\ 3779}#)
+ (if (null? #{p\ 3776}#)
+ (if (null? #{e\ 3775}#) #{r\ 3778}# #f)
+ (if (pair? #{p\ 3776}#)
+ (if (pair? #{e\ 3775}#)
+ (#{match\ 3757}#
+ (car #{e\ 3775}#)
+ (car #{p\ 3776}#)
+ #{w\ 3777}#
+ (#{match\ 3757}#
+ (cdr #{e\ 3775}#)
+ (cdr #{p\ 3776}#)
+ #{w\ 3777}#
+ #{r\ 3778}#
+ #{mod\ 3779}#)
+ #{mod\ 3779}#)
#f)
- (if (eq? #{p\ 12629}# (quote each-any))
- (let ((#{l\ 12649}#
- (#{match-each-any\ 12602}#
- #{e\ 12628}#
- #{w\ 12630}#
- #{mod\ 12632}#)))
- (if #{l\ 12649}#
- (cons #{l\ 12649}# #{r\ 12631}#)
+ (if (eq? #{p\ 3776}# (quote each-any))
+ (let ((#{l\ 3796}#
+ (#{match-each-any\ 3749}#
+ #{e\ 3775}#
+ #{w\ 3777}#
+ #{mod\ 3779}#)))
+ (if #{l\ 3796}#
+ (cons #{l\ 3796}# #{r\ 3778}#)
#f))
- (let ((#{atom-key\ 12655}#
- (vector-ref #{p\ 12629}# 0)))
- (if (memv #{atom-key\ 12655}# (quote (each)))
- (if (null? #{e\ 12628}#)
- (#{match-empty\ 12604}#
- (vector-ref #{p\ 12629}# 1)
- #{r\ 12631}#)
- (let ((#{l\ 12658}#
- (#{match-each\ 12598}#
- #{e\ 12628}#
- (vector-ref #{p\ 12629}# 1)
- #{w\ 12630}#
- #{mod\ 12632}#)))
- (if #{l\ 12658}#
- (letrec ((#{collect\ 12663}#
- (lambda (#{l\ 12664}#)
- (if (null? (car #{l\ 12664}#))
- #{r\ 12631}#
- (cons (map car #{l\ 12664}#)
- (#{collect\ 12663}#
+ (let ((#{atom-key\ 3802}# (vector-ref #{p\ 3776}# 0)))
+ (if (memv #{atom-key\ 3802}# (quote (each)))
+ (if (null? #{e\ 3775}#)
+ (#{match-empty\ 3751}#
+ (vector-ref #{p\ 3776}# 1)
+ #{r\ 3778}#)
+ (let ((#{l\ 3805}#
+ (#{match-each\ 3745}#
+ #{e\ 3775}#
+ (vector-ref #{p\ 3776}# 1)
+ #{w\ 3777}#
+ #{mod\ 3779}#)))
+ (if #{l\ 3805}#
+ (letrec ((#{collect\ 3810}#
+ (lambda (#{l\ 3811}#)
+ (if (null? (car #{l\ 3811}#))
+ #{r\ 3778}#
+ (cons (map car #{l\ 3811}#)
+ (#{collect\ 3810}#
(map cdr
- #{l\
12664}#)))))))
- (#{collect\ 12663}# #{l\ 12658}#))
+ #{l\
3811}#)))))))
+ (#{collect\ 3810}# #{l\ 3805}#))
#f)))
- (if (memv #{atom-key\ 12655}# (quote (each+)))
+ (if (memv #{atom-key\ 3802}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 12600}#
- #{e\ 12628}#
- (vector-ref #{p\ 12629}# 1)
- (vector-ref #{p\ 12629}# 2)
- (vector-ref #{p\ 12629}# 3)
- #{w\ 12630}#
- #{r\ 12631}#
- #{mod\ 12632}#))
- (lambda (#{xr*\ 12666}#
- #{y-pat\ 12667}#
- #{r\ 12668}#)
- (if #{r\ 12668}#
- (if (null? #{y-pat\ 12667}#)
- (if (null? #{xr*\ 12666}#)
- (#{match-empty\ 12604}#
- (vector-ref #{p\ 12629}# 1)
- #{r\ 12668}#)
- (#{combine\ 12606}#
- #{xr*\ 12666}#
- #{r\ 12668}#))
+ (#{match-each+\ 3747}#
+ #{e\ 3775}#
+ (vector-ref #{p\ 3776}# 1)
+ (vector-ref #{p\ 3776}# 2)
+ (vector-ref #{p\ 3776}# 3)
+ #{w\ 3777}#
+ #{r\ 3778}#
+ #{mod\ 3779}#))
+ (lambda (#{xr*\ 3813}#
+ #{y-pat\ 3814}#
+ #{r\ 3815}#)
+ (if #{r\ 3815}#
+ (if (null? #{y-pat\ 3814}#)
+ (if (null? #{xr*\ 3813}#)
+ (#{match-empty\ 3751}#
+ (vector-ref #{p\ 3776}# 1)
+ #{r\ 3815}#)
+ (#{combine\ 3753}#
+ #{xr*\ 3813}#
+ #{r\ 3815}#))
#f)
#f)))
- (if (memv #{atom-key\ 12655}# (quote (free-id)))
- (if (#{id?\ 9076}# #{e\ 12628}#)
- (if (#{free-id=?\ 9135}#
- (#{wrap\ 9145}#
- #{e\ 12628}#
- #{w\ 12630}#
- #{mod\ 12632}#)
- (vector-ref #{p\ 12629}# 1))
- #{r\ 12631}#
+ (if (memv #{atom-key\ 3802}# (quote (free-id)))
+ (if (#{id?\ 222}# #{e\ 3775}#)
+ (if (#{free-id=?\ 281}#
+ (#{wrap\ 291}#
+ #{e\ 3775}#
+ #{w\ 3777}#
+ #{mod\ 3779}#)
+ (vector-ref #{p\ 3776}# 1))
+ #{r\ 3778}#
#f)
#f)
- (if (memv #{atom-key\ 12655}# (quote (atom)))
+ (if (memv #{atom-key\ 3802}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 12629}# 1)
- (#{strip\ 9187}#
- #{e\ 12628}#
- #{w\ 12630}#))
- #{r\ 12631}#
+ (vector-ref #{p\ 3776}# 1)
+ (#{strip\ 333}#
+ #{e\ 3775}#
+ #{w\ 3777}#))
+ #{r\ 3778}#
#f)
- (if (memv #{atom-key\ 12655}#
+ (if (memv #{atom-key\ 3802}#
'(vector))
- (if (vector? #{e\ 12628}#)
- (#{match\ 12610}#
- (vector->list #{e\ 12628}#)
- (vector-ref #{p\ 12629}# 1)
- #{w\ 12630}#
- #{r\ 12631}#
- #{mod\ 12632}#)
+ (if (vector? #{e\ 3775}#)
+ (#{match\ 3757}#
+ (vector->list #{e\ 3775}#)
+ (vector-ref #{p\ 3776}# 1)
+ #{w\ 3777}#
+ #{r\ 3778}#
+ #{mod\ 3779}#)
#f))))))))))))
- (#{combine\ 12606}#
- (lambda (#{r*\ 12685}# #{r\ 12686}#)
- (if (null? (car #{r*\ 12685}#))
- #{r\ 12686}#
- (cons (map car #{r*\ 12685}#)
- (#{combine\ 12606}#
- (map cdr #{r*\ 12685}#)
- #{r\ 12686}#)))))
- (#{match-empty\ 12604}#
- (lambda (#{p\ 12689}# #{r\ 12690}#)
- (if (null? #{p\ 12689}#)
- #{r\ 12690}#
- (if (eq? #{p\ 12689}# (quote any))
- (cons (quote ()) #{r\ 12690}#)
- (if (pair? #{p\ 12689}#)
- (#{match-empty\ 12604}#
- (car #{p\ 12689}#)
- (#{match-empty\ 12604}#
- (cdr #{p\ 12689}#)
- #{r\ 12690}#))
- (if (eq? #{p\ 12689}# (quote each-any))
- (cons (quote ()) #{r\ 12690}#)
- (let ((#{atom-key\ 12704}#
- (vector-ref #{p\ 12689}# 0)))
- (if (memv #{atom-key\ 12704}# (quote (each)))
- (#{match-empty\ 12604}#
- (vector-ref #{p\ 12689}# 1)
- #{r\ 12690}#)
- (if (memv #{atom-key\ 12704}# (quote (each+)))
- (#{match-empty\ 12604}#
- (vector-ref #{p\ 12689}# 1)
- (#{match-empty\ 12604}#
- (reverse (vector-ref #{p\ 12689}# 2))
- (#{match-empty\ 12604}#
- (vector-ref #{p\ 12689}# 3)
- #{r\ 12690}#)))
- (if (memv #{atom-key\ 12704}#
+ (#{combine\ 3753}#
+ (lambda (#{r*\ 3832}# #{r\ 3833}#)
+ (if (null? (car #{r*\ 3832}#))
+ #{r\ 3833}#
+ (cons (map car #{r*\ 3832}#)
+ (#{combine\ 3753}#
+ (map cdr #{r*\ 3832}#)
+ #{r\ 3833}#)))))
+ (#{match-empty\ 3751}#
+ (lambda (#{p\ 3836}# #{r\ 3837}#)
+ (if (null? #{p\ 3836}#)
+ #{r\ 3837}#
+ (if (eq? #{p\ 3836}# (quote any))
+ (cons (quote ()) #{r\ 3837}#)
+ (if (pair? #{p\ 3836}#)
+ (#{match-empty\ 3751}#
+ (car #{p\ 3836}#)
+ (#{match-empty\ 3751}#
+ (cdr #{p\ 3836}#)
+ #{r\ 3837}#))
+ (if (eq? #{p\ 3836}# (quote each-any))
+ (cons (quote ()) #{r\ 3837}#)
+ (let ((#{atom-key\ 3851}#
+ (vector-ref #{p\ 3836}# 0)))
+ (if (memv #{atom-key\ 3851}# (quote (each)))
+ (#{match-empty\ 3751}#
+ (vector-ref #{p\ 3836}# 1)
+ #{r\ 3837}#)
+ (if (memv #{atom-key\ 3851}# (quote (each+)))
+ (#{match-empty\ 3751}#
+ (vector-ref #{p\ 3836}# 1)
+ (#{match-empty\ 3751}#
+ (reverse (vector-ref #{p\ 3836}# 2))
+ (#{match-empty\ 3751}#
+ (vector-ref #{p\ 3836}# 3)
+ #{r\ 3837}#)))
+ (if (memv #{atom-key\ 3851}#
'(free-id atom))
- #{r\ 12690}#
- (if (memv #{atom-key\ 12704}#
+ #{r\ 3837}#
+ (if (memv #{atom-key\ 3851}#
'(vector))
- (#{match-empty\ 12604}#
- (vector-ref #{p\ 12689}# 1)
- #{r\ 12690}#))))))))))))
- (#{match-each-any\ 12602}#
- (lambda (#{e\ 12709}# #{w\ 12710}# #{mod\ 12711}#)
- (if (pair? #{e\ 12709}#)
- (let ((#{l\ 12718}#
- (#{match-each-any\ 12602}#
- (cdr #{e\ 12709}#)
- #{w\ 12710}#
- #{mod\ 12711}#)))
- (if #{l\ 12718}#
- (cons (#{wrap\ 9145}#
- (car #{e\ 12709}#)
- #{w\ 12710}#
- #{mod\ 12711}#)
- #{l\ 12718}#)
+ (#{match-empty\ 3751}#
+ (vector-ref #{p\ 3836}# 1)
+ #{r\ 3837}#))))))))))))
+ (#{match-each-any\ 3749}#
+ (lambda (#{e\ 3856}# #{w\ 3857}# #{mod\ 3858}#)
+ (if (pair? #{e\ 3856}#)
+ (let ((#{l\ 3865}#
+ (#{match-each-any\ 3749}#
+ (cdr #{e\ 3856}#)
+ #{w\ 3857}#
+ #{mod\ 3858}#)))
+ (if #{l\ 3865}#
+ (cons (#{wrap\ 291}#
+ (car #{e\ 3856}#)
+ #{w\ 3857}#
+ #{mod\ 3858}#)
+ #{l\ 3865}#)
#f))
- (if (null? #{e\ 12709}#)
+ (if (null? #{e\ 3856}#)
'()
- (if (#{syntax-object?\ 9040}# #{e\ 12709}#)
- (#{match-each-any\ 12602}#
- (#{syntax-object-expression\ 9042}# #{e\ 12709}#)
- (#{join-wraps\ 9127}#
- #{w\ 12710}#
- (#{syntax-object-wrap\ 9044}# #{e\ 12709}#))
- #{mod\ 12711}#)
+ (if (#{syntax-object?\ 186}# #{e\ 3856}#)
+ (#{match-each-any\ 3749}#
+ (#{syntax-object-expression\ 188}# #{e\ 3856}#)
+ (#{join-wraps\ 273}#
+ #{w\ 3857}#
+ (#{syntax-object-wrap\ 190}# #{e\ 3856}#))
+ #{mod\ 3858}#)
#f)))))
- (#{match-each+\ 12600}#
- (lambda (#{e\ 12726}#
- #{x-pat\ 12727}#
- #{y-pat\ 12728}#
- #{z-pat\ 12729}#
- #{w\ 12730}#
- #{r\ 12731}#
- #{mod\ 12732}#)
- (letrec ((#{f\ 12743}#
- (lambda (#{e\ 12744}# #{w\ 12745}#)
- (if (pair? #{e\ 12744}#)
+ (#{match-each+\ 3747}#
+ (lambda (#{e\ 3873}#
+ #{x-pat\ 3874}#
+ #{y-pat\ 3875}#
+ #{z-pat\ 3876}#
+ #{w\ 3877}#
+ #{r\ 3878}#
+ #{mod\ 3879}#)
+ (letrec ((#{f\ 3890}#
+ (lambda (#{e\ 3891}# #{w\ 3892}#)
+ (if (pair? #{e\ 3891}#)
(call-with-values
(lambda ()
- (#{f\ 12743}#
- (cdr #{e\ 12744}#)
- #{w\ 12745}#))
- (lambda (#{xr*\ 12748}#
- #{y-pat\ 12749}#
- #{r\ 12750}#)
- (if #{r\ 12750}#
- (if (null? #{y-pat\ 12749}#)
- (let ((#{xr\ 12755}#
- (#{match\ 12610}#
- (car #{e\ 12744}#)
- #{x-pat\ 12727}#
- #{w\ 12745}#
+ (#{f\ 3890}#
+ (cdr #{e\ 3891}#)
+ #{w\ 3892}#))
+ (lambda (#{xr*\ 3895}#
+ #{y-pat\ 3896}#
+ #{r\ 3897}#)
+ (if #{r\ 3897}#
+ (if (null? #{y-pat\ 3896}#)
+ (let ((#{xr\ 3902}#
+ (#{match\ 3757}#
+ (car #{e\ 3891}#)
+ #{x-pat\ 3874}#
+ #{w\ 3892}#
'()
- #{mod\ 12732}#)))
- (if #{xr\ 12755}#
+ #{mod\ 3879}#)))
+ (if #{xr\ 3902}#
(values
- (cons #{xr\ 12755}#
- #{xr*\ 12748}#)
- #{y-pat\ 12749}#
- #{r\ 12750}#)
+ (cons #{xr\ 3902}#
+ #{xr*\ 3895}#)
+ #{y-pat\ 3896}#
+ #{r\ 3897}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 12749}#)
- (#{match\ 12610}#
- (car #{e\ 12744}#)
- (car #{y-pat\ 12749}#)
- #{w\ 12745}#
- #{r\ 12750}#
- #{mod\ 12732}#)))
+ (cdr #{y-pat\ 3896}#)
+ (#{match\ 3757}#
+ (car #{e\ 3891}#)
+ (car #{y-pat\ 3896}#)
+ #{w\ 3892}#
+ #{r\ 3897}#
+ #{mod\ 3879}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 9040}# #{e\ 12744}#)
- (#{f\ 12743}#
- (#{syntax-object-expression\ 9042}#
- #{e\ 12744}#)
- (#{join-wraps\ 9127}#
- #{w\ 12745}#
- #{e\ 12744}#))
+ (if (#{syntax-object?\ 186}# #{e\ 3891}#)
+ (#{f\ 3890}#
+ (#{syntax-object-expression\ 188}#
+ #{e\ 3891}#)
+ (#{join-wraps\ 273}#
+ #{w\ 3892}#
+ #{e\ 3891}#))
(values
'()
- #{y-pat\ 12728}#
- (#{match\ 12610}#
- #{e\ 12744}#
- #{z-pat\ 12729}#
- #{w\ 12745}#
- #{r\ 12731}#
- #{mod\ 12732}#)))))))
- (#{f\ 12743}# #{e\ 12726}# #{w\ 12730}#))))
- (#{match-each\ 12598}#
- (lambda (#{e\ 12759}#
- #{p\ 12760}#
- #{w\ 12761}#
- #{mod\ 12762}#)
- (if (pair? #{e\ 12759}#)
- (let ((#{first\ 12770}#
- (#{match\ 12610}#
- (car #{e\ 12759}#)
- #{p\ 12760}#
- #{w\ 12761}#
+ #{y-pat\ 3875}#
+ (#{match\ 3757}#
+ #{e\ 3891}#
+ #{z-pat\ 3876}#
+ #{w\ 3892}#
+ #{r\ 3878}#
+ #{mod\ 3879}#)))))))
+ (#{f\ 3890}# #{e\ 3873}# #{w\ 3877}#))))
+ (#{match-each\ 3745}#
+ (lambda (#{e\ 3906}#
+ #{p\ 3907}#
+ #{w\ 3908}#
+ #{mod\ 3909}#)
+ (if (pair? #{e\ 3906}#)
+ (let ((#{first\ 3917}#
+ (#{match\ 3757}#
+ (car #{e\ 3906}#)
+ #{p\ 3907}#
+ #{w\ 3908}#
'()
- #{mod\ 12762}#)))
- (if #{first\ 12770}#
- (let ((#{rest\ 12774}#
- (#{match-each\ 12598}#
- (cdr #{e\ 12759}#)
- #{p\ 12760}#
- #{w\ 12761}#
- #{mod\ 12762}#)))
- (if #{rest\ 12774}#
- (cons #{first\ 12770}# #{rest\ 12774}#)
+ #{mod\ 3909}#)))
+ (if #{first\ 3917}#
+ (let ((#{rest\ 3921}#
+ (#{match-each\ 3745}#
+ (cdr #{e\ 3906}#)
+ #{p\ 3907}#
+ #{w\ 3908}#
+ #{mod\ 3909}#)))
+ (if #{rest\ 3921}#
+ (cons #{first\ 3917}# #{rest\ 3921}#)
#f))
#f))
- (if (null? #{e\ 12759}#)
+ (if (null? #{e\ 3906}#)
'()
- (if (#{syntax-object?\ 9040}# #{e\ 12759}#)
- (#{match-each\ 12598}#
- (#{syntax-object-expression\ 9042}# #{e\ 12759}#)
- #{p\ 12760}#
- (#{join-wraps\ 9127}#
- #{w\ 12761}#
- (#{syntax-object-wrap\ 9044}# #{e\ 12759}#))
- (#{syntax-object-module\ 9046}# #{e\ 12759}#))
+ (if (#{syntax-object?\ 186}# #{e\ 3906}#)
+ (#{match-each\ 3745}#
+ (#{syntax-object-expression\ 188}# #{e\ 3906}#)
+ #{p\ 3907}#
+ (#{join-wraps\ 273}#
+ #{w\ 3908}#
+ (#{syntax-object-wrap\ 190}# #{e\ 3906}#))
+ (#{syntax-object-module\ 192}# #{e\ 3906}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 12782}# #{p\ 12783}#)
- (if (eq? #{p\ 12783}# (quote any))
- (list #{e\ 12782}#)
- (if (#{syntax-object?\ 9040}# #{e\ 12782}#)
- (#{match*\ 12608}#
- (#{syntax-object-expression\ 9042}# #{e\ 12782}#)
- #{p\ 12783}#
- (#{syntax-object-wrap\ 9044}# #{e\ 12782}#)
+ (lambda (#{e\ 3929}# #{p\ 3930}#)
+ (if (eq? #{p\ 3930}# (quote any))
+ (list #{e\ 3929}#)
+ (if (#{syntax-object?\ 186}# #{e\ 3929}#)
+ (#{match*\ 3755}#
+ (#{syntax-object-expression\ 188}# #{e\ 3929}#)
+ #{p\ 3930}#
+ (#{syntax-object-wrap\ 190}# #{e\ 3929}#)
'()
- (#{syntax-object-module\ 9046}# #{e\ 12782}#))
- (#{match*\ 12608}#
- #{e\ 12782}#
- #{p\ 12783}#
+ (#{syntax-object-module\ 192}# #{e\ 3929}#))
+ (#{match*\ 3755}#
+ #{e\ 3929}#
+ #{p\ 3930}#
'(())
'()
#f)))))))))
@@ -11748,50 +11659,50 @@
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 12792}#)
- ((lambda (#{tmp\ 12794}#)
- ((lambda (#{tmp\ 12795}#)
- (if #{tmp\ 12795}#
- (apply (lambda (#{_\ 12799}# #{e1\ 12800}# #{e2\ 12801}#)
+ (cons (lambda (#{x\ 3939}#)
+ ((lambda (#{tmp\ 3941}#)
+ ((lambda (#{tmp\ 3942}#)
+ (if #{tmp\ 3942}#
+ (apply (lambda (#{_\ 3946}# #{e1\ 3947}# #{e2\ 3948}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i12796" "i12797" "i12798"))
+ #("i3943" "i3944" "i3945"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i12793")))
+ #(ribcage #(x) #((top)) #("i3940")))
(hygiene guile))
- (cons #{e1\ 12800}# #{e2\ 12801}#)))
- #{tmp\ 12795}#)
- ((lambda (#{tmp\ 12803}#)
- (if #{tmp\ 12803}#
- (apply (lambda (#{_\ 12809}#
- #{out\ 12810}#
- #{in\ 12811}#
- #{e1\ 12812}#
- #{e2\ 12813}#)
+ (cons #{e1\ 3947}# #{e2\ 3948}#)))
+ #{tmp\ 3942}#)
+ ((lambda (#{tmp\ 3950}#)
+ (if #{tmp\ 3950}#
+ (apply (lambda (#{_\ 3956}#
+ #{out\ 3957}#
+ #{in\ 3958}#
+ #{e1\ 3959}#
+ #{e2\ 3960}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i12804"
- "i12805"
- "i12806"
- "i12807"
- "i12808"))
+ #("i3951"
+ "i3952"
+ "i3953"
+ "i3954"
+ "i3955"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12793")))
+ #("i3940")))
(hygiene guile))
- #{in\ 12811}#
+ #{in\ 3958}#
'()
- (list #{out\ 12810}#
+ (list #{out\ 3957}#
(cons '#(syntax-object
begin
((top)
@@ -11802,27 +11713,27 @@
(top)
(top)
(top))
- #("i12804"
- "i12805"
- "i12806"
- "i12807"
- "i12808"))
+ #("i3951"
+ "i3952"
+ "i3953"
+ "i3954"
+ "i3955"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12793")))
+ #("i3940")))
(hygiene guile))
- (cons #{e1\ 12812}#
- #{e2\ 12813}#)))))
- #{tmp\ 12803}#)
- ((lambda (#{tmp\ 12815}#)
- (if #{tmp\ 12815}#
- (apply (lambda (#{_\ 12821}#
- #{out\ 12822}#
- #{in\ 12823}#
- #{e1\ 12824}#
- #{e2\ 12825}#)
+ (cons #{e1\ 3959}#
+ #{e2\ 3960}#)))))
+ #{tmp\ 3950}#)
+ ((lambda (#{tmp\ 3962}#)
+ (if #{tmp\ 3962}#
+ (apply (lambda (#{_\ 3968}#
+ #{out\ 3969}#
+ #{in\ 3970}#
+ #{e1\ 3971}#
+ #{e2\ 3972}#)
(list '#(syntax-object
syntax-case
((top)
@@ -11833,16 +11744,16 @@
(top)
(top)
(top))
- #("i12816"
- "i12817"
- "i12818"
- "i12819"
- "i12820"))
+ #("i3963"
+ "i3964"
+ "i3965"
+ "i3966"
+ "i3967"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12793")))
+ #("i3940")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -11854,20 +11765,20 @@
(top)
(top)
(top))
- #("i12816"
- "i12817"
- "i12818"
- "i12819"
- "i12820"))
+ #("i3963"
+ "i3964"
+ "i3965"
+ "i3966"
+ "i3967"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12793")))
+ #("i3940")))
(hygiene guile))
- #{in\ 12823}#)
+ #{in\ 3970}#)
'()
- (list #{out\ 12822}#
+ (list #{out\ 3969}#
(cons '#(syntax-object
begin
((top)
@@ -11882,11 +11793,11 @@
(top)
(top)
(top))
- #("i12816"
- "i12817"
- "i12818"
- "i12819"
- "i12820"))
+ #("i3963"
+ "i3964"
+ "i3965"
+ "i3966"
+ "i3967"))
#(ribcage
()
()
@@ -11894,53 +11805,53 @@
#(ribcage
#(x)
#((top))
- #("i12793")))
+ #("i3940")))
(hygiene guile))
- (cons #{e1\ 12824}#
- #{e2\
12825}#)))))
- #{tmp\ 12815}#)
+ (cons #{e1\ 3971}#
+ #{e2\
3972}#)))))
+ #{tmp\ 3962}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12794}#)))
+ #{tmp\ 3941}#)))
($sc-dispatch
- #{tmp\ 12794}#
+ #{tmp\ 3941}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 12794}#
+ #{tmp\ 3941}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 12794}#
+ #{tmp\ 3941}#
'(any () any . each-any))))
- #{x\ 12792}#))
+ #{x\ 3939}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 12829}#)
- ((lambda (#{tmp\ 12831}#)
- ((lambda (#{tmp\ 12832}#)
- (if #{tmp\ 12832}#
- (apply (lambda (#{_\ 12838}#
- #{k\ 12839}#
- #{keyword\ 12840}#
- #{pattern\ 12841}#
- #{template\ 12842}#)
+ (cons (lambda (#{x\ 3976}#)
+ ((lambda (#{tmp\ 3978}#)
+ ((lambda (#{tmp\ 3979}#)
+ (if #{tmp\ 3979}#
+ (apply (lambda (#{_\ 3985}#
+ #{k\ 3986}#
+ #{keyword\ 3987}#
+ #{pattern\ 3988}#
+ #{template\ 3989}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i12833"
- "i12834"
- "i12835"
- "i12836"
- "i12837"))
+ #("i3980"
+ "i3981"
+ "i3982"
+ "i3983"
+ "i3984"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i12830")))
+ #(ribcage #(x) #((top)) #("i3977")))
(hygiene guile))
'(#(syntax-object
x
@@ -11948,13 +11859,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i12833"
- "i12834"
- "i12835"
- "i12836"
- "i12837"))
+ #("i3980"
+ "i3981"
+ "i3982"
+ "i3983"
+ "i3984"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i12830")))
+ #(ribcage #(x) #((top)) #("i3977")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -11963,13 +11874,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i12833"
- "i12834"
- "i12835"
- "i12836"
- "i12837"))
+ #("i3980"
+ "i3981"
+ "i3982"
+ "i3983"
+ "i3984"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i12830")))
+ #(ribcage #(x) #((top)) #("i3977")))
(hygiene guile))
.
#(syntax-object
@@ -11978,13 +11889,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i12833"
- "i12834"
- "i12835"
- "i12836"
- "i12837"))
+ #("i3980"
+ "i3981"
+ "i3982"
+ "i3983"
+ "i3984"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i12830")))
+ #(ribcage #(x) #((top)) #("i3977")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -12000,34 +11911,34 @@
(top)
(top)
(top))
- #("i12833"
- "i12834"
- "i12835"
- "i12836"
- "i12837"))
+ #("i3980"
+ "i3981"
+ "i3982"
+ "i3983"
+ "i3984"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12830")))
+ #("i3977")))
(hygiene guile))
- #{pattern\ 12841}#))
+ #{pattern\ 3988}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i12833"
- "i12834"
- "i12835"
- "i12836"
- "i12837"))
+ #("i3980"
+ "i3981"
+ "i3982"
+ "i3983"
+ "i3984"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12830")))
+ #("i3977")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -12043,20 +11954,20 @@
(top)
(top)
(top))
- #("i12833"
- "i12834"
- "i12835"
- "i12836"
- "i12837"))
+ #("i3980"
+ "i3981"
+ "i3982"
+ "i3983"
+ "i3984"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12830")))
+ #("i3977")))
(hygiene guile))
- (cons #{k\ 12839}#
- (map (lambda (#{tmp\
12846}#
- #{tmp\
12845}#)
+ (cons #{k\ 3986}#
+ (map (lambda (#{tmp\
3993}#
+ #{tmp\
3992}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -12071,11 +11982,11 @@
(top)
(top)
(top))
-
#("i12833"
-
"i12834"
-
"i12835"
-
"i12836"
-
"i12837"))
+
#("i3980"
+
"i3981"
+
"i3982"
+
"i3983"
+
"i3984"))
#(ribcage
()
()
@@ -12083,10 +11994,10 @@
#(ribcage
#(x)
#((top))
-
#("i12830")))
+
#("i3977")))
(hygiene
guile))
- #{tmp\
12845}#)
+ #{tmp\
3992}#)
(list
'#(syntax-object
syntax
((top)
@@ -12101,11 +12012,11 @@
(top)
(top)
(top))
-
#("i12833"
-
"i12834"
-
"i12835"
-
"i12836"
-
"i12837"))
+
#("i3980"
+
"i3981"
+
"i3982"
+
"i3983"
+
"i3984"))
#(ribcage
()
()
@@ -12113,47 +12024,47 @@
#(ribcage
#(x)
#((top))
-
#("i12830")))
+
#("i3977")))
(hygiene
guile))
- #{tmp\
12846}#)))
- #{template\ 12842}#
- #{pattern\
12841}#))))))
- #{tmp\ 12832}#)
+ #{tmp\
3993}#)))
+ #{template\ 3989}#
+ #{pattern\
3988}#))))))
+ #{tmp\ 3979}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12831}#)))
+ #{tmp\ 3978}#)))
($sc-dispatch
- #{tmp\ 12831}#
+ #{tmp\ 3978}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 12829}#))
+ #{x\ 3976}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 12847}#)
- ((lambda (#{tmp\ 12849}#)
- ((lambda (#{tmp\ 12850}#)
- (if (if #{tmp\ 12850}#
- (apply (lambda (#{let*\ 12856}#
- #{x\ 12857}#
- #{v\ 12858}#
- #{e1\ 12859}#
- #{e2\ 12860}#)
- (and-map identifier? #{x\ 12857}#))
- #{tmp\ 12850}#)
+ (cons (lambda (#{x\ 3994}#)
+ ((lambda (#{tmp\ 3996}#)
+ ((lambda (#{tmp\ 3997}#)
+ (if (if #{tmp\ 3997}#
+ (apply (lambda (#{let*\ 4003}#
+ #{x\ 4004}#
+ #{v\ 4005}#
+ #{e1\ 4006}#
+ #{e2\ 4007}#)
+ (and-map identifier? #{x\ 4004}#))
+ #{tmp\ 3997}#)
#f)
- (apply (lambda (#{let*\ 12867}#
- #{x\ 12868}#
- #{v\ 12869}#
- #{e1\ 12870}#
- #{e2\ 12871}#)
- (letrec ((#{f\ 12874}#
- (lambda (#{bindings\ 12875}#)
- (if (null? #{bindings\ 12875}#)
+ (apply (lambda (#{let*\ 4014}#
+ #{x\ 4015}#
+ #{v\ 4016}#
+ #{e1\ 4017}#
+ #{e2\ 4018}#)
+ (letrec ((#{f\ 4021}#
+ (lambda (#{bindings\ 4022}#)
+ (if (null? #{bindings\ 4022}#)
(cons '#(syntax-object
let
((top)
@@ -12161,7 +12072,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i12872" "i12873"))
+ #("i4019" "i4020"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -12169,25 +12080,25 @@
(top)
(top)
(top))
- #("i12862"
- "i12863"
- "i12864"
- "i12865"
- "i12866"))
+ #("i4009"
+ "i4010"
+ "i4011"
+ "i4012"
+ "i4013"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12848")))
+ #("i3995")))
(hygiene guile))
(cons '()
- (cons #{e1\ 12870}#
- #{e2\ 12871}#)))
- ((lambda (#{tmp\ 12880}#)
- ((lambda (#{tmp\ 12881}#)
- (if #{tmp\ 12881}#
- (apply (lambda (#{body\
12884}#
- #{binding\
12885}#)
+ (cons #{e1\ 4017}#
+ #{e2\ 4018}#)))
+ ((lambda (#{tmp\ 4027}#)
+ ((lambda (#{tmp\ 4028}#)
+ (if #{tmp\ 4028}#
+ (apply (lambda (#{body\
4031}#
+ #{binding\
4032}#)
(list
'#(syntax-object
let
((top)
@@ -12196,8 +12107,8 @@
binding)
#((top)
(top))
-
#("i12882"
-
"i12883"))
+
#("i4029"
+
"i4030"))
#(ribcage
()
()
@@ -12207,8 +12118,8 @@
bindings)
#((top)
(top))
-
#("i12872"
-
"i12873"))
+
#("i4019"
+
"i4020"))
#(ribcage
#(let*
x
@@ -12220,11 +12131,11 @@
(top)
(top)
(top))
-
#("i12862"
-
"i12863"
-
"i12864"
-
"i12865"
-
"i12866"))
+
#("i4009"
+
"i4010"
+
"i4011"
+
"i4012"
+
"i4013"))
#(ribcage
()
()
@@ -12232,57 +12143,57 @@
#(ribcage
#(x)
#((top))
-
#("i12848")))
+
#("i3995")))
(hygiene
guile))
- (list
#{binding\ 12885}#)
- #{body\
12884}#))
- #{tmp\ 12881}#)
+ (list
#{binding\ 4032}#)
+ #{body\
4031}#))
+ #{tmp\ 4028}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 12880}#)))
+ #{tmp\ 4027}#)))
($sc-dispatch
- #{tmp\ 12880}#
+ #{tmp\ 4027}#
'(any any))))
- (list (#{f\ 12874}#
- (cdr #{bindings\ 12875}#))
- (car #{bindings\
12875}#)))))))
- (#{f\ 12874}#
- (map list #{x\ 12868}# #{v\ 12869}#))))
- #{tmp\ 12850}#)
+ (list (#{f\ 4021}#
+ (cdr #{bindings\ 4022}#))
+ (car #{bindings\
4022}#)))))))
+ (#{f\ 4021}#
+ (map list #{x\ 4015}# #{v\ 4016}#))))
+ #{tmp\ 3997}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12849}#)))
+ #{tmp\ 3996}#)))
($sc-dispatch
- #{tmp\ 12849}#
+ #{tmp\ 3996}#
'(any #(each (any any)) any . each-any))))
- #{x\ 12847}#))
+ #{x\ 3994}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 12886}#)
- ((lambda (#{tmp\ 12888}#)
- ((lambda (#{tmp\ 12889}#)
- (if #{tmp\ 12889}#
- (apply (lambda (#{_\ 12897}#
- #{var\ 12898}#
- #{init\ 12899}#
- #{step\ 12900}#
- #{e0\ 12901}#
- #{e1\ 12902}#
- #{c\ 12903}#)
- ((lambda (#{tmp\ 12905}#)
- ((lambda (#{tmp\ 12906}#)
- (if #{tmp\ 12906}#
- (apply (lambda (#{step\ 12908}#)
- ((lambda (#{tmp\ 12909}#)
- ((lambda (#{tmp\ 12910}#)
- (if #{tmp\ 12910}#
+ (cons (lambda (#{orig-x\ 4033}#)
+ ((lambda (#{tmp\ 4035}#)
+ ((lambda (#{tmp\ 4036}#)
+ (if #{tmp\ 4036}#
+ (apply (lambda (#{_\ 4044}#
+ #{var\ 4045}#
+ #{init\ 4046}#
+ #{step\ 4047}#
+ #{e0\ 4048}#
+ #{e1\ 4049}#
+ #{c\ 4050}#)
+ ((lambda (#{tmp\ 4052}#)
+ ((lambda (#{tmp\ 4053}#)
+ (if #{tmp\ 4053}#
+ (apply (lambda (#{step\ 4055}#)
+ ((lambda (#{tmp\ 4056}#)
+ ((lambda (#{tmp\ 4057}#)
+ (if #{tmp\ 4057}#
(apply (lambda ()
(list
'#(syntax-object
let
@@ -12290,7 +12201,7 @@
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12306,13 +12217,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12320,7 +12231,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
'#(syntax-object
@@ -12329,7 +12240,7 @@
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12345,13 +12256,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12359,19 +12270,19 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
(map list
-
#{var\ 12898}#
-
#{init\ 12899}#)
+
#{var\ 4045}#
+
#{init\ 4046}#)
(list
'#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12387,13 +12298,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12401,7 +12312,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
(list '#(syntax-object
@@ -12410,7 +12321,7 @@
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12426,13 +12337,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12440,17 +12351,17 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
-
#{e0\ 12901}#)
+
#{e0\ 4048}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12466,13 +12377,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12480,18 +12391,18 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
(append
-
#{c\ 12903}#
+
#{c\ 4050}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12507,13 +12418,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12521,15 +12432,15 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
-
#{step\ 12908}#)))))))
- #{tmp\ 12910}#)
- ((lambda (#{tmp\ 12915}#)
- (if #{tmp\ 12915}#
- (apply (lambda
(#{e1\ 12918}#
-
#{e2\ 12919}#)
+
#{step\ 4055}#)))))))
+ #{tmp\ 4057}#)
+ ((lambda (#{tmp\ 4062}#)
+ (if #{tmp\ 4062}#
+ (apply (lambda
(#{e1\ 4065}#
+
#{e2\ 4066}#)
(list
'#(syntax-object
let
((top)
@@ -12538,12 +12449,12 @@
e2)
#((top)
(top))
-
#("i12916"
-
"i12917"))
+
#("i4063"
+
"i4064"))
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12559,13 +12470,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12573,7 +12484,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
'#(syntax-object
@@ -12584,12 +12495,12 @@
e2)
#((top)
(top))
-
#("i12916"
-
"i12917"))
+
#("i4063"
+
"i4064"))
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12605,13 +12516,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12619,12 +12530,12 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
(map
list
-
#{var\ 12898}#
-
#{init\ 12899}#)
+
#{var\ 4045}#
+
#{init\ 4046}#)
(list '#(syntax-object
if
((top)
@@ -12633,12 +12544,12 @@
e2)
#((top)
(top))
-
#("i12916"
-
"i12917"))
+
#("i4063"
+
"i4064"))
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12654,13 +12565,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12668,10 +12579,10 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
-
#{e0\ 12901}#
+
#{e0\ 4048}#
(cons '#(syntax-object
begin
((top)
@@ -12680,12 +12591,12 @@
e2)
#((top)
(top))
-
#("i12916"
-
"i12917"))
+
#("i4063"
+
"i4064"))
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12701,13 +12612,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12715,11 +12626,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
-
(cons #{e1\ 12918}#
-
#{e2\ 12919}#))
+
(cons #{e1\ 4065}#
+
#{e2\ 4066}#))
(cons '#(syntax-object
begin
((top)
@@ -12728,12 +12639,12 @@
e2)
#((top)
(top))
-
#("i12916"
-
"i12917"))
+
#("i4063"
+
"i4064"))
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12749,13 +12660,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12763,11 +12674,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
(append
-
#{c\ 12903}#
+
#{c\ 4050}#
(list (cons '#(syntax-object
doloop
((top)
@@ -12776,12 +12687,12 @@
e2)
#((top)
(top))
-
#("i12916"
-
"i12917"))
+
#("i4063"
+
"i4064"))
#(ribcage
#(step)
#((top))
-
#("i12907"))
+
#("i4054"))
#(ribcage
#(_
var
@@ -12797,13 +12708,13 @@
(top)
(top)
(top))
-
#("i12890"
-
"i12891"
-
"i12892"
-
"i12893"
-
"i12894"
-
"i12895"
-
"i12896"))
+
#("i4037"
+
"i4038"
+
"i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"))
#(ribcage
()
()
@@ -12811,107 +12722,107 @@
#(ribcage
#(orig-x)
#((top))
-
#("i12887")))
+
#("i4034")))
(hygiene
guile))
-
#{step\ 12908}#)))))))
- #{tmp\
12915}#)
+
#{step\ 4055}#)))))))
+ #{tmp\
4062}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 12909}#)))
+ #{tmp\ 4056}#)))
($sc-dispatch
- #{tmp\ 12909}#
+ #{tmp\ 4056}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 12909}#
+ #{tmp\ 4056}#
'())))
- #{e1\ 12902}#))
- #{tmp\ 12906}#)
+ #{e1\ 4049}#))
+ #{tmp\ 4053}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 12905}#)))
+ #{tmp\ 4052}#)))
($sc-dispatch
- #{tmp\ 12905}#
+ #{tmp\ 4052}#
'each-any)))
- (map (lambda (#{v\ 12926}# #{s\ 12927}#)
- ((lambda (#{tmp\ 12930}#)
- ((lambda (#{tmp\ 12931}#)
- (if #{tmp\ 12931}#
- (apply (lambda () #{v\ 12926}#)
- #{tmp\ 12931}#)
- ((lambda (#{tmp\ 12932}#)
- (if #{tmp\ 12932}#
- (apply (lambda (#{e\ 12934}#)
- #{e\ 12934}#)
- #{tmp\ 12932}#)
- ((lambda (#{_\ 12936}#)
+ (map (lambda (#{v\ 4073}# #{s\ 4074}#)
+ ((lambda (#{tmp\ 4077}#)
+ ((lambda (#{tmp\ 4078}#)
+ (if #{tmp\ 4078}#
+ (apply (lambda () #{v\ 4073}#)
+ #{tmp\ 4078}#)
+ ((lambda (#{tmp\ 4079}#)
+ (if #{tmp\ 4079}#
+ (apply (lambda (#{e\ 4081}#)
+ #{e\ 4081}#)
+ #{tmp\ 4079}#)
+ ((lambda (#{_\ 4083}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 12886}#
- #{s\ 12927}#))
- #{tmp\ 12930}#)))
+ #{orig-x\ 4033}#
+ #{s\ 4074}#))
+ #{tmp\ 4077}#)))
($sc-dispatch
- #{tmp\ 12930}#
+ #{tmp\ 4077}#
'(any)))))
($sc-dispatch
- #{tmp\ 12930}#
+ #{tmp\ 4077}#
'())))
- #{s\ 12927}#))
- #{var\ 12898}#
- #{step\ 12900}#)))
- #{tmp\ 12889}#)
+ #{s\ 4074}#))
+ #{var\ 4045}#
+ #{step\ 4047}#)))
+ #{tmp\ 4036}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12888}#)))
+ #{tmp\ 4035}#)))
($sc-dispatch
- #{tmp\ 12888}#
+ #{tmp\ 4035}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 12886}#))
+ #{orig-x\ 4033}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 12943}#
- (lambda (#{x\ 12947}# #{y\ 12948}#)
- ((lambda (#{tmp\ 12952}#)
- ((lambda (#{tmp\ 12953}#)
- (if #{tmp\ 12953}#
- (apply (lambda (#{x\ 12956}# #{y\ 12957}#)
- ((lambda (#{tmp\ 12958}#)
- ((lambda (#{tmp\ 12959}#)
- (if #{tmp\ 12959}#
- (apply (lambda (#{dy\ 12961}#)
- ((lambda (#{tmp\
12962}#)
- ((lambda (#{tmp\
12963}#)
- (if #{tmp\
12963}#
- (apply
(lambda (#{dx\ 12965}#)
+ (cons (letrec ((#{quasicons\ 4090}#
+ (lambda (#{x\ 4094}# #{y\ 4095}#)
+ ((lambda (#{tmp\ 4099}#)
+ ((lambda (#{tmp\ 4100}#)
+ (if #{tmp\ 4100}#
+ (apply (lambda (#{x\ 4103}# #{y\ 4104}#)
+ ((lambda (#{tmp\ 4105}#)
+ ((lambda (#{tmp\ 4106}#)
+ (if #{tmp\ 4106}#
+ (apply (lambda (#{dy\ 4108}#)
+ ((lambda (#{tmp\
4109}#)
+ ((lambda (#{tmp\
4110}#)
+ (if #{tmp\
4110}#
+ (apply
(lambda (#{dx\ 4112}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
-
#("i12964"))
+
#("i4111"))
#(ribcage
#(dy)
#((top))
-
#("i12960"))
+
#("i4107"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i12954"
-
"i12955"))
+
#("i4101"
+
"i4102"))
#(ribcage
()
()
@@ -12925,8 +12836,8 @@
y)
#((top)
(top))
-
#("i12949"
-
"i12950"))
+
#("i4096"
+
"i4097"))
#(ribcage
#(quasicons
quasiappend
@@ -12936,35 +12847,35 @@
(top)
(top)
(top))
-
#("i12939"
-
"i12940"
-
"i12941"
-
"i12942")))
+
#("i4086"
+
"i4087"
+
"i4088"
+
"i4089")))
(hygiene
guile))
-
(cons #{dx\ 12965}#
-
#{dy\ 12961}#)))
- #{tmp\
12963}#)
- ((lambda
(#{_\ 12967}#)
- (if (null?
#{dy\ 12961}#)
+
(cons #{dx\ 4112}#
+
#{dy\ 4108}#)))
+ #{tmp\
4110}#)
+ ((lambda
(#{_\ 4114}#)
+ (if (null?
#{dy\ 4108}#)
(list
'#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
-
#("i12966"))
+
#("i4113"))
#(ribcage
#(dy)
#((top))
-
#("i12960"))
+
#("i4107"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i12954"
-
"i12955"))
+
#("i4101"
+
"i4102"))
#(ribcage
()
()
@@ -12978,8 +12889,8 @@
y)
#((top)
(top))
-
#("i12949"
-
"i12950"))
+
#("i4096"
+
"i4097"))
#(ribcage
#(quasicons
quasiappend
@@ -12989,31 +12900,31 @@
(top)
(top)
(top))
-
#("i12939"
-
"i12940"
-
"i12941"
-
"i12942")))
+
#("i4086"
+
"i4087"
+
"i4088"
+
"i4089")))
(hygiene
guile))
-
#{x\ 12956}#)
+
#{x\ 4103}#)
(list
'#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
-
#("i12966"))
+
#("i4113"))
#(ribcage
#(dy)
#((top))
-
#("i12960"))
+
#("i4107"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i12954"
-
"i12955"))
+
#("i4101"
+
"i4102"))
#(ribcage
()
()
@@ -13027,8 +12938,8 @@
y)
#((top)
(top))
-
#("i12949"
-
"i12950"))
+
#("i4096"
+
"i4097"))
#(ribcage
#(quasicons
quasiappend
@@ -13038,17 +12949,17 @@
(top)
(top)
(top))
-
#("i12939"
-
"i12940"
-
"i12941"
-
"i12942")))
+
#("i4086"
+
"i4087"
+
"i4088"
+
"i4089")))
(hygiene
guile))
-
#{x\ 12956}#
-
#{y\ 12957}#)))
- #{tmp\
12962}#)))
+
#{x\ 4103}#
+
#{y\ 4104}#)))
+ #{tmp\
4109}#)))
($sc-dispatch
- #{tmp\ 12962}#
+ #{tmp\ 4109}#
'(#(free-id
#(syntax-object
quote
@@ -13056,13 +12967,13 @@
#(ribcage
#(dy)
#((top))
-
#("i12960"))
+
#("i4107"))
#(ribcage
#(x y)
#((top)
(top))
-
#("i12954"
-
"i12955"))
+
#("i4101"
+
"i4102"))
#(ribcage
()
()
@@ -13075,8 +12986,8 @@
#(x y)
#((top)
(top))
-
#("i12949"
-
"i12950"))
+
#("i4096"
+
"i4097"))
#(ribcage
#(quasicons
quasiappend
@@ -13086,32 +12997,32 @@
(top)
(top)
(top))
-
#("i12939"
-
"i12940"
-
"i12941"
-
"i12942")))
+
#("i4086"
+
"i4087"
+
"i4088"
+
"i4089")))
(hygiene
guile)))
any))))
- #{x\ 12956}#))
- #{tmp\ 12959}#)
- ((lambda (#{tmp\ 12968}#)
- (if #{tmp\ 12968}#
- (apply (lambda (#{stuff\
12970}#)
+ #{x\ 4103}#))
+ #{tmp\ 4106}#)
+ ((lambda (#{tmp\ 4115}#)
+ (if #{tmp\ 4115}#
+ (apply (lambda (#{stuff\
4117}#)
(cons
'#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
-
#("i12969"))
+
#("i4116"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i12954"
-
"i12955"))
+
#("i4101"
+
"i4102"))
#(ribcage
()
()
@@ -13125,8 +13036,8 @@
y)
#((top)
(top))
-
#("i12949"
-
"i12950"))
+
#("i4096"
+
"i4097"))
#(ribcage
#(quasicons
quasiappend
@@ -13136,29 +13047,29 @@
(top)
(top)
(top))
-
#("i12939"
-
"i12940"
-
"i12941"
-
"i12942")))
+
#("i4086"
+
"i4087"
+
"i4088"
+
"i4089")))
(hygiene
guile))
- (cons #{x\
12956}#
-
#{stuff\ 12970}#)))
- #{tmp\ 12968}#)
- ((lambda (#{else\ 12972}#)
+ (cons #{x\
4103}#
+
#{stuff\ 4117}#)))
+ #{tmp\ 4115}#)
+ ((lambda (#{else\ 4119}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
-
#("i12971"))
+ #("i4118"))
#(ribcage
#(x y)
#((top)
(top))
- #("i12954"
-
"i12955"))
+ #("i4101"
+ "i4102"))
#(ribcage
()
()
@@ -13171,8 +13082,8 @@
#(x y)
#((top)
(top))
- #("i12949"
-
"i12950"))
+ #("i4096"
+ "i4097"))
#(ribcage
#(quasicons
quasiappend
@@ -13182,17 +13093,17 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
-
"i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+
"i4089")))
(hygiene
guile))
- #{x\ 12956}#
- #{y\ 12957}#))
- #{tmp\ 12958}#)))
+ #{x\ 4103}#
+ #{y\ 4104}#))
+ #{tmp\ 4105}#)))
($sc-dispatch
- #{tmp\ 12958}#
+ #{tmp\ 4105}#
'(#(free-id
#(syntax-object
list
@@ -13200,15 +13111,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i12954"
- "i12955"))
+ #("i4101" "i4102"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i12949"
- "i12950"))
+ #("i4096" "i4097"))
#(ribcage
#(quasicons
quasiappend
@@ -13218,15 +13127,15 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 12958}#
+ #{tmp\ 4105}#
'(#(free-id
#(syntax-object
quote
@@ -13234,13 +13143,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i12954" "i12955"))
+ #("i4101" "i4102"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i12949" "i12950"))
+ #("i4096" "i4097"))
#(ribcage
#(quasicons
quasiappend
@@ -13250,44 +13159,44 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
any))))
- #{y\ 12957}#))
- #{tmp\ 12953}#)
+ #{y\ 4104}#))
+ #{tmp\ 4100}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 12952}#)))
- ($sc-dispatch #{tmp\ 12952}# (quote (any any)))))
- (list #{x\ 12947}# #{y\ 12948}#))))
- (#{quasiappend\ 12944}#
- (lambda (#{x\ 12973}# #{y\ 12974}#)
- ((lambda (#{tmp\ 12978}#)
- ((lambda (#{tmp\ 12979}#)
- (if #{tmp\ 12979}#
- (apply (lambda (#{x\ 12982}# #{y\ 12983}#)
- ((lambda (#{tmp\ 12984}#)
- ((lambda (#{tmp\ 12985}#)
- (if #{tmp\ 12985}#
- (apply (lambda () #{x\ 12982}#)
- #{tmp\ 12985}#)
- ((lambda (#{_\ 12987}#)
+ #{tmp\ 4099}#)))
+ ($sc-dispatch #{tmp\ 4099}# (quote (any any)))))
+ (list #{x\ 4094}# #{y\ 4095}#))))
+ (#{quasiappend\ 4091}#
+ (lambda (#{x\ 4120}# #{y\ 4121}#)
+ ((lambda (#{tmp\ 4125}#)
+ ((lambda (#{tmp\ 4126}#)
+ (if #{tmp\ 4126}#
+ (apply (lambda (#{x\ 4129}# #{y\ 4130}#)
+ ((lambda (#{tmp\ 4131}#)
+ ((lambda (#{tmp\ 4132}#)
+ (if #{tmp\ 4132}#
+ (apply (lambda () #{x\ 4129}#)
+ #{tmp\ 4132}#)
+ ((lambda (#{_\ 4134}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i12986"))
+ #("i4133"))
#(ribcage
#(x y)
#((top) (top))
- #("i12980"
- "i12981"))
+ #("i4127"
+ "i4128"))
#(ribcage
()
()
@@ -13299,8 +13208,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i12975"
- "i12976"))
+ #("i4122"
+ "i4123"))
#(ribcage
#(quasicons
quasiappend
@@ -13310,16 +13219,16 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile))
- #{x\ 12982}#
- #{y\ 12983}#))
- #{tmp\ 12984}#)))
+ #{x\ 4129}#
+ #{y\ 4130}#))
+ #{tmp\ 4131}#)))
($sc-dispatch
- #{tmp\ 12984}#
+ #{tmp\ 4131}#
'(#(free-id
#(syntax-object
quote
@@ -13327,13 +13236,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i12980" "i12981"))
+ #("i4127" "i4128"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i12975" "i12976"))
+ #("i4122" "i4123"))
#(ribcage
#(quasicons
quasiappend
@@ -13343,45 +13252,45 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
()))))
- #{y\ 12983}#))
- #{tmp\ 12979}#)
+ #{y\ 4130}#))
+ #{tmp\ 4126}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 12978}#)))
- ($sc-dispatch #{tmp\ 12978}# (quote (any any)))))
- (list #{x\ 12973}# #{y\ 12974}#))))
- (#{quasivector\ 12945}#
- (lambda (#{x\ 12988}#)
- ((lambda (#{tmp\ 12991}#)
- ((lambda (#{x\ 12993}#)
- ((lambda (#{tmp\ 12994}#)
- ((lambda (#{tmp\ 12995}#)
- (if #{tmp\ 12995}#
- (apply (lambda (#{x\ 12997}#)
+ #{tmp\ 4125}#)))
+ ($sc-dispatch #{tmp\ 4125}# (quote (any any)))))
+ (list #{x\ 4120}# #{y\ 4121}#))))
+ (#{quasivector\ 4092}#
+ (lambda (#{x\ 4135}#)
+ ((lambda (#{tmp\ 4138}#)
+ ((lambda (#{x\ 4140}#)
+ ((lambda (#{tmp\ 4141}#)
+ ((lambda (#{tmp\ 4142}#)
+ (if #{tmp\ 4142}#
+ (apply (lambda (#{x\ 4144}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i12996"))
+ #("i4143"))
#(ribcage
#(x)
#((top))
- #("i12992"))
+ #("i4139"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12989"))
+ #("i4136"))
#(ribcage
#(quasicons
quasiappend
@@ -13391,28 +13300,28 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile))
(list->vector
- #{x\ 12997}#)))
- #{tmp\ 12995}#)
- ((lambda (#{tmp\ 12999}#)
- (if #{tmp\ 12999}#
- (apply (lambda (#{x\ 13001}#)
+ #{x\ 4144}#)))
+ #{tmp\ 4142}#)
+ ((lambda (#{tmp\ 4146}#)
+ (if #{tmp\ 4146}#
+ (apply (lambda (#{x\ 4148}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i13000"))
+ #("i4147"))
#(ribcage
#(x)
#((top))
- #("i12992"))
+ #("i4139"))
#(ribcage
()
()
@@ -13424,7 +13333,7 @@
#(ribcage
#(x)
#((top))
- #("i12989"))
+ #("i4136"))
#(ribcage
#(quasicons
quasiappend
@@ -13434,31 +13343,31 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile))
- #{x\ 13001}#))
- #{tmp\ 12999}#)
- ((lambda (#{_\ 13004}#)
+ #{x\ 4148}#))
+ #{tmp\ 4146}#)
+ ((lambda (#{_\ 4151}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i13003"))
+ #("i4150"))
#(ribcage
#(x)
#((top))
- #("i12992"))
+ #("i4139"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12989"))
+ #("i4136"))
#(ribcage
#(quasicons
quasiappend
@@ -13468,15 +13377,15 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile))
- #{x\ 12993}#))
- #{tmp\ 12994}#)))
+ #{x\ 4140}#))
+ #{tmp\ 4141}#)))
($sc-dispatch
- #{tmp\ 12994}#
+ #{tmp\ 4141}#
'(#(free-id
#(syntax-object
list
@@ -13484,82 +13393,82 @@
#(ribcage
#(x)
#((top))
- #("i12992"))
+ #("i4139"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i12989"))
+ #("i4136"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 12994}#
+ #{tmp\ 4141}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i12992"))
+ #(ribcage #(x) #((top)) #("i4139"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i12989"))
+ #(ribcage #(x) #((top)) #("i4136"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
each-any))))
- #{x\ 12993}#))
- #{tmp\ 12991}#))
- #{x\ 12988}#)))
- (#{quasi\ 12946}#
- (lambda (#{p\ 13005}# #{lev\ 13006}#)
- ((lambda (#{tmp\ 13009}#)
- ((lambda (#{tmp\ 13010}#)
- (if #{tmp\ 13010}#
- (apply (lambda (#{p\ 13012}#)
- (if (= #{lev\ 13006}# 0)
- #{p\ 13012}#
- (#{quasicons\ 12943}#
+ #{x\ 4140}#))
+ #{tmp\ 4138}#))
+ #{x\ 4135}#)))
+ (#{quasi\ 4093}#
+ (lambda (#{p\ 4152}# #{lev\ 4153}#)
+ ((lambda (#{tmp\ 4156}#)
+ ((lambda (#{tmp\ 4157}#)
+ (if #{tmp\ 4157}#
+ (apply (lambda (#{p\ 4159}#)
+ (if (= #{lev\ 4153}# 0)
+ #{p\ 4159}#
+ (#{quasicons\ 4090}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i13011"))
+ #("i4158"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i13007" "i13008"))
+ #("i4154" "i4155"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile))
#(syntax-object
unquote
@@ -13567,51 +13476,50 @@
#(ribcage
#(p)
#((top))
- #("i13011"))
+ #("i4158"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i13007" "i13008"))
+ #("i4154" "i4155"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
- (#{quasi\ 12946}#
- (list #{p\ 13012}#)
- (- #{lev\ 13006}# 1)))))
- #{tmp\ 13010}#)
- ((lambda (#{tmp\ 13013}#)
- (if (if #{tmp\ 13013}#
- (apply (lambda (#{args\ 13015}#)
- (= #{lev\ 13006}# 0))
- #{tmp\ 13013}#)
+ (#{quasi\ 4093}#
+ (list #{p\ 4159}#)
+ (- #{lev\ 4153}# 1)))))
+ #{tmp\ 4157}#)
+ ((lambda (#{tmp\ 4160}#)
+ (if (if #{tmp\ 4160}#
+ (apply (lambda (#{args\ 4162}#)
+ (= #{lev\ 4153}# 0))
+ #{tmp\ 4160}#)
#f)
- (apply (lambda (#{args\ 13017}#)
+ (apply (lambda (#{args\ 4164}#)
(syntax-violation
'unquote
"unquote takes exactly one
argument"
- #{p\ 13005}#
+ #{p\ 4152}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i13016"))
+ #("i4163"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i13007"
- "i13008"))
+ #("i4154" "i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13621,33 +13529,33 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile))
- #{args\ 13017}#)))
- #{tmp\ 13013}#)
- ((lambda (#{tmp\ 13018}#)
- (if #{tmp\ 13018}#
- (apply (lambda (#{p\ 13021}#
- #{q\ 13022}#)
- (if (= #{lev\ 13006}# 0)
- (#{quasiappend\ 12944}#
- #{p\ 13021}#
- (#{quasi\ 12946}#
- #{q\ 13022}#
- #{lev\ 13006}#))
- (#{quasicons\ 12943}#
- (#{quasicons\ 12943}#
+ #{args\ 4164}#)))
+ #{tmp\ 4160}#)
+ ((lambda (#{tmp\ 4165}#)
+ (if #{tmp\ 4165}#
+ (apply (lambda (#{p\ 4168}#
+ #{q\ 4169}#)
+ (if (= #{lev\ 4153}# 0)
+ (#{quasiappend\ 4091}#
+ #{p\ 4168}#
+ (#{quasi\ 4093}#
+ #{q\ 4169}#
+ #{lev\ 4153}#))
+ (#{quasicons\ 4090}#
+ (#{quasicons\ 4090}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i13019"
- "i13020"))
+ #("i4166"
+ "i4167"))
#(ribcage
()
()
@@ -13655,8 +13563,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i13007"
- "i13008"))
+ #("i4154"
+ "i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13666,10 +13574,10 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -13677,8 +13585,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i13019"
- "i13020"))
+ #("i4166"
+ "i4167"))
#(ribcage
()
()
@@ -13686,8 +13594,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i13007"
- "i13008"))
+ #("i4154"
+ "i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13697,33 +13605,31 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
- (#{quasi\ 12946}#
- (list #{p\ 13021}#)
- (- #{lev\ 13006}#
- 1)))
- (#{quasi\ 12946}#
- #{q\ 13022}#
- #{lev\ 13006}#))))
- #{tmp\ 13018}#)
- ((lambda (#{tmp\ 13023}#)
- (if (if #{tmp\ 13023}#
- (apply (lambda (#{args\
13026}#
- #{q\ 13027}#)
- (= #{lev\ 13006}#
- 0))
- #{tmp\ 13023}#)
+ (#{quasi\ 4093}#
+ (list #{p\ 4168}#)
+ (- #{lev\ 4153}# 1)))
+ (#{quasi\ 4093}#
+ #{q\ 4169}#
+ #{lev\ 4153}#))))
+ #{tmp\ 4165}#)
+ ((lambda (#{tmp\ 4170}#)
+ (if (if #{tmp\ 4170}#
+ (apply (lambda (#{args\
4173}#
+ #{q\ 4174}#)
+ (= #{lev\ 4153}# 0))
+ #{tmp\ 4170}#)
#f)
- (apply (lambda (#{args\ 13030}#
- #{q\ 13031}#)
+ (apply (lambda (#{args\ 4177}#
+ #{q\ 4178}#)
(syntax-violation
'unquote-splicing
"unquote-splicing
takes exactly one argument"
- #{p\ 13005}#
+ #{p\ 4152}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -13731,8 +13637,8 @@
#(args q)
#((top)
(top))
- #("i13028"
-
"i13029"))
+ #("i4175"
+
"i4176"))
#(ribcage
()
()
@@ -13741,8 +13647,8 @@
#(p lev)
#((top)
(top))
- #("i13007"
-
"i13008"))
+ #("i4154"
+
"i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13752,25 +13658,25 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
-
"i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+
"i4089")))
(hygiene
guile))
- #{args\
13030}#)))
- #{tmp\ 13023}#)
- ((lambda (#{tmp\ 13032}#)
- (if #{tmp\ 13032}#
- (apply (lambda (#{p\
13034}#)
- (#{quasicons\
12943}#
+ #{args\
4177}#)))
+ #{tmp\ 4170}#)
+ ((lambda (#{tmp\ 4179}#)
+ (if #{tmp\ 4179}#
+ (apply (lambda (#{p\ 4181}#)
+ (#{quasicons\
4090}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i13033"))
+
#("i4180"))
#(ribcage
()
()
@@ -13779,8 +13685,8 @@
#(p lev)
#((top)
(top))
- #("i13007"
-
"i13008"))
+ #("i4154"
+
"i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13790,10 +13696,10 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
-
"i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+
"i4089")))
(hygiene
guile))
#(syntax-object
@@ -13802,7 +13708,7 @@
#(ribcage
#(p)
#((top))
-
#("i13033"))
+
#("i4180"))
#(ribcage
()
()
@@ -13811,8 +13717,8 @@
#(p lev)
#((top)
(top))
- #("i13007"
-
"i13008"))
+ #("i4154"
+
"i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13822,45 +13728,45 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
-
"i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+
"i4089")))
(hygiene
guile)))
- (#{quasi\ 12946}#
- (list #{p\
13034}#)
- (+ #{lev\
13006}#
+ (#{quasi\ 4093}#
+ (list #{p\
4181}#)
+ (+ #{lev\
4153}#
1))))
- #{tmp\ 13032}#)
- ((lambda (#{tmp\ 13035}#)
- (if #{tmp\ 13035}#
- (apply (lambda (#{p\
13038}#
- #{q\
13039}#)
- (#{quasicons\
12943}#
- (#{quasi\
12946}#
- #{p\
13038}#
- #{lev\
13006}#)
- (#{quasi\
12946}#
- #{q\
13039}#
- #{lev\
13006}#)))
- #{tmp\ 13035}#)
- ((lambda (#{tmp\
13040}#)
- (if #{tmp\ 13040}#
- (apply (lambda
(#{x\ 13042}#)
-
(#{quasivector\ 12945}#
-
(#{quasi\ 12946}#
- #{x\
13042}#
-
#{lev\ 13006}#)))
- #{tmp\
13040}#)
- ((lambda (#{p\
13045}#)
+ #{tmp\ 4179}#)
+ ((lambda (#{tmp\ 4182}#)
+ (if #{tmp\ 4182}#
+ (apply (lambda (#{p\
4185}#
+ #{q\
4186}#)
+ (#{quasicons\
4090}#
+ (#{quasi\
4093}#
+ #{p\
4185}#
+ #{lev\
4153}#)
+ (#{quasi\
4093}#
+ #{q\
4186}#
+ #{lev\
4153}#)))
+ #{tmp\ 4182}#)
+ ((lambda (#{tmp\
4187}#)
+ (if #{tmp\ 4187}#
+ (apply (lambda
(#{x\ 4189}#)
+
(#{quasivector\ 4092}#
+
(#{quasi\ 4093}#
+ #{x\
4189}#
+
#{lev\ 4153}#)))
+ #{tmp\
4187}#)
+ ((lambda (#{p\
4192}#)
(list
'#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i13044"))
+
#("i4191"))
#(ribcage
()
()
@@ -13870,8 +13776,8 @@
lev)
#((top)
(top))
-
#("i13007"
-
"i13008"))
+
#("i4154"
+
"i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13881,23 +13787,23 @@
(top)
(top)
(top))
-
#("i12939"
-
"i12940"
-
"i12941"
-
"i12942")))
+
#("i4086"
+
"i4087"
+
"i4088"
+
"i4089")))
(hygiene
guile))
- #{p\
13045}#))
- #{tmp\ 13009}#)))
+ #{p\
4192}#))
+ #{tmp\ 4156}#)))
($sc-dispatch
- #{tmp\ 13009}#
+ #{tmp\ 4156}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 13009}#
+ #{tmp\ 4156}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 13009}#
+ #{tmp\ 4156}#
'(#(free-id
#(syntax-object
quasiquote
@@ -13906,7 +13812,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i13007" "i13008"))
+ #("i4154" "i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13916,14 +13822,14 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 13009}#
+ #{tmp\ 4156}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13932,7 +13838,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i13007" "i13008"))
+ #("i4154" "i4155"))
#(ribcage
#(quasicons
quasiappend
@@ -13942,17 +13848,17 @@
(top)
(top)
(top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 13009}#
+ #{tmp\ 4156}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13961,23 +13867,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i13007" "i13008"))
+ #("i4154" "i4155"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 13009}#
+ #{tmp\ 4156}#
'(#(free-id
#(syntax-object
unquote
@@ -13986,22 +13892,19 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i13007" "i13008"))
+ #("i4154" "i4155"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i12939"
- "i12940"
- "i12941"
- "i12942")))
+ #("i4086" "i4087" "i4088" "i4089")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 13009}#
+ #{tmp\ 4156}#
'(#(free-id
#(syntax-object
unquote
@@ -14010,244 +13913,244 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i13007" "i13008"))
+ #("i4154" "i4155"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i12939" "i12940" "i12941" "i12942")))
+ #("i4086" "i4087" "i4088" "i4089")))
(hygiene guile)))
any))))
- #{p\ 13005}#))))
- (lambda (#{x\ 13046}#)
- ((lambda (#{tmp\ 13048}#)
- ((lambda (#{tmp\ 13049}#)
- (if #{tmp\ 13049}#
- (apply (lambda (#{_\ 13052}# #{e\ 13053}#)
- (#{quasi\ 12946}# #{e\ 13053}# 0))
- #{tmp\ 13049}#)
+ #{p\ 4152}#))))
+ (lambda (#{x\ 4193}#)
+ ((lambda (#{tmp\ 4195}#)
+ ((lambda (#{tmp\ 4196}#)
+ (if #{tmp\ 4196}#
+ (apply (lambda (#{_\ 4199}# #{e\ 4200}#)
+ (#{quasi\ 4093}# #{e\ 4200}# 0))
+ #{tmp\ 4196}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13048}#)))
- ($sc-dispatch #{tmp\ 13048}# (quote (any any)))))
- #{x\ 13046}#)))
+ #{tmp\ 4195}#)))
+ ($sc-dispatch #{tmp\ 4195}# (quote (any any)))))
+ #{x\ 4193}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 13054}#)
- (letrec ((#{read-file\ 13057}#
- (lambda (#{fn\ 13058}# #{k\ 13059}#)
- (let ((#{p\ 13063}# (open-input-file #{fn\ 13058}#)))
- (letrec ((#{f\ 13067}#
- (lambda (#{x\ 13068}# #{result\ 13069}#)
- (if (eof-object? #{x\ 13068}#)
+ (cons (lambda (#{x\ 4201}#)
+ (letrec ((#{read-file\ 4204}#
+ (lambda (#{fn\ 4205}# #{k\ 4206}#)
+ (let ((#{p\ 4210}# (open-input-file #{fn\ 4205}#)))
+ (letrec ((#{f\ 4214}#
+ (lambda (#{x\ 4215}# #{result\ 4216}#)
+ (if (eof-object? #{x\ 4215}#)
(begin
- (close-input-port #{p\ 13063}#)
- (reverse #{result\ 13069}#))
- (#{f\ 13067}#
- (read #{p\ 13063}#)
+ (close-input-port #{p\ 4210}#)
+ (reverse #{result\ 4216}#))
+ (#{f\ 4214}#
+ (read #{p\ 4210}#)
(cons (datum->syntax
- #{k\ 13059}#
- #{x\ 13068}#)
- #{result\ 13069}#))))))
- (#{f\ 13067}# (read #{p\ 13063}#) (quote ())))))))
- ((lambda (#{tmp\ 13070}#)
- ((lambda (#{tmp\ 13071}#)
- (if #{tmp\ 13071}#
- (apply (lambda (#{k\ 13074}# #{filename\ 13075}#)
- (let ((#{fn\ 13077}#
- (syntax->datum #{filename\ 13075}#)))
- ((lambda (#{tmp\ 13079}#)
- ((lambda (#{tmp\ 13080}#)
- (if #{tmp\ 13080}#
- (apply (lambda (#{exp\ 13082}#)
+ #{k\ 4206}#
+ #{x\ 4215}#)
+ #{result\ 4216}#))))))
+ (#{f\ 4214}# (read #{p\ 4210}#) (quote ())))))))
+ ((lambda (#{tmp\ 4217}#)
+ ((lambda (#{tmp\ 4218}#)
+ (if #{tmp\ 4218}#
+ (apply (lambda (#{k\ 4221}# #{filename\ 4222}#)
+ (let ((#{fn\ 4224}#
+ (syntax->datum #{filename\ 4222}#)))
+ ((lambda (#{tmp\ 4226}#)
+ ((lambda (#{tmp\ 4227}#)
+ (if #{tmp\ 4227}#
+ (apply (lambda (#{exp\ 4229}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i13081"))
+ #("i4228"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i13076"))
+ #("i4223"))
#(ribcage
#(k filename)
#((top) (top))
- #("i13072"
- "i13073"))
+ #("i4219"
+ "i4220"))
#(ribcage
(read-file)
((top))
- ("i13056"))
+ ("i4203"))
#(ribcage
#(x)
#((top))
- #("i13055")))
+ #("i4202")))
(hygiene guile))
- #{exp\ 13082}#))
- #{tmp\ 13080}#)
+ #{exp\ 4229}#))
+ #{tmp\ 4227}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 13079}#)))
+ #{tmp\ 4226}#)))
($sc-dispatch
- #{tmp\ 13079}#
+ #{tmp\ 4226}#
'each-any)))
- (#{read-file\ 13057}#
- #{fn\ 13077}#
- #{k\ 13074}#))))
- #{tmp\ 13071}#)
+ (#{read-file\ 4204}#
+ #{fn\ 4224}#
+ #{k\ 4221}#))))
+ #{tmp\ 4218}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13070}#)))
- ($sc-dispatch #{tmp\ 13070}# (quote (any any)))))
- #{x\ 13054}#)))
+ #{tmp\ 4217}#)))
+ ($sc-dispatch #{tmp\ 4217}# (quote (any any)))))
+ #{x\ 4201}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 13084}#)
- ((lambda (#{tmp\ 13086}#)
- ((lambda (#{tmp\ 13087}#)
- (if #{tmp\ 13087}#
- (apply (lambda (#{k\ 13090}# #{filename\ 13091}#)
- (let ((#{fn\ 13093}#
- (syntax->datum #{filename\ 13091}#)))
- ((lambda (#{tmp\ 13095}#)
- ((lambda (#{fn\ 13097}#)
+ (cons (lambda (#{x\ 4231}#)
+ ((lambda (#{tmp\ 4233}#)
+ ((lambda (#{tmp\ 4234}#)
+ (if #{tmp\ 4234}#
+ (apply (lambda (#{k\ 4237}# #{filename\ 4238}#)
+ (let ((#{fn\ 4240}#
+ (syntax->datum #{filename\ 4238}#)))
+ ((lambda (#{tmp\ 4242}#)
+ ((lambda (#{fn\ 4244}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i13096"))
+ #("i4243"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i13092"))
+ #("i4239"))
#(ribcage
#(k filename)
#((top) (top))
- #("i13088" "i13089"))
+ #("i4235" "i4236"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13085")))
+ #("i4232")))
(hygiene guile))
- #{fn\ 13097}#))
- #{tmp\ 13095}#))
- (let ((#{t\ 13100}#
- (%search-load-path #{fn\ 13093}#)))
- (if #{t\ 13100}#
- #{t\ 13100}#
+ #{fn\ 4244}#))
+ #{tmp\ 4242}#))
+ (let ((#{t\ 4247}#
+ (%search-load-path #{fn\ 4240}#)))
+ (if #{t\ 4247}#
+ #{t\ 4247}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 13084}#
- #{filename\ 13091}#))))))
- #{tmp\ 13087}#)
+ #{x\ 4231}#
+ #{filename\ 4238}#))))))
+ #{tmp\ 4234}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13086}#)))
- ($sc-dispatch #{tmp\ 13086}# (quote (any any)))))
- #{x\ 13084}#))
+ #{tmp\ 4233}#)))
+ ($sc-dispatch #{tmp\ 4233}# (quote (any any)))))
+ #{x\ 4231}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 13102}#)
- ((lambda (#{tmp\ 13104}#)
- ((lambda (#{tmp\ 13105}#)
- (if #{tmp\ 13105}#
- (apply (lambda (#{_\ 13108}# #{e\ 13109}#)
+ (cons (lambda (#{x\ 4249}#)
+ ((lambda (#{tmp\ 4251}#)
+ ((lambda (#{tmp\ 4252}#)
+ (if #{tmp\ 4252}#
+ (apply (lambda (#{_\ 4255}# #{e\ 4256}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 13102}#))
- #{tmp\ 13105}#)
+ #{x\ 4249}#))
+ #{tmp\ 4252}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13104}#)))
- ($sc-dispatch #{tmp\ 13104}# (quote (any any)))))
- #{x\ 13102}#))
+ #{tmp\ 4251}#)))
+ ($sc-dispatch #{tmp\ 4251}# (quote (any any)))))
+ #{x\ 4249}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 13110}#)
- ((lambda (#{tmp\ 13112}#)
- ((lambda (#{tmp\ 13113}#)
- (if #{tmp\ 13113}#
- (apply (lambda (#{_\ 13116}# #{e\ 13117}#)
+ (cons (lambda (#{x\ 4257}#)
+ ((lambda (#{tmp\ 4259}#)
+ ((lambda (#{tmp\ 4260}#)
+ (if #{tmp\ 4260}#
+ (apply (lambda (#{_\ 4263}# #{e\ 4264}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 13110}#))
- #{tmp\ 13113}#)
+ #{x\ 4257}#))
+ #{tmp\ 4260}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13112}#)))
- ($sc-dispatch #{tmp\ 13112}# (quote (any any)))))
- #{x\ 13110}#))
+ #{tmp\ 4259}#)))
+ ($sc-dispatch #{tmp\ 4259}# (quote (any any)))))
+ #{x\ 4257}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 13118}#)
- ((lambda (#{tmp\ 13120}#)
- ((lambda (#{tmp\ 13121}#)
- (if #{tmp\ 13121}#
- (apply (lambda (#{_\ 13126}#
- #{e\ 13127}#
- #{m1\ 13128}#
- #{m2\ 13129}#)
- ((lambda (#{tmp\ 13131}#)
- ((lambda (#{body\ 13133}#)
+ (cons (lambda (#{x\ 4265}#)
+ ((lambda (#{tmp\ 4267}#)
+ ((lambda (#{tmp\ 4268}#)
+ (if #{tmp\ 4268}#
+ (apply (lambda (#{_\ 4273}#
+ #{e\ 4274}#
+ #{m1\ 4275}#
+ #{m2\ 4276}#)
+ ((lambda (#{tmp\ 4278}#)
+ ((lambda (#{body\ 4280}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i13132"))
+ #("i4279"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i13122"
- "i13123"
- "i13124"
- "i13125"))
+ #("i4269"
+ "i4270"
+ "i4271"
+ "i4272"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13119")))
+ #("i4266")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -14255,35 +14158,35 @@
#(ribcage
#(body)
#((top))
- #("i13132"))
+ #("i4279"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i13122"
- "i13123"
- "i13124"
- "i13125"))
+ #("i4269"
+ "i4270"
+ "i4271"
+ "i4272"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13119")))
+ #("i4266")))
(hygiene guile))
- #{e\ 13127}#))
- #{body\ 13133}#))
- #{tmp\ 13131}#))
- (letrec ((#{f\ 13137}#
- (lambda (#{clause\ 13138}#
- #{clauses\ 13139}#)
- (if (null? #{clauses\ 13139}#)
- ((lambda (#{tmp\ 13141}#)
- ((lambda (#{tmp\ 13142}#)
- (if #{tmp\ 13142}#
- (apply (lambda (#{e1\
13145}#
- #{e2\
13146}#)
+ #{e\ 4274}#))
+ #{body\ 4280}#))
+ #{tmp\ 4278}#))
+ (letrec ((#{f\ 4284}#
+ (lambda (#{clause\ 4285}#
+ #{clauses\ 4286}#)
+ (if (null? #{clauses\ 4286}#)
+ ((lambda (#{tmp\ 4288}#)
+ ((lambda (#{tmp\ 4289}#)
+ (if #{tmp\ 4289}#
+ (apply (lambda (#{e1\
4292}#
+ #{e2\
4293}#)
(cons
'#(syntax-object
begin
((top)
@@ -14292,8 +14195,8 @@
e2)
#((top)
(top))
-
#("i13143"
-
"i13144"))
+
#("i4290"
+
"i4291"))
#(ribcage
()
()
@@ -14305,9 +14208,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14317,10 +14220,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14328,17 +14231,17 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
- (cons
#{e1\ 13145}#
-
#{e2\ 13146}#)))
- #{tmp\ 13142}#)
- ((lambda (#{tmp\ 13148}#)
- (if #{tmp\ 13148}#
- (apply (lambda (#{k\
13152}#
-
#{e1\ 13153}#
-
#{e2\ 13154}#)
+ (cons
#{e1\ 4292}#
+
#{e2\ 4293}#)))
+ #{tmp\ 4289}#)
+ ((lambda (#{tmp\ 4295}#)
+ (if #{tmp\ 4295}#
+ (apply (lambda (#{k\
4299}#
+
#{e1\ 4300}#
+
#{e2\ 4301}#)
(list
'#(syntax-object
if
((top)
@@ -14349,9 +14252,9 @@
#((top)
(top)
(top))
-
#("i13149"
-
"i13150"
-
"i13151"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14363,9 +14266,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14375,10 +14278,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14386,7 +14289,7 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
(list
'#(syntax-object
@@ -14399,9 +14302,9 @@
#((top)
(top)
(top))
-
#("i13149"
-
"i13150"
-
"i13151"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14413,9 +14316,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14425,10 +14328,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14436,7 +14339,7 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
'#(syntax-object
@@ -14449,9 +14352,9 @@
#((top)
(top)
(top))
-
#("i13149"
-
"i13150"
-
"i13151"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14463,9 +14366,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14475,10 +14378,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14486,7 +14389,7 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
(list '#(syntax-object
@@ -14499,9 +14402,9 @@
#((top)
(top)
(top))
-
#("i13149"
-
"i13150"
-
"i13151"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14513,9 +14416,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14525,10 +14428,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14536,10 +14439,10 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
-
#{k\ 13152}#))
+
#{k\ 4299}#))
(cons
'#(syntax-object
begin
((top)
@@ -14550,9 +14453,9 @@
#((top)
(top)
(top))
-
#("i13149"
-
"i13150"
-
"i13151"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14564,9 +14467,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14576,10 +14479,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14587,27 +14490,27 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
-
(cons #{e1\ 13153}#
-
#{e2\ 13154}#))))
- #{tmp\
13148}#)
- ((lambda (#{_\
13158}#)
+
(cons #{e1\ 4300}#
+
#{e2\ 4301}#))))
+ #{tmp\ 4295}#)
+ ((lambda (#{_\
4305}#)
(syntax-violation
'case
"bad clause"
- #{x\ 13118}#
- #{clause\
13138}#))
- #{tmp\ 13141}#)))
+ #{x\ 4265}#
+ #{clause\
4285}#))
+ #{tmp\ 4288}#)))
($sc-dispatch
- #{tmp\ 13141}#
+ #{tmp\ 4288}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 13141}#
+ #{tmp\ 4288}#
'(#(free-id
#(syntax-object
else
@@ -14618,37 +14521,37 @@
#((top)
(top)
(top))
- #("i13134"
- "i13135"
- "i13136"))
+ #("i4281"
+ "i4282"
+ "i4283"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i13122"
- "i13123"
- "i13124"
- "i13125"))
+ #("i4269"
+ "i4270"
+ "i4271"
+ "i4272"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13119")))
+ #("i4266")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 13138}#)
- ((lambda (#{tmp\ 13160}#)
- ((lambda (#{rest\ 13162}#)
- ((lambda (#{tmp\ 13163}#)
- ((lambda (#{tmp\ 13164}#)
- (if #{tmp\ 13164}#
- (apply (lambda
(#{k\ 13168}#
-
#{e1\ 13169}#
-
#{e2\ 13170}#)
+ #{clause\ 4285}#)
+ ((lambda (#{tmp\ 4307}#)
+ ((lambda (#{rest\ 4309}#)
+ ((lambda (#{tmp\ 4310}#)
+ ((lambda (#{tmp\ 4311}#)
+ (if #{tmp\ 4311}#
+ (apply (lambda
(#{k\ 4315}#
+
#{e1\ 4316}#
+
#{e2\ 4317}#)
(list
'#(syntax-object
if
((top)
@@ -14659,13 +14562,13 @@
#((top)
(top)
(top))
-
#("i13165"
-
"i13166"
-
"i13167"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i13161"))
+
#("i4308"))
#(ribcage
()
()
@@ -14677,9 +14580,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14689,10 +14592,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14700,7 +14603,7 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
(list '#(syntax-object
@@ -14713,13 +14616,13 @@
#((top)
(top)
(top))
-
#("i13165"
-
"i13166"
-
"i13167"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i13161"))
+
#("i4308"))
#(ribcage
()
()
@@ -14731,9 +14634,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14743,10 +14646,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14754,7 +14657,7 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
'#(syntax-object
@@ -14767,13 +14670,13 @@
#((top)
(top)
(top))
-
#("i13165"
-
"i13166"
-
"i13167"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i13161"))
+
#("i4308"))
#(ribcage
()
()
@@ -14785,9 +14688,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14797,10 +14700,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14808,7 +14711,7 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
(list '#(syntax-object
@@ -14821,13 +14724,13 @@
#((top)
(top)
(top))
-
#("i13165"
-
"i13166"
-
"i13167"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i13161"))
+
#("i4308"))
#(ribcage
()
()
@@ -14839,9 +14742,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14851,10 +14754,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14862,10 +14765,10 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
-
#{k\ 13168}#))
+
#{k\ 4315}#))
(cons '#(syntax-object
begin
((top)
@@ -14876,13 +14779,13 @@
#((top)
(top)
(top))
-
#("i13165"
-
"i13166"
-
"i13167"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i13161"))
+
#("i4308"))
#(ribcage
()
()
@@ -14894,9 +14797,9 @@
#((top)
(top)
(top))
-
#("i13134"
-
"i13135"
-
"i13136"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14906,10 +14809,10 @@
(top)
(top)
(top))
-
#("i13122"
-
"i13123"
-
"i13124"
-
"i13125"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14917,61 +14820,61 @@
#(ribcage
#(x)
#((top))
-
#("i13119")))
+
#("i4266")))
(hygiene
guile))
-
(cons #{e1\ 13169}#
-
#{e2\ 13170}#))
-
#{rest\ 13162}#))
- #{tmp\
13164}#)
- ((lambda (#{_\
13174}#)
+
(cons #{e1\ 4316}#
+
#{e2\ 4317}#))
+
#{rest\ 4309}#))
+ #{tmp\
4311}#)
+ ((lambda (#{_\
4321}#)
(syntax-violation
'case
"bad clause"
- #{x\ 13118}#
- #{clause\
13138}#))
- #{tmp\ 13163}#)))
+ #{x\ 4265}#
+ #{clause\
4285}#))
+ #{tmp\ 4310}#)))
($sc-dispatch
- #{tmp\ 13163}#
+ #{tmp\ 4310}#
'(each-any
any
.
each-any))))
- #{clause\ 13138}#))
- #{tmp\ 13160}#))
- (#{f\ 13137}#
- (car #{clauses\ 13139}#)
- (cdr #{clauses\ 13139}#)))))))
- (#{f\ 13137}# #{m1\ 13128}# #{m2\ 13129}#))))
- #{tmp\ 13121}#)
+ #{clause\ 4285}#))
+ #{tmp\ 4307}#))
+ (#{f\ 4284}#
+ (car #{clauses\ 4286}#)
+ (cdr #{clauses\ 4286}#)))))))
+ (#{f\ 4284}# #{m1\ 4275}# #{m2\ 4276}#))))
+ #{tmp\ 4268}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13120}#)))
+ #{tmp\ 4267}#)))
($sc-dispatch
- #{tmp\ 13120}#
+ #{tmp\ 4267}#
'(any any any . each-any))))
- #{x\ 13118}#))
+ #{x\ 4265}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 13175}#)
- ((lambda (#{tmp\ 13177}#)
- ((lambda (#{tmp\ 13178}#)
- (if #{tmp\ 13178}#
- (apply (lambda (#{_\ 13181}# #{e\ 13182}#)
+ (cons (lambda (#{x\ 4322}#)
+ ((lambda (#{tmp\ 4324}#)
+ ((lambda (#{tmp\ 4325}#)
+ (if #{tmp\ 4325}#
+ (apply (lambda (#{_\ 4328}# #{e\ 4329}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i13176")))
+ #(ribcage #(x) #((top)) #("i4323")))
(hygiene guile))
'(#(syntax-object
x
@@ -14979,9 +14882,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i13176")))
+ #(ribcage #(x) #((top)) #("i4323")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -14989,9 +14892,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i13176")))
+ #(ribcage #(x) #((top)) #("i4323")))
(hygiene guile))
.
#(syntax-object
@@ -15000,9 +14903,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i13176")))
+ #(ribcage #(x) #((top)) #("i4323")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -15010,12 +14913,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
'#(syntax-object
x
@@ -15023,12 +14926,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -15037,12 +14940,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -15050,12 +14953,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
(#(syntax-object
syntax
@@ -15063,12 +14966,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
#(syntax-object
id
@@ -15076,12 +14979,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179" "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -15089,29 +14992,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179"
- "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
- #{e\ 13182}#))
- (list (cons #{_\ 13181}#
+ #{e\ 4329}#))
+ (list (cons #{_\ 4328}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i13179"
- "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
#(syntax-object
...
@@ -15119,13 +15020,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179"
- "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -15133,15 +15033,14 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i13179"
- "i13180"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
- (cons #{e\ 13182}#
+ (cons #{e\ 4329}#
'(#(syntax-object
x
((top)
@@ -15149,8 +15048,8 @@
#(_ e)
#((top)
(top))
- #("i13179"
- "i13180"))
+ #("i4326"
+ "i4327"))
#(ribcage
()
()
@@ -15158,7 +15057,7 @@
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene guile))
#(syntax-object
...
@@ -15167,8 +15066,8 @@
#(_ e)
#((top)
(top))
- #("i13179"
- "i13180"))
+ #("i4326"
+ "i4327"))
#(ribcage
()
()
@@ -15176,72 +15075,72 @@
#(ribcage
#(x)
#((top))
- #("i13176")))
+ #("i4323")))
(hygiene
guile)))))))))
- #{tmp\ 13178}#)
+ #{tmp\ 4325}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13177}#)))
- ($sc-dispatch #{tmp\ 13177}# (quote (any any)))))
- #{x\ 13175}#))
+ #{tmp\ 4324}#)))
+ ($sc-dispatch #{tmp\ 4324}# (quote (any any)))))
+ #{x\ 4322}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 13183}#)
- ((lambda (#{tmp\ 13185}#)
- ((lambda (#{tmp\ 13186}#)
- (if #{tmp\ 13186}#
- (apply (lambda (#{_\ 13192}#
- #{id\ 13193}#
- #{args\ 13194}#
- #{b0\ 13195}#
- #{b1\ 13196}#)
+ (cons (lambda (#{x\ 4330}#)
+ ((lambda (#{tmp\ 4332}#)
+ ((lambda (#{tmp\ 4333}#)
+ (if #{tmp\ 4333}#
+ (apply (lambda (#{_\ 4339}#
+ #{id\ 4340}#
+ #{args\ 4341}#
+ #{b0\ 4342}#
+ #{b1\ 4343}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i13187"
- "i13188"
- "i13189"
- "i13190"
- "i13191"))
+ #("i4334"
+ "i4335"
+ "i4336"
+ "i4337"
+ "i4338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i13184")))
+ #(ribcage #(x) #((top)) #("i4331")))
(hygiene guile))
- #{id\ 13193}#
+ #{id\ 4340}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i13187"
- "i13188"
- "i13189"
- "i13190"
- "i13191"))
+ #("i4334"
+ "i4335"
+ "i4336"
+ "i4337"
+ "i4338"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13184")))
+ #("i4331")))
(hygiene guile))
- (cons #{args\ 13194}#
- (cons #{b0\ 13195}#
- #{b1\ 13196}#)))))
- #{tmp\ 13186}#)
- ((lambda (#{tmp\ 13198}#)
- (if (if #{tmp\ 13198}#
- (apply (lambda (#{_\ 13202}#
- #{id\ 13203}#
- #{val\ 13204}#)
+ (cons #{args\ 4341}#
+ (cons #{b0\ 4342}#
+ #{b1\ 4343}#)))))
+ #{tmp\ 4333}#)
+ ((lambda (#{tmp\ 4345}#)
+ (if (if #{tmp\ 4345}#
+ (apply (lambda (#{_\ 4349}#
+ #{id\ 4350}#
+ #{val\ 4351}#)
(identifier?
'#(syntax-object
x
@@ -15249,44 +15148,44 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i13199" "i13200" "i13201"))
+ #("i4346" "i4347" "i4348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13184")))
+ #("i4331")))
(hygiene guile))))
- #{tmp\ 13198}#)
+ #{tmp\ 4345}#)
#f)
- (apply (lambda (#{_\ 13208}#
- #{id\ 13209}#
- #{val\ 13210}#)
+ (apply (lambda (#{_\ 4355}#
+ #{id\ 4356}#
+ #{val\ 4357}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i13205" "i13206" "i13207"))
+ #("i4352" "i4353" "i4354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i13184")))
+ #("i4331")))
(hygiene guile))
- #{id\ 13209}#
- #{val\ 13210}#))
- #{tmp\ 13198}#)
+ #{id\ 4356}#
+ #{val\ 4357}#))
+ #{tmp\ 4345}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13185}#)))
+ #{tmp\ 4332}#)))
($sc-dispatch
- #{tmp\ 13185}#
+ #{tmp\ 4332}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 13185}#
+ #{tmp\ 4332}#
'(any (any . any) any . each-any))))
- #{x\ 13183}#))
+ #{x\ 4330}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 48e506e..6353659 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1277,7 +1277,8 @@
(case type
((global core macro module-ref)
;; affect compile-time environment (once we have booted)
- (if (and (not (module-local-variable (current-module) n))
+ (if (and (memq m '(c c&e))
+ (not (module-local-variable (current-module) n))
(current-module))
(let ((old (module-variable (current-module) n)))
;; use value of the same-named imported variable, if
diff --git a/module/ice-9/r6rs-libraries.scm b/module/ice-9/r6rs-libraries.scm
new file mode 100644
index 0000000..dc77ee6
--- /dev/null
+++ b/module/ice-9/r6rs-libraries.scm
@@ -0,0 +1,194 @@
+;;; r6rs-libraries.scm --- Support for the R6RS `library' and `import' forms
+
+;; Copyright (C) 2010 Free Software Foundation, Inc.
+;;
+;; This library is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU Lesser General Public
+;; License as published by the Free Software Foundation; either
+;; version 3 of the License, or (at your option) any later version.
+;;
+;; This library is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; Lesser General Public License for more details.
+;;
+;; You should have received a copy of the GNU Lesser General Public
+;; License along with this library; if not, write to the Free Software
+;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+
+;; This file is included from boot-9.scm and assumes the existence of (and
+;; expands into) procedures and syntactic forms defined therein.
+
+(define (resolve-r6rs-interface import-spec)
+ (define (make-custom-interface mod)
+ (let ((iface (make-module)))
+ (set-module-kind! iface 'custom-interface)
+ (set-module-name! iface (module-name mod))
+ iface))
+ (define (sym? x) (symbol? (syntax->datum x)))
+
+ (syntax-case import-spec (library only except prefix rename srfi)
+ ;; (srfi :n ...) -> (srfi srfi-n ...)
+ ((library (srfi colon-n rest ... (version ...)))
+ (and (and-map sym? #'(srfi rest ...))
+ (symbol? (syntax->datum #'colon-n))
+ (eqv? (string-ref (symbol->string (syntax->datum #'colon-n)) 0) #\:))
+ (let ((srfi-n (string->symbol
+ (string-append
+ "srfi-"
+ (substring (symbol->string (syntax->datum #'colon-n))
+ 1)))))
+ (resolve-r6rs-interface
+ #`(library (srfi #,srfi-n rest ... (version ...))))))
+
+ ((library (name name* ... (version ...)))
+ (and-map sym? #'(name name* ...))
+ (resolve-interface (syntax->datum #'(name name* ...))
+ #:version (syntax->datum #'(version ...))))
+
+ ((library (name name* ...))
+ (and-map sym? #'(name name* ...))
+ (resolve-r6rs-interface #'(library (name name* ... ()))))
+
+ ((only import-set identifier ...)
+ (and-map sym? #'(identifier ...))
+ (let* ((mod (resolve-r6rs-interface #'import-set))
+ (iface (make-custom-interface mod)))
+ (for-each (lambda (sym)
+ (module-add! iface sym
+ (or (module-local-variable mod sym)
+ (error "no binding `~A' in module ~A"
+ sym mod))))
+ (syntax->datum #'(identifier ...)))
+ iface))
+
+ ((except import-set identifier ...)
+ (and-map sym? #'(identifier ...))
+ (let* ((mod (resolve-r6rs-interface #'import-set))
+ (iface (make-custom-interface mod)))
+ (module-for-each (lambda (sym var) (module-add! iface sym var)) mod)
+ (for-each (lambda (sym)
+ (if (module-local-variable iface sym)
+ (module-remove! iface sym)
+ (error "no binding `~A' in module ~A" sym mod)))
+ (syntax->datum #'(identifier ...)))
+ iface))
+
+ ((prefix import-set identifier)
+ (sym? #'identifier)
+ (let* ((mod (resolve-r6rs-interface #'import-set))
+ (iface (make-custom-interface mod))
+ (pre (syntax->datum #'identifier)))
+ (module-for-each (lambda (sym var)
+ (module-add! iface (symbol-append pre sym) var))
+ mod)
+ iface))
+
+ ((rename import-set (from to) ...)
+ (and (and-map sym? #'(from ...)) (and-map sym? #'(to ...)))
+ (let* ((mod (resolve-r6rs-interface #'import-set))
+ (iface (make-custom-interface mod)))
+ (module-for-each (lambda (sym var) (module-add! iface sym var)) mod)
+ (let lp ((in (syntax->datum #'((from . to) ...))) (out '()))
+ (cond
+ ((null? in)
+ (for-each
+ (lambda (pair)
+ (if (module-local-variable iface (car pair))
+ (error "duplicate binding for `~A' in module ~A"
+ (car pair) mod)
+ (module-add! iface (car pair) (cdr pair))))
+ out)
+ iface)
+ (else
+ (let ((var (or (module-local-variable mod (caar in))
+ (error "no binding `~A' in module ~A"
+ (caar in) mod))))
+ (module-remove! iface (caar in))
+ (lp (cdr in) (acons (cdar in) var out))))))))
+
+ ((name name* ... (version ...))
+ (and-map sym? #'(name name* ...))
+ (resolve-r6rs-interface #'(library (name name* ... (version ...)))))
+
+ ((name name* ...)
+ (and-map sym? #'(name name* ...))
+ (resolve-r6rs-interface #'(library (name name* ... ()))))))
+
+(define-syntax library
+ (lambda (stx)
+ (define (compute-exports ifaces specs)
+ (define (re-export? sym)
+ (or-map (lambda (iface) (module-local-variable iface sym)) ifaces))
+
+ (let lp ((specs specs) (e '()) (r '()))
+ (syntax-case specs (rename)
+ (() (values e r))
+ (((rename (from to) ...) . rest)
+ (and (and-map identifier? #'(from ...))
+ (and-map identifier? #'(to ...)))
+ (let lp2 ((in #'((from . to) ...)) (e e) (r r))
+ (syntax-case in ()
+ (() (lp #'rest e r))
+ (((from . to) . in)
+ (if (re-export? (syntax->datum #'from))
+ (lp2 #'in e (cons #'(from . to) r))
+ (lp2 #'in (cons #'(from . to) e) r))))))
+ ((id . rest)
+ (identifier? #'id)
+ (let ((sym (syntax->datum #'id)))
+ (if (re-export? sym)
+ (lp #'rest e (cons #'id r))
+ (lp #'rest (cons #'id e) r)))))))
+
+ (syntax-case stx (export import)
+ ((_ (name name* ...)
+ (export espec ...)
+ (import ispec ...)
+ body ...)
+ (and-map identifier? #'(name name* ...))
+ ;; Add () as the version.
+ #'(library (name name* ... ())
+ (export espec ...)
+ (import ispec ...)
+ body ...))
+
+ ((_ (name name* ... (version ...))
+ (export espec ...)
+ (import ispec ...)
+ body ...)
+ (and-map identifier? #'(name name* ...))
+ (call-with-values
+ (lambda ()
+ (compute-exports (map resolve-r6rs-interface #'(ispec ...))
+ #'(espec ...)))
+ (lambda (exports re-exports)
+ (with-syntax (((e ...) exports)
+ ((r ...) re-exports))
+ ;; It would be nice to push the module that was current before the
+ ;; definition, and pop it after the library definition, but I
+ ;; actually can't see a way to do that. Helper procedures perhaps,
+ ;; around a fluid that is rebound in save-module-excursion?
Patches
+ ;; welcome!
+ #'(begin
+ (define-module (name name* ...)
+ #:version (version ...))
+ (import ispec)
+ ...
+ (re-export r ...)
+ (export e ...)
+ body ...))))))))
+
+(define-syntax import
+ (lambda (stx)
+ (syntax-case stx (for)
+ ((_ (for import-set import-level ...))
+ #'(import import-set))
+ ((_ import-set)
+ #'(eval-when (eval load compile)
+ (let ((iface (resolve-r6rs-interface 'import-set)))
+ (call-with-deferred-observers
+ (lambda ()
+ (module-use-interfaces! (current-module) (list iface))))
+ (if #f #f)))))))
diff --git a/test-suite/Makefile.am b/test-suite/Makefile.am
index be66dea..4444be4 100644
--- a/test-suite/Makefile.am
+++ b/test-suite/Makefile.am
@@ -76,6 +76,7 @@ SCM_TESTS = tests/00-initial-env.test \
tests/r4rs.test \
tests/r5rs_pitfall.test \
tests/r6rs-ports.test \
+ tests/rnrs-libraries.test \
tests/ramap.test \
tests/reader.test \
tests/receive.test \
@@ -122,7 +123,12 @@ SCM_TESTS = tests/00-initial-env.test \
tests/vlist.test \
tests/weaks.test
-EXTRA_DIST = guile-test lib.scm $(SCM_TESTS) ChangeLog-2008
+EXTRA_DIST = \
+ guile-test \
+ lib.scm \
+ $(SCM_TESTS) \
+ tests/rnrs-test-a.scm
+ ChangeLog-2008
# Test suite of Dominique Boucher's `lalr-scm'.
diff --git a/test-suite/tests/rnrs-libraries.test
b/test-suite/tests/rnrs-libraries.test
new file mode 100644
index 0000000..9f6f6c1
--- /dev/null
+++ b/test-suite/tests/rnrs-libraries.test
@@ -0,0 +1,171 @@
+;;;; rnrs-libraries.test --- test library and import forms -*- scheme -*-
+;;;; Copyright (C) 2010 Free Software Foundation, Inc.
+;;;;
+;;;; This library is free software; you can redistribute it and/or
+;;;; modify it under the terms of the GNU Lesser General Public
+;;;; License as published by the Free Software Foundation; either
+;;;; version 3 of the License, or (at your option) any later version.
+;;;;
+;;;; This library is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;;; Lesser General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU Lesser General Public
+;;;; License along with this library; if not, write to the Free Software
+;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
+
+(define-module (test-suite tests rnrs-libraries)
+ #:use-module (test-suite lib))
+
+;; First, check that Guile modules are r6rs modules.
+;;
+(with-test-prefix "ice-9 receive"
+ (define iface #f)
+
+ (pass-if "import"
+ (eval '(begin
+ (import (ice-9 receive))
+ #t)
+ (current-module)))
+
+ (pass-if "resolve-interface"
+ (module? (resolve-interface '(ice-9 receive))))
+
+ (set! iface (resolve-interface '(ice-9 receive)))
+
+ (pass-if "resolve-r6rs-interface"
+ (eq? iface (resolve-r6rs-interface '(ice-9 receive))))
+
+ (pass-if "resolve-r6rs-interface (2)"
+ (eq? iface (resolve-r6rs-interface '(library (ice-9 receive)))))
+
+ (pass-if "module uses"
+ (and (memq iface (module-uses (current-module))) #t))
+
+ (pass-if "interface contents"
+ (equal? '(receive)
+ (hash-map->list (lambda (sym var) sym) (module-obarray iface))))
+
+ (pass-if "interface uses"
+ (null? (module-uses iface)))
+
+ (pass-if "version"
+ (or (not (module-version iface))
+ (null? (module-version iface))))
+
+ (pass-if "calling receive from current env"
+ (equal? (eval '(receive (a b) (values 10 32)
+ (+ a b))
+ (current-module))
+ 42)))
+
+
+;; And check that r6rs modules are guile modules.
+;;
+(with-test-prefix "rnrs-test-a"
+ (define iface #f)
+
+ (pass-if "no double"
+ (not (module-local-variable (current-module) 'double)))
+
+ (pass-if "import"
+ (eval '(begin
+ (import (test-suite tests rnrs-test-a))
+ #t)
+ (current-module)))
+
+ (pass-if "still no double"
+ (not (module-local-variable (current-module) 'double)))
+
+ (pass-if "resolve-interface"
+ (module? (resolve-interface '(test-suite tests rnrs-test-a))))
+
+ (set! iface (resolve-interface '(test-suite tests rnrs-test-a)))
+
+ (pass-if "resolve-interface (2)"
+ (eq? iface (resolve-interface '(test-suite tests rnrs-test-a))))
+
+ (pass-if "resolve-r6rs-interface"
+ (eq? iface (resolve-r6rs-interface '(test-suite tests rnrs-test-a))))
+
+ (pass-if "resolve-r6rs-interface (2)"
+ (eq? iface (resolve-r6rs-interface '(library (test-suite tests
rnrs-test-a)))))
+
+ (pass-if "module uses"
+ (and (memq iface (module-uses (current-module))) #t))
+
+ (pass-if "interface contents"
+ (equal? '(double)
+ (hash-map->list (lambda (sym var) sym) (module-obarray iface))))
+
+ (pass-if "interface uses"
+ (null? (module-uses iface)))
+
+ (pass-if "version"
+ (or (not (module-version iface))
+ (null? (module-version iface))))
+
+ (pass-if "calling double"
+ (equal? ((module-ref iface 'double) 10)
+ 20))
+
+ (pass-if "calling double from current env"
+ (equal? (eval '(double 20) (current-module))
+ 40)))
+
+
+;; Now import features.
+;;
+(with-test-prefix "import features"
+ (define iface #f)
+
+ (with-test-prefix "only"
+ (pass-if "contents"
+ (equal? '(+)
+ (hash-map->list
+ (lambda (sym var) sym)
+ (module-obarray (resolve-r6rs-interface '(only (guile) +)))))))
+
+ (with-test-prefix "except"
+ (let ((bindings (hash-map->list
+ (lambda (sym var) sym)
+ (module-obarray
+ (resolve-r6rs-interface '(except (guile) +))))))
+ (pass-if "contains"
+ (equal? (length bindings)
+ (1- (hash-fold
+ (lambda (sym var n) (1+ n))
+ 0
+ (module-obarray (resolve-interface '(guile)))))))
+ (pass-if "does not contain"
+ (not (memq '+ bindings)))))
+
+ (with-test-prefix "prefix"
+ (let ((iface (resolve-r6rs-interface '(prefix (ice-9 q) q:))))
+ (pass-if "contains"
+ ((module-ref iface 'q:q?) ((module-ref iface 'q:make-q))))
+ (pass-if "does not contain"
+ (not (module-local-variable iface 'make-q)))))
+
+ (with-test-prefix "rename"
+ (let ((iface (resolve-r6rs-interface
+ '(rename (only (guile) cons car cdr)
+ (cons snoc)
+ (car rac)
+ (cdr rdc)))))
+ (pass-if "contents"
+ (equal? '("rac" "rdc" "snoc")
+ (sort
+ (hash-map->list
+ (lambda (sym var) (symbol->string sym))
+ (module-obarray iface))
+ string<)))
+ (pass-if "contains"
+ (equal? 3 ((module-ref iface 'rac)
+ ((module-ref iface 'snoc) 3 4))))))
+
+ (with-test-prefix "srfi"
+ (pass-if "renaming works"
+ (eq? (resolve-interface '(srfi srfi-1))
+ (resolve-r6rs-interface '(srfi :1))))))
diff --git a/module/srfi/srfi-8.scm b/test-suite/tests/rnrs-test-a.scm
similarity index 67%
copy from module/srfi/srfi-8.scm
copy to test-suite/tests/rnrs-test-a.scm
index ced1238..7b46fd6 100644
--- a/module/srfi/srfi-8.scm
+++ b/test-suite/tests/rnrs-test-a.scm
@@ -1,6 +1,6 @@
-;;; srfi-8.scm --- receive
+;;; test of defining rnrs libraries
-;; Copyright (C) 2000, 2001, 2002, 2006 Free Software Foundation, Inc.
+;; Copyright (C) 2010 Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@@ -15,17 +15,11 @@
;; You should have received a copy of the GNU Lesser General Public
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
-;;; Commentary:
-
-;; This module is fully documented in the Guile Reference Manual.
-
-;;; Code:
-
-(define-module (srfi srfi-8)
- :use-module (ice-9 receive)
- :re-export-syntax (receive))
-
-(cond-expand-provide (current-module) '(srfi-8))
-
-;;; srfi-8.scm ends here
+(library (test-suite tests rnrs-test-a)
+ (export double)
+ (import (guile))
+
+ (define (double x)
+ (* x 2)))
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |