summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-01-15 17:51:02 +0100
committerAndy Wingo <wingo@pobox.com>2012-01-19 12:38:27 +0100
commit9b0975f1dc41ddd10d81fb5b0965b9e9a54ef37a (patch)
treed361ad2291377cf541f2a476b68b792734fc249c
parent1ceeca0a76809248aa974685756e0f05c7f64200 (diff)
downloadguile-9b0975f1dc41ddd10d81fb5b0965b9e9a54ef37a.tar.gz
add syntax-local-binding
* module/ice-9/boot-9.scm (syntax-local-binding): New binding. * module/ice-9/psyntax.scm: Locally define a fluid that holds the "transformer environment". with-transformer-environment calls a procedure with the transformer environment, or raises an error if called outside the extent of a transformer. Bind transformer-environment in expand-macro. (resolve-identifier): Backport this helper from master. (syntax-local-binding): New procedure to return binding information of a bound identifier (a lexical, macro, a pattern variable, a displaced lexical, a global, or some other form). * module/ice-9/psyntax-pp.scm: Regenerate. * doc/ref/api-macros.texi (Syntax Transformer Helpers): Add docs for syntax-local-binding, and syntax-source, and move some other descriptions to this new section.
-rw-r--r--doc/ref/api-macros.texi98
-rw-r--r--module/ice-9/boot-9.scm1
-rw-r--r--module/ice-9/psyntax-pp.scm39840
-rw-r--r--module/ice-9/psyntax.scm67
4 files changed, 20291 insertions, 19715 deletions
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}#)
+(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)
+ #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 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}#)))))
+ (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 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}#
- #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}#)
+ (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 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 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
+ (if (if (struct? #{exp 15471}#)
+ (eq? (struct-vtable #{exp 15471}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (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 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}#)
- (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}#)
+ (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 6)
- #{source 15942}#
- #{mod 15973}#
- #{var 15974}#
- #{public? 15975}#
- #{exp 15944}#))
- (lambda (#{var 15983}#)
+ (vector-ref %expanded-vtables 5)
+ #{source 26145}#
+ #{mod 26150}#
+ #{var 26151}#
+ #{public? 26152}#))
+ (lambda (#{var 26160}#)
(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}#)))))
- (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}#
+ (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 14)
- #{src 15989}#
- #{req 15990}#
- #f
- #{rest 15991}#
- #f
- '()
- #{vars 15992}#
- #{exp 15994}#
- #f)))
- (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}#)
- (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}#
+ (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)
+ #{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 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}#
+ (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 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}#))))
+ (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
- (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}#
- (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)
+ #{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)
- (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)
+ (#{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)
- #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}#))
+ (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)
- #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}#)))
+ #f))))
+ (#{id-var-name 4434}#
+ (lambda (#{id 15884}# #{w 15885}#)
+ (letrec*
+ ((#{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)
+ (values
+ (vector-ref
+ (vector-ref #{fst 15950}# 3)
+ #{i 15967}#)
+ #{marks 15949}#)
+ (#{f 15965}# (#{1+}# #{i 15967}#)))))))
+ (#{f 15965}# 0)))
(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 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
- (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)
+ (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)
- #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)
+ (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)
- #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)
+ (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)
- (if (vector? #{j 17172}#)
- (if (= (vector-length #{j 17172}#) 4)
- (eq? (vector-ref #{j 17172}# 0) 'syntax-object)
#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)
- (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)
+ (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)
- (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
+ #{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
- "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)))))
+ #{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
- (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}#)
+ (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 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}#))))
+ (cons #{e 18221}#
+ #{exps 16978}#))))
(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)
+ (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?
+ #{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? #{t 19330}# 'core)
+ (if (eqv? #{type 18857}# 'core)
#t
- (if (eqv? #{t 19330}# 'macro)
+ (if (eqv? #{type 18857}#
+ '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}#)
+ (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)
- (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}#)))
+ #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 11)
- #f
- #{fun-exp 20129}#
- #{arg-exps 20130}#))))
- (begin
- (if (if (struct? #{exp 20119}#)
- (eq? (struct-vtable #{exp 20119}#)
- (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}#)))))
- (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}# '(()))))
- (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)
+ (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 20248}# 'eval)
+ (if (eq? #{t 19495}# 'load)
#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))
+ (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 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))
+ #{type 19506}#
+ (cdr #{b 19505}#)
+ #{e 19497}#
+ #{w 19499}#
+ #{s 19500}#
+ #{mod 19502}#)
+ (if (eqv? #{type 19506}# 'global)
(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)
+ #{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
- '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)
+ '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
- 'local-syntax-form
- #{fval 20898}#
- #{e 20250}#
- #{w 20252}#
- #{s 20253}#
- #{mod 20255}#)
- (if (eqv? #{ftype 20897}# 'begin)
+ 'core-form
+ #{fval 19542}#
+ #{e 19497}#
+ #{w 19499}#
+ #{s 19500}#
+ #{mod 19502}#)
+ (if (eqv? #{ftype 19541}# 'local-syntax)
(values
- 'begin-form
- #f
- #{e 20250}#
- #{w 20252}#
- #{s 20253}#
- #{mod 20255}#)
- (if (eqv? #{ftype 20897}# 'eval-when)
+ 'local-syntax-form
+ #{fval 19542}#
+ #{e 19497}#
+ #{w 19499}#
+ #{s 19500}#
+ #{mod 19502}#)
+ (if (eqv? #{ftype 19541}# 'begin)
(values
- 'eval-when-form
+ 'begin-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}#)
- #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}#)
- (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}#
+ #{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)
+ (#{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
+ #{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)
- #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)
+ (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)
- #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)
+ (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)
- #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)
+ (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
- (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)
+ (if (eqv? #{type 20406}#
+ 'define-syntax-form)
+ #t
+ (eqv? #{type 20406}#
+ 'define-syntax-parameter-form)))
(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)
+ "definition in expression context"
+ #{e 20408}#
+ (#{wrap 4443}#
+ #{value 20407}#
+ #{w 20410}#
+ #{mod 20412}#))
+ (if (eqv? #{type 20406}# 'syntax)
(syntax-violation
#f
- "reference to identifier outside its scope"
- (#{wrap 4338}#
+ "reference to pattern variable outside syntax form"
+ (#{wrap 4443}#
(begin
- (if (if (pair? #{e 21764}#)
- #{s 21767}#
+ (if (if (pair? #{e 20408}#)
+ #{s 20411}#
#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)
+ #{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)
- #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)))
+ (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 23036}#) #{s 23011}# #f)
+ (if (if (pair? #{e 21702}#) #{x 21633}# #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}#
+ #{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"))))
- (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}#
+ (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 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 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
- #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}#)))
+ (map (lambda (#{x 22353}#)
+ (let ((#{e 22357}#
+ (cdr #{x 22353}#))
+ (#{r 22358}#
+ (car #{x 22353}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4344}#
- #{e 24179}#
- #{r 24180}#
+ (#{syntax-type 4449}#
+ #{e 22357}#
+ #{r 22358}#
'(())
- (#{source-annotation 4306}#
- #{e 24179}#)
+ (#{source-annotation 4408}#
+ #{e 22357}#)
#f
- #{mod 23331}#
+ #{mod 21976}#
#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
- #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)
+ (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)
- #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)
+ (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)
- #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)
- '...
+ (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,728 +6102,5644 @@
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)
+ (hygiene guile))
+ '(())))
+ #f)
+ #f)))
+ (#{lambda-formals 4459}#
+ (lambda (#{orig-args 23328}#)
+ (letrec*
+ ((#{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)
#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}#)
+ (symbol? (vector-ref #{a 23463}# 1))
+ #f)))
+ #{tmp 23459}#)
+ #f)
+ (@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 ()
+ (#{check 24089}#
+ (reverse #{rreq 24093}#)
+ '()
+ #f
+ '()))
+ #{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 (#{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))
+ ("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 #{a 24264}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (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)
+ (@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? #{r 24850}#)
- (if (= (vector-length #{r 24850}#) 4)
- (eq? (vector-ref #{r 24850}# 0)
+ (if (if (vector? #{a 24382}#)
+ (if (= (vector-length #{a 24382}#) 4)
+ (eq? (vector-ref #{a 24382}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 24850}# 1))
+ (symbol? (vector-ref #{a 24382}# 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)
+ #{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
+ #(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))
+ #("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))
+ ("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)))))
+ #{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
+ (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
- '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}#
+ '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 ()
- (#{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)
+ (#{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)
- #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}#)
+ (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)
- (@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}#)
+ (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)
- (@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}#)))
+ #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 (#{r 25522}#)
- (if (symbol? #{r 25522}#)
+ (lambda (#{e 9313}#)
+ (if (symbol? #{e 9313}#)
#t
- (if (if (vector? #{r 25522}#)
+ (if (if (vector? #{e 9313}#)
(if (= (vector-length
- #{r 25522}#)
+ #{e 9313}#)
4)
(eq? (vector-ref
- #{r 25522}#
+ #{e 9313}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 25522}# 1))
+ (vector-ref #{e 9313}# 1))
#f)))
- #{tmp 25520}#)
+ #{tmp 9311}#)
(@apply
- (lambda (#{r 25552}#)
- (#{rest 25443}#
- #{r 25552}#
- (reverse #{rreq 25448}#)
- '()
- '()))
- #{tmp 25520}#)
+ (lambda (#{e 9343}#)
+ (#{build-global-assignment 4389}#
+ #{s 8792}#
+ (syntax->datum #{e 9343}#)
+ #{val 9304}#
+ #{mod 9309}#))
+ #{tmp 9311}#)
(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}#
+ #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 ()
- (#{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
+ (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
+ #(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)))
+ 4)
+ #t
+ #f)
+ '_
+ '#(syntax-object
+ _
((top)
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2369" "i2370"))
#(ribcage () () ())
#(ribcage
- #(args req ropt)
+ #(p n ids)
#((top) (top) (top))
- #("i2359" "i2360" "i2361"))
+ #("i3805" "i3806" "i3807"))
#(ribcage
- (check rest key opt req)
- ((top) (top) (top) (top) (top))
- ("i2305"
- "i2303"
- "i2301"
- "i2299"
- "i2297"))
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3778" "i3776" "i3774"))
#(ribcage
- #(orig-args)
- #((top))
- #("i2296"))
+ #(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
@@ -6354,6 +11769,9 @@
valid-bound-ids?
bound-id=?
free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -6597,8 +12015,14 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i467"
+ ("i473"
+ "i471"
+ "i469"
+ "i467"
"i465"
"i463"
"i461"
@@ -6741,4884 +12165,8 @@
((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}#
- (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}#)
- #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)
- #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
- (lambda ()
- (#{syntax-type 4344}#
- #{head 9860}#
- #{r 9006}#
- '(())
- #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}#)
- (@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)
- (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)
- '_
+ (eq? (#{id-var-name 4434}# #{p 12777}# '(()))
+ (#{id-var-name 4434}#
'#(syntax-object
_
((top)
@@ -11626,22 +12174,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3747" "i3748" "i3749"))
+ #("i3805" "i3806" "i3807"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3720" "i3718" "i3716"))
+ ("i3778" "i3776" "i3774"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3714" "i3715"))
+ #("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
@@ -11671,6 +12219,9 @@
valid-bound-ids?
bound-id=?
free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -11914,8 +12465,14 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i467"
+ ("i473"
+ "i471"
+ "i469"
+ "i467"
"i465"
"i463"
"i461"
@@ -12057,924 +12614,932 @@
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}#)
- 4)
- (eq? (vector-ref
- #{dots 13674}#
- 0)
- 'syntax-object)
+ (hygiene guile))
+ '(())))
+ #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)
- #f)
- (symbol? (vector-ref #{dots 13674}# 1))
- #f)
- (if (eq? (if (if (vector? #{dots 13674}#)
- (if (= (vector-length
- #{dots 13674}#)
+ (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)
- (eq? (vector-ref
- #{dots 13674}#
- 0)
- 'syntax-object)
+ #t
#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))
+ #("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)
@@ -12983,7 +13548,7 @@
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2288"))
#(ribcage
(lambda-var-list
gen-var
@@ -13013,6 +13578,9 @@
valid-bound-ids?
bound-id=?
free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -13256,8 +13824,14 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i467"
+ ("i473"
+ "i471"
+ "i469"
+ "i467"
"i465"
"i463"
"i461"
@@ -13399,932 +13973,954 @@
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)
+ (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)
- #f)
- (symbol?
- (vector-ref #{dots 13783}# 1))
- #f)
- (if (eq? (if (if (vector?
- #{dots 13783}#)
- (if (= (vector-length
- #{dots 13783}#)
+ (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)
- (eq? (vector-ref
- #{dots 13783}#
- 0)
- 'syntax-object)
+ #t
#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
+ ...
+ ((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 13213}#
+ '(()))
+ (#{id-var-name 4434}#
'#(syntax-object
...
((top)
@@ -14333,7 +14929,7 @@
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2288"))
#(ribcage
(lambda-var-list
gen-var
@@ -14363,6 +14959,9 @@
valid-bound-ids?
bound-id=?
free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -14606,8 +15205,14 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i467"
+ ("i473"
+ "i471"
+ "i469"
+ "i467"
"i465"
"i463"
"i461"
@@ -14749,1069 +15354,1098 @@
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)
+ (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)
- #f)
- (symbol?
- (vector-ref #{x 12995}# 1))
- #f)
- (if (eq? (if (if (vector? #{x 12995}#)
- (if (= (vector-length
- #{x 12995}#)
+ (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)
- (eq? (vector-ref
- #{x 12995}#
- 0)
- 'syntax-object)
+ #t
#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)
- #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)
@@ -15820,7 +16454,7 @@
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2288"))
#(ribcage
(lambda-var-list
gen-var
@@ -15850,6 +16484,9 @@
valid-bound-ids?
bound-id=?
free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -16093,8 +16730,14 @@
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i467"
+ ("i473"
+ "i471"
+ "i469"
+ "i467"
"i465"
"i463"
"i461"
@@ -16236,1567 +16879,2549 @@
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)))
+ (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
- 10)
+ 1)
#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}#)))
+ #{p 12304}#))))
(make-struct/no-tail
- (vector-ref %expanded-vtables 10)
+ (vector-ref %expanded-vtables 11)
#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)
+ #{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)
- #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)
+ (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)
- #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)
+ (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)
- #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
- ...
- ((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))
- #{keys 12146}#))
- #f)
- (if (if (eq? (if (if (= (vector-length
- '#(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)))
- 4)
- #t
- #f)
- 'pad
+ (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}#
- #f
- (list (syntax->datum #{pat 12191}#))
+ (vector-ref #{pat 11621}# 1)
+ #{pat 11621}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 11864}#)
+ " ")))))
+ (#{build-application 4382}#
#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}#)
+ (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)
+ (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)
- (eq? (vector-ref
- #{x 11782}#
- 0)
- 'syntax-object)
+ #t
#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)
- '...
+ '...
+ '#(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)
+ (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)
- #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)
+ (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)
- #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)
+ (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)
#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)
+ (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)
- #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)
+ (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)
- #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)
+ (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)
- #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)
+ (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)
- #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)
+ (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)
- (if (vector? #{y 14850}#)
- (if (= (vector-length #{y 14850}#) 4)
- (eq? (vector-ref #{y 14850}# 0) 'syntax-object)
#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)
- (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)
+ (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)
- #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)
+ (#{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)
- #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)))
+ (#{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*
- ((#{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)
+ ((#{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 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)
+ (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)
- #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)
+ (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)
- #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)
+ (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)
- #f)
- (vector-ref #{j 15699}# 1)
- #{j 15699}#))
- (eq? (#{id-var-name 4332}#
- #{i 15698}#
- '(()))
- (#{id-var-name 4332}#
- #{j 15699}#
- '(())))
- #f))
- #{r 15245}#
+ (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)
- (if (eqv? #{atom-key 15256}# 'atom)
- (if (equal?
- (vector-ref #{p 15243}# 1)
- (#{strip 4358}# #{e 15242}# #{w 15244}#))
- #{r 15245}#
- #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)
+ (#{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)
- #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)))))))))
+ (#{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)