|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-84-gfff39e1 |
| Date: | Thu, 22 Dec 2011 01:16:04 +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=fff39e1aa5df70a65e78a3d49d6d841f58bafde7
The branch, stable-2.0 has been updated
via fff39e1aa5df70a65e78a3d49d6d841f58bafde7 (commit)
via dc65d1cf5b59daafdff23d48a48da7f13982efc9 (commit)
from a2c66014cf4b8799812e45eedbb9b1a2c61236b0 (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 fff39e1aa5df70a65e78a3d49d6d841f58bafde7
Author: Andy Wingo <address@hidden>
Date: Wed Dec 21 20:15:57 2011 -0500
peval minor tweak
* module/language/tree-il/peval.scm (peval): Record residual values in
both value and values contexts. No test cases, it just seemed like a
good idea.
commit dc65d1cf5b59daafdff23d48a48da7f13982efc9
Author: Andy Wingo <address@hidden>
Date: Wed Dec 21 20:10:42 2011 -0500
document invalidity of (begin) as expression; add back-compat shim
* doc/ref/api-control.texi (begin): Update to distinguish between
splicing begin and sequencing begin.
* module/ice-9/psyntax.scm (expand-expr): Add a back-compatibility shim
for `(begin)'.
* module/ice-9/psyntax-pp.scm: Regenerate.
* test-suite/tests/syntax.test: Update to run illegal (begin) test only
if we are not including deprecated features.
-----------------------------------------------------------------------
Summary of changes:
doc/ref/api-control.texi | 77 +-
module/ice-9/psyntax-pp.scm |14217 +++++++++++++++++++------------------
module/ice-9/psyntax.scm | 7 +-
module/language/tree-il/peval.scm | 2 +-
test-suite/tests/syntax.test | 7 +-
5 files changed, 7259 insertions(+), 7051 deletions(-)
diff --git a/doc/ref/api-control.texi b/doc/ref/api-control.texi
index ad36806..957b9a7 100644
--- a/doc/ref/api-control.texi
+++ b/doc/ref/api-control.texi
@@ -11,7 +11,7 @@ See @ref{Control Flow} for a discussion of how the more
general control
flow of Scheme affects C code.
@menu
-* begin:: Evaluating a sequence of expressions.
+* begin:: Sequencing and splicing.
* if cond case:: Simple conditional evaluation.
* and or:: Conditional evaluation of a sequence.
* while do:: Iteration mechanisms.
@@ -26,38 +26,83 @@ flow of Scheme affects C code.
@end menu
@node begin
address@hidden Evaluating a Sequence of Expressions
address@hidden Sequencing and Splicing
@cindex begin
@cindex sequencing
@cindex expression sequencing
-The @code{begin} syntax is used for grouping several expressions
-together so that they are treated as if they were one expression.
-This is particularly important when syntactic expressions are used
-which only allow one expression, but the programmer wants to use more
-than one expression in that place. As an example, consider the
-conditional expression below:
+As an expression, the @code{begin} syntax is used to evaluate a sequence
+of sub-expressions in order. Consider the conditional expression below:
@lisp
(if (> x 0)
(begin (display "greater") (newline)))
@end lisp
-If the two calls to @code{display} and @code{newline} were not embedded
-in a @code{begin}-statement, the call to @code{newline} would get
-misinterpreted as the else-branch of the @code{if}-expression.
+If the test is true, we want to display ``greater'' to the current
+output port, then display a newline. We use @code{begin} to form a
+compound expression out of this sequence of sub-expressions.
@deffn syntax begin expr1 expr2 @dots{}
-The expression(s) are evaluated in left-to-right order and the value
-of the last expression is returned as the value of the
+The expression(s) are evaluated in left-to-right order and the value of
+the last expression is returned as the value of the
@code{begin}-expression. This expression type is used when the
expressions before the last one are evaluated for their side effects.
-
-Guile also allows the expression @code{(begin)}, a @code{begin} with no
-sub-expressions. Such an expression returns the `unspecified' value.
@end deffn
address@hidden splicing
address@hidden definition splicing
+
+The @code{begin} syntax has another role in definition context
+(@pxref{Internal Definitions}). A @code{begin} form in a definition
+context @dfn{splices} its subforms into its place. For example,
+consider the following procedure:
+
address@hidden
+(define (make-seal)
+ (define-sealant seal open)
+ (values seal open))
address@hidden lisp
+
+Let us assume the existence of a @code{define-sealant} macro that
+expands out to some definitions wrapped in a @code{begin}, like so:
+
address@hidden
+(define (make-seal)
+ (begin
+ (define seal-tag
+ (list 'seal))
+ (define (seal x)
+ (cons seal-tag x))
+ (define (sealed? x)
+ (and (pair? x) (eq? (car x) seal-tag)))
+ (define (open x)
+ (if (sealed? x)
+ (cdr x)
+ (error "Expected a sealed value:" x))))
+ (values seal open))
address@hidden lisp
+
+Here, because the @code{begin} is in definition context, its subforms
+are @dfn{spliced} into the place of the @code{begin}. This allows the
+definitions created by the macro to be visible to the following
+expression, the @code{values} form.
+
+It is a fine point, but splicing and sequencing are different. It can
+make sense to splice zero forms, because it can make sense to have zero
+internal definitions before the expressions in a procedure or lexical
+binding form. However it does not make sense to have a sequence of zero
+expressions, because in that case it would not be clear what the value
+of the sequence would be, because in a sequence of zero expressions,
+there can be no last value. Sequencing zero expressions is an error.
+
+It would be more elegant in some ways to eliminate splicing from the
+Scheme language, and without macros (@pxref{Macros}), that would be a
+good idea. But it is useful to be able to write macros that expand out
+to multiple definitions, as in @code{define-sealant} above, so Scheme
+abuses the @code{begin} form for these two tasks.
+
@node if cond case
@subsection Simple Conditional Evaluation
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 644ebf5..f7e315d 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1211 +2,1231 @@
(if #f #f)
(letrec*
- ((#{top-level-eval-hook 4261}#
- (lambda (#{x 28515}# #{mod 28516}#)
- (primitive-eval #{x 28515}#)))
- (#{maybe-name-value! 4266}#
- (lambda (#{name 16653}# #{val 16654}#)
- (if (if (struct? #{val 16654}#)
- (eq? (struct-vtable #{val 16654}#)
+ ((#{top-level-eval-hook 4262}#
+ (lambda (#{x 27369}# #{mod 27370}#)
+ (primitive-eval #{x 27369}#)))
+ (#{maybe-name-value! 4267}#
+ (lambda (#{name 16133}# #{val 16134}#)
+ (if (if (struct? #{val 16134}#)
+ (eq? (struct-vtable #{val 16134}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16661}# (struct-ref #{val 16654}# 1)))
- (if (not (assq 'name #{meta 16661}#))
- (let ((#{v 16666}#
- (cons (cons 'name #{name 16653}#) #{meta 16661}#)))
- (struct-set! #{val 16654}# 1 #{v 16666}#)))))))
- (#{build-application 4268}#
- (lambda (#{source 16378}#
- #{fun-exp 16379}#
- #{arg-exps 16380}#)
+ (let ((#{meta 16141}# (struct-ref #{val 16134}# 1)))
+ (if (not (assq 'name #{meta 16141}#))
+ (let ((#{v 16146}#
+ (cons (cons 'name #{name 16133}#) #{meta 16141}#)))
+ (struct-set! #{val 16134}# 1 #{v 16146}#)))))))
+ (#{build-application 4269}#
+ (lambda (#{source 15858}#
+ #{fun-exp 15859}#
+ #{arg-exps 15860}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 16378}#
- #{fun-exp 16379}#
- #{arg-exps 16380}#)))
- (#{build-conditional 4269}#
- (lambda (#{source 16386}#
- #{test-exp 16387}#
- #{then-exp 16388}#
- #{else-exp 16389}#)
+ #{source 15858}#
+ #{fun-exp 15859}#
+ #{arg-exps 15860}#)))
+ (#{build-conditional 4270}#
+ (lambda (#{source 15866}#
+ #{test-exp 15867}#
+ #{then-exp 15868}#
+ #{else-exp 15869}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 16386}#
- #{test-exp 16387}#
- #{then-exp 16388}#
- #{else-exp 16389}#)))
- (#{build-dynlet 4270}#
- (lambda (#{source 16396}#
- #{fluids 16397}#
- #{vals 16398}#
- #{body 16399}#)
+ #{source 15866}#
+ #{test-exp 15867}#
+ #{then-exp 15868}#
+ #{else-exp 15869}#)))
+ (#{build-dynlet 4271}#
+ (lambda (#{source 15876}#
+ #{fluids 15877}#
+ #{vals 15878}#
+ #{body 15879}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source 16396}#
- #{fluids 16397}#
- #{vals 16398}#
- #{body 16399}#)))
- (#{build-lexical-reference 4271}#
- (lambda (#{type 28517}#
- #{source 28518}#
- #{name 28519}#
- #{var 28520}#)
+ #{source 15876}#
+ #{fluids 15877}#
+ #{vals 15878}#
+ #{body 15879}#)))
+ (#{build-lexical-reference 4272}#
+ (lambda (#{type 27371}#
+ #{source 27372}#
+ #{name 27373}#
+ #{var 27374}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 28518}#
- #{name 28519}#
- #{var 28520}#)))
- (#{build-lexical-assignment 4272}#
- (lambda (#{source 16406}#
- #{name 16407}#
- #{var 16408}#
- #{exp 16409}#)
+ #{source 27372}#
+ #{name 27373}#
+ #{var 27374}#)))
+ (#{build-lexical-assignment 4273}#
+ (lambda (#{source 15886}#
+ #{name 15887}#
+ #{var 15888}#
+ #{exp 15889}#)
(begin
- (if (if (struct? #{exp 16409}#)
- (eq? (struct-vtable #{exp 16409}#)
+ (if (if (struct? #{exp 15889}#)
+ (eq? (struct-vtable #{exp 15889}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16425}# (struct-ref #{exp 16409}# 1)))
- (if (not (assq 'name #{meta 16425}#))
- (let ((#{v 16432}#
- (cons (cons 'name #{name 16407}#) #{meta 16425}#)))
- (struct-set! #{exp 16409}# 1 #{v 16432}#)))))
+ (let ((#{meta 15905}# (struct-ref #{exp 15889}# 1)))
+ (if (not (assq 'name #{meta 15905}#))
+ (let ((#{v 15912}#
+ (cons (cons 'name #{name 15887}#) #{meta 15905}#)))
+ (struct-set! #{exp 15889}# 1 #{v 15912}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 16406}#
- #{name 16407}#
- #{var 16408}#
- #{exp 16409}#))))
- (#{analyze-variable 4273}#
- (lambda (#{mod 28526}#
- #{var 28527}#
- #{modref-cont 28528}#
- #{bare-cont 28529}#)
- (if (not #{mod 28526}#)
- (#{bare-cont 28529}# #{var 28527}#)
- (let ((#{kind 28530}# (car #{mod 28526}#))
- (#{mod 28531}# (cdr #{mod 28526}#)))
- (if (eqv? #{kind 28530}# 'public)
- (#{modref-cont 28528}#
- #{mod 28531}#
- #{var 28527}#
+ #{source 15886}#
+ #{name 15887}#
+ #{var 15888}#
+ #{exp 15889}#))))
+ (#{analyze-variable 4274}#
+ (lambda (#{mod 27380}#
+ #{var 27381}#
+ #{modref-cont 27382}#
+ #{bare-cont 27383}#)
+ (if (not #{mod 27380}#)
+ (#{bare-cont 27383}# #{var 27381}#)
+ (let ((#{kind 27384}# (car #{mod 27380}#))
+ (#{mod 27385}# (cdr #{mod 27380}#)))
+ (if (eqv? #{kind 27384}# 'public)
+ (#{modref-cont 27382}#
+ #{mod 27385}#
+ #{var 27381}#
#t)
- (if (eqv? #{kind 28530}# 'private)
+ (if (eqv? #{kind 27384}# 'private)
(if (not (equal?
- #{mod 28531}#
+ #{mod 27385}#
(module-name (current-module))))
- (#{modref-cont 28528}#
- #{mod 28531}#
- #{var 28527}#
+ (#{modref-cont 27382}#
+ #{mod 27385}#
+ #{var 27381}#
#f)
- (#{bare-cont 28529}# #{var 28527}#))
- (if (eqv? #{kind 28530}# 'bare)
- (#{bare-cont 28529}# #{var 28527}#)
- (if (eqv? #{kind 28530}# 'hygiene)
+ (#{bare-cont 27383}# #{var 27381}#))
+ (if (eqv? #{kind 27384}# 'bare)
+ (#{bare-cont 27383}# #{var 27381}#)
+ (if (eqv? #{kind 27384}# 'hygiene)
(if (if (not (equal?
- #{mod 28531}#
+ #{mod 27385}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 28531}#)
- #{var 28527}#)
+ (resolve-module #{mod 27385}#)
+ #{var 27381}#)
#f)
- (#{modref-cont 28528}#
- #{mod 28531}#
- #{var 28527}#
+ (#{modref-cont 27382}#
+ #{mod 27385}#
+ #{var 27381}#
#f)
- (#{bare-cont 28529}# #{var 28527}#))
+ (#{bare-cont 27383}# #{var 27381}#))
(syntax-violation
#f
"bad module kind"
- #{var 28527}#
- #{mod 28531}#)))))))))
- (#{build-global-reference 4274}#
- (lambda (#{source 28546}# #{var 28547}# #{mod 28548}#)
- (#{analyze-variable 4273}#
- #{mod 28548}#
- #{var 28547}#
- (lambda (#{mod 28551}# #{var 28552}# #{public? 28553}#)
+ #{var 27381}#
+ #{mod 27385}#)))))))))
+ (#{build-global-reference 4275}#
+ (lambda (#{source 27400}# #{var 27401}# #{mod 27402}#)
+ (#{analyze-variable 4274}#
+ #{mod 27402}#
+ #{var 27401}#
+ (lambda (#{mod 27405}# #{var 27406}# #{public? 27407}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 28546}#
- #{mod 28551}#
- #{var 28552}#
- #{public? 28553}#))
- (lambda (#{var 28561}#)
+ #{source 27400}#
+ #{mod 27405}#
+ #{var 27406}#
+ #{public? 27407}#))
+ (lambda (#{var 27415}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 28546}#
- #{var 28561}#)))))
- (#{build-global-assignment 4275}#
- (lambda (#{source 16441}#
- #{var 16442}#
- #{exp 16443}#
- #{mod 16444}#)
+ #{source 27400}#
+ #{var 27415}#)))))
+ (#{build-global-assignment 4276}#
+ (lambda (#{source 15921}#
+ #{var 15922}#
+ #{exp 15923}#
+ #{mod 15924}#)
(begin
- (if (if (struct? #{exp 16443}#)
- (eq? (struct-vtable #{exp 16443}#)
+ (if (if (struct? #{exp 15923}#)
+ (eq? (struct-vtable #{exp 15923}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16460}# (struct-ref #{exp 16443}# 1)))
- (if (not (assq 'name #{meta 16460}#))
- (let ((#{v 16467}#
- (cons (cons 'name #{var 16442}#) #{meta 16460}#)))
- (struct-set! #{exp 16443}# 1 #{v 16467}#)))))
- (#{analyze-variable 4273}#
- #{mod 16444}#
- #{var 16442}#
- (lambda (#{mod 16472}# #{var 16473}# #{public? 16474}#)
+ (let ((#{meta 15940}# (struct-ref #{exp 15923}# 1)))
+ (if (not (assq 'name #{meta 15940}#))
+ (let ((#{v 15947}#
+ (cons (cons 'name #{var 15922}#) #{meta 15940}#)))
+ (struct-set! #{exp 15923}# 1 #{v 15947}#)))))
+ (#{analyze-variable 4274}#
+ #{mod 15924}#
+ #{var 15922}#
+ (lambda (#{mod 15952}# #{var 15953}# #{public? 15954}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 16441}#
- #{mod 16472}#
- #{var 16473}#
- #{public? 16474}#
- #{exp 16443}#))
- (lambda (#{var 16482}#)
+ #{source 15921}#
+ #{mod 15952}#
+ #{var 15953}#
+ #{public? 15954}#
+ #{exp 15923}#))
+ (lambda (#{var 15962}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 16441}#
- #{var 16482}#
- #{exp 16443}#))))))
- (#{build-global-definition 4276}#
- (lambda (#{source 28567}# #{var 28568}# #{exp 28569}#)
+ #{source 15921}#
+ #{var 15962}#
+ #{exp 15923}#))))))
+ (#{build-global-definition 4277}#
+ (lambda (#{source 27421}# #{var 27422}# #{exp 27423}#)
(begin
- (if (if (struct? #{exp 28569}#)
- (eq? (struct-vtable #{exp 28569}#)
+ (if (if (struct? #{exp 27423}#)
+ (eq? (struct-vtable #{exp 27423}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 28585}# (struct-ref #{exp 28569}# 1)))
- (if (not (assq 'name #{meta 28585}#))
- (let ((#{v 28592}#
- (cons (cons 'name #{var 28568}#) #{meta 28585}#)))
- (struct-set! #{exp 28569}# 1 #{v 28592}#)))))
+ (let ((#{meta 27439}# (struct-ref #{exp 27423}# 1)))
+ (if (not (assq 'name #{meta 27439}#))
+ (let ((#{v 27446}#
+ (cons (cons 'name #{var 27422}#) #{meta 27439}#)))
+ (struct-set! #{exp 27423}# 1 #{v 27446}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 28567}#
- #{var 28568}#
- #{exp 28569}#))))
- (#{build-simple-lambda 4277}#
- (lambda (#{src 16488}#
- #{req 16489}#
- #{rest 16490}#
- #{vars 16491}#
- #{meta 16492}#
- #{exp 16493}#)
- (let ((#{body 16499}#
+ #{source 27421}#
+ #{var 27422}#
+ #{exp 27423}#))))
+ (#{build-simple-lambda 4278}#
+ (lambda (#{src 15968}#
+ #{req 15969}#
+ #{rest 15970}#
+ #{vars 15971}#
+ #{meta 15972}#
+ #{exp 15973}#)
+ (let ((#{body 15979}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 16488}#
- #{req 16489}#
+ #{src 15968}#
+ #{req 15969}#
#f
- #{rest 16490}#
+ #{rest 15970}#
#f
'()
- #{vars 16491}#
- #{exp 16493}#
+ #{vars 15971}#
+ #{exp 15973}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 16488}#
- #{meta 16492}#
- #{body 16499}#))))
- (#{build-sequence 4282}#
- (lambda (#{src 28600}# #{exps 28601}#)
- (if (null? (cdr #{exps 28601}#))
- (car #{exps 28601}#)
+ #{src 15968}#
+ #{meta 15972}#
+ #{body 15979}#))))
+ (#{build-sequence 4283}#
+ (lambda (#{src 27454}# #{exps 27455}#)
+ (if (null? (cdr #{exps 27455}#))
+ (car #{exps 27455}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 28600}#
- #{exps 28601}#))))
- (#{build-let 4283}#
- (lambda (#{src 16511}#
- #{ids 16512}#
- #{vars 16513}#
- #{val-exps 16514}#
- #{body-exp 16515}#)
+ #{src 27454}#
+ #{exps 27455}#))))
+ (#{build-let 4284}#
+ (lambda (#{src 15991}#
+ #{ids 15992}#
+ #{vars 15993}#
+ #{val-exps 15994}#
+ #{body-exp 15995}#)
(begin
(for-each
- #{maybe-name-value! 4266}#
- #{ids 16512}#
- #{val-exps 16514}#)
- (if (null? #{vars 16513}#)
- #{body-exp 16515}#
+ #{maybe-name-value! 4267}#
+ #{ids 15992}#
+ #{val-exps 15994}#)
+ (if (null? #{vars 15993}#)
+ #{body-exp 15995}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 16511}#
- #{ids 16512}#
- #{vars 16513}#
- #{val-exps 16514}#
- #{body-exp 16515}#)))))
- (#{build-named-let 4284}#
- (lambda (#{src 16539}#
- #{ids 16540}#
- #{vars 16541}#
- #{val-exps 16542}#
- #{body-exp 16543}#)
- (let ((#{f 16544}# (car #{vars 16541}#))
- (#{f-name 16545}# (car #{ids 16540}#))
- (#{vars 16546}# (cdr #{vars 16541}#))
- (#{ids 16547}# (cdr #{ids 16540}#)))
- (let ((#{proc 16548}#
- (let ((#{body 16568}#
+ #{src 15991}#
+ #{ids 15992}#
+ #{vars 15993}#
+ #{val-exps 15994}#
+ #{body-exp 15995}#)))))
+ (#{build-named-let 4285}#
+ (lambda (#{src 16019}#
+ #{ids 16020}#
+ #{vars 16021}#
+ #{val-exps 16022}#
+ #{body-exp 16023}#)
+ (let ((#{f 16024}# (car #{vars 16021}#))
+ (#{f-name 16025}# (car #{ids 16020}#))
+ (#{vars 16026}# (cdr #{vars 16021}#))
+ (#{ids 16027}# (cdr #{ids 16020}#)))
+ (let ((#{proc 16028}#
+ (let ((#{body 16048}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 16539}#
- #{ids 16547}#
+ #{src 16019}#
+ #{ids 16027}#
#f
#f
#f
'()
- #{vars 16546}#
- #{body-exp 16543}#
+ #{vars 16026}#
+ #{body-exp 16023}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 16539}#
+ #{src 16019}#
'()
- #{body 16568}#))))
+ #{body 16048}#))))
(begin
- (if (if (struct? #{proc 16548}#)
- (eq? (struct-vtable #{proc 16548}#)
+ (if (if (struct? #{proc 16028}#)
+ (eq? (struct-vtable #{proc 16028}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16592}# (struct-ref #{proc 16548}# 1)))
- (if (not (assq 'name #{meta 16592}#))
- (let ((#{v 16599}#
- (cons (cons 'name #{f-name 16545}#)
- #{meta 16592}#)))
- (struct-set! #{proc 16548}# 1 #{v 16599}#)))))
+ (let ((#{meta 16072}# (struct-ref #{proc 16028}# 1)))
+ (if (not (assq 'name #{meta 16072}#))
+ (let ((#{v 16079}#
+ (cons (cons 'name #{f-name 16025}#)
+ #{meta 16072}#)))
+ (struct-set! #{proc 16028}# 1 #{v 16079}#)))))
(for-each
- #{maybe-name-value! 4266}#
- #{ids 16547}#
- #{val-exps 16542}#)
- (let ((#{names 16623}# (list #{f-name 16545}#))
- (#{gensyms 16624}# (list #{f 16544}#))
- (#{vals 16625}# (list #{proc 16548}#))
- (#{body 16626}#
- (let ((#{fun-exp 16630}#
+ #{maybe-name-value! 4267}#
+ #{ids 16027}#
+ #{val-exps 16022}#)
+ (let ((#{names 16103}# (list #{f-name 16025}#))
+ (#{gensyms 16104}# (list #{f 16024}#))
+ (#{vals 16105}# (list #{proc 16028}#))
+ (#{body 16106}#
+ (let ((#{fun-exp 16110}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 16539}#
- #{f-name 16545}#
- #{f 16544}#)))
+ #{src 16019}#
+ #{f-name 16025}#
+ #{f 16024}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 16539}#
- #{fun-exp 16630}#
- #{val-exps 16542}#))))
+ #{src 16019}#
+ #{fun-exp 16110}#
+ #{val-exps 16022}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 16539}#
+ #{src 16019}#
#f
- #{names 16623}#
- #{gensyms 16624}#
- #{vals 16625}#
- #{body 16626}#)))))))
- (#{build-letrec 4285}#
- (lambda (#{src 16646}#
- #{in-order? 16647}#
- #{ids 16648}#
- #{vars 16649}#
- #{val-exps 16650}#
- #{body-exp 16651}#)
- (if (null? #{vars 16649}#)
- #{body-exp 16651}#
+ #{names 16103}#
+ #{gensyms 16104}#
+ #{vals 16105}#
+ #{body 16106}#)))))))
+ (#{build-letrec 4286}#
+ (lambda (#{src 16126}#
+ #{in-order? 16127}#
+ #{ids 16128}#
+ #{vars 16129}#
+ #{val-exps 16130}#
+ #{body-exp 16131}#)
+ (if (null? #{vars 16129}#)
+ #{body-exp 16131}#
(begin
(for-each
- #{maybe-name-value! 4266}#
- #{ids 16648}#
- #{val-exps 16650}#)
+ #{maybe-name-value! 4267}#
+ #{ids 16128}#
+ #{val-exps 16130}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 16646}#
- #{in-order? 16647}#
- #{ids 16648}#
- #{vars 16649}#
- #{val-exps 16650}#
- #{body-exp 16651}#)))))
- (#{source-annotation 4294}#
- (lambda (#{x 16677}#)
- (if (if (vector? #{x 16677}#)
- (if (= (vector-length #{x 16677}#) 4)
- (eq? (vector-ref #{x 16677}# 0) 'syntax-object)
+ #{src 16126}#
+ #{in-order? 16127}#
+ #{ids 16128}#
+ #{vars 16129}#
+ #{val-exps 16130}#
+ #{body-exp 16131}#)))))
+ (#{source-annotation 4295}#
+ (lambda (#{x 16157}#)
+ (if (if (vector? #{x 16157}#)
+ (if (= (vector-length #{x 16157}#) 4)
+ (eq? (vector-ref #{x 16157}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation 4294}#
- (vector-ref #{x 16677}# 1))
- (if (pair? #{x 16677}#)
- (let ((#{props 16692}# (source-properties #{x 16677}#)))
- (if (pair? #{props 16692}#) #{props 16692}# #f))
+ (#{source-annotation 4295}#
+ (vector-ref #{x 16157}# 1))
+ (if (pair? #{x 16157}#)
+ (let ((#{props 16172}# (source-properties #{x 16157}#)))
+ (if (pair? #{props 16172}#) #{props 16172}# #f))
#f))))
- (#{extend-env 4295}#
- (lambda (#{labels 16694}# #{bindings 16695}# #{r 16696}#)
- (if (null? #{labels 16694}#)
- #{r 16696}#
- (#{extend-env 4295}#
- (cdr #{labels 16694}#)
- (cdr #{bindings 16695}#)
- (cons (cons (car #{labels 16694}#)
- (car #{bindings 16695}#))
- #{r 16696}#)))))
- (#{extend-var-env 4296}#
- (lambda (#{labels 16697}# #{vars 16698}# #{r 16699}#)
- (if (null? #{labels 16697}#)
- #{r 16699}#
- (#{extend-var-env 4296}#
- (cdr #{labels 16697}#)
- (cdr #{vars 16698}#)
- (cons (cons (car #{labels 16697}#)
- (cons 'lexical (car #{vars 16698}#)))
- #{r 16699}#)))))
- (#{macros-only-env 4297}#
- (lambda (#{r 16700}#)
- (if (null? #{r 16700}#)
+ (#{extend-env 4296}#
+ (lambda (#{labels 16174}# #{bindings 16175}# #{r 16176}#)
+ (if (null? #{labels 16174}#)
+ #{r 16176}#
+ (#{extend-env 4296}#
+ (cdr #{labels 16174}#)
+ (cdr #{bindings 16175}#)
+ (cons (cons (car #{labels 16174}#)
+ (car #{bindings 16175}#))
+ #{r 16176}#)))))
+ (#{extend-var-env 4297}#
+ (lambda (#{labels 16177}# #{vars 16178}# #{r 16179}#)
+ (if (null? #{labels 16177}#)
+ #{r 16179}#
+ (#{extend-var-env 4297}#
+ (cdr #{labels 16177}#)
+ (cdr #{vars 16178}#)
+ (cons (cons (car #{labels 16177}#)
+ (cons 'lexical (car #{vars 16178}#)))
+ #{r 16179}#)))))
+ (#{macros-only-env 4298}#
+ (lambda (#{r 16180}#)
+ (if (null? #{r 16180}#)
'()
- (let ((#{a 16701}# (car #{r 16700}#)))
- (if (eq? (car (cdr #{a 16701}#)) 'macro)
- (cons #{a 16701}#
- (#{macros-only-env 4297}# (cdr #{r 16700}#)))
- (#{macros-only-env 4297}# (cdr #{r 16700}#)))))))
- (#{global-extend 4299}#
- (lambda (#{type 16703}# #{sym 16704}# #{val 16705}#)
+ (let ((#{a 16181}# (car #{r 16180}#)))
+ (if (eq? (car (cdr #{a 16181}#)) 'macro)
+ (cons #{a 16181}#
+ (#{macros-only-env 4298}# (cdr #{r 16180}#)))
+ (#{macros-only-env 4298}# (cdr #{r 16180}#)))))))
+ (#{global-extend 4300}#
+ (lambda (#{type 16183}# #{sym 16184}# #{val 16185}#)
(module-define!
(current-module)
- #{sym 16704}#
+ #{sym 16184}#
(make-syntax-transformer
- #{sym 16704}#
- #{type 16703}#
- #{val 16705}#))))
- (#{id? 4301}#
- (lambda (#{x 10537}#)
- (if (symbol? #{x 10537}#)
+ #{sym 16184}#
+ #{type 16183}#
+ #{val 16185}#))))
+ (#{id? 4302}#
+ (lambda (#{x 10359}#)
+ (if (symbol? #{x 10359}#)
#t
- (if (if (vector? #{x 10537}#)
- (if (= (vector-length #{x 10537}#) 4)
- (eq? (vector-ref #{x 10537}# 0) 'syntax-object)
+ (if (if (vector? #{x 10359}#)
+ (if (= (vector-length #{x 10359}#) 4)
+ (eq? (vector-ref #{x 10359}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 10537}# 1))
+ (symbol? (vector-ref #{x 10359}# 1))
#f))))
- (#{gen-labels 4304}#
- (lambda (#{ls 16715}#)
- (if (null? #{ls 16715}#)
+ (#{gen-labels 4305}#
+ (lambda (#{ls 16195}#)
+ (if (null? #{ls 16195}#)
'()
(cons (symbol->string (gensym "i"))
- (#{gen-labels 4304}# (cdr #{ls 16715}#))))))
- (#{make-binding-wrap 4315}#
- (lambda (#{ids 16719}# #{labels 16720}# #{w 16721}#)
- (if (null? #{ids 16719}#)
- #{w 16721}#
- (cons (car #{w 16721}#)
- (cons (let ((#{labelvec 16722}#
- (list->vector #{labels 16720}#)))
- (let ((#{n 16723}# (vector-length #{labelvec 16722}#)))
- (let ((#{symnamevec 16724}# (make-vector #{n 16723}#))
- (#{marksvec 16725}# (make-vector #{n 16723}#)))
+ (#{gen-labels 4305}# (cdr #{ls 16195}#))))))
+ (#{make-binding-wrap 4316}#
+ (lambda (#{ids 16199}# #{labels 16200}# #{w 16201}#)
+ (if (null? #{ids 16199}#)
+ #{w 16201}#
+ (cons (car #{w 16201}#)
+ (cons (let ((#{labelvec 16202}#
+ (list->vector #{labels 16200}#)))
+ (let ((#{n 16203}# (vector-length #{labelvec 16202}#)))
+ (let ((#{symnamevec 16204}# (make-vector #{n 16203}#))
+ (#{marksvec 16205}# (make-vector #{n 16203}#)))
(begin
(letrec*
- ((#{f 16726}#
- (lambda (#{ids 16729}# #{i 16730}#)
- (if (not (null? #{ids 16729}#))
+ ((#{f 16206}#
+ (lambda (#{ids 16209}# #{i 16210}#)
+ (if (not (null? #{ids 16209}#))
(call-with-values
(lambda ()
- (let ((#{x 16733}#
- (car #{ids 16729}#)))
- (if (if (vector? #{x 16733}#)
+ (let ((#{x 16213}#
+ (car #{ids 16209}#)))
+ (if (if (vector? #{x 16213}#)
(if (= (vector-length
- #{x 16733}#)
+ #{x 16213}#)
4)
(eq? (vector-ref
- #{x 16733}#
+ #{x 16213}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 16733}# 1)
- (let ((#{m1 16749}#
- (car #{w 16721}#))
- (#{m2 16750}#
+ (vector-ref #{x 16213}# 1)
+ (let ((#{m1 16229}#
+ (car #{w 16201}#))
+ (#{m2 16230}#
(car (vector-ref
- #{x 16733}#
+ #{x 16213}#
2))))
- (if (null? #{m2 16750}#)
- #{m1 16749}#
+ (if (null? #{m2 16230}#)
+ #{m1 16229}#
(append
- #{m1 16749}#
- #{m2 16750}#))))
+ #{m1 16229}#
+ #{m2 16230}#))))
(values
- #{x 16733}#
- (car #{w 16721}#)))))
- (lambda (#{symname 16770}#
- #{marks 16771}#)
+ #{x 16213}#
+ (car #{w 16201}#)))))
+ (lambda (#{symname 16250}#
+ #{marks 16251}#)
(begin
(vector-set!
- #{symnamevec 16724}#
- #{i 16730}#
- #{symname 16770}#)
+ #{symnamevec 16204}#
+ #{i 16210}#
+ #{symname 16250}#)
(vector-set!
- #{marksvec 16725}#
- #{i 16730}#
- #{marks 16771}#)
- (#{f 16726}#
- (cdr #{ids 16729}#)
- (#{1+}# #{i 16730}#)))))))))
- (#{f 16726}# #{ids 16719}# 0))
+ #{marksvec 16205}#
+ #{i 16210}#
+ #{marks 16251}#)
+ (#{f 16206}#
+ (cdr #{ids 16209}#)
+ (#{1+}# #{i 16210}#)))))))))
+ (#{f 16206}# #{ids 16199}# 0))
(vector
'ribcage
- #{symnamevec 16724}#
- #{marksvec 16725}#
- #{labelvec 16722}#)))))
- (cdr #{w 16721}#))))))
- (#{join-wraps 4317}#
- (lambda (#{w1 16780}# #{w2 16781}#)
- (let ((#{m1 16782}# (car #{w1 16780}#))
- (#{s1 16783}# (cdr #{w1 16780}#)))
- (if (null? #{m1 16782}#)
- (if (null? #{s1 16783}#)
- #{w2 16781}#
- (cons (car #{w2 16781}#)
- (let ((#{m2 16790}# (cdr #{w2 16781}#)))
- (if (null? #{m2 16790}#)
- #{s1 16783}#
- (append #{s1 16783}# #{m2 16790}#)))))
- (cons (let ((#{m2 16799}# (car #{w2 16781}#)))
- (if (null? #{m2 16799}#)
- #{m1 16782}#
- (append #{m1 16782}# #{m2 16799}#)))
- (let ((#{m2 16808}# (cdr #{w2 16781}#)))
- (if (null? #{m2 16808}#)
- #{s1 16783}#
- (append #{s1 16783}# #{m2 16808}#))))))))
- (#{same-marks? 4319}#
- (lambda (#{x 16813}# #{y 16814}#)
- (if (eq? #{x 16813}# #{y 16814}#)
- (eq? #{x 16813}# #{y 16814}#)
- (if (not (null? #{x 16813}#))
- (if (not (null? #{y 16814}#))
- (if (eq? (car #{x 16813}#) (car #{y 16814}#))
- (#{same-marks? 4319}#
- (cdr #{x 16813}#)
- (cdr #{y 16814}#))
+ #{symnamevec 16204}#
+ #{marksvec 16205}#
+ #{labelvec 16202}#)))))
+ (cdr #{w 16201}#))))))
+ (#{join-wraps 4318}#
+ (lambda (#{w1 16260}# #{w2 16261}#)
+ (let ((#{m1 16262}# (car #{w1 16260}#))
+ (#{s1 16263}# (cdr #{w1 16260}#)))
+ (if (null? #{m1 16262}#)
+ (if (null? #{s1 16263}#)
+ #{w2 16261}#
+ (cons (car #{w2 16261}#)
+ (let ((#{m2 16270}# (cdr #{w2 16261}#)))
+ (if (null? #{m2 16270}#)
+ #{s1 16263}#
+ (append #{s1 16263}# #{m2 16270}#)))))
+ (cons (let ((#{m2 16279}# (car #{w2 16261}#)))
+ (if (null? #{m2 16279}#)
+ #{m1 16262}#
+ (append #{m1 16262}# #{m2 16279}#)))
+ (let ((#{m2 16288}# (cdr #{w2 16261}#)))
+ (if (null? #{m2 16288}#)
+ #{s1 16263}#
+ (append #{s1 16263}# #{m2 16288}#))))))))
+ (#{same-marks? 4320}#
+ (lambda (#{x 16293}# #{y 16294}#)
+ (if (eq? #{x 16293}# #{y 16294}#)
+ (eq? #{x 16293}# #{y 16294}#)
+ (if (not (null? #{x 16293}#))
+ (if (not (null? #{y 16294}#))
+ (if (eq? (car #{x 16293}#) (car #{y 16294}#))
+ (#{same-marks? 4320}#
+ (cdr #{x 16293}#)
+ (cdr #{y 16294}#))
#f)
#f)
#f))))
- (#{id-var-name 4320}#
- (lambda (#{id 16822}# #{w 16823}#)
+ (#{id-var-name 4321}#
+ (lambda (#{id 16302}# #{w 16303}#)
(letrec*
- ((#{search 16824}#
- (lambda (#{sym 16885}# #{subst 16886}# #{marks 16887}#)
- (if (null? #{subst 16886}#)
- (values #f #{marks 16887}#)
- (let ((#{fst 16888}# (car #{subst 16886}#)))
- (if (eq? #{fst 16888}# 'shift)
- (#{search 16824}#
- #{sym 16885}#
- (cdr #{subst 16886}#)
- (cdr #{marks 16887}#))
- (let ((#{symnames 16890}# (vector-ref #{fst 16888}# 1)))
- (if (vector? #{symnames 16890}#)
- (let ((#{n 16902}# (vector-length #{symnames 16890}#)))
+ ((#{search 16304}#
+ (lambda (#{sym 16365}# #{subst 16366}# #{marks 16367}#)
+ (if (null? #{subst 16366}#)
+ (values #f #{marks 16367}#)
+ (let ((#{fst 16368}# (car #{subst 16366}#)))
+ (if (eq? #{fst 16368}# 'shift)
+ (#{search 16304}#
+ #{sym 16365}#
+ (cdr #{subst 16366}#)
+ (cdr #{marks 16367}#))
+ (let ((#{symnames 16370}# (vector-ref #{fst 16368}# 1)))
+ (if (vector? #{symnames 16370}#)
+ (let ((#{n 16382}# (vector-length #{symnames 16370}#)))
(letrec*
- ((#{f 16903}#
- (lambda (#{i 16905}#)
- (if (= #{i 16905}# #{n 16902}#)
- (#{search 16824}#
- #{sym 16885}#
- (cdr #{subst 16886}#)
- #{marks 16887}#)
+ ((#{f 16383}#
+ (lambda (#{i 16385}#)
+ (if (= #{i 16385}# #{n 16382}#)
+ (#{search 16304}#
+ #{sym 16365}#
+ (cdr #{subst 16366}#)
+ #{marks 16367}#)
(if (if (eq? (vector-ref
- #{symnames 16890}#
- #{i 16905}#)
- #{sym 16885}#)
- (#{same-marks? 4319}#
- #{marks 16887}#
+ #{symnames 16370}#
+ #{i 16385}#)
+ #{sym 16365}#)
+ (#{same-marks? 4320}#
+ #{marks 16367}#
(vector-ref
- (vector-ref #{fst 16888}# 2)
- #{i 16905}#))
+ (vector-ref #{fst 16368}# 2)
+ #{i 16385}#))
#f)
(values
(vector-ref
- (vector-ref #{fst 16888}# 3)
- #{i 16905}#)
- #{marks 16887}#)
- (#{f 16903}# (#{1+}# #{i 16905}#)))))))
- (#{f 16903}# 0)))
+ (vector-ref #{fst 16368}# 3)
+ #{i 16385}#)
+ #{marks 16367}#)
+ (#{f 16383}# (#{1+}# #{i 16385}#)))))))
+ (#{f 16383}# 0)))
(letrec*
- ((#{f 16938}#
- (lambda (#{symnames 16940}# #{i 16941}#)
- (if (null? #{symnames 16940}#)
- (#{search 16824}#
- #{sym 16885}#
- (cdr #{subst 16886}#)
- #{marks 16887}#)
- (if (if (eq? (car #{symnames 16940}#)
- #{sym 16885}#)
- (#{same-marks? 4319}#
- #{marks 16887}#
+ ((#{f 16418}#
+ (lambda (#{symnames 16420}# #{i 16421}#)
+ (if (null? #{symnames 16420}#)
+ (#{search 16304}#
+ #{sym 16365}#
+ (cdr #{subst 16366}#)
+ #{marks 16367}#)
+ (if (if (eq? (car #{symnames 16420}#)
+ #{sym 16365}#)
+ (#{same-marks? 4320}#
+ #{marks 16367}#
(list-ref
- (vector-ref #{fst 16888}# 2)
- #{i 16941}#))
+ (vector-ref #{fst 16368}# 2)
+ #{i 16421}#))
#f)
(values
(list-ref
- (vector-ref #{fst 16888}# 3)
- #{i 16941}#)
- #{marks 16887}#)
- (#{f 16938}#
- (cdr #{symnames 16940}#)
- (#{1+}# #{i 16941}#)))))))
- (#{f 16938}# #{symnames 16890}# 0))))))))))
- (if (symbol? #{id 16822}#)
- (let ((#{t 16827}#
- (#{search 16824}#
- #{id 16822}#
- (cdr #{w 16823}#)
- (car #{w 16823}#))))
- (if #{t 16827}# #{t 16827}# #{id 16822}#))
- (if (if (vector? #{id 16822}#)
- (if (= (vector-length #{id 16822}#) 4)
- (eq? (vector-ref #{id 16822}# 0) 'syntax-object)
+ (vector-ref #{fst 16368}# 3)
+ #{i 16421}#)
+ #{marks 16367}#)
+ (#{f 16418}#
+ (cdr #{symnames 16420}#)
+ (#{1+}# #{i 16421}#)))))))
+ (#{f 16418}# #{symnames 16370}# 0))))))))))
+ (if (symbol? #{id 16302}#)
+ (let ((#{t 16307}#
+ (#{search 16304}#
+ #{id 16302}#
+ (cdr #{w 16303}#)
+ (car #{w 16303}#))))
+ (if #{t 16307}# #{t 16307}# #{id 16302}#))
+ (if (if (vector? #{id 16302}#)
+ (if (= (vector-length #{id 16302}#) 4)
+ (eq? (vector-ref #{id 16302}# 0) 'syntax-object)
#f)
#f)
- (let ((#{id 16842}# (vector-ref #{id 16822}# 1))
- (#{w1 16843}# (vector-ref #{id 16822}# 2)))
- (let ((#{marks 16844}#
- (let ((#{m1 16854}# (car #{w 16823}#))
- (#{m2 16855}# (car #{w1 16843}#)))
- (if (null? #{m2 16855}#)
- #{m1 16854}#
- (append #{m1 16854}# #{m2 16855}#)))))
+ (let ((#{id 16322}# (vector-ref #{id 16302}# 1))
+ (#{w1 16323}# (vector-ref #{id 16302}# 2)))
+ (let ((#{marks 16324}#
+ (let ((#{m1 16334}# (car #{w 16303}#))
+ (#{m2 16335}# (car #{w1 16323}#)))
+ (if (null? #{m2 16335}#)
+ #{m1 16334}#
+ (append #{m1 16334}# #{m2 16335}#)))))
(call-with-values
(lambda ()
- (#{search 16824}#
- #{id 16842}#
- (cdr #{w 16823}#)
- #{marks 16844}#))
- (lambda (#{new-id 16871}# #{marks 16872}#)
- (if #{new-id 16871}#
- #{new-id 16871}#
- (let ((#{t 16880}#
- (#{search 16824}#
- #{id 16842}#
- (cdr #{w1 16843}#)
- #{marks 16872}#)))
- (if #{t 16880}# #{t 16880}# #{id 16842}#)))))))
+ (#{search 16304}#
+ #{id 16322}#
+ (cdr #{w 16303}#)
+ #{marks 16324}#))
+ (lambda (#{new-id 16351}# #{marks 16352}#)
+ (if #{new-id 16351}#
+ #{new-id 16351}#
+ (let ((#{t 16360}#
+ (#{search 16304}#
+ #{id 16322}#
+ (cdr #{w1 16323}#)
+ #{marks 16352}#)))
+ (if #{t 16360}# #{t 16360}# #{id 16322}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 16822}#))))))
- (#{valid-bound-ids? 4323}#
- (lambda (#{ids 16963}#)
+ #{id 16302}#))))))
+ (#{valid-bound-ids? 4324}#
+ (lambda (#{ids 16443}#)
(if (letrec*
- ((#{all-ids? 16964}#
- (lambda (#{ids 17126}#)
- (if (null? #{ids 17126}#)
- (null? #{ids 17126}#)
- (if (let ((#{x 17137}# (car #{ids 17126}#)))
- (if (symbol? #{x 17137}#)
+ ((#{all-ids? 16444}#
+ (lambda (#{ids 16606}#)
+ (if (null? #{ids 16606}#)
+ (null? #{ids 16606}#)
+ (if (let ((#{x 16617}# (car #{ids 16606}#)))
+ (if (symbol? #{x 16617}#)
#t
- (if (if (vector? #{x 17137}#)
- (if (= (vector-length #{x 17137}#) 4)
- (eq? (vector-ref #{x 17137}# 0)
+ (if (if (vector? #{x 16617}#)
+ (if (= (vector-length #{x 16617}#) 4)
+ (eq? (vector-ref #{x 16617}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17137}# 1))
+ (symbol? (vector-ref #{x 16617}# 1))
#f)))
- (#{all-ids? 16964}# (cdr #{ids 17126}#))
+ (#{all-ids? 16444}# (cdr #{ids 16606}#))
#f)))))
- (#{all-ids? 16964}# #{ids 16963}#))
- (#{distinct-bound-ids? 4324}# #{ids 16963}#)
+ (#{all-ids? 16444}# #{ids 16443}#))
+ (#{distinct-bound-ids? 4325}# #{ids 16443}#)
#f)))
- (#{distinct-bound-ids? 4324}#
- (lambda (#{ids 17269}#)
+ (#{distinct-bound-ids? 4325}#
+ (lambda (#{ids 16745}#)
(letrec*
- ((#{distinct? 17270}#
- (lambda (#{ids 17386}#)
- (if (null? #{ids 17386}#)
- (null? #{ids 17386}#)
- (if (not (#{bound-id-member? 4325}#
- (car #{ids 17386}#)
- (cdr #{ids 17386}#)))
- (#{distinct? 17270}# (cdr #{ids 17386}#))
+ ((#{distinct? 16746}#
+ (lambda (#{ids 16858}#)
+ (if (null? #{ids 16858}#)
+ (null? #{ids 16858}#)
+ (if (not (#{bound-id-member? 4326}#
+ (car #{ids 16858}#)
+ (cdr #{ids 16858}#)))
+ (#{distinct? 16746}# (cdr #{ids 16858}#))
#f)))))
- (#{distinct? 17270}# #{ids 17269}#))))
- (#{bound-id-member? 4325}#
- (lambda (#{x 17606}# #{list 17607}#)
- (if (not (null? #{list 17607}#))
- (let ((#{t 17608}#
- (let ((#{j 17689}# (car #{list 17607}#)))
- (if (if (if (vector? #{x 17606}#)
- (if (= (vector-length #{x 17606}#) 4)
- (eq? (vector-ref #{x 17606}# 0) 'syntax-object)
+ (#{distinct? 16746}# #{ids 16745}#))))
+ (#{bound-id-member? 4326}#
+ (lambda (#{x 17068}# #{list 17069}#)
+ (if (not (null? #{list 17069}#))
+ (let ((#{t 17070}#
+ (let ((#{j 17151}# (car #{list 17069}#)))
+ (if (if (if (vector? #{x 17068}#)
+ (if (= (vector-length #{x 17068}#) 4)
+ (eq? (vector-ref #{x 17068}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 17689}#)
- (if (= (vector-length #{j 17689}#) 4)
- (eq? (vector-ref #{j 17689}# 0) 'syntax-object)
+ (if (vector? #{j 17151}#)
+ (if (= (vector-length #{j 17151}#) 4)
+ (eq? (vector-ref #{j 17151}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 17606}# 1)
- (vector-ref #{j 17689}# 1))
- (#{same-marks? 4319}#
- (car (vector-ref #{x 17606}# 2))
- (car (vector-ref #{j 17689}# 2)))
+ (if (eq? (vector-ref #{x 17068}# 1)
+ (vector-ref #{j 17151}# 1))
+ (#{same-marks? 4320}#
+ (car (vector-ref #{x 17068}# 2))
+ (car (vector-ref #{j 17151}# 2)))
#f)
- (eq? #{x 17606}# #{j 17689}#)))))
- (if #{t 17608}#
- #{t 17608}#
- (#{bound-id-member? 4325}#
- #{x 17606}#
- (cdr #{list 17607}#))))
+ (eq? #{x 17068}# #{j 17151}#)))))
+ (if #{t 17070}#
+ #{t 17070}#
+ (#{bound-id-member? 4326}#
+ #{x 17068}#
+ (cdr #{list 17069}#))))
#f)))
- (#{wrap 4326}#
- (lambda (#{x 17733}# #{w 17734}# #{defmod 17735}#)
- (if (if (null? (car #{w 17734}#))
- (null? (cdr #{w 17734}#))
+ (#{wrap 4327}#
+ (lambda (#{x 17195}# #{w 17196}# #{defmod 17197}#)
+ (if (if (null? (car #{w 17196}#))
+ (null? (cdr #{w 17196}#))
#f)
- #{x 17733}#
- (if (if (vector? #{x 17733}#)
- (if (= (vector-length #{x 17733}#) 4)
- (eq? (vector-ref #{x 17733}# 0) 'syntax-object)
+ #{x 17195}#
+ (if (if (vector? #{x 17195}#)
+ (if (= (vector-length #{x 17195}#) 4)
+ (eq? (vector-ref #{x 17195}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 17749}# (vector-ref #{x 17733}# 1))
- (#{wrap 17750}#
- (#{join-wraps 4317}#
- #{w 17734}#
- (vector-ref #{x 17733}# 2)))
- (#{module 17751}# (vector-ref #{x 17733}# 3)))
+ (let ((#{expression 17211}# (vector-ref #{x 17195}# 1))
+ (#{wrap 17212}#
+ (#{join-wraps 4318}#
+ #{w 17196}#
+ (vector-ref #{x 17195}# 2)))
+ (#{module 17213}# (vector-ref #{x 17195}# 3)))
(vector
'syntax-object
- #{expression 17749}#
- #{wrap 17750}#
- #{module 17751}#))
- (if (null? #{x 17733}#)
- #{x 17733}#
+ #{expression 17211}#
+ #{wrap 17212}#
+ #{module 17213}#))
+ (if (null? #{x 17195}#)
+ #{x 17195}#
(vector
'syntax-object
- #{x 17733}#
- #{w 17734}#
- #{defmod 17735}#))))))
- (#{source-wrap 4327}#
- (lambda (#{x 17768}#
- #{w 17769}#
- #{s 17770}#
- #{defmod 17771}#)
- (#{wrap 4326}#
+ #{x 17195}#
+ #{w 17196}#
+ #{defmod 17197}#))))))
+ (#{source-wrap 4328}#
+ (lambda (#{x 17230}#
+ #{w 17231}#
+ #{s 17232}#
+ #{defmod 17233}#)
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{x 17768}#) #{s 17770}# #f)
- (set-source-properties! #{x 17768}# #{s 17770}#))
- #{x 17768}#)
- #{w 17769}#
- #{defmod 17771}#)))
- (#{expand-sequence 4328}#
- (lambda (#{body 28606}#
- #{r 28607}#
- #{w 28608}#
- #{s 28609}#
- #{mod 28610}#)
- (#{build-sequence 4282}#
- #{s 28609}#
+ (if (if (pair? #{x 17230}#) #{s 17232}# #f)
+ (set-source-properties! #{x 17230}# #{s 17232}#))
+ #{x 17230}#)
+ #{w 17231}#
+ #{defmod 17233}#)))
+ (#{expand-sequence 4329}#
+ (lambda (#{body 27460}#
+ #{r 27461}#
+ #{w 27462}#
+ #{s 27463}#
+ #{mod 27464}#)
+ (#{build-sequence 4283}#
+ #{s 27463}#
(letrec*
- ((#{dobody 28695}#
- (lambda (#{body 28775}#
- #{r 28776}#
- #{w 28777}#
- #{mod 28778}#)
- (if (null? #{body 28775}#)
+ ((#{dobody 27544}#
+ (lambda (#{body 27894}#
+ #{r 27895}#
+ #{w 27896}#
+ #{mod 27897}#)
+ (if (null? #{body 27894}#)
'()
- (let ((#{first 28779}#
- (#{expand 4333}#
- (car #{body 28775}#)
- #{r 28776}#
- #{w 28777}#
- #{mod 28778}#)))
- (cons #{first 28779}#
- (#{dobody 28695}#
- (cdr #{body 28775}#)
- #{r 28776}#
- #{w 28777}#
- #{mod 28778}#)))))))
- (#{dobody 28695}#
- #{body 28606}#
- #{r 28607}#
- #{w 28608}#
- #{mod 28610}#)))))
- (#{expand-top-sequence 4329}#
- (lambda (#{body 17789}#
- #{r 17790}#
- #{w 17791}#
- #{s 17792}#
- #{m 17793}#
- #{esew 17794}#
- #{mod 17795}#)
+ (let ((#{first 27898}#
+ (let ((#{e 27902}# (car #{body 27894}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4333}#
+ #{e 27902}#
+ #{r 27895}#
+ #{w 27896}#
+ (#{source-annotation 4295}# #{e 27902}#)
+ #f
+ #{mod 27897}#
+ #f))
+ (lambda (#{type 27909}#
+ #{value 27910}#
+ #{e 27911}#
+ #{w 27912}#
+ #{s 27913}#
+ #{mod 27914}#)
+ (#{expand-expr 4335}#
+ #{type 27909}#
+ #{value 27910}#
+ #{e 27911}#
+ #{r 27895}#
+ #{w 27912}#
+ #{s 27913}#
+ #{mod 27914}#))))))
+ (cons #{first 27898}#
+ (#{dobody 27544}#
+ (cdr #{body 27894}#)
+ #{r 27895}#
+ #{w 27896}#
+ #{mod 27897}#)))))))
+ (#{dobody 27544}#
+ #{body 27460}#
+ #{r 27461}#
+ #{w 27462}#
+ #{mod 27464}#)))))
+ (#{expand-top-sequence 4330}#
+ (lambda (#{body 17251}#
+ #{r 17252}#
+ #{w 17253}#
+ #{s 17254}#
+ #{m 17255}#
+ #{esew 17256}#
+ #{mod 17257}#)
(letrec*
- ((#{scan 17796}#
- (lambda (#{body 17927}#
- #{r 17928}#
- #{w 17929}#
- #{s 17930}#
- #{m 17931}#
- #{esew 17932}#
- #{mod 17933}#
- #{exps 17934}#)
- (if (null? #{body 17927}#)
- #{exps 17934}#
+ ((#{scan 17258}#
+ (lambda (#{body 17389}#
+ #{r 17390}#
+ #{w 17391}#
+ #{s 17392}#
+ #{m 17393}#
+ #{esew 17394}#
+ #{mod 17395}#
+ #{exps 17396}#)
+ (if (null? #{body 17389}#)
+ #{exps 17396}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 17935}# (car #{body 17927}#)))
- (#{syntax-type 4332}#
- #{e 17935}#
- #{r 17928}#
- #{w 17929}#
- (let ((#{t 17939}#
- (#{source-annotation 4294}# #{e 17935}#)))
- (if #{t 17939}# #{t 17939}# #{s 17930}#))
+ (let ((#{e 17397}# (car #{body 17389}#)))
+ (#{syntax-type 4333}#
+ #{e 17397}#
+ #{r 17390}#
+ #{w 17391}#
+ (let ((#{t 17401}#
+ (#{source-annotation 4295}# #{e 17397}#)))
+ (if #{t 17401}# #{t 17401}# #{s 17392}#))
#f
- #{mod 17933}#
+ #{mod 17395}#
#f)))
- (lambda (#{type 18199}#
- #{value 18200}#
- #{e 18201}#
- #{w 18202}#
- #{s 18203}#
- #{mod 18204}#)
- (if (eqv? #{type 18199}# 'begin-form)
- (let ((#{tmp 18209}#
- ($sc-dispatch #{e 18201}# '(_))))
- (if #{tmp 18209}#
- (@apply (lambda () #{exps 17934}#) #{tmp 18209}#)
- (let ((#{tmp 18213}#
+ (lambda (#{type 17636}#
+ #{value 17637}#
+ #{e 17638}#
+ #{w 17639}#
+ #{s 17640}#
+ #{mod 17641}#)
+ (if (eqv? #{type 17636}# 'begin-form)
+ (let ((#{tmp 17646}#
+ ($sc-dispatch #{e 17638}# '(_))))
+ (if #{tmp 17646}#
+ (@apply (lambda () #{exps 17396}#) #{tmp 17646}#)
+ (let ((#{tmp 17650}#
($sc-dispatch
- #{e 18201}#
+ #{e 17638}#
'(_ any . each-any))))
- (if #{tmp 18213}#
+ (if #{tmp 17650}#
(@apply
- (lambda (#{e1 18217}# #{e2 18218}#)
- (#{scan 17796}#
- (cons #{e1 18217}# #{e2 18218}#)
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
- #{m 17931}#
- #{esew 17932}#
- #{mod 18204}#
- #{exps 17934}#))
- #{tmp 18213}#)
+ (lambda (#{e1 17654}# #{e2 17655}#)
+ (#{scan 17258}#
+ (cons #{e1 17654}# #{e2 17655}#)
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
+ #{m 17393}#
+ #{esew 17394}#
+ #{mod 17641}#
+ #{exps 17396}#))
+ #{tmp 17650}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 18201}#)))))
- (if (eqv? #{type 18199}# 'local-syntax-form)
- (#{expand-local-syntax 4338}#
- #{value 18200}#
- #{e 18201}#
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
- #{mod 18204}#
- (lambda (#{body 18233}#
- #{r 18234}#
- #{w 18235}#
- #{s 18236}#
- #{mod 18237}#)
- (#{scan 17796}#
- #{body 18233}#
- #{r 18234}#
- #{w 18235}#
- #{s 18236}#
- #{m 17931}#
- #{esew 17932}#
- #{mod 18237}#
- #{exps 17934}#)))
- (if (eqv? #{type 18199}# 'eval-when-form)
- (let ((#{tmp 18242}#
+ #{e 17638}#)))))
+ (if (eqv? #{type 17636}# 'local-syntax-form)
+ (#{expand-local-syntax 4339}#
+ #{value 17637}#
+ #{e 17638}#
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
+ #{mod 17641}#
+ (lambda (#{body 17670}#
+ #{r 17671}#
+ #{w 17672}#
+ #{s 17673}#
+ #{mod 17674}#)
+ (#{scan 17258}#
+ #{body 17670}#
+ #{r 17671}#
+ #{w 17672}#
+ #{s 17673}#
+ #{m 17393}#
+ #{esew 17394}#
+ #{mod 17674}#
+ #{exps 17396}#)))
+ (if (eqv? #{type 17636}# 'eval-when-form)
+ (let ((#{tmp 17679}#
($sc-dispatch
- #{e 18201}#
+ #{e 17638}#
'(_ each-any any . each-any))))
- (if #{tmp 18242}#
+ (if #{tmp 17679}#
(@apply
- (lambda (#{x 18246}#
- #{e1 18247}#
- #{e2 18248}#)
- (let ((#{when-list 18249}#
- (#{parse-when-list 4331}#
- #{e 18201}#
- #{x 18246}#))
- (#{body 18250}#
- (cons #{e1 18247}#
- #{e2 18248}#)))
- (if (eq? #{m 17931}# 'e)
- (if (memq 'eval #{when-list 18249}#)
- (#{scan 17796}#
- #{body 18250}#
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
+ (lambda (#{x 17683}#
+ #{e1 17684}#
+ #{e2 17685}#)
+ (let ((#{when-list 17686}#
+ (#{parse-when-list 4332}#
+ #{e 17638}#
+ #{x 17683}#))
+ (#{body 17687}#
+ (cons #{e1 17684}#
+ #{e2 17685}#)))
+ (if (eq? #{m 17393}# 'e)
+ (if (memq 'eval #{when-list 17686}#)
+ (#{scan 17258}#
+ #{body 17687}#
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
(if (memq 'expand
- #{when-list 18249}#)
+ #{when-list 17686}#)
'c&e
'e)
'(eval)
- #{mod 18204}#
- #{exps 17934}#)
+ #{mod 17641}#
+ #{exps 17396}#)
(begin
(if (memq 'expand
- #{when-list 18249}#)
- (let ((#{x 18327}#
- (#{expand-top-sequence
4329}#
- #{body 18250}#
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
+ #{when-list 17686}#)
+ (let ((#{x 17764}#
+ (#{expand-top-sequence
4330}#
+ #{body 17687}#
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
'e
'(eval)
- #{mod 18204}#)))
+ #{mod 17641}#)))
(primitive-eval
- #{x 18327}#)))
- (values #{exps 17934}#)))
- (if (memq 'load #{when-list 18249}#)
- (if (let ((#{t 18353}#
+ #{x 17764}#)))
+ (values #{exps 17396}#)))
+ (if (memq 'load #{when-list 17686}#)
+ (if (let ((#{t 17790}#
(memq 'compile
- #{when-list
18249}#)))
- (if #{t 18353}#
- #{t 18353}#
- (let ((#{t 18402}#
+ #{when-list
17686}#)))
+ (if #{t 17790}#
+ #{t 17790}#
+ (let ((#{t 17839}#
(memq 'expand
- #{when-list
18249}#)))
- (if #{t 18402}#
- #{t 18402}#
- (if (eq? #{m 17931}#
+ #{when-list
17686}#)))
+ (if #{t 17839}#
+ #{t 17839}#
+ (if (eq? #{m 17393}#
'c&e)
(memq 'eval
- #{when-list
18249}#)
+ #{when-list
17686}#)
#f)))))
- (#{scan 17796}#
- #{body 18250}#
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
+ (#{scan 17258}#
+ #{body 17687}#
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
'c&e
'(compile load)
- #{mod 18204}#
- #{exps 17934}#)
- (if (if (eq? #{m 17931}# 'c)
+ #{mod 17641}#
+ #{exps 17396}#)
+ (if (if (eq? #{m 17393}# 'c)
#t
- (eq? #{m 17931}# 'c&e))
- (#{scan 17796}#
- #{body 18250}#
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
+ (eq? #{m 17393}# 'c&e))
+ (#{scan 17258}#
+ #{body 17687}#
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
'c
'(load)
- #{mod 18204}#
- #{exps 17934}#)
- (values #{exps 17934}#)))
- (if (let ((#{t 18531}#
+ #{mod 17641}#
+ #{exps 17396}#)
+ (values #{exps 17396}#)))
+ (if (let ((#{t 17968}#
(memq 'compile
- #{when-list
18249}#)))
- (if #{t 18531}#
- #{t 18531}#
- (let ((#{t 18580}#
+ #{when-list
17686}#)))
+ (if #{t 17968}#
+ #{t 17968}#
+ (let ((#{t 18017}#
(memq 'expand
- #{when-list
18249}#)))
- (if #{t 18580}#
- #{t 18580}#
- (if (eq? #{m 17931}#
+ #{when-list
17686}#)))
+ (if #{t 18017}#
+ #{t 18017}#
+ (if (eq? #{m 17393}#
'c&e)
(memq 'eval
- #{when-list
18249}#)
+ #{when-list
17686}#)
#f)))))
(begin
- (let ((#{x 18704}#
- (#{expand-top-sequence
4329}#
- #{body 18250}#
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
+ (let ((#{x 18141}#
+ (#{expand-top-sequence
4330}#
+ #{body 17687}#
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
'e
'(eval)
- #{mod 18204}#)))
- (primitive-eval #{x 18704}#))
- (values #{exps 17934}#))
- (values #{exps 17934}#))))))
- #{tmp 18242}#)
+ #{mod 17641}#)))
+ (primitive-eval #{x 18141}#))
+ (values #{exps 17396}#))
+ (values #{exps 17396}#))))))
+ #{tmp 17679}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 18201}#)))
- (if (eqv? #{type 18199}# 'define-syntax-form)
- (let ((#{n 18745}#
- (#{id-var-name 4320}#
- #{value 18200}#
- #{w 18202}#))
- (#{r 18746}#
- (#{macros-only-env 4297}#
- #{r 17928}#)))
- (if (eqv? #{m 17931}# 'c)
- (if (memq 'compile #{esew 17932}#)
- (let ((#{e 18750}#
- (#{expand-install-global 4330}#
- #{n 18745}#
- (#{expand 4333}#
- #{e 18201}#
- #{r 18746}#
- #{w 18202}#
- #{mod 18204}#))))
+ #{e 17638}#)))
+ (if (eqv? #{type 17636}# 'define-syntax-form)
+ (let ((#{n 18182}#
+ (#{id-var-name 4321}#
+ #{value 17637}#
+ #{w 17639}#))
+ (#{r 18183}#
+ (#{macros-only-env 4298}#
+ #{r 17390}#)))
+ (if (eqv? #{m 17393}# 'c)
+ (if (memq 'compile #{esew 17394}#)
+ (let ((#{e 18187}#
+ (#{expand-install-global 4331}#
+ #{n 18182}#
+ (#{expand 4334}#
+ #{e 17638}#
+ #{r 18183}#
+ #{w 17639}#
+ #{mod 17641}#))))
(begin
- (#{top-level-eval-hook 4261}#
- #{e 18750}#
- #{mod 18204}#)
- (if (memq 'load #{esew 17932}#)
+ (#{top-level-eval-hook 4262}#
+ #{e 18187}#
+ #{mod 17641}#)
+ (if (memq 'load #{esew 17394}#)
(values
- (cons #{e 18750}#
- #{exps 17934}#))
- (values #{exps 17934}#))))
- (if (memq 'load #{esew 17932}#)
+ (cons #{e 18187}#
+ #{exps 17396}#))
+ (values #{exps 17396}#))))
+ (if (memq 'load #{esew 17394}#)
(values
- (cons (#{expand-install-global 4330}#
- #{n 18745}#
- (#{expand 4333}#
- #{e 18201}#
- #{r 18746}#
- #{w 18202}#
- #{mod 18204}#))
- #{exps 17934}#))
- (values #{exps 17934}#)))
- (if (eqv? #{m 17931}# 'c&e)
- (let ((#{e 19207}#
- (#{expand-install-global 4330}#
- #{n 18745}#
- (#{expand 4333}#
- #{e 18201}#
- #{r 18746}#
- #{w 18202}#
- #{mod 18204}#))))
+ (cons (#{expand-install-global 4331}#
+ #{n 18182}#
+ (#{expand 4334}#
+ #{e 17638}#
+ #{r 18183}#
+ #{w 17639}#
+ #{mod 17641}#))
+ #{exps 17396}#))
+ (values #{exps 17396}#)))
+ (if (eqv? #{m 17393}# 'c&e)
+ (let ((#{e 18634}#
+ (#{expand-install-global 4331}#
+ #{n 18182}#
+ (#{expand 4334}#
+ #{e 17638}#
+ #{r 18183}#
+ #{w 17639}#
+ #{mod 17641}#))))
(begin
- (#{top-level-eval-hook 4261}#
- #{e 19207}#
- #{mod 18204}#)
+ (#{top-level-eval-hook 4262}#
+ #{e 18634}#
+ #{mod 17641}#)
(values
- (cons #{e 19207}#
- #{exps 17934}#))))
+ (cons #{e 18634}#
+ #{exps 17396}#))))
(begin
- (if (memq 'eval #{esew 17932}#)
- (#{top-level-eval-hook 4261}#
- (#{expand-install-global 4330}#
- #{n 18745}#
- (#{expand 4333}#
- #{e 18201}#
- #{r 18746}#
- #{w 18202}#
- #{mod 18204}#))
- #{mod 18204}#))
- (values #{exps 17934}#)))))
- (if (eqv? #{type 18199}# 'define-form)
- (let ((#{n 19857}#
- (#{id-var-name 4320}#
- #{value 18200}#
- #{w 18202}#)))
- (let ((#{type 19858}#
- (car (let ((#{t 20627}#
- (assq #{n 19857}#
- #{r 17928}#)))
- (if #{t 20627}#
- (cdr #{t 20627}#)
- (if (symbol? #{n 19857}#)
- (let ((#{t 20632}#
+ (if (memq 'eval #{esew 17394}#)
+ (#{top-level-eval-hook 4262}#
+ (#{expand-install-global 4331}#
+ #{n 18182}#
+ (#{expand 4334}#
+ #{e 17638}#
+ #{r 18183}#
+ #{w 17639}#
+ #{mod 17641}#))
+ #{mod 17641}#))
+ (values #{exps 17396}#)))))
+ (if (eqv? #{type 17636}# 'define-form)
+ (let ((#{n 19269}#
+ (#{id-var-name 4321}#
+ #{value 17637}#
+ #{w 17639}#)))
+ (let ((#{type 19270}#
+ (car (let ((#{t 20014}#
+ (assq #{n 19269}#
+ #{r 17390}#)))
+ (if #{t 20014}#
+ (cdr #{t 20014}#)
+ (if (symbol? #{n 19269}#)
+ (let ((#{t 20019}#
(begin
- (if (if (not
#{mod 18204}#)
+ (if (if (not
#{mod 17641}#)
(current-module)
#f)
(warn
"module system is booted, we should have a module"
- #{n
19857}#))
- (let ((#{v
20669}#
+ #{n
19269}#))
+ (let ((#{v
20056}#
(module-variable
- (if
#{mod 18204}#
+ (if
#{mod 17641}#
(resolve-module
-
(cdr #{mod 18204}#))
+
(cdr #{mod 17641}#))
(current-module))
- #{n
19857}#)))
- (if #{v
20669}#
+ #{n
19269}#)))
+ (if #{v
20056}#
(if
(variable-bound?
- #{v
20669}#)
- (let
((#{val 20678}#
+ #{v
20056}#)
+ (let
((#{val 20065}#
(variable-ref
-
#{v 20669}#)))
+
#{v 20056}#)))
(if
(macro?
-
#{val 20678}#)
+
#{val 20065}#)
(if
(macro-type
-
#{val 20678}#)
+
#{val 20065}#)
(cons (macro-type
-
#{val 20678}#)
+
#{val 20065}#)
(macro-binding
-
#{val 20678}#))
+
#{val 20065}#))
#f)
#f))
#f)
#f)))))
- (if #{t 20632}#
- #{t 20632}#
+ (if #{t 20019}#
+ #{t 20019}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 19892}# #{type 19858}#))
- (if (eqv? #{t 19892}# 'global)
+ (if (let ((#{t 19304}# #{type 19270}#))
+ (if (eqv? #{t 19304}# 'global)
#t
- (if (eqv? #{t 19892}# 'core)
+ (if (eqv? #{t 19304}# 'core)
#t
- (if (eqv? #{t 19892}# 'macro)
+ (if (eqv? #{t 19304}# 'macro)
#t
- (eqv? #{t 19892}#
+ (eqv? #{t 19304}#
'module-ref)))))
(begin
- (if (if (if (eq? #{m 17931}# 'c)
+ (if (if (if (eq? #{m 17393}# 'c)
#t
- (eq? #{m 17931}# 'c&e))
+ (eq? #{m 17393}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n 19857}#))
+ #{n 19269}#))
(current-module)
#f)
#f)
- (let ((#{old 20056}#
+ (let ((#{old 19468}#
(module-variable
(current-module)
- #{n 19857}#)))
- (if (if (variable? #{old 20056}#)
+ #{n 19269}#)))
+ (if (if (variable? #{old 19468}#)
(variable-bound?
- #{old 20056}#)
+ #{old 19468}#)
#f)
(module-define!
(current-module)
- #{n 19857}#
- (variable-ref #{old 20056}#))
+ #{n 19269}#
+ (variable-ref #{old 19468}#))
(module-add!
(current-module)
- #{n 19857}#
+ #{n 19269}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m 17931}# 'c&e)
- (let ((#{x 20058}#
-
(#{build-global-definition 4276}#
- #{s 18203}#
- #{n 19857}#
- (#{expand 4333}#
- #{e 18201}#
- #{r 17928}#
- #{w 18202}#
- #{mod
18204}#))))
+ (cons (if (eq? #{m 17393}# 'c&e)
+ (let ((#{x 19470}#
+
(#{build-global-definition 4277}#
+ #{s 17640}#
+ #{n 19269}#
+ (#{expand 4334}#
+ #{e 17638}#
+ #{r 17390}#
+ #{w 17639}#
+ #{mod
17641}#))))
(begin
- (#{top-level-eval-hook
4261}#
- #{x 20058}#
- #{mod 18204}#)
- #{x 20058}#))
+ (#{top-level-eval-hook
4262}#
+ #{x 19470}#
+ #{mod 17641}#)
+ #{x 19470}#))
(lambda ()
-
(#{build-global-definition 4276}#
- #{s 18203}#
- #{n 19857}#
- (#{expand 4333}#
- #{e 18201}#
- #{r 17928}#
- #{w 18202}#
- #{mod 18204}#))))
- #{exps 17934}#)))
- (if (let ((#{t 20554}# #{type 19858}#))
- (eqv? #{t 20554}#
+
(#{build-global-definition 4277}#
+ #{s 17640}#
+ #{n 19269}#
+ (#{expand 4334}#
+ #{e 17638}#
+ #{r 17390}#
+ #{w 17639}#
+ #{mod 17641}#))))
+ #{exps 17396}#)))
+ (if (let ((#{t 19941}# #{type 19270}#))
+ (eqv? #{t 19941}#
'displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e 18201}#
- (#{wrap 4326}#
- #{value 18200}#
- #{w 18202}#
- #{mod 18204}#))
+ #{e 17638}#
+ (#{wrap 4327}#
+ #{value 17637}#
+ #{w 17639}#
+ #{mod 17641}#))
(syntax-violation
#f
"cannot define keyword at top
level"
- #{e 18201}#
- (#{wrap 4326}#
- #{value 18200}#
- #{w 18202}#
- #{mod 18204}#))))))
+ #{e 17638}#
+ (#{wrap 4327}#
+ #{value 17637}#
+ #{w 17639}#
+ #{mod 17641}#))))))
(values
- (cons (if (eq? #{m 17931}# 'c&e)
- (let ((#{x 20689}#
- (#{expand-expr 4334}#
- #{type 18199}#
- #{value 18200}#
- #{e 18201}#
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
- #{mod 18204}#)))
+ (cons (if (eq? #{m 17393}# 'c&e)
+ (let ((#{x 20076}#
+ (#{expand-expr 4335}#
+ #{type 17636}#
+ #{value 17637}#
+ #{e 17638}#
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
+ #{mod 17641}#)))
(begin
- (primitive-eval #{x 20689}#)
- #{x 20689}#))
+ (primitive-eval #{x 20076}#)
+ #{x 20076}#))
(lambda ()
- (#{expand-expr 4334}#
- #{type 18199}#
- #{value 18200}#
- #{e 18201}#
- #{r 17928}#
- #{w 18202}#
- #{s 18203}#
- #{mod 18204}#)))
- #{exps 17934}#))))))))))
- (lambda (#{exps 20698}#)
- (#{scan 17796}#
- (cdr #{body 17927}#)
- #{r 17928}#
- #{w 17929}#
- #{s 17930}#
- #{m 17931}#
- #{esew 17932}#
- #{mod 17933}#
- #{exps 20698}#)))))))
+ (#{expand-expr 4335}#
+ #{type 17636}#
+ #{value 17637}#
+ #{e 17638}#
+ #{r 17390}#
+ #{w 17639}#
+ #{s 17640}#
+ #{mod 17641}#)))
+ #{exps 17396}#))))))))))
+ (lambda (#{exps 20085}#)
+ (#{scan 17258}#
+ (cdr #{body 17389}#)
+ #{r 17390}#
+ #{w 17391}#
+ #{s 17392}#
+ #{m 17393}#
+ #{esew 17394}#
+ #{mod 17395}#
+ #{exps 20085}#)))))))
(call-with-values
(lambda ()
- (#{scan 17796}#
- #{body 17789}#
- #{r 17790}#
- #{w 17791}#
- #{s 17792}#
- #{m 17793}#
- #{esew 17794}#
- #{mod 17795}#
+ (#{scan 17258}#
+ #{body 17251}#
+ #{r 17252}#
+ #{w 17253}#
+ #{s 17254}#
+ #{m 17255}#
+ #{esew 17256}#
+ #{mod 17257}#
'()))
- (lambda (#{exps 17799}#)
- (if (null? #{exps 17799}#)
+ (lambda (#{exps 17261}#)
+ (if (null? #{exps 17261}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s 17792}#)
- (#{build-sequence 4282}#
- #{s 17792}#
+ #{s 17254}#)
+ (#{build-sequence 4283}#
+ #{s 17254}#
(letrec*
- ((#{lp 17839}#
- (lambda (#{in 17923}# #{out 17924}#)
- (if (null? #{in 17923}#)
- #{out 17924}#
- (let ((#{e 17925}# (car #{in 17923}#)))
- (#{lp 17839}#
- (cdr #{in 17923}#)
- (cons (if (procedure? #{e 17925}#)
- (#{e 17925}#)
- #{e 17925}#)
- #{out 17924}#)))))))
- (#{lp 17839}# #{exps 17799}# '())))))))))
- (#{expand-install-global 4330}#
- (lambda (#{name 20699}# #{e 20700}#)
- (let ((#{exp 20706}#
- (let ((#{fun-exp 20716}#
+ ((#{lp 17301}#
+ (lambda (#{in 17385}# #{out 17386}#)
+ (if (null? #{in 17385}#)
+ #{out 17386}#
+ (let ((#{e 17387}# (car #{in 17385}#)))
+ (#{lp 17301}#
+ (cdr #{in 17385}#)
+ (cons (if (procedure? #{e 17387}#)
+ (#{e 17387}#)
+ #{e 17387}#)
+ #{out 17386}#)))))))
+ (#{lp 17301}# #{exps 17261}# '())))))))))
+ (#{expand-install-global 4331}#
+ (lambda (#{name 20086}# #{e 20087}#)
+ (let ((#{exp 20093}#
+ (let ((#{fun-exp 20103}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -1218,416 +1238,416 @@
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps 20717}#
+ (#{arg-exps 20104}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 20699}#)
+ #{name 20086}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 20700}#)))
+ #{e 20087}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 20716}#
- #{arg-exps 20717}#))))
+ #{fun-exp 20103}#
+ #{arg-exps 20104}#))))
(begin
- (if (if (struct? #{exp 20706}#)
- (eq? (struct-vtable #{exp 20706}#)
+ (if (if (struct? #{exp 20093}#)
+ (eq? (struct-vtable #{exp 20093}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 20758}# (struct-ref #{exp 20706}# 1)))
- (if (not (assq 'name #{meta 20758}#))
- (let ((#{v 20765}#
- (cons (cons 'name #{name 20699}#) #{meta 20758}#)))
- (struct-set! #{exp 20706}# 1 #{v 20765}#)))))
+ (let ((#{meta 20145}# (struct-ref #{exp 20093}# 1)))
+ (if (not (assq 'name #{meta 20145}#))
+ (let ((#{v 20152}#
+ (cons (cons 'name #{name 20086}#) #{meta 20145}#)))
+ (struct-set! #{exp 20093}# 1 #{v 20152}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 20699}#
- #{exp 20706}#)))))
- (#{parse-when-list 4331}#
- (lambda (#{e 20776}# #{when-list 20777}#)
- (let ((#{result 20778}#
- (#{strip 4346}# #{when-list 20777}# '(()))))
+ #{name 20086}#
+ #{exp 20093}#)))))
+ (#{parse-when-list 4332}#
+ (lambda (#{e 20163}# #{when-list 20164}#)
+ (let ((#{result 20165}#
+ (#{strip 4347}# #{when-list 20164}# '(()))))
(letrec*
- ((#{lp 20779}#
- (lambda (#{l 20833}#)
- (if (null? #{l 20833}#)
- #{result 20778}#
- (if (let ((#{t 20835}# (car #{l 20833}#)))
- (if (eq? #{t 20835}# 'compile)
+ ((#{lp 20166}#
+ (lambda (#{l 20220}#)
+ (if (null? #{l 20220}#)
+ #{result 20165}#
+ (if (let ((#{t 20222}# (car #{l 20220}#)))
+ (if (eq? #{t 20222}# 'compile)
#t
- (if (eq? #{t 20835}# 'load)
+ (if (eq? #{t 20222}# 'load)
#t
- (if (eq? #{t 20835}# 'eval)
+ (if (eq? #{t 20222}# 'eval)
#t
- (eq? #{t 20835}# 'expand)))))
- (#{lp 20779}# (cdr #{l 20833}#))
+ (eq? #{t 20222}# 'expand)))))
+ (#{lp 20166}# (cdr #{l 20220}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e 20776}#
- (car #{l 20833}#)))))))
- (#{lp 20779}# #{result 20778}#)))))
- (#{syntax-type 4332}#
- (lambda (#{e 20837}#
- #{r 20838}#
- #{w 20839}#
- #{s 20840}#
- #{rib 20841}#
- #{mod 20842}#
- #{for-car? 20843}#)
- (if (symbol? #{e 20837}#)
- (let ((#{n 20844}#
- (#{id-var-name 4320}# #{e 20837}# #{w 20839}#)))
- (let ((#{b 20845}#
- (let ((#{t 21420}# (assq #{n 20844}# #{r 20838}#)))
- (if #{t 21420}#
- (cdr #{t 21420}#)
- (if (symbol? #{n 20844}#)
- (let ((#{t 21425}#
+ #{e 20163}#
+ (car #{l 20220}#)))))))
+ (#{lp 20166}# #{result 20165}#)))))
+ (#{syntax-type 4333}#
+ (lambda (#{e 20224}#
+ #{r 20225}#
+ #{w 20226}#
+ #{s 20227}#
+ #{rib 20228}#
+ #{mod 20229}#
+ #{for-car? 20230}#)
+ (if (symbol? #{e 20224}#)
+ (let ((#{n 20231}#
+ (#{id-var-name 4321}# #{e 20224}# #{w 20226}#)))
+ (let ((#{b 20232}#
+ (let ((#{t 20807}# (assq #{n 20231}# #{r 20225}#)))
+ (if #{t 20807}#
+ (cdr #{t 20807}#)
+ (if (symbol? #{n 20231}#)
+ (let ((#{t 20812}#
(begin
- (if (if (not #{mod 20842}#)
+ (if (if (not #{mod 20229}#)
(current-module)
#f)
(warn "module system is booted, we should
have a module"
- #{n 20844}#))
- (let ((#{v 21462}#
+ #{n 20231}#))
+ (let ((#{v 20849}#
(module-variable
- (if #{mod 20842}#
+ (if #{mod 20229}#
(resolve-module
- (cdr #{mod 20842}#))
+ (cdr #{mod 20229}#))
(current-module))
- #{n 20844}#)))
- (if #{v 21462}#
- (if (variable-bound? #{v 21462}#)
- (let ((#{val 21471}#
- (variable-ref #{v 21462}#)))
- (if (macro? #{val 21471}#)
- (if (macro-type #{val 21471}#)
- (cons (macro-type #{val 21471}#)
+ #{n 20231}#)))
+ (if #{v 20849}#
+ (if (variable-bound? #{v 20849}#)
+ (let ((#{val 20858}#
+ (variable-ref #{v 20849}#)))
+ (if (macro? #{val 20858}#)
+ (if (macro-type #{val 20858}#)
+ (cons (macro-type #{val 20858}#)
(macro-binding
- #{val 21471}#))
+ #{val 20858}#))
#f)
#f))
#f)
#f)))))
- (if #{t 21425}# #{t 21425}# '(global)))
+ (if #{t 20812}# #{t 20812}# '(global)))
'(displaced-lexical))))))
- (let ((#{type 20846}# (car #{b 20845}#)))
- (if (let ((#{t 20880}# #{type 20846}#))
- (eqv? #{t 20880}# 'lexical))
+ (let ((#{type 20233}# (car #{b 20232}#)))
+ (if (let ((#{t 20267}# #{type 20233}#))
+ (eqv? #{t 20267}# 'lexical))
(values
- #{type 20846}#
- (cdr #{b 20845}#)
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (if (let ((#{t 21037}# #{type 20846}#))
- (eqv? #{t 21037}# 'global))
+ #{type 20233}#
+ (cdr #{b 20232}#)
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (if (let ((#{t 20424}# #{type 20233}#))
+ (eqv? #{t 20424}# 'global))
(values
- #{type 20846}#
- #{n 20844}#
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (if (let ((#{t 21163}# #{type 20846}#))
- (eqv? #{t 21163}# 'macro))
- (if #{for-car? 20843}#
+ #{type 20233}#
+ #{n 20231}#
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (if (let ((#{t 20550}# #{type 20233}#))
+ (eqv? #{t 20550}# 'macro))
+ (if #{for-car? 20230}#
(values
- #{type 20846}#
- (cdr #{b 20845}#)
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (#{syntax-type 4332}#
- (#{expand-macro 4336}#
- (cdr #{b 20845}#)
- #{e 20837}#
- #{r 20838}#
- #{w 20839}#
- #{s 20840}#
- #{rib 20841}#
- #{mod 20842}#)
- #{r 20838}#
+ #{type 20233}#
+ (cdr #{b 20232}#)
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (#{syntax-type 4333}#
+ (#{expand-macro 4337}#
+ (cdr #{b 20232}#)
+ #{e 20224}#
+ #{r 20225}#
+ #{w 20226}#
+ #{s 20227}#
+ #{rib 20228}#
+ #{mod 20229}#)
+ #{r 20225}#
'(())
- #{s 20840}#
- #{rib 20841}#
- #{mod 20842}#
+ #{s 20227}#
+ #{rib 20228}#
+ #{mod 20229}#
#f))
(values
- #{type 20846}#
- (cdr #{b 20845}#)
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)))))))
- (if (pair? #{e 20837}#)
- (let ((#{first 21482}# (car #{e 20837}#)))
+ #{type 20233}#
+ (cdr #{b 20232}#)
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)))))))
+ (if (pair? #{e 20224}#)
+ (let ((#{first 20869}# (car #{e 20224}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4332}#
- #{first 21482}#
- #{r 20838}#
- #{w 20839}#
- #{s 20840}#
- #{rib 20841}#
- #{mod 20842}#
+ (#{syntax-type 4333}#
+ #{first 20869}#
+ #{r 20225}#
+ #{w 20226}#
+ #{s 20227}#
+ #{rib 20228}#
+ #{mod 20229}#
#t))
- (lambda (#{ftype 21484}#
- #{fval 21485}#
- #{fe 21486}#
- #{fw 21487}#
- #{fs 21488}#
- #{fmod 21489}#)
- (if (eqv? #{ftype 21484}# 'lexical)
+ (lambda (#{ftype 20871}#
+ #{fval 20872}#
+ #{fe 20873}#
+ #{fw 20874}#
+ #{fs 20875}#
+ #{fmod 20876}#)
+ (if (eqv? #{ftype 20871}# 'lexical)
(values
'lexical-call
- #{fval 21485}#
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (if (eqv? #{ftype 21484}# 'global)
+ #{fval 20872}#
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (if (eqv? #{ftype 20871}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 21485}#
- #{w 20839}#
- #{fmod 21489}#)
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (if (eqv? #{ftype 21484}# 'macro)
- (#{syntax-type 4332}#
- (#{expand-macro 4336}#
- #{fval 21485}#
- #{e 20837}#
- #{r 20838}#
- #{w 20839}#
- #{s 20840}#
- #{rib 20841}#
- #{mod 20842}#)
- #{r 20838}#
+ #{fval 20872}#
+ #{w 20226}#
+ #{fmod 20876}#)
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (if (eqv? #{ftype 20871}# 'macro)
+ (#{syntax-type 4333}#
+ (#{expand-macro 4337}#
+ #{fval 20872}#
+ #{e 20224}#
+ #{r 20225}#
+ #{w 20226}#
+ #{s 20227}#
+ #{rib 20228}#
+ #{mod 20229}#)
+ #{r 20225}#
'(())
- #{s 20840}#
- #{rib 20841}#
- #{mod 20842}#
- #{for-car? 20843}#)
- (if (eqv? #{ftype 21484}# 'module-ref)
+ #{s 20227}#
+ #{rib 20228}#
+ #{mod 20229}#
+ #{for-car? 20230}#)
+ (if (eqv? #{ftype 20871}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 21485}#
- #{e 20837}#
- #{r 20838}#
- #{w 20839}#))
- (lambda (#{e 21510}#
- #{r 21511}#
- #{w 21512}#
- #{s 21513}#
- #{mod 21514}#)
- (#{syntax-type 4332}#
- #{e 21510}#
- #{r 21511}#
- #{w 21512}#
- #{s 21513}#
- #{rib 20841}#
- #{mod 21514}#
- #{for-car? 20843}#)))
- (if (eqv? #{ftype 21484}# 'core)
+ (#{fval 20872}#
+ #{e 20224}#
+ #{r 20225}#
+ #{w 20226}#))
+ (lambda (#{e 20897}#
+ #{r 20898}#
+ #{w 20899}#
+ #{s 20900}#
+ #{mod 20901}#)
+ (#{syntax-type 4333}#
+ #{e 20897}#
+ #{r 20898}#
+ #{w 20899}#
+ #{s 20900}#
+ #{rib 20228}#
+ #{mod 20901}#
+ #{for-car? 20230}#)))
+ (if (eqv? #{ftype 20871}# 'core)
(values
'core-form
- #{fval 21485}#
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (if (eqv? #{ftype 21484}# 'local-syntax)
+ #{fval 20872}#
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (if (eqv? #{ftype 20871}# 'local-syntax)
(values
'local-syntax-form
- #{fval 21485}#
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (if (eqv? #{ftype 21484}# 'begin)
+ #{fval 20872}#
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (if (eqv? #{ftype 20871}# 'begin)
(values
'begin-form
#f
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (if (eqv? #{ftype 21484}# 'eval-when)
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (if (eqv? #{ftype 20871}# 'eval-when)
(values
'eval-when-form
#f
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
- (if (eqv? #{ftype 21484}# 'define)
- (let ((#{tmp 21531}#
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
+ (if (eqv? #{ftype 20871}# 'define)
+ (let ((#{tmp 20918}#
($sc-dispatch
- #{e 20837}#
+ #{e 20224}#
'(_ any any))))
- (if (if #{tmp 21531}#
+ (if (if #{tmp 20918}#
(@apply
- (lambda (#{name 21535}#
- #{val 21536}#)
- (if (symbol? #{name 21535}#)
+ (lambda (#{name 20922}#
+ #{val 20923}#)
+ (if (symbol? #{name 20922}#)
#t
(if (if (vector?
- #{name 21535}#)
+ #{name 20922}#)
(if (= (vector-length
- #{name 21535}#)
+ #{name 20922}#)
4)
(eq? (vector-ref
- #{name 21535}#
+ #{name 20922}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21535}#
+ #{name 20922}#
1))
#f)))
- #{tmp 21531}#)
+ #{tmp 20918}#)
#f)
(@apply
- (lambda (#{name 21563}# #{val 21564}#)
+ (lambda (#{name 20950}# #{val 20951}#)
(values
'define-form
- #{name 21563}#
- #{val 21564}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#))
- #{tmp 21531}#)
- (let ((#{tmp 21565}#
+ #{name 20950}#
+ #{val 20951}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#))
+ #{tmp 20918}#)
+ (let ((#{tmp 20952}#
($sc-dispatch
- #{e 20837}#
+ #{e 20224}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 21565}#
+ (if (if #{tmp 20952}#
(@apply
- (lambda (#{name 21569}#
- #{args 21570}#
- #{e1 21571}#
- #{e2 21572}#)
+ (lambda (#{name 20956}#
+ #{args 20957}#
+ #{e1 20958}#
+ #{e2 20959}#)
(if (if (symbol?
- #{name 21569}#)
+ #{name 20956}#)
#t
(if (if (vector?
- #{name
21569}#)
+ #{name
20956}#)
(if (=
(vector-length
- #{name
21569}#)
+ #{name
20956}#)
4)
(eq?
(vector-ref
- #{name
21569}#
+ #{name
20956}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21569}#
+ #{name 20956}#
1))
#f))
- (#{valid-bound-ids? 4323}#
+ (#{valid-bound-ids? 4324}#
(letrec*
- ((#{lvl 21721}#
- (lambda (#{vars
21723}#
- #{ls
21724}#
- #{w
21725}#)
- (if (pair?
#{vars 21723}#)
- (#{lvl 21721}#
- (cdr #{vars
21723}#)
- (cons
(#{wrap 4326}#
- (car
#{vars 21723}#)
- #{w
21725}#
+ ((#{lvl 21108}#
+ (lambda (#{vars
21110}#
+ #{ls
21111}#
+ #{w
21112}#)
+ (if (pair?
#{vars 21110}#)
+ (#{lvl 21108}#
+ (cdr #{vars
21110}#)
+ (cons
(#{wrap 4327}#
+ (car
#{vars 21110}#)
+ #{w
21112}#
#f)
- #{ls
21724}#)
- #{w 21725}#)
+ #{ls
21111}#)
+ #{w 21112}#)
(if (if
(symbol?
-
#{vars 21723}#)
+
#{vars 21110}#)
#t
(if (if
(vector?
-
#{vars 21723}#)
+
#{vars 21110}#)
(if (= (vector-length
-
#{vars 21723}#)
+
#{vars 21110}#)
4)
(eq? (vector-ref
-
#{vars 21723}#
+
#{vars 21110}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
-
#{vars 21723}#
+
#{vars 21110}#
1))
#f))
- (cons
(#{wrap 4326}#
-
#{vars 21723}#
- #{w
21725}#
+ (cons
(#{wrap 4327}#
+
#{vars 21110}#
+ #{w
21112}#
#f)
- #{ls
21724}#)
- (if (null?
#{vars 21723}#)
- #{ls
21724}#
+ #{ls
21111}#)
+ (if (null?
#{vars 21110}#)
+ #{ls
21111}#
(if (if
(vector?
-
#{vars 21723}#)
+
#{vars 21110}#)
(if
(= (vector-length
-
#{vars 21723}#)
+
#{vars 21110}#)
4)
(eq? (vector-ref
-
#{vars 21723}#
+
#{vars 21110}#
0)
'syntax-object)
#f)
#f)
- (#{lvl
21721}#
+ (#{lvl
21108}#
(vector-ref
-
#{vars 21723}#
+
#{vars 21110}#
1)
- #{ls
21724}#
-
(#{join-wraps 4317}#
- #{w
21725}#
+ #{ls
21111}#
+
(#{join-wraps 4318}#
+ #{w
21112}#
(vector-ref
-
#{vars 21723}#
+
#{vars 21110}#
2)))
- (cons
#{vars 21723}#
-
#{ls 21724}#))))))))
- (#{lvl 21721}#
- #{args 21570}#
+ (cons
#{vars 21110}#
+
#{ls 21111}#))))))))
+ (#{lvl 21108}#
+ #{args 20957}#
'()
'(()))))
#f))
- #{tmp 21565}#)
+ #{tmp 20952}#)
#f)
(@apply
- (lambda (#{name 21769}#
- #{args 21770}#
- #{e1 21771}#
- #{e2 21772}#)
+ (lambda (#{name 21156}#
+ #{args 21157}#
+ #{e1 21158}#
+ #{e2 21159}#)
(values
'define-form
- (#{wrap 4326}#
- #{name 21769}#
- #{w 20839}#
- #{mod 20842}#)
- (let ((#{e 21778}#
+ (#{wrap 4327}#
+ #{name 21156}#
+ #{w 20226}#
+ #{mod 20229}#)
+ (let ((#{e 21165}#
(cons '#(syntax-object
lambda
((top)
@@ -2134,60 +2154,60 @@
"i44")))
(hygiene
guile))
- (#{wrap 4326}#
- (cons #{args
21770}#
- (cons
#{e1 21771}#
-
#{e2 21772}#))
- #{w 20839}#
- #{mod
20842}#))))
+ (#{wrap 4327}#
+ (cons #{args
21157}#
+ (cons
#{e1 21158}#
+
#{e2 21159}#))
+ #{w 20226}#
+ #{mod
20229}#))))
(begin
- (if (if (pair? #{e
21778}#)
- #{s 20840}#
+ (if (if (pair? #{e
21165}#)
+ #{s 20227}#
#f)
(set-source-properties!
- #{e 21778}#
- #{s 20840}#))
- #{e 21778}#))
+ #{e 21165}#
+ #{s 20227}#))
+ #{e 21165}#))
'(())
- #{s 20840}#
- #{mod 20842}#))
- #{tmp 21565}#)
- (let ((#{tmp 21785}#
+ #{s 20227}#
+ #{mod 20229}#))
+ #{tmp 20952}#)
+ (let ((#{tmp 21172}#
($sc-dispatch
- #{e 20837}#
+ #{e 20224}#
'(_ any))))
- (if (if #{tmp 21785}#
+ (if (if #{tmp 21172}#
(@apply
- (lambda (#{name 21789}#)
+ (lambda (#{name 21176}#)
(if (symbol?
- #{name 21789}#)
+ #{name 21176}#)
#t
(if (if (vector?
- #{name
21789}#)
+ #{name
21176}#)
(if (=
(vector-length
- #{name
21789}#)
+ #{name
21176}#)
4)
(eq?
(vector-ref
- #{name
21789}#
+ #{name
21176}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21789}#
+ #{name 21176}#
1))
#f)))
- #{tmp 21785}#)
+ #{tmp 21172}#)
#f)
(@apply
- (lambda (#{name 21816}#)
+ (lambda (#{name 21203}#)
(values
'define-form
- (#{wrap 4326}#
- #{name 21816}#
- #{w 20839}#
- #{mod 20842}#)
+ (#{wrap 4327}#
+ #{name 21203}#
+ #{w 20226}#
+ #{mod 20229}#)
'(#(syntax-object
if
((top)
@@ -3617,969 +3637,1061 @@
"i44")))
(hygiene guile)))
'(())
- #{s 20840}#
- #{mod 20842}#))
- #{tmp 21785}#)
+ #{s 20227}#
+ #{mod 20229}#))
+ #{tmp 21172}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e 20837}#)))))))
- (if (eqv? #{ftype 21484}# 'define-syntax)
- (let ((#{tmp 21835}#
+ #{e 20224}#)))))))
+ (if (eqv? #{ftype 20871}# 'define-syntax)
+ (let ((#{tmp 21222}#
($sc-dispatch
- #{e 20837}#
+ #{e 20224}#
'(_ any any))))
- (if (if #{tmp 21835}#
+ (if (if #{tmp 21222}#
(@apply
- (lambda (#{name 21839}#
- #{val 21840}#)
- (if (symbol? #{name 21839}#)
+ (lambda (#{name 21226}#
+ #{val 21227}#)
+ (if (symbol? #{name 21226}#)
#t
(if (if (vector?
- #{name 21839}#)
+ #{name 21226}#)
(if (= (vector-length
- #{name
21839}#)
+ #{name
21226}#)
4)
(eq? (vector-ref
- #{name
21839}#
+ #{name
21226}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21839}#
+ #{name 21226}#
1))
#f)))
- #{tmp 21835}#)
+ #{tmp 21222}#)
#f)
(@apply
- (lambda (#{name 21867}#
- #{val 21868}#)
+ (lambda (#{name 21254}#
+ #{val 21255}#)
(values
'define-syntax-form
- #{name 21867}#
- #{val 21868}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#))
- #{tmp 21835}#)
+ #{name 21254}#
+ #{val 21255}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#))
+ #{tmp 21222}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{e 20837}#)))
+ #{e 20224}#)))
(values
'call
#f
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#))))))))))))))
- (if (if (vector? #{e 20837}#)
- (if (= (vector-length #{e 20837}#) 4)
- (eq? (vector-ref #{e 20837}# 0) 'syntax-object)
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#))))))))))))))
+ (if (if (vector? #{e 20224}#)
+ (if (= (vector-length #{e 20224}#) 4)
+ (eq? (vector-ref #{e 20224}# 0) 'syntax-object)
#f)
#f)
- (#{syntax-type 4332}#
- (vector-ref #{e 20837}# 1)
- #{r 20838}#
- (#{join-wraps 4317}#
- #{w 20839}#
- (vector-ref #{e 20837}# 2))
- (let ((#{t 21895}#
- (#{source-annotation 4294}# #{e 20837}#)))
- (if #{t 21895}# #{t 21895}# #{s 20840}#))
- #{rib 20841}#
- (let ((#{t 22155}# (vector-ref #{e 20837}# 3)))
- (if #{t 22155}# #{t 22155}# #{mod 20842}#))
- #{for-car? 20843}#)
- (if (self-evaluating? #{e 20837}#)
+ (#{syntax-type 4333}#
+ (vector-ref #{e 20224}# 1)
+ #{r 20225}#
+ (#{join-wraps 4318}#
+ #{w 20226}#
+ (vector-ref #{e 20224}# 2))
+ (let ((#{t 21282}#
+ (#{source-annotation 4295}# #{e 20224}#)))
+ (if #{t 21282}# #{t 21282}# #{s 20227}#))
+ #{rib 20228}#
+ (let ((#{t 21517}# (vector-ref #{e 20224}# 3)))
+ (if #{t 21517}# #{t 21517}# #{mod 20229}#))
+ #{for-car? 20230}#)
+ (if (self-evaluating? #{e 20224}#)
(values
'constant
#f
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)
(values
'other
#f
- #{e 20837}#
- #{w 20839}#
- #{s 20840}#
- #{mod 20842}#)))))))
- (#{expand 4333}#
- (lambda (#{e 22164}#
- #{r 22165}#
- #{w 22166}#
- #{mod 22167}#)
+ #{e 20224}#
+ #{w 20226}#
+ #{s 20227}#
+ #{mod 20229}#)))))))
+ (#{expand 4334}#
+ (lambda (#{e 21526}#
+ #{r 21527}#
+ #{w 21528}#
+ #{mod 21529}#)
(call-with-values
(lambda ()
- (#{syntax-type 4332}#
- #{e 22164}#
- #{r 22165}#
- #{w 22166}#
- (#{source-annotation 4294}# #{e 22164}#)
+ (#{syntax-type 4333}#
+ #{e 21526}#
+ #{r 21527}#
+ #{w 21528}#
+ (#{source-annotation 4295}# #{e 21526}#)
#f
- #{mod 22167}#
+ #{mod 21529}#
#f))
- (lambda (#{type 22341}#
- #{value 22342}#
- #{e 22343}#
- #{w 22344}#
- #{s 22345}#
- #{mod 22346}#)
- (#{expand-expr 4334}#
- #{type 22341}#
- #{value 22342}#
- #{e 22343}#
- #{r 22165}#
- #{w 22344}#
- #{s 22345}#
- #{mod 22346}#)))))
- (#{expand-expr 4334}#
- (lambda (#{type 22349}#
- #{value 22350}#
- #{e 22351}#
- #{r 22352}#
- #{w 22353}#
- #{s 22354}#
- #{mod 22355}#)
- (if (eqv? #{type 22349}# 'lexical)
+ (lambda (#{type 21684}#
+ #{value 21685}#
+ #{e 21686}#
+ #{w 21687}#
+ #{s 21688}#
+ #{mod 21689}#)
+ (#{expand-expr 4335}#
+ #{type 21684}#
+ #{value 21685}#
+ #{e 21686}#
+ #{r 21527}#
+ #{w 21687}#
+ #{s 21688}#
+ #{mod 21689}#)))))
+ (#{expand-expr 4335}#
+ (lambda (#{type 21692}#
+ #{value 21693}#
+ #{e 21694}#
+ #{r 21695}#
+ #{w 21696}#
+ #{s 21697}#
+ #{mod 21698}#)
+ (if (eqv? #{type 21692}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 22354}#
- #{e 22351}#
- #{value 22350}#)
- (if (if (eqv? #{type 22349}# 'core)
+ #{s 21697}#
+ #{e 21694}#
+ #{value 21693}#)
+ (if (if (eqv? #{type 21692}# 'core)
#t
- (eqv? #{type 22349}# 'core-form))
- (#{value 22350}#
- #{e 22351}#
- #{r 22352}#
- #{w 22353}#
- #{s 22354}#
- #{mod 22355}#)
- (if (eqv? #{type 22349}# 'module-ref)
+ (eqv? #{type 21692}# 'core-form))
+ (#{value 21693}#
+ #{e 21694}#
+ #{r 21695}#
+ #{w 21696}#
+ #{s 21697}#
+ #{mod 21698}#)
+ (if (eqv? #{type 21692}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 22350}#
- #{e 22351}#
- #{r 22352}#
- #{w 22353}#))
- (lambda (#{e 22381}#
- #{r 22382}#
- #{w 22383}#
- #{s 22384}#
- #{mod 22385}#)
- (#{expand 4333}#
- #{e 22381}#
- #{r 22382}#
- #{w 22383}#
- #{mod 22385}#)))
- (if (eqv? #{type 22349}# 'lexical-call)
- (#{expand-application 4335}#
- (let ((#{id 22465}# (car #{e 22351}#)))
- (#{build-lexical-reference 4271}#
+ (#{value 21693}#
+ #{e 21694}#
+ #{r 21695}#
+ #{w 21696}#))
+ (lambda (#{e 21724}#
+ #{r 21725}#
+ #{w 21726}#
+ #{s 21727}#
+ #{mod 21728}#)
+ (#{expand 4334}#
+ #{e 21724}#
+ #{r 21725}#
+ #{w 21726}#
+ #{mod 21728}#)))
+ (if (eqv? #{type 21692}# 'lexical-call)
+ (#{expand-application 4336}#
+ (let ((#{id 21803}# (car #{e 21694}#)))
+ (#{build-lexical-reference 4272}#
'fun
- (#{source-annotation 4294}# #{id 22465}#)
- (if (if (vector? #{id 22465}#)
- (if (= (vector-length #{id 22465}#) 4)
- (eq? (vector-ref #{id 22465}# 0) 'syntax-object)
+ (#{source-annotation 4295}# #{id 21803}#)
+ (if (if (vector? #{id 21803}#)
+ (if (= (vector-length #{id 21803}#) 4)
+ (eq? (vector-ref #{id 21803}# 0) 'syntax-object)
#f)
#f)
- (syntax->datum #{id 22465}#)
- #{id 22465}#)
- #{value 22350}#))
- #{e 22351}#
- #{r 22352}#
- #{w 22353}#
- #{s 22354}#
- #{mod 22355}#)
- (if (eqv? #{type 22349}# 'global-call)
- (#{expand-application 4335}#
- (#{build-global-reference 4274}#
- (#{source-annotation 4294}# (car #{e 22351}#))
- (if (if (vector? #{value 22350}#)
- (if (= (vector-length #{value 22350}#) 4)
- (eq? (vector-ref #{value 22350}# 0)
+ (syntax->datum #{id 21803}#)
+ #{id 21803}#)
+ #{value 21693}#))
+ #{e 21694}#
+ #{r 21695}#
+ #{w 21696}#
+ #{s 21697}#
+ #{mod 21698}#)
+ (if (eqv? #{type 21692}# 'global-call)
+ (#{expand-application 4336}#
+ (#{build-global-reference 4275}#
+ (#{source-annotation 4295}# (car #{e 21694}#))
+ (if (if (vector? #{value 21693}#)
+ (if (= (vector-length #{value 21693}#) 4)
+ (eq? (vector-ref #{value 21693}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 22350}# 1)
- #{value 22350}#)
- (if (if (vector? #{value 22350}#)
- (if (= (vector-length #{value 22350}#) 4)
- (eq? (vector-ref #{value 22350}# 0)
+ (vector-ref #{value 21693}# 1)
+ #{value 21693}#)
+ (if (if (vector? #{value 21693}#)
+ (if (= (vector-length #{value 21693}#) 4)
+ (eq? (vector-ref #{value 21693}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 22350}# 3)
- #{mod 22355}#))
- #{e 22351}#
- #{r 22352}#
- #{w 22353}#
- #{s 22354}#
- #{mod 22355}#)
- (if (eqv? #{type 22349}# 'constant)
- (let ((#{exp 23001}#
- (#{strip 4346}#
- (#{wrap 4326}#
+ (vector-ref #{value 21693}# 3)
+ #{mod 21698}#))
+ #{e 21694}#
+ #{r 21695}#
+ #{w 21696}#
+ #{s 21697}#
+ #{mod 21698}#)
+ (if (eqv? #{type 21692}# 'constant)
+ (let ((#{exp 22140}#
+ (#{strip 4347}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 22351}#) #{s 22354}# #f)
+ (if (if (pair? #{e 21694}#) #{s 21697}# #f)
(set-source-properties!
- #{e 22351}#
- #{s 22354}#))
- #{e 22351}#)
- #{w 22353}#
- #{mod 22355}#)
+ #{e 21694}#
+ #{s 21697}#))
+ #{e 21694}#)
+ #{w 21696}#
+ #{mod 21698}#)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 22354}#
- #{exp 23001}#))
- (if (eqv? #{type 22349}# 'global)
- (#{analyze-variable 4273}#
- #{mod 22355}#
- #{value 22350}#
- (lambda (#{mod 23037}# #{var 23038}# #{public? 23039}#)
+ #{s 21697}#
+ #{exp 22140}#))
+ (if (eqv? #{type 21692}# 'global)
+ (#{analyze-variable 4274}#
+ #{mod 21698}#
+ #{value 21693}#
+ (lambda (#{mod 22176}# #{var 22177}# #{public? 22178}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 22354}#
- #{mod 23037}#
- #{var 23038}#
- #{public? 23039}#))
- (lambda (#{var 23048}#)
+ #{s 21697}#
+ #{mod 22176}#
+ #{var 22177}#
+ #{public? 22178}#))
+ (lambda (#{var 22187}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s 22354}#
- #{var 23048}#)))
- (if (eqv? #{type 22349}# 'call)
- (#{expand-application 4335}#
- (#{expand 4333}#
- (car #{e 22351}#)
- #{r 22352}#
- #{w 22353}#
- #{mod 22355}#)
- #{e 22351}#
- #{r 22352}#
- #{w 22353}#
- #{s 22354}#
- #{mod 22355}#)
- (if (eqv? #{type 22349}# 'begin-form)
- (let ((#{tmp 23128}#
+ #{s 21697}#
+ #{var 22187}#)))
+ (if (eqv? #{type 21692}# 'call)
+ (#{expand-application 4336}#
+ (#{expand 4334}#
+ (car #{e 21694}#)
+ #{r 21695}#
+ #{w 21696}#
+ #{mod 21698}#)
+ #{e 21694}#
+ #{r 21695}#
+ #{w 21696}#
+ #{s 21697}#
+ #{mod 21698}#)
+ (if (eqv? #{type 21692}# 'begin-form)
+ (let ((#{tmp 22262}#
($sc-dispatch
- #{e 22351}#
+ #{e 21694}#
'(_ any . each-any))))
- (if #{tmp 23128}#
+ (if #{tmp 22262}#
(@apply
- (lambda (#{e1 23132}# #{e2 23133}#)
- (#{expand-sequence 4328}#
- (cons #{e1 23132}# #{e2 23133}#)
- #{r 22352}#
- #{w 22353}#
- #{s 22354}#
- #{mod 22355}#))
- #{tmp 23128}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 22351}#)))
- (if (eqv? #{type 22349}# 'local-syntax-form)
- (#{expand-local-syntax 4338}#
- #{value 22350}#
- #{e 22351}#
- #{r 22352}#
- #{w 22353}#
- #{s 22354}#
- #{mod 22355}#
- #{expand-sequence 4328}#)
- (if (eqv? #{type 22349}# 'eval-when-form)
- (let ((#{tmp 23299}#
+ (lambda (#{e1 22266}# #{e2 22267}#)
+ (#{expand-sequence 4329}#
+ (cons #{e1 22266}# #{e2 22267}#)
+ #{r 21695}#
+ #{w 21696}#
+ #{s 21697}#
+ #{mod 21698}#))
+ #{tmp 22262}#)
+ (let ((#{tmp 22354}#
+ ($sc-dispatch #{e 21694}# '(_))))
+ (if #{tmp 22354}#
+ (@apply
+ (lambda ()
+ (begin
+ (issue-deprecation-warning
+ "Sequences of zero expressions are
deprecated. Use *unspecified*.")
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f)))
+ #{tmp 22354}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 21694}#)))))
+ (if (eqv? #{type 21692}# 'local-syntax-form)
+ (#{expand-local-syntax 4339}#
+ #{value 21693}#
+ #{e 21694}#
+ #{r 21695}#
+ #{w 21696}#
+ #{s 21697}#
+ #{mod 21698}#
+ #{expand-sequence 4329}#)
+ (if (eqv? #{type 21692}# 'eval-when-form)
+ (let ((#{tmp 22443}#
($sc-dispatch
- #{e 22351}#
+ #{e 21694}#
'(_ each-any any . each-any))))
- (if #{tmp 23299}#
+ (if #{tmp 22443}#
(@apply
- (lambda (#{x 23303}#
- #{e1 23304}#
- #{e2 23305}#)
- (let ((#{when-list 23306}#
- (#{parse-when-list 4331}#
- #{e 22351}#
- #{x 23303}#)))
- (if (memq 'eval #{when-list 23306}#)
- (#{expand-sequence 4328}#
- (cons #{e1 23304}# #{e2 23305}#)
- #{r 22352}#
- #{w 22353}#
- #{s 22354}#
- #{mod 22355}#)
+ (lambda (#{x 22447}#
+ #{e1 22448}#
+ #{e2 22449}#)
+ (let ((#{when-list 22450}#
+ (#{parse-when-list 4332}#
+ #{e 21694}#
+ #{x 22447}#)))
+ (if (memq 'eval #{when-list 22450}#)
+ (#{expand-sequence 4329}#
+ (cons #{e1 22448}# #{e2 22449}#)
+ #{r 21695}#
+ #{w 21696}#
+ #{s 21697}#
+ #{mod 21698}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 23299}#)
+ #{tmp 22443}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 22351}#)))
- (if (if (eqv? #{type 22349}# 'define-form)
+ #{e 21694}#)))
+ (if (if (eqv? #{type 21692}# 'define-form)
#t
- (eqv? #{type 22349}# 'define-syntax-form))
+ (eqv? #{type 21692}# 'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 22351}#
- (#{wrap 4326}#
- #{value 22350}#
- #{w 22353}#
- #{mod 22355}#))
- (if (eqv? #{type 22349}# 'syntax)
+ #{e 21694}#
+ (#{wrap 4327}#
+ #{value 21693}#
+ #{w 21696}#
+ #{mod 21698}#))
+ (if (eqv? #{type 21692}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside
syntax form"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 22351}#)
- #{s 22354}#
+ (if (if (pair? #{e 21694}#)
+ #{s 21697}#
#f)
(set-source-properties!
- #{e 22351}#
- #{s 22354}#))
- #{e 22351}#)
- #{w 22353}#
- #{mod 22355}#))
- (if (eqv? #{type 22349}# 'displaced-lexical)
+ #{e 21694}#
+ #{s 21697}#))
+ #{e 21694}#)
+ #{w 21696}#
+ #{mod 21698}#))
+ (if (eqv? #{type 21692}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its
scope"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 22351}#)
- #{s 22354}#
+ (if (if (pair? #{e 21694}#)
+ #{s 21697}#
#f)
(set-source-properties!
- #{e 22351}#
- #{s 22354}#))
- #{e 22351}#)
- #{w 22353}#
- #{mod 22355}#))
+ #{e 21694}#
+ #{s 21697}#))
+ #{e 21694}#)
+ #{w 21696}#
+ #{mod 21698}#))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 22351}#)
- #{s 22354}#
+ (if (if (pair? #{e 21694}#)
+ #{s 21697}#
#f)
(set-source-properties!
- #{e 22351}#
- #{s 22354}#))
- #{e 22351}#)
- #{w 22353}#
- #{mod 22355}#))))))))))))))))))
- (#{expand-application 4335}#
- (lambda (#{x 23547}#
- #{e 23548}#
- #{r 23549}#
- #{w 23550}#
- #{s 23551}#
- #{mod 23552}#)
- (let ((#{tmp 23554}#
- ($sc-dispatch #{e 23548}# '(any . each-any))))
- (if #{tmp 23554}#
+ #{e 21694}#
+ #{s 21697}#))
+ #{e 21694}#)
+ #{w 21696}#
+ #{mod 21698}#))))))))))))))))))
+ (#{expand-application 4336}#
+ (lambda (#{x 22687}#
+ #{e 22688}#
+ #{r 22689}#
+ #{w 22690}#
+ #{s 22691}#
+ #{mod 22692}#)
+ (let ((#{tmp 22694}#
+ ($sc-dispatch #{e 22688}# '(any . each-any))))
+ (if #{tmp 22694}#
(@apply
- (lambda (#{e0 23558}# #{e1 23559}#)
- (#{build-application 4268}#
- #{s 23551}#
- #{x 23547}#
- (map (lambda (#{e 23644}#)
- (#{expand 4333}#
- #{e 23644}#
- #{r 23549}#
- #{w 23550}#
- #{mod 23552}#))
- #{e1 23559}#)))
- #{tmp 23554}#)
+ (lambda (#{e0 22698}# #{e1 22699}#)
+ (#{build-application 4269}#
+ #{s 22691}#
+ #{x 22687}#
+ (map (lambda (#{e 22779}#)
+ (#{expand 4334}#
+ #{e 22779}#
+ #{r 22689}#
+ #{w 22690}#
+ #{mod 22692}#))
+ #{e1 22699}#)))
+ #{tmp 22694}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 23548}#)))))
- (#{expand-macro 4336}#
- (lambda (#{p 23725}#
- #{e 23726}#
- #{r 23727}#
- #{w 23728}#
- #{s 23729}#
- #{rib 23730}#
- #{mod 23731}#)
+ #{e 22688}#)))))
+ (#{expand-macro 4337}#
+ (lambda (#{p 22855}#
+ #{e 22856}#
+ #{r 22857}#
+ #{w 22858}#
+ #{s 22859}#
+ #{rib 22860}#
+ #{mod 22861}#)
(letrec*
- ((#{rebuild-macro-output 23732}#
- (lambda (#{x 23763}# #{m 23764}#)
- (if (pair? #{x 23763}#)
- (let ((#{e 23768}#
- (cons (#{rebuild-macro-output 23732}#
- (car #{x 23763}#)
- #{m 23764}#)
- (#{rebuild-macro-output 23732}#
- (cdr #{x 23763}#)
- #{m 23764}#))))
+ ((#{rebuild-macro-output 22862}#
+ (lambda (#{x 22893}# #{m 22894}#)
+ (if (pair? #{x 22893}#)
+ (let ((#{e 22898}#
+ (cons (#{rebuild-macro-output 22862}#
+ (car #{x 22893}#)
+ #{m 22894}#)
+ (#{rebuild-macro-output 22862}#
+ (cdr #{x 22893}#)
+ #{m 22894}#))))
(begin
- (if (if (pair? #{e 23768}#) #{s 23729}# #f)
- (set-source-properties! #{e 23768}# #{s 23729}#))
- #{e 23768}#))
- (if (if (vector? #{x 23763}#)
- (if (= (vector-length #{x 23763}#) 4)
- (eq? (vector-ref #{x 23763}# 0) 'syntax-object)
+ (if (if (pair? #{e 22898}#) #{s 22859}# #f)
+ (set-source-properties! #{e 22898}# #{s 22859}#))
+ #{e 22898}#))
+ (if (if (vector? #{x 22893}#)
+ (if (= (vector-length #{x 22893}#) 4)
+ (eq? (vector-ref #{x 22893}# 0) 'syntax-object)
#f)
#f)
- (let ((#{w 23784}# (vector-ref #{x 23763}# 2)))
- (let ((#{ms 23785}# (car #{w 23784}#))
- (#{s 23786}# (cdr #{w 23784}#)))
- (if (if (pair? #{ms 23785}#)
- (eq? (car #{ms 23785}#) #f)
+ (let ((#{w 22914}# (vector-ref #{x 22893}# 2)))
+ (let ((#{ms 22915}# (car #{w 22914}#))
+ (#{s 22916}# (cdr #{w 22914}#)))
+ (if (if (pair? #{ms 22915}#)
+ (eq? (car #{ms 22915}#) #f)
#f)
- (let ((#{expression 23794}# (vector-ref #{x 23763}# 1))
- (#{wrap 23795}#
- (cons (cdr #{ms 23785}#)
- (if #{rib 23730}#
- (cons #{rib 23730}# (cdr #{s 23786}#))
- (cdr #{s 23786}#))))
- (#{module 23796}# (vector-ref #{x 23763}# 3)))
+ (let ((#{expression 22924}# (vector-ref #{x 22893}# 1))
+ (#{wrap 22925}#
+ (cons (cdr #{ms 22915}#)
+ (if #{rib 22860}#
+ (cons #{rib 22860}# (cdr #{s 22916}#))
+ (cdr #{s 22916}#))))
+ (#{module 22926}# (vector-ref #{x 22893}# 3)))
(vector
'syntax-object
- #{expression 23794}#
- #{wrap 23795}#
- #{module 23796}#))
- (let ((#{expression 23806}#
- (let ((#{e 23811}# (vector-ref #{x 23763}# 1)))
+ #{expression 22924}#
+ #{wrap 22925}#
+ #{module 22926}#))
+ (let ((#{expression 22936}#
+ (let ((#{e 22941}# (vector-ref #{x 22893}# 1)))
(begin
- (if (if (pair? #{e 23811}#) #{s 23786}# #f)
+ (if (if (pair? #{e 22941}#) #{s 22916}# #f)
(set-source-properties!
- #{e 23811}#
- #{s 23786}#))
- #{e 23811}#)))
- (#{wrap 23807}#
- (cons (cons #{m 23764}# #{ms 23785}#)
- (if #{rib 23730}#
- (cons #{rib 23730}#
- (cons 'shift #{s 23786}#))
- (cons 'shift #{s 23786}#))))
- (#{module 23808}# (vector-ref #{x 23763}# 3)))
+ #{e 22941}#
+ #{s 22916}#))
+ #{e 22941}#)))
+ (#{wrap 22937}#
+ (cons (cons #{m 22894}# #{ms 22915}#)
+ (if #{rib 22860}#
+ (cons #{rib 22860}#
+ (cons 'shift #{s 22916}#))
+ (cons 'shift #{s 22916}#))))
+ (#{module 22938}# (vector-ref #{x 22893}# 3)))
(vector
'syntax-object
- #{expression 23806}#
- #{wrap 23807}#
- #{module 23808}#)))))
- (if (vector? #{x 23763}#)
- (let ((#{n 23823}# (vector-length #{x 23763}#)))
- (let ((#{v 23824}#
- (let ((#{e 23832}# (make-vector #{n 23823}#)))
+ #{expression 22936}#
+ #{wrap 22937}#
+ #{module 22938}#)))))
+ (if (vector? #{x 22893}#)
+ (let ((#{n 22953}# (vector-length #{x 22893}#)))
+ (let ((#{v 22954}#
+ (let ((#{e 22962}# (make-vector #{n 22953}#)))
(begin
- (if (if (pair? #{e 23832}#) #{x 23763}# #f)
+ (if (if (pair? #{e 22962}#) #{x 22893}# #f)
(set-source-properties!
- #{e 23832}#
- #{x 23763}#))
- #{e 23832}#))))
+ #{e 22962}#
+ #{x 22893}#))
+ #{e 22962}#))))
(letrec*
- ((#{loop 23825}#
- (lambda (#{i 23877}#)
- (if (= #{i 23877}# #{n 23823}#)
- #{v 23824}#
+ ((#{loop 22955}#
+ (lambda (#{i 23007}#)
+ (if (= #{i 23007}# #{n 22953}#)
+ #{v 22954}#
(begin
(vector-set!
- #{v 23824}#
- #{i 23877}#
- (#{rebuild-macro-output 23732}#
- (vector-ref #{x 23763}# #{i 23877}#)
- #{m 23764}#))
- (#{loop 23825}# (#{1+}# #{i 23877}#)))))))
- (#{loop 23825}# 0))))
- (if (symbol? #{x 23763}#)
+ #{v 22954}#
+ #{i 23007}#
+ (#{rebuild-macro-output 22862}#
+ (vector-ref #{x 22893}# #{i 23007}#)
+ #{m 22894}#))
+ (#{loop 22955}# (#{1+}# #{i 23007}#)))))))
+ (#{loop 22955}# 0))))
+ (if (symbol? #{x 22893}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 23883}# (cdr #{w 23728}#)))
- (#{wrap 4326}#
+ (let ((#{s 23013}# (cdr #{w 22858}#)))
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 23726}#) #{s 23883}# #f)
+ (if (if (pair? #{e 22856}#) #{s 23013}# #f)
(set-source-properties!
- #{e 23726}#
- #{s 23883}#))
- #{e 23726}#)
- #{w 23728}#
- #{mod 23731}#))
- #{x 23763}#)
+ #{e 22856}#
+ #{s 23013}#))
+ #{e 22856}#)
+ #{w 22858}#
+ #{mod 22861}#))
+ #{x 22893}#)
(begin
- (if (if (pair? #{x 23763}#) #{s 23729}# #f)
- (set-source-properties! #{x 23763}# #{s 23729}#))
- #{x 23763}#))))))))
- (#{rebuild-macro-output 23732}#
- (#{p 23725}#
- (let ((#{w 23739}#
- (cons (cons #f (car #{w 23728}#))
- (cons 'shift (cdr #{w 23728}#)))))
- (#{wrap 4326}#
+ (if (if (pair? #{x 22893}#) #{s 22859}# #f)
+ (set-source-properties! #{x 22893}# #{s 22859}#))
+ #{x 22893}#))))))))
+ (#{rebuild-macro-output 22862}#
+ (#{p 22855}#
+ (let ((#{w 22869}#
+ (cons (cons #f (car #{w 22858}#))
+ (cons 'shift (cdr #{w 22858}#)))))
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 23726}#) #{s 23729}# #f)
- (set-source-properties! #{e 23726}# #{s 23729}#))
- #{e 23726}#)
- #{w 23739}#
- #{mod 23731}#)))
+ (if (if (pair? #{e 22856}#) #{s 22859}# #f)
+ (set-source-properties! #{e 22856}# #{s 22859}#))
+ #{e 22856}#)
+ #{w 22869}#
+ #{mod 22861}#)))
(gensym "m")))))
- (#{expand-body 4337}#
- (lambda (#{body 23915}#
- #{outer-form 23916}#
- #{r 23917}#
- #{w 23918}#
- #{mod 23919}#)
- (let ((#{r 23920}#
- (cons '("placeholder" placeholder) #{r 23917}#)))
- (let ((#{ribcage 23921}# (vector 'ribcage '() '() '())))
- (let ((#{w 23922}#
- (cons (car #{w 23918}#)
- (cons #{ribcage 23921}# (cdr #{w 23918}#)))))
+ (#{expand-body 4338}#
+ (lambda (#{body 23045}#
+ #{outer-form 23046}#
+ #{r 23047}#
+ #{w 23048}#
+ #{mod 23049}#)
+ (let ((#{r 23050}#
+ (cons '("placeholder" placeholder) #{r 23047}#)))
+ (let ((#{ribcage 23051}# (vector 'ribcage '() '() '())))
+ (let ((#{w 23052}#
+ (cons (car #{w 23048}#)
+ (cons #{ribcage 23051}# (cdr #{w 23048}#)))))
(letrec*
- ((#{parse 23923}#
- (lambda (#{body 23936}#
- #{ids 23937}#
- #{labels 23938}#
- #{var-ids 23939}#
- #{vars 23940}#
- #{vals 23941}#
- #{bindings 23942}#)
- (if (null? #{body 23936}#)
+ ((#{parse 23053}#
+ (lambda (#{body 23066}#
+ #{ids 23067}#
+ #{labels 23068}#
+ #{var-ids 23069}#
+ #{vars 23070}#
+ #{vals 23071}#
+ #{bindings 23072}#)
+ (if (null? #{body 23066}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 23916}#)
- (let ((#{e 23943}# (cdr (car #{body 23936}#)))
- (#{er 23944}# (car (car #{body 23936}#))))
+ #{outer-form 23046}#)
+ (let ((#{e 23073}# (cdr (car #{body 23066}#)))
+ (#{er 23074}# (car (car #{body 23066}#))))
(call-with-values
(lambda ()
- (#{syntax-type 4332}#
- #{e 23943}#
- #{er 23944}#
+ (#{syntax-type 4333}#
+ #{e 23073}#
+ #{er 23074}#
'(())
- (#{source-annotation 4294}# #{er 23944}#)
- #{ribcage 23921}#
- #{mod 23919}#
+ (#{source-annotation 4295}# #{er 23074}#)
+ #{ribcage 23051}#
+ #{mod 23049}#
#f))
- (lambda (#{type 24120}#
- #{value 24121}#
- #{e 24122}#
- #{w 24123}#
- #{s 24124}#
- #{mod 24125}#)
- (if (eqv? #{type 24120}# 'define-form)
- (let ((#{id 24129}#
- (#{wrap 4326}#
- #{value 24121}#
- #{w 24123}#
- #{mod 24125}#))
- (#{label 24130}#
+ (lambda (#{type 23231}#
+ #{value 23232}#
+ #{e 23233}#
+ #{w 23234}#
+ #{s 23235}#
+ #{mod 23236}#)
+ (if (eqv? #{type 23231}# 'define-form)
+ (let ((#{id 23240}#
+ (#{wrap 4327}#
+ #{value 23232}#
+ #{w 23234}#
+ #{mod 23236}#))
+ (#{label 23241}#
(symbol->string (gensym "i"))))
- (let ((#{var 24131}#
- (let ((#{id 24191}#
- (if (if (vector? #{id 24129}#)
+ (let ((#{var 23242}#
+ (let ((#{id 23302}#
+ (if (if (vector? #{id 23240}#)
(if (= (vector-length
- #{id 24129}#)
+ #{id 23240}#)
4)
(eq? (vector-ref
- #{id 24129}#
+ #{id 23240}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 24129}# 1)
- #{id 24129}#)))
+ (vector-ref #{id 23240}# 1)
+ #{id 23240}#)))
(gensym
(string-append
- (symbol->string #{id 24191}#)
+ (symbol->string #{id 23302}#)
" ")))))
(begin
- (let ((#{update 24181}#
- (cons (vector-ref #{id 24129}# 1)
+ (let ((#{update 23292}#
+ (cons (vector-ref #{id 23240}# 1)
(vector-ref
- #{ribcage 23921}#
+ #{ribcage 23051}#
1))))
(vector-set!
- #{ribcage 23921}#
+ #{ribcage 23051}#
1
- #{update 24181}#))
- (let ((#{update 24183}#
+ #{update 23292}#))
+ (let ((#{update 23294}#
(cons (car (vector-ref
- #{id 24129}#
+ #{id 23240}#
2))
(vector-ref
- #{ribcage 23921}#
+ #{ribcage 23051}#
2))))
(vector-set!
- #{ribcage 23921}#
+ #{ribcage 23051}#
2
- #{update 24183}#))
- (let ((#{update 24185}#
- (cons #{label 24130}#
+ #{update 23294}#))
+ (let ((#{update 23296}#
+ (cons #{label 23241}#
(vector-ref
- #{ribcage 23921}#
+ #{ribcage 23051}#
3))))
(vector-set!
- #{ribcage 23921}#
+ #{ribcage 23051}#
3
- #{update 24185}#))
- (#{parse 23923}#
- (cdr #{body 23936}#)
- (cons #{id 24129}# #{ids 23937}#)
- (cons #{label 24130}# #{labels 23938}#)
- (cons #{id 24129}# #{var-ids 23939}#)
- (cons #{var 24131}# #{vars 23940}#)
- (cons (cons #{er 23944}#
- (#{wrap 4326}#
- #{e 24122}#
- #{w 24123}#
- #{mod 24125}#))
- #{vals 23941}#)
- (cons (cons 'lexical #{var 24131}#)
- #{bindings 23942}#)))))
- (if (eqv? #{type 24120}# 'define-syntax-form)
- (let ((#{id 24219}#
- (#{wrap 4326}#
- #{value 24121}#
- #{w 24123}#
- #{mod 24125}#))
- (#{label 24220}#
+ #{update 23296}#))
+ (#{parse 23053}#
+ (cdr #{body 23066}#)
+ (cons #{id 23240}# #{ids 23067}#)
+ (cons #{label 23241}# #{labels 23068}#)
+ (cons #{id 23240}# #{var-ids 23069}#)
+ (cons #{var 23242}# #{vars 23070}#)
+ (cons (cons #{er 23074}#
+ (#{wrap 4327}#
+ #{e 23233}#
+ #{w 23234}#
+ #{mod 23236}#))
+ #{vals 23071}#)
+ (cons (cons 'lexical #{var 23242}#)
+ #{bindings 23072}#)))))
+ (if (eqv? #{type 23231}# 'define-syntax-form)
+ (let ((#{id 23330}#
+ (#{wrap 4327}#
+ #{value 23232}#
+ #{w 23234}#
+ #{mod 23236}#))
+ (#{label 23331}#
(symbol->string (gensym "i"))))
(begin
- (let ((#{update 24270}#
- (cons (vector-ref #{id 24219}# 1)
+ (let ((#{update 23381}#
+ (cons (vector-ref #{id 23330}# 1)
(vector-ref
- #{ribcage 23921}#
+ #{ribcage 23051}#
1))))
(vector-set!
- #{ribcage 23921}#
+ #{ribcage 23051}#
1
- #{update 24270}#))
- (let ((#{update 24272}#
+ #{update 23381}#))
+ (let ((#{update 23383}#
(cons (car (vector-ref
- #{id 24219}#
+ #{id 23330}#
2))
(vector-ref
- #{ribcage 23921}#
+ #{ribcage 23051}#
2))))
(vector-set!
- #{ribcage 23921}#
+ #{ribcage 23051}#
2
- #{update 24272}#))
- (let ((#{update 24274}#
- (cons #{label 24220}#
+ #{update 23383}#))
+ (let ((#{update 23385}#
+ (cons #{label 23331}#
(vector-ref
- #{ribcage 23921}#
+ #{ribcage 23051}#
3))))
(vector-set!
- #{ribcage 23921}#
+ #{ribcage 23051}#
3
- #{update 24274}#))
- (#{parse 23923}#
- (cdr #{body 23936}#)
- (cons #{id 24219}# #{ids 23937}#)
- (cons #{label 24220}# #{labels 23938}#)
- #{var-ids 23939}#
- #{vars 23940}#
- #{vals 23941}#
+ #{update 23385}#))
+ (#{parse 23053}#
+ (cdr #{body 23066}#)
+ (cons #{id 23330}# #{ids 23067}#)
+ (cons #{label 23331}# #{labels 23068}#)
+ #{var-ids 23069}#
+ #{vars 23070}#
+ #{vals 23071}#
(cons (cons 'macro
- (cons #{er 23944}#
- (#{wrap 4326}#
- #{e 24122}#
- #{w 24123}#
- #{mod 24125}#)))
- #{bindings 23942}#))))
- (if (eqv? #{type 24120}# 'begin-form)
- (let ((#{tmp 24282}#
+ (cons #{er 23074}#
+ (#{wrap 4327}#
+ #{e 23233}#
+ #{w 23234}#
+ #{mod 23236}#)))
+ #{bindings 23072}#))))
+ (if (eqv? #{type 23231}# 'begin-form)
+ (let ((#{tmp 23393}#
($sc-dispatch
- #{e 24122}#
+ #{e 23233}#
'(_ . each-any))))
- (if #{tmp 24282}#
+ (if #{tmp 23393}#
(@apply
- (lambda (#{e1 24286}#)
- (#{parse 23923}#
+ (lambda (#{e1 23397}#)
+ (#{parse 23053}#
(letrec*
- ((#{f 24287}#
- (lambda (#{forms 24350}#)
- (if (null? #{forms 24350}#)
- (cdr #{body 23936}#)
- (cons (cons #{er 23944}#
- (#{wrap 4326}#
- (car
#{forms 24350}#)
- #{w 24123}#
- #{mod
24125}#))
- (#{f 24287}#
- (cdr #{forms
24350}#)))))))
- (#{f 24287}# #{e1 24286}#))
- #{ids 23937}#
- #{labels 23938}#
- #{var-ids 23939}#
- #{vars 23940}#
- #{vals 23941}#
- #{bindings 23942}#))
- #{tmp 24282}#)
+ ((#{f 23398}#
+ (lambda (#{forms 23461}#)
+ (if (null? #{forms 23461}#)
+ (cdr #{body 23066}#)
+ (cons (cons #{er 23074}#
+ (#{wrap 4327}#
+ (car
#{forms 23461}#)
+ #{w 23234}#
+ #{mod
23236}#))
+ (#{f 23398}#
+ (cdr #{forms
23461}#)))))))
+ (#{f 23398}# #{e1 23397}#))
+ #{ids 23067}#
+ #{labels 23068}#
+ #{var-ids 23069}#
+ #{vars 23070}#
+ #{vals 23071}#
+ #{bindings 23072}#))
+ #{tmp 23393}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 24122}#)))
- (if (eqv? #{type 24120}# 'local-syntax-form)
- (#{expand-local-syntax 4338}#
- #{value 24121}#
- #{e 24122}#
- #{er 23944}#
- #{w 24123}#
- #{s 24124}#
- #{mod 24125}#
- (lambda (#{forms 24364}#
- #{er 24365}#
- #{w 24366}#
- #{s 24367}#
- #{mod 24368}#)
- (#{parse 23923}#
+ #{e 23233}#)))
+ (if (eqv? #{type 23231}# 'local-syntax-form)
+ (#{expand-local-syntax 4339}#
+ #{value 23232}#
+ #{e 23233}#
+ #{er 23074}#
+ #{w 23234}#
+ #{s 23235}#
+ #{mod 23236}#
+ (lambda (#{forms 23475}#
+ #{er 23476}#
+ #{w 23477}#
+ #{s 23478}#
+ #{mod 23479}#)
+ (#{parse 23053}#
(letrec*
- ((#{f 24369}#
- (lambda (#{forms 24432}#)
- (if (null? #{forms 24432}#)
- (cdr #{body 23936}#)
- (cons (cons #{er 24365}#
- (#{wrap 4326}#
- (car #{forms
24432}#)
- #{w 24366}#
- #{mod
24368}#))
- (#{f 24369}#
- (cdr #{forms
24432}#)))))))
- (#{f 24369}# #{forms 24364}#))
- #{ids 23937}#
- #{labels 23938}#
- #{var-ids 23939}#
- #{vars 23940}#
- #{vals 23941}#
- #{bindings 23942}#)))
- (if (null? #{ids 23937}#)
- (#{build-sequence 4282}#
+ ((#{f 23480}#
+ (lambda (#{forms 23543}#)
+ (if (null? #{forms 23543}#)
+ (cdr #{body 23066}#)
+ (cons (cons #{er 23476}#
+ (#{wrap 4327}#
+ (car #{forms
23543}#)
+ #{w 23477}#
+ #{mod
23479}#))
+ (#{f 23480}#
+ (cdr #{forms
23543}#)))))))
+ (#{f 23480}# #{forms 23475}#))
+ #{ids 23067}#
+ #{labels 23068}#
+ #{var-ids 23069}#
+ #{vars 23070}#
+ #{vals 23071}#
+ #{bindings 23072}#)))
+ (if (null? #{ids 23067}#)
+ (#{build-sequence 4283}#
#f
- (map (lambda (#{x 24502}#)
- (#{expand 4333}#
- (cdr #{x 24502}#)
- (car #{x 24502}#)
- '(())
- #{mod 24125}#))
- (cons (cons #{er 23944}#
- (#{wrap 4326}#
+ (map (lambda (#{x 23608}#)
+ (let ((#{e 23612}#
+ (cdr #{x 23608}#))
+ (#{r 23613}#
+ (car #{x 23608}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4333}#
+ #{e 23612}#
+ #{r 23613}#
+ '(())
+ (#{source-annotation
4295}#
+ #{e 23612}#)
+ #f
+ #{mod 23236}#
+ #f))
+ (lambda (#{type 23617}#
+ #{value 23618}#
+ #{e 23619}#
+ #{w 23620}#
+ #{s 23621}#
+ #{mod 23622}#)
+ (#{expand-expr 4335}#
+ #{type 23617}#
+ #{value 23618}#
+ #{e 23619}#
+ #{r 23613}#
+ #{w 23620}#
+ #{s 23621}#
+ #{mod 23622}#)))))
+ (cons (cons #{er 23074}#
+ (#{wrap 4327}#
(begin
- (if (if (pair?
#{e 24122}#)
- #{s 24124}#
+ (if (if (pair?
#{e 23233}#)
+ #{s 23235}#
#f)
(set-source-properties!
- #{e 24122}#
- #{s 24124}#))
- #{e 24122}#)
- #{w 24123}#
- #{mod 24125}#))
- (cdr #{body 23936}#))))
+ #{e 23233}#
+ #{s 23235}#))
+ #{e 23233}#)
+ #{w 23234}#
+ #{mod 23236}#))
+ (cdr #{body 23066}#))))
(begin
- (if (not (#{valid-bound-ids? 4323}#
- #{ids 23937}#))
+ (if (not (#{valid-bound-ids? 4324}#
+ #{ids 23067}#))
(syntax-violation
#f
"invalid or duplicate identifier
in definition"
- #{outer-form 23916}#))
+ #{outer-form 23046}#))
(letrec*
- ((#{loop 24664}#
- (lambda (#{bs 24667}#
- #{er-cache 24668}#
- #{r-cache 24669}#)
- (if (not (null? #{bs 24667}#))
- (let ((#{b 24670}#
- (car #{bs 24667}#)))
- (if (eq? (car #{b 24670}#)
+ ((#{loop 23723}#
+ (lambda (#{bs 23726}#
+ #{er-cache 23727}#
+ #{r-cache 23728}#)
+ (if (not (null? #{bs 23726}#))
+ (let ((#{b 23729}#
+ (car #{bs 23726}#)))
+ (if (eq? (car #{b 23729}#)
'macro)
- (let ((#{er 24672}#
- (car (cdr #{b
24670}#))))
- (let ((#{r-cache 24673}#
- (if (eq? #{er
24672}#
-
#{er-cache 24668}#)
- #{r-cache
24669}#
-
(#{macros-only-env 4297}#
- #{er
24672}#))))
+ (let ((#{er 23731}#
+ (car (cdr #{b
23729}#))))
+ (let ((#{r-cache 23732}#
+ (if (eq? #{er
23731}#
+
#{er-cache 23727}#)
+ #{r-cache
23728}#
+
(#{macros-only-env 4298}#
+ #{er
23731}#))))
(begin
(set-cdr!
- #{b 24670}#
-
(#{eval-local-transformer 4339}#
- (#{expand 4333}#
- (cdr (cdr #{b
24670}#))
- #{r-cache
24673}#
+ #{b 23729}#
+
(#{eval-local-transformer 4340}#
+ (#{expand 4334}#
+ (cdr (cdr #{b
23729}#))
+ #{r-cache
23732}#
'(())
- #{mod 24125}#)
- #{mod 24125}#))
- (#{loop 24664}#
- (cdr #{bs 24667}#)
- #{er 24672}#
- #{r-cache
24673}#))))
- (#{loop 24664}#
- (cdr #{bs 24667}#)
- #{er-cache 24668}#
- #{r-cache 24669}#)))))))
- (#{loop 24664}#
- #{bindings 23942}#
+ #{mod 23236}#)
+ #{mod 23236}#))
+ (#{loop 23723}#
+ (cdr #{bs 23726}#)
+ #{er 23731}#
+ #{r-cache
23732}#))))
+ (#{loop 23723}#
+ (cdr #{bs 23726}#)
+ #{er-cache 23727}#
+ #{r-cache 23728}#)))))))
+ (#{loop 23723}#
+ #{bindings 23072}#
#f
#f))
(set-cdr!
- #{r 23920}#
- (#{extend-env 4295}#
- #{labels 23938}#
- #{bindings 23942}#
- (cdr #{r 23920}#)))
- (#{build-letrec 4285}#
+ #{r 23050}#
+ (#{extend-env 4296}#
+ #{labels 23068}#
+ #{bindings 23072}#
+ (cdr #{r 23050}#)))
+ (#{build-letrec 4286}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 23939}#))
- (reverse #{vars 23940}#)
- (map (lambda (#{x 25026}#)
- (#{expand 4333}#
- (cdr #{x 25026}#)
- (car #{x 25026}#)
- '(())
- #{mod 24125}#))
- (reverse #{vals 23941}#))
- (#{build-sequence 4282}#
- #f
- (map (lambda (#{x 25156}#)
- (#{expand 4333}#
- (cdr #{x 25156}#)
- (car #{x 25156}#)
- '(())
- #{mod 24125}#))
- (cons (cons #{er 23944}#
- (#{wrap 4326}#
- (begin
- (if (if
(pair? #{e 24122}#)
- #{s
24124}#
- #f)
-
(set-source-properties!
- #{e
24122}#
- #{s
24124}#))
- #{e 24122}#)
- #{w 24123}#
- #{mod 24125}#))
- (cdr #{body
23936}#))))))))))))))))))
- (#{parse 23923}#
- (map (lambda (#{x 23926}#)
- (cons #{r 23920}#
- (#{wrap 4326}#
- #{x 23926}#
- #{w 23922}#
- #{mod 23919}#)))
- #{body 23915}#)
+ #{var-ids 23069}#))
+ (reverse #{vars 23070}#)
+ (map (lambda (#{x 24075}#)
+ (let ((#{e 24079}#
+ (cdr #{x 24075}#))
+ (#{r 24080}#
+ (car #{x 24075}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4333}#
+ #{e 24079}#
+ #{r 24080}#
+ '(())
+ (#{source-annotation
4295}#
+ #{e 24079}#)
+ #f
+ #{mod 23236}#
+ #f))
+ (lambda (#{type 24084}#
+ #{value 24085}#
+ #{e 24086}#
+ #{w 24087}#
+ #{s 24088}#
+ #{mod 24089}#)
+ (#{expand-expr 4335}#
+ #{type 24084}#
+ #{value 24085}#
+ #{e 24086}#
+ #{r 24080}#
+ #{w 24087}#
+ #{s 24088}#
+ #{mod 24089}#)))))
+ (reverse #{vals 23071}#))
+ (let ((#{exps 24095}#
+ (map (lambda (#{x 24096}#)
+ (let ((#{e 24099}#
+ (cdr #{x
24096}#))
+ (#{r 24100}#
+ (car #{x
24096}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type
4333}#
+ #{e 24099}#
+ #{r 24100}#
+ '(())
+
(#{source-annotation 4295}#
+ #{e 24099}#)
+ #f
+ #{mod 23236}#
+ #f))
+ (lambda (#{type
24104}#
+ #{value
24105}#
+ #{e
24106}#
+ #{w
24107}#
+ #{s
24108}#
+ #{mod
24109}#)
+ (#{expand-expr
4335}#
+ #{type 24104}#
+ #{value
24105}#
+ #{e 24106}#
+ #{r 24100}#
+ #{w 24107}#
+ #{s 24108}#
+ #{mod
24109}#)))))
+ (cons (cons #{er 23074}#
+ (#{wrap
4327}#
+ (begin
+ (if (if
(pair? #{e 23233}#)
+
#{s 23235}#
+
#f)
+
(set-source-properties!
+ #{e
23233}#
+ #{s
23235}#))
+ #{e
23233}#)
+ #{w
23234}#
+ #{mod
23236}#))
+ (cdr #{body
23066}#)))))
+ (if (null? (cdr #{exps 24095}#))
+ (car #{exps 24095}#)
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 12)
+ #f
+ #{exps 24095}#)))))))))))))))))
+ (#{parse 23053}#
+ (map (lambda (#{x 23056}#)
+ (cons #{r 23050}#
+ (#{wrap 4327}#
+ #{x 23056}#
+ #{w 23052}#
+ #{mod 23049}#)))
+ #{body 23045}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax 4338}#
- (lambda (#{rec? 25241}#
- #{e 25242}#
- #{r 25243}#
- #{w 25244}#
- #{s 25245}#
- #{mod 25246}#
- #{k 25247}#)
- (let ((#{tmp 25249}#
+ (#{expand-local-syntax 4339}#
+ (lambda (#{rec? 24135}#
+ #{e 24136}#
+ #{r 24137}#
+ #{w 24138}#
+ #{s 24139}#
+ #{mod 24140}#
+ #{k 24141}#)
+ (let ((#{tmp 24143}#
($sc-dispatch
- #{e 25242}#
+ #{e 24136}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 25249}#
+ (if #{tmp 24143}#
(@apply
- (lambda (#{id 25253}#
- #{val 25254}#
- #{e1 25255}#
- #{e2 25256}#)
- (if (not (#{valid-bound-ids? 4323}# #{id 25253}#))
+ (lambda (#{id 24147}#
+ #{val 24148}#
+ #{e1 24149}#
+ #{e2 24150}#)
+ (if (not (#{valid-bound-ids? 4324}# #{id 24147}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 25242}#)
- (let ((#{labels 25346}#
- (#{gen-labels 4304}# #{id 25253}#)))
- (let ((#{new-w 25347}#
- (#{make-binding-wrap 4315}#
- #{id 25253}#
- #{labels 25346}#
- #{w 25244}#)))
- (#{k 25247}#
- (cons #{e1 25255}# #{e2 25256}#)
- (#{extend-env 4295}#
- #{labels 25346}#
- (let ((#{trans-r 25385}#
- (#{macros-only-env 4297}# #{r 25243}#)))
+ #{e 24136}#)
+ (let ((#{labels 24240}#
+ (#{gen-labels 4305}# #{id 24147}#)))
+ (let ((#{new-w 24241}#
+ (#{make-binding-wrap 4316}#
+ #{id 24147}#
+ #{labels 24240}#
+ #{w 24138}#)))
+ (#{k 24141}#
+ (cons #{e1 24149}# #{e2 24150}#)
+ (#{extend-env 4296}#
+ #{labels 24240}#
+ (let ((#{trans-r 24279}#
+ (#{macros-only-env 4298}# #{r 24137}#)))
(begin
- (if #{rec? 25241}# (if #f #f))
- (map (lambda (#{x 25386}#)
+ (if #{rec? 24135}# #{new-w 24241}# #{w 24138}#)
+ (map (lambda (#{x 24280}#)
(cons 'macro
- (#{eval-local-transformer 4339}#
- (#{expand 4333}#
- #{x 25386}#
- #{trans-r 25385}#
- (if #{rec? 25241}#
- #{new-w 25347}#
- #{w 25244}#)
- #{mod 25246}#)
- #{mod 25246}#)))
- #{val 25254}#)))
- #{r 25243}#)
- #{new-w 25347}#
- #{s 25245}#
- #{mod 25246}#)))))
- #{tmp 25249}#)
+ (#{eval-local-transformer 4340}#
+ (#{expand 4334}#
+ #{x 24280}#
+ #{trans-r 24279}#
+ (values
+ (if #{rec? 24135}#
+ #{new-w 24241}#
+ #{w 24138}#))
+ #{mod 24140}#)
+ #{mod 24140}#)))
+ #{val 24148}#)))
+ #{r 24137}#)
+ #{new-w 24241}#
+ #{s 24139}#
+ #{mod 24140}#)))))
+ #{tmp 24143}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 25242}#) #{s 25245}# #f)
- (set-source-properties! #{e 25242}# #{s 25245}#))
- #{e 25242}#)
- #{w 25244}#
- #{mod 25246}#))))))
- (#{eval-local-transformer 4339}#
- (lambda (#{expanded 25687}# #{mod 25688}#)
- (let ((#{p 25689}# (primitive-eval #{expanded 25687}#)))
- (if (procedure? #{p 25689}#)
- #{p 25689}#
+ (if (if (pair? #{e 24136}#) #{s 24139}# #f)
+ (set-source-properties! #{e 24136}# #{s 24139}#))
+ #{e 24136}#)
+ #{w 24138}#
+ #{mod 24140}#))))))
+ (#{eval-local-transformer 4340}#
+ (lambda (#{expanded 24576}# #{mod 24577}#)
+ (let ((#{p 24578}# (primitive-eval #{expanded 24576}#)))
+ (if (procedure? #{p 24578}#)
+ #{p 24578}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 25689}#)))))
- (#{ellipsis? 4341}#
- (lambda (#{x 5147}#)
- (if (if (if (vector? #{x 5147}#)
- (if (= (vector-length #{x 5147}#) 4)
- (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
+ #{p 24578}#)))))
+ (#{ellipsis? 4342}#
+ (lambda (#{x 5143}#)
+ (if (if (if (vector? #{x 5143}#)
+ (if (= (vector-length #{x 5143}#) 4)
+ (eq? (vector-ref #{x 5143}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 5147}# 1))
+ (symbol? (vector-ref #{x 5143}# 1))
#f)
- (if (eq? (if (if (vector? #{x 5147}#)
- (if (= (vector-length #{x 5147}#) 4)
- (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
+ (if (eq? (if (if (vector? #{x 5143}#)
+ (if (= (vector-length #{x 5143}#) 4)
+ (eq? (vector-ref #{x 5143}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x 5147}# 1)
- #{x 5147}#)
+ (vector-ref #{x 5143}# 1)
+ #{x 5143}#)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2218"))
+ #(ribcage #(x) #((top)) #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -5005,7 +5117,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2218"))
+ #(ribcage #(x) #((top)) #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -5422,14 +5534,14 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4320}# #{x 5147}# '(()))
- (#{id-var-name 4320}#
+ (eq? (#{id-var-name 4321}# #{x 5143}# '(()))
+ (#{id-var-name 4321}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2218"))
+ #(ribcage #(x) #((top)) #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -5849,300 +5961,300 @@
'(())))
#f)
#f)))
- (#{lambda-formals 4342}#
- (lambda (#{orig-args 25694}#)
+ (#{lambda-formals 4343}#
+ (lambda (#{orig-args 24583}#)
(letrec*
- ((#{req 25695}#
- (lambda (#{args 25699}# #{rreq 25700}#)
- (let ((#{tmp 25702}# ($sc-dispatch #{args 25699}# '())))
- (if #{tmp 25702}#
+ ((#{req 24584}#
+ (lambda (#{args 24588}# #{rreq 24589}#)
+ (let ((#{tmp 24591}# ($sc-dispatch #{args 24588}# '())))
+ (if #{tmp 24591}#
(@apply
(lambda ()
- (#{check 25696}# (reverse #{rreq 25700}#) #f))
- #{tmp 25702}#)
- (let ((#{tmp 25829}#
- ($sc-dispatch #{args 25699}# '(any . any))))
- (if (if #{tmp 25829}#
+ (#{check 24585}# (reverse #{rreq 24589}#) #f))
+ #{tmp 24591}#)
+ (let ((#{tmp 24714}#
+ ($sc-dispatch #{args 24588}# '(any . any))))
+ (if (if #{tmp 24714}#
(@apply
- (lambda (#{a 25833}# #{b 25834}#)
- (if (symbol? #{a 25833}#)
+ (lambda (#{a 24718}# #{b 24719}#)
+ (if (symbol? #{a 24718}#)
#t
- (if (if (vector? #{a 25833}#)
- (if (= (vector-length #{a 25833}#) 4)
- (eq? (vector-ref #{a 25833}# 0)
+ (if (if (vector? #{a 24718}#)
+ (if (= (vector-length #{a 24718}#) 4)
+ (eq? (vector-ref #{a 24718}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 25833}# 1))
+ (symbol? (vector-ref #{a 24718}# 1))
#f)))
- #{tmp 25829}#)
+ #{tmp 24714}#)
#f)
(@apply
- (lambda (#{a 25861}# #{b 25862}#)
- (#{req 25695}#
- #{b 25862}#
- (cons #{a 25861}# #{rreq 25700}#)))
- #{tmp 25829}#)
- (let ((#{tmp 25863}# (list #{args 25699}#)))
+ (lambda (#{a 24746}# #{b 24747}#)
+ (#{req 24584}#
+ #{b 24747}#
+ (cons #{a 24746}# #{rreq 24589}#)))
+ #{tmp 24714}#)
+ (let ((#{tmp 24748}# (list #{args 24588}#)))
(if (@apply
- (lambda (#{r 25865}#)
- (if (symbol? #{r 25865}#)
+ (lambda (#{r 24750}#)
+ (if (symbol? #{r 24750}#)
#t
- (if (if (vector? #{r 25865}#)
- (if (= (vector-length #{r 25865}#) 4)
- (eq? (vector-ref #{r 25865}# 0)
+ (if (if (vector? #{r 24750}#)
+ (if (= (vector-length #{r 24750}#) 4)
+ (eq? (vector-ref #{r 24750}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 25865}# 1))
+ (symbol? (vector-ref #{r 24750}# 1))
#f)))
- #{tmp 25863}#)
+ #{tmp 24748}#)
(@apply
- (lambda (#{r 25895}#)
- (#{check 25696}#
- (reverse #{rreq 25700}#)
- #{r 25895}#))
- #{tmp 25863}#)
+ (lambda (#{r 24780}#)
+ (#{check 24585}#
+ (reverse #{rreq 24589}#)
+ #{r 24780}#))
+ #{tmp 24748}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 25694}#
- #{args 25699}#)))))))))
- (#{check 25696}#
- (lambda (#{req 26030}# #{rest 26031}#)
- (if (#{distinct-bound-ids? 4324}#
- (if #{rest 26031}#
- (cons #{rest 26031}# #{req 26030}#)
- #{req 26030}#))
- (values #{req 26030}# #f #{rest 26031}# #f)
+ #{orig-args 24583}#
+ #{args 24588}#)))))))))
+ (#{check 24585}#
+ (lambda (#{req 24911}# #{rest 24912}#)
+ (if (#{distinct-bound-ids? 4325}#
+ (if #{rest 24912}#
+ (cons #{rest 24912}# #{req 24911}#)
+ #{req 24911}#))
+ (values #{req 24911}# #f #{rest 24912}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 25694}#)))))
- (#{req 25695}# #{orig-args 25694}# '()))))
- (#{expand-simple-lambda 4343}#
- (lambda (#{e 26151}#
- #{r 26152}#
- #{w 26153}#
- #{s 26154}#
- #{mod 26155}#
- #{req 26156}#
- #{rest 26157}#
- #{meta 26158}#
- #{body 26159}#)
- (let ((#{ids 26160}#
- (if #{rest 26157}#
- (append #{req 26156}# (list #{rest 26157}#))
- #{req 26156}#)))
- (let ((#{vars 26161}#
- (map #{gen-var 4347}# #{ids 26160}#)))
- (let ((#{labels 26162}#
- (#{gen-labels 4304}# #{ids 26160}#)))
- (#{build-simple-lambda 4277}#
- #{s 26154}#
- (map syntax->datum #{req 26156}#)
- (if #{rest 26157}#
- (syntax->datum #{rest 26157}#)
+ #{orig-args 24583}#)))))
+ (#{req 24584}# #{orig-args 24583}# '()))))
+ (#{expand-simple-lambda 4344}#
+ (lambda (#{e 25028}#
+ #{r 25029}#
+ #{w 25030}#
+ #{s 25031}#
+ #{mod 25032}#
+ #{req 25033}#
+ #{rest 25034}#
+ #{meta 25035}#
+ #{body 25036}#)
+ (let ((#{ids 25037}#
+ (if #{rest 25034}#
+ (append #{req 25033}# (list #{rest 25034}#))
+ #{req 25033}#)))
+ (let ((#{vars 25038}#
+ (map #{gen-var 4348}# #{ids 25037}#)))
+ (let ((#{labels 25039}#
+ (#{gen-labels 4305}# #{ids 25037}#)))
+ (#{build-simple-lambda 4278}#
+ #{s 25031}#
+ (map syntax->datum #{req 25033}#)
+ (if #{rest 25034}#
+ (syntax->datum #{rest 25034}#)
#f)
- #{vars 26161}#
- #{meta 26158}#
- (#{expand-body 4337}#
- #{body 26159}#
- (#{wrap 4326}#
+ #{vars 25038}#
+ #{meta 25035}#
+ (#{expand-body 4338}#
+ #{body 25036}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 26151}#) #{s 26154}# #f)
- (set-source-properties! #{e 26151}# #{s 26154}#))
- #{e 26151}#)
- #{w 26153}#
- #{mod 26155}#)
- (#{extend-var-env 4296}#
- #{labels 26162}#
- #{vars 26161}#
- #{r 26152}#)
- (#{make-binding-wrap 4315}#
- #{ids 26160}#
- #{labels 26162}#
- #{w 26153}#)
- #{mod 26155}#)))))))
- (#{lambda*-formals 4344}#
- (lambda (#{orig-args 26462}#)
+ (if (if (pair? #{e 25028}#) #{s 25031}# #f)
+ (set-source-properties! #{e 25028}# #{s 25031}#))
+ #{e 25028}#)
+ #{w 25030}#
+ #{mod 25032}#)
+ (#{extend-var-env 4297}#
+ #{labels 25039}#
+ #{vars 25038}#
+ #{r 25029}#)
+ (#{make-binding-wrap 4316}#
+ #{ids 25037}#
+ #{labels 25039}#
+ #{w 25030}#)
+ #{mod 25032}#)))))))
+ (#{lambda*-formals 4345}#
+ (lambda (#{orig-args 25339}#)
(letrec*
- ((#{req 26463}#
- (lambda (#{args 26470}# #{rreq 26471}#)
- (let ((#{tmp 26473}# ($sc-dispatch #{args 26470}# '())))
- (if #{tmp 26473}#
+ ((#{req 25340}#
+ (lambda (#{args 25347}# #{rreq 25348}#)
+ (let ((#{tmp 25350}# ($sc-dispatch #{args 25347}# '())))
+ (if #{tmp 25350}#
(@apply
(lambda ()
- (#{check 26467}#
- (reverse #{rreq 26471}#)
+ (#{check 25344}#
+ (reverse #{rreq 25348}#)
'()
#f
'()))
- #{tmp 26473}#)
- (let ((#{tmp 26479}#
- ($sc-dispatch #{args 26470}# '(any . any))))
- (if (if #{tmp 26479}#
+ #{tmp 25350}#)
+ (let ((#{tmp 25356}#
+ ($sc-dispatch #{args 25347}# '(any . any))))
+ (if (if #{tmp 25356}#
(@apply
- (lambda (#{a 26483}# #{b 26484}#)
- (if (symbol? #{a 26483}#)
+ (lambda (#{a 25360}# #{b 25361}#)
+ (if (symbol? #{a 25360}#)
#t
- (if (if (vector? #{a 26483}#)
- (if (= (vector-length #{a 26483}#) 4)
- (eq? (vector-ref #{a 26483}# 0)
+ (if (if (vector? #{a 25360}#)
+ (if (= (vector-length #{a 25360}#) 4)
+ (eq? (vector-ref #{a 25360}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26483}# 1))
+ (symbol? (vector-ref #{a 25360}# 1))
#f)))
- #{tmp 26479}#)
+ #{tmp 25356}#)
#f)
(@apply
- (lambda (#{a 26511}# #{b 26512}#)
- (#{req 26463}#
- #{b 26512}#
- (cons #{a 26511}# #{rreq 26471}#)))
- #{tmp 26479}#)
- (let ((#{tmp 26513}#
- ($sc-dispatch #{args 26470}# '(any . any))))
- (if (if #{tmp 26513}#
+ (lambda (#{a 25388}# #{b 25389}#)
+ (#{req 25340}#
+ #{b 25389}#
+ (cons #{a 25388}# #{rreq 25348}#)))
+ #{tmp 25356}#)
+ (let ((#{tmp 25390}#
+ ($sc-dispatch #{args 25347}# '(any . any))))
+ (if (if #{tmp 25390}#
(@apply
- (lambda (#{a 26517}# #{b 26518}#)
- (eq? (syntax->datum #{a 26517}#) #:optional))
- #{tmp 26513}#)
+ (lambda (#{a 25394}# #{b 25395}#)
+ (eq? (syntax->datum #{a 25394}#) #:optional))
+ #{tmp 25390}#)
#f)
(@apply
- (lambda (#{a 26519}# #{b 26520}#)
- (#{opt 26464}#
- #{b 26520}#
- (reverse #{rreq 26471}#)
+ (lambda (#{a 25396}# #{b 25397}#)
+ (#{opt 25341}#
+ #{b 25397}#
+ (reverse #{rreq 25348}#)
'()))
- #{tmp 26513}#)
- (let ((#{tmp 26523}#
- ($sc-dispatch #{args 26470}# '(any . any))))
- (if (if #{tmp 26523}#
+ #{tmp 25390}#)
+ (let ((#{tmp 25400}#
+ ($sc-dispatch #{args 25347}# '(any . any))))
+ (if (if #{tmp 25400}#
(@apply
- (lambda (#{a 26527}# #{b 26528}#)
- (eq? (syntax->datum #{a 26527}#) #:key))
- #{tmp 26523}#)
+ (lambda (#{a 25404}# #{b 25405}#)
+ (eq? (syntax->datum #{a 25404}#) #:key))
+ #{tmp 25400}#)
#f)
(@apply
- (lambda (#{a 26529}# #{b 26530}#)
- (#{key 26465}#
- #{b 26530}#
- (reverse #{rreq 26471}#)
+ (lambda (#{a 25406}# #{b 25407}#)
+ (#{key 25342}#
+ #{b 25407}#
+ (reverse #{rreq 25348}#)
'()
'()))
- #{tmp 26523}#)
- (let ((#{tmp 26533}#
+ #{tmp 25400}#)
+ (let ((#{tmp 25410}#
($sc-dispatch
- #{args 26470}#
+ #{args 25347}#
'(any any))))
- (if (if #{tmp 26533}#
+ (if (if #{tmp 25410}#
(@apply
- (lambda (#{a 26537}# #{b 26538}#)
- (eq? (syntax->datum #{a 26537}#)
+ (lambda (#{a 25414}# #{b 25415}#)
+ (eq? (syntax->datum #{a 25414}#)
#:rest))
- #{tmp 26533}#)
+ #{tmp 25410}#)
#f)
(@apply
- (lambda (#{a 26539}# #{b 26540}#)
- (#{rest 26466}#
- #{b 26540}#
- (reverse #{rreq 26471}#)
+ (lambda (#{a 25416}# #{b 25417}#)
+ (#{rest 25343}#
+ #{b 25417}#
+ (reverse #{rreq 25348}#)
'()
'()))
- #{tmp 26533}#)
- (let ((#{tmp 26543}# (list #{args 26470}#)))
+ #{tmp 25410}#)
+ (let ((#{tmp 25420}# (list #{args 25347}#)))
(if (@apply
- (lambda (#{r 26545}#)
- (if (symbol? #{r 26545}#)
+ (lambda (#{r 25422}#)
+ (if (symbol? #{r 25422}#)
#t
- (if (if (vector? #{r 26545}#)
+ (if (if (vector? #{r 25422}#)
(if (= (vector-length
- #{r 26545}#)
+ #{r 25422}#)
4)
(eq? (vector-ref
- #{r 26545}#
+ #{r 25422}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 26545}# 1))
+ (vector-ref #{r 25422}# 1))
#f)))
- #{tmp 26543}#)
+ #{tmp 25420}#)
(@apply
- (lambda (#{r 26575}#)
- (#{rest 26466}#
- #{r 26575}#
- (reverse #{rreq 26471}#)
+ (lambda (#{r 25452}#)
+ (#{rest 25343}#
+ #{r 25452}#
+ (reverse #{rreq 25348}#)
'()
'()))
- #{tmp 26543}#)
+ #{tmp 25420}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 26462}#
- #{args 26470}#)))))))))))))))
- (#{opt 26464}#
- (lambda (#{args 26594}# #{req 26595}# #{ropt 26596}#)
- (let ((#{tmp 26598}# ($sc-dispatch #{args 26594}# '())))
- (if #{tmp 26598}#
+ #{orig-args 25339}#
+ #{args 25347}#)))))))))))))))
+ (#{opt 25341}#
+ (lambda (#{args 25471}# #{req 25472}# #{ropt 25473}#)
+ (let ((#{tmp 25475}# ($sc-dispatch #{args 25471}# '())))
+ (if #{tmp 25475}#
(@apply
(lambda ()
- (#{check 26467}#
- #{req 26595}#
- (reverse #{ropt 26596}#)
+ (#{check 25344}#
+ #{req 25472}#
+ (reverse #{ropt 25473}#)
#f
'()))
- #{tmp 26598}#)
- (let ((#{tmp 26604}#
- ($sc-dispatch #{args 26594}# '(any . any))))
- (if (if #{tmp 26604}#
+ #{tmp 25475}#)
+ (let ((#{tmp 25481}#
+ ($sc-dispatch #{args 25471}# '(any . any))))
+ (if (if #{tmp 25481}#
(@apply
- (lambda (#{a 26608}# #{b 26609}#)
- (if (symbol? #{a 26608}#)
+ (lambda (#{a 25485}# #{b 25486}#)
+ (if (symbol? #{a 25485}#)
#t
- (if (if (vector? #{a 26608}#)
- (if (= (vector-length #{a 26608}#) 4)
- (eq? (vector-ref #{a 26608}# 0)
+ (if (if (vector? #{a 25485}#)
+ (if (= (vector-length #{a 25485}#) 4)
+ (eq? (vector-ref #{a 25485}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26608}# 1))
+ (symbol? (vector-ref #{a 25485}# 1))
#f)))
- #{tmp 26604}#)
+ #{tmp 25481}#)
#f)
(@apply
- (lambda (#{a 26636}# #{b 26637}#)
- (#{opt 26464}#
- #{b 26637}#
- #{req 26595}#
- (cons (cons #{a 26636}#
+ (lambda (#{a 25513}# #{b 25514}#)
+ (#{opt 25341}#
+ #{b 25514}#
+ #{req 25472}#
+ (cons (cons #{a 25513}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2357" "i2358"))
+ #("i2358" "i2359"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2347" "i2348" "i2349"))
+ #("i2348" "i2349" "i2350"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2293"
- "i2291"
- "i2289"
- "i2287"
- "i2285"))
+ ("i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"))
#(ribcage
#(orig-args)
#((top))
- #("i2284"))
+ #("i2285"))
#(ribcage
(lambda-var-list
gen-var
@@ -6559,147 +6671,147 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- #{ropt 26596}#)))
- #{tmp 26604}#)
- (let ((#{tmp 26638}#
+ #{ropt 25473}#)))
+ #{tmp 25481}#)
+ (let ((#{tmp 25515}#
($sc-dispatch
- #{args 26594}#
+ #{args 25471}#
'((any any) . any))))
- (if (if #{tmp 26638}#
+ (if (if #{tmp 25515}#
(@apply
- (lambda (#{a 26642}#
- #{init 26643}#
- #{b 26644}#)
- (if (symbol? #{a 26642}#)
+ (lambda (#{a 25519}#
+ #{init 25520}#
+ #{b 25521}#)
+ (if (symbol? #{a 25519}#)
#t
- (if (if (vector? #{a 26642}#)
- (if (= (vector-length #{a 26642}#) 4)
- (eq? (vector-ref #{a 26642}# 0)
+ (if (if (vector? #{a 25519}#)
+ (if (= (vector-length #{a 25519}#) 4)
+ (eq? (vector-ref #{a 25519}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26642}# 1))
+ (symbol? (vector-ref #{a 25519}# 1))
#f)))
- #{tmp 26638}#)
+ #{tmp 25515}#)
#f)
(@apply
- (lambda (#{a 26671}# #{init 26672}# #{b 26673}#)
- (#{opt 26464}#
- #{b 26673}#
- #{req 26595}#
- (cons (list #{a 26671}# #{init 26672}#)
- #{ropt 26596}#)))
- #{tmp 26638}#)
- (let ((#{tmp 26674}#
- ($sc-dispatch #{args 26594}# '(any . any))))
- (if (if #{tmp 26674}#
+ (lambda (#{a 25548}# #{init 25549}# #{b 25550}#)
+ (#{opt 25341}#
+ #{b 25550}#
+ #{req 25472}#
+ (cons (list #{a 25548}# #{init 25549}#)
+ #{ropt 25473}#)))
+ #{tmp 25515}#)
+ (let ((#{tmp 25551}#
+ ($sc-dispatch #{args 25471}# '(any . any))))
+ (if (if #{tmp 25551}#
(@apply
- (lambda (#{a 26678}# #{b 26679}#)
- (eq? (syntax->datum #{a 26678}#) #:key))
- #{tmp 26674}#)
+ (lambda (#{a 25555}# #{b 25556}#)
+ (eq? (syntax->datum #{a 25555}#) #:key))
+ #{tmp 25551}#)
#f)
(@apply
- (lambda (#{a 26680}# #{b 26681}#)
- (#{key 26465}#
- #{b 26681}#
- #{req 26595}#
- (reverse #{ropt 26596}#)
+ (lambda (#{a 25557}# #{b 25558}#)
+ (#{key 25342}#
+ #{b 25558}#
+ #{req 25472}#
+ (reverse #{ropt 25473}#)
'()))
- #{tmp 26674}#)
- (let ((#{tmp 26684}#
+ #{tmp 25551}#)
+ (let ((#{tmp 25561}#
($sc-dispatch
- #{args 26594}#
+ #{args 25471}#
'(any any))))
- (if (if #{tmp 26684}#
+ (if (if #{tmp 25561}#
(@apply
- (lambda (#{a 26688}# #{b 26689}#)
- (eq? (syntax->datum #{a 26688}#)
+ (lambda (#{a 25565}# #{b 25566}#)
+ (eq? (syntax->datum #{a 25565}#)
#:rest))
- #{tmp 26684}#)
+ #{tmp 25561}#)
#f)
(@apply
- (lambda (#{a 26690}# #{b 26691}#)
- (#{rest 26466}#
- #{b 26691}#
- #{req 26595}#
- (reverse #{ropt 26596}#)
+ (lambda (#{a 25567}# #{b 25568}#)
+ (#{rest 25343}#
+ #{b 25568}#
+ #{req 25472}#
+ (reverse #{ropt 25473}#)
'()))
- #{tmp 26684}#)
- (let ((#{tmp 26694}# (list #{args 26594}#)))
+ #{tmp 25561}#)
+ (let ((#{tmp 25571}# (list #{args 25471}#)))
(if (@apply
- (lambda (#{r 26696}#)
- (if (symbol? #{r 26696}#)
+ (lambda (#{r 25573}#)
+ (if (symbol? #{r 25573}#)
#t
- (if (if (vector? #{r 26696}#)
+ (if (if (vector? #{r 25573}#)
(if (= (vector-length
- #{r 26696}#)
+ #{r 25573}#)
4)
(eq? (vector-ref
- #{r 26696}#
+ #{r 25573}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 26696}# 1))
+ (vector-ref #{r 25573}# 1))
#f)))
- #{tmp 26694}#)
+ #{tmp 25571}#)
(@apply
- (lambda (#{r 26726}#)
- (#{rest 26466}#
- #{r 26726}#
- #{req 26595}#
- (reverse #{ropt 26596}#)
+ (lambda (#{r 25603}#)
+ (#{rest 25343}#
+ #{r 25603}#
+ #{req 25472}#
+ (reverse #{ropt 25473}#)
'()))
- #{tmp 26694}#)
+ #{tmp 25571}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 26462}#
- #{args 26594}#)))))))))))))))
- (#{key 26465}#
- (lambda (#{args 26745}#
- #{req 26746}#
- #{opt 26747}#
- #{rkey 26748}#)
- (let ((#{tmp 26750}# ($sc-dispatch #{args 26745}# '())))
- (if #{tmp 26750}#
+ #{orig-args 25339}#
+ #{args 25471}#)))))))))))))))
+ (#{key 25342}#
+ (lambda (#{args 25622}#
+ #{req 25623}#
+ #{opt 25624}#
+ #{rkey 25625}#)
+ (let ((#{tmp 25627}# ($sc-dispatch #{args 25622}# '())))
+ (if #{tmp 25627}#
(@apply
(lambda ()
- (#{check 26467}#
- #{req 26746}#
- #{opt 26747}#
+ (#{check 25344}#
+ #{req 25623}#
+ #{opt 25624}#
#f
- (cons #f (reverse #{rkey 26748}#))))
- #{tmp 26750}#)
- (let ((#{tmp 26756}#
- ($sc-dispatch #{args 26745}# '(any . any))))
- (if (if #{tmp 26756}#
+ (cons #f (reverse #{rkey 25625}#))))
+ #{tmp 25627}#)
+ (let ((#{tmp 25633}#
+ ($sc-dispatch #{args 25622}# '(any . any))))
+ (if (if #{tmp 25633}#
(@apply
- (lambda (#{a 26760}# #{b 26761}#)
- (if (symbol? #{a 26760}#)
+ (lambda (#{a 25637}# #{b 25638}#)
+ (if (symbol? #{a 25637}#)
#t
- (if (if (vector? #{a 26760}#)
- (if (= (vector-length #{a 26760}#) 4)
- (eq? (vector-ref #{a 26760}# 0)
+ (if (if (vector? #{a 25637}#)
+ (if (= (vector-length #{a 25637}#) 4)
+ (eq? (vector-ref #{a 25637}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26760}# 1))
+ (symbol? (vector-ref #{a 25637}# 1))
#f)))
- #{tmp 26756}#)
+ #{tmp 25633}#)
#f)
(@apply
- (lambda (#{a 26788}# #{b 26789}#)
- (let ((#{tmp 26790}#
+ (lambda (#{a 25665}# #{b 25666}#)
+ (let ((#{tmp 25667}#
(symbol->keyword
- (syntax->datum #{a 26788}#))))
- (#{key 26465}#
- #{b 26789}#
- #{req 26746}#
- #{opt 26747}#
- (cons (cons #{tmp 26790}#
- (cons #{a 26788}#
+ (syntax->datum #{a 25665}#))))
+ (#{key 25342}#
+ #{b 25666}#
+ #{req 25623}#
+ #{opt 25624}#
+ (cons (cons #{tmp 25667}#
+ (cons #{a 25665}#
'(#(syntax-object
#f
((top)
@@ -6707,11 +6819,11 @@
#(ribcage
#(k)
#((top))
- #("i2420"))
+ #("i2421"))
#(ribcage
#(a b)
#((top) (top))
- #("i2414" "i2415"))
+ #("i2415" "i2416"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -6719,10 +6831,10 @@
(top)
(top)
(top))
- #("i2403"
- "i2404"
+ #("i2404"
"i2405"
- "i2406"))
+ "i2406"
+ "i2407"))
#(ribcage
(check rest key opt req)
((top)
@@ -6730,15 +6842,15 @@
(top)
(top)
(top))
- ("i2293"
- "i2291"
- "i2289"
- "i2287"
- "i2285"))
+ ("i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"))
#(ribcage
#(orig-args)
#((top))
- #("i2284"))
+ #("i2285"))
#(ribcage
(lambda-var-list
gen-var
@@ -7155,780 +7267,780 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile)))))
- #{rkey 26748}#))))
- #{tmp 26756}#)
- (let ((#{tmp 26793}#
+ #{rkey 25625}#))))
+ #{tmp 25633}#)
+ (let ((#{tmp 25670}#
($sc-dispatch
- #{args 26745}#
+ #{args 25622}#
'((any any) . any))))
- (if (if #{tmp 26793}#
+ (if (if #{tmp 25670}#
(@apply
- (lambda (#{a 26797}#
- #{init 26798}#
- #{b 26799}#)
- (if (symbol? #{a 26797}#)
+ (lambda (#{a 25674}#
+ #{init 25675}#
+ #{b 25676}#)
+ (if (symbol? #{a 25674}#)
#t
- (if (if (vector? #{a 26797}#)
- (if (= (vector-length #{a 26797}#) 4)
- (eq? (vector-ref #{a 26797}# 0)
+ (if (if (vector? #{a 25674}#)
+ (if (= (vector-length #{a 25674}#) 4)
+ (eq? (vector-ref #{a 25674}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26797}# 1))
+ (symbol? (vector-ref #{a 25674}# 1))
#f)))
- #{tmp 26793}#)
+ #{tmp 25670}#)
#f)
(@apply
- (lambda (#{a 26826}# #{init 26827}# #{b 26828}#)
- (let ((#{tmp 26829}#
+ (lambda (#{a 25703}# #{init 25704}# #{b 25705}#)
+ (let ((#{tmp 25706}#
(symbol->keyword
- (syntax->datum #{a 26826}#))))
- (#{key 26465}#
- #{b 26828}#
- #{req 26746}#
- #{opt 26747}#
- (cons (list #{tmp 26829}#
- #{a 26826}#
- #{init 26827}#)
- #{rkey 26748}#))))
- #{tmp 26793}#)
- (let ((#{tmp 26832}#
+ (syntax->datum #{a 25703}#))))
+ (#{key 25342}#
+ #{b 25705}#
+ #{req 25623}#
+ #{opt 25624}#
+ (cons (list #{tmp 25706}#
+ #{a 25703}#
+ #{init 25704}#)
+ #{rkey 25625}#))))
+ #{tmp 25670}#)
+ (let ((#{tmp 25709}#
($sc-dispatch
- #{args 26745}#
+ #{args 25622}#
'((any any any) . any))))
- (if (if #{tmp 26832}#
+ (if (if #{tmp 25709}#
(@apply
- (lambda (#{a 26836}#
- #{init 26837}#
- #{k 26838}#
- #{b 26839}#)
- (if (if (symbol? #{a 26836}#)
+ (lambda (#{a 25713}#
+ #{init 25714}#
+ #{k 25715}#
+ #{b 25716}#)
+ (if (if (symbol? #{a 25713}#)
#t
- (if (if (vector? #{a 26836}#)
+ (if (if (vector? #{a 25713}#)
(if (= (vector-length
- #{a 26836}#)
+ #{a 25713}#)
4)
(eq? (vector-ref
- #{a 26836}#
+ #{a 25713}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 26836}# 1))
+ (vector-ref #{a 25713}# 1))
#f))
- (keyword? (syntax->datum #{k 26838}#))
+ (keyword? (syntax->datum #{k 25715}#))
#f))
- #{tmp 26832}#)
+ #{tmp 25709}#)
#f)
(@apply
- (lambda (#{a 26866}#
- #{init 26867}#
- #{k 26868}#
- #{b 26869}#)
- (#{key 26465}#
- #{b 26869}#
- #{req 26746}#
- #{opt 26747}#
- (cons (list #{k 26868}#
- #{a 26866}#
- #{init 26867}#)
- #{rkey 26748}#)))
- #{tmp 26832}#)
- (let ((#{tmp 26870}#
- ($sc-dispatch #{args 26745}# '(any))))
- (if (if #{tmp 26870}#
+ (lambda (#{a 25743}#
+ #{init 25744}#
+ #{k 25745}#
+ #{b 25746}#)
+ (#{key 25342}#
+ #{b 25746}#
+ #{req 25623}#
+ #{opt 25624}#
+ (cons (list #{k 25745}#
+ #{a 25743}#
+ #{init 25744}#)
+ #{rkey 25625}#)))
+ #{tmp 25709}#)
+ (let ((#{tmp 25747}#
+ ($sc-dispatch #{args 25622}# '(any))))
+ (if (if #{tmp 25747}#
(@apply
- (lambda (#{aok 26874}#)
- (eq? (syntax->datum #{aok 26874}#)
+ (lambda (#{aok 25751}#)
+ (eq? (syntax->datum #{aok 25751}#)
#:allow-other-keys))
- #{tmp 26870}#)
+ #{tmp 25747}#)
#f)
(@apply
- (lambda (#{aok 26875}#)
- (#{check 26467}#
- #{req 26746}#
- #{opt 26747}#
+ (lambda (#{aok 25752}#)
+ (#{check 25344}#
+ #{req 25623}#
+ #{opt 25624}#
#f
- (cons #t (reverse #{rkey 26748}#))))
- #{tmp 26870}#)
- (let ((#{tmp 26878}#
+ (cons #t (reverse #{rkey 25625}#))))
+ #{tmp 25747}#)
+ (let ((#{tmp 25755}#
($sc-dispatch
- #{args 26745}#
+ #{args 25622}#
'(any any any))))
- (if (if #{tmp 26878}#
+ (if (if #{tmp 25755}#
(@apply
- (lambda (#{aok 26882}#
- #{a 26883}#
- #{b 26884}#)
+ (lambda (#{aok 25759}#
+ #{a 25760}#
+ #{b 25761}#)
(if (eq? (syntax->datum
- #{aok 26882}#)
+ #{aok 25759}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 26883}#)
+ #{a 25760}#)
#:rest)
#f))
- #{tmp 26878}#)
+ #{tmp 25755}#)
#f)
(@apply
- (lambda (#{aok 26885}#
- #{a 26886}#
- #{b 26887}#)
- (#{rest 26466}#
- #{b 26887}#
- #{req 26746}#
- #{opt 26747}#
+ (lambda (#{aok 25762}#
+ #{a 25763}#
+ #{b 25764}#)
+ (#{rest 25343}#
+ #{b 25764}#
+ #{req 25623}#
+ #{opt 25624}#
(cons #t
- (reverse #{rkey 26748}#))))
- #{tmp 26878}#)
- (let ((#{tmp 26890}#
+ (reverse #{rkey 25625}#))))
+ #{tmp 25755}#)
+ (let ((#{tmp 25767}#
($sc-dispatch
- #{args 26745}#
+ #{args 25622}#
'(any . any))))
- (if (if #{tmp 26890}#
+ (if (if #{tmp 25767}#
(@apply
- (lambda (#{aok 26894}#
- #{r 26895}#)
+ (lambda (#{aok 25771}#
+ #{r 25772}#)
(if (eq? (syntax->datum
- #{aok 26894}#)
+ #{aok 25771}#)
#:allow-other-keys)
- (if (symbol? #{r 26895}#)
+ (if (symbol? #{r 25772}#)
#t
(if (if (vector?
- #{r 26895}#)
+ #{r 25772}#)
(if (=
(vector-length
- #{r
26895}#)
+ #{r
25772}#)
4)
(eq? (vector-ref
- #{r
26895}#
+ #{r
25772}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 26895}#
+ #{r 25772}#
1))
#f))
#f))
- #{tmp 26890}#)
+ #{tmp 25767}#)
#f)
(@apply
- (lambda (#{aok 26922}# #{r 26923}#)
- (#{rest 26466}#
- #{r 26923}#
- #{req 26746}#
- #{opt 26747}#
+ (lambda (#{aok 25799}# #{r 25800}#)
+ (#{rest 25343}#
+ #{r 25800}#
+ #{req 25623}#
+ #{opt 25624}#
(cons #t
(reverse
- #{rkey 26748}#))))
- #{tmp 26890}#)
- (let ((#{tmp 26926}#
+ #{rkey 25625}#))))
+ #{tmp 25767}#)
+ (let ((#{tmp 25803}#
($sc-dispatch
- #{args 26745}#
+ #{args 25622}#
'(any any))))
- (if (if #{tmp 26926}#
+ (if (if #{tmp 25803}#
(@apply
- (lambda (#{a 26930}#
- #{b 26931}#)
+ (lambda (#{a 25807}#
+ #{b 25808}#)
(eq? (syntax->datum
- #{a 26930}#)
+ #{a 25807}#)
#:rest))
- #{tmp 26926}#)
+ #{tmp 25803}#)
#f)
(@apply
- (lambda (#{a 26932}#
- #{b 26933}#)
- (#{rest 26466}#
- #{b 26933}#
- #{req 26746}#
- #{opt 26747}#
+ (lambda (#{a 25809}#
+ #{b 25810}#)
+ (#{rest 25343}#
+ #{b 25810}#
+ #{req 25623}#
+ #{opt 25624}#
(cons #f
(reverse
- #{rkey 26748}#))))
- #{tmp 26926}#)
- (let ((#{tmp 26936}#
- (list #{args 26745}#)))
+ #{rkey 25625}#))))
+ #{tmp 25803}#)
+ (let ((#{tmp 25813}#
+ (list #{args 25622}#)))
(if (@apply
- (lambda (#{r 26938}#)
+ (lambda (#{r 25815}#)
(if (symbol?
- #{r 26938}#)
+ #{r 25815}#)
#t
(if (if (vector?
- #{r
26938}#)
+ #{r
25815}#)
(if (=
(vector-length
- #{r
26938}#)
+ #{r
25815}#)
4)
(eq?
(vector-ref
- #{r
26938}#
+ #{r
25815}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 26938}#
+ #{r 25815}#
1))
#f)))
- #{tmp 26936}#)
+ #{tmp 25813}#)
(@apply
- (lambda (#{r 26968}#)
- (#{rest 26466}#
- #{r 26968}#
- #{req 26746}#
- #{opt 26747}#
+ (lambda (#{r 25845}#)
+ (#{rest 25343}#
+ #{r 25845}#
+ #{req 25623}#
+ #{opt 25624}#
(cons #f
(reverse
- #{rkey
26748}#))))
- #{tmp 26936}#)
+ #{rkey
25625}#))))
+ #{tmp 25813}#)
(syntax-violation
'lambda*
"invalid keyword argument
list"
- #{orig-args 26462}#
- #{args
26745}#)))))))))))))))))))))
- (#{rest 26466}#
- (lambda (#{args 26996}#
- #{req 26997}#
- #{opt 26998}#
- #{kw 26999}#)
- (let ((#{tmp 27001}# (list #{args 26996}#)))
+ #{orig-args 25339}#
+ #{args
25622}#)))))))))))))))))))))
+ (#{rest 25343}#
+ (lambda (#{args 25873}#
+ #{req 25874}#
+ #{opt 25875}#
+ #{kw 25876}#)
+ (let ((#{tmp 25878}# (list #{args 25873}#)))
(if (@apply
- (lambda (#{r 27003}#)
- (if (symbol? #{r 27003}#)
+ (lambda (#{r 25880}#)
+ (if (symbol? #{r 25880}#)
#t
- (if (if (vector? #{r 27003}#)
- (if (= (vector-length #{r 27003}#) 4)
- (eq? (vector-ref #{r 27003}# 0)
+ (if (if (vector? #{r 25880}#)
+ (if (= (vector-length #{r 25880}#) 4)
+ (eq? (vector-ref #{r 25880}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 27003}# 1))
+ (symbol? (vector-ref #{r 25880}# 1))
#f)))
- #{tmp 27001}#)
+ #{tmp 25878}#)
(@apply
- (lambda (#{r 27033}#)
- (#{check 26467}#
- #{req 26997}#
- #{opt 26998}#
- #{r 27033}#
- #{kw 26999}#))
- #{tmp 27001}#)
+ (lambda (#{r 25910}#)
+ (#{check 25344}#
+ #{req 25874}#
+ #{opt 25875}#
+ #{r 25910}#
+ #{kw 25876}#))
+ #{tmp 25878}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 26462}#
- #{args 26996}#)))))
- (#{check 26467}#
- (lambda (#{req 27037}#
- #{opt 27038}#
- #{rest 27039}#
- #{kw 27040}#)
- (if (#{distinct-bound-ids? 4324}#
+ #{orig-args 25339}#
+ #{args 25873}#)))))
+ (#{check 25344}#
+ (lambda (#{req 25914}#
+ #{opt 25915}#
+ #{rest 25916}#
+ #{kw 25917}#)
+ (if (#{distinct-bound-ids? 4325}#
(append
- #{req 27037}#
- (map car #{opt 27038}#)
- (if #{rest 27039}# (list #{rest 27039}#) '())
- (if (pair? #{kw 27040}#)
- (map cadr (cdr #{kw 27040}#))
+ #{req 25914}#
+ (map car #{opt 25915}#)
+ (if #{rest 25916}# (list #{rest 25916}#) '())
+ (if (pair? #{kw 25917}#)
+ (map cadr (cdr #{kw 25917}#))
'())))
(values
- #{req 27037}#
- #{opt 27038}#
- #{rest 27039}#
- #{kw 27040}#)
+ #{req 25914}#
+ #{opt 25915}#
+ #{rest 25916}#
+ #{kw 25917}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 26462}#)))))
- (#{req 26463}# #{orig-args 26462}# '()))))
- (#{expand-lambda-case 4345}#
- (lambda (#{e 27160}#
- #{r 27161}#
- #{w 27162}#
- #{s 27163}#
- #{mod 27164}#
- #{get-formals 27165}#
- #{clauses 27166}#)
+ #{orig-args 25339}#)))))
+ (#{req 25340}# #{orig-args 25339}# '()))))
+ (#{expand-lambda-case 4346}#
+ (lambda (#{e 26033}#
+ #{r 26034}#
+ #{w 26035}#
+ #{s 26036}#
+ #{mod 26037}#
+ #{get-formals 26038}#
+ #{clauses 26039}#)
(letrec*
- ((#{parse-req 27167}#
- (lambda (#{req 27301}#
- #{opt 27302}#
- #{rest 27303}#
- #{kw 27304}#
- #{body 27305}#)
- (let ((#{vars 27306}#
- (map #{gen-var 4347}# #{req 27301}#))
- (#{labels 27307}#
- (#{gen-labels 4304}# #{req 27301}#)))
- (let ((#{r* 27308}#
- (#{extend-var-env 4296}#
- #{labels 27307}#
- #{vars 27306}#
- #{r 27161}#))
- (#{w* 27309}#
- (#{make-binding-wrap 4315}#
- #{req 27301}#
- #{labels 27307}#
- #{w 27162}#)))
- (#{parse-opt 27168}#
- (map syntax->datum #{req 27301}#)
- #{opt 27302}#
- #{rest 27303}#
- #{kw 27304}#
- #{body 27305}#
- (reverse #{vars 27306}#)
- #{r* 27308}#
- #{w* 27309}#
+ ((#{parse-req 26040}#
+ (lambda (#{req 26173}#
+ #{opt 26174}#
+ #{rest 26175}#
+ #{kw 26176}#
+ #{body 26177}#)
+ (let ((#{vars 26178}#
+ (map #{gen-var 4348}# #{req 26173}#))
+ (#{labels 26179}#
+ (#{gen-labels 4305}# #{req 26173}#)))
+ (let ((#{r* 26180}#
+ (#{extend-var-env 4297}#
+ #{labels 26179}#
+ #{vars 26178}#
+ #{r 26034}#))
+ (#{w* 26181}#
+ (#{make-binding-wrap 4316}#
+ #{req 26173}#
+ #{labels 26179}#
+ #{w 26035}#)))
+ (#{parse-opt 26041}#
+ (map syntax->datum #{req 26173}#)
+ #{opt 26174}#
+ #{rest 26175}#
+ #{kw 26176}#
+ #{body 26177}#
+ (reverse #{vars 26178}#)
+ #{r* 26180}#
+ #{w* 26181}#
'()
'())))))
- (#{parse-opt 27168}#
- (lambda (#{req 27525}#
- #{opt 27526}#
- #{rest 27527}#
- #{kw 27528}#
- #{body 27529}#
- #{vars 27530}#
- #{r* 27531}#
- #{w* 27532}#
- #{out 27533}#
- #{inits 27534}#)
- (if (pair? #{opt 27526}#)
- (let ((#{tmp 27535}# (car #{opt 27526}#)))
- (let ((#{tmp 27536}#
- ($sc-dispatch #{tmp 27535}# '(any any))))
- (if #{tmp 27536}#
+ (#{parse-opt 26041}#
+ (lambda (#{req 26395}#
+ #{opt 26396}#
+ #{rest 26397}#
+ #{kw 26398}#
+ #{body 26399}#
+ #{vars 26400}#
+ #{r* 26401}#
+ #{w* 26402}#
+ #{out 26403}#
+ #{inits 26404}#)
+ (if (pair? #{opt 26396}#)
+ (let ((#{tmp 26405}# (car #{opt 26396}#)))
+ (let ((#{tmp 26406}#
+ ($sc-dispatch #{tmp 26405}# '(any any))))
+ (if #{tmp 26406}#
(@apply
- (lambda (#{id 27538}# #{i 27539}#)
- (let ((#{v 27540}#
- (let ((#{id 27548}#
- (if (if (vector? #{id 27538}#)
+ (lambda (#{id 26408}# #{i 26409}#)
+ (let ((#{v 26410}#
+ (let ((#{id 26418}#
+ (if (if (vector? #{id 26408}#)
(if (= (vector-length
- #{id 27538}#)
+ #{id 26408}#)
4)
(eq? (vector-ref
- #{id 27538}#
+ #{id 26408}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 27538}# 1)
- #{id 27538}#)))
+ (vector-ref #{id 26408}# 1)
+ #{id 26408}#)))
(gensym
(string-append
- (symbol->string #{id 27548}#)
+ (symbol->string #{id 26418}#)
" ")))))
- (let ((#{l 27541}#
- (#{gen-labels 4304}# (list #{v 27540}#))))
- (let ((#{r** 27542}#
- (#{extend-var-env 4296}#
- #{l 27541}#
- (list #{v 27540}#)
- #{r* 27531}#)))
- (let ((#{w** 27543}#
- (#{make-binding-wrap 4315}#
- (list #{id 27538}#)
- #{l 27541}#
- #{w* 27532}#)))
- (#{parse-opt 27168}#
- #{req 27525}#
- (cdr #{opt 27526}#)
- #{rest 27527}#
- #{kw 27528}#
- #{body 27529}#
- (cons #{v 27540}# #{vars 27530}#)
- #{r** 27542}#
- #{w** 27543}#
- (cons (syntax->datum #{id 27538}#)
- #{out 27533}#)
- (cons (#{expand 4333}#
- #{i 27539}#
- #{r* 27531}#
- #{w* 27532}#
- #{mod 27164}#)
- #{inits 27534}#)))))))
- #{tmp 27536}#)
+ (let ((#{l 26411}#
+ (#{gen-labels 4305}# (list #{v 26410}#))))
+ (let ((#{r** 26412}#
+ (#{extend-var-env 4297}#
+ #{l 26411}#
+ (list #{v 26410}#)
+ #{r* 26401}#)))
+ (let ((#{w** 26413}#
+ (#{make-binding-wrap 4316}#
+ (list #{id 26408}#)
+ #{l 26411}#
+ #{w* 26402}#)))
+ (#{parse-opt 26041}#
+ #{req 26395}#
+ (cdr #{opt 26396}#)
+ #{rest 26397}#
+ #{kw 26398}#
+ #{body 26399}#
+ (cons #{v 26410}# #{vars 26400}#)
+ #{r** 26412}#
+ #{w** 26413}#
+ (cons (syntax->datum #{id 26408}#)
+ #{out 26403}#)
+ (cons (#{expand 4334}#
+ #{i 26409}#
+ #{r* 26401}#
+ #{w* 26402}#
+ #{mod 26037}#)
+ #{inits 26404}#)))))))
+ #{tmp 26406}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 27535}#))))
- (if #{rest 27527}#
- (let ((#{v 27820}#
- (let ((#{id 27830}#
- (if (if (vector? #{rest 27527}#)
- (if (= (vector-length #{rest 27527}#)
+ #{tmp 26405}#))))
+ (if #{rest 26397}#
+ (let ((#{v 26683}#
+ (let ((#{id 26693}#
+ (if (if (vector? #{rest 26397}#)
+ (if (= (vector-length #{rest 26397}#)
4)
- (eq? (vector-ref #{rest 27527}# 0)
+ (eq? (vector-ref #{rest 26397}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 27527}# 1)
- #{rest 27527}#)))
+ (vector-ref #{rest 26397}# 1)
+ #{rest 26397}#)))
(gensym
(string-append
- (symbol->string #{id 27830}#)
+ (symbol->string #{id 26693}#)
" ")))))
- (let ((#{l 27821}#
- (#{gen-labels 4304}# (list #{v 27820}#))))
- (let ((#{r* 27822}#
- (#{extend-var-env 4296}#
- #{l 27821}#
- (list #{v 27820}#)
- #{r* 27531}#)))
- (let ((#{w* 27823}#
- (#{make-binding-wrap 4315}#
- (list #{rest 27527}#)
- #{l 27821}#
- #{w* 27532}#)))
- (#{parse-kw 27169}#
- #{req 27525}#
- (if (pair? #{out 27533}#)
- (reverse #{out 27533}#)
+ (let ((#{l 26684}#
+ (#{gen-labels 4305}# (list #{v 26683}#))))
+ (let ((#{r* 26685}#
+ (#{extend-var-env 4297}#
+ #{l 26684}#
+ (list #{v 26683}#)
+ #{r* 26401}#)))
+ (let ((#{w* 26686}#
+ (#{make-binding-wrap 4316}#
+ (list #{rest 26397}#)
+ #{l 26684}#
+ #{w* 26402}#)))
+ (#{parse-kw 26042}#
+ #{req 26395}#
+ (if (pair? #{out 26403}#)
+ (reverse #{out 26403}#)
#f)
- (syntax->datum #{rest 27527}#)
- (if (pair? #{kw 27528}#)
- (cdr #{kw 27528}#)
- #{kw 27528}#)
- #{body 27529}#
- (cons #{v 27820}# #{vars 27530}#)
- #{r* 27822}#
- #{w* 27823}#
- (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
+ (syntax->datum #{rest 26397}#)
+ (if (pair? #{kw 26398}#)
+ (cdr #{kw 26398}#)
+ #{kw 26398}#)
+ #{body 26399}#
+ (cons #{v 26683}# #{vars 26400}#)
+ #{r* 26685}#
+ #{w* 26686}#
+ (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f)
'()
- #{inits 27534}#)))))
- (#{parse-kw 27169}#
- #{req 27525}#
- (if (pair? #{out 27533}#)
- (reverse #{out 27533}#)
+ #{inits 26404}#)))))
+ (#{parse-kw 26042}#
+ #{req 26395}#
+ (if (pair? #{out 26403}#)
+ (reverse #{out 26403}#)
#f)
#f
- (if (pair? #{kw 27528}#)
- (cdr #{kw 27528}#)
- #{kw 27528}#)
- #{body 27529}#
- #{vars 27530}#
- #{r* 27531}#
- #{w* 27532}#
- (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
+ (if (pair? #{kw 26398}#)
+ (cdr #{kw 26398}#)
+ #{kw 26398}#)
+ #{body 26399}#
+ #{vars 26400}#
+ #{r* 26401}#
+ #{w* 26402}#
+ (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f)
'()
- #{inits 27534}#)))))
- (#{parse-kw 27169}#
- (lambda (#{req 28030}#
- #{opt 28031}#
- #{rest 28032}#
- #{kw 28033}#
- #{body 28034}#
- #{vars 28035}#
- #{r* 28036}#
- #{w* 28037}#
- #{aok 28038}#
- #{out 28039}#
- #{inits 28040}#)
- (if (pair? #{kw 28033}#)
- (let ((#{tmp 28041}# (car #{kw 28033}#)))
- (let ((#{tmp 28042}#
- ($sc-dispatch #{tmp 28041}# '(any any any))))
- (if #{tmp 28042}#
+ #{inits 26404}#)))))
+ (#{parse-kw 26042}#
+ (lambda (#{req 26891}#
+ #{opt 26892}#
+ #{rest 26893}#
+ #{kw 26894}#
+ #{body 26895}#
+ #{vars 26896}#
+ #{r* 26897}#
+ #{w* 26898}#
+ #{aok 26899}#
+ #{out 26900}#
+ #{inits 26901}#)
+ (if (pair? #{kw 26894}#)
+ (let ((#{tmp 26902}# (car #{kw 26894}#)))
+ (let ((#{tmp 26903}#
+ ($sc-dispatch #{tmp 26902}# '(any any any))))
+ (if #{tmp 26903}#
(@apply
- (lambda (#{k 28044}# #{id 28045}# #{i 28046}#)
- (let ((#{v 28047}#
- (let ((#{id 28055}#
- (if (if (vector? #{id 28045}#)
+ (lambda (#{k 26905}# #{id 26906}# #{i 26907}#)
+ (let ((#{v 26908}#
+ (let ((#{id 26916}#
+ (if (if (vector? #{id 26906}#)
(if (= (vector-length
- #{id 28045}#)
+ #{id 26906}#)
4)
(eq? (vector-ref
- #{id 28045}#
+ #{id 26906}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 28045}# 1)
- #{id 28045}#)))
+ (vector-ref #{id 26906}# 1)
+ #{id 26906}#)))
(gensym
(string-append
- (symbol->string #{id 28055}#)
+ (symbol->string #{id 26916}#)
" ")))))
- (let ((#{l 28048}#
- (#{gen-labels 4304}# (list #{v 28047}#))))
- (let ((#{r** 28049}#
- (#{extend-var-env 4296}#
- #{l 28048}#
- (list #{v 28047}#)
- #{r* 28036}#)))
- (let ((#{w** 28050}#
- (#{make-binding-wrap 4315}#
- (list #{id 28045}#)
- #{l 28048}#
- #{w* 28037}#)))
- (#{parse-kw 27169}#
- #{req 28030}#
- #{opt 28031}#
- #{rest 28032}#
- (cdr #{kw 28033}#)
- #{body 28034}#
- (cons #{v 28047}# #{vars 28035}#)
- #{r** 28049}#
- #{w** 28050}#
- #{aok 28038}#
- (cons (list (syntax->datum #{k 28044}#)
- (syntax->datum #{id 28045}#)
- #{v 28047}#)
- #{out 28039}#)
- (cons (#{expand 4333}#
- #{i 28046}#
- #{r* 28036}#
- #{w* 28037}#
- #{mod 27164}#)
- #{inits 28040}#)))))))
- #{tmp 28042}#)
+ (let ((#{l 26909}#
+ (#{gen-labels 4305}# (list #{v 26908}#))))
+ (let ((#{r** 26910}#
+ (#{extend-var-env 4297}#
+ #{l 26909}#
+ (list #{v 26908}#)
+ #{r* 26897}#)))
+ (let ((#{w** 26911}#
+ (#{make-binding-wrap 4316}#
+ (list #{id 26906}#)
+ #{l 26909}#
+ #{w* 26898}#)))
+ (#{parse-kw 26042}#
+ #{req 26891}#
+ #{opt 26892}#
+ #{rest 26893}#
+ (cdr #{kw 26894}#)
+ #{body 26895}#
+ (cons #{v 26908}# #{vars 26896}#)
+ #{r** 26910}#
+ #{w** 26911}#
+ #{aok 26899}#
+ (cons (list (syntax->datum #{k 26905}#)
+ (syntax->datum #{id 26906}#)
+ #{v 26908}#)
+ #{out 26900}#)
+ (cons (#{expand 4334}#
+ #{i 26907}#
+ #{r* 26897}#
+ #{w* 26898}#
+ #{mod 26037}#)
+ #{inits 26901}#)))))))
+ #{tmp 26903}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28041}#))))
- (#{parse-body 27170}#
- #{req 28030}#
- #{opt 28031}#
- #{rest 28032}#
- (if (if #{aok 28038}#
- #{aok 28038}#
- (pair? #{out 28039}#))
- (cons #{aok 28038}# (reverse #{out 28039}#))
+ #{tmp 26902}#))))
+ (#{parse-body 26043}#
+ #{req 26891}#
+ #{opt 26892}#
+ #{rest 26893}#
+ (if (if #{aok 26899}#
+ #{aok 26899}#
+ (pair? #{out 26900}#))
+ (cons #{aok 26899}# (reverse #{out 26900}#))
#f)
- #{body 28034}#
- (reverse #{vars 28035}#)
- #{r* 28036}#
- #{w* 28037}#
- (reverse #{inits 28040}#)
+ #{body 26895}#
+ (reverse #{vars 26896}#)
+ #{r* 26897}#
+ #{w* 26898}#
+ (reverse #{inits 26901}#)
'()))))
- (#{parse-body 27170}#
- (lambda (#{req 28336}#
- #{opt 28337}#
- #{rest 28338}#
- #{kw 28339}#
- #{body 28340}#
- #{vars 28341}#
- #{r* 28342}#
- #{w* 28343}#
- #{inits 28344}#
- #{meta 28345}#)
- (let ((#{tmp 28347}#
+ (#{parse-body 26043}#
+ (lambda (#{req 27190}#
+ #{opt 27191}#
+ #{rest 27192}#
+ #{kw 27193}#
+ #{body 27194}#
+ #{vars 27195}#
+ #{r* 27196}#
+ #{w* 27197}#
+ #{inits 27198}#
+ #{meta 27199}#)
+ (let ((#{tmp 27201}#
($sc-dispatch
- #{body 28340}#
+ #{body 27194}#
'(any any . each-any))))
- (if (if #{tmp 28347}#
+ (if (if #{tmp 27201}#
(@apply
- (lambda (#{docstring 28351}# #{e1 28352}# #{e2 28353}#)
- (string? (syntax->datum #{docstring 28351}#)))
- #{tmp 28347}#)
+ (lambda (#{docstring 27205}# #{e1 27206}# #{e2 27207}#)
+ (string? (syntax->datum #{docstring 27205}#)))
+ #{tmp 27201}#)
#f)
(@apply
- (lambda (#{docstring 28354}# #{e1 28355}# #{e2 28356}#)
- (#{parse-body 27170}#
- #{req 28336}#
- #{opt 28337}#
- #{rest 28338}#
- #{kw 28339}#
- (cons #{e1 28355}# #{e2 28356}#)
- #{vars 28341}#
- #{r* 28342}#
- #{w* 28343}#
- #{inits 28344}#
+ (lambda (#{docstring 27208}# #{e1 27209}# #{e2 27210}#)
+ (#{parse-body 26043}#
+ #{req 27190}#
+ #{opt 27191}#
+ #{rest 27192}#
+ #{kw 27193}#
+ (cons #{e1 27209}# #{e2 27210}#)
+ #{vars 27195}#
+ #{r* 27196}#
+ #{w* 27197}#
+ #{inits 27198}#
(append
- #{meta 28345}#
+ #{meta 27199}#
(list (cons 'documentation
- (syntax->datum #{docstring 28354}#))))))
- #{tmp 28347}#)
- (let ((#{tmp 28357}#
+ (syntax->datum #{docstring 27208}#))))))
+ #{tmp 27201}#)
+ (let ((#{tmp 27211}#
($sc-dispatch
- #{body 28340}#
+ #{body 27194}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 28357}#
+ (if #{tmp 27211}#
(@apply
- (lambda (#{k 28361}#
- #{v 28362}#
- #{e1 28363}#
- #{e2 28364}#)
- (#{parse-body 27170}#
- #{req 28336}#
- #{opt 28337}#
- #{rest 28338}#
- #{kw 28339}#
- (cons #{e1 28363}# #{e2 28364}#)
- #{vars 28341}#
- #{r* 28342}#
- #{w* 28343}#
- #{inits 28344}#
+ (lambda (#{k 27215}#
+ #{v 27216}#
+ #{e1 27217}#
+ #{e2 27218}#)
+ (#{parse-body 26043}#
+ #{req 27190}#
+ #{opt 27191}#
+ #{rest 27192}#
+ #{kw 27193}#
+ (cons #{e1 27217}# #{e2 27218}#)
+ #{vars 27195}#
+ #{r* 27196}#
+ #{w* 27197}#
+ #{inits 27198}#
(append
- #{meta 28345}#
+ #{meta 27199}#
(syntax->datum
- (map cons #{k 28361}# #{v 28362}#)))))
- #{tmp 28357}#)
- (let ((#{tmp 28365}#
- ($sc-dispatch #{body 28340}# '(any . each-any))))
- (if #{tmp 28365}#
+ (map cons #{k 27215}# #{v 27216}#)))))
+ #{tmp 27211}#)
+ (let ((#{tmp 27219}#
+ ($sc-dispatch #{body 27194}# '(any . each-any))))
+ (if #{tmp 27219}#
(@apply
- (lambda (#{e1 28369}# #{e2 28370}#)
+ (lambda (#{e1 27223}# #{e2 27224}#)
(values
- #{meta 28345}#
- #{req 28336}#
- #{opt 28337}#
- #{rest 28338}#
- #{kw 28339}#
- #{inits 28344}#
- #{vars 28341}#
- (#{expand-body 4337}#
- (cons #{e1 28369}# #{e2 28370}#)
- (#{wrap 4326}#
+ #{meta 27199}#
+ #{req 27190}#
+ #{opt 27191}#
+ #{rest 27192}#
+ #{kw 27193}#
+ #{inits 27198}#
+ #{vars 27195}#
+ (#{expand-body 4338}#
+ (cons #{e1 27223}# #{e2 27224}#)
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 27160}#)
- #{s 27163}#
+ (if (if (pair? #{e 26033}#)
+ #{s 26036}#
#f)
(set-source-properties!
- #{e 27160}#
- #{s 27163}#))
- #{e 27160}#)
- #{w 27162}#
- #{mod 27164}#)
- #{r* 28342}#
- #{w* 28343}#
- #{mod 27164}#)))
- #{tmp 28365}#)
+ #{e 26033}#
+ #{s 26036}#))
+ #{e 26033}#)
+ #{w 26035}#
+ #{mod 26037}#)
+ #{r* 27196}#
+ #{w* 27197}#
+ #{mod 26037}#)))
+ #{tmp 27219}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 28340}#))))))))))
- (let ((#{tmp 27172}#
- ($sc-dispatch #{clauses 27166}# '())))
- (if #{tmp 27172}#
+ #{body 27194}#))))))))))
+ (let ((#{tmp 26045}#
+ ($sc-dispatch #{clauses 26039}# '())))
+ (if #{tmp 26045}#
(@apply
(lambda () (values '() #f))
- #{tmp 27172}#)
- (let ((#{tmp 27177}#
+ #{tmp 26045}#)
+ (let ((#{tmp 26049}#
($sc-dispatch
- #{clauses 27166}#
+ #{clauses 26039}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 27177}#
+ (if #{tmp 26049}#
(@apply
- (lambda (#{args 27181}#
- #{e1 27182}#
- #{e2 27183}#
- #{args* 27184}#
- #{e1* 27185}#
- #{e2* 27186}#)
+ (lambda (#{args 26053}#
+ #{e1 26054}#
+ #{e2 26055}#
+ #{args* 26056}#
+ #{e1* 26057}#
+ #{e2* 26058}#)
(call-with-values
(lambda ()
- (#{get-formals 27165}# #{args 27181}#))
- (lambda (#{req 27187}#
- #{opt 27188}#
- #{rest 27189}#
- #{kw 27190}#)
+ (#{get-formals 26038}# #{args 26053}#))
+ (lambda (#{req 26059}#
+ #{opt 26060}#
+ #{rest 26061}#
+ #{kw 26062}#)
(call-with-values
(lambda ()
- (#{parse-req 27167}#
- #{req 27187}#
- #{opt 27188}#
- #{rest 27189}#
- #{kw 27190}#
- (cons #{e1 27182}# #{e2 27183}#)))
- (lambda (#{meta 27257}#
- #{req 27258}#
- #{opt 27259}#
- #{rest 27260}#
- #{kw 27261}#
- #{inits 27262}#
- #{vars 27263}#
- #{body 27264}#)
+ (#{parse-req 26040}#
+ #{req 26059}#
+ #{opt 26060}#
+ #{rest 26061}#
+ #{kw 26062}#
+ (cons #{e1 26054}# #{e2 26055}#)))
+ (lambda (#{meta 26129}#
+ #{req 26130}#
+ #{opt 26131}#
+ #{rest 26132}#
+ #{kw 26133}#
+ #{inits 26134}#
+ #{vars 26135}#
+ #{body 26136}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4345}#
- #{e 27160}#
- #{r 27161}#
- #{w 27162}#
- #{s 27163}#
- #{mod 27164}#
- #{get-formals 27165}#
- (map (lambda (#{tmp 2763 27265}#
- #{tmp 2762 27266}#
- #{tmp 2761 27267}#)
- (cons #{tmp 2761 27267}#
- (cons #{tmp 2762 27266}#
- #{tmp 2763 27265}#)))
- #{e2* 27186}#
- #{e1* 27185}#
- #{args* 27184}#)))
- (lambda (#{meta* 27268}# #{else* 27269}#)
+ (#{expand-lambda-case 4346}#
+ #{e 26033}#
+ #{r 26034}#
+ #{w 26035}#
+ #{s 26036}#
+ #{mod 26037}#
+ #{get-formals 26038}#
+ (map (lambda (#{tmp 2764 26137}#
+ #{tmp 2763 26138}#
+ #{tmp 2762 26139}#)
+ (cons #{tmp 2762 26139}#
+ (cons #{tmp 2763 26138}#
+ #{tmp 2764 26137}#)))
+ #{e2* 26058}#
+ #{e1* 26057}#
+ #{args* 26056}#)))
+ (lambda (#{meta* 26140}# #{else* 26141}#)
(values
- (append #{meta 27257}# #{meta* 27268}#)
+ (append #{meta 26129}# #{meta* 26140}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 27163}#
- #{req 27258}#
- #{opt 27259}#
- #{rest 27260}#
- #{kw 27261}#
- #{inits 27262}#
- #{vars 27263}#
- #{body 27264}#
- #{else* 27269}#)))))))))
- #{tmp 27177}#)
+ #{s 26036}#
+ #{req 26130}#
+ #{opt 26131}#
+ #{rest 26132}#
+ #{kw 26133}#
+ #{inits 26134}#
+ #{vars 26135}#
+ #{body 26136}#
+ #{else* 26141}#)))))))))
+ #{tmp 26049}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 27166}#))))))))
- (#{strip 4346}#
- (lambda (#{x 28407}# #{w 28408}#)
- (if (memq 'top (car #{w 28408}#))
- #{x 28407}#
+ #{clauses 26039}#))))))))
+ (#{strip 4347}#
+ (lambda (#{x 27261}# #{w 27262}#)
+ (if (memq 'top (car #{w 27262}#))
+ #{x 27261}#
(letrec*
- ((#{f 28409}#
- (lambda (#{x 28412}#)
- (if (if (vector? #{x 28412}#)
- (if (= (vector-length #{x 28412}#) 4)
- (eq? (vector-ref #{x 28412}# 0) 'syntax-object)
+ ((#{f 27263}#
+ (lambda (#{x 27266}#)
+ (if (if (vector? #{x 27266}#)
+ (if (= (vector-length #{x 27266}#) 4)
+ (eq? (vector-ref #{x 27266}# 0) 'syntax-object)
#f)
#f)
- (#{strip 4346}#
- (vector-ref #{x 28412}# 1)
- (vector-ref #{x 28412}# 2))
- (if (pair? #{x 28412}#)
- (let ((#{a 28431}# (#{f 28409}# (car #{x 28412}#)))
- (#{d 28432}# (#{f 28409}# (cdr #{x 28412}#))))
- (if (if (eq? #{a 28431}# (car #{x 28412}#))
- (eq? #{d 28432}# (cdr #{x 28412}#))
+ (#{strip 4347}#
+ (vector-ref #{x 27266}# 1)
+ (vector-ref #{x 27266}# 2))
+ (if (pair? #{x 27266}#)
+ (let ((#{a 27285}# (#{f 27263}# (car #{x 27266}#)))
+ (#{d 27286}# (#{f 27263}# (cdr #{x 27266}#))))
+ (if (if (eq? #{a 27285}# (car #{x 27266}#))
+ (eq? #{d 27286}# (cdr #{x 27266}#))
#f)
- #{x 28412}#
- (cons #{a 28431}# #{d 28432}#)))
- (if (vector? #{x 28412}#)
- (let ((#{old 28435}# (vector->list #{x 28412}#)))
- (let ((#{new 28436}# (map #{f 28409}# #{old 28435}#)))
+ #{x 27266}#
+ (cons #{a 27285}# #{d 27286}#)))
+ (if (vector? #{x 27266}#)
+ (let ((#{old 27289}# (vector->list #{x 27266}#)))
+ (let ((#{new 27290}# (map #{f 27263}# #{old 27289}#)))
(letrec*
- ((#{lp 28437}#
- (lambda (#{l1 28513}# #{l2 28514}#)
- (if (null? #{l1 28513}#)
- #{x 28412}#
- (if (eq? (car #{l1 28513}#)
- (car #{l2 28514}#))
- (#{lp 28437}#
- (cdr #{l1 28513}#)
- (cdr #{l2 28514}#))
- (list->vector #{new 28436}#))))))
- (#{lp 28437}# #{old 28435}# #{new 28436}#))))
- #{x 28412}#))))))
- (#{f 28409}# #{x 28407}#)))))
- (#{gen-var 4347}#
- (lambda (#{id 27313}#)
- (let ((#{id 27314}#
- (if (if (vector? #{id 27313}#)
- (if (= (vector-length #{id 27313}#) 4)
- (eq? (vector-ref #{id 27313}# 0) 'syntax-object)
+ ((#{lp 27291}#
+ (lambda (#{l1 27367}# #{l2 27368}#)
+ (if (null? #{l1 27367}#)
+ #{x 27266}#
+ (if (eq? (car #{l1 27367}#)
+ (car #{l2 27368}#))
+ (#{lp 27291}#
+ (cdr #{l1 27367}#)
+ (cdr #{l2 27368}#))
+ (list->vector #{new 27290}#))))))
+ (#{lp 27291}# #{old 27289}# #{new 27290}#))))
+ #{x 27266}#))))))
+ (#{f 27263}# #{x 27261}#)))))
+ (#{gen-var 4348}#
+ (lambda (#{id 26185}#)
+ (let ((#{id 26186}#
+ (if (if (vector? #{id 26185}#)
+ (if (= (vector-length #{id 26185}#) 4)
+ (eq? (vector-ref #{id 26185}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 27313}# 1)
- #{id 27313}#)))
+ (vector-ref #{id 26185}# 1)
+ #{id 26185}#)))
(gensym
- (string-append (symbol->string #{id 27314}#) " "))))))
+ (string-append (symbol->string #{id 26186}#) " "))))))
(begin
(module-define!
(current-module)
@@ -7944,1858 +8056,1903 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 4299}#
+ (#{global-extend 4300}#
'core
'fluid-let-syntax
- (lambda (#{e 4468}#
- #{r 4469}#
- #{w 4470}#
- #{s 4471}#
- #{mod 4472}#)
- (let ((#{tmp 4474}#
+ (lambda (#{e 4469}#
+ #{r 4470}#
+ #{w 4471}#
+ #{s 4472}#
+ #{mod 4473}#)
+ (let ((#{tmp 4475}#
($sc-dispatch
- #{e 4468}#
+ #{e 4469}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 4474}#
+ (if (if #{tmp 4475}#
(@apply
- (lambda (#{var 4478}#
- #{val 4479}#
- #{e1 4480}#
- #{e2 4481}#)
- (#{valid-bound-ids? 4323}# #{var 4478}#))
- #{tmp 4474}#)
+ (lambda (#{var 4479}#
+ #{val 4480}#
+ #{e1 4481}#
+ #{e2 4482}#)
+ (#{valid-bound-ids? 4324}# #{var 4479}#))
+ #{tmp 4475}#)
#f)
(@apply
- (lambda (#{var 4559}#
- #{val 4560}#
- #{e1 4561}#
- #{e2 4562}#)
- (let ((#{names 4563}#
- (map (lambda (#{x 4753}#)
- (#{id-var-name 4320}# #{x 4753}# #{w 4470}#))
- #{var 4559}#)))
+ (lambda (#{var 4560}#
+ #{val 4561}#
+ #{e1 4562}#
+ #{e2 4563}#)
+ (let ((#{names 4564}#
+ (map (lambda (#{x 4754}#)
+ (#{id-var-name 4321}# #{x 4754}# #{w 4471}#))
+ #{var 4560}#)))
(begin
(for-each
- (lambda (#{id 4564}# #{n 4565}#)
- (let ((#{atom-key 4566}#
- (car (let ((#{t 4690}#
- (assq #{n 4565}# #{r 4469}#)))
- (if #{t 4690}#
- (cdr #{t 4690}#)
- (if (symbol? #{n 4565}#)
- (let ((#{t 4695}#
+ (lambda (#{id 4565}# #{n 4566}#)
+ (let ((#{atom-key 4567}#
+ (car (let ((#{t 4691}#
+ (assq #{n 4566}# #{r 4470}#)))
+ (if #{t 4691}#
+ (cdr #{t 4691}#)
+ (if (symbol? #{n 4566}#)
+ (let ((#{t 4696}#
(begin
- (if (if (not #{mod 4472}#)
+ (if (if (not #{mod 4473}#)
(current-module)
#f)
(warn "module system is
booted, we should have a module"
- #{n 4565}#))
- (let ((#{v 4732}#
+ #{n 4566}#))
+ (let ((#{v 4733}#
(module-variable
- (if #{mod 4472}#
+ (if #{mod 4473}#
(resolve-module
- (cdr #{mod
4472}#))
+ (cdr #{mod
4473}#))
(current-module))
- #{n 4565}#)))
- (if #{v 4732}#
+ #{n 4566}#)))
+ (if #{v 4733}#
(if (variable-bound?
- #{v 4732}#)
- (let ((#{val 4741}#
+ #{v 4733}#)
+ (let ((#{val 4742}#
(variable-ref
- #{v
4732}#)))
+ #{v
4733}#)))
(if (macro?
- #{val
4741}#)
+ #{val
4742}#)
(if (macro-type
- #{val
4741}#)
+ #{val
4742}#)
(cons
(macro-type
- #{val
4741}#)
+ #{val
4742}#)
(macro-binding
- #{val
4741}#))
+ #{val
4742}#))
#f)
#f))
#f)
#f)))))
- (if #{t 4695}#
- #{t 4695}#
+ (if #{t 4696}#
+ #{t 4696}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 4599}# #{atom-key 4566}#))
- (eqv? #{t 4599}# 'displaced-lexical))
+ (if (let ((#{t 4600}# #{atom-key 4567}#))
+ (eqv? #{t 4600}# 'displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e 4468}#
- (#{wrap 4326}#
+ #{e 4469}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{id 4564}#) #{s 4471}# #f)
+ (if (if (pair? #{id 4565}#) #{s 4472}# #f)
(set-source-properties!
- #{id 4564}#
- #{s 4471}#))
- #{id 4564}#)
- #{w 4470}#
- #{mod 4472}#)))))
- #{var 4559}#
- #{names 4563}#)
- (#{expand-body 4337}#
- (cons #{e1 4561}# #{e2 4562}#)
- (#{wrap 4326}#
+ #{id 4565}#
+ #{s 4472}#))
+ #{id 4565}#)
+ #{w 4471}#
+ #{mod 4473}#)))))
+ #{var 4560}#
+ #{names 4564}#)
+ (#{expand-body 4338}#
+ (cons #{e1 4562}# #{e2 4563}#)
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 4468}#) #{s 4471}# #f)
- (set-source-properties! #{e 4468}# #{s 4471}#))
- #{e 4468}#)
- #{w 4470}#
- #{mod 4472}#)
- (#{extend-env 4295}#
- #{names 4563}#
- (let ((#{trans-r 4839}#
- (#{macros-only-env 4297}# #{r 4469}#)))
- (map (lambda (#{x 4840}#)
+ (if (if (pair? #{e 4469}#) #{s 4472}# #f)
+ (set-source-properties! #{e 4469}# #{s 4472}#))
+ #{e 4469}#)
+ #{w 4471}#
+ #{mod 4473}#)
+ (#{extend-env 4296}#
+ #{names 4564}#
+ (let ((#{trans-r 4840}#
+ (#{macros-only-env 4298}# #{r 4470}#)))
+ (map (lambda (#{x 4841}#)
(cons 'macro
- (#{eval-local-transformer 4339}#
- (#{expand 4333}#
- #{x 4840}#
- #{trans-r 4839}#
- #{w 4470}#
- #{mod 4472}#)
- #{mod 4472}#)))
- #{val 4560}#))
- #{r 4469}#)
- #{w 4470}#
- #{mod 4472}#))))
- #{tmp 4474}#)
+ (#{eval-local-transformer 4340}#
+ (#{expand 4334}#
+ #{x 4841}#
+ #{trans-r 4840}#
+ #{w 4471}#
+ #{mod 4473}#)
+ #{mod 4473}#)))
+ #{val 4561}#))
+ #{r 4470}#)
+ #{w 4471}#
+ #{mod 4473}#))))
+ #{tmp 4475}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 4468}#) #{s 4471}# #f)
- (set-source-properties! #{e 4468}# #{s 4471}#))
- #{e 4468}#)
- #{w 4470}#
- #{mod 4472}#))))))
+ (if (if (pair? #{e 4469}#) #{s 4472}# #f)
+ (set-source-properties! #{e 4469}# #{s 4472}#))
+ #{e 4469}#)
+ #{w 4471}#
+ #{mod 4473}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 5054}#
- #{r 5055}#
- #{w 5056}#
- #{s 5057}#
- #{mod 5058}#)
- (let ((#{tmp 5060}# ($sc-dispatch #{e 5054}# '(_ any))))
- (if #{tmp 5060}#
+ (lambda (#{e 5050}#
+ #{r 5051}#
+ #{w 5052}#
+ #{s 5053}#
+ #{mod 5054}#)
+ (let ((#{tmp 5056}# ($sc-dispatch #{e 5050}# '(_ any))))
+ (if #{tmp 5056}#
(@apply
- (lambda (#{e 5063}#)
- (let ((#{exp 5067}#
- (#{strip 4346}# #{e 5063}# #{w 5056}#)))
+ (lambda (#{e 5059}#)
+ (let ((#{exp 5063}#
+ (#{strip 4347}# #{e 5059}# #{w 5052}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 5057}#
- #{exp 5067}#)))
- #{tmp 5060}#)
+ #{s 5053}#
+ #{exp 5063}#)))
+ #{tmp 5056}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 5054}#) #{s 5057}# #f)
- (set-source-properties! #{e 5054}# #{s 5057}#))
- #{e 5054}#)
- #{w 5056}#
- #{mod 5058}#)))))))
- (#{global-extend 4299}#
+ (if (if (pair? #{e 5050}#) #{s 5053}# #f)
+ (set-source-properties! #{e 5050}# #{s 5053}#))
+ #{e 5050}#)
+ #{w 5052}#
+ #{mod 5054}#)))))))
+ (#{global-extend 4300}#
'core
'syntax
(letrec*
- ((#{gen-syntax 5294}#
- (lambda (#{src 5396}#
- #{e 5397}#
- #{r 5398}#
- #{maps 5399}#
- #{ellipsis? 5400}#
- #{mod 5401}#)
- (if (if (symbol? #{e 5397}#)
+ ((#{gen-syntax 5290}#
+ (lambda (#{src 5392}#
+ #{e 5393}#
+ #{r 5394}#
+ #{maps 5395}#
+ #{ellipsis? 5396}#
+ #{mod 5397}#)
+ (if (if (symbol? #{e 5393}#)
#t
- (if (if (vector? #{e 5397}#)
- (if (= (vector-length #{e 5397}#) 4)
- (eq? (vector-ref #{e 5397}# 0) 'syntax-object)
+ (if (if (vector? #{e 5393}#)
+ (if (= (vector-length #{e 5393}#) 4)
+ (eq? (vector-ref #{e 5393}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 5397}# 1))
+ (symbol? (vector-ref #{e 5393}# 1))
#f))
- (let ((#{label 5428}#
- (#{id-var-name 4320}# #{e 5397}# '(()))))
- (let ((#{b 5429}#
- (let ((#{t 5566}# (assq #{label 5428}# #{r 5398}#)))
- (if #{t 5566}#
- (cdr #{t 5566}#)
- (if (symbol? #{label 5428}#)
- (let ((#{t 5571}#
+ (let ((#{label 5424}#
+ (#{id-var-name 4321}# #{e 5393}# '(()))))
+ (let ((#{b 5425}#
+ (let ((#{t 5562}# (assq #{label 5424}# #{r 5394}#)))
+ (if #{t 5562}#
+ (cdr #{t 5562}#)
+ (if (symbol? #{label 5424}#)
+ (let ((#{t 5567}#
(begin
- (if (if (not #{mod 5401}#)
+ (if (if (not #{mod 5397}#)
(current-module)
#f)
(warn "module system is booted, we
should have a module"
- #{label 5428}#))
- (let ((#{v 5608}#
+ #{label 5424}#))
+ (let ((#{v 5604}#
(module-variable
- (if #{mod 5401}#
+ (if #{mod 5397}#
(resolve-module
- (cdr #{mod 5401}#))
+ (cdr #{mod 5397}#))
(current-module))
- #{label 5428}#)))
- (if #{v 5608}#
- (if (variable-bound? #{v 5608}#)
- (let ((#{val 5617}#
+ #{label 5424}#)))
+ (if #{v 5604}#
+ (if (variable-bound? #{v 5604}#)
+ (let ((#{val 5613}#
(variable-ref
- #{v 5608}#)))
- (if (macro? #{val 5617}#)
+ #{v 5604}#)))
+ (if (macro? #{val 5613}#)
(if (macro-type
- #{val 5617}#)
+ #{val 5613}#)
(cons (macro-type
- #{val 5617}#)
+ #{val 5613}#)
(macro-binding
- #{val 5617}#))
+ #{val 5613}#))
#f)
#f))
#f)
#f)))))
- (if #{t 5571}# #{t 5571}# '(global)))
+ (if #{t 5567}# #{t 5567}# '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 5429}#) 'syntax)
+ (if (eq? (car #{b 5425}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 5462}# (cdr #{b 5429}#)))
- (#{gen-ref 5295}#
- #{src 5396}#
- (car #{var.lev 5462}#)
- (cdr #{var.lev 5462}#)
- #{maps 5399}#)))
- (lambda (#{var 5558}# #{maps 5559}#)
- (values (list 'ref #{var 5558}#) #{maps 5559}#)))
- (if (#{ellipsis? 5400}# #{e 5397}#)
+ (let ((#{var.lev 5458}# (cdr #{b 5425}#)))
+ (#{gen-ref 5291}#
+ #{src 5392}#
+ (car #{var.lev 5458}#)
+ (cdr #{var.lev 5458}#)
+ #{maps 5395}#)))
+ (lambda (#{var 5554}# #{maps 5555}#)
+ (values (list 'ref #{var 5554}#) #{maps 5555}#)))
+ (if (#{ellipsis? 5396}# #{e 5393}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 5396}#)
- (values (list 'quote #{e 5397}#) #{maps 5399}#)))))
- (let ((#{tmp 5629}#
- ($sc-dispatch #{e 5397}# '(any any))))
- (if (if #{tmp 5629}#
+ #{src 5392}#)
+ (values (list 'quote #{e 5393}#) #{maps 5395}#)))))
+ (let ((#{tmp 5625}#
+ ($sc-dispatch #{e 5393}# '(any any))))
+ (if (if #{tmp 5625}#
(@apply
- (lambda (#{dots 5633}# #{e 5634}#)
- (#{ellipsis? 5400}# #{dots 5633}#))
- #{tmp 5629}#)
+ (lambda (#{dots 5629}# #{e 5630}#)
+ (#{ellipsis? 5396}# #{dots 5629}#))
+ #{tmp 5625}#)
#f)
(@apply
- (lambda (#{dots 5635}# #{e 5636}#)
- (#{gen-syntax 5294}#
- #{src 5396}#
- #{e 5636}#
- #{r 5398}#
- #{maps 5399}#
- (lambda (#{x 5637}#) #f)
- #{mod 5401}#))
- #{tmp 5629}#)
- (let ((#{tmp 5638}#
- ($sc-dispatch #{e 5397}# '(any any . any))))
- (if (if #{tmp 5638}#
+ (lambda (#{dots 5631}# #{e 5632}#)
+ (#{gen-syntax 5290}#
+ #{src 5392}#
+ #{e 5632}#
+ #{r 5394}#
+ #{maps 5395}#
+ (lambda (#{x 5633}#) #f)
+ #{mod 5397}#))
+ #{tmp 5625}#)
+ (let ((#{tmp 5634}#
+ ($sc-dispatch #{e 5393}# '(any any . any))))
+ (if (if #{tmp 5634}#
(@apply
- (lambda (#{x 5642}# #{dots 5643}# #{y 5644}#)
- (#{ellipsis? 5400}# #{dots 5643}#))
- #{tmp 5638}#)
+ (lambda (#{x 5638}# #{dots 5639}# #{y 5640}#)
+ (#{ellipsis? 5396}# #{dots 5639}#))
+ #{tmp 5634}#)
#f)
(@apply
- (lambda (#{x 5645}# #{dots 5646}# #{y 5647}#)
+ (lambda (#{x 5641}# #{dots 5642}# #{y 5643}#)
(letrec*
- ((#{f 5648}#
- (lambda (#{y 5656}# #{k 5657}#)
- (let ((#{tmp 5659}#
+ ((#{f 5644}#
+ (lambda (#{y 5652}# #{k 5653}#)
+ (let ((#{tmp 5655}#
($sc-dispatch
- #{y 5656}#
+ #{y 5652}#
'(any . any))))
- (if (if #{tmp 5659}#
+ (if (if #{tmp 5655}#
(@apply
- (lambda (#{dots 5663}# #{y 5664}#)
- (#{ellipsis? 5400}#
- #{dots 5663}#))
- #{tmp 5659}#)
+ (lambda (#{dots 5659}# #{y 5660}#)
+ (#{ellipsis? 5396}#
+ #{dots 5659}#))
+ #{tmp 5655}#)
#f)
(@apply
- (lambda (#{dots 5665}# #{y 5666}#)
- (#{f 5648}#
- #{y 5666}#
- (lambda (#{maps 5667}#)
+ (lambda (#{dots 5661}# #{y 5662}#)
+ (#{f 5644}#
+ #{y 5662}#
+ (lambda (#{maps 5663}#)
(call-with-values
(lambda ()
- (#{k 5657}#
- (cons '() #{maps 5667}#)))
- (lambda (#{x 5668}#
- #{maps 5669}#)
- (if (null? (car #{maps
5669}#))
+ (#{k 5653}#
+ (cons '() #{maps 5663}#)))
+ (lambda (#{x 5664}#
+ #{maps 5665}#)
+ (if (null? (car #{maps
5665}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 5396}#)
+ #{src 5392}#)
(values
- (let ((#{map-env 5673}#
- (car #{maps
5669}#)))
+ (let ((#{map-env 5669}#
+ (car #{maps
5665}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 5297}#
- #{x 5668}#
- #{map-env
5673}#)))
- (cdr #{maps
5669}#))))))))
- #{tmp 5659}#)
+ (#{gen-map 5293}#
+ #{x 5664}#
+ #{map-env
5669}#)))
+ (cdr #{maps
5665}#))))))))
+ #{tmp 5655}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5294}#
- #{src 5396}#
- #{y 5656}#
- #{r 5398}#
- #{maps 5399}#
- #{ellipsis? 5400}#
- #{mod 5401}#))
- (lambda (#{y 5676}# #{maps 5677}#)
+ (#{gen-syntax 5290}#
+ #{src 5392}#
+ #{y 5652}#
+ #{r 5394}#
+ #{maps 5395}#
+ #{ellipsis? 5396}#
+ #{mod 5397}#))
+ (lambda (#{y 5672}# #{maps 5673}#)
(call-with-values
(lambda ()
- (#{k 5657}# #{maps 5677}#))
- (lambda (#{x 5678}# #{maps 5679}#)
+ (#{k 5653}# #{maps 5673}#))
+ (lambda (#{x 5674}# #{maps 5675}#)
(values
- (if (equal? #{y 5676}# ''())
- #{x 5678}#
+ (if (equal? #{y 5672}# ''())
+ #{x 5674}#
(list 'append
- #{x 5678}#
- #{y 5676}#))
- #{maps 5679}#))))))))))
- (#{f 5648}#
- #{y 5647}#
- (lambda (#{maps 5651}#)
+ #{x 5674}#
+ #{y 5672}#))
+ #{maps 5675}#))))))))))
+ (#{f 5644}#
+ #{y 5643}#
+ (lambda (#{maps 5647}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5294}#
- #{src 5396}#
- #{x 5645}#
- #{r 5398}#
- (cons '() #{maps 5651}#)
- #{ellipsis? 5400}#
- #{mod 5401}#))
- (lambda (#{x 5652}# #{maps 5653}#)
- (if (null? (car #{maps 5653}#))
+ (#{gen-syntax 5290}#
+ #{src 5392}#
+ #{x 5641}#
+ #{r 5394}#
+ (cons '() #{maps 5647}#)
+ #{ellipsis? 5396}#
+ #{mod 5397}#))
+ (lambda (#{x 5648}# #{maps 5649}#)
+ (if (null? (car #{maps 5649}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 5396}#)
+ #{src 5392}#)
(values
- (#{gen-map 5297}#
- #{x 5652}#
- (car #{maps 5653}#))
- (cdr #{maps 5653}#)))))))))
- #{tmp 5638}#)
- (let ((#{tmp 5695}#
- ($sc-dispatch #{e 5397}# '(any . any))))
- (if #{tmp 5695}#
+ (#{gen-map 5293}#
+ #{x 5648}#
+ (car #{maps 5649}#))
+ (cdr #{maps 5649}#)))))))))
+ #{tmp 5634}#)
+ (let ((#{tmp 5691}#
+ ($sc-dispatch #{e 5393}# '(any . any))))
+ (if #{tmp 5691}#
(@apply
- (lambda (#{x 5699}# #{y 5700}#)
+ (lambda (#{x 5695}# #{y 5696}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5294}#
- #{src 5396}#
- #{x 5699}#
- #{r 5398}#
- #{maps 5399}#
- #{ellipsis? 5400}#
- #{mod 5401}#))
- (lambda (#{x 5701}# #{maps 5702}#)
+ (#{gen-syntax 5290}#
+ #{src 5392}#
+ #{x 5695}#
+ #{r 5394}#
+ #{maps 5395}#
+ #{ellipsis? 5396}#
+ #{mod 5397}#))
+ (lambda (#{x 5697}# #{maps 5698}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5294}#
- #{src 5396}#
- #{y 5700}#
- #{r 5398}#
- #{maps 5702}#
- #{ellipsis? 5400}#
- #{mod 5401}#))
- (lambda (#{y 5703}# #{maps 5704}#)
+ (#{gen-syntax 5290}#
+ #{src 5392}#
+ #{y 5696}#
+ #{r 5394}#
+ #{maps 5698}#
+ #{ellipsis? 5396}#
+ #{mod 5397}#))
+ (lambda (#{y 5699}# #{maps 5700}#)
(values
- (let ((#{atom-key 5709}#
- (car #{y 5703}#)))
- (if (eqv? #{atom-key 5709}# 'quote)
- (if (eq? (car #{x 5701}#) 'quote)
+ (let ((#{atom-key 5705}#
+ (car #{y 5699}#)))
+ (if (eqv? #{atom-key 5705}# 'quote)
+ (if (eq? (car #{x 5697}#) 'quote)
(list 'quote
- (cons (car (cdr #{x
5701}#))
- (car (cdr #{y
5703}#))))
- (if (eq? (car (cdr #{y 5703}#))
+ (cons (car (cdr #{x
5697}#))
+ (car (cdr #{y
5699}#))))
+ (if (eq? (car (cdr #{y 5699}#))
'())
- (list 'list #{x 5701}#)
+ (list 'list #{x 5697}#)
(list 'cons
- #{x 5701}#
- #{y 5703}#)))
- (if (eqv? #{atom-key 5709}# 'list)
+ #{x 5697}#
+ #{y 5699}#)))
+ (if (eqv? #{atom-key 5705}# 'list)
(cons 'list
- (cons #{x 5701}#
- (cdr #{y 5703}#)))
+ (cons #{x 5697}#
+ (cdr #{y 5699}#)))
(list 'cons
- #{x 5701}#
- #{y 5703}#))))
- #{maps 5704}#))))))
- #{tmp 5695}#)
- (let ((#{tmp 5738}#
+ #{x 5697}#
+ #{y 5699}#))))
+ #{maps 5700}#))))))
+ #{tmp 5691}#)
+ (let ((#{tmp 5734}#
($sc-dispatch
- #{e 5397}#
+ #{e 5393}#
'#(vector (any . each-any)))))
- (if #{tmp 5738}#
+ (if #{tmp 5734}#
(@apply
- (lambda (#{e1 5742}# #{e2 5743}#)
+ (lambda (#{e1 5738}# #{e2 5739}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5294}#
- #{src 5396}#
- (cons #{e1 5742}# #{e2 5743}#)
- #{r 5398}#
- #{maps 5399}#
- #{ellipsis? 5400}#
- #{mod 5401}#))
- (lambda (#{e 5744}# #{maps 5745}#)
+ (#{gen-syntax 5290}#
+ #{src 5392}#
+ (cons #{e1 5738}# #{e2 5739}#)
+ #{r 5394}#
+ #{maps 5395}#
+ #{ellipsis? 5396}#
+ #{mod 5397}#))
+ (lambda (#{e 5740}# #{maps 5741}#)
(values
- (if (eq? (car #{e 5744}#) 'list)
- (cons 'vector (cdr #{e 5744}#))
- (if (eq? (car #{e 5744}#) 'quote)
+ (if (eq? (car #{e 5740}#) 'list)
+ (cons 'vector (cdr #{e 5740}#))
+ (if (eq? (car #{e 5740}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 5744}#))))
- (list 'list->vector #{e 5744}#)))
- #{maps 5745}#))))
- #{tmp 5738}#)
+ (car (cdr #{e 5740}#))))
+ (list 'list->vector #{e 5740}#)))
+ #{maps 5741}#))))
+ #{tmp 5734}#)
(values
- (list 'quote #{e 5397}#)
- #{maps 5399}#))))))))))))
- (#{gen-ref 5295}#
- (lambda (#{src 5772}#
- #{var 5773}#
- #{level 5774}#
- #{maps 5775}#)
- (if (= #{level 5774}# 0)
- (values #{var 5773}# #{maps 5775}#)
- (if (null? #{maps 5775}#)
+ (list 'quote #{e 5393}#)
+ #{maps 5395}#))))))))))))
+ (#{gen-ref 5291}#
+ (lambda (#{src 5768}#
+ #{var 5769}#
+ #{level 5770}#
+ #{maps 5771}#)
+ (if (= #{level 5770}# 0)
+ (values #{var 5769}# #{maps 5771}#)
+ (if (null? #{maps 5771}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 5772}#)
+ #{src 5768}#)
(call-with-values
(lambda ()
- (#{gen-ref 5295}#
- #{src 5772}#
- #{var 5773}#
- (#{1-}# #{level 5774}#)
- (cdr #{maps 5775}#)))
- (lambda (#{outer-var 5776}# #{outer-maps 5777}#)
- (let ((#{b 5778}#
- (assq #{outer-var 5776}# (car #{maps 5775}#))))
- (if #{b 5778}#
- (values (cdr #{b 5778}#) #{maps 5775}#)
- (let ((#{inner-var 5780}#
+ (#{gen-ref 5291}#
+ #{src 5768}#
+ #{var 5769}#
+ (#{1-}# #{level 5770}#)
+ (cdr #{maps 5771}#)))
+ (lambda (#{outer-var 5772}# #{outer-maps 5773}#)
+ (let ((#{b 5774}#
+ (assq #{outer-var 5772}# (car #{maps 5771}#))))
+ (if #{b 5774}#
+ (values (cdr #{b 5774}#) #{maps 5771}#)
+ (let ((#{inner-var 5776}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{inner-var 5780}#
- (cons (cons (cons #{outer-var 5776}#
- #{inner-var 5780}#)
- (car #{maps 5775}#))
- #{outer-maps 5777}#)))))))))))
- (#{gen-map 5297}#
- (lambda (#{e 5794}# #{map-env 5795}#)
- (let ((#{formals 5796}# (map cdr #{map-env 5795}#))
- (#{actuals 5797}#
- (map (lambda (#{x 5799}#)
- (list 'ref (car #{x 5799}#)))
- #{map-env 5795}#)))
- (if (eq? (car #{e 5794}#) 'ref)
- (car #{actuals 5797}#)
+ #{inner-var 5776}#
+ (cons (cons (cons #{outer-var 5772}#
+ #{inner-var 5776}#)
+ (car #{maps 5771}#))
+ #{outer-maps 5773}#)))))))))))
+ (#{gen-map 5293}#
+ (lambda (#{e 5790}# #{map-env 5791}#)
+ (let ((#{formals 5792}# (map cdr #{map-env 5791}#))
+ (#{actuals 5793}#
+ (map (lambda (#{x 5795}#)
+ (list 'ref (car #{x 5795}#)))
+ #{map-env 5791}#)))
+ (if (eq? (car #{e 5790}#) 'ref)
+ (car #{actuals 5793}#)
(if (and-map
- (lambda (#{x 5800}#)
- (if (eq? (car #{x 5800}#) 'ref)
- (memq (car (cdr #{x 5800}#)) #{formals 5796}#)
+ (lambda (#{x 5796}#)
+ (if (eq? (car #{x 5796}#) 'ref)
+ (memq (car (cdr #{x 5796}#)) #{formals 5792}#)
#f))
- (cdr #{e 5794}#))
+ (cdr #{e 5790}#))
(cons 'map
- (cons (list 'primitive (car #{e 5794}#))
- (map (let ((#{r 5802}#
+ (cons (list 'primitive (car #{e 5790}#))
+ (map (let ((#{r 5798}#
(map cons
- #{formals 5796}#
- #{actuals 5797}#)))
- (lambda (#{x 5803}#)
- (cdr (assq (car (cdr #{x 5803}#))
- #{r 5802}#))))
- (cdr #{e 5794}#))))
+ #{formals 5792}#
+ #{actuals 5793}#)))
+ (lambda (#{x 5799}#)
+ (cdr (assq (car (cdr #{x 5799}#))
+ #{r 5798}#))))
+ (cdr #{e 5790}#))))
(cons 'map
- (cons (list 'lambda #{formals 5796}# #{e 5794}#)
- #{actuals 5797}#)))))))
- (#{regen 5301}#
- (lambda (#{x 5805}#)
- (let ((#{atom-key 5806}# (car #{x 5805}#)))
- (if (eqv? #{atom-key 5806}# 'ref)
- (let ((#{name 5816}# (car (cdr #{x 5805}#)))
- (#{var 5817}# (car (cdr #{x 5805}#))))
+ (cons (list 'lambda #{formals 5792}# #{e 5790}#)
+ #{actuals 5793}#)))))))
+ (#{regen 5297}#
+ (lambda (#{x 5801}#)
+ (let ((#{atom-key 5802}# (car #{x 5801}#)))
+ (if (eqv? #{atom-key 5802}# 'ref)
+ (let ((#{name 5812}# (car (cdr #{x 5801}#)))
+ (#{var 5813}# (car (cdr #{x 5801}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 5816}#
- #{var 5817}#))
- (if (eqv? #{atom-key 5806}# 'primitive)
- (let ((#{name 5829}# (car (cdr #{x 5805}#))))
+ #{name 5812}#
+ #{var 5813}#))
+ (if (eqv? #{atom-key 5802}# 'primitive)
+ (let ((#{name 5825}# (car (cdr #{x 5801}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5829}#)
+ #{name 5825}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5829}#
+ #{name 5825}#
#f)))
- (if (eqv? #{atom-key 5806}# 'quote)
- (let ((#{exp 5847}# (car (cdr #{x 5805}#))))
+ (if (eqv? #{atom-key 5802}# 'quote)
+ (let ((#{exp 5843}# (car (cdr #{x 5801}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 5847}#))
- (if (eqv? #{atom-key 5806}# 'lambda)
- (if (list? (car (cdr #{x 5805}#)))
- (let ((#{req 5858}# (car (cdr #{x 5805}#)))
- (#{vars 5860}# (car (cdr #{x 5805}#)))
- (#{exp 5862}#
- (#{regen 5301}#
- (car (cdr (cdr #{x 5805}#))))))
- (let ((#{body 5867}#
+ #{exp 5843}#))
+ (if (eqv? #{atom-key 5802}# 'lambda)
+ (if (list? (car (cdr #{x 5801}#)))
+ (let ((#{req 5854}# (car (cdr #{x 5801}#)))
+ (#{vars 5856}# (car (cdr #{x 5801}#)))
+ (#{exp 5858}#
+ (#{regen 5297}#
+ (car (cdr (cdr #{x 5801}#))))))
+ (let ((#{body 5863}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 5858}#
+ #{req 5854}#
#f
#f
#f
'()
- #{vars 5860}#
- #{exp 5862}#
+ #{vars 5856}#
+ #{exp 5858}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 5867}#)))
- (error "how did we get here" #{x 5805}#))
- (let ((#{fun-exp 5883}#
- (let ((#{name 5892}# (car #{x 5805}#)))
+ #{body 5863}#)))
+ (error "how did we get here" #{x 5801}#))
+ (let ((#{fun-exp 5879}#
+ (let ((#{name 5888}# (car #{x 5801}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5892}#)
+ #{name 5888}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5892}#
+ #{name 5888}#
#f))))
- (#{arg-exps 5884}#
- (map #{regen 5301}# (cdr #{x 5805}#))))
+ (#{arg-exps 5880}#
+ (map #{regen 5297}# (cdr #{x 5801}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 5883}#
- #{arg-exps 5884}#))))))))))
- (lambda (#{e 5302}#
- #{r 5303}#
- #{w 5304}#
- #{s 5305}#
- #{mod 5306}#)
- (let ((#{e 5307}#
- (#{wrap 4326}#
+ #{fun-exp 5879}#
+ #{arg-exps 5880}#))))))))))
+ (lambda (#{e 5298}#
+ #{r 5299}#
+ #{w 5300}#
+ #{s 5301}#
+ #{mod 5302}#)
+ (let ((#{e 5303}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 5302}#) #{s 5305}# #f)
- (set-source-properties! #{e 5302}# #{s 5305}#))
- #{e 5302}#)
- #{w 5304}#
- #{mod 5306}#)))
- (let ((#{tmp 5309}# ($sc-dispatch #{e 5307}# '(_ any))))
- (if #{tmp 5309}#
+ (if (if (pair? #{e 5298}#) #{s 5301}# #f)
+ (set-source-properties! #{e 5298}# #{s 5301}#))
+ #{e 5298}#)
+ #{w 5300}#
+ #{mod 5302}#)))
+ (let ((#{tmp 5305}# ($sc-dispatch #{e 5303}# '(_ any))))
+ (if #{tmp 5305}#
(@apply
- (lambda (#{x 5334}#)
+ (lambda (#{x 5330}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5294}#
- #{e 5307}#
- #{x 5334}#
- #{r 5303}#
+ (#{gen-syntax 5290}#
+ #{e 5303}#
+ #{x 5330}#
+ #{r 5299}#
'()
- #{ellipsis? 4341}#
- #{mod 5306}#))
- (lambda (#{e 5388}# #{maps 5389}#)
- (#{regen 5301}# #{e 5388}#))))
- #{tmp 5309}#)
+ #{ellipsis? 4342}#
+ #{mod 5302}#))
+ (lambda (#{e 5384}# #{maps 5385}#)
+ (#{regen 5297}# #{e 5384}#))))
+ #{tmp 5305}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 5307}#)))))))
- (#{global-extend 4299}#
+ #{e 5303}#)))))))
+ (#{global-extend 4300}#
'core
'lambda
- (lambda (#{e 6087}#
- #{r 6088}#
- #{w 6089}#
- #{s 6090}#
- #{mod 6091}#)
- (let ((#{tmp 6093}#
- ($sc-dispatch #{e 6087}# '(_ any any . each-any))))
- (if #{tmp 6093}#
+ (lambda (#{e 6081}#
+ #{r 6082}#
+ #{w 6083}#
+ #{s 6084}#
+ #{mod 6085}#)
+ (let ((#{tmp 6087}#
+ ($sc-dispatch #{e 6081}# '(_ any any . each-any))))
+ (if #{tmp 6087}#
(@apply
- (lambda (#{args 6097}# #{e1 6098}# #{e2 6099}#)
+ (lambda (#{args 6091}# #{e1 6092}# #{e2 6093}#)
(call-with-values
(lambda ()
- (#{lambda-formals 4342}# #{args 6097}#))
- (lambda (#{req 6102}#
- #{opt 6103}#
- #{rest 6104}#
- #{kw 6105}#)
+ (#{lambda-formals 4343}# #{args 6091}#))
+ (lambda (#{req 6096}#
+ #{opt 6097}#
+ #{rest 6098}#
+ #{kw 6099}#)
(letrec*
- ((#{lp 6106}#
- (lambda (#{body 6109}# #{meta 6110}#)
- (let ((#{tmp 6112}#
+ ((#{lp 6100}#
+ (lambda (#{body 6103}# #{meta 6104}#)
+ (let ((#{tmp 6106}#
($sc-dispatch
- #{body 6109}#
+ #{body 6103}#
'(any any . each-any))))
- (if (if #{tmp 6112}#
+ (if (if #{tmp 6106}#
(@apply
- (lambda (#{docstring 6116}#
- #{e1 6117}#
- #{e2 6118}#)
+ (lambda (#{docstring 6110}#
+ #{e1 6111}#
+ #{e2 6112}#)
(string?
- (syntax->datum #{docstring 6116}#)))
- #{tmp 6112}#)
+ (syntax->datum #{docstring 6110}#)))
+ #{tmp 6106}#)
#f)
(@apply
- (lambda (#{docstring 6119}#
- #{e1 6120}#
- #{e2 6121}#)
- (#{lp 6106}#
- (cons #{e1 6120}# #{e2 6121}#)
+ (lambda (#{docstring 6113}#
+ #{e1 6114}#
+ #{e2 6115}#)
+ (#{lp 6100}#
+ (cons #{e1 6114}# #{e2 6115}#)
(append
- #{meta 6110}#
+ #{meta 6104}#
(list (cons 'documentation
(syntax->datum
- #{docstring 6119}#))))))
- #{tmp 6112}#)
- (let ((#{tmp 6122}#
+ #{docstring 6113}#))))))
+ #{tmp 6106}#)
+ (let ((#{tmp 6116}#
($sc-dispatch
- #{body 6109}#
+ #{body 6103}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 6122}#
+ (if #{tmp 6116}#
(@apply
- (lambda (#{k 6126}#
- #{v 6127}#
- #{e1 6128}#
- #{e2 6129}#)
- (#{lp 6106}#
- (cons #{e1 6128}# #{e2 6129}#)
+ (lambda (#{k 6120}#
+ #{v 6121}#
+ #{e1 6122}#
+ #{e2 6123}#)
+ (#{lp 6100}#
+ (cons #{e1 6122}# #{e2 6123}#)
(append
- #{meta 6110}#
+ #{meta 6104}#
(syntax->datum
(map cons
- #{k 6126}#
- #{v 6127}#)))))
- #{tmp 6122}#)
- (#{expand-simple-lambda 4343}#
- #{e 6087}#
- #{r 6088}#
- #{w 6089}#
- #{s 6090}#
- #{mod 6091}#
- #{req 6102}#
- #{rest 6104}#
- #{meta 6110}#
- #{body 6109}#))))))))
- (#{lp 6106}# (cons #{e1 6098}# #{e2 6099}#) '())))))
- #{tmp 6093}#)
+ #{k 6120}#
+ #{v 6121}#)))))
+ #{tmp 6116}#)
+ (#{expand-simple-lambda 4344}#
+ #{e 6081}#
+ #{r 6082}#
+ #{w 6083}#
+ #{s 6084}#
+ #{mod 6085}#
+ #{req 6096}#
+ #{rest 6098}#
+ #{meta 6104}#
+ #{body 6103}#))))))))
+ (#{lp 6100}# (cons #{e1 6092}# #{e2 6093}#) '())))))
+ #{tmp 6087}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 6087}#)))))
- (#{global-extend 4299}#
+ #{e 6081}#)))))
+ (#{global-extend 4300}#
'core
'lambda*
- (lambda (#{e 6421}#
- #{r 6422}#
- #{w 6423}#
- #{s 6424}#
- #{mod 6425}#)
- (let ((#{tmp 6427}#
- ($sc-dispatch #{e 6421}# '(_ any any . each-any))))
- (if #{tmp 6427}#
+ (lambda (#{e 6414}#
+ #{r 6415}#
+ #{w 6416}#
+ #{s 6417}#
+ #{mod 6418}#)
+ (let ((#{tmp 6420}#
+ ($sc-dispatch #{e 6414}# '(_ any any . each-any))))
+ (if #{tmp 6420}#
(@apply
- (lambda (#{args 6431}# #{e1 6432}# #{e2 6433}#)
+ (lambda (#{args 6424}# #{e1 6425}# #{e2 6426}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4345}#
- #{e 6421}#
- #{r 6422}#
- #{w 6423}#
- #{s 6424}#
- #{mod 6425}#
- #{lambda*-formals 4344}#
- (list (cons #{args 6431}#
- (cons #{e1 6432}# #{e2 6433}#)))))
- (lambda (#{meta 6436}# #{lcase 6437}#)
+ (#{expand-lambda-case 4346}#
+ #{e 6414}#
+ #{r 6415}#
+ #{w 6416}#
+ #{s 6417}#
+ #{mod 6418}#
+ #{lambda*-formals 4345}#
+ (list (cons #{args 6424}#
+ (cons #{e1 6425}# #{e2 6426}#)))))
+ (lambda (#{meta 6429}# #{lcase 6430}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6424}#
- #{meta 6436}#
- #{lcase 6437}#))))
- #{tmp 6427}#)
+ #{s 6417}#
+ #{meta 6429}#
+ #{lcase 6430}#))))
+ #{tmp 6420}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 6421}#)))))
- (#{global-extend 4299}#
+ #{e 6414}#)))))
+ (#{global-extend 4300}#
'core
'case-lambda
- (lambda (#{e 6611}#
- #{r 6612}#
- #{w 6613}#
- #{s 6614}#
- #{mod 6615}#)
- (let ((#{tmp 6617}#
+ (lambda (#{e 6600}#
+ #{r 6601}#
+ #{w 6602}#
+ #{s 6603}#
+ #{mod 6604}#)
+ (let ((#{tmp 6606}#
($sc-dispatch
- #{e 6611}#
+ #{e 6600}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 6617}#
+ (if #{tmp 6606}#
(@apply
- (lambda (#{args 6621}#
- #{e1 6622}#
- #{e2 6623}#
- #{args* 6624}#
- #{e1* 6625}#
- #{e2* 6626}#)
+ (lambda (#{args 6610}#
+ #{e1 6611}#
+ #{e2 6612}#
+ #{args* 6613}#
+ #{e1* 6614}#
+ #{e2* 6615}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4345}#
- #{e 6611}#
- #{r 6612}#
- #{w 6613}#
- #{s 6614}#
- #{mod 6615}#
- #{lambda-formals 4342}#
- (cons (cons #{args 6621}#
- (cons #{e1 6622}# #{e2 6623}#))
- (map (lambda (#{tmp 3262 6629}#
- #{tmp 3261 6630}#
- #{tmp 3260 6631}#)
- (cons #{tmp 3260 6631}#
- (cons #{tmp 3261 6630}#
- #{tmp 3262 6629}#)))
- #{e2* 6626}#
- #{e1* 6625}#
- #{args* 6624}#))))
- (lambda (#{meta 6632}# #{lcase 6633}#)
+ (#{expand-lambda-case 4346}#
+ #{e 6600}#
+ #{r 6601}#
+ #{w 6602}#
+ #{s 6603}#
+ #{mod 6604}#
+ #{lambda-formals 4343}#
+ (cons (cons #{args 6610}#
+ (cons #{e1 6611}# #{e2 6612}#))
+ (map (lambda (#{tmp 3263 6618}#
+ #{tmp 3262 6619}#
+ #{tmp 3261 6620}#)
+ (cons #{tmp 3261 6620}#
+ (cons #{tmp 3262 6619}#
+ #{tmp 3263 6618}#)))
+ #{e2* 6615}#
+ #{e1* 6614}#
+ #{args* 6613}#))))
+ (lambda (#{meta 6621}# #{lcase 6622}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6614}#
- #{meta 6632}#
- #{lcase 6633}#))))
- #{tmp 6617}#)
+ #{s 6603}#
+ #{meta 6621}#
+ #{lcase 6622}#))))
+ #{tmp 6606}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 6611}#)))))
- (#{global-extend 4299}#
+ #{e 6600}#)))))
+ (#{global-extend 4300}#
'core
'case-lambda*
- (lambda (#{e 6796}#
- #{r 6797}#
- #{w 6798}#
- #{s 6799}#
- #{mod 6800}#)
- (let ((#{tmp 6802}#
+ (lambda (#{e 6784}#
+ #{r 6785}#
+ #{w 6786}#
+ #{s 6787}#
+ #{mod 6788}#)
+ (let ((#{tmp 6790}#
($sc-dispatch
- #{e 6796}#
+ #{e 6784}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 6802}#
+ (if #{tmp 6790}#
(@apply
- (lambda (#{args 6806}#
- #{e1 6807}#
- #{e2 6808}#
- #{args* 6809}#
- #{e1* 6810}#
- #{e2* 6811}#)
+ (lambda (#{args 6794}#
+ #{e1 6795}#
+ #{e2 6796}#
+ #{args* 6797}#
+ #{e1* 6798}#
+ #{e2* 6799}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4345}#
- #{e 6796}#
- #{r 6797}#
- #{w 6798}#
- #{s 6799}#
- #{mod 6800}#
- #{lambda*-formals 4344}#
- (cons (cons #{args 6806}#
- (cons #{e1 6807}# #{e2 6808}#))
- (map (lambda (#{tmp 3297 6814}#
- #{tmp 3296 6815}#
- #{tmp 3295 6816}#)
- (cons #{tmp 3295 6816}#
- (cons #{tmp 3296 6815}#
- #{tmp 3297 6814}#)))
- #{e2* 6811}#
- #{e1* 6810}#
- #{args* 6809}#))))
- (lambda (#{meta 6817}# #{lcase 6818}#)
+ (#{expand-lambda-case 4346}#
+ #{e 6784}#
+ #{r 6785}#
+ #{w 6786}#
+ #{s 6787}#
+ #{mod 6788}#
+ #{lambda*-formals 4345}#
+ (cons (cons #{args 6794}#
+ (cons #{e1 6795}# #{e2 6796}#))
+ (map (lambda (#{tmp 3298 6802}#
+ #{tmp 3297 6803}#
+ #{tmp 3296 6804}#)
+ (cons #{tmp 3296 6804}#
+ (cons #{tmp 3297 6803}#
+ #{tmp 3298 6802}#)))
+ #{e2* 6799}#
+ #{e1* 6798}#
+ #{args* 6797}#))))
+ (lambda (#{meta 6805}# #{lcase 6806}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6799}#
- #{meta 6817}#
- #{lcase 6818}#))))
- #{tmp 6802}#)
+ #{s 6787}#
+ #{meta 6805}#
+ #{lcase 6806}#))))
+ #{tmp 6790}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 6796}#)))))
- (#{global-extend 4299}#
+ #{e 6784}#)))))
+ (#{global-extend 4300}#
'core
'let
(letrec*
- ((#{expand-let 7010}#
- (lambda (#{e 7159}#
- #{r 7160}#
- #{w 7161}#
- #{s 7162}#
- #{mod 7163}#
- #{constructor 7164}#
- #{ids 7165}#
- #{vals 7166}#
- #{exps 7167}#)
- (if (not (#{valid-bound-ids? 4323}# #{ids 7165}#))
+ ((#{expand-let 6997}#
+ (lambda (#{e 7146}#
+ #{r 7147}#
+ #{w 7148}#
+ #{s 7149}#
+ #{mod 7150}#
+ #{constructor 7151}#
+ #{ids 7152}#
+ #{vals 7153}#
+ #{exps 7154}#)
+ (if (not (#{valid-bound-ids? 4324}# #{ids 7152}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 7159}#)
- (let ((#{labels 7245}#
- (#{gen-labels 4304}# #{ids 7165}#))
- (#{new-vars 7246}#
- (map #{gen-var 4347}# #{ids 7165}#)))
- (let ((#{nw 7247}#
- (#{make-binding-wrap 4315}#
- #{ids 7165}#
- #{labels 7245}#
- #{w 7161}#))
- (#{nr 7248}#
- (#{extend-var-env 4296}#
- #{labels 7245}#
- #{new-vars 7246}#
- #{r 7160}#)))
- (#{constructor 7164}#
- #{s 7162}#
- (map syntax->datum #{ids 7165}#)
- #{new-vars 7246}#
- (map (lambda (#{x 7265}#)
- (#{expand 4333}#
- #{x 7265}#
- #{r 7160}#
- #{w 7161}#
- #{mod 7163}#))
- #{vals 7166}#)
- (#{expand-body 4337}#
- #{exps 7167}#
- (#{source-wrap 4327}#
- #{e 7159}#
- #{nw 7247}#
- #{s 7162}#
- #{mod 7163}#)
- #{nr 7248}#
- #{nw 7247}#
- #{mod 7163}#))))))))
- (lambda (#{e 7011}#
- #{r 7012}#
- #{w 7013}#
- #{s 7014}#
- #{mod 7015}#)
- (let ((#{tmp 7017}#
+ #{e 7146}#)
+ (let ((#{labels 7232}#
+ (#{gen-labels 4305}# #{ids 7152}#))
+ (#{new-vars 7233}#
+ (map #{gen-var 4348}# #{ids 7152}#)))
+ (let ((#{nw 7234}#
+ (#{make-binding-wrap 4316}#
+ #{ids 7152}#
+ #{labels 7232}#
+ #{w 7148}#))
+ (#{nr 7235}#
+ (#{extend-var-env 4297}#
+ #{labels 7232}#
+ #{new-vars 7233}#
+ #{r 7147}#)))
+ (#{constructor 7151}#
+ #{s 7149}#
+ (map syntax->datum #{ids 7152}#)
+ #{new-vars 7233}#
+ (map (lambda (#{x 7252}#)
+ (#{expand 4334}#
+ #{x 7252}#
+ #{r 7147}#
+ #{w 7148}#
+ #{mod 7150}#))
+ #{vals 7153}#)
+ (#{expand-body 4338}#
+ #{exps 7154}#
+ (#{source-wrap 4328}#
+ #{e 7146}#
+ #{nw 7234}#
+ #{s 7149}#
+ #{mod 7150}#)
+ #{nr 7235}#
+ #{nw 7234}#
+ #{mod 7150}#))))))))
+ (lambda (#{e 6998}#
+ #{r 6999}#
+ #{w 7000}#
+ #{s 7001}#
+ #{mod 7002}#)
+ (let ((#{tmp 7004}#
($sc-dispatch
- #{e 7011}#
+ #{e 6998}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7017}#
+ (if (if #{tmp 7004}#
(@apply
- (lambda (#{id 7021}#
- #{val 7022}#
- #{e1 7023}#
- #{e2 7024}#)
- (and-map #{id? 4301}# #{id 7021}#))
- #{tmp 7017}#)
+ (lambda (#{id 7008}#
+ #{val 7009}#
+ #{e1 7010}#
+ #{e2 7011}#)
+ (and-map #{id? 4302}# #{id 7008}#))
+ #{tmp 7004}#)
#f)
(@apply
- (lambda (#{id 7040}#
- #{val 7041}#
- #{e1 7042}#
- #{e2 7043}#)
- (#{expand-let 7010}#
- #{e 7011}#
- #{r 7012}#
- #{w 7013}#
- #{s 7014}#
- #{mod 7015}#
- #{build-let 4283}#
- #{id 7040}#
- #{val 7041}#
- (cons #{e1 7042}# #{e2 7043}#)))
- #{tmp 7017}#)
- (let ((#{tmp 7073}#
+ (lambda (#{id 7027}#
+ #{val 7028}#
+ #{e1 7029}#
+ #{e2 7030}#)
+ (#{expand-let 6997}#
+ #{e 6998}#
+ #{r 6999}#
+ #{w 7000}#
+ #{s 7001}#
+ #{mod 7002}#
+ #{build-let 4284}#
+ #{id 7027}#
+ #{val 7028}#
+ (cons #{e1 7029}# #{e2 7030}#)))
+ #{tmp 7004}#)
+ (let ((#{tmp 7060}#
($sc-dispatch
- #{e 7011}#
+ #{e 6998}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7073}#
+ (if (if #{tmp 7060}#
(@apply
- (lambda (#{f 7077}#
- #{id 7078}#
- #{val 7079}#
- #{e1 7080}#
- #{e2 7081}#)
- (if (if (symbol? #{f 7077}#)
+ (lambda (#{f 7064}#
+ #{id 7065}#
+ #{val 7066}#
+ #{e1 7067}#
+ #{e2 7068}#)
+ (if (if (symbol? #{f 7064}#)
#t
- (if (if (vector? #{f 7077}#)
- (if (= (vector-length #{f 7077}#) 4)
- (eq? (vector-ref #{f 7077}# 0)
+ (if (if (vector? #{f 7064}#)
+ (if (= (vector-length #{f 7064}#) 4)
+ (eq? (vector-ref #{f 7064}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 7077}# 1))
+ (symbol? (vector-ref #{f 7064}# 1))
#f))
- (and-map #{id? 4301}# #{id 7078}#)
+ (and-map #{id? 4302}# #{id 7065}#)
#f))
- #{tmp 7073}#)
+ #{tmp 7060}#)
#f)
(@apply
- (lambda (#{f 7123}#
- #{id 7124}#
- #{val 7125}#
- #{e1 7126}#
- #{e2 7127}#)
- (#{expand-let 7010}#
- #{e 7011}#
- #{r 7012}#
- #{w 7013}#
- #{s 7014}#
- #{mod 7015}#
- #{build-named-let 4284}#
- (cons #{f 7123}# #{id 7124}#)
- #{val 7125}#
- (cons #{e1 7126}# #{e2 7127}#)))
- #{tmp 7073}#)
+ (lambda (#{f 7110}#
+ #{id 7111}#
+ #{val 7112}#
+ #{e1 7113}#
+ #{e2 7114}#)
+ (#{expand-let 6997}#
+ #{e 6998}#
+ #{r 6999}#
+ #{w 7000}#
+ #{s 7001}#
+ #{mod 7002}#
+ #{build-named-let 4285}#
+ (cons #{f 7110}# #{id 7111}#)
+ #{val 7112}#
+ (cons #{e1 7113}# #{e2 7114}#)))
+ #{tmp 7060}#)
(syntax-violation
'let
"bad let"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 7011}#) #{s 7014}# #f)
- (set-source-properties! #{e 7011}# #{s 7014}#))
- #{e 7011}#)
- #{w 7013}#
- #{mod 7015}#)))))))))
- (#{global-extend 4299}#
+ (if (if (pair? #{e 6998}#) #{s 7001}# #f)
+ (set-source-properties! #{e 6998}# #{s 7001}#))
+ #{e 6998}#)
+ #{w 7000}#
+ #{mod 7002}#)))))))))
+ (#{global-extend 4300}#
'core
'letrec
- (lambda (#{e 7714}#
- #{r 7715}#
- #{w 7716}#
- #{s 7717}#
- #{mod 7718}#)
- (let ((#{tmp 7720}#
+ (lambda (#{e 7694}#
+ #{r 7695}#
+ #{w 7696}#
+ #{s 7697}#
+ #{mod 7698}#)
+ (let ((#{tmp 7700}#
($sc-dispatch
- #{e 7714}#
+ #{e 7694}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7720}#
+ (if (if #{tmp 7700}#
(@apply
- (lambda (#{id 7724}#
- #{val 7725}#
- #{e1 7726}#
- #{e2 7727}#)
- (and-map #{id? 4301}# #{id 7724}#))
- #{tmp 7720}#)
+ (lambda (#{id 7704}#
+ #{val 7705}#
+ #{e1 7706}#
+ #{e2 7707}#)
+ (and-map #{id? 4302}# #{id 7704}#))
+ #{tmp 7700}#)
#f)
(@apply
- (lambda (#{id 7743}#
- #{val 7744}#
- #{e1 7745}#
- #{e2 7746}#)
- (if (not (#{valid-bound-ids? 4323}# #{id 7743}#))
+ (lambda (#{id 7723}#
+ #{val 7724}#
+ #{e1 7725}#
+ #{e2 7726}#)
+ (if (not (#{valid-bound-ids? 4324}# #{id 7723}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 7714}#)
- (let ((#{labels 7836}#
- (#{gen-labels 4304}# #{id 7743}#))
- (#{new-vars 7837}#
- (map #{gen-var 4347}# #{id 7743}#)))
- (let ((#{w 7838}#
- (#{make-binding-wrap 4315}#
- #{id 7743}#
- #{labels 7836}#
- #{w 7716}#))
- (#{r 7839}#
- (#{extend-var-env 4296}#
- #{labels 7836}#
- #{new-vars 7837}#
- #{r 7715}#)))
- (#{build-letrec 4285}#
- #{s 7717}#
+ #{e 7694}#)
+ (let ((#{labels 7816}#
+ (#{gen-labels 4305}# #{id 7723}#))
+ (#{new-vars 7817}#
+ (map #{gen-var 4348}# #{id 7723}#)))
+ (let ((#{w 7818}#
+ (#{make-binding-wrap 4316}#
+ #{id 7723}#
+ #{labels 7816}#
+ #{w 7696}#))
+ (#{r 7819}#
+ (#{extend-var-env 4297}#
+ #{labels 7816}#
+ #{new-vars 7817}#
+ #{r 7695}#)))
+ (#{build-letrec 4286}#
+ #{s 7697}#
#f
- (map syntax->datum #{id 7743}#)
- #{new-vars 7837}#
- (map (lambda (#{x 7926}#)
- (#{expand 4333}#
- #{x 7926}#
- #{r 7839}#
- #{w 7838}#
- #{mod 7718}#))
- #{val 7744}#)
- (#{expand-body 4337}#
- (cons #{e1 7745}# #{e2 7746}#)
- (#{wrap 4326}#
+ (map syntax->datum #{id 7723}#)
+ #{new-vars 7817}#
+ (map (lambda (#{x 7906}#)
+ (#{expand 4334}#
+ #{x 7906}#
+ #{r 7819}#
+ #{w 7818}#
+ #{mod 7698}#))
+ #{val 7724}#)
+ (#{expand-body 4338}#
+ (cons #{e1 7725}# #{e2 7726}#)
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 7714}#) #{s 7717}# #f)
- (set-source-properties! #{e 7714}# #{s 7717}#))
- #{e 7714}#)
- #{w 7838}#
- #{mod 7718}#)
- #{r 7839}#
- #{w 7838}#
- #{mod 7718}#))))))
- #{tmp 7720}#)
+ (if (if (pair? #{e 7694}#) #{s 7697}# #f)
+ (set-source-properties! #{e 7694}# #{s 7697}#))
+ #{e 7694}#)
+ #{w 7818}#
+ #{mod 7698}#)
+ #{r 7819}#
+ #{w 7818}#
+ #{mod 7698}#))))))
+ #{tmp 7700}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 7714}#) #{s 7717}# #f)
- (set-source-properties! #{e 7714}# #{s 7717}#))
- #{e 7714}#)
- #{w 7716}#
- #{mod 7718}#))))))
- (#{global-extend 4299}#
+ (if (if (pair? #{e 7694}#) #{s 7697}# #f)
+ (set-source-properties! #{e 7694}# #{s 7697}#))
+ #{e 7694}#)
+ #{w 7696}#
+ #{mod 7698}#))))))
+ (#{global-extend 4300}#
'core
'letrec*
- (lambda (#{e 8343}#
- #{r 8344}#
- #{w 8345}#
- #{s 8346}#
- #{mod 8347}#)
- (let ((#{tmp 8349}#
+ (lambda (#{e 8323}#
+ #{r 8324}#
+ #{w 8325}#
+ #{s 8326}#
+ #{mod 8327}#)
+ (let ((#{tmp 8329}#
($sc-dispatch
- #{e 8343}#
+ #{e 8323}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8349}#
+ (if (if #{tmp 8329}#
(@apply
- (lambda (#{id 8353}#
- #{val 8354}#
- #{e1 8355}#
- #{e2 8356}#)
- (and-map #{id? 4301}# #{id 8353}#))
- #{tmp 8349}#)
+ (lambda (#{id 8333}#
+ #{val 8334}#
+ #{e1 8335}#
+ #{e2 8336}#)
+ (and-map #{id? 4302}# #{id 8333}#))
+ #{tmp 8329}#)
#f)
(@apply
- (lambda (#{id 8372}#
- #{val 8373}#
- #{e1 8374}#
- #{e2 8375}#)
- (if (not (#{valid-bound-ids? 4323}# #{id 8372}#))
+ (lambda (#{id 8352}#
+ #{val 8353}#
+ #{e1 8354}#
+ #{e2 8355}#)
+ (if (not (#{valid-bound-ids? 4324}# #{id 8352}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 8343}#)
- (let ((#{labels 8465}#
- (#{gen-labels 4304}# #{id 8372}#))
- (#{new-vars 8466}#
- (map #{gen-var 4347}# #{id 8372}#)))
- (let ((#{w 8467}#
- (#{make-binding-wrap 4315}#
- #{id 8372}#
- #{labels 8465}#
- #{w 8345}#))
- (#{r 8468}#
- (#{extend-var-env 4296}#
- #{labels 8465}#
- #{new-vars 8466}#
- #{r 8344}#)))
- (#{build-letrec 4285}#
- #{s 8346}#
+ #{e 8323}#)
+ (let ((#{labels 8445}#
+ (#{gen-labels 4305}# #{id 8352}#))
+ (#{new-vars 8446}#
+ (map #{gen-var 4348}# #{id 8352}#)))
+ (let ((#{w 8447}#
+ (#{make-binding-wrap 4316}#
+ #{id 8352}#
+ #{labels 8445}#
+ #{w 8325}#))
+ (#{r 8448}#
+ (#{extend-var-env 4297}#
+ #{labels 8445}#
+ #{new-vars 8446}#
+ #{r 8324}#)))
+ (#{build-letrec 4286}#
+ #{s 8326}#
#t
- (map syntax->datum #{id 8372}#)
- #{new-vars 8466}#
- (map (lambda (#{x 8555}#)
- (#{expand 4333}#
- #{x 8555}#
- #{r 8468}#
- #{w 8467}#
- #{mod 8347}#))
- #{val 8373}#)
- (#{expand-body 4337}#
- (cons #{e1 8374}# #{e2 8375}#)
- (#{wrap 4326}#
+ (map syntax->datum #{id 8352}#)
+ #{new-vars 8446}#
+ (map (lambda (#{x 8535}#)
+ (#{expand 4334}#
+ #{x 8535}#
+ #{r 8448}#
+ #{w 8447}#
+ #{mod 8327}#))
+ #{val 8353}#)
+ (#{expand-body 4338}#
+ (cons #{e1 8354}# #{e2 8355}#)
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 8343}#) #{s 8346}# #f)
- (set-source-properties! #{e 8343}# #{s 8346}#))
- #{e 8343}#)
- #{w 8467}#
- #{mod 8347}#)
- #{r 8468}#
- #{w 8467}#
- #{mod 8347}#))))))
- #{tmp 8349}#)
+ (if (if (pair? #{e 8323}#) #{s 8326}# #f)
+ (set-source-properties! #{e 8323}# #{s 8326}#))
+ #{e 8323}#)
+ #{w 8447}#
+ #{mod 8327}#)
+ #{r 8448}#
+ #{w 8447}#
+ #{mod 8327}#))))))
+ #{tmp 8329}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 8343}#) #{s 8346}# #f)
- (set-source-properties! #{e 8343}# #{s 8346}#))
- #{e 8343}#)
- #{w 8345}#
- #{mod 8347}#))))))
- (#{global-extend 4299}#
+ (if (if (pair? #{e 8323}#) #{s 8326}# #f)
+ (set-source-properties! #{e 8323}# #{s 8326}#))
+ #{e 8323}#)
+ #{w 8325}#
+ #{mod 8327}#))))))
+ (#{global-extend 4300}#
'core
'set!
- (lambda (#{e 9026}#
- #{r 9027}#
- #{w 9028}#
- #{s 9029}#
- #{mod 9030}#)
- (let ((#{tmp 9032}#
- ($sc-dispatch #{e 9026}# '(_ any any))))
- (if (if #{tmp 9032}#
+ (lambda (#{e 8994}#
+ #{r 8995}#
+ #{w 8996}#
+ #{s 8997}#
+ #{mod 8998}#)
+ (let ((#{tmp 9000}#
+ ($sc-dispatch #{e 8994}# '(_ any any))))
+ (if (if #{tmp 9000}#
(@apply
- (lambda (#{id 9036}# #{val 9037}#)
- (if (symbol? #{id 9036}#)
+ (lambda (#{id 9004}# #{val 9005}#)
+ (if (symbol? #{id 9004}#)
#t
- (if (if (vector? #{id 9036}#)
- (if (= (vector-length #{id 9036}#) 4)
- (eq? (vector-ref #{id 9036}# 0) 'syntax-object)
+ (if (if (vector? #{id 9004}#)
+ (if (= (vector-length #{id 9004}#) 4)
+ (eq? (vector-ref #{id 9004}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 9036}# 1))
+ (symbol? (vector-ref #{id 9004}# 1))
#f)))
- #{tmp 9032}#)
+ #{tmp 9000}#)
#f)
(@apply
- (lambda (#{id 9064}# #{val 9065}#)
- (let ((#{n 9066}#
- (#{id-var-name 4320}# #{id 9064}# #{w 9028}#))
- (#{id-mod 9067}#
- (if (if (vector? #{id 9064}#)
- (if (= (vector-length #{id 9064}#) 4)
- (eq? (vector-ref #{id 9064}# 0) 'syntax-object)
+ (lambda (#{id 9032}# #{val 9033}#)
+ (let ((#{n 9034}#
+ (#{id-var-name 4321}# #{id 9032}# #{w 8996}#))
+ (#{id-mod 9035}#
+ (if (if (vector? #{id 9032}#)
+ (if (= (vector-length #{id 9032}#) 4)
+ (eq? (vector-ref #{id 9032}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 9064}# 3)
- #{mod 9030}#)))
- (let ((#{b 9068}#
- (let ((#{t 9755}# (assq #{n 9066}# #{r 9027}#)))
- (if #{t 9755}#
- (cdr #{t 9755}#)
- (if (symbol? #{n 9066}#)
- (let ((#{t 9760}#
+ (vector-ref #{id 9032}# 3)
+ #{mod 8998}#)))
+ (let ((#{b 9036}#
+ (let ((#{t 9698}# (assq #{n 9034}# #{r 8995}#)))
+ (if #{t 9698}#
+ (cdr #{t 9698}#)
+ (if (symbol? #{n 9034}#)
+ (let ((#{t 9703}#
(begin
- (if (if (not #{id-mod 9067}#)
+ (if (if (not #{id-mod 9035}#)
(current-module)
#f)
(warn "module system is booted, we
should have a module"
- #{n 9066}#))
- (let ((#{v 9797}#
+ #{n 9034}#))
+ (let ((#{v 9740}#
(module-variable
- (if #{id-mod 9067}#
+ (if #{id-mod 9035}#
(resolve-module
- (cdr #{id-mod 9067}#))
+ (cdr #{id-mod 9035}#))
(current-module))
- #{n 9066}#)))
- (if #{v 9797}#
- (if (variable-bound? #{v 9797}#)
- (let ((#{val 9806}#
+ #{n 9034}#)))
+ (if #{v 9740}#
+ (if (variable-bound? #{v 9740}#)
+ (let ((#{val 9749}#
(variable-ref
- #{v 9797}#)))
- (if (macro? #{val 9806}#)
+ #{v 9740}#)))
+ (if (macro? #{val 9749}#)
(if (macro-type
- #{val 9806}#)
+ #{val 9749}#)
(cons (macro-type
- #{val 9806}#)
+ #{val 9749}#)
(macro-binding
- #{val 9806}#))
+ #{val 9749}#))
#f)
#f))
#f)
#f)))))
- (if #{t 9760}# #{t 9760}# '(global)))
+ (if #{t 9703}# #{t 9703}# '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 9069}# (car #{b 9068}#)))
- (if (let ((#{t 9106}# #{atom-key 9069}#))
- (eqv? #{t 9106}# 'lexical))
- (#{build-lexical-assignment 4272}#
- #{s 9029}#
- (syntax->datum #{id 9064}#)
- (cdr #{b 9068}#)
- (#{expand 4333}#
- #{val 9065}#
- #{r 9027}#
- #{w 9028}#
- #{mod 9030}#))
- (if (let ((#{t 9391}# #{atom-key 9069}#))
- (eqv? #{t 9391}# 'global))
- (#{build-global-assignment 4275}#
- #{s 9029}#
- #{n 9066}#
- (#{expand 4333}#
- #{val 9065}#
- #{r 9027}#
- #{w 9028}#
- #{mod 9030}#)
- #{id-mod 9067}#)
- (if (let ((#{t 9646}# #{atom-key 9069}#))
- (eqv? #{t 9646}# 'macro))
- (let ((#{p 9709}# (cdr #{b 9068}#)))
+ (let ((#{atom-key 9037}# (car #{b 9036}#)))
+ (if (let ((#{t 9069}# #{atom-key 9037}#))
+ (eqv? #{t 9069}# 'lexical))
+ (#{build-lexical-assignment 4273}#
+ #{s 8997}#
+ (syntax->datum #{id 9032}#)
+ (cdr #{b 9036}#)
+ (#{expand 4334}#
+ #{val 9033}#
+ #{r 8995}#
+ #{w 8996}#
+ #{mod 8998}#))
+ (if (let ((#{t 9344}# #{atom-key 9037}#))
+ (eqv? #{t 9344}# 'global))
+ (#{build-global-assignment 4276}#
+ #{s 8997}#
+ #{n 9034}#
+ (#{expand 4334}#
+ #{val 9033}#
+ #{r 8995}#
+ #{w 8996}#
+ #{mod 8998}#)
+ #{id-mod 9035}#)
+ (if (let ((#{t 9589}# #{atom-key 9037}#))
+ (eqv? #{t 9589}# 'macro))
+ (let ((#{p 9652}# (cdr #{b 9036}#)))
(if (procedure-property
- #{p 9709}#
+ #{p 9652}#
'variable-transformer)
- (#{expand 4333}#
- (#{expand-macro 4336}#
- #{p 9709}#
- #{e 9026}#
- #{r 9027}#
- #{w 9028}#
- #{s 9029}#
+ (#{expand 4334}#
+ (#{expand-macro 4337}#
+ #{p 9652}#
+ #{e 8994}#
+ #{r 8995}#
+ #{w 8996}#
+ #{s 8997}#
+ #f
+ #{mod 8998}#)
+ #{r 8995}#
+ '(())
+ #{mod 8998}#)
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (#{wrap 4327}#
+ #{e 8994}#
+ #{w 8996}#
+ #{mod 8998}#)
+ (#{wrap 4327}#
+ #{id 9032}#
+ #{w 8996}#
+ #{id-mod 9035}#))))
+ (if (eqv? #{atom-key 9037}# 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (#{wrap 4327}#
+ #{id 9032}#
+ #{w 8996}#
+ #{mod 8998}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{wrap 4327}#
+ (begin
+ (if (if (pair? #{e 8994}#) #{s 8997}# #f)
+ (set-source-properties!
+ #{e 8994}#
+ #{s 8997}#))
+ #{e 8994}#)
+ #{w 8996}#
+ #{mod 8998}#))))))))))
+ #{tmp 9000}#)
+ (let ((#{tmp 9845}#
+ ($sc-dispatch
+ #{e 8994}#
+ '(_ (any . each-any) any))))
+ (if #{tmp 9845}#
+ (@apply
+ (lambda (#{head 9849}# #{tail 9850}# #{val 9851}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4333}#
+ #{head 9849}#
+ #{r 8995}#
+ '(())
+ #f
+ #f
+ #{mod 8998}#
+ #t))
+ (lambda (#{type 9854}#
+ #{value 9855}#
+ #{ee 9856}#
+ #{ww 9857}#
+ #{ss 9858}#
+ #{modmod 9859}#)
+ (if (eqv? #{type 9854}# 'module-ref)
+ (let ((#{val 9863}#
+ (#{expand 4334}#
+ #{val 9851}#
+ #{r 8995}#
+ #{w 8996}#
+ #{mod 8998}#)))
+ (call-with-values
+ (lambda ()
+ (#{value 9855}#
+ (cons #{head 9849}# #{tail 9850}#)
+ #{r 8995}#
+ #{w 8996}#))
+ (lambda (#{e 9864}#
+ #{r 9865}#
+ #{w 9866}#
+ #{s* 9867}#
+ #{mod 9868}#)
+ (let ((#{tmp 9870}# (list #{e 9864}#)))
+ (if (@apply
+ (lambda (#{e 9872}#)
+ (if (symbol? #{e 9872}#)
+ #t
+ (if (if (vector? #{e 9872}#)
+ (if (= (vector-length
+ #{e 9872}#)
+ 4)
+ (eq? (vector-ref
+ #{e 9872}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{e 9872}# 1))
+ #f)))
+ #{tmp 9870}#)
+ (@apply
+ (lambda (#{e 9902}#)
+ (#{build-global-assignment 4276}#
+ #{s 8997}#
+ (syntax->datum #{e 9902}#)
+ #{val 9863}#
+ #{mod 9868}#))
+ #{tmp 9870}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 9864}#))))))
+ (#{build-application 4269}#
+ #{s 8997}#
+ (let ((#{e 10127}#
+ (list '#(syntax-object
+ setter
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(type value ee ww ss modmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3544"
+ "i3545"
+ "i3546"
+ "i3547"
+ "i3548"
+ "i3549"))
+ #(ribcage
+ #(head tail val)
+ #((top) (top) (top))
+ #("i3530" "i3531" "i3532"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w s mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3494"
+ "i3495"
+ "i3496"
+ "i3497"
+ "i3498"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ #{head 9849}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4333}#
+ #{e 10127}#
+ #{r 8995}#
+ #{w 8996}#
+ (#{source-annotation 4295}# #{e 10127}#)
#f
- #{mod 9030}#)
- #{r 9027}#
- '(())
- #{mod 9030}#)
- (syntax-violation
- 'set!
- "not a variable transformer"
- (#{wrap 4326}#
- #{e 9026}#
- #{w 9028}#
- #{mod 9030}#)
- (#{wrap 4326}#
- #{id 9064}#
- #{w 9028}#
- #{id-mod 9067}#))))
- (if (eqv? #{atom-key 9069}# 'displaced-lexical)
- (syntax-violation
- 'set!
- "identifier out of context"
- (#{wrap 4326}#
- #{id 9064}#
- #{w 9028}#
- #{mod 9030}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{wrap 4326}#
- (begin
- (if (if (pair? #{e 9026}#) #{s 9029}# #f)
- (set-source-properties!
- #{e 9026}#
- #{s 9029}#))
- #{e 9026}#)
- #{w 9028}#
- #{mod 9030}#))))))))))
- #{tmp 9032}#)
- (let ((#{tmp 9907}#
- ($sc-dispatch
- #{e 9026}#
- '(_ (any . each-any) any))))
- (if #{tmp 9907}#
- (@apply
- (lambda (#{head 9911}# #{tail 9912}# #{val 9913}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 4332}#
- #{head 9911}#
- #{r 9027}#
- '(())
- #f
- #f
- #{mod 9030}#
- #t))
- (lambda (#{type 9916}#
- #{value 9917}#
- #{ee 9918}#
- #{ww 9919}#
- #{ss 9920}#
- #{modmod 9921}#)
- (if (eqv? #{type 9916}# 'module-ref)
- (let ((#{val 9925}#
- (#{expand 4333}#
- #{val 9913}#
- #{r 9027}#
- #{w 9028}#
- #{mod 9030}#)))
- (call-with-values
- (lambda ()
- (#{value 9917}#
- (cons #{head 9911}# #{tail 9912}#)
- #{r 9027}#
- #{w 9028}#))
- (lambda (#{e 9926}#
- #{r 9927}#
- #{w 9928}#
- #{s* 9929}#
- #{mod 9930}#)
- (let ((#{tmp 9932}# (list #{e 9926}#)))
- (if (@apply
- (lambda (#{e 9934}#)
- (if (symbol? #{e 9934}#)
- #t
- (if (if (vector? #{e 9934}#)
- (if (= (vector-length
- #{e 9934}#)
- 4)
- (eq? (vector-ref
- #{e 9934}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{e 9934}# 1))
- #f)))
- #{tmp 9932}#)
- (@apply
- (lambda (#{e 9964}#)
- (#{build-global-assignment 4275}#
- #{s 9029}#
- (syntax->datum #{e 9964}#)
- #{val 9925}#
- #{mod 9930}#))
- #{tmp 9932}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 9926}#))))))
- (#{build-application 4268}#
- #{s 9029}#
- (#{expand 4333}#
- (list '#(syntax-object
- setter
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(type value ee ww ss modmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i3543"
- "i3544"
- "i3545"
- "i3546"
- "i3547"
- "i3548"))
- #(ribcage
- #(head tail val)
- #((top) (top) (top))
- #("i3529" "i3530" "i3531"))
- #(ribcage () () ())
- #(ribcage
- #(e r w s mod)
- #((top) (top) (top) (top) (top))
- #("i3493"
- "i3494"
- "i3495"
- "i3496"
- "i3497"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- #{head 9911}#)
- #{r 9027}#
- #{w 9028}#
- #{mod 9030}#)
- (map (lambda (#{e 10265}#)
- (#{expand 4333}#
- #{e 10265}#
- #{r 9027}#
- #{w 9028}#
- #{mod 9030}#))
+ #{mod 8998}#
+ #f))
+ (lambda (#{type 10134}#
+ #{value 10135}#
+ #{e 10136}#
+ #{w 10137}#
+ #{s 10138}#
+ #{mod 10139}#)
+ (#{expand-expr 4335}#
+ #{type 10134}#
+ #{value 10135}#
+ #{e 10136}#
+ #{r 8995}#
+ #{w 10137}#
+ #{s 10138}#
+ #{mod 10139}#))))
+ (map (lambda (#{e 10143}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4333}#
+ #{e 10143}#
+ #{r 8995}#
+ #{w 8996}#
+ (#{source-annotation 4295}#
+ #{e 10143}#)
+ #f
+ #{mod 8998}#
+ #f))
+ (lambda (#{type 10158}#
+ #{value 10159}#
+ #{e 10160}#
+ #{w 10161}#
+ #{s 10162}#
+ #{mod 10163}#)
+ (#{expand-expr 4335}#
+ #{type 10158}#
+ #{value 10159}#
+ #{e 10160}#
+ #{r 8995}#
+ #{w 10161}#
+ #{s 10162}#
+ #{mod 10163}#))))
(append
- #{tail 9912}#
- (list #{val 9913}#))))))))
- #{tmp 9907}#)
+ #{tail 9850}#
+ (list #{val 9851}#))))))))
+ #{tmp 9845}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap 4326}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 9026}#) #{s 9029}# #f)
- (set-source-properties! #{e 9026}# #{s 9029}#))
- #{e 9026}#)
- #{w 9028}#
- #{mod 9030}#))))))))
+ (if (if (pair? #{e 8994}#) #{s 8997}# #f)
+ (set-source-properties! #{e 8994}# #{s 8997}#))
+ #{e 8994}#)
+ #{w 8996}#
+ #{mod 8998}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 10379}# #{r 10380}# #{w 10381}#)
- (let ((#{tmp 10383}#
- ($sc-dispatch #{e 10379}# '(_ each-any any))))
- (if (if #{tmp 10383}#
+ (lambda (#{e 10206}# #{r 10207}# #{w 10208}#)
+ (let ((#{tmp 10210}#
+ ($sc-dispatch #{e 10206}# '(_ each-any any))))
+ (if (if #{tmp 10210}#
(@apply
- (lambda (#{mod 10386}# #{id 10387}#)
- (if (and-map #{id? 4301}# #{mod 10386}#)
- (if (symbol? #{id 10387}#)
+ (lambda (#{mod 10213}# #{id 10214}#)
+ (if (and-map #{id? 4302}# #{mod 10213}#)
+ (if (symbol? #{id 10214}#)
#t
- (if (if (vector? #{id 10387}#)
- (if (= (vector-length #{id 10387}#) 4)
- (eq? (vector-ref #{id 10387}# 0)
+ (if (if (vector? #{id 10214}#)
+ (if (= (vector-length #{id 10214}#) 4)
+ (eq? (vector-ref #{id 10214}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 10387}# 1))
+ (symbol? (vector-ref #{id 10214}# 1))
#f))
#f))
- #{tmp 10383}#)
+ #{tmp 10210}#)
#f)
(@apply
- (lambda (#{mod 10427}# #{id 10428}#)
+ (lambda (#{mod 10254}# #{id 10255}#)
(values
- (syntax->datum #{id 10428}#)
- #{r 10380}#
- #{w 10381}#
+ (syntax->datum #{id 10255}#)
+ #{r 10207}#
+ #{w 10208}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -9804,12 +9961,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3590" "i3591"))
+ #("i3591" "i3592"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3578" "i3579" "i3580"))
+ #("i3579" "i3580" "i3581"))
#(ribcage
(lambda-var-list
gen-var
@@ -10226,70 +10383,70 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{mod 10427}#))))
- #{tmp 10383}#)
+ #{mod 10254}#))))
+ #{tmp 10210}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10379}#))))))
- (#{global-extend 4299}#
+ #{e 10206}#))))))
+ (#{global-extend 4300}#
'module-ref
'@@
- (lambda (#{e 10525}# #{r 10526}# #{w 10527}#)
+ (lambda (#{e 10347}# #{r 10348}# #{w 10349}#)
(letrec*
- ((#{remodulate 10528}#
- (lambda (#{x 10734}# #{mod 10735}#)
- (if (pair? #{x 10734}#)
- (cons (#{remodulate 10528}#
- (car #{x 10734}#)
- #{mod 10735}#)
- (#{remodulate 10528}#
- (cdr #{x 10734}#)
- #{mod 10735}#))
- (if (if (vector? #{x 10734}#)
- (if (= (vector-length #{x 10734}#) 4)
- (eq? (vector-ref #{x 10734}# 0) 'syntax-object)
+ ((#{remodulate 10350}#
+ (lambda (#{x 10385}# #{mod 10386}#)
+ (if (pair? #{x 10385}#)
+ (cons (#{remodulate 10350}#
+ (car #{x 10385}#)
+ #{mod 10386}#)
+ (#{remodulate 10350}#
+ (cdr #{x 10385}#)
+ #{mod 10386}#))
+ (if (if (vector? #{x 10385}#)
+ (if (= (vector-length #{x 10385}#) 4)
+ (eq? (vector-ref #{x 10385}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 10749}#
- (#{remodulate 10528}#
- (vector-ref #{x 10734}# 1)
- #{mod 10735}#))
- (#{wrap 10750}# (vector-ref #{x 10734}# 2)))
+ (let ((#{expression 10400}#
+ (#{remodulate 10350}#
+ (vector-ref #{x 10385}# 1)
+ #{mod 10386}#))
+ (#{wrap 10401}# (vector-ref #{x 10385}# 2)))
(vector
'syntax-object
- #{expression 10749}#
- #{wrap 10750}#
- #{mod 10735}#))
- (if (vector? #{x 10734}#)
- (let ((#{n 10758}# (vector-length #{x 10734}#)))
- (let ((#{v 10759}# (make-vector #{n 10758}#)))
+ #{expression 10400}#
+ #{wrap 10401}#
+ #{mod 10386}#))
+ (if (vector? #{x 10385}#)
+ (let ((#{n 10409}# (vector-length #{x 10385}#)))
+ (let ((#{v 10410}# (make-vector #{n 10409}#)))
(letrec*
- ((#{loop 10760}#
- (lambda (#{i 10807}#)
- (if (= #{i 10807}# #{n 10758}#)
- #{v 10759}#
+ ((#{loop 10411}#
+ (lambda (#{i 10458}#)
+ (if (= #{i 10458}# #{n 10409}#)
+ #{v 10410}#
(begin
(vector-set!
- #{v 10759}#
- #{i 10807}#
- (#{remodulate 10528}#
- (vector-ref #{x 10734}# #{i 10807}#)
- #{mod 10735}#))
- (#{loop 10760}# (#{1+}# #{i 10807}#)))))))
- (#{loop 10760}# 0))))
- #{x 10734}#))))))
- (let ((#{tmp 10530}#
- ($sc-dispatch #{e 10525}# '(_ each-any any))))
- (if (if #{tmp 10530}#
+ #{v 10410}#
+ #{i 10458}#
+ (#{remodulate 10350}#
+ (vector-ref #{x 10385}# #{i 10458}#)
+ #{mod 10386}#))
+ (#{loop 10411}# (#{1+}# #{i 10458}#)))))))
+ (#{loop 10411}# 0))))
+ #{x 10385}#))))))
+ (let ((#{tmp 10352}#
+ ($sc-dispatch #{e 10347}# '(_ each-any any))))
+ (if (if #{tmp 10352}#
(@apply
- (lambda (#{mod 10534}# #{exp 10535}#)
- (and-map #{id? 4301}# #{mod 10534}#))
- #{tmp 10530}#)
+ (lambda (#{mod 10356}# #{exp 10357}#)
+ (and-map #{id? 4302}# #{mod 10356}#))
+ #{tmp 10352}#)
#f)
(@apply
- (lambda (#{mod 10551}# #{exp 10552}#)
- (let ((#{mod 10553}#
+ (lambda (#{mod 10373}# #{exp 10374}#)
+ (let ((#{mod 10375}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10297,12 +10454,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3634" "i3635"))
- #(ribcage (remodulate) ((top)) ("i3601"))
+ #("i3635" "i3636"))
+ #(ribcage (remodulate) ((top)) ("i3602"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3598" "i3599" "i3600"))
+ #("i3599" "i3600" "i3601"))
#(ribcage
(lambda-var-list
gen-var
@@ -10719,127 +10876,127 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{mod 10551}#))))
+ #{mod 10373}#))))
(values
- (#{remodulate 10528}#
- #{exp 10552}#
- #{mod 10553}#)
- #{r 10526}#
- #{w 10527}#
- (#{source-annotation 4294}# #{exp 10552}#)
- #{mod 10553}#)))
- #{tmp 10530}#)
+ (#{remodulate 10350}#
+ #{exp 10374}#
+ #{mod 10375}#)
+ #{r 10348}#
+ #{w 10349}#
+ (#{source-annotation 4295}# #{exp 10374}#)
+ #{mod 10375}#)))
+ #{tmp 10352}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10525}#))))))
- (#{global-extend 4299}#
+ #{e 10347}#))))))
+ (#{global-extend 4300}#
'core
'if
- (lambda (#{e 10913}#
- #{r 10914}#
- #{w 10915}#
- #{s 10916}#
- #{mod 10917}#)
- (let ((#{tmp 10919}#
- ($sc-dispatch #{e 10913}# '(_ any any))))
- (if #{tmp 10919}#
+ (lambda (#{e 10559}#
+ #{r 10560}#
+ #{w 10561}#
+ #{s 10562}#
+ #{mod 10563}#)
+ (let ((#{tmp 10565}#
+ ($sc-dispatch #{e 10559}# '(_ any any))))
+ (if #{tmp 10565}#
(@apply
- (lambda (#{test 10923}# #{then 10924}#)
- (#{build-conditional 4269}#
- #{s 10916}#
- (#{expand 4333}#
- #{test 10923}#
- #{r 10914}#
- #{w 10915}#
- #{mod 10917}#)
- (#{expand 4333}#
- #{then 10924}#
- #{r 10914}#
- #{w 10915}#
- #{mod 10917}#)
+ (lambda (#{test 10569}# #{then 10570}#)
+ (#{build-conditional 4270}#
+ #{s 10562}#
+ (#{expand 4334}#
+ #{test 10569}#
+ #{r 10560}#
+ #{w 10561}#
+ #{mod 10563}#)
+ (#{expand 4334}#
+ #{then 10570}#
+ #{r 10560}#
+ #{w 10561}#
+ #{mod 10563}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 10919}#)
- (let ((#{tmp 11164}#
- ($sc-dispatch #{e 10913}# '(_ any any any))))
- (if #{tmp 11164}#
+ #{tmp 10565}#)
+ (let ((#{tmp 10795}#
+ ($sc-dispatch #{e 10559}# '(_ any any any))))
+ (if #{tmp 10795}#
(@apply
- (lambda (#{test 11168}# #{then 11169}# #{else 11170}#)
- (#{build-conditional 4269}#
- #{s 10916}#
- (#{expand 4333}#
- #{test 11168}#
- #{r 10914}#
- #{w 10915}#
- #{mod 10917}#)
- (#{expand 4333}#
- #{then 11169}#
- #{r 10914}#
- #{w 10915}#
- #{mod 10917}#)
- (#{expand 4333}#
- #{else 11170}#
- #{r 10914}#
- #{w 10915}#
- #{mod 10917}#)))
- #{tmp 11164}#)
+ (lambda (#{test 10799}# #{then 10800}# #{else 10801}#)
+ (#{build-conditional 4270}#
+ #{s 10562}#
+ (#{expand 4334}#
+ #{test 10799}#
+ #{r 10560}#
+ #{w 10561}#
+ #{mod 10563}#)
+ (#{expand 4334}#
+ #{then 10800}#
+ #{r 10560}#
+ #{w 10561}#
+ #{mod 10563}#)
+ (#{expand 4334}#
+ #{else 10801}#
+ #{r 10560}#
+ #{w 10561}#
+ #{mod 10563}#)))
+ #{tmp 10795}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10913}#)))))))
- (#{global-extend 4299}#
+ #{e 10559}#)))))))
+ (#{global-extend 4300}#
'core
'with-fluids
- (lambda (#{e 11594}#
- #{r 11595}#
- #{w 11596}#
- #{s 11597}#
- #{mod 11598}#)
- (let ((#{tmp 11600}#
+ (lambda (#{e 11200}#
+ #{r 11201}#
+ #{w 11202}#
+ #{s 11203}#
+ #{mod 11204}#)
+ (let ((#{tmp 11206}#
($sc-dispatch
- #{e 11594}#
+ #{e 11200}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 11600}#
+ (if #{tmp 11206}#
(@apply
- (lambda (#{fluid 11604}#
- #{val 11605}#
- #{b 11606}#
- #{b* 11607}#)
- (#{build-dynlet 4270}#
- #{s 11597}#
- (map (lambda (#{x 11693}#)
- (#{expand 4333}#
- #{x 11693}#
- #{r 11595}#
- #{w 11596}#
- #{mod 11598}#))
- #{fluid 11604}#)
- (map (lambda (#{x 11768}#)
- (#{expand 4333}#
- #{x 11768}#
- #{r 11595}#
- #{w 11596}#
- #{mod 11598}#))
- #{val 11605}#)
- (#{expand-body 4337}#
- (cons #{b 11606}# #{b* 11607}#)
- (#{wrap 4326}#
+ (lambda (#{fluid 11210}#
+ #{val 11211}#
+ #{b 11212}#
+ #{b* 11213}#)
+ (#{build-dynlet 4271}#
+ #{s 11203}#
+ (map (lambda (#{x 11294}#)
+ (#{expand 4334}#
+ #{x 11294}#
+ #{r 11201}#
+ #{w 11202}#
+ #{mod 11204}#))
+ #{fluid 11210}#)
+ (map (lambda (#{x 11364}#)
+ (#{expand 4334}#
+ #{x 11364}#
+ #{r 11201}#
+ #{w 11202}#
+ #{mod 11204}#))
+ #{val 11211}#)
+ (#{expand-body 4338}#
+ (cons #{b 11212}# #{b* 11213}#)
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 11594}#) #{s 11597}# #f)
- (set-source-properties! #{e 11594}# #{s 11597}#))
- #{e 11594}#)
- #{w 11596}#
- #{mod 11598}#)
- #{r 11595}#
- #{w 11596}#
- #{mod 11598}#)))
- #{tmp 11600}#)
+ (if (if (pair? #{e 11200}#) #{s 11203}# #f)
+ (set-source-properties! #{e 11200}# #{s 11203}#))
+ #{e 11200}#)
+ #{w 11202}#
+ #{mod 11204}#)
+ #{r 11201}#
+ #{w 11202}#
+ #{mod 11204}#)))
+ #{tmp 11206}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11594}#)))))
+ #{e 11200}#)))))
(module-define!
(current-module)
'begin
@@ -10862,75 +11019,75 @@
'eval-when
'eval-when
'()))
- (#{global-extend 4299}#
+ (#{global-extend 4300}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 12142}#
- (lambda (#{pattern 13765}# #{keys 13766}#)
+ ((#{convert-pattern 11722}#
+ (lambda (#{pattern 13319}# #{keys 13320}#)
(letrec*
- ((#{cvt* 13767}#
- (lambda (#{p* 14393}# #{n 14394}# #{ids 14395}#)
- (if (not (pair? #{p* 14393}#))
- (#{cvt 13769}#
- #{p* 14393}#
- #{n 14394}#
- #{ids 14395}#)
+ ((#{cvt* 13321}#
+ (lambda (#{p* 13945}# #{n 13946}# #{ids 13947}#)
+ (if (not (pair? #{p* 13945}#))
+ (#{cvt 13323}#
+ #{p* 13945}#
+ #{n 13946}#
+ #{ids 13947}#)
(call-with-values
(lambda ()
- (#{cvt* 13767}#
- (cdr #{p* 14393}#)
- #{n 14394}#
- #{ids 14395}#))
- (lambda (#{y 14398}# #{ids 14399}#)
+ (#{cvt* 13321}#
+ (cdr #{p* 13945}#)
+ #{n 13946}#
+ #{ids 13947}#))
+ (lambda (#{y 13950}# #{ids 13951}#)
(call-with-values
(lambda ()
- (#{cvt 13769}#
- (car #{p* 14393}#)
- #{n 14394}#
- #{ids 14399}#))
- (lambda (#{x 14402}# #{ids 14403}#)
+ (#{cvt 13323}#
+ (car #{p* 13945}#)
+ #{n 13946}#
+ #{ids 13951}#))
+ (lambda (#{x 13954}# #{ids 13955}#)
(values
- (cons #{x 14402}# #{y 14398}#)
- #{ids 14403}#))))))))
- (#{v-reverse 13768}#
- (lambda (#{x 14404}#)
+ (cons #{x 13954}# #{y 13950}#)
+ #{ids 13955}#))))))))
+ (#{v-reverse 13322}#
+ (lambda (#{x 13956}#)
(letrec*
- ((#{loop 14405}#
- (lambda (#{r 14482}# #{x 14483}#)
- (if (not (pair? #{x 14483}#))
- (values #{r 14482}# #{x 14483}#)
- (#{loop 14405}#
- (cons (car #{x 14483}#) #{r 14482}#)
- (cdr #{x 14483}#))))))
- (#{loop 14405}# '() #{x 14404}#))))
- (#{cvt 13769}#
- (lambda (#{p 13772}# #{n 13773}# #{ids 13774}#)
- (if (if (symbol? #{p 13772}#)
+ ((#{loop 13957}#
+ (lambda (#{r 14037}# #{x 14038}#)
+ (if (not (pair? #{x 14038}#))
+ (values #{r 14037}# #{x 14038}#)
+ (#{loop 13957}#
+ (cons (car #{x 14038}#) #{r 14037}#)
+ (cdr #{x 14038}#))))))
+ (#{loop 13957}# '() #{x 13956}#))))
+ (#{cvt 13323}#
+ (lambda (#{p 13326}# #{n 13327}# #{ids 13328}#)
+ (if (if (symbol? #{p 13326}#)
#t
- (if (if (vector? #{p 13772}#)
- (if (= (vector-length #{p 13772}#) 4)
- (eq? (vector-ref #{p 13772}# 0)
+ (if (if (vector? #{p 13326}#)
+ (if (= (vector-length #{p 13326}#) 4)
+ (eq? (vector-ref #{p 13326}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 13772}# 1))
+ (symbol? (vector-ref #{p 13326}# 1))
#f))
- (if (#{bound-id-member? 4325}#
- #{p 13772}#
- #{keys 13766}#)
+ (if (#{bound-id-member? 4326}#
+ #{p 13326}#
+ #{keys 13320}#)
(values
- (vector 'free-id #{p 13772}#)
- #{ids 13774}#)
- (if (if (eq? (if (if (vector? #{p 13772}#)
- (if (= (vector-length #{p 13772}#)
+ (vector 'free-id #{p 13326}#)
+ #{ids 13328}#)
+ (if (if (eq? (if (if (vector? #{p 13326}#)
+ (if (= (vector-length #{p 13326}#)
4)
- (eq? (vector-ref #{p 13772}# 0)
+ (eq? (vector-ref #{p 13326}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{p 13772}# 1)
- #{p 13772}#)
+ (vector-ref #{p 13326}# 1)
+ #{p 13326}#)
(if (if (= (vector-length
'#(syntax-object
_
@@ -10939,19 +11096,19 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3735"
- "i3736"
- "i3737"))
+ #("i3736"
+ "i3737"
+ "i3738"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3708"
- "i3706"
- "i3704"))
+ ("i3709"
+ "i3707"
+ "i3705"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3702" "i3703"))
+ #("i3703" "i3704"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -10961,10 +11118,10 @@
(top)
(top)
(top))
- ("i3698"
- "i3696"
- "i3694"
- "i3692"))
+ ("i3699"
+ "i3697"
+ "i3695"
+ "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -11392,22 +11549,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3735" "i3736" "i3737"))
+ #("i3736" "i3737" "i3738"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3708" "i3706" "i3704"))
+ ("i3709" "i3707" "i3705"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3702" "i3703"))
+ #("i3703" "i3704"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3698" "i3696" "i3694" "i3692"))
+ ("i3699" "i3697" "i3695" "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -11824,8 +11981,8 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4320}# #{p 13772}# '(()))
- (#{id-var-name 4320}#
+ (eq? (#{id-var-name 4321}# #{p 13326}# '(()))
+ (#{id-var-name 4321}#
'#(syntax-object
_
((top)
@@ -11833,22 +11990,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3735" "i3736" "i3737"))
+ #("i3736" "i3737" "i3738"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3708" "i3706" "i3704"))
+ ("i3709" "i3707" "i3705"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3702" "i3703"))
+ #("i3703" "i3704"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3698" "i3696" "i3694" "i3692"))
+ ("i3699" "i3697" "i3695" "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -12267,40 +12424,40 @@
(hygiene guile))
'(())))
#f)
- (values '_ #{ids 13774}#)
+ (values '_ #{ids 13328}#)
(values
'any
- (cons (cons #{p 13772}# #{n 13773}#)
- #{ids 13774}#))))
- (let ((#{tmp 14096}#
- ($sc-dispatch #{p 13772}# '(any any))))
- (if (if #{tmp 14096}#
+ (cons (cons #{p 13326}# #{n 13327}#)
+ #{ids 13328}#))))
+ (let ((#{tmp 13648}#
+ ($sc-dispatch #{p 13326}# '(any any))))
+ (if (if #{tmp 13648}#
(@apply
- (lambda (#{x 14100}# #{dots 14101}#)
- (if (if (if (vector? #{dots 14101}#)
+ (lambda (#{x 13652}# #{dots 13653}#)
+ (if (if (if (vector? #{dots 13653}#)
(if (= (vector-length
- #{dots 14101}#)
+ #{dots 13653}#)
4)
(eq? (vector-ref
- #{dots 14101}#
+ #{dots 13653}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 14101}# 1))
+ (symbol? (vector-ref #{dots 13653}# 1))
#f)
- (if (eq? (if (if (vector? #{dots 14101}#)
+ (if (eq? (if (if (vector? #{dots 13653}#)
(if (= (vector-length
- #{dots 14101}#)
+ #{dots 13653}#)
4)
(eq? (vector-ref
- #{dots 14101}#
+ #{dots 13653}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 14101}# 1)
- #{dots 14101}#)
+ (vector-ref #{dots 13653}# 1)
+ #{dots 13653}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -12316,7 +12473,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -12749,7 +12906,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -13166,10 +13323,10 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4320}#
- #{dots 14101}#
+ (eq? (#{id-var-name 4321}#
+ #{dots 13653}#
'(()))
- (#{id-var-name 4320}#
+ (#{id-var-name 4321}#
'#(syntax-object
...
((top)
@@ -13178,7 +13335,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -13598,58 +13755,58 @@
'(())))
#f)
#f))
- #{tmp 14096}#)
+ #{tmp 13648}#)
#f)
(@apply
- (lambda (#{x 14201}# #{dots 14202}#)
+ (lambda (#{x 13753}# #{dots 13754}#)
(call-with-values
(lambda ()
- (#{cvt 13769}#
- #{x 14201}#
- (#{1+}# #{n 13773}#)
- #{ids 13774}#))
- (lambda (#{p 14203}# #{ids 14204}#)
+ (#{cvt 13323}#
+ #{x 13753}#
+ (#{1+}# #{n 13327}#)
+ #{ids 13328}#))
+ (lambda (#{p 13755}# #{ids 13756}#)
(values
- (if (eq? #{p 14203}# 'any)
+ (if (eq? #{p 13755}# 'any)
'each-any
- (vector 'each #{p 14203}#))
- #{ids 14204}#))))
- #{tmp 14096}#)
- (let ((#{tmp 14205}#
- ($sc-dispatch #{p 13772}# '(any any . any))))
- (if (if #{tmp 14205}#
+ (vector 'each #{p 13755}#))
+ #{ids 13756}#))))
+ #{tmp 13648}#)
+ (let ((#{tmp 13757}#
+ ($sc-dispatch #{p 13326}# '(any any . any))))
+ (if (if #{tmp 13757}#
(@apply
- (lambda (#{x 14209}#
- #{dots 14210}#
- #{ys 14211}#)
- (if (if (if (vector? #{dots 14210}#)
+ (lambda (#{x 13761}#
+ #{dots 13762}#
+ #{ys 13763}#)
+ (if (if (if (vector? #{dots 13762}#)
(if (= (vector-length
- #{dots 14210}#)
+ #{dots 13762}#)
4)
(eq? (vector-ref
- #{dots 14210}#
+ #{dots 13762}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 14210}# 1))
+ (vector-ref #{dots 13762}# 1))
#f)
(if (eq? (if (if (vector?
- #{dots 14210}#)
+ #{dots 13762}#)
(if (= (vector-length
- #{dots 14210}#)
+ #{dots 13762}#)
4)
(eq? (vector-ref
- #{dots 14210}#
+ #{dots 13762}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots 14210}#
+ #{dots 13762}#
1)
- #{dots 14210}#)
+ #{dots 13762}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13665,7 +13822,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -14099,7 +14256,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -14516,10 +14673,10 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4320}#
- #{dots 14210}#
+ (eq? (#{id-var-name 4321}#
+ #{dots 13762}#
'(()))
- (#{id-var-name 4320}#
+ (#{id-var-name 4321}#
'#(syntax-object
...
((top)
@@ -14528,7 +14685,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -14948,111 +15105,111 @@
'(())))
#f)
#f))
- #{tmp 14205}#)
+ #{tmp 13757}#)
#f)
(@apply
- (lambda (#{x 14311}#
- #{dots 14312}#
- #{ys 14313}#)
+ (lambda (#{x 13863}#
+ #{dots 13864}#
+ #{ys 13865}#)
(call-with-values
(lambda ()
- (#{cvt* 13767}#
- #{ys 14313}#
- #{n 13773}#
- #{ids 13774}#))
- (lambda (#{ys 14316}# #{ids 14317}#)
+ (#{cvt* 13321}#
+ #{ys 13865}#
+ #{n 13327}#
+ #{ids 13328}#))
+ (lambda (#{ys 13868}# #{ids 13869}#)
(call-with-values
(lambda ()
- (#{cvt 13769}#
- #{x 14311}#
- (#{1+}# #{n 13773}#)
- #{ids 14317}#))
- (lambda (#{x 14318}# #{ids 14319}#)
+ (#{cvt 13323}#
+ #{x 13863}#
+ (#{1+}# #{n 13327}#)
+ #{ids 13869}#))
+ (lambda (#{x 13870}# #{ids 13871}#)
(call-with-values
(lambda ()
- (#{v-reverse 13768}#
- #{ys 14316}#))
- (lambda (#{ys 14352}# #{e 14353}#)
+ (#{v-reverse 13322}#
+ #{ys 13868}#))
+ (lambda (#{ys 13904}# #{e 13905}#)
(values
(vector
'each+
- #{x 14318}#
- #{ys 14352}#
- #{e 14353}#)
- #{ids 14319}#))))))))
- #{tmp 14205}#)
- (let ((#{tmp 14354}#
- ($sc-dispatch #{p 13772}# '(any . any))))
- (if #{tmp 14354}#
+ #{x 13870}#
+ #{ys 13904}#
+ #{e 13905}#)
+ #{ids 13871}#))))))))
+ #{tmp 13757}#)
+ (let ((#{tmp 13906}#
+ ($sc-dispatch #{p 13326}# '(any . any))))
+ (if #{tmp 13906}#
(@apply
- (lambda (#{x 14358}# #{y 14359}#)
+ (lambda (#{x 13910}# #{y 13911}#)
(call-with-values
(lambda ()
- (#{cvt 13769}#
- #{y 14359}#
- #{n 13773}#
- #{ids 13774}#))
- (lambda (#{y 14360}# #{ids 14361}#)
+ (#{cvt 13323}#
+ #{y 13911}#
+ #{n 13327}#
+ #{ids 13328}#))
+ (lambda (#{y 13912}# #{ids 13913}#)
(call-with-values
(lambda ()
- (#{cvt 13769}#
- #{x 14358}#
- #{n 13773}#
- #{ids 14361}#))
- (lambda (#{x 14362}# #{ids 14363}#)
+ (#{cvt 13323}#
+ #{x 13910}#
+ #{n 13327}#
+ #{ids 13913}#))
+ (lambda (#{x 13914}# #{ids 13915}#)
(values
- (cons #{x 14362}# #{y 14360}#)
- #{ids 14363}#))))))
- #{tmp 14354}#)
- (let ((#{tmp 14364}#
- ($sc-dispatch #{p 13772}# '())))
- (if #{tmp 14364}#
+ (cons #{x 13914}# #{y 13912}#)
+ #{ids 13915}#))))))
+ #{tmp 13906}#)
+ (let ((#{tmp 13916}#
+ ($sc-dispatch #{p 13326}# '())))
+ (if #{tmp 13916}#
(@apply
- (lambda () (values '() #{ids 13774}#))
- #{tmp 14364}#)
- (let ((#{tmp 14368}#
+ (lambda () (values '() #{ids 13328}#))
+ #{tmp 13916}#)
+ (let ((#{tmp 13920}#
($sc-dispatch
- #{p 13772}#
+ #{p 13326}#
'#(vector each-any))))
- (if #{tmp 14368}#
+ (if #{tmp 13920}#
(@apply
- (lambda (#{x 14372}#)
+ (lambda (#{x 13924}#)
(call-with-values
(lambda ()
- (#{cvt 13769}#
- #{x 14372}#
- #{n 13773}#
- #{ids 13774}#))
- (lambda (#{p 14373}#
- #{ids 14374}#)
+ (#{cvt 13323}#
+ #{x 13924}#
+ #{n 13327}#
+ #{ids 13328}#))
+ (lambda (#{p 13925}#
+ #{ids 13926}#)
(values
(vector
'vector
- #{p 14373}#)
- #{ids 14374}#))))
- #{tmp 14368}#)
+ #{p 13925}#)
+ #{ids 13926}#))))
+ #{tmp 13920}#)
(values
(vector
'atom
- (#{strip 4346}#
- #{p 13772}#
+ (#{strip 4347}#
+ #{p 13326}#
'(())))
- #{ids 13774}#)))))))))))))))
- (#{cvt 13769}# #{pattern 13765}# 0 '()))))
- (#{build-dispatch-call 12143}#
- (lambda (#{pvars 14484}#
- #{exp 14485}#
- #{y 14486}#
- #{r 14487}#
- #{mod 14488}#)
- (let ((#{ids 14489}# (map car #{pvars 14484}#)))
+ #{ids 13328}#)))))))))))))))
+ (#{cvt 13323}# #{pattern 13319}# 0 '()))))
+ (#{build-dispatch-call 11723}#
+ (lambda (#{pvars 14039}#
+ #{exp 14040}#
+ #{y 14041}#
+ #{r 14042}#
+ #{mod 14043}#)
+ (let ((#{ids 14044}# (map car #{pvars 14039}#)))
(begin
- (map cdr #{pvars 14484}#)
- (let ((#{labels 14491}#
- (#{gen-labels 4304}# #{ids 14489}#))
- (#{new-vars 14492}#
- (map #{gen-var 4347}# #{ids 14489}#)))
- (#{build-application 4268}#
+ (map cdr #{pvars 14039}#)
+ (let ((#{labels 14046}#
+ (#{gen-labels 4305}# #{ids 14044}#))
+ (#{new-vars 14047}#
+ (map #{gen-var 4348}# #{ids 14044}#)))
+ (#{build-application 4269}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -15065,78 +15222,78 @@
'(guile)
'apply
#f))
- (list (#{build-simple-lambda 4277}#
+ (list (#{build-simple-lambda 4278}#
#f
- (map syntax->datum #{ids 14489}#)
+ (map syntax->datum #{ids 14044}#)
#f
- #{new-vars 14492}#
+ #{new-vars 14047}#
'()
- (#{expand 4333}#
- #{exp 14485}#
- (#{extend-env 4295}#
- #{labels 14491}#
- (map (lambda (#{var 14817}# #{level 14818}#)
+ (#{expand 4334}#
+ #{exp 14040}#
+ (#{extend-env 4296}#
+ #{labels 14046}#
+ (map (lambda (#{var 14372}# #{level 14373}#)
(cons 'syntax
- (cons #{var 14817}#
- #{level 14818}#)))
- #{new-vars 14492}#
- (map cdr #{pvars 14484}#))
- #{r 14487}#)
- (#{make-binding-wrap 4315}#
- #{ids 14489}#
- #{labels 14491}#
+ (cons #{var 14372}#
+ #{level 14373}#)))
+ #{new-vars 14047}#
+ (map cdr #{pvars 14039}#))
+ #{r 14042}#)
+ (#{make-binding-wrap 4316}#
+ #{ids 14044}#
+ #{labels 14046}#
'(()))
- #{mod 14488}#))
- #{y 14486}#)))))))
- (#{gen-clause 12144}#
- (lambda (#{x 13126}#
- #{keys 13127}#
- #{clauses 13128}#
- #{r 13129}#
- #{pat 13130}#
- #{fender 13131}#
- #{exp 13132}#
- #{mod 13133}#)
+ #{mod 14043}#))
+ #{y 14041}#)))))))
+ (#{gen-clause 11724}#
+ (lambda (#{x 12691}#
+ #{keys 12692}#
+ #{clauses 12693}#
+ #{r 12694}#
+ #{pat 12695}#
+ #{fender 12696}#
+ #{exp 12697}#
+ #{mod 12698}#)
(call-with-values
(lambda ()
- (#{convert-pattern 12142}#
- #{pat 13130}#
- #{keys 13127}#))
- (lambda (#{p 13288}# #{pvars 13289}#)
- (if (not (#{distinct-bound-ids? 4324}#
- (map car #{pvars 13289}#)))
+ (#{convert-pattern 11722}#
+ #{pat 12695}#
+ #{keys 12692}#))
+ (lambda (#{p 12853}# #{pvars 12854}#)
+ (if (not (#{distinct-bound-ids? 4325}#
+ (map car #{pvars 12854}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 13130}#)
+ #{pat 12695}#)
(if (not (and-map
- (lambda (#{x 13409}#)
- (not (let ((#{x 13413}# (car #{x 13409}#)))
- (if (if (if (vector? #{x 13413}#)
+ (lambda (#{x 12970}#)
+ (not (let ((#{x 12974}# (car #{x 12970}#)))
+ (if (if (if (vector? #{x 12974}#)
(if (= (vector-length
- #{x 13413}#)
+ #{x 12974}#)
4)
(eq? (vector-ref
- #{x 13413}#
+ #{x 12974}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 13413}# 1))
+ (vector-ref #{x 12974}# 1))
#f)
- (if (eq? (if (if (vector? #{x 13413}#)
+ (if (eq? (if (if (vector? #{x 12974}#)
(if (= (vector-length
- #{x 13413}#)
+ #{x 12974}#)
4)
(eq? (vector-ref
- #{x 13413}#
+ #{x 12974}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 13413}# 1)
- #{x 13413}#)
+ (vector-ref #{x 12974}# 1)
+ #{x 12974}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15152,7 +15309,7 @@
#(ribcage
#(x)
#((top))
-
#("i2218"))
+
#("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -15586,7 +15743,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -16003,10 +16160,10 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4320}#
- #{x 13413}#
+ (eq? (#{id-var-name 4321}#
+ #{x 12974}#
'(()))
- (#{id-var-name 4320}#
+ (#{id-var-name 4321}#
'#(syntax-object
...
((top)
@@ -16015,7 +16172,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -16435,42 +16592,42 @@
'(())))
#f)
#f))))
- #{pvars 13289}#))
+ #{pvars 12854}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 13130}#)
- (let ((#{y 13489}#
+ #{pat 12695}#)
+ (let ((#{y 13050}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 4268}#
+ (#{build-application 4269}#
#f
- (let ((#{req 13639}# (list 'tmp))
- (#{vars 13641}# (list #{y 13489}#))
- (#{exp 13643}#
- (let ((#{y 13660}#
+ (let ((#{req 13193}# (list 'tmp))
+ (#{vars 13195}# (list #{y 13050}#))
+ (#{exp 13197}#
+ (let ((#{y 13214}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{y 13489}#)))
- (let ((#{test-exp 13664}#
- (let ((#{tmp 13673}#
+ #{y 13050}#)))
+ (let ((#{test-exp 13218}#
+ (let ((#{tmp 13227}#
($sc-dispatch
- #{fender 13131}#
+ #{fender 12696}#
'#(atom #t))))
- (if #{tmp 13673}#
+ (if #{tmp 13227}#
(@apply
- (lambda () #{y 13660}#)
- #{tmp 13673}#)
- (let ((#{then-exp 13691}#
- (#{build-dispatch-call
12143}#
- #{pvars 13289}#
- #{fender 13131}#
- #{y 13660}#
- #{r 13129}#
- #{mod 13133}#))
- (#{else-exp 13692}#
+ (lambda () #{y 13214}#)
+ #{tmp 13227}#)
+ (let ((#{then-exp 13245}#
+ (#{build-dispatch-call
11723}#
+ #{pvars 12854}#
+ #{fender 12696}#
+ #{y 13214}#
+ #{r 12694}#
+ #{mod 12698}#))
+ (#{else-exp 13246}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -16482,48 +16639,48 @@
%expanded-vtables
10)
#f
- #{y 13660}#
- #{then-exp 13691}#
- #{else-exp 13692}#)))))
- (#{then-exp 13665}#
- (#{build-dispatch-call 12143}#
- #{pvars 13289}#
- #{exp 13132}#
- #{y 13660}#
- #{r 13129}#
- #{mod 13133}#))
- (#{else-exp 13666}#
- (#{gen-syntax-case 12145}#
- #{x 13126}#
- #{keys 13127}#
- #{clauses 13128}#
- #{r 13129}#
- #{mod 13133}#)))
+ #{y 13214}#
+ #{then-exp 13245}#
+ #{else-exp 13246}#)))))
+ (#{then-exp 13219}#
+ (#{build-dispatch-call 11723}#
+ #{pvars 12854}#
+ #{exp 12697}#
+ #{y 13214}#
+ #{r 12694}#
+ #{mod 12698}#))
+ (#{else-exp 13220}#
+ (#{gen-syntax-case 11725}#
+ #{x 12691}#
+ #{keys 12692}#
+ #{clauses 12693}#
+ #{r 12694}#
+ #{mod 12698}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 13664}#
- #{then-exp 13665}#
- #{else-exp 13666}#)))))
- (let ((#{body 13648}#
+ #{test-exp 13218}#
+ #{then-exp 13219}#
+ #{else-exp 13220}#)))))
+ (let ((#{body 13202}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 13639}#
+ #{req 13193}#
#f
#f
#f
'()
- #{vars 13641}#
- #{exp 13643}#
+ #{vars 13195}#
+ #{exp 13197}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 13648}#)))
- (list (if (eq? #{p 13288}# 'any)
- (let ((#{fun-exp 13714}#
+ #{body 13202}#)))
+ (list (if (eq? #{p 12853}# 'any)
+ (let ((#{fun-exp 13268}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -16537,13 +16694,13 @@
'(guile)
'list
#f)))
- (#{arg-exps 13715}# (list #{x 13126}#)))
+ (#{arg-exps 13269}# (list #{x 12691}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 13714}#
- #{arg-exps 13715}#))
- (let ((#{fun-exp 13738}#
+ #{fun-exp 13268}#
+ #{arg-exps 13269}#))
+ (let ((#{fun-exp 13292}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -16557,27 +16714,27 @@
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps 13739}#
- (list #{x 13126}#
+ (#{arg-exps 13293}#
+ (list #{x 12691}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 13288}#))))
+ #{p 12853}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 13738}#
- #{arg-exps 13739}#))))))))))))
- (#{gen-syntax-case 12145}#
- (lambda (#{x 12554}#
- #{keys 12555}#
- #{clauses 12556}#
- #{r 12557}#
- #{mod 12558}#)
- (if (null? #{clauses 12556}#)
- (let ((#{fun-exp 12563}#
+ #{fun-exp 13292}#
+ #{arg-exps 13293}#))))))))))))
+ (#{gen-syntax-case 11725}#
+ (lambda (#{x 12124}#
+ #{keys 12125}#
+ #{clauses 12126}#
+ #{r 12127}#
+ #{mod 12128}#)
+ (if (null? #{clauses 12126}#)
+ (let ((#{fun-exp 12133}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -16589,7 +16746,7 @@
'(guile)
'syntax-violation
#f)))
- (#{arg-exps 12564}#
+ (#{arg-exps 12134}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -16598,61 +16755,61 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 12554}#)))
+ #{x 12124}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 12563}#
- #{arg-exps 12564}#))
- (let ((#{tmp 12597}# (car #{clauses 12556}#)))
- (let ((#{tmp 12598}#
- ($sc-dispatch #{tmp 12597}# '(any any))))
- (if #{tmp 12598}#
+ #{fun-exp 12133}#
+ #{arg-exps 12134}#))
+ (let ((#{tmp 12167}# (car #{clauses 12126}#)))
+ (let ((#{tmp 12168}#
+ ($sc-dispatch #{tmp 12167}# '(any any))))
+ (if #{tmp 12168}#
(@apply
- (lambda (#{pat 12600}# #{exp 12601}#)
- (if (if (if (symbol? #{pat 12600}#)
+ (lambda (#{pat 12170}# #{exp 12171}#)
+ (if (if (if (symbol? #{pat 12170}#)
#t
- (if (if (vector? #{pat 12600}#)
- (if (= (vector-length #{pat 12600}#)
+ (if (if (vector? #{pat 12170}#)
+ (if (= (vector-length #{pat 12170}#)
4)
- (eq? (vector-ref #{pat 12600}# 0)
+ (eq? (vector-ref #{pat 12170}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 12600}# 1))
+ (symbol? (vector-ref #{pat 12170}# 1))
#f))
(and-map
- (lambda (#{x 12628}#)
+ (lambda (#{x 12198}#)
(not (if (eq? (if (if (vector?
- #{pat 12600}#)
+ #{pat 12170}#)
(if (= (vector-length
- #{pat 12600}#)
+ #{pat 12170}#)
4)
(eq? (vector-ref
- #{pat 12600}#
+ #{pat 12170}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 12600}# 1)
- #{pat 12600}#)
- (if (if (vector? #{x 12628}#)
+ (vector-ref #{pat 12170}# 1)
+ #{pat 12170}#)
+ (if (if (vector? #{x 12198}#)
(if (= (vector-length
- #{x 12628}#)
+ #{x 12198}#)
4)
(eq? (vector-ref
- #{x 12628}#
+ #{x 12198}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 12628}# 1)
- #{x 12628}#))
- (eq? (#{id-var-name 4320}#
- #{pat 12600}#
+ (vector-ref #{x 12198}# 1)
+ #{x 12198}#))
+ (eq? (#{id-var-name 4321}#
+ #{pat 12170}#
'(()))
- (#{id-var-name 4320}#
- #{x 12628}#
+ (#{id-var-name 4321}#
+ #{x 12198}#
'(())))
#f)))
(cons '#(syntax-object
@@ -16661,23 +16818,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3899" "i3900"))
+ #("i3900" "i3901"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3888"
- "i3889"
+ #("i3889"
"i3890"
"i3891"
- "i3892"))
+ "i3892"
+ "i3893"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3698" "i3696" "i3694" "i3692"))
+ ("i3699" "i3697" "i3695" "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -17094,7 +17251,7 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{keys 12555}#))
+ #{keys 12125}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -17103,7 +17260,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3899" "i3900"))
+ #("i3900" "i3901"))
#(ribcage () () ())
#(ribcage
#(x
@@ -17116,11 +17273,11 @@
(top)
(top)
(top))
- #("i3888"
- "i3889"
+ #("i3889"
"i3890"
"i3891"
- "i3892"))
+ "i3892"
+ "i3893"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -17130,10 +17287,10 @@
(top)
(top)
(top))
- ("i3698"
- "i3696"
- "i3694"
- "i3692"))
+ ("i3699"
+ "i3697"
+ "i3695"
+ "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -17562,7 +17719,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3899" "i3900"))
+ #("i3900" "i3901"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -17571,21 +17728,21 @@
(top)
(top)
(top))
- #("i3888"
- "i3889"
+ #("i3889"
"i3890"
"i3891"
- "i3892"))
+ "i3892"
+ "i3893"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3698"
- "i3696"
- "i3694"
- "i3692"))
+ ("i3699"
+ "i3697"
+ "i3695"
+ "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -18009,7 +18166,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3899" "i3900"))
+ #("i3900" "i3901"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18022,11 +18179,11 @@
(top)
(top)
(top))
- #("i3888"
- "i3889"
+ #("i3889"
"i3890"
"i3891"
- "i3892"))
+ "i3892"
+ "i3893"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18036,10 +18193,10 @@
(top)
(top)
(top))
- ("i3698"
- "i3696"
- "i3694"
- "i3692"))
+ ("i3699"
+ "i3697"
+ "i3695"
+ "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -18468,7 +18625,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3899" "i3900"))
+ #("i3900" "i3901"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18477,21 +18634,21 @@
(top)
(top)
(top))
- #("i3888"
- "i3889"
+ #("i3889"
"i3890"
"i3891"
- "i3892"))
+ "i3892"
+ "i3893"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3698"
- "i3696"
- "i3694"
- "i3692"))
+ ("i3699"
+ "i3697"
+ "i3695"
+ "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -18908,33 +19065,33 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4320}#
+ (eq? (#{id-var-name 4321}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3899" "i3900"))
+ #("i3900" "i3901"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3888"
- "i3889"
+ #("i3889"
"i3890"
"i3891"
- "i3892"))
+ "i3892"
+ "i3893"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3698"
- "i3696"
- "i3694"
- "i3692"))
+ ("i3699"
+ "i3697"
+ "i3695"
+ "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -19352,33 +19509,33 @@
("i46" "i45" "i44")))
(hygiene guile))
'(()))
- (#{id-var-name 4320}#
+ (#{id-var-name 4321}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3899" "i3900"))
+ #("i3900" "i3901"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3888"
- "i3889"
+ #("i3889"
"i3890"
"i3891"
- "i3892"))
+ "i3892"
+ "i3893"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3698"
- "i3696"
- "i3694"
- "i3692"))
+ ("i3699"
+ "i3697"
+ "i3695"
+ "i3693"))
#(ribcage
(lambda-var-list
gen-var
@@ -19797,136 +19954,136 @@
(hygiene guile))
'(())))
#f)
- (#{expand 4333}#
- #{exp 12601}#
- #{r 12557}#
+ (#{expand 4334}#
+ #{exp 12171}#
+ #{r 12127}#
'(())
- #{mod 12558}#)
- (let ((#{labels 12809}#
+ #{mod 12128}#)
+ (let ((#{labels 12374}#
(list (symbol->string (gensym "i"))))
- (#{var 12810}#
- (let ((#{id 12848}#
- (if (if (vector? #{pat 12600}#)
+ (#{var 12375}#
+ (let ((#{id 12413}#
+ (if (if (vector? #{pat 12170}#)
(if (= (vector-length
- #{pat 12600}#)
+ #{pat 12170}#)
4)
(eq? (vector-ref
- #{pat 12600}#
+ #{pat 12170}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 12600}# 1)
- #{pat 12600}#)))
+ (vector-ref #{pat 12170}# 1)
+ #{pat 12170}#)))
(gensym
(string-append
- (symbol->string #{id 12848}#)
+ (symbol->string #{id 12413}#)
" ")))))
- (#{build-application 4268}#
+ (#{build-application 4269}#
#f
- (#{build-simple-lambda 4277}#
+ (#{build-simple-lambda 4278}#
#f
- (list (syntax->datum #{pat 12600}#))
+ (list (syntax->datum #{pat 12170}#))
#f
- (list #{var 12810}#)
+ (list #{var 12375}#)
'()
- (#{expand 4333}#
- #{exp 12601}#
- (#{extend-env 4295}#
- #{labels 12809}#
+ (#{expand 4334}#
+ #{exp 12171}#
+ (#{extend-env 4296}#
+ #{labels 12374}#
(list (cons 'syntax
- (cons #{var 12810}# 0)))
- #{r 12557}#)
- (#{make-binding-wrap 4315}#
- (list #{pat 12600}#)
- #{labels 12809}#
+ (cons #{var 12375}# 0)))
+ #{r 12127}#)
+ (#{make-binding-wrap 4316}#
+ (list #{pat 12170}#)
+ #{labels 12374}#
'(()))
- #{mod 12558}#))
- (list #{x 12554}#))))
- (#{gen-clause 12144}#
- #{x 12554}#
- #{keys 12555}#
- (cdr #{clauses 12556}#)
- #{r 12557}#
- #{pat 12600}#
+ #{mod 12128}#))
+ (list #{x 12124}#))))
+ (#{gen-clause 11724}#
+ #{x 12124}#
+ #{keys 12125}#
+ (cdr #{clauses 12126}#)
+ #{r 12127}#
+ #{pat 12170}#
#t
- #{exp 12601}#
- #{mod 12558}#)))
- #{tmp 12598}#)
- (let ((#{tmp 13118}#
- ($sc-dispatch #{tmp 12597}# '(any any any))))
- (if #{tmp 13118}#
+ #{exp 12171}#
+ #{mod 12128}#)))
+ #{tmp 12168}#)
+ (let ((#{tmp 12683}#
+ ($sc-dispatch #{tmp 12167}# '(any any any))))
+ (if #{tmp 12683}#
(@apply
- (lambda (#{pat 13120}#
- #{fender 13121}#
- #{exp 13122}#)
- (#{gen-clause 12144}#
- #{x 12554}#
- #{keys 12555}#
- (cdr #{clauses 12556}#)
- #{r 12557}#
- #{pat 13120}#
- #{fender 13121}#
- #{exp 13122}#
- #{mod 12558}#))
- #{tmp 13118}#)
+ (lambda (#{pat 12685}#
+ #{fender 12686}#
+ #{exp 12687}#)
+ (#{gen-clause 11724}#
+ #{x 12124}#
+ #{keys 12125}#
+ (cdr #{clauses 12126}#)
+ #{r 12127}#
+ #{pat 12685}#
+ #{fender 12686}#
+ #{exp 12687}#
+ #{mod 12128}#))
+ #{tmp 12683}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 12556}#)))))))))))
- (lambda (#{e 12146}#
- #{r 12147}#
- #{w 12148}#
- #{s 12149}#
- #{mod 12150}#)
- (let ((#{e 12151}#
- (#{wrap 4326}#
+ (car #{clauses 12126}#)))))))))))
+ (lambda (#{e 11726}#
+ #{r 11727}#
+ #{w 11728}#
+ #{s 11729}#
+ #{mod 11730}#)
+ (let ((#{e 11731}#
+ (#{wrap 4327}#
(begin
- (if (if (pair? #{e 12146}#) #{s 12149}# #f)
- (set-source-properties! #{e 12146}# #{s 12149}#))
- #{e 12146}#)
- #{w 12148}#
- #{mod 12150}#)))
- (let ((#{tmp 12153}#
+ (if (if (pair? #{e 11726}#) #{s 11729}# #f)
+ (set-source-properties! #{e 11726}# #{s 11729}#))
+ #{e 11726}#)
+ #{w 11728}#
+ #{mod 11730}#)))
+ (let ((#{tmp 11733}#
($sc-dispatch
- #{e 12151}#
+ #{e 11731}#
'(_ any each-any . each-any))))
- (if #{tmp 12153}#
+ (if #{tmp 11733}#
(@apply
- (lambda (#{val 12178}# #{key 12179}# #{m 12180}#)
+ (lambda (#{val 11758}# #{key 11759}# #{m 11760}#)
(if (and-map
- (lambda (#{x 12181}#)
- (if (if (symbol? #{x 12181}#)
+ (lambda (#{x 11761}#)
+ (if (if (symbol? #{x 11761}#)
#t
- (if (if (vector? #{x 12181}#)
- (if (= (vector-length #{x 12181}#) 4)
- (eq? (vector-ref #{x 12181}# 0)
+ (if (if (vector? #{x 11761}#)
+ (if (= (vector-length #{x 11761}#) 4)
+ (eq? (vector-ref #{x 11761}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12181}# 1))
+ (symbol? (vector-ref #{x 11761}# 1))
#f))
- (not (if (if (if (vector? #{x 12181}#)
- (if (= (vector-length #{x 12181}#)
+ (not (if (if (if (vector? #{x 11761}#)
+ (if (= (vector-length #{x 11761}#)
4)
- (eq? (vector-ref #{x 12181}# 0)
+ (eq? (vector-ref #{x 11761}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12181}# 1))
+ (symbol? (vector-ref #{x 11761}# 1))
#f)
- (if (eq? (if (if (vector? #{x 12181}#)
+ (if (eq? (if (if (vector? #{x 11761}#)
(if (= (vector-length
- #{x 12181}#)
+ #{x 11761}#)
4)
(eq? (vector-ref
- #{x 12181}#
+ #{x 11761}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 12181}# 1)
- #{x 12181}#)
+ (vector-ref #{x 11761}# 1)
+ #{x 11761}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -19942,7 +20099,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -20375,7 +20532,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -20792,10 +20949,10 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4320}#
- #{x 12181}#
+ (eq? (#{id-var-name 4321}#
+ #{x 11761}#
'(()))
- (#{id-var-name 4320}#
+ (#{id-var-name 4321}#
'#(syntax-object
...
((top)
@@ -20804,7 +20961,7 @@
#(ribcage
#(x)
#((top))
- #("i2218"))
+ #("i2219"))
#(ribcage
(lambda-var-list
gen-var
@@ -21225,591 +21382,591 @@
#f)
#f))
#f))
- #{key 12179}#)
- (let ((#{x 12307}#
+ #{key 11759}#)
+ (let ((#{x 11887}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 4268}#
- #{s 12149}#
- (let ((#{req 12442}# (list 'tmp))
- (#{vars 12444}# (list #{x 12307}#))
- (#{exp 12446}#
- (#{gen-syntax-case 12145}#
+ (#{build-application 4269}#
+ #{s 11729}#
+ (let ((#{req 12017}# (list 'tmp))
+ (#{vars 12019}# (list #{x 11887}#))
+ (#{exp 12021}#
+ (#{gen-syntax-case 11725}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 12307}#)
- #{key 12179}#
- #{m 12180}#
- #{r 12147}#
- #{mod 12150}#)))
- (let ((#{body 12451}#
+ #{x 11887}#)
+ #{key 11759}#
+ #{m 11760}#
+ #{r 11727}#
+ #{mod 11730}#)))
+ (let ((#{body 12026}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 12442}#
+ #{req 12017}#
#f
#f
#f
'()
- #{vars 12444}#
- #{exp 12446}#
+ #{vars 12019}#
+ #{exp 12021}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 12451}#)))
- (list (#{expand 4333}#
- #{val 12178}#
- #{r 12147}#
+ #{body 12026}#)))
+ (list (#{expand 4334}#
+ #{val 11758}#
+ #{r 11727}#
'(())
- #{mod 12150}#))))
+ #{mod 11730}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 12151}#)))
- #{tmp 12153}#)
+ #{e 11731}#)))
+ #{tmp 11733}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12151}#)))))))
+ #{e 11731}#)))))))
(set! macroexpand
(lambda*
- (#{x 14909}#
+ (#{x 14464}#
#:optional
- (#{m 14910}# 'e)
- (#{esew 14911}# '(eval)))
- (#{expand-top-sequence 4329}#
- (list #{x 14909}#)
+ (#{m 14465}# 'e)
+ (#{esew 14466}# '(eval)))
+ (#{expand-top-sequence 4330}#
+ (list #{x 14464}#)
'()
'((top))
#f
- #{m 14910}#
- #{esew 14911}#
+ #{m 14465}#
+ #{esew 14466}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 14914}#)
- (if (if (vector? #{x 14914}#)
- (if (= (vector-length #{x 14914}#) 4)
- (eq? (vector-ref #{x 14914}# 0) 'syntax-object)
+ (lambda (#{x 14469}#)
+ (if (if (vector? #{x 14469}#)
+ (if (= (vector-length #{x 14469}#) 4)
+ (eq? (vector-ref #{x 14469}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14914}# 1))
+ (symbol? (vector-ref #{x 14469}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 14939}# #{datum 14940}#)
- (let ((#{wrap 14945}# (vector-ref #{id 14939}# 2))
- (#{module 14946}# (vector-ref #{id 14939}# 3)))
+ (lambda (#{id 14494}# #{datum 14495}#)
+ (let ((#{wrap 14500}# (vector-ref #{id 14494}# 2))
+ (#{module 14501}# (vector-ref #{id 14494}# 3)))
(vector
'syntax-object
- #{datum 14940}#
- #{wrap 14945}#
- #{module 14946}#))))
+ #{datum 14495}#
+ #{wrap 14500}#
+ #{module 14501}#))))
(set! syntax->datum
- (lambda (#{x 14953}#)
- (#{strip 4346}# #{x 14953}# '(()))))
+ (lambda (#{x 14508}#)
+ (#{strip 4347}# #{x 14508}# '(()))))
(set! syntax-source
- (lambda (#{x 14956}#)
- (#{source-annotation 4294}# #{x 14956}#)))
+ (lambda (#{x 14511}#)
+ (#{source-annotation 4295}# #{x 14511}#)))
(set! generate-temporaries
- (lambda (#{ls 15128}#)
+ (lambda (#{ls 14664}#)
(begin
- (if (not (list? #{ls 15128}#))
+ (if (not (list? #{ls 14664}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 15128}#))
- (let ((#{mod 15136}#
+ #{ls 14664}#))
+ (let ((#{mod 14672}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 15137}#)
- (#{wrap 4326}# (gensym) '((top)) #{mod 15136}#))
- #{ls 15128}#)))))
+ (map (lambda (#{x 14673}#)
+ (#{wrap 4327}# (gensym) '((top)) #{mod 14672}#))
+ #{ls 14664}#)))))
(set! free-identifier=?
- (lambda (#{x 15141}# #{y 15142}#)
+ (lambda (#{x 14677}# #{y 14678}#)
(begin
- (if (not (if (if (vector? #{x 15141}#)
- (if (= (vector-length #{x 15141}#) 4)
- (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 14677}#)
+ (if (= (vector-length #{x 14677}#) 4)
+ (eq? (vector-ref #{x 14677}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 15141}# 1))
+ (symbol? (vector-ref #{x 14677}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 15141}#))
- (if (not (if (if (vector? #{y 15142}#)
- (if (= (vector-length #{y 15142}#) 4)
- (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
+ #{x 14677}#))
+ (if (not (if (if (vector? #{y 14678}#)
+ (if (= (vector-length #{y 14678}#) 4)
+ (eq? (vector-ref #{y 14678}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 15142}# 1))
+ (symbol? (vector-ref #{y 14678}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 15142}#))
- (if (eq? (if (if (vector? #{x 15141}#)
- (if (= (vector-length #{x 15141}#) 4)
- (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
+ #{y 14678}#))
+ (if (eq? (if (if (vector? #{x 14677}#)
+ (if (= (vector-length #{x 14677}#) 4)
+ (eq? (vector-ref #{x 14677}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x 15141}# 1)
- #{x 15141}#)
- (if (if (vector? #{y 15142}#)
- (if (= (vector-length #{y 15142}#) 4)
- (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
+ (vector-ref #{x 14677}# 1)
+ #{x 14677}#)
+ (if (if (vector? #{y 14678}#)
+ (if (= (vector-length #{y 14678}#) 4)
+ (eq? (vector-ref #{y 14678}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{y 15142}# 1)
- #{y 15142}#))
- (eq? (#{id-var-name 4320}# #{x 15141}# '(()))
- (#{id-var-name 4320}# #{y 15142}# '(())))
+ (vector-ref #{y 14678}# 1)
+ #{y 14678}#))
+ (eq? (#{id-var-name 4321}# #{x 14677}# '(()))
+ (#{id-var-name 4321}# #{y 14678}# '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x 15292}# #{y 15293}#)
+ (lambda (#{x 14828}# #{y 14829}#)
(begin
- (if (not (if (if (vector? #{x 15292}#)
- (if (= (vector-length #{x 15292}#) 4)
- (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 14828}#)
+ (if (= (vector-length #{x 14828}#) 4)
+ (eq? (vector-ref #{x 14828}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 15292}# 1))
+ (symbol? (vector-ref #{x 14828}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 15292}#))
- (if (not (if (if (vector? #{y 15293}#)
- (if (= (vector-length #{y 15293}#) 4)
- (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
+ #{x 14828}#))
+ (if (not (if (if (vector? #{y 14829}#)
+ (if (= (vector-length #{y 14829}#) 4)
+ (eq? (vector-ref #{y 14829}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 15293}# 1))
+ (symbol? (vector-ref #{y 14829}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 15293}#))
- (if (if (if (vector? #{x 15292}#)
- (if (= (vector-length #{x 15292}#) 4)
- (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
+ #{y 14829}#))
+ (if (if (if (vector? #{x 14828}#)
+ (if (= (vector-length #{x 14828}#) 4)
+ (eq? (vector-ref #{x 14828}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{y 15293}#)
- (if (= (vector-length #{y 15293}#) 4)
- (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
+ (if (vector? #{y 14829}#)
+ (if (= (vector-length #{y 14829}#) 4)
+ (eq? (vector-ref #{y 14829}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 15292}# 1)
- (vector-ref #{y 15293}# 1))
- (#{same-marks? 4319}#
- (car (vector-ref #{x 15292}# 2))
- (car (vector-ref #{y 15293}# 2)))
+ (if (eq? (vector-ref #{x 14828}# 1)
+ (vector-ref #{y 14829}# 1))
+ (#{same-marks? 4320}#
+ (car (vector-ref #{x 14828}# 2))
+ (car (vector-ref #{y 14829}# 2)))
#f)
- (eq? #{x 15292}# #{y 15293}#)))))
+ (eq? #{x 14828}# #{y 14829}#)))))
(set! syntax-violation
(lambda*
- (#{who 15426}#
- #{message 15427}#
- #{form 15428}#
+ (#{who 14962}#
+ #{message 14963}#
+ #{form 14964}#
#:optional
- (#{subform 15429}# #f))
+ (#{subform 14965}# #f))
(begin
- (if (not (if (not #{who 15426}#)
- (not #{who 15426}#)
- (let ((#{t 15447}# (string? #{who 15426}#)))
- (if #{t 15447}#
- #{t 15447}#
- (symbol? #{who 15426}#)))))
+ (if (not (if (not #{who 14962}#)
+ (not #{who 14962}#)
+ (let ((#{t 14983}# (string? #{who 14962}#)))
+ (if #{t 14983}#
+ #{t 14983}#
+ (symbol? #{who 14962}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 15426}#))
- (if (not (string? #{message 15427}#))
+ #{who 14962}#))
+ (if (not (string? #{message 14963}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 15427}#))
+ #{message 14963}#))
(throw 'syntax-error
- #{who 15426}#
- #{message 15427}#
- (#{source-annotation 4294}#
- (if #{form 15428}#
- #{form 15428}#
- #{subform 15429}#))
- (#{strip 4346}# #{form 15428}# '(()))
- (if #{subform 15429}#
- (#{strip 4346}# #{subform 15429}# '(()))
+ #{who 14962}#
+ #{message 14963}#
+ (#{source-annotation 4295}#
+ (if #{form 14964}#
+ #{form 14964}#
+ #{subform 14965}#))
+ (#{strip 4347}# #{form 14964}# '(()))
+ (if #{subform 14965}#
+ (#{strip 4347}# #{subform 14965}# '(()))
#f)))))
(letrec*
- ((#{match-each 15670}#
- (lambda (#{e 16293}#
- #{p 16294}#
- #{w 16295}#
- #{mod 16296}#)
- (if (pair? #{e 16293}#)
- (let ((#{first 16297}#
- (#{match 15676}#
- (car #{e 16293}#)
- #{p 16294}#
- #{w 16295}#
+ ((#{match-each 15186}#
+ (lambda (#{e 15773}#
+ #{p 15774}#
+ #{w 15775}#
+ #{mod 15776}#)
+ (if (pair? #{e 15773}#)
+ (let ((#{first 15777}#
+ (#{match 15192}#
+ (car #{e 15773}#)
+ #{p 15774}#
+ #{w 15775}#
'()
- #{mod 16296}#)))
- (if #{first 16297}#
- (let ((#{rest 16300}#
- (#{match-each 15670}#
- (cdr #{e 16293}#)
- #{p 16294}#
- #{w 16295}#
- #{mod 16296}#)))
- (if #{rest 16300}#
- (cons #{first 16297}# #{rest 16300}#)
+ #{mod 15776}#)))
+ (if #{first 15777}#
+ (let ((#{rest 15780}#
+ (#{match-each 15186}#
+ (cdr #{e 15773}#)
+ #{p 15774}#
+ #{w 15775}#
+ #{mod 15776}#)))
+ (if #{rest 15780}#
+ (cons #{first 15777}# #{rest 15780}#)
#f))
#f))
- (if (null? #{e 16293}#)
+ (if (null? #{e 15773}#)
'()
- (if (if (vector? #{e 16293}#)
- (if (= (vector-length #{e 16293}#) 4)
- (eq? (vector-ref #{e 16293}# 0) 'syntax-object)
+ (if (if (vector? #{e 15773}#)
+ (if (= (vector-length #{e 15773}#) 4)
+ (eq? (vector-ref #{e 15773}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 15670}#
- (vector-ref #{e 16293}# 1)
- #{p 16294}#
- (#{join-wraps 4317}#
- #{w 16295}#
- (vector-ref #{e 16293}# 2))
- (vector-ref #{e 16293}# 3))
+ (#{match-each 15186}#
+ (vector-ref #{e 15773}# 1)
+ #{p 15774}#
+ (#{join-wraps 4318}#
+ #{w 15775}#
+ (vector-ref #{e 15773}# 2))
+ (vector-ref #{e 15773}# 3))
#f)))))
- (#{match-each-any 15672}#
- (lambda (#{e 16328}# #{w 16329}# #{mod 16330}#)
- (if (pair? #{e 16328}#)
- (let ((#{l 16331}#
- (#{match-each-any 15672}#
- (cdr #{e 16328}#)
- #{w 16329}#
- #{mod 16330}#)))
- (if #{l 16331}#
- (cons (#{wrap 4326}#
- (car #{e 16328}#)
- #{w 16329}#
- #{mod 16330}#)
- #{l 16331}#)
+ (#{match-each-any 15188}#
+ (lambda (#{e 15808}# #{w 15809}# #{mod 15810}#)
+ (if (pair? #{e 15808}#)
+ (let ((#{l 15811}#
+ (#{match-each-any 15188}#
+ (cdr #{e 15808}#)
+ #{w 15809}#
+ #{mod 15810}#)))
+ (if #{l 15811}#
+ (cons (#{wrap 4327}#
+ (car #{e 15808}#)
+ #{w 15809}#
+ #{mod 15810}#)
+ #{l 15811}#)
#f))
- (if (null? #{e 16328}#)
+ (if (null? #{e 15808}#)
'()
- (if (if (vector? #{e 16328}#)
- (if (= (vector-length #{e 16328}#) 4)
- (eq? (vector-ref #{e 16328}# 0) 'syntax-object)
+ (if (if (vector? #{e 15808}#)
+ (if (= (vector-length #{e 15808}#) 4)
+ (eq? (vector-ref #{e 15808}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 15672}#
- (vector-ref #{e 16328}# 1)
- (#{join-wraps 4317}#
- #{w 16329}#
- (vector-ref #{e 16328}# 2))
- #{mod 16330}#)
+ (#{match-each-any 15188}#
+ (vector-ref #{e 15808}# 1)
+ (#{join-wraps 4318}#
+ #{w 15809}#
+ (vector-ref #{e 15808}# 2))
+ #{mod 15810}#)
#f)))))
- (#{match-empty 15673}#
- (lambda (#{p 16355}# #{r 16356}#)
- (if (null? #{p 16355}#)
- #{r 16356}#
- (if (eq? #{p 16355}# '_)
- #{r 16356}#
- (if (eq? #{p 16355}# 'any)
- (cons '() #{r 16356}#)
- (if (pair? #{p 16355}#)
- (#{match-empty 15673}#
- (car #{p 16355}#)
- (#{match-empty 15673}#
- (cdr #{p 16355}#)
- #{r 16356}#))
- (if (eq? #{p 16355}# 'each-any)
- (cons '() #{r 16356}#)
- (let ((#{atom-key 16357}# (vector-ref #{p 16355}# 0)))
- (if (eqv? #{atom-key 16357}# 'each)
- (#{match-empty 15673}#
- (vector-ref #{p 16355}# 1)
- #{r 16356}#)
- (if (eqv? #{atom-key 16357}# 'each+)
- (#{match-empty 15673}#
- (vector-ref #{p 16355}# 1)
- (#{match-empty 15673}#
- (reverse (vector-ref #{p 16355}# 2))
- (#{match-empty 15673}#
- (vector-ref #{p 16355}# 3)
- #{r 16356}#)))
- (if (if (eqv? #{atom-key 16357}# 'free-id)
+ (#{match-empty 15189}#
+ (lambda (#{p 15835}# #{r 15836}#)
+ (if (null? #{p 15835}#)
+ #{r 15836}#
+ (if (eq? #{p 15835}# '_)
+ #{r 15836}#
+ (if (eq? #{p 15835}# 'any)
+ (cons '() #{r 15836}#)
+ (if (pair? #{p 15835}#)
+ (#{match-empty 15189}#
+ (car #{p 15835}#)
+ (#{match-empty 15189}#
+ (cdr #{p 15835}#)
+ #{r 15836}#))
+ (if (eq? #{p 15835}# 'each-any)
+ (cons '() #{r 15836}#)
+ (let ((#{atom-key 15837}# (vector-ref #{p 15835}# 0)))
+ (if (eqv? #{atom-key 15837}# 'each)
+ (#{match-empty 15189}#
+ (vector-ref #{p 15835}# 1)
+ #{r 15836}#)
+ (if (eqv? #{atom-key 15837}# 'each+)
+ (#{match-empty 15189}#
+ (vector-ref #{p 15835}# 1)
+ (#{match-empty 15189}#
+ (reverse (vector-ref #{p 15835}# 2))
+ (#{match-empty 15189}#
+ (vector-ref #{p 15835}# 3)
+ #{r 15836}#)))
+ (if (if (eqv? #{atom-key 15837}# 'free-id)
#t
- (eqv? #{atom-key 16357}# 'atom))
- #{r 16356}#
- (if (eqv? #{atom-key 16357}# 'vector)
- (#{match-empty 15673}#
- (vector-ref #{p 16355}# 1)
- #{r 16356}#)))))))))))))
- (#{combine 15674}#
- (lambda (#{r* 16376}# #{r 16377}#)
- (if (null? (car #{r* 16376}#))
- #{r 16377}#
- (cons (map car #{r* 16376}#)
- (#{combine 15674}#
- (map cdr #{r* 16376}#)
- #{r 16377}#)))))
- (#{match* 15675}#
- (lambda (#{e 15705}#
- #{p 15706}#
- #{w 15707}#
- #{r 15708}#
- #{mod 15709}#)
- (if (null? #{p 15706}#)
- (if (null? #{e 15705}#) #{r 15708}# #f)
- (if (pair? #{p 15706}#)
- (if (pair? #{e 15705}#)
- (#{match 15676}#
- (car #{e 15705}#)
- (car #{p 15706}#)
- #{w 15707}#
- (#{match 15676}#
- (cdr #{e 15705}#)
- (cdr #{p 15706}#)
- #{w 15707}#
- #{r 15708}#
- #{mod 15709}#)
- #{mod 15709}#)
+ (eqv? #{atom-key 15837}# 'atom))
+ #{r 15836}#
+ (if (eqv? #{atom-key 15837}# 'vector)
+ (#{match-empty 15189}#
+ (vector-ref #{p 15835}# 1)
+ #{r 15836}#)))))))))))))
+ (#{combine 15190}#
+ (lambda (#{r* 15856}# #{r 15857}#)
+ (if (null? (car #{r* 15856}#))
+ #{r 15857}#
+ (cons (map car #{r* 15856}#)
+ (#{combine 15190}#
+ (map cdr #{r* 15856}#)
+ #{r 15857}#)))))
+ (#{match* 15191}#
+ (lambda (#{e 15221}#
+ #{p 15222}#
+ #{w 15223}#
+ #{r 15224}#
+ #{mod 15225}#)
+ (if (null? #{p 15222}#)
+ (if (null? #{e 15221}#) #{r 15224}# #f)
+ (if (pair? #{p 15222}#)
+ (if (pair? #{e 15221}#)
+ (#{match 15192}#
+ (car #{e 15221}#)
+ (car #{p 15222}#)
+ #{w 15223}#
+ (#{match 15192}#
+ (cdr #{e 15221}#)
+ (cdr #{p 15222}#)
+ #{w 15223}#
+ #{r 15224}#
+ #{mod 15225}#)
+ #{mod 15225}#)
#f)
- (if (eq? #{p 15706}# 'each-any)
- (let ((#{l 15714}#
- (#{match-each-any 15672}#
- #{e 15705}#
- #{w 15707}#
- #{mod 15709}#)))
- (if #{l 15714}#
- (cons #{l 15714}# #{r 15708}#)
+ (if (eq? #{p 15222}# 'each-any)
+ (let ((#{l 15230}#
+ (#{match-each-any 15188}#
+ #{e 15221}#
+ #{w 15223}#
+ #{mod 15225}#)))
+ (if #{l 15230}#
+ (cons #{l 15230}# #{r 15224}#)
#f))
- (let ((#{atom-key 15719}# (vector-ref #{p 15706}# 0)))
- (if (eqv? #{atom-key 15719}# 'each)
- (if (null? #{e 15705}#)
- (#{match-empty 15673}#
- (vector-ref #{p 15706}# 1)
- #{r 15708}#)
- (let ((#{l 15726}#
- (#{match-each 15670}#
- #{e 15705}#
- (vector-ref #{p 15706}# 1)
- #{w 15707}#
- #{mod 15709}#)))
- (if #{l 15726}#
+ (let ((#{atom-key 15235}# (vector-ref #{p 15222}# 0)))
+ (if (eqv? #{atom-key 15235}# 'each)
+ (if (null? #{e 15221}#)
+ (#{match-empty 15189}#
+ (vector-ref #{p 15222}# 1)
+ #{r 15224}#)
+ (let ((#{l 15242}#
+ (#{match-each 15186}#
+ #{e 15221}#
+ (vector-ref #{p 15222}# 1)
+ #{w 15223}#
+ #{mod 15225}#)))
+ (if #{l 15242}#
(letrec*
- ((#{collect 15729}#
- (lambda (#{l 15782}#)
- (if (null? (car #{l 15782}#))
- #{r 15708}#
- (cons (map car #{l 15782}#)
- (#{collect 15729}#
- (map cdr #{l 15782}#)))))))
- (#{collect 15729}# #{l 15726}#))
+ ((#{collect 15245}#
+ (lambda (#{l 15296}#)
+ (if (null? (car #{l 15296}#))
+ #{r 15224}#
+ (cons (map car #{l 15296}#)
+ (#{collect 15245}#
+ (map cdr #{l 15296}#)))))))
+ (#{collect 15245}# #{l 15242}#))
#f)))
- (if (eqv? #{atom-key 15719}# 'each+)
+ (if (eqv? #{atom-key 15235}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 15791}# (vector-ref #{p 15706}# 1))
- (#{y-pat 15792}# (vector-ref #{p 15706}# 2))
- (#{z-pat 15793}# (vector-ref #{p 15706}# 3)))
+ (let ((#{x-pat 15305}# (vector-ref #{p 15222}# 1))
+ (#{y-pat 15306}# (vector-ref #{p 15222}# 2))
+ (#{z-pat 15307}# (vector-ref #{p 15222}# 3)))
(letrec*
- ((#{f 15797}#
- (lambda (#{e 15799}# #{w 15800}#)
- (if (pair? #{e 15799}#)
+ ((#{f 15311}#
+ (lambda (#{e 15313}# #{w 15314}#)
+ (if (pair? #{e 15313}#)
(call-with-values
(lambda ()
- (#{f 15797}#
- (cdr #{e 15799}#)
- #{w 15800}#))
- (lambda (#{xr* 15801}#
- #{y-pat 15802}#
- #{r 15803}#)
- (if #{r 15803}#
- (if (null? #{y-pat 15802}#)
- (let ((#{xr 15804}#
- (#{match 15676}#
- (car #{e 15799}#)
- #{x-pat 15791}#
- #{w 15800}#
+ (#{f 15311}#
+ (cdr #{e 15313}#)
+ #{w 15314}#))
+ (lambda (#{xr* 15315}#
+ #{y-pat 15316}#
+ #{r 15317}#)
+ (if #{r 15317}#
+ (if (null? #{y-pat 15316}#)
+ (let ((#{xr 15318}#
+ (#{match 15192}#
+ (car #{e 15313}#)
+ #{x-pat 15305}#
+ #{w 15314}#
'()
- #{mod 15709}#)))
- (if #{xr 15804}#
+ #{mod 15225}#)))
+ (if #{xr 15318}#
(values
- (cons #{xr 15804}#
- #{xr* 15801}#)
- #{y-pat 15802}#
- #{r 15803}#)
+ (cons #{xr 15318}#
+ #{xr* 15315}#)
+ #{y-pat 15316}#
+ #{r 15317}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 15802}#)
- (#{match 15676}#
- (car #{e 15799}#)
- (car #{y-pat 15802}#)
- #{w 15800}#
- #{r 15803}#
- #{mod 15709}#)))
+ (cdr #{y-pat 15316}#)
+ (#{match 15192}#
+ (car #{e 15313}#)
+ (car #{y-pat 15316}#)
+ #{w 15314}#
+ #{r 15317}#
+ #{mod 15225}#)))
(values #f #f #f))))
- (if (if (vector? #{e 15799}#)
- (if (= (vector-length #{e 15799}#)
+ (if (if (vector? #{e 15313}#)
+ (if (= (vector-length #{e 15313}#)
4)
- (eq? (vector-ref #{e 15799}# 0)
+ (eq? (vector-ref #{e 15313}# 0)
'syntax-object)
#f)
#f)
- (#{f 15797}#
- (vector-ref #{e 15799}# 1)
- (#{join-wraps 4317}#
- #{w 15800}#
- #{e 15799}#))
+ (#{f 15311}#
+ (vector-ref #{e 15313}# 1)
+ (#{join-wraps 4318}#
+ #{w 15314}#
+ #{e 15313}#))
(values
'()
- #{y-pat 15792}#
- (#{match 15676}#
- #{e 15799}#
- #{z-pat 15793}#
- #{w 15800}#
- #{r 15708}#
- #{mod 15709}#)))))))
- (#{f 15797}# #{e 15705}# #{w 15707}#))))
- (lambda (#{xr* 15832}# #{y-pat 15833}# #{r 15834}#)
- (if #{r 15834}#
- (if (null? #{y-pat 15833}#)
- (if (null? #{xr* 15832}#)
- (#{match-empty 15673}#
- (vector-ref #{p 15706}# 1)
- #{r 15834}#)
- (#{combine 15674}# #{xr* 15832}# #{r 15834}#))
+ #{y-pat 15306}#
+ (#{match 15192}#
+ #{e 15313}#
+ #{z-pat 15307}#
+ #{w 15314}#
+ #{r 15224}#
+ #{mod 15225}#)))))))
+ (#{f 15311}# #{e 15221}# #{w 15223}#))))
+ (lambda (#{xr* 15344}# #{y-pat 15345}# #{r 15346}#)
+ (if #{r 15346}#
+ (if (null? #{y-pat 15345}#)
+ (if (null? #{xr* 15344}#)
+ (#{match-empty 15189}#
+ (vector-ref #{p 15222}# 1)
+ #{r 15346}#)
+ (#{combine 15190}# #{xr* 15344}# #{r 15346}#))
#f)
#f)))
- (if (eqv? #{atom-key 15719}# 'free-id)
- (if (if (symbol? #{e 15705}#)
+ (if (eqv? #{atom-key 15235}# 'free-id)
+ (if (if (symbol? #{e 15221}#)
#t
- (if (if (vector? #{e 15705}#)
- (if (= (vector-length #{e 15705}#) 4)
- (eq? (vector-ref #{e 15705}# 0)
+ (if (if (vector? #{e 15221}#)
+ (if (= (vector-length #{e 15221}#) 4)
+ (eq? (vector-ref #{e 15221}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 15705}# 1))
+ (symbol? (vector-ref #{e 15221}# 1))
#f))
- (if (let ((#{i 16197}#
- (#{wrap 4326}#
- #{e 15705}#
- #{w 15707}#
- #{mod 15709}#))
- (#{j 16198}# (vector-ref #{p 15706}# 1)))
- (if (eq? (if (if (vector? #{i 16197}#)
+ (if (let ((#{i 15677}#
+ (#{wrap 4327}#
+ #{e 15221}#
+ #{w 15223}#
+ #{mod 15225}#))
+ (#{j 15678}# (vector-ref #{p 15222}# 1)))
+ (if (eq? (if (if (vector? #{i 15677}#)
(if (= (vector-length
- #{i 16197}#)
+ #{i 15677}#)
4)
(eq? (vector-ref
- #{i 16197}#
+ #{i 15677}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 16197}# 1)
- #{i 16197}#)
- (if (if (vector? #{j 16198}#)
+ (vector-ref #{i 15677}# 1)
+ #{i 15677}#)
+ (if (if (vector? #{j 15678}#)
(if (= (vector-length
- #{j 16198}#)
+ #{j 15678}#)
4)
(eq? (vector-ref
- #{j 16198}#
+ #{j 15678}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 16198}# 1)
- #{j 16198}#))
- (eq? (#{id-var-name 4320}#
- #{i 16197}#
+ (vector-ref #{j 15678}# 1)
+ #{j 15678}#))
+ (eq? (#{id-var-name 4321}#
+ #{i 15677}#
'(()))
- (#{id-var-name 4320}#
- #{j 16198}#
+ (#{id-var-name 4321}#
+ #{j 15678}#
'(())))
#f))
- #{r 15708}#
+ #{r 15224}#
#f)
#f)
- (if (eqv? #{atom-key 15719}# 'atom)
+ (if (eqv? #{atom-key 15235}# 'atom)
(if (equal?
- (vector-ref #{p 15706}# 1)
- (#{strip 4346}# #{e 15705}# #{w 15707}#))
- #{r 15708}#
+ (vector-ref #{p 15222}# 1)
+ (#{strip 4347}# #{e 15221}# #{w 15223}#))
+ #{r 15224}#
#f)
- (if (eqv? #{atom-key 15719}# 'vector)
- (if (vector? #{e 15705}#)
- (#{match 15676}#
- (vector->list #{e 15705}#)
- (vector-ref #{p 15706}# 1)
- #{w 15707}#
- #{r 15708}#
- #{mod 15709}#)
+ (if (eqv? #{atom-key 15235}# 'vector)
+ (if (vector? #{e 15221}#)
+ (#{match 15192}#
+ (vector->list #{e 15221}#)
+ (vector-ref #{p 15222}# 1)
+ #{w 15223}#
+ #{r 15224}#
+ #{mod 15225}#)
#f))))))))))))
- (#{match 15676}#
- (lambda (#{e 16258}#
- #{p 16259}#
- #{w 16260}#
- #{r 16261}#
- #{mod 16262}#)
- (if (not #{r 16261}#)
+ (#{match 15192}#
+ (lambda (#{e 15738}#
+ #{p 15739}#
+ #{w 15740}#
+ #{r 15741}#
+ #{mod 15742}#)
+ (if (not #{r 15741}#)
#f
- (if (eq? #{p 16259}# '_)
- #{r 16261}#
- (if (eq? #{p 16259}# 'any)
- (cons (#{wrap 4326}#
- #{e 16258}#
- #{w 16260}#
- #{mod 16262}#)
- #{r 16261}#)
- (if (if (vector? #{e 16258}#)
- (if (= (vector-length #{e 16258}#) 4)
- (eq? (vector-ref #{e 16258}# 0) 'syntax-object)
+ (if (eq? #{p 15739}# '_)
+ #{r 15741}#
+ (if (eq? #{p 15739}# 'any)
+ (cons (#{wrap 4327}#
+ #{e 15738}#
+ #{w 15740}#
+ #{mod 15742}#)
+ #{r 15741}#)
+ (if (if (vector? #{e 15738}#)
+ (if (= (vector-length #{e 15738}#) 4)
+ (eq? (vector-ref #{e 15738}# 0) 'syntax-object)
#f)
#f)
- (#{match* 15675}#
- (vector-ref #{e 16258}# 1)
- #{p 16259}#
- (#{join-wraps 4317}#
- #{w 16260}#
- (vector-ref #{e 16258}# 2))
- #{r 16261}#
- (vector-ref #{e 16258}# 3))
- (#{match* 15675}#
- #{e 16258}#
- #{p 16259}#
- #{w 16260}#
- #{r 16261}#
- #{mod 16262}#))))))))
+ (#{match* 15191}#
+ (vector-ref #{e 15738}# 1)
+ #{p 15739}#
+ (#{join-wraps 4318}#
+ #{w 15740}#
+ (vector-ref #{e 15738}# 2))
+ #{r 15741}#
+ (vector-ref #{e 15738}# 3))
+ (#{match* 15191}#
+ #{e 15738}#
+ #{p 15739}#
+ #{w 15740}#
+ #{r 15741}#
+ #{mod 15742}#))))))))
(set! $sc-dispatch
- (lambda (#{e 15677}# #{p 15678}#)
- (if (eq? #{p 15678}# 'any)
- (list #{e 15677}#)
- (if (eq? #{p 15678}# '_)
+ (lambda (#{e 15193}# #{p 15194}#)
+ (if (eq? #{p 15194}# 'any)
+ (list #{e 15193}#)
+ (if (eq? #{p 15194}# '_)
'()
- (if (if (vector? #{e 15677}#)
- (if (= (vector-length #{e 15677}#) 4)
- (eq? (vector-ref #{e 15677}# 0) 'syntax-object)
+ (if (if (vector? #{e 15193}#)
+ (if (= (vector-length #{e 15193}#) 4)
+ (eq? (vector-ref #{e 15193}# 0) 'syntax-object)
#f)
#f)
- (#{match* 15675}#
- (vector-ref #{e 15677}# 1)
- #{p 15678}#
- (vector-ref #{e 15677}# 2)
+ (#{match* 15191}#
+ (vector-ref #{e 15193}# 1)
+ #{p 15194}#
+ (vector-ref #{e 15193}# 2)
'()
- (vector-ref #{e 15677}# 3))
- (#{match* 15675}#
- #{e 15677}#
- #{p 15678}#
+ (vector-ref #{e 15193}# 3))
+ (#{match* 15191}#
+ #{e 15193}#
+ #{p 15194}#
'(())
'()
#f)))))))))
@@ -21818,82 +21975,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 28920}#)
- (let ((#{tmp 28922}#
- ($sc-dispatch #{x 28920}# '(_ () any . each-any))))
- (if #{tmp 28922}#
+ (lambda (#{x 27949}#)
+ (let ((#{tmp 27951}#
+ ($sc-dispatch #{x 27949}# '(_ () any . each-any))))
+ (if #{tmp 27951}#
(@apply
- (lambda (#{e1 28926}# #{e2 28927}#)
+ (lambda (#{e1 27955}# #{e2 27956}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28893" "i28894"))
+ #("i27922" "i27923"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28890")))
+ #(ribcage #(x) #((top)) #("i27919")))
(hygiene guile))
- (cons '() (cons #{e1 28926}# #{e2 28927}#))))
- #{tmp 28922}#)
- (let ((#{tmp 28928}#
+ (cons '() (cons #{e1 27955}# #{e2 27956}#))))
+ #{tmp 27951}#)
+ (let ((#{tmp 27957}#
($sc-dispatch
- #{x 28920}#
+ #{x 27949}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 28928}#
+ (if #{tmp 27957}#
(@apply
- (lambda (#{out 28932}#
- #{in 28933}#
- #{e1 28934}#
- #{e2 28935}#)
+ (lambda (#{out 27961}#
+ #{in 27962}#
+ #{e1 27963}#
+ #{e2 27964}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28899" "i28900" "i28901" "i28902"))
+ #("i27928" "i27929" "i27930" "i27931"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28890")))
+ #(ribcage #(x) #((top)) #("i27919")))
(hygiene guile))
- #{in 28933}#
+ #{in 27962}#
'()
- (list #{out 28932}#
+ (list #{out 27961}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28899"
- "i28900"
- "i28901"
- "i28902"))
+ #("i27928"
+ "i27929"
+ "i27930"
+ "i27931"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28890")))
+ #(ribcage #(x) #((top)) #("i27919")))
(hygiene guile))
(cons '()
- (cons #{e1 28934}# #{e2 28935}#))))))
- #{tmp 28928}#)
- (let ((#{tmp 28936}#
+ (cons #{e1 27963}# #{e2 27964}#))))))
+ #{tmp 27957}#)
+ (let ((#{tmp 27965}#
($sc-dispatch
- #{x 28920}#
+ #{x 27949}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 28936}#
+ (if #{tmp 27965}#
(@apply
- (lambda (#{out 28940}#
- #{in 28941}#
- #{e1 28942}#
- #{e2 28943}#)
+ (lambda (#{out 27969}#
+ #{in 27970}#
+ #{e1 27971}#
+ #{e2 27972}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28909" "i28910" "i28911" "i28912"))
+ #("i27938" "i27939" "i27940" "i27941"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28890")))
+ #(ribcage #(x) #((top)) #("i27919")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -21901,62 +22058,62 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28909" "i28910" "i28911" "i28912"))
+ #("i27938" "i27939" "i27940" "i27941"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28890")))
+ #(ribcage #(x) #((top)) #("i27919")))
(hygiene guile))
- #{in 28941}#)
+ #{in 27970}#)
'()
- (list #{out 28940}#
+ (list #{out 27969}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28909"
- "i28910"
- "i28911"
- "i28912"))
+ #("i27938"
+ "i27939"
+ "i27940"
+ "i27941"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28890")))
+ #("i27919")))
(hygiene guile))
(cons '()
- (cons #{e1 28942}#
- #{e2 28943}#))))))
- #{tmp 28936}#)
+ (cons #{e1 27971}#
+ #{e2 27972}#))))))
+ #{tmp 27965}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28920}#))))))))))
+ #{x 27949}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 28997}#)
- (let ((#{tmp 28999}#
+ (lambda (#{x 28026}#)
+ (let ((#{tmp 28028}#
($sc-dispatch
- #{x 28997}#
+ #{x 28026}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 28999}#
+ (if #{tmp 28028}#
(@apply
- (lambda (#{k 29003}#
- #{keyword 29004}#
- #{pattern 29005}#
- #{template 29006}#)
+ (lambda (#{k 28032}#
+ #{keyword 28033}#
+ #{pattern 28034}#
+ #{template 28035}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28960" "i28961" "i28962" "i28963"))
+ #("i27989" "i27990" "i27991" "i27992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
'(#(syntax-object
x
@@ -21964,9 +22121,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28960" "i28961" "i28962" "i28963"))
+ #("i27989" "i27990" "i27991" "i27992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -21975,9 +22132,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28960" "i28961" "i28962" "i28963"))
+ #("i27989" "i27990" "i27991" "i27992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
.
#(syntax-object
@@ -21986,9 +22143,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28960" "i28961" "i28962" "i28963"))
+ #("i27989" "i27990" "i27991" "i27992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -21996,20 +22153,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28960" "i28961" "i28962" "i28963"))
+ #("i27989" "i27990" "i27991" "i27992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
- #{pattern 29005}#))
+ #{pattern 28034}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28960" "i28961" "i28962" "i28963"))
+ #("i27989" "i27990" "i27991" "i27992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22017,13 +22174,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28960" "i28961" "i28962" "i28963"))
+ #("i27989" "i27990" "i27991" "i27992"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
- (cons #{k 29003}#
- (map (lambda (#{tmp 28971 29007}#
- #{tmp 28970 29008}#)
+ (cons #{k 28032}#
+ (map (lambda (#{tmp 28000 28036}#
+ #{tmp 27999 28037}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22036,10 +22193,10 @@
(top)
(top)
(top))
- #("i28960"
- "i28961"
- "i28962"
- "i28963"))
+ #("i27989"
+ "i27990"
+ "i27991"
+ "i27992"))
#(ribcage
()
()
@@ -22047,9 +22204,9 @@
#(ribcage
#(x)
#((top))
- #("i28957")))
+ #("i27986")))
(hygiene guile))
- #{tmp 28970 29008}#)
+ #{tmp 27999 28037}#)
(list '#(syntax-object
syntax
((top)
@@ -22062,10 +22219,10 @@
(top)
(top)
(top))
- #("i28960"
- "i28961"
- "i28962"
- "i28963"))
+ #("i27989"
+ "i27990"
+ "i27991"
+ "i27992"))
#(ribcage
()
()
@@ -22073,41 +22230,41 @@
#(ribcage
#(x)
#((top))
- #("i28957")))
+ #("i27986")))
(hygiene guile))
- #{tmp 28971 29007}#)))
- #{template 29006}#
- #{pattern 29005}#))))))
- #{tmp 28999}#)
- (let ((#{tmp 29009}#
+ #{tmp 28000 28036}#)))
+ #{template 28035}#
+ #{pattern 28034}#))))))
+ #{tmp 28028}#)
+ (let ((#{tmp 28038}#
($sc-dispatch
- #{x 28997}#
+ #{x 28026}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 29009}#
+ (if (if #{tmp 28038}#
(@apply
- (lambda (#{k 29013}#
- #{docstring 29014}#
- #{keyword 29015}#
- #{pattern 29016}#
- #{template 29017}#)
- (string? (syntax->datum #{docstring 29014}#)))
- #{tmp 29009}#)
+ (lambda (#{k 28042}#
+ #{docstring 28043}#
+ #{keyword 28044}#
+ #{pattern 28045}#
+ #{template 28046}#)
+ (string? (syntax->datum #{docstring 28043}#)))
+ #{tmp 28038}#)
#f)
(@apply
- (lambda (#{k 29018}#
- #{docstring 29019}#
- #{keyword 29020}#
- #{pattern 29021}#
- #{template 29022}#)
+ (lambda (#{k 28047}#
+ #{docstring 28048}#
+ #{keyword 28049}#
+ #{pattern 28050}#
+ #{template 28051}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28983" "i28984" "i28985" "i28986" "i28987"))
+ #("i28012" "i28013" "i28014" "i28015" "i28016"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
'(#(syntax-object
x
@@ -22115,11 +22272,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28983" "i28984" "i28985" "i28986" "i28987"))
+ #("i28012" "i28013" "i28014" "i28015" "i28016"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile)))
- #{docstring 29019}#
+ #{docstring 28048}#
(vector
'(#(syntax-object
macro-type
@@ -22127,13 +22284,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28983"
- "i28984"
- "i28985"
- "i28986"
- "i28987"))
+ #("i28012"
+ "i28013"
+ "i28014"
+ "i28015"
+ "i28016"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
.
#(syntax-object
@@ -22142,13 +22299,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28983"
- "i28984"
- "i28985"
- "i28986"
- "i28987"))
+ #("i28012"
+ "i28013"
+ "i28014"
+ "i28015"
+ "i28016"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22156,28 +22313,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28983"
- "i28984"
- "i28985"
- "i28986"
- "i28987"))
+ #("i28012"
+ "i28013"
+ "i28014"
+ "i28015"
+ "i28016"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
- #{pattern 29021}#))
+ #{pattern 28050}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28983"
- "i28984"
- "i28985"
- "i28986"
- "i28987"))
+ #("i28012"
+ "i28013"
+ "i28014"
+ "i28015"
+ "i28016"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22189,17 +22346,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i28983"
- "i28984"
- "i28985"
- "i28986"
- "i28987"))
+ #("i28012"
+ "i28013"
+ "i28014"
+ "i28015"
+ "i28016"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28957")))
+ #(ribcage #(x) #((top)) #("i27986")))
(hygiene guile))
- (cons #{k 29018}#
- (map (lambda (#{tmp 28996 29023}#
- #{tmp 28995 29024}#)
+ (cons #{k 28047}#
+ (map (lambda (#{tmp 28025 28052}#
+ #{tmp 28024 28053}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22214,11 +22371,11 @@
(top)
(top)
(top))
- #("i28983"
- "i28984"
- "i28985"
- "i28986"
- "i28987"))
+ #("i28012"
+ "i28013"
+ "i28014"
+ "i28015"
+ "i28016"))
#(ribcage
()
()
@@ -22226,10 +22383,10 @@
#(ribcage
#(x)
#((top))
-
#("i28957")))
+
#("i27986")))
(hygiene
guile))
- #{tmp 28995
29024}#)
+ #{tmp 28024
28053}#)
(list '#(syntax-object
syntax
((top)
@@ -22244,11 +22401,11 @@
(top)
(top)
(top))
- #("i28983"
- "i28984"
- "i28985"
- "i28986"
- "i28987"))
+ #("i28012"
+ "i28013"
+ "i28014"
+ "i28015"
+ "i28016"))
#(ribcage
()
()
@@ -22256,50 +22413,50 @@
#(ribcage
#(x)
#((top))
-
#("i28957")))
+
#("i27986")))
(hygiene
guile))
- #{tmp 28996
29023}#)))
- #{template 29022}#
- #{pattern 29021}#))))))
- #{tmp 29009}#)
+ #{tmp 28025
28052}#)))
+ #{template 28051}#
+ #{pattern 28050}#))))))
+ #{tmp 28038}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28997}#))))))))
+ #{x 28026}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 29061}#)
- (let ((#{tmp 29063}#
- ($sc-dispatch #{x 29061}# '(_ (any . any) any))))
- (if #{tmp 29063}#
+ (lambda (#{x 28090}#)
+ (let ((#{tmp 28092}#
+ ($sc-dispatch #{x 28090}# '(_ (any . any) any))))
+ (if #{tmp 28092}#
(@apply
- (lambda (#{name 29067}#
- #{pattern 29068}#
- #{template 29069}#)
+ (lambda (#{name 28096}#
+ #{pattern 28097}#
+ #{template 28098}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i29038" "i29039" "i29040"))
+ #("i28067" "i28068" "i28069"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29035")))
+ #(ribcage #(x) #((top)) #("i28064")))
(hygiene guile))
- #{name 29067}#
+ #{name 28096}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i29038" "i29039" "i29040"))
+ #("i28067" "i28068" "i28069"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29035")))
+ #(ribcage #(x) #((top)) #("i28064")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22308,54 +22465,54 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i29038" "i29039" "i29040"))
+ #("i28067" "i28068" "i28069"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29035")))
+ #(ribcage #(x) #((top)) #("i28064")))
(hygiene guile))
- #{pattern 29068}#)
- #{template 29069}#))))
- #{tmp 29063}#)
- (let ((#{tmp 29070}#
+ #{pattern 28097}#)
+ #{template 28098}#))))
+ #{tmp 28092}#)
+ (let ((#{tmp 28099}#
($sc-dispatch
- #{x 29061}#
+ #{x 28090}#
'(_ (any . any) any any))))
- (if (if #{tmp 29070}#
+ (if (if #{tmp 28099}#
(@apply
- (lambda (#{name 29074}#
- #{pattern 29075}#
- #{docstring 29076}#
- #{template 29077}#)
- (string? (syntax->datum #{docstring 29076}#)))
- #{tmp 29070}#)
+ (lambda (#{name 28103}#
+ #{pattern 28104}#
+ #{docstring 28105}#
+ #{template 28106}#)
+ (string? (syntax->datum #{docstring 28105}#)))
+ #{tmp 28099}#)
#f)
(@apply
- (lambda (#{name 29078}#
- #{pattern 29079}#
- #{docstring 29080}#
- #{template 29081}#)
+ (lambda (#{name 28107}#
+ #{pattern 28108}#
+ #{docstring 28109}#
+ #{template 28110}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i29053" "i29054" "i29055" "i29056"))
+ #("i28082" "i28083" "i28084" "i28085"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29035")))
+ #(ribcage #(x) #((top)) #("i28064")))
(hygiene guile))
- #{name 29078}#
+ #{name 28107}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i29053" "i29054" "i29055" "i29056"))
+ #("i28082" "i28083" "i28084" "i28085"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29035")))
+ #(ribcage #(x) #((top)) #("i28064")))
(hygiene guile))
'()
- #{docstring 29080}#
+ #{docstring 28109}#
(list (cons '#(syntax-object
_
((top)
@@ -22365,53 +22522,53 @@
docstring
template)
#((top) (top) (top) (top))
- #("i29053"
- "i29054"
- "i29055"
- "i29056"))
+ #("i28082"
+ "i28083"
+ "i28084"
+ "i28085"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29035")))
+ #("i28064")))
(hygiene guile))
- #{pattern 29079}#)
- #{template 29081}#))))
- #{tmp 29070}#)
+ #{pattern 28108}#)
+ #{template 28110}#))))
+ #{tmp 28099}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29061}#))))))))
+ #{x 28090}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 29130}#)
- (let ((#{tmp 29132}#
+ (lambda (#{x 28159}#)
+ (let ((#{tmp 28161}#
($sc-dispatch
- #{x 29130}#
+ #{x 28159}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 29132}#
+ (if (if #{tmp 28161}#
(@apply
- (lambda (#{let* 29136}#
- #{x 29137}#
- #{v 29138}#
- #{e1 29139}#
- #{e2 29140}#)
- (and-map identifier? #{x 29137}#))
- #{tmp 29132}#)
+ (lambda (#{let* 28165}#
+ #{x 28166}#
+ #{v 28167}#
+ #{e1 28168}#
+ #{e2 28169}#)
+ (and-map identifier? #{x 28166}#))
+ #{tmp 28161}#)
#f)
(@apply
- (lambda (#{let* 29141}#
- #{x 29142}#
- #{v 29143}#
- #{e1 29144}#
- #{e2 29145}#)
+ (lambda (#{let* 28170}#
+ #{x 28171}#
+ #{v 28172}#
+ #{e1 28173}#
+ #{e2 28174}#)
(letrec*
- ((#{f 29146}#
- (lambda (#{bindings 29149}#)
- (if (null? #{bindings 29149}#)
+ ((#{f 28175}#
+ (lambda (#{bindings 28178}#)
+ (if (null? #{bindings 28178}#)
(cons '#(syntax-object
let
((top)
@@ -22419,27 +22576,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i29116" "i29117"))
+ #("i28145" "i28146"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i29106"
- "i29107"
- "i29108"
- "i29109"
- "i29110"))
+ #("i28135"
+ "i28136"
+ "i28137"
+ "i28138"
+ "i28139"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29092")))
+ #(ribcage #(x) #((top)) #("i28121")))
(hygiene guile))
- (cons '() (cons #{e1 29144}# #{e2 29145}#)))
- (let ((#{tmp 29150}#
- (list (#{f 29146}# (cdr #{bindings 29149}#))
- (car #{bindings 29149}#))))
- (let ((#{tmp 29151}#
- ($sc-dispatch #{tmp 29150}# '(any any))))
- (if #{tmp 29151}#
+ (cons '() (cons #{e1 28173}# #{e2 28174}#)))
+ (let ((#{tmp 28179}#
+ (list (#{f 28175}# (cdr #{bindings 28178}#))
+ (car #{bindings 28178}#))))
+ (let ((#{tmp 28180}#
+ ($sc-dispatch #{tmp 28179}# '(any any))))
+ (if #{tmp 28180}#
(@apply
- (lambda (#{body 29153}# #{binding 29154}#)
+ (lambda (#{body 28182}# #{binding 28183}#)
(list '#(syntax-object
let
((top)
@@ -22447,86 +22604,86 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i29126" "i29127"))
+ #("i28155" "i28156"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i29116" "i29117"))
+ #("i28145" "i28146"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i29106"
- "i29107"
- "i29108"
- "i29109"
- "i29110"))
+ #("i28135"
+ "i28136"
+ "i28137"
+ "i28138"
+ "i28139"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29092")))
+ #("i28121")))
(hygiene guile))
- (list #{binding 29154}#)
- #{body 29153}#))
- #{tmp 29151}#)
+ (list #{binding 28183}#)
+ #{body 28182}#))
+ #{tmp 28180}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29150}#))))))))
- (#{f 29146}# (map list #{x 29142}# #{v 29143}#))))
- #{tmp 29132}#)
+ #{tmp 28179}#))))))))
+ (#{f 28175}# (map list #{x 28171}# #{v 28172}#))))
+ #{tmp 28161}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29130}#))))))
+ #{x 28159}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 29212}#)
- (let ((#{tmp 29214}#
+ (lambda (#{orig-x 28241}#)
+ (let ((#{tmp 28243}#
($sc-dispatch
- #{orig-x 29212}#
+ #{orig-x 28241}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 29214}#
+ (if #{tmp 28243}#
(@apply
- (lambda (#{var 29218}#
- #{init 29219}#
- #{step 29220}#
- #{e0 29221}#
- #{e1 29222}#
- #{c 29223}#)
- (let ((#{tmp 29224}#
- (map (lambda (#{v 29227}# #{s 29228}#)
- (let ((#{tmp 29230}#
- ($sc-dispatch #{s 29228}# '())))
- (if #{tmp 29230}#
- (@apply (lambda () #{v 29227}#) #{tmp 29230}#)
- (let ((#{tmp 29233}#
- ($sc-dispatch #{s 29228}# '(any))))
- (if #{tmp 29233}#
+ (lambda (#{var 28247}#
+ #{init 28248}#
+ #{step 28249}#
+ #{e0 28250}#
+ #{e1 28251}#
+ #{c 28252}#)
+ (let ((#{tmp 28253}#
+ (map (lambda (#{v 28256}# #{s 28257}#)
+ (let ((#{tmp 28259}#
+ ($sc-dispatch #{s 28257}# '())))
+ (if #{tmp 28259}#
+ (@apply (lambda () #{v 28256}#) #{tmp 28259}#)
+ (let ((#{tmp 28262}#
+ ($sc-dispatch #{s 28257}# '(any))))
+ (if #{tmp 28262}#
(@apply
- (lambda (#{e 29236}#) #{e 29236}#)
- #{tmp 29233}#)
+ (lambda (#{e 28265}#) #{e 28265}#)
+ #{tmp 28262}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 29212}#
- #{s 29228}#))))))
- #{var 29218}#
- #{step 29220}#)))
- (let ((#{tmp 29225}#
- ($sc-dispatch #{tmp 29224}# 'each-any)))
- (if #{tmp 29225}#
+ #{orig-x 28241}#
+ #{s 28257}#))))))
+ #{var 28247}#
+ #{step 28249}#)))
+ (let ((#{tmp 28254}#
+ ($sc-dispatch #{tmp 28253}# 'each-any)))
+ (if #{tmp 28254}#
(@apply
- (lambda (#{step 29242}#)
- (let ((#{tmp 29244}# ($sc-dispatch #{e1 29222}# '())))
- (if #{tmp 29244}#
+ (lambda (#{step 28271}#)
+ (let ((#{tmp 28273}# ($sc-dispatch #{e1 28251}# '())))
+ (if #{tmp 28273}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -22536,7 +22693,7 @@
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22545,17 +22702,17 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
'#(syntax-object
doloop
@@ -22564,7 +22721,7 @@
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22573,19 +22730,19 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
- (map list #{var 29218}# #{init 29219}#)
+ (map list #{var 28247}# #{init 28248}#)
(list '#(syntax-object
if
((top)
@@ -22593,7 +22750,7 @@
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22602,17 +22759,17 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
(list '#(syntax-object
not
@@ -22621,7 +22778,7 @@
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var
init
@@ -22635,19 +22792,19 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
- #{e0 29221}#)
+ #{e0 28250}#)
(cons '#(syntax-object
begin
((top)
@@ -22655,7 +22812,7 @@
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var
init
@@ -22669,20 +22826,20 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
(append
- #{c 29223}#
+ #{c 28252}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -22693,7 +22850,7 @@
#(ribcage
#(step)
#((top))
-
#("i29180"))
+
#("i28209"))
#(ribcage
#(var
init
@@ -22707,12 +22864,12 @@
(top)
(top)
(top))
-
#("i29165"
-
"i29166"
-
"i29167"
-
"i29168"
-
"i29169"
-
"i29170"))
+
#("i28194"
+
"i28195"
+
"i28196"
+
"i28197"
+
"i28198"
+
"i28199"))
#(ribcage
()
()
@@ -22720,30 +22877,30 @@
#(ribcage
#(orig-x)
#((top))
-
#("i29162")))
+
#("i28191")))
(hygiene
guile))
- #{step
29242}#)))))))
- #{tmp 29244}#)
- (let ((#{tmp 29248}#
+ #{step
28271}#)))))))
+ #{tmp 28273}#)
+ (let ((#{tmp 28277}#
($sc-dispatch
- #{e1 29222}#
+ #{e1 28251}#
'(any . each-any))))
- (if #{tmp 29248}#
+ (if #{tmp 28277}#
(@apply
- (lambda (#{e1 29252}# #{e2 29253}#)
+ (lambda (#{e1 28281}# #{e2 28282}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29189" "i29190"))
+ #("i28218" "i28219"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22752,17 +22909,17 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
'#(syntax-object
doloop
@@ -22770,12 +22927,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29189" "i29190"))
+ #("i28218" "i28219"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22784,33 +22941,33 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
(map list
- #{var 29218}#
- #{init 29219}#)
+ #{var 28247}#
+ #{init 28248}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29189" "i29190"))
+ #("i28218" "i28219"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22819,32 +22976,32 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
- #{e0 29221}#
+ #{e0 28250}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29189"
- "i29190"))
+ #("i28218"
+ "i28219"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var
init
@@ -22858,33 +23015,33 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
- (cons #{e1 29252}#
- #{e2 29253}#))
+ (cons #{e1 28281}#
+ #{e2 28282}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29189"
- "i29190"))
+ #("i28218"
+ "i28219"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i29180"))
+ #("i28209"))
#(ribcage
#(var
init
@@ -22898,20 +23055,20 @@
(top)
(top)
(top))
- #("i29165"
- "i29166"
- "i29167"
- "i29168"
- "i29169"
- "i29170"))
+ #("i28194"
+ "i28195"
+ "i28196"
+ "i28197"
+ "i28198"
+ "i28199"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i29162")))
+ #("i28191")))
(hygiene guile))
(append
- #{c 29223}#
+ #{c 28252}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -22920,8 +23077,8 @@
e2)
#((top)
(top))
-
#("i29189"
-
"i29190"))
+
#("i28218"
+
"i28219"))
#(ribcage
()
()
@@ -22929,7 +23086,7 @@
#(ribcage
#(step)
#((top))
-
#("i29180"))
+
#("i28209"))
#(ribcage
#(var
init
@@ -22943,12 +23100,12 @@
(top)
(top)
(top))
-
#("i29165"
-
"i29166"
-
"i29167"
-
"i29168"
-
"i29169"
-
"i29170"))
+
#("i28194"
+
"i28195"
+
"i28196"
+
"i28197"
+
"i28198"
+
"i28199"))
#(ribcage
()
()
@@ -22956,36 +23113,36 @@
#(ribcage
#(orig-x)
#((top))
-
#("i29162")))
+
#("i28191")))
(hygiene
guile))
- #{step
29242}#)))))))
- #{tmp 29248}#)
+ #{step
28271}#)))))))
+ #{tmp 28277}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 29222}#))))))
- #{tmp 29225}#)
+ #{e1 28251}#))))))
+ #{tmp 28254}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29224}#)))))
- #{tmp 29214}#)
+ #{tmp 28253}#)))))
+ #{tmp 28243}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 29212}#))))))
+ #{orig-x 28241}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 29539}#
- (lambda (#{p 29563}# #{lev 29564}#)
- (let ((#{tmp 29566}#
+ ((#{quasi 28568}#
+ (lambda (#{p 28592}# #{lev 28593}#)
+ (let ((#{tmp 28595}#
($sc-dispatch
- #{p 29563}#
+ #{p 28592}#
'(#(free-id
#(syntax-object
unquote
@@ -22994,7 +23151,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23003,28 +23160,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
any))))
- (if #{tmp 29566}#
+ (if #{tmp 28595}#
(@apply
- (lambda (#{p 29570}#)
- (if (= #{lev 29564}# 0)
+ (lambda (#{p 28599}#)
+ (if (= #{lev 28593}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i29289"))
+ #(ribcage #(p) #((top)) #("i28318"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23033,25 +23190,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{p 29570}#)
- (#{quasicons 29541}#
+ #{p 28599}#)
+ (#{quasicons 28570}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i29289"))
+ #(ribcage #(p) #((top)) #("i28318"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23060,23 +23217,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i29289"))
+ #(ribcage #(p) #((top)) #("i28318"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23085,21 +23242,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
- (#{quasi 29539}#
- (list #{p 29570}#)
- (#{1-}# #{lev 29564}#)))))
- #{tmp 29566}#)
- (let ((#{tmp 29573}#
+ (#{quasi 28568}#
+ (list #{p 28599}#)
+ (#{1-}# #{lev 28593}#)))))
+ #{tmp 28595}#)
+ (let ((#{tmp 28602}#
($sc-dispatch
- #{p 29563}#
+ #{p 28592}#
'(#(free-id
#(syntax-object
quasiquote
@@ -23108,7 +23265,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23117,28 +23274,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
any))))
- (if #{tmp 29573}#
+ (if #{tmp 28602}#
(@apply
- (lambda (#{p 29577}#)
- (#{quasicons 29541}#
+ (lambda (#{p 28606}#)
+ (#{quasicons 28570}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i29292"))
+ #(ribcage #(p) #((top)) #("i28321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23147,23 +23304,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i29292"))
+ #(ribcage #(p) #((top)) #("i28321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23172,26 +23329,26 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
- (#{quasi 29539}#
- (list #{p 29577}#)
- (#{1+}# #{lev 29564}#))))
- #{tmp 29573}#)
- (let ((#{tmp 29580}#
- ($sc-dispatch #{p 29563}# '(any . any))))
- (if #{tmp 29580}#
+ (#{quasi 28568}#
+ (list #{p 28606}#)
+ (#{1+}# #{lev 28593}#))))
+ #{tmp 28602}#)
+ (let ((#{tmp 28609}#
+ ($sc-dispatch #{p 28592}# '(any . any))))
+ (if #{tmp 28609}#
(@apply
- (lambda (#{p 29584}# #{q 29585}#)
- (let ((#{tmp 29587}#
+ (lambda (#{p 28613}# #{q 28614}#)
+ (let ((#{tmp 28616}#
($sc-dispatch
- #{p 29584}#
+ #{p 28613}#
'(#(free-id
#(syntax-object
unquote
@@ -23199,12 +23356,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i29295" "i29296"))
+ #("i28324" "i28325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23219,38 +23376,38 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29587}#
+ (if #{tmp 28616}#
(@apply
- (lambda (#{p 29591}#)
- (if (= #{lev 29564}# 0)
- (#{quasilist* 29543}#
- (map (lambda (#{tmp 29303 29627}#)
+ (lambda (#{p 28620}#)
+ (if (= #{lev 28593}# 0)
+ (#{quasilist* 28572}#
+ (map (lambda (#{tmp 28332 28656}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i29301"))
+ #("i28330"))
#(ribcage
#(p q)
#((top) (top))
- #("i29295" "i29296"))
+ #("i28324" "i28325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23265,37 +23422,37 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{tmp 29303 29627}#))
- #{p 29591}#)
- (#{quasi 29539}#
- #{q 29585}#
- #{lev 29564}#))
- (#{quasicons 29541}#
- (#{quasicons 29541}#
+ #{tmp 28332 28656}#))
+ #{p 28620}#)
+ (#{quasi 28568}#
+ #{q 28614}#
+ #{lev 28593}#))
+ (#{quasicons 28570}#
+ (#{quasicons 28570}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i29301"))
+ #("i28330"))
#(ribcage
#(p q)
#((top) (top))
- #("i29295" "i29296"))
+ #("i28324" "i28325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23310,13 +23467,13 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
#(syntax-object
unquote
@@ -23324,16 +23481,16 @@
#(ribcage
#(p)
#((top))
- #("i29301"))
+ #("i28330"))
#(ribcage
#(p q)
#((top) (top))
- #("i29295" "i29296"))
+ #("i28324" "i28325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23348,24 +23505,24 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
- (#{quasi 29539}#
- #{p 29591}#
- (#{1-}# #{lev 29564}#)))
- (#{quasi 29539}#
- #{q 29585}#
- #{lev 29564}#))))
- #{tmp 29587}#)
- (let ((#{tmp 29632}#
+ (#{quasi 28568}#
+ #{p 28620}#
+ (#{1-}# #{lev 28593}#)))
+ (#{quasi 28568}#
+ #{q 28614}#
+ #{lev 28593}#))))
+ #{tmp 28616}#)
+ (let ((#{tmp 28661}#
($sc-dispatch
- #{p 29584}#
+ #{p 28613}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23373,12 +23530,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i29295" "i29296"))
+ #("i28324" "i28325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23393,40 +23550,40 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29632}#
+ (if #{tmp 28661}#
(@apply
- (lambda (#{p 29636}#)
- (if (= #{lev 29564}# 0)
- (#{quasiappend 29542}#
- (map (lambda (#{tmp 29308 29639}#)
+ (lambda (#{p 28665}#)
+ (if (= #{lev 28593}# 0)
+ (#{quasiappend 28571}#
+ (map (lambda (#{tmp 28337 28668}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i29306"))
+ #("i28335"))
#(ribcage
#(p q)
#((top) (top))
- #("i29295"
- "i29296"))
+ #("i28324"
+ "i28325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285"
- "i29286"))
+ #("i28314"
+ "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23441,37 +23598,37 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{tmp 29308 29639}#))
- #{p 29636}#)
- (#{quasi 29539}#
- #{q 29585}#
- #{lev 29564}#))
- (#{quasicons 29541}#
- (#{quasicons 29541}#
+ #{tmp 28337 28668}#))
+ #{p 28665}#)
+ (#{quasi 28568}#
+ #{q 28614}#
+ #{lev 28593}#))
+ (#{quasicons 28570}#
+ (#{quasicons 28570}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i29306"))
+ #("i28335"))
#(ribcage
#(p q)
#((top) (top))
- #("i29295" "i29296"))
+ #("i28324" "i28325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23486,13 +23643,13 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -23500,16 +23657,16 @@
#(ribcage
#(p)
#((top))
- #("i29306"))
+ #("i28335"))
#(ribcage
#(p q)
#((top) (top))
- #("i29295" "i29296"))
+ #("i28324" "i28325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23524,57 +23681,57 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
- (#{quasi 29539}#
- #{p 29636}#
- (#{1-}# #{lev 29564}#)))
- (#{quasi 29539}#
- #{q 29585}#
- #{lev 29564}#))))
- #{tmp 29632}#)
- (#{quasicons 29541}#
- (#{quasi 29539}#
- #{p 29584}#
- #{lev 29564}#)
- (#{quasi 29539}#
- #{q 29585}#
- #{lev 29564}#)))))))
- #{tmp 29580}#)
- (let ((#{tmp 29653}#
- ($sc-dispatch #{p 29563}# '#(vector each-any))))
- (if #{tmp 29653}#
+ (#{quasi 28568}#
+ #{p 28665}#
+ (#{1-}# #{lev 28593}#)))
+ (#{quasi 28568}#
+ #{q 28614}#
+ #{lev 28593}#))))
+ #{tmp 28661}#)
+ (#{quasicons 28570}#
+ (#{quasi 28568}#
+ #{p 28613}#
+ #{lev 28593}#)
+ (#{quasi 28568}#
+ #{q 28614}#
+ #{lev 28593}#)))))))
+ #{tmp 28609}#)
+ (let ((#{tmp 28682}#
+ ($sc-dispatch #{p 28592}# '#(vector each-any))))
+ (if #{tmp 28682}#
(@apply
- (lambda (#{x 29657}#)
- (let ((#{x 29660}#
- (#{vquasi 29540}#
- #{x 29657}#
- #{lev 29564}#)))
- (let ((#{tmp 29662}#
+ (lambda (#{x 28686}#)
+ (let ((#{x 28689}#
+ (#{vquasi 28569}#
+ #{x 28686}#
+ #{lev 28593}#)))
+ (let ((#{tmp 28691}#
($sc-dispatch
- #{x 29660}#
+ #{x 28689}#
'(#(atom "quote") each-any))))
- (if #{tmp 29662}#
+ (if #{tmp 28691}#
(@apply
- (lambda (#{x 29666}#)
+ (lambda (#{x 28695}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i29413"))
+ #("i28442"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29410"))
+ #("i28439"))
#(ribcage
(emit quasivector
quasilist*
@@ -23589,36 +23746,36 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- (list->vector #{x 29666}#)))
- #{tmp 29662}#)
+ (list->vector #{x 28695}#)))
+ #{tmp 28691}#)
(letrec*
- ((#{f 29668}#
- (lambda (#{y 29680}# #{k 29681}#)
- (let ((#{tmp 29683}#
+ ((#{f 28697}#
+ (lambda (#{y 28709}# #{k 28710}#)
+ (let ((#{tmp 28712}#
($sc-dispatch
- #{y 29680}#
+ #{y 28709}#
'(#(atom "quote")
each-any))))
- (if #{tmp 29683}#
+ (if #{tmp 28712}#
(@apply
- (lambda (#{y 29686}#)
- (#{k 29681}#
- (map (lambda (#{tmp
29438 29687}#)
+ (lambda (#{y 28715}#)
+ (#{k 28710}#
+ (map (lambda (#{tmp
28467 28716}#)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("i29436"))
+
#("i28465"))
#(ribcage
()
()
@@ -23630,13 +23787,13 @@
#((top)
(top)
(top))
-
#("i29418"
-
"i29419"
-
"i29420"))
+
#("i28447"
+
"i28448"
+
"i28449"))
#(ribcage
#(_)
#((top))
-
#("i29416"))
+
#("i28445"))
#(ribcage
()
()
@@ -23644,7 +23801,7 @@
#(ribcage
#(x)
#((top))
-
#("i29410"))
+
#("i28439"))
#(ribcage
(emit
quasivector
quasilist*
@@ -23659,51 +23816,51 @@
(top)
(top)
(top))
-
("i29281"
-
"i29279"
-
"i29277"
-
"i29275"
-
"i29273"
-
"i29271"
-
"i29269")))
+
("i28310"
+
"i28308"
+
"i28306"
+
"i28304"
+
"i28302"
+
"i28300"
+
"i28298")))
(hygiene
guile))
- #{tmp 29438
29687}#))
- #{y 29686}#)))
- #{tmp 29683}#)
- (let ((#{tmp 29688}#
+ #{tmp 28467
28716}#))
+ #{y 28715}#)))
+ #{tmp 28712}#)
+ (let ((#{tmp 28717}#
($sc-dispatch
- #{y 29680}#
+ #{y 28709}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 29688}#
+ (if #{tmp 28717}#
(@apply
- (lambda (#{y 29691}#)
- (#{k 29681}#
- #{y 29691}#))
- #{tmp 29688}#)
- (let ((#{tmp 29692}#
+ (lambda (#{y 28720}#)
+ (#{k 28710}#
+ #{y 28720}#))
+ #{tmp 28717}#)
+ (let ((#{tmp 28721}#
($sc-dispatch
- #{y 29680}#
+ #{y 28709}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 29692}#
+ (if #{tmp 28721}#
(@apply
- (lambda (#{y 29695}#
- #{z 29696}#)
- (#{f 29668}#
- #{z 29696}#
- (lambda (#{ls
29697}#)
- (#{k 29681}#
+ (lambda (#{y 28724}#
+ #{z 28725}#)
+ (#{f 28697}#
+ #{z 28725}#
+ (lambda (#{ls
28726}#)
+ (#{k 28710}#
(append
- #{y 29695}#
- #{ls
29697}#)))))
- #{tmp 29692}#)
+ #{y 28724}#
+ #{ls
28726}#)))))
+ #{tmp 28721}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -23712,14 +23869,14 @@
()
())
#(ribcage
- #(#{
g29453}#)
- #((m29454
+ #(#{
g28482}#)
+ #((m28483
top))
-
#("i29457"))
+
#("i28486"))
#(ribcage
#(else)
#((top))
-
#("i29451"))
+
#("i28480"))
#(ribcage
()
()
@@ -23729,13 +23886,13 @@
#((top)
(top)
(top))
- #("i29418"
- "i29419"
-
"i29420"))
+ #("i28447"
+ "i28448"
+
"i28449"))
#(ribcage
#(_)
#((top))
-
#("i29416"))
+
#("i28445"))
#(ribcage
()
()
@@ -23743,7 +23900,7 @@
#(ribcage
#(x)
#((top))
-
#("i29410"))
+
#("i28439"))
#(ribcage
(emit
quasivector
quasilist*
@@ -23758,26 +23915,26 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
-
"i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+
"i28298")))
(hygiene
guile))
- #{x
29660}#))))))))))
- (#{f 29668}#
- #{x 29660}#
- (lambda (#{ls 29670}#)
- (let ((#{tmp 29672}#
+ #{x
28689}#))))))))))
+ (#{f 28697}#
+ #{x 28689}#
+ (lambda (#{ls 28699}#)
+ (let ((#{tmp 28701}#
($sc-dispatch
- #{ls 29670}#
+ #{ls 28699}#
'each-any)))
- (if #{tmp 29672}#
+ (if #{tmp 28701}#
(@apply
- (lambda (#{ g29426 29675}#)
+ (lambda (#{ g28455 28704}#)
(cons '#(syntax-object
"vector"
((top)
@@ -23786,9 +23943,9 @@
()
())
#(ribcage
- #(#{ g29426}#)
- #((m29427 top))
- #("i29431"))
+ #(#{ g28455}#)
+ #((m28456 top))
+ #("i28460"))
#(ribcage
()
()
@@ -23804,11 +23961,11 @@
#(ribcage
#(ls)
#((top))
- #("i29425"))
+ #("i28454"))
#(ribcage
#(_)
#((top))
- #("i29416"))
+ #("i28445"))
#(ribcage
()
()
@@ -23816,7 +23973,7 @@
#(ribcage
#(x)
#((top))
- #("i29410"))
+ #("i28439"))
#(ribcage
(emit
quasivector
quasilist*
@@ -23831,30 +23988,30 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{ g29426 29675}#))
- #{tmp 29672}#)
+ #{ g28455 28704}#))
+ #{tmp 28701}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{ls 29670}#))))))))))
- #{tmp 29653}#)
+ #{ls 28699}#))))))))))
+ #{tmp 28682}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i29316"))
+ #(ribcage #(p) #((top)) #("i28345"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29285" "i29286"))
+ #("i28314" "i28315"))
#(ribcage
(emit quasivector
quasilist*
@@ -23869,25 +24026,25 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{p 29563}#)))))))))))
- (#{vquasi 29540}#
- (lambda (#{p 29725}# #{lev 29726}#)
- (let ((#{tmp 29728}#
- ($sc-dispatch #{p 29725}# '(any . any))))
- (if #{tmp 29728}#
+ #{p 28592}#)))))))))))
+ (#{vquasi 28569}#
+ (lambda (#{p 28754}# #{lev 28755}#)
+ (let ((#{tmp 28757}#
+ ($sc-dispatch #{p 28754}# '(any . any))))
+ (if #{tmp 28757}#
(@apply
- (lambda (#{p 29732}# #{q 29733}#)
- (let ((#{tmp 29735}#
+ (lambda (#{p 28761}# #{q 28762}#)
+ (let ((#{tmp 28764}#
($sc-dispatch
- #{p 29732}#
+ #{p 28761}#
'(#(free-id
#(syntax-object
unquote
@@ -23895,12 +24052,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i29324" "i29325"))
+ #("i28353" "i28354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -23915,38 +24072,38 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29735}#
+ (if #{tmp 28764}#
(@apply
- (lambda (#{p 29739}#)
- (if (= #{lev 29726}# 0)
- (#{quasilist* 29543}#
- (map (lambda (#{tmp 29332 29775}#)
+ (lambda (#{p 28768}#)
+ (if (= #{lev 28755}# 0)
+ (#{quasilist* 28572}#
+ (map (lambda (#{tmp 28361 28804}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i29330"))
+ #("i28359"))
#(ribcage
#(p q)
#((top) (top))
- #("i29324" "i29325"))
+ #("i28353" "i28354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -23961,32 +24118,32 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{tmp 29332 29775}#))
- #{p 29739}#)
- (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))
- (#{quasicons 29541}#
- (#{quasicons 29541}#
+ #{tmp 28361 28804}#))
+ #{p 28768}#)
+ (#{vquasi 28569}# #{q 28762}# #{lev 28755}#))
+ (#{quasicons 28570}#
+ (#{quasicons 28570}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i29330"))
+ #(ribcage #(p) #((top)) #("i28359"))
#(ribcage
#(p q)
#((top) (top))
- #("i29324" "i29325"))
+ #("i28353" "i28354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -24001,27 +24158,27 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i29330"))
+ #(ribcage #(p) #((top)) #("i28359"))
#(ribcage
#(p q)
#((top) (top))
- #("i29324" "i29325"))
+ #("i28353" "i28354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -24036,22 +24193,22 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
- (#{quasi 29539}#
- #{p 29739}#
- (#{1-}# #{lev 29726}#)))
- (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))))
- #{tmp 29735}#)
- (let ((#{tmp 29782}#
+ (#{quasi 28568}#
+ #{p 28768}#
+ (#{1-}# #{lev 28755}#)))
+ (#{vquasi 28569}# #{q 28762}# #{lev 28755}#))))
+ #{tmp 28764}#)
+ (let ((#{tmp 28811}#
($sc-dispatch
- #{p 29732}#
+ #{p 28761}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24059,12 +24216,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i29324" "i29325"))
+ #("i28353" "i28354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -24079,38 +24236,38 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29782}#
+ (if #{tmp 28811}#
(@apply
- (lambda (#{p 29786}#)
- (if (= #{lev 29726}# 0)
- (#{quasiappend 29542}#
- (map (lambda (#{tmp 29337 29789}#)
+ (lambda (#{p 28815}#)
+ (if (= #{lev 28755}# 0)
+ (#{quasiappend 28571}#
+ (map (lambda (#{tmp 28366 28818}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i29335"))
+ #("i28364"))
#(ribcage
#(p q)
#((top) (top))
- #("i29324" "i29325"))
+ #("i28353" "i28354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -24125,34 +24282,34 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{tmp 29337 29789}#))
- #{p 29786}#)
- (#{vquasi 29540}#
- #{q 29733}#
- #{lev 29726}#))
- (#{quasicons 29541}#
- (#{quasicons 29541}#
+ #{tmp 28366 28818}#))
+ #{p 28815}#)
+ (#{vquasi 28569}#
+ #{q 28762}#
+ #{lev 28755}#))
+ (#{quasicons 28570}#
+ (#{quasicons 28570}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i29335"))
+ #(ribcage #(p) #((top)) #("i28364"))
#(ribcage
#(p q)
#((top) (top))
- #("i29324" "i29325"))
+ #("i28353" "i28354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -24167,27 +24324,27 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i29335"))
+ #(ribcage #(p) #((top)) #("i28364"))
#(ribcage
#(p q)
#((top) (top))
- #("i29324" "i29325"))
+ #("i28353" "i28354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -24202,27 +24359,27 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile)))
- (#{quasi 29539}#
- #{p 29786}#
- (#{1-}# #{lev 29726}#)))
- (#{vquasi 29540}#
- #{q 29733}#
- #{lev 29726}#))))
- #{tmp 29782}#)
- (#{quasicons 29541}#
- (#{quasi 29539}# #{p 29732}# #{lev 29726}#)
- (#{vquasi 29540}# #{q 29733}# #{lev 29726}#)))))))
- #{tmp 29728}#)
- (let ((#{tmp 29807}# ($sc-dispatch #{p 29725}# '())))
- (if #{tmp 29807}#
+ (#{quasi 28568}#
+ #{p 28815}#
+ (#{1-}# #{lev 28755}#)))
+ (#{vquasi 28569}#
+ #{q 28762}#
+ #{lev 28755}#))))
+ #{tmp 28811}#)
+ (#{quasicons 28570}#
+ (#{quasi 28568}# #{p 28761}# #{lev 28755}#)
+ (#{vquasi 28569}# #{q 28762}# #{lev 28755}#)))))))
+ #{tmp 28757}#)
+ (let ((#{tmp 28836}# ($sc-dispatch #{p 28754}# '())))
+ (if #{tmp 28836}#
(@apply
(lambda ()
'(#(syntax-object
@@ -24232,7 +24389,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i29320" "i29321"))
+ #("i28349" "i28350"))
#(ribcage
(emit quasivector
quasilist*
@@ -24241,64 +24398,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
()))
- #{tmp 29807}#)
+ #{tmp 28836}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 29725}#)))))))
- (#{quasicons 29541}#
- (lambda (#{x 29820}# #{y 29821}#)
- (let ((#{tmp 29822}# (list #{x 29820}# #{y 29821}#)))
- (let ((#{tmp 29823}#
- ($sc-dispatch #{tmp 29822}# '(any any))))
- (if #{tmp 29823}#
+ #{p 28754}#)))))))
+ (#{quasicons 28570}#
+ (lambda (#{x 28849}# #{y 28850}#)
+ (let ((#{tmp 28851}# (list #{x 28849}# #{y 28850}#)))
+ (let ((#{tmp 28852}#
+ ($sc-dispatch #{tmp 28851}# '(any any))))
+ (if #{tmp 28852}#
(@apply
- (lambda (#{x 29825}# #{y 29826}#)
- (let ((#{tmp 29828}#
+ (lambda (#{x 28854}# #{y 28855}#)
+ (let ((#{tmp 28857}#
($sc-dispatch
- #{y 29826}#
+ #{y 28855}#
'(#(atom "quote") any))))
- (if #{tmp 29828}#
+ (if #{tmp 28857}#
(@apply
- (lambda (#{dy 29832}#)
- (let ((#{tmp 29834}#
+ (lambda (#{dy 28861}#)
+ (let ((#{tmp 28863}#
($sc-dispatch
- #{x 29825}#
+ #{x 28854}#
'(#(atom "quote") any))))
- (if #{tmp 29834}#
+ (if #{tmp 28863}#
(@apply
- (lambda (#{dx 29838}#)
+ (lambda (#{dx 28867}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i29359"))
+ #("i28388"))
#(ribcage
#(dy)
#((top))
- #("i29355"))
+ #("i28384"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29349" "i29350"))
+ #("i28378" "i28379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29344" "i29345"))
+ #("i28373" "i28374"))
#(ribcage
(emit quasivector
quasilist*
@@ -24313,39 +24470,39 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- (cons #{dx 29838}# #{dy 29832}#)))
- #{tmp 29834}#)
- (if (null? #{dy 29832}#)
+ (cons #{dx 28867}# #{dy 28861}#)))
+ #{tmp 28863}#)
+ (if (null? #{dy 28861}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i29361"))
+ #("i28390"))
#(ribcage
#(dy)
#((top))
- #("i29355"))
+ #("i28384"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29349" "i29350"))
+ #("i28378" "i28379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29344" "i29345"))
+ #("i28373" "i28374"))
#(ribcage
(emit quasivector
quasilist*
@@ -24360,37 +24517,37 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{x 29825}#)
+ #{x 28854}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i29361"))
+ #("i28390"))
#(ribcage
#(dy)
#((top))
- #("i29355"))
+ #("i28384"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29349" "i29350"))
+ #("i28378" "i28379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29344" "i29345"))
+ #("i28373" "i28374"))
#(ribcage
(emit quasivector
quasilist*
@@ -24405,42 +24562,42 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{x 29825}#
- #{y 29826}#)))))
- #{tmp 29828}#)
- (let ((#{tmp 29843}#
+ #{x 28854}#
+ #{y 28855}#)))))
+ #{tmp 28857}#)
+ (let ((#{tmp 28872}#
($sc-dispatch
- #{y 29826}#
+ #{y 28855}#
'(#(atom "list") . any))))
- (if #{tmp 29843}#
+ (if #{tmp 28872}#
(@apply
- (lambda (#{stuff 29847}#)
+ (lambda (#{stuff 28876}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i29364"))
+ #("i28393"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29349" "i29350"))
+ #("i28378" "i28379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29344" "i29345"))
+ #("i28373" "i28374"))
#(ribcage
(emit quasivector
quasilist*
@@ -24455,41 +24612,41 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- (cons #{x 29825}# #{stuff 29847}#)))
- #{tmp 29843}#)
- (let ((#{tmp 29848}#
+ (cons #{x 28854}# #{stuff 28876}#)))
+ #{tmp 28872}#)
+ (let ((#{tmp 28877}#
($sc-dispatch
- #{y 29826}#
+ #{y 28855}#
'(#(atom "list*") . any))))
- (if #{tmp 29848}#
+ (if #{tmp 28877}#
(@apply
- (lambda (#{stuff 29852}#)
+ (lambda (#{stuff 28881}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i29367"))
+ #("i28396"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29349" "i29350"))
+ #("i28378" "i28379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29344" "i29345"))
+ #("i28373" "i28374"))
#(ribcage
(emit quasivector
quasilist*
@@ -24504,31 +24661,31 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- (cons #{x 29825}# #{stuff 29852}#)))
- #{tmp 29848}#)
+ (cons #{x 28854}# #{stuff 28881}#)))
+ #{tmp 28877}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i29369"))
+ #(ribcage #(_) #((top)) #("i28398"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29349" "i29350"))
+ #("i28378" "i28379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29344" "i29345"))
+ #("i28373" "i28374"))
#(ribcage
(emit quasivector
quasilist*
@@ -24543,29 +24700,29 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{x 29825}#
- #{y 29826}#))))))))
- #{tmp 29823}#)
+ #{x 28854}#
+ #{y 28855}#))))))))
+ #{tmp 28852}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29822}#))))))
- (#{quasiappend 29542}#
- (lambda (#{x 29863}# #{y 29864}#)
- (let ((#{tmp 29866}#
- ($sc-dispatch #{y 29864}# '(#(atom "quote") ()))))
- (if #{tmp 29866}#
+ #{tmp 28851}#))))))
+ (#{quasiappend 28571}#
+ (lambda (#{x 28892}# #{y 28893}#)
+ (let ((#{tmp 28895}#
+ ($sc-dispatch #{y 28893}# '(#(atom "quote") ()))))
+ (if #{tmp 28895}#
(@apply
(lambda ()
- (if (null? #{x 29863}#)
+ (if (null? #{x 28892}#)
'(#(syntax-object
"quote"
((top)
@@ -24573,7 +24730,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i29373" "i29374"))
+ #("i28402" "i28403"))
#(ribcage
(emit quasivector
quasilist*
@@ -24582,32 +24739,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
())
- (if (null? (cdr #{x 29863}#))
- (car #{x 29863}#)
- (let ((#{tmp 29871}#
- ($sc-dispatch #{x 29863}# 'each-any)))
- (if #{tmp 29871}#
+ (if (null? (cdr #{x 28892}#))
+ (car #{x 28892}#)
+ (let ((#{tmp 28900}#
+ ($sc-dispatch #{x 28892}# 'each-any)))
+ (if #{tmp 28900}#
(@apply
- (lambda (#{p 29875}#)
+ (lambda (#{p 28904}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i29385"))
+ #(ribcage #(p) #((top)) #("i28414"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29373" "i29374"))
+ #("i28402" "i28403"))
#(ribcage
(emit quasivector
quasilist*
@@ -24622,29 +24779,29 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{p 29875}#))
- #{tmp 29871}#)
+ #{p 28904}#))
+ #{tmp 28900}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29863}#))))))
- #{tmp 29866}#)
- (if (null? #{x 29863}#)
- #{y 29864}#
- (let ((#{tmp 29883}# (list #{x 29863}# #{y 29864}#)))
- (let ((#{tmp 29884}#
- ($sc-dispatch #{tmp 29883}# '(each-any any))))
- (if #{tmp 29884}#
+ #{x 28892}#))))))
+ #{tmp 28895}#)
+ (if (null? #{x 28892}#)
+ #{y 28893}#
+ (let ((#{tmp 28912}# (list #{x 28892}# #{y 28893}#)))
+ (let ((#{tmp 28913}#
+ ($sc-dispatch #{tmp 28912}# '(each-any any))))
+ (if #{tmp 28913}#
(@apply
- (lambda (#{p 29886}# #{y 29887}#)
+ (lambda (#{p 28915}# #{y 28916}#)
(cons '#(syntax-object
"append"
((top)
@@ -24652,13 +24809,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i29396" "i29397"))
- #(ribcage #(_) #((top)) #("i29388"))
+ #("i28425" "i28426"))
+ #(ribcage #(_) #((top)) #("i28417"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29373" "i29374"))
+ #("i28402" "i28403"))
#(ribcage
(emit quasivector
quasilist*
@@ -24673,44 +24830,44 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- (append #{p 29886}# (list #{y 29887}#))))
- #{tmp 29884}#)
+ (append #{p 28915}# (list #{y 28916}#))))
+ #{tmp 28913}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29883}#)))))))))
- (#{quasilist* 29543}#
- (lambda (#{x 29891}# #{y 29892}#)
+ #{tmp 28912}#)))))))))
+ (#{quasilist* 28572}#
+ (lambda (#{x 28920}# #{y 28921}#)
(letrec*
- ((#{f 29893}#
- (lambda (#{x 29982}#)
- (if (null? #{x 29982}#)
- #{y 29892}#
- (#{quasicons 29541}#
- (car #{x 29982}#)
- (#{f 29893}# (cdr #{x 29982}#)))))))
- (#{f 29893}# #{x 29891}#))))
- (#{emit 29545}#
- (lambda (#{x 29985}#)
- (let ((#{tmp 29987}#
- ($sc-dispatch #{x 29985}# '(#(atom "quote") any))))
- (if #{tmp 29987}#
+ ((#{f 28922}#
+ (lambda (#{x 29011}#)
+ (if (null? #{x 29011}#)
+ #{y 28921}#
+ (#{quasicons 28570}#
+ (car #{x 29011}#)
+ (#{f 28922}# (cdr #{x 29011}#)))))))
+ (#{f 28922}# #{x 28920}#))))
+ (#{emit 28574}#
+ (lambda (#{x 29014}#)
+ (let ((#{tmp 29016}#
+ ($sc-dispatch #{x 29014}# '(#(atom "quote") any))))
+ (if #{tmp 29016}#
(@apply
- (lambda (#{x 29991}#)
+ (lambda (#{x 29020}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i29463"))
+ #(ribcage #(x) #((top)) #("i28492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29460"))
+ #(ribcage #(x) #((top)) #("i28489"))
#(ribcage
(emit quasivector
quasilist*
@@ -24719,40 +24876,40 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{x 29991}#))
- #{tmp 29987}#)
- (let ((#{tmp 29992}#
+ #{x 29020}#))
+ #{tmp 29016}#)
+ (let ((#{tmp 29021}#
($sc-dispatch
- #{x 29985}#
+ #{x 29014}#
'(#(atom "list") . each-any))))
- (if #{tmp 29992}#
+ (if #{tmp 29021}#
(@apply
- (lambda (#{x 29996}#)
- (let ((#{tmp 29997}# (map #{emit 29545}# #{x 29996}#)))
- (let ((#{tmp 29998}#
- ($sc-dispatch #{tmp 29997}# 'each-any)))
- (if #{tmp 29998}#
+ (lambda (#{x 29025}#)
+ (let ((#{tmp 29026}# (map #{emit 28574}# #{x 29025}#)))
+ (let ((#{tmp 29027}#
+ ($sc-dispatch #{tmp 29026}# 'each-any)))
+ (if #{tmp 29027}#
(@apply
- (lambda (#{ g29468 30000}#)
+ (lambda (#{ g28497 29029}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29468}#)
- #((m29469 top))
- #("i29473"))
- #(ribcage #(x) #((top)) #("i29466"))
+ #(#{ g28497}#)
+ #((m28498 top))
+ #("i28502"))
+ #(ribcage #(x) #((top)) #("i28495"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29460"))
+ #(ribcage #(x) #((top)) #("i28489"))
#(ribcage
(emit quasivector
quasilist*
@@ -24767,70 +24924,70 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{ g29468 30000}#))
- #{tmp 29998}#)
+ #{ g28497 29029}#))
+ #{tmp 29027}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29997}#)))))
- #{tmp 29992}#)
- (let ((#{tmp 30001}#
+ #{tmp 29026}#)))))
+ #{tmp 29021}#)
+ (let ((#{tmp 29030}#
($sc-dispatch
- #{x 29985}#
+ #{x 29014}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 30001}#
+ (if #{tmp 29030}#
(@apply
- (lambda (#{x 30005}# #{y 30006}#)
+ (lambda (#{x 29034}# #{y 29035}#)
(letrec*
- ((#{f 30007}#
- (lambda (#{x* 30010}#)
- (if (null? #{x* 30010}#)
- (#{emit 29545}# #{y 30006}#)
- (let ((#{tmp 30011}#
- (list (#{emit 29545}#
- (car #{x* 30010}#))
- (#{f 30007}#
- (cdr #{x* 30010}#)))))
- (let ((#{tmp 30012}#
+ ((#{f 29036}#
+ (lambda (#{x* 29039}#)
+ (if (null? #{x* 29039}#)
+ (#{emit 28574}# #{y 29035}#)
+ (let ((#{tmp 29040}#
+ (list (#{emit 28574}#
+ (car #{x* 29039}#))
+ (#{f 29036}#
+ (cdr #{x* 29039}#)))))
+ (let ((#{tmp 29041}#
($sc-dispatch
- #{tmp 30011}#
+ #{tmp 29040}#
'(any any))))
- (if #{tmp 30012}#
+ (if #{tmp 29041}#
(@apply
- (lambda (#{ g29488 30014}#
- #{ g29487 30015}#)
+ (lambda (#{ g28517 29043}#
+ #{ g28516 29044}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29488}#
- #{ g29487}#)
- #((m29489 top)
- (m29489 top))
- #("i29493" "i29494"))
+ #(#{ g28517}#
+ #{ g28516}#)
+ #((m28518 top)
+ (m28518 top))
+ #("i28522" "i28523"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i29482" "i29483"))
+ #("i28511" "i28512"))
#(ribcage
#(x y)
#((top) (top))
- #("i29478" "i29479"))
+ #("i28507" "i28508"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29460"))
+ #("i28489"))
#(ribcage
(emit quasivector
quasilist*
@@ -24845,56 +25002,56 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{ g29488 30014}#
- #{ g29487 30015}#))
- #{tmp 30012}#)
+ #{ g28517 29043}#
+ #{ g28516 29044}#))
+ #{tmp 29041}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 30011}#))))))))
- (#{f 30007}# #{x 30005}#)))
- #{tmp 30001}#)
- (let ((#{tmp 30016}#
+ #{tmp 29040}#))))))))
+ (#{f 29036}# #{x 29034}#)))
+ #{tmp 29030}#)
+ (let ((#{tmp 29045}#
($sc-dispatch
- #{x 29985}#
+ #{x 29014}#
'(#(atom "append") . each-any))))
- (if #{tmp 30016}#
+ (if #{tmp 29045}#
(@apply
- (lambda (#{x 30020}#)
- (let ((#{tmp 30021}#
- (map #{emit 29545}# #{x 30020}#)))
- (let ((#{tmp 30022}#
+ (lambda (#{x 29049}#)
+ (let ((#{tmp 29050}#
+ (map #{emit 28574}# #{x 29049}#)))
+ (let ((#{tmp 29051}#
($sc-dispatch
- #{tmp 30021}#
+ #{tmp 29050}#
'each-any)))
- (if #{tmp 30022}#
+ (if #{tmp 29051}#
(@apply
- (lambda (#{ g29500 30024}#)
+ (lambda (#{ g28529 29053}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29500}#)
- #((m29501 top))
- #("i29505"))
+ #(#{ g28529}#)
+ #((m28530 top))
+ #("i28534"))
#(ribcage
#(x)
#((top))
- #("i29498"))
+ #("i28527"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29460"))
+ #("i28489"))
#(ribcage
(emit quasivector
quasilist*
@@ -24909,54 +25066,54 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{ g29500 30024}#))
- #{tmp 30022}#)
+ #{ g28529 29053}#))
+ #{tmp 29051}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 30021}#)))))
- #{tmp 30016}#)
- (let ((#{tmp 30025}#
+ #{tmp 29050}#)))))
+ #{tmp 29045}#)
+ (let ((#{tmp 29054}#
($sc-dispatch
- #{x 29985}#
+ #{x 29014}#
'(#(atom "vector") . each-any))))
- (if #{tmp 30025}#
+ (if #{tmp 29054}#
(@apply
- (lambda (#{x 30029}#)
- (let ((#{tmp 30030}#
- (map #{emit 29545}# #{x 30029}#)))
- (let ((#{tmp 30031}#
+ (lambda (#{x 29058}#)
+ (let ((#{tmp 29059}#
+ (map #{emit 28574}# #{x 29058}#)))
+ (let ((#{tmp 29060}#
($sc-dispatch
- #{tmp 30030}#
+ #{tmp 29059}#
'each-any)))
- (if #{tmp 30031}#
+ (if #{tmp 29060}#
(@apply
- (lambda (#{ g29512 30033}#)
+ (lambda (#{ g28541 29062}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29512}#)
- #((m29513 top))
- #("i29517"))
+ #(#{ g28541}#)
+ #((m28542 top))
+ #("i28546"))
#(ribcage
#(x)
#((top))
- #("i29510"))
+ #("i28539"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29460"))
+ #("i28489"))
#(ribcage
(emit quasivector
quasilist*
@@ -24971,47 +25128,47 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{ g29512 30033}#))
- #{tmp 30031}#)
+ #{ g28541 29062}#))
+ #{tmp 29060}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 30030}#)))))
- #{tmp 30025}#)
- (let ((#{tmp 30034}#
+ #{tmp 29059}#)))))
+ #{tmp 29054}#)
+ (let ((#{tmp 29063}#
($sc-dispatch
- #{x 29985}#
+ #{x 29014}#
'(#(atom "list->vector") any))))
- (if #{tmp 30034}#
+ (if #{tmp 29063}#
(@apply
- (lambda (#{x 30038}#)
- (let ((#{tmp 30039}#
- (#{emit 29545}# #{x 30038}#)))
+ (lambda (#{x 29067}#)
+ (let ((#{tmp 29068}#
+ (#{emit 28574}# #{x 29067}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29524}#)
- #((m29525 top))
- #("i29528"))
+ #(#{ g28553}#)
+ #((m28554 top))
+ #("i28557"))
#(ribcage
#(x)
#((top))
- #("i29522"))
+ #("i28551"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29460"))
+ #("i28489"))
#(ribcage
(emit quasivector
quasilist*
@@ -25026,188 +25183,188 @@
(top)
(top)
(top))
- ("i29281"
- "i29279"
- "i29277"
- "i29275"
- "i29273"
- "i29271"
- "i29269")))
+ ("i28310"
+ "i28308"
+ "i28306"
+ "i28304"
+ "i28302"
+ "i28300"
+ "i28298")))
(hygiene guile))
- #{tmp 30039}#)))
- #{tmp 30034}#)
- (let ((#{tmp 30042}#
+ #{tmp 29068}#)))
+ #{tmp 29063}#)
+ (let ((#{tmp 29071}#
($sc-dispatch
- #{x 29985}#
+ #{x 29014}#
'(#(atom "value") any))))
- (if #{tmp 30042}#
+ (if #{tmp 29071}#
(@apply
- (lambda (#{x 30046}#) #{x 30046}#)
- #{tmp 30042}#)
+ (lambda (#{x 29075}#) #{x 29075}#)
+ #{tmp 29071}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{x 29985}#))))))))))))))))))
- (lambda (#{x 29546}#)
- (let ((#{tmp 29548}#
- ($sc-dispatch #{x 29546}# '(_ any))))
- (if #{tmp 29548}#
+ #{x 29014}#))))))))))))))))))
+ (lambda (#{x 28575}#)
+ (let ((#{tmp 28577}#
+ ($sc-dispatch #{x 28575}# '(_ any))))
+ (if #{tmp 28577}#
(@apply
- (lambda (#{e 29552}#)
- (#{emit 29545}# (#{quasi 29539}# #{e 29552}# 0)))
- #{tmp 29548}#)
+ (lambda (#{e 28581}#)
+ (#{emit 28574}# (#{quasi 28568}# #{e 28581}# 0)))
+ #{tmp 28577}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29546}#)))))))
+ #{x 28575}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 30101}#)
+ (lambda (#{x 29130}#)
(letrec*
- ((#{read-file 30102}#
- (lambda (#{fn 30213}# #{k 30214}#)
- (let ((#{p 30215}# (open-input-file #{fn 30213}#)))
+ ((#{read-file 29131}#
+ (lambda (#{fn 29240}# #{k 29241}#)
+ (let ((#{p 29242}# (open-input-file #{fn 29240}#)))
(letrec*
- ((#{f 30216}#
- (lambda (#{x 30270}# #{result 30271}#)
- (if (eof-object? #{x 30270}#)
+ ((#{f 29243}#
+ (lambda (#{x 29297}# #{result 29298}#)
+ (if (eof-object? #{x 29297}#)
(begin
- (close-input-port #{p 30215}#)
- (reverse #{result 30271}#))
- (#{f 30216}#
- (read #{p 30215}#)
- (cons (datum->syntax #{k 30214}# #{x 30270}#)
- #{result 30271}#))))))
- (#{f 30216}# (read #{p 30215}#) '()))))))
- (let ((#{tmp 30104}#
- ($sc-dispatch #{x 30101}# '(any any))))
- (if #{tmp 30104}#
+ (close-input-port #{p 29242}#)
+ (reverse #{result 29298}#))
+ (#{f 29243}#
+ (read #{p 29242}#)
+ (cons (datum->syntax #{k 29241}# #{x 29297}#)
+ #{result 29298}#))))))
+ (#{f 29243}# (read #{p 29242}#) '()))))))
+ (let ((#{tmp 29133}#
+ ($sc-dispatch #{x 29130}# '(any any))))
+ (if #{tmp 29133}#
(@apply
- (lambda (#{k 30108}# #{filename 30109}#)
- (let ((#{fn 30110}# (syntax->datum #{filename 30109}#)))
- (let ((#{tmp 30111}#
- (#{read-file 30102}#
- #{fn 30110}#
- #{filename 30109}#)))
- (let ((#{tmp 30112}#
- ($sc-dispatch #{tmp 30111}# 'each-any)))
- (if #{tmp 30112}#
+ (lambda (#{k 29137}# #{filename 29138}#)
+ (let ((#{fn 29139}# (syntax->datum #{filename 29138}#)))
+ (let ((#{tmp 29140}#
+ (#{read-file 29131}#
+ #{fn 29139}#
+ #{filename 29138}#)))
+ (let ((#{tmp 29141}#
+ ($sc-dispatch #{tmp 29140}# 'each-any)))
+ (if #{tmp 29141}#
(@apply
- (lambda (#{exp 30130}#)
+ (lambda (#{exp 29159}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i30098"))
+ #(ribcage #(exp) #((top)) #("i29127"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i30093"))
+ #(ribcage #(fn) #((top)) #("i29122"))
#(ribcage
#(k filename)
#((top) (top))
- #("i30089" "i30090"))
- #(ribcage (read-file) ((top)) ("i30073"))
- #(ribcage #(x) #((top)) #("i30072")))
+ #("i29118" "i29119"))
+ #(ribcage (read-file) ((top)) ("i29102"))
+ #(ribcage #(x) #((top)) #("i29101")))
(hygiene guile))
- #{exp 30130}#))
- #{tmp 30112}#)
+ #{exp 29159}#))
+ #{tmp 29141}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 30111}#))))))
- #{tmp 30104}#)
+ #{tmp 29140}#))))))
+ #{tmp 29133}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30101}#)))))))
+ #{x 29130}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 30290}#)
- (let ((#{tmp 30292}#
- ($sc-dispatch #{x 30290}# '(any any))))
- (if #{tmp 30292}#
+ (lambda (#{x 29317}#)
+ (let ((#{tmp 29319}#
+ ($sc-dispatch #{x 29317}# '(any any))))
+ (if #{tmp 29319}#
(@apply
- (lambda (#{k 30296}# #{filename 30297}#)
- (let ((#{fn 30298}# (syntax->datum #{filename 30297}#)))
- (let ((#{tmp 30299}#
+ (lambda (#{k 29323}# #{filename 29324}#)
+ (let ((#{fn 29325}# (syntax->datum #{filename 29324}#)))
+ (let ((#{tmp 29326}#
(datum->syntax
- #{filename 30297}#
- (let ((#{t 30302}# (%search-load-path #{fn 30298}#)))
- (if #{t 30302}#
- #{t 30302}#
+ #{filename 29324}#
+ (let ((#{t 29329}# (%search-load-path #{fn 29325}#)))
+ (if #{t 29329}#
+ #{t 29329}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 30290}#
- #{filename 30297}#))))))
+ #{x 29317}#
+ #{filename 29324}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i30284"))
+ #(ribcage #(fn) #((top)) #("i29311"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i30280"))
+ #(ribcage #(fn) #((top)) #("i29307"))
#(ribcage
#(k filename)
#((top) (top))
- #("i30276" "i30277"))
+ #("i29303" "i29304"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30273")))
+ #(ribcage #(x) #((top)) #("i29300")))
(hygiene guile))
- #{tmp 30299}#))))
- #{tmp 30292}#)
+ #{tmp 29326}#))))
+ #{tmp 29319}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30290}#))))))
+ #{x 29317}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 30311}#)
+ (lambda (#{x 29338}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 30311}#))))
+ #{x 29338}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 30314}#)
+ (lambda (#{x 29341}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 30314}#))))
+ #{x 29341}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 30370}#)
- (let ((#{tmp 30372}#
+ (lambda (#{x 29397}#)
+ (let ((#{tmp 29399}#
($sc-dispatch
- #{x 30370}#
+ #{x 29397}#
'(_ any any . each-any))))
- (if #{tmp 30372}#
+ (if #{tmp 29399}#
(@apply
- (lambda (#{e 30376}# #{m1 30377}# #{m2 30378}#)
- (let ((#{tmp 30379}#
+ (lambda (#{e 29403}# #{m1 29404}# #{m2 29405}#)
+ (let ((#{tmp 29406}#
(letrec*
- ((#{f 30425}#
- (lambda (#{clause 30428}# #{clauses 30429}#)
- (if (null? #{clauses 30429}#)
- (let ((#{tmp 30431}#
+ ((#{f 29448}#
+ (lambda (#{clause 29451}# #{clauses 29452}#)
+ (if (null? #{clauses 29452}#)
+ (let ((#{tmp 29454}#
($sc-dispatch
- #{clause 30428}#
+ #{clause 29451}#
'(#(free-id
#(syntax-object
else
@@ -25216,91 +25373,91 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 30431}#
+ (if #{tmp 29454}#
(@apply
- (lambda (#{e1 30435}# #{e2 30436}#)
+ (lambda (#{e1 29458}# #{e2 29459}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i30338" "i30339"))
+ #("i29365" "i29366"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
- (cons #{e1 30435}# #{e2 30436}#)))
- #{tmp 30431}#)
- (let ((#{tmp 30437}#
+ (cons #{e1 29458}# #{e2 29459}#)))
+ #{tmp 29454}#)
+ (let ((#{tmp 29460}#
($sc-dispatch
- #{clause 30428}#
+ #{clause 29451}#
'(each-any any . each-any))))
- (if #{tmp 30437}#
+ (if #{tmp 29460}#
(@apply
- (lambda (#{k 30441}#
- #{e1 30442}#
- #{e2 30443}#)
+ (lambda (#{k 29464}#
+ #{e1 29465}#
+ #{e2 29466}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i30344"
- "i30345"
- "i30346"))
+ #("i29371"
+ "i29372"
+ "i29373"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25310,9 +25467,9 @@
#((top)
(top)
(top))
- #("i30344"
- "i30345"
- "i30346"))
+ #("i29371"
+ "i29372"
+ "i29373"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25321,22 +25478,22 @@
#((top)
(top)
(top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
'#(syntax-object
t
@@ -25346,9 +25503,9 @@
#((top)
(top)
(top))
- #("i30344"
- "i30345"
- "i30346"))
+ #("i29371"
+ "i29372"
+ "i29373"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25357,22 +25514,22 @@
#((top)
(top)
(top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25382,9 +25539,9 @@
#((top)
(top)
(top))
- #("i30344"
- "i30345"
- "i30346"))
+ #("i29371"
+ "i29372"
+ "i29373"))
#(ribcage
()
()
@@ -25396,17 +25553,17 @@
#((top)
(top)
(top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage
()
()
@@ -25414,10 +25571,10 @@
#(ribcage
#(x)
#((top))
-
#("i30316")))
+
#("i29343")))
(hygiene
guile))
- #{k 30441}#))
+ #{k 29464}#))
(cons '#(syntax-object
begin
((top)
@@ -25426,9 +25583,9 @@
#((top)
(top)
(top))
- #("i30344"
- "i30345"
- "i30346"))
+ #("i29371"
+ "i29372"
+ "i29373"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25437,76 +25594,76 @@
#((top)
(top)
(top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
- (cons #{e1 30442}#
- #{e2 30443}#))))
- #{tmp 30437}#)
+ (cons #{e1 29465}#
+ #{e2 29466}#))))
+ #{tmp 29460}#)
(syntax-violation
'case
"bad clause"
- #{x 30370}#
- #{clause 30428}#)))))
- (let ((#{tmp 30451}#
- (#{f 30425}#
- (car #{clauses 30429}#)
- (cdr #{clauses 30429}#))))
- (let ((#{tmp 30454}#
+ #{x 29397}#
+ #{clause 29451}#)))))
+ (let ((#{tmp 29474}#
+ (#{f 29448}#
+ (car #{clauses 29452}#)
+ (cdr #{clauses 29452}#))))
+ (let ((#{tmp 29477}#
($sc-dispatch
- #{clause 30428}#
+ #{clause 29451}#
'(each-any any . each-any))))
- (if #{tmp 30454}#
+ (if #{tmp 29477}#
(@apply
- (lambda (#{k 30458}#
- #{e1 30459}#
- #{e2 30460}#)
+ (lambda (#{k 29481}#
+ #{e1 29482}#
+ #{e2 29483}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i30360"
- "i30361"
- "i30362"))
+ #("i29387"
+ "i29388"
+ "i29389"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i30356"))
+ #("i29383"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25514,32 +25671,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i30360"
- "i30361"
- "i30362"))
+ #("i29387"
+ "i29388"
+ "i29389"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i30356"))
+ #("i29383"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
'#(syntax-object
t
@@ -25547,32 +25704,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i30360"
- "i30361"
- "i30362"))
+ #("i29387"
+ "i29388"
+ "i29389"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i30356"))
+ #("i29383"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25582,9 +25739,9 @@
#((top)
(top)
(top))
- #("i30360"
- "i30361"
- "i30362"))
+ #("i29387"
+ "i29388"
+ "i29389"))
#(ribcage
()
()
@@ -25592,7 +25749,7 @@
#(ribcage
#(rest)
#((top))
- #("i30356"))
+ #("i29383"))
#(ribcage
()
()
@@ -25604,17 +25761,17 @@
#((top)
(top)
(top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage
()
()
@@ -25622,232 +25779,232 @@
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
- #{k 30458}#))
+ #{k 29481}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i30360"
- "i30361"
- "i30362"))
+ #("i29387"
+ "i29388"
+ "i29389"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i30356"))
+ #("i29383"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i30329"
- "i30330"
- "i30331"))
+ #("i29356"
+ "i29357"
+ "i29358"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319"
- "i30320"
- "i30321"))
+ #("i29346"
+ "i29347"
+ "i29348"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30316")))
+ #("i29343")))
(hygiene guile))
- (cons #{e1 30459}#
- #{e2 30460}#))
- #{tmp 30451}#))
- #{tmp 30454}#)
+ (cons #{e1 29482}#
+ #{e2 29483}#))
+ #{tmp 29474}#))
+ #{tmp 29477}#)
(syntax-violation
'case
"bad clause"
- #{x 30370}#
- #{clause 30428}#))))))))
- (#{f 30425}# #{m1 30377}# #{m2 30378}#))))
- (let ((#{body 30380}# #{tmp 30379}#))
+ #{x 29397}#
+ #{clause 29451}#))))))))
+ (#{f 29448}# #{m1 29404}# #{m2 29405}#))))
+ (let ((#{body 29407}# #{tmp 29406}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i30327"))
+ #(ribcage #(body) #((top)) #("i29354"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319" "i30320" "i30321"))
+ #("i29346" "i29347" "i29348"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30316")))
+ #(ribcage #(x) #((top)) #("i29343")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i30327"))
+ #(ribcage #(body) #((top)) #("i29354"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i30319" "i30320" "i30321"))
+ #("i29346" "i29347" "i29348"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30316")))
+ #(ribcage #(x) #((top)) #("i29343")))
(hygiene guile))
- #{e 30376}#))
- #{body 30380}#))))
- #{tmp 30372}#)
+ #{e 29403}#))
+ #{body 29407}#))))
+ #{tmp 29399}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30370}#))))))
+ #{x 29397}#))))))
(define make-variable-transformer
- (lambda (#{proc 30478}#)
- (if (procedure? #{proc 30478}#)
+ (lambda (#{proc 29501}#)
+ (if (procedure? #{proc 29501}#)
(letrec*
- ((#{trans 30479}#
- (lambda (#{x 30485}#)
- (#{proc 30478}# #{x 30485}#))))
+ ((#{trans 29502}#
+ (lambda (#{x 29508}#)
+ (#{proc 29501}# #{x 29508}#))))
(begin
(set-procedure-property!
- #{trans 30479}#
+ #{trans 29502}#
'variable-transformer
#t)
- #{trans 30479}#))
+ #{trans 29502}#))
(error "variable transformer not a procedure"
- #{proc 30478}#))))
+ #{proc 29501}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 30517}#)
- (let ((#{tmp 30519}#
- ($sc-dispatch #{x 30517}# '(_ any))))
- (if #{tmp 30519}#
+ (lambda (#{x 29540}#)
+ (let ((#{tmp 29542}#
+ ($sc-dispatch #{x 29540}# '(_ any))))
+ (if #{tmp 29542}#
(@apply
- (lambda (#{e 30523}#)
+ (lambda (#{e 29546}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
- #{e 30523}#))
+ #{e 29546}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30492"))
+ #(ribcage #(e) #((top)) #("i29515"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
- (cons #{e 30523}#
+ (cons #{e 29546}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i30492"))
+ #("i29515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
#(syntax-object
...
@@ -25855,55 +26012,55 @@
#(ribcage
#(e)
#((top))
- #("i30492"))
+ #("i29515"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile)))))))))
- #{tmp 30519}#)
- (let ((#{tmp 30524}#
+ #{tmp 29542}#)
+ (let ((#{tmp 29547}#
($sc-dispatch
- #{x 30517}#
+ #{x 29540}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 30524}#
+ (if (if #{tmp 29547}#
(@apply
- (lambda (#{id 30528}#
- #{exp1 30529}#
- #{var 30530}#
- #{val 30531}#
- #{exp2 30532}#)
- (if (identifier? #{id 30528}#)
- (identifier? #{var 30530}#)
+ (lambda (#{id 29551}#
+ #{exp1 29552}#
+ #{var 29553}#
+ #{val 29554}#
+ #{exp2 29555}#)
+ (if (identifier? #{id 29551}#)
+ (identifier? #{var 29553}#)
#f))
- #{tmp 30524}#)
+ #{tmp 29547}#)
#f)
(@apply
- (lambda (#{id 30533}#
- #{exp1 30534}#
- #{var 30535}#
- #{val 30536}#
- #{exp2 30537}#)
+ (lambda (#{id 29556}#
+ #{exp1 29557}#
+ #{var 29558}#
+ #{val 29559}#
+ #{exp2 29560}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30507" "i30508" "i30509" "i30510" "i30511"))
+ #("i29530" "i29531" "i29532" "i29533" "i29534"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -25911,13 +26068,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
'(#(syntax-object
x
@@ -25925,13 +26082,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -25939,13 +26096,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
.
#(syntax-object
@@ -25954,13 +26111,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -25968,13 +26125,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
'#(syntax-object
x
@@ -25982,13 +26139,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile))
'(#(syntax-object
set!
@@ -25996,13 +26153,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30489")))
+ #(ribcage #(x) #((top)) #("i29512")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26014,19 +26171,19 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
- #{var 30535}#
- #{val 30536}#)
+ #{var 29558}#
+ #{val 29559}#)
(list '#(syntax-object
syntax
((top)
@@ -26037,19 +26194,19 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
- #{exp2 30537}#))
- (list (cons #{id 30533}#
+ #{exp2 29560}#))
+ (list (cons #{id 29556}#
'(#(syntax-object
x
((top)
@@ -26060,16 +26217,16 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
#(syntax-object
...
@@ -26081,16 +26238,16 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26102,18 +26259,18 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
- (cons #{exp1 30534}#
+ (cons #{exp1 29557}#
'(#(syntax-object
x
((top)
@@ -26128,16 +26285,16 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
#(syntax-object
...
@@ -26153,18 +26310,18 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))))))
- (list #{id 30533}#
+ (list #{id 29556}#
(list '#(syntax-object
identifier?
((top)
@@ -26175,16 +26332,16 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26200,18 +26357,18 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
- #{id 30533}#))
+ #{id 29556}#))
(list '#(syntax-object
syntax
((top)
@@ -26222,68 +26379,68 @@
(top)
(top)
(top))
- #("i30507"
- "i30508"
- "i30509"
- "i30510"
- "i30511"))
+ #("i29530"
+ "i29531"
+ "i29532"
+ "i29533"
+ "i29534"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30489")))
+ #("i29512")))
(hygiene guile))
- #{exp1 30534}#))))))
- #{tmp 30524}#)
+ #{exp1 29557}#))))))
+ #{tmp 29547}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30517}#))))))))
+ #{x 29540}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 30569}#)
- (let ((#{tmp 30571}#
+ (lambda (#{x 29592}#)
+ (let ((#{tmp 29594}#
($sc-dispatch
- #{x 30569}#
+ #{x 29592}#
'(_ (any . any) any . each-any))))
- (if #{tmp 30571}#
+ (if #{tmp 29594}#
(@apply
- (lambda (#{id 30575}#
- #{args 30576}#
- #{b0 30577}#
- #{b1 30578}#)
+ (lambda (#{id 29598}#
+ #{args 29599}#
+ #{b0 29600}#
+ #{b1 29601}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i30551" "i30552" "i30553" "i30554"))
+ #("i29574" "i29575" "i29576" "i29577"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30548")))
+ #(ribcage #(x) #((top)) #("i29571")))
(hygiene guile))
- #{id 30575}#
+ #{id 29598}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i30551" "i30552" "i30553" "i30554"))
+ #("i29574" "i29575" "i29576" "i29577"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30548")))
+ #(ribcage #(x) #((top)) #("i29571")))
(hygiene guile))
- (cons #{args 30576}#
- (cons #{b0 30577}# #{b1 30578}#)))))
- #{tmp 30571}#)
- (let ((#{tmp 30579}#
- ($sc-dispatch #{x 30569}# '(_ any any))))
- (if (if #{tmp 30579}#
+ (cons #{args 29599}#
+ (cons #{b0 29600}# #{b1 29601}#)))))
+ #{tmp 29594}#)
+ (let ((#{tmp 29602}#
+ ($sc-dispatch #{x 29592}# '(_ any any))))
+ (if (if #{tmp 29602}#
(@apply
- (lambda (#{id 30583}# #{val 30584}#)
+ (lambda (#{id 29606}# #{val 29607}#)
(identifier?
'#(syntax-object
x
@@ -26291,29 +26448,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i30561" "i30562"))
+ #("i29584" "i29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30548")))
+ #(ribcage #(x) #((top)) #("i29571")))
(hygiene guile))))
- #{tmp 30579}#)
+ #{tmp 29602}#)
#f)
(@apply
- (lambda (#{id 30585}# #{val 30586}#)
+ (lambda (#{id 29608}# #{val 29609}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i30565" "i30566"))
+ #("i29588" "i29589"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30548")))
+ #(ribcage #(x) #((top)) #("i29571")))
(hygiene guile))
- #{id 30585}#
- #{val 30586}#))
- #{tmp 30579}#)
+ #{id 29608}#
+ #{val 29609}#))
+ #{tmp 29602}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30569}#))))))))
+ #{x 29592}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index e522f54..4fec917 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1204,7 +1204,12 @@
((call) (expand-application (expand (car e) r w mod) e r w s mod))
((begin-form)
(syntax-case e ()
- ((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod))))
+ ((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod))
+ ((_)
+ (begin
+ (issue-deprecation-warning
+ "Sequences of zero expressions are deprecated. Use
*unspecified*.")
+ (expand-void)))))
((local-syntax-form)
(expand-local-syntax value e r w s mod expand-sequence))
((eval-when-form)
diff --git a/module/language/tree-il/peval.scm
b/module/language/tree-il/peval.scm
index e744d8d..dcdf189 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -445,7 +445,7 @@ top-level bindings from ENV and return the resulting
expression."
(define* (residualize-lexical op #:optional ctx val)
(log 'residualize op)
(set-operand-residualize?! op #t)
- (if (eq? ctx 'value)
+ (if (memq ctx '(value values))
(set-operand-residual-value! op val))
(make-lexical-ref #f (var-name (operand-var op)) (operand-sym op)))
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index f6eb28a..ac9319d 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -150,9 +150,10 @@
(pass-if "legal (begin)"
(eval '(begin (begin) #t) (interaction-environment)))
- (pass-if-syntax-error "illegal (begin)"
- exception:generic-syncase-error
- (eval '(begin (if #t (begin)) #t) (interaction-environment))))
+ (if (not (include-deprecated-features))
+ (pass-if-syntax-error "illegal (begin)"
+ exception:generic-syncase-error
+ (eval '(begin (if #t (begin)) #t) (interaction-environment)))))
(define-syntax matches?
(syntax-rules (<>)
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |