[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, mlucy, updated. release_1-9-11-156-ga6
From: |
Michael Lucy |
Subject: |
[Guile-commits] GNU Guile branch, mlucy, updated. release_1-9-11-156-ga64c3d2 |
Date: |
Sat, 10 Jul 2010 09:13:09 +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=a64c3d2e166236e82f266df6a1b7157f2c0ad80d
The branch, mlucy has been updated
via a64c3d2e166236e82f266df6a1b7157f2c0ad80d (commit)
via ddd34a5aacc780bba7a98eae204239701663f023 (commit)
from b1066cb80466a666f26a00310150c51e083f388e (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 a64c3d2e166236e82f266df6a1b7157f2c0ad80d
Author: Michael Lucy <address@hidden>
Date: Sat Jul 10 04:12:06 2010 -0500
Added some documentation.
commit ddd34a5aacc780bba7a98eae204239701663f023
Author: Michael Lucy <address@hidden>
Date: Fri Jul 9 02:55:32 2010 -0500
fixed compilation
-----------------------------------------------------------------------
Summary of changes:
doc/ref/guile.texi | 2 +
doc/ref/peg.texi | 400 +
module/ice-9/peg.scm | 27 +-
module/ice-9/psyntax-pp.scm |17418 ++++++++++++++++++++++---------------------
test-suite/tests/peg.test | 9 +-
5 files changed, 9245 insertions(+), 8611 deletions(-)
create mode 100644 doc/ref/peg.texi
diff --git a/doc/ref/guile.texi b/doc/ref/guile.texi
index 29b6570..1809e50 100644
--- a/doc/ref/guile.texi
+++ b/doc/ref/guile.texi
@@ -302,6 +302,7 @@ available through both Scheme and C interfaces.
* Control Mechanisms:: Controlling the flow of program execution.
* Input and Output:: Ports, reading and writing.
* LALR(1) Parsing:: Generating LALR(1) parsers.
+* PEG Parsing:: Parsing Expression Grammars.
* Read/Load/Eval/Compile:: Reading and evaluating Scheme code.
* Memory Management:: Memory management and garbage collection.
* Objects:: Low level object orientation support.
@@ -330,6 +331,7 @@ available through both Scheme and C interfaces.
@include api-control.texi
@include api-io.texi
@include api-lalr.texi
address@hidden api-peg.texi
@include api-evaluation.texi
@include api-memory.texi
@include api-modules.texi
diff --git a/doc/ref/peg.texi b/doc/ref/peg.texi
new file mode 100644
index 0000000..326953c
--- /dev/null
+++ b/doc/ref/peg.texi
@@ -0,0 +1,400 @@
address@hidden -*-texinfo-*-
address@hidden This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C) 2006, 2010
address@hidden Free Software Foundation, Inc.
address@hidden See the file guile.texi for copying conditions.
+
address@hidden Parsing Expression Grammars
address@hidden Parsing Expression Grammars
+
+Parsing expression grammars (hereafter PEGs) are a particular way of
specifying formal languages for string processing. They can be used either for
text matching (think regular expressions) or for building recursive descent
parsers (think lex/yacc). Guile uses a slightly modified superset of PEG
syntax that allows more control over what information is preserved during
parsing.
+
+Wikipedia has a clear and concise introduction to PEGs if you want to
familiarize yourself with the syntax:
http://en.wikipedia.org/wiki/Parsing_expression_grammar.
+
+The module works by compiling PEGs down to lambda expressions. These can
either be stored in variables at compile-time by the define macros
(@code{define-nonterm} and @code{define-grammar}) or calculated explicitly at
runtime with the compile functions (@code{peg-sexp-compile} and
@code{peg-string-compile}).
+
+They can then be used for either parsing (@code{peg-parse}) or matching
(@code{peg-match}). For convenience, @code{peg-match} will also take pattern
literals in case you want to inline a simple search (people often use regular
expressions this way).
+
+The rest of this documentation consists of a syntax reference, an API
reference, and a tutorial.
+
address@hidden
+* PEG Syntax Reference::
+* PEG API Reference::
+* PEG Tutorial::
address@hidden menu
+
address@hidden PEG Syntax Reference
address@hidden PEG Syntax Reference
+
address@hidden Normal PEG Syntax:
+
address@hidden
+Format:
+<choice type> <variables>:
+<string syntax>
+<S-expression syntax>
+
+Sequence a b:
+"a b"
+(and a b)
+
+Ordered Choice a b:
+"a/b"
+(or a b)
+
+Zero or more a:
+"a*"
+(body lit a *)
+
+One or more a:
+"a+"
+(body lit a +)
+
+Optional a:
+"e?"
+(body lit a ?)
+
+And predicate a:
+"&a"
+(body & a 1)
+
+Not predicate a:
+"!a"
+(body ! a 1)
+
+Any character:
+"."
+peg-any
+
+Range of characters a to z:
+"[a-z]"
+(range #\a #\z)
+
+String literal abc:
+"'abc'"
+"abc"
address@hidden example
+
+Example: @*
address@hidden"(a !b / c &d*) 'e'+"} @*
+Would be:
address@hidden
+(and
+ (or
+ (and a (body ! b 1))
+ (and c (body & d *)))
+ (body lit "e" +))
address@hidden lisp
+
address@hidden Extended Syntax:
address@hidden
+Format:
+<choice type> <variables>:
+<S-expression syntax>
+
+Ignore the text matching a:
+(ignore a)
+
+Capture the text matching a:
+(capture a)
+
+Embed the PEG pattern a:
+(peg a)
address@hidden example
+
+Example: @*
address@hidden"!a / 'b'"} @*
+Would be:
address@hidden
+(or (peg "!a") "b")
address@hidden lisp
+
address@hidden PEG API Reference
address@hidden PEG API Reference
+
address@hidden Define Macros
+
+The most straightforward way to define a PEG is by using one of the define
macros (both of these macroexpand into @code{define} expressions). More
complicated (and perhaps enlightening) examples can be found in the tutorial.
+
address@hidden {Scheme Macro} define-grammar peg-string
+Defines all the nonterminals in the PEG grammar @var{peg-string}. More
precisely, @code{define-grammar} takes a superset of PEG grammars. A normal
PEG grammar has a ``<-'' between the nonterminal and the pattern.
@code{define-grammar} uses this symbol to determine what information it should
propogate up the parse tree. The normal ``<-'' propagates the matched text up
the parse tree, ``<--'' propogates the matched text up the parse tree tagged
with the name of the nonterminal, and ``<'' discards that matched text and
propagates nothing up the parse tree.
+
+For example, if we:
address@hidden
+(define-grammar
+ "as <- 'a'+
+bs <- 'b'+
+asORbs <- as/bs")
+(define-grammar
+ "asTAG <-- 'a'+
+bsTAG <-- 'b'+
+asORbsTAG <-- asTAG/bsTAG")
address@hidden lisp
+Then:
address@hidden
+(peg-parse asORbs "aabbcc") @result{} (2 "aa")
+(peg-parse asORbsTAG "aabbcc") @result{} (2 (asORbsTAG (asTAG "aa")))
address@hidden lisp
+
+Note that in doing this, we have bound 6 variables at the toplevel (@var{as},
@var{bs}, @var{asORbs}, @var{asTAG}, @var{bsTAG}, and @var{asORbsTAG}).
address@hidden deffn
+
address@hidden {Scheme Macro} define-nonterm name capture-type peg-sexp
+Defines a single nonterminal @var{name}. @var{capture-type} determines how
much information is passed up the parse tree. @var{peg-sexp} is a PEG in
S-expression form.
+
+Possible values for capture-type: @*
address@hidden: passes the matched text up the parse tree tagged with the name
of the nonterminal. @*
address@hidden: passes the matched text up the parse tree. @*
address@hidden: passes nothing up the parse tree.
+
+For Example, if we:
address@hidden
+(define-nonterm as body (body lit "a" +))
+(define-nonterm bs body (body lit "b" +))
+(define-nonterm asORbs body (or as bs))
+(define-nonterm asTAG all (body lit "a" +))
+(define-nonterm bsTAG all (body lit "b" +))
+(define-nonterm asORbsTAG all (or asTAG bsTAG))
address@hidden lisp
+Then:
address@hidden
+(peg-parse asORbs "aabbcc") @result{} (2 "aa")
+(peg-parse asORbsTAG "aabbcc") @result{} (2 (asORbsTAG (asTAG "aa")))
address@hidden lisp
+
+Note that in doing this, we have bound 6 variables at the toplevel (@var{as},
@var{bs}, @var{asORbs}, @var{asTAG}, @var{bsTAG}, and @var{asORbsTAG}).
address@hidden deffn
+
+These are macros, with all that entails. If you've built up a list at runtime
and want to define a new PEG from it, you should e.g.:
address@hidden
+(define exp '(body lit "a" +))
+(eval `(define-nonterm as body ,exp) (interaction-environment))
address@hidden lisp
+The @code{eval} function has a bad reputation for efficiency, but this is
mostly because of the extra work that has to be done compiling the expressions,
which has to be done anyway when compiling the PEGs at runtime.
+
address@hidden Compile Functions
+It is sometimes useful to be able to compile anonymous PEG patterns at
runtime. These functions let you do that using either syntax.
+
address@hidden {Scheme Procedure} peg-string-compile peg-string capture-type
+Compiles the PEG pattern in @var{peg-string} propagating according to
@var{capture-type} (capture-type can be any of the values from
@code{define-nonterm}).
address@hidden deffn
+
+
address@hidden {Scheme Procedure} peg-sexp-compile peg-sexp capture-type
+Compiles the PEG pattern in @var{peg-sexp} propagating according to
@var{capture-type} (capture-type can be any of the values from
@code{define-nonterm}).
address@hidden deffn
+
+
address@hidden Parsing & Matching Functions
+
+For our purposes, ``parsing'' means parsing a string into a tree starting from
the first character, while ``matching'' means searching through the string for
a substring. In practice, the only difference between the two functions is
that @code{peg-parse} gives up if it can't find a valid substring starting at
index 0 and @code{peg-match} keeps looking. They are both equally capable of
``parsing'' and ``matching'' given those constraints.
+
address@hidden {Scheme Procedure} peg-parse nonterm string
+Parses @var{string} using the PEG stored in @var{nonterm}. If no match was
found, @code{peg-parse} returns @code{#f}. If a match was found, the ending
index and parse tree of the match are returned in a list.
+
+The capture-type argument to define-nonterm allows you to choose what
information to hold on to while parsing. The options are:
address@hidden: tag the matched text with the nonterminal
address@hidden: just the matched text
address@hidden: nothing
+
address@hidden
+(define-nonterm as all (body lit "a" +))
+(peg-parse as "aabbcc") @result{} (2 (as "aa"))
+
+(define-nonterm as body (body lit "a" +))
+(peg-parse as "aabbcc") @result{} (2 "aa")
+
+(define-nonterm as none (body lit "a" +))
+(peg-parse as "aabbcc") @result{} (2 ())
+
+(define-nonterm bs body (body lit "b" +))
+(peg-parse bs "aabbcc") @result{} #f
address@hidden lisp
address@hidden deffn
+
address@hidden {Scheme Macro} peg-match nonterm-or-peg string
+Searches through @var{string} looking for a matching subexpression.
@var{nonterm-or-peg} can either be a nonterminal or a literal PEG pattern.
When a literal PEG pattern is provided, @code{peg-match} works very similarly
to the regular expression searches many programmars are used to. If no match
was found, @code{peg-match} returns false. If a match was found, the starting
index, ending index, and parse tree of the match are returned in a list.
+
address@hidden
+(define-nonterm as body (body lit "a" +))
+(peg-match as "aabbcc") @result{} (0 2 "aa")
+(peg-match (body lit "a" +) "aabbcc") @result{} (0 2 "aa")
+(peg-match "'a'+" "aabbcc") @result{} (0 2 "aa")
+
+(define-nonterm as all (body lit "a" +))
+(peg-match as "aabbcc") @result{} (0 2 (as "aa"))
+
+(define-nonterm bs body (body lit "b" +))
+(peg-match bs "aabbcc") @result{} (2 4 "bb")
+(peg-match (body lit "b" +) "aabbcc") @result{} (2 4 "bb")
+(peg-match "'b'+" "aabbcc") @result{} (2 4 "bb")
+
+(define-nonterm zs body (body lit "z" +))
+(peg-match zs "aabbcc") @result{} #f
+(peg-match (body lit "z" +) "aabbcc") @result{} #f
+(peg-match "'z'+" "aabbcc") @result{} #f
address@hidden lisp
address@hidden deffn
+
address@hidden Miscellaneous
+
address@hidden {Scheme Procedure} context-flatten tst lst
+Takes a predicate @var{tst} and a list @var{lst}. Flattens @var{lst} until
all elements are either atoms or satisfy @var{tst}. If @var{lst} itself
satisfies @var{tst}, @code{list lst} is returned (this is a flat list whose
only element satisfies @var{tst}).
+
address@hidden
+(context-flatten (lambda (x) (and (number? (car x)) (= (car x) 1))) '(2 2 (1 1
(2 2)) (2 2 (1 1)))) @result{} (2 2 (1 1 (2 2)) 2 2 (1 1))
+(context-flatten (lambda (x) (and (number? (car x)) (= (car x) 1))) '(1 1 (1 1
(2 2)) (2 2 (1 1)))) @result{} ((1 1 (1 1 (2 2)) (2 2 (1 1))))
address@hidden lisp
+
+If you're wondering why this is here, take a look at the tutorial.
address@hidden deffn
+
address@hidden PEG Tutorial
address@hidden PEG Tutorial
+
+Right now this only contains a few examples and a small explanation of
@code{context-flatten}.
+
+We can parse simple mathematical expressions with a PEG from Wikipedia:
+
address@hidden
+(define-grammar
+ "Value <-- [0-9]+ / '(' Expr ')'
+Product <-- Value (('*' / '/') Value)*
+Sum <-- Product (('+' / '-') Product)*
+Expr <- Sum")
address@hidden lisp
+
+Then:
address@hidden
+(peg-parse Value "1+1/2+(1+1)/2") @result{}
+(13
+ (Sum (Product (Value "1"))
+ (("+" (Product (Value "1") ("/" (Value "2"))))
+ ("+"
+ (Product
+ (Value "("
+ (Sum (Product (Value "1"))
+ ("+" (Product (Value "1"))))
+ ")")
+ ("/" (Value "2")))))))
address@hidden lisp
+
+Notice that the lists aren't completely flat. The PEG parser flattens the
lists and concatenates the strings as much as it can for you without losing
information (it may not be obvious looking at the flattened list, but this is
what you want---otherwise the parsed expressions end up almost unusable).
+
+One unfortunate side-effect of this is that sometimes more information than
you want is preserved.
+For instance:
+
address@hidden
+(peg-parse Sum "1+1") @result{}
+(3
+ (Sum (Product (Value "1"))
+ ("+" (Product (Value "1")))))
address@hidden lisp
+But:
address@hidden
+(peg-parse Sum "1+1+1") @result{}
+(5
+ (Sum (Product (Value "1"))
+ (("+" (Product (Value "1")))
+ ("+" (Product (Value "1"))))))
address@hidden lisp
+
+In the second example, the parser has to decide whether or not to discard the
information that both of the @code{("+" (Product (Value "1")))} forms are part
of the same @code{"(('+' / '-') Product)*"} term of the PEG. It errs on the
side of caution and preserves the nesting.
+
+However, in this case we don't care about that nesting information---the
distinction between the first @code{Product} and all the others is a
meaningless artifact of the PEG's structure. One straightforward solution is
the @code{context-flatten} function.
+
address@hidden
+(context-flatten
+ (lambda (x) (not (list? (car x))))
+ (cdr '(Sum (Product (Value "1"))
+ (("+" (Product (Value "1")))
+ ("+" (Product (Value "1"))))))) @result{}
+((Product (Value "1"))
+ ("+" (Product (Value "1")))
+ ("+" (Product (Value "1"))))
address@hidden lisp
+
+If you're ever uncertain about the potential results of parsing something,
remember the two absolute rules: @*
+1. No parsing information will ever be discarded. @*
+2. There will never be any lists with fewer than 2 elements.
+
+For the purposes of (1), "parsing information" means things tagged with the
@code{any} keyword or the ``<--'' symbol. Plain strings will be concatenated
for readability.
+
+For example, consider the following PEG which parses comments (also from
wikipedia):
address@hidden
+(define-grammar
+ "Begin <- '(*'
+End <- '*)'
+C <- Begin N* End
+N <- C / (!Begin !End Z)
+Z <- .")
+
+(peg-parse C "(*abc(*def*)*)(*second*)") @result{} (14 "(*abc(*def*)*)")
address@hidden lisp
+
+But if we change @code{Begin} and @code{End} to capture nonterminals
(equivalent to the @code{any} keyword in S-expression syntax):
+
address@hidden
+(define-grammar
+ "Begin <-- '(*'
+End <-- '*)'
+C <- Begin N* End
+N <- C / (!Begin !End Z)
+Z <- .")
+
+(peg-parse C "(*abc(*def*)*)(*second*)") @result{}
+(14
+ ((Begin "(*")
+ ("abc" ((Begin "(*") "def" (End "*)")))
+ (End "*)")))
address@hidden lisp
+
+Since the @code{Begin} and @code{End} nonterminals are now capture
nonterminals, the parser won't discard information about what they matched.
@code{Z}, however, is still a normal nonterminal, so when it matched "d" "e"
and "f" in a row the parser combines these into "def".
+
+The short version is that 95% of the time the parser does what you want it to,
and if you want to discard information about an expression that can match more
than one capture nonterminal (e.g. @code{"(('+' / '-') Product)*"}) you need to
call @code{context-flatten} with the test you want. If this seems annoying,
another solution is presented in the extended example below.
+
address@hidden Extended Example
+
+For a longer example, consider the following grammar that parses (highly)
simplified C functions:
address@hidden
+(define-grammar
+ "cfunc <-- cSP ctype cSP cname cSP cargs cLB cSP cbody cRB
+ctype <-- cidentifier
+cname <-- cidentifier
+cargs <-- cLP (! (cSP cRP) carg cSP (cCOMMA / cRP) cSP)* cSP
+carg <-- cSP ctype cSP cname
+cbody <-- cstatement *
+cidentifier <- [a-zA-z][a-zA-Z0-9_]*
+cstatement <-- (!';'.)*cSC cSP
+cSC < ';'
+cCOMMA < ','
+cLP < '('
+cRP < ')'
+cLB < '@{'
+cRB < '@}'
+cSP < [ \t\n]*")
address@hidden lisp
+
+Then:
address@hidden
+(peg-parse cfunc "int square(int a) @{ return a*a;@}") @result{}
+(32
+ (cfunc (ctype "int")
+ (cname "square")
+ (cargs (carg (ctype "int") (cname "a")))
+ (cbody (cstatement "return a*a"))))
address@hidden lisp
+
+And:
address@hidden
+(peg-parse cfunc "int mod(int a, int b) @{ int c = a/b;return a-b*c; @}")
@result{}
+(52
+ (cfunc (ctype "int")
+ (cname "mod")
+ (cargs (carg (ctype "int") (cname "a"))
+ (carg (ctype "int") (cname "b")))
+ (cbody (cstatement "int c = a/b")
+ (cstatement "return a- b*c"))))
address@hidden lisp
+
+By wrapping all the @code{carg} nonterminals in a @code{cargs} nonterminal, we
were able to remove any ambiguity in the parsing structure and avoid having to
call @code{context-flatten} on the output of @code{peg-parse}. We used the
same trick with the @code{cstatement} nonterminals, wrapping them in a
@code{cbody} nonterminal.
diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm
index 835a536..5c07252 100644
--- a/module/ice-9/peg.scm
+++ b/module/ice-9/peg.scm
@@ -1,9 +1,14 @@
(define-module (ice-9 peg)
- :export (peg-sexp-compile peg-string-compile context-flatten peg-parse
define-nonterm peg-find get-code define-grammar)
+ :export (peg-sexp-compile peg-string-compile context-flatten peg-parse
define-nonterm define-nonterm-f peg-match get-code define-grammar
define-grammar-f)
:export-syntax (until-works string-collapse single? push-not-null!
single-filter push!)
:use-module (ice-9 pretty-print))
+(define (eeval exp)
+ (eval exp (interaction-environment)))
(use-modules (ice-9 pretty-print))
+(use-modules (language tree-il))
+
+(eval-when (compile load eval)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; CONVENIENCE MACROS
@@ -120,7 +125,7 @@
`(list ,at '()))
(#t
(begin
- (pretty-print `(cg-generic-ret-error ,str ,strlen ,at ,code))
+ (pretty-print `(cg-generic-ret-error ,accum ,name ,body-uneval ,at))
(pretty-print "Defaulting to accum of none.\n")
`(list ,at '())))))))
(define cggr cg-generic-ret)
@@ -195,7 +200,9 @@
((eq? (car match) 'ignore) ;; match but don't parse
(cg-match-func (cadr match) 'none))
((eq? (car match) 'capture) ;; parse
- (cg-match-func (cadr match) 'all))
+ (cg-match-func (cadr match) 'body))
+ ((eq? (car match) 'peg)
+ (pattern-builder (cadr match) (baf accum)))
((eq? (car match) 'and) (cg-and (cdr match) (baf accum)))
((eq? (car match) 'or) (cg-or (cdr match) (baf accum)))
((eq? (car match) 'body)
@@ -400,6 +407,10 @@
(if (single? res) (car res) res))
lst))
+;; Makes sure LST is a list.
+(define (mklst lst)
+ (if (not (list? lst)) (list lst) lst))
+
;; Takes a list and "flattens" it, using tst to know when to stop instead of
;; terminating on atoms.
(define (flatmaster tst lst)
@@ -407,7 +418,7 @@
lst
(if (tst lst)
(list lst)
- (apply append (map (lambda (x) (flatmaster tst x)) lst)))))
+ (apply append (map (lambda (x) (mklst (flatmaster tst x)) lst))))))
;; Gets the left-hand depth of a list.
(define (depth lst)
@@ -631,9 +642,12 @@ sp <- [ \t\n]*
(define peg-parse parse)
;; define-nonterm
+;; define-nonterm-f
(define-macro (peg-find peg-matcher pattern)
(peg-find-f peg-matcher pattern))
+(define-macro (peg-match peg-matcher pattern)
+ (peg-find-f peg-matcher pattern))
(define (peg-find-f peg-matcher pattern)
(safe-bind
(at strlen ret end match)
@@ -652,11 +666,13 @@ sp <- [ \t\n]*
(,match (cadr ,ret)))
(list ,at ,end (string-collapse ,match)))))))))
+
(define-macro (define-grammar str)
(peg-parser str))
+(define define-grammar-f peg-parser)
(define-macro (tst x)
- (macroexpand (* x 2)))
+ (compile (macroexpand (* x 2)) #:from 'tree-il))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; OLD CODE
@@ -823,3 +839,4 @@ sp <- [ \t\n]*
;; (define-nonterm c-a (and "a" (body lit c-a ?) "b"))
;; (define-nonterm c-b (and "b" (body lit c-b ?) "c"))
+)
\ No newline at end of file
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 9a00c80..f580381 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1224 +2,1281 @@
(if #f #f)
(letrec*
- ((#{and-map*\ 36}#
- (lambda (#{f\ 200}# #{first\ 201}# . #{rest\ 202}#)
+ ((#{and-map*\ 16971}#
+ (lambda (#{f\ 17135}# #{first\ 17136}# . #{rest\ 17137}#)
(begin
- (let ((#{t\ 208}# (null? #{first\ 201}#)))
- (if #{t\ 208}#
- #{t\ 208}#
- (if (null? #{rest\ 202}#)
+ (let ((#{t\ 17143}# (null? #{first\ 17136}#)))
+ (if #{t\ 17143}#
+ #{t\ 17143}#
+ (if (null? #{rest\ 17137}#)
(letrec*
- ((#{andmap\ 212}#
- (lambda (#{first\ 213}#)
+ ((#{andmap\ 17147}#
+ (lambda (#{first\ 17148}#)
(begin
- (let ((#{x\ 216}# (car #{first\ 213}#))
- (#{first\ 217}# (cdr #{first\ 213}#)))
- (if (null? #{first\ 217}#)
- (#{f\ 200}# #{x\ 216}#)
- (if (#{f\ 200}# #{x\ 216}#)
- (#{andmap\ 212}# #{first\ 217}#)
+ (let ((#{x\ 17151}# (car #{first\ 17148}#))
+ (#{first\ 17152}# (cdr #{first\ 17148}#)))
+ (if (null? #{first\ 17152}#)
+ (#{f\ 17135}# #{x\ 17151}#)
+ (if (#{f\ 17135}# #{x\ 17151}#)
+ (#{andmap\ 17147}# #{first\ 17152}#)
#f)))))))
- (begin (#{andmap\ 212}# #{first\ 201}#)))
+ (begin (#{andmap\ 17147}# #{first\ 17136}#)))
(letrec*
- ((#{andmap\ 223}#
- (lambda (#{first\ 224}# #{rest\ 225}#)
+ ((#{andmap\ 17158}#
+ (lambda (#{first\ 17159}# #{rest\ 17160}#)
(begin
- (let ((#{x\ 230}# (car #{first\ 224}#))
- (#{xr\ 231}# (map car #{rest\ 225}#))
- (#{first\ 232}# (cdr #{first\ 224}#))
- (#{rest\ 233}# (map cdr #{rest\ 225}#)))
- (if (null? #{first\ 232}#)
- (@apply #{f\ 200}# (cons #{x\ 230}# #{xr\ 231}#))
+ (let ((#{x\ 17165}# (car #{first\ 17159}#))
+ (#{xr\ 17166}# (map car #{rest\ 17160}#))
+ (#{first\ 17167}# (cdr #{first\ 17159}#))
+ (#{rest\ 17168}# (map cdr #{rest\ 17160}#)))
+ (if (null? #{first\ 17167}#)
+ (@apply
+ #{f\ 17135}#
+ (cons #{x\ 17165}# #{xr\ 17166}#))
(if (@apply
- #{f\ 200}#
- (cons #{x\ 230}# #{xr\ 231}#))
- (#{andmap\ 223}# #{first\ 232}# #{rest\ 233}#)
+ #{f\ 17135}#
+ (cons #{x\ 17165}# #{xr\ 17166}#))
+ (#{andmap\ 17158}#
+ #{first\ 17167}#
+ #{rest\ 17168}#)
#f)))))))
(begin
- (#{andmap\ 223}# #{first\ 201}# #{rest\ 202}#))))))))))
+ (#{andmap\ 17158}#
+ #{first\ 17136}#
+ #{rest\ 17137}#))))))))))
(begin
- (let ((#{make-primitive-ref\ 242}# (if #f #f))
- (#{fx+\ 281}# (if #f #f))
- (#{fx-\ 283}# (if #f #f))
- (#{fx=\ 285}# (if #f #f))
- (#{fx<\ 287}# (if #f #f))
- (#{set-syntax-object-expression!\ 352}#
+ (let ((#{make-primitive-ref\ 17177}# (if #f #f))
+ (#{fx+\ 17216}# (if #f #f))
+ (#{fx-\ 17218}# (if #f #f))
+ (#{fx=\ 17220}# (if #f #f))
+ (#{fx<\ 17222}# (if #f #f))
+ (#{set-syntax-object-expression!\ 17287}#
(if #f #f))
- (#{set-syntax-object-wrap!\ 354}# (if #f #f))
- (#{set-syntax-object-module!\ 356}# (if #f #f))
- (#{binding-type\ 363}# (if #f #f))
- (#{binding-value\ 365}# (if #f #f))
- (#{make-wrap\ 385}# (if #f #f))
- (#{wrap-marks\ 387}# (if #f #f))
- (#{wrap-subst\ 389}# (if #f #f))
- (#{ribcage?\ 403}# (if #f #f)))
+ (#{set-syntax-object-wrap!\ 17289}# (if #f #f))
+ (#{set-syntax-object-module!\ 17291}# (if #f #f))
+ (#{binding-type\ 17298}# (if #f #f))
+ (#{binding-value\ 17300}# (if #f #f))
+ (#{make-wrap\ 17320}# (if #f #f))
+ (#{wrap-marks\ 17322}# (if #f #f))
+ (#{wrap-subst\ 17324}# (if #f #f))
+ (#{ribcage?\ 17338}# (if #f #f)))
(letrec*
- ((#{make-void\ 238}#
- (lambda (#{src\ 698}#)
+ ((#{make-void\ 17173}#
+ (lambda (#{src\ 17633}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 698}#)))
- (#{make-const\ 240}#
- (lambda (#{src\ 700}# #{exp\ 701}#)
+ #{src\ 17633}#)))
+ (#{make-const\ 17175}#
+ (lambda (#{src\ 17635}# #{exp\ 17636}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src\ 700}#
- #{exp\ 701}#)))
- (#{make-lexical-ref\ 244}#
- (lambda (#{src\ 708}# #{name\ 709}# #{gensym\ 710}#)
+ #{src\ 17635}#
+ #{exp\ 17636}#)))
+ (#{make-lexical-ref\ 17179}#
+ (lambda (#{src\ 17643}#
+ #{name\ 17644}#
+ #{gensym\ 17645}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src\ 708}#
- #{name\ 709}#
- #{gensym\ 710}#)))
- (#{make-lexical-set\ 246}#
- (lambda (#{src\ 714}#
- #{name\ 715}#
- #{gensym\ 716}#
- #{exp\ 717}#)
+ #{src\ 17643}#
+ #{name\ 17644}#
+ #{gensym\ 17645}#)))
+ (#{make-lexical-set\ 17181}#
+ (lambda (#{src\ 17649}#
+ #{name\ 17650}#
+ #{gensym\ 17651}#
+ #{exp\ 17652}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src\ 714}#
- #{name\ 715}#
- #{gensym\ 716}#
- #{exp\ 717}#)))
- (#{make-module-ref\ 248}#
- (lambda (#{src\ 722}#
- #{mod\ 723}#
- #{name\ 724}#
- #{public?\ 725}#)
+ #{src\ 17649}#
+ #{name\ 17650}#
+ #{gensym\ 17651}#
+ #{exp\ 17652}#)))
+ (#{make-module-ref\ 17183}#
+ (lambda (#{src\ 17657}#
+ #{mod\ 17658}#
+ #{name\ 17659}#
+ #{public?\ 17660}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src\ 722}#
- #{mod\ 723}#
- #{name\ 724}#
- #{public?\ 725}#)))
- (#{make-module-set\ 250}#
- (lambda (#{src\ 730}#
- #{mod\ 731}#
- #{name\ 732}#
- #{public?\ 733}#
- #{exp\ 734}#)
+ #{src\ 17657}#
+ #{mod\ 17658}#
+ #{name\ 17659}#
+ #{public?\ 17660}#)))
+ (#{make-module-set\ 17185}#
+ (lambda (#{src\ 17665}#
+ #{mod\ 17666}#
+ #{name\ 17667}#
+ #{public?\ 17668}#
+ #{exp\ 17669}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src\ 730}#
- #{mod\ 731}#
- #{name\ 732}#
- #{public?\ 733}#
- #{exp\ 734}#)))
- (#{make-toplevel-ref\ 252}#
- (lambda (#{src\ 740}# #{name\ 741}#)
+ #{src\ 17665}#
+ #{mod\ 17666}#
+ #{name\ 17667}#
+ #{public?\ 17668}#
+ #{exp\ 17669}#)))
+ (#{make-toplevel-ref\ 17187}#
+ (lambda (#{src\ 17675}# #{name\ 17676}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src\ 740}#
- #{name\ 741}#)))
- (#{make-toplevel-set\ 254}#
- (lambda (#{src\ 744}# #{name\ 745}# #{exp\ 746}#)
+ #{src\ 17675}#
+ #{name\ 17676}#)))
+ (#{make-toplevel-set\ 17189}#
+ (lambda (#{src\ 17679}# #{name\ 17680}# #{exp\ 17681}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src\ 744}#
- #{name\ 745}#
- #{exp\ 746}#)))
- (#{make-toplevel-define\ 256}#
- (lambda (#{src\ 750}# #{name\ 751}# #{exp\ 752}#)
+ #{src\ 17679}#
+ #{name\ 17680}#
+ #{exp\ 17681}#)))
+ (#{make-toplevel-define\ 17191}#
+ (lambda (#{src\ 17685}# #{name\ 17686}# #{exp\ 17687}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src\ 750}#
- #{name\ 751}#
- #{exp\ 752}#)))
- (#{make-conditional\ 258}#
- (lambda (#{src\ 756}#
- #{test\ 757}#
- #{consequent\ 758}#
- #{alternate\ 759}#)
+ #{src\ 17685}#
+ #{name\ 17686}#
+ #{exp\ 17687}#)))
+ (#{make-conditional\ 17193}#
+ (lambda (#{src\ 17691}#
+ #{test\ 17692}#
+ #{consequent\ 17693}#
+ #{alternate\ 17694}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src\ 756}#
- #{test\ 757}#
- #{consequent\ 758}#
- #{alternate\ 759}#)))
- (#{make-application\ 260}#
- (lambda (#{src\ 764}# #{proc\ 765}# #{args\ 766}#)
+ #{src\ 17691}#
+ #{test\ 17692}#
+ #{consequent\ 17693}#
+ #{alternate\ 17694}#)))
+ (#{make-application\ 17195}#
+ (lambda (#{src\ 17699}# #{proc\ 17700}# #{args\ 17701}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 764}#
- #{proc\ 765}#
- #{args\ 766}#)))
- (#{make-sequence\ 262}#
- (lambda (#{src\ 770}# #{exps\ 771}#)
+ #{src\ 17699}#
+ #{proc\ 17700}#
+ #{args\ 17701}#)))
+ (#{make-sequence\ 17197}#
+ (lambda (#{src\ 17705}# #{exps\ 17706}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 770}#
- #{exps\ 771}#)))
- (#{make-lambda\ 264}#
- (lambda (#{src\ 774}# #{meta\ 775}# #{body\ 776}#)
+ #{src\ 17705}#
+ #{exps\ 17706}#)))
+ (#{make-lambda\ 17199}#
+ (lambda (#{src\ 17709}# #{meta\ 17710}# #{body\ 17711}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src\ 774}#
- #{meta\ 775}#
- #{body\ 776}#)))
- (#{make-lambda-case\ 266}#
- (lambda (#{src\ 780}#
- #{req\ 781}#
- #{opt\ 782}#
- #{rest\ 783}#
- #{kw\ 784}#
- #{inits\ 785}#
- #{gensyms\ 786}#
- #{body\ 787}#
- #{alternate\ 788}#)
+ #{src\ 17709}#
+ #{meta\ 17710}#
+ #{body\ 17711}#)))
+ (#{make-lambda-case\ 17201}#
+ (lambda (#{src\ 17715}#
+ #{req\ 17716}#
+ #{opt\ 17717}#
+ #{rest\ 17718}#
+ #{kw\ 17719}#
+ #{inits\ 17720}#
+ #{gensyms\ 17721}#
+ #{body\ 17722}#
+ #{alternate\ 17723}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src\ 780}#
- #{req\ 781}#
- #{opt\ 782}#
- #{rest\ 783}#
- #{kw\ 784}#
- #{inits\ 785}#
- #{gensyms\ 786}#
- #{body\ 787}#
- #{alternate\ 788}#)))
- (#{make-let\ 268}#
- (lambda (#{src\ 798}#
- #{names\ 799}#
- #{gensyms\ 800}#
- #{vals\ 801}#
- #{body\ 802}#)
+ #{src\ 17715}#
+ #{req\ 17716}#
+ #{opt\ 17717}#
+ #{rest\ 17718}#
+ #{kw\ 17719}#
+ #{inits\ 17720}#
+ #{gensyms\ 17721}#
+ #{body\ 17722}#
+ #{alternate\ 17723}#)))
+ (#{make-let\ 17203}#
+ (lambda (#{src\ 17733}#
+ #{names\ 17734}#
+ #{gensyms\ 17735}#
+ #{vals\ 17736}#
+ #{body\ 17737}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src\ 798}#
- #{names\ 799}#
- #{gensyms\ 800}#
- #{vals\ 801}#
- #{body\ 802}#)))
- (#{make-letrec\ 270}#
- (lambda (#{src\ 808}#
- #{in-order?\ 809}#
- #{names\ 810}#
- #{gensyms\ 811}#
- #{vals\ 812}#
- #{body\ 813}#)
+ #{src\ 17733}#
+ #{names\ 17734}#
+ #{gensyms\ 17735}#
+ #{vals\ 17736}#
+ #{body\ 17737}#)))
+ (#{make-letrec\ 17205}#
+ (lambda (#{src\ 17743}#
+ #{in-order?\ 17744}#
+ #{names\ 17745}#
+ #{gensyms\ 17746}#
+ #{vals\ 17747}#
+ #{body\ 17748}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src\ 808}#
- #{in-order?\ 809}#
- #{names\ 810}#
- #{gensyms\ 811}#
- #{vals\ 812}#
- #{body\ 813}#)))
- (#{make-dynlet\ 272}#
- (lambda (#{src\ 820}#
- #{fluids\ 821}#
- #{vals\ 822}#
- #{body\ 823}#)
+ #{src\ 17743}#
+ #{in-order?\ 17744}#
+ #{names\ 17745}#
+ #{gensyms\ 17746}#
+ #{vals\ 17747}#
+ #{body\ 17748}#)))
+ (#{make-dynlet\ 17207}#
+ (lambda (#{src\ 17755}#
+ #{fluids\ 17756}#
+ #{vals\ 17757}#
+ #{body\ 17758}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src\ 820}#
- #{fluids\ 821}#
- #{vals\ 822}#
- #{body\ 823}#)))
- (#{lambda?\ 275}#
- (lambda (#{x\ 828}#)
- (if (struct? #{x\ 828}#)
- (eq? (struct-vtable #{x\ 828}#)
+ #{src\ 17755}#
+ #{fluids\ 17756}#
+ #{vals\ 17757}#
+ #{body\ 17758}#)))
+ (#{lambda?\ 17210}#
+ (lambda (#{x\ 17763}#)
+ (if (struct? #{x\ 17763}#)
+ (eq? (struct-vtable #{x\ 17763}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta\ 277}#
- (lambda (#{x\ 832}#) (struct-ref #{x\ 832}# 1)))
- (#{set-lambda-meta!\ 279}#
- (lambda (#{x\ 834}# #{v\ 835}#)
- (struct-set! #{x\ 834}# 1 #{v\ 835}#)))
- (#{top-level-eval-hook\ 289}#
- (lambda (#{x\ 838}# #{mod\ 839}#)
- (primitive-eval #{x\ 838}#)))
- (#{local-eval-hook\ 291}#
- (lambda (#{x\ 842}# #{mod\ 843}#)
- (primitive-eval #{x\ 842}#)))
- (#{put-global-definition-hook\ 294}#
- (lambda (#{symbol\ 846}# #{type\ 847}# #{val\ 848}#)
+ (#{lambda-meta\ 17212}#
+ (lambda (#{x\ 17767}#)
+ (struct-ref #{x\ 17767}# 1)))
+ (#{set-lambda-meta!\ 17214}#
+ (lambda (#{x\ 17769}# #{v\ 17770}#)
+ (struct-set! #{x\ 17769}# 1 #{v\ 17770}#)))
+ (#{top-level-eval-hook\ 17224}#
+ (lambda (#{x\ 17773}# #{mod\ 17774}#)
+ (primitive-eval #{x\ 17773}#)))
+ (#{local-eval-hook\ 17226}#
+ (lambda (#{x\ 17777}# #{mod\ 17778}#)
+ (primitive-eval #{x\ 17777}#)))
+ (#{put-global-definition-hook\ 17229}#
+ (lambda (#{symbol\ 17781}#
+ #{type\ 17782}#
+ #{val\ 17783}#)
(module-define!
(current-module)
- #{symbol\ 846}#
+ #{symbol\ 17781}#
(make-syntax-transformer
- #{symbol\ 846}#
- #{type\ 847}#
- #{val\ 848}#))))
- (#{get-global-definition-hook\ 296}#
- (lambda (#{symbol\ 852}# #{module\ 853}#)
+ #{symbol\ 17781}#
+ #{type\ 17782}#
+ #{val\ 17783}#))))
+ (#{get-global-definition-hook\ 17231}#
+ (lambda (#{symbol\ 17787}# #{module\ 17788}#)
(begin
- (if (if (not #{module\ 853}#) (current-module) #f)
+ (if (if (not #{module\ 17788}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 852}#))
+ #{symbol\ 17787}#))
(begin
- (let ((#{v\ 859}# (module-variable
- (if #{module\ 853}#
- (resolve-module (cdr #{module\ 853}#))
- (current-module))
- #{symbol\ 852}#)))
- (if #{v\ 859}#
- (if (variable-bound? #{v\ 859}#)
+ (let ((#{v\ 17794}#
+ (module-variable
+ (if #{module\ 17788}#
+ (resolve-module (cdr #{module\ 17788}#))
+ (current-module))
+ #{symbol\ 17787}#)))
+ (if #{v\ 17794}#
+ (if (variable-bound? #{v\ 17794}#)
(begin
- (let ((#{val\ 864}# (variable-ref #{v\ 859}#)))
- (if (macro? #{val\ 864}#)
- (if (macro-type #{val\ 864}#)
- (cons (macro-type #{val\ 864}#)
- (macro-binding #{val\ 864}#))
+ (let ((#{val\ 17799}# (variable-ref #{v\ 17794}#)))
+ (if (macro? #{val\ 17799}#)
+ (if (macro-type #{val\ 17799}#)
+ (cons (macro-type #{val\ 17799}#)
+ (macro-binding #{val\ 17799}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 298}#
- (lambda (#{e\ 868}# #{s\ 869}#)
+ (#{decorate-source\ 17233}#
+ (lambda (#{e\ 17803}# #{s\ 17804}#)
(begin
- (if (if (pair? #{e\ 868}#) #{s\ 869}# #f)
- (set-source-properties! #{e\ 868}# #{s\ 869}#))
- #{e\ 868}#)))
- (#{maybe-name-value!\ 300}#
- (lambda (#{name\ 874}# #{val\ 875}#)
- (if (#{lambda?\ 275}# #{val\ 875}#)
+ (if (if (pair? #{e\ 17803}#) #{s\ 17804}# #f)
+ (set-source-properties!
+ #{e\ 17803}#
+ #{s\ 17804}#))
+ #{e\ 17803}#)))
+ (#{maybe-name-value!\ 17235}#
+ (lambda (#{name\ 17809}# #{val\ 17810}#)
+ (if (#{lambda?\ 17210}# #{val\ 17810}#)
(begin
- (let ((#{meta\ 879}#
- (#{lambda-meta\ 277}# #{val\ 875}#)))
- (if (not (assq (quote name) #{meta\ 879}#))
- (#{set-lambda-meta!\ 279}#
- #{val\ 875}#
- (cons (cons (quote name) #{name\ 874}#)
- #{meta\ 879}#))))))))
- (#{build-void\ 302}#
- (lambda (#{source\ 880}#)
- (#{make-void\ 238}# #{source\ 880}#)))
- (#{build-application\ 304}#
- (lambda (#{source\ 882}#
- #{fun-exp\ 883}#
- #{arg-exps\ 884}#)
- (#{make-application\ 260}#
- #{source\ 882}#
- #{fun-exp\ 883}#
- #{arg-exps\ 884}#)))
- (#{build-conditional\ 306}#
- (lambda (#{source\ 888}#
- #{test-exp\ 889}#
- #{then-exp\ 890}#
- #{else-exp\ 891}#)
- (#{make-conditional\ 258}#
- #{source\ 888}#
- #{test-exp\ 889}#
- #{then-exp\ 890}#
- #{else-exp\ 891}#)))
- (#{build-dynlet\ 308}#
- (lambda (#{source\ 896}#
- #{fluids\ 897}#
- #{vals\ 898}#
- #{body\ 899}#)
- (#{make-dynlet\ 272}#
- #{source\ 896}#
- #{fluids\ 897}#
- #{vals\ 898}#
- #{body\ 899}#)))
- (#{build-lexical-reference\ 310}#
- (lambda (#{type\ 904}#
- #{source\ 905}#
- #{name\ 906}#
- #{var\ 907}#)
- (#{make-lexical-ref\ 244}#
- #{source\ 905}#
- #{name\ 906}#
- #{var\ 907}#)))
- (#{build-lexical-assignment\ 312}#
- (lambda (#{source\ 912}#
- #{name\ 913}#
- #{var\ 914}#
- #{exp\ 915}#)
+ (let ((#{meta\ 17814}#
+ (#{lambda-meta\ 17212}# #{val\ 17810}#)))
+ (if (not (assq (quote name) #{meta\ 17814}#))
+ (#{set-lambda-meta!\ 17214}#
+ #{val\ 17810}#
+ (cons (cons (quote name) #{name\ 17809}#)
+ #{meta\ 17814}#))))))))
+ (#{build-void\ 17237}#
+ (lambda (#{source\ 17815}#)
+ (#{make-void\ 17173}# #{source\ 17815}#)))
+ (#{build-application\ 17239}#
+ (lambda (#{source\ 17817}#
+ #{fun-exp\ 17818}#
+ #{arg-exps\ 17819}#)
+ (#{make-application\ 17195}#
+ #{source\ 17817}#
+ #{fun-exp\ 17818}#
+ #{arg-exps\ 17819}#)))
+ (#{build-conditional\ 17241}#
+ (lambda (#{source\ 17823}#
+ #{test-exp\ 17824}#
+ #{then-exp\ 17825}#
+ #{else-exp\ 17826}#)
+ (#{make-conditional\ 17193}#
+ #{source\ 17823}#
+ #{test-exp\ 17824}#
+ #{then-exp\ 17825}#
+ #{else-exp\ 17826}#)))
+ (#{build-dynlet\ 17243}#
+ (lambda (#{source\ 17831}#
+ #{fluids\ 17832}#
+ #{vals\ 17833}#
+ #{body\ 17834}#)
+ (#{make-dynlet\ 17207}#
+ #{source\ 17831}#
+ #{fluids\ 17832}#
+ #{vals\ 17833}#
+ #{body\ 17834}#)))
+ (#{build-lexical-reference\ 17245}#
+ (lambda (#{type\ 17839}#
+ #{source\ 17840}#
+ #{name\ 17841}#
+ #{var\ 17842}#)
+ (#{make-lexical-ref\ 17179}#
+ #{source\ 17840}#
+ #{name\ 17841}#
+ #{var\ 17842}#)))
+ (#{build-lexical-assignment\ 17247}#
+ (lambda (#{source\ 17847}#
+ #{name\ 17848}#
+ #{var\ 17849}#
+ #{exp\ 17850}#)
(begin
- (#{maybe-name-value!\ 300}#
- #{name\ 913}#
- #{exp\ 915}#)
- (#{make-lexical-set\ 246}#
- #{source\ 912}#
- #{name\ 913}#
- #{var\ 914}#
- #{exp\ 915}#))))
- (#{analyze-variable\ 314}#
- (lambda (#{mod\ 920}#
- #{var\ 921}#
- #{modref-cont\ 922}#
- #{bare-cont\ 923}#)
- (if (not #{mod\ 920}#)
- (#{bare-cont\ 923}# #{var\ 921}#)
+ (#{maybe-name-value!\ 17235}#
+ #{name\ 17848}#
+ #{exp\ 17850}#)
+ (#{make-lexical-set\ 17181}#
+ #{source\ 17847}#
+ #{name\ 17848}#
+ #{var\ 17849}#
+ #{exp\ 17850}#))))
+ (#{analyze-variable\ 17249}#
+ (lambda (#{mod\ 17855}#
+ #{var\ 17856}#
+ #{modref-cont\ 17857}#
+ #{bare-cont\ 17858}#)
+ (if (not #{mod\ 17855}#)
+ (#{bare-cont\ 17858}# #{var\ 17856}#)
(begin
- (let ((#{kind\ 930}# (car #{mod\ 920}#))
- (#{mod\ 931}# (cdr #{mod\ 920}#)))
- (if (eqv? #{kind\ 930}# (quote public))
- (#{modref-cont\ 922}#
- #{mod\ 931}#
- #{var\ 921}#
+ (let ((#{kind\ 17865}# (car #{mod\ 17855}#))
+ (#{mod\ 17866}# (cdr #{mod\ 17855}#)))
+ (if (eqv? #{kind\ 17865}# (quote public))
+ (#{modref-cont\ 17857}#
+ #{mod\ 17866}#
+ #{var\ 17856}#
#t)
- (if (eqv? #{kind\ 930}# (quote private))
+ (if (eqv? #{kind\ 17865}# (quote private))
(if (not (equal?
- #{mod\ 931}#
+ #{mod\ 17866}#
(module-name (current-module))))
- (#{modref-cont\ 922}#
- #{mod\ 931}#
- #{var\ 921}#
+ (#{modref-cont\ 17857}#
+ #{mod\ 17866}#
+ #{var\ 17856}#
#f)
- (#{bare-cont\ 923}# #{var\ 921}#))
- (if (eqv? #{kind\ 930}# (quote bare))
- (#{bare-cont\ 923}# #{var\ 921}#)
- (if (eqv? #{kind\ 930}# (quote hygiene))
+ (#{bare-cont\ 17858}# #{var\ 17856}#))
+ (if (eqv? #{kind\ 17865}# (quote bare))
+ (#{bare-cont\ 17858}# #{var\ 17856}#)
+ (if (eqv? #{kind\ 17865}# (quote hygiene))
(if (if (not (equal?
- #{mod\ 931}#
+ #{mod\ 17866}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 931}#)
- #{var\ 921}#)
+ (resolve-module #{mod\ 17866}#)
+ #{var\ 17856}#)
#f)
- (#{modref-cont\ 922}#
- #{mod\ 931}#
- #{var\ 921}#
+ (#{modref-cont\ 17857}#
+ #{mod\ 17866}#
+ #{var\ 17856}#
#f)
- (#{bare-cont\ 923}# #{var\ 921}#))
+ (#{bare-cont\ 17858}# #{var\ 17856}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 921}#
- #{mod\ 931}#))))))))))
- (#{build-global-reference\ 316}#
- (lambda (#{source\ 939}# #{var\ 940}# #{mod\ 941}#)
- (#{analyze-variable\ 314}#
- #{mod\ 941}#
- #{var\ 940}#
- (lambda (#{mod\ 945}# #{var\ 946}# #{public?\ 947}#)
- (#{make-module-ref\ 248}#
- #{source\ 939}#
- #{mod\ 945}#
- #{var\ 946}#
- #{public?\ 947}#))
- (lambda (#{var\ 951}#)
- (#{make-toplevel-ref\ 252}#
- #{source\ 939}#
- #{var\ 951}#)))))
- (#{build-global-assignment\ 318}#
- (lambda (#{source\ 953}#
- #{var\ 954}#
- #{exp\ 955}#
- #{mod\ 956}#)
+ #{var\ 17856}#
+ #{mod\ 17866}#))))))))))
+ (#{build-global-reference\ 17251}#
+ (lambda (#{source\ 17874}# #{var\ 17875}# #{mod\ 17876}#)
+ (#{analyze-variable\ 17249}#
+ #{mod\ 17876}#
+ #{var\ 17875}#
+ (lambda (#{mod\ 17880}#
+ #{var\ 17881}#
+ #{public?\ 17882}#)
+ (#{make-module-ref\ 17183}#
+ #{source\ 17874}#
+ #{mod\ 17880}#
+ #{var\ 17881}#
+ #{public?\ 17882}#))
+ (lambda (#{var\ 17886}#)
+ (#{make-toplevel-ref\ 17187}#
+ #{source\ 17874}#
+ #{var\ 17886}#)))))
+ (#{build-global-assignment\ 17253}#
+ (lambda (#{source\ 17888}#
+ #{var\ 17889}#
+ #{exp\ 17890}#
+ #{mod\ 17891}#)
(begin
- (#{maybe-name-value!\ 300}#
- #{var\ 954}#
- #{exp\ 955}#)
- (#{analyze-variable\ 314}#
- #{mod\ 956}#
- #{var\ 954}#
- (lambda (#{mod\ 961}# #{var\ 962}# #{public?\ 963}#)
- (#{make-module-set\ 250}#
- #{source\ 953}#
- #{mod\ 961}#
- #{var\ 962}#
- #{public?\ 963}#
- #{exp\ 955}#))
- (lambda (#{var\ 967}#)
- (#{make-toplevel-set\ 254}#
- #{source\ 953}#
- #{var\ 967}#
- #{exp\ 955}#))))))
- (#{build-global-definition\ 320}#
- (lambda (#{source\ 969}# #{var\ 970}# #{exp\ 971}#)
+ (#{maybe-name-value!\ 17235}#
+ #{var\ 17889}#
+ #{exp\ 17890}#)
+ (#{analyze-variable\ 17249}#
+ #{mod\ 17891}#
+ #{var\ 17889}#
+ (lambda (#{mod\ 17896}#
+ #{var\ 17897}#
+ #{public?\ 17898}#)
+ (#{make-module-set\ 17185}#
+ #{source\ 17888}#
+ #{mod\ 17896}#
+ #{var\ 17897}#
+ #{public?\ 17898}#
+ #{exp\ 17890}#))
+ (lambda (#{var\ 17902}#)
+ (#{make-toplevel-set\ 17189}#
+ #{source\ 17888}#
+ #{var\ 17902}#
+ #{exp\ 17890}#))))))
+ (#{build-global-definition\ 17255}#
+ (lambda (#{source\ 17904}# #{var\ 17905}# #{exp\ 17906}#)
(begin
- (#{maybe-name-value!\ 300}#
- #{var\ 970}#
- #{exp\ 971}#)
- (#{make-toplevel-define\ 256}#
- #{source\ 969}#
- #{var\ 970}#
- #{exp\ 971}#))))
- (#{build-simple-lambda\ 322}#
- (lambda (#{src\ 975}#
- #{req\ 976}#
- #{rest\ 977}#
- #{vars\ 978}#
- #{meta\ 979}#
- #{exp\ 980}#)
- (#{make-lambda\ 264}#
- #{src\ 975}#
- #{meta\ 979}#
- (#{make-lambda-case\ 266}#
- #{src\ 975}#
- #{req\ 976}#
+ (#{maybe-name-value!\ 17235}#
+ #{var\ 17905}#
+ #{exp\ 17906}#)
+ (#{make-toplevel-define\ 17191}#
+ #{source\ 17904}#
+ #{var\ 17905}#
+ #{exp\ 17906}#))))
+ (#{build-simple-lambda\ 17257}#
+ (lambda (#{src\ 17910}#
+ #{req\ 17911}#
+ #{rest\ 17912}#
+ #{vars\ 17913}#
+ #{meta\ 17914}#
+ #{exp\ 17915}#)
+ (#{make-lambda\ 17199}#
+ #{src\ 17910}#
+ #{meta\ 17914}#
+ (#{make-lambda-case\ 17201}#
+ #{src\ 17910}#
+ #{req\ 17911}#
#f
- #{rest\ 977}#
+ #{rest\ 17912}#
#f
'()
- #{vars\ 978}#
- #{exp\ 980}#
+ #{vars\ 17913}#
+ #{exp\ 17915}#
#f))))
- (#{build-case-lambda\ 324}#
- (lambda (#{src\ 987}# #{meta\ 988}# #{body\ 989}#)
- (#{make-lambda\ 264}#
- #{src\ 987}#
- #{meta\ 988}#
- #{body\ 989}#)))
- (#{build-lambda-case\ 326}#
- (lambda (#{src\ 993}#
- #{req\ 994}#
- #{opt\ 995}#
- #{rest\ 996}#
- #{kw\ 997}#
- #{inits\ 998}#
- #{vars\ 999}#
- #{body\ 1000}#
- #{else-case\ 1001}#)
- (#{make-lambda-case\ 266}#
- #{src\ 993}#
- #{req\ 994}#
- #{opt\ 995}#
- #{rest\ 996}#
- #{kw\ 997}#
- #{inits\ 998}#
- #{vars\ 999}#
- #{body\ 1000}#
- #{else-case\ 1001}#)))
- (#{build-primref\ 328}#
- (lambda (#{src\ 1011}# #{name\ 1012}#)
+ (#{build-case-lambda\ 17259}#
+ (lambda (#{src\ 17922}# #{meta\ 17923}# #{body\ 17924}#)
+ (#{make-lambda\ 17199}#
+ #{src\ 17922}#
+ #{meta\ 17923}#
+ #{body\ 17924}#)))
+ (#{build-lambda-case\ 17261}#
+ (lambda (#{src\ 17928}#
+ #{req\ 17929}#
+ #{opt\ 17930}#
+ #{rest\ 17931}#
+ #{kw\ 17932}#
+ #{inits\ 17933}#
+ #{vars\ 17934}#
+ #{body\ 17935}#
+ #{else-case\ 17936}#)
+ (#{make-lambda-case\ 17201}#
+ #{src\ 17928}#
+ #{req\ 17929}#
+ #{opt\ 17930}#
+ #{rest\ 17931}#
+ #{kw\ 17932}#
+ #{inits\ 17933}#
+ #{vars\ 17934}#
+ #{body\ 17935}#
+ #{else-case\ 17936}#)))
+ (#{build-primref\ 17263}#
+ (lambda (#{src\ 17946}# #{name\ 17947}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 252}#
- #{src\ 1011}#
- #{name\ 1012}#)
- (#{make-module-ref\ 248}#
- #{src\ 1011}#
+ (#{make-toplevel-ref\ 17187}#
+ #{src\ 17946}#
+ #{name\ 17947}#)
+ (#{make-module-ref\ 17183}#
+ #{src\ 17946}#
'(guile)
- #{name\ 1012}#
+ #{name\ 17947}#
#f))))
- (#{build-data\ 330}#
- (lambda (#{src\ 1015}# #{exp\ 1016}#)
- (#{make-const\ 240}# #{src\ 1015}# #{exp\ 1016}#)))
- (#{build-sequence\ 332}#
- (lambda (#{src\ 1019}# #{exps\ 1020}#)
- (if (null? (cdr #{exps\ 1020}#))
- (car #{exps\ 1020}#)
- (#{make-sequence\ 262}#
- #{src\ 1019}#
- #{exps\ 1020}#))))
- (#{build-let\ 334}#
- (lambda (#{src\ 1023}#
- #{ids\ 1024}#
- #{vars\ 1025}#
- #{val-exps\ 1026}#
- #{body-exp\ 1027}#)
+ (#{build-data\ 17265}#
+ (lambda (#{src\ 17950}# #{exp\ 17951}#)
+ (#{make-const\ 17175}#
+ #{src\ 17950}#
+ #{exp\ 17951}#)))
+ (#{build-sequence\ 17267}#
+ (lambda (#{src\ 17954}# #{exps\ 17955}#)
+ (if (null? (cdr #{exps\ 17955}#))
+ (car #{exps\ 17955}#)
+ (#{make-sequence\ 17197}#
+ #{src\ 17954}#
+ #{exps\ 17955}#))))
+ (#{build-let\ 17269}#
+ (lambda (#{src\ 17958}#
+ #{ids\ 17959}#
+ #{vars\ 17960}#
+ #{val-exps\ 17961}#
+ #{body-exp\ 17962}#)
(begin
(for-each
- #{maybe-name-value!\ 300}#
- #{ids\ 1024}#
- #{val-exps\ 1026}#)
- (if (null? #{vars\ 1025}#)
- #{body-exp\ 1027}#
- (#{make-let\ 268}#
- #{src\ 1023}#
- #{ids\ 1024}#
- #{vars\ 1025}#
- #{val-exps\ 1026}#
- #{body-exp\ 1027}#)))))
- (#{build-named-let\ 336}#
- (lambda (#{src\ 1033}#
- #{ids\ 1034}#
- #{vars\ 1035}#
- #{val-exps\ 1036}#
- #{body-exp\ 1037}#)
+ #{maybe-name-value!\ 17235}#
+ #{ids\ 17959}#
+ #{val-exps\ 17961}#)
+ (if (null? #{vars\ 17960}#)
+ #{body-exp\ 17962}#
+ (#{make-let\ 17203}#
+ #{src\ 17958}#
+ #{ids\ 17959}#
+ #{vars\ 17960}#
+ #{val-exps\ 17961}#
+ #{body-exp\ 17962}#)))))
+ (#{build-named-let\ 17271}#
+ (lambda (#{src\ 17968}#
+ #{ids\ 17969}#
+ #{vars\ 17970}#
+ #{val-exps\ 17971}#
+ #{body-exp\ 17972}#)
(begin
- (let ((#{f\ 1047}# (car #{vars\ 1035}#))
- (#{f-name\ 1048}# (car #{ids\ 1034}#))
- (#{vars\ 1049}# (cdr #{vars\ 1035}#))
- (#{ids\ 1050}# (cdr #{ids\ 1034}#)))
+ (let ((#{f\ 17982}# (car #{vars\ 17970}#))
+ (#{f-name\ 17983}# (car #{ids\ 17969}#))
+ (#{vars\ 17984}# (cdr #{vars\ 17970}#))
+ (#{ids\ 17985}# (cdr #{ids\ 17969}#)))
(begin
- (let ((#{proc\ 1052}#
- (#{build-simple-lambda\ 322}#
- #{src\ 1033}#
- #{ids\ 1050}#
+ (let ((#{proc\ 17987}#
+ (#{build-simple-lambda\ 17257}#
+ #{src\ 17968}#
+ #{ids\ 17985}#
#f
- #{vars\ 1049}#
+ #{vars\ 17984}#
'()
- #{body-exp\ 1037}#)))
+ #{body-exp\ 17972}#)))
(begin
- (#{maybe-name-value!\ 300}#
- #{f-name\ 1048}#
- #{proc\ 1052}#)
+ (#{maybe-name-value!\ 17235}#
+ #{f-name\ 17983}#
+ #{proc\ 17987}#)
(for-each
- #{maybe-name-value!\ 300}#
- #{ids\ 1050}#
- #{val-exps\ 1036}#)
- (#{make-letrec\ 270}#
- #{src\ 1033}#
+ #{maybe-name-value!\ 17235}#
+ #{ids\ 17985}#
+ #{val-exps\ 17971}#)
+ (#{make-letrec\ 17205}#
+ #{src\ 17968}#
#f
- (list #{f-name\ 1048}#)
- (list #{f\ 1047}#)
- (list #{proc\ 1052}#)
- (#{build-application\ 304}#
- #{src\ 1033}#
- (#{build-lexical-reference\ 310}#
+ (list #{f-name\ 17983}#)
+ (list #{f\ 17982}#)
+ (list #{proc\ 17987}#)
+ (#{build-application\ 17239}#
+ #{src\ 17968}#
+ (#{build-lexical-reference\ 17245}#
'fun
- #{src\ 1033}#
- #{f-name\ 1048}#
- #{f\ 1047}#)
- #{val-exps\ 1036}#)))))))))
- (#{build-letrec\ 338}#
- (lambda (#{src\ 1053}#
- #{in-order?\ 1054}#
- #{ids\ 1055}#
- #{vars\ 1056}#
- #{val-exps\ 1057}#
- #{body-exp\ 1058}#)
- (if (null? #{vars\ 1056}#)
- #{body-exp\ 1058}#
+ #{src\ 17968}#
+ #{f-name\ 17983}#
+ #{f\ 17982}#)
+ #{val-exps\ 17971}#)))))))))
+ (#{build-letrec\ 17273}#
+ (lambda (#{src\ 17988}#
+ #{in-order?\ 17989}#
+ #{ids\ 17990}#
+ #{vars\ 17991}#
+ #{val-exps\ 17992}#
+ #{body-exp\ 17993}#)
+ (if (null? #{vars\ 17991}#)
+ #{body-exp\ 17993}#
(begin
(for-each
- #{maybe-name-value!\ 300}#
- #{ids\ 1055}#
- #{val-exps\ 1057}#)
- (#{make-letrec\ 270}#
- #{src\ 1053}#
- #{in-order?\ 1054}#
- #{ids\ 1055}#
- #{vars\ 1056}#
- #{val-exps\ 1057}#
- #{body-exp\ 1058}#)))))
- (#{make-syntax-object\ 342}#
- (lambda (#{expression\ 1065}#
- #{wrap\ 1066}#
- #{module\ 1067}#)
+ #{maybe-name-value!\ 17235}#
+ #{ids\ 17990}#
+ #{val-exps\ 17992}#)
+ (#{make-letrec\ 17205}#
+ #{src\ 17988}#
+ #{in-order?\ 17989}#
+ #{ids\ 17990}#
+ #{vars\ 17991}#
+ #{val-exps\ 17992}#
+ #{body-exp\ 17993}#)))))
+ (#{make-syntax-object\ 17277}#
+ (lambda (#{expression\ 18000}#
+ #{wrap\ 18001}#
+ #{module\ 18002}#)
(vector
'syntax-object
- #{expression\ 1065}#
- #{wrap\ 1066}#
- #{module\ 1067}#)))
- (#{syntax-object?\ 344}#
- (lambda (#{x\ 1071}#)
- (if (vector? #{x\ 1071}#)
- (if (= (vector-length #{x\ 1071}#) 4)
- (eq? (vector-ref #{x\ 1071}# 0)
+ #{expression\ 18000}#
+ #{wrap\ 18001}#
+ #{module\ 18002}#)))
+ (#{syntax-object?\ 17279}#
+ (lambda (#{x\ 18006}#)
+ (if (vector? #{x\ 18006}#)
+ (if (= (vector-length #{x\ 18006}#) 4)
+ (eq? (vector-ref #{x\ 18006}# 0)
'syntax-object)
#f)
#f)))
- (#{syntax-object-expression\ 346}#
- (lambda (#{x\ 1076}#) (vector-ref #{x\ 1076}# 1)))
- (#{syntax-object-wrap\ 348}#
- (lambda (#{x\ 1078}#) (vector-ref #{x\ 1078}# 2)))
- (#{syntax-object-module\ 350}#
- (lambda (#{x\ 1080}#) (vector-ref #{x\ 1080}# 3)))
- (#{source-annotation\ 359}#
- (lambda (#{x\ 1094}#)
- (if (#{syntax-object?\ 344}# #{x\ 1094}#)
- (#{source-annotation\ 359}#
- (#{syntax-object-expression\ 346}# #{x\ 1094}#))
- (if (pair? #{x\ 1094}#)
+ (#{syntax-object-expression\ 17281}#
+ (lambda (#{x\ 18011}#)
+ (vector-ref #{x\ 18011}# 1)))
+ (#{syntax-object-wrap\ 17283}#
+ (lambda (#{x\ 18013}#)
+ (vector-ref #{x\ 18013}# 2)))
+ (#{syntax-object-module\ 17285}#
+ (lambda (#{x\ 18015}#)
+ (vector-ref #{x\ 18015}# 3)))
+ (#{source-annotation\ 17294}#
+ (lambda (#{x\ 18029}#)
+ (if (#{syntax-object?\ 17279}# #{x\ 18029}#)
+ (#{source-annotation\ 17294}#
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18029}#))
+ (if (pair? #{x\ 18029}#)
(begin
- (let ((#{props\ 1101}# (source-properties #{x\ 1094}#)))
- (if (pair? #{props\ 1101}#) #{props\ 1101}# #f)))
+ (let ((#{props\ 18036}#
+ (source-properties #{x\ 18029}#)))
+ (if (pair? #{props\ 18036}#) #{props\ 18036}# #f)))
#f))))
- (#{extend-env\ 368}#
- (lambda (#{labels\ 1103}# #{bindings\ 1104}# #{r\ 1105}#)
- (if (null? #{labels\ 1103}#)
- #{r\ 1105}#
- (#{extend-env\ 368}#
- (cdr #{labels\ 1103}#)
- (cdr #{bindings\ 1104}#)
- (cons (cons (car #{labels\ 1103}#)
- (car #{bindings\ 1104}#))
- #{r\ 1105}#)))))
- (#{extend-var-env\ 370}#
- (lambda (#{labels\ 1109}# #{vars\ 1110}# #{r\ 1111}#)
- (if (null? #{labels\ 1109}#)
- #{r\ 1111}#
- (#{extend-var-env\ 370}#
- (cdr #{labels\ 1109}#)
- (cdr #{vars\ 1110}#)
- (cons (cons (car #{labels\ 1109}#)
- (cons (quote lexical) (car #{vars\ 1110}#)))
- #{r\ 1111}#)))))
- (#{macros-only-env\ 372}#
- (lambda (#{r\ 1116}#)
- (if (null? #{r\ 1116}#)
+ (#{extend-env\ 17303}#
+ (lambda (#{labels\ 18038}#
+ #{bindings\ 18039}#
+ #{r\ 18040}#)
+ (if (null? #{labels\ 18038}#)
+ #{r\ 18040}#
+ (#{extend-env\ 17303}#
+ (cdr #{labels\ 18038}#)
+ (cdr #{bindings\ 18039}#)
+ (cons (cons (car #{labels\ 18038}#)
+ (car #{bindings\ 18039}#))
+ #{r\ 18040}#)))))
+ (#{extend-var-env\ 17305}#
+ (lambda (#{labels\ 18044}# #{vars\ 18045}# #{r\ 18046}#)
+ (if (null? #{labels\ 18044}#)
+ #{r\ 18046}#
+ (#{extend-var-env\ 17305}#
+ (cdr #{labels\ 18044}#)
+ (cdr #{vars\ 18045}#)
+ (cons (cons (car #{labels\ 18044}#)
+ (cons (quote lexical) (car #{vars\ 18045}#)))
+ #{r\ 18046}#)))))
+ (#{macros-only-env\ 17307}#
+ (lambda (#{r\ 18051}#)
+ (if (null? #{r\ 18051}#)
'()
(begin
- (let ((#{a\ 1119}# (car #{r\ 1116}#)))
- (if (eq? (car (cdr #{a\ 1119}#)) (quote macro))
- (cons #{a\ 1119}#
- (#{macros-only-env\ 372}# (cdr #{r\ 1116}#)))
- (#{macros-only-env\ 372}# (cdr #{r\ 1116}#))))))))
- (#{lookup\ 374}#
- (lambda (#{x\ 1120}# #{r\ 1121}# #{mod\ 1122}#)
+ (let ((#{a\ 18054}# (car #{r\ 18051}#)))
+ (if (eq? (car (cdr #{a\ 18054}#)) (quote macro))
+ (cons #{a\ 18054}#
+ (#{macros-only-env\ 17307}# (cdr #{r\ 18051}#)))
+ (#{macros-only-env\ 17307}# (cdr #{r\ 18051}#))))))))
+ (#{lookup\ 17309}#
+ (lambda (#{x\ 18055}# #{r\ 18056}# #{mod\ 18057}#)
(begin
- (let ((#{t\ 1128}# (assq #{x\ 1120}# #{r\ 1121}#)))
- (if #{t\ 1128}#
- (cdr #{t\ 1128}#)
- (if (symbol? #{x\ 1120}#)
+ (let ((#{t\ 18063}# (assq #{x\ 18055}# #{r\ 18056}#)))
+ (if #{t\ 18063}#
+ (cdr #{t\ 18063}#)
+ (if (symbol? #{x\ 18055}#)
(begin
- (let ((#{t\ 1134}#
- (#{get-global-definition-hook\ 296}#
- #{x\ 1120}#
- #{mod\ 1122}#)))
- (if #{t\ 1134}# #{t\ 1134}# (quote (global)))))
+ (let ((#{t\ 18069}#
+ (#{get-global-definition-hook\ 17231}#
+ #{x\ 18055}#
+ #{mod\ 18057}#)))
+ (if #{t\ 18069}# #{t\ 18069}# (quote (global)))))
'(displaced-lexical)))))))
- (#{global-extend\ 376}#
- (lambda (#{type\ 1139}# #{sym\ 1140}# #{val\ 1141}#)
- (#{put-global-definition-hook\ 294}#
- #{sym\ 1140}#
- #{type\ 1139}#
- #{val\ 1141}#)))
- (#{nonsymbol-id?\ 378}#
- (lambda (#{x\ 1145}#)
- (if (#{syntax-object?\ 344}# #{x\ 1145}#)
+ (#{global-extend\ 17311}#
+ (lambda (#{type\ 18074}# #{sym\ 18075}# #{val\ 18076}#)
+ (#{put-global-definition-hook\ 17229}#
+ #{sym\ 18075}#
+ #{type\ 18074}#
+ #{val\ 18076}#)))
+ (#{nonsymbol-id?\ 17313}#
+ (lambda (#{x\ 18080}#)
+ (if (#{syntax-object?\ 17279}# #{x\ 18080}#)
(symbol?
- (#{syntax-object-expression\ 346}# #{x\ 1145}#))
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18080}#))
#f)))
- (#{id?\ 380}#
- (lambda (#{x\ 1149}#)
- (if (symbol? #{x\ 1149}#)
+ (#{id?\ 17315}#
+ (lambda (#{x\ 18084}#)
+ (if (symbol? #{x\ 18084}#)
#t
- (if (#{syntax-object?\ 344}# #{x\ 1149}#)
+ (if (#{syntax-object?\ 17279}# #{x\ 18084}#)
(symbol?
- (#{syntax-object-expression\ 346}# #{x\ 1149}#))
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18084}#))
#f))))
- (#{id-sym-name&marks\ 383}#
- (lambda (#{x\ 1156}# #{w\ 1157}#)
- (if (#{syntax-object?\ 344}# #{x\ 1156}#)
+ (#{id-sym-name&marks\ 17318}#
+ (lambda (#{x\ 18091}# #{w\ 18092}#)
+ (if (#{syntax-object?\ 17279}# #{x\ 18091}#)
(values
- (#{syntax-object-expression\ 346}# #{x\ 1156}#)
- (#{join-marks\ 433}#
- (#{wrap-marks\ 387}# #{w\ 1157}#)
- (#{wrap-marks\ 387}#
- (#{syntax-object-wrap\ 348}# #{x\ 1156}#))))
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18091}#)
+ (#{join-marks\ 17368}#
+ (#{wrap-marks\ 17322}# #{w\ 18092}#)
+ (#{wrap-marks\ 17322}#
+ (#{syntax-object-wrap\ 17283}# #{x\ 18091}#))))
(values
- #{x\ 1156}#
- (#{wrap-marks\ 387}# #{w\ 1157}#)))))
- (#{gen-label\ 396}#
+ #{x\ 18091}#
+ (#{wrap-marks\ 17322}# #{w\ 18092}#)))))
+ (#{gen-label\ 17331}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 398}#
- (lambda (#{ls\ 1160}#)
- (if (null? #{ls\ 1160}#)
+ (#{gen-labels\ 17333}#
+ (lambda (#{ls\ 18095}#)
+ (if (null? #{ls\ 18095}#)
'()
- (cons (#{gen-label\ 396}#)
- (#{gen-labels\ 398}# (cdr #{ls\ 1160}#))))))
- (#{make-ribcage\ 401}#
- (lambda (#{symnames\ 1162}#
- #{marks\ 1163}#
- #{labels\ 1164}#)
+ (cons (#{gen-label\ 17331}#)
+ (#{gen-labels\ 17333}# (cdr #{ls\ 18095}#))))))
+ (#{make-ribcage\ 17336}#
+ (lambda (#{symnames\ 18097}#
+ #{marks\ 18098}#
+ #{labels\ 18099}#)
(vector
'ribcage
- #{symnames\ 1162}#
- #{marks\ 1163}#
- #{labels\ 1164}#)))
- (#{ribcage-symnames\ 405}#
- (lambda (#{x\ 1173}#) (vector-ref #{x\ 1173}# 1)))
- (#{ribcage-marks\ 407}#
- (lambda (#{x\ 1175}#) (vector-ref #{x\ 1175}# 2)))
- (#{ribcage-labels\ 409}#
- (lambda (#{x\ 1177}#) (vector-ref #{x\ 1177}# 3)))
- (#{set-ribcage-symnames!\ 411}#
- (lambda (#{x\ 1179}# #{update\ 1180}#)
- (vector-set! #{x\ 1179}# 1 #{update\ 1180}#)))
- (#{set-ribcage-marks!\ 413}#
- (lambda (#{x\ 1183}# #{update\ 1184}#)
- (vector-set! #{x\ 1183}# 2 #{update\ 1184}#)))
- (#{set-ribcage-labels!\ 415}#
- (lambda (#{x\ 1187}# #{update\ 1188}#)
- (vector-set! #{x\ 1187}# 3 #{update\ 1188}#)))
- (#{anti-mark\ 421}#
- (lambda (#{w\ 1191}#)
- (#{make-wrap\ 385}#
- (cons #f (#{wrap-marks\ 387}# #{w\ 1191}#))
+ #{symnames\ 18097}#
+ #{marks\ 18098}#
+ #{labels\ 18099}#)))
+ (#{ribcage-symnames\ 17340}#
+ (lambda (#{x\ 18108}#)
+ (vector-ref #{x\ 18108}# 1)))
+ (#{ribcage-marks\ 17342}#
+ (lambda (#{x\ 18110}#)
+ (vector-ref #{x\ 18110}# 2)))
+ (#{ribcage-labels\ 17344}#
+ (lambda (#{x\ 18112}#)
+ (vector-ref #{x\ 18112}# 3)))
+ (#{set-ribcage-symnames!\ 17346}#
+ (lambda (#{x\ 18114}# #{update\ 18115}#)
+ (vector-set! #{x\ 18114}# 1 #{update\ 18115}#)))
+ (#{set-ribcage-marks!\ 17348}#
+ (lambda (#{x\ 18118}# #{update\ 18119}#)
+ (vector-set! #{x\ 18118}# 2 #{update\ 18119}#)))
+ (#{set-ribcage-labels!\ 17350}#
+ (lambda (#{x\ 18122}# #{update\ 18123}#)
+ (vector-set! #{x\ 18122}# 3 #{update\ 18123}#)))
+ (#{anti-mark\ 17356}#
+ (lambda (#{w\ 18126}#)
+ (#{make-wrap\ 17320}#
+ (cons #f (#{wrap-marks\ 17322}# #{w\ 18126}#))
(cons 'shift
- (#{wrap-subst\ 389}# #{w\ 1191}#)))))
- (#{extend-ribcage!\ 425}#
- (lambda (#{ribcage\ 1194}# #{id\ 1195}# #{label\ 1196}#)
+ (#{wrap-subst\ 17324}# #{w\ 18126}#)))))
+ (#{extend-ribcage!\ 17360}#
+ (lambda (#{ribcage\ 18129}#
+ #{id\ 18130}#
+ #{label\ 18131}#)
(begin
- (#{set-ribcage-symnames!\ 411}#
- #{ribcage\ 1194}#
- (cons (#{syntax-object-expression\ 346}# #{id\ 1195}#)
- (#{ribcage-symnames\ 405}# #{ribcage\ 1194}#)))
- (#{set-ribcage-marks!\ 413}#
- #{ribcage\ 1194}#
- (cons (#{wrap-marks\ 387}#
- (#{syntax-object-wrap\ 348}# #{id\ 1195}#))
- (#{ribcage-marks\ 407}# #{ribcage\ 1194}#)))
- (#{set-ribcage-labels!\ 415}#
- #{ribcage\ 1194}#
- (cons #{label\ 1196}#
- (#{ribcage-labels\ 409}# #{ribcage\ 1194}#))))))
- (#{make-binding-wrap\ 427}#
- (lambda (#{ids\ 1200}# #{labels\ 1201}# #{w\ 1202}#)
- (if (null? #{ids\ 1200}#)
- #{w\ 1202}#
- (#{make-wrap\ 385}#
- (#{wrap-marks\ 387}# #{w\ 1202}#)
+ (#{set-ribcage-symnames!\ 17346}#
+ #{ribcage\ 18129}#
+ (cons (#{syntax-object-expression\ 17281}#
+ #{id\ 18130}#)
+ (#{ribcage-symnames\ 17340}# #{ribcage\ 18129}#)))
+ (#{set-ribcage-marks!\ 17348}#
+ #{ribcage\ 18129}#
+ (cons (#{wrap-marks\ 17322}#
+ (#{syntax-object-wrap\ 17283}# #{id\ 18130}#))
+ (#{ribcage-marks\ 17342}# #{ribcage\ 18129}#)))
+ (#{set-ribcage-labels!\ 17350}#
+ #{ribcage\ 18129}#
+ (cons #{label\ 18131}#
+ (#{ribcage-labels\ 17344}# #{ribcage\ 18129}#))))))
+ (#{make-binding-wrap\ 17362}#
+ (lambda (#{ids\ 18135}# #{labels\ 18136}# #{w\ 18137}#)
+ (if (null? #{ids\ 18135}#)
+ #{w\ 18137}#
+ (#{make-wrap\ 17320}#
+ (#{wrap-marks\ 17322}# #{w\ 18137}#)
(cons (begin
- (let ((#{labelvec\ 1207}#
- (list->vector #{labels\ 1201}#)))
+ (let ((#{labelvec\ 18142}#
+ (list->vector #{labels\ 18136}#)))
(begin
- (let ((#{n\ 1209}#
- (vector-length #{labelvec\ 1207}#)))
+ (let ((#{n\ 18144}#
+ (vector-length #{labelvec\ 18142}#)))
(begin
- (let ((#{symnamevec\ 1212}#
- (make-vector #{n\ 1209}#))
- (#{marksvec\ 1213}#
- (make-vector #{n\ 1209}#)))
+ (let ((#{symnamevec\ 18147}#
+ (make-vector #{n\ 18144}#))
+ (#{marksvec\ 18148}#
+ (make-vector #{n\ 18144}#)))
(begin
(letrec*
- ((#{f\ 1217}#
- (lambda (#{ids\ 1218}# #{i\ 1219}#)
- (if (not (null? #{ids\ 1218}#))
+ ((#{f\ 18152}#
+ (lambda (#{ids\ 18153}# #{i\ 18154}#)
+ (if (not (null? #{ids\ 18153}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 383}#
- (car #{ids\ 1218}#)
- #{w\ 1202}#))
- (lambda (#{symname\ 1220}#
- #{marks\ 1221}#)
+ (#{id-sym-name&marks\ 17318}#
+ (car #{ids\ 18153}#)
+ #{w\ 18137}#))
+ (lambda (#{symname\ 18155}#
+ #{marks\ 18156}#)
(begin
(vector-set!
- #{symnamevec\ 1212}#
- #{i\ 1219}#
- #{symname\ 1220}#)
+ #{symnamevec\ 18147}#
+ #{i\ 18154}#
+ #{symname\ 18155}#)
(vector-set!
- #{marksvec\ 1213}#
- #{i\ 1219}#
- #{marks\ 1221}#)
- (#{f\ 1217}#
- (cdr #{ids\ 1218}#)
- (#{fx+\ 281}#
- #{i\ 1219}#
+ #{marksvec\ 18148}#
+ #{i\ 18154}#
+ #{marks\ 18156}#)
+ (#{f\ 18152}#
+ (cdr #{ids\ 18153}#)
+ (#{fx+\ 17216}#
+ #{i\ 18154}#
1)))))))))
- (begin (#{f\ 1217}# #{ids\ 1200}# 0)))
- (#{make-ribcage\ 401}#
- #{symnamevec\ 1212}#
- #{marksvec\ 1213}#
- #{labelvec\ 1207}#))))))))
- (#{wrap-subst\ 389}# #{w\ 1202}#))))))
- (#{smart-append\ 429}#
- (lambda (#{m1\ 1224}# #{m2\ 1225}#)
- (if (null? #{m2\ 1225}#)
- #{m1\ 1224}#
- (append #{m1\ 1224}# #{m2\ 1225}#))))
- (#{join-wraps\ 431}#
- (lambda (#{w1\ 1228}# #{w2\ 1229}#)
+ (begin (#{f\ 18152}# #{ids\ 18135}# 0)))
+ (#{make-ribcage\ 17336}#
+ #{symnamevec\ 18147}#
+ #{marksvec\ 18148}#
+ #{labelvec\ 18142}#))))))))
+ (#{wrap-subst\ 17324}# #{w\ 18137}#))))))
+ (#{smart-append\ 17364}#
+ (lambda (#{m1\ 18159}# #{m2\ 18160}#)
+ (if (null? #{m2\ 18160}#)
+ #{m1\ 18159}#
+ (append #{m1\ 18159}# #{m2\ 18160}#))))
+ (#{join-wraps\ 17366}#
+ (lambda (#{w1\ 18163}# #{w2\ 18164}#)
(begin
- (let ((#{m1\ 1234}# (#{wrap-marks\ 387}# #{w1\ 1228}#))
- (#{s1\ 1235}# (#{wrap-subst\ 389}# #{w1\ 1228}#)))
- (if (null? #{m1\ 1234}#)
- (if (null? #{s1\ 1235}#)
- #{w2\ 1229}#
- (#{make-wrap\ 385}#
- (#{wrap-marks\ 387}# #{w2\ 1229}#)
- (#{smart-append\ 429}#
- #{s1\ 1235}#
- (#{wrap-subst\ 389}# #{w2\ 1229}#))))
- (#{make-wrap\ 385}#
- (#{smart-append\ 429}#
- #{m1\ 1234}#
- (#{wrap-marks\ 387}# #{w2\ 1229}#))
- (#{smart-append\ 429}#
- #{s1\ 1235}#
- (#{wrap-subst\ 389}# #{w2\ 1229}#))))))))
- (#{join-marks\ 433}#
- (lambda (#{m1\ 1236}# #{m2\ 1237}#)
- (#{smart-append\ 429}# #{m1\ 1236}# #{m2\ 1237}#)))
- (#{same-marks?\ 435}#
- (lambda (#{x\ 1240}# #{y\ 1241}#)
+ (let ((#{m1\ 18169}#
+ (#{wrap-marks\ 17322}# #{w1\ 18163}#))
+ (#{s1\ 18170}#
+ (#{wrap-subst\ 17324}# #{w1\ 18163}#)))
+ (if (null? #{m1\ 18169}#)
+ (if (null? #{s1\ 18170}#)
+ #{w2\ 18164}#
+ (#{make-wrap\ 17320}#
+ (#{wrap-marks\ 17322}# #{w2\ 18164}#)
+ (#{smart-append\ 17364}#
+ #{s1\ 18170}#
+ (#{wrap-subst\ 17324}# #{w2\ 18164}#))))
+ (#{make-wrap\ 17320}#
+ (#{smart-append\ 17364}#
+ #{m1\ 18169}#
+ (#{wrap-marks\ 17322}# #{w2\ 18164}#))
+ (#{smart-append\ 17364}#
+ #{s1\ 18170}#
+ (#{wrap-subst\ 17324}# #{w2\ 18164}#))))))))
+ (#{join-marks\ 17368}#
+ (lambda (#{m1\ 18171}# #{m2\ 18172}#)
+ (#{smart-append\ 17364}#
+ #{m1\ 18171}#
+ #{m2\ 18172}#)))
+ (#{same-marks?\ 17370}#
+ (lambda (#{x\ 18175}# #{y\ 18176}#)
(begin
- (let ((#{t\ 1246}# (eq? #{x\ 1240}# #{y\ 1241}#)))
- (if #{t\ 1246}#
- #{t\ 1246}#
- (if (not (null? #{x\ 1240}#))
- (if (not (null? #{y\ 1241}#))
- (if (eq? (car #{x\ 1240}#) (car #{y\ 1241}#))
- (#{same-marks?\ 435}#
- (cdr #{x\ 1240}#)
- (cdr #{y\ 1241}#))
+ (let ((#{t\ 18181}# (eq? #{x\ 18175}# #{y\ 18176}#)))
+ (if #{t\ 18181}#
+ #{t\ 18181}#
+ (if (not (null? #{x\ 18175}#))
+ (if (not (null? #{y\ 18176}#))
+ (if (eq? (car #{x\ 18175}#) (car #{y\ 18176}#))
+ (#{same-marks?\ 17370}#
+ (cdr #{x\ 18175}#)
+ (cdr #{y\ 18176}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 437}#
- (lambda (#{id\ 1252}# #{w\ 1253}#)
+ (#{id-var-name\ 17372}#
+ (lambda (#{id\ 18187}# #{w\ 18188}#)
(letrec*
- ((#{search\ 1258}#
- (lambda (#{sym\ 1274}# #{subst\ 1275}# #{marks\ 1276}#)
- (if (null? #{subst\ 1275}#)
- (values #f #{marks\ 1276}#)
+ ((#{search\ 18193}#
+ (lambda (#{sym\ 18209}#
+ #{subst\ 18210}#
+ #{marks\ 18211}#)
+ (if (null? #{subst\ 18210}#)
+ (values #f #{marks\ 18211}#)
(begin
- (let ((#{fst\ 1281}# (car #{subst\ 1275}#)))
- (if (eq? #{fst\ 1281}# (quote shift))
- (#{search\ 1258}#
- #{sym\ 1274}#
- (cdr #{subst\ 1275}#)
- (cdr #{marks\ 1276}#))
+ (let ((#{fst\ 18216}# (car #{subst\ 18210}#)))
+ (if (eq? #{fst\ 18216}# (quote shift))
+ (#{search\ 18193}#
+ #{sym\ 18209}#
+ (cdr #{subst\ 18210}#)
+ (cdr #{marks\ 18211}#))
(begin
- (let ((#{symnames\ 1283}#
- (#{ribcage-symnames\ 405}#
- #{fst\ 1281}#)))
- (if (vector? #{symnames\ 1283}#)
- (#{search-vector-rib\ 1262}#
- #{sym\ 1274}#
- #{subst\ 1275}#
- #{marks\ 1276}#
- #{symnames\ 1283}#
- #{fst\ 1281}#)
- (#{search-list-rib\ 1260}#
- #{sym\ 1274}#
- #{subst\ 1275}#
- #{marks\ 1276}#
- #{symnames\ 1283}#
- #{fst\ 1281}#))))))))))
- (#{search-list-rib\ 1260}#
- (lambda (#{sym\ 1284}#
- #{subst\ 1285}#
- #{marks\ 1286}#
- #{symnames\ 1287}#
- #{ribcage\ 1288}#)
+ (let ((#{symnames\ 18218}#
+ (#{ribcage-symnames\ 17340}#
+ #{fst\ 18216}#)))
+ (if (vector? #{symnames\ 18218}#)
+ (#{search-vector-rib\ 18197}#
+ #{sym\ 18209}#
+ #{subst\ 18210}#
+ #{marks\ 18211}#
+ #{symnames\ 18218}#
+ #{fst\ 18216}#)
+ (#{search-list-rib\ 18195}#
+ #{sym\ 18209}#
+ #{subst\ 18210}#
+ #{marks\ 18211}#
+ #{symnames\ 18218}#
+ #{fst\ 18216}#))))))))))
+ (#{search-list-rib\ 18195}#
+ (lambda (#{sym\ 18219}#
+ #{subst\ 18220}#
+ #{marks\ 18221}#
+ #{symnames\ 18222}#
+ #{ribcage\ 18223}#)
(letrec*
- ((#{f\ 1297}#
- (lambda (#{symnames\ 1298}# #{i\ 1299}#)
- (if (null? #{symnames\ 1298}#)
- (#{search\ 1258}#
- #{sym\ 1284}#
- (cdr #{subst\ 1285}#)
- #{marks\ 1286}#)
- (if (if (eq? (car #{symnames\ 1298}#)
- #{sym\ 1284}#)
- (#{same-marks?\ 435}#
- #{marks\ 1286}#
+ ((#{f\ 18232}#
+ (lambda (#{symnames\ 18233}# #{i\ 18234}#)
+ (if (null? #{symnames\ 18233}#)
+ (#{search\ 18193}#
+ #{sym\ 18219}#
+ (cdr #{subst\ 18220}#)
+ #{marks\ 18221}#)
+ (if (if (eq? (car #{symnames\ 18233}#)
+ #{sym\ 18219}#)
+ (#{same-marks?\ 17370}#
+ #{marks\ 18221}#
(list-ref
- (#{ribcage-marks\ 407}#
- #{ribcage\ 1288}#)
- #{i\ 1299}#))
+ (#{ribcage-marks\ 17342}#
+ #{ribcage\ 18223}#)
+ #{i\ 18234}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 409}# #{ribcage\ 1288}#)
- #{i\ 1299}#)
- #{marks\ 1286}#)
- (#{f\ 1297}#
- (cdr #{symnames\ 1298}#)
- (#{fx+\ 281}# #{i\ 1299}# 1)))))))
- (begin (#{f\ 1297}# #{symnames\ 1287}# 0)))))
- (#{search-vector-rib\ 1262}#
- (lambda (#{sym\ 1307}#
- #{subst\ 1308}#
- #{marks\ 1309}#
- #{symnames\ 1310}#
- #{ribcage\ 1311}#)
+ (#{ribcage-labels\ 17344}#
+ #{ribcage\ 18223}#)
+ #{i\ 18234}#)
+ #{marks\ 18221}#)
+ (#{f\ 18232}#
+ (cdr #{symnames\ 18233}#)
+ (#{fx+\ 17216}# #{i\ 18234}# 1)))))))
+ (begin (#{f\ 18232}# #{symnames\ 18222}# 0)))))
+ (#{search-vector-rib\ 18197}#
+ (lambda (#{sym\ 18242}#
+ #{subst\ 18243}#
+ #{marks\ 18244}#
+ #{symnames\ 18245}#
+ #{ribcage\ 18246}#)
(begin
- (let ((#{n\ 1318}# (vector-length #{symnames\ 1310}#)))
+ (let ((#{n\ 18253}#
+ (vector-length #{symnames\ 18245}#)))
(letrec*
- ((#{f\ 1321}#
- (lambda (#{i\ 1322}#)
- (if (#{fx=\ 285}# #{i\ 1322}# #{n\ 1318}#)
- (#{search\ 1258}#
- #{sym\ 1307}#
- (cdr #{subst\ 1308}#)
- #{marks\ 1309}#)
+ ((#{f\ 18256}#
+ (lambda (#{i\ 18257}#)
+ (if (#{fx=\ 17220}# #{i\ 18257}# #{n\ 18253}#)
+ (#{search\ 18193}#
+ #{sym\ 18242}#
+ (cdr #{subst\ 18243}#)
+ #{marks\ 18244}#)
(if (if (eq? (vector-ref
- #{symnames\ 1310}#
- #{i\ 1322}#)
- #{sym\ 1307}#)
- (#{same-marks?\ 435}#
- #{marks\ 1309}#
+ #{symnames\ 18245}#
+ #{i\ 18257}#)
+ #{sym\ 18242}#)
+ (#{same-marks?\ 17370}#
+ #{marks\ 18244}#
(vector-ref
- (#{ribcage-marks\ 407}#
- #{ribcage\ 1311}#)
- #{i\ 1322}#))
+ (#{ribcage-marks\ 17342}#
+ #{ribcage\ 18246}#)
+ #{i\ 18257}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 409}#
- #{ribcage\ 1311}#)
- #{i\ 1322}#)
- #{marks\ 1309}#)
- (#{f\ 1321}#
- (#{fx+\ 281}# #{i\ 1322}# 1)))))))
- (begin (#{f\ 1321}# 0))))))))
+ (#{ribcage-labels\ 17344}#
+ #{ribcage\ 18246}#)
+ #{i\ 18257}#)
+ #{marks\ 18244}#)
+ (#{f\ 18256}#
+ (#{fx+\ 17216}# #{i\ 18257}# 1)))))))
+ (begin (#{f\ 18256}# 0))))))))
(begin
- (if (symbol? #{id\ 1252}#)
+ (if (symbol? #{id\ 18187}#)
(begin
- (let ((#{t\ 1332}#
+ (let ((#{t\ 18267}#
(call-with-values
(lambda ()
- (#{search\ 1258}#
- #{id\ 1252}#
- (#{wrap-subst\ 389}# #{w\ 1253}#)
- (#{wrap-marks\ 387}# #{w\ 1253}#)))
- (lambda (#{x\ 1334}# . #{ignore\ 1335}#)
- #{x\ 1334}#))))
- (if #{t\ 1332}# #{t\ 1332}# #{id\ 1252}#)))
- (if (#{syntax-object?\ 344}# #{id\ 1252}#)
+ (#{search\ 18193}#
+ #{id\ 18187}#
+ (#{wrap-subst\ 17324}# #{w\ 18188}#)
+ (#{wrap-marks\ 17322}# #{w\ 18188}#)))
+ (lambda (#{x\ 18269}# . #{ignore\ 18270}#)
+ #{x\ 18269}#))))
+ (if #{t\ 18267}# #{t\ 18267}# #{id\ 18187}#)))
+ (if (#{syntax-object?\ 17279}# #{id\ 18187}#)
(begin
- (let ((#{id\ 1343}#
- (#{syntax-object-expression\ 346}#
- #{id\ 1252}#))
- (#{w1\ 1344}#
- (#{syntax-object-wrap\ 348}# #{id\ 1252}#)))
+ (let ((#{id\ 18278}#
+ (#{syntax-object-expression\ 17281}#
+ #{id\ 18187}#))
+ (#{w1\ 18279}#
+ (#{syntax-object-wrap\ 17283}# #{id\ 18187}#)))
(begin
- (let ((#{marks\ 1346}#
- (#{join-marks\ 433}#
- (#{wrap-marks\ 387}# #{w\ 1253}#)
- (#{wrap-marks\ 387}# #{w1\ 1344}#))))
+ (let ((#{marks\ 18281}#
+ (#{join-marks\ 17368}#
+ (#{wrap-marks\ 17322}# #{w\ 18188}#)
+ (#{wrap-marks\ 17322}# #{w1\ 18279}#))))
(call-with-values
(lambda ()
- (#{search\ 1258}#
- #{id\ 1343}#
- (#{wrap-subst\ 389}# #{w\ 1253}#)
- #{marks\ 1346}#))
- (lambda (#{new-id\ 1347}# #{marks\ 1348}#)
+ (#{search\ 18193}#
+ #{id\ 18278}#
+ (#{wrap-subst\ 17324}# #{w\ 18188}#)
+ #{marks\ 18281}#))
+ (lambda (#{new-id\ 18282}# #{marks\ 18283}#)
(begin
- (let ((#{t\ 1353}# #{new-id\ 1347}#))
- (if #{t\ 1353}#
- #{t\ 1353}#
+ (let ((#{t\ 18288}# #{new-id\ 18282}#))
+ (if #{t\ 18288}#
+ #{t\ 18288}#
(begin
- (let ((#{t\ 1356}#
+ (let ((#{t\ 18291}#
(call-with-values
(lambda ()
- (#{search\ 1258}#
- #{id\ 1343}#
- (#{wrap-subst\ 389}#
- #{w1\ 1344}#)
- #{marks\ 1348}#))
- (lambda (#{x\ 1358}#
+ (#{search\ 18193}#
+ #{id\ 18278}#
+ (#{wrap-subst\ 17324}#
+ #{w1\ 18279}#)
+ #{marks\ 18283}#))
+ (lambda (#{x\ 18293}#
.
- #{ignore\ 1359}#)
- #{x\ 1358}#))))
- (if #{t\ 1356}#
- #{t\ 1356}#
- #{id\ 1343}#))))))))))))
+ #{ignore\ 18294}#)
+ #{x\ 18293}#))))
+ (if #{t\ 18291}#
+ #{t\ 18291}#
+ #{id\ 18278}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1252}#)))))))
- (#{free-id=?\ 439}#
- (lambda (#{i\ 1364}# #{j\ 1365}#)
+ #{id\ 18187}#)))))))
+ (#{free-id=?\ 17374}#
+ (lambda (#{i\ 18299}# #{j\ 18300}#)
(if (eq? (begin
- (let ((#{x\ 1371}# #{i\ 1364}#))
- (if (#{syntax-object?\ 344}# #{x\ 1371}#)
- (#{syntax-object-expression\ 346}# #{x\ 1371}#)
- #{x\ 1371}#)))
+ (let ((#{x\ 18306}# #{i\ 18299}#))
+ (if (#{syntax-object?\ 17279}# #{x\ 18306}#)
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18306}#)
+ #{x\ 18306}#)))
(begin
- (let ((#{x\ 1374}# #{j\ 1365}#))
- (if (#{syntax-object?\ 344}# #{x\ 1374}#)
- (#{syntax-object-expression\ 346}# #{x\ 1374}#)
- #{x\ 1374}#))))
- (eq? (#{id-var-name\ 437}# #{i\ 1364}# (quote (())))
- (#{id-var-name\ 437}# #{j\ 1365}# (quote (()))))
+ (let ((#{x\ 18309}# #{j\ 18300}#))
+ (if (#{syntax-object?\ 17279}# #{x\ 18309}#)
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18309}#)
+ #{x\ 18309}#))))
+ (eq? (#{id-var-name\ 17372}#
+ #{i\ 18299}#
+ '(()))
+ (#{id-var-name\ 17372}#
+ #{j\ 18300}#
+ '(())))
#f)))
- (#{bound-id=?\ 441}#
- (lambda (#{i\ 1378}# #{j\ 1379}#)
- (if (if (#{syntax-object?\ 344}# #{i\ 1378}#)
- (#{syntax-object?\ 344}# #{j\ 1379}#)
+ (#{bound-id=?\ 17376}#
+ (lambda (#{i\ 18313}# #{j\ 18314}#)
+ (if (if (#{syntax-object?\ 17279}# #{i\ 18313}#)
+ (#{syntax-object?\ 17279}# #{j\ 18314}#)
#f)
- (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1378}#)
- (#{syntax-object-expression\ 346}# #{j\ 1379}#))
- (#{same-marks?\ 435}#
- (#{wrap-marks\ 387}#
- (#{syntax-object-wrap\ 348}# #{i\ 1378}#))
- (#{wrap-marks\ 387}#
- (#{syntax-object-wrap\ 348}# #{j\ 1379}#)))
+ (if (eq? (#{syntax-object-expression\ 17281}#
+ #{i\ 18313}#)
+ (#{syntax-object-expression\ 17281}#
+ #{j\ 18314}#))
+ (#{same-marks?\ 17370}#
+ (#{wrap-marks\ 17322}#
+ (#{syntax-object-wrap\ 17283}# #{i\ 18313}#))
+ (#{wrap-marks\ 17322}#
+ (#{syntax-object-wrap\ 17283}# #{j\ 18314}#)))
#f)
- (eq? #{i\ 1378}# #{j\ 1379}#))))
- (#{valid-bound-ids?\ 443}#
- (lambda (#{ids\ 1386}#)
+ (eq? #{i\ 18313}# #{j\ 18314}#))))
+ (#{valid-bound-ids?\ 17378}#
+ (lambda (#{ids\ 18321}#)
(if (letrec*
- ((#{all-ids?\ 1391}#
- (lambda (#{ids\ 1392}#)
+ ((#{all-ids?\ 18326}#
+ (lambda (#{ids\ 18327}#)
(begin
- (let ((#{t\ 1395}# (null? #{ids\ 1392}#)))
- (if #{t\ 1395}#
- #{t\ 1395}#
- (if (#{id?\ 380}# (car #{ids\ 1392}#))
- (#{all-ids?\ 1391}# (cdr #{ids\ 1392}#))
+ (let ((#{t\ 18330}# (null? #{ids\ 18327}#)))
+ (if #{t\ 18330}#
+ #{t\ 18330}#
+ (if (#{id?\ 17315}# (car #{ids\ 18327}#))
+ (#{all-ids?\ 18326}# (cdr #{ids\ 18327}#))
#f)))))))
- (begin (#{all-ids?\ 1391}# #{ids\ 1386}#)))
- (#{distinct-bound-ids?\ 445}# #{ids\ 1386}#)
+ (begin (#{all-ids?\ 18326}# #{ids\ 18321}#)))
+ (#{distinct-bound-ids?\ 17380}# #{ids\ 18321}#)
#f)))
- (#{distinct-bound-ids?\ 445}#
- (lambda (#{ids\ 1400}#)
+ (#{distinct-bound-ids?\ 17380}#
+ (lambda (#{ids\ 18335}#)
(letrec*
- ((#{distinct?\ 1404}#
- (lambda (#{ids\ 1405}#)
+ ((#{distinct?\ 18339}#
+ (lambda (#{ids\ 18340}#)
(begin
- (let ((#{t\ 1408}# (null? #{ids\ 1405}#)))
- (if #{t\ 1408}#
- #{t\ 1408}#
- (if (not (#{bound-id-member?\ 447}#
- (car #{ids\ 1405}#)
- (cdr #{ids\ 1405}#)))
- (#{distinct?\ 1404}# (cdr #{ids\ 1405}#))
+ (let ((#{t\ 18343}# (null? #{ids\ 18340}#)))
+ (if #{t\ 18343}#
+ #{t\ 18343}#
+ (if (not (#{bound-id-member?\ 17382}#
+ (car #{ids\ 18340}#)
+ (cdr #{ids\ 18340}#)))
+ (#{distinct?\ 18339}# (cdr #{ids\ 18340}#))
#f)))))))
- (begin (#{distinct?\ 1404}# #{ids\ 1400}#)))))
- (#{bound-id-member?\ 447}#
- (lambda (#{x\ 1412}# #{list\ 1413}#)
- (if (not (null? #{list\ 1413}#))
+ (begin (#{distinct?\ 18339}# #{ids\ 18335}#)))))
+ (#{bound-id-member?\ 17382}#
+ (lambda (#{x\ 18347}# #{list\ 18348}#)
+ (if (not (null? #{list\ 18348}#))
(begin
- (let ((#{t\ 1420}#
- (#{bound-id=?\ 441}#
- #{x\ 1412}#
- (car #{list\ 1413}#))))
- (if #{t\ 1420}#
- #{t\ 1420}#
- (#{bound-id-member?\ 447}#
- #{x\ 1412}#
- (cdr #{list\ 1413}#)))))
+ (let ((#{t\ 18355}#
+ (#{bound-id=?\ 17376}#
+ #{x\ 18347}#
+ (car #{list\ 18348}#))))
+ (if #{t\ 18355}#
+ #{t\ 18355}#
+ (#{bound-id-member?\ 17382}#
+ #{x\ 18347}#
+ (cdr #{list\ 18348}#)))))
#f)))
- (#{wrap\ 449}#
- (lambda (#{x\ 1422}# #{w\ 1423}# #{defmod\ 1424}#)
- (if (if (null? (#{wrap-marks\ 387}# #{w\ 1423}#))
- (null? (#{wrap-subst\ 389}# #{w\ 1423}#))
+ (#{wrap\ 17384}#
+ (lambda (#{x\ 18357}# #{w\ 18358}# #{defmod\ 18359}#)
+ (if (if (null? (#{wrap-marks\ 17322}# #{w\ 18358}#))
+ (null? (#{wrap-subst\ 17324}# #{w\ 18358}#))
#f)
- #{x\ 1422}#
- (if (#{syntax-object?\ 344}# #{x\ 1422}#)
- (#{make-syntax-object\ 342}#
- (#{syntax-object-expression\ 346}# #{x\ 1422}#)
- (#{join-wraps\ 431}#
- #{w\ 1423}#
- (#{syntax-object-wrap\ 348}# #{x\ 1422}#))
- (#{syntax-object-module\ 350}# #{x\ 1422}#))
- (if (null? #{x\ 1422}#)
- #{x\ 1422}#
- (#{make-syntax-object\ 342}#
- #{x\ 1422}#
- #{w\ 1423}#
- #{defmod\ 1424}#))))))
- (#{source-wrap\ 451}#
- (lambda (#{x\ 1437}#
- #{w\ 1438}#
- #{s\ 1439}#
- #{defmod\ 1440}#)
- (#{wrap\ 449}#
- (#{decorate-source\ 298}#
- #{x\ 1437}#
- #{s\ 1439}#)
- #{w\ 1438}#
- #{defmod\ 1440}#)))
- (#{chi-sequence\ 453}#
- (lambda (#{body\ 1445}#
- #{r\ 1446}#
- #{w\ 1447}#
- #{s\ 1448}#
- #{mod\ 1449}#)
- (#{build-sequence\ 332}#
- #{s\ 1448}#
+ #{x\ 18357}#
+ (if (#{syntax-object?\ 17279}# #{x\ 18357}#)
+ (#{make-syntax-object\ 17277}#
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18357}#)
+ (#{join-wraps\ 17366}#
+ #{w\ 18358}#
+ (#{syntax-object-wrap\ 17283}# #{x\ 18357}#))
+ (#{syntax-object-module\ 17285}# #{x\ 18357}#))
+ (if (null? #{x\ 18357}#)
+ #{x\ 18357}#
+ (#{make-syntax-object\ 17277}#
+ #{x\ 18357}#
+ #{w\ 18358}#
+ #{defmod\ 18359}#))))))
+ (#{source-wrap\ 17386}#
+ (lambda (#{x\ 18372}#
+ #{w\ 18373}#
+ #{s\ 18374}#
+ #{defmod\ 18375}#)
+ (#{wrap\ 17384}#
+ (#{decorate-source\ 17233}#
+ #{x\ 18372}#
+ #{s\ 18374}#)
+ #{w\ 18373}#
+ #{defmod\ 18375}#)))
+ (#{chi-sequence\ 17388}#
+ (lambda (#{body\ 18380}#
+ #{r\ 18381}#
+ #{w\ 18382}#
+ #{s\ 18383}#
+ #{mod\ 18384}#)
+ (#{build-sequence\ 17267}#
+ #{s\ 18383}#
(letrec*
- ((#{dobody\ 1460}#
- (lambda (#{body\ 1461}#
- #{r\ 1462}#
- #{w\ 1463}#
- #{mod\ 1464}#)
- (if (null? #{body\ 1461}#)
+ ((#{dobody\ 18395}#
+ (lambda (#{body\ 18396}#
+ #{r\ 18397}#
+ #{w\ 18398}#
+ #{mod\ 18399}#)
+ (if (null? #{body\ 18396}#)
'()
(begin
- (let ((#{first\ 1466}#
- (#{chi\ 465}#
- (car #{body\ 1461}#)
- #{r\ 1462}#
- #{w\ 1463}#
- #{mod\ 1464}#)))
- (cons #{first\ 1466}#
- (#{dobody\ 1460}#
- (cdr #{body\ 1461}#)
- #{r\ 1462}#
- #{w\ 1463}#
- #{mod\ 1464}#))))))))
+ (let ((#{first\ 18401}#
+ (#{chi\ 17400}#
+ (car #{body\ 18396}#)
+ #{r\ 18397}#
+ #{w\ 18398}#
+ #{mod\ 18399}#)))
+ (cons #{first\ 18401}#
+ (#{dobody\ 18395}#
+ (cdr #{body\ 18396}#)
+ #{r\ 18397}#
+ #{w\ 18398}#
+ #{mod\ 18399}#))))))))
(begin
- (#{dobody\ 1460}#
- #{body\ 1445}#
- #{r\ 1446}#
- #{w\ 1447}#
- #{mod\ 1449}#))))))
- (#{chi-top-sequence\ 455}#
- (lambda (#{body\ 1467}#
- #{r\ 1468}#
- #{w\ 1469}#
- #{s\ 1470}#
- #{m\ 1471}#
- #{esew\ 1472}#
- #{mod\ 1473}#)
- (#{build-sequence\ 332}#
- #{s\ 1470}#
+ (#{dobody\ 18395}#
+ #{body\ 18380}#
+ #{r\ 18381}#
+ #{w\ 18382}#
+ #{mod\ 18384}#))))))
+ (#{chi-top-sequence\ 17390}#
+ (lambda (#{body\ 18402}#
+ #{r\ 18403}#
+ #{w\ 18404}#
+ #{s\ 18405}#
+ #{m\ 18406}#
+ #{esew\ 18407}#
+ #{mod\ 18408}#)
+ (#{build-sequence\ 17267}#
+ #{s\ 18405}#
(letrec*
- ((#{dobody\ 1489}#
- (lambda (#{body\ 1490}#
- #{r\ 1491}#
- #{w\ 1492}#
- #{m\ 1493}#
- #{esew\ 1494}#
- #{mod\ 1495}#
- #{out\ 1496}#)
- (if (null? #{body\ 1490}#)
- (reverse #{out\ 1496}#)
- (#{dobody\ 1489}#
- (cdr #{body\ 1490}#)
- #{r\ 1491}#
- #{w\ 1492}#
- #{m\ 1493}#
- #{esew\ 1494}#
- #{mod\ 1495}#
- (cons (#{chi-top\ 463}#
- (car #{body\ 1490}#)
- #{r\ 1491}#
- #{w\ 1492}#
- #{m\ 1493}#
- #{esew\ 1494}#
- #{mod\ 1495}#)
- #{out\ 1496}#))))))
+ ((#{dobody\ 18424}#
+ (lambda (#{body\ 18425}#
+ #{r\ 18426}#
+ #{w\ 18427}#
+ #{m\ 18428}#
+ #{esew\ 18429}#
+ #{mod\ 18430}#
+ #{out\ 18431}#)
+ (if (null? #{body\ 18425}#)
+ (reverse #{out\ 18431}#)
+ (#{dobody\ 18424}#
+ (cdr #{body\ 18425}#)
+ #{r\ 18426}#
+ #{w\ 18427}#
+ #{m\ 18428}#
+ #{esew\ 18429}#
+ #{mod\ 18430}#
+ (cons (#{chi-top\ 17398}#
+ (car #{body\ 18425}#)
+ #{r\ 18426}#
+ #{w\ 18427}#
+ #{m\ 18428}#
+ #{esew\ 18429}#
+ #{mod\ 18430}#)
+ #{out\ 18431}#))))))
(begin
- (#{dobody\ 1489}#
- #{body\ 1467}#
- #{r\ 1468}#
- #{w\ 1469}#
- #{m\ 1471}#
- #{esew\ 1472}#
- #{mod\ 1473}#
+ (#{dobody\ 18424}#
+ #{body\ 18402}#
+ #{r\ 18403}#
+ #{w\ 18404}#
+ #{m\ 18406}#
+ #{esew\ 18407}#
+ #{mod\ 18408}#
'()))))))
- (#{chi-install-global\ 457}#
- (lambda (#{name\ 1497}# #{e\ 1498}#)
- (#{build-global-definition\ 320}#
+ (#{chi-install-global\ 17392}#
+ (lambda (#{name\ 18432}# #{e\ 18433}#)
+ (#{build-global-definition\ 17255}#
#f
- #{name\ 1497}#
- (#{build-application\ 304}#
+ #{name\ 18432}#
+ (#{build-application\ 17239}#
#f
- (#{build-primref\ 328}#
+ (#{build-primref\ 17263}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 330}# #f #{name\ 1497}#)
- (#{build-data\ 330}# #f (quote macro))
- #{e\ 1498}#)))))
- (#{chi-when-list\ 459}#
- (lambda (#{e\ 1506}# #{when-list\ 1507}# #{w\ 1508}#)
+ (list (#{build-data\ 17265}# #f #{name\ 18432}#)
+ (#{build-data\ 17265}# #f (quote macro))
+ #{e\ 18433}#)))))
+ (#{chi-when-list\ 17394}#
+ (lambda (#{e\ 18441}# #{when-list\ 18442}# #{w\ 18443}#)
(letrec*
- ((#{f\ 1515}#
- (lambda (#{when-list\ 1516}# #{situations\ 1517}#)
- (if (null? #{when-list\ 1516}#)
- #{situations\ 1517}#
- (#{f\ 1515}#
- (cdr #{when-list\ 1516}#)
+ ((#{f\ 18450}#
+ (lambda (#{when-list\ 18451}# #{situations\ 18452}#)
+ (if (null? #{when-list\ 18451}#)
+ #{situations\ 18452}#
+ (#{f\ 18450}#
+ (cdr #{when-list\ 18451}#)
(cons (begin
- (let ((#{x\ 1519}# (car #{when-list\ 1516}#)))
- (if (#{free-id=?\ 439}#
- #{x\ 1519}#
+ (let ((#{x\ 18454}#
+ (car #{when-list\ 18451}#)))
+ (if (#{free-id=?\ 17374}#
+ #{x\ 18454}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1518"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i18453"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1512" "i1513" "i1514"))
+ #("i18447" "i18448" "i18449"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1509" "i1510" "i1511"))
+ #("i18444" "i18445" "i18446"))
#(ribcage
(lambda-var-list
gen-var
@@ -1495,154 +1552,157 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 439}#
- #{x\ 1519}#
+ (if (#{free-id=?\ 17374}#
+ #{x\ 18454}#
'#(syntax-object
load
((top)
@@ -1652,17 +1712,17 @@
#(ribcage
#(x)
#((top))
- #("i1518"))
+ #("i18453"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1512" "i1513" "i1514"))
+ #("i18447" "i18448" "i18449"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1509" "i1510" "i1511"))
+ #("i18444" "i18445" "i18446"))
#(ribcage
(lambda-var-list
gen-var
@@ -1938,154 +1998,157 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 439}#
- #{x\ 1519}#
+ (if (#{free-id=?\ 17374}#
+ #{x\ 18454}#
'#(syntax-object
eval
((top)
@@ -2095,17 +2158,21 @@
#(ribcage
#(x)
#((top))
- #("i1518"))
+ #("i18453"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1512" "i1513" "i1514"))
+ #("i18447"
+ "i18448"
+ "i18449"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1509" "i1510" "i1511"))
+ #("i18444"
+ "i18445"
+ "i18446"))
#(ribcage
(lambda-var-list
gen-var
@@ -2381,154 +2448,157 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 439}#
- #{x\ 1519}#
+ (if (#{free-id=?\ 17374}#
+ #{x\ 18454}#
'#(syntax-object
expand
((top)
@@ -2538,17 +2608,21 @@
#(ribcage
#(x)
#((top))
- #("i1518"))
+ #("i18453"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1512" "i1513" "i1514"))
+ #("i18447"
+ "i18448"
+ "i18449"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1509" "i1510" "i1511"))
+ #("i18444"
+ "i18445"
+ "i18446"))
#(ribcage
(lambda-var-list
gen-var
@@ -2824,398 +2898,403 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1506}#
- (#{wrap\ 449}#
- #{x\ 1519}#
- #{w\ 1508}#
+ #{e\ 18441}#
+ (#{wrap\ 17384}#
+ #{x\ 18454}#
+ #{w\ 18443}#
#f))))))))
- #{situations\ 1517}#))))))
+ #{situations\ 18452}#))))))
(begin
- (#{f\ 1515}# #{when-list\ 1507}# (quote ()))))))
- (#{syntax-type\ 461}#
- (lambda (#{e\ 1529}#
- #{r\ 1530}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{rib\ 1533}#
- #{mod\ 1534}#
- #{for-car?\ 1535}#)
- (if (symbol? #{e\ 1529}#)
+ (#{f\ 18450}# #{when-list\ 18442}# (quote ()))))))
+ (#{syntax-type\ 17396}#
+ (lambda (#{e\ 18464}#
+ #{r\ 18465}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{rib\ 18468}#
+ #{mod\ 18469}#
+ #{for-car?\ 18470}#)
+ (if (symbol? #{e\ 18464}#)
(begin
- (let ((#{n\ 1547}#
- (#{id-var-name\ 437}# #{e\ 1529}# #{w\ 1531}#)))
+ (let ((#{n\ 18482}#
+ (#{id-var-name\ 17372}#
+ #{e\ 18464}#
+ #{w\ 18466}#)))
(begin
- (let ((#{b\ 1549}#
- (#{lookup\ 374}#
- #{n\ 1547}#
- #{r\ 1530}#
- #{mod\ 1534}#)))
+ (let ((#{b\ 18484}#
+ (#{lookup\ 17309}#
+ #{n\ 18482}#
+ #{r\ 18465}#
+ #{mod\ 18469}#)))
(begin
- (let ((#{type\ 1551}#
- (#{binding-type\ 363}# #{b\ 1549}#)))
- (if (eqv? #{type\ 1551}# (quote lexical))
+ (let ((#{type\ 18486}#
+ (#{binding-type\ 17298}# #{b\ 18484}#)))
+ (if (eqv? #{type\ 18486}# (quote lexical))
(values
- #{type\ 1551}#
- (#{binding-value\ 365}# #{b\ 1549}#)
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (if (eqv? #{type\ 1551}# (quote global))
+ #{type\ 18486}#
+ (#{binding-value\ 17300}# #{b\ 18484}#)
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (if (eqv? #{type\ 18486}# (quote global))
(values
- #{type\ 1551}#
- #{n\ 1547}#
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (if (eqv? #{type\ 1551}# (quote macro))
- (if #{for-car?\ 1535}#
+ #{type\ 18486}#
+ #{n\ 18482}#
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (if (eqv? #{type\ 18486}# (quote macro))
+ (if #{for-car?\ 18470}#
(values
- #{type\ 1551}#
- (#{binding-value\ 365}# #{b\ 1549}#)
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (#{syntax-type\ 461}#
- (#{chi-macro\ 471}#
- (#{binding-value\ 365}# #{b\ 1549}#)
- #{e\ 1529}#
- #{r\ 1530}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{rib\ 1533}#
- #{mod\ 1534}#)
- #{r\ 1530}#
+ #{type\ 18486}#
+ (#{binding-value\ 17300}# #{b\ 18484}#)
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (#{syntax-type\ 17396}#
+ (#{chi-macro\ 17406}#
+ (#{binding-value\ 17300}# #{b\ 18484}#)
+ #{e\ 18464}#
+ #{r\ 18465}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{rib\ 18468}#
+ #{mod\ 18469}#)
+ #{r\ 18465}#
'(())
- #{s\ 1532}#
- #{rib\ 1533}#
- #{mod\ 1534}#
+ #{s\ 18467}#
+ #{rib\ 18468}#
+ #{mod\ 18469}#
#f))
(values
- #{type\ 1551}#
- (#{binding-value\ 365}# #{b\ 1549}#)
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#))))))))))
- (if (pair? #{e\ 1529}#)
+ #{type\ 18486}#
+ (#{binding-value\ 17300}# #{b\ 18484}#)
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#))))))))))
+ (if (pair? #{e\ 18464}#)
(begin
- (let ((#{first\ 1560}# (car #{e\ 1529}#)))
+ (let ((#{first\ 18495}# (car #{e\ 18464}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 461}#
- #{first\ 1560}#
- #{r\ 1530}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{rib\ 1533}#
- #{mod\ 1534}#
+ (#{syntax-type\ 17396}#
+ #{first\ 18495}#
+ #{r\ 18465}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{rib\ 18468}#
+ #{mod\ 18469}#
#t))
- (lambda (#{ftype\ 1561}#
- #{fval\ 1562}#
- #{fe\ 1563}#
- #{fw\ 1564}#
- #{fs\ 1565}#
- #{fmod\ 1566}#)
- (if (eqv? #{ftype\ 1561}# (quote lexical))
+ (lambda (#{ftype\ 18496}#
+ #{fval\ 18497}#
+ #{fe\ 18498}#
+ #{fw\ 18499}#
+ #{fs\ 18500}#
+ #{fmod\ 18501}#)
+ (if (eqv? #{ftype\ 18496}# (quote lexical))
(values
'lexical-call
- #{fval\ 1562}#
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (if (eqv? #{ftype\ 1561}# (quote global))
+ #{fval\ 18497}#
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (if (eqv? #{ftype\ 18496}# (quote global))
(values
'global-call
- (#{make-syntax-object\ 342}#
- #{fval\ 1562}#
- #{w\ 1531}#
- #{fmod\ 1566}#)
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (if (eqv? #{ftype\ 1561}# (quote macro))
- (#{syntax-type\ 461}#
- (#{chi-macro\ 471}#
- #{fval\ 1562}#
- #{e\ 1529}#
- #{r\ 1530}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{rib\ 1533}#
- #{mod\ 1534}#)
- #{r\ 1530}#
+ (#{make-syntax-object\ 17277}#
+ #{fval\ 18497}#
+ #{w\ 18466}#
+ #{fmod\ 18501}#)
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (if (eqv? #{ftype\ 18496}# (quote macro))
+ (#{syntax-type\ 17396}#
+ (#{chi-macro\ 17406}#
+ #{fval\ 18497}#
+ #{e\ 18464}#
+ #{r\ 18465}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{rib\ 18468}#
+ #{mod\ 18469}#)
+ #{r\ 18465}#
'(())
- #{s\ 1532}#
- #{rib\ 1533}#
- #{mod\ 1534}#
- #{for-car?\ 1535}#)
- (if (eqv? #{ftype\ 1561}# (quote module-ref))
+ #{s\ 18467}#
+ #{rib\ 18468}#
+ #{mod\ 18469}#
+ #{for-car?\ 18470}#)
+ (if (eqv? #{ftype\ 18496}# (quote module-ref))
(call-with-values
(lambda ()
- (#{fval\ 1562}#
- #{e\ 1529}#
- #{r\ 1530}#
- #{w\ 1531}#))
- (lambda (#{e\ 1578}#
- #{r\ 1579}#
- #{w\ 1580}#
- #{s\ 1581}#
- #{mod\ 1582}#)
- (#{syntax-type\ 461}#
- #{e\ 1578}#
- #{r\ 1579}#
- #{w\ 1580}#
- #{s\ 1581}#
- #{rib\ 1533}#
- #{mod\ 1582}#
- #{for-car?\ 1535}#)))
- (if (eqv? #{ftype\ 1561}# (quote core))
+ (#{fval\ 18497}#
+ #{e\ 18464}#
+ #{r\ 18465}#
+ #{w\ 18466}#))
+ (lambda (#{e\ 18513}#
+ #{r\ 18514}#
+ #{w\ 18515}#
+ #{s\ 18516}#
+ #{mod\ 18517}#)
+ (#{syntax-type\ 17396}#
+ #{e\ 18513}#
+ #{r\ 18514}#
+ #{w\ 18515}#
+ #{s\ 18516}#
+ #{rib\ 18468}#
+ #{mod\ 18517}#
+ #{for-car?\ 18470}#)))
+ (if (eqv? #{ftype\ 18496}# (quote core))
(values
'core-form
- #{fval\ 1562}#
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (if (eqv? #{ftype\ 1561}#
+ #{fval\ 18497}#
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (if (eqv? #{ftype\ 18496}#
'local-syntax)
(values
'local-syntax-form
- #{fval\ 1562}#
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (if (eqv? #{ftype\ 1561}# (quote begin))
+ #{fval\ 18497}#
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (if (eqv? #{ftype\ 18496}# (quote begin))
(values
'begin-form
#f
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (if (eqv? #{ftype\ 1561}#
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (if (eqv? #{ftype\ 18496}#
'eval-when)
(values
'eval-when-form
#f
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
- (if (eqv? #{ftype\ 1561}#
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
+ (if (eqv? #{ftype\ 18496}#
'define)
- (let ((#{tmp\ 1593}# #{e\ 1529}#))
- (let ((#{tmp\ 1594}#
+ (let ((#{tmp\ 18528}# #{e\ 18464}#))
+ (let ((#{tmp\ 18529}#
($sc-dispatch
- #{tmp\ 1593}#
+ #{tmp\ 18528}#
'(_ any any))))
- (if (if #{tmp\ 1594}#
+ (if (if #{tmp\ 18529}#
(@apply
- (lambda (#{name\ 1597}#
- #{val\ 1598}#)
- (#{id?\ 380}#
- #{name\ 1597}#))
- #{tmp\ 1594}#)
+ (lambda (#{name\ 18532}#
+ #{val\ 18533}#)
+ (#{id?\ 17315}#
+ #{name\ 18532}#))
+ #{tmp\ 18529}#)
#f)
(@apply
- (lambda (#{name\ 1601}#
- #{val\ 1602}#)
+ (lambda (#{name\ 18536}#
+ #{val\ 18537}#)
(values
'define-form
- #{name\ 1601}#
- #{val\ 1602}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#))
- #{tmp\ 1594}#)
- (let ((#{tmp\ 1603}#
+ #{name\ 18536}#
+ #{val\ 18537}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#))
+ #{tmp\ 18529}#)
+ (let ((#{tmp\ 18538}#
($sc-dispatch
- #{tmp\ 1593}#
+ #{tmp\ 18528}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp\ 1603}#
+ (if (if #{tmp\ 18538}#
(@apply
- (lambda (#{name\
1608}#
- #{args\
1609}#
- #{e1\
1610}#
- #{e2\
1611}#)
- (if (#{id?\ 380}#
- #{name\
1608}#)
-
(#{valid-bound-ids?\ 443}#
-
(#{lambda-var-list\ 495}#
- #{args\
1609}#))
+ (lambda (#{name\
18543}#
+ #{args\
18544}#
+ #{e1\
18545}#
+ #{e2\
18546}#)
+ (if (#{id?\
17315}#
+ #{name\
18543}#)
+
(#{valid-bound-ids?\ 17378}#
+
(#{lambda-var-list\ 17430}#
+ #{args\
18544}#))
#f))
- #{tmp\ 1603}#)
+ #{tmp\ 18538}#)
#f)
(@apply
- (lambda (#{name\ 1618}#
- #{args\ 1619}#
- #{e1\ 1620}#
- #{e2\ 1621}#)
+ (lambda (#{name\ 18553}#
+ #{args\ 18554}#
+ #{e1\ 18555}#
+ #{e2\ 18556}#)
(values
'define-form
- (#{wrap\ 449}#
- #{name\ 1618}#
- #{w\ 1531}#
- #{mod\ 1534}#)
- (#{decorate-source\
298}#
+ (#{wrap\ 17384}#
+ #{name\ 18553}#
+ #{w\ 18466}#
+ #{mod\ 18469}#)
+ (#{decorate-source\
17233}#
(cons
'#(syntax-object
lambda
((top)
@@ -3228,10 +3307,10 @@
(top)
(top)
(top))
-
#("i1614"
-
"i1615"
-
"i1616"
-
"i1617"))
+
#("i18549"
+
"i18550"
+
"i18551"
+
"i18552"))
#(ribcage
()
()
@@ -3253,12 +3332,12 @@
(top)
(top)
(top))
-
#("i1567"
-
"i1568"
-
"i1569"
-
"i1570"
-
"i1571"
-
"i1572"))
+
#("i18502"
+
"i18503"
+
"i18504"
+
"i18505"
+
"i18506"
+
"i18507"))
#(ribcage
()
()
@@ -3266,7 +3345,7 @@
#(ribcage
#(first)
#((top))
-
#("i1559"))
+
#("i18494"))
#(ribcage
()
()
@@ -3294,13 +3373,13 @@
(top)
(top)
(top))
-
#("i1536"
-
"i1537"
-
"i1538"
-
"i1539"
-
"i1540"
-
"i1541"
-
"i1542"))
+
#("i18471"
+
"i18472"
+
"i18473"
+
"i18474"
+
"i18475"
+
"i18476"
+
"i18477"))
#(ribcage
(lambda-var-list
gen-var
@@ -3576,143 +3655,143 @@
(top)
(top)
(top))
-
("i494"
-
"i492"
-
"i490"
-
"i488"
-
"i486"
-
"i484"
-
"i482"
-
"i480"
-
"i478"
-
"i476"
-
"i474"
-
"i472"
-
"i470"
-
"i468"
-
"i466"
-
"i464"
-
"i462"
-
"i460"
-
"i458"
-
"i456"
-
"i454"
-
"i452"
-
"i450"
-
"i448"
-
"i446"
-
"i444"
-
"i442"
-
"i440"
-
"i438"
-
"i436"
-
"i434"
-
"i432"
-
"i430"
-
"i428"
-
"i426"
-
"i424"
-
"i423"
-
"i422"
-
"i420"
-
"i419"
-
"i418"
-
"i417"
-
"i416"
-
"i414"
-
"i412"
-
"i410"
-
"i408"
-
"i406"
-
"i404"
-
"i402"
-
"i400"
-
"i397"
-
"i395"
-
"i394"
-
"i393"
-
"i392"
-
"i391"
-
"i390"
-
"i388"
-
"i386"
-
"i384"
-
"i382"
-
"i381"
-
"i379"
-
"i377"
-
"i375"
-
"i373"
-
"i371"
-
"i369"
-
"i367"
-
"i366"
-
"i364"
-
"i362"
-
"i361"
-
"i360"
-
"i358"
-
"i357"
-
"i355"
-
"i353"
-
"i351"
-
"i349"
-
"i347"
-
"i345"
-
"i343"
-
"i341"
-
"i339"
-
"i337"
-
"i335"
-
"i333"
-
"i331"
-
"i329"
-
"i327"
-
"i325"
-
"i323"
-
"i321"
-
"i319"
-
"i317"
-
"i315"
-
"i313"
-
"i311"
-
"i309"
-
"i307"
-
"i305"
-
"i303"
-
"i301"
-
"i299"
-
"i297"
-
"i295"
-
"i293"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i278"
-
"i276"
-
"i274"
-
"i271"
-
"i269"
-
"i267"
-
"i265"
-
"i263"
-
"i261"
-
"i259"
-
"i257"
-
"i255"
-
"i253"
-
"i251"
-
"i249"
-
"i247"
-
"i245"
-
"i243"
-
"i241"
-
"i239"
-
"i237"))
+
("i17429"
+
"i17427"
+
"i17425"
+
"i17423"
+
"i17421"
+
"i17419"
+
"i17417"
+
"i17415"
+
"i17413"
+
"i17411"
+
"i17409"
+
"i17407"
+
"i17405"
+
"i17403"
+
"i17401"
+
"i17399"
+
"i17397"
+
"i17395"
+
"i17393"
+
"i17391"
+
"i17389"
+
"i17387"
+
"i17385"
+
"i17383"
+
"i17381"
+
"i17379"
+
"i17377"
+
"i17375"
+
"i17373"
+
"i17371"
+
"i17369"
+
"i17367"
+
"i17365"
+
"i17363"
+
"i17361"
+
"i17359"
+
"i17358"
+
"i17357"
+
"i17355"
+
"i17354"
+
"i17353"
+
"i17352"
+
"i17351"
+
"i17349"
+
"i17347"
+
"i17345"
+
"i17343"
+
"i17341"
+
"i17339"
+
"i17337"
+
"i17335"
+
"i17332"
+
"i17330"
+
"i17329"
+
"i17328"
+
"i17327"
+
"i17326"
+
"i17325"
+
"i17323"
+
"i17321"
+
"i17319"
+
"i17317"
+
"i17316"
+
"i17314"
+
"i17312"
+
"i17310"
+
"i17308"
+
"i17306"
+
"i17304"
+
"i17302"
+
"i17301"
+
"i17299"
+
"i17297"
+
"i17296"
+
"i17295"
+
"i17293"
+
"i17292"
+
"i17290"
+
"i17288"
+
"i17286"
+
"i17284"
+
"i17282"
+
"i17280"
+
"i17278"
+
"i17276"
+
"i17274"
+
"i17272"
+
"i17270"
+
"i17268"
+
"i17266"
+
"i17264"
+
"i17262"
+
"i17260"
+
"i17258"
+
"i17256"
+
"i17254"
+
"i17252"
+
"i17250"
+
"i17248"
+
"i17246"
+
"i17244"
+
"i17242"
+
"i17240"
+
"i17238"
+
"i17236"
+
"i17234"
+
"i17232"
+
"i17230"
+
"i17228"
+
"i17227"
+
"i17225"
+
"i17223"
+
"i17221"
+
"i17219"
+
"i17217"
+
"i17215"
+
"i17213"
+
"i17211"
+
"i17209"
+
"i17206"
+
"i17204"
+
"i17202"
+
"i17200"
+
"i17198"
+
"i17196"
+
"i17194"
+
"i17192"
+
"i17190"
+
"i17188"
+
"i17186"
+
"i17184"
+
"i17182"
+
"i17180"
+
"i17178"
+
"i17176"
+
"i17174"
+
"i17172"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3722,49 +3801,49 @@
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
-
"i35")))
+
("i16974"
+
"i16973"
+
"i16972"
+
"i16970")))
(hygiene
guile))
- (#{wrap\
449}#
- (cons
#{args\ 1619}#
-
(cons #{e1\ 1620}#
-
#{e2\ 1621}#))
- #{w\
1531}#
- #{mod\
1534}#))
- #{s\ 1532}#)
+ (#{wrap\
17384}#
+ (cons
#{args\ 18554}#
+
(cons #{e1\ 18555}#
+
#{e2\ 18556}#))
+ #{w\
18466}#
+ #{mod\
18469}#))
+ #{s\ 18467}#)
'(())
- #{s\ 1532}#
- #{mod\ 1534}#))
- #{tmp\ 1603}#)
- (let ((#{tmp\ 1624}#
+ #{s\ 18467}#
+ #{mod\ 18469}#))
+ #{tmp\ 18538}#)
+ (let ((#{tmp\ 18559}#
($sc-dispatch
- #{tmp\ 1593}#
+ #{tmp\ 18528}#
'(_ any))))
- (if (if #{tmp\ 1624}#
+ (if (if #{tmp\ 18559}#
(@apply
- (lambda
(#{name\ 1626}#)
- (#{id?\ 380}#
- #{name\
1626}#))
- #{tmp\ 1624}#)
+ (lambda
(#{name\ 18561}#)
+ (#{id?\
17315}#
+ #{name\
18561}#))
+ #{tmp\ 18559}#)
#f)
(@apply
- (lambda (#{name\
1628}#)
+ (lambda (#{name\
18563}#)
(values
'define-form
- (#{wrap\ 449}#
- #{name\ 1628}#
- #{w\ 1531}#
- #{mod\ 1534}#)
+ (#{wrap\ 17384}#
+ #{name\
18563}#
+ #{w\ 18466}#
+ #{mod\
18469}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
-
#("i1627"))
+
#("i18562"))
#(ribcage
()
()
@@ -3786,12 +3865,12 @@
(top)
(top)
(top))
- #("i1567"
- "i1568"
- "i1569"
- "i1570"
- "i1571"
-
"i1572"))
+
#("i18502"
+
"i18503"
+
"i18504"
+
"i18505"
+
"i18506"
+
"i18507"))
#(ribcage
()
()
@@ -3799,7 +3878,7 @@
#(ribcage
#(first)
#((top))
-
#("i1559"))
+
#("i18494"))
#(ribcage
()
()
@@ -3827,13 +3906,13 @@
(top)
(top)
(top))
- #("i1536"
- "i1537"
- "i1538"
- "i1539"
- "i1540"
- "i1541"
-
"i1542"))
+
#("i18471"
+
"i18472"
+
"i18473"
+
"i18474"
+
"i18475"
+
"i18476"
+
"i18477"))
#(ribcage
(lambda-var-list
gen-var
@@ -4109,143 +4188,143 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+
"i17172"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4255,10 +4334,10 @@
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+
"i16970")))
(hygiene
guile))
#(syntax-object
@@ -4267,7 +4346,7 @@
#(ribcage
#(name)
#((top))
-
#("i1627"))
+
#("i18562"))
#(ribcage
()
()
@@ -4289,12 +4368,12 @@
(top)
(top)
(top))
- #("i1567"
- "i1568"
- "i1569"
- "i1570"
- "i1571"
-
"i1572"))
+
#("i18502"
+
"i18503"
+
"i18504"
+
"i18505"
+
"i18506"
+
"i18507"))
#(ribcage
()
()
@@ -4302,7 +4381,7 @@
#(ribcage
#(first)
#((top))
-
#("i1559"))
+
#("i18494"))
#(ribcage
()
()
@@ -4330,13 +4409,13 @@
(top)
(top)
(top))
- #("i1536"
- "i1537"
- "i1538"
- "i1539"
- "i1540"
- "i1541"
-
"i1542"))
+
#("i18471"
+
"i18472"
+
"i18473"
+
"i18474"
+
"i18475"
+
"i18476"
+
"i18477"))
#(ribcage
(lambda-var-list
gen-var
@@ -4612,143 +4691,143 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+
"i17172"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4758,10 +4837,10 @@
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+
"i16970")))
(hygiene
guile))
#(syntax-object
@@ -4770,7 +4849,7 @@
#(ribcage
#(name)
#((top))
-
#("i1627"))
+
#("i18562"))
#(ribcage
()
()
@@ -4792,12 +4871,12 @@
(top)
(top)
(top))
- #("i1567"
- "i1568"
- "i1569"
- "i1570"
- "i1571"
-
"i1572"))
+
#("i18502"
+
"i18503"
+
"i18504"
+
"i18505"
+
"i18506"
+
"i18507"))
#(ribcage
()
()
@@ -4805,7 +4884,7 @@
#(ribcage
#(first)
#((top))
-
#("i1559"))
+
#("i18494"))
#(ribcage
()
()
@@ -4833,13 +4912,13 @@
(top)
(top)
(top))
- #("i1536"
- "i1537"
- "i1538"
- "i1539"
- "i1540"
- "i1541"
-
"i1542"))
+
#("i18471"
+
"i18472"
+
"i18473"
+
"i18474"
+
"i18475"
+
"i18476"
+
"i18477"))
#(ribcage
(lambda-var-list
gen-var
@@ -5115,143 +5194,143 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+
"i17172"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -5261,1219 +5340,1232 @@
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+
"i16970")))
(hygiene
guile)))
'(())
- #{s\ 1532}#
- #{mod\ 1534}#))
- #{tmp\ 1624}#)
+ #{s\ 18467}#
+ #{mod\ 18469}#))
+ #{tmp\ 18559}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\
1593}#))))))))
- (if (eqv? #{ftype\ 1561}#
+ #{tmp\
18528}#))))))))
+ (if (eqv? #{ftype\ 18496}#
'define-syntax)
- (let ((#{tmp\ 1631}# #{e\ 1529}#))
- (let ((#{tmp\ 1632}#
+ (let ((#{tmp\ 18566}#
+ #{e\ 18464}#))
+ (let ((#{tmp\ 18567}#
($sc-dispatch
- #{tmp\ 1631}#
+ #{tmp\ 18566}#
'(_ any any))))
- (if (if #{tmp\ 1632}#
+ (if (if #{tmp\ 18567}#
(@apply
- (lambda (#{name\
1635}#
- #{val\
1636}#)
- (#{id?\ 380}#
- #{name\ 1635}#))
- #{tmp\ 1632}#)
+ (lambda (#{name\
18570}#
+ #{val\
18571}#)
+ (#{id?\ 17315}#
+ #{name\ 18570}#))
+ #{tmp\ 18567}#)
#f)
(@apply
- (lambda (#{name\ 1639}#
- #{val\ 1640}#)
+ (lambda (#{name\ 18574}#
+ #{val\ 18575}#)
(values
'define-syntax-form
- #{name\ 1639}#
- #{val\ 1640}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#))
- #{tmp\ 1632}#)
+ #{name\ 18574}#
+ #{val\ 18575}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#))
+ #{tmp\ 18567}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 1631}#))))
+ #{tmp\ 18566}#))))
(values
'call
#f
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)))))))))))))))
- (if (#{syntax-object?\ 344}# #{e\ 1529}#)
- (#{syntax-type\ 461}#
- (#{syntax-object-expression\ 346}# #{e\ 1529}#)
- #{r\ 1530}#
- (#{join-wraps\ 431}#
- #{w\ 1531}#
- (#{syntax-object-wrap\ 348}# #{e\ 1529}#))
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)))))))))))))))
+ (if (#{syntax-object?\ 17279}# #{e\ 18464}#)
+ (#{syntax-type\ 17396}#
+ (#{syntax-object-expression\ 17281}#
+ #{e\ 18464}#)
+ #{r\ 18465}#
+ (#{join-wraps\ 17366}#
+ #{w\ 18466}#
+ (#{syntax-object-wrap\ 17283}# #{e\ 18464}#))
(begin
- (let ((#{t\ 1646}#
- (#{source-annotation\ 359}# #{e\ 1529}#)))
- (if #{t\ 1646}# #{t\ 1646}# #{s\ 1532}#)))
- #{rib\ 1533}#
+ (let ((#{t\ 18581}#
+ (#{source-annotation\ 17294}# #{e\ 18464}#)))
+ (if #{t\ 18581}# #{t\ 18581}# #{s\ 18467}#)))
+ #{rib\ 18468}#
(begin
- (let ((#{t\ 1650}#
- (#{syntax-object-module\ 350}# #{e\ 1529}#)))
- (if #{t\ 1650}# #{t\ 1650}# #{mod\ 1534}#)))
- #{for-car?\ 1535}#)
- (if (self-evaluating? #{e\ 1529}#)
+ (let ((#{t\ 18585}#
+ (#{syntax-object-module\ 17285}# #{e\ 18464}#)))
+ (if #{t\ 18585}# #{t\ 18585}# #{mod\ 18469}#)))
+ #{for-car?\ 18470}#)
+ (if (self-evaluating? #{e\ 18464}#)
(values
'constant
#f
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)
(values
'other
#f
- #{e\ 1529}#
- #{w\ 1531}#
- #{s\ 1532}#
- #{mod\ 1534}#)))))))
- (#{chi-top\ 463}#
- (lambda (#{e\ 1655}#
- #{r\ 1656}#
- #{w\ 1657}#
- #{m\ 1658}#
- #{esew\ 1659}#
- #{mod\ 1660}#)
+ #{e\ 18464}#
+ #{w\ 18466}#
+ #{s\ 18467}#
+ #{mod\ 18469}#)))))))
+ (#{chi-top\ 17398}#
+ (lambda (#{e\ 18590}#
+ #{r\ 18591}#
+ #{w\ 18592}#
+ #{m\ 18593}#
+ #{esew\ 18594}#
+ #{mod\ 18595}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 461}#
- #{e\ 1655}#
- #{r\ 1656}#
- #{w\ 1657}#
- (#{source-annotation\ 359}# #{e\ 1655}#)
+ (#{syntax-type\ 17396}#
+ #{e\ 18590}#
+ #{r\ 18591}#
+ #{w\ 18592}#
+ (#{source-annotation\ 17294}# #{e\ 18590}#)
#f
- #{mod\ 1660}#
+ #{mod\ 18595}#
#f))
- (lambda (#{type\ 1681}#
- #{value\ 1682}#
- #{e\ 1683}#
- #{w\ 1684}#
- #{s\ 1685}#
- #{mod\ 1686}#)
- (if (eqv? #{type\ 1681}# (quote begin-form))
- (let ((#{tmp\ 1694}# #{e\ 1683}#))
- (let ((#{tmp\ 1695}#
- ($sc-dispatch #{tmp\ 1694}# (quote (_)))))
- (if #{tmp\ 1695}#
+ (lambda (#{type\ 18616}#
+ #{value\ 18617}#
+ #{e\ 18618}#
+ #{w\ 18619}#
+ #{s\ 18620}#
+ #{mod\ 18621}#)
+ (if (eqv? #{type\ 18616}# (quote begin-form))
+ (let ((#{tmp\ 18629}# #{e\ 18618}#))
+ (let ((#{tmp\ 18630}#
+ ($sc-dispatch #{tmp\ 18629}# (quote (_)))))
+ (if #{tmp\ 18630}#
(@apply
- (lambda () (#{chi-void\ 479}#))
- #{tmp\ 1695}#)
- (let ((#{tmp\ 1696}#
+ (lambda () (#{chi-void\ 17414}#))
+ #{tmp\ 18630}#)
+ (let ((#{tmp\ 18631}#
($sc-dispatch
- #{tmp\ 1694}#
+ #{tmp\ 18629}#
'(_ any . each-any))))
- (if #{tmp\ 1696}#
+ (if #{tmp\ 18631}#
(@apply
- (lambda (#{e1\ 1699}# #{e2\ 1700}#)
- (#{chi-top-sequence\ 455}#
- (cons #{e1\ 1699}# #{e2\ 1700}#)
- #{r\ 1656}#
- #{w\ 1684}#
- #{s\ 1685}#
- #{m\ 1658}#
- #{esew\ 1659}#
- #{mod\ 1686}#))
- #{tmp\ 1696}#)
+ (lambda (#{e1\ 18634}# #{e2\ 18635}#)
+ (#{chi-top-sequence\ 17390}#
+ (cons #{e1\ 18634}# #{e2\ 18635}#)
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{s\ 18620}#
+ #{m\ 18593}#
+ #{esew\ 18594}#
+ #{mod\ 18621}#))
+ #{tmp\ 18631}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1694}#))))))
- (if (eqv? #{type\ 1681}# (quote local-syntax-form))
- (#{chi-local-syntax\ 475}#
- #{value\ 1682}#
- #{e\ 1683}#
- #{r\ 1656}#
- #{w\ 1684}#
- #{s\ 1685}#
- #{mod\ 1686}#
- (lambda (#{body\ 1703}#
- #{r\ 1704}#
- #{w\ 1705}#
- #{s\ 1706}#
- #{mod\ 1707}#)
- (#{chi-top-sequence\ 455}#
- #{body\ 1703}#
- #{r\ 1704}#
- #{w\ 1705}#
- #{s\ 1706}#
- #{m\ 1658}#
- #{esew\ 1659}#
- #{mod\ 1707}#)))
- (if (eqv? #{type\ 1681}# (quote eval-when-form))
- (let ((#{tmp\ 1714}# #{e\ 1683}#))
- (let ((#{tmp\ 1715}#
+ #{tmp\ 18629}#))))))
+ (if (eqv? #{type\ 18616}# (quote local-syntax-form))
+ (#{chi-local-syntax\ 17410}#
+ #{value\ 18617}#
+ #{e\ 18618}#
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{s\ 18620}#
+ #{mod\ 18621}#
+ (lambda (#{body\ 18638}#
+ #{r\ 18639}#
+ #{w\ 18640}#
+ #{s\ 18641}#
+ #{mod\ 18642}#)
+ (#{chi-top-sequence\ 17390}#
+ #{body\ 18638}#
+ #{r\ 18639}#
+ #{w\ 18640}#
+ #{s\ 18641}#
+ #{m\ 18593}#
+ #{esew\ 18594}#
+ #{mod\ 18642}#)))
+ (if (eqv? #{type\ 18616}# (quote eval-when-form))
+ (let ((#{tmp\ 18649}# #{e\ 18618}#))
+ (let ((#{tmp\ 18650}#
($sc-dispatch
- #{tmp\ 1714}#
+ #{tmp\ 18649}#
'(_ each-any any . each-any))))
- (if #{tmp\ 1715}#
+ (if #{tmp\ 18650}#
(@apply
- (lambda (#{x\ 1719}# #{e1\ 1720}# #{e2\ 1721}#)
+ (lambda (#{x\ 18654}#
+ #{e1\ 18655}#
+ #{e2\ 18656}#)
(begin
- (let ((#{when-list\ 1724}#
- (#{chi-when-list\ 459}#
- #{e\ 1683}#
- #{x\ 1719}#
- #{w\ 1684}#))
- (#{body\ 1725}#
- (cons #{e1\ 1720}# #{e2\ 1721}#)))
- (if (eq? #{m\ 1658}# (quote e))
+ (let ((#{when-list\ 18659}#
+ (#{chi-when-list\ 17394}#
+ #{e\ 18618}#
+ #{x\ 18654}#
+ #{w\ 18619}#))
+ (#{body\ 18660}#
+ (cons #{e1\ 18655}# #{e2\ 18656}#)))
+ (if (eq? #{m\ 18593}# (quote e))
(if (memq 'eval
- #{when-list\ 1724}#)
- (#{chi-top-sequence\ 455}#
- #{body\ 1725}#
- #{r\ 1656}#
- #{w\ 1684}#
- #{s\ 1685}#
+ #{when-list\ 18659}#)
+ (#{chi-top-sequence\ 17390}#
+ #{body\ 18660}#
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{s\ 18620}#
(if (memq 'expand
- #{when-list\ 1724}#)
+ #{when-list\ 18659}#)
'c&e
'e)
'(eval)
- #{mod\ 1686}#)
+ #{mod\ 18621}#)
(begin
(if (memq 'expand
- #{when-list\ 1724}#)
- (#{top-level-eval-hook\ 289}#
- (#{chi-top-sequence\ 455}#
- #{body\ 1725}#
- #{r\ 1656}#
- #{w\ 1684}#
- #{s\ 1685}#
+ #{when-list\ 18659}#)
+ (#{top-level-eval-hook\ 17224}#
+ (#{chi-top-sequence\ 17390}#
+ #{body\ 18660}#
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{s\ 18620}#
'e
'(eval)
- #{mod\ 1686}#)
- #{mod\ 1686}#))
- (#{chi-void\ 479}#)))
+ #{mod\ 18621}#)
+ #{mod\ 18621}#))
+ (#{chi-void\ 17414}#)))
(if (memq 'load
- #{when-list\ 1724}#)
+ #{when-list\ 18659}#)
(if (begin
- (let ((#{t\ 1734}#
+ (let ((#{t\ 18669}#
(memq 'compile
- #{when-list\
1724}#)))
- (if #{t\ 1734}#
- #{t\ 1734}#
+ #{when-list\
18659}#)))
+ (if #{t\ 18669}#
+ #{t\ 18669}#
(begin
- (let ((#{t\ 1737}#
+ (let ((#{t\ 18672}#
(memq 'expand
-
#{when-list\ 1724}#)))
- (if #{t\ 1737}#
- #{t\ 1737}#
- (if (eq? #{m\ 1658}#
+
#{when-list\ 18659}#)))
+ (if #{t\ 18672}#
+ #{t\ 18672}#
+ (if (eq? #{m\ 18593}#
'c&e)
(memq 'eval
- #{when-list\
1724}#)
+ #{when-list\
18659}#)
#f)))))))
- (#{chi-top-sequence\ 455}#
- #{body\ 1725}#
- #{r\ 1656}#
- #{w\ 1684}#
- #{s\ 1685}#
+ (#{chi-top-sequence\ 17390}#
+ #{body\ 18660}#
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{s\ 18620}#
'c&e
'(compile load)
- #{mod\ 1686}#)
- (if (if (eq? #{m\ 1658}# (quote c))
+ #{mod\ 18621}#)
+ (if (if (eq? #{m\ 18593}# (quote c))
#t
- (eq? #{m\ 1658}# (quote c&e)))
- (#{chi-top-sequence\ 455}#
- #{body\ 1725}#
- #{r\ 1656}#
- #{w\ 1684}#
- #{s\ 1685}#
+ (eq? #{m\ 18593}#
+ 'c&e))
+ (#{chi-top-sequence\ 17390}#
+ #{body\ 18660}#
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{s\ 18620}#
'c
'(load)
- #{mod\ 1686}#)
- (#{chi-void\ 479}#)))
+ #{mod\ 18621}#)
+ (#{chi-void\ 17414}#)))
(if (begin
- (let ((#{t\ 1745}#
+ (let ((#{t\ 18680}#
(memq 'compile
- #{when-list\
1724}#)))
- (if #{t\ 1745}#
- #{t\ 1745}#
+ #{when-list\
18659}#)))
+ (if #{t\ 18680}#
+ #{t\ 18680}#
(begin
- (let ((#{t\ 1748}#
+ (let ((#{t\ 18683}#
(memq 'expand
-
#{when-list\ 1724}#)))
- (if #{t\ 1748}#
- #{t\ 1748}#
- (if (eq? #{m\ 1658}#
+
#{when-list\ 18659}#)))
+ (if #{t\ 18683}#
+ #{t\ 18683}#
+ (if (eq? #{m\ 18593}#
'c&e)
(memq 'eval
- #{when-list\
1724}#)
+ #{when-list\
18659}#)
#f)))))))
(begin
- (#{top-level-eval-hook\ 289}#
- (#{chi-top-sequence\ 455}#
- #{body\ 1725}#
- #{r\ 1656}#
- #{w\ 1684}#
- #{s\ 1685}#
+ (#{top-level-eval-hook\ 17224}#
+ (#{chi-top-sequence\ 17390}#
+ #{body\ 18660}#
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{s\ 18620}#
'e
'(eval)
- #{mod\ 1686}#)
- #{mod\ 1686}#)
- (#{chi-void\ 479}#))
- (#{chi-void\ 479}#)))))))
- #{tmp\ 1715}#)
+ #{mod\ 18621}#)
+ #{mod\ 18621}#)
+ (#{chi-void\ 17414}#))
+ (#{chi-void\ 17414}#)))))))
+ #{tmp\ 18650}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1714}#))))
- (if (eqv? #{type\ 1681}# (quote define-syntax-form))
+ #{tmp\ 18649}#))))
+ (if (eqv? #{type\ 18616}# (quote define-syntax-form))
(begin
- (let ((#{n\ 1756}#
- (#{id-var-name\ 437}#
- #{value\ 1682}#
- #{w\ 1684}#))
- (#{r\ 1757}#
- (#{macros-only-env\ 372}# #{r\ 1656}#)))
- (if (eqv? #{m\ 1658}# (quote c))
- (if (memq (quote compile) #{esew\ 1659}#)
+ (let ((#{n\ 18691}#
+ (#{id-var-name\ 17372}#
+ #{value\ 18617}#
+ #{w\ 18619}#))
+ (#{r\ 18692}#
+ (#{macros-only-env\ 17307}# #{r\ 18591}#)))
+ (if (eqv? #{m\ 18593}# (quote c))
+ (if (memq (quote compile) #{esew\ 18594}#)
(begin
- (let ((#{e\ 1760}#
- (#{chi-install-global\ 457}#
- #{n\ 1756}#
- (#{chi\ 465}#
- #{e\ 1683}#
- #{r\ 1757}#
- #{w\ 1684}#
- #{mod\ 1686}#))))
+ (let ((#{e\ 18695}#
+ (#{chi-install-global\ 17392}#
+ #{n\ 18691}#
+ (#{chi\ 17400}#
+ #{e\ 18618}#
+ #{r\ 18692}#
+ #{w\ 18619}#
+ #{mod\ 18621}#))))
(begin
- (#{top-level-eval-hook\ 289}#
- #{e\ 1760}#
- #{mod\ 1686}#)
- (if (memq (quote load) #{esew\ 1659}#)
- #{e\ 1760}#
- (#{chi-void\ 479}#)))))
- (if (memq (quote load) #{esew\ 1659}#)
- (#{chi-install-global\ 457}#
- #{n\ 1756}#
- (#{chi\ 465}#
- #{e\ 1683}#
- #{r\ 1757}#
- #{w\ 1684}#
- #{mod\ 1686}#))
- (#{chi-void\ 479}#)))
- (if (eqv? #{m\ 1658}# (quote c&e))
+ (#{top-level-eval-hook\ 17224}#
+ #{e\ 18695}#
+ #{mod\ 18621}#)
+ (if (memq (quote load) #{esew\ 18594}#)
+ #{e\ 18695}#
+ (#{chi-void\ 17414}#)))))
+ (if (memq (quote load) #{esew\ 18594}#)
+ (#{chi-install-global\ 17392}#
+ #{n\ 18691}#
+ (#{chi\ 17400}#
+ #{e\ 18618}#
+ #{r\ 18692}#
+ #{w\ 18619}#
+ #{mod\ 18621}#))
+ (#{chi-void\ 17414}#)))
+ (if (eqv? #{m\ 18593}# (quote c&e))
(begin
- (let ((#{e\ 1763}#
- (#{chi-install-global\ 457}#
- #{n\ 1756}#
- (#{chi\ 465}#
- #{e\ 1683}#
- #{r\ 1757}#
- #{w\ 1684}#
- #{mod\ 1686}#))))
+ (let ((#{e\ 18698}#
+ (#{chi-install-global\ 17392}#
+ #{n\ 18691}#
+ (#{chi\ 17400}#
+ #{e\ 18618}#
+ #{r\ 18692}#
+ #{w\ 18619}#
+ #{mod\ 18621}#))))
(begin
- (#{top-level-eval-hook\ 289}#
- #{e\ 1763}#
- #{mod\ 1686}#)
- #{e\ 1763}#)))
+ (#{top-level-eval-hook\ 17224}#
+ #{e\ 18698}#
+ #{mod\ 18621}#)
+ #{e\ 18698}#)))
(begin
- (if (memq (quote eval) #{esew\ 1659}#)
- (#{top-level-eval-hook\ 289}#
- (#{chi-install-global\ 457}#
- #{n\ 1756}#
- (#{chi\ 465}#
- #{e\ 1683}#
- #{r\ 1757}#
- #{w\ 1684}#
- #{mod\ 1686}#))
- #{mod\ 1686}#))
- (#{chi-void\ 479}#))))))
- (if (eqv? #{type\ 1681}# (quote define-form))
+ (if (memq (quote eval) #{esew\ 18594}#)
+ (#{top-level-eval-hook\ 17224}#
+ (#{chi-install-global\ 17392}#
+ #{n\ 18691}#
+ (#{chi\ 17400}#
+ #{e\ 18618}#
+ #{r\ 18692}#
+ #{w\ 18619}#
+ #{mod\ 18621}#))
+ #{mod\ 18621}#))
+ (#{chi-void\ 17414}#))))))
+ (if (eqv? #{type\ 18616}# (quote define-form))
(begin
- (let ((#{n\ 1768}#
- (#{id-var-name\ 437}#
- #{value\ 1682}#
- #{w\ 1684}#)))
+ (let ((#{n\ 18703}#
+ (#{id-var-name\ 17372}#
+ #{value\ 18617}#
+ #{w\ 18619}#)))
(begin
- (let ((#{type\ 1770}#
- (#{binding-type\ 363}#
- (#{lookup\ 374}#
- #{n\ 1768}#
- #{r\ 1656}#
- #{mod\ 1686}#))))
- (if (if (eqv? #{type\ 1770}# (quote global))
+ (let ((#{type\ 18705}#
+ (#{binding-type\ 17298}#
+ (#{lookup\ 17309}#
+ #{n\ 18703}#
+ #{r\ 18591}#
+ #{mod\ 18621}#))))
+ (if (if (eqv? #{type\ 18705}#
+ 'global)
#t
- (if (eqv? #{type\ 1770}# (quote core))
+ (if (eqv? #{type\ 18705}#
+ 'core)
#t
- (if (eqv? #{type\ 1770}#
+ (if (eqv? #{type\ 18705}#
'macro)
#t
- (eqv? #{type\ 1770}#
+ (eqv? #{type\ 18705}#
'module-ref))))
(begin
- (if (if (if (eq? #{m\ 1658}# (quote c))
+ (if (if (if (eq? #{m\ 18593}# (quote c))
#t
- (eq? #{m\ 1658}# (quote c&e)))
+ (eq? #{m\ 18593}#
+ 'c&e))
(if (not (module-local-variable
(current-module)
- #{n\ 1768}#))
+ #{n\ 18703}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old\ 1776}#
+ (let ((#{old\ 18711}#
(module-variable
(current-module)
- #{n\ 1768}#)))
+ #{n\ 18703}#)))
(module-define!
(current-module)
- #{n\ 1768}#
- (if (variable? #{old\ 1776}#)
- (variable-ref #{old\ 1776}#)
+ #{n\ 18703}#
+ (if (variable? #{old\ 18711}#)
+ (variable-ref #{old\ 18711}#)
#f)))))
(begin
- (let ((#{x\ 1779}#
- (#{build-global-definition\
320}#
- #{s\ 1685}#
- #{n\ 1768}#
- (#{chi\ 465}#
- #{e\ 1683}#
- #{r\ 1656}#
- #{w\ 1684}#
- #{mod\ 1686}#))))
+ (let ((#{x\ 18714}#
+ (#{build-global-definition\
17255}#
+ #{s\ 18620}#
+ #{n\ 18703}#
+ (#{chi\ 17400}#
+ #{e\ 18618}#
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{mod\ 18621}#))))
(begin
- (if (eq? #{m\ 1658}# (quote c&e))
- (#{top-level-eval-hook\ 289}#
- #{x\ 1779}#
- #{mod\ 1686}#))
- #{x\ 1779}#))))
- (if (eqv? #{type\ 1770}#
+ (if (eq? #{m\ 18593}# (quote c&e))
+ (#{top-level-eval-hook\ 17224}#
+ #{x\ 18714}#
+ #{mod\ 18621}#))
+ #{x\ 18714}#))))
+ (if (eqv? #{type\ 18705}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e\ 1683}#
- (#{wrap\ 449}#
- #{value\ 1682}#
- #{w\ 1684}#
- #{mod\ 1686}#))
+ #{e\ 18618}#
+ (#{wrap\ 17384}#
+ #{value\ 18617}#
+ #{w\ 18619}#
+ #{mod\ 18621}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1683}#
- (#{wrap\ 449}#
- #{value\ 1682}#
- #{w\ 1684}#
- #{mod\ 1686}#))))))))
+ #{e\ 18618}#
+ (#{wrap\ 17384}#
+ #{value\ 18617}#
+ #{w\ 18619}#
+ #{mod\ 18621}#))))))))
(begin
- (let ((#{x\ 1785}#
- (#{chi-expr\ 467}#
- #{type\ 1681}#
- #{value\ 1682}#
- #{e\ 1683}#
- #{r\ 1656}#
- #{w\ 1684}#
- #{s\ 1685}#
- #{mod\ 1686}#)))
+ (let ((#{x\ 18720}#
+ (#{chi-expr\ 17402}#
+ #{type\ 18616}#
+ #{value\ 18617}#
+ #{e\ 18618}#
+ #{r\ 18591}#
+ #{w\ 18619}#
+ #{s\ 18620}#
+ #{mod\ 18621}#)))
(begin
- (if (eq? #{m\ 1658}# (quote c&e))
- (#{top-level-eval-hook\ 289}#
- #{x\ 1785}#
- #{mod\ 1686}#))
- #{x\ 1785}#))))))))))))
- (#{chi\ 465}#
- (lambda (#{e\ 1786}#
- #{r\ 1787}#
- #{w\ 1788}#
- #{mod\ 1789}#)
+ (if (eq? #{m\ 18593}# (quote c&e))
+ (#{top-level-eval-hook\ 17224}#
+ #{x\ 18720}#
+ #{mod\ 18621}#))
+ #{x\ 18720}#))))))))))))
+ (#{chi\ 17400}#
+ (lambda (#{e\ 18721}#
+ #{r\ 18722}#
+ #{w\ 18723}#
+ #{mod\ 18724}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 461}#
- #{e\ 1786}#
- #{r\ 1787}#
- #{w\ 1788}#
- (#{source-annotation\ 359}# #{e\ 1786}#)
+ (#{syntax-type\ 17396}#
+ #{e\ 18721}#
+ #{r\ 18722}#
+ #{w\ 18723}#
+ (#{source-annotation\ 17294}# #{e\ 18721}#)
#f
- #{mod\ 1789}#
+ #{mod\ 18724}#
#f))
- (lambda (#{type\ 1794}#
- #{value\ 1795}#
- #{e\ 1796}#
- #{w\ 1797}#
- #{s\ 1798}#
- #{mod\ 1799}#)
- (#{chi-expr\ 467}#
- #{type\ 1794}#
- #{value\ 1795}#
- #{e\ 1796}#
- #{r\ 1787}#
- #{w\ 1797}#
- #{s\ 1798}#
- #{mod\ 1799}#)))))
- (#{chi-expr\ 467}#
- (lambda (#{type\ 1806}#
- #{value\ 1807}#
- #{e\ 1808}#
- #{r\ 1809}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#)
- (if (eqv? #{type\ 1806}# (quote lexical))
- (#{build-lexical-reference\ 310}#
+ (lambda (#{type\ 18729}#
+ #{value\ 18730}#
+ #{e\ 18731}#
+ #{w\ 18732}#
+ #{s\ 18733}#
+ #{mod\ 18734}#)
+ (#{chi-expr\ 17402}#
+ #{type\ 18729}#
+ #{value\ 18730}#
+ #{e\ 18731}#
+ #{r\ 18722}#
+ #{w\ 18732}#
+ #{s\ 18733}#
+ #{mod\ 18734}#)))))
+ (#{chi-expr\ 17402}#
+ (lambda (#{type\ 18741}#
+ #{value\ 18742}#
+ #{e\ 18743}#
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#)
+ (if (eqv? #{type\ 18741}# (quote lexical))
+ (#{build-lexical-reference\ 17245}#
'value
- #{s\ 1811}#
- #{e\ 1808}#
- #{value\ 1807}#)
- (if (if (eqv? #{type\ 1806}# (quote core))
+ #{s\ 18746}#
+ #{e\ 18743}#
+ #{value\ 18742}#)
+ (if (if (eqv? #{type\ 18741}# (quote core))
#t
- (eqv? #{type\ 1806}# (quote core-form)))
- (#{value\ 1807}#
- #{e\ 1808}#
- #{r\ 1809}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#)
- (if (eqv? #{type\ 1806}# (quote module-ref))
+ (eqv? #{type\ 18741}# (quote core-form)))
+ (#{value\ 18742}#
+ #{e\ 18743}#
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#)
+ (if (eqv? #{type\ 18741}# (quote module-ref))
(call-with-values
(lambda ()
- (#{value\ 1807}#
- #{e\ 1808}#
- #{r\ 1809}#
- #{w\ 1810}#))
- (lambda (#{e\ 1823}#
- #{r\ 1824}#
- #{w\ 1825}#
- #{s\ 1826}#
- #{mod\ 1827}#)
- (#{chi\ 465}#
- #{e\ 1823}#
- #{r\ 1824}#
- #{w\ 1825}#
- #{mod\ 1827}#)))
- (if (eqv? #{type\ 1806}# (quote lexical-call))
- (#{chi-application\ 469}#
+ (#{value\ 18742}#
+ #{e\ 18743}#
+ #{r\ 18744}#
+ #{w\ 18745}#))
+ (lambda (#{e\ 18758}#
+ #{r\ 18759}#
+ #{w\ 18760}#
+ #{s\ 18761}#
+ #{mod\ 18762}#)
+ (#{chi\ 17400}#
+ #{e\ 18758}#
+ #{r\ 18759}#
+ #{w\ 18760}#
+ #{mod\ 18762}#)))
+ (if (eqv? #{type\ 18741}# (quote lexical-call))
+ (#{chi-application\ 17404}#
(begin
- (let ((#{id\ 1835}# (car #{e\ 1808}#)))
- (#{build-lexical-reference\ 310}#
+ (let ((#{id\ 18770}# (car #{e\ 18743}#)))
+ (#{build-lexical-reference\ 17245}#
'fun
- (#{source-annotation\ 359}# #{id\ 1835}#)
- (if (#{syntax-object?\ 344}# #{id\ 1835}#)
- (syntax->datum #{id\ 1835}#)
- #{id\ 1835}#)
- #{value\ 1807}#)))
- #{e\ 1808}#
- #{r\ 1809}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#)
- (if (eqv? #{type\ 1806}# (quote global-call))
- (#{chi-application\ 469}#
- (#{build-global-reference\ 316}#
- (#{source-annotation\ 359}# (car #{e\ 1808}#))
- (if (#{syntax-object?\ 344}# #{value\ 1807}#)
- (#{syntax-object-expression\ 346}#
- #{value\ 1807}#)
- #{value\ 1807}#)
- (if (#{syntax-object?\ 344}# #{value\ 1807}#)
- (#{syntax-object-module\ 350}# #{value\ 1807}#)
- #{mod\ 1812}#))
- #{e\ 1808}#
- #{r\ 1809}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#)
- (if (eqv? #{type\ 1806}# (quote constant))
- (#{build-data\ 330}#
- #{s\ 1811}#
- (#{strip\ 491}#
- (#{source-wrap\ 451}#
- #{e\ 1808}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#)
+ (#{source-annotation\ 17294}# #{id\ 18770}#)
+ (if (#{syntax-object?\ 17279}# #{id\ 18770}#)
+ (syntax->datum #{id\ 18770}#)
+ #{id\ 18770}#)
+ #{value\ 18742}#)))
+ #{e\ 18743}#
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#)
+ (if (eqv? #{type\ 18741}# (quote global-call))
+ (#{chi-application\ 17404}#
+ (#{build-global-reference\ 17251}#
+ (#{source-annotation\ 17294}# (car #{e\ 18743}#))
+ (if (#{syntax-object?\ 17279}# #{value\ 18742}#)
+ (#{syntax-object-expression\ 17281}#
+ #{value\ 18742}#)
+ #{value\ 18742}#)
+ (if (#{syntax-object?\ 17279}# #{value\ 18742}#)
+ (#{syntax-object-module\ 17285}#
+ #{value\ 18742}#)
+ #{mod\ 18747}#))
+ #{e\ 18743}#
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#)
+ (if (eqv? #{type\ 18741}# (quote constant))
+ (#{build-data\ 17265}#
+ #{s\ 18746}#
+ (#{strip\ 17426}#
+ (#{source-wrap\ 17386}#
+ #{e\ 18743}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#)
'(())))
- (if (eqv? #{type\ 1806}# (quote global))
- (#{build-global-reference\ 316}#
- #{s\ 1811}#
- #{value\ 1807}#
- #{mod\ 1812}#)
- (if (eqv? #{type\ 1806}# (quote call))
- (#{chi-application\ 469}#
- (#{chi\ 465}#
- (car #{e\ 1808}#)
- #{r\ 1809}#
- #{w\ 1810}#
- #{mod\ 1812}#)
- #{e\ 1808}#
- #{r\ 1809}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#)
- (if (eqv? #{type\ 1806}# (quote begin-form))
- (let ((#{tmp\ 1842}# #{e\ 1808}#))
- (let ((#{tmp\ 1843}#
+ (if (eqv? #{type\ 18741}# (quote global))
+ (#{build-global-reference\ 17251}#
+ #{s\ 18746}#
+ #{value\ 18742}#
+ #{mod\ 18747}#)
+ (if (eqv? #{type\ 18741}# (quote call))
+ (#{chi-application\ 17404}#
+ (#{chi\ 17400}#
+ (car #{e\ 18743}#)
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{mod\ 18747}#)
+ #{e\ 18743}#
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#)
+ (if (eqv? #{type\ 18741}# (quote begin-form))
+ (let ((#{tmp\ 18777}# #{e\ 18743}#))
+ (let ((#{tmp\ 18778}#
($sc-dispatch
- #{tmp\ 1842}#
+ #{tmp\ 18777}#
'(_ any . each-any))))
- (if #{tmp\ 1843}#
+ (if #{tmp\ 18778}#
(@apply
- (lambda (#{e1\ 1846}# #{e2\ 1847}#)
- (#{chi-sequence\ 453}#
- (cons #{e1\ 1846}# #{e2\ 1847}#)
- #{r\ 1809}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#))
- #{tmp\ 1843}#)
+ (lambda (#{e1\ 18781}# #{e2\ 18782}#)
+ (#{chi-sequence\ 17388}#
+ (cons #{e1\ 18781}# #{e2\ 18782}#)
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#))
+ #{tmp\ 18778}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1842}#))))
- (if (eqv? #{type\ 1806}#
+ #{tmp\ 18777}#))))
+ (if (eqv? #{type\ 18741}#
'local-syntax-form)
- (#{chi-local-syntax\ 475}#
- #{value\ 1807}#
- #{e\ 1808}#
- #{r\ 1809}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#
- #{chi-sequence\ 453}#)
- (if (eqv? #{type\ 1806}#
+ (#{chi-local-syntax\ 17410}#
+ #{value\ 18742}#
+ #{e\ 18743}#
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#
+ #{chi-sequence\ 17388}#)
+ (if (eqv? #{type\ 18741}#
'eval-when-form)
- (let ((#{tmp\ 1851}# #{e\ 1808}#))
- (let ((#{tmp\ 1852}#
+ (let ((#{tmp\ 18786}# #{e\ 18743}#))
+ (let ((#{tmp\ 18787}#
($sc-dispatch
- #{tmp\ 1851}#
+ #{tmp\ 18786}#
'(_ each-any any . each-any))))
- (if #{tmp\ 1852}#
+ (if #{tmp\ 18787}#
(@apply
- (lambda (#{x\ 1856}#
- #{e1\ 1857}#
- #{e2\ 1858}#)
+ (lambda (#{x\ 18791}#
+ #{e1\ 18792}#
+ #{e2\ 18793}#)
(begin
- (let ((#{when-list\ 1860}#
- (#{chi-when-list\ 459}#
- #{e\ 1808}#
- #{x\ 1856}#
- #{w\ 1810}#)))
+ (let ((#{when-list\ 18795}#
+ (#{chi-when-list\
17394}#
+ #{e\ 18743}#
+ #{x\ 18791}#
+ #{w\ 18745}#)))
(if (memq 'eval
- #{when-list\ 1860}#)
- (#{chi-sequence\ 453}#
- (cons #{e1\ 1857}#
- #{e2\ 1858}#)
- #{r\ 1809}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#)
- (#{chi-void\ 479}#)))))
- #{tmp\ 1852}#)
+ #{when-list\
18795}#)
+ (#{chi-sequence\ 17388}#
+ (cons #{e1\ 18792}#
+ #{e2\ 18793}#)
+ #{r\ 18744}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#)
+ (#{chi-void\ 17414}#)))))
+ #{tmp\ 18787}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1851}#))))
- (if (if (eqv? #{type\ 1806}#
+ #{tmp\ 18786}#))))
+ (if (if (eqv? #{type\ 18741}#
'define-form)
#t
- (eqv? #{type\ 1806}#
+ (eqv? #{type\ 18741}#
'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1808}#
- (#{wrap\ 449}#
- #{value\ 1807}#
- #{w\ 1810}#
- #{mod\ 1812}#))
- (if (eqv? #{type\ 1806}# (quote syntax))
+ #{e\ 18743}#
+ (#{wrap\ 17384}#
+ #{value\ 18742}#
+ #{w\ 18745}#
+ #{mod\ 18747}#))
+ (if (eqv? #{type\ 18741}# (quote syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 451}#
- #{e\ 1808}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#))
- (if (eqv? #{type\ 1806}#
+ (#{source-wrap\ 17386}#
+ #{e\ 18743}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#))
+ (if (eqv? #{type\ 18741}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 451}#
- #{e\ 1808}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#))
+ (#{source-wrap\ 17386}#
+ #{e\ 18743}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 451}#
- #{e\ 1808}#
- #{w\ 1810}#
- #{s\ 1811}#
- #{mod\ 1812}#))))))))))))))))))
- (#{chi-application\ 469}#
- (lambda (#{x\ 1867}#
- #{e\ 1868}#
- #{r\ 1869}#
- #{w\ 1870}#
- #{s\ 1871}#
- #{mod\ 1872}#)
- (let ((#{tmp\ 1879}# #{e\ 1868}#))
- (let ((#{tmp\ 1880}#
+ (#{source-wrap\ 17386}#
+ #{e\ 18743}#
+ #{w\ 18745}#
+ #{s\ 18746}#
+ #{mod\ 18747}#))))))))))))))))))
+ (#{chi-application\ 17404}#
+ (lambda (#{x\ 18802}#
+ #{e\ 18803}#
+ #{r\ 18804}#
+ #{w\ 18805}#
+ #{s\ 18806}#
+ #{mod\ 18807}#)
+ (let ((#{tmp\ 18814}# #{e\ 18803}#))
+ (let ((#{tmp\ 18815}#
($sc-dispatch
- #{tmp\ 1879}#
+ #{tmp\ 18814}#
'(any . each-any))))
- (if #{tmp\ 1880}#
+ (if #{tmp\ 18815}#
(@apply
- (lambda (#{e0\ 1883}# #{e1\ 1884}#)
- (#{build-application\ 304}#
- #{s\ 1871}#
- #{x\ 1867}#
- (map (lambda (#{e\ 1885}#)
- (#{chi\ 465}#
- #{e\ 1885}#
- #{r\ 1869}#
- #{w\ 1870}#
- #{mod\ 1872}#))
- #{e1\ 1884}#)))
- #{tmp\ 1880}#)
+ (lambda (#{e0\ 18818}# #{e1\ 18819}#)
+ (#{build-application\ 17239}#
+ #{s\ 18806}#
+ #{x\ 18802}#
+ (map (lambda (#{e\ 18820}#)
+ (#{chi\ 17400}#
+ #{e\ 18820}#
+ #{r\ 18804}#
+ #{w\ 18805}#
+ #{mod\ 18807}#))
+ #{e1\ 18819}#)))
+ #{tmp\ 18815}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1879}#))))))
- (#{chi-macro\ 471}#
- (lambda (#{p\ 1888}#
- #{e\ 1889}#
- #{r\ 1890}#
- #{w\ 1891}#
- #{s\ 1892}#
- #{rib\ 1893}#
- #{mod\ 1894}#)
+ #{tmp\ 18814}#))))))
+ (#{chi-macro\ 17406}#
+ (lambda (#{p\ 18823}#
+ #{e\ 18824}#
+ #{r\ 18825}#
+ #{w\ 18826}#
+ #{s\ 18827}#
+ #{rib\ 18828}#
+ #{mod\ 18829}#)
(letrec*
- ((#{rebuild-macro-output\ 1903}#
- (lambda (#{x\ 1904}# #{m\ 1905}#)
- (if (pair? #{x\ 1904}#)
- (#{decorate-source\ 298}#
- (cons (#{rebuild-macro-output\ 1903}#
- (car #{x\ 1904}#)
- #{m\ 1905}#)
- (#{rebuild-macro-output\ 1903}#
- (cdr #{x\ 1904}#)
- #{m\ 1905}#))
- #{s\ 1892}#)
- (if (#{syntax-object?\ 344}# #{x\ 1904}#)
+ ((#{rebuild-macro-output\ 18838}#
+ (lambda (#{x\ 18839}# #{m\ 18840}#)
+ (if (pair? #{x\ 18839}#)
+ (#{decorate-source\ 17233}#
+ (cons (#{rebuild-macro-output\ 18838}#
+ (car #{x\ 18839}#)
+ #{m\ 18840}#)
+ (#{rebuild-macro-output\ 18838}#
+ (cdr #{x\ 18839}#)
+ #{m\ 18840}#))
+ #{s\ 18827}#)
+ (if (#{syntax-object?\ 17279}# #{x\ 18839}#)
(begin
- (let ((#{w\ 1913}#
- (#{syntax-object-wrap\ 348}# #{x\ 1904}#)))
+ (let ((#{w\ 18848}#
+ (#{syntax-object-wrap\ 17283}#
+ #{x\ 18839}#)))
(begin
- (let ((#{ms\ 1916}#
- (#{wrap-marks\ 387}# #{w\ 1913}#))
- (#{s\ 1917}#
- (#{wrap-subst\ 389}# #{w\ 1913}#)))
- (if (if (pair? #{ms\ 1916}#)
- (eq? (car #{ms\ 1916}#) #f)
+ (let ((#{ms\ 18851}#
+ (#{wrap-marks\ 17322}# #{w\ 18848}#))
+ (#{s\ 18852}#
+ (#{wrap-subst\ 17324}# #{w\ 18848}#)))
+ (if (if (pair? #{ms\ 18851}#)
+ (eq? (car #{ms\ 18851}#) #f)
#f)
- (#{make-syntax-object\ 342}#
- (#{syntax-object-expression\ 346}#
- #{x\ 1904}#)
- (#{make-wrap\ 385}#
- (cdr #{ms\ 1916}#)
- (if #{rib\ 1893}#
- (cons #{rib\ 1893}# (cdr #{s\ 1917}#))
- (cdr #{s\ 1917}#)))
- (#{syntax-object-module\ 350}#
- #{x\ 1904}#))
- (#{make-syntax-object\ 342}#
- (#{decorate-source\ 298}#
- (#{syntax-object-expression\ 346}#
- #{x\ 1904}#)
- #{s\ 1917}#)
- (#{make-wrap\ 385}#
- (cons #{m\ 1905}# #{ms\ 1916}#)
- (if #{rib\ 1893}#
- (cons #{rib\ 1893}#
- (cons (quote shift) #{s\ 1917}#))
- (cons (quote shift) #{s\ 1917}#)))
- (#{syntax-object-module\ 350}#
- #{x\ 1904}#)))))))
- (if (vector? #{x\ 1904}#)
+ (#{make-syntax-object\ 17277}#
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18839}#)
+ (#{make-wrap\ 17320}#
+ (cdr #{ms\ 18851}#)
+ (if #{rib\ 18828}#
+ (cons #{rib\ 18828}#
+ (cdr #{s\ 18852}#))
+ (cdr #{s\ 18852}#)))
+ (#{syntax-object-module\ 17285}#
+ #{x\ 18839}#))
+ (#{make-syntax-object\ 17277}#
+ (#{decorate-source\ 17233}#
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 18839}#)
+ #{s\ 18852}#)
+ (#{make-wrap\ 17320}#
+ (cons #{m\ 18840}# #{ms\ 18851}#)
+ (if #{rib\ 18828}#
+ (cons #{rib\ 18828}#
+ (cons 'shift
+ #{s\ 18852}#))
+ (cons (quote shift) #{s\ 18852}#)))
+ (#{syntax-object-module\ 17285}#
+ #{x\ 18839}#)))))))
+ (if (vector? #{x\ 18839}#)
(begin
- (let ((#{n\ 1925}# (vector-length #{x\ 1904}#)))
+ (let ((#{n\ 18860}# (vector-length #{x\ 18839}#)))
(begin
- (let ((#{v\ 1927}#
- (#{decorate-source\ 298}#
- (make-vector #{n\ 1925}#)
- #{x\ 1904}#)))
+ (let ((#{v\ 18862}#
+ (#{decorate-source\ 17233}#
+ (make-vector #{n\ 18860}#)
+ #{x\ 18839}#)))
(letrec*
- ((#{loop\ 1930}#
- (lambda (#{i\ 1931}#)
- (if (#{fx=\ 285}#
- #{i\ 1931}#
- #{n\ 1925}#)
- (begin (if #f #f) #{v\ 1927}#)
+ ((#{loop\ 18865}#
+ (lambda (#{i\ 18866}#)
+ (if (#{fx=\ 17220}#
+ #{i\ 18866}#
+ #{n\ 18860}#)
+ (begin (if #f #f) #{v\ 18862}#)
(begin
(vector-set!
- #{v\ 1927}#
- #{i\ 1931}#
- (#{rebuild-macro-output\ 1903}#
+ #{v\ 18862}#
+ #{i\ 18866}#
+ (#{rebuild-macro-output\ 18838}#
(vector-ref
- #{x\ 1904}#
- #{i\ 1931}#)
- #{m\ 1905}#))
- (#{loop\ 1930}#
- (#{fx+\ 281}#
- #{i\ 1931}#
+ #{x\ 18839}#
+ #{i\ 18866}#)
+ #{m\ 18840}#))
+ (#{loop\ 18865}#
+ (#{fx+\ 17216}#
+ #{i\ 18866}#
1)))))))
- (begin (#{loop\ 1930}# 0)))))))
- (if (symbol? #{x\ 1904}#)
+ (begin (#{loop\ 18865}# 0)))))))
+ (if (symbol? #{x\ 18839}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 451}#
- #{e\ 1889}#
- #{w\ 1891}#
- (#{wrap-subst\ 389}# #{w\ 1891}#)
- #{mod\ 1894}#)
- #{x\ 1904}#)
- (#{decorate-source\ 298}#
- #{x\ 1904}#
- #{s\ 1892}#))))))))
+ (#{source-wrap\ 17386}#
+ #{e\ 18824}#
+ #{w\ 18826}#
+ (#{wrap-subst\ 17324}# #{w\ 18826}#)
+ #{mod\ 18829}#)
+ #{x\ 18839}#)
+ (#{decorate-source\ 17233}#
+ #{x\ 18839}#
+ #{s\ 18827}#))))))))
(begin
- (#{rebuild-macro-output\ 1903}#
- (#{p\ 1888}#
- (#{source-wrap\ 451}#
- #{e\ 1889}#
- (#{anti-mark\ 421}# #{w\ 1891}#)
- #{s\ 1892}#
- #{mod\ 1894}#))
+ (#{rebuild-macro-output\ 18838}#
+ (#{p\ 18823}#
+ (#{source-wrap\ 17386}#
+ #{e\ 18824}#
+ (#{anti-mark\ 17356}# #{w\ 18826}#)
+ #{s\ 18827}#
+ #{mod\ 18829}#))
(gensym "m"))))))
- (#{chi-body\ 473}#
- (lambda (#{body\ 1938}#
- #{outer-form\ 1939}#
- #{r\ 1940}#
- #{w\ 1941}#
- #{mod\ 1942}#)
+ (#{chi-body\ 17408}#
+ (lambda (#{body\ 18873}#
+ #{outer-form\ 18874}#
+ #{r\ 18875}#
+ #{w\ 18876}#
+ #{mod\ 18877}#)
(begin
- (let ((#{r\ 1950}#
+ (let ((#{r\ 18885}#
(cons '("placeholder" placeholder)
- #{r\ 1940}#)))
+ #{r\ 18875}#)))
(begin
- (let ((#{ribcage\ 1952}#
- (#{make-ribcage\ 401}#
+ (let ((#{ribcage\ 18887}#
+ (#{make-ribcage\ 17336}#
'()
'()
'())))
(begin
- (let ((#{w\ 1955}#
- (#{make-wrap\ 385}#
- (#{wrap-marks\ 387}# #{w\ 1941}#)
- (cons #{ribcage\ 1952}#
- (#{wrap-subst\ 389}# #{w\ 1941}#)))))
+ (let ((#{w\ 18890}#
+ (#{make-wrap\ 17320}#
+ (#{wrap-marks\ 17322}# #{w\ 18876}#)
+ (cons #{ribcage\ 18887}#
+ (#{wrap-subst\ 17324}# #{w\ 18876}#)))))
(letrec*
- ((#{parse\ 1964}#
- (lambda (#{body\ 1965}#
- #{ids\ 1966}#
- #{labels\ 1967}#
- #{var-ids\ 1968}#
- #{vars\ 1969}#
- #{vals\ 1970}#
- #{bindings\ 1971}#)
- (if (null? #{body\ 1965}#)
+ ((#{parse\ 18899}#
+ (lambda (#{body\ 18900}#
+ #{ids\ 18901}#
+ #{labels\ 18902}#
+ #{var-ids\ 18903}#
+ #{vars\ 18904}#
+ #{vals\ 18905}#
+ #{bindings\ 18906}#)
+ (if (null? #{body\ 18900}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1939}#)
+ #{outer-form\ 18874}#)
(begin
- (let ((#{e\ 1976}#
- (cdr (car #{body\ 1965}#)))
- (#{er\ 1977}#
- (car (car #{body\ 1965}#))))
+ (let ((#{e\ 18911}#
+ (cdr (car #{body\ 18900}#)))
+ (#{er\ 18912}#
+ (car (car #{body\ 18900}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 461}#
- #{e\ 1976}#
- #{er\ 1977}#
+ (#{syntax-type\ 17396}#
+ #{e\ 18911}#
+ #{er\ 18912}#
'(())
- (#{source-annotation\ 359}#
- #{er\ 1977}#)
- #{ribcage\ 1952}#
- #{mod\ 1942}#
+ (#{source-annotation\ 17294}#
+ #{er\ 18912}#)
+ #{ribcage\ 18887}#
+ #{mod\ 18877}#
#f))
- (lambda (#{type\ 1979}#
- #{value\ 1980}#
- #{e\ 1981}#
- #{w\ 1982}#
- #{s\ 1983}#
- #{mod\ 1984}#)
- (if (eqv? #{type\ 1979}#
+ (lambda (#{type\ 18914}#
+ #{value\ 18915}#
+ #{e\ 18916}#
+ #{w\ 18917}#
+ #{s\ 18918}#
+ #{mod\ 18919}#)
+ (if (eqv? #{type\ 18914}#
'define-form)
(begin
- (let ((#{id\ 1994}#
- (#{wrap\ 449}#
- #{value\ 1980}#
- #{w\ 1982}#
- #{mod\ 1984}#))
- (#{label\ 1995}#
- (#{gen-label\ 396}#)))
+ (let ((#{id\ 18929}#
+ (#{wrap\ 17384}#
+ #{value\ 18915}#
+ #{w\ 18917}#
+ #{mod\ 18919}#))
+ (#{label\ 18930}#
+ (#{gen-label\ 17331}#)))
(begin
- (let ((#{var\ 1997}#
- (#{gen-var\ 493}#
- #{id\ 1994}#)))
+ (let ((#{var\ 18932}#
+ (#{gen-var\ 17428}#
+ #{id\ 18929}#)))
(begin
- (#{extend-ribcage!\ 425}#
- #{ribcage\ 1952}#
- #{id\ 1994}#
- #{label\ 1995}#)
- (#{parse\ 1964}#
- (cdr #{body\ 1965}#)
- (cons #{id\ 1994}#
- #{ids\ 1966}#)
- (cons #{label\ 1995}#
- #{labels\ 1967}#)
- (cons #{id\ 1994}#
- #{var-ids\
1968}#)
- (cons #{var\ 1997}#
- #{vars\ 1969}#)
- (cons (cons #{er\
1977}#
- (#{wrap\
449}#
- #{e\
1981}#
- #{w\
1982}#
- #{mod\
1984}#))
- #{vals\ 1970}#)
+ (#{extend-ribcage!\
17360}#
+ #{ribcage\ 18887}#
+ #{id\ 18929}#
+ #{label\ 18930}#)
+ (#{parse\ 18899}#
+ (cdr #{body\ 18900}#)
+ (cons #{id\ 18929}#
+ #{ids\ 18901}#)
+ (cons #{label\ 18930}#
+ #{labels\
18902}#)
+ (cons #{id\ 18929}#
+ #{var-ids\
18903}#)
+ (cons #{var\ 18932}#
+ #{vars\ 18904}#)
+ (cons (cons #{er\
18912}#
+ (#{wrap\
17384}#
+ #{e\
18916}#
+ #{w\
18917}#
+ #{mod\
18919}#))
+ #{vals\ 18905}#)
(cons (cons 'lexical
- #{var\
1997}#)
- #{bindings\
1971}#)))))))
- (if (eqv? #{type\ 1979}#
+ #{var\
18932}#)
+ #{bindings\
18906}#)))))))
+ (if (eqv? #{type\ 18914}#
'define-syntax-form)
(begin
- (let ((#{id\ 2002}#
- (#{wrap\ 449}#
- #{value\ 1980}#
- #{w\ 1982}#
- #{mod\ 1984}#))
- (#{label\ 2003}#
- (#{gen-label\ 396}#)))
+ (let ((#{id\ 18937}#
+ (#{wrap\ 17384}#
+ #{value\ 18915}#
+ #{w\ 18917}#
+ #{mod\ 18919}#))
+ (#{label\ 18938}#
+ (#{gen-label\
17331}#)))
(begin
- (#{extend-ribcage!\ 425}#
- #{ribcage\ 1952}#
- #{id\ 2002}#
- #{label\ 2003}#)
- (#{parse\ 1964}#
- (cdr #{body\ 1965}#)
- (cons #{id\ 2002}#
- #{ids\ 1966}#)
- (cons #{label\ 2003}#
- #{labels\ 1967}#)
- #{var-ids\ 1968}#
- #{vars\ 1969}#
- #{vals\ 1970}#
+ (#{extend-ribcage!\ 17360}#
+ #{ribcage\ 18887}#
+ #{id\ 18937}#
+ #{label\ 18938}#)
+ (#{parse\ 18899}#
+ (cdr #{body\ 18900}#)
+ (cons #{id\ 18937}#
+ #{ids\ 18901}#)
+ (cons #{label\ 18938}#
+ #{labels\ 18902}#)
+ #{var-ids\ 18903}#
+ #{vars\ 18904}#
+ #{vals\ 18905}#
(cons (cons 'macro
- (cons #{er\
1977}#
-
(#{wrap\ 449}#
- #{e\
1981}#
- #{w\
1982}#
-
#{mod\ 1984}#)))
- #{bindings\
1971}#)))))
- (if (eqv? #{type\ 1979}#
+ (cons #{er\
18912}#
+
(#{wrap\ 17384}#
+ #{e\
18916}#
+ #{w\
18917}#
+
#{mod\ 18919}#)))
+ #{bindings\
18906}#)))))
+ (if (eqv? #{type\ 18914}#
'begin-form)
- (let ((#{tmp\ 2006}#
- #{e\ 1981}#))
- (let ((#{tmp\ 2007}#
+ (let ((#{tmp\ 18941}#
+ #{e\ 18916}#))
+ (let ((#{tmp\ 18942}#
($sc-dispatch
- #{tmp\ 2006}#
+ #{tmp\ 18941}#
'(_ . each-any))))
- (if #{tmp\ 2007}#
+ (if #{tmp\ 18942}#
(@apply
- (lambda (#{e1\ 2009}#)
- (#{parse\ 1964}#
+ (lambda (#{e1\ 18944}#)
+ (#{parse\ 18899}#
(letrec*
- ((#{f\ 2012}#
- (lambda
(#{forms\ 2013}#)
- (if (null?
#{forms\ 2013}#)
- (cdr
#{body\ 1965}#)
- (cons
(cons #{er\ 1977}#
-
(#{wrap\ 449}#
-
(car #{forms\ 2013}#)
-
#{w\ 1982}#
-
#{mod\ 1984}#))
-
(#{f\ 2012}#
-
(cdr #{forms\ 2013}#)))))))
+ ((#{f\ 18947}#
+ (lambda
(#{forms\ 18948}#)
+ (if (null?
#{forms\ 18948}#)
+ (cdr
#{body\ 18900}#)
+ (cons
(cons #{er\ 18912}#
+
(#{wrap\ 17384}#
+
(car #{forms\ 18948}#)
+
#{w\ 18917}#
+
#{mod\ 18919}#))
+
(#{f\ 18947}#
+
(cdr #{forms\ 18948}#)))))))
(begin
- (#{f\ 2012}#
- #{e1\
2009}#)))
- #{ids\ 1966}#
- #{labels\ 1967}#
- #{var-ids\ 1968}#
- #{vars\ 1969}#
- #{vals\ 1970}#
- #{bindings\
1971}#))
- #{tmp\ 2007}#)
+ (#{f\ 18947}#
+ #{e1\
18944}#)))
+ #{ids\ 18901}#
+ #{labels\ 18902}#
+ #{var-ids\ 18903}#
+ #{vars\ 18904}#
+ #{vals\ 18905}#
+ #{bindings\
18906}#))
+ #{tmp\ 18942}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 2006}#))))
- (if (eqv? #{type\ 1979}#
+ #{tmp\ 18941}#))))
+ (if (eqv? #{type\ 18914}#
'local-syntax-form)
- (#{chi-local-syntax\ 475}#
- #{value\ 1980}#
- #{e\ 1981}#
- #{er\ 1977}#
- #{w\ 1982}#
- #{s\ 1983}#
- #{mod\ 1984}#
- (lambda (#{forms\ 2016}#
- #{er\ 2017}#
- #{w\ 2018}#
- #{s\ 2019}#
- #{mod\ 2020}#)
- (#{parse\ 1964}#
+ (#{chi-local-syntax\ 17410}#
+ #{value\ 18915}#
+ #{e\ 18916}#
+ #{er\ 18912}#
+ #{w\ 18917}#
+ #{s\ 18918}#
+ #{mod\ 18919}#
+ (lambda (#{forms\ 18951}#
+ #{er\ 18952}#
+ #{w\ 18953}#
+ #{s\ 18954}#
+ #{mod\ 18955}#)
+ (#{parse\ 18899}#
(letrec*
- ((#{f\ 2028}#
- (lambda (#{forms\
2029}#)
- (if (null?
#{forms\ 2029}#)
- (cdr #{body\
1965}#)
- (cons (cons
#{er\ 2017}#
-
(#{wrap\ 449}#
-
(car #{forms\ 2029}#)
-
#{w\ 2018}#
-
#{mod\ 2020}#))
- (#{f\
2028}#
- (cdr
#{forms\ 2029}#)))))))
+ ((#{f\ 18963}#
+ (lambda (#{forms\
18964}#)
+ (if (null?
#{forms\ 18964}#)
+ (cdr #{body\
18900}#)
+ (cons (cons
#{er\ 18952}#
+
(#{wrap\ 17384}#
+
(car #{forms\ 18964}#)
+
#{w\ 18953}#
+
#{mod\ 18955}#))
+ (#{f\
18963}#
+ (cdr
#{forms\ 18964}#)))))))
(begin
- (#{f\ 2028}#
- #{forms\
2016}#)))
- #{ids\ 1966}#
- #{labels\ 1967}#
- #{var-ids\ 1968}#
- #{vars\ 1969}#
- #{vals\ 1970}#
- #{bindings\ 1971}#)))
- (if (null? #{ids\ 1966}#)
- (#{build-sequence\ 332}#
+ (#{f\ 18963}#
+ #{forms\
18951}#)))
+ #{ids\ 18901}#
+ #{labels\ 18902}#
+ #{var-ids\ 18903}#
+ #{vars\ 18904}#
+ #{vals\ 18905}#
+ #{bindings\ 18906}#)))
+ (if (null? #{ids\ 18901}#)
+ (#{build-sequence\ 17267}#
#f
- (map (lambda (#{x\
2032}#)
- (#{chi\ 465}#
- (cdr #{x\
2032}#)
- (car #{x\
2032}#)
+ (map (lambda (#{x\
18967}#)
+ (#{chi\ 17400}#
+ (cdr #{x\
18967}#)
+ (car #{x\
18967}#)
'(())
- #{mod\ 1984}#))
- (cons (cons #{er\
1977}#
-
(#{source-wrap\ 451}#
- #{e\
1981}#
- #{w\
1982}#
- #{s\
1983}#
-
#{mod\ 1984}#))
- (cdr #{body\
1965}#))))
+ #{mod\ 18919}#))
+ (cons (cons #{er\
18912}#
+
(#{source-wrap\ 17386}#
+ #{e\
18916}#
+ #{w\
18917}#
+ #{s\
18918}#
+
#{mod\ 18919}#))
+ (cdr #{body\
18900}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 443}#
- #{ids\
1966}#))
+ (if (not
(#{valid-bound-ids?\ 17378}#
+ #{ids\
18901}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
1939}#))
+ #{outer-form\
18874}#))
(letrec*
- ((#{loop\ 2039}#
- (lambda (#{bs\
2040}#
-
#{er-cache\ 2041}#
- #{r-cache\
2042}#)
- (if (not (null?
#{bs\ 2040}#))
+ ((#{loop\ 18974}#
+ (lambda (#{bs\
18975}#
+
#{er-cache\ 18976}#
+ #{r-cache\
18977}#)
+ (if (not (null?
#{bs\ 18975}#))
(begin
- (let ((#{b\
2045}#
- (car
#{bs\ 2040}#)))
- (if (eq?
(car #{b\ 2045}#)
+ (let ((#{b\
18980}#
+ (car
#{bs\ 18975}#)))
+ (if (eq?
(car #{b\ 18980}#)
'macro)
(begin
- (let
((#{er\ 2048}#
-
(car (cdr #{b\ 2045}#))))
+ (let
((#{er\ 18983}#
+
(car (cdr #{b\ 18980}#))))
(begin
-
(let ((#{r-cache\ 2050}#
-
(if (eq? #{er\ 2048}#
-
#{er-cache\ 2041}#)
-
#{r-cache\ 2042}#
-
(#{macros-only-env\ 372}#
-
#{er\ 2048}#))))
+
(let ((#{r-cache\ 18985}#
+
(if (eq? #{er\ 18983}#
+
#{er-cache\ 18976}#)
+
#{r-cache\ 18977}#
+
(#{macros-only-env\ 17307}#
+
#{er\ 18983}#))))
(begin
(set-cdr!
-
#{b\ 2045}#
-
(#{eval-local-transformer\ 477}#
-
(#{chi\ 465}#
-
(cdr (cdr #{b\ 2045}#))
-
#{r-cache\ 2050}#
+
#{b\ 18980}#
+
(#{eval-local-transformer\ 17412}#
+
(#{chi\ 17400}#
+
(cdr (cdr #{b\ 18980}#))
+
#{r-cache\ 18985}#
'(())
-
#{mod\ 1984}#)
-
#{mod\ 1984}#))
-
(#{loop\ 2039}#
-
(cdr #{bs\ 2040}#)
-
#{er\ 2048}#
-
#{r-cache\ 2050}#))))))
- (#{loop\
2039}#
- (cdr
#{bs\ 2040}#)
-
#{er-cache\ 2041}#
-
#{r-cache\ 2042}#))))))))
+
#{mod\ 18919}#)
+
#{mod\ 18919}#))
+
(#{loop\ 18974}#
+
(cdr #{bs\ 18975}#)
+
#{er\ 18983}#
+
#{r-cache\ 18985}#))))))
+ (#{loop\
18974}#
+ (cdr
#{bs\ 18975}#)
+
#{er-cache\ 18976}#
+
#{r-cache\ 18977}#))))))))
(begin
- (#{loop\ 2039}#
- #{bindings\ 1971}#
+ (#{loop\ 18974}#
+ #{bindings\ 18906}#
#f
#f)))
(set-cdr!
- #{r\ 1950}#
- (#{extend-env\ 368}#
- #{labels\ 1967}#
- #{bindings\ 1971}#
- (cdr #{r\ 1950}#)))
- (#{build-letrec\ 338}#
+ #{r\ 18885}#
+ (#{extend-env\ 17303}#
+ #{labels\ 18902}#
+ #{bindings\ 18906}#
+ (cdr #{r\ 18885}#)))
+ (#{build-letrec\ 17273}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\
1968}#))
+ #{var-ids\
18903}#))
(reverse
- #{vars\ 1969}#)
- (map (lambda (#{x\
2053}#)
- (#{chi\ 465}#
- (cdr #{x\
2053}#)
- (car #{x\
2053}#)
+ #{vars\ 18904}#)
+ (map (lambda (#{x\
18988}#)
+ (#{chi\ 17400}#
+ (cdr #{x\
18988}#)
+ (car #{x\
18988}#)
'(())
- #{mod\
1984}#))
+ #{mod\
18919}#))
(reverse
- #{vals\ 1970}#))
- (#{build-sequence\
332}#
+ #{vals\
18905}#))
+ (#{build-sequence\
17267}#
#f
- (map (lambda (#{x\
2057}#)
- (#{chi\ 465}#
- (cdr #{x\
2057}#)
- (car #{x\
2057}#)
+ (map (lambda (#{x\
18992}#)
+ (#{chi\
17400}#
+ (cdr #{x\
18992}#)
+ (car #{x\
18992}#)
'(())
- #{mod\
1984}#))
- (cons (cons
#{er\ 1977}#
-
(#{source-wrap\ 451}#
-
#{e\ 1981}#
-
#{w\ 1982}#
-
#{s\ 1983}#
-
#{mod\ 1984}#))
- (cdr
#{body\ 1965}#)))))))))))))))))))
+ #{mod\
18919}#))
+ (cons (cons
#{er\ 18912}#
+
(#{source-wrap\ 17386}#
+
#{e\ 18916}#
+
#{w\ 18917}#
+
#{s\ 18918}#
+
#{mod\ 18919}#))
+ (cdr
#{body\ 18900}#)))))))))))))))))))
(begin
- (#{parse\ 1964}#
- (map (lambda (#{x\ 1972}#)
- (cons #{r\ 1950}#
- (#{wrap\ 449}#
- #{x\ 1972}#
- #{w\ 1955}#
- #{mod\ 1942}#)))
- #{body\ 1938}#)
+ (#{parse\ 18899}#
+ (map (lambda (#{x\ 18907}#)
+ (cons #{r\ 18885}#
+ (#{wrap\ 17384}#
+ #{x\ 18907}#
+ #{w\ 18890}#
+ #{mod\ 18877}#)))
+ #{body\ 18873}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax\ 475}#
- (lambda (#{rec?\ 2060}#
- #{e\ 2061}#
- #{r\ 2062}#
- #{w\ 2063}#
- #{s\ 2064}#
- #{mod\ 2065}#
- #{k\ 2066}#)
- (let ((#{tmp\ 2074}# #{e\ 2061}#))
- (let ((#{tmp\ 2075}#
+ (#{chi-local-syntax\ 17410}#
+ (lambda (#{rec?\ 18995}#
+ #{e\ 18996}#
+ #{r\ 18997}#
+ #{w\ 18998}#
+ #{s\ 18999}#
+ #{mod\ 19000}#
+ #{k\ 19001}#)
+ (let ((#{tmp\ 19009}# #{e\ 18996}#))
+ (let ((#{tmp\ 19010}#
($sc-dispatch
- #{tmp\ 2074}#
+ #{tmp\ 19009}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 2075}#
+ (if #{tmp\ 19010}#
(@apply
- (lambda (#{id\ 2080}#
- #{val\ 2081}#
- #{e1\ 2082}#
- #{e2\ 2083}#)
+ (lambda (#{id\ 19015}#
+ #{val\ 19016}#
+ #{e1\ 19017}#
+ #{e2\ 19018}#)
(begin
- (let ((#{ids\ 2085}# #{id\ 2080}#))
- (if (not (#{valid-bound-ids?\ 443}# #{ids\ 2085}#))
+ (let ((#{ids\ 19020}# #{id\ 19015}#))
+ (if (not (#{valid-bound-ids?\ 17378}#
+ #{ids\ 19020}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 2061}#)
+ #{e\ 18996}#)
(begin
- (let ((#{labels\ 2088}#
- (#{gen-labels\ 398}# #{ids\ 2085}#)))
+ (let ((#{labels\ 19023}#
+ (#{gen-labels\ 17333}# #{ids\ 19020}#)))
(begin
- (let ((#{new-w\ 2090}#
- (#{make-binding-wrap\ 427}#
- #{ids\ 2085}#
- #{labels\ 2088}#
- #{w\ 2063}#)))
- (#{k\ 2066}#
- (cons #{e1\ 2082}# #{e2\ 2083}#)
- (#{extend-env\ 368}#
- #{labels\ 2088}#
+ (let ((#{new-w\ 19025}#
+ (#{make-binding-wrap\ 17362}#
+ #{ids\ 19020}#
+ #{labels\ 19023}#
+ #{w\ 18998}#)))
+ (#{k\ 19001}#
+ (cons #{e1\ 19017}# #{e2\ 19018}#)
+ (#{extend-env\ 17303}#
+ #{labels\ 19023}#
(begin
- (let ((#{w\ 2094}#
- (if #{rec?\ 2060}#
- #{new-w\ 2090}#
- #{w\ 2063}#))
- (#{trans-r\ 2095}#
- (#{macros-only-env\ 372}#
- #{r\ 2062}#)))
- (map (lambda (#{x\ 2096}#)
+ (let ((#{w\ 19029}#
+ (if #{rec?\ 18995}#
+ #{new-w\ 19025}#
+ #{w\ 18998}#))
+ (#{trans-r\ 19030}#
+ (#{macros-only-env\ 17307}#
+ #{r\ 18997}#)))
+ (map (lambda (#{x\ 19031}#)
(cons 'macro
-
(#{eval-local-transformer\ 477}#
- (#{chi\ 465}#
- #{x\ 2096}#
- #{trans-r\ 2095}#
- #{w\ 2094}#
- #{mod\ 2065}#)
- #{mod\ 2065}#)))
- #{val\ 2081}#)))
- #{r\ 2062}#)
- #{new-w\ 2090}#
- #{s\ 2064}#
- #{mod\ 2065}#)))))))))
- #{tmp\ 2075}#)
- (let ((#{_\ 2101}# #{tmp\ 2074}#))
+
(#{eval-local-transformer\ 17412}#
+ (#{chi\ 17400}#
+ #{x\ 19031}#
+ #{trans-r\
19030}#
+ #{w\ 19029}#
+ #{mod\ 19000}#)
+ #{mod\ 19000}#)))
+ #{val\ 19016}#)))
+ #{r\ 18997}#)
+ #{new-w\ 19025}#
+ #{s\ 18999}#
+ #{mod\ 19000}#)))))))))
+ #{tmp\ 19010}#)
+ (let ((#{_\ 19036}# #{tmp\ 19009}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 451}#
- #{e\ 2061}#
- #{w\ 2063}#
- #{s\ 2064}#
- #{mod\ 2065}#))))))))
- (#{eval-local-transformer\ 477}#
- (lambda (#{expanded\ 2102}# #{mod\ 2103}#)
+ (#{source-wrap\ 17386}#
+ #{e\ 18996}#
+ #{w\ 18998}#
+ #{s\ 18999}#
+ #{mod\ 19000}#))))))))
+ (#{eval-local-transformer\ 17412}#
+ (lambda (#{expanded\ 19037}# #{mod\ 19038}#)
(begin
- (let ((#{p\ 2107}#
- (#{local-eval-hook\ 291}#
- #{expanded\ 2102}#
- #{mod\ 2103}#)))
- (if (procedure? #{p\ 2107}#)
- #{p\ 2107}#
+ (let ((#{p\ 19042}#
+ (#{local-eval-hook\ 17226}#
+ #{expanded\ 19037}#
+ #{mod\ 19038}#)))
+ (if (procedure? #{p\ 19042}#)
+ #{p\ 19042}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 2107}#))))))
- (#{chi-void\ 479}#
- (lambda () (#{build-void\ 302}# #f)))
- (#{ellipsis?\ 481}#
- (lambda (#{x\ 2109}#)
- (if (#{nonsymbol-id?\ 378}# #{x\ 2109}#)
- (#{free-id=?\ 439}#
- #{x\ 2109}#
+ #{p\ 19042}#))))))
+ (#{chi-void\ 17414}#
+ (lambda () (#{build-void\ 17237}# #f)))
+ (#{ellipsis?\ 17416}#
+ (lambda (#{x\ 19044}#)
+ (if (#{nonsymbol-id?\ 17313}# #{x\ 19044}#)
+ (#{free-id=?\ 17374}#
+ #{x\ 19044}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2110"))
+ #(ribcage #(x) #((top)) #("i19045"))
#(ribcage
(lambda-var-list
gen-var
@@ -6749,417 +6841,417 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974" "i16973" "i16972" "i16970")))
(hygiene guile)))
#f)))
- (#{lambda-formals\ 483}#
- (lambda (#{orig-args\ 2113}#)
+ (#{lambda-formals\ 17418}#
+ (lambda (#{orig-args\ 19048}#)
(letrec*
- ((#{req\ 2116}#
- (lambda (#{args\ 2119}# #{rreq\ 2120}#)
- (let ((#{tmp\ 2123}# #{args\ 2119}#))
- (let ((#{tmp\ 2124}#
- ($sc-dispatch #{tmp\ 2123}# (quote ()))))
- (if #{tmp\ 2124}#
+ ((#{req\ 19051}#
+ (lambda (#{args\ 19054}# #{rreq\ 19055}#)
+ (let ((#{tmp\ 19058}# #{args\ 19054}#))
+ (let ((#{tmp\ 19059}#
+ ($sc-dispatch #{tmp\ 19058}# (quote ()))))
+ (if #{tmp\ 19059}#
(@apply
(lambda ()
- (#{check\ 2118}# (reverse #{rreq\ 2120}#) #f))
- #{tmp\ 2124}#)
- (let ((#{tmp\ 2125}#
+ (#{check\ 19053}# (reverse #{rreq\ 19055}#) #f))
+ #{tmp\ 19059}#)
+ (let ((#{tmp\ 19060}#
($sc-dispatch
- #{tmp\ 2123}#
+ #{tmp\ 19058}#
'(any . any))))
- (if (if #{tmp\ 2125}#
+ (if (if #{tmp\ 19060}#
(@apply
- (lambda (#{a\ 2128}# #{b\ 2129}#)
- (#{id?\ 380}# #{a\ 2128}#))
- #{tmp\ 2125}#)
+ (lambda (#{a\ 19063}# #{b\ 19064}#)
+ (#{id?\ 17315}# #{a\ 19063}#))
+ #{tmp\ 19060}#)
#f)
(@apply
- (lambda (#{a\ 2132}# #{b\ 2133}#)
- (#{req\ 2116}#
- #{b\ 2133}#
- (cons #{a\ 2132}# #{rreq\ 2120}#)))
- #{tmp\ 2125}#)
- (let ((#{tmp\ 2134}# (list #{tmp\ 2123}#)))
- (if (if #{tmp\ 2134}#
+ (lambda (#{a\ 19067}# #{b\ 19068}#)
+ (#{req\ 19051}#
+ #{b\ 19068}#
+ (cons #{a\ 19067}# #{rreq\ 19055}#)))
+ #{tmp\ 19060}#)
+ (let ((#{tmp\ 19069}# (list #{tmp\ 19058}#)))
+ (if (if #{tmp\ 19069}#
(@apply
- (lambda (#{r\ 2136}#)
- (#{id?\ 380}# #{r\ 2136}#))
- #{tmp\ 2134}#)
+ (lambda (#{r\ 19071}#)
+ (#{id?\ 17315}# #{r\ 19071}#))
+ #{tmp\ 19069}#)
#f)
(@apply
- (lambda (#{r\ 2138}#)
- (#{check\ 2118}#
- (reverse #{rreq\ 2120}#)
- #{r\ 2138}#))
- #{tmp\ 2134}#)
- (let ((#{else\ 2140}# #{tmp\ 2123}#))
+ (lambda (#{r\ 19073}#)
+ (#{check\ 19053}#
+ (reverse #{rreq\ 19055}#)
+ #{r\ 19073}#))
+ #{tmp\ 19069}#)
+ (let ((#{else\ 19075}# #{tmp\ 19058}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 2113}#
- #{args\ 2119}#)))))))))))
- (#{check\ 2118}#
- (lambda (#{req\ 2141}# #{rest\ 2142}#)
- (if (#{distinct-bound-ids?\ 445}#
- (if #{rest\ 2142}#
- (cons #{rest\ 2142}# #{req\ 2141}#)
- #{req\ 2141}#))
- (values #{req\ 2141}# #f #{rest\ 2142}# #f)
+ #{orig-args\ 19048}#
+ #{args\ 19054}#)))))))))))
+ (#{check\ 19053}#
+ (lambda (#{req\ 19076}# #{rest\ 19077}#)
+ (if (#{distinct-bound-ids?\ 17380}#
+ (if #{rest\ 19077}#
+ (cons #{rest\ 19077}# #{req\ 19076}#)
+ #{req\ 19076}#))
+ (values #{req\ 19076}# #f #{rest\ 19077}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 2113}#)))))
+ #{orig-args\ 19048}#)))))
(begin
- (#{req\ 2116}# #{orig-args\ 2113}# (quote ()))))))
- (#{chi-simple-lambda\ 485}#
- (lambda (#{e\ 2148}#
- #{r\ 2149}#
- #{w\ 2150}#
- #{s\ 2151}#
- #{mod\ 2152}#
- #{req\ 2153}#
- #{rest\ 2154}#
- #{meta\ 2155}#
- #{body\ 2156}#)
+ (#{req\ 19051}# #{orig-args\ 19048}# (quote ()))))))
+ (#{chi-simple-lambda\ 17420}#
+ (lambda (#{e\ 19083}#
+ #{r\ 19084}#
+ #{w\ 19085}#
+ #{s\ 19086}#
+ #{mod\ 19087}#
+ #{req\ 19088}#
+ #{rest\ 19089}#
+ #{meta\ 19090}#
+ #{body\ 19091}#)
(begin
- (let ((#{ids\ 2168}#
- (if #{rest\ 2154}#
- (append #{req\ 2153}# (list #{rest\ 2154}#))
- #{req\ 2153}#)))
+ (let ((#{ids\ 19103}#
+ (if #{rest\ 19089}#
+ (append #{req\ 19088}# (list #{rest\ 19089}#))
+ #{req\ 19088}#)))
(begin
- (let ((#{vars\ 2170}#
- (map #{gen-var\ 493}# #{ids\ 2168}#)))
+ (let ((#{vars\ 19105}#
+ (map #{gen-var\ 17428}# #{ids\ 19103}#)))
(begin
- (let ((#{labels\ 2172}#
- (#{gen-labels\ 398}# #{ids\ 2168}#)))
- (#{build-simple-lambda\ 322}#
- #{s\ 2151}#
- (map syntax->datum #{req\ 2153}#)
- (if #{rest\ 2154}#
- (syntax->datum #{rest\ 2154}#)
+ (let ((#{labels\ 19107}#
+ (#{gen-labels\ 17333}# #{ids\ 19103}#)))
+ (#{build-simple-lambda\ 17257}#
+ #{s\ 19086}#
+ (map syntax->datum #{req\ 19088}#)
+ (if #{rest\ 19089}#
+ (syntax->datum #{rest\ 19089}#)
#f)
- #{vars\ 2170}#
- #{meta\ 2155}#
- (#{chi-body\ 473}#
- #{body\ 2156}#
- (#{source-wrap\ 451}#
- #{e\ 2148}#
- #{w\ 2150}#
- #{s\ 2151}#
- #{mod\ 2152}#)
- (#{extend-var-env\ 370}#
- #{labels\ 2172}#
- #{vars\ 2170}#
- #{r\ 2149}#)
- (#{make-binding-wrap\ 427}#
- #{ids\ 2168}#
- #{labels\ 2172}#
- #{w\ 2150}#)
- #{mod\ 2152}#))))))))))
- (#{lambda*-formals\ 487}#
- (lambda (#{orig-args\ 2175}#)
+ #{vars\ 19105}#
+ #{meta\ 19090}#
+ (#{chi-body\ 17408}#
+ #{body\ 19091}#
+ (#{source-wrap\ 17386}#
+ #{e\ 19083}#
+ #{w\ 19085}#
+ #{s\ 19086}#
+ #{mod\ 19087}#)
+ (#{extend-var-env\ 17305}#
+ #{labels\ 19107}#
+ #{vars\ 19105}#
+ #{r\ 19084}#)
+ (#{make-binding-wrap\ 17362}#
+ #{ids\ 19103}#
+ #{labels\ 19107}#
+ #{w\ 19085}#)
+ #{mod\ 19087}#))))))))))
+ (#{lambda*-formals\ 17422}#
+ (lambda (#{orig-args\ 19110}#)
(letrec*
- ((#{req\ 2178}#
- (lambda (#{args\ 2187}# #{rreq\ 2188}#)
- (let ((#{tmp\ 2191}# #{args\ 2187}#))
- (let ((#{tmp\ 2192}#
- ($sc-dispatch #{tmp\ 2191}# (quote ()))))
- (if #{tmp\ 2192}#
+ ((#{req\ 19113}#
+ (lambda (#{args\ 19122}# #{rreq\ 19123}#)
+ (let ((#{tmp\ 19126}# #{args\ 19122}#))
+ (let ((#{tmp\ 19127}#
+ ($sc-dispatch #{tmp\ 19126}# (quote ()))))
+ (if #{tmp\ 19127}#
(@apply
(lambda ()
- (#{check\ 2186}#
- (reverse #{rreq\ 2188}#)
+ (#{check\ 19121}#
+ (reverse #{rreq\ 19123}#)
'()
#f
'()))
- #{tmp\ 2192}#)
- (let ((#{tmp\ 2193}#
+ #{tmp\ 19127}#)
+ (let ((#{tmp\ 19128}#
($sc-dispatch
- #{tmp\ 2191}#
+ #{tmp\ 19126}#
'(any . any))))
- (if (if #{tmp\ 2193}#
+ (if (if #{tmp\ 19128}#
(@apply
- (lambda (#{a\ 2196}# #{b\ 2197}#)
- (#{id?\ 380}# #{a\ 2196}#))
- #{tmp\ 2193}#)
+ (lambda (#{a\ 19131}# #{b\ 19132}#)
+ (#{id?\ 17315}# #{a\ 19131}#))
+ #{tmp\ 19128}#)
#f)
(@apply
- (lambda (#{a\ 2200}# #{b\ 2201}#)
- (#{req\ 2178}#
- #{b\ 2201}#
- (cons #{a\ 2200}# #{rreq\ 2188}#)))
- #{tmp\ 2193}#)
- (let ((#{tmp\ 2202}#
+ (lambda (#{a\ 19135}# #{b\ 19136}#)
+ (#{req\ 19113}#
+ #{b\ 19136}#
+ (cons #{a\ 19135}# #{rreq\ 19123}#)))
+ #{tmp\ 19128}#)
+ (let ((#{tmp\ 19137}#
($sc-dispatch
- #{tmp\ 2191}#
+ #{tmp\ 19126}#
'(any . any))))
- (if (if #{tmp\ 2202}#
+ (if (if #{tmp\ 19137}#
(@apply
- (lambda (#{a\ 2205}# #{b\ 2206}#)
- (eq? (syntax->datum #{a\ 2205}#)
+ (lambda (#{a\ 19140}# #{b\ 19141}#)
+ (eq? (syntax->datum #{a\ 19140}#)
#:optional))
- #{tmp\ 2202}#)
+ #{tmp\ 19137}#)
#f)
(@apply
- (lambda (#{a\ 2209}# #{b\ 2210}#)
- (#{opt\ 2180}#
- #{b\ 2210}#
- (reverse #{rreq\ 2188}#)
+ (lambda (#{a\ 19144}# #{b\ 19145}#)
+ (#{opt\ 19115}#
+ #{b\ 19145}#
+ (reverse #{rreq\ 19123}#)
'()))
- #{tmp\ 2202}#)
- (let ((#{tmp\ 2211}#
+ #{tmp\ 19137}#)
+ (let ((#{tmp\ 19146}#
($sc-dispatch
- #{tmp\ 2191}#
+ #{tmp\ 19126}#
'(any . any))))
- (if (if #{tmp\ 2211}#
+ (if (if #{tmp\ 19146}#
(@apply
- (lambda (#{a\ 2214}# #{b\ 2215}#)
- (eq? (syntax->datum #{a\ 2214}#)
+ (lambda (#{a\ 19149}# #{b\ 19150}#)
+ (eq? (syntax->datum #{a\ 19149}#)
#:key))
- #{tmp\ 2211}#)
+ #{tmp\ 19146}#)
#f)
(@apply
- (lambda (#{a\ 2218}# #{b\ 2219}#)
- (#{key\ 2182}#
- #{b\ 2219}#
- (reverse #{rreq\ 2188}#)
+ (lambda (#{a\ 19153}# #{b\ 19154}#)
+ (#{key\ 19117}#
+ #{b\ 19154}#
+ (reverse #{rreq\ 19123}#)
'()
'()))
- #{tmp\ 2211}#)
- (let ((#{tmp\ 2220}#
+ #{tmp\ 19146}#)
+ (let ((#{tmp\ 19155}#
($sc-dispatch
- #{tmp\ 2191}#
+ #{tmp\ 19126}#
'(any any))))
- (if (if #{tmp\ 2220}#
+ (if (if #{tmp\ 19155}#
(@apply
- (lambda (#{a\ 2223}#
- #{b\ 2224}#)
+ (lambda (#{a\ 19158}#
+ #{b\ 19159}#)
(eq? (syntax->datum
- #{a\ 2223}#)
+ #{a\ 19158}#)
#:rest))
- #{tmp\ 2220}#)
+ #{tmp\ 19155}#)
#f)
(@apply
- (lambda (#{a\ 2227}# #{b\ 2228}#)
- (#{rest\ 2184}#
- #{b\ 2228}#
- (reverse #{rreq\ 2188}#)
+ (lambda (#{a\ 19162}# #{b\ 19163}#)
+ (#{rest\ 19119}#
+ #{b\ 19163}#
+ (reverse #{rreq\ 19123}#)
'()
'()))
- #{tmp\ 2220}#)
- (let ((#{tmp\ 2229}#
- (list #{tmp\ 2191}#)))
- (if (if #{tmp\ 2229}#
+ #{tmp\ 19155}#)
+ (let ((#{tmp\ 19164}#
+ (list #{tmp\ 19126}#)))
+ (if (if #{tmp\ 19164}#
(@apply
- (lambda (#{r\ 2231}#)
- (#{id?\ 380}#
- #{r\ 2231}#))
- #{tmp\ 2229}#)
+ (lambda (#{r\ 19166}#)
+ (#{id?\ 17315}#
+ #{r\ 19166}#))
+ #{tmp\ 19164}#)
#f)
(@apply
- (lambda (#{r\ 2233}#)
- (#{rest\ 2184}#
- #{r\ 2233}#
- (reverse #{rreq\ 2188}#)
+ (lambda (#{r\ 19168}#)
+ (#{rest\ 19119}#
+ #{r\ 19168}#
+ (reverse #{rreq\ 19123}#)
'()
'()))
- #{tmp\ 2229}#)
- (let ((#{else\ 2235}#
- #{tmp\ 2191}#))
+ #{tmp\ 19164}#)
+ (let ((#{else\ 19170}#
+ #{tmp\ 19126}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 2175}#
- #{args\
2187}#)))))))))))))))))
- (#{opt\ 2180}#
- (lambda (#{args\ 2236}# #{req\ 2237}# #{ropt\ 2238}#)
- (let ((#{tmp\ 2242}# #{args\ 2236}#))
- (let ((#{tmp\ 2243}#
- ($sc-dispatch #{tmp\ 2242}# (quote ()))))
- (if #{tmp\ 2243}#
+ #{orig-args\ 19110}#
+ #{args\
19122}#)))))))))))))))))
+ (#{opt\ 19115}#
+ (lambda (#{args\ 19171}# #{req\ 19172}# #{ropt\ 19173}#)
+ (let ((#{tmp\ 19177}# #{args\ 19171}#))
+ (let ((#{tmp\ 19178}#
+ ($sc-dispatch #{tmp\ 19177}# (quote ()))))
+ (if #{tmp\ 19178}#
(@apply
(lambda ()
- (#{check\ 2186}#
- #{req\ 2237}#
- (reverse #{ropt\ 2238}#)
+ (#{check\ 19121}#
+ #{req\ 19172}#
+ (reverse #{ropt\ 19173}#)
#f
'()))
- #{tmp\ 2243}#)
- (let ((#{tmp\ 2244}#
+ #{tmp\ 19178}#)
+ (let ((#{tmp\ 19179}#
($sc-dispatch
- #{tmp\ 2242}#
+ #{tmp\ 19177}#
'(any . any))))
- (if (if #{tmp\ 2244}#
+ (if (if #{tmp\ 19179}#
(@apply
- (lambda (#{a\ 2247}# #{b\ 2248}#)
- (#{id?\ 380}# #{a\ 2247}#))
- #{tmp\ 2244}#)
+ (lambda (#{a\ 19182}# #{b\ 19183}#)
+ (#{id?\ 17315}# #{a\ 19182}#))
+ #{tmp\ 19179}#)
#f)
(@apply
- (lambda (#{a\ 2251}# #{b\ 2252}#)
- (#{opt\ 2180}#
- #{b\ 2252}#
- #{req\ 2237}#
- (cons (cons #{a\ 2251}#
+ (lambda (#{a\ 19186}# #{b\ 19187}#)
+ (#{opt\ 19115}#
+ #{b\ 19187}#
+ #{req\ 19172}#
+ (cons (cons #{a\ 19186}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2249" "i2250"))
+ #("i19184" "i19185"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2239"
- "i2240"
- "i2241"))
+ #("i19174"
+ "i19175"
+ "i19176"))
#(ribcage
(check rest key opt req)
((top)
@@ -7167,15 +7259,15 @@
(top)
(top)
(top))
- ("i2185"
- "i2183"
- "i2181"
- "i2179"
- "i2177"))
+ ("i19120"
+ "i19118"
+ "i19116"
+ "i19114"
+ "i19112"))
#(ribcage
#(orig-args)
#((top))
- #("i2176"))
+ #("i19111"))
#(ribcage
(lambda-var-list
gen-var
@@ -7451,143 +7543,143 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -7597,150 +7689,151 @@
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile))))
- #{ropt\ 2238}#)))
- #{tmp\ 2244}#)
- (let ((#{tmp\ 2253}#
+ #{ropt\ 19173}#)))
+ #{tmp\ 19179}#)
+ (let ((#{tmp\ 19188}#
($sc-dispatch
- #{tmp\ 2242}#
+ #{tmp\ 19177}#
'((any any) . any))))
- (if (if #{tmp\ 2253}#
+ (if (if #{tmp\ 19188}#
(@apply
- (lambda (#{a\ 2257}#
- #{init\ 2258}#
- #{b\ 2259}#)
- (#{id?\ 380}# #{a\ 2257}#))
- #{tmp\ 2253}#)
+ (lambda (#{a\ 19192}#
+ #{init\ 19193}#
+ #{b\ 19194}#)
+ (#{id?\ 17315}# #{a\ 19192}#))
+ #{tmp\ 19188}#)
#f)
(@apply
- (lambda (#{a\ 2263}#
- #{init\ 2264}#
- #{b\ 2265}#)
- (#{opt\ 2180}#
- #{b\ 2265}#
- #{req\ 2237}#
- (cons (list #{a\ 2263}# #{init\ 2264}#)
- #{ropt\ 2238}#)))
- #{tmp\ 2253}#)
- (let ((#{tmp\ 2266}#
+ (lambda (#{a\ 19198}#
+ #{init\ 19199}#
+ #{b\ 19200}#)
+ (#{opt\ 19115}#
+ #{b\ 19200}#
+ #{req\ 19172}#
+ (cons (list #{a\ 19198}#
+ #{init\ 19199}#)
+ #{ropt\ 19173}#)))
+ #{tmp\ 19188}#)
+ (let ((#{tmp\ 19201}#
($sc-dispatch
- #{tmp\ 2242}#
+ #{tmp\ 19177}#
'(any . any))))
- (if (if #{tmp\ 2266}#
+ (if (if #{tmp\ 19201}#
(@apply
- (lambda (#{a\ 2269}# #{b\ 2270}#)
- (eq? (syntax->datum #{a\ 2269}#)
+ (lambda (#{a\ 19204}# #{b\ 19205}#)
+ (eq? (syntax->datum #{a\ 19204}#)
#:key))
- #{tmp\ 2266}#)
+ #{tmp\ 19201}#)
#f)
(@apply
- (lambda (#{a\ 2273}# #{b\ 2274}#)
- (#{key\ 2182}#
- #{b\ 2274}#
- #{req\ 2237}#
- (reverse #{ropt\ 2238}#)
+ (lambda (#{a\ 19208}# #{b\ 19209}#)
+ (#{key\ 19117}#
+ #{b\ 19209}#
+ #{req\ 19172}#
+ (reverse #{ropt\ 19173}#)
'()))
- #{tmp\ 2266}#)
- (let ((#{tmp\ 2275}#
+ #{tmp\ 19201}#)
+ (let ((#{tmp\ 19210}#
($sc-dispatch
- #{tmp\ 2242}#
+ #{tmp\ 19177}#
'(any any))))
- (if (if #{tmp\ 2275}#
+ (if (if #{tmp\ 19210}#
(@apply
- (lambda (#{a\ 2278}#
- #{b\ 2279}#)
+ (lambda (#{a\ 19213}#
+ #{b\ 19214}#)
(eq? (syntax->datum
- #{a\ 2278}#)
+ #{a\ 19213}#)
#:rest))
- #{tmp\ 2275}#)
+ #{tmp\ 19210}#)
#f)
(@apply
- (lambda (#{a\ 2282}# #{b\ 2283}#)
- (#{rest\ 2184}#
- #{b\ 2283}#
- #{req\ 2237}#
- (reverse #{ropt\ 2238}#)
+ (lambda (#{a\ 19217}# #{b\ 19218}#)
+ (#{rest\ 19119}#
+ #{b\ 19218}#
+ #{req\ 19172}#
+ (reverse #{ropt\ 19173}#)
'()))
- #{tmp\ 2275}#)
- (let ((#{tmp\ 2284}#
- (list #{tmp\ 2242}#)))
- (if (if #{tmp\ 2284}#
+ #{tmp\ 19210}#)
+ (let ((#{tmp\ 19219}#
+ (list #{tmp\ 19177}#)))
+ (if (if #{tmp\ 19219}#
(@apply
- (lambda (#{r\ 2286}#)
- (#{id?\ 380}#
- #{r\ 2286}#))
- #{tmp\ 2284}#)
+ (lambda (#{r\ 19221}#)
+ (#{id?\ 17315}#
+ #{r\ 19221}#))
+ #{tmp\ 19219}#)
#f)
(@apply
- (lambda (#{r\ 2288}#)
- (#{rest\ 2184}#
- #{r\ 2288}#
- #{req\ 2237}#
- (reverse #{ropt\ 2238}#)
+ (lambda (#{r\ 19223}#)
+ (#{rest\ 19119}#
+ #{r\ 19223}#
+ #{req\ 19172}#
+ (reverse #{ropt\ 19173}#)
'()))
- #{tmp\ 2284}#)
- (let ((#{else\ 2290}#
- #{tmp\ 2242}#))
+ #{tmp\ 19219}#)
+ (let ((#{else\ 19225}#
+ #{tmp\ 19177}#))
(syntax-violation
'lambda*
"invalid optional argument
list"
- #{orig-args\ 2175}#
- #{args\
2236}#)))))))))))))))))
- (#{key\ 2182}#
- (lambda (#{args\ 2291}#
- #{req\ 2292}#
- #{opt\ 2293}#
- #{rkey\ 2294}#)
- (let ((#{tmp\ 2299}# #{args\ 2291}#))
- (let ((#{tmp\ 2300}#
- ($sc-dispatch #{tmp\ 2299}# (quote ()))))
- (if #{tmp\ 2300}#
+ #{orig-args\ 19110}#
+ #{args\
19171}#)))))))))))))))))
+ (#{key\ 19117}#
+ (lambda (#{args\ 19226}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
+ #{rkey\ 19229}#)
+ (let ((#{tmp\ 19234}# #{args\ 19226}#))
+ (let ((#{tmp\ 19235}#
+ ($sc-dispatch #{tmp\ 19234}# (quote ()))))
+ (if #{tmp\ 19235}#
(@apply
(lambda ()
- (#{check\ 2186}#
- #{req\ 2292}#
- #{opt\ 2293}#
+ (#{check\ 19121}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
#f
- (cons #f (reverse #{rkey\ 2294}#))))
- #{tmp\ 2300}#)
- (let ((#{tmp\ 2301}#
+ (cons #f (reverse #{rkey\ 19229}#))))
+ #{tmp\ 19235}#)
+ (let ((#{tmp\ 19236}#
($sc-dispatch
- #{tmp\ 2299}#
+ #{tmp\ 19234}#
'(any . any))))
- (if (if #{tmp\ 2301}#
+ (if (if #{tmp\ 19236}#
(@apply
- (lambda (#{a\ 2304}# #{b\ 2305}#)
- (#{id?\ 380}# #{a\ 2304}#))
- #{tmp\ 2301}#)
+ (lambda (#{a\ 19239}# #{b\ 19240}#)
+ (#{id?\ 17315}# #{a\ 19239}#))
+ #{tmp\ 19236}#)
#f)
(@apply
- (lambda (#{a\ 2308}# #{b\ 2309}#)
- (let ((#{tmp\ 2311}#
+ (lambda (#{a\ 19243}# #{b\ 19244}#)
+ (let ((#{tmp\ 19246}#
(symbol->keyword
- (syntax->datum #{a\ 2308}#))))
- (let ((#{k\ 2313}# #{tmp\ 2311}#))
- (#{key\ 2182}#
- #{b\ 2309}#
- #{req\ 2292}#
- #{opt\ 2293}#
- (cons (cons #{k\ 2313}#
- (cons #{a\ 2308}#
+ (syntax->datum #{a\ 19243}#))))
+ (let ((#{k\ 19248}# #{tmp\ 19246}#))
+ (#{key\ 19117}#
+ #{b\ 19244}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
+ (cons (cons #{k\ 19248}#
+ (cons #{a\ 19243}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i2312"))
+ #("i19247"))
#(ribcage
#(a b)
#((top) (top))
- #("i2306"
- "i2307"))
+ #("i19241"
+ "i19242"))
#(ribcage
()
()
@@ -7754,10 +7847,10 @@
(top)
(top)
(top))
- #("i2295"
- "i2296"
- "i2297"
- "i2298"))
+ #("i19230"
+ "i19231"
+ "i19232"
+ "i19233"))
#(ribcage
(check rest
key
@@ -7768,15 +7861,15 @@
(top)
(top)
(top))
- ("i2185"
- "i2183"
- "i2181"
- "i2179"
- "i2177"))
+ ("i19120"
+ "i19118"
+ "i19116"
+ "i19114"
+ "i19112"))
#(ribcage
#(orig-args)
#((top))
- #("i2176"))
+ #("i19111"))
#(ribcage
(lambda-var-list
gen-var
@@ -8052,143 +8145,143 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -8198,2068 +8291,2091 @@
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene
guile)))))
- #{rkey\ 2294}#)))))
- #{tmp\ 2301}#)
- (let ((#{tmp\ 2314}#
+ #{rkey\ 19229}#)))))
+ #{tmp\ 19236}#)
+ (let ((#{tmp\ 19249}#
($sc-dispatch
- #{tmp\ 2299}#
+ #{tmp\ 19234}#
'((any any) . any))))
- (if (if #{tmp\ 2314}#
+ (if (if #{tmp\ 19249}#
(@apply
- (lambda (#{a\ 2318}#
- #{init\ 2319}#
- #{b\ 2320}#)
- (#{id?\ 380}# #{a\ 2318}#))
- #{tmp\ 2314}#)
+ (lambda (#{a\ 19253}#
+ #{init\ 19254}#
+ #{b\ 19255}#)
+ (#{id?\ 17315}# #{a\ 19253}#))
+ #{tmp\ 19249}#)
#f)
(@apply
- (lambda (#{a\ 2324}#
- #{init\ 2325}#
- #{b\ 2326}#)
- (let ((#{tmp\ 2328}#
+ (lambda (#{a\ 19259}#
+ #{init\ 19260}#
+ #{b\ 19261}#)
+ (let ((#{tmp\ 19263}#
(symbol->keyword
- (syntax->datum #{a\ 2324}#))))
- (let ((#{k\ 2330}# #{tmp\ 2328}#))
- (#{key\ 2182}#
- #{b\ 2326}#
- #{req\ 2292}#
- #{opt\ 2293}#
- (cons (list #{k\ 2330}#
- #{a\ 2324}#
- #{init\ 2325}#)
- #{rkey\ 2294}#)))))
- #{tmp\ 2314}#)
- (let ((#{tmp\ 2331}#
+ (syntax->datum #{a\ 19259}#))))
+ (let ((#{k\ 19265}# #{tmp\ 19263}#))
+ (#{key\ 19117}#
+ #{b\ 19261}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
+ (cons (list #{k\ 19265}#
+ #{a\ 19259}#
+ #{init\ 19260}#)
+ #{rkey\ 19229}#)))))
+ #{tmp\ 19249}#)
+ (let ((#{tmp\ 19266}#
($sc-dispatch
- #{tmp\ 2299}#
+ #{tmp\ 19234}#
'((any any any) . any))))
- (if (if #{tmp\ 2331}#
+ (if (if #{tmp\ 19266}#
(@apply
- (lambda (#{a\ 2336}#
- #{init\ 2337}#
- #{k\ 2338}#
- #{b\ 2339}#)
- (if (#{id?\ 380}# #{a\ 2336}#)
+ (lambda (#{a\ 19271}#
+ #{init\ 19272}#
+ #{k\ 19273}#
+ #{b\ 19274}#)
+ (if (#{id?\ 17315}# #{a\ 19271}#)
(keyword?
- (syntax->datum #{k\ 2338}#))
+ (syntax->datum #{k\ 19273}#))
#f))
- #{tmp\ 2331}#)
+ #{tmp\ 19266}#)
#f)
(@apply
- (lambda (#{a\ 2346}#
- #{init\ 2347}#
- #{k\ 2348}#
- #{b\ 2349}#)
- (#{key\ 2182}#
- #{b\ 2349}#
- #{req\ 2292}#
- #{opt\ 2293}#
- (cons (list #{k\ 2348}#
- #{a\ 2346}#
- #{init\ 2347}#)
- #{rkey\ 2294}#)))
- #{tmp\ 2331}#)
- (let ((#{tmp\ 2350}#
+ (lambda (#{a\ 19281}#
+ #{init\ 19282}#
+ #{k\ 19283}#
+ #{b\ 19284}#)
+ (#{key\ 19117}#
+ #{b\ 19284}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
+ (cons (list #{k\ 19283}#
+ #{a\ 19281}#
+ #{init\ 19282}#)
+ #{rkey\ 19229}#)))
+ #{tmp\ 19266}#)
+ (let ((#{tmp\ 19285}#
($sc-dispatch
- #{tmp\ 2299}#
+ #{tmp\ 19234}#
'(any))))
- (if (if #{tmp\ 2350}#
+ (if (if #{tmp\ 19285}#
(@apply
- (lambda (#{aok\ 2352}#)
+ (lambda (#{aok\ 19287}#)
(eq? (syntax->datum
- #{aok\ 2352}#)
+ #{aok\ 19287}#)
#:allow-other-keys))
- #{tmp\ 2350}#)
+ #{tmp\ 19285}#)
#f)
(@apply
- (lambda (#{aok\ 2354}#)
- (#{check\ 2186}#
- #{req\ 2292}#
- #{opt\ 2293}#
+ (lambda (#{aok\ 19289}#)
+ (#{check\ 19121}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
#f
(cons #t
(reverse
- #{rkey\ 2294}#))))
- #{tmp\ 2350}#)
- (let ((#{tmp\ 2355}#
+ #{rkey\ 19229}#))))
+ #{tmp\ 19285}#)
+ (let ((#{tmp\ 19290}#
($sc-dispatch
- #{tmp\ 2299}#
+ #{tmp\ 19234}#
'(any any any))))
- (if (if #{tmp\ 2355}#
+ (if (if #{tmp\ 19290}#
(@apply
- (lambda (#{aok\ 2359}#
- #{a\ 2360}#
- #{b\ 2361}#)
+ (lambda (#{aok\ 19294}#
+ #{a\ 19295}#
+ #{b\ 19296}#)
(if (eq? (syntax->datum
- #{aok\ 2359}#)
+ #{aok\
19294}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 2360}#)
+ #{a\ 19295}#)
#:rest)
#f))
- #{tmp\ 2355}#)
+ #{tmp\ 19290}#)
#f)
(@apply
- (lambda (#{aok\ 2367}#
- #{a\ 2368}#
- #{b\ 2369}#)
- (#{rest\ 2184}#
- #{b\ 2369}#
- #{req\ 2292}#
- #{opt\ 2293}#
+ (lambda (#{aok\ 19302}#
+ #{a\ 19303}#
+ #{b\ 19304}#)
+ (#{rest\ 19119}#
+ #{b\ 19304}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
(cons #t
(reverse
- #{rkey\ 2294}#))))
- #{tmp\ 2355}#)
- (let ((#{tmp\ 2370}#
+ #{rkey\ 19229}#))))
+ #{tmp\ 19290}#)
+ (let ((#{tmp\ 19305}#
($sc-dispatch
- #{tmp\ 2299}#
+ #{tmp\ 19234}#
'(any . any))))
- (if (if #{tmp\ 2370}#
+ (if (if #{tmp\ 19305}#
(@apply
- (lambda (#{aok\ 2373}#
- #{r\ 2374}#)
+ (lambda (#{aok\ 19308}#
+ #{r\ 19309}#)
(if (eq?
(syntax->datum
- #{aok\
2373}#)
+ #{aok\
19308}#)
#:allow-other-keys)
- (#{id?\ 380}#
- #{r\ 2374}#)
+ (#{id?\ 17315}#
+ #{r\ 19309}#)
#f))
- #{tmp\ 2370}#)
+ #{tmp\ 19305}#)
#f)
(@apply
- (lambda (#{aok\ 2379}#
- #{r\ 2380}#)
- (#{rest\ 2184}#
- #{r\ 2380}#
- #{req\ 2292}#
- #{opt\ 2293}#
+ (lambda (#{aok\ 19314}#
+ #{r\ 19315}#)
+ (#{rest\ 19119}#
+ #{r\ 19315}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
(cons #t
(reverse
- #{rkey\
2294}#))))
- #{tmp\ 2370}#)
- (let ((#{tmp\ 2381}#
+ #{rkey\
19229}#))))
+ #{tmp\ 19305}#)
+ (let ((#{tmp\ 19316}#
($sc-dispatch
- #{tmp\ 2299}#
+ #{tmp\ 19234}#
'(any any))))
- (if (if #{tmp\ 2381}#
+ (if (if #{tmp\ 19316}#
(@apply
- (lambda (#{a\
2384}#
- #{b\
2385}#)
+ (lambda (#{a\
19319}#
+ #{b\
19320}#)
(eq?
(syntax->datum
- #{a\
2384}#)
+ #{a\
19319}#)
#:rest))
- #{tmp\ 2381}#)
+ #{tmp\ 19316}#)
#f)
(@apply
- (lambda (#{a\ 2388}#
- #{b\ 2389}#)
- (#{rest\ 2184}#
- #{b\ 2389}#
- #{req\ 2292}#
- #{opt\ 2293}#
+ (lambda (#{a\ 19323}#
+ #{b\ 19324}#)
+ (#{rest\ 19119}#
+ #{b\ 19324}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
(cons #f
(reverse
- #{rkey\
2294}#))))
- #{tmp\ 2381}#)
- (let ((#{tmp\ 2390}#
- (list #{tmp\
2299}#)))
- (if (if #{tmp\ 2390}#
+ #{rkey\
19229}#))))
+ #{tmp\ 19316}#)
+ (let ((#{tmp\ 19325}#
+ (list #{tmp\
19234}#)))
+ (if (if #{tmp\ 19325}#
(@apply
- (lambda (#{r\
2392}#)
- (#{id?\ 380}#
- #{r\
2392}#))
- #{tmp\ 2390}#)
+ (lambda (#{r\
19327}#)
+ (#{id?\
17315}#
+ #{r\
19327}#))
+ #{tmp\ 19325}#)
#f)
(@apply
- (lambda (#{r\
2394}#)
- (#{rest\ 2184}#
- #{r\ 2394}#
- #{req\ 2292}#
- #{opt\ 2293}#
+ (lambda (#{r\
19329}#)
+ (#{rest\ 19119}#
+ #{r\ 19329}#
+ #{req\ 19227}#
+ #{opt\ 19228}#
(cons #f
(reverse
-
#{rkey\ 2294}#))))
- #{tmp\ 2390}#)
- (let ((#{else\ 2396}#
- #{tmp\
2299}#))
+
#{rkey\ 19229}#))))
+ #{tmp\ 19325}#)
+ (let ((#{else\
19331}#
+ #{tmp\
19234}#))
(syntax-violation
'lambda*
"invalid keyword
argument list"
- #{orig-args\
2175}#
- #{args\
2291}#)))))))))))))))))))))))
- (#{rest\ 2184}#
- (lambda (#{args\ 2397}#
- #{req\ 2398}#
- #{opt\ 2399}#
- #{kw\ 2400}#)
- (let ((#{tmp\ 2405}# #{args\ 2397}#))
- (let ((#{tmp\ 2406}# (list #{tmp\ 2405}#)))
- (if (if #{tmp\ 2406}#
+ #{orig-args\
19110}#
+ #{args\
19226}#)))))))))))))))))))))))
+ (#{rest\ 19119}#
+ (lambda (#{args\ 19332}#
+ #{req\ 19333}#
+ #{opt\ 19334}#
+ #{kw\ 19335}#)
+ (let ((#{tmp\ 19340}# #{args\ 19332}#))
+ (let ((#{tmp\ 19341}# (list #{tmp\ 19340}#)))
+ (if (if #{tmp\ 19341}#
(@apply
- (lambda (#{r\ 2408}#)
- (#{id?\ 380}# #{r\ 2408}#))
- #{tmp\ 2406}#)
+ (lambda (#{r\ 19343}#)
+ (#{id?\ 17315}# #{r\ 19343}#))
+ #{tmp\ 19341}#)
#f)
(@apply
- (lambda (#{r\ 2410}#)
- (#{check\ 2186}#
- #{req\ 2398}#
- #{opt\ 2399}#
- #{r\ 2410}#
- #{kw\ 2400}#))
- #{tmp\ 2406}#)
- (let ((#{else\ 2412}# #{tmp\ 2405}#))
+ (lambda (#{r\ 19345}#)
+ (#{check\ 19121}#
+ #{req\ 19333}#
+ #{opt\ 19334}#
+ #{r\ 19345}#
+ #{kw\ 19335}#))
+ #{tmp\ 19341}#)
+ (let ((#{else\ 19347}# #{tmp\ 19340}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 2175}#
- #{args\ 2397}#)))))))
- (#{check\ 2186}#
- (lambda (#{req\ 2413}#
- #{opt\ 2414}#
- #{rest\ 2415}#
- #{kw\ 2416}#)
- (if (#{distinct-bound-ids?\ 445}#
+ #{orig-args\ 19110}#
+ #{args\ 19332}#)))))))
+ (#{check\ 19121}#
+ (lambda (#{req\ 19348}#
+ #{opt\ 19349}#
+ #{rest\ 19350}#
+ #{kw\ 19351}#)
+ (if (#{distinct-bound-ids?\ 17380}#
(append
- #{req\ 2413}#
- (map car #{opt\ 2414}#)
- (if #{rest\ 2415}#
- (list #{rest\ 2415}#)
+ #{req\ 19348}#
+ (map car #{opt\ 19349}#)
+ (if #{rest\ 19350}#
+ (list #{rest\ 19350}#)
'())
- (if (pair? #{kw\ 2416}#)
- (map cadr (cdr #{kw\ 2416}#))
+ (if (pair? #{kw\ 19351}#)
+ (map cadr (cdr #{kw\ 19351}#))
'())))
(values
- #{req\ 2413}#
- #{opt\ 2414}#
- #{rest\ 2415}#
- #{kw\ 2416}#)
+ #{req\ 19348}#
+ #{opt\ 19349}#
+ #{rest\ 19350}#
+ #{kw\ 19351}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 2175}#)))))
+ #{orig-args\ 19110}#)))))
(begin
- (#{req\ 2178}# #{orig-args\ 2175}# (quote ()))))))
- (#{chi-lambda-case\ 489}#
- (lambda (#{e\ 2424}#
- #{r\ 2425}#
- #{w\ 2426}#
- #{s\ 2427}#
- #{mod\ 2428}#
- #{get-formals\ 2429}#
- #{clauses\ 2430}#)
+ (#{req\ 19113}# #{orig-args\ 19110}# (quote ()))))))
+ (#{chi-lambda-case\ 17424}#
+ (lambda (#{e\ 19359}#
+ #{r\ 19360}#
+ #{w\ 19361}#
+ #{s\ 19362}#
+ #{mod\ 19363}#
+ #{get-formals\ 19364}#
+ #{clauses\ 19365}#)
(letrec*
- ((#{expand-req\ 2439}#
- (lambda (#{req\ 2446}#
- #{opt\ 2447}#
- #{rest\ 2448}#
- #{kw\ 2449}#
- #{body\ 2450}#)
+ ((#{expand-req\ 19374}#
+ (lambda (#{req\ 19381}#
+ #{opt\ 19382}#
+ #{rest\ 19383}#
+ #{kw\ 19384}#
+ #{body\ 19385}#)
(begin
- (let ((#{vars\ 2458}#
- (map #{gen-var\ 493}# #{req\ 2446}#))
- (#{labels\ 2459}#
- (#{gen-labels\ 398}# #{req\ 2446}#)))
+ (let ((#{vars\ 19393}#
+ (map #{gen-var\ 17428}# #{req\ 19381}#))
+ (#{labels\ 19394}#
+ (#{gen-labels\ 17333}# #{req\ 19381}#)))
(begin
- (let ((#{r*\ 2462}#
- (#{extend-var-env\ 370}#
- #{labels\ 2459}#
- #{vars\ 2458}#
- #{r\ 2425}#))
- (#{w*\ 2463}#
- (#{make-binding-wrap\ 427}#
- #{req\ 2446}#
- #{labels\ 2459}#
- #{w\ 2426}#)))
- (#{expand-opt\ 2441}#
- (map syntax->datum #{req\ 2446}#)
- #{opt\ 2447}#
- #{rest\ 2448}#
- #{kw\ 2449}#
- #{body\ 2450}#
- (reverse #{vars\ 2458}#)
- #{r*\ 2462}#
- #{w*\ 2463}#
+ (let ((#{r*\ 19397}#
+ (#{extend-var-env\ 17305}#
+ #{labels\ 19394}#
+ #{vars\ 19393}#
+ #{r\ 19360}#))
+ (#{w*\ 19398}#
+ (#{make-binding-wrap\ 17362}#
+ #{req\ 19381}#
+ #{labels\ 19394}#
+ #{w\ 19361}#)))
+ (#{expand-opt\ 19376}#
+ (map syntax->datum #{req\ 19381}#)
+ #{opt\ 19382}#
+ #{rest\ 19383}#
+ #{kw\ 19384}#
+ #{body\ 19385}#
+ (reverse #{vars\ 19393}#)
+ #{r*\ 19397}#
+ #{w*\ 19398}#
'()
'())))))))
- (#{expand-opt\ 2441}#
- (lambda (#{req\ 2464}#
- #{opt\ 2465}#
- #{rest\ 2466}#
- #{kw\ 2467}#
- #{body\ 2468}#
- #{vars\ 2469}#
- #{r*\ 2470}#
- #{w*\ 2471}#
- #{out\ 2472}#
- #{inits\ 2473}#)
- (if (pair? #{opt\ 2465}#)
- (let ((#{tmp\ 2486}# (car #{opt\ 2465}#)))
- (let ((#{tmp\ 2487}#
+ (#{expand-opt\ 19376}#
+ (lambda (#{req\ 19399}#
+ #{opt\ 19400}#
+ #{rest\ 19401}#
+ #{kw\ 19402}#
+ #{body\ 19403}#
+ #{vars\ 19404}#
+ #{r*\ 19405}#
+ #{w*\ 19406}#
+ #{out\ 19407}#
+ #{inits\ 19408}#)
+ (if (pair? #{opt\ 19400}#)
+ (let ((#{tmp\ 19421}# (car #{opt\ 19400}#)))
+ (let ((#{tmp\ 19422}#
($sc-dispatch
- #{tmp\ 2486}#
+ #{tmp\ 19421}#
'(any any))))
- (if #{tmp\ 2487}#
+ (if #{tmp\ 19422}#
(@apply
- (lambda (#{id\ 2490}# #{i\ 2491}#)
+ (lambda (#{id\ 19425}# #{i\ 19426}#)
(begin
- (let ((#{v\ 2494}#
- (#{gen-var\ 493}# #{id\ 2490}#)))
+ (let ((#{v\ 19429}#
+ (#{gen-var\ 17428}# #{id\ 19425}#)))
(begin
- (let ((#{l\ 2496}#
- (#{gen-labels\ 398}#
- (list #{v\ 2494}#))))
+ (let ((#{l\ 19431}#
+ (#{gen-labels\ 17333}#
+ (list #{v\ 19429}#))))
(begin
- (let ((#{r**\ 2498}#
- (#{extend-var-env\ 370}#
- #{l\ 2496}#
- (list #{v\ 2494}#)
- #{r*\ 2470}#)))
+ (let ((#{r**\ 19433}#
+ (#{extend-var-env\ 17305}#
+ #{l\ 19431}#
+ (list #{v\ 19429}#)
+ #{r*\ 19405}#)))
(begin
- (let ((#{w**\ 2500}#
- (#{make-binding-wrap\
427}#
- (list #{id\ 2490}#)
- #{l\ 2496}#
- #{w*\ 2471}#)))
- (#{expand-opt\ 2441}#
- #{req\ 2464}#
- (cdr #{opt\ 2465}#)
- #{rest\ 2466}#
- #{kw\ 2467}#
- #{body\ 2468}#
- (cons #{v\ 2494}#
- #{vars\ 2469}#)
- #{r**\ 2498}#
- #{w**\ 2500}#
+ (let ((#{w**\ 19435}#
+ (#{make-binding-wrap\
17362}#
+ (list #{id\ 19425}#)
+ #{l\ 19431}#
+ #{w*\ 19406}#)))
+ (#{expand-opt\ 19376}#
+ #{req\ 19399}#
+ (cdr #{opt\ 19400}#)
+ #{rest\ 19401}#
+ #{kw\ 19402}#
+ #{body\ 19403}#
+ (cons #{v\ 19429}#
+ #{vars\ 19404}#)
+ #{r**\ 19433}#
+ #{w**\ 19435}#
(cons (syntax->datum
- #{id\ 2490}#)
- #{out\ 2472}#)
- (cons (#{chi\ 465}#
- #{i\ 2491}#
- #{r*\ 2470}#
- #{w*\ 2471}#
- #{mod\ 2428}#)
- #{inits\
2473}#)))))))))))
- #{tmp\ 2487}#)
+ #{id\ 19425}#)
+ #{out\ 19407}#)
+ (cons (#{chi\ 17400}#
+ #{i\ 19426}#
+ #{r*\ 19405}#
+ #{w*\ 19406}#
+ #{mod\ 19363}#)
+ #{inits\
19408}#)))))))))))
+ #{tmp\ 19422}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2486}#))))
- (if #{rest\ 2466}#
+ #{tmp\ 19421}#))))
+ (if #{rest\ 19401}#
(begin
- (let ((#{v\ 2505}#
- (#{gen-var\ 493}# #{rest\ 2466}#)))
+ (let ((#{v\ 19440}#
+ (#{gen-var\ 17428}# #{rest\ 19401}#)))
(begin
- (let ((#{l\ 2507}#
- (#{gen-labels\ 398}#
- (list #{v\ 2505}#))))
+ (let ((#{l\ 19442}#
+ (#{gen-labels\ 17333}#
+ (list #{v\ 19440}#))))
(begin
- (let ((#{r*\ 2509}#
- (#{extend-var-env\ 370}#
- #{l\ 2507}#
- (list #{v\ 2505}#)
- #{r*\ 2470}#)))
+ (let ((#{r*\ 19444}#
+ (#{extend-var-env\ 17305}#
+ #{l\ 19442}#
+ (list #{v\ 19440}#)
+ #{r*\ 19405}#)))
(begin
- (let ((#{w*\ 2511}#
- (#{make-binding-wrap\ 427}#
- (list #{rest\ 2466}#)
- #{l\ 2507}#
- #{w*\ 2471}#)))
- (#{expand-kw\ 2443}#
- #{req\ 2464}#
- (if (pair? #{out\ 2472}#)
- (reverse #{out\ 2472}#)
+ (let ((#{w*\ 19446}#
+ (#{make-binding-wrap\ 17362}#
+ (list #{rest\ 19401}#)
+ #{l\ 19442}#
+ #{w*\ 19406}#)))
+ (#{expand-kw\ 19378}#
+ #{req\ 19399}#
+ (if (pair? #{out\ 19407}#)
+ (reverse #{out\ 19407}#)
#f)
- (syntax->datum #{rest\ 2466}#)
- (if (pair? #{kw\ 2467}#)
- (cdr #{kw\ 2467}#)
- #{kw\ 2467}#)
- #{body\ 2468}#
- (cons #{v\ 2505}# #{vars\ 2469}#)
- #{r*\ 2509}#
- #{w*\ 2511}#
- (if (pair? #{kw\ 2467}#)
- (car #{kw\ 2467}#)
+ (syntax->datum #{rest\ 19401}#)
+ (if (pair? #{kw\ 19402}#)
+ (cdr #{kw\ 19402}#)
+ #{kw\ 19402}#)
+ #{body\ 19403}#
+ (cons #{v\ 19440}# #{vars\ 19404}#)
+ #{r*\ 19444}#
+ #{w*\ 19446}#
+ (if (pair? #{kw\ 19402}#)
+ (car #{kw\ 19402}#)
#f)
'()
- #{inits\ 2473}#)))))))))
- (#{expand-kw\ 2443}#
- #{req\ 2464}#
- (if (pair? #{out\ 2472}#)
- (reverse #{out\ 2472}#)
+ #{inits\ 19408}#)))))))))
+ (#{expand-kw\ 19378}#
+ #{req\ 19399}#
+ (if (pair? #{out\ 19407}#)
+ (reverse #{out\ 19407}#)
#f)
#f
- (if (pair? #{kw\ 2467}#)
- (cdr #{kw\ 2467}#)
- #{kw\ 2467}#)
- #{body\ 2468}#
- #{vars\ 2469}#
- #{r*\ 2470}#
- #{w*\ 2471}#
- (if (pair? #{kw\ 2467}#) (car #{kw\ 2467}#) #f)
+ (if (pair? #{kw\ 19402}#)
+ (cdr #{kw\ 19402}#)
+ #{kw\ 19402}#)
+ #{body\ 19403}#
+ #{vars\ 19404}#
+ #{r*\ 19405}#
+ #{w*\ 19406}#
+ (if (pair? #{kw\ 19402}#) (car #{kw\ 19402}#) #f)
'()
- #{inits\ 2473}#)))))
- (#{expand-kw\ 2443}#
- (lambda (#{req\ 2513}#
- #{opt\ 2514}#
- #{rest\ 2515}#
- #{kw\ 2516}#
- #{body\ 2517}#
- #{vars\ 2518}#
- #{r*\ 2519}#
- #{w*\ 2520}#
- #{aok\ 2521}#
- #{out\ 2522}#
- #{inits\ 2523}#)
- (if (pair? #{kw\ 2516}#)
- (let ((#{tmp\ 2537}# (car #{kw\ 2516}#)))
- (let ((#{tmp\ 2538}#
+ #{inits\ 19408}#)))))
+ (#{expand-kw\ 19378}#
+ (lambda (#{req\ 19448}#
+ #{opt\ 19449}#
+ #{rest\ 19450}#
+ #{kw\ 19451}#
+ #{body\ 19452}#
+ #{vars\ 19453}#
+ #{r*\ 19454}#
+ #{w*\ 19455}#
+ #{aok\ 19456}#
+ #{out\ 19457}#
+ #{inits\ 19458}#)
+ (if (pair? #{kw\ 19451}#)
+ (let ((#{tmp\ 19472}# (car #{kw\ 19451}#)))
+ (let ((#{tmp\ 19473}#
($sc-dispatch
- #{tmp\ 2537}#
+ #{tmp\ 19472}#
'(any any any))))
- (if #{tmp\ 2538}#
+ (if #{tmp\ 19473}#
(@apply
- (lambda (#{k\ 2542}# #{id\ 2543}# #{i\ 2544}#)
+ (lambda (#{k\ 19477}# #{id\ 19478}# #{i\ 19479}#)
(begin
- (let ((#{v\ 2547}#
- (#{gen-var\ 493}# #{id\ 2543}#)))
+ (let ((#{v\ 19482}#
+ (#{gen-var\ 17428}# #{id\ 19478}#)))
(begin
- (let ((#{l\ 2549}#
- (#{gen-labels\ 398}#
- (list #{v\ 2547}#))))
+ (let ((#{l\ 19484}#
+ (#{gen-labels\ 17333}#
+ (list #{v\ 19482}#))))
(begin
- (let ((#{r**\ 2551}#
- (#{extend-var-env\ 370}#
- #{l\ 2549}#
- (list #{v\ 2547}#)
- #{r*\ 2519}#)))
+ (let ((#{r**\ 19486}#
+ (#{extend-var-env\ 17305}#
+ #{l\ 19484}#
+ (list #{v\ 19482}#)
+ #{r*\ 19454}#)))
(begin
- (let ((#{w**\ 2553}#
- (#{make-binding-wrap\
427}#
- (list #{id\ 2543}#)
- #{l\ 2549}#
- #{w*\ 2520}#)))
- (#{expand-kw\ 2443}#
- #{req\ 2513}#
- #{opt\ 2514}#
- #{rest\ 2515}#
- (cdr #{kw\ 2516}#)
- #{body\ 2517}#
- (cons #{v\ 2547}#
- #{vars\ 2518}#)
- #{r**\ 2551}#
- #{w**\ 2553}#
- #{aok\ 2521}#
+ (let ((#{w**\ 19488}#
+ (#{make-binding-wrap\
17362}#
+ (list #{id\ 19478}#)
+ #{l\ 19484}#
+ #{w*\ 19455}#)))
+ (#{expand-kw\ 19378}#
+ #{req\ 19448}#
+ #{opt\ 19449}#
+ #{rest\ 19450}#
+ (cdr #{kw\ 19451}#)
+ #{body\ 19452}#
+ (cons #{v\ 19482}#
+ #{vars\ 19453}#)
+ #{r**\ 19486}#
+ #{w**\ 19488}#
+ #{aok\ 19456}#
(cons (list (syntax->datum
- #{k\ 2542}#)
+ #{k\ 19477}#)
(syntax->datum
- #{id\ 2543}#)
- #{v\ 2547}#)
- #{out\ 2522}#)
- (cons (#{chi\ 465}#
- #{i\ 2544}#
- #{r*\ 2519}#
- #{w*\ 2520}#
- #{mod\ 2428}#)
- #{inits\
2523}#)))))))))))
- #{tmp\ 2538}#)
+ #{id\ 19478}#)
+ #{v\ 19482}#)
+ #{out\ 19457}#)
+ (cons (#{chi\ 17400}#
+ #{i\ 19479}#
+ #{r*\ 19454}#
+ #{w*\ 19455}#
+ #{mod\ 19363}#)
+ #{inits\
19458}#)))))))))))
+ #{tmp\ 19473}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2537}#))))
- (#{expand-body\ 2445}#
- #{req\ 2513}#
- #{opt\ 2514}#
- #{rest\ 2515}#
+ #{tmp\ 19472}#))))
+ (#{expand-body\ 19380}#
+ #{req\ 19448}#
+ #{opt\ 19449}#
+ #{rest\ 19450}#
(if (begin
- (let ((#{t\ 2557}# #{aok\ 2521}#))
- (if #{t\ 2557}#
- #{t\ 2557}#
- (pair? #{out\ 2522}#))))
- (cons #{aok\ 2521}# (reverse #{out\ 2522}#))
+ (let ((#{t\ 19492}# #{aok\ 19456}#))
+ (if #{t\ 19492}#
+ #{t\ 19492}#
+ (pair? #{out\ 19457}#))))
+ (cons #{aok\ 19456}# (reverse #{out\ 19457}#))
#f)
- #{body\ 2517}#
- (reverse #{vars\ 2518}#)
- #{r*\ 2519}#
- #{w*\ 2520}#
- (reverse #{inits\ 2523}#)
+ #{body\ 19452}#
+ (reverse #{vars\ 19453}#)
+ #{r*\ 19454}#
+ #{w*\ 19455}#
+ (reverse #{inits\ 19458}#)
'()))))
- (#{expand-body\ 2445}#
- (lambda (#{req\ 2559}#
- #{opt\ 2560}#
- #{rest\ 2561}#
- #{kw\ 2562}#
- #{body\ 2563}#
- #{vars\ 2564}#
- #{r*\ 2565}#
- #{w*\ 2566}#
- #{inits\ 2567}#
- #{meta\ 2568}#)
- (let ((#{tmp\ 2579}# #{body\ 2563}#))
- (let ((#{tmp\ 2580}#
+ (#{expand-body\ 19380}#
+ (lambda (#{req\ 19494}#
+ #{opt\ 19495}#
+ #{rest\ 19496}#
+ #{kw\ 19497}#
+ #{body\ 19498}#
+ #{vars\ 19499}#
+ #{r*\ 19500}#
+ #{w*\ 19501}#
+ #{inits\ 19502}#
+ #{meta\ 19503}#)
+ (let ((#{tmp\ 19514}# #{body\ 19498}#))
+ (let ((#{tmp\ 19515}#
($sc-dispatch
- #{tmp\ 2579}#
+ #{tmp\ 19514}#
'(any any . each-any))))
- (if (if #{tmp\ 2580}#
+ (if (if #{tmp\ 19515}#
(@apply
- (lambda (#{docstring\ 2584}#
- #{e1\ 2585}#
- #{e2\ 2586}#)
+ (lambda (#{docstring\ 19519}#
+ #{e1\ 19520}#
+ #{e2\ 19521}#)
(string?
- (syntax->datum #{docstring\ 2584}#)))
- #{tmp\ 2580}#)
+ (syntax->datum #{docstring\ 19519}#)))
+ #{tmp\ 19515}#)
#f)
(@apply
- (lambda (#{docstring\ 2590}#
- #{e1\ 2591}#
- #{e2\ 2592}#)
- (#{expand-body\ 2445}#
- #{req\ 2559}#
- #{opt\ 2560}#
- #{rest\ 2561}#
- #{kw\ 2562}#
- (cons #{e1\ 2591}# #{e2\ 2592}#)
- #{vars\ 2564}#
- #{r*\ 2565}#
- #{w*\ 2566}#
- #{inits\ 2567}#
+ (lambda (#{docstring\ 19525}#
+ #{e1\ 19526}#
+ #{e2\ 19527}#)
+ (#{expand-body\ 19380}#
+ #{req\ 19494}#
+ #{opt\ 19495}#
+ #{rest\ 19496}#
+ #{kw\ 19497}#
+ (cons #{e1\ 19526}# #{e2\ 19527}#)
+ #{vars\ 19499}#
+ #{r*\ 19500}#
+ #{w*\ 19501}#
+ #{inits\ 19502}#
(append
- #{meta\ 2568}#
+ #{meta\ 19503}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 2590}#))))))
- #{tmp\ 2580}#)
- (let ((#{tmp\ 2595}#
+ #{docstring\ 19525}#))))))
+ #{tmp\ 19515}#)
+ (let ((#{tmp\ 19530}#
($sc-dispatch
- #{tmp\ 2579}#
+ #{tmp\ 19514}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 2595}#
+ (if #{tmp\ 19530}#
(@apply
- (lambda (#{k\ 2600}#
- #{v\ 2601}#
- #{e1\ 2602}#
- #{e2\ 2603}#)
- (#{expand-body\ 2445}#
- #{req\ 2559}#
- #{opt\ 2560}#
- #{rest\ 2561}#
- #{kw\ 2562}#
- (cons #{e1\ 2602}# #{e2\ 2603}#)
- #{vars\ 2564}#
- #{r*\ 2565}#
- #{w*\ 2566}#
- #{inits\ 2567}#
+ (lambda (#{k\ 19535}#
+ #{v\ 19536}#
+ #{e1\ 19537}#
+ #{e2\ 19538}#)
+ (#{expand-body\ 19380}#
+ #{req\ 19494}#
+ #{opt\ 19495}#
+ #{rest\ 19496}#
+ #{kw\ 19497}#
+ (cons #{e1\ 19537}# #{e2\ 19538}#)
+ #{vars\ 19499}#
+ #{r*\ 19500}#
+ #{w*\ 19501}#
+ #{inits\ 19502}#
(append
- #{meta\ 2568}#
+ #{meta\ 19503}#
(syntax->datum
- (map cons #{k\ 2600}# #{v\ 2601}#)))))
- #{tmp\ 2595}#)
- (let ((#{tmp\ 2607}#
+ (map cons
+ #{k\ 19535}#
+ #{v\ 19536}#)))))
+ #{tmp\ 19530}#)
+ (let ((#{tmp\ 19542}#
($sc-dispatch
- #{tmp\ 2579}#
+ #{tmp\ 19514}#
'(any . each-any))))
- (if #{tmp\ 2607}#
+ (if #{tmp\ 19542}#
(@apply
- (lambda (#{e1\ 2610}# #{e2\ 2611}#)
+ (lambda (#{e1\ 19545}# #{e2\ 19546}#)
(values
- #{meta\ 2568}#
- #{req\ 2559}#
- #{opt\ 2560}#
- #{rest\ 2561}#
- #{kw\ 2562}#
- #{inits\ 2567}#
- #{vars\ 2564}#
- (#{chi-body\ 473}#
- (cons #{e1\ 2610}# #{e2\ 2611}#)
- (#{source-wrap\ 451}#
- #{e\ 2424}#
- #{w\ 2426}#
- #{s\ 2427}#
- #{mod\ 2428}#)
- #{r*\ 2565}#
- #{w*\ 2566}#
- #{mod\ 2428}#)))
- #{tmp\ 2607}#)
+ #{meta\ 19503}#
+ #{req\ 19494}#
+ #{opt\ 19495}#
+ #{rest\ 19496}#
+ #{kw\ 19497}#
+ #{inits\ 19502}#
+ #{vars\ 19499}#
+ (#{chi-body\ 17408}#
+ (cons #{e1\ 19545}# #{e2\ 19546}#)
+ (#{source-wrap\ 17386}#
+ #{e\ 19359}#
+ #{w\ 19361}#
+ #{s\ 19362}#
+ #{mod\ 19363}#)
+ #{r*\ 19500}#
+ #{w*\ 19501}#
+ #{mod\ 19363}#)))
+ #{tmp\ 19542}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 2579}#)))))))))))
+ #{tmp\ 19514}#)))))))))))
(begin
- (let ((#{tmp\ 2613}# #{clauses\ 2430}#))
- (let ((#{tmp\ 2614}#
- ($sc-dispatch #{tmp\ 2613}# (quote ()))))
- (if #{tmp\ 2614}#
+ (let ((#{tmp\ 19548}# #{clauses\ 19365}#))
+ (let ((#{tmp\ 19549}#
+ ($sc-dispatch #{tmp\ 19548}# (quote ()))))
+ (if #{tmp\ 19549}#
(@apply
(lambda () (values (quote ()) #f))
- #{tmp\ 2614}#)
- (let ((#{tmp\ 2615}#
+ #{tmp\ 19549}#)
+ (let ((#{tmp\ 19550}#
($sc-dispatch
- #{tmp\ 2613}#
+ #{tmp\ 19548}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 2615}#
+ (if #{tmp\ 19550}#
(@apply
- (lambda (#{args\ 2622}#
- #{e1\ 2623}#
- #{e2\ 2624}#
- #{args*\ 2625}#
- #{e1*\ 2626}#
- #{e2*\ 2627}#)
+ (lambda (#{args\ 19557}#
+ #{e1\ 19558}#
+ #{e2\ 19559}#
+ #{args*\ 19560}#
+ #{e1*\ 19561}#
+ #{e2*\ 19562}#)
(call-with-values
(lambda ()
- (#{get-formals\ 2429}# #{args\ 2622}#))
- (lambda (#{req\ 2628}#
- #{opt\ 2629}#
- #{rest\ 2630}#
- #{kw\ 2631}#)
+ (#{get-formals\ 19364}# #{args\ 19557}#))
+ (lambda (#{req\ 19563}#
+ #{opt\ 19564}#
+ #{rest\ 19565}#
+ #{kw\ 19566}#)
(call-with-values
(lambda ()
- (#{expand-req\ 2439}#
- #{req\ 2628}#
- #{opt\ 2629}#
- #{rest\ 2630}#
- #{kw\ 2631}#
- (cons #{e1\ 2623}# #{e2\ 2624}#)))
- (lambda (#{meta\ 2637}#
- #{req\ 2638}#
- #{opt\ 2639}#
- #{rest\ 2640}#
- #{kw\ 2641}#
- #{inits\ 2642}#
- #{vars\ 2643}#
- #{body\ 2644}#)
+ (#{expand-req\ 19374}#
+ #{req\ 19563}#
+ #{opt\ 19564}#
+ #{rest\ 19565}#
+ #{kw\ 19566}#
+ (cons #{e1\ 19558}# #{e2\ 19559}#)))
+ (lambda (#{meta\ 19572}#
+ #{req\ 19573}#
+ #{opt\ 19574}#
+ #{rest\ 19575}#
+ #{kw\ 19576}#
+ #{inits\ 19577}#
+ #{vars\ 19578}#
+ #{body\ 19579}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 489}#
- #{e\ 2424}#
- #{r\ 2425}#
- #{w\ 2426}#
- #{s\ 2427}#
- #{mod\ 2428}#
- #{get-formals\ 2429}#
- (map (lambda (#{tmp\ 2655}#
- #{tmp\ 2654}#
- #{tmp\ 2653}#)
- (cons #{tmp\ 2653}#
- (cons #{tmp\ 2654}#
- #{tmp\
2655}#)))
- #{e2*\ 2627}#
- #{e1*\ 2626}#
- #{args*\ 2625}#)))
- (lambda (#{meta*\ 2657}#
- #{else*\ 2658}#)
+ (#{chi-lambda-case\ 17424}#
+ #{e\ 19359}#
+ #{r\ 19360}#
+ #{w\ 19361}#
+ #{s\ 19362}#
+ #{mod\ 19363}#
+ #{get-formals\ 19364}#
+ (map (lambda (#{tmp\ 19590}#
+ #{tmp\ 19589}#
+ #{tmp\ 19588}#)
+ (cons #{tmp\ 19588}#
+ (cons #{tmp\ 19589}#
+ #{tmp\
19590}#)))
+ #{e2*\ 19562}#
+ #{e1*\ 19561}#
+ #{args*\ 19560}#)))
+ (lambda (#{meta*\ 19592}#
+ #{else*\ 19593}#)
(values
(append
- #{meta\ 2637}#
- #{meta*\ 2657}#)
- (#{build-lambda-case\ 326}#
- #{s\ 2427}#
- #{req\ 2638}#
- #{opt\ 2639}#
- #{rest\ 2640}#
- #{kw\ 2641}#
- #{inits\ 2642}#
- #{vars\ 2643}#
- #{body\ 2644}#
- #{else*\ 2658}#)))))))))
- #{tmp\ 2615}#)
+ #{meta\ 19572}#
+ #{meta*\ 19592}#)
+ (#{build-lambda-case\ 17261}#
+ #{s\ 19362}#
+ #{req\ 19573}#
+ #{opt\ 19574}#
+ #{rest\ 19575}#
+ #{kw\ 19576}#
+ #{inits\ 19577}#
+ #{vars\ 19578}#
+ #{body\ 19579}#
+ #{else*\ 19593}#)))))))))
+ #{tmp\ 19550}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2613}#))))))))))
- (#{strip\ 491}#
- (lambda (#{x\ 2661}# #{w\ 2662}#)
+ #{tmp\ 19548}#))))))))))
+ (#{strip\ 17426}#
+ (lambda (#{x\ 19596}# #{w\ 19597}#)
(if (memq 'top
- (#{wrap-marks\ 387}# #{w\ 2662}#))
- #{x\ 2661}#
+ (#{wrap-marks\ 17322}# #{w\ 19597}#))
+ #{x\ 19596}#
(letrec*
- ((#{f\ 2668}#
- (lambda (#{x\ 2669}#)
- (if (#{syntax-object?\ 344}# #{x\ 2669}#)
- (#{strip\ 491}#
- (#{syntax-object-expression\ 346}# #{x\ 2669}#)
- (#{syntax-object-wrap\ 348}# #{x\ 2669}#))
- (if (pair? #{x\ 2669}#)
+ ((#{f\ 19603}#
+ (lambda (#{x\ 19604}#)
+ (if (#{syntax-object?\ 17279}# #{x\ 19604}#)
+ (#{strip\ 17426}#
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 19604}#)
+ (#{syntax-object-wrap\ 17283}# #{x\ 19604}#))
+ (if (pair? #{x\ 19604}#)
(begin
- (let ((#{a\ 2676}# (#{f\ 2668}# (car #{x\ 2669}#)))
- (#{d\ 2677}#
- (#{f\ 2668}# (cdr #{x\ 2669}#))))
- (if (if (eq? #{a\ 2676}# (car #{x\ 2669}#))
- (eq? #{d\ 2677}# (cdr #{x\ 2669}#))
+ (let ((#{a\ 19611}#
+ (#{f\ 19603}# (car #{x\ 19604}#)))
+ (#{d\ 19612}#
+ (#{f\ 19603}# (cdr #{x\ 19604}#))))
+ (if (if (eq? #{a\ 19611}# (car #{x\ 19604}#))
+ (eq? #{d\ 19612}# (cdr #{x\ 19604}#))
#f)
- #{x\ 2669}#
- (cons #{a\ 2676}# #{d\ 2677}#))))
- (if (vector? #{x\ 2669}#)
+ #{x\ 19604}#
+ (cons #{a\ 19611}# #{d\ 19612}#))))
+ (if (vector? #{x\ 19604}#)
(begin
- (let ((#{old\ 2683}# (vector->list #{x\ 2669}#)))
+ (let ((#{old\ 19618}#
+ (vector->list #{x\ 19604}#)))
(begin
- (let ((#{new\ 2685}#
- (map #{f\ 2668}# #{old\ 2683}#)))
- (if (#{and-map*\ 36}#
+ (let ((#{new\ 19620}#
+ (map #{f\ 19603}# #{old\ 19618}#)))
+ (if (#{and-map*\ 16971}#
eq?
- #{old\ 2683}#
- #{new\ 2685}#)
- #{x\ 2669}#
- (list->vector #{new\ 2685}#))))))
- #{x\ 2669}#))))))
- (begin (#{f\ 2668}# #{x\ 2661}#))))))
- (#{gen-var\ 493}#
- (lambda (#{id\ 2687}#)
+ #{old\ 19618}#
+ #{new\ 19620}#)
+ #{x\ 19604}#
+ (list->vector #{new\ 19620}#))))))
+ #{x\ 19604}#))))))
+ (begin (#{f\ 19603}# #{x\ 19596}#))))))
+ (#{gen-var\ 17428}#
+ (lambda (#{id\ 19622}#)
(begin
- (let ((#{id\ 2690}#
- (if (#{syntax-object?\ 344}# #{id\ 2687}#)
- (#{syntax-object-expression\ 346}# #{id\ 2687}#)
- #{id\ 2687}#)))
+ (let ((#{id\ 19625}#
+ (if (#{syntax-object?\ 17279}# #{id\ 19622}#)
+ (#{syntax-object-expression\ 17281}#
+ #{id\ 19622}#)
+ #{id\ 19622}#)))
(gensym
- (string-append (symbol->string #{id\ 2690}#) " "))))))
- (#{lambda-var-list\ 495}#
- (lambda (#{vars\ 2692}#)
+ (string-append
+ (symbol->string #{id\ 19625}#)
+ " "))))))
+ (#{lambda-var-list\ 17430}#
+ (lambda (#{vars\ 19627}#)
(letrec*
- ((#{lvl\ 2698}#
- (lambda (#{vars\ 2699}# #{ls\ 2700}# #{w\ 2701}#)
- (if (pair? #{vars\ 2699}#)
- (#{lvl\ 2698}#
- (cdr #{vars\ 2699}#)
- (cons (#{wrap\ 449}#
- (car #{vars\ 2699}#)
- #{w\ 2701}#
+ ((#{lvl\ 19633}#
+ (lambda (#{vars\ 19634}# #{ls\ 19635}# #{w\ 19636}#)
+ (if (pair? #{vars\ 19634}#)
+ (#{lvl\ 19633}#
+ (cdr #{vars\ 19634}#)
+ (cons (#{wrap\ 17384}#
+ (car #{vars\ 19634}#)
+ #{w\ 19636}#
#f)
- #{ls\ 2700}#)
- #{w\ 2701}#)
- (if (#{id?\ 380}# #{vars\ 2699}#)
- (cons (#{wrap\ 449}# #{vars\ 2699}# #{w\ 2701}# #f)
- #{ls\ 2700}#)
- (if (null? #{vars\ 2699}#)
- #{ls\ 2700}#
- (if (#{syntax-object?\ 344}# #{vars\ 2699}#)
- (#{lvl\ 2698}#
- (#{syntax-object-expression\ 346}#
- #{vars\ 2699}#)
- #{ls\ 2700}#
- (#{join-wraps\ 431}#
- #{w\ 2701}#
- (#{syntax-object-wrap\ 348}# #{vars\ 2699}#)))
- (cons #{vars\ 2699}# #{ls\ 2700}#))))))))
+ #{ls\ 19635}#)
+ #{w\ 19636}#)
+ (if (#{id?\ 17315}# #{vars\ 19634}#)
+ (cons (#{wrap\ 17384}# #{vars\ 19634}# #{w\ 19636}# #f)
+ #{ls\ 19635}#)
+ (if (null? #{vars\ 19634}#)
+ #{ls\ 19635}#
+ (if (#{syntax-object?\ 17279}# #{vars\ 19634}#)
+ (#{lvl\ 19633}#
+ (#{syntax-object-expression\ 17281}#
+ #{vars\ 19634}#)
+ #{ls\ 19635}#
+ (#{join-wraps\ 17366}#
+ #{w\ 19636}#
+ (#{syntax-object-wrap\ 17283}#
+ #{vars\ 19634}#)))
+ (cons #{vars\ 19634}# #{ls\ 19635}#))))))))
(begin
- (#{lvl\ 2698}#
- #{vars\ 2692}#
+ (#{lvl\ 19633}#
+ #{vars\ 19627}#
'()
'(())))))))
(begin
- (set! #{make-primitive-ref\ 242}#
- (lambda (#{src\ 704}# #{name\ 705}#)
+ (set! #{make-primitive-ref\ 17177}#
+ (lambda (#{src\ 17639}# #{name\ 17640}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src\ 704}#
- #{name\ 705}#)))
- (set! #{fx+\ 281}# +)
- (set! #{fx-\ 283}# -)
- (set! #{fx=\ 285}# =)
- (set! #{fx<\ 287}# <)
- (set! #{set-syntax-object-expression!\ 352}#
- (lambda (#{x\ 1082}# #{update\ 1083}#)
- (vector-set! #{x\ 1082}# 1 #{update\ 1083}#)))
- (set! #{set-syntax-object-wrap!\ 354}#
- (lambda (#{x\ 1086}# #{update\ 1087}#)
- (vector-set! #{x\ 1086}# 2 #{update\ 1087}#)))
- (set! #{set-syntax-object-module!\ 356}#
- (lambda (#{x\ 1090}# #{update\ 1091}#)
- (vector-set! #{x\ 1090}# 3 #{update\ 1091}#)))
- (set! #{binding-type\ 363}# car)
- (set! #{binding-value\ 365}# cdr)
- (set! #{make-wrap\ 385}# cons)
- (set! #{wrap-marks\ 387}# car)
- (set! #{wrap-subst\ 389}# cdr)
- (set! #{ribcage?\ 403}#
- (lambda (#{x\ 1168}#)
- (if (vector? #{x\ 1168}#)
- (if (= (vector-length #{x\ 1168}#) 4)
- (eq? (vector-ref #{x\ 1168}# 0) (quote ribcage))
+ #{src\ 17639}#
+ #{name\ 17640}#)))
+ (set! #{fx+\ 17216}# +)
+ (set! #{fx-\ 17218}# -)
+ (set! #{fx=\ 17220}# =)
+ (set! #{fx<\ 17222}# <)
+ (set! #{set-syntax-object-expression!\ 17287}#
+ (lambda (#{x\ 18017}# #{update\ 18018}#)
+ (vector-set! #{x\ 18017}# 1 #{update\ 18018}#)))
+ (set! #{set-syntax-object-wrap!\ 17289}#
+ (lambda (#{x\ 18021}# #{update\ 18022}#)
+ (vector-set! #{x\ 18021}# 2 #{update\ 18022}#)))
+ (set! #{set-syntax-object-module!\ 17291}#
+ (lambda (#{x\ 18025}# #{update\ 18026}#)
+ (vector-set! #{x\ 18025}# 3 #{update\ 18026}#)))
+ (set! #{binding-type\ 17298}# car)
+ (set! #{binding-value\ 17300}# cdr)
+ (set! #{make-wrap\ 17320}# cons)
+ (set! #{wrap-marks\ 17322}# car)
+ (set! #{wrap-subst\ 17324}# cdr)
+ (set! #{ribcage?\ 17338}#
+ (lambda (#{x\ 18103}#)
+ (if (vector? #{x\ 18103}#)
+ (if (= (vector-length #{x\ 18103}#) 4)
+ (eq? (vector-ref #{x\ 18103}# 0) (quote ribcage))
#f)
#f)))
(begin
- (#{global-extend\ 376}#
+ (#{global-extend\ 17311}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 376}#
+ (#{global-extend\ 17311}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 376}#
+ (#{global-extend\ 17311}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2712}#
- #{r\ 2713}#
- #{w\ 2714}#
- #{s\ 2715}#
- #{mod\ 2716}#)
- (let ((#{tmp\ 2722}# #{e\ 2712}#))
- (let ((#{tmp\ 2723}#
+ (lambda (#{e\ 19647}#
+ #{r\ 19648}#
+ #{w\ 19649}#
+ #{s\ 19650}#
+ #{mod\ 19651}#)
+ (let ((#{tmp\ 19657}# #{e\ 19647}#))
+ (let ((#{tmp\ 19658}#
($sc-dispatch
- #{tmp\ 2722}#
+ #{tmp\ 19657}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2723}#
+ (if (if #{tmp\ 19658}#
(@apply
- (lambda (#{var\ 2728}#
- #{val\ 2729}#
- #{e1\ 2730}#
- #{e2\ 2731}#)
- (#{valid-bound-ids?\ 443}# #{var\ 2728}#))
- #{tmp\ 2723}#)
+ (lambda (#{var\ 19663}#
+ #{val\ 19664}#
+ #{e1\ 19665}#
+ #{e2\ 19666}#)
+ (#{valid-bound-ids?\ 17378}# #{var\ 19663}#))
+ #{tmp\ 19658}#)
#f)
(@apply
- (lambda (#{var\ 2737}#
- #{val\ 2738}#
- #{e1\ 2739}#
- #{e2\ 2740}#)
+ (lambda (#{var\ 19672}#
+ #{val\ 19673}#
+ #{e1\ 19674}#
+ #{e2\ 19675}#)
(begin
- (let ((#{names\ 2742}#
- (map (lambda (#{x\ 2743}#)
- (#{id-var-name\ 437}#
- #{x\ 2743}#
- #{w\ 2714}#))
- #{var\ 2737}#)))
+ (let ((#{names\ 19677}#
+ (map (lambda (#{x\ 19678}#)
+ (#{id-var-name\ 17372}#
+ #{x\ 19678}#
+ #{w\ 19649}#))
+ #{var\ 19672}#)))
(begin
(for-each
- (lambda (#{id\ 2746}# #{n\ 2747}#)
+ (lambda (#{id\ 19681}# #{n\ 19682}#)
(begin
- (let ((#{atom-key\ 2752}#
- (#{binding-type\ 363}#
- (#{lookup\ 374}#
- #{n\ 2747}#
- #{r\ 2713}#
- #{mod\ 2716}#))))
- (if (eqv? #{atom-key\ 2752}#
+ (let ((#{atom-key\ 19687}#
+ (#{binding-type\ 17298}#
+ (#{lookup\ 17309}#
+ #{n\ 19682}#
+ #{r\ 19648}#
+ #{mod\ 19651}#))))
+ (if (eqv? #{atom-key\ 19687}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2712}#
- (#{source-wrap\ 451}#
- #{id\ 2746}#
- #{w\ 2714}#
- #{s\ 2715}#
- #{mod\ 2716}#))))))
- #{var\ 2737}#
- #{names\ 2742}#)
- (#{chi-body\ 473}#
- (cons #{e1\ 2739}# #{e2\ 2740}#)
- (#{source-wrap\ 451}#
- #{e\ 2712}#
- #{w\ 2714}#
- #{s\ 2715}#
- #{mod\ 2716}#)
- (#{extend-env\ 368}#
- #{names\ 2742}#
+ #{e\ 19647}#
+ (#{source-wrap\ 17386}#
+ #{id\ 19681}#
+ #{w\ 19649}#
+ #{s\ 19650}#
+ #{mod\ 19651}#))))))
+ #{var\ 19672}#
+ #{names\ 19677}#)
+ (#{chi-body\ 17408}#
+ (cons #{e1\ 19674}# #{e2\ 19675}#)
+ (#{source-wrap\ 17386}#
+ #{e\ 19647}#
+ #{w\ 19649}#
+ #{s\ 19650}#
+ #{mod\ 19651}#)
+ (#{extend-env\ 17303}#
+ #{names\ 19677}#
(begin
- (let ((#{trans-r\ 2757}#
- (#{macros-only-env\ 372}#
- #{r\ 2713}#)))
- (map (lambda (#{x\ 2758}#)
+ (let ((#{trans-r\ 19692}#
+ (#{macros-only-env\ 17307}#
+ #{r\ 19648}#)))
+ (map (lambda (#{x\ 19693}#)
(cons 'macro
-
(#{eval-local-transformer\ 477}#
- (#{chi\ 465}#
- #{x\ 2758}#
- #{trans-r\ 2757}#
- #{w\ 2714}#
- #{mod\ 2716}#)
- #{mod\ 2716}#)))
- #{val\ 2738}#)))
- #{r\ 2713}#)
- #{w\ 2714}#
- #{mod\ 2716}#)))))
- #{tmp\ 2723}#)
- (let ((#{_\ 2763}# #{tmp\ 2722}#))
+
(#{eval-local-transformer\ 17412}#
+ (#{chi\ 17400}#
+ #{x\ 19693}#
+ #{trans-r\ 19692}#
+ #{w\ 19649}#
+ #{mod\ 19651}#)
+ #{mod\ 19651}#)))
+ #{val\ 19673}#)))
+ #{r\ 19648}#)
+ #{w\ 19649}#
+ #{mod\ 19651}#)))))
+ #{tmp\ 19658}#)
+ (let ((#{_\ 19698}# #{tmp\ 19657}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 451}#
- #{e\ 2712}#
- #{w\ 2714}#
- #{s\ 2715}#
- #{mod\ 2716}#))))))))
- (#{global-extend\ 376}#
+ (#{source-wrap\ 17386}#
+ #{e\ 19647}#
+ #{w\ 19649}#
+ #{s\ 19650}#
+ #{mod\ 19651}#))))))))
+ (#{global-extend\ 17311}#
'core
'quote
- (lambda (#{e\ 2764}#
- #{r\ 2765}#
- #{w\ 2766}#
- #{s\ 2767}#
- #{mod\ 2768}#)
- (let ((#{tmp\ 2774}# #{e\ 2764}#))
- (let ((#{tmp\ 2775}#
- ($sc-dispatch #{tmp\ 2774}# (quote (_ any)))))
- (if #{tmp\ 2775}#
+ (lambda (#{e\ 19699}#
+ #{r\ 19700}#
+ #{w\ 19701}#
+ #{s\ 19702}#
+ #{mod\ 19703}#)
+ (let ((#{tmp\ 19709}# #{e\ 19699}#))
+ (let ((#{tmp\ 19710}#
+ ($sc-dispatch #{tmp\ 19709}# (quote (_ any)))))
+ (if #{tmp\ 19710}#
(@apply
- (lambda (#{e\ 2777}#)
- (#{build-data\ 330}#
- #{s\ 2767}#
- (#{strip\ 491}# #{e\ 2777}# #{w\ 2766}#)))
- #{tmp\ 2775}#)
- (let ((#{_\ 2779}# #{tmp\ 2774}#))
+ (lambda (#{e\ 19712}#)
+ (#{build-data\ 17265}#
+ #{s\ 19702}#
+ (#{strip\ 17426}# #{e\ 19712}# #{w\ 19701}#)))
+ #{tmp\ 19710}#)
+ (let ((#{_\ 19714}# #{tmp\ 19709}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 451}#
- #{e\ 2764}#
- #{w\ 2766}#
- #{s\ 2767}#
- #{mod\ 2768}#))))))))
- (#{global-extend\ 376}#
+ (#{source-wrap\ 17386}#
+ #{e\ 19699}#
+ #{w\ 19701}#
+ #{s\ 19702}#
+ #{mod\ 19703}#))))))))
+ (#{global-extend\ 17311}#
'core
'syntax
(letrec*
- ((#{gen-syntax\ 2781}#
- (lambda (#{src\ 2796}#
- #{e\ 2797}#
- #{r\ 2798}#
- #{maps\ 2799}#
- #{ellipsis?\ 2800}#
- #{mod\ 2801}#)
- (if (#{id?\ 380}# #{e\ 2797}#)
+ ((#{gen-syntax\ 19716}#
+ (lambda (#{src\ 19731}#
+ #{e\ 19732}#
+ #{r\ 19733}#
+ #{maps\ 19734}#
+ #{ellipsis?\ 19735}#
+ #{mod\ 19736}#)
+ (if (#{id?\ 17315}# #{e\ 19732}#)
(begin
- (let ((#{label\ 2809}#
- (#{id-var-name\ 437}#
- #{e\ 2797}#
+ (let ((#{label\ 19744}#
+ (#{id-var-name\ 17372}#
+ #{e\ 19732}#
'(()))))
(begin
- (let ((#{b\ 2812}#
- (#{lookup\ 374}#
- #{label\ 2809}#
- #{r\ 2798}#
- #{mod\ 2801}#)))
- (if (eq? (#{binding-type\ 363}# #{b\ 2812}#)
+ (let ((#{b\ 19747}#
+ (#{lookup\ 17309}#
+ #{label\ 19744}#
+ #{r\ 19733}#
+ #{mod\ 19736}#)))
+ (if (eq? (#{binding-type\ 17298}# #{b\ 19747}#)
'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev\ 2814}#
- (#{binding-value\ 365}#
- #{b\ 2812}#)))
- (#{gen-ref\ 2783}#
- #{src\ 2796}#
- (car #{var.lev\ 2814}#)
- (cdr #{var.lev\ 2814}#)
- #{maps\ 2799}#))))
- (lambda (#{var\ 2815}# #{maps\ 2816}#)
+ (let ((#{var.lev\ 19749}#
+ (#{binding-value\ 17300}#
+ #{b\ 19747}#)))
+ (#{gen-ref\ 19718}#
+ #{src\ 19731}#
+ (car #{var.lev\ 19749}#)
+ (cdr #{var.lev\ 19749}#)
+ #{maps\ 19734}#))))
+ (lambda (#{var\ 19750}# #{maps\ 19751}#)
(values
- (list (quote ref) #{var\ 2815}#)
- #{maps\ 2816}#)))
- (if (#{ellipsis?\ 2800}# #{e\ 2797}#)
+ (list (quote ref) #{var\ 19750}#)
+ #{maps\ 19751}#)))
+ (if (#{ellipsis?\ 19735}# #{e\ 19732}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2796}#)
+ #{src\ 19731}#)
(values
- (list (quote quote) #{e\ 2797}#)
- #{maps\ 2799}#)))))))
- (let ((#{tmp\ 2821}# #{e\ 2797}#))
- (let ((#{tmp\ 2822}#
+ (list (quote quote) #{e\ 19732}#)
+ #{maps\ 19734}#)))))))
+ (let ((#{tmp\ 19756}# #{e\ 19732}#))
+ (let ((#{tmp\ 19757}#
($sc-dispatch
- #{tmp\ 2821}#
+ #{tmp\ 19756}#
'(any any))))
- (if (if #{tmp\ 2822}#
+ (if (if #{tmp\ 19757}#
(@apply
- (lambda (#{dots\ 2825}# #{e\ 2826}#)
- (#{ellipsis?\ 2800}# #{dots\ 2825}#))
- #{tmp\ 2822}#)
+ (lambda (#{dots\ 19760}# #{e\ 19761}#)
+ (#{ellipsis?\ 19735}# #{dots\ 19760}#))
+ #{tmp\ 19757}#)
#f)
(@apply
- (lambda (#{dots\ 2829}# #{e\ 2830}#)
- (#{gen-syntax\ 2781}#
- #{src\ 2796}#
- #{e\ 2830}#
- #{r\ 2798}#
- #{maps\ 2799}#
- (lambda (#{x\ 2831}#) #f)
- #{mod\ 2801}#))
- #{tmp\ 2822}#)
- (let ((#{tmp\ 2833}#
+ (lambda (#{dots\ 19764}# #{e\ 19765}#)
+ (#{gen-syntax\ 19716}#
+ #{src\ 19731}#
+ #{e\ 19765}#
+ #{r\ 19733}#
+ #{maps\ 19734}#
+ (lambda (#{x\ 19766}#) #f)
+ #{mod\ 19736}#))
+ #{tmp\ 19757}#)
+ (let ((#{tmp\ 19768}#
($sc-dispatch
- #{tmp\ 2821}#
+ #{tmp\ 19756}#
'(any any . any))))
- (if (if #{tmp\ 2833}#
+ (if (if #{tmp\ 19768}#
(@apply
- (lambda (#{x\ 2837}#
- #{dots\ 2838}#
- #{y\ 2839}#)
- (#{ellipsis?\ 2800}# #{dots\ 2838}#))
- #{tmp\ 2833}#)
+ (lambda (#{x\ 19772}#
+ #{dots\ 19773}#
+ #{y\ 19774}#)
+ (#{ellipsis?\ 19735}#
+ #{dots\ 19773}#))
+ #{tmp\ 19768}#)
#f)
(@apply
- (lambda (#{x\ 2843}#
- #{dots\ 2844}#
- #{y\ 2845}#)
+ (lambda (#{x\ 19778}#
+ #{dots\ 19779}#
+ #{y\ 19780}#)
(letrec*
- ((#{f\ 2849}#
- (lambda (#{y\ 2850}# #{k\ 2851}#)
- (let ((#{tmp\ 2858}# #{y\ 2850}#))
- (let ((#{tmp\ 2859}#
+ ((#{f\ 19784}#
+ (lambda (#{y\ 19785}# #{k\ 19786}#)
+ (let ((#{tmp\ 19793}#
+ #{y\ 19785}#))
+ (let ((#{tmp\ 19794}#
($sc-dispatch
- #{tmp\ 2858}#
+ #{tmp\ 19793}#
'(any . any))))
- (if (if #{tmp\ 2859}#
+ (if (if #{tmp\ 19794}#
(@apply
- (lambda (#{dots\ 2862}#
- #{y\ 2863}#)
- (#{ellipsis?\ 2800}#
- #{dots\ 2862}#))
- #{tmp\ 2859}#)
+ (lambda (#{dots\
19797}#
+ #{y\ 19798}#)
+ (#{ellipsis?\ 19735}#
+ #{dots\ 19797}#))
+ #{tmp\ 19794}#)
#f)
(@apply
- (lambda (#{dots\ 2866}#
- #{y\ 2867}#)
- (#{f\ 2849}#
- #{y\ 2867}#
- (lambda (#{maps\
2868}#)
+ (lambda (#{dots\ 19801}#
+ #{y\ 19802}#)
+ (#{f\ 19784}#
+ #{y\ 19802}#
+ (lambda (#{maps\
19803}#)
(call-with-values
(lambda ()
- (#{k\ 2851}#
+ (#{k\ 19786}#
(cons '()
- #{maps\
2868}#)))
- (lambda (#{x\
2870}#
- #{maps\
2871}#)
- (if (null? (car
#{maps\ 2871}#))
+ #{maps\
19803}#)))
+ (lambda (#{x\
19805}#
+ #{maps\
19806}#)
+ (if (null? (car
#{maps\ 19806}#))
(syntax-violation
'syntax
"extra
ellipsis"
- #{src\
2796}#)
+ #{src\
19731}#)
(values
-
(#{gen-mappend\ 2785}#
- #{x\ 2870}#
- (car
#{maps\ 2871}#))
- (cdr #{maps\
2871}#))))))))
- #{tmp\ 2859}#)
- (let ((#{_\ 2875}#
- #{tmp\ 2858}#))
+
(#{gen-mappend\ 19720}#
+ #{x\
19805}#
+ (car
#{maps\ 19806}#))
+ (cdr #{maps\
19806}#))))))))
+ #{tmp\ 19794}#)
+ (let ((#{_\ 19810}#
+ #{tmp\ 19793}#))
(call-with-values
(lambda ()
- (#{gen-syntax\ 2781}#
- #{src\ 2796}#
- #{y\ 2850}#
- #{r\ 2798}#
- #{maps\ 2799}#
- #{ellipsis?\ 2800}#
- #{mod\ 2801}#))
- (lambda (#{y\ 2876}#
- #{maps\ 2877}#)
+ (#{gen-syntax\ 19716}#
+ #{src\ 19731}#
+ #{y\ 19785}#
+ #{r\ 19733}#
+ #{maps\ 19734}#
+ #{ellipsis?\ 19735}#
+ #{mod\ 19736}#))
+ (lambda (#{y\ 19811}#
+ #{maps\ 19812}#)
(call-with-values
(lambda ()
- (#{k\ 2851}#
- #{maps\ 2877}#))
- (lambda (#{x\ 2880}#
- #{maps\
2881}#)
+ (#{k\ 19786}#
+ #{maps\ 19812}#))
+ (lambda (#{x\ 19815}#
+ #{maps\
19816}#)
(values
- (#{gen-append\
2791}#
- #{x\ 2880}#
- #{y\ 2876}#)
- #{maps\
2881}#))))))))))))
+ (#{gen-append\
19726}#
+ #{x\ 19815}#
+ #{y\ 19811}#)
+ #{maps\
19816}#))))))))))))
(begin
- (#{f\ 2849}#
- #{y\ 2845}#
- (lambda (#{maps\ 2852}#)
+ (#{f\ 19784}#
+ #{y\ 19780}#
+ (lambda (#{maps\ 19787}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2781}#
- #{src\ 2796}#
- #{x\ 2843}#
- #{r\ 2798}#
+ (#{gen-syntax\ 19716}#
+ #{src\ 19731}#
+ #{x\ 19778}#
+ #{r\ 19733}#
(cons '()
- #{maps\ 2852}#)
- #{ellipsis?\ 2800}#
- #{mod\ 2801}#))
- (lambda (#{x\ 2854}#
- #{maps\ 2855}#)
- (if (null? (car #{maps\
2855}#))
+ #{maps\ 19787}#)
+ #{ellipsis?\ 19735}#
+ #{mod\ 19736}#))
+ (lambda (#{x\ 19789}#
+ #{maps\ 19790}#)
+ (if (null? (car #{maps\
19790}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2796}#)
+ #{src\ 19731}#)
(values
- (#{gen-map\ 2787}#
- #{x\ 2854}#
- (car #{maps\ 2855}#))
- (cdr #{maps\
2855}#))))))))))
- #{tmp\ 2833}#)
- (let ((#{tmp\ 2884}#
+ (#{gen-map\ 19722}#
+ #{x\ 19789}#
+ (car #{maps\ 19790}#))
+ (cdr #{maps\
19790}#))))))))))
+ #{tmp\ 19768}#)
+ (let ((#{tmp\ 19819}#
($sc-dispatch
- #{tmp\ 2821}#
+ #{tmp\ 19756}#
'(any . any))))
- (if #{tmp\ 2884}#
+ (if #{tmp\ 19819}#
(@apply
- (lambda (#{x\ 2887}# #{y\ 2888}#)
+ (lambda (#{x\ 19822}# #{y\ 19823}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2781}#
- #{src\ 2796}#
- #{x\ 2887}#
- #{r\ 2798}#
- #{maps\ 2799}#
- #{ellipsis?\ 2800}#
- #{mod\ 2801}#))
- (lambda (#{x\ 2889}# #{maps\ 2890}#)
+ (#{gen-syntax\ 19716}#
+ #{src\ 19731}#
+ #{x\ 19822}#
+ #{r\ 19733}#
+ #{maps\ 19734}#
+ #{ellipsis?\ 19735}#
+ #{mod\ 19736}#))
+ (lambda (#{x\ 19824}#
+ #{maps\ 19825}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2781}#
- #{src\ 2796}#
- #{y\ 2888}#
- #{r\ 2798}#
- #{maps\ 2890}#
- #{ellipsis?\ 2800}#
- #{mod\ 2801}#))
- (lambda (#{y\ 2893}#
- #{maps\ 2894}#)
+ (#{gen-syntax\ 19716}#
+ #{src\ 19731}#
+ #{y\ 19823}#
+ #{r\ 19733}#
+ #{maps\ 19825}#
+ #{ellipsis?\ 19735}#
+ #{mod\ 19736}#))
+ (lambda (#{y\ 19828}#
+ #{maps\ 19829}#)
(values
- (#{gen-cons\ 2789}#
- #{x\ 2889}#
- #{y\ 2893}#)
- #{maps\ 2894}#))))))
- #{tmp\ 2884}#)
- (let ((#{tmp\ 2897}#
+ (#{gen-cons\ 19724}#
+ #{x\ 19824}#
+ #{y\ 19828}#)
+ #{maps\ 19829}#))))))
+ #{tmp\ 19819}#)
+ (let ((#{tmp\ 19832}#
($sc-dispatch
- #{tmp\ 2821}#
+ #{tmp\ 19756}#
'#(vector (any . each-any)))))
- (if #{tmp\ 2897}#
+ (if #{tmp\ 19832}#
(@apply
- (lambda (#{e1\ 2900}# #{e2\ 2901}#)
+ (lambda (#{e1\ 19835}#
+ #{e2\ 19836}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2781}#
- #{src\ 2796}#
- (cons #{e1\ 2900}#
- #{e2\ 2901}#)
- #{r\ 2798}#
- #{maps\ 2799}#
- #{ellipsis?\ 2800}#
- #{mod\ 2801}#))
- (lambda (#{e\ 2903}#
- #{maps\ 2904}#)
+ (#{gen-syntax\ 19716}#
+ #{src\ 19731}#
+ (cons #{e1\ 19835}#
+ #{e2\ 19836}#)
+ #{r\ 19733}#
+ #{maps\ 19734}#
+ #{ellipsis?\ 19735}#
+ #{mod\ 19736}#))
+ (lambda (#{e\ 19838}#
+ #{maps\ 19839}#)
(values
- (#{gen-vector\ 2793}#
- #{e\ 2903}#)
- #{maps\ 2904}#))))
- #{tmp\ 2897}#)
- (let ((#{_\ 2908}# #{tmp\ 2821}#))
+ (#{gen-vector\ 19728}#
+ #{e\ 19838}#)
+ #{maps\ 19839}#))))
+ #{tmp\ 19832}#)
+ (let ((#{_\ 19843}# #{tmp\ 19756}#))
(values
- (list (quote quote) #{e\ 2797}#)
- #{maps\ 2799}#))))))))))))))
- (#{gen-ref\ 2783}#
- (lambda (#{src\ 2910}#
- #{var\ 2911}#
- #{level\ 2912}#
- #{maps\ 2913}#)
- (if (#{fx=\ 285}# #{level\ 2912}# 0)
- (values #{var\ 2911}# #{maps\ 2913}#)
- (if (null? #{maps\ 2913}#)
+ (list (quote quote) #{e\ 19732}#)
+ #{maps\ 19734}#))))))))))))))
+ (#{gen-ref\ 19718}#
+ (lambda (#{src\ 19845}#
+ #{var\ 19846}#
+ #{level\ 19847}#
+ #{maps\ 19848}#)
+ (if (#{fx=\ 17220}# #{level\ 19847}# 0)
+ (values #{var\ 19846}# #{maps\ 19848}#)
+ (if (null? #{maps\ 19848}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2910}#)
+ #{src\ 19845}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2783}#
- #{src\ 2910}#
- #{var\ 2911}#
- (#{fx-\ 283}# #{level\ 2912}# 1)
- (cdr #{maps\ 2913}#)))
- (lambda (#{outer-var\ 2918}# #{outer-maps\ 2919}#)
+ (#{gen-ref\ 19718}#
+ #{src\ 19845}#
+ #{var\ 19846}#
+ (#{fx-\ 17218}# #{level\ 19847}# 1)
+ (cdr #{maps\ 19848}#)))
+ (lambda (#{outer-var\ 19853}# #{outer-maps\ 19854}#)
(begin
- (let ((#{b\ 2923}#
- (assq #{outer-var\ 2918}#
- (car #{maps\ 2913}#))))
- (if #{b\ 2923}#
- (values (cdr #{b\ 2923}#) #{maps\ 2913}#)
+ (let ((#{b\ 19858}#
+ (assq #{outer-var\ 19853}#
+ (car #{maps\ 19848}#))))
+ (if #{b\ 19858}#
+ (values (cdr #{b\ 19858}#) #{maps\ 19848}#)
(begin
- (let ((#{inner-var\ 2925}#
- (#{gen-var\ 493}# (quote tmp))))
+ (let ((#{inner-var\ 19860}#
+ (#{gen-var\ 17428}# (quote tmp))))
(values
- #{inner-var\ 2925}#
- (cons (cons (cons #{outer-var\ 2918}#
- #{inner-var\ 2925}#)
- (car #{maps\ 2913}#))
- #{outer-maps\
2919}#)))))))))))))
- (#{gen-mappend\ 2785}#
- (lambda (#{e\ 2926}# #{map-env\ 2927}#)
+ #{inner-var\ 19860}#
+ (cons (cons (cons #{outer-var\ 19853}#
+ #{inner-var\
19860}#)
+ (car #{maps\ 19848}#))
+ #{outer-maps\
19854}#)))))))))))))
+ (#{gen-mappend\ 19720}#
+ (lambda (#{e\ 19861}# #{map-env\ 19862}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2787}# #{e\ 2926}# #{map-env\ 2927}#))))
- (#{gen-map\ 2787}#
- (lambda (#{e\ 2931}# #{map-env\ 2932}#)
+ (#{gen-map\ 19722}#
+ #{e\ 19861}#
+ #{map-env\ 19862}#))))
+ (#{gen-map\ 19722}#
+ (lambda (#{e\ 19866}# #{map-env\ 19867}#)
(begin
- (let ((#{formals\ 2937}# (map cdr #{map-env\ 2932}#))
- (#{actuals\ 2938}#
- (map (lambda (#{x\ 2939}#)
- (list (quote ref) (car #{x\ 2939}#)))
- #{map-env\ 2932}#)))
- (if (eq? (car #{e\ 2931}#) (quote ref))
- (car #{actuals\ 2938}#)
+ (let ((#{formals\ 19872}# (map cdr #{map-env\ 19867}#))
+ (#{actuals\ 19873}#
+ (map (lambda (#{x\ 19874}#)
+ (list (quote ref) (car #{x\ 19874}#)))
+ #{map-env\ 19867}#)))
+ (if (eq? (car #{e\ 19866}#) (quote ref))
+ (car #{actuals\ 19873}#)
(if (and-map
- (lambda (#{x\ 2946}#)
- (if (eq? (car #{x\ 2946}#) (quote ref))
- (memq (car (cdr #{x\ 2946}#))
- #{formals\ 2937}#)
+ (lambda (#{x\ 19881}#)
+ (if (eq? (car #{x\ 19881}#) (quote ref))
+ (memq (car (cdr #{x\ 19881}#))
+ #{formals\ 19872}#)
#f))
- (cdr #{e\ 2931}#))
+ (cdr #{e\ 19866}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2931}#))
+ (car #{e\ 19866}#))
(map (begin
- (let ((#{r\ 2952}#
+ (let ((#{r\ 19887}#
(map cons
- #{formals\ 2937}#
- #{actuals\
2938}#)))
- (lambda (#{x\ 2953}#)
- (cdr (assq (car (cdr #{x\
2953}#))
- #{r\ 2952}#)))))
- (cdr #{e\ 2931}#))))
+ #{formals\ 19872}#
+ #{actuals\
19873}#)))
+ (lambda (#{x\ 19888}#)
+ (cdr (assq (car (cdr #{x\
19888}#))
+ #{r\
19887}#)))))
+ (cdr #{e\ 19866}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2937}#
- #{e\ 2931}#)
- #{actuals\ 2938}#))))))))
- (#{gen-cons\ 2789}#
- (lambda (#{x\ 2957}# #{y\ 2958}#)
+ #{formals\ 19872}#
+ #{e\ 19866}#)
+ #{actuals\ 19873}#))))))))
+ (#{gen-cons\ 19724}#
+ (lambda (#{x\ 19892}# #{y\ 19893}#)
(begin
- (let ((#{atom-key\ 2963}# (car #{y\ 2958}#)))
- (if (eqv? #{atom-key\ 2963}# (quote quote))
- (if (eq? (car #{x\ 2957}#) (quote quote))
+ (let ((#{atom-key\ 19898}# (car #{y\ 19893}#)))
+ (if (eqv? #{atom-key\ 19898}# (quote quote))
+ (if (eq? (car #{x\ 19892}#) (quote quote))
(list 'quote
- (cons (car (cdr #{x\ 2957}#))
- (car (cdr #{y\ 2958}#))))
- (if (eq? (car (cdr #{y\ 2958}#)) (quote ()))
- (list (quote list) #{x\ 2957}#)
- (list (quote cons) #{x\ 2957}# #{y\ 2958}#)))
- (if (eqv? #{atom-key\ 2963}# (quote list))
+ (cons (car (cdr #{x\ 19892}#))
+ (car (cdr #{y\ 19893}#))))
+ (if (eq? (car (cdr #{y\ 19893}#)) (quote ()))
+ (list (quote list) #{x\ 19892}#)
+ (list (quote cons) #{x\ 19892}# #{y\ 19893}#)))
+ (if (eqv? #{atom-key\ 19898}# (quote list))
(cons 'list
- (cons #{x\ 2957}# (cdr #{y\ 2958}#)))
- (list (quote cons) #{x\ 2957}# #{y\ 2958}#)))))))
- (#{gen-append\ 2791}#
- (lambda (#{x\ 2972}# #{y\ 2973}#)
- (if (equal? #{y\ 2973}# (quote (quote ())))
- #{x\ 2972}#
- (list (quote append) #{x\ 2972}# #{y\ 2973}#))))
- (#{gen-vector\ 2793}#
- (lambda (#{x\ 2977}#)
- (if (eq? (car #{x\ 2977}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2977}#))
- (if (eq? (car #{x\ 2977}#) (quote quote))
+ (cons #{x\ 19892}# (cdr #{y\ 19893}#)))
+ (list 'cons
+ #{x\ 19892}#
+ #{y\ 19893}#)))))))
+ (#{gen-append\ 19726}#
+ (lambda (#{x\ 19907}# #{y\ 19908}#)
+ (if (equal? #{y\ 19908}# (quote (quote ())))
+ #{x\ 19907}#
+ (list (quote append) #{x\ 19907}# #{y\ 19908}#))))
+ (#{gen-vector\ 19728}#
+ (lambda (#{x\ 19912}#)
+ (if (eq? (car #{x\ 19912}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 19912}#))
+ (if (eq? (car #{x\ 19912}#) (quote quote))
(list 'quote
- (list->vector (car (cdr #{x\ 2977}#))))
- (list (quote list->vector) #{x\ 2977}#)))))
- (#{regen\ 2795}#
- (lambda (#{x\ 2987}#)
+ (list->vector (car (cdr #{x\ 19912}#))))
+ (list (quote list->vector) #{x\ 19912}#)))))
+ (#{regen\ 19730}#
+ (lambda (#{x\ 19922}#)
(begin
- (let ((#{atom-key\ 2991}# (car #{x\ 2987}#)))
- (if (eqv? #{atom-key\ 2991}# (quote ref))
- (#{build-lexical-reference\ 310}#
+ (let ((#{atom-key\ 19926}# (car #{x\ 19922}#)))
+ (if (eqv? #{atom-key\ 19926}# (quote ref))
+ (#{build-lexical-reference\ 17245}#
'value
#f
- (car (cdr #{x\ 2987}#))
- (car (cdr #{x\ 2987}#)))
- (if (eqv? #{atom-key\ 2991}# (quote primitive))
- (#{build-primref\ 328}#
+ (car (cdr #{x\ 19922}#))
+ (car (cdr #{x\ 19922}#)))
+ (if (eqv? #{atom-key\ 19926}# (quote primitive))
+ (#{build-primref\ 17263}#
#f
- (car (cdr #{x\ 2987}#)))
- (if (eqv? #{atom-key\ 2991}# (quote quote))
- (#{build-data\ 330}# #f (car (cdr #{x\ 2987}#)))
- (if (eqv? #{atom-key\ 2991}# (quote lambda))
- (if (list? (car (cdr #{x\ 2987}#)))
- (#{build-simple-lambda\ 322}#
+ (car (cdr #{x\ 19922}#)))
+ (if (eqv? #{atom-key\ 19926}# (quote quote))
+ (#{build-data\ 17265}#
+ #f
+ (car (cdr #{x\ 19922}#)))
+ (if (eqv? #{atom-key\ 19926}# (quote lambda))
+ (if (list? (car (cdr #{x\ 19922}#)))
+ (#{build-simple-lambda\ 17257}#
#f
- (car (cdr #{x\ 2987}#))
+ (car (cdr #{x\ 19922}#))
#f
- (car (cdr #{x\ 2987}#))
+ (car (cdr #{x\ 19922}#))
'()
- (#{regen\ 2795}#
- (car (cdr (cdr #{x\ 2987}#)))))
- (error "how did we get here" #{x\ 2987}#))
- (#{build-application\ 304}#
+ (#{regen\ 19730}#
+ (car (cdr (cdr #{x\ 19922}#)))))
+ (error "how did we get here" #{x\ 19922}#))
+ (#{build-application\ 17239}#
#f
- (#{build-primref\ 328}#
+ (#{build-primref\ 17263}#
#f
- (car #{x\ 2987}#))
- (map #{regen\ 2795}#
- (cdr #{x\ 2987}#))))))))))))
+ (car #{x\ 19922}#))
+ (map #{regen\ 19730}#
+ (cdr #{x\ 19922}#))))))))))))
(begin
- (lambda (#{e\ 3003}#
- #{r\ 3004}#
- #{w\ 3005}#
- #{s\ 3006}#
- #{mod\ 3007}#)
+ (lambda (#{e\ 19938}#
+ #{r\ 19939}#
+ #{w\ 19940}#
+ #{s\ 19941}#
+ #{mod\ 19942}#)
(begin
- (let ((#{e\ 3014}#
- (#{source-wrap\ 451}#
- #{e\ 3003}#
- #{w\ 3005}#
- #{s\ 3006}#
- #{mod\ 3007}#)))
- (let ((#{tmp\ 3015}# #{e\ 3014}#))
- (let ((#{tmp\ 3016}#
+ (let ((#{e\ 19949}#
+ (#{source-wrap\ 17386}#
+ #{e\ 19938}#
+ #{w\ 19940}#
+ #{s\ 19941}#
+ #{mod\ 19942}#)))
+ (let ((#{tmp\ 19950}# #{e\ 19949}#))
+ (let ((#{tmp\ 19951}#
($sc-dispatch
- #{tmp\ 3015}#
+ #{tmp\ 19950}#
'(_ any))))
- (if #{tmp\ 3016}#
+ (if #{tmp\ 19951}#
(@apply
- (lambda (#{x\ 3018}#)
+ (lambda (#{x\ 19953}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2781}#
- #{e\ 3014}#
- #{x\ 3018}#
- #{r\ 3004}#
+ (#{gen-syntax\ 19716}#
+ #{e\ 19949}#
+ #{x\ 19953}#
+ #{r\ 19939}#
'()
- #{ellipsis?\ 481}#
- #{mod\ 3007}#))
- (lambda (#{e\ 3019}# #{maps\ 3020}#)
- (#{regen\ 2795}# #{e\ 3019}#))))
- #{tmp\ 3016}#)
- (let ((#{_\ 3024}# #{tmp\ 3015}#))
+ #{ellipsis?\ 17416}#
+ #{mod\ 19942}#))
+ (lambda (#{e\ 19954}# #{maps\ 19955}#)
+ (#{regen\ 19730}# #{e\ 19954}#))))
+ #{tmp\ 19951}#)
+ (let ((#{_\ 19959}# #{tmp\ 19950}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3014}#)))))))))))
- (#{global-extend\ 376}#
+ #{e\ 19949}#)))))))))))
+ (#{global-extend\ 17311}#
'core
'lambda
- (lambda (#{e\ 3025}#
- #{r\ 3026}#
- #{w\ 3027}#
- #{s\ 3028}#
- #{mod\ 3029}#)
- (let ((#{tmp\ 3035}# #{e\ 3025}#))
- (let ((#{tmp\ 3036}#
+ (lambda (#{e\ 19960}#
+ #{r\ 19961}#
+ #{w\ 19962}#
+ #{s\ 19963}#
+ #{mod\ 19964}#)
+ (let ((#{tmp\ 19970}# #{e\ 19960}#))
+ (let ((#{tmp\ 19971}#
($sc-dispatch
- #{tmp\ 3035}#
+ #{tmp\ 19970}#
'(_ any any . each-any))))
- (if #{tmp\ 3036}#
+ (if #{tmp\ 19971}#
(@apply
- (lambda (#{args\ 3040}# #{e1\ 3041}# #{e2\ 3042}#)
+ (lambda (#{args\ 19975}# #{e1\ 19976}# #{e2\ 19977}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 483}# #{args\ 3040}#))
- (lambda (#{req\ 3043}#
- #{opt\ 3044}#
- #{rest\ 3045}#
- #{kw\ 3046}#)
+ (#{lambda-formals\ 17418}# #{args\ 19975}#))
+ (lambda (#{req\ 19978}#
+ #{opt\ 19979}#
+ #{rest\ 19980}#
+ #{kw\ 19981}#)
(letrec*
- ((#{lp\ 3054}#
- (lambda (#{body\ 3055}# #{meta\ 3056}#)
- (let ((#{tmp\ 3058}# #{body\ 3055}#))
- (let ((#{tmp\ 3059}#
+ ((#{lp\ 19989}#
+ (lambda (#{body\ 19990}# #{meta\ 19991}#)
+ (let ((#{tmp\ 19993}# #{body\ 19990}#))
+ (let ((#{tmp\ 19994}#
($sc-dispatch
- #{tmp\ 3058}#
+ #{tmp\ 19993}#
'(any any . each-any))))
- (if (if #{tmp\ 3059}#
+ (if (if #{tmp\ 19994}#
(@apply
- (lambda (#{docstring\ 3063}#
- #{e1\ 3064}#
- #{e2\ 3065}#)
+ (lambda (#{docstring\ 19998}#
+ #{e1\ 19999}#
+ #{e2\ 20000}#)
(string?
(syntax->datum
- #{docstring\ 3063}#)))
- #{tmp\ 3059}#)
+ #{docstring\ 19998}#)))
+ #{tmp\ 19994}#)
#f)
(@apply
- (lambda (#{docstring\ 3069}#
- #{e1\ 3070}#
- #{e2\ 3071}#)
- (#{lp\ 3054}#
- (cons #{e1\ 3070}#
- #{e2\ 3071}#)
+ (lambda (#{docstring\ 20004}#
+ #{e1\ 20005}#
+ #{e2\ 20006}#)
+ (#{lp\ 19989}#
+ (cons #{e1\ 20005}#
+ #{e2\ 20006}#)
(append
- #{meta\ 3056}#
+ #{meta\ 19991}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
3069}#))))))
- #{tmp\ 3059}#)
- (let ((#{tmp\ 3074}#
+ #{docstring\
20004}#))))))
+ #{tmp\ 19994}#)
+ (let ((#{tmp\ 20009}#
($sc-dispatch
- #{tmp\ 3058}#
+ #{tmp\ 19993}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 3074}#
+ (if #{tmp\ 20009}#
(@apply
- (lambda (#{k\ 3079}#
- #{v\ 3080}#
- #{e1\ 3081}#
- #{e2\ 3082}#)
- (#{lp\ 3054}#
- (cons #{e1\ 3081}#
- #{e2\ 3082}#)
+ (lambda (#{k\ 20014}#
+ #{v\ 20015}#
+ #{e1\ 20016}#
+ #{e2\ 20017}#)
+ (#{lp\ 19989}#
+ (cons #{e1\ 20016}#
+ #{e2\ 20017}#)
(append
- #{meta\ 3056}#
+ #{meta\ 19991}#
(syntax->datum
(map cons
- #{k\ 3079}#
- #{v\ 3080}#)))))
- #{tmp\ 3074}#)
- (let ((#{_\ 3087}#
- #{tmp\ 3058}#))
- (#{chi-simple-lambda\ 485}#
- #{e\ 3025}#
- #{r\ 3026}#
- #{w\ 3027}#
- #{s\ 3028}#
- #{mod\ 3029}#
- #{req\ 3043}#
- #{rest\ 3045}#
- #{meta\ 3056}#
- #{body\ 3055}#))))))))))
+ #{k\ 20014}#
+ #{v\ 20015}#)))))
+ #{tmp\ 20009}#)
+ (let ((#{_\ 20022}#
+ #{tmp\ 19993}#))
+ (#{chi-simple-lambda\ 17420}#
+ #{e\ 19960}#
+ #{r\ 19961}#
+ #{w\ 19962}#
+ #{s\ 19963}#
+ #{mod\ 19964}#
+ #{req\ 19978}#
+ #{rest\ 19980}#
+ #{meta\ 19991}#
+ #{body\ 19990}#))))))))))
(begin
- (#{lp\ 3054}#
- (cons #{e1\ 3041}# #{e2\ 3042}#)
+ (#{lp\ 19989}#
+ (cons #{e1\ 19976}# #{e2\ 19977}#)
'()))))))
- #{tmp\ 3036}#)
- (let ((#{_\ 3089}# #{tmp\ 3035}#))
+ #{tmp\ 19971}#)
+ (let ((#{_\ 20024}# #{tmp\ 19970}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3025}#)))))))
- (#{global-extend\ 376}#
+ #{e\ 19960}#)))))))
+ (#{global-extend\ 17311}#
'core
'lambda*
- (lambda (#{e\ 3090}#
- #{r\ 3091}#
- #{w\ 3092}#
- #{s\ 3093}#
- #{mod\ 3094}#)
- (let ((#{tmp\ 3100}# #{e\ 3090}#))
- (let ((#{tmp\ 3101}#
+ (lambda (#{e\ 20025}#
+ #{r\ 20026}#
+ #{w\ 20027}#
+ #{s\ 20028}#
+ #{mod\ 20029}#)
+ (let ((#{tmp\ 20035}# #{e\ 20025}#))
+ (let ((#{tmp\ 20036}#
($sc-dispatch
- #{tmp\ 3100}#
+ #{tmp\ 20035}#
'(_ any any . each-any))))
- (if #{tmp\ 3101}#
+ (if #{tmp\ 20036}#
(@apply
- (lambda (#{args\ 3105}# #{e1\ 3106}# #{e2\ 3107}#)
+ (lambda (#{args\ 20040}# #{e1\ 20041}# #{e2\ 20042}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 489}#
- #{e\ 3090}#
- #{r\ 3091}#
- #{w\ 3092}#
- #{s\ 3093}#
- #{mod\ 3094}#
- #{lambda*-formals\ 487}#
- (list (cons #{args\ 3105}#
- (cons #{e1\ 3106}#
- #{e2\ 3107}#)))))
- (lambda (#{meta\ 3109}# #{lcase\ 3110}#)
- (#{build-case-lambda\ 324}#
- #{s\ 3093}#
- #{meta\ 3109}#
- #{lcase\ 3110}#))))
- #{tmp\ 3101}#)
- (let ((#{_\ 3114}# #{tmp\ 3100}#))
+ (#{chi-lambda-case\ 17424}#
+ #{e\ 20025}#
+ #{r\ 20026}#
+ #{w\ 20027}#
+ #{s\ 20028}#
+ #{mod\ 20029}#
+ #{lambda*-formals\ 17422}#
+ (list (cons #{args\ 20040}#
+ (cons #{e1\ 20041}#
+ #{e2\ 20042}#)))))
+ (lambda (#{meta\ 20044}# #{lcase\ 20045}#)
+ (#{build-case-lambda\ 17259}#
+ #{s\ 20028}#
+ #{meta\ 20044}#
+ #{lcase\ 20045}#))))
+ #{tmp\ 20036}#)
+ (let ((#{_\ 20049}# #{tmp\ 20035}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3090}#)))))))
- (#{global-extend\ 376}#
+ #{e\ 20025}#)))))))
+ (#{global-extend\ 17311}#
'core
'case-lambda
- (lambda (#{e\ 3115}#
- #{r\ 3116}#
- #{w\ 3117}#
- #{s\ 3118}#
- #{mod\ 3119}#)
- (let ((#{tmp\ 3125}# #{e\ 3115}#))
- (let ((#{tmp\ 3126}#
+ (lambda (#{e\ 20050}#
+ #{r\ 20051}#
+ #{w\ 20052}#
+ #{s\ 20053}#
+ #{mod\ 20054}#)
+ (let ((#{tmp\ 20060}# #{e\ 20050}#))
+ (let ((#{tmp\ 20061}#
($sc-dispatch
- #{tmp\ 3125}#
+ #{tmp\ 20060}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3126}#
+ (if #{tmp\ 20061}#
(@apply
- (lambda (#{args\ 3133}#
- #{e1\ 3134}#
- #{e2\ 3135}#
- #{args*\ 3136}#
- #{e1*\ 3137}#
- #{e2*\ 3138}#)
+ (lambda (#{args\ 20068}#
+ #{e1\ 20069}#
+ #{e2\ 20070}#
+ #{args*\ 20071}#
+ #{e1*\ 20072}#
+ #{e2*\ 20073}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 489}#
- #{e\ 3115}#
- #{r\ 3116}#
- #{w\ 3117}#
- #{s\ 3118}#
- #{mod\ 3119}#
- #{lambda-formals\ 483}#
- (cons (cons #{args\ 3133}#
- (cons #{e1\ 3134}# #{e2\ 3135}#))
- (map (lambda (#{tmp\ 3142}#
- #{tmp\ 3141}#
- #{tmp\ 3140}#)
- (cons #{tmp\ 3140}#
- (cons #{tmp\ 3141}#
- #{tmp\ 3142}#)))
- #{e2*\ 3138}#
- #{e1*\ 3137}#
- #{args*\ 3136}#))))
- (lambda (#{meta\ 3144}# #{lcase\ 3145}#)
- (#{build-case-lambda\ 324}#
- #{s\ 3118}#
- #{meta\ 3144}#
- #{lcase\ 3145}#))))
- #{tmp\ 3126}#)
- (let ((#{_\ 3149}# #{tmp\ 3125}#))
+ (#{chi-lambda-case\ 17424}#
+ #{e\ 20050}#
+ #{r\ 20051}#
+ #{w\ 20052}#
+ #{s\ 20053}#
+ #{mod\ 20054}#
+ #{lambda-formals\ 17418}#
+ (cons (cons #{args\ 20068}#
+ (cons #{e1\ 20069}# #{e2\ 20070}#))
+ (map (lambda (#{tmp\ 20077}#
+ #{tmp\ 20076}#
+ #{tmp\ 20075}#)
+ (cons #{tmp\ 20075}#
+ (cons #{tmp\ 20076}#
+ #{tmp\ 20077}#)))
+ #{e2*\ 20073}#
+ #{e1*\ 20072}#
+ #{args*\ 20071}#))))
+ (lambda (#{meta\ 20079}# #{lcase\ 20080}#)
+ (#{build-case-lambda\ 17259}#
+ #{s\ 20053}#
+ #{meta\ 20079}#
+ #{lcase\ 20080}#))))
+ #{tmp\ 20061}#)
+ (let ((#{_\ 20084}# #{tmp\ 20060}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3115}#)))))))
- (#{global-extend\ 376}#
+ #{e\ 20050}#)))))))
+ (#{global-extend\ 17311}#
'core
'case-lambda*
- (lambda (#{e\ 3150}#
- #{r\ 3151}#
- #{w\ 3152}#
- #{s\ 3153}#
- #{mod\ 3154}#)
- (let ((#{tmp\ 3160}# #{e\ 3150}#))
- (let ((#{tmp\ 3161}#
+ (lambda (#{e\ 20085}#
+ #{r\ 20086}#
+ #{w\ 20087}#
+ #{s\ 20088}#
+ #{mod\ 20089}#)
+ (let ((#{tmp\ 20095}# #{e\ 20085}#))
+ (let ((#{tmp\ 20096}#
($sc-dispatch
- #{tmp\ 3160}#
+ #{tmp\ 20095}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3161}#
+ (if #{tmp\ 20096}#
(@apply
- (lambda (#{args\ 3168}#
- #{e1\ 3169}#
- #{e2\ 3170}#
- #{args*\ 3171}#
- #{e1*\ 3172}#
- #{e2*\ 3173}#)
+ (lambda (#{args\ 20103}#
+ #{e1\ 20104}#
+ #{e2\ 20105}#
+ #{args*\ 20106}#
+ #{e1*\ 20107}#
+ #{e2*\ 20108}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 489}#
- #{e\ 3150}#
- #{r\ 3151}#
- #{w\ 3152}#
- #{s\ 3153}#
- #{mod\ 3154}#
- #{lambda*-formals\ 487}#
- (cons (cons #{args\ 3168}#
- (cons #{e1\ 3169}# #{e2\ 3170}#))
- (map (lambda (#{tmp\ 3177}#
- #{tmp\ 3176}#
- #{tmp\ 3175}#)
- (cons #{tmp\ 3175}#
- (cons #{tmp\ 3176}#
- #{tmp\ 3177}#)))
- #{e2*\ 3173}#
- #{e1*\ 3172}#
- #{args*\ 3171}#))))
- (lambda (#{meta\ 3179}# #{lcase\ 3180}#)
- (#{build-case-lambda\ 324}#
- #{s\ 3153}#
- #{meta\ 3179}#
- #{lcase\ 3180}#))))
- #{tmp\ 3161}#)
- (let ((#{_\ 3184}# #{tmp\ 3160}#))
+ (#{chi-lambda-case\ 17424}#
+ #{e\ 20085}#
+ #{r\ 20086}#
+ #{w\ 20087}#
+ #{s\ 20088}#
+ #{mod\ 20089}#
+ #{lambda*-formals\ 17422}#
+ (cons (cons #{args\ 20103}#
+ (cons #{e1\ 20104}# #{e2\ 20105}#))
+ (map (lambda (#{tmp\ 20112}#
+ #{tmp\ 20111}#
+ #{tmp\ 20110}#)
+ (cons #{tmp\ 20110}#
+ (cons #{tmp\ 20111}#
+ #{tmp\ 20112}#)))
+ #{e2*\ 20108}#
+ #{e1*\ 20107}#
+ #{args*\ 20106}#))))
+ (lambda (#{meta\ 20114}# #{lcase\ 20115}#)
+ (#{build-case-lambda\ 17259}#
+ #{s\ 20088}#
+ #{meta\ 20114}#
+ #{lcase\ 20115}#))))
+ #{tmp\ 20096}#)
+ (let ((#{_\ 20119}# #{tmp\ 20095}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3150}#)))))))
- (#{global-extend\ 376}#
+ #{e\ 20085}#)))))))
+ (#{global-extend\ 17311}#
'core
'let
(letrec*
- ((#{chi-let\ 3186}#
- (lambda (#{e\ 3187}#
- #{r\ 3188}#
- #{w\ 3189}#
- #{s\ 3190}#
- #{mod\ 3191}#
- #{constructor\ 3192}#
- #{ids\ 3193}#
- #{vals\ 3194}#
- #{exps\ 3195}#)
- (if (not (#{valid-bound-ids?\ 443}# #{ids\ 3193}#))
+ ((#{chi-let\ 20121}#
+ (lambda (#{e\ 20122}#
+ #{r\ 20123}#
+ #{w\ 20124}#
+ #{s\ 20125}#
+ #{mod\ 20126}#
+ #{constructor\ 20127}#
+ #{ids\ 20128}#
+ #{vals\ 20129}#
+ #{exps\ 20130}#)
+ (if (not (#{valid-bound-ids?\ 17378}# #{ids\ 20128}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3187}#)
+ #{e\ 20122}#)
(begin
- (let ((#{labels\ 3207}#
- (#{gen-labels\ 398}# #{ids\ 3193}#))
- (#{new-vars\ 3208}#
- (map #{gen-var\ 493}# #{ids\ 3193}#)))
+ (let ((#{labels\ 20142}#
+ (#{gen-labels\ 17333}# #{ids\ 20128}#))
+ (#{new-vars\ 20143}#
+ (map #{gen-var\ 17428}# #{ids\ 20128}#)))
(begin
- (let ((#{nw\ 3211}#
- (#{make-binding-wrap\ 427}#
- #{ids\ 3193}#
- #{labels\ 3207}#
- #{w\ 3189}#))
- (#{nr\ 3212}#
- (#{extend-var-env\ 370}#
- #{labels\ 3207}#
- #{new-vars\ 3208}#
- #{r\ 3188}#)))
- (#{constructor\ 3192}#
- #{s\ 3190}#
- (map syntax->datum #{ids\ 3193}#)
- #{new-vars\ 3208}#
- (map (lambda (#{x\ 3213}#)
- (#{chi\ 465}#
- #{x\ 3213}#
- #{r\ 3188}#
- #{w\ 3189}#
- #{mod\ 3191}#))
- #{vals\ 3194}#)
- (#{chi-body\ 473}#
- #{exps\ 3195}#
- (#{source-wrap\ 451}#
- #{e\ 3187}#
- #{nw\ 3211}#
- #{s\ 3190}#
- #{mod\ 3191}#)
- #{nr\ 3212}#
- #{nw\ 3211}#
- #{mod\ 3191}#))))))))))
+ (let ((#{nw\ 20146}#
+ (#{make-binding-wrap\ 17362}#
+ #{ids\ 20128}#
+ #{labels\ 20142}#
+ #{w\ 20124}#))
+ (#{nr\ 20147}#
+ (#{extend-var-env\ 17305}#
+ #{labels\ 20142}#
+ #{new-vars\ 20143}#
+ #{r\ 20123}#)))
+ (#{constructor\ 20127}#
+ #{s\ 20125}#
+ (map syntax->datum #{ids\ 20128}#)
+ #{new-vars\ 20143}#
+ (map (lambda (#{x\ 20148}#)
+ (#{chi\ 17400}#
+ #{x\ 20148}#
+ #{r\ 20123}#
+ #{w\ 20124}#
+ #{mod\ 20126}#))
+ #{vals\ 20129}#)
+ (#{chi-body\ 17408}#
+ #{exps\ 20130}#
+ (#{source-wrap\ 17386}#
+ #{e\ 20122}#
+ #{nw\ 20146}#
+ #{s\ 20125}#
+ #{mod\ 20126}#)
+ #{nr\ 20147}#
+ #{nw\ 20146}#
+ #{mod\ 20126}#))))))))))
(begin
- (lambda (#{e\ 3215}#
- #{r\ 3216}#
- #{w\ 3217}#
- #{s\ 3218}#
- #{mod\ 3219}#)
- (let ((#{tmp\ 3225}# #{e\ 3215}#))
- (let ((#{tmp\ 3226}#
+ (lambda (#{e\ 20150}#
+ #{r\ 20151}#
+ #{w\ 20152}#
+ #{s\ 20153}#
+ #{mod\ 20154}#)
+ (let ((#{tmp\ 20160}# #{e\ 20150}#))
+ (let ((#{tmp\ 20161}#
($sc-dispatch
- #{tmp\ 3225}#
+ #{tmp\ 20160}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3226}#
+ (if (if #{tmp\ 20161}#
(@apply
- (lambda (#{id\ 3231}#
- #{val\ 3232}#
- #{e1\ 3233}#
- #{e2\ 3234}#)
- (and-map #{id?\ 380}# #{id\ 3231}#))
- #{tmp\ 3226}#)
+ (lambda (#{id\ 20166}#
+ #{val\ 20167}#
+ #{e1\ 20168}#
+ #{e2\ 20169}#)
+ (and-map #{id?\ 17315}# #{id\ 20166}#))
+ #{tmp\ 20161}#)
#f)
(@apply
- (lambda (#{id\ 3240}#
- #{val\ 3241}#
- #{e1\ 3242}#
- #{e2\ 3243}#)
- (#{chi-let\ 3186}#
- #{e\ 3215}#
- #{r\ 3216}#
- #{w\ 3217}#
- #{s\ 3218}#
- #{mod\ 3219}#
- #{build-let\ 334}#
- #{id\ 3240}#
- #{val\ 3241}#
- (cons #{e1\ 3242}# #{e2\ 3243}#)))
- #{tmp\ 3226}#)
- (let ((#{tmp\ 3247}#
+ (lambda (#{id\ 20175}#
+ #{val\ 20176}#
+ #{e1\ 20177}#
+ #{e2\ 20178}#)
+ (#{chi-let\ 20121}#
+ #{e\ 20150}#
+ #{r\ 20151}#
+ #{w\ 20152}#
+ #{s\ 20153}#
+ #{mod\ 20154}#
+ #{build-let\ 17269}#
+ #{id\ 20175}#
+ #{val\ 20176}#
+ (cons #{e1\ 20177}# #{e2\ 20178}#)))
+ #{tmp\ 20161}#)
+ (let ((#{tmp\ 20182}#
($sc-dispatch
- #{tmp\ 3225}#
+ #{tmp\ 20160}#
'(_ any
#(each (any any))
any
.
each-any))))
- (if (if #{tmp\ 3247}#
+ (if (if #{tmp\ 20182}#
(@apply
- (lambda (#{f\ 3253}#
- #{id\ 3254}#
- #{val\ 3255}#
- #{e1\ 3256}#
- #{e2\ 3257}#)
- (if (#{id?\ 380}# #{f\ 3253}#)
- (and-map #{id?\ 380}# #{id\ 3254}#)
+ (lambda (#{f\ 20188}#
+ #{id\ 20189}#
+ #{val\ 20190}#
+ #{e1\ 20191}#
+ #{e2\ 20192}#)
+ (if (#{id?\ 17315}# #{f\ 20188}#)
+ (and-map #{id?\ 17315}# #{id\ 20189}#)
#f))
- #{tmp\ 3247}#)
+ #{tmp\ 20182}#)
#f)
(@apply
- (lambda (#{f\ 3266}#
- #{id\ 3267}#
- #{val\ 3268}#
- #{e1\ 3269}#
- #{e2\ 3270}#)
- (#{chi-let\ 3186}#
- #{e\ 3215}#
- #{r\ 3216}#
- #{w\ 3217}#
- #{s\ 3218}#
- #{mod\ 3219}#
- #{build-named-let\ 336}#
- (cons #{f\ 3266}# #{id\ 3267}#)
- #{val\ 3268}#
- (cons #{e1\ 3269}# #{e2\ 3270}#)))
- #{tmp\ 3247}#)
- (let ((#{_\ 3275}# #{tmp\ 3225}#))
+ (lambda (#{f\ 20201}#
+ #{id\ 20202}#
+ #{val\ 20203}#
+ #{e1\ 20204}#
+ #{e2\ 20205}#)
+ (#{chi-let\ 20121}#
+ #{e\ 20150}#
+ #{r\ 20151}#
+ #{w\ 20152}#
+ #{s\ 20153}#
+ #{mod\ 20154}#
+ #{build-named-let\ 17271}#
+ (cons #{f\ 20201}# #{id\ 20202}#)
+ #{val\ 20203}#
+ (cons #{e1\ 20204}# #{e2\ 20205}#)))
+ #{tmp\ 20182}#)
+ (let ((#{_\ 20210}# #{tmp\ 20160}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 451}#
- #{e\ 3215}#
- #{w\ 3217}#
- #{s\ 3218}#
- #{mod\ 3219}#))))))))))))
- (#{global-extend\ 376}#
+ (#{source-wrap\ 17386}#
+ #{e\ 20150}#
+ #{w\ 20152}#
+ #{s\ 20153}#
+ #{mod\ 20154}#))))))))))))
+ (#{global-extend\ 17311}#
'core
'letrec
- (lambda (#{e\ 3276}#
- #{r\ 3277}#
- #{w\ 3278}#
- #{s\ 3279}#
- #{mod\ 3280}#)
- (let ((#{tmp\ 3286}# #{e\ 3276}#))
- (let ((#{tmp\ 3287}#
+ (lambda (#{e\ 20211}#
+ #{r\ 20212}#
+ #{w\ 20213}#
+ #{s\ 20214}#
+ #{mod\ 20215}#)
+ (let ((#{tmp\ 20221}# #{e\ 20211}#))
+ (let ((#{tmp\ 20222}#
($sc-dispatch
- #{tmp\ 3286}#
+ #{tmp\ 20221}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3287}#
+ (if (if #{tmp\ 20222}#
(@apply
- (lambda (#{id\ 3292}#
- #{val\ 3293}#
- #{e1\ 3294}#
- #{e2\ 3295}#)
- (and-map #{id?\ 380}# #{id\ 3292}#))
- #{tmp\ 3287}#)
+ (lambda (#{id\ 20227}#
+ #{val\ 20228}#
+ #{e1\ 20229}#
+ #{e2\ 20230}#)
+ (and-map #{id?\ 17315}# #{id\ 20227}#))
+ #{tmp\ 20222}#)
#f)
(@apply
- (lambda (#{id\ 3301}#
- #{val\ 3302}#
- #{e1\ 3303}#
- #{e2\ 3304}#)
+ (lambda (#{id\ 20236}#
+ #{val\ 20237}#
+ #{e1\ 20238}#
+ #{e2\ 20239}#)
(begin
- (let ((#{ids\ 3306}# #{id\ 3301}#))
- (if (not (#{valid-bound-ids?\ 443}#
- #{ids\ 3306}#))
+ (let ((#{ids\ 20241}# #{id\ 20236}#))
+ (if (not (#{valid-bound-ids?\ 17378}#
+ #{ids\ 20241}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3276}#)
+ #{e\ 20211}#)
(begin
- (let ((#{labels\ 3310}#
- (#{gen-labels\ 398}# #{ids\ 3306}#))
- (#{new-vars\ 3311}#
- (map #{gen-var\ 493}#
- #{ids\ 3306}#)))
+ (let ((#{labels\ 20245}#
+ (#{gen-labels\ 17333}#
+ #{ids\ 20241}#))
+ (#{new-vars\ 20246}#
+ (map #{gen-var\ 17428}#
+ #{ids\ 20241}#)))
(begin
- (let ((#{w\ 3314}#
- (#{make-binding-wrap\ 427}#
- #{ids\ 3306}#
- #{labels\ 3310}#
- #{w\ 3278}#))
- (#{r\ 3315}#
- (#{extend-var-env\ 370}#
- #{labels\ 3310}#
- #{new-vars\ 3311}#
- #{r\ 3277}#)))
- (#{build-letrec\ 338}#
- #{s\ 3279}#
+ (let ((#{w\ 20249}#
+ (#{make-binding-wrap\ 17362}#
+ #{ids\ 20241}#
+ #{labels\ 20245}#
+ #{w\ 20213}#))
+ (#{r\ 20250}#
+ (#{extend-var-env\ 17305}#
+ #{labels\ 20245}#
+ #{new-vars\ 20246}#
+ #{r\ 20212}#)))
+ (#{build-letrec\ 17273}#
+ #{s\ 20214}#
#f
- (map syntax->datum #{ids\ 3306}#)
- #{new-vars\ 3311}#
- (map (lambda (#{x\ 3316}#)
- (#{chi\ 465}#
- #{x\ 3316}#
- #{r\ 3315}#
- #{w\ 3314}#
- #{mod\ 3280}#))
- #{val\ 3302}#)
- (#{chi-body\ 473}#
- (cons #{e1\ 3303}# #{e2\ 3304}#)
- (#{source-wrap\ 451}#
- #{e\ 3276}#
- #{w\ 3314}#
- #{s\ 3279}#
- #{mod\ 3280}#)
- #{r\ 3315}#
- #{w\ 3314}#
- #{mod\ 3280}#))))))))))
- #{tmp\ 3287}#)
- (let ((#{_\ 3321}# #{tmp\ 3286}#))
+ (map syntax->datum #{ids\ 20241}#)
+ #{new-vars\ 20246}#
+ (map (lambda (#{x\ 20251}#)
+ (#{chi\ 17400}#
+ #{x\ 20251}#
+ #{r\ 20250}#
+ #{w\ 20249}#
+ #{mod\ 20215}#))
+ #{val\ 20237}#)
+ (#{chi-body\ 17408}#
+ (cons #{e1\ 20238}# #{e2\ 20239}#)
+ (#{source-wrap\ 17386}#
+ #{e\ 20211}#
+ #{w\ 20249}#
+ #{s\ 20214}#
+ #{mod\ 20215}#)
+ #{r\ 20250}#
+ #{w\ 20249}#
+ #{mod\ 20215}#))))))))))
+ #{tmp\ 20222}#)
+ (let ((#{_\ 20256}# #{tmp\ 20221}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 451}#
- #{e\ 3276}#
- #{w\ 3278}#
- #{s\ 3279}#
- #{mod\ 3280}#))))))))
- (#{global-extend\ 376}#
+ (#{source-wrap\ 17386}#
+ #{e\ 20211}#
+ #{w\ 20213}#
+ #{s\ 20214}#
+ #{mod\ 20215}#))))))))
+ (#{global-extend\ 17311}#
'core
'letrec*
- (lambda (#{e\ 3322}#
- #{r\ 3323}#
- #{w\ 3324}#
- #{s\ 3325}#
- #{mod\ 3326}#)
- (let ((#{tmp\ 3332}# #{e\ 3322}#))
- (let ((#{tmp\ 3333}#
+ (lambda (#{e\ 20257}#
+ #{r\ 20258}#
+ #{w\ 20259}#
+ #{s\ 20260}#
+ #{mod\ 20261}#)
+ (let ((#{tmp\ 20267}# #{e\ 20257}#))
+ (let ((#{tmp\ 20268}#
($sc-dispatch
- #{tmp\ 3332}#
+ #{tmp\ 20267}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3333}#
+ (if (if #{tmp\ 20268}#
(@apply
- (lambda (#{id\ 3338}#
- #{val\ 3339}#
- #{e1\ 3340}#
- #{e2\ 3341}#)
- (and-map #{id?\ 380}# #{id\ 3338}#))
- #{tmp\ 3333}#)
+ (lambda (#{id\ 20273}#
+ #{val\ 20274}#
+ #{e1\ 20275}#
+ #{e2\ 20276}#)
+ (and-map #{id?\ 17315}# #{id\ 20273}#))
+ #{tmp\ 20268}#)
#f)
(@apply
- (lambda (#{id\ 3347}#
- #{val\ 3348}#
- #{e1\ 3349}#
- #{e2\ 3350}#)
+ (lambda (#{id\ 20282}#
+ #{val\ 20283}#
+ #{e1\ 20284}#
+ #{e2\ 20285}#)
(begin
- (let ((#{ids\ 3352}# #{id\ 3347}#))
- (if (not (#{valid-bound-ids?\ 443}#
- #{ids\ 3352}#))
+ (let ((#{ids\ 20287}# #{id\ 20282}#))
+ (if (not (#{valid-bound-ids?\ 17378}#
+ #{ids\ 20287}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 3322}#)
+ #{e\ 20257}#)
(begin
- (let ((#{labels\ 3356}#
- (#{gen-labels\ 398}# #{ids\ 3352}#))
- (#{new-vars\ 3357}#
- (map #{gen-var\ 493}#
- #{ids\ 3352}#)))
+ (let ((#{labels\ 20291}#
+ (#{gen-labels\ 17333}#
+ #{ids\ 20287}#))
+ (#{new-vars\ 20292}#
+ (map #{gen-var\ 17428}#
+ #{ids\ 20287}#)))
(begin
- (let ((#{w\ 3360}#
- (#{make-binding-wrap\ 427}#
- #{ids\ 3352}#
- #{labels\ 3356}#
- #{w\ 3324}#))
- (#{r\ 3361}#
- (#{extend-var-env\ 370}#
- #{labels\ 3356}#
- #{new-vars\ 3357}#
- #{r\ 3323}#)))
- (#{build-letrec\ 338}#
- #{s\ 3325}#
+ (let ((#{w\ 20295}#
+ (#{make-binding-wrap\ 17362}#
+ #{ids\ 20287}#
+ #{labels\ 20291}#
+ #{w\ 20259}#))
+ (#{r\ 20296}#
+ (#{extend-var-env\ 17305}#
+ #{labels\ 20291}#
+ #{new-vars\ 20292}#
+ #{r\ 20258}#)))
+ (#{build-letrec\ 17273}#
+ #{s\ 20260}#
#t
- (map syntax->datum #{ids\ 3352}#)
- #{new-vars\ 3357}#
- (map (lambda (#{x\ 3362}#)
- (#{chi\ 465}#
- #{x\ 3362}#
- #{r\ 3361}#
- #{w\ 3360}#
- #{mod\ 3326}#))
- #{val\ 3348}#)
- (#{chi-body\ 473}#
- (cons #{e1\ 3349}# #{e2\ 3350}#)
- (#{source-wrap\ 451}#
- #{e\ 3322}#
- #{w\ 3360}#
- #{s\ 3325}#
- #{mod\ 3326}#)
- #{r\ 3361}#
- #{w\ 3360}#
- #{mod\ 3326}#))))))))))
- #{tmp\ 3333}#)
- (let ((#{_\ 3367}# #{tmp\ 3332}#))
+ (map syntax->datum #{ids\ 20287}#)
+ #{new-vars\ 20292}#
+ (map (lambda (#{x\ 20297}#)
+ (#{chi\ 17400}#
+ #{x\ 20297}#
+ #{r\ 20296}#
+ #{w\ 20295}#
+ #{mod\ 20261}#))
+ #{val\ 20283}#)
+ (#{chi-body\ 17408}#
+ (cons #{e1\ 20284}# #{e2\ 20285}#)
+ (#{source-wrap\ 17386}#
+ #{e\ 20257}#
+ #{w\ 20295}#
+ #{s\ 20260}#
+ #{mod\ 20261}#)
+ #{r\ 20296}#
+ #{w\ 20295}#
+ #{mod\ 20261}#))))))))))
+ #{tmp\ 20268}#)
+ (let ((#{_\ 20302}# #{tmp\ 20267}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 451}#
- #{e\ 3322}#
- #{w\ 3324}#
- #{s\ 3325}#
- #{mod\ 3326}#))))))))
- (#{global-extend\ 376}#
+ (#{source-wrap\ 17386}#
+ #{e\ 20257}#
+ #{w\ 20259}#
+ #{s\ 20260}#
+ #{mod\ 20261}#))))))))
+ (#{global-extend\ 17311}#
'core
'set!
- (lambda (#{e\ 3368}#
- #{r\ 3369}#
- #{w\ 3370}#
- #{s\ 3371}#
- #{mod\ 3372}#)
- (let ((#{tmp\ 3378}# #{e\ 3368}#))
- (let ((#{tmp\ 3379}#
- ($sc-dispatch #{tmp\ 3378}# (quote (_ any any)))))
- (if (if #{tmp\ 3379}#
+ (lambda (#{e\ 20303}#
+ #{r\ 20304}#
+ #{w\ 20305}#
+ #{s\ 20306}#
+ #{mod\ 20307}#)
+ (let ((#{tmp\ 20313}# #{e\ 20303}#))
+ (let ((#{tmp\ 20314}#
+ ($sc-dispatch #{tmp\ 20313}# (quote (_ any any)))))
+ (if (if #{tmp\ 20314}#
(@apply
- (lambda (#{id\ 3382}# #{val\ 3383}#)
- (#{id?\ 380}# #{id\ 3382}#))
- #{tmp\ 3379}#)
+ (lambda (#{id\ 20317}# #{val\ 20318}#)
+ (#{id?\ 17315}# #{id\ 20317}#))
+ #{tmp\ 20314}#)
#f)
(@apply
- (lambda (#{id\ 3386}# #{val\ 3387}#)
+ (lambda (#{id\ 20321}# #{val\ 20322}#)
(begin
- (let ((#{n\ 3389}#
- (#{id-var-name\ 437}#
- #{id\ 3386}#
- #{w\ 3370}#)))
+ (let ((#{n\ 20324}#
+ (#{id-var-name\ 17372}#
+ #{id\ 20321}#
+ #{w\ 20305}#)))
(begin
- (let ((#{b\ 3391}#
- (#{lookup\ 374}#
- #{n\ 3389}#
- #{r\ 3369}#
- #{mod\ 3372}#)))
+ (let ((#{b\ 20326}#
+ (#{lookup\ 17309}#
+ #{n\ 20324}#
+ #{r\ 20304}#
+ #{mod\ 20307}#)))
(begin
- (let ((#{atom-key\ 3394}#
- (#{binding-type\ 363}#
- #{b\ 3391}#)))
- (if (eqv? #{atom-key\ 3394}#
+ (let ((#{atom-key\ 20329}#
+ (#{binding-type\ 17298}#
+ #{b\ 20326}#)))
+ (if (eqv? #{atom-key\ 20329}#
'lexical)
- (#{build-lexical-assignment\ 312}#
- #{s\ 3371}#
- (syntax->datum #{id\ 3386}#)
- (#{binding-value\ 365}# #{b\ 3391}#)
- (#{chi\ 465}#
- #{val\ 3387}#
- #{r\ 3369}#
- #{w\ 3370}#
- #{mod\ 3372}#))
- (if (eqv? #{atom-key\ 3394}#
+ (#{build-lexical-assignment\ 17247}#
+ #{s\ 20306}#
+ (syntax->datum #{id\ 20321}#)
+ (#{binding-value\ 17300}#
+ #{b\ 20326}#)
+ (#{chi\ 17400}#
+ #{val\ 20322}#
+ #{r\ 20304}#
+ #{w\ 20305}#
+ #{mod\ 20307}#))
+ (if (eqv? #{atom-key\ 20329}#
'global)
- (#{build-global-assignment\ 318}#
- #{s\ 3371}#
- #{n\ 3389}#
- (#{chi\ 465}#
- #{val\ 3387}#
- #{r\ 3369}#
- #{w\ 3370}#
- #{mod\ 3372}#)
- #{mod\ 3372}#)
- (if (eqv? #{atom-key\ 3394}#
+ (#{build-global-assignment\ 17253}#
+ #{s\ 20306}#
+ #{n\ 20324}#
+ (#{chi\ 17400}#
+ #{val\ 20322}#
+ #{r\ 20304}#
+ #{w\ 20305}#
+ #{mod\ 20307}#)
+ #{mod\ 20307}#)
+ (if (eqv? #{atom-key\ 20329}#
'macro)
(begin
- (let ((#{p\ 3399}#
- (#{binding-value\ 365}#
- #{b\ 3391}#)))
+ (let ((#{p\ 20334}#
+ (#{binding-value\ 17300}#
+ #{b\ 20326}#)))
(if (procedure-property
- #{p\ 3399}#
+ #{p\ 20334}#
'variable-transformer)
- (#{chi\ 465}#
- (#{chi-macro\ 471}#
- #{p\ 3399}#
- #{e\ 3368}#
- #{r\ 3369}#
- #{w\ 3370}#
- #{s\ 3371}#
+ (#{chi\ 17400}#
+ (#{chi-macro\ 17406}#
+ #{p\ 20334}#
+ #{e\ 20303}#
+ #{r\ 20304}#
+ #{w\ 20305}#
+ #{s\ 20306}#
#f
- #{mod\ 3372}#)
- #{r\ 3369}#
- #{w\ 3370}#
- #{mod\ 3372}#)
+ #{mod\ 20307}#)
+ #{r\ 20304}#
+ #{w\ 20305}#
+ #{mod\ 20307}#)
(syntax-violation
'set!
"not a variable
transformer"
- (#{wrap\ 449}#
- #{e\ 3368}#
- #{w\ 3370}#
- #{mod\ 3372}#)
- (#{wrap\ 449}#
- #{id\ 3386}#
- #{w\ 3370}#
- #{mod\ 3372}#)))))
- (if (eqv? #{atom-key\ 3394}#
+ (#{wrap\ 17384}#
+ #{e\ 20303}#
+ #{w\ 20305}#
+ #{mod\ 20307}#)
+ (#{wrap\ 17384}#
+ #{id\ 20321}#
+ #{w\ 20305}#
+ #{mod\ 20307}#)))))
+ (if (eqv? #{atom-key\ 20329}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 449}#
- #{id\ 3386}#
- #{w\ 3370}#
- #{mod\ 3372}#))
+ (#{wrap\ 17384}#
+ #{id\ 20321}#
+ #{w\ 20305}#
+ #{mod\ 20307}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 451}#
- #{e\ 3368}#
- #{w\ 3370}#
- #{s\ 3371}#
- #{mod\ 3372}#)))))))))))))
- #{tmp\ 3379}#)
- (let ((#{tmp\ 3402}#
+ (#{source-wrap\ 17386}#
+ #{e\ 20303}#
+ #{w\ 20305}#
+ #{s\ 20306}#
+ #{mod\ 20307}#)))))))))))))
+ #{tmp\ 20314}#)
+ (let ((#{tmp\ 20337}#
($sc-dispatch
- #{tmp\ 3378}#
+ #{tmp\ 20313}#
'(_ (any . each-any) any))))
- (if #{tmp\ 3402}#
+ (if #{tmp\ 20337}#
(@apply
- (lambda (#{head\ 3406}#
- #{tail\ 3407}#
- #{val\ 3408}#)
+ (lambda (#{head\ 20341}#
+ #{tail\ 20342}#
+ #{val\ 20343}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 461}#
- #{head\ 3406}#
- #{r\ 3369}#
+ (#{syntax-type\ 17396}#
+ #{head\ 20341}#
+ #{r\ 20304}#
'(())
#f
#f
- #{mod\ 3372}#
+ #{mod\ 20307}#
#t))
- (lambda (#{type\ 3411}#
- #{value\ 3412}#
- #{ee\ 3413}#
- #{ww\ 3414}#
- #{ss\ 3415}#
- #{modmod\ 3416}#)
- (if (eqv? #{type\ 3411}# (quote module-ref))
+ (lambda (#{type\ 20346}#
+ #{value\ 20347}#
+ #{ee\ 20348}#
+ #{ww\ 20349}#
+ #{ss\ 20350}#
+ #{modmod\ 20351}#)
+ (if (eqv? #{type\ 20346}# (quote module-ref))
(begin
- (let ((#{val\ 3425}#
- (#{chi\ 465}#
- #{val\ 3408}#
- #{r\ 3369}#
- #{w\ 3370}#
- #{mod\ 3372}#)))
+ (let ((#{val\ 20360}#
+ (#{chi\ 17400}#
+ #{val\ 20343}#
+ #{r\ 20304}#
+ #{w\ 20305}#
+ #{mod\ 20307}#)))
(call-with-values
(lambda ()
- (#{value\ 3412}#
- (cons #{head\ 3406}#
- #{tail\ 3407}#)
- #{r\ 3369}#
- #{w\ 3370}#))
- (lambda (#{e\ 3427}#
- #{r\ 3428}#
- #{w\ 3429}#
- #{s*\ 3430}#
- #{mod\ 3431}#)
- (let ((#{tmp\ 3437}# #{e\ 3427}#))
- (let ((#{tmp\ 3438}#
- (list #{tmp\ 3437}#)))
- (if (if #{tmp\ 3438}#
+ (#{value\ 20347}#
+ (cons #{head\ 20341}#
+ #{tail\ 20342}#)
+ #{r\ 20304}#
+ #{w\ 20305}#))
+ (lambda (#{e\ 20362}#
+ #{r\ 20363}#
+ #{w\ 20364}#
+ #{s*\ 20365}#
+ #{mod\ 20366}#)
+ (let ((#{tmp\ 20372}#
+ #{e\ 20362}#))
+ (let ((#{tmp\ 20373}#
+ (list #{tmp\ 20372}#)))
+ (if (if #{tmp\ 20373}#
(@apply
- (lambda (#{e\ 3440}#)
- (#{id?\ 380}#
- #{e\ 3440}#))
- #{tmp\ 3438}#)
+ (lambda (#{e\ 20375}#)
+ (#{id?\ 17315}#
+ #{e\ 20375}#))
+ #{tmp\ 20373}#)
#f)
(@apply
- (lambda (#{e\ 3442}#)
-
(#{build-global-assignment\ 318}#
- #{s\ 3371}#
+ (lambda (#{e\ 20377}#)
+
(#{build-global-assignment\ 17253}#
+ #{s\ 20306}#
(syntax->datum
- #{e\ 3442}#)
- #{val\ 3425}#
- #{mod\ 3431}#))
- #{tmp\ 3438}#)
+ #{e\ 20377}#)
+ #{val\ 20360}#
+ #{mod\ 20366}#))
+ #{tmp\ 20373}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 3437}#))))))))
- (#{build-application\ 304}#
- #{s\ 3371}#
- (#{chi\ 465}#
+ #{tmp\ 20372}#))))))))
+ (#{build-application\ 17239}#
+ #{s\ 20306}#
+ (#{chi\ 17400}#
(list '#(syntax-object
setter
((top)
@@ -10278,16 +10394,18 @@
(top)
(top)
(top))
- #("i3417"
- "i3418"
- "i3419"
- "i3420"
- "i3421"
- "i3422"))
+ #("i20352"
+ "i20353"
+ "i20354"
+ "i20355"
+ "i20356"
+ "i20357"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3403" "i3404" "i3405"))
+ #("i20338"
+ "i20339"
+ "i20340"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10296,11 +10414,11 @@
(top)
(top)
(top))
- #("i3373"
- "i3374"
- "i3375"
- "i3376"
- "i3377"))
+ #("i20308"
+ "i20309"
+ "i20310"
+ "i20311"
+ "i20312"))
#(ribcage
(lambda-var-list
gen-var
@@ -10576,197 +10694,200 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile))
- #{head\ 3406}#)
- #{r\ 3369}#
- #{w\ 3370}#
- #{mod\ 3372}#)
- (map (lambda (#{e\ 3444}#)
- (#{chi\ 465}#
- #{e\ 3444}#
- #{r\ 3369}#
- #{w\ 3370}#
- #{mod\ 3372}#))
+ #{head\ 20341}#)
+ #{r\ 20304}#
+ #{w\ 20305}#
+ #{mod\ 20307}#)
+ (map (lambda (#{e\ 20379}#)
+ (#{chi\ 17400}#
+ #{e\ 20379}#
+ #{r\ 20304}#
+ #{w\ 20305}#
+ #{mod\ 20307}#))
(append
- #{tail\ 3407}#
- (list #{val\ 3408}#))))))))
- #{tmp\ 3402}#)
- (let ((#{_\ 3448}# #{tmp\ 3378}#))
+ #{tail\ 20342}#
+ (list #{val\ 20343}#))))))))
+ #{tmp\ 20337}#)
+ (let ((#{_\ 20383}# #{tmp\ 20313}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 451}#
- #{e\ 3368}#
- #{w\ 3370}#
- #{s\ 3371}#
- #{mod\ 3372}#))))))))))
- (#{global-extend\ 376}#
+ (#{source-wrap\ 17386}#
+ #{e\ 20303}#
+ #{w\ 20305}#
+ #{s\ 20306}#
+ #{mod\ 20307}#))))))))))
+ (#{global-extend\ 17311}#
'module-ref
'@
- (lambda (#{e\ 3449}# #{r\ 3450}# #{w\ 3451}#)
- (let ((#{tmp\ 3455}# #{e\ 3449}#))
- (let ((#{tmp\ 3456}#
+ (lambda (#{e\ 20384}# #{r\ 20385}# #{w\ 20386}#)
+ (let ((#{tmp\ 20390}# #{e\ 20384}#))
+ (let ((#{tmp\ 20391}#
($sc-dispatch
- #{tmp\ 3455}#
+ #{tmp\ 20390}#
'(_ each-any any))))
- (if (if #{tmp\ 3456}#
+ (if (if #{tmp\ 20391}#
(@apply
- (lambda (#{mod\ 3459}# #{id\ 3460}#)
- (if (and-map #{id?\ 380}# #{mod\ 3459}#)
- (#{id?\ 380}# #{id\ 3460}#)
+ (lambda (#{mod\ 20394}# #{id\ 20395}#)
+ (if (and-map #{id?\ 17315}# #{mod\ 20394}#)
+ (#{id?\ 17315}# #{id\ 20395}#)
#f))
- #{tmp\ 3456}#)
+ #{tmp\ 20391}#)
#f)
(@apply
- (lambda (#{mod\ 3466}# #{id\ 3467}#)
+ (lambda (#{mod\ 20401}# #{id\ 20402}#)
(values
- (syntax->datum #{id\ 3467}#)
- #{r\ 3450}#
- #{w\ 3451}#
+ (syntax->datum #{id\ 20402}#)
+ #{r\ 20385}#
+ #{w\ 20386}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10775,12 +10896,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3464" "i3465"))
+ #("i20399" "i20400"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3452" "i3453" "i3454"))
+ #("i20387" "i20388" "i20389"))
#(ribcage
(lambda-var-list
gen-var
@@ -11056,222 +11177,227 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile))
- #{mod\ 3466}#))))
- #{tmp\ 3456}#)
+ #{mod\ 20401}#))))
+ #{tmp\ 20391}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3455}#))))))
- (#{global-extend\ 376}#
+ #{tmp\ 20390}#))))))
+ (#{global-extend\ 17311}#
'module-ref
'@@
- (lambda (#{e\ 3469}# #{r\ 3470}# #{w\ 3471}#)
+ (lambda (#{e\ 20404}# #{r\ 20405}# #{w\ 20406}#)
(letrec*
- ((#{remodulate\ 3476}#
- (lambda (#{x\ 3477}# #{mod\ 3478}#)
- (if (pair? #{x\ 3477}#)
- (cons (#{remodulate\ 3476}#
- (car #{x\ 3477}#)
- #{mod\ 3478}#)
- (#{remodulate\ 3476}#
- (cdr #{x\ 3477}#)
- #{mod\ 3478}#))
- (if (#{syntax-object?\ 344}# #{x\ 3477}#)
- (#{make-syntax-object\ 342}#
- (#{remodulate\ 3476}#
- (#{syntax-object-expression\ 346}# #{x\ 3477}#)
- #{mod\ 3478}#)
- (#{syntax-object-wrap\ 348}# #{x\ 3477}#)
- #{mod\ 3478}#)
- (if (vector? #{x\ 3477}#)
+ ((#{remodulate\ 20411}#
+ (lambda (#{x\ 20412}# #{mod\ 20413}#)
+ (if (pair? #{x\ 20412}#)
+ (cons (#{remodulate\ 20411}#
+ (car #{x\ 20412}#)
+ #{mod\ 20413}#)
+ (#{remodulate\ 20411}#
+ (cdr #{x\ 20412}#)
+ #{mod\ 20413}#))
+ (if (#{syntax-object?\ 17279}# #{x\ 20412}#)
+ (#{make-syntax-object\ 17277}#
+ (#{remodulate\ 20411}#
+ (#{syntax-object-expression\ 17281}#
+ #{x\ 20412}#)
+ #{mod\ 20413}#)
+ (#{syntax-object-wrap\ 17283}# #{x\ 20412}#)
+ #{mod\ 20413}#)
+ (if (vector? #{x\ 20412}#)
(begin
- (let ((#{n\ 3489}# (vector-length #{x\ 3477}#)))
+ (let ((#{n\ 20424}#
+ (vector-length #{x\ 20412}#)))
(begin
- (let ((#{v\ 3491}#
- (make-vector #{n\ 3489}#)))
+ (let ((#{v\ 20426}#
+ (make-vector #{n\ 20424}#)))
(letrec*
- ((#{loop\ 3494}#
- (lambda (#{i\ 3495}#)
- (if (#{fx=\ 285}#
- #{i\ 3495}#
- #{n\ 3489}#)
- (begin (if #f #f) #{v\ 3491}#)
+ ((#{loop\ 20429}#
+ (lambda (#{i\ 20430}#)
+ (if (#{fx=\ 17220}#
+ #{i\ 20430}#
+ #{n\ 20424}#)
+ (begin (if #f #f) #{v\ 20426}#)
(begin
(vector-set!
- #{v\ 3491}#
- #{i\ 3495}#
- (#{remodulate\ 3476}#
+ #{v\ 20426}#
+ #{i\ 20430}#
+ (#{remodulate\ 20411}#
(vector-ref
- #{x\ 3477}#
- #{i\ 3495}#)
- #{mod\ 3478}#))
- (#{loop\ 3494}#
- (#{fx+\ 281}#
- #{i\ 3495}#
+ #{x\ 20412}#
+ #{i\ 20430}#)
+ #{mod\ 20413}#))
+ (#{loop\ 20429}#
+ (#{fx+\ 17216}#
+ #{i\ 20430}#
1)))))))
- (begin (#{loop\ 3494}# 0)))))))
- #{x\ 3477}#))))))
+ (begin (#{loop\ 20429}# 0)))))))
+ #{x\ 20412}#))))))
(begin
- (let ((#{tmp\ 3499}# #{e\ 3469}#))
- (let ((#{tmp\ 3500}#
+ (let ((#{tmp\ 20434}# #{e\ 20404}#))
+ (let ((#{tmp\ 20435}#
($sc-dispatch
- #{tmp\ 3499}#
+ #{tmp\ 20434}#
'(_ each-any any))))
- (if (if #{tmp\ 3500}#
+ (if (if #{tmp\ 20435}#
(@apply
- (lambda (#{mod\ 3503}# #{exp\ 3504}#)
- (and-map #{id?\ 380}# #{mod\ 3503}#))
- #{tmp\ 3500}#)
+ (lambda (#{mod\ 20438}# #{exp\ 20439}#)
+ (and-map #{id?\ 17315}# #{mod\ 20438}#))
+ #{tmp\ 20435}#)
#f)
(@apply
- (lambda (#{mod\ 3508}# #{exp\ 3509}#)
+ (lambda (#{mod\ 20443}# #{exp\ 20444}#)
(begin
- (let ((#{mod\ 3511}#
+ (let ((#{mod\ 20446}#
(syntax->datum
(cons '#(syntax-object
private
@@ -11279,17 +11405,17 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3506" "i3507"))
+ #("i20441" "i20442"))
#(ribcage
(remodulate)
((top))
- ("i3475"))
+ ("i20410"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3472"
- "i3473"
- "i3474"))
+ #("i20407"
+ "i20408"
+ "i20409"))
#(ribcage
(lambda-var-list
gen-var
@@ -11565,332 +11691,333 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile))
- #{mod\ 3508}#))))
+ #{mod\ 20443}#))))
(values
- (#{remodulate\ 3476}#
- #{exp\ 3509}#
- #{mod\ 3511}#)
- #{r\ 3470}#
- #{w\ 3471}#
- (#{source-annotation\ 359}# #{exp\ 3509}#)
- #{mod\ 3511}#))))
- #{tmp\ 3500}#)
+ (#{remodulate\ 20411}#
+ #{exp\ 20444}#
+ #{mod\ 20446}#)
+ #{r\ 20405}#
+ #{w\ 20406}#
+ (#{source-annotation\ 17294}#
+ #{exp\ 20444}#)
+ #{mod\ 20446}#))))
+ #{tmp\ 20435}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3499}#))))))))
- (#{global-extend\ 376}#
+ #{tmp\ 20434}#))))))))
+ (#{global-extend\ 17311}#
'core
'if
- (lambda (#{e\ 3513}#
- #{r\ 3514}#
- #{w\ 3515}#
- #{s\ 3516}#
- #{mod\ 3517}#)
- (let ((#{tmp\ 3523}# #{e\ 3513}#))
- (let ((#{tmp\ 3524}#
- ($sc-dispatch #{tmp\ 3523}# (quote (_ any any)))))
- (if #{tmp\ 3524}#
+ (lambda (#{e\ 20448}#
+ #{r\ 20449}#
+ #{w\ 20450}#
+ #{s\ 20451}#
+ #{mod\ 20452}#)
+ (let ((#{tmp\ 20458}# #{e\ 20448}#))
+ (let ((#{tmp\ 20459}#
+ ($sc-dispatch #{tmp\ 20458}# (quote (_ any any)))))
+ (if #{tmp\ 20459}#
(@apply
- (lambda (#{test\ 3527}# #{then\ 3528}#)
- (#{build-conditional\ 306}#
- #{s\ 3516}#
- (#{chi\ 465}#
- #{test\ 3527}#
- #{r\ 3514}#
- #{w\ 3515}#
- #{mod\ 3517}#)
- (#{chi\ 465}#
- #{then\ 3528}#
- #{r\ 3514}#
- #{w\ 3515}#
- #{mod\ 3517}#)
- (#{build-void\ 302}# #f)))
- #{tmp\ 3524}#)
- (let ((#{tmp\ 3530}#
+ (lambda (#{test\ 20462}# #{then\ 20463}#)
+ (#{build-conditional\ 17241}#
+ #{s\ 20451}#
+ (#{chi\ 17400}#
+ #{test\ 20462}#
+ #{r\ 20449}#
+ #{w\ 20450}#
+ #{mod\ 20452}#)
+ (#{chi\ 17400}#
+ #{then\ 20463}#
+ #{r\ 20449}#
+ #{w\ 20450}#
+ #{mod\ 20452}#)
+ (#{build-void\ 17237}# #f)))
+ #{tmp\ 20459}#)
+ (let ((#{tmp\ 20465}#
($sc-dispatch
- #{tmp\ 3523}#
+ #{tmp\ 20458}#
'(_ any any any))))
- (if #{tmp\ 3530}#
+ (if #{tmp\ 20465}#
(@apply
- (lambda (#{test\ 3534}#
- #{then\ 3535}#
- #{else\ 3536}#)
- (#{build-conditional\ 306}#
- #{s\ 3516}#
- (#{chi\ 465}#
- #{test\ 3534}#
- #{r\ 3514}#
- #{w\ 3515}#
- #{mod\ 3517}#)
- (#{chi\ 465}#
- #{then\ 3535}#
- #{r\ 3514}#
- #{w\ 3515}#
- #{mod\ 3517}#)
- (#{chi\ 465}#
- #{else\ 3536}#
- #{r\ 3514}#
- #{w\ 3515}#
- #{mod\ 3517}#)))
- #{tmp\ 3530}#)
+ (lambda (#{test\ 20469}#
+ #{then\ 20470}#
+ #{else\ 20471}#)
+ (#{build-conditional\ 17241}#
+ #{s\ 20451}#
+ (#{chi\ 17400}#
+ #{test\ 20469}#
+ #{r\ 20449}#
+ #{w\ 20450}#
+ #{mod\ 20452}#)
+ (#{chi\ 17400}#
+ #{then\ 20470}#
+ #{r\ 20449}#
+ #{w\ 20450}#
+ #{mod\ 20452}#)
+ (#{chi\ 17400}#
+ #{else\ 20471}#
+ #{r\ 20449}#
+ #{w\ 20450}#
+ #{mod\ 20452}#)))
+ #{tmp\ 20465}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3523}#))))))))
- (#{global-extend\ 376}#
+ #{tmp\ 20458}#))))))))
+ (#{global-extend\ 17311}#
'core
'with-fluids
- (lambda (#{e\ 3537}#
- #{r\ 3538}#
- #{w\ 3539}#
- #{s\ 3540}#
- #{mod\ 3541}#)
- (let ((#{tmp\ 3547}# #{e\ 3537}#))
- (let ((#{tmp\ 3548}#
+ (lambda (#{e\ 20472}#
+ #{r\ 20473}#
+ #{w\ 20474}#
+ #{s\ 20475}#
+ #{mod\ 20476}#)
+ (let ((#{tmp\ 20482}# #{e\ 20472}#))
+ (let ((#{tmp\ 20483}#
($sc-dispatch
- #{tmp\ 3547}#
+ #{tmp\ 20482}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 3548}#
+ (if #{tmp\ 20483}#
(@apply
- (lambda (#{fluid\ 3553}#
- #{val\ 3554}#
- #{b\ 3555}#
- #{b*\ 3556}#)
- (#{build-dynlet\ 308}#
- #{s\ 3540}#
- (map (lambda (#{x\ 3557}#)
- (#{chi\ 465}#
- #{x\ 3557}#
- #{r\ 3538}#
- #{w\ 3539}#
- #{mod\ 3541}#))
- #{fluid\ 3553}#)
- (map (lambda (#{x\ 3560}#)
- (#{chi\ 465}#
- #{x\ 3560}#
- #{r\ 3538}#
- #{w\ 3539}#
- #{mod\ 3541}#))
- #{val\ 3554}#)
- (#{chi-body\ 473}#
- (cons #{b\ 3555}# #{b*\ 3556}#)
- (#{source-wrap\ 451}#
- #{e\ 3537}#
- #{w\ 3539}#
- #{s\ 3540}#
- #{mod\ 3541}#)
- #{r\ 3538}#
- #{w\ 3539}#
- #{mod\ 3541}#)))
- #{tmp\ 3548}#)
+ (lambda (#{fluid\ 20488}#
+ #{val\ 20489}#
+ #{b\ 20490}#
+ #{b*\ 20491}#)
+ (#{build-dynlet\ 17243}#
+ #{s\ 20475}#
+ (map (lambda (#{x\ 20492}#)
+ (#{chi\ 17400}#
+ #{x\ 20492}#
+ #{r\ 20473}#
+ #{w\ 20474}#
+ #{mod\ 20476}#))
+ #{fluid\ 20488}#)
+ (map (lambda (#{x\ 20495}#)
+ (#{chi\ 17400}#
+ #{x\ 20495}#
+ #{r\ 20473}#
+ #{w\ 20474}#
+ #{mod\ 20476}#))
+ #{val\ 20489}#)
+ (#{chi-body\ 17408}#
+ (cons #{b\ 20490}# #{b*\ 20491}#)
+ (#{source-wrap\ 17386}#
+ #{e\ 20472}#
+ #{w\ 20474}#
+ #{s\ 20475}#
+ #{mod\ 20476}#)
+ #{r\ 20473}#
+ #{w\ 20474}#
+ #{mod\ 20476}#)))
+ #{tmp\ 20483}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3547}#))))))
- (#{global-extend\ 376}#
+ #{tmp\ 20482}#))))))
+ (#{global-extend\ 17311}#
'begin
'begin
'())
- (#{global-extend\ 376}#
+ (#{global-extend\ 17311}#
'define
'define
'())
- (#{global-extend\ 376}#
+ (#{global-extend\ 17311}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 376}#
+ (#{global-extend\ 17311}#
'eval-when
'eval-when
'())
- (#{global-extend\ 376}#
+ (#{global-extend\ 17311}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 3565}#
- (lambda (#{pattern\ 3572}# #{keys\ 3573}#)
+ ((#{convert-pattern\ 20500}#
+ (lambda (#{pattern\ 20507}# #{keys\ 20508}#)
(letrec*
- ((#{cvt*\ 3577}#
- (lambda (#{p*\ 3580}# #{n\ 3581}# #{ids\ 3582}#)
- (if (null? #{p*\ 3580}#)
- (values (quote ()) #{ids\ 3582}#)
+ ((#{cvt*\ 20512}#
+ (lambda (#{p*\ 20515}# #{n\ 20516}# #{ids\ 20517}#)
+ (if (null? #{p*\ 20515}#)
+ (values (quote ()) #{ids\ 20517}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3577}#
- (cdr #{p*\ 3580}#)
- #{n\ 3581}#
- #{ids\ 3582}#))
- (lambda (#{y\ 3586}# #{ids\ 3587}#)
+ (#{cvt*\ 20512}#
+ (cdr #{p*\ 20515}#)
+ #{n\ 20516}#
+ #{ids\ 20517}#))
+ (lambda (#{y\ 20521}# #{ids\ 20522}#)
(call-with-values
(lambda ()
- (#{cvt\ 3579}#
- (car #{p*\ 3580}#)
- #{n\ 3581}#
- #{ids\ 3587}#))
- (lambda (#{x\ 3590}# #{ids\ 3591}#)
+ (#{cvt\ 20514}#
+ (car #{p*\ 20515}#)
+ #{n\ 20516}#
+ #{ids\ 20522}#))
+ (lambda (#{x\ 20525}# #{ids\ 20526}#)
(values
- (cons #{x\ 3590}# #{y\ 3586}#)
- #{ids\ 3591}#))))))))
- (#{cvt\ 3579}#
- (lambda (#{p\ 3594}# #{n\ 3595}# #{ids\ 3596}#)
- (if (#{id?\ 380}# #{p\ 3594}#)
- (if (#{bound-id-member?\ 447}#
- #{p\ 3594}#
- #{keys\ 3573}#)
+ (cons #{x\ 20525}# #{y\ 20521}#)
+ #{ids\ 20526}#))))))))
+ (#{cvt\ 20514}#
+ (lambda (#{p\ 20529}# #{n\ 20530}# #{ids\ 20531}#)
+ (if (#{id?\ 17315}# #{p\ 20529}#)
+ (if (#{bound-id-member?\ 17382}#
+ #{p\ 20529}#
+ #{keys\ 20508}#)
(values
- (vector (quote free-id) #{p\ 3594}#)
- #{ids\ 3596}#)
- (if (#{free-id=?\ 439}#
- #{p\ 3594}#
+ (vector (quote free-id) #{p\ 20529}#)
+ #{ids\ 20531}#)
+ (if (#{free-id=?\ 17374}#
+ #{p\ 20529}#
'#(syntax-object
_
((top)
@@ -11898,22 +12025,25 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3597" "i3598" "i3599"))
+ #("i20532" "i20533" "i20534"))
#(ribcage
(cvt cvt*)
((top) (top))
- ("i3578" "i3576"))
+ ("i20513" "i20511"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3574" "i3575"))
+ #("i20509" "i20510"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3570" "i3568" "i3566" "i3564"))
+ ("i20505"
+ "i20503"
+ "i20501"
+ "i20499"))
#(ribcage
(lambda-var-list
gen-var
@@ -12189,480 +12319,486 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile)))
- (values (quote _) #{ids\ 3596}#)
+ (values (quote _) #{ids\ 20531}#)
(values
'any
- (cons (cons #{p\ 3594}# #{n\ 3595}#)
- #{ids\ 3596}#))))
- (let ((#{tmp\ 3605}# #{p\ 3594}#))
- (let ((#{tmp\ 3606}#
+ (cons (cons #{p\ 20529}# #{n\ 20530}#)
+ #{ids\ 20531}#))))
+ (let ((#{tmp\ 20540}# #{p\ 20529}#))
+ (let ((#{tmp\ 20541}#
($sc-dispatch
- #{tmp\ 3605}#
+ #{tmp\ 20540}#
'(any any))))
- (if (if #{tmp\ 3606}#
+ (if (if #{tmp\ 20541}#
(@apply
- (lambda (#{x\ 3609}# #{dots\ 3610}#)
- (#{ellipsis?\ 481}#
- #{dots\ 3610}#))
- #{tmp\ 3606}#)
+ (lambda (#{x\ 20544}#
+ #{dots\ 20545}#)
+ (#{ellipsis?\ 17416}#
+ #{dots\ 20545}#))
+ #{tmp\ 20541}#)
#f)
(@apply
- (lambda (#{x\ 3613}# #{dots\ 3614}#)
+ (lambda (#{x\ 20548}# #{dots\ 20549}#)
(call-with-values
(lambda ()
- (#{cvt\ 3579}#
- #{x\ 3613}#
- (#{fx+\ 281}# #{n\ 3595}# 1)
- #{ids\ 3596}#))
- (lambda (#{p\ 3615}# #{ids\ 3616}#)
+ (#{cvt\ 20514}#
+ #{x\ 20548}#
+ (#{fx+\ 17216}# #{n\ 20530}# 1)
+ #{ids\ 20531}#))
+ (lambda (#{p\ 20550}# #{ids\ 20551}#)
(values
- (if (eq? #{p\ 3615}# (quote any))
+ (if (eq? #{p\ 20550}#
+ 'any)
'each-any
(vector
'each
- #{p\ 3615}#))
- #{ids\ 3616}#))))
- #{tmp\ 3606}#)
- (let ((#{tmp\ 3619}#
+ #{p\ 20550}#))
+ #{ids\ 20551}#))))
+ #{tmp\ 20541}#)
+ (let ((#{tmp\ 20554}#
($sc-dispatch
- #{tmp\ 3605}#
+ #{tmp\ 20540}#
'(any any . each-any))))
- (if (if #{tmp\ 3619}#
+ (if (if #{tmp\ 20554}#
(@apply
- (lambda (#{x\ 3623}#
- #{dots\ 3624}#
- #{ys\ 3625}#)
- (#{ellipsis?\ 481}#
- #{dots\ 3624}#))
- #{tmp\ 3619}#)
+ (lambda (#{x\ 20558}#
+ #{dots\ 20559}#
+ #{ys\ 20560}#)
+ (#{ellipsis?\ 17416}#
+ #{dots\ 20559}#))
+ #{tmp\ 20554}#)
#f)
(@apply
- (lambda (#{x\ 3629}#
- #{dots\ 3630}#
- #{ys\ 3631}#)
+ (lambda (#{x\ 20564}#
+ #{dots\ 20565}#
+ #{ys\ 20566}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3577}#
- #{ys\ 3631}#
- #{n\ 3595}#
- #{ids\ 3596}#))
- (lambda (#{ys\ 3633}#
- #{ids\ 3634}#)
+ (#{cvt*\ 20512}#
+ #{ys\ 20566}#
+ #{n\ 20530}#
+ #{ids\ 20531}#))
+ (lambda (#{ys\ 20568}#
+ #{ids\ 20569}#)
(call-with-values
(lambda ()
- (#{cvt\ 3579}#
- #{x\ 3629}#
- (1+ #{n\ 3595}#)
- #{ids\ 3634}#))
- (lambda (#{x\ 3637}#
- #{ids\ 3638}#)
+ (#{cvt\ 20514}#
+ #{x\ 20564}#
+ (1+ #{n\ 20530}#)
+ #{ids\ 20569}#))
+ (lambda (#{x\ 20572}#
+ #{ids\ 20573}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 3637}#
+ (cons #{x\
20572}#
(cons
(reverse
-
#{ys\ 3633}#)
+
#{ys\ 20568}#)
'(())))))
- #{ids\ 3638}#))))))
- #{tmp\ 3619}#)
- (let ((#{tmp\ 3642}#
+ #{ids\ 20573}#))))))
+ #{tmp\ 20554}#)
+ (let ((#{tmp\ 20577}#
($sc-dispatch
- #{tmp\ 3605}#
+ #{tmp\ 20540}#
'(any . any))))
- (if #{tmp\ 3642}#
+ (if #{tmp\ 20577}#
(@apply
- (lambda (#{x\ 3645}# #{y\ 3646}#)
+ (lambda (#{x\ 20580}#
+ #{y\ 20581}#)
(call-with-values
(lambda ()
- (#{cvt\ 3579}#
- #{y\ 3646}#
- #{n\ 3595}#
- #{ids\ 3596}#))
- (lambda (#{y\ 3647}#
- #{ids\ 3648}#)
+ (#{cvt\ 20514}#
+ #{y\ 20581}#
+ #{n\ 20530}#
+ #{ids\ 20531}#))
+ (lambda (#{y\ 20582}#
+ #{ids\ 20583}#)
(call-with-values
(lambda ()
- (#{cvt\ 3579}#
- #{x\ 3645}#
- #{n\ 3595}#
- #{ids\ 3648}#))
- (lambda (#{x\ 3651}#
- #{ids\ 3652}#)
+ (#{cvt\ 20514}#
+ #{x\ 20580}#
+ #{n\ 20530}#
+ #{ids\ 20583}#))
+ (lambda (#{x\ 20586}#
+ #{ids\ 20587}#)
(values
- (cons #{x\ 3651}#
- #{y\ 3647}#)
- #{ids\ 3652}#))))))
- #{tmp\ 3642}#)
- (let ((#{tmp\ 3655}#
+ (cons #{x\ 20586}#
+ #{y\ 20582}#)
+ #{ids\ 20587}#))))))
+ #{tmp\ 20577}#)
+ (let ((#{tmp\ 20590}#
($sc-dispatch
- #{tmp\ 3605}#
+ #{tmp\ 20540}#
'())))
- (if #{tmp\ 3655}#
+ (if #{tmp\ 20590}#
(@apply
(lambda ()
(values
'()
- #{ids\ 3596}#))
- #{tmp\ 3655}#)
- (let ((#{tmp\ 3656}#
+ #{ids\ 20531}#))
+ #{tmp\ 20590}#)
+ (let ((#{tmp\ 20591}#
($sc-dispatch
- #{tmp\ 3605}#
+ #{tmp\ 20540}#
'#(vector
each-any))))
- (if #{tmp\ 3656}#
+ (if #{tmp\ 20591}#
(@apply
- (lambda (#{x\ 3658}#)
+ (lambda (#{x\ 20593}#)
(call-with-values
(lambda ()
- (#{cvt\ 3579}#
- #{x\ 3658}#
- #{n\ 3595}#
- #{ids\ 3596}#))
- (lambda (#{p\ 3660}#
- #{ids\
3661}#)
+ (#{cvt\ 20514}#
+ #{x\ 20593}#
+ #{n\ 20530}#
+ #{ids\ 20531}#))
+ (lambda (#{p\ 20595}#
+ #{ids\
20596}#)
(values
(vector
'vector
- #{p\ 3660}#)
- #{ids\ 3661}#))))
- #{tmp\ 3656}#)
- (let ((#{x\ 3665}#
- #{tmp\ 3605}#))
+ #{p\ 20595}#)
+ #{ids\
20596}#))))
+ #{tmp\ 20591}#)
+ (let ((#{x\ 20600}#
+ #{tmp\ 20540}#))
(values
(vector
'atom
- (#{strip\ 491}#
- #{p\ 3594}#
+ (#{strip\ 17426}#
+ #{p\ 20529}#
'(())))
- #{ids\
3596}#)))))))))))))))))
+ #{ids\
20531}#)))))))))))))))))
(begin
- (#{cvt\ 3579}# #{pattern\ 3572}# 0 (quote ()))))))
- (#{build-dispatch-call\ 3567}#
- (lambda (#{pvars\ 3667}#
- #{exp\ 3668}#
- #{y\ 3669}#
- #{r\ 3670}#
- #{mod\ 3671}#)
+ (#{cvt\ 20514}# #{pattern\ 20507}# 0 (quote ()))))))
+ (#{build-dispatch-call\ 20502}#
+ (lambda (#{pvars\ 20602}#
+ #{exp\ 20603}#
+ #{y\ 20604}#
+ #{r\ 20605}#
+ #{mod\ 20606}#)
(begin
- (map cdr #{pvars\ 3667}#)
- (let ((#{ids\ 3679}# (map car #{pvars\ 3667}#)))
+ (map cdr #{pvars\ 20602}#)
+ (let ((#{ids\ 20614}# (map car #{pvars\ 20602}#)))
(begin
- (let ((#{labels\ 3683}#
- (#{gen-labels\ 398}# #{ids\ 3679}#))
- (#{new-vars\ 3684}#
- (map #{gen-var\ 493}# #{ids\ 3679}#)))
- (#{build-application\ 304}#
+ (let ((#{labels\ 20618}#
+ (#{gen-labels\ 17333}# #{ids\ 20614}#))
+ (#{new-vars\ 20619}#
+ (map #{gen-var\ 17428}# #{ids\ 20614}#)))
+ (#{build-application\ 17239}#
#f
- (#{build-primref\ 328}# #f (quote apply))
- (list (#{build-simple-lambda\ 322}#
+ (#{build-primref\ 17263}# #f (quote apply))
+ (list (#{build-simple-lambda\ 17257}#
#f
- (map syntax->datum #{ids\ 3679}#)
+ (map syntax->datum #{ids\ 20614}#)
#f
- #{new-vars\ 3684}#
+ #{new-vars\ 20619}#
'()
- (#{chi\ 465}#
- #{exp\ 3668}#
- (#{extend-env\ 368}#
- #{labels\ 3683}#
- (map (lambda (#{var\ 3688}#
- #{level\ 3689}#)
+ (#{chi\ 17400}#
+ #{exp\ 20603}#
+ (#{extend-env\ 17303}#
+ #{labels\ 20618}#
+ (map (lambda (#{var\ 20623}#
+ #{level\ 20624}#)
(cons 'syntax
- (cons #{var\ 3688}#
- #{level\
3689}#)))
- #{new-vars\ 3684}#
- (map cdr #{pvars\ 3667}#))
- #{r\ 3670}#)
- (#{make-binding-wrap\ 427}#
- #{ids\ 3679}#
- #{labels\ 3683}#
+ (cons #{var\ 20623}#
+ #{level\
20624}#)))
+ #{new-vars\ 20619}#
+ (map cdr #{pvars\ 20602}#))
+ #{r\ 20605}#)
+ (#{make-binding-wrap\ 17362}#
+ #{ids\ 20614}#
+ #{labels\ 20618}#
'(()))
- #{mod\ 3671}#))
- #{y\ 3669}#))))))))
- (#{gen-clause\ 3569}#
- (lambda (#{x\ 3695}#
- #{keys\ 3696}#
- #{clauses\ 3697}#
- #{r\ 3698}#
- #{pat\ 3699}#
- #{fender\ 3700}#
- #{exp\ 3701}#
- #{mod\ 3702}#)
+ #{mod\ 20606}#))
+ #{y\ 20604}#))))))))
+ (#{gen-clause\ 20504}#
+ (lambda (#{x\ 20630}#
+ #{keys\ 20631}#
+ #{clauses\ 20632}#
+ #{r\ 20633}#
+ #{pat\ 20634}#
+ #{fender\ 20635}#
+ #{exp\ 20636}#
+ #{mod\ 20637}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3565}#
- #{pat\ 3699}#
- #{keys\ 3696}#))
- (lambda (#{p\ 3711}# #{pvars\ 3712}#)
- (if (not (#{distinct-bound-ids?\ 445}#
- (map car #{pvars\ 3712}#)))
+ (#{convert-pattern\ 20500}#
+ #{pat\ 20634}#
+ #{keys\ 20631}#))
+ (lambda (#{p\ 20646}# #{pvars\ 20647}#)
+ (if (not (#{distinct-bound-ids?\ 17380}#
+ (map car #{pvars\ 20647}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3699}#)
+ #{pat\ 20634}#)
(if (not (and-map
- (lambda (#{x\ 3719}#)
- (not (#{ellipsis?\ 481}#
- (car #{x\ 3719}#))))
- #{pvars\ 3712}#))
+ (lambda (#{x\ 20654}#)
+ (not (#{ellipsis?\ 17416}#
+ (car #{x\ 20654}#))))
+ #{pvars\ 20647}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3699}#)
+ #{pat\ 20634}#)
(begin
- (let ((#{y\ 3723}#
- (#{gen-var\ 493}# (quote tmp))))
- (#{build-application\ 304}#
+ (let ((#{y\ 20658}#
+ (#{gen-var\ 17428}# (quote tmp))))
+ (#{build-application\ 17239}#
#f
- (#{build-simple-lambda\ 322}#
+ (#{build-simple-lambda\ 17257}#
#f
(list (quote tmp))
#f
- (list #{y\ 3723}#)
+ (list #{y\ 20658}#)
'()
(begin
- (let ((#{y\ 3727}#
- (#{build-lexical-reference\
310}#
+ (let ((#{y\ 20662}#
+ (#{build-lexical-reference\
17245}#
'value
#f
'tmp
- #{y\ 3723}#)))
- (#{build-conditional\ 306}#
+ #{y\ 20658}#)))
+ (#{build-conditional\ 17241}#
#f
- (let ((#{tmp\ 3730}#
- #{fender\ 3700}#))
- (let ((#{tmp\ 3731}#
+ (let ((#{tmp\ 20665}#
+ #{fender\ 20635}#))
+ (let ((#{tmp\ 20666}#
($sc-dispatch
- #{tmp\ 3730}#
+ #{tmp\ 20665}#
'#(atom #t))))
- (if #{tmp\ 3731}#
+ (if #{tmp\ 20666}#
(@apply
- (lambda () #{y\ 3727}#)
- #{tmp\ 3731}#)
- (let ((#{_\ 3733}#
- #{tmp\ 3730}#))
- (#{build-conditional\ 306}#
+ (lambda () #{y\ 20662}#)
+ #{tmp\ 20666}#)
+ (let ((#{_\ 20668}#
+ #{tmp\ 20665}#))
+ (#{build-conditional\
17241}#
#f
- #{y\ 3727}#
- (#{build-dispatch-call\
3567}#
- #{pvars\ 3712}#
- #{fender\ 3700}#
- #{y\ 3727}#
- #{r\ 3698}#
- #{mod\ 3702}#)
- (#{build-data\ 330}#
+ #{y\ 20662}#
+ (#{build-dispatch-call\
20502}#
+ #{pvars\ 20647}#
+ #{fender\ 20635}#
+ #{y\ 20662}#
+ #{r\ 20633}#
+ #{mod\ 20637}#)
+ (#{build-data\ 17265}#
#f
#f))))))
- (#{build-dispatch-call\ 3567}#
- #{pvars\ 3712}#
- #{exp\ 3701}#
- #{y\ 3727}#
- #{r\ 3698}#
- #{mod\ 3702}#)
- (#{gen-syntax-case\ 3571}#
- #{x\ 3695}#
- #{keys\ 3696}#
- #{clauses\ 3697}#
- #{r\ 3698}#
- #{mod\ 3702}#)))))
- (list (if (eq? #{p\ 3711}# (quote any))
- (#{build-application\ 304}#
+ (#{build-dispatch-call\ 20502}#
+ #{pvars\ 20647}#
+ #{exp\ 20636}#
+ #{y\ 20662}#
+ #{r\ 20633}#
+ #{mod\ 20637}#)
+ (#{gen-syntax-case\ 20506}#
+ #{x\ 20630}#
+ #{keys\ 20631}#
+ #{clauses\ 20632}#
+ #{r\ 20633}#
+ #{mod\ 20637}#)))))
+ (list (if (eq? #{p\ 20646}# (quote any))
+ (#{build-application\ 17239}#
#f
- (#{build-primref\ 328}#
+ (#{build-primref\ 17263}#
#f
'list)
- (list #{x\ 3695}#))
- (#{build-application\ 304}#
+ (list #{x\ 20630}#))
+ (#{build-application\ 17239}#
#f
- (#{build-primref\ 328}#
+ (#{build-primref\ 17263}#
#f
'$sc-dispatch)
- (list #{x\ 3695}#
- (#{build-data\ 330}#
+ (list #{x\ 20630}#
+ (#{build-data\ 17265}#
#f
- #{p\ 3711}#))))))))))))))
- (#{gen-syntax-case\ 3571}#
- (lambda (#{x\ 3741}#
- #{keys\ 3742}#
- #{clauses\ 3743}#
- #{r\ 3744}#
- #{mod\ 3745}#)
- (if (null? #{clauses\ 3743}#)
- (#{build-application\ 304}#
+ #{p\ 20646}#))))))))))))))
+ (#{gen-syntax-case\ 20506}#
+ (lambda (#{x\ 20676}#
+ #{keys\ 20677}#
+ #{clauses\ 20678}#
+ #{r\ 20679}#
+ #{mod\ 20680}#)
+ (if (null? #{clauses\ 20678}#)
+ (#{build-application\ 17239}#
#f
- (#{build-primref\ 328}#
+ (#{build-primref\ 17263}#
#f
'syntax-violation)
- (list (#{build-data\ 330}# #f #f)
- (#{build-data\ 330}#
+ (list (#{build-data\ 17265}# #f #f)
+ (#{build-data\ 17265}#
#f
"source expression failed to match any
pattern")
- #{x\ 3741}#))
- (let ((#{tmp\ 3755}# (car #{clauses\ 3743}#)))
- (let ((#{tmp\ 3756}#
+ #{x\ 20676}#))
+ (let ((#{tmp\ 20690}# (car #{clauses\ 20678}#)))
+ (let ((#{tmp\ 20691}#
($sc-dispatch
- #{tmp\ 3755}#
+ #{tmp\ 20690}#
'(any any))))
- (if #{tmp\ 3756}#
+ (if #{tmp\ 20691}#
(@apply
- (lambda (#{pat\ 3759}# #{exp\ 3760}#)
- (if (if (#{id?\ 380}# #{pat\ 3759}#)
+ (lambda (#{pat\ 20694}# #{exp\ 20695}#)
+ (if (if (#{id?\ 17315}# #{pat\ 20694}#)
(and-map
- (lambda (#{x\ 3763}#)
- (not (#{free-id=?\ 439}#
- #{pat\ 3759}#
- #{x\ 3763}#)))
+ (lambda (#{x\ 20698}#)
+ (not (#{free-id=?\ 17374}#
+ #{pat\ 20694}#
+ #{x\ 20698}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3757" "i3758"))
+ #("i20692" "i20693"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -12671,21 +12807,21 @@
(top)
(top)
(top))
- #("i3746"
- "i3747"
- "i3748"
- "i3749"
- "i3750"))
+ #("i20681"
+ "i20682"
+ "i20683"
+ "i20684"
+ "i20685"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3570"
- "i3568"
- "i3566"
- "i3564"))
+ ("i20505"
+ "i20503"
+ "i20501"
+ "i20499"))
#(ribcage
(lambda-var-list
gen-var
@@ -12961,183 +13097,183 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile))
- #{keys\ 3742}#))
+ #{keys\ 20677}#))
#f)
- (if (#{free-id=?\ 439}#
+ (if (#{free-id=?\ 17374}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3757" "i3758"))
+ #("i20692" "i20693"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3746"
- "i3747"
- "i3748"
- "i3749"
- "i3750"))
+ #("i20681"
+ "i20682"
+ "i20683"
+ "i20684"
+ "i20685"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3570"
- "i3568"
- "i3566"
- "i3564"))
+ ("i20505"
+ "i20503"
+ "i20501"
+ "i20499"))
#(ribcage
(lambda-var-list
gen-var
@@ -13413,150 +13549,153 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile))
'#(syntax-object
_
@@ -13564,26 +13703,26 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3757" "i3758"))
+ #("i20692" "i20693"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3746"
- "i3747"
- "i3748"
- "i3749"
- "i3750"))
+ #("i20681"
+ "i20682"
+ "i20683"
+ "i20684"
+ "i20685"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3570"
- "i3568"
- "i3566"
- "i3564"))
+ ("i20505"
+ "i20503"
+ "i20501"
+ "i20499"))
#(ribcage
(lambda-var-list
gen-var
@@ -13859,750 +13998,761 @@
(top)
(top)
(top))
- ("i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i423"
- "i422"
- "i420"
- "i419"
- "i418"
- "i417"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i397"
- "i395"
- "i394"
- "i393"
- "i392"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i361"
- "i360"
- "i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ ("i17429"
+ "i17427"
+ "i17425"
+ "i17423"
+ "i17421"
+ "i17419"
+ "i17417"
+ "i17415"
+ "i17413"
+ "i17411"
+ "i17409"
+ "i17407"
+ "i17405"
+ "i17403"
+ "i17401"
+ "i17399"
+ "i17397"
+ "i17395"
+ "i17393"
+ "i17391"
+ "i17389"
+ "i17387"
+ "i17385"
+ "i17383"
+ "i17381"
+ "i17379"
+ "i17377"
+ "i17375"
+ "i17373"
+ "i17371"
+ "i17369"
+ "i17367"
+ "i17365"
+ "i17363"
+ "i17361"
+ "i17359"
+ "i17358"
+ "i17357"
+ "i17355"
+ "i17354"
+ "i17353"
+ "i17352"
+ "i17351"
+ "i17349"
+ "i17347"
+ "i17345"
+ "i17343"
+ "i17341"
+ "i17339"
+ "i17337"
+ "i17335"
+ "i17332"
+ "i17330"
+ "i17329"
+ "i17328"
+ "i17327"
+ "i17326"
+ "i17325"
+ "i17323"
+ "i17321"
+ "i17319"
+ "i17317"
+ "i17316"
+ "i17314"
+ "i17312"
+ "i17310"
+ "i17308"
+ "i17306"
+ "i17304"
+ "i17302"
+ "i17301"
+ "i17299"
+ "i17297"
+ "i17296"
+ "i17295"
+ "i17293"
+ "i17292"
+ "i17290"
+ "i17288"
+ "i17286"
+ "i17284"
+ "i17282"
+ "i17280"
+ "i17278"
+ "i17276"
+ "i17274"
+ "i17272"
+ "i17270"
+ "i17268"
+ "i17266"
+ "i17264"
+ "i17262"
+ "i17260"
+ "i17258"
+ "i17256"
+ "i17254"
+ "i17252"
+ "i17250"
+ "i17248"
+ "i17246"
+ "i17244"
+ "i17242"
+ "i17240"
+ "i17238"
+ "i17236"
+ "i17234"
+ "i17232"
+ "i17230"
+ "i17228"
+ "i17227"
+ "i17225"
+ "i17223"
+ "i17221"
+ "i17219"
+ "i17217"
+ "i17215"
+ "i17213"
+ "i17211"
+ "i17209"
+ "i17206"
+ "i17204"
+ "i17202"
+ "i17200"
+ "i17198"
+ "i17196"
+ "i17194"
+ "i17192"
+ "i17190"
+ "i17188"
+ "i17186"
+ "i17184"
+ "i17182"
+ "i17180"
+ "i17178"
+ "i17176"
+ "i17174"
+ "i17172"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i16974"
+ "i16973"
+ "i16972"
+ "i16970")))
(hygiene guile)))
- (#{chi\ 465}#
- #{exp\ 3760}#
- #{r\ 3744}#
+ (#{chi\ 17400}#
+ #{exp\ 20695}#
+ #{r\ 20679}#
'(())
- #{mod\ 3745}#)
+ #{mod\ 20680}#)
(begin
- (let ((#{labels\ 3768}#
- (list (#{gen-label\ 396}#)))
- (#{var\ 3769}#
- (#{gen-var\ 493}#
- #{pat\ 3759}#)))
- (#{build-application\ 304}#
+ (let ((#{labels\ 20703}#
+ (list (#{gen-label\ 17331}#)))
+ (#{var\ 20704}#
+ (#{gen-var\ 17428}#
+ #{pat\ 20694}#)))
+ (#{build-application\ 17239}#
#f
- (#{build-simple-lambda\ 322}#
+ (#{build-simple-lambda\ 17257}#
#f
(list (syntax->datum
- #{pat\ 3759}#))
+ #{pat\ 20694}#))
#f
- (list #{var\ 3769}#)
+ (list #{var\ 20704}#)
'()
- (#{chi\ 465}#
- #{exp\ 3760}#
- (#{extend-env\ 368}#
- #{labels\ 3768}#
+ (#{chi\ 17400}#
+ #{exp\ 20695}#
+ (#{extend-env\ 17303}#
+ #{labels\ 20703}#
(list (cons 'syntax
- (cons #{var\
3769}#
+ (cons #{var\
20704}#
0)))
- #{r\ 3744}#)
- (#{make-binding-wrap\ 427}#
- (list #{pat\ 3759}#)
- #{labels\ 3768}#
+ #{r\ 20679}#)
+ (#{make-binding-wrap\ 17362}#
+ (list #{pat\ 20694}#)
+ #{labels\ 20703}#
'(()))
- #{mod\ 3745}#))
- (list #{x\ 3741}#)))))
- (#{gen-clause\ 3569}#
- #{x\ 3741}#
- #{keys\ 3742}#
- (cdr #{clauses\ 3743}#)
- #{r\ 3744}#
- #{pat\ 3759}#
+ #{mod\ 20680}#))
+ (list #{x\ 20676}#)))))
+ (#{gen-clause\ 20504}#
+ #{x\ 20676}#
+ #{keys\ 20677}#
+ (cdr #{clauses\ 20678}#)
+ #{r\ 20679}#
+ #{pat\ 20694}#
#t
- #{exp\ 3760}#
- #{mod\ 3745}#)))
- #{tmp\ 3756}#)
- (let ((#{tmp\ 3775}#
+ #{exp\ 20695}#
+ #{mod\ 20680}#)))
+ #{tmp\ 20691}#)
+ (let ((#{tmp\ 20710}#
($sc-dispatch
- #{tmp\ 3755}#
+ #{tmp\ 20690}#
'(any any any))))
- (if #{tmp\ 3775}#
+ (if #{tmp\ 20710}#
(@apply
- (lambda (#{pat\ 3779}#
- #{fender\ 3780}#
- #{exp\ 3781}#)
- (#{gen-clause\ 3569}#
- #{x\ 3741}#
- #{keys\ 3742}#
- (cdr #{clauses\ 3743}#)
- #{r\ 3744}#
- #{pat\ 3779}#
- #{fender\ 3780}#
- #{exp\ 3781}#
- #{mod\ 3745}#))
- #{tmp\ 3775}#)
- (let ((#{_\ 3783}# #{tmp\ 3755}#))
+ (lambda (#{pat\ 20714}#
+ #{fender\ 20715}#
+ #{exp\ 20716}#)
+ (#{gen-clause\ 20504}#
+ #{x\ 20676}#
+ #{keys\ 20677}#
+ (cdr #{clauses\ 20678}#)
+ #{r\ 20679}#
+ #{pat\ 20714}#
+ #{fender\ 20715}#
+ #{exp\ 20716}#
+ #{mod\ 20680}#))
+ #{tmp\ 20710}#)
+ (let ((#{_\ 20718}# #{tmp\ 20690}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3743}#))))))))))))
+ (car #{clauses\ 20678}#))))))))))))
(begin
- (lambda (#{e\ 3784}#
- #{r\ 3785}#
- #{w\ 3786}#
- #{s\ 3787}#
- #{mod\ 3788}#)
+ (lambda (#{e\ 20719}#
+ #{r\ 20720}#
+ #{w\ 20721}#
+ #{s\ 20722}#
+ #{mod\ 20723}#)
(begin
- (let ((#{e\ 3795}#
- (#{source-wrap\ 451}#
- #{e\ 3784}#
- #{w\ 3786}#
- #{s\ 3787}#
- #{mod\ 3788}#)))
- (let ((#{tmp\ 3796}# #{e\ 3795}#))
- (let ((#{tmp\ 3797}#
+ (let ((#{e\ 20730}#
+ (#{source-wrap\ 17386}#
+ #{e\ 20719}#
+ #{w\ 20721}#
+ #{s\ 20722}#
+ #{mod\ 20723}#)))
+ (let ((#{tmp\ 20731}# #{e\ 20730}#))
+ (let ((#{tmp\ 20732}#
($sc-dispatch
- #{tmp\ 3796}#
+ #{tmp\ 20731}#
'(_ any each-any . each-any))))
- (if #{tmp\ 3797}#
+ (if #{tmp\ 20732}#
(@apply
- (lambda (#{val\ 3801}#
- #{key\ 3802}#
- #{m\ 3803}#)
+ (lambda (#{val\ 20736}#
+ #{key\ 20737}#
+ #{m\ 20738}#)
(if (and-map
- (lambda (#{x\ 3804}#)
- (if (#{id?\ 380}# #{x\ 3804}#)
- (not (#{ellipsis?\ 481}#
- #{x\ 3804}#))
+ (lambda (#{x\ 20739}#)
+ (if (#{id?\ 17315}# #{x\ 20739}#)
+ (not (#{ellipsis?\ 17416}#
+ #{x\ 20739}#))
#f))
- #{key\ 3802}#)
+ #{key\ 20737}#)
(begin
- (let ((#{x\ 3810}#
- (#{gen-var\ 493}# (quote tmp))))
- (#{build-application\ 304}#
- #{s\ 3787}#
- (#{build-simple-lambda\ 322}#
+ (let ((#{x\ 20745}#
+ (#{gen-var\ 17428}#
+ 'tmp)))
+ (#{build-application\ 17239}#
+ #{s\ 20722}#
+ (#{build-simple-lambda\ 17257}#
#f
(list (quote tmp))
#f
- (list #{x\ 3810}#)
+ (list #{x\ 20745}#)
'()
- (#{gen-syntax-case\ 3571}#
- (#{build-lexical-reference\ 310}#
+ (#{gen-syntax-case\ 20506}#
+ (#{build-lexical-reference\
17245}#
'value
#f
'tmp
- #{x\ 3810}#)
- #{key\ 3802}#
- #{m\ 3803}#
- #{r\ 3785}#
- #{mod\ 3788}#))
- (list (#{chi\ 465}#
- #{val\ 3801}#
- #{r\ 3785}#
+ #{x\ 20745}#)
+ #{key\ 20737}#
+ #{m\ 20738}#
+ #{r\ 20720}#
+ #{mod\ 20723}#))
+ (list (#{chi\ 17400}#
+ #{val\ 20736}#
+ #{r\ 20720}#
'(())
- #{mod\ 3788}#)))))
+ #{mod\ 20723}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3795}#)))
- #{tmp\ 3797}#)
+ #{e\ 20730}#)))
+ #{tmp\ 20732}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3796}#))))))))))
+ #{tmp\ 20731}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 3816}#
+ (#{x\ 20751}#
#:optional
- (#{m\ 3818}# (quote e))
- (#{esew\ 3820}# (quote (eval))))
- (#{chi-top\ 463}#
- #{x\ 3816}#
+ (#{m\ 20753}# (quote e))
+ (#{esew\ 20755}# (quote (eval))))
+ (#{chi-top\ 17398}#
+ #{x\ 20751}#
'()
'((top))
- #{m\ 3818}#
- #{esew\ 3820}#
+ #{m\ 20753}#
+ #{esew\ 20755}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3824}#)
- (#{nonsymbol-id?\ 378}# #{x\ 3824}#)))
+ (lambda (#{x\ 20759}#)
+ (#{nonsymbol-id?\ 17313}# #{x\ 20759}#)))
(set! datum->syntax
- (lambda (#{id\ 3826}# #{datum\ 3827}#)
- (#{make-syntax-object\ 342}#
- #{datum\ 3827}#
- (#{syntax-object-wrap\ 348}# #{id\ 3826}#)
- (#{syntax-object-module\ 350}# #{id\ 3826}#))))
+ (lambda (#{id\ 20761}# #{datum\ 20762}#)
+ (#{make-syntax-object\ 17277}#
+ #{datum\ 20762}#
+ (#{syntax-object-wrap\ 17283}# #{id\ 20761}#)
+ (#{syntax-object-module\ 17285}# #{id\ 20761}#))))
(set! syntax->datum
- (lambda (#{x\ 3830}#)
- (#{strip\ 491}# #{x\ 3830}# (quote (())))))
+ (lambda (#{x\ 20765}#)
+ (#{strip\ 17426}# #{x\ 20765}# (quote (())))))
(set! syntax-source
- (lambda (#{x\ 3833}#)
- (#{source-annotation\ 359}# #{x\ 3833}#)))
+ (lambda (#{x\ 20768}#)
+ (#{source-annotation\ 17294}# #{x\ 20768}#)))
(set! generate-temporaries
- (lambda (#{ls\ 3835}#)
+ (lambda (#{ls\ 20770}#)
(begin
(begin
- (let ((#{x\ 3839}# #{ls\ 3835}#))
- (if (not (list? #{x\ 3839}#))
+ (let ((#{x\ 20774}# #{ls\ 20770}#))
+ (if (not (list? #{x\ 20774}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3839}#))))
- (map (lambda (#{x\ 3840}#)
- (#{wrap\ 449}# (gensym) (quote ((top))) #f))
- #{ls\ 3835}#))))
+ #{x\ 20774}#))))
+ (map (lambda (#{x\ 20775}#)
+ (#{wrap\ 17384}# (gensym) (quote ((top))) #f))
+ #{ls\ 20770}#))))
(set! free-identifier=?
- (lambda (#{x\ 3844}# #{y\ 3845}#)
+ (lambda (#{x\ 20779}# #{y\ 20780}#)
(begin
(begin
- (let ((#{x\ 3850}# #{x\ 3844}#))
- (if (not (#{nonsymbol-id?\ 378}# #{x\ 3850}#))
+ (let ((#{x\ 20785}# #{x\ 20779}#))
+ (if (not (#{nonsymbol-id?\ 17313}# #{x\ 20785}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3850}#))))
+ #{x\ 20785}#))))
(begin
- (let ((#{x\ 3853}# #{y\ 3845}#))
- (if (not (#{nonsymbol-id?\ 378}# #{x\ 3853}#))
+ (let ((#{x\ 20788}# #{y\ 20780}#))
+ (if (not (#{nonsymbol-id?\ 17313}# #{x\ 20788}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3853}#))))
- (#{free-id=?\ 439}# #{x\ 3844}# #{y\ 3845}#))))
+ #{x\ 20788}#))))
+ (#{free-id=?\ 17374}# #{x\ 20779}# #{y\ 20780}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3854}# #{y\ 3855}#)
+ (lambda (#{x\ 20789}# #{y\ 20790}#)
(begin
(begin
- (let ((#{x\ 3860}# #{x\ 3854}#))
- (if (not (#{nonsymbol-id?\ 378}# #{x\ 3860}#))
+ (let ((#{x\ 20795}# #{x\ 20789}#))
+ (if (not (#{nonsymbol-id?\ 17313}# #{x\ 20795}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3860}#))))
+ #{x\ 20795}#))))
(begin
- (let ((#{x\ 3863}# #{y\ 3855}#))
- (if (not (#{nonsymbol-id?\ 378}# #{x\ 3863}#))
+ (let ((#{x\ 20798}# #{y\ 20790}#))
+ (if (not (#{nonsymbol-id?\ 17313}# #{x\ 20798}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3863}#))))
- (#{bound-id=?\ 441}# #{x\ 3854}# #{y\ 3855}#))))
+ #{x\ 20798}#))))
+ (#{bound-id=?\ 17376}# #{x\ 20789}# #{y\ 20790}#))))
(set! syntax-violation
- (lambda (#{who\ 3864}#
- #{message\ 3865}#
- #{form\ 3866}#
+ (lambda (#{who\ 20799}#
+ #{message\ 20800}#
+ #{form\ 20801}#
.
- #{subform\ 3867}#)
+ #{subform\ 20802}#)
(begin
(begin
- (let ((#{x\ 3874}# #{who\ 3864}#))
- (if (not (let ((#{x\ 3875}# #{x\ 3874}#))
+ (let ((#{x\ 20809}# #{who\ 20799}#))
+ (if (not (let ((#{x\ 20810}# #{x\ 20809}#))
(begin
- (let ((#{t\ 3879}# (not #{x\ 3875}#)))
- (if #{t\ 3879}#
- #{t\ 3879}#
+ (let ((#{t\ 20814}# (not #{x\ 20810}#)))
+ (if #{t\ 20814}#
+ #{t\ 20814}#
(begin
- (let ((#{t\ 3882}#
- (string? #{x\ 3875}#)))
- (if #{t\ 3882}#
- #{t\ 3882}#
- (symbol? #{x\ 3875}#)))))))))
+ (let ((#{t\ 20817}#
+ (string? #{x\ 20810}#)))
+ (if #{t\ 20817}#
+ #{t\ 20817}#
+ (symbol? #{x\ 20810}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3874}#))))
+ #{x\ 20809}#))))
(begin
- (let ((#{x\ 3886}# #{message\ 3865}#))
- (if (not (string? #{x\ 3886}#))
+ (let ((#{x\ 20821}# #{message\ 20800}#))
+ (if (not (string? #{x\ 20821}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3886}#))))
+ #{x\ 20821}#))))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 3864}# "~a: " "")
+ (if #{who\ 20799}# "~a: " "")
"~a "
- (if (null? #{subform\ 3867}#)
+ (if (null? #{subform\ 20802}#)
"in ~a"
"in subform `~s' of `~s'"))
(begin
- (let ((#{tail\ 3888}#
- (cons #{message\ 3865}#
- (map (lambda (#{x\ 3889}#)
- (#{strip\ 491}#
- #{x\ 3889}#
+ (let ((#{tail\ 20823}#
+ (cons #{message\ 20800}#
+ (map (lambda (#{x\ 20824}#)
+ (#{strip\ 17426}#
+ #{x\ 20824}#
'(())))
(append
- #{subform\ 3867}#
- (list #{form\ 3866}#))))))
- (if #{who\ 3864}#
- (cons #{who\ 3864}# #{tail\ 3888}#)
- #{tail\ 3888}#)))
+ #{subform\ 20802}#
+ (list #{form\ 20801}#))))))
+ (if #{who\ 20799}#
+ (cons #{who\ 20799}# #{tail\ 20823}#)
+ #{tail\ 20823}#)))
#f))))
(letrec*
- ((#{match-each\ 3893}#
- (lambda (#{e\ 3906}#
- #{p\ 3907}#
- #{w\ 3908}#
- #{mod\ 3909}#)
- (if (pair? #{e\ 3906}#)
+ ((#{match-each\ 20828}#
+ (lambda (#{e\ 20841}#
+ #{p\ 20842}#
+ #{w\ 20843}#
+ #{mod\ 20844}#)
+ (if (pair? #{e\ 20841}#)
(begin
- (let ((#{first\ 3917}#
- (#{match\ 3905}#
- (car #{e\ 3906}#)
- #{p\ 3907}#
- #{w\ 3908}#
+ (let ((#{first\ 20852}#
+ (#{match\ 20840}#
+ (car #{e\ 20841}#)
+ #{p\ 20842}#
+ #{w\ 20843}#
'()
- #{mod\ 3909}#)))
- (if #{first\ 3917}#
+ #{mod\ 20844}#)))
+ (if #{first\ 20852}#
(begin
- (let ((#{rest\ 3921}#
- (#{match-each\ 3893}#
- (cdr #{e\ 3906}#)
- #{p\ 3907}#
- #{w\ 3908}#
- #{mod\ 3909}#)))
- (if #{rest\ 3921}#
- (cons #{first\ 3917}# #{rest\ 3921}#)
+ (let ((#{rest\ 20856}#
+ (#{match-each\ 20828}#
+ (cdr #{e\ 20841}#)
+ #{p\ 20842}#
+ #{w\ 20843}#
+ #{mod\ 20844}#)))
+ (if #{rest\ 20856}#
+ (cons #{first\ 20852}# #{rest\ 20856}#)
#f)))
#f)))
- (if (null? #{e\ 3906}#)
+ (if (null? #{e\ 20841}#)
'()
- (if (#{syntax-object?\ 344}# #{e\ 3906}#)
- (#{match-each\ 3893}#
- (#{syntax-object-expression\ 346}# #{e\ 3906}#)
- #{p\ 3907}#
- (#{join-wraps\ 431}#
- #{w\ 3908}#
- (#{syntax-object-wrap\ 348}# #{e\ 3906}#))
- (#{syntax-object-module\ 350}# #{e\ 3906}#))
+ (if (#{syntax-object?\ 17279}# #{e\ 20841}#)
+ (#{match-each\ 20828}#
+ (#{syntax-object-expression\ 17281}#
+ #{e\ 20841}#)
+ #{p\ 20842}#
+ (#{join-wraps\ 17366}#
+ #{w\ 20843}#
+ (#{syntax-object-wrap\ 17283}# #{e\ 20841}#))
+ (#{syntax-object-module\ 17285}# #{e\ 20841}#))
#f)))))
- (#{match-each+\ 3895}#
- (lambda (#{e\ 3929}#
- #{x-pat\ 3930}#
- #{y-pat\ 3931}#
- #{z-pat\ 3932}#
- #{w\ 3933}#
- #{r\ 3934}#
- #{mod\ 3935}#)
+ (#{match-each+\ 20830}#
+ (lambda (#{e\ 20864}#
+ #{x-pat\ 20865}#
+ #{y-pat\ 20866}#
+ #{z-pat\ 20867}#
+ #{w\ 20868}#
+ #{r\ 20869}#
+ #{mod\ 20870}#)
(letrec*
- ((#{f\ 3946}#
- (lambda (#{e\ 3947}# #{w\ 3948}#)
- (if (pair? #{e\ 3947}#)
+ ((#{f\ 20881}#
+ (lambda (#{e\ 20882}# #{w\ 20883}#)
+ (if (pair? #{e\ 20882}#)
(call-with-values
(lambda ()
- (#{f\ 3946}# (cdr #{e\ 3947}#) #{w\ 3948}#))
- (lambda (#{xr*\ 3951}#
- #{y-pat\ 3952}#
- #{r\ 3953}#)
- (if #{r\ 3953}#
- (if (null? #{y-pat\ 3952}#)
+ (#{f\ 20881}# (cdr #{e\ 20882}#) #{w\ 20883}#))
+ (lambda (#{xr*\ 20886}#
+ #{y-pat\ 20887}#
+ #{r\ 20888}#)
+ (if #{r\ 20888}#
+ (if (null? #{y-pat\ 20887}#)
(begin
- (let ((#{xr\ 3958}#
- (#{match\ 3905}#
- (car #{e\ 3947}#)
- #{x-pat\ 3930}#
- #{w\ 3948}#
+ (let ((#{xr\ 20893}#
+ (#{match\ 20840}#
+ (car #{e\ 20882}#)
+ #{x-pat\ 20865}#
+ #{w\ 20883}#
'()
- #{mod\ 3935}#)))
- (if #{xr\ 3958}#
+ #{mod\ 20870}#)))
+ (if #{xr\ 20893}#
(values
- (cons #{xr\ 3958}# #{xr*\ 3951}#)
- #{y-pat\ 3952}#
- #{r\ 3953}#)
+ (cons #{xr\ 20893}# #{xr*\ 20886}#)
+ #{y-pat\ 20887}#
+ #{r\ 20888}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat\ 3952}#)
- (#{match\ 3905}#
- (car #{e\ 3947}#)
- (car #{y-pat\ 3952}#)
- #{w\ 3948}#
- #{r\ 3953}#
- #{mod\ 3935}#)))
+ (cdr #{y-pat\ 20887}#)
+ (#{match\ 20840}#
+ (car #{e\ 20882}#)
+ (car #{y-pat\ 20887}#)
+ #{w\ 20883}#
+ #{r\ 20888}#
+ #{mod\ 20870}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 344}# #{e\ 3947}#)
- (#{f\ 3946}#
- (#{syntax-object-expression\ 346}# #{e\ 3947}#)
- (#{join-wraps\ 431}# #{w\ 3948}# #{e\ 3947}#))
+ (if (#{syntax-object?\ 17279}# #{e\ 20882}#)
+ (#{f\ 20881}#
+ (#{syntax-object-expression\ 17281}#
+ #{e\ 20882}#)
+ (#{join-wraps\ 17366}#
+ #{w\ 20883}#
+ #{e\ 20882}#))
(values
'()
- #{y-pat\ 3931}#
- (#{match\ 3905}#
- #{e\ 3947}#
- #{z-pat\ 3932}#
- #{w\ 3948}#
- #{r\ 3934}#
- #{mod\ 3935}#)))))))
- (begin (#{f\ 3946}# #{e\ 3929}# #{w\ 3933}#)))))
- (#{match-each-any\ 3897}#
- (lambda (#{e\ 3962}# #{w\ 3963}# #{mod\ 3964}#)
- (if (pair? #{e\ 3962}#)
+ #{y-pat\ 20866}#
+ (#{match\ 20840}#
+ #{e\ 20882}#
+ #{z-pat\ 20867}#
+ #{w\ 20883}#
+ #{r\ 20869}#
+ #{mod\ 20870}#)))))))
+ (begin (#{f\ 20881}# #{e\ 20864}# #{w\ 20868}#)))))
+ (#{match-each-any\ 20832}#
+ (lambda (#{e\ 20897}# #{w\ 20898}# #{mod\ 20899}#)
+ (if (pair? #{e\ 20897}#)
(begin
- (let ((#{l\ 3971}#
- (#{match-each-any\ 3897}#
- (cdr #{e\ 3962}#)
- #{w\ 3963}#
- #{mod\ 3964}#)))
- (if #{l\ 3971}#
- (cons (#{wrap\ 449}#
- (car #{e\ 3962}#)
- #{w\ 3963}#
- #{mod\ 3964}#)
- #{l\ 3971}#)
+ (let ((#{l\ 20906}#
+ (#{match-each-any\ 20832}#
+ (cdr #{e\ 20897}#)
+ #{w\ 20898}#
+ #{mod\ 20899}#)))
+ (if #{l\ 20906}#
+ (cons (#{wrap\ 17384}#
+ (car #{e\ 20897}#)
+ #{w\ 20898}#
+ #{mod\ 20899}#)
+ #{l\ 20906}#)
#f)))
- (if (null? #{e\ 3962}#)
+ (if (null? #{e\ 20897}#)
'()
- (if (#{syntax-object?\ 344}# #{e\ 3962}#)
- (#{match-each-any\ 3897}#
- (#{syntax-object-expression\ 346}# #{e\ 3962}#)
- (#{join-wraps\ 431}#
- #{w\ 3963}#
- (#{syntax-object-wrap\ 348}# #{e\ 3962}#))
- #{mod\ 3964}#)
+ (if (#{syntax-object?\ 17279}# #{e\ 20897}#)
+ (#{match-each-any\ 20832}#
+ (#{syntax-object-expression\ 17281}#
+ #{e\ 20897}#)
+ (#{join-wraps\ 17366}#
+ #{w\ 20898}#
+ (#{syntax-object-wrap\ 17283}# #{e\ 20897}#))
+ #{mod\ 20899}#)
#f)))))
- (#{match-empty\ 3899}#
- (lambda (#{p\ 3979}# #{r\ 3980}#)
- (if (null? #{p\ 3979}#)
- #{r\ 3980}#
- (if (eq? #{p\ 3979}# (quote _))
- #{r\ 3980}#
- (if (eq? #{p\ 3979}# (quote any))
- (cons (quote ()) #{r\ 3980}#)
- (if (pair? #{p\ 3979}#)
- (#{match-empty\ 3899}#
- (car #{p\ 3979}#)
- (#{match-empty\ 3899}#
- (cdr #{p\ 3979}#)
- #{r\ 3980}#))
- (if (eq? #{p\ 3979}# (quote each-any))
- (cons (quote ()) #{r\ 3980}#)
+ (#{match-empty\ 20834}#
+ (lambda (#{p\ 20914}# #{r\ 20915}#)
+ (if (null? #{p\ 20914}#)
+ #{r\ 20915}#
+ (if (eq? #{p\ 20914}# (quote _))
+ #{r\ 20915}#
+ (if (eq? #{p\ 20914}# (quote any))
+ (cons (quote ()) #{r\ 20915}#)
+ (if (pair? #{p\ 20914}#)
+ (#{match-empty\ 20834}#
+ (car #{p\ 20914}#)
+ (#{match-empty\ 20834}#
+ (cdr #{p\ 20914}#)
+ #{r\ 20915}#))
+ (if (eq? #{p\ 20914}# (quote each-any))
+ (cons (quote ()) #{r\ 20915}#)
(begin
- (let ((#{atom-key\ 3996}#
- (vector-ref #{p\ 3979}# 0)))
- (if (eqv? #{atom-key\ 3996}# (quote each))
- (#{match-empty\ 3899}#
- (vector-ref #{p\ 3979}# 1)
- #{r\ 3980}#)
- (if (eqv? #{atom-key\ 3996}# (quote each+))
- (#{match-empty\ 3899}#
- (vector-ref #{p\ 3979}# 1)
- (#{match-empty\ 3899}#
- (reverse (vector-ref #{p\ 3979}# 2))
- (#{match-empty\ 3899}#
- (vector-ref #{p\ 3979}# 3)
- #{r\ 3980}#)))
- (if (if (eqv? #{atom-key\ 3996}#
+ (let ((#{atom-key\ 20931}#
+ (vector-ref #{p\ 20914}# 0)))
+ (if (eqv? #{atom-key\ 20931}# (quote each))
+ (#{match-empty\ 20834}#
+ (vector-ref #{p\ 20914}# 1)
+ #{r\ 20915}#)
+ (if (eqv? #{atom-key\ 20931}# (quote each+))
+ (#{match-empty\ 20834}#
+ (vector-ref #{p\ 20914}# 1)
+ (#{match-empty\ 20834}#
+ (reverse (vector-ref #{p\ 20914}# 2))
+ (#{match-empty\ 20834}#
+ (vector-ref #{p\ 20914}# 3)
+ #{r\ 20915}#)))
+ (if (if (eqv? #{atom-key\ 20931}#
'free-id)
#t
- (eqv? #{atom-key\ 3996}#
+ (eqv? #{atom-key\ 20931}#
'atom))
- #{r\ 3980}#
- (if (eqv? #{atom-key\ 3996}#
+ #{r\ 20915}#
+ (if (eqv? #{atom-key\ 20931}#
'vector)
- (#{match-empty\ 3899}#
- (vector-ref #{p\ 3979}# 1)
- #{r\ 3980}#))))))))))))))
- (#{combine\ 3901}#
- (lambda (#{r*\ 4001}# #{r\ 4002}#)
- (if (null? (car #{r*\ 4001}#))
- #{r\ 4002}#
- (cons (map car #{r*\ 4001}#)
- (#{combine\ 3901}#
- (map cdr #{r*\ 4001}#)
- #{r\ 4002}#)))))
- (#{match*\ 3903}#
- (lambda (#{e\ 4005}#
- #{p\ 4006}#
- #{w\ 4007}#
- #{r\ 4008}#
- #{mod\ 4009}#)
- (if (null? #{p\ 4006}#)
- (if (null? #{e\ 4005}#) #{r\ 4008}# #f)
- (if (pair? #{p\ 4006}#)
- (if (pair? #{e\ 4005}#)
- (#{match\ 3905}#
- (car #{e\ 4005}#)
- (car #{p\ 4006}#)
- #{w\ 4007}#
- (#{match\ 3905}#
- (cdr #{e\ 4005}#)
- (cdr #{p\ 4006}#)
- #{w\ 4007}#
- #{r\ 4008}#
- #{mod\ 4009}#)
- #{mod\ 4009}#)
+ (#{match-empty\ 20834}#
+ (vector-ref #{p\ 20914}# 1)
+ #{r\ 20915}#))))))))))))))
+ (#{combine\ 20836}#
+ (lambda (#{r*\ 20936}# #{r\ 20937}#)
+ (if (null? (car #{r*\ 20936}#))
+ #{r\ 20937}#
+ (cons (map car #{r*\ 20936}#)
+ (#{combine\ 20836}#
+ (map cdr #{r*\ 20936}#)
+ #{r\ 20937}#)))))
+ (#{match*\ 20838}#
+ (lambda (#{e\ 20940}#
+ #{p\ 20941}#
+ #{w\ 20942}#
+ #{r\ 20943}#
+ #{mod\ 20944}#)
+ (if (null? #{p\ 20941}#)
+ (if (null? #{e\ 20940}#) #{r\ 20943}# #f)
+ (if (pair? #{p\ 20941}#)
+ (if (pair? #{e\ 20940}#)
+ (#{match\ 20840}#
+ (car #{e\ 20940}#)
+ (car #{p\ 20941}#)
+ #{w\ 20942}#
+ (#{match\ 20840}#
+ (cdr #{e\ 20940}#)
+ (cdr #{p\ 20941}#)
+ #{w\ 20942}#
+ #{r\ 20943}#
+ #{mod\ 20944}#)
+ #{mod\ 20944}#)
#f)
- (if (eq? #{p\ 4006}# (quote each-any))
+ (if (eq? #{p\ 20941}# (quote each-any))
(begin
- (let ((#{l\ 4026}#
- (#{match-each-any\ 3897}#
- #{e\ 4005}#
- #{w\ 4007}#
- #{mod\ 4009}#)))
- (if #{l\ 4026}#
- (cons #{l\ 4026}# #{r\ 4008}#)
+ (let ((#{l\ 20961}#
+ (#{match-each-any\ 20832}#
+ #{e\ 20940}#
+ #{w\ 20942}#
+ #{mod\ 20944}#)))
+ (if #{l\ 20961}#
+ (cons #{l\ 20961}# #{r\ 20943}#)
#f)))
(begin
- (let ((#{atom-key\ 4032}#
- (vector-ref #{p\ 4006}# 0)))
- (if (eqv? #{atom-key\ 4032}# (quote each))
- (if (null? #{e\ 4005}#)
- (#{match-empty\ 3899}#
- (vector-ref #{p\ 4006}# 1)
- #{r\ 4008}#)
+ (let ((#{atom-key\ 20967}#
+ (vector-ref #{p\ 20941}# 0)))
+ (if (eqv? #{atom-key\ 20967}# (quote each))
+ (if (null? #{e\ 20940}#)
+ (#{match-empty\ 20834}#
+ (vector-ref #{p\ 20941}# 1)
+ #{r\ 20943}#)
(begin
- (let ((#{l\ 4035}#
- (#{match-each\ 3893}#
- #{e\ 4005}#
- (vector-ref #{p\ 4006}# 1)
- #{w\ 4007}#
- #{mod\ 4009}#)))
- (if #{l\ 4035}#
+ (let ((#{l\ 20970}#
+ (#{match-each\ 20828}#
+ #{e\ 20940}#
+ (vector-ref #{p\ 20941}# 1)
+ #{w\ 20942}#
+ #{mod\ 20944}#)))
+ (if #{l\ 20970}#
(letrec*
- ((#{collect\ 4040}#
- (lambda (#{l\ 4041}#)
- (if (null? (car #{l\ 4041}#))
- #{r\ 4008}#
- (cons (map car #{l\ 4041}#)
- (#{collect\ 4040}#
+ ((#{collect\ 20975}#
+ (lambda (#{l\ 20976}#)
+ (if (null? (car #{l\ 20976}#))
+ #{r\ 20943}#
+ (cons (map car #{l\ 20976}#)
+ (#{collect\ 20975}#
(map cdr
- #{l\ 4041}#)))))))
+ #{l\
20976}#)))))))
(begin
- (#{collect\ 4040}# #{l\ 4035}#)))
+ (#{collect\ 20975}# #{l\ 20970}#)))
#f))))
- (if (eqv? #{atom-key\ 4032}# (quote each+))
+ (if (eqv? #{atom-key\ 20967}# (quote each+))
(call-with-values
(lambda ()
- (#{match-each+\ 3895}#
- #{e\ 4005}#
- (vector-ref #{p\ 4006}# 1)
- (vector-ref #{p\ 4006}# 2)
- (vector-ref #{p\ 4006}# 3)
- #{w\ 4007}#
- #{r\ 4008}#
- #{mod\ 4009}#))
- (lambda (#{xr*\ 4043}#
- #{y-pat\ 4044}#
- #{r\ 4045}#)
- (if #{r\ 4045}#
- (if (null? #{y-pat\ 4044}#)
- (if (null? #{xr*\ 4043}#)
- (#{match-empty\ 3899}#
- (vector-ref #{p\ 4006}# 1)
- #{r\ 4045}#)
- (#{combine\ 3901}#
- #{xr*\ 4043}#
- #{r\ 4045}#))
+ (#{match-each+\ 20830}#
+ #{e\ 20940}#
+ (vector-ref #{p\ 20941}# 1)
+ (vector-ref #{p\ 20941}# 2)
+ (vector-ref #{p\ 20941}# 3)
+ #{w\ 20942}#
+ #{r\ 20943}#
+ #{mod\ 20944}#))
+ (lambda (#{xr*\ 20978}#
+ #{y-pat\ 20979}#
+ #{r\ 20980}#)
+ (if #{r\ 20980}#
+ (if (null? #{y-pat\ 20979}#)
+ (if (null? #{xr*\ 20978}#)
+ (#{match-empty\ 20834}#
+ (vector-ref #{p\ 20941}# 1)
+ #{r\ 20980}#)
+ (#{combine\ 20836}#
+ #{xr*\ 20978}#
+ #{r\ 20980}#))
#f)
#f)))
- (if (eqv? #{atom-key\ 4032}# (quote free-id))
- (if (#{id?\ 380}# #{e\ 4005}#)
- (if (#{free-id=?\ 439}#
- (#{wrap\ 449}#
- #{e\ 4005}#
- #{w\ 4007}#
- #{mod\ 4009}#)
- (vector-ref #{p\ 4006}# 1))
- #{r\ 4008}#
+ (if (eqv? #{atom-key\ 20967}# (quote free-id))
+ (if (#{id?\ 17315}# #{e\ 20940}#)
+ (if (#{free-id=?\ 17374}#
+ (#{wrap\ 17384}#
+ #{e\ 20940}#
+ #{w\ 20942}#
+ #{mod\ 20944}#)
+ (vector-ref #{p\ 20941}# 1))
+ #{r\ 20943}#
#f)
#f)
- (if (eqv? #{atom-key\ 4032}# (quote atom))
+ (if (eqv? #{atom-key\ 20967}# (quote atom))
(if (equal?
- (vector-ref #{p\ 4006}# 1)
- (#{strip\ 491}#
- #{e\ 4005}#
- #{w\ 4007}#))
- #{r\ 4008}#
+ (vector-ref #{p\ 20941}# 1)
+ (#{strip\ 17426}#
+ #{e\ 20940}#
+ #{w\ 20942}#))
+ #{r\ 20943}#
#f)
- (if (eqv? #{atom-key\ 4032}#
+ (if (eqv? #{atom-key\ 20967}#
'vector)
- (if (vector? #{e\ 4005}#)
- (#{match\ 3905}#
- (vector->list #{e\ 4005}#)
- (vector-ref #{p\ 4006}# 1)
- #{w\ 4007}#
- #{r\ 4008}#
- #{mod\ 4009}#)
+ (if (vector? #{e\ 20940}#)
+ (#{match\ 20840}#
+ (vector->list #{e\ 20940}#)
+ (vector-ref #{p\ 20941}# 1)
+ #{w\ 20942}#
+ #{r\ 20943}#
+ #{mod\ 20944}#)
#f)))))))))))))
- (#{match\ 3905}#
- (lambda (#{e\ 4062}#
- #{p\ 4063}#
- #{w\ 4064}#
- #{r\ 4065}#
- #{mod\ 4066}#)
- (if (not #{r\ 4065}#)
+ (#{match\ 20840}#
+ (lambda (#{e\ 20997}#
+ #{p\ 20998}#
+ #{w\ 20999}#
+ #{r\ 21000}#
+ #{mod\ 21001}#)
+ (if (not #{r\ 21000}#)
#f
- (if (eq? #{p\ 4063}# (quote _))
- #{r\ 4065}#
- (if (eq? #{p\ 4063}# (quote any))
- (cons (#{wrap\ 449}#
- #{e\ 4062}#
- #{w\ 4064}#
- #{mod\ 4066}#)
- #{r\ 4065}#)
- (if (#{syntax-object?\ 344}# #{e\ 4062}#)
- (#{match*\ 3903}#
- (#{syntax-object-expression\ 346}# #{e\ 4062}#)
- #{p\ 4063}#
- (#{join-wraps\ 431}#
- #{w\ 4064}#
- (#{syntax-object-wrap\ 348}# #{e\ 4062}#))
- #{r\ 4065}#
- (#{syntax-object-module\ 350}# #{e\ 4062}#))
- (#{match*\ 3903}#
- #{e\ 4062}#
- #{p\ 4063}#
- #{w\ 4064}#
- #{r\ 4065}#
- #{mod\ 4066}#))))))))
+ (if (eq? #{p\ 20998}# (quote _))
+ #{r\ 21000}#
+ (if (eq? #{p\ 20998}# (quote any))
+ (cons (#{wrap\ 17384}#
+ #{e\ 20997}#
+ #{w\ 20999}#
+ #{mod\ 21001}#)
+ #{r\ 21000}#)
+ (if (#{syntax-object?\ 17279}# #{e\ 20997}#)
+ (#{match*\ 20838}#
+ (#{syntax-object-expression\ 17281}#
+ #{e\ 20997}#)
+ #{p\ 20998}#
+ (#{join-wraps\ 17366}#
+ #{w\ 20999}#
+ (#{syntax-object-wrap\ 17283}# #{e\ 20997}#))
+ #{r\ 21000}#
+ (#{syntax-object-module\ 17285}# #{e\ 20997}#))
+ (#{match*\ 20838}#
+ #{e\ 20997}#
+ #{p\ 20998}#
+ #{w\ 20999}#
+ #{r\ 21000}#
+ #{mod\ 21001}#))))))))
(begin
(set! $sc-dispatch
- (lambda (#{e\ 4081}# #{p\ 4082}#)
- (if (eq? #{p\ 4082}# (quote any))
- (list #{e\ 4081}#)
- (if (eq? #{p\ 4082}# (quote _))
+ (lambda (#{e\ 21016}# #{p\ 21017}#)
+ (if (eq? #{p\ 21017}# (quote any))
+ (list #{e\ 21016}#)
+ (if (eq? #{p\ 21017}# (quote _))
'()
- (if (#{syntax-object?\ 344}# #{e\ 4081}#)
- (#{match*\ 3903}#
- (#{syntax-object-expression\ 346}# #{e\ 4081}#)
- #{p\ 4082}#
- (#{syntax-object-wrap\ 348}# #{e\ 4081}#)
+ (if (#{syntax-object?\ 17279}# #{e\ 21016}#)
+ (#{match*\ 20838}#
+ (#{syntax-object-expression\ 17281}#
+ #{e\ 21016}#)
+ #{p\ 21017}#
+ (#{syntax-object-wrap\ 17283}# #{e\ 21016}#)
'()
- (#{syntax-object-module\ 350}# #{e\ 4081}#))
- (#{match*\ 3903}#
- #{e\ 4081}#
- #{p\ 4082}#
+ (#{syntax-object-module\ 17285}# #{e\ 21016}#))
+ (#{match*\ 20838}#
+ #{e\ 21016}#
+ #{p\ 21017}#
'(())
'()
#f))))))))))))))
@@ -14611,81 +14761,84 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4093}#)
- (let ((#{tmp\ 4095}# #{x\ 4093}#))
- (let ((#{tmp\ 4096}#
+ (lambda (#{x\ 21028}#)
+ (let ((#{tmp\ 21030}# #{x\ 21028}#))
+ (let ((#{tmp\ 21031}#
($sc-dispatch
- #{tmp\ 4095}#
+ #{tmp\ 21030}#
'(_ () any . each-any))))
- (if #{tmp\ 4096}#
+ (if #{tmp\ 21031}#
(@apply
- (lambda (#{e1\ 4099}# #{e2\ 4100}#)
+ (lambda (#{e1\ 21034}# #{e2\ 21035}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4097" "i4098"))
+ #("i21032" "i21033"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4094")))
+ #(ribcage #(x) #((top)) #("i21029")))
(hygiene guile))
- (cons #{e1\ 4099}# #{e2\ 4100}#)))
- #{tmp\ 4096}#)
- (let ((#{tmp\ 4102}#
+ (cons #{e1\ 21034}# #{e2\ 21035}#)))
+ #{tmp\ 21031}#)
+ (let ((#{tmp\ 21037}#
($sc-dispatch
- #{tmp\ 4095}#
+ #{tmp\ 21030}#
'(_ ((any any)) any . each-any))))
- (if #{tmp\ 4102}#
+ (if #{tmp\ 21037}#
(@apply
- (lambda (#{out\ 4107}#
- #{in\ 4108}#
- #{e1\ 4109}#
- #{e2\ 4110}#)
+ (lambda (#{out\ 21042}#
+ #{in\ 21043}#
+ #{e1\ 21044}#
+ #{e2\ 21045}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4103" "i4104" "i4105" "i4106"))
+ #("i21038" "i21039" "i21040" "i21041"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4094")))
+ #(ribcage #(x) #((top)) #("i21029")))
(hygiene guile))
- #{in\ 4108}#
+ #{in\ 21043}#
'()
- (list #{out\ 4107}#
+ (list #{out\ 21042}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4103" "i4104" "i4105" "i4106"))
+ #("i21038"
+ "i21039"
+ "i21040"
+ "i21041"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4094")))
+ #(ribcage #(x) #((top)) #("i21029")))
(hygiene guile))
- (cons #{e1\ 4109}# #{e2\ 4110}#)))))
- #{tmp\ 4102}#)
- (let ((#{tmp\ 4112}#
+ (cons #{e1\ 21044}# #{e2\ 21045}#)))))
+ #{tmp\ 21037}#)
+ (let ((#{tmp\ 21047}#
($sc-dispatch
- #{tmp\ 4095}#
+ #{tmp\ 21030}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 4112}#
+ (if #{tmp\ 21047}#
(@apply
- (lambda (#{out\ 4117}#
- #{in\ 4118}#
- #{e1\ 4119}#
- #{e2\ 4120}#)
+ (lambda (#{out\ 21052}#
+ #{in\ 21053}#
+ #{e1\ 21054}#
+ #{e2\ 21055}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4113" "i4114" "i4115" "i4116"))
+ #("i21048" "i21049" "i21050" "i21051"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4094")))
+ #(ribcage #(x) #((top)) #("i21029")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -14693,61 +14846,65 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4113" "i4114" "i4115" "i4116"))
+ #("i21048"
+ "i21049"
+ "i21050"
+ "i21051"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4094")))
+ #(ribcage #(x) #((top)) #("i21029")))
(hygiene guile))
- #{in\ 4118}#)
+ #{in\ 21053}#)
'()
- (list #{out\ 4117}#
+ (list #{out\ 21052}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4113"
- "i4114"
- "i4115"
- "i4116"))
+ #("i21048"
+ "i21049"
+ "i21050"
+ "i21051"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4094")))
+ #("i21029")))
(hygiene guile))
- (cons #{e1\ 4119}# #{e2\ 4120}#)))))
- #{tmp\ 4112}#)
+ (cons #{e1\ 21054}#
+ #{e2\ 21055}#)))))
+ #{tmp\ 21047}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4095}#)))))))))))
+ #{tmp\ 21030}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4124}#)
- (let ((#{tmp\ 4126}# #{x\ 4124}#))
- (let ((#{tmp\ 4127}#
+ (lambda (#{x\ 21059}#)
+ (let ((#{tmp\ 21061}# #{x\ 21059}#))
+ (let ((#{tmp\ 21062}#
($sc-dispatch
- #{tmp\ 4126}#
+ #{tmp\ 21061}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4127}#
+ (if #{tmp\ 21062}#
(@apply
- (lambda (#{k\ 4132}#
- #{keyword\ 4133}#
- #{pattern\ 4134}#
- #{template\ 4135}#)
+ (lambda (#{k\ 21067}#
+ #{keyword\ 21068}#
+ #{pattern\ 21069}#
+ #{template\ 21070}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4128" "i4129" "i4130" "i4131"))
+ #("i21063" "i21064" "i21065" "i21066"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4125")))
+ #(ribcage #(x) #((top)) #("i21060")))
(hygiene guile))
'(#(syntax-object
x
@@ -14755,9 +14912,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4128" "i4129" "i4130" "i4131"))
+ #("i21063" "i21064" "i21065" "i21066"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4125")))
+ #(ribcage #(x) #((top)) #("i21060")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -14766,9 +14923,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4128" "i4129" "i4130" "i4131"))
+ #("i21063" "i21064" "i21065" "i21066"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4125")))
+ #(ribcage #(x) #((top)) #("i21060")))
(hygiene guile))
.
#(syntax-object
@@ -14777,9 +14934,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4128" "i4129" "i4130" "i4131"))
+ #("i21063" "i21064" "i21065" "i21066"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4125")))
+ #(ribcage #(x) #((top)) #("i21060")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14787,20 +14944,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4128" "i4129" "i4130" "i4131"))
+ #("i21063" "i21064" "i21065" "i21066"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4125")))
+ #(ribcage #(x) #((top)) #("i21060")))
(hygiene guile))
- #{pattern\ 4134}#))
+ #{pattern\ 21069}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4128" "i4129" "i4130" "i4131"))
+ #("i21063" "i21064" "i21065" "i21066"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4125")))
+ #(ribcage #(x) #((top)) #("i21060")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14808,13 +14965,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4128" "i4129" "i4130" "i4131"))
+ #("i21063" "i21064" "i21065" "i21066"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4125")))
+ #(ribcage #(x) #((top)) #("i21060")))
(hygiene guile))
- (cons #{k\ 4132}#
- (map (lambda (#{tmp\ 4139}#
- #{tmp\ 4138}#)
+ (cons #{k\ 21067}#
+ (map (lambda (#{tmp\ 21074}#
+ #{tmp\ 21073}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14827,10 +14984,10 @@
(top)
(top)
(top))
- #("i4128"
- "i4129"
- "i4130"
- "i4131"))
+ #("i21063"
+ "i21064"
+ "i21065"
+ "i21066"))
#(ribcage
()
()
@@ -14838,9 +14995,9 @@
#(ribcage
#(x)
#((top))
- #("i4125")))
+ #("i21060")))
(hygiene guile))
- #{tmp\ 4138}#)
+ #{tmp\ 21073}#)
(list '#(syntax-object
syntax
((top)
@@ -14853,10 +15010,10 @@
(top)
(top)
(top))
- #("i4128"
- "i4129"
- "i4130"
- "i4131"))
+ #("i21063"
+ "i21064"
+ "i21065"
+ "i21066"))
#(ribcage
()
()
@@ -14864,47 +15021,47 @@
#(ribcage
#(x)
#((top))
- #("i4125")))
+ #("i21060")))
(hygiene guile))
- #{tmp\ 4139}#)))
- #{template\ 4135}#
- #{pattern\ 4134}#))))))
- #{tmp\ 4127}#)
+ #{tmp\ 21074}#)))
+ #{template\ 21070}#
+ #{pattern\ 21069}#))))))
+ #{tmp\ 21062}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4126}#)))))))
+ #{tmp\ 21061}#)))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4140}#)
- (let ((#{tmp\ 4142}# #{x\ 4140}#))
- (let ((#{tmp\ 4143}#
+ (lambda (#{x\ 21075}#)
+ (let ((#{tmp\ 21077}# #{x\ 21075}#))
+ (let ((#{tmp\ 21078}#
($sc-dispatch
- #{tmp\ 4142}#
+ #{tmp\ 21077}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4143}#
+ (if (if #{tmp\ 21078}#
(@apply
- (lambda (#{let*\ 4149}#
- #{x\ 4150}#
- #{v\ 4151}#
- #{e1\ 4152}#
- #{e2\ 4153}#)
- (and-map identifier? #{x\ 4150}#))
- #{tmp\ 4143}#)
+ (lambda (#{let*\ 21084}#
+ #{x\ 21085}#
+ #{v\ 21086}#
+ #{e1\ 21087}#
+ #{e2\ 21088}#)
+ (and-map identifier? #{x\ 21085}#))
+ #{tmp\ 21078}#)
#f)
(@apply
- (lambda (#{let*\ 4160}#
- #{x\ 4161}#
- #{v\ 4162}#
- #{e1\ 4163}#
- #{e2\ 4164}#)
+ (lambda (#{let*\ 21095}#
+ #{x\ 21096}#
+ #{v\ 21097}#
+ #{e1\ 21098}#
+ #{e2\ 21099}#)
(letrec*
- ((#{f\ 4167}#
- (lambda (#{bindings\ 4168}#)
- (if (null? #{bindings\ 4168}#)
+ ((#{f\ 21102}#
+ (lambda (#{bindings\ 21103}#)
+ (if (null? #{bindings\ 21103}#)
(cons '#(syntax-object
let
((top)
@@ -14912,128 +15069,129 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4165" "i4166"))
+ #("i21100" "i21101"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i21090"
+ "i21091"
+ "i21092"
+ "i21093"
+ "i21094"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4141")))
+ #(ribcage #(x) #((top)) #("i21076")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4163}# #{e2\ 4164}#)))
- (let ((#{tmp\ 4173}#
- (list (#{f\ 4167}# (cdr #{bindings\ 4168}#))
- (car #{bindings\ 4168}#))))
- (let ((#{tmp\ 4174}#
+ (cons #{e1\ 21098}# #{e2\ 21099}#)))
+ (let ((#{tmp\ 21108}#
+ (list (#{f\ 21102}# (cdr #{bindings\ 21103}#))
+ (car #{bindings\ 21103}#))))
+ (let ((#{tmp\ 21109}#
($sc-dispatch
- #{tmp\ 4173}#
+ #{tmp\ 21108}#
'(any any))))
- (if #{tmp\ 4174}#
+ (if #{tmp\ 21109}#
(@apply
- (lambda (#{body\ 4177}# #{binding\ 4178}#)
+ (lambda (#{body\ 21112}# #{binding\ 21113}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4175" "i4176"))
+ #("i21110" "i21111"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4165" "i4166"))
+ #("i21100" "i21101"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i21090"
+ "i21091"
+ "i21092"
+ "i21093"
+ "i21094"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4141")))
+ #("i21076")))
(hygiene guile))
- (list #{binding\ 4178}#)
- #{body\ 4177}#))
- #{tmp\ 4174}#)
+ (list #{binding\ 21113}#)
+ #{body\ 21112}#))
+ #{tmp\ 21109}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4173}#))))))))
+ #{tmp\ 21108}#))))))))
(begin
- (#{f\ 4167}# (map list #{x\ 4161}# #{v\ 4162}#)))))
- #{tmp\ 4143}#)
+ (#{f\ 21102}#
+ (map list #{x\ 21096}# #{v\ 21097}#)))))
+ #{tmp\ 21078}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4142}#)))))))
+ #{tmp\ 21077}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4179}#)
- (let ((#{tmp\ 4181}# #{orig-x\ 4179}#))
- (let ((#{tmp\ 4182}#
+ (lambda (#{orig-x\ 21114}#)
+ (let ((#{tmp\ 21116}# #{orig-x\ 21114}#))
+ (let ((#{tmp\ 21117}#
($sc-dispatch
- #{tmp\ 4181}#
+ #{tmp\ 21116}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp\ 4182}#
+ (if #{tmp\ 21117}#
(@apply
- (lambda (#{var\ 4189}#
- #{init\ 4190}#
- #{step\ 4191}#
- #{e0\ 4192}#
- #{e1\ 4193}#
- #{c\ 4194}#)
- (let ((#{tmp\ 4196}#
- (map (lambda (#{v\ 4217}# #{s\ 4218}#)
- (let ((#{tmp\ 4221}# #{s\ 4218}#))
- (let ((#{tmp\ 4222}#
+ (lambda (#{var\ 21124}#
+ #{init\ 21125}#
+ #{step\ 21126}#
+ #{e0\ 21127}#
+ #{e1\ 21128}#
+ #{c\ 21129}#)
+ (let ((#{tmp\ 21131}#
+ (map (lambda (#{v\ 21152}# #{s\ 21153}#)
+ (let ((#{tmp\ 21156}# #{s\ 21153}#))
+ (let ((#{tmp\ 21157}#
($sc-dispatch
- #{tmp\ 4221}#
+ #{tmp\ 21156}#
'())))
- (if #{tmp\ 4222}#
+ (if #{tmp\ 21157}#
(@apply
- (lambda () #{v\ 4217}#)
- #{tmp\ 4222}#)
- (let ((#{tmp\ 4223}#
+ (lambda () #{v\ 21152}#)
+ #{tmp\ 21157}#)
+ (let ((#{tmp\ 21158}#
($sc-dispatch
- #{tmp\ 4221}#
+ #{tmp\ 21156}#
'(any))))
- (if #{tmp\ 4223}#
+ (if #{tmp\ 21158}#
(@apply
- (lambda (#{e\ 4225}#) #{e\ 4225}#)
- #{tmp\ 4223}#)
- (let ((#{_\ 4227}# #{tmp\ 4221}#))
+ (lambda (#{e\ 21160}#) #{e\ 21160}#)
+ #{tmp\ 21158}#)
+ (let ((#{_\ 21162}# #{tmp\ 21156}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4179}#
- #{s\ 4218}#))))))))
- #{var\ 4189}#
- #{step\ 4191}#)))
- (let ((#{tmp\ 4197}#
- ($sc-dispatch #{tmp\ 4196}# (quote each-any))))
- (if #{tmp\ 4197}#
+ #{orig-x\ 21114}#
+ #{s\ 21153}#))))))))
+ #{var\ 21124}#
+ #{step\ 21126}#)))
+ (let ((#{tmp\ 21132}#
+ ($sc-dispatch #{tmp\ 21131}# (quote each-any))))
+ (if #{tmp\ 21132}#
(@apply
- (lambda (#{step\ 4199}#)
- (let ((#{tmp\ 4200}# #{e1\ 4193}#))
- (let ((#{tmp\ 4201}#
- ($sc-dispatch #{tmp\ 4200}# (quote ()))))
- (if #{tmp\ 4201}#
+ (lambda (#{step\ 21134}#)
+ (let ((#{tmp\ 21135}# #{e1\ 21128}#))
+ (let ((#{tmp\ 21136}#
+ ($sc-dispatch #{tmp\ 21135}# (quote ()))))
+ (if #{tmp\ 21136}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -15042,7 +15200,7 @@
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15051,17 +15209,17 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15069,7 +15227,7 @@
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15078,28 +15236,28 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
(map list
- #{var\ 4189}#
- #{init\ 4190}#)
+ #{var\ 21124}#
+ #{init\ 21125}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15108,17 +15266,17 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
(list '#(syntax-object
not
@@ -15126,7 +15284,7 @@
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var
init
@@ -15140,26 +15298,26 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
- #{e0\ 4192}#)
+ #{e0\ 21127}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var
init
@@ -15173,27 +15331,27 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
(append
- #{c\ 4194}#
+ #{c\ 21129}#
(list (cons
'#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i4198"))
+
#("i21133"))
#(ribcage
#(var
init
@@ -15207,12 +15365,12 @@
(top)
(top)
(top))
-
#("i4183"
-
"i4184"
-
"i4185"
-
"i4186"
-
"i4187"
-
"i4188"))
+
#("i21118"
+
"i21119"
+
"i21120"
+
"i21121"
+
"i21122"
+
"i21123"))
#(ribcage
()
()
@@ -15220,29 +15378,29 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4180")))
+
#("i21115")))
(hygiene
guile))
- #{step\
4199}#)))))))
- #{tmp\ 4201}#)
- (let ((#{tmp\ 4206}#
+ #{step\
21134}#)))))))
+ #{tmp\ 21136}#)
+ (let ((#{tmp\ 21141}#
($sc-dispatch
- #{tmp\ 4200}#
+ #{tmp\ 21135}#
'(any . each-any))))
- (if #{tmp\ 4206}#
+ (if #{tmp\ 21141}#
(@apply
- (lambda (#{e1\ 4209}# #{e2\ 4210}#)
+ (lambda (#{e1\ 21144}# #{e2\ 21145}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4207" "i4208"))
+ #("i21142" "i21143"))
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15251,17 +15409,17 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15269,11 +15427,11 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4207" "i4208"))
+ #("i21142" "i21143"))
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15282,32 +15440,32 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
(map list
- #{var\ 4189}#
- #{init\ 4190}#)
+ #{var\ 21124}#
+ #{init\ 21125}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4207" "i4208"))
+ #("i21142" "i21143"))
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var
init
@@ -15321,31 +15479,31 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
- #{e0\ 4192}#
+ #{e0\ 21127}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4207"
- "i4208"))
+ #("i21142"
+ "i21143"))
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var
init
@@ -15359,12 +15517,12 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage
()
()
@@ -15372,22 +15530,22 @@
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
- (cons #{e1\ 4209}#
- #{e2\ 4210}#))
+ (cons #{e1\ 21144}#
+ #{e2\ 21145}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4207"
- "i4208"))
+ #("i21142"
+ "i21143"))
#(ribcage
#(step)
#((top))
- #("i4198"))
+ #("i21133"))
#(ribcage
#(var
init
@@ -15401,12 +15559,12 @@
(top)
(top)
(top))
- #("i4183"
- "i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i21118"
+ "i21119"
+ "i21120"
+ "i21121"
+ "i21122"
+ "i21123"))
#(ribcage
()
()
@@ -15414,10 +15572,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4180")))
+ #("i21115")))
(hygiene guile))
(append
- #{c\ 4194}#
+ #{c\ 21129}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -15426,12 +15584,12 @@
e2)
#((top)
(top))
-
#("i4207"
-
"i4208"))
+
#("i21142"
+
"i21143"))
#(ribcage
#(step)
#((top))
-
#("i4198"))
+
#("i21133"))
#(ribcage
#(var
init
@@ -15445,12 +15603,12 @@
(top)
(top)
(top))
-
#("i4183"
-
"i4184"
-
"i4185"
-
"i4186"
-
"i4187"
-
"i4188"))
+
#("i21118"
+
"i21119"
+
"i21120"
+
"i21121"
+
"i21122"
+
"i21123"))
#(ribcage
()
()
@@ -15458,43 +15616,43 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4180")))
+
#("i21115")))
(hygiene
guile))
-
#{step\ 4199}#)))))))
- #{tmp\ 4206}#)
+
#{step\ 21134}#)))))))
+ #{tmp\ 21141}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4200}#)))))))
- #{tmp\ 4197}#)
+ #{tmp\ 21135}#)))))))
+ #{tmp\ 21132}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4196}#)))))
- #{tmp\ 4182}#)
+ #{tmp\ 21131}#)))))
+ #{tmp\ 21117}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4181}#)))))))
+ #{tmp\ 21116}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasicons\ 4234}#
- (lambda (#{x\ 4238}# #{y\ 4239}#)
- (let ((#{tmp\ 4243}# (list #{x\ 4238}# #{y\ 4239}#)))
- (let ((#{tmp\ 4244}#
- ($sc-dispatch #{tmp\ 4243}# (quote (any any)))))
- (if #{tmp\ 4244}#
+ ((#{quasicons\ 21169}#
+ (lambda (#{x\ 21173}# #{y\ 21174}#)
+ (let ((#{tmp\ 21178}# (list #{x\ 21173}# #{y\ 21174}#)))
+ (let ((#{tmp\ 21179}#
+ ($sc-dispatch #{tmp\ 21178}# (quote (any any)))))
+ (if #{tmp\ 21179}#
(@apply
- (lambda (#{x\ 4247}# #{y\ 4248}#)
- (let ((#{tmp\ 4249}# #{y\ 4248}#))
- (let ((#{tmp\ 4250}#
+ (lambda (#{x\ 21182}# #{y\ 21183}#)
+ (let ((#{tmp\ 21184}# #{y\ 21183}#))
+ (let ((#{tmp\ 21185}#
($sc-dispatch
- #{tmp\ 4249}#
+ #{tmp\ 21184}#
'(#(free-id
#(syntax-object
quote
@@ -15502,29 +15660,32 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4245" "i4246"))
+ #("i21180" "i21181"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4240" "i4241"))
+ #("i21175" "i21176"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
any))))
- (if #{tmp\ 4250}#
+ (if #{tmp\ 21185}#
(@apply
- (lambda (#{dy\ 4252}#)
- (let ((#{tmp\ 4253}# #{x\ 4247}#))
- (let ((#{tmp\ 4254}#
+ (lambda (#{dy\ 21187}#)
+ (let ((#{tmp\ 21188}# #{x\ 21182}#))
+ (let ((#{tmp\ 21189}#
($sc-dispatch
- #{tmp\ 4253}#
+ #{tmp\ 21188}#
'(#(free-id
#(syntax-object
quote
@@ -15532,140 +15693,140 @@
#(ribcage
#(dy)
#((top))
- #("i4251"))
+ #("i21186"))
#(ribcage
#(x y)
#((top) (top))
- #("i4245" "i4246"))
+ #("i21180" "i21181"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4240" "i4241"))
+ #("i21175" "i21176"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
any))))
- (if #{tmp\ 4254}#
+ (if #{tmp\ 21189}#
(@apply
- (lambda (#{dx\ 4256}#)
+ (lambda (#{dx\ 21191}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4255"))
+ #("i21190"))
#(ribcage
#(dy)
#((top))
- #("i4251"))
+ #("i21186"))
#(ribcage
#(x y)
#((top) (top))
- #("i4245" "i4246"))
+ #("i21180" "i21181"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4240" "i4241"))
+ #("i21175" "i21176"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- (cons #{dx\ 4256}#
- #{dy\ 4252}#)))
- #{tmp\ 4254}#)
- (let ((#{_\ 4258}# #{tmp\ 4253}#))
- (if (null? #{dy\ 4252}#)
+ (cons #{dx\ 21191}#
+ #{dy\ 21187}#)))
+ #{tmp\ 21189}#)
+ (let ((#{_\ 21193}# #{tmp\ 21188}#))
+ (if (null? #{dy\ 21187}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4257"))
+ #("i21192"))
#(ribcage
#(dy)
#((top))
- #("i4251"))
+ #("i21186"))
#(ribcage
#(x y)
#((top) (top))
- #("i4245" "i4246"))
+ #("i21180" "i21181"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4240" "i4241"))
+ #("i21175" "i21176"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- #{x\ 4247}#)
+ #{x\ 21182}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4257"))
+ #("i21192"))
#(ribcage
#(dy)
#((top))
- #("i4251"))
+ #("i21186"))
#(ribcage
#(x y)
#((top) (top))
- #("i4245" "i4246"))
+ #("i21180" "i21181"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4240" "i4241"))
+ #("i21175" "i21176"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- #{x\ 4247}#
- #{y\ 4248}#)))))))
- #{tmp\ 4250}#)
- (let ((#{tmp\ 4259}#
+ #{x\ 21182}#
+ #{y\ 21183}#)))))))
+ #{tmp\ 21185}#)
+ (let ((#{tmp\ 21194}#
($sc-dispatch
- #{tmp\ 4249}#
+ #{tmp\ 21184}#
'(#(free-id
#(syntax-object
list
@@ -15673,107 +15834,107 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4245" "i4246"))
+ #("i21180" "i21181"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4240" "i4241"))
+ #("i21175" "i21176"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
.
any))))
- (if #{tmp\ 4259}#
+ (if #{tmp\ 21194}#
(@apply
- (lambda (#{stuff\ 4261}#)
+ (lambda (#{stuff\ 21196}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4260"))
+ #("i21195"))
#(ribcage
#(x y)
#((top) (top))
- #("i4245" "i4246"))
+ #("i21180" "i21181"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4240" "i4241"))
+ #("i21175" "i21176"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- (cons #{x\ 4247}# #{stuff\ 4261}#)))
- #{tmp\ 4259}#)
- (let ((#{else\ 4263}# #{tmp\ 4249}#))
+ (cons #{x\ 21182}# #{stuff\ 21196}#)))
+ #{tmp\ 21194}#)
+ (let ((#{else\ 21198}# #{tmp\ 21184}#))
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4262"))
+ #("i21197"))
#(ribcage
#(x y)
#((top) (top))
- #("i4245" "i4246"))
+ #("i21180" "i21181"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4240" "i4241"))
+ #("i21175" "i21176"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- #{x\ 4247}#
- #{y\ 4248}#))))))))
- #{tmp\ 4244}#)
+ #{x\ 21182}#
+ #{y\ 21183}#))))))))
+ #{tmp\ 21179}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4243}#))))))
- (#{quasiappend\ 4235}#
- (lambda (#{x\ 4264}# #{y\ 4265}#)
- (let ((#{tmp\ 4269}# (list #{x\ 4264}# #{y\ 4265}#)))
- (let ((#{tmp\ 4270}#
- ($sc-dispatch #{tmp\ 4269}# (quote (any any)))))
- (if #{tmp\ 4270}#
+ #{tmp\ 21178}#))))))
+ (#{quasiappend\ 21170}#
+ (lambda (#{x\ 21199}# #{y\ 21200}#)
+ (let ((#{tmp\ 21204}# (list #{x\ 21199}# #{y\ 21200}#)))
+ (let ((#{tmp\ 21205}#
+ ($sc-dispatch #{tmp\ 21204}# (quote (any any)))))
+ (if #{tmp\ 21205}#
(@apply
- (lambda (#{x\ 4273}# #{y\ 4274}#)
- (let ((#{tmp\ 4275}# #{y\ 4274}#))
- (let ((#{tmp\ 4276}#
+ (lambda (#{x\ 21208}# #{y\ 21209}#)
+ (let ((#{tmp\ 21210}# #{y\ 21209}#))
+ (let ((#{tmp\ 21211}#
($sc-dispatch
- #{tmp\ 4275}#
+ #{tmp\ 21210}#
'(#(free-id
#(syntax-object
quote
@@ -15781,160 +15942,172 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4271" "i4272"))
+ #("i21206" "i21207"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4266" "i4267"))
+ #("i21201" "i21202"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
()))))
- (if #{tmp\ 4276}#
- (@apply (lambda () #{x\ 4273}#) #{tmp\ 4276}#)
- (let ((#{_\ 4278}# #{tmp\ 4275}#))
+ (if #{tmp\ 21211}#
+ (@apply (lambda () #{x\ 21208}#) #{tmp\ 21211}#)
+ (let ((#{_\ 21213}# #{tmp\ 21210}#))
(list '#(syntax-object
append
((top)
- #(ribcage #(_) #((top)) #("i4277"))
+ #(ribcage #(_) #((top)) #("i21212"))
#(ribcage
#(x y)
#((top) (top))
- #("i4271" "i4272"))
+ #("i21206" "i21207"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4266" "i4267"))
+ #("i21201" "i21202"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- #{x\ 4273}#
- #{y\ 4274}#))))))
- #{tmp\ 4270}#)
+ #{x\ 21208}#
+ #{y\ 21209}#))))))
+ #{tmp\ 21205}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4269}#))))))
- (#{quasivector\ 4236}#
- (lambda (#{x\ 4279}#)
- (let ((#{tmp\ 4282}# #{x\ 4279}#))
- (let ((#{x\ 4284}# #{tmp\ 4282}#))
- (let ((#{tmp\ 4285}# #{x\ 4284}#))
- (let ((#{tmp\ 4286}#
+ #{tmp\ 21204}#))))))
+ (#{quasivector\ 21171}#
+ (lambda (#{x\ 21214}#)
+ (let ((#{tmp\ 21217}# #{x\ 21214}#))
+ (let ((#{x\ 21219}# #{tmp\ 21217}#))
+ (let ((#{tmp\ 21220}# #{x\ 21219}#))
+ (let ((#{tmp\ 21221}#
($sc-dispatch
- #{tmp\ 4285}#
+ #{tmp\ 21220}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4283"))
+ #(ribcage #(x) #((top)) #("i21218"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4280"))
+ #(ribcage #(x) #((top)) #("i21215"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165" "i21166" "i21167" "i21168")))
(hygiene guile)))
each-any))))
- (if #{tmp\ 4286}#
+ (if #{tmp\ 21221}#
(@apply
- (lambda (#{x\ 4288}#)
+ (lambda (#{x\ 21223}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4287"))
- #(ribcage #(x) #((top)) #("i4283"))
+ #(ribcage #(x) #((top)) #("i21222"))
+ #(ribcage #(x) #((top)) #("i21218"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4280"))
+ #(ribcage #(x) #((top)) #("i21215"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165" "i21166" "i21167" "i21168")))
(hygiene guile))
- (list->vector #{x\ 4288}#)))
- #{tmp\ 4286}#)
- (let ((#{tmp\ 4290}#
+ (list->vector #{x\ 21223}#)))
+ #{tmp\ 21221}#)
+ (let ((#{tmp\ 21225}#
($sc-dispatch
- #{tmp\ 4285}#
+ #{tmp\ 21220}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i4283"))
+ #(ribcage #(x) #((top)) #("i21218"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4280"))
+ #(ribcage #(x) #((top)) #("i21215"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4290}#
+ (if #{tmp\ 21225}#
(@apply
- (lambda (#{x\ 4292}#)
+ (lambda (#{x\ 21227}#)
(cons '#(syntax-object
vector
((top)
- #(ribcage #(x) #((top)) #("i4291"))
- #(ribcage #(x) #((top)) #("i4283"))
+ #(ribcage #(x) #((top)) #("i21226"))
+ #(ribcage #(x) #((top)) #("i21218"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4280"))
+ #(ribcage #(x) #((top)) #("i21215"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- #{x\ 4292}#))
- #{tmp\ 4290}#)
- (let ((#{_\ 4295}# #{tmp\ 4285}#))
+ #{x\ 21227}#))
+ #{tmp\ 21225}#)
+ (let ((#{_\ 21230}# #{tmp\ 21220}#))
(list '#(syntax-object
list->vector
((top)
- #(ribcage #(_) #((top)) #("i4294"))
- #(ribcage #(x) #((top)) #("i4283"))
+ #(ribcage #(_) #((top)) #("i21229"))
+ #(ribcage #(x) #((top)) #("i21218"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4280"))
+ #(ribcage #(x) #((top)) #("i21215"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165" "i21166" "i21167" "i21168")))
(hygiene guile))
- #{x\ 4284}#)))))))))))
- (#{quasi\ 4237}#
- (lambda (#{p\ 4296}# #{lev\ 4297}#)
- (let ((#{tmp\ 4300}# #{p\ 4296}#))
- (let ((#{tmp\ 4301}#
+ #{x\ 21219}#)))))))))))
+ (#{quasi\ 21172}#
+ (lambda (#{p\ 21231}# #{lev\ 21232}#)
+ (let ((#{tmp\ 21235}# #{p\ 21231}#))
+ (let ((#{tmp\ 21236}#
($sc-dispatch
- #{tmp\ 4300}#
+ #{tmp\ 21235}#
'(#(free-id
#(syntax-object
unquote
@@ -15943,54 +16116,54 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165" "i21166" "i21167" "i21168")))
(hygiene guile)))
any))))
- (if #{tmp\ 4301}#
+ (if #{tmp\ 21236}#
(@apply
- (lambda (#{p\ 4303}#)
- (if (= #{lev\ 4297}# 0)
- #{p\ 4303}#
- (#{quasicons\ 4234}#
+ (lambda (#{p\ 21238}#)
+ (if (= #{lev\ 21232}# 0)
+ #{p\ 21238}#
+ (#{quasicons\ 21169}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4302"))
+ #(ribcage #(p) #((top)) #("i21237"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165" "i21166" "i21167" "i21168")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4302"))
+ #(ribcage #(p) #((top)) #("i21237"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165" "i21166" "i21167" "i21168")))
(hygiene guile)))
- (#{quasi\ 4237}#
- (list #{p\ 4303}#)
- (1- #{lev\ 4297}#)))))
- #{tmp\ 4301}#)
- (let ((#{tmp\ 4304}#
+ (#{quasi\ 21172}#
+ (list #{p\ 21238}#)
+ (1- #{lev\ 21232}#)))))
+ #{tmp\ 21236}#)
+ (let ((#{tmp\ 21239}#
($sc-dispatch
- #{tmp\ 4300}#
+ #{tmp\ 21235}#
'(#(free-id
#(syntax-object
unquote
@@ -15999,47 +16172,47 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165" "i21166" "i21167" "i21168")))
(hygiene guile)))
.
any))))
- (if (if #{tmp\ 4304}#
+ (if (if #{tmp\ 21239}#
(@apply
- (lambda (#{args\ 4306}#) (= #{lev\ 4297}# 0))
- #{tmp\ 4304}#)
+ (lambda (#{args\ 21241}#) (= #{lev\ 21232}# 0))
+ #{tmp\ 21239}#)
#f)
(@apply
- (lambda (#{args\ 4308}#)
+ (lambda (#{args\ 21243}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4296}#
+ #{p\ 21231}#
(cons '#(syntax-object
unquote
((top)
- #(ribcage #(args) #((top)) #("i4307"))
+ #(ribcage #(args) #((top)) #("i21242"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165" "i21166" "i21167" "i21168")))
(hygiene guile))
- #{args\ 4308}#)))
- #{tmp\ 4304}#)
- (let ((#{tmp\ 4309}#
+ #{args\ 21243}#)))
+ #{tmp\ 21239}#)
+ (let ((#{tmp\ 21244}#
($sc-dispatch
- #{tmp\ 4300}#
+ #{tmp\ 21235}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -16048,46 +16221,54 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
any)
.
any))))
- (if #{tmp\ 4309}#
+ (if #{tmp\ 21244}#
(@apply
- (lambda (#{p\ 4312}# #{q\ 4313}#)
- (if (= #{lev\ 4297}# 0)
- (#{quasiappend\ 4235}#
- #{p\ 4312}#
- (#{quasi\ 4237}# #{q\ 4313}# #{lev\ 4297}#))
- (#{quasicons\ 4234}#
- (#{quasicons\ 4234}#
+ (lambda (#{p\ 21247}# #{q\ 21248}#)
+ (if (= #{lev\ 21232}# 0)
+ (#{quasiappend\ 21170}#
+ #{p\ 21247}#
+ (#{quasi\ 21172}#
+ #{q\ 21248}#
+ #{lev\ 21232}#))
+ (#{quasicons\ 21169}#
+ (#{quasicons\ 21169}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4310" "i4311"))
+ #("i21245" "i21246"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -16095,28 +16276,33 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4310" "i4311"))
+ #("i21245" "i21246"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230" "i4231" "i4232" "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
- (#{quasi\ 4237}#
- (list #{p\ 4312}#)
- (1- #{lev\ 4297}#)))
- (#{quasi\ 4237}# #{q\ 4313}# #{lev\ 4297}#))))
- #{tmp\ 4309}#)
- (let ((#{tmp\ 4314}#
+ (#{quasi\ 21172}#
+ (list #{p\ 21247}#)
+ (1- #{lev\ 21232}#)))
+ (#{quasi\ 21172}#
+ #{q\ 21248}#
+ #{lev\ 21232}#))))
+ #{tmp\ 21244}#)
+ (let ((#{tmp\ 21249}#
($sc-dispatch
- #{tmp\ 4300}#
+ #{tmp\ 21235}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -16125,62 +16311,62 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
.
any)
.
any))))
- (if (if #{tmp\ 4314}#
+ (if (if #{tmp\ 21249}#
(@apply
- (lambda (#{args\ 4317}# #{q\ 4318}#)
- (= #{lev\ 4297}# 0))
- #{tmp\ 4314}#)
+ (lambda (#{args\ 21252}# #{q\ 21253}#)
+ (= #{lev\ 21232}# 0))
+ #{tmp\ 21249}#)
#f)
(@apply
- (lambda (#{args\ 4321}# #{q\ 4322}#)
+ (lambda (#{args\ 21256}# #{q\ 21257}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one
argument"
- #{p\ 4296}#
+ #{p\ 21231}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i4319" "i4320"))
+ #("i21254" "i21255"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- #{args\ 4321}#)))
- #{tmp\ 4314}#)
- (let ((#{tmp\ 4323}#
+ #{args\ 21256}#)))
+ #{tmp\ 21249}#)
+ (let ((#{tmp\ 21258}#
($sc-dispatch
- #{tmp\ 4300}#
+ #{tmp\ 21235}#
'(#(free-id
#(syntax-object
quasiquote
@@ -16189,107 +16375,113 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
any))))
- (if #{tmp\ 4323}#
+ (if #{tmp\ 21258}#
(@apply
- (lambda (#{p\ 4325}#)
- (#{quasicons\ 4234}#
+ (lambda (#{p\ 21260}#)
+ (#{quasicons\ 21169}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4324"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("i21259"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4324"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("i21259"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile)))
- (#{quasi\ 4237}#
- (list #{p\ 4325}#)
- (1+ #{lev\ 4297}#))))
- #{tmp\ 4323}#)
- (let ((#{tmp\ 4326}#
+ (#{quasi\ 21172}#
+ (list #{p\ 21260}#)
+ (1+ #{lev\ 21232}#))))
+ #{tmp\ 21258}#)
+ (let ((#{tmp\ 21261}#
($sc-dispatch
- #{tmp\ 4300}#
+ #{tmp\ 21235}#
'(any . any))))
- (if #{tmp\ 4326}#
+ (if #{tmp\ 21261}#
(@apply
- (lambda (#{p\ 4329}# #{q\ 4330}#)
- (#{quasicons\ 4234}#
- (#{quasi\ 4237}#
- #{p\ 4329}#
- #{lev\ 4297}#)
- (#{quasi\ 4237}#
- #{q\ 4330}#
- #{lev\ 4297}#)))
- #{tmp\ 4326}#)
- (let ((#{tmp\ 4331}#
+ (lambda (#{p\ 21264}# #{q\ 21265}#)
+ (#{quasicons\ 21169}#
+ (#{quasi\ 21172}#
+ #{p\ 21264}#
+ #{lev\ 21232}#)
+ (#{quasi\ 21172}#
+ #{q\ 21265}#
+ #{lev\ 21232}#)))
+ #{tmp\ 21261}#)
+ (let ((#{tmp\ 21266}#
($sc-dispatch
- #{tmp\ 4300}#
+ #{tmp\ 21235}#
'#(vector each-any))))
- (if #{tmp\ 4331}#
+ (if #{tmp\ 21266}#
(@apply
- (lambda (#{x\ 4333}#)
- (#{quasivector\ 4236}#
- (#{quasi\ 4237}#
- #{x\ 4333}#
- #{lev\ 4297}#)))
- #{tmp\ 4331}#)
- (let ((#{p\ 4336}# #{tmp\ 4300}#))
+ (lambda (#{x\ 21268}#)
+ (#{quasivector\ 21171}#
+ (#{quasi\ 21172}#
+ #{x\ 21268}#
+ #{lev\ 21232}#)))
+ #{tmp\ 21266}#)
+ (let ((#{p\ 21271}# #{tmp\ 21235}#))
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4335"))
+ #("i21270"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4298" "i4299"))
+ #("i21233" "i21234"))
#(ribcage
#(quasicons
quasiappend
@@ -16299,220 +16491,222 @@
(top)
(top)
(top))
- #("i4230"
- "i4231"
- "i4232"
- "i4233")))
+ #("i21165"
+ "i21166"
+ "i21167"
+ "i21168")))
(hygiene guile))
- #{p\
4336}#))))))))))))))))))))
+ #{p\
21271}#))))))))))))))))))))
(begin
- (lambda (#{x\ 4337}#)
- (let ((#{tmp\ 4339}# #{x\ 4337}#))
- (let ((#{tmp\ 4340}#
- ($sc-dispatch #{tmp\ 4339}# (quote (_ any)))))
- (if #{tmp\ 4340}#
+ (lambda (#{x\ 21272}#)
+ (let ((#{tmp\ 21274}# #{x\ 21272}#))
+ (let ((#{tmp\ 21275}#
+ ($sc-dispatch #{tmp\ 21274}# (quote (_ any)))))
+ (if #{tmp\ 21275}#
(@apply
- (lambda (#{e\ 4342}#)
- (#{quasi\ 4237}# #{e\ 4342}# 0))
- #{tmp\ 4340}#)
+ (lambda (#{e\ 21277}#)
+ (#{quasi\ 21172}# #{e\ 21277}# 0))
+ #{tmp\ 21275}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4339}#)))))))))
+ #{tmp\ 21274}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4343}#)
+ (lambda (#{x\ 21278}#)
(letrec*
- ((#{read-file\ 4346}#
- (lambda (#{fn\ 4347}# #{k\ 4348}#)
+ ((#{read-file\ 21281}#
+ (lambda (#{fn\ 21282}# #{k\ 21283}#)
(begin
- (let ((#{p\ 4352}# (open-input-file #{fn\ 4347}#)))
+ (let ((#{p\ 21287}# (open-input-file #{fn\ 21282}#)))
(letrec*
- ((#{f\ 4356}#
- (lambda (#{x\ 4357}# #{result\ 4358}#)
- (if (eof-object? #{x\ 4357}#)
+ ((#{f\ 21291}#
+ (lambda (#{x\ 21292}# #{result\ 21293}#)
+ (if (eof-object? #{x\ 21292}#)
(begin
- (close-input-port #{p\ 4352}#)
- (reverse #{result\ 4358}#))
- (#{f\ 4356}#
- (read #{p\ 4352}#)
- (cons (datum->syntax #{k\ 4348}# #{x\ 4357}#)
- #{result\ 4358}#))))))
+ (close-input-port #{p\ 21287}#)
+ (reverse #{result\ 21293}#))
+ (#{f\ 21291}#
+ (read #{p\ 21287}#)
+ (cons (datum->syntax #{k\ 21283}# #{x\ 21292}#)
+ #{result\ 21293}#))))))
(begin
- (#{f\ 4356}# (read #{p\ 4352}#) (quote ())))))))))
+ (#{f\ 21291}# (read #{p\ 21287}#) (quote ())))))))))
(begin
- (let ((#{tmp\ 4359}# #{x\ 4343}#))
- (let ((#{tmp\ 4360}#
- ($sc-dispatch #{tmp\ 4359}# (quote (any any)))))
- (if #{tmp\ 4360}#
+ (let ((#{tmp\ 21294}# #{x\ 21278}#))
+ (let ((#{tmp\ 21295}#
+ ($sc-dispatch #{tmp\ 21294}# (quote (any any)))))
+ (if #{tmp\ 21295}#
(@apply
- (lambda (#{k\ 4363}# #{filename\ 4364}#)
+ (lambda (#{k\ 21298}# #{filename\ 21299}#)
(begin
- (let ((#{fn\ 4366}# (syntax->datum #{filename\ 4364}#)))
- (let ((#{tmp\ 4368}#
- (#{read-file\ 4346}#
- #{fn\ 4366}#
- #{filename\ 4364}#)))
- (let ((#{tmp\ 4369}#
+ (let ((#{fn\ 21301}#
+ (syntax->datum #{filename\ 21299}#)))
+ (let ((#{tmp\ 21303}#
+ (#{read-file\ 21281}#
+ #{fn\ 21301}#
+ #{filename\ 21299}#)))
+ (let ((#{tmp\ 21304}#
($sc-dispatch
- #{tmp\ 4368}#
+ #{tmp\ 21303}#
'each-any)))
- (if #{tmp\ 4369}#
+ (if #{tmp\ 21304}#
(@apply
- (lambda (#{exp\ 4371}#)
+ (lambda (#{exp\ 21306}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4370"))
+ #("i21305"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4365"))
+ #("i21300"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4361" "i4362"))
+ #("i21296" "i21297"))
#(ribcage
(read-file)
((top))
- ("i4345"))
+ ("i21280"))
#(ribcage
#(x)
#((top))
- #("i4344")))
+ #("i21279")))
(hygiene guile))
- #{exp\ 4371}#))
- #{tmp\ 4369}#)
+ #{exp\ 21306}#))
+ #{tmp\ 21304}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4368}#)))))))
- #{tmp\ 4360}#)
+ #{tmp\ 21303}#)))))))
+ #{tmp\ 21295}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4359}#)))))))))
+ #{tmp\ 21294}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4373}#)
- (let ((#{tmp\ 4375}# #{x\ 4373}#))
- (let ((#{tmp\ 4376}#
- ($sc-dispatch #{tmp\ 4375}# (quote (any any)))))
- (if #{tmp\ 4376}#
+ (lambda (#{x\ 21308}#)
+ (let ((#{tmp\ 21310}# #{x\ 21308}#))
+ (let ((#{tmp\ 21311}#
+ ($sc-dispatch #{tmp\ 21310}# (quote (any any)))))
+ (if #{tmp\ 21311}#
(@apply
- (lambda (#{k\ 4379}# #{filename\ 4380}#)
+ (lambda (#{k\ 21314}# #{filename\ 21315}#)
(begin
- (let ((#{fn\ 4382}# (syntax->datum #{filename\ 4380}#)))
- (let ((#{tmp\ 4384}#
+ (let ((#{fn\ 21317}#
+ (syntax->datum #{filename\ 21315}#)))
+ (let ((#{tmp\ 21319}#
(datum->syntax
- #{filename\ 4380}#
+ #{filename\ 21315}#
(begin
- (let ((#{t\ 4389}#
- (%search-load-path #{fn\ 4382}#)))
- (if #{t\ 4389}#
- #{t\ 4389}#
+ (let ((#{t\ 21324}#
+ (%search-load-path #{fn\ 21317}#)))
+ (if #{t\ 21324}#
+ #{t\ 21324}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4373}#
- #{filename\ 4380}#)))))))
- (let ((#{fn\ 4386}# #{tmp\ 4384}#))
+ #{x\ 21308}#
+ #{filename\ 21315}#)))))))
+ (let ((#{fn\ 21321}# #{tmp\ 21319}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i4385"))
+ #(ribcage #(fn) #((top)) #("i21320"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4381"))
+ #(ribcage #(fn) #((top)) #("i21316"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4377" "i4378"))
+ #("i21312" "i21313"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4374")))
+ #(ribcage #(x) #((top)) #("i21309")))
(hygiene guile))
- #{fn\ 4386}#))))))
- #{tmp\ 4376}#)
+ #{fn\ 21321}#))))))
+ #{tmp\ 21311}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4375}#)))))))
+ #{tmp\ 21310}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4391}#)
- (let ((#{tmp\ 4393}# #{x\ 4391}#))
- (let ((#{tmp\ 4394}#
- ($sc-dispatch #{tmp\ 4393}# (quote (_ any)))))
- (if #{tmp\ 4394}#
+ (lambda (#{x\ 21326}#)
+ (let ((#{tmp\ 21328}# #{x\ 21326}#))
+ (let ((#{tmp\ 21329}#
+ ($sc-dispatch #{tmp\ 21328}# (quote (_ any)))))
+ (if #{tmp\ 21329}#
(@apply
- (lambda (#{e\ 4396}#)
+ (lambda (#{e\ 21331}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4391}#))
- #{tmp\ 4394}#)
+ #{x\ 21326}#))
+ #{tmp\ 21329}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4393}#)))))))
+ #{tmp\ 21328}#)))))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4397}#)
- (let ((#{tmp\ 4399}# #{x\ 4397}#))
- (let ((#{tmp\ 4400}#
- ($sc-dispatch #{tmp\ 4399}# (quote (_ any)))))
- (if #{tmp\ 4400}#
+ (lambda (#{x\ 21332}#)
+ (let ((#{tmp\ 21334}# #{x\ 21332}#))
+ (let ((#{tmp\ 21335}#
+ ($sc-dispatch #{tmp\ 21334}# (quote (_ any)))))
+ (if #{tmp\ 21335}#
(@apply
- (lambda (#{e\ 4402}#)
+ (lambda (#{e\ 21337}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4397}#))
- #{tmp\ 4400}#)
+ #{x\ 21332}#))
+ #{tmp\ 21335}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4399}#)))))))
+ #{tmp\ 21334}#)))))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4403}#)
- (let ((#{tmp\ 4405}# #{x\ 4403}#))
- (let ((#{tmp\ 4406}#
+ (lambda (#{x\ 21338}#)
+ (let ((#{tmp\ 21340}# #{x\ 21338}#))
+ (let ((#{tmp\ 21341}#
($sc-dispatch
- #{tmp\ 4405}#
+ #{tmp\ 21340}#
'(_ any any . each-any))))
- (if #{tmp\ 4406}#
+ (if #{tmp\ 21341}#
(@apply
- (lambda (#{e\ 4410}# #{m1\ 4411}# #{m2\ 4412}#)
- (let ((#{tmp\ 4414}#
+ (lambda (#{e\ 21345}# #{m1\ 21346}# #{m2\ 21347}#)
+ (let ((#{tmp\ 21349}#
(letrec*
- ((#{f\ 4420}#
- (lambda (#{clause\ 4421}# #{clauses\ 4422}#)
- (if (null? #{clauses\ 4422}#)
- (let ((#{tmp\ 4424}# #{clause\ 4421}#))
- (let ((#{tmp\ 4425}#
+ ((#{f\ 21355}#
+ (lambda (#{clause\ 21356}# #{clauses\ 21357}#)
+ (if (null? #{clauses\ 21357}#)
+ (let ((#{tmp\ 21359}# #{clause\ 21356}#))
+ (let ((#{tmp\ 21360}#
($sc-dispatch
- #{tmp\ 4424}#
+ #{tmp\ 21359}#
'(#(free-id
#(syntax-object
else
@@ -16521,92 +16715,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 4425}#
+ (if #{tmp\ 21360}#
(@apply
- (lambda (#{e1\ 4428}# #{e2\ 4429}#)
+ (lambda (#{e1\ 21363}# #{e2\ 21364}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4426" "i4427"))
+ #("i21361" "i21362"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
- (cons #{e1\ 4428}#
- #{e2\ 4429}#)))
- #{tmp\ 4425}#)
- (let ((#{tmp\ 4431}#
+ (cons #{e1\ 21363}#
+ #{e2\ 21364}#)))
+ #{tmp\ 21360}#)
+ (let ((#{tmp\ 21366}#
($sc-dispatch
- #{tmp\ 4424}#
+ #{tmp\ 21359}#
'(each-any any . each-any))))
- (if #{tmp\ 4431}#
+ (if #{tmp\ 21366}#
(@apply
- (lambda (#{k\ 4435}#
- #{e1\ 4436}#
- #{e2\ 4437}#)
+ (lambda (#{k\ 21370}#
+ #{e1\ 21371}#
+ #{e2\ 21372}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4432"
- "i4433"
- "i4434"))
+ #("i21367"
+ "i21368"
+ "i21369"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -16616,9 +16810,9 @@
#((top)
(top)
(top))
- #("i4432"
- "i4433"
- "i4434"))
+ #("i21367"
+ "i21368"
+ "i21369"))
#(ribcage
()
()
@@ -16630,17 +16824,17 @@
#((top)
(top)
(top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage
()
()
@@ -16648,7 +16842,7 @@
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
'#(syntax-object
t
@@ -16658,9 +16852,9 @@
#((top)
(top)
(top))
- #("i4432"
- "i4433"
- "i4434"))
+ #("i21367"
+ "i21368"
+ "i21369"))
#(ribcage
()
()
@@ -16672,17 +16866,17 @@
#((top)
(top)
(top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage
()
()
@@ -16690,7 +16884,7 @@
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -16702,9 +16896,9 @@
#((top)
(top)
(top))
-
#("i4432"
-
"i4433"
-
"i4434"))
+
#("i21367"
+
"i21368"
+
"i21369"))
#(ribcage
()
()
@@ -16716,9 +16910,9 @@
#((top)
(top)
(top))
-
#("i4417"
-
"i4418"
-
"i4419"))
+
#("i21352"
+
"i21353"
+
"i21354"))
#(ribcage
#(e
m1
@@ -16726,9 +16920,9 @@
#((top)
(top)
(top))
-
#("i4407"
-
"i4408"
-
"i4409"))
+
#("i21342"
+
"i21343"
+
"i21344"))
#(ribcage
()
()
@@ -16736,10 +16930,10 @@
#(ribcage
#(x)
#((top))
-
#("i4404")))
+
#("i21339")))
(hygiene
guile))
- #{k\ 4435}#))
+ #{k\ 21370}#))
(cons '#(syntax-object
begin
((top)
@@ -16748,9 +16942,9 @@
#((top)
(top)
(top))
- #("i4432"
- "i4433"
- "i4434"))
+ #("i21367"
+ "i21368"
+ "i21369"))
#(ribcage
()
()
@@ -16762,17 +16956,17 @@
#((top)
(top)
(top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage
()
()
@@ -16780,63 +16974,63 @@
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
- (cons #{e1\ 4436}#
- #{e2\
4437}#))))
- #{tmp\ 4431}#)
- (let ((#{_\ 4441}# #{tmp\ 4424}#))
+ (cons #{e1\ 21371}#
+ #{e2\
21372}#))))
+ #{tmp\ 21366}#)
+ (let ((#{_\ 21376}# #{tmp\ 21359}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4403}#
- #{clause\ 4421}#)))))))
- (let ((#{tmp\ 4443}#
- (#{f\ 4420}#
- (car #{clauses\ 4422}#)
- (cdr #{clauses\ 4422}#))))
- (let ((#{rest\ 4445}# #{tmp\ 4443}#))
- (let ((#{tmp\ 4446}# #{clause\ 4421}#))
- (let ((#{tmp\ 4447}#
+ #{x\ 21338}#
+ #{clause\ 21356}#)))))))
+ (let ((#{tmp\ 21378}#
+ (#{f\ 21355}#
+ (car #{clauses\ 21357}#)
+ (cdr #{clauses\ 21357}#))))
+ (let ((#{rest\ 21380}# #{tmp\ 21378}#))
+ (let ((#{tmp\ 21381}# #{clause\ 21356}#))
+ (let ((#{tmp\ 21382}#
($sc-dispatch
- #{tmp\ 4446}#
+ #{tmp\ 21381}#
'(each-any any . each-any))))
- (if #{tmp\ 4447}#
+ (if #{tmp\ 21382}#
(@apply
- (lambda (#{k\ 4451}#
- #{e1\ 4452}#
- #{e2\ 4453}#)
+ (lambda (#{k\ 21386}#
+ #{e1\ 21387}#
+ #{e2\ 21388}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4448"
- "i4449"
- "i4450"))
+ #("i21383"
+ "i21384"
+ "i21385"))
#(ribcage
#(rest)
#((top))
- #("i4444"))
+ #("i21379"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -16846,13 +17040,13 @@
#((top)
(top)
(top))
- #("i4448"
- "i4449"
- "i4450"))
+ #("i21383"
+ "i21384"
+ "i21385"))
#(ribcage
#(rest)
#((top))
- #("i4444"))
+ #("i21379"))
#(ribcage
()
()
@@ -16864,17 +17058,17 @@
#((top)
(top)
(top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage
()
()
@@ -16882,7 +17076,7 @@
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
'#(syntax-object
t
@@ -16892,13 +17086,13 @@
#((top)
(top)
(top))
- #("i4448"
- "i4449"
- "i4450"))
+ #("i21383"
+ "i21384"
+ "i21385"))
#(ribcage
#(rest)
#((top))
- #("i4444"))
+ #("i21379"))
#(ribcage
()
()
@@ -16910,17 +17104,17 @@
#((top)
(top)
(top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage
()
()
@@ -16928,7 +17122,7 @@
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -16940,13 +17134,13 @@
#((top)
(top)
(top))
-
#("i4448"
-
"i4449"
-
"i4450"))
+
#("i21383"
+
"i21384"
+
"i21385"))
#(ribcage
#(rest)
#((top))
-
#("i4444"))
+
#("i21379"))
#(ribcage
()
()
@@ -16958,9 +17152,9 @@
#((top)
(top)
(top))
-
#("i4417"
-
"i4418"
-
"i4419"))
+
#("i21352"
+
"i21353"
+
"i21354"))
#(ribcage
#(e
m1
@@ -16968,9 +17162,9 @@
#((top)
(top)
(top))
-
#("i4407"
-
"i4408"
-
"i4409"))
+
#("i21342"
+
"i21343"
+
"i21344"))
#(ribcage
()
()
@@ -16978,10 +17172,10 @@
#(ribcage
#(x)
#((top))
-
#("i4404")))
+
#("i21339")))
(hygiene
guile))
- #{k\ 4451}#))
+ #{k\ 21386}#))
(cons '#(syntax-object
begin
((top)
@@ -16990,13 +17184,13 @@
#((top)
(top)
(top))
- #("i4448"
- "i4449"
- "i4450"))
+ #("i21383"
+ "i21384"
+ "i21385"))
#(ribcage
#(rest)
#((top))
- #("i4444"))
+ #("i21379"))
#(ribcage
()
()
@@ -17008,17 +17202,17 @@
#((top)
(top)
(top))
- #("i4417"
- "i4418"
- "i4419"))
+ #("i21352"
+ "i21353"
+ "i21354"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4407"
- "i4408"
- "i4409"))
+ #("i21342"
+ "i21343"
+ "i21344"))
#(ribcage
()
()
@@ -17026,30 +17220,31 @@
#(ribcage
#(x)
#((top))
- #("i4404")))
+ #("i21339")))
(hygiene guile))
- (cons #{e1\ 4452}#
- #{e2\ 4453}#))
- #{rest\ 4445}#))
- #{tmp\ 4447}#)
- (let ((#{_\ 4457}# #{tmp\ 4446}#))
+ (cons #{e1\ 21387}#
+ #{e2\
21388}#))
+ #{rest\ 21380}#))
+ #{tmp\ 21382}#)
+ (let ((#{_\ 21392}# #{tmp\ 21381}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4403}#
- #{clause\ 4421}#)))))))))))
- (begin (#{f\ 4420}# #{m1\ 4411}# #{m2\ 4412}#)))))
- (let ((#{body\ 4416}# #{tmp\ 4414}#))
+ #{x\ 21338}#
+ #{clause\ 21356}#)))))))))))
+ (begin
+ (#{f\ 21355}# #{m1\ 21346}# #{m2\ 21347}#)))))
+ (let ((#{body\ 21351}# #{tmp\ 21349}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i4415"))
+ #(ribcage #(body) #((top)) #("i21350"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4407" "i4408" "i4409"))
+ #("i21342" "i21343" "i21344"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4404")))
+ #(ribcage #(x) #((top)) #("i21339")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -17057,177 +17252,183 @@
#(ribcage
#(body)
#((top))
- #("i4415"))
+ #("i21350"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4407" "i4408" "i4409"))
+ #("i21342" "i21343" "i21344"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4404")))
+ #(ribcage #(x) #((top)) #("i21339")))
(hygiene guile))
- #{e\ 4410}#))
- #{body\ 4416}#))))
- #{tmp\ 4406}#)
+ #{e\ 21345}#))
+ #{body\ 21351}#))))
+ #{tmp\ 21341}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4405}#)))))))
+ #{tmp\ 21340}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 4458}#)
- (if (procedure? #{proc\ 4458}#)
+ (lambda (#{proc\ 21393}#)
+ (if (procedure? #{proc\ 21393}#)
(begin
(letrec*
- ((#{trans\ 4461}#
- (lambda (#{x\ 4462}#)
- (#{proc\ 4458}# #{x\ 4462}#))))
+ ((#{trans\ 21396}#
+ (lambda (#{x\ 21397}#)
+ (#{proc\ 21393}# #{x\ 21397}#))))
(begin
(set-procedure-property!
- #{trans\ 4461}#
+ #{trans\ 21396}#
'variable-transformer
#t)
- #{trans\ 4461}#)))
+ #{trans\ 21396}#)))
(error "variable transformer not a procedure"
- #{proc\ 4458}#))))
+ #{proc\ 21393}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4464}#)
- (let ((#{tmp\ 4466}# #{x\ 4464}#))
- (let ((#{tmp\ 4467}#
- ($sc-dispatch #{tmp\ 4466}# (quote (_ any)))))
- (if #{tmp\ 4467}#
+ (lambda (#{x\ 21399}#)
+ (let ((#{tmp\ 21401}# #{x\ 21399}#))
+ (let ((#{tmp\ 21402}#
+ ($sc-dispatch #{tmp\ 21401}# (quote (_ any)))))
+ (if #{tmp\ 21402}#
(@apply
- (lambda (#{e\ 4469}#)
+ (lambda (#{e\ 21404}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage
+ #(e)
+ #((top))
+ #("i21403"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
- #{e\ 4469}#))
+ #{e\ 21404}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage #(e) #((top)) #("i21403"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage
+ #(e)
+ #((top))
+ #("i21403"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
- (cons #{e\ 4469}#
+ (cons #{e\ 21404}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4468"))
+ #("i21403"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
#(syntax-object
...
@@ -17235,55 +17436,59 @@
#(ribcage
#(e)
#((top))
- #("i4468"))
+ #("i21403"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile)))))))))
- #{tmp\ 4467}#)
- (let ((#{tmp\ 4470}#
+ #{tmp\ 21402}#)
+ (let ((#{tmp\ 21405}#
($sc-dispatch
- #{tmp\ 4466}#
+ #{tmp\ 21401}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp\ 4470}#
+ (if (if #{tmp\ 21405}#
(@apply
- (lambda (#{id\ 4476}#
- #{exp1\ 4477}#
- #{var\ 4478}#
- #{val\ 4479}#
- #{exp2\ 4480}#)
- (if (identifier? #{id\ 4476}#)
- (identifier? #{var\ 4478}#)
+ (lambda (#{id\ 21411}#
+ #{exp1\ 21412}#
+ #{var\ 21413}#
+ #{val\ 21414}#
+ #{exp2\ 21415}#)
+ (if (identifier? #{id\ 21411}#)
+ (identifier? #{var\ 21413}#)
#f))
- #{tmp\ 4470}#)
+ #{tmp\ 21405}#)
#f)
(@apply
- (lambda (#{id\ 4488}#
- #{exp1\ 4489}#
- #{var\ 4490}#
- #{val\ 4491}#
- #{exp2\ 4492}#)
+ (lambda (#{id\ 21423}#
+ #{exp1\ 21424}#
+ #{var\ 21425}#
+ #{val\ 21426}#
+ #{exp2\ 21427}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4483" "i4484" "i4485" "i4486" "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -17291,13 +17496,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
'(#(syntax-object
x
@@ -17305,13 +17510,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -17319,13 +17524,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
.
#(syntax-object
@@ -17334,13 +17539,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -17348,13 +17553,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
'#(syntax-object
x
@@ -17362,13 +17567,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage #(x) #((top)) #("i21400")))
(hygiene guile))
'(#(syntax-object
set!
@@ -17376,13 +17581,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4465")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i21400")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -17394,19 +17602,19 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
- #{var\ 4490}#
- #{val\ 4491}#)
+ #{var\ 21425}#
+ #{val\ 21426}#)
(list '#(syntax-object
syntax
((top)
@@ -17417,19 +17625,19 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
- #{exp2\ 4492}#))
- (list (cons #{id\ 4488}#
+ #{exp2\ 21427}#))
+ (list (cons #{id\ 21423}#
'(#(syntax-object
x
((top)
@@ -17444,16 +17652,16 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
#(syntax-object
...
@@ -17469,16 +17677,16 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -17490,18 +17698,18 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
- (cons #{exp1\ 4489}#
+ (cons #{exp1\ 21424}#
'(#(syntax-object
x
((top)
@@ -17516,11 +17724,11 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage
()
()
@@ -17528,7 +17736,7 @@
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
#(syntax-object
...
@@ -17544,11 +17752,11 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage
()
()
@@ -17556,10 +17764,10 @@
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene
guile))))))
- (list #{id\ 4488}#
+ (list #{id\ 21423}#
(list '#(syntax-object
identifier?
((top)
@@ -17570,16 +17778,16 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -17595,18 +17803,18 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
- #{id\ 4488}#))
+ #{id\ 21423}#))
(list '#(syntax-object
syntax
((top)
@@ -17617,69 +17825,69 @@
(top)
(top)
(top))
- #("i4483"
- "i4484"
- "i4485"
- "i4486"
- "i4487"))
+ #("i21418"
+ "i21419"
+ "i21420"
+ "i21421"
+ "i21422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4465")))
+ #("i21400")))
(hygiene guile))
- #{exp1\ 4489}#))))))
- #{tmp\ 4470}#)
+ #{exp1\ 21424}#))))))
+ #{tmp\ 21405}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4466}#)))))))))
+ #{tmp\ 21401}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4493}#)
- (let ((#{tmp\ 4495}# #{x\ 4493}#))
- (let ((#{tmp\ 4496}#
+ (lambda (#{x\ 21428}#)
+ (let ((#{tmp\ 21430}# #{x\ 21428}#))
+ (let ((#{tmp\ 21431}#
($sc-dispatch
- #{tmp\ 4495}#
+ #{tmp\ 21430}#
'(_ (any . any) any . each-any))))
- (if #{tmp\ 4496}#
+ (if #{tmp\ 21431}#
(@apply
- (lambda (#{id\ 4501}#
- #{args\ 4502}#
- #{b0\ 4503}#
- #{b1\ 4504}#)
+ (lambda (#{id\ 21436}#
+ #{args\ 21437}#
+ #{b0\ 21438}#
+ #{b1\ 21439}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4497" "i4498" "i4499" "i4500"))
+ #("i21432" "i21433" "i21434" "i21435"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4494")))
+ #(ribcage #(x) #((top)) #("i21429")))
(hygiene guile))
- #{id\ 4501}#
+ #{id\ 21436}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4497" "i4498" "i4499" "i4500"))
+ #("i21432" "i21433" "i21434" "i21435"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4494")))
+ #(ribcage #(x) #((top)) #("i21429")))
(hygiene guile))
- (cons #{args\ 4502}#
- (cons #{b0\ 4503}# #{b1\ 4504}#)))))
- #{tmp\ 4496}#)
- (let ((#{tmp\ 4506}#
- ($sc-dispatch #{tmp\ 4495}# (quote (_ any any)))))
- (if (if #{tmp\ 4506}#
+ (cons #{args\ 21437}#
+ (cons #{b0\ 21438}# #{b1\ 21439}#)))))
+ #{tmp\ 21431}#)
+ (let ((#{tmp\ 21441}#
+ ($sc-dispatch #{tmp\ 21430}# (quote (_ any any)))))
+ (if (if #{tmp\ 21441}#
(@apply
- (lambda (#{id\ 4509}# #{val\ 4510}#)
+ (lambda (#{id\ 21444}# #{val\ 21445}#)
(identifier?
'#(syntax-object
x
@@ -17687,29 +17895,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i4507" "i4508"))
+ #("i21442" "i21443"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4494")))
+ #(ribcage #(x) #((top)) #("i21429")))
(hygiene guile))))
- #{tmp\ 4506}#)
+ #{tmp\ 21441}#)
#f)
(@apply
- (lambda (#{id\ 4513}# #{val\ 4514}#)
+ (lambda (#{id\ 21448}# #{val\ 21449}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4511" "i4512"))
+ #("i21446" "i21447"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4494")))
+ #(ribcage #(x) #((top)) #("i21429")))
(hygiene guile))
- #{id\ 4513}#
- #{val\ 4514}#))
- #{tmp\ 4506}#)
+ #{id\ 21448}#
+ #{val\ 21449}#))
+ #{tmp\ 21441}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4495}#)))))))))
+ #{tmp\ 21430}#)))))))))
diff --git a/test-suite/tests/peg.test b/test-suite/tests/peg.test
index 1205e43..966000b 100644
--- a/test-suite/tests/peg.test
+++ b/test-suite/tests/peg.test
@@ -140,7 +140,7 @@ Expr <- Sum")
"cfunc <-- cSP ctype cSP cname cSP cargs cLB cSP cbody cRB
ctype <-- cidentifier
cname <-- cidentifier
-cargs <-- cLP (! (cSP cRB) carg cSP (cCOMMA / cRP) cSP)* cSP
+cargs <-- cLP (! (cSP cRP) carg cSP (cCOMMA / cRP) cSP)* cSP
carg <-- cSP ctype cSP cname
cbody <-- cstatement *
cidentifier <- [a-zA-z][a-zA-Z0-9_]*
@@ -194,3 +194,10 @@ int mod(int a, int b) {
(if (assert (peg-parse itl "b")) (pretty-print "Test passed, no worries!"))
;; (pretty-print "\n***\nAll tests passed!\n***\n")
+
+(define-grammar
+ "Begin <- '(*'
+End <- '*)
+C <- Begin N* End
+N <- C / (!Begin !End Z)
+Z <- .")
\ No newline at end of file
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, mlucy, updated. release_1-9-11-156-ga64c3d2,
Michael Lucy <=