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/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 644ebf5c9..f7e315def 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,1211 +2,1231 @@ (if #f #f) (letrec* - ((#{top-level-eval-hook 4261}# - (lambda (#{x 28515}# #{mod 28516}#) - (primitive-eval #{x 28515}#))) - (#{maybe-name-value! 4266}# - (lambda (#{name 16653}# #{val 16654}#) - (if (if (struct? #{val 16654}#) - (eq? (struct-vtable #{val 16654}#) + ((#{top-level-eval-hook 4262}# + (lambda (#{x 27369}# #{mod 27370}#) + (primitive-eval #{x 27369}#))) + (#{maybe-name-value! 4267}# + (lambda (#{name 16133}# #{val 16134}#) + (if (if (struct? #{val 16134}#) + (eq? (struct-vtable #{val 16134}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16661}# (struct-ref #{val 16654}# 1))) - (if (not (assq 'name #{meta 16661}#)) - (let ((#{v 16666}# - (cons (cons 'name #{name 16653}#) #{meta 16661}#))) - (struct-set! #{val 16654}# 1 #{v 16666}#))))))) - (#{build-application 4268}# - (lambda (#{source 16378}# - #{fun-exp 16379}# - #{arg-exps 16380}#) + (let ((#{meta 16141}# (struct-ref #{val 16134}# 1))) + (if (not (assq 'name #{meta 16141}#)) + (let ((#{v 16146}# + (cons (cons 'name #{name 16133}#) #{meta 16141}#))) + (struct-set! #{val 16134}# 1 #{v 16146}#))))))) + (#{build-application 4269}# + (lambda (#{source 15858}# + #{fun-exp 15859}# + #{arg-exps 15860}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source 16378}# - #{fun-exp 16379}# - #{arg-exps 16380}#))) - (#{build-conditional 4269}# - (lambda (#{source 16386}# - #{test-exp 16387}# - #{then-exp 16388}# - #{else-exp 16389}#) + #{source 15858}# + #{fun-exp 15859}# + #{arg-exps 15860}#))) + (#{build-conditional 4270}# + (lambda (#{source 15866}# + #{test-exp 15867}# + #{then-exp 15868}# + #{else-exp 15869}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source 16386}# - #{test-exp 16387}# - #{then-exp 16388}# - #{else-exp 16389}#))) - (#{build-dynlet 4270}# - (lambda (#{source 16396}# - #{fluids 16397}# - #{vals 16398}# - #{body 16399}#) + #{source 15866}# + #{test-exp 15867}# + #{then-exp 15868}# + #{else-exp 15869}#))) + (#{build-dynlet 4271}# + (lambda (#{source 15876}# + #{fluids 15877}# + #{vals 15878}# + #{body 15879}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source 16396}# - #{fluids 16397}# - #{vals 16398}# - #{body 16399}#))) - (#{build-lexical-reference 4271}# - (lambda (#{type 28517}# - #{source 28518}# - #{name 28519}# - #{var 28520}#) + #{source 15876}# + #{fluids 15877}# + #{vals 15878}# + #{body 15879}#))) + (#{build-lexical-reference 4272}# + (lambda (#{type 27371}# + #{source 27372}# + #{name 27373}# + #{var 27374}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source 28518}# - #{name 28519}# - #{var 28520}#))) - (#{build-lexical-assignment 4272}# - (lambda (#{source 16406}# - #{name 16407}# - #{var 16408}# - #{exp 16409}#) + #{source 27372}# + #{name 27373}# + #{var 27374}#))) + (#{build-lexical-assignment 4273}# + (lambda (#{source 15886}# + #{name 15887}# + #{var 15888}# + #{exp 15889}#) (begin - (if (if (struct? #{exp 16409}#) - (eq? (struct-vtable #{exp 16409}#) + (if (if (struct? #{exp 15889}#) + (eq? (struct-vtable #{exp 15889}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16425}# (struct-ref #{exp 16409}# 1))) - (if (not (assq 'name #{meta 16425}#)) - (let ((#{v 16432}# - (cons (cons 'name #{name 16407}#) #{meta 16425}#))) - (struct-set! #{exp 16409}# 1 #{v 16432}#))))) + (let ((#{meta 15905}# (struct-ref #{exp 15889}# 1))) + (if (not (assq 'name #{meta 15905}#)) + (let ((#{v 15912}# + (cons (cons 'name #{name 15887}#) #{meta 15905}#))) + (struct-set! #{exp 15889}# 1 #{v 15912}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source 16406}# - #{name 16407}# - #{var 16408}# - #{exp 16409}#)))) - (#{analyze-variable 4273}# - (lambda (#{mod 28526}# - #{var 28527}# - #{modref-cont 28528}# - #{bare-cont 28529}#) - (if (not #{mod 28526}#) - (#{bare-cont 28529}# #{var 28527}#) - (let ((#{kind 28530}# (car #{mod 28526}#)) - (#{mod 28531}# (cdr #{mod 28526}#))) - (if (eqv? #{kind 28530}# 'public) - (#{modref-cont 28528}# - #{mod 28531}# - #{var 28527}# + #{source 15886}# + #{name 15887}# + #{var 15888}# + #{exp 15889}#)))) + (#{analyze-variable 4274}# + (lambda (#{mod 27380}# + #{var 27381}# + #{modref-cont 27382}# + #{bare-cont 27383}#) + (if (not #{mod 27380}#) + (#{bare-cont 27383}# #{var 27381}#) + (let ((#{kind 27384}# (car #{mod 27380}#)) + (#{mod 27385}# (cdr #{mod 27380}#))) + (if (eqv? #{kind 27384}# 'public) + (#{modref-cont 27382}# + #{mod 27385}# + #{var 27381}# #t) - (if (eqv? #{kind 28530}# 'private) + (if (eqv? #{kind 27384}# 'private) (if (not (equal? - #{mod 28531}# + #{mod 27385}# (module-name (current-module)))) - (#{modref-cont 28528}# - #{mod 28531}# - #{var 28527}# + (#{modref-cont 27382}# + #{mod 27385}# + #{var 27381}# #f) - (#{bare-cont 28529}# #{var 28527}#)) - (if (eqv? #{kind 28530}# 'bare) - (#{bare-cont 28529}# #{var 28527}#) - (if (eqv? #{kind 28530}# 'hygiene) + (#{bare-cont 27383}# #{var 27381}#)) + (if (eqv? #{kind 27384}# 'bare) + (#{bare-cont 27383}# #{var 27381}#) + (if (eqv? #{kind 27384}# 'hygiene) (if (if (not (equal? - #{mod 28531}# + #{mod 27385}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 28531}#) - #{var 28527}#) + (resolve-module #{mod 27385}#) + #{var 27381}#) #f) - (#{modref-cont 28528}# - #{mod 28531}# - #{var 28527}# + (#{modref-cont 27382}# + #{mod 27385}# + #{var 27381}# #f) - (#{bare-cont 28529}# #{var 28527}#)) + (#{bare-cont 27383}# #{var 27381}#)) (syntax-violation #f "bad module kind" - #{var 28527}# - #{mod 28531}#))))))))) - (#{build-global-reference 4274}# - (lambda (#{source 28546}# #{var 28547}# #{mod 28548}#) - (#{analyze-variable 4273}# - #{mod 28548}# - #{var 28547}# - (lambda (#{mod 28551}# #{var 28552}# #{public? 28553}#) + #{var 27381}# + #{mod 27385}#))))))))) + (#{build-global-reference 4275}# + (lambda (#{source 27400}# #{var 27401}# #{mod 27402}#) + (#{analyze-variable 4274}# + #{mod 27402}# + #{var 27401}# + (lambda (#{mod 27405}# #{var 27406}# #{public? 27407}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source 28546}# - #{mod 28551}# - #{var 28552}# - #{public? 28553}#)) - (lambda (#{var 28561}#) + #{source 27400}# + #{mod 27405}# + #{var 27406}# + #{public? 27407}#)) + (lambda (#{var 27415}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source 28546}# - #{var 28561}#))))) - (#{build-global-assignment 4275}# - (lambda (#{source 16441}# - #{var 16442}# - #{exp 16443}# - #{mod 16444}#) + #{source 27400}# + #{var 27415}#))))) + (#{build-global-assignment 4276}# + (lambda (#{source 15921}# + #{var 15922}# + #{exp 15923}# + #{mod 15924}#) (begin - (if (if (struct? #{exp 16443}#) - (eq? (struct-vtable #{exp 16443}#) + (if (if (struct? #{exp 15923}#) + (eq? (struct-vtable #{exp 15923}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16460}# (struct-ref #{exp 16443}# 1))) - (if (not (assq 'name #{meta 16460}#)) - (let ((#{v 16467}# - (cons (cons 'name #{var 16442}#) #{meta 16460}#))) - (struct-set! #{exp 16443}# 1 #{v 16467}#))))) - (#{analyze-variable 4273}# - #{mod 16444}# - #{var 16442}# - (lambda (#{mod 16472}# #{var 16473}# #{public? 16474}#) + (let ((#{meta 15940}# (struct-ref #{exp 15923}# 1))) + (if (not (assq 'name #{meta 15940}#)) + (let ((#{v 15947}# + (cons (cons 'name #{var 15922}#) #{meta 15940}#))) + (struct-set! #{exp 15923}# 1 #{v 15947}#))))) + (#{analyze-variable 4274}# + #{mod 15924}# + #{var 15922}# + (lambda (#{mod 15952}# #{var 15953}# #{public? 15954}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source 16441}# - #{mod 16472}# - #{var 16473}# - #{public? 16474}# - #{exp 16443}#)) - (lambda (#{var 16482}#) + #{source 15921}# + #{mod 15952}# + #{var 15953}# + #{public? 15954}# + #{exp 15923}#)) + (lambda (#{var 15962}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source 16441}# - #{var 16482}# - #{exp 16443}#)))))) - (#{build-global-definition 4276}# - (lambda (#{source 28567}# #{var 28568}# #{exp 28569}#) + #{source 15921}# + #{var 15962}# + #{exp 15923}#)))))) + (#{build-global-definition 4277}# + (lambda (#{source 27421}# #{var 27422}# #{exp 27423}#) (begin - (if (if (struct? #{exp 28569}#) - (eq? (struct-vtable #{exp 28569}#) + (if (if (struct? #{exp 27423}#) + (eq? (struct-vtable #{exp 27423}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 28585}# (struct-ref #{exp 28569}# 1))) - (if (not (assq 'name #{meta 28585}#)) - (let ((#{v 28592}# - (cons (cons 'name #{var 28568}#) #{meta 28585}#))) - (struct-set! #{exp 28569}# 1 #{v 28592}#))))) + (let ((#{meta 27439}# (struct-ref #{exp 27423}# 1))) + (if (not (assq 'name #{meta 27439}#)) + (let ((#{v 27446}# + (cons (cons 'name #{var 27422}#) #{meta 27439}#))) + (struct-set! #{exp 27423}# 1 #{v 27446}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source 28567}# - #{var 28568}# - #{exp 28569}#)))) - (#{build-simple-lambda 4277}# - (lambda (#{src 16488}# - #{req 16489}# - #{rest 16490}# - #{vars 16491}# - #{meta 16492}# - #{exp 16493}#) - (let ((#{body 16499}# + #{source 27421}# + #{var 27422}# + #{exp 27423}#)))) + (#{build-simple-lambda 4278}# + (lambda (#{src 15968}# + #{req 15969}# + #{rest 15970}# + #{vars 15971}# + #{meta 15972}# + #{exp 15973}#) + (let ((#{body 15979}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 16488}# - #{req 16489}# + #{src 15968}# + #{req 15969}# #f - #{rest 16490}# + #{rest 15970}# #f '() - #{vars 16491}# - #{exp 16493}# + #{vars 15971}# + #{exp 15973}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 16488}# - #{meta 16492}# - #{body 16499}#)))) - (#{build-sequence 4282}# - (lambda (#{src 28600}# #{exps 28601}#) - (if (null? (cdr #{exps 28601}#)) - (car #{exps 28601}#) + #{src 15968}# + #{meta 15972}# + #{body 15979}#)))) + (#{build-sequence 4283}# + (lambda (#{src 27454}# #{exps 27455}#) + (if (null? (cdr #{exps 27455}#)) + (car #{exps 27455}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 28600}# - #{exps 28601}#)))) - (#{build-let 4283}# - (lambda (#{src 16511}# - #{ids 16512}# - #{vars 16513}# - #{val-exps 16514}# - #{body-exp 16515}#) + #{src 27454}# + #{exps 27455}#)))) + (#{build-let 4284}# + (lambda (#{src 15991}# + #{ids 15992}# + #{vars 15993}# + #{val-exps 15994}# + #{body-exp 15995}#) (begin (for-each - #{maybe-name-value! 4266}# - #{ids 16512}# - #{val-exps 16514}#) - (if (null? #{vars 16513}#) - #{body-exp 16515}# + #{maybe-name-value! 4267}# + #{ids 15992}# + #{val-exps 15994}#) + (if (null? #{vars 15993}#) + #{body-exp 15995}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 16511}# - #{ids 16512}# - #{vars 16513}# - #{val-exps 16514}# - #{body-exp 16515}#))))) - (#{build-named-let 4284}# - (lambda (#{src 16539}# - #{ids 16540}# - #{vars 16541}# - #{val-exps 16542}# - #{body-exp 16543}#) - (let ((#{f 16544}# (car #{vars 16541}#)) - (#{f-name 16545}# (car #{ids 16540}#)) - (#{vars 16546}# (cdr #{vars 16541}#)) - (#{ids 16547}# (cdr #{ids 16540}#))) - (let ((#{proc 16548}# - (let ((#{body 16568}# + #{src 15991}# + #{ids 15992}# + #{vars 15993}# + #{val-exps 15994}# + #{body-exp 15995}#))))) + (#{build-named-let 4285}# + (lambda (#{src 16019}# + #{ids 16020}# + #{vars 16021}# + #{val-exps 16022}# + #{body-exp 16023}#) + (let ((#{f 16024}# (car #{vars 16021}#)) + (#{f-name 16025}# (car #{ids 16020}#)) + (#{vars 16026}# (cdr #{vars 16021}#)) + (#{ids 16027}# (cdr #{ids 16020}#))) + (let ((#{proc 16028}# + (let ((#{body 16048}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 16539}# - #{ids 16547}# + #{src 16019}# + #{ids 16027}# #f #f #f '() - #{vars 16546}# - #{body-exp 16543}# + #{vars 16026}# + #{body-exp 16023}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 16539}# + #{src 16019}# '() - #{body 16568}#)))) + #{body 16048}#)))) (begin - (if (if (struct? #{proc 16548}#) - (eq? (struct-vtable #{proc 16548}#) + (if (if (struct? #{proc 16028}#) + (eq? (struct-vtable #{proc 16028}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16592}# (struct-ref #{proc 16548}# 1))) - (if (not (assq 'name #{meta 16592}#)) - (let ((#{v 16599}# - (cons (cons 'name #{f-name 16545}#) - #{meta 16592}#))) - (struct-set! #{proc 16548}# 1 #{v 16599}#))))) + (let ((#{meta 16072}# (struct-ref #{proc 16028}# 1))) + (if (not (assq 'name #{meta 16072}#)) + (let ((#{v 16079}# + (cons (cons 'name #{f-name 16025}#) + #{meta 16072}#))) + (struct-set! #{proc 16028}# 1 #{v 16079}#))))) (for-each - #{maybe-name-value! 4266}# - #{ids 16547}# - #{val-exps 16542}#) - (let ((#{names 16623}# (list #{f-name 16545}#)) - (#{gensyms 16624}# (list #{f 16544}#)) - (#{vals 16625}# (list #{proc 16548}#)) - (#{body 16626}# - (let ((#{fun-exp 16630}# + #{maybe-name-value! 4267}# + #{ids 16027}# + #{val-exps 16022}#) + (let ((#{names 16103}# (list #{f-name 16025}#)) + (#{gensyms 16104}# (list #{f 16024}#)) + (#{vals 16105}# (list #{proc 16028}#)) + (#{body 16106}# + (let ((#{fun-exp 16110}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 16539}# - #{f-name 16545}# - #{f 16544}#))) + #{src 16019}# + #{f-name 16025}# + #{f 16024}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 16539}# - #{fun-exp 16630}# - #{val-exps 16542}#)))) + #{src 16019}# + #{fun-exp 16110}# + #{val-exps 16022}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 16539}# + #{src 16019}# #f - #{names 16623}# - #{gensyms 16624}# - #{vals 16625}# - #{body 16626}#))))))) - (#{build-letrec 4285}# - (lambda (#{src 16646}# - #{in-order? 16647}# - #{ids 16648}# - #{vars 16649}# - #{val-exps 16650}# - #{body-exp 16651}#) - (if (null? #{vars 16649}#) - #{body-exp 16651}# + #{names 16103}# + #{gensyms 16104}# + #{vals 16105}# + #{body 16106}#))))))) + (#{build-letrec 4286}# + (lambda (#{src 16126}# + #{in-order? 16127}# + #{ids 16128}# + #{vars 16129}# + #{val-exps 16130}# + #{body-exp 16131}#) + (if (null? #{vars 16129}#) + #{body-exp 16131}# (begin (for-each - #{maybe-name-value! 4266}# - #{ids 16648}# - #{val-exps 16650}#) + #{maybe-name-value! 4267}# + #{ids 16128}# + #{val-exps 16130}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 16646}# - #{in-order? 16647}# - #{ids 16648}# - #{vars 16649}# - #{val-exps 16650}# - #{body-exp 16651}#))))) - (#{source-annotation 4294}# - (lambda (#{x 16677}#) - (if (if (vector? #{x 16677}#) - (if (= (vector-length #{x 16677}#) 4) - (eq? (vector-ref #{x 16677}# 0) 'syntax-object) + #{src 16126}# + #{in-order? 16127}# + #{ids 16128}# + #{vars 16129}# + #{val-exps 16130}# + #{body-exp 16131}#))))) + (#{source-annotation 4295}# + (lambda (#{x 16157}#) + (if (if (vector? #{x 16157}#) + (if (= (vector-length #{x 16157}#) 4) + (eq? (vector-ref #{x 16157}# 0) 'syntax-object) #f) #f) - (#{source-annotation 4294}# - (vector-ref #{x 16677}# 1)) - (if (pair? #{x 16677}#) - (let ((#{props 16692}# (source-properties #{x 16677}#))) - (if (pair? #{props 16692}#) #{props 16692}# #f)) + (#{source-annotation 4295}# + (vector-ref #{x 16157}# 1)) + (if (pair? #{x 16157}#) + (let ((#{props 16172}# (source-properties #{x 16157}#))) + (if (pair? #{props 16172}#) #{props 16172}# #f)) #f)))) - (#{extend-env 4295}# - (lambda (#{labels 16694}# #{bindings 16695}# #{r 16696}#) - (if (null? #{labels 16694}#) - #{r 16696}# - (#{extend-env 4295}# - (cdr #{labels 16694}#) - (cdr #{bindings 16695}#) - (cons (cons (car #{labels 16694}#) - (car #{bindings 16695}#)) - #{r 16696}#))))) - (#{extend-var-env 4296}# - (lambda (#{labels 16697}# #{vars 16698}# #{r 16699}#) - (if (null? #{labels 16697}#) - #{r 16699}# - (#{extend-var-env 4296}# - (cdr #{labels 16697}#) - (cdr #{vars 16698}#) - (cons (cons (car #{labels 16697}#) - (cons 'lexical (car #{vars 16698}#))) - #{r 16699}#))))) - (#{macros-only-env 4297}# - (lambda (#{r 16700}#) - (if (null? #{r 16700}#) + (#{extend-env 4296}# + (lambda (#{labels 16174}# #{bindings 16175}# #{r 16176}#) + (if (null? #{labels 16174}#) + #{r 16176}# + (#{extend-env 4296}# + (cdr #{labels 16174}#) + (cdr #{bindings 16175}#) + (cons (cons (car #{labels 16174}#) + (car #{bindings 16175}#)) + #{r 16176}#))))) + (#{extend-var-env 4297}# + (lambda (#{labels 16177}# #{vars 16178}# #{r 16179}#) + (if (null? #{labels 16177}#) + #{r 16179}# + (#{extend-var-env 4297}# + (cdr #{labels 16177}#) + (cdr #{vars 16178}#) + (cons (cons (car #{labels 16177}#) + (cons 'lexical (car #{vars 16178}#))) + #{r 16179}#))))) + (#{macros-only-env 4298}# + (lambda (#{r 16180}#) + (if (null? #{r 16180}#) '() - (let ((#{a 16701}# (car #{r 16700}#))) - (if (eq? (car (cdr #{a 16701}#)) 'macro) - (cons #{a 16701}# - (#{macros-only-env 4297}# (cdr #{r 16700}#))) - (#{macros-only-env 4297}# (cdr #{r 16700}#))))))) - (#{global-extend 4299}# - (lambda (#{type 16703}# #{sym 16704}# #{val 16705}#) + (let ((#{a 16181}# (car #{r 16180}#))) + (if (eq? (car (cdr #{a 16181}#)) 'macro) + (cons #{a 16181}# + (#{macros-only-env 4298}# (cdr #{r 16180}#))) + (#{macros-only-env 4298}# (cdr #{r 16180}#))))))) + (#{global-extend 4300}# + (lambda (#{type 16183}# #{sym 16184}# #{val 16185}#) (module-define! (current-module) - #{sym 16704}# + #{sym 16184}# (make-syntax-transformer - #{sym 16704}# - #{type 16703}# - #{val 16705}#)))) - (#{id? 4301}# - (lambda (#{x 10537}#) - (if (symbol? #{x 10537}#) + #{sym 16184}# + #{type 16183}# + #{val 16185}#)))) + (#{id? 4302}# + (lambda (#{x 10359}#) + (if (symbol? #{x 10359}#) #t - (if (if (vector? #{x 10537}#) - (if (= (vector-length #{x 10537}#) 4) - (eq? (vector-ref #{x 10537}# 0) 'syntax-object) + (if (if (vector? #{x 10359}#) + (if (= (vector-length #{x 10359}#) 4) + (eq? (vector-ref #{x 10359}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 10537}# 1)) + (symbol? (vector-ref #{x 10359}# 1)) #f)))) - (#{gen-labels 4304}# - (lambda (#{ls 16715}#) - (if (null? #{ls 16715}#) + (#{gen-labels 4305}# + (lambda (#{ls 16195}#) + (if (null? #{ls 16195}#) '() (cons (symbol->string (gensym "i")) - (#{gen-labels 4304}# (cdr #{ls 16715}#)))))) - (#{make-binding-wrap 4315}# - (lambda (#{ids 16719}# #{labels 16720}# #{w 16721}#) - (if (null? #{ids 16719}#) - #{w 16721}# - (cons (car #{w 16721}#) - (cons (let ((#{labelvec 16722}# - (list->vector #{labels 16720}#))) - (let ((#{n 16723}# (vector-length #{labelvec 16722}#))) - (let ((#{symnamevec 16724}# (make-vector #{n 16723}#)) - (#{marksvec 16725}# (make-vector #{n 16723}#))) + (#{gen-labels 4305}# (cdr #{ls 16195}#)))))) + (#{make-binding-wrap 4316}# + (lambda (#{ids 16199}# #{labels 16200}# #{w 16201}#) + (if (null? #{ids 16199}#) + #{w 16201}# + (cons (car #{w 16201}#) + (cons (let ((#{labelvec 16202}# + (list->vector #{labels 16200}#))) + (let ((#{n 16203}# (vector-length #{labelvec 16202}#))) + (let ((#{symnamevec 16204}# (make-vector #{n 16203}#)) + (#{marksvec 16205}# (make-vector #{n 16203}#))) (begin (letrec* - ((#{f 16726}# - (lambda (#{ids 16729}# #{i 16730}#) - (if (not (null? #{ids 16729}#)) + ((#{f 16206}# + (lambda (#{ids 16209}# #{i 16210}#) + (if (not (null? #{ids 16209}#)) (call-with-values (lambda () - (let ((#{x 16733}# - (car #{ids 16729}#))) - (if (if (vector? #{x 16733}#) + (let ((#{x 16213}# + (car #{ids 16209}#))) + (if (if (vector? #{x 16213}#) (if (= (vector-length - #{x 16733}#) + #{x 16213}#) 4) (eq? (vector-ref - #{x 16733}# + #{x 16213}# 0) 'syntax-object) #f) #f) (values - (vector-ref #{x 16733}# 1) - (let ((#{m1 16749}# - (car #{w 16721}#)) - (#{m2 16750}# + (vector-ref #{x 16213}# 1) + (let ((#{m1 16229}# + (car #{w 16201}#)) + (#{m2 16230}# (car (vector-ref - #{x 16733}# + #{x 16213}# 2)))) - (if (null? #{m2 16750}#) - #{m1 16749}# + (if (null? #{m2 16230}#) + #{m1 16229}# (append - #{m1 16749}# - #{m2 16750}#)))) + #{m1 16229}# + #{m2 16230}#)))) (values - #{x 16733}# - (car #{w 16721}#))))) - (lambda (#{symname 16770}# - #{marks 16771}#) + #{x 16213}# + (car #{w 16201}#))))) + (lambda (#{symname 16250}# + #{marks 16251}#) (begin (vector-set! - #{symnamevec 16724}# - #{i 16730}# - #{symname 16770}#) + #{symnamevec 16204}# + #{i 16210}# + #{symname 16250}#) (vector-set! - #{marksvec 16725}# - #{i 16730}# - #{marks 16771}#) - (#{f 16726}# - (cdr #{ids 16729}#) - (#{1+}# #{i 16730}#))))))))) - (#{f 16726}# #{ids 16719}# 0)) + #{marksvec 16205}# + #{i 16210}# + #{marks 16251}#) + (#{f 16206}# + (cdr #{ids 16209}#) + (#{1+}# #{i 16210}#))))))))) + (#{f 16206}# #{ids 16199}# 0)) (vector 'ribcage - #{symnamevec 16724}# - #{marksvec 16725}# - #{labelvec 16722}#))))) - (cdr #{w 16721}#)))))) - (#{join-wraps 4317}# - (lambda (#{w1 16780}# #{w2 16781}#) - (let ((#{m1 16782}# (car #{w1 16780}#)) - (#{s1 16783}# (cdr #{w1 16780}#))) - (if (null? #{m1 16782}#) - (if (null? #{s1 16783}#) - #{w2 16781}# - (cons (car #{w2 16781}#) - (let ((#{m2 16790}# (cdr #{w2 16781}#))) - (if (null? #{m2 16790}#) - #{s1 16783}# - (append #{s1 16783}# #{m2 16790}#))))) - (cons (let ((#{m2 16799}# (car #{w2 16781}#))) - (if (null? #{m2 16799}#) - #{m1 16782}# - (append #{m1 16782}# #{m2 16799}#))) - (let ((#{m2 16808}# (cdr #{w2 16781}#))) - (if (null? #{m2 16808}#) - #{s1 16783}# - (append #{s1 16783}# #{m2 16808}#)))))))) - (#{same-marks? 4319}# - (lambda (#{x 16813}# #{y 16814}#) - (if (eq? #{x 16813}# #{y 16814}#) - (eq? #{x 16813}# #{y 16814}#) - (if (not (null? #{x 16813}#)) - (if (not (null? #{y 16814}#)) - (if (eq? (car #{x 16813}#) (car #{y 16814}#)) - (#{same-marks? 4319}# - (cdr #{x 16813}#) - (cdr #{y 16814}#)) + #{symnamevec 16204}# + #{marksvec 16205}# + #{labelvec 16202}#))))) + (cdr #{w 16201}#)))))) + (#{join-wraps 4318}# + (lambda (#{w1 16260}# #{w2 16261}#) + (let ((#{m1 16262}# (car #{w1 16260}#)) + (#{s1 16263}# (cdr #{w1 16260}#))) + (if (null? #{m1 16262}#) + (if (null? #{s1 16263}#) + #{w2 16261}# + (cons (car #{w2 16261}#) + (let ((#{m2 16270}# (cdr #{w2 16261}#))) + (if (null? #{m2 16270}#) + #{s1 16263}# + (append #{s1 16263}# #{m2 16270}#))))) + (cons (let ((#{m2 16279}# (car #{w2 16261}#))) + (if (null? #{m2 16279}#) + #{m1 16262}# + (append #{m1 16262}# #{m2 16279}#))) + (let ((#{m2 16288}# (cdr #{w2 16261}#))) + (if (null? #{m2 16288}#) + #{s1 16263}# + (append #{s1 16263}# #{m2 16288}#)))))))) + (#{same-marks? 4320}# + (lambda (#{x 16293}# #{y 16294}#) + (if (eq? #{x 16293}# #{y 16294}#) + (eq? #{x 16293}# #{y 16294}#) + (if (not (null? #{x 16293}#)) + (if (not (null? #{y 16294}#)) + (if (eq? (car #{x 16293}#) (car #{y 16294}#)) + (#{same-marks? 4320}# + (cdr #{x 16293}#) + (cdr #{y 16294}#)) #f) #f) #f)))) - (#{id-var-name 4320}# - (lambda (#{id 16822}# #{w 16823}#) + (#{id-var-name 4321}# + (lambda (#{id 16302}# #{w 16303}#) (letrec* - ((#{search 16824}# - (lambda (#{sym 16885}# #{subst 16886}# #{marks 16887}#) - (if (null? #{subst 16886}#) - (values #f #{marks 16887}#) - (let ((#{fst 16888}# (car #{subst 16886}#))) - (if (eq? #{fst 16888}# 'shift) - (#{search 16824}# - #{sym 16885}# - (cdr #{subst 16886}#) - (cdr #{marks 16887}#)) - (let ((#{symnames 16890}# (vector-ref #{fst 16888}# 1))) - (if (vector? #{symnames 16890}#) - (let ((#{n 16902}# (vector-length #{symnames 16890}#))) + ((#{search 16304}# + (lambda (#{sym 16365}# #{subst 16366}# #{marks 16367}#) + (if (null? #{subst 16366}#) + (values #f #{marks 16367}#) + (let ((#{fst 16368}# (car #{subst 16366}#))) + (if (eq? #{fst 16368}# 'shift) + (#{search 16304}# + #{sym 16365}# + (cdr #{subst 16366}#) + (cdr #{marks 16367}#)) + (let ((#{symnames 16370}# (vector-ref #{fst 16368}# 1))) + (if (vector? #{symnames 16370}#) + (let ((#{n 16382}# (vector-length #{symnames 16370}#))) (letrec* - ((#{f 16903}# - (lambda (#{i 16905}#) - (if (= #{i 16905}# #{n 16902}#) - (#{search 16824}# - #{sym 16885}# - (cdr #{subst 16886}#) - #{marks 16887}#) + ((#{f 16383}# + (lambda (#{i 16385}#) + (if (= #{i 16385}# #{n 16382}#) + (#{search 16304}# + #{sym 16365}# + (cdr #{subst 16366}#) + #{marks 16367}#) (if (if (eq? (vector-ref - #{symnames 16890}# - #{i 16905}#) - #{sym 16885}#) - (#{same-marks? 4319}# - #{marks 16887}# + #{symnames 16370}# + #{i 16385}#) + #{sym 16365}#) + (#{same-marks? 4320}# + #{marks 16367}# (vector-ref - (vector-ref #{fst 16888}# 2) - #{i 16905}#)) + (vector-ref #{fst 16368}# 2) + #{i 16385}#)) #f) (values (vector-ref - (vector-ref #{fst 16888}# 3) - #{i 16905}#) - #{marks 16887}#) - (#{f 16903}# (#{1+}# #{i 16905}#))))))) - (#{f 16903}# 0))) + (vector-ref #{fst 16368}# 3) + #{i 16385}#) + #{marks 16367}#) + (#{f 16383}# (#{1+}# #{i 16385}#))))))) + (#{f 16383}# 0))) (letrec* - ((#{f 16938}# - (lambda (#{symnames 16940}# #{i 16941}#) - (if (null? #{symnames 16940}#) - (#{search 16824}# - #{sym 16885}# - (cdr #{subst 16886}#) - #{marks 16887}#) - (if (if (eq? (car #{symnames 16940}#) - #{sym 16885}#) - (#{same-marks? 4319}# - #{marks 16887}# + ((#{f 16418}# + (lambda (#{symnames 16420}# #{i 16421}#) + (if (null? #{symnames 16420}#) + (#{search 16304}# + #{sym 16365}# + (cdr #{subst 16366}#) + #{marks 16367}#) + (if (if (eq? (car #{symnames 16420}#) + #{sym 16365}#) + (#{same-marks? 4320}# + #{marks 16367}# (list-ref - (vector-ref #{fst 16888}# 2) - #{i 16941}#)) + (vector-ref #{fst 16368}# 2) + #{i 16421}#)) #f) (values (list-ref - (vector-ref #{fst 16888}# 3) - #{i 16941}#) - #{marks 16887}#) - (#{f 16938}# - (cdr #{symnames 16940}#) - (#{1+}# #{i 16941}#))))))) - (#{f 16938}# #{symnames 16890}# 0)))))))))) - (if (symbol? #{id 16822}#) - (let ((#{t 16827}# - (#{search 16824}# - #{id 16822}# - (cdr #{w 16823}#) - (car #{w 16823}#)))) - (if #{t 16827}# #{t 16827}# #{id 16822}#)) - (if (if (vector? #{id 16822}#) - (if (= (vector-length #{id 16822}#) 4) - (eq? (vector-ref #{id 16822}# 0) 'syntax-object) + (vector-ref #{fst 16368}# 3) + #{i 16421}#) + #{marks 16367}#) + (#{f 16418}# + (cdr #{symnames 16420}#) + (#{1+}# #{i 16421}#))))))) + (#{f 16418}# #{symnames 16370}# 0)))))))))) + (if (symbol? #{id 16302}#) + (let ((#{t 16307}# + (#{search 16304}# + #{id 16302}# + (cdr #{w 16303}#) + (car #{w 16303}#)))) + (if #{t 16307}# #{t 16307}# #{id 16302}#)) + (if (if (vector? #{id 16302}#) + (if (= (vector-length #{id 16302}#) 4) + (eq? (vector-ref #{id 16302}# 0) 'syntax-object) #f) #f) - (let ((#{id 16842}# (vector-ref #{id 16822}# 1)) - (#{w1 16843}# (vector-ref #{id 16822}# 2))) - (let ((#{marks 16844}# - (let ((#{m1 16854}# (car #{w 16823}#)) - (#{m2 16855}# (car #{w1 16843}#))) - (if (null? #{m2 16855}#) - #{m1 16854}# - (append #{m1 16854}# #{m2 16855}#))))) + (let ((#{id 16322}# (vector-ref #{id 16302}# 1)) + (#{w1 16323}# (vector-ref #{id 16302}# 2))) + (let ((#{marks 16324}# + (let ((#{m1 16334}# (car #{w 16303}#)) + (#{m2 16335}# (car #{w1 16323}#))) + (if (null? #{m2 16335}#) + #{m1 16334}# + (append #{m1 16334}# #{m2 16335}#))))) (call-with-values (lambda () - (#{search 16824}# - #{id 16842}# - (cdr #{w 16823}#) - #{marks 16844}#)) - (lambda (#{new-id 16871}# #{marks 16872}#) - (if #{new-id 16871}# - #{new-id 16871}# - (let ((#{t 16880}# - (#{search 16824}# - #{id 16842}# - (cdr #{w1 16843}#) - #{marks 16872}#))) - (if #{t 16880}# #{t 16880}# #{id 16842}#))))))) + (#{search 16304}# + #{id 16322}# + (cdr #{w 16303}#) + #{marks 16324}#)) + (lambda (#{new-id 16351}# #{marks 16352}#) + (if #{new-id 16351}# + #{new-id 16351}# + (let ((#{t 16360}# + (#{search 16304}# + #{id 16322}# + (cdr #{w1 16323}#) + #{marks 16352}#))) + (if #{t 16360}# #{t 16360}# #{id 16322}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id 16822}#)))))) - (#{valid-bound-ids? 4323}# - (lambda (#{ids 16963}#) + #{id 16302}#)))))) + (#{valid-bound-ids? 4324}# + (lambda (#{ids 16443}#) (if (letrec* - ((#{all-ids? 16964}# - (lambda (#{ids 17126}#) - (if (null? #{ids 17126}#) - (null? #{ids 17126}#) - (if (let ((#{x 17137}# (car #{ids 17126}#))) - (if (symbol? #{x 17137}#) + ((#{all-ids? 16444}# + (lambda (#{ids 16606}#) + (if (null? #{ids 16606}#) + (null? #{ids 16606}#) + (if (let ((#{x 16617}# (car #{ids 16606}#))) + (if (symbol? #{x 16617}#) #t - (if (if (vector? #{x 17137}#) - (if (= (vector-length #{x 17137}#) 4) - (eq? (vector-ref #{x 17137}# 0) + (if (if (vector? #{x 16617}#) + (if (= (vector-length #{x 16617}#) 4) + (eq? (vector-ref #{x 16617}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 17137}# 1)) + (symbol? (vector-ref #{x 16617}# 1)) #f))) - (#{all-ids? 16964}# (cdr #{ids 17126}#)) + (#{all-ids? 16444}# (cdr #{ids 16606}#)) #f))))) - (#{all-ids? 16964}# #{ids 16963}#)) - (#{distinct-bound-ids? 4324}# #{ids 16963}#) + (#{all-ids? 16444}# #{ids 16443}#)) + (#{distinct-bound-ids? 4325}# #{ids 16443}#) #f))) - (#{distinct-bound-ids? 4324}# - (lambda (#{ids 17269}#) + (#{distinct-bound-ids? 4325}# + (lambda (#{ids 16745}#) (letrec* - ((#{distinct? 17270}# - (lambda (#{ids 17386}#) - (if (null? #{ids 17386}#) - (null? #{ids 17386}#) - (if (not (#{bound-id-member? 4325}# - (car #{ids 17386}#) - (cdr #{ids 17386}#))) - (#{distinct? 17270}# (cdr #{ids 17386}#)) + ((#{distinct? 16746}# + (lambda (#{ids 16858}#) + (if (null? #{ids 16858}#) + (null? #{ids 16858}#) + (if (not (#{bound-id-member? 4326}# + (car #{ids 16858}#) + (cdr #{ids 16858}#))) + (#{distinct? 16746}# (cdr #{ids 16858}#)) #f))))) - (#{distinct? 17270}# #{ids 17269}#)))) - (#{bound-id-member? 4325}# - (lambda (#{x 17606}# #{list 17607}#) - (if (not (null? #{list 17607}#)) - (let ((#{t 17608}# - (let ((#{j 17689}# (car #{list 17607}#))) - (if (if (if (vector? #{x 17606}#) - (if (= (vector-length #{x 17606}#) 4) - (eq? (vector-ref #{x 17606}# 0) 'syntax-object) + (#{distinct? 16746}# #{ids 16745}#)))) + (#{bound-id-member? 4326}# + (lambda (#{x 17068}# #{list 17069}#) + (if (not (null? #{list 17069}#)) + (let ((#{t 17070}# + (let ((#{j 17151}# (car #{list 17069}#))) + (if (if (if (vector? #{x 17068}#) + (if (= (vector-length #{x 17068}#) 4) + (eq? (vector-ref #{x 17068}# 0) 'syntax-object) #f) #f) - (if (vector? #{j 17689}#) - (if (= (vector-length #{j 17689}#) 4) - (eq? (vector-ref #{j 17689}# 0) 'syntax-object) + (if (vector? #{j 17151}#) + (if (= (vector-length #{j 17151}#) 4) + (eq? (vector-ref #{j 17151}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 17606}# 1) - (vector-ref #{j 17689}# 1)) - (#{same-marks? 4319}# - (car (vector-ref #{x 17606}# 2)) - (car (vector-ref #{j 17689}# 2))) + (if (eq? (vector-ref #{x 17068}# 1) + (vector-ref #{j 17151}# 1)) + (#{same-marks? 4320}# + (car (vector-ref #{x 17068}# 2)) + (car (vector-ref #{j 17151}# 2))) #f) - (eq? #{x 17606}# #{j 17689}#))))) - (if #{t 17608}# - #{t 17608}# - (#{bound-id-member? 4325}# - #{x 17606}# - (cdr #{list 17607}#)))) + (eq? #{x 17068}# #{j 17151}#))))) + (if #{t 17070}# + #{t 17070}# + (#{bound-id-member? 4326}# + #{x 17068}# + (cdr #{list 17069}#)))) #f))) - (#{wrap 4326}# - (lambda (#{x 17733}# #{w 17734}# #{defmod 17735}#) - (if (if (null? (car #{w 17734}#)) - (null? (cdr #{w 17734}#)) + (#{wrap 4327}# + (lambda (#{x 17195}# #{w 17196}# #{defmod 17197}#) + (if (if (null? (car #{w 17196}#)) + (null? (cdr #{w 17196}#)) #f) - #{x 17733}# - (if (if (vector? #{x 17733}#) - (if (= (vector-length #{x 17733}#) 4) - (eq? (vector-ref #{x 17733}# 0) 'syntax-object) + #{x 17195}# + (if (if (vector? #{x 17195}#) + (if (= (vector-length #{x 17195}#) 4) + (eq? (vector-ref #{x 17195}# 0) 'syntax-object) #f) #f) - (let ((#{expression 17749}# (vector-ref #{x 17733}# 1)) - (#{wrap 17750}# - (#{join-wraps 4317}# - #{w 17734}# - (vector-ref #{x 17733}# 2))) - (#{module 17751}# (vector-ref #{x 17733}# 3))) + (let ((#{expression 17211}# (vector-ref #{x 17195}# 1)) + (#{wrap 17212}# + (#{join-wraps 4318}# + #{w 17196}# + (vector-ref #{x 17195}# 2))) + (#{module 17213}# (vector-ref #{x 17195}# 3))) (vector 'syntax-object - #{expression 17749}# - #{wrap 17750}# - #{module 17751}#)) - (if (null? #{x 17733}#) - #{x 17733}# + #{expression 17211}# + #{wrap 17212}# + #{module 17213}#)) + (if (null? #{x 17195}#) + #{x 17195}# (vector 'syntax-object - #{x 17733}# - #{w 17734}# - #{defmod 17735}#)))))) - (#{source-wrap 4327}# - (lambda (#{x 17768}# - #{w 17769}# - #{s 17770}# - #{defmod 17771}#) - (#{wrap 4326}# + #{x 17195}# + #{w 17196}# + #{defmod 17197}#)))))) + (#{source-wrap 4328}# + (lambda (#{x 17230}# + #{w 17231}# + #{s 17232}# + #{defmod 17233}#) + (#{wrap 4327}# (begin - (if (if (pair? #{x 17768}#) #{s 17770}# #f) - (set-source-properties! #{x 17768}# #{s 17770}#)) - #{x 17768}#) - #{w 17769}# - #{defmod 17771}#))) - (#{expand-sequence 4328}# - (lambda (#{body 28606}# - #{r 28607}# - #{w 28608}# - #{s 28609}# - #{mod 28610}#) - (#{build-sequence 4282}# - #{s 28609}# + (if (if (pair? #{x 17230}#) #{s 17232}# #f) + (set-source-properties! #{x 17230}# #{s 17232}#)) + #{x 17230}#) + #{w 17231}# + #{defmod 17233}#))) + (#{expand-sequence 4329}# + (lambda (#{body 27460}# + #{r 27461}# + #{w 27462}# + #{s 27463}# + #{mod 27464}#) + (#{build-sequence 4283}# + #{s 27463}# (letrec* - ((#{dobody 28695}# - (lambda (#{body 28775}# - #{r 28776}# - #{w 28777}# - #{mod 28778}#) - (if (null? #{body 28775}#) + ((#{dobody 27544}# + (lambda (#{body 27894}# + #{r 27895}# + #{w 27896}# + #{mod 27897}#) + (if (null? #{body 27894}#) '() - (let ((#{first 28779}# - (#{expand 4333}# - (car #{body 28775}#) - #{r 28776}# - #{w 28777}# - #{mod 28778}#))) - (cons #{first 28779}# - (#{dobody 28695}# - (cdr #{body 28775}#) - #{r 28776}# - #{w 28777}# - #{mod 28778}#))))))) - (#{dobody 28695}# - #{body 28606}# - #{r 28607}# - #{w 28608}# - #{mod 28610}#))))) - (#{expand-top-sequence 4329}# - (lambda (#{body 17789}# - #{r 17790}# - #{w 17791}# - #{s 17792}# - #{m 17793}# - #{esew 17794}# - #{mod 17795}#) + (let ((#{first 27898}# + (let ((#{e 27902}# (car #{body 27894}#))) + (call-with-values + (lambda () + (#{syntax-type 4333}# + #{e 27902}# + #{r 27895}# + #{w 27896}# + (#{source-annotation 4295}# #{e 27902}#) + #f + #{mod 27897}# + #f)) + (lambda (#{type 27909}# + #{value 27910}# + #{e 27911}# + #{w 27912}# + #{s 27913}# + #{mod 27914}#) + (#{expand-expr 4335}# + #{type 27909}# + #{value 27910}# + #{e 27911}# + #{r 27895}# + #{w 27912}# + #{s 27913}# + #{mod 27914}#)))))) + (cons #{first 27898}# + (#{dobody 27544}# + (cdr #{body 27894}#) + #{r 27895}# + #{w 27896}# + #{mod 27897}#))))))) + (#{dobody 27544}# + #{body 27460}# + #{r 27461}# + #{w 27462}# + #{mod 27464}#))))) + (#{expand-top-sequence 4330}# + (lambda (#{body 17251}# + #{r 17252}# + #{w 17253}# + #{s 17254}# + #{m 17255}# + #{esew 17256}# + #{mod 17257}#) (letrec* - ((#{scan 17796}# - (lambda (#{body 17927}# - #{r 17928}# - #{w 17929}# - #{s 17930}# - #{m 17931}# - #{esew 17932}# - #{mod 17933}# - #{exps 17934}#) - (if (null? #{body 17927}#) - #{exps 17934}# + ((#{scan 17258}# + (lambda (#{body 17389}# + #{r 17390}# + #{w 17391}# + #{s 17392}# + #{m 17393}# + #{esew 17394}# + #{mod 17395}# + #{exps 17396}#) + (if (null? #{body 17389}#) + #{exps 17396}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e 17935}# (car #{body 17927}#))) - (#{syntax-type 4332}# - #{e 17935}# - #{r 17928}# - #{w 17929}# - (let ((#{t 17939}# - (#{source-annotation 4294}# #{e 17935}#))) - (if #{t 17939}# #{t 17939}# #{s 17930}#)) + (let ((#{e 17397}# (car #{body 17389}#))) + (#{syntax-type 4333}# + #{e 17397}# + #{r 17390}# + #{w 17391}# + (let ((#{t 17401}# + (#{source-annotation 4295}# #{e 17397}#))) + (if #{t 17401}# #{t 17401}# #{s 17392}#)) #f - #{mod 17933}# + #{mod 17395}# #f))) - (lambda (#{type 18199}# - #{value 18200}# - #{e 18201}# - #{w 18202}# - #{s 18203}# - #{mod 18204}#) - (if (eqv? #{type 18199}# 'begin-form) - (let ((#{tmp 18209}# - ($sc-dispatch #{e 18201}# '(_)))) - (if #{tmp 18209}# - (@apply (lambda () #{exps 17934}#) #{tmp 18209}#) - (let ((#{tmp 18213}# + (lambda (#{type 17636}# + #{value 17637}# + #{e 17638}# + #{w 17639}# + #{s 17640}# + #{mod 17641}#) + (if (eqv? #{type 17636}# 'begin-form) + (let ((#{tmp 17646}# + ($sc-dispatch #{e 17638}# '(_)))) + (if #{tmp 17646}# + (@apply (lambda () #{exps 17396}#) #{tmp 17646}#) + (let ((#{tmp 17650}# ($sc-dispatch - #{e 18201}# + #{e 17638}# '(_ any . each-any)))) - (if #{tmp 18213}# + (if #{tmp 17650}# (@apply - (lambda (#{e1 18217}# #{e2 18218}#) - (#{scan 17796}# - (cons #{e1 18217}# #{e2 18218}#) - #{r 17928}# - #{w 18202}# - #{s 18203}# - #{m 17931}# - #{esew 17932}# - #{mod 18204}# - #{exps 17934}#)) - #{tmp 18213}#) + (lambda (#{e1 17654}# #{e2 17655}#) + (#{scan 17258}# + (cons #{e1 17654}# #{e2 17655}#) + #{r 17390}# + #{w 17639}# + #{s 17640}# + #{m 17393}# + #{esew 17394}# + #{mod 17641}# + #{exps 17396}#)) + #{tmp 17650}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 18201}#))))) - (if (eqv? #{type 18199}# 'local-syntax-form) - (#{expand-local-syntax 4338}# - #{value 18200}# - #{e 18201}# - #{r 17928}# - #{w 18202}# - #{s 18203}# - #{mod 18204}# - (lambda (#{body 18233}# - #{r 18234}# - #{w 18235}# - #{s 18236}# - #{mod 18237}#) - (#{scan 17796}# - #{body 18233}# - #{r 18234}# - #{w 18235}# - #{s 18236}# - #{m 17931}# - #{esew 17932}# - #{mod 18237}# - #{exps 17934}#))) - (if (eqv? #{type 18199}# 'eval-when-form) - (let ((#{tmp 18242}# + #{e 17638}#))))) + (if (eqv? #{type 17636}# 'local-syntax-form) + (#{expand-local-syntax 4339}# + #{value 17637}# + #{e 17638}# + #{r 17390}# + #{w 17639}# + #{s 17640}# + #{mod 17641}# + (lambda (#{body 17670}# + #{r 17671}# + #{w 17672}# + #{s 17673}# + #{mod 17674}#) + (#{scan 17258}# + #{body 17670}# + #{r 17671}# + #{w 17672}# + #{s 17673}# + #{m 17393}# + #{esew 17394}# + #{mod 17674}# + #{exps 17396}#))) + (if (eqv? #{type 17636}# 'eval-when-form) + (let ((#{tmp 17679}# ($sc-dispatch - #{e 18201}# + #{e 17638}# '(_ each-any any . each-any)))) - (if #{tmp 18242}# + (if #{tmp 17679}# (@apply - (lambda (#{x 18246}# - #{e1 18247}# - #{e2 18248}#) - (let ((#{when-list 18249}# - (#{parse-when-list 4331}# - #{e 18201}# - #{x 18246}#)) - (#{body 18250}# - (cons #{e1 18247}# - #{e2 18248}#))) - (if (eq? #{m 17931}# 'e) - (if (memq 'eval #{when-list 18249}#) - (#{scan 17796}# - #{body 18250}# - #{r 17928}# - #{w 18202}# - #{s 18203}# + (lambda (#{x 17683}# + #{e1 17684}# + #{e2 17685}#) + (let ((#{when-list 17686}# + (#{parse-when-list 4332}# + #{e 17638}# + #{x 17683}#)) + (#{body 17687}# + (cons #{e1 17684}# + #{e2 17685}#))) + (if (eq? #{m 17393}# 'e) + (if (memq 'eval #{when-list 17686}#) + (#{scan 17258}# + #{body 17687}# + #{r 17390}# + #{w 17639}# + #{s 17640}# (if (memq 'expand - #{when-list 18249}#) + #{when-list 17686}#) 'c&e 'e) '(eval) - #{mod 18204}# - #{exps 17934}#) + #{mod 17641}# + #{exps 17396}#) (begin (if (memq 'expand - #{when-list 18249}#) - (let ((#{x 18327}# - (#{expand-top-sequence 4329}# - #{body 18250}# - #{r 17928}# - #{w 18202}# - #{s 18203}# + #{when-list 17686}#) + (let ((#{x 17764}# + (#{expand-top-sequence 4330}# + #{body 17687}# + #{r 17390}# + #{w 17639}# + #{s 17640}# 'e '(eval) - #{mod 18204}#))) + #{mod 17641}#))) (primitive-eval - #{x 18327}#))) - (values #{exps 17934}#))) - (if (memq 'load #{when-list 18249}#) - (if (let ((#{t 18353}# + #{x 17764}#))) + (values #{exps 17396}#))) + (if (memq 'load #{when-list 17686}#) + (if (let ((#{t 17790}# (memq 'compile - #{when-list 18249}#))) - (if #{t 18353}# - #{t 18353}# - (let ((#{t 18402}# + #{when-list 17686}#))) + (if #{t 17790}# + #{t 17790}# + (let ((#{t 17839}# (memq 'expand - #{when-list 18249}#))) - (if #{t 18402}# - #{t 18402}# - (if (eq? #{m 17931}# + #{when-list 17686}#))) + (if #{t 17839}# + #{t 17839}# + (if (eq? #{m 17393}# 'c&e) (memq 'eval - #{when-list 18249}#) + #{when-list 17686}#) #f))))) - (#{scan 17796}# - #{body 18250}# - #{r 17928}# - #{w 18202}# - #{s 18203}# + (#{scan 17258}# + #{body 17687}# + #{r 17390}# + #{w 17639}# + #{s 17640}# 'c&e '(compile load) - #{mod 18204}# - #{exps 17934}#) - (if (if (eq? #{m 17931}# 'c) + #{mod 17641}# + #{exps 17396}#) + (if (if (eq? #{m 17393}# 'c) #t - (eq? #{m 17931}# 'c&e)) - (#{scan 17796}# - #{body 18250}# - #{r 17928}# - #{w 18202}# - #{s 18203}# + (eq? #{m 17393}# 'c&e)) + (#{scan 17258}# + #{body 17687}# + #{r 17390}# + #{w 17639}# + #{s 17640}# 'c '(load) - #{mod 18204}# - #{exps 17934}#) - (values #{exps 17934}#))) - (if (let ((#{t 18531}# + #{mod 17641}# + #{exps 17396}#) + (values #{exps 17396}#))) + (if (let ((#{t 17968}# (memq 'compile - #{when-list 18249}#))) - (if #{t 18531}# - #{t 18531}# - (let ((#{t 18580}# + #{when-list 17686}#))) + (if #{t 17968}# + #{t 17968}# + (let ((#{t 18017}# (memq 'expand - #{when-list 18249}#))) - (if #{t 18580}# - #{t 18580}# - (if (eq? #{m 17931}# + #{when-list 17686}#))) + (if #{t 18017}# + #{t 18017}# + (if (eq? #{m 17393}# 'c&e) (memq 'eval - #{when-list 18249}#) + #{when-list 17686}#) #f))))) (begin - (let ((#{x 18704}# - (#{expand-top-sequence 4329}# - #{body 18250}# - #{r 17928}# - #{w 18202}# - #{s 18203}# + (let ((#{x 18141}# + (#{expand-top-sequence 4330}# + #{body 17687}# + #{r 17390}# + #{w 17639}# + #{s 17640}# 'e '(eval) - #{mod 18204}#))) - (primitive-eval #{x 18704}#)) - (values #{exps 17934}#)) - (values #{exps 17934}#)))))) - #{tmp 18242}#) + #{mod 17641}#))) + (primitive-eval #{x 18141}#)) + (values #{exps 17396}#)) + (values #{exps 17396}#)))))) + #{tmp 17679}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 18201}#))) - (if (eqv? #{type 18199}# 'define-syntax-form) - (let ((#{n 18745}# - (#{id-var-name 4320}# - #{value 18200}# - #{w 18202}#)) - (#{r 18746}# - (#{macros-only-env 4297}# - #{r 17928}#))) - (if (eqv? #{m 17931}# 'c) - (if (memq 'compile #{esew 17932}#) - (let ((#{e 18750}# - (#{expand-install-global 4330}# - #{n 18745}# - (#{expand 4333}# - #{e 18201}# - #{r 18746}# - #{w 18202}# - #{mod 18204}#)))) + #{e 17638}#))) + (if (eqv? #{type 17636}# 'define-syntax-form) + (let ((#{n 18182}# + (#{id-var-name 4321}# + #{value 17637}# + #{w 17639}#)) + (#{r 18183}# + (#{macros-only-env 4298}# + #{r 17390}#))) + (if (eqv? #{m 17393}# 'c) + (if (memq 'compile #{esew 17394}#) + (let ((#{e 18187}# + (#{expand-install-global 4331}# + #{n 18182}# + (#{expand 4334}# + #{e 17638}# + #{r 18183}# + #{w 17639}# + #{mod 17641}#)))) (begin - (#{top-level-eval-hook 4261}# - #{e 18750}# - #{mod 18204}#) - (if (memq 'load #{esew 17932}#) + (#{top-level-eval-hook 4262}# + #{e 18187}# + #{mod 17641}#) + (if (memq 'load #{esew 17394}#) (values - (cons #{e 18750}# - #{exps 17934}#)) - (values #{exps 17934}#)))) - (if (memq 'load #{esew 17932}#) + (cons #{e 18187}# + #{exps 17396}#)) + (values #{exps 17396}#)))) + (if (memq 'load #{esew 17394}#) (values - (cons (#{expand-install-global 4330}# - #{n 18745}# - (#{expand 4333}# - #{e 18201}# - #{r 18746}# - #{w 18202}# - #{mod 18204}#)) - #{exps 17934}#)) - (values #{exps 17934}#))) - (if (eqv? #{m 17931}# 'c&e) - (let ((#{e 19207}# - (#{expand-install-global 4330}# - #{n 18745}# - (#{expand 4333}# - #{e 18201}# - #{r 18746}# - #{w 18202}# - #{mod 18204}#)))) + (cons (#{expand-install-global 4331}# + #{n 18182}# + (#{expand 4334}# + #{e 17638}# + #{r 18183}# + #{w 17639}# + #{mod 17641}#)) + #{exps 17396}#)) + (values #{exps 17396}#))) + (if (eqv? #{m 17393}# 'c&e) + (let ((#{e 18634}# + (#{expand-install-global 4331}# + #{n 18182}# + (#{expand 4334}# + #{e 17638}# + #{r 18183}# + #{w 17639}# + #{mod 17641}#)))) (begin - (#{top-level-eval-hook 4261}# - #{e 19207}# - #{mod 18204}#) + (#{top-level-eval-hook 4262}# + #{e 18634}# + #{mod 17641}#) (values - (cons #{e 19207}# - #{exps 17934}#)))) + (cons #{e 18634}# + #{exps 17396}#)))) (begin - (if (memq 'eval #{esew 17932}#) - (#{top-level-eval-hook 4261}# - (#{expand-install-global 4330}# - #{n 18745}# - (#{expand 4333}# - #{e 18201}# - #{r 18746}# - #{w 18202}# - #{mod 18204}#)) - #{mod 18204}#)) - (values #{exps 17934}#))))) - (if (eqv? #{type 18199}# 'define-form) - (let ((#{n 19857}# - (#{id-var-name 4320}# - #{value 18200}# - #{w 18202}#))) - (let ((#{type 19858}# - (car (let ((#{t 20627}# - (assq #{n 19857}# - #{r 17928}#))) - (if #{t 20627}# - (cdr #{t 20627}#) - (if (symbol? #{n 19857}#) - (let ((#{t 20632}# + (if (memq 'eval #{esew 17394}#) + (#{top-level-eval-hook 4262}# + (#{expand-install-global 4331}# + #{n 18182}# + (#{expand 4334}# + #{e 17638}# + #{r 18183}# + #{w 17639}# + #{mod 17641}#)) + #{mod 17641}#)) + (values #{exps 17396}#))))) + (if (eqv? #{type 17636}# 'define-form) + (let ((#{n 19269}# + (#{id-var-name 4321}# + #{value 17637}# + #{w 17639}#))) + (let ((#{type 19270}# + (car (let ((#{t 20014}# + (assq #{n 19269}# + #{r 17390}#))) + (if #{t 20014}# + (cdr #{t 20014}#) + (if (symbol? #{n 19269}#) + (let ((#{t 20019}# (begin - (if (if (not #{mod 18204}#) + (if (if (not #{mod 17641}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 19857}#)) - (let ((#{v 20669}# + #{n 19269}#)) + (let ((#{v 20056}# (module-variable - (if #{mod 18204}# + (if #{mod 17641}# (resolve-module - (cdr #{mod 18204}#)) + (cdr #{mod 17641}#)) (current-module)) - #{n 19857}#))) - (if #{v 20669}# + #{n 19269}#))) + (if #{v 20056}# (if (variable-bound? - #{v 20669}#) - (let ((#{val 20678}# + #{v 20056}#) + (let ((#{val 20065}# (variable-ref - #{v 20669}#))) + #{v 20056}#))) (if (macro? - #{val 20678}#) + #{val 20065}#) (if (macro-type - #{val 20678}#) + #{val 20065}#) (cons (macro-type - #{val 20678}#) + #{val 20065}#) (macro-binding - #{val 20678}#)) + #{val 20065}#)) #f) #f)) #f) #f))))) - (if #{t 20632}# - #{t 20632}# + (if #{t 20019}# + #{t 20019}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 19892}# #{type 19858}#)) - (if (eqv? #{t 19892}# 'global) + (if (let ((#{t 19304}# #{type 19270}#)) + (if (eqv? #{t 19304}# 'global) #t - (if (eqv? #{t 19892}# 'core) + (if (eqv? #{t 19304}# 'core) #t - (if (eqv? #{t 19892}# 'macro) + (if (eqv? #{t 19304}# 'macro) #t - (eqv? #{t 19892}# + (eqv? #{t 19304}# 'module-ref))))) (begin - (if (if (if (eq? #{m 17931}# 'c) + (if (if (if (eq? #{m 17393}# 'c) #t - (eq? #{m 17931}# 'c&e)) + (eq? #{m 17393}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 19857}#)) + #{n 19269}#)) (current-module) #f) #f) - (let ((#{old 20056}# + (let ((#{old 19468}# (module-variable (current-module) - #{n 19857}#))) - (if (if (variable? #{old 20056}#) + #{n 19269}#))) + (if (if (variable? #{old 19468}#) (variable-bound? - #{old 20056}#) + #{old 19468}#) #f) (module-define! (current-module) - #{n 19857}# - (variable-ref #{old 20056}#)) + #{n 19269}# + (variable-ref #{old 19468}#)) (module-add! (current-module) - #{n 19857}# + #{n 19269}# (make-undefined-variable))))) (values - (cons (if (eq? #{m 17931}# 'c&e) - (let ((#{x 20058}# - (#{build-global-definition 4276}# - #{s 18203}# - #{n 19857}# - (#{expand 4333}# - #{e 18201}# - #{r 17928}# - #{w 18202}# - #{mod 18204}#)))) + (cons (if (eq? #{m 17393}# 'c&e) + (let ((#{x 19470}# + (#{build-global-definition 4277}# + #{s 17640}# + #{n 19269}# + (#{expand 4334}# + #{e 17638}# + #{r 17390}# + #{w 17639}# + #{mod 17641}#)))) (begin - (#{top-level-eval-hook 4261}# - #{x 20058}# - #{mod 18204}#) - #{x 20058}#)) + (#{top-level-eval-hook 4262}# + #{x 19470}# + #{mod 17641}#) + #{x 19470}#)) (lambda () - (#{build-global-definition 4276}# - #{s 18203}# - #{n 19857}# - (#{expand 4333}# - #{e 18201}# - #{r 17928}# - #{w 18202}# - #{mod 18204}#)))) - #{exps 17934}#))) - (if (let ((#{t 20554}# #{type 19858}#)) - (eqv? #{t 20554}# + (#{build-global-definition 4277}# + #{s 17640}# + #{n 19269}# + (#{expand 4334}# + #{e 17638}# + #{r 17390}# + #{w 17639}# + #{mod 17641}#)))) + #{exps 17396}#))) + (if (let ((#{t 19941}# #{type 19270}#)) + (eqv? #{t 19941}# 'displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e 18201}# - (#{wrap 4326}# - #{value 18200}# - #{w 18202}# - #{mod 18204}#)) + #{e 17638}# + (#{wrap 4327}# + #{value 17637}# + #{w 17639}# + #{mod 17641}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 18201}# - (#{wrap 4326}# - #{value 18200}# - #{w 18202}# - #{mod 18204}#)))))) + #{e 17638}# + (#{wrap 4327}# + #{value 17637}# + #{w 17639}# + #{mod 17641}#)))))) (values - (cons (if (eq? #{m 17931}# 'c&e) - (let ((#{x 20689}# - (#{expand-expr 4334}# - #{type 18199}# - #{value 18200}# - #{e 18201}# - #{r 17928}# - #{w 18202}# - #{s 18203}# - #{mod 18204}#))) + (cons (if (eq? #{m 17393}# 'c&e) + (let ((#{x 20076}# + (#{expand-expr 4335}# + #{type 17636}# + #{value 17637}# + #{e 17638}# + #{r 17390}# + #{w 17639}# + #{s 17640}# + #{mod 17641}#))) (begin - (primitive-eval #{x 20689}#) - #{x 20689}#)) + (primitive-eval #{x 20076}#) + #{x 20076}#)) (lambda () - (#{expand-expr 4334}# - #{type 18199}# - #{value 18200}# - #{e 18201}# - #{r 17928}# - #{w 18202}# - #{s 18203}# - #{mod 18204}#))) - #{exps 17934}#)))))))))) - (lambda (#{exps 20698}#) - (#{scan 17796}# - (cdr #{body 17927}#) - #{r 17928}# - #{w 17929}# - #{s 17930}# - #{m 17931}# - #{esew 17932}# - #{mod 17933}# - #{exps 20698}#))))))) + (#{expand-expr 4335}# + #{type 17636}# + #{value 17637}# + #{e 17638}# + #{r 17390}# + #{w 17639}# + #{s 17640}# + #{mod 17641}#))) + #{exps 17396}#)))))))))) + (lambda (#{exps 20085}#) + (#{scan 17258}# + (cdr #{body 17389}#) + #{r 17390}# + #{w 17391}# + #{s 17392}# + #{m 17393}# + #{esew 17394}# + #{mod 17395}# + #{exps 20085}#))))))) (call-with-values (lambda () - (#{scan 17796}# - #{body 17789}# - #{r 17790}# - #{w 17791}# - #{s 17792}# - #{m 17793}# - #{esew 17794}# - #{mod 17795}# + (#{scan 17258}# + #{body 17251}# + #{r 17252}# + #{w 17253}# + #{s 17254}# + #{m 17255}# + #{esew 17256}# + #{mod 17257}# '())) - (lambda (#{exps 17799}#) - (if (null? #{exps 17799}#) + (lambda (#{exps 17261}#) + (if (null? #{exps 17261}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s 17792}#) - (#{build-sequence 4282}# - #{s 17792}# + #{s 17254}#) + (#{build-sequence 4283}# + #{s 17254}# (letrec* - ((#{lp 17839}# - (lambda (#{in 17923}# #{out 17924}#) - (if (null? #{in 17923}#) - #{out 17924}# - (let ((#{e 17925}# (car #{in 17923}#))) - (#{lp 17839}# - (cdr #{in 17923}#) - (cons (if (procedure? #{e 17925}#) - (#{e 17925}#) - #{e 17925}#) - #{out 17924}#))))))) - (#{lp 17839}# #{exps 17799}# '()))))))))) - (#{expand-install-global 4330}# - (lambda (#{name 20699}# #{e 20700}#) - (let ((#{exp 20706}# - (let ((#{fun-exp 20716}# + ((#{lp 17301}# + (lambda (#{in 17385}# #{out 17386}#) + (if (null? #{in 17385}#) + #{out 17386}# + (let ((#{e 17387}# (car #{in 17385}#))) + (#{lp 17301}# + (cdr #{in 17385}#) + (cons (if (procedure? #{e 17387}#) + (#{e 17387}#) + #{e 17387}#) + #{out 17386}#))))))) + (#{lp 17301}# #{exps 17261}# '()))))))))) + (#{expand-install-global 4331}# + (lambda (#{name 20086}# #{e 20087}#) + (let ((#{exp 20093}# + (let ((#{fun-exp 20103}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1218,416 +1238,416 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps 20717}# + (#{arg-exps 20104}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name 20699}#) + #{name 20086}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e 20700}#))) + #{e 20087}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 20716}# - #{arg-exps 20717}#)))) + #{fun-exp 20103}# + #{arg-exps 20104}#)))) (begin - (if (if (struct? #{exp 20706}#) - (eq? (struct-vtable #{exp 20706}#) + (if (if (struct? #{exp 20093}#) + (eq? (struct-vtable #{exp 20093}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 20758}# (struct-ref #{exp 20706}# 1))) - (if (not (assq 'name #{meta 20758}#)) - (let ((#{v 20765}# - (cons (cons 'name #{name 20699}#) #{meta 20758}#))) - (struct-set! #{exp 20706}# 1 #{v 20765}#))))) + (let ((#{meta 20145}# (struct-ref #{exp 20093}# 1))) + (if (not (assq 'name #{meta 20145}#)) + (let ((#{v 20152}# + (cons (cons 'name #{name 20086}#) #{meta 20145}#))) + (struct-set! #{exp 20093}# 1 #{v 20152}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name 20699}# - #{exp 20706}#))))) - (#{parse-when-list 4331}# - (lambda (#{e 20776}# #{when-list 20777}#) - (let ((#{result 20778}# - (#{strip 4346}# #{when-list 20777}# '(())))) + #{name 20086}# + #{exp 20093}#))))) + (#{parse-when-list 4332}# + (lambda (#{e 20163}# #{when-list 20164}#) + (let ((#{result 20165}# + (#{strip 4347}# #{when-list 20164}# '(())))) (letrec* - ((#{lp 20779}# - (lambda (#{l 20833}#) - (if (null? #{l 20833}#) - #{result 20778}# - (if (let ((#{t 20835}# (car #{l 20833}#))) - (if (eq? #{t 20835}# 'compile) + ((#{lp 20166}# + (lambda (#{l 20220}#) + (if (null? #{l 20220}#) + #{result 20165}# + (if (let ((#{t 20222}# (car #{l 20220}#))) + (if (eq? #{t 20222}# 'compile) #t - (if (eq? #{t 20835}# 'load) + (if (eq? #{t 20222}# 'load) #t - (if (eq? #{t 20835}# 'eval) + (if (eq? #{t 20222}# 'eval) #t - (eq? #{t 20835}# 'expand))))) - (#{lp 20779}# (cdr #{l 20833}#)) + (eq? #{t 20222}# 'expand))))) + (#{lp 20166}# (cdr #{l 20220}#)) (syntax-violation 'eval-when "invalid situation" - #{e 20776}# - (car #{l 20833}#))))))) - (#{lp 20779}# #{result 20778}#))))) - (#{syntax-type 4332}# - (lambda (#{e 20837}# - #{r 20838}# - #{w 20839}# - #{s 20840}# - #{rib 20841}# - #{mod 20842}# - #{for-car? 20843}#) - (if (symbol? #{e 20837}#) - (let ((#{n 20844}# - (#{id-var-name 4320}# #{e 20837}# #{w 20839}#))) - (let ((#{b 20845}# - (let ((#{t 21420}# (assq #{n 20844}# #{r 20838}#))) - (if #{t 21420}# - (cdr #{t 21420}#) - (if (symbol? #{n 20844}#) - (let ((#{t 21425}# + #{e 20163}# + (car #{l 20220}#))))))) + (#{lp 20166}# #{result 20165}#))))) + (#{syntax-type 4333}# + (lambda (#{e 20224}# + #{r 20225}# + #{w 20226}# + #{s 20227}# + #{rib 20228}# + #{mod 20229}# + #{for-car? 20230}#) + (if (symbol? #{e 20224}#) + (let ((#{n 20231}# + (#{id-var-name 4321}# #{e 20224}# #{w 20226}#))) + (let ((#{b 20232}# + (let ((#{t 20807}# (assq #{n 20231}# #{r 20225}#))) + (if #{t 20807}# + (cdr #{t 20807}#) + (if (symbol? #{n 20231}#) + (let ((#{t 20812}# (begin - (if (if (not #{mod 20842}#) + (if (if (not #{mod 20229}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 20844}#)) - (let ((#{v 21462}# + #{n 20231}#)) + (let ((#{v 20849}# (module-variable - (if #{mod 20842}# + (if #{mod 20229}# (resolve-module - (cdr #{mod 20842}#)) + (cdr #{mod 20229}#)) (current-module)) - #{n 20844}#))) - (if #{v 21462}# - (if (variable-bound? #{v 21462}#) - (let ((#{val 21471}# - (variable-ref #{v 21462}#))) - (if (macro? #{val 21471}#) - (if (macro-type #{val 21471}#) - (cons (macro-type #{val 21471}#) + #{n 20231}#))) + (if #{v 20849}# + (if (variable-bound? #{v 20849}#) + (let ((#{val 20858}# + (variable-ref #{v 20849}#))) + (if (macro? #{val 20858}#) + (if (macro-type #{val 20858}#) + (cons (macro-type #{val 20858}#) (macro-binding - #{val 21471}#)) + #{val 20858}#)) #f) #f)) #f) #f))))) - (if #{t 21425}# #{t 21425}# '(global))) + (if #{t 20812}# #{t 20812}# '(global))) '(displaced-lexical)))))) - (let ((#{type 20846}# (car #{b 20845}#))) - (if (let ((#{t 20880}# #{type 20846}#)) - (eqv? #{t 20880}# 'lexical)) + (let ((#{type 20233}# (car #{b 20232}#))) + (if (let ((#{t 20267}# #{type 20233}#)) + (eqv? #{t 20267}# 'lexical)) (values - #{type 20846}# - (cdr #{b 20845}#) - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (if (let ((#{t 21037}# #{type 20846}#)) - (eqv? #{t 21037}# 'global)) + #{type 20233}# + (cdr #{b 20232}#) + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (if (let ((#{t 20424}# #{type 20233}#)) + (eqv? #{t 20424}# 'global)) (values - #{type 20846}# - #{n 20844}# - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (if (let ((#{t 21163}# #{type 20846}#)) - (eqv? #{t 21163}# 'macro)) - (if #{for-car? 20843}# + #{type 20233}# + #{n 20231}# + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (if (let ((#{t 20550}# #{type 20233}#)) + (eqv? #{t 20550}# 'macro)) + (if #{for-car? 20230}# (values - #{type 20846}# - (cdr #{b 20845}#) - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (#{syntax-type 4332}# - (#{expand-macro 4336}# - (cdr #{b 20845}#) - #{e 20837}# - #{r 20838}# - #{w 20839}# - #{s 20840}# - #{rib 20841}# - #{mod 20842}#) - #{r 20838}# + #{type 20233}# + (cdr #{b 20232}#) + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (#{syntax-type 4333}# + (#{expand-macro 4337}# + (cdr #{b 20232}#) + #{e 20224}# + #{r 20225}# + #{w 20226}# + #{s 20227}# + #{rib 20228}# + #{mod 20229}#) + #{r 20225}# '(()) - #{s 20840}# - #{rib 20841}# - #{mod 20842}# + #{s 20227}# + #{rib 20228}# + #{mod 20229}# #f)) (values - #{type 20846}# - (cdr #{b 20845}#) - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#))))))) - (if (pair? #{e 20837}#) - (let ((#{first 21482}# (car #{e 20837}#))) + #{type 20233}# + (cdr #{b 20232}#) + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#))))))) + (if (pair? #{e 20224}#) + (let ((#{first 20869}# (car #{e 20224}#))) (call-with-values (lambda () - (#{syntax-type 4332}# - #{first 21482}# - #{r 20838}# - #{w 20839}# - #{s 20840}# - #{rib 20841}# - #{mod 20842}# + (#{syntax-type 4333}# + #{first 20869}# + #{r 20225}# + #{w 20226}# + #{s 20227}# + #{rib 20228}# + #{mod 20229}# #t)) - (lambda (#{ftype 21484}# - #{fval 21485}# - #{fe 21486}# - #{fw 21487}# - #{fs 21488}# - #{fmod 21489}#) - (if (eqv? #{ftype 21484}# 'lexical) + (lambda (#{ftype 20871}# + #{fval 20872}# + #{fe 20873}# + #{fw 20874}# + #{fs 20875}# + #{fmod 20876}#) + (if (eqv? #{ftype 20871}# 'lexical) (values 'lexical-call - #{fval 21485}# - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (if (eqv? #{ftype 21484}# 'global) + #{fval 20872}# + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (if (eqv? #{ftype 20871}# 'global) (values 'global-call (vector 'syntax-object - #{fval 21485}# - #{w 20839}# - #{fmod 21489}#) - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (if (eqv? #{ftype 21484}# 'macro) - (#{syntax-type 4332}# - (#{expand-macro 4336}# - #{fval 21485}# - #{e 20837}# - #{r 20838}# - #{w 20839}# - #{s 20840}# - #{rib 20841}# - #{mod 20842}#) - #{r 20838}# + #{fval 20872}# + #{w 20226}# + #{fmod 20876}#) + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (if (eqv? #{ftype 20871}# 'macro) + (#{syntax-type 4333}# + (#{expand-macro 4337}# + #{fval 20872}# + #{e 20224}# + #{r 20225}# + #{w 20226}# + #{s 20227}# + #{rib 20228}# + #{mod 20229}#) + #{r 20225}# '(()) - #{s 20840}# - #{rib 20841}# - #{mod 20842}# - #{for-car? 20843}#) - (if (eqv? #{ftype 21484}# 'module-ref) + #{s 20227}# + #{rib 20228}# + #{mod 20229}# + #{for-car? 20230}#) + (if (eqv? #{ftype 20871}# 'module-ref) (call-with-values (lambda () - (#{fval 21485}# - #{e 20837}# - #{r 20838}# - #{w 20839}#)) - (lambda (#{e 21510}# - #{r 21511}# - #{w 21512}# - #{s 21513}# - #{mod 21514}#) - (#{syntax-type 4332}# - #{e 21510}# - #{r 21511}# - #{w 21512}# - #{s 21513}# - #{rib 20841}# - #{mod 21514}# - #{for-car? 20843}#))) - (if (eqv? #{ftype 21484}# 'core) + (#{fval 20872}# + #{e 20224}# + #{r 20225}# + #{w 20226}#)) + (lambda (#{e 20897}# + #{r 20898}# + #{w 20899}# + #{s 20900}# + #{mod 20901}#) + (#{syntax-type 4333}# + #{e 20897}# + #{r 20898}# + #{w 20899}# + #{s 20900}# + #{rib 20228}# + #{mod 20901}# + #{for-car? 20230}#))) + (if (eqv? #{ftype 20871}# 'core) (values 'core-form - #{fval 21485}# - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (if (eqv? #{ftype 21484}# 'local-syntax) + #{fval 20872}# + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (if (eqv? #{ftype 20871}# 'local-syntax) (values 'local-syntax-form - #{fval 21485}# - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (if (eqv? #{ftype 21484}# 'begin) + #{fval 20872}# + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (if (eqv? #{ftype 20871}# 'begin) (values 'begin-form #f - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (if (eqv? #{ftype 21484}# 'eval-when) + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (if (eqv? #{ftype 20871}# 'eval-when) (values 'eval-when-form #f - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) - (if (eqv? #{ftype 21484}# 'define) - (let ((#{tmp 21531}# + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) + (if (eqv? #{ftype 20871}# 'define) + (let ((#{tmp 20918}# ($sc-dispatch - #{e 20837}# + #{e 20224}# '(_ any any)))) - (if (if #{tmp 21531}# + (if (if #{tmp 20918}# (@apply - (lambda (#{name 21535}# - #{val 21536}#) - (if (symbol? #{name 21535}#) + (lambda (#{name 20922}# + #{val 20923}#) + (if (symbol? #{name 20922}#) #t (if (if (vector? - #{name 21535}#) + #{name 20922}#) (if (= (vector-length - #{name 21535}#) + #{name 20922}#) 4) (eq? (vector-ref - #{name 21535}# + #{name 20922}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21535}# + #{name 20922}# 1)) #f))) - #{tmp 21531}#) + #{tmp 20918}#) #f) (@apply - (lambda (#{name 21563}# #{val 21564}#) + (lambda (#{name 20950}# #{val 20951}#) (values 'define-form - #{name 21563}# - #{val 21564}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#)) - #{tmp 21531}#) - (let ((#{tmp 21565}# + #{name 20950}# + #{val 20951}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#)) + #{tmp 20918}#) + (let ((#{tmp 20952}# ($sc-dispatch - #{e 20837}# + #{e 20224}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 21565}# + (if (if #{tmp 20952}# (@apply - (lambda (#{name 21569}# - #{args 21570}# - #{e1 21571}# - #{e2 21572}#) + (lambda (#{name 20956}# + #{args 20957}# + #{e1 20958}# + #{e2 20959}#) (if (if (symbol? - #{name 21569}#) + #{name 20956}#) #t (if (if (vector? - #{name 21569}#) + #{name 20956}#) (if (= (vector-length - #{name 21569}#) + #{name 20956}#) 4) (eq? (vector-ref - #{name 21569}# + #{name 20956}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21569}# + #{name 20956}# 1)) #f)) - (#{valid-bound-ids? 4323}# + (#{valid-bound-ids? 4324}# (letrec* - ((#{lvl 21721}# - (lambda (#{vars 21723}# - #{ls 21724}# - #{w 21725}#) - (if (pair? #{vars 21723}#) - (#{lvl 21721}# - (cdr #{vars 21723}#) - (cons (#{wrap 4326}# - (car #{vars 21723}#) - #{w 21725}# + ((#{lvl 21108}# + (lambda (#{vars 21110}# + #{ls 21111}# + #{w 21112}#) + (if (pair? #{vars 21110}#) + (#{lvl 21108}# + (cdr #{vars 21110}#) + (cons (#{wrap 4327}# + (car #{vars 21110}#) + #{w 21112}# #f) - #{ls 21724}#) - #{w 21725}#) + #{ls 21111}#) + #{w 21112}#) (if (if (symbol? - #{vars 21723}#) + #{vars 21110}#) #t (if (if (vector? - #{vars 21723}#) + #{vars 21110}#) (if (= (vector-length - #{vars 21723}#) + #{vars 21110}#) 4) (eq? (vector-ref - #{vars 21723}# + #{vars 21110}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars 21723}# + #{vars 21110}# 1)) #f)) - (cons (#{wrap 4326}# - #{vars 21723}# - #{w 21725}# + (cons (#{wrap 4327}# + #{vars 21110}# + #{w 21112}# #f) - #{ls 21724}#) - (if (null? #{vars 21723}#) - #{ls 21724}# + #{ls 21111}#) + (if (null? #{vars 21110}#) + #{ls 21111}# (if (if (vector? - #{vars 21723}#) + #{vars 21110}#) (if (= (vector-length - #{vars 21723}#) + #{vars 21110}#) 4) (eq? (vector-ref - #{vars 21723}# + #{vars 21110}# 0) 'syntax-object) #f) #f) - (#{lvl 21721}# + (#{lvl 21108}# (vector-ref - #{vars 21723}# + #{vars 21110}# 1) - #{ls 21724}# - (#{join-wraps 4317}# - #{w 21725}# + #{ls 21111}# + (#{join-wraps 4318}# + #{w 21112}# (vector-ref - #{vars 21723}# + #{vars 21110}# 2))) - (cons #{vars 21723}# - #{ls 21724}#)))))))) - (#{lvl 21721}# - #{args 21570}# + (cons #{vars 21110}# + #{ls 21111}#)))))))) + (#{lvl 21108}# + #{args 20957}# '() '(())))) #f)) - #{tmp 21565}#) + #{tmp 20952}#) #f) (@apply - (lambda (#{name 21769}# - #{args 21770}# - #{e1 21771}# - #{e2 21772}#) + (lambda (#{name 21156}# + #{args 21157}# + #{e1 21158}# + #{e2 21159}#) (values 'define-form - (#{wrap 4326}# - #{name 21769}# - #{w 20839}# - #{mod 20842}#) - (let ((#{e 21778}# + (#{wrap 4327}# + #{name 21156}# + #{w 20226}# + #{mod 20229}#) + (let ((#{e 21165}# (cons '#(syntax-object lambda ((top) @@ -2134,60 +2154,60 @@ "i44"))) (hygiene guile)) - (#{wrap 4326}# - (cons #{args 21770}# - (cons #{e1 21771}# - #{e2 21772}#)) - #{w 20839}# - #{mod 20842}#)))) + (#{wrap 4327}# + (cons #{args 21157}# + (cons #{e1 21158}# + #{e2 21159}#)) + #{w 20226}# + #{mod 20229}#)))) (begin - (if (if (pair? #{e 21778}#) - #{s 20840}# + (if (if (pair? #{e 21165}#) + #{s 20227}# #f) (set-source-properties! - #{e 21778}# - #{s 20840}#)) - #{e 21778}#)) + #{e 21165}# + #{s 20227}#)) + #{e 21165}#)) '(()) - #{s 20840}# - #{mod 20842}#)) - #{tmp 21565}#) - (let ((#{tmp 21785}# + #{s 20227}# + #{mod 20229}#)) + #{tmp 20952}#) + (let ((#{tmp 21172}# ($sc-dispatch - #{e 20837}# + #{e 20224}# '(_ any)))) - (if (if #{tmp 21785}# + (if (if #{tmp 21172}# (@apply - (lambda (#{name 21789}#) + (lambda (#{name 21176}#) (if (symbol? - #{name 21789}#) + #{name 21176}#) #t (if (if (vector? - #{name 21789}#) + #{name 21176}#) (if (= (vector-length - #{name 21789}#) + #{name 21176}#) 4) (eq? (vector-ref - #{name 21789}# + #{name 21176}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21789}# + #{name 21176}# 1)) #f))) - #{tmp 21785}#) + #{tmp 21172}#) #f) (@apply - (lambda (#{name 21816}#) + (lambda (#{name 21203}#) (values 'define-form - (#{wrap 4326}# - #{name 21816}# - #{w 20839}# - #{mod 20842}#) + (#{wrap 4327}# + #{name 21203}# + #{w 20226}# + #{mod 20229}#) '(#(syntax-object if ((top) @@ -3617,969 +3637,1061 @@ "i44"))) (hygiene guile))) '(()) - #{s 20840}# - #{mod 20842}#)) - #{tmp 21785}#) + #{s 20227}# + #{mod 20229}#)) + #{tmp 21172}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20837}#))))))) - (if (eqv? #{ftype 21484}# 'define-syntax) - (let ((#{tmp 21835}# + #{e 20224}#))))))) + (if (eqv? #{ftype 20871}# 'define-syntax) + (let ((#{tmp 21222}# ($sc-dispatch - #{e 20837}# + #{e 20224}# '(_ any any)))) - (if (if #{tmp 21835}# + (if (if #{tmp 21222}# (@apply - (lambda (#{name 21839}# - #{val 21840}#) - (if (symbol? #{name 21839}#) + (lambda (#{name 21226}# + #{val 21227}#) + (if (symbol? #{name 21226}#) #t (if (if (vector? - #{name 21839}#) + #{name 21226}#) (if (= (vector-length - #{name 21839}#) + #{name 21226}#) 4) (eq? (vector-ref - #{name 21839}# + #{name 21226}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21839}# + #{name 21226}# 1)) #f))) - #{tmp 21835}#) + #{tmp 21222}#) #f) (@apply - (lambda (#{name 21867}# - #{val 21868}#) + (lambda (#{name 21254}# + #{val 21255}#) (values 'define-syntax-form - #{name 21867}# - #{val 21868}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#)) - #{tmp 21835}#) + #{name 21254}# + #{val 21255}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#)) + #{tmp 21222}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20837}#))) + #{e 20224}#))) (values 'call #f - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#)))))))))))))) - (if (if (vector? #{e 20837}#) - (if (= (vector-length #{e 20837}#) 4) - (eq? (vector-ref #{e 20837}# 0) 'syntax-object) + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#)))))))))))))) + (if (if (vector? #{e 20224}#) + (if (= (vector-length #{e 20224}#) 4) + (eq? (vector-ref #{e 20224}# 0) 'syntax-object) #f) #f) - (#{syntax-type 4332}# - (vector-ref #{e 20837}# 1) - #{r 20838}# - (#{join-wraps 4317}# - #{w 20839}# - (vector-ref #{e 20837}# 2)) - (let ((#{t 21895}# - (#{source-annotation 4294}# #{e 20837}#))) - (if #{t 21895}# #{t 21895}# #{s 20840}#)) - #{rib 20841}# - (let ((#{t 22155}# (vector-ref #{e 20837}# 3))) - (if #{t 22155}# #{t 22155}# #{mod 20842}#)) - #{for-car? 20843}#) - (if (self-evaluating? #{e 20837}#) + (#{syntax-type 4333}# + (vector-ref #{e 20224}# 1) + #{r 20225}# + (#{join-wraps 4318}# + #{w 20226}# + (vector-ref #{e 20224}# 2)) + (let ((#{t 21282}# + (#{source-annotation 4295}# #{e 20224}#))) + (if #{t 21282}# #{t 21282}# #{s 20227}#)) + #{rib 20228}# + (let ((#{t 21517}# (vector-ref #{e 20224}# 3))) + (if #{t 21517}# #{t 21517}# #{mod 20229}#)) + #{for-car? 20230}#) + (if (self-evaluating? #{e 20224}#) (values 'constant #f - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#) + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#) (values 'other #f - #{e 20837}# - #{w 20839}# - #{s 20840}# - #{mod 20842}#))))))) - (#{expand 4333}# - (lambda (#{e 22164}# - #{r 22165}# - #{w 22166}# - #{mod 22167}#) + #{e 20224}# + #{w 20226}# + #{s 20227}# + #{mod 20229}#))))))) + (#{expand 4334}# + (lambda (#{e 21526}# + #{r 21527}# + #{w 21528}# + #{mod 21529}#) (call-with-values (lambda () - (#{syntax-type 4332}# - #{e 22164}# - #{r 22165}# - #{w 22166}# - (#{source-annotation 4294}# #{e 22164}#) + (#{syntax-type 4333}# + #{e 21526}# + #{r 21527}# + #{w 21528}# + (#{source-annotation 4295}# #{e 21526}#) #f - #{mod 22167}# + #{mod 21529}# #f)) - (lambda (#{type 22341}# - #{value 22342}# - #{e 22343}# - #{w 22344}# - #{s 22345}# - #{mod 22346}#) - (#{expand-expr 4334}# - #{type 22341}# - #{value 22342}# - #{e 22343}# - #{r 22165}# - #{w 22344}# - #{s 22345}# - #{mod 22346}#))))) - (#{expand-expr 4334}# - (lambda (#{type 22349}# - #{value 22350}# - #{e 22351}# - #{r 22352}# - #{w 22353}# - #{s 22354}# - #{mod 22355}#) - (if (eqv? #{type 22349}# 'lexical) + (lambda (#{type 21684}# + #{value 21685}# + #{e 21686}# + #{w 21687}# + #{s 21688}# + #{mod 21689}#) + (#{expand-expr 4335}# + #{type 21684}# + #{value 21685}# + #{e 21686}# + #{r 21527}# + #{w 21687}# + #{s 21688}# + #{mod 21689}#))))) + (#{expand-expr 4335}# + (lambda (#{type 21692}# + #{value 21693}# + #{e 21694}# + #{r 21695}# + #{w 21696}# + #{s 21697}# + #{mod 21698}#) + (if (eqv? #{type 21692}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s 22354}# - #{e 22351}# - #{value 22350}#) - (if (if (eqv? #{type 22349}# 'core) + #{s 21697}# + #{e 21694}# + #{value 21693}#) + (if (if (eqv? #{type 21692}# 'core) #t - (eqv? #{type 22349}# 'core-form)) - (#{value 22350}# - #{e 22351}# - #{r 22352}# - #{w 22353}# - #{s 22354}# - #{mod 22355}#) - (if (eqv? #{type 22349}# 'module-ref) + (eqv? #{type 21692}# 'core-form)) + (#{value 21693}# + #{e 21694}# + #{r 21695}# + #{w 21696}# + #{s 21697}# + #{mod 21698}#) + (if (eqv? #{type 21692}# 'module-ref) (call-with-values (lambda () - (#{value 22350}# - #{e 22351}# - #{r 22352}# - #{w 22353}#)) - (lambda (#{e 22381}# - #{r 22382}# - #{w 22383}# - #{s 22384}# - #{mod 22385}#) - (#{expand 4333}# - #{e 22381}# - #{r 22382}# - #{w 22383}# - #{mod 22385}#))) - (if (eqv? #{type 22349}# 'lexical-call) - (#{expand-application 4335}# - (let ((#{id 22465}# (car #{e 22351}#))) - (#{build-lexical-reference 4271}# + (#{value 21693}# + #{e 21694}# + #{r 21695}# + #{w 21696}#)) + (lambda (#{e 21724}# + #{r 21725}# + #{w 21726}# + #{s 21727}# + #{mod 21728}#) + (#{expand 4334}# + #{e 21724}# + #{r 21725}# + #{w 21726}# + #{mod 21728}#))) + (if (eqv? #{type 21692}# 'lexical-call) + (#{expand-application 4336}# + (let ((#{id 21803}# (car #{e 21694}#))) + (#{build-lexical-reference 4272}# 'fun - (#{source-annotation 4294}# #{id 22465}#) - (if (if (vector? #{id 22465}#) - (if (= (vector-length #{id 22465}#) 4) - (eq? (vector-ref #{id 22465}# 0) 'syntax-object) + (#{source-annotation 4295}# #{id 21803}#) + (if (if (vector? #{id 21803}#) + (if (= (vector-length #{id 21803}#) 4) + (eq? (vector-ref #{id 21803}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id 22465}#) - #{id 22465}#) - #{value 22350}#)) - #{e 22351}# - #{r 22352}# - #{w 22353}# - #{s 22354}# - #{mod 22355}#) - (if (eqv? #{type 22349}# 'global-call) - (#{expand-application 4335}# - (#{build-global-reference 4274}# - (#{source-annotation 4294}# (car #{e 22351}#)) - (if (if (vector? #{value 22350}#) - (if (= (vector-length #{value 22350}#) 4) - (eq? (vector-ref #{value 22350}# 0) + (syntax->datum #{id 21803}#) + #{id 21803}#) + #{value 21693}#)) + #{e 21694}# + #{r 21695}# + #{w 21696}# + #{s 21697}# + #{mod 21698}#) + (if (eqv? #{type 21692}# 'global-call) + (#{expand-application 4336}# + (#{build-global-reference 4275}# + (#{source-annotation 4295}# (car #{e 21694}#)) + (if (if (vector? #{value 21693}#) + (if (= (vector-length #{value 21693}#) 4) + (eq? (vector-ref #{value 21693}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 22350}# 1) - #{value 22350}#) - (if (if (vector? #{value 22350}#) - (if (= (vector-length #{value 22350}#) 4) - (eq? (vector-ref #{value 22350}# 0) + (vector-ref #{value 21693}# 1) + #{value 21693}#) + (if (if (vector? #{value 21693}#) + (if (= (vector-length #{value 21693}#) 4) + (eq? (vector-ref #{value 21693}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 22350}# 3) - #{mod 22355}#)) - #{e 22351}# - #{r 22352}# - #{w 22353}# - #{s 22354}# - #{mod 22355}#) - (if (eqv? #{type 22349}# 'constant) - (let ((#{exp 23001}# - (#{strip 4346}# - (#{wrap 4326}# + (vector-ref #{value 21693}# 3) + #{mod 21698}#)) + #{e 21694}# + #{r 21695}# + #{w 21696}# + #{s 21697}# + #{mod 21698}#) + (if (eqv? #{type 21692}# 'constant) + (let ((#{exp 22140}# + (#{strip 4347}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 22351}#) #{s 22354}# #f) + (if (if (pair? #{e 21694}#) #{s 21697}# #f) (set-source-properties! - #{e 22351}# - #{s 22354}#)) - #{e 22351}#) - #{w 22353}# - #{mod 22355}#) + #{e 21694}# + #{s 21697}#)) + #{e 21694}#) + #{w 21696}# + #{mod 21698}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 22354}# - #{exp 23001}#)) - (if (eqv? #{type 22349}# 'global) - (#{analyze-variable 4273}# - #{mod 22355}# - #{value 22350}# - (lambda (#{mod 23037}# #{var 23038}# #{public? 23039}#) + #{s 21697}# + #{exp 22140}#)) + (if (eqv? #{type 21692}# 'global) + (#{analyze-variable 4274}# + #{mod 21698}# + #{value 21693}# + (lambda (#{mod 22176}# #{var 22177}# #{public? 22178}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s 22354}# - #{mod 23037}# - #{var 23038}# - #{public? 23039}#)) - (lambda (#{var 23048}#) + #{s 21697}# + #{mod 22176}# + #{var 22177}# + #{public? 22178}#)) + (lambda (#{var 22187}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s 22354}# - #{var 23048}#))) - (if (eqv? #{type 22349}# 'call) - (#{expand-application 4335}# - (#{expand 4333}# - (car #{e 22351}#) - #{r 22352}# - #{w 22353}# - #{mod 22355}#) - #{e 22351}# - #{r 22352}# - #{w 22353}# - #{s 22354}# - #{mod 22355}#) - (if (eqv? #{type 22349}# 'begin-form) - (let ((#{tmp 23128}# + #{s 21697}# + #{var 22187}#))) + (if (eqv? #{type 21692}# 'call) + (#{expand-application 4336}# + (#{expand 4334}# + (car #{e 21694}#) + #{r 21695}# + #{w 21696}# + #{mod 21698}#) + #{e 21694}# + #{r 21695}# + #{w 21696}# + #{s 21697}# + #{mod 21698}#) + (if (eqv? #{type 21692}# 'begin-form) + (let ((#{tmp 22262}# ($sc-dispatch - #{e 22351}# + #{e 21694}# '(_ any . each-any)))) - (if #{tmp 23128}# + (if #{tmp 22262}# (@apply - (lambda (#{e1 23132}# #{e2 23133}#) - (#{expand-sequence 4328}# - (cons #{e1 23132}# #{e2 23133}#) - #{r 22352}# - #{w 22353}# - #{s 22354}# - #{mod 22355}#)) - #{tmp 23128}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 22351}#))) - (if (eqv? #{type 22349}# 'local-syntax-form) - (#{expand-local-syntax 4338}# - #{value 22350}# - #{e 22351}# - #{r 22352}# - #{w 22353}# - #{s 22354}# - #{mod 22355}# - #{expand-sequence 4328}#) - (if (eqv? #{type 22349}# 'eval-when-form) - (let ((#{tmp 23299}# - ($sc-dispatch - #{e 22351}# - '(_ each-any any . each-any)))) - (if #{tmp 23299}# + (lambda (#{e1 22266}# #{e2 22267}#) + (#{expand-sequence 4329}# + (cons #{e1 22266}# #{e2 22267}#) + #{r 21695}# + #{w 21696}# + #{s 21697}# + #{mod 21698}#)) + #{tmp 22262}#) + (let ((#{tmp 22354}# + ($sc-dispatch #{e 21694}# '(_)))) + (if #{tmp 22354}# (@apply - (lambda (#{x 23303}# - #{e1 23304}# - #{e2 23305}#) - (let ((#{when-list 23306}# - (#{parse-when-list 4331}# - #{e 22351}# - #{x 23303}#))) - (if (memq 'eval #{when-list 23306}#) - (#{expand-sequence 4328}# - (cons #{e1 23304}# #{e2 23305}#) - #{r 22352}# - #{w 22353}# - #{s 22354}# - #{mod 22355}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #f)))) - #{tmp 23299}#) + (lambda () + (begin + (issue-deprecation-warning + "Sequences of zero expressions are deprecated. Use *unspecified*.") + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f))) + #{tmp 22354}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 22351}#))) - (if (if (eqv? #{type 22349}# 'define-form) + #{e 21694}#))))) + (if (eqv? #{type 21692}# 'local-syntax-form) + (#{expand-local-syntax 4339}# + #{value 21693}# + #{e 21694}# + #{r 21695}# + #{w 21696}# + #{s 21697}# + #{mod 21698}# + #{expand-sequence 4329}#) + (if (eqv? #{type 21692}# 'eval-when-form) + (let ((#{tmp 22443}# + ($sc-dispatch + #{e 21694}# + '(_ each-any any . each-any)))) + (if #{tmp 22443}# + (@apply + (lambda (#{x 22447}# + #{e1 22448}# + #{e2 22449}#) + (let ((#{when-list 22450}# + (#{parse-when-list 4332}# + #{e 21694}# + #{x 22447}#))) + (if (memq 'eval #{when-list 22450}#) + (#{expand-sequence 4329}# + (cons #{e1 22448}# #{e2 22449}#) + #{r 21695}# + #{w 21696}# + #{s 21697}# + #{mod 21698}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f)))) + #{tmp 22443}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 21694}#))) + (if (if (eqv? #{type 21692}# 'define-form) #t - (eqv? #{type 22349}# 'define-syntax-form)) + (eqv? #{type 21692}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e 22351}# - (#{wrap 4326}# - #{value 22350}# - #{w 22353}# - #{mod 22355}#)) - (if (eqv? #{type 22349}# 'syntax) + #{e 21694}# + (#{wrap 4327}# + #{value 21693}# + #{w 21696}# + #{mod 21698}#)) + (if (eqv? #{type 21692}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 22351}#) - #{s 22354}# + (if (if (pair? #{e 21694}#) + #{s 21697}# #f) (set-source-properties! - #{e 22351}# - #{s 22354}#)) - #{e 22351}#) - #{w 22353}# - #{mod 22355}#)) - (if (eqv? #{type 22349}# 'displaced-lexical) + #{e 21694}# + #{s 21697}#)) + #{e 21694}#) + #{w 21696}# + #{mod 21698}#)) + (if (eqv? #{type 21692}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 22351}#) - #{s 22354}# + (if (if (pair? #{e 21694}#) + #{s 21697}# #f) (set-source-properties! - #{e 22351}# - #{s 22354}#)) - #{e 22351}#) - #{w 22353}# - #{mod 22355}#)) + #{e 21694}# + #{s 21697}#)) + #{e 21694}#) + #{w 21696}# + #{mod 21698}#)) (syntax-violation #f "unexpected syntax" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 22351}#) - #{s 22354}# + (if (if (pair? #{e 21694}#) + #{s 21697}# #f) (set-source-properties! - #{e 22351}# - #{s 22354}#)) - #{e 22351}#) - #{w 22353}# - #{mod 22355}#)))))))))))))))))) - (#{expand-application 4335}# - (lambda (#{x 23547}# - #{e 23548}# - #{r 23549}# - #{w 23550}# - #{s 23551}# - #{mod 23552}#) - (let ((#{tmp 23554}# - ($sc-dispatch #{e 23548}# '(any . each-any)))) - (if #{tmp 23554}# + #{e 21694}# + #{s 21697}#)) + #{e 21694}#) + #{w 21696}# + #{mod 21698}#)))))))))))))))))) + (#{expand-application 4336}# + (lambda (#{x 22687}# + #{e 22688}# + #{r 22689}# + #{w 22690}# + #{s 22691}# + #{mod 22692}#) + (let ((#{tmp 22694}# + ($sc-dispatch #{e 22688}# '(any . each-any)))) + (if #{tmp 22694}# (@apply - (lambda (#{e0 23558}# #{e1 23559}#) - (#{build-application 4268}# - #{s 23551}# - #{x 23547}# - (map (lambda (#{e 23644}#) - (#{expand 4333}# - #{e 23644}# - #{r 23549}# - #{w 23550}# - #{mod 23552}#)) - #{e1 23559}#))) - #{tmp 23554}#) + (lambda (#{e0 22698}# #{e1 22699}#) + (#{build-application 4269}# + #{s 22691}# + #{x 22687}# + (map (lambda (#{e 22779}#) + (#{expand 4334}# + #{e 22779}# + #{r 22689}# + #{w 22690}# + #{mod 22692}#)) + #{e1 22699}#))) + #{tmp 22694}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 23548}#))))) - (#{expand-macro 4336}# - (lambda (#{p 23725}# - #{e 23726}# - #{r 23727}# - #{w 23728}# - #{s 23729}# - #{rib 23730}# - #{mod 23731}#) + #{e 22688}#))))) + (#{expand-macro 4337}# + (lambda (#{p 22855}# + #{e 22856}# + #{r 22857}# + #{w 22858}# + #{s 22859}# + #{rib 22860}# + #{mod 22861}#) (letrec* - ((#{rebuild-macro-output 23732}# - (lambda (#{x 23763}# #{m 23764}#) - (if (pair? #{x 23763}#) - (let ((#{e 23768}# - (cons (#{rebuild-macro-output 23732}# - (car #{x 23763}#) - #{m 23764}#) - (#{rebuild-macro-output 23732}# - (cdr #{x 23763}#) - #{m 23764}#)))) + ((#{rebuild-macro-output 22862}# + (lambda (#{x 22893}# #{m 22894}#) + (if (pair? #{x 22893}#) + (let ((#{e 22898}# + (cons (#{rebuild-macro-output 22862}# + (car #{x 22893}#) + #{m 22894}#) + (#{rebuild-macro-output 22862}# + (cdr #{x 22893}#) + #{m 22894}#)))) (begin - (if (if (pair? #{e 23768}#) #{s 23729}# #f) - (set-source-properties! #{e 23768}# #{s 23729}#)) - #{e 23768}#)) - (if (if (vector? #{x 23763}#) - (if (= (vector-length #{x 23763}#) 4) - (eq? (vector-ref #{x 23763}# 0) 'syntax-object) + (if (if (pair? #{e 22898}#) #{s 22859}# #f) + (set-source-properties! #{e 22898}# #{s 22859}#)) + #{e 22898}#)) + (if (if (vector? #{x 22893}#) + (if (= (vector-length #{x 22893}#) 4) + (eq? (vector-ref #{x 22893}# 0) 'syntax-object) #f) #f) - (let ((#{w 23784}# (vector-ref #{x 23763}# 2))) - (let ((#{ms 23785}# (car #{w 23784}#)) - (#{s 23786}# (cdr #{w 23784}#))) - (if (if (pair? #{ms 23785}#) - (eq? (car #{ms 23785}#) #f) + (let ((#{w 22914}# (vector-ref #{x 22893}# 2))) + (let ((#{ms 22915}# (car #{w 22914}#)) + (#{s 22916}# (cdr #{w 22914}#))) + (if (if (pair? #{ms 22915}#) + (eq? (car #{ms 22915}#) #f) #f) - (let ((#{expression 23794}# (vector-ref #{x 23763}# 1)) - (#{wrap 23795}# - (cons (cdr #{ms 23785}#) - (if #{rib 23730}# - (cons #{rib 23730}# (cdr #{s 23786}#)) - (cdr #{s 23786}#)))) - (#{module 23796}# (vector-ref #{x 23763}# 3))) + (let ((#{expression 22924}# (vector-ref #{x 22893}# 1)) + (#{wrap 22925}# + (cons (cdr #{ms 22915}#) + (if #{rib 22860}# + (cons #{rib 22860}# (cdr #{s 22916}#)) + (cdr #{s 22916}#)))) + (#{module 22926}# (vector-ref #{x 22893}# 3))) (vector 'syntax-object - #{expression 23794}# - #{wrap 23795}# - #{module 23796}#)) - (let ((#{expression 23806}# - (let ((#{e 23811}# (vector-ref #{x 23763}# 1))) + #{expression 22924}# + #{wrap 22925}# + #{module 22926}#)) + (let ((#{expression 22936}# + (let ((#{e 22941}# (vector-ref #{x 22893}# 1))) (begin - (if (if (pair? #{e 23811}#) #{s 23786}# #f) + (if (if (pair? #{e 22941}#) #{s 22916}# #f) (set-source-properties! - #{e 23811}# - #{s 23786}#)) - #{e 23811}#))) - (#{wrap 23807}# - (cons (cons #{m 23764}# #{ms 23785}#) - (if #{rib 23730}# - (cons #{rib 23730}# - (cons 'shift #{s 23786}#)) - (cons 'shift #{s 23786}#)))) - (#{module 23808}# (vector-ref #{x 23763}# 3))) + #{e 22941}# + #{s 22916}#)) + #{e 22941}#))) + (#{wrap 22937}# + (cons (cons #{m 22894}# #{ms 22915}#) + (if #{rib 22860}# + (cons #{rib 22860}# + (cons 'shift #{s 22916}#)) + (cons 'shift #{s 22916}#)))) + (#{module 22938}# (vector-ref #{x 22893}# 3))) (vector 'syntax-object - #{expression 23806}# - #{wrap 23807}# - #{module 23808}#))))) - (if (vector? #{x 23763}#) - (let ((#{n 23823}# (vector-length #{x 23763}#))) - (let ((#{v 23824}# - (let ((#{e 23832}# (make-vector #{n 23823}#))) + #{expression 22936}# + #{wrap 22937}# + #{module 22938}#))))) + (if (vector? #{x 22893}#) + (let ((#{n 22953}# (vector-length #{x 22893}#))) + (let ((#{v 22954}# + (let ((#{e 22962}# (make-vector #{n 22953}#))) (begin - (if (if (pair? #{e 23832}#) #{x 23763}# #f) + (if (if (pair? #{e 22962}#) #{x 22893}# #f) (set-source-properties! - #{e 23832}# - #{x 23763}#)) - #{e 23832}#)))) + #{e 22962}# + #{x 22893}#)) + #{e 22962}#)))) (letrec* - ((#{loop 23825}# - (lambda (#{i 23877}#) - (if (= #{i 23877}# #{n 23823}#) - #{v 23824}# + ((#{loop 22955}# + (lambda (#{i 23007}#) + (if (= #{i 23007}# #{n 22953}#) + #{v 22954}# (begin (vector-set! - #{v 23824}# - #{i 23877}# - (#{rebuild-macro-output 23732}# - (vector-ref #{x 23763}# #{i 23877}#) - #{m 23764}#)) - (#{loop 23825}# (#{1+}# #{i 23877}#))))))) - (#{loop 23825}# 0)))) - (if (symbol? #{x 23763}#) + #{v 22954}# + #{i 23007}# + (#{rebuild-macro-output 22862}# + (vector-ref #{x 22893}# #{i 23007}#) + #{m 22894}#)) + (#{loop 22955}# (#{1+}# #{i 23007}#))))))) + (#{loop 22955}# 0)))) + (if (symbol? #{x 22893}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s 23883}# (cdr #{w 23728}#))) - (#{wrap 4326}# + (let ((#{s 23013}# (cdr #{w 22858}#))) + (#{wrap 4327}# (begin - (if (if (pair? #{e 23726}#) #{s 23883}# #f) + (if (if (pair? #{e 22856}#) #{s 23013}# #f) (set-source-properties! - #{e 23726}# - #{s 23883}#)) - #{e 23726}#) - #{w 23728}# - #{mod 23731}#)) - #{x 23763}#) + #{e 22856}# + #{s 23013}#)) + #{e 22856}#) + #{w 22858}# + #{mod 22861}#)) + #{x 22893}#) (begin - (if (if (pair? #{x 23763}#) #{s 23729}# #f) - (set-source-properties! #{x 23763}# #{s 23729}#)) - #{x 23763}#)))))))) - (#{rebuild-macro-output 23732}# - (#{p 23725}# - (let ((#{w 23739}# - (cons (cons #f (car #{w 23728}#)) - (cons 'shift (cdr #{w 23728}#))))) - (#{wrap 4326}# + (if (if (pair? #{x 22893}#) #{s 22859}# #f) + (set-source-properties! #{x 22893}# #{s 22859}#)) + #{x 22893}#)))))))) + (#{rebuild-macro-output 22862}# + (#{p 22855}# + (let ((#{w 22869}# + (cons (cons #f (car #{w 22858}#)) + (cons 'shift (cdr #{w 22858}#))))) + (#{wrap 4327}# (begin - (if (if (pair? #{e 23726}#) #{s 23729}# #f) - (set-source-properties! #{e 23726}# #{s 23729}#)) - #{e 23726}#) - #{w 23739}# - #{mod 23731}#))) + (if (if (pair? #{e 22856}#) #{s 22859}# #f) + (set-source-properties! #{e 22856}# #{s 22859}#)) + #{e 22856}#) + #{w 22869}# + #{mod 22861}#))) (gensym "m"))))) - (#{expand-body 4337}# - (lambda (#{body 23915}# - #{outer-form 23916}# - #{r 23917}# - #{w 23918}# - #{mod 23919}#) - (let ((#{r 23920}# - (cons '("placeholder" placeholder) #{r 23917}#))) - (let ((#{ribcage 23921}# (vector 'ribcage '() '() '()))) - (let ((#{w 23922}# - (cons (car #{w 23918}#) - (cons #{ribcage 23921}# (cdr #{w 23918}#))))) + (#{expand-body 4338}# + (lambda (#{body 23045}# + #{outer-form 23046}# + #{r 23047}# + #{w 23048}# + #{mod 23049}#) + (let ((#{r 23050}# + (cons '("placeholder" placeholder) #{r 23047}#))) + (let ((#{ribcage 23051}# (vector 'ribcage '() '() '()))) + (let ((#{w 23052}# + (cons (car #{w 23048}#) + (cons #{ribcage 23051}# (cdr #{w 23048}#))))) (letrec* - ((#{parse 23923}# - (lambda (#{body 23936}# - #{ids 23937}# - #{labels 23938}# - #{var-ids 23939}# - #{vars 23940}# - #{vals 23941}# - #{bindings 23942}#) - (if (null? #{body 23936}#) + ((#{parse 23053}# + (lambda (#{body 23066}# + #{ids 23067}# + #{labels 23068}# + #{var-ids 23069}# + #{vars 23070}# + #{vals 23071}# + #{bindings 23072}#) + (if (null? #{body 23066}#) (syntax-violation #f "no expressions in body" - #{outer-form 23916}#) - (let ((#{e 23943}# (cdr (car #{body 23936}#))) - (#{er 23944}# (car (car #{body 23936}#)))) + #{outer-form 23046}#) + (let ((#{e 23073}# (cdr (car #{body 23066}#))) + (#{er 23074}# (car (car #{body 23066}#)))) (call-with-values (lambda () - (#{syntax-type 4332}# - #{e 23943}# - #{er 23944}# + (#{syntax-type 4333}# + #{e 23073}# + #{er 23074}# '(()) - (#{source-annotation 4294}# #{er 23944}#) - #{ribcage 23921}# - #{mod 23919}# + (#{source-annotation 4295}# #{er 23074}#) + #{ribcage 23051}# + #{mod 23049}# #f)) - (lambda (#{type 24120}# - #{value 24121}# - #{e 24122}# - #{w 24123}# - #{s 24124}# - #{mod 24125}#) - (if (eqv? #{type 24120}# 'define-form) - (let ((#{id 24129}# - (#{wrap 4326}# - #{value 24121}# - #{w 24123}# - #{mod 24125}#)) - (#{label 24130}# + (lambda (#{type 23231}# + #{value 23232}# + #{e 23233}# + #{w 23234}# + #{s 23235}# + #{mod 23236}#) + (if (eqv? #{type 23231}# 'define-form) + (let ((#{id 23240}# + (#{wrap 4327}# + #{value 23232}# + #{w 23234}# + #{mod 23236}#)) + (#{label 23241}# (symbol->string (gensym "i")))) - (let ((#{var 24131}# - (let ((#{id 24191}# - (if (if (vector? #{id 24129}#) + (let ((#{var 23242}# + (let ((#{id 23302}# + (if (if (vector? #{id 23240}#) (if (= (vector-length - #{id 24129}#) + #{id 23240}#) 4) (eq? (vector-ref - #{id 24129}# + #{id 23240}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 24129}# 1) - #{id 24129}#))) + (vector-ref #{id 23240}# 1) + #{id 23240}#))) (gensym (string-append - (symbol->string #{id 24191}#) + (symbol->string #{id 23302}#) " "))))) (begin - (let ((#{update 24181}# - (cons (vector-ref #{id 24129}# 1) + (let ((#{update 23292}# + (cons (vector-ref #{id 23240}# 1) (vector-ref - #{ribcage 23921}# + #{ribcage 23051}# 1)))) (vector-set! - #{ribcage 23921}# + #{ribcage 23051}# 1 - #{update 24181}#)) - (let ((#{update 24183}# + #{update 23292}#)) + (let ((#{update 23294}# (cons (car (vector-ref - #{id 24129}# + #{id 23240}# 2)) (vector-ref - #{ribcage 23921}# + #{ribcage 23051}# 2)))) (vector-set! - #{ribcage 23921}# + #{ribcage 23051}# 2 - #{update 24183}#)) - (let ((#{update 24185}# - (cons #{label 24130}# + #{update 23294}#)) + (let ((#{update 23296}# + (cons #{label 23241}# (vector-ref - #{ribcage 23921}# + #{ribcage 23051}# 3)))) (vector-set! - #{ribcage 23921}# + #{ribcage 23051}# 3 - #{update 24185}#)) - (#{parse 23923}# - (cdr #{body 23936}#) - (cons #{id 24129}# #{ids 23937}#) - (cons #{label 24130}# #{labels 23938}#) - (cons #{id 24129}# #{var-ids 23939}#) - (cons #{var 24131}# #{vars 23940}#) - (cons (cons #{er 23944}# - (#{wrap 4326}# - #{e 24122}# - #{w 24123}# - #{mod 24125}#)) - #{vals 23941}#) - (cons (cons 'lexical #{var 24131}#) - #{bindings 23942}#))))) - (if (eqv? #{type 24120}# 'define-syntax-form) - (let ((#{id 24219}# - (#{wrap 4326}# - #{value 24121}# - #{w 24123}# - #{mod 24125}#)) - (#{label 24220}# + #{update 23296}#)) + (#{parse 23053}# + (cdr #{body 23066}#) + (cons #{id 23240}# #{ids 23067}#) + (cons #{label 23241}# #{labels 23068}#) + (cons #{id 23240}# #{var-ids 23069}#) + (cons #{var 23242}# #{vars 23070}#) + (cons (cons #{er 23074}# + (#{wrap 4327}# + #{e 23233}# + #{w 23234}# + #{mod 23236}#)) + #{vals 23071}#) + (cons (cons 'lexical #{var 23242}#) + #{bindings 23072}#))))) + (if (eqv? #{type 23231}# 'define-syntax-form) + (let ((#{id 23330}# + (#{wrap 4327}# + #{value 23232}# + #{w 23234}# + #{mod 23236}#)) + (#{label 23331}# (symbol->string (gensym "i")))) (begin - (let ((#{update 24270}# - (cons (vector-ref #{id 24219}# 1) + (let ((#{update 23381}# + (cons (vector-ref #{id 23330}# 1) (vector-ref - #{ribcage 23921}# + #{ribcage 23051}# 1)))) (vector-set! - #{ribcage 23921}# + #{ribcage 23051}# 1 - #{update 24270}#)) - (let ((#{update 24272}# + #{update 23381}#)) + (let ((#{update 23383}# (cons (car (vector-ref - #{id 24219}# + #{id 23330}# 2)) (vector-ref - #{ribcage 23921}# + #{ribcage 23051}# 2)))) (vector-set! - #{ribcage 23921}# + #{ribcage 23051}# 2 - #{update 24272}#)) - (let ((#{update 24274}# - (cons #{label 24220}# + #{update 23383}#)) + (let ((#{update 23385}# + (cons #{label 23331}# (vector-ref - #{ribcage 23921}# + #{ribcage 23051}# 3)))) (vector-set! - #{ribcage 23921}# + #{ribcage 23051}# 3 - #{update 24274}#)) - (#{parse 23923}# - (cdr #{body 23936}#) - (cons #{id 24219}# #{ids 23937}#) - (cons #{label 24220}# #{labels 23938}#) - #{var-ids 23939}# - #{vars 23940}# - #{vals 23941}# + #{update 23385}#)) + (#{parse 23053}# + (cdr #{body 23066}#) + (cons #{id 23330}# #{ids 23067}#) + (cons #{label 23331}# #{labels 23068}#) + #{var-ids 23069}# + #{vars 23070}# + #{vals 23071}# (cons (cons 'macro - (cons #{er 23944}# - (#{wrap 4326}# - #{e 24122}# - #{w 24123}# - #{mod 24125}#))) - #{bindings 23942}#)))) - (if (eqv? #{type 24120}# 'begin-form) - (let ((#{tmp 24282}# + (cons #{er 23074}# + (#{wrap 4327}# + #{e 23233}# + #{w 23234}# + #{mod 23236}#))) + #{bindings 23072}#)))) + (if (eqv? #{type 23231}# 'begin-form) + (let ((#{tmp 23393}# ($sc-dispatch - #{e 24122}# + #{e 23233}# '(_ . each-any)))) - (if #{tmp 24282}# + (if #{tmp 23393}# (@apply - (lambda (#{e1 24286}#) - (#{parse 23923}# + (lambda (#{e1 23397}#) + (#{parse 23053}# (letrec* - ((#{f 24287}# - (lambda (#{forms 24350}#) - (if (null? #{forms 24350}#) - (cdr #{body 23936}#) - (cons (cons #{er 23944}# - (#{wrap 4326}# - (car #{forms 24350}#) - #{w 24123}# - #{mod 24125}#)) - (#{f 24287}# - (cdr #{forms 24350}#))))))) - (#{f 24287}# #{e1 24286}#)) - #{ids 23937}# - #{labels 23938}# - #{var-ids 23939}# - #{vars 23940}# - #{vals 23941}# - #{bindings 23942}#)) - #{tmp 24282}#) + ((#{f 23398}# + (lambda (#{forms 23461}#) + (if (null? #{forms 23461}#) + (cdr #{body 23066}#) + (cons (cons #{er 23074}# + (#{wrap 4327}# + (car #{forms 23461}#) + #{w 23234}# + #{mod 23236}#)) + (#{f 23398}# + (cdr #{forms 23461}#))))))) + (#{f 23398}# #{e1 23397}#)) + #{ids 23067}# + #{labels 23068}# + #{var-ids 23069}# + #{vars 23070}# + #{vals 23071}# + #{bindings 23072}#)) + #{tmp 23393}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 24122}#))) - (if (eqv? #{type 24120}# 'local-syntax-form) - (#{expand-local-syntax 4338}# - #{value 24121}# - #{e 24122}# - #{er 23944}# - #{w 24123}# - #{s 24124}# - #{mod 24125}# - (lambda (#{forms 24364}# - #{er 24365}# - #{w 24366}# - #{s 24367}# - #{mod 24368}#) - (#{parse 23923}# + #{e 23233}#))) + (if (eqv? #{type 23231}# 'local-syntax-form) + (#{expand-local-syntax 4339}# + #{value 23232}# + #{e 23233}# + #{er 23074}# + #{w 23234}# + #{s 23235}# + #{mod 23236}# + (lambda (#{forms 23475}# + #{er 23476}# + #{w 23477}# + #{s 23478}# + #{mod 23479}#) + (#{parse 23053}# (letrec* - ((#{f 24369}# - (lambda (#{forms 24432}#) - (if (null? #{forms 24432}#) - (cdr #{body 23936}#) - (cons (cons #{er 24365}# - (#{wrap 4326}# - (car #{forms 24432}#) - #{w 24366}# - #{mod 24368}#)) - (#{f 24369}# - (cdr #{forms 24432}#))))))) - (#{f 24369}# #{forms 24364}#)) - #{ids 23937}# - #{labels 23938}# - #{var-ids 23939}# - #{vars 23940}# - #{vals 23941}# - #{bindings 23942}#))) - (if (null? #{ids 23937}#) - (#{build-sequence 4282}# + ((#{f 23480}# + (lambda (#{forms 23543}#) + (if (null? #{forms 23543}#) + (cdr #{body 23066}#) + (cons (cons #{er 23476}# + (#{wrap 4327}# + (car #{forms 23543}#) + #{w 23477}# + #{mod 23479}#)) + (#{f 23480}# + (cdr #{forms 23543}#))))))) + (#{f 23480}# #{forms 23475}#)) + #{ids 23067}# + #{labels 23068}# + #{var-ids 23069}# + #{vars 23070}# + #{vals 23071}# + #{bindings 23072}#))) + (if (null? #{ids 23067}#) + (#{build-sequence 4283}# #f - (map (lambda (#{x 24502}#) - (#{expand 4333}# - (cdr #{x 24502}#) - (car #{x 24502}#) - '(()) - #{mod 24125}#)) - (cons (cons #{er 23944}# - (#{wrap 4326}# + (map (lambda (#{x 23608}#) + (let ((#{e 23612}# + (cdr #{x 23608}#)) + (#{r 23613}# + (car #{x 23608}#))) + (call-with-values + (lambda () + (#{syntax-type 4333}# + #{e 23612}# + #{r 23613}# + '(()) + (#{source-annotation 4295}# + #{e 23612}#) + #f + #{mod 23236}# + #f)) + (lambda (#{type 23617}# + #{value 23618}# + #{e 23619}# + #{w 23620}# + #{s 23621}# + #{mod 23622}#) + (#{expand-expr 4335}# + #{type 23617}# + #{value 23618}# + #{e 23619}# + #{r 23613}# + #{w 23620}# + #{s 23621}# + #{mod 23622}#))))) + (cons (cons #{er 23074}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 24122}#) - #{s 24124}# + (if (if (pair? #{e 23233}#) + #{s 23235}# #f) (set-source-properties! - #{e 24122}# - #{s 24124}#)) - #{e 24122}#) - #{w 24123}# - #{mod 24125}#)) - (cdr #{body 23936}#)))) + #{e 23233}# + #{s 23235}#)) + #{e 23233}#) + #{w 23234}# + #{mod 23236}#)) + (cdr #{body 23066}#)))) (begin - (if (not (#{valid-bound-ids? 4323}# - #{ids 23937}#)) + (if (not (#{valid-bound-ids? 4324}# + #{ids 23067}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 23916}#)) + #{outer-form 23046}#)) (letrec* - ((#{loop 24664}# - (lambda (#{bs 24667}# - #{er-cache 24668}# - #{r-cache 24669}#) - (if (not (null? #{bs 24667}#)) - (let ((#{b 24670}# - (car #{bs 24667}#))) - (if (eq? (car #{b 24670}#) + ((#{loop 23723}# + (lambda (#{bs 23726}# + #{er-cache 23727}# + #{r-cache 23728}#) + (if (not (null? #{bs 23726}#)) + (let ((#{b 23729}# + (car #{bs 23726}#))) + (if (eq? (car #{b 23729}#) 'macro) - (let ((#{er 24672}# - (car (cdr #{b 24670}#)))) - (let ((#{r-cache 24673}# - (if (eq? #{er 24672}# - #{er-cache 24668}#) - #{r-cache 24669}# - (#{macros-only-env 4297}# - #{er 24672}#)))) + (let ((#{er 23731}# + (car (cdr #{b 23729}#)))) + (let ((#{r-cache 23732}# + (if (eq? #{er 23731}# + #{er-cache 23727}#) + #{r-cache 23728}# + (#{macros-only-env 4298}# + #{er 23731}#)))) (begin (set-cdr! - #{b 24670}# - (#{eval-local-transformer 4339}# - (#{expand 4333}# - (cdr (cdr #{b 24670}#)) - #{r-cache 24673}# + #{b 23729}# + (#{eval-local-transformer 4340}# + (#{expand 4334}# + (cdr (cdr #{b 23729}#)) + #{r-cache 23732}# '(()) - #{mod 24125}#) - #{mod 24125}#)) - (#{loop 24664}# - (cdr #{bs 24667}#) - #{er 24672}# - #{r-cache 24673}#)))) - (#{loop 24664}# - (cdr #{bs 24667}#) - #{er-cache 24668}# - #{r-cache 24669}#))))))) - (#{loop 24664}# - #{bindings 23942}# + #{mod 23236}#) + #{mod 23236}#)) + (#{loop 23723}# + (cdr #{bs 23726}#) + #{er 23731}# + #{r-cache 23732}#)))) + (#{loop 23723}# + (cdr #{bs 23726}#) + #{er-cache 23727}# + #{r-cache 23728}#))))))) + (#{loop 23723}# + #{bindings 23072}# #f #f)) (set-cdr! - #{r 23920}# - (#{extend-env 4295}# - #{labels 23938}# - #{bindings 23942}# - (cdr #{r 23920}#))) - (#{build-letrec 4285}# + #{r 23050}# + (#{extend-env 4296}# + #{labels 23068}# + #{bindings 23072}# + (cdr #{r 23050}#))) + (#{build-letrec 4286}# #f #t (reverse (map syntax->datum - #{var-ids 23939}#)) - (reverse #{vars 23940}#) - (map (lambda (#{x 25026}#) - (#{expand 4333}# - (cdr #{x 25026}#) - (car #{x 25026}#) - '(()) - #{mod 24125}#)) - (reverse #{vals 23941}#)) - (#{build-sequence 4282}# - #f - (map (lambda (#{x 25156}#) - (#{expand 4333}# - (cdr #{x 25156}#) - (car #{x 25156}#) - '(()) - #{mod 24125}#)) - (cons (cons #{er 23944}# - (#{wrap 4326}# - (begin - (if (if (pair? #{e 24122}#) - #{s 24124}# - #f) - (set-source-properties! - #{e 24122}# - #{s 24124}#)) - #{e 24122}#) - #{w 24123}# - #{mod 24125}#)) - (cdr #{body 23936}#)))))))))))))))))) - (#{parse 23923}# - (map (lambda (#{x 23926}#) - (cons #{r 23920}# - (#{wrap 4326}# - #{x 23926}# - #{w 23922}# - #{mod 23919}#))) - #{body 23915}#) + #{var-ids 23069}#)) + (reverse #{vars 23070}#) + (map (lambda (#{x 24075}#) + (let ((#{e 24079}# + (cdr #{x 24075}#)) + (#{r 24080}# + (car #{x 24075}#))) + (call-with-values + (lambda () + (#{syntax-type 4333}# + #{e 24079}# + #{r 24080}# + '(()) + (#{source-annotation 4295}# + #{e 24079}#) + #f + #{mod 23236}# + #f)) + (lambda (#{type 24084}# + #{value 24085}# + #{e 24086}# + #{w 24087}# + #{s 24088}# + #{mod 24089}#) + (#{expand-expr 4335}# + #{type 24084}# + #{value 24085}# + #{e 24086}# + #{r 24080}# + #{w 24087}# + #{s 24088}# + #{mod 24089}#))))) + (reverse #{vals 23071}#)) + (let ((#{exps 24095}# + (map (lambda (#{x 24096}#) + (let ((#{e 24099}# + (cdr #{x 24096}#)) + (#{r 24100}# + (car #{x 24096}#))) + (call-with-values + (lambda () + (#{syntax-type 4333}# + #{e 24099}# + #{r 24100}# + '(()) + (#{source-annotation 4295}# + #{e 24099}#) + #f + #{mod 23236}# + #f)) + (lambda (#{type 24104}# + #{value 24105}# + #{e 24106}# + #{w 24107}# + #{s 24108}# + #{mod 24109}#) + (#{expand-expr 4335}# + #{type 24104}# + #{value 24105}# + #{e 24106}# + #{r 24100}# + #{w 24107}# + #{s 24108}# + #{mod 24109}#))))) + (cons (cons #{er 23074}# + (#{wrap 4327}# + (begin + (if (if (pair? #{e 23233}#) + #{s 23235}# + #f) + (set-source-properties! + #{e 23233}# + #{s 23235}#)) + #{e 23233}#) + #{w 23234}# + #{mod 23236}#)) + (cdr #{body 23066}#))))) + (if (null? (cdr #{exps 24095}#)) + (car #{exps 24095}#) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 12) + #f + #{exps 24095}#))))))))))))))))) + (#{parse 23053}# + (map (lambda (#{x 23056}#) + (cons #{r 23050}# + (#{wrap 4327}# + #{x 23056}# + #{w 23052}# + #{mod 23049}#))) + #{body 23045}#) '() '() '() '() '() '()))))))) - (#{expand-local-syntax 4338}# - (lambda (#{rec? 25241}# - #{e 25242}# - #{r 25243}# - #{w 25244}# - #{s 25245}# - #{mod 25246}# - #{k 25247}#) - (let ((#{tmp 25249}# + (#{expand-local-syntax 4339}# + (lambda (#{rec? 24135}# + #{e 24136}# + #{r 24137}# + #{w 24138}# + #{s 24139}# + #{mod 24140}# + #{k 24141}#) + (let ((#{tmp 24143}# ($sc-dispatch - #{e 25242}# + #{e 24136}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 25249}# + (if #{tmp 24143}# (@apply - (lambda (#{id 25253}# - #{val 25254}# - #{e1 25255}# - #{e2 25256}#) - (if (not (#{valid-bound-ids? 4323}# #{id 25253}#)) + (lambda (#{id 24147}# + #{val 24148}# + #{e1 24149}# + #{e2 24150}#) + (if (not (#{valid-bound-ids? 4324}# #{id 24147}#)) (syntax-violation #f "duplicate bound keyword" - #{e 25242}#) - (let ((#{labels 25346}# - (#{gen-labels 4304}# #{id 25253}#))) - (let ((#{new-w 25347}# - (#{make-binding-wrap 4315}# - #{id 25253}# - #{labels 25346}# - #{w 25244}#))) - (#{k 25247}# - (cons #{e1 25255}# #{e2 25256}#) - (#{extend-env 4295}# - #{labels 25346}# - (let ((#{trans-r 25385}# - (#{macros-only-env 4297}# #{r 25243}#))) + #{e 24136}#) + (let ((#{labels 24240}# + (#{gen-labels 4305}# #{id 24147}#))) + (let ((#{new-w 24241}# + (#{make-binding-wrap 4316}# + #{id 24147}# + #{labels 24240}# + #{w 24138}#))) + (#{k 24141}# + (cons #{e1 24149}# #{e2 24150}#) + (#{extend-env 4296}# + #{labels 24240}# + (let ((#{trans-r 24279}# + (#{macros-only-env 4298}# #{r 24137}#))) (begin - (if #{rec? 25241}# (if #f #f)) - (map (lambda (#{x 25386}#) + (if #{rec? 24135}# #{new-w 24241}# #{w 24138}#) + (map (lambda (#{x 24280}#) (cons 'macro - (#{eval-local-transformer 4339}# - (#{expand 4333}# - #{x 25386}# - #{trans-r 25385}# - (if #{rec? 25241}# - #{new-w 25347}# - #{w 25244}#) - #{mod 25246}#) - #{mod 25246}#))) - #{val 25254}#))) - #{r 25243}#) - #{new-w 25347}# - #{s 25245}# - #{mod 25246}#))))) - #{tmp 25249}#) + (#{eval-local-transformer 4340}# + (#{expand 4334}# + #{x 24280}# + #{trans-r 24279}# + (values + (if #{rec? 24135}# + #{new-w 24241}# + #{w 24138}#)) + #{mod 24140}#) + #{mod 24140}#))) + #{val 24148}#))) + #{r 24137}#) + #{new-w 24241}# + #{s 24139}# + #{mod 24140}#))))) + #{tmp 24143}#) (syntax-violation #f "bad local syntax definition" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 25242}#) #{s 25245}# #f) - (set-source-properties! #{e 25242}# #{s 25245}#)) - #{e 25242}#) - #{w 25244}# - #{mod 25246}#)))))) - (#{eval-local-transformer 4339}# - (lambda (#{expanded 25687}# #{mod 25688}#) - (let ((#{p 25689}# (primitive-eval #{expanded 25687}#))) - (if (procedure? #{p 25689}#) - #{p 25689}# + (if (if (pair? #{e 24136}#) #{s 24139}# #f) + (set-source-properties! #{e 24136}# #{s 24139}#)) + #{e 24136}#) + #{w 24138}# + #{mod 24140}#)))))) + (#{eval-local-transformer 4340}# + (lambda (#{expanded 24576}# #{mod 24577}#) + (let ((#{p 24578}# (primitive-eval #{expanded 24576}#))) + (if (procedure? #{p 24578}#) + #{p 24578}# (syntax-violation #f "nonprocedure transformer" - #{p 25689}#))))) - (#{ellipsis? 4341}# - (lambda (#{x 5147}#) - (if (if (if (vector? #{x 5147}#) - (if (= (vector-length #{x 5147}#) 4) - (eq? (vector-ref #{x 5147}# 0) 'syntax-object) + #{p 24578}#))))) + (#{ellipsis? 4342}# + (lambda (#{x 5143}#) + (if (if (if (vector? #{x 5143}#) + (if (= (vector-length #{x 5143}#) 4) + (eq? (vector-ref #{x 5143}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 5147}# 1)) + (symbol? (vector-ref #{x 5143}# 1)) #f) - (if (eq? (if (if (vector? #{x 5147}#) - (if (= (vector-length #{x 5147}#) 4) - (eq? (vector-ref #{x 5147}# 0) 'syntax-object) + (if (eq? (if (if (vector? #{x 5143}#) + (if (= (vector-length #{x 5143}#) 4) + (eq? (vector-ref #{x 5143}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 5147}# 1) - #{x 5147}#) + (vector-ref #{x 5143}# 1) + #{x 5143}#) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2218")) + #(ribcage #(x) #((top)) #("i2219")) #(ribcage (lambda-var-list gen-var @@ -5005,7 +5117,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2218")) + #(ribcage #(x) #((top)) #("i2219")) #(ribcage (lambda-var-list gen-var @@ -5422,14 +5534,14 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4320}# #{x 5147}# '(())) - (#{id-var-name 4320}# + (eq? (#{id-var-name 4321}# #{x 5143}# '(())) + (#{id-var-name 4321}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2218")) + #(ribcage #(x) #((top)) #("i2219")) #(ribcage (lambda-var-list gen-var @@ -5849,300 +5961,300 @@ '(()))) #f) #f))) - (#{lambda-formals 4342}# - (lambda (#{orig-args 25694}#) + (#{lambda-formals 4343}# + (lambda (#{orig-args 24583}#) (letrec* - ((#{req 25695}# - (lambda (#{args 25699}# #{rreq 25700}#) - (let ((#{tmp 25702}# ($sc-dispatch #{args 25699}# '()))) - (if #{tmp 25702}# + ((#{req 24584}# + (lambda (#{args 24588}# #{rreq 24589}#) + (let ((#{tmp 24591}# ($sc-dispatch #{args 24588}# '()))) + (if #{tmp 24591}# (@apply (lambda () - (#{check 25696}# (reverse #{rreq 25700}#) #f)) - #{tmp 25702}#) - (let ((#{tmp 25829}# - ($sc-dispatch #{args 25699}# '(any . any)))) - (if (if #{tmp 25829}# + (#{check 24585}# (reverse #{rreq 24589}#) #f)) + #{tmp 24591}#) + (let ((#{tmp 24714}# + ($sc-dispatch #{args 24588}# '(any . any)))) + (if (if #{tmp 24714}# (@apply - (lambda (#{a 25833}# #{b 25834}#) - (if (symbol? #{a 25833}#) + (lambda (#{a 24718}# #{b 24719}#) + (if (symbol? #{a 24718}#) #t - (if (if (vector? #{a 25833}#) - (if (= (vector-length #{a 25833}#) 4) - (eq? (vector-ref #{a 25833}# 0) + (if (if (vector? #{a 24718}#) + (if (= (vector-length #{a 24718}#) 4) + (eq? (vector-ref #{a 24718}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25833}# 1)) + (symbol? (vector-ref #{a 24718}# 1)) #f))) - #{tmp 25829}#) + #{tmp 24714}#) #f) (@apply - (lambda (#{a 25861}# #{b 25862}#) - (#{req 25695}# - #{b 25862}# - (cons #{a 25861}# #{rreq 25700}#))) - #{tmp 25829}#) - (let ((#{tmp 25863}# (list #{args 25699}#))) + (lambda (#{a 24746}# #{b 24747}#) + (#{req 24584}# + #{b 24747}# + (cons #{a 24746}# #{rreq 24589}#))) + #{tmp 24714}#) + (let ((#{tmp 24748}# (list #{args 24588}#))) (if (@apply - (lambda (#{r 25865}#) - (if (symbol? #{r 25865}#) + (lambda (#{r 24750}#) + (if (symbol? #{r 24750}#) #t - (if (if (vector? #{r 25865}#) - (if (= (vector-length #{r 25865}#) 4) - (eq? (vector-ref #{r 25865}# 0) + (if (if (vector? #{r 24750}#) + (if (= (vector-length #{r 24750}#) 4) + (eq? (vector-ref #{r 24750}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 25865}# 1)) + (symbol? (vector-ref #{r 24750}# 1)) #f))) - #{tmp 25863}#) + #{tmp 24748}#) (@apply - (lambda (#{r 25895}#) - (#{check 25696}# - (reverse #{rreq 25700}#) - #{r 25895}#)) - #{tmp 25863}#) + (lambda (#{r 24780}#) + (#{check 24585}# + (reverse #{rreq 24589}#) + #{r 24780}#)) + #{tmp 24748}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args 25694}# - #{args 25699}#))))))))) - (#{check 25696}# - (lambda (#{req 26030}# #{rest 26031}#) - (if (#{distinct-bound-ids? 4324}# - (if #{rest 26031}# - (cons #{rest 26031}# #{req 26030}#) - #{req 26030}#)) - (values #{req 26030}# #f #{rest 26031}# #f) + #{orig-args 24583}# + #{args 24588}#))))))))) + (#{check 24585}# + (lambda (#{req 24911}# #{rest 24912}#) + (if (#{distinct-bound-ids? 4325}# + (if #{rest 24912}# + (cons #{rest 24912}# #{req 24911}#) + #{req 24911}#)) + (values #{req 24911}# #f #{rest 24912}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 25694}#))))) - (#{req 25695}# #{orig-args 25694}# '())))) - (#{expand-simple-lambda 4343}# - (lambda (#{e 26151}# - #{r 26152}# - #{w 26153}# - #{s 26154}# - #{mod 26155}# - #{req 26156}# - #{rest 26157}# - #{meta 26158}# - #{body 26159}#) - (let ((#{ids 26160}# - (if #{rest 26157}# - (append #{req 26156}# (list #{rest 26157}#)) - #{req 26156}#))) - (let ((#{vars 26161}# - (map #{gen-var 4347}# #{ids 26160}#))) - (let ((#{labels 26162}# - (#{gen-labels 4304}# #{ids 26160}#))) - (#{build-simple-lambda 4277}# - #{s 26154}# - (map syntax->datum #{req 26156}#) - (if #{rest 26157}# - (syntax->datum #{rest 26157}#) + #{orig-args 24583}#))))) + (#{req 24584}# #{orig-args 24583}# '())))) + (#{expand-simple-lambda 4344}# + (lambda (#{e 25028}# + #{r 25029}# + #{w 25030}# + #{s 25031}# + #{mod 25032}# + #{req 25033}# + #{rest 25034}# + #{meta 25035}# + #{body 25036}#) + (let ((#{ids 25037}# + (if #{rest 25034}# + (append #{req 25033}# (list #{rest 25034}#)) + #{req 25033}#))) + (let ((#{vars 25038}# + (map #{gen-var 4348}# #{ids 25037}#))) + (let ((#{labels 25039}# + (#{gen-labels 4305}# #{ids 25037}#))) + (#{build-simple-lambda 4278}# + #{s 25031}# + (map syntax->datum #{req 25033}#) + (if #{rest 25034}# + (syntax->datum #{rest 25034}#) #f) - #{vars 26161}# - #{meta 26158}# - (#{expand-body 4337}# - #{body 26159}# - (#{wrap 4326}# + #{vars 25038}# + #{meta 25035}# + (#{expand-body 4338}# + #{body 25036}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 26151}#) #{s 26154}# #f) - (set-source-properties! #{e 26151}# #{s 26154}#)) - #{e 26151}#) - #{w 26153}# - #{mod 26155}#) - (#{extend-var-env 4296}# - #{labels 26162}# - #{vars 26161}# - #{r 26152}#) - (#{make-binding-wrap 4315}# - #{ids 26160}# - #{labels 26162}# - #{w 26153}#) - #{mod 26155}#))))))) - (#{lambda*-formals 4344}# - (lambda (#{orig-args 26462}#) + (if (if (pair? #{e 25028}#) #{s 25031}# #f) + (set-source-properties! #{e 25028}# #{s 25031}#)) + #{e 25028}#) + #{w 25030}# + #{mod 25032}#) + (#{extend-var-env 4297}# + #{labels 25039}# + #{vars 25038}# + #{r 25029}#) + (#{make-binding-wrap 4316}# + #{ids 25037}# + #{labels 25039}# + #{w 25030}#) + #{mod 25032}#))))))) + (#{lambda*-formals 4345}# + (lambda (#{orig-args 25339}#) (letrec* - ((#{req 26463}# - (lambda (#{args 26470}# #{rreq 26471}#) - (let ((#{tmp 26473}# ($sc-dispatch #{args 26470}# '()))) - (if #{tmp 26473}# + ((#{req 25340}# + (lambda (#{args 25347}# #{rreq 25348}#) + (let ((#{tmp 25350}# ($sc-dispatch #{args 25347}# '()))) + (if #{tmp 25350}# (@apply (lambda () - (#{check 26467}# - (reverse #{rreq 26471}#) + (#{check 25344}# + (reverse #{rreq 25348}#) '() #f '())) - #{tmp 26473}#) - (let ((#{tmp 26479}# - ($sc-dispatch #{args 26470}# '(any . any)))) - (if (if #{tmp 26479}# + #{tmp 25350}#) + (let ((#{tmp 25356}# + ($sc-dispatch #{args 25347}# '(any . any)))) + (if (if #{tmp 25356}# (@apply - (lambda (#{a 26483}# #{b 26484}#) - (if (symbol? #{a 26483}#) + (lambda (#{a 25360}# #{b 25361}#) + (if (symbol? #{a 25360}#) #t - (if (if (vector? #{a 26483}#) - (if (= (vector-length #{a 26483}#) 4) - (eq? (vector-ref #{a 26483}# 0) + (if (if (vector? #{a 25360}#) + (if (= (vector-length #{a 25360}#) 4) + (eq? (vector-ref #{a 25360}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26483}# 1)) + (symbol? (vector-ref #{a 25360}# 1)) #f))) - #{tmp 26479}#) + #{tmp 25356}#) #f) (@apply - (lambda (#{a 26511}# #{b 26512}#) - (#{req 26463}# - #{b 26512}# - (cons #{a 26511}# #{rreq 26471}#))) - #{tmp 26479}#) - (let ((#{tmp 26513}# - ($sc-dispatch #{args 26470}# '(any . any)))) - (if (if #{tmp 26513}# + (lambda (#{a 25388}# #{b 25389}#) + (#{req 25340}# + #{b 25389}# + (cons #{a 25388}# #{rreq 25348}#))) + #{tmp 25356}#) + (let ((#{tmp 25390}# + ($sc-dispatch #{args 25347}# '(any . any)))) + (if (if #{tmp 25390}# (@apply - (lambda (#{a 26517}# #{b 26518}#) - (eq? (syntax->datum #{a 26517}#) #:optional)) - #{tmp 26513}#) + (lambda (#{a 25394}# #{b 25395}#) + (eq? (syntax->datum #{a 25394}#) #:optional)) + #{tmp 25390}#) #f) (@apply - (lambda (#{a 26519}# #{b 26520}#) - (#{opt 26464}# - #{b 26520}# - (reverse #{rreq 26471}#) + (lambda (#{a 25396}# #{b 25397}#) + (#{opt 25341}# + #{b 25397}# + (reverse #{rreq 25348}#) '())) - #{tmp 26513}#) - (let ((#{tmp 26523}# - ($sc-dispatch #{args 26470}# '(any . any)))) - (if (if #{tmp 26523}# + #{tmp 25390}#) + (let ((#{tmp 25400}# + ($sc-dispatch #{args 25347}# '(any . any)))) + (if (if #{tmp 25400}# (@apply - (lambda (#{a 26527}# #{b 26528}#) - (eq? (syntax->datum #{a 26527}#) #:key)) - #{tmp 26523}#) + (lambda (#{a 25404}# #{b 25405}#) + (eq? (syntax->datum #{a 25404}#) #:key)) + #{tmp 25400}#) #f) (@apply - (lambda (#{a 26529}# #{b 26530}#) - (#{key 26465}# - #{b 26530}# - (reverse #{rreq 26471}#) + (lambda (#{a 25406}# #{b 25407}#) + (#{key 25342}# + #{b 25407}# + (reverse #{rreq 25348}#) '() '())) - #{tmp 26523}#) - (let ((#{tmp 26533}# + #{tmp 25400}#) + (let ((#{tmp 25410}# ($sc-dispatch - #{args 26470}# + #{args 25347}# '(any any)))) - (if (if #{tmp 26533}# + (if (if #{tmp 25410}# (@apply - (lambda (#{a 26537}# #{b 26538}#) - (eq? (syntax->datum #{a 26537}#) + (lambda (#{a 25414}# #{b 25415}#) + (eq? (syntax->datum #{a 25414}#) #:rest)) - #{tmp 26533}#) + #{tmp 25410}#) #f) (@apply - (lambda (#{a 26539}# #{b 26540}#) - (#{rest 26466}# - #{b 26540}# - (reverse #{rreq 26471}#) + (lambda (#{a 25416}# #{b 25417}#) + (#{rest 25343}# + #{b 25417}# + (reverse #{rreq 25348}#) '() '())) - #{tmp 26533}#) - (let ((#{tmp 26543}# (list #{args 26470}#))) + #{tmp 25410}#) + (let ((#{tmp 25420}# (list #{args 25347}#))) (if (@apply - (lambda (#{r 26545}#) - (if (symbol? #{r 26545}#) + (lambda (#{r 25422}#) + (if (symbol? #{r 25422}#) #t - (if (if (vector? #{r 26545}#) + (if (if (vector? #{r 25422}#) (if (= (vector-length - #{r 26545}#) + #{r 25422}#) 4) (eq? (vector-ref - #{r 26545}# + #{r 25422}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 26545}# 1)) + (vector-ref #{r 25422}# 1)) #f))) - #{tmp 26543}#) + #{tmp 25420}#) (@apply - (lambda (#{r 26575}#) - (#{rest 26466}# - #{r 26575}# - (reverse #{rreq 26471}#) + (lambda (#{r 25452}#) + (#{rest 25343}# + #{r 25452}# + (reverse #{rreq 25348}#) '() '())) - #{tmp 26543}#) + #{tmp 25420}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 26462}# - #{args 26470}#))))))))))))))) - (#{opt 26464}# - (lambda (#{args 26594}# #{req 26595}# #{ropt 26596}#) - (let ((#{tmp 26598}# ($sc-dispatch #{args 26594}# '()))) - (if #{tmp 26598}# + #{orig-args 25339}# + #{args 25347}#))))))))))))))) + (#{opt 25341}# + (lambda (#{args 25471}# #{req 25472}# #{ropt 25473}#) + (let ((#{tmp 25475}# ($sc-dispatch #{args 25471}# '()))) + (if #{tmp 25475}# (@apply (lambda () - (#{check 26467}# - #{req 26595}# - (reverse #{ropt 26596}#) + (#{check 25344}# + #{req 25472}# + (reverse #{ropt 25473}#) #f '())) - #{tmp 26598}#) - (let ((#{tmp 26604}# - ($sc-dispatch #{args 26594}# '(any . any)))) - (if (if #{tmp 26604}# + #{tmp 25475}#) + (let ((#{tmp 25481}# + ($sc-dispatch #{args 25471}# '(any . any)))) + (if (if #{tmp 25481}# (@apply - (lambda (#{a 26608}# #{b 26609}#) - (if (symbol? #{a 26608}#) + (lambda (#{a 25485}# #{b 25486}#) + (if (symbol? #{a 25485}#) #t - (if (if (vector? #{a 26608}#) - (if (= (vector-length #{a 26608}#) 4) - (eq? (vector-ref #{a 26608}# 0) + (if (if (vector? #{a 25485}#) + (if (= (vector-length #{a 25485}#) 4) + (eq? (vector-ref #{a 25485}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26608}# 1)) + (symbol? (vector-ref #{a 25485}# 1)) #f))) - #{tmp 26604}#) + #{tmp 25481}#) #f) (@apply - (lambda (#{a 26636}# #{b 26637}#) - (#{opt 26464}# - #{b 26637}# - #{req 26595}# - (cons (cons #{a 26636}# + (lambda (#{a 25513}# #{b 25514}#) + (#{opt 25341}# + #{b 25514}# + #{req 25472}# + (cons (cons #{a 25513}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2357" "i2358")) + #("i2358" "i2359")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2347" "i2348" "i2349")) + #("i2348" "i2349" "i2350")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) - ("i2293" - "i2291" - "i2289" - "i2287" - "i2285")) + ("i2294" + "i2292" + "i2290" + "i2288" + "i2286")) #(ribcage #(orig-args) #((top)) - #("i2284")) + #("i2285")) #(ribcage (lambda-var-list gen-var @@ -6559,147 +6671,147 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - #{ropt 26596}#))) - #{tmp 26604}#) - (let ((#{tmp 26638}# + #{ropt 25473}#))) + #{tmp 25481}#) + (let ((#{tmp 25515}# ($sc-dispatch - #{args 26594}# + #{args 25471}# '((any any) . any)))) - (if (if #{tmp 26638}# + (if (if #{tmp 25515}# (@apply - (lambda (#{a 26642}# - #{init 26643}# - #{b 26644}#) - (if (symbol? #{a 26642}#) + (lambda (#{a 25519}# + #{init 25520}# + #{b 25521}#) + (if (symbol? #{a 25519}#) #t - (if (if (vector? #{a 26642}#) - (if (= (vector-length #{a 26642}#) 4) - (eq? (vector-ref #{a 26642}# 0) + (if (if (vector? #{a 25519}#) + (if (= (vector-length #{a 25519}#) 4) + (eq? (vector-ref #{a 25519}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26642}# 1)) + (symbol? (vector-ref #{a 25519}# 1)) #f))) - #{tmp 26638}#) + #{tmp 25515}#) #f) (@apply - (lambda (#{a 26671}# #{init 26672}# #{b 26673}#) - (#{opt 26464}# - #{b 26673}# - #{req 26595}# - (cons (list #{a 26671}# #{init 26672}#) - #{ropt 26596}#))) - #{tmp 26638}#) - (let ((#{tmp 26674}# - ($sc-dispatch #{args 26594}# '(any . any)))) - (if (if #{tmp 26674}# + (lambda (#{a 25548}# #{init 25549}# #{b 25550}#) + (#{opt 25341}# + #{b 25550}# + #{req 25472}# + (cons (list #{a 25548}# #{init 25549}#) + #{ropt 25473}#))) + #{tmp 25515}#) + (let ((#{tmp 25551}# + ($sc-dispatch #{args 25471}# '(any . any)))) + (if (if #{tmp 25551}# (@apply - (lambda (#{a 26678}# #{b 26679}#) - (eq? (syntax->datum #{a 26678}#) #:key)) - #{tmp 26674}#) + (lambda (#{a 25555}# #{b 25556}#) + (eq? (syntax->datum #{a 25555}#) #:key)) + #{tmp 25551}#) #f) (@apply - (lambda (#{a 26680}# #{b 26681}#) - (#{key 26465}# - #{b 26681}# - #{req 26595}# - (reverse #{ropt 26596}#) + (lambda (#{a 25557}# #{b 25558}#) + (#{key 25342}# + #{b 25558}# + #{req 25472}# + (reverse #{ropt 25473}#) '())) - #{tmp 26674}#) - (let ((#{tmp 26684}# + #{tmp 25551}#) + (let ((#{tmp 25561}# ($sc-dispatch - #{args 26594}# + #{args 25471}# '(any any)))) - (if (if #{tmp 26684}# + (if (if #{tmp 25561}# (@apply - (lambda (#{a 26688}# #{b 26689}#) - (eq? (syntax->datum #{a 26688}#) + (lambda (#{a 25565}# #{b 25566}#) + (eq? (syntax->datum #{a 25565}#) #:rest)) - #{tmp 26684}#) + #{tmp 25561}#) #f) (@apply - (lambda (#{a 26690}# #{b 26691}#) - (#{rest 26466}# - #{b 26691}# - #{req 26595}# - (reverse #{ropt 26596}#) + (lambda (#{a 25567}# #{b 25568}#) + (#{rest 25343}# + #{b 25568}# + #{req 25472}# + (reverse #{ropt 25473}#) '())) - #{tmp 26684}#) - (let ((#{tmp 26694}# (list #{args 26594}#))) + #{tmp 25561}#) + (let ((#{tmp 25571}# (list #{args 25471}#))) (if (@apply - (lambda (#{r 26696}#) - (if (symbol? #{r 26696}#) + (lambda (#{r 25573}#) + (if (symbol? #{r 25573}#) #t - (if (if (vector? #{r 26696}#) + (if (if (vector? #{r 25573}#) (if (= (vector-length - #{r 26696}#) + #{r 25573}#) 4) (eq? (vector-ref - #{r 26696}# + #{r 25573}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 26696}# 1)) + (vector-ref #{r 25573}# 1)) #f))) - #{tmp 26694}#) + #{tmp 25571}#) (@apply - (lambda (#{r 26726}#) - (#{rest 26466}# - #{r 26726}# - #{req 26595}# - (reverse #{ropt 26596}#) + (lambda (#{r 25603}#) + (#{rest 25343}# + #{r 25603}# + #{req 25472}# + (reverse #{ropt 25473}#) '())) - #{tmp 26694}#) + #{tmp 25571}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 26462}# - #{args 26594}#))))))))))))))) - (#{key 26465}# - (lambda (#{args 26745}# - #{req 26746}# - #{opt 26747}# - #{rkey 26748}#) - (let ((#{tmp 26750}# ($sc-dispatch #{args 26745}# '()))) - (if #{tmp 26750}# + #{orig-args 25339}# + #{args 25471}#))))))))))))))) + (#{key 25342}# + (lambda (#{args 25622}# + #{req 25623}# + #{opt 25624}# + #{rkey 25625}#) + (let ((#{tmp 25627}# ($sc-dispatch #{args 25622}# '()))) + (if #{tmp 25627}# (@apply (lambda () - (#{check 26467}# - #{req 26746}# - #{opt 26747}# + (#{check 25344}# + #{req 25623}# + #{opt 25624}# #f - (cons #f (reverse #{rkey 26748}#)))) - #{tmp 26750}#) - (let ((#{tmp 26756}# - ($sc-dispatch #{args 26745}# '(any . any)))) - (if (if #{tmp 26756}# + (cons #f (reverse #{rkey 25625}#)))) + #{tmp 25627}#) + (let ((#{tmp 25633}# + ($sc-dispatch #{args 25622}# '(any . any)))) + (if (if #{tmp 25633}# (@apply - (lambda (#{a 26760}# #{b 26761}#) - (if (symbol? #{a 26760}#) + (lambda (#{a 25637}# #{b 25638}#) + (if (symbol? #{a 25637}#) #t - (if (if (vector? #{a 26760}#) - (if (= (vector-length #{a 26760}#) 4) - (eq? (vector-ref #{a 26760}# 0) + (if (if (vector? #{a 25637}#) + (if (= (vector-length #{a 25637}#) 4) + (eq? (vector-ref #{a 25637}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26760}# 1)) + (symbol? (vector-ref #{a 25637}# 1)) #f))) - #{tmp 26756}#) + #{tmp 25633}#) #f) (@apply - (lambda (#{a 26788}# #{b 26789}#) - (let ((#{tmp 26790}# + (lambda (#{a 25665}# #{b 25666}#) + (let ((#{tmp 25667}# (symbol->keyword - (syntax->datum #{a 26788}#)))) - (#{key 26465}# - #{b 26789}# - #{req 26746}# - #{opt 26747}# - (cons (cons #{tmp 26790}# - (cons #{a 26788}# + (syntax->datum #{a 25665}#)))) + (#{key 25342}# + #{b 25666}# + #{req 25623}# + #{opt 25624}# + (cons (cons #{tmp 25667}# + (cons #{a 25665}# '(#(syntax-object #f ((top) @@ -6707,11 +6819,11 @@ #(ribcage #(k) #((top)) - #("i2420")) + #("i2421")) #(ribcage #(a b) #((top) (top)) - #("i2414" "i2415")) + #("i2415" "i2416")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -6719,10 +6831,10 @@ (top) (top) (top)) - #("i2403" - "i2404" + #("i2404" "i2405" - "i2406")) + "i2406" + "i2407")) #(ribcage (check rest key opt req) ((top) @@ -6730,15 +6842,15 @@ (top) (top) (top)) - ("i2293" - "i2291" - "i2289" - "i2287" - "i2285")) + ("i2294" + "i2292" + "i2290" + "i2288" + "i2286")) #(ribcage #(orig-args) #((top)) - #("i2284")) + #("i2285")) #(ribcage (lambda-var-list gen-var @@ -7155,780 +7267,780 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile))))) - #{rkey 26748}#)))) - #{tmp 26756}#) - (let ((#{tmp 26793}# + #{rkey 25625}#)))) + #{tmp 25633}#) + (let ((#{tmp 25670}# ($sc-dispatch - #{args 26745}# + #{args 25622}# '((any any) . any)))) - (if (if #{tmp 26793}# + (if (if #{tmp 25670}# (@apply - (lambda (#{a 26797}# - #{init 26798}# - #{b 26799}#) - (if (symbol? #{a 26797}#) + (lambda (#{a 25674}# + #{init 25675}# + #{b 25676}#) + (if (symbol? #{a 25674}#) #t - (if (if (vector? #{a 26797}#) - (if (= (vector-length #{a 26797}#) 4) - (eq? (vector-ref #{a 26797}# 0) + (if (if (vector? #{a 25674}#) + (if (= (vector-length #{a 25674}#) 4) + (eq? (vector-ref #{a 25674}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26797}# 1)) + (symbol? (vector-ref #{a 25674}# 1)) #f))) - #{tmp 26793}#) + #{tmp 25670}#) #f) (@apply - (lambda (#{a 26826}# #{init 26827}# #{b 26828}#) - (let ((#{tmp 26829}# + (lambda (#{a 25703}# #{init 25704}# #{b 25705}#) + (let ((#{tmp 25706}# (symbol->keyword - (syntax->datum #{a 26826}#)))) - (#{key 26465}# - #{b 26828}# - #{req 26746}# - #{opt 26747}# - (cons (list #{tmp 26829}# - #{a 26826}# - #{init 26827}#) - #{rkey 26748}#)))) - #{tmp 26793}#) - (let ((#{tmp 26832}# + (syntax->datum #{a 25703}#)))) + (#{key 25342}# + #{b 25705}# + #{req 25623}# + #{opt 25624}# + (cons (list #{tmp 25706}# + #{a 25703}# + #{init 25704}#) + #{rkey 25625}#)))) + #{tmp 25670}#) + (let ((#{tmp 25709}# ($sc-dispatch - #{args 26745}# + #{args 25622}# '((any any any) . any)))) - (if (if #{tmp 26832}# + (if (if #{tmp 25709}# (@apply - (lambda (#{a 26836}# - #{init 26837}# - #{k 26838}# - #{b 26839}#) - (if (if (symbol? #{a 26836}#) + (lambda (#{a 25713}# + #{init 25714}# + #{k 25715}# + #{b 25716}#) + (if (if (symbol? #{a 25713}#) #t - (if (if (vector? #{a 26836}#) + (if (if (vector? #{a 25713}#) (if (= (vector-length - #{a 26836}#) + #{a 25713}#) 4) (eq? (vector-ref - #{a 26836}# + #{a 25713}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{a 26836}# 1)) + (vector-ref #{a 25713}# 1)) #f)) - (keyword? (syntax->datum #{k 26838}#)) + (keyword? (syntax->datum #{k 25715}#)) #f)) - #{tmp 26832}#) + #{tmp 25709}#) #f) (@apply - (lambda (#{a 26866}# - #{init 26867}# - #{k 26868}# - #{b 26869}#) - (#{key 26465}# - #{b 26869}# - #{req 26746}# - #{opt 26747}# - (cons (list #{k 26868}# - #{a 26866}# - #{init 26867}#) - #{rkey 26748}#))) - #{tmp 26832}#) - (let ((#{tmp 26870}# - ($sc-dispatch #{args 26745}# '(any)))) - (if (if #{tmp 26870}# + (lambda (#{a 25743}# + #{init 25744}# + #{k 25745}# + #{b 25746}#) + (#{key 25342}# + #{b 25746}# + #{req 25623}# + #{opt 25624}# + (cons (list #{k 25745}# + #{a 25743}# + #{init 25744}#) + #{rkey 25625}#))) + #{tmp 25709}#) + (let ((#{tmp 25747}# + ($sc-dispatch #{args 25622}# '(any)))) + (if (if #{tmp 25747}# (@apply - (lambda (#{aok 26874}#) - (eq? (syntax->datum #{aok 26874}#) + (lambda (#{aok 25751}#) + (eq? (syntax->datum #{aok 25751}#) #:allow-other-keys)) - #{tmp 26870}#) + #{tmp 25747}#) #f) (@apply - (lambda (#{aok 26875}#) - (#{check 26467}# - #{req 26746}# - #{opt 26747}# + (lambda (#{aok 25752}#) + (#{check 25344}# + #{req 25623}# + #{opt 25624}# #f - (cons #t (reverse #{rkey 26748}#)))) - #{tmp 26870}#) - (let ((#{tmp 26878}# + (cons #t (reverse #{rkey 25625}#)))) + #{tmp 25747}#) + (let ((#{tmp 25755}# ($sc-dispatch - #{args 26745}# + #{args 25622}# '(any any any)))) - (if (if #{tmp 26878}# + (if (if #{tmp 25755}# (@apply - (lambda (#{aok 26882}# - #{a 26883}# - #{b 26884}#) + (lambda (#{aok 25759}# + #{a 25760}# + #{b 25761}#) (if (eq? (syntax->datum - #{aok 26882}#) + #{aok 25759}#) #:allow-other-keys) (eq? (syntax->datum - #{a 26883}#) + #{a 25760}#) #:rest) #f)) - #{tmp 26878}#) + #{tmp 25755}#) #f) (@apply - (lambda (#{aok 26885}# - #{a 26886}# - #{b 26887}#) - (#{rest 26466}# - #{b 26887}# - #{req 26746}# - #{opt 26747}# + (lambda (#{aok 25762}# + #{a 25763}# + #{b 25764}#) + (#{rest 25343}# + #{b 25764}# + #{req 25623}# + #{opt 25624}# (cons #t - (reverse #{rkey 26748}#)))) - #{tmp 26878}#) - (let ((#{tmp 26890}# + (reverse #{rkey 25625}#)))) + #{tmp 25755}#) + (let ((#{tmp 25767}# ($sc-dispatch - #{args 26745}# + #{args 25622}# '(any . any)))) - (if (if #{tmp 26890}# + (if (if #{tmp 25767}# (@apply - (lambda (#{aok 26894}# - #{r 26895}#) + (lambda (#{aok 25771}# + #{r 25772}#) (if (eq? (syntax->datum - #{aok 26894}#) + #{aok 25771}#) #:allow-other-keys) - (if (symbol? #{r 26895}#) + (if (symbol? #{r 25772}#) #t (if (if (vector? - #{r 26895}#) + #{r 25772}#) (if (= (vector-length - #{r 26895}#) + #{r 25772}#) 4) (eq? (vector-ref - #{r 26895}# + #{r 25772}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 26895}# + #{r 25772}# 1)) #f)) #f)) - #{tmp 26890}#) + #{tmp 25767}#) #f) (@apply - (lambda (#{aok 26922}# #{r 26923}#) - (#{rest 26466}# - #{r 26923}# - #{req 26746}# - #{opt 26747}# + (lambda (#{aok 25799}# #{r 25800}#) + (#{rest 25343}# + #{r 25800}# + #{req 25623}# + #{opt 25624}# (cons #t (reverse - #{rkey 26748}#)))) - #{tmp 26890}#) - (let ((#{tmp 26926}# + #{rkey 25625}#)))) + #{tmp 25767}#) + (let ((#{tmp 25803}# ($sc-dispatch - #{args 26745}# + #{args 25622}# '(any any)))) - (if (if #{tmp 26926}# + (if (if #{tmp 25803}# (@apply - (lambda (#{a 26930}# - #{b 26931}#) + (lambda (#{a 25807}# + #{b 25808}#) (eq? (syntax->datum - #{a 26930}#) + #{a 25807}#) #:rest)) - #{tmp 26926}#) + #{tmp 25803}#) #f) (@apply - (lambda (#{a 26932}# - #{b 26933}#) - (#{rest 26466}# - #{b 26933}# - #{req 26746}# - #{opt 26747}# + (lambda (#{a 25809}# + #{b 25810}#) + (#{rest 25343}# + #{b 25810}# + #{req 25623}# + #{opt 25624}# (cons #f (reverse - #{rkey 26748}#)))) - #{tmp 26926}#) - (let ((#{tmp 26936}# - (list #{args 26745}#))) + #{rkey 25625}#)))) + #{tmp 25803}#) + (let ((#{tmp 25813}# + (list #{args 25622}#))) (if (@apply - (lambda (#{r 26938}#) + (lambda (#{r 25815}#) (if (symbol? - #{r 26938}#) + #{r 25815}#) #t (if (if (vector? - #{r 26938}#) + #{r 25815}#) (if (= (vector-length - #{r 26938}#) + #{r 25815}#) 4) (eq? (vector-ref - #{r 26938}# + #{r 25815}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 26938}# + #{r 25815}# 1)) #f))) - #{tmp 26936}#) + #{tmp 25813}#) (@apply - (lambda (#{r 26968}#) - (#{rest 26466}# - #{r 26968}# - #{req 26746}# - #{opt 26747}# + (lambda (#{r 25845}#) + (#{rest 25343}# + #{r 25845}# + #{req 25623}# + #{opt 25624}# (cons #f (reverse - #{rkey 26748}#)))) - #{tmp 26936}#) + #{rkey 25625}#)))) + #{tmp 25813}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 26462}# - #{args 26745}#))))))))))))))))))))) - (#{rest 26466}# - (lambda (#{args 26996}# - #{req 26997}# - #{opt 26998}# - #{kw 26999}#) - (let ((#{tmp 27001}# (list #{args 26996}#))) + #{orig-args 25339}# + #{args 25622}#))))))))))))))))))))) + (#{rest 25343}# + (lambda (#{args 25873}# + #{req 25874}# + #{opt 25875}# + #{kw 25876}#) + (let ((#{tmp 25878}# (list #{args 25873}#))) (if (@apply - (lambda (#{r 27003}#) - (if (symbol? #{r 27003}#) + (lambda (#{r 25880}#) + (if (symbol? #{r 25880}#) #t - (if (if (vector? #{r 27003}#) - (if (= (vector-length #{r 27003}#) 4) - (eq? (vector-ref #{r 27003}# 0) + (if (if (vector? #{r 25880}#) + (if (= (vector-length #{r 25880}#) 4) + (eq? (vector-ref #{r 25880}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 27003}# 1)) + (symbol? (vector-ref #{r 25880}# 1)) #f))) - #{tmp 27001}#) + #{tmp 25878}#) (@apply - (lambda (#{r 27033}#) - (#{check 26467}# - #{req 26997}# - #{opt 26998}# - #{r 27033}# - #{kw 26999}#)) - #{tmp 27001}#) + (lambda (#{r 25910}#) + (#{check 25344}# + #{req 25874}# + #{opt 25875}# + #{r 25910}# + #{kw 25876}#)) + #{tmp 25878}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 26462}# - #{args 26996}#))))) - (#{check 26467}# - (lambda (#{req 27037}# - #{opt 27038}# - #{rest 27039}# - #{kw 27040}#) - (if (#{distinct-bound-ids? 4324}# + #{orig-args 25339}# + #{args 25873}#))))) + (#{check 25344}# + (lambda (#{req 25914}# + #{opt 25915}# + #{rest 25916}# + #{kw 25917}#) + (if (#{distinct-bound-ids? 4325}# (append - #{req 27037}# - (map car #{opt 27038}#) - (if #{rest 27039}# (list #{rest 27039}#) '()) - (if (pair? #{kw 27040}#) - (map cadr (cdr #{kw 27040}#)) + #{req 25914}# + (map car #{opt 25915}#) + (if #{rest 25916}# (list #{rest 25916}#) '()) + (if (pair? #{kw 25917}#) + (map cadr (cdr #{kw 25917}#)) '()))) (values - #{req 27037}# - #{opt 27038}# - #{rest 27039}# - #{kw 27040}#) + #{req 25914}# + #{opt 25915}# + #{rest 25916}# + #{kw 25917}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 26462}#))))) - (#{req 26463}# #{orig-args 26462}# '())))) - (#{expand-lambda-case 4345}# - (lambda (#{e 27160}# - #{r 27161}# - #{w 27162}# - #{s 27163}# - #{mod 27164}# - #{get-formals 27165}# - #{clauses 27166}#) + #{orig-args 25339}#))))) + (#{req 25340}# #{orig-args 25339}# '())))) + (#{expand-lambda-case 4346}# + (lambda (#{e 26033}# + #{r 26034}# + #{w 26035}# + #{s 26036}# + #{mod 26037}# + #{get-formals 26038}# + #{clauses 26039}#) (letrec* - ((#{parse-req 27167}# - (lambda (#{req 27301}# - #{opt 27302}# - #{rest 27303}# - #{kw 27304}# - #{body 27305}#) - (let ((#{vars 27306}# - (map #{gen-var 4347}# #{req 27301}#)) - (#{labels 27307}# - (#{gen-labels 4304}# #{req 27301}#))) - (let ((#{r* 27308}# - (#{extend-var-env 4296}# - #{labels 27307}# - #{vars 27306}# - #{r 27161}#)) - (#{w* 27309}# - (#{make-binding-wrap 4315}# - #{req 27301}# - #{labels 27307}# - #{w 27162}#))) - (#{parse-opt 27168}# - (map syntax->datum #{req 27301}#) - #{opt 27302}# - #{rest 27303}# - #{kw 27304}# - #{body 27305}# - (reverse #{vars 27306}#) - #{r* 27308}# - #{w* 27309}# + ((#{parse-req 26040}# + (lambda (#{req 26173}# + #{opt 26174}# + #{rest 26175}# + #{kw 26176}# + #{body 26177}#) + (let ((#{vars 26178}# + (map #{gen-var 4348}# #{req 26173}#)) + (#{labels 26179}# + (#{gen-labels 4305}# #{req 26173}#))) + (let ((#{r* 26180}# + (#{extend-var-env 4297}# + #{labels 26179}# + #{vars 26178}# + #{r 26034}#)) + (#{w* 26181}# + (#{make-binding-wrap 4316}# + #{req 26173}# + #{labels 26179}# + #{w 26035}#))) + (#{parse-opt 26041}# + (map syntax->datum #{req 26173}#) + #{opt 26174}# + #{rest 26175}# + #{kw 26176}# + #{body 26177}# + (reverse #{vars 26178}#) + #{r* 26180}# + #{w* 26181}# '() '()))))) - (#{parse-opt 27168}# - (lambda (#{req 27525}# - #{opt 27526}# - #{rest 27527}# - #{kw 27528}# - #{body 27529}# - #{vars 27530}# - #{r* 27531}# - #{w* 27532}# - #{out 27533}# - #{inits 27534}#) - (if (pair? #{opt 27526}#) - (let ((#{tmp 27535}# (car #{opt 27526}#))) - (let ((#{tmp 27536}# - ($sc-dispatch #{tmp 27535}# '(any any)))) - (if #{tmp 27536}# + (#{parse-opt 26041}# + (lambda (#{req 26395}# + #{opt 26396}# + #{rest 26397}# + #{kw 26398}# + #{body 26399}# + #{vars 26400}# + #{r* 26401}# + #{w* 26402}# + #{out 26403}# + #{inits 26404}#) + (if (pair? #{opt 26396}#) + (let ((#{tmp 26405}# (car #{opt 26396}#))) + (let ((#{tmp 26406}# + ($sc-dispatch #{tmp 26405}# '(any any)))) + (if #{tmp 26406}# (@apply - (lambda (#{id 27538}# #{i 27539}#) - (let ((#{v 27540}# - (let ((#{id 27548}# - (if (if (vector? #{id 27538}#) + (lambda (#{id 26408}# #{i 26409}#) + (let ((#{v 26410}# + (let ((#{id 26418}# + (if (if (vector? #{id 26408}#) (if (= (vector-length - #{id 27538}#) + #{id 26408}#) 4) (eq? (vector-ref - #{id 27538}# + #{id 26408}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 27538}# 1) - #{id 27538}#))) + (vector-ref #{id 26408}# 1) + #{id 26408}#))) (gensym (string-append - (symbol->string #{id 27548}#) + (symbol->string #{id 26418}#) " "))))) - (let ((#{l 27541}# - (#{gen-labels 4304}# (list #{v 27540}#)))) - (let ((#{r** 27542}# - (#{extend-var-env 4296}# - #{l 27541}# - (list #{v 27540}#) - #{r* 27531}#))) - (let ((#{w** 27543}# - (#{make-binding-wrap 4315}# - (list #{id 27538}#) - #{l 27541}# - #{w* 27532}#))) - (#{parse-opt 27168}# - #{req 27525}# - (cdr #{opt 27526}#) - #{rest 27527}# - #{kw 27528}# - #{body 27529}# - (cons #{v 27540}# #{vars 27530}#) - #{r** 27542}# - #{w** 27543}# - (cons (syntax->datum #{id 27538}#) - #{out 27533}#) - (cons (#{expand 4333}# - #{i 27539}# - #{r* 27531}# - #{w* 27532}# - #{mod 27164}#) - #{inits 27534}#))))))) - #{tmp 27536}#) + (let ((#{l 26411}# + (#{gen-labels 4305}# (list #{v 26410}#)))) + (let ((#{r** 26412}# + (#{extend-var-env 4297}# + #{l 26411}# + (list #{v 26410}#) + #{r* 26401}#))) + (let ((#{w** 26413}# + (#{make-binding-wrap 4316}# + (list #{id 26408}#) + #{l 26411}# + #{w* 26402}#))) + (#{parse-opt 26041}# + #{req 26395}# + (cdr #{opt 26396}#) + #{rest 26397}# + #{kw 26398}# + #{body 26399}# + (cons #{v 26410}# #{vars 26400}#) + #{r** 26412}# + #{w** 26413}# + (cons (syntax->datum #{id 26408}#) + #{out 26403}#) + (cons (#{expand 4334}# + #{i 26409}# + #{r* 26401}# + #{w* 26402}# + #{mod 26037}#) + #{inits 26404}#))))))) + #{tmp 26406}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27535}#)))) - (if #{rest 27527}# - (let ((#{v 27820}# - (let ((#{id 27830}# - (if (if (vector? #{rest 27527}#) - (if (= (vector-length #{rest 27527}#) + #{tmp 26405}#)))) + (if #{rest 26397}# + (let ((#{v 26683}# + (let ((#{id 26693}# + (if (if (vector? #{rest 26397}#) + (if (= (vector-length #{rest 26397}#) 4) - (eq? (vector-ref #{rest 27527}# 0) + (eq? (vector-ref #{rest 26397}# 0) 'syntax-object) #f) #f) - (vector-ref #{rest 27527}# 1) - #{rest 27527}#))) + (vector-ref #{rest 26397}# 1) + #{rest 26397}#))) (gensym (string-append - (symbol->string #{id 27830}#) + (symbol->string #{id 26693}#) " "))))) - (let ((#{l 27821}# - (#{gen-labels 4304}# (list #{v 27820}#)))) - (let ((#{r* 27822}# - (#{extend-var-env 4296}# - #{l 27821}# - (list #{v 27820}#) - #{r* 27531}#))) - (let ((#{w* 27823}# - (#{make-binding-wrap 4315}# - (list #{rest 27527}#) - #{l 27821}# - #{w* 27532}#))) - (#{parse-kw 27169}# - #{req 27525}# - (if (pair? #{out 27533}#) - (reverse #{out 27533}#) + (let ((#{l 26684}# + (#{gen-labels 4305}# (list #{v 26683}#)))) + (let ((#{r* 26685}# + (#{extend-var-env 4297}# + #{l 26684}# + (list #{v 26683}#) + #{r* 26401}#))) + (let ((#{w* 26686}# + (#{make-binding-wrap 4316}# + (list #{rest 26397}#) + #{l 26684}# + #{w* 26402}#))) + (#{parse-kw 26042}# + #{req 26395}# + (if (pair? #{out 26403}#) + (reverse #{out 26403}#) #f) - (syntax->datum #{rest 27527}#) - (if (pair? #{kw 27528}#) - (cdr #{kw 27528}#) - #{kw 27528}#) - #{body 27529}# - (cons #{v 27820}# #{vars 27530}#) - #{r* 27822}# - #{w* 27823}# - (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f) + (syntax->datum #{rest 26397}#) + (if (pair? #{kw 26398}#) + (cdr #{kw 26398}#) + #{kw 26398}#) + #{body 26399}# + (cons #{v 26683}# #{vars 26400}#) + #{r* 26685}# + #{w* 26686}# + (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f) '() - #{inits 27534}#))))) - (#{parse-kw 27169}# - #{req 27525}# - (if (pair? #{out 27533}#) - (reverse #{out 27533}#) + #{inits 26404}#))))) + (#{parse-kw 26042}# + #{req 26395}# + (if (pair? #{out 26403}#) + (reverse #{out 26403}#) #f) #f - (if (pair? #{kw 27528}#) - (cdr #{kw 27528}#) - #{kw 27528}#) - #{body 27529}# - #{vars 27530}# - #{r* 27531}# - #{w* 27532}# - (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f) + (if (pair? #{kw 26398}#) + (cdr #{kw 26398}#) + #{kw 26398}#) + #{body 26399}# + #{vars 26400}# + #{r* 26401}# + #{w* 26402}# + (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f) '() - #{inits 27534}#))))) - (#{parse-kw 27169}# - (lambda (#{req 28030}# - #{opt 28031}# - #{rest 28032}# - #{kw 28033}# - #{body 28034}# - #{vars 28035}# - #{r* 28036}# - #{w* 28037}# - #{aok 28038}# - #{out 28039}# - #{inits 28040}#) - (if (pair? #{kw 28033}#) - (let ((#{tmp 28041}# (car #{kw 28033}#))) - (let ((#{tmp 28042}# - ($sc-dispatch #{tmp 28041}# '(any any any)))) - (if #{tmp 28042}# + #{inits 26404}#))))) + (#{parse-kw 26042}# + (lambda (#{req 26891}# + #{opt 26892}# + #{rest 26893}# + #{kw 26894}# + #{body 26895}# + #{vars 26896}# + #{r* 26897}# + #{w* 26898}# + #{aok 26899}# + #{out 26900}# + #{inits 26901}#) + (if (pair? #{kw 26894}#) + (let ((#{tmp 26902}# (car #{kw 26894}#))) + (let ((#{tmp 26903}# + ($sc-dispatch #{tmp 26902}# '(any any any)))) + (if #{tmp 26903}# (@apply - (lambda (#{k 28044}# #{id 28045}# #{i 28046}#) - (let ((#{v 28047}# - (let ((#{id 28055}# - (if (if (vector? #{id 28045}#) + (lambda (#{k 26905}# #{id 26906}# #{i 26907}#) + (let ((#{v 26908}# + (let ((#{id 26916}# + (if (if (vector? #{id 26906}#) (if (= (vector-length - #{id 28045}#) + #{id 26906}#) 4) (eq? (vector-ref - #{id 28045}# + #{id 26906}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 28045}# 1) - #{id 28045}#))) + (vector-ref #{id 26906}# 1) + #{id 26906}#))) (gensym (string-append - (symbol->string #{id 28055}#) + (symbol->string #{id 26916}#) " "))))) - (let ((#{l 28048}# - (#{gen-labels 4304}# (list #{v 28047}#)))) - (let ((#{r** 28049}# - (#{extend-var-env 4296}# - #{l 28048}# - (list #{v 28047}#) - #{r* 28036}#))) - (let ((#{w** 28050}# - (#{make-binding-wrap 4315}# - (list #{id 28045}#) - #{l 28048}# - #{w* 28037}#))) - (#{parse-kw 27169}# - #{req 28030}# - #{opt 28031}# - #{rest 28032}# - (cdr #{kw 28033}#) - #{body 28034}# - (cons #{v 28047}# #{vars 28035}#) - #{r** 28049}# - #{w** 28050}# - #{aok 28038}# - (cons (list (syntax->datum #{k 28044}#) - (syntax->datum #{id 28045}#) - #{v 28047}#) - #{out 28039}#) - (cons (#{expand 4333}# - #{i 28046}# - #{r* 28036}# - #{w* 28037}# - #{mod 27164}#) - #{inits 28040}#))))))) - #{tmp 28042}#) + (let ((#{l 26909}# + (#{gen-labels 4305}# (list #{v 26908}#)))) + (let ((#{r** 26910}# + (#{extend-var-env 4297}# + #{l 26909}# + (list #{v 26908}#) + #{r* 26897}#))) + (let ((#{w** 26911}# + (#{make-binding-wrap 4316}# + (list #{id 26906}#) + #{l 26909}# + #{w* 26898}#))) + (#{parse-kw 26042}# + #{req 26891}# + #{opt 26892}# + #{rest 26893}# + (cdr #{kw 26894}#) + #{body 26895}# + (cons #{v 26908}# #{vars 26896}#) + #{r** 26910}# + #{w** 26911}# + #{aok 26899}# + (cons (list (syntax->datum #{k 26905}#) + (syntax->datum #{id 26906}#) + #{v 26908}#) + #{out 26900}#) + (cons (#{expand 4334}# + #{i 26907}# + #{r* 26897}# + #{w* 26898}# + #{mod 26037}#) + #{inits 26901}#))))))) + #{tmp 26903}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28041}#)))) - (#{parse-body 27170}# - #{req 28030}# - #{opt 28031}# - #{rest 28032}# - (if (if #{aok 28038}# - #{aok 28038}# - (pair? #{out 28039}#)) - (cons #{aok 28038}# (reverse #{out 28039}#)) + #{tmp 26902}#)))) + (#{parse-body 26043}# + #{req 26891}# + #{opt 26892}# + #{rest 26893}# + (if (if #{aok 26899}# + #{aok 26899}# + (pair? #{out 26900}#)) + (cons #{aok 26899}# (reverse #{out 26900}#)) #f) - #{body 28034}# - (reverse #{vars 28035}#) - #{r* 28036}# - #{w* 28037}# - (reverse #{inits 28040}#) + #{body 26895}# + (reverse #{vars 26896}#) + #{r* 26897}# + #{w* 26898}# + (reverse #{inits 26901}#) '())))) - (#{parse-body 27170}# - (lambda (#{req 28336}# - #{opt 28337}# - #{rest 28338}# - #{kw 28339}# - #{body 28340}# - #{vars 28341}# - #{r* 28342}# - #{w* 28343}# - #{inits 28344}# - #{meta 28345}#) - (let ((#{tmp 28347}# + (#{parse-body 26043}# + (lambda (#{req 27190}# + #{opt 27191}# + #{rest 27192}# + #{kw 27193}# + #{body 27194}# + #{vars 27195}# + #{r* 27196}# + #{w* 27197}# + #{inits 27198}# + #{meta 27199}#) + (let ((#{tmp 27201}# ($sc-dispatch - #{body 28340}# + #{body 27194}# '(any any . each-any)))) - (if (if #{tmp 28347}# + (if (if #{tmp 27201}# (@apply - (lambda (#{docstring 28351}# #{e1 28352}# #{e2 28353}#) - (string? (syntax->datum #{docstring 28351}#))) - #{tmp 28347}#) + (lambda (#{docstring 27205}# #{e1 27206}# #{e2 27207}#) + (string? (syntax->datum #{docstring 27205}#))) + #{tmp 27201}#) #f) (@apply - (lambda (#{docstring 28354}# #{e1 28355}# #{e2 28356}#) - (#{parse-body 27170}# - #{req 28336}# - #{opt 28337}# - #{rest 28338}# - #{kw 28339}# - (cons #{e1 28355}# #{e2 28356}#) - #{vars 28341}# - #{r* 28342}# - #{w* 28343}# - #{inits 28344}# + (lambda (#{docstring 27208}# #{e1 27209}# #{e2 27210}#) + (#{parse-body 26043}# + #{req 27190}# + #{opt 27191}# + #{rest 27192}# + #{kw 27193}# + (cons #{e1 27209}# #{e2 27210}#) + #{vars 27195}# + #{r* 27196}# + #{w* 27197}# + #{inits 27198}# (append - #{meta 28345}# + #{meta 27199}# (list (cons 'documentation - (syntax->datum #{docstring 28354}#)))))) - #{tmp 28347}#) - (let ((#{tmp 28357}# + (syntax->datum #{docstring 27208}#)))))) + #{tmp 27201}#) + (let ((#{tmp 27211}# ($sc-dispatch - #{body 28340}# + #{body 27194}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 28357}# + (if #{tmp 27211}# (@apply - (lambda (#{k 28361}# - #{v 28362}# - #{e1 28363}# - #{e2 28364}#) - (#{parse-body 27170}# - #{req 28336}# - #{opt 28337}# - #{rest 28338}# - #{kw 28339}# - (cons #{e1 28363}# #{e2 28364}#) - #{vars 28341}# - #{r* 28342}# - #{w* 28343}# - #{inits 28344}# + (lambda (#{k 27215}# + #{v 27216}# + #{e1 27217}# + #{e2 27218}#) + (#{parse-body 26043}# + #{req 27190}# + #{opt 27191}# + #{rest 27192}# + #{kw 27193}# + (cons #{e1 27217}# #{e2 27218}#) + #{vars 27195}# + #{r* 27196}# + #{w* 27197}# + #{inits 27198}# (append - #{meta 28345}# + #{meta 27199}# (syntax->datum - (map cons #{k 28361}# #{v 28362}#))))) - #{tmp 28357}#) - (let ((#{tmp 28365}# - ($sc-dispatch #{body 28340}# '(any . each-any)))) - (if #{tmp 28365}# + (map cons #{k 27215}# #{v 27216}#))))) + #{tmp 27211}#) + (let ((#{tmp 27219}# + ($sc-dispatch #{body 27194}# '(any . each-any)))) + (if #{tmp 27219}# (@apply - (lambda (#{e1 28369}# #{e2 28370}#) + (lambda (#{e1 27223}# #{e2 27224}#) (values - #{meta 28345}# - #{req 28336}# - #{opt 28337}# - #{rest 28338}# - #{kw 28339}# - #{inits 28344}# - #{vars 28341}# - (#{expand-body 4337}# - (cons #{e1 28369}# #{e2 28370}#) - (#{wrap 4326}# + #{meta 27199}# + #{req 27190}# + #{opt 27191}# + #{rest 27192}# + #{kw 27193}# + #{inits 27198}# + #{vars 27195}# + (#{expand-body 4338}# + (cons #{e1 27223}# #{e2 27224}#) + (#{wrap 4327}# (begin - (if (if (pair? #{e 27160}#) - #{s 27163}# + (if (if (pair? #{e 26033}#) + #{s 26036}# #f) (set-source-properties! - #{e 27160}# - #{s 27163}#)) - #{e 27160}#) - #{w 27162}# - #{mod 27164}#) - #{r* 28342}# - #{w* 28343}# - #{mod 27164}#))) - #{tmp 28365}#) + #{e 26033}# + #{s 26036}#)) + #{e 26033}#) + #{w 26035}# + #{mod 26037}#) + #{r* 27196}# + #{w* 27197}# + #{mod 26037}#))) + #{tmp 27219}#) (syntax-violation #f "source expression failed to match any pattern" - #{body 28340}#)))))))))) - (let ((#{tmp 27172}# - ($sc-dispatch #{clauses 27166}# '()))) - (if #{tmp 27172}# + #{body 27194}#)))))))))) + (let ((#{tmp 26045}# + ($sc-dispatch #{clauses 26039}# '()))) + (if #{tmp 26045}# (@apply (lambda () (values '() #f)) - #{tmp 27172}#) - (let ((#{tmp 27177}# + #{tmp 26045}#) + (let ((#{tmp 26049}# ($sc-dispatch - #{clauses 27166}# + #{clauses 26039}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 27177}# + (if #{tmp 26049}# (@apply - (lambda (#{args 27181}# - #{e1 27182}# - #{e2 27183}# - #{args* 27184}# - #{e1* 27185}# - #{e2* 27186}#) + (lambda (#{args 26053}# + #{e1 26054}# + #{e2 26055}# + #{args* 26056}# + #{e1* 26057}# + #{e2* 26058}#) (call-with-values (lambda () - (#{get-formals 27165}# #{args 27181}#)) - (lambda (#{req 27187}# - #{opt 27188}# - #{rest 27189}# - #{kw 27190}#) + (#{get-formals 26038}# #{args 26053}#)) + (lambda (#{req 26059}# + #{opt 26060}# + #{rest 26061}# + #{kw 26062}#) (call-with-values (lambda () - (#{parse-req 27167}# - #{req 27187}# - #{opt 27188}# - #{rest 27189}# - #{kw 27190}# - (cons #{e1 27182}# #{e2 27183}#))) - (lambda (#{meta 27257}# - #{req 27258}# - #{opt 27259}# - #{rest 27260}# - #{kw 27261}# - #{inits 27262}# - #{vars 27263}# - #{body 27264}#) + (#{parse-req 26040}# + #{req 26059}# + #{opt 26060}# + #{rest 26061}# + #{kw 26062}# + (cons #{e1 26054}# #{e2 26055}#))) + (lambda (#{meta 26129}# + #{req 26130}# + #{opt 26131}# + #{rest 26132}# + #{kw 26133}# + #{inits 26134}# + #{vars 26135}# + #{body 26136}#) (call-with-values (lambda () - (#{expand-lambda-case 4345}# - #{e 27160}# - #{r 27161}# - #{w 27162}# - #{s 27163}# - #{mod 27164}# - #{get-formals 27165}# - (map (lambda (#{tmp 2763 27265}# - #{tmp 2762 27266}# - #{tmp 2761 27267}#) - (cons #{tmp 2761 27267}# - (cons #{tmp 2762 27266}# - #{tmp 2763 27265}#))) - #{e2* 27186}# - #{e1* 27185}# - #{args* 27184}#))) - (lambda (#{meta* 27268}# #{else* 27269}#) + (#{expand-lambda-case 4346}# + #{e 26033}# + #{r 26034}# + #{w 26035}# + #{s 26036}# + #{mod 26037}# + #{get-formals 26038}# + (map (lambda (#{tmp 2764 26137}# + #{tmp 2763 26138}# + #{tmp 2762 26139}#) + (cons #{tmp 2762 26139}# + (cons #{tmp 2763 26138}# + #{tmp 2764 26137}#))) + #{e2* 26058}# + #{e1* 26057}# + #{args* 26056}#))) + (lambda (#{meta* 26140}# #{else* 26141}#) (values - (append #{meta 27257}# #{meta* 27268}#) + (append #{meta 26129}# #{meta* 26140}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 27163}# - #{req 27258}# - #{opt 27259}# - #{rest 27260}# - #{kw 27261}# - #{inits 27262}# - #{vars 27263}# - #{body 27264}# - #{else* 27269}#))))))))) - #{tmp 27177}#) + #{s 26036}# + #{req 26130}# + #{opt 26131}# + #{rest 26132}# + #{kw 26133}# + #{inits 26134}# + #{vars 26135}# + #{body 26136}# + #{else* 26141}#))))))))) + #{tmp 26049}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses 27166}#)))))))) - (#{strip 4346}# - (lambda (#{x 28407}# #{w 28408}#) - (if (memq 'top (car #{w 28408}#)) - #{x 28407}# + #{clauses 26039}#)))))))) + (#{strip 4347}# + (lambda (#{x 27261}# #{w 27262}#) + (if (memq 'top (car #{w 27262}#)) + #{x 27261}# (letrec* - ((#{f 28409}# - (lambda (#{x 28412}#) - (if (if (vector? #{x 28412}#) - (if (= (vector-length #{x 28412}#) 4) - (eq? (vector-ref #{x 28412}# 0) 'syntax-object) + ((#{f 27263}# + (lambda (#{x 27266}#) + (if (if (vector? #{x 27266}#) + (if (= (vector-length #{x 27266}#) 4) + (eq? (vector-ref #{x 27266}# 0) 'syntax-object) #f) #f) - (#{strip 4346}# - (vector-ref #{x 28412}# 1) - (vector-ref #{x 28412}# 2)) - (if (pair? #{x 28412}#) - (let ((#{a 28431}# (#{f 28409}# (car #{x 28412}#))) - (#{d 28432}# (#{f 28409}# (cdr #{x 28412}#)))) - (if (if (eq? #{a 28431}# (car #{x 28412}#)) - (eq? #{d 28432}# (cdr #{x 28412}#)) + (#{strip 4347}# + (vector-ref #{x 27266}# 1) + (vector-ref #{x 27266}# 2)) + (if (pair? #{x 27266}#) + (let ((#{a 27285}# (#{f 27263}# (car #{x 27266}#))) + (#{d 27286}# (#{f 27263}# (cdr #{x 27266}#)))) + (if (if (eq? #{a 27285}# (car #{x 27266}#)) + (eq? #{d 27286}# (cdr #{x 27266}#)) #f) - #{x 28412}# - (cons #{a 28431}# #{d 28432}#))) - (if (vector? #{x 28412}#) - (let ((#{old 28435}# (vector->list #{x 28412}#))) - (let ((#{new 28436}# (map #{f 28409}# #{old 28435}#))) + #{x 27266}# + (cons #{a 27285}# #{d 27286}#))) + (if (vector? #{x 27266}#) + (let ((#{old 27289}# (vector->list #{x 27266}#))) + (let ((#{new 27290}# (map #{f 27263}# #{old 27289}#))) (letrec* - ((#{lp 28437}# - (lambda (#{l1 28513}# #{l2 28514}#) - (if (null? #{l1 28513}#) - #{x 28412}# - (if (eq? (car #{l1 28513}#) - (car #{l2 28514}#)) - (#{lp 28437}# - (cdr #{l1 28513}#) - (cdr #{l2 28514}#)) - (list->vector #{new 28436}#)))))) - (#{lp 28437}# #{old 28435}# #{new 28436}#)))) - #{x 28412}#)))))) - (#{f 28409}# #{x 28407}#))))) - (#{gen-var 4347}# - (lambda (#{id 27313}#) - (let ((#{id 27314}# - (if (if (vector? #{id 27313}#) - (if (= (vector-length #{id 27313}#) 4) - (eq? (vector-ref #{id 27313}# 0) 'syntax-object) + ((#{lp 27291}# + (lambda (#{l1 27367}# #{l2 27368}#) + (if (null? #{l1 27367}#) + #{x 27266}# + (if (eq? (car #{l1 27367}#) + (car #{l2 27368}#)) + (#{lp 27291}# + (cdr #{l1 27367}#) + (cdr #{l2 27368}#)) + (list->vector #{new 27290}#)))))) + (#{lp 27291}# #{old 27289}# #{new 27290}#)))) + #{x 27266}#)))))) + (#{f 27263}# #{x 27261}#))))) + (#{gen-var 4348}# + (lambda (#{id 26185}#) + (let ((#{id 26186}# + (if (if (vector? #{id 26185}#) + (if (= (vector-length #{id 26185}#) 4) + (eq? (vector-ref #{id 26185}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 27313}# 1) - #{id 27313}#))) + (vector-ref #{id 26185}# 1) + #{id 26185}#))) (gensym - (string-append (symbol->string #{id 27314}#) " ")))))) + (string-append (symbol->string #{id 26186}#) " ")))))) (begin (module-define! (current-module) @@ -7944,1858 +8056,1903 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend 4299}# + (#{global-extend 4300}# 'core 'fluid-let-syntax - (lambda (#{e 4468}# - #{r 4469}# - #{w 4470}# - #{s 4471}# - #{mod 4472}#) - (let ((#{tmp 4474}# + (lambda (#{e 4469}# + #{r 4470}# + #{w 4471}# + #{s 4472}# + #{mod 4473}#) + (let ((#{tmp 4475}# ($sc-dispatch - #{e 4468}# + #{e 4469}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 4474}# + (if (if #{tmp 4475}# (@apply - (lambda (#{var 4478}# - #{val 4479}# - #{e1 4480}# - #{e2 4481}#) - (#{valid-bound-ids? 4323}# #{var 4478}#)) - #{tmp 4474}#) + (lambda (#{var 4479}# + #{val 4480}# + #{e1 4481}# + #{e2 4482}#) + (#{valid-bound-ids? 4324}# #{var 4479}#)) + #{tmp 4475}#) #f) (@apply - (lambda (#{var 4559}# - #{val 4560}# - #{e1 4561}# - #{e2 4562}#) - (let ((#{names 4563}# - (map (lambda (#{x 4753}#) - (#{id-var-name 4320}# #{x 4753}# #{w 4470}#)) - #{var 4559}#))) + (lambda (#{var 4560}# + #{val 4561}# + #{e1 4562}# + #{e2 4563}#) + (let ((#{names 4564}# + (map (lambda (#{x 4754}#) + (#{id-var-name 4321}# #{x 4754}# #{w 4471}#)) + #{var 4560}#))) (begin (for-each - (lambda (#{id 4564}# #{n 4565}#) - (let ((#{atom-key 4566}# - (car (let ((#{t 4690}# - (assq #{n 4565}# #{r 4469}#))) - (if #{t 4690}# - (cdr #{t 4690}#) - (if (symbol? #{n 4565}#) - (let ((#{t 4695}# + (lambda (#{id 4565}# #{n 4566}#) + (let ((#{atom-key 4567}# + (car (let ((#{t 4691}# + (assq #{n 4566}# #{r 4470}#))) + (if #{t 4691}# + (cdr #{t 4691}#) + (if (symbol? #{n 4566}#) + (let ((#{t 4696}# (begin - (if (if (not #{mod 4472}#) + (if (if (not #{mod 4473}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 4565}#)) - (let ((#{v 4732}# + #{n 4566}#)) + (let ((#{v 4733}# (module-variable - (if #{mod 4472}# + (if #{mod 4473}# (resolve-module - (cdr #{mod 4472}#)) + (cdr #{mod 4473}#)) (current-module)) - #{n 4565}#))) - (if #{v 4732}# + #{n 4566}#))) + (if #{v 4733}# (if (variable-bound? - #{v 4732}#) - (let ((#{val 4741}# + #{v 4733}#) + (let ((#{val 4742}# (variable-ref - #{v 4732}#))) + #{v 4733}#))) (if (macro? - #{val 4741}#) + #{val 4742}#) (if (macro-type - #{val 4741}#) + #{val 4742}#) (cons (macro-type - #{val 4741}#) + #{val 4742}#) (macro-binding - #{val 4741}#)) + #{val 4742}#)) #f) #f)) #f) #f))))) - (if #{t 4695}# - #{t 4695}# + (if #{t 4696}# + #{t 4696}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 4599}# #{atom-key 4566}#)) - (eqv? #{t 4599}# 'displaced-lexical)) + (if (let ((#{t 4600}# #{atom-key 4567}#)) + (eqv? #{t 4600}# 'displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e 4468}# - (#{wrap 4326}# + #{e 4469}# + (#{wrap 4327}# (begin - (if (if (pair? #{id 4564}#) #{s 4471}# #f) + (if (if (pair? #{id 4565}#) #{s 4472}# #f) (set-source-properties! - #{id 4564}# - #{s 4471}#)) - #{id 4564}#) - #{w 4470}# - #{mod 4472}#))))) - #{var 4559}# - #{names 4563}#) - (#{expand-body 4337}# - (cons #{e1 4561}# #{e2 4562}#) - (#{wrap 4326}# + #{id 4565}# + #{s 4472}#)) + #{id 4565}#) + #{w 4471}# + #{mod 4473}#))))) + #{var 4560}# + #{names 4564}#) + (#{expand-body 4338}# + (cons #{e1 4562}# #{e2 4563}#) + (#{wrap 4327}# (begin - (if (if (pair? #{e 4468}#) #{s 4471}# #f) - (set-source-properties! #{e 4468}# #{s 4471}#)) - #{e 4468}#) - #{w 4470}# - #{mod 4472}#) - (#{extend-env 4295}# - #{names 4563}# - (let ((#{trans-r 4839}# - (#{macros-only-env 4297}# #{r 4469}#))) - (map (lambda (#{x 4840}#) + (if (if (pair? #{e 4469}#) #{s 4472}# #f) + (set-source-properties! #{e 4469}# #{s 4472}#)) + #{e 4469}#) + #{w 4471}# + #{mod 4473}#) + (#{extend-env 4296}# + #{names 4564}# + (let ((#{trans-r 4840}# + (#{macros-only-env 4298}# #{r 4470}#))) + (map (lambda (#{x 4841}#) (cons 'macro - (#{eval-local-transformer 4339}# - (#{expand 4333}# - #{x 4840}# - #{trans-r 4839}# - #{w 4470}# - #{mod 4472}#) - #{mod 4472}#))) - #{val 4560}#)) - #{r 4469}#) - #{w 4470}# - #{mod 4472}#)))) - #{tmp 4474}#) + (#{eval-local-transformer 4340}# + (#{expand 4334}# + #{x 4841}# + #{trans-r 4840}# + #{w 4471}# + #{mod 4473}#) + #{mod 4473}#))) + #{val 4561}#)) + #{r 4470}#) + #{w 4471}# + #{mod 4473}#)))) + #{tmp 4475}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 4468}#) #{s 4471}# #f) - (set-source-properties! #{e 4468}# #{s 4471}#)) - #{e 4468}#) - #{w 4470}# - #{mod 4472}#)))))) + (if (if (pair? #{e 4469}#) #{s 4472}# #f) + (set-source-properties! #{e 4469}# #{s 4472}#)) + #{e 4469}#) + #{w 4471}# + #{mod 4473}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e 5054}# - #{r 5055}# - #{w 5056}# - #{s 5057}# - #{mod 5058}#) - (let ((#{tmp 5060}# ($sc-dispatch #{e 5054}# '(_ any)))) - (if #{tmp 5060}# + (lambda (#{e 5050}# + #{r 5051}# + #{w 5052}# + #{s 5053}# + #{mod 5054}#) + (let ((#{tmp 5056}# ($sc-dispatch #{e 5050}# '(_ any)))) + (if #{tmp 5056}# (@apply - (lambda (#{e 5063}#) - (let ((#{exp 5067}# - (#{strip 4346}# #{e 5063}# #{w 5056}#))) + (lambda (#{e 5059}#) + (let ((#{exp 5063}# + (#{strip 4347}# #{e 5059}# #{w 5052}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 5057}# - #{exp 5067}#))) - #{tmp 5060}#) + #{s 5053}# + #{exp 5063}#))) + #{tmp 5056}#) (syntax-violation 'quote "bad syntax" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 5054}#) #{s 5057}# #f) - (set-source-properties! #{e 5054}# #{s 5057}#)) - #{e 5054}#) - #{w 5056}# - #{mod 5058}#))))))) - (#{global-extend 4299}# + (if (if (pair? #{e 5050}#) #{s 5053}# #f) + (set-source-properties! #{e 5050}# #{s 5053}#)) + #{e 5050}#) + #{w 5052}# + #{mod 5054}#))))))) + (#{global-extend 4300}# 'core 'syntax (letrec* - ((#{gen-syntax 5294}# - (lambda (#{src 5396}# - #{e 5397}# - #{r 5398}# - #{maps 5399}# - #{ellipsis? 5400}# - #{mod 5401}#) - (if (if (symbol? #{e 5397}#) + ((#{gen-syntax 5290}# + (lambda (#{src 5392}# + #{e 5393}# + #{r 5394}# + #{maps 5395}# + #{ellipsis? 5396}# + #{mod 5397}#) + (if (if (symbol? #{e 5393}#) #t - (if (if (vector? #{e 5397}#) - (if (= (vector-length #{e 5397}#) 4) - (eq? (vector-ref #{e 5397}# 0) 'syntax-object) + (if (if (vector? #{e 5393}#) + (if (= (vector-length #{e 5393}#) 4) + (eq? (vector-ref #{e 5393}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 5397}# 1)) + (symbol? (vector-ref #{e 5393}# 1)) #f)) - (let ((#{label 5428}# - (#{id-var-name 4320}# #{e 5397}# '(())))) - (let ((#{b 5429}# - (let ((#{t 5566}# (assq #{label 5428}# #{r 5398}#))) - (if #{t 5566}# - (cdr #{t 5566}#) - (if (symbol? #{label 5428}#) - (let ((#{t 5571}# + (let ((#{label 5424}# + (#{id-var-name 4321}# #{e 5393}# '(())))) + (let ((#{b 5425}# + (let ((#{t 5562}# (assq #{label 5424}# #{r 5394}#))) + (if #{t 5562}# + (cdr #{t 5562}#) + (if (symbol? #{label 5424}#) + (let ((#{t 5567}# (begin - (if (if (not #{mod 5401}#) + (if (if (not #{mod 5397}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{label 5428}#)) - (let ((#{v 5608}# + #{label 5424}#)) + (let ((#{v 5604}# (module-variable - (if #{mod 5401}# + (if #{mod 5397}# (resolve-module - (cdr #{mod 5401}#)) + (cdr #{mod 5397}#)) (current-module)) - #{label 5428}#))) - (if #{v 5608}# - (if (variable-bound? #{v 5608}#) - (let ((#{val 5617}# + #{label 5424}#))) + (if #{v 5604}# + (if (variable-bound? #{v 5604}#) + (let ((#{val 5613}# (variable-ref - #{v 5608}#))) - (if (macro? #{val 5617}#) + #{v 5604}#))) + (if (macro? #{val 5613}#) (if (macro-type - #{val 5617}#) + #{val 5613}#) (cons (macro-type - #{val 5617}#) + #{val 5613}#) (macro-binding - #{val 5617}#)) + #{val 5613}#)) #f) #f)) #f) #f))))) - (if #{t 5571}# #{t 5571}# '(global))) + (if #{t 5567}# #{t 5567}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b 5429}#) 'syntax) + (if (eq? (car #{b 5425}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev 5462}# (cdr #{b 5429}#))) - (#{gen-ref 5295}# - #{src 5396}# - (car #{var.lev 5462}#) - (cdr #{var.lev 5462}#) - #{maps 5399}#))) - (lambda (#{var 5558}# #{maps 5559}#) - (values (list 'ref #{var 5558}#) #{maps 5559}#))) - (if (#{ellipsis? 5400}# #{e 5397}#) + (let ((#{var.lev 5458}# (cdr #{b 5425}#))) + (#{gen-ref 5291}# + #{src 5392}# + (car #{var.lev 5458}#) + (cdr #{var.lev 5458}#) + #{maps 5395}#))) + (lambda (#{var 5554}# #{maps 5555}#) + (values (list 'ref #{var 5554}#) #{maps 5555}#))) + (if (#{ellipsis? 5396}# #{e 5393}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 5396}#) - (values (list 'quote #{e 5397}#) #{maps 5399}#))))) - (let ((#{tmp 5629}# - ($sc-dispatch #{e 5397}# '(any any)))) - (if (if #{tmp 5629}# + #{src 5392}#) + (values (list 'quote #{e 5393}#) #{maps 5395}#))))) + (let ((#{tmp 5625}# + ($sc-dispatch #{e 5393}# '(any any)))) + (if (if #{tmp 5625}# (@apply - (lambda (#{dots 5633}# #{e 5634}#) - (#{ellipsis? 5400}# #{dots 5633}#)) - #{tmp 5629}#) + (lambda (#{dots 5629}# #{e 5630}#) + (#{ellipsis? 5396}# #{dots 5629}#)) + #{tmp 5625}#) #f) (@apply - (lambda (#{dots 5635}# #{e 5636}#) - (#{gen-syntax 5294}# - #{src 5396}# - #{e 5636}# - #{r 5398}# - #{maps 5399}# - (lambda (#{x 5637}#) #f) - #{mod 5401}#)) - #{tmp 5629}#) - (let ((#{tmp 5638}# - ($sc-dispatch #{e 5397}# '(any any . any)))) - (if (if #{tmp 5638}# + (lambda (#{dots 5631}# #{e 5632}#) + (#{gen-syntax 5290}# + #{src 5392}# + #{e 5632}# + #{r 5394}# + #{maps 5395}# + (lambda (#{x 5633}#) #f) + #{mod 5397}#)) + #{tmp 5625}#) + (let ((#{tmp 5634}# + ($sc-dispatch #{e 5393}# '(any any . any)))) + (if (if #{tmp 5634}# (@apply - (lambda (#{x 5642}# #{dots 5643}# #{y 5644}#) - (#{ellipsis? 5400}# #{dots 5643}#)) - #{tmp 5638}#) + (lambda (#{x 5638}# #{dots 5639}# #{y 5640}#) + (#{ellipsis? 5396}# #{dots 5639}#)) + #{tmp 5634}#) #f) (@apply - (lambda (#{x 5645}# #{dots 5646}# #{y 5647}#) + (lambda (#{x 5641}# #{dots 5642}# #{y 5643}#) (letrec* - ((#{f 5648}# - (lambda (#{y 5656}# #{k 5657}#) - (let ((#{tmp 5659}# + ((#{f 5644}# + (lambda (#{y 5652}# #{k 5653}#) + (let ((#{tmp 5655}# ($sc-dispatch - #{y 5656}# + #{y 5652}# '(any . any)))) - (if (if #{tmp 5659}# + (if (if #{tmp 5655}# (@apply - (lambda (#{dots 5663}# #{y 5664}#) - (#{ellipsis? 5400}# - #{dots 5663}#)) - #{tmp 5659}#) + (lambda (#{dots 5659}# #{y 5660}#) + (#{ellipsis? 5396}# + #{dots 5659}#)) + #{tmp 5655}#) #f) (@apply - (lambda (#{dots 5665}# #{y 5666}#) - (#{f 5648}# - #{y 5666}# - (lambda (#{maps 5667}#) + (lambda (#{dots 5661}# #{y 5662}#) + (#{f 5644}# + #{y 5662}# + (lambda (#{maps 5663}#) (call-with-values (lambda () - (#{k 5657}# - (cons '() #{maps 5667}#))) - (lambda (#{x 5668}# - #{maps 5669}#) - (if (null? (car #{maps 5669}#)) + (#{k 5653}# + (cons '() #{maps 5663}#))) + (lambda (#{x 5664}# + #{maps 5665}#) + (if (null? (car #{maps 5665}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 5396}#) + #{src 5392}#) (values - (let ((#{map-env 5673}# - (car #{maps 5669}#))) + (let ((#{map-env 5669}# + (car #{maps 5665}#))) (list 'apply '(primitive append) - (#{gen-map 5297}# - #{x 5668}# - #{map-env 5673}#))) - (cdr #{maps 5669}#)))))))) - #{tmp 5659}#) + (#{gen-map 5293}# + #{x 5664}# + #{map-env 5669}#))) + (cdr #{maps 5665}#)))))))) + #{tmp 5655}#) (call-with-values (lambda () - (#{gen-syntax 5294}# - #{src 5396}# - #{y 5656}# - #{r 5398}# - #{maps 5399}# - #{ellipsis? 5400}# - #{mod 5401}#)) - (lambda (#{y 5676}# #{maps 5677}#) + (#{gen-syntax 5290}# + #{src 5392}# + #{y 5652}# + #{r 5394}# + #{maps 5395}# + #{ellipsis? 5396}# + #{mod 5397}#)) + (lambda (#{y 5672}# #{maps 5673}#) (call-with-values (lambda () - (#{k 5657}# #{maps 5677}#)) - (lambda (#{x 5678}# #{maps 5679}#) + (#{k 5653}# #{maps 5673}#)) + (lambda (#{x 5674}# #{maps 5675}#) (values - (if (equal? #{y 5676}# ''()) - #{x 5678}# + (if (equal? #{y 5672}# ''()) + #{x 5674}# (list 'append - #{x 5678}# - #{y 5676}#)) - #{maps 5679}#)))))))))) - (#{f 5648}# - #{y 5647}# - (lambda (#{maps 5651}#) + #{x 5674}# + #{y 5672}#)) + #{maps 5675}#)))))))))) + (#{f 5644}# + #{y 5643}# + (lambda (#{maps 5647}#) (call-with-values (lambda () - (#{gen-syntax 5294}# - #{src 5396}# - #{x 5645}# - #{r 5398}# - (cons '() #{maps 5651}#) - #{ellipsis? 5400}# - #{mod 5401}#)) - (lambda (#{x 5652}# #{maps 5653}#) - (if (null? (car #{maps 5653}#)) + (#{gen-syntax 5290}# + #{src 5392}# + #{x 5641}# + #{r 5394}# + (cons '() #{maps 5647}#) + #{ellipsis? 5396}# + #{mod 5397}#)) + (lambda (#{x 5648}# #{maps 5649}#) + (if (null? (car #{maps 5649}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 5396}#) + #{src 5392}#) (values - (#{gen-map 5297}# - #{x 5652}# - (car #{maps 5653}#)) - (cdr #{maps 5653}#))))))))) - #{tmp 5638}#) - (let ((#{tmp 5695}# - ($sc-dispatch #{e 5397}# '(any . any)))) - (if #{tmp 5695}# + (#{gen-map 5293}# + #{x 5648}# + (car #{maps 5649}#)) + (cdr #{maps 5649}#))))))))) + #{tmp 5634}#) + (let ((#{tmp 5691}# + ($sc-dispatch #{e 5393}# '(any . any)))) + (if #{tmp 5691}# (@apply - (lambda (#{x 5699}# #{y 5700}#) + (lambda (#{x 5695}# #{y 5696}#) (call-with-values (lambda () - (#{gen-syntax 5294}# - #{src 5396}# - #{x 5699}# - #{r 5398}# - #{maps 5399}# - #{ellipsis? 5400}# - #{mod 5401}#)) - (lambda (#{x 5701}# #{maps 5702}#) + (#{gen-syntax 5290}# + #{src 5392}# + #{x 5695}# + #{r 5394}# + #{maps 5395}# + #{ellipsis? 5396}# + #{mod 5397}#)) + (lambda (#{x 5697}# #{maps 5698}#) (call-with-values (lambda () - (#{gen-syntax 5294}# - #{src 5396}# - #{y 5700}# - #{r 5398}# - #{maps 5702}# - #{ellipsis? 5400}# - #{mod 5401}#)) - (lambda (#{y 5703}# #{maps 5704}#) + (#{gen-syntax 5290}# + #{src 5392}# + #{y 5696}# + #{r 5394}# + #{maps 5698}# + #{ellipsis? 5396}# + #{mod 5397}#)) + (lambda (#{y 5699}# #{maps 5700}#) (values - (let ((#{atom-key 5709}# - (car #{y 5703}#))) - (if (eqv? #{atom-key 5709}# 'quote) - (if (eq? (car #{x 5701}#) 'quote) + (let ((#{atom-key 5705}# + (car #{y 5699}#))) + (if (eqv? #{atom-key 5705}# 'quote) + (if (eq? (car #{x 5697}#) 'quote) (list 'quote - (cons (car (cdr #{x 5701}#)) - (car (cdr #{y 5703}#)))) - (if (eq? (car (cdr #{y 5703}#)) + (cons (car (cdr #{x 5697}#)) + (car (cdr #{y 5699}#)))) + (if (eq? (car (cdr #{y 5699}#)) '()) - (list 'list #{x 5701}#) + (list 'list #{x 5697}#) (list 'cons - #{x 5701}# - #{y 5703}#))) - (if (eqv? #{atom-key 5709}# 'list) + #{x 5697}# + #{y 5699}#))) + (if (eqv? #{atom-key 5705}# 'list) (cons 'list - (cons #{x 5701}# - (cdr #{y 5703}#))) + (cons #{x 5697}# + (cdr #{y 5699}#))) (list 'cons - #{x 5701}# - #{y 5703}#)))) - #{maps 5704}#)))))) - #{tmp 5695}#) - (let ((#{tmp 5738}# + #{x 5697}# + #{y 5699}#)))) + #{maps 5700}#)))))) + #{tmp 5691}#) + (let ((#{tmp 5734}# ($sc-dispatch - #{e 5397}# + #{e 5393}# '#(vector (any . each-any))))) - (if #{tmp 5738}# + (if #{tmp 5734}# (@apply - (lambda (#{e1 5742}# #{e2 5743}#) + (lambda (#{e1 5738}# #{e2 5739}#) (call-with-values (lambda () - (#{gen-syntax 5294}# - #{src 5396}# - (cons #{e1 5742}# #{e2 5743}#) - #{r 5398}# - #{maps 5399}# - #{ellipsis? 5400}# - #{mod 5401}#)) - (lambda (#{e 5744}# #{maps 5745}#) + (#{gen-syntax 5290}# + #{src 5392}# + (cons #{e1 5738}# #{e2 5739}#) + #{r 5394}# + #{maps 5395}# + #{ellipsis? 5396}# + #{mod 5397}#)) + (lambda (#{e 5740}# #{maps 5741}#) (values - (if (eq? (car #{e 5744}#) 'list) - (cons 'vector (cdr #{e 5744}#)) - (if (eq? (car #{e 5744}#) 'quote) + (if (eq? (car #{e 5740}#) 'list) + (cons 'vector (cdr #{e 5740}#)) + (if (eq? (car #{e 5740}#) 'quote) (list 'quote (list->vector - (car (cdr #{e 5744}#)))) - (list 'list->vector #{e 5744}#))) - #{maps 5745}#)))) - #{tmp 5738}#) + (car (cdr #{e 5740}#)))) + (list 'list->vector #{e 5740}#))) + #{maps 5741}#)))) + #{tmp 5734}#) (values - (list 'quote #{e 5397}#) - #{maps 5399}#)))))))))))) - (#{gen-ref 5295}# - (lambda (#{src 5772}# - #{var 5773}# - #{level 5774}# - #{maps 5775}#) - (if (= #{level 5774}# 0) - (values #{var 5773}# #{maps 5775}#) - (if (null? #{maps 5775}#) + (list 'quote #{e 5393}#) + #{maps 5395}#)))))))))))) + (#{gen-ref 5291}# + (lambda (#{src 5768}# + #{var 5769}# + #{level 5770}# + #{maps 5771}#) + (if (= #{level 5770}# 0) + (values #{var 5769}# #{maps 5771}#) + (if (null? #{maps 5771}#) (syntax-violation 'syntax "missing ellipsis" - #{src 5772}#) + #{src 5768}#) (call-with-values (lambda () - (#{gen-ref 5295}# - #{src 5772}# - #{var 5773}# - (#{1-}# #{level 5774}#) - (cdr #{maps 5775}#))) - (lambda (#{outer-var 5776}# #{outer-maps 5777}#) - (let ((#{b 5778}# - (assq #{outer-var 5776}# (car #{maps 5775}#)))) - (if #{b 5778}# - (values (cdr #{b 5778}#) #{maps 5775}#) - (let ((#{inner-var 5780}# + (#{gen-ref 5291}# + #{src 5768}# + #{var 5769}# + (#{1-}# #{level 5770}#) + (cdr #{maps 5771}#))) + (lambda (#{outer-var 5772}# #{outer-maps 5773}#) + (let ((#{b 5774}# + (assq #{outer-var 5772}# (car #{maps 5771}#)))) + (if #{b 5774}# + (values (cdr #{b 5774}#) #{maps 5771}#) + (let ((#{inner-var 5776}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var 5780}# - (cons (cons (cons #{outer-var 5776}# - #{inner-var 5780}#) - (car #{maps 5775}#)) - #{outer-maps 5777}#))))))))))) - (#{gen-map 5297}# - (lambda (#{e 5794}# #{map-env 5795}#) - (let ((#{formals 5796}# (map cdr #{map-env 5795}#)) - (#{actuals 5797}# - (map (lambda (#{x 5799}#) - (list 'ref (car #{x 5799}#))) - #{map-env 5795}#))) - (if (eq? (car #{e 5794}#) 'ref) - (car #{actuals 5797}#) + #{inner-var 5776}# + (cons (cons (cons #{outer-var 5772}# + #{inner-var 5776}#) + (car #{maps 5771}#)) + #{outer-maps 5773}#))))))))))) + (#{gen-map 5293}# + (lambda (#{e 5790}# #{map-env 5791}#) + (let ((#{formals 5792}# (map cdr #{map-env 5791}#)) + (#{actuals 5793}# + (map (lambda (#{x 5795}#) + (list 'ref (car #{x 5795}#))) + #{map-env 5791}#))) + (if (eq? (car #{e 5790}#) 'ref) + (car #{actuals 5793}#) (if (and-map - (lambda (#{x 5800}#) - (if (eq? (car #{x 5800}#) 'ref) - (memq (car (cdr #{x 5800}#)) #{formals 5796}#) + (lambda (#{x 5796}#) + (if (eq? (car #{x 5796}#) 'ref) + (memq (car (cdr #{x 5796}#)) #{formals 5792}#) #f)) - (cdr #{e 5794}#)) + (cdr #{e 5790}#)) (cons 'map - (cons (list 'primitive (car #{e 5794}#)) - (map (let ((#{r 5802}# + (cons (list 'primitive (car #{e 5790}#)) + (map (let ((#{r 5798}# (map cons - #{formals 5796}# - #{actuals 5797}#))) - (lambda (#{x 5803}#) - (cdr (assq (car (cdr #{x 5803}#)) - #{r 5802}#)))) - (cdr #{e 5794}#)))) + #{formals 5792}# + #{actuals 5793}#))) + (lambda (#{x 5799}#) + (cdr (assq (car (cdr #{x 5799}#)) + #{r 5798}#)))) + (cdr #{e 5790}#)))) (cons 'map - (cons (list 'lambda #{formals 5796}# #{e 5794}#) - #{actuals 5797}#))))))) - (#{regen 5301}# - (lambda (#{x 5805}#) - (let ((#{atom-key 5806}# (car #{x 5805}#))) - (if (eqv? #{atom-key 5806}# 'ref) - (let ((#{name 5816}# (car (cdr #{x 5805}#))) - (#{var 5817}# (car (cdr #{x 5805}#)))) + (cons (list 'lambda #{formals 5792}# #{e 5790}#) + #{actuals 5793}#))))))) + (#{regen 5297}# + (lambda (#{x 5801}#) + (let ((#{atom-key 5802}# (car #{x 5801}#))) + (if (eqv? #{atom-key 5802}# 'ref) + (let ((#{name 5812}# (car (cdr #{x 5801}#))) + (#{var 5813}# (car (cdr #{x 5801}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name 5816}# - #{var 5817}#)) - (if (eqv? #{atom-key 5806}# 'primitive) - (let ((#{name 5829}# (car (cdr #{x 5805}#)))) + #{name 5812}# + #{var 5813}#)) + (if (eqv? #{atom-key 5802}# 'primitive) + (let ((#{name 5825}# (car (cdr #{x 5801}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5829}#) + #{name 5825}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5829}# + #{name 5825}# #f))) - (if (eqv? #{atom-key 5806}# 'quote) - (let ((#{exp 5847}# (car (cdr #{x 5805}#)))) + (if (eqv? #{atom-key 5802}# 'quote) + (let ((#{exp 5843}# (car (cdr #{x 5801}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp 5847}#)) - (if (eqv? #{atom-key 5806}# 'lambda) - (if (list? (car (cdr #{x 5805}#))) - (let ((#{req 5858}# (car (cdr #{x 5805}#))) - (#{vars 5860}# (car (cdr #{x 5805}#))) - (#{exp 5862}# - (#{regen 5301}# - (car (cdr (cdr #{x 5805}#)))))) - (let ((#{body 5867}# + #{exp 5843}#)) + (if (eqv? #{atom-key 5802}# 'lambda) + (if (list? (car (cdr #{x 5801}#))) + (let ((#{req 5854}# (car (cdr #{x 5801}#))) + (#{vars 5856}# (car (cdr #{x 5801}#))) + (#{exp 5858}# + (#{regen 5297}# + (car (cdr (cdr #{x 5801}#)))))) + (let ((#{body 5863}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 5858}# + #{req 5854}# #f #f #f '() - #{vars 5860}# - #{exp 5862}# + #{vars 5856}# + #{exp 5858}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 5867}#))) - (error "how did we get here" #{x 5805}#)) - (let ((#{fun-exp 5883}# - (let ((#{name 5892}# (car #{x 5805}#))) + #{body 5863}#))) + (error "how did we get here" #{x 5801}#)) + (let ((#{fun-exp 5879}# + (let ((#{name 5888}# (car #{x 5801}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5892}#) + #{name 5888}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5892}# + #{name 5888}# #f)))) - (#{arg-exps 5884}# - (map #{regen 5301}# (cdr #{x 5805}#)))) + (#{arg-exps 5880}# + (map #{regen 5297}# (cdr #{x 5801}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 5883}# - #{arg-exps 5884}#)))))))))) - (lambda (#{e 5302}# - #{r 5303}# - #{w 5304}# - #{s 5305}# - #{mod 5306}#) - (let ((#{e 5307}# - (#{wrap 4326}# + #{fun-exp 5879}# + #{arg-exps 5880}#)))))))))) + (lambda (#{e 5298}# + #{r 5299}# + #{w 5300}# + #{s 5301}# + #{mod 5302}#) + (let ((#{e 5303}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 5302}#) #{s 5305}# #f) - (set-source-properties! #{e 5302}# #{s 5305}#)) - #{e 5302}#) - #{w 5304}# - #{mod 5306}#))) - (let ((#{tmp 5309}# ($sc-dispatch #{e 5307}# '(_ any)))) - (if #{tmp 5309}# + (if (if (pair? #{e 5298}#) #{s 5301}# #f) + (set-source-properties! #{e 5298}# #{s 5301}#)) + #{e 5298}#) + #{w 5300}# + #{mod 5302}#))) + (let ((#{tmp 5305}# ($sc-dispatch #{e 5303}# '(_ any)))) + (if #{tmp 5305}# (@apply - (lambda (#{x 5334}#) + (lambda (#{x 5330}#) (call-with-values (lambda () - (#{gen-syntax 5294}# - #{e 5307}# - #{x 5334}# - #{r 5303}# + (#{gen-syntax 5290}# + #{e 5303}# + #{x 5330}# + #{r 5299}# '() - #{ellipsis? 4341}# - #{mod 5306}#)) - (lambda (#{e 5388}# #{maps 5389}#) - (#{regen 5301}# #{e 5388}#)))) - #{tmp 5309}#) + #{ellipsis? 4342}# + #{mod 5302}#)) + (lambda (#{e 5384}# #{maps 5385}#) + (#{regen 5297}# #{e 5384}#)))) + #{tmp 5305}#) (syntax-violation 'syntax "bad `syntax' form" - #{e 5307}#))))))) - (#{global-extend 4299}# + #{e 5303}#))))))) + (#{global-extend 4300}# 'core 'lambda - (lambda (#{e 6087}# - #{r 6088}# - #{w 6089}# - #{s 6090}# - #{mod 6091}#) - (let ((#{tmp 6093}# - ($sc-dispatch #{e 6087}# '(_ any any . each-any)))) - (if #{tmp 6093}# + (lambda (#{e 6081}# + #{r 6082}# + #{w 6083}# + #{s 6084}# + #{mod 6085}#) + (let ((#{tmp 6087}# + ($sc-dispatch #{e 6081}# '(_ any any . each-any)))) + (if #{tmp 6087}# (@apply - (lambda (#{args 6097}# #{e1 6098}# #{e2 6099}#) + (lambda (#{args 6091}# #{e1 6092}# #{e2 6093}#) (call-with-values (lambda () - (#{lambda-formals 4342}# #{args 6097}#)) - (lambda (#{req 6102}# - #{opt 6103}# - #{rest 6104}# - #{kw 6105}#) + (#{lambda-formals 4343}# #{args 6091}#)) + (lambda (#{req 6096}# + #{opt 6097}# + #{rest 6098}# + #{kw 6099}#) (letrec* - ((#{lp 6106}# - (lambda (#{body 6109}# #{meta 6110}#) - (let ((#{tmp 6112}# + ((#{lp 6100}# + (lambda (#{body 6103}# #{meta 6104}#) + (let ((#{tmp 6106}# ($sc-dispatch - #{body 6109}# + #{body 6103}# '(any any . each-any)))) - (if (if #{tmp 6112}# + (if (if #{tmp 6106}# (@apply - (lambda (#{docstring 6116}# - #{e1 6117}# - #{e2 6118}#) + (lambda (#{docstring 6110}# + #{e1 6111}# + #{e2 6112}#) (string? - (syntax->datum #{docstring 6116}#))) - #{tmp 6112}#) + (syntax->datum #{docstring 6110}#))) + #{tmp 6106}#) #f) (@apply - (lambda (#{docstring 6119}# - #{e1 6120}# - #{e2 6121}#) - (#{lp 6106}# - (cons #{e1 6120}# #{e2 6121}#) + (lambda (#{docstring 6113}# + #{e1 6114}# + #{e2 6115}#) + (#{lp 6100}# + (cons #{e1 6114}# #{e2 6115}#) (append - #{meta 6110}# + #{meta 6104}# (list (cons 'documentation (syntax->datum - #{docstring 6119}#)))))) - #{tmp 6112}#) - (let ((#{tmp 6122}# + #{docstring 6113}#)))))) + #{tmp 6106}#) + (let ((#{tmp 6116}# ($sc-dispatch - #{body 6109}# + #{body 6103}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 6122}# + (if #{tmp 6116}# (@apply - (lambda (#{k 6126}# - #{v 6127}# - #{e1 6128}# - #{e2 6129}#) - (#{lp 6106}# - (cons #{e1 6128}# #{e2 6129}#) + (lambda (#{k 6120}# + #{v 6121}# + #{e1 6122}# + #{e2 6123}#) + (#{lp 6100}# + (cons #{e1 6122}# #{e2 6123}#) (append - #{meta 6110}# + #{meta 6104}# (syntax->datum (map cons - #{k 6126}# - #{v 6127}#))))) - #{tmp 6122}#) - (#{expand-simple-lambda 4343}# - #{e 6087}# - #{r 6088}# - #{w 6089}# - #{s 6090}# - #{mod 6091}# - #{req 6102}# - #{rest 6104}# - #{meta 6110}# - #{body 6109}#)))))))) - (#{lp 6106}# (cons #{e1 6098}# #{e2 6099}#) '()))))) - #{tmp 6093}#) + #{k 6120}# + #{v 6121}#))))) + #{tmp 6116}#) + (#{expand-simple-lambda 4344}# + #{e 6081}# + #{r 6082}# + #{w 6083}# + #{s 6084}# + #{mod 6085}# + #{req 6096}# + #{rest 6098}# + #{meta 6104}# + #{body 6103}#)))))))) + (#{lp 6100}# (cons #{e1 6092}# #{e2 6093}#) '()))))) + #{tmp 6087}#) (syntax-violation 'lambda "bad lambda" - #{e 6087}#))))) - (#{global-extend 4299}# + #{e 6081}#))))) + (#{global-extend 4300}# 'core 'lambda* - (lambda (#{e 6421}# - #{r 6422}# - #{w 6423}# - #{s 6424}# - #{mod 6425}#) - (let ((#{tmp 6427}# - ($sc-dispatch #{e 6421}# '(_ any any . each-any)))) - (if #{tmp 6427}# + (lambda (#{e 6414}# + #{r 6415}# + #{w 6416}# + #{s 6417}# + #{mod 6418}#) + (let ((#{tmp 6420}# + ($sc-dispatch #{e 6414}# '(_ any any . each-any)))) + (if #{tmp 6420}# (@apply - (lambda (#{args 6431}# #{e1 6432}# #{e2 6433}#) + (lambda (#{args 6424}# #{e1 6425}# #{e2 6426}#) (call-with-values (lambda () - (#{expand-lambda-case 4345}# - #{e 6421}# - #{r 6422}# - #{w 6423}# - #{s 6424}# - #{mod 6425}# - #{lambda*-formals 4344}# - (list (cons #{args 6431}# - (cons #{e1 6432}# #{e2 6433}#))))) - (lambda (#{meta 6436}# #{lcase 6437}#) + (#{expand-lambda-case 4346}# + #{e 6414}# + #{r 6415}# + #{w 6416}# + #{s 6417}# + #{mod 6418}# + #{lambda*-formals 4345}# + (list (cons #{args 6424}# + (cons #{e1 6425}# #{e2 6426}#))))) + (lambda (#{meta 6429}# #{lcase 6430}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6424}# - #{meta 6436}# - #{lcase 6437}#)))) - #{tmp 6427}#) + #{s 6417}# + #{meta 6429}# + #{lcase 6430}#)))) + #{tmp 6420}#) (syntax-violation 'lambda "bad lambda*" - #{e 6421}#))))) - (#{global-extend 4299}# + #{e 6414}#))))) + (#{global-extend 4300}# 'core 'case-lambda - (lambda (#{e 6611}# - #{r 6612}# - #{w 6613}# - #{s 6614}# - #{mod 6615}#) - (let ((#{tmp 6617}# + (lambda (#{e 6600}# + #{r 6601}# + #{w 6602}# + #{s 6603}# + #{mod 6604}#) + (let ((#{tmp 6606}# ($sc-dispatch - #{e 6611}# + #{e 6600}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6617}# + (if #{tmp 6606}# (@apply - (lambda (#{args 6621}# - #{e1 6622}# - #{e2 6623}# - #{args* 6624}# - #{e1* 6625}# - #{e2* 6626}#) + (lambda (#{args 6610}# + #{e1 6611}# + #{e2 6612}# + #{args* 6613}# + #{e1* 6614}# + #{e2* 6615}#) (call-with-values (lambda () - (#{expand-lambda-case 4345}# - #{e 6611}# - #{r 6612}# - #{w 6613}# - #{s 6614}# - #{mod 6615}# - #{lambda-formals 4342}# - (cons (cons #{args 6621}# - (cons #{e1 6622}# #{e2 6623}#)) - (map (lambda (#{tmp 3262 6629}# - #{tmp 3261 6630}# - #{tmp 3260 6631}#) - (cons #{tmp 3260 6631}# - (cons #{tmp 3261 6630}# - #{tmp 3262 6629}#))) - #{e2* 6626}# - #{e1* 6625}# - #{args* 6624}#)))) - (lambda (#{meta 6632}# #{lcase 6633}#) + (#{expand-lambda-case 4346}# + #{e 6600}# + #{r 6601}# + #{w 6602}# + #{s 6603}# + #{mod 6604}# + #{lambda-formals 4343}# + (cons (cons #{args 6610}# + (cons #{e1 6611}# #{e2 6612}#)) + (map (lambda (#{tmp 3263 6618}# + #{tmp 3262 6619}# + #{tmp 3261 6620}#) + (cons #{tmp 3261 6620}# + (cons #{tmp 3262 6619}# + #{tmp 3263 6618}#))) + #{e2* 6615}# + #{e1* 6614}# + #{args* 6613}#)))) + (lambda (#{meta 6621}# #{lcase 6622}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6614}# - #{meta 6632}# - #{lcase 6633}#)))) - #{tmp 6617}#) + #{s 6603}# + #{meta 6621}# + #{lcase 6622}#)))) + #{tmp 6606}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e 6611}#))))) - (#{global-extend 4299}# + #{e 6600}#))))) + (#{global-extend 4300}# 'core 'case-lambda* - (lambda (#{e 6796}# - #{r 6797}# - #{w 6798}# - #{s 6799}# - #{mod 6800}#) - (let ((#{tmp 6802}# + (lambda (#{e 6784}# + #{r 6785}# + #{w 6786}# + #{s 6787}# + #{mod 6788}#) + (let ((#{tmp 6790}# ($sc-dispatch - #{e 6796}# + #{e 6784}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6802}# + (if #{tmp 6790}# (@apply - (lambda (#{args 6806}# - #{e1 6807}# - #{e2 6808}# - #{args* 6809}# - #{e1* 6810}# - #{e2* 6811}#) + (lambda (#{args 6794}# + #{e1 6795}# + #{e2 6796}# + #{args* 6797}# + #{e1* 6798}# + #{e2* 6799}#) (call-with-values (lambda () - (#{expand-lambda-case 4345}# - #{e 6796}# - #{r 6797}# - #{w 6798}# - #{s 6799}# - #{mod 6800}# - #{lambda*-formals 4344}# - (cons (cons #{args 6806}# - (cons #{e1 6807}# #{e2 6808}#)) - (map (lambda (#{tmp 3297 6814}# - #{tmp 3296 6815}# - #{tmp 3295 6816}#) - (cons #{tmp 3295 6816}# - (cons #{tmp 3296 6815}# - #{tmp 3297 6814}#))) - #{e2* 6811}# - #{e1* 6810}# - #{args* 6809}#)))) - (lambda (#{meta 6817}# #{lcase 6818}#) + (#{expand-lambda-case 4346}# + #{e 6784}# + #{r 6785}# + #{w 6786}# + #{s 6787}# + #{mod 6788}# + #{lambda*-formals 4345}# + (cons (cons #{args 6794}# + (cons #{e1 6795}# #{e2 6796}#)) + (map (lambda (#{tmp 3298 6802}# + #{tmp 3297 6803}# + #{tmp 3296 6804}#) + (cons #{tmp 3296 6804}# + (cons #{tmp 3297 6803}# + #{tmp 3298 6802}#))) + #{e2* 6799}# + #{e1* 6798}# + #{args* 6797}#)))) + (lambda (#{meta 6805}# #{lcase 6806}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6799}# - #{meta 6817}# - #{lcase 6818}#)))) - #{tmp 6802}#) + #{s 6787}# + #{meta 6805}# + #{lcase 6806}#)))) + #{tmp 6790}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 6796}#))))) - (#{global-extend 4299}# + #{e 6784}#))))) + (#{global-extend 4300}# 'core 'let (letrec* - ((#{expand-let 7010}# - (lambda (#{e 7159}# - #{r 7160}# - #{w 7161}# - #{s 7162}# - #{mod 7163}# - #{constructor 7164}# - #{ids 7165}# - #{vals 7166}# - #{exps 7167}#) - (if (not (#{valid-bound-ids? 4323}# #{ids 7165}#)) + ((#{expand-let 6997}# + (lambda (#{e 7146}# + #{r 7147}# + #{w 7148}# + #{s 7149}# + #{mod 7150}# + #{constructor 7151}# + #{ids 7152}# + #{vals 7153}# + #{exps 7154}#) + (if (not (#{valid-bound-ids? 4324}# #{ids 7152}#)) (syntax-violation 'let "duplicate bound variable" - #{e 7159}#) - (let ((#{labels 7245}# - (#{gen-labels 4304}# #{ids 7165}#)) - (#{new-vars 7246}# - (map #{gen-var 4347}# #{ids 7165}#))) - (let ((#{nw 7247}# - (#{make-binding-wrap 4315}# - #{ids 7165}# - #{labels 7245}# - #{w 7161}#)) - (#{nr 7248}# - (#{extend-var-env 4296}# - #{labels 7245}# - #{new-vars 7246}# - #{r 7160}#))) - (#{constructor 7164}# - #{s 7162}# - (map syntax->datum #{ids 7165}#) - #{new-vars 7246}# - (map (lambda (#{x 7265}#) - (#{expand 4333}# - #{x 7265}# - #{r 7160}# - #{w 7161}# - #{mod 7163}#)) - #{vals 7166}#) - (#{expand-body 4337}# - #{exps 7167}# - (#{source-wrap 4327}# - #{e 7159}# - #{nw 7247}# - #{s 7162}# - #{mod 7163}#) - #{nr 7248}# - #{nw 7247}# - #{mod 7163}#)))))))) - (lambda (#{e 7011}# - #{r 7012}# - #{w 7013}# - #{s 7014}# - #{mod 7015}#) - (let ((#{tmp 7017}# + #{e 7146}#) + (let ((#{labels 7232}# + (#{gen-labels 4305}# #{ids 7152}#)) + (#{new-vars 7233}# + (map #{gen-var 4348}# #{ids 7152}#))) + (let ((#{nw 7234}# + (#{make-binding-wrap 4316}# + #{ids 7152}# + #{labels 7232}# + #{w 7148}#)) + (#{nr 7235}# + (#{extend-var-env 4297}# + #{labels 7232}# + #{new-vars 7233}# + #{r 7147}#))) + (#{constructor 7151}# + #{s 7149}# + (map syntax->datum #{ids 7152}#) + #{new-vars 7233}# + (map (lambda (#{x 7252}#) + (#{expand 4334}# + #{x 7252}# + #{r 7147}# + #{w 7148}# + #{mod 7150}#)) + #{vals 7153}#) + (#{expand-body 4338}# + #{exps 7154}# + (#{source-wrap 4328}# + #{e 7146}# + #{nw 7234}# + #{s 7149}# + #{mod 7150}#) + #{nr 7235}# + #{nw 7234}# + #{mod 7150}#)))))))) + (lambda (#{e 6998}# + #{r 6999}# + #{w 7000}# + #{s 7001}# + #{mod 7002}#) + (let ((#{tmp 7004}# ($sc-dispatch - #{e 7011}# + #{e 6998}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7017}# + (if (if #{tmp 7004}# (@apply - (lambda (#{id 7021}# - #{val 7022}# - #{e1 7023}# - #{e2 7024}#) - (and-map #{id? 4301}# #{id 7021}#)) - #{tmp 7017}#) + (lambda (#{id 7008}# + #{val 7009}# + #{e1 7010}# + #{e2 7011}#) + (and-map #{id? 4302}# #{id 7008}#)) + #{tmp 7004}#) #f) (@apply - (lambda (#{id 7040}# - #{val 7041}# - #{e1 7042}# - #{e2 7043}#) - (#{expand-let 7010}# - #{e 7011}# - #{r 7012}# - #{w 7013}# - #{s 7014}# - #{mod 7015}# - #{build-let 4283}# - #{id 7040}# - #{val 7041}# - (cons #{e1 7042}# #{e2 7043}#))) - #{tmp 7017}#) - (let ((#{tmp 7073}# + (lambda (#{id 7027}# + #{val 7028}# + #{e1 7029}# + #{e2 7030}#) + (#{expand-let 6997}# + #{e 6998}# + #{r 6999}# + #{w 7000}# + #{s 7001}# + #{mod 7002}# + #{build-let 4284}# + #{id 7027}# + #{val 7028}# + (cons #{e1 7029}# #{e2 7030}#))) + #{tmp 7004}#) + (let ((#{tmp 7060}# ($sc-dispatch - #{e 7011}# + #{e 6998}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 7073}# + (if (if #{tmp 7060}# (@apply - (lambda (#{f 7077}# - #{id 7078}# - #{val 7079}# - #{e1 7080}# - #{e2 7081}#) - (if (if (symbol? #{f 7077}#) + (lambda (#{f 7064}# + #{id 7065}# + #{val 7066}# + #{e1 7067}# + #{e2 7068}#) + (if (if (symbol? #{f 7064}#) #t - (if (if (vector? #{f 7077}#) - (if (= (vector-length #{f 7077}#) 4) - (eq? (vector-ref #{f 7077}# 0) + (if (if (vector? #{f 7064}#) + (if (= (vector-length #{f 7064}#) 4) + (eq? (vector-ref #{f 7064}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{f 7077}# 1)) + (symbol? (vector-ref #{f 7064}# 1)) #f)) - (and-map #{id? 4301}# #{id 7078}#) + (and-map #{id? 4302}# #{id 7065}#) #f)) - #{tmp 7073}#) + #{tmp 7060}#) #f) (@apply - (lambda (#{f 7123}# - #{id 7124}# - #{val 7125}# - #{e1 7126}# - #{e2 7127}#) - (#{expand-let 7010}# - #{e 7011}# - #{r 7012}# - #{w 7013}# - #{s 7014}# - #{mod 7015}# - #{build-named-let 4284}# - (cons #{f 7123}# #{id 7124}#) - #{val 7125}# - (cons #{e1 7126}# #{e2 7127}#))) - #{tmp 7073}#) + (lambda (#{f 7110}# + #{id 7111}# + #{val 7112}# + #{e1 7113}# + #{e2 7114}#) + (#{expand-let 6997}# + #{e 6998}# + #{r 6999}# + #{w 7000}# + #{s 7001}# + #{mod 7002}# + #{build-named-let 4285}# + (cons #{f 7110}# #{id 7111}#) + #{val 7112}# + (cons #{e1 7113}# #{e2 7114}#))) + #{tmp 7060}#) (syntax-violation 'let "bad let" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 7011}#) #{s 7014}# #f) - (set-source-properties! #{e 7011}# #{s 7014}#)) - #{e 7011}#) - #{w 7013}# - #{mod 7015}#))))))))) - (#{global-extend 4299}# + (if (if (pair? #{e 6998}#) #{s 7001}# #f) + (set-source-properties! #{e 6998}# #{s 7001}#)) + #{e 6998}#) + #{w 7000}# + #{mod 7002}#))))))))) + (#{global-extend 4300}# 'core 'letrec - (lambda (#{e 7714}# - #{r 7715}# - #{w 7716}# - #{s 7717}# - #{mod 7718}#) - (let ((#{tmp 7720}# + (lambda (#{e 7694}# + #{r 7695}# + #{w 7696}# + #{s 7697}# + #{mod 7698}#) + (let ((#{tmp 7700}# ($sc-dispatch - #{e 7714}# + #{e 7694}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7720}# + (if (if #{tmp 7700}# (@apply - (lambda (#{id 7724}# - #{val 7725}# - #{e1 7726}# - #{e2 7727}#) - (and-map #{id? 4301}# #{id 7724}#)) - #{tmp 7720}#) + (lambda (#{id 7704}# + #{val 7705}# + #{e1 7706}# + #{e2 7707}#) + (and-map #{id? 4302}# #{id 7704}#)) + #{tmp 7700}#) #f) (@apply - (lambda (#{id 7743}# - #{val 7744}# - #{e1 7745}# - #{e2 7746}#) - (if (not (#{valid-bound-ids? 4323}# #{id 7743}#)) + (lambda (#{id 7723}# + #{val 7724}# + #{e1 7725}# + #{e2 7726}#) + (if (not (#{valid-bound-ids? 4324}# #{id 7723}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 7714}#) - (let ((#{labels 7836}# - (#{gen-labels 4304}# #{id 7743}#)) - (#{new-vars 7837}# - (map #{gen-var 4347}# #{id 7743}#))) - (let ((#{w 7838}# - (#{make-binding-wrap 4315}# - #{id 7743}# - #{labels 7836}# - #{w 7716}#)) - (#{r 7839}# - (#{extend-var-env 4296}# - #{labels 7836}# - #{new-vars 7837}# - #{r 7715}#))) - (#{build-letrec 4285}# - #{s 7717}# + #{e 7694}#) + (let ((#{labels 7816}# + (#{gen-labels 4305}# #{id 7723}#)) + (#{new-vars 7817}# + (map #{gen-var 4348}# #{id 7723}#))) + (let ((#{w 7818}# + (#{make-binding-wrap 4316}# + #{id 7723}# + #{labels 7816}# + #{w 7696}#)) + (#{r 7819}# + (#{extend-var-env 4297}# + #{labels 7816}# + #{new-vars 7817}# + #{r 7695}#))) + (#{build-letrec 4286}# + #{s 7697}# #f - (map syntax->datum #{id 7743}#) - #{new-vars 7837}# - (map (lambda (#{x 7926}#) - (#{expand 4333}# - #{x 7926}# - #{r 7839}# - #{w 7838}# - #{mod 7718}#)) - #{val 7744}#) - (#{expand-body 4337}# - (cons #{e1 7745}# #{e2 7746}#) - (#{wrap 4326}# + (map syntax->datum #{id 7723}#) + #{new-vars 7817}# + (map (lambda (#{x 7906}#) + (#{expand 4334}# + #{x 7906}# + #{r 7819}# + #{w 7818}# + #{mod 7698}#)) + #{val 7724}#) + (#{expand-body 4338}# + (cons #{e1 7725}# #{e2 7726}#) + (#{wrap 4327}# (begin - (if (if (pair? #{e 7714}#) #{s 7717}# #f) - (set-source-properties! #{e 7714}# #{s 7717}#)) - #{e 7714}#) - #{w 7838}# - #{mod 7718}#) - #{r 7839}# - #{w 7838}# - #{mod 7718}#)))))) - #{tmp 7720}#) + (if (if (pair? #{e 7694}#) #{s 7697}# #f) + (set-source-properties! #{e 7694}# #{s 7697}#)) + #{e 7694}#) + #{w 7818}# + #{mod 7698}#) + #{r 7819}# + #{w 7818}# + #{mod 7698}#)))))) + #{tmp 7700}#) (syntax-violation 'letrec "bad letrec" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 7714}#) #{s 7717}# #f) - (set-source-properties! #{e 7714}# #{s 7717}#)) - #{e 7714}#) - #{w 7716}# - #{mod 7718}#)))))) - (#{global-extend 4299}# + (if (if (pair? #{e 7694}#) #{s 7697}# #f) + (set-source-properties! #{e 7694}# #{s 7697}#)) + #{e 7694}#) + #{w 7696}# + #{mod 7698}#)))))) + (#{global-extend 4300}# 'core 'letrec* - (lambda (#{e 8343}# - #{r 8344}# - #{w 8345}# - #{s 8346}# - #{mod 8347}#) - (let ((#{tmp 8349}# + (lambda (#{e 8323}# + #{r 8324}# + #{w 8325}# + #{s 8326}# + #{mod 8327}#) + (let ((#{tmp 8329}# ($sc-dispatch - #{e 8343}# + #{e 8323}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8349}# + (if (if #{tmp 8329}# (@apply - (lambda (#{id 8353}# - #{val 8354}# - #{e1 8355}# - #{e2 8356}#) - (and-map #{id? 4301}# #{id 8353}#)) - #{tmp 8349}#) + (lambda (#{id 8333}# + #{val 8334}# + #{e1 8335}# + #{e2 8336}#) + (and-map #{id? 4302}# #{id 8333}#)) + #{tmp 8329}#) #f) (@apply - (lambda (#{id 8372}# - #{val 8373}# - #{e1 8374}# - #{e2 8375}#) - (if (not (#{valid-bound-ids? 4323}# #{id 8372}#)) + (lambda (#{id 8352}# + #{val 8353}# + #{e1 8354}# + #{e2 8355}#) + (if (not (#{valid-bound-ids? 4324}# #{id 8352}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 8343}#) - (let ((#{labels 8465}# - (#{gen-labels 4304}# #{id 8372}#)) - (#{new-vars 8466}# - (map #{gen-var 4347}# #{id 8372}#))) - (let ((#{w 8467}# - (#{make-binding-wrap 4315}# - #{id 8372}# - #{labels 8465}# - #{w 8345}#)) - (#{r 8468}# - (#{extend-var-env 4296}# - #{labels 8465}# - #{new-vars 8466}# - #{r 8344}#))) - (#{build-letrec 4285}# - #{s 8346}# + #{e 8323}#) + (let ((#{labels 8445}# + (#{gen-labels 4305}# #{id 8352}#)) + (#{new-vars 8446}# + (map #{gen-var 4348}# #{id 8352}#))) + (let ((#{w 8447}# + (#{make-binding-wrap 4316}# + #{id 8352}# + #{labels 8445}# + #{w 8325}#)) + (#{r 8448}# + (#{extend-var-env 4297}# + #{labels 8445}# + #{new-vars 8446}# + #{r 8324}#))) + (#{build-letrec 4286}# + #{s 8326}# #t - (map syntax->datum #{id 8372}#) - #{new-vars 8466}# - (map (lambda (#{x 8555}#) - (#{expand 4333}# - #{x 8555}# - #{r 8468}# - #{w 8467}# - #{mod 8347}#)) - #{val 8373}#) - (#{expand-body 4337}# - (cons #{e1 8374}# #{e2 8375}#) - (#{wrap 4326}# + (map syntax->datum #{id 8352}#) + #{new-vars 8446}# + (map (lambda (#{x 8535}#) + (#{expand 4334}# + #{x 8535}# + #{r 8448}# + #{w 8447}# + #{mod 8327}#)) + #{val 8353}#) + (#{expand-body 4338}# + (cons #{e1 8354}# #{e2 8355}#) + (#{wrap 4327}# (begin - (if (if (pair? #{e 8343}#) #{s 8346}# #f) - (set-source-properties! #{e 8343}# #{s 8346}#)) - #{e 8343}#) - #{w 8467}# - #{mod 8347}#) - #{r 8468}# - #{w 8467}# - #{mod 8347}#)))))) - #{tmp 8349}#) + (if (if (pair? #{e 8323}#) #{s 8326}# #f) + (set-source-properties! #{e 8323}# #{s 8326}#)) + #{e 8323}#) + #{w 8447}# + #{mod 8327}#) + #{r 8448}# + #{w 8447}# + #{mod 8327}#)))))) + #{tmp 8329}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 8343}#) #{s 8346}# #f) - (set-source-properties! #{e 8343}# #{s 8346}#)) - #{e 8343}#) - #{w 8345}# - #{mod 8347}#)))))) - (#{global-extend 4299}# + (if (if (pair? #{e 8323}#) #{s 8326}# #f) + (set-source-properties! #{e 8323}# #{s 8326}#)) + #{e 8323}#) + #{w 8325}# + #{mod 8327}#)))))) + (#{global-extend 4300}# 'core 'set! - (lambda (#{e 9026}# - #{r 9027}# - #{w 9028}# - #{s 9029}# - #{mod 9030}#) - (let ((#{tmp 9032}# - ($sc-dispatch #{e 9026}# '(_ any any)))) - (if (if #{tmp 9032}# + (lambda (#{e 8994}# + #{r 8995}# + #{w 8996}# + #{s 8997}# + #{mod 8998}#) + (let ((#{tmp 9000}# + ($sc-dispatch #{e 8994}# '(_ any any)))) + (if (if #{tmp 9000}# (@apply - (lambda (#{id 9036}# #{val 9037}#) - (if (symbol? #{id 9036}#) + (lambda (#{id 9004}# #{val 9005}#) + (if (symbol? #{id 9004}#) #t - (if (if (vector? #{id 9036}#) - (if (= (vector-length #{id 9036}#) 4) - (eq? (vector-ref #{id 9036}# 0) 'syntax-object) + (if (if (vector? #{id 9004}#) + (if (= (vector-length #{id 9004}#) 4) + (eq? (vector-ref #{id 9004}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 9036}# 1)) + (symbol? (vector-ref #{id 9004}# 1)) #f))) - #{tmp 9032}#) + #{tmp 9000}#) #f) (@apply - (lambda (#{id 9064}# #{val 9065}#) - (let ((#{n 9066}# - (#{id-var-name 4320}# #{id 9064}# #{w 9028}#)) - (#{id-mod 9067}# - (if (if (vector? #{id 9064}#) - (if (= (vector-length #{id 9064}#) 4) - (eq? (vector-ref #{id 9064}# 0) 'syntax-object) + (lambda (#{id 9032}# #{val 9033}#) + (let ((#{n 9034}# + (#{id-var-name 4321}# #{id 9032}# #{w 8996}#)) + (#{id-mod 9035}# + (if (if (vector? #{id 9032}#) + (if (= (vector-length #{id 9032}#) 4) + (eq? (vector-ref #{id 9032}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 9064}# 3) - #{mod 9030}#))) - (let ((#{b 9068}# - (let ((#{t 9755}# (assq #{n 9066}# #{r 9027}#))) - (if #{t 9755}# - (cdr #{t 9755}#) - (if (symbol? #{n 9066}#) - (let ((#{t 9760}# + (vector-ref #{id 9032}# 3) + #{mod 8998}#))) + (let ((#{b 9036}# + (let ((#{t 9698}# (assq #{n 9034}# #{r 8995}#))) + (if #{t 9698}# + (cdr #{t 9698}#) + (if (symbol? #{n 9034}#) + (let ((#{t 9703}# (begin - (if (if (not #{id-mod 9067}#) + (if (if (not #{id-mod 9035}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 9066}#)) - (let ((#{v 9797}# + #{n 9034}#)) + (let ((#{v 9740}# (module-variable - (if #{id-mod 9067}# + (if #{id-mod 9035}# (resolve-module - (cdr #{id-mod 9067}#)) + (cdr #{id-mod 9035}#)) (current-module)) - #{n 9066}#))) - (if #{v 9797}# - (if (variable-bound? #{v 9797}#) - (let ((#{val 9806}# + #{n 9034}#))) + (if #{v 9740}# + (if (variable-bound? #{v 9740}#) + (let ((#{val 9749}# (variable-ref - #{v 9797}#))) - (if (macro? #{val 9806}#) + #{v 9740}#))) + (if (macro? #{val 9749}#) (if (macro-type - #{val 9806}#) + #{val 9749}#) (cons (macro-type - #{val 9806}#) + #{val 9749}#) (macro-binding - #{val 9806}#)) + #{val 9749}#)) #f) #f)) #f) #f))))) - (if #{t 9760}# #{t 9760}# '(global))) + (if #{t 9703}# #{t 9703}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key 9069}# (car #{b 9068}#))) - (if (let ((#{t 9106}# #{atom-key 9069}#)) - (eqv? #{t 9106}# 'lexical)) - (#{build-lexical-assignment 4272}# - #{s 9029}# - (syntax->datum #{id 9064}#) - (cdr #{b 9068}#) - (#{expand 4333}# - #{val 9065}# - #{r 9027}# - #{w 9028}# - #{mod 9030}#)) - (if (let ((#{t 9391}# #{atom-key 9069}#)) - (eqv? #{t 9391}# 'global)) - (#{build-global-assignment 4275}# - #{s 9029}# - #{n 9066}# - (#{expand 4333}# - #{val 9065}# - #{r 9027}# - #{w 9028}# - #{mod 9030}#) - #{id-mod 9067}#) - (if (let ((#{t 9646}# #{atom-key 9069}#)) - (eqv? #{t 9646}# 'macro)) - (let ((#{p 9709}# (cdr #{b 9068}#))) + (let ((#{atom-key 9037}# (car #{b 9036}#))) + (if (let ((#{t 9069}# #{atom-key 9037}#)) + (eqv? #{t 9069}# 'lexical)) + (#{build-lexical-assignment 4273}# + #{s 8997}# + (syntax->datum #{id 9032}#) + (cdr #{b 9036}#) + (#{expand 4334}# + #{val 9033}# + #{r 8995}# + #{w 8996}# + #{mod 8998}#)) + (if (let ((#{t 9344}# #{atom-key 9037}#)) + (eqv? #{t 9344}# 'global)) + (#{build-global-assignment 4276}# + #{s 8997}# + #{n 9034}# + (#{expand 4334}# + #{val 9033}# + #{r 8995}# + #{w 8996}# + #{mod 8998}#) + #{id-mod 9035}#) + (if (let ((#{t 9589}# #{atom-key 9037}#)) + (eqv? #{t 9589}# 'macro)) + (let ((#{p 9652}# (cdr #{b 9036}#))) (if (procedure-property - #{p 9709}# + #{p 9652}# 'variable-transformer) - (#{expand 4333}# - (#{expand-macro 4336}# - #{p 9709}# - #{e 9026}# - #{r 9027}# - #{w 9028}# - #{s 9029}# + (#{expand 4334}# + (#{expand-macro 4337}# + #{p 9652}# + #{e 8994}# + #{r 8995}# + #{w 8996}# + #{s 8997}# #f - #{mod 9030}#) - #{r 9027}# + #{mod 8998}#) + #{r 8995}# '(()) - #{mod 9030}#) + #{mod 8998}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap 4326}# - #{e 9026}# - #{w 9028}# - #{mod 9030}#) - (#{wrap 4326}# - #{id 9064}# - #{w 9028}# - #{id-mod 9067}#)))) - (if (eqv? #{atom-key 9069}# 'displaced-lexical) + (#{wrap 4327}# + #{e 8994}# + #{w 8996}# + #{mod 8998}#) + (#{wrap 4327}# + #{id 9032}# + #{w 8996}# + #{id-mod 9035}#)))) + (if (eqv? #{atom-key 9037}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 4326}# - #{id 9064}# - #{w 9028}# - #{mod 9030}#)) + (#{wrap 4327}# + #{id 9032}# + #{w 8996}# + #{mod 8998}#)) (syntax-violation 'set! "bad set!" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 9026}#) #{s 9029}# #f) + (if (if (pair? #{e 8994}#) #{s 8997}# #f) (set-source-properties! - #{e 9026}# - #{s 9029}#)) - #{e 9026}#) - #{w 9028}# - #{mod 9030}#)))))))))) - #{tmp 9032}#) - (let ((#{tmp 9907}# + #{e 8994}# + #{s 8997}#)) + #{e 8994}#) + #{w 8996}# + #{mod 8998}#)))))))))) + #{tmp 9000}#) + (let ((#{tmp 9845}# ($sc-dispatch - #{e 9026}# + #{e 8994}# '(_ (any . each-any) any)))) - (if #{tmp 9907}# + (if #{tmp 9845}# (@apply - (lambda (#{head 9911}# #{tail 9912}# #{val 9913}#) + (lambda (#{head 9849}# #{tail 9850}# #{val 9851}#) (call-with-values (lambda () - (#{syntax-type 4332}# - #{head 9911}# - #{r 9027}# + (#{syntax-type 4333}# + #{head 9849}# + #{r 8995}# '(()) #f #f - #{mod 9030}# + #{mod 8998}# #t)) - (lambda (#{type 9916}# - #{value 9917}# - #{ee 9918}# - #{ww 9919}# - #{ss 9920}# - #{modmod 9921}#) - (if (eqv? #{type 9916}# 'module-ref) - (let ((#{val 9925}# - (#{expand 4333}# - #{val 9913}# - #{r 9027}# - #{w 9028}# - #{mod 9030}#))) + (lambda (#{type 9854}# + #{value 9855}# + #{ee 9856}# + #{ww 9857}# + #{ss 9858}# + #{modmod 9859}#) + (if (eqv? #{type 9854}# 'module-ref) + (let ((#{val 9863}# + (#{expand 4334}# + #{val 9851}# + #{r 8995}# + #{w 8996}# + #{mod 8998}#))) (call-with-values (lambda () - (#{value 9917}# - (cons #{head 9911}# #{tail 9912}#) - #{r 9027}# - #{w 9028}#)) - (lambda (#{e 9926}# - #{r 9927}# - #{w 9928}# - #{s* 9929}# - #{mod 9930}#) - (let ((#{tmp 9932}# (list #{e 9926}#))) + (#{value 9855}# + (cons #{head 9849}# #{tail 9850}#) + #{r 8995}# + #{w 8996}#)) + (lambda (#{e 9864}# + #{r 9865}# + #{w 9866}# + #{s* 9867}# + #{mod 9868}#) + (let ((#{tmp 9870}# (list #{e 9864}#))) (if (@apply - (lambda (#{e 9934}#) - (if (symbol? #{e 9934}#) + (lambda (#{e 9872}#) + (if (symbol? #{e 9872}#) #t - (if (if (vector? #{e 9934}#) + (if (if (vector? #{e 9872}#) (if (= (vector-length - #{e 9934}#) + #{e 9872}#) 4) (eq? (vector-ref - #{e 9934}# + #{e 9872}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e 9934}# 1)) + (vector-ref #{e 9872}# 1)) #f))) - #{tmp 9932}#) + #{tmp 9870}#) (@apply - (lambda (#{e 9964}#) - (#{build-global-assignment 4275}# - #{s 9029}# - (syntax->datum #{e 9964}#) - #{val 9925}# - #{mod 9930}#)) - #{tmp 9932}#) + (lambda (#{e 9902}#) + (#{build-global-assignment 4276}# + #{s 8997}# + (syntax->datum #{e 9902}#) + #{val 9863}# + #{mod 9868}#)) + #{tmp 9870}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 9926}#)))))) - (#{build-application 4268}# - #{s 9029}# - (#{expand 4333}# - (list '#(syntax-object - setter - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(type value ee ww ss modmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i3543" - "i3544" - "i3545" - "i3546" - "i3547" - "i3548")) - #(ribcage - #(head tail val) - #((top) (top) (top)) - #("i3529" "i3530" "i3531")) - #(ribcage () () ()) - #(ribcage - #(e r w s mod) - #((top) (top) (top) (top) (top)) - #("i3493" - "i3494" - "i3495" - "i3496" - "i3497")) - #(ribcage - (lambda-var-list - gen-var - strip - expand-lambda-case - lambda*-formals - expand-simple-lambda - lambda-formals - ellipsis? - expand-void - eval-local-transformer - expand-local-syntax - expand-body - expand-macro - expand-application - expand-expr - expand - syntax-type - parse-when-list - expand-install-global - expand-top-sequence - expand-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - #{head 9911}#) - #{r 9027}# - #{w 9028}# - #{mod 9030}#) - (map (lambda (#{e 10265}#) - (#{expand 4333}# - #{e 10265}# - #{r 9027}# - #{w 9028}# - #{mod 9030}#)) + #{e 9864}#)))))) + (#{build-application 4269}# + #{s 8997}# + (let ((#{e 10127}# + (list '#(syntax-object + setter + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(type value ee ww ss modmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i3544" + "i3545" + "i3546" + "i3547" + "i3548" + "i3549")) + #(ribcage + #(head tail val) + #((top) (top) (top)) + #("i3530" "i3531" "i3532")) + #(ribcage () () ()) + #(ribcage + #(e r w s mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3494" + "i3495" + "i3496" + "i3497" + "i3498")) + #(ribcage + (lambda-var-list + gen-var + strip + expand-lambda-case + lambda*-formals + expand-simple-lambda + lambda-formals + ellipsis? + expand-void + eval-local-transformer + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand + syntax-type + parse-when-list + expand-install-global + expand-top-sequence + expand-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + #{head 9849}#))) + (call-with-values + (lambda () + (#{syntax-type 4333}# + #{e 10127}# + #{r 8995}# + #{w 8996}# + (#{source-annotation 4295}# #{e 10127}#) + #f + #{mod 8998}# + #f)) + (lambda (#{type 10134}# + #{value 10135}# + #{e 10136}# + #{w 10137}# + #{s 10138}# + #{mod 10139}#) + (#{expand-expr 4335}# + #{type 10134}# + #{value 10135}# + #{e 10136}# + #{r 8995}# + #{w 10137}# + #{s 10138}# + #{mod 10139}#)))) + (map (lambda (#{e 10143}#) + (call-with-values + (lambda () + (#{syntax-type 4333}# + #{e 10143}# + #{r 8995}# + #{w 8996}# + (#{source-annotation 4295}# + #{e 10143}#) + #f + #{mod 8998}# + #f)) + (lambda (#{type 10158}# + #{value 10159}# + #{e 10160}# + #{w 10161}# + #{s 10162}# + #{mod 10163}#) + (#{expand-expr 4335}# + #{type 10158}# + #{value 10159}# + #{e 10160}# + #{r 8995}# + #{w 10161}# + #{s 10162}# + #{mod 10163}#)))) (append - #{tail 9912}# - (list #{val 9913}#)))))))) - #{tmp 9907}#) + #{tail 9850}# + (list #{val 9851}#)))))))) + #{tmp 9845}#) (syntax-violation 'set! "bad set!" - (#{wrap 4326}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 9026}#) #{s 9029}# #f) - (set-source-properties! #{e 9026}# #{s 9029}#)) - #{e 9026}#) - #{w 9028}# - #{mod 9030}#)))))))) + (if (if (pair? #{e 8994}#) #{s 8997}# #f) + (set-source-properties! #{e 8994}# #{s 8997}#)) + #{e 8994}#) + #{w 8996}# + #{mod 8998}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e 10379}# #{r 10380}# #{w 10381}#) - (let ((#{tmp 10383}# - ($sc-dispatch #{e 10379}# '(_ each-any any)))) - (if (if #{tmp 10383}# + (lambda (#{e 10206}# #{r 10207}# #{w 10208}#) + (let ((#{tmp 10210}# + ($sc-dispatch #{e 10206}# '(_ each-any any)))) + (if (if #{tmp 10210}# (@apply - (lambda (#{mod 10386}# #{id 10387}#) - (if (and-map #{id? 4301}# #{mod 10386}#) - (if (symbol? #{id 10387}#) + (lambda (#{mod 10213}# #{id 10214}#) + (if (and-map #{id? 4302}# #{mod 10213}#) + (if (symbol? #{id 10214}#) #t - (if (if (vector? #{id 10387}#) - (if (= (vector-length #{id 10387}#) 4) - (eq? (vector-ref #{id 10387}# 0) + (if (if (vector? #{id 10214}#) + (if (= (vector-length #{id 10214}#) 4) + (eq? (vector-ref #{id 10214}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 10387}# 1)) + (symbol? (vector-ref #{id 10214}# 1)) #f)) #f)) - #{tmp 10383}#) + #{tmp 10210}#) #f) (@apply - (lambda (#{mod 10427}# #{id 10428}#) + (lambda (#{mod 10254}# #{id 10255}#) (values - (syntax->datum #{id 10428}#) - #{r 10380}# - #{w 10381}# + (syntax->datum #{id 10255}#) + #{r 10207}# + #{w 10208}# #f (syntax->datum (cons '#(syntax-object @@ -9804,12 +9961,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i3590" "i3591")) + #("i3591" "i3592")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3578" "i3579" "i3580")) + #("i3579" "i3580" "i3581")) #(ribcage (lambda-var-list gen-var @@ -10226,70 +10383,70 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 10427}#)))) - #{tmp 10383}#) + #{mod 10254}#)))) + #{tmp 10210}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10379}#)))))) - (#{global-extend 4299}# + #{e 10206}#)))))) + (#{global-extend 4300}# 'module-ref '@@ - (lambda (#{e 10525}# #{r 10526}# #{w 10527}#) + (lambda (#{e 10347}# #{r 10348}# #{w 10349}#) (letrec* - ((#{remodulate 10528}# - (lambda (#{x 10734}# #{mod 10735}#) - (if (pair? #{x 10734}#) - (cons (#{remodulate 10528}# - (car #{x 10734}#) - #{mod 10735}#) - (#{remodulate 10528}# - (cdr #{x 10734}#) - #{mod 10735}#)) - (if (if (vector? #{x 10734}#) - (if (= (vector-length #{x 10734}#) 4) - (eq? (vector-ref #{x 10734}# 0) 'syntax-object) + ((#{remodulate 10350}# + (lambda (#{x 10385}# #{mod 10386}#) + (if (pair? #{x 10385}#) + (cons (#{remodulate 10350}# + (car #{x 10385}#) + #{mod 10386}#) + (#{remodulate 10350}# + (cdr #{x 10385}#) + #{mod 10386}#)) + (if (if (vector? #{x 10385}#) + (if (= (vector-length #{x 10385}#) 4) + (eq? (vector-ref #{x 10385}# 0) 'syntax-object) #f) #f) - (let ((#{expression 10749}# - (#{remodulate 10528}# - (vector-ref #{x 10734}# 1) - #{mod 10735}#)) - (#{wrap 10750}# (vector-ref #{x 10734}# 2))) + (let ((#{expression 10400}# + (#{remodulate 10350}# + (vector-ref #{x 10385}# 1) + #{mod 10386}#)) + (#{wrap 10401}# (vector-ref #{x 10385}# 2))) (vector 'syntax-object - #{expression 10749}# - #{wrap 10750}# - #{mod 10735}#)) - (if (vector? #{x 10734}#) - (let ((#{n 10758}# (vector-length #{x 10734}#))) - (let ((#{v 10759}# (make-vector #{n 10758}#))) + #{expression 10400}# + #{wrap 10401}# + #{mod 10386}#)) + (if (vector? #{x 10385}#) + (let ((#{n 10409}# (vector-length #{x 10385}#))) + (let ((#{v 10410}# (make-vector #{n 10409}#))) (letrec* - ((#{loop 10760}# - (lambda (#{i 10807}#) - (if (= #{i 10807}# #{n 10758}#) - #{v 10759}# + ((#{loop 10411}# + (lambda (#{i 10458}#) + (if (= #{i 10458}# #{n 10409}#) + #{v 10410}# (begin (vector-set! - #{v 10759}# - #{i 10807}# - (#{remodulate 10528}# - (vector-ref #{x 10734}# #{i 10807}#) - #{mod 10735}#)) - (#{loop 10760}# (#{1+}# #{i 10807}#))))))) - (#{loop 10760}# 0)))) - #{x 10734}#)))))) - (let ((#{tmp 10530}# - ($sc-dispatch #{e 10525}# '(_ each-any any)))) - (if (if #{tmp 10530}# + #{v 10410}# + #{i 10458}# + (#{remodulate 10350}# + (vector-ref #{x 10385}# #{i 10458}#) + #{mod 10386}#)) + (#{loop 10411}# (#{1+}# #{i 10458}#))))))) + (#{loop 10411}# 0)))) + #{x 10385}#)))))) + (let ((#{tmp 10352}# + ($sc-dispatch #{e 10347}# '(_ each-any any)))) + (if (if #{tmp 10352}# (@apply - (lambda (#{mod 10534}# #{exp 10535}#) - (and-map #{id? 4301}# #{mod 10534}#)) - #{tmp 10530}#) + (lambda (#{mod 10356}# #{exp 10357}#) + (and-map #{id? 4302}# #{mod 10356}#)) + #{tmp 10352}#) #f) (@apply - (lambda (#{mod 10551}# #{exp 10552}#) - (let ((#{mod 10553}# + (lambda (#{mod 10373}# #{exp 10374}#) + (let ((#{mod 10375}# (syntax->datum (cons '#(syntax-object private @@ -10297,12 +10454,12 @@ #(ribcage #(mod exp) #((top) (top)) - #("i3634" "i3635")) - #(ribcage (remodulate) ((top)) ("i3601")) + #("i3635" "i3636")) + #(ribcage (remodulate) ((top)) ("i3602")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3598" "i3599" "i3600")) + #("i3599" "i3600" "i3601")) #(ribcage (lambda-var-list gen-var @@ -10719,127 +10876,127 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 10551}#)))) + #{mod 10373}#)))) (values - (#{remodulate 10528}# - #{exp 10552}# - #{mod 10553}#) - #{r 10526}# - #{w 10527}# - (#{source-annotation 4294}# #{exp 10552}#) - #{mod 10553}#))) - #{tmp 10530}#) + (#{remodulate 10350}# + #{exp 10374}# + #{mod 10375}#) + #{r 10348}# + #{w 10349}# + (#{source-annotation 4295}# #{exp 10374}#) + #{mod 10375}#))) + #{tmp 10352}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10525}#)))))) - (#{global-extend 4299}# + #{e 10347}#)))))) + (#{global-extend 4300}# 'core 'if - (lambda (#{e 10913}# - #{r 10914}# - #{w 10915}# - #{s 10916}# - #{mod 10917}#) - (let ((#{tmp 10919}# - ($sc-dispatch #{e 10913}# '(_ any any)))) - (if #{tmp 10919}# + (lambda (#{e 10559}# + #{r 10560}# + #{w 10561}# + #{s 10562}# + #{mod 10563}#) + (let ((#{tmp 10565}# + ($sc-dispatch #{e 10559}# '(_ any any)))) + (if #{tmp 10565}# (@apply - (lambda (#{test 10923}# #{then 10924}#) - (#{build-conditional 4269}# - #{s 10916}# - (#{expand 4333}# - #{test 10923}# - #{r 10914}# - #{w 10915}# - #{mod 10917}#) - (#{expand 4333}# - #{then 10924}# - #{r 10914}# - #{w 10915}# - #{mod 10917}#) + (lambda (#{test 10569}# #{then 10570}#) + (#{build-conditional 4270}# + #{s 10562}# + (#{expand 4334}# + #{test 10569}# + #{r 10560}# + #{w 10561}# + #{mod 10563}#) + (#{expand 4334}# + #{then 10570}# + #{r 10560}# + #{w 10561}# + #{mod 10563}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp 10919}#) - (let ((#{tmp 11164}# - ($sc-dispatch #{e 10913}# '(_ any any any)))) - (if #{tmp 11164}# + #{tmp 10565}#) + (let ((#{tmp 10795}# + ($sc-dispatch #{e 10559}# '(_ any any any)))) + (if #{tmp 10795}# (@apply - (lambda (#{test 11168}# #{then 11169}# #{else 11170}#) - (#{build-conditional 4269}# - #{s 10916}# - (#{expand 4333}# - #{test 11168}# - #{r 10914}# - #{w 10915}# - #{mod 10917}#) - (#{expand 4333}# - #{then 11169}# - #{r 10914}# - #{w 10915}# - #{mod 10917}#) - (#{expand 4333}# - #{else 11170}# - #{r 10914}# - #{w 10915}# - #{mod 10917}#))) - #{tmp 11164}#) + (lambda (#{test 10799}# #{then 10800}# #{else 10801}#) + (#{build-conditional 4270}# + #{s 10562}# + (#{expand 4334}# + #{test 10799}# + #{r 10560}# + #{w 10561}# + #{mod 10563}#) + (#{expand 4334}# + #{then 10800}# + #{r 10560}# + #{w 10561}# + #{mod 10563}#) + (#{expand 4334}# + #{else 10801}# + #{r 10560}# + #{w 10561}# + #{mod 10563}#))) + #{tmp 10795}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10913}#))))))) - (#{global-extend 4299}# + #{e 10559}#))))))) + (#{global-extend 4300}# 'core 'with-fluids - (lambda (#{e 11594}# - #{r 11595}# - #{w 11596}# - #{s 11597}# - #{mod 11598}#) - (let ((#{tmp 11600}# + (lambda (#{e 11200}# + #{r 11201}# + #{w 11202}# + #{s 11203}# + #{mod 11204}#) + (let ((#{tmp 11206}# ($sc-dispatch - #{e 11594}# + #{e 11200}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 11600}# + (if #{tmp 11206}# (@apply - (lambda (#{fluid 11604}# - #{val 11605}# - #{b 11606}# - #{b* 11607}#) - (#{build-dynlet 4270}# - #{s 11597}# - (map (lambda (#{x 11693}#) - (#{expand 4333}# - #{x 11693}# - #{r 11595}# - #{w 11596}# - #{mod 11598}#)) - #{fluid 11604}#) - (map (lambda (#{x 11768}#) - (#{expand 4333}# - #{x 11768}# - #{r 11595}# - #{w 11596}# - #{mod 11598}#)) - #{val 11605}#) - (#{expand-body 4337}# - (cons #{b 11606}# #{b* 11607}#) - (#{wrap 4326}# + (lambda (#{fluid 11210}# + #{val 11211}# + #{b 11212}# + #{b* 11213}#) + (#{build-dynlet 4271}# + #{s 11203}# + (map (lambda (#{x 11294}#) + (#{expand 4334}# + #{x 11294}# + #{r 11201}# + #{w 11202}# + #{mod 11204}#)) + #{fluid 11210}#) + (map (lambda (#{x 11364}#) + (#{expand 4334}# + #{x 11364}# + #{r 11201}# + #{w 11202}# + #{mod 11204}#)) + #{val 11211}#) + (#{expand-body 4338}# + (cons #{b 11212}# #{b* 11213}#) + (#{wrap 4327}# (begin - (if (if (pair? #{e 11594}#) #{s 11597}# #f) - (set-source-properties! #{e 11594}# #{s 11597}#)) - #{e 11594}#) - #{w 11596}# - #{mod 11598}#) - #{r 11595}# - #{w 11596}# - #{mod 11598}#))) - #{tmp 11600}#) + (if (if (pair? #{e 11200}#) #{s 11203}# #f) + (set-source-properties! #{e 11200}# #{s 11203}#)) + #{e 11200}#) + #{w 11202}# + #{mod 11204}#) + #{r 11201}# + #{w 11202}# + #{mod 11204}#))) + #{tmp 11206}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 11594}#))))) + #{e 11200}#))))) (module-define! (current-module) 'begin @@ -10862,75 +11019,75 @@ 'eval-when 'eval-when '())) - (#{global-extend 4299}# + (#{global-extend 4300}# 'core 'syntax-case (letrec* - ((#{convert-pattern 12142}# - (lambda (#{pattern 13765}# #{keys 13766}#) + ((#{convert-pattern 11722}# + (lambda (#{pattern 13319}# #{keys 13320}#) (letrec* - ((#{cvt* 13767}# - (lambda (#{p* 14393}# #{n 14394}# #{ids 14395}#) - (if (not (pair? #{p* 14393}#)) - (#{cvt 13769}# - #{p* 14393}# - #{n 14394}# - #{ids 14395}#) + ((#{cvt* 13321}# + (lambda (#{p* 13945}# #{n 13946}# #{ids 13947}#) + (if (not (pair? #{p* 13945}#)) + (#{cvt 13323}# + #{p* 13945}# + #{n 13946}# + #{ids 13947}#) (call-with-values (lambda () - (#{cvt* 13767}# - (cdr #{p* 14393}#) - #{n 14394}# - #{ids 14395}#)) - (lambda (#{y 14398}# #{ids 14399}#) + (#{cvt* 13321}# + (cdr #{p* 13945}#) + #{n 13946}# + #{ids 13947}#)) + (lambda (#{y 13950}# #{ids 13951}#) (call-with-values (lambda () - (#{cvt 13769}# - (car #{p* 14393}#) - #{n 14394}# - #{ids 14399}#)) - (lambda (#{x 14402}# #{ids 14403}#) + (#{cvt 13323}# + (car #{p* 13945}#) + #{n 13946}# + #{ids 13951}#)) + (lambda (#{x 13954}# #{ids 13955}#) (values - (cons #{x 14402}# #{y 14398}#) - #{ids 14403}#)))))))) - (#{v-reverse 13768}# - (lambda (#{x 14404}#) + (cons #{x 13954}# #{y 13950}#) + #{ids 13955}#)))))))) + (#{v-reverse 13322}# + (lambda (#{x 13956}#) (letrec* - ((#{loop 14405}# - (lambda (#{r 14482}# #{x 14483}#) - (if (not (pair? #{x 14483}#)) - (values #{r 14482}# #{x 14483}#) - (#{loop 14405}# - (cons (car #{x 14483}#) #{r 14482}#) - (cdr #{x 14483}#)))))) - (#{loop 14405}# '() #{x 14404}#)))) - (#{cvt 13769}# - (lambda (#{p 13772}# #{n 13773}# #{ids 13774}#) - (if (if (symbol? #{p 13772}#) + ((#{loop 13957}# + (lambda (#{r 14037}# #{x 14038}#) + (if (not (pair? #{x 14038}#)) + (values #{r 14037}# #{x 14038}#) + (#{loop 13957}# + (cons (car #{x 14038}#) #{r 14037}#) + (cdr #{x 14038}#)))))) + (#{loop 13957}# '() #{x 13956}#)))) + (#{cvt 13323}# + (lambda (#{p 13326}# #{n 13327}# #{ids 13328}#) + (if (if (symbol? #{p 13326}#) #t - (if (if (vector? #{p 13772}#) - (if (= (vector-length #{p 13772}#) 4) - (eq? (vector-ref #{p 13772}# 0) + (if (if (vector? #{p 13326}#) + (if (= (vector-length #{p 13326}#) 4) + (eq? (vector-ref #{p 13326}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{p 13772}# 1)) + (symbol? (vector-ref #{p 13326}# 1)) #f)) - (if (#{bound-id-member? 4325}# - #{p 13772}# - #{keys 13766}#) + (if (#{bound-id-member? 4326}# + #{p 13326}# + #{keys 13320}#) (values - (vector 'free-id #{p 13772}#) - #{ids 13774}#) - (if (if (eq? (if (if (vector? #{p 13772}#) - (if (= (vector-length #{p 13772}#) + (vector 'free-id #{p 13326}#) + #{ids 13328}#) + (if (if (eq? (if (if (vector? #{p 13326}#) + (if (= (vector-length #{p 13326}#) 4) - (eq? (vector-ref #{p 13772}# 0) + (eq? (vector-ref #{p 13326}# 0) 'syntax-object) #f) #f) - (vector-ref #{p 13772}# 1) - #{p 13772}#) + (vector-ref #{p 13326}# 1) + #{p 13326}#) (if (if (= (vector-length '#(syntax-object _ @@ -10939,19 +11096,19 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3735" - "i3736" - "i3737")) + #("i3736" + "i3737" + "i3738")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3708" - "i3706" - "i3704")) + ("i3709" + "i3707" + "i3705")) #(ribcage #(pattern keys) #((top) (top)) - #("i3702" "i3703")) + #("i3703" "i3704")) #(ribcage (gen-syntax-case gen-clause @@ -10961,10 +11118,10 @@ (top) (top) (top)) - ("i3698" - "i3696" - "i3694" - "i3692")) + ("i3699" + "i3697" + "i3695" + "i3693")) #(ribcage (lambda-var-list gen-var @@ -11392,22 +11549,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3735" "i3736" "i3737")) + #("i3736" "i3737" "i3738")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3708" "i3706" "i3704")) + ("i3709" "i3707" "i3705")) #(ribcage #(pattern keys) #((top) (top)) - #("i3702" "i3703")) + #("i3703" "i3704")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3698" "i3696" "i3694" "i3692")) + ("i3699" "i3697" "i3695" "i3693")) #(ribcage (lambda-var-list gen-var @@ -11824,8 +11981,8 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4320}# #{p 13772}# '(())) - (#{id-var-name 4320}# + (eq? (#{id-var-name 4321}# #{p 13326}# '(())) + (#{id-var-name 4321}# '#(syntax-object _ ((top) @@ -11833,22 +11990,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3735" "i3736" "i3737")) + #("i3736" "i3737" "i3738")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3708" "i3706" "i3704")) + ("i3709" "i3707" "i3705")) #(ribcage #(pattern keys) #((top) (top)) - #("i3702" "i3703")) + #("i3703" "i3704")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3698" "i3696" "i3694" "i3692")) + ("i3699" "i3697" "i3695" "i3693")) #(ribcage (lambda-var-list gen-var @@ -12267,40 +12424,40 @@ (hygiene guile)) '(()))) #f) - (values '_ #{ids 13774}#) + (values '_ #{ids 13328}#) (values 'any - (cons (cons #{p 13772}# #{n 13773}#) - #{ids 13774}#)))) - (let ((#{tmp 14096}# - ($sc-dispatch #{p 13772}# '(any any)))) - (if (if #{tmp 14096}# + (cons (cons #{p 13326}# #{n 13327}#) + #{ids 13328}#)))) + (let ((#{tmp 13648}# + ($sc-dispatch #{p 13326}# '(any any)))) + (if (if #{tmp 13648}# (@apply - (lambda (#{x 14100}# #{dots 14101}#) - (if (if (if (vector? #{dots 14101}#) + (lambda (#{x 13652}# #{dots 13653}#) + (if (if (if (vector? #{dots 13653}#) (if (= (vector-length - #{dots 14101}#) + #{dots 13653}#) 4) (eq? (vector-ref - #{dots 14101}# + #{dots 13653}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{dots 14101}# 1)) + (symbol? (vector-ref #{dots 13653}# 1)) #f) - (if (eq? (if (if (vector? #{dots 14101}#) + (if (eq? (if (if (vector? #{dots 13653}#) (if (= (vector-length - #{dots 14101}#) + #{dots 13653}#) 4) (eq? (vector-ref - #{dots 14101}# + #{dots 13653}# 0) 'syntax-object) #f) #f) - (vector-ref #{dots 14101}# 1) - #{dots 14101}#) + (vector-ref #{dots 13653}# 1) + #{dots 13653}#) (if (if (= (vector-length '#(syntax-object ... @@ -12316,7 +12473,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -12749,7 +12906,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -13166,10 +13323,10 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4320}# - #{dots 14101}# + (eq? (#{id-var-name 4321}# + #{dots 13653}# '(())) - (#{id-var-name 4320}# + (#{id-var-name 4321}# '#(syntax-object ... ((top) @@ -13178,7 +13335,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -13598,58 +13755,58 @@ '(()))) #f) #f)) - #{tmp 14096}#) + #{tmp 13648}#) #f) (@apply - (lambda (#{x 14201}# #{dots 14202}#) + (lambda (#{x 13753}# #{dots 13754}#) (call-with-values (lambda () - (#{cvt 13769}# - #{x 14201}# - (#{1+}# #{n 13773}#) - #{ids 13774}#)) - (lambda (#{p 14203}# #{ids 14204}#) + (#{cvt 13323}# + #{x 13753}# + (#{1+}# #{n 13327}#) + #{ids 13328}#)) + (lambda (#{p 13755}# #{ids 13756}#) (values - (if (eq? #{p 14203}# 'any) + (if (eq? #{p 13755}# 'any) 'each-any - (vector 'each #{p 14203}#)) - #{ids 14204}#)))) - #{tmp 14096}#) - (let ((#{tmp 14205}# - ($sc-dispatch #{p 13772}# '(any any . any)))) - (if (if #{tmp 14205}# + (vector 'each #{p 13755}#)) + #{ids 13756}#)))) + #{tmp 13648}#) + (let ((#{tmp 13757}# + ($sc-dispatch #{p 13326}# '(any any . any)))) + (if (if #{tmp 13757}# (@apply - (lambda (#{x 14209}# - #{dots 14210}# - #{ys 14211}#) - (if (if (if (vector? #{dots 14210}#) + (lambda (#{x 13761}# + #{dots 13762}# + #{ys 13763}#) + (if (if (if (vector? #{dots 13762}#) (if (= (vector-length - #{dots 14210}#) + #{dots 13762}#) 4) (eq? (vector-ref - #{dots 14210}# + #{dots 13762}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 14210}# 1)) + (vector-ref #{dots 13762}# 1)) #f) (if (eq? (if (if (vector? - #{dots 14210}#) + #{dots 13762}#) (if (= (vector-length - #{dots 14210}#) + #{dots 13762}#) 4) (eq? (vector-ref - #{dots 14210}# + #{dots 13762}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots 14210}# + #{dots 13762}# 1) - #{dots 14210}#) + #{dots 13762}#) (if (if (= (vector-length '#(syntax-object ... @@ -13665,7 +13822,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -14099,7 +14256,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -14516,10 +14673,10 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4320}# - #{dots 14210}# + (eq? (#{id-var-name 4321}# + #{dots 13762}# '(())) - (#{id-var-name 4320}# + (#{id-var-name 4321}# '#(syntax-object ... ((top) @@ -14528,7 +14685,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -14948,111 +15105,111 @@ '(()))) #f) #f)) - #{tmp 14205}#) + #{tmp 13757}#) #f) (@apply - (lambda (#{x 14311}# - #{dots 14312}# - #{ys 14313}#) + (lambda (#{x 13863}# + #{dots 13864}# + #{ys 13865}#) (call-with-values (lambda () - (#{cvt* 13767}# - #{ys 14313}# - #{n 13773}# - #{ids 13774}#)) - (lambda (#{ys 14316}# #{ids 14317}#) + (#{cvt* 13321}# + #{ys 13865}# + #{n 13327}# + #{ids 13328}#)) + (lambda (#{ys 13868}# #{ids 13869}#) (call-with-values (lambda () - (#{cvt 13769}# - #{x 14311}# - (#{1+}# #{n 13773}#) - #{ids 14317}#)) - (lambda (#{x 14318}# #{ids 14319}#) + (#{cvt 13323}# + #{x 13863}# + (#{1+}# #{n 13327}#) + #{ids 13869}#)) + (lambda (#{x 13870}# #{ids 13871}#) (call-with-values (lambda () - (#{v-reverse 13768}# - #{ys 14316}#)) - (lambda (#{ys 14352}# #{e 14353}#) + (#{v-reverse 13322}# + #{ys 13868}#)) + (lambda (#{ys 13904}# #{e 13905}#) (values (vector 'each+ - #{x 14318}# - #{ys 14352}# - #{e 14353}#) - #{ids 14319}#)))))))) - #{tmp 14205}#) - (let ((#{tmp 14354}# - ($sc-dispatch #{p 13772}# '(any . any)))) - (if #{tmp 14354}# + #{x 13870}# + #{ys 13904}# + #{e 13905}#) + #{ids 13871}#)))))))) + #{tmp 13757}#) + (let ((#{tmp 13906}# + ($sc-dispatch #{p 13326}# '(any . any)))) + (if #{tmp 13906}# (@apply - (lambda (#{x 14358}# #{y 14359}#) + (lambda (#{x 13910}# #{y 13911}#) (call-with-values (lambda () - (#{cvt 13769}# - #{y 14359}# - #{n 13773}# - #{ids 13774}#)) - (lambda (#{y 14360}# #{ids 14361}#) + (#{cvt 13323}# + #{y 13911}# + #{n 13327}# + #{ids 13328}#)) + (lambda (#{y 13912}# #{ids 13913}#) (call-with-values (lambda () - (#{cvt 13769}# - #{x 14358}# - #{n 13773}# - #{ids 14361}#)) - (lambda (#{x 14362}# #{ids 14363}#) + (#{cvt 13323}# + #{x 13910}# + #{n 13327}# + #{ids 13913}#)) + (lambda (#{x 13914}# #{ids 13915}#) (values - (cons #{x 14362}# #{y 14360}#) - #{ids 14363}#)))))) - #{tmp 14354}#) - (let ((#{tmp 14364}# - ($sc-dispatch #{p 13772}# '()))) - (if #{tmp 14364}# + (cons #{x 13914}# #{y 13912}#) + #{ids 13915}#)))))) + #{tmp 13906}#) + (let ((#{tmp 13916}# + ($sc-dispatch #{p 13326}# '()))) + (if #{tmp 13916}# (@apply - (lambda () (values '() #{ids 13774}#)) - #{tmp 14364}#) - (let ((#{tmp 14368}# + (lambda () (values '() #{ids 13328}#)) + #{tmp 13916}#) + (let ((#{tmp 13920}# ($sc-dispatch - #{p 13772}# + #{p 13326}# '#(vector each-any)))) - (if #{tmp 14368}# + (if #{tmp 13920}# (@apply - (lambda (#{x 14372}#) + (lambda (#{x 13924}#) (call-with-values (lambda () - (#{cvt 13769}# - #{x 14372}# - #{n 13773}# - #{ids 13774}#)) - (lambda (#{p 14373}# - #{ids 14374}#) + (#{cvt 13323}# + #{x 13924}# + #{n 13327}# + #{ids 13328}#)) + (lambda (#{p 13925}# + #{ids 13926}#) (values (vector 'vector - #{p 14373}#) - #{ids 14374}#)))) - #{tmp 14368}#) + #{p 13925}#) + #{ids 13926}#)))) + #{tmp 13920}#) (values (vector 'atom - (#{strip 4346}# - #{p 13772}# + (#{strip 4347}# + #{p 13326}# '(()))) - #{ids 13774}#))))))))))))))) - (#{cvt 13769}# #{pattern 13765}# 0 '())))) - (#{build-dispatch-call 12143}# - (lambda (#{pvars 14484}# - #{exp 14485}# - #{y 14486}# - #{r 14487}# - #{mod 14488}#) - (let ((#{ids 14489}# (map car #{pvars 14484}#))) + #{ids 13328}#))))))))))))))) + (#{cvt 13323}# #{pattern 13319}# 0 '())))) + (#{build-dispatch-call 11723}# + (lambda (#{pvars 14039}# + #{exp 14040}# + #{y 14041}# + #{r 14042}# + #{mod 14043}#) + (let ((#{ids 14044}# (map car #{pvars 14039}#))) (begin - (map cdr #{pvars 14484}#) - (let ((#{labels 14491}# - (#{gen-labels 4304}# #{ids 14489}#)) - (#{new-vars 14492}# - (map #{gen-var 4347}# #{ids 14489}#))) - (#{build-application 4268}# + (map cdr #{pvars 14039}#) + (let ((#{labels 14046}# + (#{gen-labels 4305}# #{ids 14044}#)) + (#{new-vars 14047}# + (map #{gen-var 4348}# #{ids 14044}#))) + (#{build-application 4269}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -15065,78 +15222,78 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda 4277}# + (list (#{build-simple-lambda 4278}# #f - (map syntax->datum #{ids 14489}#) + (map syntax->datum #{ids 14044}#) #f - #{new-vars 14492}# + #{new-vars 14047}# '() - (#{expand 4333}# - #{exp 14485}# - (#{extend-env 4295}# - #{labels 14491}# - (map (lambda (#{var 14817}# #{level 14818}#) + (#{expand 4334}# + #{exp 14040}# + (#{extend-env 4296}# + #{labels 14046}# + (map (lambda (#{var 14372}# #{level 14373}#) (cons 'syntax - (cons #{var 14817}# - #{level 14818}#))) - #{new-vars 14492}# - (map cdr #{pvars 14484}#)) - #{r 14487}#) - (#{make-binding-wrap 4315}# - #{ids 14489}# - #{labels 14491}# + (cons #{var 14372}# + #{level 14373}#))) + #{new-vars 14047}# + (map cdr #{pvars 14039}#)) + #{r 14042}#) + (#{make-binding-wrap 4316}# + #{ids 14044}# + #{labels 14046}# '(())) - #{mod 14488}#)) - #{y 14486}#))))))) - (#{gen-clause 12144}# - (lambda (#{x 13126}# - #{keys 13127}# - #{clauses 13128}# - #{r 13129}# - #{pat 13130}# - #{fender 13131}# - #{exp 13132}# - #{mod 13133}#) + #{mod 14043}#)) + #{y 14041}#))))))) + (#{gen-clause 11724}# + (lambda (#{x 12691}# + #{keys 12692}# + #{clauses 12693}# + #{r 12694}# + #{pat 12695}# + #{fender 12696}# + #{exp 12697}# + #{mod 12698}#) (call-with-values (lambda () - (#{convert-pattern 12142}# - #{pat 13130}# - #{keys 13127}#)) - (lambda (#{p 13288}# #{pvars 13289}#) - (if (not (#{distinct-bound-ids? 4324}# - (map car #{pvars 13289}#))) + (#{convert-pattern 11722}# + #{pat 12695}# + #{keys 12692}#)) + (lambda (#{p 12853}# #{pvars 12854}#) + (if (not (#{distinct-bound-ids? 4325}# + (map car #{pvars 12854}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 13130}#) + #{pat 12695}#) (if (not (and-map - (lambda (#{x 13409}#) - (not (let ((#{x 13413}# (car #{x 13409}#))) - (if (if (if (vector? #{x 13413}#) + (lambda (#{x 12970}#) + (not (let ((#{x 12974}# (car #{x 12970}#))) + (if (if (if (vector? #{x 12974}#) (if (= (vector-length - #{x 13413}#) + #{x 12974}#) 4) (eq? (vector-ref - #{x 13413}# + #{x 12974}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x 13413}# 1)) + (vector-ref #{x 12974}# 1)) #f) - (if (eq? (if (if (vector? #{x 13413}#) + (if (eq? (if (if (vector? #{x 12974}#) (if (= (vector-length - #{x 13413}#) + #{x 12974}#) 4) (eq? (vector-ref - #{x 13413}# + #{x 12974}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 13413}# 1) - #{x 13413}#) + (vector-ref #{x 12974}# 1) + #{x 12974}#) (if (if (= (vector-length '#(syntax-object ... @@ -15152,7 +15309,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -15586,7 +15743,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -16003,10 +16160,10 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4320}# - #{x 13413}# + (eq? (#{id-var-name 4321}# + #{x 12974}# '(())) - (#{id-var-name 4320}# + (#{id-var-name 4321}# '#(syntax-object ... ((top) @@ -16015,7 +16172,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -16435,42 +16592,42 @@ '(()))) #f) #f)))) - #{pvars 13289}#)) + #{pvars 12854}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 13130}#) - (let ((#{y 13489}# + #{pat 12695}#) + (let ((#{y 13050}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 4268}# + (#{build-application 4269}# #f - (let ((#{req 13639}# (list 'tmp)) - (#{vars 13641}# (list #{y 13489}#)) - (#{exp 13643}# - (let ((#{y 13660}# + (let ((#{req 13193}# (list 'tmp)) + (#{vars 13195}# (list #{y 13050}#)) + (#{exp 13197}# + (let ((#{y 13214}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y 13489}#))) - (let ((#{test-exp 13664}# - (let ((#{tmp 13673}# + #{y 13050}#))) + (let ((#{test-exp 13218}# + (let ((#{tmp 13227}# ($sc-dispatch - #{fender 13131}# + #{fender 12696}# '#(atom #t)))) - (if #{tmp 13673}# + (if #{tmp 13227}# (@apply - (lambda () #{y 13660}#) - #{tmp 13673}#) - (let ((#{then-exp 13691}# - (#{build-dispatch-call 12143}# - #{pvars 13289}# - #{fender 13131}# - #{y 13660}# - #{r 13129}# - #{mod 13133}#)) - (#{else-exp 13692}# + (lambda () #{y 13214}#) + #{tmp 13227}#) + (let ((#{then-exp 13245}# + (#{build-dispatch-call 11723}# + #{pvars 12854}# + #{fender 12696}# + #{y 13214}# + #{r 12694}# + #{mod 12698}#)) + (#{else-exp 13246}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -16482,48 +16639,48 @@ %expanded-vtables 10) #f - #{y 13660}# - #{then-exp 13691}# - #{else-exp 13692}#))))) - (#{then-exp 13665}# - (#{build-dispatch-call 12143}# - #{pvars 13289}# - #{exp 13132}# - #{y 13660}# - #{r 13129}# - #{mod 13133}#)) - (#{else-exp 13666}# - (#{gen-syntax-case 12145}# - #{x 13126}# - #{keys 13127}# - #{clauses 13128}# - #{r 13129}# - #{mod 13133}#))) + #{y 13214}# + #{then-exp 13245}# + #{else-exp 13246}#))))) + (#{then-exp 13219}# + (#{build-dispatch-call 11723}# + #{pvars 12854}# + #{exp 12697}# + #{y 13214}# + #{r 12694}# + #{mod 12698}#)) + (#{else-exp 13220}# + (#{gen-syntax-case 11725}# + #{x 12691}# + #{keys 12692}# + #{clauses 12693}# + #{r 12694}# + #{mod 12698}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp 13664}# - #{then-exp 13665}# - #{else-exp 13666}#))))) - (let ((#{body 13648}# + #{test-exp 13218}# + #{then-exp 13219}# + #{else-exp 13220}#))))) + (let ((#{body 13202}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 13639}# + #{req 13193}# #f #f #f '() - #{vars 13641}# - #{exp 13643}# + #{vars 13195}# + #{exp 13197}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 13648}#))) - (list (if (eq? #{p 13288}# 'any) - (let ((#{fun-exp 13714}# + #{body 13202}#))) + (list (if (eq? #{p 12853}# 'any) + (let ((#{fun-exp 13268}# (if (equal? (module-name (current-module)) '(guile)) @@ -16537,13 +16694,13 @@ '(guile) 'list #f))) - (#{arg-exps 13715}# (list #{x 13126}#))) + (#{arg-exps 13269}# (list #{x 12691}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 13714}# - #{arg-exps 13715}#)) - (let ((#{fun-exp 13738}# + #{fun-exp 13268}# + #{arg-exps 13269}#)) + (let ((#{fun-exp 13292}# (if (equal? (module-name (current-module)) '(guile)) @@ -16557,27 +16714,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps 13739}# - (list #{x 13126}# + (#{arg-exps 13293}# + (list #{x 12691}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p 13288}#)))) + #{p 12853}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 13738}# - #{arg-exps 13739}#)))))))))))) - (#{gen-syntax-case 12145}# - (lambda (#{x 12554}# - #{keys 12555}# - #{clauses 12556}# - #{r 12557}# - #{mod 12558}#) - (if (null? #{clauses 12556}#) - (let ((#{fun-exp 12563}# + #{fun-exp 13292}# + #{arg-exps 13293}#)))))))))))) + (#{gen-syntax-case 11725}# + (lambda (#{x 12124}# + #{keys 12125}# + #{clauses 12126}# + #{r 12127}# + #{mod 12128}#) + (if (null? #{clauses 12126}#) + (let ((#{fun-exp 12133}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -16589,7 +16746,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps 12564}# + (#{arg-exps 12134}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -16598,61 +16755,61 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x 12554}#))) + #{x 12124}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 12563}# - #{arg-exps 12564}#)) - (let ((#{tmp 12597}# (car #{clauses 12556}#))) - (let ((#{tmp 12598}# - ($sc-dispatch #{tmp 12597}# '(any any)))) - (if #{tmp 12598}# + #{fun-exp 12133}# + #{arg-exps 12134}#)) + (let ((#{tmp 12167}# (car #{clauses 12126}#))) + (let ((#{tmp 12168}# + ($sc-dispatch #{tmp 12167}# '(any any)))) + (if #{tmp 12168}# (@apply - (lambda (#{pat 12600}# #{exp 12601}#) - (if (if (if (symbol? #{pat 12600}#) + (lambda (#{pat 12170}# #{exp 12171}#) + (if (if (if (symbol? #{pat 12170}#) #t - (if (if (vector? #{pat 12600}#) - (if (= (vector-length #{pat 12600}#) + (if (if (vector? #{pat 12170}#) + (if (= (vector-length #{pat 12170}#) 4) - (eq? (vector-ref #{pat 12600}# 0) + (eq? (vector-ref #{pat 12170}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{pat 12600}# 1)) + (symbol? (vector-ref #{pat 12170}# 1)) #f)) (and-map - (lambda (#{x 12628}#) + (lambda (#{x 12198}#) (not (if (eq? (if (if (vector? - #{pat 12600}#) + #{pat 12170}#) (if (= (vector-length - #{pat 12600}#) + #{pat 12170}#) 4) (eq? (vector-ref - #{pat 12600}# + #{pat 12170}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 12600}# 1) - #{pat 12600}#) - (if (if (vector? #{x 12628}#) + (vector-ref #{pat 12170}# 1) + #{pat 12170}#) + (if (if (vector? #{x 12198}#) (if (= (vector-length - #{x 12628}#) + #{x 12198}#) 4) (eq? (vector-ref - #{x 12628}# + #{x 12198}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 12628}# 1) - #{x 12628}#)) - (eq? (#{id-var-name 4320}# - #{pat 12600}# + (vector-ref #{x 12198}# 1) + #{x 12198}#)) + (eq? (#{id-var-name 4321}# + #{pat 12170}# '(())) - (#{id-var-name 4320}# - #{x 12628}# + (#{id-var-name 4321}# + #{x 12198}# '(()))) #f))) (cons '#(syntax-object @@ -16661,23 +16818,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3899" "i3900")) + #("i3900" "i3901")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3888" - "i3889" + #("i3889" "i3890" "i3891" - "i3892")) + "i3892" + "i3893")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3698" "i3696" "i3694" "i3692")) + ("i3699" "i3697" "i3695" "i3693")) #(ribcage (lambda-var-list gen-var @@ -17094,7 +17251,7 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{keys 12555}#)) + #{keys 12125}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -17103,7 +17260,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3899" "i3900")) + #("i3900" "i3901")) #(ribcage () () ()) #(ribcage #(x @@ -17116,11 +17273,11 @@ (top) (top) (top)) - #("i3888" - "i3889" + #("i3889" "i3890" "i3891" - "i3892")) + "i3892" + "i3893")) #(ribcage (gen-syntax-case gen-clause @@ -17130,10 +17287,10 @@ (top) (top) (top)) - ("i3698" - "i3696" - "i3694" - "i3692")) + ("i3699" + "i3697" + "i3695" + "i3693")) #(ribcage (lambda-var-list gen-var @@ -17562,7 +17719,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3899" "i3900")) + #("i3900" "i3901")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -17571,21 +17728,21 @@ (top) (top) (top)) - #("i3888" - "i3889" + #("i3889" "i3890" "i3891" - "i3892")) + "i3892" + "i3893")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3698" - "i3696" - "i3694" - "i3692")) + ("i3699" + "i3697" + "i3695" + "i3693")) #(ribcage (lambda-var-list gen-var @@ -18009,7 +18166,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3899" "i3900")) + #("i3900" "i3901")) #(ribcage () () ()) #(ribcage #(x @@ -18022,11 +18179,11 @@ (top) (top) (top)) - #("i3888" - "i3889" + #("i3889" "i3890" "i3891" - "i3892")) + "i3892" + "i3893")) #(ribcage (gen-syntax-case gen-clause @@ -18036,10 +18193,10 @@ (top) (top) (top)) - ("i3698" - "i3696" - "i3694" - "i3692")) + ("i3699" + "i3697" + "i3695" + "i3693")) #(ribcage (lambda-var-list gen-var @@ -18468,7 +18625,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3899" "i3900")) + #("i3900" "i3901")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18477,21 +18634,21 @@ (top) (top) (top)) - #("i3888" - "i3889" + #("i3889" "i3890" "i3891" - "i3892")) + "i3892" + "i3893")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3698" - "i3696" - "i3694" - "i3692")) + ("i3699" + "i3697" + "i3695" + "i3693")) #(ribcage (lambda-var-list gen-var @@ -18908,33 +19065,33 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4320}# + (eq? (#{id-var-name 4321}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3899" "i3900")) + #("i3900" "i3901")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3888" - "i3889" + #("i3889" "i3890" "i3891" - "i3892")) + "i3892" + "i3893")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3698" - "i3696" - "i3694" - "i3692")) + ("i3699" + "i3697" + "i3695" + "i3693")) #(ribcage (lambda-var-list gen-var @@ -19352,33 +19509,33 @@ ("i46" "i45" "i44"))) (hygiene guile)) '(())) - (#{id-var-name 4320}# + (#{id-var-name 4321}# '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3899" "i3900")) + #("i3900" "i3901")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3888" - "i3889" + #("i3889" "i3890" "i3891" - "i3892")) + "i3892" + "i3893")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3698" - "i3696" - "i3694" - "i3692")) + ("i3699" + "i3697" + "i3695" + "i3693")) #(ribcage (lambda-var-list gen-var @@ -19797,136 +19954,136 @@ (hygiene guile)) '(()))) #f) - (#{expand 4333}# - #{exp 12601}# - #{r 12557}# + (#{expand 4334}# + #{exp 12171}# + #{r 12127}# '(()) - #{mod 12558}#) - (let ((#{labels 12809}# + #{mod 12128}#) + (let ((#{labels 12374}# (list (symbol->string (gensym "i")))) - (#{var 12810}# - (let ((#{id 12848}# - (if (if (vector? #{pat 12600}#) + (#{var 12375}# + (let ((#{id 12413}# + (if (if (vector? #{pat 12170}#) (if (= (vector-length - #{pat 12600}#) + #{pat 12170}#) 4) (eq? (vector-ref - #{pat 12600}# + #{pat 12170}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 12600}# 1) - #{pat 12600}#))) + (vector-ref #{pat 12170}# 1) + #{pat 12170}#))) (gensym (string-append - (symbol->string #{id 12848}#) + (symbol->string #{id 12413}#) " "))))) - (#{build-application 4268}# + (#{build-application 4269}# #f - (#{build-simple-lambda 4277}# + (#{build-simple-lambda 4278}# #f - (list (syntax->datum #{pat 12600}#)) + (list (syntax->datum #{pat 12170}#)) #f - (list #{var 12810}#) + (list #{var 12375}#) '() - (#{expand 4333}# - #{exp 12601}# - (#{extend-env 4295}# - #{labels 12809}# + (#{expand 4334}# + #{exp 12171}# + (#{extend-env 4296}# + #{labels 12374}# (list (cons 'syntax - (cons #{var 12810}# 0))) - #{r 12557}#) - (#{make-binding-wrap 4315}# - (list #{pat 12600}#) - #{labels 12809}# + (cons #{var 12375}# 0))) + #{r 12127}#) + (#{make-binding-wrap 4316}# + (list #{pat 12170}#) + #{labels 12374}# '(())) - #{mod 12558}#)) - (list #{x 12554}#)))) - (#{gen-clause 12144}# - #{x 12554}# - #{keys 12555}# - (cdr #{clauses 12556}#) - #{r 12557}# - #{pat 12600}# + #{mod 12128}#)) + (list #{x 12124}#)))) + (#{gen-clause 11724}# + #{x 12124}# + #{keys 12125}# + (cdr #{clauses 12126}#) + #{r 12127}# + #{pat 12170}# #t - #{exp 12601}# - #{mod 12558}#))) - #{tmp 12598}#) - (let ((#{tmp 13118}# - ($sc-dispatch #{tmp 12597}# '(any any any)))) - (if #{tmp 13118}# + #{exp 12171}# + #{mod 12128}#))) + #{tmp 12168}#) + (let ((#{tmp 12683}# + ($sc-dispatch #{tmp 12167}# '(any any any)))) + (if #{tmp 12683}# (@apply - (lambda (#{pat 13120}# - #{fender 13121}# - #{exp 13122}#) - (#{gen-clause 12144}# - #{x 12554}# - #{keys 12555}# - (cdr #{clauses 12556}#) - #{r 12557}# - #{pat 13120}# - #{fender 13121}# - #{exp 13122}# - #{mod 12558}#)) - #{tmp 13118}#) + (lambda (#{pat 12685}# + #{fender 12686}# + #{exp 12687}#) + (#{gen-clause 11724}# + #{x 12124}# + #{keys 12125}# + (cdr #{clauses 12126}#) + #{r 12127}# + #{pat 12685}# + #{fender 12686}# + #{exp 12687}# + #{mod 12128}#)) + #{tmp 12683}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 12556}#))))))))))) - (lambda (#{e 12146}# - #{r 12147}# - #{w 12148}# - #{s 12149}# - #{mod 12150}#) - (let ((#{e 12151}# - (#{wrap 4326}# + (car #{clauses 12126}#))))))))))) + (lambda (#{e 11726}# + #{r 11727}# + #{w 11728}# + #{s 11729}# + #{mod 11730}#) + (let ((#{e 11731}# + (#{wrap 4327}# (begin - (if (if (pair? #{e 12146}#) #{s 12149}# #f) - (set-source-properties! #{e 12146}# #{s 12149}#)) - #{e 12146}#) - #{w 12148}# - #{mod 12150}#))) - (let ((#{tmp 12153}# + (if (if (pair? #{e 11726}#) #{s 11729}# #f) + (set-source-properties! #{e 11726}# #{s 11729}#)) + #{e 11726}#) + #{w 11728}# + #{mod 11730}#))) + (let ((#{tmp 11733}# ($sc-dispatch - #{e 12151}# + #{e 11731}# '(_ any each-any . each-any)))) - (if #{tmp 12153}# + (if #{tmp 11733}# (@apply - (lambda (#{val 12178}# #{key 12179}# #{m 12180}#) + (lambda (#{val 11758}# #{key 11759}# #{m 11760}#) (if (and-map - (lambda (#{x 12181}#) - (if (if (symbol? #{x 12181}#) + (lambda (#{x 11761}#) + (if (if (symbol? #{x 11761}#) #t - (if (if (vector? #{x 12181}#) - (if (= (vector-length #{x 12181}#) 4) - (eq? (vector-ref #{x 12181}# 0) + (if (if (vector? #{x 11761}#) + (if (= (vector-length #{x 11761}#) 4) + (eq? (vector-ref #{x 11761}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 12181}# 1)) + (symbol? (vector-ref #{x 11761}# 1)) #f)) - (not (if (if (if (vector? #{x 12181}#) - (if (= (vector-length #{x 12181}#) + (not (if (if (if (vector? #{x 11761}#) + (if (= (vector-length #{x 11761}#) 4) - (eq? (vector-ref #{x 12181}# 0) + (eq? (vector-ref #{x 11761}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 12181}# 1)) + (symbol? (vector-ref #{x 11761}# 1)) #f) - (if (eq? (if (if (vector? #{x 12181}#) + (if (eq? (if (if (vector? #{x 11761}#) (if (= (vector-length - #{x 12181}#) + #{x 11761}#) 4) (eq? (vector-ref - #{x 12181}# + #{x 11761}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 12181}# 1) - #{x 12181}#) + (vector-ref #{x 11761}# 1) + #{x 11761}#) (if (if (= (vector-length '#(syntax-object ... @@ -19942,7 +20099,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -20375,7 +20532,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -20792,10 +20949,10 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4320}# - #{x 12181}# + (eq? (#{id-var-name 4321}# + #{x 11761}# '(())) - (#{id-var-name 4320}# + (#{id-var-name 4321}# '#(syntax-object ... ((top) @@ -20804,7 +20961,7 @@ #(ribcage #(x) #((top)) - #("i2218")) + #("i2219")) #(ribcage (lambda-var-list gen-var @@ -21225,591 +21382,591 @@ #f) #f)) #f)) - #{key 12179}#) - (let ((#{x 12307}# + #{key 11759}#) + (let ((#{x 11887}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 4268}# - #{s 12149}# - (let ((#{req 12442}# (list 'tmp)) - (#{vars 12444}# (list #{x 12307}#)) - (#{exp 12446}# - (#{gen-syntax-case 12145}# + (#{build-application 4269}# + #{s 11729}# + (let ((#{req 12017}# (list 'tmp)) + (#{vars 12019}# (list #{x 11887}#)) + (#{exp 12021}# + (#{gen-syntax-case 11725}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 12307}#) - #{key 12179}# - #{m 12180}# - #{r 12147}# - #{mod 12150}#))) - (let ((#{body 12451}# + #{x 11887}#) + #{key 11759}# + #{m 11760}# + #{r 11727}# + #{mod 11730}#))) + (let ((#{body 12026}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 12442}# + #{req 12017}# #f #f #f '() - #{vars 12444}# - #{exp 12446}# + #{vars 12019}# + #{exp 12021}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 12451}#))) - (list (#{expand 4333}# - #{val 12178}# - #{r 12147}# + #{body 12026}#))) + (list (#{expand 4334}# + #{val 11758}# + #{r 11727}# '(()) - #{mod 12150}#)))) + #{mod 11730}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 12151}#))) - #{tmp 12153}#) + #{e 11731}#))) + #{tmp 11733}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12151}#))))))) + #{e 11731}#))))))) (set! macroexpand (lambda* - (#{x 14909}# + (#{x 14464}# #:optional - (#{m 14910}# 'e) - (#{esew 14911}# '(eval))) - (#{expand-top-sequence 4329}# - (list #{x 14909}#) + (#{m 14465}# 'e) + (#{esew 14466}# '(eval))) + (#{expand-top-sequence 4330}# + (list #{x 14464}#) '() '((top)) #f - #{m 14910}# - #{esew 14911}# + #{m 14465}# + #{esew 14466}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 14914}#) - (if (if (vector? #{x 14914}#) - (if (= (vector-length #{x 14914}#) 4) - (eq? (vector-ref #{x 14914}# 0) 'syntax-object) + (lambda (#{x 14469}#) + (if (if (vector? #{x 14469}#) + (if (= (vector-length #{x 14469}#) 4) + (eq? (vector-ref #{x 14469}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14914}# 1)) + (symbol? (vector-ref #{x 14469}# 1)) #f))) (set! datum->syntax - (lambda (#{id 14939}# #{datum 14940}#) - (let ((#{wrap 14945}# (vector-ref #{id 14939}# 2)) - (#{module 14946}# (vector-ref #{id 14939}# 3))) + (lambda (#{id 14494}# #{datum 14495}#) + (let ((#{wrap 14500}# (vector-ref #{id 14494}# 2)) + (#{module 14501}# (vector-ref #{id 14494}# 3))) (vector 'syntax-object - #{datum 14940}# - #{wrap 14945}# - #{module 14946}#)))) + #{datum 14495}# + #{wrap 14500}# + #{module 14501}#)))) (set! syntax->datum - (lambda (#{x 14953}#) - (#{strip 4346}# #{x 14953}# '(())))) + (lambda (#{x 14508}#) + (#{strip 4347}# #{x 14508}# '(())))) (set! syntax-source - (lambda (#{x 14956}#) - (#{source-annotation 4294}# #{x 14956}#))) + (lambda (#{x 14511}#) + (#{source-annotation 4295}# #{x 14511}#))) (set! generate-temporaries - (lambda (#{ls 15128}#) + (lambda (#{ls 14664}#) (begin - (if (not (list? #{ls 15128}#)) + (if (not (list? #{ls 14664}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 15128}#)) - (let ((#{mod 15136}# + #{ls 14664}#)) + (let ((#{mod 14672}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 15137}#) - (#{wrap 4326}# (gensym) '((top)) #{mod 15136}#)) - #{ls 15128}#))))) + (map (lambda (#{x 14673}#) + (#{wrap 4327}# (gensym) '((top)) #{mod 14672}#)) + #{ls 14664}#))))) (set! free-identifier=? - (lambda (#{x 15141}# #{y 15142}#) + (lambda (#{x 14677}# #{y 14678}#) (begin - (if (not (if (if (vector? #{x 15141}#) - (if (= (vector-length #{x 15141}#) 4) - (eq? (vector-ref #{x 15141}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 14677}#) + (if (= (vector-length #{x 14677}#) 4) + (eq? (vector-ref #{x 14677}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 15141}# 1)) + (symbol? (vector-ref #{x 14677}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 15141}#)) - (if (not (if (if (vector? #{y 15142}#) - (if (= (vector-length #{y 15142}#) 4) - (eq? (vector-ref #{y 15142}# 0) 'syntax-object) + #{x 14677}#)) + (if (not (if (if (vector? #{y 14678}#) + (if (= (vector-length #{y 14678}#) 4) + (eq? (vector-ref #{y 14678}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 15142}# 1)) + (symbol? (vector-ref #{y 14678}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 15142}#)) - (if (eq? (if (if (vector? #{x 15141}#) - (if (= (vector-length #{x 15141}#) 4) - (eq? (vector-ref #{x 15141}# 0) 'syntax-object) + #{y 14678}#)) + (if (eq? (if (if (vector? #{x 14677}#) + (if (= (vector-length #{x 14677}#) 4) + (eq? (vector-ref #{x 14677}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 15141}# 1) - #{x 15141}#) - (if (if (vector? #{y 15142}#) - (if (= (vector-length #{y 15142}#) 4) - (eq? (vector-ref #{y 15142}# 0) 'syntax-object) + (vector-ref #{x 14677}# 1) + #{x 14677}#) + (if (if (vector? #{y 14678}#) + (if (= (vector-length #{y 14678}#) 4) + (eq? (vector-ref #{y 14678}# 0) 'syntax-object) #f) #f) - (vector-ref #{y 15142}# 1) - #{y 15142}#)) - (eq? (#{id-var-name 4320}# #{x 15141}# '(())) - (#{id-var-name 4320}# #{y 15142}# '(()))) + (vector-ref #{y 14678}# 1) + #{y 14678}#)) + (eq? (#{id-var-name 4321}# #{x 14677}# '(())) + (#{id-var-name 4321}# #{y 14678}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x 15292}# #{y 15293}#) + (lambda (#{x 14828}# #{y 14829}#) (begin - (if (not (if (if (vector? #{x 15292}#) - (if (= (vector-length #{x 15292}#) 4) - (eq? (vector-ref #{x 15292}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 14828}#) + (if (= (vector-length #{x 14828}#) 4) + (eq? (vector-ref #{x 14828}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 15292}# 1)) + (symbol? (vector-ref #{x 14828}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 15292}#)) - (if (not (if (if (vector? #{y 15293}#) - (if (= (vector-length #{y 15293}#) 4) - (eq? (vector-ref #{y 15293}# 0) 'syntax-object) + #{x 14828}#)) + (if (not (if (if (vector? #{y 14829}#) + (if (= (vector-length #{y 14829}#) 4) + (eq? (vector-ref #{y 14829}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 15293}# 1)) + (symbol? (vector-ref #{y 14829}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 15293}#)) - (if (if (if (vector? #{x 15292}#) - (if (= (vector-length #{x 15292}#) 4) - (eq? (vector-ref #{x 15292}# 0) 'syntax-object) + #{y 14829}#)) + (if (if (if (vector? #{x 14828}#) + (if (= (vector-length #{x 14828}#) 4) + (eq? (vector-ref #{x 14828}# 0) 'syntax-object) #f) #f) - (if (vector? #{y 15293}#) - (if (= (vector-length #{y 15293}#) 4) - (eq? (vector-ref #{y 15293}# 0) 'syntax-object) + (if (vector? #{y 14829}#) + (if (= (vector-length #{y 14829}#) 4) + (eq? (vector-ref #{y 14829}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 15292}# 1) - (vector-ref #{y 15293}# 1)) - (#{same-marks? 4319}# - (car (vector-ref #{x 15292}# 2)) - (car (vector-ref #{y 15293}# 2))) + (if (eq? (vector-ref #{x 14828}# 1) + (vector-ref #{y 14829}# 1)) + (#{same-marks? 4320}# + (car (vector-ref #{x 14828}# 2)) + (car (vector-ref #{y 14829}# 2))) #f) - (eq? #{x 15292}# #{y 15293}#))))) + (eq? #{x 14828}# #{y 14829}#))))) (set! syntax-violation (lambda* - (#{who 15426}# - #{message 15427}# - #{form 15428}# + (#{who 14962}# + #{message 14963}# + #{form 14964}# #:optional - (#{subform 15429}# #f)) + (#{subform 14965}# #f)) (begin - (if (not (if (not #{who 15426}#) - (not #{who 15426}#) - (let ((#{t 15447}# (string? #{who 15426}#))) - (if #{t 15447}# - #{t 15447}# - (symbol? #{who 15426}#))))) + (if (not (if (not #{who 14962}#) + (not #{who 14962}#) + (let ((#{t 14983}# (string? #{who 14962}#))) + (if #{t 14983}# + #{t 14983}# + (symbol? #{who 14962}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 15426}#)) - (if (not (string? #{message 15427}#)) + #{who 14962}#)) + (if (not (string? #{message 14963}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message 15427}#)) + #{message 14963}#)) (throw 'syntax-error - #{who 15426}# - #{message 15427}# - (#{source-annotation 4294}# - (if #{form 15428}# - #{form 15428}# - #{subform 15429}#)) - (#{strip 4346}# #{form 15428}# '(())) - (if #{subform 15429}# - (#{strip 4346}# #{subform 15429}# '(())) + #{who 14962}# + #{message 14963}# + (#{source-annotation 4295}# + (if #{form 14964}# + #{form 14964}# + #{subform 14965}#)) + (#{strip 4347}# #{form 14964}# '(())) + (if #{subform 14965}# + (#{strip 4347}# #{subform 14965}# '(())) #f))))) (letrec* - ((#{match-each 15670}# - (lambda (#{e 16293}# - #{p 16294}# - #{w 16295}# - #{mod 16296}#) - (if (pair? #{e 16293}#) - (let ((#{first 16297}# - (#{match 15676}# - (car #{e 16293}#) - #{p 16294}# - #{w 16295}# + ((#{match-each 15186}# + (lambda (#{e 15773}# + #{p 15774}# + #{w 15775}# + #{mod 15776}#) + (if (pair? #{e 15773}#) + (let ((#{first 15777}# + (#{match 15192}# + (car #{e 15773}#) + #{p 15774}# + #{w 15775}# '() - #{mod 16296}#))) - (if #{first 16297}# - (let ((#{rest 16300}# - (#{match-each 15670}# - (cdr #{e 16293}#) - #{p 16294}# - #{w 16295}# - #{mod 16296}#))) - (if #{rest 16300}# - (cons #{first 16297}# #{rest 16300}#) + #{mod 15776}#))) + (if #{first 15777}# + (let ((#{rest 15780}# + (#{match-each 15186}# + (cdr #{e 15773}#) + #{p 15774}# + #{w 15775}# + #{mod 15776}#))) + (if #{rest 15780}# + (cons #{first 15777}# #{rest 15780}#) #f)) #f)) - (if (null? #{e 16293}#) + (if (null? #{e 15773}#) '() - (if (if (vector? #{e 16293}#) - (if (= (vector-length #{e 16293}#) 4) - (eq? (vector-ref #{e 16293}# 0) 'syntax-object) + (if (if (vector? #{e 15773}#) + (if (= (vector-length #{e 15773}#) 4) + (eq? (vector-ref #{e 15773}# 0) 'syntax-object) #f) #f) - (#{match-each 15670}# - (vector-ref #{e 16293}# 1) - #{p 16294}# - (#{join-wraps 4317}# - #{w 16295}# - (vector-ref #{e 16293}# 2)) - (vector-ref #{e 16293}# 3)) + (#{match-each 15186}# + (vector-ref #{e 15773}# 1) + #{p 15774}# + (#{join-wraps 4318}# + #{w 15775}# + (vector-ref #{e 15773}# 2)) + (vector-ref #{e 15773}# 3)) #f))))) - (#{match-each-any 15672}# - (lambda (#{e 16328}# #{w 16329}# #{mod 16330}#) - (if (pair? #{e 16328}#) - (let ((#{l 16331}# - (#{match-each-any 15672}# - (cdr #{e 16328}#) - #{w 16329}# - #{mod 16330}#))) - (if #{l 16331}# - (cons (#{wrap 4326}# - (car #{e 16328}#) - #{w 16329}# - #{mod 16330}#) - #{l 16331}#) + (#{match-each-any 15188}# + (lambda (#{e 15808}# #{w 15809}# #{mod 15810}#) + (if (pair? #{e 15808}#) + (let ((#{l 15811}# + (#{match-each-any 15188}# + (cdr #{e 15808}#) + #{w 15809}# + #{mod 15810}#))) + (if #{l 15811}# + (cons (#{wrap 4327}# + (car #{e 15808}#) + #{w 15809}# + #{mod 15810}#) + #{l 15811}#) #f)) - (if (null? #{e 16328}#) + (if (null? #{e 15808}#) '() - (if (if (vector? #{e 16328}#) - (if (= (vector-length #{e 16328}#) 4) - (eq? (vector-ref #{e 16328}# 0) 'syntax-object) + (if (if (vector? #{e 15808}#) + (if (= (vector-length #{e 15808}#) 4) + (eq? (vector-ref #{e 15808}# 0) 'syntax-object) #f) #f) - (#{match-each-any 15672}# - (vector-ref #{e 16328}# 1) - (#{join-wraps 4317}# - #{w 16329}# - (vector-ref #{e 16328}# 2)) - #{mod 16330}#) + (#{match-each-any 15188}# + (vector-ref #{e 15808}# 1) + (#{join-wraps 4318}# + #{w 15809}# + (vector-ref #{e 15808}# 2)) + #{mod 15810}#) #f))))) - (#{match-empty 15673}# - (lambda (#{p 16355}# #{r 16356}#) - (if (null? #{p 16355}#) - #{r 16356}# - (if (eq? #{p 16355}# '_) - #{r 16356}# - (if (eq? #{p 16355}# 'any) - (cons '() #{r 16356}#) - (if (pair? #{p 16355}#) - (#{match-empty 15673}# - (car #{p 16355}#) - (#{match-empty 15673}# - (cdr #{p 16355}#) - #{r 16356}#)) - (if (eq? #{p 16355}# 'each-any) - (cons '() #{r 16356}#) - (let ((#{atom-key 16357}# (vector-ref #{p 16355}# 0))) - (if (eqv? #{atom-key 16357}# 'each) - (#{match-empty 15673}# - (vector-ref #{p 16355}# 1) - #{r 16356}#) - (if (eqv? #{atom-key 16357}# 'each+) - (#{match-empty 15673}# - (vector-ref #{p 16355}# 1) - (#{match-empty 15673}# - (reverse (vector-ref #{p 16355}# 2)) - (#{match-empty 15673}# - (vector-ref #{p 16355}# 3) - #{r 16356}#))) - (if (if (eqv? #{atom-key 16357}# 'free-id) + (#{match-empty 15189}# + (lambda (#{p 15835}# #{r 15836}#) + (if (null? #{p 15835}#) + #{r 15836}# + (if (eq? #{p 15835}# '_) + #{r 15836}# + (if (eq? #{p 15835}# 'any) + (cons '() #{r 15836}#) + (if (pair? #{p 15835}#) + (#{match-empty 15189}# + (car #{p 15835}#) + (#{match-empty 15189}# + (cdr #{p 15835}#) + #{r 15836}#)) + (if (eq? #{p 15835}# 'each-any) + (cons '() #{r 15836}#) + (let ((#{atom-key 15837}# (vector-ref #{p 15835}# 0))) + (if (eqv? #{atom-key 15837}# 'each) + (#{match-empty 15189}# + (vector-ref #{p 15835}# 1) + #{r 15836}#) + (if (eqv? #{atom-key 15837}# 'each+) + (#{match-empty 15189}# + (vector-ref #{p 15835}# 1) + (#{match-empty 15189}# + (reverse (vector-ref #{p 15835}# 2)) + (#{match-empty 15189}# + (vector-ref #{p 15835}# 3) + #{r 15836}#))) + (if (if (eqv? #{atom-key 15837}# 'free-id) #t - (eqv? #{atom-key 16357}# 'atom)) - #{r 16356}# - (if (eqv? #{atom-key 16357}# 'vector) - (#{match-empty 15673}# - (vector-ref #{p 16355}# 1) - #{r 16356}#))))))))))))) - (#{combine 15674}# - (lambda (#{r* 16376}# #{r 16377}#) - (if (null? (car #{r* 16376}#)) - #{r 16377}# - (cons (map car #{r* 16376}#) - (#{combine 15674}# - (map cdr #{r* 16376}#) - #{r 16377}#))))) - (#{match* 15675}# - (lambda (#{e 15705}# - #{p 15706}# - #{w 15707}# - #{r 15708}# - #{mod 15709}#) - (if (null? #{p 15706}#) - (if (null? #{e 15705}#) #{r 15708}# #f) - (if (pair? #{p 15706}#) - (if (pair? #{e 15705}#) - (#{match 15676}# - (car #{e 15705}#) - (car #{p 15706}#) - #{w 15707}# - (#{match 15676}# - (cdr #{e 15705}#) - (cdr #{p 15706}#) - #{w 15707}# - #{r 15708}# - #{mod 15709}#) - #{mod 15709}#) + (eqv? #{atom-key 15837}# 'atom)) + #{r 15836}# + (if (eqv? #{atom-key 15837}# 'vector) + (#{match-empty 15189}# + (vector-ref #{p 15835}# 1) + #{r 15836}#))))))))))))) + (#{combine 15190}# + (lambda (#{r* 15856}# #{r 15857}#) + (if (null? (car #{r* 15856}#)) + #{r 15857}# + (cons (map car #{r* 15856}#) + (#{combine 15190}# + (map cdr #{r* 15856}#) + #{r 15857}#))))) + (#{match* 15191}# + (lambda (#{e 15221}# + #{p 15222}# + #{w 15223}# + #{r 15224}# + #{mod 15225}#) + (if (null? #{p 15222}#) + (if (null? #{e 15221}#) #{r 15224}# #f) + (if (pair? #{p 15222}#) + (if (pair? #{e 15221}#) + (#{match 15192}# + (car #{e 15221}#) + (car #{p 15222}#) + #{w 15223}# + (#{match 15192}# + (cdr #{e 15221}#) + (cdr #{p 15222}#) + #{w 15223}# + #{r 15224}# + #{mod 15225}#) + #{mod 15225}#) #f) - (if (eq? #{p 15706}# 'each-any) - (let ((#{l 15714}# - (#{match-each-any 15672}# - #{e 15705}# - #{w 15707}# - #{mod 15709}#))) - (if #{l 15714}# - (cons #{l 15714}# #{r 15708}#) + (if (eq? #{p 15222}# 'each-any) + (let ((#{l 15230}# + (#{match-each-any 15188}# + #{e 15221}# + #{w 15223}# + #{mod 15225}#))) + (if #{l 15230}# + (cons #{l 15230}# #{r 15224}#) #f)) - (let ((#{atom-key 15719}# (vector-ref #{p 15706}# 0))) - (if (eqv? #{atom-key 15719}# 'each) - (if (null? #{e 15705}#) - (#{match-empty 15673}# - (vector-ref #{p 15706}# 1) - #{r 15708}#) - (let ((#{l 15726}# - (#{match-each 15670}# - #{e 15705}# - (vector-ref #{p 15706}# 1) - #{w 15707}# - #{mod 15709}#))) - (if #{l 15726}# + (let ((#{atom-key 15235}# (vector-ref #{p 15222}# 0))) + (if (eqv? #{atom-key 15235}# 'each) + (if (null? #{e 15221}#) + (#{match-empty 15189}# + (vector-ref #{p 15222}# 1) + #{r 15224}#) + (let ((#{l 15242}# + (#{match-each 15186}# + #{e 15221}# + (vector-ref #{p 15222}# 1) + #{w 15223}# + #{mod 15225}#))) + (if #{l 15242}# (letrec* - ((#{collect 15729}# - (lambda (#{l 15782}#) - (if (null? (car #{l 15782}#)) - #{r 15708}# - (cons (map car #{l 15782}#) - (#{collect 15729}# - (map cdr #{l 15782}#))))))) - (#{collect 15729}# #{l 15726}#)) + ((#{collect 15245}# + (lambda (#{l 15296}#) + (if (null? (car #{l 15296}#)) + #{r 15224}# + (cons (map car #{l 15296}#) + (#{collect 15245}# + (map cdr #{l 15296}#))))))) + (#{collect 15245}# #{l 15242}#)) #f))) - (if (eqv? #{atom-key 15719}# 'each+) + (if (eqv? #{atom-key 15235}# 'each+) (call-with-values (lambda () - (let ((#{x-pat 15791}# (vector-ref #{p 15706}# 1)) - (#{y-pat 15792}# (vector-ref #{p 15706}# 2)) - (#{z-pat 15793}# (vector-ref #{p 15706}# 3))) + (let ((#{x-pat 15305}# (vector-ref #{p 15222}# 1)) + (#{y-pat 15306}# (vector-ref #{p 15222}# 2)) + (#{z-pat 15307}# (vector-ref #{p 15222}# 3))) (letrec* - ((#{f 15797}# - (lambda (#{e 15799}# #{w 15800}#) - (if (pair? #{e 15799}#) + ((#{f 15311}# + (lambda (#{e 15313}# #{w 15314}#) + (if (pair? #{e 15313}#) (call-with-values (lambda () - (#{f 15797}# - (cdr #{e 15799}#) - #{w 15800}#)) - (lambda (#{xr* 15801}# - #{y-pat 15802}# - #{r 15803}#) - (if #{r 15803}# - (if (null? #{y-pat 15802}#) - (let ((#{xr 15804}# - (#{match 15676}# - (car #{e 15799}#) - #{x-pat 15791}# - #{w 15800}# + (#{f 15311}# + (cdr #{e 15313}#) + #{w 15314}#)) + (lambda (#{xr* 15315}# + #{y-pat 15316}# + #{r 15317}#) + (if #{r 15317}# + (if (null? #{y-pat 15316}#) + (let ((#{xr 15318}# + (#{match 15192}# + (car #{e 15313}#) + #{x-pat 15305}# + #{w 15314}# '() - #{mod 15709}#))) - (if #{xr 15804}# + #{mod 15225}#))) + (if #{xr 15318}# (values - (cons #{xr 15804}# - #{xr* 15801}#) - #{y-pat 15802}# - #{r 15803}#) + (cons #{xr 15318}# + #{xr* 15315}#) + #{y-pat 15316}# + #{r 15317}#) (values #f #f #f))) (values '() - (cdr #{y-pat 15802}#) - (#{match 15676}# - (car #{e 15799}#) - (car #{y-pat 15802}#) - #{w 15800}# - #{r 15803}# - #{mod 15709}#))) + (cdr #{y-pat 15316}#) + (#{match 15192}# + (car #{e 15313}#) + (car #{y-pat 15316}#) + #{w 15314}# + #{r 15317}# + #{mod 15225}#))) (values #f #f #f)))) - (if (if (vector? #{e 15799}#) - (if (= (vector-length #{e 15799}#) + (if (if (vector? #{e 15313}#) + (if (= (vector-length #{e 15313}#) 4) - (eq? (vector-ref #{e 15799}# 0) + (eq? (vector-ref #{e 15313}# 0) 'syntax-object) #f) #f) - (#{f 15797}# - (vector-ref #{e 15799}# 1) - (#{join-wraps 4317}# - #{w 15800}# - #{e 15799}#)) + (#{f 15311}# + (vector-ref #{e 15313}# 1) + (#{join-wraps 4318}# + #{w 15314}# + #{e 15313}#)) (values '() - #{y-pat 15792}# - (#{match 15676}# - #{e 15799}# - #{z-pat 15793}# - #{w 15800}# - #{r 15708}# - #{mod 15709}#))))))) - (#{f 15797}# #{e 15705}# #{w 15707}#)))) - (lambda (#{xr* 15832}# #{y-pat 15833}# #{r 15834}#) - (if #{r 15834}# - (if (null? #{y-pat 15833}#) - (if (null? #{xr* 15832}#) - (#{match-empty 15673}# - (vector-ref #{p 15706}# 1) - #{r 15834}#) - (#{combine 15674}# #{xr* 15832}# #{r 15834}#)) + #{y-pat 15306}# + (#{match 15192}# + #{e 15313}# + #{z-pat 15307}# + #{w 15314}# + #{r 15224}# + #{mod 15225}#))))))) + (#{f 15311}# #{e 15221}# #{w 15223}#)))) + (lambda (#{xr* 15344}# #{y-pat 15345}# #{r 15346}#) + (if #{r 15346}# + (if (null? #{y-pat 15345}#) + (if (null? #{xr* 15344}#) + (#{match-empty 15189}# + (vector-ref #{p 15222}# 1) + #{r 15346}#) + (#{combine 15190}# #{xr* 15344}# #{r 15346}#)) #f) #f))) - (if (eqv? #{atom-key 15719}# 'free-id) - (if (if (symbol? #{e 15705}#) + (if (eqv? #{atom-key 15235}# 'free-id) + (if (if (symbol? #{e 15221}#) #t - (if (if (vector? #{e 15705}#) - (if (= (vector-length #{e 15705}#) 4) - (eq? (vector-ref #{e 15705}# 0) + (if (if (vector? #{e 15221}#) + (if (= (vector-length #{e 15221}#) 4) + (eq? (vector-ref #{e 15221}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 15705}# 1)) + (symbol? (vector-ref #{e 15221}# 1)) #f)) - (if (let ((#{i 16197}# - (#{wrap 4326}# - #{e 15705}# - #{w 15707}# - #{mod 15709}#)) - (#{j 16198}# (vector-ref #{p 15706}# 1))) - (if (eq? (if (if (vector? #{i 16197}#) + (if (let ((#{i 15677}# + (#{wrap 4327}# + #{e 15221}# + #{w 15223}# + #{mod 15225}#)) + (#{j 15678}# (vector-ref #{p 15222}# 1))) + (if (eq? (if (if (vector? #{i 15677}#) (if (= (vector-length - #{i 16197}#) + #{i 15677}#) 4) (eq? (vector-ref - #{i 16197}# + #{i 15677}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 16197}# 1) - #{i 16197}#) - (if (if (vector? #{j 16198}#) + (vector-ref #{i 15677}# 1) + #{i 15677}#) + (if (if (vector? #{j 15678}#) (if (= (vector-length - #{j 16198}#) + #{j 15678}#) 4) (eq? (vector-ref - #{j 16198}# + #{j 15678}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 16198}# 1) - #{j 16198}#)) - (eq? (#{id-var-name 4320}# - #{i 16197}# + (vector-ref #{j 15678}# 1) + #{j 15678}#)) + (eq? (#{id-var-name 4321}# + #{i 15677}# '(())) - (#{id-var-name 4320}# - #{j 16198}# + (#{id-var-name 4321}# + #{j 15678}# '(()))) #f)) - #{r 15708}# + #{r 15224}# #f) #f) - (if (eqv? #{atom-key 15719}# 'atom) + (if (eqv? #{atom-key 15235}# 'atom) (if (equal? - (vector-ref #{p 15706}# 1) - (#{strip 4346}# #{e 15705}# #{w 15707}#)) - #{r 15708}# + (vector-ref #{p 15222}# 1) + (#{strip 4347}# #{e 15221}# #{w 15223}#)) + #{r 15224}# #f) - (if (eqv? #{atom-key 15719}# 'vector) - (if (vector? #{e 15705}#) - (#{match 15676}# - (vector->list #{e 15705}#) - (vector-ref #{p 15706}# 1) - #{w 15707}# - #{r 15708}# - #{mod 15709}#) + (if (eqv? #{atom-key 15235}# 'vector) + (if (vector? #{e 15221}#) + (#{match 15192}# + (vector->list #{e 15221}#) + (vector-ref #{p 15222}# 1) + #{w 15223}# + #{r 15224}# + #{mod 15225}#) #f)))))))))))) - (#{match 15676}# - (lambda (#{e 16258}# - #{p 16259}# - #{w 16260}# - #{r 16261}# - #{mod 16262}#) - (if (not #{r 16261}#) + (#{match 15192}# + (lambda (#{e 15738}# + #{p 15739}# + #{w 15740}# + #{r 15741}# + #{mod 15742}#) + (if (not #{r 15741}#) #f - (if (eq? #{p 16259}# '_) - #{r 16261}# - (if (eq? #{p 16259}# 'any) - (cons (#{wrap 4326}# - #{e 16258}# - #{w 16260}# - #{mod 16262}#) - #{r 16261}#) - (if (if (vector? #{e 16258}#) - (if (= (vector-length #{e 16258}#) 4) - (eq? (vector-ref #{e 16258}# 0) 'syntax-object) + (if (eq? #{p 15739}# '_) + #{r 15741}# + (if (eq? #{p 15739}# 'any) + (cons (#{wrap 4327}# + #{e 15738}# + #{w 15740}# + #{mod 15742}#) + #{r 15741}#) + (if (if (vector? #{e 15738}#) + (if (= (vector-length #{e 15738}#) 4) + (eq? (vector-ref #{e 15738}# 0) 'syntax-object) #f) #f) - (#{match* 15675}# - (vector-ref #{e 16258}# 1) - #{p 16259}# - (#{join-wraps 4317}# - #{w 16260}# - (vector-ref #{e 16258}# 2)) - #{r 16261}# - (vector-ref #{e 16258}# 3)) - (#{match* 15675}# - #{e 16258}# - #{p 16259}# - #{w 16260}# - #{r 16261}# - #{mod 16262}#)))))))) + (#{match* 15191}# + (vector-ref #{e 15738}# 1) + #{p 15739}# + (#{join-wraps 4318}# + #{w 15740}# + (vector-ref #{e 15738}# 2)) + #{r 15741}# + (vector-ref #{e 15738}# 3)) + (#{match* 15191}# + #{e 15738}# + #{p 15739}# + #{w 15740}# + #{r 15741}# + #{mod 15742}#)))))))) (set! $sc-dispatch - (lambda (#{e 15677}# #{p 15678}#) - (if (eq? #{p 15678}# 'any) - (list #{e 15677}#) - (if (eq? #{p 15678}# '_) + (lambda (#{e 15193}# #{p 15194}#) + (if (eq? #{p 15194}# 'any) + (list #{e 15193}#) + (if (eq? #{p 15194}# '_) '() - (if (if (vector? #{e 15677}#) - (if (= (vector-length #{e 15677}#) 4) - (eq? (vector-ref #{e 15677}# 0) 'syntax-object) + (if (if (vector? #{e 15193}#) + (if (= (vector-length #{e 15193}#) 4) + (eq? (vector-ref #{e 15193}# 0) 'syntax-object) #f) #f) - (#{match* 15675}# - (vector-ref #{e 15677}# 1) - #{p 15678}# - (vector-ref #{e 15677}# 2) + (#{match* 15191}# + (vector-ref #{e 15193}# 1) + #{p 15194}# + (vector-ref #{e 15193}# 2) '() - (vector-ref #{e 15677}# 3)) - (#{match* 15675}# - #{e 15677}# - #{p 15678}# + (vector-ref #{e 15193}# 3)) + (#{match* 15191}# + #{e 15193}# + #{p 15194}# '(()) '() #f))))))))) @@ -21818,82 +21975,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 28920}#) - (let ((#{tmp 28922}# - ($sc-dispatch #{x 28920}# '(_ () any . each-any)))) - (if #{tmp 28922}# + (lambda (#{x 27949}#) + (let ((#{tmp 27951}# + ($sc-dispatch #{x 27949}# '(_ () any . each-any)))) + (if #{tmp 27951}# (@apply - (lambda (#{e1 28926}# #{e2 28927}#) + (lambda (#{e1 27955}# #{e2 27956}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28893" "i28894")) + #("i27922" "i27923")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28890"))) + #(ribcage #(x) #((top)) #("i27919"))) (hygiene guile)) - (cons '() (cons #{e1 28926}# #{e2 28927}#)))) - #{tmp 28922}#) - (let ((#{tmp 28928}# + (cons '() (cons #{e1 27955}# #{e2 27956}#)))) + #{tmp 27951}#) + (let ((#{tmp 27957}# ($sc-dispatch - #{x 28920}# + #{x 27949}# '(_ ((any any)) any . each-any)))) - (if #{tmp 28928}# + (if #{tmp 27957}# (@apply - (lambda (#{out 28932}# - #{in 28933}# - #{e1 28934}# - #{e2 28935}#) + (lambda (#{out 27961}# + #{in 27962}# + #{e1 27963}# + #{e2 27964}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28899" "i28900" "i28901" "i28902")) + #("i27928" "i27929" "i27930" "i27931")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28890"))) + #(ribcage #(x) #((top)) #("i27919"))) (hygiene guile)) - #{in 28933}# + #{in 27962}# '() - (list #{out 28932}# + (list #{out 27961}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28899" - "i28900" - "i28901" - "i28902")) + #("i27928" + "i27929" + "i27930" + "i27931")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28890"))) + #(ribcage #(x) #((top)) #("i27919"))) (hygiene guile)) (cons '() - (cons #{e1 28934}# #{e2 28935}#)))))) - #{tmp 28928}#) - (let ((#{tmp 28936}# + (cons #{e1 27963}# #{e2 27964}#)))))) + #{tmp 27957}#) + (let ((#{tmp 27965}# ($sc-dispatch - #{x 28920}# + #{x 27949}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 28936}# + (if #{tmp 27965}# (@apply - (lambda (#{out 28940}# - #{in 28941}# - #{e1 28942}# - #{e2 28943}#) + (lambda (#{out 27969}# + #{in 27970}# + #{e1 27971}# + #{e2 27972}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28909" "i28910" "i28911" "i28912")) + #("i27938" "i27939" "i27940" "i27941")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28890"))) + #(ribcage #(x) #((top)) #("i27919"))) (hygiene guile)) (cons '#(syntax-object list @@ -21901,62 +22058,62 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28909" "i28910" "i28911" "i28912")) + #("i27938" "i27939" "i27940" "i27941")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28890"))) + #(ribcage #(x) #((top)) #("i27919"))) (hygiene guile)) - #{in 28941}#) + #{in 27970}#) '() - (list #{out 28940}# + (list #{out 27969}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28909" - "i28910" - "i28911" - "i28912")) + #("i27938" + "i27939" + "i27940" + "i27941")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28890"))) + #("i27919"))) (hygiene guile)) (cons '() - (cons #{e1 28942}# - #{e2 28943}#)))))) - #{tmp 28936}#) + (cons #{e1 27971}# + #{e2 27972}#)))))) + #{tmp 27965}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28920}#)))))))))) + #{x 27949}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 28997}#) - (let ((#{tmp 28999}# + (lambda (#{x 28026}#) + (let ((#{tmp 28028}# ($sc-dispatch - #{x 28997}# + #{x 28026}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 28999}# + (if #{tmp 28028}# (@apply - (lambda (#{k 29003}# - #{keyword 29004}# - #{pattern 29005}# - #{template 29006}#) + (lambda (#{k 28032}# + #{keyword 28033}# + #{pattern 28034}# + #{template 28035}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28960" "i28961" "i28962" "i28963")) + #("i27989" "i27990" "i27991" "i27992")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) '(#(syntax-object x @@ -21964,9 +22121,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28960" "i28961" "i28962" "i28963")) + #("i27989" "i27990" "i27991" "i27992")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile))) (vector '(#(syntax-object @@ -21975,9 +22132,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28960" "i28961" "i28962" "i28963")) + #("i27989" "i27990" "i27991" "i27992")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) . #(syntax-object @@ -21986,9 +22143,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28960" "i28961" "i28962" "i28963")) + #("i27989" "i27990" "i27991" "i27992")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -21996,20 +22153,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28960" "i28961" "i28962" "i28963")) + #("i27989" "i27990" "i27991" "i27992")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) - #{pattern 29005}#)) + #{pattern 28034}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28960" "i28961" "i28962" "i28963")) + #("i27989" "i27990" "i27991" "i27992")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) (cons '#(syntax-object x @@ -22017,13 +22174,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28960" "i28961" "i28962" "i28963")) + #("i27989" "i27990" "i27991" "i27992")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) - (cons #{k 29003}# - (map (lambda (#{tmp 28971 29007}# - #{tmp 28970 29008}#) + (cons #{k 28032}# + (map (lambda (#{tmp 28000 28036}# + #{tmp 27999 28037}#) (list (cons '#(syntax-object dummy ((top) @@ -22036,10 +22193,10 @@ (top) (top) (top)) - #("i28960" - "i28961" - "i28962" - "i28963")) + #("i27989" + "i27990" + "i27991" + "i27992")) #(ribcage () () @@ -22047,9 +22204,9 @@ #(ribcage #(x) #((top)) - #("i28957"))) + #("i27986"))) (hygiene guile)) - #{tmp 28970 29008}#) + #{tmp 27999 28037}#) (list '#(syntax-object syntax ((top) @@ -22062,10 +22219,10 @@ (top) (top) (top)) - #("i28960" - "i28961" - "i28962" - "i28963")) + #("i27989" + "i27990" + "i27991" + "i27992")) #(ribcage () () @@ -22073,41 +22230,41 @@ #(ribcage #(x) #((top)) - #("i28957"))) + #("i27986"))) (hygiene guile)) - #{tmp 28971 29007}#))) - #{template 29006}# - #{pattern 29005}#)))))) - #{tmp 28999}#) - (let ((#{tmp 29009}# + #{tmp 28000 28036}#))) + #{template 28035}# + #{pattern 28034}#)))))) + #{tmp 28028}#) + (let ((#{tmp 28038}# ($sc-dispatch - #{x 28997}# + #{x 28026}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 29009}# + (if (if #{tmp 28038}# (@apply - (lambda (#{k 29013}# - #{docstring 29014}# - #{keyword 29015}# - #{pattern 29016}# - #{template 29017}#) - (string? (syntax->datum #{docstring 29014}#))) - #{tmp 29009}#) + (lambda (#{k 28042}# + #{docstring 28043}# + #{keyword 28044}# + #{pattern 28045}# + #{template 28046}#) + (string? (syntax->datum #{docstring 28043}#))) + #{tmp 28038}#) #f) (@apply - (lambda (#{k 29018}# - #{docstring 29019}# - #{keyword 29020}# - #{pattern 29021}# - #{template 29022}#) + (lambda (#{k 28047}# + #{docstring 28048}# + #{keyword 28049}# + #{pattern 28050}# + #{template 28051}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28983" "i28984" "i28985" "i28986" "i28987")) + #("i28012" "i28013" "i28014" "i28015" "i28016")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) '(#(syntax-object x @@ -22115,11 +22272,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28983" "i28984" "i28985" "i28986" "i28987")) + #("i28012" "i28013" "i28014" "i28015" "i28016")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile))) - #{docstring 29019}# + #{docstring 28048}# (vector '(#(syntax-object macro-type @@ -22127,13 +22284,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28983" - "i28984" - "i28985" - "i28986" - "i28987")) + #("i28012" + "i28013" + "i28014" + "i28015" + "i28016")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) . #(syntax-object @@ -22142,13 +22299,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28983" - "i28984" - "i28985" - "i28986" - "i28987")) + #("i28012" + "i28013" + "i28014" + "i28015" + "i28016")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22156,28 +22313,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28983" - "i28984" - "i28985" - "i28986" - "i28987")) + #("i28012" + "i28013" + "i28014" + "i28015" + "i28016")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) - #{pattern 29021}#)) + #{pattern 28050}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28983" - "i28984" - "i28985" - "i28986" - "i28987")) + #("i28012" + "i28013" + "i28014" + "i28015" + "i28016")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) (cons '#(syntax-object x @@ -22189,17 +22346,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i28983" - "i28984" - "i28985" - "i28986" - "i28987")) + #("i28012" + "i28013" + "i28014" + "i28015" + "i28016")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28957"))) + #(ribcage #(x) #((top)) #("i27986"))) (hygiene guile)) - (cons #{k 29018}# - (map (lambda (#{tmp 28996 29023}# - #{tmp 28995 29024}#) + (cons #{k 28047}# + (map (lambda (#{tmp 28025 28052}# + #{tmp 28024 28053}#) (list (cons '#(syntax-object dummy ((top) @@ -22214,11 +22371,11 @@ (top) (top) (top)) - #("i28983" - "i28984" - "i28985" - "i28986" - "i28987")) + #("i28012" + "i28013" + "i28014" + "i28015" + "i28016")) #(ribcage () () @@ -22226,10 +22383,10 @@ #(ribcage #(x) #((top)) - #("i28957"))) + #("i27986"))) (hygiene guile)) - #{tmp 28995 29024}#) + #{tmp 28024 28053}#) (list '#(syntax-object syntax ((top) @@ -22244,11 +22401,11 @@ (top) (top) (top)) - #("i28983" - "i28984" - "i28985" - "i28986" - "i28987")) + #("i28012" + "i28013" + "i28014" + "i28015" + "i28016")) #(ribcage () () @@ -22256,50 +22413,50 @@ #(ribcage #(x) #((top)) - #("i28957"))) + #("i27986"))) (hygiene guile)) - #{tmp 28996 29023}#))) - #{template 29022}# - #{pattern 29021}#)))))) - #{tmp 29009}#) + #{tmp 28025 28052}#))) + #{template 28051}# + #{pattern 28050}#)))))) + #{tmp 28038}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28997}#)))))))) + #{x 28026}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 29061}#) - (let ((#{tmp 29063}# - ($sc-dispatch #{x 29061}# '(_ (any . any) any)))) - (if #{tmp 29063}# + (lambda (#{x 28090}#) + (let ((#{tmp 28092}# + ($sc-dispatch #{x 28090}# '(_ (any . any) any)))) + (if #{tmp 28092}# (@apply - (lambda (#{name 29067}# - #{pattern 29068}# - #{template 29069}#) + (lambda (#{name 28096}# + #{pattern 28097}# + #{template 28098}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i29038" "i29039" "i29040")) + #("i28067" "i28068" "i28069")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29035"))) + #(ribcage #(x) #((top)) #("i28064"))) (hygiene guile)) - #{name 29067}# + #{name 28096}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i29038" "i29039" "i29040")) + #("i28067" "i28068" "i28069")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29035"))) + #(ribcage #(x) #((top)) #("i28064"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22308,54 +22465,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i29038" "i29039" "i29040")) + #("i28067" "i28068" "i28069")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29035"))) + #(ribcage #(x) #((top)) #("i28064"))) (hygiene guile)) - #{pattern 29068}#) - #{template 29069}#)))) - #{tmp 29063}#) - (let ((#{tmp 29070}# + #{pattern 28097}#) + #{template 28098}#)))) + #{tmp 28092}#) + (let ((#{tmp 28099}# ($sc-dispatch - #{x 29061}# + #{x 28090}# '(_ (any . any) any any)))) - (if (if #{tmp 29070}# + (if (if #{tmp 28099}# (@apply - (lambda (#{name 29074}# - #{pattern 29075}# - #{docstring 29076}# - #{template 29077}#) - (string? (syntax->datum #{docstring 29076}#))) - #{tmp 29070}#) + (lambda (#{name 28103}# + #{pattern 28104}# + #{docstring 28105}# + #{template 28106}#) + (string? (syntax->datum #{docstring 28105}#))) + #{tmp 28099}#) #f) (@apply - (lambda (#{name 29078}# - #{pattern 29079}# - #{docstring 29080}# - #{template 29081}#) + (lambda (#{name 28107}# + #{pattern 28108}# + #{docstring 28109}# + #{template 28110}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i29053" "i29054" "i29055" "i29056")) + #("i28082" "i28083" "i28084" "i28085")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29035"))) + #(ribcage #(x) #((top)) #("i28064"))) (hygiene guile)) - #{name 29078}# + #{name 28107}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i29053" "i29054" "i29055" "i29056")) + #("i28082" "i28083" "i28084" "i28085")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29035"))) + #(ribcage #(x) #((top)) #("i28064"))) (hygiene guile)) '() - #{docstring 29080}# + #{docstring 28109}# (list (cons '#(syntax-object _ ((top) @@ -22365,53 +22522,53 @@ docstring template) #((top) (top) (top) (top)) - #("i29053" - "i29054" - "i29055" - "i29056")) + #("i28082" + "i28083" + "i28084" + "i28085")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29035"))) + #("i28064"))) (hygiene guile)) - #{pattern 29079}#) - #{template 29081}#)))) - #{tmp 29070}#) + #{pattern 28108}#) + #{template 28110}#)))) + #{tmp 28099}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29061}#)))))))) + #{x 28090}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 29130}#) - (let ((#{tmp 29132}# + (lambda (#{x 28159}#) + (let ((#{tmp 28161}# ($sc-dispatch - #{x 29130}# + #{x 28159}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 29132}# + (if (if #{tmp 28161}# (@apply - (lambda (#{let* 29136}# - #{x 29137}# - #{v 29138}# - #{e1 29139}# - #{e2 29140}#) - (and-map identifier? #{x 29137}#)) - #{tmp 29132}#) + (lambda (#{let* 28165}# + #{x 28166}# + #{v 28167}# + #{e1 28168}# + #{e2 28169}#) + (and-map identifier? #{x 28166}#)) + #{tmp 28161}#) #f) (@apply - (lambda (#{let* 29141}# - #{x 29142}# - #{v 29143}# - #{e1 29144}# - #{e2 29145}#) + (lambda (#{let* 28170}# + #{x 28171}# + #{v 28172}# + #{e1 28173}# + #{e2 28174}#) (letrec* - ((#{f 29146}# - (lambda (#{bindings 29149}#) - (if (null? #{bindings 29149}#) + ((#{f 28175}# + (lambda (#{bindings 28178}#) + (if (null? #{bindings 28178}#) (cons '#(syntax-object let ((top) @@ -22419,27 +22576,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i29116" "i29117")) + #("i28145" "i28146")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i29106" - "i29107" - "i29108" - "i29109" - "i29110")) + #("i28135" + "i28136" + "i28137" + "i28138" + "i28139")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29092"))) + #(ribcage #(x) #((top)) #("i28121"))) (hygiene guile)) - (cons '() (cons #{e1 29144}# #{e2 29145}#))) - (let ((#{tmp 29150}# - (list (#{f 29146}# (cdr #{bindings 29149}#)) - (car #{bindings 29149}#)))) - (let ((#{tmp 29151}# - ($sc-dispatch #{tmp 29150}# '(any any)))) - (if #{tmp 29151}# + (cons '() (cons #{e1 28173}# #{e2 28174}#))) + (let ((#{tmp 28179}# + (list (#{f 28175}# (cdr #{bindings 28178}#)) + (car #{bindings 28178}#)))) + (let ((#{tmp 28180}# + ($sc-dispatch #{tmp 28179}# '(any any)))) + (if #{tmp 28180}# (@apply - (lambda (#{body 29153}# #{binding 29154}#) + (lambda (#{body 28182}# #{binding 28183}#) (list '#(syntax-object let ((top) @@ -22447,86 +22604,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i29126" "i29127")) + #("i28155" "i28156")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i29116" "i29117")) + #("i28145" "i28146")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i29106" - "i29107" - "i29108" - "i29109" - "i29110")) + #("i28135" + "i28136" + "i28137" + "i28138" + "i28139")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29092"))) + #("i28121"))) (hygiene guile)) - (list #{binding 29154}#) - #{body 29153}#)) - #{tmp 29151}#) + (list #{binding 28183}#) + #{body 28182}#)) + #{tmp 28180}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29150}#)))))))) - (#{f 29146}# (map list #{x 29142}# #{v 29143}#)))) - #{tmp 29132}#) + #{tmp 28179}#)))))))) + (#{f 28175}# (map list #{x 28171}# #{v 28172}#)))) + #{tmp 28161}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29130}#)))))) + #{x 28159}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 29212}#) - (let ((#{tmp 29214}# + (lambda (#{orig-x 28241}#) + (let ((#{tmp 28243}# ($sc-dispatch - #{orig-x 29212}# + #{orig-x 28241}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 29214}# + (if #{tmp 28243}# (@apply - (lambda (#{var 29218}# - #{init 29219}# - #{step 29220}# - #{e0 29221}# - #{e1 29222}# - #{c 29223}#) - (let ((#{tmp 29224}# - (map (lambda (#{v 29227}# #{s 29228}#) - (let ((#{tmp 29230}# - ($sc-dispatch #{s 29228}# '()))) - (if #{tmp 29230}# - (@apply (lambda () #{v 29227}#) #{tmp 29230}#) - (let ((#{tmp 29233}# - ($sc-dispatch #{s 29228}# '(any)))) - (if #{tmp 29233}# + (lambda (#{var 28247}# + #{init 28248}# + #{step 28249}# + #{e0 28250}# + #{e1 28251}# + #{c 28252}#) + (let ((#{tmp 28253}# + (map (lambda (#{v 28256}# #{s 28257}#) + (let ((#{tmp 28259}# + ($sc-dispatch #{s 28257}# '()))) + (if #{tmp 28259}# + (@apply (lambda () #{v 28256}#) #{tmp 28259}#) + (let ((#{tmp 28262}# + ($sc-dispatch #{s 28257}# '(any)))) + (if #{tmp 28262}# (@apply - (lambda (#{e 29236}#) #{e 29236}#) - #{tmp 29233}#) + (lambda (#{e 28265}#) #{e 28265}#) + #{tmp 28262}#) (syntax-violation 'do "bad step expression" - #{orig-x 29212}# - #{s 29228}#)))))) - #{var 29218}# - #{step 29220}#))) - (let ((#{tmp 29225}# - ($sc-dispatch #{tmp 29224}# 'each-any))) - (if #{tmp 29225}# + #{orig-x 28241}# + #{s 28257}#)))))) + #{var 28247}# + #{step 28249}#))) + (let ((#{tmp 28254}# + ($sc-dispatch #{tmp 28253}# 'each-any))) + (if #{tmp 28254}# (@apply - (lambda (#{step 29242}#) - (let ((#{tmp 29244}# ($sc-dispatch #{e1 29222}# '()))) - (if #{tmp 29244}# + (lambda (#{step 28271}#) + (let ((#{tmp 28273}# ($sc-dispatch #{e1 28251}# '()))) + (if #{tmp 28273}# (@apply (lambda () (list '#(syntax-object @@ -22536,7 +22693,7 @@ #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22545,17 +22702,17 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) '#(syntax-object doloop @@ -22564,7 +22721,7 @@ #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22573,19 +22730,19 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) - (map list #{var 29218}# #{init 29219}#) + (map list #{var 28247}# #{init 28248}#) (list '#(syntax-object if ((top) @@ -22593,7 +22750,7 @@ #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22602,17 +22759,17 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) (list '#(syntax-object not @@ -22621,7 +22778,7 @@ #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init @@ -22635,19 +22792,19 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) - #{e0 29221}#) + #{e0 28250}#) (cons '#(syntax-object begin ((top) @@ -22655,7 +22812,7 @@ #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init @@ -22669,20 +22826,20 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) (append - #{c 29223}# + #{c 28252}# (list (cons '#(syntax-object doloop ((top) @@ -22693,7 +22850,7 @@ #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init @@ -22707,12 +22864,12 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () @@ -22720,30 +22877,30 @@ #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) - #{step 29242}#))))))) - #{tmp 29244}#) - (let ((#{tmp 29248}# + #{step 28271}#))))))) + #{tmp 28273}#) + (let ((#{tmp 28277}# ($sc-dispatch - #{e1 29222}# + #{e1 28251}# '(any . each-any)))) - (if #{tmp 29248}# + (if #{tmp 28277}# (@apply - (lambda (#{e1 29252}# #{e2 29253}#) + (lambda (#{e1 28281}# #{e2 28282}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i29189" "i29190")) + #("i28218" "i28219")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22752,17 +22909,17 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) '#(syntax-object doloop @@ -22770,12 +22927,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i29189" "i29190")) + #("i28218" "i28219")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22784,33 +22941,33 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) (map list - #{var 29218}# - #{init 29219}#) + #{var 28247}# + #{init 28248}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i29189" "i29190")) + #("i28218" "i28219")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22819,32 +22976,32 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) - #{e0 29221}# + #{e0 28250}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i29189" - "i29190")) + #("i28218" + "i28219")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init @@ -22858,33 +23015,33 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) - (cons #{e1 29252}# - #{e2 29253}#)) + (cons #{e1 28281}# + #{e2 28282}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i29189" - "i29190")) + #("i28218" + "i28219")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init @@ -22898,20 +23055,20 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) (append - #{c 29223}# + #{c 28252}# (list (cons '#(syntax-object doloop ((top) @@ -22920,8 +23077,8 @@ e2) #((top) (top)) - #("i29189" - "i29190")) + #("i28218" + "i28219")) #(ribcage () () @@ -22929,7 +23086,7 @@ #(ribcage #(step) #((top)) - #("i29180")) + #("i28209")) #(ribcage #(var init @@ -22943,12 +23100,12 @@ (top) (top) (top)) - #("i29165" - "i29166" - "i29167" - "i29168" - "i29169" - "i29170")) + #("i28194" + "i28195" + "i28196" + "i28197" + "i28198" + "i28199")) #(ribcage () () @@ -22956,36 +23113,36 @@ #(ribcage #(orig-x) #((top)) - #("i29162"))) + #("i28191"))) (hygiene guile)) - #{step 29242}#))))))) - #{tmp 29248}#) + #{step 28271}#))))))) + #{tmp 28277}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 29222}#)))))) - #{tmp 29225}#) + #{e1 28251}#)))))) + #{tmp 28254}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29224}#))))) - #{tmp 29214}#) + #{tmp 28253}#))))) + #{tmp 28243}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 29212}#)))))) + #{orig-x 28241}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 29539}# - (lambda (#{p 29563}# #{lev 29564}#) - (let ((#{tmp 29566}# + ((#{quasi 28568}# + (lambda (#{p 28592}# #{lev 28593}#) + (let ((#{tmp 28595}# ($sc-dispatch - #{p 29563}# + #{p 28592}# '(#(free-id #(syntax-object unquote @@ -22994,7 +23151,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23003,28 +23160,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) any)))) - (if #{tmp 29566}# + (if #{tmp 28595}# (@apply - (lambda (#{p 29570}#) - (if (= #{lev 29564}# 0) + (lambda (#{p 28599}#) + (if (= #{lev 28593}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i29289")) + #(ribcage #(p) #((top)) #("i28318")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23033,25 +23190,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{p 29570}#) - (#{quasicons 29541}# + #{p 28599}#) + (#{quasicons 28570}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i29289")) + #(ribcage #(p) #((top)) #("i28318")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23060,23 +23217,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i29289")) + #(ribcage #(p) #((top)) #("i28318")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23085,21 +23242,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) - (#{quasi 29539}# - (list #{p 29570}#) - (#{1-}# #{lev 29564}#))))) - #{tmp 29566}#) - (let ((#{tmp 29573}# + (#{quasi 28568}# + (list #{p 28599}#) + (#{1-}# #{lev 28593}#))))) + #{tmp 28595}#) + (let ((#{tmp 28602}# ($sc-dispatch - #{p 29563}# + #{p 28592}# '(#(free-id #(syntax-object quasiquote @@ -23108,7 +23265,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23117,28 +23274,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) any)))) - (if #{tmp 29573}# + (if #{tmp 28602}# (@apply - (lambda (#{p 29577}#) - (#{quasicons 29541}# + (lambda (#{p 28606}#) + (#{quasicons 28570}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i29292")) + #(ribcage #(p) #((top)) #("i28321")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23147,23 +23304,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i29292")) + #(ribcage #(p) #((top)) #("i28321")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23172,26 +23329,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) - (#{quasi 29539}# - (list #{p 29577}#) - (#{1+}# #{lev 29564}#)))) - #{tmp 29573}#) - (let ((#{tmp 29580}# - ($sc-dispatch #{p 29563}# '(any . any)))) - (if #{tmp 29580}# + (#{quasi 28568}# + (list #{p 28606}#) + (#{1+}# #{lev 28593}#)))) + #{tmp 28602}#) + (let ((#{tmp 28609}# + ($sc-dispatch #{p 28592}# '(any . any)))) + (if #{tmp 28609}# (@apply - (lambda (#{p 29584}# #{q 29585}#) - (let ((#{tmp 29587}# + (lambda (#{p 28613}# #{q 28614}#) + (let ((#{tmp 28616}# ($sc-dispatch - #{p 29584}# + #{p 28613}# '(#(free-id #(syntax-object unquote @@ -23199,12 +23356,12 @@ #(ribcage #(p q) #((top) (top)) - #("i29295" "i29296")) + #("i28324" "i28325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23219,38 +23376,38 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) . each-any)))) - (if #{tmp 29587}# + (if #{tmp 28616}# (@apply - (lambda (#{p 29591}#) - (if (= #{lev 29564}# 0) - (#{quasilist* 29543}# - (map (lambda (#{tmp 29303 29627}#) + (lambda (#{p 28620}#) + (if (= #{lev 28593}# 0) + (#{quasilist* 28572}# + (map (lambda (#{tmp 28332 28656}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i29301")) + #("i28330")) #(ribcage #(p q) #((top) (top)) - #("i29295" "i29296")) + #("i28324" "i28325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23265,37 +23422,37 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{tmp 29303 29627}#)) - #{p 29591}#) - (#{quasi 29539}# - #{q 29585}# - #{lev 29564}#)) - (#{quasicons 29541}# - (#{quasicons 29541}# + #{tmp 28332 28656}#)) + #{p 28620}#) + (#{quasi 28568}# + #{q 28614}# + #{lev 28593}#)) + (#{quasicons 28570}# + (#{quasicons 28570}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i29301")) + #("i28330")) #(ribcage #(p q) #((top) (top)) - #("i29295" "i29296")) + #("i28324" "i28325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23310,13 +23467,13 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) #(syntax-object unquote @@ -23324,16 +23481,16 @@ #(ribcage #(p) #((top)) - #("i29301")) + #("i28330")) #(ribcage #(p q) #((top) (top)) - #("i29295" "i29296")) + #("i28324" "i28325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23348,24 +23505,24 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) - (#{quasi 29539}# - #{p 29591}# - (#{1-}# #{lev 29564}#))) - (#{quasi 29539}# - #{q 29585}# - #{lev 29564}#)))) - #{tmp 29587}#) - (let ((#{tmp 29632}# + (#{quasi 28568}# + #{p 28620}# + (#{1-}# #{lev 28593}#))) + (#{quasi 28568}# + #{q 28614}# + #{lev 28593}#)))) + #{tmp 28616}#) + (let ((#{tmp 28661}# ($sc-dispatch - #{p 29584}# + #{p 28613}# '(#(free-id #(syntax-object unquote-splicing @@ -23373,12 +23530,12 @@ #(ribcage #(p q) #((top) (top)) - #("i29295" "i29296")) + #("i28324" "i28325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23393,40 +23550,40 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) . each-any)))) - (if #{tmp 29632}# + (if #{tmp 28661}# (@apply - (lambda (#{p 29636}#) - (if (= #{lev 29564}# 0) - (#{quasiappend 29542}# - (map (lambda (#{tmp 29308 29639}#) + (lambda (#{p 28665}#) + (if (= #{lev 28593}# 0) + (#{quasiappend 28571}# + (map (lambda (#{tmp 28337 28668}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i29306")) + #("i28335")) #(ribcage #(p q) #((top) (top)) - #("i29295" - "i29296")) + #("i28324" + "i28325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" - "i29286")) + #("i28314" + "i28315")) #(ribcage (emit quasivector quasilist* @@ -23441,37 +23598,37 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{tmp 29308 29639}#)) - #{p 29636}#) - (#{quasi 29539}# - #{q 29585}# - #{lev 29564}#)) - (#{quasicons 29541}# - (#{quasicons 29541}# + #{tmp 28337 28668}#)) + #{p 28665}#) + (#{quasi 28568}# + #{q 28614}# + #{lev 28593}#)) + (#{quasicons 28570}# + (#{quasicons 28570}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i29306")) + #("i28335")) #(ribcage #(p q) #((top) (top)) - #("i29295" "i29296")) + #("i28324" "i28325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23486,13 +23643,13 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -23500,16 +23657,16 @@ #(ribcage #(p) #((top)) - #("i29306")) + #("i28335")) #(ribcage #(p q) #((top) (top)) - #("i29295" "i29296")) + #("i28324" "i28325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23524,57 +23681,57 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) - (#{quasi 29539}# - #{p 29636}# - (#{1-}# #{lev 29564}#))) - (#{quasi 29539}# - #{q 29585}# - #{lev 29564}#)))) - #{tmp 29632}#) - (#{quasicons 29541}# - (#{quasi 29539}# - #{p 29584}# - #{lev 29564}#) - (#{quasi 29539}# - #{q 29585}# - #{lev 29564}#))))))) - #{tmp 29580}#) - (let ((#{tmp 29653}# - ($sc-dispatch #{p 29563}# '#(vector each-any)))) - (if #{tmp 29653}# + (#{quasi 28568}# + #{p 28665}# + (#{1-}# #{lev 28593}#))) + (#{quasi 28568}# + #{q 28614}# + #{lev 28593}#)))) + #{tmp 28661}#) + (#{quasicons 28570}# + (#{quasi 28568}# + #{p 28613}# + #{lev 28593}#) + (#{quasi 28568}# + #{q 28614}# + #{lev 28593}#))))))) + #{tmp 28609}#) + (let ((#{tmp 28682}# + ($sc-dispatch #{p 28592}# '#(vector each-any)))) + (if #{tmp 28682}# (@apply - (lambda (#{x 29657}#) - (let ((#{x 29660}# - (#{vquasi 29540}# - #{x 29657}# - #{lev 29564}#))) - (let ((#{tmp 29662}# + (lambda (#{x 28686}#) + (let ((#{x 28689}# + (#{vquasi 28569}# + #{x 28686}# + #{lev 28593}#))) + (let ((#{tmp 28691}# ($sc-dispatch - #{x 29660}# + #{x 28689}# '(#(atom "quote") each-any)))) - (if #{tmp 29662}# + (if #{tmp 28691}# (@apply - (lambda (#{x 29666}#) + (lambda (#{x 28695}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("i29413")) + #("i28442")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29410")) + #("i28439")) #(ribcage (emit quasivector quasilist* @@ -23589,36 +23746,36 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - (list->vector #{x 29666}#))) - #{tmp 29662}#) + (list->vector #{x 28695}#))) + #{tmp 28691}#) (letrec* - ((#{f 29668}# - (lambda (#{y 29680}# #{k 29681}#) - (let ((#{tmp 29683}# + ((#{f 28697}# + (lambda (#{y 28709}# #{k 28710}#) + (let ((#{tmp 28712}# ($sc-dispatch - #{y 29680}# + #{y 28709}# '(#(atom "quote") each-any)))) - (if #{tmp 29683}# + (if #{tmp 28712}# (@apply - (lambda (#{y 29686}#) - (#{k 29681}# - (map (lambda (#{tmp 29438 29687}#) + (lambda (#{y 28715}#) + (#{k 28710}# + (map (lambda (#{tmp 28467 28716}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i29436")) + #("i28465")) #(ribcage () () @@ -23630,13 +23787,13 @@ #((top) (top) (top)) - #("i29418" - "i29419" - "i29420")) + #("i28447" + "i28448" + "i28449")) #(ribcage #(_) #((top)) - #("i29416")) + #("i28445")) #(ribcage () () @@ -23644,7 +23801,7 @@ #(ribcage #(x) #((top)) - #("i29410")) + #("i28439")) #(ribcage (emit quasivector quasilist* @@ -23659,51 +23816,51 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{tmp 29438 29687}#)) - #{y 29686}#))) - #{tmp 29683}#) - (let ((#{tmp 29688}# + #{tmp 28467 28716}#)) + #{y 28715}#))) + #{tmp 28712}#) + (let ((#{tmp 28717}# ($sc-dispatch - #{y 29680}# + #{y 28709}# '(#(atom "list") . each-any)))) - (if #{tmp 29688}# + (if #{tmp 28717}# (@apply - (lambda (#{y 29691}#) - (#{k 29681}# - #{y 29691}#)) - #{tmp 29688}#) - (let ((#{tmp 29692}# + (lambda (#{y 28720}#) + (#{k 28710}# + #{y 28720}#)) + #{tmp 28717}#) + (let ((#{tmp 28721}# ($sc-dispatch - #{y 29680}# + #{y 28709}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 29692}# + (if #{tmp 28721}# (@apply - (lambda (#{y 29695}# - #{z 29696}#) - (#{f 29668}# - #{z 29696}# - (lambda (#{ls 29697}#) - (#{k 29681}# + (lambda (#{y 28724}# + #{z 28725}#) + (#{f 28697}# + #{z 28725}# + (lambda (#{ls 28726}#) + (#{k 28710}# (append - #{y 29695}# - #{ls 29697}#))))) - #{tmp 29692}#) + #{y 28724}# + #{ls 28726}#))))) + #{tmp 28721}#) (list '#(syntax-object "list->vector" ((top) @@ -23712,14 +23869,14 @@ () ()) #(ribcage - #(#{ g29453}#) - #((m29454 + #(#{ g28482}#) + #((m28483 top)) - #("i29457")) + #("i28486")) #(ribcage #(else) #((top)) - #("i29451")) + #("i28480")) #(ribcage () () @@ -23729,13 +23886,13 @@ #((top) (top) (top)) - #("i29418" - "i29419" - "i29420")) + #("i28447" + "i28448" + "i28449")) #(ribcage #(_) #((top)) - #("i29416")) + #("i28445")) #(ribcage () () @@ -23743,7 +23900,7 @@ #(ribcage #(x) #((top)) - #("i29410")) + #("i28439")) #(ribcage (emit quasivector quasilist* @@ -23758,26 +23915,26 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{x 29660}#)))))))))) - (#{f 29668}# - #{x 29660}# - (lambda (#{ls 29670}#) - (let ((#{tmp 29672}# + #{x 28689}#)))))))))) + (#{f 28697}# + #{x 28689}# + (lambda (#{ls 28699}#) + (let ((#{tmp 28701}# ($sc-dispatch - #{ls 29670}# + #{ls 28699}# 'each-any))) - (if #{tmp 29672}# + (if #{tmp 28701}# (@apply - (lambda (#{ g29426 29675}#) + (lambda (#{ g28455 28704}#) (cons '#(syntax-object "vector" ((top) @@ -23786,9 +23943,9 @@ () ()) #(ribcage - #(#{ g29426}#) - #((m29427 top)) - #("i29431")) + #(#{ g28455}#) + #((m28456 top)) + #("i28460")) #(ribcage () () @@ -23804,11 +23961,11 @@ #(ribcage #(ls) #((top)) - #("i29425")) + #("i28454")) #(ribcage #(_) #((top)) - #("i29416")) + #("i28445")) #(ribcage () () @@ -23816,7 +23973,7 @@ #(ribcage #(x) #((top)) - #("i29410")) + #("i28439")) #(ribcage (emit quasivector quasilist* @@ -23831,30 +23988,30 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{ g29426 29675}#)) - #{tmp 29672}#) + #{ g28455 28704}#)) + #{tmp 28701}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls 29670}#)))))))))) - #{tmp 29653}#) + #{ls 28699}#)))))))))) + #{tmp 28682}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i29316")) + #(ribcage #(p) #((top)) #("i28345")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29285" "i29286")) + #("i28314" "i28315")) #(ribcage (emit quasivector quasilist* @@ -23869,25 +24026,25 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{p 29563}#))))))))))) - (#{vquasi 29540}# - (lambda (#{p 29725}# #{lev 29726}#) - (let ((#{tmp 29728}# - ($sc-dispatch #{p 29725}# '(any . any)))) - (if #{tmp 29728}# + #{p 28592}#))))))))))) + (#{vquasi 28569}# + (lambda (#{p 28754}# #{lev 28755}#) + (let ((#{tmp 28757}# + ($sc-dispatch #{p 28754}# '(any . any)))) + (if #{tmp 28757}# (@apply - (lambda (#{p 29732}# #{q 29733}#) - (let ((#{tmp 29735}# + (lambda (#{p 28761}# #{q 28762}#) + (let ((#{tmp 28764}# ($sc-dispatch - #{p 29732}# + #{p 28761}# '(#(free-id #(syntax-object unquote @@ -23895,12 +24052,12 @@ #(ribcage #(p q) #((top) (top)) - #("i29324" "i29325")) + #("i28353" "i28354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -23915,38 +24072,38 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) . each-any)))) - (if #{tmp 29735}# + (if #{tmp 28764}# (@apply - (lambda (#{p 29739}#) - (if (= #{lev 29726}# 0) - (#{quasilist* 29543}# - (map (lambda (#{tmp 29332 29775}#) + (lambda (#{p 28768}#) + (if (= #{lev 28755}# 0) + (#{quasilist* 28572}# + (map (lambda (#{tmp 28361 28804}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i29330")) + #("i28359")) #(ribcage #(p q) #((top) (top)) - #("i29324" "i29325")) + #("i28353" "i28354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -23961,32 +24118,32 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{tmp 29332 29775}#)) - #{p 29739}#) - (#{vquasi 29540}# #{q 29733}# #{lev 29726}#)) - (#{quasicons 29541}# - (#{quasicons 29541}# + #{tmp 28361 28804}#)) + #{p 28768}#) + (#{vquasi 28569}# #{q 28762}# #{lev 28755}#)) + (#{quasicons 28570}# + (#{quasicons 28570}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i29330")) + #(ribcage #(p) #((top)) #("i28359")) #(ribcage #(p q) #((top) (top)) - #("i29324" "i29325")) + #("i28353" "i28354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -24001,27 +24158,27 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i29330")) + #(ribcage #(p) #((top)) #("i28359")) #(ribcage #(p q) #((top) (top)) - #("i29324" "i29325")) + #("i28353" "i28354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -24036,22 +24193,22 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) - (#{quasi 29539}# - #{p 29739}# - (#{1-}# #{lev 29726}#))) - (#{vquasi 29540}# #{q 29733}# #{lev 29726}#)))) - #{tmp 29735}#) - (let ((#{tmp 29782}# + (#{quasi 28568}# + #{p 28768}# + (#{1-}# #{lev 28755}#))) + (#{vquasi 28569}# #{q 28762}# #{lev 28755}#)))) + #{tmp 28764}#) + (let ((#{tmp 28811}# ($sc-dispatch - #{p 29732}# + #{p 28761}# '(#(free-id #(syntax-object unquote-splicing @@ -24059,12 +24216,12 @@ #(ribcage #(p q) #((top) (top)) - #("i29324" "i29325")) + #("i28353" "i28354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -24079,38 +24236,38 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) . each-any)))) - (if #{tmp 29782}# + (if #{tmp 28811}# (@apply - (lambda (#{p 29786}#) - (if (= #{lev 29726}# 0) - (#{quasiappend 29542}# - (map (lambda (#{tmp 29337 29789}#) + (lambda (#{p 28815}#) + (if (= #{lev 28755}# 0) + (#{quasiappend 28571}# + (map (lambda (#{tmp 28366 28818}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i29335")) + #("i28364")) #(ribcage #(p q) #((top) (top)) - #("i29324" "i29325")) + #("i28353" "i28354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -24125,34 +24282,34 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{tmp 29337 29789}#)) - #{p 29786}#) - (#{vquasi 29540}# - #{q 29733}# - #{lev 29726}#)) - (#{quasicons 29541}# - (#{quasicons 29541}# + #{tmp 28366 28818}#)) + #{p 28815}#) + (#{vquasi 28569}# + #{q 28762}# + #{lev 28755}#)) + (#{quasicons 28570}# + (#{quasicons 28570}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i29335")) + #(ribcage #(p) #((top)) #("i28364")) #(ribcage #(p q) #((top) (top)) - #("i29324" "i29325")) + #("i28353" "i28354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -24167,27 +24324,27 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i29335")) + #(ribcage #(p) #((top)) #("i28364")) #(ribcage #(p q) #((top) (top)) - #("i29324" "i29325")) + #("i28353" "i28354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -24202,27 +24359,27 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile))) - (#{quasi 29539}# - #{p 29786}# - (#{1-}# #{lev 29726}#))) - (#{vquasi 29540}# - #{q 29733}# - #{lev 29726}#)))) - #{tmp 29782}#) - (#{quasicons 29541}# - (#{quasi 29539}# #{p 29732}# #{lev 29726}#) - (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))))))) - #{tmp 29728}#) - (let ((#{tmp 29807}# ($sc-dispatch #{p 29725}# '()))) - (if #{tmp 29807}# + (#{quasi 28568}# + #{p 28815}# + (#{1-}# #{lev 28755}#))) + (#{vquasi 28569}# + #{q 28762}# + #{lev 28755}#)))) + #{tmp 28811}#) + (#{quasicons 28570}# + (#{quasi 28568}# #{p 28761}# #{lev 28755}#) + (#{vquasi 28569}# #{q 28762}# #{lev 28755}#))))))) + #{tmp 28757}#) + (let ((#{tmp 28836}# ($sc-dispatch #{p 28754}# '()))) + (if #{tmp 28836}# (@apply (lambda () '(#(syntax-object @@ -24232,7 +24389,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i29320" "i29321")) + #("i28349" "i28350")) #(ribcage (emit quasivector quasilist* @@ -24241,64 +24398,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) ())) - #{tmp 29807}#) + #{tmp 28836}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 29725}#))))))) - (#{quasicons 29541}# - (lambda (#{x 29820}# #{y 29821}#) - (let ((#{tmp 29822}# (list #{x 29820}# #{y 29821}#))) - (let ((#{tmp 29823}# - ($sc-dispatch #{tmp 29822}# '(any any)))) - (if #{tmp 29823}# + #{p 28754}#))))))) + (#{quasicons 28570}# + (lambda (#{x 28849}# #{y 28850}#) + (let ((#{tmp 28851}# (list #{x 28849}# #{y 28850}#))) + (let ((#{tmp 28852}# + ($sc-dispatch #{tmp 28851}# '(any any)))) + (if #{tmp 28852}# (@apply - (lambda (#{x 29825}# #{y 29826}#) - (let ((#{tmp 29828}# + (lambda (#{x 28854}# #{y 28855}#) + (let ((#{tmp 28857}# ($sc-dispatch - #{y 29826}# + #{y 28855}# '(#(atom "quote") any)))) - (if #{tmp 29828}# + (if #{tmp 28857}# (@apply - (lambda (#{dy 29832}#) - (let ((#{tmp 29834}# + (lambda (#{dy 28861}#) + (let ((#{tmp 28863}# ($sc-dispatch - #{x 29825}# + #{x 28854}# '(#(atom "quote") any)))) - (if #{tmp 29834}# + (if #{tmp 28863}# (@apply - (lambda (#{dx 29838}#) + (lambda (#{dx 28867}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i29359")) + #("i28388")) #(ribcage #(dy) #((top)) - #("i29355")) + #("i28384")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29349" "i29350")) + #("i28378" "i28379")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29344" "i29345")) + #("i28373" "i28374")) #(ribcage (emit quasivector quasilist* @@ -24313,39 +24470,39 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - (cons #{dx 29838}# #{dy 29832}#))) - #{tmp 29834}#) - (if (null? #{dy 29832}#) + (cons #{dx 28867}# #{dy 28861}#))) + #{tmp 28863}#) + (if (null? #{dy 28861}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i29361")) + #("i28390")) #(ribcage #(dy) #((top)) - #("i29355")) + #("i28384")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29349" "i29350")) + #("i28378" "i28379")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29344" "i29345")) + #("i28373" "i28374")) #(ribcage (emit quasivector quasilist* @@ -24360,37 +24517,37 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{x 29825}#) + #{x 28854}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i29361")) + #("i28390")) #(ribcage #(dy) #((top)) - #("i29355")) + #("i28384")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29349" "i29350")) + #("i28378" "i28379")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29344" "i29345")) + #("i28373" "i28374")) #(ribcage (emit quasivector quasilist* @@ -24405,42 +24562,42 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{x 29825}# - #{y 29826}#))))) - #{tmp 29828}#) - (let ((#{tmp 29843}# + #{x 28854}# + #{y 28855}#))))) + #{tmp 28857}#) + (let ((#{tmp 28872}# ($sc-dispatch - #{y 29826}# + #{y 28855}# '(#(atom "list") . any)))) - (if #{tmp 29843}# + (if #{tmp 28872}# (@apply - (lambda (#{stuff 29847}#) + (lambda (#{stuff 28876}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i29364")) + #("i28393")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29349" "i29350")) + #("i28378" "i28379")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29344" "i29345")) + #("i28373" "i28374")) #(ribcage (emit quasivector quasilist* @@ -24455,41 +24612,41 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - (cons #{x 29825}# #{stuff 29847}#))) - #{tmp 29843}#) - (let ((#{tmp 29848}# + (cons #{x 28854}# #{stuff 28876}#))) + #{tmp 28872}#) + (let ((#{tmp 28877}# ($sc-dispatch - #{y 29826}# + #{y 28855}# '(#(atom "list*") . any)))) - (if #{tmp 29848}# + (if #{tmp 28877}# (@apply - (lambda (#{stuff 29852}#) + (lambda (#{stuff 28881}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i29367")) + #("i28396")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29349" "i29350")) + #("i28378" "i28379")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29344" "i29345")) + #("i28373" "i28374")) #(ribcage (emit quasivector quasilist* @@ -24504,31 +24661,31 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - (cons #{x 29825}# #{stuff 29852}#))) - #{tmp 29848}#) + (cons #{x 28854}# #{stuff 28881}#))) + #{tmp 28877}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i29369")) + #(ribcage #(_) #((top)) #("i28398")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29349" "i29350")) + #("i28378" "i28379")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29344" "i29345")) + #("i28373" "i28374")) #(ribcage (emit quasivector quasilist* @@ -24543,29 +24700,29 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{x 29825}# - #{y 29826}#)))))))) - #{tmp 29823}#) + #{x 28854}# + #{y 28855}#)))))))) + #{tmp 28852}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29822}#)))))) - (#{quasiappend 29542}# - (lambda (#{x 29863}# #{y 29864}#) - (let ((#{tmp 29866}# - ($sc-dispatch #{y 29864}# '(#(atom "quote") ())))) - (if #{tmp 29866}# + #{tmp 28851}#)))))) + (#{quasiappend 28571}# + (lambda (#{x 28892}# #{y 28893}#) + (let ((#{tmp 28895}# + ($sc-dispatch #{y 28893}# '(#(atom "quote") ())))) + (if #{tmp 28895}# (@apply (lambda () - (if (null? #{x 29863}#) + (if (null? #{x 28892}#) '(#(syntax-object "quote" ((top) @@ -24573,7 +24730,7 @@ #(ribcage #(x y) #((top) (top)) - #("i29373" "i29374")) + #("i28402" "i28403")) #(ribcage (emit quasivector quasilist* @@ -24582,32 +24739,32 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) ()) - (if (null? (cdr #{x 29863}#)) - (car #{x 29863}#) - (let ((#{tmp 29871}# - ($sc-dispatch #{x 29863}# 'each-any))) - (if #{tmp 29871}# + (if (null? (cdr #{x 28892}#)) + (car #{x 28892}#) + (let ((#{tmp 28900}# + ($sc-dispatch #{x 28892}# 'each-any))) + (if #{tmp 28900}# (@apply - (lambda (#{p 29875}#) + (lambda (#{p 28904}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i29385")) + #(ribcage #(p) #((top)) #("i28414")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29373" "i29374")) + #("i28402" "i28403")) #(ribcage (emit quasivector quasilist* @@ -24622,29 +24779,29 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{p 29875}#)) - #{tmp 29871}#) + #{p 28904}#)) + #{tmp 28900}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29863}#)))))) - #{tmp 29866}#) - (if (null? #{x 29863}#) - #{y 29864}# - (let ((#{tmp 29883}# (list #{x 29863}# #{y 29864}#))) - (let ((#{tmp 29884}# - ($sc-dispatch #{tmp 29883}# '(each-any any)))) - (if #{tmp 29884}# + #{x 28892}#)))))) + #{tmp 28895}#) + (if (null? #{x 28892}#) + #{y 28893}# + (let ((#{tmp 28912}# (list #{x 28892}# #{y 28893}#))) + (let ((#{tmp 28913}# + ($sc-dispatch #{tmp 28912}# '(each-any any)))) + (if #{tmp 28913}# (@apply - (lambda (#{p 29886}# #{y 29887}#) + (lambda (#{p 28915}# #{y 28916}#) (cons '#(syntax-object "append" ((top) @@ -24652,13 +24809,13 @@ #(ribcage #(p y) #((top) (top)) - #("i29396" "i29397")) - #(ribcage #(_) #((top)) #("i29388")) + #("i28425" "i28426")) + #(ribcage #(_) #((top)) #("i28417")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29373" "i29374")) + #("i28402" "i28403")) #(ribcage (emit quasivector quasilist* @@ -24673,44 +24830,44 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - (append #{p 29886}# (list #{y 29887}#)))) - #{tmp 29884}#) + (append #{p 28915}# (list #{y 28916}#)))) + #{tmp 28913}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29883}#))))))))) - (#{quasilist* 29543}# - (lambda (#{x 29891}# #{y 29892}#) + #{tmp 28912}#))))))))) + (#{quasilist* 28572}# + (lambda (#{x 28920}# #{y 28921}#) (letrec* - ((#{f 29893}# - (lambda (#{x 29982}#) - (if (null? #{x 29982}#) - #{y 29892}# - (#{quasicons 29541}# - (car #{x 29982}#) - (#{f 29893}# (cdr #{x 29982}#))))))) - (#{f 29893}# #{x 29891}#)))) - (#{emit 29545}# - (lambda (#{x 29985}#) - (let ((#{tmp 29987}# - ($sc-dispatch #{x 29985}# '(#(atom "quote") any)))) - (if #{tmp 29987}# + ((#{f 28922}# + (lambda (#{x 29011}#) + (if (null? #{x 29011}#) + #{y 28921}# + (#{quasicons 28570}# + (car #{x 29011}#) + (#{f 28922}# (cdr #{x 29011}#))))))) + (#{f 28922}# #{x 28920}#)))) + (#{emit 28574}# + (lambda (#{x 29014}#) + (let ((#{tmp 29016}# + ($sc-dispatch #{x 29014}# '(#(atom "quote") any)))) + (if #{tmp 29016}# (@apply - (lambda (#{x 29991}#) + (lambda (#{x 29020}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i29463")) + #(ribcage #(x) #((top)) #("i28492")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29460")) + #(ribcage #(x) #((top)) #("i28489")) #(ribcage (emit quasivector quasilist* @@ -24719,40 +24876,40 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{x 29991}#)) - #{tmp 29987}#) - (let ((#{tmp 29992}# + #{x 29020}#)) + #{tmp 29016}#) + (let ((#{tmp 29021}# ($sc-dispatch - #{x 29985}# + #{x 29014}# '(#(atom "list") . each-any)))) - (if #{tmp 29992}# + (if #{tmp 29021}# (@apply - (lambda (#{x 29996}#) - (let ((#{tmp 29997}# (map #{emit 29545}# #{x 29996}#))) - (let ((#{tmp 29998}# - ($sc-dispatch #{tmp 29997}# 'each-any))) - (if #{tmp 29998}# + (lambda (#{x 29025}#) + (let ((#{tmp 29026}# (map #{emit 28574}# #{x 29025}#))) + (let ((#{tmp 29027}# + ($sc-dispatch #{tmp 29026}# 'each-any))) + (if #{tmp 29027}# (@apply - (lambda (#{ g29468 30000}#) + (lambda (#{ g28497 29029}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g29468}#) - #((m29469 top)) - #("i29473")) - #(ribcage #(x) #((top)) #("i29466")) + #(#{ g28497}#) + #((m28498 top)) + #("i28502")) + #(ribcage #(x) #((top)) #("i28495")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29460")) + #(ribcage #(x) #((top)) #("i28489")) #(ribcage (emit quasivector quasilist* @@ -24767,70 +24924,70 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{ g29468 30000}#)) - #{tmp 29998}#) + #{ g28497 29029}#)) + #{tmp 29027}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29997}#))))) - #{tmp 29992}#) - (let ((#{tmp 30001}# + #{tmp 29026}#))))) + #{tmp 29021}#) + (let ((#{tmp 29030}# ($sc-dispatch - #{x 29985}# + #{x 29014}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 30001}# + (if #{tmp 29030}# (@apply - (lambda (#{x 30005}# #{y 30006}#) + (lambda (#{x 29034}# #{y 29035}#) (letrec* - ((#{f 30007}# - (lambda (#{x* 30010}#) - (if (null? #{x* 30010}#) - (#{emit 29545}# #{y 30006}#) - (let ((#{tmp 30011}# - (list (#{emit 29545}# - (car #{x* 30010}#)) - (#{f 30007}# - (cdr #{x* 30010}#))))) - (let ((#{tmp 30012}# + ((#{f 29036}# + (lambda (#{x* 29039}#) + (if (null? #{x* 29039}#) + (#{emit 28574}# #{y 29035}#) + (let ((#{tmp 29040}# + (list (#{emit 28574}# + (car #{x* 29039}#)) + (#{f 29036}# + (cdr #{x* 29039}#))))) + (let ((#{tmp 29041}# ($sc-dispatch - #{tmp 30011}# + #{tmp 29040}# '(any any)))) - (if #{tmp 30012}# + (if #{tmp 29041}# (@apply - (lambda (#{ g29488 30014}# - #{ g29487 30015}#) + (lambda (#{ g28517 29043}# + #{ g28516 29044}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g29488}# - #{ g29487}#) - #((m29489 top) - (m29489 top)) - #("i29493" "i29494")) + #(#{ g28517}# + #{ g28516}#) + #((m28518 top) + (m28518 top)) + #("i28522" "i28523")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i29482" "i29483")) + #("i28511" "i28512")) #(ribcage #(x y) #((top) (top)) - #("i29478" "i29479")) + #("i28507" "i28508")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29460")) + #("i28489")) #(ribcage (emit quasivector quasilist* @@ -24845,56 +25002,56 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{ g29488 30014}# - #{ g29487 30015}#)) - #{tmp 30012}#) + #{ g28517 29043}# + #{ g28516 29044}#)) + #{tmp 29041}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 30011}#)))))))) - (#{f 30007}# #{x 30005}#))) - #{tmp 30001}#) - (let ((#{tmp 30016}# + #{tmp 29040}#)))))))) + (#{f 29036}# #{x 29034}#))) + #{tmp 29030}#) + (let ((#{tmp 29045}# ($sc-dispatch - #{x 29985}# + #{x 29014}# '(#(atom "append") . each-any)))) - (if #{tmp 30016}# + (if #{tmp 29045}# (@apply - (lambda (#{x 30020}#) - (let ((#{tmp 30021}# - (map #{emit 29545}# #{x 30020}#))) - (let ((#{tmp 30022}# + (lambda (#{x 29049}#) + (let ((#{tmp 29050}# + (map #{emit 28574}# #{x 29049}#))) + (let ((#{tmp 29051}# ($sc-dispatch - #{tmp 30021}# + #{tmp 29050}# 'each-any))) - (if #{tmp 30022}# + (if #{tmp 29051}# (@apply - (lambda (#{ g29500 30024}#) + (lambda (#{ g28529 29053}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g29500}#) - #((m29501 top)) - #("i29505")) + #(#{ g28529}#) + #((m28530 top)) + #("i28534")) #(ribcage #(x) #((top)) - #("i29498")) + #("i28527")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29460")) + #("i28489")) #(ribcage (emit quasivector quasilist* @@ -24909,54 +25066,54 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{ g29500 30024}#)) - #{tmp 30022}#) + #{ g28529 29053}#)) + #{tmp 29051}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 30021}#))))) - #{tmp 30016}#) - (let ((#{tmp 30025}# + #{tmp 29050}#))))) + #{tmp 29045}#) + (let ((#{tmp 29054}# ($sc-dispatch - #{x 29985}# + #{x 29014}# '(#(atom "vector") . each-any)))) - (if #{tmp 30025}# + (if #{tmp 29054}# (@apply - (lambda (#{x 30029}#) - (let ((#{tmp 30030}# - (map #{emit 29545}# #{x 30029}#))) - (let ((#{tmp 30031}# + (lambda (#{x 29058}#) + (let ((#{tmp 29059}# + (map #{emit 28574}# #{x 29058}#))) + (let ((#{tmp 29060}# ($sc-dispatch - #{tmp 30030}# + #{tmp 29059}# 'each-any))) - (if #{tmp 30031}# + (if #{tmp 29060}# (@apply - (lambda (#{ g29512 30033}#) + (lambda (#{ g28541 29062}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g29512}#) - #((m29513 top)) - #("i29517")) + #(#{ g28541}#) + #((m28542 top)) + #("i28546")) #(ribcage #(x) #((top)) - #("i29510")) + #("i28539")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29460")) + #("i28489")) #(ribcage (emit quasivector quasilist* @@ -24971,47 +25128,47 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{ g29512 30033}#)) - #{tmp 30031}#) + #{ g28541 29062}#)) + #{tmp 29060}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 30030}#))))) - #{tmp 30025}#) - (let ((#{tmp 30034}# + #{tmp 29059}#))))) + #{tmp 29054}#) + (let ((#{tmp 29063}# ($sc-dispatch - #{x 29985}# + #{x 29014}# '(#(atom "list->vector") any)))) - (if #{tmp 30034}# + (if #{tmp 29063}# (@apply - (lambda (#{x 30038}#) - (let ((#{tmp 30039}# - (#{emit 29545}# #{x 30038}#))) + (lambda (#{x 29067}#) + (let ((#{tmp 29068}# + (#{emit 28574}# #{x 29067}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g29524}#) - #((m29525 top)) - #("i29528")) + #(#{ g28553}#) + #((m28554 top)) + #("i28557")) #(ribcage #(x) #((top)) - #("i29522")) + #("i28551")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29460")) + #("i28489")) #(ribcage (emit quasivector quasilist* @@ -25026,188 +25183,188 @@ (top) (top) (top)) - ("i29281" - "i29279" - "i29277" - "i29275" - "i29273" - "i29271" - "i29269"))) + ("i28310" + "i28308" + "i28306" + "i28304" + "i28302" + "i28300" + "i28298"))) (hygiene guile)) - #{tmp 30039}#))) - #{tmp 30034}#) - (let ((#{tmp 30042}# + #{tmp 29068}#))) + #{tmp 29063}#) + (let ((#{tmp 29071}# ($sc-dispatch - #{x 29985}# + #{x 29014}# '(#(atom "value") any)))) - (if #{tmp 30042}# + (if #{tmp 29071}# (@apply - (lambda (#{x 30046}#) #{x 30046}#) - #{tmp 30042}#) + (lambda (#{x 29075}#) #{x 29075}#) + #{tmp 29071}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29985}#)))))))))))))))))) - (lambda (#{x 29546}#) - (let ((#{tmp 29548}# - ($sc-dispatch #{x 29546}# '(_ any)))) - (if #{tmp 29548}# + #{x 29014}#)))))))))))))))))) + (lambda (#{x 28575}#) + (let ((#{tmp 28577}# + ($sc-dispatch #{x 28575}# '(_ any)))) + (if #{tmp 28577}# (@apply - (lambda (#{e 29552}#) - (#{emit 29545}# (#{quasi 29539}# #{e 29552}# 0))) - #{tmp 29548}#) + (lambda (#{e 28581}#) + (#{emit 28574}# (#{quasi 28568}# #{e 28581}# 0))) + #{tmp 28577}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29546}#))))))) + #{x 28575}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 30101}#) + (lambda (#{x 29130}#) (letrec* - ((#{read-file 30102}# - (lambda (#{fn 30213}# #{k 30214}#) - (let ((#{p 30215}# (open-input-file #{fn 30213}#))) + ((#{read-file 29131}# + (lambda (#{fn 29240}# #{k 29241}#) + (let ((#{p 29242}# (open-input-file #{fn 29240}#))) (letrec* - ((#{f 30216}# - (lambda (#{x 30270}# #{result 30271}#) - (if (eof-object? #{x 30270}#) + ((#{f 29243}# + (lambda (#{x 29297}# #{result 29298}#) + (if (eof-object? #{x 29297}#) (begin - (close-input-port #{p 30215}#) - (reverse #{result 30271}#)) - (#{f 30216}# - (read #{p 30215}#) - (cons (datum->syntax #{k 30214}# #{x 30270}#) - #{result 30271}#)))))) - (#{f 30216}# (read #{p 30215}#) '())))))) - (let ((#{tmp 30104}# - ($sc-dispatch #{x 30101}# '(any any)))) - (if #{tmp 30104}# + (close-input-port #{p 29242}#) + (reverse #{result 29298}#)) + (#{f 29243}# + (read #{p 29242}#) + (cons (datum->syntax #{k 29241}# #{x 29297}#) + #{result 29298}#)))))) + (#{f 29243}# (read #{p 29242}#) '())))))) + (let ((#{tmp 29133}# + ($sc-dispatch #{x 29130}# '(any any)))) + (if #{tmp 29133}# (@apply - (lambda (#{k 30108}# #{filename 30109}#) - (let ((#{fn 30110}# (syntax->datum #{filename 30109}#))) - (let ((#{tmp 30111}# - (#{read-file 30102}# - #{fn 30110}# - #{filename 30109}#))) - (let ((#{tmp 30112}# - ($sc-dispatch #{tmp 30111}# 'each-any))) - (if #{tmp 30112}# + (lambda (#{k 29137}# #{filename 29138}#) + (let ((#{fn 29139}# (syntax->datum #{filename 29138}#))) + (let ((#{tmp 29140}# + (#{read-file 29131}# + #{fn 29139}# + #{filename 29138}#))) + (let ((#{tmp 29141}# + ($sc-dispatch #{tmp 29140}# 'each-any))) + (if #{tmp 29141}# (@apply - (lambda (#{exp 30130}#) + (lambda (#{exp 29159}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i30098")) + #(ribcage #(exp) #((top)) #("i29127")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i30093")) + #(ribcage #(fn) #((top)) #("i29122")) #(ribcage #(k filename) #((top) (top)) - #("i30089" "i30090")) - #(ribcage (read-file) ((top)) ("i30073")) - #(ribcage #(x) #((top)) #("i30072"))) + #("i29118" "i29119")) + #(ribcage (read-file) ((top)) ("i29102")) + #(ribcage #(x) #((top)) #("i29101"))) (hygiene guile)) - #{exp 30130}#)) - #{tmp 30112}#) + #{exp 29159}#)) + #{tmp 29141}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 30111}#)))))) - #{tmp 30104}#) + #{tmp 29140}#)))))) + #{tmp 29133}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30101}#))))))) + #{x 29130}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 30290}#) - (let ((#{tmp 30292}# - ($sc-dispatch #{x 30290}# '(any any)))) - (if #{tmp 30292}# + (lambda (#{x 29317}#) + (let ((#{tmp 29319}# + ($sc-dispatch #{x 29317}# '(any any)))) + (if #{tmp 29319}# (@apply - (lambda (#{k 30296}# #{filename 30297}#) - (let ((#{fn 30298}# (syntax->datum #{filename 30297}#))) - (let ((#{tmp 30299}# + (lambda (#{k 29323}# #{filename 29324}#) + (let ((#{fn 29325}# (syntax->datum #{filename 29324}#))) + (let ((#{tmp 29326}# (datum->syntax - #{filename 30297}# - (let ((#{t 30302}# (%search-load-path #{fn 30298}#))) - (if #{t 30302}# - #{t 30302}# + #{filename 29324}# + (let ((#{t 29329}# (%search-load-path #{fn 29325}#))) + (if #{t 29329}# + #{t 29329}# (syntax-violation 'include-from-path "file not found in path" - #{x 30290}# - #{filename 30297}#)))))) + #{x 29317}# + #{filename 29324}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i30284")) + #(ribcage #(fn) #((top)) #("i29311")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i30280")) + #(ribcage #(fn) #((top)) #("i29307")) #(ribcage #(k filename) #((top) (top)) - #("i30276" "i30277")) + #("i29303" "i29304")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30273"))) + #(ribcage #(x) #((top)) #("i29300"))) (hygiene guile)) - #{tmp 30299}#)))) - #{tmp 30292}#) + #{tmp 29326}#)))) + #{tmp 29319}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30290}#)))))) + #{x 29317}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 30311}#) + (lambda (#{x 29338}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 30311}#)))) + #{x 29338}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 30314}#) + (lambda (#{x 29341}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 30314}#)))) + #{x 29341}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 30370}#) - (let ((#{tmp 30372}# + (lambda (#{x 29397}#) + (let ((#{tmp 29399}# ($sc-dispatch - #{x 30370}# + #{x 29397}# '(_ any any . each-any)))) - (if #{tmp 30372}# + (if #{tmp 29399}# (@apply - (lambda (#{e 30376}# #{m1 30377}# #{m2 30378}#) - (let ((#{tmp 30379}# + (lambda (#{e 29403}# #{m1 29404}# #{m2 29405}#) + (let ((#{tmp 29406}# (letrec* - ((#{f 30425}# - (lambda (#{clause 30428}# #{clauses 30429}#) - (if (null? #{clauses 30429}#) - (let ((#{tmp 30431}# + ((#{f 29448}# + (lambda (#{clause 29451}# #{clauses 29452}#) + (if (null? #{clauses 29452}#) + (let ((#{tmp 29454}# ($sc-dispatch - #{clause 30428}# + #{clause 29451}# '(#(free-id #(syntax-object else @@ -25216,91 +25373,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile))) any . each-any)))) - (if #{tmp 30431}# + (if #{tmp 29454}# (@apply - (lambda (#{e1 30435}# #{e2 30436}#) + (lambda (#{e1 29458}# #{e2 29459}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i30338" "i30339")) + #("i29365" "i29366")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) - (cons #{e1 30435}# #{e2 30436}#))) - #{tmp 30431}#) - (let ((#{tmp 30437}# + (cons #{e1 29458}# #{e2 29459}#))) + #{tmp 29454}#) + (let ((#{tmp 29460}# ($sc-dispatch - #{clause 30428}# + #{clause 29451}# '(each-any any . each-any)))) - (if #{tmp 30437}# + (if #{tmp 29460}# (@apply - (lambda (#{k 30441}# - #{e1 30442}# - #{e2 30443}#) + (lambda (#{k 29464}# + #{e1 29465}# + #{e2 29466}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i30344" - "i30345" - "i30346")) + #("i29371" + "i29372" + "i29373")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) (list '#(syntax-object memv @@ -25310,9 +25467,9 @@ #((top) (top) (top)) - #("i30344" - "i30345" - "i30346")) + #("i29371" + "i29372" + "i29373")) #(ribcage () () ()) #(ribcage #(f @@ -25321,22 +25478,22 @@ #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) '#(syntax-object t @@ -25346,9 +25503,9 @@ #((top) (top) (top)) - #("i30344" - "i30345" - "i30346")) + #("i29371" + "i29372" + "i29373")) #(ribcage () () ()) #(ribcage #(f @@ -25357,22 +25514,22 @@ #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) (list '#(syntax-object quote @@ -25382,9 +25539,9 @@ #((top) (top) (top)) - #("i30344" - "i30345" - "i30346")) + #("i29371" + "i29372" + "i29373")) #(ribcage () () @@ -25396,17 +25553,17 @@ #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () @@ -25414,10 +25571,10 @@ #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) - #{k 30441}#)) + #{k 29464}#)) (cons '#(syntax-object begin ((top) @@ -25426,9 +25583,9 @@ #((top) (top) (top)) - #("i30344" - "i30345" - "i30346")) + #("i29371" + "i29372" + "i29373")) #(ribcage () () ()) #(ribcage #(f @@ -25437,76 +25594,76 @@ #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) - (cons #{e1 30442}# - #{e2 30443}#)))) - #{tmp 30437}#) + (cons #{e1 29465}# + #{e2 29466}#)))) + #{tmp 29460}#) (syntax-violation 'case "bad clause" - #{x 30370}# - #{clause 30428}#))))) - (let ((#{tmp 30451}# - (#{f 30425}# - (car #{clauses 30429}#) - (cdr #{clauses 30429}#)))) - (let ((#{tmp 30454}# + #{x 29397}# + #{clause 29451}#))))) + (let ((#{tmp 29474}# + (#{f 29448}# + (car #{clauses 29452}#) + (cdr #{clauses 29452}#)))) + (let ((#{tmp 29477}# ($sc-dispatch - #{clause 30428}# + #{clause 29451}# '(each-any any . each-any)))) - (if #{tmp 30454}# + (if #{tmp 29477}# (@apply - (lambda (#{k 30458}# - #{e1 30459}# - #{e2 30460}#) + (lambda (#{k 29481}# + #{e1 29482}# + #{e2 29483}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i30360" - "i30361" - "i30362")) + #("i29387" + "i29388" + "i29389")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i30356")) + #("i29383")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) (list '#(syntax-object memv @@ -25514,32 +25671,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i30360" - "i30361" - "i30362")) + #("i29387" + "i29388" + "i29389")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i30356")) + #("i29383")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) '#(syntax-object t @@ -25547,32 +25704,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i30360" - "i30361" - "i30362")) + #("i29387" + "i29388" + "i29389")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i30356")) + #("i29383")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) (list '#(syntax-object quote @@ -25582,9 +25739,9 @@ #((top) (top) (top)) - #("i30360" - "i30361" - "i30362")) + #("i29387" + "i29388" + "i29389")) #(ribcage () () @@ -25592,7 +25749,7 @@ #(ribcage #(rest) #((top)) - #("i30356")) + #("i29383")) #(ribcage () () @@ -25604,17 +25761,17 @@ #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () @@ -25622,232 +25779,232 @@ #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) - #{k 30458}#)) + #{k 29481}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i30360" - "i30361" - "i30362")) + #("i29387" + "i29388" + "i29389")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i30356")) + #("i29383")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i30329" - "i30330" - "i30331")) + #("i29356" + "i29357" + "i29358")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" - "i30320" - "i30321")) + #("i29346" + "i29347" + "i29348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30316"))) + #("i29343"))) (hygiene guile)) - (cons #{e1 30459}# - #{e2 30460}#)) - #{tmp 30451}#)) - #{tmp 30454}#) + (cons #{e1 29482}# + #{e2 29483}#)) + #{tmp 29474}#)) + #{tmp 29477}#) (syntax-violation 'case "bad clause" - #{x 30370}# - #{clause 30428}#)))))))) - (#{f 30425}# #{m1 30377}# #{m2 30378}#)))) - (let ((#{body 30380}# #{tmp 30379}#)) + #{x 29397}# + #{clause 29451}#)))))))) + (#{f 29448}# #{m1 29404}# #{m2 29405}#)))) + (let ((#{body 29407}# #{tmp 29406}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i30327")) + #(ribcage #(body) #((top)) #("i29354")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" "i30320" "i30321")) + #("i29346" "i29347" "i29348")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30316"))) + #(ribcage #(x) #((top)) #("i29343"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i30327")) + #(ribcage #(body) #((top)) #("i29354")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i30319" "i30320" "i30321")) + #("i29346" "i29347" "i29348")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30316"))) + #(ribcage #(x) #((top)) #("i29343"))) (hygiene guile)) - #{e 30376}#)) - #{body 30380}#)))) - #{tmp 30372}#) + #{e 29403}#)) + #{body 29407}#)))) + #{tmp 29399}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30370}#)))))) + #{x 29397}#)))))) (define make-variable-transformer - (lambda (#{proc 30478}#) - (if (procedure? #{proc 30478}#) + (lambda (#{proc 29501}#) + (if (procedure? #{proc 29501}#) (letrec* - ((#{trans 30479}# - (lambda (#{x 30485}#) - (#{proc 30478}# #{x 30485}#)))) + ((#{trans 29502}# + (lambda (#{x 29508}#) + (#{proc 29501}# #{x 29508}#)))) (begin (set-procedure-property! - #{trans 30479}# + #{trans 29502}# 'variable-transformer #t) - #{trans 30479}#)) + #{trans 29502}#)) (error "variable transformer not a procedure" - #{proc 30478}#)))) + #{proc 29501}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 30517}#) - (let ((#{tmp 30519}# - ($sc-dispatch #{x 30517}# '(_ any)))) - (if #{tmp 30519}# + (lambda (#{x 29540}#) + (let ((#{tmp 29542}# + ($sc-dispatch #{x 29540}# '(_ any)))) + (if #{tmp 29542}# (@apply - (lambda (#{e 30523}#) + (lambda (#{e 29546}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) - #{e 30523}#)) + #{e 29546}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i30492")) + #(ribcage #(e) #((top)) #("i29515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) - (cons #{e 30523}# + (cons #{e 29546}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i30492")) + #("i29515")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) #(syntax-object ... @@ -25855,55 +26012,55 @@ #(ribcage #(e) #((top)) - #("i30492")) + #("i29515")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile))))))))) - #{tmp 30519}#) - (let ((#{tmp 30524}# + #{tmp 29542}#) + (let ((#{tmp 29547}# ($sc-dispatch - #{x 30517}# + #{x 29540}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 30524}# + (if (if #{tmp 29547}# (@apply - (lambda (#{id 30528}# - #{exp1 30529}# - #{var 30530}# - #{val 30531}# - #{exp2 30532}#) - (if (identifier? #{id 30528}#) - (identifier? #{var 30530}#) + (lambda (#{id 29551}# + #{exp1 29552}# + #{var 29553}# + #{val 29554}# + #{exp2 29555}#) + (if (identifier? #{id 29551}#) + (identifier? #{var 29553}#) #f)) - #{tmp 30524}#) + #{tmp 29547}#) #f) (@apply - (lambda (#{id 30533}# - #{exp1 30534}# - #{var 30535}# - #{val 30536}# - #{exp2 30537}#) + (lambda (#{id 29556}# + #{exp1 29557}# + #{var 29558}# + #{val 29559}# + #{exp2 29560}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30507" "i30508" "i30509" "i30510" "i30511")) + #("i29530" "i29531" "i29532" "i29533" "i29534")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) (list '#(syntax-object lambda @@ -25911,13 +26068,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) '(#(syntax-object x @@ -25925,13 +26082,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -25939,13 +26096,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) . #(syntax-object @@ -25954,13 +26111,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -25968,13 +26125,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) '#(syntax-object x @@ -25982,13 +26139,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile)) '(#(syntax-object set! @@ -25996,13 +26153,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30489"))) + #(ribcage #(x) #((top)) #("i29512"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26014,19 +26171,19 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) - #{var 30535}# - #{val 30536}#) + #{var 29558}# + #{val 29559}#) (list '#(syntax-object syntax ((top) @@ -26037,19 +26194,19 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) - #{exp2 30537}#)) - (list (cons #{id 30533}# + #{exp2 29560}#)) + (list (cons #{id 29556}# '(#(syntax-object x ((top) @@ -26060,16 +26217,16 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) #(syntax-object ... @@ -26081,16 +26238,16 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26102,18 +26259,18 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) - (cons #{exp1 30534}# + (cons #{exp1 29557}# '(#(syntax-object x ((top) @@ -26128,16 +26285,16 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) #(syntax-object ... @@ -26153,18 +26310,18 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)))))) - (list #{id 30533}# + (list #{id 29556}# (list '#(syntax-object identifier? ((top) @@ -26175,16 +26332,16 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26200,18 +26357,18 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) - #{id 30533}#)) + #{id 29556}#)) (list '#(syntax-object syntax ((top) @@ -26222,68 +26379,68 @@ (top) (top) (top)) - #("i30507" - "i30508" - "i30509" - "i30510" - "i30511")) + #("i29530" + "i29531" + "i29532" + "i29533" + "i29534")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30489"))) + #("i29512"))) (hygiene guile)) - #{exp1 30534}#)))))) - #{tmp 30524}#) + #{exp1 29557}#)))))) + #{tmp 29547}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30517}#)))))))) + #{x 29540}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 30569}#) - (let ((#{tmp 30571}# + (lambda (#{x 29592}#) + (let ((#{tmp 29594}# ($sc-dispatch - #{x 30569}# + #{x 29592}# '(_ (any . any) any . each-any)))) - (if #{tmp 30571}# + (if #{tmp 29594}# (@apply - (lambda (#{id 30575}# - #{args 30576}# - #{b0 30577}# - #{b1 30578}#) + (lambda (#{id 29598}# + #{args 29599}# + #{b0 29600}# + #{b1 29601}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i30551" "i30552" "i30553" "i30554")) + #("i29574" "i29575" "i29576" "i29577")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30548"))) + #(ribcage #(x) #((top)) #("i29571"))) (hygiene guile)) - #{id 30575}# + #{id 29598}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i30551" "i30552" "i30553" "i30554")) + #("i29574" "i29575" "i29576" "i29577")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30548"))) + #(ribcage #(x) #((top)) #("i29571"))) (hygiene guile)) - (cons #{args 30576}# - (cons #{b0 30577}# #{b1 30578}#))))) - #{tmp 30571}#) - (let ((#{tmp 30579}# - ($sc-dispatch #{x 30569}# '(_ any any)))) - (if (if #{tmp 30579}# + (cons #{args 29599}# + (cons #{b0 29600}# #{b1 29601}#))))) + #{tmp 29594}#) + (let ((#{tmp 29602}# + ($sc-dispatch #{x 29592}# '(_ any any)))) + (if (if #{tmp 29602}# (@apply - (lambda (#{id 30583}# #{val 30584}#) + (lambda (#{id 29606}# #{val 29607}#) (identifier? '#(syntax-object x @@ -26291,29 +26448,29 @@ #(ribcage #(id val) #((top) (top)) - #("i30561" "i30562")) + #("i29584" "i29585")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30548"))) + #(ribcage #(x) #((top)) #("i29571"))) (hygiene guile)))) - #{tmp 30579}#) + #{tmp 29602}#) #f) (@apply - (lambda (#{id 30585}# #{val 30586}#) + (lambda (#{id 29608}# #{val 29609}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i30565" "i30566")) + #("i29588" "i29589")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30548"))) + #(ribcage #(x) #((top)) #("i29571"))) (hygiene guile)) - #{id 30585}# - #{val 30586}#)) - #{tmp 30579}#) + #{id 29608}# + #{val 29609}#)) + #{tmp 29602}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30569}#)))))))) + #{x 29592}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index e522f5467..4fec91719 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -1204,7 +1204,12 @@ ((call) (expand-application (expand (car e) r w mod) e r w s mod)) ((begin-form) (syntax-case e () - ((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod)))) + ((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod)) + ((_) + (begin + (issue-deprecation-warning + "Sequences of zero expressions are deprecated. Use *unspecified*.") + (expand-void))))) ((local-syntax-form) (expand-local-syntax value e r w s mod expand-sequence)) ((eval-when-form) diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index f6eb28a67..ac9319dc5 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 (<>)