diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi index e60864ba3..4702d2f7a 100644 --- a/doc/ref/api-macros.texi +++ b/doc/ref/api-macros.texi @@ -38,9 +38,10 @@ languages}, or EDSLs.}. * Defining Macros:: Binding macros, globally and locally. * Syntax Rules:: Pattern-driven macros. * Syntax Case:: Procedural, hygienic macros. +* Syntax Transformer Helpers:: Helpers for use in procedural macros. * Defmacros:: Lisp-style macros. * Identifier Macros:: Identifier macros. -* Syntax Parameters:: Syntax Parameters +* Syntax Parameters:: Syntax Parameters. * Eval When:: Affecting the expand-time environment. * Internal Macros:: Macros as first-class values. @end menu @@ -671,28 +672,101 @@ source file, one may write: (newline)))))) @end example -Finally, we should mention the following helper procedures defined by the core -of @code{syntax-case}: +Readers interested in further information on @code{syntax-case} macros should +see R. Kent Dybvig's excellent @cite{The Scheme Programming Language}, either +edition 3 or 4, in the chapter on syntax. Dybvig was the primary author of the +@code{syntax-case} system. The book itself is available online at +@uref{http://scheme.com/tspl4/}. + +@node Syntax Transformer Helpers +@subsection Syntax Transformer Helpers + +As noted in the previous section, Guile's syntax expander operates on +syntax objects. Procedural macros consume and produce syntax objects. +This section describes some of the auxiliary helpers that procedural +macros can use to compare, generate, and query objects of this data +type. @deffn {Scheme Procedure} bound-identifier=? a b -Returns @code{#t} iff the syntax objects @var{a} and @var{b} refer to the same -lexically-bound identifier. +Return @code{#t} iff the syntax objects @var{a} and @var{b} refer to the +same lexically-bound identifier. @end deffn @deffn {Scheme Procedure} free-identifier=? a b -Returns @code{#t} iff the syntax objects @var{a} and @var{b} refer to the same -free identifier. +Return @code{#t} iff the syntax objects @var{a} and @var{b} refer to the +same free identifier. @end deffn @deffn {Scheme Procedure} generate-temporaries ls Return a list of temporary identifiers as long as @var{ls} is long. @end deffn -Readers interested in further information on @code{syntax-case} macros should -see R. Kent Dybvig's excellent @cite{The Scheme Programming Language}, either -edition 3 or 4, in the chapter on syntax. Dybvig was the primary author of the -@code{syntax-case} system. The book itself is available online at -@uref{http://scheme.com/tspl4/}. +@deffn {Scheme Procedure} syntax-source x +Return the source properties that correspond to the syntax object +@var{x}. @xref{Source Properties}, for more information. +@end deffn + +@deffn {Scheme Procedure} syntax-local-binding id +Resolve the identifer @var{id}, a syntax object, within the current +lexical environment, and return two values, the binding type and a +binding value. The binding type is a symbol, which may be one of the +following: + +@table @code +@item lexical +A lexically-bound variable. The value is a unique token (in the sense +of @code{eq?}) identifying this binding. +@item macro +A syntax transformer, either local or global. The value is the +transformer procedure. +@item pattern-variable +A pattern variable, bound via syntax-case. The value is an opaque +object, internal to the expander. +@item displaced-lexical +A lexical variable that has gone out of scope. This can happen if a +badly-written procedural macro saves a syntax object, then attempts to +introduce it in a context in which it is unbound. The value is +@code{#f}. +@item global +A global binding. The value is a pair, whose head is the symbol, and +whose tail is the name of the module in which to resolve the symbol. +@item other +Some other binding, like @code{lambda} or other core bindings. The +value is @code{#f}. +@end table + +This is a very low-level procedure, with limited uses. One case in +which it is useful is to build abstractions that associate auxiliary +information with macros: + +@example +(define aux-property (make-object-property)) +(define-syntax-rule (with-aux aux value) + (let ((trans value)) + (set! (aux-property trans) aux) + trans))) +(define-syntax retrieve-aux + (lambda (x) + (syntax-case x () + ((x id) + (call-with-values (lambda () (syntax-local-binding #'id)) + (lambda (type val) + (with-syntax ((aux (datum->syntax #'here + (and (eq? type 'macro) + (aux-property val))))) + #''aux))))))) +(define-syntax foo + (with-aux 'bar + (syntax-rules () ((_) 'foo)))) +(foo) +@result{} foo +(retrieve-aux foo) +@result{} bar +@end example + +@code{syntax-local-binding} must be called within the dynamic extent of +a syntax transformer; to call it otherwise will signal an error. +@end deffn @node Defmacros @subsection Lisp-style Macro Definitions diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 0c150cf8d..d006d4700 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -389,6 +389,7 @@ If there is no handler at all, Guile prints an error and then exits." (define generate-temporaries #f) (define bound-identifier=? #f) (define free-identifier=? #f) +(define syntax-local-binding #f) ;; $sc-dispatch is an implementation detail of psyntax. It is used by ;; expanded macros, to dispatch an input against a set of patterns. diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index ea8843b68..3e17e62b4 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,5193 +1,5683 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec* - ((#{top-level-eval-hook 4273}# - (lambda (#{x 27469}# #{mod 27470}#) - (primitive-eval #{x 27469}#))) - (#{maybe-name-value! 4278}# - (lambda (#{name 16154}# #{val 16155}#) - (if (if (struct? #{val 16155}#) - (eq? (struct-vtable #{val 16155}#) - (vector-ref %expanded-vtables 13)) - #f) - (let ((#{meta 16162}# (struct-ref #{val 16155}# 1))) - (if (not (assq 'name #{meta 16162}#)) - (let ((#{v 16167}# - (cons (cons 'name #{name 16154}#) #{meta 16162}#))) - (struct-set! #{val 16155}# 1 #{v 16167}#))))))) - (#{build-application 4280}# - (lambda (#{source 15879}# - #{fun-exp 15880}# - #{arg-exps 15881}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #{source 15879}# - #{fun-exp 15880}# - #{arg-exps 15881}#))) - (#{build-conditional 4281}# - (lambda (#{source 15887}# - #{test-exp 15888}# - #{then-exp 15889}# - #{else-exp 15890}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 10) - #{source 15887}# - #{test-exp 15888}# - #{then-exp 15889}# - #{else-exp 15890}#))) - (#{build-dynlet 4282}# - (lambda (#{source 15897}# - #{fluids 15898}# - #{vals 15899}# - #{body 15900}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 17) - #{source 15897}# - #{fluids 15898}# - #{vals 15899}# - #{body 15900}#))) - (#{build-lexical-reference 4283}# - (lambda (#{type 27471}# - #{source 27472}# - #{name 27473}# - #{var 27474}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #{source 27472}# - #{name 27473}# - #{var 27474}#))) - (#{build-lexical-assignment 4284}# - (lambda (#{source 15907}# - #{name 15908}# - #{var 15909}# - #{exp 15910}#) - (begin - (if (if (struct? #{exp 15910}#) - (eq? (struct-vtable #{exp 15910}#) - (vector-ref %expanded-vtables 13)) - #f) - (let ((#{meta 15926}# (struct-ref #{exp 15910}# 1))) - (if (not (assq 'name #{meta 15926}#)) - (let ((#{v 15933}# - (cons (cons 'name #{name 15908}#) #{meta 15926}#))) - (struct-set! #{exp 15910}# 1 #{v 15933}#))))) - (make-struct/no-tail - (vector-ref %expanded-vtables 4) - #{source 15907}# - #{name 15908}# - #{var 15909}# - #{exp 15910}#)))) - (#{analyze-variable 4285}# - (lambda (#{mod 27480}# - #{var 27481}# - #{modref-cont 27482}# - #{bare-cont 27483}#) - (if (not #{mod 27480}#) - (#{bare-cont 27483}# #{var 27481}#) - (let ((#{kind 27484}# (car #{mod 27480}#)) - (#{mod 27485}# (cdr #{mod 27480}#))) - (if (eqv? #{kind 27484}# 'public) - (#{modref-cont 27482}# - #{mod 27485}# - #{var 27481}# - #t) - (if (eqv? #{kind 27484}# 'private) - (if (not (equal? - #{mod 27485}# - (module-name (current-module)))) - (#{modref-cont 27482}# - #{mod 27485}# - #{var 27481}# - #f) - (#{bare-cont 27483}# #{var 27481}#)) - (if (eqv? #{kind 27484}# 'bare) - (#{bare-cont 27483}# #{var 27481}#) - (if (eqv? #{kind 27484}# 'hygiene) - (if (if (not (equal? - #{mod 27485}# - (module-name (current-module)))) - (module-variable - (resolve-module #{mod 27485}#) - #{var 27481}#) - #f) - (#{modref-cont 27482}# - #{mod 27485}# - #{var 27481}# +(let ((#{transformer-environment 4436}# (if #f #f))) + (letrec* + ((#{top-level-eval-hook 4375}# + (lambda (#{x 26114}# #{mod 26115}#) + (primitive-eval #{x 26114}#))) + (#{get-global-definition-hook 4378}# + (lambda (#{symbol 15434}# #{module 15435}#) + (begin + (if (if (not #{module 15435}#) (current-module) #f) + (warn "module system is booted, we should have a module" + #{symbol 15434}#)) + (let ((#{v 15436}# + (module-variable + (if #{module 15435}# + (resolve-module (cdr #{module 15435}#)) + (current-module)) + #{symbol 15434}#))) + (if #{v 15436}# + (if (variable-bound? #{v 15436}#) + (let ((#{val 15438}# (variable-ref #{v 15436}#))) + (if (macro? #{val 15438}#) + (if (macro-type #{val 15438}#) + (cons (macro-type #{val 15438}#) + (macro-binding #{val 15438}#)) #f) - (#{bare-cont 27483}# #{var 27481}#)) - (syntax-violation - #f - "bad module kind" - #{var 27481}# - #{mod 27485}#))))))))) - (#{build-global-reference 4286}# - (lambda (#{source 27500}# #{var 27501}# #{mod 27502}#) - (#{analyze-variable 4285}# - #{mod 27502}# - #{var 27501}# - (lambda (#{mod 27505}# #{var 27506}# #{public? 27507}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #{source 27500}# - #{mod 27505}# - #{var 27506}# - #{public? 27507}#)) - (lambda (#{var 27515}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #{source 27500}# - #{var 27515}#))))) - (#{build-global-assignment 4287}# - (lambda (#{source 15942}# - #{var 15943}# - #{exp 15944}# - #{mod 15945}#) - (begin - (if (if (struct? #{exp 15944}#) - (eq? (struct-vtable #{exp 15944}#) + #f)) + #f) + #f))))) + (#{maybe-name-value! 4380}# + (lambda (#{name 15715}# #{val 15716}#) + (if (if (struct? #{val 15716}#) + (eq? (struct-vtable #{val 15716}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15961}# (struct-ref #{exp 15944}# 1))) - (if (not (assq 'name #{meta 15961}#)) - (let ((#{v 15968}# - (cons (cons 'name #{var 15943}#) #{meta 15961}#))) - (struct-set! #{exp 15944}# 1 #{v 15968}#))))) - (#{analyze-variable 4285}# - #{mod 15945}# - #{var 15943}# - (lambda (#{mod 15973}# #{var 15974}# #{public? 15975}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 6) - #{source 15942}# - #{mod 15973}# - #{var 15974}# - #{public? 15975}# - #{exp 15944}#)) - (lambda (#{var 15983}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 8) - #{source 15942}# - #{var 15983}# - #{exp 15944}#)))))) - (#{build-global-definition 4288}# - (lambda (#{source 27521}# #{var 27522}# #{exp 27523}#) - (begin - (if (if (struct? #{exp 27523}#) - (eq? (struct-vtable #{exp 27523}#) - (vector-ref %expanded-vtables 13)) - #f) - (let ((#{meta 27539}# (struct-ref #{exp 27523}# 1))) - (if (not (assq 'name #{meta 27539}#)) - (let ((#{v 27546}# - (cons (cons 'name #{var 27522}#) #{meta 27539}#))) - (struct-set! #{exp 27523}# 1 #{v 27546}#))))) + (let ((#{meta 15723}# (struct-ref #{val 15716}# 1))) + (if (not (assq 'name #{meta 15723}#)) + (let ((#{v 15728}# + (cons (cons 'name #{name 15715}#) #{meta 15723}#))) + (struct-set! #{val 15716}# 1 #{v 15728}#))))))) + (#{build-application 4382}# + (lambda (#{source 15440}# + #{fun-exp 15441}# + #{arg-exps 15442}#) (make-struct/no-tail - (vector-ref %expanded-vtables 9) - #{source 27521}# - #{var 27522}# - #{exp 27523}#)))) - (#{build-simple-lambda 4289}# - (lambda (#{src 15989}# - #{req 15990}# - #{rest 15991}# - #{vars 15992}# - #{meta 15993}# - #{exp 15994}#) - (let ((#{body 16000}# - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #{src 15989}# - #{req 15990}# - #f - #{rest 15991}# - #f - '() - #{vars 15992}# - #{exp 15994}# - #f))) + (vector-ref %expanded-vtables 11) + #{source 15440}# + #{fun-exp 15441}# + #{arg-exps 15442}#))) + (#{build-conditional 4383}# + (lambda (#{source 15448}# + #{test-exp 15449}# + #{then-exp 15450}# + #{else-exp 15451}#) (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{src 15989}# - #{meta 15993}# - #{body 16000}#)))) - (#{build-sequence 4294}# - (lambda (#{src 27554}# #{exps 27555}#) - (if (null? (cdr #{exps 27555}#)) - (car #{exps 27555}#) + (vector-ref %expanded-vtables 10) + #{source 15448}# + #{test-exp 15449}# + #{then-exp 15450}# + #{else-exp 15451}#))) + (#{build-dynlet 4384}# + (lambda (#{source 15458}# + #{fluids 15459}# + #{vals 15460}# + #{body 15461}#) (make-struct/no-tail - (vector-ref %expanded-vtables 12) - #{src 27554}# - #{exps 27555}#)))) - (#{build-let 4295}# - (lambda (#{src 16012}# - #{ids 16013}# - #{vars 16014}# - #{val-exps 16015}# - #{body-exp 16016}#) - (begin - (for-each - #{maybe-name-value! 4278}# - #{ids 16013}# - #{val-exps 16015}#) - (if (null? #{vars 16014}#) - #{body-exp 16016}# - (make-struct/no-tail - (vector-ref %expanded-vtables 15) - #{src 16012}# - #{ids 16013}# - #{vars 16014}# - #{val-exps 16015}# - #{body-exp 16016}#))))) - (#{build-named-let 4296}# - (lambda (#{src 16040}# - #{ids 16041}# - #{vars 16042}# - #{val-exps 16043}# - #{body-exp 16044}#) - (let ((#{f 16045}# (car #{vars 16042}#)) - (#{f-name 16046}# (car #{ids 16041}#)) - (#{vars 16047}# (cdr #{vars 16042}#)) - (#{ids 16048}# (cdr #{ids 16041}#))) - (let ((#{proc 16049}# - (let ((#{body 16069}# - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #{src 16040}# - #{ids 16048}# - #f - #f - #f - '() - #{vars 16047}# - #{body-exp 16044}# - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{src 16040}# - '() - #{body 16069}#)))) - (begin - (if (if (struct? #{proc 16049}#) - (eq? (struct-vtable #{proc 16049}#) - (vector-ref %expanded-vtables 13)) - #f) - (let ((#{meta 16093}# (struct-ref #{proc 16049}# 1))) - (if (not (assq 'name #{meta 16093}#)) - (let ((#{v 16100}# - (cons (cons 'name #{f-name 16046}#) - #{meta 16093}#))) - (struct-set! #{proc 16049}# 1 #{v 16100}#))))) - (for-each - #{maybe-name-value! 4278}# - #{ids 16048}# - #{val-exps 16043}#) - (let ((#{names 16124}# (list #{f-name 16046}#)) - (#{gensyms 16125}# (list #{f 16045}#)) - (#{vals 16126}# (list #{proc 16049}#)) - (#{body 16127}# - (let ((#{fun-exp 16131}# - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #{src 16040}# - #{f-name 16046}# - #{f 16045}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #{src 16040}# - #{fun-exp 16131}# - #{val-exps 16043}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 16) - #{src 16040}# - #f - #{names 16124}# - #{gensyms 16125}# - #{vals 16126}# - #{body 16127}#))))))) - (#{build-letrec 4297}# - (lambda (#{src 16147}# - #{in-order? 16148}# - #{ids 16149}# - #{vars 16150}# - #{val-exps 16151}# - #{body-exp 16152}#) - (if (null? #{vars 16150}#) - #{body-exp 16152}# + (vector-ref %expanded-vtables 17) + #{source 15458}# + #{fluids 15459}# + #{vals 15460}# + #{body 15461}#))) + (#{build-lexical-reference 4385}# + (lambda (#{type 26116}# + #{source 26117}# + #{name 26118}# + #{var 26119}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #{source 26117}# + #{name 26118}# + #{var 26119}#))) + (#{build-lexical-assignment 4386}# + (lambda (#{source 15468}# + #{name 15469}# + #{var 15470}# + #{exp 15471}#) (begin - (for-each - #{maybe-name-value! 4278}# - #{ids 16149}# - #{val-exps 16151}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 16) - #{src 16147}# - #{in-order? 16148}# - #{ids 16149}# - #{vars 16150}# - #{val-exps 16151}# - #{body-exp 16152}#))))) - (#{source-annotation 4306}# - (lambda (#{x 16178}#) - (if (if (vector? #{x 16178}#) - (if (= (vector-length #{x 16178}#) 4) - (eq? (vector-ref #{x 16178}# 0) 'syntax-object) - #f) - #f) - (#{source-annotation 4306}# - (vector-ref #{x 16178}# 1)) - (if (pair? #{x 16178}#) - (let ((#{props 16193}# (source-properties #{x 16178}#))) - (if (pair? #{props 16193}#) #{props 16193}# #f)) - #f)))) - (#{extend-env 4307}# - (lambda (#{labels 16195}# #{bindings 16196}# #{r 16197}#) - (if (null? #{labels 16195}#) - #{r 16197}# - (#{extend-env 4307}# - (cdr #{labels 16195}#) - (cdr #{bindings 16196}#) - (cons (cons (car #{labels 16195}#) - (car #{bindings 16196}#)) - #{r 16197}#))))) - (#{extend-var-env 4308}# - (lambda (#{labels 16198}# #{vars 16199}# #{r 16200}#) - (if (null? #{labels 16198}#) - #{r 16200}# - (#{extend-var-env 4308}# - (cdr #{labels 16198}#) - (cdr #{vars 16199}#) - (cons (cons (car #{labels 16198}#) - (cons 'lexical (car #{vars 16199}#))) - #{r 16200}#))))) - (#{macros-only-env 4309}# - (lambda (#{r 16201}#) - (if (null? #{r 16201}#) - '() - (let ((#{a 16202}# (car #{r 16201}#))) - (if (eq? (car (cdr #{a 16202}#)) 'macro) - (cons #{a 16202}# - (#{macros-only-env 4309}# (cdr #{r 16201}#))) - (#{macros-only-env 4309}# (cdr #{r 16201}#))))))) - (#{global-extend 4311}# - (lambda (#{type 16204}# #{sym 16205}# #{val 16206}#) - (module-define! - (current-module) - #{sym 16205}# - (make-syntax-transformer - #{sym 16205}# - #{type 16204}# - #{val 16206}#)))) - (#{id? 4313}# - (lambda (#{x 10370}#) - (if (symbol? #{x 10370}#) - #t - (if (if (vector? #{x 10370}#) - (if (= (vector-length #{x 10370}#) 4) - (eq? (vector-ref #{x 10370}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 10370}# 1)) - #f)))) - (#{gen-labels 4316}# - (lambda (#{ls 16216}#) - (if (null? #{ls 16216}#) - '() - (cons (symbol->string (gensym "i")) - (#{gen-labels 4316}# (cdr #{ls 16216}#)))))) - (#{make-binding-wrap 4327}# - (lambda (#{ids 16220}# #{labels 16221}# #{w 16222}#) - (if (null? #{ids 16220}#) - #{w 16222}# - (cons (car #{w 16222}#) - (cons (let ((#{labelvec 16223}# - (list->vector #{labels 16221}#))) - (let ((#{n 16224}# (vector-length #{labelvec 16223}#))) - (let ((#{symnamevec 16225}# (make-vector #{n 16224}#)) - (#{marksvec 16226}# (make-vector #{n 16224}#))) - (begin - (letrec* - ((#{f 16227}# - (lambda (#{ids 16230}# #{i 16231}#) - (if (not (null? #{ids 16230}#)) - (call-with-values - (lambda () - (let ((#{x 16234}# - (car #{ids 16230}#))) - (if (if (vector? #{x 16234}#) - (if (= (vector-length - #{x 16234}#) - 4) - (eq? (vector-ref - #{x 16234}# - 0) - 'syntax-object) - #f) - #f) - (values - (vector-ref #{x 16234}# 1) - (let ((#{m1 16250}# - (car #{w 16222}#)) - (#{m2 16251}# - (car (vector-ref - #{x 16234}# - 2)))) - (if (null? #{m2 16251}#) - #{m1 16250}# - (append - #{m1 16250}# - #{m2 16251}#)))) - (values - #{x 16234}# - (car #{w 16222}#))))) - (lambda (#{symname 16271}# - #{marks 16272}#) - (begin - (vector-set! - #{symnamevec 16225}# - #{i 16231}# - #{symname 16271}#) - (vector-set! - #{marksvec 16226}# - #{i 16231}# - #{marks 16272}#) - (#{f 16227}# - (cdr #{ids 16230}#) - (#{1+}# #{i 16231}#))))))))) - (#{f 16227}# #{ids 16220}# 0)) - (vector - 'ribcage - #{symnamevec 16225}# - #{marksvec 16226}# - #{labelvec 16223}#))))) - (cdr #{w 16222}#)))))) - (#{join-wraps 4329}# - (lambda (#{w1 16281}# #{w2 16282}#) - (let ((#{m1 16283}# (car #{w1 16281}#)) - (#{s1 16284}# (cdr #{w1 16281}#))) - (if (null? #{m1 16283}#) - (if (null? #{s1 16284}#) - #{w2 16282}# - (cons (car #{w2 16282}#) - (let ((#{m2 16291}# (cdr #{w2 16282}#))) - (if (null? #{m2 16291}#) - #{s1 16284}# - (append #{s1 16284}# #{m2 16291}#))))) - (cons (let ((#{m2 16300}# (car #{w2 16282}#))) - (if (null? #{m2 16300}#) - #{m1 16283}# - (append #{m1 16283}# #{m2 16300}#))) - (let ((#{m2 16309}# (cdr #{w2 16282}#))) - (if (null? #{m2 16309}#) - #{s1 16284}# - (append #{s1 16284}# #{m2 16309}#)))))))) - (#{same-marks? 4331}# - (lambda (#{x 16314}# #{y 16315}#) - (if (eq? #{x 16314}# #{y 16315}#) - (eq? #{x 16314}# #{y 16315}#) - (if (not (null? #{x 16314}#)) - (if (not (null? #{y 16315}#)) - (if (eq? (car #{x 16314}#) (car #{y 16315}#)) - (#{same-marks? 4331}# - (cdr #{x 16314}#) - (cdr #{y 16315}#)) - #f) - #f) - #f)))) - (#{id-var-name 4332}# - (lambda (#{id 16323}# #{w 16324}#) - (letrec* - ((#{search 16325}# - (lambda (#{sym 16386}# #{subst 16387}# #{marks 16388}#) - (if (null? #{subst 16387}#) - (values #f #{marks 16388}#) - (let ((#{fst 16389}# (car #{subst 16387}#))) - (if (eq? #{fst 16389}# 'shift) - (#{search 16325}# - #{sym 16386}# - (cdr #{subst 16387}#) - (cdr #{marks 16388}#)) - (let ((#{symnames 16391}# (vector-ref #{fst 16389}# 1))) - (if (vector? #{symnames 16391}#) - (let ((#{n 16403}# (vector-length #{symnames 16391}#))) - (letrec* - ((#{f 16404}# - (lambda (#{i 16406}#) - (if (= #{i 16406}# #{n 16403}#) - (#{search 16325}# - #{sym 16386}# - (cdr #{subst 16387}#) - #{marks 16388}#) - (if (if (eq? (vector-ref - #{symnames 16391}# - #{i 16406}#) - #{sym 16386}#) - (#{same-marks? 4331}# - #{marks 16388}# - (vector-ref - (vector-ref #{fst 16389}# 2) - #{i 16406}#)) - #f) - (values - (vector-ref - (vector-ref #{fst 16389}# 3) - #{i 16406}#) - #{marks 16388}#) - (#{f 16404}# (#{1+}# #{i 16406}#))))))) - (#{f 16404}# 0))) - (letrec* - ((#{f 16439}# - (lambda (#{symnames 16441}# #{i 16442}#) - (if (null? #{symnames 16441}#) - (#{search 16325}# - #{sym 16386}# - (cdr #{subst 16387}#) - #{marks 16388}#) - (if (if (eq? (car #{symnames 16441}#) - #{sym 16386}#) - (#{same-marks? 4331}# - #{marks 16388}# - (list-ref - (vector-ref #{fst 16389}# 2) - #{i 16442}#)) - #f) - (values - (list-ref - (vector-ref #{fst 16389}# 3) - #{i 16442}#) - #{marks 16388}#) - (#{f 16439}# - (cdr #{symnames 16441}#) - (#{1+}# #{i 16442}#))))))) - (#{f 16439}# #{symnames 16391}# 0)))))))))) - (if (symbol? #{id 16323}#) - (let ((#{t 16328}# - (#{search 16325}# - #{id 16323}# - (cdr #{w 16324}#) - (car #{w 16324}#)))) - (if #{t 16328}# #{t 16328}# #{id 16323}#)) - (if (if (vector? #{id 16323}#) - (if (= (vector-length #{id 16323}#) 4) - (eq? (vector-ref #{id 16323}# 0) 'syntax-object) - #f) - #f) - (let ((#{id 16343}# (vector-ref #{id 16323}# 1)) - (#{w1 16344}# (vector-ref #{id 16323}# 2))) - (let ((#{marks 16345}# - (let ((#{m1 16355}# (car #{w 16324}#)) - (#{m2 16356}# (car #{w1 16344}#))) - (if (null? #{m2 16356}#) - #{m1 16355}# - (append #{m1 16355}# #{m2 16356}#))))) - (call-with-values - (lambda () - (#{search 16325}# - #{id 16343}# - (cdr #{w 16324}#) - #{marks 16345}#)) - (lambda (#{new-id 16372}# #{marks 16373}#) - (if #{new-id 16372}# - #{new-id 16372}# - (let ((#{t 16381}# - (#{search 16325}# - #{id 16343}# - (cdr #{w1 16344}#) - #{marks 16373}#))) - (if #{t 16381}# #{t 16381}# #{id 16343}#))))))) - (syntax-violation - 'id-var-name - "invalid id" - #{id 16323}#)))))) - (#{valid-bound-ids? 4335}# - (lambda (#{ids 16464}#) - (if (letrec* - ((#{all-ids? 16465}# - (lambda (#{ids 16627}#) - (if (null? #{ids 16627}#) - (null? #{ids 16627}#) - (if (let ((#{x 16638}# (car #{ids 16627}#))) - (if (symbol? #{x 16638}#) - #t - (if (if (vector? #{x 16638}#) - (if (= (vector-length #{x 16638}#) 4) - (eq? (vector-ref #{x 16638}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 16638}# 1)) - #f))) - (#{all-ids? 16465}# (cdr #{ids 16627}#)) - #f))))) - (#{all-ids? 16465}# #{ids 16464}#)) - (#{distinct-bound-ids? 4336}# #{ids 16464}#) - #f))) - (#{distinct-bound-ids? 4336}# - (lambda (#{ids 16766}#) - (letrec* - ((#{distinct? 16767}# - (lambda (#{ids 16879}#) - (if (null? #{ids 16879}#) - (null? #{ids 16879}#) - (if (not (#{bound-id-member? 4337}# - (car #{ids 16879}#) - (cdr #{ids 16879}#))) - (#{distinct? 16767}# (cdr #{ids 16879}#)) - #f))))) - (#{distinct? 16767}# #{ids 16766}#)))) - (#{bound-id-member? 4337}# - (lambda (#{x 17089}# #{list 17090}#) - (if (not (null? #{list 17090}#)) - (let ((#{t 17091}# - (let ((#{j 17172}# (car #{list 17090}#))) - (if (if (if (vector? #{x 17089}#) - (if (= (vector-length #{x 17089}#) 4) - (eq? (vector-ref #{x 17089}# 0) 'syntax-object) - #f) - #f) - (if (vector? #{j 17172}#) - (if (= (vector-length #{j 17172}#) 4) - (eq? (vector-ref #{j 17172}# 0) 'syntax-object) - #f) - #f) - #f) - (if (eq? (vector-ref #{x 17089}# 1) - (vector-ref #{j 17172}# 1)) - (#{same-marks? 4331}# - (car (vector-ref #{x 17089}# 2)) - (car (vector-ref #{j 17172}# 2))) - #f) - (eq? #{x 17089}# #{j 17172}#))))) - (if #{t 17091}# - #{t 17091}# - (#{bound-id-member? 4337}# - #{x 17089}# - (cdr #{list 17090}#)))) - #f))) - (#{wrap 4338}# - (lambda (#{x 17216}# #{w 17217}# #{defmod 17218}#) - (if (if (null? (car #{w 17217}#)) - (null? (cdr #{w 17217}#)) - #f) - #{x 17216}# - (if (if (vector? #{x 17216}#) - (if (= (vector-length #{x 17216}#) 4) - (eq? (vector-ref #{x 17216}# 0) 'syntax-object) - #f) - #f) - (let ((#{expression 17232}# (vector-ref #{x 17216}# 1)) - (#{wrap 17233}# - (#{join-wraps 4329}# - #{w 17217}# - (vector-ref #{x 17216}# 2))) - (#{module 17234}# (vector-ref #{x 17216}# 3))) - (vector - 'syntax-object - #{expression 17232}# - #{wrap 17233}# - #{module 17234}#)) - (if (null? #{x 17216}#) - #{x 17216}# - (vector - 'syntax-object - #{x 17216}# - #{w 17217}# - #{defmod 17218}#)))))) - (#{source-wrap 4339}# - (lambda (#{x 17251}# - #{w 17252}# - #{s 17253}# - #{defmod 17254}#) - (#{wrap 4338}# - (begin - (if (if (pair? #{x 17251}#) #{s 17253}# #f) - (set-source-properties! #{x 17251}# #{s 17253}#)) - #{x 17251}#) - #{w 17252}# - #{defmod 17254}#))) - (#{expand-sequence 4340}# - (lambda (#{body 27560}# - #{r 27561}# - #{w 27562}# - #{s 27563}# - #{mod 27564}#) - (#{build-sequence 4294}# - #{s 27563}# - (letrec* - ((#{dobody 27644}# - (lambda (#{body 27994}# - #{r 27995}# - #{w 27996}# - #{mod 27997}#) - (if (null? #{body 27994}#) - '() - (let ((#{first 27998}# - (let ((#{e 28002}# (car #{body 27994}#))) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{e 28002}# - #{r 27995}# - #{w 27996}# - (#{source-annotation 4306}# #{e 28002}#) - #f - #{mod 27997}# - #f)) - (lambda (#{type 28009}# - #{value 28010}# - #{e 28011}# - #{w 28012}# - #{s 28013}# - #{mod 28014}#) - (#{expand-expr 4346}# - #{type 28009}# - #{value 28010}# - #{e 28011}# - #{r 27995}# - #{w 28012}# - #{s 28013}# - #{mod 28014}#)))))) - (cons #{first 27998}# - (#{dobody 27644}# - (cdr #{body 27994}#) - #{r 27995}# - #{w 27996}# - #{mod 27997}#))))))) - (#{dobody 27644}# - #{body 27560}# - #{r 27561}# - #{w 27562}# - #{mod 27564}#))))) - (#{expand-top-sequence 4341}# - (lambda (#{body 17272}# - #{r 17273}# - #{w 17274}# - #{s 17275}# - #{m 17276}# - #{esew 17277}# - #{mod 17278}#) - (letrec* - ((#{scan 17279}# - (lambda (#{body 17410}# - #{r 17411}# - #{w 17412}# - #{s 17413}# - #{m 17414}# - #{esew 17415}# - #{mod 17416}# - #{exps 17417}#) - (if (null? #{body 17410}#) - #{exps 17417}# - (call-with-values - (lambda () - (call-with-values - (lambda () - (let ((#{e 17418}# (car #{body 17410}#))) - (#{syntax-type 4344}# - #{e 17418}# - #{r 17411}# - #{w 17412}# - (let ((#{t 17422}# - (#{source-annotation 4306}# #{e 17418}#))) - (if #{t 17422}# #{t 17422}# #{s 17413}#)) - #f - #{mod 17416}# - #f))) - (lambda (#{type 17657}# - #{value 17658}# - #{e 17659}# - #{w 17660}# - #{s 17661}# - #{mod 17662}#) - (if (eqv? #{type 17657}# 'begin-form) - (let ((#{tmp 17667}# - ($sc-dispatch #{e 17659}# '(_)))) - (if #{tmp 17667}# - (@apply (lambda () #{exps 17417}#) #{tmp 17667}#) - (let ((#{tmp 17671}# - ($sc-dispatch - #{e 17659}# - '(_ any . each-any)))) - (if #{tmp 17671}# - (@apply - (lambda (#{e1 17675}# #{e2 17676}#) - (#{scan 17279}# - (cons #{e1 17675}# #{e2 17676}#) - #{r 17411}# - #{w 17660}# - #{s 17661}# - #{m 17414}# - #{esew 17415}# - #{mod 17662}# - #{exps 17417}#)) - #{tmp 17671}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 17659}#))))) - (if (eqv? #{type 17657}# 'local-syntax-form) - (#{expand-local-syntax 4350}# - #{value 17658}# - #{e 17659}# - #{r 17411}# - #{w 17660}# - #{s 17661}# - #{mod 17662}# - (lambda (#{body 17691}# - #{r 17692}# - #{w 17693}# - #{s 17694}# - #{mod 17695}#) - (#{scan 17279}# - #{body 17691}# - #{r 17692}# - #{w 17693}# - #{s 17694}# - #{m 17414}# - #{esew 17415}# - #{mod 17695}# - #{exps 17417}#))) - (if (eqv? #{type 17657}# 'eval-when-form) - (let ((#{tmp 17700}# - ($sc-dispatch - #{e 17659}# - '(_ each-any any . each-any)))) - (if #{tmp 17700}# - (@apply - (lambda (#{x 17704}# - #{e1 17705}# - #{e2 17706}#) - (let ((#{when-list 17707}# - (#{parse-when-list 4343}# - #{e 17659}# - #{x 17704}#)) - (#{body 17708}# - (cons #{e1 17705}# - #{e2 17706}#))) - (if (eq? #{m 17414}# 'e) - (if (memq 'eval #{when-list 17707}#) - (#{scan 17279}# - #{body 17708}# - #{r 17411}# - #{w 17660}# - #{s 17661}# - (if (memq 'expand - #{when-list 17707}#) - 'c&e - 'e) - '(eval) - #{mod 17662}# - #{exps 17417}#) - (begin - (if (memq 'expand - #{when-list 17707}#) - (let ((#{x 17785}# - (#{expand-top-sequence 4341}# - #{body 17708}# - #{r 17411}# - #{w 17660}# - #{s 17661}# - 'e - '(eval) - #{mod 17662}#))) - (primitive-eval - #{x 17785}#))) - (values #{exps 17417}#))) - (if (memq 'load #{when-list 17707}#) - (if (let ((#{t 17811}# - (memq 'compile - #{when-list 17707}#))) - (if #{t 17811}# - #{t 17811}# - (let ((#{t 17860}# - (memq 'expand - #{when-list 17707}#))) - (if #{t 17860}# - #{t 17860}# - (if (eq? #{m 17414}# - 'c&e) - (memq 'eval - #{when-list 17707}#) - #f))))) - (#{scan 17279}# - #{body 17708}# - #{r 17411}# - #{w 17660}# - #{s 17661}# - 'c&e - '(compile load) - #{mod 17662}# - #{exps 17417}#) - (if (if (eq? #{m 17414}# 'c) - #t - (eq? #{m 17414}# 'c&e)) - (#{scan 17279}# - #{body 17708}# - #{r 17411}# - #{w 17660}# - #{s 17661}# - 'c - '(load) - #{mod 17662}# - #{exps 17417}#) - (values #{exps 17417}#))) - (if (let ((#{t 17989}# - (memq 'compile - #{when-list 17707}#))) - (if #{t 17989}# - #{t 17989}# - (let ((#{t 18038}# - (memq 'expand - #{when-list 17707}#))) - (if #{t 18038}# - #{t 18038}# - (if (eq? #{m 17414}# - 'c&e) - (memq 'eval - #{when-list 17707}#) - #f))))) - (begin - (let ((#{x 18162}# - (#{expand-top-sequence 4341}# - #{body 17708}# - #{r 17411}# - #{w 17660}# - #{s 17661}# - 'e - '(eval) - #{mod 17662}#))) - (primitive-eval #{x 18162}#)) - (values #{exps 17417}#)) - (values #{exps 17417}#)))))) - #{tmp 17700}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 17659}#))) - (if (if (eqv? #{type 17657}# 'define-syntax-form) - #t - (eqv? #{type 17657}# - 'define-syntax-parameter-form)) - (let ((#{n 18208}# - (#{id-var-name 4332}# - #{value 17658}# - #{w 17660}#)) - (#{r 18209}# - (#{macros-only-env 4309}# - #{r 17411}#))) - (if (eqv? #{m 17414}# 'c) - (if (memq 'compile #{esew 17415}#) - (let ((#{e 18213}# - (#{expand-install-global 4342}# - #{n 18208}# - (#{expand 4345}# - #{e 17659}# - #{r 18209}# - #{w 17660}# - #{mod 17662}#)))) - (begin - (#{top-level-eval-hook 4273}# - #{e 18213}# - #{mod 17662}#) - (if (memq 'load #{esew 17415}#) - (values - (cons #{e 18213}# - #{exps 17417}#)) - (values #{exps 17417}#)))) - (if (memq 'load #{esew 17415}#) - (values - (cons (#{expand-install-global 4342}# - #{n 18208}# - (#{expand 4345}# - #{e 17659}# - #{r 18209}# - #{w 17660}# - #{mod 17662}#)) - #{exps 17417}#)) - (values #{exps 17417}#))) - (if (eqv? #{m 17414}# 'c&e) - (let ((#{e 18660}# - (#{expand-install-global 4342}# - #{n 18208}# - (#{expand 4345}# - #{e 17659}# - #{r 18209}# - #{w 17660}# - #{mod 17662}#)))) - (begin - (#{top-level-eval-hook 4273}# - #{e 18660}# - #{mod 17662}#) - (values - (cons #{e 18660}# - #{exps 17417}#)))) - (begin - (if (memq 'eval #{esew 17415}#) - (#{top-level-eval-hook 4273}# - (#{expand-install-global 4342}# - #{n 18208}# - (#{expand 4345}# - #{e 17659}# - #{r 18209}# - #{w 17660}# - #{mod 17662}#)) - #{mod 17662}#)) - (values #{exps 17417}#))))) - (if (eqv? #{type 17657}# 'define-form) - (let ((#{n 19295}# - (#{id-var-name 4332}# - #{value 17658}# - #{w 17660}#))) - (let ((#{type 19296}# - (car (let ((#{t 20040}# - (assq #{n 19295}# - #{r 17411}#))) - (if #{t 20040}# - (cdr #{t 20040}#) - (if (symbol? #{n 19295}#) - (let ((#{t 20045}# - (begin - (if (if (not #{mod 17662}#) - (current-module) - #f) - (warn "module system is booted, we should have a module" - #{n 19295}#)) - (let ((#{v 20082}# - (module-variable - (if #{mod 17662}# - (resolve-module - (cdr #{mod 17662}#)) - (current-module)) - #{n 19295}#))) - (if #{v 20082}# - (if (variable-bound? - #{v 20082}#) - (let ((#{val 20091}# - (variable-ref - #{v 20082}#))) - (if (macro? - #{val 20091}#) - (if (macro-type - #{val 20091}#) - (cons (macro-type - #{val 20091}#) - (macro-binding - #{val 20091}#)) - #f) - #f)) - #f) - #f))))) - (if #{t 20045}# - #{t 20045}# - '(global))) - '(displaced-lexical))))))) - (if (let ((#{t 19330}# #{type 19296}#)) - (if (eqv? #{t 19330}# 'global) - #t - (if (eqv? #{t 19330}# 'core) - #t - (if (eqv? #{t 19330}# 'macro) - #t - (eqv? #{t 19330}# - 'module-ref))))) - (begin - (if (if (if (eq? #{m 17414}# 'c) - #t - (eq? #{m 17414}# 'c&e)) - (if (not (module-local-variable - (current-module) - #{n 19295}#)) - (current-module) - #f) - #f) - (let ((#{old 19494}# - (module-variable - (current-module) - #{n 19295}#))) - (if (if (variable? #{old 19494}#) - (variable-bound? - #{old 19494}#) - #f) - (module-define! - (current-module) - #{n 19295}# - (variable-ref #{old 19494}#)) - (module-add! - (current-module) - #{n 19295}# - (make-undefined-variable))))) - (values - (cons (if (eq? #{m 17414}# 'c&e) - (let ((#{x 19496}# - (#{build-global-definition 4288}# - #{s 17661}# - #{n 19295}# - (#{expand 4345}# - #{e 17659}# - #{r 17411}# - #{w 17660}# - #{mod 17662}#)))) - (begin - (#{top-level-eval-hook 4273}# - #{x 19496}# - #{mod 17662}#) - #{x 19496}#)) - (lambda () - (#{build-global-definition 4288}# - #{s 17661}# - #{n 19295}# - (#{expand 4345}# - #{e 17659}# - #{r 17411}# - #{w 17660}# - #{mod 17662}#)))) - #{exps 17417}#))) - (if (let ((#{t 19967}# #{type 19296}#)) - (eqv? #{t 19967}# - 'displaced-lexical)) - (syntax-violation - #f - "identifier out of context" - #{e 17659}# - (#{wrap 4338}# - #{value 17658}# - #{w 17660}# - #{mod 17662}#)) - (syntax-violation - #f - "cannot define keyword at top level" - #{e 17659}# - (#{wrap 4338}# - #{value 17658}# - #{w 17660}# - #{mod 17662}#)))))) - (values - (cons (if (eq? #{m 17414}# 'c&e) - (let ((#{x 20102}# - (#{expand-expr 4346}# - #{type 17657}# - #{value 17658}# - #{e 17659}# - #{r 17411}# - #{w 17660}# - #{s 17661}# - #{mod 17662}#))) - (begin - (primitive-eval #{x 20102}#) - #{x 20102}#)) - (lambda () - (#{expand-expr 4346}# - #{type 17657}# - #{value 17658}# - #{e 17659}# - #{r 17411}# - #{w 17660}# - #{s 17661}# - #{mod 17662}#))) - #{exps 17417}#)))))))))) - (lambda (#{exps 20111}#) - (#{scan 17279}# - (cdr #{body 17410}#) - #{r 17411}# - #{w 17412}# - #{s 17413}# - #{m 17414}# - #{esew 17415}# - #{mod 17416}# - #{exps 20111}#))))))) - (call-with-values - (lambda () - (#{scan 17279}# - #{body 17272}# - #{r 17273}# - #{w 17274}# - #{s 17275}# - #{m 17276}# - #{esew 17277}# - #{mod 17278}# - '())) - (lambda (#{exps 17282}#) - (if (null? #{exps 17282}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #{s 17275}#) - (#{build-sequence 4294}# - #{s 17275}# - (letrec* - ((#{lp 17322}# - (lambda (#{in 17406}# #{out 17407}#) - (if (null? #{in 17406}#) - #{out 17407}# - (let ((#{e 17408}# (car #{in 17406}#))) - (#{lp 17322}# - (cdr #{in 17406}#) - (cons (if (procedure? #{e 17408}#) - (#{e 17408}#) - #{e 17408}#) - #{out 17407}#))))))) - (#{lp 17322}# #{exps 17282}# '()))))))))) - (#{expand-install-global 4342}# - (lambda (#{name 20112}# #{e 20113}#) - (let ((#{exp 20119}# - (let ((#{fun-exp 20129}# - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - 'make-syntax-transformer) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - 'make-syntax-transformer - #f))) - (#{arg-exps 20130}# - (list (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - #{name 20112}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - 'macro) - #{e 20113}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 20129}# - #{arg-exps 20130}#)))) - (begin - (if (if (struct? #{exp 20119}#) - (eq? (struct-vtable #{exp 20119}#) + (if (if (struct? #{exp 15471}#) + (eq? (struct-vtable #{exp 15471}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 20171}# (struct-ref #{exp 20119}# 1))) - (if (not (assq 'name #{meta 20171}#)) - (let ((#{v 20178}# - (cons (cons 'name #{name 20112}#) #{meta 20171}#))) - (struct-set! #{exp 20119}# 1 #{v 20178}#))))) + (let ((#{meta 15487}# (struct-ref #{exp 15471}# 1))) + (if (not (assq 'name #{meta 15487}#)) + (let ((#{v 15494}# + (cons (cons 'name #{name 15469}#) #{meta 15487}#))) + (struct-set! #{exp 15471}# 1 #{v 15494}#))))) + (make-struct/no-tail + (vector-ref %expanded-vtables 4) + #{source 15468}# + #{name 15469}# + #{var 15470}# + #{exp 15471}#)))) + (#{analyze-variable 4387}# + (lambda (#{mod 26125}# + #{var 26126}# + #{modref-cont 26127}# + #{bare-cont 26128}#) + (if (not #{mod 26125}#) + (#{bare-cont 26128}# #{var 26126}#) + (let ((#{kind 26129}# (car #{mod 26125}#)) + (#{mod 26130}# (cdr #{mod 26125}#))) + (if (eqv? #{kind 26129}# 'public) + (#{modref-cont 26127}# + #{mod 26130}# + #{var 26126}# + #t) + (if (eqv? #{kind 26129}# 'private) + (if (not (equal? + #{mod 26130}# + (module-name (current-module)))) + (#{modref-cont 26127}# + #{mod 26130}# + #{var 26126}# + #f) + (#{bare-cont 26128}# #{var 26126}#)) + (if (eqv? #{kind 26129}# 'bare) + (#{bare-cont 26128}# #{var 26126}#) + (if (eqv? #{kind 26129}# 'hygiene) + (if (if (not (equal? + #{mod 26130}# + (module-name (current-module)))) + (module-variable + (resolve-module #{mod 26130}#) + #{var 26126}#) + #f) + (#{modref-cont 26127}# + #{mod 26130}# + #{var 26126}# + #f) + (#{bare-cont 26128}# #{var 26126}#)) + (syntax-violation + #f + "bad module kind" + #{var 26126}# + #{mod 26130}#))))))))) + (#{build-global-reference 4388}# + (lambda (#{source 26145}# #{var 26146}# #{mod 26147}#) + (#{analyze-variable 4387}# + #{mod 26147}# + #{var 26146}# + (lambda (#{mod 26150}# #{var 26151}# #{public? 26152}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #{source 26145}# + #{mod 26150}# + #{var 26151}# + #{public? 26152}#)) + (lambda (#{var 26160}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #{source 26145}# + #{var 26160}#))))) + (#{build-global-assignment 4389}# + (lambda (#{source 15503}# + #{var 15504}# + #{exp 15505}# + #{mod 15506}#) + (begin + (if (if (struct? #{exp 15505}#) + (eq? (struct-vtable #{exp 15505}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 15522}# (struct-ref #{exp 15505}# 1))) + (if (not (assq 'name #{meta 15522}#)) + (let ((#{v 15529}# + (cons (cons 'name #{var 15504}#) #{meta 15522}#))) + (struct-set! #{exp 15505}# 1 #{v 15529}#))))) + (#{analyze-variable 4387}# + #{mod 15506}# + #{var 15504}# + (lambda (#{mod 15534}# #{var 15535}# #{public? 15536}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 6) + #{source 15503}# + #{mod 15534}# + #{var 15535}# + #{public? 15536}# + #{exp 15505}#)) + (lambda (#{var 15544}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 8) + #{source 15503}# + #{var 15544}# + #{exp 15505}#)))))) + (#{build-global-definition 4390}# + (lambda (#{source 26166}# #{var 26167}# #{exp 26168}#) + (begin + (if (if (struct? #{exp 26168}#) + (eq? (struct-vtable #{exp 26168}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 26184}# (struct-ref #{exp 26168}# 1))) + (if (not (assq 'name #{meta 26184}#)) + (let ((#{v 26191}# + (cons (cons 'name #{var 26167}#) #{meta 26184}#))) + (struct-set! #{exp 26168}# 1 #{v 26191}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #f - #{name 20112}# - #{exp 20119}#))))) - (#{parse-when-list 4343}# - (lambda (#{e 20189}# #{when-list 20190}#) - (let ((#{result 20191}# - (#{strip 4358}# #{when-list 20190}# '(())))) + #{source 26166}# + #{var 26167}# + #{exp 26168}#)))) + (#{build-simple-lambda 4391}# + (lambda (#{src 15550}# + #{req 15551}# + #{rest 15552}# + #{vars 15553}# + #{meta 15554}# + #{exp 15555}#) + (let ((#{body 15561}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #{src 15550}# + #{req 15551}# + #f + #{rest 15552}# + #f + '() + #{vars 15553}# + #{exp 15555}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{src 15550}# + #{meta 15554}# + #{body 15561}#)))) + (#{build-sequence 4396}# + (lambda (#{src 26199}# #{exps 26200}#) + (if (null? (cdr #{exps 26200}#)) + (car #{exps 26200}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 12) + #{src 26199}# + #{exps 26200}#)))) + (#{build-let 4397}# + (lambda (#{src 15573}# + #{ids 15574}# + #{vars 15575}# + #{val-exps 15576}# + #{body-exp 15577}#) + (begin + (for-each + #{maybe-name-value! 4380}# + #{ids 15574}# + #{val-exps 15576}#) + (if (null? #{vars 15575}#) + #{body-exp 15577}# + (make-struct/no-tail + (vector-ref %expanded-vtables 15) + #{src 15573}# + #{ids 15574}# + #{vars 15575}# + #{val-exps 15576}# + #{body-exp 15577}#))))) + (#{build-named-let 4398}# + (lambda (#{src 15601}# + #{ids 15602}# + #{vars 15603}# + #{val-exps 15604}# + #{body-exp 15605}#) + (let ((#{f 15606}# (car #{vars 15603}#)) + (#{f-name 15607}# (car #{ids 15602}#)) + (#{vars 15608}# (cdr #{vars 15603}#)) + (#{ids 15609}# (cdr #{ids 15602}#))) + (let ((#{proc 15610}# + (let ((#{body 15630}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #{src 15601}# + #{ids 15609}# + #f + #f + #f + '() + #{vars 15608}# + #{body-exp 15605}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{src 15601}# + '() + #{body 15630}#)))) + (begin + (if (if (struct? #{proc 15610}#) + (eq? (struct-vtable #{proc 15610}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 15654}# (struct-ref #{proc 15610}# 1))) + (if (not (assq 'name #{meta 15654}#)) + (let ((#{v 15661}# + (cons (cons 'name #{f-name 15607}#) + #{meta 15654}#))) + (struct-set! #{proc 15610}# 1 #{v 15661}#))))) + (for-each + #{maybe-name-value! 4380}# + #{ids 15609}# + #{val-exps 15604}#) + (let ((#{names 15685}# (list #{f-name 15607}#)) + (#{gensyms 15686}# (list #{f 15606}#)) + (#{vals 15687}# (list #{proc 15610}#)) + (#{body 15688}# + (let ((#{fun-exp 15692}# + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #{src 15601}# + #{f-name 15607}# + #{f 15606}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #{src 15601}# + #{fun-exp 15692}# + #{val-exps 15604}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 16) + #{src 15601}# + #f + #{names 15685}# + #{gensyms 15686}# + #{vals 15687}# + #{body 15688}#))))))) + (#{build-letrec 4399}# + (lambda (#{src 15708}# + #{in-order? 15709}# + #{ids 15710}# + #{vars 15711}# + #{val-exps 15712}# + #{body-exp 15713}#) + (if (null? #{vars 15711}#) + #{body-exp 15713}# + (begin + (for-each + #{maybe-name-value! 4380}# + #{ids 15710}# + #{val-exps 15712}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 16) + #{src 15708}# + #{in-order? 15709}# + #{ids 15710}# + #{vars 15711}# + #{val-exps 15712}# + #{body-exp 15713}#))))) + (#{source-annotation 4408}# + (lambda (#{x 15739}#) + (if (if (vector? #{x 15739}#) + (if (= (vector-length #{x 15739}#) 4) + (eq? (vector-ref #{x 15739}# 0) 'syntax-object) + #f) + #f) + (#{source-annotation 4408}# + (vector-ref #{x 15739}# 1)) + (if (pair? #{x 15739}#) + (let ((#{props 15754}# (source-properties #{x 15739}#))) + (if (pair? #{props 15754}#) #{props 15754}# #f)) + #f)))) + (#{extend-env 4409}# + (lambda (#{labels 15756}# #{bindings 15757}# #{r 15758}#) + (if (null? #{labels 15756}#) + #{r 15758}# + (#{extend-env 4409}# + (cdr #{labels 15756}#) + (cdr #{bindings 15757}#) + (cons (cons (car #{labels 15756}#) + (car #{bindings 15757}#)) + #{r 15758}#))))) + (#{extend-var-env 4410}# + (lambda (#{labels 15759}# #{vars 15760}# #{r 15761}#) + (if (null? #{labels 15759}#) + #{r 15761}# + (#{extend-var-env 4410}# + (cdr #{labels 15759}#) + (cdr #{vars 15760}#) + (cons (cons (car #{labels 15759}#) + (cons 'lexical (car #{vars 15760}#))) + #{r 15761}#))))) + (#{macros-only-env 4411}# + (lambda (#{r 15762}#) + (if (null? #{r 15762}#) + '() + (let ((#{a 15763}# (car #{r 15762}#))) + (if (eq? (car (cdr #{a 15763}#)) 'macro) + (cons #{a 15763}# + (#{macros-only-env 4411}# (cdr #{r 15762}#))) + (#{macros-only-env 4411}# (cdr #{r 15762}#))))))) + (#{global-extend 4413}# + (lambda (#{type 15765}# #{sym 15766}# #{val 15767}#) + (module-define! + (current-module) + #{sym 15766}# + (make-syntax-transformer + #{sym 15766}# + #{type 15765}# + #{val 15767}#)))) + (#{id? 4415}# + (lambda (#{x 9800}#) + (if (symbol? #{x 9800}#) + #t + (if (if (vector? #{x 9800}#) + (if (= (vector-length #{x 9800}#) 4) + (eq? (vector-ref #{x 9800}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 9800}# 1)) + #f)))) + (#{gen-labels 4418}# + (lambda (#{ls 15777}#) + (if (null? #{ls 15777}#) + '() + (cons (symbol->string (gensym "i")) + (#{gen-labels 4418}# (cdr #{ls 15777}#)))))) + (#{make-binding-wrap 4429}# + (lambda (#{ids 15781}# #{labels 15782}# #{w 15783}#) + (if (null? #{ids 15781}#) + #{w 15783}# + (cons (car #{w 15783}#) + (cons (let ((#{labelvec 15784}# + (list->vector #{labels 15782}#))) + (let ((#{n 15785}# + (vector-length #{labelvec 15784}#))) + (let ((#{symnamevec 15786}# + (make-vector #{n 15785}#)) + (#{marksvec 15787}# + (make-vector #{n 15785}#))) + (begin + (letrec* + ((#{f 15788}# + (lambda (#{ids 15791}# #{i 15792}#) + (if (not (null? #{ids 15791}#)) + (call-with-values + (lambda () + (let ((#{x 15795}# + (car #{ids 15791}#))) + (if (if (vector? #{x 15795}#) + (if (= (vector-length + #{x 15795}#) + 4) + (eq? (vector-ref + #{x 15795}# + 0) + 'syntax-object) + #f) + #f) + (values + (vector-ref #{x 15795}# 1) + (let ((#{m1 15811}# + (car #{w 15783}#)) + (#{m2 15812}# + (car (vector-ref + #{x 15795}# + 2)))) + (if (null? #{m2 15812}#) + #{m1 15811}# + (append + #{m1 15811}# + #{m2 15812}#)))) + (values + #{x 15795}# + (car #{w 15783}#))))) + (lambda (#{symname 15832}# + #{marks 15833}#) + (begin + (vector-set! + #{symnamevec 15786}# + #{i 15792}# + #{symname 15832}#) + (vector-set! + #{marksvec 15787}# + #{i 15792}# + #{marks 15833}#) + (#{f 15788}# + (cdr #{ids 15791}#) + (#{1+}# #{i 15792}#))))))))) + (#{f 15788}# #{ids 15781}# 0)) + (vector + 'ribcage + #{symnamevec 15786}# + #{marksvec 15787}# + #{labelvec 15784}#))))) + (cdr #{w 15783}#)))))) + (#{join-wraps 4431}# + (lambda (#{w1 15842}# #{w2 15843}#) + (let ((#{m1 15844}# (car #{w1 15842}#)) + (#{s1 15845}# (cdr #{w1 15842}#))) + (if (null? #{m1 15844}#) + (if (null? #{s1 15845}#) + #{w2 15843}# + (cons (car #{w2 15843}#) + (let ((#{m2 15852}# (cdr #{w2 15843}#))) + (if (null? #{m2 15852}#) + #{s1 15845}# + (append #{s1 15845}# #{m2 15852}#))))) + (cons (let ((#{m2 15861}# (car #{w2 15843}#))) + (if (null? #{m2 15861}#) + #{m1 15844}# + (append #{m1 15844}# #{m2 15861}#))) + (let ((#{m2 15870}# (cdr #{w2 15843}#))) + (if (null? #{m2 15870}#) + #{s1 15845}# + (append #{s1 15845}# #{m2 15870}#)))))))) + (#{same-marks? 4433}# + (lambda (#{x 15875}# #{y 15876}#) + (if (eq? #{x 15875}# #{y 15876}#) + (eq? #{x 15875}# #{y 15876}#) + (if (not (null? #{x 15875}#)) + (if (not (null? #{y 15876}#)) + (if (eq? (car #{x 15875}#) (car #{y 15876}#)) + (#{same-marks? 4433}# + (cdr #{x 15875}#) + (cdr #{y 15876}#)) + #f) + #f) + #f)))) + (#{id-var-name 4434}# + (lambda (#{id 15884}# #{w 15885}#) (letrec* - ((#{lp 20192}# - (lambda (#{l 20246}#) - (if (null? #{l 20246}#) - #{result 20191}# - (if (let ((#{t 20248}# (car #{l 20246}#))) - (if (eq? #{t 20248}# 'compile) - #t - (if (eq? #{t 20248}# 'load) - #t - (if (eq? #{t 20248}# 'eval) - #t - (eq? #{t 20248}# 'expand))))) - (#{lp 20192}# (cdr #{l 20246}#)) - (syntax-violation - 'eval-when - "invalid situation" - #{e 20189}# - (car #{l 20246}#))))))) - (#{lp 20192}# #{result 20191}#))))) - (#{syntax-type 4344}# - (lambda (#{e 20250}# - #{r 20251}# - #{w 20252}# - #{s 20253}# - #{rib 20254}# - #{mod 20255}# - #{for-car? 20256}#) - (if (symbol? #{e 20250}#) - (let ((#{n 20257}# - (#{id-var-name 4332}# #{e 20250}# #{w 20252}#))) - (let ((#{b 20258}# - (let ((#{t 20833}# (assq #{n 20257}# #{r 20251}#))) - (if #{t 20833}# - (cdr #{t 20833}#) - (if (symbol? #{n 20257}#) - (let ((#{t 20838}# - (begin - (if (if (not #{mod 20255}#) - (current-module) - #f) - (warn "module system is booted, we should have a module" - #{n 20257}#)) - (let ((#{v 20875}# - (module-variable - (if #{mod 20255}# - (resolve-module - (cdr #{mod 20255}#)) - (current-module)) - #{n 20257}#))) - (if #{v 20875}# - (if (variable-bound? #{v 20875}#) - (let ((#{val 20884}# - (variable-ref #{v 20875}#))) - (if (macro? #{val 20884}#) - (if (macro-type #{val 20884}#) - (cons (macro-type #{val 20884}#) - (macro-binding - #{val 20884}#)) - #f) - #f)) - #f) - #f))))) - (if #{t 20838}# #{t 20838}# '(global))) - '(displaced-lexical)))))) - (let ((#{type 20259}# (car #{b 20258}#))) - (if (let ((#{t 20293}# #{type 20259}#)) - (eqv? #{t 20293}# 'lexical)) - (values - #{type 20259}# - (cdr #{b 20258}#) - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (if (let ((#{t 20450}# #{type 20259}#)) - (eqv? #{t 20450}# 'global)) - (values - #{type 20259}# - #{n 20257}# - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (if (let ((#{t 20576}# #{type 20259}#)) - (eqv? #{t 20576}# 'macro)) - (if #{for-car? 20256}# - (values - #{type 20259}# - (cdr #{b 20258}#) - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (#{syntax-type 4344}# - (#{expand-macro 4348}# - (cdr #{b 20258}#) - #{e 20250}# - #{r 20251}# - #{w 20252}# - #{s 20253}# - #{rib 20254}# - #{mod 20255}#) - #{r 20251}# - '(()) - #{s 20253}# - #{rib 20254}# - #{mod 20255}# - #f)) - (values - #{type 20259}# - (cdr #{b 20258}#) - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#))))))) - (if (pair? #{e 20250}#) - (let ((#{first 20895}# (car #{e 20250}#))) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{first 20895}# - #{r 20251}# - #{w 20252}# - #{s 20253}# - #{rib 20254}# - #{mod 20255}# - #t)) - (lambda (#{ftype 20897}# - #{fval 20898}# - #{fe 20899}# - #{fw 20900}# - #{fs 20901}# - #{fmod 20902}#) - (if (eqv? #{ftype 20897}# 'lexical) - (values - 'lexical-call - #{fval 20898}# - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (if (eqv? #{ftype 20897}# 'global) - (values - 'global-call - (vector - 'syntax-object - #{fval 20898}# - #{w 20252}# - #{fmod 20902}#) - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (if (eqv? #{ftype 20897}# 'macro) - (#{syntax-type 4344}# - (#{expand-macro 4348}# - #{fval 20898}# - #{e 20250}# - #{r 20251}# - #{w 20252}# - #{s 20253}# - #{rib 20254}# - #{mod 20255}#) - #{r 20251}# - '(()) - #{s 20253}# - #{rib 20254}# - #{mod 20255}# - #{for-car? 20256}#) - (if (eqv? #{ftype 20897}# 'module-ref) - (call-with-values - (lambda () - (#{fval 20898}# - #{e 20250}# - #{r 20251}# - #{w 20252}#)) - (lambda (#{e 20923}# - #{r 20924}# - #{w 20925}# - #{s 20926}# - #{mod 20927}#) - (#{syntax-type 4344}# - #{e 20923}# - #{r 20924}# - #{w 20925}# - #{s 20926}# - #{rib 20254}# - #{mod 20927}# - #{for-car? 20256}#))) - (if (eqv? #{ftype 20897}# 'core) - (values - 'core-form - #{fval 20898}# - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (if (eqv? #{ftype 20897}# 'local-syntax) - (values - 'local-syntax-form - #{fval 20898}# - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (if (eqv? #{ftype 20897}# 'begin) - (values - 'begin-form - #f - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (if (eqv? #{ftype 20897}# 'eval-when) - (values - 'eval-when-form - #f - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (if (eqv? #{ftype 20897}# 'define) - (let ((#{tmp 20944}# - ($sc-dispatch - #{e 20250}# - '(_ any any)))) - (if (if #{tmp 20944}# - (@apply - (lambda (#{name 20948}# - #{val 20949}#) - (if (symbol? #{name 20948}#) - #t - (if (if (vector? - #{name 20948}#) - (if (= (vector-length - #{name 20948}#) - 4) - (eq? (vector-ref - #{name 20948}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref - #{name 20948}# - 1)) - #f))) - #{tmp 20944}#) + ((#{search 15886}# + (lambda (#{sym 15947}# #{subst 15948}# #{marks 15949}#) + (if (null? #{subst 15948}#) + (values #f #{marks 15949}#) + (let ((#{fst 15950}# (car #{subst 15948}#))) + (if (eq? #{fst 15950}# 'shift) + (#{search 15886}# + #{sym 15947}# + (cdr #{subst 15948}#) + (cdr #{marks 15949}#)) + (let ((#{symnames 15952}# (vector-ref #{fst 15950}# 1))) + (if (vector? #{symnames 15952}#) + (let ((#{n 15964}# + (vector-length #{symnames 15952}#))) + (letrec* + ((#{f 15965}# + (lambda (#{i 15967}#) + (if (= #{i 15967}# #{n 15964}#) + (#{search 15886}# + #{sym 15947}# + (cdr #{subst 15948}#) + #{marks 15949}#) + (if (if (eq? (vector-ref + #{symnames 15952}# + #{i 15967}#) + #{sym 15947}#) + (#{same-marks? 4433}# + #{marks 15949}# + (vector-ref + (vector-ref #{fst 15950}# 2) + #{i 15967}#)) #f) - (@apply - (lambda (#{name 20976}# #{val 20977}#) - (values - 'define-form - #{name 20976}# - #{val 20977}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#)) - #{tmp 20944}#) - (let ((#{tmp 20978}# - ($sc-dispatch - #{e 20250}# - '(_ (any . any) - any - . - each-any)))) - (if (if #{tmp 20978}# - (@apply - (lambda (#{name 20982}# - #{args 20983}# - #{e1 20984}# - #{e2 20985}#) - (if (if (symbol? - #{name 20982}#) - #t - (if (if (vector? - #{name 20982}#) - (if (= (vector-length - #{name 20982}#) - 4) - (eq? (vector-ref - #{name 20982}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref - #{name 20982}# - 1)) - #f)) - (#{valid-bound-ids? 4335}# - (letrec* - ((#{lvl 21134}# - (lambda (#{vars 21136}# - #{ls 21137}# - #{w 21138}#) - (if (pair? #{vars 21136}#) - (#{lvl 21134}# - (cdr #{vars 21136}#) - (cons (#{wrap 4338}# - (car #{vars 21136}#) - #{w 21138}# - #f) - #{ls 21137}#) - #{w 21138}#) - (if (if (symbol? - #{vars 21136}#) - #t - (if (if (vector? - #{vars 21136}#) - (if (= (vector-length - #{vars 21136}#) - 4) - (eq? (vector-ref - #{vars 21136}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref - #{vars 21136}# - 1)) - #f)) - (cons (#{wrap 4338}# - #{vars 21136}# - #{w 21138}# - #f) - #{ls 21137}#) - (if (null? #{vars 21136}#) - #{ls 21137}# - (if (if (vector? - #{vars 21136}#) - (if (= (vector-length - #{vars 21136}#) - 4) - (eq? (vector-ref - #{vars 21136}# - 0) - 'syntax-object) - #f) - #f) - (#{lvl 21134}# - (vector-ref - #{vars 21136}# - 1) - #{ls 21137}# - (#{join-wraps 4329}# - #{w 21138}# - (vector-ref - #{vars 21136}# - 2))) - (cons #{vars 21136}# - #{ls 21137}#)))))))) - (#{lvl 21134}# - #{args 20983}# - '() - '(())))) - #f)) - #{tmp 20978}#) - #f) - (@apply - (lambda (#{name 21182}# - #{args 21183}# - #{e1 21184}# - #{e2 21185}#) - (values - 'define-form - (#{wrap 4338}# - #{name 21182}# - #{w 20252}# - #{mod 20255}#) - (let ((#{e 21191}# - (cons '#(syntax-object - lambda - ((top) - #(ribcage - #(name - args - e1 - e2) - #((top) - (top) - (top) - (top)) - #("i1843" - "i1844" - "i1845" - "i1846")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1796" - "i1797" - "i1798" - "i1799" - "i1800" - "i1801")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1788")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1760" - "i1761" - "i1762" - "i1763" - "i1764" - "i1765" - "i1766")) - #(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)) - (#{wrap 4338}# - (cons #{args 21183}# - (cons #{e1 21184}# - #{e2 21185}#)) - #{w 20252}# - #{mod 20255}#)))) - (begin - (if (if (pair? #{e 21191}#) - #{s 20253}# - #f) - (set-source-properties! - #{e 21191}# - #{s 20253}#)) - #{e 21191}#)) - '(()) - #{s 20253}# - #{mod 20255}#)) - #{tmp 20978}#) - (let ((#{tmp 21198}# - ($sc-dispatch - #{e 20250}# - '(_ any)))) - (if (if #{tmp 21198}# - (@apply - (lambda (#{name 21202}#) + (values + (vector-ref + (vector-ref #{fst 15950}# 3) + #{i 15967}#) + #{marks 15949}#) + (#{f 15965}# (#{1+}# #{i 15967}#))))))) + (#{f 15965}# 0))) + (letrec* + ((#{f 16000}# + (lambda (#{symnames 16002}# #{i 16003}#) + (if (null? #{symnames 16002}#) + (#{search 15886}# + #{sym 15947}# + (cdr #{subst 15948}#) + #{marks 15949}#) + (if (if (eq? (car #{symnames 16002}#) + #{sym 15947}#) + (#{same-marks? 4433}# + #{marks 15949}# + (list-ref + (vector-ref #{fst 15950}# 2) + #{i 16003}#)) + #f) + (values + (list-ref + (vector-ref #{fst 15950}# 3) + #{i 16003}#) + #{marks 15949}#) + (#{f 16000}# + (cdr #{symnames 16002}#) + (#{1+}# #{i 16003}#))))))) + (#{f 16000}# #{symnames 15952}# 0)))))))))) + (if (symbol? #{id 15884}#) + (let ((#{t 15889}# + (#{search 15886}# + #{id 15884}# + (cdr #{w 15885}#) + (car #{w 15885}#)))) + (if #{t 15889}# #{t 15889}# #{id 15884}#)) + (if (if (vector? #{id 15884}#) + (if (= (vector-length #{id 15884}#) 4) + (eq? (vector-ref #{id 15884}# 0) 'syntax-object) + #f) + #f) + (let ((#{id 15904}# (vector-ref #{id 15884}# 1)) + (#{w1 15905}# (vector-ref #{id 15884}# 2))) + (let ((#{marks 15906}# + (let ((#{m1 15916}# (car #{w 15885}#)) + (#{m2 15917}# (car #{w1 15905}#))) + (if (null? #{m2 15917}#) + #{m1 15916}# + (append #{m1 15916}# #{m2 15917}#))))) + (call-with-values + (lambda () + (#{search 15886}# + #{id 15904}# + (cdr #{w 15885}#) + #{marks 15906}#)) + (lambda (#{new-id 15933}# #{marks 15934}#) + (if #{new-id 15933}# + #{new-id 15933}# + (let ((#{t 15942}# + (#{search 15886}# + #{id 15904}# + (cdr #{w1 15905}#) + #{marks 15934}#))) + (if #{t 15942}# #{t 15942}# #{id 15904}#))))))) + (syntax-violation + 'id-var-name + "invalid id" + #{id 15884}#)))))) + (#{valid-bound-ids? 4440}# + (lambda (#{ids 16025}#) + (if (letrec* + ((#{all-ids? 16026}# + (lambda (#{ids 16188}#) + (if (null? #{ids 16188}#) + (null? #{ids 16188}#) + (if (let ((#{x 16199}# (car #{ids 16188}#))) + (if (symbol? #{x 16199}#) + #t + (if (if (vector? #{x 16199}#) + (if (= (vector-length #{x 16199}#) 4) + (eq? (vector-ref #{x 16199}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 16199}# 1)) + #f))) + (#{all-ids? 16026}# (cdr #{ids 16188}#)) + #f))))) + (#{all-ids? 16026}# #{ids 16025}#)) + (#{distinct-bound-ids? 4441}# #{ids 16025}#) + #f))) + (#{distinct-bound-ids? 4441}# + (lambda (#{ids 16327}#) + (letrec* + ((#{distinct? 16328}# + (lambda (#{ids 16440}#) + (if (null? #{ids 16440}#) + (null? #{ids 16440}#) + (if (not (#{bound-id-member? 4442}# + (car #{ids 16440}#) + (cdr #{ids 16440}#))) + (#{distinct? 16328}# (cdr #{ids 16440}#)) + #f))))) + (#{distinct? 16328}# #{ids 16327}#)))) + (#{bound-id-member? 4442}# + (lambda (#{x 16650}# #{list 16651}#) + (if (not (null? #{list 16651}#)) + (let ((#{t 16652}# + (let ((#{j 16733}# (car #{list 16651}#))) + (if (if (if (vector? #{x 16650}#) + (if (= (vector-length #{x 16650}#) 4) + (eq? (vector-ref #{x 16650}# 0) + 'syntax-object) + #f) + #f) + (if (vector? #{j 16733}#) + (if (= (vector-length #{j 16733}#) 4) + (eq? (vector-ref #{j 16733}# 0) 'syntax-object) + #f) + #f) + #f) + (if (eq? (vector-ref #{x 16650}# 1) + (vector-ref #{j 16733}# 1)) + (#{same-marks? 4433}# + (car (vector-ref #{x 16650}# 2)) + (car (vector-ref #{j 16733}# 2))) + #f) + (eq? #{x 16650}# #{j 16733}#))))) + (if #{t 16652}# + #{t 16652}# + (#{bound-id-member? 4442}# + #{x 16650}# + (cdr #{list 16651}#)))) + #f))) + (#{wrap 4443}# + (lambda (#{x 16777}# #{w 16778}# #{defmod 16779}#) + (if (if (null? (car #{w 16778}#)) + (null? (cdr #{w 16778}#)) + #f) + #{x 16777}# + (if (if (vector? #{x 16777}#) + (if (= (vector-length #{x 16777}#) 4) + (eq? (vector-ref #{x 16777}# 0) 'syntax-object) + #f) + #f) + (let ((#{expression 16793}# (vector-ref #{x 16777}# 1)) + (#{wrap 16794}# + (#{join-wraps 4431}# + #{w 16778}# + (vector-ref #{x 16777}# 2))) + (#{module 16795}# (vector-ref #{x 16777}# 3))) + (vector + 'syntax-object + #{expression 16793}# + #{wrap 16794}# + #{module 16795}#)) + (if (null? #{x 16777}#) + #{x 16777}# + (vector + 'syntax-object + #{x 16777}# + #{w 16778}# + #{defmod 16779}#)))))) + (#{source-wrap 4444}# + (lambda (#{x 16812}# + #{w 16813}# + #{s 16814}# + #{defmod 16815}#) + (#{wrap 4443}# + (begin + (if (if (pair? #{x 16812}#) #{s 16814}# #f) + (set-source-properties! #{x 16812}# #{s 16814}#)) + #{x 16812}#) + #{w 16813}# + #{defmod 16815}#))) + (#{expand-sequence 4445}# + (lambda (#{body 26205}# + #{r 26206}# + #{w 26207}# + #{s 26208}# + #{mod 26209}#) + (#{build-sequence 4396}# + #{s 26208}# + (letrec* + ((#{dobody 26289}# + (lambda (#{body 26639}# + #{r 26640}# + #{w 26641}# + #{mod 26642}#) + (if (null? #{body 26639}#) + '() + (let ((#{first 26643}# + (let ((#{e 26647}# (car #{body 26639}#))) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{e 26647}# + #{r 26640}# + #{w 26641}# + (#{source-annotation 4408}# #{e 26647}#) + #f + #{mod 26642}# + #f)) + (lambda (#{type 26654}# + #{value 26655}# + #{e 26656}# + #{w 26657}# + #{s 26658}# + #{mod 26659}#) + (#{expand-expr 4451}# + #{type 26654}# + #{value 26655}# + #{e 26656}# + #{r 26640}# + #{w 26657}# + #{s 26658}# + #{mod 26659}#)))))) + (cons #{first 26643}# + (#{dobody 26289}# + (cdr #{body 26639}#) + #{r 26640}# + #{w 26641}# + #{mod 26642}#))))))) + (#{dobody 26289}# + #{body 26205}# + #{r 26206}# + #{w 26207}# + #{mod 26209}#))))) + (#{expand-top-sequence 4446}# + (lambda (#{body 16833}# + #{r 16834}# + #{w 16835}# + #{s 16836}# + #{m 16837}# + #{esew 16838}# + #{mod 16839}#) + (letrec* + ((#{scan 16840}# + (lambda (#{body 16971}# + #{r 16972}# + #{w 16973}# + #{s 16974}# + #{m 16975}# + #{esew 16976}# + #{mod 16977}# + #{exps 16978}#) + (if (null? #{body 16971}#) + #{exps 16978}# + (call-with-values + (lambda () + (call-with-values + (lambda () + (let ((#{e 16979}# (car #{body 16971}#))) + (#{syntax-type 4449}# + #{e 16979}# + #{r 16972}# + #{w 16973}# + (let ((#{t 16983}# + (#{source-annotation 4408}# + #{e 16979}#))) + (if #{t 16983}# #{t 16983}# #{s 16974}#)) + #f + #{mod 16977}# + #f))) + (lambda (#{type 17218}# + #{value 17219}# + #{e 17220}# + #{w 17221}# + #{s 17222}# + #{mod 17223}#) + (if (eqv? #{type 17218}# 'begin-form) + (let ((#{tmp 17228}# + ($sc-dispatch #{e 17220}# '(_)))) + (if #{tmp 17228}# + (@apply + (lambda () #{exps 16978}#) + #{tmp 17228}#) + (let ((#{tmp 17232}# + ($sc-dispatch + #{e 17220}# + '(_ any . each-any)))) + (if #{tmp 17232}# + (@apply + (lambda (#{e1 17236}# #{e2 17237}#) + (#{scan 16840}# + (cons #{e1 17236}# #{e2 17237}#) + #{r 16972}# + #{w 17221}# + #{s 17222}# + #{m 16975}# + #{esew 16976}# + #{mod 17223}# + #{exps 16978}#)) + #{tmp 17232}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 17220}#))))) + (if (eqv? #{type 17218}# 'local-syntax-form) + (#{expand-local-syntax 4455}# + #{value 17219}# + #{e 17220}# + #{r 16972}# + #{w 17221}# + #{s 17222}# + #{mod 17223}# + (lambda (#{body 17252}# + #{r 17253}# + #{w 17254}# + #{s 17255}# + #{mod 17256}#) + (#{scan 16840}# + #{body 17252}# + #{r 17253}# + #{w 17254}# + #{s 17255}# + #{m 16975}# + #{esew 16976}# + #{mod 17256}# + #{exps 16978}#))) + (if (eqv? #{type 17218}# 'eval-when-form) + (let ((#{tmp 17261}# + ($sc-dispatch + #{e 17220}# + '(_ each-any any . each-any)))) + (if #{tmp 17261}# + (@apply + (lambda (#{x 17265}# + #{e1 17266}# + #{e2 17267}#) + (let ((#{when-list 17268}# + (#{parse-when-list 4448}# + #{e 17220}# + #{x 17265}#)) + (#{body 17269}# + (cons #{e1 17266}# + #{e2 17267}#))) + (if (eq? #{m 16975}# 'e) + (if (memq 'eval + #{when-list 17268}#) + (#{scan 16840}# + #{body 17269}# + #{r 16972}# + #{w 17221}# + #{s 17222}# + (if (memq 'expand + #{when-list 17268}#) + 'c&e + 'e) + '(eval) + #{mod 17223}# + #{exps 16978}#) + (begin + (if (memq 'expand + #{when-list 17268}#) + (let ((#{x 17346}# + (#{expand-top-sequence 4446}# + #{body 17269}# + #{r 16972}# + #{w 17221}# + #{s 17222}# + 'e + '(eval) + #{mod 17223}#))) + (primitive-eval + #{x 17346}#))) + (values #{exps 16978}#))) + (if (memq 'load + #{when-list 17268}#) + (if (let ((#{t 17372}# + (memq 'compile + #{when-list 17268}#))) + (if #{t 17372}# + #{t 17372}# + (let ((#{t 17421}# + (memq 'expand + #{when-list 17268}#))) + (if #{t 17421}# + #{t 17421}# + (if (eq? #{m 16975}# + 'c&e) + (memq 'eval + #{when-list 17268}#) + #f))))) + (#{scan 16840}# + #{body 17269}# + #{r 16972}# + #{w 17221}# + #{s 17222}# + 'c&e + '(compile load) + #{mod 17223}# + #{exps 16978}#) + (if (if (eq? #{m 16975}# 'c) + #t + (eq? #{m 16975}# 'c&e)) + (#{scan 16840}# + #{body 17269}# + #{r 16972}# + #{w 17221}# + #{s 17222}# + 'c + '(load) + #{mod 17223}# + #{exps 16978}#) + (values #{exps 16978}#))) + (if (let ((#{t 17550}# + (memq 'compile + #{when-list 17268}#))) + (if #{t 17550}# + #{t 17550}# + (let ((#{t 17599}# + (memq 'expand + #{when-list 17268}#))) + (if #{t 17599}# + #{t 17599}# + (if (eq? #{m 16975}# + 'c&e) + (memq 'eval + #{when-list 17268}#) + #f))))) + (begin + (let ((#{x 17723}# + (#{expand-top-sequence 4446}# + #{body 17269}# + #{r 16972}# + #{w 17221}# + #{s 17222}# + 'e + '(eval) + #{mod 17223}#))) + (primitive-eval + #{x 17723}#)) + (values #{exps 16978}#)) + (values #{exps 16978}#)))))) + #{tmp 17261}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 17220}#))) + (if (if (eqv? #{type 17218}# + 'define-syntax-form) + #t + (eqv? #{type 17218}# + 'define-syntax-parameter-form)) + (let ((#{n 17769}# + (#{id-var-name 4434}# + #{value 17219}# + #{w 17221}#)) + (#{r 17770}# + (#{macros-only-env 4411}# + #{r 16972}#))) + (if (eqv? #{m 16975}# 'c) + (if (memq 'compile #{esew 16976}#) + (let ((#{e 17774}# + (#{expand-install-global 4447}# + #{n 17769}# + (#{expand 4450}# + #{e 17220}# + #{r 17770}# + #{w 17221}# + #{mod 17223}#)))) + (begin + (#{top-level-eval-hook 4375}# + #{e 17774}# + #{mod 17223}#) + (if (memq 'load #{esew 16976}#) + (values + (cons #{e 17774}# + #{exps 16978}#)) + (values #{exps 16978}#)))) + (if (memq 'load #{esew 16976}#) + (values + (cons (#{expand-install-global 4447}# + #{n 17769}# + (#{expand 4450}# + #{e 17220}# + #{r 17770}# + #{w 17221}# + #{mod 17223}#)) + #{exps 16978}#)) + (values #{exps 16978}#))) + (if (eqv? #{m 16975}# 'c&e) + (let ((#{e 18221}# + (#{expand-install-global 4447}# + #{n 17769}# + (#{expand 4450}# + #{e 17220}# + #{r 17770}# + #{w 17221}# + #{mod 17223}#)))) + (begin + (#{top-level-eval-hook 4375}# + #{e 18221}# + #{mod 17223}#) + (values + (cons #{e 18221}# + #{exps 16978}#)))) + (begin + (if (memq 'eval #{esew 16976}#) + (#{top-level-eval-hook 4375}# + (#{expand-install-global 4447}# + #{n 17769}# + (#{expand 4450}# + #{e 17220}# + #{r 17770}# + #{w 17221}# + #{mod 17223}#)) + #{mod 17223}#)) + (values #{exps 16978}#))))) + (if (eqv? #{type 17218}# 'define-form) + (let ((#{n 18856}# + (#{id-var-name 4434}# + #{value 17219}# + #{w 17221}#))) + (let ((#{type 18857}# + (car (let ((#{t 18864}# + (assq #{n 18856}# + #{r 16972}#))) + (if #{t 18864}# + (cdr #{t 18864}#) (if (symbol? - #{name 21202}#) - #t - (if (if (vector? - #{name 21202}#) - (if (= (vector-length - #{name 21202}#) - 4) - (eq? (vector-ref - #{name 21202}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref - #{name 21202}# - 1)) - #f))) - #{tmp 21198}#) - #f) - (@apply - (lambda (#{name 21229}#) - (values - 'define-form - (#{wrap 4338}# - #{name 21229}# - #{w 20252}# - #{mod 20255}#) - '(#(syntax-object - if - ((top) - #(ribcage - #(name) - #((top)) - #("i1856")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1796" - "i1797" - "i1798" - "i1799" - "i1800" - "i1801")) - #(ribcage () () ()) - #(ribcage - #(first) - #((top)) - #("i1788")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1760" - "i1761" - "i1762" - "i1763" - "i1764" - "i1765" - "i1766")) - #(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)) - #(syntax-object - #f - ((top) - #(ribcage - #(name) - #((top)) - #("i1856")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1796" - "i1797" - "i1798" - "i1799" - "i1800" - "i1801")) - #(ribcage () () ()) - #(ribcage - #(first) - #((top)) - #("i1788")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1760" - "i1761" - "i1762" - "i1763" - "i1764" - "i1765" - "i1766")) - #(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)) - #(syntax-object - #f - ((top) - #(ribcage - #(name) - #((top)) - #("i1856")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1796" - "i1797" - "i1798" - "i1799" - "i1800" - "i1801")) - #(ribcage () () ()) - #(ribcage - #(first) - #((top)) - #("i1788")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1760" - "i1761" - "i1762" - "i1763" - "i1764" - "i1765" - "i1766")) - #(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))) - '(()) - #{s 20253}# - #{mod 20255}#)) - #{tmp 21198}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 20250}#))))))) - (if (eqv? #{ftype 20897}# 'define-syntax) - (let ((#{tmp 21248}# + #{n 18856}#) + (let ((#{t 18870}# + (#{get-global-definition-hook 4378}# + #{n 18856}# + #{mod 17223}#))) + (if #{t 18870}# + #{t 18870}# + '(global))) + '(displaced-lexical))))))) + (if (if (eqv? #{type 18857}# 'global) + #t + (if (eqv? #{type 18857}# 'core) + #t + (if (eqv? #{type 18857}# + 'macro) + #t + (eqv? #{type 18857}# + 'module-ref)))) + (begin + (if (if (if (eq? #{m 16975}# 'c) + #t + (eq? #{m 16975}# 'c&e)) + (if (not (module-local-variable + (current-module) + #{n 18856}#)) + (current-module) + #f) + #f) + (let ((#{old 18901}# + (module-variable + (current-module) + #{n 18856}#))) + (if (if (variable? + #{old 18901}#) + (variable-bound? + #{old 18901}#) + #f) + (module-define! + (current-module) + #{n 18856}# + (variable-ref + #{old 18901}#)) + (module-add! + (current-module) + #{n 18856}# + (make-undefined-variable))))) + (values + (cons (if (eq? #{m 16975}# 'c&e) + (let ((#{x 18903}# + (#{build-global-definition 4390}# + #{s 17222}# + #{n 18856}# + (#{expand 4450}# + #{e 17220}# + #{r 16972}# + #{w 17221}# + #{mod 17223}#)))) + (begin + (#{top-level-eval-hook 4375}# + #{x 18903}# + #{mod 17223}#) + #{x 18903}#)) + (lambda () + (#{build-global-definition 4390}# + #{s 17222}# + #{n 18856}# + (#{expand 4450}# + #{e 17220}# + #{r 16972}# + #{w 17221}# + #{mod 17223}#)))) + #{exps 16978}#))) + (if (eqv? #{type 18857}# + 'displaced-lexical) + (syntax-violation + #f + "identifier out of context" + #{e 17220}# + (#{wrap 4443}# + #{value 17219}# + #{w 17221}# + #{mod 17223}#)) + (syntax-violation + #f + "cannot define keyword at top level" + #{e 17220}# + (#{wrap 4443}# + #{value 17219}# + #{w 17221}# + #{mod 17223}#)))))) + (values + (cons (if (eq? #{m 16975}# 'c&e) + (let ((#{x 19349}# + (#{expand-expr 4451}# + #{type 17218}# + #{value 17219}# + #{e 17220}# + #{r 16972}# + #{w 17221}# + #{s 17222}# + #{mod 17223}#))) + (begin + (primitive-eval #{x 19349}#) + #{x 19349}#)) + (lambda () + (#{expand-expr 4451}# + #{type 17218}# + #{value 17219}# + #{e 17220}# + #{r 16972}# + #{w 17221}# + #{s 17222}# + #{mod 17223}#))) + #{exps 16978}#)))))))))) + (lambda (#{exps 19358}#) + (#{scan 16840}# + (cdr #{body 16971}#) + #{r 16972}# + #{w 16973}# + #{s 16974}# + #{m 16975}# + #{esew 16976}# + #{mod 16977}# + #{exps 19358}#))))))) + (call-with-values + (lambda () + (#{scan 16840}# + #{body 16833}# + #{r 16834}# + #{w 16835}# + #{s 16836}# + #{m 16837}# + #{esew 16838}# + #{mod 16839}# + '())) + (lambda (#{exps 16843}#) + (if (null? #{exps 16843}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #{s 16836}#) + (#{build-sequence 4396}# + #{s 16836}# + (letrec* + ((#{lp 16883}# + (lambda (#{in 16967}# #{out 16968}#) + (if (null? #{in 16967}#) + #{out 16968}# + (let ((#{e 16969}# (car #{in 16967}#))) + (#{lp 16883}# + (cdr #{in 16967}#) + (cons (if (procedure? #{e 16969}#) + (#{e 16969}#) + #{e 16969}#) + #{out 16968}#))))))) + (#{lp 16883}# #{exps 16843}# '()))))))))) + (#{expand-install-global 4447}# + (lambda (#{name 19359}# #{e 19360}#) + (let ((#{exp 19366}# + (let ((#{fun-exp 19376}# + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'make-syntax-transformer) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'make-syntax-transformer + #f))) + (#{arg-exps 19377}# + (list (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #{name 19359}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + 'macro) + #{e 19360}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 19376}# + #{arg-exps 19377}#)))) + (begin + (if (if (struct? #{exp 19366}#) + (eq? (struct-vtable #{exp 19366}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 19418}# (struct-ref #{exp 19366}# 1))) + (if (not (assq 'name #{meta 19418}#)) + (let ((#{v 19425}# + (cons (cons 'name #{name 19359}#) #{meta 19418}#))) + (struct-set! #{exp 19366}# 1 #{v 19425}#))))) + (make-struct/no-tail + (vector-ref %expanded-vtables 9) + #f + #{name 19359}# + #{exp 19366}#))))) + (#{parse-when-list 4448}# + (lambda (#{e 19436}# #{when-list 19437}#) + (let ((#{result 19438}# + (#{strip 4463}# #{when-list 19437}# '(())))) + (letrec* + ((#{lp 19439}# + (lambda (#{l 19493}#) + (if (null? #{l 19493}#) + #{result 19438}# + (if (let ((#{t 19495}# (car #{l 19493}#))) + (if (eq? #{t 19495}# 'compile) + #t + (if (eq? #{t 19495}# 'load) + #t + (if (eq? #{t 19495}# 'eval) + #t + (eq? #{t 19495}# 'expand))))) + (#{lp 19439}# (cdr #{l 19493}#)) + (syntax-violation + 'eval-when + "invalid situation" + #{e 19436}# + (car #{l 19493}#))))))) + (#{lp 19439}# #{result 19438}#))))) + (#{syntax-type 4449}# + (lambda (#{e 19497}# + #{r 19498}# + #{w 19499}# + #{s 19500}# + #{rib 19501}# + #{mod 19502}# + #{for-car? 19503}#) + (if (symbol? #{e 19497}#) + (let ((#{n 19504}# + (#{id-var-name 4434}# #{e 19497}# #{w 19499}#))) + (let ((#{b 19505}# + (let ((#{t 19513}# (assq #{n 19504}# #{r 19498}#))) + (if #{t 19513}# + (cdr #{t 19513}#) + (if (symbol? #{n 19504}#) + (let ((#{t 19519}# + (#{get-global-definition-hook 4378}# + #{n 19504}# + #{mod 19502}#))) + (if #{t 19519}# #{t 19519}# '(global))) + '(displaced-lexical)))))) + (let ((#{type 19506}# (car #{b 19505}#))) + (if (eqv? #{type 19506}# 'lexical) + (values + #{type 19506}# + (cdr #{b 19505}#) + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (if (eqv? #{type 19506}# 'global) + (values + #{type 19506}# + #{n 19504}# + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (if (eqv? #{type 19506}# 'macro) + (if #{for-car? 19503}# + (values + #{type 19506}# + (cdr #{b 19505}#) + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (#{syntax-type 4449}# + (#{expand-macro 4453}# + (cdr #{b 19505}#) + #{e 19497}# + #{r 19498}# + #{w 19499}# + #{s 19500}# + #{rib 19501}# + #{mod 19502}#) + #{r 19498}# + '(()) + #{s 19500}# + #{rib 19501}# + #{mod 19502}# + #f)) + (values + #{type 19506}# + (cdr #{b 19505}#) + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#))))))) + (if (pair? #{e 19497}#) + (let ((#{first 19539}# (car #{e 19497}#))) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{first 19539}# + #{r 19498}# + #{w 19499}# + #{s 19500}# + #{rib 19501}# + #{mod 19502}# + #t)) + (lambda (#{ftype 19541}# + #{fval 19542}# + #{fe 19543}# + #{fw 19544}# + #{fs 19545}# + #{fmod 19546}#) + (if (eqv? #{ftype 19541}# 'lexical) + (values + 'lexical-call + #{fval 19542}# + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (if (eqv? #{ftype 19541}# 'global) + (values + 'global-call + (vector + 'syntax-object + #{fval 19542}# + #{w 19499}# + #{fmod 19546}#) + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (if (eqv? #{ftype 19541}# 'macro) + (#{syntax-type 4449}# + (#{expand-macro 4453}# + #{fval 19542}# + #{e 19497}# + #{r 19498}# + #{w 19499}# + #{s 19500}# + #{rib 19501}# + #{mod 19502}#) + #{r 19498}# + '(()) + #{s 19500}# + #{rib 19501}# + #{mod 19502}# + #{for-car? 19503}#) + (if (eqv? #{ftype 19541}# 'module-ref) + (call-with-values + (lambda () + (#{fval 19542}# + #{e 19497}# + #{r 19498}# + #{w 19499}#)) + (lambda (#{e 19567}# + #{r 19568}# + #{w 19569}# + #{s 19570}# + #{mod 19571}#) + (#{syntax-type 4449}# + #{e 19567}# + #{r 19568}# + #{w 19569}# + #{s 19570}# + #{rib 19501}# + #{mod 19571}# + #{for-car? 19503}#))) + (if (eqv? #{ftype 19541}# 'core) + (values + 'core-form + #{fval 19542}# + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (if (eqv? #{ftype 19541}# 'local-syntax) + (values + 'local-syntax-form + #{fval 19542}# + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (if (eqv? #{ftype 19541}# 'begin) + (values + 'begin-form + #f + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (if (eqv? #{ftype 19541}# 'eval-when) + (values + 'eval-when-form + #f + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (if (eqv? #{ftype 19541}# 'define) + (let ((#{tmp 19588}# ($sc-dispatch - #{e 20250}# + #{e 19497}# '(_ any any)))) - (if (if #{tmp 21248}# + (if (if #{tmp 19588}# (@apply - (lambda (#{name 21252}# - #{val 21253}#) - (if (symbol? #{name 21252}#) + (lambda (#{name 19592}# + #{val 19593}#) + (if (symbol? #{name 19592}#) #t (if (if (vector? - #{name 21252}#) + #{name 19592}#) (if (= (vector-length - #{name 21252}#) + #{name 19592}#) 4) (eq? (vector-ref - #{name 21252}# + #{name 19592}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21252}# + #{name 19592}# 1)) #f))) - #{tmp 21248}#) + #{tmp 19588}#) #f) (@apply - (lambda (#{name 21280}# - #{val 21281}#) + (lambda (#{name 19620}# + #{val 19621}#) (values - 'define-syntax-form - #{name 21280}# - #{val 21281}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#)) - #{tmp 21248}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 20250}#))) - (if (eqv? #{ftype 20897}# - 'define-syntax-parameter) - (let ((#{tmp 21292}# + 'define-form + #{name 19620}# + #{val 19621}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#)) + #{tmp 19588}#) + (let ((#{tmp 19622}# + ($sc-dispatch + #{e 19497}# + '(_ (any . any) + any + . + each-any)))) + (if (if #{tmp 19622}# + (@apply + (lambda (#{name 19626}# + #{args 19627}# + #{e1 19628}# + #{e2 19629}#) + (if (if (symbol? + #{name 19626}#) + #t + (if (if (vector? + #{name 19626}#) + (if (= (vector-length + #{name 19626}#) + 4) + (eq? (vector-ref + #{name 19626}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{name 19626}# + 1)) + #f)) + (#{valid-bound-ids? 4440}# + (letrec* + ((#{lvl 19778}# + (lambda (#{vars 19780}# + #{ls 19781}# + #{w 19782}#) + (if (pair? #{vars 19780}#) + (#{lvl 19778}# + (cdr #{vars 19780}#) + (cons (#{wrap 4443}# + (car #{vars 19780}#) + #{w 19782}# + #f) + #{ls 19781}#) + #{w 19782}#) + (if (if (symbol? + #{vars 19780}#) + #t + (if (if (vector? + #{vars 19780}#) + (if (= (vector-length + #{vars 19780}#) + 4) + (eq? (vector-ref + #{vars 19780}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{vars 19780}# + 1)) + #f)) + (cons (#{wrap 4443}# + #{vars 19780}# + #{w 19782}# + #f) + #{ls 19781}#) + (if (null? #{vars 19780}#) + #{ls 19781}# + (if (if (vector? + #{vars 19780}#) + (if (= (vector-length + #{vars 19780}#) + 4) + (eq? (vector-ref + #{vars 19780}# + 0) + 'syntax-object) + #f) + #f) + (#{lvl 19778}# + (vector-ref + #{vars 19780}# + 1) + #{ls 19781}# + (#{join-wraps 4431}# + #{w 19782}# + (vector-ref + #{vars 19780}# + 2))) + (cons #{vars 19780}# + #{ls 19781}#)))))))) + (#{lvl 19778}# + #{args 19627}# + '() + '(())))) + #f)) + #{tmp 19622}#) + #f) + (@apply + (lambda (#{name 19826}# + #{args 19827}# + #{e1 19828}# + #{e2 19829}#) + (values + 'define-form + (#{wrap 4443}# + #{name 19826}# + #{w 19499}# + #{mod 19502}#) + (let ((#{e 19835}# + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(name + args + e1 + e2) + #((top) + (top) + (top) + (top)) + #("i1899" + "i1900" + "i1901" + "i1902")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1852" + "i1853" + "i1854" + "i1855" + "i1856" + "i1857")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1844")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1816" + "i1817" + "i1818" + "i1819" + "i1820" + "i1821" + "i1822")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + (#{wrap 4443}# + (cons #{args 19827}# + (cons #{e1 19828}# + #{e2 19829}#)) + #{w 19499}# + #{mod 19502}#)))) + (begin + (if (if (pair? #{e 19835}#) + #{s 19500}# + #f) + (set-source-properties! + #{e 19835}# + #{s 19500}#)) + #{e 19835}#)) + '(()) + #{s 19500}# + #{mod 19502}#)) + #{tmp 19622}#) + (let ((#{tmp 19842}# + ($sc-dispatch + #{e 19497}# + '(_ any)))) + (if (if #{tmp 19842}# + (@apply + (lambda (#{name 19846}#) + (if (symbol? + #{name 19846}#) + #t + (if (if (vector? + #{name 19846}#) + (if (= (vector-length + #{name 19846}#) + 4) + (eq? (vector-ref + #{name 19846}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{name 19846}# + 1)) + #f))) + #{tmp 19842}#) + #f) + (@apply + (lambda (#{name 19873}#) + (values + 'define-form + (#{wrap 4443}# + #{name 19873}# + #{w 19499}# + #{mod 19502}#) + '(#(syntax-object + if + ((top) + #(ribcage + #(name) + #((top)) + #("i1912")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1852" + "i1853" + "i1854" + "i1855" + "i1856" + "i1857")) + #(ribcage () () ()) + #(ribcage + #(first) + #((top)) + #("i1844")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1816" + "i1817" + "i1818" + "i1819" + "i1820" + "i1821" + "i1822")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + #(syntax-object + #f + ((top) + #(ribcage + #(name) + #((top)) + #("i1912")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1852" + "i1853" + "i1854" + "i1855" + "i1856" + "i1857")) + #(ribcage () () ()) + #(ribcage + #(first) + #((top)) + #("i1844")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1816" + "i1817" + "i1818" + "i1819" + "i1820" + "i1821" + "i1822")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + #(syntax-object + #f + ((top) + #(ribcage + #(name) + #((top)) + #("i1912")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1852" + "i1853" + "i1854" + "i1855" + "i1856" + "i1857")) + #(ribcage () () ()) + #(ribcage + #(first) + #((top)) + #("i1844")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1816" + "i1817" + "i1818" + "i1819" + "i1820" + "i1821" + "i1822")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + '(()) + #{s 19500}# + #{mod 19502}#)) + #{tmp 19842}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 19497}#))))))) + (if (eqv? #{ftype 19541}# 'define-syntax) + (let ((#{tmp 19892}# ($sc-dispatch - #{e 20250}# + #{e 19497}# '(_ any any)))) - (if (if #{tmp 21292}# + (if (if #{tmp 19892}# (@apply - (lambda (#{name 21296}# - #{val 21297}#) - (if (symbol? #{name 21296}#) + (lambda (#{name 19896}# + #{val 19897}#) + (if (symbol? #{name 19896}#) #t (if (if (vector? - #{name 21296}#) + #{name 19896}#) (if (= (vector-length - #{name 21296}#) + #{name 19896}#) 4) (eq? (vector-ref - #{name 21296}# + #{name 19896}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21296}# + #{name 19896}# 1)) #f))) - #{tmp 21292}#) + #{tmp 19892}#) #f) (@apply - (lambda (#{name 21324}# - #{val 21325}#) + (lambda (#{name 19924}# + #{val 19925}#) (values - 'define-syntax-parameter-form - #{name 21324}# - #{val 21325}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#)) - #{tmp 21292}#) + 'define-syntax-form + #{name 19924}# + #{val 19925}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#)) + #{tmp 19892}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20250}#))) - (values - 'call - #f - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#))))))))))))))) - (if (if (vector? #{e 20250}#) - (if (= (vector-length #{e 20250}#) 4) - (eq? (vector-ref #{e 20250}# 0) 'syntax-object) + #{e 19497}#))) + (if (eqv? #{ftype 19541}# + 'define-syntax-parameter) + (let ((#{tmp 19936}# + ($sc-dispatch + #{e 19497}# + '(_ any any)))) + (if (if #{tmp 19936}# + (@apply + (lambda (#{name 19940}# + #{val 19941}#) + (if (symbol? + #{name 19940}#) + #t + (if (if (vector? + #{name 19940}#) + (if (= (vector-length + #{name 19940}#) + 4) + (eq? (vector-ref + #{name 19940}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{name 19940}# + 1)) + #f))) + #{tmp 19936}#) + #f) + (@apply + (lambda (#{name 19968}# + #{val 19969}#) + (values + 'define-syntax-parameter-form + #{name 19968}# + #{val 19969}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#)) + #{tmp 19936}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 19497}#))) + (values + 'call + #f + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#))))))))))))))) + (if (if (vector? #{e 19497}#) + (if (= (vector-length #{e 19497}#) 4) + (eq? (vector-ref #{e 19497}# 0) 'syntax-object) + #f) #f) - #f) - (#{syntax-type 4344}# - (vector-ref #{e 20250}# 1) - #{r 20251}# - (#{join-wraps 4329}# - #{w 20252}# - (vector-ref #{e 20250}# 2)) - (let ((#{t 21352}# - (#{source-annotation 4306}# #{e 20250}#))) - (if #{t 21352}# #{t 21352}# #{s 20253}#)) - #{rib 20254}# - (let ((#{t 21587}# (vector-ref #{e 20250}# 3))) - (if #{t 21587}# #{t 21587}# #{mod 20255}#)) - #{for-car? 20256}#) - (if (self-evaluating? #{e 20250}#) - (values - 'constant - #f - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#) - (values - 'other - #f - #{e 20250}# - #{w 20252}# - #{s 20253}# - #{mod 20255}#))))))) - (#{expand 4345}# - (lambda (#{e 21596}# - #{r 21597}# - #{w 21598}# - #{mod 21599}#) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{e 21596}# - #{r 21597}# - #{w 21598}# - (#{source-annotation 4306}# #{e 21596}#) - #f - #{mod 21599}# - #f)) - (lambda (#{type 21754}# - #{value 21755}# - #{e 21756}# - #{w 21757}# - #{s 21758}# - #{mod 21759}#) - (#{expand-expr 4346}# - #{type 21754}# - #{value 21755}# - #{e 21756}# - #{r 21597}# - #{w 21757}# - #{s 21758}# - #{mod 21759}#))))) - (#{expand-expr 4346}# - (lambda (#{type 21762}# - #{value 21763}# - #{e 21764}# - #{r 21765}# - #{w 21766}# - #{s 21767}# - #{mod 21768}#) - (if (eqv? #{type 21762}# 'lexical) - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #{s 21767}# - #{e 21764}# - #{value 21763}#) - (if (if (eqv? #{type 21762}# 'core) - #t - (eqv? #{type 21762}# 'core-form)) - (#{value 21763}# - #{e 21764}# - #{r 21765}# - #{w 21766}# - #{s 21767}# - #{mod 21768}#) - (if (eqv? #{type 21762}# 'module-ref) - (call-with-values - (lambda () - (#{value 21763}# - #{e 21764}# - #{r 21765}# - #{w 21766}#)) - (lambda (#{e 21794}# - #{r 21795}# - #{w 21796}# - #{s 21797}# - #{mod 21798}#) - (#{expand 4345}# - #{e 21794}# - #{r 21795}# - #{w 21796}# - #{mod 21798}#))) - (if (eqv? #{type 21762}# 'lexical-call) - (#{expand-application 4347}# - (let ((#{id 21873}# (car #{e 21764}#))) - (#{build-lexical-reference 4283}# - 'fun - (#{source-annotation 4306}# #{id 21873}#) - (if (if (vector? #{id 21873}#) - (if (= (vector-length #{id 21873}#) 4) - (eq? (vector-ref #{id 21873}# 0) 'syntax-object) - #f) - #f) - (syntax->datum #{id 21873}#) - #{id 21873}#) - #{value 21763}#)) - #{e 21764}# - #{r 21765}# - #{w 21766}# - #{s 21767}# - #{mod 21768}#) - (if (eqv? #{type 21762}# 'global-call) - (#{expand-application 4347}# - (#{build-global-reference 4286}# - (#{source-annotation 4306}# (car #{e 21764}#)) - (if (if (vector? #{value 21763}#) - (if (= (vector-length #{value 21763}#) 4) - (eq? (vector-ref #{value 21763}# 0) - 'syntax-object) - #f) - #f) - (vector-ref #{value 21763}# 1) - #{value 21763}#) - (if (if (vector? #{value 21763}#) - (if (= (vector-length #{value 21763}#) 4) - (eq? (vector-ref #{value 21763}# 0) - 'syntax-object) - #f) - #f) - (vector-ref #{value 21763}# 3) - #{mod 21768}#)) - #{e 21764}# - #{r 21765}# - #{w 21766}# - #{s 21767}# - #{mod 21768}#) - (if (eqv? #{type 21762}# 'constant) - (let ((#{exp 22210}# - (#{strip 4358}# - (#{wrap 4338}# - (begin - (if (if (pair? #{e 21764}#) #{s 21767}# #f) - (set-source-properties! - #{e 21764}# - #{s 21767}#)) - #{e 21764}#) - #{w 21766}# - #{mod 21768}#) - '(())))) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #{s 21767}# - #{exp 22210}#)) - (if (eqv? #{type 21762}# 'global) - (#{analyze-variable 4285}# - #{mod 21768}# - #{value 21763}# - (lambda (#{mod 22246}# #{var 22247}# #{public? 22248}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #{s 21767}# - #{mod 22246}# - #{var 22247}# - #{public? 22248}#)) - (lambda (#{var 22257}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #{s 21767}# - #{var 22257}#))) - (if (eqv? #{type 21762}# 'call) - (#{expand-application 4347}# - (#{expand 4345}# - (car #{e 21764}#) - #{r 21765}# - #{w 21766}# - #{mod 21768}#) - #{e 21764}# - #{r 21765}# - #{w 21766}# - #{s 21767}# - #{mod 21768}#) - (if (eqv? #{type 21762}# 'begin-form) - (let ((#{tmp 22332}# - ($sc-dispatch - #{e 21764}# - '(_ any . each-any)))) - (if #{tmp 22332}# - (@apply - (lambda (#{e1 22336}# #{e2 22337}#) - (#{expand-sequence 4340}# - (cons #{e1 22336}# #{e2 22337}#) - #{r 21765}# - #{w 21766}# - #{s 21767}# - #{mod 21768}#)) - #{tmp 22332}#) - (let ((#{tmp 22424}# - ($sc-dispatch #{e 21764}# '(_)))) - (if #{tmp 22424}# - (@apply - (lambda () - (if (include-deprecated-features) - (begin - (issue-deprecation-warning - "Sequences of zero expressions are deprecated. Use *unspecified*.") - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #f)) - (syntax-violation - #f - "sequence of zero expressions" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 21764}#) - #{s 21767}# - #f) - (set-source-properties! - #{e 21764}# - #{s 21767}#)) - #{e 21764}#) - #{w 21766}# - #{mod 21768}#)))) - #{tmp 22424}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 21764}#))))) - (if (eqv? #{type 21762}# 'local-syntax-form) - (#{expand-local-syntax 4350}# - #{value 21763}# - #{e 21764}# - #{r 21765}# - #{w 21766}# - #{s 21767}# - #{mod 21768}# - #{expand-sequence 4340}#) - (if (eqv? #{type 21762}# 'eval-when-form) - (let ((#{tmp 22535}# - ($sc-dispatch - #{e 21764}# - '(_ each-any any . each-any)))) - (if #{tmp 22535}# - (@apply - (lambda (#{x 22539}# - #{e1 22540}# - #{e2 22541}#) - (let ((#{when-list 22542}# - (#{parse-when-list 4343}# - #{e 21764}# - #{x 22539}#))) - (if (memq 'eval #{when-list 22542}#) - (#{expand-sequence 4340}# - (cons #{e1 22540}# #{e2 22541}#) - #{r 21765}# - #{w 21766}# - #{s 21767}# - #{mod 21768}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #f)))) - #{tmp 22535}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 21764}#))) - (if (if (eqv? #{type 21762}# 'define-form) - #t - (if (eqv? #{type 21762}# - 'define-syntax-form) - #t - (eqv? #{type 21762}# - 'define-syntax-parameter-form))) - (syntax-violation - #f - "definition in expression context" - #{e 21764}# - (#{wrap 4338}# - #{value 21763}# - #{w 21766}# - #{mod 21768}#)) - (if (eqv? #{type 21762}# 'syntax) - (syntax-violation - #f - "reference to pattern variable outside syntax form" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 21764}#) - #{s 21767}# - #f) - (set-source-properties! - #{e 21764}# - #{s 21767}#)) - #{e 21764}#) - #{w 21766}# - #{mod 21768}#)) - (if (eqv? #{type 21762}# 'displaced-lexical) - (syntax-violation - #f - "reference to identifier outside its scope" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 21764}#) - #{s 21767}# - #f) - (set-source-properties! - #{e 21764}# - #{s 21767}#)) - #{e 21764}#) - #{w 21766}# - #{mod 21768}#)) - (syntax-violation - #f - "unexpected syntax" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 21764}#) - #{s 21767}# - #f) - (set-source-properties! - #{e 21764}# - #{s 21767}#)) - #{e 21764}#) - #{w 21766}# - #{mod 21768}#)))))))))))))))))) - (#{expand-application 4347}# - (lambda (#{x 22782}# - #{e 22783}# - #{r 22784}# - #{w 22785}# - #{s 22786}# - #{mod 22787}#) - (let ((#{tmp 22789}# - ($sc-dispatch #{e 22783}# '(any . each-any)))) - (if #{tmp 22789}# - (@apply - (lambda (#{e0 22793}# #{e1 22794}#) - (#{build-application 4280}# - #{s 22786}# - #{x 22782}# - (map (lambda (#{e 22874}#) - (#{expand 4345}# - #{e 22874}# - #{r 22784}# - #{w 22785}# - #{mod 22787}#)) - #{e1 22794}#))) - #{tmp 22789}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 22783}#))))) - (#{expand-macro 4348}# - (lambda (#{p 22950}# - #{e 22951}# - #{r 22952}# - #{w 22953}# - #{s 22954}# - #{rib 22955}# - #{mod 22956}#) - (letrec* - ((#{rebuild-macro-output 22957}# - (lambda (#{x 22988}# #{m 22989}#) - (if (pair? #{x 22988}#) - (let ((#{e 22993}# - (cons (#{rebuild-macro-output 22957}# - (car #{x 22988}#) - #{m 22989}#) - (#{rebuild-macro-output 22957}# - (cdr #{x 22988}#) - #{m 22989}#)))) - (begin - (if (if (pair? #{e 22993}#) #{s 22954}# #f) - (set-source-properties! #{e 22993}# #{s 22954}#)) - #{e 22993}#)) - (if (if (vector? #{x 22988}#) - (if (= (vector-length #{x 22988}#) 4) - (eq? (vector-ref #{x 22988}# 0) 'syntax-object) - #f) - #f) - (let ((#{w 23009}# (vector-ref #{x 22988}# 2))) - (let ((#{ms 23010}# (car #{w 23009}#)) - (#{s 23011}# (cdr #{w 23009}#))) - (if (if (pair? #{ms 23010}#) - (eq? (car #{ms 23010}#) #f) - #f) - (let ((#{expression 23019}# (vector-ref #{x 22988}# 1)) - (#{wrap 23020}# - (cons (cdr #{ms 23010}#) - (if #{rib 22955}# - (cons #{rib 22955}# (cdr #{s 23011}#)) - (cdr #{s 23011}#)))) - (#{module 23021}# (vector-ref #{x 22988}# 3))) - (vector - 'syntax-object - #{expression 23019}# - #{wrap 23020}# - #{module 23021}#)) - (let ((#{expression 23031}# - (let ((#{e 23036}# (vector-ref #{x 22988}# 1))) - (begin - (if (if (pair? #{e 23036}#) #{s 23011}# #f) - (set-source-properties! - #{e 23036}# - #{s 23011}#)) - #{e 23036}#))) - (#{wrap 23032}# - (cons (cons #{m 22989}# #{ms 23010}#) - (if #{rib 22955}# - (cons #{rib 22955}# - (cons 'shift #{s 23011}#)) - (cons 'shift #{s 23011}#)))) - (#{module 23033}# (vector-ref #{x 22988}# 3))) - (vector - 'syntax-object - #{expression 23031}# - #{wrap 23032}# - #{module 23033}#))))) - (if (vector? #{x 22988}#) - (let ((#{n 23048}# (vector-length #{x 22988}#))) - (let ((#{v 23049}# - (let ((#{e 23057}# (make-vector #{n 23048}#))) - (begin - (if (if (pair? #{e 23057}#) #{x 22988}# #f) - (set-source-properties! - #{e 23057}# - #{x 22988}#)) - #{e 23057}#)))) - (letrec* - ((#{loop 23050}# - (lambda (#{i 23102}#) - (if (= #{i 23102}# #{n 23048}#) - #{v 23049}# - (begin - (vector-set! - #{v 23049}# - #{i 23102}# - (#{rebuild-macro-output 22957}# - (vector-ref #{x 22988}# #{i 23102}#) - #{m 22989}#)) - (#{loop 23050}# (#{1+}# #{i 23102}#))))))) - (#{loop 23050}# 0)))) - (if (symbol? #{x 22988}#) - (syntax-violation - #f - "encountered raw symbol in macro output" - (let ((#{s 23108}# (cdr #{w 22953}#))) - (#{wrap 4338}# - (begin - (if (if (pair? #{e 22951}#) #{s 23108}# #f) - (set-source-properties! - #{e 22951}# - #{s 23108}#)) - #{e 22951}#) - #{w 22953}# - #{mod 22956}#)) - #{x 22988}#) - (begin - (if (if (pair? #{x 22988}#) #{s 22954}# #f) - (set-source-properties! #{x 22988}# #{s 22954}#)) - #{x 22988}#)))))))) - (#{rebuild-macro-output 22957}# - (#{p 22950}# - (let ((#{w 22964}# - (cons (cons #f (car #{w 22953}#)) - (cons 'shift (cdr #{w 22953}#))))) - (#{wrap 4338}# - (begin - (if (if (pair? #{e 22951}#) #{s 22954}# #f) - (set-source-properties! #{e 22951}# #{s 22954}#)) - #{e 22951}#) - #{w 22964}# - #{mod 22956}#))) - (gensym "m"))))) - (#{expand-body 4349}# - (lambda (#{body 23140}# - #{outer-form 23141}# - #{r 23142}# - #{w 23143}# - #{mod 23144}#) - (let ((#{r 23145}# - (cons '("placeholder" placeholder) #{r 23142}#))) - (let ((#{ribcage 23146}# (vector 'ribcage '() '() '()))) - (let ((#{w 23147}# - (cons (car #{w 23143}#) - (cons #{ribcage 23146}# (cdr #{w 23143}#))))) - (letrec* - ((#{parse 23148}# - (lambda (#{body 23161}# - #{ids 23162}# - #{labels 23163}# - #{var-ids 23164}# - #{vars 23165}# - #{vals 23166}# - #{bindings 23167}#) - (if (null? #{body 23161}#) - (syntax-violation - #f - "no expressions in body" - #{outer-form 23141}#) - (let ((#{e 23168}# (cdr (car #{body 23161}#))) - (#{er 23169}# (car (car #{body 23161}#)))) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{e 23168}# - #{er 23169}# - '(()) - (#{source-annotation 4306}# #{er 23169}#) - #{ribcage 23146}# - #{mod 23144}# - #f)) - (lambda (#{type 23326}# - #{value 23327}# - #{e 23328}# - #{w 23329}# - #{s 23330}# - #{mod 23331}#) - (if (eqv? #{type 23326}# 'define-form) - (let ((#{id 23335}# - (#{wrap 4338}# - #{value 23327}# - #{w 23329}# - #{mod 23331}#)) - (#{label 23336}# - (symbol->string (gensym "i")))) - (let ((#{var 23337}# - (let ((#{id 23397}# - (if (if (vector? #{id 23335}#) - (if (= (vector-length - #{id 23335}#) - 4) - (eq? (vector-ref - #{id 23335}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{id 23335}# 1) - #{id 23335}#))) - (gensym - (string-append - (symbol->string #{id 23397}#) - " "))))) - (begin - (let ((#{update 23387}# - (cons (vector-ref #{id 23335}# 1) - (vector-ref - #{ribcage 23146}# - 1)))) - (vector-set! - #{ribcage 23146}# - 1 - #{update 23387}#)) - (let ((#{update 23389}# - (cons (car (vector-ref - #{id 23335}# - 2)) - (vector-ref - #{ribcage 23146}# - 2)))) - (vector-set! - #{ribcage 23146}# - 2 - #{update 23389}#)) - (let ((#{update 23391}# - (cons #{label 23336}# - (vector-ref - #{ribcage 23146}# - 3)))) - (vector-set! - #{ribcage 23146}# - 3 - #{update 23391}#)) - (#{parse 23148}# - (cdr #{body 23161}#) - (cons #{id 23335}# #{ids 23162}#) - (cons #{label 23336}# #{labels 23163}#) - (cons #{id 23335}# #{var-ids 23164}#) - (cons #{var 23337}# #{vars 23165}#) - (cons (cons #{er 23169}# - (#{wrap 4338}# - #{e 23328}# - #{w 23329}# - #{mod 23331}#)) - #{vals 23166}#) - (cons (cons 'lexical #{var 23337}#) - #{bindings 23167}#))))) - (if (if (eqv? #{type 23326}# 'define-syntax-form) - #t - (eqv? #{type 23326}# - 'define-syntax-parameter-form)) - (let ((#{id 23430}# - (#{wrap 4338}# - #{value 23327}# - #{w 23329}# - #{mod 23331}#)) - (#{label 23431}# - (symbol->string (gensym "i")))) - (begin - (let ((#{update 23481}# - (cons (vector-ref #{id 23430}# 1) - (vector-ref - #{ribcage 23146}# - 1)))) - (vector-set! - #{ribcage 23146}# - 1 - #{update 23481}#)) - (let ((#{update 23483}# - (cons (car (vector-ref - #{id 23430}# - 2)) - (vector-ref - #{ribcage 23146}# - 2)))) - (vector-set! - #{ribcage 23146}# - 2 - #{update 23483}#)) - (let ((#{update 23485}# - (cons #{label 23431}# - (vector-ref - #{ribcage 23146}# - 3)))) - (vector-set! - #{ribcage 23146}# - 3 - #{update 23485}#)) - (#{parse 23148}# - (cdr #{body 23161}#) - (cons #{id 23430}# #{ids 23162}#) - (cons #{label 23431}# #{labels 23163}#) - #{var-ids 23164}# - #{vars 23165}# - #{vals 23166}# - (cons (cons 'macro - (cons #{er 23169}# - (#{wrap 4338}# - #{e 23328}# - #{w 23329}# - #{mod 23331}#))) - #{bindings 23167}#)))) - (if (eqv? #{type 23326}# 'begin-form) - (let ((#{tmp 23493}# - ($sc-dispatch - #{e 23328}# - '(_ . each-any)))) - (if #{tmp 23493}# - (@apply - (lambda (#{e1 23497}#) - (#{parse 23148}# - (letrec* - ((#{f 23498}# - (lambda (#{forms 23561}#) - (if (null? #{forms 23561}#) - (cdr #{body 23161}#) - (cons (cons #{er 23169}# - (#{wrap 4338}# - (car #{forms 23561}#) - #{w 23329}# - #{mod 23331}#)) - (#{f 23498}# - (cdr #{forms 23561}#))))))) - (#{f 23498}# #{e1 23497}#)) - #{ids 23162}# - #{labels 23163}# - #{var-ids 23164}# - #{vars 23165}# - #{vals 23166}# - #{bindings 23167}#)) - #{tmp 23493}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 23328}#))) - (if (eqv? #{type 23326}# 'local-syntax-form) - (#{expand-local-syntax 4350}# - #{value 23327}# - #{e 23328}# - #{er 23169}# - #{w 23329}# - #{s 23330}# - #{mod 23331}# - (lambda (#{forms 23575}# - #{er 23576}# - #{w 23577}# - #{s 23578}# - #{mod 23579}#) - (#{parse 23148}# - (letrec* - ((#{f 23580}# - (lambda (#{forms 23643}#) - (if (null? #{forms 23643}#) - (cdr #{body 23161}#) - (cons (cons #{er 23576}# - (#{wrap 4338}# - (car #{forms 23643}#) - #{w 23577}# - #{mod 23579}#)) - (#{f 23580}# - (cdr #{forms 23643}#))))))) - (#{f 23580}# #{forms 23575}#)) - #{ids 23162}# - #{labels 23163}# - #{var-ids 23164}# - #{vars 23165}# - #{vals 23166}# - #{bindings 23167}#))) - (if (null? #{ids 23162}#) - (#{build-sequence 4294}# - #f - (map (lambda (#{x 23708}#) - (let ((#{e 23712}# - (cdr #{x 23708}#)) - (#{r 23713}# - (car #{x 23708}#))) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{e 23712}# - #{r 23713}# - '(()) - (#{source-annotation 4306}# - #{e 23712}#) - #f - #{mod 23331}# - #f)) - (lambda (#{type 23717}# - #{value 23718}# - #{e 23719}# - #{w 23720}# - #{s 23721}# - #{mod 23722}#) - (#{expand-expr 4346}# - #{type 23717}# - #{value 23718}# - #{e 23719}# - #{r 23713}# - #{w 23720}# - #{s 23721}# - #{mod 23722}#))))) - (cons (cons #{er 23169}# - (#{wrap 4338}# - (begin - (if (if (pair? #{e 23328}#) - #{s 23330}# - #f) - (set-source-properties! - #{e 23328}# - #{s 23330}#)) - #{e 23328}#) - #{w 23329}# - #{mod 23331}#)) - (cdr #{body 23161}#)))) - (begin - (if (not (#{valid-bound-ids? 4335}# - #{ids 23162}#)) - (syntax-violation - #f - "invalid or duplicate identifier in definition" - #{outer-form 23141}#)) - (letrec* - ((#{loop 23823}# - (lambda (#{bs 23826}# - #{er-cache 23827}# - #{r-cache 23828}#) - (if (not (null? #{bs 23826}#)) - (let ((#{b 23829}# - (car #{bs 23826}#))) - (if (eq? (car #{b 23829}#) - 'macro) - (let ((#{er 23831}# - (car (cdr #{b 23829}#)))) - (let ((#{r-cache 23832}# - (if (eq? #{er 23831}# - #{er-cache 23827}#) - #{r-cache 23828}# - (#{macros-only-env 4309}# - #{er 23831}#)))) - (begin - (set-cdr! - #{b 23829}# - (#{eval-local-transformer 4351}# - (#{expand 4345}# - (cdr (cdr #{b 23829}#)) - #{r-cache 23832}# - '(()) - #{mod 23331}#) - #{mod 23331}#)) - (#{loop 23823}# - (cdr #{bs 23826}#) - #{er 23831}# - #{r-cache 23832}#)))) - (#{loop 23823}# - (cdr #{bs 23826}#) - #{er-cache 23827}# - #{r-cache 23828}#))))))) - (#{loop 23823}# - #{bindings 23167}# - #f - #f)) - (set-cdr! - #{r 23145}# - (#{extend-env 4307}# - #{labels 23163}# - #{bindings 23167}# - (cdr #{r 23145}#))) - (#{build-letrec 4297}# - #f - #t - (reverse - (map syntax->datum - #{var-ids 23164}#)) - (reverse #{vars 23165}#) - (map (lambda (#{x 24175}#) - (let ((#{e 24179}# - (cdr #{x 24175}#)) - (#{r 24180}# - (car #{x 24175}#))) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{e 24179}# - #{r 24180}# - '(()) - (#{source-annotation 4306}# - #{e 24179}#) - #f - #{mod 23331}# - #f)) - (lambda (#{type 24184}# - #{value 24185}# - #{e 24186}# - #{w 24187}# - #{s 24188}# - #{mod 24189}#) - (#{expand-expr 4346}# - #{type 24184}# - #{value 24185}# - #{e 24186}# - #{r 24180}# - #{w 24187}# - #{s 24188}# - #{mod 24189}#))))) - (reverse #{vals 23166}#)) - (let ((#{exps 24195}# - (map (lambda (#{x 24196}#) - (let ((#{e 24199}# - (cdr #{x 24196}#)) - (#{r 24200}# - (car #{x 24196}#))) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{e 24199}# - #{r 24200}# - '(()) - (#{source-annotation 4306}# - #{e 24199}#) - #f - #{mod 23331}# - #f)) - (lambda (#{type 24204}# - #{value 24205}# - #{e 24206}# - #{w 24207}# - #{s 24208}# - #{mod 24209}#) - (#{expand-expr 4346}# - #{type 24204}# - #{value 24205}# - #{e 24206}# - #{r 24200}# - #{w 24207}# - #{s 24208}# - #{mod 24209}#))))) - (cons (cons #{er 23169}# - (#{wrap 4338}# - (begin - (if (if (pair? #{e 23328}#) - #{s 23330}# - #f) - (set-source-properties! - #{e 23328}# - #{s 23330}#)) - #{e 23328}#) - #{w 23329}# - #{mod 23331}#)) - (cdr #{body 23161}#))))) - (if (null? (cdr #{exps 24195}#)) - (car #{exps 24195}#) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 12) - #f - #{exps 24195}#))))))))))))))))) - (#{parse 23148}# - (map (lambda (#{x 23151}#) - (cons #{r 23145}# - (#{wrap 4338}# - #{x 23151}# - #{w 23147}# - #{mod 23144}#))) - #{body 23140}#) - '() - '() - '() - '() - '() - '()))))))) - (#{expand-local-syntax 4350}# - (lambda (#{rec? 24235}# - #{e 24236}# - #{r 24237}# - #{w 24238}# - #{s 24239}# - #{mod 24240}# - #{k 24241}#) - (let ((#{tmp 24243}# - ($sc-dispatch - #{e 24236}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 24243}# - (@apply - (lambda (#{id 24247}# - #{val 24248}# - #{e1 24249}# - #{e2 24250}#) - (if (not (#{valid-bound-ids? 4335}# #{id 24247}#)) - (syntax-violation + (#{syntax-type 4449}# + (vector-ref #{e 19497}# 1) + #{r 19498}# + (#{join-wraps 4431}# + #{w 19499}# + (vector-ref #{e 19497}# 2)) + (let ((#{t 19996}# + (#{source-annotation 4408}# #{e 19497}#))) + (if #{t 19996}# #{t 19996}# #{s 19500}#)) + #{rib 19501}# + (let ((#{t 20231}# (vector-ref #{e 19497}# 3))) + (if #{t 20231}# #{t 20231}# #{mod 19502}#)) + #{for-car? 19503}#) + (if (self-evaluating? #{e 19497}#) + (values + 'constant #f - "duplicate bound keyword" - #{e 24236}#) - (let ((#{labels 24340}# - (#{gen-labels 4316}# #{id 24247}#))) - (let ((#{new-w 24341}# - (#{make-binding-wrap 4327}# - #{id 24247}# - #{labels 24340}# - #{w 24238}#))) - (#{k 24241}# - (cons #{e1 24249}# #{e2 24250}#) - (#{extend-env 4307}# - #{labels 24340}# - (let ((#{trans-r 24379}# - (#{macros-only-env 4309}# #{r 24237}#))) - (begin - (if #{rec? 24235}# #{new-w 24341}# #{w 24238}#) - (map (lambda (#{x 24380}#) - (cons 'macro - (#{eval-local-transformer 4351}# - (#{expand 4345}# - #{x 24380}# - #{trans-r 24379}# - (values - (if #{rec? 24235}# - #{new-w 24341}# - #{w 24238}#)) - #{mod 24240}#) - #{mod 24240}#))) - #{val 24248}#))) - #{r 24237}#) - #{new-w 24341}# - #{s 24239}# - #{mod 24240}#))))) - #{tmp 24243}#) - (syntax-violation - #f - "bad local syntax definition" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 24236}#) #{s 24239}# #f) - (set-source-properties! #{e 24236}# #{s 24239}#)) - #{e 24236}#) - #{w 24238}# - #{mod 24240}#)))))) - (#{eval-local-transformer 4351}# - (lambda (#{expanded 24676}# #{mod 24677}#) - (let ((#{p 24678}# (primitive-eval #{expanded 24676}#))) - (if (procedure? #{p 24678}#) - #{p 24678}# - (syntax-violation - #f - "nonprocedure transformer" - #{p 24678}#))))) - (#{ellipsis? 4353}# - (lambda (#{x 5154}#) - (if (if (if (vector? #{x 5154}#) - (if (= (vector-length #{x 5154}#) 4) - (eq? (vector-ref #{x 5154}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 5154}# 1)) - #f) - (if (eq? (if (if (vector? #{x 5154}#) - (if (= (vector-length #{x 5154}#) 4) - (eq? (vector-ref #{x 5154}# 0) 'syntax-object) + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#) + (values + 'other + #f + #{e 19497}# + #{w 19499}# + #{s 19500}# + #{mod 19502}#))))))) + (#{expand 4450}# + (lambda (#{e 20240}# + #{r 20241}# + #{w 20242}# + #{mod 20243}#) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{e 20240}# + #{r 20241}# + #{w 20242}# + (#{source-annotation 4408}# #{e 20240}#) + #f + #{mod 20243}# + #f)) + (lambda (#{type 20398}# + #{value 20399}# + #{e 20400}# + #{w 20401}# + #{s 20402}# + #{mod 20403}#) + (#{expand-expr 4451}# + #{type 20398}# + #{value 20399}# + #{e 20400}# + #{r 20241}# + #{w 20401}# + #{s 20402}# + #{mod 20403}#))))) + (#{expand-expr 4451}# + (lambda (#{type 20406}# + #{value 20407}# + #{e 20408}# + #{r 20409}# + #{w 20410}# + #{s 20411}# + #{mod 20412}#) + (if (eqv? #{type 20406}# 'lexical) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #{s 20411}# + #{e 20408}# + #{value 20407}#) + (if (if (eqv? #{type 20406}# 'core) + #t + (eqv? #{type 20406}# 'core-form)) + (#{value 20407}# + #{e 20408}# + #{r 20409}# + #{w 20410}# + #{s 20411}# + #{mod 20412}#) + (if (eqv? #{type 20406}# 'module-ref) + (call-with-values + (lambda () + (#{value 20407}# + #{e 20408}# + #{r 20409}# + #{w 20410}#)) + (lambda (#{e 20438}# + #{r 20439}# + #{w 20440}# + #{s 20441}# + #{mod 20442}#) + (#{expand 4450}# + #{e 20438}# + #{r 20439}# + #{w 20440}# + #{mod 20442}#))) + (if (eqv? #{type 20406}# 'lexical-call) + (#{expand-application 4452}# + (let ((#{id 20517}# (car #{e 20408}#))) + (#{build-lexical-reference 4385}# + 'fun + (#{source-annotation 4408}# #{id 20517}#) + (if (if (vector? #{id 20517}#) + (if (= (vector-length #{id 20517}#) 4) + (eq? (vector-ref #{id 20517}# 0) 'syntax-object) + #f) + #f) + (syntax->datum #{id 20517}#) + #{id 20517}#) + #{value 20407}#)) + #{e 20408}# + #{r 20409}# + #{w 20410}# + #{s 20411}# + #{mod 20412}#) + (if (eqv? #{type 20406}# 'global-call) + (#{expand-application 4452}# + (#{build-global-reference 4388}# + (#{source-annotation 4408}# (car #{e 20408}#)) + (if (if (vector? #{value 20407}#) + (if (= (vector-length #{value 20407}#) 4) + (eq? (vector-ref #{value 20407}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{value 20407}# 1) + #{value 20407}#) + (if (if (vector? #{value 20407}#) + (if (= (vector-length #{value 20407}#) 4) + (eq? (vector-ref #{value 20407}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{value 20407}# 3) + #{mod 20412}#)) + #{e 20408}# + #{r 20409}# + #{w 20410}# + #{s 20411}# + #{mod 20412}#) + (if (eqv? #{type 20406}# 'constant) + (let ((#{exp 20854}# + (#{strip 4463}# + (#{wrap 4443}# + (begin + (if (if (pair? #{e 20408}#) #{s 20411}# #f) + (set-source-properties! + #{e 20408}# + #{s 20411}#)) + #{e 20408}#) + #{w 20410}# + #{mod 20412}#) + '(())))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #{s 20411}# + #{exp 20854}#)) + (if (eqv? #{type 20406}# 'global) + (#{analyze-variable 4387}# + #{mod 20412}# + #{value 20407}# + (lambda (#{mod 20890}# + #{var 20891}# + #{public? 20892}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #{s 20411}# + #{mod 20890}# + #{var 20891}# + #{public? 20892}#)) + (lambda (#{var 20901}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #{s 20411}# + #{var 20901}#))) + (if (eqv? #{type 20406}# 'call) + (#{expand-application 4452}# + (#{expand 4450}# + (car #{e 20408}#) + #{r 20409}# + #{w 20410}# + #{mod 20412}#) + #{e 20408}# + #{r 20409}# + #{w 20410}# + #{s 20411}# + #{mod 20412}#) + (if (eqv? #{type 20406}# 'begin-form) + (let ((#{tmp 20976}# + ($sc-dispatch + #{e 20408}# + '(_ any . each-any)))) + (if #{tmp 20976}# + (@apply + (lambda (#{e1 20980}# #{e2 20981}#) + (#{expand-sequence 4445}# + (cons #{e1 20980}# #{e2 20981}#) + #{r 20409}# + #{w 20410}# + #{s 20411}# + #{mod 20412}#)) + #{tmp 20976}#) + (let ((#{tmp 21068}# + ($sc-dispatch #{e 20408}# '(_)))) + (if #{tmp 21068}# + (@apply + (lambda () + (if (include-deprecated-features) + (begin + (issue-deprecation-warning + "Sequences of zero expressions are deprecated. Use *unspecified*.") + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f)) + (syntax-violation + #f + "sequence of zero expressions" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 20408}#) + #{s 20411}# + #f) + (set-source-properties! + #{e 20408}# + #{s 20411}#)) + #{e 20408}#) + #{w 20410}# + #{mod 20412}#)))) + #{tmp 21068}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 20408}#))))) + (if (eqv? #{type 20406}# 'local-syntax-form) + (#{expand-local-syntax 4455}# + #{value 20407}# + #{e 20408}# + #{r 20409}# + #{w 20410}# + #{s 20411}# + #{mod 20412}# + #{expand-sequence 4445}#) + (if (eqv? #{type 20406}# 'eval-when-form) + (let ((#{tmp 21179}# + ($sc-dispatch + #{e 20408}# + '(_ each-any any . each-any)))) + (if #{tmp 21179}# + (@apply + (lambda (#{x 21183}# + #{e1 21184}# + #{e2 21185}#) + (let ((#{when-list 21186}# + (#{parse-when-list 4448}# + #{e 20408}# + #{x 21183}#))) + (if (memq 'eval #{when-list 21186}#) + (#{expand-sequence 4445}# + (cons #{e1 21184}# #{e2 21185}#) + #{r 20409}# + #{w 20410}# + #{s 20411}# + #{mod 20412}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f)))) + #{tmp 21179}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 20408}#))) + (if (if (eqv? #{type 20406}# 'define-form) + #t + (if (eqv? #{type 20406}# + 'define-syntax-form) + #t + (eqv? #{type 20406}# + 'define-syntax-parameter-form))) + (syntax-violation + #f + "definition in expression context" + #{e 20408}# + (#{wrap 4443}# + #{value 20407}# + #{w 20410}# + #{mod 20412}#)) + (if (eqv? #{type 20406}# 'syntax) + (syntax-violation + #f + "reference to pattern variable outside syntax form" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 20408}#) + #{s 20411}# + #f) + (set-source-properties! + #{e 20408}# + #{s 20411}#)) + #{e 20408}#) + #{w 20410}# + #{mod 20412}#)) + (if (eqv? #{type 20406}# 'displaced-lexical) + (syntax-violation + #f + "reference to identifier outside its scope" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 20408}#) + #{s 20411}# + #f) + (set-source-properties! + #{e 20408}# + #{s 20411}#)) + #{e 20408}#) + #{w 20410}# + #{mod 20412}#)) + (syntax-violation + #f + "unexpected syntax" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 20408}#) + #{s 20411}# + #f) + (set-source-properties! + #{e 20408}# + #{s 20411}#)) + #{e 20408}#) + #{w 20410}# + #{mod 20412}#)))))))))))))))))) + (#{expand-application 4452}# + (lambda (#{x 21426}# + #{e 21427}# + #{r 21428}# + #{w 21429}# + #{s 21430}# + #{mod 21431}#) + (let ((#{tmp 21433}# + ($sc-dispatch #{e 21427}# '(any . each-any)))) + (if #{tmp 21433}# + (@apply + (lambda (#{e0 21437}# #{e1 21438}#) + (#{build-application 4382}# + #{s 21430}# + #{x 21426}# + (map (lambda (#{e 21518}#) + (#{expand 4450}# + #{e 21518}# + #{r 21428}# + #{w 21429}# + #{mod 21431}#)) + #{e1 21438}#))) + #{tmp 21433}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 21427}#))))) + (#{expand-macro 4453}# + (lambda (#{p 21594}# + #{e 21595}# + #{r 21596}# + #{w 21597}# + #{s 21598}# + #{rib 21599}# + #{mod 21600}#) + (letrec* + ((#{rebuild-macro-output 21601}# + (lambda (#{x 21633}# #{m 21634}#) + (if (pair? #{x 21633}#) + (let ((#{e 21638}# + (cons (#{rebuild-macro-output 21601}# + (car #{x 21633}#) + #{m 21634}#) + (#{rebuild-macro-output 21601}# + (cdr #{x 21633}#) + #{m 21634}#)))) + (begin + (if (if (pair? #{e 21638}#) #{s 21598}# #f) + (set-source-properties! #{e 21638}# #{s 21598}#)) + #{e 21638}#)) + (if (if (vector? #{x 21633}#) + (if (= (vector-length #{x 21633}#) 4) + (eq? (vector-ref #{x 21633}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 5154}# 1) - #{x 5154}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2230")) - #(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))) - 4) - #t - #f) - '... + (let ((#{w 21654}# (vector-ref #{x 21633}# 2))) + (let ((#{ms 21655}# (car #{w 21654}#)) + (#{s 21656}# (cdr #{w 21654}#))) + (if (if (pair? #{ms 21655}#) + (eq? (car #{ms 21655}#) #f) + #f) + (let ((#{expression 21664}# + (vector-ref #{x 21633}# 1)) + (#{wrap 21665}# + (cons (cdr #{ms 21655}#) + (if #{rib 21599}# + (cons #{rib 21599}# + (cdr #{s 21656}#)) + (cdr #{s 21656}#)))) + (#{module 21666}# (vector-ref #{x 21633}# 3))) + (vector + 'syntax-object + #{expression 21664}# + #{wrap 21665}# + #{module 21666}#)) + (let ((#{expression 21676}# + (let ((#{e 21681}# + (vector-ref #{x 21633}# 1))) + (begin + (if (if (pair? #{e 21681}#) + #{s 21656}# + #f) + (set-source-properties! + #{e 21681}# + #{s 21656}#)) + #{e 21681}#))) + (#{wrap 21677}# + (cons (cons #{m 21634}# #{ms 21655}#) + (if #{rib 21599}# + (cons #{rib 21599}# + (cons 'shift #{s 21656}#)) + (cons 'shift #{s 21656}#)))) + (#{module 21678}# (vector-ref #{x 21633}# 3))) + (vector + 'syntax-object + #{expression 21676}# + #{wrap 21677}# + #{module 21678}#))))) + (if (vector? #{x 21633}#) + (let ((#{n 21693}# (vector-length #{x 21633}#))) + (let ((#{v 21694}# + (let ((#{e 21702}# (make-vector #{n 21693}#))) + (begin + (if (if (pair? #{e 21702}#) #{x 21633}# #f) + (set-source-properties! + #{e 21702}# + #{x 21633}#)) + #{e 21702}#)))) + (letrec* + ((#{loop 21695}# + (lambda (#{i 21747}#) + (if (= #{i 21747}# #{n 21693}#) + #{v 21694}# + (begin + (vector-set! + #{v 21694}# + #{i 21747}# + (#{rebuild-macro-output 21601}# + (vector-ref #{x 21633}# #{i 21747}#) + #{m 21634}#)) + (#{loop 21695}# (#{1+}# #{i 21747}#))))))) + (#{loop 21695}# 0)))) + (if (symbol? #{x 21633}#) + (syntax-violation + #f + "encountered raw symbol in macro output" + (let ((#{s 21753}# (cdr #{w 21597}#))) + (#{wrap 4443}# + (begin + (if (if (pair? #{e 21595}#) #{s 21753}# #f) + (set-source-properties! + #{e 21595}# + #{s 21753}#)) + #{e 21595}#) + #{w 21597}# + #{mod 21600}#)) + #{x 21633}#) + (begin + (if (if (pair? #{x 21633}#) #{s 21598}# #f) + (set-source-properties! #{x 21633}# #{s 21598}#)) + #{x 21633}#)))))))) + (with-fluids + ((#{transformer-environment 4436}# + (lambda (#{k 21602}#) + (#{k 21602}# + #{e 21595}# + #{r 21596}# + #{w 21597}# + #{s 21598}# + #{rib 21599}# + #{mod 21600}#)))) + (#{rebuild-macro-output 21601}# + (#{p 21594}# + (let ((#{w 21609}# + (cons (cons #f (car #{w 21597}#)) + (cons 'shift (cdr #{w 21597}#))))) + (#{wrap 4443}# + (begin + (if (if (pair? #{e 21595}#) #{s 21598}# #f) + (set-source-properties! #{e 21595}# #{s 21598}#)) + #{e 21595}#) + #{w 21609}# + #{mod 21600}#))) + (gensym "m")))))) + (#{expand-body 4454}# + (lambda (#{body 21785}# + #{outer-form 21786}# + #{r 21787}# + #{w 21788}# + #{mod 21789}#) + (let ((#{r 21790}# + (cons '("placeholder" placeholder) #{r 21787}#))) + (let ((#{ribcage 21791}# (vector 'ribcage '() '() '()))) + (let ((#{w 21792}# + (cons (car #{w 21788}#) + (cons #{ribcage 21791}# (cdr #{w 21788}#))))) + (letrec* + ((#{parse 21793}# + (lambda (#{body 21806}# + #{ids 21807}# + #{labels 21808}# + #{var-ids 21809}# + #{vars 21810}# + #{vals 21811}# + #{bindings 21812}#) + (if (null? #{body 21806}#) + (syntax-violation + #f + "no expressions in body" + #{outer-form 21786}#) + (let ((#{e 21813}# (cdr (car #{body 21806}#))) + (#{er 21814}# (car (car #{body 21806}#)))) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{e 21813}# + #{er 21814}# + '(()) + (#{source-annotation 4408}# #{er 21814}#) + #{ribcage 21791}# + #{mod 21789}# + #f)) + (lambda (#{type 21971}# + #{value 21972}# + #{e 21973}# + #{w 21974}# + #{s 21975}# + #{mod 21976}#) + (if (eqv? #{type 21971}# 'define-form) + (let ((#{id 21980}# + (#{wrap 4443}# + #{value 21972}# + #{w 21974}# + #{mod 21976}#)) + (#{label 21981}# + (symbol->string (gensym "i")))) + (let ((#{var 21982}# + (let ((#{id 22042}# + (if (if (vector? + #{id 21980}#) + (if (= (vector-length + #{id 21980}#) + 4) + (eq? (vector-ref + #{id 21980}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 21980}# 1) + #{id 21980}#))) + (gensym + (string-append + (symbol->string #{id 22042}#) + " "))))) + (begin + (let ((#{update 22032}# + (cons (vector-ref #{id 21980}# 1) + (vector-ref + #{ribcage 21791}# + 1)))) + (vector-set! + #{ribcage 21791}# + 1 + #{update 22032}#)) + (let ((#{update 22034}# + (cons (car (vector-ref + #{id 21980}# + 2)) + (vector-ref + #{ribcage 21791}# + 2)))) + (vector-set! + #{ribcage 21791}# + 2 + #{update 22034}#)) + (let ((#{update 22036}# + (cons #{label 21981}# + (vector-ref + #{ribcage 21791}# + 3)))) + (vector-set! + #{ribcage 21791}# + 3 + #{update 22036}#)) + (#{parse 21793}# + (cdr #{body 21806}#) + (cons #{id 21980}# #{ids 21807}#) + (cons #{label 21981}# #{labels 21808}#) + (cons #{id 21980}# #{var-ids 21809}#) + (cons #{var 21982}# #{vars 21810}#) + (cons (cons #{er 21814}# + (#{wrap 4443}# + #{e 21973}# + #{w 21974}# + #{mod 21976}#)) + #{vals 21811}#) + (cons (cons 'lexical #{var 21982}#) + #{bindings 21812}#))))) + (if (if (eqv? #{type 21971}# + 'define-syntax-form) + #t + (eqv? #{type 21971}# + 'define-syntax-parameter-form)) + (let ((#{id 22075}# + (#{wrap 4443}# + #{value 21972}# + #{w 21974}# + #{mod 21976}#)) + (#{label 22076}# + (symbol->string (gensym "i")))) + (begin + (let ((#{update 22126}# + (cons (vector-ref #{id 22075}# 1) + (vector-ref + #{ribcage 21791}# + 1)))) + (vector-set! + #{ribcage 21791}# + 1 + #{update 22126}#)) + (let ((#{update 22128}# + (cons (car (vector-ref + #{id 22075}# + 2)) + (vector-ref + #{ribcage 21791}# + 2)))) + (vector-set! + #{ribcage 21791}# + 2 + #{update 22128}#)) + (let ((#{update 22130}# + (cons #{label 22076}# + (vector-ref + #{ribcage 21791}# + 3)))) + (vector-set! + #{ribcage 21791}# + 3 + #{update 22130}#)) + (#{parse 21793}# + (cdr #{body 21806}#) + (cons #{id 22075}# #{ids 21807}#) + (cons #{label 22076}# #{labels 21808}#) + #{var-ids 21809}# + #{vars 21810}# + #{vals 21811}# + (cons (cons 'macro + (cons #{er 21814}# + (#{wrap 4443}# + #{e 21973}# + #{w 21974}# + #{mod 21976}#))) + #{bindings 21812}#)))) + (if (eqv? #{type 21971}# 'begin-form) + (let ((#{tmp 22138}# + ($sc-dispatch + #{e 21973}# + '(_ . each-any)))) + (if #{tmp 22138}# + (@apply + (lambda (#{e1 22142}#) + (#{parse 21793}# + (letrec* + ((#{f 22143}# + (lambda (#{forms 22206}#) + (if (null? #{forms 22206}#) + (cdr #{body 21806}#) + (cons (cons #{er 21814}# + (#{wrap 4443}# + (car #{forms 22206}#) + #{w 21974}# + #{mod 21976}#)) + (#{f 22143}# + (cdr #{forms 22206}#))))))) + (#{f 22143}# #{e1 22142}#)) + #{ids 21807}# + #{labels 21808}# + #{var-ids 21809}# + #{vars 21810}# + #{vals 21811}# + #{bindings 21812}#)) + #{tmp 22138}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 21973}#))) + (if (eqv? #{type 21971}# + 'local-syntax-form) + (#{expand-local-syntax 4455}# + #{value 21972}# + #{e 21973}# + #{er 21814}# + #{w 21974}# + #{s 21975}# + #{mod 21976}# + (lambda (#{forms 22220}# + #{er 22221}# + #{w 22222}# + #{s 22223}# + #{mod 22224}#) + (#{parse 21793}# + (letrec* + ((#{f 22225}# + (lambda (#{forms 22288}#) + (if (null? #{forms 22288}#) + (cdr #{body 21806}#) + (cons (cons #{er 22221}# + (#{wrap 4443}# + (car #{forms 22288}#) + #{w 22222}# + #{mod 22224}#)) + (#{f 22225}# + (cdr #{forms 22288}#))))))) + (#{f 22225}# #{forms 22220}#)) + #{ids 21807}# + #{labels 21808}# + #{var-ids 21809}# + #{vars 21810}# + #{vals 21811}# + #{bindings 21812}#))) + (if (null? #{ids 21807}#) + (#{build-sequence 4396}# + #f + (map (lambda (#{x 22353}#) + (let ((#{e 22357}# + (cdr #{x 22353}#)) + (#{r 22358}# + (car #{x 22353}#))) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{e 22357}# + #{r 22358}# + '(()) + (#{source-annotation 4408}# + #{e 22357}#) + #f + #{mod 21976}# + #f)) + (lambda (#{type 22362}# + #{value 22363}# + #{e 22364}# + #{w 22365}# + #{s 22366}# + #{mod 22367}#) + (#{expand-expr 4451}# + #{type 22362}# + #{value 22363}# + #{e 22364}# + #{r 22358}# + #{w 22365}# + #{s 22366}# + #{mod 22367}#))))) + (cons (cons #{er 21814}# + (#{wrap 4443}# + (begin + (if (if (pair? #{e 21973}#) + #{s 21975}# + #f) + (set-source-properties! + #{e 21973}# + #{s 21975}#)) + #{e 21973}#) + #{w 21974}# + #{mod 21976}#)) + (cdr #{body 21806}#)))) + (begin + (if (not (#{valid-bound-ids? 4440}# + #{ids 21807}#)) + (syntax-violation + #f + "invalid or duplicate identifier in definition" + #{outer-form 21786}#)) + (letrec* + ((#{loop 22468}# + (lambda (#{bs 22471}# + #{er-cache 22472}# + #{r-cache 22473}#) + (if (not (null? #{bs 22471}#)) + (let ((#{b 22474}# + (car #{bs 22471}#))) + (if (eq? (car #{b 22474}#) + 'macro) + (let ((#{er 22476}# + (car (cdr #{b 22474}#)))) + (let ((#{r-cache 22477}# + (if (eq? #{er 22476}# + #{er-cache 22472}#) + #{r-cache 22473}# + (#{macros-only-env 4411}# + #{er 22476}#)))) + (begin + (set-cdr! + #{b 22474}# + (#{eval-local-transformer 4456}# + (#{expand 4450}# + (cdr (cdr #{b 22474}#)) + #{r-cache 22477}# + '(()) + #{mod 21976}#) + #{mod 21976}#)) + (#{loop 22468}# + (cdr #{bs 22471}#) + #{er 22476}# + #{r-cache 22477}#)))) + (#{loop 22468}# + (cdr #{bs 22471}#) + #{er-cache 22472}# + #{r-cache 22473}#))))))) + (#{loop 22468}# + #{bindings 21812}# + #f + #f)) + (set-cdr! + #{r 21790}# + (#{extend-env 4409}# + #{labels 21808}# + #{bindings 21812}# + (cdr #{r 21790}#))) + (#{build-letrec 4399}# + #f + #t + (reverse + (map syntax->datum + #{var-ids 21809}#)) + (reverse #{vars 21810}#) + (map (lambda (#{x 22820}#) + (let ((#{e 22824}# + (cdr #{x 22820}#)) + (#{r 22825}# + (car #{x 22820}#))) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{e 22824}# + #{r 22825}# + '(()) + (#{source-annotation 4408}# + #{e 22824}#) + #f + #{mod 21976}# + #f)) + (lambda (#{type 22829}# + #{value 22830}# + #{e 22831}# + #{w 22832}# + #{s 22833}# + #{mod 22834}#) + (#{expand-expr 4451}# + #{type 22829}# + #{value 22830}# + #{e 22831}# + #{r 22825}# + #{w 22832}# + #{s 22833}# + #{mod 22834}#))))) + (reverse #{vals 21811}#)) + (let ((#{exps 22840}# + (map (lambda (#{x 22841}#) + (let ((#{e 22844}# + (cdr #{x 22841}#)) + (#{r 22845}# + (car #{x 22841}#))) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{e 22844}# + #{r 22845}# + '(()) + (#{source-annotation 4408}# + #{e 22844}#) + #f + #{mod 21976}# + #f)) + (lambda (#{type 22849}# + #{value 22850}# + #{e 22851}# + #{w 22852}# + #{s 22853}# + #{mod 22854}#) + (#{expand-expr 4451}# + #{type 22849}# + #{value 22850}# + #{e 22851}# + #{r 22845}# + #{w 22852}# + #{s 22853}# + #{mod 22854}#))))) + (cons (cons #{er 21814}# + (#{wrap 4443}# + (begin + (if (if (pair? #{e 21973}#) + #{s 21975}# + #f) + (set-source-properties! + #{e 21973}# + #{s 21975}#)) + #{e 21973}#) + #{w 21974}# + #{mod 21976}#)) + (cdr #{body 21806}#))))) + (if (null? (cdr #{exps 22840}#)) + (car #{exps 22840}#) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 12) + #f + #{exps 22840}#))))))))))))))))) + (#{parse 21793}# + (map (lambda (#{x 21796}#) + (cons #{r 21790}# + (#{wrap 4443}# + #{x 21796}# + #{w 21792}# + #{mod 21789}#))) + #{body 21785}#) + '() + '() + '() + '() + '() + '()))))))) + (#{expand-local-syntax 4455}# + (lambda (#{rec? 22880}# + #{e 22881}# + #{r 22882}# + #{w 22883}# + #{s 22884}# + #{mod 22885}# + #{k 22886}#) + (let ((#{tmp 22888}# + ($sc-dispatch + #{e 22881}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 22888}# + (@apply + (lambda (#{id 22892}# + #{val 22893}# + #{e1 22894}# + #{e2 22895}#) + (if (not (#{valid-bound-ids? 4440}# #{id 22892}#)) + (syntax-violation + #f + "duplicate bound keyword" + #{e 22881}#) + (let ((#{labels 22985}# + (#{gen-labels 4418}# #{id 22892}#))) + (let ((#{new-w 22986}# + (#{make-binding-wrap 4429}# + #{id 22892}# + #{labels 22985}# + #{w 22883}#))) + (#{k 22886}# + (cons #{e1 22894}# #{e2 22895}#) + (#{extend-env 4409}# + #{labels 22985}# + (let ((#{trans-r 23024}# + (#{macros-only-env 4411}# #{r 22882}#))) + (begin + (if #{rec? 22880}# #{new-w 22986}# #{w 22883}#) + (map (lambda (#{x 23025}#) + (cons 'macro + (#{eval-local-transformer 4456}# + (#{expand 4450}# + #{x 23025}# + #{trans-r 23024}# + (values + (if #{rec? 22880}# + #{new-w 22986}# + #{w 22883}#)) + #{mod 22885}#) + #{mod 22885}#))) + #{val 22893}#))) + #{r 22882}#) + #{new-w 22986}# + #{s 22884}# + #{mod 22885}#))))) + #{tmp 22888}#) + (syntax-violation + #f + "bad local syntax definition" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 22881}#) #{s 22884}# #f) + (set-source-properties! #{e 22881}# #{s 22884}#)) + #{e 22881}#) + #{w 22883}# + #{mod 22885}#)))))) + (#{eval-local-transformer 4456}# + (lambda (#{expanded 23321}# #{mod 23322}#) + (let ((#{p 23323}# (primitive-eval #{expanded 23321}#))) + (if (procedure? #{p 23323}#) + #{p 23323}# + (syntax-violation + #f + "nonprocedure transformer" + #{p 23323}#))))) + (#{ellipsis? 4458}# + (lambda (#{x 5119}#) + (if (if (if (vector? #{x 5119}#) + (if (= (vector-length #{x 5119}#) 4) + (eq? (vector-ref #{x 5119}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 5119}# 1)) + #f) + (if (eq? (if (if (vector? #{x 5119}#) + (if (= (vector-length #{x 5119}#) 4) + (eq? (vector-ref #{x 5119}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{x 5119}# 1) + #{x 5119}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + 4) + #t + #f) + '... + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)))) + (eq? (#{id-var-name 4434}# #{x 5119}# '(())) + (#{id-var-name 4434}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2230")) + #(ribcage #(x) #((top)) #("i2288")) #(ribcage (lambda-var-list gen-var @@ -5217,6 +5707,9 @@ valid-bound-ids? bound-id=? free-id=? + with-transformer-environment + transformer-environment + resolve-identifier id-var-name same-marks? join-marks @@ -5460,8 +5953,14 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i467" + ("i473" + "i471" + "i469" + "i467" "i465" "i463" "i461" @@ -5603,8737 +6102,926 @@ define-expansion-constructors) ((top) (top) (top)) ("i46" "i45" "i44"))) - (hygiene guile)))) - (eq? (#{id-var-name 4332}# #{x 5154}# '(())) - (#{id-var-name 4332}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2230")) - #(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)) - '(()))) - #f) - #f))) - (#{lambda-formals 4354}# - (lambda (#{orig-args 24683}#) - (letrec* - ((#{req 24684}# - (lambda (#{args 24688}# #{rreq 24689}#) - (let ((#{tmp 24691}# ($sc-dispatch #{args 24688}# '()))) - (if #{tmp 24691}# - (@apply - (lambda () - (#{check 24685}# (reverse #{rreq 24689}#) #f)) - #{tmp 24691}#) - (let ((#{tmp 24814}# - ($sc-dispatch #{args 24688}# '(any . any)))) - (if (if #{tmp 24814}# - (@apply - (lambda (#{a 24818}# #{b 24819}#) - (if (symbol? #{a 24818}#) - #t - (if (if (vector? #{a 24818}#) - (if (= (vector-length #{a 24818}#) 4) - (eq? (vector-ref #{a 24818}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{a 24818}# 1)) - #f))) - #{tmp 24814}#) - #f) - (@apply - (lambda (#{a 24846}# #{b 24847}#) - (#{req 24684}# - #{b 24847}# - (cons #{a 24846}# #{rreq 24689}#))) - #{tmp 24814}#) - (let ((#{tmp 24848}# (list #{args 24688}#))) - (if (@apply - (lambda (#{r 24850}#) - (if (symbol? #{r 24850}#) - #t - (if (if (vector? #{r 24850}#) - (if (= (vector-length #{r 24850}#) 4) - (eq? (vector-ref #{r 24850}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{r 24850}# 1)) - #f))) - #{tmp 24848}#) - (@apply - (lambda (#{r 24880}#) - (#{check 24685}# - (reverse #{rreq 24689}#) - #{r 24880}#)) - #{tmp 24848}#) - (syntax-violation - 'lambda - "invalid argument list" - #{orig-args 24683}# - #{args 24688}#))))))))) - (#{check 24685}# - (lambda (#{req 25011}# #{rest 25012}#) - (if (#{distinct-bound-ids? 4336}# - (if #{rest 25012}# - (cons #{rest 25012}# #{req 25011}#) - #{req 25011}#)) - (values #{req 25011}# #f #{rest 25012}# #f) - (syntax-violation - 'lambda - "duplicate identifier in argument list" - #{orig-args 24683}#))))) - (#{req 24684}# #{orig-args 24683}# '())))) - (#{expand-simple-lambda 4355}# - (lambda (#{e 25128}# - #{r 25129}# - #{w 25130}# - #{s 25131}# - #{mod 25132}# - #{req 25133}# - #{rest 25134}# - #{meta 25135}# - #{body 25136}#) - (let ((#{ids 25137}# - (if #{rest 25134}# - (append #{req 25133}# (list #{rest 25134}#)) - #{req 25133}#))) - (let ((#{vars 25138}# - (map #{gen-var 4359}# #{ids 25137}#))) - (let ((#{labels 25139}# - (#{gen-labels 4316}# #{ids 25137}#))) - (#{build-simple-lambda 4289}# - #{s 25131}# - (map syntax->datum #{req 25133}#) - (if #{rest 25134}# - (syntax->datum #{rest 25134}#) - #f) - #{vars 25138}# - #{meta 25135}# - (#{expand-body 4349}# - #{body 25136}# - (#{wrap 4338}# - (begin - (if (if (pair? #{e 25128}#) #{s 25131}# #f) - (set-source-properties! #{e 25128}# #{s 25131}#)) - #{e 25128}#) - #{w 25130}# - #{mod 25132}#) - (#{extend-var-env 4308}# - #{labels 25139}# - #{vars 25138}# - #{r 25129}#) - (#{make-binding-wrap 4327}# - #{ids 25137}# - #{labels 25139}# - #{w 25130}#) - #{mod 25132}#))))))) - (#{lambda*-formals 4356}# - (lambda (#{orig-args 25439}#) - (letrec* - ((#{req 25440}# - (lambda (#{args 25447}# #{rreq 25448}#) - (let ((#{tmp 25450}# ($sc-dispatch #{args 25447}# '()))) - (if #{tmp 25450}# - (@apply - (lambda () - (#{check 25444}# - (reverse #{rreq 25448}#) - '() - #f - '())) - #{tmp 25450}#) - (let ((#{tmp 25456}# - ($sc-dispatch #{args 25447}# '(any . any)))) - (if (if #{tmp 25456}# - (@apply - (lambda (#{a 25460}# #{b 25461}#) - (if (symbol? #{a 25460}#) - #t - (if (if (vector? #{a 25460}#) - (if (= (vector-length #{a 25460}#) 4) - (eq? (vector-ref #{a 25460}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{a 25460}# 1)) - #f))) - #{tmp 25456}#) - #f) - (@apply - (lambda (#{a 25488}# #{b 25489}#) - (#{req 25440}# - #{b 25489}# - (cons #{a 25488}# #{rreq 25448}#))) - #{tmp 25456}#) - (let ((#{tmp 25490}# - ($sc-dispatch #{args 25447}# '(any . any)))) - (if (if #{tmp 25490}# - (@apply - (lambda (#{a 25494}# #{b 25495}#) - (eq? (syntax->datum #{a 25494}#) #:optional)) - #{tmp 25490}#) - #f) - (@apply - (lambda (#{a 25496}# #{b 25497}#) - (#{opt 25441}# - #{b 25497}# - (reverse #{rreq 25448}#) - '())) - #{tmp 25490}#) - (let ((#{tmp 25500}# - ($sc-dispatch #{args 25447}# '(any . any)))) - (if (if #{tmp 25500}# - (@apply - (lambda (#{a 25504}# #{b 25505}#) - (eq? (syntax->datum #{a 25504}#) #:key)) - #{tmp 25500}#) - #f) - (@apply - (lambda (#{a 25506}# #{b 25507}#) - (#{key 25442}# - #{b 25507}# - (reverse #{rreq 25448}#) - '() - '())) - #{tmp 25500}#) - (let ((#{tmp 25510}# - ($sc-dispatch - #{args 25447}# - '(any any)))) - (if (if #{tmp 25510}# - (@apply - (lambda (#{a 25514}# #{b 25515}#) - (eq? (syntax->datum #{a 25514}#) - #:rest)) - #{tmp 25510}#) - #f) - (@apply - (lambda (#{a 25516}# #{b 25517}#) - (#{rest 25443}# - #{b 25517}# - (reverse #{rreq 25448}#) - '() - '())) - #{tmp 25510}#) - (let ((#{tmp 25520}# (list #{args 25447}#))) - (if (@apply - (lambda (#{r 25522}#) - (if (symbol? #{r 25522}#) - #t - (if (if (vector? #{r 25522}#) - (if (= (vector-length - #{r 25522}#) - 4) - (eq? (vector-ref - #{r 25522}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{r 25522}# 1)) - #f))) - #{tmp 25520}#) - (@apply - (lambda (#{r 25552}#) - (#{rest 25443}# - #{r 25552}# - (reverse #{rreq 25448}#) - '() - '())) - #{tmp 25520}#) - (syntax-violation - 'lambda* - "invalid argument list" - #{orig-args 25439}# - #{args 25447}#))))))))))))))) - (#{opt 25441}# - (lambda (#{args 25571}# #{req 25572}# #{ropt 25573}#) - (let ((#{tmp 25575}# ($sc-dispatch #{args 25571}# '()))) - (if #{tmp 25575}# - (@apply - (lambda () - (#{check 25444}# - #{req 25572}# - (reverse #{ropt 25573}#) - #f - '())) - #{tmp 25575}#) - (let ((#{tmp 25581}# - ($sc-dispatch #{args 25571}# '(any . any)))) - (if (if #{tmp 25581}# - (@apply - (lambda (#{a 25585}# #{b 25586}#) - (if (symbol? #{a 25585}#) - #t - (if (if (vector? #{a 25585}#) - (if (= (vector-length #{a 25585}#) 4) - (eq? (vector-ref #{a 25585}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{a 25585}# 1)) - #f))) - #{tmp 25581}#) - #f) - (@apply - (lambda (#{a 25613}# #{b 25614}#) - (#{opt 25441}# - #{b 25614}# - #{req 25572}# - (cons (cons #{a 25613}# - '(#(syntax-object - #f - ((top) - #(ribcage - #(a b) - #((top) (top)) - #("i2369" "i2370")) - #(ribcage () () ()) - #(ribcage - #(args req ropt) - #((top) (top) (top)) - #("i2359" "i2360" "i2361")) - #(ribcage - (check rest key opt req) - ((top) (top) (top) (top) (top)) - ("i2305" - "i2303" - "i2301" - "i2299" - "i2297")) - #(ribcage - #(orig-args) - #((top)) - #("i2296")) - #(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)))) - #{ropt 25573}#))) - #{tmp 25581}#) - (let ((#{tmp 25615}# - ($sc-dispatch - #{args 25571}# - '((any any) . any)))) - (if (if #{tmp 25615}# - (@apply - (lambda (#{a 25619}# - #{init 25620}# - #{b 25621}#) - (if (symbol? #{a 25619}#) - #t - (if (if (vector? #{a 25619}#) - (if (= (vector-length #{a 25619}#) 4) - (eq? (vector-ref #{a 25619}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{a 25619}# 1)) - #f))) - #{tmp 25615}#) - #f) - (@apply - (lambda (#{a 25648}# #{init 25649}# #{b 25650}#) - (#{opt 25441}# - #{b 25650}# - #{req 25572}# - (cons (list #{a 25648}# #{init 25649}#) - #{ropt 25573}#))) - #{tmp 25615}#) - (let ((#{tmp 25651}# - ($sc-dispatch #{args 25571}# '(any . any)))) - (if (if #{tmp 25651}# - (@apply - (lambda (#{a 25655}# #{b 25656}#) - (eq? (syntax->datum #{a 25655}#) #:key)) - #{tmp 25651}#) - #f) - (@apply - (lambda (#{a 25657}# #{b 25658}#) - (#{key 25442}# - #{b 25658}# - #{req 25572}# - (reverse #{ropt 25573}#) - '())) - #{tmp 25651}#) - (let ((#{tmp 25661}# - ($sc-dispatch - #{args 25571}# - '(any any)))) - (if (if #{tmp 25661}# - (@apply - (lambda (#{a 25665}# #{b 25666}#) - (eq? (syntax->datum #{a 25665}#) - #:rest)) - #{tmp 25661}#) - #f) - (@apply - (lambda (#{a 25667}# #{b 25668}#) - (#{rest 25443}# - #{b 25668}# - #{req 25572}# - (reverse #{ropt 25573}#) - '())) - #{tmp 25661}#) - (let ((#{tmp 25671}# (list #{args 25571}#))) - (if (@apply - (lambda (#{r 25673}#) - (if (symbol? #{r 25673}#) - #t - (if (if (vector? #{r 25673}#) - (if (= (vector-length - #{r 25673}#) - 4) - (eq? (vector-ref - #{r 25673}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{r 25673}# 1)) - #f))) - #{tmp 25671}#) - (@apply - (lambda (#{r 25703}#) - (#{rest 25443}# - #{r 25703}# - #{req 25572}# - (reverse #{ropt 25573}#) - '())) - #{tmp 25671}#) - (syntax-violation - 'lambda* - "invalid optional argument list" - #{orig-args 25439}# - #{args 25571}#))))))))))))))) - (#{key 25442}# - (lambda (#{args 25722}# - #{req 25723}# - #{opt 25724}# - #{rkey 25725}#) - (let ((#{tmp 25727}# ($sc-dispatch #{args 25722}# '()))) - (if #{tmp 25727}# - (@apply - (lambda () - (#{check 25444}# - #{req 25723}# - #{opt 25724}# - #f - (cons #f (reverse #{rkey 25725}#)))) - #{tmp 25727}#) - (let ((#{tmp 25733}# - ($sc-dispatch #{args 25722}# '(any . any)))) - (if (if #{tmp 25733}# - (@apply - (lambda (#{a 25737}# #{b 25738}#) - (if (symbol? #{a 25737}#) - #t - (if (if (vector? #{a 25737}#) - (if (= (vector-length #{a 25737}#) 4) - (eq? (vector-ref #{a 25737}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{a 25737}# 1)) - #f))) - #{tmp 25733}#) - #f) - (@apply - (lambda (#{a 25765}# #{b 25766}#) - (let ((#{tmp 25767}# - (symbol->keyword - (syntax->datum #{a 25765}#)))) - (#{key 25442}# - #{b 25766}# - #{req 25723}# - #{opt 25724}# - (cons (cons #{tmp 25767}# - (cons #{a 25765}# - '(#(syntax-object - #f - ((top) - #(ribcage () () ()) - #(ribcage - #(k) - #((top)) - #("i2432")) - #(ribcage - #(a b) - #((top) (top)) - #("i2426" "i2427")) - #(ribcage () () ()) - #(ribcage - #(args req opt rkey) - #((top) - (top) - (top) - (top)) - #("i2415" - "i2416" - "i2417" - "i2418")) - #(ribcage - (check rest key opt req) - ((top) - (top) - (top) - (top) - (top)) - ("i2305" - "i2303" - "i2301" - "i2299" - "i2297")) - #(ribcage - #(orig-args) - #((top)) - #("i2296")) - #(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))))) - #{rkey 25725}#)))) - #{tmp 25733}#) - (let ((#{tmp 25770}# - ($sc-dispatch - #{args 25722}# - '((any any) . any)))) - (if (if #{tmp 25770}# - (@apply - (lambda (#{a 25774}# - #{init 25775}# - #{b 25776}#) - (if (symbol? #{a 25774}#) - #t - (if (if (vector? #{a 25774}#) - (if (= (vector-length #{a 25774}#) 4) - (eq? (vector-ref #{a 25774}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{a 25774}# 1)) - #f))) - #{tmp 25770}#) - #f) - (@apply - (lambda (#{a 25803}# #{init 25804}# #{b 25805}#) - (let ((#{tmp 25806}# - (symbol->keyword - (syntax->datum #{a 25803}#)))) - (#{key 25442}# - #{b 25805}# - #{req 25723}# - #{opt 25724}# - (cons (list #{tmp 25806}# - #{a 25803}# - #{init 25804}#) - #{rkey 25725}#)))) - #{tmp 25770}#) - (let ((#{tmp 25809}# - ($sc-dispatch - #{args 25722}# - '((any any any) . any)))) - (if (if #{tmp 25809}# - (@apply - (lambda (#{a 25813}# - #{init 25814}# - #{k 25815}# - #{b 25816}#) - (if (if (symbol? #{a 25813}#) - #t - (if (if (vector? #{a 25813}#) - (if (= (vector-length - #{a 25813}#) - 4) - (eq? (vector-ref - #{a 25813}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{a 25813}# 1)) - #f)) - (keyword? (syntax->datum #{k 25815}#)) - #f)) - #{tmp 25809}#) - #f) - (@apply - (lambda (#{a 25843}# - #{init 25844}# - #{k 25845}# - #{b 25846}#) - (#{key 25442}# - #{b 25846}# - #{req 25723}# - #{opt 25724}# - (cons (list #{k 25845}# - #{a 25843}# - #{init 25844}#) - #{rkey 25725}#))) - #{tmp 25809}#) - (let ((#{tmp 25847}# - ($sc-dispatch #{args 25722}# '(any)))) - (if (if #{tmp 25847}# - (@apply - (lambda (#{aok 25851}#) - (eq? (syntax->datum #{aok 25851}#) - #:allow-other-keys)) - #{tmp 25847}#) - #f) - (@apply - (lambda (#{aok 25852}#) - (#{check 25444}# - #{req 25723}# - #{opt 25724}# - #f - (cons #t (reverse #{rkey 25725}#)))) - #{tmp 25847}#) - (let ((#{tmp 25855}# - ($sc-dispatch - #{args 25722}# - '(any any any)))) - (if (if #{tmp 25855}# - (@apply - (lambda (#{aok 25859}# - #{a 25860}# - #{b 25861}#) - (if (eq? (syntax->datum - #{aok 25859}#) - #:allow-other-keys) - (eq? (syntax->datum - #{a 25860}#) - #:rest) - #f)) - #{tmp 25855}#) - #f) - (@apply - (lambda (#{aok 25862}# - #{a 25863}# - #{b 25864}#) - (#{rest 25443}# - #{b 25864}# - #{req 25723}# - #{opt 25724}# - (cons #t - (reverse #{rkey 25725}#)))) - #{tmp 25855}#) - (let ((#{tmp 25867}# - ($sc-dispatch - #{args 25722}# - '(any . any)))) - (if (if #{tmp 25867}# - (@apply - (lambda (#{aok 25871}# - #{r 25872}#) - (if (eq? (syntax->datum - #{aok 25871}#) - #:allow-other-keys) - (if (symbol? #{r 25872}#) - #t - (if (if (vector? - #{r 25872}#) - (if (= (vector-length - #{r 25872}#) - 4) - (eq? (vector-ref - #{r 25872}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref - #{r 25872}# - 1)) - #f)) - #f)) - #{tmp 25867}#) - #f) - (@apply - (lambda (#{aok 25899}# #{r 25900}#) - (#{rest 25443}# - #{r 25900}# - #{req 25723}# - #{opt 25724}# - (cons #t - (reverse - #{rkey 25725}#)))) - #{tmp 25867}#) - (let ((#{tmp 25903}# - ($sc-dispatch - #{args 25722}# - '(any any)))) - (if (if #{tmp 25903}# - (@apply - (lambda (#{a 25907}# - #{b 25908}#) - (eq? (syntax->datum - #{a 25907}#) - #:rest)) - #{tmp 25903}#) - #f) - (@apply - (lambda (#{a 25909}# - #{b 25910}#) - (#{rest 25443}# - #{b 25910}# - #{req 25723}# - #{opt 25724}# - (cons #f - (reverse - #{rkey 25725}#)))) - #{tmp 25903}#) - (let ((#{tmp 25913}# - (list #{args 25722}#))) - (if (@apply - (lambda (#{r 25915}#) - (if (symbol? - #{r 25915}#) - #t - (if (if (vector? - #{r 25915}#) - (if (= (vector-length - #{r 25915}#) - 4) - (eq? (vector-ref - #{r 25915}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref - #{r 25915}# - 1)) - #f))) - #{tmp 25913}#) - (@apply - (lambda (#{r 25945}#) - (#{rest 25443}# - #{r 25945}# - #{req 25723}# - #{opt 25724}# - (cons #f - (reverse - #{rkey 25725}#)))) - #{tmp 25913}#) - (syntax-violation - 'lambda* - "invalid keyword argument list" - #{orig-args 25439}# - #{args 25722}#))))))))))))))))))))) - (#{rest 25443}# - (lambda (#{args 25973}# - #{req 25974}# - #{opt 25975}# - #{kw 25976}#) - (let ((#{tmp 25978}# (list #{args 25973}#))) - (if (@apply - (lambda (#{r 25980}#) - (if (symbol? #{r 25980}#) - #t - (if (if (vector? #{r 25980}#) - (if (= (vector-length #{r 25980}#) 4) - (eq? (vector-ref #{r 25980}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{r 25980}# 1)) - #f))) - #{tmp 25978}#) - (@apply - (lambda (#{r 26010}#) - (#{check 25444}# - #{req 25974}# - #{opt 25975}# - #{r 26010}# - #{kw 25976}#)) - #{tmp 25978}#) - (syntax-violation - 'lambda* - "invalid rest argument" - #{orig-args 25439}# - #{args 25973}#))))) - (#{check 25444}# - (lambda (#{req 26014}# - #{opt 26015}# - #{rest 26016}# - #{kw 26017}#) - (if (#{distinct-bound-ids? 4336}# - (append - #{req 26014}# - (map car #{opt 26015}#) - (if #{rest 26016}# (list #{rest 26016}#) '()) - (if (pair? #{kw 26017}#) - (map cadr (cdr #{kw 26017}#)) - '()))) - (values - #{req 26014}# - #{opt 26015}# - #{rest 26016}# - #{kw 26017}#) - (syntax-violation - 'lambda* - "duplicate identifier in argument list" - #{orig-args 25439}#))))) - (#{req 25440}# #{orig-args 25439}# '())))) - (#{expand-lambda-case 4357}# - (lambda (#{e 26133}# - #{r 26134}# - #{w 26135}# - #{s 26136}# - #{mod 26137}# - #{get-formals 26138}# - #{clauses 26139}#) - (letrec* - ((#{parse-req 26140}# - (lambda (#{req 26273}# - #{opt 26274}# - #{rest 26275}# - #{kw 26276}# - #{body 26277}#) - (let ((#{vars 26278}# - (map #{gen-var 4359}# #{req 26273}#)) - (#{labels 26279}# - (#{gen-labels 4316}# #{req 26273}#))) - (let ((#{r* 26280}# - (#{extend-var-env 4308}# - #{labels 26279}# - #{vars 26278}# - #{r 26134}#)) - (#{w* 26281}# - (#{make-binding-wrap 4327}# - #{req 26273}# - #{labels 26279}# - #{w 26135}#))) - (#{parse-opt 26141}# - (map syntax->datum #{req 26273}#) - #{opt 26274}# - #{rest 26275}# - #{kw 26276}# - #{body 26277}# - (reverse #{vars 26278}#) - #{r* 26280}# - #{w* 26281}# - '() - '()))))) - (#{parse-opt 26141}# - (lambda (#{req 26495}# - #{opt 26496}# - #{rest 26497}# - #{kw 26498}# - #{body 26499}# - #{vars 26500}# - #{r* 26501}# - #{w* 26502}# - #{out 26503}# - #{inits 26504}#) - (if (pair? #{opt 26496}#) - (let ((#{tmp 26505}# (car #{opt 26496}#))) - (let ((#{tmp 26506}# - ($sc-dispatch #{tmp 26505}# '(any any)))) - (if #{tmp 26506}# - (@apply - (lambda (#{id 26508}# #{i 26509}#) - (let ((#{v 26510}# - (let ((#{id 26518}# - (if (if (vector? #{id 26508}#) - (if (= (vector-length - #{id 26508}#) - 4) - (eq? (vector-ref - #{id 26508}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{id 26508}# 1) - #{id 26508}#))) - (gensym - (string-append - (symbol->string #{id 26518}#) - " "))))) - (let ((#{l 26511}# - (#{gen-labels 4316}# (list #{v 26510}#)))) - (let ((#{r** 26512}# - (#{extend-var-env 4308}# - #{l 26511}# - (list #{v 26510}#) - #{r* 26501}#))) - (let ((#{w** 26513}# - (#{make-binding-wrap 4327}# - (list #{id 26508}#) - #{l 26511}# - #{w* 26502}#))) - (#{parse-opt 26141}# - #{req 26495}# - (cdr #{opt 26496}#) - #{rest 26497}# - #{kw 26498}# - #{body 26499}# - (cons #{v 26510}# #{vars 26500}#) - #{r** 26512}# - #{w** 26513}# - (cons (syntax->datum #{id 26508}#) - #{out 26503}#) - (cons (#{expand 4345}# - #{i 26509}# - #{r* 26501}# - #{w* 26502}# - #{mod 26137}#) - #{inits 26504}#))))))) - #{tmp 26506}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 26505}#)))) - (if #{rest 26497}# - (let ((#{v 26783}# - (let ((#{id 26793}# - (if (if (vector? #{rest 26497}#) - (if (= (vector-length #{rest 26497}#) - 4) - (eq? (vector-ref #{rest 26497}# 0) - 'syntax-object) - #f) - #f) - (vector-ref #{rest 26497}# 1) - #{rest 26497}#))) - (gensym - (string-append - (symbol->string #{id 26793}#) - " "))))) - (let ((#{l 26784}# - (#{gen-labels 4316}# (list #{v 26783}#)))) - (let ((#{r* 26785}# - (#{extend-var-env 4308}# - #{l 26784}# - (list #{v 26783}#) - #{r* 26501}#))) - (let ((#{w* 26786}# - (#{make-binding-wrap 4327}# - (list #{rest 26497}#) - #{l 26784}# - #{w* 26502}#))) - (#{parse-kw 26142}# - #{req 26495}# - (if (pair? #{out 26503}#) - (reverse #{out 26503}#) - #f) - (syntax->datum #{rest 26497}#) - (if (pair? #{kw 26498}#) - (cdr #{kw 26498}#) - #{kw 26498}#) - #{body 26499}# - (cons #{v 26783}# #{vars 26500}#) - #{r* 26785}# - #{w* 26786}# - (if (pair? #{kw 26498}#) (car #{kw 26498}#) #f) - '() - #{inits 26504}#))))) - (#{parse-kw 26142}# - #{req 26495}# - (if (pair? #{out 26503}#) - (reverse #{out 26503}#) - #f) - #f - (if (pair? #{kw 26498}#) - (cdr #{kw 26498}#) - #{kw 26498}#) - #{body 26499}# - #{vars 26500}# - #{r* 26501}# - #{w* 26502}# - (if (pair? #{kw 26498}#) (car #{kw 26498}#) #f) - '() - #{inits 26504}#))))) - (#{parse-kw 26142}# - (lambda (#{req 26991}# - #{opt 26992}# - #{rest 26993}# - #{kw 26994}# - #{body 26995}# - #{vars 26996}# - #{r* 26997}# - #{w* 26998}# - #{aok 26999}# - #{out 27000}# - #{inits 27001}#) - (if (pair? #{kw 26994}#) - (let ((#{tmp 27002}# (car #{kw 26994}#))) - (let ((#{tmp 27003}# - ($sc-dispatch #{tmp 27002}# '(any any any)))) - (if #{tmp 27003}# - (@apply - (lambda (#{k 27005}# #{id 27006}# #{i 27007}#) - (let ((#{v 27008}# - (let ((#{id 27016}# - (if (if (vector? #{id 27006}#) - (if (= (vector-length - #{id 27006}#) - 4) - (eq? (vector-ref - #{id 27006}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{id 27006}# 1) - #{id 27006}#))) - (gensym - (string-append - (symbol->string #{id 27016}#) - " "))))) - (let ((#{l 27009}# - (#{gen-labels 4316}# (list #{v 27008}#)))) - (let ((#{r** 27010}# - (#{extend-var-env 4308}# - #{l 27009}# - (list #{v 27008}#) - #{r* 26997}#))) - (let ((#{w** 27011}# - (#{make-binding-wrap 4327}# - (list #{id 27006}#) - #{l 27009}# - #{w* 26998}#))) - (#{parse-kw 26142}# - #{req 26991}# - #{opt 26992}# - #{rest 26993}# - (cdr #{kw 26994}#) - #{body 26995}# - (cons #{v 27008}# #{vars 26996}#) - #{r** 27010}# - #{w** 27011}# - #{aok 26999}# - (cons (list (syntax->datum #{k 27005}#) - (syntax->datum #{id 27006}#) - #{v 27008}#) - #{out 27000}#) - (cons (#{expand 4345}# - #{i 27007}# - #{r* 26997}# - #{w* 26998}# - #{mod 26137}#) - #{inits 27001}#))))))) - #{tmp 27003}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 27002}#)))) - (#{parse-body 26143}# - #{req 26991}# - #{opt 26992}# - #{rest 26993}# - (if (if #{aok 26999}# - #{aok 26999}# - (pair? #{out 27000}#)) - (cons #{aok 26999}# (reverse #{out 27000}#)) - #f) - #{body 26995}# - (reverse #{vars 26996}#) - #{r* 26997}# - #{w* 26998}# - (reverse #{inits 27001}#) - '())))) - (#{parse-body 26143}# - (lambda (#{req 27290}# - #{opt 27291}# - #{rest 27292}# - #{kw 27293}# - #{body 27294}# - #{vars 27295}# - #{r* 27296}# - #{w* 27297}# - #{inits 27298}# - #{meta 27299}#) - (let ((#{tmp 27301}# - ($sc-dispatch - #{body 27294}# - '(any any . each-any)))) - (if (if #{tmp 27301}# - (@apply - (lambda (#{docstring 27305}# #{e1 27306}# #{e2 27307}#) - (string? (syntax->datum #{docstring 27305}#))) - #{tmp 27301}#) - #f) - (@apply - (lambda (#{docstring 27308}# #{e1 27309}# #{e2 27310}#) - (#{parse-body 26143}# - #{req 27290}# - #{opt 27291}# - #{rest 27292}# - #{kw 27293}# - (cons #{e1 27309}# #{e2 27310}#) - #{vars 27295}# - #{r* 27296}# - #{w* 27297}# - #{inits 27298}# - (append - #{meta 27299}# - (list (cons 'documentation - (syntax->datum #{docstring 27308}#)))))) - #{tmp 27301}#) - (let ((#{tmp 27311}# - ($sc-dispatch - #{body 27294}# - '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 27311}# - (@apply - (lambda (#{k 27315}# - #{v 27316}# - #{e1 27317}# - #{e2 27318}#) - (#{parse-body 26143}# - #{req 27290}# - #{opt 27291}# - #{rest 27292}# - #{kw 27293}# - (cons #{e1 27317}# #{e2 27318}#) - #{vars 27295}# - #{r* 27296}# - #{w* 27297}# - #{inits 27298}# - (append - #{meta 27299}# - (syntax->datum - (map cons #{k 27315}# #{v 27316}#))))) - #{tmp 27311}#) - (let ((#{tmp 27319}# - ($sc-dispatch #{body 27294}# '(any . each-any)))) - (if #{tmp 27319}# - (@apply - (lambda (#{e1 27323}# #{e2 27324}#) - (values - #{meta 27299}# - #{req 27290}# - #{opt 27291}# - #{rest 27292}# - #{kw 27293}# - #{inits 27298}# - #{vars 27295}# - (#{expand-body 4349}# - (cons #{e1 27323}# #{e2 27324}#) - (#{wrap 4338}# - (begin - (if (if (pair? #{e 26133}#) - #{s 26136}# - #f) - (set-source-properties! - #{e 26133}# - #{s 26136}#)) - #{e 26133}#) - #{w 26135}# - #{mod 26137}#) - #{r* 27296}# - #{w* 27297}# - #{mod 26137}#))) - #{tmp 27319}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{body 27294}#)))))))))) - (let ((#{tmp 26145}# - ($sc-dispatch #{clauses 26139}# '()))) - (if #{tmp 26145}# - (@apply - (lambda () (values '() #f)) - #{tmp 26145}#) - (let ((#{tmp 26149}# - ($sc-dispatch - #{clauses 26139}# - '((any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 26149}# - (@apply - (lambda (#{args 26153}# - #{e1 26154}# - #{e2 26155}# - #{args* 26156}# - #{e1* 26157}# - #{e2* 26158}#) - (call-with-values - (lambda () - (#{get-formals 26138}# #{args 26153}#)) - (lambda (#{req 26159}# - #{opt 26160}# - #{rest 26161}# - #{kw 26162}#) - (call-with-values - (lambda () - (#{parse-req 26140}# - #{req 26159}# - #{opt 26160}# - #{rest 26161}# - #{kw 26162}# - (cons #{e1 26154}# #{e2 26155}#))) - (lambda (#{meta 26229}# - #{req 26230}# - #{opt 26231}# - #{rest 26232}# - #{kw 26233}# - #{inits 26234}# - #{vars 26235}# - #{body 26236}#) - (call-with-values - (lambda () - (#{expand-lambda-case 4357}# - #{e 26133}# - #{r 26134}# - #{w 26135}# - #{s 26136}# - #{mod 26137}# - #{get-formals 26138}# - (map (lambda (#{tmp 2775 26237}# - #{tmp 2774 26238}# - #{tmp 2773 26239}#) - (cons #{tmp 2773 26239}# - (cons #{tmp 2774 26238}# - #{tmp 2775 26237}#))) - #{e2* 26158}# - #{e1* 26157}# - #{args* 26156}#))) - (lambda (#{meta* 26240}# #{else* 26241}#) - (values - (append #{meta 26229}# #{meta* 26240}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #{s 26136}# - #{req 26230}# - #{opt 26231}# - #{rest 26232}# - #{kw 26233}# - #{inits 26234}# - #{vars 26235}# - #{body 26236}# - #{else* 26241}#))))))))) - #{tmp 26149}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{clauses 26139}#)))))))) - (#{strip 4358}# - (lambda (#{x 27361}# #{w 27362}#) - (if (memq 'top (car #{w 27362}#)) - #{x 27361}# + (hygiene guile)) + '(()))) + #f) + #f))) + (#{lambda-formals 4459}# + (lambda (#{orig-args 23328}#) (letrec* - ((#{f 27363}# - (lambda (#{x 27366}#) - (if (if (vector? #{x 27366}#) - (if (= (vector-length #{x 27366}#) 4) - (eq? (vector-ref #{x 27366}# 0) 'syntax-object) - #f) - #f) - (#{strip 4358}# - (vector-ref #{x 27366}# 1) - (vector-ref #{x 27366}# 2)) - (if (pair? #{x 27366}#) - (let ((#{a 27385}# (#{f 27363}# (car #{x 27366}#))) - (#{d 27386}# (#{f 27363}# (cdr #{x 27366}#)))) - (if (if (eq? #{a 27385}# (car #{x 27366}#)) - (eq? #{d 27386}# (cdr #{x 27366}#)) - #f) - #{x 27366}# - (cons #{a 27385}# #{d 27386}#))) - (if (vector? #{x 27366}#) - (let ((#{old 27389}# (vector->list #{x 27366}#))) - (let ((#{new 27390}# (map #{f 27363}# #{old 27389}#))) - (letrec* - ((#{lp 27391}# - (lambda (#{l1 27467}# #{l2 27468}#) - (if (null? #{l1 27467}#) - #{x 27366}# - (if (eq? (car #{l1 27467}#) - (car #{l2 27468}#)) - (#{lp 27391}# - (cdr #{l1 27467}#) - (cdr #{l2 27468}#)) - (list->vector #{new 27390}#)))))) - (#{lp 27391}# #{old 27389}# #{new 27390}#)))) - #{x 27366}#)))))) - (#{f 27363}# #{x 27361}#))))) - (#{gen-var 4359}# - (lambda (#{id 26285}#) - (let ((#{id 26286}# - (if (if (vector? #{id 26285}#) - (if (= (vector-length #{id 26285}#) 4) - (eq? (vector-ref #{id 26285}# 0) 'syntax-object) - #f) - #f) - (vector-ref #{id 26285}# 1) - #{id 26285}#))) - (gensym - (string-append (symbol->string #{id 26286}#) " ")))))) - (begin - (module-define! - (current-module) - 'letrec-syntax - (make-syntax-transformer - 'letrec-syntax - 'local-syntax - #t)) - (module-define! - (current-module) - 'let-syntax - (make-syntax-transformer - 'let-syntax - 'local-syntax - #f)) - (#{global-extend 4311}# - 'core - 'syntax-parameterize - (lambda (#{e 4480}# - #{r 4481}# - #{w 4482}# - #{s 4483}# - #{mod 4484}#) - (let ((#{tmp 4486}# - ($sc-dispatch - #{e 4480}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 4486}# - (@apply - (lambda (#{var 4490}# - #{val 4491}# - #{e1 4492}# - #{e2 4493}#) - (#{valid-bound-ids? 4335}# #{var 4490}#)) - #{tmp 4486}#) - #f) - (@apply - (lambda (#{var 4571}# - #{val 4572}# - #{e1 4573}# - #{e2 4574}#) - (let ((#{names 4575}# - (map (lambda (#{x 4765}#) - (#{id-var-name 4332}# #{x 4765}# #{w 4482}#)) - #{var 4571}#))) - (begin - (for-each - (lambda (#{id 4576}# #{n 4577}#) - (let ((#{atom-key 4578}# - (car (let ((#{t 4702}# - (assq #{n 4577}# #{r 4481}#))) - (if #{t 4702}# - (cdr #{t 4702}#) - (if (symbol? #{n 4577}#) - (let ((#{t 4707}# - (begin - (if (if (not #{mod 4484}#) - (current-module) - #f) - (warn "module system is booted, we should have a module" - #{n 4577}#)) - (let ((#{v 4744}# - (module-variable - (if #{mod 4484}# - (resolve-module - (cdr #{mod 4484}#)) - (current-module)) - #{n 4577}#))) - (if #{v 4744}# - (if (variable-bound? - #{v 4744}#) - (let ((#{val 4753}# - (variable-ref - #{v 4744}#))) - (if (macro? - #{val 4753}#) - (if (macro-type - #{val 4753}#) - (cons (macro-type - #{val 4753}#) - (macro-binding - #{val 4753}#)) - #f) - #f)) - #f) - #f))))) - (if #{t 4707}# - #{t 4707}# - '(global))) - '(displaced-lexical))))))) - (if (let ((#{t 4611}# #{atom-key 4578}#)) - (eqv? #{t 4611}# 'displaced-lexical)) - (syntax-violation - 'syntax-parameterize - "identifier out of context" - #{e 4480}# - (#{wrap 4338}# - (begin - (if (if (pair? #{id 4576}#) #{s 4483}# #f) - (set-source-properties! - #{id 4576}# - #{s 4483}#)) - #{id 4576}#) - #{w 4482}# - #{mod 4484}#))))) - #{var 4571}# - #{names 4575}#) - (#{expand-body 4349}# - (cons #{e1 4573}# #{e2 4574}#) - (#{wrap 4338}# - (begin - (if (if (pair? #{e 4480}#) #{s 4483}# #f) - (set-source-properties! #{e 4480}# #{s 4483}#)) - #{e 4480}#) - #{w 4482}# - #{mod 4484}#) - (#{extend-env 4307}# - #{names 4575}# - (let ((#{trans-r 4851}# - (#{macros-only-env 4309}# #{r 4481}#))) - (map (lambda (#{x 4852}#) - (cons 'macro - (#{eval-local-transformer 4351}# - (#{expand 4345}# - #{x 4852}# - #{trans-r 4851}# - #{w 4482}# - #{mod 4484}#) - #{mod 4484}#))) - #{val 4572}#)) - #{r 4481}#) - #{w 4482}# - #{mod 4484}#)))) - #{tmp 4486}#) - (syntax-violation - 'syntax-parameterize - "bad syntax" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 4480}#) #{s 4483}# #f) - (set-source-properties! #{e 4480}# #{s 4483}#)) - #{e 4480}#) - #{w 4482}# - #{mod 4484}#)))))) - (module-define! - (current-module) - 'quote - (make-syntax-transformer - 'quote - 'core - (lambda (#{e 5061}# - #{r 5062}# - #{w 5063}# - #{s 5064}# - #{mod 5065}#) - (let ((#{tmp 5067}# ($sc-dispatch #{e 5061}# '(_ any)))) - (if #{tmp 5067}# - (@apply - (lambda (#{e 5070}#) - (let ((#{exp 5074}# - (#{strip 4358}# #{e 5070}# #{w 5063}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #{s 5064}# - #{exp 5074}#))) - #{tmp 5067}#) - (syntax-violation - 'quote - "bad syntax" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 5061}#) #{s 5064}# #f) - (set-source-properties! #{e 5061}# #{s 5064}#)) - #{e 5061}#) - #{w 5063}# - #{mod 5065}#))))))) - (#{global-extend 4311}# - 'core - 'syntax - (letrec* - ((#{gen-syntax 5301}# - (lambda (#{src 5403}# - #{e 5404}# - #{r 5405}# - #{maps 5406}# - #{ellipsis? 5407}# - #{mod 5408}#) - (if (if (symbol? #{e 5404}#) - #t - (if (if (vector? #{e 5404}#) - (if (= (vector-length #{e 5404}#) 4) - (eq? (vector-ref #{e 5404}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{e 5404}# 1)) - #f)) - (let ((#{label 5435}# - (#{id-var-name 4332}# #{e 5404}# '(())))) - (let ((#{b 5436}# - (let ((#{t 5573}# (assq #{label 5435}# #{r 5405}#))) - (if #{t 5573}# - (cdr #{t 5573}#) - (if (symbol? #{label 5435}#) - (let ((#{t 5578}# - (begin - (if (if (not #{mod 5408}#) - (current-module) - #f) - (warn "module system is booted, we should have a module" - #{label 5435}#)) - (let ((#{v 5615}# - (module-variable - (if #{mod 5408}# - (resolve-module - (cdr #{mod 5408}#)) - (current-module)) - #{label 5435}#))) - (if #{v 5615}# - (if (variable-bound? #{v 5615}#) - (let ((#{val 5624}# - (variable-ref - #{v 5615}#))) - (if (macro? #{val 5624}#) - (if (macro-type - #{val 5624}#) - (cons (macro-type - #{val 5624}#) - (macro-binding - #{val 5624}#)) - #f) - #f)) - #f) - #f))))) - (if #{t 5578}# #{t 5578}# '(global))) - '(displaced-lexical)))))) - (if (eq? (car #{b 5436}#) 'syntax) - (call-with-values - (lambda () - (let ((#{var.lev 5469}# (cdr #{b 5436}#))) - (#{gen-ref 5302}# - #{src 5403}# - (car #{var.lev 5469}#) - (cdr #{var.lev 5469}#) - #{maps 5406}#))) - (lambda (#{var 5565}# #{maps 5566}#) - (values (list 'ref #{var 5565}#) #{maps 5566}#))) - (if (#{ellipsis? 5407}# #{e 5404}#) - (syntax-violation - 'syntax - "misplaced ellipsis" - #{src 5403}#) - (values (list 'quote #{e 5404}#) #{maps 5406}#))))) - (let ((#{tmp 5636}# - ($sc-dispatch #{e 5404}# '(any any)))) - (if (if #{tmp 5636}# - (@apply - (lambda (#{dots 5640}# #{e 5641}#) - (#{ellipsis? 5407}# #{dots 5640}#)) - #{tmp 5636}#) - #f) - (@apply - (lambda (#{dots 5642}# #{e 5643}#) - (#{gen-syntax 5301}# - #{src 5403}# - #{e 5643}# - #{r 5405}# - #{maps 5406}# - (lambda (#{x 5644}#) #f) - #{mod 5408}#)) - #{tmp 5636}#) - (let ((#{tmp 5645}# - ($sc-dispatch #{e 5404}# '(any any . any)))) - (if (if #{tmp 5645}# - (@apply - (lambda (#{x 5649}# #{dots 5650}# #{y 5651}#) - (#{ellipsis? 5407}# #{dots 5650}#)) - #{tmp 5645}#) - #f) - (@apply - (lambda (#{x 5652}# #{dots 5653}# #{y 5654}#) - (letrec* - ((#{f 5655}# - (lambda (#{y 5663}# #{k 5664}#) - (let ((#{tmp 5666}# - ($sc-dispatch - #{y 5663}# - '(any . any)))) - (if (if #{tmp 5666}# - (@apply - (lambda (#{dots 5670}# #{y 5671}#) - (#{ellipsis? 5407}# - #{dots 5670}#)) - #{tmp 5666}#) + ((#{req 23329}# + (lambda (#{args 23333}# #{rreq 23334}#) + (let ((#{tmp 23336}# ($sc-dispatch #{args 23333}# '()))) + (if #{tmp 23336}# + (@apply + (lambda () + (#{check 23330}# (reverse #{rreq 23334}#) #f)) + #{tmp 23336}#) + (let ((#{tmp 23459}# + ($sc-dispatch #{args 23333}# '(any . any)))) + (if (if #{tmp 23459}# + (@apply + (lambda (#{a 23463}# #{b 23464}#) + (if (symbol? #{a 23463}#) + #t + (if (if (vector? #{a 23463}#) + (if (= (vector-length #{a 23463}#) 4) + (eq? (vector-ref #{a 23463}# 0) + 'syntax-object) #f) - (@apply - (lambda (#{dots 5672}# #{y 5673}#) - (#{f 5655}# - #{y 5673}# - (lambda (#{maps 5674}#) - (call-with-values - (lambda () - (#{k 5664}# - (cons '() #{maps 5674}#))) - (lambda (#{x 5675}# - #{maps 5676}#) - (if (null? (car #{maps 5676}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src 5403}#) - (values - (let ((#{map-env 5680}# - (car #{maps 5676}#))) - (list 'apply - '(primitive - append) - (#{gen-map 5304}# - #{x 5675}# - #{map-env 5680}#))) - (cdr #{maps 5676}#)))))))) - #{tmp 5666}#) - (call-with-values - (lambda () - (#{gen-syntax 5301}# - #{src 5403}# - #{y 5663}# - #{r 5405}# - #{maps 5406}# - #{ellipsis? 5407}# - #{mod 5408}#)) - (lambda (#{y 5683}# #{maps 5684}#) - (call-with-values - (lambda () - (#{k 5664}# #{maps 5684}#)) - (lambda (#{x 5685}# #{maps 5686}#) - (values - (if (equal? #{y 5683}# ''()) - #{x 5685}# - (list 'append - #{x 5685}# - #{y 5683}#)) - #{maps 5686}#)))))))))) - (#{f 5655}# - #{y 5654}# - (lambda (#{maps 5658}#) - (call-with-values - (lambda () - (#{gen-syntax 5301}# - #{src 5403}# - #{x 5652}# - #{r 5405}# - (cons '() #{maps 5658}#) - #{ellipsis? 5407}# - #{mod 5408}#)) - (lambda (#{x 5659}# #{maps 5660}#) - (if (null? (car #{maps 5660}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src 5403}#) - (values - (#{gen-map 5304}# - #{x 5659}# - (car #{maps 5660}#)) - (cdr #{maps 5660}#))))))))) - #{tmp 5645}#) - (let ((#{tmp 5702}# - ($sc-dispatch #{e 5404}# '(any . any)))) - (if #{tmp 5702}# - (@apply - (lambda (#{x 5706}# #{y 5707}#) - (call-with-values - (lambda () - (#{gen-syntax 5301}# - #{src 5403}# - #{x 5706}# - #{r 5405}# - #{maps 5406}# - #{ellipsis? 5407}# - #{mod 5408}#)) - (lambda (#{x 5708}# #{maps 5709}#) - (call-with-values - (lambda () - (#{gen-syntax 5301}# - #{src 5403}# - #{y 5707}# - #{r 5405}# - #{maps 5709}# - #{ellipsis? 5407}# - #{mod 5408}#)) - (lambda (#{y 5710}# #{maps 5711}#) - (values - (let ((#{atom-key 5716}# - (car #{y 5710}#))) - (if (eqv? #{atom-key 5716}# 'quote) - (if (eq? (car #{x 5708}#) 'quote) - (list 'quote - (cons (car (cdr #{x 5708}#)) - (car (cdr #{y 5710}#)))) - (if (eq? (car (cdr #{y 5710}#)) - '()) - (list 'list #{x 5708}#) - (list 'cons - #{x 5708}# - #{y 5710}#))) - (if (eqv? #{atom-key 5716}# 'list) - (cons 'list - (cons #{x 5708}# - (cdr #{y 5710}#))) - (list 'cons - #{x 5708}# - #{y 5710}#)))) - #{maps 5711}#)))))) - #{tmp 5702}#) - (let ((#{tmp 5745}# - ($sc-dispatch - #{e 5404}# - '#(vector (any . each-any))))) - (if #{tmp 5745}# - (@apply - (lambda (#{e1 5749}# #{e2 5750}#) - (call-with-values - (lambda () - (#{gen-syntax 5301}# - #{src 5403}# - (cons #{e1 5749}# #{e2 5750}#) - #{r 5405}# - #{maps 5406}# - #{ellipsis? 5407}# - #{mod 5408}#)) - (lambda (#{e 5751}# #{maps 5752}#) - (values - (if (eq? (car #{e 5751}#) 'list) - (cons 'vector (cdr #{e 5751}#)) - (if (eq? (car #{e 5751}#) 'quote) - (list 'quote - (list->vector - (car (cdr #{e 5751}#)))) - (list 'list->vector #{e 5751}#))) - #{maps 5752}#)))) - #{tmp 5745}#) - (values - (list 'quote #{e 5404}#) - #{maps 5406}#)))))))))))) - (#{gen-ref 5302}# - (lambda (#{src 5779}# - #{var 5780}# - #{level 5781}# - #{maps 5782}#) - (if (= #{level 5781}# 0) - (values #{var 5780}# #{maps 5782}#) - (if (null? #{maps 5782}#) - (syntax-violation - 'syntax - "missing ellipsis" - #{src 5779}#) - (call-with-values - (lambda () - (#{gen-ref 5302}# - #{src 5779}# - #{var 5780}# - (#{1-}# #{level 5781}#) - (cdr #{maps 5782}#))) - (lambda (#{outer-var 5783}# #{outer-maps 5784}#) - (let ((#{b 5785}# - (assq #{outer-var 5783}# (car #{maps 5782}#)))) - (if #{b 5785}# - (values (cdr #{b 5785}#) #{maps 5782}#) - (let ((#{inner-var 5787}# - (gensym - (string-append (symbol->string 'tmp) " ")))) - (values - #{inner-var 5787}# - (cons (cons (cons #{outer-var 5783}# - #{inner-var 5787}#) - (car #{maps 5782}#)) - #{outer-maps 5784}#))))))))))) - (#{gen-map 5304}# - (lambda (#{e 5801}# #{map-env 5802}#) - (let ((#{formals 5803}# (map cdr #{map-env 5802}#)) - (#{actuals 5804}# - (map (lambda (#{x 5806}#) - (list 'ref (car #{x 5806}#))) - #{map-env 5802}#))) - (if (eq? (car #{e 5801}#) 'ref) - (car #{actuals 5804}#) - (if (and-map - (lambda (#{x 5807}#) - (if (eq? (car #{x 5807}#) 'ref) - (memq (car (cdr #{x 5807}#)) #{formals 5803}#) - #f)) - (cdr #{e 5801}#)) - (cons 'map - (cons (list 'primitive (car #{e 5801}#)) - (map (let ((#{r 5809}# - (map cons - #{formals 5803}# - #{actuals 5804}#))) - (lambda (#{x 5810}#) - (cdr (assq (car (cdr #{x 5810}#)) - #{r 5809}#)))) - (cdr #{e 5801}#)))) - (cons 'map - (cons (list 'lambda #{formals 5803}# #{e 5801}#) - #{actuals 5804}#))))))) - (#{regen 5308}# - (lambda (#{x 5812}#) - (let ((#{atom-key 5813}# (car #{x 5812}#))) - (if (eqv? #{atom-key 5813}# 'ref) - (let ((#{name 5823}# (car (cdr #{x 5812}#))) - (#{var 5824}# (car (cdr #{x 5812}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #f - #{name 5823}# - #{var 5824}#)) - (if (eqv? #{atom-key 5813}# 'primitive) - (let ((#{name 5836}# (car (cdr #{x 5812}#)))) - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - #{name 5836}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - #{name 5836}# - #f))) - (if (eqv? #{atom-key 5813}# 'quote) - (let ((#{exp 5854}# (car (cdr #{x 5812}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - #{exp 5854}#)) - (if (eqv? #{atom-key 5813}# 'lambda) - (if (list? (car (cdr #{x 5812}#))) - (let ((#{req 5865}# (car (cdr #{x 5812}#))) - (#{vars 5867}# (car (cdr #{x 5812}#))) - (#{exp 5869}# - (#{regen 5308}# - (car (cdr (cdr #{x 5812}#)))))) - (let ((#{body 5874}# - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #f - #{req 5865}# - #f - #f - #f - '() - #{vars 5867}# - #{exp 5869}# - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #f - '() - #{body 5874}#))) - (error "how did we get here" #{x 5812}#)) - (let ((#{fun-exp 5890}# - (let ((#{name 5899}# (car #{x 5812}#))) - (if (equal? - (module-name (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - #{name 5899}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - #{name 5899}# - #f)))) - (#{arg-exps 5891}# - (map #{regen 5308}# (cdr #{x 5812}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 5890}# - #{arg-exps 5891}#)))))))))) - (lambda (#{e 5309}# - #{r 5310}# - #{w 5311}# - #{s 5312}# - #{mod 5313}#) - (let ((#{e 5314}# - (#{wrap 4338}# - (begin - (if (if (pair? #{e 5309}#) #{s 5312}# #f) - (set-source-properties! #{e 5309}# #{s 5312}#)) - #{e 5309}#) - #{w 5311}# - #{mod 5313}#))) - (let ((#{tmp 5316}# ($sc-dispatch #{e 5314}# '(_ any)))) - (if #{tmp 5316}# - (@apply - (lambda (#{x 5341}#) - (call-with-values - (lambda () - (#{gen-syntax 5301}# - #{e 5314}# - #{x 5341}# - #{r 5310}# - '() - #{ellipsis? 4353}# - #{mod 5313}#)) - (lambda (#{e 5395}# #{maps 5396}#) - (#{regen 5308}# #{e 5395}#)))) - #{tmp 5316}#) - (syntax-violation - 'syntax - "bad `syntax' form" - #{e 5314}#))))))) - (#{global-extend 4311}# - 'core - 'lambda - (lambda (#{e 6092}# - #{r 6093}# - #{w 6094}# - #{s 6095}# - #{mod 6096}#) - (let ((#{tmp 6098}# - ($sc-dispatch #{e 6092}# '(_ any any . each-any)))) - (if #{tmp 6098}# - (@apply - (lambda (#{args 6102}# #{e1 6103}# #{e2 6104}#) - (call-with-values - (lambda () - (#{lambda-formals 4354}# #{args 6102}#)) - (lambda (#{req 6107}# - #{opt 6108}# - #{rest 6109}# - #{kw 6110}#) - (letrec* - ((#{lp 6111}# - (lambda (#{body 6114}# #{meta 6115}#) - (let ((#{tmp 6117}# - ($sc-dispatch - #{body 6114}# - '(any any . each-any)))) - (if (if #{tmp 6117}# - (@apply - (lambda (#{docstring 6121}# - #{e1 6122}# - #{e2 6123}#) - (string? - (syntax->datum #{docstring 6121}#))) - #{tmp 6117}#) - #f) - (@apply - (lambda (#{docstring 6124}# - #{e1 6125}# - #{e2 6126}#) - (#{lp 6111}# - (cons #{e1 6125}# #{e2 6126}#) - (append - #{meta 6115}# - (list (cons 'documentation - (syntax->datum - #{docstring 6124}#)))))) - #{tmp 6117}#) - (let ((#{tmp 6127}# - ($sc-dispatch - #{body 6114}# - '(#(vector #(each (any . any))) - any - . - each-any)))) - (if #{tmp 6127}# - (@apply - (lambda (#{k 6131}# - #{v 6132}# - #{e1 6133}# - #{e2 6134}#) - (#{lp 6111}# - (cons #{e1 6133}# #{e2 6134}#) - (append - #{meta 6115}# - (syntax->datum - (map cons - #{k 6131}# - #{v 6132}#))))) - #{tmp 6127}#) - (#{expand-simple-lambda 4355}# - #{e 6092}# - #{r 6093}# - #{w 6094}# - #{s 6095}# - #{mod 6096}# - #{req 6107}# - #{rest 6109}# - #{meta 6115}# - #{body 6114}#)))))))) - (#{lp 6111}# (cons #{e1 6103}# #{e2 6104}#) '()))))) - #{tmp 6098}#) - (syntax-violation - 'lambda - "bad lambda" - #{e 6092}#))))) - (#{global-extend 4311}# - 'core - 'lambda* - (lambda (#{e 6425}# - #{r 6426}# - #{w 6427}# - #{s 6428}# - #{mod 6429}#) - (let ((#{tmp 6431}# - ($sc-dispatch #{e 6425}# '(_ any any . each-any)))) - (if #{tmp 6431}# - (@apply - (lambda (#{args 6435}# #{e1 6436}# #{e2 6437}#) - (call-with-values - (lambda () - (#{expand-lambda-case 4357}# - #{e 6425}# - #{r 6426}# - #{w 6427}# - #{s 6428}# - #{mod 6429}# - #{lambda*-formals 4356}# - (list (cons #{args 6435}# - (cons #{e1 6436}# #{e2 6437}#))))) - (lambda (#{meta 6440}# #{lcase 6441}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 6428}# - #{meta 6440}# - #{lcase 6441}#)))) - #{tmp 6431}#) - (syntax-violation - 'lambda - "bad lambda*" - #{e 6425}#))))) - (#{global-extend 4311}# - 'core - 'case-lambda - (lambda (#{e 6611}# - #{r 6612}# - #{w 6613}# - #{s 6614}# - #{mod 6615}#) - (let ((#{tmp 6617}# - ($sc-dispatch - #{e 6611}# - '(_ (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 6617}# - (@apply - (lambda (#{args 6621}# - #{e1 6622}# - #{e2 6623}# - #{args* 6624}# - #{e1* 6625}# - #{e2* 6626}#) - (call-with-values - (lambda () - (#{expand-lambda-case 4357}# - #{e 6611}# - #{r 6612}# - #{w 6613}# - #{s 6614}# - #{mod 6615}# - #{lambda-formals 4354}# - (cons (cons #{args 6621}# - (cons #{e1 6622}# #{e2 6623}#)) - (map (lambda (#{tmp 3274 6629}# - #{tmp 3273 6630}# - #{tmp 3272 6631}#) - (cons #{tmp 3272 6631}# - (cons #{tmp 3273 6630}# - #{tmp 3274 6629}#))) - #{e2* 6626}# - #{e1* 6625}# - #{args* 6624}#)))) - (lambda (#{meta 6632}# #{lcase 6633}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 6614}# - #{meta 6632}# - #{lcase 6633}#)))) - #{tmp 6617}#) - (syntax-violation - 'case-lambda - "bad case-lambda" - #{e 6611}#))))) - (#{global-extend 4311}# - 'core - 'case-lambda* - (lambda (#{e 6795}# - #{r 6796}# - #{w 6797}# - #{s 6798}# - #{mod 6799}#) - (let ((#{tmp 6801}# - ($sc-dispatch - #{e 6795}# - '(_ (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 6801}# - (@apply - (lambda (#{args 6805}# - #{e1 6806}# - #{e2 6807}# - #{args* 6808}# - #{e1* 6809}# - #{e2* 6810}#) - (call-with-values - (lambda () - (#{expand-lambda-case 4357}# - #{e 6795}# - #{r 6796}# - #{w 6797}# - #{s 6798}# - #{mod 6799}# - #{lambda*-formals 4356}# - (cons (cons #{args 6805}# - (cons #{e1 6806}# #{e2 6807}#)) - (map (lambda (#{tmp 3309 6813}# - #{tmp 3308 6814}# - #{tmp 3307 6815}#) - (cons #{tmp 3307 6815}# - (cons #{tmp 3308 6814}# - #{tmp 3309 6813}#))) - #{e2* 6810}# - #{e1* 6809}# - #{args* 6808}#)))) - (lambda (#{meta 6816}# #{lcase 6817}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 6798}# - #{meta 6816}# - #{lcase 6817}#)))) - #{tmp 6801}#) - (syntax-violation - 'case-lambda - "bad case-lambda*" - #{e 6795}#))))) - (#{global-extend 4311}# - 'core - 'let - (letrec* - ((#{expand-let 7008}# - (lambda (#{e 7157}# - #{r 7158}# - #{w 7159}# - #{s 7160}# - #{mod 7161}# - #{constructor 7162}# - #{ids 7163}# - #{vals 7164}# - #{exps 7165}#) - (if (not (#{valid-bound-ids? 4335}# #{ids 7163}#)) - (syntax-violation - 'let - "duplicate bound variable" - #{e 7157}#) - (let ((#{labels 7243}# - (#{gen-labels 4316}# #{ids 7163}#)) - (#{new-vars 7244}# - (map #{gen-var 4359}# #{ids 7163}#))) - (let ((#{nw 7245}# - (#{make-binding-wrap 4327}# - #{ids 7163}# - #{labels 7243}# - #{w 7159}#)) - (#{nr 7246}# - (#{extend-var-env 4308}# - #{labels 7243}# - #{new-vars 7244}# - #{r 7158}#))) - (#{constructor 7162}# - #{s 7160}# - (map syntax->datum #{ids 7163}#) - #{new-vars 7244}# - (map (lambda (#{x 7263}#) - (#{expand 4345}# - #{x 7263}# - #{r 7158}# - #{w 7159}# - #{mod 7161}#)) - #{vals 7164}#) - (#{expand-body 4349}# - #{exps 7165}# - (#{source-wrap 4339}# - #{e 7157}# - #{nw 7245}# - #{s 7160}# - #{mod 7161}#) - #{nr 7246}# - #{nw 7245}# - #{mod 7161}#)))))))) - (lambda (#{e 7009}# - #{r 7010}# - #{w 7011}# - #{s 7012}# - #{mod 7013}#) - (let ((#{tmp 7015}# - ($sc-dispatch - #{e 7009}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7015}# - (@apply - (lambda (#{id 7019}# - #{val 7020}# - #{e1 7021}# - #{e2 7022}#) - (and-map #{id? 4313}# #{id 7019}#)) - #{tmp 7015}#) - #f) - (@apply - (lambda (#{id 7038}# - #{val 7039}# - #{e1 7040}# - #{e2 7041}#) - (#{expand-let 7008}# - #{e 7009}# - #{r 7010}# - #{w 7011}# - #{s 7012}# - #{mod 7013}# - #{build-let 4295}# - #{id 7038}# - #{val 7039}# - (cons #{e1 7040}# #{e2 7041}#))) - #{tmp 7015}#) - (let ((#{tmp 7071}# - ($sc-dispatch - #{e 7009}# - '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 7071}# - (@apply - (lambda (#{f 7075}# - #{id 7076}# - #{val 7077}# - #{e1 7078}# - #{e2 7079}#) - (if (if (symbol? #{f 7075}#) - #t - (if (if (vector? #{f 7075}#) - (if (= (vector-length #{f 7075}#) 4) - (eq? (vector-ref #{f 7075}# 0) - 'syntax-object) #f) - #f) - (symbol? (vector-ref #{f 7075}# 1)) - #f)) - (and-map #{id? 4313}# #{id 7076}#) - #f)) - #{tmp 7071}#) - #f) - (@apply - (lambda (#{f 7121}# - #{id 7122}# - #{val 7123}# - #{e1 7124}# - #{e2 7125}#) - (#{expand-let 7008}# - #{e 7009}# - #{r 7010}# - #{w 7011}# - #{s 7012}# - #{mod 7013}# - #{build-named-let 4296}# - (cons #{f 7121}# #{id 7122}#) - #{val 7123}# - (cons #{e1 7124}# #{e2 7125}#))) - #{tmp 7071}#) - (syntax-violation - 'let - "bad let" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 7009}#) #{s 7012}# #f) - (set-source-properties! #{e 7009}# #{s 7012}#)) - #{e 7009}#) - #{w 7011}# - #{mod 7013}#))))))))) - (#{global-extend 4311}# - 'core - 'letrec - (lambda (#{e 7705}# - #{r 7706}# - #{w 7707}# - #{s 7708}# - #{mod 7709}#) - (let ((#{tmp 7711}# - ($sc-dispatch - #{e 7705}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7711}# - (@apply - (lambda (#{id 7715}# - #{val 7716}# - #{e1 7717}# - #{e2 7718}#) - (and-map #{id? 4313}# #{id 7715}#)) - #{tmp 7711}#) - #f) - (@apply - (lambda (#{id 7734}# - #{val 7735}# - #{e1 7736}# - #{e2 7737}#) - (if (not (#{valid-bound-ids? 4335}# #{id 7734}#)) - (syntax-violation - 'letrec - "duplicate bound variable" - #{e 7705}#) - (let ((#{labels 7827}# - (#{gen-labels 4316}# #{id 7734}#)) - (#{new-vars 7828}# - (map #{gen-var 4359}# #{id 7734}#))) - (let ((#{w 7829}# - (#{make-binding-wrap 4327}# - #{id 7734}# - #{labels 7827}# - #{w 7707}#)) - (#{r 7830}# - (#{extend-var-env 4308}# - #{labels 7827}# - #{new-vars 7828}# - #{r 7706}#))) - (#{build-letrec 4297}# - #{s 7708}# - #f - (map syntax->datum #{id 7734}#) - #{new-vars 7828}# - (map (lambda (#{x 7917}#) - (#{expand 4345}# - #{x 7917}# - #{r 7830}# - #{w 7829}# - #{mod 7709}#)) - #{val 7735}#) - (#{expand-body 4349}# - (cons #{e1 7736}# #{e2 7737}#) - (#{wrap 4338}# - (begin - (if (if (pair? #{e 7705}#) #{s 7708}# #f) - (set-source-properties! #{e 7705}# #{s 7708}#)) - #{e 7705}#) - #{w 7829}# - #{mod 7709}#) - #{r 7830}# - #{w 7829}# - #{mod 7709}#)))))) - #{tmp 7711}#) - (syntax-violation - 'letrec - "bad letrec" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 7705}#) #{s 7708}# #f) - (set-source-properties! #{e 7705}# #{s 7708}#)) - #{e 7705}#) - #{w 7707}# - #{mod 7709}#)))))) - (#{global-extend 4311}# - 'core - 'letrec* - (lambda (#{e 8334}# - #{r 8335}# - #{w 8336}# - #{s 8337}# - #{mod 8338}#) - (let ((#{tmp 8340}# - ($sc-dispatch - #{e 8334}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8340}# - (@apply - (lambda (#{id 8344}# - #{val 8345}# - #{e1 8346}# - #{e2 8347}#) - (and-map #{id? 4313}# #{id 8344}#)) - #{tmp 8340}#) - #f) - (@apply - (lambda (#{id 8363}# - #{val 8364}# - #{e1 8365}# - #{e2 8366}#) - (if (not (#{valid-bound-ids? 4335}# #{id 8363}#)) - (syntax-violation - 'letrec* - "duplicate bound variable" - #{e 8334}#) - (let ((#{labels 8456}# - (#{gen-labels 4316}# #{id 8363}#)) - (#{new-vars 8457}# - (map #{gen-var 4359}# #{id 8363}#))) - (let ((#{w 8458}# - (#{make-binding-wrap 4327}# - #{id 8363}# - #{labels 8456}# - #{w 8336}#)) - (#{r 8459}# - (#{extend-var-env 4308}# - #{labels 8456}# - #{new-vars 8457}# - #{r 8335}#))) - (#{build-letrec 4297}# - #{s 8337}# - #t - (map syntax->datum #{id 8363}#) - #{new-vars 8457}# - (map (lambda (#{x 8546}#) - (#{expand 4345}# - #{x 8546}# - #{r 8459}# - #{w 8458}# - #{mod 8338}#)) - #{val 8364}#) - (#{expand-body 4349}# - (cons #{e1 8365}# #{e2 8366}#) - (#{wrap 4338}# - (begin - (if (if (pair? #{e 8334}#) #{s 8337}# #f) - (set-source-properties! #{e 8334}# #{s 8337}#)) - #{e 8334}#) - #{w 8458}# - #{mod 8338}#) - #{r 8459}# - #{w 8458}# - #{mod 8338}#)))))) - #{tmp 8340}#) - (syntax-violation - 'letrec* - "bad letrec*" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 8334}#) #{s 8337}# #f) - (set-source-properties! #{e 8334}# #{s 8337}#)) - #{e 8334}#) - #{w 8336}# - #{mod 8338}#)))))) - (#{global-extend 4311}# - 'core - 'set! - (lambda (#{e 9005}# - #{r 9006}# - #{w 9007}# - #{s 9008}# - #{mod 9009}#) - (let ((#{tmp 9011}# - ($sc-dispatch #{e 9005}# '(_ any any)))) - (if (if #{tmp 9011}# - (@apply - (lambda (#{id 9015}# #{val 9016}#) - (if (symbol? #{id 9015}#) - #t - (if (if (vector? #{id 9015}#) - (if (= (vector-length #{id 9015}#) 4) - (eq? (vector-ref #{id 9015}# 0) 'syntax-object) - #f) + (symbol? (vector-ref #{a 23463}# 1)) + #f))) + #{tmp 23459}#) #f) - (symbol? (vector-ref #{id 9015}# 1)) - #f))) - #{tmp 9011}#) - #f) - (@apply - (lambda (#{id 9043}# #{val 9044}#) - (let ((#{n 9045}# - (#{id-var-name 4332}# #{id 9043}# #{w 9007}#)) - (#{id-mod 9046}# - (if (if (vector? #{id 9043}#) - (if (= (vector-length #{id 9043}#) 4) - (eq? (vector-ref #{id 9043}# 0) 'syntax-object) - #f) - #f) - (vector-ref #{id 9043}# 3) - #{mod 9009}#))) - (let ((#{b 9047}# - (let ((#{t 9709}# (assq #{n 9045}# #{r 9006}#))) - (if #{t 9709}# - (cdr #{t 9709}#) - (if (symbol? #{n 9045}#) - (let ((#{t 9714}# - (begin - (if (if (not #{id-mod 9046}#) - (current-module) - #f) - (warn "module system is booted, we should have a module" - #{n 9045}#)) - (let ((#{v 9751}# - (module-variable - (if #{id-mod 9046}# - (resolve-module - (cdr #{id-mod 9046}#)) - (current-module)) - #{n 9045}#))) - (if #{v 9751}# - (if (variable-bound? #{v 9751}#) - (let ((#{val 9760}# - (variable-ref - #{v 9751}#))) - (if (macro? #{val 9760}#) - (if (macro-type - #{val 9760}#) - (cons (macro-type - #{val 9760}#) - (macro-binding - #{val 9760}#)) - #f) - #f)) - #f) - #f))))) - (if #{t 9714}# #{t 9714}# '(global))) - '(displaced-lexical)))))) - (let ((#{atom-key 9048}# (car #{b 9047}#))) - (if (let ((#{t 9080}# #{atom-key 9048}#)) - (eqv? #{t 9080}# 'lexical)) - (#{build-lexical-assignment 4284}# - #{s 9008}# - (syntax->datum #{id 9043}#) - (cdr #{b 9047}#) - (#{expand 4345}# - #{val 9044}# - #{r 9006}# - #{w 9007}# - #{mod 9009}#)) - (if (let ((#{t 9355}# #{atom-key 9048}#)) - (eqv? #{t 9355}# 'global)) - (#{build-global-assignment 4287}# - #{s 9008}# - #{n 9045}# - (#{expand 4345}# - #{val 9044}# - #{r 9006}# - #{w 9007}# - #{mod 9009}#) - #{id-mod 9046}#) - (if (let ((#{t 9600}# #{atom-key 9048}#)) - (eqv? #{t 9600}# 'macro)) - (let ((#{p 9663}# (cdr #{b 9047}#))) - (if (procedure-property - #{p 9663}# - 'variable-transformer) - (#{expand 4345}# - (#{expand-macro 4348}# - #{p 9663}# - #{e 9005}# - #{r 9006}# - #{w 9007}# - #{s 9008}# - #f - #{mod 9009}#) - #{r 9006}# - '(()) - #{mod 9009}#) - (syntax-violation - 'set! - "not a variable transformer" - (#{wrap 4338}# - #{e 9005}# - #{w 9007}# - #{mod 9009}#) - (#{wrap 4338}# - #{id 9043}# - #{w 9007}# - #{id-mod 9046}#)))) - (if (eqv? #{atom-key 9048}# 'displaced-lexical) - (syntax-violation - 'set! - "identifier out of context" - (#{wrap 4338}# - #{id 9043}# - #{w 9007}# - #{mod 9009}#)) - (syntax-violation - 'set! - "bad set!" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 9005}#) #{s 9008}# #f) - (set-source-properties! - #{e 9005}# - #{s 9008}#)) - #{e 9005}#) - #{w 9007}# - #{mod 9009}#)))))))))) - #{tmp 9011}#) - (let ((#{tmp 9856}# - ($sc-dispatch - #{e 9005}# - '(_ (any . each-any) any)))) - (if #{tmp 9856}# - (@apply - (lambda (#{head 9860}# #{tail 9861}# #{val 9862}#) - (call-with-values + (@apply + (lambda (#{a 23491}# #{b 23492}#) + (#{req 23329}# + #{b 23492}# + (cons #{a 23491}# #{rreq 23334}#))) + #{tmp 23459}#) + (let ((#{tmp 23493}# (list #{args 23333}#))) + (if (@apply + (lambda (#{r 23495}#) + (if (symbol? #{r 23495}#) + #t + (if (if (vector? #{r 23495}#) + (if (= (vector-length #{r 23495}#) 4) + (eq? (vector-ref #{r 23495}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{r 23495}# 1)) + #f))) + #{tmp 23493}#) + (@apply + (lambda (#{r 23525}#) + (#{check 23330}# + (reverse #{rreq 23334}#) + #{r 23525}#)) + #{tmp 23493}#) + (syntax-violation + 'lambda + "invalid argument list" + #{orig-args 23328}# + #{args 23333}#))))))))) + (#{check 23330}# + (lambda (#{req 23656}# #{rest 23657}#) + (if (#{distinct-bound-ids? 4441}# + (if #{rest 23657}# + (cons #{rest 23657}# #{req 23656}#) + #{req 23656}#)) + (values #{req 23656}# #f #{rest 23657}# #f) + (syntax-violation + 'lambda + "duplicate identifier in argument list" + #{orig-args 23328}#))))) + (#{req 23329}# #{orig-args 23328}# '())))) + (#{expand-simple-lambda 4460}# + (lambda (#{e 23773}# + #{r 23774}# + #{w 23775}# + #{s 23776}# + #{mod 23777}# + #{req 23778}# + #{rest 23779}# + #{meta 23780}# + #{body 23781}#) + (let ((#{ids 23782}# + (if #{rest 23779}# + (append #{req 23778}# (list #{rest 23779}#)) + #{req 23778}#))) + (let ((#{vars 23783}# + (map #{gen-var 4464}# #{ids 23782}#))) + (let ((#{labels 23784}# + (#{gen-labels 4418}# #{ids 23782}#))) + (#{build-simple-lambda 4391}# + #{s 23776}# + (map syntax->datum #{req 23778}#) + (if #{rest 23779}# + (syntax->datum #{rest 23779}#) + #f) + #{vars 23783}# + #{meta 23780}# + (#{expand-body 4454}# + #{body 23781}# + (#{wrap 4443}# + (begin + (if (if (pair? #{e 23773}#) #{s 23776}# #f) + (set-source-properties! #{e 23773}# #{s 23776}#)) + #{e 23773}#) + #{w 23775}# + #{mod 23777}#) + (#{extend-var-env 4410}# + #{labels 23784}# + #{vars 23783}# + #{r 23774}#) + (#{make-binding-wrap 4429}# + #{ids 23782}# + #{labels 23784}# + #{w 23775}#) + #{mod 23777}#))))))) + (#{lambda*-formals 4461}# + (lambda (#{orig-args 24084}#) + (letrec* + ((#{req 24085}# + (lambda (#{args 24092}# #{rreq 24093}#) + (let ((#{tmp 24095}# ($sc-dispatch #{args 24092}# '()))) + (if #{tmp 24095}# + (@apply (lambda () - (#{syntax-type 4344}# - #{head 9860}# - #{r 9006}# - '(()) + (#{check 24089}# + (reverse #{rreq 24093}#) + '() #f - #f - #{mod 9009}# - #t)) - (lambda (#{type 9865}# - #{value 9866}# - #{ee 9867}# - #{ww 9868}# - #{ss 9869}# - #{modmod 9870}#) - (if (eqv? #{type 9865}# 'module-ref) - (let ((#{val 9874}# - (#{expand 4345}# - #{val 9862}# - #{r 9006}# - #{w 9007}# - #{mod 9009}#))) - (call-with-values - (lambda () - (#{value 9866}# - (cons #{head 9860}# #{tail 9861}#) - #{r 9006}# - #{w 9007}#)) - (lambda (#{e 9875}# - #{r 9876}# - #{w 9877}# - #{s* 9878}# - #{mod 9879}#) - (let ((#{tmp 9881}# (list #{e 9875}#))) - (if (@apply - (lambda (#{e 9883}#) - (if (symbol? #{e 9883}#) - #t - (if (if (vector? #{e 9883}#) - (if (= (vector-length - #{e 9883}#) - 4) - (eq? (vector-ref - #{e 9883}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{e 9883}# 1)) - #f))) - #{tmp 9881}#) + '())) + #{tmp 24095}#) + (let ((#{tmp 24101}# + ($sc-dispatch #{args 24092}# '(any . any)))) + (if (if #{tmp 24101}# + (@apply + (lambda (#{a 24105}# #{b 24106}#) + (if (symbol? #{a 24105}#) + #t + (if (if (vector? #{a 24105}#) + (if (= (vector-length #{a 24105}#) 4) + (eq? (vector-ref #{a 24105}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 24105}# 1)) + #f))) + #{tmp 24101}#) + #f) + (@apply + (lambda (#{a 24133}# #{b 24134}#) + (#{req 24085}# + #{b 24134}# + (cons #{a 24133}# #{rreq 24093}#))) + #{tmp 24101}#) + (let ((#{tmp 24135}# + ($sc-dispatch #{args 24092}# '(any . any)))) + (if (if #{tmp 24135}# + (@apply + (lambda (#{a 24139}# #{b 24140}#) + (eq? (syntax->datum #{a 24139}#) + #:optional)) + #{tmp 24135}#) + #f) + (@apply + (lambda (#{a 24141}# #{b 24142}#) + (#{opt 24086}# + #{b 24142}# + (reverse #{rreq 24093}#) + '())) + #{tmp 24135}#) + (let ((#{tmp 24145}# + ($sc-dispatch + #{args 24092}# + '(any . any)))) + (if (if #{tmp 24145}# (@apply - (lambda (#{e 9913}#) - (#{build-global-assignment 4287}# - #{s 9008}# - (syntax->datum #{e 9913}#) - #{val 9874}# - #{mod 9879}#)) - #{tmp 9881}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 9875}#)))))) - (#{build-application 4280}# - #{s 9008}# - (let ((#{e 10138}# - (list '#(syntax-object - setter - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(type value ee ww ss modmod) - #((top) + (lambda (#{a 24149}# #{b 24150}#) + (eq? (syntax->datum #{a 24149}#) + #:key)) + #{tmp 24145}#) + #f) + (@apply + (lambda (#{a 24151}# #{b 24152}#) + (#{key 24087}# + #{b 24152}# + (reverse #{rreq 24093}#) + '() + '())) + #{tmp 24145}#) + (let ((#{tmp 24155}# + ($sc-dispatch + #{args 24092}# + '(any any)))) + (if (if #{tmp 24155}# + (@apply + (lambda (#{a 24159}# #{b 24160}#) + (eq? (syntax->datum #{a 24159}#) + #:rest)) + #{tmp 24155}#) + #f) + (@apply + (lambda (#{a 24161}# #{b 24162}#) + (#{rest 24088}# + #{b 24162}# + (reverse #{rreq 24093}#) + '() + '())) + #{tmp 24155}#) + (let ((#{tmp 24165}# + (list #{args 24092}#))) + (if (@apply + (lambda (#{r 24167}#) + (if (symbol? #{r 24167}#) + #t + (if (if (vector? #{r 24167}#) + (if (= (vector-length + #{r 24167}#) + 4) + (eq? (vector-ref + #{r 24167}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{r 24167}# 1)) + #f))) + #{tmp 24165}#) + (@apply + (lambda (#{r 24197}#) + (#{rest 24088}# + #{r 24197}# + (reverse #{rreq 24093}#) + '() + '())) + #{tmp 24165}#) + (syntax-violation + 'lambda* + "invalid argument list" + #{orig-args 24084}# + #{args 24092}#))))))))))))))) + (#{opt 24086}# + (lambda (#{args 24216}# #{req 24217}# #{ropt 24218}#) + (let ((#{tmp 24220}# ($sc-dispatch #{args 24216}# '()))) + (if #{tmp 24220}# + (@apply + (lambda () + (#{check 24089}# + #{req 24217}# + (reverse #{ropt 24218}#) + #f + '())) + #{tmp 24220}#) + (let ((#{tmp 24226}# + ($sc-dispatch #{args 24216}# '(any . any)))) + (if (if #{tmp 24226}# + (@apply + (lambda (#{a 24230}# #{b 24231}#) + (if (symbol? #{a 24230}#) + #t + (if (if (vector? #{a 24230}#) + (if (= (vector-length #{a 24230}#) 4) + (eq? (vector-ref #{a 24230}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 24230}# 1)) + #f))) + #{tmp 24226}#) + #f) + (@apply + (lambda (#{a 24258}# #{b 24259}#) + (#{opt 24086}# + #{b 24259}# + #{req 24217}# + (cons (cons #{a 24258}# + '(#(syntax-object + #f + ((top) + #(ribcage + #(a b) + #((top) (top)) + #("i2427" "i2428")) + #(ribcage () () ()) + #(ribcage + #(args req ropt) + #((top) (top) (top)) + #("i2417" "i2418" "i2419")) + #(ribcage + (check rest key opt req) + ((top) + (top) + (top) + (top) + (top)) + ("i2363" + "i2361" + "i2359" + "i2357" + "i2355")) + #(ribcage + #(orig-args) + #((top)) + #("i2354")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) (top) (top) (top)) - #("i3555" - "i3556" - "i3557" - "i3558" - "i3559" - "i3560")) - #(ribcage - #(head tail val) - #((top) (top) (top)) - #("i3541" "i3542" "i3543")) - #(ribcage () () ()) - #(ribcage - #(e r w s mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3505" - "i3506" - "i3507" - "i3508" - "i3509")) - #(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 9860}#))) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{e 10138}# - #{r 9006}# - #{w 9007}# - (#{source-annotation 4306}# #{e 10138}#) - #f - #{mod 9009}# - #f)) - (lambda (#{type 10145}# - #{value 10146}# - #{e 10147}# - #{w 10148}# - #{s 10149}# - #{mod 10150}#) - (#{expand-expr 4346}# - #{type 10145}# - #{value 10146}# - #{e 10147}# - #{r 9006}# - #{w 10148}# - #{s 10149}# - #{mod 10150}#)))) - (map (lambda (#{e 10154}#) - (call-with-values - (lambda () - (#{syntax-type 4344}# - #{e 10154}# - #{r 9006}# - #{w 9007}# - (#{source-annotation 4306}# - #{e 10154}#) - #f - #{mod 9009}# - #f)) - (lambda (#{type 10169}# - #{value 10170}# - #{e 10171}# - #{w 10172}# - #{s 10173}# - #{mod 10174}#) - (#{expand-expr 4346}# - #{type 10169}# - #{value 10170}# - #{e 10171}# - #{r 9006}# - #{w 10172}# - #{s 10173}# - #{mod 10174}#)))) - (append - #{tail 9861}# - (list #{val 9862}#)))))))) - #{tmp 9856}#) - (syntax-violation - 'set! - "bad set!" - (#{wrap 4338}# - (begin - (if (if (pair? #{e 9005}#) #{s 9008}# #f) - (set-source-properties! #{e 9005}# #{s 9008}#)) - #{e 9005}#) - #{w 9007}# - #{mod 9009}#)))))))) - (module-define! - (current-module) - '@ - (make-syntax-transformer - '@ - 'module-ref - (lambda (#{e 10217}# #{r 10218}# #{w 10219}#) - (let ((#{tmp 10221}# - ($sc-dispatch #{e 10217}# '(_ each-any any)))) - (if (if #{tmp 10221}# - (@apply - (lambda (#{mod 10224}# #{id 10225}#) - (if (and-map #{id? 4313}# #{mod 10224}#) - (if (symbol? #{id 10225}#) - #t - (if (if (vector? #{id 10225}#) - (if (= (vector-length #{id 10225}#) 4) - (eq? (vector-ref #{id 10225}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{id 10225}# 1)) - #f)) - #f)) - #{tmp 10221}#) - #f) - (@apply - (lambda (#{mod 10265}# #{id 10266}#) - (values - (syntax->datum #{id 10266}#) - #{r 10218}# - #{w 10219}# - #f - (syntax->datum - (cons '#(syntax-object - public - ((top) - #(ribcage - #(mod id) - #((top) (top)) - #("i3602" "i3603")) - #(ribcage () () ()) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i3590" "i3591" "i3592")) - #(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)) - #{mod 10265}#)))) - #{tmp 10221}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 10217}#)))))) - (#{global-extend 4311}# - 'module-ref - '@@ - (lambda (#{e 10358}# #{r 10359}# #{w 10360}#) - (letrec* - ((#{remodulate 10361}# - (lambda (#{x 10396}# #{mod 10397}#) - (if (pair? #{x 10396}#) - (cons (#{remodulate 10361}# - (car #{x 10396}#) - #{mod 10397}#) - (#{remodulate 10361}# - (cdr #{x 10396}#) - #{mod 10397}#)) - (if (if (vector? #{x 10396}#) - (if (= (vector-length #{x 10396}#) 4) - (eq? (vector-ref #{x 10396}# 0) 'syntax-object) - #f) - #f) - (let ((#{expression 10411}# - (#{remodulate 10361}# - (vector-ref #{x 10396}# 1) - #{mod 10397}#)) - (#{wrap 10412}# (vector-ref #{x 10396}# 2))) - (vector - 'syntax-object - #{expression 10411}# - #{wrap 10412}# - #{mod 10397}#)) - (if (vector? #{x 10396}#) - (let ((#{n 10420}# (vector-length #{x 10396}#))) - (let ((#{v 10421}# (make-vector #{n 10420}#))) - (letrec* - ((#{loop 10422}# - (lambda (#{i 10469}#) - (if (= #{i 10469}# #{n 10420}#) - #{v 10421}# - (begin - (vector-set! - #{v 10421}# - #{i 10469}# - (#{remodulate 10361}# - (vector-ref #{x 10396}# #{i 10469}#) - #{mod 10397}#)) - (#{loop 10422}# (#{1+}# #{i 10469}#))))))) - (#{loop 10422}# 0)))) - #{x 10396}#)))))) - (let ((#{tmp 10363}# - ($sc-dispatch #{e 10358}# '(_ each-any any)))) - (if (if #{tmp 10363}# - (@apply - (lambda (#{mod 10367}# #{exp 10368}#) - (and-map #{id? 4313}# #{mod 10367}#)) - #{tmp 10363}#) - #f) - (@apply - (lambda (#{mod 10384}# #{exp 10385}#) - (let ((#{mod 10386}# - (syntax->datum - (cons '#(syntax-object - private - ((top) - #(ribcage - #(mod exp) - #((top) (top)) - #("i3646" "i3647")) - #(ribcage (remodulate) ((top)) ("i3613")) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i3610" "i3611" "i3612")) - #(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)) - #{mod 10384}#)))) - (values - (#{remodulate 10361}# - #{exp 10385}# - #{mod 10386}#) - #{r 10359}# - #{w 10360}# - (#{source-annotation 4306}# #{exp 10385}#) - #{mod 10386}#))) - #{tmp 10363}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 10358}#)))))) - (#{global-extend 4311}# - 'core - 'if - (lambda (#{e 10570}# - #{r 10571}# - #{w 10572}# - #{s 10573}# - #{mod 10574}#) - (let ((#{tmp 10576}# - ($sc-dispatch #{e 10570}# '(_ any any)))) - (if #{tmp 10576}# - (@apply - (lambda (#{test 10580}# #{then 10581}#) - (#{build-conditional 4281}# - #{s 10573}# - (#{expand 4345}# - #{test 10580}# - #{r 10571}# - #{w 10572}# - #{mod 10574}#) - (#{expand 4345}# - #{then 10581}# - #{r 10571}# - #{w 10572}# - #{mod 10574}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #f))) - #{tmp 10576}#) - (let ((#{tmp 10806}# - ($sc-dispatch #{e 10570}# '(_ any any any)))) - (if #{tmp 10806}# - (@apply - (lambda (#{test 10810}# #{then 10811}# #{else 10812}#) - (#{build-conditional 4281}# - #{s 10573}# - (#{expand 4345}# - #{test 10810}# - #{r 10571}# - #{w 10572}# - #{mod 10574}#) - (#{expand 4345}# - #{then 10811}# - #{r 10571}# - #{w 10572}# - #{mod 10574}#) - (#{expand 4345}# - #{else 10812}# - #{r 10571}# - #{w 10572}# - #{mod 10574}#))) - #{tmp 10806}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 10570}#))))))) - (#{global-extend 4311}# - 'core - 'with-fluids - (lambda (#{e 11211}# - #{r 11212}# - #{w 11213}# - #{s 11214}# - #{mod 11215}#) - (let ((#{tmp 11217}# - ($sc-dispatch - #{e 11211}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 11217}# - (@apply - (lambda (#{fluid 11221}# - #{val 11222}# - #{b 11223}# - #{b* 11224}#) - (#{build-dynlet 4282}# - #{s 11214}# - (map (lambda (#{x 11305}#) - (#{expand 4345}# - #{x 11305}# - #{r 11212}# - #{w 11213}# - #{mod 11215}#)) - #{fluid 11221}#) - (map (lambda (#{x 11375}#) - (#{expand 4345}# - #{x 11375}# - #{r 11212}# - #{w 11213}# - #{mod 11215}#)) - #{val 11222}#) - (#{expand-body 4349}# - (cons #{b 11223}# #{b* 11224}#) - (#{wrap 4338}# - (begin - (if (if (pair? #{e 11211}#) #{s 11214}# #f) - (set-source-properties! #{e 11211}# #{s 11214}#)) - #{e 11211}#) - #{w 11213}# - #{mod 11215}#) - #{r 11212}# - #{w 11213}# - #{mod 11215}#))) - #{tmp 11217}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 11211}#))))) - (module-define! - (current-module) - 'begin - (make-syntax-transformer 'begin 'begin '())) - (module-define! - (current-module) - 'define - (make-syntax-transformer 'define 'define '())) - (module-define! - (current-module) - 'define-syntax - (make-syntax-transformer - 'define-syntax - 'define-syntax - '())) - (module-define! - (current-module) - 'define-syntax-parameter - (make-syntax-transformer - 'define-syntax-parameter - 'define-syntax-parameter - '())) - (module-define! - (current-module) - 'eval-when - (make-syntax-transformer - 'eval-when - 'eval-when - '())) - (#{global-extend 4311}# - 'core - 'syntax-case - (letrec* - ((#{convert-pattern 11743}# - (lambda (#{pattern 13340}# #{keys 13341}#) - (letrec* - ((#{cvt* 13342}# - (lambda (#{p* 13966}# #{n 13967}# #{ids 13968}#) - (if (not (pair? #{p* 13966}#)) - (#{cvt 13344}# - #{p* 13966}# - #{n 13967}# - #{ids 13968}#) - (call-with-values - (lambda () - (#{cvt* 13342}# - (cdr #{p* 13966}#) - #{n 13967}# - #{ids 13968}#)) - (lambda (#{y 13971}# #{ids 13972}#) - (call-with-values - (lambda () - (#{cvt 13344}# - (car #{p* 13966}#) - #{n 13967}# - #{ids 13972}#)) - (lambda (#{x 13975}# #{ids 13976}#) - (values - (cons #{x 13975}# #{y 13971}#) - #{ids 13976}#)))))))) - (#{v-reverse 13343}# - (lambda (#{x 13977}#) - (letrec* - ((#{loop 13978}# - (lambda (#{r 14058}# #{x 14059}#) - (if (not (pair? #{x 14059}#)) - (values #{r 14058}# #{x 14059}#) - (#{loop 13978}# - (cons (car #{x 14059}#) #{r 14058}#) - (cdr #{x 14059}#)))))) - (#{loop 13978}# '() #{x 13977}#)))) - (#{cvt 13344}# - (lambda (#{p 13347}# #{n 13348}# #{ids 13349}#) - (if (if (symbol? #{p 13347}#) - #t - (if (if (vector? #{p 13347}#) - (if (= (vector-length #{p 13347}#) 4) - (eq? (vector-ref #{p 13347}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{p 13347}# 1)) - #f)) - (if (#{bound-id-member? 4337}# - #{p 13347}# - #{keys 13341}#) - (values - (vector 'free-id #{p 13347}#) - #{ids 13349}#) - (if (if (eq? (if (if (vector? #{p 13347}#) - (if (= (vector-length #{p 13347}#) - 4) - (eq? (vector-ref #{p 13347}# 0) - 'syntax-object) - #f) - #f) - (vector-ref #{p 13347}# 1) - #{p 13347}#) - (if (if (= (vector-length - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3747" - "i3748" - "i3749")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3720" - "i3718" - "i3716")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3714" "i3715")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(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))) - 4) - #t - #f) - '_ - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3747" "i3748" "i3749")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3720" "i3718" "i3716")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3714" "i3715")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3710" "i3708" "i3706" "i3704")) - #(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)))) - (eq? (#{id-var-name 4332}# #{p 13347}# '(())) - (#{id-var-name 4332}# - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3747" "i3748" "i3749")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3720" "i3718" "i3716")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3714" "i3715")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3710" "i3708" "i3706" "i3704")) - #(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)) - '(()))) - #f) - (values '_ #{ids 13349}#) - (values - 'any - (cons (cons #{p 13347}# #{n 13348}#) - #{ids 13349}#)))) - (let ((#{tmp 13669}# - ($sc-dispatch #{p 13347}# '(any any)))) - (if (if #{tmp 13669}# - (@apply - (lambda (#{x 13673}# #{dots 13674}#) - (if (if (if (vector? #{dots 13674}#) - (if (= (vector-length - #{dots 13674}#) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)))) + #{ropt 24218}#))) + #{tmp 24226}#) + (let ((#{tmp 24260}# + ($sc-dispatch + #{args 24216}# + '((any any) . any)))) + (if (if #{tmp 24260}# + (@apply + (lambda (#{a 24264}# + #{init 24265}# + #{b 24266}#) + (if (symbol? #{a 24264}#) + #t + (if (if (vector? #{a 24264}#) + (if (= (vector-length #{a 24264}#) 4) - (eq? (vector-ref - #{dots 13674}# - 0) + (eq? (vector-ref #{a 24264}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{dots 13674}# 1)) + (symbol? (vector-ref #{a 24264}# 1)) + #f))) + #{tmp 24260}#) + #f) + (@apply + (lambda (#{a 24293}# #{init 24294}# #{b 24295}#) + (#{opt 24086}# + #{b 24295}# + #{req 24217}# + (cons (list #{a 24293}# #{init 24294}#) + #{ropt 24218}#))) + #{tmp 24260}#) + (let ((#{tmp 24296}# + ($sc-dispatch + #{args 24216}# + '(any . any)))) + (if (if #{tmp 24296}# + (@apply + (lambda (#{a 24300}# #{b 24301}#) + (eq? (syntax->datum #{a 24300}#) + #:key)) + #{tmp 24296}#) + #f) + (@apply + (lambda (#{a 24302}# #{b 24303}#) + (#{key 24087}# + #{b 24303}# + #{req 24217}# + (reverse #{ropt 24218}#) + '())) + #{tmp 24296}#) + (let ((#{tmp 24306}# + ($sc-dispatch + #{args 24216}# + '(any any)))) + (if (if #{tmp 24306}# + (@apply + (lambda (#{a 24310}# #{b 24311}#) + (eq? (syntax->datum #{a 24310}#) + #:rest)) + #{tmp 24306}#) #f) - (if (eq? (if (if (vector? #{dots 13674}#) - (if (= (vector-length - #{dots 13674}#) - 4) - (eq? (vector-ref - #{dots 13674}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{dots 13674}# 1) - #{dots 13674}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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))) - 4) - #t - #f) - '... - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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)))) - (eq? (#{id-var-name 4332}# - #{dots 13674}# - '(())) - (#{id-var-name 4332}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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)) - '(()))) - #f) - #f)) - #{tmp 13669}#) - #f) - (@apply - (lambda (#{x 13774}# #{dots 13775}#) - (call-with-values - (lambda () - (#{cvt 13344}# - #{x 13774}# - (#{1+}# #{n 13348}#) - #{ids 13349}#)) - (lambda (#{p 13776}# #{ids 13777}#) - (values - (if (eq? #{p 13776}# 'any) - 'each-any - (vector 'each #{p 13776}#)) - #{ids 13777}#)))) - #{tmp 13669}#) - (let ((#{tmp 13778}# - ($sc-dispatch #{p 13347}# '(any any . any)))) - (if (if #{tmp 13778}# - (@apply - (lambda (#{x 13782}# - #{dots 13783}# - #{ys 13784}#) - (if (if (if (vector? #{dots 13783}#) - (if (= (vector-length - #{dots 13783}#) - 4) - (eq? (vector-ref - #{dots 13783}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{dots 13783}# 1)) - #f) - (if (eq? (if (if (vector? - #{dots 13783}#) - (if (= (vector-length - #{dots 13783}#) - 4) - (eq? (vector-ref - #{dots 13783}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{dots 13783}# - 1) - #{dots 13783}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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))) - 4) - #t - #f) - '... - '#(syntax-object - ... + (@apply + (lambda (#{a 24312}# #{b 24313}#) + (#{rest 24088}# + #{b 24313}# + #{req 24217}# + (reverse #{ropt 24218}#) + '())) + #{tmp 24306}#) + (let ((#{tmp 24316}# + (list #{args 24216}#))) + (if (@apply + (lambda (#{r 24318}#) + (if (symbol? #{r 24318}#) + #t + (if (if (vector? #{r 24318}#) + (if (= (vector-length + #{r 24318}#) + 4) + (eq? (vector-ref + #{r 24318}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{r 24318}# 1)) + #f))) + #{tmp 24316}#) + (@apply + (lambda (#{r 24348}#) + (#{rest 24088}# + #{r 24348}# + #{req 24217}# + (reverse #{ropt 24218}#) + '())) + #{tmp 24316}#) + (syntax-violation + 'lambda* + "invalid optional argument list" + #{orig-args 24084}# + #{args 24216}#))))))))))))))) + (#{key 24087}# + (lambda (#{args 24367}# + #{req 24368}# + #{opt 24369}# + #{rkey 24370}#) + (let ((#{tmp 24372}# ($sc-dispatch #{args 24367}# '()))) + (if #{tmp 24372}# + (@apply + (lambda () + (#{check 24089}# + #{req 24368}# + #{opt 24369}# + #f + (cons #f (reverse #{rkey 24370}#)))) + #{tmp 24372}#) + (let ((#{tmp 24378}# + ($sc-dispatch #{args 24367}# '(any . any)))) + (if (if #{tmp 24378}# + (@apply + (lambda (#{a 24382}# #{b 24383}#) + (if (symbol? #{a 24382}#) + #t + (if (if (vector? #{a 24382}#) + (if (= (vector-length #{a 24382}#) 4) + (eq? (vector-ref #{a 24382}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 24382}# 1)) + #f))) + #{tmp 24378}#) + #f) + (@apply + (lambda (#{a 24410}# #{b 24411}#) + (let ((#{tmp 24412}# + (symbol->keyword + (syntax->datum #{a 24410}#)))) + (#{key 24087}# + #{b 24411}# + #{req 24368}# + #{opt 24369}# + (cons (cons #{tmp 24412}# + (cons #{a 24410}# + '(#(syntax-object + #f ((top) #(ribcage () () ()) + #(ribcage + #(k) + #((top)) + #("i2490")) + #(ribcage + #(a b) + #((top) (top)) + #("i2484" "i2485")) #(ribcage () () ()) #(ribcage - #(x) + #(args req opt rkey) + #((top) + (top) + (top) + (top)) + #("i2473" + "i2474" + "i2475" + "i2476")) + #(ribcage + (check rest + key + opt + req) + ((top) + (top) + (top) + (top) + (top)) + ("i2363" + "i2361" + "i2359" + "i2357" + "i2355")) + #(ribcage + #(orig-args) #((top)) - #("i2230")) + #("i2354")) #(ribcage (lambda-var-list gen-var @@ -14363,6 +7051,9 @@ valid-bound-ids? bound-id=? free-id=? + with-transformer-environment + transformer-environment + resolve-identifier id-var-name same-marks? join-marks @@ -14606,8 +7297,14 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i467" + ("i473" + "i471" + "i469" + "i467" "i465" "i463" "i461" @@ -14749,1078 +7446,3845 @@ define-expansion-constructors) ((top) (top) (top)) ("i46" "i45" "i44"))) - (hygiene guile)))) - (eq? (#{id-var-name 4332}# - #{dots 13783}# - '(())) - (#{id-var-name 4332}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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)) - '(()))) - #f) - #f)) - #{tmp 13778}#) - #f) - (@apply - (lambda (#{x 13884}# - #{dots 13885}# - #{ys 13886}#) - (call-with-values - (lambda () - (#{cvt* 13342}# - #{ys 13886}# - #{n 13348}# - #{ids 13349}#)) - (lambda (#{ys 13889}# #{ids 13890}#) - (call-with-values - (lambda () - (#{cvt 13344}# - #{x 13884}# - (#{1+}# #{n 13348}#) - #{ids 13890}#)) - (lambda (#{x 13891}# #{ids 13892}#) - (call-with-values - (lambda () - (#{v-reverse 13343}# - #{ys 13889}#)) - (lambda (#{ys 13925}# #{e 13926}#) - (values - (vector - 'each+ - #{x 13891}# - #{ys 13925}# - #{e 13926}#) - #{ids 13892}#)))))))) - #{tmp 13778}#) - (let ((#{tmp 13927}# - ($sc-dispatch #{p 13347}# '(any . any)))) - (if #{tmp 13927}# - (@apply - (lambda (#{x 13931}# #{y 13932}#) - (call-with-values - (lambda () - (#{cvt 13344}# - #{y 13932}# - #{n 13348}# - #{ids 13349}#)) - (lambda (#{y 13933}# #{ids 13934}#) - (call-with-values - (lambda () - (#{cvt 13344}# - #{x 13931}# - #{n 13348}# - #{ids 13934}#)) - (lambda (#{x 13935}# #{ids 13936}#) - (values - (cons #{x 13935}# #{y 13933}#) - #{ids 13936}#)))))) - #{tmp 13927}#) - (let ((#{tmp 13937}# - ($sc-dispatch #{p 13347}# '()))) - (if #{tmp 13937}# - (@apply - (lambda () (values '() #{ids 13349}#)) - #{tmp 13937}#) - (let ((#{tmp 13941}# - ($sc-dispatch - #{p 13347}# - '#(vector each-any)))) - (if #{tmp 13941}# - (@apply - (lambda (#{x 13945}#) - (call-with-values - (lambda () - (#{cvt 13344}# - #{x 13945}# - #{n 13348}# - #{ids 13349}#)) - (lambda (#{p 13946}# - #{ids 13947}#) - (values - (vector - 'vector - #{p 13946}#) - #{ids 13947}#)))) - #{tmp 13941}#) - (values - (vector - 'atom - (#{strip 4358}# - #{p 13347}# - '(()))) - #{ids 13349}#))))))))))))))) - (#{cvt 13344}# #{pattern 13340}# 0 '())))) - (#{build-dispatch-call 11744}# - (lambda (#{pvars 14060}# - #{exp 14061}# - #{y 14062}# - #{r 14063}# - #{mod 14064}#) - (let ((#{ids 14065}# (map car #{pvars 14060}#))) - (begin - (map cdr #{pvars 14060}#) - (let ((#{labels 14067}# - (#{gen-labels 4316}# #{ids 14065}#)) - (#{new-vars 14068}# - (map #{gen-var 4359}# #{ids 14065}#))) - (#{build-application 4280}# - #f - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - 'apply) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - 'apply - #f)) - (list (#{build-simple-lambda 4289}# - #f - (map syntax->datum #{ids 14065}#) - #f - #{new-vars 14068}# - '() - (#{expand 4345}# - #{exp 14061}# - (#{extend-env 4307}# - #{labels 14067}# - (map (lambda (#{var 14393}# #{level 14394}#) - (cons 'syntax - (cons #{var 14393}# - #{level 14394}#))) - #{new-vars 14068}# - (map cdr #{pvars 14060}#)) - #{r 14063}#) - (#{make-binding-wrap 4327}# - #{ids 14065}# - #{labels 14067}# - '(())) - #{mod 14064}#)) - #{y 14062}#))))))) - (#{gen-clause 11745}# - (lambda (#{x 12712}# - #{keys 12713}# - #{clauses 12714}# - #{r 12715}# - #{pat 12716}# - #{fender 12717}# - #{exp 12718}# - #{mod 12719}#) - (call-with-values - (lambda () - (#{convert-pattern 11743}# - #{pat 12716}# - #{keys 12713}#)) - (lambda (#{p 12874}# #{pvars 12875}#) - (if (not (#{distinct-bound-ids? 4336}# - (map car #{pvars 12875}#))) - (syntax-violation - 'syntax-case - "duplicate pattern variable" - #{pat 12716}#) - (if (not (and-map - (lambda (#{x 12991}#) - (not (let ((#{x 12995}# (car #{x 12991}#))) - (if (if (if (vector? #{x 12995}#) - (if (= (vector-length - #{x 12995}#) - 4) - (eq? (vector-ref - #{x 12995}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{x 12995}# 1)) - #f) - (if (eq? (if (if (vector? #{x 12995}#) - (if (= (vector-length - #{x 12995}#) - 4) - (eq? (vector-ref - #{x 12995}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{x 12995}# 1) - #{x 12995}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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))) - 4) + (hygiene guile))))) + #{rkey 24370}#)))) + #{tmp 24378}#) + (let ((#{tmp 24415}# + ($sc-dispatch + #{args 24367}# + '((any any) . any)))) + (if (if #{tmp 24415}# + (@apply + (lambda (#{a 24419}# + #{init 24420}# + #{b 24421}#) + (if (symbol? #{a 24419}#) + #t + (if (if (vector? #{a 24419}#) + (if (= (vector-length #{a 24419}#) + 4) + (eq? (vector-ref #{a 24419}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 24419}# 1)) + #f))) + #{tmp 24415}#) + #f) + (@apply + (lambda (#{a 24448}# #{init 24449}# #{b 24450}#) + (let ((#{tmp 24451}# + (symbol->keyword + (syntax->datum #{a 24448}#)))) + (#{key 24087}# + #{b 24450}# + #{req 24368}# + #{opt 24369}# + (cons (list #{tmp 24451}# + #{a 24448}# + #{init 24449}#) + #{rkey 24370}#)))) + #{tmp 24415}#) + (let ((#{tmp 24454}# + ($sc-dispatch + #{args 24367}# + '((any any any) . any)))) + (if (if #{tmp 24454}# + (@apply + (lambda (#{a 24458}# + #{init 24459}# + #{k 24460}# + #{b 24461}#) + (if (if (symbol? #{a 24458}#) + #t + (if (if (vector? #{a 24458}#) + (if (= (vector-length + #{a 24458}#) + 4) + (eq? (vector-ref + #{a 24458}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{a 24458}# 1)) + #f)) + (keyword? + (syntax->datum #{k 24460}#)) + #f)) + #{tmp 24454}#) + #f) + (@apply + (lambda (#{a 24488}# + #{init 24489}# + #{k 24490}# + #{b 24491}#) + (#{key 24087}# + #{b 24491}# + #{req 24368}# + #{opt 24369}# + (cons (list #{k 24490}# + #{a 24488}# + #{init 24489}#) + #{rkey 24370}#))) + #{tmp 24454}#) + (let ((#{tmp 24492}# + ($sc-dispatch #{args 24367}# '(any)))) + (if (if #{tmp 24492}# + (@apply + (lambda (#{aok 24496}#) + (eq? (syntax->datum #{aok 24496}#) + #:allow-other-keys)) + #{tmp 24492}#) + #f) + (@apply + (lambda (#{aok 24497}#) + (#{check 24089}# + #{req 24368}# + #{opt 24369}# + #f + (cons #t (reverse #{rkey 24370}#)))) + #{tmp 24492}#) + (let ((#{tmp 24500}# + ($sc-dispatch + #{args 24367}# + '(any any any)))) + (if (if #{tmp 24500}# + (@apply + (lambda (#{aok 24504}# + #{a 24505}# + #{b 24506}#) + (if (eq? (syntax->datum + #{aok 24504}#) + #:allow-other-keys) + (eq? (syntax->datum + #{a 24505}#) + #:rest) + #f)) + #{tmp 24500}#) + #f) + (@apply + (lambda (#{aok 24507}# + #{a 24508}# + #{b 24509}#) + (#{rest 24088}# + #{b 24509}# + #{req 24368}# + #{opt 24369}# + (cons #t + (reverse #{rkey 24370}#)))) + #{tmp 24500}#) + (let ((#{tmp 24512}# + ($sc-dispatch + #{args 24367}# + '(any . any)))) + (if (if #{tmp 24512}# + (@apply + (lambda (#{aok 24516}# + #{r 24517}#) + (if (eq? (syntax->datum + #{aok 24516}#) + #:allow-other-keys) + (if (symbol? #{r 24517}#) #t - #f) - '... + (if (if (vector? + #{r 24517}#) + (if (= (vector-length + #{r 24517}#) + 4) + (eq? (vector-ref + #{r 24517}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{r 24517}# + 1)) + #f)) + #f)) + #{tmp 24512}#) + #f) + (@apply + (lambda (#{aok 24544}# + #{r 24545}#) + (#{rest 24088}# + #{r 24545}# + #{req 24368}# + #{opt 24369}# + (cons #t + (reverse + #{rkey 24370}#)))) + #{tmp 24512}#) + (let ((#{tmp 24548}# + ($sc-dispatch + #{args 24367}# + '(any any)))) + (if (if #{tmp 24548}# + (@apply + (lambda (#{a 24552}# + #{b 24553}#) + (eq? (syntax->datum + #{a 24552}#) + #:rest)) + #{tmp 24548}#) + #f) + (@apply + (lambda (#{a 24554}# + #{b 24555}#) + (#{rest 24088}# + #{b 24555}# + #{req 24368}# + #{opt 24369}# + (cons #f + (reverse + #{rkey 24370}#)))) + #{tmp 24548}#) + (let ((#{tmp 24558}# + (list #{args 24367}#))) + (if (@apply + (lambda (#{r 24560}#) + (if (symbol? + #{r 24560}#) + #t + (if (if (vector? + #{r 24560}#) + (if (= (vector-length + #{r 24560}#) + 4) + (eq? (vector-ref + #{r 24560}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{r 24560}# + 1)) + #f))) + #{tmp 24558}#) + (@apply + (lambda (#{r 24590}#) + (#{rest 24088}# + #{r 24590}# + #{req 24368}# + #{opt 24369}# + (cons #f + (reverse + #{rkey 24370}#)))) + #{tmp 24558}#) + (syntax-violation + 'lambda* + "invalid keyword argument list" + #{orig-args 24084}# + #{args 24367}#))))))))))))))))))))) + (#{rest 24088}# + (lambda (#{args 24618}# + #{req 24619}# + #{opt 24620}# + #{kw 24621}#) + (let ((#{tmp 24623}# (list #{args 24618}#))) + (if (@apply + (lambda (#{r 24625}#) + (if (symbol? #{r 24625}#) + #t + (if (if (vector? #{r 24625}#) + (if (= (vector-length #{r 24625}#) 4) + (eq? (vector-ref #{r 24625}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{r 24625}# 1)) + #f))) + #{tmp 24623}#) + (@apply + (lambda (#{r 24655}#) + (#{check 24089}# + #{req 24619}# + #{opt 24620}# + #{r 24655}# + #{kw 24621}#)) + #{tmp 24623}#) + (syntax-violation + 'lambda* + "invalid rest argument" + #{orig-args 24084}# + #{args 24618}#))))) + (#{check 24089}# + (lambda (#{req 24659}# + #{opt 24660}# + #{rest 24661}# + #{kw 24662}#) + (if (#{distinct-bound-ids? 4441}# + (append + #{req 24659}# + (map car #{opt 24660}#) + (if #{rest 24661}# (list #{rest 24661}#) '()) + (if (pair? #{kw 24662}#) + (map cadr (cdr #{kw 24662}#)) + '()))) + (values + #{req 24659}# + #{opt 24660}# + #{rest 24661}# + #{kw 24662}#) + (syntax-violation + 'lambda* + "duplicate identifier in argument list" + #{orig-args 24084}#))))) + (#{req 24085}# #{orig-args 24084}# '())))) + (#{expand-lambda-case 4462}# + (lambda (#{e 24778}# + #{r 24779}# + #{w 24780}# + #{s 24781}# + #{mod 24782}# + #{get-formals 24783}# + #{clauses 24784}#) + (letrec* + ((#{parse-req 24785}# + (lambda (#{req 24918}# + #{opt 24919}# + #{rest 24920}# + #{kw 24921}# + #{body 24922}#) + (let ((#{vars 24923}# + (map #{gen-var 4464}# #{req 24918}#)) + (#{labels 24924}# + (#{gen-labels 4418}# #{req 24918}#))) + (let ((#{r* 24925}# + (#{extend-var-env 4410}# + #{labels 24924}# + #{vars 24923}# + #{r 24779}#)) + (#{w* 24926}# + (#{make-binding-wrap 4429}# + #{req 24918}# + #{labels 24924}# + #{w 24780}#))) + (#{parse-opt 24786}# + (map syntax->datum #{req 24918}#) + #{opt 24919}# + #{rest 24920}# + #{kw 24921}# + #{body 24922}# + (reverse #{vars 24923}#) + #{r* 24925}# + #{w* 24926}# + '() + '()))))) + (#{parse-opt 24786}# + (lambda (#{req 25140}# + #{opt 25141}# + #{rest 25142}# + #{kw 25143}# + #{body 25144}# + #{vars 25145}# + #{r* 25146}# + #{w* 25147}# + #{out 25148}# + #{inits 25149}#) + (if (pair? #{opt 25141}#) + (let ((#{tmp 25150}# (car #{opt 25141}#))) + (let ((#{tmp 25151}# + ($sc-dispatch #{tmp 25150}# '(any any)))) + (if #{tmp 25151}# + (@apply + (lambda (#{id 25153}# #{i 25154}#) + (let ((#{v 25155}# + (let ((#{id 25163}# + (if (if (vector? #{id 25153}#) + (if (= (vector-length + #{id 25153}#) + 4) + (eq? (vector-ref + #{id 25153}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 25153}# 1) + #{id 25153}#))) + (gensym + (string-append + (symbol->string #{id 25163}#) + " "))))) + (let ((#{l 25156}# + (#{gen-labels 4418}# + (list #{v 25155}#)))) + (let ((#{r** 25157}# + (#{extend-var-env 4410}# + #{l 25156}# + (list #{v 25155}#) + #{r* 25146}#))) + (let ((#{w** 25158}# + (#{make-binding-wrap 4429}# + (list #{id 25153}#) + #{l 25156}# + #{w* 25147}#))) + (#{parse-opt 24786}# + #{req 25140}# + (cdr #{opt 25141}#) + #{rest 25142}# + #{kw 25143}# + #{body 25144}# + (cons #{v 25155}# #{vars 25145}#) + #{r** 25157}# + #{w** 25158}# + (cons (syntax->datum #{id 25153}#) + #{out 25148}#) + (cons (#{expand 4450}# + #{i 25154}# + #{r* 25146}# + #{w* 25147}# + #{mod 24782}#) + #{inits 25149}#))))))) + #{tmp 25151}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 25150}#)))) + (if #{rest 25142}# + (let ((#{v 25428}# + (let ((#{id 25438}# + (if (if (vector? #{rest 25142}#) + (if (= (vector-length #{rest 25142}#) + 4) + (eq? (vector-ref #{rest 25142}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{rest 25142}# 1) + #{rest 25142}#))) + (gensym + (string-append + (symbol->string #{id 25438}#) + " "))))) + (let ((#{l 25429}# + (#{gen-labels 4418}# (list #{v 25428}#)))) + (let ((#{r* 25430}# + (#{extend-var-env 4410}# + #{l 25429}# + (list #{v 25428}#) + #{r* 25146}#))) + (let ((#{w* 25431}# + (#{make-binding-wrap 4429}# + (list #{rest 25142}#) + #{l 25429}# + #{w* 25147}#))) + (#{parse-kw 24787}# + #{req 25140}# + (if (pair? #{out 25148}#) + (reverse #{out 25148}#) + #f) + (syntax->datum #{rest 25142}#) + (if (pair? #{kw 25143}#) + (cdr #{kw 25143}#) + #{kw 25143}#) + #{body 25144}# + (cons #{v 25428}# #{vars 25145}#) + #{r* 25430}# + #{w* 25431}# + (if (pair? #{kw 25143}#) (car #{kw 25143}#) #f) + '() + #{inits 25149}#))))) + (#{parse-kw 24787}# + #{req 25140}# + (if (pair? #{out 25148}#) + (reverse #{out 25148}#) + #f) + #f + (if (pair? #{kw 25143}#) + (cdr #{kw 25143}#) + #{kw 25143}#) + #{body 25144}# + #{vars 25145}# + #{r* 25146}# + #{w* 25147}# + (if (pair? #{kw 25143}#) (car #{kw 25143}#) #f) + '() + #{inits 25149}#))))) + (#{parse-kw 24787}# + (lambda (#{req 25636}# + #{opt 25637}# + #{rest 25638}# + #{kw 25639}# + #{body 25640}# + #{vars 25641}# + #{r* 25642}# + #{w* 25643}# + #{aok 25644}# + #{out 25645}# + #{inits 25646}#) + (if (pair? #{kw 25639}#) + (let ((#{tmp 25647}# (car #{kw 25639}#))) + (let ((#{tmp 25648}# + ($sc-dispatch #{tmp 25647}# '(any any any)))) + (if #{tmp 25648}# + (@apply + (lambda (#{k 25650}# #{id 25651}# #{i 25652}#) + (let ((#{v 25653}# + (let ((#{id 25661}# + (if (if (vector? #{id 25651}#) + (if (= (vector-length + #{id 25651}#) + 4) + (eq? (vector-ref + #{id 25651}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 25651}# 1) + #{id 25651}#))) + (gensym + (string-append + (symbol->string #{id 25661}#) + " "))))) + (let ((#{l 25654}# + (#{gen-labels 4418}# + (list #{v 25653}#)))) + (let ((#{r** 25655}# + (#{extend-var-env 4410}# + #{l 25654}# + (list #{v 25653}#) + #{r* 25642}#))) + (let ((#{w** 25656}# + (#{make-binding-wrap 4429}# + (list #{id 25651}#) + #{l 25654}# + #{w* 25643}#))) + (#{parse-kw 24787}# + #{req 25636}# + #{opt 25637}# + #{rest 25638}# + (cdr #{kw 25639}#) + #{body 25640}# + (cons #{v 25653}# #{vars 25641}#) + #{r** 25655}# + #{w** 25656}# + #{aok 25644}# + (cons (list (syntax->datum #{k 25650}#) + (syntax->datum #{id 25651}#) + #{v 25653}#) + #{out 25645}#) + (cons (#{expand 4450}# + #{i 25652}# + #{r* 25642}# + #{w* 25643}# + #{mod 24782}#) + #{inits 25646}#))))))) + #{tmp 25648}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 25647}#)))) + (#{parse-body 24788}# + #{req 25636}# + #{opt 25637}# + #{rest 25638}# + (if (if #{aok 25644}# + #{aok 25644}# + (pair? #{out 25645}#)) + (cons #{aok 25644}# (reverse #{out 25645}#)) + #f) + #{body 25640}# + (reverse #{vars 25641}#) + #{r* 25642}# + #{w* 25643}# + (reverse #{inits 25646}#) + '())))) + (#{parse-body 24788}# + (lambda (#{req 25935}# + #{opt 25936}# + #{rest 25937}# + #{kw 25938}# + #{body 25939}# + #{vars 25940}# + #{r* 25941}# + #{w* 25942}# + #{inits 25943}# + #{meta 25944}#) + (let ((#{tmp 25946}# + ($sc-dispatch + #{body 25939}# + '(any any . each-any)))) + (if (if #{tmp 25946}# + (@apply + (lambda (#{docstring 25950}# + #{e1 25951}# + #{e2 25952}#) + (string? (syntax->datum #{docstring 25950}#))) + #{tmp 25946}#) + #f) + (@apply + (lambda (#{docstring 25953}# #{e1 25954}# #{e2 25955}#) + (#{parse-body 24788}# + #{req 25935}# + #{opt 25936}# + #{rest 25937}# + #{kw 25938}# + (cons #{e1 25954}# #{e2 25955}#) + #{vars 25940}# + #{r* 25941}# + #{w* 25942}# + #{inits 25943}# + (append + #{meta 25944}# + (list (cons 'documentation + (syntax->datum + #{docstring 25953}#)))))) + #{tmp 25946}#) + (let ((#{tmp 25956}# + ($sc-dispatch + #{body 25939}# + '(#(vector #(each (any . any))) + any + . + each-any)))) + (if #{tmp 25956}# + (@apply + (lambda (#{k 25960}# + #{v 25961}# + #{e1 25962}# + #{e2 25963}#) + (#{parse-body 24788}# + #{req 25935}# + #{opt 25936}# + #{rest 25937}# + #{kw 25938}# + (cons #{e1 25962}# #{e2 25963}#) + #{vars 25940}# + #{r* 25941}# + #{w* 25942}# + #{inits 25943}# + (append + #{meta 25944}# + (syntax->datum + (map cons #{k 25960}# #{v 25961}#))))) + #{tmp 25956}#) + (let ((#{tmp 25964}# + ($sc-dispatch + #{body 25939}# + '(any . each-any)))) + (if #{tmp 25964}# + (@apply + (lambda (#{e1 25968}# #{e2 25969}#) + (values + #{meta 25944}# + #{req 25935}# + #{opt 25936}# + #{rest 25937}# + #{kw 25938}# + #{inits 25943}# + #{vars 25940}# + (#{expand-body 4454}# + (cons #{e1 25968}# #{e2 25969}#) + (#{wrap 4443}# + (begin + (if (if (pair? #{e 24778}#) + #{s 24781}# + #f) + (set-source-properties! + #{e 24778}# + #{s 24781}#)) + #{e 24778}#) + #{w 24780}# + #{mod 24782}#) + #{r* 25941}# + #{w* 25942}# + #{mod 24782}#))) + #{tmp 25964}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{body 25939}#)))))))))) + (let ((#{tmp 24790}# + ($sc-dispatch #{clauses 24784}# '()))) + (if #{tmp 24790}# + (@apply + (lambda () (values '() #f)) + #{tmp 24790}#) + (let ((#{tmp 24794}# + ($sc-dispatch + #{clauses 24784}# + '((any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 24794}# + (@apply + (lambda (#{args 24798}# + #{e1 24799}# + #{e2 24800}# + #{args* 24801}# + #{e1* 24802}# + #{e2* 24803}#) + (call-with-values + (lambda () + (#{get-formals 24783}# #{args 24798}#)) + (lambda (#{req 24804}# + #{opt 24805}# + #{rest 24806}# + #{kw 24807}#) + (call-with-values + (lambda () + (#{parse-req 24785}# + #{req 24804}# + #{opt 24805}# + #{rest 24806}# + #{kw 24807}# + (cons #{e1 24799}# #{e2 24800}#))) + (lambda (#{meta 24874}# + #{req 24875}# + #{opt 24876}# + #{rest 24877}# + #{kw 24878}# + #{inits 24879}# + #{vars 24880}# + #{body 24881}#) + (call-with-values + (lambda () + (#{expand-lambda-case 4462}# + #{e 24778}# + #{r 24779}# + #{w 24780}# + #{s 24781}# + #{mod 24782}# + #{get-formals 24783}# + (map (lambda (#{tmp 2833 24882}# + #{tmp 2832 24883}# + #{tmp 2831 24884}#) + (cons #{tmp 2831 24884}# + (cons #{tmp 2832 24883}# + #{tmp 2833 24882}#))) + #{e2* 24803}# + #{e1* 24802}# + #{args* 24801}#))) + (lambda (#{meta* 24885}# #{else* 24886}#) + (values + (append #{meta 24874}# #{meta* 24885}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #{s 24781}# + #{req 24875}# + #{opt 24876}# + #{rest 24877}# + #{kw 24878}# + #{inits 24879}# + #{vars 24880}# + #{body 24881}# + #{else* 24886}#))))))))) + #{tmp 24794}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{clauses 24784}#)))))))) + (#{strip 4463}# + (lambda (#{x 26006}# #{w 26007}#) + (if (memq 'top (car #{w 26007}#)) + #{x 26006}# + (letrec* + ((#{f 26008}# + (lambda (#{x 26011}#) + (if (if (vector? #{x 26011}#) + (if (= (vector-length #{x 26011}#) 4) + (eq? (vector-ref #{x 26011}# 0) 'syntax-object) + #f) + #f) + (#{strip 4463}# + (vector-ref #{x 26011}# 1) + (vector-ref #{x 26011}# 2)) + (if (pair? #{x 26011}#) + (let ((#{a 26030}# (#{f 26008}# (car #{x 26011}#))) + (#{d 26031}# (#{f 26008}# (cdr #{x 26011}#)))) + (if (if (eq? #{a 26030}# (car #{x 26011}#)) + (eq? #{d 26031}# (cdr #{x 26011}#)) + #f) + #{x 26011}# + (cons #{a 26030}# #{d 26031}#))) + (if (vector? #{x 26011}#) + (let ((#{old 26034}# (vector->list #{x 26011}#))) + (let ((#{new 26035}# + (map #{f 26008}# #{old 26034}#))) + (letrec* + ((#{lp 26036}# + (lambda (#{l1 26112}# #{l2 26113}#) + (if (null? #{l1 26112}#) + #{x 26011}# + (if (eq? (car #{l1 26112}#) + (car #{l2 26113}#)) + (#{lp 26036}# + (cdr #{l1 26112}#) + (cdr #{l2 26113}#)) + (list->vector #{new 26035}#)))))) + (#{lp 26036}# #{old 26034}# #{new 26035}#)))) + #{x 26011}#)))))) + (#{f 26008}# #{x 26006}#))))) + (#{gen-var 4464}# + (lambda (#{id 24930}#) + (let ((#{id 24931}# + (if (if (vector? #{id 24930}#) + (if (= (vector-length #{id 24930}#) 4) + (eq? (vector-ref #{id 24930}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{id 24930}# 1) + #{id 24930}#))) + (gensym + (string-append (symbol->string #{id 24931}#) " ")))))) + (begin + (set! #{transformer-environment 4436}# + (make-fluid + (lambda (#{k 14155}#) + (error "called outside the dynamic extent of a syntax transformer")))) + (module-define! + (current-module) + 'letrec-syntax + (make-syntax-transformer + 'letrec-syntax + 'local-syntax + #t)) + (module-define! + (current-module) + 'let-syntax + (make-syntax-transformer + 'let-syntax + 'local-syntax + #f)) + (#{global-extend 4413}# + 'core + 'syntax-parameterize + (lambda (#{e 4585}# + #{r 4586}# + #{w 4587}# + #{s 4588}# + #{mod 4589}#) + (let ((#{tmp 4591}# + ($sc-dispatch + #{e 4585}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 4591}# + (@apply + (lambda (#{var 4595}# + #{val 4596}# + #{e1 4597}# + #{e2 4598}#) + (#{valid-bound-ids? 4440}# #{var 4595}#)) + #{tmp 4591}#) + #f) + (@apply + (lambda (#{var 4676}# + #{val 4677}# + #{e1 4678}# + #{e2 4679}#) + (let ((#{names 4680}# + (map (lambda (#{x 4730}#) + (#{id-var-name 4434}# #{x 4730}# #{w 4587}#)) + #{var 4676}#))) + (begin + (for-each + (lambda (#{id 4681}# #{n 4682}#) + (let ((#{atom-key 4683}# + (car (let ((#{t 4690}# + (assq #{n 4682}# #{r 4586}#))) + (if #{t 4690}# + (cdr #{t 4690}#) + (if (symbol? #{n 4682}#) + (let ((#{t 4695}# + (#{get-global-definition-hook 4378}# + #{n 4682}# + #{mod 4589}#))) + (if #{t 4695}# + #{t 4695}# + '(global))) + '(displaced-lexical))))))) + (if (eqv? #{atom-key 4683}# 'displaced-lexical) + (syntax-violation + 'syntax-parameterize + "identifier out of context" + #{e 4585}# + (#{wrap 4443}# + (begin + (if (if (pair? #{id 4681}#) #{s 4588}# #f) + (set-source-properties! + #{id 4681}# + #{s 4588}#)) + #{id 4681}#) + #{w 4587}# + #{mod 4589}#))))) + #{var 4676}# + #{names 4680}#) + (#{expand-body 4454}# + (cons #{e1 4678}# #{e2 4679}#) + (#{wrap 4443}# + (begin + (if (if (pair? #{e 4585}#) #{s 4588}# #f) + (set-source-properties! #{e 4585}# #{s 4588}#)) + #{e 4585}#) + #{w 4587}# + #{mod 4589}#) + (#{extend-env 4409}# + #{names 4680}# + (let ((#{trans-r 4816}# + (#{macros-only-env 4411}# #{r 4586}#))) + (map (lambda (#{x 4817}#) + (cons 'macro + (#{eval-local-transformer 4456}# + (#{expand 4450}# + #{x 4817}# + #{trans-r 4816}# + #{w 4587}# + #{mod 4589}#) + #{mod 4589}#))) + #{val 4677}#)) + #{r 4586}#) + #{w 4587}# + #{mod 4589}#)))) + #{tmp 4591}#) + (syntax-violation + 'syntax-parameterize + "bad syntax" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 4585}#) #{s 4588}# #f) + (set-source-properties! #{e 4585}# #{s 4588}#)) + #{e 4585}#) + #{w 4587}# + #{mod 4589}#)))))) + (module-define! + (current-module) + 'quote + (make-syntax-transformer + 'quote + 'core + (lambda (#{e 5026}# + #{r 5027}# + #{w 5028}# + #{s 5029}# + #{mod 5030}#) + (let ((#{tmp 5032}# ($sc-dispatch #{e 5026}# '(_ any)))) + (if #{tmp 5032}# + (@apply + (lambda (#{e 5035}#) + (let ((#{exp 5039}# + (#{strip 4463}# #{e 5035}# #{w 5028}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #{s 5029}# + #{exp 5039}#))) + #{tmp 5032}#) + (syntax-violation + 'quote + "bad syntax" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 5026}#) #{s 5029}# #f) + (set-source-properties! #{e 5026}# #{s 5029}#)) + #{e 5026}#) + #{w 5028}# + #{mod 5030}#))))))) + (#{global-extend 4413}# + 'core + 'syntax + (letrec* + ((#{gen-syntax 5259}# + (lambda (#{src 5361}# + #{e 5362}# + #{r 5363}# + #{maps 5364}# + #{ellipsis? 5365}# + #{mod 5366}#) + (if (if (symbol? #{e 5362}#) + #t + (if (if (vector? #{e 5362}#) + (if (= (vector-length #{e 5362}#) 4) + (eq? (vector-ref #{e 5362}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{e 5362}# 1)) + #f)) + (let ((#{label 5393}# + (#{id-var-name 4434}# #{e 5362}# '(())))) + (let ((#{b 5394}# + (let ((#{t 5401}# (assq #{label 5393}# #{r 5363}#))) + (if #{t 5401}# + (cdr #{t 5401}#) + (if (symbol? #{label 5393}#) + (let ((#{t 5407}# + (#{get-global-definition-hook 4378}# + #{label 5393}# + #{mod 5366}#))) + (if #{t 5407}# #{t 5407}# '(global))) + '(displaced-lexical)))))) + (if (eq? (car #{b 5394}#) 'syntax) + (call-with-values + (lambda () + (let ((#{var.lev 5416}# (cdr #{b 5394}#))) + (#{gen-ref 5260}# + #{src 5361}# + (car #{var.lev 5416}#) + (cdr #{var.lev 5416}#) + #{maps 5364}#))) + (lambda (#{var 5420}# #{maps 5421}#) + (values (list 'ref #{var 5420}#) #{maps 5421}#))) + (if (#{ellipsis? 5365}# #{e 5362}#) + (syntax-violation + 'syntax + "misplaced ellipsis" + #{src 5361}#) + (values (list 'quote #{e 5362}#) #{maps 5364}#))))) + (let ((#{tmp 5423}# + ($sc-dispatch #{e 5362}# '(any any)))) + (if (if #{tmp 5423}# + (@apply + (lambda (#{dots 5427}# #{e 5428}#) + (#{ellipsis? 5365}# #{dots 5427}#)) + #{tmp 5423}#) + #f) + (@apply + (lambda (#{dots 5429}# #{e 5430}#) + (#{gen-syntax 5259}# + #{src 5361}# + #{e 5430}# + #{r 5363}# + #{maps 5364}# + (lambda (#{x 5431}#) #f) + #{mod 5366}#)) + #{tmp 5423}#) + (let ((#{tmp 5432}# + ($sc-dispatch #{e 5362}# '(any any . any)))) + (if (if #{tmp 5432}# + (@apply + (lambda (#{x 5436}# #{dots 5437}# #{y 5438}#) + (#{ellipsis? 5365}# #{dots 5437}#)) + #{tmp 5432}#) + #f) + (@apply + (lambda (#{x 5439}# #{dots 5440}# #{y 5441}#) + (letrec* + ((#{f 5442}# + (lambda (#{y 5450}# #{k 5451}#) + (let ((#{tmp 5453}# + ($sc-dispatch + #{y 5450}# + '(any . any)))) + (if (if #{tmp 5453}# + (@apply + (lambda (#{dots 5457}# + #{y 5458}#) + (#{ellipsis? 5365}# + #{dots 5457}#)) + #{tmp 5453}#) + #f) + (@apply + (lambda (#{dots 5459}# #{y 5460}#) + (#{f 5442}# + #{y 5460}# + (lambda (#{maps 5461}#) + (call-with-values + (lambda () + (#{k 5451}# + (cons '() + #{maps 5461}#))) + (lambda (#{x 5462}# + #{maps 5463}#) + (if (null? (car #{maps 5463}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src 5361}#) + (values + (let ((#{map-env 5467}# + (car #{maps 5463}#))) + (list 'apply + '(primitive + append) + (#{gen-map 5262}# + #{x 5462}# + #{map-env 5467}#))) + (cdr #{maps 5463}#)))))))) + #{tmp 5453}#) + (call-with-values + (lambda () + (#{gen-syntax 5259}# + #{src 5361}# + #{y 5450}# + #{r 5363}# + #{maps 5364}# + #{ellipsis? 5365}# + #{mod 5366}#)) + (lambda (#{y 5470}# #{maps 5471}#) + (call-with-values + (lambda () + (#{k 5451}# #{maps 5471}#)) + (lambda (#{x 5472}# + #{maps 5473}#) + (values + (if (equal? #{y 5470}# ''()) + #{x 5472}# + (list 'append + #{x 5472}# + #{y 5470}#)) + #{maps 5473}#)))))))))) + (#{f 5442}# + #{y 5441}# + (lambda (#{maps 5445}#) + (call-with-values + (lambda () + (#{gen-syntax 5259}# + #{src 5361}# + #{x 5439}# + #{r 5363}# + (cons '() #{maps 5445}#) + #{ellipsis? 5365}# + #{mod 5366}#)) + (lambda (#{x 5446}# #{maps 5447}#) + (if (null? (car #{maps 5447}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src 5361}#) + (values + (#{gen-map 5262}# + #{x 5446}# + (car #{maps 5447}#)) + (cdr #{maps 5447}#))))))))) + #{tmp 5432}#) + (let ((#{tmp 5489}# + ($sc-dispatch #{e 5362}# '(any . any)))) + (if #{tmp 5489}# + (@apply + (lambda (#{x 5493}# #{y 5494}#) + (call-with-values + (lambda () + (#{gen-syntax 5259}# + #{src 5361}# + #{x 5493}# + #{r 5363}# + #{maps 5364}# + #{ellipsis? 5365}# + #{mod 5366}#)) + (lambda (#{x 5495}# #{maps 5496}#) + (call-with-values + (lambda () + (#{gen-syntax 5259}# + #{src 5361}# + #{y 5494}# + #{r 5363}# + #{maps 5496}# + #{ellipsis? 5365}# + #{mod 5366}#)) + (lambda (#{y 5497}# #{maps 5498}#) + (values + (let ((#{atom-key 5503}# + (car #{y 5497}#))) + (if (eqv? #{atom-key 5503}# + 'quote) + (if (eq? (car #{x 5495}#) + 'quote) + (list 'quote + (cons (car (cdr #{x 5495}#)) + (car (cdr #{y 5497}#)))) + (if (eq? (car (cdr #{y 5497}#)) + '()) + (list 'list #{x 5495}#) + (list 'cons + #{x 5495}# + #{y 5497}#))) + (if (eqv? #{atom-key 5503}# + 'list) + (cons 'list + (cons #{x 5495}# + (cdr #{y 5497}#))) + (list 'cons + #{x 5495}# + #{y 5497}#)))) + #{maps 5498}#)))))) + #{tmp 5489}#) + (let ((#{tmp 5532}# + ($sc-dispatch + #{e 5362}# + '#(vector (any . each-any))))) + (if #{tmp 5532}# + (@apply + (lambda (#{e1 5536}# #{e2 5537}#) + (call-with-values + (lambda () + (#{gen-syntax 5259}# + #{src 5361}# + (cons #{e1 5536}# #{e2 5537}#) + #{r 5363}# + #{maps 5364}# + #{ellipsis? 5365}# + #{mod 5366}#)) + (lambda (#{e 5538}# #{maps 5539}#) + (values + (if (eq? (car #{e 5538}#) 'list) + (cons 'vector (cdr #{e 5538}#)) + (if (eq? (car #{e 5538}#) 'quote) + (list 'quote + (list->vector + (car (cdr #{e 5538}#)))) + (list 'list->vector + #{e 5538}#))) + #{maps 5539}#)))) + #{tmp 5532}#) + (values + (list 'quote #{e 5362}#) + #{maps 5364}#)))))))))))) + (#{gen-ref 5260}# + (lambda (#{src 5566}# + #{var 5567}# + #{level 5568}# + #{maps 5569}#) + (if (= #{level 5568}# 0) + (values #{var 5567}# #{maps 5569}#) + (if (null? #{maps 5569}#) + (syntax-violation + 'syntax + "missing ellipsis" + #{src 5566}#) + (call-with-values + (lambda () + (#{gen-ref 5260}# + #{src 5566}# + #{var 5567}# + (#{1-}# #{level 5568}#) + (cdr #{maps 5569}#))) + (lambda (#{outer-var 5570}# #{outer-maps 5571}#) + (let ((#{b 5572}# + (assq #{outer-var 5570}# (car #{maps 5569}#)))) + (if #{b 5572}# + (values (cdr #{b 5572}#) #{maps 5569}#) + (let ((#{inner-var 5574}# + (gensym + (string-append + (symbol->string 'tmp) + " ")))) + (values + #{inner-var 5574}# + (cons (cons (cons #{outer-var 5570}# + #{inner-var 5574}#) + (car #{maps 5569}#)) + #{outer-maps 5571}#))))))))))) + (#{gen-map 5262}# + (lambda (#{e 5588}# #{map-env 5589}#) + (let ((#{formals 5590}# (map cdr #{map-env 5589}#)) + (#{actuals 5591}# + (map (lambda (#{x 5593}#) + (list 'ref (car #{x 5593}#))) + #{map-env 5589}#))) + (if (eq? (car #{e 5588}#) 'ref) + (car #{actuals 5591}#) + (if (and-map + (lambda (#{x 5594}#) + (if (eq? (car #{x 5594}#) 'ref) + (memq (car (cdr #{x 5594}#)) #{formals 5590}#) + #f)) + (cdr #{e 5588}#)) + (cons 'map + (cons (list 'primitive (car #{e 5588}#)) + (map (let ((#{r 5596}# + (map cons + #{formals 5590}# + #{actuals 5591}#))) + (lambda (#{x 5597}#) + (cdr (assq (car (cdr #{x 5597}#)) + #{r 5596}#)))) + (cdr #{e 5588}#)))) + (cons 'map + (cons (list 'lambda #{formals 5590}# #{e 5588}#) + #{actuals 5591}#))))))) + (#{regen 5266}# + (lambda (#{x 5599}#) + (let ((#{atom-key 5600}# (car #{x 5599}#))) + (if (eqv? #{atom-key 5600}# 'ref) + (let ((#{name 5610}# (car (cdr #{x 5599}#))) + (#{var 5611}# (car (cdr #{x 5599}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #f + #{name 5610}# + #{var 5611}#)) + (if (eqv? #{atom-key 5600}# 'primitive) + (let ((#{name 5623}# (car (cdr #{x 5599}#)))) + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + #{name 5623}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + #{name 5623}# + #f))) + (if (eqv? #{atom-key 5600}# 'quote) + (let ((#{exp 5641}# (car (cdr #{x 5599}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #{exp 5641}#)) + (if (eqv? #{atom-key 5600}# 'lambda) + (if (list? (car (cdr #{x 5599}#))) + (let ((#{req 5652}# (car (cdr #{x 5599}#))) + (#{vars 5654}# (car (cdr #{x 5599}#))) + (#{exp 5656}# + (#{regen 5266}# + (car (cdr (cdr #{x 5599}#)))))) + (let ((#{body 5661}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 5652}# + #f + #f + #f + '() + #{vars 5654}# + #{exp 5656}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 5661}#))) + (error "how did we get here" #{x 5599}#)) + (let ((#{fun-exp 5677}# + (let ((#{name 5686}# (car #{x 5599}#))) + (if (equal? + (module-name (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + #{name 5686}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + #{name 5686}# + #f)))) + (#{arg-exps 5678}# + (map #{regen 5266}# (cdr #{x 5599}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 5677}# + #{arg-exps 5678}#)))))))))) + (lambda (#{e 5267}# + #{r 5268}# + #{w 5269}# + #{s 5270}# + #{mod 5271}#) + (let ((#{e 5272}# + (#{wrap 4443}# + (begin + (if (if (pair? #{e 5267}#) #{s 5270}# #f) + (set-source-properties! #{e 5267}# #{s 5270}#)) + #{e 5267}#) + #{w 5269}# + #{mod 5271}#))) + (let ((#{tmp 5274}# ($sc-dispatch #{e 5272}# '(_ any)))) + (if #{tmp 5274}# + (@apply + (lambda (#{x 5299}#) + (call-with-values + (lambda () + (#{gen-syntax 5259}# + #{e 5272}# + #{x 5299}# + #{r 5268}# + '() + #{ellipsis? 4458}# + #{mod 5271}#)) + (lambda (#{e 5353}# #{maps 5354}#) + (#{regen 5266}# #{e 5353}#)))) + #{tmp 5274}#) + (syntax-violation + 'syntax + "bad `syntax' form" + #{e 5272}#))))))) + (#{global-extend 4413}# + 'core + 'lambda + (lambda (#{e 5879}# + #{r 5880}# + #{w 5881}# + #{s 5882}# + #{mod 5883}#) + (let ((#{tmp 5885}# + ($sc-dispatch #{e 5879}# '(_ any any . each-any)))) + (if #{tmp 5885}# + (@apply + (lambda (#{args 5889}# #{e1 5890}# #{e2 5891}#) + (call-with-values + (lambda () + (#{lambda-formals 4459}# #{args 5889}#)) + (lambda (#{req 5894}# + #{opt 5895}# + #{rest 5896}# + #{kw 5897}#) + (letrec* + ((#{lp 5898}# + (lambda (#{body 5901}# #{meta 5902}#) + (let ((#{tmp 5904}# + ($sc-dispatch + #{body 5901}# + '(any any . each-any)))) + (if (if #{tmp 5904}# + (@apply + (lambda (#{docstring 5908}# + #{e1 5909}# + #{e2 5910}#) + (string? + (syntax->datum #{docstring 5908}#))) + #{tmp 5904}#) + #f) + (@apply + (lambda (#{docstring 5911}# + #{e1 5912}# + #{e2 5913}#) + (#{lp 5898}# + (cons #{e1 5912}# #{e2 5913}#) + (append + #{meta 5902}# + (list (cons 'documentation + (syntax->datum + #{docstring 5911}#)))))) + #{tmp 5904}#) + (let ((#{tmp 5914}# + ($sc-dispatch + #{body 5901}# + '(#(vector #(each (any . any))) + any + . + each-any)))) + (if #{tmp 5914}# + (@apply + (lambda (#{k 5918}# + #{v 5919}# + #{e1 5920}# + #{e2 5921}#) + (#{lp 5898}# + (cons #{e1 5920}# #{e2 5921}#) + (append + #{meta 5902}# + (syntax->datum + (map cons + #{k 5918}# + #{v 5919}#))))) + #{tmp 5914}#) + (#{expand-simple-lambda 4460}# + #{e 5879}# + #{r 5880}# + #{w 5881}# + #{s 5882}# + #{mod 5883}# + #{req 5894}# + #{rest 5896}# + #{meta 5902}# + #{body 5901}#)))))))) + (#{lp 5898}# (cons #{e1 5890}# #{e2 5891}#) '()))))) + #{tmp 5885}#) + (syntax-violation + 'lambda + "bad lambda" + #{e 5879}#))))) + (#{global-extend 4413}# + 'core + 'lambda* + (lambda (#{e 6212}# + #{r 6213}# + #{w 6214}# + #{s 6215}# + #{mod 6216}#) + (let ((#{tmp 6218}# + ($sc-dispatch #{e 6212}# '(_ any any . each-any)))) + (if #{tmp 6218}# + (@apply + (lambda (#{args 6222}# #{e1 6223}# #{e2 6224}#) + (call-with-values + (lambda () + (#{expand-lambda-case 4462}# + #{e 6212}# + #{r 6213}# + #{w 6214}# + #{s 6215}# + #{mod 6216}# + #{lambda*-formals 4461}# + (list (cons #{args 6222}# + (cons #{e1 6223}# #{e2 6224}#))))) + (lambda (#{meta 6227}# #{lcase 6228}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 6215}# + #{meta 6227}# + #{lcase 6228}#)))) + #{tmp 6218}#) + (syntax-violation + 'lambda + "bad lambda*" + #{e 6212}#))))) + (#{global-extend 4413}# + 'core + 'case-lambda + (lambda (#{e 6398}# + #{r 6399}# + #{w 6400}# + #{s 6401}# + #{mod 6402}#) + (let ((#{tmp 6404}# + ($sc-dispatch + #{e 6398}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 6404}# + (@apply + (lambda (#{args 6408}# + #{e1 6409}# + #{e2 6410}# + #{args* 6411}# + #{e1* 6412}# + #{e2* 6413}#) + (call-with-values + (lambda () + (#{expand-lambda-case 4462}# + #{e 6398}# + #{r 6399}# + #{w 6400}# + #{s 6401}# + #{mod 6402}# + #{lambda-formals 4459}# + (cons (cons #{args 6408}# + (cons #{e1 6409}# #{e2 6410}#)) + (map (lambda (#{tmp 3332 6416}# + #{tmp 3331 6417}# + #{tmp 3330 6418}#) + (cons #{tmp 3330 6418}# + (cons #{tmp 3331 6417}# + #{tmp 3332 6416}#))) + #{e2* 6413}# + #{e1* 6412}# + #{args* 6411}#)))) + (lambda (#{meta 6419}# #{lcase 6420}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 6401}# + #{meta 6419}# + #{lcase 6420}#)))) + #{tmp 6404}#) + (syntax-violation + 'case-lambda + "bad case-lambda" + #{e 6398}#))))) + (#{global-extend 4413}# + 'core + 'case-lambda* + (lambda (#{e 6582}# + #{r 6583}# + #{w 6584}# + #{s 6585}# + #{mod 6586}#) + (let ((#{tmp 6588}# + ($sc-dispatch + #{e 6582}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 6588}# + (@apply + (lambda (#{args 6592}# + #{e1 6593}# + #{e2 6594}# + #{args* 6595}# + #{e1* 6596}# + #{e2* 6597}#) + (call-with-values + (lambda () + (#{expand-lambda-case 4462}# + #{e 6582}# + #{r 6583}# + #{w 6584}# + #{s 6585}# + #{mod 6586}# + #{lambda*-formals 4461}# + (cons (cons #{args 6592}# + (cons #{e1 6593}# #{e2 6594}#)) + (map (lambda (#{tmp 3367 6600}# + #{tmp 3366 6601}# + #{tmp 3365 6602}#) + (cons #{tmp 3365 6602}# + (cons #{tmp 3366 6601}# + #{tmp 3367 6600}#))) + #{e2* 6597}# + #{e1* 6596}# + #{args* 6595}#)))) + (lambda (#{meta 6603}# #{lcase 6604}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 6585}# + #{meta 6603}# + #{lcase 6604}#)))) + #{tmp 6588}#) + (syntax-violation + 'case-lambda + "bad case-lambda*" + #{e 6582}#))))) + (#{global-extend 4413}# + 'core + 'let + (letrec* + ((#{expand-let 6795}# + (lambda (#{e 6944}# + #{r 6945}# + #{w 6946}# + #{s 6947}# + #{mod 6948}# + #{constructor 6949}# + #{ids 6950}# + #{vals 6951}# + #{exps 6952}#) + (if (not (#{valid-bound-ids? 4440}# #{ids 6950}#)) + (syntax-violation + 'let + "duplicate bound variable" + #{e 6944}#) + (let ((#{labels 7030}# + (#{gen-labels 4418}# #{ids 6950}#)) + (#{new-vars 7031}# + (map #{gen-var 4464}# #{ids 6950}#))) + (let ((#{nw 7032}# + (#{make-binding-wrap 4429}# + #{ids 6950}# + #{labels 7030}# + #{w 6946}#)) + (#{nr 7033}# + (#{extend-var-env 4410}# + #{labels 7030}# + #{new-vars 7031}# + #{r 6945}#))) + (#{constructor 6949}# + #{s 6947}# + (map syntax->datum #{ids 6950}#) + #{new-vars 7031}# + (map (lambda (#{x 7050}#) + (#{expand 4450}# + #{x 7050}# + #{r 6945}# + #{w 6946}# + #{mod 6948}#)) + #{vals 6951}#) + (#{expand-body 4454}# + #{exps 6952}# + (#{source-wrap 4444}# + #{e 6944}# + #{nw 7032}# + #{s 6947}# + #{mod 6948}#) + #{nr 7033}# + #{nw 7032}# + #{mod 6948}#)))))))) + (lambda (#{e 6796}# + #{r 6797}# + #{w 6798}# + #{s 6799}# + #{mod 6800}#) + (let ((#{tmp 6802}# + ($sc-dispatch + #{e 6796}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 6802}# + (@apply + (lambda (#{id 6806}# + #{val 6807}# + #{e1 6808}# + #{e2 6809}#) + (and-map #{id? 4415}# #{id 6806}#)) + #{tmp 6802}#) + #f) + (@apply + (lambda (#{id 6825}# + #{val 6826}# + #{e1 6827}# + #{e2 6828}#) + (#{expand-let 6795}# + #{e 6796}# + #{r 6797}# + #{w 6798}# + #{s 6799}# + #{mod 6800}# + #{build-let 4397}# + #{id 6825}# + #{val 6826}# + (cons #{e1 6827}# #{e2 6828}#))) + #{tmp 6802}#) + (let ((#{tmp 6858}# + ($sc-dispatch + #{e 6796}# + '(_ any #(each (any any)) any . each-any)))) + (if (if #{tmp 6858}# + (@apply + (lambda (#{f 6862}# + #{id 6863}# + #{val 6864}# + #{e1 6865}# + #{e2 6866}#) + (if (if (symbol? #{f 6862}#) + #t + (if (if (vector? #{f 6862}#) + (if (= (vector-length #{f 6862}#) 4) + (eq? (vector-ref #{f 6862}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{f 6862}# 1)) + #f)) + (and-map #{id? 4415}# #{id 6863}#) + #f)) + #{tmp 6858}#) + #f) + (@apply + (lambda (#{f 6908}# + #{id 6909}# + #{val 6910}# + #{e1 6911}# + #{e2 6912}#) + (#{expand-let 6795}# + #{e 6796}# + #{r 6797}# + #{w 6798}# + #{s 6799}# + #{mod 6800}# + #{build-named-let 4398}# + (cons #{f 6908}# #{id 6909}#) + #{val 6910}# + (cons #{e1 6911}# #{e2 6912}#))) + #{tmp 6858}#) + (syntax-violation + 'let + "bad let" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 6796}#) #{s 6799}# #f) + (set-source-properties! #{e 6796}# #{s 6799}#)) + #{e 6796}#) + #{w 6798}# + #{mod 6800}#))))))))) + (#{global-extend 4413}# + 'core + 'letrec + (lambda (#{e 7492}# + #{r 7493}# + #{w 7494}# + #{s 7495}# + #{mod 7496}#) + (let ((#{tmp 7498}# + ($sc-dispatch + #{e 7492}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 7498}# + (@apply + (lambda (#{id 7502}# + #{val 7503}# + #{e1 7504}# + #{e2 7505}#) + (and-map #{id? 4415}# #{id 7502}#)) + #{tmp 7498}#) + #f) + (@apply + (lambda (#{id 7521}# + #{val 7522}# + #{e1 7523}# + #{e2 7524}#) + (if (not (#{valid-bound-ids? 4440}# #{id 7521}#)) + (syntax-violation + 'letrec + "duplicate bound variable" + #{e 7492}#) + (let ((#{labels 7614}# + (#{gen-labels 4418}# #{id 7521}#)) + (#{new-vars 7615}# + (map #{gen-var 4464}# #{id 7521}#))) + (let ((#{w 7616}# + (#{make-binding-wrap 4429}# + #{id 7521}# + #{labels 7614}# + #{w 7494}#)) + (#{r 7617}# + (#{extend-var-env 4410}# + #{labels 7614}# + #{new-vars 7615}# + #{r 7493}#))) + (#{build-letrec 4399}# + #{s 7495}# + #f + (map syntax->datum #{id 7521}#) + #{new-vars 7615}# + (map (lambda (#{x 7704}#) + (#{expand 4450}# + #{x 7704}# + #{r 7617}# + #{w 7616}# + #{mod 7496}#)) + #{val 7522}#) + (#{expand-body 4454}# + (cons #{e1 7523}# #{e2 7524}#) + (#{wrap 4443}# + (begin + (if (if (pair? #{e 7492}#) #{s 7495}# #f) + (set-source-properties! + #{e 7492}# + #{s 7495}#)) + #{e 7492}#) + #{w 7616}# + #{mod 7496}#) + #{r 7617}# + #{w 7616}# + #{mod 7496}#)))))) + #{tmp 7498}#) + (syntax-violation + 'letrec + "bad letrec" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 7492}#) #{s 7495}# #f) + (set-source-properties! #{e 7492}# #{s 7495}#)) + #{e 7492}#) + #{w 7494}# + #{mod 7496}#)))))) + (#{global-extend 4413}# + 'core + 'letrec* + (lambda (#{e 8121}# + #{r 8122}# + #{w 8123}# + #{s 8124}# + #{mod 8125}#) + (let ((#{tmp 8127}# + ($sc-dispatch + #{e 8121}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 8127}# + (@apply + (lambda (#{id 8131}# + #{val 8132}# + #{e1 8133}# + #{e2 8134}#) + (and-map #{id? 4415}# #{id 8131}#)) + #{tmp 8127}#) + #f) + (@apply + (lambda (#{id 8150}# + #{val 8151}# + #{e1 8152}# + #{e2 8153}#) + (if (not (#{valid-bound-ids? 4440}# #{id 8150}#)) + (syntax-violation + 'letrec* + "duplicate bound variable" + #{e 8121}#) + (let ((#{labels 8243}# + (#{gen-labels 4418}# #{id 8150}#)) + (#{new-vars 8244}# + (map #{gen-var 4464}# #{id 8150}#))) + (let ((#{w 8245}# + (#{make-binding-wrap 4429}# + #{id 8150}# + #{labels 8243}# + #{w 8123}#)) + (#{r 8246}# + (#{extend-var-env 4410}# + #{labels 8243}# + #{new-vars 8244}# + #{r 8122}#))) + (#{build-letrec 4399}# + #{s 8124}# + #t + (map syntax->datum #{id 8150}#) + #{new-vars 8244}# + (map (lambda (#{x 8333}#) + (#{expand 4450}# + #{x 8333}# + #{r 8246}# + #{w 8245}# + #{mod 8125}#)) + #{val 8151}#) + (#{expand-body 4454}# + (cons #{e1 8152}# #{e2 8153}#) + (#{wrap 4443}# + (begin + (if (if (pair? #{e 8121}#) #{s 8124}# #f) + (set-source-properties! + #{e 8121}# + #{s 8124}#)) + #{e 8121}#) + #{w 8245}# + #{mod 8125}#) + #{r 8246}# + #{w 8245}# + #{mod 8125}#)))))) + #{tmp 8127}#) + (syntax-violation + 'letrec* + "bad letrec*" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 8121}#) #{s 8124}# #f) + (set-source-properties! #{e 8121}# #{s 8124}#)) + #{e 8121}#) + #{w 8123}# + #{mod 8125}#)))))) + (#{global-extend 4413}# + 'core + 'set! + (lambda (#{e 8789}# + #{r 8790}# + #{w 8791}# + #{s 8792}# + #{mod 8793}#) + (let ((#{tmp 8795}# + ($sc-dispatch #{e 8789}# '(_ any any)))) + (if (if #{tmp 8795}# + (@apply + (lambda (#{id 8799}# #{val 8800}#) + (if (symbol? #{id 8799}#) + #t + (if (if (vector? #{id 8799}#) + (if (= (vector-length #{id 8799}#) 4) + (eq? (vector-ref #{id 8799}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{id 8799}# 1)) + #f))) + #{tmp 8795}#) + #f) + (@apply + (lambda (#{id 8827}# #{val 8828}#) + (let ((#{n 8829}# + (#{id-var-name 4434}# #{id 8827}# #{w 8791}#)) + (#{id-mod 8830}# + (if (if (vector? #{id 8827}#) + (if (= (vector-length #{id 8827}#) 4) + (eq? (vector-ref #{id 8827}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 8827}# 3) + #{mod 8793}#))) + (let ((#{b 8831}# + (let ((#{t 8872}# (assq #{n 8829}# #{r 8790}#))) + (if #{t 8872}# + (cdr #{t 8872}#) + (if (symbol? #{n 8829}#) + (let ((#{t 8877}# + (#{get-global-definition-hook 4378}# + #{n 8829}# + #{id-mod 8830}#))) + (if #{t 8877}# #{t 8877}# '(global))) + '(displaced-lexical)))))) + (let ((#{atom-key 8832}# (car #{b 8831}#))) + (if (eqv? #{atom-key 8832}# 'lexical) + (#{build-lexical-assignment 4386}# + #{s 8792}# + (syntax->datum #{id 8827}#) + (cdr #{b 8831}#) + (#{expand 4450}# + #{val 8828}# + #{r 8790}# + #{w 8791}# + #{mod 8793}#)) + (if (eqv? #{atom-key 8832}# 'global) + (#{build-global-assignment 4389}# + #{s 8792}# + #{n 8829}# + (#{expand 4450}# + #{val 8828}# + #{r 8790}# + #{w 8791}# + #{mod 8793}#) + #{id-mod 8830}#) + (if (eqv? #{atom-key 8832}# 'macro) + (let ((#{p 9191}# (cdr #{b 8831}#))) + (if (procedure-property + #{p 9191}# + 'variable-transformer) + (#{expand 4450}# + (#{expand-macro 4453}# + #{p 9191}# + #{e 8789}# + #{r 8790}# + #{w 8791}# + #{s 8792}# + #f + #{mod 8793}#) + #{r 8790}# + '(()) + #{mod 8793}#) + (syntax-violation + 'set! + "not a variable transformer" + (#{wrap 4443}# + #{e 8789}# + #{w 8791}# + #{mod 8793}#) + (#{wrap 4443}# + #{id 8827}# + #{w 8791}# + #{id-mod 8830}#)))) + (if (eqv? #{atom-key 8832}# 'displaced-lexical) + (syntax-violation + 'set! + "identifier out of context" + (#{wrap 4443}# + #{id 8827}# + #{w 8791}# + #{mod 8793}#)) + (syntax-violation + 'set! + "bad set!" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 8789}#) #{s 8792}# #f) + (set-source-properties! + #{e 8789}# + #{s 8792}#)) + #{e 8789}#) + #{w 8791}# + #{mod 8793}#)))))))))) + #{tmp 8795}#) + (let ((#{tmp 9286}# + ($sc-dispatch + #{e 8789}# + '(_ (any . each-any) any)))) + (if #{tmp 9286}# + (@apply + (lambda (#{head 9290}# #{tail 9291}# #{val 9292}#) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{head 9290}# + #{r 8790}# + '(()) + #f + #f + #{mod 8793}# + #t)) + (lambda (#{type 9295}# + #{value 9296}# + #{ee 9297}# + #{ww 9298}# + #{ss 9299}# + #{modmod 9300}#) + (if (eqv? #{type 9295}# 'module-ref) + (let ((#{val 9304}# + (#{expand 4450}# + #{val 9292}# + #{r 8790}# + #{w 8791}# + #{mod 8793}#))) + (call-with-values + (lambda () + (#{value 9296}# + (cons #{head 9290}# #{tail 9291}#) + #{r 8790}# + #{w 8791}#)) + (lambda (#{e 9305}# + #{r 9306}# + #{w 9307}# + #{s* 9308}# + #{mod 9309}#) + (let ((#{tmp 9311}# (list #{e 9305}#))) + (if (@apply + (lambda (#{e 9313}#) + (if (symbol? #{e 9313}#) + #t + (if (if (vector? #{e 9313}#) + (if (= (vector-length + #{e 9313}#) + 4) + (eq? (vector-ref + #{e 9313}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{e 9313}# 1)) + #f))) + #{tmp 9311}#) + (@apply + (lambda (#{e 9343}#) + (#{build-global-assignment 4389}# + #{s 8792}# + (syntax->datum #{e 9343}#) + #{val 9304}# + #{mod 9309}#)) + #{tmp 9311}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 9305}#)))))) + (#{build-application 4382}# + #{s 8792}# + (let ((#{e 9568}# + (list '#(syntax-object + setter + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(type value ee ww ss modmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i3613" + "i3614" + "i3615" + "i3616" + "i3617" + "i3618")) + #(ribcage + #(head tail val) + #((top) (top) (top)) + #("i3599" "i3600" "i3601")) + #(ribcage () () ()) + #(ribcage + #(e r w s mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3563" + "i3564" + "i3565" + "i3566" + "i3567")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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 9290}#))) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{e 9568}# + #{r 8790}# + #{w 8791}# + (#{source-annotation 4408}# #{e 9568}#) + #f + #{mod 8793}# + #f)) + (lambda (#{type 9575}# + #{value 9576}# + #{e 9577}# + #{w 9578}# + #{s 9579}# + #{mod 9580}#) + (#{expand-expr 4451}# + #{type 9575}# + #{value 9576}# + #{e 9577}# + #{r 8790}# + #{w 9578}# + #{s 9579}# + #{mod 9580}#)))) + (map (lambda (#{e 9584}#) + (call-with-values + (lambda () + (#{syntax-type 4449}# + #{e 9584}# + #{r 8790}# + #{w 8791}# + (#{source-annotation 4408}# + #{e 9584}#) + #f + #{mod 8793}# + #f)) + (lambda (#{type 9599}# + #{value 9600}# + #{e 9601}# + #{w 9602}# + #{s 9603}# + #{mod 9604}#) + (#{expand-expr 4451}# + #{type 9599}# + #{value 9600}# + #{e 9601}# + #{r 8790}# + #{w 9602}# + #{s 9603}# + #{mod 9604}#)))) + (append + #{tail 9291}# + (list #{val 9292}#)))))))) + #{tmp 9286}#) + (syntax-violation + 'set! + "bad set!" + (#{wrap 4443}# + (begin + (if (if (pair? #{e 8789}#) #{s 8792}# #f) + (set-source-properties! #{e 8789}# #{s 8792}#)) + #{e 8789}#) + #{w 8791}# + #{mod 8793}#)))))))) + (module-define! + (current-module) + '@ + (make-syntax-transformer + '@ + 'module-ref + (lambda (#{e 9647}# #{r 9648}# #{w 9649}#) + (let ((#{tmp 9651}# + ($sc-dispatch #{e 9647}# '(_ each-any any)))) + (if (if #{tmp 9651}# + (@apply + (lambda (#{mod 9654}# #{id 9655}#) + (if (and-map #{id? 4415}# #{mod 9654}#) + (if (symbol? #{id 9655}#) + #t + (if (if (vector? #{id 9655}#) + (if (= (vector-length #{id 9655}#) 4) + (eq? (vector-ref #{id 9655}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{id 9655}# 1)) + #f)) + #f)) + #{tmp 9651}#) + #f) + (@apply + (lambda (#{mod 9695}# #{id 9696}#) + (values + (syntax->datum #{id 9696}#) + #{r 9648}# + #{w 9649}# + #f + (syntax->datum + (cons '#(syntax-object + public + ((top) + #(ribcage + #(mod id) + #((top) (top)) + #("i3660" "i3661")) + #(ribcage () () ()) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3648" "i3649" "i3650")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + #{mod 9695}#)))) + #{tmp 9651}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 9647}#)))))) + (#{global-extend 4413}# + 'module-ref + '@@ + (lambda (#{e 9788}# #{r 9789}# #{w 9790}#) + (letrec* + ((#{remodulate 9791}# + (lambda (#{x 9826}# #{mod 9827}#) + (if (pair? #{x 9826}#) + (cons (#{remodulate 9791}# + (car #{x 9826}#) + #{mod 9827}#) + (#{remodulate 9791}# + (cdr #{x 9826}#) + #{mod 9827}#)) + (if (if (vector? #{x 9826}#) + (if (= (vector-length #{x 9826}#) 4) + (eq? (vector-ref #{x 9826}# 0) 'syntax-object) + #f) + #f) + (let ((#{expression 9841}# + (#{remodulate 9791}# + (vector-ref #{x 9826}# 1) + #{mod 9827}#)) + (#{wrap 9842}# (vector-ref #{x 9826}# 2))) + (vector + 'syntax-object + #{expression 9841}# + #{wrap 9842}# + #{mod 9827}#)) + (if (vector? #{x 9826}#) + (let ((#{n 9850}# (vector-length #{x 9826}#))) + (let ((#{v 9851}# (make-vector #{n 9850}#))) + (letrec* + ((#{loop 9852}# + (lambda (#{i 9899}#) + (if (= #{i 9899}# #{n 9850}#) + #{v 9851}# + (begin + (vector-set! + #{v 9851}# + #{i 9899}# + (#{remodulate 9791}# + (vector-ref #{x 9826}# #{i 9899}#) + #{mod 9827}#)) + (#{loop 9852}# (#{1+}# #{i 9899}#))))))) + (#{loop 9852}# 0)))) + #{x 9826}#)))))) + (let ((#{tmp 9793}# + ($sc-dispatch #{e 9788}# '(_ each-any any)))) + (if (if #{tmp 9793}# + (@apply + (lambda (#{mod 9797}# #{exp 9798}#) + (and-map #{id? 4415}# #{mod 9797}#)) + #{tmp 9793}#) + #f) + (@apply + (lambda (#{mod 9814}# #{exp 9815}#) + (let ((#{mod 9816}# + (syntax->datum + (cons '#(syntax-object + private + ((top) + #(ribcage + #(mod exp) + #((top) (top)) + #("i3704" "i3705")) + #(ribcage + (remodulate) + ((top)) + ("i3671")) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3668" "i3669" "i3670")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + #{mod 9814}#)))) + (values + (#{remodulate 9791}# #{exp 9815}# #{mod 9816}#) + #{r 9789}# + #{w 9790}# + (#{source-annotation 4408}# #{exp 9815}#) + #{mod 9816}#))) + #{tmp 9793}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 9788}#)))))) + (#{global-extend 4413}# + 'core + 'if + (lambda (#{e 10000}# + #{r 10001}# + #{w 10002}# + #{s 10003}# + #{mod 10004}#) + (let ((#{tmp 10006}# + ($sc-dispatch #{e 10000}# '(_ any any)))) + (if #{tmp 10006}# + (@apply + (lambda (#{test 10010}# #{then 10011}#) + (#{build-conditional 4383}# + #{s 10003}# + (#{expand 4450}# + #{test 10010}# + #{r 10001}# + #{w 10002}# + #{mod 10004}#) + (#{expand 4450}# + #{then 10011}# + #{r 10001}# + #{w 10002}# + #{mod 10004}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f))) + #{tmp 10006}#) + (let ((#{tmp 10236}# + ($sc-dispatch #{e 10000}# '(_ any any any)))) + (if #{tmp 10236}# + (@apply + (lambda (#{test 10240}# #{then 10241}# #{else 10242}#) + (#{build-conditional 4383}# + #{s 10003}# + (#{expand 4450}# + #{test 10240}# + #{r 10001}# + #{w 10002}# + #{mod 10004}#) + (#{expand 4450}# + #{then 10241}# + #{r 10001}# + #{w 10002}# + #{mod 10004}#) + (#{expand 4450}# + #{else 10242}# + #{r 10001}# + #{w 10002}# + #{mod 10004}#))) + #{tmp 10236}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 10000}#))))))) + (#{global-extend 4413}# + 'core + 'with-fluids + (lambda (#{e 10641}# + #{r 10642}# + #{w 10643}# + #{s 10644}# + #{mod 10645}#) + (let ((#{tmp 10647}# + ($sc-dispatch + #{e 10641}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 10647}# + (@apply + (lambda (#{fluid 10651}# + #{val 10652}# + #{b 10653}# + #{b* 10654}#) + (#{build-dynlet 4384}# + #{s 10644}# + (map (lambda (#{x 10735}#) + (#{expand 4450}# + #{x 10735}# + #{r 10642}# + #{w 10643}# + #{mod 10645}#)) + #{fluid 10651}#) + (map (lambda (#{x 10805}#) + (#{expand 4450}# + #{x 10805}# + #{r 10642}# + #{w 10643}# + #{mod 10645}#)) + #{val 10652}#) + (#{expand-body 4454}# + (cons #{b 10653}# #{b* 10654}#) + (#{wrap 4443}# + (begin + (if (if (pair? #{e 10641}#) #{s 10644}# #f) + (set-source-properties! #{e 10641}# #{s 10644}#)) + #{e 10641}#) + #{w 10643}# + #{mod 10645}#) + #{r 10642}# + #{w 10643}# + #{mod 10645}#))) + #{tmp 10647}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 10641}#))))) + (module-define! + (current-module) + 'begin + (make-syntax-transformer 'begin 'begin '())) + (module-define! + (current-module) + 'define + (make-syntax-transformer 'define 'define '())) + (module-define! + (current-module) + 'define-syntax + (make-syntax-transformer + 'define-syntax + 'define-syntax + '())) + (module-define! + (current-module) + 'define-syntax-parameter + (make-syntax-transformer + 'define-syntax-parameter + 'define-syntax-parameter + '())) + (module-define! + (current-module) + 'eval-when + (make-syntax-transformer + 'eval-when + 'eval-when + '())) + (#{global-extend 4413}# + 'core + 'syntax-case + (letrec* + ((#{convert-pattern 11173}# + (lambda (#{pattern 12770}# #{keys 12771}#) + (letrec* + ((#{cvt* 12772}# + (lambda (#{p* 13396}# #{n 13397}# #{ids 13398}#) + (if (not (pair? #{p* 13396}#)) + (#{cvt 12774}# + #{p* 13396}# + #{n 13397}# + #{ids 13398}#) + (call-with-values + (lambda () + (#{cvt* 12772}# + (cdr #{p* 13396}#) + #{n 13397}# + #{ids 13398}#)) + (lambda (#{y 13401}# #{ids 13402}#) + (call-with-values + (lambda () + (#{cvt 12774}# + (car #{p* 13396}#) + #{n 13397}# + #{ids 13402}#)) + (lambda (#{x 13405}# #{ids 13406}#) + (values + (cons #{x 13405}# #{y 13401}#) + #{ids 13406}#)))))))) + (#{v-reverse 12773}# + (lambda (#{x 13407}#) + (letrec* + ((#{loop 13408}# + (lambda (#{r 13488}# #{x 13489}#) + (if (not (pair? #{x 13489}#)) + (values #{r 13488}# #{x 13489}#) + (#{loop 13408}# + (cons (car #{x 13489}#) #{r 13488}#) + (cdr #{x 13489}#)))))) + (#{loop 13408}# '() #{x 13407}#)))) + (#{cvt 12774}# + (lambda (#{p 12777}# #{n 12778}# #{ids 12779}#) + (if (if (symbol? #{p 12777}#) + #t + (if (if (vector? #{p 12777}#) + (if (= (vector-length #{p 12777}#) 4) + (eq? (vector-ref #{p 12777}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{p 12777}# 1)) + #f)) + (if (#{bound-id-member? 4442}# + #{p 12777}# + #{keys 12771}#) + (values + (vector 'free-id #{p 12777}#) + #{ids 12779}#) + (if (if (eq? (if (if (vector? #{p 12777}#) + (if (= (vector-length #{p 12777}#) + 4) + (eq? (vector-ref #{p 12777}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{p 12777}# 1) + #{p 12777}#) + (if (if (= (vector-length '#(syntax-object - ... + _ ((top) - #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(x) - #((top)) - #("i2230")) + #(p n ids) + #((top) (top) (top)) + #("i3805" + "i3806" + "i3807")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3778" + "i3776" + "i3774")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3772" "i3773")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3768" + "i3766" + "i3764" + "i3762")) #(ribcage (lambda-var-list gen-var @@ -15850,6 +11314,9 @@ valid-bound-ids? bound-id=? free-id=? + with-transformer-environment + transformer-environment + resolve-identifier id-var-name same-marks? join-marks @@ -16093,8 +11560,14 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i467" + ("i473" + "i471" + "i469" + "i467" "i465" "i463" "i461" @@ -16236,682 +11709,487 @@ define-expansion-constructors) ((top) (top) (top)) ("i46" "i45" "i44"))) - (hygiene guile)))) - (eq? (#{id-var-name 4332}# - #{x 12995}# - '(())) - (#{id-var-name 4332}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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)) - '(()))) - #f) - #f)))) - #{pvars 12875}#)) - (syntax-violation - 'syntax-case - "misplaced ellipsis" - #{pat 12716}#) - (let ((#{y 13071}# - (gensym - (string-append (symbol->string 'tmp) " ")))) - (#{build-application 4280}# - #f - (let ((#{req 13214}# (list 'tmp)) - (#{vars 13216}# (list #{y 13071}#)) - (#{exp 13218}# - (let ((#{y 13235}# - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #f - 'tmp - #{y 13071}#))) - (let ((#{test-exp 13239}# - (let ((#{tmp 13248}# - ($sc-dispatch - #{fender 12717}# - '#(atom #t)))) - (if #{tmp 13248}# - (@apply - (lambda () #{y 13235}#) - #{tmp 13248}#) - (let ((#{then-exp 13266}# - (#{build-dispatch-call 11744}# - #{pvars 12875}# - #{fender 12717}# - #{y 13235}# - #{r 12715}# - #{mod 12719}#)) - (#{else-exp 13267}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 1) - #f - #f))) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 10) - #f - #{y 13235}# - #{then-exp 13266}# - #{else-exp 13267}#))))) - (#{then-exp 13240}# - (#{build-dispatch-call 11744}# - #{pvars 12875}# - #{exp 12718}# - #{y 13235}# - #{r 12715}# - #{mod 12719}#)) - (#{else-exp 13241}# - (#{gen-syntax-case 11746}# - #{x 12712}# - #{keys 12713}# - #{clauses 12714}# - #{r 12715}# - #{mod 12719}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 10) - #f - #{test-exp 13239}# - #{then-exp 13240}# - #{else-exp 13241}#))))) - (let ((#{body 13223}# - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #f - #{req 13214}# - #f - #f - #f - '() - #{vars 13216}# - #{exp 13218}# - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #f - '() - #{body 13223}#))) - (list (if (eq? #{p 12874}# 'any) - (let ((#{fun-exp 13289}# - (if (equal? - (module-name (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - 'list) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - 'list - #f))) - (#{arg-exps 13290}# (list #{x 12712}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 13289}# - #{arg-exps 13290}#)) - (let ((#{fun-exp 13313}# - (if (equal? - (module-name (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - '$sc-dispatch) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - '$sc-dispatch - #f))) - (#{arg-exps 13314}# - (list #{x 12712}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 1) - #f - #{p 12874}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 13313}# - #{arg-exps 13314}#)))))))))))) - (#{gen-syntax-case 11746}# - (lambda (#{x 12145}# - #{keys 12146}# - #{clauses 12147}# - #{r 12148}# - #{mod 12149}#) - (if (null? #{clauses 12147}#) - (let ((#{fun-exp 12154}# - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - 'syntax-violation) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - 'syntax-violation - #f))) - (#{arg-exps 12155}# - (list (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - #f) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - "source expression failed to match any pattern") - #{x 12145}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 12154}# - #{arg-exps 12155}#)) - (let ((#{tmp 12188}# (car #{clauses 12147}#))) - (let ((#{tmp 12189}# - ($sc-dispatch #{tmp 12188}# '(any any)))) - (if #{tmp 12189}# - (@apply - (lambda (#{pat 12191}# #{exp 12192}#) - (if (if (if (symbol? #{pat 12191}#) - #t - (if (if (vector? #{pat 12191}#) - (if (= (vector-length #{pat 12191}#) - 4) - (eq? (vector-ref #{pat 12191}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{pat 12191}# 1)) - #f)) - (and-map - (lambda (#{x 12219}#) - (not (if (eq? (if (if (vector? - #{pat 12191}#) - (if (= (vector-length - #{pat 12191}#) - 4) - (eq? (vector-ref - #{pat 12191}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{pat 12191}# 1) - #{pat 12191}#) - (if (if (vector? #{x 12219}#) - (if (= (vector-length - #{x 12219}#) - 4) - (eq? (vector-ref - #{x 12219}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{x 12219}# 1) - #{x 12219}#)) - (eq? (#{id-var-name 4332}# - #{pat 12191}# - '(())) - (#{id-var-name 4332}# - #{x 12219}# - '(()))) - #f))) - (cons '#(syntax-object - ... + (hygiene guile))) + 4) + #t + #f) + '_ + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3805" "i3806" "i3807")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3778" "i3776" "i3774")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3772" "i3773")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3768" + "i3766" + "i3764" + "i3762")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)))) + (eq? (#{id-var-name 4434}# #{p 12777}# '(())) + (#{id-var-name 4434}# + '#(syntax-object + _ ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) #(ribcage () () ()) #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) + #(p n ids) + #((top) (top) (top)) + #("i3805" "i3806" "i3807")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3778" "i3776" "i3774")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3772" "i3773")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3710" "i3708" "i3706" "i3704")) + ("i3768" "i3766" "i3764" "i3762")) #(ribcage (lambda-var-list gen-var @@ -16941,6 +12219,9 @@ valid-bound-ids? bound-id=? free-id=? + with-transformer-environment + transformer-environment + resolve-identifier id-var-name same-marks? join-marks @@ -17184,8 +12465,14 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i467" + ("i473" + "i471" + "i469" + "i467" "i465" "i463" "i461" @@ -17328,46 +12615,1881 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{keys 12146}#)) - #f) - (if (if (eq? (if (if (= (vector-length + '(()))) + #f) + (values '_ #{ids 12779}#) + (values + 'any + (cons (cons #{p 12777}# #{n 12778}#) + #{ids 12779}#)))) + (let ((#{tmp 13099}# + ($sc-dispatch #{p 12777}# '(any any)))) + (if (if #{tmp 13099}# + (@apply + (lambda (#{x 13103}# #{dots 13104}#) + (if (if (if (vector? #{dots 13104}#) + (if (= (vector-length + #{dots 13104}#) + 4) + (eq? (vector-ref + #{dots 13104}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{dots 13104}# 1)) + #f) + (if (eq? (if (if (vector? #{dots 13104}#) + (if (= (vector-length + #{dots 13104}#) + 4) + (eq? (vector-ref + #{dots 13104}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{dots 13104}# 1) + #{dots 13104}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + 4) + #t + #f) + '... + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)))) + (eq? (#{id-var-name 4434}# + #{dots 13104}# + '(())) + (#{id-var-name 4434}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + '(()))) + #f) + #f)) + #{tmp 13099}#) + #f) + (@apply + (lambda (#{x 13204}# #{dots 13205}#) + (call-with-values + (lambda () + (#{cvt 12774}# + #{x 13204}# + (#{1+}# #{n 12778}#) + #{ids 12779}#)) + (lambda (#{p 13206}# #{ids 13207}#) + (values + (if (eq? #{p 13206}# 'any) + 'each-any + (vector 'each #{p 13206}#)) + #{ids 13207}#)))) + #{tmp 13099}#) + (let ((#{tmp 13208}# + ($sc-dispatch + #{p 12777}# + '(any any . any)))) + (if (if #{tmp 13208}# + (@apply + (lambda (#{x 13212}# + #{dots 13213}# + #{ys 13214}#) + (if (if (if (vector? #{dots 13213}#) + (if (= (vector-length + #{dots 13213}#) + 4) + (eq? (vector-ref + #{dots 13213}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{dots 13213}# 1)) + #f) + (if (eq? (if (if (vector? + #{dots 13213}#) + (if (= (vector-length + #{dots 13213}#) + 4) + (eq? (vector-ref + #{dots 13213}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{dots 13213}# + 1) + #{dots 13213}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + 4) + #t + #f) + '... '#(syntax-object - pad + ... ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) + #(x) + #((top)) + #("i2288")) #(ribcage (lambda-var-list gen-var @@ -17397,6 +14519,9 @@ valid-bound-ids? bound-id=? free-id=? + with-transformer-environment + transformer-environment + resolve-identifier id-var-name same-marks? join-marks @@ -17640,8 +14765,14 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i467" + ("i473" + "i471" + "i469" + "i467" "i465" "i463" "i461" @@ -17785,18 +14916,4512 @@ ("i46" "i45" "i44"))) - (hygiene guile))) - 4) - #t - #f) - 'pad + (hygiene guile)))) + (eq? (#{id-var-name 4434}# + #{dots 13213}# + '(())) + (#{id-var-name 4434}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + '(()))) + #f) + #f)) + #{tmp 13208}#) + #f) + (@apply + (lambda (#{x 13314}# + #{dots 13315}# + #{ys 13316}#) + (call-with-values + (lambda () + (#{cvt* 12772}# + #{ys 13316}# + #{n 12778}# + #{ids 12779}#)) + (lambda (#{ys 13319}# #{ids 13320}#) + (call-with-values + (lambda () + (#{cvt 12774}# + #{x 13314}# + (#{1+}# #{n 12778}#) + #{ids 13320}#)) + (lambda (#{x 13321}# #{ids 13322}#) + (call-with-values + (lambda () + (#{v-reverse 12773}# + #{ys 13319}#)) + (lambda (#{ys 13355}# + #{e 13356}#) + (values + (vector + 'each+ + #{x 13321}# + #{ys 13355}# + #{e 13356}#) + #{ids 13322}#)))))))) + #{tmp 13208}#) + (let ((#{tmp 13357}# + ($sc-dispatch + #{p 12777}# + '(any . any)))) + (if #{tmp 13357}# + (@apply + (lambda (#{x 13361}# #{y 13362}#) + (call-with-values + (lambda () + (#{cvt 12774}# + #{y 13362}# + #{n 12778}# + #{ids 12779}#)) + (lambda (#{y 13363}# #{ids 13364}#) + (call-with-values + (lambda () + (#{cvt 12774}# + #{x 13361}# + #{n 12778}# + #{ids 13364}#)) + (lambda (#{x 13365}# + #{ids 13366}#) + (values + (cons #{x 13365}# + #{y 13363}#) + #{ids 13366}#)))))) + #{tmp 13357}#) + (let ((#{tmp 13367}# + ($sc-dispatch #{p 12777}# '()))) + (if #{tmp 13367}# + (@apply + (lambda () + (values '() #{ids 12779}#)) + #{tmp 13367}#) + (let ((#{tmp 13371}# + ($sc-dispatch + #{p 12777}# + '#(vector each-any)))) + (if #{tmp 13371}# + (@apply + (lambda (#{x 13375}#) + (call-with-values + (lambda () + (#{cvt 12774}# + #{x 13375}# + #{n 12778}# + #{ids 12779}#)) + (lambda (#{p 13376}# + #{ids 13377}#) + (values + (vector + 'vector + #{p 13376}#) + #{ids 13377}#)))) + #{tmp 13371}#) + (values + (vector + 'atom + (#{strip 4463}# + #{p 12777}# + '(()))) + #{ids 12779}#))))))))))))))) + (#{cvt 12774}# #{pattern 12770}# 0 '())))) + (#{build-dispatch-call 11174}# + (lambda (#{pvars 13490}# + #{exp 13491}# + #{y 13492}# + #{r 13493}# + #{mod 13494}#) + (let ((#{ids 13495}# (map car #{pvars 13490}#))) + (begin + (map cdr #{pvars 13490}#) + (let ((#{labels 13497}# + (#{gen-labels 4418}# #{ids 13495}#)) + (#{new-vars 13498}# + (map #{gen-var 4464}# #{ids 13495}#))) + (#{build-application 4382}# + #f + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'apply) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'apply + #f)) + (list (#{build-simple-lambda 4391}# + #f + (map syntax->datum #{ids 13495}#) + #f + #{new-vars 13498}# + '() + (#{expand 4450}# + #{exp 13491}# + (#{extend-env 4409}# + #{labels 13497}# + (map (lambda (#{var 13823}# #{level 13824}#) + (cons 'syntax + (cons #{var 13823}# + #{level 13824}#))) + #{new-vars 13498}# + (map cdr #{pvars 13490}#)) + #{r 13493}#) + (#{make-binding-wrap 4429}# + #{ids 13495}# + #{labels 13497}# + '(())) + #{mod 13494}#)) + #{y 13492}#))))))) + (#{gen-clause 11175}# + (lambda (#{x 12142}# + #{keys 12143}# + #{clauses 12144}# + #{r 12145}# + #{pat 12146}# + #{fender 12147}# + #{exp 12148}# + #{mod 12149}#) + (call-with-values + (lambda () + (#{convert-pattern 11173}# + #{pat 12146}# + #{keys 12143}#)) + (lambda (#{p 12304}# #{pvars 12305}#) + (if (not (#{distinct-bound-ids? 4441}# + (map car #{pvars 12305}#))) + (syntax-violation + 'syntax-case + "duplicate pattern variable" + #{pat 12146}#) + (if (not (and-map + (lambda (#{x 12421}#) + (not (let ((#{x 12425}# (car #{x 12421}#))) + (if (if (if (vector? #{x 12425}#) + (if (= (vector-length + #{x 12425}#) + 4) + (eq? (vector-ref + #{x 12425}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{x 12425}# 1)) + #f) + (if (eq? (if (if (vector? + #{x 12425}#) + (if (= (vector-length + #{x 12425}#) + 4) + (eq? (vector-ref + #{x 12425}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{x 12425}# + 1) + #{x 12425}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + 4) + #t + #f) + '... + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)))) + (eq? (#{id-var-name 4434}# + #{x 12425}# + '(())) + (#{id-var-name 4434}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + '(()))) + #f) + #f)))) + #{pvars 12305}#)) + (syntax-violation + 'syntax-case + "misplaced ellipsis" + #{pat 12146}#) + (let ((#{y 12501}# + (gensym + (string-append (symbol->string 'tmp) " ")))) + (#{build-application 4382}# + #f + (let ((#{req 12644}# (list 'tmp)) + (#{vars 12646}# (list #{y 12501}#)) + (#{exp 12648}# + (let ((#{y 12665}# + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #f + 'tmp + #{y 12501}#))) + (let ((#{test-exp 12669}# + (let ((#{tmp 12678}# + ($sc-dispatch + #{fender 12147}# + '#(atom #t)))) + (if #{tmp 12678}# + (@apply + (lambda () #{y 12665}#) + #{tmp 12678}#) + (let ((#{then-exp 12696}# + (#{build-dispatch-call 11174}# + #{pvars 12305}# + #{fender 12147}# + #{y 12665}# + #{r 12145}# + #{mod 12149}#)) + (#{else-exp 12697}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 1) + #f + #f))) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 10) + #f + #{y 12665}# + #{then-exp 12696}# + #{else-exp 12697}#))))) + (#{then-exp 12670}# + (#{build-dispatch-call 11174}# + #{pvars 12305}# + #{exp 12148}# + #{y 12665}# + #{r 12145}# + #{mod 12149}#)) + (#{else-exp 12671}# + (#{gen-syntax-case 11176}# + #{x 12142}# + #{keys 12143}# + #{clauses 12144}# + #{r 12145}# + #{mod 12149}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 10) + #f + #{test-exp 12669}# + #{then-exp 12670}# + #{else-exp 12671}#))))) + (let ((#{body 12653}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 12644}# + #f + #f + #f + '() + #{vars 12646}# + #{exp 12648}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 12653}#))) + (list (if (eq? #{p 12304}# 'any) + (let ((#{fun-exp 12719}# + (if (equal? + (module-name (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'list) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'list + #f))) + (#{arg-exps 12720}# + (list #{x 12142}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 12719}# + #{arg-exps 12720}#)) + (let ((#{fun-exp 12743}# + (if (equal? + (module-name (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + '$sc-dispatch) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + '$sc-dispatch + #f))) + (#{arg-exps 12744}# + (list #{x 12142}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 1) + #f + #{p 12304}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 12743}# + #{arg-exps 12744}#)))))))))))) + (#{gen-syntax-case 11176}# + (lambda (#{x 11575}# + #{keys 11576}# + #{clauses 11577}# + #{r 11578}# + #{mod 11579}#) + (if (null? #{clauses 11577}#) + (let ((#{fun-exp 11584}# + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'syntax-violation) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'syntax-violation + #f))) + (#{arg-exps 11585}# + (list (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #f) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + "source expression failed to match any pattern") + #{x 11575}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 11584}# + #{arg-exps 11585}#)) + (let ((#{tmp 11618}# (car #{clauses 11577}#))) + (let ((#{tmp 11619}# + ($sc-dispatch #{tmp 11618}# '(any any)))) + (if #{tmp 11619}# + (@apply + (lambda (#{pat 11621}# #{exp 11622}#) + (if (if (if (symbol? #{pat 11621}#) + #t + (if (if (vector? #{pat 11621}#) + (if (= (vector-length #{pat 11621}#) + 4) + (eq? (vector-ref #{pat 11621}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{pat 11621}# 1)) + #f)) + (and-map + (lambda (#{x 11649}#) + (not (if (eq? (if (if (vector? + #{pat 11621}#) + (if (= (vector-length + #{pat 11621}#) + 4) + (eq? (vector-ref + #{pat 11621}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{pat 11621}# + 1) + #{pat 11621}#) + (if (if (vector? + #{x 11649}#) + (if (= (vector-length + #{x 11649}#) + 4) + (eq? (vector-ref + #{x 11649}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 11649}# 1) + #{x 11649}#)) + (eq? (#{id-var-name 4434}# + #{pat 11621}# + '(())) + (#{id-var-name 4434}# + #{x 11649}# + '(()))) + #f))) + (cons '#(syntax-object + ... + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3969" "i3970")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3958" + "i3959" + "i3960" + "i3961" + "i3962")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3768" + "i3766" + "i3764" + "i3762")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)) + #{keys 11576}#)) + #f) + (if (if (eq? (if (if (= (vector-length + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3969" + "i3970")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3958" + "i3959" + "i3960" + "i3961" + "i3962")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3768" + "i3766" + "i3764" + "i3762")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + 4) + #t + #f) + 'pad + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3969" "i3970")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3958" + "i3959" + "i3960" + "i3961" + "i3962")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3768" + "i3766" + "i3764" + "i3762")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + (if (if (= (vector-length + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3969" + "i3970")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3958" + "i3959" + "i3960" + "i3961" + "i3962")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3768" + "i3766" + "i3764" + "i3762")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + 4) + #t + #f) + '_ + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3969" "i3970")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3958" + "i3959" + "i3960" + "i3961" + "i3962")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3768" + "i3766" + "i3764" + "i3762")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)))) + (eq? (#{id-var-name 4434}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3911" "i3912")) + #("i3969" "i3970")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -17805,21 +19430,21 @@ (top) (top) (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) + #("i3958" + "i3959" + "i3960" + "i3961" + "i3962")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) + ("i3768" + "i3766" + "i3764" + "i3762")) #(ribcage (lambda-var-list gen-var @@ -17849,6 +19474,9 @@ valid-bound-ids? bound-id=? free-id=? + with-transformer-environment + transformer-environment + resolve-identifier id-var-name same-marks? join-marks @@ -18092,8 +19720,14 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i467" + ("i473" + "i471" + "i469" + "i467" "i465" "i463" "i461" @@ -18235,474 +19869,16 @@ define-expansion-constructors) ((top) (top) (top)) ("i46" "i45" "i44"))) - (hygiene guile))) - (if (if (= (vector-length - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(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))) - 4) - #t - #f) - '_ + (hygiene guile)) + '(())) + (#{id-var-name 4434}# '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3911" "i3912")) + #("i3969" "i3970")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18711,21 +19887,21 @@ (top) (top) (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) + #("i3958" + "i3959" + "i3960" + "i3961" + "i3962")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) + ("i3768" + "i3766" + "i3764" + "i3762")) #(ribcage (lambda-var-list gen-var @@ -18755,6 +19931,9 @@ valid-bound-ids? bound-id=? free-id=? + with-transformer-environment + transformer-environment + resolve-identifier id-var-name same-marks? join-marks @@ -18998,8 +20177,14 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i467" + ("i473" + "i471" + "i469" + "i467" "i465" "i463" "i461" @@ -19141,1466 +20326,1030 @@ define-expansion-constructors) ((top) (top) (top)) ("i46" "i45" "i44"))) - (hygiene guile)))) - (eq? (#{id-var-name 4332}# - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(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)) - '(())) - (#{id-var-name 4332}# - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(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)) - '(()))) - #f) - (#{expand 4345}# - #{exp 12192}# - #{r 12148}# - '(()) - #{mod 12149}#) - (let ((#{labels 12395}# - (list (symbol->string (gensym "i")))) - (#{var 12396}# - (let ((#{id 12434}# - (if (if (vector? #{pat 12191}#) - (if (= (vector-length - #{pat 12191}#) - 4) - (eq? (vector-ref - #{pat 12191}# - 0) - 'syntax-object) + (hygiene guile)) + '(()))) + #f) + (#{expand 4450}# + #{exp 11622}# + #{r 11578}# + '(()) + #{mod 11579}#) + (let ((#{labels 11825}# + (list (symbol->string (gensym "i")))) + (#{var 11826}# + (let ((#{id 11864}# + (if (if (vector? #{pat 11621}#) + (if (= (vector-length + #{pat 11621}#) + 4) + (eq? (vector-ref + #{pat 11621}# + 0) + 'syntax-object) + #f) #f) - #f) - (vector-ref #{pat 12191}# 1) - #{pat 12191}#))) - (gensym - (string-append - (symbol->string #{id 12434}#) - " "))))) - (#{build-application 4280}# - #f - (#{build-simple-lambda 4289}# + (vector-ref #{pat 11621}# 1) + #{pat 11621}#))) + (gensym + (string-append + (symbol->string #{id 11864}#) + " "))))) + (#{build-application 4382}# #f - (list (syntax->datum #{pat 12191}#)) - #f - (list #{var 12396}#) - '() - (#{expand 4345}# - #{exp 12192}# - (#{extend-env 4307}# - #{labels 12395}# - (list (cons 'syntax - (cons #{var 12396}# 0))) - #{r 12148}#) - (#{make-binding-wrap 4327}# - (list #{pat 12191}#) - #{labels 12395}# - '(())) - #{mod 12149}#)) - (list #{x 12145}#)))) - (#{gen-clause 11745}# - #{x 12145}# - #{keys 12146}# - (cdr #{clauses 12147}#) - #{r 12148}# - #{pat 12191}# - #t - #{exp 12192}# - #{mod 12149}#))) - #{tmp 12189}#) - (let ((#{tmp 12704}# - ($sc-dispatch #{tmp 12188}# '(any any any)))) - (if #{tmp 12704}# - (@apply - (lambda (#{pat 12706}# - #{fender 12707}# - #{exp 12708}#) - (#{gen-clause 11745}# - #{x 12145}# - #{keys 12146}# - (cdr #{clauses 12147}#) - #{r 12148}# - #{pat 12706}# - #{fender 12707}# - #{exp 12708}# - #{mod 12149}#)) - #{tmp 12704}#) - (syntax-violation - 'syntax-case - "invalid clause" - (car #{clauses 12147}#))))))))))) - (lambda (#{e 11747}# - #{r 11748}# - #{w 11749}# - #{s 11750}# - #{mod 11751}#) - (let ((#{e 11752}# - (#{wrap 4338}# - (begin - (if (if (pair? #{e 11747}#) #{s 11750}# #f) - (set-source-properties! #{e 11747}# #{s 11750}#)) - #{e 11747}#) - #{w 11749}# - #{mod 11751}#))) - (let ((#{tmp 11754}# - ($sc-dispatch - #{e 11752}# - '(_ any each-any . each-any)))) - (if #{tmp 11754}# - (@apply - (lambda (#{val 11779}# #{key 11780}# #{m 11781}#) - (if (and-map - (lambda (#{x 11782}#) - (if (if (symbol? #{x 11782}#) - #t - (if (if (vector? #{x 11782}#) - (if (= (vector-length #{x 11782}#) 4) - (eq? (vector-ref #{x 11782}# 0) - 'syntax-object) + (#{build-simple-lambda 4391}# + #f + (list (syntax->datum #{pat 11621}#)) + #f + (list #{var 11826}#) + '() + (#{expand 4450}# + #{exp 11622}# + (#{extend-env 4409}# + #{labels 11825}# + (list (cons 'syntax + (cons #{var 11826}# 0))) + #{r 11578}#) + (#{make-binding-wrap 4429}# + (list #{pat 11621}#) + #{labels 11825}# + '(())) + #{mod 11579}#)) + (list #{x 11575}#)))) + (#{gen-clause 11175}# + #{x 11575}# + #{keys 11576}# + (cdr #{clauses 11577}#) + #{r 11578}# + #{pat 11621}# + #t + #{exp 11622}# + #{mod 11579}#))) + #{tmp 11619}#) + (let ((#{tmp 12134}# + ($sc-dispatch #{tmp 11618}# '(any any any)))) + (if #{tmp 12134}# + (@apply + (lambda (#{pat 12136}# + #{fender 12137}# + #{exp 12138}#) + (#{gen-clause 11175}# + #{x 11575}# + #{keys 11576}# + (cdr #{clauses 11577}#) + #{r 11578}# + #{pat 12136}# + #{fender 12137}# + #{exp 12138}# + #{mod 11579}#)) + #{tmp 12134}#) + (syntax-violation + 'syntax-case + "invalid clause" + (car #{clauses 11577}#))))))))))) + (lambda (#{e 11177}# + #{r 11178}# + #{w 11179}# + #{s 11180}# + #{mod 11181}#) + (let ((#{e 11182}# + (#{wrap 4443}# + (begin + (if (if (pair? #{e 11177}#) #{s 11180}# #f) + (set-source-properties! #{e 11177}# #{s 11180}#)) + #{e 11177}#) + #{w 11179}# + #{mod 11181}#))) + (let ((#{tmp 11184}# + ($sc-dispatch + #{e 11182}# + '(_ any each-any . each-any)))) + (if #{tmp 11184}# + (@apply + (lambda (#{val 11209}# #{key 11210}# #{m 11211}#) + (if (and-map + (lambda (#{x 11212}#) + (if (if (symbol? #{x 11212}#) + #t + (if (if (vector? #{x 11212}#) + (if (= (vector-length #{x 11212}#) 4) + (eq? (vector-ref #{x 11212}# 0) + 'syntax-object) + #f) #f) - #f) - (symbol? (vector-ref #{x 11782}# 1)) - #f)) - (not (if (if (if (vector? #{x 11782}#) - (if (= (vector-length #{x 11782}#) - 4) - (eq? (vector-ref #{x 11782}# 0) - 'syntax-object) + (symbol? (vector-ref #{x 11212}# 1)) + #f)) + (not (if (if (if (vector? #{x 11212}#) + (if (= (vector-length + #{x 11212}#) + 4) + (eq? (vector-ref + #{x 11212}# + 0) + 'syntax-object) + #f) #f) - #f) - (symbol? (vector-ref #{x 11782}# 1)) - #f) - (if (eq? (if (if (vector? #{x 11782}#) - (if (= (vector-length - #{x 11782}#) - 4) - (eq? (vector-ref - #{x 11782}# - 0) - 'syntax-object) + (symbol? (vector-ref #{x 11212}# 1)) + #f) + (if (eq? (if (if (vector? #{x 11212}#) + (if (= (vector-length + #{x 11212}#) + 4) + (eq? (vector-ref + #{x 11212}# + 0) + 'syntax-object) + #f) #f) - #f) - (vector-ref #{x 11782}# 1) - #{x 11782}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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))) - 4) - #t - #f) - '... + (vector-ref #{x 11212}# 1) + #{x 11212}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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))) + 4) + #t + #f) + '... + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2288")) + #(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=? + with-transformer-environment + transformer-environment + resolve-identifier + 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) + (top) + (top) + (top)) + ("i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "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)))) + (eq? (#{id-var-name 4434}# + #{x 11212}# + '(())) + (#{id-var-name 4434}# '#(syntax-object ... ((top) @@ -20609,7 +21358,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2288")) #(ribcage (lambda-var-list gen-var @@ -20639,6 +21388,9 @@ valid-bound-ids? bound-id=? free-id=? + with-transformer-environment + transformer-environment + resolve-identifier id-var-name same-marks? join-marks @@ -20882,8 +21634,14 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i467" + ("i473" + "i471" + "i469" + "i467" "i465" "i463" "i461" @@ -21025,1109 +21783,789 @@ define-expansion-constructors) ((top) (top) (top)) ("i46" "i45" "i44"))) - (hygiene guile)))) - (eq? (#{id-var-name 4332}# - #{x 11782}# - '(())) - (#{id-var-name 4332}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(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)) - '(()))) - #f) - #f)) - #f)) - #{key 11780}#) - (let ((#{x 11908}# - (gensym - (string-append (symbol->string 'tmp) " ")))) - (#{build-application 4280}# - #{s 11750}# - (let ((#{req 12038}# (list 'tmp)) - (#{vars 12040}# (list #{x 11908}#)) - (#{exp 12042}# - (#{gen-syntax-case 11746}# - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #f - 'tmp - #{x 11908}#) - #{key 11780}# - #{m 11781}# - #{r 11748}# - #{mod 11751}#))) - (let ((#{body 12047}# - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #f - #{req 12038}# - #f - #f - #f - '() - #{vars 12040}# - #{exp 12042}# - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #f - '() - #{body 12047}#))) - (list (#{expand 4345}# - #{val 11779}# - #{r 11748}# - '(()) - #{mod 11751}#)))) - (syntax-violation - 'syntax-case - "invalid literals list" - #{e 11752}#))) - #{tmp 11754}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 11752}#))))))) - (set! macroexpand - (lambda* - (#{x 14485}# - #:optional - (#{m 14486}# 'e) - (#{esew 14487}# '(eval))) - (#{expand-top-sequence 4341}# - (list #{x 14485}#) - '() - '((top)) - #f - #{m 14486}# - #{esew 14487}# - (cons 'hygiene (module-name (current-module)))))) - (set! identifier? - (lambda (#{x 14490}#) - (if (if (vector? #{x 14490}#) - (if (= (vector-length #{x 14490}#) 4) - (eq? (vector-ref #{x 14490}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 14490}# 1)) - #f))) - (set! datum->syntax - (lambda (#{id 14515}# #{datum 14516}#) - (let ((#{wrap 14521}# (vector-ref #{id 14515}# 2)) - (#{module 14522}# (vector-ref #{id 14515}# 3))) - (vector - 'syntax-object - #{datum 14516}# - #{wrap 14521}# - #{module 14522}#)))) - (set! syntax->datum - (lambda (#{x 14529}#) - (#{strip 4358}# #{x 14529}# '(())))) - (set! syntax-source - (lambda (#{x 14532}#) - (#{source-annotation 4306}# #{x 14532}#))) - (set! generate-temporaries - (lambda (#{ls 14685}#) - (begin - (if (not (list? #{ls 14685}#)) - (syntax-violation - 'generate-temporaries - "invalid argument" - #{ls 14685}#)) - (let ((#{mod 14693}# - (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 14694}#) - (#{wrap 4338}# (gensym) '((top)) #{mod 14693}#)) - #{ls 14685}#))))) - (set! free-identifier=? - (lambda (#{x 14698}# #{y 14699}#) - (begin - (if (not (if (if (vector? #{x 14698}#) - (if (= (vector-length #{x 14698}#) 4) - (eq? (vector-ref #{x 14698}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 14698}# 1)) - #f)) - (syntax-violation - 'free-identifier=? - "invalid argument" - #{x 14698}#)) - (if (not (if (if (vector? #{y 14699}#) - (if (= (vector-length #{y 14699}#) 4) - (eq? (vector-ref #{y 14699}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{y 14699}# 1)) - #f)) - (syntax-violation - 'free-identifier=? - "invalid argument" - #{y 14699}#)) - (if (eq? (if (if (vector? #{x 14698}#) - (if (= (vector-length #{x 14698}#) 4) - (eq? (vector-ref #{x 14698}# 0) 'syntax-object) - #f) - #f) - (vector-ref #{x 14698}# 1) - #{x 14698}#) - (if (if (vector? #{y 14699}#) - (if (= (vector-length #{y 14699}#) 4) - (eq? (vector-ref #{y 14699}# 0) 'syntax-object) - #f) - #f) - (vector-ref #{y 14699}# 1) - #{y 14699}#)) - (eq? (#{id-var-name 4332}# #{x 14698}# '(())) - (#{id-var-name 4332}# #{y 14699}# '(()))) - #f)))) - (set! bound-identifier=? - (lambda (#{x 14849}# #{y 14850}#) - (begin - (if (not (if (if (vector? #{x 14849}#) - (if (= (vector-length #{x 14849}#) 4) - (eq? (vector-ref #{x 14849}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 14849}# 1)) - #f)) - (syntax-violation - 'bound-identifier=? - "invalid argument" - #{x 14849}#)) - (if (not (if (if (vector? #{y 14850}#) - (if (= (vector-length #{y 14850}#) 4) - (eq? (vector-ref #{y 14850}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{y 14850}# 1)) - #f)) - (syntax-violation - 'bound-identifier=? - "invalid argument" - #{y 14850}#)) - (if (if (if (vector? #{x 14849}#) - (if (= (vector-length #{x 14849}#) 4) - (eq? (vector-ref #{x 14849}# 0) 'syntax-object) - #f) - #f) - (if (vector? #{y 14850}#) - (if (= (vector-length #{y 14850}#) 4) - (eq? (vector-ref #{y 14850}# 0) 'syntax-object) - #f) + (hygiene guile)) + '(()))) + #f) + #f)) + #f)) + #{key 11210}#) + (let ((#{x 11338}# + (gensym + (string-append (symbol->string 'tmp) " ")))) + (#{build-application 4382}# + #{s 11180}# + (let ((#{req 11468}# (list 'tmp)) + (#{vars 11470}# (list #{x 11338}#)) + (#{exp 11472}# + (#{gen-syntax-case 11176}# + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #f + 'tmp + #{x 11338}#) + #{key 11210}# + #{m 11211}# + #{r 11178}# + #{mod 11181}#))) + (let ((#{body 11477}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 11468}# + #f + #f + #f + '() + #{vars 11470}# + #{exp 11472}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 11477}#))) + (list (#{expand 4450}# + #{val 11209}# + #{r 11178}# + '(()) + #{mod 11181}#)))) + (syntax-violation + 'syntax-case + "invalid literals list" + #{e 11182}#))) + #{tmp 11184}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 11182}#))))))) + (set! macroexpand + (lambda* + (#{x 13915}# + #:optional + (#{m 13916}# 'e) + (#{esew 13917}# '(eval))) + (#{expand-top-sequence 4446}# + (list #{x 13915}#) + '() + '((top)) + #f + #{m 13916}# + #{esew 13917}# + (cons 'hygiene (module-name (current-module)))))) + (set! identifier? + (lambda (#{x 13920}#) + (if (if (vector? #{x 13920}#) + (if (= (vector-length #{x 13920}#) 4) + (eq? (vector-ref #{x 13920}# 0) 'syntax-object) #f) #f) - (if (eq? (vector-ref #{x 14849}# 1) - (vector-ref #{y 14850}# 1)) - (#{same-marks? 4331}# - (car (vector-ref #{x 14849}# 2)) - (car (vector-ref #{y 14850}# 2))) - #f) - (eq? #{x 14849}# #{y 14850}#))))) - (set! syntax-violation - (lambda* - (#{who 14983}# - #{message 14984}# - #{form 14985}# - #:optional - (#{subform 14986}# #f)) - (begin - (if (not (if (not #{who 14983}#) - (not #{who 14983}#) - (let ((#{t 15004}# (string? #{who 14983}#))) - (if #{t 15004}# - #{t 15004}# - (symbol? #{who 14983}#))))) - (syntax-violation - 'syntax-violation - "invalid argument" - #{who 14983}#)) - (if (not (string? #{message 14984}#)) - (syntax-violation - 'syntax-violation - "invalid argument" - #{message 14984}#)) - (throw 'syntax-error - #{who 14983}# - #{message 14984}# - (#{source-annotation 4306}# - (if #{form 14985}# - #{form 14985}# - #{subform 14986}#)) - (#{strip 4358}# #{form 14985}# '(())) - (if #{subform 14986}# - (#{strip 4358}# #{subform 14986}# '(())) - #f))))) - (letrec* - ((#{match-each 15207}# - (lambda (#{e 15794}# - #{p 15795}# - #{w 15796}# - #{mod 15797}#) - (if (pair? #{e 15794}#) - (let ((#{first 15798}# - (#{match 15213}# - (car #{e 15794}#) - #{p 15795}# - #{w 15796}# - '() - #{mod 15797}#))) - (if #{first 15798}# - (let ((#{rest 15801}# - (#{match-each 15207}# - (cdr #{e 15794}#) - #{p 15795}# - #{w 15796}# - #{mod 15797}#))) - (if #{rest 15801}# - (cons #{first 15798}# #{rest 15801}#) - #f)) - #f)) - (if (null? #{e 15794}#) - '() - (if (if (vector? #{e 15794}#) - (if (= (vector-length #{e 15794}#) 4) - (eq? (vector-ref #{e 15794}# 0) 'syntax-object) - #f) - #f) - (#{match-each 15207}# - (vector-ref #{e 15794}# 1) - #{p 15795}# - (#{join-wraps 4329}# - #{w 15796}# - (vector-ref #{e 15794}# 2)) - (vector-ref #{e 15794}# 3)) - #f))))) - (#{match-each-any 15209}# - (lambda (#{e 15829}# #{w 15830}# #{mod 15831}#) - (if (pair? #{e 15829}#) - (let ((#{l 15832}# - (#{match-each-any 15209}# - (cdr #{e 15829}#) - #{w 15830}# - #{mod 15831}#))) - (if #{l 15832}# - (cons (#{wrap 4338}# - (car #{e 15829}#) - #{w 15830}# - #{mod 15831}#) - #{l 15832}#) - #f)) - (if (null? #{e 15829}#) - '() - (if (if (vector? #{e 15829}#) - (if (= (vector-length #{e 15829}#) 4) - (eq? (vector-ref #{e 15829}# 0) 'syntax-object) - #f) - #f) - (#{match-each-any 15209}# - (vector-ref #{e 15829}# 1) - (#{join-wraps 4329}# - #{w 15830}# - (vector-ref #{e 15829}# 2)) - #{mod 15831}#) - #f))))) - (#{match-empty 15210}# - (lambda (#{p 15856}# #{r 15857}#) - (if (null? #{p 15856}#) - #{r 15857}# - (if (eq? #{p 15856}# '_) - #{r 15857}# - (if (eq? #{p 15856}# 'any) - (cons '() #{r 15857}#) - (if (pair? #{p 15856}#) - (#{match-empty 15210}# - (car #{p 15856}#) - (#{match-empty 15210}# - (cdr #{p 15856}#) - #{r 15857}#)) - (if (eq? #{p 15856}# 'each-any) - (cons '() #{r 15857}#) - (let ((#{atom-key 15858}# (vector-ref #{p 15856}# 0))) - (if (eqv? #{atom-key 15858}# 'each) - (#{match-empty 15210}# - (vector-ref #{p 15856}# 1) - #{r 15857}#) - (if (eqv? #{atom-key 15858}# 'each+) - (#{match-empty 15210}# - (vector-ref #{p 15856}# 1) - (#{match-empty 15210}# - (reverse (vector-ref #{p 15856}# 2)) - (#{match-empty 15210}# - (vector-ref #{p 15856}# 3) - #{r 15857}#))) - (if (if (eqv? #{atom-key 15858}# 'free-id) - #t - (eqv? #{atom-key 15858}# 'atom)) - #{r 15857}# - (if (eqv? #{atom-key 15858}# 'vector) - (#{match-empty 15210}# - (vector-ref #{p 15856}# 1) - #{r 15857}#))))))))))))) - (#{combine 15211}# - (lambda (#{r* 15877}# #{r 15878}#) - (if (null? (car #{r* 15877}#)) - #{r 15878}# - (cons (map car #{r* 15877}#) - (#{combine 15211}# - (map cdr #{r* 15877}#) - #{r 15878}#))))) - (#{match* 15212}# - (lambda (#{e 15242}# - #{p 15243}# - #{w 15244}# - #{r 15245}# - #{mod 15246}#) - (if (null? #{p 15243}#) - (if (null? #{e 15242}#) #{r 15245}# #f) - (if (pair? #{p 15243}#) - (if (pair? #{e 15242}#) - (#{match 15213}# - (car #{e 15242}#) - (car #{p 15243}#) - #{w 15244}# - (#{match 15213}# - (cdr #{e 15242}#) - (cdr #{p 15243}#) - #{w 15244}# - #{r 15245}# - #{mod 15246}#) - #{mod 15246}#) - #f) - (if (eq? #{p 15243}# 'each-any) - (let ((#{l 15251}# - (#{match-each-any 15209}# - #{e 15242}# - #{w 15244}# - #{mod 15246}#))) - (if #{l 15251}# - (cons #{l 15251}# #{r 15245}#) - #f)) - (let ((#{atom-key 15256}# (vector-ref #{p 15243}# 0))) - (if (eqv? #{atom-key 15256}# 'each) - (if (null? #{e 15242}#) - (#{match-empty 15210}# - (vector-ref #{p 15243}# 1) - #{r 15245}#) - (let ((#{l 15263}# - (#{match-each 15207}# - #{e 15242}# - (vector-ref #{p 15243}# 1) - #{w 15244}# - #{mod 15246}#))) - (if #{l 15263}# - (letrec* - ((#{collect 15266}# - (lambda (#{l 15317}#) - (if (null? (car #{l 15317}#)) - #{r 15245}# - (cons (map car #{l 15317}#) - (#{collect 15266}# - (map cdr #{l 15317}#))))))) - (#{collect 15266}# #{l 15263}#)) - #f))) - (if (eqv? #{atom-key 15256}# 'each+) - (call-with-values - (lambda () - (let ((#{x-pat 15326}# (vector-ref #{p 15243}# 1)) - (#{y-pat 15327}# (vector-ref #{p 15243}# 2)) - (#{z-pat 15328}# (vector-ref #{p 15243}# 3))) - (letrec* - ((#{f 15332}# - (lambda (#{e 15334}# #{w 15335}#) - (if (pair? #{e 15334}#) - (call-with-values - (lambda () - (#{f 15332}# - (cdr #{e 15334}#) - #{w 15335}#)) - (lambda (#{xr* 15336}# - #{y-pat 15337}# - #{r 15338}#) - (if #{r 15338}# - (if (null? #{y-pat 15337}#) - (let ((#{xr 15339}# - (#{match 15213}# - (car #{e 15334}#) - #{x-pat 15326}# - #{w 15335}# - '() - #{mod 15246}#))) - (if #{xr 15339}# - (values - (cons #{xr 15339}# - #{xr* 15336}#) - #{y-pat 15337}# - #{r 15338}#) - (values #f #f #f))) - (values - '() - (cdr #{y-pat 15337}#) - (#{match 15213}# - (car #{e 15334}#) - (car #{y-pat 15337}#) - #{w 15335}# - #{r 15338}# - #{mod 15246}#))) - (values #f #f #f)))) - (if (if (vector? #{e 15334}#) - (if (= (vector-length #{e 15334}#) - 4) - (eq? (vector-ref #{e 15334}# 0) - 'syntax-object) - #f) - #f) - (#{f 15332}# - (vector-ref #{e 15334}# 1) - (#{join-wraps 4329}# - #{w 15335}# - #{e 15334}#)) - (values - '() - #{y-pat 15327}# - (#{match 15213}# - #{e 15334}# - #{z-pat 15328}# - #{w 15335}# - #{r 15245}# - #{mod 15246}#))))))) - (#{f 15332}# #{e 15242}# #{w 15244}#)))) - (lambda (#{xr* 15365}# #{y-pat 15366}# #{r 15367}#) - (if #{r 15367}# - (if (null? #{y-pat 15366}#) - (if (null? #{xr* 15365}#) - (#{match-empty 15210}# - (vector-ref #{p 15243}# 1) - #{r 15367}#) - (#{combine 15211}# #{xr* 15365}# #{r 15367}#)) - #f) - #f))) - (if (eqv? #{atom-key 15256}# 'free-id) - (if (if (symbol? #{e 15242}#) - #t - (if (if (vector? #{e 15242}#) - (if (= (vector-length #{e 15242}#) 4) - (eq? (vector-ref #{e 15242}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{e 15242}# 1)) - #f)) - (if (let ((#{i 15698}# - (#{wrap 4338}# - #{e 15242}# - #{w 15244}# - #{mod 15246}#)) - (#{j 15699}# (vector-ref #{p 15243}# 1))) - (if (eq? (if (if (vector? #{i 15698}#) - (if (= (vector-length - #{i 15698}#) - 4) - (eq? (vector-ref - #{i 15698}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{i 15698}# 1) - #{i 15698}#) - (if (if (vector? #{j 15699}#) - (if (= (vector-length - #{j 15699}#) - 4) - (eq? (vector-ref - #{j 15699}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{j 15699}# 1) - #{j 15699}#)) - (eq? (#{id-var-name 4332}# - #{i 15698}# - '(())) - (#{id-var-name 4332}# - #{j 15699}# - '(()))) - #f)) - #{r 15245}# + (symbol? (vector-ref #{x 13920}# 1)) + #f))) + (set! datum->syntax + (lambda (#{id 13945}# #{datum 13946}#) + (let ((#{wrap 13951}# (vector-ref #{id 13945}# 2)) + (#{module 13952}# (vector-ref #{id 13945}# 3))) + (vector + 'syntax-object + #{datum 13946}# + #{wrap 13951}# + #{module 13952}#)))) + (set! syntax->datum + (lambda (#{x 13959}#) + (#{strip 4463}# #{x 13959}# '(())))) + (set! syntax-source + (lambda (#{x 13962}#) + (#{source-annotation 4408}# #{x 13962}#))) + (set! syntax-local-binding + (lambda (#{id 14115}#) + (begin + (if (not (if (if (vector? #{id 14115}#) + (if (= (vector-length #{id 14115}#) 4) + (eq? (vector-ref #{id 14115}# 0) 'syntax-object) #f) #f) - (if (eqv? #{atom-key 15256}# 'atom) - (if (equal? - (vector-ref #{p 15243}# 1) - (#{strip 4358}# #{e 15242}# #{w 15244}#)) - #{r 15245}# + (symbol? (vector-ref #{id 14115}# 1)) + #f)) + (syntax-violation + 'syntax-local-value + "invalid argument" + #{id 14115}#)) + ((fluid-ref #{transformer-environment 4436}#) + (lambda (#{e 14156}# + #{r 14157}# + #{w 14158}# + #{s 14159}# + #{rib 14160}# + #{mod 14161}#) + (call-with-values + (lambda () + (let ((#{id 14164}# (vector-ref #{id 14115}# 1)) + (#{w 14165}# + (let ((#{w 14176}# (vector-ref #{id 14115}# 2))) + (let ((#{ms 14177}# (car #{w 14176}#)) + (#{s 14178}# (cdr #{w 14176}#))) + (if (if (pair? #{ms 14177}#) + (eq? (car #{ms 14177}#) #f) + #f) + (cons (cdr #{ms 14177}#) + (if #{rib 14160}# + (cons #{rib 14160}# (cdr #{s 14178}#)) + (cdr #{s 14178}#))) + (cons #{ms 14177}# + (if #{rib 14160}# + (cons #{rib 14160}# #{s 14178}#) + #{s 14178}#)))))) + (#{mod 14167}# (vector-ref #{id 14115}# 3))) + (let ((#{n 14170}# + (#{id-var-name 4434}# #{id 14164}# #{w 14165}#))) + (if (symbol? #{n 14170}#) + (let ((#{mod 14184}# + (if (if (vector? #{id 14164}#) + (if (= (vector-length #{id 14164}#) 4) + (eq? (vector-ref #{id 14164}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 14164}# 3) + #{mod 14167}#))) + (let ((#{b 14185}# + (let ((#{t 14186}# + (#{get-global-definition-hook 4378}# + #{n 14170}# + #{mod 14184}#))) + (if #{t 14186}# #{t 14186}# '(global))))) + (if (eq? (car #{b 14185}#) 'global) + (values 'global #{n 14170}# #{mod 14184}#) + (values + (car #{b 14185}#) + (cdr #{b 14185}#) + #{mod 14184}#)))) + (if (string? #{n 14170}#) + (let ((#{mod 14212}# + (if (if (vector? #{id 14164}#) + (if (= (vector-length #{id 14164}#) 4) + (eq? (vector-ref #{id 14164}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 14164}# 3) + #{mod 14167}#))) + (let ((#{b 14213}# + (let ((#{t 14214}# + (assq-ref + #{r 14157}# + #{n 14170}#))) + (if #{t 14214}# + #{t 14214}# + '(displaced-lexical))))) + (values + (car #{b 14213}#) + (cdr #{b 14213}#) + #{mod 14212}#))) + (error "unexpected id-var-name" + #{id 14164}# + #{w 14165}# + #{n 14170}#)))))) + (lambda (#{type 14227}# #{value 14228}# #{mod 14229}#) + (if (eqv? #{type 14227}# 'lexical) + (values 'lexical #{value 14228}#) + (if (eqv? #{type 14227}# 'macro) + (values 'macro #{value 14228}#) + (if (eqv? #{type 14227}# 'syntax) + (values 'pattern-variable #{value 14228}#) + (if (eqv? #{type 14227}# 'displaced-lexical) + (values 'displaced-lexical #f) + (if (eqv? #{type 14227}# 'global) + (values + 'global + (cons #{value 14228}# #{mod 14229}#)) + (values 'other #f))))))))))))) + (set! generate-temporaries + (lambda (#{ls 14240}#) + (begin + (if (not (list? #{ls 14240}#)) + (syntax-violation + 'generate-temporaries + "invalid argument" + #{ls 14240}#)) + (let ((#{mod 14248}# + (cons 'hygiene (module-name (current-module))))) + (map (lambda (#{x 14249}#) + (#{wrap 4443}# (gensym) '((top)) #{mod 14248}#)) + #{ls 14240}#))))) + (set! free-identifier=? + (lambda (#{x 14253}# #{y 14254}#) + (begin + (if (not (if (if (vector? #{x 14253}#) + (if (= (vector-length #{x 14253}#) 4) + (eq? (vector-ref #{x 14253}# 0) 'syntax-object) #f) - (if (eqv? #{atom-key 15256}# 'vector) - (if (vector? #{e 15242}#) - (#{match 15213}# - (vector->list #{e 15242}#) - (vector-ref #{p 15243}# 1) - #{w 15244}# - #{r 15245}# - #{mod 15246}#) - #f)))))))))))) - (#{match 15213}# - (lambda (#{e 15759}# - #{p 15760}# - #{w 15761}# - #{r 15762}# - #{mod 15763}#) - (if (not #{r 15762}#) - #f - (if (eq? #{p 15760}# '_) - #{r 15762}# - (if (eq? #{p 15760}# 'any) - (cons (#{wrap 4338}# - #{e 15759}# - #{w 15761}# - #{mod 15763}#) - #{r 15762}#) - (if (if (vector? #{e 15759}#) - (if (= (vector-length #{e 15759}#) 4) - (eq? (vector-ref #{e 15759}# 0) 'syntax-object) - #f) - #f) - (#{match* 15212}# - (vector-ref #{e 15759}# 1) - #{p 15760}# - (#{join-wraps 4329}# - #{w 15761}# - (vector-ref #{e 15759}# 2)) - #{r 15762}# - (vector-ref #{e 15759}# 3)) - (#{match* 15212}# - #{e 15759}# - #{p 15760}# - #{w 15761}# - #{r 15762}# - #{mod 15763}#)))))))) - (set! $sc-dispatch - (lambda (#{e 15214}# #{p 15215}#) - (if (eq? #{p 15215}# 'any) - (list #{e 15214}#) - (if (eq? #{p 15215}# '_) - '() - (if (if (vector? #{e 15214}#) - (if (= (vector-length #{e 15214}#) 4) - (eq? (vector-ref #{e 15214}# 0) 'syntax-object) + #f) + (symbol? (vector-ref #{x 14253}# 1)) + #f)) + (syntax-violation + 'free-identifier=? + "invalid argument" + #{x 14253}#)) + (if (not (if (if (vector? #{y 14254}#) + (if (= (vector-length #{y 14254}#) 4) + (eq? (vector-ref #{y 14254}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{y 14254}# 1)) + #f)) + (syntax-violation + 'free-identifier=? + "invalid argument" + #{y 14254}#)) + (if (eq? (if (if (vector? #{x 14253}#) + (if (= (vector-length #{x 14253}#) 4) + (eq? (vector-ref #{x 14253}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{x 14253}# 1) + #{x 14253}#) + (if (if (vector? #{y 14254}#) + (if (= (vector-length #{y 14254}#) 4) + (eq? (vector-ref #{y 14254}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{y 14254}# 1) + #{y 14254}#)) + (eq? (#{id-var-name 4434}# #{x 14253}# '(())) + (#{id-var-name 4434}# #{y 14254}# '(()))) + #f)))) + (set! bound-identifier=? + (lambda (#{x 14404}# #{y 14405}#) + (begin + (if (not (if (if (vector? #{x 14404}#) + (if (= (vector-length #{x 14404}#) 4) + (eq? (vector-ref #{x 14404}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 14404}# 1)) + #f)) + (syntax-violation + 'bound-identifier=? + "invalid argument" + #{x 14404}#)) + (if (not (if (if (vector? #{y 14405}#) + (if (= (vector-length #{y 14405}#) 4) + (eq? (vector-ref #{y 14405}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{y 14405}# 1)) + #f)) + (syntax-violation + 'bound-identifier=? + "invalid argument" + #{y 14405}#)) + (if (if (if (vector? #{x 14404}#) + (if (= (vector-length #{x 14404}#) 4) + (eq? (vector-ref #{x 14404}# 0) 'syntax-object) + #f) + #f) + (if (vector? #{y 14405}#) + (if (= (vector-length #{y 14405}#) 4) + (eq? (vector-ref #{y 14405}# 0) 'syntax-object) #f) #f) - (#{match* 15212}# - (vector-ref #{e 15214}# 1) - #{p 15215}# - (vector-ref #{e 15214}# 2) - '() - (vector-ref #{e 15214}# 3)) - (#{match* 15212}# - #{e 15214}# - #{p 15215}# - '(()) - '() - #f))))))))) + #f) + (if (eq? (vector-ref #{x 14404}# 1) + (vector-ref #{y 14405}# 1)) + (#{same-marks? 4433}# + (car (vector-ref #{x 14404}# 2)) + (car (vector-ref #{y 14405}# 2))) + #f) + (eq? #{x 14404}# #{y 14405}#))))) + (set! syntax-violation + (lambda* + (#{who 14538}# + #{message 14539}# + #{form 14540}# + #:optional + (#{subform 14541}# #f)) + (begin + (if (not (if (not #{who 14538}#) + (not #{who 14538}#) + (let ((#{t 14559}# (string? #{who 14538}#))) + (if #{t 14559}# + #{t 14559}# + (symbol? #{who 14538}#))))) + (syntax-violation + 'syntax-violation + "invalid argument" + #{who 14538}#)) + (if (not (string? #{message 14539}#)) + (syntax-violation + 'syntax-violation + "invalid argument" + #{message 14539}#)) + (throw 'syntax-error + #{who 14538}# + #{message 14539}# + (#{source-annotation 4408}# + (if #{form 14540}# + #{form 14540}# + #{subform 14541}#)) + (#{strip 4463}# #{form 14540}# '(())) + (if #{subform 14541}# + (#{strip 4463}# #{subform 14541}# '(())) + #f))))) + (letrec* + ((#{match-each 14762}# + (lambda (#{e 15349}# + #{p 15350}# + #{w 15351}# + #{mod 15352}#) + (if (pair? #{e 15349}#) + (let ((#{first 15353}# + (#{match 14768}# + (car #{e 15349}#) + #{p 15350}# + #{w 15351}# + '() + #{mod 15352}#))) + (if #{first 15353}# + (let ((#{rest 15356}# + (#{match-each 14762}# + (cdr #{e 15349}#) + #{p 15350}# + #{w 15351}# + #{mod 15352}#))) + (if #{rest 15356}# + (cons #{first 15353}# #{rest 15356}#) + #f)) + #f)) + (if (null? #{e 15349}#) + '() + (if (if (vector? #{e 15349}#) + (if (= (vector-length #{e 15349}#) 4) + (eq? (vector-ref #{e 15349}# 0) 'syntax-object) + #f) + #f) + (#{match-each 14762}# + (vector-ref #{e 15349}# 1) + #{p 15350}# + (#{join-wraps 4431}# + #{w 15351}# + (vector-ref #{e 15349}# 2)) + (vector-ref #{e 15349}# 3)) + #f))))) + (#{match-each-any 14764}# + (lambda (#{e 15384}# #{w 15385}# #{mod 15386}#) + (if (pair? #{e 15384}#) + (let ((#{l 15387}# + (#{match-each-any 14764}# + (cdr #{e 15384}#) + #{w 15385}# + #{mod 15386}#))) + (if #{l 15387}# + (cons (#{wrap 4443}# + (car #{e 15384}#) + #{w 15385}# + #{mod 15386}#) + #{l 15387}#) + #f)) + (if (null? #{e 15384}#) + '() + (if (if (vector? #{e 15384}#) + (if (= (vector-length #{e 15384}#) 4) + (eq? (vector-ref #{e 15384}# 0) 'syntax-object) + #f) + #f) + (#{match-each-any 14764}# + (vector-ref #{e 15384}# 1) + (#{join-wraps 4431}# + #{w 15385}# + (vector-ref #{e 15384}# 2)) + #{mod 15386}#) + #f))))) + (#{match-empty 14765}# + (lambda (#{p 15411}# #{r 15412}#) + (if (null? #{p 15411}#) + #{r 15412}# + (if (eq? #{p 15411}# '_) + #{r 15412}# + (if (eq? #{p 15411}# 'any) + (cons '() #{r 15412}#) + (if (pair? #{p 15411}#) + (#{match-empty 14765}# + (car #{p 15411}#) + (#{match-empty 14765}# + (cdr #{p 15411}#) + #{r 15412}#)) + (if (eq? #{p 15411}# 'each-any) + (cons '() #{r 15412}#) + (let ((#{atom-key 15413}# (vector-ref #{p 15411}# 0))) + (if (eqv? #{atom-key 15413}# 'each) + (#{match-empty 14765}# + (vector-ref #{p 15411}# 1) + #{r 15412}#) + (if (eqv? #{atom-key 15413}# 'each+) + (#{match-empty 14765}# + (vector-ref #{p 15411}# 1) + (#{match-empty 14765}# + (reverse (vector-ref #{p 15411}# 2)) + (#{match-empty 14765}# + (vector-ref #{p 15411}# 3) + #{r 15412}#))) + (if (if (eqv? #{atom-key 15413}# 'free-id) + #t + (eqv? #{atom-key 15413}# 'atom)) + #{r 15412}# + (if (eqv? #{atom-key 15413}# 'vector) + (#{match-empty 14765}# + (vector-ref #{p 15411}# 1) + #{r 15412}#))))))))))))) + (#{combine 14766}# + (lambda (#{r* 15432}# #{r 15433}#) + (if (null? (car #{r* 15432}#)) + #{r 15433}# + (cons (map car #{r* 15432}#) + (#{combine 14766}# + (map cdr #{r* 15432}#) + #{r 15433}#))))) + (#{match* 14767}# + (lambda (#{e 14797}# + #{p 14798}# + #{w 14799}# + #{r 14800}# + #{mod 14801}#) + (if (null? #{p 14798}#) + (if (null? #{e 14797}#) #{r 14800}# #f) + (if (pair? #{p 14798}#) + (if (pair? #{e 14797}#) + (#{match 14768}# + (car #{e 14797}#) + (car #{p 14798}#) + #{w 14799}# + (#{match 14768}# + (cdr #{e 14797}#) + (cdr #{p 14798}#) + #{w 14799}# + #{r 14800}# + #{mod 14801}#) + #{mod 14801}#) + #f) + (if (eq? #{p 14798}# 'each-any) + (let ((#{l 14806}# + (#{match-each-any 14764}# + #{e 14797}# + #{w 14799}# + #{mod 14801}#))) + (if #{l 14806}# + (cons #{l 14806}# #{r 14800}#) + #f)) + (let ((#{atom-key 14811}# (vector-ref #{p 14798}# 0))) + (if (eqv? #{atom-key 14811}# 'each) + (if (null? #{e 14797}#) + (#{match-empty 14765}# + (vector-ref #{p 14798}# 1) + #{r 14800}#) + (let ((#{l 14818}# + (#{match-each 14762}# + #{e 14797}# + (vector-ref #{p 14798}# 1) + #{w 14799}# + #{mod 14801}#))) + (if #{l 14818}# + (letrec* + ((#{collect 14821}# + (lambda (#{l 14872}#) + (if (null? (car #{l 14872}#)) + #{r 14800}# + (cons (map car #{l 14872}#) + (#{collect 14821}# + (map cdr #{l 14872}#))))))) + (#{collect 14821}# #{l 14818}#)) + #f))) + (if (eqv? #{atom-key 14811}# 'each+) + (call-with-values + (lambda () + (let ((#{x-pat 14881}# (vector-ref #{p 14798}# 1)) + (#{y-pat 14882}# (vector-ref #{p 14798}# 2)) + (#{z-pat 14883}# + (vector-ref #{p 14798}# 3))) + (letrec* + ((#{f 14887}# + (lambda (#{e 14889}# #{w 14890}#) + (if (pair? #{e 14889}#) + (call-with-values + (lambda () + (#{f 14887}# + (cdr #{e 14889}#) + #{w 14890}#)) + (lambda (#{xr* 14891}# + #{y-pat 14892}# + #{r 14893}#) + (if #{r 14893}# + (if (null? #{y-pat 14892}#) + (let ((#{xr 14894}# + (#{match 14768}# + (car #{e 14889}#) + #{x-pat 14881}# + #{w 14890}# + '() + #{mod 14801}#))) + (if #{xr 14894}# + (values + (cons #{xr 14894}# + #{xr* 14891}#) + #{y-pat 14892}# + #{r 14893}#) + (values #f #f #f))) + (values + '() + (cdr #{y-pat 14892}#) + (#{match 14768}# + (car #{e 14889}#) + (car #{y-pat 14892}#) + #{w 14890}# + #{r 14893}# + #{mod 14801}#))) + (values #f #f #f)))) + (if (if (vector? #{e 14889}#) + (if (= (vector-length + #{e 14889}#) + 4) + (eq? (vector-ref #{e 14889}# 0) + 'syntax-object) + #f) + #f) + (#{f 14887}# + (vector-ref #{e 14889}# 1) + (#{join-wraps 4431}# + #{w 14890}# + #{e 14889}#)) + (values + '() + #{y-pat 14882}# + (#{match 14768}# + #{e 14889}# + #{z-pat 14883}# + #{w 14890}# + #{r 14800}# + #{mod 14801}#))))))) + (#{f 14887}# #{e 14797}# #{w 14799}#)))) + (lambda (#{xr* 14920}# #{y-pat 14921}# #{r 14922}#) + (if #{r 14922}# + (if (null? #{y-pat 14921}#) + (if (null? #{xr* 14920}#) + (#{match-empty 14765}# + (vector-ref #{p 14798}# 1) + #{r 14922}#) + (#{combine 14766}# + #{xr* 14920}# + #{r 14922}#)) + #f) + #f))) + (if (eqv? #{atom-key 14811}# 'free-id) + (if (if (symbol? #{e 14797}#) + #t + (if (if (vector? #{e 14797}#) + (if (= (vector-length #{e 14797}#) 4) + (eq? (vector-ref #{e 14797}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{e 14797}# 1)) + #f)) + (if (let ((#{i 15253}# + (#{wrap 4443}# + #{e 14797}# + #{w 14799}# + #{mod 14801}#)) + (#{j 15254}# + (vector-ref #{p 14798}# 1))) + (if (eq? (if (if (vector? #{i 15253}#) + (if (= (vector-length + #{i 15253}#) + 4) + (eq? (vector-ref + #{i 15253}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{i 15253}# 1) + #{i 15253}#) + (if (if (vector? #{j 15254}#) + (if (= (vector-length + #{j 15254}#) + 4) + (eq? (vector-ref + #{j 15254}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{j 15254}# 1) + #{j 15254}#)) + (eq? (#{id-var-name 4434}# + #{i 15253}# + '(())) + (#{id-var-name 4434}# + #{j 15254}# + '(()))) + #f)) + #{r 14800}# + #f) + #f) + (if (eqv? #{atom-key 14811}# 'atom) + (if (equal? + (vector-ref #{p 14798}# 1) + (#{strip 4463}# #{e 14797}# #{w 14799}#)) + #{r 14800}# + #f) + (if (eqv? #{atom-key 14811}# 'vector) + (if (vector? #{e 14797}#) + (#{match 14768}# + (vector->list #{e 14797}#) + (vector-ref #{p 14798}# 1) + #{w 14799}# + #{r 14800}# + #{mod 14801}#) + #f)))))))))))) + (#{match 14768}# + (lambda (#{e 15314}# + #{p 15315}# + #{w 15316}# + #{r 15317}# + #{mod 15318}#) + (if (not #{r 15317}#) + #f + (if (eq? #{p 15315}# '_) + #{r 15317}# + (if (eq? #{p 15315}# 'any) + (cons (#{wrap 4443}# + #{e 15314}# + #{w 15316}# + #{mod 15318}#) + #{r 15317}#) + (if (if (vector? #{e 15314}#) + (if (= (vector-length #{e 15314}#) 4) + (eq? (vector-ref #{e 15314}# 0) 'syntax-object) + #f) + #f) + (#{match* 14767}# + (vector-ref #{e 15314}# 1) + #{p 15315}# + (#{join-wraps 4431}# + #{w 15316}# + (vector-ref #{e 15314}# 2)) + #{r 15317}# + (vector-ref #{e 15314}# 3)) + (#{match* 14767}# + #{e 15314}# + #{p 15315}# + #{w 15316}# + #{r 15317}# + #{mod 15318}#)))))))) + (set! $sc-dispatch + (lambda (#{e 14769}# #{p 14770}#) + (if (eq? #{p 14770}# 'any) + (list #{e 14769}#) + (if (eq? #{p 14770}# '_) + '() + (if (if (vector? #{e 14769}#) + (if (= (vector-length #{e 14769}#) 4) + (eq? (vector-ref #{e 14769}# 0) 'syntax-object) + #f) + #f) + (#{match* 14767}# + (vector-ref #{e 14769}# 1) + #{p 14770}# + (vector-ref #{e 14769}# 2) + '() + (vector-ref #{e 14769}# 3)) + (#{match* 14767}# + #{e 14769}# + #{p 14770}# + '(()) + '() + #f)))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 28049}#) - (let ((#{tmp 28051}# - ($sc-dispatch #{x 28049}# '(_ () any . each-any)))) - (if #{tmp 28051}# + (lambda (#{x 26694}#) + (let ((#{tmp 26696}# + ($sc-dispatch #{x 26694}# '(_ () any . each-any)))) + (if #{tmp 26696}# (@apply - (lambda (#{e1 28055}# #{e2 28056}#) + (lambda (#{e1 26700}# #{e2 26701}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28022" "i28023")) + #("i26667" "i26668")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28019"))) + #(ribcage #(x) #((top)) #("i26664"))) (hygiene guile)) - (cons '() (cons #{e1 28055}# #{e2 28056}#)))) - #{tmp 28051}#) - (let ((#{tmp 28057}# + (cons '() (cons #{e1 26700}# #{e2 26701}#)))) + #{tmp 26696}#) + (let ((#{tmp 26702}# ($sc-dispatch - #{x 28049}# + #{x 26694}# '(_ ((any any)) any . each-any)))) - (if #{tmp 28057}# + (if #{tmp 26702}# (@apply - (lambda (#{out 28061}# - #{in 28062}# - #{e1 28063}# - #{e2 28064}#) + (lambda (#{out 26706}# + #{in 26707}# + #{e1 26708}# + #{e2 26709}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28028" "i28029" "i28030" "i28031")) + #("i26673" "i26674" "i26675" "i26676")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28019"))) + #(ribcage #(x) #((top)) #("i26664"))) (hygiene guile)) - #{in 28062}# + #{in 26707}# '() - (list #{out 28061}# + (list #{out 26706}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28028" - "i28029" - "i28030" - "i28031")) + #("i26673" + "i26674" + "i26675" + "i26676")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28019"))) + #(ribcage #(x) #((top)) #("i26664"))) (hygiene guile)) (cons '() - (cons #{e1 28063}# #{e2 28064}#)))))) - #{tmp 28057}#) - (let ((#{tmp 28065}# + (cons #{e1 26708}# #{e2 26709}#)))))) + #{tmp 26702}#) + (let ((#{tmp 26710}# ($sc-dispatch - #{x 28049}# + #{x 26694}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 28065}# + (if #{tmp 26710}# (@apply - (lambda (#{out 28069}# - #{in 28070}# - #{e1 28071}# - #{e2 28072}#) + (lambda (#{out 26714}# + #{in 26715}# + #{e1 26716}# + #{e2 26717}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28038" "i28039" "i28040" "i28041")) + #("i26683" "i26684" "i26685" "i26686")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28019"))) + #(ribcage #(x) #((top)) #("i26664"))) (hygiene guile)) (cons '#(syntax-object list @@ -22135,62 +22573,62 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28038" "i28039" "i28040" "i28041")) + #("i26683" "i26684" "i26685" "i26686")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28019"))) + #(ribcage #(x) #((top)) #("i26664"))) (hygiene guile)) - #{in 28070}#) + #{in 26715}#) '() - (list #{out 28069}# + (list #{out 26714}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28038" - "i28039" - "i28040" - "i28041")) + #("i26683" + "i26684" + "i26685" + "i26686")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28019"))) + #("i26664"))) (hygiene guile)) (cons '() - (cons #{e1 28071}# - #{e2 28072}#)))))) - #{tmp 28065}#) + (cons #{e1 26716}# + #{e2 26717}#)))))) + #{tmp 26710}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28049}#)))))))))) + #{x 26694}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 28126}#) - (let ((#{tmp 28128}# + (lambda (#{x 26771}#) + (let ((#{tmp 26773}# ($sc-dispatch - #{x 28126}# + #{x 26771}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 28128}# + (if #{tmp 26773}# (@apply - (lambda (#{k 28132}# - #{keyword 28133}# - #{pattern 28134}# - #{template 28135}#) + (lambda (#{k 26777}# + #{keyword 26778}# + #{pattern 26779}# + #{template 26780}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28089" "i28090" "i28091" "i28092")) + #("i26734" "i26735" "i26736" "i26737")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) '(#(syntax-object x @@ -22198,9 +22636,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28089" "i28090" "i28091" "i28092")) + #("i26734" "i26735" "i26736" "i26737")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile))) (vector '(#(syntax-object @@ -22209,9 +22647,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28089" "i28090" "i28091" "i28092")) + #("i26734" "i26735" "i26736" "i26737")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) . #(syntax-object @@ -22220,9 +22658,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28089" "i28090" "i28091" "i28092")) + #("i26734" "i26735" "i26736" "i26737")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22230,20 +22668,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28089" "i28090" "i28091" "i28092")) + #("i26734" "i26735" "i26736" "i26737")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) - #{pattern 28134}#)) + #{pattern 26779}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28089" "i28090" "i28091" "i28092")) + #("i26734" "i26735" "i26736" "i26737")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) (cons '#(syntax-object x @@ -22251,13 +22689,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28089" "i28090" "i28091" "i28092")) + #("i26734" "i26735" "i26736" "i26737")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) - (cons #{k 28132}# - (map (lambda (#{tmp 28100 28136}# - #{tmp 28099 28137}#) + (cons #{k 26777}# + (map (lambda (#{tmp 26745 26781}# + #{tmp 26744 26782}#) (list (cons '#(syntax-object dummy ((top) @@ -22270,10 +22708,10 @@ (top) (top) (top)) - #("i28089" - "i28090" - "i28091" - "i28092")) + #("i26734" + "i26735" + "i26736" + "i26737")) #(ribcage () () @@ -22281,9 +22719,9 @@ #(ribcage #(x) #((top)) - #("i28086"))) + #("i26731"))) (hygiene guile)) - #{tmp 28099 28137}#) + #{tmp 26744 26782}#) (list '#(syntax-object syntax ((top) @@ -22296,10 +22734,10 @@ (top) (top) (top)) - #("i28089" - "i28090" - "i28091" - "i28092")) + #("i26734" + "i26735" + "i26736" + "i26737")) #(ribcage () () @@ -22307,41 +22745,41 @@ #(ribcage #(x) #((top)) - #("i28086"))) + #("i26731"))) (hygiene guile)) - #{tmp 28100 28136}#))) - #{template 28135}# - #{pattern 28134}#)))))) - #{tmp 28128}#) - (let ((#{tmp 28138}# + #{tmp 26745 26781}#))) + #{template 26780}# + #{pattern 26779}#)))))) + #{tmp 26773}#) + (let ((#{tmp 26783}# ($sc-dispatch - #{x 28126}# + #{x 26771}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 28138}# + (if (if #{tmp 26783}# (@apply - (lambda (#{k 28142}# - #{docstring 28143}# - #{keyword 28144}# - #{pattern 28145}# - #{template 28146}#) - (string? (syntax->datum #{docstring 28143}#))) - #{tmp 28138}#) + (lambda (#{k 26787}# + #{docstring 26788}# + #{keyword 26789}# + #{pattern 26790}# + #{template 26791}#) + (string? (syntax->datum #{docstring 26788}#))) + #{tmp 26783}#) #f) (@apply - (lambda (#{k 28147}# - #{docstring 28148}# - #{keyword 28149}# - #{pattern 28150}# - #{template 28151}#) + (lambda (#{k 26792}# + #{docstring 26793}# + #{keyword 26794}# + #{pattern 26795}# + #{template 26796}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28112" "i28113" "i28114" "i28115" "i28116")) + #("i26757" "i26758" "i26759" "i26760" "i26761")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) '(#(syntax-object x @@ -22349,11 +22787,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28112" "i28113" "i28114" "i28115" "i28116")) + #("i26757" "i26758" "i26759" "i26760" "i26761")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile))) - #{docstring 28148}# + #{docstring 26793}# (vector '(#(syntax-object macro-type @@ -22361,13 +22799,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28112" - "i28113" - "i28114" - "i28115" - "i28116")) + #("i26757" + "i26758" + "i26759" + "i26760" + "i26761")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) . #(syntax-object @@ -22376,13 +22814,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28112" - "i28113" - "i28114" - "i28115" - "i28116")) + #("i26757" + "i26758" + "i26759" + "i26760" + "i26761")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22390,28 +22828,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28112" - "i28113" - "i28114" - "i28115" - "i28116")) + #("i26757" + "i26758" + "i26759" + "i26760" + "i26761")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) - #{pattern 28150}#)) + #{pattern 26795}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28112" - "i28113" - "i28114" - "i28115" - "i28116")) + #("i26757" + "i26758" + "i26759" + "i26760" + "i26761")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) (cons '#(syntax-object x @@ -22423,17 +22861,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i28112" - "i28113" - "i28114" - "i28115" - "i28116")) + #("i26757" + "i26758" + "i26759" + "i26760" + "i26761")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28086"))) + #(ribcage #(x) #((top)) #("i26731"))) (hygiene guile)) - (cons #{k 28147}# - (map (lambda (#{tmp 28125 28152}# - #{tmp 28124 28153}#) + (cons #{k 26792}# + (map (lambda (#{tmp 26770 26797}# + #{tmp 26769 26798}#) (list (cons '#(syntax-object dummy ((top) @@ -22448,11 +22886,11 @@ (top) (top) (top)) - #("i28112" - "i28113" - "i28114" - "i28115" - "i28116")) + #("i26757" + "i26758" + "i26759" + "i26760" + "i26761")) #(ribcage () () @@ -22460,10 +22898,10 @@ #(ribcage #(x) #((top)) - #("i28086"))) + #("i26731"))) (hygiene guile)) - #{tmp 28124 28153}#) + #{tmp 26769 26798}#) (list '#(syntax-object syntax ((top) @@ -22478,11 +22916,11 @@ (top) (top) (top)) - #("i28112" - "i28113" - "i28114" - "i28115" - "i28116")) + #("i26757" + "i26758" + "i26759" + "i26760" + "i26761")) #(ribcage () () @@ -22490,50 +22928,50 @@ #(ribcage #(x) #((top)) - #("i28086"))) + #("i26731"))) (hygiene guile)) - #{tmp 28125 28152}#))) - #{template 28151}# - #{pattern 28150}#)))))) - #{tmp 28138}#) + #{tmp 26770 26797}#))) + #{template 26796}# + #{pattern 26795}#)))))) + #{tmp 26783}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28126}#)))))))) + #{x 26771}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 28190}#) - (let ((#{tmp 28192}# - ($sc-dispatch #{x 28190}# '(_ (any . any) any)))) - (if #{tmp 28192}# + (lambda (#{x 26835}#) + (let ((#{tmp 26837}# + ($sc-dispatch #{x 26835}# '(_ (any . any) any)))) + (if #{tmp 26837}# (@apply - (lambda (#{name 28196}# - #{pattern 28197}# - #{template 28198}#) + (lambda (#{name 26841}# + #{pattern 26842}# + #{template 26843}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28167" "i28168" "i28169")) + #("i26812" "i26813" "i26814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28164"))) + #(ribcage #(x) #((top)) #("i26809"))) (hygiene guile)) - #{name 28196}# + #{name 26841}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28167" "i28168" "i28169")) + #("i26812" "i26813" "i26814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28164"))) + #(ribcage #(x) #((top)) #("i26809"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22542,54 +22980,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28167" "i28168" "i28169")) + #("i26812" "i26813" "i26814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28164"))) + #(ribcage #(x) #((top)) #("i26809"))) (hygiene guile)) - #{pattern 28197}#) - #{template 28198}#)))) - #{tmp 28192}#) - (let ((#{tmp 28199}# + #{pattern 26842}#) + #{template 26843}#)))) + #{tmp 26837}#) + (let ((#{tmp 26844}# ($sc-dispatch - #{x 28190}# + #{x 26835}# '(_ (any . any) any any)))) - (if (if #{tmp 28199}# + (if (if #{tmp 26844}# (@apply - (lambda (#{name 28203}# - #{pattern 28204}# - #{docstring 28205}# - #{template 28206}#) - (string? (syntax->datum #{docstring 28205}#))) - #{tmp 28199}#) + (lambda (#{name 26848}# + #{pattern 26849}# + #{docstring 26850}# + #{template 26851}#) + (string? (syntax->datum #{docstring 26850}#))) + #{tmp 26844}#) #f) (@apply - (lambda (#{name 28207}# - #{pattern 28208}# - #{docstring 28209}# - #{template 28210}#) + (lambda (#{name 26852}# + #{pattern 26853}# + #{docstring 26854}# + #{template 26855}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i28182" "i28183" "i28184" "i28185")) + #("i26827" "i26828" "i26829" "i26830")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28164"))) + #(ribcage #(x) #((top)) #("i26809"))) (hygiene guile)) - #{name 28207}# + #{name 26852}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i28182" "i28183" "i28184" "i28185")) + #("i26827" "i26828" "i26829" "i26830")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28164"))) + #(ribcage #(x) #((top)) #("i26809"))) (hygiene guile)) '() - #{docstring 28209}# + #{docstring 26854}# (list (cons '#(syntax-object _ ((top) @@ -22599,53 +23037,53 @@ docstring template) #((top) (top) (top) (top)) - #("i28182" - "i28183" - "i28184" - "i28185")) + #("i26827" + "i26828" + "i26829" + "i26830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28164"))) + #("i26809"))) (hygiene guile)) - #{pattern 28208}#) - #{template 28210}#)))) - #{tmp 28199}#) + #{pattern 26853}#) + #{template 26855}#)))) + #{tmp 26844}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28190}#)))))))) + #{x 26835}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 28259}#) - (let ((#{tmp 28261}# + (lambda (#{x 26904}#) + (let ((#{tmp 26906}# ($sc-dispatch - #{x 28259}# + #{x 26904}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 28261}# + (if (if #{tmp 26906}# (@apply - (lambda (#{let* 28265}# - #{x 28266}# - #{v 28267}# - #{e1 28268}# - #{e2 28269}#) - (and-map identifier? #{x 28266}#)) - #{tmp 28261}#) + (lambda (#{let* 26910}# + #{x 26911}# + #{v 26912}# + #{e1 26913}# + #{e2 26914}#) + (and-map identifier? #{x 26911}#)) + #{tmp 26906}#) #f) (@apply - (lambda (#{let* 28270}# - #{x 28271}# - #{v 28272}# - #{e1 28273}# - #{e2 28274}#) + (lambda (#{let* 26915}# + #{x 26916}# + #{v 26917}# + #{e1 26918}# + #{e2 26919}#) (letrec* - ((#{f 28275}# - (lambda (#{bindings 28278}#) - (if (null? #{bindings 28278}#) + ((#{f 26920}# + (lambda (#{bindings 26923}#) + (if (null? #{bindings 26923}#) (cons '#(syntax-object let ((top) @@ -22653,27 +23091,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i28245" "i28246")) + #("i26890" "i26891")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i28235" - "i28236" - "i28237" - "i28238" - "i28239")) + #("i26880" + "i26881" + "i26882" + "i26883" + "i26884")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28221"))) + #(ribcage #(x) #((top)) #("i26866"))) (hygiene guile)) - (cons '() (cons #{e1 28273}# #{e2 28274}#))) - (let ((#{tmp 28279}# - (list (#{f 28275}# (cdr #{bindings 28278}#)) - (car #{bindings 28278}#)))) - (let ((#{tmp 28280}# - ($sc-dispatch #{tmp 28279}# '(any any)))) - (if #{tmp 28280}# + (cons '() (cons #{e1 26918}# #{e2 26919}#))) + (let ((#{tmp 26924}# + (list (#{f 26920}# (cdr #{bindings 26923}#)) + (car #{bindings 26923}#)))) + (let ((#{tmp 26925}# + ($sc-dispatch #{tmp 26924}# '(any any)))) + (if #{tmp 26925}# (@apply - (lambda (#{body 28282}# #{binding 28283}#) + (lambda (#{body 26927}# #{binding 26928}#) (list '#(syntax-object let ((top) @@ -22681,86 +23119,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i28255" "i28256")) + #("i26900" "i26901")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i28245" "i28246")) + #("i26890" "i26891")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i28235" - "i28236" - "i28237" - "i28238" - "i28239")) + #("i26880" + "i26881" + "i26882" + "i26883" + "i26884")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28221"))) + #("i26866"))) (hygiene guile)) - (list #{binding 28283}#) - #{body 28282}#)) - #{tmp 28280}#) + (list #{binding 26928}#) + #{body 26927}#)) + #{tmp 26925}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28279}#)))))))) - (#{f 28275}# (map list #{x 28271}# #{v 28272}#)))) - #{tmp 28261}#) + #{tmp 26924}#)))))))) + (#{f 26920}# (map list #{x 26916}# #{v 26917}#)))) + #{tmp 26906}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28259}#)))))) + #{x 26904}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 28341}#) - (let ((#{tmp 28343}# + (lambda (#{orig-x 26986}#) + (let ((#{tmp 26988}# ($sc-dispatch - #{orig-x 28341}# + #{orig-x 26986}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 28343}# + (if #{tmp 26988}# (@apply - (lambda (#{var 28347}# - #{init 28348}# - #{step 28349}# - #{e0 28350}# - #{e1 28351}# - #{c 28352}#) - (let ((#{tmp 28353}# - (map (lambda (#{v 28356}# #{s 28357}#) - (let ((#{tmp 28359}# - ($sc-dispatch #{s 28357}# '()))) - (if #{tmp 28359}# - (@apply (lambda () #{v 28356}#) #{tmp 28359}#) - (let ((#{tmp 28362}# - ($sc-dispatch #{s 28357}# '(any)))) - (if #{tmp 28362}# + (lambda (#{var 26992}# + #{init 26993}# + #{step 26994}# + #{e0 26995}# + #{e1 26996}# + #{c 26997}#) + (let ((#{tmp 26998}# + (map (lambda (#{v 27001}# #{s 27002}#) + (let ((#{tmp 27004}# + ($sc-dispatch #{s 27002}# '()))) + (if #{tmp 27004}# + (@apply (lambda () #{v 27001}#) #{tmp 27004}#) + (let ((#{tmp 27007}# + ($sc-dispatch #{s 27002}# '(any)))) + (if #{tmp 27007}# (@apply - (lambda (#{e 28365}#) #{e 28365}#) - #{tmp 28362}#) + (lambda (#{e 27010}#) #{e 27010}#) + #{tmp 27007}#) (syntax-violation 'do "bad step expression" - #{orig-x 28341}# - #{s 28357}#)))))) - #{var 28347}# - #{step 28349}#))) - (let ((#{tmp 28354}# - ($sc-dispatch #{tmp 28353}# 'each-any))) - (if #{tmp 28354}# + #{orig-x 26986}# + #{s 27002}#)))))) + #{var 26992}# + #{step 26994}#))) + (let ((#{tmp 26999}# + ($sc-dispatch #{tmp 26998}# 'each-any))) + (if #{tmp 26999}# (@apply - (lambda (#{step 28371}#) - (let ((#{tmp 28373}# ($sc-dispatch #{e1 28351}# '()))) - (if #{tmp 28373}# + (lambda (#{step 27016}#) + (let ((#{tmp 27018}# ($sc-dispatch #{e1 26996}# '()))) + (if #{tmp 27018}# (@apply (lambda () (list '#(syntax-object @@ -22770,7 +23208,7 @@ #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22779,17 +23217,17 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) '#(syntax-object doloop @@ -22798,7 +23236,7 @@ #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22807,19 +23245,19 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) - (map list #{var 28347}# #{init 28348}#) + (map list #{var 26992}# #{init 26993}#) (list '#(syntax-object if ((top) @@ -22827,7 +23265,7 @@ #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22836,17 +23274,17 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) (list '#(syntax-object not @@ -22855,7 +23293,7 @@ #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init @@ -22869,19 +23307,19 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) - #{e0 28350}#) + #{e0 26995}#) (cons '#(syntax-object begin ((top) @@ -22889,7 +23327,7 @@ #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init @@ -22903,20 +23341,20 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) (append - #{c 28352}# + #{c 26997}# (list (cons '#(syntax-object doloop ((top) @@ -22927,7 +23365,7 @@ #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init @@ -22941,12 +23379,12 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () @@ -22954,30 +23392,30 @@ #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) - #{step 28371}#))))))) - #{tmp 28373}#) - (let ((#{tmp 28377}# + #{step 27016}#))))))) + #{tmp 27018}#) + (let ((#{tmp 27022}# ($sc-dispatch - #{e1 28351}# + #{e1 26996}# '(any . each-any)))) - (if #{tmp 28377}# + (if #{tmp 27022}# (@apply - (lambda (#{e1 28381}# #{e2 28382}#) + (lambda (#{e1 27026}# #{e2 27027}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28318" "i28319")) + #("i26963" "i26964")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22986,17 +23424,17 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) '#(syntax-object doloop @@ -23004,12 +23442,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i28318" "i28319")) + #("i26963" "i26964")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23018,33 +23456,33 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) (map list - #{var 28347}# - #{init 28348}#) + #{var 26992}# + #{init 26993}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28318" "i28319")) + #("i26963" "i26964")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23053,32 +23491,32 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) - #{e0 28350}# + #{e0 26995}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28318" - "i28319")) + #("i26963" + "i26964")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init @@ -23092,33 +23530,33 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) - (cons #{e1 28381}# - #{e2 28382}#)) + (cons #{e1 27026}# + #{e2 27027}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28318" - "i28319")) + #("i26963" + "i26964")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init @@ -23132,20 +23570,20 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) (append - #{c 28352}# + #{c 26997}# (list (cons '#(syntax-object doloop ((top) @@ -23154,8 +23592,8 @@ e2) #((top) (top)) - #("i28318" - "i28319")) + #("i26963" + "i26964")) #(ribcage () () @@ -23163,7 +23601,7 @@ #(ribcage #(step) #((top)) - #("i28309")) + #("i26954")) #(ribcage #(var init @@ -23177,12 +23615,12 @@ (top) (top) (top)) - #("i28294" - "i28295" - "i28296" - "i28297" - "i28298" - "i28299")) + #("i26939" + "i26940" + "i26941" + "i26942" + "i26943" + "i26944")) #(ribcage () () @@ -23190,36 +23628,36 @@ #(ribcage #(orig-x) #((top)) - #("i28291"))) + #("i26936"))) (hygiene guile)) - #{step 28371}#))))))) - #{tmp 28377}#) + #{step 27016}#))))))) + #{tmp 27022}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 28351}#)))))) - #{tmp 28354}#) + #{e1 26996}#)))))) + #{tmp 26999}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28353}#))))) - #{tmp 28343}#) + #{tmp 26998}#))))) + #{tmp 26988}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 28341}#)))))) + #{orig-x 26986}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 28668}# - (lambda (#{p 28692}# #{lev 28693}#) - (let ((#{tmp 28695}# + ((#{quasi 27313}# + (lambda (#{p 27337}# #{lev 27338}#) + (let ((#{tmp 27340}# ($sc-dispatch - #{p 28692}# + #{p 27337}# '(#(free-id #(syntax-object unquote @@ -23228,7 +23666,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23237,28 +23675,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) any)))) - (if #{tmp 28695}# + (if #{tmp 27340}# (@apply - (lambda (#{p 28699}#) - (if (= #{lev 28693}# 0) + (lambda (#{p 27344}#) + (if (= #{lev 27338}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i28418")) + #(ribcage #(p) #((top)) #("i27063")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23267,25 +23705,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{p 28699}#) - (#{quasicons 28670}# + #{p 27344}#) + (#{quasicons 27315}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28418")) + #(ribcage #(p) #((top)) #("i27063")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23294,23 +23732,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i28418")) + #(ribcage #(p) #((top)) #("i27063")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23319,21 +23757,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) - (#{quasi 28668}# - (list #{p 28699}#) - (#{1-}# #{lev 28693}#))))) - #{tmp 28695}#) - (let ((#{tmp 28702}# + (#{quasi 27313}# + (list #{p 27344}#) + (#{1-}# #{lev 27338}#))))) + #{tmp 27340}#) + (let ((#{tmp 27347}# ($sc-dispatch - #{p 28692}# + #{p 27337}# '(#(free-id #(syntax-object quasiquote @@ -23342,7 +23780,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23351,28 +23789,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) any)))) - (if #{tmp 28702}# + (if #{tmp 27347}# (@apply - (lambda (#{p 28706}#) - (#{quasicons 28670}# + (lambda (#{p 27351}#) + (#{quasicons 27315}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28421")) + #(ribcage #(p) #((top)) #("i27066")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23381,23 +23819,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i28421")) + #(ribcage #(p) #((top)) #("i27066")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23406,26 +23844,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) - (#{quasi 28668}# - (list #{p 28706}#) - (#{1+}# #{lev 28693}#)))) - #{tmp 28702}#) - (let ((#{tmp 28709}# - ($sc-dispatch #{p 28692}# '(any . any)))) - (if #{tmp 28709}# + (#{quasi 27313}# + (list #{p 27351}#) + (#{1+}# #{lev 27338}#)))) + #{tmp 27347}#) + (let ((#{tmp 27354}# + ($sc-dispatch #{p 27337}# '(any . any)))) + (if #{tmp 27354}# (@apply - (lambda (#{p 28713}# #{q 28714}#) - (let ((#{tmp 28716}# + (lambda (#{p 27358}# #{q 27359}#) + (let ((#{tmp 27361}# ($sc-dispatch - #{p 28713}# + #{p 27358}# '(#(free-id #(syntax-object unquote @@ -23433,12 +23871,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28424" "i28425")) + #("i27069" "i27070")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23453,38 +23891,38 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) . each-any)))) - (if #{tmp 28716}# + (if #{tmp 27361}# (@apply - (lambda (#{p 28720}#) - (if (= #{lev 28693}# 0) - (#{quasilist* 28672}# - (map (lambda (#{tmp 28432 28756}#) + (lambda (#{p 27365}#) + (if (= #{lev 27338}# 0) + (#{quasilist* 27317}# + (map (lambda (#{tmp 27077 27401}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28430")) + #("i27075")) #(ribcage #(p q) #((top) (top)) - #("i28424" "i28425")) + #("i27069" "i27070")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23499,37 +23937,37 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{tmp 28432 28756}#)) - #{p 28720}#) - (#{quasi 28668}# - #{q 28714}# - #{lev 28693}#)) - (#{quasicons 28670}# - (#{quasicons 28670}# + #{tmp 27077 27401}#)) + #{p 27365}#) + (#{quasi 27313}# + #{q 27359}# + #{lev 27338}#)) + (#{quasicons 27315}# + (#{quasicons 27315}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i28430")) + #("i27075")) #(ribcage #(p q) #((top) (top)) - #("i28424" "i28425")) + #("i27069" "i27070")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23544,13 +23982,13 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) #(syntax-object unquote @@ -23558,16 +23996,16 @@ #(ribcage #(p) #((top)) - #("i28430")) + #("i27075")) #(ribcage #(p q) #((top) (top)) - #("i28424" "i28425")) + #("i27069" "i27070")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23582,24 +24020,24 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) - (#{quasi 28668}# - #{p 28720}# - (#{1-}# #{lev 28693}#))) - (#{quasi 28668}# - #{q 28714}# - #{lev 28693}#)))) - #{tmp 28716}#) - (let ((#{tmp 28761}# + (#{quasi 27313}# + #{p 27365}# + (#{1-}# #{lev 27338}#))) + (#{quasi 27313}# + #{q 27359}# + #{lev 27338}#)))) + #{tmp 27361}#) + (let ((#{tmp 27406}# ($sc-dispatch - #{p 28713}# + #{p 27358}# '(#(free-id #(syntax-object unquote-splicing @@ -23607,12 +24045,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28424" "i28425")) + #("i27069" "i27070")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23627,40 +24065,40 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) . each-any)))) - (if #{tmp 28761}# + (if #{tmp 27406}# (@apply - (lambda (#{p 28765}#) - (if (= #{lev 28693}# 0) - (#{quasiappend 28671}# - (map (lambda (#{tmp 28437 28768}#) + (lambda (#{p 27410}#) + (if (= #{lev 27338}# 0) + (#{quasiappend 27316}# + (map (lambda (#{tmp 27082 27413}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28435")) + #("i27080")) #(ribcage #(p q) #((top) (top)) - #("i28424" - "i28425")) + #("i27069" + "i27070")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" - "i28415")) + #("i27059" + "i27060")) #(ribcage (emit quasivector quasilist* @@ -23675,37 +24113,37 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{tmp 28437 28768}#)) - #{p 28765}#) - (#{quasi 28668}# - #{q 28714}# - #{lev 28693}#)) - (#{quasicons 28670}# - (#{quasicons 28670}# + #{tmp 27082 27413}#)) + #{p 27410}#) + (#{quasi 27313}# + #{q 27359}# + #{lev 27338}#)) + (#{quasicons 27315}# + (#{quasicons 27315}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i28435")) + #("i27080")) #(ribcage #(p q) #((top) (top)) - #("i28424" "i28425")) + #("i27069" "i27070")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23720,13 +24158,13 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -23734,16 +24172,16 @@ #(ribcage #(p) #((top)) - #("i28435")) + #("i27080")) #(ribcage #(p q) #((top) (top)) - #("i28424" "i28425")) + #("i27069" "i27070")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -23758,57 +24196,57 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) - (#{quasi 28668}# - #{p 28765}# - (#{1-}# #{lev 28693}#))) - (#{quasi 28668}# - #{q 28714}# - #{lev 28693}#)))) - #{tmp 28761}#) - (#{quasicons 28670}# - (#{quasi 28668}# - #{p 28713}# - #{lev 28693}#) - (#{quasi 28668}# - #{q 28714}# - #{lev 28693}#))))))) - #{tmp 28709}#) - (let ((#{tmp 28782}# - ($sc-dispatch #{p 28692}# '#(vector each-any)))) - (if #{tmp 28782}# + (#{quasi 27313}# + #{p 27410}# + (#{1-}# #{lev 27338}#))) + (#{quasi 27313}# + #{q 27359}# + #{lev 27338}#)))) + #{tmp 27406}#) + (#{quasicons 27315}# + (#{quasi 27313}# + #{p 27358}# + #{lev 27338}#) + (#{quasi 27313}# + #{q 27359}# + #{lev 27338}#))))))) + #{tmp 27354}#) + (let ((#{tmp 27427}# + ($sc-dispatch #{p 27337}# '#(vector each-any)))) + (if #{tmp 27427}# (@apply - (lambda (#{x 28786}#) - (let ((#{x 28789}# - (#{vquasi 28669}# - #{x 28786}# - #{lev 28693}#))) - (let ((#{tmp 28791}# + (lambda (#{x 27431}#) + (let ((#{x 27434}# + (#{vquasi 27314}# + #{x 27431}# + #{lev 27338}#))) + (let ((#{tmp 27436}# ($sc-dispatch - #{x 28789}# + #{x 27434}# '(#(atom "quote") each-any)))) - (if #{tmp 28791}# + (if #{tmp 27436}# (@apply - (lambda (#{x 28795}#) + (lambda (#{x 27440}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("i28542")) + #("i27187")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28539")) + #("i27184")) #(ribcage (emit quasivector quasilist* @@ -23823,36 +24261,36 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - (list->vector #{x 28795}#))) - #{tmp 28791}#) + (list->vector #{x 27440}#))) + #{tmp 27436}#) (letrec* - ((#{f 28797}# - (lambda (#{y 28809}# #{k 28810}#) - (let ((#{tmp 28812}# + ((#{f 27442}# + (lambda (#{y 27454}# #{k 27455}#) + (let ((#{tmp 27457}# ($sc-dispatch - #{y 28809}# + #{y 27454}# '(#(atom "quote") each-any)))) - (if #{tmp 28812}# + (if #{tmp 27457}# (@apply - (lambda (#{y 28815}#) - (#{k 28810}# - (map (lambda (#{tmp 28567 28816}#) + (lambda (#{y 27460}#) + (#{k 27455}# + (map (lambda (#{tmp 27212 27461}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i28565")) + #("i27210")) #(ribcage () () @@ -23864,13 +24302,13 @@ #((top) (top) (top)) - #("i28547" - "i28548" - "i28549")) + #("i27192" + "i27193" + "i27194")) #(ribcage #(_) #((top)) - #("i28545")) + #("i27190")) #(ribcage () () @@ -23878,7 +24316,7 @@ #(ribcage #(x) #((top)) - #("i28539")) + #("i27184")) #(ribcage (emit quasivector quasilist* @@ -23893,51 +24331,51 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{tmp 28567 28816}#)) - #{y 28815}#))) - #{tmp 28812}#) - (let ((#{tmp 28817}# + #{tmp 27212 27461}#)) + #{y 27460}#))) + #{tmp 27457}#) + (let ((#{tmp 27462}# ($sc-dispatch - #{y 28809}# + #{y 27454}# '(#(atom "list") . each-any)))) - (if #{tmp 28817}# + (if #{tmp 27462}# (@apply - (lambda (#{y 28820}#) - (#{k 28810}# - #{y 28820}#)) - #{tmp 28817}#) - (let ((#{tmp 28821}# + (lambda (#{y 27465}#) + (#{k 27455}# + #{y 27465}#)) + #{tmp 27462}#) + (let ((#{tmp 27466}# ($sc-dispatch - #{y 28809}# + #{y 27454}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 28821}# + (if #{tmp 27466}# (@apply - (lambda (#{y 28824}# - #{z 28825}#) - (#{f 28797}# - #{z 28825}# - (lambda (#{ls 28826}#) - (#{k 28810}# + (lambda (#{y 27469}# + #{z 27470}#) + (#{f 27442}# + #{z 27470}# + (lambda (#{ls 27471}#) + (#{k 27455}# (append - #{y 28824}# - #{ls 28826}#))))) - #{tmp 28821}#) + #{y 27469}# + #{ls 27471}#))))) + #{tmp 27466}#) (list '#(syntax-object "list->vector" ((top) @@ -23946,14 +24384,14 @@ () ()) #(ribcage - #(#{ g28582}#) - #((m28583 + #(#{ g27227}#) + #((m27228 top)) - #("i28586")) + #("i27231")) #(ribcage #(else) #((top)) - #("i28580")) + #("i27225")) #(ribcage () () @@ -23963,13 +24401,13 @@ #((top) (top) (top)) - #("i28547" - "i28548" - "i28549")) + #("i27192" + "i27193" + "i27194")) #(ribcage #(_) #((top)) - #("i28545")) + #("i27190")) #(ribcage () () @@ -23977,7 +24415,7 @@ #(ribcage #(x) #((top)) - #("i28539")) + #("i27184")) #(ribcage (emit quasivector quasilist* @@ -23992,26 +24430,26 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{x 28789}#)))))))))) - (#{f 28797}# - #{x 28789}# - (lambda (#{ls 28799}#) - (let ((#{tmp 28801}# + #{x 27434}#)))))))))) + (#{f 27442}# + #{x 27434}# + (lambda (#{ls 27444}#) + (let ((#{tmp 27446}# ($sc-dispatch - #{ls 28799}# + #{ls 27444}# 'each-any))) - (if #{tmp 28801}# + (if #{tmp 27446}# (@apply - (lambda (#{ g28555 28804}#) + (lambda (#{ g27200 27449}#) (cons '#(syntax-object "vector" ((top) @@ -24020,9 +24458,9 @@ () ()) #(ribcage - #(#{ g28555}#) - #((m28556 top)) - #("i28560")) + #(#{ g27200}#) + #((m27201 top)) + #("i27205")) #(ribcage () () @@ -24038,11 +24476,11 @@ #(ribcage #(ls) #((top)) - #("i28554")) + #("i27199")) #(ribcage #(_) #((top)) - #("i28545")) + #("i27190")) #(ribcage () () @@ -24050,7 +24488,7 @@ #(ribcage #(x) #((top)) - #("i28539")) + #("i27184")) #(ribcage (emit quasivector quasilist* @@ -24065,30 +24503,30 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{ g28555 28804}#)) - #{tmp 28801}#) + #{ g27200 27449}#)) + #{tmp 27446}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls 28799}#)))))))))) - #{tmp 28782}#) + #{ls 27444}#)))))))))) + #{tmp 27427}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28445")) + #(ribcage #(p) #((top)) #("i27090")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28414" "i28415")) + #("i27059" "i27060")) #(ribcage (emit quasivector quasilist* @@ -24103,25 +24541,25 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{p 28692}#))))))))))) - (#{vquasi 28669}# - (lambda (#{p 28854}# #{lev 28855}#) - (let ((#{tmp 28857}# - ($sc-dispatch #{p 28854}# '(any . any)))) - (if #{tmp 28857}# + #{p 27337}#))))))))))) + (#{vquasi 27314}# + (lambda (#{p 27499}# #{lev 27500}#) + (let ((#{tmp 27502}# + ($sc-dispatch #{p 27499}# '(any . any)))) + (if #{tmp 27502}# (@apply - (lambda (#{p 28861}# #{q 28862}#) - (let ((#{tmp 28864}# + (lambda (#{p 27506}# #{q 27507}#) + (let ((#{tmp 27509}# ($sc-dispatch - #{p 28861}# + #{p 27506}# '(#(free-id #(syntax-object unquote @@ -24129,12 +24567,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28453" "i28454")) + #("i27098" "i27099")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24149,38 +24587,38 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) . each-any)))) - (if #{tmp 28864}# + (if #{tmp 27509}# (@apply - (lambda (#{p 28868}#) - (if (= #{lev 28855}# 0) - (#{quasilist* 28672}# - (map (lambda (#{tmp 28461 28904}#) + (lambda (#{p 27513}#) + (if (= #{lev 27500}# 0) + (#{quasilist* 27317}# + (map (lambda (#{tmp 27106 27549}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28459")) + #("i27104")) #(ribcage #(p q) #((top) (top)) - #("i28453" "i28454")) + #("i27098" "i27099")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24195,32 +24633,32 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{tmp 28461 28904}#)) - #{p 28868}#) - (#{vquasi 28669}# #{q 28862}# #{lev 28855}#)) - (#{quasicons 28670}# - (#{quasicons 28670}# + #{tmp 27106 27549}#)) + #{p 27513}#) + (#{vquasi 27314}# #{q 27507}# #{lev 27500}#)) + (#{quasicons 27315}# + (#{quasicons 27315}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28459")) + #(ribcage #(p) #((top)) #("i27104")) #(ribcage #(p q) #((top) (top)) - #("i28453" "i28454")) + #("i27098" "i27099")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24235,27 +24673,27 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i28459")) + #(ribcage #(p) #((top)) #("i27104")) #(ribcage #(p q) #((top) (top)) - #("i28453" "i28454")) + #("i27098" "i27099")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24270,22 +24708,22 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) - (#{quasi 28668}# - #{p 28868}# - (#{1-}# #{lev 28855}#))) - (#{vquasi 28669}# #{q 28862}# #{lev 28855}#)))) - #{tmp 28864}#) - (let ((#{tmp 28911}# + (#{quasi 27313}# + #{p 27513}# + (#{1-}# #{lev 27500}#))) + (#{vquasi 27314}# #{q 27507}# #{lev 27500}#)))) + #{tmp 27509}#) + (let ((#{tmp 27556}# ($sc-dispatch - #{p 28861}# + #{p 27506}# '(#(free-id #(syntax-object unquote-splicing @@ -24293,12 +24731,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28453" "i28454")) + #("i27098" "i27099")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24313,38 +24751,38 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) . each-any)))) - (if #{tmp 28911}# + (if #{tmp 27556}# (@apply - (lambda (#{p 28915}#) - (if (= #{lev 28855}# 0) - (#{quasiappend 28671}# - (map (lambda (#{tmp 28466 28918}#) + (lambda (#{p 27560}#) + (if (= #{lev 27500}# 0) + (#{quasiappend 27316}# + (map (lambda (#{tmp 27111 27563}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28464")) + #("i27109")) #(ribcage #(p q) #((top) (top)) - #("i28453" "i28454")) + #("i27098" "i27099")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24359,34 +24797,34 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{tmp 28466 28918}#)) - #{p 28915}#) - (#{vquasi 28669}# - #{q 28862}# - #{lev 28855}#)) - (#{quasicons 28670}# - (#{quasicons 28670}# + #{tmp 27111 27563}#)) + #{p 27560}#) + (#{vquasi 27314}# + #{q 27507}# + #{lev 27500}#)) + (#{quasicons 27315}# + (#{quasicons 27315}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28464")) + #(ribcage #(p) #((top)) #("i27109")) #(ribcage #(p q) #((top) (top)) - #("i28453" "i28454")) + #("i27098" "i27099")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24401,27 +24839,27 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i28464")) + #(ribcage #(p) #((top)) #("i27109")) #(ribcage #(p q) #((top) (top)) - #("i28453" "i28454")) + #("i27098" "i27099")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24436,27 +24874,27 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile))) - (#{quasi 28668}# - #{p 28915}# - (#{1-}# #{lev 28855}#))) - (#{vquasi 28669}# - #{q 28862}# - #{lev 28855}#)))) - #{tmp 28911}#) - (#{quasicons 28670}# - (#{quasi 28668}# #{p 28861}# #{lev 28855}#) - (#{vquasi 28669}# #{q 28862}# #{lev 28855}#))))))) - #{tmp 28857}#) - (let ((#{tmp 28936}# ($sc-dispatch #{p 28854}# '()))) - (if #{tmp 28936}# + (#{quasi 27313}# + #{p 27560}# + (#{1-}# #{lev 27500}#))) + (#{vquasi 27314}# + #{q 27507}# + #{lev 27500}#)))) + #{tmp 27556}#) + (#{quasicons 27315}# + (#{quasi 27313}# #{p 27506}# #{lev 27500}#) + (#{vquasi 27314}# #{q 27507}# #{lev 27500}#))))))) + #{tmp 27502}#) + (let ((#{tmp 27581}# ($sc-dispatch #{p 27499}# '()))) + (if #{tmp 27581}# (@apply (lambda () '(#(syntax-object @@ -24466,7 +24904,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28449" "i28450")) + #("i27094" "i27095")) #(ribcage (emit quasivector quasilist* @@ -24475,64 +24913,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) ())) - #{tmp 28936}#) + #{tmp 27581}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 28854}#))))))) - (#{quasicons 28670}# - (lambda (#{x 28949}# #{y 28950}#) - (let ((#{tmp 28951}# (list #{x 28949}# #{y 28950}#))) - (let ((#{tmp 28952}# - ($sc-dispatch #{tmp 28951}# '(any any)))) - (if #{tmp 28952}# + #{p 27499}#))))))) + (#{quasicons 27315}# + (lambda (#{x 27594}# #{y 27595}#) + (let ((#{tmp 27596}# (list #{x 27594}# #{y 27595}#))) + (let ((#{tmp 27597}# + ($sc-dispatch #{tmp 27596}# '(any any)))) + (if #{tmp 27597}# (@apply - (lambda (#{x 28954}# #{y 28955}#) - (let ((#{tmp 28957}# + (lambda (#{x 27599}# #{y 27600}#) + (let ((#{tmp 27602}# ($sc-dispatch - #{y 28955}# + #{y 27600}# '(#(atom "quote") any)))) - (if #{tmp 28957}# + (if #{tmp 27602}# (@apply - (lambda (#{dy 28961}#) - (let ((#{tmp 28963}# + (lambda (#{dy 27606}#) + (let ((#{tmp 27608}# ($sc-dispatch - #{x 28954}# + #{x 27599}# '(#(atom "quote") any)))) - (if #{tmp 28963}# + (if #{tmp 27608}# (@apply - (lambda (#{dx 28967}#) + (lambda (#{dx 27612}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i28488")) + #("i27133")) #(ribcage #(dy) #((top)) - #("i28484")) + #("i27129")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28478" "i28479")) + #("i27123" "i27124")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28473" "i28474")) + #("i27118" "i27119")) #(ribcage (emit quasivector quasilist* @@ -24547,39 +24985,39 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - (cons #{dx 28967}# #{dy 28961}#))) - #{tmp 28963}#) - (if (null? #{dy 28961}#) + (cons #{dx 27612}# #{dy 27606}#))) + #{tmp 27608}#) + (if (null? #{dy 27606}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i28490")) + #("i27135")) #(ribcage #(dy) #((top)) - #("i28484")) + #("i27129")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28478" "i28479")) + #("i27123" "i27124")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28473" "i28474")) + #("i27118" "i27119")) #(ribcage (emit quasivector quasilist* @@ -24594,37 +25032,37 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{x 28954}#) + #{x 27599}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i28490")) + #("i27135")) #(ribcage #(dy) #((top)) - #("i28484")) + #("i27129")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28478" "i28479")) + #("i27123" "i27124")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28473" "i28474")) + #("i27118" "i27119")) #(ribcage (emit quasivector quasilist* @@ -24639,42 +25077,42 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{x 28954}# - #{y 28955}#))))) - #{tmp 28957}#) - (let ((#{tmp 28972}# + #{x 27599}# + #{y 27600}#))))) + #{tmp 27602}#) + (let ((#{tmp 27617}# ($sc-dispatch - #{y 28955}# + #{y 27600}# '(#(atom "list") . any)))) - (if #{tmp 28972}# + (if #{tmp 27617}# (@apply - (lambda (#{stuff 28976}#) + (lambda (#{stuff 27621}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i28493")) + #("i27138")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28478" "i28479")) + #("i27123" "i27124")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28473" "i28474")) + #("i27118" "i27119")) #(ribcage (emit quasivector quasilist* @@ -24689,41 +25127,41 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - (cons #{x 28954}# #{stuff 28976}#))) - #{tmp 28972}#) - (let ((#{tmp 28977}# + (cons #{x 27599}# #{stuff 27621}#))) + #{tmp 27617}#) + (let ((#{tmp 27622}# ($sc-dispatch - #{y 28955}# + #{y 27600}# '(#(atom "list*") . any)))) - (if #{tmp 28977}# + (if #{tmp 27622}# (@apply - (lambda (#{stuff 28981}#) + (lambda (#{stuff 27626}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i28496")) + #("i27141")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28478" "i28479")) + #("i27123" "i27124")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28473" "i28474")) + #("i27118" "i27119")) #(ribcage (emit quasivector quasilist* @@ -24738,31 +25176,31 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - (cons #{x 28954}# #{stuff 28981}#))) - #{tmp 28977}#) + (cons #{x 27599}# #{stuff 27626}#))) + #{tmp 27622}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i28498")) + #(ribcage #(_) #((top)) #("i27143")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28478" "i28479")) + #("i27123" "i27124")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28473" "i28474")) + #("i27118" "i27119")) #(ribcage (emit quasivector quasilist* @@ -24777,29 +25215,29 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{x 28954}# - #{y 28955}#)))))))) - #{tmp 28952}#) + #{x 27599}# + #{y 27600}#)))))))) + #{tmp 27597}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28951}#)))))) - (#{quasiappend 28671}# - (lambda (#{x 28992}# #{y 28993}#) - (let ((#{tmp 28995}# - ($sc-dispatch #{y 28993}# '(#(atom "quote") ())))) - (if #{tmp 28995}# + #{tmp 27596}#)))))) + (#{quasiappend 27316}# + (lambda (#{x 27637}# #{y 27638}#) + (let ((#{tmp 27640}# + ($sc-dispatch #{y 27638}# '(#(atom "quote") ())))) + (if #{tmp 27640}# (@apply (lambda () - (if (null? #{x 28992}#) + (if (null? #{x 27637}#) '(#(syntax-object "quote" ((top) @@ -24807,7 +25245,7 @@ #(ribcage #(x y) #((top) (top)) - #("i28502" "i28503")) + #("i27147" "i27148")) #(ribcage (emit quasivector quasilist* @@ -24816,32 +25254,32 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) ()) - (if (null? (cdr #{x 28992}#)) - (car #{x 28992}#) - (let ((#{tmp 29000}# - ($sc-dispatch #{x 28992}# 'each-any))) - (if #{tmp 29000}# + (if (null? (cdr #{x 27637}#)) + (car #{x 27637}#) + (let ((#{tmp 27645}# + ($sc-dispatch #{x 27637}# 'each-any))) + (if #{tmp 27645}# (@apply - (lambda (#{p 29004}#) + (lambda (#{p 27649}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i28514")) + #(ribcage #(p) #((top)) #("i27159")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28502" "i28503")) + #("i27147" "i27148")) #(ribcage (emit quasivector quasilist* @@ -24856,29 +25294,29 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{p 29004}#)) - #{tmp 29000}#) + #{p 27649}#)) + #{tmp 27645}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28992}#)))))) - #{tmp 28995}#) - (if (null? #{x 28992}#) - #{y 28993}# - (let ((#{tmp 29012}# (list #{x 28992}# #{y 28993}#))) - (let ((#{tmp 29013}# - ($sc-dispatch #{tmp 29012}# '(each-any any)))) - (if #{tmp 29013}# + #{x 27637}#)))))) + #{tmp 27640}#) + (if (null? #{x 27637}#) + #{y 27638}# + (let ((#{tmp 27657}# (list #{x 27637}# #{y 27638}#))) + (let ((#{tmp 27658}# + ($sc-dispatch #{tmp 27657}# '(each-any any)))) + (if #{tmp 27658}# (@apply - (lambda (#{p 29015}# #{y 29016}#) + (lambda (#{p 27660}# #{y 27661}#) (cons '#(syntax-object "append" ((top) @@ -24886,13 +25324,13 @@ #(ribcage #(p y) #((top) (top)) - #("i28525" "i28526")) - #(ribcage #(_) #((top)) #("i28517")) + #("i27170" "i27171")) + #(ribcage #(_) #((top)) #("i27162")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28502" "i28503")) + #("i27147" "i27148")) #(ribcage (emit quasivector quasilist* @@ -24907,44 +25345,44 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - (append #{p 29015}# (list #{y 29016}#)))) - #{tmp 29013}#) + (append #{p 27660}# (list #{y 27661}#)))) + #{tmp 27658}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29012}#))))))))) - (#{quasilist* 28672}# - (lambda (#{x 29020}# #{y 29021}#) + #{tmp 27657}#))))))))) + (#{quasilist* 27317}# + (lambda (#{x 27665}# #{y 27666}#) (letrec* - ((#{f 29022}# - (lambda (#{x 29111}#) - (if (null? #{x 29111}#) - #{y 29021}# - (#{quasicons 28670}# - (car #{x 29111}#) - (#{f 29022}# (cdr #{x 29111}#))))))) - (#{f 29022}# #{x 29020}#)))) - (#{emit 28674}# - (lambda (#{x 29114}#) - (let ((#{tmp 29116}# - ($sc-dispatch #{x 29114}# '(#(atom "quote") any)))) - (if #{tmp 29116}# + ((#{f 27667}# + (lambda (#{x 27756}#) + (if (null? #{x 27756}#) + #{y 27666}# + (#{quasicons 27315}# + (car #{x 27756}#) + (#{f 27667}# (cdr #{x 27756}#))))))) + (#{f 27667}# #{x 27665}#)))) + (#{emit 27319}# + (lambda (#{x 27759}#) + (let ((#{tmp 27761}# + ($sc-dispatch #{x 27759}# '(#(atom "quote") any)))) + (if #{tmp 27761}# (@apply - (lambda (#{x 29120}#) + (lambda (#{x 27765}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i28592")) + #(ribcage #(x) #((top)) #("i27237")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28589")) + #(ribcage #(x) #((top)) #("i27234")) #(ribcage (emit quasivector quasilist* @@ -24953,40 +25391,40 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{x 29120}#)) - #{tmp 29116}#) - (let ((#{tmp 29121}# + #{x 27765}#)) + #{tmp 27761}#) + (let ((#{tmp 27766}# ($sc-dispatch - #{x 29114}# + #{x 27759}# '(#(atom "list") . each-any)))) - (if #{tmp 29121}# + (if #{tmp 27766}# (@apply - (lambda (#{x 29125}#) - (let ((#{tmp 29126}# (map #{emit 28674}# #{x 29125}#))) - (let ((#{tmp 29127}# - ($sc-dispatch #{tmp 29126}# 'each-any))) - (if #{tmp 29127}# + (lambda (#{x 27770}#) + (let ((#{tmp 27771}# (map #{emit 27319}# #{x 27770}#))) + (let ((#{tmp 27772}# + ($sc-dispatch #{tmp 27771}# 'each-any))) + (if #{tmp 27772}# (@apply - (lambda (#{ g28597 29129}#) + (lambda (#{ g27242 27774}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g28597}#) - #((m28598 top)) - #("i28602")) - #(ribcage #(x) #((top)) #("i28595")) + #(#{ g27242}#) + #((m27243 top)) + #("i27247")) + #(ribcage #(x) #((top)) #("i27240")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28589")) + #(ribcage #(x) #((top)) #("i27234")) #(ribcage (emit quasivector quasilist* @@ -25001,70 +25439,70 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{ g28597 29129}#)) - #{tmp 29127}#) + #{ g27242 27774}#)) + #{tmp 27772}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29126}#))))) - #{tmp 29121}#) - (let ((#{tmp 29130}# + #{tmp 27771}#))))) + #{tmp 27766}#) + (let ((#{tmp 27775}# ($sc-dispatch - #{x 29114}# + #{x 27759}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 29130}# + (if #{tmp 27775}# (@apply - (lambda (#{x 29134}# #{y 29135}#) + (lambda (#{x 27779}# #{y 27780}#) (letrec* - ((#{f 29136}# - (lambda (#{x* 29139}#) - (if (null? #{x* 29139}#) - (#{emit 28674}# #{y 29135}#) - (let ((#{tmp 29140}# - (list (#{emit 28674}# - (car #{x* 29139}#)) - (#{f 29136}# - (cdr #{x* 29139}#))))) - (let ((#{tmp 29141}# + ((#{f 27781}# + (lambda (#{x* 27784}#) + (if (null? #{x* 27784}#) + (#{emit 27319}# #{y 27780}#) + (let ((#{tmp 27785}# + (list (#{emit 27319}# + (car #{x* 27784}#)) + (#{f 27781}# + (cdr #{x* 27784}#))))) + (let ((#{tmp 27786}# ($sc-dispatch - #{tmp 29140}# + #{tmp 27785}# '(any any)))) - (if #{tmp 29141}# + (if #{tmp 27786}# (@apply - (lambda (#{ g28617 29143}# - #{ g28616 29144}#) + (lambda (#{ g27262 27788}# + #{ g27261 27789}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g28617}# - #{ g28616}#) - #((m28618 top) - (m28618 top)) - #("i28622" "i28623")) + #(#{ g27262}# + #{ g27261}#) + #((m27263 top) + (m27263 top)) + #("i27267" "i27268")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i28611" "i28612")) + #("i27256" "i27257")) #(ribcage #(x y) #((top) (top)) - #("i28607" "i28608")) + #("i27252" "i27253")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28589")) + #("i27234")) #(ribcage (emit quasivector quasilist* @@ -25079,56 +25517,56 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{ g28617 29143}# - #{ g28616 29144}#)) - #{tmp 29141}#) + #{ g27262 27788}# + #{ g27261 27789}#)) + #{tmp 27786}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29140}#)))))))) - (#{f 29136}# #{x 29134}#))) - #{tmp 29130}#) - (let ((#{tmp 29145}# + #{tmp 27785}#)))))))) + (#{f 27781}# #{x 27779}#))) + #{tmp 27775}#) + (let ((#{tmp 27790}# ($sc-dispatch - #{x 29114}# + #{x 27759}# '(#(atom "append") . each-any)))) - (if #{tmp 29145}# + (if #{tmp 27790}# (@apply - (lambda (#{x 29149}#) - (let ((#{tmp 29150}# - (map #{emit 28674}# #{x 29149}#))) - (let ((#{tmp 29151}# + (lambda (#{x 27794}#) + (let ((#{tmp 27795}# + (map #{emit 27319}# #{x 27794}#))) + (let ((#{tmp 27796}# ($sc-dispatch - #{tmp 29150}# + #{tmp 27795}# 'each-any))) - (if #{tmp 29151}# + (if #{tmp 27796}# (@apply - (lambda (#{ g28629 29153}#) + (lambda (#{ g27274 27798}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g28629}#) - #((m28630 top)) - #("i28634")) + #(#{ g27274}#) + #((m27275 top)) + #("i27279")) #(ribcage #(x) #((top)) - #("i28627")) + #("i27272")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28589")) + #("i27234")) #(ribcage (emit quasivector quasilist* @@ -25143,54 +25581,54 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{ g28629 29153}#)) - #{tmp 29151}#) + #{ g27274 27798}#)) + #{tmp 27796}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29150}#))))) - #{tmp 29145}#) - (let ((#{tmp 29154}# + #{tmp 27795}#))))) + #{tmp 27790}#) + (let ((#{tmp 27799}# ($sc-dispatch - #{x 29114}# + #{x 27759}# '(#(atom "vector") . each-any)))) - (if #{tmp 29154}# + (if #{tmp 27799}# (@apply - (lambda (#{x 29158}#) - (let ((#{tmp 29159}# - (map #{emit 28674}# #{x 29158}#))) - (let ((#{tmp 29160}# + (lambda (#{x 27803}#) + (let ((#{tmp 27804}# + (map #{emit 27319}# #{x 27803}#))) + (let ((#{tmp 27805}# ($sc-dispatch - #{tmp 29159}# + #{tmp 27804}# 'each-any))) - (if #{tmp 29160}# + (if #{tmp 27805}# (@apply - (lambda (#{ g28641 29162}#) + (lambda (#{ g27286 27807}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g28641}#) - #((m28642 top)) - #("i28646")) + #(#{ g27286}#) + #((m27287 top)) + #("i27291")) #(ribcage #(x) #((top)) - #("i28639")) + #("i27284")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28589")) + #("i27234")) #(ribcage (emit quasivector quasilist* @@ -25205,47 +25643,47 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{ g28641 29162}#)) - #{tmp 29160}#) + #{ g27286 27807}#)) + #{tmp 27805}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29159}#))))) - #{tmp 29154}#) - (let ((#{tmp 29163}# + #{tmp 27804}#))))) + #{tmp 27799}#) + (let ((#{tmp 27808}# ($sc-dispatch - #{x 29114}# + #{x 27759}# '(#(atom "list->vector") any)))) - (if #{tmp 29163}# + (if #{tmp 27808}# (@apply - (lambda (#{x 29167}#) - (let ((#{tmp 29168}# - (#{emit 28674}# #{x 29167}#))) + (lambda (#{x 27812}#) + (let ((#{tmp 27813}# + (#{emit 27319}# #{x 27812}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g28653}#) - #((m28654 top)) - #("i28657")) + #(#{ g27298}#) + #((m27299 top)) + #("i27302")) #(ribcage #(x) #((top)) - #("i28651")) + #("i27296")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28589")) + #("i27234")) #(ribcage (emit quasivector quasilist* @@ -25260,188 +25698,188 @@ (top) (top) (top)) - ("i28410" - "i28408" - "i28406" - "i28404" - "i28402" - "i28400" - "i28398"))) + ("i27055" + "i27053" + "i27051" + "i27049" + "i27047" + "i27045" + "i27043"))) (hygiene guile)) - #{tmp 29168}#))) - #{tmp 29163}#) - (let ((#{tmp 29171}# + #{tmp 27813}#))) + #{tmp 27808}#) + (let ((#{tmp 27816}# ($sc-dispatch - #{x 29114}# + #{x 27759}# '(#(atom "value") any)))) - (if #{tmp 29171}# + (if #{tmp 27816}# (@apply - (lambda (#{x 29175}#) #{x 29175}#) - #{tmp 29171}#) + (lambda (#{x 27820}#) #{x 27820}#) + #{tmp 27816}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29114}#)))))))))))))))))) - (lambda (#{x 28675}#) - (let ((#{tmp 28677}# - ($sc-dispatch #{x 28675}# '(_ any)))) - (if #{tmp 28677}# + #{x 27759}#)))))))))))))))))) + (lambda (#{x 27320}#) + (let ((#{tmp 27322}# + ($sc-dispatch #{x 27320}# '(_ any)))) + (if #{tmp 27322}# (@apply - (lambda (#{e 28681}#) - (#{emit 28674}# (#{quasi 28668}# #{e 28681}# 0))) - #{tmp 28677}#) + (lambda (#{e 27326}#) + (#{emit 27319}# (#{quasi 27313}# #{e 27326}# 0))) + #{tmp 27322}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28675}#))))))) + #{x 27320}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 29230}#) + (lambda (#{x 27875}#) (letrec* - ((#{read-file 29231}# - (lambda (#{fn 29340}# #{k 29341}#) - (let ((#{p 29342}# (open-input-file #{fn 29340}#))) + ((#{read-file 27876}# + (lambda (#{fn 27985}# #{k 27986}#) + (let ((#{p 27987}# (open-input-file #{fn 27985}#))) (letrec* - ((#{f 29343}# - (lambda (#{x 29397}# #{result 29398}#) - (if (eof-object? #{x 29397}#) + ((#{f 27988}# + (lambda (#{x 28042}# #{result 28043}#) + (if (eof-object? #{x 28042}#) (begin - (close-input-port #{p 29342}#) - (reverse #{result 29398}#)) - (#{f 29343}# - (read #{p 29342}#) - (cons (datum->syntax #{k 29341}# #{x 29397}#) - #{result 29398}#)))))) - (#{f 29343}# (read #{p 29342}#) '())))))) - (let ((#{tmp 29233}# - ($sc-dispatch #{x 29230}# '(any any)))) - (if #{tmp 29233}# + (close-input-port #{p 27987}#) + (reverse #{result 28043}#)) + (#{f 27988}# + (read #{p 27987}#) + (cons (datum->syntax #{k 27986}# #{x 28042}#) + #{result 28043}#)))))) + (#{f 27988}# (read #{p 27987}#) '())))))) + (let ((#{tmp 27878}# + ($sc-dispatch #{x 27875}# '(any any)))) + (if #{tmp 27878}# (@apply - (lambda (#{k 29237}# #{filename 29238}#) - (let ((#{fn 29239}# (syntax->datum #{filename 29238}#))) - (let ((#{tmp 29240}# - (#{read-file 29231}# - #{fn 29239}# - #{filename 29238}#))) - (let ((#{tmp 29241}# - ($sc-dispatch #{tmp 29240}# 'each-any))) - (if #{tmp 29241}# + (lambda (#{k 27882}# #{filename 27883}#) + (let ((#{fn 27884}# (syntax->datum #{filename 27883}#))) + (let ((#{tmp 27885}# + (#{read-file 27876}# + #{fn 27884}# + #{filename 27883}#))) + (let ((#{tmp 27886}# + ($sc-dispatch #{tmp 27885}# 'each-any))) + (if #{tmp 27886}# (@apply - (lambda (#{exp 29259}#) + (lambda (#{exp 27904}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i29227")) + #(ribcage #(exp) #((top)) #("i27872")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29222")) + #(ribcage #(fn) #((top)) #("i27867")) #(ribcage #(k filename) #((top) (top)) - #("i29218" "i29219")) - #(ribcage (read-file) ((top)) ("i29202")) - #(ribcage #(x) #((top)) #("i29201"))) + #("i27863" "i27864")) + #(ribcage (read-file) ((top)) ("i27847")) + #(ribcage #(x) #((top)) #("i27846"))) (hygiene guile)) - #{exp 29259}#)) - #{tmp 29241}#) + #{exp 27904}#)) + #{tmp 27886}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29240}#)))))) - #{tmp 29233}#) + #{tmp 27885}#)))))) + #{tmp 27878}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29230}#))))))) + #{x 27875}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 29417}#) - (let ((#{tmp 29419}# - ($sc-dispatch #{x 29417}# '(any any)))) - (if #{tmp 29419}# + (lambda (#{x 28062}#) + (let ((#{tmp 28064}# + ($sc-dispatch #{x 28062}# '(any any)))) + (if #{tmp 28064}# (@apply - (lambda (#{k 29423}# #{filename 29424}#) - (let ((#{fn 29425}# (syntax->datum #{filename 29424}#))) - (let ((#{tmp 29426}# + (lambda (#{k 28068}# #{filename 28069}#) + (let ((#{fn 28070}# (syntax->datum #{filename 28069}#))) + (let ((#{tmp 28071}# (datum->syntax - #{filename 29424}# - (let ((#{t 29429}# (%search-load-path #{fn 29425}#))) - (if #{t 29429}# - #{t 29429}# + #{filename 28069}# + (let ((#{t 28074}# (%search-load-path #{fn 28070}#))) + (if #{t 28074}# + #{t 28074}# (syntax-violation 'include-from-path "file not found in path" - #{x 29417}# - #{filename 29424}#)))))) + #{x 28062}# + #{filename 28069}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29411")) + #(ribcage #(fn) #((top)) #("i28056")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29407")) + #(ribcage #(fn) #((top)) #("i28052")) #(ribcage #(k filename) #((top) (top)) - #("i29403" "i29404")) + #("i28048" "i28049")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29400"))) + #(ribcage #(x) #((top)) #("i28045"))) (hygiene guile)) - #{tmp 29426}#)))) - #{tmp 29419}#) + #{tmp 28071}#)))) + #{tmp 28064}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29417}#)))))) + #{x 28062}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 29438}#) + (lambda (#{x 28083}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 29438}#)))) + #{x 28083}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 29441}#) + (lambda (#{x 28086}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 29441}#)))) + #{x 28086}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 29497}#) - (let ((#{tmp 29499}# + (lambda (#{x 28142}#) + (let ((#{tmp 28144}# ($sc-dispatch - #{x 29497}# + #{x 28142}# '(_ any any . each-any)))) - (if #{tmp 29499}# + (if #{tmp 28144}# (@apply - (lambda (#{e 29503}# #{m1 29504}# #{m2 29505}#) - (let ((#{tmp 29506}# + (lambda (#{e 28148}# #{m1 28149}# #{m2 28150}#) + (let ((#{tmp 28151}# (letrec* - ((#{f 29548}# - (lambda (#{clause 29551}# #{clauses 29552}#) - (if (null? #{clauses 29552}#) - (let ((#{tmp 29554}# + ((#{f 28193}# + (lambda (#{clause 28196}# #{clauses 28197}#) + (if (null? #{clauses 28197}#) + (let ((#{tmp 28199}# ($sc-dispatch - #{clause 29551}# + #{clause 28196}# '(#(free-id #(syntax-object else @@ -25450,91 +25888,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile))) any . each-any)))) - (if #{tmp 29554}# + (if #{tmp 28199}# (@apply - (lambda (#{e1 29558}# #{e2 29559}#) + (lambda (#{e1 28203}# #{e2 28204}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i29465" "i29466")) + #("i28110" "i28111")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) - (cons #{e1 29558}# #{e2 29559}#))) - #{tmp 29554}#) - (let ((#{tmp 29560}# + (cons #{e1 28203}# #{e2 28204}#))) + #{tmp 28199}#) + (let ((#{tmp 28205}# ($sc-dispatch - #{clause 29551}# + #{clause 28196}# '(each-any any . each-any)))) - (if #{tmp 29560}# + (if #{tmp 28205}# (@apply - (lambda (#{k 29564}# - #{e1 29565}# - #{e2 29566}#) + (lambda (#{k 28209}# + #{e1 28210}# + #{e2 28211}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29471" - "i29472" - "i29473")) + #("i28116" + "i28117" + "i28118")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) (list '#(syntax-object memv @@ -25544,9 +25982,9 @@ #((top) (top) (top)) - #("i29471" - "i29472" - "i29473")) + #("i28116" + "i28117" + "i28118")) #(ribcage () () ()) #(ribcage #(f @@ -25555,22 +25993,22 @@ #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) '#(syntax-object t @@ -25580,9 +26018,9 @@ #((top) (top) (top)) - #("i29471" - "i29472" - "i29473")) + #("i28116" + "i28117" + "i28118")) #(ribcage () () ()) #(ribcage #(f @@ -25591,22 +26029,22 @@ #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) (list '#(syntax-object quote @@ -25616,9 +26054,9 @@ #((top) (top) (top)) - #("i29471" - "i29472" - "i29473")) + #("i28116" + "i28117" + "i28118")) #(ribcage () () @@ -25630,17 +26068,17 @@ #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () @@ -25648,10 +26086,10 @@ #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) - #{k 29564}#)) + #{k 28209}#)) (cons '#(syntax-object begin ((top) @@ -25660,9 +26098,9 @@ #((top) (top) (top)) - #("i29471" - "i29472" - "i29473")) + #("i28116" + "i28117" + "i28118")) #(ribcage () () ()) #(ribcage #(f @@ -25671,76 +26109,76 @@ #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) - (cons #{e1 29565}# - #{e2 29566}#)))) - #{tmp 29560}#) + (cons #{e1 28210}# + #{e2 28211}#)))) + #{tmp 28205}#) (syntax-violation 'case "bad clause" - #{x 29497}# - #{clause 29551}#))))) - (let ((#{tmp 29574}# - (#{f 29548}# - (car #{clauses 29552}#) - (cdr #{clauses 29552}#)))) - (let ((#{tmp 29577}# + #{x 28142}# + #{clause 28196}#))))) + (let ((#{tmp 28219}# + (#{f 28193}# + (car #{clauses 28197}#) + (cdr #{clauses 28197}#)))) + (let ((#{tmp 28222}# ($sc-dispatch - #{clause 29551}# + #{clause 28196}# '(each-any any . each-any)))) - (if #{tmp 29577}# + (if #{tmp 28222}# (@apply - (lambda (#{k 29581}# - #{e1 29582}# - #{e2 29583}#) + (lambda (#{k 28226}# + #{e1 28227}# + #{e2 28228}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29487" - "i29488" - "i29489")) + #("i28132" + "i28133" + "i28134")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29483")) + #("i28128")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) (list '#(syntax-object memv @@ -25748,32 +26186,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29487" - "i29488" - "i29489")) + #("i28132" + "i28133" + "i28134")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29483")) + #("i28128")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) '#(syntax-object t @@ -25781,32 +26219,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29487" - "i29488" - "i29489")) + #("i28132" + "i28133" + "i28134")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29483")) + #("i28128")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) (list '#(syntax-object quote @@ -25816,9 +26254,9 @@ #((top) (top) (top)) - #("i29487" - "i29488" - "i29489")) + #("i28132" + "i28133" + "i28134")) #(ribcage () () @@ -25826,7 +26264,7 @@ #(ribcage #(rest) #((top)) - #("i29483")) + #("i28128")) #(ribcage () () @@ -25838,17 +26276,17 @@ #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () @@ -25856,232 +26294,232 @@ #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) - #{k 29581}#)) + #{k 28226}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29487" - "i29488" - "i29489")) + #("i28132" + "i28133" + "i28134")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29483")) + #("i28128")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29456" - "i29457" - "i29458")) + #("i28101" + "i28102" + "i28103")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" - "i29447" - "i29448")) + #("i28091" + "i28092" + "i28093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29443"))) + #("i28088"))) (hygiene guile)) - (cons #{e1 29582}# - #{e2 29583}#)) - #{tmp 29574}#)) - #{tmp 29577}#) + (cons #{e1 28227}# + #{e2 28228}#)) + #{tmp 28219}#)) + #{tmp 28222}#) (syntax-violation 'case "bad clause" - #{x 29497}# - #{clause 29551}#)))))))) - (#{f 29548}# #{m1 29504}# #{m2 29505}#)))) - (let ((#{body 29507}# #{tmp 29506}#)) + #{x 28142}# + #{clause 28196}#)))))))) + (#{f 28193}# #{m1 28149}# #{m2 28150}#)))) + (let ((#{body 28152}# #{tmp 28151}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i29454")) + #(ribcage #(body) #((top)) #("i28099")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" "i29447" "i29448")) + #("i28091" "i28092" "i28093")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29443"))) + #(ribcage #(x) #((top)) #("i28088"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i29454")) + #(ribcage #(body) #((top)) #("i28099")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29446" "i29447" "i29448")) + #("i28091" "i28092" "i28093")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29443"))) + #(ribcage #(x) #((top)) #("i28088"))) (hygiene guile)) - #{e 29503}#)) - #{body 29507}#)))) - #{tmp 29499}#) + #{e 28148}#)) + #{body 28152}#)))) + #{tmp 28144}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29497}#)))))) + #{x 28142}#)))))) (define make-variable-transformer - (lambda (#{proc 29601}#) - (if (procedure? #{proc 29601}#) + (lambda (#{proc 28246}#) + (if (procedure? #{proc 28246}#) (letrec* - ((#{trans 29602}# - (lambda (#{x 29608}#) - (#{proc 29601}# #{x 29608}#)))) + ((#{trans 28247}# + (lambda (#{x 28253}#) + (#{proc 28246}# #{x 28253}#)))) (begin (set-procedure-property! - #{trans 29602}# + #{trans 28247}# 'variable-transformer #t) - #{trans 29602}#)) + #{trans 28247}#)) (error "variable transformer not a procedure" - #{proc 29601}#)))) + #{proc 28246}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 29640}#) - (let ((#{tmp 29642}# - ($sc-dispatch #{x 29640}# '(_ any)))) - (if #{tmp 29642}# + (lambda (#{x 28285}#) + (let ((#{tmp 28287}# + ($sc-dispatch #{x 28285}# '(_ any)))) + (if #{tmp 28287}# (@apply - (lambda (#{e 29646}#) + (lambda (#{e 28291}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) - #{e 29646}#)) + #{e 28291}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i29615")) + #(ribcage #(e) #((top)) #("i28260")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) - (cons #{e 29646}# + (cons #{e 28291}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i29615")) + #("i28260")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) #(syntax-object ... @@ -26089,55 +26527,55 @@ #(ribcage #(e) #((top)) - #("i29615")) + #("i28260")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile))))))))) - #{tmp 29642}#) - (let ((#{tmp 29647}# + #{tmp 28287}#) + (let ((#{tmp 28292}# ($sc-dispatch - #{x 29640}# + #{x 28285}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 29647}# + (if (if #{tmp 28292}# (@apply - (lambda (#{id 29651}# - #{exp1 29652}# - #{var 29653}# - #{val 29654}# - #{exp2 29655}#) - (if (identifier? #{id 29651}#) - (identifier? #{var 29653}#) + (lambda (#{id 28296}# + #{exp1 28297}# + #{var 28298}# + #{val 28299}# + #{exp2 28300}#) + (if (identifier? #{id 28296}#) + (identifier? #{var 28298}#) #f)) - #{tmp 29647}#) + #{tmp 28292}#) #f) (@apply - (lambda (#{id 29656}# - #{exp1 29657}# - #{var 29658}# - #{val 29659}# - #{exp2 29660}#) + (lambda (#{id 28301}# + #{exp1 28302}# + #{var 28303}# + #{val 28304}# + #{exp2 28305}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29630" "i29631" "i29632" "i29633" "i29634")) + #("i28275" "i28276" "i28277" "i28278" "i28279")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) (list '#(syntax-object lambda @@ -26145,13 +26583,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) '(#(syntax-object x @@ -26159,13 +26597,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -26173,13 +26611,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) . #(syntax-object @@ -26188,13 +26626,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -26202,13 +26640,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) '#(syntax-object x @@ -26216,13 +26654,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile)) '(#(syntax-object set! @@ -26230,13 +26668,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29612"))) + #(ribcage #(x) #((top)) #("i28257"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26248,19 +26686,19 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) - #{var 29658}# - #{val 29659}#) + #{var 28303}# + #{val 28304}#) (list '#(syntax-object syntax ((top) @@ -26271,19 +26709,19 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) - #{exp2 29660}#)) - (list (cons #{id 29656}# + #{exp2 28305}#)) + (list (cons #{id 28301}# '(#(syntax-object x ((top) @@ -26294,16 +26732,16 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) #(syntax-object ... @@ -26315,16 +26753,16 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26336,18 +26774,18 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) - (cons #{exp1 29657}# + (cons #{exp1 28302}# '(#(syntax-object x ((top) @@ -26362,16 +26800,16 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) #(syntax-object ... @@ -26387,18 +26825,18 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)))))) - (list #{id 29656}# + (list #{id 28301}# (list '#(syntax-object identifier? ((top) @@ -26409,16 +26847,16 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26434,18 +26872,18 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) - #{id 29656}#)) + #{id 28301}#)) (list '#(syntax-object syntax ((top) @@ -26456,68 +26894,68 @@ (top) (top) (top)) - #("i29630" - "i29631" - "i29632" - "i29633" - "i29634")) + #("i28275" + "i28276" + "i28277" + "i28278" + "i28279")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29612"))) + #("i28257"))) (hygiene guile)) - #{exp1 29657}#)))))) - #{tmp 29647}#) + #{exp1 28302}#)))))) + #{tmp 28292}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29640}#)))))))) + #{x 28285}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 29692}#) - (let ((#{tmp 29694}# + (lambda (#{x 28337}#) + (let ((#{tmp 28339}# ($sc-dispatch - #{x 29692}# + #{x 28337}# '(_ (any . any) any . each-any)))) - (if #{tmp 29694}# + (if #{tmp 28339}# (@apply - (lambda (#{id 29698}# - #{args 29699}# - #{b0 29700}# - #{b1 29701}#) + (lambda (#{id 28343}# + #{args 28344}# + #{b0 28345}# + #{b1 28346}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i29674" "i29675" "i29676" "i29677")) + #("i28319" "i28320" "i28321" "i28322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29671"))) + #(ribcage #(x) #((top)) #("i28316"))) (hygiene guile)) - #{id 29698}# + #{id 28343}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i29674" "i29675" "i29676" "i29677")) + #("i28319" "i28320" "i28321" "i28322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29671"))) + #(ribcage #(x) #((top)) #("i28316"))) (hygiene guile)) - (cons #{args 29699}# - (cons #{b0 29700}# #{b1 29701}#))))) - #{tmp 29694}#) - (let ((#{tmp 29702}# - ($sc-dispatch #{x 29692}# '(_ any any)))) - (if (if #{tmp 29702}# + (cons #{args 28344}# + (cons #{b0 28345}# #{b1 28346}#))))) + #{tmp 28339}#) + (let ((#{tmp 28347}# + ($sc-dispatch #{x 28337}# '(_ any any)))) + (if (if #{tmp 28347}# (@apply - (lambda (#{id 29706}# #{val 29707}#) + (lambda (#{id 28351}# #{val 28352}#) (identifier? '#(syntax-object x @@ -26525,29 +26963,29 @@ #(ribcage #(id val) #((top) (top)) - #("i29684" "i29685")) + #("i28329" "i28330")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29671"))) + #(ribcage #(x) #((top)) #("i28316"))) (hygiene guile)))) - #{tmp 29702}#) + #{tmp 28347}#) #f) (@apply - (lambda (#{id 29708}# #{val 29709}#) + (lambda (#{id 28353}# #{val 28354}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i29688" "i29689")) + #("i28333" "i28334")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29671"))) + #(ribcage #(x) #((top)) #("i28316"))) (hygiene guile)) - #{id 29708}# - #{val 29709}#)) - #{tmp 29702}#) + #{id 28353}# + #{val 28354}#)) + #{tmp 28347}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29692}#)))))))) + #{x 28337}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 1bf3c3210..be6b2b614 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -786,6 +786,40 @@ id)))))) (else (syntax-violation 'id-var-name "invalid id" id))))) + ;; Returns three values: binding type, binding value, the module (for + ;; resolving toplevel vars). + (define (resolve-identifier id w r mod) + (define (resolve-global var mod) + (let ((b (or (get-global-definition-hook var mod) + (make-binding 'global)))) + (if (eq? (binding-type b) 'global) + (values 'global var mod) + (values (binding-type b) (binding-value b) mod)))) + (define (resolve-lexical label mod) + (let ((b (or (assq-ref r label) + (make-binding 'displaced-lexical)))) + (values (binding-type b) (binding-value b) mod))) + (let ((n (id-var-name id w))) + (cond + ((symbol? n) + (resolve-global n (if (syntax-object? id) + (syntax-object-module id) + mod))) + ((string? n) + (resolve-lexical n (if (syntax-object? id) + (syntax-object-module id) + mod))) + (else + (error "unexpected id-var-name" id w n))))) + + (define transformer-environment + (make-fluid + (lambda (k) + (error "called outside the dynamic extent of a syntax transformer")))) + + (define (with-transformer-environment k) + ((fluid-ref transformer-environment) k)) + ;; free-id=? must be passed fully wrapped ids since (free-id=? x y) ;; may be true even if (free-id=? (wrap x w) (wrap y w)) is not. @@ -1321,8 +1355,10 @@ (syntax-violation #f "encountered raw symbol in macro output" (source-wrap e w (wrap-subst w) mod) x)) (else (decorate-source x s))))) - (rebuild-macro-output (p (source-wrap e (anti-mark w) s mod)) - (new-mark)))) + (with-fluids ((transformer-environment + (lambda (k) (k e r w s rib mod)))) + (rebuild-macro-output (p (source-wrap e (anti-mark w) s mod)) + (new-mark))))) (define expand-body ;; In processing the forms of the body, we create a new, empty wrap. @@ -2435,6 +2471,33 @@ (set! syntax-source (lambda (x) (source-annotation x))) + (set! syntax-local-binding + (lambda (id) + (arg-check nonsymbol-id? id 'syntax-local-value) + (with-transformer-environment + (lambda (e r w s rib mod) + (define (strip-anti-mark w) + (let ((ms (wrap-marks w)) (s (wrap-subst w))) + (if (and (pair? ms) (eq? (car ms) the-anti-mark)) + ;; output is from original text + (make-wrap (cdr ms) (if rib (cons rib (cdr s)) (cdr s))) + ;; output introduced by macro + (make-wrap ms (if rib (cons rib s) s))))) + (call-with-values (lambda () + (resolve-identifier + (syntax-object-expression id) + (strip-anti-mark (syntax-object-wrap id)) + r + (syntax-object-module id))) + (lambda (type value mod) + (case type + ((lexical) (values 'lexical value)) + ((macro) (values 'macro value)) + ((syntax) (values 'pattern-variable value)) + ((displaced-lexical) (values 'displaced-lexical #f)) + ((global) (values 'global (cons value mod))) + (else (values 'other #f))))))))) + (set! generate-temporaries (lambda (ls) (arg-check list? ls 'generate-temporaries)