[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-164-g7d02e
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-164-g7d02e25 |
Date: |
Thu, 19 Jan 2012 13:39:08 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=7d02e256610e37c0ab0e8c55623d6f6c6eacab82
The branch, stable-2.0 has been updated
via 7d02e256610e37c0ab0e8c55623d6f6c6eacab82 (commit)
via 9b0975f1dc41ddd10d81fb5b0965b9e9a54ef37a (commit)
from 1ceeca0a76809248aa974685756e0f05c7f64200 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 7d02e256610e37c0ab0e8c55623d6f6c6eacab82
Author: Andy Wingo <address@hidden>
Date: Thu Jan 19 13:08:19 2012 +0100
avoid gensym when making labels in psyntax
* module/ice-9/psyntax.scm (gen-label): Avoid gensym, as we don't need
to make symbols.
* module/ice-9/psyntax-pp.scm: Regenerate.
commit 9b0975f1dc41ddd10d81fb5b0965b9e9a54ef37a
Author: Andy Wingo <address@hidden>
Date: Sun Jan 15 17:51:02 2012 +0100
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.
-----------------------------------------------------------------------
Summary of changes:
doc/ref/api-macros.texi | 98 +-
module/ice-9/boot-9.scm | 1 +
module/ice-9/psyntax-pp.scm |47169 ++++++++++++++++++++++---------------------
module/ice-9/psyntax.scm | 74 +-
4 files changed, 23839 insertions(+), 23503 deletions(-)
diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi
index e60864b..4702d2f 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
address@hidden system. The book itself is available online at
address@hidden://scheme.com/tspl4/}.
+
address@hidden Syntax Transformer Helpers
address@hidden 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
address@hidden system. The book itself is available online at
address@hidden://scheme.com/tspl4/}.
address@hidden {Scheme Procedure} syntax-source x
+Return the source properties that correspond to the syntax object
address@hidden @xref{Source Properties}, for more information.
address@hidden deffn
+
address@hidden {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:
+
address@hidden @code
address@hidden lexical
+A lexically-bound variable. The value is a unique token (in the sense
+of @code{eq?}) identifying this binding.
address@hidden macro
+A syntax transformer, either local or global. The value is the
+transformer procedure.
address@hidden pattern-variable
+A pattern variable, bound via syntax-case. The value is an opaque
+object, internal to the expander.
address@hidden 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
address@hidden
address@hidden 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.
address@hidden other
+Some other binding, like @code{lambda} or other core bindings. The
+value is @code{#f}.
address@hidden 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:
+
address@hidden
+(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)
address@hidden foo
+(retrieve-aux foo)
address@hidden bar
address@hidden example
+
address@hidden must be called within the dynamic extent of
+a syntax transformer; to call it otherwise will signal an error.
address@hidden 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 0c150cf..d006d47 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 ea8843b..b1f1d12 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,20606 +1,21313 @@
(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 ((#{gen-label 2745}# (if #f #f))
+ (#{transformer-environment 2764}# (if #f #f)))
+ (letrec*
+ ((#{top-level-eval-hook 2703}#
+ (lambda (#{x 24076}# #{mod 24077}#)
+ (primitive-eval #{x 24076}#)))
+ (#{get-global-definition-hook 2706}#
+ (lambda (#{symbol 13606}# #{module 13607}#)
+ (begin
+ (if (if (not #{module 13607}#) (current-module) #f)
+ (warn "module system is booted, we should have a module"
+ #{symbol 13606}#))
+ (let ((#{v 13608}#
+ (module-variable
+ (if #{module 13607}#
+ (resolve-module (cdr #{module 13607}#))
+ (current-module))
+ #{symbol 13606}#)))
+ (if #{v 13608}#
+ (if (variable-bound? #{v 13608}#)
+ (let ((#{val 13610}# (variable-ref #{v 13608}#)))
+ (if (macro? #{val 13610}#)
+ (if (macro-type #{val 13610}#)
+ (cons (macro-type #{val 13610}#)
+ (macro-binding #{val 13610}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (#{maybe-name-value! 2708}#
+ (lambda (#{name 13887}# #{val 13888}#)
+ (if (if (struct? #{val 13888}#)
+ (eq? (struct-vtable #{val 13888}#)
(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 13895}# (struct-ref #{val 13888}# 1)))
+ (if (not (assq 'name #{meta 13895}#))
+ (let ((#{v 13900}#
+ (cons (cons 'name #{name 13887}#) #{meta 13895}#)))
+ (struct-set! #{val 13888}# 1 #{v 13900}#)))))))
+ (#{build-application 2710}#
+ (lambda (#{source 13612}#
+ #{fun-exp 13613}#
+ #{arg-exps 13614}#)
(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 13612}#
+ #{fun-exp 13613}#
+ #{arg-exps 13614}#)))
+ (#{build-conditional 2711}#
+ (lambda (#{source 13620}#
+ #{test-exp 13621}#
+ #{then-exp 13622}#
+ #{else-exp 13623}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ #{source 13620}#
+ #{test-exp 13621}#
+ #{then-exp 13622}#
+ #{else-exp 13623}#)))
+ (#{build-dynlet 2712}#
+ (lambda (#{source 13630}#
+ #{fluids 13631}#
+ #{vals 13632}#
+ #{body 13633}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 17)
+ #{source 13630}#
+ #{fluids 13631}#
+ #{vals 13632}#
+ #{body 13633}#)))
+ (#{build-lexical-reference 2713}#
+ (lambda (#{type 24078}#
+ #{source 24079}#
+ #{name 24080}#
+ #{var 24081}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{source 24079}#
+ #{name 24080}#
+ #{var 24081}#)))
+ (#{build-lexical-assignment 2714}#
+ (lambda (#{source 13640}#
+ #{name 13641}#
+ #{var 13642}#
+ #{exp 13643}#)
+ (begin
+ (if (if (struct? #{exp 13643}#)
+ (eq? (struct-vtable #{exp 13643}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 13659}# (struct-ref #{exp 13643}# 1)))
+ (if (not (assq 'name #{meta 13659}#))
+ (let ((#{v 13666}#
+ (cons (cons 'name #{name 13641}#) #{meta 13659}#)))
+ (struct-set! #{exp 13643}# 1 #{v 13666}#)))))
(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 13640}#
+ #{name 13641}#
+ #{var 13642}#
+ #{exp 13643}#))))
+ (#{analyze-variable 2715}#
+ (lambda (#{mod 24087}#
+ #{var 24088}#
+ #{modref-cont 24089}#
+ #{bare-cont 24090}#)
+ (if (not #{mod 24087}#)
+ (#{bare-cont 24090}# #{var 24088}#)
+ (let ((#{kind 24091}# (car #{mod 24087}#))
+ (#{mod 24092}# (cdr #{mod 24087}#)))
+ (if (eqv? #{kind 24091}# 'public)
+ (#{modref-cont 24089}#
+ #{mod 24092}#
+ #{var 24088}#
+ #t)
+ (if (eqv? #{kind 24091}# 'private)
+ (if (not (equal?
+ #{mod 24092}#
+ (module-name (current-module))))
+ (#{modref-cont 24089}#
+ #{mod 24092}#
+ #{var 24088}#
+ #f)
+ (#{bare-cont 24090}# #{var 24088}#))
+ (if (eqv? #{kind 24091}# 'bare)
+ (#{bare-cont 24090}# #{var 24088}#)
+ (if (eqv? #{kind 24091}# 'hygiene)
+ (if (if (not (equal?
+ #{mod 24092}#
+ (module-name (current-module))))
+ (module-variable
+ (resolve-module #{mod 24092}#)
+ #{var 24088}#)
+ #f)
+ (#{modref-cont 24089}#
+ #{mod 24092}#
+ #{var 24088}#
+ #f)
+ (#{bare-cont 24090}# #{var 24088}#))
+ (syntax-violation
+ #f
+ "bad module kind"
+ #{var 24088}#
+ #{mod 24092}#)))))))))
+ (#{build-global-reference 2716}#
+ (lambda (#{source 24107}# #{var 24108}# #{mod 24109}#)
+ (#{analyze-variable 2715}#
+ #{mod 24109}#
+ #{var 24108}#
+ (lambda (#{mod 24112}# #{var 24113}# #{public? 24114}#)
(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 24107}#
+ #{mod 24112}#
+ #{var 24113}#
+ #{public? 24114}#))
+ (lambda (#{var 24122}#)
(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 24107}#
+ #{var 24122}#)))))
+ (#{build-global-assignment 2717}#
+ (lambda (#{source 13675}#
+ #{var 13676}#
+ #{exp 13677}#
+ #{mod 13678}#)
+ (begin
+ (if (if (struct? #{exp 13677}#)
+ (eq? (struct-vtable #{exp 13677}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 13694}# (struct-ref #{exp 13677}# 1)))
+ (if (not (assq 'name #{meta 13694}#))
+ (let ((#{v 13701}#
+ (cons (cons 'name #{var 13676}#) #{meta 13694}#)))
+ (struct-set! #{exp 13677}# 1 #{v 13701}#)))))
+ (#{analyze-variable 2715}#
+ #{mod 13678}#
+ #{var 13676}#
+ (lambda (#{mod 13706}# #{var 13707}# #{public? 13708}#)
(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 13675}#
+ #{mod 13706}#
+ #{var 13707}#
+ #{public? 13708}#
+ #{exp 13677}#))
+ (lambda (#{var 13716}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 8)
+ #{source 13675}#
+ #{var 13716}#
+ #{exp 13677}#))))))
+ (#{build-global-definition 2718}#
+ (lambda (#{source 24128}# #{var 24129}# #{exp 24130}#)
+ (begin
+ (if (if (struct? #{exp 24130}#)
+ (eq? (struct-vtable #{exp 24130}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 24146}# (struct-ref #{exp 24130}# 1)))
+ (if (not (assq 'name #{meta 24146}#))
+ (let ((#{v 24153}#
+ (cons (cons 'name #{var 24129}#) #{meta 24146}#)))
+ (struct-set! #{exp 24130}# 1 #{v 24153}#)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
+ #{source 24128}#
+ #{var 24129}#
+ #{exp 24130}#))))
+ (#{build-simple-lambda 2719}#
+ (lambda (#{src 13722}#
+ #{req 13723}#
+ #{rest 13724}#
+ #{vars 13725}#
+ #{meta 13726}#
+ #{exp 13727}#)
+ (let ((#{body 13733}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{src 13722}#
+ #{req 13723}#
+ #f
+ #{rest 13724}#
+ #f
+ '()
+ #{vars 13725}#
+ #{exp 13727}#
+ #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 13722}#
+ #{meta 13726}#
+ #{body 13733}#))))
+ (#{build-sequence 2724}#
+ (lambda (#{src 24161}# #{exps 24162}#)
+ (if (null? (cdr #{exps 24162}#))
+ (car #{exps 24162}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 12)
+ #{src 24161}#
+ #{exps 24162}#))))
+ (#{build-let 2725}#
+ (lambda (#{src 13745}#
+ #{ids 13746}#
+ #{vars 13747}#
+ #{val-exps 13748}#
+ #{body-exp 13749}#)
+ (begin
+ (for-each
+ #{maybe-name-value! 2708}#
+ #{ids 13746}#
+ #{val-exps 13748}#)
+ (if (null? #{vars 13747}#)
+ #{body-exp 13749}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 15)
+ #{src 13745}#
+ #{ids 13746}#
+ #{vars 13747}#
+ #{val-exps 13748}#
+ #{body-exp 13749}#)))))
+ (#{build-named-let 2726}#
+ (lambda (#{src 13773}#
+ #{ids 13774}#
+ #{vars 13775}#
+ #{val-exps 13776}#
+ #{body-exp 13777}#)
+ (let ((#{f 13778}# (car #{vars 13775}#))
+ (#{f-name 13779}# (car #{ids 13774}#))
+ (#{vars 13780}# (cdr #{vars 13775}#))
+ (#{ids 13781}# (cdr #{ids 13774}#)))
+ (let ((#{proc 13782}#
+ (let ((#{body 13802}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{src 13773}#
+ #{ids 13781}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 13780}#
+ #{body-exp 13777}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{src 13773}#
+ '()
+ #{body 13802}#))))
+ (begin
+ (if (if (struct? #{proc 13782}#)
+ (eq? (struct-vtable #{proc 13782}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 13826}# (struct-ref #{proc 13782}# 1)))
+ (if (not (assq 'name #{meta 13826}#))
+ (let ((#{v 13833}#
+ (cons (cons 'name #{f-name 13779}#)
+ #{meta 13826}#)))
+ (struct-set! #{proc 13782}# 1 #{v 13833}#)))))
+ (for-each
+ #{maybe-name-value! 2708}#
+ #{ids 13781}#
+ #{val-exps 13776}#)
+ (let ((#{names 13857}# (list #{f-name 13779}#))
+ (#{gensyms 13858}# (list #{f 13778}#))
+ (#{vals 13859}# (list #{proc 13782}#))
+ (#{body 13860}#
+ (let ((#{fun-exp 13864}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{src 13773}#
+ #{f-name 13779}#
+ #{f 13778}#)))
(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 13773}#
+ #{fun-exp 13864}#
+ #{val-exps 13776}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ #{src 13773}#
+ #f
+ #{names 13857}#
+ #{gensyms 13858}#
+ #{vals 13859}#
+ #{body 13860}#)))))))
+ (#{build-letrec 2727}#
+ (lambda (#{src 13880}#
+ #{in-order? 13881}#
+ #{ids 13882}#
+ #{vars 13883}#
+ #{val-exps 13884}#
+ #{body-exp 13885}#)
+ (if (null? #{vars 13883}#)
+ #{body-exp 13885}#
(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! 2708}#
+ #{ids 13882}#
+ #{val-exps 13884}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ #{src 13880}#
+ #{in-order? 13881}#
+ #{ids 13882}#
+ #{vars 13883}#
+ #{val-exps 13884}#
+ #{body-exp 13885}#)))))
+ (#{source-annotation 2736}#
+ (lambda (#{x 13911}#)
+ (if (if (vector? #{x 13911}#)
+ (if (= (vector-length #{x 13911}#) 4)
+ (eq? (vector-ref #{x 13911}# 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 2736}#
+ (vector-ref #{x 13911}# 1))
+ (if (pair? #{x 13911}#)
+ (let ((#{props 13926}# (source-properties #{x 13911}#)))
+ (if (pair? #{props 13926}#) #{props 13926}# #f))
+ #f))))
+ (#{extend-env 2737}#
+ (lambda (#{labels 13928}# #{bindings 13929}# #{r 13930}#)
+ (if (null? #{labels 13928}#)
+ #{r 13930}#
+ (#{extend-env 2737}#
+ (cdr #{labels 13928}#)
+ (cdr #{bindings 13929}#)
+ (cons (cons (car #{labels 13928}#)
+ (car #{bindings 13929}#))
+ #{r 13930}#)))))
+ (#{extend-var-env 2738}#
+ (lambda (#{labels 13931}# #{vars 13932}# #{r 13933}#)
+ (if (null? #{labels 13931}#)
+ #{r 13933}#
+ (#{extend-var-env 2738}#
+ (cdr #{labels 13931}#)
+ (cdr #{vars 13932}#)
+ (cons (cons (car #{labels 13931}#)
+ (cons 'lexical (car #{vars 13932}#)))
+ #{r 13933}#)))))
+ (#{macros-only-env 2739}#
+ (lambda (#{r 13934}#)
+ (if (null? #{r 13934}#)
+ '()
+ (let ((#{a 13935}# (car #{r 13934}#)))
+ (if (eq? (car (cdr #{a 13935}#)) 'macro)
+ (cons #{a 13935}#
+ (#{macros-only-env 2739}# (cdr #{r 13934}#)))
+ (#{macros-only-env 2739}# (cdr #{r 13934}#)))))))
+ (#{global-extend 2741}#
+ (lambda (#{type 13937}# #{sym 13938}# #{val 13939}#)
+ (module-define!
+ (current-module)
+ #{sym 13938}#
+ (make-syntax-transformer
+ #{sym 13938}#
+ #{type 13937}#
+ #{val 13939}#))))
+ (#{id? 2743}#
+ (lambda (#{x 8002}#)
+ (if (symbol? #{x 8002}#)
+ #t
+ (if (if (vector? #{x 8002}#)
+ (if (= (vector-length #{x 8002}#) 4)
+ (eq? (vector-ref #{x 8002}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 8002}# 1))
+ #f))))
+ (#{gen-labels 2746}#
+ (lambda (#{ls 13952}#)
+ (if (null? #{ls 13952}#)
+ '()
+ (cons (#{gen-label 2745}#)
+ (#{gen-labels 2746}# (cdr #{ls 13952}#))))))
+ (#{make-binding-wrap 2757}#
+ (lambda (#{ids 13953}# #{labels 13954}# #{w 13955}#)
+ (if (null? #{ids 13953}#)
+ #{w 13955}#
+ (cons (car #{w 13955}#)
+ (cons (let ((#{labelvec 13956}#
+ (list->vector #{labels 13954}#)))
+ (let ((#{n 13957}#
+ (vector-length #{labelvec 13956}#)))
+ (let ((#{symnamevec 13958}#
+ (make-vector #{n 13957}#))
+ (#{marksvec 13959}#
+ (make-vector #{n 13957}#)))
+ (begin
+ (letrec*
+ ((#{f 13960}#
+ (lambda (#{ids 13963}# #{i 13964}#)
+ (if (not (null? #{ids 13963}#))
+ (call-with-values
+ (lambda ()
+ (let ((#{x 13967}#
+ (car #{ids 13963}#)))
+ (if (if (vector? #{x 13967}#)
+ (if (= (vector-length
+ #{x 13967}#)
+ 4)
+ (eq? (vector-ref
+ #{x 13967}#
+ 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 13967}# 1)
+ (let ((#{m1 13983}#
+ (car #{w 13955}#))
+ (#{m2 13984}#
+ (car (vector-ref
+ #{x 13967}#
+ 2))))
+ (if (null? #{m2 13984}#)
+ #{m1 13983}#
+ (append
+ #{m1 13983}#
+ #{m2 13984}#))))
+ (values
+ #{x 13967}#
+ (car #{w 13955}#)))))
+ (lambda (#{symname 14004}#
+ #{marks 14005}#)
+ (begin
+ (vector-set!
+ #{symnamevec 13958}#
+ #{i 13964}#
+ #{symname 14004}#)
+ (vector-set!
+ #{marksvec 13959}#
+ #{i 13964}#
+ #{marks 14005}#)
+ (#{f 13960}#
+ (cdr #{ids 13963}#)
+ (#{1+}# #{i 13964}#)))))))))
+ (#{f 13960}# #{ids 13953}# 0))
+ (vector
+ 'ribcage
+ #{symnamevec 13958}#
+ #{marksvec 13959}#
+ #{labelvec 13956}#)))))
+ (cdr #{w 13955}#))))))
+ (#{join-wraps 2759}#
+ (lambda (#{w1 14014}# #{w2 14015}#)
+ (let ((#{m1 14016}# (car #{w1 14014}#))
+ (#{s1 14017}# (cdr #{w1 14014}#)))
+ (if (null? #{m1 14016}#)
+ (if (null? #{s1 14017}#)
+ #{w2 14015}#
+ (cons (car #{w2 14015}#)
+ (let ((#{m2 14024}# (cdr #{w2 14015}#)))
+ (if (null? #{m2 14024}#)
+ #{s1 14017}#
+ (append #{s1 14017}# #{m2 14024}#)))))
+ (cons (let ((#{m2 14033}# (car #{w2 14015}#)))
+ (if (null? #{m2 14033}#)
+ #{m1 14016}#
+ (append #{m1 14016}# #{m2 14033}#)))
+ (let ((#{m2 14042}# (cdr #{w2 14015}#)))
+ (if (null? #{m2 14042}#)
+ #{s1 14017}#
+ (append #{s1 14017}# #{m2 14042}#))))))))
+ (#{same-marks? 2761}#
+ (lambda (#{x 14047}# #{y 14048}#)
+ (if (eq? #{x 14047}# #{y 14048}#)
+ (eq? #{x 14047}# #{y 14048}#)
+ (if (not (null? #{x 14047}#))
+ (if (not (null? #{y 14048}#))
+ (if (eq? (car #{x 14047}#) (car #{y 14048}#))
+ (#{same-marks? 2761}#
+ (cdr #{x 14047}#)
+ (cdr #{y 14048}#))
+ #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 2762}#
+ (lambda (#{id 14056}# #{w 14057}#)
+ (letrec*
+ ((#{search 14058}#
+ (lambda (#{sym 14119}# #{subst 14120}# #{marks 14121}#)
+ (if (null? #{subst 14120}#)
+ (values #f #{marks 14121}#)
+ (let ((#{fst 14122}# (car #{subst 14120}#)))
+ (if (eq? #{fst 14122}# 'shift)
+ (#{search 14058}#
+ #{sym 14119}#
+ (cdr #{subst 14120}#)
+ (cdr #{marks 14121}#))
+ (let ((#{symnames 14124}# (vector-ref #{fst 14122}# 1)))
+ (if (vector? #{symnames 14124}#)
+ (let ((#{n 14136}#
+ (vector-length #{symnames 14124}#)))
+ (letrec*
+ ((#{f 14137}#
+ (lambda (#{i 14139}#)
+ (if (= #{i 14139}# #{n 14136}#)
+ (#{search 14058}#
+ #{sym 14119}#
+ (cdr #{subst 14120}#)
+ #{marks 14121}#)
+ (if (if (eq? (vector-ref
+ #{symnames 14124}#
+ #{i 14139}#)
+ #{sym 14119}#)
+ (#{same-marks? 2761}#
+ #{marks 14121}#
+ (vector-ref
+ (vector-ref #{fst 14122}# 2)
+ #{i 14139}#))
+ #f)
+ (values
+ (vector-ref
+ (vector-ref #{fst 14122}# 3)
+ #{i 14139}#)
+ #{marks 14121}#)
+ (#{f 14137}# (#{1+}# #{i 14139}#)))))))
+ (#{f 14137}# 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 14172}#
+ (lambda (#{symnames 14174}# #{i 14175}#)
+ (if (null? #{symnames 14174}#)
+ (#{search 14058}#
+ #{sym 14119}#
+ (cdr #{subst 14120}#)
+ #{marks 14121}#)
+ (if (if (eq? (car #{symnames 14174}#)
+ #{sym 14119}#)
+ (#{same-marks? 2761}#
+ #{marks 14121}#
+ (list-ref
+ (vector-ref #{fst 14122}# 2)
+ #{i 14175}#))
#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 14122}# 3)
+ #{i 14175}#)
+ #{marks 14121}#)
+ (#{f 14172}#
+ (cdr #{symnames 14174}#)
+ (#{1+}# #{i 14175}#)))))))
+ (#{f 14172}# #{symnames 14124}# 0))))))))))
+ (if (symbol? #{id 14056}#)
+ (let ((#{t 14061}#
+ (#{search 14058}#
+ #{id 14056}#
+ (cdr #{w 14057}#)
+ (car #{w 14057}#))))
+ (if #{t 14061}# #{t 14061}# #{id 14056}#))
+ (if (if (vector? #{id 14056}#)
+ (if (= (vector-length #{id 14056}#) 4)
+ (eq? (vector-ref #{id 14056}# 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 14076}# (vector-ref #{id 14056}# 1))
+ (#{w1 14077}# (vector-ref #{id 14056}# 2)))
+ (let ((#{marks 14078}#
+ (let ((#{m1 14088}# (car #{w 14057}#))
+ (#{m2 14089}# (car #{w1 14077}#)))
+ (if (null? #{m2 14089}#)
+ #{m1 14088}#
+ (append #{m1 14088}# #{m2 14089}#)))))
+ (call-with-values
+ (lambda ()
+ (#{search 14058}#
+ #{id 14076}#
+ (cdr #{w 14057}#)
+ #{marks 14078}#))
+ (lambda (#{new-id 14105}# #{marks 14106}#)
+ (if #{new-id 14105}#
+ #{new-id 14105}#
+ (let ((#{t 14114}#
+ (#{search 14058}#
+ #{id 14076}#
+ (cdr #{w1 14077}#)
+ #{marks 14106}#)))
+ (if #{t 14114}# #{t 14114}# #{id 14076}#)))))))
+ (syntax-violation
+ 'id-var-name
+ "invalid id"
+ #{id 14056}#))))))
+ (#{valid-bound-ids? 2768}#
+ (lambda (#{ids 14197}#)
+ (if (letrec*
+ ((#{all-ids? 14198}#
+ (lambda (#{ids 14360}#)
+ (if (null? #{ids 14360}#)
+ (null? #{ids 14360}#)
+ (if (let ((#{x 14371}# (car #{ids 14360}#)))
+ (if (symbol? #{x 14371}#)
+ #t
+ (if (if (vector? #{x 14371}#)
+ (if (= (vector-length #{x 14371}#) 4)
+ (eq? (vector-ref #{x 14371}# 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 14371}# 1))
+ #f)))
+ (#{all-ids? 14198}# (cdr #{ids 14360}#))
+ #f)))))
+ (#{all-ids? 14198}# #{ids 14197}#))
+ (#{distinct-bound-ids? 2769}# #{ids 14197}#)
+ #f)))
+ (#{distinct-bound-ids? 2769}#
+ (lambda (#{ids 14499}#)
+ (letrec*
+ ((#{distinct? 14500}#
+ (lambda (#{ids 14612}#)
+ (if (null? #{ids 14612}#)
+ (null? #{ids 14612}#)
+ (if (not (#{bound-id-member? 2770}#
+ (car #{ids 14612}#)
+ (cdr #{ids 14612}#)))
+ (#{distinct? 14500}# (cdr #{ids 14612}#))
+ #f)))))
+ (#{distinct? 14500}# #{ids 14499}#))))
+ (#{bound-id-member? 2770}#
+ (lambda (#{x 14822}# #{list 14823}#)
+ (if (not (null? #{list 14823}#))
+ (let ((#{t 14824}#
+ (let ((#{j 14905}# (car #{list 14823}#)))
+ (if (if (if (vector? #{x 14822}#)
+ (if (= (vector-length #{x 14822}#) 4)
+ (eq? (vector-ref #{x 14822}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (if (vector? #{j 14905}#)
+ (if (= (vector-length #{j 14905}#) 4)
+ (eq? (vector-ref #{j 14905}# 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 14822}# 1)
+ (vector-ref #{j 14905}# 1))
+ (#{same-marks? 2761}#
+ (car (vector-ref #{x 14822}# 2))
+ (car (vector-ref #{j 14905}# 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 14822}# #{j 14905}#)))))
+ (if #{t 14824}#
+ #{t 14824}#
+ (#{bound-id-member? 2770}#
+ #{x 14822}#
+ (cdr #{list 14823}#))))
+ #f)))
+ (#{wrap 2771}#
+ (lambda (#{x 14949}# #{w 14950}# #{defmod 14951}#)
+ (if (if (null? (car #{w 14950}#))
+ (null? (cdr #{w 14950}#))
#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 14949}#
+ (if (if (vector? #{x 14949}#)
+ (if (= (vector-length #{x 14949}#) 4)
+ (eq? (vector-ref #{x 14949}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 14965}# (vector-ref #{x 14949}# 1))
+ (#{wrap 14966}#
+ (#{join-wraps 2759}#
+ #{w 14950}#
+ (vector-ref #{x 14949}# 2)))
+ (#{module 14967}# (vector-ref #{x 14949}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 14965}#
+ #{wrap 14966}#
+ #{module 14967}#))
+ (if (null? #{x 14949}#)
+ #{x 14949}#
+ (vector
+ 'syntax-object
+ #{x 14949}#
+ #{w 14950}#
+ #{defmod 14951}#))))))
+ (#{source-wrap 2772}#
+ (lambda (#{x 14984}#
+ #{w 14985}#
+ #{s 14986}#
+ #{defmod 14987}#)
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{x 14984}#) #{s 14986}# #f)
+ (set-source-properties! #{x 14984}# #{s 14986}#))
+ #{x 14984}#)
+ #{w 14985}#
+ #{defmod 14987}#)))
+ (#{expand-sequence 2773}#
+ (lambda (#{body 24167}#
+ #{r 24168}#
+ #{w 24169}#
+ #{s 24170}#
+ #{mod 24171}#)
+ (#{build-sequence 2724}#
+ #{s 24170}#
+ (letrec*
+ ((#{dobody 24251}#
+ (lambda (#{body 24601}#
+ #{r 24602}#
+ #{w 24603}#
+ #{mod 24604}#)
+ (if (null? #{body 24601}#)
+ '()
+ (let ((#{first 24605}#
+ (let ((#{e 24609}# (car #{body 24601}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{e 24609}#
+ #{r 24602}#
+ #{w 24603}#
+ (#{source-annotation 2736}# #{e 24609}#)
#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 24604}#
+ #f))
+ (lambda (#{type 24616}#
+ #{value 24617}#
+ #{e 24618}#
+ #{w 24619}#
+ #{s 24620}#
+ #{mod 24621}#)
+ (#{expand-expr 2779}#
+ #{type 24616}#
+ #{value 24617}#
+ #{e 24618}#
+ #{r 24602}#
+ #{w 24619}#
+ #{s 24620}#
+ #{mod 24621}#))))))
+ (cons #{first 24605}#
+ (#{dobody 24251}#
+ (cdr #{body 24601}#)
+ #{r 24602}#
+ #{w 24603}#
+ #{mod 24604}#)))))))
+ (#{dobody 24251}#
+ #{body 24167}#
+ #{r 24168}#
+ #{w 24169}#
+ #{mod 24171}#)))))
+ (#{expand-top-sequence 2774}#
+ (lambda (#{body 15005}#
+ #{r 15006}#
+ #{w 15007}#
+ #{s 15008}#
+ #{m 15009}#
+ #{esew 15010}#
+ #{mod 15011}#)
+ (letrec*
+ ((#{scan 15012}#
+ (lambda (#{body 15143}#
+ #{r 15144}#
+ #{w 15145}#
+ #{s 15146}#
+ #{m 15147}#
+ #{esew 15148}#
+ #{mod 15149}#
+ #{exps 15150}#)
+ (if (null? #{body 15143}#)
+ #{exps 15150}#
+ (call-with-values
+ (lambda ()
+ (call-with-values
+ (lambda ()
+ (let ((#{e 15151}# (car #{body 15143}#)))
+ (#{syntax-type 2777}#
+ #{e 15151}#
+ #{r 15144}#
+ #{w 15145}#
+ (let ((#{t 15155}#
+ (#{source-annotation 2736}#
+ #{e 15151}#)))
+ (if #{t 15155}# #{t 15155}# #{s 15146}#))
+ #f
+ #{mod 15149}#
+ #f)))
+ (lambda (#{type 15390}#
+ #{value 15391}#
+ #{e 15392}#
+ #{w 15393}#
+ #{s 15394}#
+ #{mod 15395}#)
+ (if (eqv? #{type 15390}# 'begin-form)
+ (let ((#{tmp 15400}#
+ ($sc-dispatch #{e 15392}# '(_))))
+ (if #{tmp 15400}#
+ (@apply
+ (lambda () #{exps 15150}#)
+ #{tmp 15400}#)
+ (let ((#{tmp 15404}#
+ ($sc-dispatch
+ #{e 15392}#
+ '(_ any . each-any))))
+ (if #{tmp 15404}#
+ (@apply
+ (lambda (#{e1 15408}# #{e2 15409}#)
+ (#{scan 15012}#
+ (cons #{e1 15408}# #{e2 15409}#)
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ #{m 15147}#
+ #{esew 15148}#
+ #{mod 15395}#
+ #{exps 15150}#))
+ #{tmp 15404}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 15392}#)))))
+ (if (eqv? #{type 15390}# 'local-syntax-form)
+ (#{expand-local-syntax 2783}#
+ #{value 15391}#
+ #{e 15392}#
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ #{mod 15395}#
+ (lambda (#{body 15424}#
+ #{r 15425}#
+ #{w 15426}#
+ #{s 15427}#
+ #{mod 15428}#)
+ (#{scan 15012}#
+ #{body 15424}#
+ #{r 15425}#
+ #{w 15426}#
+ #{s 15427}#
+ #{m 15147}#
+ #{esew 15148}#
+ #{mod 15428}#
+ #{exps 15150}#)))
+ (if (eqv? #{type 15390}# 'eval-when-form)
+ (let ((#{tmp 15433}#
+ ($sc-dispatch
+ #{e 15392}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 15433}#
+ (@apply
+ (lambda (#{x 15437}#
+ #{e1 15438}#
+ #{e2 15439}#)
+ (let ((#{when-list 15440}#
+ (#{parse-when-list 2776}#
+ #{e 15392}#
+ #{x 15437}#))
+ (#{body 15441}#
+ (cons #{e1 15438}#
+ #{e2 15439}#)))
+ (if (eq? #{m 15147}# 'e)
+ (if (memq 'eval
+ #{when-list 15440}#)
+ (#{scan 15012}#
+ #{body 15441}#
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ (if (memq 'expand
+ #{when-list 15440}#)
+ 'c&e
+ 'e)
+ '(eval)
+ #{mod 15395}#
+ #{exps 15150}#)
(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 15440}#)
+ (let ((#{x 15518}#
+
(#{expand-top-sequence 2774}#
+ #{body 15441}#
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ 'e
+ '(eval)
+ #{mod 15395}#)))
+ (primitive-eval
+ #{x 15518}#)))
+ (values #{exps 15150}#)))
+ (if (memq 'load
+ #{when-list 15440}#)
+ (if (let ((#{t 15544}#
+ (memq 'compile
+ #{when-list
15440}#)))
+ (if #{t 15544}#
+ #{t 15544}#
+ (let ((#{t 15593}#
+ (memq 'expand
+
#{when-list 15440}#)))
+ (if #{t 15593}#
+ #{t 15593}#
+ (if (eq? #{m 15147}#
+ 'c&e)
+ (memq 'eval
+ #{when-list
15440}#)
+ #f)))))
+ (#{scan 15012}#
+ #{body 15441}#
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ 'c&e
+ '(compile load)
+ #{mod 15395}#
+ #{exps 15150}#)
+ (if (if (eq? #{m 15147}# 'c)
+ #t
+ (eq? #{m 15147}# 'c&e))
+ (#{scan 15012}#
+ #{body 15441}#
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ 'c
+ '(load)
+ #{mod 15395}#
+ #{exps 15150}#)
+ (values #{exps 15150}#)))
+ (if (let ((#{t 15722}#
+ (memq 'compile
+ #{when-list
15440}#)))
+ (if #{t 15722}#
+ #{t 15722}#
+ (let ((#{t 15771}#
+ (memq 'expand
+
#{when-list 15440}#)))
+ (if #{t 15771}#
+ #{t 15771}#
+ (if (eq? #{m 15147}#
+ 'c&e)
+ (memq 'eval
+ #{when-list
15440}#)
+ #f)))))
+ (begin
+ (let ((#{x 15895}#
+
(#{expand-top-sequence 2774}#
+ #{body 15441}#
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ 'e
+ '(eval)
+ #{mod 15395}#)))
+ (primitive-eval
+ #{x 15895}#))
+ (values #{exps 15150}#))
+ (values #{exps 15150}#))))))
+ #{tmp 15433}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 15392}#)))
+ (if (if (eqv? #{type 15390}#
+ 'define-syntax-form)
+ #t
+ (eqv? #{type 15390}#
+ 'define-syntax-parameter-form))
+ (let ((#{n 15941}#
+ (#{id-var-name 2762}#
+ #{value 15391}#
+ #{w 15393}#))
+ (#{r 15942}#
+ (#{macros-only-env 2739}#
+ #{r 15144}#)))
+ (if (eqv? #{m 15147}# 'c)
+ (if (memq 'compile #{esew 15148}#)
+ (let ((#{e 15946}#
+ (#{expand-install-global 2775}#
+ #{n 15941}#
+ (#{expand 2778}#
+ #{e 15392}#
+ #{r 15942}#
+ #{w 15393}#
+ #{mod 15395}#))))
+ (begin
+ (#{top-level-eval-hook 2703}#
+ #{e 15946}#
+ #{mod 15395}#)
+ (if (memq 'load #{esew 15148}#)
+ (values
+ (cons #{e 15946}#
+ #{exps 15150}#))
+ (values #{exps 15150}#))))
+ (if (memq 'load #{esew 15148}#)
+ (values
+ (cons (#{expand-install-global
2775}#
+ #{n 15941}#
+ (#{expand 2778}#
+ #{e 15392}#
+ #{r 15942}#
+ #{w 15393}#
+ #{mod 15395}#))
+ #{exps 15150}#))
+ (values #{exps 15150}#)))
+ (if (eqv? #{m 15147}# 'c&e)
+ (let ((#{e 16393}#
+ (#{expand-install-global 2775}#
+ #{n 15941}#
+ (#{expand 2778}#
+ #{e 15392}#
+ #{r 15942}#
+ #{w 15393}#
+ #{mod 15395}#))))
+ (begin
+ (#{top-level-eval-hook 2703}#
+ #{e 16393}#
+ #{mod 15395}#)
(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 16393}#
+ #{exps 15150}#))))
(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 15148}#)
+ (#{top-level-eval-hook 2703}#
+ (#{expand-install-global 2775}#
+ #{n 15941}#
+ (#{expand 2778}#
+ #{e 15392}#
+ #{r 15942}#
+ #{w 15393}#
+ #{mod 15395}#))
+ #{mod 15395}#))
+ (values #{exps 15150}#)))))
+ (if (eqv? #{type 15390}# 'define-form)
+ (let ((#{n 17028}#
+ (#{id-var-name 2762}#
+ #{value 15391}#
+ #{w 15393}#)))
+ (let ((#{type 17029}#
+ (car (let ((#{t 17036}#
+ (assq #{n 17028}#
+ #{r 15144}#)))
+ (if #{t 17036}#
+ (cdr #{t 17036}#)
+ (if (symbol?
+ #{n 17028}#)
+ (let ((#{t 17042}#
+
(#{get-global-definition-hook 2706}#
+ #{n 17028}#
+ #{mod
15395}#)))
+ (if #{t 17042}#
+ #{t 17042}#
+ '(global)))
+
'(displaced-lexical)))))))
+ (if (if (eqv? #{type 17029}# 'global)
#t
- (if (eqv? #{t 19330}# 'core)
+ (if (eqv? #{type 17029}# 'core)
#t
- (if (eqv? #{t 19330}# 'macro)
+ (if (eqv? #{type 17029}#
+ '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 17029}#
+ 'module-ref))))
+ (begin
+ (if (if (if (eq? #{m 15147}# 'c)
+ #t
+ (eq? #{m 15147}# 'c&e))
+ (if (not
(module-local-variable
+ (current-module)
+ #{n 17028}#))
+ (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 17073}#
+ (module-variable
+ (current-module)
+ #{n 17028}#)))
+ (if (if (variable?
+ #{old 17073}#)
+ (variable-bound?
+ #{old 17073}#)
+ #f)
+ (module-define!
+ (current-module)
+ #{n 17028}#
+ (variable-ref
+ #{old 17073}#))
+ (module-add!
+ (current-module)
+ #{n 17028}#
+
(make-undefined-variable)))))
+ (values
+ (cons (if (eq? #{m 15147}# 'c&e)
+ (let ((#{x 17075}#
+
(#{build-global-definition 2718}#
+ #{s 15394}#
+ #{n 17028}#
+ (#{expand
2778}#
+ #{e 15392}#
+ #{r 15144}#
+ #{w 15393}#
+ #{mod
15395}#))))
+ (begin
+
(#{top-level-eval-hook 2703}#
+ #{x 17075}#
+ #{mod 15395}#)
+ #{x 17075}#))
+ (lambda ()
+
(#{build-global-definition 2718}#
+ #{s 15394}#
+ #{n 17028}#
+ (#{expand 2778}#
+ #{e 15392}#
+ #{r 15144}#
+ #{w 15393}#
+ #{mod 15395}#))))
+ #{exps 15150}#)))
+ (if (eqv? #{type 17029}#
+ 'displaced-lexical)
+ (syntax-violation
+ #f
+ "identifier out of context"
+ #{e 15392}#
+ (#{wrap 2771}#
+ #{value 15391}#
+ #{w 15393}#
+ #{mod 15395}#))
+ (syntax-violation
+ #f
+ "cannot define keyword at top
level"
+ #{e 15392}#
+ (#{wrap 2771}#
+ #{value 15391}#
+ #{w 15393}#
+ #{mod 15395}#))))))
+ (values
+ (cons (if (eq? #{m 15147}# 'c&e)
+ (let ((#{x 17521}#
+ (#{expand-expr 2779}#
+ #{type 15390}#
+ #{value 15391}#
+ #{e 15392}#
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ #{mod 15395}#)))
+ (begin
+ (primitive-eval #{x 17521}#)
+ #{x 17521}#))
+ (lambda ()
+ (#{expand-expr 2779}#
+ #{type 15390}#
+ #{value 15391}#
+ #{e 15392}#
+ #{r 15144}#
+ #{w 15393}#
+ #{s 15394}#
+ #{mod 15395}#)))
+ #{exps 15150}#))))))))))
+ (lambda (#{exps 17530}#)
+ (#{scan 15012}#
+ (cdr #{body 15143}#)
+ #{r 15144}#
+ #{w 15145}#
+ #{s 15146}#
+ #{m 15147}#
+ #{esew 15148}#
+ #{mod 15149}#
+ #{exps 17530}#)))))))
+ (call-with-values
+ (lambda ()
+ (#{scan 15012}#
+ #{body 15005}#
+ #{r 15006}#
+ #{w 15007}#
+ #{s 15008}#
+ #{m 15009}#
+ #{esew 15010}#
+ #{mod 15011}#
+ '()))
+ (lambda (#{exps 15015}#)
+ (if (null? #{exps 15015}#)
(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 15008}#)
+ (#{build-sequence 2724}#
+ #{s 15008}#
+ (letrec*
+ ((#{lp 15055}#
+ (lambda (#{in 15139}# #{out 15140}#)
+ (if (null? #{in 15139}#)
+ #{out 15140}#
+ (let ((#{e 15141}# (car #{in 15139}#)))
+ (#{lp 15055}#
+ (cdr #{in 15139}#)
+ (cons (if (procedure? #{e 15141}#)
+ (#{e 15141}#)
+ #{e 15141}#)
+ #{out 15140}#)))))))
+ (#{lp 15055}# #{exps 15015}# '())))))))))
+ (#{expand-install-global 2775}#
+ (lambda (#{name 17531}# #{e 17532}#)
+ (let ((#{exp 17538}#
+ (let ((#{fun-exp 17548}#
+ (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 17549}#
+ (list (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #{name 17531}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ 'macro)
+ #{e 17532}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 17548}#
+ #{arg-exps 17549}#))))
+ (begin
+ (if (if (struct? #{exp 17538}#)
+ (eq? (struct-vtable #{exp 17538}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 17590}# (struct-ref #{exp 17538}# 1)))
+ (if (not (assq 'name #{meta 17590}#))
+ (let ((#{v 17597}#
+ (cons (cons 'name #{name 17531}#) #{meta 17590}#)))
+ (struct-set! #{exp 17538}# 1 #{v 17597}#)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
+ #f
+ #{name 17531}#
+ #{exp 17538}#)))))
+ (#{parse-when-list 2776}#
+ (lambda (#{e 17608}# #{when-list 17609}#)
+ (let ((#{result 17610}#
+ (#{strip 2791}# #{when-list 17609}# '(()))))
+ (letrec*
+ ((#{lp 17611}#
+ (lambda (#{l 17665}#)
+ (if (null? #{l 17665}#)
+ #{result 17610}#
+ (if (let ((#{t 17667}# (car #{l 17665}#)))
+ (if (eq? #{t 17667}# 'compile)
#t
- (if (eq? #{t 20248}# 'eval)
+ (if (eq? #{t 17667}# '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 17667}# 'eval)
+ #t
+ (eq? #{t 17667}# 'expand)))))
+ (#{lp 17611}# (cdr #{l 17665}#))
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e 17608}#
+ (car #{l 17665}#)))))))
+ (#{lp 17611}# #{result 17610}#)))))
+ (#{syntax-type 2777}#
+ (lambda (#{e 17669}#
+ #{r 17670}#
+ #{w 17671}#
+ #{s 17672}#
+ #{rib 17673}#
+ #{mod 17674}#
+ #{for-car? 17675}#)
+ (if (symbol? #{e 17669}#)
+ (let ((#{n 17676}#
+ (#{id-var-name 2762}# #{e 17669}# #{w 17671}#)))
+ (let ((#{b 17677}#
+ (let ((#{t 17685}# (assq #{n 17676}# #{r 17670}#)))
+ (if #{t 17685}#
+ (cdr #{t 17685}#)
+ (if (symbol? #{n 17676}#)
+ (let ((#{t 17691}#
+ (#{get-global-definition-hook 2706}#
+ #{n 17676}#
+ #{mod 17674}#)))
+ (if #{t 17691}# #{t 17691}# '(global)))
+ '(displaced-lexical))))))
+ (let ((#{type 17678}# (car #{b 17677}#)))
+ (if (eqv? #{type 17678}# '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 17678}#
+ (cdr #{b 17677}#)
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (if (eqv? #{type 17678}# '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 17678}#
+ #{n 17676}#
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (if (eqv? #{type 17678}# 'macro)
+ (if #{for-car? 17675}#
+ (values
+ #{type 17678}#
+ (cdr #{b 17677}#)
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (#{syntax-type 2777}#
+ (#{expand-macro 2781}#
+ (cdr #{b 17677}#)
+ #{e 17669}#
+ #{r 17670}#
+ #{w 17671}#
+ #{s 17672}#
+ #{rib 17673}#
+ #{mod 17674}#)
+ #{r 17670}#
+ '(())
+ #{s 17672}#
+ #{rib 17673}#
+ #{mod 17674}#
+ #f))
+ (values
+ #{type 17678}#
+ (cdr #{b 17677}#)
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)))))))
+ (if (pair? #{e 17669}#)
+ (let ((#{first 17711}# (car #{e 17669}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{first 17711}#
+ #{r 17670}#
+ #{w 17671}#
+ #{s 17672}#
+ #{rib 17673}#
+ #{mod 17674}#
+ #t))
+ (lambda (#{ftype 17713}#
+ #{fval 17714}#
+ #{fe 17715}#
+ #{fw 17716}#
+ #{fs 17717}#
+ #{fmod 17718}#)
+ (if (eqv? #{ftype 17713}# '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 17714}#
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (if (eqv? #{ftype 17713}# 'global)
+ (values
+ 'global-call
+ (vector
+ 'syntax-object
+ #{fval 17714}#
+ #{w 17671}#
+ #{fmod 17718}#)
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (if (eqv? #{ftype 17713}# 'macro)
+ (#{syntax-type 2777}#
+ (#{expand-macro 2781}#
+ #{fval 17714}#
+ #{e 17669}#
+ #{r 17670}#
+ #{w 17671}#
+ #{s 17672}#
+ #{rib 17673}#
+ #{mod 17674}#)
+ #{r 17670}#
+ '(())
+ #{s 17672}#
+ #{rib 17673}#
+ #{mod 17674}#
+ #{for-car? 17675}#)
+ (if (eqv? #{ftype 17713}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{fval 17714}#
+ #{e 17669}#
+ #{r 17670}#
+ #{w 17671}#))
+ (lambda (#{e 17739}#
+ #{r 17740}#
+ #{w 17741}#
+ #{s 17742}#
+ #{mod 17743}#)
+ (#{syntax-type 2777}#
+ #{e 17739}#
+ #{r 17740}#
+ #{w 17741}#
+ #{s 17742}#
+ #{rib 17673}#
+ #{mod 17743}#
+ #{for-car? 17675}#)))
+ (if (eqv? #{ftype 17713}# 'core)
(values
- 'local-syntax-form
- #{fval 20898}#
- #{e 20250}#
- #{w 20252}#
- #{s 20253}#
- #{mod 20255}#)
- (if (eqv? #{ftype 20897}# 'begin)
+ 'core-form
+ #{fval 17714}#
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (if (eqv? #{ftype 17713}# 'local-syntax)
(values
- 'begin-form
- #f
- #{e 20250}#
- #{w 20252}#
- #{s 20253}#
- #{mod 20255}#)
- (if (eqv? #{ftype 20897}# 'eval-when)
+ 'local-syntax-form
+ #{fval 17714}#
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (if (eqv? #{ftype 17713}# '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)
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (if (eqv? #{ftype 17713}# 'eval-when)
+ (values
+ 'eval-when-form
+ #f
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (if (eqv? #{ftype 17713}# 'define)
+ (let ((#{tmp 17760}#
+ ($sc-dispatch
+ #{e 17669}#
+ '(_ any any))))
+ (if (if #{tmp 17760}#
+ (@apply
+ (lambda (#{name 17764}#
+ #{val 17765}#)
+ (if (symbol? #{name 17764}#)
+ #t
+ (if (if (vector?
+ #{name 17764}#)
+ (if (= (vector-length
+ #{name
17764}#)
+ 4)
+ (eq? (vector-ref
+ #{name
17764}#
+ 0)
+ 'syntax-object)
+ #f)
#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}#)
+ (symbol?
+ (vector-ref
+ #{name 17764}#
+ 1))
+ #f)))
+ #{tmp 17760}#)
+ #f)
+ (@apply
+ (lambda (#{name 17792}#
+ #{val 17793}#)
+ (values
+ 'define-form
+ #{name 17792}#
+ #{val 17793}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#))
+ #{tmp 17760}#)
+ (let ((#{tmp 17794}#
+ ($sc-dispatch
+ #{e 17669}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp 17794}#
+ (@apply
+ (lambda (#{name 17798}#
+ #{args 17799}#
+ #{e1 17800}#
+ #{e2 17801}#)
+ (if (if (symbol?
+ #{name 17798}#)
+ #t
+ (if (if (vector?
+ #{name
17798}#)
+ (if (=
(vector-length
+
#{name 17798}#)
+ 4)
+ (eq?
(vector-ref
+
#{name 17798}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 17798}#
+ 1))
+ #f))
+ (#{valid-bound-ids?
2768}#
+ (letrec*
+ ((#{lvl 17950}#
+ (lambda (#{vars
17952}#
+ #{ls
17953}#
+ #{w
17954}#)
+ (if (pair?
#{vars 17952}#)
+ (#{lvl
17950}#
+ (cdr
#{vars 17952}#)
+ (cons
(#{wrap 2771}#
+
(car #{vars 17952}#)
+
#{w 17954}#
+ #f)
+ #{ls
17953}#)
+ #{w
17954}#)
+ (if (if
(symbol?
+
#{vars 17952}#)
+ #t
+ (if
(if (vector?
+
#{vars 17952}#)
+
(if (= (vector-length
+
#{vars 17952}#)
+
4)
+
(eq? (vector-ref
+
#{vars 17952}#
+
0)
+
'syntax-object)
+
#f)
+
#f)
+
(symbol?
+
(vector-ref
+
#{vars 17952}#
+
1))
+ #f))
+ (cons
(#{wrap 2771}#
+
#{vars 17952}#
+
#{w 17954}#
+ #f)
+ #{ls
17953}#)
+ (if (null?
#{vars 17952}#)
+ #{ls
17953}#
+ (if (if
(vector?
+
#{vars 17952}#)
+
(if (= (vector-length
+
#{vars 17952}#)
4)
(eq? (vector-ref
-
#{vars 21136}#
+
#{vars 17952}#
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}#
+ (#{lvl
17950}#
(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}#
- ($sc-dispatch
- #{e 20250}#
- '(_ any any))))
- (if (if #{tmp 21248}#
- (@apply
- (lambda (#{name 21252}#
- #{val 21253}#)
- (if (symbol? #{name 21252}#)
- #t
- (if (if (vector?
- #{name 21252}#)
- (if (= (vector-length
- #{name
21252}#)
- 4)
- (eq? (vector-ref
- #{name
21252}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{name 21252}#
- 1))
- #f)))
- #{tmp 21248}#)
- #f)
- (@apply
- (lambda (#{name 21280}#
- #{val 21281}#)
- (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}#
- ($sc-dispatch
- #{e 20250}#
- '(_ any any))))
- (if (if #{tmp 21292}#
- (@apply
- (lambda (#{name 21296}#
- #{val 21297}#)
- (if (symbol? #{name 21296}#)
- #t
- (if (if (vector?
- #{name 21296}#)
- (if (=
(vector-length
- #{name
21296}#)
- 4)
- (eq? (vector-ref
- #{name
21296}#
- 0)
-
'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{name 21296}#
- 1))
- #f)))
- #{tmp 21292}#)
- #f)
- (@apply
- (lambda (#{name 21324}#
- #{val 21325}#)
- (values
- 'define-syntax-parameter-form
- #{name 21324}#
- #{val 21325}#
- #{w 20252}#
- #{s 20253}#
- #{mod 20255}#))
- #{tmp 21292}#)
- (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)
- #f)
- #f)
- (#{syntax-type 4344}#
- (vector-ref #{e 20250}# 1)
- #{r 20251}#
- (#{join-wraps 4329}#
- #{w 20252}#
- (vector-ref #{e 20250}# 2))
- (let ((#{t 21352}#
- (#{source-annotation 4306}# #{e 20250}#)))
- (if #{t 21352}# #{t 21352}# #{s 20253}#))
- #{rib 20254}#
- (let ((#{t 21587}# (vector-ref #{e 20250}# 3)))
- (if #{t 21587}# #{t 21587}# #{mod 20255}#))
- #{for-car? 20256}#)
- (if (self-evaluating? #{e 20250}#)
- (values
- 'constant
- #f
- #{e 20250}#
- #{w 20252}#
- #{s 20253}#
- #{mod 20255}#)
- (values
- 'other
- #f
- #{e 20250}#
- #{w 20252}#
- #{s 20253}#
- #{mod 20255}#)))))))
- (#{expand 4345}#
- (lambda (#{e 21596}#
- #{r 21597}#
- #{w 21598}#
- #{mod 21599}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 4344}#
- #{e 21596}#
- #{r 21597}#
- #{w 21598}#
- (#{source-annotation 4306}# #{e 21596}#)
- #f
- #{mod 21599}#
- #f))
- (lambda (#{type 21754}#
- #{value 21755}#
- #{e 21756}#
- #{w 21757}#
- #{s 21758}#
- #{mod 21759}#)
- (#{expand-expr 4346}#
- #{type 21754}#
- #{value 21755}#
- #{e 21756}#
- #{r 21597}#
- #{w 21757}#
- #{s 21758}#
- #{mod 21759}#)))))
- (#{expand-expr 4346}#
- (lambda (#{type 21762}#
- #{value 21763}#
- #{e 21764}#
- #{r 21765}#
- #{w 21766}#
- #{s 21767}#
- #{mod 21768}#)
- (if (eqv? #{type 21762}# 'lexical)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #{s 21767}#
- #{e 21764}#
- #{value 21763}#)
- (if (if (eqv? #{type 21762}# 'core)
- #t
- (eqv? #{type 21762}# 'core-form))
- (#{value 21763}#
- #{e 21764}#
- #{r 21765}#
- #{w 21766}#
- #{s 21767}#
- #{mod 21768}#)
- (if (eqv? #{type 21762}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{value 21763}#
- #{e 21764}#
- #{r 21765}#
- #{w 21766}#))
- (lambda (#{e 21794}#
- #{r 21795}#
- #{w 21796}#
- #{s 21797}#
- #{mod 21798}#)
- (#{expand 4345}#
- #{e 21794}#
- #{r 21795}#
- #{w 21796}#
- #{mod 21798}#)))
- (if (eqv? #{type 21762}# 'lexical-call)
- (#{expand-application 4347}#
- (let ((#{id 21873}# (car #{e 21764}#)))
- (#{build-lexical-reference 4283}#
- 'fun
- (#{source-annotation 4306}# #{id 21873}#)
- (if (if (vector? #{id 21873}#)
- (if (= (vector-length #{id 21873}#) 4)
- (eq? (vector-ref #{id 21873}# 0) 'syntax-object)
- #f)
- #f)
- (syntax->datum #{id 21873}#)
- #{id 21873}#)
- #{value 21763}#))
- #{e 21764}#
- #{r 21765}#
- #{w 21766}#
- #{s 21767}#
- #{mod 21768}#)
- (if (eqv? #{type 21762}# 'global-call)
- (#{expand-application 4347}#
- (#{build-global-reference 4286}#
- (#{source-annotation 4306}# (car #{e 21764}#))
- (if (if (vector? #{value 21763}#)
- (if (= (vector-length #{value 21763}#) 4)
- (eq? (vector-ref #{value 21763}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{value 21763}# 1)
- #{value 21763}#)
- (if (if (vector? #{value 21763}#)
- (if (= (vector-length #{value 21763}#) 4)
- (eq? (vector-ref #{value 21763}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{value 21763}# 3)
- #{mod 21768}#))
- #{e 21764}#
- #{r 21765}#
- #{w 21766}#
- #{s 21767}#
- #{mod 21768}#)
- (if (eqv? #{type 21762}# 'constant)
- (let ((#{exp 22210}#
- (#{strip 4358}#
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 21764}#) #{s 21767}# #f)
- (set-source-properties!
- #{e 21764}#
- #{s 21767}#))
- #{e 21764}#)
- #{w 21766}#
- #{mod 21768}#)
- '(()))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #{s 21767}#
- #{exp 22210}#))
- (if (eqv? #{type 21762}# 'global)
- (#{analyze-variable 4285}#
- #{mod 21768}#
- #{value 21763}#
- (lambda (#{mod 22246}# #{var 22247}# #{public? 22248}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #{s 21767}#
- #{mod 22246}#
- #{var 22247}#
- #{public? 22248}#))
- (lambda (#{var 22257}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #{s 21767}#
- #{var 22257}#)))
- (if (eqv? #{type 21762}# 'call)
- (#{expand-application 4347}#
- (#{expand 4345}#
- (car #{e 21764}#)
- #{r 21765}#
- #{w 21766}#
- #{mod 21768}#)
- #{e 21764}#
- #{r 21765}#
- #{w 21766}#
- #{s 21767}#
- #{mod 21768}#)
- (if (eqv? #{type 21762}# 'begin-form)
- (let ((#{tmp 22332}#
- ($sc-dispatch
- #{e 21764}#
- '(_ any . each-any))))
- (if #{tmp 22332}#
- (@apply
- (lambda (#{e1 22336}# #{e2 22337}#)
- (#{expand-sequence 4340}#
- (cons #{e1 22336}# #{e2 22337}#)
- #{r 21765}#
- #{w 21766}#
- #{s 21767}#
- #{mod 21768}#))
- #{tmp 22332}#)
- (let ((#{tmp 22424}#
- ($sc-dispatch #{e 21764}# '(_))))
- (if #{tmp 22424}#
- (@apply
- (lambda ()
- (if (include-deprecated-features)
- (begin
- (issue-deprecation-warning
- "Sequences of zero expressions are
deprecated. Use *unspecified*.")
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #f))
- (syntax-violation
- #f
- "sequence of zero expressions"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 21764}#)
- #{s 21767}#
- #f)
- (set-source-properties!
- #{e 21764}#
- #{s 21767}#))
- #{e 21764}#)
- #{w 21766}#
- #{mod 21768}#))))
- #{tmp 22424}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 21764}#)))))
- (if (eqv? #{type 21762}# 'local-syntax-form)
- (#{expand-local-syntax 4350}#
- #{value 21763}#
- #{e 21764}#
- #{r 21765}#
- #{w 21766}#
- #{s 21767}#
- #{mod 21768}#
- #{expand-sequence 4340}#)
- (if (eqv? #{type 21762}# 'eval-when-form)
- (let ((#{tmp 22535}#
- ($sc-dispatch
- #{e 21764}#
- '(_ each-any any . each-any))))
- (if #{tmp 22535}#
- (@apply
- (lambda (#{x 22539}#
- #{e1 22540}#
- #{e2 22541}#)
- (let ((#{when-list 22542}#
- (#{parse-when-list 4343}#
- #{e 21764}#
- #{x 22539}#)))
- (if (memq 'eval #{when-list 22542}#)
- (#{expand-sequence 4340}#
- (cons #{e1 22540}# #{e2 22541}#)
- #{r 21765}#
- #{w 21766}#
- #{s 21767}#
- #{mod 21768}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #f))))
- #{tmp 22535}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 21764}#)))
- (if (if (eqv? #{type 21762}# 'define-form)
- #t
- (if (eqv? #{type 21762}#
- 'define-syntax-form)
- #t
- (eqv? #{type 21762}#
- 'define-syntax-parameter-form)))
- (syntax-violation
- #f
- "definition in expression context"
- #{e 21764}#
- (#{wrap 4338}#
- #{value 21763}#
- #{w 21766}#
- #{mod 21768}#))
- (if (eqv? #{type 21762}# 'syntax)
- (syntax-violation
- #f
- "reference to pattern variable outside
syntax form"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 21764}#)
- #{s 21767}#
- #f)
- (set-source-properties!
- #{e 21764}#
- #{s 21767}#))
- #{e 21764}#)
- #{w 21766}#
- #{mod 21768}#))
- (if (eqv? #{type 21762}# 'displaced-lexical)
- (syntax-violation
- #f
- "reference to identifier outside its
scope"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 21764}#)
- #{s 21767}#
- #f)
- (set-source-properties!
- #{e 21764}#
- #{s 21767}#))
- #{e 21764}#)
- #{w 21766}#
- #{mod 21768}#))
- (syntax-violation
- #f
- "unexpected syntax"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 21764}#)
- #{s 21767}#
- #f)
- (set-source-properties!
- #{e 21764}#
- #{s 21767}#))
- #{e 21764}#)
- #{w 21766}#
- #{mod 21768}#))))))))))))))))))
- (#{expand-application 4347}#
- (lambda (#{x 22782}#
- #{e 22783}#
- #{r 22784}#
- #{w 22785}#
- #{s 22786}#
- #{mod 22787}#)
- (let ((#{tmp 22789}#
- ($sc-dispatch #{e 22783}# '(any . each-any))))
- (if #{tmp 22789}#
- (@apply
- (lambda (#{e0 22793}# #{e1 22794}#)
- (#{build-application 4280}#
- #{s 22786}#
- #{x 22782}#
- (map (lambda (#{e 22874}#)
- (#{expand 4345}#
- #{e 22874}#
- #{r 22784}#
- #{w 22785}#
- #{mod 22787}#))
- #{e1 22794}#)))
- #{tmp 22789}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 22783}#)))))
- (#{expand-macro 4348}#
- (lambda (#{p 22950}#
- #{e 22951}#
- #{r 22952}#
- #{w 22953}#
- #{s 22954}#
- #{rib 22955}#
- #{mod 22956}#)
- (letrec*
- ((#{rebuild-macro-output 22957}#
- (lambda (#{x 22988}# #{m 22989}#)
- (if (pair? #{x 22988}#)
- (let ((#{e 22993}#
- (cons (#{rebuild-macro-output 22957}#
- (car #{x 22988}#)
- #{m 22989}#)
- (#{rebuild-macro-output 22957}#
- (cdr #{x 22988}#)
- #{m 22989}#))))
- (begin
- (if (if (pair? #{e 22993}#) #{s 22954}# #f)
- (set-source-properties! #{e 22993}# #{s 22954}#))
- #{e 22993}#))
- (if (if (vector? #{x 22988}#)
- (if (= (vector-length #{x 22988}#) 4)
- (eq? (vector-ref #{x 22988}# 0) 'syntax-object)
- #f)
- #f)
- (let ((#{w 23009}# (vector-ref #{x 22988}# 2)))
- (let ((#{ms 23010}# (car #{w 23009}#))
- (#{s 23011}# (cdr #{w 23009}#)))
- (if (if (pair? #{ms 23010}#)
- (eq? (car #{ms 23010}#) #f)
- #f)
- (let ((#{expression 23019}# (vector-ref #{x 22988}# 1))
- (#{wrap 23020}#
- (cons (cdr #{ms 23010}#)
- (if #{rib 22955}#
- (cons #{rib 22955}# (cdr #{s 23011}#))
- (cdr #{s 23011}#))))
- (#{module 23021}# (vector-ref #{x 22988}# 3)))
- (vector
- 'syntax-object
- #{expression 23019}#
- #{wrap 23020}#
- #{module 23021}#))
- (let ((#{expression 23031}#
- (let ((#{e 23036}# (vector-ref #{x 22988}# 1)))
- (begin
- (if (if (pair? #{e 23036}#) #{s 23011}# #f)
- (set-source-properties!
- #{e 23036}#
- #{s 23011}#))
- #{e 23036}#)))
- (#{wrap 23032}#
- (cons (cons #{m 22989}# #{ms 23010}#)
- (if #{rib 22955}#
- (cons #{rib 22955}#
- (cons 'shift #{s 23011}#))
- (cons 'shift #{s 23011}#))))
- (#{module 23033}# (vector-ref #{x 22988}# 3)))
- (vector
- 'syntax-object
- #{expression 23031}#
- #{wrap 23032}#
- #{module 23033}#)))))
- (if (vector? #{x 22988}#)
- (let ((#{n 23048}# (vector-length #{x 22988}#)))
- (let ((#{v 23049}#
- (let ((#{e 23057}# (make-vector #{n 23048}#)))
- (begin
- (if (if (pair? #{e 23057}#) #{x 22988}# #f)
- (set-source-properties!
- #{e 23057}#
- #{x 22988}#))
- #{e 23057}#))))
- (letrec*
- ((#{loop 23050}#
- (lambda (#{i 23102}#)
- (if (= #{i 23102}# #{n 23048}#)
- #{v 23049}#
- (begin
- (vector-set!
- #{v 23049}#
- #{i 23102}#
- (#{rebuild-macro-output 22957}#
- (vector-ref #{x 22988}# #{i 23102}#)
- #{m 22989}#))
- (#{loop 23050}# (#{1+}# #{i 23102}#)))))))
- (#{loop 23050}# 0))))
- (if (symbol? #{x 22988}#)
- (syntax-violation
- #f
- "encountered raw symbol in macro output"
- (let ((#{s 23108}# (cdr #{w 22953}#)))
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 22951}#) #{s 23108}# #f)
- (set-source-properties!
- #{e 22951}#
- #{s 23108}#))
- #{e 22951}#)
- #{w 22953}#
- #{mod 22956}#))
- #{x 22988}#)
- (begin
- (if (if (pair? #{x 22988}#) #{s 22954}# #f)
- (set-source-properties! #{x 22988}# #{s 22954}#))
- #{x 22988}#))))))))
- (#{rebuild-macro-output 22957}#
- (#{p 22950}#
- (let ((#{w 22964}#
- (cons (cons #f (car #{w 22953}#))
- (cons 'shift (cdr #{w 22953}#)))))
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 22951}#) #{s 22954}# #f)
- (set-source-properties! #{e 22951}# #{s 22954}#))
- #{e 22951}#)
- #{w 22964}#
- #{mod 22956}#)))
- (gensym "m")))))
- (#{expand-body 4349}#
- (lambda (#{body 23140}#
- #{outer-form 23141}#
- #{r 23142}#
- #{w 23143}#
- #{mod 23144}#)
- (let ((#{r 23145}#
- (cons '("placeholder" placeholder) #{r 23142}#)))
- (let ((#{ribcage 23146}# (vector 'ribcage '() '() '())))
- (let ((#{w 23147}#
- (cons (car #{w 23143}#)
- (cons #{ribcage 23146}# (cdr #{w 23143}#)))))
- (letrec*
- ((#{parse 23148}#
- (lambda (#{body 23161}#
- #{ids 23162}#
- #{labels 23163}#
- #{var-ids 23164}#
- #{vars 23165}#
- #{vals 23166}#
- #{bindings 23167}#)
- (if (null? #{body 23161}#)
- (syntax-violation
- #f
- "no expressions in body"
- #{outer-form 23141}#)
- (let ((#{e 23168}# (cdr (car #{body 23161}#)))
- (#{er 23169}# (car (car #{body 23161}#))))
- (call-with-values
- (lambda ()
- (#{syntax-type 4344}#
- #{e 23168}#
- #{er 23169}#
- '(())
- (#{source-annotation 4306}# #{er 23169}#)
- #{ribcage 23146}#
- #{mod 23144}#
- #f))
- (lambda (#{type 23326}#
- #{value 23327}#
- #{e 23328}#
- #{w 23329}#
- #{s 23330}#
- #{mod 23331}#)
- (if (eqv? #{type 23326}# 'define-form)
- (let ((#{id 23335}#
- (#{wrap 4338}#
- #{value 23327}#
- #{w 23329}#
- #{mod 23331}#))
- (#{label 23336}#
- (symbol->string (gensym "i"))))
- (let ((#{var 23337}#
- (let ((#{id 23397}#
- (if (if (vector? #{id 23335}#)
- (if (= (vector-length
- #{id 23335}#)
- 4)
- (eq? (vector-ref
- #{id 23335}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 23335}# 1)
- #{id 23335}#)))
- (gensym
- (string-append
- (symbol->string #{id 23397}#)
- " ")))))
- (begin
- (let ((#{update 23387}#
- (cons (vector-ref #{id 23335}# 1)
- (vector-ref
- #{ribcage 23146}#
- 1))))
- (vector-set!
- #{ribcage 23146}#
- 1
- #{update 23387}#))
- (let ((#{update 23389}#
- (cons (car (vector-ref
- #{id 23335}#
- 2))
- (vector-ref
- #{ribcage 23146}#
- 2))))
- (vector-set!
- #{ribcage 23146}#
- 2
- #{update 23389}#))
- (let ((#{update 23391}#
- (cons #{label 23336}#
- (vector-ref
- #{ribcage 23146}#
- 3))))
- (vector-set!
- #{ribcage 23146}#
- 3
- #{update 23391}#))
- (#{parse 23148}#
- (cdr #{body 23161}#)
- (cons #{id 23335}# #{ids 23162}#)
- (cons #{label 23336}# #{labels 23163}#)
- (cons #{id 23335}# #{var-ids 23164}#)
- (cons #{var 23337}# #{vars 23165}#)
- (cons (cons #{er 23169}#
- (#{wrap 4338}#
- #{e 23328}#
- #{w 23329}#
- #{mod 23331}#))
- #{vals 23166}#)
- (cons (cons 'lexical #{var 23337}#)
- #{bindings 23167}#)))))
- (if (if (eqv? #{type 23326}# 'define-syntax-form)
- #t
- (eqv? #{type 23326}#
- 'define-syntax-parameter-form))
- (let ((#{id 23430}#
- (#{wrap 4338}#
- #{value 23327}#
- #{w 23329}#
- #{mod 23331}#))
- (#{label 23431}#
- (symbol->string (gensym "i"))))
- (begin
- (let ((#{update 23481}#
- (cons (vector-ref #{id 23430}# 1)
- (vector-ref
- #{ribcage 23146}#
- 1))))
- (vector-set!
- #{ribcage 23146}#
- 1
- #{update 23481}#))
- (let ((#{update 23483}#
- (cons (car (vector-ref
- #{id 23430}#
- 2))
- (vector-ref
- #{ribcage 23146}#
- 2))))
- (vector-set!
- #{ribcage 23146}#
- 2
- #{update 23483}#))
- (let ((#{update 23485}#
- (cons #{label 23431}#
- (vector-ref
- #{ribcage 23146}#
- 3))))
- (vector-set!
- #{ribcage 23146}#
- 3
- #{update 23485}#))
- (#{parse 23148}#
- (cdr #{body 23161}#)
- (cons #{id 23430}# #{ids 23162}#)
- (cons #{label 23431}# #{labels 23163}#)
- #{var-ids 23164}#
- #{vars 23165}#
- #{vals 23166}#
- (cons (cons 'macro
- (cons #{er 23169}#
- (#{wrap 4338}#
- #{e 23328}#
- #{w 23329}#
- #{mod 23331}#)))
- #{bindings 23167}#))))
- (if (eqv? #{type 23326}# 'begin-form)
- (let ((#{tmp 23493}#
- ($sc-dispatch
- #{e 23328}#
- '(_ . each-any))))
- (if #{tmp 23493}#
- (@apply
- (lambda (#{e1 23497}#)
- (#{parse 23148}#
- (letrec*
- ((#{f 23498}#
- (lambda (#{forms 23561}#)
- (if (null? #{forms 23561}#)
- (cdr #{body 23161}#)
- (cons (cons #{er 23169}#
- (#{wrap 4338}#
- (car
#{forms 23561}#)
- #{w 23329}#
- #{mod
23331}#))
- (#{f 23498}#
- (cdr #{forms
23561}#)))))))
- (#{f 23498}# #{e1 23497}#))
- #{ids 23162}#
- #{labels 23163}#
- #{var-ids 23164}#
- #{vars 23165}#
- #{vals 23166}#
- #{bindings 23167}#))
- #{tmp 23493}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 23328}#)))
- (if (eqv? #{type 23326}# 'local-syntax-form)
- (#{expand-local-syntax 4350}#
- #{value 23327}#
- #{e 23328}#
- #{er 23169}#
- #{w 23329}#
- #{s 23330}#
- #{mod 23331}#
- (lambda (#{forms 23575}#
- #{er 23576}#
- #{w 23577}#
- #{s 23578}#
- #{mod 23579}#)
- (#{parse 23148}#
- (letrec*
- ((#{f 23580}#
- (lambda (#{forms 23643}#)
- (if (null? #{forms 23643}#)
- (cdr #{body 23161}#)
- (cons (cons #{er 23576}#
- (#{wrap 4338}#
- (car #{forms
23643}#)
- #{w 23577}#
- #{mod
23579}#))
- (#{f 23580}#
- (cdr #{forms
23643}#)))))))
- (#{f 23580}# #{forms 23575}#))
- #{ids 23162}#
- #{labels 23163}#
- #{var-ids 23164}#
- #{vars 23165}#
- #{vals 23166}#
- #{bindings 23167}#)))
- (if (null? #{ids 23162}#)
- (#{build-sequence 4294}#
- #f
- (map (lambda (#{x 23708}#)
- (let ((#{e 23712}#
- (cdr #{x 23708}#))
- (#{r 23713}#
- (car #{x 23708}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type 4344}#
- #{e 23712}#
- #{r 23713}#
- '(())
- (#{source-annotation
4306}#
- #{e 23712}#)
- #f
- #{mod 23331}#
- #f))
- (lambda (#{type 23717}#
- #{value 23718}#
- #{e 23719}#
- #{w 23720}#
- #{s 23721}#
- #{mod 23722}#)
- (#{expand-expr 4346}#
- #{type 23717}#
- #{value 23718}#
- #{e 23719}#
- #{r 23713}#
- #{w 23720}#
- #{s 23721}#
- #{mod 23722}#)))))
- (cons (cons #{er 23169}#
- (#{wrap 4338}#
- (begin
- (if (if (pair?
#{e 23328}#)
- #{s 23330}#
- #f)
-
(set-source-properties!
- #{e 23328}#
- #{s 23330}#))
- #{e 23328}#)
- #{w 23329}#
- #{mod 23331}#))
- (cdr #{body 23161}#))))
- (begin
- (if (not (#{valid-bound-ids? 4335}#
- #{ids 23162}#))
- (syntax-violation
- #f
- "invalid or duplicate identifier
in definition"
- #{outer-form 23141}#))
- (letrec*
- ((#{loop 23823}#
- (lambda (#{bs 23826}#
- #{er-cache 23827}#
- #{r-cache 23828}#)
- (if (not (null? #{bs 23826}#))
- (let ((#{b 23829}#
- (car #{bs 23826}#)))
- (if (eq? (car #{b 23829}#)
- 'macro)
- (let ((#{er 23831}#
- (car (cdr #{b
23829}#))))
- (let ((#{r-cache 23832}#
- (if (eq? #{er
23831}#
-
#{er-cache 23827}#)
- #{r-cache
23828}#
-
(#{macros-only-env 4309}#
- #{er
23831}#))))
- (begin
- (set-cdr!
- #{b 23829}#
-
(#{eval-local-transformer 4351}#
- (#{expand 4345}#
- (cdr (cdr #{b
23829}#))
- #{r-cache
23832}#
- '(())
- #{mod 23331}#)
- #{mod 23331}#))
- (#{loop 23823}#
- (cdr #{bs 23826}#)
- #{er 23831}#
- #{r-cache
23832}#))))
- (#{loop 23823}#
- (cdr #{bs 23826}#)
- #{er-cache 23827}#
- #{r-cache 23828}#)))))))
- (#{loop 23823}#
- #{bindings 23167}#
- #f
- #f))
- (set-cdr!
- #{r 23145}#
- (#{extend-env 4307}#
- #{labels 23163}#
- #{bindings 23167}#
- (cdr #{r 23145}#)))
- (#{build-letrec 4297}#
- #f
- #t
- (reverse
- (map syntax->datum
- #{var-ids 23164}#))
- (reverse #{vars 23165}#)
- (map (lambda (#{x 24175}#)
- (let ((#{e 24179}#
- (cdr #{x 24175}#))
- (#{r 24180}#
- (car #{x 24175}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type 4344}#
- #{e 24179}#
- #{r 24180}#
- '(())
- (#{source-annotation
4306}#
- #{e 24179}#)
- #f
- #{mod 23331}#
- #f))
- (lambda (#{type 24184}#
- #{value 24185}#
- #{e 24186}#
- #{w 24187}#
- #{s 24188}#
- #{mod 24189}#)
- (#{expand-expr 4346}#
- #{type 24184}#
- #{value 24185}#
- #{e 24186}#
- #{r 24180}#
- #{w 24187}#
- #{s 24188}#
- #{mod 24189}#)))))
- (reverse #{vals 23166}#))
- (let ((#{exps 24195}#
- (map (lambda (#{x 24196}#)
- (let ((#{e 24199}#
- (cdr #{x
24196}#))
- (#{r 24200}#
- (car #{x
24196}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type
4344}#
- #{e 24199}#
- #{r 24200}#
- '(())
-
(#{source-annotation 4306}#
- #{e 24199}#)
- #f
- #{mod 23331}#
- #f))
- (lambda (#{type
24204}#
- #{value
24205}#
- #{e
24206}#
- #{w
24207}#
- #{s
24208}#
- #{mod
24209}#)
- (#{expand-expr
4346}#
- #{type 24204}#
- #{value
24205}#
- #{e 24206}#
- #{r 24200}#
- #{w 24207}#
- #{s 24208}#
- #{mod
24209}#)))))
- (cons (cons #{er 23169}#
- (#{wrap
4338}#
- (begin
- (if (if
(pair? #{e 23328}#)
-
#{s 23330}#
-
#f)
-
(set-source-properties!
- #{e
23328}#
- #{s
23330}#))
- #{e
23328}#)
- #{w
23329}#
- #{mod
23331}#))
- (cdr #{body
23161}#)))))
- (if (null? (cdr #{exps 24195}#))
- (car #{exps 24195}#)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 12)
- #f
- #{exps 24195}#)))))))))))))))))
- (#{parse 23148}#
- (map (lambda (#{x 23151}#)
- (cons #{r 23145}#
- (#{wrap 4338}#
- #{x 23151}#
- #{w 23147}#
- #{mod 23144}#)))
- #{body 23140}#)
- '()
- '()
- '()
- '()
- '()
- '())))))))
- (#{expand-local-syntax 4350}#
- (lambda (#{rec? 24235}#
- #{e 24236}#
- #{r 24237}#
- #{w 24238}#
- #{s 24239}#
- #{mod 24240}#
- #{k 24241}#)
- (let ((#{tmp 24243}#
- ($sc-dispatch
- #{e 24236}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 24243}#
- (@apply
- (lambda (#{id 24247}#
- #{val 24248}#
- #{e1 24249}#
- #{e2 24250}#)
- (if (not (#{valid-bound-ids? 4335}# #{id 24247}#))
- (syntax-violation
- #f
- "duplicate bound keyword"
- #{e 24236}#)
- (let ((#{labels 24340}#
- (#{gen-labels 4316}# #{id 24247}#)))
- (let ((#{new-w 24341}#
- (#{make-binding-wrap 4327}#
- #{id 24247}#
- #{labels 24340}#
- #{w 24238}#)))
- (#{k 24241}#
- (cons #{e1 24249}# #{e2 24250}#)
- (#{extend-env 4307}#
- #{labels 24340}#
- (let ((#{trans-r 24379}#
- (#{macros-only-env 4309}# #{r 24237}#)))
- (begin
- (if #{rec? 24235}# #{new-w 24341}# #{w 24238}#)
- (map (lambda (#{x 24380}#)
- (cons 'macro
- (#{eval-local-transformer 4351}#
- (#{expand 4345}#
- #{x 24380}#
- #{trans-r 24379}#
- (values
- (if #{rec? 24235}#
- #{new-w 24341}#
- #{w 24238}#))
- #{mod 24240}#)
- #{mod 24240}#)))
- #{val 24248}#)))
- #{r 24237}#)
- #{new-w 24341}#
- #{s 24239}#
- #{mod 24240}#)))))
- #{tmp 24243}#)
- (syntax-violation
- #f
- "bad local syntax definition"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 24236}#) #{s 24239}# #f)
- (set-source-properties! #{e 24236}# #{s 24239}#))
- #{e 24236}#)
- #{w 24238}#
- #{mod 24240}#))))))
- (#{eval-local-transformer 4351}#
- (lambda (#{expanded 24676}# #{mod 24677}#)
- (let ((#{p 24678}# (primitive-eval #{expanded 24676}#)))
- (if (procedure? #{p 24678}#)
- #{p 24678}#
- (syntax-violation
- #f
- "nonprocedure transformer"
- #{p 24678}#)))))
- (#{ellipsis? 4353}#
- (lambda (#{x 5154}#)
- (if (if (if (vector? #{x 5154}#)
- (if (= (vector-length #{x 5154}#) 4)
- (eq? (vector-ref #{x 5154}# 0) 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{x 5154}# 1))
- #f)
- (if (eq? (if (if (vector? #{x 5154}#)
- (if (= (vector-length #{x 5154}#) 4)
- (eq? (vector-ref #{x 5154}# 0) 'syntax-object)
- #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)
- '...
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}# #{x 5154}# '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- #f)))
- (#{lambda-formals 4354}#
- (lambda (#{orig-args 24683}#)
- (letrec*
- ((#{req 24684}#
- (lambda (#{args 24688}# #{rreq 24689}#)
- (let ((#{tmp 24691}# ($sc-dispatch #{args 24688}# '())))
- (if #{tmp 24691}#
- (@apply
- (lambda ()
- (#{check 24685}# (reverse #{rreq 24689}#) #f))
- #{tmp 24691}#)
- (let ((#{tmp 24814}#
- ($sc-dispatch #{args 24688}# '(any . any))))
- (if (if #{tmp 24814}#
- (@apply
- (lambda (#{a 24818}# #{b 24819}#)
- (if (symbol? #{a 24818}#)
- #t
- (if (if (vector? #{a 24818}#)
- (if (= (vector-length #{a 24818}#) 4)
- (eq? (vector-ref #{a 24818}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 24818}# 1))
- #f)))
- #{tmp 24814}#)
- #f)
- (@apply
- (lambda (#{a 24846}# #{b 24847}#)
- (#{req 24684}#
- #{b 24847}#
- (cons #{a 24846}# #{rreq 24689}#)))
- #{tmp 24814}#)
- (let ((#{tmp 24848}# (list #{args 24688}#)))
- (if (@apply
- (lambda (#{r 24850}#)
- (if (symbol? #{r 24850}#)
- #t
- (if (if (vector? #{r 24850}#)
- (if (= (vector-length #{r 24850}#) 4)
- (eq? (vector-ref #{r 24850}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{r 24850}# 1))
- #f)))
- #{tmp 24848}#)
- (@apply
- (lambda (#{r 24880}#)
- (#{check 24685}#
- (reverse #{rreq 24689}#)
- #{r 24880}#))
- #{tmp 24848}#)
- (syntax-violation
- 'lambda
- "invalid argument list"
- #{orig-args 24683}#
- #{args 24688}#)))))))))
- (#{check 24685}#
- (lambda (#{req 25011}# #{rest 25012}#)
- (if (#{distinct-bound-ids? 4336}#
- (if #{rest 25012}#
- (cons #{rest 25012}# #{req 25011}#)
- #{req 25011}#))
- (values #{req 25011}# #f #{rest 25012}# #f)
- (syntax-violation
- 'lambda
- "duplicate identifier in argument list"
- #{orig-args 24683}#)))))
- (#{req 24684}# #{orig-args 24683}# '()))))
- (#{expand-simple-lambda 4355}#
- (lambda (#{e 25128}#
- #{r 25129}#
- #{w 25130}#
- #{s 25131}#
- #{mod 25132}#
- #{req 25133}#
- #{rest 25134}#
- #{meta 25135}#
- #{body 25136}#)
- (let ((#{ids 25137}#
- (if #{rest 25134}#
- (append #{req 25133}# (list #{rest 25134}#))
- #{req 25133}#)))
- (let ((#{vars 25138}#
- (map #{gen-var 4359}# #{ids 25137}#)))
- (let ((#{labels 25139}#
- (#{gen-labels 4316}# #{ids 25137}#)))
- (#{build-simple-lambda 4289}#
- #{s 25131}#
- (map syntax->datum #{req 25133}#)
- (if #{rest 25134}#
- (syntax->datum #{rest 25134}#)
- #f)
- #{vars 25138}#
- #{meta 25135}#
- (#{expand-body 4349}#
- #{body 25136}#
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 25128}#) #{s 25131}# #f)
- (set-source-properties! #{e 25128}# #{s 25131}#))
- #{e 25128}#)
- #{w 25130}#
- #{mod 25132}#)
- (#{extend-var-env 4308}#
- #{labels 25139}#
- #{vars 25138}#
- #{r 25129}#)
- (#{make-binding-wrap 4327}#
- #{ids 25137}#
- #{labels 25139}#
- #{w 25130}#)
- #{mod 25132}#)))))))
- (#{lambda*-formals 4356}#
- (lambda (#{orig-args 25439}#)
- (letrec*
- ((#{req 25440}#
- (lambda (#{args 25447}# #{rreq 25448}#)
- (let ((#{tmp 25450}# ($sc-dispatch #{args 25447}# '())))
- (if #{tmp 25450}#
- (@apply
- (lambda ()
- (#{check 25444}#
- (reverse #{rreq 25448}#)
- '()
- #f
- '()))
- #{tmp 25450}#)
- (let ((#{tmp 25456}#
- ($sc-dispatch #{args 25447}# '(any . any))))
- (if (if #{tmp 25456}#
- (@apply
- (lambda (#{a 25460}# #{b 25461}#)
- (if (symbol? #{a 25460}#)
- #t
- (if (if (vector? #{a 25460}#)
- (if (= (vector-length #{a 25460}#) 4)
- (eq? (vector-ref #{a 25460}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 25460}# 1))
- #f)))
- #{tmp 25456}#)
- #f)
- (@apply
- (lambda (#{a 25488}# #{b 25489}#)
- (#{req 25440}#
- #{b 25489}#
- (cons #{a 25488}# #{rreq 25448}#)))
- #{tmp 25456}#)
- (let ((#{tmp 25490}#
- ($sc-dispatch #{args 25447}# '(any . any))))
- (if (if #{tmp 25490}#
- (@apply
- (lambda (#{a 25494}# #{b 25495}#)
- (eq? (syntax->datum #{a 25494}#) #:optional))
- #{tmp 25490}#)
- #f)
- (@apply
- (lambda (#{a 25496}# #{b 25497}#)
- (#{opt 25441}#
- #{b 25497}#
- (reverse #{rreq 25448}#)
- '()))
- #{tmp 25490}#)
- (let ((#{tmp 25500}#
- ($sc-dispatch #{args 25447}# '(any . any))))
- (if (if #{tmp 25500}#
- (@apply
- (lambda (#{a 25504}# #{b 25505}#)
- (eq? (syntax->datum #{a 25504}#) #:key))
- #{tmp 25500}#)
- #f)
- (@apply
- (lambda (#{a 25506}# #{b 25507}#)
- (#{key 25442}#
- #{b 25507}#
- (reverse #{rreq 25448}#)
- '()
- '()))
- #{tmp 25500}#)
- (let ((#{tmp 25510}#
- ($sc-dispatch
- #{args 25447}#
- '(any any))))
- (if (if #{tmp 25510}#
- (@apply
- (lambda (#{a 25514}# #{b 25515}#)
- (eq? (syntax->datum #{a 25514}#)
- #:rest))
- #{tmp 25510}#)
- #f)
- (@apply
- (lambda (#{a 25516}# #{b 25517}#)
- (#{rest 25443}#
- #{b 25517}#
- (reverse #{rreq 25448}#)
- '()
- '()))
- #{tmp 25510}#)
- (let ((#{tmp 25520}# (list #{args 25447}#)))
- (if (@apply
- (lambda (#{r 25522}#)
- (if (symbol? #{r 25522}#)
- #t
- (if (if (vector? #{r 25522}#)
- (if (= (vector-length
- #{r 25522}#)
- 4)
- (eq? (vector-ref
- #{r 25522}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{r 25522}# 1))
- #f)))
- #{tmp 25520}#)
- (@apply
- (lambda (#{r 25552}#)
- (#{rest 25443}#
- #{r 25552}#
- (reverse #{rreq 25448}#)
- '()
- '()))
- #{tmp 25520}#)
- (syntax-violation
- 'lambda*
- "invalid argument list"
- #{orig-args 25439}#
- #{args 25447}#)))))))))))))))
- (#{opt 25441}#
- (lambda (#{args 25571}# #{req 25572}# #{ropt 25573}#)
- (let ((#{tmp 25575}# ($sc-dispatch #{args 25571}# '())))
- (if #{tmp 25575}#
- (@apply
- (lambda ()
- (#{check 25444}#
- #{req 25572}#
- (reverse #{ropt 25573}#)
- #f
- '()))
- #{tmp 25575}#)
- (let ((#{tmp 25581}#
- ($sc-dispatch #{args 25571}# '(any . any))))
- (if (if #{tmp 25581}#
- (@apply
- (lambda (#{a 25585}# #{b 25586}#)
- (if (symbol? #{a 25585}#)
- #t
- (if (if (vector? #{a 25585}#)
- (if (= (vector-length #{a 25585}#) 4)
- (eq? (vector-ref #{a 25585}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 25585}# 1))
- #f)))
- #{tmp 25581}#)
- #f)
- (@apply
- (lambda (#{a 25613}# #{b 25614}#)
- (#{opt 25441}#
- #{b 25614}#
- #{req 25572}#
- (cons (cons #{a 25613}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2369" "i2370"))
- #(ribcage () () ())
- #(ribcage
- #(args req ropt)
- #((top) (top) (top))
- #("i2359" "i2360" "i2361"))
- #(ribcage
- (check rest key opt req)
- ((top) (top) (top) (top) (top))
- ("i2305"
- "i2303"
- "i2301"
- "i2299"
- "i2297"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2296"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- #{ropt 25573}#)))
- #{tmp 25581}#)
- (let ((#{tmp 25615}#
- ($sc-dispatch
- #{args 25571}#
- '((any any) . any))))
- (if (if #{tmp 25615}#
- (@apply
- (lambda (#{a 25619}#
- #{init 25620}#
- #{b 25621}#)
- (if (symbol? #{a 25619}#)
- #t
- (if (if (vector? #{a 25619}#)
- (if (= (vector-length #{a 25619}#) 4)
- (eq? (vector-ref #{a 25619}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 25619}# 1))
- #f)))
- #{tmp 25615}#)
- #f)
- (@apply
- (lambda (#{a 25648}# #{init 25649}# #{b 25650}#)
- (#{opt 25441}#
- #{b 25650}#
- #{req 25572}#
- (cons (list #{a 25648}# #{init 25649}#)
- #{ropt 25573}#)))
- #{tmp 25615}#)
- (let ((#{tmp 25651}#
- ($sc-dispatch #{args 25571}# '(any . any))))
- (if (if #{tmp 25651}#
- (@apply
- (lambda (#{a 25655}# #{b 25656}#)
- (eq? (syntax->datum #{a 25655}#) #:key))
- #{tmp 25651}#)
- #f)
- (@apply
- (lambda (#{a 25657}# #{b 25658}#)
- (#{key 25442}#
- #{b 25658}#
- #{req 25572}#
- (reverse #{ropt 25573}#)
- '()))
- #{tmp 25651}#)
- (let ((#{tmp 25661}#
- ($sc-dispatch
- #{args 25571}#
- '(any any))))
- (if (if #{tmp 25661}#
- (@apply
- (lambda (#{a 25665}# #{b 25666}#)
- (eq? (syntax->datum #{a 25665}#)
- #:rest))
- #{tmp 25661}#)
- #f)
- (@apply
- (lambda (#{a 25667}# #{b 25668}#)
- (#{rest 25443}#
- #{b 25668}#
- #{req 25572}#
- (reverse #{ropt 25573}#)
- '()))
- #{tmp 25661}#)
- (let ((#{tmp 25671}# (list #{args 25571}#)))
- (if (@apply
- (lambda (#{r 25673}#)
- (if (symbol? #{r 25673}#)
- #t
- (if (if (vector? #{r 25673}#)
- (if (= (vector-length
- #{r 25673}#)
- 4)
- (eq? (vector-ref
- #{r 25673}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{r 25673}# 1))
- #f)))
- #{tmp 25671}#)
- (@apply
- (lambda (#{r 25703}#)
- (#{rest 25443}#
- #{r 25703}#
- #{req 25572}#
- (reverse #{ropt 25573}#)
- '()))
- #{tmp 25671}#)
- (syntax-violation
- 'lambda*
- "invalid optional argument list"
- #{orig-args 25439}#
- #{args 25571}#)))))))))))))))
- (#{key 25442}#
- (lambda (#{args 25722}#
- #{req 25723}#
- #{opt 25724}#
- #{rkey 25725}#)
- (let ((#{tmp 25727}# ($sc-dispatch #{args 25722}# '())))
- (if #{tmp 25727}#
- (@apply
- (lambda ()
- (#{check 25444}#
- #{req 25723}#
- #{opt 25724}#
- #f
- (cons #f (reverse #{rkey 25725}#))))
- #{tmp 25727}#)
- (let ((#{tmp 25733}#
- ($sc-dispatch #{args 25722}# '(any . any))))
- (if (if #{tmp 25733}#
- (@apply
- (lambda (#{a 25737}# #{b 25738}#)
- (if (symbol? #{a 25737}#)
- #t
- (if (if (vector? #{a 25737}#)
- (if (= (vector-length #{a 25737}#) 4)
- (eq? (vector-ref #{a 25737}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 25737}# 1))
- #f)))
- #{tmp 25733}#)
- #f)
- (@apply
- (lambda (#{a 25765}# #{b 25766}#)
- (let ((#{tmp 25767}#
- (symbol->keyword
- (syntax->datum #{a 25765}#))))
- (#{key 25442}#
- #{b 25766}#
- #{req 25723}#
- #{opt 25724}#
- (cons (cons #{tmp 25767}#
- (cons #{a 25765}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(k)
- #((top))
- #("i2432"))
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2426" "i2427"))
- #(ribcage () () ())
- #(ribcage
- #(args req opt rkey)
- #((top)
- (top)
- (top)
- (top))
- #("i2415"
- "i2416"
- "i2417"
- "i2418"))
- #(ribcage
- (check rest key opt req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2305"
- "i2303"
- "i2301"
- "i2299"
- "i2297"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2296"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
- build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile)))))
- #{rkey 25725}#))))
- #{tmp 25733}#)
- (let ((#{tmp 25770}#
- ($sc-dispatch
- #{args 25722}#
- '((any any) . any))))
- (if (if #{tmp 25770}#
- (@apply
- (lambda (#{a 25774}#
- #{init 25775}#
- #{b 25776}#)
- (if (symbol? #{a 25774}#)
- #t
- (if (if (vector? #{a 25774}#)
- (if (= (vector-length #{a 25774}#) 4)
- (eq? (vector-ref #{a 25774}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 25774}# 1))
- #f)))
- #{tmp 25770}#)
- #f)
- (@apply
- (lambda (#{a 25803}# #{init 25804}# #{b 25805}#)
- (let ((#{tmp 25806}#
- (symbol->keyword
- (syntax->datum #{a 25803}#))))
- (#{key 25442}#
- #{b 25805}#
- #{req 25723}#
- #{opt 25724}#
- (cons (list #{tmp 25806}#
- #{a 25803}#
- #{init 25804}#)
- #{rkey 25725}#))))
- #{tmp 25770}#)
- (let ((#{tmp 25809}#
- ($sc-dispatch
- #{args 25722}#
- '((any any any) . any))))
- (if (if #{tmp 25809}#
- (@apply
- (lambda (#{a 25813}#
- #{init 25814}#
- #{k 25815}#
- #{b 25816}#)
- (if (if (symbol? #{a 25813}#)
- #t
- (if (if (vector? #{a 25813}#)
- (if (= (vector-length
- #{a 25813}#)
- 4)
- (eq? (vector-ref
- #{a 25813}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{a 25813}# 1))
- #f))
- (keyword? (syntax->datum #{k 25815}#))
- #f))
- #{tmp 25809}#)
- #f)
- (@apply
- (lambda (#{a 25843}#
- #{init 25844}#
- #{k 25845}#
- #{b 25846}#)
- (#{key 25442}#
- #{b 25846}#
- #{req 25723}#
- #{opt 25724}#
- (cons (list #{k 25845}#
- #{a 25843}#
- #{init 25844}#)
- #{rkey 25725}#)))
- #{tmp 25809}#)
- (let ((#{tmp 25847}#
- ($sc-dispatch #{args 25722}# '(any))))
- (if (if #{tmp 25847}#
- (@apply
- (lambda (#{aok 25851}#)
- (eq? (syntax->datum #{aok 25851}#)
- #:allow-other-keys))
- #{tmp 25847}#)
- #f)
- (@apply
- (lambda (#{aok 25852}#)
- (#{check 25444}#
- #{req 25723}#
- #{opt 25724}#
- #f
- (cons #t (reverse #{rkey 25725}#))))
- #{tmp 25847}#)
- (let ((#{tmp 25855}#
- ($sc-dispatch
- #{args 25722}#
- '(any any any))))
- (if (if #{tmp 25855}#
- (@apply
- (lambda (#{aok 25859}#
- #{a 25860}#
- #{b 25861}#)
- (if (eq? (syntax->datum
- #{aok 25859}#)
- #:allow-other-keys)
- (eq? (syntax->datum
- #{a 25860}#)
- #:rest)
- #f))
- #{tmp 25855}#)
- #f)
- (@apply
- (lambda (#{aok 25862}#
- #{a 25863}#
- #{b 25864}#)
- (#{rest 25443}#
- #{b 25864}#
- #{req 25723}#
- #{opt 25724}#
- (cons #t
- (reverse #{rkey 25725}#))))
- #{tmp 25855}#)
- (let ((#{tmp 25867}#
- ($sc-dispatch
- #{args 25722}#
- '(any . any))))
- (if (if #{tmp 25867}#
- (@apply
- (lambda (#{aok 25871}#
- #{r 25872}#)
- (if (eq? (syntax->datum
- #{aok 25871}#)
- #:allow-other-keys)
- (if (symbol? #{r 25872}#)
- #t
- (if (if (vector?
- #{r 25872}#)
- (if (=
(vector-length
- #{r
25872}#)
- 4)
- (eq? (vector-ref
- #{r
25872}#
- 0)
-
'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{r 25872}#
- 1))
- #f))
- #f))
- #{tmp 25867}#)
- #f)
- (@apply
- (lambda (#{aok 25899}# #{r 25900}#)
- (#{rest 25443}#
- #{r 25900}#
- #{req 25723}#
- #{opt 25724}#
- (cons #t
- (reverse
- #{rkey 25725}#))))
- #{tmp 25867}#)
- (let ((#{tmp 25903}#
- ($sc-dispatch
- #{args 25722}#
- '(any any))))
- (if (if #{tmp 25903}#
- (@apply
- (lambda (#{a 25907}#
- #{b 25908}#)
- (eq? (syntax->datum
- #{a 25907}#)
- #:rest))
- #{tmp 25903}#)
- #f)
- (@apply
- (lambda (#{a 25909}#
- #{b 25910}#)
- (#{rest 25443}#
- #{b 25910}#
- #{req 25723}#
- #{opt 25724}#
- (cons #f
- (reverse
- #{rkey 25725}#))))
- #{tmp 25903}#)
- (let ((#{tmp 25913}#
- (list #{args 25722}#)))
- (if (@apply
- (lambda (#{r 25915}#)
- (if (symbol?
- #{r 25915}#)
- #t
- (if (if (vector?
- #{r
25915}#)
- (if (=
(vector-length
- #{r
25915}#)
- 4)
- (eq?
(vector-ref
- #{r
25915}#
- 0)
-
'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{r 25915}#
- 1))
- #f)))
- #{tmp 25913}#)
- (@apply
- (lambda (#{r 25945}#)
- (#{rest 25443}#
- #{r 25945}#
- #{req 25723}#
- #{opt 25724}#
- (cons #f
- (reverse
- #{rkey
25725}#))))
- #{tmp 25913}#)
- (syntax-violation
- 'lambda*
- "invalid keyword argument
list"
- #{orig-args 25439}#
- #{args
25722}#)))))))))))))))))))))
- (#{rest 25443}#
- (lambda (#{args 25973}#
- #{req 25974}#
- #{opt 25975}#
- #{kw 25976}#)
- (let ((#{tmp 25978}# (list #{args 25973}#)))
- (if (@apply
- (lambda (#{r 25980}#)
- (if (symbol? #{r 25980}#)
- #t
- (if (if (vector? #{r 25980}#)
- (if (= (vector-length #{r 25980}#) 4)
- (eq? (vector-ref #{r 25980}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{r 25980}# 1))
- #f)))
- #{tmp 25978}#)
- (@apply
- (lambda (#{r 26010}#)
- (#{check 25444}#
- #{req 25974}#
- #{opt 25975}#
- #{r 26010}#
- #{kw 25976}#))
- #{tmp 25978}#)
- (syntax-violation
- 'lambda*
- "invalid rest argument"
- #{orig-args 25439}#
- #{args 25973}#)))))
- (#{check 25444}#
- (lambda (#{req 26014}#
- #{opt 26015}#
- #{rest 26016}#
- #{kw 26017}#)
- (if (#{distinct-bound-ids? 4336}#
- (append
- #{req 26014}#
- (map car #{opt 26015}#)
- (if #{rest 26016}# (list #{rest 26016}#) '())
- (if (pair? #{kw 26017}#)
- (map cadr (cdr #{kw 26017}#))
- '())))
- (values
- #{req 26014}#
- #{opt 26015}#
- #{rest 26016}#
- #{kw 26017}#)
- (syntax-violation
- 'lambda*
- "duplicate identifier in argument list"
- #{orig-args 25439}#)))))
- (#{req 25440}# #{orig-args 25439}# '()))))
- (#{expand-lambda-case 4357}#
- (lambda (#{e 26133}#
- #{r 26134}#
- #{w 26135}#
- #{s 26136}#
- #{mod 26137}#
- #{get-formals 26138}#
- #{clauses 26139}#)
- (letrec*
- ((#{parse-req 26140}#
- (lambda (#{req 26273}#
- #{opt 26274}#
- #{rest 26275}#
- #{kw 26276}#
- #{body 26277}#)
- (let ((#{vars 26278}#
- (map #{gen-var 4359}# #{req 26273}#))
- (#{labels 26279}#
- (#{gen-labels 4316}# #{req 26273}#)))
- (let ((#{r* 26280}#
- (#{extend-var-env 4308}#
- #{labels 26279}#
- #{vars 26278}#
- #{r 26134}#))
- (#{w* 26281}#
- (#{make-binding-wrap 4327}#
- #{req 26273}#
- #{labels 26279}#
- #{w 26135}#)))
- (#{parse-opt 26141}#
- (map syntax->datum #{req 26273}#)
- #{opt 26274}#
- #{rest 26275}#
- #{kw 26276}#
- #{body 26277}#
- (reverse #{vars 26278}#)
- #{r* 26280}#
- #{w* 26281}#
- '()
- '())))))
- (#{parse-opt 26141}#
- (lambda (#{req 26495}#
- #{opt 26496}#
- #{rest 26497}#
- #{kw 26498}#
- #{body 26499}#
- #{vars 26500}#
- #{r* 26501}#
- #{w* 26502}#
- #{out 26503}#
- #{inits 26504}#)
- (if (pair? #{opt 26496}#)
- (let ((#{tmp 26505}# (car #{opt 26496}#)))
- (let ((#{tmp 26506}#
- ($sc-dispatch #{tmp 26505}# '(any any))))
- (if #{tmp 26506}#
- (@apply
- (lambda (#{id 26508}# #{i 26509}#)
- (let ((#{v 26510}#
- (let ((#{id 26518}#
- (if (if (vector? #{id 26508}#)
- (if (= (vector-length
- #{id 26508}#)
- 4)
- (eq? (vector-ref
- #{id 26508}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 26508}# 1)
- #{id 26508}#)))
- (gensym
- (string-append
- (symbol->string #{id 26518}#)
- " ")))))
- (let ((#{l 26511}#
- (#{gen-labels 4316}# (list #{v 26510}#))))
- (let ((#{r** 26512}#
- (#{extend-var-env 4308}#
- #{l 26511}#
- (list #{v 26510}#)
- #{r* 26501}#)))
- (let ((#{w** 26513}#
- (#{make-binding-wrap 4327}#
- (list #{id 26508}#)
- #{l 26511}#
- #{w* 26502}#)))
- (#{parse-opt 26141}#
- #{req 26495}#
- (cdr #{opt 26496}#)
- #{rest 26497}#
- #{kw 26498}#
- #{body 26499}#
- (cons #{v 26510}# #{vars 26500}#)
- #{r** 26512}#
- #{w** 26513}#
- (cons (syntax->datum #{id 26508}#)
- #{out 26503}#)
- (cons (#{expand 4345}#
- #{i 26509}#
- #{r* 26501}#
- #{w* 26502}#
- #{mod 26137}#)
- #{inits 26504}#)))))))
- #{tmp 26506}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 26505}#))))
- (if #{rest 26497}#
- (let ((#{v 26783}#
- (let ((#{id 26793}#
- (if (if (vector? #{rest 26497}#)
- (if (= (vector-length #{rest 26497}#)
- 4)
- (eq? (vector-ref #{rest 26497}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{rest 26497}# 1)
- #{rest 26497}#)))
- (gensym
- (string-append
- (symbol->string #{id 26793}#)
- " ")))))
- (let ((#{l 26784}#
- (#{gen-labels 4316}# (list #{v 26783}#))))
- (let ((#{r* 26785}#
- (#{extend-var-env 4308}#
- #{l 26784}#
- (list #{v 26783}#)
- #{r* 26501}#)))
- (let ((#{w* 26786}#
- (#{make-binding-wrap 4327}#
- (list #{rest 26497}#)
- #{l 26784}#
- #{w* 26502}#)))
- (#{parse-kw 26142}#
- #{req 26495}#
- (if (pair? #{out 26503}#)
- (reverse #{out 26503}#)
- #f)
- (syntax->datum #{rest 26497}#)
- (if (pair? #{kw 26498}#)
- (cdr #{kw 26498}#)
- #{kw 26498}#)
- #{body 26499}#
- (cons #{v 26783}# #{vars 26500}#)
- #{r* 26785}#
- #{w* 26786}#
- (if (pair? #{kw 26498}#) (car #{kw 26498}#) #f)
- '()
- #{inits 26504}#)))))
- (#{parse-kw 26142}#
- #{req 26495}#
- (if (pair? #{out 26503}#)
- (reverse #{out 26503}#)
- #f)
- #f
- (if (pair? #{kw 26498}#)
- (cdr #{kw 26498}#)
- #{kw 26498}#)
- #{body 26499}#
- #{vars 26500}#
- #{r* 26501}#
- #{w* 26502}#
- (if (pair? #{kw 26498}#) (car #{kw 26498}#) #f)
- '()
- #{inits 26504}#)))))
- (#{parse-kw 26142}#
- (lambda (#{req 26991}#
- #{opt 26992}#
- #{rest 26993}#
- #{kw 26994}#
- #{body 26995}#
- #{vars 26996}#
- #{r* 26997}#
- #{w* 26998}#
- #{aok 26999}#
- #{out 27000}#
- #{inits 27001}#)
- (if (pair? #{kw 26994}#)
- (let ((#{tmp 27002}# (car #{kw 26994}#)))
- (let ((#{tmp 27003}#
- ($sc-dispatch #{tmp 27002}# '(any any any))))
- (if #{tmp 27003}#
- (@apply
- (lambda (#{k 27005}# #{id 27006}# #{i 27007}#)
- (let ((#{v 27008}#
- (let ((#{id 27016}#
- (if (if (vector? #{id 27006}#)
- (if (= (vector-length
- #{id 27006}#)
- 4)
- (eq? (vector-ref
- #{id 27006}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 27006}# 1)
- #{id 27006}#)))
- (gensym
- (string-append
- (symbol->string #{id 27016}#)
- " ")))))
- (let ((#{l 27009}#
- (#{gen-labels 4316}# (list #{v 27008}#))))
- (let ((#{r** 27010}#
- (#{extend-var-env 4308}#
- #{l 27009}#
- (list #{v 27008}#)
- #{r* 26997}#)))
- (let ((#{w** 27011}#
- (#{make-binding-wrap 4327}#
- (list #{id 27006}#)
- #{l 27009}#
- #{w* 26998}#)))
- (#{parse-kw 26142}#
- #{req 26991}#
- #{opt 26992}#
- #{rest 26993}#
- (cdr #{kw 26994}#)
- #{body 26995}#
- (cons #{v 27008}# #{vars 26996}#)
- #{r** 27010}#
- #{w** 27011}#
- #{aok 26999}#
- (cons (list (syntax->datum #{k 27005}#)
- (syntax->datum #{id 27006}#)
- #{v 27008}#)
- #{out 27000}#)
- (cons (#{expand 4345}#
- #{i 27007}#
- #{r* 26997}#
- #{w* 26998}#
- #{mod 26137}#)
- #{inits 27001}#)))))))
- #{tmp 27003}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 27002}#))))
- (#{parse-body 26143}#
- #{req 26991}#
- #{opt 26992}#
- #{rest 26993}#
- (if (if #{aok 26999}#
- #{aok 26999}#
- (pair? #{out 27000}#))
- (cons #{aok 26999}# (reverse #{out 27000}#))
- #f)
- #{body 26995}#
- (reverse #{vars 26996}#)
- #{r* 26997}#
- #{w* 26998}#
- (reverse #{inits 27001}#)
- '()))))
- (#{parse-body 26143}#
- (lambda (#{req 27290}#
- #{opt 27291}#
- #{rest 27292}#
- #{kw 27293}#
- #{body 27294}#
- #{vars 27295}#
- #{r* 27296}#
- #{w* 27297}#
- #{inits 27298}#
- #{meta 27299}#)
- (let ((#{tmp 27301}#
- ($sc-dispatch
- #{body 27294}#
- '(any any . each-any))))
- (if (if #{tmp 27301}#
- (@apply
- (lambda (#{docstring 27305}# #{e1 27306}# #{e2 27307}#)
- (string? (syntax->datum #{docstring 27305}#)))
- #{tmp 27301}#)
- #f)
- (@apply
- (lambda (#{docstring 27308}# #{e1 27309}# #{e2 27310}#)
- (#{parse-body 26143}#
- #{req 27290}#
- #{opt 27291}#
- #{rest 27292}#
- #{kw 27293}#
- (cons #{e1 27309}# #{e2 27310}#)
- #{vars 27295}#
- #{r* 27296}#
- #{w* 27297}#
- #{inits 27298}#
- (append
- #{meta 27299}#
- (list (cons 'documentation
- (syntax->datum #{docstring 27308}#))))))
- #{tmp 27301}#)
- (let ((#{tmp 27311}#
- ($sc-dispatch
- #{body 27294}#
- '(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 27311}#
- (@apply
- (lambda (#{k 27315}#
- #{v 27316}#
- #{e1 27317}#
- #{e2 27318}#)
- (#{parse-body 26143}#
- #{req 27290}#
- #{opt 27291}#
- #{rest 27292}#
- #{kw 27293}#
- (cons #{e1 27317}# #{e2 27318}#)
- #{vars 27295}#
- #{r* 27296}#
- #{w* 27297}#
- #{inits 27298}#
- (append
- #{meta 27299}#
- (syntax->datum
- (map cons #{k 27315}# #{v 27316}#)))))
- #{tmp 27311}#)
- (let ((#{tmp 27319}#
- ($sc-dispatch #{body 27294}# '(any . each-any))))
- (if #{tmp 27319}#
- (@apply
- (lambda (#{e1 27323}# #{e2 27324}#)
- (values
- #{meta 27299}#
- #{req 27290}#
- #{opt 27291}#
- #{rest 27292}#
- #{kw 27293}#
- #{inits 27298}#
- #{vars 27295}#
- (#{expand-body 4349}#
- (cons #{e1 27323}# #{e2 27324}#)
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 26133}#)
- #{s 26136}#
- #f)
- (set-source-properties!
- #{e 26133}#
- #{s 26136}#))
- #{e 26133}#)
- #{w 26135}#
- #{mod 26137}#)
- #{r* 27296}#
- #{w* 27297}#
- #{mod 26137}#)))
- #{tmp 27319}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{body 27294}#))))))))))
- (let ((#{tmp 26145}#
- ($sc-dispatch #{clauses 26139}# '())))
- (if #{tmp 26145}#
- (@apply
- (lambda () (values '() #f))
- #{tmp 26145}#)
- (let ((#{tmp 26149}#
- ($sc-dispatch
- #{clauses 26139}#
- '((any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 26149}#
- (@apply
- (lambda (#{args 26153}#
- #{e1 26154}#
- #{e2 26155}#
- #{args* 26156}#
- #{e1* 26157}#
- #{e2* 26158}#)
- (call-with-values
- (lambda ()
- (#{get-formals 26138}# #{args 26153}#))
- (lambda (#{req 26159}#
- #{opt 26160}#
- #{rest 26161}#
- #{kw 26162}#)
- (call-with-values
- (lambda ()
- (#{parse-req 26140}#
- #{req 26159}#
- #{opt 26160}#
- #{rest 26161}#
- #{kw 26162}#
- (cons #{e1 26154}# #{e2 26155}#)))
- (lambda (#{meta 26229}#
- #{req 26230}#
- #{opt 26231}#
- #{rest 26232}#
- #{kw 26233}#
- #{inits 26234}#
- #{vars 26235}#
- #{body 26236}#)
- (call-with-values
- (lambda ()
- (#{expand-lambda-case 4357}#
- #{e 26133}#
- #{r 26134}#
- #{w 26135}#
- #{s 26136}#
- #{mod 26137}#
- #{get-formals 26138}#
- (map (lambda (#{tmp 2775 26237}#
- #{tmp 2774 26238}#
- #{tmp 2773 26239}#)
- (cons #{tmp 2773 26239}#
- (cons #{tmp 2774 26238}#
- #{tmp 2775 26237}#)))
- #{e2* 26158}#
- #{e1* 26157}#
- #{args* 26156}#)))
- (lambda (#{meta* 26240}# #{else* 26241}#)
- (values
- (append #{meta 26229}# #{meta* 26240}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #{s 26136}#
- #{req 26230}#
- #{opt 26231}#
- #{rest 26232}#
- #{kw 26233}#
- #{inits 26234}#
- #{vars 26235}#
- #{body 26236}#
- #{else* 26241}#)))))))))
- #{tmp 26149}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{clauses 26139}#))))))))
- (#{strip 4358}#
- (lambda (#{x 27361}# #{w 27362}#)
- (if (memq 'top (car #{w 27362}#))
- #{x 27361}#
- (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)
- '_
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3747" "i3748" "i3749"))
- #(ribcage
- (cvt v-reverse cvt*)
- ((top) (top) (top))
- ("i3720" "i3718" "i3716"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3714" "i3715"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710" "i3708" "i3706" "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}# #{p 13347}# '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3747" "i3748" "i3749"))
- #(ribcage
- (cvt v-reverse cvt*)
- ((top) (top) (top))
- ("i3720" "i3718" "i3716"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3714" "i3715"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710" "i3708" "i3706" "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- (values '_ #{ids 13349}#)
- (values
- 'any
- (cons (cons #{p 13347}# #{n 13348}#)
- #{ids 13349}#))))
- (let ((#{tmp 13669}#
- ($sc-dispatch #{p 13347}# '(any any))))
- (if (if #{tmp 13669}#
- (@apply
- (lambda (#{x 13673}# #{dots 13674}#)
- (if (if (if (vector? #{dots 13674}#)
- (if (= (vector-length
- #{dots 13674}#)
- 4)
- (eq? (vector-ref
- #{dots 13674}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{dots 13674}# 1))
- #f)
- (if (eq? (if (if (vector? #{dots 13674}#)
- (if (= (vector-length
- #{dots 13674}#)
- 4)
- (eq? (vector-ref
- #{dots 13674}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{dots 13674}# 1)
- #{dots 13674}#)
- (if (if (= (vector-length
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
expand-lambda-case
-
lambda*-formals
-
expand-simple-lambda
-
lambda-formals
- ellipsis?
- expand-void
-
eval-local-transformer
-
expand-local-syntax
- expand-body
- expand-macro
-
expand-application
- expand-expr
- expand
- syntax-type
-
parse-when-list
-
expand-install-global
-
expand-top-sequence
-
expand-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
- ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
-
macros-only-env
-
extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
-
build-named-let
- build-let
-
build-sequence
- build-data
- build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
- make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- 4)
- #t
- #f)
- '...
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{dots 13674}#
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- #f))
- #{tmp 13669}#)
- #f)
- (@apply
- (lambda (#{x 13774}# #{dots 13775}#)
- (call-with-values
- (lambda ()
- (#{cvt 13344}#
- #{x 13774}#
- (#{1+}# #{n 13348}#)
- #{ids 13349}#))
- (lambda (#{p 13776}# #{ids 13777}#)
- (values
- (if (eq? #{p 13776}# 'any)
- 'each-any
- (vector 'each #{p 13776}#))
- #{ids 13777}#))))
- #{tmp 13669}#)
- (let ((#{tmp 13778}#
- ($sc-dispatch #{p 13347}# '(any any . any))))
- (if (if #{tmp 13778}#
- (@apply
- (lambda (#{x 13782}#
- #{dots 13783}#
- #{ys 13784}#)
- (if (if (if (vector? #{dots 13783}#)
- (if (= (vector-length
- #{dots 13783}#)
- 4)
- (eq? (vector-ref
- #{dots 13783}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{dots 13783}# 1))
- #f)
- (if (eq? (if (if (vector?
- #{dots 13783}#)
- (if (= (vector-length
- #{dots 13783}#)
- 4)
- (eq? (vector-ref
- #{dots 13783}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref
- #{dots 13783}#
- 1)
- #{dots 13783}#)
- (if (if (= (vector-length
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
expand-lambda-case
-
lambda*-formals
-
expand-simple-lambda
-
lambda-formals
- ellipsis?
-
expand-void
-
eval-local-transformer
-
expand-local-syntax
-
expand-body
-
expand-macro
-
expand-application
-
expand-expr
- expand
-
syntax-type
-
parse-when-list
-
expand-install-global
-
expand-top-sequence
-
expand-sequence
-
source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
-
bound-id=?
- free-id=?
-
id-var-name
-
same-marks?
-
join-marks
-
join-wraps
-
smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
-
the-anti-mark
-
top-marked?
- top-wrap
-
empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
-
make-ribcage
-
gen-labels
- gen-label
-
make-rename
-
rename-marks
-
rename-new
-
rename-old
-
subst-rename?
-
wrap-subst
-
wrap-marks
- make-wrap
-
id-sym-name&marks
-
id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
-
extend-env
- null-env
-
binding-value
-
binding-type
-
make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
-
build-letrec
-
build-named-let
- build-let
-
build-sequence
-
build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-dynlet
-
build-conditional
-
build-application
-
build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
-
lambda-meta
- lambda?
-
make-dynlet
-
make-letrec
- make-let
-
make-lambda-case
-
make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
-
make-const
-
make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene
- guile)))
- 4)
- #t
- #f)
- '...
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
-
eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
-
expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{dots 13783}#
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
- build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- #f))
- #{tmp 13778}#)
- #f)
- (@apply
- (lambda (#{x 13884}#
- #{dots 13885}#
- #{ys 13886}#)
- (call-with-values
- (lambda ()
- (#{cvt* 13342}#
- #{ys 13886}#
- #{n 13348}#
- #{ids 13349}#))
- (lambda (#{ys 13889}# #{ids 13890}#)
- (call-with-values
- (lambda ()
- (#{cvt 13344}#
- #{x 13884}#
- (#{1+}# #{n 13348}#)
- #{ids 13890}#))
- (lambda (#{x 13891}# #{ids 13892}#)
- (call-with-values
- (lambda ()
- (#{v-reverse 13343}#
- #{ys 13889}#))
- (lambda (#{ys 13925}# #{e 13926}#)
- (values
- (vector
- 'each+
- #{x 13891}#
- #{ys 13925}#
- #{e 13926}#)
- #{ids 13892}#))))))))
- #{tmp 13778}#)
- (let ((#{tmp 13927}#
- ($sc-dispatch #{p 13347}# '(any . any))))
- (if #{tmp 13927}#
- (@apply
- (lambda (#{x 13931}# #{y 13932}#)
- (call-with-values
- (lambda ()
- (#{cvt 13344}#
- #{y 13932}#
- #{n 13348}#
- #{ids 13349}#))
- (lambda (#{y 13933}# #{ids 13934}#)
- (call-with-values
- (lambda ()
- (#{cvt 13344}#
- #{x 13931}#
- #{n 13348}#
- #{ids 13934}#))
- (lambda (#{x 13935}# #{ids 13936}#)
- (values
- (cons #{x 13935}# #{y 13933}#)
- #{ids 13936}#))))))
- #{tmp 13927}#)
- (let ((#{tmp 13937}#
- ($sc-dispatch #{p 13347}# '())))
- (if #{tmp 13937}#
- (@apply
- (lambda () (values '() #{ids 13349}#))
- #{tmp 13937}#)
- (let ((#{tmp 13941}#
- ($sc-dispatch
- #{p 13347}#
- '#(vector each-any))))
- (if #{tmp 13941}#
- (@apply
- (lambda (#{x 13945}#)
- (call-with-values
- (lambda ()
- (#{cvt 13344}#
- #{x 13945}#
- #{n 13348}#
- #{ids 13349}#))
- (lambda (#{p 13946}#
- #{ids 13947}#)
- (values
- (vector
- 'vector
- #{p 13946}#)
- #{ids 13947}#))))
- #{tmp 13941}#)
- (values
- (vector
- 'atom
- (#{strip 4358}#
- #{p 13347}#
- '(())))
- #{ids 13349}#)))))))))))))))
- (#{cvt 13344}# #{pattern 13340}# 0 '()))))
- (#{build-dispatch-call 11744}#
- (lambda (#{pvars 14060}#
- #{exp 14061}#
- #{y 14062}#
- #{r 14063}#
- #{mod 14064}#)
- (let ((#{ids 14065}# (map car #{pvars 14060}#)))
- (begin
- (map cdr #{pvars 14060}#)
- (let ((#{labels 14067}#
- (#{gen-labels 4316}# #{ids 14065}#))
- (#{new-vars 14068}#
- (map #{gen-var 4359}# #{ids 14065}#)))
- (#{build-application 4280}#
- #f
- (if (equal? (module-name (current-module)) '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- 'apply)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- 'apply
- #f))
- (list (#{build-simple-lambda 4289}#
- #f
- (map syntax->datum #{ids 14065}#)
- #f
- #{new-vars 14068}#
- '()
- (#{expand 4345}#
- #{exp 14061}#
- (#{extend-env 4307}#
- #{labels 14067}#
- (map (lambda (#{var 14393}# #{level 14394}#)
- (cons 'syntax
- (cons #{var 14393}#
- #{level 14394}#)))
- #{new-vars 14068}#
- (map cdr #{pvars 14060}#))
- #{r 14063}#)
- (#{make-binding-wrap 4327}#
- #{ids 14065}#
- #{labels 14067}#
- '(()))
- #{mod 14064}#))
- #{y 14062}#)))))))
- (#{gen-clause 11745}#
- (lambda (#{x 12712}#
- #{keys 12713}#
- #{clauses 12714}#
- #{r 12715}#
- #{pat 12716}#
- #{fender 12717}#
- #{exp 12718}#
- #{mod 12719}#)
- (call-with-values
- (lambda ()
- (#{convert-pattern 11743}#
- #{pat 12716}#
- #{keys 12713}#))
- (lambda (#{p 12874}# #{pvars 12875}#)
- (if (not (#{distinct-bound-ids? 4336}#
- (map car #{pvars 12875}#)))
- (syntax-violation
- 'syntax-case
- "duplicate pattern variable"
- #{pat 12716}#)
- (if (not (and-map
- (lambda (#{x 12991}#)
- (not (let ((#{x 12995}# (car #{x 12991}#)))
- (if (if (if (vector? #{x 12995}#)
- (if (= (vector-length
- #{x 12995}#)
- 4)
- (eq? (vector-ref
- #{x 12995}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{x 12995}# 1))
- #f)
- (if (eq? (if (if (vector? #{x 12995}#)
- (if (= (vector-length
- #{x 12995}#)
- 4)
- (eq? (vector-ref
- #{x 12995}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 12995}# 1)
- #{x 12995}#)
- (if (if (= (vector-length
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
-
#("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
expand-lambda-case
-
lambda*-formals
-
expand-simple-lambda
-
lambda-formals
-
ellipsis?
-
expand-void
-
eval-local-transformer
-
expand-local-syntax
-
expand-body
-
expand-macro
-
expand-application
-
expand-expr
- expand
-
syntax-type
-
parse-when-list
-
expand-install-global
-
expand-top-sequence
-
expand-sequence
-
source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
-
bound-id=?
-
free-id=?
-
id-var-name
-
same-marks?
-
join-marks
-
join-wraps
-
smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
-
anti-mark
-
the-anti-mark
-
top-marked?
- top-wrap
-
empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
-
make-ribcage
-
gen-labels
-
gen-label
-
make-rename
-
rename-marks
-
rename-new
-
rename-old
-
subst-rename?
-
wrap-subst
-
wrap-marks
-
make-wrap
-
id-sym-name&marks
-
id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
-
extend-env
- null-env
-
binding-value
-
binding-type
-
make-binding
-
arg-check
-
source-annotation
-
no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
-
build-letrec
-
build-named-let
-
build-let
-
build-sequence
-
build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-dynlet
-
build-conditional
-
build-application
-
build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
-
lambda-meta
- lambda?
-
make-dynlet
-
make-letrec
- make-let
-
make-lambda-case
-
make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
-
make-const
-
make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene
- guile)))
- 4)
- #t
- #f)
- '...
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
-
expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
-
eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
-
expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{x 12995}#
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
-
eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- parse-when-list
- expand-install-global
- expand-top-sequence
- expand-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- #f))))
- #{pvars 12875}#))
- (syntax-violation
- 'syntax-case
- "misplaced ellipsis"
- #{pat 12716}#)
- (let ((#{y 13071}#
- (gensym
- (string-append (symbol->string 'tmp) " "))))
- (#{build-application 4280}#
- #f
- (let ((#{req 13214}# (list 'tmp))
- (#{vars 13216}# (list #{y 13071}#))
- (#{exp 13218}#
- (let ((#{y 13235}#
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #f
- 'tmp
- #{y 13071}#)))
- (let ((#{test-exp 13239}#
- (let ((#{tmp 13248}#
- ($sc-dispatch
- #{fender 12717}#
- '#(atom #t))))
- (if #{tmp 13248}#
- (@apply
- (lambda () #{y 13235}#)
- #{tmp 13248}#)
- (let ((#{then-exp 13266}#
- (#{build-dispatch-call
11744}#
- #{pvars 12875}#
- #{fender 12717}#
- #{y 13235}#
- #{r 12715}#
- #{mod 12719}#))
- (#{else-exp 13267}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 1)
- #f
- #f)))
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 10)
- #f
- #{y 13235}#
- #{then-exp 13266}#
- #{else-exp 13267}#)))))
- (#{then-exp 13240}#
- (#{build-dispatch-call 11744}#
- #{pvars 12875}#
- #{exp 12718}#
- #{y 13235}#
- #{r 12715}#
- #{mod 12719}#))
- (#{else-exp 13241}#
- (#{gen-syntax-case 11746}#
- #{x 12712}#
- #{keys 12713}#
- #{clauses 12714}#
- #{r 12715}#
- #{mod 12719}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 10)
- #f
- #{test-exp 13239}#
- #{then-exp 13240}#
- #{else-exp 13241}#)))))
- (let ((#{body 13223}#
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #f
- #{req 13214}#
- #f
- #f
- #f
- '()
- #{vars 13216}#
- #{exp 13218}#
- #f)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #f
- '()
- #{body 13223}#)))
- (list (if (eq? #{p 12874}# 'any)
- (let ((#{fun-exp 13289}#
- (if (equal?
- (module-name (current-module))
- '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- 'list)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- 'list
- #f)))
- (#{arg-exps 13290}# (list #{x 12712}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 13289}#
- #{arg-exps 13290}#))
- (let ((#{fun-exp 13313}#
- (if (equal?
- (module-name (current-module))
- '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- '$sc-dispatch)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- '$sc-dispatch
- #f)))
- (#{arg-exps 13314}#
- (list #{x 12712}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 1)
- #f
- #{p 12874}#))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 13313}#
- #{arg-exps 13314}#))))))))))))
- (#{gen-syntax-case 11746}#
- (lambda (#{x 12145}#
- #{keys 12146}#
- #{clauses 12147}#
- #{r 12148}#
- #{mod 12149}#)
- (if (null? #{clauses 12147}#)
- (let ((#{fun-exp 12154}#
- (if (equal? (module-name (current-module)) '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- 'syntax-violation)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- 'syntax-violation
- #f)))
- (#{arg-exps 12155}#
- (list (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #f
- #f)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #f
- "source expression failed to match any pattern")
- #{x 12145}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 12154}#
- #{arg-exps 12155}#))
- (let ((#{tmp 12188}# (car #{clauses 12147}#)))
- (let ((#{tmp 12189}#
- ($sc-dispatch #{tmp 12188}# '(any any))))
- (if #{tmp 12189}#
- (@apply
- (lambda (#{pat 12191}# #{exp 12192}#)
- (if (if (if (symbol? #{pat 12191}#)
- #t
- (if (if (vector? #{pat 12191}#)
- (if (= (vector-length #{pat 12191}#)
- 4)
- (eq? (vector-ref #{pat 12191}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{pat 12191}# 1))
- #f))
- (and-map
- (lambda (#{x 12219}#)
- (not (if (eq? (if (if (vector?
- #{pat 12191}#)
- (if (= (vector-length
- #{pat 12191}#)
- 4)
- (eq? (vector-ref
- #{pat 12191}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{pat 12191}# 1)
- #{pat 12191}#)
- (if (if (vector? #{x 12219}#)
- (if (= (vector-length
- #{x 12219}#)
- 4)
- (eq? (vector-ref
- #{x 12219}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 12219}# 1)
- #{x 12219}#))
- (eq? (#{id-var-name 4332}#
- #{pat 12191}#
- '(()))
- (#{id-var-name 4332}#
- #{x 12219}#
- '(())))
- #f)))
- (cons '#(syntax-object
- ...
- ((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
- '#(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)))
- (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)
- '_
- '#(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))))
- (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)
+
#{vars 17952}#
+ 1)
+ #{ls
17953}#
+
(#{join-wraps 2759}#
+
#{w 17954}#
+
(vector-ref
+
#{vars 17952}#
+
2)))
+ (cons
#{vars 17952}#
+
#{ls 17953}#))))))))
+ (#{lvl 17950}#
+ #{args 17799}#
+ '()
+ '(()))))
+ #f))
+ #{tmp 17794}#)
+ #f)
+ (@apply
+ (lambda (#{name 17998}#
+ #{args 17999}#
+ #{e1 18000}#
+ #{e2 18001}#)
+ (values
+ 'define-form
+ (#{wrap 2771}#
+ #{name 17998}#
+ #{w 17671}#
+ #{mod 17674}#)
+ (let ((#{e 18007}#
+ (cons
'#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("kg"
+ "kh"
+ "ki"
+ "kj"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("jx"
+ "jy"
+ "jz"
+ "k0"
+ "k1"
+ "k2"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("jw"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+
for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("jm"
+ "jn"
+ "jo"
+ "jp"
+ "jq"
+ "jr"
+ "js"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8"
+ "7"
+ "6")))
+ (hygiene
+ guile))
+ (#{wrap 2771}#
+ (cons
#{args 17999}#
+ (cons
#{e1 18000}#
+
#{e2 18001}#))
+ #{w 17671}#
+ #{mod
17674}#))))
+ (begin
+ (if (if (pair? #{e
18007}#)
+ #{s 17672}#
+ #f)
+
(set-source-properties!
+ #{e 18007}#
+ #{s 17672}#))
+ #{e 18007}#))
+ '(())
+ #{s 17672}#
+ #{mod 17674}#))
+ #{tmp 17794}#)
+ (let ((#{tmp 18014}#
+ ($sc-dispatch
+ #{e 17669}#
+ '(_ any))))
+ (if (if #{tmp 18014}#
+ (@apply
+ (lambda (#{name 18018}#)
+ (if (symbol?
+ #{name 18018}#)
+ #t
+ (if (if (vector?
+ #{name
18018}#)
+ (if (=
(vector-length
+
#{name 18018}#)
+ 4)
+ (eq?
(vector-ref
+
#{name 18018}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 18018}#
+ 1))
+ #f)))
+ #{tmp 18014}#)
+ #f)
+ (@apply
+ (lambda (#{name 18045}#)
+ (values
+ 'define-form
+ (#{wrap 2771}#
+ #{name 18045}#
+ #{w 17671}#
+ #{mod 17674}#)
+ '(#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("kl"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("jx"
+ "jy"
+ "jz"
+ "k0"
+ "k1"
+ "k2"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("jw"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("jm"
+ "jn"
+ "jo"
+ "jp"
+ "jq"
+ "jr"
+ "js"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("kl"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("jx"
+ "jy"
+ "jz"
+ "k0"
+ "k1"
+ "k2"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("jw"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("jm"
+ "jn"
+ "jo"
+ "jp"
+ "jq"
+ "jr"
+ "js"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("kl"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("jx"
+ "jy"
+ "jz"
+ "k0"
+ "k1"
+ "k2"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("jw"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("jm"
+ "jn"
+ "jo"
+ "jp"
+ "jq"
+ "jr"
+ "js"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8" "7" "6")))
+ (hygiene guile)))
+ '(())
+ #{s 17672}#
+ #{mod 17674}#))
+ #{tmp 18014}#)
+ (syntax-violation
+ #f
+ "source expression failed
to match any pattern"
+ #{e 17669}#)))))))
+ (if (eqv? #{ftype 17713}# 'define-syntax)
+ (let ((#{tmp 18064}#
+ ($sc-dispatch
+ #{e 17669}#
+ '(_ any any))))
+ (if (if #{tmp 18064}#
+ (@apply
+ (lambda (#{name 18068}#
+ #{val 18069}#)
+ (if (symbol? #{name 18068}#)
+ #t
+ (if (if (vector?
+ #{name 18068}#)
+ (if (=
(vector-length
+ #{name
18068}#)
+ 4)
+ (eq? (vector-ref
+ #{name
18068}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 18068}#
+ 1))
+ #f)))
+ #{tmp 18064}#)
+ #f)
+ (@apply
+ (lambda (#{name 18096}#
+ #{val 18097}#)
+ (values
+ 'define-syntax-form
+ #{name 18096}#
+ #{val 18097}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#))
+ #{tmp 18064}#)
+ (syntax-violation
+ #f
+ "source expression failed to
match any pattern"
+ #{e 17669}#)))
+ (if (eqv? #{ftype 17713}#
+ 'define-syntax-parameter)
+ (let ((#{tmp 18108}#
+ ($sc-dispatch
+ #{e 17669}#
+ '(_ any any))))
+ (if (if #{tmp 18108}#
+ (@apply
+ (lambda (#{name 18112}#
+ #{val 18113}#)
+ (if (symbol?
+ #{name 18112}#)
+ #t
+ (if (if (vector?
+ #{name
18112}#)
+ (if (=
(vector-length
+ #{name
18112}#)
+ 4)
+ (eq? (vector-ref
+ #{name
18112}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 18112}#
+ 1))
+ #f)))
+ #{tmp 18108}#)
+ #f)
+ (@apply
+ (lambda (#{name 18140}#
+ #{val 18141}#)
+ (values
+
'define-syntax-parameter-form
+ #{name 18140}#
+ #{val 18141}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#))
+ #{tmp 18108}#)
+ (syntax-violation
+ #f
+ "source expression failed to
match any pattern"
+ #{e 17669}#)))
+ (values
+ 'call
+ #f
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)))))))))))))))
+ (if (if (vector? #{e 17669}#)
+ (if (= (vector-length #{e 17669}#) 4)
+ (eq? (vector-ref #{e 17669}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{syntax-type 2777}#
+ (vector-ref #{e 17669}# 1)
+ #{r 17670}#
+ (#{join-wraps 2759}#
+ #{w 17671}#
+ (vector-ref #{e 17669}# 2))
+ (let ((#{t 18168}#
+ (#{source-annotation 2736}# #{e 17669}#)))
+ (if #{t 18168}# #{t 18168}# #{s 17672}#))
+ #{rib 17673}#
+ (let ((#{t 18403}# (vector-ref #{e 17669}# 3)))
+ (if #{t 18403}# #{t 18403}# #{mod 17674}#))
+ #{for-car? 17675}#)
+ (if (self-evaluating? #{e 17669}#)
+ (values
+ 'constant
+ #f
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)
+ (values
+ 'other
+ #f
+ #{e 17669}#
+ #{w 17671}#
+ #{s 17672}#
+ #{mod 17674}#)))))))
+ (#{expand 2778}#
+ (lambda (#{e 18412}#
+ #{r 18413}#
+ #{w 18414}#
+ #{mod 18415}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{e 18412}#
+ #{r 18413}#
+ #{w 18414}#
+ (#{source-annotation 2736}# #{e 18412}#)
+ #f
+ #{mod 18415}#
+ #f))
+ (lambda (#{type 18570}#
+ #{value 18571}#
+ #{e 18572}#
+ #{w 18573}#
+ #{s 18574}#
+ #{mod 18575}#)
+ (#{expand-expr 2779}#
+ #{type 18570}#
+ #{value 18571}#
+ #{e 18572}#
+ #{r 18413}#
+ #{w 18573}#
+ #{s 18574}#
+ #{mod 18575}#)))))
+ (#{expand-expr 2779}#
+ (lambda (#{type 18578}#
+ #{value 18579}#
+ #{e 18580}#
+ #{r 18581}#
+ #{w 18582}#
+ #{s 18583}#
+ #{mod 18584}#)
+ (if (eqv? #{type 18578}# 'lexical)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{s 18583}#
+ #{e 18580}#
+ #{value 18579}#)
+ (if (if (eqv? #{type 18578}# 'core)
+ #t
+ (eqv? #{type 18578}# 'core-form))
+ (#{value 18579}#
+ #{e 18580}#
+ #{r 18581}#
+ #{w 18582}#
+ #{s 18583}#
+ #{mod 18584}#)
+ (if (eqv? #{type 18578}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{value 18579}#
+ #{e 18580}#
+ #{r 18581}#
+ #{w 18582}#))
+ (lambda (#{e 18610}#
+ #{r 18611}#
+ #{w 18612}#
+ #{s 18613}#
+ #{mod 18614}#)
+ (#{expand 2778}#
+ #{e 18610}#
+ #{r 18611}#
+ #{w 18612}#
+ #{mod 18614}#)))
+ (if (eqv? #{type 18578}# 'lexical-call)
+ (#{expand-application 2780}#
+ (let ((#{id 18689}# (car #{e 18580}#)))
+ (#{build-lexical-reference 2713}#
+ 'fun
+ (#{source-annotation 2736}# #{id 18689}#)
+ (if (if (vector? #{id 18689}#)
+ (if (= (vector-length #{id 18689}#) 4)
+ (eq? (vector-ref #{id 18689}# 0) 'syntax-object)
+ #f)
+ #f)
+ (syntax->datum #{id 18689}#)
+ #{id 18689}#)
+ #{value 18579}#))
+ #{e 18580}#
+ #{r 18581}#
+ #{w 18582}#
+ #{s 18583}#
+ #{mod 18584}#)
+ (if (eqv? #{type 18578}# 'global-call)
+ (#{expand-application 2780}#
+ (#{build-global-reference 2716}#
+ (#{source-annotation 2736}# (car #{e 18580}#))
+ (if (if (vector? #{value 18579}#)
+ (if (= (vector-length #{value 18579}#) 4)
+ (eq? (vector-ref #{value 18579}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{value 18579}# 1)
+ #{value 18579}#)
+ (if (if (vector? #{value 18579}#)
+ (if (= (vector-length #{value 18579}#) 4)
+ (eq? (vector-ref #{value 18579}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{value 18579}# 3)
+ #{mod 18584}#))
+ #{e 18580}#
+ #{r 18581}#
+ #{w 18582}#
+ #{s 18583}#
+ #{mod 18584}#)
+ (if (eqv? #{type 18578}# 'constant)
+ (let ((#{exp 19026}#
+ (#{strip 2791}#
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 18580}#) #{s 18583}# #f)
+ (set-source-properties!
+ #{e 18580}#
+ #{s 18583}#))
+ #{e 18580}#)
+ #{w 18582}#
+ #{mod 18584}#)
+ '(()))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{s 18583}#
+ #{exp 19026}#))
+ (if (eqv? #{type 18578}# 'global)
+ (#{analyze-variable 2715}#
+ #{mod 18584}#
+ #{value 18579}#
+ (lambda (#{mod 19062}#
+ #{var 19063}#
+ #{public? 19064}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #{s 18583}#
+ #{mod 19062}#
+ #{var 19063}#
+ #{public? 19064}#))
+ (lambda (#{var 19073}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #{s 18583}#
+ #{var 19073}#)))
+ (if (eqv? #{type 18578}# 'call)
+ (#{expand-application 2780}#
+ (#{expand 2778}#
+ (car #{e 18580}#)
+ #{r 18581}#
+ #{w 18582}#
+ #{mod 18584}#)
+ #{e 18580}#
+ #{r 18581}#
+ #{w 18582}#
+ #{s 18583}#
+ #{mod 18584}#)
+ (if (eqv? #{type 18578}# 'begin-form)
+ (let ((#{tmp 19148}#
+ ($sc-dispatch
+ #{e 18580}#
+ '(_ any . each-any))))
+ (if #{tmp 19148}#
+ (@apply
+ (lambda (#{e1 19152}# #{e2 19153}#)
+ (#{expand-sequence 2773}#
+ (cons #{e1 19152}# #{e2 19153}#)
+ #{r 18581}#
+ #{w 18582}#
+ #{s 18583}#
+ #{mod 18584}#))
+ #{tmp 19148}#)
+ (let ((#{tmp 19240}#
+ ($sc-dispatch #{e 18580}# '(_))))
+ (if #{tmp 19240}#
+ (@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 2771}#
+ (begin
+ (if (if (pair? #{e 18580}#)
+ #{s 18583}#
+ #f)
+ (set-source-properties!
+ #{e 18580}#
+ #{s 18583}#))
+ #{e 18580}#)
+ #{w 18582}#
+ #{mod 18584}#))))
+ #{tmp 19240}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 18580}#)))))
+ (if (eqv? #{type 18578}# 'local-syntax-form)
+ (#{expand-local-syntax 2783}#
+ #{value 18579}#
+ #{e 18580}#
+ #{r 18581}#
+ #{w 18582}#
+ #{s 18583}#
+ #{mod 18584}#
+ #{expand-sequence 2773}#)
+ (if (eqv? #{type 18578}# 'eval-when-form)
+ (let ((#{tmp 19351}#
+ ($sc-dispatch
+ #{e 18580}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 19351}#
+ (@apply
+ (lambda (#{x 19355}#
+ #{e1 19356}#
+ #{e2 19357}#)
+ (let ((#{when-list 19358}#
+ (#{parse-when-list 2776}#
+ #{e 18580}#
+ #{x 19355}#)))
+ (if (memq 'eval #{when-list 19358}#)
+ (#{expand-sequence 2773}#
+ (cons #{e1 19356}# #{e2 19357}#)
+ #{r 18581}#
+ #{w 18582}#
+ #{s 18583}#
+ #{mod 18584}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f))))
+ #{tmp 19351}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 18580}#)))
+ (if (if (eqv? #{type 18578}# 'define-form)
+ #t
+ (if (eqv? #{type 18578}#
+ 'define-syntax-form)
+ #t
+ (eqv? #{type 18578}#
+ 'define-syntax-parameter-form)))
+ (syntax-violation
+ #f
+ "definition in expression context"
+ #{e 18580}#
+ (#{wrap 2771}#
+ #{value 18579}#
+ #{w 18582}#
+ #{mod 18584}#))
+ (if (eqv? #{type 18578}# 'syntax)
+ (syntax-violation
+ #f
+ "reference to pattern variable outside
syntax form"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 18580}#)
+ #{s 18583}#
+ #f)
+ (set-source-properties!
+ #{e 18580}#
+ #{s 18583}#))
+ #{e 18580}#)
+ #{w 18582}#
+ #{mod 18584}#))
+ (if (eqv? #{type 18578}# 'displaced-lexical)
+ (syntax-violation
+ #f
+ "reference to identifier outside its
scope"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 18580}#)
+ #{s 18583}#
+ #f)
+ (set-source-properties!
+ #{e 18580}#
+ #{s 18583}#))
+ #{e 18580}#)
+ #{w 18582}#
+ #{mod 18584}#))
+ (syntax-violation
+ #f
+ "unexpected syntax"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 18580}#)
+ #{s 18583}#
+ #f)
+ (set-source-properties!
+ #{e 18580}#
+ #{s 18583}#))
+ #{e 18580}#)
+ #{w 18582}#
+ #{mod 18584}#))))))))))))))))))
+ (#{expand-application 2780}#
+ (lambda (#{x 19598}#
+ #{e 19599}#
+ #{r 19600}#
+ #{w 19601}#
+ #{s 19602}#
+ #{mod 19603}#)
+ (let ((#{tmp 19605}#
+ ($sc-dispatch #{e 19599}# '(any . each-any))))
+ (if #{tmp 19605}#
+ (@apply
+ (lambda (#{e0 19609}# #{e1 19610}#)
+ (#{build-application 2710}#
+ #{s 19602}#
+ #{x 19598}#
+ (map (lambda (#{e 19690}#)
+ (#{expand 2778}#
+ #{e 19690}#
+ #{r 19600}#
+ #{w 19601}#
+ #{mod 19603}#))
+ #{e1 19610}#)))
+ #{tmp 19605}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 19599}#)))))
+ (#{expand-macro 2781}#
+ (lambda (#{p 19766}#
+ #{e 19767}#
+ #{r 19768}#
+ #{w 19769}#
+ #{s 19770}#
+ #{rib 19771}#
+ #{mod 19772}#)
+ (letrec*
+ ((#{rebuild-macro-output 19773}#
+ (lambda (#{x 19805}# #{m 19806}#)
+ (if (pair? #{x 19805}#)
+ (let ((#{e 19810}#
+ (cons (#{rebuild-macro-output 19773}#
+ (car #{x 19805}#)
+ #{m 19806}#)
+ (#{rebuild-macro-output 19773}#
+ (cdr #{x 19805}#)
+ #{m 19806}#))))
+ (begin
+ (if (if (pair? #{e 19810}#) #{s 19770}# #f)
+ (set-source-properties! #{e 19810}# #{s 19770}#))
+ #{e 19810}#))
+ (if (if (vector? #{x 19805}#)
+ (if (= (vector-length #{x 19805}#) 4)
+ (eq? (vector-ref #{x 19805}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{w 19826}# (vector-ref #{x 19805}# 2)))
+ (let ((#{ms 19827}# (car #{w 19826}#))
+ (#{s 19828}# (cdr #{w 19826}#)))
+ (if (if (pair? #{ms 19827}#)
+ (eq? (car #{ms 19827}#) #f)
+ #f)
+ (let ((#{expression 19836}#
+ (vector-ref #{x 19805}# 1))
+ (#{wrap 19837}#
+ (cons (cdr #{ms 19827}#)
+ (if #{rib 19771}#
+ (cons #{rib 19771}#
+ (cdr #{s 19828}#))
+ (cdr #{s 19828}#))))
+ (#{module 19838}# (vector-ref #{x 19805}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 19836}#
+ #{wrap 19837}#
+ #{module 19838}#))
+ (let ((#{expression 19848}#
+ (let ((#{e 19853}#
+ (vector-ref #{x 19805}# 1)))
+ (begin
+ (if (if (pair? #{e 19853}#)
+ #{s 19828}#
+ #f)
+ (set-source-properties!
+ #{e 19853}#
+ #{s 19828}#))
+ #{e 19853}#)))
+ (#{wrap 19849}#
+ (cons (cons #{m 19806}# #{ms 19827}#)
+ (if #{rib 19771}#
+ (cons #{rib 19771}#
+ (cons 'shift #{s 19828}#))
+ (cons 'shift #{s 19828}#))))
+ (#{module 19850}# (vector-ref #{x 19805}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 19848}#
+ #{wrap 19849}#
+ #{module 19850}#)))))
+ (if (vector? #{x 19805}#)
+ (let ((#{n 19865}# (vector-length #{x 19805}#)))
+ (let ((#{v 19866}#
+ (let ((#{e 19874}# (make-vector #{n 19865}#)))
+ (begin
+ (if (if (pair? #{e 19874}#) #{x 19805}# #f)
+ (set-source-properties!
+ #{e 19874}#
+ #{x 19805}#))
+ #{e 19874}#))))
+ (letrec*
+ ((#{loop 19867}#
+ (lambda (#{i 19919}#)
+ (if (= #{i 19919}# #{n 19865}#)
+ #{v 19866}#
+ (begin
+ (vector-set!
+ #{v 19866}#
+ #{i 19919}#
+ (#{rebuild-macro-output 19773}#
+ (vector-ref #{x 19805}# #{i 19919}#)
+ #{m 19806}#))
+ (#{loop 19867}# (#{1+}# #{i 19919}#)))))))
+ (#{loop 19867}# 0))))
+ (if (symbol? #{x 19805}#)
+ (syntax-violation
+ #f
+ "encountered raw symbol in macro output"
+ (let ((#{s 19925}# (cdr #{w 19769}#)))
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 19767}#) #{s 19925}# #f)
+ (set-source-properties!
+ #{e 19767}#
+ #{s 19925}#))
+ #{e 19767}#)
+ #{w 19769}#
+ #{mod 19772}#))
+ #{x 19805}#)
+ (begin
+ (if (if (pair? #{x 19805}#) #{s 19770}# #f)
+ (set-source-properties! #{x 19805}# #{s 19770}#))
+ #{x 19805}#))))))))
+ (with-fluids
+ ((#{transformer-environment 2764}#
+ (lambda (#{k 19774}#)
+ (#{k 19774}#
+ #{e 19767}#
+ #{r 19768}#
+ #{w 19769}#
+ #{s 19770}#
+ #{rib 19771}#
+ #{mod 19772}#))))
+ (#{rebuild-macro-output 19773}#
+ (#{p 19766}#
+ (let ((#{w 19781}#
+ (cons (cons #f (car #{w 19769}#))
+ (cons 'shift (cdr #{w 19769}#)))))
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 19767}#) #{s 19770}# #f)
+ (set-source-properties! #{e 19767}# #{s 19770}#))
+ #{e 19767}#)
+ #{w 19781}#
+ #{mod 19772}#)))
+ (gensym "m"))))))
+ (#{expand-body 2782}#
+ (lambda (#{body 19957}#
+ #{outer-form 19958}#
+ #{r 19959}#
+ #{w 19960}#
+ #{mod 19961}#)
+ (let ((#{r 19962}#
+ (cons '("placeholder" placeholder) #{r 19959}#)))
+ (let ((#{ribcage 19963}# (vector 'ribcage '() '() '())))
+ (let ((#{w 19964}#
+ (cons (car #{w 19960}#)
+ (cons #{ribcage 19963}# (cdr #{w 19960}#)))))
+ (letrec*
+ ((#{parse 19965}#
+ (lambda (#{body 19978}#
+ #{ids 19979}#
+ #{labels 19980}#
+ #{var-ids 19981}#
+ #{vars 19982}#
+ #{vals 19983}#
+ #{bindings 19984}#)
+ (if (null? #{body 19978}#)
+ (syntax-violation
+ #f
+ "no expressions in body"
+ #{outer-form 19958}#)
+ (let ((#{e 19985}# (cdr (car #{body 19978}#)))
+ (#{er 19986}# (car (car #{body 19978}#))))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{e 19985}#
+ #{er 19986}#
+ '(())
+ (#{source-annotation 2736}# #{er 19986}#)
+ #{ribcage 19963}#
+ #{mod 19961}#
+ #f))
+ (lambda (#{type 20143}#
+ #{value 20144}#
+ #{e 20145}#
+ #{w 20146}#
+ #{s 20147}#
+ #{mod 20148}#)
+ (if (eqv? #{type 20143}# 'define-form)
+ (let ((#{id 20152}#
+ (#{wrap 2771}#
+ #{value 20144}#
+ #{w 20146}#
+ #{mod 20148}#))
+ (#{label 20153}# (#{gen-label 2745}#)))
+ (let ((#{var 20154}#
+ (let ((#{id 20212}#
+ (if (if (vector?
+ #{id 20152}#)
+ (if (= (vector-length
+ #{id 20152}#)
+ 4)
+ (eq? (vector-ref
+ #{id 20152}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 20152}# 1)
+ #{id 20152}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 20212}#)
+ " ")))))
+ (begin
+ (let ((#{update 20202}#
+ (cons (vector-ref #{id 20152}# 1)
+ (vector-ref
+ #{ribcage 19963}#
+ 1))))
+ (vector-set!
+ #{ribcage 19963}#
+ 1
+ #{update 20202}#))
+ (let ((#{update 20204}#
+ (cons (car (vector-ref
+ #{id 20152}#
+ 2))
+ (vector-ref
+ #{ribcage 19963}#
+ 2))))
+ (vector-set!
+ #{ribcage 19963}#
+ 2
+ #{update 20204}#))
+ (let ((#{update 20206}#
+ (cons #{label 20153}#
+ (vector-ref
+ #{ribcage 19963}#
+ 3))))
+ (vector-set!
+ #{ribcage 19963}#
+ 3
+ #{update 20206}#))
+ (#{parse 19965}#
+ (cdr #{body 19978}#)
+ (cons #{id 20152}# #{ids 19979}#)
+ (cons #{label 20153}# #{labels 19980}#)
+ (cons #{id 20152}# #{var-ids 19981}#)
+ (cons #{var 20154}# #{vars 19982}#)
+ (cons (cons #{er 19986}#
+ (#{wrap 2771}#
+ #{e 20145}#
+ #{w 20146}#
+ #{mod 20148}#))
+ #{vals 19983}#)
+ (cons (cons 'lexical #{var 20154}#)
+ #{bindings 19984}#)))))
+ (if (if (eqv? #{type 20143}#
+ 'define-syntax-form)
+ #t
+ (eqv? #{type 20143}#
+ 'define-syntax-parameter-form))
+ (let ((#{id 20245}#
+ (#{wrap 2771}#
+ #{value 20144}#
+ #{w 20146}#
+ #{mod 20148}#))
+ (#{label 20246}# (#{gen-label 2745}#)))
+ (begin
+ (let ((#{update 20294}#
+ (cons (vector-ref #{id 20245}# 1)
+ (vector-ref
+ #{ribcage 19963}#
+ 1))))
+ (vector-set!
+ #{ribcage 19963}#
+ 1
+ #{update 20294}#))
+ (let ((#{update 20296}#
+ (cons (car (vector-ref
+ #{id 20245}#
+ 2))
+ (vector-ref
+ #{ribcage 19963}#
+ 2))))
+ (vector-set!
+ #{ribcage 19963}#
+ 2
+ #{update 20296}#))
+ (let ((#{update 20298}#
+ (cons #{label 20246}#
+ (vector-ref
+ #{ribcage 19963}#
+ 3))))
+ (vector-set!
+ #{ribcage 19963}#
+ 3
+ #{update 20298}#))
+ (#{parse 19965}#
+ (cdr #{body 19978}#)
+ (cons #{id 20245}# #{ids 19979}#)
+ (cons #{label 20246}# #{labels 19980}#)
+ #{var-ids 19981}#
+ #{vars 19982}#
+ #{vals 19983}#
+ (cons (cons 'macro
+ (cons #{er 19986}#
+ (#{wrap 2771}#
+ #{e 20145}#
+ #{w 20146}#
+ #{mod 20148}#)))
+ #{bindings 19984}#))))
+ (if (eqv? #{type 20143}# 'begin-form)
+ (let ((#{tmp 20306}#
+ ($sc-dispatch
+ #{e 20145}#
+ '(_ . each-any))))
+ (if #{tmp 20306}#
+ (@apply
+ (lambda (#{e1 20310}#)
+ (#{parse 19965}#
+ (letrec*
+ ((#{f 20311}#
+ (lambda (#{forms 20374}#)
+ (if (null? #{forms
20374}#)
+ (cdr #{body 19978}#)
+ (cons (cons #{er 19986}#
+ (#{wrap
2771}#
+ (car
#{forms 20374}#)
+ #{w
20146}#
+ #{mod
20148}#))
+ (#{f 20311}#
+ (cdr #{forms
20374}#)))))))
+ (#{f 20311}# #{e1 20310}#))
+ #{ids 19979}#
+ #{labels 19980}#
+ #{var-ids 19981}#
+ #{vars 19982}#
+ #{vals 19983}#
+ #{bindings 19984}#))
+ #{tmp 20306}#)
+ (syntax-violation
+ #f
+ "source expression failed to match
any pattern"
+ #{e 20145}#)))
+ (if (eqv? #{type 20143}#
+ 'local-syntax-form)
+ (#{expand-local-syntax 2783}#
+ #{value 20144}#
+ #{e 20145}#
+ #{er 19986}#
+ #{w 20146}#
+ #{s 20147}#
+ #{mod 20148}#
+ (lambda (#{forms 20388}#
+ #{er 20389}#
+ #{w 20390}#
+ #{s 20391}#
+ #{mod 20392}#)
+ (#{parse 19965}#
+ (letrec*
+ ((#{f 20393}#
+ (lambda (#{forms 20456}#)
+ (if (null? #{forms 20456}#)
+ (cdr #{body 19978}#)
+ (cons (cons #{er 20389}#
+ (#{wrap 2771}#
+ (car
#{forms 20456}#)
+ #{w 20390}#
+ #{mod
20392}#))
+ (#{f 20393}#
+ (cdr #{forms
20456}#)))))))
+ (#{f 20393}# #{forms 20388}#))
+ #{ids 19979}#
+ #{labels 19980}#
+ #{var-ids 19981}#
+ #{vars 19982}#
+ #{vals 19983}#
+ #{bindings 19984}#)))
+ (if (null? #{ids 19979}#)
+ (#{build-sequence 2724}#
+ #f
+ (map (lambda (#{x 20521}#)
+ (let ((#{e 20525}#
+ (cdr #{x 20521}#))
+ (#{r 20526}#
+ (car #{x 20521}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{e 20525}#
+ #{r 20526}#
+ '(())
+ (#{source-annotation
2736}#
+ #{e 20525}#)
+ #f
+ #{mod 20148}#
+ #f))
+ (lambda (#{type 20530}#
+ #{value 20531}#
+ #{e 20532}#
+ #{w 20533}#
+ #{s 20534}#
+ #{mod 20535}#)
+ (#{expand-expr 2779}#
+ #{type 20530}#
+ #{value 20531}#
+ #{e 20532}#
+ #{r 20526}#
+ #{w 20533}#
+ #{s 20534}#
+ #{mod 20535}#)))))
+ (cons (cons #{er 19986}#
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair?
#{e 20145}#)
+ #{s
20147}#
+ #f)
+
(set-source-properties!
+ #{e 20145}#
+ #{s
20147}#))
+ #{e 20145}#)
+ #{w 20146}#
+ #{mod 20148}#))
+ (cdr #{body 19978}#))))
+ (begin
+ (if (not (#{valid-bound-ids? 2768}#
+ #{ids 19979}#))
+ (syntax-violation
+ #f
+ "invalid or duplicate identifier
in definition"
+ #{outer-form 19958}#))
+ (letrec*
+ ((#{loop 20636}#
+ (lambda (#{bs 20639}#
+ #{er-cache 20640}#
+ #{r-cache 20641}#)
+ (if (not (null? #{bs 20639}#))
+ (let ((#{b 20642}#
+ (car #{bs 20639}#)))
+ (if (eq? (car #{b 20642}#)
+ 'macro)
+ (let ((#{er 20644}#
+ (car (cdr #{b
20642}#))))
+ (let ((#{r-cache
20645}#
+ (if (eq? #{er
20644}#
+
#{er-cache 20640}#)
+ #{r-cache
20641}#
+
(#{macros-only-env 2739}#
+ #{er
20644}#))))
+ (begin
+ (set-cdr!
+ #{b 20642}#
+
(#{eval-local-transformer 2784}#
+ (#{expand
2778}#
+ (cdr (cdr
#{b 20642}#))
+ #{r-cache
20645}#
+ '(())
+ #{mod
20148}#)
+ #{mod
20148}#))
+ (#{loop 20636}#
+ (cdr #{bs
20639}#)
+ #{er 20644}#
+ #{r-cache
20645}#))))
+ (#{loop 20636}#
+ (cdr #{bs 20639}#)
+ #{er-cache 20640}#
+ #{r-cache
20641}#)))))))
+ (#{loop 20636}#
+ #{bindings 19984}#
+ #f
+ #f))
+ (set-cdr!
+ #{r 19962}#
+ (#{extend-env 2737}#
+ #{labels 19980}#
+ #{bindings 19984}#
+ (cdr #{r 19962}#)))
+ (#{build-letrec 2727}#
+ #f
+ #t
+ (reverse
+ (map syntax->datum
+ #{var-ids 19981}#))
+ (reverse #{vars 19982}#)
+ (map (lambda (#{x 20988}#)
+ (let ((#{e 20992}#
+ (cdr #{x 20988}#))
+ (#{r 20993}#
+ (car #{x 20988}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{e 20992}#
+ #{r 20993}#
+ '(())
+
(#{source-annotation 2736}#
+ #{e 20992}#)
+ #f
+ #{mod 20148}#
+ #f))
+ (lambda (#{type 20997}#
+ #{value 20998}#
+ #{e 20999}#
+ #{w 21000}#
+ #{s 21001}#
+ #{mod 21002}#)
+ (#{expand-expr 2779}#
+ #{type 20997}#
+ #{value 20998}#
+ #{e 20999}#
+ #{r 20993}#
+ #{w 21000}#
+ #{s 21001}#
+ #{mod 21002}#)))))
+ (reverse #{vals 19983}#))
+ (let ((#{exps 21008}#
+ (map (lambda (#{x 21009}#)
+ (let ((#{e 21012}#
+ (cdr #{x
21009}#))
+ (#{r 21013}#
+ (car #{x
21009}#)))
+ (call-with-values
+ (lambda ()
+
(#{syntax-type 2777}#
+ #{e 21012}#
+ #{r 21013}#
+ '(())
+
(#{source-annotation 2736}#
+ #{e
21012}#)
+ #f
+ #{mod
20148}#
+ #f))
+ (lambda (#{type
21017}#
+
#{value 21018}#
+ #{e
21019}#
+ #{w
21020}#
+ #{s
21021}#
+ #{mod
21022}#)
+
(#{expand-expr 2779}#
+ #{type
21017}#
+ #{value
21018}#
+ #{e 21019}#
+ #{r 21013}#
+ #{w 21020}#
+ #{s 21021}#
+ #{mod
21022}#)))))
+ (cons (cons #{er
19986}#
+ (#{wrap
2771}#
+ (begin
+ (if
(if (pair? #{e 20145}#)
+
#{s 20147}#
+
#f)
+
(set-source-properties!
+
#{e 20145}#
+
#{s 20147}#))
+ #{e
20145}#)
+ #{w
20146}#
+ #{mod
20148}#))
+ (cdr #{body
19978}#)))))
+ (if (null? (cdr #{exps 21008}#))
+ (car #{exps 21008}#)
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 12)
+ #f
+ #{exps
21008}#)))))))))))))))))
+ (#{parse 19965}#
+ (map (lambda (#{x 19968}#)
+ (cons #{r 19962}#
+ (#{wrap 2771}#
+ #{x 19968}#
+ #{w 19964}#
+ #{mod 19961}#)))
+ #{body 19957}#)
+ '()
+ '()
+ '()
+ '()
+ '()
+ '())))))))
+ (#{expand-local-syntax 2783}#
+ (lambda (#{rec? 21048}#
+ #{e 21049}#
+ #{r 21050}#
+ #{w 21051}#
+ #{s 21052}#
+ #{mod 21053}#
+ #{k 21054}#)
+ (let ((#{tmp 21056}#
+ ($sc-dispatch
+ #{e 21049}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 21056}#
+ (@apply
+ (lambda (#{id 21060}#
+ #{val 21061}#
+ #{e1 21062}#
+ #{e2 21063}#)
+ (if (not (#{valid-bound-ids? 2768}# #{id 21060}#))
+ (syntax-violation
+ #f
+ "duplicate bound keyword"
+ #{e 21049}#)
+ (let ((#{labels 21153}#
+ (#{gen-labels 2746}# #{id 21060}#)))
+ (let ((#{new-w 21154}#
+ (#{make-binding-wrap 2757}#
+ #{id 21060}#
+ #{labels 21153}#
+ #{w 21051}#)))
+ (#{k 21054}#
+ (cons #{e1 21062}# #{e2 21063}#)
+ (#{extend-env 2737}#
+ #{labels 21153}#
+ (let ((#{trans-r 21186}#
+ (#{macros-only-env 2739}# #{r 21050}#)))
+ (begin
+ (if #{rec? 21048}# #{new-w 21154}# #{w 21051}#)
+ (map (lambda (#{x 21187}#)
+ (cons 'macro
+ (#{eval-local-transformer 2784}#
+ (#{expand 2778}#
+ #{x 21187}#
+ #{trans-r 21186}#
+ (values
+ (if #{rec? 21048}#
+ #{new-w 21154}#
+ #{w 21051}#))
+ #{mod 21053}#)
+ #{mod 21053}#)))
+ #{val 21061}#)))
+ #{r 21050}#)
+ #{new-w 21154}#
+ #{s 21052}#
+ #{mod 21053}#)))))
+ #{tmp 21056}#)
+ (syntax-violation
+ #f
+ "bad local syntax definition"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 21049}#) #{s 21052}# #f)
+ (set-source-properties! #{e 21049}# #{s 21052}#))
+ #{e 21049}#)
+ #{w 21051}#
+ #{mod 21053}#))))))
+ (#{eval-local-transformer 2784}#
+ (lambda (#{expanded 21463}# #{mod 21464}#)
+ (let ((#{p 21465}# (primitive-eval #{expanded 21463}#)))
+ (if (procedure? #{p 21465}#)
+ #{p 21465}#
+ (syntax-violation
+ #f
+ "nonprocedure transformer"
+ #{p 21465}#)))))
+ (#{ellipsis? 2786}#
+ (lambda (#{x 3447}#)
+ (if (if (if (vector? #{x 3447}#)
+ (if (= (vector-length #{x 3447}#) 4)
+ (eq? (vector-ref #{x 3447}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 3447}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{x 3447}#)
+ (if (= (vector-length #{x 3447}#) 4)
+ (eq? (vector-ref #{x 3447}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 3447}# 1)
+ #{x 3447}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 2762}# #{x 3447}# '(()))
+ (#{id-var-name 2762}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f)))
+ (#{lambda-formals 2787}#
+ (lambda (#{orig-args 21470}#)
+ (letrec*
+ ((#{req 21471}#
+ (lambda (#{args 21475}# #{rreq 21476}#)
+ (let ((#{tmp 21478}# ($sc-dispatch #{args 21475}# '())))
+ (if #{tmp 21478}#
+ (@apply
+ (lambda ()
+ (#{check 21472}# (reverse #{rreq 21476}#) #f))
+ #{tmp 21478}#)
+ (let ((#{tmp 21601}#
+ ($sc-dispatch #{args 21475}# '(any . any))))
+ (if (if #{tmp 21601}#
+ (@apply
+ (lambda (#{a 21605}# #{b 21606}#)
+ (if (symbol? #{a 21605}#)
+ #t
+ (if (if (vector? #{a 21605}#)
+ (if (= (vector-length #{a 21605}#) 4)
+ (eq? (vector-ref #{a 21605}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 21605}# 1))
+ #f)))
+ #{tmp 21601}#)
+ #f)
+ (@apply
+ (lambda (#{a 21633}# #{b 21634}#)
+ (#{req 21471}#
+ #{b 21634}#
+ (cons #{a 21633}# #{rreq 21476}#)))
+ #{tmp 21601}#)
+ (let ((#{tmp 21635}# (list #{args 21475}#)))
+ (if (@apply
+ (lambda (#{r 21637}#)
+ (if (symbol? #{r 21637}#)
+ #t
+ (if (if (vector? #{r 21637}#)
+ (if (= (vector-length #{r 21637}#) 4)
+ (eq? (vector-ref #{r 21637}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{r 21637}# 1))
+ #f)))
+ #{tmp 21635}#)
+ (@apply
+ (lambda (#{r 21667}#)
+ (#{check 21472}#
+ (reverse #{rreq 21476}#)
+ #{r 21667}#))
+ #{tmp 21635}#)
+ (syntax-violation
+ 'lambda
+ "invalid argument list"
+ #{orig-args 21470}#
+ #{args 21475}#)))))))))
+ (#{check 21472}#
+ (lambda (#{req 21798}# #{rest 21799}#)
+ (if (#{distinct-bound-ids? 2769}#
+ (if #{rest 21799}#
+ (cons #{rest 21799}# #{req 21798}#)
+ #{req 21798}#))
+ (values #{req 21798}# #f #{rest 21799}# #f)
+ (syntax-violation
+ 'lambda
+ "duplicate identifier in argument list"
+ #{orig-args 21470}#)))))
+ (#{req 21471}# #{orig-args 21470}# '()))))
+ (#{expand-simple-lambda 2788}#
+ (lambda (#{e 21915}#
+ #{r 21916}#
+ #{w 21917}#
+ #{s 21918}#
+ #{mod 21919}#
+ #{req 21920}#
+ #{rest 21921}#
+ #{meta 21922}#
+ #{body 21923}#)
+ (let ((#{ids 21924}#
+ (if #{rest 21921}#
+ (append #{req 21920}# (list #{rest 21921}#))
+ #{req 21920}#)))
+ (let ((#{vars 21925}#
+ (map #{gen-var 2792}# #{ids 21924}#)))
+ (let ((#{labels 21926}#
+ (#{gen-labels 2746}# #{ids 21924}#)))
+ (#{build-simple-lambda 2719}#
+ #{s 21918}#
+ (map syntax->datum #{req 21920}#)
+ (if #{rest 21921}#
+ (syntax->datum #{rest 21921}#)
+ #f)
+ #{vars 21925}#
+ #{meta 21922}#
+ (#{expand-body 2782}#
+ #{body 21923}#
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 21915}#) #{s 21918}# #f)
+ (set-source-properties! #{e 21915}# #{s 21918}#))
+ #{e 21915}#)
+ #{w 21917}#
+ #{mod 21919}#)
+ (#{extend-var-env 2738}#
+ #{labels 21926}#
+ #{vars 21925}#
+ #{r 21916}#)
+ (#{make-binding-wrap 2757}#
+ #{ids 21924}#
+ #{labels 21926}#
+ #{w 21917}#)
+ #{mod 21919}#)))))))
+ (#{lambda*-formals 2789}#
+ (lambda (#{orig-args 22198}#)
+ (letrec*
+ ((#{req 22199}#
+ (lambda (#{args 22206}# #{rreq 22207}#)
+ (let ((#{tmp 22209}# ($sc-dispatch #{args 22206}# '())))
+ (if #{tmp 22209}#
+ (@apply
+ (lambda ()
+ (#{check 22203}#
+ (reverse #{rreq 22207}#)
+ '()
+ #f
+ '()))
+ #{tmp 22209}#)
+ (let ((#{tmp 22215}#
+ ($sc-dispatch #{args 22206}# '(any . any))))
+ (if (if #{tmp 22215}#
+ (@apply
+ (lambda (#{a 22219}# #{b 22220}#)
+ (if (symbol? #{a 22219}#)
+ #t
+ (if (if (vector? #{a 22219}#)
+ (if (= (vector-length #{a 22219}#) 4)
+ (eq? (vector-ref #{a 22219}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 22219}# 1))
+ #f)))
+ #{tmp 22215}#)
+ #f)
+ (@apply
+ (lambda (#{a 22247}# #{b 22248}#)
+ (#{req 22199}#
+ #{b 22248}#
+ (cons #{a 22247}# #{rreq 22207}#)))
+ #{tmp 22215}#)
+ (let ((#{tmp 22249}#
+ ($sc-dispatch #{args 22206}# '(any . any))))
+ (if (if #{tmp 22249}#
+ (@apply
+ (lambda (#{a 22253}# #{b 22254}#)
+ (eq? (syntax->datum #{a 22253}#)
+ #:optional))
+ #{tmp 22249}#)
+ #f)
+ (@apply
+ (lambda (#{a 22255}# #{b 22256}#)
+ (#{opt 22200}#
+ #{b 22256}#
+ (reverse #{rreq 22207}#)
+ '()))
+ #{tmp 22249}#)
+ (let ((#{tmp 22259}#
+ ($sc-dispatch
+ #{args 22206}#
+ '(any . any))))
+ (if (if #{tmp 22259}#
+ (@apply
+ (lambda (#{a 22263}# #{b 22264}#)
+ (eq? (syntax->datum #{a 22263}#)
+ #:key))
+ #{tmp 22259}#)
+ #f)
+ (@apply
+ (lambda (#{a 22265}# #{b 22266}#)
+ (#{key 22201}#
+ #{b 22266}#
+ (reverse #{rreq 22207}#)
+ '()
+ '()))
+ #{tmp 22259}#)
+ (let ((#{tmp 22269}#
+ ($sc-dispatch
+ #{args 22206}#
+ '(any any))))
+ (if (if #{tmp 22269}#
+ (@apply
+ (lambda (#{a 22273}# #{b 22274}#)
+ (eq? (syntax->datum #{a 22273}#)
+ #:rest))
+ #{tmp 22269}#)
+ #f)
+ (@apply
+ (lambda (#{a 22275}# #{b 22276}#)
+ (#{rest 22202}#
+ #{b 22276}#
+ (reverse #{rreq 22207}#)
+ '()
+ '()))
+ #{tmp 22269}#)
+ (let ((#{tmp 22279}#
+ (list #{args 22206}#)))
+ (if (@apply
+ (lambda (#{r 22281}#)
+ (if (symbol? #{r 22281}#)
+ #t
+ (if (if (vector? #{r 22281}#)
+ (if (= (vector-length
+ #{r 22281}#)
+ 4)
+ (eq? (vector-ref
+ #{r 22281}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{r 22281}# 1))
+ #f)))
+ #{tmp 22279}#)
+ (@apply
+ (lambda (#{r 22311}#)
+ (#{rest 22202}#
+ #{r 22311}#
+ (reverse #{rreq 22207}#)
+ '()
+ '()))
+ #{tmp 22279}#)
+ (syntax-violation
+ 'lambda*
+ "invalid argument list"
+ #{orig-args 22198}#
+ #{args 22206}#)))))))))))))))
+ (#{opt 22200}#
+ (lambda (#{args 22330}# #{req 22331}# #{ropt 22332}#)
+ (let ((#{tmp 22334}# ($sc-dispatch #{args 22330}# '())))
+ (if #{tmp 22334}#
+ (@apply
+ (lambda ()
+ (#{check 22203}#
+ #{req 22331}#
+ (reverse #{ropt 22332}#)
+ #f
+ '()))
+ #{tmp 22334}#)
+ (let ((#{tmp 22340}#
+ ($sc-dispatch #{args 22330}# '(any . any))))
+ (if (if #{tmp 22340}#
+ (@apply
+ (lambda (#{a 22344}# #{b 22345}#)
+ (if (symbol? #{a 22344}#)
+ #t
+ (if (if (vector? #{a 22344}#)
+ (if (= (vector-length #{a 22344}#) 4)
+ (eq? (vector-ref #{a 22344}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 22344}# 1))
+ #f)))
+ #{tmp 22340}#)
+ #f)
+ (@apply
+ (lambda (#{a 22372}# #{b 22373}#)
+ (#{opt 22200}#
+ #{b 22373}#
+ #{req 22331}#
+ (cons (cons #{a 22372}#
+ '(#(syntax-object
+ #f
((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (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))
- '(())))
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("q2" "q3"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req ropt)
+ #((top) (top) (top))
+ #("px" "py" "pz"))
+ #(ribcage
+ (check rest key opt req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("pb" "pa" "p9" "p8" "p7"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("p6"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))))
+ #{ropt 22332}#)))
+ #{tmp 22340}#)
+ (let ((#{tmp 22374}#
+ ($sc-dispatch
+ #{args 22330}#
+ '((any any) . any))))
+ (if (if #{tmp 22374}#
+ (@apply
+ (lambda (#{a 22378}#
+ #{init 22379}#
+ #{b 22380}#)
+ (if (symbol? #{a 22378}#)
+ #t
+ (if (if (vector? #{a 22378}#)
+ (if (= (vector-length #{a 22378}#)
+ 4)
+ (eq? (vector-ref #{a 22378}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 22378}# 1))
+ #f)))
+ #{tmp 22374}#)
+ #f)
+ (@apply
+ (lambda (#{a 22407}# #{init 22408}# #{b 22409}#)
+ (#{opt 22200}#
+ #{b 22409}#
+ #{req 22331}#
+ (cons (list #{a 22407}# #{init 22408}#)
+ #{ropt 22332}#)))
+ #{tmp 22374}#)
+ (let ((#{tmp 22410}#
+ ($sc-dispatch
+ #{args 22330}#
+ '(any . any))))
+ (if (if #{tmp 22410}#
+ (@apply
+ (lambda (#{a 22414}# #{b 22415}#)
+ (eq? (syntax->datum #{a 22414}#)
+ #:key))
+ #{tmp 22410}#)
+ #f)
+ (@apply
+ (lambda (#{a 22416}# #{b 22417}#)
+ (#{key 22201}#
+ #{b 22417}#
+ #{req 22331}#
+ (reverse #{ropt 22332}#)
+ '()))
+ #{tmp 22410}#)
+ (let ((#{tmp 22420}#
+ ($sc-dispatch
+ #{args 22330}#
+ '(any any))))
+ (if (if #{tmp 22420}#
+ (@apply
+ (lambda (#{a 22424}# #{b 22425}#)
+ (eq? (syntax->datum #{a 22424}#)
+ #:rest))
+ #{tmp 22420}#)
+ #f)
+ (@apply
+ (lambda (#{a 22426}# #{b 22427}#)
+ (#{rest 22202}#
+ #{b 22427}#
+ #{req 22331}#
+ (reverse #{ropt 22332}#)
+ '()))
+ #{tmp 22420}#)
+ (let ((#{tmp 22430}#
+ (list #{args 22330}#)))
+ (if (@apply
+ (lambda (#{r 22432}#)
+ (if (symbol? #{r 22432}#)
+ #t
+ (if (if (vector? #{r 22432}#)
+ (if (= (vector-length
+ #{r 22432}#)
+ 4)
+ (eq? (vector-ref
+ #{r 22432}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{r 22432}# 1))
+ #f)))
+ #{tmp 22430}#)
+ (@apply
+ (lambda (#{r 22462}#)
+ (#{rest 22202}#
+ #{r 22462}#
+ #{req 22331}#
+ (reverse #{ropt 22332}#)
+ '()))
+ #{tmp 22430}#)
+ (syntax-violation
+ 'lambda*
+ "invalid optional argument list"
+ #{orig-args 22198}#
+ #{args 22330}#)))))))))))))))
+ (#{key 22201}#
+ (lambda (#{args 22481}#
+ #{req 22482}#
+ #{opt 22483}#
+ #{rkey 22484}#)
+ (let ((#{tmp 22486}# ($sc-dispatch #{args 22481}# '())))
+ (if #{tmp 22486}#
+ (@apply
+ (lambda ()
+ (#{check 22203}#
+ #{req 22482}#
+ #{opt 22483}#
+ #f
+ (cons #f (reverse #{rkey 22484}#))))
+ #{tmp 22486}#)
+ (let ((#{tmp 22492}#
+ ($sc-dispatch #{args 22481}# '(any . any))))
+ (if (if #{tmp 22492}#
+ (@apply
+ (lambda (#{a 22496}# #{b 22497}#)
+ (if (symbol? #{a 22496}#)
+ #t
+ (if (if (vector? #{a 22496}#)
+ (if (= (vector-length #{a 22496}#) 4)
+ (eq? (vector-ref #{a 22496}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 22496}# 1))
+ #f)))
+ #{tmp 22492}#)
+ #f)
+ (@apply
+ (lambda (#{a 22524}# #{b 22525}#)
+ (let ((#{tmp 22526}#
+ (symbol->keyword
+ (syntax->datum #{a 22524}#))))
+ (#{key 22201}#
+ #{b 22525}#
+ #{req 22482}#
+ #{opt 22483}#
+ (cons (cons #{tmp 22526}#
+ (cons #{a 22524}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(k)
+ #((top))
+ #("qt"))
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("qr" "qs"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req opt rkey)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("ql"
+ "qm"
+ "qn"
+ "qo"))
+ #(ribcage
+ (check rest
+ key
+ opt
+ req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("pb"
+ "pa"
+ "p9"
+ "p8"
+ "p7"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("p6"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile)))))
+ #{rkey 22484}#))))
+ #{tmp 22492}#)
+ (let ((#{tmp 22529}#
+ ($sc-dispatch
+ #{args 22481}#
+ '((any any) . any))))
+ (if (if #{tmp 22529}#
+ (@apply
+ (lambda (#{a 22533}#
+ #{init 22534}#
+ #{b 22535}#)
+ (if (symbol? #{a 22533}#)
+ #t
+ (if (if (vector? #{a 22533}#)
+ (if (= (vector-length #{a 22533}#)
+ 4)
+ (eq? (vector-ref #{a 22533}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 22533}# 1))
+ #f)))
+ #{tmp 22529}#)
+ #f)
+ (@apply
+ (lambda (#{a 22562}# #{init 22563}# #{b 22564}#)
+ (let ((#{tmp 22565}#
+ (symbol->keyword
+ (syntax->datum #{a 22562}#))))
+ (#{key 22201}#
+ #{b 22564}#
+ #{req 22482}#
+ #{opt 22483}#
+ (cons (list #{tmp 22565}#
+ #{a 22562}#
+ #{init 22563}#)
+ #{rkey 22484}#))))
+ #{tmp 22529}#)
+ (let ((#{tmp 22568}#
+ ($sc-dispatch
+ #{args 22481}#
+ '((any any any) . any))))
+ (if (if #{tmp 22568}#
+ (@apply
+ (lambda (#{a 22572}#
+ #{init 22573}#
+ #{k 22574}#
+ #{b 22575}#)
+ (if (if (symbol? #{a 22572}#)
+ #t
+ (if (if (vector? #{a 22572}#)
+ (if (= (vector-length
+ #{a 22572}#)
+ 4)
+ (eq? (vector-ref
+ #{a 22572}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{a 22572}# 1))
+ #f))
+ (keyword?
+ (syntax->datum #{k 22574}#))
+ #f))
+ #{tmp 22568}#)
+ #f)
+ (@apply
+ (lambda (#{a 22602}#
+ #{init 22603}#
+ #{k 22604}#
+ #{b 22605}#)
+ (#{key 22201}#
+ #{b 22605}#
+ #{req 22482}#
+ #{opt 22483}#
+ (cons (list #{k 22604}#
+ #{a 22602}#
+ #{init 22603}#)
+ #{rkey 22484}#)))
+ #{tmp 22568}#)
+ (let ((#{tmp 22606}#
+ ($sc-dispatch #{args 22481}# '(any))))
+ (if (if #{tmp 22606}#
+ (@apply
+ (lambda (#{aok 22610}#)
+ (eq? (syntax->datum #{aok 22610}#)
+ #:allow-other-keys))
+ #{tmp 22606}#)
+ #f)
+ (@apply
+ (lambda (#{aok 22611}#)
+ (#{check 22203}#
+ #{req 22482}#
+ #{opt 22483}#
+ #f
+ (cons #t (reverse #{rkey 22484}#))))
+ #{tmp 22606}#)
+ (let ((#{tmp 22614}#
+ ($sc-dispatch
+ #{args 22481}#
+ '(any any any))))
+ (if (if #{tmp 22614}#
+ (@apply
+ (lambda (#{aok 22618}#
+ #{a 22619}#
+ #{b 22620}#)
+ (if (eq? (syntax->datum
+ #{aok 22618}#)
+ #:allow-other-keys)
+ (eq? (syntax->datum
+ #{a 22619}#)
+ #:rest)
+ #f))
+ #{tmp 22614}#)
+ #f)
+ (@apply
+ (lambda (#{aok 22621}#
+ #{a 22622}#
+ #{b 22623}#)
+ (#{rest 22202}#
+ #{b 22623}#
+ #{req 22482}#
+ #{opt 22483}#
+ (cons #t
+ (reverse #{rkey 22484}#))))
+ #{tmp 22614}#)
+ (let ((#{tmp 22626}#
+ ($sc-dispatch
+ #{args 22481}#
+ '(any . any))))
+ (if (if #{tmp 22626}#
+ (@apply
+ (lambda (#{aok 22630}#
+ #{r 22631}#)
+ (if (eq? (syntax->datum
+ #{aok 22630}#)
+
#:allow-other-keys)
+ (if (symbol? #{r 22631}#)
+ #t
+ (if (if (vector?
+ #{r 22631}#)
+ (if (=
(vector-length
+ #{r
22631}#)
+ 4)
+ (eq?
(vector-ref
+ #{r
22631}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{r 22631}#
+ 1))
+ #f))
+ #f))
+ #{tmp 22626}#)
+ #f)
+ (@apply
+ (lambda (#{aok 22658}#
+ #{r 22659}#)
+ (#{rest 22202}#
+ #{r 22659}#
+ #{req 22482}#
+ #{opt 22483}#
+ (cons #t
+ (reverse
+ #{rkey 22484}#))))
+ #{tmp 22626}#)
+ (let ((#{tmp 22662}#
+ ($sc-dispatch
+ #{args 22481}#
+ '(any any))))
+ (if (if #{tmp 22662}#
+ (@apply
+ (lambda (#{a 22666}#
+ #{b 22667}#)
+ (eq? (syntax->datum
+ #{a 22666}#)
+ #:rest))
+ #{tmp 22662}#)
+ #f)
+ (@apply
+ (lambda (#{a 22668}#
+ #{b 22669}#)
+ (#{rest 22202}#
+ #{b 22669}#
+ #{req 22482}#
+ #{opt 22483}#
+ (cons #f
+ (reverse
+ #{rkey
22484}#))))
+ #{tmp 22662}#)
+ (let ((#{tmp 22672}#
+ (list #{args 22481}#)))
+ (if (@apply
+ (lambda (#{r 22674}#)
+ (if (symbol?
+ #{r 22674}#)
+ #t
+ (if (if (vector?
+ #{r
22674}#)
+ (if (=
(vector-length
+ #{r
22674}#)
+ 4)
+ (eq?
(vector-ref
+ #{r
22674}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{r 22674}#
+ 1))
+ #f)))
+ #{tmp 22672}#)
+ (@apply
+ (lambda (#{r 22704}#)
+ (#{rest 22202}#
+ #{r 22704}#
+ #{req 22482}#
+ #{opt 22483}#
+ (cons #f
+ (reverse
+ #{rkey
22484}#))))
+ #{tmp 22672}#)
+ (syntax-violation
+ 'lambda*
+ "invalid keyword
argument list"
+ #{orig-args 22198}#
+ #{args
22481}#)))))))))))))))))))))
+ (#{rest 22202}#
+ (lambda (#{args 22732}#
+ #{req 22733}#
+ #{opt 22734}#
+ #{kw 22735}#)
+ (let ((#{tmp 22737}# (list #{args 22732}#)))
+ (if (@apply
+ (lambda (#{r 22739}#)
+ (if (symbol? #{r 22739}#)
+ #t
+ (if (if (vector? #{r 22739}#)
+ (if (= (vector-length #{r 22739}#) 4)
+ (eq? (vector-ref #{r 22739}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{r 22739}# 1))
+ #f)))
+ #{tmp 22737}#)
+ (@apply
+ (lambda (#{r 22769}#)
+ (#{check 22203}#
+ #{req 22733}#
+ #{opt 22734}#
+ #{r 22769}#
+ #{kw 22735}#))
+ #{tmp 22737}#)
+ (syntax-violation
+ 'lambda*
+ "invalid rest argument"
+ #{orig-args 22198}#
+ #{args 22732}#)))))
+ (#{check 22203}#
+ (lambda (#{req 22773}#
+ #{opt 22774}#
+ #{rest 22775}#
+ #{kw 22776}#)
+ (if (#{distinct-bound-ids? 2769}#
+ (append
+ #{req 22773}#
+ (map car #{opt 22774}#)
+ (if #{rest 22775}# (list #{rest 22775}#) '())
+ (if (pair? #{kw 22776}#)
+ (map cadr (cdr #{kw 22776}#))
+ '())))
+ (values
+ #{req 22773}#
+ #{opt 22774}#
+ #{rest 22775}#
+ #{kw 22776}#)
+ (syntax-violation
+ 'lambda*
+ "duplicate identifier in argument list"
+ #{orig-args 22198}#)))))
+ (#{req 22199}# #{orig-args 22198}# '()))))
+ (#{expand-lambda-case 2790}#
+ (lambda (#{e 22892}#
+ #{r 22893}#
+ #{w 22894}#
+ #{s 22895}#
+ #{mod 22896}#
+ #{get-formals 22897}#
+ #{clauses 22898}#)
+ (letrec*
+ ((#{parse-req 22899}#
+ (lambda (#{req 23026}#
+ #{opt 23027}#
+ #{rest 23028}#
+ #{kw 23029}#
+ #{body 23030}#)
+ (let ((#{vars 23031}#
+ (map #{gen-var 2792}# #{req 23026}#))
+ (#{labels 23032}#
+ (#{gen-labels 2746}# #{req 23026}#)))
+ (let ((#{r* 23033}#
+ (#{extend-var-env 2738}#
+ #{labels 23032}#
+ #{vars 23031}#
+ #{r 22893}#))
+ (#{w* 23034}#
+ (#{make-binding-wrap 2757}#
+ #{req 23026}#
+ #{labels 23032}#
+ #{w 22894}#)))
+ (#{parse-opt 22900}#
+ (map syntax->datum #{req 23026}#)
+ #{opt 23027}#
+ #{rest 23028}#
+ #{kw 23029}#
+ #{body 23030}#
+ (reverse #{vars 23031}#)
+ #{r* 23033}#
+ #{w* 23034}#
+ '()
+ '())))))
+ (#{parse-opt 22900}#
+ (lambda (#{req 23210}#
+ #{opt 23211}#
+ #{rest 23212}#
+ #{kw 23213}#
+ #{body 23214}#
+ #{vars 23215}#
+ #{r* 23216}#
+ #{w* 23217}#
+ #{out 23218}#
+ #{inits 23219}#)
+ (if (pair? #{opt 23211}#)
+ (let ((#{tmp 23220}# (car #{opt 23211}#)))
+ (let ((#{tmp 23221}#
+ ($sc-dispatch #{tmp 23220}# '(any any))))
+ (if #{tmp 23221}#
+ (@apply
+ (lambda (#{id 23223}# #{i 23224}#)
+ (let ((#{v 23225}#
+ (let ((#{id 23233}#
+ (if (if (vector? #{id 23223}#)
+ (if (= (vector-length
+ #{id 23223}#)
+ 4)
+ (eq? (vector-ref
+ #{id 23223}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 23223}# 1)
+ #{id 23223}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 23233}#)
+ " ")))))
+ (let ((#{l 23226}#
+ (#{gen-labels 2746}#
+ (list #{v 23225}#))))
+ (let ((#{r** 23227}#
+ (#{extend-var-env 2738}#
+ #{l 23226}#
+ (list #{v 23225}#)
+ #{r* 23216}#)))
+ (let ((#{w** 23228}#
+ (#{make-binding-wrap 2757}#
+ (list #{id 23223}#)
+ #{l 23226}#
+ #{w* 23217}#)))
+ (#{parse-opt 22900}#
+ #{req 23210}#
+ (cdr #{opt 23211}#)
+ #{rest 23212}#
+ #{kw 23213}#
+ #{body 23214}#
+ (cons #{v 23225}# #{vars 23215}#)
+ #{r** 23227}#
+ #{w** 23228}#
+ (cons (syntax->datum #{id 23223}#)
+ #{out 23218}#)
+ (cons (#{expand 2778}#
+ #{i 23224}#
+ #{r* 23216}#
+ #{w* 23217}#
+ #{mod 22896}#)
+ #{inits 23219}#)))))))
+ #{tmp 23221}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 23220}#))))
+ (if #{rest 23212}#
+ (let ((#{v 23462}#
+ (let ((#{id 23472}#
+ (if (if (vector? #{rest 23212}#)
+ (if (= (vector-length #{rest 23212}#)
+ 4)
+ (eq? (vector-ref #{rest 23212}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{rest 23212}# 1)
+ #{rest 23212}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 23472}#)
+ " ")))))
+ (let ((#{l 23463}#
+ (#{gen-labels 2746}# (list #{v 23462}#))))
+ (let ((#{r* 23464}#
+ (#{extend-var-env 2738}#
+ #{l 23463}#
+ (list #{v 23462}#)
+ #{r* 23216}#)))
+ (let ((#{w* 23465}#
+ (#{make-binding-wrap 2757}#
+ (list #{rest 23212}#)
+ #{l 23463}#
+ #{w* 23217}#)))
+ (#{parse-kw 22901}#
+ #{req 23210}#
+ (if (pair? #{out 23218}#)
+ (reverse #{out 23218}#)
+ #f)
+ (syntax->datum #{rest 23212}#)
+ (if (pair? #{kw 23213}#)
+ (cdr #{kw 23213}#)
+ #{kw 23213}#)
+ #{body 23214}#
+ (cons #{v 23462}# #{vars 23215}#)
+ #{r* 23464}#
+ #{w* 23465}#
+ (if (pair? #{kw 23213}#) (car #{kw 23213}#) #f)
+ '()
+ #{inits 23219}#)))))
+ (#{parse-kw 22901}#
+ #{req 23210}#
+ (if (pair? #{out 23218}#)
+ (reverse #{out 23218}#)
+ #f)
+ #f
+ (if (pair? #{kw 23213}#)
+ (cdr #{kw 23213}#)
+ #{kw 23213}#)
+ #{body 23214}#
+ #{vars 23215}#
+ #{r* 23216}#
+ #{w* 23217}#
+ (if (pair? #{kw 23213}#) (car #{kw 23213}#) #f)
+ '()
+ #{inits 23219}#)))))
+ (#{parse-kw 22901}#
+ (lambda (#{req 23634}#
+ #{opt 23635}#
+ #{rest 23636}#
+ #{kw 23637}#
+ #{body 23638}#
+ #{vars 23639}#
+ #{r* 23640}#
+ #{w* 23641}#
+ #{aok 23642}#
+ #{out 23643}#
+ #{inits 23644}#)
+ (if (pair? #{kw 23637}#)
+ (let ((#{tmp 23645}# (car #{kw 23637}#)))
+ (let ((#{tmp 23646}#
+ ($sc-dispatch #{tmp 23645}# '(any any any))))
+ (if #{tmp 23646}#
+ (@apply
+ (lambda (#{k 23648}# #{id 23649}# #{i 23650}#)
+ (let ((#{v 23651}#
+ (let ((#{id 23659}#
+ (if (if (vector? #{id 23649}#)
+ (if (= (vector-length
+ #{id 23649}#)
+ 4)
+ (eq? (vector-ref
+ #{id 23649}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 23649}# 1)
+ #{id 23649}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 23659}#)
+ " ")))))
+ (let ((#{l 23652}#
+ (#{gen-labels 2746}#
+ (list #{v 23651}#))))
+ (let ((#{r** 23653}#
+ (#{extend-var-env 2738}#
+ #{l 23652}#
+ (list #{v 23651}#)
+ #{r* 23640}#)))
+ (let ((#{w** 23654}#
+ (#{make-binding-wrap 2757}#
+ (list #{id 23649}#)
+ #{l 23652}#
+ #{w* 23641}#)))
+ (#{parse-kw 22901}#
+ #{req 23634}#
+ #{opt 23635}#
+ #{rest 23636}#
+ (cdr #{kw 23637}#)
+ #{body 23638}#
+ (cons #{v 23651}# #{vars 23639}#)
+ #{r** 23653}#
+ #{w** 23654}#
+ #{aok 23642}#
+ (cons (list (syntax->datum #{k 23648}#)
+ (syntax->datum #{id 23649}#)
+ #{v 23651}#)
+ #{out 23643}#)
+ (cons (#{expand 2778}#
+ #{i 23650}#
+ #{r* 23640}#
+ #{w* 23641}#
+ #{mod 22896}#)
+ #{inits 23644}#)))))))
+ #{tmp 23646}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 23645}#))))
+ (#{parse-body 22902}#
+ #{req 23634}#
+ #{opt 23635}#
+ #{rest 23636}#
+ (if (if #{aok 23642}#
+ #{aok 23642}#
+ (pair? #{out 23643}#))
+ (cons #{aok 23642}# (reverse #{out 23643}#))
+ #f)
+ #{body 23638}#
+ (reverse #{vars 23639}#)
+ #{r* 23640}#
+ #{w* 23641}#
+ (reverse #{inits 23644}#)
+ '()))))
+ (#{parse-body 22902}#
+ (lambda (#{req 23897}#
+ #{opt 23898}#
+ #{rest 23899}#
+ #{kw 23900}#
+ #{body 23901}#
+ #{vars 23902}#
+ #{r* 23903}#
+ #{w* 23904}#
+ #{inits 23905}#
+ #{meta 23906}#)
+ (let ((#{tmp 23908}#
+ ($sc-dispatch
+ #{body 23901}#
+ '(any any . each-any))))
+ (if (if #{tmp 23908}#
+ (@apply
+ (lambda (#{docstring 23912}#
+ #{e1 23913}#
+ #{e2 23914}#)
+ (string? (syntax->datum #{docstring 23912}#)))
+ #{tmp 23908}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 23915}# #{e1 23916}# #{e2 23917}#)
+ (#{parse-body 22902}#
+ #{req 23897}#
+ #{opt 23898}#
+ #{rest 23899}#
+ #{kw 23900}#
+ (cons #{e1 23916}# #{e2 23917}#)
+ #{vars 23902}#
+ #{r* 23903}#
+ #{w* 23904}#
+ #{inits 23905}#
+ (append
+ #{meta 23906}#
+ (list (cons 'documentation
+ (syntax->datum
+ #{docstring 23915}#))))))
+ #{tmp 23908}#)
+ (let ((#{tmp 23918}#
+ ($sc-dispatch
+ #{body 23901}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 23918}#
+ (@apply
+ (lambda (#{k 23922}#
+ #{v 23923}#
+ #{e1 23924}#
+ #{e2 23925}#)
+ (#{parse-body 22902}#
+ #{req 23897}#
+ #{opt 23898}#
+ #{rest 23899}#
+ #{kw 23900}#
+ (cons #{e1 23924}# #{e2 23925}#)
+ #{vars 23902}#
+ #{r* 23903}#
+ #{w* 23904}#
+ #{inits 23905}#
+ (append
+ #{meta 23906}#
+ (syntax->datum
+ (map cons #{k 23922}# #{v 23923}#)))))
+ #{tmp 23918}#)
+ (let ((#{tmp 23926}#
+ ($sc-dispatch
+ #{body 23901}#
+ '(any . each-any))))
+ (if #{tmp 23926}#
+ (@apply
+ (lambda (#{e1 23930}# #{e2 23931}#)
+ (values
+ #{meta 23906}#
+ #{req 23897}#
+ #{opt 23898}#
+ #{rest 23899}#
+ #{kw 23900}#
+ #{inits 23905}#
+ #{vars 23902}#
+ (#{expand-body 2782}#
+ (cons #{e1 23930}# #{e2 23931}#)
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 22892}#)
+ #{s 22895}#
+ #f)
+ (set-source-properties!
+ #{e 22892}#
+ #{s 22895}#))
+ #{e 22892}#)
+ #{w 22894}#
+ #{mod 22896}#)
+ #{r* 23903}#
+ #{w* 23904}#
+ #{mod 22896}#)))
+ #{tmp 23926}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{body 23901}#))))))))))
+ (let ((#{tmp 22904}#
+ ($sc-dispatch #{clauses 22898}# '())))
+ (if #{tmp 22904}#
+ (@apply
+ (lambda () (values '() #f))
+ #{tmp 22904}#)
+ (let ((#{tmp 22908}#
+ ($sc-dispatch
+ #{clauses 22898}#
+ '((any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 22908}#
+ (@apply
+ (lambda (#{args 22912}#
+ #{e1 22913}#
+ #{e2 22914}#
+ #{args* 22915}#
+ #{e1* 22916}#
+ #{e2* 22917}#)
+ (call-with-values
+ (lambda ()
+ (#{get-formals 22897}# #{args 22912}#))
+ (lambda (#{req 22918}#
+ #{opt 22919}#
+ #{rest 22920}#
+ #{kw 22921}#)
+ (call-with-values
+ (lambda ()
+ (#{parse-req 22899}#
+ #{req 22918}#
+ #{opt 22919}#
+ #{rest 22920}#
+ #{kw 22921}#
+ (cons #{e1 22913}# #{e2 22914}#)))
+ (lambda (#{meta 22982}#
+ #{req 22983}#
+ #{opt 22984}#
+ #{rest 22985}#
+ #{kw 22986}#
+ #{inits 22987}#
+ #{vars 22988}#
+ #{body 22989}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-lambda-case 2790}#
+ #{e 22892}#
+ #{r 22893}#
+ #{w 22894}#
+ #{s 22895}#
+ #{mod 22896}#
+ #{get-formals 22897}#
+ (map (lambda (#{tmp 1727 22990}#
+ #{tmp 1726 22991}#
+ #{tmp 1725 22992}#)
+ (cons #{tmp 1725 22992}#
+ (cons #{tmp 1726 22991}#
+ #{tmp 1727 22990}#)))
+ #{e2* 22917}#
+ #{e1* 22916}#
+ #{args* 22915}#)))
+ (lambda (#{meta* 22993}# #{else* 22994}#)
+ (values
+ (append #{meta 22982}# #{meta* 22993}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{s 22895}#
+ #{req 22983}#
+ #{opt 22984}#
+ #{rest 22985}#
+ #{kw 22986}#
+ #{inits 22987}#
+ #{vars 22988}#
+ #{body 22989}#
+ #{else* 22994}#)))))))))
+ #{tmp 22908}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{clauses 22898}#))))))))
+ (#{strip 2791}#
+ (lambda (#{x 23968}# #{w 23969}#)
+ (if (memq 'top (car #{w 23969}#))
+ #{x 23968}#
+ (letrec*
+ ((#{f 23970}#
+ (lambda (#{x 23973}#)
+ (if (if (vector? #{x 23973}#)
+ (if (= (vector-length #{x 23973}#) 4)
+ (eq? (vector-ref #{x 23973}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{strip 2791}#
+ (vector-ref #{x 23973}# 1)
+ (vector-ref #{x 23973}# 2))
+ (if (pair? #{x 23973}#)
+ (let ((#{a 23992}# (#{f 23970}# (car #{x 23973}#)))
+ (#{d 23993}# (#{f 23970}# (cdr #{x 23973}#))))
+ (if (if (eq? #{a 23992}# (car #{x 23973}#))
+ (eq? #{d 23993}# (cdr #{x 23973}#))
+ #f)
+ #{x 23973}#
+ (cons #{a 23992}# #{d 23993}#)))
+ (if (vector? #{x 23973}#)
+ (let ((#{old 23996}# (vector->list #{x 23973}#)))
+ (let ((#{new 23997}#
+ (map #{f 23970}# #{old 23996}#)))
+ (letrec*
+ ((#{lp 23998}#
+ (lambda (#{l1 24074}# #{l2 24075}#)
+ (if (null? #{l1 24074}#)
+ #{x 23973}#
+ (if (eq? (car #{l1 24074}#)
+ (car #{l2 24075}#))
+ (#{lp 23998}#
+ (cdr #{l1 24074}#)
+ (cdr #{l2 24075}#))
+ (list->vector #{new 23997}#))))))
+ (#{lp 23998}# #{old 23996}# #{new 23997}#))))
+ #{x 23973}#))))))
+ (#{f 23970}# #{x 23968}#)))))
+ (#{gen-var 2792}#
+ (lambda (#{id 23038}#)
+ (let ((#{id 23039}#
+ (if (if (vector? #{id 23038}#)
+ (if (= (vector-length #{id 23038}#) 4)
+ (eq? (vector-ref #{id 23038}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 23038}# 1)
+ #{id 23038}#)))
+ (gensym
+ (string-append (symbol->string #{id 23039}#) " "))))))
+ (begin
+ (set! #{gen-label 2745}#
+ (let ((#{i 13949}# 0))
+ (lambda ()
+ (let ((#{n 13950}# #{i 13949}#))
+ (begin
+ (set! #{i 13949}# (#{1+}# #{n 13950}#))
+ (number->string #{n 13950}# 36))))))
+ (set! #{transformer-environment 2764}#
+ (make-fluid
+ (lambda (#{k 12327}#)
+ (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 2741}#
+ 'core
+ 'syntax-parameterize
+ (lambda (#{e 2913}#
+ #{r 2914}#
+ #{w 2915}#
+ #{s 2916}#
+ #{mod 2917}#)
+ (let ((#{tmp 2919}#
+ ($sc-dispatch
+ #{e 2913}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 2919}#
+ (@apply
+ (lambda (#{var 2923}#
+ #{val 2924}#
+ #{e1 2925}#
+ #{e2 2926}#)
+ (#{valid-bound-ids? 2768}# #{var 2923}#))
+ #{tmp 2919}#)
+ #f)
+ (@apply
+ (lambda (#{var 3004}#
+ #{val 3005}#
+ #{e1 3006}#
+ #{e2 3007}#)
+ (let ((#{names 3008}#
+ (map (lambda (#{x 3058}#)
+ (#{id-var-name 2762}# #{x 3058}# #{w 2915}#))
+ #{var 3004}#)))
+ (begin
+ (for-each
+ (lambda (#{id 3009}# #{n 3010}#)
+ (let ((#{atom-key 3011}#
+ (car (let ((#{t 3018}#
+ (assq #{n 3010}# #{r 2914}#)))
+ (if #{t 3018}#
+ (cdr #{t 3018}#)
+ (if (symbol? #{n 3010}#)
+ (let ((#{t 3023}#
+
(#{get-global-definition-hook 2706}#
+ #{n 3010}#
+ #{mod 2917}#)))
+ (if #{t 3023}#
+ #{t 3023}#
+ '(global)))
+ '(displaced-lexical)))))))
+ (if (eqv? #{atom-key 3011}# 'displaced-lexical)
+ (syntax-violation
+ 'syntax-parameterize
+ "identifier out of context"
+ #{e 2913}#
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{id 3009}#) #{s 2916}# #f)
+ (set-source-properties!
+ #{id 3009}#
+ #{s 2916}#))
+ #{id 3009}#)
+ #{w 2915}#
+ #{mod 2917}#)))))
+ #{var 3004}#
+ #{names 3008}#)
+ (#{expand-body 2782}#
+ (cons #{e1 3006}# #{e2 3007}#)
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 2913}#) #{s 2916}# #f)
+ (set-source-properties! #{e 2913}# #{s 2916}#))
+ #{e 2913}#)
+ #{w 2915}#
+ #{mod 2917}#)
+ (#{extend-env 2737}#
+ #{names 3008}#
+ (let ((#{trans-r 3144}#
+ (#{macros-only-env 2739}# #{r 2914}#)))
+ (map (lambda (#{x 3145}#)
+ (cons 'macro
+ (#{eval-local-transformer 2784}#
+ (#{expand 2778}#
+ #{x 3145}#
+ #{trans-r 3144}#
+ #{w 2915}#
+ #{mod 2917}#)
+ #{mod 2917}#)))
+ #{val 3005}#))
+ #{r 2914}#)
+ #{w 2915}#
+ #{mod 2917}#))))
+ #{tmp 2919}#)
+ (syntax-violation
+ 'syntax-parameterize
+ "bad syntax"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 2913}#) #{s 2916}# #f)
+ (set-source-properties! #{e 2913}# #{s 2916}#))
+ #{e 2913}#)
+ #{w 2915}#
+ #{mod 2917}#))))))
+ (module-define!
+ (current-module)
+ 'quote
+ (make-syntax-transformer
+ 'quote
+ 'core
+ (lambda (#{e 3354}#
+ #{r 3355}#
+ #{w 3356}#
+ #{s 3357}#
+ #{mod 3358}#)
+ (let ((#{tmp 3360}# ($sc-dispatch #{e 3354}# '(_ any))))
+ (if #{tmp 3360}#
+ (@apply
+ (lambda (#{e 3363}#)
+ (let ((#{exp 3367}#
+ (#{strip 2791}# #{e 3363}# #{w 3356}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{s 3357}#
+ #{exp 3367}#)))
+ #{tmp 3360}#)
+ (syntax-violation
+ 'quote
+ "bad syntax"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 3354}#) #{s 3357}# #f)
+ (set-source-properties! #{e 3354}# #{s 3357}#))
+ #{e 3354}#)
+ #{w 3356}#
+ #{mod 3358}#)))))))
+ (#{global-extend 2741}#
+ 'core
+ 'syntax
+ (letrec*
+ ((#{gen-syntax 3587}#
+ (lambda (#{src 3689}#
+ #{e 3690}#
+ #{r 3691}#
+ #{maps 3692}#
+ #{ellipsis? 3693}#
+ #{mod 3694}#)
+ (if (if (symbol? #{e 3690}#)
+ #t
+ (if (if (vector? #{e 3690}#)
+ (if (= (vector-length #{e 3690}#) 4)
+ (eq? (vector-ref #{e 3690}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{e 3690}# 1))
+ #f))
+ (let ((#{label 3721}#
+ (#{id-var-name 2762}# #{e 3690}# '(()))))
+ (let ((#{b 3722}#
+ (let ((#{t 3729}# (assq #{label 3721}# #{r 3691}#)))
+ (if #{t 3729}#
+ (cdr #{t 3729}#)
+ (if (symbol? #{label 3721}#)
+ (let ((#{t 3735}#
+ (#{get-global-definition-hook 2706}#
+ #{label 3721}#
+ #{mod 3694}#)))
+ (if #{t 3735}# #{t 3735}# '(global)))
+ '(displaced-lexical))))))
+ (if (eq? (car #{b 3722}#) 'syntax)
+ (call-with-values
+ (lambda ()
+ (let ((#{var.lev 3744}# (cdr #{b 3722}#)))
+ (#{gen-ref 3588}#
+ #{src 3689}#
+ (car #{var.lev 3744}#)
+ (cdr #{var.lev 3744}#)
+ #{maps 3692}#)))
+ (lambda (#{var 3748}# #{maps 3749}#)
+ (values (list 'ref #{var 3748}#) #{maps 3749}#)))
+ (if (#{ellipsis? 3693}# #{e 3690}#)
+ (syntax-violation
+ 'syntax
+ "misplaced ellipsis"
+ #{src 3689}#)
+ (values (list 'quote #{e 3690}#) #{maps 3692}#)))))
+ (let ((#{tmp 3751}#
+ ($sc-dispatch #{e 3690}# '(any any))))
+ (if (if #{tmp 3751}#
+ (@apply
+ (lambda (#{dots 3755}# #{e 3756}#)
+ (#{ellipsis? 3693}# #{dots 3755}#))
+ #{tmp 3751}#)
+ #f)
+ (@apply
+ (lambda (#{dots 3757}# #{e 3758}#)
+ (#{gen-syntax 3587}#
+ #{src 3689}#
+ #{e 3758}#
+ #{r 3691}#
+ #{maps 3692}#
+ (lambda (#{x 3759}#) #f)
+ #{mod 3694}#))
+ #{tmp 3751}#)
+ (let ((#{tmp 3760}#
+ ($sc-dispatch #{e 3690}# '(any any . any))))
+ (if (if #{tmp 3760}#
+ (@apply
+ (lambda (#{x 3764}# #{dots 3765}# #{y 3766}#)
+ (#{ellipsis? 3693}# #{dots 3765}#))
+ #{tmp 3760}#)
+ #f)
+ (@apply
+ (lambda (#{x 3767}# #{dots 3768}# #{y 3769}#)
+ (letrec*
+ ((#{f 3770}#
+ (lambda (#{y 3778}# #{k 3779}#)
+ (let ((#{tmp 3781}#
+ ($sc-dispatch
+ #{y 3778}#
+ '(any . any))))
+ (if (if #{tmp 3781}#
+ (@apply
+ (lambda (#{dots 3785}#
+ #{y 3786}#)
+ (#{ellipsis? 3693}#
+ #{dots 3785}#))
+ #{tmp 3781}#)
+ #f)
+ (@apply
+ (lambda (#{dots 3787}# #{y 3788}#)
+ (#{f 3770}#
+ #{y 3788}#
+ (lambda (#{maps 3789}#)
+ (call-with-values
+ (lambda ()
+ (#{k 3779}#
+ (cons '()
+ #{maps 3789}#)))
+ (lambda (#{x 3790}#
+ #{maps 3791}#)
+ (if (null? (car #{maps
3791}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 3689}#)
+ (values
+ (let ((#{map-env 3795}#
+ (car #{maps
3791}#)))
+ (list 'apply
+ '(primitive
+ append)
+ (#{gen-map
3590}#
+ #{x 3790}#
+ #{map-env
3795}#)))
+ (cdr #{maps
3791}#))))))))
+ #{tmp 3781}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 3587}#
+ #{src 3689}#
+ #{y 3778}#
+ #{r 3691}#
+ #{maps 3692}#
+ #{ellipsis? 3693}#
+ #{mod 3694}#))
+ (lambda (#{y 3798}# #{maps 3799}#)
+ (call-with-values
+ (lambda ()
+ (#{k 3779}# #{maps 3799}#))
+ (lambda (#{x 3800}#
+ #{maps 3801}#)
+ (values
+ (if (equal? #{y 3798}# ''())
+ #{x 3800}#
+ (list 'append
+ #{x 3800}#
+ #{y 3798}#))
+ #{maps 3801}#))))))))))
+ (#{f 3770}#
+ #{y 3769}#
+ (lambda (#{maps 3773}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 3587}#
+ #{src 3689}#
+ #{x 3767}#
+ #{r 3691}#
+ (cons '() #{maps 3773}#)
+ #{ellipsis? 3693}#
+ #{mod 3694}#))
+ (lambda (#{x 3774}# #{maps 3775}#)
+ (if (null? (car #{maps 3775}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 3689}#)
+ (values
+ (#{gen-map 3590}#
+ #{x 3774}#
+ (car #{maps 3775}#))
+ (cdr #{maps 3775}#)))))))))
+ #{tmp 3760}#)
+ (let ((#{tmp 3817}#
+ ($sc-dispatch #{e 3690}# '(any . any))))
+ (if #{tmp 3817}#
+ (@apply
+ (lambda (#{x 3821}# #{y 3822}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 3587}#
+ #{src 3689}#
+ #{x 3821}#
+ #{r 3691}#
+ #{maps 3692}#
+ #{ellipsis? 3693}#
+ #{mod 3694}#))
+ (lambda (#{x 3823}# #{maps 3824}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 3587}#
+ #{src 3689}#
+ #{y 3822}#
+ #{r 3691}#
+ #{maps 3824}#
+ #{ellipsis? 3693}#
+ #{mod 3694}#))
+ (lambda (#{y 3825}# #{maps 3826}#)
+ (values
+ (let ((#{atom-key 3831}#
+ (car #{y 3825}#)))
+ (if (eqv? #{atom-key 3831}#
+ 'quote)
+ (if (eq? (car #{x 3823}#)
+ 'quote)
+ (list 'quote
+ (cons (car (cdr #{x
3823}#))
+ (car (cdr #{y
3825}#))))
+ (if (eq? (car (cdr #{y
3825}#))
+ '())
+ (list 'list #{x 3823}#)
+ (list 'cons
+ #{x 3823}#
+ #{y 3825}#)))
+ (if (eqv? #{atom-key 3831}#
+ 'list)
+ (cons 'list
+ (cons #{x 3823}#
+ (cdr #{y 3825}#)))
+ (list 'cons
+ #{x 3823}#
+ #{y 3825}#))))
+ #{maps 3826}#))))))
+ #{tmp 3817}#)
+ (let ((#{tmp 3860}#
+ ($sc-dispatch
+ #{e 3690}#
+ '#(vector (any . each-any)))))
+ (if #{tmp 3860}#
+ (@apply
+ (lambda (#{e1 3864}# #{e2 3865}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 3587}#
+ #{src 3689}#
+ (cons #{e1 3864}# #{e2 3865}#)
+ #{r 3691}#
+ #{maps 3692}#
+ #{ellipsis? 3693}#
+ #{mod 3694}#))
+ (lambda (#{e 3866}# #{maps 3867}#)
+ (values
+ (if (eq? (car #{e 3866}#) 'list)
+ (cons 'vector (cdr #{e 3866}#))
+ (if (eq? (car #{e 3866}#) 'quote)
+ (list 'quote
+ (list->vector
+ (car (cdr #{e 3866}#))))
+ (list 'list->vector
+ #{e 3866}#)))
+ #{maps 3867}#))))
+ #{tmp 3860}#)
+ (values
+ (list 'quote #{e 3690}#)
+ #{maps 3692}#))))))))))))
+ (#{gen-ref 3588}#
+ (lambda (#{src 3894}#
+ #{var 3895}#
+ #{level 3896}#
+ #{maps 3897}#)
+ (if (= #{level 3896}# 0)
+ (values #{var 3895}# #{maps 3897}#)
+ (if (null? #{maps 3897}#)
+ (syntax-violation
+ 'syntax
+ "missing ellipsis"
+ #{src 3894}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-ref 3588}#
+ #{src 3894}#
+ #{var 3895}#
+ (#{1-}# #{level 3896}#)
+ (cdr #{maps 3897}#)))
+ (lambda (#{outer-var 3898}# #{outer-maps 3899}#)
+ (let ((#{b 3900}#
+ (assq #{outer-var 3898}# (car #{maps 3897}#))))
+ (if #{b 3900}#
+ (values (cdr #{b 3900}#) #{maps 3897}#)
+ (let ((#{inner-var 3902}#
+ (gensym
+ (string-append
+ (symbol->string 'tmp)
+ " "))))
+ (values
+ #{inner-var 3902}#
+ (cons (cons (cons #{outer-var 3898}#
+ #{inner-var 3902}#)
+ (car #{maps 3897}#))
+ #{outer-maps 3899}#)))))))))))
+ (#{gen-map 3590}#
+ (lambda (#{e 3916}# #{map-env 3917}#)
+ (let ((#{formals 3918}# (map cdr #{map-env 3917}#))
+ (#{actuals 3919}#
+ (map (lambda (#{x 3921}#)
+ (list 'ref (car #{x 3921}#)))
+ #{map-env 3917}#)))
+ (if (eq? (car #{e 3916}#) 'ref)
+ (car #{actuals 3919}#)
+ (if (and-map
+ (lambda (#{x 3922}#)
+ (if (eq? (car #{x 3922}#) 'ref)
+ (memq (car (cdr #{x 3922}#)) #{formals 3918}#)
+ #f))
+ (cdr #{e 3916}#))
+ (cons 'map
+ (cons (list 'primitive (car #{e 3916}#))
+ (map (let ((#{r 3924}#
+ (map cons
+ #{formals 3918}#
+ #{actuals 3919}#)))
+ (lambda (#{x 3925}#)
+ (cdr (assq (car (cdr #{x 3925}#))
+ #{r 3924}#))))
+ (cdr #{e 3916}#))))
+ (cons 'map
+ (cons (list 'lambda #{formals 3918}# #{e 3916}#)
+ #{actuals 3919}#)))))))
+ (#{regen 3594}#
+ (lambda (#{x 3927}#)
+ (let ((#{atom-key 3928}# (car #{x 3927}#)))
+ (if (eqv? #{atom-key 3928}# 'ref)
+ (let ((#{name 3938}# (car (cdr #{x 3927}#)))
+ (#{var 3939}# (car (cdr #{x 3927}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ #{name 3938}#
+ #{var 3939}#))
+ (if (eqv? #{atom-key 3928}# 'primitive)
+ (let ((#{name 3951}# (car (cdr #{x 3927}#))))
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ #{name 3951}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ #{name 3951}#
+ #f)))
+ (if (eqv? #{atom-key 3928}# 'quote)
+ (let ((#{exp 3969}# (car (cdr #{x 3927}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #{exp 3969}#))
+ (if (eqv? #{atom-key 3928}# 'lambda)
+ (if (list? (car (cdr #{x 3927}#)))
+ (let ((#{req 3980}# (car (cdr #{x 3927}#)))
+ (#{vars 3982}# (car (cdr #{x 3927}#)))
+ (#{exp 3984}#
+ (#{regen 3594}#
+ (car (cdr (cdr #{x 3927}#))))))
+ (let ((#{body 3989}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ #{req 3980}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 3982}#
+ #{exp 3984}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ #{body 3989}#)))
+ (error "how did we get here" #{x 3927}#))
+ (let ((#{fun-exp 4005}#
+ (let ((#{name 4014}# (car #{x 3927}#)))
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ #{name 4014}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ #{name 4014}#
+ #f))))
+ (#{arg-exps 4006}#
+ (map #{regen 3594}# (cdr #{x 3927}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 4005}#
+ #{arg-exps 4006}#))))))))))
+ (lambda (#{e 3595}#
+ #{r 3596}#
+ #{w 3597}#
+ #{s 3598}#
+ #{mod 3599}#)
+ (let ((#{e 3600}#
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 3595}#) #{s 3598}# #f)
+ (set-source-properties! #{e 3595}# #{s 3598}#))
+ #{e 3595}#)
+ #{w 3597}#
+ #{mod 3599}#)))
+ (let ((#{tmp 3602}# ($sc-dispatch #{e 3600}# '(_ any))))
+ (if #{tmp 3602}#
+ (@apply
+ (lambda (#{x 3627}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 3587}#
+ #{e 3600}#
+ #{x 3627}#
+ #{r 3596}#
+ '()
+ #{ellipsis? 2786}#
+ #{mod 3599}#))
+ (lambda (#{e 3681}# #{maps 3682}#)
+ (#{regen 3594}# #{e 3681}#))))
+ #{tmp 3602}#)
+ (syntax-violation
+ 'syntax
+ "bad `syntax' form"
+ #{e 3600}#)))))))
+ (#{global-extend 2741}#
+ 'core
+ 'lambda
+ (lambda (#{e 4203}#
+ #{r 4204}#
+ #{w 4205}#
+ #{s 4206}#
+ #{mod 4207}#)
+ (let ((#{tmp 4209}#
+ ($sc-dispatch #{e 4203}# '(_ any any . each-any))))
+ (if #{tmp 4209}#
+ (@apply
+ (lambda (#{args 4213}# #{e1 4214}# #{e2 4215}#)
+ (call-with-values
+ (lambda ()
+ (#{lambda-formals 2787}# #{args 4213}#))
+ (lambda (#{req 4218}#
+ #{opt 4219}#
+ #{rest 4220}#
+ #{kw 4221}#)
+ (letrec*
+ ((#{lp 4222}#
+ (lambda (#{body 4225}# #{meta 4226}#)
+ (let ((#{tmp 4228}#
+ ($sc-dispatch
+ #{body 4225}#
+ '(any any . each-any))))
+ (if (if #{tmp 4228}#
+ (@apply
+ (lambda (#{docstring 4232}#
+ #{e1 4233}#
+ #{e2 4234}#)
+ (string?
+ (syntax->datum #{docstring 4232}#)))
+ #{tmp 4228}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 4235}#
+ #{e1 4236}#
+ #{e2 4237}#)
+ (#{lp 4222}#
+ (cons #{e1 4236}# #{e2 4237}#)
+ (append
+ #{meta 4226}#
+ (list (cons 'documentation
+ (syntax->datum
+ #{docstring 4235}#))))))
+ #{tmp 4228}#)
+ (let ((#{tmp 4238}#
+ ($sc-dispatch
+ #{body 4225}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 4238}#
+ (@apply
+ (lambda (#{k 4242}#
+ #{v 4243}#
+ #{e1 4244}#
+ #{e2 4245}#)
+ (#{lp 4222}#
+ (cons #{e1 4244}# #{e2 4245}#)
+ (append
+ #{meta 4226}#
+ (syntax->datum
+ (map cons
+ #{k 4242}#
+ #{v 4243}#)))))
+ #{tmp 4238}#)
+ (#{expand-simple-lambda 2788}#
+ #{e 4203}#
+ #{r 4204}#
+ #{w 4205}#
+ #{s 4206}#
+ #{mod 4207}#
+ #{req 4218}#
+ #{rest 4220}#
+ #{meta 4226}#
+ #{body 4225}#))))))))
+ (#{lp 4222}# (cons #{e1 4214}# #{e2 4215}#) '())))))
+ #{tmp 4209}#)
+ (syntax-violation
+ 'lambda
+ "bad lambda"
+ #{e 4203}#)))))
+ (#{global-extend 2741}#
+ 'core
+ 'lambda*
+ (lambda (#{e 4530}#
+ #{r 4531}#
+ #{w 4532}#
+ #{s 4533}#
+ #{mod 4534}#)
+ (let ((#{tmp 4536}#
+ ($sc-dispatch #{e 4530}# '(_ any any . each-any))))
+ (if #{tmp 4536}#
+ (@apply
+ (lambda (#{args 4540}# #{e1 4541}# #{e2 4542}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-lambda-case 2790}#
+ #{e 4530}#
+ #{r 4531}#
+ #{w 4532}#
+ #{s 4533}#
+ #{mod 4534}#
+ #{lambda*-formals 2789}#
+ (list (cons #{args 4540}#
+ (cons #{e1 4541}# #{e2 4542}#)))))
+ (lambda (#{meta 4545}# #{lcase 4546}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 4533}#
+ #{meta 4545}#
+ #{lcase 4546}#))))
+ #{tmp 4536}#)
+ (syntax-violation
+ 'lambda
+ "bad lambda*"
+ #{e 4530}#)))))
+ (#{global-extend 2741}#
+ 'core
+ 'case-lambda
+ (lambda (#{e 4716}#
+ #{r 4717}#
+ #{w 4718}#
+ #{s 4719}#
+ #{mod 4720}#)
+ (let ((#{tmp 4722}#
+ ($sc-dispatch
+ #{e 4716}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 4722}#
+ (@apply
+ (lambda (#{args 4726}#
+ #{e1 4727}#
+ #{e2 4728}#
+ #{args* 4729}#
+ #{e1* 4730}#
+ #{e2* 4731}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-lambda-case 2790}#
+ #{e 4716}#
+ #{r 4717}#
+ #{w 4718}#
+ #{s 4719}#
+ #{mod 4720}#
+ #{lambda-formals 2787}#
+ (cons (cons #{args 4726}#
+ (cons #{e1 4727}# #{e2 4728}#))
+ (map (lambda (#{tmp 2034 4734}#
+ #{tmp 2033 4735}#
+ #{tmp 2032 4736}#)
+ (cons #{tmp 2032 4736}#
+ (cons #{tmp 2033 4735}#
+ #{tmp 2034 4734}#)))
+ #{e2* 4731}#
+ #{e1* 4730}#
+ #{args* 4729}#))))
+ (lambda (#{meta 4737}# #{lcase 4738}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 4719}#
+ #{meta 4737}#
+ #{lcase 4738}#))))
+ #{tmp 4722}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda"
+ #{e 4716}#)))))
+ (#{global-extend 2741}#
+ 'core
+ 'case-lambda*
+ (lambda (#{e 4900}#
+ #{r 4901}#
+ #{w 4902}#
+ #{s 4903}#
+ #{mod 4904}#)
+ (let ((#{tmp 4906}#
+ ($sc-dispatch
+ #{e 4900}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 4906}#
+ (@apply
+ (lambda (#{args 4910}#
+ #{e1 4911}#
+ #{e2 4912}#
+ #{args* 4913}#
+ #{e1* 4914}#
+ #{e2* 4915}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-lambda-case 2790}#
+ #{e 4900}#
+ #{r 4901}#
+ #{w 4902}#
+ #{s 4903}#
+ #{mod 4904}#
+ #{lambda*-formals 2789}#
+ (cons (cons #{args 4910}#
+ (cons #{e1 4911}# #{e2 4912}#))
+ (map (lambda (#{tmp 2055 4918}#
+ #{tmp 2054 4919}#
+ #{tmp 2053 4920}#)
+ (cons #{tmp 2053 4920}#
+ (cons #{tmp 2054 4919}#
+ #{tmp 2055 4918}#)))
+ #{e2* 4915}#
+ #{e1* 4914}#
+ #{args* 4913}#))))
+ (lambda (#{meta 4921}# #{lcase 4922}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 4903}#
+ #{meta 4921}#
+ #{lcase 4922}#))))
+ #{tmp 4906}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ #{e 4900}#)))))
+ (#{global-extend 2741}#
+ 'core
+ 'let
+ (letrec*
+ ((#{expand-let 5113}#
+ (lambda (#{e 5262}#
+ #{r 5263}#
+ #{w 5264}#
+ #{s 5265}#
+ #{mod 5266}#
+ #{constructor 5267}#
+ #{ids 5268}#
+ #{vals 5269}#
+ #{exps 5270}#)
+ (if (not (#{valid-bound-ids? 2768}# #{ids 5268}#))
+ (syntax-violation
+ 'let
+ "duplicate bound variable"
+ #{e 5262}#)
+ (let ((#{labels 5348}#
+ (#{gen-labels 2746}# #{ids 5268}#))
+ (#{new-vars 5349}#
+ (map #{gen-var 2792}# #{ids 5268}#)))
+ (let ((#{nw 5350}#
+ (#{make-binding-wrap 2757}#
+ #{ids 5268}#
+ #{labels 5348}#
+ #{w 5264}#))
+ (#{nr 5351}#
+ (#{extend-var-env 2738}#
+ #{labels 5348}#
+ #{new-vars 5349}#
+ #{r 5263}#)))
+ (#{constructor 5267}#
+ #{s 5265}#
+ (map syntax->datum #{ids 5268}#)
+ #{new-vars 5349}#
+ (map (lambda (#{x 5368}#)
+ (#{expand 2778}#
+ #{x 5368}#
+ #{r 5263}#
+ #{w 5264}#
+ #{mod 5266}#))
+ #{vals 5269}#)
+ (#{expand-body 2782}#
+ #{exps 5270}#
+ (#{source-wrap 2772}#
+ #{e 5262}#
+ #{nw 5350}#
+ #{s 5265}#
+ #{mod 5266}#)
+ #{nr 5351}#
+ #{nw 5350}#
+ #{mod 5266}#))))))))
+ (lambda (#{e 5114}#
+ #{r 5115}#
+ #{w 5116}#
+ #{s 5117}#
+ #{mod 5118}#)
+ (let ((#{tmp 5120}#
+ ($sc-dispatch
+ #{e 5114}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 5120}#
+ (@apply
+ (lambda (#{id 5124}#
+ #{val 5125}#
+ #{e1 5126}#
+ #{e2 5127}#)
+ (and-map #{id? 2743}# #{id 5124}#))
+ #{tmp 5120}#)
+ #f)
+ (@apply
+ (lambda (#{id 5143}#
+ #{val 5144}#
+ #{e1 5145}#
+ #{e2 5146}#)
+ (#{expand-let 5113}#
+ #{e 5114}#
+ #{r 5115}#
+ #{w 5116}#
+ #{s 5117}#
+ #{mod 5118}#
+ #{build-let 2725}#
+ #{id 5143}#
+ #{val 5144}#
+ (cons #{e1 5145}# #{e2 5146}#)))
+ #{tmp 5120}#)
+ (let ((#{tmp 5176}#
+ ($sc-dispatch
+ #{e 5114}#
+ '(_ any #(each (any any)) any . each-any))))
+ (if (if #{tmp 5176}#
+ (@apply
+ (lambda (#{f 5180}#
+ #{id 5181}#
+ #{val 5182}#
+ #{e1 5183}#
+ #{e2 5184}#)
+ (if (if (symbol? #{f 5180}#)
+ #t
+ (if (if (vector? #{f 5180}#)
+ (if (= (vector-length #{f 5180}#) 4)
+ (eq? (vector-ref #{f 5180}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{f 5180}# 1))
+ #f))
+ (and-map #{id? 2743}# #{id 5181}#)
+ #f))
+ #{tmp 5176}#)
+ #f)
+ (@apply
+ (lambda (#{f 5226}#
+ #{id 5227}#
+ #{val 5228}#
+ #{e1 5229}#
+ #{e2 5230}#)
+ (#{expand-let 5113}#
+ #{e 5114}#
+ #{r 5115}#
+ #{w 5116}#
+ #{s 5117}#
+ #{mod 5118}#
+ #{build-named-let 2726}#
+ (cons #{f 5226}# #{id 5227}#)
+ #{val 5228}#
+ (cons #{e1 5229}# #{e2 5230}#)))
+ #{tmp 5176}#)
+ (syntax-violation
+ 'let
+ "bad let"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 5114}#) #{s 5117}# #f)
+ (set-source-properties! #{e 5114}# #{s 5117}#))
+ #{e 5114}#)
+ #{w 5116}#
+ #{mod 5118}#)))))))))
+ (#{global-extend 2741}#
+ 'core
+ 'letrec
+ (lambda (#{e 5766}#
+ #{r 5767}#
+ #{w 5768}#
+ #{s 5769}#
+ #{mod 5770}#)
+ (let ((#{tmp 5772}#
+ ($sc-dispatch
+ #{e 5766}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 5772}#
+ (@apply
+ (lambda (#{id 5776}#
+ #{val 5777}#
+ #{e1 5778}#
+ #{e2 5779}#)
+ (and-map #{id? 2743}# #{id 5776}#))
+ #{tmp 5772}#)
+ #f)
+ (@apply
+ (lambda (#{id 5795}#
+ #{val 5796}#
+ #{e1 5797}#
+ #{e2 5798}#)
+ (if (not (#{valid-bound-ids? 2768}# #{id 5795}#))
+ (syntax-violation
+ 'letrec
+ "duplicate bound variable"
+ #{e 5766}#)
+ (let ((#{labels 5888}#
+ (#{gen-labels 2746}# #{id 5795}#))
+ (#{new-vars 5889}#
+ (map #{gen-var 2792}# #{id 5795}#)))
+ (let ((#{w 5890}#
+ (#{make-binding-wrap 2757}#
+ #{id 5795}#
+ #{labels 5888}#
+ #{w 5768}#))
+ (#{r 5891}#
+ (#{extend-var-env 2738}#
+ #{labels 5888}#
+ #{new-vars 5889}#
+ #{r 5767}#)))
+ (#{build-letrec 2727}#
+ #{s 5769}#
+ #f
+ (map syntax->datum #{id 5795}#)
+ #{new-vars 5889}#
+ (map (lambda (#{x 5972}#)
+ (#{expand 2778}#
+ #{x 5972}#
+ #{r 5891}#
+ #{w 5890}#
+ #{mod 5770}#))
+ #{val 5796}#)
+ (#{expand-body 2782}#
+ (cons #{e1 5797}# #{e2 5798}#)
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 5766}#) #{s 5769}# #f)
+ (set-source-properties!
+ #{e 5766}#
+ #{s 5769}#))
+ #{e 5766}#)
+ #{w 5890}#
+ #{mod 5770}#)
+ #{r 5891}#
+ #{w 5890}#
+ #{mod 5770}#))))))
+ #{tmp 5772}#)
+ (syntax-violation
+ 'letrec
+ "bad letrec"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 5766}#) #{s 5769}# #f)
+ (set-source-properties! #{e 5766}# #{s 5769}#))
+ #{e 5766}#)
+ #{w 5768}#
+ #{mod 5770}#))))))
+ (#{global-extend 2741}#
+ 'core
+ 'letrec*
+ (lambda (#{e 6359}#
+ #{r 6360}#
+ #{w 6361}#
+ #{s 6362}#
+ #{mod 6363}#)
+ (let ((#{tmp 6365}#
+ ($sc-dispatch
+ #{e 6359}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 6365}#
+ (@apply
+ (lambda (#{id 6369}#
+ #{val 6370}#
+ #{e1 6371}#
+ #{e2 6372}#)
+ (and-map #{id? 2743}# #{id 6369}#))
+ #{tmp 6365}#)
+ #f)
+ (@apply
+ (lambda (#{id 6388}#
+ #{val 6389}#
+ #{e1 6390}#
+ #{e2 6391}#)
+ (if (not (#{valid-bound-ids? 2768}# #{id 6388}#))
+ (syntax-violation
+ 'letrec*
+ "duplicate bound variable"
+ #{e 6359}#)
+ (let ((#{labels 6481}#
+ (#{gen-labels 2746}# #{id 6388}#))
+ (#{new-vars 6482}#
+ (map #{gen-var 2792}# #{id 6388}#)))
+ (let ((#{w 6483}#
+ (#{make-binding-wrap 2757}#
+ #{id 6388}#
+ #{labels 6481}#
+ #{w 6361}#))
+ (#{r 6484}#
+ (#{extend-var-env 2738}#
+ #{labels 6481}#
+ #{new-vars 6482}#
+ #{r 6360}#)))
+ (#{build-letrec 2727}#
+ #{s 6362}#
+ #t
+ (map syntax->datum #{id 6388}#)
+ #{new-vars 6482}#
+ (map (lambda (#{x 6565}#)
+ (#{expand 2778}#
+ #{x 6565}#
+ #{r 6484}#
+ #{w 6483}#
+ #{mod 6363}#))
+ #{val 6389}#)
+ (#{expand-body 2782}#
+ (cons #{e1 6390}# #{e2 6391}#)
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 6359}#) #{s 6362}# #f)
+ (set-source-properties!
+ #{e 6359}#
+ #{s 6362}#))
+ #{e 6359}#)
+ #{w 6483}#
+ #{mod 6363}#)
+ #{r 6484}#
+ #{w 6483}#
+ #{mod 6363}#))))))
+ #{tmp 6365}#)
+ (syntax-violation
+ 'letrec*
+ "bad letrec*"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 6359}#) #{s 6362}# #f)
+ (set-source-properties! #{e 6359}# #{s 6362}#))
+ #{e 6359}#)
+ #{w 6361}#
+ #{mod 6363}#))))))
+ (#{global-extend 2741}#
+ 'core
+ 'set!
+ (lambda (#{e 6991}#
+ #{r 6992}#
+ #{w 6993}#
+ #{s 6994}#
+ #{mod 6995}#)
+ (let ((#{tmp 6997}#
+ ($sc-dispatch #{e 6991}# '(_ any any))))
+ (if (if #{tmp 6997}#
+ (@apply
+ (lambda (#{id 7001}# #{val 7002}#)
+ (if (symbol? #{id 7001}#)
+ #t
+ (if (if (vector? #{id 7001}#)
+ (if (= (vector-length #{id 7001}#) 4)
+ (eq? (vector-ref #{id 7001}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{id 7001}# 1))
+ #f)))
+ #{tmp 6997}#)
+ #f)
+ (@apply
+ (lambda (#{id 7029}# #{val 7030}#)
+ (let ((#{n 7031}#
+ (#{id-var-name 2762}# #{id 7029}# #{w 6993}#))
+ (#{id-mod 7032}#
+ (if (if (vector? #{id 7029}#)
+ (if (= (vector-length #{id 7029}#) 4)
+ (eq? (vector-ref #{id 7029}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 7029}# 3)
+ #{mod 6995}#)))
+ (let ((#{b 7033}#
+ (let ((#{t 7074}# (assq #{n 7031}# #{r 6992}#)))
+ (if #{t 7074}#
+ (cdr #{t 7074}#)
+ (if (symbol? #{n 7031}#)
+ (let ((#{t 7079}#
+ (#{get-global-definition-hook 2706}#
+ #{n 7031}#
+ #{id-mod 7032}#)))
+ (if #{t 7079}# #{t 7079}# '(global)))
+ '(displaced-lexical))))))
+ (let ((#{atom-key 7034}# (car #{b 7033}#)))
+ (if (eqv? #{atom-key 7034}# 'lexical)
+ (#{build-lexical-assignment 2714}#
+ #{s 6994}#
+ (syntax->datum #{id 7029}#)
+ (cdr #{b 7033}#)
+ (#{expand 2778}#
+ #{val 7030}#
+ #{r 6992}#
+ #{w 6993}#
+ #{mod 6995}#))
+ (if (eqv? #{atom-key 7034}# 'global)
+ (#{build-global-assignment 2717}#
+ #{s 6994}#
+ #{n 7031}#
+ (#{expand 2778}#
+ #{val 7030}#
+ #{r 6992}#
+ #{w 6993}#
+ #{mod 6995}#)
+ #{id-mod 7032}#)
+ (if (eqv? #{atom-key 7034}# 'macro)
+ (let ((#{p 7393}# (cdr #{b 7033}#)))
+ (if (procedure-property
+ #{p 7393}#
+ 'variable-transformer)
+ (#{expand 2778}#
+ (#{expand-macro 2781}#
+ #{p 7393}#
+ #{e 6991}#
+ #{r 6992}#
+ #{w 6993}#
+ #{s 6994}#
+ #f
+ #{mod 6995}#)
+ #{r 6992}#
+ '(())
+ #{mod 6995}#)
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (#{wrap 2771}#
+ #{e 6991}#
+ #{w 6993}#
+ #{mod 6995}#)
+ (#{wrap 2771}#
+ #{id 7029}#
+ #{w 6993}#
+ #{id-mod 7032}#))))
+ (if (eqv? #{atom-key 7034}# 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (#{wrap 2771}#
+ #{id 7029}#
+ #{w 6993}#
+ #{mod 6995}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 6991}#) #{s 6994}# #f)
+ (set-source-properties!
+ #{e 6991}#
+ #{s 6994}#))
+ #{e 6991}#)
+ #{w 6993}#
+ #{mod 6995}#))))))))))
+ #{tmp 6997}#)
+ (let ((#{tmp 7488}#
+ ($sc-dispatch
+ #{e 6991}#
+ '(_ (any . each-any) any))))
+ (if #{tmp 7488}#
+ (@apply
+ (lambda (#{head 7492}# #{tail 7493}# #{val 7494}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{head 7492}#
+ #{r 6992}#
+ '(())
+ #f
+ #f
+ #{mod 6995}#
+ #t))
+ (lambda (#{type 7497}#
+ #{value 7498}#
+ #{ee 7499}#
+ #{ww 7500}#
+ #{ss 7501}#
+ #{modmod 7502}#)
+ (if (eqv? #{type 7497}# 'module-ref)
+ (let ((#{val 7506}#
+ (#{expand 2778}#
+ #{val 7494}#
+ #{r 6992}#
+ #{w 6993}#
+ #{mod 6995}#)))
+ (call-with-values
+ (lambda ()
+ (#{value 7498}#
+ (cons #{head 7492}# #{tail 7493}#)
+ #{r 6992}#
+ #{w 6993}#))
+ (lambda (#{e 7507}#
+ #{r 7508}#
+ #{w 7509}#
+ #{s* 7510}#
+ #{mod 7511}#)
+ (let ((#{tmp 7513}# (list #{e 7507}#)))
+ (if (@apply
+ (lambda (#{e 7515}#)
+ (if (symbol? #{e 7515}#)
+ #t
+ (if (if (vector? #{e 7515}#)
+ (if (= (vector-length
+ #{e 7515}#)
+ 4)
+ (eq? (vector-ref
+ #{e 7515}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{e 7515}# 1))
+ #f)))
+ #{tmp 7513}#)
+ (@apply
+ (lambda (#{e 7545}#)
+ (#{build-global-assignment 2717}#
+ #{s 6994}#
+ (syntax->datum #{e 7545}#)
+ #{val 7506}#
+ #{mod 7511}#))
+ #{tmp 7513}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 7507}#))))))
+ (#{build-application 2710}#
+ #{s 6994}#
+ (let ((#{e 7770}#
+ (list '#(syntax-object
+ setter
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(type value ee ww ss modmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("13b"
+ "13c"
+ "13d"
+ "13e"
+ "13f"
+ "13g"))
+ #(ribcage
+ #(head tail val)
+ #((top) (top) (top))
+ #("138" "139" "13a"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w s mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("12u"
+ "12v"
+ "12w"
+ "12x"
+ "12y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ #{head 7492}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{e 7770}#
+ #{r 6992}#
+ #{w 6993}#
+ (#{source-annotation 2736}# #{e 7770}#)
+ #f
+ #{mod 6995}#
+ #f))
+ (lambda (#{type 7777}#
+ #{value 7778}#
+ #{e 7779}#
+ #{w 7780}#
+ #{s 7781}#
+ #{mod 7782}#)
+ (#{expand-expr 2779}#
+ #{type 7777}#
+ #{value 7778}#
+ #{e 7779}#
+ #{r 6992}#
+ #{w 7780}#
+ #{s 7781}#
+ #{mod 7782}#))))
+ (map (lambda (#{e 7786}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 2777}#
+ #{e 7786}#
+ #{r 6992}#
+ #{w 6993}#
+ (#{source-annotation 2736}#
+ #{e 7786}#)
+ #f
+ #{mod 6995}#
+ #f))
+ (lambda (#{type 7801}#
+ #{value 7802}#
+ #{e 7803}#
+ #{w 7804}#
+ #{s 7805}#
+ #{mod 7806}#)
+ (#{expand-expr 2779}#
+ #{type 7801}#
+ #{value 7802}#
+ #{e 7803}#
+ #{r 6992}#
+ #{w 7804}#
+ #{s 7805}#
+ #{mod 7806}#))))
+ (append
+ #{tail 7493}#
+ (list #{val 7494}#))))))))
+ #{tmp 7488}#)
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 6991}#) #{s 6994}# #f)
+ (set-source-properties! #{e 6991}# #{s 6994}#))
+ #{e 6991}#)
+ #{w 6993}#
+ #{mod 6995}#))))))))
+ (module-define!
+ (current-module)
+ '@
+ (make-syntax-transformer
+ '@
+ 'module-ref
+ (lambda (#{e 7849}# #{r 7850}# #{w 7851}#)
+ (let ((#{tmp 7853}#
+ ($sc-dispatch #{e 7849}# '(_ each-any any))))
+ (if (if #{tmp 7853}#
+ (@apply
+ (lambda (#{mod 7856}# #{id 7857}#)
+ (if (and-map #{id? 2743}# #{mod 7856}#)
+ (if (symbol? #{id 7857}#)
+ #t
+ (if (if (vector? #{id 7857}#)
+ (if (= (vector-length #{id 7857}#) 4)
+ (eq? (vector-ref #{id 7857}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{id 7857}# 1))
+ #f))
+ #f))
+ #{tmp 7853}#)
+ #f)
+ (@apply
+ (lambda (#{mod 7897}# #{id 7898}#)
+ (values
+ (syntax->datum #{id 7898}#)
+ #{r 7850}#
+ #{w 7851}#
+ #f
+ (syntax->datum
+ (cons '#(syntax-object
+ public
+ ((top)
+ #(ribcage
+ #(mod id)
+ #((top) (top))
+ #("13w" "13x"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("13r" "13s" "13t"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ #{mod 7897}#))))
+ #{tmp 7853}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 7849}#))))))
+ (#{global-extend 2741}#
+ 'module-ref
+ '@@
+ (lambda (#{e 7990}# #{r 7991}# #{w 7992}#)
+ (letrec*
+ ((#{remodulate 7993}#
+ (lambda (#{x 8028}# #{mod 8029}#)
+ (if (pair? #{x 8028}#)
+ (cons (#{remodulate 7993}#
+ (car #{x 8028}#)
+ #{mod 8029}#)
+ (#{remodulate 7993}#
+ (cdr #{x 8028}#)
+ #{mod 8029}#))
+ (if (if (vector? #{x 8028}#)
+ (if (= (vector-length #{x 8028}#) 4)
+ (eq? (vector-ref #{x 8028}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 8043}#
+ (#{remodulate 7993}#
+ (vector-ref #{x 8028}# 1)
+ #{mod 8029}#))
+ (#{wrap 8044}# (vector-ref #{x 8028}# 2)))
+ (vector
+ 'syntax-object
+ #{expression 8043}#
+ #{wrap 8044}#
+ #{mod 8029}#))
+ (if (vector? #{x 8028}#)
+ (let ((#{n 8052}# (vector-length #{x 8028}#)))
+ (let ((#{v 8053}# (make-vector #{n 8052}#)))
+ (letrec*
+ ((#{loop 8054}#
+ (lambda (#{i 8101}#)
+ (if (= #{i 8101}# #{n 8052}#)
+ #{v 8053}#
+ (begin
+ (vector-set!
+ #{v 8053}#
+ #{i 8101}#
+ (#{remodulate 7993}#
+ (vector-ref #{x 8028}# #{i 8101}#)
+ #{mod 8029}#))
+ (#{loop 8054}# (#{1+}# #{i 8101}#)))))))
+ (#{loop 8054}# 0))))
+ #{x 8028}#))))))
+ (let ((#{tmp 7995}#
+ ($sc-dispatch #{e 7990}# '(_ each-any any))))
+ (if (if #{tmp 7995}#
+ (@apply
+ (lambda (#{mod 7999}# #{exp 8000}#)
+ (and-map #{id? 2743}# #{mod 7999}#))
+ #{tmp 7995}#)
+ #f)
+ (@apply
+ (lambda (#{mod 8016}# #{exp 8017}#)
+ (let ((#{mod 8018}#
+ (syntax->datum
+ (cons '#(syntax-object
+ private
+ ((top)
+ #(ribcage
+ #(mod exp)
+ #((top) (top))
+ #("14a" "14b"))
+ #(ribcage (remodulate) ((top)) ("141"))
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("13y" "13z" "140"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ #{mod 8016}#))))
+ (values
+ (#{remodulate 7993}# #{exp 8017}# #{mod 8018}#)
+ #{r 7991}#
+ #{w 7992}#
+ (#{source-annotation 2736}# #{exp 8017}#)
+ #{mod 8018}#)))
+ #{tmp 7995}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 7990}#))))))
+ (#{global-extend 2741}#
+ 'core
+ 'if
+ (lambda (#{e 8202}#
+ #{r 8203}#
+ #{w 8204}#
+ #{s 8205}#
+ #{mod 8206}#)
+ (let ((#{tmp 8208}#
+ ($sc-dispatch #{e 8202}# '(_ any any))))
+ (if #{tmp 8208}#
+ (@apply
+ (lambda (#{test 8212}# #{then 8213}#)
+ (#{build-conditional 2711}#
+ #{s 8205}#
+ (#{expand 2778}#
+ #{test 8212}#
+ #{r 8203}#
+ #{w 8204}#
+ #{mod 8206}#)
+ (#{expand 2778}#
+ #{then 8213}#
+ #{r 8203}#
+ #{w 8204}#
+ #{mod 8206}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f)))
+ #{tmp 8208}#)
+ (let ((#{tmp 8438}#
+ ($sc-dispatch #{e 8202}# '(_ any any any))))
+ (if #{tmp 8438}#
+ (@apply
+ (lambda (#{test 8442}# #{then 8443}# #{else 8444}#)
+ (#{build-conditional 2711}#
+ #{s 8205}#
+ (#{expand 2778}#
+ #{test 8442}#
+ #{r 8203}#
+ #{w 8204}#
+ #{mod 8206}#)
+ (#{expand 2778}#
+ #{then 8443}#
+ #{r 8203}#
+ #{w 8204}#
+ #{mod 8206}#)
+ (#{expand 2778}#
+ #{else 8444}#
+ #{r 8203}#
+ #{w 8204}#
+ #{mod 8206}#)))
+ #{tmp 8438}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 8202}#)))))))
+ (#{global-extend 2741}#
+ 'core
+ 'with-fluids
+ (lambda (#{e 8843}#
+ #{r 8844}#
+ #{w 8845}#
+ #{s 8846}#
+ #{mod 8847}#)
+ (let ((#{tmp 8849}#
+ ($sc-dispatch
+ #{e 8843}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 8849}#
+ (@apply
+ (lambda (#{fluid 8853}#
+ #{val 8854}#
+ #{b 8855}#
+ #{b* 8856}#)
+ (#{build-dynlet 2712}#
+ #{s 8846}#
+ (map (lambda (#{x 8937}#)
+ (#{expand 2778}#
+ #{x 8937}#
+ #{r 8844}#
+ #{w 8845}#
+ #{mod 8847}#))
+ #{fluid 8853}#)
+ (map (lambda (#{x 9007}#)
+ (#{expand 2778}#
+ #{x 9007}#
+ #{r 8844}#
+ #{w 8845}#
+ #{mod 8847}#))
+ #{val 8854}#)
+ (#{expand-body 2782}#
+ (cons #{b 8855}# #{b* 8856}#)
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 8843}#) #{s 8846}# #f)
+ (set-source-properties! #{e 8843}# #{s 8846}#))
+ #{e 8843}#)
+ #{w 8845}#
+ #{mod 8847}#)
+ #{r 8844}#
+ #{w 8845}#
+ #{mod 8847}#)))
+ #{tmp 8849}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 8843}#)))))
+ (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 2741}#
+ 'core
+ 'syntax-case
+ (letrec*
+ ((#{convert-pattern 9375}#
+ (lambda (#{pattern 10970}# #{keys 10971}#)
+ (letrec*
+ ((#{cvt* 10972}#
+ (lambda (#{p* 11596}# #{n 11597}# #{ids 11598}#)
+ (if (not (pair? #{p* 11596}#))
+ (#{cvt 10974}#
+ #{p* 11596}#
+ #{n 11597}#
+ #{ids 11598}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 10972}#
+ (cdr #{p* 11596}#)
+ #{n 11597}#
+ #{ids 11598}#))
+ (lambda (#{y 11601}# #{ids 11602}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 10974}#
+ (car #{p* 11596}#)
+ #{n 11597}#
+ #{ids 11602}#))
+ (lambda (#{x 11605}# #{ids 11606}#)
+ (values
+ (cons #{x 11605}# #{y 11601}#)
+ #{ids 11606}#))))))))
+ (#{v-reverse 10973}#
+ (lambda (#{x 11607}#)
+ (letrec*
+ ((#{loop 11608}#
+ (lambda (#{r 11688}# #{x 11689}#)
+ (if (not (pair? #{x 11689}#))
+ (values #{r 11688}# #{x 11689}#)
+ (#{loop 11608}#
+ (cons (car #{x 11689}#) #{r 11688}#)
+ (cdr #{x 11689}#))))))
+ (#{loop 11608}# '() #{x 11607}#))))
+ (#{cvt 10974}#
+ (lambda (#{p 10977}# #{n 10978}# #{ids 10979}#)
+ (if (if (symbol? #{p 10977}#)
+ #t
+ (if (if (vector? #{p 10977}#)
+ (if (= (vector-length #{p 10977}#) 4)
+ (eq? (vector-ref #{p 10977}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{p 10977}# 1))
+ #f))
+ (if (#{bound-id-member? 2770}#
+ #{p 10977}#
+ #{keys 10971}#)
+ (values
+ (vector 'free-id #{p 10977}#)
+ #{ids 10979}#)
+ (if (if (eq? (if (if (vector? #{p 10977}#)
+ (if (= (vector-length #{p 10977}#)
+ 4)
+ (eq? (vector-ref #{p 10977}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{p 10977}# 1)
+ #{p 10977}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("15i" "15j" "15k"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("156" "155" "154"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("152" "153"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("151"
+ "150"
+ "14z"
+ "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '_
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("15i" "15j" "15k"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("156" "155" "154"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("152" "153"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("151" "150" "14z" "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 2762}# #{p 10977}# '(()))
+ (#{id-var-name 2762}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("15i" "15j" "15k"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("156" "155" "154"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("152" "153"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("151" "150" "14z" "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ '(())))
+ #f)
+ (values '_ #{ids 10979}#)
+ (values
+ 'any
+ (cons (cons #{p 10977}# #{n 10978}#)
+ #{ids 10979}#))))
+ (let ((#{tmp 11299}#
+ ($sc-dispatch #{p 10977}# '(any any))))
+ (if (if #{tmp 11299}#
+ (@apply
+ (lambda (#{x 11303}# #{dots 11304}#)
+ (if (if (if (vector? #{dots 11304}#)
+ (if (= (vector-length
+ #{dots 11304}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 11304}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{dots 11304}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{dots 11304}#)
+ (if (= (vector-length
+ #{dots 11304}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 11304}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{dots 11304}# 1)
+ #{dots 11304}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8"
+ "7"
+ "6")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 2762}#
+ #{dots 11304}#
+ '(()))
+ (#{id-var-name 2762}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #{tmp 11299}#)
+ #f)
+ (@apply
+ (lambda (#{x 11404}# #{dots 11405}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 10974}#
+ #{x 11404}#
+ (#{1+}# #{n 10978}#)
+ #{ids 10979}#))
+ (lambda (#{p 11406}# #{ids 11407}#)
+ (values
+ (if (eq? #{p 11406}# 'any)
+ 'each-any
+ (vector 'each #{p 11406}#))
+ #{ids 11407}#))))
+ #{tmp 11299}#)
+ (let ((#{tmp 11408}#
+ ($sc-dispatch
+ #{p 10977}#
+ '(any any . any))))
+ (if (if #{tmp 11408}#
+ (@apply
+ (lambda (#{x 11412}#
+ #{dots 11413}#
+ #{ys 11414}#)
+ (if (if (if (vector? #{dots 11413}#)
+ (if (= (vector-length
+ #{dots 11413}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 11413}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{dots 11413}# 1))
+ #f)
+ (if (eq? (if (if (vector?
+ #{dots 11413}#)
+ (if (= (vector-length
+ #{dots
11413}#)
+ 4)
+ (eq? (vector-ref
+ #{dots
11413}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{dots 11413}#
+ 1)
+ #{dots 11413}#)
+ (if (if (= (vector-length
+
'#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8"
+ "7"
+ "6")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 2762}#
+ #{dots 11413}#
+ '(()))
+ (#{id-var-name 2762}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #{tmp 11408}#)
+ #f)
+ (@apply
+ (lambda (#{x 11514}#
+ #{dots 11515}#
+ #{ys 11516}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 10972}#
+ #{ys 11516}#
+ #{n 10978}#
+ #{ids 10979}#))
+ (lambda (#{ys 11519}# #{ids 11520}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 10974}#
+ #{x 11514}#
+ (#{1+}# #{n 10978}#)
+ #{ids 11520}#))
+ (lambda (#{x 11521}# #{ids 11522}#)
+ (call-with-values
+ (lambda ()
+ (#{v-reverse 10973}#
+ #{ys 11519}#))
+ (lambda (#{ys 11555}#
+ #{e 11556}#)
+ (values
+ (vector
+ 'each+
+ #{x 11521}#
+ #{ys 11555}#
+ #{e 11556}#)
+ #{ids 11522}#))))))))
+ #{tmp 11408}#)
+ (let ((#{tmp 11557}#
+ ($sc-dispatch
+ #{p 10977}#
+ '(any . any))))
+ (if #{tmp 11557}#
+ (@apply
+ (lambda (#{x 11561}# #{y 11562}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 10974}#
+ #{y 11562}#
+ #{n 10978}#
+ #{ids 10979}#))
+ (lambda (#{y 11563}# #{ids 11564}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 10974}#
+ #{x 11561}#
+ #{n 10978}#
+ #{ids 11564}#))
+ (lambda (#{x 11565}#
+ #{ids 11566}#)
+ (values
+ (cons #{x 11565}#
+ #{y 11563}#)
+ #{ids 11566}#))))))
+ #{tmp 11557}#)
+ (let ((#{tmp 11567}#
+ ($sc-dispatch #{p 10977}# '())))
+ (if #{tmp 11567}#
+ (@apply
+ (lambda ()
+ (values '() #{ids 10979}#))
+ #{tmp 11567}#)
+ (let ((#{tmp 11571}#
+ ($sc-dispatch
+ #{p 10977}#
+ '#(vector each-any))))
+ (if #{tmp 11571}#
+ (@apply
+ (lambda (#{x 11575}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 10974}#
+ #{x 11575}#
+ #{n 10978}#
+ #{ids 10979}#))
+ (lambda (#{p 11576}#
+ #{ids 11577}#)
+ (values
+ (vector
+ 'vector
+ #{p 11576}#)
+ #{ids 11577}#))))
+ #{tmp 11571}#)
+ (values
+ (vector
+ 'atom
+ (#{strip 2791}#
+ #{p 10977}#
+ '(())))
+ #{ids 10979}#)))))))))))))))
+ (#{cvt 10974}# #{pattern 10970}# 0 '()))))
+ (#{build-dispatch-call 9376}#
+ (lambda (#{pvars 11690}#
+ #{exp 11691}#
+ #{y 11692}#
+ #{r 11693}#
+ #{mod 11694}#)
+ (let ((#{ids 11695}# (map car #{pvars 11690}#)))
+ (begin
+ (map cdr #{pvars 11690}#)
+ (let ((#{labels 11697}#
+ (#{gen-labels 2746}# #{ids 11695}#))
+ (#{new-vars 11698}#
+ (map #{gen-var 2792}# #{ids 11695}#)))
+ (#{build-application 2710}#
+ #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 2719}#
+ #f
+ (map syntax->datum #{ids 11695}#)
+ #f
+ #{new-vars 11698}#
+ '()
+ (#{expand 2778}#
+ #{exp 11691}#
+ (#{extend-env 2737}#
+ #{labels 11697}#
+ (map (lambda (#{var 12017}# #{level 12018}#)
+ (cons 'syntax
+ (cons #{var 12017}#
+ #{level 12018}#)))
+ #{new-vars 11698}#
+ (map cdr #{pvars 11690}#))
+ #{r 11693}#)
+ (#{make-binding-wrap 2757}#
+ #{ids 11695}#
+ #{labels 11697}#
+ '(()))
+ #{mod 11694}#))
+ #{y 11692}#)))))))
+ (#{gen-clause 9377}#
+ (lambda (#{x 10342}#
+ #{keys 10343}#
+ #{clauses 10344}#
+ #{r 10345}#
+ #{pat 10346}#
+ #{fender 10347}#
+ #{exp 10348}#
+ #{mod 10349}#)
+ (call-with-values
+ (lambda ()
+ (#{convert-pattern 9375}#
+ #{pat 10346}#
+ #{keys 10343}#))
+ (lambda (#{p 10504}# #{pvars 10505}#)
+ (if (not (#{distinct-bound-ids? 2769}#
+ (map car #{pvars 10505}#)))
+ (syntax-violation
+ 'syntax-case
+ "duplicate pattern variable"
+ #{pat 10346}#)
+ (if (not (and-map
+ (lambda (#{x 10621}#)
+ (not (let ((#{x 10625}# (car #{x 10621}#)))
+ (if (if (if (vector? #{x 10625}#)
+ (if (= (vector-length
+ #{x 10625}#)
+ 4)
+ (eq? (vector-ref
+ #{x 10625}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{x 10625}# 1))
+ #f)
+ (if (eq? (if (if (vector?
+ #{x 10625}#)
+ (if (= (vector-length
+ #{x 10625}#)
+ 4)
+ (eq? (vector-ref
+ #{x 10625}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{x 10625}#
+ 1)
+ #{x 10625}#)
+ (if (if (= (vector-length
+
'#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8"
+ "7"
+ "6")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 2762}#
+ #{x 10625}#
+ '(()))
+ (#{id-var-name 2762}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))))
+ #{pvars 10505}#))
+ (syntax-violation
+ 'syntax-case
+ "misplaced ellipsis"
+ #{pat 10346}#)
+ (let ((#{y 10701}#
+ (gensym
+ (string-append (symbol->string 'tmp) " "))))
+ (#{build-application 2710}#
+ #f
+ (let ((#{req 10844}# (list 'tmp))
+ (#{vars 10846}# (list #{y 10701}#))
+ (#{exp 10848}#
+ (let ((#{y 10865}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ 'tmp
+ #{y 10701}#)))
+ (let ((#{test-exp 10869}#
+ (let ((#{tmp 10878}#
+ ($sc-dispatch
+ #{fender 10347}#
+ '#(atom #t))))
+ (if #{tmp 10878}#
+ (@apply
+ (lambda () #{y 10865}#)
+ #{tmp 10878}#)
+ (let ((#{then-exp 10896}#
+
(#{build-dispatch-call 9376}#
+ #{pvars 10505}#
+ #{fender 10347}#
+ #{y 10865}#
+ #{r 10345}#
+ #{mod 10349}#))
+ (#{else-exp 10897}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ #f)))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 10)
+ #f
+ #{y 10865}#
+ #{then-exp 10896}#
+ #{else-exp 10897}#)))))
+ (#{then-exp 10870}#
+ (#{build-dispatch-call 9376}#
+ #{pvars 10505}#
+ #{exp 10348}#
+ #{y 10865}#
+ #{r 10345}#
+ #{mod 10349}#))
+ (#{else-exp 10871}#
+ (#{gen-syntax-case 9378}#
+ #{x 10342}#
+ #{keys 10343}#
+ #{clauses 10344}#
+ #{r 10345}#
+ #{mod 10349}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ #f
+ #{test-exp 10869}#
+ #{then-exp 10870}#
+ #{else-exp 10871}#)))))
+ (let ((#{body 10853}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ #{req 10844}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 10846}#
+ #{exp 10848}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ #{body 10853}#)))
+ (list (if (eq? #{p 10504}# 'any)
+ (let ((#{fun-exp 10919}#
+ (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 10920}#
+ (list #{x 10342}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 10919}#
+ #{arg-exps 10920}#))
+ (let ((#{fun-exp 10943}#
+ (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 10944}#
+ (list #{x 10342}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ #{p 10504}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 10943}#
+ #{arg-exps 10944}#))))))))))))
+ (#{gen-syntax-case 9378}#
+ (lambda (#{x 9777}#
+ #{keys 9778}#
+ #{clauses 9779}#
+ #{r 9780}#
+ #{mod 9781}#)
+ (if (null? #{clauses 9779}#)
+ (let ((#{fun-exp 9786}#
+ (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 9787}#
+ (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 9777}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 9786}#
+ #{arg-exps 9787}#))
+ (let ((#{tmp 9820}# (car #{clauses 9779}#)))
+ (let ((#{tmp 9821}#
+ ($sc-dispatch #{tmp 9820}# '(any any))))
+ (if #{tmp 9821}#
+ (@apply
+ (lambda (#{pat 9823}# #{exp 9824}#)
+ (if (if (if (symbol? #{pat 9823}#)
+ #t
+ (if (if (vector? #{pat 9823}#)
+ (if (= (vector-length #{pat 9823}#)
+ 4)
+ (eq? (vector-ref #{pat 9823}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{pat 9823}# 1))
+ #f))
+ (and-map
+ (lambda (#{x 9851}#)
+ (not (if (eq? (if (if (vector?
+ #{pat 9823}#)
+ (if (= (vector-length
+ #{pat 9823}#)
+ 4)
+ (eq? (vector-ref
+ #{pat 9823}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{pat 9823}#
+ 1)
+ #{pat 9823}#)
+ (if (if (vector? #{x 9851}#)
+ (if (= (vector-length
+ #{x 9851}#)
+ 4)
+ (eq? (vector-ref
+ #{x 9851}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 9851}# 1)
+ #{x 9851}#))
+ (eq? (#{id-var-name 2762}#
+ #{pat 9823}#
+ '(()))
+ (#{id-var-name 2762}#
+ #{x 9851}#
+ '(())))
+ #f)))
+ (cons '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("177" "178"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("172"
+ "173"
+ "174"
+ "175"
+ "176"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("151" "150" "14z" "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ #{keys 9778}#))
#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)
+ (if (if (eq? (if (if (= (vector-length
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("177" "178"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("172"
+ "173"
+ "174"
+ "175"
+ "176"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+
build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("151"
+ "150"
+ "14z"
+ "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8" "7" "6")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ 'pad
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("177" "178"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("172"
+ "173"
+ "174"
+ "175"
+ "176"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("151" "150" "14z" "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile)))
+ (if (if (= (vector-length
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("177" "178"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("172"
+ "173"
+ "174"
+ "175"
+ "176"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+
build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("151"
+ "150"
+ "14z"
+ "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8" "7" "6")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '_
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("177" "178"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("172"
+ "173"
+ "174"
+ "175"
+ "176"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("151" "150" "14z" "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 2762}#
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("177" "178"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("172"
+ "173"
+ "174"
+ "175"
+ "176"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("151" "150" "14z" "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ '(()))
+ (#{id-var-name 2762}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("177" "178"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("172"
+ "173"
+ "174"
+ "175"
+ "176"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("151" "150" "14z" "14y"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ '(())))
+ #f)
+ (#{expand 2778}#
+ #{exp 9824}#
+ #{r 9780}#
+ '(())
+ #{mod 9781}#)
+ (let ((#{labels 10027}#
+ (list (#{gen-label 2745}#)))
+ (#{var 10028}#
+ (let ((#{id 10066}#
+ (if (if (vector? #{pat 9823}#)
+ (if (= (vector-length
+ #{pat 9823}#)
+ 4)
+ (eq? (vector-ref
+ #{pat 9823}#
+ 0)
+ 'syntax-object)
+ #f)
#f)
- #f)
- (vector-ref #{pat 12191}# 1)
- #{pat 12191}#)))
- (gensym
- (string-append
- (symbol->string #{id 12434}#)
- " ")))))
- (#{build-application 4280}#
- #f
- (#{build-simple-lambda 4289}#
+ (vector-ref #{pat 9823}# 1)
+ #{pat 9823}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 10066}#)
+ " ")))))
+ (#{build-application 2710}#
#f
- (list (syntax->datum #{pat 12191}#))
- #f
- (list #{var 12396}#)
- '()
- (#{expand 4345}#
- #{exp 12192}#
- (#{extend-env 4307}#
- #{labels 12395}#
- (list (cons 'syntax
- (cons #{var 12396}# 0)))
- #{r 12148}#)
- (#{make-binding-wrap 4327}#
- (list #{pat 12191}#)
- #{labels 12395}#
- '(()))
- #{mod 12149}#))
- (list #{x 12145}#))))
- (#{gen-clause 11745}#
- #{x 12145}#
- #{keys 12146}#
- (cdr #{clauses 12147}#)
- #{r 12148}#
- #{pat 12191}#
- #t
- #{exp 12192}#
- #{mod 12149}#)))
- #{tmp 12189}#)
- (let ((#{tmp 12704}#
- ($sc-dispatch #{tmp 12188}# '(any any any))))
- (if #{tmp 12704}#
- (@apply
- (lambda (#{pat 12706}#
- #{fender 12707}#
- #{exp 12708}#)
- (#{gen-clause 11745}#
- #{x 12145}#
- #{keys 12146}#
- (cdr #{clauses 12147}#)
- #{r 12148}#
- #{pat 12706}#
- #{fender 12707}#
- #{exp 12708}#
- #{mod 12149}#))
- #{tmp 12704}#)
- (syntax-violation
- 'syntax-case
- "invalid clause"
- (car #{clauses 12147}#)))))))))))
- (lambda (#{e 11747}#
- #{r 11748}#
- #{w 11749}#
- #{s 11750}#
- #{mod 11751}#)
- (let ((#{e 11752}#
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 11747}#) #{s 11750}# #f)
- (set-source-properties! #{e 11747}# #{s 11750}#))
- #{e 11747}#)
- #{w 11749}#
- #{mod 11751}#)))
- (let ((#{tmp 11754}#
- ($sc-dispatch
- #{e 11752}#
- '(_ any each-any . each-any))))
- (if #{tmp 11754}#
- (@apply
- (lambda (#{val 11779}# #{key 11780}# #{m 11781}#)
- (if (and-map
- (lambda (#{x 11782}#)
- (if (if (symbol? #{x 11782}#)
- #t
- (if (if (vector? #{x 11782}#)
- (if (= (vector-length #{x 11782}#) 4)
- (eq? (vector-ref #{x 11782}# 0)
- 'syntax-object)
+ (#{build-simple-lambda 2719}#
+ #f
+ (list (syntax->datum #{pat 9823}#))
+ #f
+ (list #{var 10028}#)
+ '()
+ (#{expand 2778}#
+ #{exp 9824}#
+ (#{extend-env 2737}#
+ #{labels 10027}#
+ (list (cons 'syntax
+ (cons #{var 10028}# 0)))
+ #{r 9780}#)
+ (#{make-binding-wrap 2757}#
+ (list #{pat 9823}#)
+ #{labels 10027}#
+ '(()))
+ #{mod 9781}#))
+ (list #{x 9777}#))))
+ (#{gen-clause 9377}#
+ #{x 9777}#
+ #{keys 9778}#
+ (cdr #{clauses 9779}#)
+ #{r 9780}#
+ #{pat 9823}#
+ #t
+ #{exp 9824}#
+ #{mod 9781}#)))
+ #{tmp 9821}#)
+ (let ((#{tmp 10334}#
+ ($sc-dispatch #{tmp 9820}# '(any any any))))
+ (if #{tmp 10334}#
+ (@apply
+ (lambda (#{pat 10336}#
+ #{fender 10337}#
+ #{exp 10338}#)
+ (#{gen-clause 9377}#
+ #{x 9777}#
+ #{keys 9778}#
+ (cdr #{clauses 9779}#)
+ #{r 9780}#
+ #{pat 10336}#
+ #{fender 10337}#
+ #{exp 10338}#
+ #{mod 9781}#))
+ #{tmp 10334}#)
+ (syntax-violation
+ 'syntax-case
+ "invalid clause"
+ (car #{clauses 9779}#)))))))))))
+ (lambda (#{e 9379}#
+ #{r 9380}#
+ #{w 9381}#
+ #{s 9382}#
+ #{mod 9383}#)
+ (let ((#{e 9384}#
+ (#{wrap 2771}#
+ (begin
+ (if (if (pair? #{e 9379}#) #{s 9382}# #f)
+ (set-source-properties! #{e 9379}# #{s 9382}#))
+ #{e 9379}#)
+ #{w 9381}#
+ #{mod 9383}#)))
+ (let ((#{tmp 9386}#
+ ($sc-dispatch
+ #{e 9384}#
+ '(_ any each-any . each-any))))
+ (if #{tmp 9386}#
+ (@apply
+ (lambda (#{val 9411}# #{key 9412}# #{m 9413}#)
+ (if (and-map
+ (lambda (#{x 9414}#)
+ (if (if (symbol? #{x 9414}#)
+ #t
+ (if (if (vector? #{x 9414}#)
+ (if (= (vector-length #{x 9414}#) 4)
+ (eq? (vector-ref #{x 9414}# 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 9414}# 1))
+ #f))
+ (not (if (if (if (vector? #{x 9414}#)
+ (if (= (vector-length
+ #{x 9414}#)
+ 4)
+ (eq? (vector-ref #{x 9414}# 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 9414}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{x 9414}#)
+ (if (= (vector-length
+ #{x 9414}#)
+ 4)
+ (eq? (vector-ref
+ #{x 9414}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 9414}# 1)
+ #{x 9414}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("8"
+ "7"
+ "6")))
+ (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))
+ #("of"))
+ #(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))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 2762}#
+ #{x 9414}#
+ '(()))
+ (#{id-var-name 2762}#
'#(syntax-object
...
((top)
@@ -20609,7 +21316,7 @@
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("of"))
#(ribcage
(lambda-var-list
gen-var
@@ -20639,6 +21346,9 @@
valid-bound-ids?
bound-id=?
free-id=?
+
with-transformer-environment
+ transformer-environment
+ resolve-identifier
id-var-name
same-marks?
join-marks
@@ -20798,1336 +21508,1016 @@
(top)
(top)
(top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{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)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("8" "7" "6")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #f))
+ #{key 9412}#)
+ (let ((#{x 9540}#
+ (gensym
+ (string-append (symbol->string 'tmp) " "))))
+ (#{build-application 2710}#
+ #{s 9382}#
+ (let ((#{req 9670}# (list 'tmp))
+ (#{vars 9672}# (list #{x 9540}#))
+ (#{exp 9674}#
+ (#{gen-syntax-case 9378}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ 'tmp
+ #{x 9540}#)
+ #{key 9412}#
+ #{m 9413}#
+ #{r 9380}#
+ #{mod 9383}#)))
+ (let ((#{body 9679}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ #{req 9670}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 9672}#
+ #{exp 9674}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ #{body 9679}#)))
+ (list (#{expand 2778}#
+ #{val 9411}#
+ #{r 9380}#
+ '(())
+ #{mod 9383}#))))
+ (syntax-violation
+ 'syntax-case
+ "invalid literals list"
+ #{e 9384}#)))
+ #{tmp 9386}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 9384}#)))))))
+ (set! macroexpand
+ (lambda*
+ (#{x 12087}#
+ #:optional
+ (#{m 12088}# 'e)
+ (#{esew 12089}# '(eval)))
+ (#{expand-top-sequence 2774}#
+ (list #{x 12087}#)
+ '()
+ '((top))
+ #f
+ #{m 12088}#
+ #{esew 12089}#
+ (cons 'hygiene (module-name (current-module))))))
+ (set! identifier?
+ (lambda (#{x 12092}#)
+ (if (if (vector? #{x 12092}#)
+ (if (= (vector-length #{x 12092}#) 4)
+ (eq? (vector-ref #{x 12092}# 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 12092}# 1))
+ #f)))
+ (set! datum->syntax
+ (lambda (#{id 12117}# #{datum 12118}#)
+ (let ((#{wrap 12123}# (vector-ref #{id 12117}# 2))
+ (#{module 12124}# (vector-ref #{id 12117}# 3)))
+ (vector
+ 'syntax-object
+ #{datum 12118}#
+ #{wrap 12123}#
+ #{module 12124}#))))
+ (set! syntax->datum
+ (lambda (#{x 12131}#)
+ (#{strip 2791}# #{x 12131}# '(()))))
+ (set! syntax-source
+ (lambda (#{x 12134}#)
+ (#{source-annotation 2736}# #{x 12134}#)))
+ (set! syntax-local-binding
+ (lambda (#{id 12287}#)
+ (begin
+ (if (not (if (if (vector? #{id 12287}#)
+ (if (= (vector-length #{id 12287}#) 4)
+ (eq? (vector-ref #{id 12287}# 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 12287}# 1))
+ #f))
+ (syntax-violation
+ 'syntax-local-value
+ "invalid argument"
+ #{id 12287}#))
+ ((fluid-ref #{transformer-environment 2764}#)
+ (lambda (#{e 12328}#
+ #{r 12329}#
+ #{w 12330}#
+ #{s 12331}#
+ #{rib 12332}#
+ #{mod 12333}#)
+ (call-with-values
+ (lambda ()
+ (let ((#{id 12336}# (vector-ref #{id 12287}# 1))
+ (#{w 12337}#
+ (let ((#{w 12348}# (vector-ref #{id 12287}# 2)))
+ (let ((#{ms 12349}# (car #{w 12348}#))
+ (#{s 12350}# (cdr #{w 12348}#)))
+ (if (if (pair? #{ms 12349}#)
+ (eq? (car #{ms 12349}#) #f)
+ #f)
+ (cons (cdr #{ms 12349}#)
+ (if #{rib 12332}#
+ (cons #{rib 12332}# (cdr #{s 12350}#))
+ (cdr #{s 12350}#)))
+ (cons #{ms 12349}#
+ (if #{rib 12332}#
+ (cons #{rib 12332}# #{s 12350}#)
+ #{s 12350}#))))))
+ (#{mod 12339}# (vector-ref #{id 12287}# 3)))
+ (let ((#{n 12342}#
+ (#{id-var-name 2762}# #{id 12336}# #{w 12337}#)))
+ (if (symbol? #{n 12342}#)
+ (let ((#{mod 12356}#
+ (if (if (vector? #{id 12336}#)
+ (if (= (vector-length #{id 12336}#) 4)
+ (eq? (vector-ref #{id 12336}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 12336}# 3)
+ #{mod 12339}#)))
+ (let ((#{b 12357}#
+ (let ((#{t 12358}#
+ (#{get-global-definition-hook 2706}#
+ #{n 12342}#
+ #{mod 12356}#)))
+ (if #{t 12358}# #{t 12358}# '(global)))))
+ (if (eq? (car #{b 12357}#) 'global)
+ (values 'global #{n 12342}# #{mod 12356}#)
+ (values
+ (car #{b 12357}#)
+ (cdr #{b 12357}#)
+ #{mod 12356}#))))
+ (if (string? #{n 12342}#)
+ (let ((#{mod 12384}#
+ (if (if (vector? #{id 12336}#)
+ (if (= (vector-length #{id 12336}#) 4)
+ (eq? (vector-ref #{id 12336}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 12336}# 3)
+ #{mod 12339}#)))
+ (let ((#{b 12385}#
+ (let ((#{t 12386}#
+ (assq-ref
+ #{r 12329}#
+ #{n 12342}#)))
+ (if #{t 12386}#
+ #{t 12386}#
+ '(displaced-lexical)))))
+ (values
+ (car #{b 12385}#)
+ (cdr #{b 12385}#)
+ #{mod 12384}#)))
+ (error "unexpected id-var-name"
+ #{id 12336}#
+ #{w 12337}#
+ #{n 12342}#))))))
+ (lambda (#{type 12399}# #{value 12400}# #{mod 12401}#)
+ (if (eqv? #{type 12399}# 'lexical)
+ (values 'lexical #{value 12400}#)
+ (if (eqv? #{type 12399}# 'macro)
+ (values 'macro #{value 12400}#)
+ (if (eqv? #{type 12399}# 'syntax)
+ (values 'pattern-variable #{value 12400}#)
+ (if (eqv? #{type 12399}# 'displaced-lexical)
+ (values 'displaced-lexical #f)
+ (if (eqv? #{type 12399}# 'global)
+ (values
+ 'global
+ (cons #{value 12400}# #{mod 12401}#))
+ (values 'other #f)))))))))))))
+ (set! generate-temporaries
+ (lambda (#{ls 12412}#)
+ (begin
+ (if (not (list? #{ls 12412}#))
+ (syntax-violation
+ 'generate-temporaries
+ "invalid argument"
+ #{ls 12412}#))
+ (let ((#{mod 12420}#
+ (cons 'hygiene (module-name (current-module)))))
+ (map (lambda (#{x 12421}#)
+ (#{wrap 2771}# (gensym) '((top)) #{mod 12420}#))
+ #{ls 12412}#)))))
+ (set! free-identifier=?
+ (lambda (#{x 12425}# #{y 12426}#)
+ (begin
+ (if (not (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 #{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 12425}# 1))
+ #f))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ #{x 12425}#))
+ (if (not (if (if (vector? #{y 12426}#)
+ (if (= (vector-length #{y 12426}#) 4)
+ (eq? (vector-ref #{y 12426}# 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 12426}# 1))
+ #f))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ #{y 12426}#))
+ (if (eq? (if (if (vector? #{x 12425}#)
+ (if (= (vector-length #{x 12425}#) 4)
+ (eq? (vector-ref #{x 12425}# 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 12425}# 1)
+ #{x 12425}#)
+ (if (if (vector? #{y 12426}#)
+ (if (= (vector-length #{y 12426}#) 4)
+ (eq? (vector-ref #{y 12426}# 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 12426}# 1)
+ #{y 12426}#))
+ (eq? (#{id-var-name 2762}# #{x 12425}# '(()))
+ (#{id-var-name 2762}# #{y 12426}# '(())))
+ #f))))
+ (set! bound-identifier=?
+ (lambda (#{x 12576}# #{y 12577}#)
+ (begin
+ (if (not (if (if (vector? #{x 12576}#)
+ (if (= (vector-length #{x 12576}#) 4)
+ (eq? (vector-ref #{x 12576}# 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 12576}# 1))
+ #f))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ #{x 12576}#))
+ (if (not (if (if (vector? #{y 12577}#)
+ (if (= (vector-length #{y 12577}#) 4)
+ (eq? (vector-ref #{y 12577}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{y 12577}# 1))
+ #f))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ #{y 12577}#))
+ (if (if (if (vector? #{x 12576}#)
+ (if (= (vector-length #{x 12576}#) 4)
+ (eq? (vector-ref #{x 12576}# 0) 'syntax-object)
+ #f)
+ #f)
+ (if (vector? #{y 12577}#)
+ (if (= (vector-length #{y 12577}#) 4)
+ (eq? (vector-ref #{y 12577}# 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 12576}# 1)
+ (vector-ref #{y 12577}# 1))
+ (#{same-marks? 2761}#
+ (car (vector-ref #{x 12576}# 2))
+ (car (vector-ref #{y 12577}# 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 12576}# #{y 12577}#)))))
+ (set! syntax-violation
+ (lambda*
+ (#{who 12710}#
+ #{message 12711}#
+ #{form 12712}#
+ #:optional
+ (#{subform 12713}# #f))
+ (begin
+ (if (not (if (not #{who 12710}#)
+ (not #{who 12710}#)
+ (let ((#{t 12731}# (string? #{who 12710}#)))
+ (if #{t 12731}#
+ #{t 12731}#
+ (symbol? #{who 12710}#)))))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ #{who 12710}#))
+ (if (not (string? #{message 12711}#))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ #{message 12711}#))
+ (throw 'syntax-error
+ #{who 12710}#
+ #{message 12711}#
+ (#{source-annotation 2736}#
+ (if #{form 12712}#
+ #{form 12712}#
+ #{subform 12713}#))
+ (#{strip 2791}# #{form 12712}# '(()))
+ (if #{subform 12713}#
+ (#{strip 2791}# #{subform 12713}# '(()))
+ #f)))))
+ (letrec*
+ ((#{match-each 12934}#
+ (lambda (#{e 13521}#
+ #{p 13522}#
+ #{w 13523}#
+ #{mod 13524}#)
+ (if (pair? #{e 13521}#)
+ (let ((#{first 13525}#
+ (#{match 12940}#
+ (car #{e 13521}#)
+ #{p 13522}#
+ #{w 13523}#
+ '()
+ #{mod 13524}#)))
+ (if #{first 13525}#
+ (let ((#{rest 13528}#
+ (#{match-each 12934}#
+ (cdr #{e 13521}#)
+ #{p 13522}#
+ #{w 13523}#
+ #{mod 13524}#)))
+ (if #{rest 13528}#
+ (cons #{first 13525}# #{rest 13528}#)
+ #f))
+ #f))
+ (if (null? #{e 13521}#)
+ '()
+ (if (if (vector? #{e 13521}#)
+ (if (= (vector-length #{e 13521}#) 4)
+ (eq? (vector-ref #{e 13521}# 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 12934}#
+ (vector-ref #{e 13521}# 1)
+ #{p 13522}#
+ (#{join-wraps 2759}#
+ #{w 13523}#
+ (vector-ref #{e 13521}# 2))
+ (vector-ref #{e 13521}# 3))
+ #f)))))
+ (#{match-each-any 12936}#
+ (lambda (#{e 13556}# #{w 13557}# #{mod 13558}#)
+ (if (pair? #{e 13556}#)
+ (let ((#{l 13559}#
+ (#{match-each-any 12936}#
+ (cdr #{e 13556}#)
+ #{w 13557}#
+ #{mod 13558}#)))
+ (if #{l 13559}#
+ (cons (#{wrap 2771}#
+ (car #{e 13556}#)
+ #{w 13557}#
+ #{mod 13558}#)
+ #{l 13559}#)
+ #f))
+ (if (null? #{e 13556}#)
+ '()
+ (if (if (vector? #{e 13556}#)
+ (if (= (vector-length #{e 13556}#) 4)
+ (eq? (vector-ref #{e 13556}# 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 12936}#
+ (vector-ref #{e 13556}# 1)
+ (#{join-wraps 2759}#
+ #{w 13557}#
+ (vector-ref #{e 13556}# 2))
+ #{mod 13558}#)
+ #f)))))
+ (#{match-empty 12937}#
+ (lambda (#{p 13583}# #{r 13584}#)
+ (if (null? #{p 13583}#)
+ #{r 13584}#
+ (if (eq? #{p 13583}# '_)
+ #{r 13584}#
+ (if (eq? #{p 13583}# 'any)
+ (cons '() #{r 13584}#)
+ (if (pair? #{p 13583}#)
+ (#{match-empty 12937}#
+ (car #{p 13583}#)
+ (#{match-empty 12937}#
+ (cdr #{p 13583}#)
+ #{r 13584}#))
+ (if (eq? #{p 13583}# 'each-any)
+ (cons '() #{r 13584}#)
+ (let ((#{atom-key 13585}# (vector-ref #{p 13583}# 0)))
+ (if (eqv? #{atom-key 13585}# 'each)
+ (#{match-empty 12937}#
+ (vector-ref #{p 13583}# 1)
+ #{r 13584}#)
+ (if (eqv? #{atom-key 13585}# 'each+)
+ (#{match-empty 12937}#
+ (vector-ref #{p 13583}# 1)
+ (#{match-empty 12937}#
+ (reverse (vector-ref #{p 13583}# 2))
+ (#{match-empty 12937}#
+ (vector-ref #{p 13583}# 3)
+ #{r 13584}#)))
+ (if (if (eqv? #{atom-key 13585}# 'free-id)
+ #t
+ (eqv? #{atom-key 13585}# 'atom))
+ #{r 13584}#
+ (if (eqv? #{atom-key 13585}# 'vector)
+ (#{match-empty 12937}#
+ (vector-ref #{p 13583}# 1)
+ #{r 13584}#)))))))))))))
+ (#{combine 12938}#
+ (lambda (#{r* 13604}# #{r 13605}#)
+ (if (null? (car #{r* 13604}#))
+ #{r 13605}#
+ (cons (map car #{r* 13604}#)
+ (#{combine 12938}#
+ (map cdr #{r* 13604}#)
+ #{r 13605}#)))))
+ (#{match* 12939}#
+ (lambda (#{e 12969}#
+ #{p 12970}#
+ #{w 12971}#
+ #{r 12972}#
+ #{mod 12973}#)
+ (if (null? #{p 12970}#)
+ (if (null? #{e 12969}#) #{r 12972}# #f)
+ (if (pair? #{p 12970}#)
+ (if (pair? #{e 12969}#)
+ (#{match 12940}#
+ (car #{e 12969}#)
+ (car #{p 12970}#)
+ #{w 12971}#
+ (#{match 12940}#
+ (cdr #{e 12969}#)
+ (cdr #{p 12970}#)
+ #{w 12971}#
+ #{r 12972}#
+ #{mod 12973}#)
+ #{mod 12973}#)
+ #f)
+ (if (eq? #{p 12970}# 'each-any)
+ (let ((#{l 12978}#
+ (#{match-each-any 12936}#
+ #{e 12969}#
+ #{w 12971}#
+ #{mod 12973}#)))
+ (if #{l 12978}#
+ (cons #{l 12978}# #{r 12972}#)
+ #f))
+ (let ((#{atom-key 12983}# (vector-ref #{p 12970}# 0)))
+ (if (eqv? #{atom-key 12983}# 'each)
+ (if (null? #{e 12969}#)
+ (#{match-empty 12937}#
+ (vector-ref #{p 12970}# 1)
+ #{r 12972}#)
+ (let ((#{l 12990}#
+ (#{match-each 12934}#
+ #{e 12969}#
+ (vector-ref #{p 12970}# 1)
+ #{w 12971}#
+ #{mod 12973}#)))
+ (if #{l 12990}#
(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 12993}#
+ (lambda (#{l 13044}#)
+ (if (null? (car #{l 13044}#))
+ #{r 12972}#
+ (cons (map car #{l 13044}#)
+ (#{collect 12993}#
+ (map cdr #{l 13044}#)))))))
+ (#{collect 12993}# #{l 12990}#))
#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 12983}# 'each+)
+ (call-with-values
+ (lambda ()
+ (let ((#{x-pat 13053}# (vector-ref #{p 12970}# 1))
+ (#{y-pat 13054}# (vector-ref #{p 12970}# 2))
+ (#{z-pat 13055}#
+ (vector-ref #{p 12970}# 3)))
+ (letrec*
+ ((#{f 13059}#
+ (lambda (#{e 13061}# #{w 13062}#)
+ (if (pair? #{e 13061}#)
+ (call-with-values
+ (lambda ()
+ (#{f 13059}#
+ (cdr #{e 13061}#)
+ #{w 13062}#))
+ (lambda (#{xr* 13063}#
+ #{y-pat 13064}#
+ #{r 13065}#)
+ (if #{r 13065}#
+ (if (null? #{y-pat 13064}#)
+ (let ((#{xr 13066}#
+ (#{match 12940}#
+ (car #{e 13061}#)
+ #{x-pat 13053}#
+ #{w 13062}#
+ '()
+ #{mod 12973}#)))
+ (if #{xr 13066}#
+ (values
+ (cons #{xr 13066}#
+ #{xr* 13063}#)
+ #{y-pat 13064}#
+ #{r 13065}#)
+ (values #f #f #f)))
+ (values
+ '()
+ (cdr #{y-pat 13064}#)
+ (#{match 12940}#
+ (car #{e 13061}#)
+ (car #{y-pat 13064}#)
+ #{w 13062}#
+ #{r 13065}#
+ #{mod 12973}#)))
+ (values #f #f #f))))
+ (if (if (vector? #{e 13061}#)
+ (if (= (vector-length
+ #{e 13061}#)
+ 4)
+ (eq? (vector-ref #{e 13061}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (#{f 13059}#
+ (vector-ref #{e 13061}# 1)
+ (#{join-wraps 2759}#
+ #{w 13062}#
+ #{e 13061}#))
+ (values
+ '()
+ #{y-pat 13054}#
+ (#{match 12940}#
+ #{e 13061}#
+ #{z-pat 13055}#
+ #{w 13062}#
+ #{r 12972}#
+ #{mod 12973}#)))))))
+ (#{f 13059}# #{e 12969}# #{w 12971}#))))
+ (lambda (#{xr* 13092}# #{y-pat 13093}# #{r 13094}#)
+ (if #{r 13094}#
+ (if (null? #{y-pat 13093}#)
+ (if (null? #{xr* 13092}#)
+ (#{match-empty 12937}#
+ (vector-ref #{p 12970}# 1)
+ #{r 13094}#)
+ (#{combine 12938}#
+ #{xr* 13092}#
+ #{r 13094}#))
+ #f)
+ #f)))
+ (if (eqv? #{atom-key 12983}# 'free-id)
+ (if (if (symbol? #{e 12969}#)
+ #t
+ (if (if (vector? #{e 12969}#)
+ (if (= (vector-length #{e 12969}#) 4)
+ (eq? (vector-ref #{e 12969}# 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 12969}# 1))
+ #f))
+ (if (let ((#{i 13425}#
+ (#{wrap 2771}#
+ #{e 12969}#
+ #{w 12971}#
+ #{mod 12973}#))
+ (#{j 13426}#
+ (vector-ref #{p 12970}# 1)))
+ (if (eq? (if (if (vector? #{i 13425}#)
+ (if (= (vector-length
+ #{i 13425}#)
+ 4)
+ (eq? (vector-ref
+ #{i 13425}#
+ 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 13425}# 1)
+ #{i 13425}#)
+ (if (if (vector? #{j 13426}#)
+ (if (= (vector-length
+ #{j 13426}#)
+ 4)
+ (eq? (vector-ref
+ #{j 13426}#
+ 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 13426}# 1)
+ #{j 13426}#))
+ (eq? (#{id-var-name 2762}#
+ #{i 13425}#
+ '(()))
+ (#{id-var-name 2762}#
+ #{j 13426}#
+ '(())))
+ #f))
+ #{r 12972}#
+ #f)
#f)
+ (if (eqv? #{atom-key 12983}# 'atom)
+ (if (equal?
+ (vector-ref #{p 12970}# 1)
+ (#{strip 2791}# #{e 12969}# #{w 12971}#))
+ #{r 12972}#
+ #f)
+ (if (eqv? #{atom-key 12983}# 'vector)
+ (if (vector? #{e 12969}#)
+ (#{match 12940}#
+ (vector->list #{e 12969}#)
+ (vector-ref #{p 12970}# 1)
+ #{w 12971}#
+ #{r 12972}#
+ #{mod 12973}#)
+ #f))))))))))))
+ (#{match 12940}#
+ (lambda (#{e 13486}#
+ #{p 13487}#
+ #{w 13488}#
+ #{r 13489}#
+ #{mod 13490}#)
+ (if (not #{r 13489}#)
+ #f
+ (if (eq? #{p 13487}# '_)
+ #{r 13489}#
+ (if (eq? #{p 13487}# 'any)
+ (cons (#{wrap 2771}#
+ #{e 13486}#
+ #{w 13488}#
+ #{mod 13490}#)
+ #{r 13489}#)
+ (if (if (vector? #{e 13486}#)
+ (if (= (vector-length #{e 13486}#) 4)
+ (eq? (vector-ref #{e 13486}# 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* 12939}#
+ (vector-ref #{e 13486}# 1)
+ #{p 13487}#
+ (#{join-wraps 2759}#
+ #{w 13488}#
+ (vector-ref #{e 13486}# 2))
+ #{r 13489}#
+ (vector-ref #{e 13486}# 3))
+ (#{match* 12939}#
+ #{e 13486}#
+ #{p 13487}#
+ #{w 13488}#
+ #{r 13489}#
+ #{mod 13490}#))))))))
+ (set! $sc-dispatch
+ (lambda (#{e 12941}# #{p 12942}#)
+ (if (eq? #{p 12942}# 'any)
+ (list #{e 12941}#)
+ (if (eq? #{p 12942}# '_)
+ '()
+ (if (if (vector? #{e 12941}#)
+ (if (= (vector-length #{e 12941}#) 4)
+ (eq? (vector-ref #{e 12941}# 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* 12939}#
+ (vector-ref #{e 12941}# 1)
+ #{p 12942}#
+ (vector-ref #{e 12941}# 2)
+ '()
+ (vector-ref #{e 12941}# 3))
+ (#{match* 12939}#
+ #{e 12941}#
+ #{p 12942}#
+ '(())
+ '()
+ #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 24645}#)
+ (let ((#{tmp 24647}#
+ ($sc-dispatch #{x 24645}# '(_ () any . each-any))))
+ (if #{tmp 24647}#
(@apply
- (lambda (#{e1 28055}# #{e2 28056}#)
+ (lambda (#{e1 24651}# #{e2 24652}#)
(cons '#(syntax-object
let
((top)
- #(ribcage
- #(e1 e2)
- #((top) (top))
- #("i28022" "i28023"))
+ #(ribcage #(e1 e2) #((top) (top)) #("1al" "1am"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28019")))
+ #(ribcage #(x) #((top)) #("1ak")))
(hygiene guile))
- (cons '() (cons #{e1 28055}# #{e2 28056}#))))
- #{tmp 28051}#)
- (let ((#{tmp 28057}#
+ (cons '() (cons #{e1 24651}# #{e2 24652}#))))
+ #{tmp 24647}#)
+ (let ((#{tmp 24653}#
($sc-dispatch
- #{x 28049}#
+ #{x 24645}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 28057}#
+ (if #{tmp 24653}#
(@apply
- (lambda (#{out 28061}#
- #{in 28062}#
- #{e1 28063}#
- #{e2 28064}#)
+ (lambda (#{out 24657}#
+ #{in 24658}#
+ #{e1 24659}#
+ #{e2 24660}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28028" "i28029" "i28030" "i28031"))
+ #("1an" "1ao" "1ap" "1aq"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28019")))
+ #(ribcage #(x) #((top)) #("1ak")))
(hygiene guile))
- #{in 28062}#
+ #{in 24658}#
'()
- (list #{out 28061}#
+ (list #{out 24657}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28028"
- "i28029"
- "i28030"
- "i28031"))
+ #("1an" "1ao" "1ap" "1aq"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28019")))
+ #(ribcage #(x) #((top)) #("1ak")))
(hygiene guile))
(cons '()
- (cons #{e1 28063}# #{e2 28064}#))))))
- #{tmp 28057}#)
- (let ((#{tmp 28065}#
+ (cons #{e1 24659}# #{e2 24660}#))))))
+ #{tmp 24653}#)
+ (let ((#{tmp 24661}#
($sc-dispatch
- #{x 28049}#
+ #{x 24645}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 28065}#
+ (if #{tmp 24661}#
(@apply
- (lambda (#{out 28069}#
- #{in 28070}#
- #{e1 28071}#
- #{e2 28072}#)
+ (lambda (#{out 24665}#
+ #{in 24666}#
+ #{e1 24667}#
+ #{e2 24668}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28038" "i28039" "i28040" "i28041"))
+ #("1ar" "1as" "1at" "1au"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28019")))
+ #(ribcage #(x) #((top)) #("1ak")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -22135,62 +22525,56 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28038" "i28039" "i28040" "i28041"))
+ #("1ar" "1as" "1at" "1au"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28019")))
+ #(ribcage #(x) #((top)) #("1ak")))
(hygiene guile))
- #{in 28070}#)
+ #{in 24666}#)
'()
- (list #{out 28069}#
+ (list #{out 24665}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28038"
- "i28039"
- "i28040"
- "i28041"))
+ #("1ar" "1as" "1at" "1au"))
#(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i28019")))
+ #(ribcage #(x) #((top)) #("1ak")))
(hygiene guile))
(cons '()
- (cons #{e1 28071}#
- #{e2 28072}#))))))
- #{tmp 28065}#)
+ (cons #{e1 24667}#
+ #{e2 24668}#))))))
+ #{tmp 24661}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28049}#))))))))))
+ #{x 24645}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 28126}#)
- (let ((#{tmp 28128}#
+ (lambda (#{x 24707}#)
+ (let ((#{tmp 24709}#
($sc-dispatch
- #{x 28126}#
+ #{x 24707}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 28128}#
+ (if #{tmp 24709}#
(@apply
- (lambda (#{k 28132}#
- #{keyword 28133}#
- #{pattern 28134}#
- #{template 28135}#)
+ (lambda (#{k 24713}#
+ #{keyword 24714}#
+ #{pattern 24715}#
+ #{template 24716}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28089" "i28090" "i28091" "i28092"))
+ #("1aw" "1ax" "1ay" "1az"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
'(#(syntax-object
x
@@ -22198,9 +22582,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28089" "i28090" "i28091" "i28092"))
+ #("1aw" "1ax" "1ay" "1az"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -22209,9 +22593,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28089" "i28090" "i28091" "i28092"))
+ #("1aw" "1ax" "1ay" "1az"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
.
#(syntax-object
@@ -22220,9 +22604,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28089" "i28090" "i28091" "i28092"))
+ #("1aw" "1ax" "1ay" "1az"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22230,20 +22614,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28089" "i28090" "i28091" "i28092"))
+ #("1aw" "1ax" "1ay" "1az"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
- #{pattern 28134}#))
+ #{pattern 24715}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28089" "i28090" "i28091" "i28092"))
+ #("1aw" "1ax" "1ay" "1az"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22251,13 +22635,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28089" "i28090" "i28091" "i28092"))
+ #("1aw" "1ax" "1ay" "1az"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
- (cons #{k 28132}#
- (map (lambda (#{tmp 28100 28136}#
- #{tmp 28099 28137}#)
+ (cons #{k 24713}#
+ (map (lambda (#{tmp 24691 24717}#
+ #{tmp 24690 24718}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22270,10 +22654,10 @@
(top)
(top)
(top))
- #("i28089"
- "i28090"
- "i28091"
- "i28092"))
+ #("1aw"
+ "1ax"
+ "1ay"
+ "1az"))
#(ribcage
()
()
@@ -22281,9 +22665,9 @@
#(ribcage
#(x)
#((top))
- #("i28086")))
+ #("1av")))
(hygiene guile))
- #{tmp 28099 28137}#)
+ #{tmp 24690 24718}#)
(list '#(syntax-object
syntax
((top)
@@ -22296,10 +22680,10 @@
(top)
(top)
(top))
- #("i28089"
- "i28090"
- "i28091"
- "i28092"))
+ #("1aw"
+ "1ax"
+ "1ay"
+ "1az"))
#(ribcage
()
()
@@ -22307,41 +22691,41 @@
#(ribcage
#(x)
#((top))
- #("i28086")))
+ #("1av")))
(hygiene guile))
- #{tmp 28100 28136}#)))
- #{template 28135}#
- #{pattern 28134}#))))))
- #{tmp 28128}#)
- (let ((#{tmp 28138}#
+ #{tmp 24691 24717}#)))
+ #{template 24716}#
+ #{pattern 24715}#))))))
+ #{tmp 24709}#)
+ (let ((#{tmp 24719}#
($sc-dispatch
- #{x 28126}#
+ #{x 24707}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 28138}#
+ (if (if #{tmp 24719}#
(@apply
- (lambda (#{k 28142}#
- #{docstring 28143}#
- #{keyword 28144}#
- #{pattern 28145}#
- #{template 28146}#)
- (string? (syntax->datum #{docstring 28143}#)))
- #{tmp 28138}#)
+ (lambda (#{k 24723}#
+ #{docstring 24724}#
+ #{keyword 24725}#
+ #{pattern 24726}#
+ #{template 24727}#)
+ (string? (syntax->datum #{docstring 24724}#)))
+ #{tmp 24719}#)
#f)
(@apply
- (lambda (#{k 28147}#
- #{docstring 28148}#
- #{keyword 28149}#
- #{pattern 28150}#
- #{template 28151}#)
+ (lambda (#{k 24728}#
+ #{docstring 24729}#
+ #{keyword 24730}#
+ #{pattern 24731}#
+ #{template 24732}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28112" "i28113" "i28114" "i28115" "i28116"))
+ #("1b5" "1b6" "1b7" "1b8" "1b9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
'(#(syntax-object
x
@@ -22349,11 +22733,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28112" "i28113" "i28114" "i28115" "i28116"))
+ #("1b5" "1b6" "1b7" "1b8" "1b9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile)))
- #{docstring 28148}#
+ #{docstring 24729}#
(vector
'(#(syntax-object
macro-type
@@ -22361,13 +22745,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28112"
- "i28113"
- "i28114"
- "i28115"
- "i28116"))
+ #("1b5" "1b6" "1b7" "1b8" "1b9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
.
#(syntax-object
@@ -22376,13 +22756,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28112"
- "i28113"
- "i28114"
- "i28115"
- "i28116"))
+ #("1b5" "1b6" "1b7" "1b8" "1b9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22390,28 +22766,20 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28112"
- "i28113"
- "i28114"
- "i28115"
- "i28116"))
+ #("1b5" "1b6" "1b7" "1b8" "1b9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
- #{pattern 28150}#))
+ #{pattern 24731}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28112"
- "i28113"
- "i28114"
- "i28115"
- "i28116"))
+ #("1b5" "1b6" "1b7" "1b8" "1b9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22423,17 +22791,13 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i28112"
- "i28113"
- "i28114"
- "i28115"
- "i28116"))
+ #("1b5" "1b6" "1b7" "1b8" "1b9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28086")))
+ #(ribcage #(x) #((top)) #("1av")))
(hygiene guile))
- (cons #{k 28147}#
- (map (lambda (#{tmp 28125 28152}#
- #{tmp 28124 28153}#)
+ (cons #{k 24728}#
+ (map (lambda (#{tmp 24706 24733}#
+ #{tmp 24705 24734}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22448,11 +22812,11 @@
(top)
(top)
(top))
- #("i28112"
- "i28113"
- "i28114"
- "i28115"
- "i28116"))
+ #("1b5"
+ "1b6"
+ "1b7"
+ "1b8"
+ "1b9"))
#(ribcage
()
()
@@ -22460,10 +22824,10 @@
#(ribcage
#(x)
#((top))
-
#("i28086")))
+ #("1av")))
(hygiene
guile))
- #{tmp 28124
28153}#)
+ #{tmp 24705
24734}#)
(list '#(syntax-object
syntax
((top)
@@ -22478,11 +22842,11 @@
(top)
(top)
(top))
- #("i28112"
- "i28113"
- "i28114"
- "i28115"
- "i28116"))
+ #("1b5"
+ "1b6"
+ "1b7"
+ "1b8"
+ "1b9"))
#(ribcage
()
()
@@ -22490,50 +22854,50 @@
#(ribcage
#(x)
#((top))
-
#("i28086")))
+ #("1av")))
(hygiene
guile))
- #{tmp 28125
28152}#)))
- #{template 28151}#
- #{pattern 28150}#))))))
- #{tmp 28138}#)
+ #{tmp 24706
24733}#)))
+ #{template 24732}#
+ #{pattern 24731}#))))))
+ #{tmp 24719}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28126}#))))))))
+ #{x 24707}#))))))))
(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 24759}#)
+ (let ((#{tmp 24761}#
+ ($sc-dispatch #{x 24759}# '(_ (any . any) any))))
+ (if #{tmp 24761}#
(@apply
- (lambda (#{name 28196}#
- #{pattern 28197}#
- #{template 28198}#)
+ (lambda (#{name 24765}#
+ #{pattern 24766}#
+ #{template 24767}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28167" "i28168" "i28169"))
+ #("1bb" "1bc" "1bd"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28164")))
+ #(ribcage #(x) #((top)) #("1ba")))
(hygiene guile))
- #{name 28196}#
+ #{name 24765}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28167" "i28168" "i28169"))
+ #("1bb" "1bc" "1bd"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28164")))
+ #(ribcage #(x) #((top)) #("1ba")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22542,54 +22906,54 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28167" "i28168" "i28169"))
+ #("1bb" "1bc" "1bd"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28164")))
+ #(ribcage #(x) #((top)) #("1ba")))
(hygiene guile))
- #{pattern 28197}#)
- #{template 28198}#))))
- #{tmp 28192}#)
- (let ((#{tmp 28199}#
+ #{pattern 24766}#)
+ #{template 24767}#))))
+ #{tmp 24761}#)
+ (let ((#{tmp 24768}#
($sc-dispatch
- #{x 28190}#
+ #{x 24759}#
'(_ (any . any) any any))))
- (if (if #{tmp 28199}#
+ (if (if #{tmp 24768}#
(@apply
- (lambda (#{name 28203}#
- #{pattern 28204}#
- #{docstring 28205}#
- #{template 28206}#)
- (string? (syntax->datum #{docstring 28205}#)))
- #{tmp 28199}#)
+ (lambda (#{name 24772}#
+ #{pattern 24773}#
+ #{docstring 24774}#
+ #{template 24775}#)
+ (string? (syntax->datum #{docstring 24774}#)))
+ #{tmp 24768}#)
#f)
(@apply
- (lambda (#{name 28207}#
- #{pattern 28208}#
- #{docstring 28209}#
- #{template 28210}#)
+ (lambda (#{name 24776}#
+ #{pattern 24777}#
+ #{docstring 24778}#
+ #{template 24779}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i28182" "i28183" "i28184" "i28185"))
+ #("1bi" "1bj" "1bk" "1bl"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28164")))
+ #(ribcage #(x) #((top)) #("1ba")))
(hygiene guile))
- #{name 28207}#
+ #{name 24776}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i28182" "i28183" "i28184" "i28185"))
+ #("1bi" "1bj" "1bk" "1bl"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28164")))
+ #(ribcage #(x) #((top)) #("1ba")))
(hygiene guile))
'()
- #{docstring 28209}#
+ #{docstring 24778}#
(list (cons '#(syntax-object
_
((top)
@@ -22599,53 +22963,50 @@
docstring
template)
#((top) (top) (top) (top))
- #("i28182"
- "i28183"
- "i28184"
- "i28185"))
+ #("1bi" "1bj" "1bk" "1bl"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28164")))
+ #("1ba")))
(hygiene guile))
- #{pattern 28208}#)
- #{template 28210}#))))
- #{tmp 28199}#)
+ #{pattern 24777}#)
+ #{template 24779}#))))
+ #{tmp 24768}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28190}#))))))))
+ #{x 24759}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 28259}#)
- (let ((#{tmp 28261}#
+ (lambda (#{x 24813}#)
+ (let ((#{tmp 24815}#
($sc-dispatch
- #{x 28259}#
+ #{x 24813}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 28261}#
+ (if (if #{tmp 24815}#
(@apply
- (lambda (#{let* 28265}#
- #{x 28266}#
- #{v 28267}#
- #{e1 28268}#
- #{e2 28269}#)
- (and-map identifier? #{x 28266}#))
- #{tmp 28261}#)
+ (lambda (#{let* 24819}#
+ #{x 24820}#
+ #{v 24821}#
+ #{e1 24822}#
+ #{e2 24823}#)
+ (and-map identifier? #{x 24820}#))
+ #{tmp 24815}#)
#f)
(@apply
- (lambda (#{let* 28270}#
- #{x 28271}#
- #{v 28272}#
- #{e1 28273}#
- #{e2 28274}#)
+ (lambda (#{let* 24824}#
+ #{x 24825}#
+ #{v 24826}#
+ #{e1 24827}#
+ #{e2 24828}#)
(letrec*
- ((#{f 28275}#
- (lambda (#{bindings 28278}#)
- (if (null? #{bindings 28278}#)
+ ((#{f 24829}#
+ (lambda (#{bindings 24832}#)
+ (if (null? #{bindings 24832}#)
(cons '#(syntax-object
let
((top)
@@ -22653,27 +23014,23 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i28245" "i28246"))
+ #("1bx" "1by"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i28235"
- "i28236"
- "i28237"
- "i28238"
- "i28239"))
+ #("1bs" "1bt" "1bu" "1bv" "1bw"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28221")))
+ #(ribcage #(x) #((top)) #("1bm")))
(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 24827}# #{e2 24828}#)))
+ (let ((#{tmp 24833}#
+ (list (#{f 24829}# (cdr #{bindings 24832}#))
+ (car #{bindings 24832}#))))
+ (let ((#{tmp 24834}#
+ ($sc-dispatch #{tmp 24833}# '(any any))))
+ (if #{tmp 24834}#
(@apply
- (lambda (#{body 28282}# #{binding 28283}#)
+ (lambda (#{body 24836}# #{binding 24837}#)
(list '#(syntax-object
let
((top)
@@ -22681,96 +23038,86 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i28255" "i28256"))
+ #("1bz" "1c0"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i28245" "i28246"))
+ #("1bx" "1by"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i28235"
- "i28236"
- "i28237"
- "i28238"
- "i28239"))
+ #("1bs" "1bt" "1bu" "1bv" "1bw"))
#(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i28221")))
+ #(ribcage #(x) #((top)) #("1bm")))
(hygiene guile))
- (list #{binding 28283}#)
- #{body 28282}#))
- #{tmp 28280}#)
+ (list #{binding 24837}#)
+ #{body 24836}#))
+ #{tmp 24834}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28279}#))))))))
- (#{f 28275}# (map list #{x 28271}# #{v 28272}#))))
- #{tmp 28261}#)
+ #{tmp 24833}#))))))))
+ (#{f 24829}# (map list #{x 24825}# #{v 24826}#))))
+ #{tmp 24815}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28259}#))))))
+ #{x 24813}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 28341}#)
- (let ((#{tmp 28343}#
+ (lambda (#{orig-x 24881}#)
+ (let ((#{tmp 24883}#
($sc-dispatch
- #{orig-x 28341}#
+ #{orig-x 24881}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 28343}#
+ (if #{tmp 24883}#
(@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 24887}#
+ #{init 24888}#
+ #{step 24889}#
+ #{e0 24890}#
+ #{e1 24891}#
+ #{c 24892}#)
+ (let ((#{tmp 24893}#
+ (map (lambda (#{v 24896}# #{s 24897}#)
+ (let ((#{tmp 24899}#
+ ($sc-dispatch #{s 24897}# '())))
+ (if #{tmp 24899}#
+ (@apply (lambda () #{v 24896}#) #{tmp 24899}#)
+ (let ((#{tmp 24902}#
+ ($sc-dispatch #{s 24897}# '(any))))
+ (if #{tmp 24902}#
(@apply
- (lambda (#{e 28365}#) #{e 28365}#)
- #{tmp 28362}#)
+ (lambda (#{e 24905}#) #{e 24905}#)
+ #{tmp 24902}#)
(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 24881}#
+ #{s 24897}#))))))
+ #{var 24887}#
+ #{step 24889}#)))
+ (let ((#{tmp 24894}#
+ ($sc-dispatch #{tmp 24893}# 'each-any)))
+ (if #{tmp 24894}#
(@apply
- (lambda (#{step 28371}#)
- (let ((#{tmp 28373}# ($sc-dispatch #{e1 28351}# '())))
- (if #{tmp 28373}#
+ (lambda (#{step 24911}#)
+ (let ((#{tmp 24913}# ($sc-dispatch #{e1 24891}# '())))
+ (if #{tmp 24913}#
(@apply
(lambda ()
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage
- #(step)
- #((top))
- #("i28309"))
+ #(ribcage #(step) #((top)) #("1c8"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22779,26 +23126,23 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
'#(syntax-object
doloop
((top)
#(ribcage () () ())
- #(ribcage
- #(step)
- #((top))
- #("i28309"))
+ #(ribcage #(step) #((top)) #("1c8"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22807,19 +23151,19 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
- (map list #{var 28347}# #{init 28348}#)
+ (map list #{var 24887}# #{init 24888}#)
(list '#(syntax-object
if
((top)
@@ -22827,7 +23171,7 @@
#(ribcage
#(step)
#((top))
- #("i28309"))
+ #("1c8"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22836,17 +23180,17 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
(list '#(syntax-object
not
@@ -22855,7 +23199,7 @@
#(ribcage
#(step)
#((top))
- #("i28309"))
+ #("1c8"))
#(ribcage
#(var
init
@@ -22869,19 +23213,19 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
- #{e0 28350}#)
+ #{e0 24890}#)
(cons '#(syntax-object
begin
((top)
@@ -22889,7 +23233,7 @@
#(ribcage
#(step)
#((top))
- #("i28309"))
+ #("1c8"))
#(ribcage
#(var
init
@@ -22903,20 +23247,20 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
(append
- #{c 28352}#
+ #{c 24892}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -22927,7 +23271,7 @@
#(ribcage
#(step)
#((top))
-
#("i28309"))
+ #("1c8"))
#(ribcage
#(var
init
@@ -22941,12 +23285,12 @@
(top)
(top)
(top))
-
#("i28294"
-
"i28295"
-
"i28296"
-
"i28297"
-
"i28298"
-
"i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage
()
()
@@ -22954,30 +23298,30 @@
#(ribcage
#(orig-x)
#((top))
-
#("i28291")))
+
#("1c1")))
(hygiene
guile))
- #{step
28371}#)))))))
- #{tmp 28373}#)
- (let ((#{tmp 28377}#
+ #{step
24911}#)))))))
+ #{tmp 24913}#)
+ (let ((#{tmp 24917}#
($sc-dispatch
- #{e1 28351}#
+ #{e1 24891}#
'(any . each-any))))
- (if #{tmp 28377}#
+ (if #{tmp 24917}#
(@apply
- (lambda (#{e1 28381}# #{e2 28382}#)
+ (lambda (#{e1 24921}# #{e2 24922}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28318" "i28319"))
+ #("1c9" "1ca"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28309"))
+ #("1c8"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22986,17 +23330,17 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23004,12 +23348,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28318" "i28319"))
+ #("1c9" "1ca"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28309"))
+ #("1c8"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23018,33 +23362,33 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
(map list
- #{var 28347}#
- #{init 28348}#)
+ #{var 24887}#
+ #{init 24888}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28318" "i28319"))
+ #("1c9" "1ca"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28309"))
+ #("1c8"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23053,32 +23397,31 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
- #{e0 28350}#
+ #{e0 24890}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28318"
- "i28319"))
+ #("1c9" "1ca"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28309"))
+ #("1c8"))
#(ribcage
#(var
init
@@ -23092,33 +23435,32 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
- (cons #{e1 28381}#
- #{e2 28382}#))
+ (cons #{e1 24921}#
+ #{e2 24922}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28318"
- "i28319"))
+ #("1c9" "1ca"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28309"))
+ #("1c8"))
#(ribcage
#(var
init
@@ -23132,20 +23474,20 @@
(top)
(top)
(top))
- #("i28294"
- "i28295"
- "i28296"
- "i28297"
- "i28298"
- "i28299"))
+ #("1c2"
+ "1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28291")))
+ #("1c1")))
(hygiene guile))
(append
- #{c 28352}#
+ #{c 24892}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -23154,8 +23496,8 @@
e2)
#((top)
(top))
-
#("i28318"
-
"i28319"))
+
#("1c9"
+
"1ca"))
#(ribcage
()
()
@@ -23163,7 +23505,7 @@
#(ribcage
#(step)
#((top))
-
#("i28309"))
+
#("1c8"))
#(ribcage
#(var
init
@@ -23177,12 +23519,12 @@
(top)
(top)
(top))
-
#("i28294"
-
"i28295"
-
"i28296"
-
"i28297"
-
"i28298"
-
"i28299"))
+
#("1c2"
+
"1c3"
+
"1c4"
+
"1c5"
+
"1c6"
+
"1c7"))
#(ribcage
()
()
@@ -23190,45 +23532,42 @@
#(ribcage
#(orig-x)
#((top))
-
#("i28291")))
+
#("1c1")))
(hygiene
guile))
- #{step
28371}#)))))))
- #{tmp 28377}#)
+ #{step
24911}#)))))))
+ #{tmp 24917}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 28351}#))))))
- #{tmp 28354}#)
+ #{e1 24891}#))))))
+ #{tmp 24894}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28353}#)))))
- #{tmp 28343}#)
+ #{tmp 24893}#)))))
+ #{tmp 24883}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 28341}#))))))
+ #{orig-x 24881}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 28668}#
- (lambda (#{p 28692}# #{lev 28693}#)
- (let ((#{tmp 28695}#
+ ((#{quasi 25129}#
+ (lambda (#{p 25153}# #{lev 25154}#)
+ (let ((#{tmp 25156}#
($sc-dispatch
- #{p 28692}#
+ #{p 25153}#
'(#(free-id
#(syntax-object
unquote
((top)
#(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i28414" "i28415"))
+ #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23237,28 +23576,22 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(hygiene guile)))
any))))
- (if #{tmp 28695}#
+ (if #{tmp 25156}#
(@apply
- (lambda (#{p 28699}#)
- (if (= #{lev 28693}# 0)
+ (lambda (#{p 25160}#)
+ (if (= #{lev 25154}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i28418"))
+ #(ribcage #(p) #((top)) #("1co"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23267,25 +23600,16 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(hygiene guile))
- #{p 28699}#)
- (#{quasicons 28670}#
+ #{p 25160}#)
+ (#{quasicons 25131}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28418"))
+ #(ribcage #(p) #((top)) #("1co"))
#(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i28414" "i28415"))
+ #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23294,23 +23618,14 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i28418"))
+ #(ribcage #(p) #((top)) #("1co"))
#(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i28414" "i28415"))
+ #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23319,21 +23634,15 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(hygiene guile)))
- (#{quasi 28668}#
- (list #{p 28699}#)
- (#{1-}# #{lev 28693}#)))))
- #{tmp 28695}#)
- (let ((#{tmp 28702}#
+ (#{quasi 25129}#
+ (list #{p 25160}#)
+ (#{1-}# #{lev 25154}#)))))
+ #{tmp 25156}#)
+ (let ((#{tmp 25163}#
($sc-dispatch
- #{p 28692}#
+ #{p 25153}#
'(#(free-id
#(syntax-object
quasiquote
@@ -23342,7 +23651,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23351,28 +23660,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(hygiene guile)))
any))))
- (if #{tmp 28702}#
+ (if #{tmp 25163}#
(@apply
- (lambda (#{p 28706}#)
- (#{quasicons 28670}#
+ (lambda (#{p 25167}#)
+ (#{quasicons 25131}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28421"))
+ #(ribcage #(p) #((top)) #("1cp"))
#(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i28414" "i28415"))
+ #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23381,23 +23681,14 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i28421"))
+ #(ribcage #(p) #((top)) #("1cp"))
#(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i28414" "i28415"))
+ #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23406,26 +23697,20 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(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 25129}#
+ (list #{p 25167}#)
+ (#{1+}# #{lev 25154}#))))
+ #{tmp 25163}#)
+ (let ((#{tmp 25170}#
+ ($sc-dispatch #{p 25153}# '(any . any))))
+ (if #{tmp 25170}#
(@apply
- (lambda (#{p 28713}# #{q 28714}#)
- (let ((#{tmp 28716}#
+ (lambda (#{p 25174}# #{q 25175}#)
+ (let ((#{tmp 25177}#
($sc-dispatch
- #{p 28713}#
+ #{p 25174}#
'(#(free-id
#(syntax-object
unquote
@@ -23433,12 +23718,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28424" "i28425"))
+ #("1cq" "1cr"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23453,38 +23738,38 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 28716}#
+ (if #{tmp 25177}#
(@apply
- (lambda (#{p 28720}#)
- (if (= #{lev 28693}# 0)
- (#{quasilist* 28672}#
- (map (lambda (#{tmp 28432 28756}#)
+ (lambda (#{p 25181}#)
+ (if (= #{lev 25154}# 0)
+ (#{quasilist* 25133}#
+ (map (lambda (#{tmp 24958 25217}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28430"))
+ #("1cs"))
#(ribcage
#(p q)
#((top) (top))
- #("i28424" "i28425"))
+ #("1cq" "1cr"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23499,37 +23784,34 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{tmp 28432 28756}#))
- #{p 28720}#)
- (#{quasi 28668}#
- #{q 28714}#
- #{lev 28693}#))
- (#{quasicons 28670}#
- (#{quasicons 28670}#
+ #{tmp 24958 25217}#))
+ #{p 25181}#)
+ (#{quasi 25129}#
+ #{q 25175}#
+ #{lev 25154}#))
+ (#{quasicons 25131}#
+ (#{quasicons 25131}#
'(#(syntax-object
"quote"
((top)
- #(ribcage
- #(p)
- #((top))
- #("i28430"))
+ #(ribcage #(p) #((top)) #("1cs"))
#(ribcage
#(p q)
#((top) (top))
- #("i28424" "i28425"))
+ #("1cq" "1cr"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23544,30 +23826,27 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage
- #(p)
- #((top))
- #("i28430"))
+ #(ribcage #(p) #((top)) #("1cs"))
#(ribcage
#(p q)
#((top) (top))
- #("i28424" "i28425"))
+ #("1cq" "1cr"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23582,24 +23861,24 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile)))
- (#{quasi 28668}#
- #{p 28720}#
- (#{1-}# #{lev 28693}#)))
- (#{quasi 28668}#
- #{q 28714}#
- #{lev 28693}#))))
- #{tmp 28716}#)
- (let ((#{tmp 28761}#
+ (#{quasi 25129}#
+ #{p 25181}#
+ (#{1-}# #{lev 25154}#)))
+ (#{quasi 25129}#
+ #{q 25175}#
+ #{lev 25154}#))))
+ #{tmp 25177}#)
+ (let ((#{tmp 25222}#
($sc-dispatch
- #{p 28713}#
+ #{p 25174}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23607,12 +23886,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28424" "i28425"))
+ #("1cq" "1cr"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23627,40 +23906,38 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 28761}#
+ (if #{tmp 25222}#
(@apply
- (lambda (#{p 28765}#)
- (if (= #{lev 28693}# 0)
- (#{quasiappend 28671}#
- (map (lambda (#{tmp 28437 28768}#)
+ (lambda (#{p 25226}#)
+ (if (= #{lev 25154}# 0)
+ (#{quasiappend 25132}#
+ (map (lambda (#{tmp 24962 25229}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28435"))
+ #("1ct"))
#(ribcage
#(p q)
#((top) (top))
- #("i28424"
- "i28425"))
+ #("1cq" "1cr"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414"
- "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23675,37 +23952,37 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{tmp 28437 28768}#))
- #{p 28765}#)
- (#{quasi 28668}#
- #{q 28714}#
- #{lev 28693}#))
- (#{quasicons 28670}#
- (#{quasicons 28670}#
+ #{tmp 24962 25229}#))
+ #{p 25226}#)
+ (#{quasi 25129}#
+ #{q 25175}#
+ #{lev 25154}#))
+ (#{quasicons 25131}#
+ (#{quasicons 25131}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i28435"))
+ #("1ct"))
#(ribcage
#(p q)
#((top) (top))
- #("i28424" "i28425"))
+ #("1cq" "1cr"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23720,13 +23997,13 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -23734,16 +24011,16 @@
#(ribcage
#(p)
#((top))
- #("i28435"))
+ #("1ct"))
#(ribcage
#(p q)
#((top) (top))
- #("i28424" "i28425"))
+ #("1cq" "1cr"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -23758,57 +24035,57 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(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 25129}#
+ #{p 25226}#
+ (#{1-}# #{lev 25154}#)))
+ (#{quasi 25129}#
+ #{q 25175}#
+ #{lev 25154}#))))
+ #{tmp 25222}#)
+ (#{quasicons 25131}#
+ (#{quasi 25129}#
+ #{p 25174}#
+ #{lev 25154}#)
+ (#{quasi 25129}#
+ #{q 25175}#
+ #{lev 25154}#)))))))
+ #{tmp 25170}#)
+ (let ((#{tmp 25243}#
+ ($sc-dispatch #{p 25153}# '#(vector each-any))))
+ (if #{tmp 25243}#
(@apply
- (lambda (#{x 28786}#)
- (let ((#{x 28789}#
- (#{vquasi 28669}#
- #{x 28786}#
- #{lev 28693}#)))
- (let ((#{tmp 28791}#
+ (lambda (#{x 25247}#)
+ (let ((#{x 25250}#
+ (#{vquasi 25130}#
+ #{x 25247}#
+ #{lev 25154}#)))
+ (let ((#{tmp 25252}#
($sc-dispatch
- #{x 28789}#
+ #{x 25250}#
'(#(atom "quote") each-any))))
- (if #{tmp 28791}#
+ (if #{tmp 25252}#
(@apply
- (lambda (#{x 28795}#)
+ (lambda (#{x 25256}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i28542"))
+ #("1dp"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28539"))
+ #("1do"))
#(ribcage
(emit quasivector
quasilist*
@@ -23823,36 +24100,36 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- (list->vector #{x 28795}#)))
- #{tmp 28791}#)
+ (list->vector #{x 25256}#)))
+ #{tmp 25252}#)
(letrec*
- ((#{f 28797}#
- (lambda (#{y 28809}# #{k 28810}#)
- (let ((#{tmp 28812}#
+ ((#{f 25258}#
+ (lambda (#{y 25270}# #{k 25271}#)
+ (let ((#{tmp 25273}#
($sc-dispatch
- #{y 28809}#
+ #{y 25270}#
'(#(atom "quote")
each-any))))
- (if #{tmp 28812}#
+ (if #{tmp 25273}#
(@apply
- (lambda (#{y 28815}#)
- (#{k 28810}#
- (map (lambda (#{tmp
28567 28816}#)
+ (lambda (#{y 25276}#)
+ (#{k 25271}#
+ (map (lambda (#{tmp
25053 25277}#)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("i28565"))
+
#("1dw"))
#(ribcage
()
()
@@ -23864,13 +24141,13 @@
#((top)
(top)
(top))
-
#("i28547"
-
"i28548"
-
"i28549"))
+
#("1dr"
+
"1ds"
+
"1dt"))
#(ribcage
#(_)
#((top))
-
#("i28545"))
+
#("1dq"))
#(ribcage
()
()
@@ -23878,7 +24155,7 @@
#(ribcage
#(x)
#((top))
-
#("i28539"))
+
#("1do"))
#(ribcage
(emit
quasivector
quasilist*
@@ -23893,51 +24170,51 @@
(top)
(top)
(top))
-
("i28410"
-
"i28408"
-
"i28406"
-
"i28404"
-
"i28402"
-
"i28400"
-
"i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+
"1cf")))
(hygiene
guile))
- #{tmp 28567
28816}#))
- #{y 28815}#)))
- #{tmp 28812}#)
- (let ((#{tmp 28817}#
+ #{tmp 25053
25277}#))
+ #{y 25276}#)))
+ #{tmp 25273}#)
+ (let ((#{tmp 25278}#
($sc-dispatch
- #{y 28809}#
+ #{y 25270}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 28817}#
+ (if #{tmp 25278}#
(@apply
- (lambda (#{y 28820}#)
- (#{k 28810}#
- #{y 28820}#))
- #{tmp 28817}#)
- (let ((#{tmp 28821}#
+ (lambda (#{y 25281}#)
+ (#{k 25271}#
+ #{y 25281}#))
+ #{tmp 25278}#)
+ (let ((#{tmp 25282}#
($sc-dispatch
- #{y 28809}#
+ #{y 25270}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 28821}#
+ (if #{tmp 25282}#
(@apply
- (lambda (#{y 28824}#
- #{z 28825}#)
- (#{f 28797}#
- #{z 28825}#
- (lambda (#{ls
28826}#)
- (#{k 28810}#
+ (lambda (#{y 25285}#
+ #{z 25286}#)
+ (#{f 25258}#
+ #{z 25286}#
+ (lambda (#{ls
25287}#)
+ (#{k 25271}#
(append
- #{y 28824}#
- #{ls
28826}#)))))
- #{tmp 28821}#)
+ #{y 25285}#
+ #{ls
25287}#)))))
+ #{tmp 25282}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -23946,14 +24223,14 @@
()
())
#(ribcage
- #(#{
g28582}#)
- #((m28583
+ #(#{
g25063}#)
+ #((m25064
top))
-
#("i28586"))
+ #("1e2"))
#(ribcage
#(else)
#((top))
-
#("i28580"))
+ #("1e1"))
#(ribcage
()
()
@@ -23963,13 +24240,13 @@
#((top)
(top)
(top))
- #("i28547"
- "i28548"
-
"i28549"))
+ #("1dr"
+ "1ds"
+ "1dt"))
#(ribcage
#(_)
#((top))
-
#("i28545"))
+ #("1dq"))
#(ribcage
()
()
@@ -23977,7 +24254,7 @@
#(ribcage
#(x)
#((top))
-
#("i28539"))
+ #("1do"))
#(ribcage
(emit
quasivector
quasilist*
@@ -23992,26 +24269,26 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
-
"i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene
guile))
- #{x
28789}#))))))))))
- (#{f 28797}#
- #{x 28789}#
- (lambda (#{ls 28799}#)
- (let ((#{tmp 28801}#
+ #{x
25250}#))))))))))
+ (#{f 25258}#
+ #{x 25250}#
+ (lambda (#{ls 25260}#)
+ (let ((#{tmp 25262}#
($sc-dispatch
- #{ls 28799}#
+ #{ls 25260}#
'each-any)))
- (if #{tmp 28801}#
+ (if #{tmp 25262}#
(@apply
- (lambda (#{ g28555 28804}#)
+ (lambda (#{ g25043 25265}#)
(cons '#(syntax-object
"vector"
((top)
@@ -24020,9 +24297,9 @@
()
())
#(ribcage
- #(#{ g28555}#)
- #((m28556 top))
- #("i28560"))
+ #(#{ g25043}#)
+ #((m25044 top))
+ #("1dv"))
#(ribcage
()
()
@@ -24038,11 +24315,11 @@
#(ribcage
#(ls)
#((top))
- #("i28554"))
+ #("1du"))
#(ribcage
#(_)
#((top))
- #("i28545"))
+ #("1dq"))
#(ribcage
()
()
@@ -24050,7 +24327,7 @@
#(ribcage
#(x)
#((top))
- #("i28539"))
+ #("1do"))
#(ribcage
(emit
quasivector
quasilist*
@@ -24065,30 +24342,30 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{ g28555 28804}#))
- #{tmp 28801}#)
+ #{ g25043 25265}#))
+ #{tmp 25262}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{ls 28799}#))))))))))
- #{tmp 28782}#)
+ #{ls 25260}#))))))))))
+ #{tmp 25243}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28445"))
+ #(ribcage #(p) #((top)) #("1cw"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28414" "i28415"))
+ #("1cm" "1cn"))
#(ribcage
(emit quasivector
quasilist*
@@ -24103,25 +24380,25 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{p 28692}#)))))))))))
- (#{vquasi 28669}#
- (lambda (#{p 28854}# #{lev 28855}#)
- (let ((#{tmp 28857}#
- ($sc-dispatch #{p 28854}# '(any . any))))
- (if #{tmp 28857}#
+ #{p 25153}#)))))))))))
+ (#{vquasi 25130}#
+ (lambda (#{p 25315}# #{lev 25316}#)
+ (let ((#{tmp 25318}#
+ ($sc-dispatch #{p 25315}# '(any . any))))
+ (if #{tmp 25318}#
(@apply
- (lambda (#{p 28861}# #{q 28862}#)
- (let ((#{tmp 28864}#
+ (lambda (#{p 25322}# #{q 25323}#)
+ (let ((#{tmp 25325}#
($sc-dispatch
- #{p 28861}#
+ #{p 25322}#
'(#(free-id
#(syntax-object
unquote
@@ -24129,12 +24406,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28453" "i28454"))
+ #("1cz" "1d0"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28449" "i28450"))
+ #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24149,38 +24426,38 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 28864}#
+ (if #{tmp 25325}#
(@apply
- (lambda (#{p 28868}#)
- (if (= #{lev 28855}# 0)
- (#{quasilist* 28672}#
- (map (lambda (#{tmp 28461 28904}#)
+ (lambda (#{p 25329}#)
+ (if (= #{lev 25316}# 0)
+ (#{quasilist* 25133}#
+ (map (lambda (#{tmp 24978 25365}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28459"))
+ #("1d1"))
#(ribcage
#(p q)
#((top) (top))
- #("i28453" "i28454"))
+ #("1cz" "1d0"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28449" "i28450"))
+ #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24195,32 +24472,32 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{tmp 28461 28904}#))
- #{p 28868}#)
- (#{vquasi 28669}# #{q 28862}# #{lev 28855}#))
- (#{quasicons 28670}#
- (#{quasicons 28670}#
+ #{tmp 24978 25365}#))
+ #{p 25329}#)
+ (#{vquasi 25130}# #{q 25323}# #{lev 25316}#))
+ (#{quasicons 25131}#
+ (#{quasicons 25131}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28459"))
+ #(ribcage #(p) #((top)) #("1d1"))
#(ribcage
#(p q)
#((top) (top))
- #("i28453" "i28454"))
+ #("1cz" "1d0"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28449" "i28450"))
+ #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24235,27 +24512,27 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i28459"))
+ #(ribcage #(p) #((top)) #("1d1"))
#(ribcage
#(p q)
#((top) (top))
- #("i28453" "i28454"))
+ #("1cz" "1d0"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28449" "i28450"))
+ #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24270,22 +24547,22 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile)))
- (#{quasi 28668}#
- #{p 28868}#
- (#{1-}# #{lev 28855}#)))
- (#{vquasi 28669}# #{q 28862}# #{lev 28855}#))))
- #{tmp 28864}#)
- (let ((#{tmp 28911}#
+ (#{quasi 25129}#
+ #{p 25329}#
+ (#{1-}# #{lev 25316}#)))
+ (#{vquasi 25130}# #{q 25323}# #{lev 25316}#))))
+ #{tmp 25325}#)
+ (let ((#{tmp 25372}#
($sc-dispatch
- #{p 28861}#
+ #{p 25322}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24293,12 +24570,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28453" "i28454"))
+ #("1cz" "1d0"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28449" "i28450"))
+ #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24313,38 +24590,38 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 28911}#
+ (if #{tmp 25372}#
(@apply
- (lambda (#{p 28915}#)
- (if (= #{lev 28855}# 0)
- (#{quasiappend 28671}#
- (map (lambda (#{tmp 28466 28918}#)
+ (lambda (#{p 25376}#)
+ (if (= #{lev 25316}# 0)
+ (#{quasiappend 25132}#
+ (map (lambda (#{tmp 24982 25379}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28464"))
+ #("1d2"))
#(ribcage
#(p q)
#((top) (top))
- #("i28453" "i28454"))
+ #("1cz" "1d0"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28449" "i28450"))
+ #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24359,34 +24636,34 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{tmp 28466 28918}#))
- #{p 28915}#)
- (#{vquasi 28669}#
- #{q 28862}#
- #{lev 28855}#))
- (#{quasicons 28670}#
- (#{quasicons 28670}#
+ #{tmp 24982 25379}#))
+ #{p 25376}#)
+ (#{vquasi 25130}#
+ #{q 25323}#
+ #{lev 25316}#))
+ (#{quasicons 25131}#
+ (#{quasicons 25131}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28464"))
+ #(ribcage #(p) #((top)) #("1d2"))
#(ribcage
#(p q)
#((top) (top))
- #("i28453" "i28454"))
+ #("1cz" "1d0"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28449" "i28450"))
+ #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24401,27 +24678,27 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i28464"))
+ #(ribcage #(p) #((top)) #("1d2"))
#(ribcage
#(p q)
#((top) (top))
- #("i28453" "i28454"))
+ #("1cz" "1d0"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28449" "i28450"))
+ #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24436,37 +24713,34 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(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 25129}#
+ #{p 25376}#
+ (#{1-}# #{lev 25316}#)))
+ (#{vquasi 25130}#
+ #{q 25323}#
+ #{lev 25316}#))))
+ #{tmp 25372}#)
+ (#{quasicons 25131}#
+ (#{quasi 25129}# #{p 25322}# #{lev 25316}#)
+ (#{vquasi 25130}# #{q 25323}# #{lev 25316}#)))))))
+ #{tmp 25318}#)
+ (let ((#{tmp 25397}# ($sc-dispatch #{p 25315}# '())))
+ (if #{tmp 25397}#
(@apply
(lambda ()
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i28449" "i28450"))
+ #(ribcage #(p lev) #((top) (top)) #("1cx" "1cy"))
#(ribcage
(emit quasivector
quasilist*
@@ -24475,64 +24749,58 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(hygiene guile))
()))
- #{tmp 28936}#)
+ #{tmp 25397}#)
(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 25315}#)))))))
+ (#{quasicons 25131}#
+ (lambda (#{x 25410}# #{y 25411}#)
+ (let ((#{tmp 25412}# (list #{x 25410}# #{y 25411}#)))
+ (let ((#{tmp 25413}#
+ ($sc-dispatch #{tmp 25412}# '(any any))))
+ (if #{tmp 25413}#
(@apply
- (lambda (#{x 28954}# #{y 28955}#)
- (let ((#{tmp 28957}#
+ (lambda (#{x 25415}# #{y 25416}#)
+ (let ((#{tmp 25418}#
($sc-dispatch
- #{y 28955}#
+ #{y 25416}#
'(#(atom "quote") any))))
- (if #{tmp 28957}#
+ (if #{tmp 25418}#
(@apply
- (lambda (#{dy 28961}#)
- (let ((#{tmp 28963}#
+ (lambda (#{dy 25422}#)
+ (let ((#{tmp 25424}#
($sc-dispatch
- #{x 28954}#
+ #{x 25415}#
'(#(atom "quote") any))))
- (if #{tmp 28963}#
+ (if #{tmp 25424}#
(@apply
- (lambda (#{dx 28967}#)
+ (lambda (#{dx 25428}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i28488"))
+ #("1d9"))
#(ribcage
#(dy)
#((top))
- #("i28484"))
+ #("1d8"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28478" "i28479"))
+ #("1d6" "1d7"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28473" "i28474"))
+ #("1d4" "1d5"))
#(ribcage
(emit quasivector
quasilist*
@@ -24547,39 +24815,33 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- (cons #{dx 28967}# #{dy 28961}#)))
- #{tmp 28963}#)
- (if (null? #{dy 28961}#)
+ (cons #{dx 25428}# #{dy 25422}#)))
+ #{tmp 25424}#)
+ (if (null? #{dy 25422}#)
(list '#(syntax-object
"list"
((top)
- #(ribcage
- #(_)
- #((top))
- #("i28490"))
- #(ribcage
- #(dy)
- #((top))
- #("i28484"))
+ #(ribcage #(_) #((top)) #("1da"))
+ #(ribcage #(dy) #((top)) #("1d8"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28478" "i28479"))
+ #("1d6" "1d7"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28473" "i28474"))
+ #("1d4" "1d5"))
#(ribcage
(emit quasivector
quasilist*
@@ -24594,37 +24856,31 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{x 28954}#)
+ #{x 25415}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage
- #(_)
- #((top))
- #("i28490"))
- #(ribcage
- #(dy)
- #((top))
- #("i28484"))
+ #(ribcage #(_) #((top)) #("1da"))
+ #(ribcage #(dy) #((top)) #("1d8"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28478" "i28479"))
+ #("1d6" "1d7"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28473" "i28474"))
+ #("1d4" "1d5"))
#(ribcage
(emit quasivector
quasilist*
@@ -24639,42 +24895,42 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{x 28954}#
- #{y 28955}#)))))
- #{tmp 28957}#)
- (let ((#{tmp 28972}#
+ #{x 25415}#
+ #{y 25416}#)))))
+ #{tmp 25418}#)
+ (let ((#{tmp 25433}#
($sc-dispatch
- #{y 28955}#
+ #{y 25416}#
'(#(atom "list") . any))))
- (if #{tmp 28972}#
+ (if #{tmp 25433}#
(@apply
- (lambda (#{stuff 28976}#)
+ (lambda (#{stuff 25437}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i28493"))
+ #("1db"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28478" "i28479"))
+ #("1d6" "1d7"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28473" "i28474"))
+ #("1d4" "1d5"))
#(ribcage
(emit quasivector
quasilist*
@@ -24689,41 +24945,41 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- (cons #{x 28954}# #{stuff 28976}#)))
- #{tmp 28972}#)
- (let ((#{tmp 28977}#
+ (cons #{x 25415}# #{stuff 25437}#)))
+ #{tmp 25433}#)
+ (let ((#{tmp 25438}#
($sc-dispatch
- #{y 28955}#
+ #{y 25416}#
'(#(atom "list*") . any))))
- (if #{tmp 28977}#
+ (if #{tmp 25438}#
(@apply
- (lambda (#{stuff 28981}#)
+ (lambda (#{stuff 25442}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i28496"))
+ #("1dc"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28478" "i28479"))
+ #("1d6" "1d7"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28473" "i28474"))
+ #("1d4" "1d5"))
#(ribcage
(emit quasivector
quasilist*
@@ -24738,31 +24994,31 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- (cons #{x 28954}# #{stuff 28981}#)))
- #{tmp 28977}#)
+ (cons #{x 25415}# #{stuff 25442}#)))
+ #{tmp 25438}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i28498"))
+ #(ribcage #(_) #((top)) #("1dd"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28478" "i28479"))
+ #("1d6" "1d7"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28473" "i28474"))
+ #("1d4" "1d5"))
#(ribcage
(emit quasivector
quasilist*
@@ -24777,37 +25033,34 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{x 28954}#
- #{y 28955}#))))))))
- #{tmp 28952}#)
+ #{x 25415}#
+ #{y 25416}#))))))))
+ #{tmp 25413}#)
(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 25412}#))))))
+ (#{quasiappend 25132}#
+ (lambda (#{x 25453}# #{y 25454}#)
+ (let ((#{tmp 25456}#
+ ($sc-dispatch #{y 25454}# '(#(atom "quote") ()))))
+ (if #{tmp 25456}#
(@apply
(lambda ()
- (if (null? #{x 28992}#)
+ (if (null? #{x 25453}#)
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i28502" "i28503"))
+ #(ribcage #(x y) #((top) (top)) #("1de" "1df"))
#(ribcage
(emit quasivector
quasilist*
@@ -24816,32 +25069,26 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(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 25453}#))
+ (car #{x 25453}#)
+ (let ((#{tmp 25461}#
+ ($sc-dispatch #{x 25453}# 'each-any)))
+ (if #{tmp 25461}#
(@apply
- (lambda (#{p 29004}#)
+ (lambda (#{p 25465}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i28514"))
+ #(ribcage #(p) #((top)) #("1dg"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28502" "i28503"))
+ #("1de" "1df"))
#(ribcage
(emit quasivector
quasilist*
@@ -24856,29 +25103,29 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{p 29004}#))
- #{tmp 29000}#)
+ #{p 25465}#))
+ #{tmp 25461}#)
(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 25453}#))))))
+ #{tmp 25456}#)
+ (if (null? #{x 25453}#)
+ #{y 25454}#
+ (let ((#{tmp 25473}# (list #{x 25453}# #{y 25454}#)))
+ (let ((#{tmp 25474}#
+ ($sc-dispatch #{tmp 25473}# '(each-any any))))
+ (if #{tmp 25474}#
(@apply
- (lambda (#{p 29015}# #{y 29016}#)
+ (lambda (#{p 25476}# #{y 25477}#)
(cons '#(syntax-object
"append"
((top)
@@ -24886,13 +25133,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i28525" "i28526"))
- #(ribcage #(_) #((top)) #("i28517"))
+ #("1di" "1dj"))
+ #(ribcage #(_) #((top)) #("1dh"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28502" "i28503"))
+ #("1de" "1df"))
#(ribcage
(emit quasivector
quasilist*
@@ -24907,44 +25154,44 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- (append #{p 29015}# (list #{y 29016}#))))
- #{tmp 29013}#)
+ (append #{p 25476}# (list #{y 25477}#))))
+ #{tmp 25474}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29012}#)))))))))
- (#{quasilist* 28672}#
- (lambda (#{x 29020}# #{y 29021}#)
+ #{tmp 25473}#)))))))))
+ (#{quasilist* 25133}#
+ (lambda (#{x 25481}# #{y 25482}#)
(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 25483}#
+ (lambda (#{x 25572}#)
+ (if (null? #{x 25572}#)
+ #{y 25482}#
+ (#{quasicons 25131}#
+ (car #{x 25572}#)
+ (#{f 25483}# (cdr #{x 25572}#)))))))
+ (#{f 25483}# #{x 25481}#))))
+ (#{emit 25135}#
+ (lambda (#{x 25575}#)
+ (let ((#{tmp 25577}#
+ ($sc-dispatch #{x 25575}# '(#(atom "quote") any))))
+ (if #{tmp 25577}#
(@apply
- (lambda (#{x 29120}#)
+ (lambda (#{x 25581}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i28592"))
+ #(ribcage #(x) #((top)) #("1e4"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28589"))
+ #(ribcage #(x) #((top)) #("1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -24953,40 +25200,34 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
(hygiene guile))
- #{x 29120}#))
- #{tmp 29116}#)
- (let ((#{tmp 29121}#
+ #{x 25581}#))
+ #{tmp 25577}#)
+ (let ((#{tmp 25582}#
($sc-dispatch
- #{x 29114}#
+ #{x 25575}#
'(#(atom "list") . each-any))))
- (if #{tmp 29121}#
+ (if #{tmp 25582}#
(@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 25586}#)
+ (let ((#{tmp 25587}# (map #{emit 25135}# #{x 25586}#)))
+ (let ((#{tmp 25588}#
+ ($sc-dispatch #{tmp 25587}# 'each-any)))
+ (if #{tmp 25588}#
(@apply
- (lambda (#{ g28597 29129}#)
+ (lambda (#{ g25074 25590}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28597}#)
- #((m28598 top))
- #("i28602"))
- #(ribcage #(x) #((top)) #("i28595"))
+ #(#{ g25074}#)
+ #((m25075 top))
+ #("1e6"))
+ #(ribcage #(x) #((top)) #("1e5"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28589"))
+ #(ribcage #(x) #((top)) #("1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -25001,70 +25242,70 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{ g28597 29129}#))
- #{tmp 29127}#)
+ #{ g25074 25590}#))
+ #{tmp 25588}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29126}#)))))
- #{tmp 29121}#)
- (let ((#{tmp 29130}#
+ #{tmp 25587}#)))))
+ #{tmp 25582}#)
+ (let ((#{tmp 25591}#
($sc-dispatch
- #{x 29114}#
+ #{x 25575}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 29130}#
+ (if #{tmp 25591}#
(@apply
- (lambda (#{x 29134}# #{y 29135}#)
+ (lambda (#{x 25595}# #{y 25596}#)
(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 25597}#
+ (lambda (#{x* 25600}#)
+ (if (null? #{x* 25600}#)
+ (#{emit 25135}# #{y 25596}#)
+ (let ((#{tmp 25601}#
+ (list (#{emit 25135}#
+ (car #{x* 25600}#))
+ (#{f 25597}#
+ (cdr #{x* 25600}#)))))
+ (let ((#{tmp 25602}#
($sc-dispatch
- #{tmp 29140}#
+ #{tmp 25601}#
'(any any))))
- (if #{tmp 29141}#
+ (if #{tmp 25602}#
(@apply
- (lambda (#{ g28617 29143}#
- #{ g28616 29144}#)
+ (lambda (#{ g25089 25604}#
+ #{ g25088 25605}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28617}#
- #{ g28616}#)
- #((m28618 top)
- (m28618 top))
- #("i28622" "i28623"))
+ #(#{ g25089}#
+ #{ g25088}#)
+ #((m25090 top)
+ (m25090 top))
+ #("1eb" "1ec"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i28611" "i28612"))
+ #("1e9" "1ea"))
#(ribcage
#(x y)
#((top) (top))
- #("i28607" "i28608"))
+ #("1e7" "1e8"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28589"))
+ #("1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -25079,56 +25320,56 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{ g28617 29143}#
- #{ g28616 29144}#))
- #{tmp 29141}#)
+ #{ g25089 25604}#
+ #{ g25088 25605}#))
+ #{tmp 25602}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 29140}#))))))))
- (#{f 29136}# #{x 29134}#)))
- #{tmp 29130}#)
- (let ((#{tmp 29145}#
+ #{tmp 25601}#))))))))
+ (#{f 25597}# #{x 25595}#)))
+ #{tmp 25591}#)
+ (let ((#{tmp 25606}#
($sc-dispatch
- #{x 29114}#
+ #{x 25575}#
'(#(atom "append") . each-any))))
- (if #{tmp 29145}#
+ (if #{tmp 25606}#
(@apply
- (lambda (#{x 29149}#)
- (let ((#{tmp 29150}#
- (map #{emit 28674}# #{x 29149}#)))
- (let ((#{tmp 29151}#
+ (lambda (#{x 25610}#)
+ (let ((#{tmp 25611}#
+ (map #{emit 25135}# #{x 25610}#)))
+ (let ((#{tmp 25612}#
($sc-dispatch
- #{tmp 29150}#
+ #{tmp 25611}#
'each-any)))
- (if #{tmp 29151}#
+ (if #{tmp 25612}#
(@apply
- (lambda (#{ g28629 29153}#)
+ (lambda (#{ g25098 25614}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28629}#)
- #((m28630 top))
- #("i28634"))
+ #(#{ g25098}#)
+ #((m25099 top))
+ #("1ee"))
#(ribcage
#(x)
#((top))
- #("i28627"))
+ #("1ed"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28589"))
+ #("1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -25143,54 +25384,54 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{ g28629 29153}#))
- #{tmp 29151}#)
+ #{ g25098 25614}#))
+ #{tmp 25612}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 29150}#)))))
- #{tmp 29145}#)
- (let ((#{tmp 29154}#
+ #{tmp 25611}#)))))
+ #{tmp 25606}#)
+ (let ((#{tmp 25615}#
($sc-dispatch
- #{x 29114}#
+ #{x 25575}#
'(#(atom "vector") . each-any))))
- (if #{tmp 29154}#
+ (if #{tmp 25615}#
(@apply
- (lambda (#{x 29158}#)
- (let ((#{tmp 29159}#
- (map #{emit 28674}# #{x 29158}#)))
- (let ((#{tmp 29160}#
+ (lambda (#{x 25619}#)
+ (let ((#{tmp 25620}#
+ (map #{emit 25135}# #{x 25619}#)))
+ (let ((#{tmp 25621}#
($sc-dispatch
- #{tmp 29159}#
+ #{tmp 25620}#
'each-any)))
- (if #{tmp 29160}#
+ (if #{tmp 25621}#
(@apply
- (lambda (#{ g28641 29162}#)
+ (lambda (#{ g25108 25623}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28641}#)
- #((m28642 top))
- #("i28646"))
+ #(#{ g25108}#)
+ #((m25109 top))
+ #("1eg"))
#(ribcage
#(x)
#((top))
- #("i28639"))
+ #("1ef"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28589"))
+ #("1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -25205,47 +25446,47 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{ g28641 29162}#))
- #{tmp 29160}#)
+ #{ g25108 25623}#))
+ #{tmp 25621}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 29159}#)))))
- #{tmp 29154}#)
- (let ((#{tmp 29163}#
+ #{tmp 25620}#)))))
+ #{tmp 25615}#)
+ (let ((#{tmp 25624}#
($sc-dispatch
- #{x 29114}#
+ #{x 25575}#
'(#(atom "list->vector") any))))
- (if #{tmp 29163}#
+ (if #{tmp 25624}#
(@apply
- (lambda (#{x 29167}#)
- (let ((#{tmp 29168}#
- (#{emit 28674}# #{x 29167}#)))
+ (lambda (#{x 25628}#)
+ (let ((#{tmp 25629}#
+ (#{emit 25135}# #{x 25628}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28653}#)
- #((m28654 top))
- #("i28657"))
+ #(#{ g25118}#)
+ #((m25119 top))
+ #("1ei"))
#(ribcage
#(x)
#((top))
- #("i28651"))
+ #("1eh"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28589"))
+ #("1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -25260,188 +25501,188 @@
(top)
(top)
(top))
- ("i28410"
- "i28408"
- "i28406"
- "i28404"
- "i28402"
- "i28400"
- "i28398")))
+ ("1cl"
+ "1ck"
+ "1cj"
+ "1ci"
+ "1ch"
+ "1cg"
+ "1cf")))
(hygiene guile))
- #{tmp 29168}#)))
- #{tmp 29163}#)
- (let ((#{tmp 29171}#
+ #{tmp 25629}#)))
+ #{tmp 25624}#)
+ (let ((#{tmp 25632}#
($sc-dispatch
- #{x 29114}#
+ #{x 25575}#
'(#(atom "value") any))))
- (if #{tmp 29171}#
+ (if #{tmp 25632}#
(@apply
- (lambda (#{x 29175}#) #{x 29175}#)
- #{tmp 29171}#)
+ (lambda (#{x 25636}#) #{x 25636}#)
+ #{tmp 25632}#)
(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 25575}#))))))))))))))))))
+ (lambda (#{x 25136}#)
+ (let ((#{tmp 25138}#
+ ($sc-dispatch #{x 25136}# '(_ any))))
+ (if #{tmp 25138}#
(@apply
- (lambda (#{e 28681}#)
- (#{emit 28674}# (#{quasi 28668}# #{e 28681}# 0)))
- #{tmp 28677}#)
+ (lambda (#{e 25142}#)
+ (#{emit 25135}# (#{quasi 25129}# #{e 25142}# 0)))
+ #{tmp 25138}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28675}#)))))))
+ #{x 25136}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 29230}#)
+ (lambda (#{x 25679}#)
(letrec*
- ((#{read-file 29231}#
- (lambda (#{fn 29340}# #{k 29341}#)
- (let ((#{p 29342}# (open-input-file #{fn 29340}#)))
+ ((#{read-file 25680}#
+ (lambda (#{fn 25789}# #{k 25790}#)
+ (let ((#{p 25791}# (open-input-file #{fn 25789}#)))
(letrec*
- ((#{f 29343}#
- (lambda (#{x 29397}# #{result 29398}#)
- (if (eof-object? #{x 29397}#)
+ ((#{f 25792}#
+ (lambda (#{x 25846}# #{result 25847}#)
+ (if (eof-object? #{x 25846}#)
(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 25791}#)
+ (reverse #{result 25847}#))
+ (#{f 25792}#
+ (read #{p 25791}#)
+ (cons (datum->syntax #{k 25790}# #{x 25846}#)
+ #{result 25847}#))))))
+ (#{f 25792}# (read #{p 25791}#) '()))))))
+ (let ((#{tmp 25682}#
+ ($sc-dispatch #{x 25679}# '(any any))))
+ (if #{tmp 25682}#
(@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 25686}# #{filename 25687}#)
+ (let ((#{fn 25688}# (syntax->datum #{filename 25687}#)))
+ (let ((#{tmp 25689}#
+ (#{read-file 25680}#
+ #{fn 25688}#
+ #{filename 25687}#)))
+ (let ((#{tmp 25690}#
+ ($sc-dispatch #{tmp 25689}# 'each-any)))
+ (if #{tmp 25690}#
(@apply
- (lambda (#{exp 29259}#)
+ (lambda (#{exp 25708}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i29227"))
+ #(ribcage #(exp) #((top)) #("1ex"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29222"))
+ #(ribcage #(fn) #((top)) #("1ew"))
#(ribcage
#(k filename)
#((top) (top))
- #("i29218" "i29219"))
- #(ribcage (read-file) ((top)) ("i29202"))
- #(ribcage #(x) #((top)) #("i29201")))
+ #("1eu" "1ev"))
+ #(ribcage (read-file) ((top)) ("1en"))
+ #(ribcage #(x) #((top)) #("1em")))
(hygiene guile))
- #{exp 29259}#))
- #{tmp 29241}#)
+ #{exp 25708}#))
+ #{tmp 25690}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29240}#))))))
- #{tmp 29233}#)
+ #{tmp 25689}#))))))
+ #{tmp 25682}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29230}#)))))))
+ #{x 25679}#)))))))
(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 25860}#)
+ (let ((#{tmp 25862}#
+ ($sc-dispatch #{x 25860}# '(any any))))
+ (if #{tmp 25862}#
(@apply
- (lambda (#{k 29423}# #{filename 29424}#)
- (let ((#{fn 29425}# (syntax->datum #{filename 29424}#)))
- (let ((#{tmp 29426}#
+ (lambda (#{k 25866}# #{filename 25867}#)
+ (let ((#{fn 25868}# (syntax->datum #{filename 25867}#)))
+ (let ((#{tmp 25869}#
(datum->syntax
- #{filename 29424}#
- (let ((#{t 29429}# (%search-load-path #{fn 29425}#)))
- (if #{t 29429}#
- #{t 29429}#
+ #{filename 25867}#
+ (let ((#{t 25872}# (%search-load-path #{fn 25868}#)))
+ (if #{t 25872}#
+ #{t 25872}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 29417}#
- #{filename 29424}#))))))
+ #{x 25860}#
+ #{filename 25867}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29411"))
+ #(ribcage #(fn) #((top)) #("1f2"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29407"))
+ #(ribcage #(fn) #((top)) #("1f1"))
#(ribcage
#(k filename)
#((top) (top))
- #("i29403" "i29404"))
+ #("1ez" "1f0"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29400")))
+ #(ribcage #(x) #((top)) #("1ey")))
(hygiene guile))
- #{tmp 29426}#))))
- #{tmp 29419}#)
+ #{tmp 25869}#))))
+ #{tmp 25862}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29417}#))))))
+ #{x 25860}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 29438}#)
+ (lambda (#{x 25880}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 29438}#))))
+ #{x 25880}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 29441}#)
+ (lambda (#{x 25882}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 29441}#))))
+ #{x 25882}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 29497}#)
- (let ((#{tmp 29499}#
+ (lambda (#{x 25919}#)
+ (let ((#{tmp 25921}#
($sc-dispatch
- #{x 29497}#
+ #{x 25919}#
'(_ any any . each-any))))
- (if #{tmp 29499}#
+ (if #{tmp 25921}#
(@apply
- (lambda (#{e 29503}# #{m1 29504}# #{m2 29505}#)
- (let ((#{tmp 29506}#
+ (lambda (#{e 25925}# #{m1 25926}# #{m2 25927}#)
+ (let ((#{tmp 25928}#
(letrec*
- ((#{f 29548}#
- (lambda (#{clause 29551}# #{clauses 29552}#)
- (if (null? #{clauses 29552}#)
- (let ((#{tmp 29554}#
+ ((#{f 25970}#
+ (lambda (#{clause 25973}# #{clauses 25974}#)
+ (if (null? #{clauses 25974}#)
+ (let ((#{tmp 25976}#
($sc-dispatch
- #{clause 29551}#
+ #{clause 25973}#
'(#(free-id
#(syntax-object
else
@@ -25450,91 +25691,77 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb" "1fc" "1fd"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7" "1f8" "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 29554}#
+ (if #{tmp 25976}#
(@apply
- (lambda (#{e1 29558}# #{e2 29559}#)
+ (lambda (#{e1 25980}# #{e2 25981}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29465" "i29466"))
+ #("1fe" "1ff"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb" "1fc" "1fd"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7" "1f8" "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
- (cons #{e1 29558}# #{e2 29559}#)))
- #{tmp 29554}#)
- (let ((#{tmp 29560}#
+ (cons #{e1 25980}# #{e2 25981}#)))
+ #{tmp 25976}#)
+ (let ((#{tmp 25982}#
($sc-dispatch
- #{clause 29551}#
+ #{clause 25973}#
'(each-any any . each-any))))
- (if #{tmp 29560}#
+ (if #{tmp 25982}#
(@apply
- (lambda (#{k 29564}#
- #{e1 29565}#
- #{e2 29566}#)
+ (lambda (#{k 25986}#
+ #{e1 25987}#
+ #{e2 25988}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29471"
- "i29472"
- "i29473"))
+ #("1fg" "1fh" "1fi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb" "1fc" "1fd"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7" "1f8" "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25544,9 +25771,9 @@
#((top)
(top)
(top))
- #("i29471"
- "i29472"
- "i29473"))
+ #("1fg"
+ "1fh"
+ "1fi"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25555,22 +25782,22 @@
#((top)
(top)
(top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb"
+ "1fc"
+ "1fd"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7"
+ "1f8"
+ "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
'#(syntax-object
t
@@ -25580,9 +25807,9 @@
#((top)
(top)
(top))
- #("i29471"
- "i29472"
- "i29473"))
+ #("1fg"
+ "1fh"
+ "1fi"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25591,22 +25818,22 @@
#((top)
(top)
(top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb"
+ "1fc"
+ "1fd"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7"
+ "1f8"
+ "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25616,9 +25843,9 @@
#((top)
(top)
(top))
- #("i29471"
- "i29472"
- "i29473"))
+ #("1fg"
+ "1fh"
+ "1fi"))
#(ribcage
()
()
@@ -25630,17 +25857,17 @@
#((top)
(top)
(top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb"
+ "1fc"
+ "1fd"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7"
+ "1f8"
+ "1f9"))
#(ribcage
()
()
@@ -25648,10 +25875,10 @@
#(ribcage
#(x)
#((top))
-
#("i29443")))
+ #("1f6")))
(hygiene
guile))
- #{k 29564}#))
+ #{k 25986}#))
(cons '#(syntax-object
begin
((top)
@@ -25660,9 +25887,9 @@
#((top)
(top)
(top))
- #("i29471"
- "i29472"
- "i29473"))
+ #("1fg"
+ "1fh"
+ "1fi"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25671,76 +25898,70 @@
#((top)
(top)
(top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb"
+ "1fc"
+ "1fd"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7"
+ "1f8"
+ "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
- (cons #{e1 29565}#
- #{e2 29566}#))))
- #{tmp 29560}#)
+ (cons #{e1 25987}#
+ #{e2 25988}#))))
+ #{tmp 25982}#)
(syntax-violation
'case
"bad clause"
- #{x 29497}#
- #{clause 29551}#)))))
- (let ((#{tmp 29574}#
- (#{f 29548}#
- (car #{clauses 29552}#)
- (cdr #{clauses 29552}#))))
- (let ((#{tmp 29577}#
+ #{x 25919}#
+ #{clause 25973}#)))))
+ (let ((#{tmp 25996}#
+ (#{f 25970}#
+ (car #{clauses 25974}#)
+ (cdr #{clauses 25974}#))))
+ (let ((#{tmp 25999}#
($sc-dispatch
- #{clause 29551}#
+ #{clause 25973}#
'(each-any any . each-any))))
- (if #{tmp 29577}#
+ (if #{tmp 25999}#
(@apply
- (lambda (#{k 29581}#
- #{e1 29582}#
- #{e2 29583}#)
+ (lambda (#{k 26003}#
+ #{e1 26004}#
+ #{e2 26005}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29487"
- "i29488"
- "i29489"))
+ #("1fl" "1fm" "1fn"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29483"))
+ #("1fk"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb" "1fc" "1fd"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7" "1f8" "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25748,32 +25969,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29487"
- "i29488"
- "i29489"))
+ #("1fl"
+ "1fm"
+ "1fn"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29483"))
+ #("1fk"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb"
+ "1fc"
+ "1fd"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7"
+ "1f8"
+ "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
'#(syntax-object
t
@@ -25781,32 +26002,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29487"
- "i29488"
- "i29489"))
+ #("1fl"
+ "1fm"
+ "1fn"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29483"))
+ #("1fk"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb"
+ "1fc"
+ "1fd"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7"
+ "1f8"
+ "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25816,9 +26037,9 @@
#((top)
(top)
(top))
- #("i29487"
- "i29488"
- "i29489"))
+ #("1fl"
+ "1fm"
+ "1fn"))
#(ribcage
()
()
@@ -25826,7 +26047,7 @@
#(ribcage
#(rest)
#((top))
- #("i29483"))
+ #("1fk"))
#(ribcage
()
()
@@ -25838,17 +26059,17 @@
#((top)
(top)
(top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb"
+ "1fc"
+ "1fd"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7"
+ "1f8"
+ "1f9"))
#(ribcage
()
()
@@ -25856,232 +26077,232 @@
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
- #{k 29581}#))
+ #{k 26003}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29487"
- "i29488"
- "i29489"))
+ #("1fl"
+ "1fm"
+ "1fn"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29483"))
+ #("1fk"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29456"
- "i29457"
- "i29458"))
+ #("1fb"
+ "1fc"
+ "1fd"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446"
- "i29447"
- "i29448"))
+ #("1f7"
+ "1f8"
+ "1f9"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29443")))
+ #("1f6")))
(hygiene guile))
- (cons #{e1 29582}#
- #{e2 29583}#))
- #{tmp 29574}#))
- #{tmp 29577}#)
+ (cons #{e1 26004}#
+ #{e2 26005}#))
+ #{tmp 25996}#))
+ #{tmp 25999}#)
(syntax-violation
'case
"bad clause"
- #{x 29497}#
- #{clause 29551}#))))))))
- (#{f 29548}# #{m1 29504}# #{m2 29505}#))))
- (let ((#{body 29507}# #{tmp 29506}#))
+ #{x 25919}#
+ #{clause 25973}#))))))))
+ (#{f 25970}# #{m1 25926}# #{m2 25927}#))))
+ (let ((#{body 25929}# #{tmp 25928}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i29454"))
+ #(ribcage #(body) #((top)) #("1fa"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446" "i29447" "i29448"))
+ #("1f7" "1f8" "1f9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29443")))
+ #(ribcage #(x) #((top)) #("1f6")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i29454"))
+ #(ribcage #(body) #((top)) #("1fa"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29446" "i29447" "i29448"))
+ #("1f7" "1f8" "1f9"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29443")))
+ #(ribcage #(x) #((top)) #("1f6")))
(hygiene guile))
- #{e 29503}#))
- #{body 29507}#))))
- #{tmp 29499}#)
+ #{e 25925}#))
+ #{body 25929}#))))
+ #{tmp 25921}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29497}#))))))
+ #{x 25919}#))))))
(define make-variable-transformer
- (lambda (#{proc 29601}#)
- (if (procedure? #{proc 29601}#)
+ (lambda (#{proc 26020}#)
+ (if (procedure? #{proc 26020}#)
(letrec*
- ((#{trans 29602}#
- (lambda (#{x 29608}#)
- (#{proc 29601}# #{x 29608}#))))
+ ((#{trans 26021}#
+ (lambda (#{x 26027}#)
+ (#{proc 26020}# #{x 26027}#))))
(begin
(set-procedure-property!
- #{trans 29602}#
+ #{trans 26021}#
'variable-transformer
#t)
- #{trans 29602}#))
+ #{trans 26021}#))
(error "variable transformer not a procedure"
- #{proc 29601}#))))
+ #{proc 26020}#))))
(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 26047}#)
+ (let ((#{tmp 26049}#
+ ($sc-dispatch #{x 26047}# '(_ any))))
+ (if #{tmp 26049}#
(@apply
- (lambda (#{e 29646}#)
+ (lambda (#{e 26053}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
- #{e 29646}#))
+ #{e 26053}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i29615"))
+ #(ribcage #(e) #((top)) #("1ft"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
- (cons #{e 29646}#
+ (cons #{e 26053}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i29615"))
+ #("1ft"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
#(syntax-object
...
@@ -26089,55 +26310,55 @@
#(ribcage
#(e)
#((top))
- #("i29615"))
+ #("1ft"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile)))))))))
- #{tmp 29642}#)
- (let ((#{tmp 29647}#
+ #{tmp 26049}#)
+ (let ((#{tmp 26054}#
($sc-dispatch
- #{x 29640}#
+ #{x 26047}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 29647}#
+ (if (if #{tmp 26054}#
(@apply
- (lambda (#{id 29651}#
- #{exp1 29652}#
- #{var 29653}#
- #{val 29654}#
- #{exp2 29655}#)
- (if (identifier? #{id 29651}#)
- (identifier? #{var 29653}#)
+ (lambda (#{id 26058}#
+ #{exp1 26059}#
+ #{var 26060}#
+ #{val 26061}#
+ #{exp2 26062}#)
+ (if (identifier? #{id 26058}#)
+ (identifier? #{var 26060}#)
#f))
- #{tmp 29647}#)
+ #{tmp 26054}#)
#f)
(@apply
- (lambda (#{id 29656}#
- #{exp1 29657}#
- #{var 29658}#
- #{val 29659}#
- #{exp2 29660}#)
+ (lambda (#{id 26063}#
+ #{exp1 26064}#
+ #{var 26065}#
+ #{val 26066}#
+ #{exp2 26067}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29630" "i29631" "i29632" "i29633" "i29634"))
+ #("1fz" "1g0" "1g1" "1g2" "1g3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -26145,13 +26366,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz" "1g0" "1g1" "1g2" "1g3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
'(#(syntax-object
x
@@ -26159,13 +26376,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz" "1g0" "1g1" "1g2" "1g3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -26173,13 +26386,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz" "1g0" "1g1" "1g2" "1g3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
.
#(syntax-object
@@ -26188,13 +26397,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz" "1g0" "1g1" "1g2" "1g3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -26202,13 +26407,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz" "1g0" "1g1" "1g2" "1g3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
'#(syntax-object
x
@@ -26216,13 +26417,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz" "1g0" "1g1" "1g2" "1g3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile))
'(#(syntax-object
set!
@@ -26230,13 +26427,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz" "1g0" "1g1" "1g2" "1g3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29612")))
+ #(ribcage #(x) #((top)) #("1fs")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26248,19 +26441,19 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
- #{var 29658}#
- #{val 29659}#)
+ #{var 26065}#
+ #{val 26066}#)
(list '#(syntax-object
syntax
((top)
@@ -26271,19 +26464,19 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
- #{exp2 29660}#))
- (list (cons #{id 29656}#
+ #{exp2 26067}#))
+ (list (cons #{id 26063}#
'(#(syntax-object
x
((top)
@@ -26294,16 +26487,16 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
#(syntax-object
...
@@ -26315,16 +26508,16 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26336,18 +26529,18 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
- (cons #{exp1 29657}#
+ (cons #{exp1 26064}#
'(#(syntax-object
x
((top)
@@ -26362,16 +26555,16 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
#(syntax-object
...
@@ -26387,18 +26580,18 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))))))
- (list #{id 29656}#
+ (list #{id 26063}#
(list '#(syntax-object
identifier?
((top)
@@ -26409,16 +26602,16 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26434,18 +26627,18 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
- #{id 29656}#))
+ #{id 26063}#))
(list '#(syntax-object
syntax
((top)
@@ -26456,68 +26649,68 @@
(top)
(top)
(top))
- #("i29630"
- "i29631"
- "i29632"
- "i29633"
- "i29634"))
+ #("1fz"
+ "1g0"
+ "1g1"
+ "1g2"
+ "1g3"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29612")))
+ #("1fs")))
(hygiene guile))
- #{exp1 29657}#))))))
- #{tmp 29647}#)
+ #{exp1 26064}#))))))
+ #{tmp 26054}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29640}#))))))))
+ #{x 26047}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 29692}#)
- (let ((#{tmp 29694}#
+ (lambda (#{x 26090}#)
+ (let ((#{tmp 26092}#
($sc-dispatch
- #{x 29692}#
+ #{x 26090}#
'(_ (any . any) any . each-any))))
- (if #{tmp 29694}#
+ (if #{tmp 26092}#
(@apply
- (lambda (#{id 29698}#
- #{args 29699}#
- #{b0 29700}#
- #{b1 29701}#)
+ (lambda (#{id 26096}#
+ #{args 26097}#
+ #{b0 26098}#
+ #{b1 26099}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i29674" "i29675" "i29676" "i29677"))
+ #("1g5" "1g6" "1g7" "1g8"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29671")))
+ #(ribcage #(x) #((top)) #("1g4")))
(hygiene guile))
- #{id 29698}#
+ #{id 26096}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i29674" "i29675" "i29676" "i29677"))
+ #("1g5" "1g6" "1g7" "1g8"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29671")))
+ #(ribcage #(x) #((top)) #("1g4")))
(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 26097}#
+ (cons #{b0 26098}# #{b1 26099}#)))))
+ #{tmp 26092}#)
+ (let ((#{tmp 26100}#
+ ($sc-dispatch #{x 26090}# '(_ any any))))
+ (if (if #{tmp 26100}#
(@apply
- (lambda (#{id 29706}# #{val 29707}#)
+ (lambda (#{id 26104}# #{val 26105}#)
(identifier?
'#(syntax-object
x
@@ -26525,29 +26718,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i29684" "i29685"))
+ #("1g9" "1ga"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29671")))
+ #(ribcage #(x) #((top)) #("1g4")))
(hygiene guile))))
- #{tmp 29702}#)
+ #{tmp 26100}#)
#f)
(@apply
- (lambda (#{id 29708}# #{val 29709}#)
+ (lambda (#{id 26106}# #{val 26107}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i29688" "i29689"))
+ #("1gb" "1gc"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29671")))
+ #(ribcage #(x) #((top)) #("1g4")))
(hygiene guile))
- #{id 29708}#
- #{val 29709}#))
- #{tmp 29702}#)
+ #{id 26106}#
+ #{val 26107}#))
+ #{tmp 26100}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29692}#))))))))
+ #{x 26090}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 1bf3c32..fd33e98 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -636,7 +636,12 @@
;; labels must be comparable with "eq?", have read-write invariance,
;; and distinct from symbols.
(define gen-label
- (lambda () (symbol->string (gensym "i"))))
+ (let ((i 0))
+ (lambda ()
+ (let ((n i))
+ ;; FIXME: Use atomic ops.
+ (set! i (1+ n))
+ (number->string n 36)))))
(define gen-labels
(lambda (ls)
@@ -786,6 +791,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 +1360,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 +2476,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)
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-164-g7d02e25,
Andy Wingo <=