summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/ref/api-control.texi77
-rw-r--r--module/ice-9/ftw.scm2
-rw-r--r--module/ice-9/psyntax-pp.scm22595
-rw-r--r--module/ice-9/psyntax.scm7
-rw-r--r--module/language/tree-il/peval.scm4
-rw-r--r--test-suite/tests/ftw.test12
-rw-r--r--test-suite/tests/syntax.test7
-rw-r--r--test-suite/tests/tree-il.test5
8 files changed, 11416 insertions, 11293 deletions
diff --git a/doc/ref/api-control.texi b/doc/ref/api-control.texi
index ad36806f1..957b9a763 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
-@subsection Evaluating a Sequence of Expressions
+@subsection 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
+@cindex splicing
+@cindex 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:
+
+@lisp
+(define (make-seal)
+ (define-sealant seal open)
+ (values seal open))
+@end 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:
+
+@lisp
+(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))
+@end 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/ftw.scm b/module/ice-9/ftw.scm
index eed3eeb19..5f6115427 100644
--- a/module/ice-9/ftw.scm
+++ b/module/ice-9/ftw.scm
@@ -530,7 +530,7 @@ of file names is sorted according to ENTRY<?, which defaults to
(define (skip name stat result)
;; All the sub-directories are skipped.
- result)
+ (cons (basename name) result))
(and=> (file-system-fold enter? leaf down up skip #f name stat)
(lambda (files)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 68c7667f4..43a2cf567 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1997 +2,1999 @@
(if #f #f)
(letrec*
- ((#{top-level-eval-hook 4370}#
- (lambda (#{x 35759}# #{mod 35760}#)
- (primitive-eval #{x 35759}#)))
- (#{maybe-name-value! 4375}#
- (lambda (#{name 18991}# #{val 18992}#)
- (if (if (struct? #{val 18992}#)
- (eq? (struct-vtable #{val 18992}#)
+ ((#{top-level-eval-hook 28198}#
+ (lambda (#{x 58998}# #{mod 58999}#)
+ (primitive-eval #{x 58998}#)))
+ (#{maybe-name-value! 28203}#
+ (lambda (#{name 42551}# #{val 42552}#)
+ (if (if (struct? #{val 42552}#)
+ (eq? (struct-vtable #{val 42552}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 18999}# (struct-ref #{val 18992}# 1)))
- (if (not (assq 'name #{meta 18999}#))
- (let ((#{v 19004}#
- (cons (cons 'name #{name 18991}#) #{meta 18999}#)))
- (struct-set! #{val 18992}# 1 #{v 19004}#)))))))
- (#{build-call 4377}#
- (lambda (#{source 18736}#
- #{fun-exp 18737}#
- #{arg-exps 18738}#)
+ (let ((#{meta 42559}# (struct-ref #{val 42552}# 1)))
+ (if (not (assq 'name #{meta 42559}#))
+ (let ((#{v 42564}#
+ (cons (cons 'name #{name 42551}#) #{meta 42559}#)))
+ (struct-set! #{val 42552}# 1 #{v 42564}#)))))))
+ (#{build-call 28205}#
+ (lambda (#{source 42296}#
+ #{fun-exp 42297}#
+ #{arg-exps 42298}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 18736}#
- #{fun-exp 18737}#
- #{arg-exps 18738}#)))
- (#{build-conditional 4378}#
- (lambda (#{source 18744}#
- #{test-exp 18745}#
- #{then-exp 18746}#
- #{else-exp 18747}#)
+ #{source 42296}#
+ #{fun-exp 42297}#
+ #{arg-exps 42298}#)))
+ (#{build-conditional 28206}#
+ (lambda (#{source 42304}#
+ #{test-exp 42305}#
+ #{then-exp 42306}#
+ #{else-exp 42307}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 18744}#
- #{test-exp 18745}#
- #{then-exp 18746}#
- #{else-exp 18747}#)))
- (#{build-dynlet 4379}#
- (lambda (#{source 18754}#
- #{fluids 18755}#
- #{vals 18756}#
- #{body 18757}#)
+ #{source 42304}#
+ #{test-exp 42305}#
+ #{then-exp 42306}#
+ #{else-exp 42307}#)))
+ (#{build-dynlet 28207}#
+ (lambda (#{source 42314}#
+ #{fluids 42315}#
+ #{vals 42316}#
+ #{body 42317}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 18)
- #{source 18754}#
- #{fluids 18755}#
- #{vals 18756}#
- #{body 18757}#)))
- (#{build-lexical-reference 4380}#
- (lambda (#{type 35761}#
- #{source 35762}#
- #{name 35763}#
- #{var 35764}#)
+ #{source 42314}#
+ #{fluids 42315}#
+ #{vals 42316}#
+ #{body 42317}#)))
+ (#{build-lexical-reference 28208}#
+ (lambda (#{type 59000}#
+ #{source 59001}#
+ #{name 59002}#
+ #{var 59003}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 35762}#
- #{name 35763}#
- #{var 35764}#)))
- (#{build-lexical-assignment 4381}#
- (lambda (#{source 18764}#
- #{name 18765}#
- #{var 18766}#
- #{exp 18767}#)
+ #{source 59001}#
+ #{name 59002}#
+ #{var 59003}#)))
+ (#{build-lexical-assignment 28209}#
+ (lambda (#{source 42324}#
+ #{name 42325}#
+ #{var 42326}#
+ #{exp 42327}#)
(begin
- (if (if (struct? #{exp 18767}#)
- (eq? (struct-vtable #{exp 18767}#)
+ (if (if (struct? #{exp 42327}#)
+ (eq? (struct-vtable #{exp 42327}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 18783}# (struct-ref #{exp 18767}# 1)))
- (if (not (assq 'name #{meta 18783}#))
- (let ((#{v 18790}#
- (cons (cons 'name #{name 18765}#) #{meta 18783}#)))
- (struct-set! #{exp 18767}# 1 #{v 18790}#)))))
+ (let ((#{meta 42343}# (struct-ref #{exp 42327}# 1)))
+ (if (not (assq 'name #{meta 42343}#))
+ (let ((#{v 42350}#
+ (cons (cons 'name #{name 42325}#) #{meta 42343}#)))
+ (struct-set! #{exp 42327}# 1 #{v 42350}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 18764}#
- #{name 18765}#
- #{var 18766}#
- #{exp 18767}#))))
- (#{analyze-variable 4382}#
- (lambda (#{mod 35770}#
- #{var 35771}#
- #{modref-cont 35772}#
- #{bare-cont 35773}#)
- (if (not #{mod 35770}#)
- (#{bare-cont 35773}# #{var 35771}#)
- (let ((#{kind 35774}# (car #{mod 35770}#))
- (#{mod 35775}# (cdr #{mod 35770}#)))
- (if (eqv? #{kind 35774}# 'public)
- (#{modref-cont 35772}#
- #{mod 35775}#
- #{var 35771}#
+ #{source 42324}#
+ #{name 42325}#
+ #{var 42326}#
+ #{exp 42327}#))))
+ (#{analyze-variable 28210}#
+ (lambda (#{mod 59009}#
+ #{var 59010}#
+ #{modref-cont 59011}#
+ #{bare-cont 59012}#)
+ (if (not #{mod 59009}#)
+ (#{bare-cont 59012}# #{var 59010}#)
+ (let ((#{kind 59013}# (car #{mod 59009}#))
+ (#{mod 59014}# (cdr #{mod 59009}#)))
+ (if (eqv? #{kind 59013}# 'public)
+ (#{modref-cont 59011}#
+ #{mod 59014}#
+ #{var 59010}#
#t)
- (if (eqv? #{kind 35774}# 'private)
+ (if (eqv? #{kind 59013}# 'private)
(if (not (equal?
- #{mod 35775}#
+ #{mod 59014}#
(module-name (current-module))))
- (#{modref-cont 35772}#
- #{mod 35775}#
- #{var 35771}#
+ (#{modref-cont 59011}#
+ #{mod 59014}#
+ #{var 59010}#
#f)
- (#{bare-cont 35773}# #{var 35771}#))
- (if (eqv? #{kind 35774}# 'bare)
- (#{bare-cont 35773}# #{var 35771}#)
- (if (eqv? #{kind 35774}# 'hygiene)
+ (#{bare-cont 59012}# #{var 59010}#))
+ (if (eqv? #{kind 59013}# 'bare)
+ (#{bare-cont 59012}# #{var 59010}#)
+ (if (eqv? #{kind 59013}# 'hygiene)
(if (if (not (equal?
- #{mod 35775}#
+ #{mod 59014}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 35775}#)
- #{var 35771}#)
+ (resolve-module #{mod 59014}#)
+ #{var 59010}#)
#f)
- (#{modref-cont 35772}#
- #{mod 35775}#
- #{var 35771}#
+ (#{modref-cont 59011}#
+ #{mod 59014}#
+ #{var 59010}#
#f)
- (#{bare-cont 35773}# #{var 35771}#))
+ (#{bare-cont 59012}# #{var 59010}#))
(syntax-violation
#f
"bad module kind"
- #{var 35771}#
- #{mod 35775}#)))))))))
- (#{build-global-reference 4383}#
- (lambda (#{source 35790}# #{var 35791}# #{mod 35792}#)
- (#{analyze-variable 4382}#
- #{mod 35792}#
- #{var 35791}#
- (lambda (#{mod 35795}# #{var 35796}# #{public? 35797}#)
+ #{var 59010}#
+ #{mod 59014}#)))))))))
+ (#{build-global-reference 28211}#
+ (lambda (#{source 59029}# #{var 59030}# #{mod 59031}#)
+ (#{analyze-variable 28210}#
+ #{mod 59031}#
+ #{var 59030}#
+ (lambda (#{mod 59034}# #{var 59035}# #{public? 59036}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 35790}#
- #{mod 35795}#
- #{var 35796}#
- #{public? 35797}#))
- (lambda (#{var 35804}#)
+ #{source 59029}#
+ #{mod 59034}#
+ #{var 59035}#
+ #{public? 59036}#))
+ (lambda (#{var 59043}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 35790}#
- #{var 35804}#)))))
- (#{build-global-assignment 4384}#
- (lambda (#{source 18799}#
- #{var 18800}#
- #{exp 18801}#
- #{mod 18802}#)
+ #{source 59029}#
+ #{var 59043}#)))))
+ (#{build-global-assignment 28212}#
+ (lambda (#{source 42359}#
+ #{var 42360}#
+ #{exp 42361}#
+ #{mod 42362}#)
(begin
- (if (if (struct? #{exp 18801}#)
- (eq? (struct-vtable #{exp 18801}#)
+ (if (if (struct? #{exp 42361}#)
+ (eq? (struct-vtable #{exp 42361}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 18818}# (struct-ref #{exp 18801}# 1)))
- (if (not (assq 'name #{meta 18818}#))
- (let ((#{v 18825}#
- (cons (cons 'name #{var 18800}#) #{meta 18818}#)))
- (struct-set! #{exp 18801}# 1 #{v 18825}#)))))
- (#{analyze-variable 4382}#
- #{mod 18802}#
- #{var 18800}#
- (lambda (#{mod 18830}# #{var 18831}# #{public? 18832}#)
+ (let ((#{meta 42378}# (struct-ref #{exp 42361}# 1)))
+ (if (not (assq 'name #{meta 42378}#))
+ (let ((#{v 42385}#
+ (cons (cons 'name #{var 42360}#) #{meta 42378}#)))
+ (struct-set! #{exp 42361}# 1 #{v 42385}#)))))
+ (#{analyze-variable 28210}#
+ #{mod 42362}#
+ #{var 42360}#
+ (lambda (#{mod 42390}# #{var 42391}# #{public? 42392}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 18799}#
- #{mod 18830}#
- #{var 18831}#
- #{public? 18832}#
- #{exp 18801}#))
- (lambda (#{var 18840}#)
+ #{source 42359}#
+ #{mod 42390}#
+ #{var 42391}#
+ #{public? 42392}#
+ #{exp 42361}#))
+ (lambda (#{var 42400}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 18799}#
- #{var 18840}#
- #{exp 18801}#))))))
- (#{build-global-definition 4385}#
- (lambda (#{source 35809}# #{var 35810}# #{exp 35811}#)
+ #{source 42359}#
+ #{var 42400}#
+ #{exp 42361}#))))))
+ (#{build-global-definition 28213}#
+ (lambda (#{source 59048}# #{var 59049}# #{exp 59050}#)
(begin
- (if (if (struct? #{exp 35811}#)
- (eq? (struct-vtable #{exp 35811}#)
+ (if (if (struct? #{exp 59050}#)
+ (eq? (struct-vtable #{exp 59050}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 35827}# (struct-ref #{exp 35811}# 1)))
- (if (not (assq 'name #{meta 35827}#))
- (let ((#{v 35834}#
- (cons (cons 'name #{var 35810}#) #{meta 35827}#)))
- (struct-set! #{exp 35811}# 1 #{v 35834}#)))))
+ (let ((#{meta 59066}# (struct-ref #{exp 59050}# 1)))
+ (if (not (assq 'name #{meta 59066}#))
+ (let ((#{v 59073}#
+ (cons (cons 'name #{var 59049}#) #{meta 59066}#)))
+ (struct-set! #{exp 59050}# 1 #{v 59073}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 35809}#
- #{var 35810}#
- #{exp 35811}#))))
- (#{build-simple-lambda 4386}#
- (lambda (#{src 18846}#
- #{req 18847}#
- #{rest 18848}#
- #{vars 18849}#
- #{meta 18850}#
- #{exp 18851}#)
- (let ((#{body 18857}#
+ #{source 59048}#
+ #{var 59049}#
+ #{exp 59050}#))))
+ (#{build-simple-lambda 28214}#
+ (lambda (#{src 42406}#
+ #{req 42407}#
+ #{rest 42408}#
+ #{vars 42409}#
+ #{meta 42410}#
+ #{exp 42411}#)
+ (let ((#{body 42417}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 18846}#
- #{req 18847}#
+ #{src 42406}#
+ #{req 42407}#
#f
- #{rest 18848}#
+ #{rest 42408}#
#f
'()
- #{vars 18849}#
- #{exp 18851}#
+ #{vars 42409}#
+ #{exp 42411}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 18846}#
- #{meta 18850}#
- #{body 18857}#))))
- (#{build-primcall 4389}#
- (lambda (#{src 18869}# #{name 18870}# #{args 18871}#)
+ #{src 42406}#
+ #{meta 42410}#
+ #{body 42417}#))))
+ (#{build-primcall 28217}#
+ (lambda (#{src 42429}# #{name 42430}# #{args 42431}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 18869}#
- #{name 18870}#
- #{args 18871}#)))
- (#{build-sequence 4392}#
- (lambda (#{src 35842}# #{exps 35843}#)
- (if (null? (cdr #{exps 35843}#))
- (car #{exps 35843}#)
- (let ((#{head 35847}# (car #{exps 35843}#))
- (#{tail 35848}#
- (#{build-sequence 4392}# #f (cdr #{exps 35843}#))))
+ #{src 42429}#
+ #{name 42430}#
+ #{args 42431}#)))
+ (#{build-sequence 28220}#
+ (lambda (#{src 59081}# #{exps 59082}#)
+ (if (null? (cdr #{exps 59082}#))
+ (car #{exps 59082}#)
+ (let ((#{head 59086}# (car #{exps 59082}#))
+ (#{tail 59087}#
+ (#{build-sequence 28220}#
+ #f
+ (cdr #{exps 59082}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 35842}#
- #{head 35847}#
- #{tail 35848}#)))))
- (#{build-named-let 4394}#
- (lambda (#{src 18877}#
- #{ids 18878}#
- #{vars 18879}#
- #{val-exps 18880}#
- #{body-exp 18881}#)
- (let ((#{f 18882}# (car #{vars 18879}#))
- (#{f-name 18883}# (car #{ids 18878}#))
- (#{vars 18884}# (cdr #{vars 18879}#))
- (#{ids 18885}# (cdr #{ids 18878}#)))
- (let ((#{proc 18886}#
- (let ((#{body 18906}#
+ #{src 59081}#
+ #{head 59086}#
+ #{tail 59087}#)))))
+ (#{build-named-let 28222}#
+ (lambda (#{src 42437}#
+ #{ids 42438}#
+ #{vars 42439}#
+ #{val-exps 42440}#
+ #{body-exp 42441}#)
+ (let ((#{f 42442}# (car #{vars 42439}#))
+ (#{f-name 42443}# (car #{ids 42438}#))
+ (#{vars 42444}# (cdr #{vars 42439}#))
+ (#{ids 42445}# (cdr #{ids 42438}#)))
+ (let ((#{proc 42446}#
+ (let ((#{body 42466}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 18877}#
- #{ids 18885}#
+ #{src 42437}#
+ #{ids 42445}#
#f
#f
#f
'()
- #{vars 18884}#
- #{body-exp 18881}#
+ #{vars 42444}#
+ #{body-exp 42441}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 18877}#
+ #{src 42437}#
'()
- #{body 18906}#))))
+ #{body 42466}#))))
(begin
- (if (if (struct? #{proc 18886}#)
- (eq? (struct-vtable #{proc 18886}#)
+ (if (if (struct? #{proc 42446}#)
+ (eq? (struct-vtable #{proc 42446}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 18930}# (struct-ref #{proc 18886}# 1)))
- (if (not (assq 'name #{meta 18930}#))
- (let ((#{v 18937}#
- (cons (cons 'name #{f-name 18883}#)
- #{meta 18930}#)))
- (struct-set! #{proc 18886}# 1 #{v 18937}#)))))
+ (let ((#{meta 42490}# (struct-ref #{proc 42446}# 1)))
+ (if (not (assq 'name #{meta 42490}#))
+ (let ((#{v 42497}#
+ (cons (cons 'name #{f-name 42443}#)
+ #{meta 42490}#)))
+ (struct-set! #{proc 42446}# 1 #{v 42497}#)))))
(for-each
- #{maybe-name-value! 4375}#
- #{ids 18885}#
- #{val-exps 18880}#)
- (let ((#{names 18961}# (list #{f-name 18883}#))
- (#{gensyms 18962}# (list #{f 18882}#))
- (#{vals 18963}# (list #{proc 18886}#))
- (#{body 18964}#
- (let ((#{fun-exp 18968}#
+ #{maybe-name-value! 28203}#
+ #{ids 42445}#
+ #{val-exps 42440}#)
+ (let ((#{names 42521}# (list #{f-name 42443}#))
+ (#{gensyms 42522}# (list #{f 42442}#))
+ (#{vals 42523}# (list #{proc 42446}#))
+ (#{body 42524}#
+ (let ((#{fun-exp 42528}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 18877}#
- #{f-name 18883}#
- #{f 18882}#)))
+ #{src 42437}#
+ #{f-name 42443}#
+ #{f 42442}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 18877}#
- #{fun-exp 18968}#
- #{val-exps 18880}#))))
+ #{src 42437}#
+ #{fun-exp 42528}#
+ #{val-exps 42440}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 18877}#
+ #{src 42437}#
#f
- #{names 18961}#
- #{gensyms 18962}#
- #{vals 18963}#
- #{body 18964}#)))))))
- (#{build-letrec 4395}#
- (lambda (#{src 18984}#
- #{in-order? 18985}#
- #{ids 18986}#
- #{vars 18987}#
- #{val-exps 18988}#
- #{body-exp 18989}#)
- (if (null? #{vars 18987}#)
- #{body-exp 18989}#
+ #{names 42521}#
+ #{gensyms 42522}#
+ #{vals 42523}#
+ #{body 42524}#)))))))
+ (#{build-letrec 28223}#
+ (lambda (#{src 42544}#
+ #{in-order? 42545}#
+ #{ids 42546}#
+ #{vars 42547}#
+ #{val-exps 42548}#
+ #{body-exp 42549}#)
+ (if (null? #{vars 42547}#)
+ #{body-exp 42549}#
(begin
(for-each
- #{maybe-name-value! 4375}#
- #{ids 18986}#
- #{val-exps 18988}#)
+ #{maybe-name-value! 28203}#
+ #{ids 42546}#
+ #{val-exps 42548}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 18984}#
- #{in-order? 18985}#
- #{ids 18986}#
- #{vars 18987}#
- #{val-exps 18988}#
- #{body-exp 18989}#)))))
- (#{source-annotation 4404}#
- (lambda (#{x 19015}#)
- (if (if (vector? #{x 19015}#)
- (if (= (vector-length #{x 19015}#) 4)
- (eq? (vector-ref #{x 19015}# 0) 'syntax-object)
+ #{src 42544}#
+ #{in-order? 42545}#
+ #{ids 42546}#
+ #{vars 42547}#
+ #{val-exps 42548}#
+ #{body-exp 42549}#)))))
+ (#{source-annotation 28232}#
+ (lambda (#{x 42575}#)
+ (if (if (vector? #{x 42575}#)
+ (if (= (vector-length #{x 42575}#) 4)
+ (eq? (vector-ref #{x 42575}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation 4404}#
- (vector-ref #{x 19015}# 1))
- (if (pair? #{x 19015}#)
- (let ((#{props 19030}# (source-properties #{x 19015}#)))
- (if (pair? #{props 19030}#) #{props 19030}# #f))
+ (#{source-annotation 28232}#
+ (vector-ref #{x 42575}# 1))
+ (if (pair? #{x 42575}#)
+ (let ((#{props 42590}# (source-properties #{x 42575}#)))
+ (if (pair? #{props 42590}#) #{props 42590}# #f))
#f))))
- (#{extend-env 4405}#
- (lambda (#{labels 19032}# #{bindings 19033}# #{r 19034}#)
- (if (null? #{labels 19032}#)
- #{r 19034}#
- (#{extend-env 4405}#
- (cdr #{labels 19032}#)
- (cdr #{bindings 19033}#)
- (cons (cons (car #{labels 19032}#)
- (car #{bindings 19033}#))
- #{r 19034}#)))))
- (#{extend-var-env 4406}#
- (lambda (#{labels 19035}# #{vars 19036}# #{r 19037}#)
- (if (null? #{labels 19035}#)
- #{r 19037}#
- (#{extend-var-env 4406}#
- (cdr #{labels 19035}#)
- (cdr #{vars 19036}#)
- (cons (cons (car #{labels 19035}#)
- (cons 'lexical (car #{vars 19036}#)))
- #{r 19037}#)))))
- (#{macros-only-env 4407}#
- (lambda (#{r 19038}#)
- (if (null? #{r 19038}#)
+ (#{extend-env 28233}#
+ (lambda (#{labels 42592}# #{bindings 42593}# #{r 42594}#)
+ (if (null? #{labels 42592}#)
+ #{r 42594}#
+ (#{extend-env 28233}#
+ (cdr #{labels 42592}#)
+ (cdr #{bindings 42593}#)
+ (cons (cons (car #{labels 42592}#)
+ (car #{bindings 42593}#))
+ #{r 42594}#)))))
+ (#{extend-var-env 28234}#
+ (lambda (#{labels 42595}# #{vars 42596}# #{r 42597}#)
+ (if (null? #{labels 42595}#)
+ #{r 42597}#
+ (#{extend-var-env 28234}#
+ (cdr #{labels 42595}#)
+ (cdr #{vars 42596}#)
+ (cons (cons (car #{labels 42595}#)
+ (cons 'lexical (car #{vars 42596}#)))
+ #{r 42597}#)))))
+ (#{macros-only-env 28235}#
+ (lambda (#{r 42598}#)
+ (if (null? #{r 42598}#)
'()
- (let ((#{a 19039}# (car #{r 19038}#)))
- (if (let ((#{t 19042}# (car (cdr #{a 19039}#))))
- (if (eq? #{t 19042}# 'macro)
+ (let ((#{a 42599}# (car #{r 42598}#)))
+ (if (let ((#{t 42602}# (car (cdr #{a 42599}#))))
+ (if (eq? #{t 42602}# 'macro)
#t
- (eq? #{t 19042}# 'syntax-parameter)))
- (cons #{a 19039}#
- (#{macros-only-env 4407}# (cdr #{r 19038}#)))
- (#{macros-only-env 4407}# (cdr #{r 19038}#)))))))
- (#{global-extend 4408}#
- (lambda (#{type 19044}# #{sym 19045}# #{val 19046}#)
+ (eq? #{t 42602}# 'syntax-parameter)))
+ (cons #{a 42599}#
+ (#{macros-only-env 28235}# (cdr #{r 42598}#)))
+ (#{macros-only-env 28235}# (cdr #{r 42598}#)))))))
+ (#{global-extend 28236}#
+ (lambda (#{type 42604}# #{sym 42605}# #{val 42606}#)
(module-define!
(current-module)
- #{sym 19045}#
+ #{sym 42605}#
(make-syntax-transformer
- #{sym 19045}#
- #{type 19044}#
- #{val 19046}#))))
- (#{id? 4410}#
- (lambda (#{x 11968}#)
- (if (symbol? #{x 11968}#)
+ #{sym 42605}#
+ #{type 42604}#
+ #{val 42606}#))))
+ (#{id? 28238}#
+ (lambda (#{x 35679}#)
+ (if (symbol? #{x 35679}#)
#t
- (if (if (vector? #{x 11968}#)
- (if (= (vector-length #{x 11968}#) 4)
- (eq? (vector-ref #{x 11968}# 0) 'syntax-object)
+ (if (if (vector? #{x 35679}#)
+ (if (= (vector-length #{x 35679}#) 4)
+ (eq? (vector-ref #{x 35679}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 11968}# 1))
+ (symbol? (vector-ref #{x 35679}# 1))
#f))))
- (#{gen-labels 4413}#
- (lambda (#{ls 19056}#)
- (if (null? #{ls 19056}#)
+ (#{gen-labels 28241}#
+ (lambda (#{ls 42616}#)
+ (if (null? #{ls 42616}#)
'()
(cons (symbol->string (gensym "i"))
- (#{gen-labels 4413}# (cdr #{ls 19056}#))))))
- (#{make-binding-wrap 4424}#
- (lambda (#{ids 19060}# #{labels 19061}# #{w 19062}#)
- (if (null? #{ids 19060}#)
- #{w 19062}#
- (cons (car #{w 19062}#)
- (cons (let ((#{labelvec 19063}#
- (list->vector #{labels 19061}#)))
- (let ((#{n 19064}# (vector-length #{labelvec 19063}#)))
- (let ((#{symnamevec 19065}# (make-vector #{n 19064}#))
- (#{marksvec 19066}# (make-vector #{n 19064}#)))
+ (#{gen-labels 28241}# (cdr #{ls 42616}#))))))
+ (#{make-binding-wrap 28252}#
+ (lambda (#{ids 42620}# #{labels 42621}# #{w 42622}#)
+ (if (null? #{ids 42620}#)
+ #{w 42622}#
+ (cons (car #{w 42622}#)
+ (cons (let ((#{labelvec 42623}#
+ (list->vector #{labels 42621}#)))
+ (let ((#{n 42624}# (vector-length #{labelvec 42623}#)))
+ (let ((#{symnamevec 42625}# (make-vector #{n 42624}#))
+ (#{marksvec 42626}# (make-vector #{n 42624}#)))
(begin
(letrec*
- ((#{f 19067}#
- (lambda (#{ids 19266}# #{i 19267}#)
- (if (not (null? #{ids 19266}#))
+ ((#{f 42627}#
+ (lambda (#{ids 42824}# #{i 42825}#)
+ (if (not (null? #{ids 42824}#))
(call-with-values
(lambda ()
- (let ((#{x 19270}#
- (car #{ids 19266}#)))
- (if (if (vector? #{x 19270}#)
+ (let ((#{x 42828}#
+ (car #{ids 42824}#)))
+ (if (if (vector? #{x 42828}#)
(if (= (vector-length
- #{x 19270}#)
+ #{x 42828}#)
4)
(eq? (vector-ref
- #{x 19270}#
+ #{x 42828}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 19270}# 1)
- (let ((#{m1 19286}#
- (car #{w 19062}#))
- (#{m2 19287}#
+ (vector-ref #{x 42828}# 1)
+ (let ((#{m1 42844}#
+ (car #{w 42622}#))
+ (#{m2 42845}#
(car (vector-ref
- #{x 19270}#
+ #{x 42828}#
2))))
- (if (null? #{m2 19287}#)
- #{m1 19286}#
+ (if (null? #{m2 42845}#)
+ #{m1 42844}#
(append
- #{m1 19286}#
- #{m2 19287}#))))
+ #{m1 42844}#
+ #{m2 42845}#))))
(values
- #{x 19270}#
- (car #{w 19062}#)))))
- (lambda (#{symname 19307}#
- #{marks 19308}#)
+ #{x 42828}#
+ (car #{w 42622}#)))))
+ (lambda (#{symname 42865}#
+ #{marks 42866}#)
(begin
(vector-set!
- #{symnamevec 19065}#
- #{i 19267}#
- #{symname 19307}#)
+ #{symnamevec 42625}#
+ #{i 42825}#
+ #{symname 42865}#)
(vector-set!
- #{marksvec 19066}#
- #{i 19267}#
- #{marks 19308}#)
- (#{f 19067}#
- (cdr #{ids 19266}#)
- (#{1+}# #{i 19267}#)))))))))
- (#{f 19067}# #{ids 19060}# 0))
+ #{marksvec 42626}#
+ #{i 42825}#
+ #{marks 42866}#)
+ (#{f 42627}#
+ (cdr #{ids 42824}#)
+ (#{1+}# #{i 42825}#)))))))))
+ (#{f 42627}# #{ids 42620}# 0))
(vector
'ribcage
- #{symnamevec 19065}#
- #{marksvec 19066}#
- #{labelvec 19063}#)))))
- (cdr #{w 19062}#))))))
- (#{same-marks? 4428}#
- (lambda (#{x 35849}# #{y 35850}#)
- (if (eq? #{x 35849}# #{y 35850}#)
- (eq? #{x 35849}# #{y 35850}#)
- (if (not (null? #{x 35849}#))
- (if (not (null? #{y 35850}#))
- (if (eq? (car #{x 35849}#) (car #{y 35850}#))
- (#{same-marks? 4428}#
- (cdr #{x 35849}#)
- (cdr #{y 35850}#))
+ #{symnamevec 42625}#
+ #{marksvec 42626}#
+ #{labelvec 42623}#)))))
+ (cdr #{w 42622}#))))))
+ (#{same-marks? 28256}#
+ (lambda (#{x 59088}# #{y 59089}#)
+ (if (eq? #{x 59088}# #{y 59089}#)
+ (eq? #{x 59088}# #{y 59089}#)
+ (if (not (null? #{x 59088}#))
+ (if (not (null? #{y 59089}#))
+ (if (eq? (car #{x 59088}#) (car #{y 59089}#))
+ (#{same-marks? 28256}#
+ (cdr #{x 59088}#)
+ (cdr #{y 59089}#))
#f)
#f)
#f))))
- (#{id-var-name 4429}#
- (lambda (#{id 35858}# #{w 35859}# #{mod 35860}#)
+ (#{id-var-name 28257}#
+ (lambda (#{id 59097}# #{w 59098}# #{mod 59099}#)
(letrec*
- ((#{search 35861}#
- (lambda (#{sym 35927}#
- #{subst 35928}#
- #{marks 35929}#
- #{mod 35930}#)
- (if (null? #{subst 35928}#)
- (values #f #{marks 35929}#)
- (let ((#{fst 35931}# (car #{subst 35928}#)))
- (if (eq? #{fst 35931}# 'shift)
- (#{search 35861}#
- #{sym 35927}#
- (cdr #{subst 35928}#)
- (cdr #{marks 35929}#)
- #{mod 35930}#)
- (let ((#{symnames 35933}# (vector-ref #{fst 35931}# 1)))
- (if (vector? #{symnames 35933}#)
- (#{search-vector-rib 35863}#
- #{sym 35927}#
- #{subst 35928}#
- #{marks 35929}#
- #{symnames 35933}#
- #{fst 35931}#
- #{mod 35930}#)
- (#{search-list-rib 35862}#
- #{sym 35927}#
- #{subst 35928}#
- #{marks 35929}#
- #{symnames 35933}#
- #{fst 35931}#
- #{mod 35930}#))))))))
- (#{search-list-rib 35862}#
- (lambda (#{sym 36108}#
- #{subst 36109}#
- #{marks 36110}#
- #{symnames 36111}#
- #{ribcage 36112}#
- #{mod 36113}#)
+ ((#{search 59100}#
+ (lambda (#{sym 59166}#
+ #{subst 59167}#
+ #{marks 59168}#
+ #{mod 59169}#)
+ (if (null? #{subst 59167}#)
+ (values #f #{marks 59168}#)
+ (let ((#{fst 59170}# (car #{subst 59167}#)))
+ (if (eq? #{fst 59170}# 'shift)
+ (#{search 59100}#
+ #{sym 59166}#
+ (cdr #{subst 59167}#)
+ (cdr #{marks 59168}#)
+ #{mod 59169}#)
+ (let ((#{symnames 59172}# (vector-ref #{fst 59170}# 1)))
+ (if (vector? #{symnames 59172}#)
+ (#{search-vector-rib 59102}#
+ #{sym 59166}#
+ #{subst 59167}#
+ #{marks 59168}#
+ #{symnames 59172}#
+ #{fst 59170}#
+ #{mod 59169}#)
+ (#{search-list-rib 59101}#
+ #{sym 59166}#
+ #{subst 59167}#
+ #{marks 59168}#
+ #{symnames 59172}#
+ #{fst 59170}#
+ #{mod 59169}#))))))))
+ (#{search-list-rib 59101}#
+ (lambda (#{sym 59347}#
+ #{subst 59348}#
+ #{marks 59349}#
+ #{symnames 59350}#
+ #{ribcage 59351}#
+ #{mod 59352}#)
(letrec*
- ((#{f 36114}#
- (lambda (#{symnames 36117}# #{i 36118}#)
- (if (null? #{symnames 36117}#)
- (#{search 35861}#
- #{sym 36108}#
- (cdr #{subst 36109}#)
- #{marks 36110}#
- #{mod 36113}#)
- (if (if (eq? (car #{symnames 36117}#) #{sym 36108}#)
- (#{same-marks? 4428}#
- #{marks 36110}#
+ ((#{f 59353}#
+ (lambda (#{symnames 59356}# #{i 59357}#)
+ (if (null? #{symnames 59356}#)
+ (#{search 59100}#
+ #{sym 59347}#
+ (cdr #{subst 59348}#)
+ #{marks 59349}#
+ #{mod 59352}#)
+ (if (if (eq? (car #{symnames 59356}#) #{sym 59347}#)
+ (#{same-marks? 28256}#
+ #{marks 59349}#
(list-ref
- (vector-ref #{ribcage 36112}# 2)
- #{i 36118}#))
+ (vector-ref #{ribcage 59351}# 2)
+ #{i 59357}#))
#f)
- (let ((#{n 36264}#
+ (let ((#{n 59503}#
(list-ref
- (vector-ref #{ribcage 36112}# 3)
- #{i 36118}#)))
- (if (pair? #{n 36264}#)
- (if (equal? #{mod 36113}# (car #{n 36264}#))
- (values (cdr #{n 36264}#) #{marks 36110}#)
- (#{f 36114}#
- (cdr #{symnames 36117}#)
- (#{1+}# #{i 36118}#)))
- (values #{n 36264}# #{marks 36110}#)))
- (#{f 36114}#
- (cdr #{symnames 36117}#)
- (#{1+}# #{i 36118}#)))))))
- (#{f 36114}# #{symnames 36111}# 0))))
- (#{search-vector-rib 35863}#
- (lambda (#{sym 36269}#
- #{subst 36270}#
- #{marks 36271}#
- #{symnames 36272}#
- #{ribcage 36273}#
- #{mod 36274}#)
- (let ((#{n 36275}# (vector-length #{symnames 36272}#)))
+ (vector-ref #{ribcage 59351}# 3)
+ #{i 59357}#)))
+ (if (pair? #{n 59503}#)
+ (if (equal? #{mod 59352}# (car #{n 59503}#))
+ (values (cdr #{n 59503}#) #{marks 59349}#)
+ (#{f 59353}#
+ (cdr #{symnames 59356}#)
+ (#{1+}# #{i 59357}#)))
+ (values #{n 59503}# #{marks 59349}#)))
+ (#{f 59353}#
+ (cdr #{symnames 59356}#)
+ (#{1+}# #{i 59357}#)))))))
+ (#{f 59353}# #{symnames 59350}# 0))))
+ (#{search-vector-rib 59102}#
+ (lambda (#{sym 59508}#
+ #{subst 59509}#
+ #{marks 59510}#
+ #{symnames 59511}#
+ #{ribcage 59512}#
+ #{mod 59513}#)
+ (let ((#{n 59514}# (vector-length #{symnames 59511}#)))
(letrec*
- ((#{f 36276}#
- (lambda (#{i 36279}#)
- (if (= #{i 36279}# #{n 36275}#)
- (#{search 35861}#
- #{sym 36269}#
- (cdr #{subst 36270}#)
- #{marks 36271}#
- #{mod 36274}#)
+ ((#{f 59515}#
+ (lambda (#{i 59518}#)
+ (if (= #{i 59518}# #{n 59514}#)
+ (#{search 59100}#
+ #{sym 59508}#
+ (cdr #{subst 59509}#)
+ #{marks 59510}#
+ #{mod 59513}#)
(if (if (eq? (vector-ref
- #{symnames 36272}#
- #{i 36279}#)
- #{sym 36269}#)
- (#{same-marks? 4428}#
- #{marks 36271}#
+ #{symnames 59511}#
+ #{i 59518}#)
+ #{sym 59508}#)
+ (#{same-marks? 28256}#
+ #{marks 59510}#
(vector-ref
- (vector-ref #{ribcage 36273}# 2)
- #{i 36279}#))
+ (vector-ref #{ribcage 59512}# 2)
+ #{i 59518}#))
#f)
- (let ((#{n 36426}#
+ (let ((#{n 59665}#
(vector-ref
- (vector-ref #{ribcage 36273}# 3)
- #{i 36279}#)))
- (if (pair? #{n 36426}#)
- (if (equal? #{mod 36274}# (car #{n 36426}#))
- (values (cdr #{n 36426}#) #{marks 36271}#)
- (#{f 36276}# (#{1+}# #{i 36279}#)))
- (values #{n 36426}# #{marks 36271}#)))
- (#{f 36276}# (#{1+}# #{i 36279}#)))))))
- (#{f 36276}# 0))))))
- (if (symbol? #{id 35858}#)
- (let ((#{t 35864}#
- (#{search 35861}#
- #{id 35858}#
- (cdr #{w 35859}#)
- (car #{w 35859}#)
- #{mod 35860}#)))
- (if #{t 35864}# #{t 35864}# #{id 35858}#))
- (if (if (vector? #{id 35858}#)
- (if (= (vector-length #{id 35858}#) 4)
- (eq? (vector-ref #{id 35858}# 0) 'syntax-object)
+ (vector-ref #{ribcage 59512}# 3)
+ #{i 59518}#)))
+ (if (pair? #{n 59665}#)
+ (if (equal? #{mod 59513}# (car #{n 59665}#))
+ (values (cdr #{n 59665}#) #{marks 59510}#)
+ (#{f 59515}# (#{1+}# #{i 59518}#)))
+ (values #{n 59665}# #{marks 59510}#)))
+ (#{f 59515}# (#{1+}# #{i 59518}#)))))))
+ (#{f 59515}# 0))))))
+ (if (symbol? #{id 59097}#)
+ (let ((#{t 59103}#
+ (#{search 59100}#
+ #{id 59097}#
+ (cdr #{w 59098}#)
+ (car #{w 59098}#)
+ #{mod 59099}#)))
+ (if #{t 59103}# #{t 59103}# #{id 59097}#))
+ (if (if (vector? #{id 59097}#)
+ (if (= (vector-length #{id 59097}#) 4)
+ (eq? (vector-ref #{id 59097}# 0) 'syntax-object)
#f)
#f)
- (let ((#{id 35879}# (vector-ref #{id 35858}# 1))
- (#{w1 35880}# (vector-ref #{id 35858}# 2))
- (#{mod 35881}# (vector-ref #{id 35858}# 3)))
- (let ((#{marks 35882}#
- (let ((#{m1 35892}# (car #{w 35859}#))
- (#{m2 35893}# (car #{w1 35880}#)))
- (if (null? #{m2 35893}#)
- #{m1 35892}#
- (append #{m1 35892}# #{m2 35893}#)))))
+ (let ((#{id 59118}# (vector-ref #{id 59097}# 1))
+ (#{w1 59119}# (vector-ref #{id 59097}# 2))
+ (#{mod 59120}# (vector-ref #{id 59097}# 3)))
+ (let ((#{marks 59121}#
+ (let ((#{m1 59131}# (car #{w 59098}#))
+ (#{m2 59132}# (car #{w1 59119}#)))
+ (if (null? #{m2 59132}#)
+ #{m1 59131}#
+ (append #{m1 59131}# #{m2 59132}#)))))
(call-with-values
(lambda ()
- (#{search 35861}#
- #{id 35879}#
- (cdr #{w 35859}#)
- #{marks 35882}#
- #{mod 35881}#))
- (lambda (#{new-id 35913}# #{marks 35914}#)
- (if #{new-id 35913}#
- #{new-id 35913}#
- (let ((#{t 35922}#
- (#{search 35861}#
- #{id 35879}#
- (cdr #{w1 35880}#)
- #{marks 35914}#
- #{mod 35881}#)))
- (if #{t 35922}# #{t 35922}# #{id 35879}#)))))))
+ (#{search 59100}#
+ #{id 59118}#
+ (cdr #{w 59098}#)
+ #{marks 59121}#
+ #{mod 59120}#))
+ (lambda (#{new-id 59152}# #{marks 59153}#)
+ (if #{new-id 59152}#
+ #{new-id 59152}#
+ (let ((#{t 59161}#
+ (#{search 59100}#
+ #{id 59118}#
+ (cdr #{w1 59119}#)
+ #{marks 59153}#
+ #{mod 59120}#)))
+ (if #{t 59161}# #{t 59161}# #{id 59118}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 35858}#))))))
- (#{resolve-identifier 4430}#
- (lambda (#{id 19315}#
- #{w 19316}#
- #{r 19317}#
- #{mod 19318}#
- #{resolve-syntax-parameters? 19319}#)
- (let ((#{n 19323}#
- (#{id-var-name 4429}#
- #{id 19315}#
- #{w 19316}#
- #{mod 19318}#)))
- (if (if (vector? #{n 19323}#)
- (if (= (vector-length #{n 19323}#) 4)
- (eq? (vector-ref #{n 19323}# 0) 'syntax-object)
+ #{id 59097}#))))))
+ (#{resolve-identifier 28258}#
+ (lambda (#{id 42873}#
+ #{w 42874}#
+ #{r 42875}#
+ #{mod 42876}#
+ #{resolve-syntax-parameters? 42877}#)
+ (let ((#{n 42881}#
+ (#{id-var-name 28257}#
+ #{id 42873}#
+ #{w 42874}#
+ #{mod 42876}#)))
+ (if (if (vector? #{n 42881}#)
+ (if (= (vector-length #{n 42881}#) 4)
+ (eq? (vector-ref #{n 42881}# 0) 'syntax-object)
#f)
#f)
- (#{resolve-identifier 4430}#
- #{n 19323}#
- #{w 19316}#
- #{r 19317}#
- #{mod 19318}#
- #{resolve-syntax-parameters? 19319}#)
- (if (symbol? #{n 19323}#)
- (let ((#{mod 19338}#
- (if (if (vector? #{id 19315}#)
- (if (= (vector-length #{id 19315}#) 4)
- (eq? (vector-ref #{id 19315}# 0) 'syntax-object)
+ (#{resolve-identifier 28258}#
+ #{n 42881}#
+ #{w 42874}#
+ #{r 42875}#
+ #{mod 42876}#
+ #{resolve-syntax-parameters? 42877}#)
+ (if (symbol? #{n 42881}#)
+ (let ((#{mod 42896}#
+ (if (if (vector? #{id 42873}#)
+ (if (= (vector-length #{id 42873}#) 4)
+ (eq? (vector-ref #{id 42873}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 19315}# 3)
- #{mod 19318}#)))
- (let ((#{b 19339}#
- (let ((#{b 19342}#
- (let ((#{t 19343}#
+ (vector-ref #{id 42873}# 3)
+ #{mod 42876}#)))
+ (let ((#{b 42897}#
+ (let ((#{b 42900}#
+ (let ((#{t 42901}#
(begin
- (if (if (not #{mod 19338}#)
+ (if (if (not #{mod 42896}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{n 19323}#))
- (let ((#{v 19392}#
+ #{n 42881}#))
+ (let ((#{v 42950}#
(module-variable
- (if #{mod 19338}#
+ (if #{mod 42896}#
(resolve-module
- (cdr #{mod 19338}#))
+ (cdr #{mod 42896}#))
(current-module))
- #{n 19323}#)))
- (if #{v 19392}#
- (if (variable-bound? #{v 19392}#)
- (let ((#{val 19401}#
+ #{n 42881}#)))
+ (if #{v 42950}#
+ (if (variable-bound? #{v 42950}#)
+ (let ((#{val 42959}#
(variable-ref
- #{v 19392}#)))
- (if (macro? #{val 19401}#)
+ #{v 42950}#)))
+ (if (macro? #{val 42959}#)
(if (macro-type
- #{val 19401}#)
+ #{val 42959}#)
(cons (macro-type
- #{val 19401}#)
+ #{val 42959}#)
(macro-binding
- #{val 19401}#))
+ #{val 42959}#))
#f)
#f))
#f)
#f)))))
- (if #{t 19343}# #{t 19343}# '(global)))))
- (if (if #{resolve-syntax-parameters? 19319}#
- (eq? (car #{b 19342}#) 'syntax-parameter)
+ (if #{t 42901}# #{t 42901}# '(global)))))
+ (if (if #{resolve-syntax-parameters? 42877}#
+ (eq? (car #{b 42900}#) 'syntax-parameter)
#f)
- (let ((#{t 19410}#
- (assq-ref #{r 19317}# (cdr #{b 19342}#))))
- (if #{t 19410}#
- #{t 19410}#
- (cons 'macro (car (cdr #{b 19342}#)))))
- #{b 19342}#))))
- (if (eq? (car #{b 19339}#) 'global)
- (values 'global #{n 19323}# #{mod 19338}#)
+ (let ((#{t 42968}#
+ (assq-ref #{r 42875}# (cdr #{b 42900}#))))
+ (if #{t 42968}#
+ #{t 42968}#
+ (cons 'macro (car (cdr #{b 42900}#)))))
+ #{b 42900}#))))
+ (if (eq? (car #{b 42897}#) 'global)
+ (values 'global #{n 42881}# #{mod 42896}#)
(values
- (car #{b 19339}#)
- (cdr #{b 19339}#)
- #{mod 19338}#))))
- (if (string? #{n 19323}#)
- (let ((#{mod 19416}#
- (if (if (vector? #{id 19315}#)
- (if (= (vector-length #{id 19315}#) 4)
- (eq? (vector-ref #{id 19315}# 0) 'syntax-object)
+ (car #{b 42897}#)
+ (cdr #{b 42897}#)
+ #{mod 42896}#))))
+ (if (string? #{n 42881}#)
+ (let ((#{mod 42974}#
+ (if (if (vector? #{id 42873}#)
+ (if (= (vector-length #{id 42873}#) 4)
+ (eq? (vector-ref #{id 42873}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 19315}# 3)
- #{mod 19318}#)))
- (let ((#{b 19417}#
- (let ((#{b 19420}#
- (let ((#{t 19421}#
- (assq-ref #{r 19317}# #{n 19323}#)))
- (if #{t 19421}#
- #{t 19421}#
+ (vector-ref #{id 42873}# 3)
+ #{mod 42876}#)))
+ (let ((#{b 42975}#
+ (let ((#{b 42978}#
+ (let ((#{t 42979}#
+ (assq-ref #{r 42875}# #{n 42881}#)))
+ (if #{t 42979}#
+ #{t 42979}#
'(displaced-lexical)))))
- (if (if #{resolve-syntax-parameters? 19319}#
- (eq? (car #{b 19420}#) 'syntax-parameter)
+ (if (if #{resolve-syntax-parameters? 42877}#
+ (eq? (car #{b 42978}#) 'syntax-parameter)
#f)
- (let ((#{t 19422}#
- (assq-ref #{r 19317}# (cdr #{b 19420}#))))
- (if #{t 19422}#
- #{t 19422}#
- (cons 'macro (car (cdr #{b 19420}#)))))
- #{b 19420}#))))
+ (let ((#{t 42980}#
+ (assq-ref #{r 42875}# (cdr #{b 42978}#))))
+ (if #{t 42980}#
+ #{t 42980}#
+ (cons 'macro (car (cdr #{b 42978}#)))))
+ #{b 42978}#))))
(values
- (car #{b 19417}#)
- (cdr #{b 19417}#)
- #{mod 19416}#)))
+ (car #{b 42975}#)
+ (cdr #{b 42975}#)
+ #{mod 42974}#)))
(error "unexpected id-var-name"
- #{id 19315}#
- #{w 19316}#
- #{n 19323}#)))))))
- (#{free-id=? 4431}#
- (lambda (#{i 19435}# #{j 19436}#)
- (let ((#{mi 19437}#
- (if (if (vector? #{i 19435}#)
- (if (= (vector-length #{i 19435}#) 4)
- (eq? (vector-ref #{i 19435}# 0) 'syntax-object)
+ #{id 42873}#
+ #{w 42874}#
+ #{n 42881}#)))))))
+ (#{free-id=? 28259}#
+ (lambda (#{i 42993}# #{j 42994}#)
+ (let ((#{mi 42995}#
+ (if (if (vector? #{i 42993}#)
+ (if (= (vector-length #{i 42993}#) 4)
+ (eq? (vector-ref #{i 42993}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{i 19435}# 3)
+ (vector-ref #{i 42993}# 3)
#f)))
- (let ((#{mj 19438}#
- (if (if (vector? #{j 19436}#)
- (if (= (vector-length #{j 19436}#) 4)
- (eq? (vector-ref #{j 19436}# 0) 'syntax-object)
+ (let ((#{mj 42996}#
+ (if (if (vector? #{j 42994}#)
+ (if (= (vector-length #{j 42994}#) 4)
+ (eq? (vector-ref #{j 42994}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 3)
+ (vector-ref #{j 42994}# 3)
#f)))
- (let ((#{ni 19439}#
- (#{id-var-name 4429}#
- #{i 19435}#
+ (let ((#{ni 42997}#
+ (#{id-var-name 28257}#
+ #{i 42993}#
'(())
- #{mi 19437}#)))
- (let ((#{nj 19440}#
- (#{id-var-name 4429}#
- #{j 19436}#
+ #{mi 42995}#)))
+ (let ((#{nj 42998}#
+ (#{id-var-name 28257}#
+ #{j 42994}#
'(())
- #{mj 19438}#)))
- (if (if (vector? #{ni 19439}#)
- (if (= (vector-length #{ni 19439}#) 4)
- (eq? (vector-ref #{ni 19439}# 0) 'syntax-object)
+ #{mj 42996}#)))
+ (if (if (vector? #{ni 42997}#)
+ (if (= (vector-length #{ni 42997}#) 4)
+ (eq? (vector-ref #{ni 42997}# 0) 'syntax-object)
#f)
#f)
- (#{free-id=? 4431}# #{ni 19439}# #{j 19436}#)
- (if (if (vector? #{nj 19440}#)
- (if (= (vector-length #{nj 19440}#) 4)
- (eq? (vector-ref #{nj 19440}# 0) 'syntax-object)
+ (#{free-id=? 28259}# #{ni 42997}# #{j 42994}#)
+ (if (if (vector? #{nj 42998}#)
+ (if (= (vector-length #{nj 42998}#) 4)
+ (eq? (vector-ref #{nj 42998}# 0) 'syntax-object)
#f)
#f)
- (#{free-id=? 4431}# #{i 19435}# #{nj 19440}#)
- (if (symbol? #{ni 19439}#)
- (if (eq? #{nj 19440}#
- (if (if (vector? #{j 19436}#)
- (if (= (vector-length #{j 19436}#) 4)
- (eq? (vector-ref #{j 19436}# 0)
+ (#{free-id=? 28259}# #{i 42993}# #{nj 42998}#)
+ (if (symbol? #{ni 42997}#)
+ (if (eq? #{nj 42998}#
+ (if (if (vector? #{j 42994}#)
+ (if (= (vector-length #{j 42994}#) 4)
+ (eq? (vector-ref #{j 42994}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 1)
- #{j 19436}#))
- (if (let ((#{bi 19512}#
+ (vector-ref #{j 42994}# 1)
+ #{j 42994}#))
+ (if (let ((#{bi 43070}#
(module-variable
- (if #{mi 19437}#
- (resolve-module (cdr #{mi 19437}#))
+ (if #{mi 42995}#
+ (resolve-module (cdr #{mi 42995}#))
(current-module))
- (if (if (vector? #{i 19435}#)
- (if (= (vector-length #{i 19435}#)
+ (if (if (vector? #{i 42993}#)
+ (if (= (vector-length #{i 42993}#)
4)
- (eq? (vector-ref #{i 19435}# 0)
+ (eq? (vector-ref #{i 42993}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 19435}# 1)
- #{i 19435}#))))
- (if #{bi 19512}#
- (eq? #{bi 19512}#
+ (vector-ref #{i 42993}# 1)
+ #{i 42993}#))))
+ (if #{bi 43070}#
+ (eq? #{bi 43070}#
(module-variable
- (if #{mj 19438}#
- (resolve-module (cdr #{mj 19438}#))
+ (if #{mj 42996}#
+ (resolve-module (cdr #{mj 42996}#))
(current-module))
- (if (if (vector? #{j 19436}#)
- (if (= (vector-length #{j 19436}#)
+ (if (if (vector? #{j 42994}#)
+ (if (= (vector-length #{j 42994}#)
4)
- (eq? (vector-ref #{j 19436}# 0)
+ (eq? (vector-ref #{j 42994}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 1)
- #{j 19436}#)))
+ (vector-ref #{j 42994}# 1)
+ #{j 42994}#)))
(if (not (module-variable
- (if #{mj 19438}#
- (resolve-module (cdr #{mj 19438}#))
+ (if #{mj 42996}#
+ (resolve-module (cdr #{mj 42996}#))
(current-module))
- (if (if (vector? #{j 19436}#)
+ (if (if (vector? #{j 42994}#)
(if (= (vector-length
- #{j 19436}#)
+ #{j 42994}#)
4)
(eq? (vector-ref
- #{j 19436}#
+ #{j 42994}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 1)
- #{j 19436}#)))
- (eq? #{ni 19439}# #{nj 19440}#)
+ (vector-ref #{j 42994}# 1)
+ #{j 42994}#)))
+ (eq? #{ni 42997}# #{nj 42998}#)
#f)))
(eq? (module-variable
- (if #{mi 19437}#
- (resolve-module (cdr #{mi 19437}#))
+ (if #{mi 42995}#
+ (resolve-module (cdr #{mi 42995}#))
(current-module))
- (if (if (vector? #{i 19435}#)
- (if (= (vector-length #{i 19435}#) 4)
- (eq? (vector-ref #{i 19435}# 0)
+ (if (if (vector? #{i 42993}#)
+ (if (= (vector-length #{i 42993}#) 4)
+ (eq? (vector-ref #{i 42993}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 19435}# 1)
- #{i 19435}#))
+ (vector-ref #{i 42993}# 1)
+ #{i 42993}#))
(module-variable
- (if #{mj 19438}#
- (resolve-module (cdr #{mj 19438}#))
+ (if #{mj 42996}#
+ (resolve-module (cdr #{mj 42996}#))
(current-module))
- (if (if (vector? #{j 19436}#)
- (if (= (vector-length #{j 19436}#) 4)
- (eq? (vector-ref #{j 19436}# 0)
+ (if (if (vector? #{j 42994}#)
+ (if (= (vector-length #{j 42994}#) 4)
+ (eq? (vector-ref #{j 42994}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 1)
- #{j 19436}#)))
+ (vector-ref #{j 42994}# 1)
+ #{j 42994}#)))
#f)
#f)
- (equal? #{ni 19439}# #{nj 19440}#))))))))))
- (#{bound-id=? 4432}#
- (lambda (#{i 19705}# #{j 19706}#)
- (if (if (if (vector? #{i 19705}#)
- (if (= (vector-length #{i 19705}#) 4)
- (eq? (vector-ref #{i 19705}# 0) 'syntax-object)
+ (equal? #{ni 42997}# #{nj 42998}#))))))))))
+ (#{bound-id=? 28260}#
+ (lambda (#{i 43263}# #{j 43264}#)
+ (if (if (if (vector? #{i 43263}#)
+ (if (= (vector-length #{i 43263}#) 4)
+ (eq? (vector-ref #{i 43263}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 19706}#)
- (if (= (vector-length #{j 19706}#) 4)
- (eq? (vector-ref #{j 19706}# 0) 'syntax-object)
+ (if (vector? #{j 43264}#)
+ (if (= (vector-length #{j 43264}#) 4)
+ (eq? (vector-ref #{j 43264}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{i 19705}# 1)
- (vector-ref #{j 19706}# 1))
- (#{same-marks? 4428}#
- (car (vector-ref #{i 19705}# 2))
- (car (vector-ref #{j 19706}# 2)))
+ (if (eq? (vector-ref #{i 43263}# 1)
+ (vector-ref #{j 43264}# 1))
+ (#{same-marks? 28256}#
+ (car (vector-ref #{i 43263}# 2))
+ (car (vector-ref #{j 43264}# 2)))
#f)
- (eq? #{i 19705}# #{j 19706}#))))
- (#{valid-bound-ids? 4433}#
- (lambda (#{ids 19875}#)
+ (eq? #{i 43263}# #{j 43264}#))))
+ (#{valid-bound-ids? 28261}#
+ (lambda (#{ids 43433}#)
(if (letrec*
- ((#{all-ids? 19876}#
- (lambda (#{ids 20073}#)
- (if (null? #{ids 20073}#)
- (null? #{ids 20073}#)
- (if (let ((#{x 20084}# (car #{ids 20073}#)))
- (if (symbol? #{x 20084}#)
+ ((#{all-ids? 43434}#
+ (lambda (#{ids 43631}#)
+ (if (null? #{ids 43631}#)
+ (null? #{ids 43631}#)
+ (if (let ((#{x 43642}# (car #{ids 43631}#)))
+ (if (symbol? #{x 43642}#)
#t
- (if (if (vector? #{x 20084}#)
- (if (= (vector-length #{x 20084}#) 4)
- (eq? (vector-ref #{x 20084}# 0)
+ (if (if (vector? #{x 43642}#)
+ (if (= (vector-length #{x 43642}#) 4)
+ (eq? (vector-ref #{x 43642}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 20084}# 1))
+ (symbol? (vector-ref #{x 43642}# 1))
#f)))
- (#{all-ids? 19876}# (cdr #{ids 20073}#))
+ (#{all-ids? 43434}# (cdr #{ids 43631}#))
#f)))))
- (#{all-ids? 19876}# #{ids 19875}#))
- (#{distinct-bound-ids? 4434}# #{ids 19875}#)
+ (#{all-ids? 43434}# #{ids 43433}#))
+ (#{distinct-bound-ids? 28262}# #{ids 43433}#)
#f)))
- (#{distinct-bound-ids? 4434}#
- (lambda (#{ids 20205}#)
+ (#{distinct-bound-ids? 28262}#
+ (lambda (#{ids 43763}#)
(letrec*
- ((#{distinct? 20206}#
- (lambda (#{ids 20311}#)
- (if (null? #{ids 20311}#)
- (null? #{ids 20311}#)
- (if (not (#{bound-id-member? 4435}#
- (car #{ids 20311}#)
- (cdr #{ids 20311}#)))
- (#{distinct? 20206}# (cdr #{ids 20311}#))
+ ((#{distinct? 43764}#
+ (lambda (#{ids 43869}#)
+ (if (null? #{ids 43869}#)
+ (null? #{ids 43869}#)
+ (if (not (#{bound-id-member? 28263}#
+ (car #{ids 43869}#)
+ (cdr #{ids 43869}#)))
+ (#{distinct? 43764}# (cdr #{ids 43869}#))
#f)))))
- (#{distinct? 20206}# #{ids 20205}#))))
- (#{bound-id-member? 4435}#
- (lambda (#{x 20407}# #{list 20408}#)
- (if (not (null? #{list 20408}#))
- (let ((#{t 20409}#
- (#{bound-id=? 4432}#
- #{x 20407}#
- (car #{list 20408}#))))
- (if #{t 20409}#
- #{t 20409}#
- (#{bound-id-member? 4435}#
- #{x 20407}#
- (cdr #{list 20408}#))))
+ (#{distinct? 43764}# #{ids 43763}#))))
+ (#{bound-id-member? 28263}#
+ (lambda (#{x 43965}# #{list 43966}#)
+ (if (not (null? #{list 43966}#))
+ (let ((#{t 43967}#
+ (#{bound-id=? 28260}#
+ #{x 43965}#
+ (car #{list 43966}#))))
+ (if #{t 43967}#
+ #{t 43967}#
+ (#{bound-id-member? 28263}#
+ #{x 43965}#
+ (cdr #{list 43966}#))))
#f)))
- (#{source-wrap 4437}#
- (lambda (#{x 20587}#
- #{w 20588}#
- #{s 20589}#
- #{defmod 20590}#)
- (let ((#{x 20594}#
+ (#{source-wrap 28265}#
+ (lambda (#{x 44145}#
+ #{w 44146}#
+ #{s 44147}#
+ #{defmod 44148}#)
+ (let ((#{x 44152}#
(begin
- (if (if (pair? #{x 20587}#) #{s 20589}# #f)
- (set-source-properties! #{x 20587}# #{s 20589}#))
- #{x 20587}#)))
- (if (if (null? (car #{w 20588}#))
- (null? (cdr #{w 20588}#))
+ (if (if (pair? #{x 44145}#) #{s 44147}# #f)
+ (set-source-properties! #{x 44145}# #{s 44147}#))
+ #{x 44145}#)))
+ (if (if (null? (car #{w 44146}#))
+ (null? (cdr #{w 44146}#))
#f)
- #{x 20594}#
- (if (if (vector? #{x 20594}#)
- (if (= (vector-length #{x 20594}#) 4)
- (eq? (vector-ref #{x 20594}# 0) 'syntax-object)
+ #{x 44152}#
+ (if (if (vector? #{x 44152}#)
+ (if (= (vector-length #{x 44152}#) 4)
+ (eq? (vector-ref #{x 44152}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 20626}# (vector-ref #{x 20594}# 1))
- (#{wrap 20627}#
- (let ((#{w2 20635}# (vector-ref #{x 20594}# 2)))
- (let ((#{m1 20636}# (car #{w 20588}#))
- (#{s1 20637}# (cdr #{w 20588}#)))
- (if (null? #{m1 20636}#)
- (if (null? #{s1 20637}#)
- #{w2 20635}#
- (cons (car #{w2 20635}#)
- (let ((#{m2 20652}# (cdr #{w2 20635}#)))
- (if (null? #{m2 20652}#)
- #{s1 20637}#
- (append #{s1 20637}# #{m2 20652}#)))))
- (cons (let ((#{m2 20660}# (car #{w2 20635}#)))
- (if (null? #{m2 20660}#)
- #{m1 20636}#
- (append #{m1 20636}# #{m2 20660}#)))
- (let ((#{m2 20668}# (cdr #{w2 20635}#)))
- (if (null? #{m2 20668}#)
- #{s1 20637}#
- (append #{s1 20637}# #{m2 20668}#))))))))
- (#{module 20628}# (vector-ref #{x 20594}# 3)))
+ (let ((#{expression 44184}# (vector-ref #{x 44152}# 1))
+ (#{wrap 44185}#
+ (let ((#{w2 44193}# (vector-ref #{x 44152}# 2)))
+ (let ((#{m1 44194}# (car #{w 44146}#))
+ (#{s1 44195}# (cdr #{w 44146}#)))
+ (if (null? #{m1 44194}#)
+ (if (null? #{s1 44195}#)
+ #{w2 44193}#
+ (cons (car #{w2 44193}#)
+ (let ((#{m2 44210}# (cdr #{w2 44193}#)))
+ (if (null? #{m2 44210}#)
+ #{s1 44195}#
+ (append #{s1 44195}# #{m2 44210}#)))))
+ (cons (let ((#{m2 44218}# (car #{w2 44193}#)))
+ (if (null? #{m2 44218}#)
+ #{m1 44194}#
+ (append #{m1 44194}# #{m2 44218}#)))
+ (let ((#{m2 44226}# (cdr #{w2 44193}#)))
+ (if (null? #{m2 44226}#)
+ #{s1 44195}#
+ (append #{s1 44195}# #{m2 44226}#))))))))
+ (#{module 44186}# (vector-ref #{x 44152}# 3)))
(vector
'syntax-object
- #{expression 20626}#
- #{wrap 20627}#
- #{module 20628}#))
- (if (null? #{x 20594}#)
- #{x 20594}#
+ #{expression 44184}#
+ #{wrap 44185}#
+ #{module 44186}#))
+ (if (null? #{x 44152}#)
+ #{x 44152}#
(vector
'syntax-object
- #{x 20594}#
- #{w 20588}#
- #{defmod 20590}#)))))))
- (#{expand-sequence 4438}#
- (lambda (#{body 36431}#
- #{r 36432}#
- #{w 36433}#
- #{s 36434}#
- #{mod 36435}#)
- (#{build-sequence 4392}#
- #{s 36434}#
+ #{x 44152}#
+ #{w 44146}#
+ #{defmod 44148}#)))))))
+ (#{expand-sequence 28266}#
+ (lambda (#{body 59670}#
+ #{r 59671}#
+ #{w 59672}#
+ #{s 59673}#
+ #{mod 59674}#)
+ (#{build-sequence 28220}#
+ #{s 59673}#
(letrec*
- ((#{dobody 36527}#
- (lambda (#{body 36614}#
- #{r 36615}#
- #{w 36616}#
- #{mod 36617}#)
- (if (null? #{body 36614}#)
+ ((#{dobody 59762}#
+ (lambda (#{body 59845}#
+ #{r 59846}#
+ #{w 59847}#
+ #{mod 59848}#)
+ (if (null? #{body 59845}#)
'()
- (let ((#{first 36618}#
- (#{expand 4443}#
- (car #{body 36614}#)
- #{r 36615}#
- #{w 36616}#
- #{mod 36617}#)))
- (cons #{first 36618}#
- (#{dobody 36527}#
- (cdr #{body 36614}#)
- #{r 36615}#
- #{w 36616}#
- #{mod 36617}#)))))))
- (#{dobody 36527}#
- #{body 36431}#
- #{r 36432}#
- #{w 36433}#
- #{mod 36435}#)))))
- (#{expand-top-sequence 4439}#
- (lambda (#{body 20683}#
- #{r 20684}#
- #{w 20685}#
- #{s 20686}#
- #{m 20687}#
- #{esew 20688}#
- #{mod 20689}#)
- (let ((#{r 20690}#
- (cons '("placeholder" placeholder) #{r 20684}#)))
- (let ((#{ribcage 20691}# (vector 'ribcage '() '() '())))
- (let ((#{w 20692}#
- (cons (car #{w 20685}#)
- (cons #{ribcage 20691}# (cdr #{w 20685}#)))))
+ (let ((#{first 59849}#
+ (#{expand 28271}#
+ (car #{body 59845}#)
+ #{r 59846}#
+ #{w 59847}#
+ #{mod 59848}#)))
+ (cons #{first 59849}#
+ (#{dobody 59762}#
+ (cdr #{body 59845}#)
+ #{r 59846}#
+ #{w 59847}#
+ #{mod 59848}#)))))))
+ (#{dobody 59762}#
+ #{body 59670}#
+ #{r 59671}#
+ #{w 59672}#
+ #{mod 59674}#)))))
+ (#{expand-top-sequence 28267}#
+ (lambda (#{body 44255}#
+ #{r 44256}#
+ #{w 44257}#
+ #{s 44258}#
+ #{m 44259}#
+ #{esew 44260}#
+ #{mod 44261}#)
+ (let ((#{r 44262}#
+ (cons '("placeholder" placeholder) #{r 44256}#)))
+ (let ((#{ribcage 44263}# (vector 'ribcage '() '() '())))
+ (let ((#{w 44264}#
+ (cons (car #{w 44257}#)
+ (cons #{ribcage 44263}# (cdr #{w 44257}#)))))
(letrec*
- ((#{record-definition! 20693}#
- (lambda (#{id 24185}# #{var 24186}#)
- (let ((#{mod 24187}#
+ ((#{record-definition! 44265}#
+ (lambda (#{id 47641}# #{var 47642}#)
+ (let ((#{mod 47643}#
(cons 'hygiene (module-name (current-module)))))
- (let ((#{label 24193}#
- (cons (vector-ref #{id 24185}# 3)
- (if (if (vector? #{var 24186}#)
- (if (= (vector-length #{var 24186}#)
+ (let ((#{label 47649}#
+ (cons (vector-ref #{id 47641}# 3)
+ (if (if (vector? #{var 47642}#)
+ (if (= (vector-length #{var 47642}#)
4)
- (eq? (vector-ref #{var 24186}# 0)
+ (eq? (vector-ref #{var 47642}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 24255}#
- (vector-ref #{var 24186}# 1))
- (#{wrap 24256}#
- (let ((#{w2 24266}#
+ (let ((#{expression 47711}#
+ (vector-ref #{var 47642}# 1))
+ (#{wrap 47712}#
+ (let ((#{w2 47722}#
(vector-ref
- #{var 24186}#
+ #{var 47642}#
2)))
- (cons (let ((#{m2 24273}#
- (car #{w2 24266}#)))
- (if (null? #{m2 24273}#)
+ (cons (let ((#{m2 47729}#
+ (car #{w2 47722}#)))
+ (if (null? #{m2 47729}#)
'(top)
(append
'(top)
- #{m2 24273}#)))
- (let ((#{m2 24282}#
- (cdr #{w2 24266}#)))
- (if (null? #{m2 24282}#)
+ #{m2 47729}#)))
+ (let ((#{m2 47738}#
+ (cdr #{w2 47722}#)))
+ (if (null? #{m2 47738}#)
'()
(append
'()
- #{m2 24282}#))))))
- (#{module 24257}#
- (vector-ref #{var 24186}# 3)))
+ #{m2 47738}#))))))
+ (#{module 47713}#
+ (vector-ref #{var 47642}# 3)))
(vector
'syntax-object
- #{expression 24255}#
- #{wrap 24256}#
- #{module 24257}#))
- (if (null? #{var 24186}#)
- #{var 24186}#
+ #{expression 47711}#
+ #{wrap 47712}#
+ #{module 47713}#))
+ (if (null? #{var 47642}#)
+ #{var 47642}#
(vector
'syntax-object
- #{var 24186}#
+ #{var 47642}#
'((top))
- #{mod 24187}#))))))
+ #{mod 47643}#))))))
(begin
- (let ((#{update 24196}#
- (cons (vector-ref #{id 24185}# 1)
- (vector-ref #{ribcage 20691}# 1))))
+ (let ((#{update 47652}#
+ (cons (vector-ref #{id 47641}# 1)
+ (vector-ref #{ribcage 44263}# 1))))
(vector-set!
- #{ribcage 20691}#
+ #{ribcage 44263}#
1
- #{update 24196}#))
- (let ((#{update 24211}#
- (cons (car (vector-ref #{id 24185}# 2))
- (vector-ref #{ribcage 20691}# 2))))
+ #{update 47652}#))
+ (let ((#{update 47667}#
+ (cons (car (vector-ref #{id 47641}# 2))
+ (vector-ref #{ribcage 44263}# 2))))
(vector-set!
- #{ribcage 20691}#
+ #{ribcage 44263}#
2
- #{update 24211}#))
- (let ((#{update 24226}#
- (cons #{label 24193}#
- (vector-ref #{ribcage 20691}# 3))))
+ #{update 47667}#))
+ (let ((#{update 47682}#
+ (cons #{label 47649}#
+ (vector-ref #{ribcage 44263}# 3))))
(vector-set!
- #{ribcage 20691}#
+ #{ribcage 44263}#
3
- #{update 24226}#)))))))
- (#{parse 20696}#
- (lambda (#{body 20901}#
- #{r 20902}#
- #{w 20903}#
- #{s 20904}#
- #{m 20905}#
- #{esew 20906}#
- #{mod 20907}#)
+ #{update 47682}#)))))))
+ (#{parse 44268}#
+ (lambda (#{body 44463}#
+ #{r 44464}#
+ #{w 44465}#
+ #{s 44466}#
+ #{m 44467}#
+ #{esew 44468}#
+ #{mod 44469}#)
(letrec*
- ((#{lp 20908}#
- (lambda (#{body 20995}# #{exps 20996}#)
- (if (null? #{body 20995}#)
- #{exps 20996}#
- (#{lp 20908}#
- (cdr #{body 20995}#)
+ ((#{lp 44470}#
+ (lambda (#{body 44553}# #{exps 44554}#)
+ (if (null? #{body 44553}#)
+ #{exps 44554}#
+ (#{lp 44470}#
+ (cdr #{body 44553}#)
(append
- (#{parse1 20697}#
- (car #{body 20995}#)
- #{r 20902}#
- #{w 20903}#
- #{s 20904}#
- #{m 20905}#
- #{esew 20906}#
- #{mod 20907}#)
- #{exps 20996}#))))))
- (#{lp 20908}# #{body 20901}# '()))))
- (#{parse1 20697}#
- (lambda (#{x 21070}#
- #{r 21071}#
- #{w 21072}#
- #{s 21073}#
- #{m 21074}#
- #{esew 21075}#
- #{mod 21076}#)
+ (#{parse1 44269}#
+ (car #{body 44553}#)
+ #{r 44464}#
+ #{w 44465}#
+ #{s 44466}#
+ #{m 44467}#
+ #{esew 44468}#
+ #{mod 44469}#)
+ #{exps 44554}#))))))
+ (#{lp 44470}# #{body 44463}# '()))))
+ (#{parse1 44269}#
+ (lambda (#{x 44624}#
+ #{r 44625}#
+ #{w 44626}#
+ #{s 44627}#
+ #{m 44628}#
+ #{esew 44629}#
+ #{mod 44630}#)
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{x 21070}#
- #{r 21071}#
- #{w 21072}#
- (#{source-annotation 4404}# #{x 21070}#)
- #{ribcage 20691}#
- #{mod 21076}#
+ (#{syntax-type 28270}#
+ #{x 44624}#
+ #{r 44625}#
+ #{w 44626}#
+ (#{source-annotation 28232}# #{x 44624}#)
+ #{ribcage 44263}#
+ #{mod 44630}#
#f))
- (lambda (#{type 21280}#
- #{value 21281}#
- #{e 21282}#
- #{w 21283}#
- #{s 21284}#
- #{mod 21285}#)
- (if (eqv? #{type 21280}# 'define-form)
- (let ((#{id 21289}#
- (if (if (null? (car #{w 21283}#))
- (null? (cdr #{w 21283}#))
+ (lambda (#{type 44816}#
+ #{value 44817}#
+ #{e 44818}#
+ #{w 44819}#
+ #{s 44820}#
+ #{mod 44821}#)
+ (if (eqv? #{type 44816}# 'define-form)
+ (let ((#{id 44825}#
+ (if (if (null? (car #{w 44819}#))
+ (null? (cdr #{w 44819}#))
#f)
- #{value 21281}#
- (if (if (vector? #{value 21281}#)
+ #{value 44817}#
+ (if (if (vector? #{value 44817}#)
(if (= (vector-length
- #{value 21281}#)
+ #{value 44817}#)
4)
- (eq? (vector-ref #{value 21281}# 0)
+ (eq? (vector-ref #{value 44817}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 21339}#
- (vector-ref #{value 21281}# 1))
- (#{wrap 21340}#
- (let ((#{w2 21350}#
+ (let ((#{expression 44875}#
+ (vector-ref #{value 44817}# 1))
+ (#{wrap 44876}#
+ (let ((#{w2 44886}#
(vector-ref
- #{value 21281}#
+ #{value 44817}#
2)))
- (let ((#{m1 21351}#
- (car #{w 21283}#))
- (#{s1 21352}#
- (cdr #{w 21283}#)))
- (if (null? #{m1 21351}#)
- (if (null? #{s1 21352}#)
- #{w2 21350}#
- (cons (car #{w2 21350}#)
- (let ((#{m2 21369}#
- (cdr #{w2 21350}#)))
- (if (null? #{m2 21369}#)
- #{s1 21352}#
+ (let ((#{m1 44887}#
+ (car #{w 44819}#))
+ (#{s1 44888}#
+ (cdr #{w 44819}#)))
+ (if (null? #{m1 44887}#)
+ (if (null? #{s1 44888}#)
+ #{w2 44886}#
+ (cons (car #{w2 44886}#)
+ (let ((#{m2 44905}#
+ (cdr #{w2 44886}#)))
+ (if (null? #{m2 44905}#)
+ #{s1 44888}#
(append
- #{s1 21352}#
- #{m2 21369}#)))))
- (cons (let ((#{m2 21377}#
- (car #{w2 21350}#)))
- (if (null? #{m2 21377}#)
- #{m1 21351}#
+ #{s1 44888}#
+ #{m2 44905}#)))))
+ (cons (let ((#{m2 44913}#
+ (car #{w2 44886}#)))
+ (if (null? #{m2 44913}#)
+ #{m1 44887}#
(append
- #{m1 21351}#
- #{m2 21377}#)))
- (let ((#{m2 21385}#
- (cdr #{w2 21350}#)))
- (if (null? #{m2 21385}#)
- #{s1 21352}#
+ #{m1 44887}#
+ #{m2 44913}#)))
+ (let ((#{m2 44921}#
+ (cdr #{w2 44886}#)))
+ (if (null? #{m2 44921}#)
+ #{s1 44888}#
(append
- #{s1 21352}#
- #{m2 21385}#))))))))
- (#{module 21341}#
- (vector-ref #{value 21281}# 3)))
+ #{s1 44888}#
+ #{m2 44921}#))))))))
+ (#{module 44877}#
+ (vector-ref #{value 44817}# 3)))
(vector
'syntax-object
- #{expression 21339}#
- #{wrap 21340}#
- #{module 21341}#))
- (if (null? #{value 21281}#)
- #{value 21281}#
+ #{expression 44875}#
+ #{wrap 44876}#
+ #{module 44877}#))
+ (if (null? #{value 44817}#)
+ #{value 44817}#
(vector
'syntax-object
- #{value 21281}#
- #{w 21283}#
- #{mod 21285}#))))))
+ #{value 44817}#
+ #{w 44819}#
+ #{mod 44821}#))))))
(begin
(symbol->string (gensym "i"))
- (let ((#{var 21291}#
+ (let ((#{var 44827}#
(if (not (equal?
(car (vector-ref
- #{id 21289}#
+ #{id 44825}#
2))
'(top)))
(symbol-append
- (vector-ref #{id 21289}# 1)
+ (vector-ref #{id 44825}# 1)
'-
(string->symbol
(number->string
- (hash (syntax->datum #{x 21070}#)
+ (hash (syntax->datum #{x 44624}#)
most-positive-fixnum)
16)))
- (vector-ref #{id 21289}# 1))))
+ (vector-ref #{id 44825}# 1))))
(begin
- (#{record-definition! 20693}#
- #{id 21289}#
- #{var 21291}#)
- (list (if (eq? #{m 21074}# 'c&e)
- (let ((#{x 21516}#
- (#{build-global-definition 4385}#
- #{s 21284}#
- #{var 21291}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))))
+ (#{record-definition! 44265}#
+ #{id 44825}#
+ #{var 44827}#)
+ (list (if (eq? #{m 44628}# 'c&e)
+ (let ((#{x 45047}#
+ (#{build-global-definition 28213}#
+ #{s 44820}#
+ #{var 44827}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))))
(begin
- (#{top-level-eval-hook 4370}#
- #{x 21516}#
- #{mod 21285}#)
- (lambda () #{x 21516}#)))
+ (#{top-level-eval-hook 28198}#
+ #{x 45047}#
+ #{mod 44821}#)
+ (lambda () #{x 45047}#)))
(lambda ()
- (#{build-global-definition 4385}#
- #{s 21284}#
- #{var 21291}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#)))))))))
- (if (if (eqv? #{type 21280}# 'define-syntax-form)
+ (#{build-global-definition 28213}#
+ #{s 44820}#
+ #{var 44827}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#)))))))))
+ (if (if (eqv? #{type 44816}# 'define-syntax-form)
#t
- (eqv? #{type 21280}#
+ (eqv? #{type 44816}#
'define-syntax-parameter-form))
- (let ((#{id 22032}#
- (if (if (null? (car #{w 21283}#))
- (null? (cdr #{w 21283}#))
+ (let ((#{id 45541}#
+ (if (if (null? (car #{w 44819}#))
+ (null? (cdr #{w 44819}#))
#f)
- #{value 21281}#
- (if (if (vector? #{value 21281}#)
+ #{value 44817}#
+ (if (if (vector? #{value 44817}#)
(if (= (vector-length
- #{value 21281}#)
+ #{value 44817}#)
4)
(eq? (vector-ref
- #{value 21281}#
+ #{value 44817}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 22082}#
- (vector-ref #{value 21281}# 1))
- (#{wrap 22083}#
- (let ((#{w2 22093}#
+ (let ((#{expression 45591}#
+ (vector-ref #{value 44817}# 1))
+ (#{wrap 45592}#
+ (let ((#{w2 45602}#
(vector-ref
- #{value 21281}#
+ #{value 44817}#
2)))
- (let ((#{m1 22094}#
- (car #{w 21283}#))
- (#{s1 22095}#
- (cdr #{w 21283}#)))
- (if (null? #{m1 22094}#)
- (if (null? #{s1 22095}#)
- #{w2 22093}#
- (cons (car #{w2 22093}#)
- (let ((#{m2 22112}#
- (cdr #{w2 22093}#)))
- (if (null? #{m2 22112}#)
- #{s1 22095}#
+ (let ((#{m1 45603}#
+ (car #{w 44819}#))
+ (#{s1 45604}#
+ (cdr #{w 44819}#)))
+ (if (null? #{m1 45603}#)
+ (if (null? #{s1 45604}#)
+ #{w2 45602}#
+ (cons (car #{w2 45602}#)
+ (let ((#{m2 45621}#
+ (cdr #{w2 45602}#)))
+ (if (null? #{m2 45621}#)
+ #{s1 45604}#
(append
- #{s1 22095}#
- #{m2 22112}#)))))
- (cons (let ((#{m2 22120}#
- (car #{w2 22093}#)))
- (if (null? #{m2 22120}#)
- #{m1 22094}#
+ #{s1 45604}#
+ #{m2 45621}#)))))
+ (cons (let ((#{m2 45629}#
+ (car #{w2 45602}#)))
+ (if (null? #{m2 45629}#)
+ #{m1 45603}#
(append
- #{m1 22094}#
- #{m2 22120}#)))
- (let ((#{m2 22128}#
- (cdr #{w2 22093}#)))
- (if (null? #{m2 22128}#)
- #{s1 22095}#
+ #{m1 45603}#
+ #{m2 45629}#)))
+ (let ((#{m2 45637}#
+ (cdr #{w2 45602}#)))
+ (if (null? #{m2 45637}#)
+ #{s1 45604}#
(append
- #{s1 22095}#
- #{m2 22128}#))))))))
- (#{module 22084}#
+ #{s1 45604}#
+ #{m2 45637}#))))))))
+ (#{module 45593}#
(vector-ref
- #{value 21281}#
+ #{value 44817}#
3)))
(vector
'syntax-object
- #{expression 22082}#
- #{wrap 22083}#
- #{module 22084}#))
- (if (null? #{value 21281}#)
- #{value 21281}#
+ #{expression 45591}#
+ #{wrap 45592}#
+ #{module 45593}#))
+ (if (null? #{value 44817}#)
+ #{value 44817}#
(vector
'syntax-object
- #{value 21281}#
- #{w 21283}#
- #{mod 21285}#))))))
+ #{value 44817}#
+ #{w 44819}#
+ #{mod 44821}#))))))
(begin
(symbol->string (gensym "i"))
- (let ((#{var 22034}#
+ (let ((#{var 45543}#
(if (not (equal?
(car (vector-ref
- #{id 22032}#
+ #{id 45541}#
2))
'(top)))
(symbol-append
- (vector-ref #{id 22032}# 1)
+ (vector-ref #{id 45541}# 1)
'-
(string->symbol
(number->string
(hash (syntax->datum
- #{x 21070}#)
+ #{x 44624}#)
most-positive-fixnum)
16)))
- (vector-ref #{id 22032}# 1))))
+ (vector-ref #{id 45541}# 1))))
(begin
- (#{record-definition! 20693}#
- #{id 22032}#
- #{var 22034}#)
- (if (eqv? #{m 21074}# 'c)
- (if (memq 'compile #{esew 21075}#)
- (let ((#{e 22262}#
- (#{expand-install-global 4440}#
- #{var 22034}#
- #{type 21280}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))))
+ (#{record-definition! 44265}#
+ #{id 45541}#
+ #{var 45543}#)
+ (if (eqv? #{m 44628}# 'c)
+ (if (memq 'compile #{esew 44629}#)
+ (let ((#{e 45766}#
+ (#{expand-install-global 28268}#
+ #{var 45543}#
+ #{type 44816}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))))
(begin
- (#{top-level-eval-hook 4370}#
- #{e 22262}#
- #{mod 21285}#)
- (if (memq 'load #{esew 21075}#)
- (list (lambda () #{e 22262}#))
+ (#{top-level-eval-hook 28198}#
+ #{e 45766}#
+ #{mod 44821}#)
+ (if (memq 'load #{esew 44629}#)
+ (list (lambda () #{e 45766}#))
'())))
- (if (memq 'load #{esew 21075}#)
+ (if (memq 'load #{esew 44629}#)
(list (lambda ()
- (#{expand-install-global 4440}#
- #{var 22034}#
- #{type 21280}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))))
+ (#{expand-install-global 28268}#
+ #{var 45543}#
+ #{type 44816}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))))
'()))
- (if (eqv? #{m 21074}# 'c&e)
- (let ((#{e 22782}#
- (#{expand-install-global 4440}#
- #{var 22034}#
- #{type 21280}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))))
+ (if (eqv? #{m 44628}# 'c&e)
+ (let ((#{e 46269}#
+ (#{expand-install-global 28268}#
+ #{var 45543}#
+ #{type 44816}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))))
(begin
- (#{top-level-eval-hook 4370}#
- #{e 22782}#
- #{mod 21285}#)
- (list (lambda () #{e 22782}#))))
+ (#{top-level-eval-hook 28198}#
+ #{e 46269}#
+ #{mod 44821}#)
+ (list (lambda () #{e 46269}#))))
(begin
- (if (memq 'eval #{esew 21075}#)
- (#{top-level-eval-hook 4370}#
- (#{expand-install-global 4440}#
- #{var 22034}#
- #{type 21280}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))
- #{mod 21285}#))
+ (if (memq 'eval #{esew 44629}#)
+ (#{top-level-eval-hook 28198}#
+ (#{expand-install-global 28268}#
+ #{var 45543}#
+ #{type 44816}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))
+ #{mod 44821}#))
'())))))))
- (if (eqv? #{type 21280}# 'begin-form)
- (let ((#{tmp 23411}#
+ (if (eqv? #{type 44816}# 'begin-form)
+ (let ((#{tmp 46879}#
($sc-dispatch
- #{e 21282}#
+ #{e 44818}#
'(_ . each-any))))
- (if #{tmp 23411}#
+ (if #{tmp 46879}#
(@apply
- (lambda (#{e1 23415}#)
- (#{parse 20696}#
- #{e1 23415}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{m 21074}#
- #{esew 21075}#
- #{mod 21285}#))
- #{tmp 23411}#)
+ (lambda (#{e1 46883}#)
+ (#{parse 44268}#
+ #{e1 46883}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{m 44628}#
+ #{esew 44629}#
+ #{mod 44821}#))
+ #{tmp 46879}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 21282}#)))
- (if (eqv? #{type 21280}# 'local-syntax-form)
- (#{expand-local-syntax 4448}#
- #{value 21281}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{mod 21285}#
- (lambda (#{forms 23461}#
- #{r 23462}#
- #{w 23463}#
- #{s 23464}#
- #{mod 23465}#)
- (#{parse 20696}#
- #{forms 23461}#
- #{r 23462}#
- #{w 23463}#
- #{s 23464}#
- #{m 21074}#
- #{esew 21075}#
- #{mod 23465}#)))
- (if (eqv? #{type 21280}# 'eval-when-form)
- (let ((#{tmp 23504}#
+ #{e 44818}#)))
+ (if (eqv? #{type 44816}# 'local-syntax-form)
+ (#{expand-local-syntax 28276}#
+ #{value 44817}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{mod 44821}#
+ (lambda (#{forms 46926}#
+ #{r 46927}#
+ #{w 46928}#
+ #{s 46929}#
+ #{mod 46930}#)
+ (#{parse 44268}#
+ #{forms 46926}#
+ #{r 46927}#
+ #{w 46928}#
+ #{s 46929}#
+ #{m 44628}#
+ #{esew 44629}#
+ #{mod 46930}#)))
+ (if (eqv? #{type 44816}# 'eval-when-form)
+ (let ((#{tmp 46966}#
($sc-dispatch
- #{e 21282}#
+ #{e 44818}#
'(_ each-any any . each-any))))
- (if #{tmp 23504}#
+ (if #{tmp 46966}#
(@apply
- (lambda (#{x 23508}#
- #{e1 23509}#
- #{e2 23510}#)
- (let ((#{when-list 23511}#
- (#{parse-when-list 4441}#
- #{e 21282}#
- #{x 23508}#))
- (#{body 23512}#
- (cons #{e1 23509}#
- #{e2 23510}#)))
+ (lambda (#{x 46970}#
+ #{e1 46971}#
+ #{e2 46972}#)
+ (let ((#{when-list 46973}#
+ (#{parse-when-list 28269}#
+ #{e 44818}#
+ #{x 46970}#))
+ (#{body 46974}#
+ (cons #{e1 46971}#
+ #{e2 46972}#)))
(letrec*
- ((#{recurse 23513}#
- (lambda (#{m 24102}#
- #{esew 24103}#)
- (#{parse 20696}#
- #{body 23512}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{m 24102}#
- #{esew 24103}#
- #{mod 21285}#))))
- (if (eq? #{m 21074}# 'e)
+ ((#{recurse 46975}#
+ (lambda (#{m 47561}#
+ #{esew 47562}#)
+ (#{parse 44268}#
+ #{body 46974}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{m 47561}#
+ #{esew 47562}#
+ #{mod 44821}#))))
+ (if (eq? #{m 44628}# 'e)
(if (memq 'eval
- #{when-list 23511}#)
- (#{recurse 23513}#
+ #{when-list 46973}#)
+ (#{recurse 46975}#
(if (memq 'expand
- #{when-list 23511}#)
+ #{when-list 46973}#)
'c&e
'e)
'(eval))
(begin
(if (memq 'expand
- #{when-list 23511}#)
- (let ((#{x 23621}#
- (#{expand-top-sequence 4439}#
- #{body 23512}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
+ #{when-list 46973}#)
+ (let ((#{x 47082}#
+ (#{expand-top-sequence 28267}#
+ #{body 46974}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
'e
'(eval)
- #{mod 21285}#)))
+ #{mod 44821}#)))
(primitive-eval
- #{x 23621}#)))
+ #{x 47082}#)))
'()))
(if (memq 'load
- #{when-list 23511}#)
- (if (let ((#{t 23649}#
+ #{when-list 46973}#)
+ (if (let ((#{t 47110}#
(memq 'compile
- #{when-list 23511}#)))
- (if #{t 23649}#
- #{t 23649}#
- (let ((#{t 23702}#
+ #{when-list 46973}#)))
+ (if #{t 47110}#
+ #{t 47110}#
+ (let ((#{t 47163}#
(memq 'expand
- #{when-list 23511}#)))
- (if #{t 23702}#
- #{t 23702}#
- (if (eq? #{m 21074}#
+ #{when-list 46973}#)))
+ (if #{t 47163}#
+ #{t 47163}#
+ (if (eq? #{m 44628}#
'c&e)
(memq 'eval
- #{when-list 23511}#)
+ #{when-list 46973}#)
#f)))))
- (#{recurse 23513}#
+ (#{recurse 46975}#
'c&e
'(compile load))
- (if (if (eq? #{m 21074}#
+ (if (if (eq? #{m 44628}#
'c)
#t
- (eq? #{m 21074}#
+ (eq? #{m 44628}#
'c&e))
- (#{recurse 23513}#
+ (#{recurse 46975}#
'c
'(load))
'()))
- (if (let ((#{t 23913}#
+ (if (let ((#{t 47372}#
(memq 'compile
- #{when-list 23511}#)))
- (if #{t 23913}#
- #{t 23913}#
- (let ((#{t 23966}#
+ #{when-list 46973}#)))
+ (if #{t 47372}#
+ #{t 47372}#
+ (let ((#{t 47425}#
(memq 'expand
- #{when-list 23511}#)))
- (if #{t 23966}#
- #{t 23966}#
- (if (eq? #{m 21074}#
+ #{when-list 46973}#)))
+ (if #{t 47425}#
+ #{t 47425}#
+ (if (eq? #{m 44628}#
'c&e)
(memq 'eval
- #{when-list 23511}#)
+ #{when-list 46973}#)
#f)))))
(begin
- (let ((#{x 24100}#
- (#{expand-top-sequence 4439}#
- #{body 23512}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
+ (let ((#{x 47559}#
+ (#{expand-top-sequence 28267}#
+ #{body 46974}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
'e
'(eval)
- #{mod 21285}#)))
+ #{mod 44821}#)))
(primitive-eval
- #{x 24100}#))
+ #{x 47559}#))
'())
'()))))))
- #{tmp 23504}#)
+ #{tmp 46966}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 21282}#)))
- (list (if (eq? #{m 21074}# 'c&e)
- (let ((#{x 24176}#
- (#{expand-expr 4444}#
- #{type 21280}#
- #{value 21281}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{mod 21285}#)))
+ #{e 44818}#)))
+ (list (if (eq? #{m 44628}# 'c&e)
+ (let ((#{x 47632}#
+ (#{expand-expr 28272}#
+ #{type 44816}#
+ #{value 44817}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{mod 44821}#)))
(begin
- (primitive-eval #{x 24176}#)
- (lambda () #{x 24176}#)))
+ (primitive-eval #{x 47632}#)
+ (lambda () #{x 47632}#)))
(lambda ()
- (#{expand-expr 4444}#
- #{type 21280}#
- #{value 21281}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{mod 21285}#))))))))))))))
- (let ((#{exps 20698}#
- (map (lambda (#{x 20829}#) (#{x 20829}#))
+ (#{expand-expr 28272}#
+ #{type 44816}#
+ #{value 44817}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{mod 44821}#))))))))))))))
+ (let ((#{exps 44270}#
+ (map (lambda (#{x 44393}#) (#{x 44393}#))
(reverse
- (#{parse 20696}#
- #{body 20683}#
- #{r 20690}#
- #{w 20692}#
- #{s 20686}#
- #{m 20687}#
- #{esew 20688}#
- #{mod 20689}#)))))
- (if (null? #{exps 20698}#)
+ (#{parse 44268}#
+ #{body 44255}#
+ #{r 44262}#
+ #{w 44264}#
+ #{s 44258}#
+ #{m 44259}#
+ #{esew 44260}#
+ #{mod 44261}#)))))
+ (if (null? #{exps 44270}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s 20686}#)
- (#{build-sequence 4392}#
- #{s 20686}#
- #{exps 20698}#)))))))))
- (#{expand-install-global 4440}#
- (lambda (#{name 24304}# #{type 24305}# #{e 24306}#)
- (let ((#{exp 24312}#
- (let ((#{args 24323}#
- (if (eq? #{type 24305}#
+ #{s 44258}#)
+ (#{build-sequence 28220}#
+ #{s 44258}#
+ #{exps 44270}#)))))))))
+ (#{expand-install-global 28268}#
+ (lambda (#{name 47760}# #{type 47761}# #{e 47762}#)
+ (let ((#{exp 47768}#
+ (let ((#{args 47779}#
+ (if (eq? #{type 47761}#
'define-syntax-parameter-form)
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 24304}#)
+ #{name 47760}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'syntax-parameter)
- (let ((#{args 24346}# (list #{e 24306}#)))
+ (let ((#{args 47802}# (list #{e 47762}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'list
- #{args 24346}#)))
+ #{args 47802}#)))
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 24304}#)
+ #{name 47760}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 24306}#))))
+ #{e 47762}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'make-syntax-transformer
- #{args 24323}#))))
+ #{args 47779}#))))
(begin
- (if (if (struct? #{exp 24312}#)
- (eq? (struct-vtable #{exp 24312}#)
+ (if (if (struct? #{exp 47768}#)
+ (eq? (struct-vtable #{exp 47768}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 24373}# (struct-ref #{exp 24312}# 1)))
- (if (not (assq 'name #{meta 24373}#))
- (let ((#{v 24380}#
- (cons (cons 'name #{name 24304}#) #{meta 24373}#)))
- (struct-set! #{exp 24312}# 1 #{v 24380}#)))))
+ (let ((#{meta 47829}# (struct-ref #{exp 47768}# 1)))
+ (if (not (assq 'name #{meta 47829}#))
+ (let ((#{v 47836}#
+ (cons (cons 'name #{name 47760}#) #{meta 47829}#)))
+ (struct-set! #{exp 47768}# 1 #{v 47836}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 24304}#
- #{exp 24312}#)))))
- (#{parse-when-list 4441}#
- (lambda (#{e 24391}# #{when-list 24392}#)
- (let ((#{result 24393}#
- (#{strip 4456}# #{when-list 24392}# '(()))))
+ #{name 47760}#
+ #{exp 47768}#)))))
+ (#{parse-when-list 28269}#
+ (lambda (#{e 47847}# #{when-list 47848}#)
+ (let ((#{result 47849}#
+ (#{strip 28284}# #{when-list 47848}# '(()))))
(letrec*
- ((#{lp 24394}#
- (lambda (#{l 24460}#)
- (if (null? #{l 24460}#)
- #{result 24393}#
- (if (let ((#{t 24462}# (car #{l 24460}#)))
- (if (eq? #{t 24462}# 'compile)
+ ((#{lp 47850}#
+ (lambda (#{l 47916}#)
+ (if (null? #{l 47916}#)
+ #{result 47849}#
+ (if (let ((#{t 47918}# (car #{l 47916}#)))
+ (if (eq? #{t 47918}# 'compile)
#t
- (if (eq? #{t 24462}# 'load)
+ (if (eq? #{t 47918}# 'load)
#t
- (if (eq? #{t 24462}# 'eval)
+ (if (eq? #{t 47918}# 'eval)
#t
- (eq? #{t 24462}# 'expand)))))
- (#{lp 24394}# (cdr #{l 24460}#))
+ (eq? #{t 47918}# 'expand)))))
+ (#{lp 47850}# (cdr #{l 47916}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e 24391}#
- (car #{l 24460}#)))))))
- (#{lp 24394}# #{result 24393}#)))))
- (#{syntax-type 4442}#
- (lambda (#{e 24464}#
- #{r 24465}#
- #{w 24466}#
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#
- #{for-car? 24470}#)
- (if (symbol? #{e 24464}#)
+ #{e 47847}#
+ (car #{l 47916}#)))))))
+ (#{lp 47850}# #{result 47849}#)))))
+ (#{syntax-type 28270}#
+ (lambda (#{e 47920}#
+ #{r 47921}#
+ #{w 47922}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#
+ #{for-car? 47926}#)
+ (if (symbol? #{e 47920}#)
(call-with-values
(lambda ()
- (#{resolve-identifier 4430}#
- #{e 24464}#
- #{w 24466}#
- #{r 24465}#
- #{mod 24469}#
+ (#{resolve-identifier 28258}#
+ #{e 47920}#
+ #{w 47922}#
+ #{r 47921}#
+ #{mod 47925}#
#t))
- (lambda (#{type 24473}# #{value 24474}# #{mod* 24475}#)
- (if (eqv? #{type 24473}# 'macro)
- (if #{for-car? 24470}#
+ (lambda (#{type 47929}# #{value 47930}# #{mod* 47931}#)
+ (if (eqv? #{type 47929}# 'macro)
+ (if #{for-car? 47926}#
(values
- #{type 24473}#
- #{value 24474}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (#{syntax-type 4442}#
- (#{expand-macro 4446}#
- #{value 24474}#
- #{e 24464}#
- #{r 24465}#
- #{w 24466}#
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#)
- #{r 24465}#
+ #{type 47929}#
+ #{value 47930}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (#{syntax-type 28270}#
+ (#{expand-macro 28274}#
+ #{value 47930}#
+ #{e 47920}#
+ #{r 47921}#
+ #{w 47922}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#)
+ #{r 47921}#
'(())
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#
#f))
- (if (eqv? #{type 24473}# 'global)
+ (if (eqv? #{type 47929}# 'global)
(values
- #{type 24473}#
- #{value 24474}#
- #{value 24474}#
- #{w 24466}#
- #{s 24467}#
- #{mod* 24475}#)
+ #{type 47929}#
+ #{value 47930}#
+ #{value 47930}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod* 47931}#)
(values
- #{type 24473}#
- #{value 24474}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)))))
- (if (pair? #{e 24464}#)
- (let ((#{first 24484}# (car #{e 24464}#)))
+ #{type 47929}#
+ #{value 47930}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)))))
+ (if (pair? #{e 47920}#)
+ (let ((#{first 47940}# (car #{e 47920}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{first 24484}#
- #{r 24465}#
- #{w 24466}#
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#
+ (#{syntax-type 28270}#
+ #{first 47940}#
+ #{r 47921}#
+ #{w 47922}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#
#t))
- (lambda (#{ftype 24486}#
- #{fval 24487}#
- #{fe 24488}#
- #{fw 24489}#
- #{fs 24490}#
- #{fmod 24491}#)
- (if (eqv? #{ftype 24486}# 'lexical)
+ (lambda (#{ftype 47942}#
+ #{fval 47943}#
+ #{fe 47944}#
+ #{fw 47945}#
+ #{fs 47946}#
+ #{fmod 47947}#)
+ (if (eqv? #{ftype 47942}# 'lexical)
(values
'lexical-call
- #{fval 24487}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'global)
+ #{fval 47943}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 24487}#
- #{w 24466}#
- #{fmod 24491}#)
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'macro)
- (#{syntax-type 4442}#
- (#{expand-macro 4446}#
- #{fval 24487}#
- #{e 24464}#
- #{r 24465}#
- #{w 24466}#
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#)
- #{r 24465}#
+ #{fval 47943}#
+ #{w 47922}#
+ #{fmod 47947}#)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'macro)
+ (#{syntax-type 28270}#
+ (#{expand-macro 28274}#
+ #{fval 47943}#
+ #{e 47920}#
+ #{r 47921}#
+ #{w 47922}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#)
+ #{r 47921}#
'(())
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#
- #{for-car? 24470}#)
- (if (eqv? #{ftype 24486}# 'module-ref)
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#
+ #{for-car? 47926}#)
+ (if (eqv? #{ftype 47942}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 24487}#
- #{e 24464}#
- #{r 24465}#
- #{w 24466}#))
- (lambda (#{e 24512}#
- #{r 24513}#
- #{w 24514}#
- #{s 24515}#
- #{mod 24516}#)
- (#{syntax-type 4442}#
- #{e 24512}#
- #{r 24513}#
- #{w 24514}#
- #{s 24515}#
- #{rib 24468}#
- #{mod 24516}#
- #{for-car? 24470}#)))
- (if (eqv? #{ftype 24486}# 'core)
+ (#{fval 47943}#
+ #{e 47920}#
+ #{r 47921}#
+ #{w 47922}#))
+ (lambda (#{e 47968}#
+ #{r 47969}#
+ #{w 47970}#
+ #{s 47971}#
+ #{mod 47972}#)
+ (#{syntax-type 28270}#
+ #{e 47968}#
+ #{r 47969}#
+ #{w 47970}#
+ #{s 47971}#
+ #{rib 47924}#
+ #{mod 47972}#
+ #{for-car? 47926}#)))
+ (if (eqv? #{ftype 47942}# 'core)
(values
'core-form
- #{fval 24487}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'local-syntax)
+ #{fval 47943}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'local-syntax)
(values
'local-syntax-form
- #{fval 24487}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'begin)
+ #{fval 47943}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'begin)
(values
'begin-form
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'eval-when)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'eval-when)
(values
'eval-when-form
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'define)
- (let ((#{tmp 24533}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'define)
+ (let ((#{tmp 47989}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ any any))))
- (if (if #{tmp 24533}#
+ (if (if #{tmp 47989}#
(@apply
- (lambda (#{name 24537}#
- #{val 24538}#)
- (if (symbol? #{name 24537}#)
+ (lambda (#{name 47993}#
+ #{val 47994}#)
+ (if (symbol? #{name 47993}#)
#t
(if (if (vector?
- #{name 24537}#)
+ #{name 47993}#)
(if (= (vector-length
- #{name 24537}#)
+ #{name 47993}#)
4)
(eq? (vector-ref
- #{name 24537}#
+ #{name 47993}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 24537}#
+ #{name 47993}#
1))
#f)))
- #{tmp 24533}#)
+ #{tmp 47989}#)
#f)
(@apply
- (lambda (#{name 24565}# #{val 24566}#)
+ (lambda (#{name 48021}# #{val 48022}#)
(values
'define-form
- #{name 24565}#
- #{val 24566}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 24533}#)
- (let ((#{tmp 24567}#
+ #{name 48021}#
+ #{val 48022}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 47989}#)
+ (let ((#{tmp 48023}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 24567}#
+ (if (if #{tmp 48023}#
(@apply
- (lambda (#{name 24571}#
- #{args 24572}#
- #{e1 24573}#
- #{e2 24574}#)
+ (lambda (#{name 48027}#
+ #{args 48028}#
+ #{e1 48029}#
+ #{e2 48030}#)
(if (if (symbol?
- #{name 24571}#)
+ #{name 48027}#)
#t
(if (if (vector?
- #{name 24571}#)
+ #{name 48027}#)
(if (= (vector-length
- #{name 24571}#)
+ #{name 48027}#)
4)
(eq? (vector-ref
- #{name 24571}#
+ #{name 48027}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 24571}#
+ #{name 48027}#
1))
#f))
- (#{valid-bound-ids? 4433}#
- (#{lambda-var-list 4458}#
- #{args 24572}#))
+ (#{valid-bound-ids? 28261}#
+ (#{lambda-var-list 28286}#
+ #{args 48028}#))
#f))
- #{tmp 24567}#)
+ #{tmp 48023}#)
#f)
(@apply
- (lambda (#{name 25055}#
- #{args 25056}#
- #{e1 25057}#
- #{e2 25058}#)
+ (lambda (#{name 48493}#
+ #{args 48494}#
+ #{e1 48495}#
+ #{e2 48496}#)
(values
'define-form
- (if (if (null? (car #{w 24466}#))
- (null? (cdr #{w 24466}#))
+ (if (if (null? (car #{w 47922}#))
+ (null? (cdr #{w 47922}#))
#f)
- #{name 25055}#
+ #{name 48493}#
(if (if (vector?
- #{name 25055}#)
+ #{name 48493}#)
(if (= (vector-length
- #{name 25055}#)
+ #{name 48493}#)
4)
(eq? (vector-ref
- #{name 25055}#
+ #{name 48493}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 25088}#
+ (let ((#{expression 48526}#
(vector-ref
- #{name 25055}#
+ #{name 48493}#
1))
- (#{wrap 25089}#
- (let ((#{w2 25099}#
+ (#{wrap 48527}#
+ (let ((#{w2 48537}#
(vector-ref
- #{name 25055}#
+ #{name 48493}#
2)))
- (let ((#{m1 25100}#
- (car #{w 24466}#))
- (#{s1 25101}#
- (cdr #{w 24466}#)))
- (if (null? #{m1 25100}#)
- (if (null? #{s1 25101}#)
- #{w2 25099}#
- (cons (car #{w2 25099}#)
- (let ((#{m2 25118}#
- (cdr #{w2 25099}#)))
- (if (null? #{m2 25118}#)
- #{s1 25101}#
+ (let ((#{m1 48538}#
+ (car #{w 47922}#))
+ (#{s1 48539}#
+ (cdr #{w 47922}#)))
+ (if (null? #{m1 48538}#)
+ (if (null? #{s1 48539}#)
+ #{w2 48537}#
+ (cons (car #{w2 48537}#)
+ (let ((#{m2 48556}#
+ (cdr #{w2 48537}#)))
+ (if (null? #{m2 48556}#)
+ #{s1 48539}#
(append
- #{s1 25101}#
- #{m2 25118}#)))))
- (cons (let ((#{m2 25126}#
- (car #{w2 25099}#)))
- (if (null? #{m2 25126}#)
- #{m1 25100}#
+ #{s1 48539}#
+ #{m2 48556}#)))))
+ (cons (let ((#{m2 48564}#
+ (car #{w2 48537}#)))
+ (if (null? #{m2 48564}#)
+ #{m1 48538}#
(append
- #{m1 25100}#
- #{m2 25126}#)))
- (let ((#{m2 25134}#
- (cdr #{w2 25099}#)))
- (if (null? #{m2 25134}#)
- #{s1 25101}#
+ #{m1 48538}#
+ #{m2 48564}#)))
+ (let ((#{m2 48572}#
+ (cdr #{w2 48537}#)))
+ (if (null? #{m2 48572}#)
+ #{s1 48539}#
(append
- #{s1 25101}#
- #{m2 25134}#))))))))
- (#{module 25090}#
+ #{s1 48539}#
+ #{m2 48572}#))))))))
+ (#{module 48528}#
(vector-ref
- #{name 25055}#
+ #{name 48493}#
3)))
(vector
'syntax-object
- #{expression 25088}#
- #{wrap 25089}#
- #{module 25090}#))
- (if (null? #{name 25055}#)
- #{name 25055}#
+ #{expression 48526}#
+ #{wrap 48527}#
+ #{module 48528}#))
+ (if (null? #{name 48493}#)
+ #{name 48493}#
(vector
'syntax-object
- #{name 25055}#
- #{w 24466}#
- #{mod 24469}#))))
- (let ((#{e 25160}#
+ #{name 48493}#
+ #{w 47922}#
+ #{mod 47925}#))))
+ (let ((#{e 48598}#
(cons '#(syntax-object
lambda
((top)
@@ -2005,10 +2007,10 @@
(top)
(top)
(top))
- #("i1952"
- "i1953"
- "i1954"
- "i1955"))
+ #("i25779"
+ "i25780"
+ "i25781"
+ "i25782"))
#(ribcage
()
()
@@ -2030,12 +2032,12 @@
(top)
(top)
(top))
- #("i1905"
- "i1906"
- "i1907"
- "i1908"
- "i1909"
- "i1910"))
+ #("i25732"
+ "i25733"
+ "i25734"
+ "i25735"
+ "i25736"
+ "i25737"))
#(ribcage
()
()
@@ -2043,7 +2045,7 @@
#(ribcage
#(first)
#((top))
- #("i1897"))
+ #("i25724"))
#(ribcage
()
()
@@ -2071,13 +2073,13 @@
(top)
(top)
(top))
- #("i1876"
- "i1877"
- "i1878"
- "i1879"
- "i1880"
- "i1881"
- "i1882"))
+ #("i25703"
+ "i25704"
+ "i25705"
+ "i25706"
+ "i25707"
+ "i25708"
+ "i25709"))
#(ribcage
(lambda-var-list
gen-var
@@ -2355,144 +2357,144 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2500,208 +2502,208 @@
((top)
(top)
(top))
- ("i46"
- "i45"
- "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage
()
()
()))
(hygiene
guile))
- (let ((#{x 25164}#
- (cons #{args 25056}#
- (cons #{e1 25057}#
- #{e2 25058}#))))
- (if (if (null? (car #{w 24466}#))
- (null? (cdr #{w 24466}#))
+ (let ((#{x 48602}#
+ (cons #{args 48494}#
+ (cons #{e1 48495}#
+ #{e2 48496}#))))
+ (if (if (null? (car #{w 47922}#))
+ (null? (cdr #{w 47922}#))
#f)
- #{x 25164}#
+ #{x 48602}#
(if (if (vector?
- #{x 25164}#)
+ #{x 48602}#)
(if (= (vector-length
- #{x 25164}#)
+ #{x 48602}#)
4)
(eq? (vector-ref
- #{x 25164}#
+ #{x 48602}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 25182}#
+ (let ((#{expression 48620}#
(vector-ref
- #{x 25164}#
+ #{x 48602}#
1))
- (#{wrap 25183}#
- (let ((#{w2 25191}#
+ (#{wrap 48621}#
+ (let ((#{w2 48629}#
(vector-ref
- #{x 25164}#
+ #{x 48602}#
2)))
- (let ((#{m1 25192}#
- (car #{w 24466}#))
- (#{s1 25193}#
- (cdr #{w 24466}#)))
- (if (null? #{m1 25192}#)
- (if (null? #{s1 25193}#)
- #{w2 25191}#
- (cons (car #{w2 25191}#)
- (let ((#{m2 25208}#
- (cdr #{w2 25191}#)))
- (if (null? #{m2 25208}#)
- #{s1 25193}#
+ (let ((#{m1 48630}#
+ (car #{w 47922}#))
+ (#{s1 48631}#
+ (cdr #{w 47922}#)))
+ (if (null? #{m1 48630}#)
+ (if (null? #{s1 48631}#)
+ #{w2 48629}#
+ (cons (car #{w2 48629}#)
+ (let ((#{m2 48646}#
+ (cdr #{w2 48629}#)))
+ (if (null? #{m2 48646}#)
+ #{s1 48631}#
(append
- #{s1 25193}#
- #{m2 25208}#)))))
- (cons (let ((#{m2 25216}#
- (car #{w2 25191}#)))
- (if (null? #{m2 25216}#)
- #{m1 25192}#
+ #{s1 48631}#
+ #{m2 48646}#)))))
+ (cons (let ((#{m2 48654}#
+ (car #{w2 48629}#)))
+ (if (null? #{m2 48654}#)
+ #{m1 48630}#
(append
- #{m1 25192}#
- #{m2 25216}#)))
- (let ((#{m2 25224}#
- (cdr #{w2 25191}#)))
- (if (null? #{m2 25224}#)
- #{s1 25193}#
+ #{m1 48630}#
+ #{m2 48654}#)))
+ (let ((#{m2 48662}#
+ (cdr #{w2 48629}#)))
+ (if (null? #{m2 48662}#)
+ #{s1 48631}#
(append
- #{s1 25193}#
- #{m2 25224}#))))))))
- (#{module 25184}#
+ #{s1 48631}#
+ #{m2 48662}#))))))))
+ (#{module 48622}#
(vector-ref
- #{x 25164}#
+ #{x 48602}#
3)))
(vector
'syntax-object
- #{expression 25182}#
- #{wrap 25183}#
- #{module 25184}#))
- (if (null? #{x 25164}#)
- #{x 25164}#
+ #{expression 48620}#
+ #{wrap 48621}#
+ #{module 48622}#))
+ (if (null? #{x 48602}#)
+ #{x 48602}#
(vector
'syntax-object
- #{x 25164}#
- #{w 24466}#
- #{mod 24469}#))))))))
+ #{x 48602}#
+ #{w 47922}#
+ #{mod 47925}#))))))))
(begin
- (if (if (pair? #{e 25160}#)
- #{s 24467}#
+ (if (if (pair? #{e 48598}#)
+ #{s 47923}#
#f)
(set-source-properties!
- #{e 25160}#
- #{s 24467}#))
- #{e 25160}#))
+ #{e 48598}#
+ #{s 47923}#))
+ #{e 48598}#))
'(())
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 24567}#)
- (let ((#{tmp 25243}#
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 48023}#)
+ (let ((#{tmp 48681}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ any))))
- (if (if #{tmp 25243}#
+ (if (if #{tmp 48681}#
(@apply
- (lambda (#{name 25247}#)
+ (lambda (#{name 48685}#)
(if (symbol?
- #{name 25247}#)
+ #{name 48685}#)
#t
(if (if (vector?
- #{name 25247}#)
+ #{name 48685}#)
(if (= (vector-length
- #{name 25247}#)
+ #{name 48685}#)
4)
(eq? (vector-ref
- #{name 25247}#
+ #{name 48685}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25247}#
+ #{name 48685}#
1))
#f)))
- #{tmp 25243}#)
+ #{tmp 48681}#)
#f)
(@apply
- (lambda (#{name 25274}#)
+ (lambda (#{name 48712}#)
(values
'define-form
- (if (if (null? (car #{w 24466}#))
- (null? (cdr #{w 24466}#))
+ (if (if (null? (car #{w 47922}#))
+ (null? (cdr #{w 47922}#))
#f)
- #{name 25274}#
+ #{name 48712}#
(if (if (vector?
- #{name 25274}#)
+ #{name 48712}#)
(if (= (vector-length
- #{name 25274}#)
+ #{name 48712}#)
4)
(eq? (vector-ref
- #{name 25274}#
+ #{name 48712}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 25304}#
+ (let ((#{expression 48742}#
(vector-ref
- #{name 25274}#
+ #{name 48712}#
1))
- (#{wrap 25305}#
- (let ((#{w2 25315}#
+ (#{wrap 48743}#
+ (let ((#{w2 48753}#
(vector-ref
- #{name 25274}#
+ #{name 48712}#
2)))
- (let ((#{m1 25316}#
- (car #{w 24466}#))
- (#{s1 25317}#
- (cdr #{w 24466}#)))
- (if (null? #{m1 25316}#)
- (if (null? #{s1 25317}#)
- #{w2 25315}#
- (cons (car #{w2 25315}#)
- (let ((#{m2 25334}#
- (cdr #{w2 25315}#)))
- (if (null? #{m2 25334}#)
- #{s1 25317}#
+ (let ((#{m1 48754}#
+ (car #{w 47922}#))
+ (#{s1 48755}#
+ (cdr #{w 47922}#)))
+ (if (null? #{m1 48754}#)
+ (if (null? #{s1 48755}#)
+ #{w2 48753}#
+ (cons (car #{w2 48753}#)
+ (let ((#{m2 48772}#
+ (cdr #{w2 48753}#)))
+ (if (null? #{m2 48772}#)
+ #{s1 48755}#
(append
- #{s1 25317}#
- #{m2 25334}#)))))
- (cons (let ((#{m2 25342}#
- (car #{w2 25315}#)))
- (if (null? #{m2 25342}#)
- #{m1 25316}#
+ #{s1 48755}#
+ #{m2 48772}#)))))
+ (cons (let ((#{m2 48780}#
+ (car #{w2 48753}#)))
+ (if (null? #{m2 48780}#)
+ #{m1 48754}#
(append
- #{m1 25316}#
- #{m2 25342}#)))
- (let ((#{m2 25350}#
- (cdr #{w2 25315}#)))
- (if (null? #{m2 25350}#)
- #{s1 25317}#
+ #{m1 48754}#
+ #{m2 48780}#)))
+ (let ((#{m2 48788}#
+ (cdr #{w2 48753}#)))
+ (if (null? #{m2 48788}#)
+ #{s1 48755}#
(append
- #{s1 25317}#
- #{m2 25350}#))))))))
- (#{module 25306}#
+ #{s1 48755}#
+ #{m2 48788}#))))))))
+ (#{module 48744}#
(vector-ref
- #{name 25274}#
+ #{name 48712}#
3)))
(vector
'syntax-object
- #{expression 25304}#
- #{wrap 25305}#
- #{module 25306}#))
- (if (null? #{name 25274}#)
- #{name 25274}#
+ #{expression 48742}#
+ #{wrap 48743}#
+ #{module 48744}#))
+ (if (null? #{name 48712}#)
+ #{name 48712}#
(vector
'syntax-object
- #{name 25274}#
- #{w 24466}#
- #{mod 24469}#))))
+ #{name 48712}#
+ #{w 47922}#
+ #{mod 47925}#))))
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1965"))
+ #("i25792"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2717,17 +2719,17 @@
(top)
(top)
(top))
- #("i1905"
- "i1906"
- "i1907"
- "i1908"
- "i1909"
- "i1910"))
+ #("i25732"
+ "i25733"
+ "i25734"
+ "i25735"
+ "i25736"
+ "i25737"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1897"))
+ #("i25724"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2746,13 +2748,13 @@
(top)
(top)
(top))
- #("i1876"
- "i1877"
- "i1878"
- "i1879"
- "i1880"
- "i1881"
- "i1882"))
+ #("i25703"
+ "i25704"
+ "i25705"
+ "i25706"
+ "i25707"
+ "i25708"
+ "i25709"))
#(ribcage
(lambda-var-list
gen-var
@@ -3030,152 +3032,152 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage () () ()))
(hygiene guile))
#(syntax-object
@@ -3184,7 +3186,7 @@
#(ribcage
#(name)
#((top))
- #("i1965"))
+ #("i25792"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3200,17 +3202,17 @@
(top)
(top)
(top))
- #("i1905"
- "i1906"
- "i1907"
- "i1908"
- "i1909"
- "i1910"))
+ #("i25732"
+ "i25733"
+ "i25734"
+ "i25735"
+ "i25736"
+ "i25737"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1897"))
+ #("i25724"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3229,13 +3231,13 @@
(top)
(top)
(top))
- #("i1876"
- "i1877"
- "i1878"
- "i1879"
- "i1880"
- "i1881"
- "i1882"))
+ #("i25703"
+ "i25704"
+ "i25705"
+ "i25706"
+ "i25707"
+ "i25708"
+ "i25709"))
#(ribcage
(lambda-var-list
gen-var
@@ -3513,152 +3515,152 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage () () ()))
(hygiene guile))
#(syntax-object
@@ -3667,7 +3669,7 @@
#(ribcage
#(name)
#((top))
- #("i1965"))
+ #("i25792"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3683,17 +3685,17 @@
(top)
(top)
(top))
- #("i1905"
- "i1906"
- "i1907"
- "i1908"
- "i1909"
- "i1910"))
+ #("i25732"
+ "i25733"
+ "i25734"
+ "i25735"
+ "i25736"
+ "i25737"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1897"))
+ #("i25724"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3712,13 +3714,13 @@
(top)
(top)
(top))
- #("i1876"
- "i1877"
- "i1878"
- "i1879"
- "i1880"
- "i1881"
- "i1882"))
+ #("i25703"
+ "i25704"
+ "i25705"
+ "i25706"
+ "i25707"
+ "i25708"
+ "i25709"))
#(ribcage
(lambda-var-list
gen-var
@@ -3996,2225 +3998,2238 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage () () ()))
(hygiene guile)))
'(())
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 25243}#)
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 48681}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 24464}#)))))))
- (if (eqv? #{ftype 24486}# 'define-syntax)
- (let ((#{tmp 25389}#
+ #{e 47920}#)))))))
+ (if (eqv? #{ftype 47942}# 'define-syntax)
+ (let ((#{tmp 48827}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ any any))))
- (if (if #{tmp 25389}#
+ (if (if #{tmp 48827}#
(@apply
- (lambda (#{name 25393}#
- #{val 25394}#)
- (if (symbol? #{name 25393}#)
+ (lambda (#{name 48831}#
+ #{val 48832}#)
+ (if (symbol? #{name 48831}#)
#t
(if (if (vector?
- #{name 25393}#)
+ #{name 48831}#)
(if (= (vector-length
- #{name 25393}#)
+ #{name 48831}#)
4)
(eq? (vector-ref
- #{name 25393}#
+ #{name 48831}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25393}#
+ #{name 48831}#
1))
#f)))
- #{tmp 25389}#)
+ #{tmp 48827}#)
#f)
(@apply
- (lambda (#{name 25421}#
- #{val 25422}#)
+ (lambda (#{name 48859}#
+ #{val 48860}#)
(values
'define-syntax-form
- #{name 25421}#
- #{val 25422}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 25389}#)
+ #{name 48859}#
+ #{val 48860}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 48827}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 24464}#)))
- (if (eqv? #{ftype 24486}#
+ #{e 47920}#)))
+ (if (eqv? #{ftype 47942}#
'define-syntax-parameter)
- (let ((#{tmp 25433}#
+ (let ((#{tmp 48871}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ any any))))
- (if (if #{tmp 25433}#
+ (if (if #{tmp 48871}#
(@apply
- (lambda (#{name 25437}#
- #{val 25438}#)
- (if (symbol? #{name 25437}#)
+ (lambda (#{name 48875}#
+ #{val 48876}#)
+ (if (symbol? #{name 48875}#)
#t
(if (if (vector?
- #{name 25437}#)
+ #{name 48875}#)
(if (= (vector-length
- #{name 25437}#)
+ #{name 48875}#)
4)
(eq? (vector-ref
- #{name 25437}#
+ #{name 48875}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25437}#
+ #{name 48875}#
1))
#f)))
- #{tmp 25433}#)
+ #{tmp 48871}#)
#f)
(@apply
- (lambda (#{name 25465}#
- #{val 25466}#)
+ (lambda (#{name 48903}#
+ #{val 48904}#)
(values
'define-syntax-parameter-form
- #{name 25465}#
- #{val 25466}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 25433}#)
+ #{name 48903}#
+ #{val 48904}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 48871}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 24464}#)))
+ #{e 47920}#)))
(values
'call
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)))))))))))))))
- (if (if (vector? #{e 24464}#)
- (if (= (vector-length #{e 24464}#) 4)
- (eq? (vector-ref #{e 24464}# 0) 'syntax-object)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)))))))))))))))
+ (if (if (vector? #{e 47920}#)
+ (if (= (vector-length #{e 47920}#) 4)
+ (eq? (vector-ref #{e 47920}# 0) 'syntax-object)
#f)
#f)
- (#{syntax-type 4442}#
- (vector-ref #{e 24464}# 1)
- #{r 24465}#
- (let ((#{w2 25491}# (vector-ref #{e 24464}# 2)))
- (let ((#{m1 25492}# (car #{w 24466}#))
- (#{s1 25493}# (cdr #{w 24466}#)))
- (if (null? #{m1 25492}#)
- (if (null? #{s1 25493}#)
- #{w2 25491}#
- (cons (car #{w2 25491}#)
- (let ((#{m2 25504}# (cdr #{w2 25491}#)))
- (if (null? #{m2 25504}#)
- #{s1 25493}#
- (append #{s1 25493}# #{m2 25504}#)))))
- (cons (let ((#{m2 25512}# (car #{w2 25491}#)))
- (if (null? #{m2 25512}#)
- #{m1 25492}#
- (append #{m1 25492}# #{m2 25512}#)))
- (let ((#{m2 25520}# (cdr #{w2 25491}#)))
- (if (null? #{m2 25520}#)
- #{s1 25493}#
- (append #{s1 25493}# #{m2 25520}#)))))))
- (let ((#{t 25525}#
- (#{source-annotation 4404}# #{e 24464}#)))
- (if #{t 25525}# #{t 25525}# #{s 24467}#))
- #{rib 24468}#
- (let ((#{t 25823}# (vector-ref #{e 24464}# 3)))
- (if #{t 25823}# #{t 25823}# #{mod 24469}#))
- #{for-car? 24470}#)
- (if (self-evaluating? #{e 24464}#)
+ (#{syntax-type 28270}#
+ (vector-ref #{e 47920}# 1)
+ #{r 47921}#
+ (let ((#{w2 48929}# (vector-ref #{e 47920}# 2)))
+ (let ((#{m1 48930}# (car #{w 47922}#))
+ (#{s1 48931}# (cdr #{w 47922}#)))
+ (if (null? #{m1 48930}#)
+ (if (null? #{s1 48931}#)
+ #{w2 48929}#
+ (cons (car #{w2 48929}#)
+ (let ((#{m2 48942}# (cdr #{w2 48929}#)))
+ (if (null? #{m2 48942}#)
+ #{s1 48931}#
+ (append #{s1 48931}# #{m2 48942}#)))))
+ (cons (let ((#{m2 48950}# (car #{w2 48929}#)))
+ (if (null? #{m2 48950}#)
+ #{m1 48930}#
+ (append #{m1 48930}# #{m2 48950}#)))
+ (let ((#{m2 48958}# (cdr #{w2 48929}#)))
+ (if (null? #{m2 48958}#)
+ #{s1 48931}#
+ (append #{s1 48931}# #{m2 48958}#)))))))
+ (let ((#{t 48963}#
+ (#{source-annotation 28232}# #{e 47920}#)))
+ (if #{t 48963}# #{t 48963}# #{s 47923}#))
+ #{rib 47924}#
+ (let ((#{t 49239}# (vector-ref #{e 47920}# 3)))
+ (if #{t 49239}# #{t 49239}# #{mod 47925}#))
+ #{for-car? 47926}#)
+ (if (self-evaluating? #{e 47920}#)
(values
'constant
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
(values
'other
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)))))))
- (#{expand 4443}#
- (lambda (#{e 25832}#
- #{r 25833}#
- #{w 25834}#
- #{mod 25835}#)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)))))))
+ (#{expand 28271}#
+ (lambda (#{e 49248}#
+ #{r 49249}#
+ #{w 49250}#
+ #{mod 49251}#)
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{e 25832}#
- #{r 25833}#
- #{w 25834}#
- (#{source-annotation 4404}# #{e 25832}#)
+ (#{syntax-type 28270}#
+ #{e 49248}#
+ #{r 49249}#
+ #{w 49250}#
+ (#{source-annotation 28232}# #{e 49248}#)
#f
- #{mod 25835}#
+ #{mod 49251}#
#f))
- (lambda (#{type 26039}#
- #{value 26040}#
- #{e 26041}#
- #{w 26042}#
- #{s 26043}#
- #{mod 26044}#)
- (#{expand-expr 4444}#
- #{type 26039}#
- #{value 26040}#
- #{e 26041}#
- #{r 25833}#
- #{w 26042}#
- #{s 26043}#
- #{mod 26044}#)))))
- (#{expand-expr 4444}#
- (lambda (#{type 26047}#
- #{value 26048}#
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'lexical)
+ (lambda (#{type 49437}#
+ #{value 49438}#
+ #{e 49439}#
+ #{w 49440}#
+ #{s 49441}#
+ #{mod 49442}#)
+ (#{expand-expr 28272}#
+ #{type 49437}#
+ #{value 49438}#
+ #{e 49439}#
+ #{r 49249}#
+ #{w 49440}#
+ #{s 49441}#
+ #{mod 49442}#)))))
+ (#{expand-expr 28272}#
+ (lambda (#{type 49445}#
+ #{value 49446}#
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 26052}#
- #{e 26049}#
- #{value 26048}#)
- (if (if (eqv? #{type 26047}# 'core)
+ #{s 49450}#
+ #{e 49447}#
+ #{value 49446}#)
+ (if (if (eqv? #{type 49445}# 'core)
#t
- (eqv? #{type 26047}# 'core-form))
- (#{value 26048}#
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'module-ref)
+ (eqv? #{type 49445}# 'core-form))
+ (#{value 49446}#
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 26048}#
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#))
- (lambda (#{e 26079}#
- #{r 26080}#
- #{w 26081}#
- #{s 26082}#
- #{mod 26083}#)
- (#{expand 4443}#
- #{e 26079}#
- #{r 26080}#
- #{w 26081}#
- #{mod 26083}#)))
- (if (eqv? #{type 26047}# 'lexical-call)
- (#{expand-call 4445}#
- (let ((#{id 26264}# (car #{e 26049}#)))
- (#{build-lexical-reference 4380}#
+ (#{value 49446}#
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#))
+ (lambda (#{e 49477}#
+ #{r 49478}#
+ #{w 49479}#
+ #{s 49480}#
+ #{mod 49481}#)
+ (#{expand 28271}#
+ #{e 49477}#
+ #{r 49478}#
+ #{w 49479}#
+ #{mod 49481}#)))
+ (if (eqv? #{type 49445}# 'lexical-call)
+ (#{expand-call 28273}#
+ (let ((#{id 49654}# (car #{e 49447}#)))
+ (#{build-lexical-reference 28208}#
'fun
- (#{source-annotation 4404}# #{id 26264}#)
- (if (if (vector? #{id 26264}#)
- (if (= (vector-length #{id 26264}#) 4)
- (eq? (vector-ref #{id 26264}# 0) 'syntax-object)
+ (#{source-annotation 28232}# #{id 49654}#)
+ (if (if (vector? #{id 49654}#)
+ (if (= (vector-length #{id 49654}#) 4)
+ (eq? (vector-ref #{id 49654}# 0) 'syntax-object)
#f)
#f)
- (syntax->datum #{id 26264}#)
- #{id 26264}#)
- #{value 26048}#))
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'global-call)
- (#{expand-call 4445}#
- (#{build-global-reference 4383}#
- (#{source-annotation 4404}# (car #{e 26049}#))
- (if (if (vector? #{value 26048}#)
- (if (= (vector-length #{value 26048}#) 4)
- (eq? (vector-ref #{value 26048}# 0)
+ (syntax->datum #{id 49654}#)
+ #{id 49654}#)
+ #{value 49446}#))
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'global-call)
+ (#{expand-call 28273}#
+ (#{build-global-reference 28211}#
+ (#{source-annotation 28232}# (car #{e 49447}#))
+ (if (if (vector? #{value 49446}#)
+ (if (= (vector-length #{value 49446}#) 4)
+ (eq? (vector-ref #{value 49446}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 26048}# 1)
- #{value 26048}#)
- (if (if (vector? #{value 26048}#)
- (if (= (vector-length #{value 26048}#) 4)
- (eq? (vector-ref #{value 26048}# 0)
+ (vector-ref #{value 49446}# 1)
+ #{value 49446}#)
+ (if (if (vector? #{value 49446}#)
+ (if (= (vector-length #{value 49446}#) 4)
+ (eq? (vector-ref #{value 49446}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 26048}# 3)
- #{mod 26053}#))
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'constant)
- (let ((#{exp 26986}#
- (#{strip 4456}#
- (let ((#{x 26999}#
+ (vector-ref #{value 49446}# 3)
+ #{mod 49451}#))
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'constant)
+ (let ((#{exp 50328}#
+ (#{strip 28284}#
+ (let ((#{x 50341}#
(begin
- (if (if (pair? #{e 26049}#)
- #{s 26052}#
+ (if (if (pair? #{e 49447}#)
+ #{s 49450}#
#f)
(set-source-properties!
- #{e 26049}#
- #{s 26052}#))
- #{e 26049}#)))
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ #{s 49450}#))
+ #{e 49447}#)))
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{x 26999}#
- (if (if (vector? #{x 26999}#)
- (if (= (vector-length #{x 26999}#) 4)
- (eq? (vector-ref #{x 26999}# 0)
+ #{x 50341}#
+ (if (if (vector? #{x 50341}#)
+ (if (= (vector-length #{x 50341}#) 4)
+ (eq? (vector-ref #{x 50341}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27031}#
- (vector-ref #{x 26999}# 1))
- (#{wrap 27032}#
- (let ((#{w2 27040}#
- (vector-ref #{x 26999}# 2)))
- (let ((#{m1 27041}#
- (car #{w 26051}#))
- (#{s1 27042}#
- (cdr #{w 26051}#)))
- (if (null? #{m1 27041}#)
- (if (null? #{s1 27042}#)
- #{w2 27040}#
- (cons (car #{w2 27040}#)
- (let ((#{m2 27057}#
- (cdr #{w2 27040}#)))
- (if (null? #{m2 27057}#)
- #{s1 27042}#
+ (let ((#{expression 50373}#
+ (vector-ref #{x 50341}# 1))
+ (#{wrap 50374}#
+ (let ((#{w2 50382}#
+ (vector-ref #{x 50341}# 2)))
+ (let ((#{m1 50383}#
+ (car #{w 49449}#))
+ (#{s1 50384}#
+ (cdr #{w 49449}#)))
+ (if (null? #{m1 50383}#)
+ (if (null? #{s1 50384}#)
+ #{w2 50382}#
+ (cons (car #{w2 50382}#)
+ (let ((#{m2 50399}#
+ (cdr #{w2 50382}#)))
+ (if (null? #{m2 50399}#)
+ #{s1 50384}#
(append
- #{s1 27042}#
- #{m2 27057}#)))))
- (cons (let ((#{m2 27065}#
- (car #{w2 27040}#)))
- (if (null? #{m2 27065}#)
- #{m1 27041}#
+ #{s1 50384}#
+ #{m2 50399}#)))))
+ (cons (let ((#{m2 50407}#
+ (car #{w2 50382}#)))
+ (if (null? #{m2 50407}#)
+ #{m1 50383}#
(append
- #{m1 27041}#
- #{m2 27065}#)))
- (let ((#{m2 27073}#
- (cdr #{w2 27040}#)))
- (if (null? #{m2 27073}#)
- #{s1 27042}#
+ #{m1 50383}#
+ #{m2 50407}#)))
+ (let ((#{m2 50415}#
+ (cdr #{w2 50382}#)))
+ (if (null? #{m2 50415}#)
+ #{s1 50384}#
(append
- #{s1 27042}#
- #{m2 27073}#))))))))
- (#{module 27033}#
- (vector-ref #{x 26999}# 3)))
+ #{s1 50384}#
+ #{m2 50415}#))))))))
+ (#{module 50375}#
+ (vector-ref #{x 50341}# 3)))
(vector
'syntax-object
- #{expression 27031}#
- #{wrap 27032}#
- #{module 27033}#))
- (if (null? #{x 26999}#)
- #{x 26999}#
+ #{expression 50373}#
+ #{wrap 50374}#
+ #{module 50375}#))
+ (if (null? #{x 50341}#)
+ #{x 50341}#
(vector
'syntax-object
- #{x 26999}#
- #{w 26051}#
- #{mod 26053}#)))))
+ #{x 50341}#
+ #{w 49449}#
+ #{mod 49451}#)))))
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 26052}#
- #{exp 26986}#))
- (if (eqv? #{type 26047}# 'global)
- (#{analyze-variable 4382}#
- #{mod 26053}#
- #{value 26048}#
- (lambda (#{mod 27098}# #{var 27099}# #{public? 27100}#)
+ #{s 49450}#
+ #{exp 50328}#))
+ (if (eqv? #{type 49445}# 'global)
+ (#{analyze-variable 28210}#
+ #{mod 49451}#
+ #{value 49446}#
+ (lambda (#{mod 50440}# #{var 50441}# #{public? 50442}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 26052}#
- #{mod 27098}#
- #{var 27099}#
- #{public? 27100}#))
- (lambda (#{var 27108}#)
+ #{s 49450}#
+ #{mod 50440}#
+ #{var 50441}#
+ #{public? 50442}#))
+ (lambda (#{var 50450}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s 26052}#
- #{var 27108}#)))
- (if (eqv? #{type 26047}# 'call)
- (#{expand-call 4445}#
- (#{expand 4443}#
- (car #{e 26049}#)
- #{r 26050}#
- #{w 26051}#
- #{mod 26053}#)
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'begin-form)
- (let ((#{tmp 27286}#
+ #{s 49450}#
+ #{var 50450}#)))
+ (if (eqv? #{type 49445}# 'call)
+ (#{expand-call 28273}#
+ (#{expand 28271}#
+ (car #{e 49447}#)
+ #{r 49448}#
+ #{w 49449}#
+ #{mod 49451}#)
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'begin-form)
+ (let ((#{tmp 50620}#
($sc-dispatch
- #{e 26049}#
+ #{e 49447}#
'(_ any . each-any))))
- (if #{tmp 27286}#
+ (if #{tmp 50620}#
(@apply
- (lambda (#{e1 27290}# #{e2 27291}#)
- (#{expand-sequence 4438}#
- (cons #{e1 27290}# #{e2 27291}#)
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#))
- #{tmp 27286}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 26049}#)))
- (if (eqv? #{type 26047}# 'local-syntax-form)
- (#{expand-local-syntax 4448}#
- #{value 26048}#
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#
- #{expand-sequence 4438}#)
- (if (eqv? #{type 26047}# 'eval-when-form)
- (let ((#{tmp 27471}#
+ (lambda (#{e1 50624}# #{e2 50625}#)
+ (#{expand-sequence 28266}#
+ (cons #{e1 50624}# #{e2 50625}#)
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#))
+ #{tmp 50620}#)
+ (let ((#{tmp 50720}#
+ ($sc-dispatch #{e 49447}# '(_))))
+ (if #{tmp 50720}#
+ (@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 50720}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 49447}#)))))
+ (if (eqv? #{type 49445}# 'local-syntax-form)
+ (#{expand-local-syntax 28276}#
+ #{value 49446}#
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#
+ #{expand-sequence 28266}#)
+ (if (eqv? #{type 49445}# 'eval-when-form)
+ (let ((#{tmp 50812}#
($sc-dispatch
- #{e 26049}#
+ #{e 49447}#
'(_ each-any any . each-any))))
- (if #{tmp 27471}#
+ (if #{tmp 50812}#
(@apply
- (lambda (#{x 27475}#
- #{e1 27476}#
- #{e2 27477}#)
- (let ((#{when-list 27478}#
- (#{parse-when-list 4441}#
- #{e 26049}#
- #{x 27475}#)))
- (if (memq 'eval #{when-list 27478}#)
- (#{expand-sequence 4438}#
- (cons #{e1 27476}# #{e2 27477}#)
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
+ (lambda (#{x 50816}#
+ #{e1 50817}#
+ #{e2 50818}#)
+ (let ((#{when-list 50819}#
+ (#{parse-when-list 28269}#
+ #{e 49447}#
+ #{x 50816}#)))
+ (if (memq 'eval #{when-list 50819}#)
+ (#{expand-sequence 28266}#
+ (cons #{e1 50817}# #{e2 50818}#)
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 27471}#)
+ #{tmp 50812}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 26049}#)))
- (if (if (eqv? #{type 26047}# 'define-form)
+ #{e 49447}#)))
+ (if (if (eqv? #{type 49445}# 'define-form)
#t
- (if (eqv? #{type 26047}#
+ (if (eqv? #{type 49445}#
'define-syntax-form)
#t
- (eqv? #{type 26047}#
+ (eqv? #{type 49445}#
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e 26049}#
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{value 26048}#
- (if (if (vector? #{value 26048}#)
- (if (= (vector-length #{value 26048}#)
+ #{value 49446}#
+ (if (if (vector? #{value 49446}#)
+ (if (= (vector-length #{value 49446}#)
4)
- (eq? (vector-ref #{value 26048}# 0)
+ (eq? (vector-ref #{value 49446}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27688}#
- (vector-ref #{value 26048}# 1))
- (#{wrap 27689}#
- (let ((#{w2 27699}#
+ (let ((#{expression 51026}#
+ (vector-ref #{value 49446}# 1))
+ (#{wrap 51027}#
+ (let ((#{w2 51037}#
(vector-ref
- #{value 26048}#
+ #{value 49446}#
2)))
- (let ((#{m1 27700}#
- (car #{w 26051}#))
- (#{s1 27701}#
- (cdr #{w 26051}#)))
- (if (null? #{m1 27700}#)
- (if (null? #{s1 27701}#)
- #{w2 27699}#
- (cons (car #{w2 27699}#)
- (let ((#{m2 27718}#
- (cdr #{w2 27699}#)))
- (if (null? #{m2 27718}#)
- #{s1 27701}#
+ (let ((#{m1 51038}#
+ (car #{w 49449}#))
+ (#{s1 51039}#
+ (cdr #{w 49449}#)))
+ (if (null? #{m1 51038}#)
+ (if (null? #{s1 51039}#)
+ #{w2 51037}#
+ (cons (car #{w2 51037}#)
+ (let ((#{m2 51056}#
+ (cdr #{w2 51037}#)))
+ (if (null? #{m2 51056}#)
+ #{s1 51039}#
(append
- #{s1 27701}#
- #{m2 27718}#)))))
- (cons (let ((#{m2 27726}#
- (car #{w2 27699}#)))
- (if (null? #{m2 27726}#)
- #{m1 27700}#
+ #{s1 51039}#
+ #{m2 51056}#)))))
+ (cons (let ((#{m2 51064}#
+ (car #{w2 51037}#)))
+ (if (null? #{m2 51064}#)
+ #{m1 51038}#
(append
- #{m1 27700}#
- #{m2 27726}#)))
- (let ((#{m2 27734}#
- (cdr #{w2 27699}#)))
- (if (null? #{m2 27734}#)
- #{s1 27701}#
+ #{m1 51038}#
+ #{m2 51064}#)))
+ (let ((#{m2 51072}#
+ (cdr #{w2 51037}#)))
+ (if (null? #{m2 51072}#)
+ #{s1 51039}#
(append
- #{s1 27701}#
- #{m2 27734}#))))))))
- (#{module 27690}#
- (vector-ref #{value 26048}# 3)))
+ #{s1 51039}#
+ #{m2 51072}#))))))))
+ (#{module 51028}#
+ (vector-ref #{value 49446}# 3)))
(vector
'syntax-object
- #{expression 27688}#
- #{wrap 27689}#
- #{module 27690}#))
- (if (null? #{value 26048}#)
- #{value 26048}#
+ #{expression 51026}#
+ #{wrap 51027}#
+ #{module 51028}#))
+ (if (null? #{value 49446}#)
+ #{value 49446}#
(vector
'syntax-object
- #{value 26048}#
- #{w 26051}#
- #{mod 26053}#)))))
- (if (eqv? #{type 26047}# 'syntax)
+ #{value 49446}#
+ #{w 49449}#
+ #{mod 49451}#)))))
+ (if (eqv? #{type 49445}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (let ((#{x 27769}#
+ (let ((#{x 51107}#
(begin
- (if (if (pair? #{e 26049}#)
- #{s 26052}#
+ (if (if (pair? #{e 49447}#)
+ #{s 49450}#
#f)
(set-source-properties!
- #{e 26049}#
- #{s 26052}#))
- #{e 26049}#)))
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ #{s 49450}#))
+ #{e 49447}#)))
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{x 27769}#
- (if (if (vector? #{x 27769}#)
- (if (= (vector-length #{x 27769}#)
+ #{x 51107}#
+ (if (if (vector? #{x 51107}#)
+ (if (= (vector-length #{x 51107}#)
4)
- (eq? (vector-ref #{x 27769}# 0)
+ (eq? (vector-ref #{x 51107}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27801}#
- (vector-ref #{x 27769}# 1))
- (#{wrap 27802}#
- (let ((#{w2 27810}#
+ (let ((#{expression 51139}#
+ (vector-ref #{x 51107}# 1))
+ (#{wrap 51140}#
+ (let ((#{w2 51148}#
(vector-ref
- #{x 27769}#
+ #{x 51107}#
2)))
- (let ((#{m1 27811}#
- (car #{w 26051}#))
- (#{s1 27812}#
- (cdr #{w 26051}#)))
- (if (null? #{m1 27811}#)
- (if (null? #{s1 27812}#)
- #{w2 27810}#
- (cons (car #{w2 27810}#)
- (let ((#{m2 27827}#
- (cdr #{w2 27810}#)))
- (if (null? #{m2 27827}#)
- #{s1 27812}#
+ (let ((#{m1 51149}#
+ (car #{w 49449}#))
+ (#{s1 51150}#
+ (cdr #{w 49449}#)))
+ (if (null? #{m1 51149}#)
+ (if (null? #{s1 51150}#)
+ #{w2 51148}#
+ (cons (car #{w2 51148}#)
+ (let ((#{m2 51165}#
+ (cdr #{w2 51148}#)))
+ (if (null? #{m2 51165}#)
+ #{s1 51150}#
(append
- #{s1 27812}#
- #{m2 27827}#)))))
- (cons (let ((#{m2 27835}#
- (car #{w2 27810}#)))
- (if (null? #{m2 27835}#)
- #{m1 27811}#
+ #{s1 51150}#
+ #{m2 51165}#)))))
+ (cons (let ((#{m2 51173}#
+ (car #{w2 51148}#)))
+ (if (null? #{m2 51173}#)
+ #{m1 51149}#
(append
- #{m1 27811}#
- #{m2 27835}#)))
- (let ((#{m2 27843}#
- (cdr #{w2 27810}#)))
- (if (null? #{m2 27843}#)
- #{s1 27812}#
+ #{m1 51149}#
+ #{m2 51173}#)))
+ (let ((#{m2 51181}#
+ (cdr #{w2 51148}#)))
+ (if (null? #{m2 51181}#)
+ #{s1 51150}#
(append
- #{s1 27812}#
- #{m2 27843}#))))))))
- (#{module 27803}#
- (vector-ref #{x 27769}# 3)))
+ #{s1 51150}#
+ #{m2 51181}#))))))))
+ (#{module 51141}#
+ (vector-ref #{x 51107}# 3)))
(vector
'syntax-object
- #{expression 27801}#
- #{wrap 27802}#
- #{module 27803}#))
- (if (null? #{x 27769}#)
- #{x 27769}#
+ #{expression 51139}#
+ #{wrap 51140}#
+ #{module 51141}#))
+ (if (null? #{x 51107}#)
+ #{x 51107}#
(vector
'syntax-object
- #{x 27769}#
- #{w 26051}#
- #{mod 26053}#))))))
- (if (eqv? #{type 26047}# 'displaced-lexical)
+ #{x 51107}#
+ #{w 49449}#
+ #{mod 49451}#))))))
+ (if (eqv? #{type 49445}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (let ((#{x 27870}#
+ (let ((#{x 51208}#
(begin
- (if (if (pair? #{e 26049}#)
- #{s 26052}#
+ (if (if (pair? #{e 49447}#)
+ #{s 49450}#
#f)
(set-source-properties!
- #{e 26049}#
- #{s 26052}#))
- #{e 26049}#)))
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ #{s 49450}#))
+ #{e 49447}#)))
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{x 27870}#
- (if (if (vector? #{x 27870}#)
+ #{x 51208}#
+ (if (if (vector? #{x 51208}#)
(if (= (vector-length
- #{x 27870}#)
+ #{x 51208}#)
4)
(eq? (vector-ref
- #{x 27870}#
+ #{x 51208}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27902}#
- (vector-ref #{x 27870}# 1))
- (#{wrap 27903}#
- (let ((#{w2 27911}#
+ (let ((#{expression 51240}#
+ (vector-ref #{x 51208}# 1))
+ (#{wrap 51241}#
+ (let ((#{w2 51249}#
(vector-ref
- #{x 27870}#
+ #{x 51208}#
2)))
- (let ((#{m1 27912}#
- (car #{w 26051}#))
- (#{s1 27913}#
- (cdr #{w 26051}#)))
- (if (null? #{m1 27912}#)
- (if (null? #{s1 27913}#)
- #{w2 27911}#
- (cons (car #{w2 27911}#)
- (let ((#{m2 27928}#
- (cdr #{w2 27911}#)))
- (if (null? #{m2 27928}#)
- #{s1 27913}#
+ (let ((#{m1 51250}#
+ (car #{w 49449}#))
+ (#{s1 51251}#
+ (cdr #{w 49449}#)))
+ (if (null? #{m1 51250}#)
+ (if (null? #{s1 51251}#)
+ #{w2 51249}#
+ (cons (car #{w2 51249}#)
+ (let ((#{m2 51266}#
+ (cdr #{w2 51249}#)))
+ (if (null? #{m2 51266}#)
+ #{s1 51251}#
(append
- #{s1 27913}#
- #{m2 27928}#)))))
- (cons (let ((#{m2 27936}#
- (car #{w2 27911}#)))
- (if (null? #{m2 27936}#)
- #{m1 27912}#
+ #{s1 51251}#
+ #{m2 51266}#)))))
+ (cons (let ((#{m2 51274}#
+ (car #{w2 51249}#)))
+ (if (null? #{m2 51274}#)
+ #{m1 51250}#
(append
- #{m1 27912}#
- #{m2 27936}#)))
- (let ((#{m2 27944}#
- (cdr #{w2 27911}#)))
- (if (null? #{m2 27944}#)
- #{s1 27913}#
+ #{m1 51250}#
+ #{m2 51274}#)))
+ (let ((#{m2 51282}#
+ (cdr #{w2 51249}#)))
+ (if (null? #{m2 51282}#)
+ #{s1 51251}#
(append
- #{s1 27913}#
- #{m2 27944}#))))))))
- (#{module 27904}#
- (vector-ref #{x 27870}# 3)))
+ #{s1 51251}#
+ #{m2 51282}#))))))))
+ (#{module 51242}#
+ (vector-ref #{x 51208}# 3)))
(vector
'syntax-object
- #{expression 27902}#
- #{wrap 27903}#
- #{module 27904}#))
- (if (null? #{x 27870}#)
- #{x 27870}#
+ #{expression 51240}#
+ #{wrap 51241}#
+ #{module 51242}#))
+ (if (null? #{x 51208}#)
+ #{x 51208}#
(vector
'syntax-object
- #{x 27870}#
- #{w 26051}#
- #{mod 26053}#))))))
+ #{x 51208}#
+ #{w 49449}#
+ #{mod 49451}#))))))
(syntax-violation
#f
"unexpected syntax"
- (let ((#{x 27968}#
+ (let ((#{x 51306}#
(begin
- (if (if (pair? #{e 26049}#)
- #{s 26052}#
+ (if (if (pair? #{e 49447}#)
+ #{s 49450}#
#f)
(set-source-properties!
- #{e 26049}#
- #{s 26052}#))
- #{e 26049}#)))
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ #{s 49450}#))
+ #{e 49447}#)))
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{x 27968}#
- (if (if (vector? #{x 27968}#)
+ #{x 51306}#
+ (if (if (vector? #{x 51306}#)
(if (= (vector-length
- #{x 27968}#)
+ #{x 51306}#)
4)
(eq? (vector-ref
- #{x 27968}#
+ #{x 51306}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28000}#
- (vector-ref #{x 27968}# 1))
- (#{wrap 28001}#
- (let ((#{w2 28009}#
+ (let ((#{expression 51338}#
+ (vector-ref #{x 51306}# 1))
+ (#{wrap 51339}#
+ (let ((#{w2 51347}#
(vector-ref
- #{x 27968}#
+ #{x 51306}#
2)))
- (let ((#{m1 28010}#
- (car #{w 26051}#))
- (#{s1 28011}#
- (cdr #{w 26051}#)))
- (if (null? #{m1 28010}#)
- (if (null? #{s1 28011}#)
- #{w2 28009}#
- (cons (car #{w2 28009}#)
- (let ((#{m2 28026}#
- (cdr #{w2 28009}#)))
- (if (null? #{m2 28026}#)
- #{s1 28011}#
+ (let ((#{m1 51348}#
+ (car #{w 49449}#))
+ (#{s1 51349}#
+ (cdr #{w 49449}#)))
+ (if (null? #{m1 51348}#)
+ (if (null? #{s1 51349}#)
+ #{w2 51347}#
+ (cons (car #{w2 51347}#)
+ (let ((#{m2 51364}#
+ (cdr #{w2 51347}#)))
+ (if (null? #{m2 51364}#)
+ #{s1 51349}#
(append
- #{s1 28011}#
- #{m2 28026}#)))))
- (cons (let ((#{m2 28034}#
- (car #{w2 28009}#)))
- (if (null? #{m2 28034}#)
- #{m1 28010}#
+ #{s1 51349}#
+ #{m2 51364}#)))))
+ (cons (let ((#{m2 51372}#
+ (car #{w2 51347}#)))
+ (if (null? #{m2 51372}#)
+ #{m1 51348}#
(append
- #{m1 28010}#
- #{m2 28034}#)))
- (let ((#{m2 28042}#
- (cdr #{w2 28009}#)))
- (if (null? #{m2 28042}#)
- #{s1 28011}#
+ #{m1 51348}#
+ #{m2 51372}#)))
+ (let ((#{m2 51380}#
+ (cdr #{w2 51347}#)))
+ (if (null? #{m2 51380}#)
+ #{s1 51349}#
(append
- #{s1 28011}#
- #{m2 28042}#))))))))
- (#{module 28002}#
- (vector-ref #{x 27968}# 3)))
+ #{s1 51349}#
+ #{m2 51380}#))))))))
+ (#{module 51340}#
+ (vector-ref #{x 51306}# 3)))
(vector
'syntax-object
- #{expression 28000}#
- #{wrap 28001}#
- #{module 28002}#))
- (if (null? #{x 27968}#)
- #{x 27968}#
+ #{expression 51338}#
+ #{wrap 51339}#
+ #{module 51340}#))
+ (if (null? #{x 51306}#)
+ #{x 51306}#
(vector
'syntax-object
- #{x 27968}#
- #{w 26051}#
- #{mod 26053}#))))))))))))))))))))))
- (#{expand-call 4445}#
- (lambda (#{x 28057}#
- #{e 28058}#
- #{r 28059}#
- #{w 28060}#
- #{s 28061}#
- #{mod 28062}#)
- (let ((#{tmp 28064}#
- ($sc-dispatch #{e 28058}# '(any . each-any))))
- (if #{tmp 28064}#
+ #{x 51306}#
+ #{w 49449}#
+ #{mod 49451}#))))))))))))))))))))))
+ (#{expand-call 28273}#
+ (lambda (#{x 51395}#
+ #{e 51396}#
+ #{r 51397}#
+ #{w 51398}#
+ #{s 51399}#
+ #{mod 51400}#)
+ (let ((#{tmp 51402}#
+ ($sc-dispatch #{e 51396}# '(any . each-any))))
+ (if #{tmp 51402}#
(@apply
- (lambda (#{e0 28068}# #{e1 28069}#)
- (#{build-call 4377}#
- #{s 28061}#
- #{x 28057}#
- (map (lambda (#{e 28161}#)
- (#{expand 4443}#
- #{e 28161}#
- #{r 28059}#
- #{w 28060}#
- #{mod 28062}#))
- #{e1 28069}#)))
- #{tmp 28064}#)
+ (lambda (#{e0 51406}# #{e1 51407}#)
+ (#{build-call 28205}#
+ #{s 51399}#
+ #{x 51395}#
+ (map (lambda (#{e 51495}#)
+ (#{expand 28271}#
+ #{e 51495}#
+ #{r 51397}#
+ #{w 51398}#
+ #{mod 51400}#))
+ #{e1 51407}#)))
+ #{tmp 51402}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 28058}#)))))
- (#{expand-macro 4446}#
- (lambda (#{p 28249}#
- #{e 28250}#
- #{r 28251}#
- #{w 28252}#
- #{s 28253}#
- #{rib 28254}#
- #{mod 28255}#)
+ #{e 51396}#)))))
+ (#{expand-macro 28274}#
+ (lambda (#{p 51579}#
+ #{e 51580}#
+ #{r 51581}#
+ #{w 51582}#
+ #{s 51583}#
+ #{rib 51584}#
+ #{mod 51585}#)
(letrec*
- ((#{rebuild-macro-output 28256}#
- (lambda (#{x 28363}# #{m 28364}#)
- (if (pair? #{x 28363}#)
- (let ((#{e 28368}#
- (cons (#{rebuild-macro-output 28256}#
- (car #{x 28363}#)
- #{m 28364}#)
- (#{rebuild-macro-output 28256}#
- (cdr #{x 28363}#)
- #{m 28364}#))))
+ ((#{rebuild-macro-output 51586}#
+ (lambda (#{x 51693}# #{m 51694}#)
+ (if (pair? #{x 51693}#)
+ (let ((#{e 51698}#
+ (cons (#{rebuild-macro-output 51586}#
+ (car #{x 51693}#)
+ #{m 51694}#)
+ (#{rebuild-macro-output 51586}#
+ (cdr #{x 51693}#)
+ #{m 51694}#))))
(begin
- (if (if (pair? #{e 28368}#) #{s 28253}# #f)
- (set-source-properties! #{e 28368}# #{s 28253}#))
- #{e 28368}#))
- (if (if (vector? #{x 28363}#)
- (if (= (vector-length #{x 28363}#) 4)
- (eq? (vector-ref #{x 28363}# 0) 'syntax-object)
+ (if (if (pair? #{e 51698}#) #{s 51583}# #f)
+ (set-source-properties! #{e 51698}# #{s 51583}#))
+ #{e 51698}#))
+ (if (if (vector? #{x 51693}#)
+ (if (= (vector-length #{x 51693}#) 4)
+ (eq? (vector-ref #{x 51693}# 0) 'syntax-object)
#f)
#f)
- (let ((#{w 28384}# (vector-ref #{x 28363}# 2)))
- (let ((#{ms 28385}# (car #{w 28384}#))
- (#{s 28386}# (cdr #{w 28384}#)))
- (if (if (pair? #{ms 28385}#)
- (eq? (car #{ms 28385}#) #f)
+ (let ((#{w 51714}# (vector-ref #{x 51693}# 2)))
+ (let ((#{ms 51715}# (car #{w 51714}#))
+ (#{s 51716}# (cdr #{w 51714}#)))
+ (if (if (pair? #{ms 51715}#)
+ (eq? (car #{ms 51715}#) #f)
#f)
- (let ((#{expression 28394}# (vector-ref #{x 28363}# 1))
- (#{wrap 28395}#
- (cons (cdr #{ms 28385}#)
- (if #{rib 28254}#
- (cons #{rib 28254}# (cdr #{s 28386}#))
- (cdr #{s 28386}#))))
- (#{module 28396}# (vector-ref #{x 28363}# 3)))
+ (let ((#{expression 51724}# (vector-ref #{x 51693}# 1))
+ (#{wrap 51725}#
+ (cons (cdr #{ms 51715}#)
+ (if #{rib 51584}#
+ (cons #{rib 51584}# (cdr #{s 51716}#))
+ (cdr #{s 51716}#))))
+ (#{module 51726}# (vector-ref #{x 51693}# 3)))
(vector
'syntax-object
- #{expression 28394}#
- #{wrap 28395}#
- #{module 28396}#))
- (let ((#{expression 28406}#
- (let ((#{e 28411}# (vector-ref #{x 28363}# 1)))
+ #{expression 51724}#
+ #{wrap 51725}#
+ #{module 51726}#))
+ (let ((#{expression 51736}#
+ (let ((#{e 51741}# (vector-ref #{x 51693}# 1)))
(begin
- (if (if (pair? #{e 28411}#) #{s 28386}# #f)
+ (if (if (pair? #{e 51741}#) #{s 51716}# #f)
(set-source-properties!
- #{e 28411}#
- #{s 28386}#))
- #{e 28411}#)))
- (#{wrap 28407}#
- (cons (cons #{m 28364}# #{ms 28385}#)
- (if #{rib 28254}#
- (cons #{rib 28254}#
- (cons 'shift #{s 28386}#))
- (cons 'shift #{s 28386}#))))
- (#{module 28408}# (vector-ref #{x 28363}# 3)))
+ #{e 51741}#
+ #{s 51716}#))
+ #{e 51741}#)))
+ (#{wrap 51737}#
+ (cons (cons #{m 51694}# #{ms 51715}#)
+ (if #{rib 51584}#
+ (cons #{rib 51584}#
+ (cons 'shift #{s 51716}#))
+ (cons 'shift #{s 51716}#))))
+ (#{module 51738}# (vector-ref #{x 51693}# 3)))
(vector
'syntax-object
- #{expression 28406}#
- #{wrap 28407}#
- #{module 28408}#)))))
- (if (vector? #{x 28363}#)
- (let ((#{n 28423}# (vector-length #{x 28363}#)))
- (let ((#{v 28424}#
- (let ((#{e 28432}# (make-vector #{n 28423}#)))
+ #{expression 51736}#
+ #{wrap 51737}#
+ #{module 51738}#)))))
+ (if (vector? #{x 51693}#)
+ (let ((#{n 51753}# (vector-length #{x 51693}#)))
+ (let ((#{v 51754}#
+ (let ((#{e 51820}# (make-vector #{n 51753}#)))
(begin
- (if (if (pair? #{e 28432}#) #{x 28363}# #f)
+ (if (if (pair? #{e 51820}#) #{x 51693}# #f)
(set-source-properties!
- #{e 28432}#
- #{x 28363}#))
- #{e 28432}#))))
+ #{e 51820}#
+ #{x 51693}#))
+ #{e 51820}#))))
(letrec*
- ((#{loop 28425}#
- (lambda (#{i 28486}#)
- (if (= #{i 28486}# #{n 28423}#)
- #{v 28424}#
+ ((#{loop 51755}#
+ (lambda (#{i 51816}#)
+ (if (= #{i 51816}# #{n 51753}#)
+ #{v 51754}#
(begin
(vector-set!
- #{v 28424}#
- #{i 28486}#
- (#{rebuild-macro-output 28256}#
- (vector-ref #{x 28363}# #{i 28486}#)
- #{m 28364}#))
- (#{loop 28425}# (#{1+}# #{i 28486}#)))))))
- (#{loop 28425}# 0))))
- (if (symbol? #{x 28363}#)
+ #{v 51754}#
+ #{i 51816}#
+ (#{rebuild-macro-output 51586}#
+ (vector-ref #{x 51693}# #{i 51816}#)
+ #{m 51694}#))
+ (#{loop 51755}# (#{1+}# #{i 51816}#)))))))
+ (#{loop 51755}# 0))))
+ (if (symbol? #{x 51693}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 28492}# (cdr #{w 28252}#)))
- (let ((#{x 28496}#
+ (let ((#{s 51831}# (cdr #{w 51582}#)))
+ (let ((#{x 51835}#
(begin
- (if (if (pair? #{e 28250}#) #{s 28492}# #f)
+ (if (if (pair? #{e 51580}#) #{s 51831}# #f)
(set-source-properties!
- #{e 28250}#
- #{s 28492}#))
- #{e 28250}#)))
- (if (if (null? (car #{w 28252}#))
- (null? (cdr #{w 28252}#))
+ #{e 51580}#
+ #{s 51831}#))
+ #{e 51580}#)))
+ (if (if (null? (car #{w 51582}#))
+ (null? (cdr #{w 51582}#))
#f)
- #{x 28496}#
- (if (if (vector? #{x 28496}#)
- (if (= (vector-length #{x 28496}#) 4)
- (eq? (vector-ref #{x 28496}# 0)
+ #{x 51835}#
+ (if (if (vector? #{x 51835}#)
+ (if (= (vector-length #{x 51835}#) 4)
+ (eq? (vector-ref #{x 51835}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28528}#
- (vector-ref #{x 28496}# 1))
- (#{wrap 28529}#
- (let ((#{w2 28537}#
- (vector-ref #{x 28496}# 2)))
- (let ((#{m1 28538}#
- (car #{w 28252}#))
- (#{s1 28539}#
- (cdr #{w 28252}#)))
- (if (null? #{m1 28538}#)
- (if (null? #{s1 28539}#)
- #{w2 28537}#
- (cons (car #{w2 28537}#)
- (let ((#{m2 28554}#
- (cdr #{w2 28537}#)))
- (if (null? #{m2 28554}#)
- #{s1 28539}#
+ (let ((#{expression 51867}#
+ (vector-ref #{x 51835}# 1))
+ (#{wrap 51868}#
+ (let ((#{w2 51876}#
+ (vector-ref #{x 51835}# 2)))
+ (let ((#{m1 51877}#
+ (car #{w 51582}#))
+ (#{s1 51878}#
+ (cdr #{w 51582}#)))
+ (if (null? #{m1 51877}#)
+ (if (null? #{s1 51878}#)
+ #{w2 51876}#
+ (cons (car #{w2 51876}#)
+ (let ((#{m2 51893}#
+ (cdr #{w2 51876}#)))
+ (if (null? #{m2 51893}#)
+ #{s1 51878}#
(append
- #{s1 28539}#
- #{m2 28554}#)))))
- (cons (let ((#{m2 28562}#
- (car #{w2 28537}#)))
- (if (null? #{m2 28562}#)
- #{m1 28538}#
+ #{s1 51878}#
+ #{m2 51893}#)))))
+ (cons (let ((#{m2 51901}#
+ (car #{w2 51876}#)))
+ (if (null? #{m2 51901}#)
+ #{m1 51877}#
(append
- #{m1 28538}#
- #{m2 28562}#)))
- (let ((#{m2 28570}#
- (cdr #{w2 28537}#)))
- (if (null? #{m2 28570}#)
- #{s1 28539}#
+ #{m1 51877}#
+ #{m2 51901}#)))
+ (let ((#{m2 51909}#
+ (cdr #{w2 51876}#)))
+ (if (null? #{m2 51909}#)
+ #{s1 51878}#
(append
- #{s1 28539}#
- #{m2 28570}#))))))))
- (#{module 28530}#
- (vector-ref #{x 28496}# 3)))
+ #{s1 51878}#
+ #{m2 51909}#))))))))
+ (#{module 51869}#
+ (vector-ref #{x 51835}# 3)))
(vector
'syntax-object
- #{expression 28528}#
- #{wrap 28529}#
- #{module 28530}#))
- (if (null? #{x 28496}#)
- #{x 28496}#
+ #{expression 51867}#
+ #{wrap 51868}#
+ #{module 51869}#))
+ (if (null? #{x 51835}#)
+ #{x 51835}#
(vector
'syntax-object
- #{x 28496}#
- #{w 28252}#
- #{mod 28255}#))))))
- #{x 28363}#)
+ #{x 51835}#
+ #{w 51582}#
+ #{mod 51585}#))))))
+ #{x 51693}#)
(begin
- (if (if (pair? #{x 28363}#) #{s 28253}# #f)
- (set-source-properties! #{x 28363}# #{s 28253}#))
- #{x 28363}#))))))))
- (#{rebuild-macro-output 28256}#
- (#{p 28249}#
- (let ((#{w 28263}#
- (cons (cons #f (car #{w 28252}#))
- (cons 'shift (cdr #{w 28252}#)))))
- (let ((#{x 28268}#
+ (if (if (pair? #{x 51693}#) #{s 51583}# #f)
+ (set-source-properties! #{x 51693}# #{s 51583}#))
+ #{x 51693}#))))))))
+ (#{rebuild-macro-output 51586}#
+ (#{p 51579}#
+ (let ((#{w 51593}#
+ (cons (cons #f (car #{w 51582}#))
+ (cons 'shift (cdr #{w 51582}#)))))
+ (let ((#{x 51598}#
(begin
- (if (if (pair? #{e 28250}#) #{s 28253}# #f)
- (set-source-properties! #{e 28250}# #{s 28253}#))
- #{e 28250}#)))
- (if (if (null? (car #{w 28263}#))
- (null? (cdr #{w 28263}#))
+ (if (if (pair? #{e 51580}#) #{s 51583}# #f)
+ (set-source-properties! #{e 51580}# #{s 51583}#))
+ #{e 51580}#)))
+ (if (if (null? (car #{w 51593}#))
+ (null? (cdr #{w 51593}#))
#f)
- #{x 28268}#
- (if (if (vector? #{x 28268}#)
- (if (= (vector-length #{x 28268}#) 4)
- (eq? (vector-ref #{x 28268}# 0) 'syntax-object)
+ #{x 51598}#
+ (if (if (vector? #{x 51598}#)
+ (if (= (vector-length #{x 51598}#) 4)
+ (eq? (vector-ref #{x 51598}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 28306}# (vector-ref #{x 28268}# 1))
- (#{wrap 28307}#
- (let ((#{w2 28315}# (vector-ref #{x 28268}# 2)))
- (let ((#{m1 28316}# (car #{w 28263}#))
- (#{s1 28317}# (cdr #{w 28263}#)))
- (if (null? #{m1 28316}#)
- (if (null? #{s1 28317}#)
- #{w2 28315}#
- (cons (car #{w2 28315}#)
- (let ((#{m2 28332}#
- (cdr #{w2 28315}#)))
- (if (null? #{m2 28332}#)
- #{s1 28317}#
+ (let ((#{expression 51636}# (vector-ref #{x 51598}# 1))
+ (#{wrap 51637}#
+ (let ((#{w2 51645}# (vector-ref #{x 51598}# 2)))
+ (let ((#{m1 51646}# (car #{w 51593}#))
+ (#{s1 51647}# (cdr #{w 51593}#)))
+ (if (null? #{m1 51646}#)
+ (if (null? #{s1 51647}#)
+ #{w2 51645}#
+ (cons (car #{w2 51645}#)
+ (let ((#{m2 51662}#
+ (cdr #{w2 51645}#)))
+ (if (null? #{m2 51662}#)
+ #{s1 51647}#
(append
- #{s1 28317}#
- #{m2 28332}#)))))
- (cons (let ((#{m2 28340}#
- (car #{w2 28315}#)))
- (if (null? #{m2 28340}#)
- #{m1 28316}#
+ #{s1 51647}#
+ #{m2 51662}#)))))
+ (cons (let ((#{m2 51670}#
+ (car #{w2 51645}#)))
+ (if (null? #{m2 51670}#)
+ #{m1 51646}#
(append
- #{m1 28316}#
- #{m2 28340}#)))
- (let ((#{m2 28348}#
- (cdr #{w2 28315}#)))
- (if (null? #{m2 28348}#)
- #{s1 28317}#
+ #{m1 51646}#
+ #{m2 51670}#)))
+ (let ((#{m2 51678}#
+ (cdr #{w2 51645}#)))
+ (if (null? #{m2 51678}#)
+ #{s1 51647}#
(append
- #{s1 28317}#
- #{m2 28348}#))))))))
- (#{module 28308}# (vector-ref #{x 28268}# 3)))
+ #{s1 51647}#
+ #{m2 51678}#))))))))
+ (#{module 51638}# (vector-ref #{x 51598}# 3)))
(vector
'syntax-object
- #{expression 28306}#
- #{wrap 28307}#
- #{module 28308}#))
- (if (null? #{x 28268}#)
- #{x 28268}#
+ #{expression 51636}#
+ #{wrap 51637}#
+ #{module 51638}#))
+ (if (null? #{x 51598}#)
+ #{x 51598}#
(vector
'syntax-object
- #{x 28268}#
- #{w 28263}#
- #{mod 28255}#)))))))
+ #{x 51598}#
+ #{w 51593}#
+ #{mod 51585}#)))))))
(gensym "m")))))
- (#{expand-body 4447}#
- (lambda (#{body 28600}#
- #{outer-form 28601}#
- #{r 28602}#
- #{w 28603}#
- #{mod 28604}#)
- (let ((#{r 28605}#
- (cons '("placeholder" placeholder) #{r 28602}#)))
- (let ((#{ribcage 28606}# (vector 'ribcage '() '() '())))
- (let ((#{w 28607}#
- (cons (car #{w 28603}#)
- (cons #{ribcage 28606}# (cdr #{w 28603}#)))))
+ (#{expand-body 28275}#
+ (lambda (#{body 51939}#
+ #{outer-form 51940}#
+ #{r 51941}#
+ #{w 51942}#
+ #{mod 51943}#)
+ (let ((#{r 51944}#
+ (cons '("placeholder" placeholder) #{r 51941}#)))
+ (let ((#{ribcage 51945}# (vector 'ribcage '() '() '())))
+ (let ((#{w 51946}#
+ (cons (car #{w 51942}#)
+ (cons #{ribcage 51945}# (cdr #{w 51942}#)))))
(letrec*
- ((#{parse 28608}#
- (lambda (#{body 28716}#
- #{ids 28717}#
- #{labels 28718}#
- #{var-ids 28719}#
- #{vars 28720}#
- #{vals 28721}#
- #{bindings 28722}#)
- (if (null? #{body 28716}#)
+ ((#{parse 51947}#
+ (lambda (#{body 52055}#
+ #{ids 52056}#
+ #{labels 52057}#
+ #{var-ids 52058}#
+ #{vars 52059}#
+ #{vals 52060}#
+ #{bindings 52061}#)
+ (if (null? #{body 52055}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 28601}#)
- (let ((#{e 28723}# (cdr (car #{body 28716}#)))
- (#{er 28724}# (car (car #{body 28716}#))))
+ #{outer-form 51940}#)
+ (let ((#{e 52062}# (cdr (car #{body 52055}#)))
+ (#{er 52063}# (car (car #{body 52055}#))))
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{e 28723}#
- #{er 28724}#
+ (#{syntax-type 28270}#
+ #{e 52062}#
+ #{er 52063}#
'(())
- (#{source-annotation 4404}# #{er 28724}#)
- #{ribcage 28606}#
- #{mod 28604}#
+ (#{source-annotation 28232}# #{er 52063}#)
+ #{ribcage 51945}#
+ #{mod 51943}#
#f))
- (lambda (#{type 28930}#
- #{value 28931}#
- #{e 28932}#
- #{w 28933}#
- #{s 28934}#
- #{mod 28935}#)
- (if (eqv? #{type 28930}# 'define-form)
- (let ((#{id 28939}#
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ (lambda (#{type 52251}#
+ #{value 52252}#
+ #{e 52253}#
+ #{w 52254}#
+ #{s 52255}#
+ #{mod 52256}#)
+ (if (eqv? #{type 52251}# 'define-form)
+ (let ((#{id 52260}#
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{value 28931}#
- (if (if (vector? #{value 28931}#)
+ #{value 52252}#
+ (if (if (vector? #{value 52252}#)
(if (= (vector-length
- #{value 28931}#)
+ #{value 52252}#)
4)
(eq? (vector-ref
- #{value 28931}#
+ #{value 52252}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28984}#
+ (let ((#{expression 52305}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
1))
- (#{wrap 28985}#
- (let ((#{w2 28995}#
+ (#{wrap 52306}#
+ (let ((#{w2 52316}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
2)))
- (let ((#{m1 28996}#
- (car #{w 28933}#))
- (#{s1 28997}#
- (cdr #{w 28933}#)))
- (if (null? #{m1 28996}#)
- (if (null? #{s1 28997}#)
- #{w2 28995}#
- (cons (car #{w2 28995}#)
- (let ((#{m2 29014}#
- (cdr #{w2 28995}#)))
- (if (null? #{m2 29014}#)
- #{s1 28997}#
+ (let ((#{m1 52317}#
+ (car #{w 52254}#))
+ (#{s1 52318}#
+ (cdr #{w 52254}#)))
+ (if (null? #{m1 52317}#)
+ (if (null? #{s1 52318}#)
+ #{w2 52316}#
+ (cons (car #{w2 52316}#)
+ (let ((#{m2 52335}#
+ (cdr #{w2 52316}#)))
+ (if (null? #{m2 52335}#)
+ #{s1 52318}#
(append
- #{s1 28997}#
- #{m2 29014}#)))))
- (cons (let ((#{m2 29022}#
- (car #{w2 28995}#)))
- (if (null? #{m2 29022}#)
- #{m1 28996}#
+ #{s1 52318}#
+ #{m2 52335}#)))))
+ (cons (let ((#{m2 52343}#
+ (car #{w2 52316}#)))
+ (if (null? #{m2 52343}#)
+ #{m1 52317}#
(append
- #{m1 28996}#
- #{m2 29022}#)))
- (let ((#{m2 29030}#
- (cdr #{w2 28995}#)))
- (if (null? #{m2 29030}#)
- #{s1 28997}#
+ #{m1 52317}#
+ #{m2 52343}#)))
+ (let ((#{m2 52351}#
+ (cdr #{w2 52316}#)))
+ (if (null? #{m2 52351}#)
+ #{s1 52318}#
(append
- #{s1 28997}#
- #{m2 29030}#))))))))
- (#{module 28986}#
+ #{s1 52318}#
+ #{m2 52351}#))))))))
+ (#{module 52307}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
3)))
(vector
'syntax-object
- #{expression 28984}#
- #{wrap 28985}#
- #{module 28986}#))
- (if (null? #{value 28931}#)
- #{value 28931}#
+ #{expression 52305}#
+ #{wrap 52306}#
+ #{module 52307}#))
+ (if (null? #{value 52252}#)
+ #{value 52252}#
(vector
'syntax-object
- #{value 28931}#
- #{w 28933}#
- #{mod 28935}#)))))
- (#{label 28940}#
+ #{value 52252}#
+ #{w 52254}#
+ #{mod 52256}#)))))
+ (#{label 52261}#
(symbol->string (gensym "i"))))
- (let ((#{var 28941}#
- (let ((#{id 29091}#
- (if (if (vector? #{id 28939}#)
+ (let ((#{var 52262}#
+ (let ((#{id 52412}#
+ (if (if (vector? #{id 52260}#)
(if (= (vector-length
- #{id 28939}#)
+ #{id 52260}#)
4)
(eq? (vector-ref
- #{id 28939}#
+ #{id 52260}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 28939}# 1)
- #{id 28939}#)))
+ (vector-ref #{id 52260}# 1)
+ #{id 52260}#)))
(gensym
(string-append
- (symbol->string #{id 29091}#)
+ (symbol->string #{id 52412}#)
" ")))))
(begin
(begin
- (let ((#{update 28950}#
- (cons (vector-ref #{id 28939}# 1)
+ (let ((#{update 52271}#
+ (cons (vector-ref #{id 52260}# 1)
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
1))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
1
- #{update 28950}#))
- (let ((#{update 29062}#
+ #{update 52271}#))
+ (let ((#{update 52383}#
(cons (car (vector-ref
- #{id 28939}#
+ #{id 52260}#
2))
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
2))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
2
- #{update 29062}#))
- (let ((#{update 29077}#
- (cons #{label 28940}#
+ #{update 52383}#))
+ (let ((#{update 52398}#
+ (cons #{label 52261}#
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
3))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
3
- #{update 29077}#)))
- (#{parse 28608}#
- (cdr #{body 28716}#)
- (cons #{id 28939}# #{ids 28717}#)
- (cons #{label 28940}# #{labels 28718}#)
- (cons #{id 28939}# #{var-ids 28719}#)
- (cons #{var 28941}# #{vars 28720}#)
- (cons (cons #{er 28724}#
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ #{update 52398}#)))
+ (#{parse 51947}#
+ (cdr #{body 52055}#)
+ (cons #{id 52260}# #{ids 52056}#)
+ (cons #{label 52261}# #{labels 52057}#)
+ (cons #{id 52260}# #{var-ids 52058}#)
+ (cons #{var 52262}# #{vars 52059}#)
+ (cons (cons #{er 52063}#
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{e 28932}#
+ #{e 52253}#
(if (if (vector?
- #{e 28932}#)
+ #{e 52253}#)
(if (= (vector-length
- #{e 28932}#)
+ #{e 52253}#)
4)
(eq? (vector-ref
- #{e 28932}#
+ #{e 52253}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29143}#
+ (let ((#{expression 52464}#
(vector-ref
- #{e 28932}#
+ #{e 52253}#
1))
- (#{wrap 29144}#
- (let ((#{w2 29154}#
+ (#{wrap 52465}#
+ (let ((#{w2 52475}#
(vector-ref
- #{e 28932}#
+ #{e 52253}#
2)))
- (let ((#{m1 29155}#
- (car #{w 28933}#))
- (#{s1 29156}#
- (cdr #{w 28933}#)))
- (if (null? #{m1 29155}#)
- (if (null? #{s1 29156}#)
- #{w2 29154}#
- (cons (car #{w2 29154}#)
- (let ((#{m2 29173}#
- (cdr #{w2 29154}#)))
- (if (null? #{m2 29173}#)
- #{s1 29156}#
+ (let ((#{m1 52476}#
+ (car #{w 52254}#))
+ (#{s1 52477}#
+ (cdr #{w 52254}#)))
+ (if (null? #{m1 52476}#)
+ (if (null? #{s1 52477}#)
+ #{w2 52475}#
+ (cons (car #{w2 52475}#)
+ (let ((#{m2 52494}#
+ (cdr #{w2 52475}#)))
+ (if (null? #{m2 52494}#)
+ #{s1 52477}#
(append
- #{s1 29156}#
- #{m2 29173}#)))))
- (cons (let ((#{m2 29181}#
- (car #{w2 29154}#)))
- (if (null? #{m2 29181}#)
- #{m1 29155}#
+ #{s1 52477}#
+ #{m2 52494}#)))))
+ (cons (let ((#{m2 52502}#
+ (car #{w2 52475}#)))
+ (if (null? #{m2 52502}#)
+ #{m1 52476}#
(append
- #{m1 29155}#
- #{m2 29181}#)))
- (let ((#{m2 29189}#
- (cdr #{w2 29154}#)))
- (if (null? #{m2 29189}#)
- #{s1 29156}#
+ #{m1 52476}#
+ #{m2 52502}#)))
+ (let ((#{m2 52510}#
+ (cdr #{w2 52475}#)))
+ (if (null? #{m2 52510}#)
+ #{s1 52477}#
(append
- #{s1 29156}#
- #{m2 29189}#))))))))
- (#{module 29145}#
+ #{s1 52477}#
+ #{m2 52510}#))))))))
+ (#{module 52466}#
(vector-ref
- #{e 28932}#
+ #{e 52253}#
3)))
(vector
'syntax-object
- #{expression 29143}#
- #{wrap 29144}#
- #{module 29145}#))
- (if (null? #{e 28932}#)
- #{e 28932}#
+ #{expression 52464}#
+ #{wrap 52465}#
+ #{module 52466}#))
+ (if (null? #{e 52253}#)
+ #{e 52253}#
(vector
'syntax-object
- #{e 28932}#
- #{w 28933}#
- #{mod 28935}#)))))
- #{vals 28721}#)
- (cons (cons 'lexical #{var 28941}#)
- #{bindings 28722}#)))))
- (if (if (eqv? #{type 28930}# 'define-syntax-form)
+ #{e 52253}#
+ #{w 52254}#
+ #{mod 52256}#)))))
+ #{vals 52060}#)
+ (cons (cons 'lexical #{var 52262}#)
+ #{bindings 52061}#)))))
+ (if (if (eqv? #{type 52251}# 'define-syntax-form)
#t
- (eqv? #{type 28930}#
+ (eqv? #{type 52251}#
'define-syntax-parameter-form))
- (let ((#{id 29220}#
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ (let ((#{id 52541}#
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{value 28931}#
- (if (if (vector? #{value 28931}#)
+ #{value 52252}#
+ (if (if (vector? #{value 52252}#)
(if (= (vector-length
- #{value 28931}#)
+ #{value 52252}#)
4)
(eq? (vector-ref
- #{value 28931}#
+ #{value 52252}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29264}#
+ (let ((#{expression 52585}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
1))
- (#{wrap 29265}#
- (let ((#{w2 29275}#
+ (#{wrap 52586}#
+ (let ((#{w2 52596}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
2)))
- (let ((#{m1 29276}#
- (car #{w 28933}#))
- (#{s1 29277}#
- (cdr #{w 28933}#)))
- (if (null? #{m1 29276}#)
- (if (null? #{s1 29277}#)
- #{w2 29275}#
- (cons (car #{w2 29275}#)
- (let ((#{m2 29294}#
- (cdr #{w2 29275}#)))
- (if (null? #{m2 29294}#)
- #{s1 29277}#
+ (let ((#{m1 52597}#
+ (car #{w 52254}#))
+ (#{s1 52598}#
+ (cdr #{w 52254}#)))
+ (if (null? #{m1 52597}#)
+ (if (null? #{s1 52598}#)
+ #{w2 52596}#
+ (cons (car #{w2 52596}#)
+ (let ((#{m2 52615}#
+ (cdr #{w2 52596}#)))
+ (if (null? #{m2 52615}#)
+ #{s1 52598}#
(append
- #{s1 29277}#
- #{m2 29294}#)))))
- (cons (let ((#{m2 29302}#
- (car #{w2 29275}#)))
- (if (null? #{m2 29302}#)
- #{m1 29276}#
+ #{s1 52598}#
+ #{m2 52615}#)))))
+ (cons (let ((#{m2 52623}#
+ (car #{w2 52596}#)))
+ (if (null? #{m2 52623}#)
+ #{m1 52597}#
(append
- #{m1 29276}#
- #{m2 29302}#)))
- (let ((#{m2 29310}#
- (cdr #{w2 29275}#)))
- (if (null? #{m2 29310}#)
- #{s1 29277}#
+ #{m1 52597}#
+ #{m2 52623}#)))
+ (let ((#{m2 52631}#
+ (cdr #{w2 52596}#)))
+ (if (null? #{m2 52631}#)
+ #{s1 52598}#
(append
- #{s1 29277}#
- #{m2 29310}#))))))))
- (#{module 29266}#
+ #{s1 52598}#
+ #{m2 52631}#))))))))
+ (#{module 52587}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
3)))
(vector
'syntax-object
- #{expression 29264}#
- #{wrap 29265}#
- #{module 29266}#))
- (if (null? #{value 28931}#)
- #{value 28931}#
+ #{expression 52585}#
+ #{wrap 52586}#
+ #{module 52587}#))
+ (if (null? #{value 52252}#)
+ #{value 52252}#
(vector
'syntax-object
- #{value 28931}#
- #{w 28933}#
- #{mod 28935}#)))))
- (#{label 29221}#
+ #{value 52252}#
+ #{w 52254}#
+ #{mod 52256}#)))))
+ (#{label 52542}#
(symbol->string (gensym "i"))))
(begin
(begin
- (let ((#{update 29230}#
- (cons (vector-ref #{id 29220}# 1)
+ (let ((#{update 52551}#
+ (cons (vector-ref #{id 52541}# 1)
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
1))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
1
- #{update 29230}#))
- (let ((#{update 29342}#
+ #{update 52551}#))
+ (let ((#{update 52663}#
(cons (car (vector-ref
- #{id 29220}#
+ #{id 52541}#
2))
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
2))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
2
- #{update 29342}#))
- (let ((#{update 29357}#
- (cons #{label 29221}#
+ #{update 52663}#))
+ (let ((#{update 52678}#
+ (cons #{label 52542}#
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
3))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
3
- #{update 29357}#)))
- (#{parse 28608}#
- (cdr #{body 28716}#)
- (cons #{id 29220}# #{ids 28717}#)
- (cons #{label 29221}# #{labels 28718}#)
- #{var-ids 28719}#
- #{vars 28720}#
- #{vals 28721}#
- (cons (cons (if (eq? #{type 28930}#
+ #{update 52678}#)))
+ (#{parse 51947}#
+ (cdr #{body 52055}#)
+ (cons #{id 52541}# #{ids 52056}#)
+ (cons #{label 52542}# #{labels 52057}#)
+ #{var-ids 52058}#
+ #{vars 52059}#
+ #{vals 52060}#
+ (cons (cons (if (eq? #{type 52251}#
'define-syntax-parameter-form)
'syntax-parameter
'macro)
- (cons #{er 28724}#
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ (cons #{er 52063}#
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{e 28932}#
+ #{e 52253}#
(if (if (vector?
- #{e 28932}#)
+ #{e 52253}#)
(if (= (vector-length
- #{e 28932}#)
+ #{e 52253}#)
4)
(eq? (vector-ref
- #{e 28932}#
+ #{e 52253}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29396}#
+ (let ((#{expression 52717}#
(vector-ref
- #{e 28932}#
+ #{e 52253}#
1))
- (#{wrap 29397}#
- (let ((#{w2 29407}#
+ (#{wrap 52718}#
+ (let ((#{w2 52728}#
(vector-ref
- #{e 28932}#
+ #{e 52253}#
2)))
- (let ((#{m1 29408}#
- (car #{w 28933}#))
- (#{s1 29409}#
- (cdr #{w 28933}#)))
- (if (null? #{m1 29408}#)
- (if (null? #{s1 29409}#)
- #{w2 29407}#
- (cons (car #{w2 29407}#)
- (let ((#{m2 29426}#
- (cdr #{w2 29407}#)))
- (if (null? #{m2 29426}#)
- #{s1 29409}#
+ (let ((#{m1 52729}#
+ (car #{w 52254}#))
+ (#{s1 52730}#
+ (cdr #{w 52254}#)))
+ (if (null? #{m1 52729}#)
+ (if (null? #{s1 52730}#)
+ #{w2 52728}#
+ (cons (car #{w2 52728}#)
+ (let ((#{m2 52747}#
+ (cdr #{w2 52728}#)))
+ (if (null? #{m2 52747}#)
+ #{s1 52730}#
(append
- #{s1 29409}#
- #{m2 29426}#)))))
- (cons (let ((#{m2 29434}#
- (car #{w2 29407}#)))
- (if (null? #{m2 29434}#)
- #{m1 29408}#
+ #{s1 52730}#
+ #{m2 52747}#)))))
+ (cons (let ((#{m2 52755}#
+ (car #{w2 52728}#)))
+ (if (null? #{m2 52755}#)
+ #{m1 52729}#
(append
- #{m1 29408}#
- #{m2 29434}#)))
- (let ((#{m2 29442}#
- (cdr #{w2 29407}#)))
- (if (null? #{m2 29442}#)
- #{s1 29409}#
+ #{m1 52729}#
+ #{m2 52755}#)))
+ (let ((#{m2 52763}#
+ (cdr #{w2 52728}#)))
+ (if (null? #{m2 52763}#)
+ #{s1 52730}#
(append
- #{s1 29409}#
- #{m2 29442}#))))))))
- (#{module 29398}#
+ #{s1 52730}#
+ #{m2 52763}#))))))))
+ (#{module 52719}#
(vector-ref
- #{e 28932}#
+ #{e 52253}#
3)))
(vector
'syntax-object
- #{expression 29396}#
- #{wrap 29397}#
- #{module 29398}#))
- (if (null? #{e 28932}#)
- #{e 28932}#
+ #{expression 52717}#
+ #{wrap 52718}#
+ #{module 52719}#))
+ (if (null? #{e 52253}#)
+ #{e 52253}#
(vector
'syntax-object
- #{e 28932}#
- #{w 28933}#
- #{mod 28935}#))))))
- #{bindings 28722}#))))
- (if (eqv? #{type 28930}# 'begin-form)
- (let ((#{tmp 29469}#
+ #{e 52253}#
+ #{w 52254}#
+ #{mod 52256}#))))))
+ #{bindings 52061}#))))
+ (if (eqv? #{type 52251}# 'begin-form)
+ (let ((#{tmp 52790}#
($sc-dispatch
- #{e 28932}#
+ #{e 52253}#
'(_ . each-any))))
- (if #{tmp 29469}#
+ (if #{tmp 52790}#
(@apply
- (lambda (#{e1 29473}#)
- (#{parse 28608}#
+ (lambda (#{e1 52794}#)
+ (#{parse 51947}#
(letrec*
- ((#{f 29474}#
- (lambda (#{forms 29690}#)
- (if (null? #{forms 29690}#)
- (cdr #{body 28716}#)
- (cons (cons #{er 28724}#
- (let ((#{x 29694}#
- (car #{forms 29690}#)))
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ ((#{f 52795}#
+ (lambda (#{forms 52996}#)
+ (if (null? #{forms 52996}#)
+ (cdr #{body 52055}#)
+ (cons (cons #{er 52063}#
+ (let ((#{x 53000}#
+ (car #{forms 52996}#)))
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{x 29694}#
+ #{x 53000}#
(if (if (vector?
- #{x 29694}#)
+ #{x 53000}#)
(if (= (vector-length
- #{x 29694}#)
+ #{x 53000}#)
4)
(eq? (vector-ref
- #{x 29694}#
+ #{x 53000}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29712}#
+ (let ((#{expression 53018}#
(vector-ref
- #{x 29694}#
+ #{x 53000}#
1))
- (#{wrap 29713}#
- (let ((#{w2 29721}#
+ (#{wrap 53019}#
+ (let ((#{w2 53027}#
(vector-ref
- #{x 29694}#
+ #{x 53000}#
2)))
- (let ((#{m1 29722}#
- (car #{w 28933}#))
- (#{s1 29723}#
- (cdr #{w 28933}#)))
- (if (null? #{m1 29722}#)
- (if (null? #{s1 29723}#)
- #{w2 29721}#
- (cons (car #{w2 29721}#)
- (let ((#{m2 29738}#
- (cdr #{w2 29721}#)))
- (if (null? #{m2 29738}#)
- #{s1 29723}#
+ (let ((#{m1 53028}#
+ (car #{w 52254}#))
+ (#{s1 53029}#
+ (cdr #{w 52254}#)))
+ (if (null? #{m1 53028}#)
+ (if (null? #{s1 53029}#)
+ #{w2 53027}#
+ (cons (car #{w2 53027}#)
+ (let ((#{m2 53044}#
+ (cdr #{w2 53027}#)))
+ (if (null? #{m2 53044}#)
+ #{s1 53029}#
(append
- #{s1 29723}#
- #{m2 29738}#)))))
- (cons (let ((#{m2 29746}#
- (car #{w2 29721}#)))
- (if (null? #{m2 29746}#)
- #{m1 29722}#
+ #{s1 53029}#
+ #{m2 53044}#)))))
+ (cons (let ((#{m2 53052}#
+ (car #{w2 53027}#)))
+ (if (null? #{m2 53052}#)
+ #{m1 53028}#
(append
- #{m1 29722}#
- #{m2 29746}#)))
- (let ((#{m2 29754}#
- (cdr #{w2 29721}#)))
- (if (null? #{m2 29754}#)
- #{s1 29723}#
+ #{m1 53028}#
+ #{m2 53052}#)))
+ (let ((#{m2 53060}#
+ (cdr #{w2 53027}#)))
+ (if (null? #{m2 53060}#)
+ #{s1 53029}#
(append
- #{s1 29723}#
- #{m2 29754}#))))))))
- (#{module 29714}#
+ #{s1 53029}#
+ #{m2 53060}#))))))))
+ (#{module 53020}#
(vector-ref
- #{x 29694}#
+ #{x 53000}#
3)))
(vector
'syntax-object
- #{expression 29712}#
- #{wrap 29713}#
- #{module 29714}#))
- (if (null? #{x 29694}#)
- #{x 29694}#
+ #{expression 53018}#
+ #{wrap 53019}#
+ #{module 53020}#))
+ (if (null? #{x 53000}#)
+ #{x 53000}#
(vector
'syntax-object
- #{x 29694}#
- #{w 28933}#
- #{mod 28935}#))))))
- (#{f 29474}#
- (cdr #{forms 29690}#)))))))
- (#{f 29474}# #{e1 29473}#))
- #{ids 28717}#
- #{labels 28718}#
- #{var-ids 28719}#
- #{vars 28720}#
- #{vals 28721}#
- #{bindings 28722}#))
- #{tmp 29469}#)
+ #{x 53000}#
+ #{w 52254}#
+ #{mod 52256}#))))))
+ (#{f 52795}#
+ (cdr #{forms 52996}#)))))))
+ (#{f 52795}# #{e1 52794}#))
+ #{ids 52056}#
+ #{labels 52057}#
+ #{var-ids 52058}#
+ #{vars 52059}#
+ #{vals 52060}#
+ #{bindings 52061}#))
+ #{tmp 52790}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 28932}#)))
- (if (eqv? #{type 28930}# 'local-syntax-form)
- (#{expand-local-syntax 4448}#
- #{value 28931}#
- #{e 28932}#
- #{er 28724}#
- #{w 28933}#
- #{s 28934}#
- #{mod 28935}#
- (lambda (#{forms 29780}#
- #{er 29781}#
- #{w 29782}#
- #{s 29783}#
- #{mod 29784}#)
- (#{parse 28608}#
+ #{e 52253}#)))
+ (if (eqv? #{type 52251}# 'local-syntax-form)
+ (#{expand-local-syntax 28276}#
+ #{value 52252}#
+ #{e 52253}#
+ #{er 52063}#
+ #{w 52254}#
+ #{s 52255}#
+ #{mod 52256}#
+ (lambda (#{forms 53086}#
+ #{er 53087}#
+ #{w 53088}#
+ #{s 53089}#
+ #{mod 53090}#)
+ (#{parse 51947}#
(letrec*
- ((#{f 29785}#
- (lambda (#{forms 30001}#)
- (if (null? #{forms 30001}#)
- (cdr #{body 28716}#)
- (cons (cons #{er 29781}#
- (let ((#{x 30005}#
- (car #{forms 30001}#)))
- (if (if (null? (car #{w 29782}#))
- (null? (cdr #{w 29782}#))
+ ((#{f 53091}#
+ (lambda (#{forms 53292}#)
+ (if (null? #{forms 53292}#)
+ (cdr #{body 52055}#)
+ (cons (cons #{er 53087}#
+ (let ((#{x 53296}#
+ (car #{forms 53292}#)))
+ (if (if (null? (car #{w 53088}#))
+ (null? (cdr #{w 53088}#))
#f)
- #{x 30005}#
+ #{x 53296}#
(if (if (vector?
- #{x 30005}#)
+ #{x 53296}#)
(if (= (vector-length
- #{x 30005}#)
+ #{x 53296}#)
4)
(eq? (vector-ref
- #{x 30005}#
+ #{x 53296}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30023}#
+ (let ((#{expression 53314}#
(vector-ref
- #{x 30005}#
+ #{x 53296}#
1))
- (#{wrap 30024}#
- (let ((#{w2 30032}#
+ (#{wrap 53315}#
+ (let ((#{w2 53323}#
(vector-ref
- #{x 30005}#
+ #{x 53296}#
2)))
- (let ((#{m1 30033}#
- (car #{w 29782}#))
- (#{s1 30034}#
- (cdr #{w 29782}#)))
- (if (null? #{m1 30033}#)
- (if (null? #{s1 30034}#)
- #{w2 30032}#
- (cons (car #{w2 30032}#)
- (let ((#{m2 30049}#
- (cdr #{w2 30032}#)))
- (if (null? #{m2 30049}#)
- #{s1 30034}#
+ (let ((#{m1 53324}#
+ (car #{w 53088}#))
+ (#{s1 53325}#
+ (cdr #{w 53088}#)))
+ (if (null? #{m1 53324}#)
+ (if (null? #{s1 53325}#)
+ #{w2 53323}#
+ (cons (car #{w2 53323}#)
+ (let ((#{m2 53340}#
+ (cdr #{w2 53323}#)))
+ (if (null? #{m2 53340}#)
+ #{s1 53325}#
(append
- #{s1 30034}#
- #{m2 30049}#)))))
- (cons (let ((#{m2 30057}#
- (car #{w2 30032}#)))
- (if (null? #{m2 30057}#)
- #{m1 30033}#
+ #{s1 53325}#
+ #{m2 53340}#)))))
+ (cons (let ((#{m2 53348}#
+ (car #{w2 53323}#)))
+ (if (null? #{m2 53348}#)
+ #{m1 53324}#
(append
- #{m1 30033}#
- #{m2 30057}#)))
- (let ((#{m2 30065}#
- (cdr #{w2 30032}#)))
- (if (null? #{m2 30065}#)
- #{s1 30034}#
+ #{m1 53324}#
+ #{m2 53348}#)))
+ (let ((#{m2 53356}#
+ (cdr #{w2 53323}#)))
+ (if (null? #{m2 53356}#)
+ #{s1 53325}#
(append
- #{s1 30034}#
- #{m2 30065}#))))))))
- (#{module 30025}#
+ #{s1 53325}#
+ #{m2 53356}#))))))))
+ (#{module 53316}#
(vector-ref
- #{x 30005}#
+ #{x 53296}#
3)))
(vector
'syntax-object
- #{expression 30023}#
- #{wrap 30024}#
- #{module 30025}#))
- (if (null? #{x 30005}#)
- #{x 30005}#
+ #{expression 53314}#
+ #{wrap 53315}#
+ #{module 53316}#))
+ (if (null? #{x 53296}#)
+ #{x 53296}#
(vector
'syntax-object
- #{x 30005}#
- #{w 29782}#
- #{mod 29784}#))))))
- (#{f 29785}#
- (cdr #{forms 30001}#)))))))
- (#{f 29785}# #{forms 29780}#))
- #{ids 28717}#
- #{labels 28718}#
- #{var-ids 28719}#
- #{vars 28720}#
- #{vals 28721}#
- #{bindings 28722}#)))
- (if (null? #{ids 28717}#)
- (#{build-sequence 4392}#
+ #{x 53296}#
+ #{w 53088}#
+ #{mod 53090}#))))))
+ (#{f 53091}#
+ (cdr #{forms 53292}#)))))))
+ (#{f 53091}# #{forms 53086}#))
+ #{ids 52056}#
+ #{labels 52057}#
+ #{var-ids 52058}#
+ #{vars 52059}#
+ #{vals 52060}#
+ #{bindings 52061}#)))
+ (if (null? #{ids 52056}#)
+ (#{build-sequence 28220}#
#f
- (map (lambda (#{x 30154}#)
- (#{expand 4443}#
- (cdr #{x 30154}#)
- (car #{x 30154}#)
+ (map (lambda (#{x 53441}#)
+ (#{expand 28271}#
+ (cdr #{x 53441}#)
+ (car #{x 53441}#)
'(())
- #{mod 28935}#))
- (cons (cons #{er 28724}#
- (let ((#{x 30233}#
+ #{mod 52256}#))
+ (cons (cons #{er 52063}#
+ (let ((#{x 53516}#
(begin
- (if (if (pair? #{e 28932}#)
- #{s 28934}#
+ (if (if (pair? #{e 52253}#)
+ #{s 52255}#
#f)
(set-source-properties!
- #{e 28932}#
- #{s 28934}#))
- #{e 28932}#)))
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ #{e 52253}#
+ #{s 52255}#))
+ #{e 52253}#)))
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{x 30233}#
+ #{x 53516}#
(if (if (vector?
- #{x 30233}#)
+ #{x 53516}#)
(if (= (vector-length
- #{x 30233}#)
+ #{x 53516}#)
4)
(eq? (vector-ref
- #{x 30233}#
+ #{x 53516}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30265}#
+ (let ((#{expression 53548}#
(vector-ref
- #{x 30233}#
+ #{x 53516}#
1))
- (#{wrap 30266}#
- (let ((#{w2 30274}#
+ (#{wrap 53549}#
+ (let ((#{w2 53557}#
(vector-ref
- #{x 30233}#
+ #{x 53516}#
2)))
- (let ((#{m1 30275}#
- (car #{w 28933}#))
- (#{s1 30276}#
- (cdr #{w 28933}#)))
- (if (null? #{m1 30275}#)
- (if (null? #{s1 30276}#)
- #{w2 30274}#
- (cons (car #{w2 30274}#)
- (let ((#{m2 30291}#
- (cdr #{w2 30274}#)))
- (if (null? #{m2 30291}#)
- #{s1 30276}#
+ (let ((#{m1 53558}#
+ (car #{w 52254}#))
+ (#{s1 53559}#
+ (cdr #{w 52254}#)))
+ (if (null? #{m1 53558}#)
+ (if (null? #{s1 53559}#)
+ #{w2 53557}#
+ (cons (car #{w2 53557}#)
+ (let ((#{m2 53574}#
+ (cdr #{w2 53557}#)))
+ (if (null? #{m2 53574}#)
+ #{s1 53559}#
(append
- #{s1 30276}#
- #{m2 30291}#)))))
- (cons (let ((#{m2 30299}#
- (car #{w2 30274}#)))
- (if (null? #{m2 30299}#)
- #{m1 30275}#
+ #{s1 53559}#
+ #{m2 53574}#)))))
+ (cons (let ((#{m2 53582}#
+ (car #{w2 53557}#)))
+ (if (null? #{m2 53582}#)
+ #{m1 53558}#
(append
- #{m1 30275}#
- #{m2 30299}#)))
- (let ((#{m2 30307}#
- (cdr #{w2 30274}#)))
- (if (null? #{m2 30307}#)
- #{s1 30276}#
+ #{m1 53558}#
+ #{m2 53582}#)))
+ (let ((#{m2 53590}#
+ (cdr #{w2 53557}#)))
+ (if (null? #{m2 53590}#)
+ #{s1 53559}#
(append
- #{s1 30276}#
- #{m2 30307}#))))))))
- (#{module 30267}#
+ #{s1 53559}#
+ #{m2 53590}#))))))))
+ (#{module 53550}#
(vector-ref
- #{x 30233}#
+ #{x 53516}#
3)))
(vector
'syntax-object
- #{expression 30265}#
- #{wrap 30266}#
- #{module 30267}#))
- (if (null? #{x 30233}#)
- #{x 30233}#
+ #{expression 53548}#
+ #{wrap 53549}#
+ #{module 53550}#))
+ (if (null? #{x 53516}#)
+ #{x 53516}#
(vector
'syntax-object
- #{x 30233}#
- #{w 28933}#
- #{mod 28935}#))))))
- (cdr #{body 28716}#))))
+ #{x 53516}#
+ #{w 52254}#
+ #{mod 52256}#))))))
+ (cdr #{body 52055}#))))
(begin
- (if (not (#{valid-bound-ids? 4433}#
- #{ids 28717}#))
+ (if (not (#{valid-bound-ids? 28261}#
+ #{ids 52056}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form 28601}#))
+ #{outer-form 51940}#))
(letrec*
- ((#{loop 30406}#
- (lambda (#{bs 30409}#
- #{er-cache 30410}#
- #{r-cache 30411}#)
- (if (not (null? #{bs 30409}#))
- (let ((#{b 30412}#
- (car #{bs 30409}#)))
- (if (let ((#{t 30415}#
- (car #{b 30412}#)))
- (if (eq? #{t 30415}#
+ ((#{loop 53689}#
+ (lambda (#{bs 53692}#
+ #{er-cache 53693}#
+ #{r-cache 53694}#)
+ (if (not (null? #{bs 53692}#))
+ (let ((#{b 53695}#
+ (car #{bs 53692}#)))
+ (if (let ((#{t 53698}#
+ (car #{b 53695}#)))
+ (if (eq? #{t 53698}#
'macro)
#t
- (eq? #{t 30415}#
+ (eq? #{t 53698}#
'syntax-parameter)))
- (let ((#{er 30417}#
- (car (cdr #{b 30412}#))))
- (let ((#{r-cache 30418}#
- (if (eq? #{er 30417}#
- #{er-cache 30410}#)
- #{r-cache 30411}#
- (#{macros-only-env 4407}#
- #{er 30417}#))))
+ (let ((#{er 53700}#
+ (car (cdr #{b 53695}#))))
+ (let ((#{r-cache 53701}#
+ (if (eq? #{er 53700}#
+ #{er-cache 53693}#)
+ #{r-cache 53694}#
+ (#{macros-only-env 28235}#
+ #{er 53700}#))))
(begin
(set-cdr!
- #{b 30412}#
- (#{eval-local-transformer 4449}#
- (#{expand 4443}#
- (cdr (cdr #{b 30412}#))
- #{r-cache 30418}#
+ #{b 53695}#
+ (#{eval-local-transformer 28277}#
+ (#{expand 28271}#
+ (cdr (cdr #{b 53695}#))
+ #{r-cache 53701}#
'(())
- #{mod 28935}#)
- #{mod 28935}#))
- (if (eq? (car #{b 30412}#)
+ #{mod 52256}#)
+ #{mod 52256}#))
+ (if (eq? (car #{b 53695}#)
'syntax-parameter)
(set-cdr!
- #{b 30412}#
- (list (cdr #{b 30412}#))))
- (#{loop 30406}#
- (cdr #{bs 30409}#)
- #{er 30417}#
- #{r-cache 30418}#))))
- (#{loop 30406}#
- (cdr #{bs 30409}#)
- #{er-cache 30410}#
- #{r-cache 30411}#)))))))
- (#{loop 30406}#
- #{bindings 28722}#
+ #{b 53695}#
+ (list (cdr #{b 53695}#))))
+ (#{loop 53689}#
+ (cdr #{bs 53692}#)
+ #{er 53700}#
+ #{r-cache 53701}#))))
+ (#{loop 53689}#
+ (cdr #{bs 53692}#)
+ #{er-cache 53693}#
+ #{r-cache 53694}#)))))))
+ (#{loop 53689}#
+ #{bindings 52061}#
#f
#f))
(set-cdr!
- #{r 28605}#
- (#{extend-env 4405}#
- #{labels 28718}#
- #{bindings 28722}#
- (cdr #{r 28605}#)))
- (#{build-letrec 4395}#
+ #{r 51944}#
+ (#{extend-env 28233}#
+ #{labels 52057}#
+ #{bindings 52061}#
+ (cdr #{r 51944}#)))
+ (#{build-letrec 28223}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 28719}#))
- (reverse #{vars 28720}#)
- (map (lambda (#{x 30846}#)
- (#{expand 4443}#
- (cdr #{x 30846}#)
- (car #{x 30846}#)
+ #{var-ids 52058}#))
+ (reverse #{vars 52059}#)
+ (map (lambda (#{x 54121}#)
+ (#{expand 28271}#
+ (cdr #{x 54121}#)
+ (car #{x 54121}#)
'(())
- #{mod 28935}#))
- (reverse #{vals 28721}#))
- (#{build-sequence 4392}#
+ #{mod 52256}#))
+ (reverse #{vals 52060}#))
+ (#{build-sequence 28220}#
#f
- (map (lambda (#{x 30990}#)
- (#{expand 4443}#
- (cdr #{x 30990}#)
- (car #{x 30990}#)
+ (map (lambda (#{x 54257}#)
+ (#{expand 28271}#
+ (cdr #{x 54257}#)
+ (car #{x 54257}#)
'(())
- #{mod 28935}#))
- (cons (cons #{er 28724}#
- (let ((#{x 31069}#
+ #{mod 52256}#))
+ (cons (cons #{er 52063}#
+ (let ((#{x 54332}#
(begin
- (if (if (pair? #{e 28932}#)
- #{s 28934}#
+ (if (if (pair? #{e 52253}#)
+ #{s 52255}#
#f)
(set-source-properties!
- #{e 28932}#
- #{s 28934}#))
- #{e 28932}#)))
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ #{e 52253}#
+ #{s 52255}#))
+ #{e 52253}#)))
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{x 31069}#
+ #{x 54332}#
(if (if (vector?
- #{x 31069}#)
+ #{x 54332}#)
(if (= (vector-length
- #{x 31069}#)
+ #{x 54332}#)
4)
(eq? (vector-ref
- #{x 31069}#
+ #{x 54332}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 31101}#
+ (let ((#{expression 54364}#
(vector-ref
- #{x 31069}#
+ #{x 54332}#
1))
- (#{wrap 31102}#
- (let ((#{w2 31110}#
+ (#{wrap 54365}#
+ (let ((#{w2 54373}#
(vector-ref
- #{x 31069}#
+ #{x 54332}#
2)))
- (let ((#{m1 31111}#
- (car #{w 28933}#))
- (#{s1 31112}#
- (cdr #{w 28933}#)))
- (if (null? #{m1 31111}#)
- (if (null? #{s1 31112}#)
- #{w2 31110}#
- (cons (car #{w2 31110}#)
- (let ((#{m2 31127}#
- (cdr #{w2 31110}#)))
- (if (null? #{m2 31127}#)
- #{s1 31112}#
+ (let ((#{m1 54374}#
+ (car #{w 52254}#))
+ (#{s1 54375}#
+ (cdr #{w 52254}#)))
+ (if (null? #{m1 54374}#)
+ (if (null? #{s1 54375}#)
+ #{w2 54373}#
+ (cons (car #{w2 54373}#)
+ (let ((#{m2 54390}#
+ (cdr #{w2 54373}#)))
+ (if (null? #{m2 54390}#)
+ #{s1 54375}#
(append
- #{s1 31112}#
- #{m2 31127}#)))))
- (cons (let ((#{m2 31135}#
- (car #{w2 31110}#)))
- (if (null? #{m2 31135}#)
- #{m1 31111}#
+ #{s1 54375}#
+ #{m2 54390}#)))))
+ (cons (let ((#{m2 54398}#
+ (car #{w2 54373}#)))
+ (if (null? #{m2 54398}#)
+ #{m1 54374}#
(append
- #{m1 31111}#
- #{m2 31135}#)))
- (let ((#{m2 31143}#
- (cdr #{w2 31110}#)))
- (if (null? #{m2 31143}#)
- #{s1 31112}#
+ #{m1 54374}#
+ #{m2 54398}#)))
+ (let ((#{m2 54406}#
+ (cdr #{w2 54373}#)))
+ (if (null? #{m2 54406}#)
+ #{s1 54375}#
(append
- #{s1 31112}#
- #{m2 31143}#))))))))
- (#{module 31103}#
+ #{s1 54375}#
+ #{m2 54406}#))))))))
+ (#{module 54366}#
(vector-ref
- #{x 31069}#
+ #{x 54332}#
3)))
(vector
'syntax-object
- #{expression 31101}#
- #{wrap 31102}#
- #{module 31103}#))
- (if (null? #{x 31069}#)
- #{x 31069}#
+ #{expression 54364}#
+ #{wrap 54365}#
+ #{module 54366}#))
+ (if (null? #{x 54332}#)
+ #{x 54332}#
(vector
'syntax-object
- #{x 31069}#
- #{w 28933}#
- #{mod 28935}#))))))
- (cdr #{body 28716}#))))))))))))))))))
- (#{parse 28608}#
- (map (lambda (#{x 28611}#)
- (cons #{r 28605}#
- (if (if (null? (car #{w 28607}#))
- (null? (cdr #{w 28607}#))
+ #{x 54332}#
+ #{w 52254}#
+ #{mod 52256}#))))))
+ (cdr #{body 52055}#))))))))))))))))))
+ (#{parse 51947}#
+ (map (lambda (#{x 51950}#)
+ (cons #{r 51944}#
+ (if (if (null? (car #{w 51946}#))
+ (null? (cdr #{w 51946}#))
#f)
- #{x 28611}#
- (if (if (vector? #{x 28611}#)
- (if (= (vector-length #{x 28611}#) 4)
- (eq? (vector-ref #{x 28611}# 0)
+ #{x 51950}#
+ (if (if (vector? #{x 51950}#)
+ (if (= (vector-length #{x 51950}#) 4)
+ (eq? (vector-ref #{x 51950}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28647}#
- (vector-ref #{x 28611}# 1))
- (#{wrap 28648}#
- (let ((#{w2 28658}#
- (vector-ref #{x 28611}# 2)))
- (let ((#{m1 28659}#
- (car #{w 28607}#))
- (#{s1 28660}#
- (cdr #{w 28607}#)))
- (if (null? #{m1 28659}#)
- (if (null? #{s1 28660}#)
- #{w2 28658}#
- (cons (car #{w2 28658}#)
- (let ((#{m2 28677}#
- (cdr #{w2 28658}#)))
- (if (null? #{m2 28677}#)
- #{s1 28660}#
+ (let ((#{expression 51986}#
+ (vector-ref #{x 51950}# 1))
+ (#{wrap 51987}#
+ (let ((#{w2 51997}#
+ (vector-ref #{x 51950}# 2)))
+ (let ((#{m1 51998}#
+ (car #{w 51946}#))
+ (#{s1 51999}#
+ (cdr #{w 51946}#)))
+ (if (null? #{m1 51998}#)
+ (if (null? #{s1 51999}#)
+ #{w2 51997}#
+ (cons (car #{w2 51997}#)
+ (let ((#{m2 52016}#
+ (cdr #{w2 51997}#)))
+ (if (null? #{m2 52016}#)
+ #{s1 51999}#
(append
- #{s1 28660}#
- #{m2 28677}#)))))
- (cons (let ((#{m2 28685}#
- (car #{w2 28658}#)))
- (if (null? #{m2 28685}#)
- #{m1 28659}#
+ #{s1 51999}#
+ #{m2 52016}#)))))
+ (cons (let ((#{m2 52024}#
+ (car #{w2 51997}#)))
+ (if (null? #{m2 52024}#)
+ #{m1 51998}#
(append
- #{m1 28659}#
- #{m2 28685}#)))
- (let ((#{m2 28693}#
- (cdr #{w2 28658}#)))
- (if (null? #{m2 28693}#)
- #{s1 28660}#
+ #{m1 51998}#
+ #{m2 52024}#)))
+ (let ((#{m2 52032}#
+ (cdr #{w2 51997}#)))
+ (if (null? #{m2 52032}#)
+ #{s1 51999}#
(append
- #{s1 28660}#
- #{m2 28693}#))))))))
- (#{module 28649}#
- (vector-ref #{x 28611}# 3)))
+ #{s1 51999}#
+ #{m2 52032}#))))))))
+ (#{module 51988}#
+ (vector-ref #{x 51950}# 3)))
(vector
'syntax-object
- #{expression 28647}#
- #{wrap 28648}#
- #{module 28649}#))
- (if (null? #{x 28611}#)
- #{x 28611}#
+ #{expression 51986}#
+ #{wrap 51987}#
+ #{module 51988}#))
+ (if (null? #{x 51950}#)
+ #{x 51950}#
(vector
'syntax-object
- #{x 28611}#
- #{w 28607}#
- #{mod 28604}#))))))
- #{body 28600}#)
+ #{x 51950}#
+ #{w 51946}#
+ #{mod 51943}#))))))
+ #{body 51939}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax 4448}#
- (lambda (#{rec? 31158}#
- #{e 31159}#
- #{r 31160}#
- #{w 31161}#
- #{s 31162}#
- #{mod 31163}#
- #{k 31164}#)
- (let ((#{tmp 31166}#
+ (#{expand-local-syntax 28276}#
+ (lambda (#{rec? 54421}#
+ #{e 54422}#
+ #{r 54423}#
+ #{w 54424}#
+ #{s 54425}#
+ #{mod 54426}#
+ #{k 54427}#)
+ (let ((#{tmp 54429}#
($sc-dispatch
- #{e 31159}#
+ #{e 54422}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 31166}#
+ (if #{tmp 54429}#
(@apply
- (lambda (#{id 31170}#
- #{val 31171}#
- #{e1 31172}#
- #{e2 31173}#)
- (if (not (#{valid-bound-ids? 4433}# #{id 31170}#))
+ (lambda (#{id 54433}#
+ #{val 54434}#
+ #{e1 54435}#
+ #{e2 54436}#)
+ (if (not (#{valid-bound-ids? 28261}# #{id 54433}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 31159}#)
- (let ((#{labels 31270}#
- (#{gen-labels 4413}# #{id 31170}#)))
- (let ((#{new-w 31271}#
- (#{make-binding-wrap 4424}#
- #{id 31170}#
- #{labels 31270}#
- #{w 31161}#)))
- (#{k 31164}#
- (cons #{e1 31172}# #{e2 31173}#)
- (#{extend-env 4405}#
- #{labels 31270}#
- (let ((#{trans-r 31311}#
- (#{macros-only-env 4407}# #{r 31160}#)))
+ #{e 54422}#)
+ (let ((#{labels 54533}#
+ (#{gen-labels 28241}# #{id 54433}#)))
+ (let ((#{new-w 54534}#
+ (#{make-binding-wrap 28252}#
+ #{id 54433}#
+ #{labels 54533}#
+ #{w 54424}#)))
+ (#{k 54427}#
+ (cons #{e1 54435}# #{e2 54436}#)
+ (#{extend-env 28233}#
+ #{labels 54533}#
+ (let ((#{trans-r 54574}#
+ (#{macros-only-env 28235}# #{r 54423}#)))
(begin
- (if #{rec? 31158}# (if #f #f))
- (map (lambda (#{x 31312}#)
+ (if #{rec? 54421}# #{new-w 54534}# #{w 54424}#)
+ (map (lambda (#{x 54575}#)
(cons 'macro
- (#{eval-local-transformer 4449}#
- (#{expand 4443}#
- #{x 31312}#
- #{trans-r 31311}#
- (if #{rec? 31158}#
- #{new-w 31271}#
- #{w 31161}#)
- #{mod 31163}#)
- #{mod 31163}#)))
- #{val 31171}#)))
- #{r 31160}#)
- #{new-w 31271}#
- #{s 31162}#
- #{mod 31163}#)))))
- #{tmp 31166}#)
+ (#{eval-local-transformer 28277}#
+ (#{expand 28271}#
+ #{x 54575}#
+ #{trans-r 54574}#
+ (values
+ (if #{rec? 54421}#
+ #{new-w 54534}#
+ #{w 54424}#))
+ #{mod 54426}#)
+ #{mod 54426}#)))
+ #{val 54434}#)))
+ #{r 54423}#)
+ #{new-w 54534}#
+ #{s 54425}#
+ #{mod 54426}#)))))
+ #{tmp 54429}#)
(syntax-violation
#f
"bad local syntax definition"
- (let ((#{x 31645}#
+ (let ((#{x 54904}#
(begin
- (if (if (pair? #{e 31159}#) #{s 31162}# #f)
- (set-source-properties! #{e 31159}# #{s 31162}#))
- #{e 31159}#)))
- (if (if (null? (car #{w 31161}#))
- (null? (cdr #{w 31161}#))
+ (if (if (pair? #{e 54422}#) #{s 54425}# #f)
+ (set-source-properties! #{e 54422}# #{s 54425}#))
+ #{e 54422}#)))
+ (if (if (null? (car #{w 54424}#))
+ (null? (cdr #{w 54424}#))
#f)
- #{x 31645}#
- (if (if (vector? #{x 31645}#)
- (if (= (vector-length #{x 31645}#) 4)
- (eq? (vector-ref #{x 31645}# 0) 'syntax-object)
+ #{x 54904}#
+ (if (if (vector? #{x 54904}#)
+ (if (= (vector-length #{x 54904}#) 4)
+ (eq? (vector-ref #{x 54904}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 31677}# (vector-ref #{x 31645}# 1))
- (#{wrap 31678}#
- (let ((#{w2 31686}# (vector-ref #{x 31645}# 2)))
- (let ((#{m1 31687}# (car #{w 31161}#))
- (#{s1 31688}# (cdr #{w 31161}#)))
- (if (null? #{m1 31687}#)
- (if (null? #{s1 31688}#)
- #{w2 31686}#
- (cons (car #{w2 31686}#)
- (let ((#{m2 31703}#
- (cdr #{w2 31686}#)))
- (if (null? #{m2 31703}#)
- #{s1 31688}#
+ (let ((#{expression 54936}# (vector-ref #{x 54904}# 1))
+ (#{wrap 54937}#
+ (let ((#{w2 54945}# (vector-ref #{x 54904}# 2)))
+ (let ((#{m1 54946}# (car #{w 54424}#))
+ (#{s1 54947}# (cdr #{w 54424}#)))
+ (if (null? #{m1 54946}#)
+ (if (null? #{s1 54947}#)
+ #{w2 54945}#
+ (cons (car #{w2 54945}#)
+ (let ((#{m2 54962}#
+ (cdr #{w2 54945}#)))
+ (if (null? #{m2 54962}#)
+ #{s1 54947}#
(append
- #{s1 31688}#
- #{m2 31703}#)))))
- (cons (let ((#{m2 31711}# (car #{w2 31686}#)))
- (if (null? #{m2 31711}#)
- #{m1 31687}#
- (append #{m1 31687}# #{m2 31711}#)))
- (let ((#{m2 31719}# (cdr #{w2 31686}#)))
- (if (null? #{m2 31719}#)
- #{s1 31688}#
+ #{s1 54947}#
+ #{m2 54962}#)))))
+ (cons (let ((#{m2 54970}# (car #{w2 54945}#)))
+ (if (null? #{m2 54970}#)
+ #{m1 54946}#
+ (append #{m1 54946}# #{m2 54970}#)))
+ (let ((#{m2 54978}# (cdr #{w2 54945}#)))
+ (if (null? #{m2 54978}#)
+ #{s1 54947}#
(append
- #{s1 31688}#
- #{m2 31719}#))))))))
- (#{module 31679}# (vector-ref #{x 31645}# 3)))
+ #{s1 54947}#
+ #{m2 54978}#))))))))
+ (#{module 54938}# (vector-ref #{x 54904}# 3)))
(vector
'syntax-object
- #{expression 31677}#
- #{wrap 31678}#
- #{module 31679}#))
- (if (null? #{x 31645}#)
- #{x 31645}#
+ #{expression 54936}#
+ #{wrap 54937}#
+ #{module 54938}#))
+ (if (null? #{x 54904}#)
+ #{x 54904}#
(vector
'syntax-object
- #{x 31645}#
- #{w 31161}#
- #{mod 31163}#))))))))))
- (#{eval-local-transformer 4449}#
- (lambda (#{expanded 31737}# #{mod 31738}#)
- (let ((#{p 31739}# (primitive-eval #{expanded 31737}#)))
- (if (procedure? #{p 31739}#)
- #{p 31739}#
+ #{x 54904}#
+ #{w 54424}#
+ #{mod 54426}#))))))))))
+ (#{eval-local-transformer 28277}#
+ (lambda (#{expanded 54996}# #{mod 54997}#)
+ (let ((#{p 54998}# (primitive-eval #{expanded 54996}#)))
+ (if (procedure? #{p 54998}#)
+ #{p 54998}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 31739}#)))))
- (#{ellipsis? 4451}#
- (lambda (#{x 6020}#)
- (if (if (if (vector? #{x 6020}#)
- (if (= (vector-length #{x 6020}#) 4)
- (eq? (vector-ref #{x 6020}# 0) 'syntax-object)
+ #{p 54998}#)))))
+ (#{ellipsis? 28279}#
+ (lambda (#{x 29819}#)
+ (if (if (if (vector? #{x 29819}#)
+ (if (= (vector-length #{x 29819}#) 4)
+ (eq? (vector-ref #{x 29819}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 6020}# 1))
+ (symbol? (vector-ref #{x 29819}# 1))
#f)
- (#{free-id=? 4431}#
- #{x 6020}#
+ (#{free-id=? 28259}#
+ #{x 29819}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2338"))
+ #(ribcage #(x) #((top)) #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -6492,497 +6507,497 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f)))
- (#{lambda-formals 4452}#
- (lambda (#{orig-args 31744}#)
+ (#{lambda-formals 28280}#
+ (lambda (#{orig-args 55003}#)
(letrec*
- ((#{req 31745}#
- (lambda (#{args 31749}# #{rreq 31750}#)
- (let ((#{tmp 31752}# ($sc-dispatch #{args 31749}# '())))
- (if #{tmp 31752}#
+ ((#{req 55004}#
+ (lambda (#{args 55008}# #{rreq 55009}#)
+ (let ((#{tmp 55011}# ($sc-dispatch #{args 55008}# '())))
+ (if #{tmp 55011}#
(@apply
(lambda ()
- (#{check 31746}# (reverse #{rreq 31750}#) #f))
- #{tmp 31752}#)
- (let ((#{tmp 31868}#
- ($sc-dispatch #{args 31749}# '(any . any))))
- (if (if #{tmp 31868}#
+ (#{check 55005}# (reverse #{rreq 55009}#) #f))
+ #{tmp 55011}#)
+ (let ((#{tmp 55127}#
+ ($sc-dispatch #{args 55008}# '(any . any))))
+ (if (if #{tmp 55127}#
(@apply
- (lambda (#{a 31872}# #{b 31873}#)
- (if (symbol? #{a 31872}#)
+ (lambda (#{a 55131}# #{b 55132}#)
+ (if (symbol? #{a 55131}#)
#t
- (if (if (vector? #{a 31872}#)
- (if (= (vector-length #{a 31872}#) 4)
- (eq? (vector-ref #{a 31872}# 0)
+ (if (if (vector? #{a 55131}#)
+ (if (= (vector-length #{a 55131}#) 4)
+ (eq? (vector-ref #{a 55131}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 31872}# 1))
+ (symbol? (vector-ref #{a 55131}# 1))
#f)))
- #{tmp 31868}#)
+ #{tmp 55127}#)
#f)
(@apply
- (lambda (#{a 31900}# #{b 31901}#)
- (#{req 31745}#
- #{b 31901}#
- (cons #{a 31900}# #{rreq 31750}#)))
- #{tmp 31868}#)
- (let ((#{tmp 31902}# (list #{args 31749}#)))
+ (lambda (#{a 55159}# #{b 55160}#)
+ (#{req 55004}#
+ #{b 55160}#
+ (cons #{a 55159}# #{rreq 55009}#)))
+ #{tmp 55127}#)
+ (let ((#{tmp 55161}# (list #{args 55008}#)))
(if (@apply
- (lambda (#{r 31904}#)
- (if (symbol? #{r 31904}#)
+ (lambda (#{r 55163}#)
+ (if (symbol? #{r 55163}#)
#t
- (if (if (vector? #{r 31904}#)
- (if (= (vector-length #{r 31904}#) 4)
- (eq? (vector-ref #{r 31904}# 0)
+ (if (if (vector? #{r 55163}#)
+ (if (= (vector-length #{r 55163}#) 4)
+ (eq? (vector-ref #{r 55163}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 31904}# 1))
+ (symbol? (vector-ref #{r 55163}# 1))
#f)))
- #{tmp 31902}#)
+ #{tmp 55161}#)
(@apply
- (lambda (#{r 31934}#)
- (#{check 31746}#
- (reverse #{rreq 31750}#)
- #{r 31934}#))
- #{tmp 31902}#)
+ (lambda (#{r 55193}#)
+ (#{check 55005}#
+ (reverse #{rreq 55009}#)
+ #{r 55193}#))
+ #{tmp 55161}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 31744}#
- #{args 31749}#)))))))))
- (#{check 31746}#
- (lambda (#{req 32058}# #{rest 32059}#)
- (if (#{distinct-bound-ids? 4434}#
- (if #{rest 32059}#
- (cons #{rest 32059}# #{req 32058}#)
- #{req 32058}#))
- (values #{req 32058}# #f #{rest 32059}# #f)
+ #{orig-args 55003}#
+ #{args 55008}#)))))))))
+ (#{check 55005}#
+ (lambda (#{req 55317}# #{rest 55318}#)
+ (if (#{distinct-bound-ids? 28262}#
+ (if #{rest 55318}#
+ (cons #{rest 55318}# #{req 55317}#)
+ #{req 55317}#))
+ (values #{req 55317}# #f #{rest 55318}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 31744}#)))))
- (#{req 31745}# #{orig-args 31744}# '()))))
- (#{expand-simple-lambda 4453}#
- (lambda (#{e 32168}#
- #{r 32169}#
- #{w 32170}#
- #{s 32171}#
- #{mod 32172}#
- #{req 32173}#
- #{rest 32174}#
- #{meta 32175}#
- #{body 32176}#)
- (let ((#{ids 32177}#
- (if #{rest 32174}#
- (append #{req 32173}# (list #{rest 32174}#))
- #{req 32173}#)))
- (let ((#{vars 32178}#
- (map #{gen-var 4457}# #{ids 32177}#)))
- (let ((#{labels 32179}#
- (#{gen-labels 4413}# #{ids 32177}#)))
- (#{build-simple-lambda 4386}#
- #{s 32171}#
- (map syntax->datum #{req 32173}#)
- (if #{rest 32174}#
- (syntax->datum #{rest 32174}#)
+ #{orig-args 55003}#)))))
+ (#{req 55004}# #{orig-args 55003}# '()))))
+ (#{expand-simple-lambda 28281}#
+ (lambda (#{e 55427}#
+ #{r 55428}#
+ #{w 55429}#
+ #{s 55430}#
+ #{mod 55431}#
+ #{req 55432}#
+ #{rest 55433}#
+ #{meta 55434}#
+ #{body 55435}#)
+ (let ((#{ids 55436}#
+ (if #{rest 55433}#
+ (append #{req 55432}# (list #{rest 55433}#))
+ #{req 55432}#)))
+ (let ((#{vars 55437}#
+ (map #{gen-var 28285}# #{ids 55436}#)))
+ (let ((#{labels 55438}#
+ (#{gen-labels 28241}# #{ids 55436}#)))
+ (#{build-simple-lambda 28214}#
+ #{s 55430}#
+ (map syntax->datum #{req 55432}#)
+ (if #{rest 55433}#
+ (syntax->datum #{rest 55433}#)
#f)
- #{vars 32178}#
- #{meta 32175}#
- (#{expand-body 4447}#
- #{body 32176}#
- (let ((#{x 32368}#
+ #{vars 55437}#
+ #{meta 55434}#
+ (#{expand-body 28275}#
+ #{body 55435}#
+ (let ((#{x 55627}#
(begin
- (if (if (pair? #{e 32168}#) #{s 32171}# #f)
- (set-source-properties! #{e 32168}# #{s 32171}#))
- #{e 32168}#)))
- (if (if (null? (car #{w 32170}#))
- (null? (cdr #{w 32170}#))
+ (if (if (pair? #{e 55427}#) #{s 55430}# #f)
+ (set-source-properties! #{e 55427}# #{s 55430}#))
+ #{e 55427}#)))
+ (if (if (null? (car #{w 55429}#))
+ (null? (cdr #{w 55429}#))
#f)
- #{x 32368}#
- (if (if (vector? #{x 32368}#)
- (if (= (vector-length #{x 32368}#) 4)
- (eq? (vector-ref #{x 32368}# 0) 'syntax-object)
+ #{x 55627}#
+ (if (if (vector? #{x 55627}#)
+ (if (= (vector-length #{x 55627}#) 4)
+ (eq? (vector-ref #{x 55627}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 32400}# (vector-ref #{x 32368}# 1))
- (#{wrap 32401}#
- (let ((#{w2 32409}# (vector-ref #{x 32368}# 2)))
- (let ((#{m1 32410}# (car #{w 32170}#))
- (#{s1 32411}# (cdr #{w 32170}#)))
- (if (null? #{m1 32410}#)
- (if (null? #{s1 32411}#)
- #{w2 32409}#
- (cons (car #{w2 32409}#)
- (let ((#{m2 32426}#
- (cdr #{w2 32409}#)))
- (if (null? #{m2 32426}#)
- #{s1 32411}#
+ (let ((#{expression 55659}# (vector-ref #{x 55627}# 1))
+ (#{wrap 55660}#
+ (let ((#{w2 55668}# (vector-ref #{x 55627}# 2)))
+ (let ((#{m1 55669}# (car #{w 55429}#))
+ (#{s1 55670}# (cdr #{w 55429}#)))
+ (if (null? #{m1 55669}#)
+ (if (null? #{s1 55670}#)
+ #{w2 55668}#
+ (cons (car #{w2 55668}#)
+ (let ((#{m2 55685}#
+ (cdr #{w2 55668}#)))
+ (if (null? #{m2 55685}#)
+ #{s1 55670}#
(append
- #{s1 32411}#
- #{m2 32426}#)))))
- (cons (let ((#{m2 32434}#
- (car #{w2 32409}#)))
- (if (null? #{m2 32434}#)
- #{m1 32410}#
+ #{s1 55670}#
+ #{m2 55685}#)))))
+ (cons (let ((#{m2 55693}#
+ (car #{w2 55668}#)))
+ (if (null? #{m2 55693}#)
+ #{m1 55669}#
(append
- #{m1 32410}#
- #{m2 32434}#)))
- (let ((#{m2 32442}#
- (cdr #{w2 32409}#)))
- (if (null? #{m2 32442}#)
- #{s1 32411}#
+ #{m1 55669}#
+ #{m2 55693}#)))
+ (let ((#{m2 55701}#
+ (cdr #{w2 55668}#)))
+ (if (null? #{m2 55701}#)
+ #{s1 55670}#
(append
- #{s1 32411}#
- #{m2 32442}#))))))))
- (#{module 32402}# (vector-ref #{x 32368}# 3)))
+ #{s1 55670}#
+ #{m2 55701}#))))))))
+ (#{module 55661}# (vector-ref #{x 55627}# 3)))
(vector
'syntax-object
- #{expression 32400}#
- #{wrap 32401}#
- #{module 32402}#))
- (if (null? #{x 32368}#)
- #{x 32368}#
+ #{expression 55659}#
+ #{wrap 55660}#
+ #{module 55661}#))
+ (if (null? #{x 55627}#)
+ #{x 55627}#
(vector
'syntax-object
- #{x 32368}#
- #{w 32170}#
- #{mod 32172}#)))))
- (#{extend-var-env 4406}#
- #{labels 32179}#
- #{vars 32178}#
- #{r 32169}#)
- (#{make-binding-wrap 4424}#
- #{ids 32177}#
- #{labels 32179}#
- #{w 32170}#)
- #{mod 32172}#)))))))
- (#{lambda*-formals 4454}#
- (lambda (#{orig-args 32673}#)
+ #{x 55627}#
+ #{w 55429}#
+ #{mod 55431}#)))))
+ (#{extend-var-env 28234}#
+ #{labels 55438}#
+ #{vars 55437}#
+ #{r 55428}#)
+ (#{make-binding-wrap 28252}#
+ #{ids 55436}#
+ #{labels 55438}#
+ #{w 55429}#)
+ #{mod 55431}#)))))))
+ (#{lambda*-formals 28282}#
+ (lambda (#{orig-args 55932}#)
(letrec*
- ((#{req 32674}#
- (lambda (#{args 32681}# #{rreq 32682}#)
- (let ((#{tmp 32684}# ($sc-dispatch #{args 32681}# '())))
- (if #{tmp 32684}#
+ ((#{req 55933}#
+ (lambda (#{args 55940}# #{rreq 55941}#)
+ (let ((#{tmp 55943}# ($sc-dispatch #{args 55940}# '())))
+ (if #{tmp 55943}#
(@apply
(lambda ()
- (#{check 32678}#
- (reverse #{rreq 32682}#)
+ (#{check 55937}#
+ (reverse #{rreq 55941}#)
'()
#f
'()))
- #{tmp 32684}#)
- (let ((#{tmp 32803}#
- ($sc-dispatch #{args 32681}# '(any . any))))
- (if (if #{tmp 32803}#
+ #{tmp 55943}#)
+ (let ((#{tmp 56062}#
+ ($sc-dispatch #{args 55940}# '(any . any))))
+ (if (if #{tmp 56062}#
(@apply
- (lambda (#{a 32807}# #{b 32808}#)
- (if (symbol? #{a 32807}#)
+ (lambda (#{a 56066}# #{b 56067}#)
+ (if (symbol? #{a 56066}#)
#t
- (if (if (vector? #{a 32807}#)
- (if (= (vector-length #{a 32807}#) 4)
- (eq? (vector-ref #{a 32807}# 0)
+ (if (if (vector? #{a 56066}#)
+ (if (= (vector-length #{a 56066}#) 4)
+ (eq? (vector-ref #{a 56066}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 32807}# 1))
+ (symbol? (vector-ref #{a 56066}# 1))
#f)))
- #{tmp 32803}#)
+ #{tmp 56062}#)
#f)
(@apply
- (lambda (#{a 32835}# #{b 32836}#)
- (#{req 32674}#
- #{b 32836}#
- (cons #{a 32835}# #{rreq 32682}#)))
- #{tmp 32803}#)
- (let ((#{tmp 32837}#
- ($sc-dispatch #{args 32681}# '(any . any))))
- (if (if #{tmp 32837}#
+ (lambda (#{a 56094}# #{b 56095}#)
+ (#{req 55933}#
+ #{b 56095}#
+ (cons #{a 56094}# #{rreq 55941}#)))
+ #{tmp 56062}#)
+ (let ((#{tmp 56096}#
+ ($sc-dispatch #{args 55940}# '(any . any))))
+ (if (if #{tmp 56096}#
(@apply
- (lambda (#{a 32841}# #{b 32842}#)
- (eq? (syntax->datum #{a 32841}#) #:optional))
- #{tmp 32837}#)
+ (lambda (#{a 56100}# #{b 56101}#)
+ (eq? (syntax->datum #{a 56100}#) #:optional))
+ #{tmp 56096}#)
#f)
(@apply
- (lambda (#{a 32843}# #{b 32844}#)
- (#{opt 32675}#
- #{b 32844}#
- (reverse #{rreq 32682}#)
+ (lambda (#{a 56102}# #{b 56103}#)
+ (#{opt 55934}#
+ #{b 56103}#
+ (reverse #{rreq 55941}#)
'()))
- #{tmp 32837}#)
- (let ((#{tmp 32847}#
- ($sc-dispatch #{args 32681}# '(any . any))))
- (if (if #{tmp 32847}#
+ #{tmp 56096}#)
+ (let ((#{tmp 56106}#
+ ($sc-dispatch #{args 55940}# '(any . any))))
+ (if (if #{tmp 56106}#
(@apply
- (lambda (#{a 32851}# #{b 32852}#)
- (eq? (syntax->datum #{a 32851}#) #:key))
- #{tmp 32847}#)
+ (lambda (#{a 56110}# #{b 56111}#)
+ (eq? (syntax->datum #{a 56110}#) #:key))
+ #{tmp 56106}#)
#f)
(@apply
- (lambda (#{a 32853}# #{b 32854}#)
- (#{key 32676}#
- #{b 32854}#
- (reverse #{rreq 32682}#)
+ (lambda (#{a 56112}# #{b 56113}#)
+ (#{key 55935}#
+ #{b 56113}#
+ (reverse #{rreq 55941}#)
'()
'()))
- #{tmp 32847}#)
- (let ((#{tmp 32857}#
+ #{tmp 56106}#)
+ (let ((#{tmp 56116}#
($sc-dispatch
- #{args 32681}#
+ #{args 55940}#
'(any any))))
- (if (if #{tmp 32857}#
+ (if (if #{tmp 56116}#
(@apply
- (lambda (#{a 32861}# #{b 32862}#)
- (eq? (syntax->datum #{a 32861}#)
+ (lambda (#{a 56120}# #{b 56121}#)
+ (eq? (syntax->datum #{a 56120}#)
#:rest))
- #{tmp 32857}#)
+ #{tmp 56116}#)
#f)
(@apply
- (lambda (#{a 32863}# #{b 32864}#)
- (#{rest 32677}#
- #{b 32864}#
- (reverse #{rreq 32682}#)
+ (lambda (#{a 56122}# #{b 56123}#)
+ (#{rest 55936}#
+ #{b 56123}#
+ (reverse #{rreq 55941}#)
'()
'()))
- #{tmp 32857}#)
- (let ((#{tmp 32867}# (list #{args 32681}#)))
+ #{tmp 56116}#)
+ (let ((#{tmp 56126}# (list #{args 55940}#)))
(if (@apply
- (lambda (#{r 32869}#)
- (if (symbol? #{r 32869}#)
+ (lambda (#{r 56128}#)
+ (if (symbol? #{r 56128}#)
#t
- (if (if (vector? #{r 32869}#)
+ (if (if (vector? #{r 56128}#)
(if (= (vector-length
- #{r 32869}#)
+ #{r 56128}#)
4)
(eq? (vector-ref
- #{r 32869}#
+ #{r 56128}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 32869}# 1))
+ (vector-ref #{r 56128}# 1))
#f)))
- #{tmp 32867}#)
+ #{tmp 56126}#)
(@apply
- (lambda (#{r 32899}#)
- (#{rest 32677}#
- #{r 32899}#
- (reverse #{rreq 32682}#)
+ (lambda (#{r 56158}#)
+ (#{rest 55936}#
+ #{r 56158}#
+ (reverse #{rreq 55941}#)
'()
'()))
- #{tmp 32867}#)
+ #{tmp 56126}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 32673}#
- #{args 32681}#)))))))))))))))
- (#{opt 32675}#
- (lambda (#{args 32918}# #{req 32919}# #{ropt 32920}#)
- (let ((#{tmp 32922}# ($sc-dispatch #{args 32918}# '())))
- (if #{tmp 32922}#
+ #{orig-args 55932}#
+ #{args 55940}#)))))))))))))))
+ (#{opt 55934}#
+ (lambda (#{args 56177}# #{req 56178}# #{ropt 56179}#)
+ (let ((#{tmp 56181}# ($sc-dispatch #{args 56177}# '())))
+ (if #{tmp 56181}#
(@apply
(lambda ()
- (#{check 32678}#
- #{req 32919}#
- (reverse #{ropt 32920}#)
+ (#{check 55937}#
+ #{req 56178}#
+ (reverse #{ropt 56179}#)
#f
'()))
- #{tmp 32922}#)
- (let ((#{tmp 33043}#
- ($sc-dispatch #{args 32918}# '(any . any))))
- (if (if #{tmp 33043}#
+ #{tmp 56181}#)
+ (let ((#{tmp 56302}#
+ ($sc-dispatch #{args 56177}# '(any . any))))
+ (if (if #{tmp 56302}#
(@apply
- (lambda (#{a 33047}# #{b 33048}#)
- (if (symbol? #{a 33047}#)
+ (lambda (#{a 56306}# #{b 56307}#)
+ (if (symbol? #{a 56306}#)
#t
- (if (if (vector? #{a 33047}#)
- (if (= (vector-length #{a 33047}#) 4)
- (eq? (vector-ref #{a 33047}# 0)
+ (if (if (vector? #{a 56306}#)
+ (if (= (vector-length #{a 56306}#) 4)
+ (eq? (vector-ref #{a 56306}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33047}# 1))
+ (symbol? (vector-ref #{a 56306}# 1))
#f)))
- #{tmp 33043}#)
+ #{tmp 56302}#)
#f)
(@apply
- (lambda (#{a 33075}# #{b 33076}#)
- (#{opt 32675}#
- #{b 33076}#
- #{req 32919}#
- (cons (cons #{a 33075}#
+ (lambda (#{a 56334}# #{b 56335}#)
+ (#{opt 55934}#
+ #{b 56335}#
+ #{req 56178}#
+ (cons (cons #{a 56334}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2477" "i2478"))
+ #("i26305" "i26306"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2467" "i2468" "i2469"))
+ #("i26295" "i26296" "i26297"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"))
+ ("i26241"
+ "i26239"
+ "i26237"
+ "i26235"
+ "i26233"))
#(ribcage
#(orig-args)
#((top))
- #("i2404"))
+ #("i26232"))
#(ribcage
(lambda-var-list
gen-var
@@ -7260,293 +7275,293 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))))
- #{ropt 32920}#)))
- #{tmp 33043}#)
- (let ((#{tmp 33077}#
+ #{ropt 56179}#)))
+ #{tmp 56302}#)
+ (let ((#{tmp 56336}#
($sc-dispatch
- #{args 32918}#
+ #{args 56177}#
'((any any) . any))))
- (if (if #{tmp 33077}#
+ (if (if #{tmp 56336}#
(@apply
- (lambda (#{a 33081}#
- #{init 33082}#
- #{b 33083}#)
- (if (symbol? #{a 33081}#)
+ (lambda (#{a 56340}#
+ #{init 56341}#
+ #{b 56342}#)
+ (if (symbol? #{a 56340}#)
#t
- (if (if (vector? #{a 33081}#)
- (if (= (vector-length #{a 33081}#) 4)
- (eq? (vector-ref #{a 33081}# 0)
+ (if (if (vector? #{a 56340}#)
+ (if (= (vector-length #{a 56340}#) 4)
+ (eq? (vector-ref #{a 56340}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33081}# 1))
+ (symbol? (vector-ref #{a 56340}# 1))
#f)))
- #{tmp 33077}#)
+ #{tmp 56336}#)
#f)
(@apply
- (lambda (#{a 33110}# #{init 33111}# #{b 33112}#)
- (#{opt 32675}#
- #{b 33112}#
- #{req 32919}#
- (cons (list #{a 33110}# #{init 33111}#)
- #{ropt 32920}#)))
- #{tmp 33077}#)
- (let ((#{tmp 33113}#
- ($sc-dispatch #{args 32918}# '(any . any))))
- (if (if #{tmp 33113}#
+ (lambda (#{a 56369}# #{init 56370}# #{b 56371}#)
+ (#{opt 55934}#
+ #{b 56371}#
+ #{req 56178}#
+ (cons (list #{a 56369}# #{init 56370}#)
+ #{ropt 56179}#)))
+ #{tmp 56336}#)
+ (let ((#{tmp 56372}#
+ ($sc-dispatch #{args 56177}# '(any . any))))
+ (if (if #{tmp 56372}#
(@apply
- (lambda (#{a 33117}# #{b 33118}#)
- (eq? (syntax->datum #{a 33117}#) #:key))
- #{tmp 33113}#)
+ (lambda (#{a 56376}# #{b 56377}#)
+ (eq? (syntax->datum #{a 56376}#) #:key))
+ #{tmp 56372}#)
#f)
(@apply
- (lambda (#{a 33119}# #{b 33120}#)
- (#{key 32676}#
- #{b 33120}#
- #{req 32919}#
- (reverse #{ropt 32920}#)
+ (lambda (#{a 56378}# #{b 56379}#)
+ (#{key 55935}#
+ #{b 56379}#
+ #{req 56178}#
+ (reverse #{ropt 56179}#)
'()))
- #{tmp 33113}#)
- (let ((#{tmp 33123}#
+ #{tmp 56372}#)
+ (let ((#{tmp 56382}#
($sc-dispatch
- #{args 32918}#
+ #{args 56177}#
'(any any))))
- (if (if #{tmp 33123}#
+ (if (if #{tmp 56382}#
(@apply
- (lambda (#{a 33127}# #{b 33128}#)
- (eq? (syntax->datum #{a 33127}#)
+ (lambda (#{a 56386}# #{b 56387}#)
+ (eq? (syntax->datum #{a 56386}#)
#:rest))
- #{tmp 33123}#)
+ #{tmp 56382}#)
#f)
(@apply
- (lambda (#{a 33129}# #{b 33130}#)
- (#{rest 32677}#
- #{b 33130}#
- #{req 32919}#
- (reverse #{ropt 32920}#)
+ (lambda (#{a 56388}# #{b 56389}#)
+ (#{rest 55936}#
+ #{b 56389}#
+ #{req 56178}#
+ (reverse #{ropt 56179}#)
'()))
- #{tmp 33123}#)
- (let ((#{tmp 33133}# (list #{args 32918}#)))
+ #{tmp 56382}#)
+ (let ((#{tmp 56392}# (list #{args 56177}#)))
(if (@apply
- (lambda (#{r 33135}#)
- (if (symbol? #{r 33135}#)
+ (lambda (#{r 56394}#)
+ (if (symbol? #{r 56394}#)
#t
- (if (if (vector? #{r 33135}#)
+ (if (if (vector? #{r 56394}#)
(if (= (vector-length
- #{r 33135}#)
+ #{r 56394}#)
4)
(eq? (vector-ref
- #{r 33135}#
+ #{r 56394}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 33135}# 1))
+ (vector-ref #{r 56394}# 1))
#f)))
- #{tmp 33133}#)
+ #{tmp 56392}#)
(@apply
- (lambda (#{r 33165}#)
- (#{rest 32677}#
- #{r 33165}#
- #{req 32919}#
- (reverse #{ropt 32920}#)
+ (lambda (#{r 56424}#)
+ (#{rest 55936}#
+ #{r 56424}#
+ #{req 56178}#
+ (reverse #{ropt 56179}#)
'()))
- #{tmp 33133}#)
+ #{tmp 56392}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 32673}#
- #{args 32918}#)))))))))))))))
- (#{key 32676}#
- (lambda (#{args 33184}#
- #{req 33185}#
- #{opt 33186}#
- #{rkey 33187}#)
- (let ((#{tmp 33189}# ($sc-dispatch #{args 33184}# '())))
- (if #{tmp 33189}#
+ #{orig-args 55932}#
+ #{args 56177}#)))))))))))))))
+ (#{key 55935}#
+ (lambda (#{args 56443}#
+ #{req 56444}#
+ #{opt 56445}#
+ #{rkey 56446}#)
+ (let ((#{tmp 56448}# ($sc-dispatch #{args 56443}# '())))
+ (if #{tmp 56448}#
(@apply
(lambda ()
- (#{check 32678}#
- #{req 33185}#
- #{opt 33186}#
+ (#{check 55937}#
+ #{req 56444}#
+ #{opt 56445}#
#f
- (cons #f (reverse #{rkey 33187}#))))
- #{tmp 33189}#)
- (let ((#{tmp 33311}#
- ($sc-dispatch #{args 33184}# '(any . any))))
- (if (if #{tmp 33311}#
+ (cons #f (reverse #{rkey 56446}#))))
+ #{tmp 56448}#)
+ (let ((#{tmp 56570}#
+ ($sc-dispatch #{args 56443}# '(any . any))))
+ (if (if #{tmp 56570}#
(@apply
- (lambda (#{a 33315}# #{b 33316}#)
- (if (symbol? #{a 33315}#)
+ (lambda (#{a 56574}# #{b 56575}#)
+ (if (symbol? #{a 56574}#)
#t
- (if (if (vector? #{a 33315}#)
- (if (= (vector-length #{a 33315}#) 4)
- (eq? (vector-ref #{a 33315}# 0)
+ (if (if (vector? #{a 56574}#)
+ (if (= (vector-length #{a 56574}#) 4)
+ (eq? (vector-ref #{a 56574}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33315}# 1))
+ (symbol? (vector-ref #{a 56574}# 1))
#f)))
- #{tmp 33311}#)
+ #{tmp 56570}#)
#f)
(@apply
- (lambda (#{a 33343}# #{b 33344}#)
- (let ((#{tmp 33345}#
+ (lambda (#{a 56602}# #{b 56603}#)
+ (let ((#{tmp 56604}#
(symbol->keyword
- (syntax->datum #{a 33343}#))))
- (#{key 32676}#
- #{b 33344}#
- #{req 33185}#
- #{opt 33186}#
- (cons (cons #{tmp 33345}#
- (cons #{a 33343}#
+ (syntax->datum #{a 56602}#))))
+ (#{key 55935}#
+ #{b 56603}#
+ #{req 56444}#
+ #{opt 56445}#
+ (cons (cons #{tmp 56604}#
+ (cons #{a 56602}#
'(#(syntax-object
#f
((top)
@@ -7554,11 +7569,11 @@
#(ribcage
#(k)
#((top))
- #("i2540"))
+ #("i26368"))
#(ribcage
#(a b)
#((top) (top))
- #("i2534" "i2535"))
+ #("i26362" "i26363"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7566,10 +7581,10 @@
(top)
(top)
(top))
- #("i2523"
- "i2524"
- "i2525"
- "i2526"))
+ #("i26351"
+ "i26352"
+ "i26353"
+ "i26354"))
#(ribcage
(check rest key opt req)
((top)
@@ -7577,15 +7592,15 @@
(top)
(top)
(top))
- ("i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"))
+ ("i26241"
+ "i26239"
+ "i26237"
+ "i26235"
+ "i26233"))
#(ribcage
#(orig-args)
#((top))
- #("i2404"))
+ #("i26232"))
#(ribcage
(lambda-var-list
gen-var
@@ -7863,1155 +7878,1157 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage () () ()))
(hygiene guile)))))
- #{rkey 33187}#))))
- #{tmp 33311}#)
- (let ((#{tmp 33348}#
+ #{rkey 56446}#))))
+ #{tmp 56570}#)
+ (let ((#{tmp 56607}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'((any any) . any))))
- (if (if #{tmp 33348}#
+ (if (if #{tmp 56607}#
(@apply
- (lambda (#{a 33352}#
- #{init 33353}#
- #{b 33354}#)
- (if (symbol? #{a 33352}#)
+ (lambda (#{a 56611}#
+ #{init 56612}#
+ #{b 56613}#)
+ (if (symbol? #{a 56611}#)
#t
- (if (if (vector? #{a 33352}#)
- (if (= (vector-length #{a 33352}#) 4)
- (eq? (vector-ref #{a 33352}# 0)
+ (if (if (vector? #{a 56611}#)
+ (if (= (vector-length #{a 56611}#) 4)
+ (eq? (vector-ref #{a 56611}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33352}# 1))
+ (symbol? (vector-ref #{a 56611}# 1))
#f)))
- #{tmp 33348}#)
+ #{tmp 56607}#)
#f)
(@apply
- (lambda (#{a 33381}# #{init 33382}# #{b 33383}#)
- (let ((#{tmp 33384}#
+ (lambda (#{a 56640}# #{init 56641}# #{b 56642}#)
+ (let ((#{tmp 56643}#
(symbol->keyword
- (syntax->datum #{a 33381}#))))
- (#{key 32676}#
- #{b 33383}#
- #{req 33185}#
- #{opt 33186}#
- (cons (list #{tmp 33384}#
- #{a 33381}#
- #{init 33382}#)
- #{rkey 33187}#))))
- #{tmp 33348}#)
- (let ((#{tmp 33387}#
+ (syntax->datum #{a 56640}#))))
+ (#{key 55935}#
+ #{b 56642}#
+ #{req 56444}#
+ #{opt 56445}#
+ (cons (list #{tmp 56643}#
+ #{a 56640}#
+ #{init 56641}#)
+ #{rkey 56446}#))))
+ #{tmp 56607}#)
+ (let ((#{tmp 56646}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'((any any any) . any))))
- (if (if #{tmp 33387}#
+ (if (if #{tmp 56646}#
(@apply
- (lambda (#{a 33391}#
- #{init 33392}#
- #{k 33393}#
- #{b 33394}#)
- (if (if (symbol? #{a 33391}#)
+ (lambda (#{a 56650}#
+ #{init 56651}#
+ #{k 56652}#
+ #{b 56653}#)
+ (if (if (symbol? #{a 56650}#)
#t
- (if (if (vector? #{a 33391}#)
+ (if (if (vector? #{a 56650}#)
(if (= (vector-length
- #{a 33391}#)
+ #{a 56650}#)
4)
(eq? (vector-ref
- #{a 33391}#
+ #{a 56650}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 33391}# 1))
+ (vector-ref #{a 56650}# 1))
#f))
- (keyword? (syntax->datum #{k 33393}#))
+ (keyword? (syntax->datum #{k 56652}#))
#f))
- #{tmp 33387}#)
+ #{tmp 56646}#)
#f)
(@apply
- (lambda (#{a 33421}#
- #{init 33422}#
- #{k 33423}#
- #{b 33424}#)
- (#{key 32676}#
- #{b 33424}#
- #{req 33185}#
- #{opt 33186}#
- (cons (list #{k 33423}#
- #{a 33421}#
- #{init 33422}#)
- #{rkey 33187}#)))
- #{tmp 33387}#)
- (let ((#{tmp 33425}#
- ($sc-dispatch #{args 33184}# '(any))))
- (if (if #{tmp 33425}#
+ (lambda (#{a 56680}#
+ #{init 56681}#
+ #{k 56682}#
+ #{b 56683}#)
+ (#{key 55935}#
+ #{b 56683}#
+ #{req 56444}#
+ #{opt 56445}#
+ (cons (list #{k 56682}#
+ #{a 56680}#
+ #{init 56681}#)
+ #{rkey 56446}#)))
+ #{tmp 56646}#)
+ (let ((#{tmp 56684}#
+ ($sc-dispatch #{args 56443}# '(any))))
+ (if (if #{tmp 56684}#
(@apply
- (lambda (#{aok 33429}#)
- (eq? (syntax->datum #{aok 33429}#)
+ (lambda (#{aok 56688}#)
+ (eq? (syntax->datum #{aok 56688}#)
#:allow-other-keys))
- #{tmp 33425}#)
+ #{tmp 56684}#)
#f)
(@apply
- (lambda (#{aok 33430}#)
- (#{check 32678}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{aok 56689}#)
+ (#{check 55937}#
+ #{req 56444}#
+ #{opt 56445}#
#f
- (cons #t (reverse #{rkey 33187}#))))
- #{tmp 33425}#)
- (let ((#{tmp 33549}#
+ (cons #t (reverse #{rkey 56446}#))))
+ #{tmp 56684}#)
+ (let ((#{tmp 56808}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'(any any any))))
- (if (if #{tmp 33549}#
+ (if (if #{tmp 56808}#
(@apply
- (lambda (#{aok 33553}#
- #{a 33554}#
- #{b 33555}#)
+ (lambda (#{aok 56812}#
+ #{a 56813}#
+ #{b 56814}#)
(if (eq? (syntax->datum
- #{aok 33553}#)
+ #{aok 56812}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 33554}#)
+ #{a 56813}#)
#:rest)
#f))
- #{tmp 33549}#)
+ #{tmp 56808}#)
#f)
(@apply
- (lambda (#{aok 33556}#
- #{a 33557}#
- #{b 33558}#)
- (#{rest 32677}#
- #{b 33558}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{aok 56815}#
+ #{a 56816}#
+ #{b 56817}#)
+ (#{rest 55936}#
+ #{b 56817}#
+ #{req 56444}#
+ #{opt 56445}#
(cons #t
- (reverse #{rkey 33187}#))))
- #{tmp 33549}#)
- (let ((#{tmp 33561}#
+ (reverse #{rkey 56446}#))))
+ #{tmp 56808}#)
+ (let ((#{tmp 56820}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'(any . any))))
- (if (if #{tmp 33561}#
+ (if (if #{tmp 56820}#
(@apply
- (lambda (#{aok 33565}#
- #{r 33566}#)
+ (lambda (#{aok 56824}#
+ #{r 56825}#)
(if (eq? (syntax->datum
- #{aok 33565}#)
+ #{aok 56824}#)
#:allow-other-keys)
- (if (symbol? #{r 33566}#)
+ (if (symbol? #{r 56825}#)
#t
(if (if (vector?
- #{r 33566}#)
+ #{r 56825}#)
(if (= (vector-length
- #{r 33566}#)
+ #{r 56825}#)
4)
(eq? (vector-ref
- #{r 33566}#
+ #{r 56825}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 33566}#
+ #{r 56825}#
1))
#f))
#f))
- #{tmp 33561}#)
+ #{tmp 56820}#)
#f)
(@apply
- (lambda (#{aok 33593}# #{r 33594}#)
- (#{rest 32677}#
- #{r 33594}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{aok 56852}# #{r 56853}#)
+ (#{rest 55936}#
+ #{r 56853}#
+ #{req 56444}#
+ #{opt 56445}#
(cons #t
(reverse
- #{rkey 33187}#))))
- #{tmp 33561}#)
- (let ((#{tmp 33597}#
+ #{rkey 56446}#))))
+ #{tmp 56820}#)
+ (let ((#{tmp 56856}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'(any any))))
- (if (if #{tmp 33597}#
+ (if (if #{tmp 56856}#
(@apply
- (lambda (#{a 33601}#
- #{b 33602}#)
+ (lambda (#{a 56860}#
+ #{b 56861}#)
(eq? (syntax->datum
- #{a 33601}#)
+ #{a 56860}#)
#:rest))
- #{tmp 33597}#)
+ #{tmp 56856}#)
#f)
(@apply
- (lambda (#{a 33603}#
- #{b 33604}#)
- (#{rest 32677}#
- #{b 33604}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{a 56862}#
+ #{b 56863}#)
+ (#{rest 55936}#
+ #{b 56863}#
+ #{req 56444}#
+ #{opt 56445}#
(cons #f
(reverse
- #{rkey 33187}#))))
- #{tmp 33597}#)
- (let ((#{tmp 33607}#
- (list #{args 33184}#)))
+ #{rkey 56446}#))))
+ #{tmp 56856}#)
+ (let ((#{tmp 56866}#
+ (list #{args 56443}#)))
(if (@apply
- (lambda (#{r 33609}#)
+ (lambda (#{r 56868}#)
(if (symbol?
- #{r 33609}#)
+ #{r 56868}#)
#t
(if (if (vector?
- #{r 33609}#)
+ #{r 56868}#)
(if (= (vector-length
- #{r 33609}#)
+ #{r 56868}#)
4)
(eq? (vector-ref
- #{r 33609}#
+ #{r 56868}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 33609}#
+ #{r 56868}#
1))
#f)))
- #{tmp 33607}#)
+ #{tmp 56866}#)
(@apply
- (lambda (#{r 33639}#)
- (#{rest 32677}#
- #{r 33639}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{r 56898}#)
+ (#{rest 55936}#
+ #{r 56898}#
+ #{req 56444}#
+ #{opt 56445}#
(cons #f
(reverse
- #{rkey 33187}#))))
- #{tmp 33607}#)
+ #{rkey 56446}#))))
+ #{tmp 56866}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args 32673}#
- #{args 33184}#)))))))))))))))))))))
- (#{rest 32677}#
- (lambda (#{args 33667}#
- #{req 33668}#
- #{opt 33669}#
- #{kw 33670}#)
- (let ((#{tmp 33672}# (list #{args 33667}#)))
+ #{orig-args 55932}#
+ #{args 56443}#)))))))))))))))))))))
+ (#{rest 55936}#
+ (lambda (#{args 56926}#
+ #{req 56927}#
+ #{opt 56928}#
+ #{kw 56929}#)
+ (let ((#{tmp 56931}# (list #{args 56926}#)))
(if (@apply
- (lambda (#{r 33674}#)
- (if (symbol? #{r 33674}#)
+ (lambda (#{r 56933}#)
+ (if (symbol? #{r 56933}#)
#t
- (if (if (vector? #{r 33674}#)
- (if (= (vector-length #{r 33674}#) 4)
- (eq? (vector-ref #{r 33674}# 0)
+ (if (if (vector? #{r 56933}#)
+ (if (= (vector-length #{r 56933}#) 4)
+ (eq? (vector-ref #{r 56933}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 33674}# 1))
+ (symbol? (vector-ref #{r 56933}# 1))
#f)))
- #{tmp 33672}#)
+ #{tmp 56931}#)
(@apply
- (lambda (#{r 33704}#)
- (#{check 32678}#
- #{req 33668}#
- #{opt 33669}#
- #{r 33704}#
- #{kw 33670}#))
- #{tmp 33672}#)
+ (lambda (#{r 56963}#)
+ (#{check 55937}#
+ #{req 56927}#
+ #{opt 56928}#
+ #{r 56963}#
+ #{kw 56929}#))
+ #{tmp 56931}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 32673}#
- #{args 33667}#)))))
- (#{check 32678}#
- (lambda (#{req 33832}#
- #{opt 33833}#
- #{rest 33834}#
- #{kw 33835}#)
- (if (#{distinct-bound-ids? 4434}#
+ #{orig-args 55932}#
+ #{args 56926}#)))))
+ (#{check 55937}#
+ (lambda (#{req 57091}#
+ #{opt 57092}#
+ #{rest 57093}#
+ #{kw 57094}#)
+ (if (#{distinct-bound-ids? 28262}#
(append
- #{req 33832}#
- (map car #{opt 33833}#)
- (if #{rest 33834}# (list #{rest 33834}#) '())
- (if (pair? #{kw 33835}#)
- (map cadr (cdr #{kw 33835}#))
+ #{req 57091}#
+ (map car #{opt 57092}#)
+ (if #{rest 57093}# (list #{rest 57093}#) '())
+ (if (pair? #{kw 57094}#)
+ (map cadr (cdr #{kw 57094}#))
'())))
(values
- #{req 33832}#
- #{opt 33833}#
- #{rest 33834}#
- #{kw 33835}#)
+ #{req 57091}#
+ #{opt 57092}#
+ #{rest 57093}#
+ #{kw 57094}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 32673}#)))))
- (#{req 32674}# #{orig-args 32673}# '()))))
- (#{expand-lambda-case 4455}#
- (lambda (#{e 33944}#
- #{r 33945}#
- #{w 33946}#
- #{s 33947}#
- #{mod 33948}#
- #{get-formals 33949}#
- #{clauses 33950}#)
+ #{orig-args 55932}#)))))
+ (#{req 55933}# #{orig-args 55932}# '()))))
+ (#{expand-lambda-case 28283}#
+ (lambda (#{e 57203}#
+ #{r 57204}#
+ #{w 57205}#
+ #{s 57206}#
+ #{mod 57207}#
+ #{get-formals 57208}#
+ #{clauses 57209}#)
(letrec*
- ((#{parse-req 33951}#
- (lambda (#{req 34087}#
- #{opt 34088}#
- #{rest 34089}#
- #{kw 34090}#
- #{body 34091}#)
- (let ((#{vars 34092}#
- (map #{gen-var 4457}# #{req 34087}#))
- (#{labels 34093}#
- (#{gen-labels 4413}# #{req 34087}#)))
- (let ((#{r* 34094}#
- (#{extend-var-env 4406}#
- #{labels 34093}#
- #{vars 34092}#
- #{r 33945}#))
- (#{w* 34095}#
- (#{make-binding-wrap 4424}#
- #{req 34087}#
- #{labels 34093}#
- #{w 33946}#)))
- (#{parse-opt 33952}#
- (map syntax->datum #{req 34087}#)
- #{opt 34088}#
- #{rest 34089}#
- #{kw 34090}#
- #{body 34091}#
- (reverse #{vars 34092}#)
- #{r* 34094}#
- #{w* 34095}#
+ ((#{parse-req 57210}#
+ (lambda (#{req 57345}#
+ #{opt 57346}#
+ #{rest 57347}#
+ #{kw 57348}#
+ #{body 57349}#)
+ (let ((#{vars 57350}#
+ (map #{gen-var 28285}# #{req 57345}#))
+ (#{labels 57351}#
+ (#{gen-labels 28241}# #{req 57345}#)))
+ (let ((#{r* 57352}#
+ (#{extend-var-env 28234}#
+ #{labels 57351}#
+ #{vars 57350}#
+ #{r 57204}#))
+ (#{w* 57353}#
+ (#{make-binding-wrap 28252}#
+ #{req 57345}#
+ #{labels 57351}#
+ #{w 57205}#)))
+ (#{parse-opt 57211}#
+ (map syntax->datum #{req 57345}#)
+ #{opt 57346}#
+ #{rest 57347}#
+ #{kw 57348}#
+ #{body 57349}#
+ (reverse #{vars 57350}#)
+ #{r* 57352}#
+ #{w* 57353}#
'()
'())))))
- (#{parse-opt 33952}#
- (lambda (#{req 34331}#
- #{opt 34332}#
- #{rest 34333}#
- #{kw 34334}#
- #{body 34335}#
- #{vars 34336}#
- #{r* 34337}#
- #{w* 34338}#
- #{out 34339}#
- #{inits 34340}#)
- (if (pair? #{opt 34332}#)
- (let ((#{tmp 34341}# (car #{opt 34332}#)))
- (let ((#{tmp 34342}#
- ($sc-dispatch #{tmp 34341}# '(any any))))
- (if #{tmp 34342}#
+ (#{parse-opt 57211}#
+ (lambda (#{req 57587}#
+ #{opt 57588}#
+ #{rest 57589}#
+ #{kw 57590}#
+ #{body 57591}#
+ #{vars 57592}#
+ #{r* 57593}#
+ #{w* 57594}#
+ #{out 57595}#
+ #{inits 57596}#)
+ (if (pair? #{opt 57588}#)
+ (let ((#{tmp 57597}# (car #{opt 57588}#)))
+ (let ((#{tmp 57598}#
+ ($sc-dispatch #{tmp 57597}# '(any any))))
+ (if #{tmp 57598}#
(@apply
- (lambda (#{id 34344}# #{i 34345}#)
- (let ((#{v 34346}#
- (let ((#{id 34354}#
- (if (if (vector? #{id 34344}#)
+ (lambda (#{id 57600}# #{i 57601}#)
+ (let ((#{v 57602}#
+ (let ((#{id 57610}#
+ (if (if (vector? #{id 57600}#)
(if (= (vector-length
- #{id 34344}#)
+ #{id 57600}#)
4)
(eq? (vector-ref
- #{id 34344}#
+ #{id 57600}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 34344}# 1)
- #{id 34344}#)))
+ (vector-ref #{id 57600}# 1)
+ #{id 57600}#)))
(gensym
(string-append
- (symbol->string #{id 34354}#)
+ (symbol->string #{id 57610}#)
" ")))))
- (let ((#{l 34347}#
- (#{gen-labels 4413}# (list #{v 34346}#))))
- (let ((#{r** 34348}#
- (#{extend-var-env 4406}#
- #{l 34347}#
- (list #{v 34346}#)
- #{r* 34337}#)))
- (let ((#{w** 34349}#
- (#{make-binding-wrap 4424}#
- (list #{id 34344}#)
- #{l 34347}#
- #{w* 34338}#)))
- (#{parse-opt 33952}#
- #{req 34331}#
- (cdr #{opt 34332}#)
- #{rest 34333}#
- #{kw 34334}#
- #{body 34335}#
- (cons #{v 34346}# #{vars 34336}#)
- #{r** 34348}#
- #{w** 34349}#
- (cons (syntax->datum #{id 34344}#)
- #{out 34339}#)
- (cons (#{expand 4443}#
- #{i 34345}#
- #{r* 34337}#
- #{w* 34338}#
- #{mod 33948}#)
- #{inits 34340}#)))))))
- #{tmp 34342}#)
+ (let ((#{l 57603}#
+ (#{gen-labels 28241}# (list #{v 57602}#))))
+ (let ((#{r** 57604}#
+ (#{extend-var-env 28234}#
+ #{l 57603}#
+ (list #{v 57602}#)
+ #{r* 57593}#)))
+ (let ((#{w** 57605}#
+ (#{make-binding-wrap 28252}#
+ (list #{id 57600}#)
+ #{l 57603}#
+ #{w* 57594}#)))
+ (#{parse-opt 57211}#
+ #{req 57587}#
+ (cdr #{opt 57588}#)
+ #{rest 57589}#
+ #{kw 57590}#
+ #{body 57591}#
+ (cons #{v 57602}# #{vars 57592}#)
+ #{r** 57604}#
+ #{w** 57605}#
+ (cons (syntax->datum #{id 57600}#)
+ #{out 57595}#)
+ (cons (#{expand 28271}#
+ #{i 57601}#
+ #{r* 57593}#
+ #{w* 57594}#
+ #{mod 57207}#)
+ #{inits 57596}#)))))))
+ #{tmp 57598}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 34341}#))))
- (if #{rest 34333}#
- (let ((#{v 34655}#
- (let ((#{id 34665}#
- (if (if (vector? #{rest 34333}#)
- (if (= (vector-length #{rest 34333}#)
+ #{tmp 57597}#))))
+ (if #{rest 57589}#
+ (let ((#{v 57904}#
+ (let ((#{id 57914}#
+ (if (if (vector? #{rest 57589}#)
+ (if (= (vector-length #{rest 57589}#)
4)
- (eq? (vector-ref #{rest 34333}# 0)
+ (eq? (vector-ref #{rest 57589}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 34333}# 1)
- #{rest 34333}#)))
+ (vector-ref #{rest 57589}# 1)
+ #{rest 57589}#)))
(gensym
(string-append
- (symbol->string #{id 34665}#)
+ (symbol->string #{id 57914}#)
" ")))))
- (let ((#{l 34656}#
- (#{gen-labels 4413}# (list #{v 34655}#))))
- (let ((#{r* 34657}#
- (#{extend-var-env 4406}#
- #{l 34656}#
- (list #{v 34655}#)
- #{r* 34337}#)))
- (let ((#{w* 34658}#
- (#{make-binding-wrap 4424}#
- (list #{rest 34333}#)
- #{l 34656}#
- #{w* 34338}#)))
- (#{parse-kw 33953}#
- #{req 34331}#
- (if (pair? #{out 34339}#)
- (reverse #{out 34339}#)
+ (let ((#{l 57905}#
+ (#{gen-labels 28241}# (list #{v 57904}#))))
+ (let ((#{r* 57906}#
+ (#{extend-var-env 28234}#
+ #{l 57905}#
+ (list #{v 57904}#)
+ #{r* 57593}#)))
+ (let ((#{w* 57907}#
+ (#{make-binding-wrap 28252}#
+ (list #{rest 57589}#)
+ #{l 57905}#
+ #{w* 57594}#)))
+ (#{parse-kw 57212}#
+ #{req 57587}#
+ (if (pair? #{out 57595}#)
+ (reverse #{out 57595}#)
#f)
- (syntax->datum #{rest 34333}#)
- (if (pair? #{kw 34334}#)
- (cdr #{kw 34334}#)
- #{kw 34334}#)
- #{body 34335}#
- (cons #{v 34655}# #{vars 34336}#)
- #{r* 34657}#
- #{w* 34658}#
- (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f)
+ (syntax->datum #{rest 57589}#)
+ (if (pair? #{kw 57590}#)
+ (cdr #{kw 57590}#)
+ #{kw 57590}#)
+ #{body 57591}#
+ (cons #{v 57904}# #{vars 57592}#)
+ #{r* 57906}#
+ #{w* 57907}#
+ (if (pair? #{kw 57590}#) (car #{kw 57590}#) #f)
'()
- #{inits 34340}#)))))
- (#{parse-kw 33953}#
- #{req 34331}#
- (if (pair? #{out 34339}#)
- (reverse #{out 34339}#)
+ #{inits 57596}#)))))
+ (#{parse-kw 57212}#
+ #{req 57587}#
+ (if (pair? #{out 57595}#)
+ (reverse #{out 57595}#)
#f)
#f
- (if (pair? #{kw 34334}#)
- (cdr #{kw 34334}#)
- #{kw 34334}#)
- #{body 34335}#
- #{vars 34336}#
- #{r* 34337}#
- #{w* 34338}#
- (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f)
+ (if (pair? #{kw 57590}#)
+ (cdr #{kw 57590}#)
+ #{kw 57590}#)
+ #{body 57591}#
+ #{vars 57592}#
+ #{r* 57593}#
+ #{w* 57594}#
+ (if (pair? #{kw 57590}#) (car #{kw 57590}#) #f)
'()
- #{inits 34340}#)))))
- (#{parse-kw 33953}#
- (lambda (#{req 34887}#
- #{opt 34888}#
- #{rest 34889}#
- #{kw 34890}#
- #{body 34891}#
- #{vars 34892}#
- #{r* 34893}#
- #{w* 34894}#
- #{aok 34895}#
- #{out 34896}#
- #{inits 34897}#)
- (if (pair? #{kw 34890}#)
- (let ((#{tmp 34898}# (car #{kw 34890}#)))
- (let ((#{tmp 34899}#
- ($sc-dispatch #{tmp 34898}# '(any any any))))
- (if #{tmp 34899}#
+ #{inits 57596}#)))))
+ (#{parse-kw 57212}#
+ (lambda (#{req 58133}#
+ #{opt 58134}#
+ #{rest 58135}#
+ #{kw 58136}#
+ #{body 58137}#
+ #{vars 58138}#
+ #{r* 58139}#
+ #{w* 58140}#
+ #{aok 58141}#
+ #{out 58142}#
+ #{inits 58143}#)
+ (if (pair? #{kw 58136}#)
+ (let ((#{tmp 58144}# (car #{kw 58136}#)))
+ (let ((#{tmp 58145}#
+ ($sc-dispatch #{tmp 58144}# '(any any any))))
+ (if #{tmp 58145}#
(@apply
- (lambda (#{k 34901}# #{id 34902}# #{i 34903}#)
- (let ((#{v 34904}#
- (let ((#{id 34912}#
- (if (if (vector? #{id 34902}#)
+ (lambda (#{k 58147}# #{id 58148}# #{i 58149}#)
+ (let ((#{v 58150}#
+ (let ((#{id 58158}#
+ (if (if (vector? #{id 58148}#)
(if (= (vector-length
- #{id 34902}#)
+ #{id 58148}#)
4)
(eq? (vector-ref
- #{id 34902}#
+ #{id 58148}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 34902}# 1)
- #{id 34902}#)))
+ (vector-ref #{id 58148}# 1)
+ #{id 58148}#)))
(gensym
(string-append
- (symbol->string #{id 34912}#)
+ (symbol->string #{id 58158}#)
" ")))))
- (let ((#{l 34905}#
- (#{gen-labels 4413}# (list #{v 34904}#))))
- (let ((#{r** 34906}#
- (#{extend-var-env 4406}#
- #{l 34905}#
- (list #{v 34904}#)
- #{r* 34893}#)))
- (let ((#{w** 34907}#
- (#{make-binding-wrap 4424}#
- (list #{id 34902}#)
- #{l 34905}#
- #{w* 34894}#)))
- (#{parse-kw 33953}#
- #{req 34887}#
- #{opt 34888}#
- #{rest 34889}#
- (cdr #{kw 34890}#)
- #{body 34891}#
- (cons #{v 34904}# #{vars 34892}#)
- #{r** 34906}#
- #{w** 34907}#
- #{aok 34895}#
- (cons (list (syntax->datum #{k 34901}#)
- (syntax->datum #{id 34902}#)
- #{v 34904}#)
- #{out 34896}#)
- (cons (#{expand 4443}#
- #{i 34903}#
- #{r* 34893}#
- #{w* 34894}#
- #{mod 33948}#)
- #{inits 34897}#)))))))
- #{tmp 34899}#)
+ (let ((#{l 58151}#
+ (#{gen-labels 28241}# (list #{v 58150}#))))
+ (let ((#{r** 58152}#
+ (#{extend-var-env 28234}#
+ #{l 58151}#
+ (list #{v 58150}#)
+ #{r* 58139}#)))
+ (let ((#{w** 58153}#
+ (#{make-binding-wrap 28252}#
+ (list #{id 58148}#)
+ #{l 58151}#
+ #{w* 58140}#)))
+ (#{parse-kw 57212}#
+ #{req 58133}#
+ #{opt 58134}#
+ #{rest 58135}#
+ (cdr #{kw 58136}#)
+ #{body 58137}#
+ (cons #{v 58150}# #{vars 58138}#)
+ #{r** 58152}#
+ #{w** 58153}#
+ #{aok 58141}#
+ (cons (list (syntax->datum #{k 58147}#)
+ (syntax->datum #{id 58148}#)
+ #{v 58150}#)
+ #{out 58142}#)
+ (cons (#{expand 28271}#
+ #{i 58149}#
+ #{r* 58139}#
+ #{w* 58140}#
+ #{mod 57207}#)
+ #{inits 58143}#)))))))
+ #{tmp 58145}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 34898}#))))
- (#{parse-body 33954}#
- #{req 34887}#
- #{opt 34888}#
- #{rest 34889}#
- (if (if #{aok 34895}#
- #{aok 34895}#
- (pair? #{out 34896}#))
- (cons #{aok 34895}# (reverse #{out 34896}#))
+ #{tmp 58144}#))))
+ (#{parse-body 57213}#
+ #{req 58133}#
+ #{opt 58134}#
+ #{rest 58135}#
+ (if (if #{aok 58141}#
+ #{aok 58141}#
+ (pair? #{out 58142}#))
+ (cons #{aok 58141}# (reverse #{out 58142}#))
#f)
- #{body 34891}#
- (reverse #{vars 34892}#)
- #{r* 34893}#
- #{w* 34894}#
- (reverse #{inits 34897}#)
+ #{body 58137}#
+ (reverse #{vars 58138}#)
+ #{r* 58139}#
+ #{w* 58140}#
+ (reverse #{inits 58143}#)
'()))))
- (#{parse-body 33954}#
- (lambda (#{req 35222}#
- #{opt 35223}#
- #{rest 35224}#
- #{kw 35225}#
- #{body 35226}#
- #{vars 35227}#
- #{r* 35228}#
- #{w* 35229}#
- #{inits 35230}#
- #{meta 35231}#)
- (let ((#{tmp 35233}#
+ (#{parse-body 57213}#
+ (lambda (#{req 58461}#
+ #{opt 58462}#
+ #{rest 58463}#
+ #{kw 58464}#
+ #{body 58465}#
+ #{vars 58466}#
+ #{r* 58467}#
+ #{w* 58468}#
+ #{inits 58469}#
+ #{meta 58470}#)
+ (let ((#{tmp 58472}#
($sc-dispatch
- #{body 35226}#
+ #{body 58465}#
'(any any . each-any))))
- (if (if #{tmp 35233}#
+ (if (if #{tmp 58472}#
(@apply
- (lambda (#{docstring 35237}# #{e1 35238}# #{e2 35239}#)
- (string? (syntax->datum #{docstring 35237}#)))
- #{tmp 35233}#)
+ (lambda (#{docstring 58476}# #{e1 58477}# #{e2 58478}#)
+ (string? (syntax->datum #{docstring 58476}#)))
+ #{tmp 58472}#)
#f)
(@apply
- (lambda (#{docstring 35240}# #{e1 35241}# #{e2 35242}#)
- (#{parse-body 33954}#
- #{req 35222}#
- #{opt 35223}#
- #{rest 35224}#
- #{kw 35225}#
- (cons #{e1 35241}# #{e2 35242}#)
- #{vars 35227}#
- #{r* 35228}#
- #{w* 35229}#
- #{inits 35230}#
+ (lambda (#{docstring 58479}# #{e1 58480}# #{e2 58481}#)
+ (#{parse-body 57213}#
+ #{req 58461}#
+ #{opt 58462}#
+ #{rest 58463}#
+ #{kw 58464}#
+ (cons #{e1 58480}# #{e2 58481}#)
+ #{vars 58466}#
+ #{r* 58467}#
+ #{w* 58468}#
+ #{inits 58469}#
(append
- #{meta 35231}#
+ #{meta 58470}#
(list (cons 'documentation
- (syntax->datum #{docstring 35240}#))))))
- #{tmp 35233}#)
- (let ((#{tmp 35243}#
+ (syntax->datum #{docstring 58479}#))))))
+ #{tmp 58472}#)
+ (let ((#{tmp 58482}#
($sc-dispatch
- #{body 35226}#
+ #{body 58465}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 35243}#
+ (if #{tmp 58482}#
(@apply
- (lambda (#{k 35247}#
- #{v 35248}#
- #{e1 35249}#
- #{e2 35250}#)
- (#{parse-body 33954}#
- #{req 35222}#
- #{opt 35223}#
- #{rest 35224}#
- #{kw 35225}#
- (cons #{e1 35249}# #{e2 35250}#)
- #{vars 35227}#
- #{r* 35228}#
- #{w* 35229}#
- #{inits 35230}#
+ (lambda (#{k 58486}#
+ #{v 58487}#
+ #{e1 58488}#
+ #{e2 58489}#)
+ (#{parse-body 57213}#
+ #{req 58461}#
+ #{opt 58462}#
+ #{rest 58463}#
+ #{kw 58464}#
+ (cons #{e1 58488}# #{e2 58489}#)
+ #{vars 58466}#
+ #{r* 58467}#
+ #{w* 58468}#
+ #{inits 58469}#
(append
- #{meta 35231}#
+ #{meta 58470}#
(syntax->datum
- (map cons #{k 35247}# #{v 35248}#)))))
- #{tmp 35243}#)
- (let ((#{tmp 35251}#
- ($sc-dispatch #{body 35226}# '(any . each-any))))
- (if #{tmp 35251}#
+ (map cons #{k 58486}# #{v 58487}#)))))
+ #{tmp 58482}#)
+ (let ((#{tmp 58490}#
+ ($sc-dispatch #{body 58465}# '(any . each-any))))
+ (if #{tmp 58490}#
(@apply
- (lambda (#{e1 35255}# #{e2 35256}#)
+ (lambda (#{e1 58494}# #{e2 58495}#)
(values
- #{meta 35231}#
- #{req 35222}#
- #{opt 35223}#
- #{rest 35224}#
- #{kw 35225}#
- #{inits 35230}#
- #{vars 35227}#
- (#{expand-body 4447}#
- (cons #{e1 35255}# #{e2 35256}#)
- (let ((#{x 35268}#
+ #{meta 58470}#
+ #{req 58461}#
+ #{opt 58462}#
+ #{rest 58463}#
+ #{kw 58464}#
+ #{inits 58469}#
+ #{vars 58466}#
+ (#{expand-body 28275}#
+ (cons #{e1 58494}# #{e2 58495}#)
+ (let ((#{x 58507}#
(begin
- (if (if (pair? #{e 33944}#)
- #{s 33947}#
+ (if (if (pair? #{e 57203}#)
+ #{s 57206}#
#f)
(set-source-properties!
- #{e 33944}#
- #{s 33947}#))
- #{e 33944}#)))
- (if (if (null? (car #{w 33946}#))
- (null? (cdr #{w 33946}#))
+ #{e 57203}#
+ #{s 57206}#))
+ #{e 57203}#)))
+ (if (if (null? (car #{w 57205}#))
+ (null? (cdr #{w 57205}#))
#f)
- #{x 35268}#
- (if (if (vector? #{x 35268}#)
- (if (= (vector-length #{x 35268}#)
+ #{x 58507}#
+ (if (if (vector? #{x 58507}#)
+ (if (= (vector-length #{x 58507}#)
4)
- (eq? (vector-ref #{x 35268}# 0)
+ (eq? (vector-ref #{x 58507}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 35300}#
- (vector-ref #{x 35268}# 1))
- (#{wrap 35301}#
- (let ((#{w2 35309}#
+ (let ((#{expression 58539}#
+ (vector-ref #{x 58507}# 1))
+ (#{wrap 58540}#
+ (let ((#{w2 58548}#
(vector-ref
- #{x 35268}#
+ #{x 58507}#
2)))
- (let ((#{m1 35310}#
- (car #{w 33946}#))
- (#{s1 35311}#
- (cdr #{w 33946}#)))
- (if (null? #{m1 35310}#)
- (if (null? #{s1 35311}#)
- #{w2 35309}#
- (cons (car #{w2 35309}#)
- (let ((#{m2 35326}#
- (cdr #{w2 35309}#)))
- (if (null? #{m2 35326}#)
- #{s1 35311}#
+ (let ((#{m1 58549}#
+ (car #{w 57205}#))
+ (#{s1 58550}#
+ (cdr #{w 57205}#)))
+ (if (null? #{m1 58549}#)
+ (if (null? #{s1 58550}#)
+ #{w2 58548}#
+ (cons (car #{w2 58548}#)
+ (let ((#{m2 58565}#
+ (cdr #{w2 58548}#)))
+ (if (null? #{m2 58565}#)
+ #{s1 58550}#
(append
- #{s1 35311}#
- #{m2 35326}#)))))
- (cons (let ((#{m2 35334}#
- (car #{w2 35309}#)))
- (if (null? #{m2 35334}#)
- #{m1 35310}#
+ #{s1 58550}#
+ #{m2 58565}#)))))
+ (cons (let ((#{m2 58573}#
+ (car #{w2 58548}#)))
+ (if (null? #{m2 58573}#)
+ #{m1 58549}#
(append
- #{m1 35310}#
- #{m2 35334}#)))
- (let ((#{m2 35342}#
- (cdr #{w2 35309}#)))
- (if (null? #{m2 35342}#)
- #{s1 35311}#
+ #{m1 58549}#
+ #{m2 58573}#)))
+ (let ((#{m2 58581}#
+ (cdr #{w2 58548}#)))
+ (if (null? #{m2 58581}#)
+ #{s1 58550}#
(append
- #{s1 35311}#
- #{m2 35342}#))))))))
- (#{module 35302}#
- (vector-ref #{x 35268}# 3)))
+ #{s1 58550}#
+ #{m2 58581}#))))))))
+ (#{module 58541}#
+ (vector-ref #{x 58507}# 3)))
(vector
'syntax-object
- #{expression 35300}#
- #{wrap 35301}#
- #{module 35302}#))
- (if (null? #{x 35268}#)
- #{x 35268}#
+ #{expression 58539}#
+ #{wrap 58540}#
+ #{module 58541}#))
+ (if (null? #{x 58507}#)
+ #{x 58507}#
(vector
'syntax-object
- #{x 35268}#
- #{w 33946}#
- #{mod 33948}#)))))
- #{r* 35228}#
- #{w* 35229}#
- #{mod 33948}#)))
- #{tmp 35251}#)
+ #{x 58507}#
+ #{w 57205}#
+ #{mod 57207}#)))))
+ #{r* 58467}#
+ #{w* 58468}#
+ #{mod 57207}#)))
+ #{tmp 58490}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 35226}#))))))))))
- (let ((#{tmp 33956}#
- ($sc-dispatch #{clauses 33950}# '())))
- (if #{tmp 33956}#
+ #{body 58465}#))))))))))
+ (let ((#{tmp 57215}#
+ ($sc-dispatch #{clauses 57209}# '())))
+ (if #{tmp 57215}#
(@apply
(lambda () (values '() #f))
- #{tmp 33956}#)
- (let ((#{tmp 33961}#
+ #{tmp 57215}#)
+ (let ((#{tmp 57219}#
($sc-dispatch
- #{clauses 33950}#
+ #{clauses 57209}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 33961}#
+ (if #{tmp 57219}#
(@apply
- (lambda (#{args 33965}#
- #{e1 33966}#
- #{e2 33967}#
- #{args* 33968}#
- #{e1* 33969}#
- #{e2* 33970}#)
+ (lambda (#{args 57223}#
+ #{e1 57224}#
+ #{e2 57225}#
+ #{args* 57226}#
+ #{e1* 57227}#
+ #{e2* 57228}#)
(call-with-values
(lambda ()
- (#{get-formals 33949}# #{args 33965}#))
- (lambda (#{req 33971}#
- #{opt 33972}#
- #{rest 33973}#
- #{kw 33974}#)
+ (#{get-formals 57208}# #{args 57223}#))
+ (lambda (#{req 57229}#
+ #{opt 57230}#
+ #{rest 57231}#
+ #{kw 57232}#)
(call-with-values
(lambda ()
- (#{parse-req 33951}#
- #{req 33971}#
- #{opt 33972}#
- #{rest 33973}#
- #{kw 33974}#
- (cons #{e1 33966}# #{e2 33967}#)))
- (lambda (#{meta 34043}#
- #{req 34044}#
- #{opt 34045}#
- #{rest 34046}#
- #{kw 34047}#
- #{inits 34048}#
- #{vars 34049}#
- #{body 34050}#)
+ (#{parse-req 57210}#
+ #{req 57229}#
+ #{opt 57230}#
+ #{rest 57231}#
+ #{kw 57232}#
+ (cons #{e1 57224}# #{e2 57225}#)))
+ (lambda (#{meta 57301}#
+ #{req 57302}#
+ #{opt 57303}#
+ #{rest 57304}#
+ #{kw 57305}#
+ #{inits 57306}#
+ #{vars 57307}#
+ #{body 57308}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4455}#
- #{e 33944}#
- #{r 33945}#
- #{w 33946}#
- #{s 33947}#
- #{mod 33948}#
- #{get-formals 33949}#
- (map (lambda (#{tmp 2883 34051}#
- #{tmp 2882 34052}#
- #{tmp 2881 34053}#)
- (cons #{tmp 2881 34053}#
- (cons #{tmp 2882 34052}#
- #{tmp 2883 34051}#)))
- #{e2* 33970}#
- #{e1* 33969}#
- #{args* 33968}#)))
- (lambda (#{meta* 34054}# #{else* 34055}#)
+ (#{expand-lambda-case 28283}#
+ #{e 57203}#
+ #{r 57204}#
+ #{w 57205}#
+ #{s 57206}#
+ #{mod 57207}#
+ #{get-formals 57208}#
+ (map (lambda (#{tmp 26711 57309}#
+ #{tmp 26710 57310}#
+ #{tmp 26709 57311}#)
+ (cons #{tmp 26709 57311}#
+ (cons #{tmp 26710 57310}#
+ #{tmp 26711 57309}#)))
+ #{e2* 57228}#
+ #{e1* 57227}#
+ #{args* 57226}#)))
+ (lambda (#{meta* 57312}# #{else* 57313}#)
(values
- (append #{meta 34043}# #{meta* 34054}#)
+ (append #{meta 57301}# #{meta* 57312}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{s 33947}#
- #{req 34044}#
- #{opt 34045}#
- #{rest 34046}#
- #{kw 34047}#
- #{inits 34048}#
- #{vars 34049}#
- #{body 34050}#
- #{else* 34055}#)))))))))
- #{tmp 33961}#)
+ #{s 57206}#
+ #{req 57302}#
+ #{opt 57303}#
+ #{rest 57304}#
+ #{kw 57305}#
+ #{inits 57306}#
+ #{vars 57307}#
+ #{body 57308}#
+ #{else* 57313}#)))))))))
+ #{tmp 57219}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 33950}#))))))))
- (#{strip 4456}#
- (lambda (#{x 35369}# #{w 35370}#)
- (if (memq 'top (car #{w 35370}#))
- #{x 35369}#
+ #{clauses 57209}#))))))))
+ (#{strip 28284}#
+ (lambda (#{x 58608}# #{w 58609}#)
+ (if (memq 'top (car #{w 58609}#))
+ #{x 58608}#
(letrec*
- ((#{f 35371}#
- (lambda (#{x 35374}#)
- (if (if (vector? #{x 35374}#)
- (if (= (vector-length #{x 35374}#) 4)
- (eq? (vector-ref #{x 35374}# 0) 'syntax-object)
+ ((#{f 58610}#
+ (lambda (#{x 58613}#)
+ (if (if (vector? #{x 58613}#)
+ (if (= (vector-length #{x 58613}#) 4)
+ (eq? (vector-ref #{x 58613}# 0) 'syntax-object)
#f)
#f)
- (#{strip 4456}#
- (vector-ref #{x 35374}# 1)
- (vector-ref #{x 35374}# 2))
- (if (pair? #{x 35374}#)
- (let ((#{a 35393}# (#{f 35371}# (car #{x 35374}#)))
- (#{d 35394}# (#{f 35371}# (cdr #{x 35374}#))))
- (if (if (eq? #{a 35393}# (car #{x 35374}#))
- (eq? #{d 35394}# (cdr #{x 35374}#))
+ (#{strip 28284}#
+ (vector-ref #{x 58613}# 1)
+ (vector-ref #{x 58613}# 2))
+ (if (pair? #{x 58613}#)
+ (let ((#{a 58632}# (#{f 58610}# (car #{x 58613}#)))
+ (#{d 58633}# (#{f 58610}# (cdr #{x 58613}#))))
+ (if (if (eq? #{a 58632}# (car #{x 58613}#))
+ (eq? #{d 58633}# (cdr #{x 58613}#))
#f)
- #{x 35374}#
- (cons #{a 35393}# #{d 35394}#)))
- (if (vector? #{x 35374}#)
- (let ((#{old 35397}# (vector->list #{x 35374}#)))
- (let ((#{new 35398}# (map #{f 35371}# #{old 35397}#)))
+ #{x 58613}#
+ (cons #{a 58632}# #{d 58633}#)))
+ (if (vector? #{x 58613}#)
+ (let ((#{old 58636}# (vector->list #{x 58613}#)))
+ (let ((#{new 58637}# (map #{f 58610}# #{old 58636}#)))
(letrec*
- ((#{lp 35399}#
- (lambda (#{l1 35496}# #{l2 35497}#)
- (if (null? #{l1 35496}#)
- #{x 35374}#
- (if (eq? (car #{l1 35496}#)
- (car #{l2 35497}#))
- (#{lp 35399}#
- (cdr #{l1 35496}#)
- (cdr #{l2 35497}#))
- (list->vector #{new 35398}#))))))
- (#{lp 35399}# #{old 35397}# #{new 35398}#))))
- #{x 35374}#))))))
- (#{f 35371}# #{x 35369}#)))))
- (#{gen-var 4457}#
- (lambda (#{id 34099}#)
- (let ((#{id 34100}#
- (if (if (vector? #{id 34099}#)
- (if (= (vector-length #{id 34099}#) 4)
- (eq? (vector-ref #{id 34099}# 0) 'syntax-object)
+ ((#{lp 58638}#
+ (lambda (#{l1 58735}# #{l2 58736}#)
+ (if (null? #{l1 58735}#)
+ #{x 58613}#
+ (if (eq? (car #{l1 58735}#)
+ (car #{l2 58736}#))
+ (#{lp 58638}#
+ (cdr #{l1 58735}#)
+ (cdr #{l2 58736}#))
+ (list->vector #{new 58637}#))))))
+ (#{lp 58638}# #{old 58636}# #{new 58637}#))))
+ #{x 58613}#))))))
+ (#{f 58610}# #{x 58608}#)))))
+ (#{gen-var 28285}#
+ (lambda (#{id 57357}#)
+ (let ((#{id 57358}#
+ (if (if (vector? #{id 57357}#)
+ (if (= (vector-length #{id 57357}#) 4)
+ (eq? (vector-ref #{id 57357}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 34099}# 1)
- #{id 34099}#)))
+ (vector-ref #{id 57357}# 1)
+ #{id 57357}#)))
(gensym
- (string-append (symbol->string #{id 34100}#) " ")))))
- (#{lambda-var-list 4458}#
- (lambda (#{vars 35498}#)
+ (string-append (symbol->string #{id 57358}#) " ")))))
+ (#{lambda-var-list 28286}#
+ (lambda (#{vars 58737}#)
(letrec*
- ((#{lvl 35499}#
- (lambda (#{vars 35502}# #{ls 35503}# #{w 35504}#)
- (if (pair? #{vars 35502}#)
- (#{lvl 35499}#
- (cdr #{vars 35502}#)
- (cons (let ((#{x 35508}# (car #{vars 35502}#)))
- (if (if (null? (car #{w 35504}#))
- (null? (cdr #{w 35504}#))
+ ((#{lvl 58738}#
+ (lambda (#{vars 58741}# #{ls 58742}# #{w 58743}#)
+ (if (pair? #{vars 58741}#)
+ (#{lvl 58738}#
+ (cdr #{vars 58741}#)
+ (cons (let ((#{x 58747}# (car #{vars 58741}#)))
+ (if (if (null? (car #{w 58743}#))
+ (null? (cdr #{w 58743}#))
#f)
- #{x 35508}#
- (if (if (vector? #{x 35508}#)
- (if (= (vector-length #{x 35508}#) 4)
- (eq? (vector-ref #{x 35508}# 0)
+ #{x 58747}#
+ (if (if (vector? #{x 58747}#)
+ (if (= (vector-length #{x 58747}#) 4)
+ (eq? (vector-ref #{x 58747}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 35526}#
- (vector-ref #{x 35508}# 1))
- (#{wrap 35527}#
- (let ((#{w2 35535}#
- (vector-ref #{x 35508}# 2)))
- (let ((#{m1 35536}# (car #{w 35504}#))
- (#{s1 35537}# (cdr #{w 35504}#)))
- (if (null? #{m1 35536}#)
- (if (null? #{s1 35537}#)
- #{w2 35535}#
- (cons (car #{w2 35535}#)
- (let ((#{m2 35552}#
- (cdr #{w2 35535}#)))
- (if (null? #{m2 35552}#)
- #{s1 35537}#
+ (let ((#{expression 58765}#
+ (vector-ref #{x 58747}# 1))
+ (#{wrap 58766}#
+ (let ((#{w2 58774}#
+ (vector-ref #{x 58747}# 2)))
+ (let ((#{m1 58775}# (car #{w 58743}#))
+ (#{s1 58776}# (cdr #{w 58743}#)))
+ (if (null? #{m1 58775}#)
+ (if (null? #{s1 58776}#)
+ #{w2 58774}#
+ (cons (car #{w2 58774}#)
+ (let ((#{m2 58791}#
+ (cdr #{w2 58774}#)))
+ (if (null? #{m2 58791}#)
+ #{s1 58776}#
(append
- #{s1 35537}#
- #{m2 35552}#)))))
- (cons (let ((#{m2 35560}#
- (car #{w2 35535}#)))
- (if (null? #{m2 35560}#)
- #{m1 35536}#
+ #{s1 58776}#
+ #{m2 58791}#)))))
+ (cons (let ((#{m2 58799}#
+ (car #{w2 58774}#)))
+ (if (null? #{m2 58799}#)
+ #{m1 58775}#
(append
- #{m1 35536}#
- #{m2 35560}#)))
- (let ((#{m2 35568}#
- (cdr #{w2 35535}#)))
- (if (null? #{m2 35568}#)
- #{s1 35537}#
+ #{m1 58775}#
+ #{m2 58799}#)))
+ (let ((#{m2 58807}#
+ (cdr #{w2 58774}#)))
+ (if (null? #{m2 58807}#)
+ #{s1 58776}#
(append
- #{s1 35537}#
- #{m2 35568}#))))))))
- (#{module 35528}#
- (vector-ref #{x 35508}# 3)))
+ #{s1 58776}#
+ #{m2 58807}#))))))))
+ (#{module 58767}#
+ (vector-ref #{x 58747}# 3)))
(vector
'syntax-object
- #{expression 35526}#
- #{wrap 35527}#
- #{module 35528}#))
- (if (null? #{x 35508}#)
- #{x 35508}#
+ #{expression 58765}#
+ #{wrap 58766}#
+ #{module 58767}#))
+ (if (null? #{x 58747}#)
+ #{x 58747}#
(vector
'syntax-object
- #{x 35508}#
- #{w 35504}#
+ #{x 58747}#
+ #{w 58743}#
#f)))))
- #{ls 35503}#)
- #{w 35504}#)
- (if (if (symbol? #{vars 35502}#)
+ #{ls 58742}#)
+ #{w 58743}#)
+ (if (if (symbol? #{vars 58741}#)
#t
- (if (if (vector? #{vars 35502}#)
- (if (= (vector-length #{vars 35502}#) 4)
- (eq? (vector-ref #{vars 35502}# 0)
+ (if (if (vector? #{vars 58741}#)
+ (if (= (vector-length #{vars 58741}#) 4)
+ (eq? (vector-ref #{vars 58741}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{vars 35502}# 1))
+ (symbol? (vector-ref #{vars 58741}# 1))
#f))
- (cons (if (if (null? (car #{w 35504}#))
- (null? (cdr #{w 35504}#))
+ (cons (if (if (null? (car #{w 58743}#))
+ (null? (cdr #{w 58743}#))
#f)
- #{vars 35502}#
- (if (if (vector? #{vars 35502}#)
- (if (= (vector-length #{vars 35502}#) 4)
- (eq? (vector-ref #{vars 35502}# 0)
+ #{vars 58741}#
+ (if (if (vector? #{vars 58741}#)
+ (if (= (vector-length #{vars 58741}#) 4)
+ (eq? (vector-ref #{vars 58741}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 35638}#
- (vector-ref #{vars 35502}# 1))
- (#{wrap 35639}#
- (let ((#{w2 35649}#
- (vector-ref #{vars 35502}# 2)))
- (let ((#{m1 35650}# (car #{w 35504}#))
- (#{s1 35651}# (cdr #{w 35504}#)))
- (if (null? #{m1 35650}#)
- (if (null? #{s1 35651}#)
- #{w2 35649}#
- (cons (car #{w2 35649}#)
- (let ((#{m2 35668}#
- (cdr #{w2 35649}#)))
- (if (null? #{m2 35668}#)
- #{s1 35651}#
+ (let ((#{expression 58877}#
+ (vector-ref #{vars 58741}# 1))
+ (#{wrap 58878}#
+ (let ((#{w2 58888}#
+ (vector-ref #{vars 58741}# 2)))
+ (let ((#{m1 58889}# (car #{w 58743}#))
+ (#{s1 58890}# (cdr #{w 58743}#)))
+ (if (null? #{m1 58889}#)
+ (if (null? #{s1 58890}#)
+ #{w2 58888}#
+ (cons (car #{w2 58888}#)
+ (let ((#{m2 58907}#
+ (cdr #{w2 58888}#)))
+ (if (null? #{m2 58907}#)
+ #{s1 58890}#
(append
- #{s1 35651}#
- #{m2 35668}#)))))
- (cons (let ((#{m2 35676}#
- (car #{w2 35649}#)))
- (if (null? #{m2 35676}#)
- #{m1 35650}#
+ #{s1 58890}#
+ #{m2 58907}#)))))
+ (cons (let ((#{m2 58915}#
+ (car #{w2 58888}#)))
+ (if (null? #{m2 58915}#)
+ #{m1 58889}#
(append
- #{m1 35650}#
- #{m2 35676}#)))
- (let ((#{m2 35684}#
- (cdr #{w2 35649}#)))
- (if (null? #{m2 35684}#)
- #{s1 35651}#
+ #{m1 58889}#
+ #{m2 58915}#)))
+ (let ((#{m2 58923}#
+ (cdr #{w2 58888}#)))
+ (if (null? #{m2 58923}#)
+ #{s1 58890}#
(append
- #{s1 35651}#
- #{m2 35684}#))))))))
- (#{module 35640}#
- (vector-ref #{vars 35502}# 3)))
+ #{s1 58890}#
+ #{m2 58923}#))))))))
+ (#{module 58879}#
+ (vector-ref #{vars 58741}# 3)))
(vector
'syntax-object
- #{expression 35638}#
- #{wrap 35639}#
- #{module 35640}#))
- (if (null? #{vars 35502}#)
- #{vars 35502}#
+ #{expression 58877}#
+ #{wrap 58878}#
+ #{module 58879}#))
+ (if (null? #{vars 58741}#)
+ #{vars 58741}#
(vector
'syntax-object
- #{vars 35502}#
- #{w 35504}#
+ #{vars 58741}#
+ #{w 58743}#
#f))))
- #{ls 35503}#)
- (if (null? #{vars 35502}#)
- #{ls 35503}#
- (if (if (vector? #{vars 35502}#)
- (if (= (vector-length #{vars 35502}#) 4)
- (eq? (vector-ref #{vars 35502}# 0)
+ #{ls 58742}#)
+ (if (null? #{vars 58741}#)
+ #{ls 58742}#
+ (if (if (vector? #{vars 58741}#)
+ (if (= (vector-length #{vars 58741}#) 4)
+ (eq? (vector-ref #{vars 58741}# 0)
'syntax-object)
#f)
#f)
- (#{lvl 35499}#
- (vector-ref #{vars 35502}# 1)
- #{ls 35503}#
- (let ((#{w2 35725}# (vector-ref #{vars 35502}# 2)))
- (let ((#{m1 35726}# (car #{w 35504}#))
- (#{s1 35727}# (cdr #{w 35504}#)))
- (if (null? #{m1 35726}#)
- (if (null? #{s1 35727}#)
- #{w2 35725}#
- (cons (car #{w2 35725}#)
- (let ((#{m2 35738}# (cdr #{w2 35725}#)))
- (if (null? #{m2 35738}#)
- #{s1 35727}#
+ (#{lvl 58738}#
+ (vector-ref #{vars 58741}# 1)
+ #{ls 58742}#
+ (let ((#{w2 58964}# (vector-ref #{vars 58741}# 2)))
+ (let ((#{m1 58965}# (car #{w 58743}#))
+ (#{s1 58966}# (cdr #{w 58743}#)))
+ (if (null? #{m1 58965}#)
+ (if (null? #{s1 58966}#)
+ #{w2 58964}#
+ (cons (car #{w2 58964}#)
+ (let ((#{m2 58977}# (cdr #{w2 58964}#)))
+ (if (null? #{m2 58977}#)
+ #{s1 58966}#
(append
- #{s1 35727}#
- #{m2 35738}#)))))
- (cons (let ((#{m2 35746}# (car #{w2 35725}#)))
- (if (null? #{m2 35746}#)
- #{m1 35726}#
- (append #{m1 35726}# #{m2 35746}#)))
- (let ((#{m2 35754}# (cdr #{w2 35725}#)))
- (if (null? #{m2 35754}#)
- #{s1 35727}#
+ #{s1 58966}#
+ #{m2 58977}#)))))
+ (cons (let ((#{m2 58985}# (car #{w2 58964}#)))
+ (if (null? #{m2 58985}#)
+ #{m1 58965}#
+ (append #{m1 58965}# #{m2 58985}#)))
+ (let ((#{m2 58993}# (cdr #{w2 58964}#)))
+ (if (null? #{m2 58993}#)
+ #{s1 58966}#
(append
- #{s1 35727}#
- #{m2 35754}#))))))))
- (cons #{vars 35502}# #{ls 35503}#))))))))
- (#{lvl 35499}# #{vars 35498}# '() '(()))))))
+ #{s1 58966}#
+ #{m2 58993}#))))))))
+ (cons #{vars 58741}# #{ls 58742}#))))))))
+ (#{lvl 58738}# #{vars 58737}# '() '(()))))))
(begin
(module-define!
(current-module)
@@ -9027,2070 +9044,2102 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 4408}#
+ (#{global-extend 28236}#
'core
'syntax-parameterize
- (lambda (#{e 4585}#
- #{r 4586}#
- #{w 4587}#
- #{s 4588}#
- #{mod 4589}#)
- (let ((#{tmp 4591}#
+ (lambda (#{e 28413}#
+ #{r 28414}#
+ #{w 28415}#
+ #{s 28416}#
+ #{mod 28417}#)
+ (let ((#{tmp 28419}#
($sc-dispatch
- #{e 4585}#
+ #{e 28413}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 4591}#
+ (if (if #{tmp 28419}#
(@apply
- (lambda (#{var 4595}#
- #{val 4596}#
- #{e1 4597}#
- #{e2 4598}#)
- (#{valid-bound-ids? 4433}# #{var 4595}#))
- #{tmp 4591}#)
+ (lambda (#{var 28423}#
+ #{val 28424}#
+ #{e1 28425}#
+ #{e2 28426}#)
+ (#{valid-bound-ids? 28261}# #{var 28423}#))
+ #{tmp 28419}#)
#f)
(@apply
- (lambda (#{var 4683}#
- #{val 4684}#
- #{e1 4685}#
- #{e2 4686}#)
- (let ((#{names 4687}#
- (map (lambda (#{x 5036}#)
+ (lambda (#{var 28511}#
+ #{val 28512}#
+ #{e1 28513}#
+ #{e2 28514}#)
+ (let ((#{names 28515}#
+ (map (lambda (#{x 28855}#)
(call-with-values
(lambda ()
- (#{resolve-identifier 4430}#
- #{x 5036}#
- #{w 4587}#
- #{r 4586}#
- #{mod 4589}#
+ (#{resolve-identifier 28258}#
+ #{x 28855}#
+ #{w 28415}#
+ #{r 28414}#
+ #{mod 28417}#
#f))
- (lambda (#{type 5039}#
- #{value 5040}#
- #{mod 5041}#)
- (if (eqv? #{type 5039}# 'displaced-lexical)
+ (lambda (#{type 28858}#
+ #{value 28859}#
+ #{mod 28860}#)
+ (if (eqv? #{type 28858}# 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- #{e 4585}#
- (let ((#{x 5054}#
+ #{e 28413}#
+ (let ((#{x 28873}#
(begin
- (if (if (pair? #{x 5036}#)
- #{s 4588}#
+ (if (if (pair? #{x 28855}#)
+ #{s 28416}#
#f)
(set-source-properties!
- #{x 5036}#
- #{s 4588}#))
- #{x 5036}#)))
- (if (if (null? (car #{w 4587}#))
- (null? (cdr #{w 4587}#))
+ #{x 28855}#
+ #{s 28416}#))
+ #{x 28855}#)))
+ (if (if (null? (car #{w 28415}#))
+ (null? (cdr #{w 28415}#))
#f)
- #{x 5054}#
- (if (if (vector? #{x 5054}#)
+ #{x 28873}#
+ (if (if (vector? #{x 28873}#)
(if (= (vector-length
- #{x 5054}#)
+ #{x 28873}#)
4)
(eq? (vector-ref
- #{x 5054}#
+ #{x 28873}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 5086}#
- (vector-ref #{x 5054}# 1))
- (#{wrap 5087}#
- (let ((#{w2 5095}#
+ (let ((#{expression 28905}#
+ (vector-ref
+ #{x 28873}#
+ 1))
+ (#{wrap 28906}#
+ (let ((#{w2 28914}#
(vector-ref
- #{x 5054}#
+ #{x 28873}#
2)))
- (let ((#{m1 5096}#
- (car #{w 4587}#))
- (#{s1 5097}#
- (cdr #{w 4587}#)))
- (if (null? #{m1 5096}#)
- (if (null? #{s1 5097}#)
- #{w2 5095}#
- (cons (car #{w2 5095}#)
- (let ((#{m2 5112}#
- (cdr #{w2 5095}#)))
- (if (null? #{m2 5112}#)
- #{s1 5097}#
+ (let ((#{m1 28915}#
+ (car #{w 28415}#))
+ (#{s1 28916}#
+ (cdr #{w 28415}#)))
+ (if (null? #{m1 28915}#)
+ (if (null? #{s1 28916}#)
+ #{w2 28914}#
+ (cons (car #{w2 28914}#)
+ (let ((#{m2 28931}#
+ (cdr #{w2 28914}#)))
+ (if (null? #{m2 28931}#)
+ #{s1 28916}#
(append
- #{s1 5097}#
- #{m2 5112}#)))))
- (cons (let ((#{m2 5120}#
- (car #{w2 5095}#)))
- (if (null? #{m2 5120}#)
- #{m1 5096}#
+ #{s1 28916}#
+ #{m2 28931}#)))))
+ (cons (let ((#{m2 28939}#
+ (car #{w2 28914}#)))
+ (if (null? #{m2 28939}#)
+ #{m1 28915}#
(append
- #{m1 5096}#
- #{m2 5120}#)))
- (let ((#{m2 5128}#
- (cdr #{w2 5095}#)))
- (if (null? #{m2 5128}#)
- #{s1 5097}#
+ #{m1 28915}#
+ #{m2 28939}#)))
+ (let ((#{m2 28947}#
+ (cdr #{w2 28914}#)))
+ (if (null? #{m2 28947}#)
+ #{s1 28916}#
(append
- #{s1 5097}#
- #{m2 5128}#))))))))
- (#{module 5088}#
+ #{s1 28916}#
+ #{m2 28947}#))))))))
+ (#{module 28907}#
(vector-ref
- #{x 5054}#
+ #{x 28873}#
3)))
(vector
'syntax-object
- #{expression 5086}#
- #{wrap 5087}#
- #{module 5088}#))
- (if (null? #{x 5054}#)
- #{x 5054}#
+ #{expression 28905}#
+ #{wrap 28906}#
+ #{module 28907}#))
+ (if (null? #{x 28873}#)
+ #{x 28873}#
(vector
'syntax-object
- #{x 5054}#
- #{w 4587}#
- #{mod 5041}#))))))
- (if (eqv? #{type 5039}# 'syntax-parameter)
- #{value 5040}#
+ #{x 28873}#
+ #{w 28415}#
+ #{mod 28860}#))))))
+ (if (eqv? #{type 28858}#
+ 'syntax-parameter)
+ #{value 28859}#
(syntax-violation
'syntax-parameterize
"invalid syntax parameter"
- #{e 4585}#
- (let ((#{x 5155}#
+ #{e 28413}#
+ (let ((#{x 28974}#
(begin
- (if (if (pair? #{x 5036}#)
- #{s 4588}#
+ (if (if (pair? #{x 28855}#)
+ #{s 28416}#
#f)
(set-source-properties!
- #{x 5036}#
- #{s 4588}#))
- #{x 5036}#)))
- (if (if (null? (car #{w 4587}#))
- (null? (cdr #{w 4587}#))
+ #{x 28855}#
+ #{s 28416}#))
+ #{x 28855}#)))
+ (if (if (null? (car #{w 28415}#))
+ (null? (cdr #{w 28415}#))
#f)
- #{x 5155}#
- (if (if (vector? #{x 5155}#)
+ #{x 28974}#
+ (if (if (vector? #{x 28974}#)
(if (= (vector-length
- #{x 5155}#)
+ #{x 28974}#)
4)
(eq? (vector-ref
- #{x 5155}#
+ #{x 28974}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 5187}#
+ (let ((#{expression 29006}#
(vector-ref
- #{x 5155}#
+ #{x 28974}#
1))
- (#{wrap 5188}#
- (let ((#{w2 5196}#
+ (#{wrap 29007}#
+ (let ((#{w2 29015}#
(vector-ref
- #{x 5155}#
+ #{x 28974}#
2)))
- (let ((#{m1 5197}#
- (car #{w 4587}#))
- (#{s1 5198}#
- (cdr #{w 4587}#)))
- (if (null? #{m1 5197}#)
- (if (null? #{s1 5198}#)
- #{w2 5196}#
- (cons (car #{w2 5196}#)
- (let ((#{m2 5213}#
- (cdr #{w2 5196}#)))
- (if (null? #{m2 5213}#)
- #{s1 5198}#
+ (let ((#{m1 29016}#
+ (car #{w 28415}#))
+ (#{s1 29017}#
+ (cdr #{w 28415}#)))
+ (if (null? #{m1 29016}#)
+ (if (null? #{s1 29017}#)
+ #{w2 29015}#
+ (cons (car #{w2 29015}#)
+ (let ((#{m2 29032}#
+ (cdr #{w2 29015}#)))
+ (if (null? #{m2 29032}#)
+ #{s1 29017}#
(append
- #{s1 5198}#
- #{m2 5213}#)))))
- (cons (let ((#{m2 5221}#
- (car #{w2 5196}#)))
- (if (null? #{m2 5221}#)
- #{m1 5197}#
+ #{s1 29017}#
+ #{m2 29032}#)))))
+ (cons (let ((#{m2 29040}#
+ (car #{w2 29015}#)))
+ (if (null? #{m2 29040}#)
+ #{m1 29016}#
(append
- #{m1 5197}#
- #{m2 5221}#)))
- (let ((#{m2 5229}#
- (cdr #{w2 5196}#)))
- (if (null? #{m2 5229}#)
- #{s1 5198}#
+ #{m1 29016}#
+ #{m2 29040}#)))
+ (let ((#{m2 29048}#
+ (cdr #{w2 29015}#)))
+ (if (null? #{m2 29048}#)
+ #{s1 29017}#
(append
- #{s1 5198}#
- #{m2 5229}#))))))))
- (#{module 5189}#
+ #{s1 29017}#
+ #{m2 29048}#))))))))
+ (#{module 29008}#
(vector-ref
- #{x 5155}#
+ #{x 28974}#
3)))
(vector
'syntax-object
- #{expression 5187}#
- #{wrap 5188}#
- #{module 5189}#))
- (if (null? #{x 5155}#)
- #{x 5155}#
+ #{expression 29006}#
+ #{wrap 29007}#
+ #{module 29008}#))
+ (if (null? #{x 28974}#)
+ #{x 28974}#
(vector
'syntax-object
- #{x 5155}#
- #{w 4587}#
- #{mod 5041}#)))))))))))
- #{var 4683}#))
- (#{bindings 4688}#
- (let ((#{trans-r 5244}#
- (#{macros-only-env 4407}# #{r 4586}#)))
- (map (lambda (#{x 5245}#)
+ #{x 28974}#
+ #{w 28415}#
+ #{mod 28860}#)))))))))))
+ #{var 28511}#))
+ (#{bindings 28516}#
+ (let ((#{trans-r 29063}#
+ (#{macros-only-env 28235}# #{r 28414}#)))
+ (map (lambda (#{x 29064}#)
(cons 'macro
- (#{eval-local-transformer 4449}#
- (#{expand 4443}#
- #{x 5245}#
- #{trans-r 5244}#
- #{w 4587}#
- #{mod 4589}#)
- #{mod 4589}#)))
- #{val 4684}#))))
- (#{expand-body 4447}#
- (cons #{e1 4685}# #{e2 4686}#)
- (let ((#{x 4700}#
+ (#{eval-local-transformer 28277}#
+ (#{expand 28271}#
+ #{x 29064}#
+ #{trans-r 29063}#
+ #{w 28415}#
+ #{mod 28417}#)
+ #{mod 28417}#)))
+ #{val 28512}#))))
+ (#{expand-body 28275}#
+ (cons #{e1 28513}# #{e2 28514}#)
+ (let ((#{x 28528}#
(begin
- (if (if (pair? #{e 4585}#) #{s 4588}# #f)
- (set-source-properties! #{e 4585}# #{s 4588}#))
- #{e 4585}#)))
- (if (if (null? (car #{w 4587}#))
- (null? (cdr #{w 4587}#))
+ (if (if (pair? #{e 28413}#) #{s 28416}# #f)
+ (set-source-properties!
+ #{e 28413}#
+ #{s 28416}#))
+ #{e 28413}#)))
+ (if (if (null? (car #{w 28415}#))
+ (null? (cdr #{w 28415}#))
#f)
- #{x 4700}#
- (if (if (vector? #{x 4700}#)
- (if (= (vector-length #{x 4700}#) 4)
- (eq? (vector-ref #{x 4700}# 0) 'syntax-object)
+ #{x 28528}#
+ (if (if (vector? #{x 28528}#)
+ (if (= (vector-length #{x 28528}#) 4)
+ (eq? (vector-ref #{x 28528}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 4732}# (vector-ref #{x 4700}# 1))
- (#{wrap 4733}#
- (let ((#{w2 4741}#
- (vector-ref #{x 4700}# 2)))
- (let ((#{m1 4742}# (car #{w 4587}#))
- (#{s1 4743}# (cdr #{w 4587}#)))
- (if (null? #{m1 4742}#)
- (if (null? #{s1 4743}#)
- #{w2 4741}#
- (cons (car #{w2 4741}#)
- (let ((#{m2 4758}#
- (cdr #{w2 4741}#)))
- (if (null? #{m2 4758}#)
- #{s1 4743}#
+ (let ((#{expression 28560}#
+ (vector-ref #{x 28528}# 1))
+ (#{wrap 28561}#
+ (let ((#{w2 28569}#
+ (vector-ref #{x 28528}# 2)))
+ (let ((#{m1 28570}# (car #{w 28415}#))
+ (#{s1 28571}# (cdr #{w 28415}#)))
+ (if (null? #{m1 28570}#)
+ (if (null? #{s1 28571}#)
+ #{w2 28569}#
+ (cons (car #{w2 28569}#)
+ (let ((#{m2 28586}#
+ (cdr #{w2 28569}#)))
+ (if (null? #{m2 28586}#)
+ #{s1 28571}#
(append
- #{s1 4743}#
- #{m2 4758}#)))))
- (cons (let ((#{m2 4766}#
- (car #{w2 4741}#)))
- (if (null? #{m2 4766}#)
- #{m1 4742}#
+ #{s1 28571}#
+ #{m2 28586}#)))))
+ (cons (let ((#{m2 28594}#
+ (car #{w2 28569}#)))
+ (if (null? #{m2 28594}#)
+ #{m1 28570}#
(append
- #{m1 4742}#
- #{m2 4766}#)))
- (let ((#{m2 4774}#
- (cdr #{w2 4741}#)))
- (if (null? #{m2 4774}#)
- #{s1 4743}#
+ #{m1 28570}#
+ #{m2 28594}#)))
+ (let ((#{m2 28602}#
+ (cdr #{w2 28569}#)))
+ (if (null? #{m2 28602}#)
+ #{s1 28571}#
(append
- #{s1 4743}#
- #{m2 4774}#))))))))
- (#{module 4734}# (vector-ref #{x 4700}# 3)))
+ #{s1 28571}#
+ #{m2 28602}#))))))))
+ (#{module 28562}# (vector-ref #{x 28528}# 3)))
(vector
'syntax-object
- #{expression 4732}#
- #{wrap 4733}#
- #{module 4734}#))
- (if (null? #{x 4700}#)
- #{x 4700}#
+ #{expression 28560}#
+ #{wrap 28561}#
+ #{module 28562}#))
+ (if (null? #{x 28528}#)
+ #{x 28528}#
(vector
'syntax-object
- #{x 4700}#
- #{w 4587}#
- #{mod 4589}#)))))
- (#{extend-env 4405}#
- #{names 4687}#
- #{bindings 4688}#
- #{r 4586}#)
- #{w 4587}#
- #{mod 4589}#)))
- #{tmp 4591}#)
+ #{x 28528}#
+ #{w 28415}#
+ #{mod 28417}#)))))
+ (#{extend-env 28233}#
+ #{names 28515}#
+ #{bindings 28516}#
+ #{r 28414}#)
+ #{w 28415}#
+ #{mod 28417}#)))
+ #{tmp 28419}#)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (let ((#{x 5469}#
+ (let ((#{x 29284}#
(begin
- (if (if (pair? #{e 4585}#) #{s 4588}# #f)
- (set-source-properties! #{e 4585}# #{s 4588}#))
- #{e 4585}#)))
- (if (if (null? (car #{w 4587}#))
- (null? (cdr #{w 4587}#))
+ (if (if (pair? #{e 28413}#) #{s 28416}# #f)
+ (set-source-properties! #{e 28413}# #{s 28416}#))
+ #{e 28413}#)))
+ (if (if (null? (car #{w 28415}#))
+ (null? (cdr #{w 28415}#))
#f)
- #{x 5469}#
- (if (if (vector? #{x 5469}#)
- (if (= (vector-length #{x 5469}#) 4)
- (eq? (vector-ref #{x 5469}# 0) 'syntax-object)
+ #{x 29284}#
+ (if (if (vector? #{x 29284}#)
+ (if (= (vector-length #{x 29284}#) 4)
+ (eq? (vector-ref #{x 29284}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 5501}# (vector-ref #{x 5469}# 1))
- (#{wrap 5502}#
- (let ((#{w2 5510}# (vector-ref #{x 5469}# 2)))
- (let ((#{m1 5511}# (car #{w 4587}#))
- (#{s1 5512}# (cdr #{w 4587}#)))
- (if (null? #{m1 5511}#)
- (if (null? #{s1 5512}#)
- #{w2 5510}#
- (cons (car #{w2 5510}#)
- (let ((#{m2 5527}#
- (cdr #{w2 5510}#)))
- (if (null? #{m2 5527}#)
- #{s1 5512}#
+ (let ((#{expression 29316}# (vector-ref #{x 29284}# 1))
+ (#{wrap 29317}#
+ (let ((#{w2 29325}# (vector-ref #{x 29284}# 2)))
+ (let ((#{m1 29326}# (car #{w 28415}#))
+ (#{s1 29327}# (cdr #{w 28415}#)))
+ (if (null? #{m1 29326}#)
+ (if (null? #{s1 29327}#)
+ #{w2 29325}#
+ (cons (car #{w2 29325}#)
+ (let ((#{m2 29342}#
+ (cdr #{w2 29325}#)))
+ (if (null? #{m2 29342}#)
+ #{s1 29327}#
(append
- #{s1 5512}#
- #{m2 5527}#)))))
- (cons (let ((#{m2 5535}# (car #{w2 5510}#)))
- (if (null? #{m2 5535}#)
- #{m1 5511}#
- (append #{m1 5511}# #{m2 5535}#)))
- (let ((#{m2 5543}# (cdr #{w2 5510}#)))
- (if (null? #{m2 5543}#)
- #{s1 5512}#
+ #{s1 29327}#
+ #{m2 29342}#)))))
+ (cons (let ((#{m2 29350}#
+ (car #{w2 29325}#)))
+ (if (null? #{m2 29350}#)
+ #{m1 29326}#
(append
- #{s1 5512}#
- #{m2 5543}#))))))))
- (#{module 5503}# (vector-ref #{x 5469}# 3)))
+ #{m1 29326}#
+ #{m2 29350}#)))
+ (let ((#{m2 29358}#
+ (cdr #{w2 29325}#)))
+ (if (null? #{m2 29358}#)
+ #{s1 29327}#
+ (append
+ #{s1 29327}#
+ #{m2 29358}#))))))))
+ (#{module 29318}# (vector-ref #{x 29284}# 3)))
(vector
'syntax-object
- #{expression 5501}#
- #{wrap 5502}#
- #{module 5503}#))
- (if (null? #{x 5469}#)
- #{x 5469}#
+ #{expression 29316}#
+ #{wrap 29317}#
+ #{module 29318}#))
+ (if (null? #{x 29284}#)
+ #{x 29284}#
(vector
'syntax-object
- #{x 5469}#
- #{w 4587}#
- #{mod 4589}#))))))))))
+ #{x 29284}#
+ #{w 28415}#
+ #{mod 28417}#))))))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 5571}#
- #{r 5572}#
- #{w 5573}#
- #{s 5574}#
- #{mod 5575}#)
- (let ((#{tmp 5577}# ($sc-dispatch #{e 5571}# '(_ any))))
- (if #{tmp 5577}#
+ (lambda (#{e 29386}#
+ #{r 29387}#
+ #{w 29388}#
+ #{s 29389}#
+ #{mod 29390}#)
+ (let ((#{tmp 29392}#
+ ($sc-dispatch #{e 29386}# '(_ any))))
+ (if #{tmp 29392}#
(@apply
- (lambda (#{e 5580}#)
- (let ((#{exp 5584}#
- (#{strip 4456}# #{e 5580}# #{w 5573}#)))
+ (lambda (#{e 29395}#)
+ (let ((#{exp 29399}#
+ (#{strip 28284}# #{e 29395}# #{w 29388}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 5574}#
- #{exp 5584}#)))
- #{tmp 5577}#)
+ #{s 29389}#
+ #{exp 29399}#)))
+ #{tmp 29392}#)
(syntax-violation
'quote
"bad syntax"
- (let ((#{x 5598}#
+ (let ((#{x 29413}#
(begin
- (if (if (pair? #{e 5571}#) #{s 5574}# #f)
- (set-source-properties! #{e 5571}# #{s 5574}#))
- #{e 5571}#)))
- (if (if (null? (car #{w 5573}#))
- (null? (cdr #{w 5573}#))
+ (if (if (pair? #{e 29386}#) #{s 29389}# #f)
+ (set-source-properties! #{e 29386}# #{s 29389}#))
+ #{e 29386}#)))
+ (if (if (null? (car #{w 29388}#))
+ (null? (cdr #{w 29388}#))
#f)
- #{x 5598}#
- (if (if (vector? #{x 5598}#)
- (if (= (vector-length #{x 5598}#) 4)
- (eq? (vector-ref #{x 5598}# 0) 'syntax-object)
+ #{x 29413}#
+ (if (if (vector? #{x 29413}#)
+ (if (= (vector-length #{x 29413}#) 4)
+ (eq? (vector-ref #{x 29413}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 5630}# (vector-ref #{x 5598}# 1))
- (#{wrap 5631}#
- (let ((#{w2 5639}# (vector-ref #{x 5598}# 2)))
- (let ((#{m1 5640}# (car #{w 5573}#))
- (#{s1 5641}# (cdr #{w 5573}#)))
- (if (null? #{m1 5640}#)
- (if (null? #{s1 5641}#)
- #{w2 5639}#
- (cons (car #{w2 5639}#)
- (let ((#{m2 5656}#
- (cdr #{w2 5639}#)))
- (if (null? #{m2 5656}#)
- #{s1 5641}#
+ (let ((#{expression 29445}# (vector-ref #{x 29413}# 1))
+ (#{wrap 29446}#
+ (let ((#{w2 29454}# (vector-ref #{x 29413}# 2)))
+ (let ((#{m1 29455}# (car #{w 29388}#))
+ (#{s1 29456}# (cdr #{w 29388}#)))
+ (if (null? #{m1 29455}#)
+ (if (null? #{s1 29456}#)
+ #{w2 29454}#
+ (cons (car #{w2 29454}#)
+ (let ((#{m2 29471}#
+ (cdr #{w2 29454}#)))
+ (if (null? #{m2 29471}#)
+ #{s1 29456}#
(append
- #{s1 5641}#
- #{m2 5656}#)))))
- (cons (let ((#{m2 5664}#
- (car #{w2 5639}#)))
- (if (null? #{m2 5664}#)
- #{m1 5640}#
+ #{s1 29456}#
+ #{m2 29471}#)))))
+ (cons (let ((#{m2 29479}#
+ (car #{w2 29454}#)))
+ (if (null? #{m2 29479}#)
+ #{m1 29455}#
(append
- #{m1 5640}#
- #{m2 5664}#)))
- (let ((#{m2 5672}#
- (cdr #{w2 5639}#)))
- (if (null? #{m2 5672}#)
- #{s1 5641}#
+ #{m1 29455}#
+ #{m2 29479}#)))
+ (let ((#{m2 29487}#
+ (cdr #{w2 29454}#)))
+ (if (null? #{m2 29487}#)
+ #{s1 29456}#
(append
- #{s1 5641}#
- #{m2 5672}#))))))))
- (#{module 5632}# (vector-ref #{x 5598}# 3)))
+ #{s1 29456}#
+ #{m2 29487}#))))))))
+ (#{module 29447}# (vector-ref #{x 29413}# 3)))
(vector
'syntax-object
- #{expression 5630}#
- #{wrap 5631}#
- #{module 5632}#))
- (if (null? #{x 5598}#)
- #{x 5598}#
+ #{expression 29445}#
+ #{wrap 29446}#
+ #{module 29447}#))
+ (if (null? #{x 29413}#)
+ #{x 29413}#
(vector
'syntax-object
- #{x 5598}#
- #{w 5573}#
- #{mod 5575}#)))))))))))
- (#{global-extend 4408}#
+ #{x 29413}#
+ #{w 29388}#
+ #{mod 29390}#)))))))))))
+ (#{global-extend 28236}#
'core
'syntax
(letrec*
- ((#{gen-syntax 5896}#
- (lambda (#{src 6359}#
- #{e 6360}#
- #{r 6361}#
- #{maps 6362}#
- #{ellipsis? 6363}#
- #{mod 6364}#)
- (if (if (symbol? #{e 6360}#)
+ ((#{gen-syntax 29705}#
+ (lambda (#{src 30136}#
+ #{e 30137}#
+ #{r 30138}#
+ #{maps 30139}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#)
+ (if (if (symbol? #{e 30137}#)
#t
- (if (if (vector? #{e 6360}#)
- (if (= (vector-length #{e 6360}#) 4)
- (eq? (vector-ref #{e 6360}# 0) 'syntax-object)
+ (if (if (vector? #{e 30137}#)
+ (if (= (vector-length #{e 30137}#) 4)
+ (eq? (vector-ref #{e 30137}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 6360}# 1))
+ (symbol? (vector-ref #{e 30137}# 1))
#f))
(call-with-values
(lambda ()
- (#{resolve-identifier 4430}#
- #{e 6360}#
+ (#{resolve-identifier 28258}#
+ #{e 30137}#
'(())
- #{r 6361}#
- #{mod 6364}#
+ #{r 30138}#
+ #{mod 30141}#
#f))
- (lambda (#{type 6393}# #{value 6394}# #{mod 6395}#)
- (if (eqv? #{type 6393}# 'syntax)
+ (lambda (#{type 30170}# #{value 30171}# #{mod 30172}#)
+ (if (eqv? #{type 30170}# 'syntax)
(call-with-values
(lambda ()
- (#{gen-ref 5897}#
- #{src 6359}#
- (car #{value 6394}#)
- (cdr #{value 6394}#)
- #{maps 6362}#))
- (lambda (#{var 6401}# #{maps 6402}#)
- (values (list 'ref #{var 6401}#) #{maps 6402}#)))
- (if (#{ellipsis? 6363}# #{e 6360}#)
+ (#{gen-ref 29706}#
+ #{src 30136}#
+ (car #{value 30171}#)
+ (cdr #{value 30171}#)
+ #{maps 30139}#))
+ (lambda (#{var 30178}# #{maps 30179}#)
+ (values (list 'ref #{var 30178}#) #{maps 30179}#)))
+ (if (#{ellipsis? 30140}# #{e 30137}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 6359}#)
- (values (list 'quote #{e 6360}#) #{maps 6362}#)))))
- (let ((#{tmp 6404}#
- ($sc-dispatch #{e 6360}# '(any any))))
- (if (if #{tmp 6404}#
+ #{src 30136}#)
+ (values (list 'quote #{e 30137}#) #{maps 30139}#)))))
+ (let ((#{tmp 30181}#
+ ($sc-dispatch #{e 30137}# '(any any))))
+ (if (if #{tmp 30181}#
(@apply
- (lambda (#{dots 6408}# #{e 6409}#)
- (#{ellipsis? 6363}# #{dots 6408}#))
- #{tmp 6404}#)
+ (lambda (#{dots 30185}# #{e 30186}#)
+ (#{ellipsis? 30140}# #{dots 30185}#))
+ #{tmp 30181}#)
#f)
(@apply
- (lambda (#{dots 6410}# #{e 6411}#)
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{e 6411}#
- #{r 6361}#
- #{maps 6362}#
- (lambda (#{x 6412}#) #f)
- #{mod 6364}#))
- #{tmp 6404}#)
- (let ((#{tmp 6413}#
- ($sc-dispatch #{e 6360}# '(any any . any))))
- (if (if #{tmp 6413}#
+ (lambda (#{dots 30187}# #{e 30188}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{e 30188}#
+ #{r 30138}#
+ #{maps 30139}#
+ (lambda (#{x 30189}#) #f)
+ #{mod 30141}#))
+ #{tmp 30181}#)
+ (let ((#{tmp 30190}#
+ ($sc-dispatch #{e 30137}# '(any any . any))))
+ (if (if #{tmp 30190}#
(@apply
- (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
- (#{ellipsis? 6363}# #{dots 6418}#))
- #{tmp 6413}#)
+ (lambda (#{x 30194}# #{dots 30195}# #{y 30196}#)
+ (#{ellipsis? 30140}# #{dots 30195}#))
+ #{tmp 30190}#)
#f)
(@apply
- (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
+ (lambda (#{x 30197}# #{dots 30198}# #{y 30199}#)
(letrec*
- ((#{f 6423}#
- (lambda (#{y 6431}# #{k 6432}#)
- (let ((#{tmp 6434}#
+ ((#{f 30200}#
+ (lambda (#{y 30208}# #{k 30209}#)
+ (let ((#{tmp 30211}#
($sc-dispatch
- #{y 6431}#
+ #{y 30208}#
'(any . any))))
- (if (if #{tmp 6434}#
+ (if (if #{tmp 30211}#
(@apply
- (lambda (#{dots 6438}# #{y 6439}#)
- (#{ellipsis? 6363}#
- #{dots 6438}#))
- #{tmp 6434}#)
+ (lambda (#{dots 30215}#
+ #{y 30216}#)
+ (#{ellipsis? 30140}#
+ #{dots 30215}#))
+ #{tmp 30211}#)
#f)
(@apply
- (lambda (#{dots 6440}# #{y 6441}#)
- (#{f 6423}#
- #{y 6441}#
- (lambda (#{maps 6442}#)
+ (lambda (#{dots 30217}# #{y 30218}#)
+ (#{f 30200}#
+ #{y 30218}#
+ (lambda (#{maps 30219}#)
(call-with-values
(lambda ()
- (#{k 6432}#
- (cons '() #{maps 6442}#)))
- (lambda (#{x 6443}#
- #{maps 6444}#)
- (if (null? (car #{maps 6444}#))
+ (#{k 30209}#
+ (cons '() #{maps 30219}#)))
+ (lambda (#{x 30220}#
+ #{maps 30221}#)
+ (if (null? (car #{maps 30221}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6359}#)
+ #{src 30136}#)
(values
- (let ((#{map-env 6448}#
- (car #{maps 6444}#)))
+ (let ((#{map-env 30225}#
+ (car #{maps 30221}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 5899}#
- #{x 6443}#
- #{map-env 6448}#)))
- (cdr #{maps 6444}#))))))))
- #{tmp 6434}#)
+ (#{gen-map 29708}#
+ #{x 30220}#
+ #{map-env 30225}#)))
+ (cdr #{maps 30221}#))))))))
+ #{tmp 30211}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{y 6431}#
- #{r 6361}#
- #{maps 6362}#
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{y 6451}# #{maps 6452}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{y 30208}#
+ #{r 30138}#
+ #{maps 30139}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{y 30228}# #{maps 30229}#)
(call-with-values
(lambda ()
- (#{k 6432}# #{maps 6452}#))
- (lambda (#{x 6453}# #{maps 6454}#)
+ (#{k 30209}# #{maps 30229}#))
+ (lambda (#{x 30230}#
+ #{maps 30231}#)
(values
- (if (equal? #{y 6451}# ''())
- #{x 6453}#
+ (if (equal? #{y 30228}# ''())
+ #{x 30230}#
(list 'append
- #{x 6453}#
- #{y 6451}#))
- #{maps 6454}#))))))))))
- (#{f 6423}#
- #{y 6422}#
- (lambda (#{maps 6426}#)
+ #{x 30230}#
+ #{y 30228}#))
+ #{maps 30231}#))))))))))
+ (#{f 30200}#
+ #{y 30199}#
+ (lambda (#{maps 30203}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{x 6420}#
- #{r 6361}#
- (cons '() #{maps 6426}#)
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{x 6427}# #{maps 6428}#)
- (if (null? (car #{maps 6428}#))
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{x 30197}#
+ #{r 30138}#
+ (cons '() #{maps 30203}#)
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{x 30204}# #{maps 30205}#)
+ (if (null? (car #{maps 30205}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6359}#)
+ #{src 30136}#)
(values
- (#{gen-map 5899}#
- #{x 6427}#
- (car #{maps 6428}#))
- (cdr #{maps 6428}#)))))))))
- #{tmp 6413}#)
- (let ((#{tmp 6470}#
- ($sc-dispatch #{e 6360}# '(any . any))))
- (if #{tmp 6470}#
+ (#{gen-map 29708}#
+ #{x 30204}#
+ (car #{maps 30205}#))
+ (cdr #{maps 30205}#)))))))))
+ #{tmp 30190}#)
+ (let ((#{tmp 30247}#
+ ($sc-dispatch #{e 30137}# '(any . any))))
+ (if #{tmp 30247}#
(@apply
- (lambda (#{x 6474}# #{y 6475}#)
+ (lambda (#{x 30251}# #{y 30252}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{x 6474}#
- #{r 6361}#
- #{maps 6362}#
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{x 6476}# #{maps 6477}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{x 30251}#
+ #{r 30138}#
+ #{maps 30139}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{x 30253}# #{maps 30254}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{y 6475}#
- #{r 6361}#
- #{maps 6477}#
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{y 6478}# #{maps 6479}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{y 30252}#
+ #{r 30138}#
+ #{maps 30254}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{y 30255}# #{maps 30256}#)
(values
- (let ((#{atom-key 6484}#
- (car #{y 6478}#)))
- (if (eqv? #{atom-key 6484}# 'quote)
- (if (eq? (car #{x 6476}#) 'quote)
+ (let ((#{atom-key 30261}#
+ (car #{y 30255}#)))
+ (if (eqv? #{atom-key 30261}# 'quote)
+ (if (eq? (car #{x 30253}#) 'quote)
(list 'quote
- (cons (car (cdr #{x 6476}#))
- (car (cdr #{y 6478}#))))
- (if (eq? (car (cdr #{y 6478}#))
+ (cons (car (cdr #{x 30253}#))
+ (car (cdr #{y 30255}#))))
+ (if (eq? (car (cdr #{y 30255}#))
'())
- (list 'list #{x 6476}#)
+ (list 'list #{x 30253}#)
(list 'cons
- #{x 6476}#
- #{y 6478}#)))
- (if (eqv? #{atom-key 6484}# 'list)
+ #{x 30253}#
+ #{y 30255}#)))
+ (if (eqv? #{atom-key 30261}#
+ 'list)
(cons 'list
- (cons #{x 6476}#
- (cdr #{y 6478}#)))
+ (cons #{x 30253}#
+ (cdr #{y 30255}#)))
(list 'cons
- #{x 6476}#
- #{y 6478}#))))
- #{maps 6479}#))))))
- #{tmp 6470}#)
- (let ((#{tmp 6513}#
+ #{x 30253}#
+ #{y 30255}#))))
+ #{maps 30256}#))))))
+ #{tmp 30247}#)
+ (let ((#{tmp 30290}#
($sc-dispatch
- #{e 6360}#
+ #{e 30137}#
'#(vector (any . each-any)))))
- (if #{tmp 6513}#
+ (if #{tmp 30290}#
(@apply
- (lambda (#{e1 6517}# #{e2 6518}#)
+ (lambda (#{e1 30294}# #{e2 30295}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- (cons #{e1 6517}# #{e2 6518}#)
- #{r 6361}#
- #{maps 6362}#
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{e 6519}# #{maps 6520}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ (cons #{e1 30294}# #{e2 30295}#)
+ #{r 30138}#
+ #{maps 30139}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{e 30296}# #{maps 30297}#)
(values
- (if (eq? (car #{e 6519}#) 'list)
- (cons 'vector (cdr #{e 6519}#))
- (if (eq? (car #{e 6519}#) 'quote)
+ (if (eq? (car #{e 30296}#) 'list)
+ (cons 'vector (cdr #{e 30296}#))
+ (if (eq? (car #{e 30296}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 6519}#))))
- (list 'list->vector #{e 6519}#)))
- #{maps 6520}#))))
- #{tmp 6513}#)
+ (car (cdr #{e 30296}#))))
+ (list 'list->vector #{e 30296}#)))
+ #{maps 30297}#))))
+ #{tmp 30290}#)
(values
- (list 'quote #{e 6360}#)
- #{maps 6362}#))))))))))))
- (#{gen-ref 5897}#
- (lambda (#{src 6547}#
- #{var 6548}#
- #{level 6549}#
- #{maps 6550}#)
- (if (= #{level 6549}# 0)
- (values #{var 6548}# #{maps 6550}#)
- (if (null? #{maps 6550}#)
+ (list 'quote #{e 30137}#)
+ #{maps 30139}#))))))))))))
+ (#{gen-ref 29706}#
+ (lambda (#{src 30324}#
+ #{var 30325}#
+ #{level 30326}#
+ #{maps 30327}#)
+ (if (= #{level 30326}# 0)
+ (values #{var 30325}# #{maps 30327}#)
+ (if (null? #{maps 30327}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 6547}#)
+ #{src 30324}#)
(call-with-values
(lambda ()
- (#{gen-ref 5897}#
- #{src 6547}#
- #{var 6548}#
- (#{1-}# #{level 6549}#)
- (cdr #{maps 6550}#)))
- (lambda (#{outer-var 6551}# #{outer-maps 6552}#)
- (let ((#{b 6553}#
- (assq #{outer-var 6551}# (car #{maps 6550}#))))
- (if #{b 6553}#
- (values (cdr #{b 6553}#) #{maps 6550}#)
- (let ((#{inner-var 6555}#
+ (#{gen-ref 29706}#
+ #{src 30324}#
+ #{var 30325}#
+ (#{1-}# #{level 30326}#)
+ (cdr #{maps 30327}#)))
+ (lambda (#{outer-var 30328}# #{outer-maps 30329}#)
+ (let ((#{b 30330}#
+ (assq #{outer-var 30328}# (car #{maps 30327}#))))
+ (if #{b 30330}#
+ (values (cdr #{b 30330}#) #{maps 30327}#)
+ (let ((#{inner-var 30332}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{inner-var 6555}#
- (cons (cons (cons #{outer-var 6551}#
- #{inner-var 6555}#)
- (car #{maps 6550}#))
- #{outer-maps 6552}#)))))))))))
- (#{gen-map 5899}#
- (lambda (#{e 6569}# #{map-env 6570}#)
- (let ((#{formals 6571}# (map cdr #{map-env 6570}#))
- (#{actuals 6572}#
- (map (lambda (#{x 6574}#)
- (list 'ref (car #{x 6574}#)))
- #{map-env 6570}#)))
- (if (eq? (car #{e 6569}#) 'ref)
- (car #{actuals 6572}#)
+ #{inner-var 30332}#
+ (cons (cons (cons #{outer-var 30328}#
+ #{inner-var 30332}#)
+ (car #{maps 30327}#))
+ #{outer-maps 30329}#)))))))))))
+ (#{gen-map 29708}#
+ (lambda (#{e 30346}# #{map-env 30347}#)
+ (let ((#{formals 30348}# (map cdr #{map-env 30347}#))
+ (#{actuals 30349}#
+ (map (lambda (#{x 30351}#)
+ (list 'ref (car #{x 30351}#)))
+ #{map-env 30347}#)))
+ (if (eq? (car #{e 30346}#) 'ref)
+ (car #{actuals 30349}#)
(if (and-map
- (lambda (#{x 6575}#)
- (if (eq? (car #{x 6575}#) 'ref)
- (memq (car (cdr #{x 6575}#)) #{formals 6571}#)
+ (lambda (#{x 30352}#)
+ (if (eq? (car #{x 30352}#) 'ref)
+ (memq (car (cdr #{x 30352}#)) #{formals 30348}#)
#f))
- (cdr #{e 6569}#))
+ (cdr #{e 30346}#))
(cons 'map
- (cons (list 'primitive (car #{e 6569}#))
- (map (let ((#{r 6577}#
+ (cons (list 'primitive (car #{e 30346}#))
+ (map (let ((#{r 30354}#
(map cons
- #{formals 6571}#
- #{actuals 6572}#)))
- (lambda (#{x 6578}#)
- (cdr (assq (car (cdr #{x 6578}#))
- #{r 6577}#))))
- (cdr #{e 6569}#))))
+ #{formals 30348}#
+ #{actuals 30349}#)))
+ (lambda (#{x 30355}#)
+ (cdr (assq (car (cdr #{x 30355}#))
+ #{r 30354}#))))
+ (cdr #{e 30346}#))))
(cons 'map
- (cons (list 'lambda #{formals 6571}# #{e 6569}#)
- #{actuals 6572}#)))))))
- (#{regen 5903}#
- (lambda (#{x 6580}#)
- (let ((#{atom-key 6581}# (car #{x 6580}#)))
- (if (eqv? #{atom-key 6581}# 'ref)
- (let ((#{name 6591}# (car (cdr #{x 6580}#)))
- (#{var 6592}# (car (cdr #{x 6580}#))))
+ (cons (list 'lambda #{formals 30348}# #{e 30346}#)
+ #{actuals 30349}#)))))))
+ (#{regen 29712}#
+ (lambda (#{x 30357}#)
+ (let ((#{atom-key 30358}# (car #{x 30357}#)))
+ (if (eqv? #{atom-key 30358}# 'ref)
+ (let ((#{name 30368}# (car (cdr #{x 30357}#)))
+ (#{var 30369}# (car (cdr #{x 30357}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 6591}#
- #{var 6592}#))
- (if (eqv? #{atom-key 6581}# 'primitive)
- (let ((#{name 6603}# (car (cdr #{x 6580}#))))
+ #{name 30368}#
+ #{var 30369}#))
+ (if (eqv? #{atom-key 30358}# 'primitive)
+ (let ((#{name 30380}# (car (cdr #{x 30357}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
#f
- #{name 6603}#))
- (if (eqv? #{atom-key 6581}# 'quote)
- (let ((#{exp 6614}# (car (cdr #{x 6580}#))))
+ #{name 30380}#))
+ (if (eqv? #{atom-key 30358}# 'quote)
+ (let ((#{exp 30391}# (car (cdr #{x 30357}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 6614}#))
- (if (eqv? #{atom-key 6581}# 'lambda)
- (if (list? (car (cdr #{x 6580}#)))
- (let ((#{req 6625}# (car (cdr #{x 6580}#)))
- (#{vars 6627}# (car (cdr #{x 6580}#)))
- (#{exp 6629}#
- (#{regen 5903}#
- (car (cdr (cdr #{x 6580}#))))))
- (let ((#{body 6634}#
+ #{exp 30391}#))
+ (if (eqv? #{atom-key 30358}# 'lambda)
+ (if (list? (car (cdr #{x 30357}#)))
+ (let ((#{req 30402}# (car (cdr #{x 30357}#)))
+ (#{vars 30404}# (car (cdr #{x 30357}#)))
+ (#{exp 30406}#
+ (#{regen 29712}#
+ (car (cdr (cdr #{x 30357}#))))))
+ (let ((#{body 30411}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 6625}#
+ #{req 30402}#
#f
#f
#f
'()
- #{vars 6627}#
- #{exp 6629}#
+ #{vars 30404}#
+ #{exp 30406}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 6634}#)))
- (error "how did we get here" #{x 6580}#))
- (let ((#{name 6650}# (car #{x 6580}#))
- (#{args 6651}#
- (map #{regen 5903}# (cdr #{x 6580}#))))
+ #{body 30411}#)))
+ (error "how did we get here" #{x 30357}#))
+ (let ((#{name 30427}# (car #{x 30357}#))
+ (#{args 30428}#
+ (map #{regen 29712}# (cdr #{x 30357}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
- #{name 6650}#
- #{args 6651}#))))))))))
- (lambda (#{e 5904}#
- #{r 5905}#
- #{w 5906}#
- #{s 5907}#
- #{mod 5908}#)
- (let ((#{e 5909}#
- (let ((#{x 6270}#
+ #{name 30427}#
+ #{args 30428}#))))))))))
+ (lambda (#{e 29713}#
+ #{r 29714}#
+ #{w 29715}#
+ #{s 29716}#
+ #{mod 29717}#)
+ (let ((#{e 29718}#
+ (let ((#{x 30047}#
(begin
- (if (if (pair? #{e 5904}#) #{s 5907}# #f)
- (set-source-properties! #{e 5904}# #{s 5907}#))
- #{e 5904}#)))
- (if (if (null? (car #{w 5906}#))
- (null? (cdr #{w 5906}#))
+ (if (if (pair? #{e 29713}#) #{s 29716}# #f)
+ (set-source-properties! #{e 29713}# #{s 29716}#))
+ #{e 29713}#)))
+ (if (if (null? (car #{w 29715}#))
+ (null? (cdr #{w 29715}#))
#f)
- #{x 6270}#
- (if (if (vector? #{x 6270}#)
- (if (= (vector-length #{x 6270}#) 4)
- (eq? (vector-ref #{x 6270}# 0) 'syntax-object)
+ #{x 30047}#
+ (if (if (vector? #{x 30047}#)
+ (if (= (vector-length #{x 30047}#) 4)
+ (eq? (vector-ref #{x 30047}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 6302}# (vector-ref #{x 6270}# 1))
- (#{wrap 6303}#
- (let ((#{w2 6311}# (vector-ref #{x 6270}# 2)))
- (let ((#{m1 6312}# (car #{w 5906}#))
- (#{s1 6313}# (cdr #{w 5906}#)))
- (if (null? #{m1 6312}#)
- (if (null? #{s1 6313}#)
- #{w2 6311}#
- (cons (car #{w2 6311}#)
- (let ((#{m2 6328}#
- (cdr #{w2 6311}#)))
- (if (null? #{m2 6328}#)
- #{s1 6313}#
+ (let ((#{expression 30079}# (vector-ref #{x 30047}# 1))
+ (#{wrap 30080}#
+ (let ((#{w2 30088}#
+ (vector-ref #{x 30047}# 2)))
+ (let ((#{m1 30089}# (car #{w 29715}#))
+ (#{s1 30090}# (cdr #{w 29715}#)))
+ (if (null? #{m1 30089}#)
+ (if (null? #{s1 30090}#)
+ #{w2 30088}#
+ (cons (car #{w2 30088}#)
+ (let ((#{m2 30105}#
+ (cdr #{w2 30088}#)))
+ (if (null? #{m2 30105}#)
+ #{s1 30090}#
(append
- #{s1 6313}#
- #{m2 6328}#)))))
- (cons (let ((#{m2 6336}#
- (car #{w2 6311}#)))
- (if (null? #{m2 6336}#)
- #{m1 6312}#
+ #{s1 30090}#
+ #{m2 30105}#)))))
+ (cons (let ((#{m2 30113}#
+ (car #{w2 30088}#)))
+ (if (null? #{m2 30113}#)
+ #{m1 30089}#
(append
- #{m1 6312}#
- #{m2 6336}#)))
- (let ((#{m2 6344}#
- (cdr #{w2 6311}#)))
- (if (null? #{m2 6344}#)
- #{s1 6313}#
+ #{m1 30089}#
+ #{m2 30113}#)))
+ (let ((#{m2 30121}#
+ (cdr #{w2 30088}#)))
+ (if (null? #{m2 30121}#)
+ #{s1 30090}#
(append
- #{s1 6313}#
- #{m2 6344}#))))))))
- (#{module 6304}# (vector-ref #{x 6270}# 3)))
+ #{s1 30090}#
+ #{m2 30121}#))))))))
+ (#{module 30081}# (vector-ref #{x 30047}# 3)))
(vector
'syntax-object
- #{expression 6302}#
- #{wrap 6303}#
- #{module 6304}#))
- (if (null? #{x 6270}#)
- #{x 6270}#
+ #{expression 30079}#
+ #{wrap 30080}#
+ #{module 30081}#))
+ (if (null? #{x 30047}#)
+ #{x 30047}#
(vector
'syntax-object
- #{x 6270}#
- #{w 5906}#
- #{mod 5908}#)))))))
- (let ((#{tmp 5910}# #{e 5909}#))
- (let ((#{tmp 5911}#
- ($sc-dispatch #{tmp 5910}# '(_ any))))
- (if #{tmp 5911}#
+ #{x 30047}#
+ #{w 29715}#
+ #{mod 29717}#)))))))
+ (let ((#{tmp 29719}# #{e 29718}#))
+ (let ((#{tmp 29720}#
+ ($sc-dispatch #{tmp 29719}# '(_ any))))
+ (if #{tmp 29720}#
(@apply
- (lambda (#{x 5963}#)
+ (lambda (#{x 29768}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{e 5909}#
- #{x 5963}#
- #{r 5905}#
+ (#{gen-syntax 29705}#
+ #{e 29718}#
+ #{x 29768}#
+ #{r 29714}#
'()
- #{ellipsis? 4451}#
- #{mod 5908}#))
- (lambda (#{e 6046}# #{maps 6047}#)
- (#{regen 5903}# #{e 6046}#))))
- #{tmp 5911}#)
+ #{ellipsis? 28279}#
+ #{mod 29717}#))
+ (lambda (#{e 29845}# #{maps 29846}#)
+ (#{regen 29712}# #{e 29845}#))))
+ #{tmp 29720}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 5909}#))))))))
- (#{global-extend 4408}#
+ #{e 29718}#))))))))
+ (#{global-extend 28236}#
'core
'lambda
- (lambda (#{e 6887}#
- #{r 6888}#
- #{w 6889}#
- #{s 6890}#
- #{mod 6891}#)
- (let ((#{tmp 6893}#
- ($sc-dispatch #{e 6887}# '(_ any any . each-any))))
- (if #{tmp 6893}#
+ (lambda (#{e 30659}#
+ #{r 30660}#
+ #{w 30661}#
+ #{s 30662}#
+ #{mod 30663}#)
+ (let ((#{tmp 30665}#
+ ($sc-dispatch
+ #{e 30659}#
+ '(_ any any . each-any))))
+ (if #{tmp 30665}#
(@apply
- (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#)
+ (lambda (#{args 30669}# #{e1 30670}# #{e2 30671}#)
(call-with-values
(lambda ()
- (#{lambda-formals 4452}# #{args 6897}#))
- (lambda (#{req 6902}#
- #{opt 6903}#
- #{rest 6904}#
- #{kw 6905}#)
+ (#{lambda-formals 28280}# #{args 30669}#))
+ (lambda (#{req 30674}#
+ #{opt 30675}#
+ #{rest 30676}#
+ #{kw 30677}#)
(letrec*
- ((#{lp 6906}#
- (lambda (#{body 6909}# #{meta 6910}#)
- (let ((#{tmp 6912}#
+ ((#{lp 30678}#
+ (lambda (#{body 30681}# #{meta 30682}#)
+ (let ((#{tmp 30684}#
($sc-dispatch
- #{body 6909}#
+ #{body 30681}#
'(any any . each-any))))
- (if (if #{tmp 6912}#
+ (if (if #{tmp 30684}#
(@apply
- (lambda (#{docstring 6916}#
- #{e1 6917}#
- #{e2 6918}#)
+ (lambda (#{docstring 30688}#
+ #{e1 30689}#
+ #{e2 30690}#)
(string?
- (syntax->datum #{docstring 6916}#)))
- #{tmp 6912}#)
+ (syntax->datum #{docstring 30688}#)))
+ #{tmp 30684}#)
#f)
(@apply
- (lambda (#{docstring 6919}#
- #{e1 6920}#
- #{e2 6921}#)
- (#{lp 6906}#
- (cons #{e1 6920}# #{e2 6921}#)
+ (lambda (#{docstring 30691}#
+ #{e1 30692}#
+ #{e2 30693}#)
+ (#{lp 30678}#
+ (cons #{e1 30692}# #{e2 30693}#)
(append
- #{meta 6910}#
+ #{meta 30682}#
(list (cons 'documentation
(syntax->datum
- #{docstring 6919}#))))))
- #{tmp 6912}#)
- (let ((#{tmp 6922}#
+ #{docstring 30691}#))))))
+ #{tmp 30684}#)
+ (let ((#{tmp 30694}#
($sc-dispatch
- #{body 6909}#
+ #{body 30681}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 6922}#
+ (if #{tmp 30694}#
(@apply
- (lambda (#{k 6926}#
- #{v 6927}#
- #{e1 6928}#
- #{e2 6929}#)
- (#{lp 6906}#
- (cons #{e1 6928}# #{e2 6929}#)
+ (lambda (#{k 30698}#
+ #{v 30699}#
+ #{e1 30700}#
+ #{e2 30701}#)
+ (#{lp 30678}#
+ (cons #{e1 30700}# #{e2 30701}#)
(append
- #{meta 6910}#
+ #{meta 30682}#
(syntax->datum
(map cons
- #{k 6926}#
- #{v 6927}#)))))
- #{tmp 6922}#)
- (#{expand-simple-lambda 4453}#
- #{e 6887}#
- #{r 6888}#
- #{w 6889}#
- #{s 6890}#
- #{mod 6891}#
- #{req 6902}#
- #{rest 6904}#
- #{meta 6910}#
- #{body 6909}#))))))))
- (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '())))))
- #{tmp 6893}#)
+ #{k 30698}#
+ #{v 30699}#)))))
+ #{tmp 30694}#)
+ (#{expand-simple-lambda 28281}#
+ #{e 30659}#
+ #{r 30660}#
+ #{w 30661}#
+ #{s 30662}#
+ #{mod 30663}#
+ #{req 30674}#
+ #{rest 30676}#
+ #{meta 30682}#
+ #{body 30681}#))))))))
+ (#{lp 30678}#
+ (cons #{e1 30670}# #{e2 30671}#)
+ '())))))
+ #{tmp 30665}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 6887}#)))))
- (#{global-extend 4408}#
+ #{e 30659}#)))))
+ (#{global-extend 28236}#
'core
'lambda*
- (lambda (#{e 7313}#
- #{r 7314}#
- #{w 7315}#
- #{s 7316}#
- #{mod 7317}#)
- (let ((#{tmp 7319}#
- ($sc-dispatch #{e 7313}# '(_ any any . each-any))))
- (if #{tmp 7319}#
+ (lambda (#{e 31081}#
+ #{r 31082}#
+ #{w 31083}#
+ #{s 31084}#
+ #{mod 31085}#)
+ (let ((#{tmp 31087}#
+ ($sc-dispatch
+ #{e 31081}#
+ '(_ any any . each-any))))
+ (if #{tmp 31087}#
(@apply
- (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#)
+ (lambda (#{args 31091}# #{e1 31092}# #{e2 31093}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4455}#
- #{e 7313}#
- #{r 7314}#
- #{w 7315}#
- #{s 7316}#
- #{mod 7317}#
- #{lambda*-formals 4454}#
- (list (cons #{args 7323}#
- (cons #{e1 7324}# #{e2 7325}#)))))
- (lambda (#{meta 7328}# #{lcase 7329}#)
+ (#{expand-lambda-case 28283}#
+ #{e 31081}#
+ #{r 31082}#
+ #{w 31083}#
+ #{s 31084}#
+ #{mod 31085}#
+ #{lambda*-formals 28282}#
+ (list (cons #{args 31091}#
+ (cons #{e1 31092}# #{e2 31093}#)))))
+ (lambda (#{meta 31096}# #{lcase 31097}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7316}#
- #{meta 7328}#
- #{lcase 7329}#))))
- #{tmp 7319}#)
+ #{s 31084}#
+ #{meta 31096}#
+ #{lcase 31097}#))))
+ #{tmp 31087}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 7313}#)))))
- (#{global-extend 4408}#
+ #{e 31081}#)))))
+ (#{global-extend 28236}#
'core
'case-lambda
- (lambda (#{e 7492}#
- #{r 7493}#
- #{w 7494}#
- #{s 7495}#
- #{mod 7496}#)
- (let ((#{tmp 7498}#
+ (lambda (#{e 31260}#
+ #{r 31261}#
+ #{w 31262}#
+ #{s 31263}#
+ #{mod 31264}#)
+ (let ((#{tmp 31266}#
($sc-dispatch
- #{e 7492}#
+ #{e 31260}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7498}#
+ (if #{tmp 31266}#
(@apply
- (lambda (#{args 7502}#
- #{e1 7503}#
- #{e2 7504}#
- #{args* 7505}#
- #{e1* 7506}#
- #{e2* 7507}#)
+ (lambda (#{args 31270}#
+ #{e1 31271}#
+ #{e2 31272}#
+ #{args* 31273}#
+ #{e1* 31274}#
+ #{e2* 31275}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4455}#
- #{e 7492}#
- #{r 7493}#
- #{w 7494}#
- #{s 7495}#
- #{mod 7496}#
- #{lambda-formals 4452}#
- (cons (cons #{args 7502}#
- (cons #{e1 7503}# #{e2 7504}#))
- (map (lambda (#{tmp 3382 7510}#
- #{tmp 3381 7511}#
- #{tmp 3380 7512}#)
- (cons #{tmp 3380 7512}#
- (cons #{tmp 3381 7511}#
- #{tmp 3382 7510}#)))
- #{e2* 7507}#
- #{e1* 7506}#
- #{args* 7505}#))))
- (lambda (#{meta 7513}# #{lcase 7514}#)
+ (#{expand-lambda-case 28283}#
+ #{e 31260}#
+ #{r 31261}#
+ #{w 31262}#
+ #{s 31263}#
+ #{mod 31264}#
+ #{lambda-formals 28280}#
+ (cons (cons #{args 31270}#
+ (cons #{e1 31271}# #{e2 31272}#))
+ (map (lambda (#{tmp 27210 31278}#
+ #{tmp 27209 31279}#
+ #{tmp 27208 31280}#)
+ (cons #{tmp 27208 31280}#
+ (cons #{tmp 27209 31279}#
+ #{tmp 27210 31278}#)))
+ #{e2* 31275}#
+ #{e1* 31274}#
+ #{args* 31273}#))))
+ (lambda (#{meta 31281}# #{lcase 31282}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7495}#
- #{meta 7513}#
- #{lcase 7514}#))))
- #{tmp 7498}#)
+ #{s 31263}#
+ #{meta 31281}#
+ #{lcase 31282}#))))
+ #{tmp 31266}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 7492}#)))))
- (#{global-extend 4408}#
+ #{e 31260}#)))))
+ (#{global-extend 28236}#
'core
'case-lambda*
- (lambda (#{e 7683}#
- #{r 7684}#
- #{w 7685}#
- #{s 7686}#
- #{mod 7687}#)
- (let ((#{tmp 7689}#
+ (lambda (#{e 31451}#
+ #{r 31452}#
+ #{w 31453}#
+ #{s 31454}#
+ #{mod 31455}#)
+ (let ((#{tmp 31457}#
($sc-dispatch
- #{e 7683}#
+ #{e 31451}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7689}#
+ (if #{tmp 31457}#
(@apply
- (lambda (#{args 7693}#
- #{e1 7694}#
- #{e2 7695}#
- #{args* 7696}#
- #{e1* 7697}#
- #{e2* 7698}#)
+ (lambda (#{args 31461}#
+ #{e1 31462}#
+ #{e2 31463}#
+ #{args* 31464}#
+ #{e1* 31465}#
+ #{e2* 31466}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4455}#
- #{e 7683}#
- #{r 7684}#
- #{w 7685}#
- #{s 7686}#
- #{mod 7687}#
- #{lambda*-formals 4454}#
- (cons (cons #{args 7693}#
- (cons #{e1 7694}# #{e2 7695}#))
- (map (lambda (#{tmp 3417 7701}#
- #{tmp 3416 7702}#
- #{tmp 3415 7703}#)
- (cons #{tmp 3415 7703}#
- (cons #{tmp 3416 7702}#
- #{tmp 3417 7701}#)))
- #{e2* 7698}#
- #{e1* 7697}#
- #{args* 7696}#))))
- (lambda (#{meta 7704}# #{lcase 7705}#)
+ (#{expand-lambda-case 28283}#
+ #{e 31451}#
+ #{r 31452}#
+ #{w 31453}#
+ #{s 31454}#
+ #{mod 31455}#
+ #{lambda*-formals 28282}#
+ (cons (cons #{args 31461}#
+ (cons #{e1 31462}# #{e2 31463}#))
+ (map (lambda (#{tmp 27245 31469}#
+ #{tmp 27244 31470}#
+ #{tmp 27243 31471}#)
+ (cons #{tmp 27243 31471}#
+ (cons #{tmp 27244 31470}#
+ #{tmp 27245 31469}#)))
+ #{e2* 31466}#
+ #{e1* 31465}#
+ #{args* 31464}#))))
+ (lambda (#{meta 31472}# #{lcase 31473}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7686}#
- #{meta 7704}#
- #{lcase 7705}#))))
- #{tmp 7689}#)
+ #{s 31454}#
+ #{meta 31472}#
+ #{lcase 31473}#))))
+ #{tmp 31457}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 7683}#)))))
- (#{global-extend 4408}#
+ #{e 31451}#)))))
+ (#{global-extend 28236}#
'core
'let
(letrec*
- ((#{expand-let 7914}#
- (lambda (#{e 8124}#
- #{r 8125}#
- #{w 8126}#
- #{s 8127}#
- #{mod 8128}#
- #{constructor 8129}#
- #{ids 8130}#
- #{vals 8131}#
- #{exps 8132}#)
- (if (not (#{valid-bound-ids? 4433}# #{ids 8130}#))
+ ((#{expand-let 31681}#
+ (lambda (#{e 31891}#
+ #{r 31892}#
+ #{w 31893}#
+ #{s 31894}#
+ #{mod 31895}#
+ #{constructor 31896}#
+ #{ids 31897}#
+ #{vals 31898}#
+ #{exps 31899}#)
+ (if (not (#{valid-bound-ids? 28261}# #{ids 31897}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 8124}#)
- (let ((#{labels 8217}#
- (#{gen-labels 4413}# #{ids 8130}#))
- (#{new-vars 8218}#
- (map #{gen-var 4457}# #{ids 8130}#)))
- (let ((#{nw 8219}#
- (#{make-binding-wrap 4424}#
- #{ids 8130}#
- #{labels 8217}#
- #{w 8126}#))
- (#{nr 8220}#
- (#{extend-var-env 4406}#
- #{labels 8217}#
- #{new-vars 8218}#
- #{r 8125}#)))
- (#{constructor 8129}#
- #{s 8127}#
- (map syntax->datum #{ids 8130}#)
- #{new-vars 8218}#
- (map (lambda (#{x 8237}#)
- (#{expand 4443}#
- #{x 8237}#
- #{r 8125}#
- #{w 8126}#
- #{mod 8128}#))
- #{vals 8131}#)
- (#{expand-body 4447}#
- #{exps 8132}#
- (#{source-wrap 4437}#
- #{e 8124}#
- #{nw 8219}#
- #{s 8127}#
- #{mod 8128}#)
- #{nr 8220}#
- #{nw 8219}#
- #{mod 8128}#))))))))
- (lambda (#{e 7915}#
- #{r 7916}#
- #{w 7917}#
- #{s 7918}#
- #{mod 7919}#)
- (let ((#{tmp 7921}#
+ #{e 31891}#)
+ (let ((#{labels 31984}#
+ (#{gen-labels 28241}# #{ids 31897}#))
+ (#{new-vars 31985}#
+ (map #{gen-var 28285}# #{ids 31897}#)))
+ (let ((#{nw 31986}#
+ (#{make-binding-wrap 28252}#
+ #{ids 31897}#
+ #{labels 31984}#
+ #{w 31893}#))
+ (#{nr 31987}#
+ (#{extend-var-env 28234}#
+ #{labels 31984}#
+ #{new-vars 31985}#
+ #{r 31892}#)))
+ (#{constructor 31896}#
+ #{s 31894}#
+ (map syntax->datum #{ids 31897}#)
+ #{new-vars 31985}#
+ (map (lambda (#{x 32004}#)
+ (#{expand 28271}#
+ #{x 32004}#
+ #{r 31892}#
+ #{w 31893}#
+ #{mod 31895}#))
+ #{vals 31898}#)
+ (#{expand-body 28275}#
+ #{exps 31899}#
+ (#{source-wrap 28265}#
+ #{e 31891}#
+ #{nw 31986}#
+ #{s 31894}#
+ #{mod 31895}#)
+ #{nr 31987}#
+ #{nw 31986}#
+ #{mod 31895}#))))))))
+ (lambda (#{e 31682}#
+ #{r 31683}#
+ #{w 31684}#
+ #{s 31685}#
+ #{mod 31686}#)
+ (let ((#{tmp 31688}#
($sc-dispatch
- #{e 7915}#
+ #{e 31682}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7921}#
+ (if (if #{tmp 31688}#
(@apply
- (lambda (#{id 7925}#
- #{val 7926}#
- #{e1 7927}#
- #{e2 7928}#)
- (and-map #{id? 4410}# #{id 7925}#))
- #{tmp 7921}#)
+ (lambda (#{id 31692}#
+ #{val 31693}#
+ #{e1 31694}#
+ #{e2 31695}#)
+ (and-map #{id? 28238}# #{id 31692}#))
+ #{tmp 31688}#)
#f)
(@apply
- (lambda (#{id 7944}#
- #{val 7945}#
- #{e1 7946}#
- #{e2 7947}#)
- (#{expand-let 7914}#
- #{e 7915}#
- #{r 7916}#
- #{w 7917}#
- #{s 7918}#
- #{mod 7919}#
- (lambda (#{src 7951}#
- #{ids 7952}#
- #{vars 7953}#
- #{val-exps 7954}#
- #{body-exp 7955}#)
+ (lambda (#{id 31711}#
+ #{val 31712}#
+ #{e1 31713}#
+ #{e2 31714}#)
+ (#{expand-let 31681}#
+ #{e 31682}#
+ #{r 31683}#
+ #{w 31684}#
+ #{s 31685}#
+ #{mod 31686}#
+ (lambda (#{src 31718}#
+ #{ids 31719}#
+ #{vars 31720}#
+ #{val-exps 31721}#
+ #{body-exp 31722}#)
(begin
(for-each
- #{maybe-name-value! 4375}#
- #{ids 7952}#
- #{val-exps 7954}#)
- (if (null? #{vars 7953}#)
- #{body-exp 7955}#
+ #{maybe-name-value! 28203}#
+ #{ids 31719}#
+ #{val-exps 31721}#)
+ (if (null? #{vars 31720}#)
+ #{body-exp 31722}#
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 7951}#
- #{ids 7952}#
- #{vars 7953}#
- #{val-exps 7954}#
- #{body-exp 7955}#))))
- #{id 7944}#
- #{val 7945}#
- (cons #{e1 7946}# #{e2 7947}#)))
- #{tmp 7921}#)
- (let ((#{tmp 7962}#
+ #{src 31718}#
+ #{ids 31719}#
+ #{vars 31720}#
+ #{val-exps 31721}#
+ #{body-exp 31722}#))))
+ #{id 31711}#
+ #{val 31712}#
+ (cons #{e1 31713}# #{e2 31714}#)))
+ #{tmp 31688}#)
+ (let ((#{tmp 31729}#
($sc-dispatch
- #{e 7915}#
+ #{e 31682}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7962}#
+ (if (if #{tmp 31729}#
(@apply
- (lambda (#{f 7966}#
- #{id 7967}#
- #{val 7968}#
- #{e1 7969}#
- #{e2 7970}#)
- (if (if (symbol? #{f 7966}#)
+ (lambda (#{f 31733}#
+ #{id 31734}#
+ #{val 31735}#
+ #{e1 31736}#
+ #{e2 31737}#)
+ (if (if (symbol? #{f 31733}#)
#t
- (if (if (vector? #{f 7966}#)
- (if (= (vector-length #{f 7966}#) 4)
- (eq? (vector-ref #{f 7966}# 0)
+ (if (if (vector? #{f 31733}#)
+ (if (= (vector-length #{f 31733}#) 4)
+ (eq? (vector-ref #{f 31733}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 7966}# 1))
+ (symbol? (vector-ref #{f 31733}# 1))
#f))
- (and-map #{id? 4410}# #{id 7967}#)
+ (and-map #{id? 28238}# #{id 31734}#)
#f))
- #{tmp 7962}#)
+ #{tmp 31729}#)
#f)
(@apply
- (lambda (#{f 8012}#
- #{id 8013}#
- #{val 8014}#
- #{e1 8015}#
- #{e2 8016}#)
- (#{expand-let 7914}#
- #{e 7915}#
- #{r 7916}#
- #{w 7917}#
- #{s 7918}#
- #{mod 7919}#
- #{build-named-let 4394}#
- (cons #{f 8012}# #{id 8013}#)
- #{val 8014}#
- (cons #{e1 8015}# #{e2 8016}#)))
- #{tmp 7962}#)
+ (lambda (#{f 31779}#
+ #{id 31780}#
+ #{val 31781}#
+ #{e1 31782}#
+ #{e2 31783}#)
+ (#{expand-let 31681}#
+ #{e 31682}#
+ #{r 31683}#
+ #{w 31684}#
+ #{s 31685}#
+ #{mod 31686}#
+ #{build-named-let 28222}#
+ (cons #{f 31779}# #{id 31780}#)
+ #{val 31781}#
+ (cons #{e1 31782}# #{e2 31783}#)))
+ #{tmp 31729}#)
(syntax-violation
'let
"bad let"
- (let ((#{x 8029}#
+ (let ((#{x 31796}#
(begin
- (if (if (pair? #{e 7915}#) #{s 7918}# #f)
- (set-source-properties! #{e 7915}# #{s 7918}#))
- #{e 7915}#)))
- (if (if (null? (car #{w 7917}#))
- (null? (cdr #{w 7917}#))
+ (if (if (pair? #{e 31682}#) #{s 31685}# #f)
+ (set-source-properties!
+ #{e 31682}#
+ #{s 31685}#))
+ #{e 31682}#)))
+ (if (if (null? (car #{w 31684}#))
+ (null? (cdr #{w 31684}#))
#f)
- #{x 8029}#
- (if (if (vector? #{x 8029}#)
- (if (= (vector-length #{x 8029}#) 4)
- (eq? (vector-ref #{x 8029}# 0) 'syntax-object)
+ #{x 31796}#
+ (if (if (vector? #{x 31796}#)
+ (if (= (vector-length #{x 31796}#) 4)
+ (eq? (vector-ref #{x 31796}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 8061}# (vector-ref #{x 8029}# 1))
- (#{wrap 8062}#
- (let ((#{w2 8070}#
- (vector-ref #{x 8029}# 2)))
- (let ((#{m1 8071}# (car #{w 7917}#))
- (#{s1 8072}# (cdr #{w 7917}#)))
- (if (null? #{m1 8071}#)
- (if (null? #{s1 8072}#)
- #{w2 8070}#
- (cons (car #{w2 8070}#)
- (let ((#{m2 8087}#
- (cdr #{w2 8070}#)))
- (if (null? #{m2 8087}#)
- #{s1 8072}#
+ (let ((#{expression 31828}#
+ (vector-ref #{x 31796}# 1))
+ (#{wrap 31829}#
+ (let ((#{w2 31837}#
+ (vector-ref #{x 31796}# 2)))
+ (let ((#{m1 31838}# (car #{w 31684}#))
+ (#{s1 31839}# (cdr #{w 31684}#)))
+ (if (null? #{m1 31838}#)
+ (if (null? #{s1 31839}#)
+ #{w2 31837}#
+ (cons (car #{w2 31837}#)
+ (let ((#{m2 31854}#
+ (cdr #{w2 31837}#)))
+ (if (null? #{m2 31854}#)
+ #{s1 31839}#
(append
- #{s1 8072}#
- #{m2 8087}#)))))
- (cons (let ((#{m2 8095}#
- (car #{w2 8070}#)))
- (if (null? #{m2 8095}#)
- #{m1 8071}#
+ #{s1 31839}#
+ #{m2 31854}#)))))
+ (cons (let ((#{m2 31862}#
+ (car #{w2 31837}#)))
+ (if (null? #{m2 31862}#)
+ #{m1 31838}#
(append
- #{m1 8071}#
- #{m2 8095}#)))
- (let ((#{m2 8103}#
- (cdr #{w2 8070}#)))
- (if (null? #{m2 8103}#)
- #{s1 8072}#
+ #{m1 31838}#
+ #{m2 31862}#)))
+ (let ((#{m2 31870}#
+ (cdr #{w2 31837}#)))
+ (if (null? #{m2 31870}#)
+ #{s1 31839}#
(append
- #{s1 8072}#
- #{m2 8103}#))))))))
- (#{module 8063}# (vector-ref #{x 8029}# 3)))
+ #{s1 31839}#
+ #{m2 31870}#))))))))
+ (#{module 31830}# (vector-ref #{x 31796}# 3)))
(vector
'syntax-object
- #{expression 8061}#
- #{wrap 8062}#
- #{module 8063}#))
- (if (null? #{x 8029}#)
- #{x 8029}#
+ #{expression 31828}#
+ #{wrap 31829}#
+ #{module 31830}#))
+ (if (null? #{x 31796}#)
+ #{x 31796}#
(vector
'syntax-object
- #{x 8029}#
- #{w 7917}#
- #{mod 7919}#)))))))))))))
- (#{global-extend 4408}#
+ #{x 31796}#
+ #{w 31684}#
+ #{mod 31686}#)))))))))))))
+ (#{global-extend 28236}#
'core
'letrec
- (lambda (#{e 8714}#
- #{r 8715}#
- #{w 8716}#
- #{s 8717}#
- #{mod 8718}#)
- (let ((#{tmp 8720}#
+ (lambda (#{e 32475}#
+ #{r 32476}#
+ #{w 32477}#
+ #{s 32478}#
+ #{mod 32479}#)
+ (let ((#{tmp 32481}#
($sc-dispatch
- #{e 8714}#
+ #{e 32475}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8720}#
+ (if (if #{tmp 32481}#
(@apply
- (lambda (#{id 8724}#
- #{val 8725}#
- #{e1 8726}#
- #{e2 8727}#)
- (and-map #{id? 4410}# #{id 8724}#))
- #{tmp 8720}#)
+ (lambda (#{id 32485}#
+ #{val 32486}#
+ #{e1 32487}#
+ #{e2 32488}#)
+ (and-map #{id? 28238}# #{id 32485}#))
+ #{tmp 32481}#)
#f)
(@apply
- (lambda (#{id 8743}#
- #{val 8744}#
- #{e1 8745}#
- #{e2 8746}#)
- (if (not (#{valid-bound-ids? 4433}# #{id 8743}#))
+ (lambda (#{id 32504}#
+ #{val 32505}#
+ #{e1 32506}#
+ #{e2 32507}#)
+ (if (not (#{valid-bound-ids? 28261}# #{id 32504}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 8714}#)
- (let ((#{labels 8843}#
- (#{gen-labels 4413}# #{id 8743}#))
- (#{new-vars 8844}#
- (map #{gen-var 4457}# #{id 8743}#)))
- (let ((#{w 8845}#
- (#{make-binding-wrap 4424}#
- #{id 8743}#
- #{labels 8843}#
- #{w 8716}#))
- (#{r 8846}#
- (#{extend-var-env 4406}#
- #{labels 8843}#
- #{new-vars 8844}#
- #{r 8715}#)))
- (#{build-letrec 4395}#
- #{s 8717}#
+ #{e 32475}#)
+ (let ((#{labels 32604}#
+ (#{gen-labels 28241}# #{id 32504}#))
+ (#{new-vars 32605}#
+ (map #{gen-var 28285}# #{id 32504}#)))
+ (let ((#{w 32606}#
+ (#{make-binding-wrap 28252}#
+ #{id 32504}#
+ #{labels 32604}#
+ #{w 32477}#))
+ (#{r 32607}#
+ (#{extend-var-env 28234}#
+ #{labels 32604}#
+ #{new-vars 32605}#
+ #{r 32476}#)))
+ (#{build-letrec 28223}#
+ #{s 32478}#
#f
- (map syntax->datum #{id 8743}#)
- #{new-vars 8844}#
- (map (lambda (#{x 8925}#)
- (#{expand 4443}#
- #{x 8925}#
- #{r 8846}#
- #{w 8845}#
- #{mod 8718}#))
- #{val 8744}#)
- (#{expand-body 4447}#
- (cons #{e1 8745}# #{e2 8746}#)
- (let ((#{x 8987}#
+ (map syntax->datum #{id 32504}#)
+ #{new-vars 32605}#
+ (map (lambda (#{x 32686}#)
+ (#{expand 28271}#
+ #{x 32686}#
+ #{r 32607}#
+ #{w 32606}#
+ #{mod 32479}#))
+ #{val 32505}#)
+ (#{expand-body 28275}#
+ (cons #{e1 32506}# #{e2 32507}#)
+ (let ((#{x 32748}#
(begin
- (if (if (pair? #{e 8714}#) #{s 8717}# #f)
+ (if (if (pair? #{e 32475}#) #{s 32478}# #f)
(set-source-properties!
- #{e 8714}#
- #{s 8717}#))
- #{e 8714}#)))
- (if (if (null? (car #{w 8845}#))
- (null? (cdr #{w 8845}#))
+ #{e 32475}#
+ #{s 32478}#))
+ #{e 32475}#)))
+ (if (if (null? (car #{w 32606}#))
+ (null? (cdr #{w 32606}#))
#f)
- #{x 8987}#
- (if (if (vector? #{x 8987}#)
- (if (= (vector-length #{x 8987}#) 4)
- (eq? (vector-ref #{x 8987}# 0)
+ #{x 32748}#
+ (if (if (vector? #{x 32748}#)
+ (if (= (vector-length #{x 32748}#) 4)
+ (eq? (vector-ref #{x 32748}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 9019}#
- (vector-ref #{x 8987}# 1))
- (#{wrap 9020}#
- (let ((#{w2 9028}#
- (vector-ref #{x 8987}# 2)))
- (let ((#{m1 9029}# (car #{w 8845}#))
- (#{s1 9030}# (cdr #{w 8845}#)))
- (if (null? #{m1 9029}#)
- (if (null? #{s1 9030}#)
- #{w2 9028}#
- (cons (car #{w2 9028}#)
- (let ((#{m2 9045}#
- (cdr #{w2 9028}#)))
- (if (null? #{m2 9045}#)
- #{s1 9030}#
+ (let ((#{expression 32780}#
+ (vector-ref #{x 32748}# 1))
+ (#{wrap 32781}#
+ (let ((#{w2 32789}#
+ (vector-ref #{x 32748}# 2)))
+ (let ((#{m1 32790}#
+ (car #{w 32606}#))
+ (#{s1 32791}#
+ (cdr #{w 32606}#)))
+ (if (null? #{m1 32790}#)
+ (if (null? #{s1 32791}#)
+ #{w2 32789}#
+ (cons (car #{w2 32789}#)
+ (let ((#{m2 32806}#
+ (cdr #{w2 32789}#)))
+ (if (null? #{m2 32806}#)
+ #{s1 32791}#
(append
- #{s1 9030}#
- #{m2 9045}#)))))
- (cons (let ((#{m2 9053}#
- (car #{w2 9028}#)))
- (if (null? #{m2 9053}#)
- #{m1 9029}#
+ #{s1 32791}#
+ #{m2 32806}#)))))
+ (cons (let ((#{m2 32814}#
+ (car #{w2 32789}#)))
+ (if (null? #{m2 32814}#)
+ #{m1 32790}#
(append
- #{m1 9029}#
- #{m2 9053}#)))
- (let ((#{m2 9061}#
- (cdr #{w2 9028}#)))
- (if (null? #{m2 9061}#)
- #{s1 9030}#
+ #{m1 32790}#
+ #{m2 32814}#)))
+ (let ((#{m2 32822}#
+ (cdr #{w2 32789}#)))
+ (if (null? #{m2 32822}#)
+ #{s1 32791}#
(append
- #{s1 9030}#
- #{m2 9061}#))))))))
- (#{module 9021}#
- (vector-ref #{x 8987}# 3)))
+ #{s1 32791}#
+ #{m2 32822}#))))))))
+ (#{module 32782}#
+ (vector-ref #{x 32748}# 3)))
(vector
'syntax-object
- #{expression 9019}#
- #{wrap 9020}#
- #{module 9021}#))
- (if (null? #{x 8987}#)
- #{x 8987}#
+ #{expression 32780}#
+ #{wrap 32781}#
+ #{module 32782}#))
+ (if (null? #{x 32748}#)
+ #{x 32748}#
(vector
'syntax-object
- #{x 8987}#
- #{w 8845}#
- #{mod 8718}#)))))
- #{r 8846}#
- #{w 8845}#
- #{mod 8718}#))))))
- #{tmp 8720}#)
+ #{x 32748}#
+ #{w 32606}#
+ #{mod 32479}#)))))
+ #{r 32607}#
+ #{w 32606}#
+ #{mod 32479}#))))))
+ #{tmp 32481}#)
(syntax-violation
'letrec
"bad letrec"
- (let ((#{x 9301}#
+ (let ((#{x 33061}#
(begin
- (if (if (pair? #{e 8714}#) #{s 8717}# #f)
- (set-source-properties! #{e 8714}# #{s 8717}#))
- #{e 8714}#)))
- (if (if (null? (car #{w 8716}#))
- (null? (cdr #{w 8716}#))
+ (if (if (pair? #{e 32475}#) #{s 32478}# #f)
+ (set-source-properties! #{e 32475}# #{s 32478}#))
+ #{e 32475}#)))
+ (if (if (null? (car #{w 32477}#))
+ (null? (cdr #{w 32477}#))
#f)
- #{x 9301}#
- (if (if (vector? #{x 9301}#)
- (if (= (vector-length #{x 9301}#) 4)
- (eq? (vector-ref #{x 9301}# 0) 'syntax-object)
+ #{x 33061}#
+ (if (if (vector? #{x 33061}#)
+ (if (= (vector-length #{x 33061}#) 4)
+ (eq? (vector-ref #{x 33061}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 9333}# (vector-ref #{x 9301}# 1))
- (#{wrap 9334}#
- (let ((#{w2 9342}# (vector-ref #{x 9301}# 2)))
- (let ((#{m1 9343}# (car #{w 8716}#))
- (#{s1 9344}# (cdr #{w 8716}#)))
- (if (null? #{m1 9343}#)
- (if (null? #{s1 9344}#)
- #{w2 9342}#
- (cons (car #{w2 9342}#)
- (let ((#{m2 9359}#
- (cdr #{w2 9342}#)))
- (if (null? #{m2 9359}#)
- #{s1 9344}#
+ (let ((#{expression 33093}# (vector-ref #{x 33061}# 1))
+ (#{wrap 33094}#
+ (let ((#{w2 33102}# (vector-ref #{x 33061}# 2)))
+ (let ((#{m1 33103}# (car #{w 32477}#))
+ (#{s1 33104}# (cdr #{w 32477}#)))
+ (if (null? #{m1 33103}#)
+ (if (null? #{s1 33104}#)
+ #{w2 33102}#
+ (cons (car #{w2 33102}#)
+ (let ((#{m2 33119}#
+ (cdr #{w2 33102}#)))
+ (if (null? #{m2 33119}#)
+ #{s1 33104}#
(append
- #{s1 9344}#
- #{m2 9359}#)))))
- (cons (let ((#{m2 9367}# (car #{w2 9342}#)))
- (if (null? #{m2 9367}#)
- #{m1 9343}#
- (append #{m1 9343}# #{m2 9367}#)))
- (let ((#{m2 9375}# (cdr #{w2 9342}#)))
- (if (null? #{m2 9375}#)
- #{s1 9344}#
+ #{s1 33104}#
+ #{m2 33119}#)))))
+ (cons (let ((#{m2 33127}#
+ (car #{w2 33102}#)))
+ (if (null? #{m2 33127}#)
+ #{m1 33103}#
+ (append
+ #{m1 33103}#
+ #{m2 33127}#)))
+ (let ((#{m2 33135}#
+ (cdr #{w2 33102}#)))
+ (if (null? #{m2 33135}#)
+ #{s1 33104}#
(append
- #{s1 9344}#
- #{m2 9375}#))))))))
- (#{module 9335}# (vector-ref #{x 9301}# 3)))
+ #{s1 33104}#
+ #{m2 33135}#))))))))
+ (#{module 33095}# (vector-ref #{x 33061}# 3)))
(vector
'syntax-object
- #{expression 9333}#
- #{wrap 9334}#
- #{module 9335}#))
- (if (null? #{x 9301}#)
- #{x 9301}#
+ #{expression 33093}#
+ #{wrap 33094}#
+ #{module 33095}#))
+ (if (null? #{x 33061}#)
+ #{x 33061}#
(vector
'syntax-object
- #{x 9301}#
- #{w 8716}#
- #{mod 8718}#))))))))))
- (#{global-extend 4408}#
+ #{x 33061}#
+ #{w 32477}#
+ #{mod 32479}#))))))))))
+ (#{global-extend 28236}#
'core
'letrec*
- (lambda (#{e 9526}#
- #{r 9527}#
- #{w 9528}#
- #{s 9529}#
- #{mod 9530}#)
- (let ((#{tmp 9532}#
+ (lambda (#{e 33286}#
+ #{r 33287}#
+ #{w 33288}#
+ #{s 33289}#
+ #{mod 33290}#)
+ (let ((#{tmp 33292}#
($sc-dispatch
- #{e 9526}#
+ #{e 33286}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 9532}#
+ (if (if #{tmp 33292}#
(@apply
- (lambda (#{id 9536}#
- #{val 9537}#
- #{e1 9538}#
- #{e2 9539}#)
- (and-map #{id? 4410}# #{id 9536}#))
- #{tmp 9532}#)
+ (lambda (#{id 33296}#
+ #{val 33297}#
+ #{e1 33298}#
+ #{e2 33299}#)
+ (and-map #{id? 28238}# #{id 33296}#))
+ #{tmp 33292}#)
#f)
(@apply
- (lambda (#{id 9555}#
- #{val 9556}#
- #{e1 9557}#
- #{e2 9558}#)
- (if (not (#{valid-bound-ids? 4433}# #{id 9555}#))
+ (lambda (#{id 33315}#
+ #{val 33316}#
+ #{e1 33317}#
+ #{e2 33318}#)
+ (if (not (#{valid-bound-ids? 28261}# #{id 33315}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 9526}#)
- (let ((#{labels 9655}#
- (#{gen-labels 4413}# #{id 9555}#))
- (#{new-vars 9656}#
- (map #{gen-var 4457}# #{id 9555}#)))
- (let ((#{w 9657}#
- (#{make-binding-wrap 4424}#
- #{id 9555}#
- #{labels 9655}#
- #{w 9528}#))
- (#{r 9658}#
- (#{extend-var-env 4406}#
- #{labels 9655}#
- #{new-vars 9656}#
- #{r 9527}#)))
- (#{build-letrec 4395}#
- #{s 9529}#
+ #{e 33286}#)
+ (let ((#{labels 33415}#
+ (#{gen-labels 28241}# #{id 33315}#))
+ (#{new-vars 33416}#
+ (map #{gen-var 28285}# #{id 33315}#)))
+ (let ((#{w 33417}#
+ (#{make-binding-wrap 28252}#
+ #{id 33315}#
+ #{labels 33415}#
+ #{w 33288}#))
+ (#{r 33418}#
+ (#{extend-var-env 28234}#
+ #{labels 33415}#
+ #{new-vars 33416}#
+ #{r 33287}#)))
+ (#{build-letrec 28223}#
+ #{s 33289}#
#t
- (map syntax->datum #{id 9555}#)
- #{new-vars 9656}#
- (map (lambda (#{x 9737}#)
- (#{expand 4443}#
- #{x 9737}#
- #{r 9658}#
- #{w 9657}#
- #{mod 9530}#))
- #{val 9556}#)
- (#{expand-body 4447}#
- (cons #{e1 9557}# #{e2 9558}#)
- (let ((#{x 9799}#
+ (map syntax->datum #{id 33315}#)
+ #{new-vars 33416}#
+ (map (lambda (#{x 33497}#)
+ (#{expand 28271}#
+ #{x 33497}#
+ #{r 33418}#
+ #{w 33417}#
+ #{mod 33290}#))
+ #{val 33316}#)
+ (#{expand-body 28275}#
+ (cons #{e1 33317}# #{e2 33318}#)
+ (let ((#{x 33559}#
(begin
- (if (if (pair? #{e 9526}#) #{s 9529}# #f)
+ (if (if (pair? #{e 33286}#) #{s 33289}# #f)
(set-source-properties!
- #{e 9526}#
- #{s 9529}#))
- #{e 9526}#)))
- (if (if (null? (car #{w 9657}#))
- (null? (cdr #{w 9657}#))
+ #{e 33286}#
+ #{s 33289}#))
+ #{e 33286}#)))
+ (if (if (null? (car #{w 33417}#))
+ (null? (cdr #{w 33417}#))
#f)
- #{x 9799}#
- (if (if (vector? #{x 9799}#)
- (if (= (vector-length #{x 9799}#) 4)
- (eq? (vector-ref #{x 9799}# 0)
+ #{x 33559}#
+ (if (if (vector? #{x 33559}#)
+ (if (= (vector-length #{x 33559}#) 4)
+ (eq? (vector-ref #{x 33559}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 9831}#
- (vector-ref #{x 9799}# 1))
- (#{wrap 9832}#
- (let ((#{w2 9840}#
- (vector-ref #{x 9799}# 2)))
- (let ((#{m1 9841}# (car #{w 9657}#))
- (#{s1 9842}# (cdr #{w 9657}#)))
- (if (null? #{m1 9841}#)
- (if (null? #{s1 9842}#)
- #{w2 9840}#
- (cons (car #{w2 9840}#)
- (let ((#{m2 9857}#
- (cdr #{w2 9840}#)))
- (if (null? #{m2 9857}#)
- #{s1 9842}#
+ (let ((#{expression 33591}#
+ (vector-ref #{x 33559}# 1))
+ (#{wrap 33592}#
+ (let ((#{w2 33600}#
+ (vector-ref #{x 33559}# 2)))
+ (let ((#{m1 33601}#
+ (car #{w 33417}#))
+ (#{s1 33602}#
+ (cdr #{w 33417}#)))
+ (if (null? #{m1 33601}#)
+ (if (null? #{s1 33602}#)
+ #{w2 33600}#
+ (cons (car #{w2 33600}#)
+ (let ((#{m2 33617}#
+ (cdr #{w2 33600}#)))
+ (if (null? #{m2 33617}#)
+ #{s1 33602}#
(append
- #{s1 9842}#
- #{m2 9857}#)))))
- (cons (let ((#{m2 9865}#
- (car #{w2 9840}#)))
- (if (null? #{m2 9865}#)
- #{m1 9841}#
+ #{s1 33602}#
+ #{m2 33617}#)))))
+ (cons (let ((#{m2 33625}#
+ (car #{w2 33600}#)))
+ (if (null? #{m2 33625}#)
+ #{m1 33601}#
(append
- #{m1 9841}#
- #{m2 9865}#)))
- (let ((#{m2 9873}#
- (cdr #{w2 9840}#)))
- (if (null? #{m2 9873}#)
- #{s1 9842}#
+ #{m1 33601}#
+ #{m2 33625}#)))
+ (let ((#{m2 33633}#
+ (cdr #{w2 33600}#)))
+ (if (null? #{m2 33633}#)
+ #{s1 33602}#
(append
- #{s1 9842}#
- #{m2 9873}#))))))))
- (#{module 9833}#
- (vector-ref #{x 9799}# 3)))
+ #{s1 33602}#
+ #{m2 33633}#))))))))
+ (#{module 33593}#
+ (vector-ref #{x 33559}# 3)))
(vector
'syntax-object
- #{expression 9831}#
- #{wrap 9832}#
- #{module 9833}#))
- (if (null? #{x 9799}#)
- #{x 9799}#
+ #{expression 33591}#
+ #{wrap 33592}#
+ #{module 33593}#))
+ (if (null? #{x 33559}#)
+ #{x 33559}#
(vector
'syntax-object
- #{x 9799}#
- #{w 9657}#
- #{mod 9530}#)))))
- #{r 9658}#
- #{w 9657}#
- #{mod 9530}#))))))
- #{tmp 9532}#)
+ #{x 33559}#
+ #{w 33417}#
+ #{mod 33290}#)))))
+ #{r 33418}#
+ #{w 33417}#
+ #{mod 33290}#))))))
+ #{tmp 33292}#)
(syntax-violation
'letrec*
"bad letrec*"
- (let ((#{x 10113}#
+ (let ((#{x 33872}#
(begin
- (if (if (pair? #{e 9526}#) #{s 9529}# #f)
- (set-source-properties! #{e 9526}# #{s 9529}#))
- #{e 9526}#)))
- (if (if (null? (car #{w 9528}#))
- (null? (cdr #{w 9528}#))
+ (if (if (pair? #{e 33286}#) #{s 33289}# #f)
+ (set-source-properties! #{e 33286}# #{s 33289}#))
+ #{e 33286}#)))
+ (if (if (null? (car #{w 33288}#))
+ (null? (cdr #{w 33288}#))
#f)
- #{x 10113}#
- (if (if (vector? #{x 10113}#)
- (if (= (vector-length #{x 10113}#) 4)
- (eq? (vector-ref #{x 10113}# 0) 'syntax-object)
+ #{x 33872}#
+ (if (if (vector? #{x 33872}#)
+ (if (= (vector-length #{x 33872}#) 4)
+ (eq? (vector-ref #{x 33872}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 10145}# (vector-ref #{x 10113}# 1))
- (#{wrap 10146}#
- (let ((#{w2 10154}# (vector-ref #{x 10113}# 2)))
- (let ((#{m1 10155}# (car #{w 9528}#))
- (#{s1 10156}# (cdr #{w 9528}#)))
- (if (null? #{m1 10155}#)
- (if (null? #{s1 10156}#)
- #{w2 10154}#
- (cons (car #{w2 10154}#)
- (let ((#{m2 10171}#
- (cdr #{w2 10154}#)))
- (if (null? #{m2 10171}#)
- #{s1 10156}#
+ (let ((#{expression 33904}# (vector-ref #{x 33872}# 1))
+ (#{wrap 33905}#
+ (let ((#{w2 33913}# (vector-ref #{x 33872}# 2)))
+ (let ((#{m1 33914}# (car #{w 33288}#))
+ (#{s1 33915}# (cdr #{w 33288}#)))
+ (if (null? #{m1 33914}#)
+ (if (null? #{s1 33915}#)
+ #{w2 33913}#
+ (cons (car #{w2 33913}#)
+ (let ((#{m2 33930}#
+ (cdr #{w2 33913}#)))
+ (if (null? #{m2 33930}#)
+ #{s1 33915}#
(append
- #{s1 10156}#
- #{m2 10171}#)))))
- (cons (let ((#{m2 10179}#
- (car #{w2 10154}#)))
- (if (null? #{m2 10179}#)
- #{m1 10155}#
+ #{s1 33915}#
+ #{m2 33930}#)))))
+ (cons (let ((#{m2 33938}#
+ (car #{w2 33913}#)))
+ (if (null? #{m2 33938}#)
+ #{m1 33914}#
(append
- #{m1 10155}#
- #{m2 10179}#)))
- (let ((#{m2 10187}#
- (cdr #{w2 10154}#)))
- (if (null? #{m2 10187}#)
- #{s1 10156}#
+ #{m1 33914}#
+ #{m2 33938}#)))
+ (let ((#{m2 33946}#
+ (cdr #{w2 33913}#)))
+ (if (null? #{m2 33946}#)
+ #{s1 33915}#
(append
- #{s1 10156}#
- #{m2 10187}#))))))))
- (#{module 10147}# (vector-ref #{x 10113}# 3)))
+ #{s1 33915}#
+ #{m2 33946}#))))))))
+ (#{module 33906}# (vector-ref #{x 33872}# 3)))
(vector
'syntax-object
- #{expression 10145}#
- #{wrap 10146}#
- #{module 10147}#))
- (if (null? #{x 10113}#)
- #{x 10113}#
+ #{expression 33904}#
+ #{wrap 33905}#
+ #{module 33906}#))
+ (if (null? #{x 33872}#)
+ #{x 33872}#
(vector
'syntax-object
- #{x 10113}#
- #{w 9528}#
- #{mod 9530}#))))))))))
- (#{global-extend 4408}#
+ #{x 33872}#
+ #{w 33288}#
+ #{mod 33290}#))))))))))
+ (#{global-extend 28236}#
'core
'set!
- (lambda (#{e 10350}#
- #{r 10351}#
- #{w 10352}#
- #{s 10353}#
- #{mod 10354}#)
- (let ((#{tmp 10356}#
- ($sc-dispatch #{e 10350}# '(_ any any))))
- (if (if #{tmp 10356}#
+ (lambda (#{e 34105}#
+ #{r 34106}#
+ #{w 34107}#
+ #{s 34108}#
+ #{mod 34109}#)
+ (let ((#{tmp 34111}#
+ ($sc-dispatch #{e 34105}# '(_ any any))))
+ (if (if #{tmp 34111}#
(@apply
- (lambda (#{id 10360}# #{val 10361}#)
- (if (symbol? #{id 10360}#)
+ (lambda (#{id 34115}# #{val 34116}#)
+ (if (symbol? #{id 34115}#)
#t
- (if (if (vector? #{id 10360}#)
- (if (= (vector-length #{id 10360}#) 4)
- (eq? (vector-ref #{id 10360}# 0) 'syntax-object)
+ (if (if (vector? #{id 34115}#)
+ (if (= (vector-length #{id 34115}#) 4)
+ (eq? (vector-ref #{id 34115}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 10360}# 1))
+ (symbol? (vector-ref #{id 34115}# 1))
#f)))
- #{tmp 10356}#)
+ #{tmp 34111}#)
#f)
(@apply
- (lambda (#{id 10388}# #{val 10389}#)
+ (lambda (#{id 34143}# #{val 34144}#)
(call-with-values
(lambda ()
- (#{resolve-identifier 4430}#
- #{id 10388}#
- #{w 10352}#
- #{r 10351}#
- #{mod 10354}#
+ (#{resolve-identifier 28258}#
+ #{id 34143}#
+ #{w 34107}#
+ #{r 34106}#
+ #{mod 34109}#
#t))
- (lambda (#{type 10392}# #{value 10393}# #{id-mod 10394}#)
- (if (eqv? #{type 10392}# 'lexical)
- (#{build-lexical-assignment 4381}#
- #{s 10353}#
- (syntax->datum #{id 10388}#)
- #{value 10393}#
- (#{expand 4443}#
- #{val 10389}#
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#))
- (if (eqv? #{type 10392}# 'global)
- (#{build-global-assignment 4384}#
- #{s 10353}#
- #{value 10393}#
- (#{expand 4443}#
- #{val 10389}#
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#)
- #{id-mod 10394}#)
- (if (eqv? #{type 10392}# 'macro)
+ (lambda (#{type 34147}# #{value 34148}# #{id-mod 34149}#)
+ (if (eqv? #{type 34147}# 'lexical)
+ (#{build-lexical-assignment 28209}#
+ #{s 34108}#
+ (syntax->datum #{id 34143}#)
+ #{value 34148}#
+ (#{expand 28271}#
+ #{val 34144}#
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#))
+ (if (eqv? #{type 34147}# 'global)
+ (#{build-global-assignment 28212}#
+ #{s 34108}#
+ #{value 34148}#
+ (#{expand 28271}#
+ #{val 34144}#
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#)
+ #{id-mod 34149}#)
+ (if (eqv? #{type 34147}# 'macro)
(if (procedure-property
- #{value 10393}#
+ #{value 34148}#
'variable-transformer)
- (#{expand 4443}#
- (#{expand-macro 4446}#
- #{value 10393}#
- #{e 10350}#
- #{r 10351}#
- #{w 10352}#
- #{s 10353}#
+ (#{expand 28271}#
+ (#{expand-macro 28274}#
+ #{value 34148}#
+ #{e 34105}#
+ #{r 34106}#
+ #{w 34107}#
+ #{s 34108}#
#f
- #{mod 10354}#)
- #{r 10351}#
+ #{mod 34109}#)
+ #{r 34106}#
'(())
- #{mod 10354}#)
+ #{mod 34109}#)
(syntax-violation
'set!
"not a variable transformer"
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{e 10350}#
- (if (if (vector? #{e 10350}#)
- (if (= (vector-length #{e 10350}#) 4)
- (eq? (vector-ref #{e 10350}# 0)
+ #{e 34105}#
+ (if (if (vector? #{e 34105}#)
+ (if (= (vector-length #{e 34105}#) 4)
+ (eq? (vector-ref #{e 34105}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 10854}#
- (vector-ref #{e 10350}# 1))
- (#{wrap 10855}#
- (let ((#{w2 10865}#
- (vector-ref #{e 10350}# 2)))
- (let ((#{m1 10866}#
- (car #{w 10352}#))
- (#{s1 10867}#
- (cdr #{w 10352}#)))
- (if (null? #{m1 10866}#)
- (if (null? #{s1 10867}#)
- #{w2 10865}#
- (cons (car #{w2 10865}#)
- (let ((#{m2 10884}#
- (cdr #{w2 10865}#)))
- (if (null? #{m2 10884}#)
- #{s1 10867}#
+ (let ((#{expression 34589}#
+ (vector-ref #{e 34105}# 1))
+ (#{wrap 34590}#
+ (let ((#{w2 34600}#
+ (vector-ref #{e 34105}# 2)))
+ (let ((#{m1 34601}#
+ (car #{w 34107}#))
+ (#{s1 34602}#
+ (cdr #{w 34107}#)))
+ (if (null? #{m1 34601}#)
+ (if (null? #{s1 34602}#)
+ #{w2 34600}#
+ (cons (car #{w2 34600}#)
+ (let ((#{m2 34619}#
+ (cdr #{w2 34600}#)))
+ (if (null? #{m2 34619}#)
+ #{s1 34602}#
(append
- #{s1 10867}#
- #{m2 10884}#)))))
- (cons (let ((#{m2 10892}#
- (car #{w2 10865}#)))
- (if (null? #{m2 10892}#)
- #{m1 10866}#
+ #{s1 34602}#
+ #{m2 34619}#)))))
+ (cons (let ((#{m2 34627}#
+ (car #{w2 34600}#)))
+ (if (null? #{m2 34627}#)
+ #{m1 34601}#
(append
- #{m1 10866}#
- #{m2 10892}#)))
- (let ((#{m2 10900}#
- (cdr #{w2 10865}#)))
- (if (null? #{m2 10900}#)
- #{s1 10867}#
+ #{m1 34601}#
+ #{m2 34627}#)))
+ (let ((#{m2 34635}#
+ (cdr #{w2 34600}#)))
+ (if (null? #{m2 34635}#)
+ #{s1 34602}#
(append
- #{s1 10867}#
- #{m2 10900}#))))))))
- (#{module 10856}#
- (vector-ref #{e 10350}# 3)))
+ #{s1 34602}#
+ #{m2 34635}#))))))))
+ (#{module 34591}#
+ (vector-ref #{e 34105}# 3)))
(vector
'syntax-object
- #{expression 10854}#
- #{wrap 10855}#
- #{module 10856}#))
- (if (null? #{e 10350}#)
- #{e 10350}#
+ #{expression 34589}#
+ #{wrap 34590}#
+ #{module 34591}#))
+ (if (null? #{e 34105}#)
+ #{e 34105}#
(vector
'syntax-object
- #{e 10350}#
- #{w 10352}#
- #{mod 10354}#))))
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ #{e 34105}#
+ #{w 34107}#
+ #{mod 34109}#))))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{id 10388}#
- (if (if (vector? #{id 10388}#)
- (if (= (vector-length #{id 10388}#) 4)
- (eq? (vector-ref #{id 10388}# 0)
+ #{id 34143}#
+ (if (if (vector? #{id 34143}#)
+ (if (= (vector-length #{id 34143}#) 4)
+ (eq? (vector-ref #{id 34143}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 10952}#
- (vector-ref #{id 10388}# 1))
- (#{wrap 10953}#
- (let ((#{w2 10963}#
- (vector-ref #{id 10388}# 2)))
- (let ((#{m1 10964}#
- (car #{w 10352}#))
- (#{s1 10965}#
- (cdr #{w 10352}#)))
- (if (null? #{m1 10964}#)
- (if (null? #{s1 10965}#)
- #{w2 10963}#
- (cons (car #{w2 10963}#)
- (let ((#{m2 10982}#
- (cdr #{w2 10963}#)))
- (if (null? #{m2 10982}#)
- #{s1 10965}#
+ (let ((#{expression 34687}#
+ (vector-ref #{id 34143}# 1))
+ (#{wrap 34688}#
+ (let ((#{w2 34698}#
+ (vector-ref #{id 34143}# 2)))
+ (let ((#{m1 34699}#
+ (car #{w 34107}#))
+ (#{s1 34700}#
+ (cdr #{w 34107}#)))
+ (if (null? #{m1 34699}#)
+ (if (null? #{s1 34700}#)
+ #{w2 34698}#
+ (cons (car #{w2 34698}#)
+ (let ((#{m2 34717}#
+ (cdr #{w2 34698}#)))
+ (if (null? #{m2 34717}#)
+ #{s1 34700}#
(append
- #{s1 10965}#
- #{m2 10982}#)))))
- (cons (let ((#{m2 10990}#
- (car #{w2 10963}#)))
- (if (null? #{m2 10990}#)
- #{m1 10964}#
+ #{s1 34700}#
+ #{m2 34717}#)))))
+ (cons (let ((#{m2 34725}#
+ (car #{w2 34698}#)))
+ (if (null? #{m2 34725}#)
+ #{m1 34699}#
(append
- #{m1 10964}#
- #{m2 10990}#)))
- (let ((#{m2 10998}#
- (cdr #{w2 10963}#)))
- (if (null? #{m2 10998}#)
- #{s1 10965}#
+ #{m1 34699}#
+ #{m2 34725}#)))
+ (let ((#{m2 34733}#
+ (cdr #{w2 34698}#)))
+ (if (null? #{m2 34733}#)
+ #{s1 34700}#
(append
- #{s1 10965}#
- #{m2 10998}#))))))))
- (#{module 10954}#
- (vector-ref #{id 10388}# 3)))
+ #{s1 34700}#
+ #{m2 34733}#))))))))
+ (#{module 34689}#
+ (vector-ref #{id 34143}# 3)))
(vector
'syntax-object
- #{expression 10952}#
- #{wrap 10953}#
- #{module 10954}#))
- (if (null? #{id 10388}#)
- #{id 10388}#
+ #{expression 34687}#
+ #{wrap 34688}#
+ #{module 34689}#))
+ (if (null? #{id 34143}#)
+ #{id 34143}#
(vector
'syntax-object
- #{id 10388}#
- #{w 10352}#
- #{id-mod 10394}#))))))
- (if (eqv? #{type 10392}# 'displaced-lexical)
+ #{id 34143}#
+ #{w 34107}#
+ #{id-mod 34149}#))))))
+ (if (eqv? #{type 34147}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{id 10388}#
- (if (if (vector? #{id 10388}#)
- (if (= (vector-length #{id 10388}#) 4)
- (eq? (vector-ref #{id 10388}# 0)
+ #{id 34143}#
+ (if (if (vector? #{id 34143}#)
+ (if (= (vector-length #{id 34143}#) 4)
+ (eq? (vector-ref #{id 34143}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11053}#
- (vector-ref #{id 10388}# 1))
- (#{wrap 11054}#
- (let ((#{w2 11064}#
- (vector-ref #{id 10388}# 2)))
- (let ((#{m1 11065}#
- (car #{w 10352}#))
- (#{s1 11066}#
- (cdr #{w 10352}#)))
- (if (null? #{m1 11065}#)
- (if (null? #{s1 11066}#)
- #{w2 11064}#
- (cons (car #{w2 11064}#)
- (let ((#{m2 11083}#
- (cdr #{w2 11064}#)))
- (if (null? #{m2 11083}#)
- #{s1 11066}#
+ (let ((#{expression 34788}#
+ (vector-ref #{id 34143}# 1))
+ (#{wrap 34789}#
+ (let ((#{w2 34799}#
+ (vector-ref #{id 34143}# 2)))
+ (let ((#{m1 34800}#
+ (car #{w 34107}#))
+ (#{s1 34801}#
+ (cdr #{w 34107}#)))
+ (if (null? #{m1 34800}#)
+ (if (null? #{s1 34801}#)
+ #{w2 34799}#
+ (cons (car #{w2 34799}#)
+ (let ((#{m2 34818}#
+ (cdr #{w2 34799}#)))
+ (if (null? #{m2 34818}#)
+ #{s1 34801}#
(append
- #{s1 11066}#
- #{m2 11083}#)))))
- (cons (let ((#{m2 11091}#
- (car #{w2 11064}#)))
- (if (null? #{m2 11091}#)
- #{m1 11065}#
+ #{s1 34801}#
+ #{m2 34818}#)))))
+ (cons (let ((#{m2 34826}#
+ (car #{w2 34799}#)))
+ (if (null? #{m2 34826}#)
+ #{m1 34800}#
(append
- #{m1 11065}#
- #{m2 11091}#)))
- (let ((#{m2 11099}#
- (cdr #{w2 11064}#)))
- (if (null? #{m2 11099}#)
- #{s1 11066}#
+ #{m1 34800}#
+ #{m2 34826}#)))
+ (let ((#{m2 34834}#
+ (cdr #{w2 34799}#)))
+ (if (null? #{m2 34834}#)
+ #{s1 34801}#
(append
- #{s1 11066}#
- #{m2 11099}#))))))))
- (#{module 11055}#
- (vector-ref #{id 10388}# 3)))
+ #{s1 34801}#
+ #{m2 34834}#))))))))
+ (#{module 34790}#
+ (vector-ref #{id 34143}# 3)))
(vector
'syntax-object
- #{expression 11053}#
- #{wrap 11054}#
- #{module 11055}#))
- (if (null? #{id 10388}#)
- #{id 10388}#
+ #{expression 34788}#
+ #{wrap 34789}#
+ #{module 34790}#))
+ (if (null? #{id 34143}#)
+ #{id 34143}#
(vector
'syntax-object
- #{id 10388}#
- #{w 10352}#
- #{mod 10354}#)))))
+ #{id 34143}#
+ #{w 34107}#
+ #{mod 34109}#)))))
(syntax-violation
'set!
"bad set!"
- (let ((#{x 11131}#
+ (let ((#{x 34866}#
(begin
- (if (if (pair? #{e 10350}#)
- #{s 10353}#
+ (if (if (pair? #{e 34105}#)
+ #{s 34108}#
#f)
(set-source-properties!
- #{e 10350}#
- #{s 10353}#))
- #{e 10350}#)))
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ #{e 34105}#
+ #{s 34108}#))
+ #{e 34105}#)))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{x 11131}#
- (if (if (vector? #{x 11131}#)
- (if (= (vector-length #{x 11131}#) 4)
- (eq? (vector-ref #{x 11131}# 0)
+ #{x 34866}#
+ (if (if (vector? #{x 34866}#)
+ (if (= (vector-length #{x 34866}#) 4)
+ (eq? (vector-ref #{x 34866}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11163}#
- (vector-ref #{x 11131}# 1))
- (#{wrap 11164}#
- (let ((#{w2 11172}#
+ (let ((#{expression 34898}#
+ (vector-ref #{x 34866}# 1))
+ (#{wrap 34899}#
+ (let ((#{w2 34907}#
(vector-ref
- #{x 11131}#
+ #{x 34866}#
2)))
- (let ((#{m1 11173}#
- (car #{w 10352}#))
- (#{s1 11174}#
- (cdr #{w 10352}#)))
- (if (null? #{m1 11173}#)
- (if (null? #{s1 11174}#)
- #{w2 11172}#
- (cons (car #{w2 11172}#)
- (let ((#{m2 11189}#
- (cdr #{w2 11172}#)))
- (if (null? #{m2 11189}#)
- #{s1 11174}#
+ (let ((#{m1 34908}#
+ (car #{w 34107}#))
+ (#{s1 34909}#
+ (cdr #{w 34107}#)))
+ (if (null? #{m1 34908}#)
+ (if (null? #{s1 34909}#)
+ #{w2 34907}#
+ (cons (car #{w2 34907}#)
+ (let ((#{m2 34924}#
+ (cdr #{w2 34907}#)))
+ (if (null? #{m2 34924}#)
+ #{s1 34909}#
(append
- #{s1 11174}#
- #{m2 11189}#)))))
- (cons (let ((#{m2 11197}#
- (car #{w2 11172}#)))
- (if (null? #{m2 11197}#)
- #{m1 11173}#
+ #{s1 34909}#
+ #{m2 34924}#)))))
+ (cons (let ((#{m2 34932}#
+ (car #{w2 34907}#)))
+ (if (null? #{m2 34932}#)
+ #{m1 34908}#
(append
- #{m1 11173}#
- #{m2 11197}#)))
- (let ((#{m2 11205}#
- (cdr #{w2 11172}#)))
- (if (null? #{m2 11205}#)
- #{s1 11174}#
+ #{m1 34908}#
+ #{m2 34932}#)))
+ (let ((#{m2 34940}#
+ (cdr #{w2 34907}#)))
+ (if (null? #{m2 34940}#)
+ #{s1 34909}#
(append
- #{s1 11174}#
- #{m2 11205}#))))))))
- (#{module 11165}#
- (vector-ref #{x 11131}# 3)))
+ #{s1 34909}#
+ #{m2 34940}#))))))))
+ (#{module 34900}#
+ (vector-ref #{x 34866}# 3)))
(vector
'syntax-object
- #{expression 11163}#
- #{wrap 11164}#
- #{module 11165}#))
- (if (null? #{x 11131}#)
- #{x 11131}#
+ #{expression 34898}#
+ #{wrap 34899}#
+ #{module 34900}#))
+ (if (null? #{x 34866}#)
+ #{x 34866}#
(vector
'syntax-object
- #{x 11131}#
- #{w 10352}#
- #{mod 10354}#)))))))))))))
- #{tmp 10356}#)
- (let ((#{tmp 11220}#
+ #{x 34866}#
+ #{w 34107}#
+ #{mod 34109}#)))))))))))))
+ #{tmp 34111}#)
+ (let ((#{tmp 34955}#
($sc-dispatch
- #{e 10350}#
+ #{e 34105}#
'(_ (any . each-any) any))))
- (if #{tmp 11220}#
+ (if #{tmp 34955}#
(@apply
- (lambda (#{head 11224}# #{tail 11225}# #{val 11226}#)
+ (lambda (#{head 34959}# #{tail 34960}# #{val 34961}#)
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{head 11224}#
- #{r 10351}#
+ (#{syntax-type 28270}#
+ #{head 34959}#
+ #{r 34106}#
'(())
#f
#f
- #{mod 10354}#
+ #{mod 34109}#
#t))
- (lambda (#{type 11229}#
- #{value 11230}#
- #{ee 11231}#
- #{ww 11232}#
- #{ss 11233}#
- #{modmod 11234}#)
- (if (eqv? #{type 11229}# 'module-ref)
- (let ((#{val 11238}#
- (#{expand 4443}#
- #{val 11226}#
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#)))
+ (lambda (#{type 34964}#
+ #{value 34965}#
+ #{ee 34966}#
+ #{ww 34967}#
+ #{ss 34968}#
+ #{modmod 34969}#)
+ (if (eqv? #{type 34964}# 'module-ref)
+ (let ((#{val 34973}#
+ (#{expand 28271}#
+ #{val 34961}#
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#)))
(call-with-values
(lambda ()
- (#{value 11230}#
- (cons #{head 11224}# #{tail 11225}#)
- #{r 10351}#
- #{w 10352}#))
- (lambda (#{e 11239}#
- #{r 11240}#
- #{w 11241}#
- #{s* 11242}#
- #{mod 11243}#)
- (let ((#{tmp 11245}# (list #{e 11239}#)))
+ (#{value 34965}#
+ (cons #{head 34959}# #{tail 34960}#)
+ #{r 34106}#
+ #{w 34107}#))
+ (lambda (#{e 34974}#
+ #{r 34975}#
+ #{w 34976}#
+ #{s* 34977}#
+ #{mod 34978}#)
+ (let ((#{tmp 34980}# (list #{e 34974}#)))
(if (@apply
- (lambda (#{e 11247}#)
- (if (symbol? #{e 11247}#)
+ (lambda (#{e 34982}#)
+ (if (symbol? #{e 34982}#)
#t
- (if (if (vector? #{e 11247}#)
+ (if (if (vector? #{e 34982}#)
(if (= (vector-length
- #{e 11247}#)
+ #{e 34982}#)
4)
(eq? (vector-ref
- #{e 11247}#
+ #{e 34982}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 11247}# 1))
+ (vector-ref #{e 34982}# 1))
#f)))
- #{tmp 11245}#)
+ #{tmp 34980}#)
(@apply
- (lambda (#{e 11277}#)
- (#{build-global-assignment 4384}#
- #{s 10353}#
- (syntax->datum #{e 11277}#)
- #{val 11238}#
- #{mod 11243}#))
- #{tmp 11245}#)
+ (lambda (#{e 35012}#)
+ (#{build-global-assignment 28212}#
+ #{s 34108}#
+ (syntax->datum #{e 35012}#)
+ #{val 34973}#
+ #{mod 34978}#))
+ #{tmp 34980}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11239}#))))))
- (#{build-call 4377}#
- #{s 10353}#
- (#{expand 4443}#
+ #{e 34974}#))))))
+ (#{build-call 28205}#
+ #{s 34108}#
+ (#{expand 28271}#
(list '#(syntax-object
setter
((top)
@@ -11104,25 +11153,25 @@
(top)
(top)
(top))
- #("i3655"
- "i3656"
- "i3657"
- "i3658"
- "i3659"
- "i3660"))
+ #("i27483"
+ "i27484"
+ "i27485"
+ "i27486"
+ "i27487"
+ "i27488"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3641" "i3642" "i3643"))
+ #("i27469" "i27470" "i27471"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3613"
- "i3614"
- "i3615"
- "i3616"
- "i3617"))
+ #("i27441"
+ "i27442"
+ "i27443"
+ "i27444"
+ "i27445"))
#(ribcage
(lambda-var-list
gen-var
@@ -11400,259 +11449,259 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
- #{head 11224}#)
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#)
- (map (lambda (#{e 11606}#)
- (#{expand 4443}#
- #{e 11606}#
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#))
+ #{head 34959}#)
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#)
+ (map (lambda (#{e 35325}#)
+ (#{expand 28271}#
+ #{e 35325}#
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#))
(append
- #{tail 11225}#
- (list #{val 11226}#))))))))
- #{tmp 11220}#)
+ #{tail 34960}#
+ (list #{val 34961}#))))))))
+ #{tmp 34955}#)
(syntax-violation
'set!
"bad set!"
- (let ((#{x 11698}#
+ (let ((#{x 35413}#
(begin
- (if (if (pair? #{e 10350}#) #{s 10353}# #f)
- (set-source-properties! #{e 10350}# #{s 10353}#))
- #{e 10350}#)))
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ (if (if (pair? #{e 34105}#) #{s 34108}# #f)
+ (set-source-properties! #{e 34105}# #{s 34108}#))
+ #{e 34105}#)))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{x 11698}#
- (if (if (vector? #{x 11698}#)
- (if (= (vector-length #{x 11698}#) 4)
- (eq? (vector-ref #{x 11698}# 0) 'syntax-object)
+ #{x 35413}#
+ (if (if (vector? #{x 35413}#)
+ (if (= (vector-length #{x 35413}#) 4)
+ (eq? (vector-ref #{x 35413}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 11730}# (vector-ref #{x 11698}# 1))
- (#{wrap 11731}#
- (let ((#{w2 11739}#
- (vector-ref #{x 11698}# 2)))
- (let ((#{m1 11740}# (car #{w 10352}#))
- (#{s1 11741}# (cdr #{w 10352}#)))
- (if (null? #{m1 11740}#)
- (if (null? #{s1 11741}#)
- #{w2 11739}#
- (cons (car #{w2 11739}#)
- (let ((#{m2 11756}#
- (cdr #{w2 11739}#)))
- (if (null? #{m2 11756}#)
- #{s1 11741}#
+ (let ((#{expression 35445}# (vector-ref #{x 35413}# 1))
+ (#{wrap 35446}#
+ (let ((#{w2 35454}#
+ (vector-ref #{x 35413}# 2)))
+ (let ((#{m1 35455}# (car #{w 34107}#))
+ (#{s1 35456}# (cdr #{w 34107}#)))
+ (if (null? #{m1 35455}#)
+ (if (null? #{s1 35456}#)
+ #{w2 35454}#
+ (cons (car #{w2 35454}#)
+ (let ((#{m2 35471}#
+ (cdr #{w2 35454}#)))
+ (if (null? #{m2 35471}#)
+ #{s1 35456}#
(append
- #{s1 11741}#
- #{m2 11756}#)))))
- (cons (let ((#{m2 11764}#
- (car #{w2 11739}#)))
- (if (null? #{m2 11764}#)
- #{m1 11740}#
+ #{s1 35456}#
+ #{m2 35471}#)))))
+ (cons (let ((#{m2 35479}#
+ (car #{w2 35454}#)))
+ (if (null? #{m2 35479}#)
+ #{m1 35455}#
(append
- #{m1 11740}#
- #{m2 11764}#)))
- (let ((#{m2 11772}#
- (cdr #{w2 11739}#)))
- (if (null? #{m2 11772}#)
- #{s1 11741}#
+ #{m1 35455}#
+ #{m2 35479}#)))
+ (let ((#{m2 35487}#
+ (cdr #{w2 35454}#)))
+ (if (null? #{m2 35487}#)
+ #{s1 35456}#
(append
- #{s1 11741}#
- #{m2 11772}#))))))))
- (#{module 11732}# (vector-ref #{x 11698}# 3)))
+ #{s1 35456}#
+ #{m2 35487}#))))))))
+ (#{module 35447}# (vector-ref #{x 35413}# 3)))
(vector
'syntax-object
- #{expression 11730}#
- #{wrap 11731}#
- #{module 11732}#))
- (if (null? #{x 11698}#)
- #{x 11698}#
+ #{expression 35445}#
+ #{wrap 35446}#
+ #{module 35447}#))
+ (if (null? #{x 35413}#)
+ #{x 35413}#
(vector
'syntax-object
- #{x 11698}#
- #{w 10352}#
- #{mod 10354}#))))))))))))
+ #{x 35413}#
+ #{w 34107}#
+ #{mod 34109}#))))))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 11803}# #{r 11804}# #{w 11805}#)
- (let ((#{tmp 11807}#
- ($sc-dispatch #{e 11803}# '(_ each-any any))))
- (if (if #{tmp 11807}#
+ (lambda (#{e 35518}# #{r 35519}# #{w 35520}#)
+ (let ((#{tmp 35522}#
+ ($sc-dispatch #{e 35518}# '(_ each-any any))))
+ (if (if #{tmp 35522}#
(@apply
- (lambda (#{mod 11810}# #{id 11811}#)
- (if (and-map #{id? 4410}# #{mod 11810}#)
- (if (symbol? #{id 11811}#)
+ (lambda (#{mod 35525}# #{id 35526}#)
+ (if (and-map #{id? 28238}# #{mod 35525}#)
+ (if (symbol? #{id 35526}#)
#t
- (if (if (vector? #{id 11811}#)
- (if (= (vector-length #{id 11811}#) 4)
- (eq? (vector-ref #{id 11811}# 0)
+ (if (if (vector? #{id 35526}#)
+ (if (= (vector-length #{id 35526}#) 4)
+ (eq? (vector-ref #{id 35526}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 11811}# 1))
+ (symbol? (vector-ref #{id 35526}# 1))
#f))
#f))
- #{tmp 11807}#)
+ #{tmp 35522}#)
#f)
(@apply
- (lambda (#{mod 11851}# #{id 11852}#)
+ (lambda (#{mod 35566}# #{id 35567}#)
(values
- (syntax->datum #{id 11852}#)
- #{r 11804}#
- #{w 11805}#
+ (syntax->datum #{id 35567}#)
+ #{r 35519}#
+ #{w 35520}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -11661,12 +11710,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3702" "i3703"))
+ #("i27530" "i27531"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3690" "i3691" "i3692"))
+ #("i27518" "i27519" "i27520"))
#(ribcage
(lambda-var-list
gen-var
@@ -11944,216 +11993,216 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
- #{mod 11851}#))))
- #{tmp 11807}#)
+ #{mod 35566}#))))
+ #{tmp 35522}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11803}#))))))
- (#{global-extend 4408}#
+ #{e 35518}#))))))
+ (#{global-extend 28236}#
'module-ref
'@@
- (lambda (#{e 11956}# #{r 11957}# #{w 11958}#)
+ (lambda (#{e 35667}# #{r 35668}# #{w 35669}#)
(letrec*
- ((#{remodulate 11959}#
- (lambda (#{x 12195}# #{mod 12196}#)
- (if (pair? #{x 12195}#)
- (cons (#{remodulate 11959}#
- (car #{x 12195}#)
- #{mod 12196}#)
- (#{remodulate 11959}#
- (cdr #{x 12195}#)
- #{mod 12196}#))
- (if (if (vector? #{x 12195}#)
- (if (= (vector-length #{x 12195}#) 4)
- (eq? (vector-ref #{x 12195}# 0) 'syntax-object)
+ ((#{remodulate 35670}#
+ (lambda (#{x 35888}# #{mod 35889}#)
+ (if (pair? #{x 35888}#)
+ (cons (#{remodulate 35670}#
+ (car #{x 35888}#)
+ #{mod 35889}#)
+ (#{remodulate 35670}#
+ (cdr #{x 35888}#)
+ #{mod 35889}#))
+ (if (if (vector? #{x 35888}#)
+ (if (= (vector-length #{x 35888}#) 4)
+ (eq? (vector-ref #{x 35888}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 12210}#
- (#{remodulate 11959}#
- (vector-ref #{x 12195}# 1)
- #{mod 12196}#))
- (#{wrap 12211}# (vector-ref #{x 12195}# 2)))
+ (let ((#{expression 35903}#
+ (#{remodulate 35670}#
+ (vector-ref #{x 35888}# 1)
+ #{mod 35889}#))
+ (#{wrap 35904}# (vector-ref #{x 35888}# 2)))
(vector
'syntax-object
- #{expression 12210}#
- #{wrap 12211}#
- #{mod 12196}#))
- (if (vector? #{x 12195}#)
- (let ((#{n 12219}# (vector-length #{x 12195}#)))
- (let ((#{v 12220}# (make-vector #{n 12219}#)))
+ #{expression 35903}#
+ #{wrap 35904}#
+ #{mod 35889}#))
+ (if (vector? #{x 35888}#)
+ (let ((#{n 35912}# (vector-length #{x 35888}#)))
+ (let ((#{v 35913}# (make-vector #{n 35912}#)))
(letrec*
- ((#{loop 12221}#
- (lambda (#{i 12276}#)
- (if (= #{i 12276}# #{n 12219}#)
- #{v 12220}#
+ ((#{loop 35914}#
+ (lambda (#{i 35969}#)
+ (if (= #{i 35969}# #{n 35912}#)
+ #{v 35913}#
(begin
(vector-set!
- #{v 12220}#
- #{i 12276}#
- (#{remodulate 11959}#
- (vector-ref #{x 12195}# #{i 12276}#)
- #{mod 12196}#))
- (#{loop 12221}# (#{1+}# #{i 12276}#)))))))
- (#{loop 12221}# 0))))
- #{x 12195}#))))))
- (let ((#{tmp 11961}#
- ($sc-dispatch #{e 11956}# '(_ each-any any))))
- (if (if #{tmp 11961}#
+ #{v 35913}#
+ #{i 35969}#
+ (#{remodulate 35670}#
+ (vector-ref #{x 35888}# #{i 35969}#)
+ #{mod 35889}#))
+ (#{loop 35914}# (#{1+}# #{i 35969}#)))))))
+ (#{loop 35914}# 0))))
+ #{x 35888}#))))))
+ (let ((#{tmp 35672}#
+ ($sc-dispatch #{e 35667}# '(_ each-any any))))
+ (if (if #{tmp 35672}#
(@apply
- (lambda (#{mod 11965}# #{exp 11966}#)
- (and-map #{id? 4410}# #{mod 11965}#))
- #{tmp 11961}#)
+ (lambda (#{mod 35676}# #{exp 35677}#)
+ (and-map #{id? 28238}# #{mod 35676}#))
+ #{tmp 35672}#)
#f)
(@apply
- (lambda (#{mod 11982}# #{exp 11983}#)
- (let ((#{mod 11984}#
+ (lambda (#{mod 35693}# #{exp 35694}#)
+ (let ((#{mod 35695}#
(syntax->datum
(cons '#(syntax-object
private
@@ -12161,12 +12210,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3746" "i3747"))
- #(ribcage (remodulate) ((top)) ("i3713"))
+ #("i27574" "i27575"))
+ #(ribcage
+ (remodulate)
+ ((top))
+ ("i27541"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3710" "i3711" "i3712"))
+ #("i27538" "i27539" "i27540"))
#(ribcage
(lambda-var-list
gen-var
@@ -12444,327 +12496,327 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
- #{mod 11982}#))))
+ #{mod 35693}#))))
(values
- (#{remodulate 11959}#
- #{exp 11983}#
- #{mod 11984}#)
- #{r 11957}#
- #{w 11958}#
- (#{source-annotation 4404}# #{exp 11983}#)
- #{mod 11984}#)))
- #{tmp 11961}#)
+ (#{remodulate 35670}#
+ #{exp 35694}#
+ #{mod 35695}#)
+ #{r 35668}#
+ #{w 35669}#
+ (#{source-annotation 28232}# #{exp 35694}#)
+ #{mod 35695}#)))
+ #{tmp 35672}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11956}#))))))
- (#{global-extend 4408}#
+ #{e 35667}#))))))
+ (#{global-extend 28236}#
'core
'if
- (lambda (#{e 12389}#
- #{r 12390}#
- #{w 12391}#
- #{s 12392}#
- #{mod 12393}#)
- (let ((#{tmp 12395}#
- ($sc-dispatch #{e 12389}# '(_ any any))))
- (if #{tmp 12395}#
+ (lambda (#{e 36078}#
+ #{r 36079}#
+ #{w 36080}#
+ #{s 36081}#
+ #{mod 36082}#)
+ (let ((#{tmp 36084}#
+ ($sc-dispatch #{e 36078}# '(_ any any))))
+ (if #{tmp 36084}#
(@apply
- (lambda (#{test 12399}# #{then 12400}#)
- (#{build-conditional 4378}#
- #{s 12392}#
- (#{expand 4443}#
- #{test 12399}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)
- (#{expand 4443}#
- #{then 12400}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)
+ (lambda (#{test 36088}# #{then 36089}#)
+ (#{build-conditional 28206}#
+ #{s 36081}#
+ (#{expand 28271}#
+ #{test 36088}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)
+ (#{expand 28271}#
+ #{then 36089}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 12395}#)
- (let ((#{tmp 12661}#
- ($sc-dispatch #{e 12389}# '(_ any any any))))
- (if #{tmp 12661}#
+ #{tmp 36084}#)
+ (let ((#{tmp 36338}#
+ ($sc-dispatch #{e 36078}# '(_ any any any))))
+ (if #{tmp 36338}#
(@apply
- (lambda (#{test 12665}# #{then 12666}# #{else 12667}#)
- (#{build-conditional 4378}#
- #{s 12392}#
- (#{expand 4443}#
- #{test 12665}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)
- (#{expand 4443}#
- #{then 12666}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)
- (#{expand 4443}#
- #{else 12667}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)))
- #{tmp 12661}#)
+ (lambda (#{test 36342}# #{then 36343}# #{else 36344}#)
+ (#{build-conditional 28206}#
+ #{s 36081}#
+ (#{expand 28271}#
+ #{test 36342}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)
+ (#{expand 28271}#
+ #{then 36343}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)
+ (#{expand 28271}#
+ #{else 36344}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)))
+ #{tmp 36338}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12389}#)))))))
- (#{global-extend 4408}#
+ #{e 36078}#)))))))
+ (#{global-extend 28236}#
'core
'with-fluids
- (lambda (#{e 13126}#
- #{r 13127}#
- #{w 13128}#
- #{s 13129}#
- #{mod 13130}#)
- (let ((#{tmp 13132}#
+ (lambda (#{e 36783}#
+ #{r 36784}#
+ #{w 36785}#
+ #{s 36786}#
+ #{mod 36787}#)
+ (let ((#{tmp 36789}#
($sc-dispatch
- #{e 13126}#
+ #{e 36783}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 13132}#
+ (if #{tmp 36789}#
(@apply
- (lambda (#{fluid 13136}#
- #{val 13137}#
- #{b 13138}#
- #{b* 13139}#)
- (#{build-dynlet 4379}#
- #{s 13129}#
- (map (lambda (#{x 13232}#)
- (#{expand 4443}#
- #{x 13232}#
- #{r 13127}#
- #{w 13128}#
- #{mod 13130}#))
- #{fluid 13136}#)
- (map (lambda (#{x 13314}#)
- (#{expand 4443}#
- #{x 13314}#
- #{r 13127}#
- #{w 13128}#
- #{mod 13130}#))
- #{val 13137}#)
- (#{expand-body 4447}#
- (cons #{b 13138}# #{b* 13139}#)
- (let ((#{x 13407}#
+ (lambda (#{fluid 36793}#
+ #{val 36794}#
+ #{b 36795}#
+ #{b* 36796}#)
+ (#{build-dynlet 28207}#
+ #{s 36786}#
+ (map (lambda (#{x 36885}#)
+ (#{expand 28271}#
+ #{x 36885}#
+ #{r 36784}#
+ #{w 36785}#
+ #{mod 36787}#))
+ #{fluid 36793}#)
+ (map (lambda (#{x 36963}#)
+ (#{expand 28271}#
+ #{x 36963}#
+ #{r 36784}#
+ #{w 36785}#
+ #{mod 36787}#))
+ #{val 36794}#)
+ (#{expand-body 28275}#
+ (cons #{b 36795}# #{b* 36796}#)
+ (let ((#{x 37052}#
(begin
- (if (if (pair? #{e 13126}#) #{s 13129}# #f)
+ (if (if (pair? #{e 36783}#) #{s 36786}# #f)
(set-source-properties!
- #{e 13126}#
- #{s 13129}#))
- #{e 13126}#)))
- (if (if (null? (car #{w 13128}#))
- (null? (cdr #{w 13128}#))
+ #{e 36783}#
+ #{s 36786}#))
+ #{e 36783}#)))
+ (if (if (null? (car #{w 36785}#))
+ (null? (cdr #{w 36785}#))
#f)
- #{x 13407}#
- (if (if (vector? #{x 13407}#)
- (if (= (vector-length #{x 13407}#) 4)
- (eq? (vector-ref #{x 13407}# 0) 'syntax-object)
+ #{x 37052}#
+ (if (if (vector? #{x 37052}#)
+ (if (= (vector-length #{x 37052}#) 4)
+ (eq? (vector-ref #{x 37052}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 13439}#
- (vector-ref #{x 13407}# 1))
- (#{wrap 13440}#
- (let ((#{w2 13448}#
- (vector-ref #{x 13407}# 2)))
- (let ((#{m1 13449}# (car #{w 13128}#))
- (#{s1 13450}# (cdr #{w 13128}#)))
- (if (null? #{m1 13449}#)
- (if (null? #{s1 13450}#)
- #{w2 13448}#
- (cons (car #{w2 13448}#)
- (let ((#{m2 13465}#
- (cdr #{w2 13448}#)))
- (if (null? #{m2 13465}#)
- #{s1 13450}#
+ (let ((#{expression 37084}#
+ (vector-ref #{x 37052}# 1))
+ (#{wrap 37085}#
+ (let ((#{w2 37093}#
+ (vector-ref #{x 37052}# 2)))
+ (let ((#{m1 37094}# (car #{w 36785}#))
+ (#{s1 37095}# (cdr #{w 36785}#)))
+ (if (null? #{m1 37094}#)
+ (if (null? #{s1 37095}#)
+ #{w2 37093}#
+ (cons (car #{w2 37093}#)
+ (let ((#{m2 37110}#
+ (cdr #{w2 37093}#)))
+ (if (null? #{m2 37110}#)
+ #{s1 37095}#
(append
- #{s1 13450}#
- #{m2 13465}#)))))
- (cons (let ((#{m2 13473}#
- (car #{w2 13448}#)))
- (if (null? #{m2 13473}#)
- #{m1 13449}#
+ #{s1 37095}#
+ #{m2 37110}#)))))
+ (cons (let ((#{m2 37118}#
+ (car #{w2 37093}#)))
+ (if (null? #{m2 37118}#)
+ #{m1 37094}#
(append
- #{m1 13449}#
- #{m2 13473}#)))
- (let ((#{m2 13481}#
- (cdr #{w2 13448}#)))
- (if (null? #{m2 13481}#)
- #{s1 13450}#
+ #{m1 37094}#
+ #{m2 37118}#)))
+ (let ((#{m2 37126}#
+ (cdr #{w2 37093}#)))
+ (if (null? #{m2 37126}#)
+ #{s1 37095}#
(append
- #{s1 13450}#
- #{m2 13481}#))))))))
- (#{module 13441}# (vector-ref #{x 13407}# 3)))
+ #{s1 37095}#
+ #{m2 37126}#))))))))
+ (#{module 37086}# (vector-ref #{x 37052}# 3)))
(vector
'syntax-object
- #{expression 13439}#
- #{wrap 13440}#
- #{module 13441}#))
- (if (null? #{x 13407}#)
- #{x 13407}#
+ #{expression 37084}#
+ #{wrap 37085}#
+ #{module 37086}#))
+ (if (null? #{x 37052}#)
+ #{x 37052}#
(vector
'syntax-object
- #{x 13407}#
- #{w 13128}#
- #{mod 13130}#)))))
- #{r 13127}#
- #{w 13128}#
- #{mod 13130}#)))
- #{tmp 13132}#)
+ #{x 37052}#
+ #{w 36785}#
+ #{mod 36787}#)))))
+ #{r 36784}#
+ #{w 36785}#
+ #{mod 36787}#)))
+ #{tmp 36789}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 13126}#)))))
+ #{e 36783}#)))))
(module-define!
(current-module)
'begin
@@ -12794,68 +12846,68 @@
'eval-when
'eval-when
'()))
- (#{global-extend 4408}#
+ (#{global-extend 28236}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 13785}#
- (lambda (#{pattern 15441}# #{keys 15442}#)
+ ((#{convert-pattern 37426}#
+ (lambda (#{pattern 39048}# #{keys 39049}#)
(letrec*
- ((#{cvt* 15443}#
- (lambda (#{p* 16242}# #{n 16243}# #{ids 16244}#)
- (if (not (pair? #{p* 16242}#))
- (#{cvt 15445}#
- #{p* 16242}#
- #{n 16243}#
- #{ids 16244}#)
+ ((#{cvt* 39050}#
+ (lambda (#{p* 39849}# #{n 39850}# #{ids 39851}#)
+ (if (not (pair? #{p* 39849}#))
+ (#{cvt 39052}#
+ #{p* 39849}#
+ #{n 39850}#
+ #{ids 39851}#)
(call-with-values
(lambda ()
- (#{cvt* 15443}#
- (cdr #{p* 16242}#)
- #{n 16243}#
- #{ids 16244}#))
- (lambda (#{y 16247}# #{ids 16248}#)
+ (#{cvt* 39050}#
+ (cdr #{p* 39849}#)
+ #{n 39850}#
+ #{ids 39851}#))
+ (lambda (#{y 39854}# #{ids 39855}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- (car #{p* 16242}#)
- #{n 16243}#
- #{ids 16248}#))
- (lambda (#{x 16251}# #{ids 16252}#)
+ (#{cvt 39052}#
+ (car #{p* 39849}#)
+ #{n 39850}#
+ #{ids 39855}#))
+ (lambda (#{x 39858}# #{ids 39859}#)
(values
- (cons #{x 16251}# #{y 16247}#)
- #{ids 16252}#))))))))
- (#{v-reverse 15444}#
- (lambda (#{x 16253}#)
+ (cons #{x 39858}# #{y 39854}#)
+ #{ids 39859}#))))))))
+ (#{v-reverse 39051}#
+ (lambda (#{x 39860}#)
(letrec*
- ((#{loop 16254}#
- (lambda (#{r 16355}# #{x 16356}#)
- (if (not (pair? #{x 16356}#))
- (values #{r 16355}# #{x 16356}#)
- (#{loop 16254}#
- (cons (car #{x 16356}#) #{r 16355}#)
- (cdr #{x 16356}#))))))
- (#{loop 16254}# '() #{x 16253}#))))
- (#{cvt 15445}#
- (lambda (#{p 15448}# #{n 15449}# #{ids 15450}#)
- (if (if (symbol? #{p 15448}#)
+ ((#{loop 39861}#
+ (lambda (#{r 39962}# #{x 39963}#)
+ (if (not (pair? #{x 39963}#))
+ (values #{r 39962}# #{x 39963}#)
+ (#{loop 39861}#
+ (cons (car #{x 39963}#) #{r 39962}#)
+ (cdr #{x 39963}#))))))
+ (#{loop 39861}# '() #{x 39860}#))))
+ (#{cvt 39052}#
+ (lambda (#{p 39055}# #{n 39056}# #{ids 39057}#)
+ (if (if (symbol? #{p 39055}#)
#t
- (if (if (vector? #{p 15448}#)
- (if (= (vector-length #{p 15448}#) 4)
- (eq? (vector-ref #{p 15448}# 0)
+ (if (if (vector? #{p 39055}#)
+ (if (= (vector-length #{p 39055}#) 4)
+ (eq? (vector-ref #{p 39055}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 15448}# 1))
+ (symbol? (vector-ref #{p 39055}# 1))
#f))
- (if (#{bound-id-member? 4435}#
- #{p 15448}#
- #{keys 15442}#)
+ (if (#{bound-id-member? 28263}#
+ #{p 39055}#
+ #{keys 39049}#)
(values
- (vector 'free-id #{p 15448}#)
- #{ids 15450}#)
- (if (#{free-id=? 4431}#
- #{p 15448}#
+ (vector 'free-id #{p 39055}#)
+ #{ids 39057}#)
+ (if (#{free-id=? 28259}#
+ #{p 39055}#
'#(syntax-object
_
((top)
@@ -12863,22 +12915,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3847" "i3848" "i3849"))
+ #("i27675" "i27676" "i27677"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3820" "i3818" "i3816"))
+ ("i27648" "i27646" "i27644"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3814" "i3815"))
+ #("i27642" "i27643"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3810" "i3808" "i3806" "i3804"))
+ ("i27638" "i27636" "i27634" "i27632"))
#(ribcage
(lambda-var-list
gen-var
@@ -13156,182 +13208,182 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
- (values '_ #{ids 15450}#)
+ (values '_ #{ids 39057}#)
(values
'any
- (cons (cons #{p 15448}# #{n 15449}#)
- #{ids 15450}#))))
- (let ((#{tmp 15582}#
- ($sc-dispatch #{p 15448}# '(any any))))
- (if (if #{tmp 15582}#
+ (cons (cons #{p 39055}# #{n 39056}#)
+ #{ids 39057}#))))
+ (let ((#{tmp 39189}#
+ ($sc-dispatch #{p 39055}# '(any any))))
+ (if (if #{tmp 39189}#
(@apply
- (lambda (#{x 15586}# #{dots 15587}#)
- (if (if (if (vector? #{dots 15587}#)
+ (lambda (#{x 39193}# #{dots 39194}#)
+ (if (if (if (vector? #{dots 39194}#)
(if (= (vector-length
- #{dots 15587}#)
+ #{dots 39194}#)
4)
(eq? (vector-ref
- #{dots 15587}#
+ #{dots 39194}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 15587}# 1))
+ (symbol? (vector-ref #{dots 39194}# 1))
#f)
- (#{free-id=? 4431}#
- #{dots 15587}#
+ (#{free-id=? 28259}#
+ #{dots 39194}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2338"))
+ #(ribcage #(x) #((top)) #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -13609,192 +13661,192 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f))
- #{tmp 15582}#)
+ #{tmp 39189}#)
#f)
(@apply
- (lambda (#{x 15626}# #{dots 15627}#)
+ (lambda (#{x 39233}# #{dots 39234}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{x 15626}#
- (#{1+}# #{n 15449}#)
- #{ids 15450}#))
- (lambda (#{p 15628}# #{ids 15629}#)
+ (#{cvt 39052}#
+ #{x 39233}#
+ (#{1+}# #{n 39056}#)
+ #{ids 39057}#))
+ (lambda (#{p 39235}# #{ids 39236}#)
(values
- (if (eq? #{p 15628}# 'any)
+ (if (eq? #{p 39235}# 'any)
'each-any
- (vector 'each #{p 15628}#))
- #{ids 15629}#))))
- #{tmp 15582}#)
- (let ((#{tmp 15630}#
- ($sc-dispatch #{p 15448}# '(any any . any))))
- (if (if #{tmp 15630}#
+ (vector 'each #{p 39235}#))
+ #{ids 39236}#))))
+ #{tmp 39189}#)
+ (let ((#{tmp 39237}#
+ ($sc-dispatch #{p 39055}# '(any any . any))))
+ (if (if #{tmp 39237}#
(@apply
- (lambda (#{x 15634}#
- #{dots 15635}#
- #{ys 15636}#)
- (if (if (if (vector? #{dots 15635}#)
+ (lambda (#{x 39241}#
+ #{dots 39242}#
+ #{ys 39243}#)
+ (if (if (if (vector? #{dots 39242}#)
(if (= (vector-length
- #{dots 15635}#)
+ #{dots 39242}#)
4)
(eq? (vector-ref
- #{dots 15635}#
+ #{dots 39242}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 15635}# 1))
+ (vector-ref #{dots 39242}# 1))
#f)
- (#{free-id=? 4431}#
- #{dots 15635}#
+ (#{free-id=? 28259}#
+ #{dots 39242}#
'#(syntax-object
...
((top)
@@ -13803,7 +13855,7 @@
#(ribcage
#(x)
#((top))
- #("i2338"))
+ #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -14081,322 +14133,322 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f))
- #{tmp 15630}#)
+ #{tmp 39237}#)
#f)
(@apply
- (lambda (#{x 15675}#
- #{dots 15676}#
- #{ys 15677}#)
+ (lambda (#{x 39282}#
+ #{dots 39283}#
+ #{ys 39284}#)
(call-with-values
(lambda ()
- (#{cvt* 15443}#
- #{ys 15677}#
- #{n 15449}#
- #{ids 15450}#))
- (lambda (#{ys 16162}# #{ids 16163}#)
+ (#{cvt* 39050}#
+ #{ys 39284}#
+ #{n 39056}#
+ #{ids 39057}#))
+ (lambda (#{ys 39769}# #{ids 39770}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{x 15675}#
- (#{1+}# #{n 15449}#)
- #{ids 16163}#))
- (lambda (#{x 16164}# #{ids 16165}#)
+ (#{cvt 39052}#
+ #{x 39282}#
+ (#{1+}# #{n 39056}#)
+ #{ids 39770}#))
+ (lambda (#{x 39771}# #{ids 39772}#)
(call-with-values
(lambda ()
- (#{v-reverse 15444}#
- #{ys 16162}#))
- (lambda (#{ys 16201}# #{e 16202}#)
+ (#{v-reverse 39051}#
+ #{ys 39769}#))
+ (lambda (#{ys 39808}# #{e 39809}#)
(values
(vector
'each+
- #{x 16164}#
- #{ys 16201}#
- #{e 16202}#)
- #{ids 16165}#))))))))
- #{tmp 15630}#)
- (let ((#{tmp 16203}#
- ($sc-dispatch #{p 15448}# '(any . any))))
- (if #{tmp 16203}#
+ #{x 39771}#
+ #{ys 39808}#
+ #{e 39809}#)
+ #{ids 39772}#))))))))
+ #{tmp 39237}#)
+ (let ((#{tmp 39810}#
+ ($sc-dispatch #{p 39055}# '(any . any))))
+ (if #{tmp 39810}#
(@apply
- (lambda (#{x 16207}# #{y 16208}#)
+ (lambda (#{x 39814}# #{y 39815}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{y 16208}#
- #{n 15449}#
- #{ids 15450}#))
- (lambda (#{y 16209}# #{ids 16210}#)
+ (#{cvt 39052}#
+ #{y 39815}#
+ #{n 39056}#
+ #{ids 39057}#))
+ (lambda (#{y 39816}# #{ids 39817}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{x 16207}#
- #{n 15449}#
- #{ids 16210}#))
- (lambda (#{x 16211}# #{ids 16212}#)
+ (#{cvt 39052}#
+ #{x 39814}#
+ #{n 39056}#
+ #{ids 39817}#))
+ (lambda (#{x 39818}# #{ids 39819}#)
(values
- (cons #{x 16211}# #{y 16209}#)
- #{ids 16212}#))))))
- #{tmp 16203}#)
- (let ((#{tmp 16213}#
- ($sc-dispatch #{p 15448}# '())))
- (if #{tmp 16213}#
+ (cons #{x 39818}# #{y 39816}#)
+ #{ids 39819}#))))))
+ #{tmp 39810}#)
+ (let ((#{tmp 39820}#
+ ($sc-dispatch #{p 39055}# '())))
+ (if #{tmp 39820}#
(@apply
- (lambda () (values '() #{ids 15450}#))
- #{tmp 16213}#)
- (let ((#{tmp 16217}#
+ (lambda () (values '() #{ids 39057}#))
+ #{tmp 39820}#)
+ (let ((#{tmp 39824}#
($sc-dispatch
- #{p 15448}#
+ #{p 39055}#
'#(vector each-any))))
- (if #{tmp 16217}#
+ (if #{tmp 39824}#
(@apply
- (lambda (#{x 16221}#)
+ (lambda (#{x 39828}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{x 16221}#
- #{n 15449}#
- #{ids 15450}#))
- (lambda (#{p 16222}#
- #{ids 16223}#)
+ (#{cvt 39052}#
+ #{x 39828}#
+ #{n 39056}#
+ #{ids 39057}#))
+ (lambda (#{p 39829}#
+ #{ids 39830}#)
(values
(vector
'vector
- #{p 16222}#)
- #{ids 16223}#))))
- #{tmp 16217}#)
+ #{p 39829}#)
+ #{ids 39830}#))))
+ #{tmp 39824}#)
(values
(vector
'atom
- (#{strip 4456}#
- #{p 15448}#
+ (#{strip 28284}#
+ #{p 39055}#
'(())))
- #{ids 15450}#)))))))))))))))
- (#{cvt 15445}# #{pattern 15441}# 0 '()))))
- (#{build-dispatch-call 13786}#
- (lambda (#{pvars 16357}#
- #{exp 16358}#
- #{y 16359}#
- #{r 16360}#
- #{mod 16361}#)
- (let ((#{ids 16362}# (map car #{pvars 16357}#)))
+ #{ids 39057}#)))))))))))))))
+ (#{cvt 39052}# #{pattern 39048}# 0 '()))))
+ (#{build-dispatch-call 37427}#
+ (lambda (#{pvars 39964}#
+ #{exp 39965}#
+ #{y 39966}#
+ #{r 39967}#
+ #{mod 39968}#)
+ (let ((#{ids 39969}# (map car #{pvars 39964}#)))
(begin
- (map cdr #{pvars 16357}#)
- (let ((#{labels 16364}#
- (#{gen-labels 4413}# #{ids 16362}#))
- (#{new-vars 16365}#
- (map #{gen-var 4457}# #{ids 16362}#)))
- (#{build-primcall 4389}#
+ (map cdr #{pvars 39964}#)
+ (let ((#{labels 39971}#
+ (#{gen-labels 28241}# #{ids 39969}#))
+ (#{new-vars 39972}#
+ (map #{gen-var 28285}# #{ids 39969}#)))
+ (#{build-primcall 28217}#
#f
'apply
- (list (#{build-simple-lambda 4386}#
+ (list (#{build-simple-lambda 28214}#
#f
- (map syntax->datum #{ids 16362}#)
+ (map syntax->datum #{ids 39969}#)
#f
- #{new-vars 16365}#
+ #{new-vars 39972}#
'()
- (#{expand 4443}#
- #{exp 16358}#
- (#{extend-env 4405}#
- #{labels 16364}#
- (map (lambda (#{var 16697}# #{level 16698}#)
+ (#{expand 28271}#
+ #{exp 39965}#
+ (#{extend-env 28233}#
+ #{labels 39971}#
+ (map (lambda (#{var 40304}# #{level 40305}#)
(cons 'syntax
- (cons #{var 16697}#
- #{level 16698}#)))
- #{new-vars 16365}#
- (map cdr #{pvars 16357}#))
- #{r 16360}#)
- (#{make-binding-wrap 4424}#
- #{ids 16362}#
- #{labels 16364}#
+ (cons #{var 40304}#
+ #{level 40305}#)))
+ #{new-vars 39972}#
+ (map cdr #{pvars 39964}#))
+ #{r 39967}#)
+ (#{make-binding-wrap 28252}#
+ #{ids 39969}#
+ #{labels 39971}#
'(()))
- #{mod 16361}#))
- #{y 16359}#)))))))
- (#{gen-clause 13787}#
- (lambda (#{x 15035}#
- #{keys 15036}#
- #{clauses 15037}#
- #{r 15038}#
- #{pat 15039}#
- #{fender 15040}#
- #{exp 15041}#
- #{mod 15042}#)
+ #{mod 39968}#))
+ #{y 39966}#)))))))
+ (#{gen-clause 37428}#
+ (lambda (#{x 38632}#
+ #{keys 38633}#
+ #{clauses 38634}#
+ #{r 38635}#
+ #{pat 38636}#
+ #{fender 38637}#
+ #{exp 38638}#
+ #{mod 38639}#)
(call-with-values
(lambda ()
- (#{convert-pattern 13785}#
- #{pat 15039}#
- #{keys 15036}#))
- (lambda (#{p 15180}# #{pvars 15181}#)
- (if (not (#{distinct-bound-ids? 4434}#
- (map car #{pvars 15181}#)))
+ (#{convert-pattern 37426}#
+ #{pat 38636}#
+ #{keys 38633}#))
+ (lambda (#{p 38777}# #{pvars 38778}#)
+ (if (not (#{distinct-bound-ids? 28262}#
+ (map car #{pvars 38778}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 15039}#)
+ #{pat 38636}#)
(if (not (and-map
- (lambda (#{x 15290}#)
- (not (let ((#{x 15294}# (car #{x 15290}#)))
- (if (if (if (vector? #{x 15294}#)
+ (lambda (#{x 38887}#)
+ (not (let ((#{x 38891}# (car #{x 38887}#)))
+ (if (if (if (vector? #{x 38891}#)
(if (= (vector-length
- #{x 15294}#)
+ #{x 38891}#)
4)
(eq? (vector-ref
- #{x 15294}#
+ #{x 38891}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 15294}# 1))
+ (vector-ref #{x 38891}# 1))
#f)
- (#{free-id=? 4431}#
- #{x 15294}#
+ (#{free-id=? 28259}#
+ #{x 38891}#
'#(syntax-object
...
((top)
@@ -14405,7 +14457,7 @@
#(ribcage
#(x)
#((top))
- #("i2338"))
+ #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -14683,190 +14735,190 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f))))
- #{pvars 15181}#))
+ #{pvars 38778}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 15039}#)
- (let ((#{y 15319}#
+ #{pat 38636}#)
+ (let ((#{y 38916}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (let ((#{fun-exp 15324}#
- (let ((#{req 15333}# (list 'tmp))
- (#{vars 15335}# (list #{y 15319}#))
- (#{exp 15337}#
- (let ((#{y 15366}#
+ (let ((#{fun-exp 38921}#
+ (let ((#{req 38930}# (list 'tmp))
+ (#{vars 38932}# (list #{y 38916}#))
+ (#{exp 38934}#
+ (let ((#{y 38963}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
3)
#f
'tmp
- #{y 15319}#)))
- (let ((#{test-exp 15370}#
- (let ((#{tmp 15379}#
+ #{y 38916}#)))
+ (let ((#{test-exp 38967}#
+ (let ((#{tmp 38976}#
($sc-dispatch
- #{fender 15040}#
+ #{fender 38637}#
'#(atom #t))))
- (if #{tmp 15379}#
+ (if #{tmp 38976}#
(@apply
- (lambda () #{y 15366}#)
- #{tmp 15379}#)
- (let ((#{then-exp 15397}#
- (#{build-dispatch-call 13786}#
- #{pvars 15181}#
- #{fender 15040}#
- #{y 15366}#
- #{r 15038}#
- #{mod 15042}#))
- (#{else-exp 15398}#
+ (lambda () #{y 38963}#)
+ #{tmp 38976}#)
+ (let ((#{then-exp 38994}#
+ (#{build-dispatch-call 37427}#
+ #{pvars 38778}#
+ #{fender 38637}#
+ #{y 38963}#
+ #{r 38635}#
+ #{mod 38639}#))
+ (#{else-exp 38995}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -14878,81 +14930,81 @@
%expanded-vtables
10)
#f
- #{y 15366}#
- #{then-exp 15397}#
- #{else-exp 15398}#)))))
- (#{then-exp 15371}#
- (#{build-dispatch-call 13786}#
- #{pvars 15181}#
- #{exp 15041}#
- #{y 15366}#
- #{r 15038}#
- #{mod 15042}#))
- (#{else-exp 15372}#
- (#{gen-syntax-case 13788}#
- #{x 15035}#
- #{keys 15036}#
- #{clauses 15037}#
- #{r 15038}#
- #{mod 15042}#)))
+ #{y 38963}#
+ #{then-exp 38994}#
+ #{else-exp 38995}#)))))
+ (#{then-exp 38968}#
+ (#{build-dispatch-call 37427}#
+ #{pvars 38778}#
+ #{exp 38638}#
+ #{y 38963}#
+ #{r 38635}#
+ #{mod 38639}#))
+ (#{else-exp 38969}#
+ (#{gen-syntax-case 37429}#
+ #{x 38632}#
+ #{keys 38633}#
+ #{clauses 38634}#
+ #{r 38635}#
+ #{mod 38639}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 15370}#
- #{then-exp 15371}#
- #{else-exp 15372}#)))))
- (let ((#{body 15342}#
+ #{test-exp 38967}#
+ #{then-exp 38968}#
+ #{else-exp 38969}#)))))
+ (let ((#{body 38939}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 15333}#
+ #{req 38930}#
#f
#f
#f
'()
- #{vars 15335}#
- #{exp 15337}#
+ #{vars 38932}#
+ #{exp 38934}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 15342}#))))
- (#{arg-exps 15325}#
- (list (if (eq? #{p 15180}# 'any)
- (let ((#{args 15420}#
- (list #{x 15035}#)))
+ #{body 38939}#))))
+ (#{arg-exps 38922}#
+ (list (if (eq? #{p 38777}# 'any)
+ (let ((#{args 39027}#
+ (list #{x 38632}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'list
- #{args 15420}#))
- (let ((#{args 15429}#
- (list #{x 15035}#
+ #{args 39027}#))
+ (let ((#{args 39036}#
+ (list #{x 38632}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 15180}#))))
+ #{p 38777}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'$sc-dispatch
- #{args 15429}#))))))
+ #{args 39036}#))))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 15324}#
- #{arg-exps 15325}#)))))))))
- (#{gen-syntax-case 13788}#
- (lambda (#{x 14532}#
- #{keys 14533}#
- #{clauses 14534}#
- #{r 14535}#
- #{mod 14536}#)
- (if (null? #{clauses 14534}#)
- (let ((#{args 14542}#
+ #{fun-exp 38921}#
+ #{arg-exps 38922}#)))))))))
+ (#{gen-syntax-case 37429}#
+ (lambda (#{x 38133}#
+ #{keys 38134}#
+ #{clauses 38135}#
+ #{r 38136}#
+ #{mod 38137}#)
+ (if (null? #{clauses 38135}#)
+ (let ((#{args 38143}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -14961,57 +15013,60 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 14532}#)))
+ #{x 38133}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'syntax-violation
- #{args 14542}#))
- (let ((#{tmp 14561}# (car #{clauses 14534}#)))
- (let ((#{tmp 14562}#
- ($sc-dispatch #{tmp 14561}# '(any any))))
- (if #{tmp 14562}#
+ #{args 38143}#))
+ (let ((#{tmp 38162}# (car #{clauses 38135}#)))
+ (let ((#{tmp 38163}#
+ ($sc-dispatch #{tmp 38162}# '(any any))))
+ (if #{tmp 38163}#
(@apply
- (lambda (#{pat 14564}# #{exp 14565}#)
- (if (if (if (symbol? #{pat 14564}#)
+ (lambda (#{pat 38165}# #{exp 38166}#)
+ (if (if (if (symbol? #{pat 38165}#)
#t
- (if (if (vector? #{pat 14564}#)
- (if (= (vector-length #{pat 14564}#)
+ (if (if (vector? #{pat 38165}#)
+ (if (= (vector-length #{pat 38165}#)
4)
- (eq? (vector-ref #{pat 14564}# 0)
+ (eq? (vector-ref #{pat 38165}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 14564}# 1))
+ (symbol? (vector-ref #{pat 38165}# 1))
#f))
(and-map
- (lambda (#{x 14592}#)
- (not (#{free-id=? 4431}#
- #{pat 14564}#
- #{x 14592}#)))
+ (lambda (#{x 38193}#)
+ (not (#{free-id=? 28259}#
+ #{pat 38165}#
+ #{x 38193}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i4007" "i4008"))
+ #("i27835" "i27836"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3997"
- "i3998"
- "i3999"
- "i4000"
- "i4001"))
+ #("i27825"
+ "i27826"
+ "i27827"
+ "i27828"
+ "i27829"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3810" "i3808" "i3806" "i3804"))
+ ("i27638"
+ "i27636"
+ "i27634"
+ "i27632"))
#(ribcage
(lambda-var-list
gen-var
@@ -15289,178 +15344,178 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
- #{keys 14533}#))
+ #{keys 38134}#))
#f)
- (if (#{free-id=? 4431}#
+ (if (#{free-id=? 28259}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i4007" "i4008"))
+ #("i27835" "i27836"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3997"
- "i3998"
- "i3999"
- "i4000"
- "i4001"))
+ #("i27825"
+ "i27826"
+ "i27827"
+ "i27828"
+ "i27829"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3810" "i3808" "i3806" "i3804"))
+ ("i27638" "i27636" "i27634" "i27632"))
#(ribcage
(lambda-var-list
gen-var
@@ -15738,150 +15793,150 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
'#(syntax-object
@@ -15890,23 +15945,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i4007" "i4008"))
+ #("i27835" "i27836"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3997"
- "i3998"
- "i3999"
- "i4000"
- "i4001"))
+ #("i27825"
+ "i27826"
+ "i27827"
+ "i27828"
+ "i27829"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3810" "i3808" "i3806" "i3804"))
+ ("i27638" "i27636" "i27634" "i27632"))
#(ribcage
(lambda-var-list
gen-var
@@ -16184,327 +16239,327 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
- (#{expand 4443}#
- #{exp 14565}#
- #{r 14535}#
+ (#{expand 28271}#
+ #{exp 38166}#
+ #{r 38136}#
'(())
- #{mod 14536}#)
- (let ((#{labels 14678}#
+ #{mod 38137}#)
+ (let ((#{labels 38275}#
(list (symbol->string (gensym "i"))))
- (#{var 14679}#
- (let ((#{id 14717}#
- (if (if (vector? #{pat 14564}#)
+ (#{var 38276}#
+ (let ((#{id 38314}#
+ (if (if (vector? #{pat 38165}#)
(if (= (vector-length
- #{pat 14564}#)
+ #{pat 38165}#)
4)
(eq? (vector-ref
- #{pat 14564}#
+ #{pat 38165}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 14564}# 1)
- #{pat 14564}#)))
+ (vector-ref #{pat 38165}# 1)
+ #{pat 38165}#)))
(gensym
(string-append
- (symbol->string #{id 14717}#)
+ (symbol->string #{id 38314}#)
" ")))))
- (#{build-call 4377}#
+ (#{build-call 28205}#
#f
- (#{build-simple-lambda 4386}#
+ (#{build-simple-lambda 28214}#
#f
- (list (syntax->datum #{pat 14564}#))
+ (list (syntax->datum #{pat 38165}#))
#f
- (list #{var 14679}#)
+ (list #{var 38276}#)
'()
- (#{expand 4443}#
- #{exp 14565}#
- (#{extend-env 4405}#
- #{labels 14678}#
+ (#{expand 28271}#
+ #{exp 38166}#
+ (#{extend-env 28233}#
+ #{labels 38275}#
(list (cons 'syntax
- (cons #{var 14679}# 0)))
- #{r 14535}#)
- (#{make-binding-wrap 4424}#
- (list #{pat 14564}#)
- #{labels 14678}#
+ (cons #{var 38276}# 0)))
+ #{r 38136}#)
+ (#{make-binding-wrap 28252}#
+ (list #{pat 38165}#)
+ #{labels 38275}#
'(()))
- #{mod 14536}#))
- (list #{x 14532}#))))
- (#{gen-clause 13787}#
- #{x 14532}#
- #{keys 14533}#
- (cdr #{clauses 14534}#)
- #{r 14535}#
- #{pat 14564}#
+ #{mod 38137}#))
+ (list #{x 38133}#))))
+ (#{gen-clause 37428}#
+ #{x 38133}#
+ #{keys 38134}#
+ (cdr #{clauses 38135}#)
+ #{r 38136}#
+ #{pat 38165}#
#t
- #{exp 14565}#
- #{mod 14536}#)))
- #{tmp 14562}#)
- (let ((#{tmp 15027}#
- ($sc-dispatch #{tmp 14561}# '(any any any))))
- (if #{tmp 15027}#
+ #{exp 38166}#
+ #{mod 38137}#)))
+ #{tmp 38163}#)
+ (let ((#{tmp 38624}#
+ ($sc-dispatch #{tmp 38162}# '(any any any))))
+ (if #{tmp 38624}#
(@apply
- (lambda (#{pat 15029}#
- #{fender 15030}#
- #{exp 15031}#)
- (#{gen-clause 13787}#
- #{x 14532}#
- #{keys 14533}#
- (cdr #{clauses 14534}#)
- #{r 14535}#
- #{pat 15029}#
- #{fender 15030}#
- #{exp 15031}#
- #{mod 14536}#))
- #{tmp 15027}#)
+ (lambda (#{pat 38626}#
+ #{fender 38627}#
+ #{exp 38628}#)
+ (#{gen-clause 37428}#
+ #{x 38133}#
+ #{keys 38134}#
+ (cdr #{clauses 38135}#)
+ #{r 38136}#
+ #{pat 38626}#
+ #{fender 38627}#
+ #{exp 38628}#
+ #{mod 38137}#))
+ #{tmp 38624}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 14534}#)))))))))))
- (lambda (#{e 13789}#
- #{r 13790}#
- #{w 13791}#
- #{s 13792}#
- #{mod 13793}#)
- (let ((#{e 13794}#
- (let ((#{x 14443}#
+ (car #{clauses 38135}#)))))))))))
+ (lambda (#{e 37430}#
+ #{r 37431}#
+ #{w 37432}#
+ #{s 37433}#
+ #{mod 37434}#)
+ (let ((#{e 37435}#
+ (let ((#{x 38044}#
(begin
- (if (if (pair? #{e 13789}#) #{s 13792}# #f)
- (set-source-properties! #{e 13789}# #{s 13792}#))
- #{e 13789}#)))
- (if (if (null? (car #{w 13791}#))
- (null? (cdr #{w 13791}#))
+ (if (if (pair? #{e 37430}#) #{s 37433}# #f)
+ (set-source-properties! #{e 37430}# #{s 37433}#))
+ #{e 37430}#)))
+ (if (if (null? (car #{w 37432}#))
+ (null? (cdr #{w 37432}#))
#f)
- #{x 14443}#
- (if (if (vector? #{x 14443}#)
- (if (= (vector-length #{x 14443}#) 4)
- (eq? (vector-ref #{x 14443}# 0) 'syntax-object)
+ #{x 38044}#
+ (if (if (vector? #{x 38044}#)
+ (if (= (vector-length #{x 38044}#) 4)
+ (eq? (vector-ref #{x 38044}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 14475}# (vector-ref #{x 14443}# 1))
- (#{wrap 14476}#
- (let ((#{w2 14484}#
- (vector-ref #{x 14443}# 2)))
- (let ((#{m1 14485}# (car #{w 13791}#))
- (#{s1 14486}# (cdr #{w 13791}#)))
- (if (null? #{m1 14485}#)
- (if (null? #{s1 14486}#)
- #{w2 14484}#
- (cons (car #{w2 14484}#)
- (let ((#{m2 14501}#
- (cdr #{w2 14484}#)))
- (if (null? #{m2 14501}#)
- #{s1 14486}#
+ (let ((#{expression 38076}# (vector-ref #{x 38044}# 1))
+ (#{wrap 38077}#
+ (let ((#{w2 38085}#
+ (vector-ref #{x 38044}# 2)))
+ (let ((#{m1 38086}# (car #{w 37432}#))
+ (#{s1 38087}# (cdr #{w 37432}#)))
+ (if (null? #{m1 38086}#)
+ (if (null? #{s1 38087}#)
+ #{w2 38085}#
+ (cons (car #{w2 38085}#)
+ (let ((#{m2 38102}#
+ (cdr #{w2 38085}#)))
+ (if (null? #{m2 38102}#)
+ #{s1 38087}#
(append
- #{s1 14486}#
- #{m2 14501}#)))))
- (cons (let ((#{m2 14509}#
- (car #{w2 14484}#)))
- (if (null? #{m2 14509}#)
- #{m1 14485}#
+ #{s1 38087}#
+ #{m2 38102}#)))))
+ (cons (let ((#{m2 38110}#
+ (car #{w2 38085}#)))
+ (if (null? #{m2 38110}#)
+ #{m1 38086}#
(append
- #{m1 14485}#
- #{m2 14509}#)))
- (let ((#{m2 14517}#
- (cdr #{w2 14484}#)))
- (if (null? #{m2 14517}#)
- #{s1 14486}#
+ #{m1 38086}#
+ #{m2 38110}#)))
+ (let ((#{m2 38118}#
+ (cdr #{w2 38085}#)))
+ (if (null? #{m2 38118}#)
+ #{s1 38087}#
(append
- #{s1 14486}#
- #{m2 14517}#))))))))
- (#{module 14477}# (vector-ref #{x 14443}# 3)))
+ #{s1 38087}#
+ #{m2 38118}#))))))))
+ (#{module 38078}# (vector-ref #{x 38044}# 3)))
(vector
'syntax-object
- #{expression 14475}#
- #{wrap 14476}#
- #{module 14477}#))
- (if (null? #{x 14443}#)
- #{x 14443}#
+ #{expression 38076}#
+ #{wrap 38077}#
+ #{module 38078}#))
+ (if (null? #{x 38044}#)
+ #{x 38044}#
(vector
'syntax-object
- #{x 14443}#
- #{w 13791}#
- #{mod 13793}#)))))))
- (let ((#{tmp 13795}# #{e 13794}#))
- (let ((#{tmp 13796}#
+ #{x 38044}#
+ #{w 37432}#
+ #{mod 37434}#)))))))
+ (let ((#{tmp 37436}# #{e 37435}#))
+ (let ((#{tmp 37437}#
($sc-dispatch
- #{tmp 13795}#
+ #{tmp 37436}#
'(_ any each-any . each-any))))
- (if #{tmp 13796}#
+ (if #{tmp 37437}#
(@apply
- (lambda (#{val 13848}# #{key 13849}# #{m 13850}#)
+ (lambda (#{val 37485}# #{key 37486}# #{m 37487}#)
(if (and-map
- (lambda (#{x 13851}#)
- (if (if (symbol? #{x 13851}#)
+ (lambda (#{x 37488}#)
+ (if (if (symbol? #{x 37488}#)
#t
- (if (if (vector? #{x 13851}#)
- (if (= (vector-length #{x 13851}#) 4)
- (eq? (vector-ref #{x 13851}# 0)
+ (if (if (vector? #{x 37488}#)
+ (if (= (vector-length #{x 37488}#) 4)
+ (eq? (vector-ref #{x 37488}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 13851}# 1))
+ (symbol? (vector-ref #{x 37488}# 1))
#f))
- (not (if (if (if (vector? #{x 13851}#)
+ (not (if (if (if (vector? #{x 37488}#)
(if (= (vector-length
- #{x 13851}#)
+ #{x 37488}#)
4)
(eq? (vector-ref
- #{x 13851}#
+ #{x 37488}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 13851}# 1))
+ (symbol? (vector-ref #{x 37488}# 1))
#f)
- (#{free-id=? 4431}#
- #{x 13851}#
+ (#{free-id=? 28259}#
+ #{x 37488}#
'#(syntax-object
...
((top)
@@ -16513,7 +16568,7 @@
#(ribcage
#(x)
#((top))
- #("i2338"))
+ #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -16791,938 +16846,938 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "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"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f))
#f))
- #{key 13849}#)
- (let ((#{x 13916}#
+ #{key 37486}#)
+ (let ((#{x 37553}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-call 4377}#
- #{s 13792}#
- (let ((#{req 14058}# (list 'tmp))
- (#{vars 14060}# (list #{x 13916}#))
- (#{exp 14062}#
- (#{gen-syntax-case 13788}#
+ (#{build-call 28205}#
+ #{s 37433}#
+ (let ((#{req 37691}# (list 'tmp))
+ (#{vars 37693}# (list #{x 37553}#))
+ (#{exp 37695}#
+ (#{gen-syntax-case 37429}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 13916}#)
- #{key 13849}#
- #{m 13850}#
- #{r 13790}#
- #{mod 13793}#)))
- (let ((#{body 14067}#
+ #{x 37553}#)
+ #{key 37486}#
+ #{m 37487}#
+ #{r 37431}#
+ #{mod 37434}#)))
+ (let ((#{body 37700}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 14058}#
+ #{req 37691}#
#f
#f
#f
'()
- #{vars 14060}#
- #{exp 14062}#
+ #{vars 37693}#
+ #{exp 37695}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 14067}#)))
- (list (#{expand 4443}#
- #{val 13848}#
- #{r 13790}#
+ #{body 37700}#)))
+ (list (#{expand 28271}#
+ #{val 37485}#
+ #{r 37431}#
'(())
- #{mod 13793}#))))
+ #{mod 37434}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 13794}#)))
- #{tmp 13796}#)
+ #{e 37435}#)))
+ #{tmp 37437}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 13795}#))))))))
+ #{tmp 37436}#))))))))
(set! macroexpand
(lambda*
- (#{x 16799}#
+ (#{x 40406}#
#:optional
- (#{m 16800}# 'e)
- (#{esew 16801}# '(eval)))
- (#{expand-top-sequence 4439}#
- (list #{x 16799}#)
+ (#{m 40407}# 'e)
+ (#{esew 40408}# '(eval)))
+ (#{expand-top-sequence 28267}#
+ (list #{x 40406}#)
'()
'((top))
#f
- #{m 16800}#
- #{esew 16801}#
+ #{m 40407}#
+ #{esew 40408}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 16804}#)
- (if (if (vector? #{x 16804}#)
- (if (= (vector-length #{x 16804}#) 4)
- (eq? (vector-ref #{x 16804}# 0) 'syntax-object)
+ (lambda (#{x 40411}#)
+ (if (if (vector? #{x 40411}#)
+ (if (= (vector-length #{x 40411}#) 4)
+ (eq? (vector-ref #{x 40411}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 16804}# 1))
+ (symbol? (vector-ref #{x 40411}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 16829}# #{datum 16830}#)
- (let ((#{wrap 16835}# (vector-ref #{id 16829}# 2))
- (#{module 16836}# (vector-ref #{id 16829}# 3)))
+ (lambda (#{id 40436}# #{datum 40437}#)
+ (let ((#{wrap 40442}# (vector-ref #{id 40436}# 2))
+ (#{module 40443}# (vector-ref #{id 40436}# 3)))
(vector
'syntax-object
- #{datum 16830}#
- #{wrap 16835}#
- #{module 16836}#))))
+ #{datum 40437}#
+ #{wrap 40442}#
+ #{module 40443}#))))
(set! syntax->datum
- (lambda (#{x 16843}#)
- (#{strip 4456}# #{x 16843}# '(()))))
+ (lambda (#{x 40450}#)
+ (#{strip 28284}# #{x 40450}# '(()))))
(set! syntax-source
- (lambda (#{x 16846}#)
- (#{source-annotation 4404}# #{x 16846}#)))
+ (lambda (#{x 40453}#)
+ (#{source-annotation 28232}# #{x 40453}#)))
(set! generate-temporaries
- (lambda (#{ls 17048}#)
+ (lambda (#{ls 40637}#)
(begin
- (if (not (list? #{ls 17048}#))
+ (if (not (list? #{ls 40637}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 17048}#))
- (let ((#{mod 17056}#
+ #{ls 40637}#))
+ (let ((#{mod 40645}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 17057}#)
- (let ((#{x 17061}# (gensym)))
- (if (if (vector? #{x 17061}#)
- (if (= (vector-length #{x 17061}#) 4)
- (eq? (vector-ref #{x 17061}# 0) 'syntax-object)
+ (map (lambda (#{x 40646}#)
+ (let ((#{x 40650}# (gensym)))
+ (if (if (vector? #{x 40650}#)
+ (if (= (vector-length #{x 40650}#) 4)
+ (eq? (vector-ref #{x 40650}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 17076}# (vector-ref #{x 17061}# 1))
- (#{wrap 17077}#
- (let ((#{w2 17085}# (vector-ref #{x 17061}# 2)))
- (cons (let ((#{m2 17092}# (car #{w2 17085}#)))
- (if (null? #{m2 17092}#)
+ (let ((#{expression 40665}# (vector-ref #{x 40650}# 1))
+ (#{wrap 40666}#
+ (let ((#{w2 40674}# (vector-ref #{x 40650}# 2)))
+ (cons (let ((#{m2 40681}# (car #{w2 40674}#)))
+ (if (null? #{m2 40681}#)
'(top)
- (append '(top) #{m2 17092}#)))
- (let ((#{m2 17099}# (cdr #{w2 17085}#)))
- (if (null? #{m2 17099}#)
+ (append '(top) #{m2 40681}#)))
+ (let ((#{m2 40688}# (cdr #{w2 40674}#)))
+ (if (null? #{m2 40688}#)
'()
- (append '() #{m2 17099}#))))))
- (#{module 17078}# (vector-ref #{x 17061}# 3)))
+ (append '() #{m2 40688}#))))))
+ (#{module 40667}# (vector-ref #{x 40650}# 3)))
(vector
'syntax-object
- #{expression 17076}#
- #{wrap 17077}#
- #{module 17078}#))
- (if (null? #{x 17061}#)
- #{x 17061}#
+ #{expression 40665}#
+ #{wrap 40666}#
+ #{module 40667}#))
+ (if (null? #{x 40650}#)
+ #{x 40650}#
(vector
'syntax-object
- #{x 17061}#
+ #{x 40650}#
'((top))
- #{mod 17056}#)))))
- #{ls 17048}#)))))
+ #{mod 40645}#)))))
+ #{ls 40637}#)))))
(set! free-identifier=?
- (lambda (#{x 17108}# #{y 17109}#)
+ (lambda (#{x 40697}# #{y 40698}#)
(begin
- (if (not (if (if (vector? #{x 17108}#)
- (if (= (vector-length #{x 17108}#) 4)
- (eq? (vector-ref #{x 17108}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 40697}#)
+ (if (= (vector-length #{x 40697}#) 4)
+ (eq? (vector-ref #{x 40697}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17108}# 1))
+ (symbol? (vector-ref #{x 40697}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 17108}#))
- (if (not (if (if (vector? #{y 17109}#)
- (if (= (vector-length #{y 17109}#) 4)
- (eq? (vector-ref #{y 17109}# 0) 'syntax-object)
+ #{x 40697}#))
+ (if (not (if (if (vector? #{y 40698}#)
+ (if (= (vector-length #{y 40698}#) 4)
+ (eq? (vector-ref #{y 40698}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17109}# 1))
+ (symbol? (vector-ref #{y 40698}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 17109}#))
- (#{free-id=? 4431}# #{x 17108}# #{y 17109}#))))
+ #{y 40698}#))
+ (#{free-id=? 28259}# #{x 40697}# #{y 40698}#))))
(set! bound-identifier=?
- (lambda (#{x 17184}# #{y 17185}#)
+ (lambda (#{x 40773}# #{y 40774}#)
(begin
- (if (not (if (if (vector? #{x 17184}#)
- (if (= (vector-length #{x 17184}#) 4)
- (eq? (vector-ref #{x 17184}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 40773}#)
+ (if (= (vector-length #{x 40773}#) 4)
+ (eq? (vector-ref #{x 40773}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17184}# 1))
+ (symbol? (vector-ref #{x 40773}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 17184}#))
- (if (not (if (if (vector? #{y 17185}#)
- (if (= (vector-length #{y 17185}#) 4)
- (eq? (vector-ref #{y 17185}# 0) 'syntax-object)
+ #{x 40773}#))
+ (if (not (if (if (vector? #{y 40774}#)
+ (if (= (vector-length #{y 40774}#) 4)
+ (eq? (vector-ref #{y 40774}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17185}# 1))
+ (symbol? (vector-ref #{y 40774}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 17185}#))
- (#{bound-id=? 4432}# #{x 17184}# #{y 17185}#))))
+ #{y 40774}#))
+ (#{bound-id=? 28260}# #{x 40773}# #{y 40774}#))))
(set! syntax-violation
(lambda*
- (#{who 17351}#
- #{message 17352}#
- #{form 17353}#
+ (#{who 40940}#
+ #{message 40941}#
+ #{form 40942}#
#:optional
- (#{subform 17354}# #f))
+ (#{subform 40943}# #f))
(begin
- (if (not (if (not #{who 17351}#)
- (not #{who 17351}#)
- (let ((#{t 17372}# (string? #{who 17351}#)))
- (if #{t 17372}#
- #{t 17372}#
- (symbol? #{who 17351}#)))))
+ (if (not (if (not #{who 40940}#)
+ (not #{who 40940}#)
+ (let ((#{t 40961}# (string? #{who 40940}#)))
+ (if #{t 40961}#
+ #{t 40961}#
+ (symbol? #{who 40940}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 17351}#))
- (if (not (string? #{message 17352}#))
+ #{who 40940}#))
+ (if (not (string? #{message 40941}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 17352}#))
+ #{message 40941}#))
(throw 'syntax-error
- #{who 17351}#
- #{message 17352}#
- (#{source-annotation 4404}#
- (if #{form 17353}#
- #{form 17353}#
- #{subform 17354}#))
- (#{strip 4456}# #{form 17353}# '(()))
- (if #{subform 17354}#
- (#{strip 4456}# #{subform 17354}# '(()))
+ #{who 40940}#
+ #{message 40941}#
+ (#{source-annotation 28232}#
+ (if #{form 40942}#
+ #{form 40942}#
+ #{subform 40943}#))
+ (#{strip 28284}# #{form 40942}# '(()))
+ (if #{subform 40943}#
+ (#{strip 28284}# #{subform 40943}# '(()))
#f)))))
(letrec*
- ((#{match-each 17623}#
- (lambda (#{e 18511}#
- #{p 18512}#
- #{w 18513}#
- #{mod 18514}#)
- (if (pair? #{e 18511}#)
- (let ((#{first 18515}#
- (#{match 17629}#
- (car #{e 18511}#)
- #{p 18512}#
- #{w 18513}#
+ ((#{match-each 41192}#
+ (lambda (#{e 42071}#
+ #{p 42072}#
+ #{w 42073}#
+ #{mod 42074}#)
+ (if (pair? #{e 42071}#)
+ (let ((#{first 42075}#
+ (#{match 41198}#
+ (car #{e 42071}#)
+ #{p 42072}#
+ #{w 42073}#
'()
- #{mod 18514}#)))
- (if #{first 18515}#
- (let ((#{rest 18518}#
- (#{match-each 17623}#
- (cdr #{e 18511}#)
- #{p 18512}#
- #{w 18513}#
- #{mod 18514}#)))
- (if #{rest 18518}#
- (cons #{first 18515}# #{rest 18518}#)
+ #{mod 42074}#)))
+ (if #{first 42075}#
+ (let ((#{rest 42078}#
+ (#{match-each 41192}#
+ (cdr #{e 42071}#)
+ #{p 42072}#
+ #{w 42073}#
+ #{mod 42074}#)))
+ (if #{rest 42078}#
+ (cons #{first 42075}# #{rest 42078}#)
#f))
#f))
- (if (null? #{e 18511}#)
+ (if (null? #{e 42071}#)
'()
- (if (if (vector? #{e 18511}#)
- (if (= (vector-length #{e 18511}#) 4)
- (eq? (vector-ref #{e 18511}# 0) 'syntax-object)
+ (if (if (vector? #{e 42071}#)
+ (if (= (vector-length #{e 42071}#) 4)
+ (eq? (vector-ref #{e 42071}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 17623}#
- (vector-ref #{e 18511}# 1)
- #{p 18512}#
- (let ((#{w2 18540}# (vector-ref #{e 18511}# 2)))
- (let ((#{m1 18541}# (car #{w 18513}#))
- (#{s1 18542}# (cdr #{w 18513}#)))
- (if (null? #{m1 18541}#)
- (if (null? #{s1 18542}#)
- #{w2 18540}#
- (cons (car #{w2 18540}#)
- (let ((#{m2 18553}# (cdr #{w2 18540}#)))
- (if (null? #{m2 18553}#)
- #{s1 18542}#
- (append #{s1 18542}# #{m2 18553}#)))))
- (cons (let ((#{m2 18561}# (car #{w2 18540}#)))
- (if (null? #{m2 18561}#)
- #{m1 18541}#
- (append #{m1 18541}# #{m2 18561}#)))
- (let ((#{m2 18569}# (cdr #{w2 18540}#)))
- (if (null? #{m2 18569}#)
- #{s1 18542}#
- (append #{s1 18542}# #{m2 18569}#)))))))
- (vector-ref #{e 18511}# 3))
+ (#{match-each 41192}#
+ (vector-ref #{e 42071}# 1)
+ #{p 42072}#
+ (let ((#{w2 42100}# (vector-ref #{e 42071}# 2)))
+ (let ((#{m1 42101}# (car #{w 42073}#))
+ (#{s1 42102}# (cdr #{w 42073}#)))
+ (if (null? #{m1 42101}#)
+ (if (null? #{s1 42102}#)
+ #{w2 42100}#
+ (cons (car #{w2 42100}#)
+ (let ((#{m2 42113}# (cdr #{w2 42100}#)))
+ (if (null? #{m2 42113}#)
+ #{s1 42102}#
+ (append #{s1 42102}# #{m2 42113}#)))))
+ (cons (let ((#{m2 42121}# (car #{w2 42100}#)))
+ (if (null? #{m2 42121}#)
+ #{m1 42101}#
+ (append #{m1 42101}# #{m2 42121}#)))
+ (let ((#{m2 42129}# (cdr #{w2 42100}#)))
+ (if (null? #{m2 42129}#)
+ #{s1 42102}#
+ (append #{s1 42102}# #{m2 42129}#)))))))
+ (vector-ref #{e 42071}# 3))
#f)))))
- (#{match-each-any 17625}#
- (lambda (#{e 18578}# #{w 18579}# #{mod 18580}#)
- (if (pair? #{e 18578}#)
- (let ((#{l 18581}#
- (#{match-each-any 17625}#
- (cdr #{e 18578}#)
- #{w 18579}#
- #{mod 18580}#)))
- (if #{l 18581}#
- (cons (let ((#{x 18586}# (car #{e 18578}#)))
- (if (if (null? (car #{w 18579}#))
- (null? (cdr #{w 18579}#))
+ (#{match-each-any 41194}#
+ (lambda (#{e 42138}# #{w 42139}# #{mod 42140}#)
+ (if (pair? #{e 42138}#)
+ (let ((#{l 42141}#
+ (#{match-each-any 41194}#
+ (cdr #{e 42138}#)
+ #{w 42139}#
+ #{mod 42140}#)))
+ (if #{l 42141}#
+ (cons (let ((#{x 42146}# (car #{e 42138}#)))
+ (if (if (null? (car #{w 42139}#))
+ (null? (cdr #{w 42139}#))
#f)
- #{x 18586}#
- (if (if (vector? #{x 18586}#)
- (if (= (vector-length #{x 18586}#) 4)
- (eq? (vector-ref #{x 18586}# 0)
+ #{x 42146}#
+ (if (if (vector? #{x 42146}#)
+ (if (= (vector-length #{x 42146}#) 4)
+ (eq? (vector-ref #{x 42146}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18604}#
- (vector-ref #{x 18586}# 1))
- (#{wrap 18605}#
- (let ((#{w2 18613}#
- (vector-ref #{x 18586}# 2)))
- (let ((#{m1 18614}# (car #{w 18579}#))
- (#{s1 18615}# (cdr #{w 18579}#)))
- (if (null? #{m1 18614}#)
- (if (null? #{s1 18615}#)
- #{w2 18613}#
- (cons (car #{w2 18613}#)
- (let ((#{m2 18630}#
- (cdr #{w2 18613}#)))
- (if (null? #{m2 18630}#)
- #{s1 18615}#
+ (let ((#{expression 42164}#
+ (vector-ref #{x 42146}# 1))
+ (#{wrap 42165}#
+ (let ((#{w2 42173}#
+ (vector-ref #{x 42146}# 2)))
+ (let ((#{m1 42174}# (car #{w 42139}#))
+ (#{s1 42175}# (cdr #{w 42139}#)))
+ (if (null? #{m1 42174}#)
+ (if (null? #{s1 42175}#)
+ #{w2 42173}#
+ (cons (car #{w2 42173}#)
+ (let ((#{m2 42190}#
+ (cdr #{w2 42173}#)))
+ (if (null? #{m2 42190}#)
+ #{s1 42175}#
(append
- #{s1 18615}#
- #{m2 18630}#)))))
- (cons (let ((#{m2 18638}#
- (car #{w2 18613}#)))
- (if (null? #{m2 18638}#)
- #{m1 18614}#
+ #{s1 42175}#
+ #{m2 42190}#)))))
+ (cons (let ((#{m2 42198}#
+ (car #{w2 42173}#)))
+ (if (null? #{m2 42198}#)
+ #{m1 42174}#
(append
- #{m1 18614}#
- #{m2 18638}#)))
- (let ((#{m2 18646}#
- (cdr #{w2 18613}#)))
- (if (null? #{m2 18646}#)
- #{s1 18615}#
+ #{m1 42174}#
+ #{m2 42198}#)))
+ (let ((#{m2 42206}#
+ (cdr #{w2 42173}#)))
+ (if (null? #{m2 42206}#)
+ #{s1 42175}#
(append
- #{s1 18615}#
- #{m2 18646}#))))))))
- (#{module 18606}#
- (vector-ref #{x 18586}# 3)))
+ #{s1 42175}#
+ #{m2 42206}#))))))))
+ (#{module 42166}#
+ (vector-ref #{x 42146}# 3)))
(vector
'syntax-object
- #{expression 18604}#
- #{wrap 18605}#
- #{module 18606}#))
- (if (null? #{x 18586}#)
- #{x 18586}#
+ #{expression 42164}#
+ #{wrap 42165}#
+ #{module 42166}#))
+ (if (null? #{x 42146}#)
+ #{x 42146}#
(vector
'syntax-object
- #{x 18586}#
- #{w 18579}#
- #{mod 18580}#)))))
- #{l 18581}#)
+ #{x 42146}#
+ #{w 42139}#
+ #{mod 42140}#)))))
+ #{l 42141}#)
#f))
- (if (null? #{e 18578}#)
+ (if (null? #{e 42138}#)
'()
- (if (if (vector? #{e 18578}#)
- (if (= (vector-length #{e 18578}#) 4)
- (eq? (vector-ref #{e 18578}# 0) 'syntax-object)
+ (if (if (vector? #{e 42138}#)
+ (if (= (vector-length #{e 42138}#) 4)
+ (eq? (vector-ref #{e 42138}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 17625}#
- (vector-ref #{e 18578}# 1)
- (let ((#{w2 18679}# (vector-ref #{e 18578}# 2)))
- (let ((#{m1 18680}# (car #{w 18579}#))
- (#{s1 18681}# (cdr #{w 18579}#)))
- (if (null? #{m1 18680}#)
- (if (null? #{s1 18681}#)
- #{w2 18679}#
- (cons (car #{w2 18679}#)
- (let ((#{m2 18692}# (cdr #{w2 18679}#)))
- (if (null? #{m2 18692}#)
- #{s1 18681}#
- (append #{s1 18681}# #{m2 18692}#)))))
- (cons (let ((#{m2 18700}# (car #{w2 18679}#)))
- (if (null? #{m2 18700}#)
- #{m1 18680}#
- (append #{m1 18680}# #{m2 18700}#)))
- (let ((#{m2 18708}# (cdr #{w2 18679}#)))
- (if (null? #{m2 18708}#)
- #{s1 18681}#
- (append #{s1 18681}# #{m2 18708}#)))))))
- #{mod 18580}#)
+ (#{match-each-any 41194}#
+ (vector-ref #{e 42138}# 1)
+ (let ((#{w2 42239}# (vector-ref #{e 42138}# 2)))
+ (let ((#{m1 42240}# (car #{w 42139}#))
+ (#{s1 42241}# (cdr #{w 42139}#)))
+ (if (null? #{m1 42240}#)
+ (if (null? #{s1 42241}#)
+ #{w2 42239}#
+ (cons (car #{w2 42239}#)
+ (let ((#{m2 42252}# (cdr #{w2 42239}#)))
+ (if (null? #{m2 42252}#)
+ #{s1 42241}#
+ (append #{s1 42241}# #{m2 42252}#)))))
+ (cons (let ((#{m2 42260}# (car #{w2 42239}#)))
+ (if (null? #{m2 42260}#)
+ #{m1 42240}#
+ (append #{m1 42240}# #{m2 42260}#)))
+ (let ((#{m2 42268}# (cdr #{w2 42239}#)))
+ (if (null? #{m2 42268}#)
+ #{s1 42241}#
+ (append #{s1 42241}# #{m2 42268}#)))))))
+ #{mod 42140}#)
#f)))))
- (#{match-empty 17626}#
- (lambda (#{p 18713}# #{r 18714}#)
- (if (null? #{p 18713}#)
- #{r 18714}#
- (if (eq? #{p 18713}# '_)
- #{r 18714}#
- (if (eq? #{p 18713}# 'any)
- (cons '() #{r 18714}#)
- (if (pair? #{p 18713}#)
- (#{match-empty 17626}#
- (car #{p 18713}#)
- (#{match-empty 17626}#
- (cdr #{p 18713}#)
- #{r 18714}#))
- (if (eq? #{p 18713}# 'each-any)
- (cons '() #{r 18714}#)
- (let ((#{atom-key 18715}# (vector-ref #{p 18713}# 0)))
- (if (eqv? #{atom-key 18715}# 'each)
- (#{match-empty 17626}#
- (vector-ref #{p 18713}# 1)
- #{r 18714}#)
- (if (eqv? #{atom-key 18715}# 'each+)
- (#{match-empty 17626}#
- (vector-ref #{p 18713}# 1)
- (#{match-empty 17626}#
- (reverse (vector-ref #{p 18713}# 2))
- (#{match-empty 17626}#
- (vector-ref #{p 18713}# 3)
- #{r 18714}#)))
- (if (if (eqv? #{atom-key 18715}# 'free-id)
+ (#{match-empty 41195}#
+ (lambda (#{p 42273}# #{r 42274}#)
+ (if (null? #{p 42273}#)
+ #{r 42274}#
+ (if (eq? #{p 42273}# '_)
+ #{r 42274}#
+ (if (eq? #{p 42273}# 'any)
+ (cons '() #{r 42274}#)
+ (if (pair? #{p 42273}#)
+ (#{match-empty 41195}#
+ (car #{p 42273}#)
+ (#{match-empty 41195}#
+ (cdr #{p 42273}#)
+ #{r 42274}#))
+ (if (eq? #{p 42273}# 'each-any)
+ (cons '() #{r 42274}#)
+ (let ((#{atom-key 42275}# (vector-ref #{p 42273}# 0)))
+ (if (eqv? #{atom-key 42275}# 'each)
+ (#{match-empty 41195}#
+ (vector-ref #{p 42273}# 1)
+ #{r 42274}#)
+ (if (eqv? #{atom-key 42275}# 'each+)
+ (#{match-empty 41195}#
+ (vector-ref #{p 42273}# 1)
+ (#{match-empty 41195}#
+ (reverse (vector-ref #{p 42273}# 2))
+ (#{match-empty 41195}#
+ (vector-ref #{p 42273}# 3)
+ #{r 42274}#)))
+ (if (if (eqv? #{atom-key 42275}# 'free-id)
#t
- (eqv? #{atom-key 18715}# 'atom))
- #{r 18714}#
- (if (eqv? #{atom-key 18715}# 'vector)
- (#{match-empty 17626}#
- (vector-ref #{p 18713}# 1)
- #{r 18714}#)))))))))))))
- (#{combine 17627}#
- (lambda (#{r* 18734}# #{r 18735}#)
- (if (null? (car #{r* 18734}#))
- #{r 18735}#
- (cons (map car #{r* 18734}#)
- (#{combine 17627}#
- (map cdr #{r* 18734}#)
- #{r 18735}#)))))
- (#{match* 17628}#
- (lambda (#{e 17658}#
- #{p 17659}#
- #{w 17660}#
- #{r 17661}#
- #{mod 17662}#)
- (if (null? #{p 17659}#)
- (if (null? #{e 17658}#) #{r 17661}# #f)
- (if (pair? #{p 17659}#)
- (if (pair? #{e 17658}#)
- (#{match 17629}#
- (car #{e 17658}#)
- (car #{p 17659}#)
- #{w 17660}#
- (#{match 17629}#
- (cdr #{e 17658}#)
- (cdr #{p 17659}#)
- #{w 17660}#
- #{r 17661}#
- #{mod 17662}#)
- #{mod 17662}#)
+ (eqv? #{atom-key 42275}# 'atom))
+ #{r 42274}#
+ (if (eqv? #{atom-key 42275}# 'vector)
+ (#{match-empty 41195}#
+ (vector-ref #{p 42273}# 1)
+ #{r 42274}#)))))))))))))
+ (#{combine 41196}#
+ (lambda (#{r* 42294}# #{r 42295}#)
+ (if (null? (car #{r* 42294}#))
+ #{r 42295}#
+ (cons (map car #{r* 42294}#)
+ (#{combine 41196}#
+ (map cdr #{r* 42294}#)
+ #{r 42295}#)))))
+ (#{match* 41197}#
+ (lambda (#{e 41227}#
+ #{p 41228}#
+ #{w 41229}#
+ #{r 41230}#
+ #{mod 41231}#)
+ (if (null? #{p 41228}#)
+ (if (null? #{e 41227}#) #{r 41230}# #f)
+ (if (pair? #{p 41228}#)
+ (if (pair? #{e 41227}#)
+ (#{match 41198}#
+ (car #{e 41227}#)
+ (car #{p 41228}#)
+ #{w 41229}#
+ (#{match 41198}#
+ (cdr #{e 41227}#)
+ (cdr #{p 41228}#)
+ #{w 41229}#
+ #{r 41230}#
+ #{mod 41231}#)
+ #{mod 41231}#)
#f)
- (if (eq? #{p 17659}# 'each-any)
- (let ((#{l 17667}#
- (#{match-each-any 17625}#
- #{e 17658}#
- #{w 17660}#
- #{mod 17662}#)))
- (if #{l 17667}#
- (cons #{l 17667}# #{r 17661}#)
+ (if (eq? #{p 41228}# 'each-any)
+ (let ((#{l 41236}#
+ (#{match-each-any 41194}#
+ #{e 41227}#
+ #{w 41229}#
+ #{mod 41231}#)))
+ (if #{l 41236}#
+ (cons #{l 41236}# #{r 41230}#)
#f))
- (let ((#{atom-key 17672}# (vector-ref #{p 17659}# 0)))
- (if (eqv? #{atom-key 17672}# 'each)
- (if (null? #{e 17658}#)
- (#{match-empty 17626}#
- (vector-ref #{p 17659}# 1)
- #{r 17661}#)
- (let ((#{l 17679}#
- (#{match-each 17623}#
- #{e 17658}#
- (vector-ref #{p 17659}# 1)
- #{w 17660}#
- #{mod 17662}#)))
- (if #{l 17679}#
+ (let ((#{atom-key 41241}# (vector-ref #{p 41228}# 0)))
+ (if (eqv? #{atom-key 41241}# 'each)
+ (if (null? #{e 41227}#)
+ (#{match-empty 41195}#
+ (vector-ref #{p 41228}# 1)
+ #{r 41230}#)
+ (let ((#{l 41248}#
+ (#{match-each 41192}#
+ #{e 41227}#
+ (vector-ref #{p 41228}# 1)
+ #{w 41229}#
+ #{mod 41231}#)))
+ (if #{l 41248}#
(letrec*
- ((#{collect 17682}#
- (lambda (#{l 17743}#)
- (if (null? (car #{l 17743}#))
- #{r 17661}#
- (cons (map car #{l 17743}#)
- (#{collect 17682}#
- (map cdr #{l 17743}#)))))))
- (#{collect 17682}# #{l 17679}#))
+ ((#{collect 41251}#
+ (lambda (#{l 41308}#)
+ (if (null? (car #{l 41308}#))
+ #{r 41230}#
+ (cons (map car #{l 41308}#)
+ (#{collect 41251}#
+ (map cdr #{l 41308}#)))))))
+ (#{collect 41251}# #{l 41248}#))
#f)))
- (if (eqv? #{atom-key 17672}# 'each+)
+ (if (eqv? #{atom-key 41241}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 17752}# (vector-ref #{p 17659}# 1))
- (#{y-pat 17753}# (vector-ref #{p 17659}# 2))
- (#{z-pat 17754}# (vector-ref #{p 17659}# 3)))
+ (let ((#{x-pat 41317}# (vector-ref #{p 41228}# 1))
+ (#{y-pat 41318}# (vector-ref #{p 41228}# 2))
+ (#{z-pat 41319}# (vector-ref #{p 41228}# 3)))
(letrec*
- ((#{f 17758}#
- (lambda (#{e 17760}# #{w 17761}#)
- (if (pair? #{e 17760}#)
+ ((#{f 41323}#
+ (lambda (#{e 41325}# #{w 41326}#)
+ (if (pair? #{e 41325}#)
(call-with-values
(lambda ()
- (#{f 17758}#
- (cdr #{e 17760}#)
- #{w 17761}#))
- (lambda (#{xr* 17762}#
- #{y-pat 17763}#
- #{r 17764}#)
- (if #{r 17764}#
- (if (null? #{y-pat 17763}#)
- (let ((#{xr 17765}#
- (#{match 17629}#
- (car #{e 17760}#)
- #{x-pat 17752}#
- #{w 17761}#
+ (#{f 41323}#
+ (cdr #{e 41325}#)
+ #{w 41326}#))
+ (lambda (#{xr* 41327}#
+ #{y-pat 41328}#
+ #{r 41329}#)
+ (if #{r 41329}#
+ (if (null? #{y-pat 41328}#)
+ (let ((#{xr 41330}#
+ (#{match 41198}#
+ (car #{e 41325}#)
+ #{x-pat 41317}#
+ #{w 41326}#
'()
- #{mod 17662}#)))
- (if #{xr 17765}#
+ #{mod 41231}#)))
+ (if #{xr 41330}#
(values
- (cons #{xr 17765}#
- #{xr* 17762}#)
- #{y-pat 17763}#
- #{r 17764}#)
+ (cons #{xr 41330}#
+ #{xr* 41327}#)
+ #{y-pat 41328}#
+ #{r 41329}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 17763}#)
- (#{match 17629}#
- (car #{e 17760}#)
- (car #{y-pat 17763}#)
- #{w 17761}#
- #{r 17764}#
- #{mod 17662}#)))
+ (cdr #{y-pat 41328}#)
+ (#{match 41198}#
+ (car #{e 41325}#)
+ (car #{y-pat 41328}#)
+ #{w 41326}#
+ #{r 41329}#
+ #{mod 41231}#)))
(values #f #f #f))))
- (if (if (vector? #{e 17760}#)
- (if (= (vector-length #{e 17760}#)
+ (if (if (vector? #{e 41325}#)
+ (if (= (vector-length #{e 41325}#)
4)
- (eq? (vector-ref #{e 17760}# 0)
+ (eq? (vector-ref #{e 41325}# 0)
'syntax-object)
#f)
#f)
- (#{f 17758}#
- (vector-ref #{e 17760}# 1)
- (let ((#{m1 17793}#
- (car #{w 17761}#))
- (#{s1 17794}#
- (cdr #{w 17761}#)))
- (if (null? #{m1 17793}#)
- (if (null? #{s1 17794}#)
- #{e 17760}#
- (cons (car #{e 17760}#)
- (let ((#{m2 17806}#
- (cdr #{e 17760}#)))
- (if (null? #{m2 17806}#)
- #{s1 17794}#
+ (#{f 41323}#
+ (vector-ref #{e 41325}# 1)
+ (let ((#{m1 41356}#
+ (car #{w 41326}#))
+ (#{s1 41357}#
+ (cdr #{w 41326}#)))
+ (if (null? #{m1 41356}#)
+ (if (null? #{s1 41357}#)
+ #{e 41325}#
+ (cons (car #{e 41325}#)
+ (let ((#{m2 41369}#
+ (cdr #{e 41325}#)))
+ (if (null? #{m2 41369}#)
+ #{s1 41357}#
(append
- #{s1 17794}#
- #{m2 17806}#)))))
- (cons (let ((#{m2 17816}#
- (car #{e 17760}#)))
- (if (null? #{m2 17816}#)
- #{m1 17793}#
+ #{s1 41357}#
+ #{m2 41369}#)))))
+ (cons (let ((#{m2 41379}#
+ (car #{e 41325}#)))
+ (if (null? #{m2 41379}#)
+ #{m1 41356}#
(append
- #{m1 17793}#
- #{m2 17816}#)))
- (let ((#{m2 17826}#
- (cdr #{e 17760}#)))
- (if (null? #{m2 17826}#)
- #{s1 17794}#
+ #{m1 41356}#
+ #{m2 41379}#)))
+ (let ((#{m2 41389}#
+ (cdr #{e 41325}#)))
+ (if (null? #{m2 41389}#)
+ #{s1 41357}#
(append
- #{s1 17794}#
- #{m2 17826}#)))))))
+ #{s1 41357}#
+ #{m2 41389}#)))))))
(values
'()
- #{y-pat 17753}#
- (#{match 17629}#
- #{e 17760}#
- #{z-pat 17754}#
- #{w 17761}#
- #{r 17661}#
- #{mod 17662}#)))))))
- (#{f 17758}# #{e 17658}# #{w 17660}#))))
- (lambda (#{xr* 17836}# #{y-pat 17837}# #{r 17838}#)
- (if #{r 17838}#
- (if (null? #{y-pat 17837}#)
- (if (null? #{xr* 17836}#)
- (#{match-empty 17626}#
- (vector-ref #{p 17659}# 1)
- #{r 17838}#)
- (#{combine 17627}# #{xr* 17836}# #{r 17838}#))
+ #{y-pat 41318}#
+ (#{match 41198}#
+ #{e 41325}#
+ #{z-pat 41319}#
+ #{w 41326}#
+ #{r 41230}#
+ #{mod 41231}#)))))))
+ (#{f 41323}# #{e 41227}# #{w 41229}#))))
+ (lambda (#{xr* 41399}# #{y-pat 41400}# #{r 41401}#)
+ (if #{r 41401}#
+ (if (null? #{y-pat 41400}#)
+ (if (null? #{xr* 41399}#)
+ (#{match-empty 41195}#
+ (vector-ref #{p 41228}# 1)
+ #{r 41401}#)
+ (#{combine 41196}# #{xr* 41399}# #{r 41401}#))
#f)
#f)))
- (if (eqv? #{atom-key 17672}# 'free-id)
- (if (if (symbol? #{e 17658}#)
+ (if (eqv? #{atom-key 41241}# 'free-id)
+ (if (if (symbol? #{e 41227}#)
#t
- (if (if (vector? #{e 17658}#)
- (if (= (vector-length #{e 17658}#) 4)
- (eq? (vector-ref #{e 17658}# 0)
+ (if (if (vector? #{e 41227}#)
+ (if (= (vector-length #{e 41227}#) 4)
+ (eq? (vector-ref #{e 41227}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 17658}# 1))
+ (symbol? (vector-ref #{e 41227}# 1))
#f))
- (if (#{free-id=? 4431}#
- (if (if (null? (car #{w 17660}#))
- (null? (cdr #{w 17660}#))
+ (if (#{free-id=? 28259}#
+ (if (if (null? (car #{w 41229}#))
+ (null? (cdr #{w 41229}#))
#f)
- #{e 17658}#
- (if (if (vector? #{e 17658}#)
- (if (= (vector-length #{e 17658}#) 4)
- (eq? (vector-ref #{e 17658}# 0)
+ #{e 41227}#
+ (if (if (vector? #{e 41227}#)
+ (if (= (vector-length #{e 41227}#) 4)
+ (eq? (vector-ref #{e 41227}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18269}#
- (vector-ref #{e 17658}# 1))
- (#{wrap 18270}#
- (let ((#{w2 18280}#
+ (let ((#{expression 41829}#
+ (vector-ref #{e 41227}# 1))
+ (#{wrap 41830}#
+ (let ((#{w2 41840}#
(vector-ref
- #{e 17658}#
+ #{e 41227}#
2)))
- (let ((#{m1 18281}#
- (car #{w 17660}#))
- (#{s1 18282}#
- (cdr #{w 17660}#)))
- (if (null? #{m1 18281}#)
- (if (null? #{s1 18282}#)
- #{w2 18280}#
- (cons (car #{w2 18280}#)
- (let ((#{m2 18299}#
- (cdr #{w2 18280}#)))
- (if (null? #{m2 18299}#)
- #{s1 18282}#
+ (let ((#{m1 41841}#
+ (car #{w 41229}#))
+ (#{s1 41842}#
+ (cdr #{w 41229}#)))
+ (if (null? #{m1 41841}#)
+ (if (null? #{s1 41842}#)
+ #{w2 41840}#
+ (cons (car #{w2 41840}#)
+ (let ((#{m2 41859}#
+ (cdr #{w2 41840}#)))
+ (if (null? #{m2 41859}#)
+ #{s1 41842}#
(append
- #{s1 18282}#
- #{m2 18299}#)))))
- (cons (let ((#{m2 18307}#
- (car #{w2 18280}#)))
- (if (null? #{m2 18307}#)
- #{m1 18281}#
+ #{s1 41842}#
+ #{m2 41859}#)))))
+ (cons (let ((#{m2 41867}#
+ (car #{w2 41840}#)))
+ (if (null? #{m2 41867}#)
+ #{m1 41841}#
(append
- #{m1 18281}#
- #{m2 18307}#)))
- (let ((#{m2 18315}#
- (cdr #{w2 18280}#)))
- (if (null? #{m2 18315}#)
- #{s1 18282}#
+ #{m1 41841}#
+ #{m2 41867}#)))
+ (let ((#{m2 41875}#
+ (cdr #{w2 41840}#)))
+ (if (null? #{m2 41875}#)
+ #{s1 41842}#
(append
- #{s1 18282}#
- #{m2 18315}#))))))))
- (#{module 18271}#
- (vector-ref #{e 17658}# 3)))
+ #{s1 41842}#
+ #{m2 41875}#))))))))
+ (#{module 41831}#
+ (vector-ref #{e 41227}# 3)))
(vector
'syntax-object
- #{expression 18269}#
- #{wrap 18270}#
- #{module 18271}#))
- (if (null? #{e 17658}#)
- #{e 17658}#
+ #{expression 41829}#
+ #{wrap 41830}#
+ #{module 41831}#))
+ (if (null? #{e 41227}#)
+ #{e 41227}#
(vector
'syntax-object
- #{e 17658}#
- #{w 17660}#
- #{mod 17662}#))))
- (vector-ref #{p 17659}# 1))
- #{r 17661}#
+ #{e 41227}#
+ #{w 41229}#
+ #{mod 41231}#))))
+ (vector-ref #{p 41228}# 1))
+ #{r 41230}#
#f)
#f)
- (if (eqv? #{atom-key 17672}# 'atom)
+ (if (eqv? #{atom-key 41241}# 'atom)
(if (equal?
- (vector-ref #{p 17659}# 1)
- (#{strip 4456}# #{e 17658}# #{w 17660}#))
- #{r 17661}#
+ (vector-ref #{p 41228}# 1)
+ (#{strip 28284}# #{e 41227}# #{w 41229}#))
+ #{r 41230}#
#f)
- (if (eqv? #{atom-key 17672}# 'vector)
- (if (vector? #{e 17658}#)
- (#{match 17629}#
- (vector->list #{e 17658}#)
- (vector-ref #{p 17659}# 1)
- #{w 17660}#
- #{r 17661}#
- #{mod 17662}#)
+ (if (eqv? #{atom-key 41241}# 'vector)
+ (if (vector? #{e 41227}#)
+ (#{match 41198}#
+ (vector->list #{e 41227}#)
+ (vector-ref #{p 41228}# 1)
+ #{w 41229}#
+ #{r 41230}#
+ #{mod 41231}#)
#f))))))))))))
- (#{match 17629}#
- (lambda (#{e 18348}#
- #{p 18349}#
- #{w 18350}#
- #{r 18351}#
- #{mod 18352}#)
- (if (not #{r 18351}#)
+ (#{match 41198}#
+ (lambda (#{e 41908}#
+ #{p 41909}#
+ #{w 41910}#
+ #{r 41911}#
+ #{mod 41912}#)
+ (if (not #{r 41911}#)
#f
- (if (eq? #{p 18349}# '_)
- #{r 18351}#
- (if (eq? #{p 18349}# 'any)
- (cons (if (if (null? (car #{w 18350}#))
- (null? (cdr #{w 18350}#))
+ (if (eq? #{p 41909}# '_)
+ #{r 41911}#
+ (if (eq? #{p 41909}# 'any)
+ (cons (if (if (null? (car #{w 41910}#))
+ (null? (cdr #{w 41910}#))
#f)
- #{e 18348}#
- (if (if (vector? #{e 18348}#)
- (if (= (vector-length #{e 18348}#) 4)
- (eq? (vector-ref #{e 18348}# 0)
+ #{e 41908}#
+ (if (if (vector? #{e 41908}#)
+ (if (= (vector-length #{e 41908}#) 4)
+ (eq? (vector-ref #{e 41908}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18382}#
- (vector-ref #{e 18348}# 1))
- (#{wrap 18383}#
- (let ((#{w2 18393}#
- (vector-ref #{e 18348}# 2)))
- (let ((#{m1 18394}# (car #{w 18350}#))
- (#{s1 18395}# (cdr #{w 18350}#)))
- (if (null? #{m1 18394}#)
- (if (null? #{s1 18395}#)
- #{w2 18393}#
- (cons (car #{w2 18393}#)
- (let ((#{m2 18412}#
- (cdr #{w2 18393}#)))
- (if (null? #{m2 18412}#)
- #{s1 18395}#
+ (let ((#{expression 41942}#
+ (vector-ref #{e 41908}# 1))
+ (#{wrap 41943}#
+ (let ((#{w2 41953}#
+ (vector-ref #{e 41908}# 2)))
+ (let ((#{m1 41954}# (car #{w 41910}#))
+ (#{s1 41955}# (cdr #{w 41910}#)))
+ (if (null? #{m1 41954}#)
+ (if (null? #{s1 41955}#)
+ #{w2 41953}#
+ (cons (car #{w2 41953}#)
+ (let ((#{m2 41972}#
+ (cdr #{w2 41953}#)))
+ (if (null? #{m2 41972}#)
+ #{s1 41955}#
(append
- #{s1 18395}#
- #{m2 18412}#)))))
- (cons (let ((#{m2 18420}#
- (car #{w2 18393}#)))
- (if (null? #{m2 18420}#)
- #{m1 18394}#
+ #{s1 41955}#
+ #{m2 41972}#)))))
+ (cons (let ((#{m2 41980}#
+ (car #{w2 41953}#)))
+ (if (null? #{m2 41980}#)
+ #{m1 41954}#
(append
- #{m1 18394}#
- #{m2 18420}#)))
- (let ((#{m2 18428}#
- (cdr #{w2 18393}#)))
- (if (null? #{m2 18428}#)
- #{s1 18395}#
+ #{m1 41954}#
+ #{m2 41980}#)))
+ (let ((#{m2 41988}#
+ (cdr #{w2 41953}#)))
+ (if (null? #{m2 41988}#)
+ #{s1 41955}#
(append
- #{s1 18395}#
- #{m2 18428}#))))))))
- (#{module 18384}# (vector-ref #{e 18348}# 3)))
+ #{s1 41955}#
+ #{m2 41988}#))))))))
+ (#{module 41944}# (vector-ref #{e 41908}# 3)))
(vector
'syntax-object
- #{expression 18382}#
- #{wrap 18383}#
- #{module 18384}#))
- (if (null? #{e 18348}#)
- #{e 18348}#
+ #{expression 41942}#
+ #{wrap 41943}#
+ #{module 41944}#))
+ (if (null? #{e 41908}#)
+ #{e 41908}#
(vector
'syntax-object
- #{e 18348}#
- #{w 18350}#
- #{mod 18352}#))))
- #{r 18351}#)
- (if (if (vector? #{e 18348}#)
- (if (= (vector-length #{e 18348}#) 4)
- (eq? (vector-ref #{e 18348}# 0) 'syntax-object)
+ #{e 41908}#
+ #{w 41910}#
+ #{mod 41912}#))))
+ #{r 41911}#)
+ (if (if (vector? #{e 41908}#)
+ (if (= (vector-length #{e 41908}#) 4)
+ (eq? (vector-ref #{e 41908}# 0) 'syntax-object)
#f)
#f)
- (#{match* 17628}#
- (vector-ref #{e 18348}# 1)
- #{p 18349}#
- (let ((#{w2 18471}# (vector-ref #{e 18348}# 2)))
- (let ((#{m1 18472}# (car #{w 18350}#))
- (#{s1 18473}# (cdr #{w 18350}#)))
- (if (null? #{m1 18472}#)
- (if (null? #{s1 18473}#)
- #{w2 18471}#
- (cons (car #{w2 18471}#)
- (let ((#{m2 18484}# (cdr #{w2 18471}#)))
- (if (null? #{m2 18484}#)
- #{s1 18473}#
- (append #{s1 18473}# #{m2 18484}#)))))
- (cons (let ((#{m2 18492}# (car #{w2 18471}#)))
- (if (null? #{m2 18492}#)
- #{m1 18472}#
- (append #{m1 18472}# #{m2 18492}#)))
- (let ((#{m2 18500}# (cdr #{w2 18471}#)))
- (if (null? #{m2 18500}#)
- #{s1 18473}#
- (append #{s1 18473}# #{m2 18500}#)))))))
- #{r 18351}#
- (vector-ref #{e 18348}# 3))
- (#{match* 17628}#
- #{e 18348}#
- #{p 18349}#
- #{w 18350}#
- #{r 18351}#
- #{mod 18352}#))))))))
+ (#{match* 41197}#
+ (vector-ref #{e 41908}# 1)
+ #{p 41909}#
+ (let ((#{w2 42031}# (vector-ref #{e 41908}# 2)))
+ (let ((#{m1 42032}# (car #{w 41910}#))
+ (#{s1 42033}# (cdr #{w 41910}#)))
+ (if (null? #{m1 42032}#)
+ (if (null? #{s1 42033}#)
+ #{w2 42031}#
+ (cons (car #{w2 42031}#)
+ (let ((#{m2 42044}# (cdr #{w2 42031}#)))
+ (if (null? #{m2 42044}#)
+ #{s1 42033}#
+ (append #{s1 42033}# #{m2 42044}#)))))
+ (cons (let ((#{m2 42052}# (car #{w2 42031}#)))
+ (if (null? #{m2 42052}#)
+ #{m1 42032}#
+ (append #{m1 42032}# #{m2 42052}#)))
+ (let ((#{m2 42060}# (cdr #{w2 42031}#)))
+ (if (null? #{m2 42060}#)
+ #{s1 42033}#
+ (append #{s1 42033}# #{m2 42060}#)))))))
+ #{r 41911}#
+ (vector-ref #{e 41908}# 3))
+ (#{match* 41197}#
+ #{e 41908}#
+ #{p 41909}#
+ #{w 41910}#
+ #{r 41911}#
+ #{mod 41912}#))))))))
(set! $sc-dispatch
- (lambda (#{e 17630}# #{p 17631}#)
- (if (eq? #{p 17631}# 'any)
- (list #{e 17630}#)
- (if (eq? #{p 17631}# '_)
+ (lambda (#{e 41199}# #{p 41200}#)
+ (if (eq? #{p 41200}# 'any)
+ (list #{e 41199}#)
+ (if (eq? #{p 41200}# '_)
'()
- (if (if (vector? #{e 17630}#)
- (if (= (vector-length #{e 17630}#) 4)
- (eq? (vector-ref #{e 17630}# 0) 'syntax-object)
+ (if (if (vector? #{e 41199}#)
+ (if (= (vector-length #{e 41199}#) 4)
+ (eq? (vector-ref #{e 41199}# 0) 'syntax-object)
#f)
#f)
- (#{match* 17628}#
- (vector-ref #{e 17630}# 1)
- #{p 17631}#
- (vector-ref #{e 17630}# 2)
+ (#{match* 41197}#
+ (vector-ref #{e 41199}# 1)
+ #{p 41200}#
+ (vector-ref #{e 41199}# 2)
'()
- (vector-ref #{e 17630}# 3))
- (#{match* 17628}#
- #{e 17630}#
- #{p 17631}#
+ (vector-ref #{e 41199}# 3))
+ (#{match* 41197}#
+ #{e 41199}#
+ #{p 41200}#
'(())
'()
#f)))))))))
@@ -17731,21 +17786,21 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 36772}#)
- (let ((#{tmp 36774}#
- ($sc-dispatch #{x 36772}# '(_ () any . each-any))))
- (if #{tmp 36774}#
+ (lambda (#{x 59996}#)
+ (let ((#{tmp 59998}#
+ ($sc-dispatch #{x 59996}# '(_ () any . each-any))))
+ (if #{tmp 59998}#
(@apply
- (lambda (#{e1 36778}# #{e2 36779}#)
+ (lambda (#{e1 60002}# #{e2 60003}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i36745" "i36746"))
+ #("i59969" "i59970"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17756,27 +17811,27 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons '() (cons #{e1 36778}# #{e2 36779}#))))
- #{tmp 36774}#)
- (let ((#{tmp 36780}#
+ (cons '() (cons #{e1 60002}# #{e2 60003}#))))
+ #{tmp 59998}#)
+ (let ((#{tmp 60004}#
($sc-dispatch
- #{x 36772}#
+ #{x 59996}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 36780}#
+ (if #{tmp 60004}#
(@apply
- (lambda (#{out 36784}#
- #{in 36785}#
- #{e1 36786}#
- #{e2 36787}#)
+ (lambda (#{out 60008}#
+ #{in 60009}#
+ #{e1 60010}#
+ #{e2 60011}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36751" "i36752" "i36753" "i36754"))
+ #("i59975" "i59976" "i59977" "i59978"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17787,21 +17842,21 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{in 36785}#
+ #{in 60009}#
'()
- (list #{out 36784}#
+ (list #{out 60008}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36751"
- "i36752"
- "i36753"
- "i36754"))
+ #("i59975"
+ "i59976"
+ "i59977"
+ "i59978"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17813,27 +17868,27 @@
(hygiene guile))))))
(hygiene guile))
(cons '()
- (cons #{e1 36786}# #{e2 36787}#))))))
- #{tmp 36780}#)
- (let ((#{tmp 36788}#
+ (cons #{e1 60010}# #{e2 60011}#))))))
+ #{tmp 60004}#)
+ (let ((#{tmp 60012}#
($sc-dispatch
- #{x 36772}#
+ #{x 59996}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 36788}#
+ (if #{tmp 60012}#
(@apply
- (lambda (#{out 36792}#
- #{in 36793}#
- #{e1 36794}#
- #{e2 36795}#)
+ (lambda (#{out 60016}#
+ #{in 60017}#
+ #{e1 60018}#
+ #{e2 60019}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36761" "i36762" "i36763" "i36764"))
+ #("i59985" "i59986" "i59987" "i59988"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17850,9 +17905,9 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36761" "i36762" "i36763" "i36764"))
+ #("i59985" "i59986" "i59987" "i59988"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17863,24 +17918,24 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{in 36793}#)
+ #{in 60017}#)
'()
- (list #{out 36792}#
+ (list #{out 60016}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36761"
- "i36762"
- "i36763"
- "i36764"))
+ #("i59985"
+ "i59986"
+ "i59987"
+ "i59988"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i36742"))
+ #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17892,38 +17947,38 @@
(hygiene guile))))))
(hygiene guile))
(cons '()
- (cons #{e1 36794}#
- #{e2 36795}#))))))
- #{tmp 36788}#)
+ (cons #{e1 60018}#
+ #{e2 60019}#))))))
+ #{tmp 60012}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36772}#))))))))))
+ #{x 59996}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 36850}#)
- (let ((#{tmp 36852}#
+ (lambda (#{x 60074}#)
+ (let ((#{tmp 60076}#
($sc-dispatch
- #{x 36850}#
+ #{x 60074}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 36852}#
+ (if #{tmp 60076}#
(@apply
- (lambda (#{k 36856}#
- #{keyword 36857}#
- #{pattern 36858}#
- #{template 36859}#)
+ (lambda (#{k 60080}#
+ #{keyword 60081}#
+ #{pattern 60082}#
+ #{template 60083}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -17940,9 +17995,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -17960,9 +18015,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -17980,9 +18035,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -17999,9 +18054,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18012,16 +18067,16 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{pattern 36858}#))
+ #{pattern 60082}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18038,9 +18093,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18051,9 +18106,9 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{k 36856}#
- (map (lambda (#{tmp 36824 36860}#
- #{tmp 36823 36861}#)
+ (cons #{k 60080}#
+ (map (lambda (#{tmp 60048 60084}#
+ #{tmp 60047 60085}#)
(list (cons '#(syntax-object
_
((top)
@@ -18066,10 +18121,10 @@
(top)
(top)
(top))
- #("i36813"
- "i36814"
- "i36815"
- "i36816"))
+ #("i60037"
+ "i60038"
+ "i60039"
+ "i60040"))
#(ribcage
()
()
@@ -18077,7 +18132,7 @@
#(ribcage
#(x)
#((top))
- #("i36810"))
+ #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18090,7 +18145,7 @@
(hygiene
guile))))))
(hygiene guile))
- #{tmp 36823 36861}#)
+ #{tmp 60047 60085}#)
(list '#(syntax-object
syntax
((top)
@@ -18103,10 +18158,10 @@
(top)
(top)
(top))
- #("i36813"
- "i36814"
- "i36815"
- "i36816"))
+ #("i60037"
+ "i60038"
+ "i60039"
+ "i60040"))
#(ribcage
()
()
@@ -18114,7 +18169,7 @@
#(ribcage
#(x)
#((top))
- #("i36810"))
+ #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18127,39 +18182,39 @@
(hygiene
guile))))))
(hygiene guile))
- #{tmp 36824 36860}#)))
- #{template 36859}#
- #{pattern 36858}#))))))
- #{tmp 36852}#)
- (let ((#{tmp 36862}#
+ #{tmp 60048 60084}#)))
+ #{template 60083}#
+ #{pattern 60082}#))))))
+ #{tmp 60076}#)
+ (let ((#{tmp 60086}#
($sc-dispatch
- #{x 36850}#
+ #{x 60074}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 36862}#
+ (if (if #{tmp 60086}#
(@apply
- (lambda (#{k 36866}#
- #{docstring 36867}#
- #{keyword 36868}#
- #{pattern 36869}#
- #{template 36870}#)
- (string? (syntax->datum #{docstring 36867}#)))
- #{tmp 36862}#)
+ (lambda (#{k 60090}#
+ #{docstring 60091}#
+ #{keyword 60092}#
+ #{pattern 60093}#
+ #{template 60094}#)
+ (string? (syntax->datum #{docstring 60091}#)))
+ #{tmp 60086}#)
#f)
(@apply
- (lambda (#{k 36871}#
- #{docstring 36872}#
- #{keyword 36873}#
- #{pattern 36874}#
- #{template 36875}#)
+ (lambda (#{k 60095}#
+ #{docstring 60096}#
+ #{keyword 60097}#
+ #{pattern 60098}#
+ #{template 60099}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836" "i36837" "i36838" "i36839" "i36840"))
+ #("i60060" "i60061" "i60062" "i60063" "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18176,9 +18231,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836" "i36837" "i36838" "i36839" "i36840"))
+ #("i60060" "i60061" "i60062" "i60063" "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18189,7 +18244,7 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- #{docstring 36872}#
+ #{docstring 60096}#
(vector
'(#(syntax-object
macro-type
@@ -18197,13 +18252,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18221,13 +18276,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18244,13 +18299,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18261,20 +18316,20 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{pattern 36874}#))
+ #{pattern 60098}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18295,13 +18350,13 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18312,9 +18367,9 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{k 36871}#
- (map (lambda (#{tmp 36849 36876}#
- #{tmp 36848 36877}#)
+ (cons #{k 60095}#
+ (map (lambda (#{tmp 60073 60100}#
+ #{tmp 60072 60101}#)
(list (cons '#(syntax-object
_
((top)
@@ -18329,11 +18384,11 @@
(top)
(top)
(top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage
()
()
@@ -18341,7 +18396,7 @@
#(ribcage
#(x)
#((top))
- #("i36810"))
+ #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18355,7 +18410,7 @@
guile))))))
(hygiene
guile))
- #{tmp 36848 36877}#)
+ #{tmp 60072 60101}#)
(list '#(syntax-object
syntax
((top)
@@ -18370,11 +18425,11 @@
(top)
(top)
(top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage
()
()
@@ -18382,7 +18437,7 @@
#(ribcage
#(x)
#((top))
- #("i36810"))
+ #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18396,36 +18451,36 @@
guile))))))
(hygiene
guile))
- #{tmp 36849 36876}#)))
- #{template 36875}#
- #{pattern 36874}#))))))
- #{tmp 36862}#)
+ #{tmp 60073 60100}#)))
+ #{template 60099}#
+ #{pattern 60098}#))))))
+ #{tmp 60086}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36850}#))))))))
+ #{x 60074}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 36915}#)
- (let ((#{tmp 36917}#
- ($sc-dispatch #{x 36915}# '(_ (any . any) any))))
- (if #{tmp 36917}#
+ (lambda (#{x 60139}#)
+ (let ((#{tmp 60141}#
+ ($sc-dispatch #{x 60139}# '(_ (any . any) any))))
+ (if #{tmp 60141}#
(@apply
- (lambda (#{name 36921}#
- #{pattern 36922}#
- #{template 36923}#)
+ (lambda (#{name 60145}#
+ #{pattern 60146}#
+ #{template 60147}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i36892" "i36893" "i36894"))
+ #("i60116" "i60117" "i60118"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18436,16 +18491,16 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{name 36921}#
+ #{name 60145}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i36892" "i36893" "i36894"))
+ #("i60116" "i60117" "i60118"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18463,9 +18518,9 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i36892" "i36893" "i36894"))
+ #("i60116" "i60117" "i60118"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18476,36 +18531,36 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{pattern 36922}#)
- #{template 36923}#))))
- #{tmp 36917}#)
- (let ((#{tmp 36924}#
+ #{pattern 60146}#)
+ #{template 60147}#))))
+ #{tmp 60141}#)
+ (let ((#{tmp 60148}#
($sc-dispatch
- #{x 36915}#
+ #{x 60139}#
'(_ (any . any) any any))))
- (if (if #{tmp 36924}#
+ (if (if #{tmp 60148}#
(@apply
- (lambda (#{name 36928}#
- #{pattern 36929}#
- #{docstring 36930}#
- #{template 36931}#)
- (string? (syntax->datum #{docstring 36930}#)))
- #{tmp 36924}#)
+ (lambda (#{name 60152}#
+ #{pattern 60153}#
+ #{docstring 60154}#
+ #{template 60155}#)
+ (string? (syntax->datum #{docstring 60154}#)))
+ #{tmp 60148}#)
#f)
(@apply
- (lambda (#{name 36932}#
- #{pattern 36933}#
- #{docstring 36934}#
- #{template 36935}#)
+ (lambda (#{name 60156}#
+ #{pattern 60157}#
+ #{docstring 60158}#
+ #{template 60159}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i36907" "i36908" "i36909" "i36910"))
+ #("i60131" "i60132" "i60133" "i60134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18516,16 +18571,16 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{name 36932}#
+ #{name 60156}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i36907" "i36908" "i36909" "i36910"))
+ #("i60131" "i60132" "i60133" "i60134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18537,7 +18592,7 @@
(hygiene guile))))))
(hygiene guile))
'()
- #{docstring 36934}#
+ #{docstring 60158}#
(list (cons '#(syntax-object
_
((top)
@@ -18547,15 +18602,15 @@
docstring
template)
#((top) (top) (top) (top))
- #("i36907"
- "i36908"
- "i36909"
- "i36910"))
+ #("i60131"
+ "i60132"
+ "i60133"
+ "i60134"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i36889"))
+ #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18566,43 +18621,43 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{pattern 36933}#)
- #{template 36935}#))))
- #{tmp 36924}#)
+ #{pattern 60157}#)
+ #{template 60159}#))))
+ #{tmp 60148}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36915}#))))))))
+ #{x 60139}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 36985}#)
- (let ((#{tmp 36987}#
+ (lambda (#{x 60209}#)
+ (let ((#{tmp 60211}#
($sc-dispatch
- #{x 36985}#
+ #{x 60209}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 36987}#
+ (if (if #{tmp 60211}#
(@apply
- (lambda (#{let* 36991}#
- #{x 36992}#
- #{v 36993}#
- #{e1 36994}#
- #{e2 36995}#)
- (and-map identifier? #{x 36992}#))
- #{tmp 36987}#)
+ (lambda (#{let* 60215}#
+ #{x 60216}#
+ #{v 60217}#
+ #{e1 60218}#
+ #{e2 60219}#)
+ (and-map identifier? #{x 60216}#))
+ #{tmp 60211}#)
#f)
(@apply
- (lambda (#{let* 36996}#
- #{x 36997}#
- #{v 36998}#
- #{e1 36999}#
- #{e2 37000}#)
+ (lambda (#{let* 60220}#
+ #{x 60221}#
+ #{v 60222}#
+ #{e1 60223}#
+ #{e2 60224}#)
(letrec*
- ((#{f 37001}#
- (lambda (#{bindings 37004}#)
- (if (null? #{bindings 37004}#)
+ ((#{f 60225}#
+ (lambda (#{bindings 60228}#)
+ (if (null? #{bindings 60228}#)
(cons '#(syntax-object
let
((top)
@@ -18610,17 +18665,17 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i36971" "i36972"))
+ #("i60195" "i60196"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i36961"
- "i36962"
- "i36963"
- "i36964"
- "i36965"))
+ #("i60185"
+ "i60186"
+ "i60187"
+ "i60188"
+ "i60189"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36947"))
+ #(ribcage #(x) #((top)) #("i60171"))
#(ribcage
(let*)
((top))
@@ -18631,15 +18686,15 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons '() (cons #{e1 36999}# #{e2 37000}#)))
- (let ((#{tmp 37005}#
- (list (#{f 37001}# (cdr #{bindings 37004}#))
- (car #{bindings 37004}#))))
- (let ((#{tmp 37006}#
- ($sc-dispatch #{tmp 37005}# '(any any))))
- (if #{tmp 37006}#
+ (cons '() (cons #{e1 60223}# #{e2 60224}#)))
+ (let ((#{tmp 60229}#
+ (list (#{f 60225}# (cdr #{bindings 60228}#))
+ (car #{bindings 60228}#))))
+ (let ((#{tmp 60230}#
+ ($sc-dispatch #{tmp 60229}# '(any any))))
+ (if #{tmp 60230}#
(@apply
- (lambda (#{body 37008}# #{binding 37009}#)
+ (lambda (#{body 60232}# #{binding 60233}#)
(list '#(syntax-object
let
((top)
@@ -18647,22 +18702,22 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i36981" "i36982"))
+ #("i60205" "i60206"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i36971" "i36972"))
+ #("i60195" "i60196"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i36961"
- "i36962"
- "i36963"
- "i36964"
- "i36965"))
+ #("i60185"
+ "i60186"
+ "i60187"
+ "i60188"
+ "i60189"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36947"))
+ #(ribcage #(x) #((top)) #("i60171"))
#(ribcage
(let*)
((top))
@@ -18673,66 +18728,66 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (list #{binding 37009}#)
- #{body 37008}#))
- #{tmp 37006}#)
+ (list #{binding 60233}#)
+ #{body 60232}#))
+ #{tmp 60230}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37005}#))))))))
- (#{f 37001}# (map list #{x 36997}# #{v 36998}#))))
- #{tmp 36987}#)
+ #{tmp 60229}#))))))))
+ (#{f 60225}# (map list #{x 60221}# #{v 60222}#))))
+ #{tmp 60211}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36985}#))))))
+ #{x 60209}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 37068}#)
- (let ((#{tmp 37070}#
+ (lambda (#{orig-x 60292}#)
+ (let ((#{tmp 60294}#
($sc-dispatch
- #{orig-x 37068}#
+ #{orig-x 60292}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 37070}#
+ (if #{tmp 60294}#
(@apply
- (lambda (#{var 37074}#
- #{init 37075}#
- #{step 37076}#
- #{e0 37077}#
- #{e1 37078}#
- #{c 37079}#)
- (let ((#{tmp 37080}#
- (map (lambda (#{v 37083}# #{s 37084}#)
- (let ((#{tmp 37086}#
- ($sc-dispatch #{s 37084}# '())))
- (if #{tmp 37086}#
- (@apply (lambda () #{v 37083}#) #{tmp 37086}#)
- (let ((#{tmp 37089}#
- ($sc-dispatch #{s 37084}# '(any))))
- (if #{tmp 37089}#
+ (lambda (#{var 60298}#
+ #{init 60299}#
+ #{step 60300}#
+ #{e0 60301}#
+ #{e1 60302}#
+ #{c 60303}#)
+ (let ((#{tmp 60304}#
+ (map (lambda (#{v 60307}# #{s 60308}#)
+ (let ((#{tmp 60310}#
+ ($sc-dispatch #{s 60308}# '())))
+ (if #{tmp 60310}#
+ (@apply (lambda () #{v 60307}#) #{tmp 60310}#)
+ (let ((#{tmp 60313}#
+ ($sc-dispatch #{s 60308}# '(any))))
+ (if #{tmp 60313}#
(@apply
- (lambda (#{e 37092}#) #{e 37092}#)
- #{tmp 37089}#)
+ (lambda (#{e 60316}#) #{e 60316}#)
+ #{tmp 60313}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 37068}#
- #{s 37084}#))))))
- #{var 37074}#
- #{step 37076}#)))
- (let ((#{tmp 37081}#
- ($sc-dispatch #{tmp 37080}# 'each-any)))
- (if #{tmp 37081}#
+ #{orig-x 60292}#
+ #{s 60308}#))))))
+ #{var 60298}#
+ #{step 60300}#)))
+ (let ((#{tmp 60305}#
+ ($sc-dispatch #{tmp 60304}# 'each-any)))
+ (if #{tmp 60305}#
(@apply
- (lambda (#{step 37098}#)
- (let ((#{tmp 37100}# ($sc-dispatch #{e1 37078}# '())))
- (if #{tmp 37100}#
+ (lambda (#{step 60322}#)
+ (let ((#{tmp 60324}# ($sc-dispatch #{e1 60302}# '())))
+ (if #{tmp 60324}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -18742,7 +18797,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18751,17 +18806,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18779,7 +18834,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18788,17 +18843,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18809,7 +18864,7 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (map list #{var 37074}# #{init 37075}#)
+ (map list #{var 60298}# #{init 60299}#)
(list '#(syntax-object
if
((top)
@@ -18817,7 +18872,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18826,17 +18881,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18854,7 +18909,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -18868,17 +18923,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18890,7 +18945,7 @@
(hygiene
guile))))))
(hygiene guile))
- #{e0 37077}#)
+ #{e0 60301}#)
(cons '#(syntax-object
begin
((top)
@@ -18898,7 +18953,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -18912,17 +18967,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18935,7 +18990,7 @@
guile))))))
(hygiene guile))
(append
- #{c 37079}#
+ #{c 60303}#
(list (cons '#(syntax-object
doloop
((top)
@@ -18946,7 +19001,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -18960,12 +19015,12 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage
()
()
@@ -18973,7 +19028,7 @@
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18987,27 +19042,27 @@
guile))))))
(hygiene
guile))
- #{step 37098}#)))))))
- #{tmp 37100}#)
- (let ((#{tmp 37104}#
+ #{step 60322}#)))))))
+ #{tmp 60324}#)
+ (let ((#{tmp 60328}#
($sc-dispatch
- #{e1 37078}#
+ #{e1 60302}#
'(any . each-any))))
- (if #{tmp 37104}#
+ (if #{tmp 60328}#
(@apply
- (lambda (#{e1 37108}# #{e2 37109}#)
+ (lambda (#{e1 60332}# #{e2 60333}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045" "i37046"))
+ #("i60269" "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -19016,17 +19071,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19043,12 +19098,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045" "i37046"))
+ #("i60269" "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -19057,17 +19112,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19079,20 +19134,20 @@
(hygiene guile))))))
(hygiene guile))
(map list
- #{var 37074}#
- #{init 37075}#)
+ #{var 60298}#
+ #{init 60299}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045" "i37046"))
+ #("i60269" "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -19101,17 +19156,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19122,20 +19177,20 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{e0 37077}#
+ #{e0 60301}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045"
- "i37046"))
+ #("i60269"
+ "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -19149,17 +19204,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19171,21 +19226,21 @@
(hygiene
guile))))))
(hygiene guile))
- (cons #{e1 37108}#
- #{e2 37109}#))
+ (cons #{e1 60332}#
+ #{e2 60333}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045"
- "i37046"))
+ #("i60269"
+ "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -19199,17 +19254,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19222,7 +19277,7 @@
guile))))))
(hygiene guile))
(append
- #{c 37079}#
+ #{c 60303}#
(list (cons '#(syntax-object
doloop
((top)
@@ -19231,8 +19286,8 @@
e2)
#((top)
(top))
- #("i37045"
- "i37046"))
+ #("i60269"
+ "i60270"))
#(ribcage
()
()
@@ -19240,7 +19295,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -19254,12 +19309,12 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage
()
()
@@ -19267,7 +19322,7 @@
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19281,33 +19336,33 @@
guile))))))
(hygiene
guile))
- #{step 37098}#)))))))
- #{tmp 37104}#)
+ #{step 60322}#)))))))
+ #{tmp 60328}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 37078}#))))))
- #{tmp 37081}#)
+ #{e1 60302}#))))))
+ #{tmp 60305}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37080}#)))))
- #{tmp 37070}#)
+ #{tmp 60304}#)))))
+ #{tmp 60294}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 37068}#))))))
+ #{orig-x 60292}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 37396}#
- (lambda (#{p 37420}# #{lev 37421}#)
- (let ((#{tmp 37423}#
+ ((#{quasi 60620}#
+ (lambda (#{p 60644}# #{lev 60645}#)
+ (let ((#{tmp 60647}#
($sc-dispatch
- #{p 37420}#
+ #{p 60644}#
'(#(free-id
#(syntax-object
unquote
@@ -19316,7 +19371,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19325,13 +19380,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19343,19 +19398,19 @@
(hygiene guile))))))
(hygiene guile)))
any))))
- (if #{tmp 37423}#
+ (if #{tmp 60647}#
(@apply
- (lambda (#{p 37427}#)
- (if (= #{lev 37421}# 0)
+ (lambda (#{p 60651}#)
+ (if (= #{lev 60645}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i37146"))
+ #(ribcage #(p) #((top)) #("i60370"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19364,13 +19419,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19381,17 +19436,17 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{p 37427}#)
- (#{quasicons 37398}#
+ #{p 60651}#)
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37146"))
+ #(ribcage #(p) #((top)) #("i60370"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19400,13 +19455,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19420,12 +19475,12 @@
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37146"))
+ #(ribcage #(p) #((top)) #("i60370"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19434,13 +19489,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19451,13 +19506,13 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- (list #{p 37427}#)
- (#{1-}# #{lev 37421}#)))))
- #{tmp 37423}#)
- (let ((#{tmp 37430}#
+ (#{quasi 60620}#
+ (list #{p 60651}#)
+ (#{1-}# #{lev 60645}#)))))
+ #{tmp 60647}#)
+ (let ((#{tmp 60654}#
($sc-dispatch
- #{p 37420}#
+ #{p 60644}#
'(#(free-id
#(syntax-object
quasiquote
@@ -19466,7 +19521,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19475,13 +19530,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19493,19 +19548,19 @@
(hygiene guile))))))
(hygiene guile)))
any))))
- (if #{tmp 37430}#
+ (if #{tmp 60654}#
(@apply
- (lambda (#{p 37434}#)
- (#{quasicons 37398}#
+ (lambda (#{p 60658}#)
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37149"))
+ #(ribcage #(p) #((top)) #("i60373"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19514,13 +19569,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19534,12 +19589,12 @@
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i37149"))
+ #(ribcage #(p) #((top)) #("i60373"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19548,13 +19603,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19565,18 +19620,18 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- (list #{p 37434}#)
- (#{1+}# #{lev 37421}#))))
- #{tmp 37430}#)
- (let ((#{tmp 37437}#
- ($sc-dispatch #{p 37420}# '(any . any))))
- (if #{tmp 37437}#
+ (#{quasi 60620}#
+ (list #{p 60658}#)
+ (#{1+}# #{lev 60645}#))))
+ #{tmp 60654}#)
+ (let ((#{tmp 60661}#
+ ($sc-dispatch #{p 60644}# '(any . any))))
+ (if #{tmp 60661}#
(@apply
- (lambda (#{p 37441}# #{q 37442}#)
- (let ((#{tmp 37444}#
+ (lambda (#{p 60665}# #{q 60666}#)
+ (let ((#{tmp 60668}#
($sc-dispatch
- #{p 37441}#
+ #{p 60665}#
'(#(free-id
#(syntax-object
unquote
@@ -19584,12 +19639,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19604,13 +19659,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19623,28 +19678,28 @@
(hygiene guile)))
.
each-any))))
- (if #{tmp 37444}#
+ (if #{tmp 60668}#
(@apply
- (lambda (#{p 37448}#)
- (if (= #{lev 37421}# 0)
- (#{quasilist* 37400}#
- (map (lambda (#{tmp 37160 37487}#)
+ (lambda (#{p 60672}#)
+ (if (= #{lev 60645}# 0)
+ (#{quasilist* 60624}#
+ (map (lambda (#{tmp 60384 60711}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37158"))
+ #("i60382"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19659,13 +19714,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19677,29 +19732,29 @@
(hygiene
guile))))))
(hygiene guile))
- #{tmp 37160 37487}#))
- #{p 37448}#)
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#))
- (#{quasicons 37398}#
- (#{quasicons 37398}#
+ #{tmp 60384 60711}#))
+ #{p 60672}#)
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#))
+ (#{quasicons 60622}#
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37158"))
+ #("i60382"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19714,13 +19769,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19737,16 +19792,16 @@
#(ribcage
#(p)
#((top))
- #("i37158"))
+ #("i60382"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19761,13 +19816,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19778,16 +19833,16 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- #{p 37448}#
- (#{1-}# #{lev 37421}#)))
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#))))
- #{tmp 37444}#)
- (let ((#{tmp 37492}#
+ (#{quasi 60620}#
+ #{p 60672}#
+ (#{1-}# #{lev 60645}#)))
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#))))
+ #{tmp 60668}#)
+ (let ((#{tmp 60716}#
($sc-dispatch
- #{p 37441}#
+ #{p 60665}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -19795,12 +19850,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19815,13 +19870,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19834,30 +19889,30 @@
(hygiene guile)))
.
each-any))))
- (if #{tmp 37492}#
+ (if #{tmp 60716}#
(@apply
- (lambda (#{p 37496}#)
- (if (= #{lev 37421}# 0)
- (#{quasiappend 37399}#
- (map (lambda (#{tmp 37165 37499}#)
+ (lambda (#{p 60720}#)
+ (if (= #{lev 60645}# 0)
+ (#{quasiappend 60623}#
+ (map (lambda (#{tmp 60389 60723}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37163"))
+ #("i60387"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152"
- "i37153"))
+ #("i60376"
+ "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142"
- "i37143"))
+ #("i60366"
+ "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19872,13 +19927,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19890,29 +19945,29 @@
(hygiene
guile))))))
(hygiene guile))
- #{tmp 37165 37499}#))
- #{p 37496}#)
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#))
- (#{quasicons 37398}#
- (#{quasicons 37398}#
+ #{tmp 60389 60723}#))
+ #{p 60720}#)
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#))
+ (#{quasicons 60622}#
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37163"))
+ #("i60387"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19927,13 +19982,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19950,16 +20005,16 @@
#(ribcage
#(p)
#((top))
- #("i37163"))
+ #("i60387"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19974,13 +20029,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19991,49 +20046,49 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- #{p 37496}#
- (#{1-}# #{lev 37421}#)))
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#))))
- #{tmp 37492}#)
- (#{quasicons 37398}#
- (#{quasi 37396}#
- #{p 37441}#
- #{lev 37421}#)
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#)))))))
- #{tmp 37437}#)
- (let ((#{tmp 37513}#
- ($sc-dispatch #{p 37420}# '#(vector each-any))))
- (if #{tmp 37513}#
+ (#{quasi 60620}#
+ #{p 60720}#
+ (#{1-}# #{lev 60645}#)))
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#))))
+ #{tmp 60716}#)
+ (#{quasicons 60622}#
+ (#{quasi 60620}#
+ #{p 60665}#
+ #{lev 60645}#)
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#)))))))
+ #{tmp 60661}#)
+ (let ((#{tmp 60737}#
+ ($sc-dispatch #{p 60644}# '#(vector each-any))))
+ (if #{tmp 60737}#
(@apply
- (lambda (#{x 37517}#)
- (let ((#{x 37520}#
- (#{vquasi 37397}#
- #{x 37517}#
- #{lev 37421}#)))
- (let ((#{tmp 37522}#
+ (lambda (#{x 60741}#)
+ (let ((#{x 60744}#
+ (#{vquasi 60621}#
+ #{x 60741}#
+ #{lev 60645}#)))
+ (let ((#{tmp 60746}#
($sc-dispatch
- #{x 37520}#
+ #{x 60744}#
'(#(atom "quote") each-any))))
- (if #{tmp 37522}#
+ (if #{tmp 60746}#
(@apply
- (lambda (#{x 37526}#)
+ (lambda (#{x 60750}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i37270"))
+ #("i60494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37267"))
+ #("i60491"))
#(ribcage
(emit quasivector
quasilist*
@@ -20048,13 +20103,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20065,28 +20120,28 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (list->vector #{x 37526}#)))
- #{tmp 37522}#)
+ (list->vector #{x 60750}#)))
+ #{tmp 60746}#)
(letrec*
- ((#{f 37528}#
- (lambda (#{y 37540}# #{k 37541}#)
- (let ((#{tmp 37543}#
+ ((#{f 60752}#
+ (lambda (#{y 60764}# #{k 60765}#)
+ (let ((#{tmp 60767}#
($sc-dispatch
- #{y 37540}#
+ #{y 60764}#
'(#(atom "quote")
each-any))))
- (if #{tmp 37543}#
+ (if #{tmp 60767}#
(@apply
- (lambda (#{y 37546}#)
- (#{k 37541}#
- (map (lambda (#{tmp 37295 37547}#)
+ (lambda (#{y 60770}#)
+ (#{k 60765}#
+ (map (lambda (#{tmp 60519 60771}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i37293"))
+ #("i60517"))
#(ribcage
()
()
@@ -20098,13 +20153,13 @@
#((top)
(top)
(top))
- #("i37275"
- "i37276"
- "i37277"))
+ #("i60499"
+ "i60500"
+ "i60501"))
#(ribcage
#(_)
#((top))
- #("i37273"))
+ #("i60497"))
#(ribcage
()
()
@@ -20112,7 +20167,7 @@
#(ribcage
#(x)
#((top))
- #("i37267"))
+ #("i60491"))
#(ribcage
(emit quasivector
quasilist*
@@ -20127,13 +20182,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20147,42 +20202,42 @@
guile))))))
(hygiene
guile))
- #{tmp 37295 37547}#))
- #{y 37546}#)))
- #{tmp 37543}#)
- (let ((#{tmp 37548}#
+ #{tmp 60519 60771}#))
+ #{y 60770}#)))
+ #{tmp 60767}#)
+ (let ((#{tmp 60772}#
($sc-dispatch
- #{y 37540}#
+ #{y 60764}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 37548}#
+ (if #{tmp 60772}#
(@apply
- (lambda (#{y 37551}#)
- (#{k 37541}#
- #{y 37551}#))
- #{tmp 37548}#)
- (let ((#{tmp 37552}#
+ (lambda (#{y 60775}#)
+ (#{k 60765}#
+ #{y 60775}#))
+ #{tmp 60772}#)
+ (let ((#{tmp 60776}#
($sc-dispatch
- #{y 37540}#
+ #{y 60764}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 37552}#
+ (if #{tmp 60776}#
(@apply
- (lambda (#{y 37555}#
- #{z 37556}#)
- (#{f 37528}#
- #{z 37556}#
- (lambda (#{ls 37557}#)
- (#{k 37541}#
+ (lambda (#{y 60779}#
+ #{z 60780}#)
+ (#{f 60752}#
+ #{z 60780}#
+ (lambda (#{ls 60781}#)
+ (#{k 60765}#
(append
- #{y 37555}#
- #{ls 37557}#)))))
- #{tmp 37552}#)
+ #{y 60779}#
+ #{ls 60781}#)))))
+ #{tmp 60776}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -20191,14 +20246,14 @@
()
())
#(ribcage
- #(#{ g37310}#)
- #((m37311
+ #(#{ g60534}#)
+ #((m60535
top))
- #("i37314"))
+ #("i60538"))
#(ribcage
#(else)
#((top))
- #("i37308"))
+ #("i60532"))
#(ribcage
()
()
@@ -20208,13 +20263,13 @@
#((top)
(top)
(top))
- #("i37275"
- "i37276"
- "i37277"))
+ #("i60499"
+ "i60500"
+ "i60501"))
#(ribcage
#(_)
#((top))
- #("i37273"))
+ #("i60497"))
#(ribcage
()
()
@@ -20222,7 +20277,7 @@
#(ribcage
#(x)
#((top))
- #("i37267"))
+ #("i60491"))
#(ribcage
(emit quasivector
quasilist*
@@ -20237,13 +20292,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20257,17 +20312,17 @@
guile))))))
(hygiene
guile))
- #{x 37520}#))))))))))
- (#{f 37528}#
- #{x 37520}#
- (lambda (#{ls 37530}#)
- (let ((#{tmp 37532}#
+ #{x 60744}#))))))))))
+ (#{f 60752}#
+ #{x 60744}#
+ (lambda (#{ls 60754}#)
+ (let ((#{tmp 60756}#
($sc-dispatch
- #{ls 37530}#
+ #{ls 60754}#
'each-any)))
- (if #{tmp 37532}#
+ (if #{tmp 60756}#
(@apply
- (lambda (#{ g37283 37535}#)
+ (lambda (#{ g60507 60759}#)
(cons '#(syntax-object
"vector"
((top)
@@ -20276,9 +20331,9 @@
()
())
#(ribcage
- #(#{ g37283}#)
- #((m37284 top))
- #("i37288"))
+ #(#{ g60507}#)
+ #((m60508 top))
+ #("i60512"))
#(ribcage
()
()
@@ -20294,11 +20349,11 @@
#(ribcage
#(ls)
#((top))
- #("i37282"))
+ #("i60506"))
#(ribcage
#(_)
#((top))
- #("i37273"))
+ #("i60497"))
#(ribcage
()
()
@@ -20306,7 +20361,7 @@
#(ribcage
#(x)
#((top))
- #("i37267"))
+ #("i60491"))
#(ribcage
(emit quasivector
quasilist*
@@ -20321,13 +20376,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20340,22 +20395,22 @@
(hygiene
guile))))))
(hygiene guile))
- #{ g37283 37535}#))
- #{tmp 37532}#)
+ #{ g60507 60759}#))
+ #{tmp 60756}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{ls 37530}#))))))))))
- #{tmp 37513}#)
+ #{ls 60754}#))))))))))
+ #{tmp 60737}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37173"))
+ #(ribcage #(p) #((top)) #("i60397"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -20370,13 +20425,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20387,17 +20442,17 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{p 37420}#)))))))))))
- (#{vquasi 37397}#
- (lambda (#{p 37585}# #{lev 37586}#)
- (let ((#{tmp 37588}#
- ($sc-dispatch #{p 37585}# '(any . any))))
- (if #{tmp 37588}#
+ #{p 60644}#)))))))))))
+ (#{vquasi 60621}#
+ (lambda (#{p 60809}# #{lev 60810}#)
+ (let ((#{tmp 60812}#
+ ($sc-dispatch #{p 60809}# '(any . any))))
+ (if #{tmp 60812}#
(@apply
- (lambda (#{p 37592}# #{q 37593}#)
- (let ((#{tmp 37595}#
+ (lambda (#{p 60816}# #{q 60817}#)
+ (let ((#{tmp 60819}#
($sc-dispatch
- #{p 37592}#
+ #{p 60816}#
'(#(free-id
#(syntax-object
unquote
@@ -20405,12 +20460,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20425,13 +20480,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20444,28 +20499,28 @@
(hygiene guile)))
.
each-any))))
- (if #{tmp 37595}#
+ (if #{tmp 60819}#
(@apply
- (lambda (#{p 37599}#)
- (if (= #{lev 37586}# 0)
- (#{quasilist* 37400}#
- (map (lambda (#{tmp 37189 37638}#)
+ (lambda (#{p 60823}#)
+ (if (= #{lev 60810}# 0)
+ (#{quasilist* 60624}#
+ (map (lambda (#{tmp 60413 60862}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37187"))
+ #("i60411"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20480,13 +20535,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20497,24 +20552,24 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{tmp 37189 37638}#))
- #{p 37599}#)
- (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))
- (#{quasicons 37398}#
- (#{quasicons 37398}#
+ #{tmp 60413 60862}#))
+ #{p 60823}#)
+ (#{vquasi 60621}# #{q 60817}# #{lev 60810}#))
+ (#{quasicons 60622}#
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37187"))
+ #(ribcage #(p) #((top)) #("i60411"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20529,13 +20584,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20549,16 +20604,16 @@
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37187"))
+ #(ribcage #(p) #((top)) #("i60411"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20573,13 +20628,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20590,14 +20645,14 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- #{p 37599}#
- (#{1-}# #{lev 37586}#)))
- (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))))
- #{tmp 37595}#)
- (let ((#{tmp 37645}#
+ (#{quasi 60620}#
+ #{p 60823}#
+ (#{1-}# #{lev 60810}#)))
+ (#{vquasi 60621}# #{q 60817}# #{lev 60810}#))))
+ #{tmp 60819}#)
+ (let ((#{tmp 60869}#
($sc-dispatch
- #{p 37592}#
+ #{p 60816}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -20605,12 +20660,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20625,13 +20680,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20644,28 +20699,28 @@
(hygiene guile)))
.
each-any))))
- (if #{tmp 37645}#
+ (if #{tmp 60869}#
(@apply
- (lambda (#{p 37649}#)
- (if (= #{lev 37586}# 0)
- (#{quasiappend 37399}#
- (map (lambda (#{tmp 37194 37652}#)
+ (lambda (#{p 60873}#)
+ (if (= #{lev 60810}# 0)
+ (#{quasiappend 60623}#
+ (map (lambda (#{tmp 60418 60876}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37192"))
+ #("i60416"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20680,13 +20735,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20697,26 +20752,26 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{tmp 37194 37652}#))
- #{p 37649}#)
- (#{vquasi 37397}#
- #{q 37593}#
- #{lev 37586}#))
- (#{quasicons 37398}#
- (#{quasicons 37398}#
+ #{tmp 60418 60876}#))
+ #{p 60873}#)
+ (#{vquasi 60621}#
+ #{q 60817}#
+ #{lev 60810}#))
+ (#{quasicons 60622}#
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37192"))
+ #(ribcage #(p) #((top)) #("i60416"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20731,13 +20786,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20751,16 +20806,16 @@
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i37192"))
+ #(ribcage #(p) #((top)) #("i60416"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20775,13 +20830,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20792,19 +20847,19 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- #{p 37649}#
- (#{1-}# #{lev 37586}#)))
- (#{vquasi 37397}#
- #{q 37593}#
- #{lev 37586}#))))
- #{tmp 37645}#)
- (#{quasicons 37398}#
- (#{quasi 37396}# #{p 37592}# #{lev 37586}#)
- (#{vquasi 37397}# #{q 37593}# #{lev 37586}#)))))))
- #{tmp 37588}#)
- (let ((#{tmp 37670}# ($sc-dispatch #{p 37585}# '())))
- (if #{tmp 37670}#
+ (#{quasi 60620}#
+ #{p 60873}#
+ (#{1-}# #{lev 60810}#)))
+ (#{vquasi 60621}#
+ #{q 60817}#
+ #{lev 60810}#))))
+ #{tmp 60869}#)
+ (#{quasicons 60622}#
+ (#{quasi 60620}# #{p 60816}# #{lev 60810}#)
+ (#{vquasi 60621}# #{q 60817}# #{lev 60810}#)))))))
+ #{tmp 60812}#)
+ (let ((#{tmp 60894}# ($sc-dispatch #{p 60809}# '())))
+ (if #{tmp 60894}#
(@apply
(lambda ()
'(#(syntax-object
@@ -20814,7 +20869,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20823,13 +20878,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20841,55 +20896,55 @@
(hygiene guile))))))
(hygiene guile))
()))
- #{tmp 37670}#)
+ #{tmp 60894}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 37585}#)))))))
- (#{quasicons 37398}#
- (lambda (#{x 37683}# #{y 37684}#)
- (let ((#{tmp 37685}# (list #{x 37683}# #{y 37684}#)))
- (let ((#{tmp 37686}#
- ($sc-dispatch #{tmp 37685}# '(any any))))
- (if #{tmp 37686}#
+ #{p 60809}#)))))))
+ (#{quasicons 60622}#
+ (lambda (#{x 60907}# #{y 60908}#)
+ (let ((#{tmp 60909}# (list #{x 60907}# #{y 60908}#)))
+ (let ((#{tmp 60910}#
+ ($sc-dispatch #{tmp 60909}# '(any any))))
+ (if #{tmp 60910}#
(@apply
- (lambda (#{x 37688}# #{y 37689}#)
- (let ((#{tmp 37691}#
+ (lambda (#{x 60912}# #{y 60913}#)
+ (let ((#{tmp 60915}#
($sc-dispatch
- #{y 37689}#
+ #{y 60913}#
'(#(atom "quote") any))))
- (if #{tmp 37691}#
+ (if #{tmp 60915}#
(@apply
- (lambda (#{dy 37695}#)
- (let ((#{tmp 37697}#
+ (lambda (#{dy 60919}#)
+ (let ((#{tmp 60921}#
($sc-dispatch
- #{x 37688}#
+ #{x 60912}#
'(#(atom "quote") any))))
- (if #{tmp 37697}#
+ (if #{tmp 60921}#
(@apply
- (lambda (#{dx 37701}#)
+ (lambda (#{dx 60925}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i37216"))
+ #("i60440"))
#(ribcage
#(dy)
#((top))
- #("i37212"))
+ #("i60436"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -20904,13 +20959,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20921,31 +20976,31 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{dx 37701}# #{dy 37695}#)))
- #{tmp 37697}#)
- (if (null? #{dy 37695}#)
+ (cons #{dx 60925}# #{dy 60919}#)))
+ #{tmp 60921}#)
+ (if (null? #{dy 60919}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i37218"))
+ #("i60442"))
#(ribcage
#(dy)
#((top))
- #("i37212"))
+ #("i60436"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -20960,13 +21015,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20977,29 +21032,29 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{x 37688}#)
+ #{x 60912}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i37218"))
+ #("i60442"))
#(ribcage
#(dy)
#((top))
- #("i37212"))
+ #("i60436"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -21014,13 +21069,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21031,34 +21086,34 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{x 37688}#
- #{y 37689}#)))))
- #{tmp 37691}#)
- (let ((#{tmp 37706}#
+ #{x 60912}#
+ #{y 60913}#)))))
+ #{tmp 60915}#)
+ (let ((#{tmp 60930}#
($sc-dispatch
- #{y 37689}#
+ #{y 60913}#
'(#(atom "list") . any))))
- (if #{tmp 37706}#
+ (if #{tmp 60930}#
(@apply
- (lambda (#{stuff 37710}#)
+ (lambda (#{stuff 60934}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37221"))
+ #("i60445"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -21073,13 +21128,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21090,33 +21145,33 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{x 37688}# #{stuff 37710}#)))
- #{tmp 37706}#)
- (let ((#{tmp 37711}#
+ (cons #{x 60912}# #{stuff 60934}#)))
+ #{tmp 60930}#)
+ (let ((#{tmp 60935}#
($sc-dispatch
- #{y 37689}#
+ #{y 60913}#
'(#(atom "list*") . any))))
- (if #{tmp 37711}#
+ (if #{tmp 60935}#
(@apply
- (lambda (#{stuff 37715}#)
+ (lambda (#{stuff 60939}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37224"))
+ #("i60448"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -21131,13 +21186,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21148,23 +21203,23 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{x 37688}# #{stuff 37715}#)))
- #{tmp 37711}#)
+ (cons #{x 60912}# #{stuff 60939}#)))
+ #{tmp 60935}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i37226"))
+ #(ribcage #(_) #((top)) #("i60450"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -21179,13 +21234,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21196,21 +21251,21 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{x 37688}#
- #{y 37689}#))))))))
- #{tmp 37686}#)
+ #{x 60912}#
+ #{y 60913}#))))))))
+ #{tmp 60910}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37685}#))))))
- (#{quasiappend 37399}#
- (lambda (#{x 37726}# #{y 37727}#)
- (let ((#{tmp 37729}#
- ($sc-dispatch #{y 37727}# '(#(atom "quote") ()))))
- (if #{tmp 37729}#
+ #{tmp 60909}#))))))
+ (#{quasiappend 60623}#
+ (lambda (#{x 60950}# #{y 60951}#)
+ (let ((#{tmp 60953}#
+ ($sc-dispatch #{y 60951}# '(#(atom "quote") ()))))
+ (if #{tmp 60953}#
(@apply
(lambda ()
- (if (null? #{x 37726}#)
+ (if (null? #{x 60950}#)
'(#(syntax-object
"quote"
((top)
@@ -21218,7 +21273,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i37230" "i37231"))
+ #("i60454" "i60455"))
#(ribcage
(emit quasivector
quasilist*
@@ -21227,13 +21282,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21245,23 +21300,23 @@
(hygiene guile))))))
(hygiene guile))
())
- (if (null? (cdr #{x 37726}#))
- (car #{x 37726}#)
- (let ((#{tmp 37734}#
- ($sc-dispatch #{x 37726}# 'each-any)))
- (if #{tmp 37734}#
+ (if (null? (cdr #{x 60950}#))
+ (car #{x 60950}#)
+ (let ((#{tmp 60958}#
+ ($sc-dispatch #{x 60950}# 'each-any)))
+ (if #{tmp 60958}#
(@apply
- (lambda (#{p 37738}#)
+ (lambda (#{p 60962}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i37242"))
+ #(ribcage #(p) #((top)) #("i60466"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37230" "i37231"))
+ #("i60454" "i60455"))
#(ribcage
(emit quasivector
quasilist*
@@ -21276,13 +21331,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21293,21 +21348,21 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{p 37738}#))
- #{tmp 37734}#)
+ #{p 60962}#))
+ #{tmp 60958}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37726}#))))))
- #{tmp 37729}#)
- (if (null? #{x 37726}#)
- #{y 37727}#
- (let ((#{tmp 37746}# (list #{x 37726}# #{y 37727}#)))
- (let ((#{tmp 37747}#
- ($sc-dispatch #{tmp 37746}# '(each-any any))))
- (if #{tmp 37747}#
+ #{x 60950}#))))))
+ #{tmp 60953}#)
+ (if (null? #{x 60950}#)
+ #{y 60951}#
+ (let ((#{tmp 60970}# (list #{x 60950}# #{y 60951}#)))
+ (let ((#{tmp 60971}#
+ ($sc-dispatch #{tmp 60970}# '(each-any any))))
+ (if #{tmp 60971}#
(@apply
- (lambda (#{p 37749}# #{y 37750}#)
+ (lambda (#{p 60973}# #{y 60974}#)
(cons '#(syntax-object
"append"
((top)
@@ -21315,13 +21370,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i37253" "i37254"))
- #(ribcage #(_) #((top)) #("i37245"))
+ #("i60477" "i60478"))
+ #(ribcage #(_) #((top)) #("i60469"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37230" "i37231"))
+ #("i60454" "i60455"))
#(ribcage
(emit quasivector
quasilist*
@@ -21336,13 +21391,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21353,36 +21408,36 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (append #{p 37749}# (list #{y 37750}#))))
- #{tmp 37747}#)
+ (append #{p 60973}# (list #{y 60974}#))))
+ #{tmp 60971}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37746}#)))))))))
- (#{quasilist* 37400}#
- (lambda (#{x 37754}# #{y 37755}#)
+ #{tmp 60970}#)))))))))
+ (#{quasilist* 60624}#
+ (lambda (#{x 60978}# #{y 60979}#)
(letrec*
- ((#{f 37756}#
- (lambda (#{x 37860}#)
- (if (null? #{x 37860}#)
- #{y 37755}#
- (#{quasicons 37398}#
- (car #{x 37860}#)
- (#{f 37756}# (cdr #{x 37860}#)))))))
- (#{f 37756}# #{x 37754}#))))
- (#{emit 37402}#
- (lambda (#{x 37863}#)
- (let ((#{tmp 37865}#
- ($sc-dispatch #{x 37863}# '(#(atom "quote") any))))
- (if #{tmp 37865}#
+ ((#{f 60980}#
+ (lambda (#{x 61084}#)
+ (if (null? #{x 61084}#)
+ #{y 60979}#
+ (#{quasicons 60622}#
+ (car #{x 61084}#)
+ (#{f 60980}# (cdr #{x 61084}#)))))))
+ (#{f 60980}# #{x 60978}#))))
+ (#{emit 60626}#
+ (lambda (#{x 61087}#)
+ (let ((#{tmp 61089}#
+ ($sc-dispatch #{x 61087}# '(#(atom "quote") any))))
+ (if #{tmp 61089}#
(@apply
- (lambda (#{x 37869}#)
+ (lambda (#{x 61093}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i37320"))
+ #(ribcage #(x) #((top)) #("i60544"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37317"))
+ #(ribcage #(x) #((top)) #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21391,13 +21446,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21408,32 +21463,32 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{x 37869}#))
- #{tmp 37865}#)
- (let ((#{tmp 37870}#
+ #{x 61093}#))
+ #{tmp 61089}#)
+ (let ((#{tmp 61094}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "list") . each-any))))
- (if #{tmp 37870}#
+ (if #{tmp 61094}#
(@apply
- (lambda (#{x 37874}#)
- (let ((#{tmp 37875}# (map #{emit 37402}# #{x 37874}#)))
- (let ((#{tmp 37876}#
- ($sc-dispatch #{tmp 37875}# 'each-any)))
- (if #{tmp 37876}#
+ (lambda (#{x 61098}#)
+ (let ((#{tmp 61099}# (map #{emit 60626}# #{x 61098}#)))
+ (let ((#{tmp 61100}#
+ ($sc-dispatch #{tmp 61099}# 'each-any)))
+ (if #{tmp 61100}#
(@apply
- (lambda (#{ g37325 37878}#)
+ (lambda (#{ g60549 61102}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37325}#)
- #((m37326 top))
- #("i37330"))
- #(ribcage #(x) #((top)) #("i37323"))
+ #(#{ g60549}#)
+ #((m60550 top))
+ #("i60554"))
+ #(ribcage #(x) #((top)) #("i60547"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37317"))
+ #(ribcage #(x) #((top)) #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21448,13 +21503,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21465,62 +21520,62 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{ g37325 37878}#))
- #{tmp 37876}#)
+ #{ g60549 61102}#))
+ #{tmp 61100}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37875}#)))))
- #{tmp 37870}#)
- (let ((#{tmp 37879}#
+ #{tmp 61099}#)))))
+ #{tmp 61094}#)
+ (let ((#{tmp 61103}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 37879}#
+ (if #{tmp 61103}#
(@apply
- (lambda (#{x 37883}# #{y 37884}#)
+ (lambda (#{x 61107}# #{y 61108}#)
(letrec*
- ((#{f 37885}#
- (lambda (#{x* 37888}#)
- (if (null? #{x* 37888}#)
- (#{emit 37402}# #{y 37884}#)
- (let ((#{tmp 37889}#
- (list (#{emit 37402}#
- (car #{x* 37888}#))
- (#{f 37885}#
- (cdr #{x* 37888}#)))))
- (let ((#{tmp 37890}#
+ ((#{f 61109}#
+ (lambda (#{x* 61112}#)
+ (if (null? #{x* 61112}#)
+ (#{emit 60626}# #{y 61108}#)
+ (let ((#{tmp 61113}#
+ (list (#{emit 60626}#
+ (car #{x* 61112}#))
+ (#{f 61109}#
+ (cdr #{x* 61112}#)))))
+ (let ((#{tmp 61114}#
($sc-dispatch
- #{tmp 37889}#
+ #{tmp 61113}#
'(any any))))
- (if #{tmp 37890}#
+ (if #{tmp 61114}#
(@apply
- (lambda (#{ g37345 37892}#
- #{ g37344 37893}#)
+ (lambda (#{ g60569 61116}#
+ #{ g60568 61117}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37345}#
- #{ g37344}#)
- #((m37346 top)
- (m37346 top))
- #("i37350" "i37351"))
+ #(#{ g60569}#
+ #{ g60568}#)
+ #((m60570 top)
+ (m60570 top))
+ #("i60574" "i60575"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i37339" "i37340"))
+ #("i60563" "i60564"))
#(ribcage
#(x y)
#((top) (top))
- #("i37335" "i37336"))
+ #("i60559" "i60560"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37317"))
+ #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21535,13 +21590,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21553,48 +21608,48 @@
(hygiene
guile))))))
(hygiene guile))
- #{ g37345 37892}#
- #{ g37344 37893}#))
- #{tmp 37890}#)
+ #{ g60569 61116}#
+ #{ g60568 61117}#))
+ #{tmp 61114}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37889}#))))))))
- (#{f 37885}# #{x 37883}#)))
- #{tmp 37879}#)
- (let ((#{tmp 37894}#
+ #{tmp 61113}#))))))))
+ (#{f 61109}# #{x 61107}#)))
+ #{tmp 61103}#)
+ (let ((#{tmp 61118}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "append") . each-any))))
- (if #{tmp 37894}#
+ (if #{tmp 61118}#
(@apply
- (lambda (#{x 37898}#)
- (let ((#{tmp 37899}#
- (map #{emit 37402}# #{x 37898}#)))
- (let ((#{tmp 37900}#
+ (lambda (#{x 61122}#)
+ (let ((#{tmp 61123}#
+ (map #{emit 60626}# #{x 61122}#)))
+ (let ((#{tmp 61124}#
($sc-dispatch
- #{tmp 37899}#
+ #{tmp 61123}#
'each-any)))
- (if #{tmp 37900}#
+ (if #{tmp 61124}#
(@apply
- (lambda (#{ g37357 37902}#)
+ (lambda (#{ g60581 61126}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37357}#)
- #((m37358 top))
- #("i37362"))
+ #(#{ g60581}#)
+ #((m60582 top))
+ #("i60586"))
#(ribcage
#(x)
#((top))
- #("i37355"))
+ #("i60579"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37317"))
+ #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21609,13 +21664,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21626,46 +21681,46 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{ g37357 37902}#))
- #{tmp 37900}#)
+ #{ g60581 61126}#))
+ #{tmp 61124}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37899}#)))))
- #{tmp 37894}#)
- (let ((#{tmp 37903}#
+ #{tmp 61123}#)))))
+ #{tmp 61118}#)
+ (let ((#{tmp 61127}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "vector") . each-any))))
- (if #{tmp 37903}#
+ (if #{tmp 61127}#
(@apply
- (lambda (#{x 37907}#)
- (let ((#{tmp 37908}#
- (map #{emit 37402}# #{x 37907}#)))
- (let ((#{tmp 37909}#
+ (lambda (#{x 61131}#)
+ (let ((#{tmp 61132}#
+ (map #{emit 60626}# #{x 61131}#)))
+ (let ((#{tmp 61133}#
($sc-dispatch
- #{tmp 37908}#
+ #{tmp 61132}#
'each-any)))
- (if #{tmp 37909}#
+ (if #{tmp 61133}#
(@apply
- (lambda (#{ g37369 37911}#)
+ (lambda (#{ g60593 61135}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37369}#)
- #((m37370 top))
- #("i37374"))
+ #(#{ g60593}#)
+ #((m60594 top))
+ #("i60598"))
#(ribcage
#(x)
#((top))
- #("i37367"))
+ #("i60591"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37317"))
+ #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21680,13 +21735,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21698,39 +21753,39 @@
(hygiene
guile))))))
(hygiene guile))
- #{ g37369 37911}#))
- #{tmp 37909}#)
+ #{ g60593 61135}#))
+ #{tmp 61133}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37908}#)))))
- #{tmp 37903}#)
- (let ((#{tmp 37912}#
+ #{tmp 61132}#)))))
+ #{tmp 61127}#)
+ (let ((#{tmp 61136}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "list->vector") any))))
- (if #{tmp 37912}#
+ (if #{tmp 61136}#
(@apply
- (lambda (#{x 37916}#)
- (let ((#{tmp 37917}#
- (#{emit 37402}# #{x 37916}#)))
+ (lambda (#{x 61140}#)
+ (let ((#{tmp 61141}#
+ (#{emit 60626}# #{x 61140}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37381}#)
- #((m37382 top))
- #("i37385"))
+ #(#{ g60605}#)
+ #((m60606 top))
+ #("i60609"))
#(ribcage
#(x)
#((top))
- #("i37379"))
+ #("i60603"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37317"))
+ #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21745,13 +21800,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21762,83 +21817,83 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{tmp 37917}#)))
- #{tmp 37912}#)
- (let ((#{tmp 37920}#
+ #{tmp 61141}#)))
+ #{tmp 61136}#)
+ (let ((#{tmp 61144}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "value") any))))
- (if #{tmp 37920}#
+ (if #{tmp 61144}#
(@apply
- (lambda (#{x 37924}#) #{x 37924}#)
- #{tmp 37920}#)
+ (lambda (#{x 61148}#) #{x 61148}#)
+ #{tmp 61144}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37863}#))))))))))))))))))
- (lambda (#{x 37403}#)
- (let ((#{tmp 37405}#
- ($sc-dispatch #{x 37403}# '(_ any))))
- (if #{tmp 37405}#
+ #{x 61087}#))))))))))))))))))
+ (lambda (#{x 60627}#)
+ (let ((#{tmp 60629}#
+ ($sc-dispatch #{x 60627}# '(_ any))))
+ (if #{tmp 60629}#
(@apply
- (lambda (#{e 37409}#)
- (#{emit 37402}# (#{quasi 37396}# #{e 37409}# 0)))
- #{tmp 37405}#)
+ (lambda (#{e 60633}#)
+ (#{emit 60626}# (#{quasi 60620}# #{e 60633}# 0)))
+ #{tmp 60629}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37403}#)))))))
+ #{x 60627}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 37980}#)
+ (lambda (#{x 61204}#)
(letrec*
- ((#{read-file 37981}#
- (lambda (#{fn 38097}# #{k 38098}#)
- (let ((#{p 38099}# (open-input-file #{fn 38097}#)))
+ ((#{read-file 61205}#
+ (lambda (#{fn 61314}# #{k 61315}#)
+ (let ((#{p 61316}# (open-input-file #{fn 61314}#)))
(letrec*
- ((#{f 38100}#
- (lambda (#{x 38157}# #{result 38158}#)
- (if (eof-object? #{x 38157}#)
+ ((#{f 61317}#
+ (lambda (#{x 61371}# #{result 61372}#)
+ (if (eof-object? #{x 61371}#)
(begin
- (close-input-port #{p 38099}#)
- (reverse #{result 38158}#))
- (#{f 38100}#
- (read #{p 38099}#)
- (cons (datum->syntax #{k 38098}# #{x 38157}#)
- #{result 38158}#))))))
- (#{f 38100}# (read #{p 38099}#) '()))))))
- (let ((#{tmp 37983}#
- ($sc-dispatch #{x 37980}# '(any any))))
- (if #{tmp 37983}#
+ (close-input-port #{p 61316}#)
+ (reverse #{result 61372}#))
+ (#{f 61317}#
+ (read #{p 61316}#)
+ (cons (datum->syntax #{k 61315}# #{x 61371}#)
+ #{result 61372}#))))))
+ (#{f 61317}# (read #{p 61316}#) '()))))))
+ (let ((#{tmp 61207}#
+ ($sc-dispatch #{x 61204}# '(any any))))
+ (if #{tmp 61207}#
(@apply
- (lambda (#{k 37987}# #{filename 37988}#)
- (let ((#{fn 37989}# (syntax->datum #{filename 37988}#)))
- (let ((#{tmp 37990}#
- (#{read-file 37981}#
- #{fn 37989}#
- #{filename 37988}#)))
- (let ((#{tmp 37991}#
- ($sc-dispatch #{tmp 37990}# 'each-any)))
- (if #{tmp 37991}#
+ (lambda (#{k 61211}# #{filename 61212}#)
+ (let ((#{fn 61213}# (syntax->datum #{filename 61212}#)))
+ (let ((#{tmp 61214}#
+ (#{read-file 61205}#
+ #{fn 61213}#
+ #{filename 61212}#)))
+ (let ((#{tmp 61215}#
+ ($sc-dispatch #{tmp 61214}# 'each-any)))
+ (if #{tmp 61215}#
(@apply
- (lambda (#{exp 38009}#)
+ (lambda (#{exp 61233}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i37977"))
+ #(ribcage #(exp) #((top)) #("i61201"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i37972"))
+ #(ribcage #(fn) #((top)) #("i61196"))
#(ribcage
#(k filename)
#((top) (top))
- #("i37968" "i37969"))
- #(ribcage (read-file) ((top)) ("i37952"))
- #(ribcage #(x) #((top)) #("i37951"))
+ #("i61192" "i61193"))
+ #(ribcage (read-file) ((top)) ("i61176"))
+ #(ribcage #(x) #((top)) #("i61175"))
#(ribcage
(include)
((top))
@@ -21849,54 +21904,54 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{exp 38009}#))
- #{tmp 37991}#)
+ #{exp 61233}#))
+ #{tmp 61215}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37990}#))))))
- #{tmp 37983}#)
+ #{tmp 61214}#))))))
+ #{tmp 61207}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37980}#)))))))
+ #{x 61204}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 38178}#)
- (let ((#{tmp 38180}#
- ($sc-dispatch #{x 38178}# '(any any))))
- (if #{tmp 38180}#
+ (lambda (#{x 61392}#)
+ (let ((#{tmp 61394}#
+ ($sc-dispatch #{x 61392}# '(any any))))
+ (if #{tmp 61394}#
(@apply
- (lambda (#{k 38184}# #{filename 38185}#)
- (let ((#{fn 38186}# (syntax->datum #{filename 38185}#)))
- (let ((#{tmp 38187}#
+ (lambda (#{k 61398}# #{filename 61399}#)
+ (let ((#{fn 61400}# (syntax->datum #{filename 61399}#)))
+ (let ((#{tmp 61401}#
(datum->syntax
- #{filename 38185}#
- (let ((#{t 38190}# (%search-load-path #{fn 38186}#)))
- (if #{t 38190}#
- #{t 38190}#
+ #{filename 61399}#
+ (let ((#{t 61404}# (%search-load-path #{fn 61400}#)))
+ (if #{t 61404}#
+ #{t 61404}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 38178}#
- #{filename 38185}#))))))
+ #{x 61392}#
+ #{filename 61399}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38172"))
+ #(ribcage #(fn) #((top)) #("i61386"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38168"))
+ #(ribcage #(fn) #((top)) #("i61382"))
#(ribcage
#(k filename)
#((top) (top))
- #("i38164" "i38165"))
+ #("i61378" "i61379"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38161"))
+ #(ribcage #(x) #((top)) #("i61375"))
#(ribcage
(include-from-path)
((top))
@@ -21907,53 +21962,53 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{tmp 38187}#))))
- #{tmp 38180}#)
+ #{tmp 61401}#))))
+ #{tmp 61394}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38178}#))))))
+ #{x 61392}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 38200}#)
+ (lambda (#{x 61414}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 38200}#))))
+ #{x 61414}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 38204}#)
+ (lambda (#{x 61418}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 38204}#))))
+ #{x 61418}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 38261}#)
- (let ((#{tmp 38263}#
+ (lambda (#{x 61475}#)
+ (let ((#{tmp 61477}#
($sc-dispatch
- #{x 38261}#
+ #{x 61475}#
'(_ any any . each-any))))
- (if #{tmp 38263}#
+ (if #{tmp 61477}#
(@apply
- (lambda (#{e 38267}# #{m1 38268}# #{m2 38269}#)
- (let ((#{tmp 38270}#
+ (lambda (#{e 61481}# #{m1 61482}# #{m2 61483}#)
+ (let ((#{tmp 61484}#
(letrec*
- ((#{f 38331}#
- (lambda (#{clause 38334}# #{clauses 38335}#)
- (if (null? #{clauses 38335}#)
- (let ((#{tmp 38337}#
+ ((#{f 61538}#
+ (lambda (#{clause 61541}# #{clauses 61542}#)
+ (if (null? #{clauses 61542}#)
+ (let ((#{tmp 61544}#
($sc-dispatch
- #{clause 38334}#
+ #{clause 61541}#
'(#(free-id
#(syntax-object
else
@@ -21962,20 +22017,20 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -21989,34 +22044,34 @@
any
.
each-any))))
- (if #{tmp 38337}#
+ (if #{tmp 61544}#
(@apply
- (lambda (#{e1 38341}# #{e2 38342}#)
+ (lambda (#{e1 61548}# #{e2 61549}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i38229" "i38230"))
+ #("i61443" "i61444"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22027,44 +22082,44 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{e1 38341}# #{e2 38342}#)))
- #{tmp 38337}#)
- (let ((#{tmp 38343}#
+ (cons #{e1 61548}# #{e2 61549}#)))
+ #{tmp 61544}#)
+ (let ((#{tmp 61550}#
($sc-dispatch
- #{clause 38334}#
+ #{clause 61541}#
'(each-any any . each-any))))
- (if #{tmp 38343}#
+ (if #{tmp 61550}#
(@apply
- (lambda (#{k 38347}#
- #{e1 38348}#
- #{e2 38349}#)
+ (lambda (#{k 61554}#
+ #{e1 61555}#
+ #{e2 61556}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22083,9 +22138,9 @@
#((top)
(top)
(top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage () () ())
#(ribcage
#(f
@@ -22094,22 +22149,22 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22129,9 +22184,9 @@
#((top)
(top)
(top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage () () ())
#(ribcage
#(f
@@ -22140,22 +22195,22 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22175,9 +22230,9 @@
#((top)
(top)
(top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage
()
()
@@ -22189,17 +22244,17 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage
()
()
@@ -22207,7 +22262,7 @@
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22221,7 +22276,7 @@
guile))))))
(hygiene
guile))
- #{k 38347}#))
+ #{k 61554}#))
(cons '#(syntax-object
begin
((top)
@@ -22230,9 +22285,9 @@
#((top)
(top)
(top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage () () ())
#(ribcage
#(f
@@ -22241,22 +22296,22 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22268,59 +22323,59 @@
(hygiene
guile))))))
(hygiene guile))
- (cons #{e1 38348}#
- #{e2 38349}#))))
- #{tmp 38343}#)
+ (cons #{e1 61555}#
+ #{e2 61556}#))))
+ #{tmp 61550}#)
(syntax-violation
'case
"bad clause"
- #{x 38261}#
- #{clause 38334}#)))))
- (let ((#{tmp 38357}#
- (#{f 38331}#
- (car #{clauses 38335}#)
- (cdr #{clauses 38335}#))))
- (let ((#{tmp 38360}#
+ #{x 61475}#
+ #{clause 61541}#)))))
+ (let ((#{tmp 61564}#
+ (#{f 61538}#
+ (car #{clauses 61542}#)
+ (cdr #{clauses 61542}#))))
+ (let ((#{tmp 61567}#
($sc-dispatch
- #{clause 38334}#
+ #{clause 61541}#
'(each-any any . each-any))))
- (if #{tmp 38360}#
+ (if #{tmp 61567}#
(@apply
- (lambda (#{k 38364}#
- #{e1 38365}#
- #{e2 38366}#)
+ (lambda (#{k 61571}#
+ #{e1 61572}#
+ #{e2 61573}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22337,32 +22392,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22380,32 +22435,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22425,9 +22480,9 @@
#((top)
(top)
(top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage
()
()
@@ -22435,7 +22490,7 @@
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage
()
()
@@ -22447,17 +22502,17 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage
()
()
@@ -22465,7 +22520,7 @@
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22478,39 +22533,39 @@
(hygiene
guile))))))
(hygiene guile))
- #{k 38364}#))
+ #{k 61571}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22522,28 +22577,28 @@
(hygiene
guile))))))
(hygiene guile))
- (cons #{e1 38365}#
- #{e2 38366}#))
- #{tmp 38357}#))
- #{tmp 38360}#)
+ (cons #{e1 61572}#
+ #{e2 61573}#))
+ #{tmp 61564}#))
+ #{tmp 61567}#)
(syntax-violation
'case
"bad clause"
- #{x 38261}#
- #{clause 38334}#))))))))
- (#{f 38331}# #{m1 38268}# #{m2 38269}#))))
- (let ((#{body 38271}# #{tmp 38270}#))
+ #{x 61475}#
+ #{clause 61541}#))))))))
+ (#{f 61538}# #{m1 61482}# #{m2 61483}#))))
+ (let ((#{body 61485}# #{tmp 61484}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38218"))
+ #(ribcage #(body) #((top)) #("i61432"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210" "i38211" "i38212"))
+ #("i61424" "i61425" "i61426"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38207"))
+ #(ribcage #(x) #((top)) #("i61421"))
#(ribcage
(case)
((top))
@@ -22558,13 +22613,13 @@
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38218"))
+ #(ribcage #(body) #((top)) #("i61432"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210" "i38211" "i38212"))
+ #("i61424" "i61425" "i61426"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38207"))
+ #(ribcage #(x) #((top)) #("i61421"))
#(ribcage
(case)
((top))
@@ -22575,46 +22630,46 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{e 38267}#))
- #{body 38271}#))))
- #{tmp 38263}#)
+ #{e 61481}#))
+ #{body 61485}#))))
+ #{tmp 61477}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38261}#))))))
+ #{x 61475}#))))))
(define make-variable-transformer
- (lambda (#{proc 38385}#)
- (if (procedure? #{proc 38385}#)
+ (lambda (#{proc 61592}#)
+ (if (procedure? #{proc 61592}#)
(letrec*
- ((#{trans 38386}#
- (lambda (#{x 38392}#)
- (#{proc 38385}# #{x 38392}#))))
+ ((#{trans 61593}#
+ (lambda (#{x 61595}#)
+ (#{proc 61592}# #{x 61595}#))))
(begin
(set-procedure-property!
- #{trans 38386}#
+ #{trans 61593}#
'variable-transformer
#t)
- #{trans 38386}#))
+ #{trans 61593}#))
(error "variable transformer not a procedure"
- #{proc 38385}#))))
+ #{proc 61592}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 38425}#)
- (let ((#{tmp 38427}#
- ($sc-dispatch #{x 38425}# '(_ any))))
- (if #{tmp 38427}#
+ (lambda (#{x 61632}#)
+ (let ((#{tmp 61634}#
+ ($sc-dispatch #{x 61632}# '(_ any))))
+ (if #{tmp 61634}#
(@apply
- (lambda (#{e 38431}#)
+ (lambda (#{e 61638}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22628,9 +22683,9 @@
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22644,9 +22699,9 @@
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22661,9 +22716,9 @@
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22677,9 +22732,9 @@
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22693,9 +22748,9 @@
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22710,9 +22765,9 @@
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22726,9 +22781,9 @@
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22742,9 +22797,9 @@
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22758,9 +22813,9 @@
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22774,9 +22829,9 @@
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22787,13 +22842,13 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{e 38431}#))
+ #{e 61638}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22807,9 +22862,9 @@
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22823,9 +22878,9 @@
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22839,9 +22894,9 @@
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22852,19 +22907,19 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{e 38431}#
+ (cons #{e 61638}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i38400"))
+ #("i61607"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22881,12 +22936,12 @@
#(ribcage
#(e)
#((top))
- #("i38400"))
+ #("i61607"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22897,17 +22952,17 @@
((top))
(hygiene guile))))))
(hygiene guile)))))))))
- #{tmp 38427}#)
- (let ((#{tmp 38432}#
+ #{tmp 61634}#)
+ (let ((#{tmp 61639}#
($sc-dispatch
- #{x 38425}#
+ #{x 61632}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22921,33 +22976,33 @@
any
any)
any)))))
- (if (if #{tmp 38432}#
+ (if (if #{tmp 61639}#
(@apply
- (lambda (#{id 38436}#
- #{exp1 38437}#
- #{var 38438}#
- #{val 38439}#
- #{exp2 38440}#)
- (if (identifier? #{id 38436}#)
- (identifier? #{var 38438}#)
+ (lambda (#{id 61643}#
+ #{exp1 61644}#
+ #{var 61645}#
+ #{val 61646}#
+ #{exp2 61647}#)
+ (if (identifier? #{id 61643}#)
+ (identifier? #{var 61645}#)
#f))
- #{tmp 38432}#)
+ #{tmp 61639}#)
#f)
(@apply
- (lambda (#{id 38441}#
- #{exp1 38442}#
- #{var 38443}#
- #{val 38444}#
- #{exp2 38445}#)
+ (lambda (#{id 61648}#
+ #{exp1 61649}#
+ #{var 61650}#
+ #{val 61651}#
+ #{exp2 61652}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415" "i38416" "i38417" "i38418" "i38419"))
+ #("i61622" "i61623" "i61624" "i61625" "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22964,13 +23019,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22987,13 +23042,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23010,13 +23065,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23034,13 +23089,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23057,13 +23112,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23080,13 +23135,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23103,13 +23158,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23130,16 +23185,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23150,8 +23205,8 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{var 38443}#
- #{val 38444}#)
+ #{var 61650}#
+ #{val 61651}#)
(list '#(syntax-object
syntax
((top)
@@ -23162,16 +23217,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23182,8 +23237,8 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{exp2 38445}#))
- (list (cons #{id 38441}#
+ #{exp2 61652}#))
+ (list (cons #{id 61648}#
'(#(syntax-object
x
((top)
@@ -23194,16 +23249,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23224,16 +23279,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23254,16 +23309,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23274,7 +23329,7 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{exp1 38442}#
+ (cons #{exp1 61649}#
'(#(syntax-object
x
((top)
@@ -23289,16 +23344,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23324,16 +23379,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23345,7 +23400,7 @@
(hygiene
guile))))))
(hygiene guile))))))
- (list #{id 38441}#
+ (list #{id 61648}#
(list '#(syntax-object
identifier?
((top)
@@ -23356,16 +23411,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23390,16 +23445,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23411,7 +23466,7 @@
(hygiene
guile))))))
(hygiene guile))
- #{id 38441}#))
+ #{id 61648}#))
(list '#(syntax-object
syntax
((top)
@@ -23422,16 +23477,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23442,37 +23497,37 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{exp1 38442}#))))))
- #{tmp 38432}#)
+ #{exp1 61649}#))))))
+ #{tmp 61639}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38425}#))))))))
+ #{x 61632}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 38478}#)
- (let ((#{tmp 38480}#
+ (lambda (#{x 61685}#)
+ (let ((#{tmp 61687}#
($sc-dispatch
- #{x 38478}#
+ #{x 61685}#
'(_ (any . any) any . each-any))))
- (if #{tmp 38480}#
+ (if #{tmp 61687}#
(@apply
- (lambda (#{id 38484}#
- #{args 38485}#
- #{b0 38486}#
- #{b1 38487}#)
+ (lambda (#{id 61691}#
+ #{args 61692}#
+ #{b0 61693}#
+ #{b1 61694}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38460" "i38461" "i38462" "i38463"))
+ #("i61667" "i61668" "i61669" "i61670"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38457"))
+ #(ribcage #(x) #((top)) #("i61664"))
#(ribcage
(define*)
((top))
@@ -23483,16 +23538,16 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{id 38484}#
+ #{id 61691}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38460" "i38461" "i38462" "i38463"))
+ #("i61667" "i61668" "i61669" "i61670"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38457"))
+ #(ribcage #(x) #((top)) #("i61664"))
#(ribcage
(define*)
((top))
@@ -23503,14 +23558,14 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{args 38485}#
- (cons #{b0 38486}# #{b1 38487}#)))))
- #{tmp 38480}#)
- (let ((#{tmp 38488}#
- ($sc-dispatch #{x 38478}# '(_ any any))))
- (if (if #{tmp 38488}#
+ (cons #{args 61692}#
+ (cons #{b0 61693}# #{b1 61694}#)))))
+ #{tmp 61687}#)
+ (let ((#{tmp 61695}#
+ ($sc-dispatch #{x 61685}# '(_ any any))))
+ (if (if #{tmp 61695}#
(@apply
- (lambda (#{id 38492}# #{val 38493}#)
+ (lambda (#{id 61699}# #{val 61700}#)
(identifier?
'#(syntax-object
x
@@ -23518,9 +23573,9 @@
#(ribcage
#(id val)
#((top) (top))
- #("i38470" "i38471"))
+ #("i61677" "i61678"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38457"))
+ #(ribcage #(x) #((top)) #("i61664"))
#(ribcage
(define*)
((top))
@@ -23531,19 +23586,19 @@
((top))
(hygiene guile))))))
(hygiene guile))))
- #{tmp 38488}#)
+ #{tmp 61695}#)
#f)
(@apply
- (lambda (#{id 38494}# #{val 38495}#)
+ (lambda (#{id 61701}# #{val 61702}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i38474" "i38475"))
+ #("i61681" "i61682"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38457"))
+ #(ribcage #(x) #((top)) #("i61664"))
#(ribcage
(define*)
((top))
@@ -23554,11 +23609,11 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{id 38494}#
- #{val 38495}#))
- #{tmp 38488}#)
+ #{id 61701}#
+ #{val 61702}#))
+ #{tmp 61695}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38478}#))))))))
+ #{x 61685}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 76edfb043..9ddd9ad66 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1319,7 +1319,12 @@
((call) (expand-call (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 cad098d07..1a355a030 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -1,6 +1,6 @@
;;; Tree-IL partial evaluator
-;; Copyright (C) 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2011, 2012 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -1032,7 +1032,7 @@ top-level bindings from ENV and return the resulting expression."
(for-tail (list->seq src (append args (list res))))))
(else
(match (cons name (map for-value args))
- (('cons x ($ <const> _ ()))
+ (('cons x ($ <const> _ (? (cut eq? <> '()))))
(make-primcall src 'list (list x)))
(('cons x ($ <primcall> _ 'list elts))
(make-primcall src 'list (cons x elts)))
diff --git a/test-suite/tests/ftw.test b/test-suite/tests/ftw.test
index 41c731a7a..fa179d400 100644
--- a/test-suite/tests/ftw.test
+++ b/test-suite/tests/ftw.test
@@ -169,6 +169,18 @@
(with-test-prefix "scandir"
+ (pass-if "top-srcdir"
+ (let ((valid? (negate (cut string-any #\/ <>))))
+ (match (scandir %top-srcdir)
+ (((? valid? files) ...)
+ ;; Both subdirs and files must be included.
+ (let ((expected '("libguile" "README" "COPYING"
+ "test-suite" "Makefile.am"
+ "." "..")))
+ (lset= string=?
+ (lset-intersection string=? files expected)
+ expected))))))
+
(pass-if "test-suite"
(let ((select? (cut string-suffix? ".test" <>)))
(match (scandir (string-append %test-dir "/tests") select?)
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index f53d196d5..968ab35c3 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 (<>)
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index 118dd53ec..e8945c6cc 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -1426,6 +1426,11 @@
(call (toplevel top) (lexical x _)))))))
(pass-if-peval
+ ;; Constant folding: cons of #nil does not make list
+ (cons 1 #nil)
+ (primcall cons (const 1) (const '#nil)))
+
+ (pass-if-peval
;; Constant folding: cons
(begin (cons 1 2) #f)
(const #f))