diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-10 00:21:48 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-10 00:21:48 +0100 |
commit | bbc2364a3e15fd4c7bbaf2c1c41554d7e9a87b9b (patch) | |
tree | e978c54b99d5ab1cee681030b024f3a3b64b570e | |
parent | 296004b3ba34139292eb1d8bf54739ee1a082712 (diff) | |
parent | cc8afa2b361635953dfba7f10e4193b1f243a50f (diff) | |
download | guile-bbc2364a3e15fd4c7bbaf2c1c41554d7e9a87b9b.tar.gz |
Merge commit 'cc8afa2b361635953dfba7f10e4193b1f243a50f'
Conflicts:
module/ice-9/psyntax-pp.scm
module/language/tree-il/peval.scm
-rw-r--r-- | doc/ref/api-control.texi | 77 | ||||
-rw-r--r-- | module/ice-9/ftw.scm | 2 | ||||
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 22595 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 7 | ||||
-rw-r--r-- | module/language/tree-il/peval.scm | 4 | ||||
-rw-r--r-- | test-suite/tests/ftw.test | 12 | ||||
-rw-r--r-- | test-suite/tests/syntax.test | 7 | ||||
-rw-r--r-- | test-suite/tests/tree-il.test | 5 |
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)) |