[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-133-ge
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-133-ge6c7e9e |
Date: |
Thu, 20 May 2010 12:03:57 +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=e6c7e9ed9cb47caa9dc1ef07c872795398279d37
The branch, master has been updated
via e6c7e9ed9cb47caa9dc1ef07c872795398279d37 (commit)
via 4ffa82758478927db4e2cf18379c296ef5f20c06 (commit)
via 82c45730afe0f1ad139c305fe7e1abbe9c59853b (commit)
via cc63545b3e5d89cb6e3235627fcacccae741afdc (commit)
via 131ae7b49de8c723fafaa3f867dc9804c587f375 (commit)
via 632ddbf02b6983a93a3a8f1268772b78354a335a (commit)
via a310a1d12e9b44ba77bb28d5491f0bd378a90886 (commit)
from 3e5ea35c2fa1bb3d21373723e9a51d213cf79187 (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 e6c7e9ed9cb47caa9dc1ef07c872795398279d37
Author: Andy Wingo <address@hidden>
Date: Thu May 20 13:59:34 2010 +0200
pure r6rs modules
* module/ice-9/r6rs-libraries.scm (library): Make pure modules.
(import): Also process imports at expand time, for the `eval' case.
commit 4ffa82758478927db4e2cf18379c296ef5f20c06
Author: Andy Wingo <address@hidden>
Date: Thu May 20 13:47:49 2010 +0200
macroexpanded pretty-printer
* module/language/tree-il.scm (print-tree-il):
(borrow-core-vtables, <tree-il>): When tree-il loads, override the
printers for macroexpanded structures.
commit 82c45730afe0f1ad139c305fe7e1abbe9c59853b
Author: Andy Wingo <address@hidden>
Date: Thu May 20 13:28:25 2010 +0200
lambda* usage in psyntax.scm
* module/ice-9/psyntax.scm (macroexpand): Use lambda*.
* module/ice-9/psyntax-pp.scm: Regenerated.
commit cc63545b3e5d89cb6e3235627fcacccae741afdc
Author: Andy Wingo <address@hidden>
Date: Thu May 20 13:27:49 2010 +0200
tree-il->scheme for lambda* et al
* module/language/tree-il.scm (tree-il->scheme): Fix lambda* /
case-lambda / case-lambda* transformation.
commit 131ae7b49de8c723fafaa3f867dc9804c587f375
Author: Andy Wingo <address@hidden>
Date: Thu May 20 12:54:47 2010 +0200
remove *mode* fluid from psyntax
* module/ice-9/psyntax.scm: Remove the *mode* fluid. Whee :)
(macroexpand): No need to bind aa *mode* fluid.
* module/ice-9/psyntax-pp.scm: Regenerated.
commit 632ddbf02b6983a93a3a8f1268772b78354a335a
Author: Andy Wingo <address@hidden>
Date: Thu May 20 12:53:21 2010 +0200
iron out inconsistency between eval and compile expansion
* libguile/expand.c (expand_lambda_star_case): Harmonize with tree-il,
expanding keywords to (aok? (kw name gensym) ...), not
(aok? (kw . index) ...).
* libguile/memoize.c (memoize): Process the (kw name gensym) format into
(kw . index).
* module/ice-9/psyntax.scm (build-lambda-case): Remove a
compile-versus-eval special case.
* module/ice-9/psyntax-pp.scm: Regenerate.
commit a310a1d12e9b44ba77bb28d5491f0bd378a90886
Author: Andy Wingo <address@hidden>
Date: Thu May 20 12:25:52 2010 +0200
primitive-eval takes expanded, not memoized, source
* module/ice-9/eval.scm (primitive-eval):
* libguile/eval.c (scm_c_primitive_eval): Don't expect a memoized
expression -- expect either raw source or an *expanded* expression. We
handle memoization ourselves.
* libguile/expand.c (scm_macroexpand): Settle down into its proper name,
"macroexpand", even as we comment that it is but a fleeting boot
expander.
(scm_macroexpanded_p): New predicate for expanded code.
* libguile/expand.h: Add scm_macroexpanded_p.
* libguile/memoize.c (scm_memoize_expression): Require that the
expression be expanded.
(scm_init_memoize): Don't alias memoize-expression to macroexpand.
* module/ice-9/psyntax-pp.scm:
* module/ice-9/psyntax.scm: Always produce macroexpanded expressions,
and hand them to primitive-eval. No more calls to memoize-expression
here.
* test-suite/tests/optargs.test: Remove some tests, as unfortunately we
have no way to invoke the boot expander after boot.
-----------------------------------------------------------------------
Summary of changes:
libguile/eval.c | 9 +-
libguile/expand.c | 26 +-
libguile/expand.h | 1 +
libguile/memoize.c | 24 +-
module/ice-9/eval.scm | 7 +-
module/ice-9/psyntax-pp.scm |16724 +++++++++++++++++++--------------------
module/ice-9/psyntax.scm | 48 +-
module/ice-9/r6rs-libraries.scm | 3 +-
module/language/tree-il.scm | 72 +-
test-suite/tests/optargs.test | 25 +-
10 files changed, 8345 insertions(+), 8594 deletions(-)
diff --git a/libguile/eval.c b/libguile/eval.c
index 63808c6..752ba2c 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -37,6 +37,7 @@
#include "libguile/deprecation.h"
#include "libguile/dynwind.h"
#include "libguile/eq.h"
+#include "libguile/expand.h"
#include "libguile/feature.h"
#include "libguile/fluids.h"
#include "libguile/goops.h"
@@ -832,13 +833,9 @@ scm_for_each (SCM proc, SCM arg1, SCM args)
static SCM
scm_c_primitive_eval (SCM exp)
{
- if (!SCM_MEMOIZED_P (exp))
+ if (!SCM_EXPANDED_P (exp))
exp = scm_call_1 (scm_current_module_transformer (), exp);
- if (!SCM_MEMOIZED_P (exp))
- scm_misc_error ("primitive-eval",
- "expander did not return a memoized expression",
- scm_list_1 (exp));
- return eval (exp, SCM_EOL);
+ return eval (scm_memoize_expression (exp), SCM_EOL);
}
static SCM var_primitive_eval;
diff --git a/libguile/expand.c b/libguile/expand.c
index 80bc48d..2dd93ec 100644
--- a/libguile/expand.c
+++ b/libguile/expand.c
@@ -693,7 +693,7 @@ static SCM
expand_lambda_star_case (SCM clause, SCM alternate, SCM env)
{
SCM req, opt, kw, allow_other_keys, rest, formals, vars, body, tmp;
- SCM inits, kw_indices;
+ SCM inits;
int nreq, nopt;
const long length = scm_ilength (clause);
@@ -807,14 +807,12 @@ expand_lambda_star_case (SCM clause, SCM alternate, SCM
env)
env = scm_acons (rest, CAR (vars), env);
}
- /* Build up kw inits, env, and kw-indices alist */
+ /* Build up kw inits, env, and kw-canon list */
if (scm_is_null (kw))
kw = SCM_BOOL_F;
else
{
- int idx = nreq + nopt + (scm_is_true (rest) ? 1 : 0);
-
- kw_indices = SCM_EOL;
+ SCM kw_canon = SCM_EOL;
kw = scm_reverse_x (kw, SCM_UNDEFINED);
for (tmp = kw; scm_is_pair (tmp); tmp = scm_cdr (tmp))
{
@@ -842,13 +840,13 @@ expand_lambda_star_case (SCM clause, SCM alternate, SCM
env)
else
syntax_error (s_bad_formals, CAR (clause), SCM_UNDEFINED);
- kw_indices = scm_acons (k, SCM_I_MAKINUM (idx++), kw_indices);
inits = scm_cons (expand (init, env), inits);
vars = scm_cons (scm_gensym (SCM_UNDEFINED), vars);
+ kw_canon = scm_cons (scm_list_3 (k, sym, CAR (vars)), kw_canon);
env = scm_acons (sym, CAR (vars), env);
}
- kw_indices = scm_reverse_x (kw_indices, SCM_UNDEFINED);
- kw = scm_cons (allow_other_keys, kw_indices);
+ kw_canon = scm_reverse_x (kw_canon, SCM_UNDEFINED);
+ kw = scm_cons (allow_other_keys, kw_canon);
}
/* We should check for no duplicates, but given that psyntax does this
@@ -1162,7 +1160,8 @@ expand_set_x (SCM expr, SCM env)
-SCM_DEFINE (scm_macroexpand, "macroexpand*", 1, 0, 0,
+/* This is the boot expander. It is later replaced with psyntax's sc-expand. */
+SCM_DEFINE (scm_macroexpand, "macroexpand", 1, 0, 0,
(SCM exp),
"Expand the expression @var{exp}.")
#define FUNC_NAME s_scm_macroexpand
@@ -1171,6 +1170,15 @@ SCM_DEFINE (scm_macroexpand, "macroexpand*", 1, 0, 0,
}
#undef FUNC_NAME
+SCM_DEFINE (scm_macroexpanded_p, "macroexpanded?", 1, 0, 0,
+ (SCM exp),
+ "Return @code{#t} if @var{exp} is an expanded expression.")
+#define FUNC_NAME s_scm_macroexpanded_p
+{
+ return scm_from_bool (SCM_EXPANDED_P (exp));
+}
+#undef FUNC_NAME
+
diff --git a/libguile/expand.h b/libguile/expand.h
index 32b978b..d137020 100644
--- a/libguile/expand.h
+++ b/libguile/expand.h
@@ -333,6 +333,7 @@ enum
SCM_INTERNAL SCM scm_macroexpand (SCM exp);
+SCM_INTERNAL SCM scm_macroexpanded_p (SCM exp);
SCM_INTERNAL void scm_init_expand (void);
diff --git a/libguile/memoize.c b/libguile/memoize.c
index bacd097..393598e 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -273,7 +273,7 @@ memoize (SCM exp, SCM env)
{
SCM req, rest, opt, kw, inits, vars, body, alt;
SCM walk, minits, arity, new_env;
- int nreq, nopt;
+ int nreq, nopt, ntotal;
req = REF (exp, LAMBDA_CASE, REQ);
rest = REF (exp, LAMBDA_CASE, REST);
@@ -286,6 +286,7 @@ memoize (SCM exp, SCM env)
nreq = scm_ilength (req);
nopt = scm_is_pair (opt) ? scm_ilength (opt) : 0;
+ ntotal = scm_ilength (vars);
/* The vars are the gensyms, according to the divine plan. But we need
to memoize the inits within their appropriate environment,
@@ -319,6 +320,22 @@ memoize (SCM exp, SCM env)
minits = scm_reverse_x (minits, SCM_UNDEFINED);
+ if (scm_is_true (kw))
+ {
+ /* (aok? (kw name sym) ...) -> (aok? (kw . index) ...) */
+ SCM aok = CAR (kw), indices = SCM_EOL;
+ for (kw = CDR (kw); scm_is_pair (kw); kw = CDR (kw))
+ {
+ SCM k;
+ int idx;
+
+ k = CAR (CAR (kw));
+ idx = ntotal - 1 - lookup (CADDR (CAR (kw)), new_env);
+ indices = scm_acons (k, SCM_I_MAKINUM (idx), indices);
+ }
+ kw = scm_cons (aok, scm_reverse_x (indices, SCM_UNDEFINED));
+ }
+
if (scm_is_false (alt) && scm_is_false (kw) && scm_is_false (opt))
{
if (scm_is_false (rest))
@@ -404,8 +421,7 @@ SCM_DEFINE (scm_memoize_expression, "memoize-expression",
1, 0, 0,
"Memoize the expression @var{exp}.")
#define FUNC_NAME s_scm_memoize_expression
{
- if (!SCM_EXPANDED_P (exp))
- exp = scm_macroexpand (exp);
+ SCM_ASSERT_TYPE (SCM_EXPANDED_P (exp), exp, 1, FUNC_NAME, "expanded");
return memoize (exp, scm_current_module ());
}
#undef FUNC_NAME
@@ -803,8 +819,6 @@ scm_init_memoize ()
#include "libguile/memoize.x"
- scm_c_define ("macroexpand",
- scm_variable_ref (scm_c_lookup ("memoize-expression")));
list_of_guile = scm_list_1 (scm_from_locale_symbol ("guile"));
}
diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm
index 460369e..c16f08e 100644
--- a/module/ice-9/eval.scm
+++ b/module/ice-9/eval.scm
@@ -455,7 +455,8 @@
(lambda (exp)
"Evaluate @var{exp} in the current module."
(eval
- (if (memoized? exp)
- exp
- ((module-transformer (current-module)) exp))
+ (memoize-expression
+ (if (macroexpanded? exp)
+ exp
+ ((module-transformer (current-module)) exp)))
'()))))
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 8145801..76f409c 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,657 +1,638 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 12627}#
- (lambda (#{f\ 12741}# #{first\ 12742}# . #{rest\ 12743}#)
- (let ((#{t\ 12749}# (null? #{first\ 12742}#)))
- (if #{t\ 12749}#
- #{t\ 12749}#
- (if (null? #{rest\ 12743}#)
- (letrec ((#{andmap\ 12753}#
- (lambda (#{first\ 12754}#)
- (let ((#{x\ 12757}# (car #{first\ 12754}#))
- (#{first\ 12758}#
- (cdr #{first\ 12754}#)))
- (if (null? #{first\ 12758}#)
- (#{f\ 12741}# #{x\ 12757}#)
- (if (#{f\ 12741}# #{x\ 12757}#)
- (#{andmap\ 12753}# #{first\ 12758}#)
+(letrec ((#{and-map*\ 20}#
+ (lambda (#{f\ 134}# #{first\ 135}# . #{rest\ 136}#)
+ (let ((#{t\ 142}# (null? #{first\ 135}#)))
+ (if #{t\ 142}#
+ #{t\ 142}#
+ (if (null? #{rest\ 136}#)
+ (letrec ((#{andmap\ 146}#
+ (lambda (#{first\ 147}#)
+ (let ((#{x\ 150}# (car #{first\ 147}#))
+ (#{first\ 151}# (cdr #{first\ 147}#)))
+ (if (null? #{first\ 151}#)
+ (#{f\ 134}# #{x\ 150}#)
+ (if (#{f\ 134}# #{x\ 150}#)
+ (#{andmap\ 146}# #{first\ 151}#)
#f))))))
- (#{andmap\ 12753}# #{first\ 12742}#))
- (letrec ((#{andmap\ 12764}#
- (lambda (#{first\ 12765}# #{rest\ 12766}#)
- (let ((#{x\ 12771}# (car #{first\ 12765}#))
- (#{xr\ 12772}# (map car #{rest\ 12766}#))
- (#{first\ 12773}# (cdr #{first\ 12765}#))
- (#{rest\ 12774}#
- (map cdr #{rest\ 12766}#)))
- (if (null? #{first\ 12773}#)
- (apply #{f\ 12741}#
- (cons #{x\ 12771}# #{xr\ 12772}#))
- (if (apply #{f\ 12741}#
- (cons #{x\ 12771}#
- #{xr\ 12772}#))
- (#{andmap\ 12764}#
- #{first\ 12773}#
- #{rest\ 12774}#)
+ (#{andmap\ 146}# #{first\ 135}#))
+ (letrec ((#{andmap\ 157}#
+ (lambda (#{first\ 158}# #{rest\ 159}#)
+ (let ((#{x\ 164}# (car #{first\ 158}#))
+ (#{xr\ 165}# (map car #{rest\ 159}#))
+ (#{first\ 166}# (cdr #{first\ 158}#))
+ (#{rest\ 167}# (map cdr #{rest\ 159}#)))
+ (if (null? #{first\ 166}#)
+ (apply #{f\ 134}#
+ (cons #{x\ 164}# #{xr\ 165}#))
+ (if (apply #{f\ 134}#
+ (cons #{x\ 164}# #{xr\ 165}#))
+ (#{andmap\ 157}#
+ #{first\ 166}#
+ #{rest\ 167}#)
#f))))))
- (#{andmap\ 12764}#
- #{first\ 12742}#
- #{rest\ 12743}#))))))))
- (letrec ((#{lambda-var-list\ 13031}#
- (lambda (#{vars\ 13246}#)
- (letrec ((#{lvl\ 13252}#
- (lambda (#{vars\ 13253}# #{ls\ 13254}# #{w\ 13255}#)
- (if (pair? #{vars\ 13253}#)
- (#{lvl\ 13252}#
- (cdr #{vars\ 13253}#)
- (cons (#{wrap\ 12985}#
- (car #{vars\ 13253}#)
- #{w\ 13255}#
+ (#{andmap\ 157}# #{first\ 135}# #{rest\ 136}#))))))))
+ (letrec ((#{lambda-var-list\ 422}#
+ (lambda (#{vars\ 637}#)
+ (letrec ((#{lvl\ 643}#
+ (lambda (#{vars\ 644}# #{ls\ 645}# #{w\ 646}#)
+ (if (pair? #{vars\ 644}#)
+ (#{lvl\ 643}#
+ (cdr #{vars\ 644}#)
+ (cons (#{wrap\ 376}#
+ (car #{vars\ 644}#)
+ #{w\ 646}#
#f)
- #{ls\ 13254}#)
- #{w\ 13255}#)
- (if (#{id?\ 12916}# #{vars\ 13253}#)
- (cons (#{wrap\ 12985}#
- #{vars\ 13253}#
- #{w\ 13255}#
+ #{ls\ 645}#)
+ #{w\ 646}#)
+ (if (#{id?\ 307}# #{vars\ 644}#)
+ (cons (#{wrap\ 376}#
+ #{vars\ 644}#
+ #{w\ 646}#
#f)
- #{ls\ 13254}#)
- (if (null? #{vars\ 13253}#)
- #{ls\ 13254}#
- (if (#{syntax-object?\ 12880}#
- #{vars\ 13253}#)
- (#{lvl\ 13252}#
- (#{syntax-object-expression\ 12882}#
- #{vars\ 13253}#)
- #{ls\ 13254}#
- (#{join-wraps\ 12967}#
- #{w\ 13255}#
- (#{syntax-object-wrap\ 12884}#
- #{vars\ 13253}#)))
- (cons #{vars\ 13253}# #{ls\ 13254}#))))))))
- (#{lvl\ 13252}#
- #{vars\ 13246}#
+ #{ls\ 645}#)
+ (if (null? #{vars\ 644}#)
+ #{ls\ 645}#
+ (if (#{syntax-object?\ 271}# #{vars\ 644}#)
+ (#{lvl\ 643}#
+ (#{syntax-object-expression\ 273}#
+ #{vars\ 644}#)
+ #{ls\ 645}#
+ (#{join-wraps\ 358}#
+ #{w\ 646}#
+ (#{syntax-object-wrap\ 275}#
+ #{vars\ 644}#)))
+ (cons #{vars\ 644}# #{ls\ 645}#))))))))
+ (#{lvl\ 643}#
+ #{vars\ 637}#
'()
'(())))))
- (#{gen-var\ 13029}#
- (lambda (#{id\ 13266}#)
- (let ((#{id\ 13269}#
- (if (#{syntax-object?\ 12880}# #{id\ 13266}#)
- (#{syntax-object-expression\ 12882}#
- #{id\ 13266}#)
- #{id\ 13266}#)))
+ (#{gen-var\ 420}#
+ (lambda (#{id\ 657}#)
+ (let ((#{id\ 660}#
+ (if (#{syntax-object?\ 271}# #{id\ 657}#)
+ (#{syntax-object-expression\ 273}# #{id\ 657}#)
+ #{id\ 657}#)))
(gensym
- (string-append
- (symbol->string #{id\ 13269}#)
- " ")))))
- (#{strip\ 13027}#
- (lambda (#{x\ 13271}# #{w\ 13272}#)
+ (string-append (symbol->string #{id\ 660}#) " ")))))
+ (#{strip\ 418}#
+ (lambda (#{x\ 662}# #{w\ 663}#)
(if (memq 'top
- (#{wrap-marks\ 12923}# #{w\ 13272}#))
- #{x\ 13271}#
- (letrec ((#{f\ 13278}#
- (lambda (#{x\ 13279}#)
- (if (#{syntax-object?\ 12880}# #{x\ 13279}#)
- (#{strip\ 13027}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 13279}#)
- (#{syntax-object-wrap\ 12884}# #{x\ 13279}#))
- (if (pair? #{x\ 13279}#)
- (let ((#{a\ 13286}#
- (#{f\ 13278}# (car #{x\ 13279}#)))
- (#{d\ 13287}#
- (#{f\ 13278}# (cdr #{x\ 13279}#))))
- (if (if (eq? #{a\ 13286}#
- (car #{x\ 13279}#))
- (eq? #{d\ 13287}# (cdr #{x\ 13279}#))
- #f)
- #{x\ 13279}#
- (cons #{a\ 13286}# #{d\ 13287}#)))
- (if (vector? #{x\ 13279}#)
- (let ((#{old\ 13293}#
- (vector->list #{x\ 13279}#)))
- (let ((#{new\ 13295}#
- (map #{f\ 13278}#
- #{old\ 13293}#)))
- (if (#{and-map*\ 12627}#
- eq?
- #{old\ 13293}#
- #{new\ 13295}#)
- #{x\ 13279}#
- (list->vector #{new\ 13295}#))))
- #{x\ 13279}#))))))
- (#{f\ 13278}# #{x\ 13271}#)))))
- (#{chi-lambda-case\ 13025}#
- (lambda (#{e\ 13297}#
- #{r\ 13298}#
- #{w\ 13299}#
- #{s\ 13300}#
- #{mod\ 13301}#
- #{get-formals\ 13302}#
- #{clauses\ 13303}#)
- (letrec ((#{expand-body\ 13318}#
- (lambda (#{req\ 13319}#
- #{opt\ 13320}#
- #{rest\ 13321}#
- #{kw\ 13322}#
- #{body\ 13323}#
- #{vars\ 13324}#
- #{r*\ 13325}#
- #{w*\ 13326}#
- #{inits\ 13327}#
- #{meta\ 13328}#)
- ((lambda (#{tmp\ 13339}#)
- ((lambda (#{tmp\ 13340}#)
- (if (if #{tmp\ 13340}#
- (apply (lambda (#{docstring\ 13344}#
- #{e1\ 13345}#
- #{e2\ 13346}#)
+ (#{wrap-marks\ 314}# #{w\ 663}#))
+ #{x\ 662}#
+ (letrec ((#{f\ 669}# (lambda (#{x\ 670}#)
+ (if (#{syntax-object?\ 271}#
+ #{x\ 670}#)
+ (#{strip\ 418}#
+ (#{syntax-object-expression\ 273}#
+ #{x\ 670}#)
+ (#{syntax-object-wrap\ 275}#
+ #{x\ 670}#))
+ (if (pair? #{x\ 670}#)
+ (let ((#{a\ 677}# (#{f\ 669}# (car
#{x\ 670}#)))
+ (#{d\ 678}# (#{f\ 669}# (cdr
#{x\ 670}#))))
+ (if (if (eq? #{a\ 677}#
+ (car #{x\ 670}#))
+ (eq? #{d\ 678}#
+ (cdr #{x\ 670}#))
+ #f)
+ #{x\ 670}#
+ (cons #{a\ 677}# #{d\ 678}#)))
+ (if (vector? #{x\ 670}#)
+ (let ((#{old\ 684}#
+ (vector->list
+ #{x\ 670}#)))
+ (let ((#{new\ 686}#
+ (map #{f\ 669}#
+ #{old\ 684}#)))
+ (if (#{and-map*\ 20}#
+ eq?
+ #{old\ 684}#
+ #{new\ 686}#)
+ #{x\ 670}#
+ (list->vector
+ #{new\ 686}#))))
+ #{x\ 670}#))))))
+ (#{f\ 669}# #{x\ 662}#)))))
+ (#{chi-lambda-case\ 416}#
+ (lambda (#{e\ 688}#
+ #{r\ 689}#
+ #{w\ 690}#
+ #{s\ 691}#
+ #{mod\ 692}#
+ #{get-formals\ 693}#
+ #{clauses\ 694}#)
+ (letrec ((#{expand-body\ 709}#
+ (lambda (#{req\ 710}#
+ #{opt\ 711}#
+ #{rest\ 712}#
+ #{kw\ 713}#
+ #{body\ 714}#
+ #{vars\ 715}#
+ #{r*\ 716}#
+ #{w*\ 717}#
+ #{inits\ 718}#
+ #{meta\ 719}#)
+ ((lambda (#{tmp\ 730}#)
+ ((lambda (#{tmp\ 731}#)
+ (if (if #{tmp\ 731}#
+ (apply (lambda (#{docstring\ 735}#
+ #{e1\ 736}#
+ #{e2\ 737}#)
(string?
(syntax->datum
- #{docstring\ 13344}#)))
- #{tmp\ 13340}#)
+ #{docstring\ 735}#)))
+ #{tmp\ 731}#)
#f)
- (apply (lambda (#{docstring\ 13350}#
- #{e1\ 13351}#
- #{e2\ 13352}#)
- (#{expand-body\ 13318}#
- #{req\ 13319}#
- #{opt\ 13320}#
- #{rest\ 13321}#
- #{kw\ 13322}#
- (cons #{e1\ 13351}#
- #{e2\ 13352}#)
- #{vars\ 13324}#
- #{r*\ 13325}#
- #{w*\ 13326}#
- #{inits\ 13327}#
+ (apply (lambda (#{docstring\ 741}#
+ #{e1\ 742}#
+ #{e2\ 743}#)
+ (#{expand-body\ 709}#
+ #{req\ 710}#
+ #{opt\ 711}#
+ #{rest\ 712}#
+ #{kw\ 713}#
+ (cons #{e1\ 742}# #{e2\ 743}#)
+ #{vars\ 715}#
+ #{r*\ 716}#
+ #{w*\ 717}#
+ #{inits\ 718}#
(append
- #{meta\ 13328}#
+ #{meta\ 719}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
13350}#))))))
- #{tmp\ 13340}#)
- ((lambda (#{tmp\ 13355}#)
- (if #{tmp\ 13355}#
- (apply (lambda (#{k\ 13360}#
- #{v\ 13361}#
- #{e1\ 13362}#
- #{e2\ 13363}#)
- (#{expand-body\ 13318}#
- #{req\ 13319}#
- #{opt\ 13320}#
- #{rest\ 13321}#
- #{kw\ 13322}#
- (cons #{e1\ 13362}#
- #{e2\ 13363}#)
- #{vars\ 13324}#
- #{r*\ 13325}#
- #{w*\ 13326}#
- #{inits\ 13327}#
+ #{docstring\
741}#))))))
+ #{tmp\ 731}#)
+ ((lambda (#{tmp\ 746}#)
+ (if #{tmp\ 746}#
+ (apply (lambda (#{k\ 751}#
+ #{v\ 752}#
+ #{e1\ 753}#
+ #{e2\ 754}#)
+ (#{expand-body\ 709}#
+ #{req\ 710}#
+ #{opt\ 711}#
+ #{rest\ 712}#
+ #{kw\ 713}#
+ (cons #{e1\ 753}#
+ #{e2\ 754}#)
+ #{vars\ 715}#
+ #{r*\ 716}#
+ #{w*\ 717}#
+ #{inits\ 718}#
(append
- #{meta\ 13328}#
+ #{meta\ 719}#
(syntax->datum
(map cons
- #{k\ 13360}#
- #{v\ 13361}#)))))
- #{tmp\ 13355}#)
- ((lambda (#{tmp\ 13367}#)
- (if #{tmp\ 13367}#
- (apply (lambda (#{e1\ 13370}#
- #{e2\ 13371}#)
+ #{k\ 751}#
+ #{v\ 752}#)))))
+ #{tmp\ 746}#)
+ ((lambda (#{tmp\ 758}#)
+ (if #{tmp\ 758}#
+ (apply (lambda (#{e1\ 761}#
+ #{e2\ 762}#)
(values
- #{meta\ 13328}#
- #{req\ 13319}#
- #{opt\ 13320}#
- #{rest\ 13321}#
- #{kw\ 13322}#
- #{inits\ 13327}#
- #{vars\ 13324}#
- (#{chi-body\ 13009}#
- (cons #{e1\ 13370}#
- #{e2\ 13371}#)
- (#{source-wrap\
12987}#
- #{e\ 13297}#
- #{w\ 13299}#
- #{s\ 13300}#
- #{mod\ 13301}#)
- #{r*\ 13325}#
- #{w*\ 13326}#
- #{mod\ 13301}#)))
- #{tmp\ 13367}#)
+ #{meta\ 719}#
+ #{req\ 710}#
+ #{opt\ 711}#
+ #{rest\ 712}#
+ #{kw\ 713}#
+ #{inits\ 718}#
+ #{vars\ 715}#
+ (#{chi-body\ 400}#
+ (cons #{e1\ 761}#
+ #{e2\ 762}#)
+ (#{source-wrap\
378}#
+ #{e\ 688}#
+ #{w\ 690}#
+ #{s\ 691}#
+ #{mod\ 692}#)
+ #{r*\ 716}#
+ #{w*\ 717}#
+ #{mod\ 692}#)))
+ #{tmp\ 758}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 13339}#)))
+ #{tmp\ 730}#)))
($sc-dispatch
- #{tmp\ 13339}#
+ #{tmp\ 730}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 13339}#
+ #{tmp\ 730}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 13339}#
+ #{tmp\ 730}#
'(any any . each-any))))
- #{body\ 13323}#)))
- (#{expand-kw\ 13316}#
- (lambda (#{req\ 13373}#
- #{opt\ 13374}#
- #{rest\ 13375}#
- #{kw\ 13376}#
- #{body\ 13377}#
- #{vars\ 13378}#
- #{r*\ 13379}#
- #{w*\ 13380}#
- #{aok\ 13381}#
- #{out\ 13382}#
- #{inits\ 13383}#)
- (if (pair? #{kw\ 13376}#)
- ((lambda (#{tmp\ 13397}#)
- ((lambda (#{tmp\ 13398}#)
- (if #{tmp\ 13398}#
- (apply (lambda (#{k\ 13402}#
- #{id\ 13403}#
- #{i\ 13404}#)
- (let ((#{v\ 13407}#
- (#{gen-var\ 13029}#
- #{id\ 13403}#)))
- (let ((#{l\ 13409}#
- (#{gen-labels\ 12934}#
- (list #{v\
13407}#))))
- (let ((#{r**\ 13411}#
- (#{extend-var-env\
12906}#
- #{l\ 13409}#
- (list #{v\
13407}#)
- #{r*\ 13379}#)))
- (let ((#{w**\ 13413}#
-
(#{make-binding-wrap\ 12963}#
- (list #{id\
13403}#)
- #{l\ 13409}#
- #{w*\ 13380}#)))
- (#{expand-kw\ 13316}#
- #{req\ 13373}#
- #{opt\ 13374}#
- #{rest\ 13375}#
- (cdr #{kw\ 13376}#)
- #{body\ 13377}#
- (cons #{v\ 13407}#
- #{vars\ 13378}#)
- #{r**\ 13411}#
- #{w**\ 13413}#
- #{aok\ 13381}#
+ #{body\ 714}#)))
+ (#{expand-kw\ 707}#
+ (lambda (#{req\ 764}#
+ #{opt\ 765}#
+ #{rest\ 766}#
+ #{kw\ 767}#
+ #{body\ 768}#
+ #{vars\ 769}#
+ #{r*\ 770}#
+ #{w*\ 771}#
+ #{aok\ 772}#
+ #{out\ 773}#
+ #{inits\ 774}#)
+ (if (pair? #{kw\ 767}#)
+ ((lambda (#{tmp\ 788}#)
+ ((lambda (#{tmp\ 789}#)
+ (if #{tmp\ 789}#
+ (apply (lambda (#{k\ 793}#
+ #{id\ 794}#
+ #{i\ 795}#)
+ (let ((#{v\ 798}# (#{gen-var\
420}#
+ #{id\
794}#)))
+ (let ((#{l\ 800}#
(#{gen-labels\ 325}#
+ (list
#{v\ 798}#))))
+ (let ((#{r**\ 802}#
+ (#{extend-var-env\
297}#
+ #{l\ 800}#
+ (list #{v\ 798}#)
+ #{r*\ 770}#)))
+ (let ((#{w**\ 804}#
+
(#{make-binding-wrap\ 354}#
+ (list #{id\
794}#)
+ #{l\ 800}#
+ #{w*\ 771}#)))
+ (#{expand-kw\ 707}#
+ #{req\ 764}#
+ #{opt\ 765}#
+ #{rest\ 766}#
+ (cdr #{kw\ 767}#)
+ #{body\ 768}#
+ (cons #{v\ 798}#
+ #{vars\ 769}#)
+ #{r**\ 802}#
+ #{w**\ 804}#
+ #{aok\ 772}#
(cons (list
(syntax->datum
- #{k\
13402}#)
+ #{k\
793}#)
(syntax->datum
- #{id\
13403}#)
- #{v\
13407}#)
- #{out\ 13382}#)
- (cons (#{chi\ 13001}#
- #{i\ 13404}#
- #{r*\ 13379}#
- #{w*\ 13380}#
- #{mod\
13301}#)
- #{inits\
13383}#)))))))
- #{tmp\ 13398}#)
+ #{id\
794}#)
+ #{v\
798}#)
+ #{out\ 773}#)
+ (cons (#{chi\ 392}#
+ #{i\ 795}#
+ #{r*\ 770}#
+ #{w*\ 771}#
+ #{mod\ 692}#)
+ #{inits\
774}#)))))))
+ #{tmp\ 789}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 13397}#)))
+ #{tmp\ 788}#)))
($sc-dispatch
- #{tmp\ 13397}#
+ #{tmp\ 788}#
'(any any any))))
- (car #{kw\ 13376}#))
- (#{expand-body\ 13318}#
- #{req\ 13373}#
- #{opt\ 13374}#
- #{rest\ 13375}#
- (if (let ((#{t\ 13417}# #{aok\ 13381}#))
- (if #{t\ 13417}#
- #{t\ 13417}#
- (pair? #{out\ 13382}#)))
- (cons #{aok\ 13381}#
- (reverse #{out\ 13382}#))
+ (car #{kw\ 767}#))
+ (#{expand-body\ 709}#
+ #{req\ 764}#
+ #{opt\ 765}#
+ #{rest\ 766}#
+ (if (let ((#{t\ 808}# #{aok\ 772}#))
+ (if #{t\ 808}#
+ #{t\ 808}#
+ (pair? #{out\ 773}#)))
+ (cons #{aok\ 772}# (reverse #{out\ 773}#))
#f)
- #{body\ 13377}#
- (reverse #{vars\ 13378}#)
- #{r*\ 13379}#
- #{w*\ 13380}#
- (reverse #{inits\ 13383}#)
+ #{body\ 768}#
+ (reverse #{vars\ 769}#)
+ #{r*\ 770}#
+ #{w*\ 771}#
+ (reverse #{inits\ 774}#)
'()))))
- (#{expand-opt\ 13314}#
- (lambda (#{req\ 13419}#
- #{opt\ 13420}#
- #{rest\ 13421}#
- #{kw\ 13422}#
- #{body\ 13423}#
- #{vars\ 13424}#
- #{r*\ 13425}#
- #{w*\ 13426}#
- #{out\ 13427}#
- #{inits\ 13428}#)
- (if (pair? #{opt\ 13420}#)
- ((lambda (#{tmp\ 13441}#)
- ((lambda (#{tmp\ 13442}#)
- (if #{tmp\ 13442}#
- (apply (lambda (#{id\ 13445}#
- #{i\ 13446}#)
- (let ((#{v\ 13449}#
- (#{gen-var\ 13029}#
- #{id\ 13445}#)))
- (let ((#{l\ 13451}#
- (#{gen-labels\ 12934}#
- (list #{v\
13449}#))))
- (let ((#{r**\ 13453}#
- (#{extend-var-env\
12906}#
- #{l\ 13451}#
- (list #{v\
13449}#)
- #{r*\ 13425}#)))
- (let ((#{w**\ 13455}#
-
(#{make-binding-wrap\ 12963}#
- (list #{id\
13445}#)
- #{l\ 13451}#
- #{w*\ 13426}#)))
- (#{expand-opt\ 13314}#
- #{req\ 13419}#
- (cdr #{opt\ 13420}#)
- #{rest\ 13421}#
- #{kw\ 13422}#
- #{body\ 13423}#
- (cons #{v\ 13449}#
- #{vars\ 13424}#)
- #{r**\ 13453}#
- #{w**\ 13455}#
+ (#{expand-opt\ 705}#
+ (lambda (#{req\ 810}#
+ #{opt\ 811}#
+ #{rest\ 812}#
+ #{kw\ 813}#
+ #{body\ 814}#
+ #{vars\ 815}#
+ #{r*\ 816}#
+ #{w*\ 817}#
+ #{out\ 818}#
+ #{inits\ 819}#)
+ (if (pair? #{opt\ 811}#)
+ ((lambda (#{tmp\ 832}#)
+ ((lambda (#{tmp\ 833}#)
+ (if #{tmp\ 833}#
+ (apply (lambda (#{id\ 836}# #{i\ 837}#)
+ (let ((#{v\ 840}# (#{gen-var\
420}#
+ #{id\
836}#)))
+ (let ((#{l\ 842}#
(#{gen-labels\ 325}#
+ (list
#{v\ 840}#))))
+ (let ((#{r**\ 844}#
+ (#{extend-var-env\
297}#
+ #{l\ 842}#
+ (list #{v\ 840}#)
+ #{r*\ 816}#)))
+ (let ((#{w**\ 846}#
+
(#{make-binding-wrap\ 354}#
+ (list #{id\
836}#)
+ #{l\ 842}#
+ #{w*\ 817}#)))
+ (#{expand-opt\ 705}#
+ #{req\ 810}#
+ (cdr #{opt\ 811}#)
+ #{rest\ 812}#
+ #{kw\ 813}#
+ #{body\ 814}#
+ (cons #{v\ 840}#
+ #{vars\ 815}#)
+ #{r**\ 844}#
+ #{w**\ 846}#
(cons (syntax->datum
- #{id\ 13445}#)
- #{out\ 13427}#)
- (cons (#{chi\ 13001}#
- #{i\ 13446}#
- #{r*\ 13425}#
- #{w*\ 13426}#
- #{mod\
13301}#)
- #{inits\
13428}#)))))))
- #{tmp\ 13442}#)
+ #{id\ 836}#)
+ #{out\ 818}#)
+ (cons (#{chi\ 392}#
+ #{i\ 837}#
+ #{r*\ 816}#
+ #{w*\ 817}#
+ #{mod\ 692}#)
+ #{inits\
819}#)))))))
+ #{tmp\ 833}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 13441}#)))
+ #{tmp\ 832}#)))
($sc-dispatch
- #{tmp\ 13441}#
+ #{tmp\ 832}#
'(any any))))
- (car #{opt\ 13420}#))
- (if #{rest\ 13421}#
- (let ((#{v\ 13460}#
- (#{gen-var\ 13029}# #{rest\ 13421}#)))
- (let ((#{l\ 13462}#
- (#{gen-labels\ 12934}#
- (list #{v\ 13460}#))))
- (let ((#{r*\ 13464}#
- (#{extend-var-env\ 12906}#
- #{l\ 13462}#
- (list #{v\ 13460}#)
- #{r*\ 13425}#)))
- (let ((#{w*\ 13466}#
- (#{make-binding-wrap\ 12963}#
- (list #{rest\ 13421}#)
- #{l\ 13462}#
- #{w*\ 13426}#)))
- (#{expand-kw\ 13316}#
- #{req\ 13419}#
- (if (pair? #{out\ 13427}#)
- (reverse #{out\ 13427}#)
+ (car #{opt\ 811}#))
+ (if #{rest\ 812}#
+ (let ((#{v\ 851}# (#{gen-var\ 420}#
+ #{rest\ 812}#)))
+ (let ((#{l\ 853}# (#{gen-labels\ 325}#
+ (list #{v\ 851}#))))
+ (let ((#{r*\ 855}#
+ (#{extend-var-env\ 297}#
+ #{l\ 853}#
+ (list #{v\ 851}#)
+ #{r*\ 816}#)))
+ (let ((#{w*\ 857}#
+ (#{make-binding-wrap\ 354}#
+ (list #{rest\ 812}#)
+ #{l\ 853}#
+ #{w*\ 817}#)))
+ (#{expand-kw\ 707}#
+ #{req\ 810}#
+ (if (pair? #{out\ 818}#)
+ (reverse #{out\ 818}#)
#f)
- (syntax->datum #{rest\ 13421}#)
- (if (pair? #{kw\ 13422}#)
- (cdr #{kw\ 13422}#)
- #{kw\ 13422}#)
- #{body\ 13423}#
- (cons #{v\ 13460}# #{vars\ 13424}#)
- #{r*\ 13464}#
- #{w*\ 13466}#
- (if (pair? #{kw\ 13422}#)
- (car #{kw\ 13422}#)
+ (syntax->datum #{rest\ 812}#)
+ (if (pair? #{kw\ 813}#)
+ (cdr #{kw\ 813}#)
+ #{kw\ 813}#)
+ #{body\ 814}#
+ (cons #{v\ 851}# #{vars\ 815}#)
+ #{r*\ 855}#
+ #{w*\ 857}#
+ (if (pair? #{kw\ 813}#)
+ (car #{kw\ 813}#)
#f)
'()
- #{inits\ 13428}#)))))
- (#{expand-kw\ 13316}#
- #{req\ 13419}#
- (if (pair? #{out\ 13427}#)
- (reverse #{out\ 13427}#)
+ #{inits\ 819}#)))))
+ (#{expand-kw\ 707}#
+ #{req\ 810}#
+ (if (pair? #{out\ 818}#)
+ (reverse #{out\ 818}#)
#f)
#f
- (if (pair? #{kw\ 13422}#)
- (cdr #{kw\ 13422}#)
- #{kw\ 13422}#)
- #{body\ 13423}#
- #{vars\ 13424}#
- #{r*\ 13425}#
- #{w*\ 13426}#
- (if (pair? #{kw\ 13422}#)
- (car #{kw\ 13422}#)
- #f)
+ (if (pair? #{kw\ 813}#)
+ (cdr #{kw\ 813}#)
+ #{kw\ 813}#)
+ #{body\ 814}#
+ #{vars\ 815}#
+ #{r*\ 816}#
+ #{w*\ 817}#
+ (if (pair? #{kw\ 813}#) (car #{kw\ 813}#) #f)
'()
- #{inits\ 13428}#)))))
- (#{expand-req\ 13312}#
- (lambda (#{req\ 13468}#
- #{opt\ 13469}#
- #{rest\ 13470}#
- #{kw\ 13471}#
- #{body\ 13472}#)
- (let ((#{vars\ 13480}#
- (map #{gen-var\ 13029}# #{req\ 13468}#))
- (#{labels\ 13481}#
- (#{gen-labels\ 12934}# #{req\ 13468}#)))
- (let ((#{r*\ 13484}#
- (#{extend-var-env\ 12906}#
- #{labels\ 13481}#
- #{vars\ 13480}#
- #{r\ 13298}#))
- (#{w*\ 13485}#
- (#{make-binding-wrap\ 12963}#
- #{req\ 13468}#
- #{labels\ 13481}#
- #{w\ 13299}#)))
- (#{expand-opt\ 13314}#
- (map syntax->datum #{req\ 13468}#)
- #{opt\ 13469}#
- #{rest\ 13470}#
- #{kw\ 13471}#
- #{body\ 13472}#
- (reverse #{vars\ 13480}#)
- #{r*\ 13484}#
- #{w*\ 13485}#
+ #{inits\ 819}#)))))
+ (#{expand-req\ 703}#
+ (lambda (#{req\ 859}#
+ #{opt\ 860}#
+ #{rest\ 861}#
+ #{kw\ 862}#
+ #{body\ 863}#)
+ (let ((#{vars\ 871}#
+ (map #{gen-var\ 420}# #{req\ 859}#))
+ (#{labels\ 872}#
+ (#{gen-labels\ 325}# #{req\ 859}#)))
+ (let ((#{r*\ 875}#
+ (#{extend-var-env\ 297}#
+ #{labels\ 872}#
+ #{vars\ 871}#
+ #{r\ 689}#))
+ (#{w*\ 876}#
+ (#{make-binding-wrap\ 354}#
+ #{req\ 859}#
+ #{labels\ 872}#
+ #{w\ 690}#)))
+ (#{expand-opt\ 705}#
+ (map syntax->datum #{req\ 859}#)
+ #{opt\ 860}#
+ #{rest\ 861}#
+ #{kw\ 862}#
+ #{body\ 863}#
+ (reverse #{vars\ 871}#)
+ #{r*\ 875}#
+ #{w*\ 876}#
'()
'()))))))
- ((lambda (#{tmp\ 13486}#)
- ((lambda (#{tmp\ 13487}#)
- (if #{tmp\ 13487}#
+ ((lambda (#{tmp\ 877}#)
+ ((lambda (#{tmp\ 878}#)
+ (if #{tmp\ 878}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 13487}#)
- ((lambda (#{tmp\ 13488}#)
- (if #{tmp\ 13488}#
- (apply (lambda (#{args\ 13495}#
- #{e1\ 13496}#
- #{e2\ 13497}#
- #{args*\ 13498}#
- #{e1*\ 13499}#
- #{e2*\ 13500}#)
+ #{tmp\ 878}#)
+ ((lambda (#{tmp\ 879}#)
+ (if #{tmp\ 879}#
+ (apply (lambda (#{args\ 886}#
+ #{e1\ 887}#
+ #{e2\ 888}#
+ #{args*\ 889}#
+ #{e1*\ 890}#
+ #{e2*\ 891}#)
(call-with-values
(lambda ()
- (#{get-formals\ 13302}#
- #{args\ 13495}#))
- (lambda (#{req\ 13501}#
- #{opt\ 13502}#
- #{rest\ 13503}#
- #{kw\ 13504}#)
+ (#{get-formals\ 693}#
+ #{args\ 886}#))
+ (lambda (#{req\ 892}#
+ #{opt\ 893}#
+ #{rest\ 894}#
+ #{kw\ 895}#)
(call-with-values
(lambda ()
- (#{expand-req\ 13312}#
- #{req\ 13501}#
- #{opt\ 13502}#
- #{rest\ 13503}#
- #{kw\ 13504}#
- (cons #{e1\ 13496}#
- #{e2\ 13497}#)))
- (lambda (#{meta\ 13510}#
- #{req\ 13511}#
- #{opt\ 13512}#
- #{rest\ 13513}#
- #{kw\ 13514}#
- #{inits\ 13515}#
- #{vars\ 13516}#
- #{body\ 13517}#)
+ (#{expand-req\ 703}#
+ #{req\ 892}#
+ #{opt\ 893}#
+ #{rest\ 894}#
+ #{kw\ 895}#
+ (cons #{e1\ 887}#
+ #{e2\ 888}#)))
+ (lambda (#{meta\ 901}#
+ #{req\ 902}#
+ #{opt\ 903}#
+ #{rest\ 904}#
+ #{kw\ 905}#
+ #{inits\ 906}#
+ #{vars\ 907}#
+ #{body\ 908}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 13025}#
- #{e\ 13297}#
- #{r\ 13298}#
- #{w\ 13299}#
- #{s\ 13300}#
- #{mod\ 13301}#
- #{get-formals\ 13302}#
- (map (lambda (#{tmp\
13528}#
- #{tmp\
13527}#
- #{tmp\
13526}#)
- (cons #{tmp\
13526}#
- (cons #{tmp\
13527}#
- #{tmp\
13528}#)))
- #{e2*\ 13500}#
- #{e1*\ 13499}#
- #{args*\ 13498}#)))
- (lambda (#{meta*\ 13530}#
- #{else*\ 13531}#)
+ (#{chi-lambda-case\ 416}#
+ #{e\ 688}#
+ #{r\ 689}#
+ #{w\ 690}#
+ #{s\ 691}#
+ #{mod\ 692}#
+ #{get-formals\ 693}#
+ (map (lambda (#{tmp\ 919}#
+ #{tmp\ 918}#
+ #{tmp\
917}#)
+ (cons #{tmp\ 917}#
+ (cons #{tmp\
918}#
+ #{tmp\
919}#)))
+ #{e2*\ 891}#
+ #{e1*\ 890}#
+ #{args*\ 889}#)))
+ (lambda (#{meta*\ 921}#
+ #{else*\ 922}#)
(values
(append
- #{meta\ 13510}#
- #{meta*\ 13530}#)
- (#{build-lambda-case\
12862}#
- #{s\ 13300}#
- #{req\ 13511}#
- #{opt\ 13512}#
- #{rest\ 13513}#
- #{kw\ 13514}#
- #{inits\ 13515}#
- #{vars\ 13516}#
- #{body\ 13517}#
- #{else*\
13531}#)))))))))
- #{tmp\ 13488}#)
+ #{meta\ 901}#
+ #{meta*\ 921}#)
+ (#{build-lambda-case\
253}#
+ #{s\ 691}#
+ #{req\ 902}#
+ #{opt\ 903}#
+ #{rest\ 904}#
+ #{kw\ 905}#
+ #{inits\ 906}#
+ #{vars\ 907}#
+ #{body\ 908}#
+ #{else*\ 922}#)))))))))
+ #{tmp\ 879}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13486}#)))
+ #{tmp\ 877}#)))
($sc-dispatch
- #{tmp\ 13486}#
+ #{tmp\ 877}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 13486}# (quote ()))))
- #{clauses\ 13303}#))))
- (#{lambda*-formals\ 13023}#
- (lambda (#{orig-args\ 13534}#)
- (letrec ((#{check\ 13545}#
- (lambda (#{req\ 13546}#
- #{opt\ 13547}#
- #{rest\ 13548}#
- #{kw\ 13549}#)
- (if (#{distinct-bound-ids?\ 12981}#
+ ($sc-dispatch #{tmp\ 877}# (quote ()))))
+ #{clauses\ 694}#))))
+ (#{lambda*-formals\ 414}#
+ (lambda (#{orig-args\ 925}#)
+ (letrec ((#{check\ 936}#
+ (lambda (#{req\ 937}#
+ #{opt\ 938}#
+ #{rest\ 939}#
+ #{kw\ 940}#)
+ (if (#{distinct-bound-ids?\ 372}#
(append
- #{req\ 13546}#
- (map car #{opt\ 13547}#)
- (if #{rest\ 13548}#
- (list #{rest\ 13548}#)
+ #{req\ 937}#
+ (map car #{opt\ 938}#)
+ (if #{rest\ 939}#
+ (list #{rest\ 939}#)
'())
- (if (pair? #{kw\ 13549}#)
- (map cadr (cdr #{kw\ 13549}#))
+ (if (pair? #{kw\ 940}#)
+ (map cadr (cdr #{kw\ 940}#))
'())))
(values
- #{req\ 13546}#
- #{opt\ 13547}#
- #{rest\ 13548}#
- #{kw\ 13549}#)
+ #{req\ 937}#
+ #{opt\ 938}#
+ #{rest\ 939}#
+ #{kw\ 940}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 13534}#))))
- (#{rest\ 13543}#
- (lambda (#{args\ 13557}#
- #{req\ 13558}#
- #{opt\ 13559}#
- #{kw\ 13560}#)
- ((lambda (#{tmp\ 13565}#)
- ((lambda (#{tmp\ 13566}#)
- (if (if #{tmp\ 13566}#
- (apply (lambda (#{r\ 13568}#)
- (#{id?\ 12916}# #{r\ 13568}#))
- #{tmp\ 13566}#)
+ #{orig-args\ 925}#))))
+ (#{rest\ 934}#
+ (lambda (#{args\ 948}#
+ #{req\ 949}#
+ #{opt\ 950}#
+ #{kw\ 951}#)
+ ((lambda (#{tmp\ 956}#)
+ ((lambda (#{tmp\ 957}#)
+ (if (if #{tmp\ 957}#
+ (apply (lambda (#{r\ 959}#)
+ (#{id?\ 307}# #{r\ 959}#))
+ #{tmp\ 957}#)
#f)
- (apply (lambda (#{r\ 13570}#)
- (#{check\ 13545}#
- #{req\ 13558}#
- #{opt\ 13559}#
- #{r\ 13570}#
- #{kw\ 13560}#))
- #{tmp\ 13566}#)
- ((lambda (#{else\ 13572}#)
+ (apply (lambda (#{r\ 961}#)
+ (#{check\ 936}#
+ #{req\ 949}#
+ #{opt\ 950}#
+ #{r\ 961}#
+ #{kw\ 951}#))
+ #{tmp\ 957}#)
+ ((lambda (#{else\ 963}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 13534}#
- #{args\ 13557}#))
- #{tmp\ 13565}#)))
- (list #{tmp\ 13565}#)))
- #{args\ 13557}#)))
- (#{key\ 13541}#
- (lambda (#{args\ 13573}#
- #{req\ 13574}#
- #{opt\ 13575}#
- #{rkey\ 13576}#)
- ((lambda (#{tmp\ 13581}#)
- ((lambda (#{tmp\ 13582}#)
- (if #{tmp\ 13582}#
+ #{orig-args\ 925}#
+ #{args\ 948}#))
+ #{tmp\ 956}#)))
+ (list #{tmp\ 956}#)))
+ #{args\ 948}#)))
+ (#{key\ 932}#
+ (lambda (#{args\ 964}#
+ #{req\ 965}#
+ #{opt\ 966}#
+ #{rkey\ 967}#)
+ ((lambda (#{tmp\ 972}#)
+ ((lambda (#{tmp\ 973}#)
+ (if #{tmp\ 973}#
(apply (lambda ()
- (#{check\ 13545}#
- #{req\ 13574}#
- #{opt\ 13575}#
+ (#{check\ 936}#
+ #{req\ 965}#
+ #{opt\ 966}#
#f
(cons #f
- (reverse
- #{rkey\ 13576}#))))
- #{tmp\ 13582}#)
- ((lambda (#{tmp\ 13583}#)
- (if (if #{tmp\ 13583}#
- (apply (lambda (#{a\ 13586}#
- #{b\ 13587}#)
- (#{id?\ 12916}#
- #{a\ 13586}#))
- #{tmp\ 13583}#)
+ (reverse #{rkey\ 967}#))))
+ #{tmp\ 973}#)
+ ((lambda (#{tmp\ 974}#)
+ (if (if #{tmp\ 974}#
+ (apply (lambda (#{a\ 977}#
+ #{b\ 978}#)
+ (#{id?\ 307}#
+ #{a\ 977}#))
+ #{tmp\ 974}#)
#f)
- (apply (lambda (#{a\ 13590}#
- #{b\ 13591}#)
- ((lambda (#{tmp\ 13593}#)
- ((lambda (#{k\ 13595}#)
- (#{key\ 13541}#
- #{b\ 13591}#
- #{req\ 13574}#
- #{opt\ 13575}#
- (cons (cons #{k\
13595}#
- (cons
#{a\ 13590}#
+ (apply (lambda (#{a\ 981}# #{b\ 982}#)
+ ((lambda (#{tmp\ 984}#)
+ ((lambda (#{k\ 986}#)
+ (#{key\ 932}#
+ #{b\ 982}#
+ #{req\ 965}#
+ #{opt\ 966}#
+ (cons (cons #{k\
986}#
+ (cons
#{a\ 981}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
-
#("i13594"))
+
#("i985"))
#(ribcage
#(a
b)
#((top)
(top))
-
#("i13588"
-
"i13589"))
+
#("i979"
+
"i980"))
#(ribcage
()
()
@@ -665,10 +646,10 @@
(top)
(top)
(top))
-
#("i13577"
-
"i13578"
-
"i13579"
-
"i13580"))
+
#("i968"
+
"i969"
+
"i970"
+
"i971"))
#(ribcage
(check rest
key
@@ -679,15 +660,15 @@
(top)
(top)
(top))
-
("i13544"
-
"i13542"
-
"i13540"
-
"i13538"
-
"i13536"))
+
("i935"
+
"i933"
+
"i931"
+
"i929"
+
"i927"))
#(ribcage
#(orig-args)
#((top))
-
#("i13535"))
+
#("i926"))
#(ribcage
(lambda-var-list
gen-var
@@ -822,8 +803,7 @@
make-lexical-ref
make-primitive-ref
make-const
-
make-void
-
*mode*)
+
make-void)
((top)
(top)
(top)
@@ -957,143 +937,141 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i13030"
-
"i13028"
-
"i13026"
-
"i13024"
-
"i13022"
-
"i13020"
-
"i13018"
-
"i13016"
-
"i13014"
-
"i13012"
-
"i13010"
-
"i13008"
-
"i13006"
-
"i13004"
-
"i13002"
-
"i13000"
-
"i12998"
-
"i12996"
-
"i12994"
-
"i12992"
-
"i12990"
-
"i12988"
-
"i12986"
-
"i12984"
-
"i12982"
-
"i12980"
-
"i12978"
-
"i12976"
-
"i12974"
-
"i12972"
-
"i12970"
-
"i12968"
-
"i12966"
-
"i12964"
-
"i12962"
-
"i12960"
-
"i12959"
-
"i12958"
-
"i12956"
-
"i12955"
-
"i12954"
-
"i12953"
-
"i12952"
-
"i12950"
-
"i12948"
-
"i12946"
-
"i12944"
-
"i12942"
-
"i12940"
-
"i12938"
-
"i12936"
-
"i12933"
-
"i12931"
-
"i12930"
-
"i12929"
-
"i12928"
-
"i12927"
-
"i12926"
-
"i12924"
-
"i12922"
-
"i12920"
-
"i12918"
-
"i12917"
-
"i12915"
-
"i12913"
-
"i12911"
-
"i12909"
-
"i12907"
-
"i12905"
-
"i12903"
-
"i12902"
-
"i12900"
-
"i12898"
-
"i12897"
-
"i12896"
-
"i12894"
-
"i12893"
-
"i12891"
-
"i12889"
-
"i12887"
-
"i12885"
-
"i12883"
-
"i12881"
-
"i12879"
-
"i12877"
-
"i12875"
-
"i12873"
-
"i12871"
-
"i12869"
-
"i12867"
-
"i12865"
-
"i12863"
-
"i12861"
-
"i12859"
-
"i12857"
-
"i12855"
-
"i12853"
-
"i12851"
-
"i12849"
-
"i12847"
-
"i12845"
-
"i12843"
-
"i12841"
-
"i12839"
-
"i12837"
-
"i12835"
-
"i12833"
-
"i12831"
-
"i12829"
-
"i12828"
-
"i12826"
-
"i12824"
-
"i12822"
-
"i12820"
-
"i12818"
-
"i12816"
-
"i12814"
-
"i12812"
-
"i12810"
-
"i12808"
-
"i12806"
-
"i12804"
-
"i12802"
-
"i12800"
-
"i12798"
-
"i12796"
-
"i12794"
-
"i12792"
-
"i12790"
-
"i12788"
-
"i12786"
-
"i12784"
-
"i12782"
-
"i12780"
-
"i12777"))
+
("i421"
+
"i419"
+
"i417"
+
"i415"
+
"i413"
+
"i411"
+
"i409"
+
"i407"
+
"i405"
+
"i403"
+
"i401"
+
"i399"
+
"i397"
+
"i395"
+
"i393"
+
"i391"
+
"i389"
+
"i387"
+
"i385"
+
"i383"
+
"i381"
+
"i379"
+
"i377"
+
"i375"
+
"i373"
+
"i371"
+
"i369"
+
"i367"
+
"i365"
+
"i363"
+
"i361"
+
"i359"
+
"i357"
+
"i355"
+
"i353"
+
"i351"
+
"i350"
+
"i349"
+
"i347"
+
"i346"
+
"i345"
+
"i344"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i333"
+
"i331"
+
"i329"
+
"i327"
+
"i324"
+
"i322"
+
"i321"
+
"i320"
+
"i319"
+
"i318"
+
"i317"
+
"i315"
+
"i313"
+
"i311"
+
"i309"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i293"
+
"i291"
+
"i289"
+
"i288"
+
"i287"
+
"i285"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i260"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -1101,230 +1079,228 @@
((top)
(top)
(top))
-
("i12629"
-
"i12628"
-
"i12626")))
+
("i22"
+
"i21"
+
"i19")))
(hygiene
guile)))))
- #{rkey\
13576}#)))
- #{tmp\ 13593}#))
+ #{rkey\
967}#)))
+ #{tmp\ 984}#))
(symbol->keyword
(syntax->datum
- #{a\ 13590}#))))
- #{tmp\ 13583}#)
- ((lambda (#{tmp\ 13596}#)
- (if (if #{tmp\ 13596}#
- (apply (lambda (#{a\ 13600}#
- #{init\
13601}#
- #{b\ 13602}#)
- (#{id?\ 12916}#
- #{a\ 13600}#))
- #{tmp\ 13596}#)
+ #{a\ 981}#))))
+ #{tmp\ 974}#)
+ ((lambda (#{tmp\ 987}#)
+ (if (if #{tmp\ 987}#
+ (apply (lambda (#{a\ 991}#
+ #{init\ 992}#
+ #{b\ 993}#)
+ (#{id?\ 307}#
+ #{a\ 991}#))
+ #{tmp\ 987}#)
#f)
- (apply (lambda (#{a\ 13606}#
- #{init\ 13607}#
- #{b\ 13608}#)
- ((lambda (#{tmp\
13610}#)
- ((lambda (#{k\
13612}#)
- (#{key\ 13541}#
- #{b\ 13608}#
- #{req\ 13574}#
- #{opt\ 13575}#
- (cons (list
#{k\ 13612}#
-
#{a\ 13606}#
-
#{init\ 13607}#)
- #{rkey\
13576}#)))
- #{tmp\ 13610}#))
+ (apply (lambda (#{a\ 997}#
+ #{init\ 998}#
+ #{b\ 999}#)
+ ((lambda (#{tmp\ 1001}#)
+ ((lambda (#{k\
1003}#)
+ (#{key\ 932}#
+ #{b\ 999}#
+ #{req\ 965}#
+ #{opt\ 966}#
+ (cons (list
#{k\ 1003}#
+
#{a\ 997}#
+
#{init\ 998}#)
+ #{rkey\
967}#)))
+ #{tmp\ 1001}#))
(symbol->keyword
(syntax->datum
- #{a\ 13606}#))))
- #{tmp\ 13596}#)
- ((lambda (#{tmp\ 13613}#)
- (if (if #{tmp\ 13613}#
- (apply (lambda (#{a\
13618}#
- #{init\
13619}#
- #{k\
13620}#
- #{b\
13621}#)
- (if (#{id?\
12916}#
- #{a\
13618}#)
+ #{a\ 997}#))))
+ #{tmp\ 987}#)
+ ((lambda (#{tmp\ 1004}#)
+ (if (if #{tmp\ 1004}#
+ (apply (lambda (#{a\
1009}#
+ #{init\
1010}#
+ #{k\
1011}#
+ #{b\
1012}#)
+ (if (#{id?\
307}#
+ #{a\
1009}#)
(keyword?
(syntax->datum
- #{k\
13620}#))
+ #{k\
1011}#))
#f))
- #{tmp\ 13613}#)
+ #{tmp\ 1004}#)
#f)
- (apply (lambda (#{a\ 13628}#
- #{init\
13629}#
- #{k\ 13630}#
- #{b\
13631}#)
- (#{key\ 13541}#
- #{b\ 13631}#
- #{req\ 13574}#
- #{opt\ 13575}#
- (cons (list #{k\
13630}#
- #{a\
13628}#
-
#{init\ 13629}#)
- #{rkey\
13576}#)))
- #{tmp\ 13613}#)
- ((lambda (#{tmp\ 13632}#)
- (if (if #{tmp\ 13632}#
- (apply (lambda
(#{aok\ 13634}#)
+ (apply (lambda (#{a\ 1019}#
+ #{init\
1020}#
+ #{k\ 1021}#
+ #{b\ 1022}#)
+ (#{key\ 932}#
+ #{b\ 1022}#
+ #{req\ 965}#
+ #{opt\ 966}#
+ (cons (list #{k\
1021}#
+ #{a\
1019}#
+
#{init\ 1020}#)
+ #{rkey\
967}#)))
+ #{tmp\ 1004}#)
+ ((lambda (#{tmp\ 1023}#)
+ (if (if #{tmp\ 1023}#
+ (apply (lambda
(#{aok\ 1025}#)
(eq?
(syntax->datum
-
#{aok\ 13634}#)
+
#{aok\ 1025}#)
#:allow-other-keys))
- #{tmp\
13632}#)
+ #{tmp\
1023}#)
#f)
- (apply (lambda (#{aok\
13636}#)
- (#{check\
13545}#
- #{req\
13574}#
- #{opt\
13575}#
+ (apply (lambda (#{aok\
1027}#)
+ (#{check\
936}#
+ #{req\ 965}#
+ #{opt\ 966}#
#f
(cons #t
(reverse
-
#{rkey\ 13576}#))))
- #{tmp\ 13632}#)
- ((lambda (#{tmp\
13637}#)
- (if (if #{tmp\
13637}#
- (apply
(lambda (#{aok\ 13641}#
-
#{a\ 13642}#
-
#{b\ 13643}#)
+
#{rkey\ 967}#))))
+ #{tmp\ 1023}#)
+ ((lambda (#{tmp\
1028}#)
+ (if (if #{tmp\
1028}#
+ (apply
(lambda (#{aok\ 1032}#
+
#{a\ 1033}#
+
#{b\ 1034}#)
(if
(eq? (syntax->datum
-
#{aok\ 13641}#)
+
#{aok\ 1032}#)
#:allow-other-keys)
(eq? (syntax->datum
-
#{a\ 13642}#)
+
#{a\ 1033}#)
#:rest)
#f))
- #{tmp\
13637}#)
+ #{tmp\
1028}#)
#f)
- (apply (lambda
(#{aok\ 13649}#
-
#{a\ 13650}#
-
#{b\ 13651}#)
- (#{rest\
13543}#
- #{b\
13651}#
- #{req\
13574}#
- #{opt\
13575}#
+ (apply (lambda
(#{aok\ 1040}#
+
#{a\ 1041}#
+
#{b\ 1042}#)
+ (#{rest\
934}#
+ #{b\
1042}#
+ #{req\
965}#
+ #{opt\
966}#
(cons
#t
(reverse
-
#{rkey\ 13576}#))))
- #{tmp\
13637}#)
- ((lambda (#{tmp\
13652}#)
- (if (if #{tmp\
13652}#
- (apply
(lambda (#{aok\ 13655}#
-
#{r\ 13656}#)
+
#{rkey\ 967}#))))
+ #{tmp\
1028}#)
+ ((lambda (#{tmp\
1043}#)
+ (if (if #{tmp\
1043}#
+ (apply
(lambda (#{aok\ 1046}#
+
#{r\ 1047}#)
(if (eq? (syntax->datum
-
#{aok\ 13655}#)
+
#{aok\ 1046}#)
#:allow-other-keys)
-
(#{id?\ 12916}#
-
#{r\ 13656}#)
+
(#{id?\ 307}#
+
#{r\ 1047}#)
#f))
-
#{tmp\ 13652}#)
+
#{tmp\ 1043}#)
#f)
- (apply
(lambda (#{aok\ 13661}#
-
#{r\ 13662}#)
-
(#{rest\ 13543}#
-
#{r\ 13662}#
-
#{req\ 13574}#
-
#{opt\ 13575}#
+ (apply
(lambda (#{aok\ 1052}#
+
#{r\ 1053}#)
+
(#{rest\ 934}#
+
#{r\ 1053}#
+
#{req\ 965}#
+
#{opt\ 966}#
(cons #t
(reverse
-
#{rkey\ 13576}#))))
-
#{tmp\ 13652}#)
- ((lambda
(#{tmp\ 13663}#)
- (if (if
#{tmp\ 13663}#
-
(apply (lambda (#{a\ 13666}#
-
#{b\ 13667}#)
+
#{rkey\ 967}#))))
+
#{tmp\ 1043}#)
+ ((lambda
(#{tmp\ 1054}#)
+ (if (if
#{tmp\ 1054}#
+
(apply (lambda (#{a\ 1057}#
+
#{b\ 1058}#)
(eq? (syntax->datum
-
#{a\ 13666}#)
+
#{a\ 1057}#)
#:rest))
-
#{tmp\ 13663}#)
+
#{tmp\ 1054}#)
#f)
- (apply
(lambda (#{a\ 13670}#
-
#{b\ 13671}#)
-
(#{rest\ 13543}#
-
#{b\ 13671}#
-
#{req\ 13574}#
-
#{opt\ 13575}#
+ (apply
(lambda (#{a\ 1061}#
+
#{b\ 1062}#)
+
(#{rest\ 934}#
+
#{b\ 1062}#
+
#{req\ 965}#
+
#{opt\ 966}#
(cons #f
(reverse
-
#{rkey\ 13576}#))))
-
#{tmp\ 13663}#)
-
((lambda (#{tmp\ 13672}#)
- (if
(if #{tmp\ 13672}#
-
(apply (lambda (#{r\ 13674}#)
-
(#{id?\ 12916}#
-
#{r\ 13674}#))
-
#{tmp\ 13672}#)
+
#{rkey\ 967}#))))
+
#{tmp\ 1054}#)
+
((lambda (#{tmp\ 1063}#)
+ (if
(if #{tmp\ 1063}#
+
(apply (lambda (#{r\ 1065}#)
+
(#{id?\ 307}#
+
#{r\ 1065}#))
+
#{tmp\ 1063}#)
#f)
-
(apply (lambda (#{r\ 13676}#)
-
(#{rest\ 13543}#
-
#{r\ 13676}#
-
#{req\ 13574}#
-
#{opt\ 13575}#
+
(apply (lambda (#{r\ 1067}#)
+
(#{rest\ 934}#
+
#{r\ 1067}#
+
#{req\ 965}#
+
#{opt\ 966}#
(cons #f
(reverse
-
#{rkey\ 13576}#))))
-
#{tmp\ 13672}#)
-
((lambda (#{else\ 13678}#)
+
#{rkey\ 967}#))))
+
#{tmp\ 1063}#)
+
((lambda (#{else\ 1069}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
-
#{orig-args\ 13534}#
-
#{args\ 13573}#))
-
#{tmp\ 13581}#)))
- (list
#{tmp\ 13581}#))))
+
#{orig-args\ 925}#
+
#{args\ 964}#))
+
#{tmp\ 972}#)))
+ (list
#{tmp\ 972}#))))
($sc-dispatch
- #{tmp\
13581}#
+ #{tmp\
972}#
'(any
any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 972}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 972}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 972}#
'(any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 972}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 972}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 972}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 13581}# (quote ()))))
- #{args\ 13573}#)))
- (#{opt\ 13539}#
- (lambda (#{args\ 13679}#
- #{req\ 13680}#
- #{ropt\ 13681}#)
- ((lambda (#{tmp\ 13685}#)
- ((lambda (#{tmp\ 13686}#)
- (if #{tmp\ 13686}#
+ ($sc-dispatch #{tmp\ 972}# (quote ()))))
+ #{args\ 964}#)))
+ (#{opt\ 930}#
+ (lambda (#{args\ 1070}# #{req\ 1071}# #{ropt\ 1072}#)
+ ((lambda (#{tmp\ 1076}#)
+ ((lambda (#{tmp\ 1077}#)
+ (if #{tmp\ 1077}#
(apply (lambda ()
- (#{check\ 13545}#
- #{req\ 13680}#
- (reverse #{ropt\ 13681}#)
+ (#{check\ 936}#
+ #{req\ 1071}#
+ (reverse #{ropt\ 1072}#)
#f
'()))
- #{tmp\ 13686}#)
- ((lambda (#{tmp\ 13687}#)
- (if (if #{tmp\ 13687}#
- (apply (lambda (#{a\ 13690}#
- #{b\ 13691}#)
- (#{id?\ 12916}#
- #{a\ 13690}#))
- #{tmp\ 13687}#)
+ #{tmp\ 1077}#)
+ ((lambda (#{tmp\ 1078}#)
+ (if (if #{tmp\ 1078}#
+ (apply (lambda (#{a\ 1081}#
+ #{b\ 1082}#)
+ (#{id?\ 307}#
+ #{a\ 1081}#))
+ #{tmp\ 1078}#)
#f)
- (apply (lambda (#{a\ 13694}#
- #{b\ 13695}#)
- (#{opt\ 13539}#
- #{b\ 13695}#
- #{req\ 13680}#
- (cons (cons #{a\ 13694}#
+ (apply (lambda (#{a\ 1085}#
+ #{b\ 1086}#)
+ (#{opt\ 930}#
+ #{b\ 1086}#
+ #{req\ 1071}#
+ (cons (cons #{a\ 1085}#
'(#(syntax-object
#f
((top)
@@ -1332,8 +1308,8 @@
#(a b)
#((top)
(top))
-
#("i13692"
-
"i13693"))
+
#("i1083"
+
"i1084"))
#(ribcage
()
()
@@ -1345,9 +1321,9 @@
#((top)
(top)
(top))
-
#("i13682"
-
"i13683"
-
"i13684"))
+
#("i1073"
+
"i1074"
+
"i1075"))
#(ribcage
(check
rest
key
@@ -1358,15 +1334,15 @@
(top)
(top)
(top))
-
("i13544"
-
"i13542"
-
"i13540"
-
"i13538"
-
"i13536"))
+ ("i935"
+ "i933"
+ "i931"
+ "i929"
+
"i927"))
#(ribcage
#(orig-args)
#((top))
-
#("i13535"))
+
#("i926"))
#(ribcage
(lambda-var-list
gen-var
@@ -1501,8 +1477,7 @@
make-lexical-ref
make-primitive-ref
make-const
-
make-void
-
*mode*)
+
make-void)
((top)
(top)
(top)
@@ -1636,143 +1611,141 @@
(top)
(top)
(top)
- (top)
(top))
-
("i13030"
-
"i13028"
-
"i13026"
-
"i13024"
-
"i13022"
-
"i13020"
-
"i13018"
-
"i13016"
-
"i13014"
-
"i13012"
-
"i13010"
-
"i13008"
-
"i13006"
-
"i13004"
-
"i13002"
-
"i13000"
-
"i12998"
-
"i12996"
-
"i12994"
-
"i12992"
-
"i12990"
-
"i12988"
-
"i12986"
-
"i12984"
-
"i12982"
-
"i12980"
-
"i12978"
-
"i12976"
-
"i12974"
-
"i12972"
-
"i12970"
-
"i12968"
-
"i12966"
-
"i12964"
-
"i12962"
-
"i12960"
-
"i12959"
-
"i12958"
-
"i12956"
-
"i12955"
-
"i12954"
-
"i12953"
-
"i12952"
-
"i12950"
-
"i12948"
-
"i12946"
-
"i12944"
-
"i12942"
-
"i12940"
-
"i12938"
-
"i12936"
-
"i12933"
-
"i12931"
-
"i12930"
-
"i12929"
-
"i12928"
-
"i12927"
-
"i12926"
-
"i12924"
-
"i12922"
-
"i12920"
-
"i12918"
-
"i12917"
-
"i12915"
-
"i12913"
-
"i12911"
-
"i12909"
-
"i12907"
-
"i12905"
-
"i12903"
-
"i12902"
-
"i12900"
-
"i12898"
-
"i12897"
-
"i12896"
-
"i12894"
-
"i12893"
-
"i12891"
-
"i12889"
-
"i12887"
-
"i12885"
-
"i12883"
-
"i12881"
-
"i12879"
-
"i12877"
-
"i12875"
-
"i12873"
-
"i12871"
-
"i12869"
-
"i12867"
-
"i12865"
-
"i12863"
-
"i12861"
-
"i12859"
-
"i12857"
-
"i12855"
-
"i12853"
-
"i12851"
-
"i12849"
-
"i12847"
-
"i12845"
-
"i12843"
-
"i12841"
-
"i12839"
-
"i12837"
-
"i12835"
-
"i12833"
-
"i12831"
-
"i12829"
-
"i12828"
-
"i12826"
-
"i12824"
-
"i12822"
-
"i12820"
-
"i12818"
-
"i12816"
-
"i12814"
-
"i12812"
-
"i12810"
-
"i12808"
-
"i12806"
-
"i12804"
-
"i12802"
-
"i12800"
-
"i12798"
-
"i12796"
-
"i12794"
-
"i12792"
-
"i12790"
-
"i12788"
-
"i12786"
-
"i12784"
-
"i12782"
-
"i12780"
-
"i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+
"i171"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -1780,341 +1753,341 @@
((top)
(top)
(top))
-
("i12629"
-
"i12628"
-
"i12626")))
+ ("i22"
+ "i21"
+
"i19")))
(hygiene
guile))))
- #{ropt\ 13681}#)))
- #{tmp\ 13687}#)
- ((lambda (#{tmp\ 13696}#)
- (if (if #{tmp\ 13696}#
- (apply (lambda (#{a\ 13700}#
- #{init\
13701}#
- #{b\ 13702}#)
- (#{id?\ 12916}#
- #{a\ 13700}#))
- #{tmp\ 13696}#)
+ #{ropt\ 1072}#)))
+ #{tmp\ 1078}#)
+ ((lambda (#{tmp\ 1087}#)
+ (if (if #{tmp\ 1087}#
+ (apply (lambda (#{a\ 1091}#
+ #{init\
1092}#
+ #{b\ 1093}#)
+ (#{id?\ 307}#
+ #{a\ 1091}#))
+ #{tmp\ 1087}#)
#f)
- (apply (lambda (#{a\ 13706}#
- #{init\ 13707}#
- #{b\ 13708}#)
- (#{opt\ 13539}#
- #{b\ 13708}#
- #{req\ 13680}#
- (cons (list #{a\
13706}#
- #{init\
13707}#)
- #{ropt\
13681}#)))
- #{tmp\ 13696}#)
- ((lambda (#{tmp\ 13709}#)
- (if (if #{tmp\ 13709}#
- (apply (lambda (#{a\
13712}#
- #{b\
13713}#)
+ (apply (lambda (#{a\ 1097}#
+ #{init\ 1098}#
+ #{b\ 1099}#)
+ (#{opt\ 930}#
+ #{b\ 1099}#
+ #{req\ 1071}#
+ (cons (list #{a\
1097}#
+ #{init\
1098}#)
+ #{ropt\
1072}#)))
+ #{tmp\ 1087}#)
+ ((lambda (#{tmp\ 1100}#)
+ (if (if #{tmp\ 1100}#
+ (apply (lambda (#{a\
1103}#
+ #{b\
1104}#)
(eq?
(syntax->datum
- #{a\
13712}#)
+ #{a\
1103}#)
#:key))
- #{tmp\ 13709}#)
+ #{tmp\ 1100}#)
#f)
- (apply (lambda (#{a\ 13716}#
- #{b\
13717}#)
- (#{key\ 13541}#
- #{b\ 13717}#
- #{req\ 13680}#
+ (apply (lambda (#{a\ 1107}#
+ #{b\ 1108}#)
+ (#{key\ 932}#
+ #{b\ 1108}#
+ #{req\ 1071}#
(reverse
- #{ropt\
13681}#)
+ #{ropt\ 1072}#)
'()))
- #{tmp\ 13709}#)
- ((lambda (#{tmp\ 13718}#)
- (if (if #{tmp\ 13718}#
- (apply (lambda
(#{a\ 13721}#
-
#{b\ 13722}#)
+ #{tmp\ 1100}#)
+ ((lambda (#{tmp\ 1109}#)
+ (if (if #{tmp\ 1109}#
+ (apply (lambda
(#{a\ 1112}#
+
#{b\ 1113}#)
(eq?
(syntax->datum
-
#{a\ 13721}#)
+
#{a\ 1112}#)
#:rest))
- #{tmp\
13718}#)
+ #{tmp\
1109}#)
#f)
- (apply (lambda (#{a\
13725}#
- #{b\
13726}#)
- (#{rest\
13543}#
- #{b\ 13726}#
- #{req\
13680}#
+ (apply (lambda (#{a\
1116}#
+ #{b\
1117}#)
+ (#{rest\ 934}#
+ #{b\ 1117}#
+ #{req\
1071}#
(reverse
- #{ropt\
13681}#)
+ #{ropt\
1072}#)
'()))
- #{tmp\ 13718}#)
- ((lambda (#{tmp\
13727}#)
- (if (if #{tmp\
13727}#
- (apply
(lambda (#{r\ 13729}#)
-
(#{id?\ 12916}#
-
#{r\ 13729}#))
- #{tmp\
13727}#)
+ #{tmp\ 1109}#)
+ ((lambda (#{tmp\
1118}#)
+ (if (if #{tmp\
1118}#
+ (apply
(lambda (#{r\ 1120}#)
+
(#{id?\ 307}#
+
#{r\ 1120}#))
+ #{tmp\
1118}#)
#f)
- (apply (lambda
(#{r\ 13731}#)
- (#{rest\
13543}#
- #{r\
13731}#
- #{req\
13680}#
+ (apply (lambda
(#{r\ 1122}#)
+ (#{rest\
934}#
+ #{r\
1122}#
+ #{req\
1071}#
(reverse
-
#{ropt\ 13681}#)
+
#{ropt\ 1072}#)
'()))
- #{tmp\
13727}#)
- ((lambda (#{else\
13733}#)
+ #{tmp\
1118}#)
+ ((lambda (#{else\
1124}#)
(syntax-violation
'lambda*
"invalid
optional argument list"
- #{orig-args\
13534}#
- #{args\
13679}#))
- #{tmp\ 13685}#)))
- (list #{tmp\
13685}#))))
+ #{orig-args\
925}#
+ #{args\
1070}#))
+ #{tmp\ 1076}#)))
+ (list #{tmp\
1076}#))))
($sc-dispatch
- #{tmp\ 13685}#
+ #{tmp\ 1076}#
'(any any)))))
($sc-dispatch
- #{tmp\ 13685}#
+ #{tmp\ 1076}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 13685}#
+ #{tmp\ 1076}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 13685}#
+ #{tmp\ 1076}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 13685}# (quote ()))))
- #{args\ 13679}#)))
- (#{req\ 13537}#
- (lambda (#{args\ 13734}# #{rreq\ 13735}#)
- ((lambda (#{tmp\ 13738}#)
- ((lambda (#{tmp\ 13739}#)
- (if #{tmp\ 13739}#
+ ($sc-dispatch #{tmp\ 1076}# (quote ()))))
+ #{args\ 1070}#)))
+ (#{req\ 928}#
+ (lambda (#{args\ 1125}# #{rreq\ 1126}#)
+ ((lambda (#{tmp\ 1129}#)
+ ((lambda (#{tmp\ 1130}#)
+ (if #{tmp\ 1130}#
(apply (lambda ()
- (#{check\ 13545}#
- (reverse #{rreq\ 13735}#)
+ (#{check\ 936}#
+ (reverse #{rreq\ 1126}#)
'()
#f
'()))
- #{tmp\ 13739}#)
- ((lambda (#{tmp\ 13740}#)
- (if (if #{tmp\ 13740}#
- (apply (lambda (#{a\ 13743}#
- #{b\ 13744}#)
- (#{id?\ 12916}#
- #{a\ 13743}#))
- #{tmp\ 13740}#)
+ #{tmp\ 1130}#)
+ ((lambda (#{tmp\ 1131}#)
+ (if (if #{tmp\ 1131}#
+ (apply (lambda (#{a\ 1134}#
+ #{b\ 1135}#)
+ (#{id?\ 307}#
+ #{a\ 1134}#))
+ #{tmp\ 1131}#)
#f)
- (apply (lambda (#{a\ 13747}#
- #{b\ 13748}#)
- (#{req\ 13537}#
- #{b\ 13748}#
- (cons #{a\ 13747}#
- #{rreq\ 13735}#)))
- #{tmp\ 13740}#)
- ((lambda (#{tmp\ 13749}#)
- (if (if #{tmp\ 13749}#
- (apply (lambda (#{a\ 13752}#
- #{b\ 13753}#)
+ (apply (lambda (#{a\ 1138}#
+ #{b\ 1139}#)
+ (#{req\ 928}#
+ #{b\ 1139}#
+ (cons #{a\ 1138}#
+ #{rreq\ 1126}#)))
+ #{tmp\ 1131}#)
+ ((lambda (#{tmp\ 1140}#)
+ (if (if #{tmp\ 1140}#
+ (apply (lambda (#{a\ 1143}#
+ #{b\ 1144}#)
(eq? (syntax->datum
- #{a\ 13752}#)
+ #{a\ 1143}#)
#:optional))
- #{tmp\ 13749}#)
+ #{tmp\ 1140}#)
#f)
- (apply (lambda (#{a\ 13756}#
- #{b\ 13757}#)
- (#{opt\ 13539}#
- #{b\ 13757}#
+ (apply (lambda (#{a\ 1147}#
+ #{b\ 1148}#)
+ (#{opt\ 930}#
+ #{b\ 1148}#
(reverse
- #{rreq\ 13735}#)
+ #{rreq\ 1126}#)
'()))
- #{tmp\ 13749}#)
- ((lambda (#{tmp\ 13758}#)
- (if (if #{tmp\ 13758}#
- (apply (lambda (#{a\
13761}#
- #{b\
13762}#)
+ #{tmp\ 1140}#)
+ ((lambda (#{tmp\ 1149}#)
+ (if (if #{tmp\ 1149}#
+ (apply (lambda (#{a\
1152}#
+ #{b\
1153}#)
(eq?
(syntax->datum
- #{a\
13761}#)
+ #{a\
1152}#)
#:key))
- #{tmp\ 13758}#)
+ #{tmp\ 1149}#)
#f)
- (apply (lambda (#{a\ 13765}#
- #{b\
13766}#)
- (#{key\ 13541}#
- #{b\ 13766}#
+ (apply (lambda (#{a\ 1156}#
+ #{b\ 1157}#)
+ (#{key\ 932}#
+ #{b\ 1157}#
(reverse
- #{rreq\
13735}#)
+ #{rreq\ 1126}#)
'()
'()))
- #{tmp\ 13758}#)
- ((lambda (#{tmp\ 13767}#)
- (if (if #{tmp\ 13767}#
- (apply (lambda
(#{a\ 13770}#
-
#{b\ 13771}#)
+ #{tmp\ 1149}#)
+ ((lambda (#{tmp\ 1158}#)
+ (if (if #{tmp\ 1158}#
+ (apply (lambda
(#{a\ 1161}#
+
#{b\ 1162}#)
(eq?
(syntax->datum
-
#{a\ 13770}#)
+
#{a\ 1161}#)
#:rest))
- #{tmp\
13767}#)
+ #{tmp\
1158}#)
#f)
- (apply (lambda (#{a\
13774}#
- #{b\
13775}#)
- (#{rest\
13543}#
- #{b\ 13775}#
+ (apply (lambda (#{a\
1165}#
+ #{b\
1166}#)
+ (#{rest\ 934}#
+ #{b\ 1166}#
(reverse
- #{rreq\
13735}#)
+ #{rreq\
1126}#)
'()
'()))
- #{tmp\ 13767}#)
- ((lambda (#{tmp\
13776}#)
- (if (if #{tmp\
13776}#
- (apply
(lambda (#{r\ 13778}#)
-
(#{id?\ 12916}#
-
#{r\ 13778}#))
- #{tmp\
13776}#)
+ #{tmp\ 1158}#)
+ ((lambda (#{tmp\
1167}#)
+ (if (if #{tmp\
1167}#
+ (apply
(lambda (#{r\ 1169}#)
+
(#{id?\ 307}#
+
#{r\ 1169}#))
+ #{tmp\
1167}#)
#f)
- (apply (lambda
(#{r\ 13780}#)
- (#{rest\
13543}#
- #{r\
13780}#
+ (apply (lambda
(#{r\ 1171}#)
+ (#{rest\
934}#
+ #{r\
1171}#
(reverse
-
#{rreq\ 13735}#)
+
#{rreq\ 1126}#)
'()
'()))
- #{tmp\
13776}#)
- ((lambda (#{else\
13782}#)
+ #{tmp\
1167}#)
+ ((lambda (#{else\
1173}#)
(syntax-violation
'lambda*
"invalid
argument list"
- #{orig-args\
13534}#
- #{args\
13734}#))
- #{tmp\ 13738}#)))
- (list #{tmp\
13738}#))))
+ #{orig-args\
925}#
+ #{args\
1125}#))
+ #{tmp\ 1129}#)))
+ (list #{tmp\
1129}#))))
($sc-dispatch
- #{tmp\ 13738}#
+ #{tmp\ 1129}#
'(any any)))))
($sc-dispatch
- #{tmp\ 13738}#
+ #{tmp\ 1129}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 13738}#
+ #{tmp\ 1129}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 13738}#
+ #{tmp\ 1129}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 13738}# (quote ()))))
- #{args\ 13734}#))))
- (#{req\ 13537}# #{orig-args\ 13534}# (quote ())))))
- (#{chi-simple-lambda\ 13021}#
- (lambda (#{e\ 13783}#
- #{r\ 13784}#
- #{w\ 13785}#
- #{s\ 13786}#
- #{mod\ 13787}#
- #{req\ 13788}#
- #{rest\ 13789}#
- #{meta\ 13790}#
- #{body\ 13791}#)
- (let ((#{ids\ 13803}#
- (if #{rest\ 13789}#
- (append #{req\ 13788}# (list #{rest\ 13789}#))
- #{req\ 13788}#)))
- (let ((#{vars\ 13805}#
- (map #{gen-var\ 13029}# #{ids\ 13803}#)))
- (let ((#{labels\ 13807}#
- (#{gen-labels\ 12934}# #{ids\ 13803}#)))
- (#{build-simple-lambda\ 12858}#
- #{s\ 13786}#
- (map syntax->datum #{req\ 13788}#)
- (if #{rest\ 13789}#
- (syntax->datum #{rest\ 13789}#)
+ ($sc-dispatch #{tmp\ 1129}# (quote ()))))
+ #{args\ 1125}#))))
+ (#{req\ 928}# #{orig-args\ 925}# (quote ())))))
+ (#{chi-simple-lambda\ 412}#
+ (lambda (#{e\ 1174}#
+ #{r\ 1175}#
+ #{w\ 1176}#
+ #{s\ 1177}#
+ #{mod\ 1178}#
+ #{req\ 1179}#
+ #{rest\ 1180}#
+ #{meta\ 1181}#
+ #{body\ 1182}#)
+ (let ((#{ids\ 1194}#
+ (if #{rest\ 1180}#
+ (append #{req\ 1179}# (list #{rest\ 1180}#))
+ #{req\ 1179}#)))
+ (let ((#{vars\ 1196}#
+ (map #{gen-var\ 420}# #{ids\ 1194}#)))
+ (let ((#{labels\ 1198}#
+ (#{gen-labels\ 325}# #{ids\ 1194}#)))
+ (#{build-simple-lambda\ 249}#
+ #{s\ 1177}#
+ (map syntax->datum #{req\ 1179}#)
+ (if #{rest\ 1180}#
+ (syntax->datum #{rest\ 1180}#)
#f)
- #{vars\ 13805}#
- #{meta\ 13790}#
- (#{chi-body\ 13009}#
- #{body\ 13791}#
- (#{source-wrap\ 12987}#
- #{e\ 13783}#
- #{w\ 13785}#
- #{s\ 13786}#
- #{mod\ 13787}#)
- (#{extend-var-env\ 12906}#
- #{labels\ 13807}#
- #{vars\ 13805}#
- #{r\ 13784}#)
- (#{make-binding-wrap\ 12963}#
- #{ids\ 13803}#
- #{labels\ 13807}#
- #{w\ 13785}#)
- #{mod\ 13787}#)))))))
- (#{lambda-formals\ 13019}#
- (lambda (#{orig-args\ 13810}#)
- (letrec ((#{check\ 13815}#
- (lambda (#{req\ 13816}# #{rest\ 13817}#)
- (if (#{distinct-bound-ids?\ 12981}#
- (if #{rest\ 13817}#
- (cons #{rest\ 13817}# #{req\ 13816}#)
- #{req\ 13816}#))
- (values #{req\ 13816}# #f #{rest\ 13817}# #f)
+ #{vars\ 1196}#
+ #{meta\ 1181}#
+ (#{chi-body\ 400}#
+ #{body\ 1182}#
+ (#{source-wrap\ 378}#
+ #{e\ 1174}#
+ #{w\ 1176}#
+ #{s\ 1177}#
+ #{mod\ 1178}#)
+ (#{extend-var-env\ 297}#
+ #{labels\ 1198}#
+ #{vars\ 1196}#
+ #{r\ 1175}#)
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 1194}#
+ #{labels\ 1198}#
+ #{w\ 1176}#)
+ #{mod\ 1178}#)))))))
+ (#{lambda-formals\ 410}#
+ (lambda (#{orig-args\ 1201}#)
+ (letrec ((#{check\ 1206}#
+ (lambda (#{req\ 1207}# #{rest\ 1208}#)
+ (if (#{distinct-bound-ids?\ 372}#
+ (if #{rest\ 1208}#
+ (cons #{rest\ 1208}# #{req\ 1207}#)
+ #{req\ 1207}#))
+ (values #{req\ 1207}# #f #{rest\ 1208}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 13810}#))))
- (#{req\ 13813}#
- (lambda (#{args\ 13823}# #{rreq\ 13824}#)
- ((lambda (#{tmp\ 13827}#)
- ((lambda (#{tmp\ 13828}#)
- (if #{tmp\ 13828}#
+ #{orig-args\ 1201}#))))
+ (#{req\ 1204}#
+ (lambda (#{args\ 1214}# #{rreq\ 1215}#)
+ ((lambda (#{tmp\ 1218}#)
+ ((lambda (#{tmp\ 1219}#)
+ (if #{tmp\ 1219}#
(apply (lambda ()
- (#{check\ 13815}#
- (reverse #{rreq\ 13824}#)
+ (#{check\ 1206}#
+ (reverse #{rreq\ 1215}#)
#f))
- #{tmp\ 13828}#)
- ((lambda (#{tmp\ 13829}#)
- (if (if #{tmp\ 13829}#
- (apply (lambda (#{a\ 13832}#
- #{b\ 13833}#)
- (#{id?\ 12916}#
- #{a\ 13832}#))
- #{tmp\ 13829}#)
+ #{tmp\ 1219}#)
+ ((lambda (#{tmp\ 1220}#)
+ (if (if #{tmp\ 1220}#
+ (apply (lambda (#{a\ 1223}#
+ #{b\ 1224}#)
+ (#{id?\ 307}#
+ #{a\ 1223}#))
+ #{tmp\ 1220}#)
#f)
- (apply (lambda (#{a\ 13836}#
- #{b\ 13837}#)
- (#{req\ 13813}#
- #{b\ 13837}#
- (cons #{a\ 13836}#
- #{rreq\ 13824}#)))
- #{tmp\ 13829}#)
- ((lambda (#{tmp\ 13838}#)
- (if (if #{tmp\ 13838}#
- (apply (lambda (#{r\ 13840}#)
- (#{id?\ 12916}#
- #{r\ 13840}#))
- #{tmp\ 13838}#)
+ (apply (lambda (#{a\ 1227}#
+ #{b\ 1228}#)
+ (#{req\ 1204}#
+ #{b\ 1228}#
+ (cons #{a\ 1227}#
+ #{rreq\ 1215}#)))
+ #{tmp\ 1220}#)
+ ((lambda (#{tmp\ 1229}#)
+ (if (if #{tmp\ 1229}#
+ (apply (lambda (#{r\ 1231}#)
+ (#{id?\ 307}#
+ #{r\ 1231}#))
+ #{tmp\ 1229}#)
#f)
- (apply (lambda (#{r\ 13842}#)
- (#{check\ 13815}#
+ (apply (lambda (#{r\ 1233}#)
+ (#{check\ 1206}#
(reverse
- #{rreq\ 13824}#)
- #{r\ 13842}#))
- #{tmp\ 13838}#)
- ((lambda (#{else\ 13844}#)
+ #{rreq\ 1215}#)
+ #{r\ 1233}#))
+ #{tmp\ 1229}#)
+ ((lambda (#{else\ 1235}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 13810}#
- #{args\ 13823}#))
- #{tmp\ 13827}#)))
- (list #{tmp\ 13827}#))))
+ #{orig-args\ 1201}#
+ #{args\ 1214}#))
+ #{tmp\ 1218}#)))
+ (list #{tmp\ 1218}#))))
($sc-dispatch
- #{tmp\ 13827}#
+ #{tmp\ 1218}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 13827}# (quote ()))))
- #{args\ 13823}#))))
- (#{req\ 13813}# #{orig-args\ 13810}# (quote ())))))
- (#{ellipsis?\ 13017}#
- (lambda (#{x\ 13845}#)
- (if (#{nonsymbol-id?\ 12914}# #{x\ 13845}#)
- (#{free-id=?\ 12975}#
- #{x\ 13845}#
+ ($sc-dispatch #{tmp\ 1218}# (quote ()))))
+ #{args\ 1214}#))))
+ (#{req\ 1204}# #{orig-args\ 1201}# (quote ())))))
+ (#{ellipsis?\ 408}#
+ (lambda (#{x\ 1236}#)
+ (if (#{nonsymbol-id?\ 305}# #{x\ 1236}#)
+ (#{free-id=?\ 366}#
+ #{x\ 1236}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i13846"))
+ #(ribcage #(x) #((top)) #("i1237"))
#(ribcage
(lambda-var-list
gen-var
@@ -2249,8 +2222,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -2384,1443 +2356,1431 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629" "i12628" "i12626")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
#f)))
- (#{chi-void\ 13015}#
- (lambda () (#{build-void\ 12836}# #f)))
- (#{eval-local-transformer\ 13013}#
- (lambda (#{expanded\ 13850}# #{mod\ 13851}#)
- (let ((#{p\ 13855}#
- (#{local-eval-hook\ 12827}#
- #{expanded\ 13850}#
- #{mod\ 13851}#)))
- (if (procedure? #{p\ 13855}#)
- (cons #{p\ 13855}#
- (module-name (current-module)))
+ (#{chi-void\ 406}#
+ (lambda () (#{build-void\ 227}# #f)))
+ (#{eval-local-transformer\ 404}#
+ (lambda (#{expanded\ 1241}# #{mod\ 1242}#)
+ (let ((#{p\ 1246}#
+ (#{local-eval-hook\ 218}#
+ #{expanded\ 1241}#
+ #{mod\ 1242}#)))
+ (if (procedure? #{p\ 1246}#)
+ (cons #{p\ 1246}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 13855}#)))))
- (#{chi-local-syntax\ 13011}#
- (lambda (#{rec?\ 13856}#
- #{e\ 13857}#
- #{r\ 13858}#
- #{w\ 13859}#
- #{s\ 13860}#
- #{mod\ 13861}#
- #{k\ 13862}#)
- ((lambda (#{tmp\ 13870}#)
- ((lambda (#{tmp\ 13871}#)
- (if #{tmp\ 13871}#
- (apply (lambda (#{_\ 13877}#
- #{id\ 13878}#
- #{val\ 13879}#
- #{e1\ 13880}#
- #{e2\ 13881}#)
- (let ((#{ids\ 13883}# #{id\ 13878}#))
- (if (not (#{valid-bound-ids?\ 12979}#
- #{ids\ 13883}#))
+ #{p\ 1246}#)))))
+ (#{chi-local-syntax\ 402}#
+ (lambda (#{rec?\ 1247}#
+ #{e\ 1248}#
+ #{r\ 1249}#
+ #{w\ 1250}#
+ #{s\ 1251}#
+ #{mod\ 1252}#
+ #{k\ 1253}#)
+ ((lambda (#{tmp\ 1261}#)
+ ((lambda (#{tmp\ 1262}#)
+ (if #{tmp\ 1262}#
+ (apply (lambda (#{_\ 1268}#
+ #{id\ 1269}#
+ #{val\ 1270}#
+ #{e1\ 1271}#
+ #{e2\ 1272}#)
+ (let ((#{ids\ 1274}# #{id\ 1269}#))
+ (if (not (#{valid-bound-ids?\ 370}#
+ #{ids\ 1274}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 13857}#)
- (let ((#{labels\ 13886}#
- (#{gen-labels\ 12934}#
- #{ids\ 13883}#)))
- (let ((#{new-w\ 13888}#
- (#{make-binding-wrap\ 12963}#
- #{ids\ 13883}#
- #{labels\ 13886}#
- #{w\ 13859}#)))
- (#{k\ 13862}#
- (cons #{e1\ 13880}# #{e2\ 13881}#)
- (#{extend-env\ 12904}#
- #{labels\ 13886}#
- (let ((#{w\ 13892}#
- (if #{rec?\ 13856}#
- #{new-w\ 13888}#
- #{w\ 13859}#))
- (#{trans-r\ 13893}#
- (#{macros-only-env\ 12908}#
- #{r\ 13858}#)))
- (map (lambda (#{x\ 13894}#)
+ #{e\ 1248}#)
+ (let ((#{labels\ 1277}#
+ (#{gen-labels\ 325}#
+ #{ids\ 1274}#)))
+ (let ((#{new-w\ 1279}#
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 1274}#
+ #{labels\ 1277}#
+ #{w\ 1250}#)))
+ (#{k\ 1253}#
+ (cons #{e1\ 1271}# #{e2\ 1272}#)
+ (#{extend-env\ 295}#
+ #{labels\ 1277}#
+ (let ((#{w\ 1283}#
+ (if #{rec?\ 1247}#
+ #{new-w\ 1279}#
+ #{w\ 1250}#))
+ (#{trans-r\ 1284}#
+ (#{macros-only-env\ 299}#
+ #{r\ 1249}#)))
+ (map (lambda (#{x\ 1285}#)
(cons 'macro
-
(#{eval-local-transformer\ 13013}#
- (#{chi\ 13001}#
- #{x\ 13894}#
- #{trans-r\
13893}#
- #{w\ 13892}#
- #{mod\ 13861}#)
- #{mod\ 13861}#)))
- #{val\ 13879}#))
- #{r\ 13858}#)
- #{new-w\ 13888}#
- #{s\ 13860}#
- #{mod\ 13861}#))))))
- #{tmp\ 13871}#)
- ((lambda (#{_\ 13899}#)
+
(#{eval-local-transformer\ 404}#
+ (#{chi\ 392}#
+ #{x\ 1285}#
+ #{trans-r\
1284}#
+ #{w\ 1283}#
+ #{mod\ 1252}#)
+ #{mod\ 1252}#)))
+ #{val\ 1270}#))
+ #{r\ 1249}#)
+ #{new-w\ 1279}#
+ #{s\ 1251}#
+ #{mod\ 1252}#))))))
+ #{tmp\ 1262}#)
+ ((lambda (#{_\ 1290}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 12987}#
- #{e\ 13857}#
- #{w\ 13859}#
- #{s\ 13860}#
- #{mod\ 13861}#)))
- #{tmp\ 13870}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 1248}#
+ #{w\ 1250}#
+ #{s\ 1251}#
+ #{mod\ 1252}#)))
+ #{tmp\ 1261}#)))
($sc-dispatch
- #{tmp\ 13870}#
+ #{tmp\ 1261}#
'(any #(each (any any)) any . each-any))))
- #{e\ 13857}#)))
- (#{chi-body\ 13009}#
- (lambda (#{body\ 13900}#
- #{outer-form\ 13901}#
- #{r\ 13902}#
- #{w\ 13903}#
- #{mod\ 13904}#)
- (let ((#{r\ 13912}#
+ #{e\ 1248}#)))
+ (#{chi-body\ 400}#
+ (lambda (#{body\ 1291}#
+ #{outer-form\ 1292}#
+ #{r\ 1293}#
+ #{w\ 1294}#
+ #{mod\ 1295}#)
+ (let ((#{r\ 1303}#
(cons '("placeholder" placeholder)
- #{r\ 13902}#)))
- (let ((#{ribcage\ 13914}#
- (#{make-ribcage\ 12937}#
+ #{r\ 1293}#)))
+ (let ((#{ribcage\ 1305}#
+ (#{make-ribcage\ 328}#
'()
'()
'())))
- (let ((#{w\ 13917}#
- (#{make-wrap\ 12921}#
- (#{wrap-marks\ 12923}# #{w\ 13903}#)
- (cons #{ribcage\ 13914}#
- (#{wrap-subst\ 12925}# #{w\ 13903}#)))))
- (letrec ((#{parse\ 13926}#
- (lambda (#{body\ 13927}#
- #{ids\ 13928}#
- #{labels\ 13929}#
- #{var-ids\ 13930}#
- #{vars\ 13931}#
- #{vals\ 13932}#
- #{bindings\ 13933}#)
- (if (null? #{body\ 13927}#)
+ (let ((#{w\ 1308}#
+ (#{make-wrap\ 312}#
+ (#{wrap-marks\ 314}# #{w\ 1294}#)
+ (cons #{ribcage\ 1305}#
+ (#{wrap-subst\ 316}# #{w\ 1294}#)))))
+ (letrec ((#{parse\ 1317}#
+ (lambda (#{body\ 1318}#
+ #{ids\ 1319}#
+ #{labels\ 1320}#
+ #{var-ids\ 1321}#
+ #{vars\ 1322}#
+ #{vals\ 1323}#
+ #{bindings\ 1324}#)
+ (if (null? #{body\ 1318}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 13901}#)
- (let ((#{e\ 13938}# (cdar #{body\ 13927}#))
- (#{er\ 13939}#
- (caar #{body\ 13927}#)))
+ #{outer-form\ 1292}#)
+ (let ((#{e\ 1329}# (cdar #{body\ 1318}#))
+ (#{er\ 1330}# (caar #{body\ 1318}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{e\ 13938}#
- #{er\ 13939}#
+ (#{syntax-type\ 388}#
+ #{e\ 1329}#
+ #{er\ 1330}#
'(())
- (#{source-annotation\ 12895}#
- #{er\ 13939}#)
- #{ribcage\ 13914}#
- #{mod\ 13904}#
+ (#{source-annotation\ 286}#
+ #{er\ 1330}#)
+ #{ribcage\ 1305}#
+ #{mod\ 1295}#
#f))
- (lambda (#{type\ 13941}#
- #{value\ 13942}#
- #{e\ 13943}#
- #{w\ 13944}#
- #{s\ 13945}#
- #{mod\ 13946}#)
- (if (memv #{type\ 13941}#
+ (lambda (#{type\ 1332}#
+ #{value\ 1333}#
+ #{e\ 1334}#
+ #{w\ 1335}#
+ #{s\ 1336}#
+ #{mod\ 1337}#)
+ (if (memv #{type\ 1332}#
'(define-form))
- (let ((#{id\ 13956}#
- (#{wrap\ 12985}#
- #{value\ 13942}#
- #{w\ 13944}#
- #{mod\ 13946}#))
- (#{label\ 13957}#
- (#{gen-label\ 12932}#)))
- (let ((#{var\ 13959}#
- (#{gen-var\ 13029}#
- #{id\ 13956}#)))
+ (let ((#{id\ 1347}#
+ (#{wrap\ 376}#
+ #{value\ 1333}#
+ #{w\ 1335}#
+ #{mod\ 1337}#))
+ (#{label\ 1348}#
+ (#{gen-label\ 323}#)))
+ (let ((#{var\ 1350}#
+ (#{gen-var\ 420}#
+ #{id\ 1347}#)))
(begin
- (#{extend-ribcage!\ 12961}#
- #{ribcage\ 13914}#
- #{id\ 13956}#
- #{label\ 13957}#)
- (#{parse\ 13926}#
- (cdr #{body\ 13927}#)
- (cons #{id\ 13956}#
- #{ids\ 13928}#)
- (cons #{label\ 13957}#
- #{labels\ 13929}#)
- (cons #{id\ 13956}#
- #{var-ids\ 13930}#)
- (cons #{var\ 13959}#
- #{vars\ 13931}#)
- (cons (cons #{er\ 13939}#
- (#{wrap\
12985}#
- #{e\ 13943}#
- #{w\ 13944}#
- #{mod\
13946}#))
- #{vals\ 13932}#)
+ (#{extend-ribcage!\ 352}#
+ #{ribcage\ 1305}#
+ #{id\ 1347}#
+ #{label\ 1348}#)
+ (#{parse\ 1317}#
+ (cdr #{body\ 1318}#)
+ (cons #{id\ 1347}#
+ #{ids\ 1319}#)
+ (cons #{label\ 1348}#
+ #{labels\ 1320}#)
+ (cons #{id\ 1347}#
+ #{var-ids\ 1321}#)
+ (cons #{var\ 1350}#
+ #{vars\ 1322}#)
+ (cons (cons #{er\ 1330}#
+ (#{wrap\ 376}#
+ #{e\ 1334}#
+ #{w\ 1335}#
+ #{mod\
1337}#))
+ #{vals\ 1323}#)
(cons (cons 'lexical
- #{var\ 13959}#)
- #{bindings\
13933}#)))))
- (if (memv #{type\ 13941}#
+ #{var\ 1350}#)
+ #{bindings\
1324}#)))))
+ (if (memv #{type\ 1332}#
'(define-syntax-form))
- (let ((#{id\ 13964}#
- (#{wrap\ 12985}#
- #{value\ 13942}#
- #{w\ 13944}#
- #{mod\ 13946}#))
- (#{label\ 13965}#
- (#{gen-label\ 12932}#)))
+ (let ((#{id\ 1355}#
+ (#{wrap\ 376}#
+ #{value\ 1333}#
+ #{w\ 1335}#
+ #{mod\ 1337}#))
+ (#{label\ 1356}#
+ (#{gen-label\ 323}#)))
(begin
- (#{extend-ribcage!\ 12961}#
- #{ribcage\ 13914}#
- #{id\ 13964}#
- #{label\ 13965}#)
- (#{parse\ 13926}#
- (cdr #{body\ 13927}#)
- (cons #{id\ 13964}#
- #{ids\ 13928}#)
- (cons #{label\ 13965}#
- #{labels\ 13929}#)
- #{var-ids\ 13930}#
- #{vars\ 13931}#
- #{vals\ 13932}#
+ (#{extend-ribcage!\ 352}#
+ #{ribcage\ 1305}#
+ #{id\ 1355}#
+ #{label\ 1356}#)
+ (#{parse\ 1317}#
+ (cdr #{body\ 1318}#)
+ (cons #{id\ 1355}#
+ #{ids\ 1319}#)
+ (cons #{label\ 1356}#
+ #{labels\ 1320}#)
+ #{var-ids\ 1321}#
+ #{vars\ 1322}#
+ #{vals\ 1323}#
(cons (cons 'macro
- (cons #{er\
13939}#
- (#{wrap\
12985}#
- #{e\
13943}#
- #{w\
13944}#
- #{mod\
13946}#)))
- #{bindings\
13933}#))))
- (if (memv #{type\ 13941}#
+ (cons #{er\
1330}#
+ (#{wrap\
376}#
+ #{e\
1334}#
+ #{w\
1335}#
+ #{mod\
1337}#)))
+ #{bindings\
1324}#))))
+ (if (memv #{type\ 1332}#
'(begin-form))
- ((lambda (#{tmp\ 13968}#)
- ((lambda (#{tmp\ 13969}#)
- (if #{tmp\ 13969}#
- (apply (lambda (#{_\
13972}#
- #{e1\
13973}#)
- (#{parse\
13926}#
- (letrec
((#{f\ 13976}#
-
(lambda (#{forms\ 13977}#)
-
(if (null? #{forms\ 13977}#)
-
(cdr #{body\ 13927}#)
-
(cons (cons #{er\ 13939}#
-
(#{wrap\ 12985}#
-
(car #{forms\ 13977}#)
-
#{w\ 13944}#
-
#{mod\ 13946}#))
-
(#{f\ 13976}#
-
(cdr #{forms\ 13977}#)))))))
- (#{f\
13976}#
- #{e1\
13973}#))
- #{ids\
13928}#
- #{labels\
13929}#
- #{var-ids\
13930}#
- #{vars\
13931}#
- #{vals\
13932}#
- #{bindings\
13933}#))
- #{tmp\ 13969}#)
+ ((lambda (#{tmp\ 1359}#)
+ ((lambda (#{tmp\ 1360}#)
+ (if #{tmp\ 1360}#
+ (apply (lambda (#{_\
1363}#
+ #{e1\
1364}#)
+ (#{parse\
1317}#
+ (letrec
((#{f\ 1367}#
+
(lambda (#{forms\ 1368}#)
+
(if (null? #{forms\ 1368}#)
+
(cdr #{body\ 1318}#)
+
(cons (cons #{er\ 1330}#
+
(#{wrap\ 376}#
+
(car #{forms\ 1368}#)
+
#{w\ 1335}#
+
#{mod\ 1337}#))
+
(#{f\ 1367}#
+
(cdr #{forms\ 1368}#)))))))
+ (#{f\
1367}#
+ #{e1\
1364}#))
+ #{ids\
1319}#
+ #{labels\
1320}#
+ #{var-ids\
1321}#
+ #{vars\
1322}#
+ #{vals\
1323}#
+ #{bindings\
1324}#))
+ #{tmp\ 1360}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 13968}#)))
+ #{tmp\ 1359}#)))
($sc-dispatch
- #{tmp\ 13968}#
+ #{tmp\ 1359}#
'(any . each-any))))
- #{e\ 13943}#)
- (if (memv #{type\ 13941}#
+ #{e\ 1334}#)
+ (if (memv #{type\ 1332}#
'(local-syntax-form))
- (#{chi-local-syntax\ 13011}#
- #{value\ 13942}#
- #{e\ 13943}#
- #{er\ 13939}#
- #{w\ 13944}#
- #{s\ 13945}#
- #{mod\ 13946}#
- (lambda (#{forms\ 13980}#
- #{er\ 13981}#
- #{w\ 13982}#
- #{s\ 13983}#
- #{mod\ 13984}#)
- (#{parse\ 13926}#
- (letrec ((#{f\ 13992}#
- (lambda
(#{forms\ 13993}#)
- (if
(null? #{forms\ 13993}#)
- (cdr
#{body\ 13927}#)
- (cons
(cons #{er\ 13981}#
-
(#{wrap\ 12985}#
-
(car #{forms\ 13993}#)
-
#{w\ 13982}#
-
#{mod\ 13984}#))
-
(#{f\ 13992}#
-
(cdr #{forms\ 13993}#)))))))
- (#{f\ 13992}#
- #{forms\ 13980}#))
- #{ids\ 13928}#
- #{labels\ 13929}#
- #{var-ids\ 13930}#
- #{vars\ 13931}#
- #{vals\ 13932}#
- #{bindings\ 13933}#)))
- (if (null? #{ids\ 13928}#)
- (#{build-sequence\ 12868}#
+ (#{chi-local-syntax\ 402}#
+ #{value\ 1333}#
+ #{e\ 1334}#
+ #{er\ 1330}#
+ #{w\ 1335}#
+ #{s\ 1336}#
+ #{mod\ 1337}#
+ (lambda (#{forms\ 1371}#
+ #{er\ 1372}#
+ #{w\ 1373}#
+ #{s\ 1374}#
+ #{mod\ 1375}#)
+ (#{parse\ 1317}#
+ (letrec ((#{f\ 1383}#
+ (lambda
(#{forms\ 1384}#)
+ (if
(null? #{forms\ 1384}#)
+ (cdr
#{body\ 1318}#)
+ (cons
(cons #{er\ 1372}#
+
(#{wrap\ 376}#
+
(car #{forms\ 1384}#)
+
#{w\ 1373}#
+
#{mod\ 1375}#))
+
(#{f\ 1383}#
+
(cdr #{forms\ 1384}#)))))))
+ (#{f\ 1383}#
+ #{forms\ 1371}#))
+ #{ids\ 1319}#
+ #{labels\ 1320}#
+ #{var-ids\ 1321}#
+ #{vars\ 1322}#
+ #{vals\ 1323}#
+ #{bindings\ 1324}#)))
+ (if (null? #{ids\ 1319}#)
+ (#{build-sequence\ 259}#
#f
- (map (lambda (#{x\
13996}#)
- (#{chi\ 13001}#
- (cdr #{x\
13996}#)
- (car #{x\
13996}#)
+ (map (lambda (#{x\
1387}#)
+ (#{chi\ 392}#
+ (cdr #{x\
1387}#)
+ (car #{x\
1387}#)
'(())
- #{mod\ 13946}#))
- (cons (cons #{er\
13939}#
-
(#{source-wrap\ 12987}#
- #{e\
13943}#
- #{w\
13944}#
- #{s\
13945}#
-
#{mod\ 13946}#))
- (cdr #{body\
13927}#))))
+ #{mod\ 1337}#))
+ (cons (cons #{er\
1330}#
+
(#{source-wrap\ 378}#
+ #{e\
1334}#
+ #{w\
1335}#
+ #{s\
1336}#
+
#{mod\ 1337}#))
+ (cdr #{body\
1318}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 12979}#
- #{ids\
13928}#))
+ (if (not
(#{valid-bound-ids?\ 370}#
+ #{ids\
1319}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
13901}#))
- (letrec ((#{loop\ 14003}#
- (lambda
(#{bs\ 14004}#
-
#{er-cache\ 14005}#
-
#{r-cache\ 14006}#)
- (if (not
(null? #{bs\ 14004}#))
- (let
((#{b\ 14009}#
-
(car #{bs\ 14004}#)))
- (if
(eq? (car #{b\ 14009}#)
+ #{outer-form\
1292}#))
+ (letrec ((#{loop\ 1394}#
+ (lambda
(#{bs\ 1395}#
+
#{er-cache\ 1396}#
+
#{r-cache\ 1397}#)
+ (if (not
(null? #{bs\ 1395}#))
+ (let
((#{b\ 1400}#
+
(car #{bs\ 1395}#)))
+ (if
(eq? (car #{b\ 1400}#)
'macro)
- (let
((#{er\ 14012}#
-
(cadr #{b\ 14009}#)))
-
(let ((#{r-cache\ 14014}#
-
(if (eq? #{er\ 14012}#
-
#{er-cache\ 14005}#)
-
#{r-cache\ 14006}#
-
(#{macros-only-env\ 12908}#
-
#{er\ 14012}#))))
+ (let
((#{er\ 1403}#
+
(cadr #{b\ 1400}#)))
+
(let ((#{r-cache\ 1405}#
+
(if (eq? #{er\ 1403}#
+
#{er-cache\ 1396}#)
+
#{r-cache\ 1397}#
+
(#{macros-only-env\ 299}#
+
#{er\ 1403}#))))
(begin
(set-cdr!
-
#{b\ 14009}#
-
(#{eval-local-transformer\ 13013}#
-
(#{chi\ 13001}#
-
(cddr #{b\ 14009}#)
-
#{r-cache\ 14014}#
+
#{b\ 1400}#
+
(#{eval-local-transformer\ 404}#
+
(#{chi\ 392}#
+
(cddr #{b\ 1400}#)
+
#{r-cache\ 1405}#
'(())
-
#{mod\ 13946}#)
-
#{mod\ 13946}#))
-
(#{loop\ 14003}#
-
(cdr #{bs\ 14004}#)
-
#{er\ 14012}#
-
#{r-cache\ 14014}#))))
-
(#{loop\ 14003}#
-
(cdr #{bs\ 14004}#)
-
#{er-cache\ 14005}#
-
#{r-cache\ 14006}#)))))))
- (#{loop\ 14003}#
- #{bindings\ 13933}#
+
#{mod\ 1337}#)
+
#{mod\ 1337}#))
+
(#{loop\ 1394}#
+
(cdr #{bs\ 1395}#)
+
#{er\ 1403}#
+
#{r-cache\ 1405}#))))
+
(#{loop\ 1394}#
+
(cdr #{bs\ 1395}#)
+
#{er-cache\ 1396}#
+
#{r-cache\ 1397}#)))))))
+ (#{loop\ 1394}#
+ #{bindings\ 1324}#
#f
#f))
(set-cdr!
- #{r\ 13912}#
- (#{extend-env\ 12904}#
- #{labels\ 13929}#
- #{bindings\ 13933}#
- (cdr #{r\ 13912}#)))
- (#{build-letrec\ 12874}#
+ #{r\ 1303}#
+ (#{extend-env\ 295}#
+ #{labels\ 1320}#
+ #{bindings\ 1324}#
+ (cdr #{r\ 1303}#)))
+ (#{build-letrec\ 265}#
#f
(map syntax->datum
- #{var-ids\
13930}#)
- #{vars\ 13931}#
- (map (lambda (#{x\
14017}#)
- (#{chi\ 13001}#
- (cdr #{x\
14017}#)
- (car #{x\
14017}#)
+ #{var-ids\ 1321}#)
+ #{vars\ 1322}#
+ (map (lambda (#{x\
1408}#)
+ (#{chi\ 392}#
+ (cdr #{x\
1408}#)
+ (car #{x\
1408}#)
'(())
- #{mod\
13946}#))
- #{vals\ 13932}#)
- (#{build-sequence\
12868}#
+ #{mod\
1337}#))
+ #{vals\ 1323}#)
+ (#{build-sequence\
259}#
#f
- (map (lambda (#{x\
14021}#)
- (#{chi\
13001}#
- (cdr #{x\
14021}#)
- (car #{x\
14021}#)
+ (map (lambda (#{x\
1412}#)
+ (#{chi\ 392}#
+ (cdr #{x\
1412}#)
+ (car #{x\
1412}#)
'(())
- #{mod\
13946}#))
- (cons (cons
#{er\ 13939}#
-
(#{source-wrap\ 12987}#
-
#{e\ 13943}#
-
#{w\ 13944}#
-
#{s\ 13945}#
-
#{mod\ 13946}#))
- (cdr
#{body\ 13927}#))))))))))))))))))
- (#{parse\ 13926}#
- (map (lambda (#{x\ 13934}#)
- (cons #{r\ 13912}#
- (#{wrap\ 12985}#
- #{x\ 13934}#
- #{w\ 13917}#
- #{mod\ 13904}#)))
- #{body\ 13900}#)
+ #{mod\
1337}#))
+ (cons (cons
#{er\ 1330}#
+
(#{source-wrap\ 378}#
+
#{e\ 1334}#
+
#{w\ 1335}#
+
#{s\ 1336}#
+
#{mod\ 1337}#))
+ (cdr
#{body\ 1318}#))))))))))))))))))
+ (#{parse\ 1317}#
+ (map (lambda (#{x\ 1325}#)
+ (cons #{r\ 1303}#
+ (#{wrap\ 376}#
+ #{x\ 1325}#
+ #{w\ 1308}#
+ #{mod\ 1295}#)))
+ #{body\ 1291}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 13007}#
- (lambda (#{p\ 14024}#
- #{e\ 14025}#
- #{r\ 14026}#
- #{w\ 14027}#
- #{rib\ 14028}#
- #{mod\ 14029}#)
- (letrec ((#{rebuild-macro-output\ 14037}#
- (lambda (#{x\ 14038}# #{m\ 14039}#)
- (if (pair? #{x\ 14038}#)
- (cons (#{rebuild-macro-output\ 14037}#
- (car #{x\ 14038}#)
- #{m\ 14039}#)
- (#{rebuild-macro-output\ 14037}#
- (cdr #{x\ 14038}#)
- #{m\ 14039}#))
- (if (#{syntax-object?\ 12880}# #{x\ 14038}#)
- (let ((#{w\ 14047}#
- (#{syntax-object-wrap\ 12884}#
- #{x\ 14038}#)))
- (let ((#{ms\ 14050}#
- (#{wrap-marks\ 12923}# #{w\ 14047}#))
- (#{s\ 14051}#
- (#{wrap-subst\ 12925}#
- #{w\ 14047}#)))
- (if (if (pair? #{ms\ 14050}#)
- (eq? (car #{ms\ 14050}#) #f)
+ (#{chi-macro\ 398}#
+ (lambda (#{p\ 1415}#
+ #{e\ 1416}#
+ #{r\ 1417}#
+ #{w\ 1418}#
+ #{rib\ 1419}#
+ #{mod\ 1420}#)
+ (letrec ((#{rebuild-macro-output\ 1428}#
+ (lambda (#{x\ 1429}# #{m\ 1430}#)
+ (if (pair? #{x\ 1429}#)
+ (cons (#{rebuild-macro-output\ 1428}#
+ (car #{x\ 1429}#)
+ #{m\ 1430}#)
+ (#{rebuild-macro-output\ 1428}#
+ (cdr #{x\ 1429}#)
+ #{m\ 1430}#))
+ (if (#{syntax-object?\ 271}# #{x\ 1429}#)
+ (let ((#{w\ 1438}#
+ (#{syntax-object-wrap\ 275}#
+ #{x\ 1429}#)))
+ (let ((#{ms\ 1441}#
+ (#{wrap-marks\ 314}# #{w\ 1438}#))
+ (#{s\ 1442}#
+ (#{wrap-subst\ 316}# #{w\ 1438}#)))
+ (if (if (pair? #{ms\ 1441}#)
+ (eq? (car #{ms\ 1441}#) #f)
#f)
- (#{make-syntax-object\ 12878}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 14038}#)
- (#{make-wrap\ 12921}#
- (cdr #{ms\ 14050}#)
- (if #{rib\ 14028}#
- (cons #{rib\ 14028}#
- (cdr #{s\ 14051}#))
- (cdr #{s\ 14051}#)))
- (#{syntax-object-module\ 12886}#
- #{x\ 14038}#))
- (#{make-syntax-object\ 12878}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 14038}#)
- (#{make-wrap\ 12921}#
- (cons #{m\ 14039}# #{ms\ 14050}#)
- (if #{rib\ 14028}#
- (cons #{rib\ 14028}#
+ (#{make-syntax-object\ 269}#
+ (#{syntax-object-expression\ 273}#
+ #{x\ 1429}#)
+ (#{make-wrap\ 312}#
+ (cdr #{ms\ 1441}#)
+ (if #{rib\ 1419}#
+ (cons #{rib\ 1419}#
+ (cdr #{s\ 1442}#))
+ (cdr #{s\ 1442}#)))
+ (#{syntax-object-module\ 277}#
+ #{x\ 1429}#))
+ (#{make-syntax-object\ 269}#
+ (#{syntax-object-expression\ 273}#
+ #{x\ 1429}#)
+ (#{make-wrap\ 312}#
+ (cons #{m\ 1430}# #{ms\ 1441}#)
+ (if #{rib\ 1419}#
+ (cons #{rib\ 1419}#
(cons 'shift
- #{s\ 14051}#))
- (cons (quote shift) #{s\ 14051}#)))
+ #{s\ 1442}#))
+ (cons (quote shift) #{s\ 1442}#)))
(cons 'hygiene
- (cdr #{p\ 14024}#))))))
- (if (vector? #{x\ 14038}#)
- (let ((#{n\ 14059}#
- (vector-length #{x\ 14038}#)))
- (let ((#{v\ 14061}#
- (make-vector #{n\ 14059}#)))
- (letrec ((#{loop\ 14064}#
- (lambda (#{i\ 14065}#)
- (if (#{fx=\ 12821}#
- #{i\ 14065}#
- #{n\ 14059}#)
+ (cdr #{p\ 1415}#))))))
+ (if (vector? #{x\ 1429}#)
+ (let ((#{n\ 1450}#
+ (vector-length #{x\ 1429}#)))
+ (let ((#{v\ 1452}#
+ (make-vector #{n\ 1450}#)))
+ (letrec ((#{loop\ 1455}#
+ (lambda (#{i\ 1456}#)
+ (if (#{fx=\ 212}#
+ #{i\ 1456}#
+ #{n\ 1450}#)
(begin
(if #f #f)
- #{v\ 14061}#)
+ #{v\ 1452}#)
(begin
(vector-set!
- #{v\ 14061}#
- #{i\ 14065}#
-
(#{rebuild-macro-output\ 14037}#
+ #{v\ 1452}#
+ #{i\ 1456}#
+
(#{rebuild-macro-output\ 1428}#
(vector-ref
- #{x\ 14038}#
- #{i\ 14065}#)
- #{m\ 14039}#))
- (#{loop\ 14064}#
- (#{fx+\ 12817}#
- #{i\ 14065}#
+ #{x\ 1429}#
+ #{i\ 1456}#)
+ #{m\ 1430}#))
+ (#{loop\ 1455}#
+ (#{fx+\ 208}#
+ #{i\ 1456}#
1)))))))
- (#{loop\ 14064}# 0))))
- (if (symbol? #{x\ 14038}#)
+ (#{loop\ 1455}# 0))))
+ (if (symbol? #{x\ 1429}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 12987}#
- #{e\ 14025}#
- #{w\ 14027}#
- (#{wrap-subst\ 12925}# #{w\ 14027}#)
- #{mod\ 14029}#)
- #{x\ 14038}#)
- #{x\ 14038}#)))))))
- (#{rebuild-macro-output\ 14037}#
- ((car #{p\ 14024}#)
- (#{wrap\ 12985}#
- #{e\ 14025}#
- (#{anti-mark\ 12957}# #{w\ 14027}#)
- #{mod\ 14029}#))
+ (#{source-wrap\ 378}#
+ #{e\ 1416}#
+ #{w\ 1418}#
+ (#{wrap-subst\ 316}# #{w\ 1418}#)
+ #{mod\ 1420}#)
+ #{x\ 1429}#)
+ #{x\ 1429}#)))))))
+ (#{rebuild-macro-output\ 1428}#
+ ((car #{p\ 1415}#)
+ (#{wrap\ 376}#
+ #{e\ 1416}#
+ (#{anti-mark\ 348}# #{w\ 1418}#)
+ #{mod\ 1420}#))
(gensym "m")))))
- (#{chi-application\ 13005}#
- (lambda (#{x\ 14072}#
- #{e\ 14073}#
- #{r\ 14074}#
- #{w\ 14075}#
- #{s\ 14076}#
- #{mod\ 14077}#)
- ((lambda (#{tmp\ 14084}#)
- ((lambda (#{tmp\ 14085}#)
- (if #{tmp\ 14085}#
- (apply (lambda (#{e0\ 14088}# #{e1\ 14089}#)
- (#{build-application\ 12838}#
- #{s\ 14076}#
- #{x\ 14072}#
- (map (lambda (#{e\ 14090}#)
- (#{chi\ 13001}#
- #{e\ 14090}#
- #{r\ 14074}#
- #{w\ 14075}#
- #{mod\ 14077}#))
- #{e1\ 14089}#)))
- #{tmp\ 14085}#)
+ (#{chi-application\ 396}#
+ (lambda (#{x\ 1463}#
+ #{e\ 1464}#
+ #{r\ 1465}#
+ #{w\ 1466}#
+ #{s\ 1467}#
+ #{mod\ 1468}#)
+ ((lambda (#{tmp\ 1475}#)
+ ((lambda (#{tmp\ 1476}#)
+ (if #{tmp\ 1476}#
+ (apply (lambda (#{e0\ 1479}# #{e1\ 1480}#)
+ (#{build-application\ 229}#
+ #{s\ 1467}#
+ #{x\ 1463}#
+ (map (lambda (#{e\ 1481}#)
+ (#{chi\ 392}#
+ #{e\ 1481}#
+ #{r\ 1465}#
+ #{w\ 1466}#
+ #{mod\ 1468}#))
+ #{e1\ 1480}#)))
+ #{tmp\ 1476}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14084}#)))
+ #{tmp\ 1475}#)))
($sc-dispatch
- #{tmp\ 14084}#
+ #{tmp\ 1475}#
'(any . each-any))))
- #{e\ 14073}#)))
- (#{chi-expr\ 13003}#
- (lambda (#{type\ 14093}#
- #{value\ 14094}#
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (lexical)))
- (#{build-lexical-reference\ 12844}#
+ #{e\ 1464}#)))
+ (#{chi-expr\ 394}#
+ (lambda (#{type\ 1484}#
+ #{value\ 1485}#
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (lexical)))
+ (#{build-lexical-reference\ 235}#
'value
- #{s\ 14098}#
- #{e\ 14095}#
- #{value\ 14094}#)
- (if (memv #{type\ 14093}# (quote (core core-form)))
- (#{value\ 14094}#
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (module-ref)))
+ #{s\ 1489}#
+ #{e\ 1486}#
+ #{value\ 1485}#)
+ (if (memv #{type\ 1484}# (quote (core core-form)))
+ (#{value\ 1485}#
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{value\ 14094}#
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#))
- (lambda (#{e\ 14110}#
- #{r\ 14111}#
- #{w\ 14112}#
- #{s\ 14113}#
- #{mod\ 14114}#)
- (#{chi\ 13001}#
- #{e\ 14110}#
- #{r\ 14111}#
- #{w\ 14112}#
- #{mod\ 14114}#)))
- (if (memv #{type\ 14093}# (quote (lexical-call)))
- (#{chi-application\ 13005}#
- (#{build-lexical-reference\ 12844}#
+ (#{value\ 1485}#
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#))
+ (lambda (#{e\ 1501}#
+ #{r\ 1502}#
+ #{w\ 1503}#
+ #{s\ 1504}#
+ #{mod\ 1505}#)
+ (#{chi\ 392}#
+ #{e\ 1501}#
+ #{r\ 1502}#
+ #{w\ 1503}#
+ #{mod\ 1505}#)))
+ (if (memv #{type\ 1484}# (quote (lexical-call)))
+ (#{chi-application\ 396}#
+ (#{build-lexical-reference\ 235}#
'fun
- (#{source-annotation\ 12895}# (car #{e\ 14095}#))
- (car #{e\ 14095}#)
- #{value\ 14094}#)
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (global-call)))
- (#{chi-application\ 13005}#
- (#{build-global-reference\ 12850}#
- (#{source-annotation\ 12895}# (car #{e\ 14095}#))
- (if (#{syntax-object?\ 12880}# #{value\ 14094}#)
- (#{syntax-object-expression\ 12882}#
- #{value\ 14094}#)
- #{value\ 14094}#)
- (if (#{syntax-object?\ 12880}# #{value\ 14094}#)
- (#{syntax-object-module\ 12886}#
- #{value\ 14094}#)
- #{mod\ 14099}#))
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (constant)))
- (#{build-data\ 12866}#
- #{s\ 14098}#
- (#{strip\ 13027}#
- (#{source-wrap\ 12987}#
- #{e\ 14095}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
+ (#{source-annotation\ 286}# (car #{e\ 1486}#))
+ (car #{e\ 1486}#)
+ #{value\ 1485}#)
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (global-call)))
+ (#{chi-application\ 396}#
+ (#{build-global-reference\ 241}#
+ (#{source-annotation\ 286}# (car #{e\ 1486}#))
+ (if (#{syntax-object?\ 271}# #{value\ 1485}#)
+ (#{syntax-object-expression\ 273}#
+ #{value\ 1485}#)
+ #{value\ 1485}#)
+ (if (#{syntax-object?\ 271}# #{value\ 1485}#)
+ (#{syntax-object-module\ 277}# #{value\ 1485}#)
+ #{mod\ 1490}#))
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (constant)))
+ (#{build-data\ 257}#
+ #{s\ 1489}#
+ (#{strip\ 418}#
+ (#{source-wrap\ 378}#
+ #{e\ 1486}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
'(())))
- (if (memv #{type\ 14093}# (quote (global)))
- (#{build-global-reference\ 12850}#
- #{s\ 14098}#
- #{value\ 14094}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (call)))
- (#{chi-application\ 13005}#
- (#{chi\ 13001}#
- (car #{e\ 14095}#)
- #{r\ 14096}#
- #{w\ 14097}#
- #{mod\ 14099}#)
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (begin-form)))
- ((lambda (#{tmp\ 14127}#)
- ((lambda (#{tmp\ 14128}#)
- (if #{tmp\ 14128}#
- (apply (lambda (#{_\ 14132}#
- #{e1\ 14133}#
- #{e2\ 14134}#)
- (#{chi-sequence\ 12989}#
- (cons #{e1\ 14133}#
- #{e2\ 14134}#)
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#))
- #{tmp\ 14128}#)
+ (if (memv #{type\ 1484}# (quote (global)))
+ (#{build-global-reference\ 241}#
+ #{s\ 1489}#
+ #{value\ 1485}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (call)))
+ (#{chi-application\ 396}#
+ (#{chi\ 392}#
+ (car #{e\ 1486}#)
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{mod\ 1490}#)
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1518}#)
+ ((lambda (#{tmp\ 1519}#)
+ (if #{tmp\ 1519}#
+ (apply (lambda (#{_\ 1523}#
+ #{e1\ 1524}#
+ #{e2\ 1525}#)
+ (#{chi-sequence\ 380}#
+ (cons #{e1\ 1524}#
+ #{e2\ 1525}#)
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#))
+ #{tmp\ 1519}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 14127}#)))
+ #{tmp\ 1518}#)))
($sc-dispatch
- #{tmp\ 14127}#
+ #{tmp\ 1518}#
'(any any . each-any))))
- #{e\ 14095}#)
- (if (memv #{type\ 14093}#
+ #{e\ 1486}#)
+ (if (memv #{type\ 1484}#
'(local-syntax-form))
- (#{chi-local-syntax\ 13011}#
- #{value\ 14094}#
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#
- #{chi-sequence\ 12989}#)
- (if (memv #{type\ 14093}#
+ (#{chi-local-syntax\ 402}#
+ #{value\ 1485}#
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#
+ #{chi-sequence\ 380}#)
+ (if (memv #{type\ 1484}#
'(eval-when-form))
- ((lambda (#{tmp\ 14138}#)
- ((lambda (#{tmp\ 14139}#)
- (if #{tmp\ 14139}#
- (apply (lambda (#{_\ 14144}#
- #{x\ 14145}#
- #{e1\ 14146}#
- #{e2\ 14147}#)
- (let ((#{when-list\
14149}#
-
(#{chi-when-list\ 12995}#
- #{e\ 14095}#
- #{x\ 14145}#
- #{w\ 14097}#)))
+ ((lambda (#{tmp\ 1529}#)
+ ((lambda (#{tmp\ 1530}#)
+ (if #{tmp\ 1530}#
+ (apply (lambda (#{_\ 1535}#
+ #{x\ 1536}#
+ #{e1\ 1537}#
+ #{e2\ 1538}#)
+ (let ((#{when-list\
1540}#
+
(#{chi-when-list\ 386}#
+ #{e\ 1486}#
+ #{x\ 1536}#
+ #{w\ 1488}#)))
(if (memq 'eval
- #{when-list\
14149}#)
- (#{chi-sequence\
12989}#
- (cons #{e1\ 14146}#
- #{e2\
14147}#)
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (#{chi-void\
13015}#))))
- #{tmp\ 14139}#)
+ #{when-list\
1540}#)
+ (#{chi-sequence\
380}#
+ (cons #{e1\ 1537}#
+ #{e2\ 1538}#)
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (#{chi-void\
406}#))))
+ #{tmp\ 1530}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 14138}#)))
+ #{tmp\ 1529}#)))
($sc-dispatch
- #{tmp\ 14138}#
+ #{tmp\ 1529}#
'(any each-any any . each-any))))
- #{e\ 14095}#)
- (if (memv #{type\ 14093}#
+ #{e\ 1486}#)
+ (if (memv #{type\ 1484}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 14095}#
- (#{wrap\ 12985}#
- #{value\ 14094}#
- #{w\ 14097}#
- #{mod\ 14099}#))
- (if (memv #{type\ 14093}#
+ #{e\ 1486}#
+ (#{wrap\ 376}#
+ #{value\ 1485}#
+ #{w\ 1488}#
+ #{mod\ 1490}#))
+ (if (memv #{type\ 1484}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 12987}#
- #{e\ 14095}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#))
- (if (memv #{type\ 14093}#
+ (#{source-wrap\ 378}#
+ #{e\ 1486}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#))
+ (if (memv #{type\ 1484}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 12987}#
- #{e\ 14095}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#))
+ (#{source-wrap\ 378}#
+ #{e\ 1486}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 12987}#
- #{e\ 14095}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#))))))))))))))))))
- (#{chi\ 13001}#
- (lambda (#{e\ 14156}#
- #{r\ 14157}#
- #{w\ 14158}#
- #{mod\ 14159}#)
+ (#{source-wrap\ 378}#
+ #{e\ 1486}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#))))))))))))))))))
+ (#{chi\ 392}#
+ (lambda (#{e\ 1547}#
+ #{r\ 1548}#
+ #{w\ 1549}#
+ #{mod\ 1550}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{e\ 14156}#
- #{r\ 14157}#
- #{w\ 14158}#
- (#{source-annotation\ 12895}# #{e\ 14156}#)
+ (#{syntax-type\ 388}#
+ #{e\ 1547}#
+ #{r\ 1548}#
+ #{w\ 1549}#
+ (#{source-annotation\ 286}# #{e\ 1547}#)
#f
- #{mod\ 14159}#
+ #{mod\ 1550}#
#f))
- (lambda (#{type\ 14164}#
- #{value\ 14165}#
- #{e\ 14166}#
- #{w\ 14167}#
- #{s\ 14168}#
- #{mod\ 14169}#)
- (#{chi-expr\ 13003}#
- #{type\ 14164}#
- #{value\ 14165}#
- #{e\ 14166}#
- #{r\ 14157}#
- #{w\ 14167}#
- #{s\ 14168}#
- #{mod\ 14169}#)))))
- (#{chi-top\ 12999}#
- (lambda (#{e\ 14176}#
- #{r\ 14177}#
- #{w\ 14178}#
- #{m\ 14179}#
- #{esew\ 14180}#
- #{mod\ 14181}#)
+ (lambda (#{type\ 1555}#
+ #{value\ 1556}#
+ #{e\ 1557}#
+ #{w\ 1558}#
+ #{s\ 1559}#
+ #{mod\ 1560}#)
+ (#{chi-expr\ 394}#
+ #{type\ 1555}#
+ #{value\ 1556}#
+ #{e\ 1557}#
+ #{r\ 1548}#
+ #{w\ 1558}#
+ #{s\ 1559}#
+ #{mod\ 1560}#)))))
+ (#{chi-top\ 390}#
+ (lambda (#{e\ 1567}#
+ #{r\ 1568}#
+ #{w\ 1569}#
+ #{m\ 1570}#
+ #{esew\ 1571}#
+ #{mod\ 1572}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{e\ 14176}#
- #{r\ 14177}#
- #{w\ 14178}#
- (#{source-annotation\ 12895}# #{e\ 14176}#)
+ (#{syntax-type\ 388}#
+ #{e\ 1567}#
+ #{r\ 1568}#
+ #{w\ 1569}#
+ (#{source-annotation\ 286}# #{e\ 1567}#)
#f
- #{mod\ 14181}#
+ #{mod\ 1572}#
#f))
- (lambda (#{type\ 14202}#
- #{value\ 14203}#
- #{e\ 14204}#
- #{w\ 14205}#
- #{s\ 14206}#
- #{mod\ 14207}#)
- (if (memv #{type\ 14202}# (quote (begin-form)))
- ((lambda (#{tmp\ 14215}#)
- ((lambda (#{tmp\ 14216}#)
- (if #{tmp\ 14216}#
- (apply (lambda (#{_\ 14218}#)
- (#{chi-void\ 13015}#))
- #{tmp\ 14216}#)
- ((lambda (#{tmp\ 14219}#)
- (if #{tmp\ 14219}#
- (apply (lambda (#{_\ 14223}#
- #{e1\ 14224}#
- #{e2\ 14225}#)
- (#{chi-top-sequence\ 12991}#
- (cons #{e1\ 14224}# #{e2\ 14225}#)
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
- #{m\ 14179}#
- #{esew\ 14180}#
- #{mod\ 14207}#))
- #{tmp\ 14219}#)
+ (lambda (#{type\ 1593}#
+ #{value\ 1594}#
+ #{e\ 1595}#
+ #{w\ 1596}#
+ #{s\ 1597}#
+ #{mod\ 1598}#)
+ (if (memv #{type\ 1593}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1606}#)
+ ((lambda (#{tmp\ 1607}#)
+ (if #{tmp\ 1607}#
+ (apply (lambda (#{_\ 1609}#) (#{chi-void\ 406}#))
+ #{tmp\ 1607}#)
+ ((lambda (#{tmp\ 1610}#)
+ (if #{tmp\ 1610}#
+ (apply (lambda (#{_\ 1614}#
+ #{e1\ 1615}#
+ #{e2\ 1616}#)
+ (#{chi-top-sequence\ 382}#
+ (cons #{e1\ 1615}# #{e2\ 1616}#)
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
+ #{m\ 1570}#
+ #{esew\ 1571}#
+ #{mod\ 1598}#))
+ #{tmp\ 1610}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 14215}#)))
+ #{tmp\ 1606}#)))
($sc-dispatch
- #{tmp\ 14215}#
+ #{tmp\ 1606}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 14215}# (quote (any)))))
- #{e\ 14204}#)
- (if (memv #{type\ 14202}#
- '(local-syntax-form))
- (#{chi-local-syntax\ 13011}#
- #{value\ 14203}#
- #{e\ 14204}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
- #{mod\ 14207}#
- (lambda (#{body\ 14228}#
- #{r\ 14229}#
- #{w\ 14230}#
- #{s\ 14231}#
- #{mod\ 14232}#)
- (#{chi-top-sequence\ 12991}#
- #{body\ 14228}#
- #{r\ 14229}#
- #{w\ 14230}#
- #{s\ 14231}#
- #{m\ 14179}#
- #{esew\ 14180}#
- #{mod\ 14232}#)))
- (if (memv #{type\ 14202}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 14239}#)
- ((lambda (#{tmp\ 14240}#)
- (if #{tmp\ 14240}#
- (apply (lambda (#{_\ 14245}#
- #{x\ 14246}#
- #{e1\ 14247}#
- #{e2\ 14248}#)
- (let ((#{when-list\ 14251}#
- (#{chi-when-list\ 12995}#
- #{e\ 14204}#
- #{x\ 14246}#
- #{w\ 14205}#))
- (#{body\ 14252}#
- (cons #{e1\ 14247}#
- #{e2\ 14248}#)))
- (if (eq? #{m\ 14179}# (quote e))
+ ($sc-dispatch #{tmp\ 1606}# (quote (any)))))
+ #{e\ 1595}#)
+ (if (memv #{type\ 1593}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 402}#
+ #{value\ 1594}#
+ #{e\ 1595}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
+ #{mod\ 1598}#
+ (lambda (#{body\ 1619}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1623}#)
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1619}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{m\ 1570}#
+ #{esew\ 1571}#
+ #{mod\ 1623}#)))
+ (if (memv #{type\ 1593}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 1630}#)
+ ((lambda (#{tmp\ 1631}#)
+ (if #{tmp\ 1631}#
+ (apply (lambda (#{_\ 1636}#
+ #{x\ 1637}#
+ #{e1\ 1638}#
+ #{e2\ 1639}#)
+ (let ((#{when-list\ 1642}#
+ (#{chi-when-list\ 386}#
+ #{e\ 1595}#
+ #{x\ 1637}#
+ #{w\ 1596}#))
+ (#{body\ 1643}#
+ (cons #{e1\ 1638}#
+ #{e2\ 1639}#)))
+ (if (eq? #{m\ 1570}# (quote e))
(if (memq 'eval
- #{when-list\ 14251}#)
- (#{chi-top-sequence\ 12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ #{when-list\ 1642}#)
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
(if (memq 'expand
- #{when-list\
14251}#)
+ #{when-list\
1642}#)
'c&e
'e)
'(eval)
- #{mod\ 14207}#)
+ #{mod\ 1598}#)
(begin
(if (memq 'expand
- #{when-list\
14251}#)
- (#{top-level-eval-hook\
12825}#
- (#{chi-top-sequence\
12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ #{when-list\
1642}#)
+ (#{top-level-eval-hook\
216}#
+ (#{chi-top-sequence\
382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
'e
'(eval)
- #{mod\ 14207}#)
- #{mod\ 14207}#))
- (#{chi-void\ 13015}#)))
+ #{mod\ 1598}#)
+ #{mod\ 1598}#))
+ (#{chi-void\ 406}#)))
(if (memq 'load
- #{when-list\ 14251}#)
- (if (let ((#{t\ 14261}#
+ #{when-list\ 1642}#)
+ (if (let ((#{t\ 1652}#
(memq 'compile
- #{when-list\
14251}#)))
- (if #{t\ 14261}#
- #{t\ 14261}#
- (let ((#{t\ 14264}#
+ #{when-list\
1642}#)))
+ (if #{t\ 1652}#
+ #{t\ 1652}#
+ (let ((#{t\ 1655}#
(memq 'expand
-
#{when-list\ 14251}#)))
- (if #{t\ 14264}#
- #{t\ 14264}#
- (if (eq? #{m\
14179}#
+
#{when-list\ 1642}#)))
+ (if #{t\ 1655}#
+ #{t\ 1655}#
+ (if (eq? #{m\
1570}#
'c&e)
(memq 'eval
-
#{when-list\ 14251}#)
+
#{when-list\ 1642}#)
#f)))))
- (#{chi-top-sequence\ 12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
'c&e
'(compile load)
- #{mod\ 14207}#)
- (if (memq #{m\ 14179}#
+ #{mod\ 1598}#)
+ (if (memq #{m\ 1570}#
'(c c&e))
- (#{chi-top-sequence\
12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
'c
'(load)
- #{mod\ 14207}#)
- (#{chi-void\ 13015}#)))
- (if (let ((#{t\ 14272}#
+ #{mod\ 1598}#)
+ (#{chi-void\ 406}#)))
+ (if (let ((#{t\ 1663}#
(memq 'compile
- #{when-list\
14251}#)))
- (if #{t\ 14272}#
- #{t\ 14272}#
- (let ((#{t\ 14275}#
+ #{when-list\
1642}#)))
+ (if #{t\ 1663}#
+ #{t\ 1663}#
+ (let ((#{t\ 1666}#
(memq 'expand
-
#{when-list\ 14251}#)))
- (if #{t\ 14275}#
- #{t\ 14275}#
- (if (eq? #{m\
14179}#
+
#{when-list\ 1642}#)))
+ (if #{t\ 1666}#
+ #{t\ 1666}#
+ (if (eq? #{m\
1570}#
'c&e)
(memq 'eval
-
#{when-list\ 14251}#)
+
#{when-list\ 1642}#)
#f)))))
(begin
- (#{top-level-eval-hook\
12825}#
- (#{chi-top-sequence\
12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ (#{top-level-eval-hook\
216}#
+ (#{chi-top-sequence\
382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
'e
'(eval)
- #{mod\ 14207}#)
- #{mod\ 14207}#)
- (#{chi-void\ 13015}#))
- (#{chi-void\ 13015}#))))))
- #{tmp\ 14240}#)
+ #{mod\ 1598}#)
+ #{mod\ 1598}#)
+ (#{chi-void\ 406}#))
+ (#{chi-void\ 406}#))))))
+ #{tmp\ 1631}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 14239}#)))
+ #{tmp\ 1630}#)))
($sc-dispatch
- #{tmp\ 14239}#
+ #{tmp\ 1630}#
'(any each-any any . each-any))))
- #{e\ 14204}#)
- (if (memv #{type\ 14202}#
+ #{e\ 1595}#)
+ (if (memv #{type\ 1593}#
'(define-syntax-form))
- (let ((#{n\ 14283}#
- (#{id-var-name\ 12973}#
- #{value\ 14203}#
- #{w\ 14205}#))
- (#{r\ 14284}#
- (#{macros-only-env\ 12908}# #{r\ 14177}#)))
- (if (memv #{m\ 14179}# (quote (c)))
- (if (memq (quote compile) #{esew\ 14180}#)
- (let ((#{e\ 14287}#
- (#{chi-install-global\ 12993}#
- #{n\ 14283}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14284}#
- #{w\ 14205}#
- #{mod\ 14207}#))))
+ (let ((#{n\ 1674}#
+ (#{id-var-name\ 364}#
+ #{value\ 1594}#
+ #{w\ 1596}#))
+ (#{r\ 1675}#
+ (#{macros-only-env\ 299}# #{r\ 1568}#)))
+ (if (memv #{m\ 1570}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 1571}#)
+ (let ((#{e\ 1678}#
+ (#{chi-install-global\ 384}#
+ #{n\ 1674}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1675}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))))
(begin
- (#{top-level-eval-hook\ 12825}#
- #{e\ 14287}#
- #{mod\ 14207}#)
- (if (memq (quote load) #{esew\ 14180}#)
- #{e\ 14287}#
- (#{chi-void\ 13015}#))))
- (if (memq (quote load) #{esew\ 14180}#)
- (#{chi-install-global\ 12993}#
- #{n\ 14283}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14284}#
- #{w\ 14205}#
- #{mod\ 14207}#))
- (#{chi-void\ 13015}#)))
- (if (memv #{m\ 14179}# (quote (c&e)))
- (let ((#{e\ 14290}#
- (#{chi-install-global\ 12993}#
- #{n\ 14283}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14284}#
- #{w\ 14205}#
- #{mod\ 14207}#))))
+ (#{top-level-eval-hook\ 216}#
+ #{e\ 1678}#
+ #{mod\ 1598}#)
+ (if (memq (quote load) #{esew\ 1571}#)
+ #{e\ 1678}#
+ (#{chi-void\ 406}#))))
+ (if (memq (quote load) #{esew\ 1571}#)
+ (#{chi-install-global\ 384}#
+ #{n\ 1674}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1675}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))
+ (#{chi-void\ 406}#)))
+ (if (memv #{m\ 1570}# (quote (c&e)))
+ (let ((#{e\ 1681}#
+ (#{chi-install-global\ 384}#
+ #{n\ 1674}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1675}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))))
(begin
- (#{top-level-eval-hook\ 12825}#
- #{e\ 14290}#
- #{mod\ 14207}#)
- #{e\ 14290}#))
+ (#{top-level-eval-hook\ 216}#
+ #{e\ 1681}#
+ #{mod\ 1598}#)
+ #{e\ 1681}#))
(begin
- (if (memq (quote eval) #{esew\ 14180}#)
- (#{top-level-eval-hook\ 12825}#
- (#{chi-install-global\ 12993}#
- #{n\ 14283}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14284}#
- #{w\ 14205}#
- #{mod\ 14207}#))
- #{mod\ 14207}#))
- (#{chi-void\ 13015}#)))))
- (if (memv #{type\ 14202}# (quote (define-form)))
- (let ((#{n\ 14295}#
- (#{id-var-name\ 12973}#
- #{value\ 14203}#
- #{w\ 14205}#)))
- (let ((#{type\ 14297}#
- (#{binding-type\ 12899}#
- (#{lookup\ 12910}#
- #{n\ 14295}#
- #{r\ 14177}#
- #{mod\ 14207}#))))
- (if (memv #{type\ 14297}#
+ (if (memq (quote eval) #{esew\ 1571}#)
+ (#{top-level-eval-hook\ 216}#
+ (#{chi-install-global\ 384}#
+ #{n\ 1674}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1675}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))
+ #{mod\ 1598}#))
+ (#{chi-void\ 406}#)))))
+ (if (memv #{type\ 1593}# (quote (define-form)))
+ (let ((#{n\ 1686}#
+ (#{id-var-name\ 364}#
+ #{value\ 1594}#
+ #{w\ 1596}#)))
+ (let ((#{type\ 1688}#
+ (#{binding-type\ 290}#
+ (#{lookup\ 301}#
+ #{n\ 1686}#
+ #{r\ 1568}#
+ #{mod\ 1598}#))))
+ (if (memv #{type\ 1688}#
'(global core macro module-ref))
(begin
- (if (if (memq #{m\ 14179}#
- '(c c&e))
+ (if (if (memq #{m\ 1570}# (quote (c c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 14295}#))
+ #{n\ 1686}#))
(current-module)
#f)
#f)
- (let ((#{old\ 14303}#
+ (let ((#{old\ 1694}#
(module-variable
(current-module)
- #{n\ 14295}#)))
+ #{n\ 1686}#)))
(module-define!
(current-module)
- #{n\ 14295}#
- (if (variable? #{old\ 14303}#)
- (variable-ref #{old\ 14303}#)
+ #{n\ 1686}#
+ (if (variable? #{old\ 1694}#)
+ (variable-ref #{old\ 1694}#)
#f))))
- (let ((#{x\ 14306}#
- (#{build-global-definition\
12856}#
- #{s\ 14206}#
- #{n\ 14295}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{mod\ 14207}#))))
+ (let ((#{x\ 1697}#
+ (#{build-global-definition\ 247}#
+ #{s\ 1597}#
+ #{n\ 1686}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))))
(begin
- (if (eq? #{m\ 14179}# (quote c&e))
- (#{top-level-eval-hook\ 12825}#
- #{x\ 14306}#
- #{mod\ 14207}#))
- #{x\ 14306}#)))
- (if (memv #{type\ 14297}#
+ (if (eq? #{m\ 1570}# (quote c&e))
+ (#{top-level-eval-hook\ 216}#
+ #{x\ 1697}#
+ #{mod\ 1598}#))
+ #{x\ 1697}#)))
+ (if (memv #{type\ 1688}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 14204}#
- (#{wrap\ 12985}#
- #{value\ 14203}#
- #{w\ 14205}#
- #{mod\ 14207}#))
+ #{e\ 1595}#
+ (#{wrap\ 376}#
+ #{value\ 1594}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 14204}#
- (#{wrap\ 12985}#
- #{value\ 14203}#
- #{w\ 14205}#
- #{mod\ 14207}#))))))
- (let ((#{x\ 14312}#
- (#{chi-expr\ 13003}#
- #{type\ 14202}#
- #{value\ 14203}#
- #{e\ 14204}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
- #{mod\ 14207}#)))
+ #{e\ 1595}#
+ (#{wrap\ 376}#
+ #{value\ 1594}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))))))
+ (let ((#{x\ 1703}#
+ (#{chi-expr\ 394}#
+ #{type\ 1593}#
+ #{value\ 1594}#
+ #{e\ 1595}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
+ #{mod\ 1598}#)))
(begin
- (if (eq? #{m\ 14179}# (quote c&e))
- (#{top-level-eval-hook\ 12825}#
- #{x\ 14312}#
- #{mod\ 14207}#))
- #{x\ 14312}#)))))))))))
- (#{syntax-type\ 12997}#
- (lambda (#{e\ 14313}#
- #{r\ 14314}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{rib\ 14317}#
- #{mod\ 14318}#
- #{for-car?\ 14319}#)
- (if (symbol? #{e\ 14313}#)
- (let ((#{n\ 14331}#
- (#{id-var-name\ 12973}#
- #{e\ 14313}#
- #{w\ 14315}#)))
- (let ((#{b\ 14333}#
- (#{lookup\ 12910}#
- #{n\ 14331}#
- #{r\ 14314}#
- #{mod\ 14318}#)))
- (let ((#{type\ 14335}#
- (#{binding-type\ 12899}# #{b\ 14333}#)))
- (if (memv #{type\ 14335}# (quote (lexical)))
+ (if (eq? #{m\ 1570}# (quote c&e))
+ (#{top-level-eval-hook\ 216}#
+ #{x\ 1703}#
+ #{mod\ 1598}#))
+ #{x\ 1703}#)))))))))))
+ (#{syntax-type\ 388}#
+ (lambda (#{e\ 1704}#
+ #{r\ 1705}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#
+ #{for-car?\ 1710}#)
+ (if (symbol? #{e\ 1704}#)
+ (let ((#{n\ 1722}#
+ (#{id-var-name\ 364}# #{e\ 1704}# #{w\ 1706}#)))
+ (let ((#{b\ 1724}#
+ (#{lookup\ 301}#
+ #{n\ 1722}#
+ #{r\ 1705}#
+ #{mod\ 1709}#)))
+ (let ((#{type\ 1726}#
+ (#{binding-type\ 290}# #{b\ 1724}#)))
+ (if (memv #{type\ 1726}# (quote (lexical)))
(values
- #{type\ 14335}#
- (#{binding-value\ 12901}# #{b\ 14333}#)
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{type\ 14335}# (quote (global)))
+ #{type\ 1726}#
+ (#{binding-value\ 292}# #{b\ 1724}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{type\ 1726}# (quote (global)))
(values
- #{type\ 14335}#
- #{n\ 14331}#
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{type\ 14335}# (quote (macro)))
- (if #{for-car?\ 14319}#
+ #{type\ 1726}#
+ #{n\ 1722}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{type\ 1726}# (quote (macro)))
+ (if #{for-car?\ 1710}#
(values
- #{type\ 14335}#
- (#{binding-value\ 12901}# #{b\ 14333}#)
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (#{syntax-type\ 12997}#
- (#{chi-macro\ 13007}#
- (#{binding-value\ 12901}# #{b\ 14333}#)
- #{e\ 14313}#
- #{r\ 14314}#
- #{w\ 14315}#
- #{rib\ 14317}#
- #{mod\ 14318}#)
- #{r\ 14314}#
+ #{type\ 1726}#
+ (#{binding-value\ 292}# #{b\ 1724}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (#{syntax-type\ 388}#
+ (#{chi-macro\ 398}#
+ (#{binding-value\ 292}# #{b\ 1724}#)
+ #{e\ 1704}#
+ #{r\ 1705}#
+ #{w\ 1706}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#)
+ #{r\ 1705}#
'(())
- #{s\ 14316}#
- #{rib\ 14317}#
- #{mod\ 14318}#
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#
#f))
(values
- #{type\ 14335}#
- (#{binding-value\ 12901}# #{b\ 14333}#)
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)))))))
- (if (pair? #{e\ 14313}#)
- (let ((#{first\ 14344}# (car #{e\ 14313}#)))
+ #{type\ 1726}#
+ (#{binding-value\ 292}# #{b\ 1724}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)))))))
+ (if (pair? #{e\ 1704}#)
+ (let ((#{first\ 1735}# (car #{e\ 1704}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{first\ 14344}#
- #{r\ 14314}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{rib\ 14317}#
- #{mod\ 14318}#
+ (#{syntax-type\ 388}#
+ #{first\ 1735}#
+ #{r\ 1705}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#
#t))
- (lambda (#{ftype\ 14345}#
- #{fval\ 14346}#
- #{fe\ 14347}#
- #{fw\ 14348}#
- #{fs\ 14349}#
- #{fmod\ 14350}#)
- (if (memv #{ftype\ 14345}# (quote (lexical)))
+ (lambda (#{ftype\ 1736}#
+ #{fval\ 1737}#
+ #{fe\ 1738}#
+ #{fw\ 1739}#
+ #{fs\ 1740}#
+ #{fmod\ 1741}#)
+ (if (memv #{ftype\ 1736}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 14346}#
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}# (quote (global)))
+ #{fval\ 1737}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 12878}#
- #{fval\ 14346}#
- #{w\ 14315}#
- #{fmod\ 14350}#)
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}# (quote (macro)))
- (#{syntax-type\ 12997}#
- (#{chi-macro\ 13007}#
- #{fval\ 14346}#
- #{e\ 14313}#
- #{r\ 14314}#
- #{w\ 14315}#
- #{rib\ 14317}#
- #{mod\ 14318}#)
- #{r\ 14314}#
+ (#{make-syntax-object\ 269}#
+ #{fval\ 1737}#
+ #{w\ 1706}#
+ #{fmod\ 1741}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}# (quote (macro)))
+ (#{syntax-type\ 388}#
+ (#{chi-macro\ 398}#
+ #{fval\ 1737}#
+ #{e\ 1704}#
+ #{r\ 1705}#
+ #{w\ 1706}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#)
+ #{r\ 1705}#
'(())
- #{s\ 14316}#
- #{rib\ 14317}#
- #{mod\ 14318}#
- #{for-car?\ 14319}#)
- (if (memv #{ftype\ 14345}# (quote (module-ref)))
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#
+ #{for-car?\ 1710}#)
+ (if (memv #{ftype\ 1736}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{fval\ 14346}#
- #{e\ 14313}#
- #{r\ 14314}#
- #{w\ 14315}#))
- (lambda (#{e\ 14362}#
- #{r\ 14363}#
- #{w\ 14364}#
- #{s\ 14365}#
- #{mod\ 14366}#)
- (#{syntax-type\ 12997}#
- #{e\ 14362}#
- #{r\ 14363}#
- #{w\ 14364}#
- #{s\ 14365}#
- #{rib\ 14317}#
- #{mod\ 14366}#
- #{for-car?\ 14319}#)))
- (if (memv #{ftype\ 14345}# (quote (core)))
+ (#{fval\ 1737}#
+ #{e\ 1704}#
+ #{r\ 1705}#
+ #{w\ 1706}#))
+ (lambda (#{e\ 1753}#
+ #{r\ 1754}#
+ #{w\ 1755}#
+ #{s\ 1756}#
+ #{mod\ 1757}#)
+ (#{syntax-type\ 388}#
+ #{e\ 1753}#
+ #{r\ 1754}#
+ #{w\ 1755}#
+ #{s\ 1756}#
+ #{rib\ 1708}#
+ #{mod\ 1757}#
+ #{for-car?\ 1710}#)))
+ (if (memv #{ftype\ 1736}# (quote (core)))
(values
'core-form
- #{fval\ 14346}#
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}#
+ #{fval\ 1737}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 14346}#
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}#
- '(begin))
+ #{fval\ 1737}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}#
'(define))
- ((lambda (#{tmp\ 14377}#)
- ((lambda (#{tmp\ 14378}#)
- (if (if #{tmp\ 14378}#
- (apply (lambda (#{_\
14382}#
- #{name\
14383}#
- #{val\
14384}#)
- (#{id?\ 12916}#
- #{name\
14383}#))
- #{tmp\ 14378}#)
+ ((lambda (#{tmp\ 1768}#)
+ ((lambda (#{tmp\ 1769}#)
+ (if (if #{tmp\ 1769}#
+ (apply (lambda (#{_\
1773}#
+ #{name\
1774}#
+ #{val\
1775}#)
+ (#{id?\ 307}#
+ #{name\
1774}#))
+ #{tmp\ 1769}#)
#f)
- (apply (lambda (#{_\ 14388}#
- #{name\
14389}#
- #{val\
14390}#)
+ (apply (lambda (#{_\ 1779}#
+ #{name\
1780}#
+ #{val\
1781}#)
(values
'define-form
- #{name\ 14389}#
- #{val\ 14390}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#))
- #{tmp\ 14378}#)
- ((lambda (#{tmp\ 14391}#)
- (if (if #{tmp\ 14391}#
- (apply (lambda
(#{_\ 14397}#
-
#{name\ 14398}#
-
#{args\ 14399}#
-
#{e1\ 14400}#
-
#{e2\ 14401}#)
- (if
(#{id?\ 12916}#
-
#{name\ 14398}#)
-
(#{valid-bound-ids?\ 12979}#
-
(#{lambda-var-list\ 13031}#
-
#{args\ 14399}#))
+ #{name\ 1780}#
+ #{val\ 1781}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#))
+ #{tmp\ 1769}#)
+ ((lambda (#{tmp\ 1782}#)
+ (if (if #{tmp\ 1782}#
+ (apply (lambda
(#{_\ 1788}#
+
#{name\ 1789}#
+
#{args\ 1790}#
+
#{e1\ 1791}#
+
#{e2\ 1792}#)
+ (if
(#{id?\ 307}#
+
#{name\ 1789}#)
+
(#{valid-bound-ids?\ 370}#
+
(#{lambda-var-list\ 422}#
+
#{args\ 1790}#))
#f))
- #{tmp\
14391}#)
+ #{tmp\
1782}#)
#f)
- (apply (lambda (#{_\
14409}#
-
#{name\ 14410}#
-
#{args\ 14411}#
- #{e1\
14412}#
- #{e2\
14413}#)
+ (apply (lambda (#{_\
1800}#
+
#{name\ 1801}#
+
#{args\ 1802}#
+ #{e1\
1803}#
+ #{e2\
1804}#)
(values
'define-form
- (#{wrap\
12985}#
- #{name\
14410}#
- #{w\
14315}#
- #{mod\
14318}#)
-
(#{decorate-source\ 12834}#
+ (#{wrap\
376}#
+ #{name\
1801}#
+ #{w\
1706}#
+ #{mod\
1709}#)
+
(#{decorate-source\ 225}#
(cons
'#(syntax-object
lambda
((top)
@@ -3835,11 +3795,11 @@
(top)
(top)
(top))
-
#("i14404"
-
"i14405"
-
"i14406"
-
"i14407"
-
"i14408"))
+
#("i1795"
+
"i1796"
+
"i1797"
+
"i1798"
+
"i1799"))
#(ribcage
()
()
@@ -3861,12 +3821,12 @@
(top)
(top)
(top))
-
#("i14351"
-
"i14352"
-
"i14353"
-
"i14354"
-
"i14355"
-
"i14356"))
+
#("i1742"
+
"i1743"
+
"i1744"
+
"i1745"
+
"i1746"
+
"i1747"))
#(ribcage
()
()
@@ -3874,7 +3834,7 @@
#(ribcage
#(first)
#((top))
-
#("i14343"))
+
#("i1734"))
#(ribcage
()
()
@@ -3902,13 +3862,13 @@
(top)
(top)
(top))
-
#("i14320"
-
"i14321"
-
"i14322"
-
"i14323"
-
"i14324"
-
"i14325"
-
"i14326"))
+
#("i1711"
+
"i1712"
+
"i1713"
+
"i1714"
+
"i1715"
+
"i1716"
+
"i1717"))
#(ribcage
(lambda-var-list
gen-var
@@ -4043,8 +4003,7 @@
make-lexical-ref
make-primitive-ref
make-const
-
make-void
-
*mode*)
+
make-void)
((top)
(top)
(top)
@@ -4178,143 +4137,141 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i13030"
-
"i13028"
-
"i13026"
-
"i13024"
-
"i13022"
-
"i13020"
-
"i13018"
-
"i13016"
-
"i13014"
-
"i13012"
-
"i13010"
-
"i13008"
-
"i13006"
-
"i13004"
-
"i13002"
-
"i13000"
-
"i12998"
-
"i12996"
-
"i12994"
-
"i12992"
-
"i12990"
-
"i12988"
-
"i12986"
-
"i12984"
-
"i12982"
-
"i12980"
-
"i12978"
-
"i12976"
-
"i12974"
-
"i12972"
-
"i12970"
-
"i12968"
-
"i12966"
-
"i12964"
-
"i12962"
-
"i12960"
-
"i12959"
-
"i12958"
-
"i12956"
-
"i12955"
-
"i12954"
-
"i12953"
-
"i12952"
-
"i12950"
-
"i12948"
-
"i12946"
-
"i12944"
-
"i12942"
-
"i12940"
-
"i12938"
-
"i12936"
-
"i12933"
-
"i12931"
-
"i12930"
-
"i12929"
-
"i12928"
-
"i12927"
-
"i12926"
-
"i12924"
-
"i12922"
-
"i12920"
-
"i12918"
-
"i12917"
-
"i12915"
-
"i12913"
-
"i12911"
-
"i12909"
-
"i12907"
-
"i12905"
-
"i12903"
-
"i12902"
-
"i12900"
-
"i12898"
-
"i12897"
-
"i12896"
-
"i12894"
-
"i12893"
-
"i12891"
-
"i12889"
-
"i12887"
-
"i12885"
-
"i12883"
-
"i12881"
-
"i12879"
-
"i12877"
-
"i12875"
-
"i12873"
-
"i12871"
-
"i12869"
-
"i12867"
-
"i12865"
-
"i12863"
-
"i12861"
-
"i12859"
-
"i12857"
-
"i12855"
-
"i12853"
-
"i12851"
-
"i12849"
-
"i12847"
-
"i12845"
-
"i12843"
-
"i12841"
-
"i12839"
-
"i12837"
-
"i12835"
-
"i12833"
-
"i12831"
-
"i12829"
-
"i12828"
-
"i12826"
-
"i12824"
-
"i12822"
-
"i12820"
-
"i12818"
-
"i12816"
-
"i12814"
-
"i12812"
-
"i12810"
-
"i12808"
-
"i12806"
-
"i12804"
-
"i12802"
-
"i12800"
-
"i12798"
-
"i12796"
-
"i12794"
-
"i12792"
-
"i12790"
-
"i12788"
-
"i12786"
-
"i12784"
-
"i12782"
-
"i12780"
-
"i12777"))
+
("i421"
+
"i419"
+
"i417"
+
"i415"
+
"i413"
+
"i411"
+
"i409"
+
"i407"
+
"i405"
+
"i403"
+
"i401"
+
"i399"
+
"i397"
+
"i395"
+
"i393"
+
"i391"
+
"i389"
+
"i387"
+
"i385"
+
"i383"
+
"i381"
+
"i379"
+
"i377"
+
"i375"
+
"i373"
+
"i371"
+
"i369"
+
"i367"
+
"i365"
+
"i363"
+
"i361"
+
"i359"
+
"i357"
+
"i355"
+
"i353"
+
"i351"
+
"i350"
+
"i349"
+
"i347"
+
"i346"
+
"i345"
+
"i344"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i333"
+
"i331"
+
"i329"
+
"i327"
+
"i324"
+
"i322"
+
"i321"
+
"i320"
+
"i319"
+
"i318"
+
"i317"
+
"i315"
+
"i313"
+
"i311"
+
"i309"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i293"
+
"i291"
+
"i289"
+
"i288"
+
"i287"
+
"i285"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i260"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -4322,38 +4279,38 @@
((top)
(top)
(top))
-
("i12629"
-
"i12628"
-
"i12626")))
+
("i22"
+
"i21"
+
"i19")))
(hygiene
guile))
-
(#{wrap\ 12985}#
-
(cons #{args\ 14411}#
-
(cons #{e1\ 14412}#
-
#{e2\ 14413}#))
-
#{w\ 14315}#
-
#{mod\ 14318}#))
- #{s\
14316}#)
+
(#{wrap\ 376}#
+
(cons #{args\ 1802}#
+
(cons #{e1\ 1803}#
+
#{e2\ 1804}#))
+
#{w\ 1706}#
+
#{mod\ 1709}#))
+ #{s\
1707}#)
'(())
- #{s\ 14316}#
- #{mod\
14318}#))
- #{tmp\ 14391}#)
- ((lambda (#{tmp\
14416}#)
- (if (if #{tmp\
14416}#
- (apply
(lambda (#{_\ 14419}#
-
#{name\ 14420}#)
-
(#{id?\ 12916}#
-
#{name\ 14420}#))
- #{tmp\
14416}#)
+ #{s\ 1707}#
+ #{mod\
1709}#))
+ #{tmp\ 1782}#)
+ ((lambda (#{tmp\
1807}#)
+ (if (if #{tmp\
1807}#
+ (apply
(lambda (#{_\ 1810}#
+
#{name\ 1811}#)
+
(#{id?\ 307}#
+
#{name\ 1811}#))
+ #{tmp\
1807}#)
#f)
- (apply (lambda
(#{_\ 14423}#
-
#{name\ 14424}#)
+ (apply (lambda
(#{_\ 1814}#
+
#{name\ 1815}#)
(values
'define-form
-
(#{wrap\ 12985}#
-
#{name\ 14424}#
- #{w\
14315}#
-
#{mod\ 14318}#)
+
(#{wrap\ 376}#
+
#{name\ 1815}#
+ #{w\
1706}#
+
#{mod\ 1709}#)
'(#(syntax-object
if
((top)
@@ -4362,8 +4319,8 @@
name)
#((top)
(top))
-
#("i14421"
-
"i14422"))
+
#("i1812"
+
"i1813"))
#(ribcage
()
()
@@ -4385,12 +4342,12 @@
(top)
(top)
(top))
-
#("i14351"
-
"i14352"
-
"i14353"
-
"i14354"
-
"i14355"
-
"i14356"))
+
#("i1742"
+
"i1743"
+
"i1744"
+
"i1745"
+
"i1746"
+
"i1747"))
#(ribcage
()
()
@@ -4398,7 +4355,7 @@
#(ribcage
#(first)
#((top))
-
#("i14343"))
+
#("i1734"))
#(ribcage
()
()
@@ -4426,13 +4383,13 @@
(top)
(top)
(top))
-
#("i14320"
-
"i14321"
-
"i14322"
-
"i14323"
-
"i14324"
-
"i14325"
-
"i14326"))
+
#("i1711"
+
"i1712"
+
"i1713"
+
"i1714"
+
"i1715"
+
"i1716"
+
"i1717"))
#(ribcage
(lambda-var-list
gen-var
@@ -4567,8 +4524,7 @@
make-lexical-ref
make-primitive-ref
make-const
-
make-void
-
*mode*)
+
make-void)
((top)
(top)
(top)
@@ -4702,143 +4658,141 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i13030"
-
"i13028"
-
"i13026"
-
"i13024"
-
"i13022"
-
"i13020"
-
"i13018"
-
"i13016"
-
"i13014"
-
"i13012"
-
"i13010"
-
"i13008"
-
"i13006"
-
"i13004"
-
"i13002"
-
"i13000"
-
"i12998"
-
"i12996"
-
"i12994"
-
"i12992"
-
"i12990"
-
"i12988"
-
"i12986"
-
"i12984"
-
"i12982"
-
"i12980"
-
"i12978"
-
"i12976"
-
"i12974"
-
"i12972"
-
"i12970"
-
"i12968"
-
"i12966"
-
"i12964"
-
"i12962"
-
"i12960"
-
"i12959"
-
"i12958"
-
"i12956"
-
"i12955"
-
"i12954"
-
"i12953"
-
"i12952"
-
"i12950"
-
"i12948"
-
"i12946"
-
"i12944"
-
"i12942"
-
"i12940"
-
"i12938"
-
"i12936"
-
"i12933"
-
"i12931"
-
"i12930"
-
"i12929"
-
"i12928"
-
"i12927"
-
"i12926"
-
"i12924"
-
"i12922"
-
"i12920"
-
"i12918"
-
"i12917"
-
"i12915"
-
"i12913"
-
"i12911"
-
"i12909"
-
"i12907"
-
"i12905"
-
"i12903"
-
"i12902"
-
"i12900"
-
"i12898"
-
"i12897"
-
"i12896"
-
"i12894"
-
"i12893"
-
"i12891"
-
"i12889"
-
"i12887"
-
"i12885"
-
"i12883"
-
"i12881"
-
"i12879"
-
"i12877"
-
"i12875"
-
"i12873"
-
"i12871"
-
"i12869"
-
"i12867"
-
"i12865"
-
"i12863"
-
"i12861"
-
"i12859"
-
"i12857"
-
"i12855"
-
"i12853"
-
"i12851"
-
"i12849"
-
"i12847"
-
"i12845"
-
"i12843"
-
"i12841"
-
"i12839"
-
"i12837"
-
"i12835"
-
"i12833"
-
"i12831"
-
"i12829"
-
"i12828"
-
"i12826"
-
"i12824"
-
"i12822"
-
"i12820"
-
"i12818"
-
"i12816"
-
"i12814"
-
"i12812"
-
"i12810"
-
"i12808"
-
"i12806"
-
"i12804"
-
"i12802"
-
"i12800"
-
"i12798"
-
"i12796"
-
"i12794"
-
"i12792"
-
"i12790"
-
"i12788"
-
"i12786"
-
"i12784"
-
"i12782"
-
"i12780"
-
"i12777"))
+
("i421"
+
"i419"
+
"i417"
+
"i415"
+
"i413"
+
"i411"
+
"i409"
+
"i407"
+
"i405"
+
"i403"
+
"i401"
+
"i399"
+
"i397"
+
"i395"
+
"i393"
+
"i391"
+
"i389"
+
"i387"
+
"i385"
+
"i383"
+
"i381"
+
"i379"
+
"i377"
+
"i375"
+
"i373"
+
"i371"
+
"i369"
+
"i367"
+
"i365"
+
"i363"
+
"i361"
+
"i359"
+
"i357"
+
"i355"
+
"i353"
+
"i351"
+
"i350"
+
"i349"
+
"i347"
+
"i346"
+
"i345"
+
"i344"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i333"
+
"i331"
+
"i329"
+
"i327"
+
"i324"
+
"i322"
+
"i321"
+
"i320"
+
"i319"
+
"i318"
+
"i317"
+
"i315"
+
"i313"
+
"i311"
+
"i309"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i293"
+
"i291"
+
"i289"
+
"i288"
+
"i287"
+
"i285"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i260"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -4846,9 +4800,9 @@
((top)
(top)
(top))
-
("i12629"
-
"i12628"
-
"i12626")))
+
("i22"
+
"i21"
+
"i19")))
(hygiene
guile))
#(syntax-object
@@ -4859,8 +4813,8 @@
name)
#((top)
(top))
-
#("i14421"
-
"i14422"))
+
#("i1812"
+
"i1813"))
#(ribcage
()
()
@@ -4882,12 +4836,12 @@
(top)
(top)
(top))
-
#("i14351"
-
"i14352"
-
"i14353"
-
"i14354"
-
"i14355"
-
"i14356"))
+
#("i1742"
+
"i1743"
+
"i1744"
+
"i1745"
+
"i1746"
+
"i1747"))
#(ribcage
()
()
@@ -4895,7 +4849,7 @@
#(ribcage
#(first)
#((top))
-
#("i14343"))
+
#("i1734"))
#(ribcage
()
()
@@ -4923,13 +4877,13 @@
(top)
(top)
(top))
-
#("i14320"
-
"i14321"
-
"i14322"
-
"i14323"
-
"i14324"
-
"i14325"
-
"i14326"))
+
#("i1711"
+
"i1712"
+
"i1713"
+
"i1714"
+
"i1715"
+
"i1716"
+
"i1717"))
#(ribcage
(lambda-var-list
gen-var
@@ -5064,8 +5018,7 @@
make-lexical-ref
make-primitive-ref
make-const
-
make-void
-
*mode*)
+
make-void)
((top)
(top)
(top)
@@ -5199,143 +5152,141 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i13030"
-
"i13028"
-
"i13026"
-
"i13024"
-
"i13022"
-
"i13020"
-
"i13018"
-
"i13016"
-
"i13014"
-
"i13012"
-
"i13010"
-
"i13008"
-
"i13006"
-
"i13004"
-
"i13002"
-
"i13000"
-
"i12998"
-
"i12996"
-
"i12994"
-
"i12992"
-
"i12990"
-
"i12988"
-
"i12986"
-
"i12984"
-
"i12982"
-
"i12980"
-
"i12978"
-
"i12976"
-
"i12974"
-
"i12972"
-
"i12970"
-
"i12968"
-
"i12966"
-
"i12964"
-
"i12962"
-
"i12960"
-
"i12959"
-
"i12958"
-
"i12956"
-
"i12955"
-
"i12954"
-
"i12953"
-
"i12952"
-
"i12950"
-
"i12948"
-
"i12946"
-
"i12944"
-
"i12942"
-
"i12940"
-
"i12938"
-
"i12936"
-
"i12933"
-
"i12931"
-
"i12930"
-
"i12929"
-
"i12928"
-
"i12927"
-
"i12926"
-
"i12924"
-
"i12922"
-
"i12920"
-
"i12918"
-
"i12917"
-
"i12915"
-
"i12913"
-
"i12911"
-
"i12909"
-
"i12907"
-
"i12905"
-
"i12903"
-
"i12902"
-
"i12900"
-
"i12898"
-
"i12897"
-
"i12896"
-
"i12894"
-
"i12893"
-
"i12891"
-
"i12889"
-
"i12887"
-
"i12885"
-
"i12883"
-
"i12881"
-
"i12879"
-
"i12877"
-
"i12875"
-
"i12873"
-
"i12871"
-
"i12869"
-
"i12867"
-
"i12865"
-
"i12863"
-
"i12861"
-
"i12859"
-
"i12857"
-
"i12855"
-
"i12853"
-
"i12851"
-
"i12849"
-
"i12847"
-
"i12845"
-
"i12843"
-
"i12841"
-
"i12839"
-
"i12837"
-
"i12835"
-
"i12833"
-
"i12831"
-
"i12829"
-
"i12828"
-
"i12826"
-
"i12824"
-
"i12822"
-
"i12820"
-
"i12818"
-
"i12816"
-
"i12814"
-
"i12812"
-
"i12810"
-
"i12808"
-
"i12806"
-
"i12804"
-
"i12802"
-
"i12800"
-
"i12798"
-
"i12796"
-
"i12794"
-
"i12792"
-
"i12790"
-
"i12788"
-
"i12786"
-
"i12784"
-
"i12782"
-
"i12780"
-
"i12777"))
+
("i421"
+
"i419"
+
"i417"
+
"i415"
+
"i413"
+
"i411"
+
"i409"
+
"i407"
+
"i405"
+
"i403"
+
"i401"
+
"i399"
+
"i397"
+
"i395"
+
"i393"
+
"i391"
+
"i389"
+
"i387"
+
"i385"
+
"i383"
+
"i381"
+
"i379"
+
"i377"
+
"i375"
+
"i373"
+
"i371"
+
"i369"
+
"i367"
+
"i365"
+
"i363"
+
"i361"
+
"i359"
+
"i357"
+
"i355"
+
"i353"
+
"i351"
+
"i350"
+
"i349"
+
"i347"
+
"i346"
+
"i345"
+
"i344"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i333"
+
"i331"
+
"i329"
+
"i327"
+
"i324"
+
"i322"
+
"i321"
+
"i320"
+
"i319"
+
"i318"
+
"i317"
+
"i315"
+
"i313"
+
"i311"
+
"i309"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i293"
+
"i291"
+
"i289"
+
"i288"
+
"i287"
+
"i285"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i260"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -5343,9 +5294,9 @@
((top)
(top)
(top))
-
("i12629"
-
"i12628"
-
"i12626")))
+
("i22"
+
"i21"
+
"i19")))
(hygiene
guile))
#(syntax-object
@@ -5356,8 +5307,8 @@
name)
#((top)
(top))
-
#("i14421"
-
"i14422"))
+
#("i1812"
+
"i1813"))
#(ribcage
()
()
@@ -5379,12 +5330,12 @@
(top)
(top)
(top))
-
#("i14351"
-
"i14352"
-
"i14353"
-
"i14354"
-
"i14355"
-
"i14356"))
+
#("i1742"
+
"i1743"
+
"i1744"
+
"i1745"
+
"i1746"
+
"i1747"))
#(ribcage
()
()
@@ -5392,7 +5343,7 @@
#(ribcage
#(first)
#((top))
-
#("i14343"))
+
#("i1734"))
#(ribcage
()
()
@@ -5420,13 +5371,13 @@
(top)
(top)
(top))
-
#("i14320"
-
"i14321"
-
"i14322"
-
"i14323"
-
"i14324"
-
"i14325"
-
"i14326"))
+
#("i1711"
+
"i1712"
+
"i1713"
+
"i1714"
+
"i1715"
+
"i1716"
+
"i1717"))
#(ribcage
(lambda-var-list
gen-var
@@ -5561,8 +5512,7 @@
make-lexical-ref
make-primitive-ref
make-const
-
make-void
-
*mode*)
+
make-void)
((top)
(top)
(top)
@@ -5696,143 +5646,141 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i13030"
-
"i13028"
-
"i13026"
-
"i13024"
-
"i13022"
-
"i13020"
-
"i13018"
-
"i13016"
-
"i13014"
-
"i13012"
-
"i13010"
-
"i13008"
-
"i13006"
-
"i13004"
-
"i13002"
-
"i13000"
-
"i12998"
-
"i12996"
-
"i12994"
-
"i12992"
-
"i12990"
-
"i12988"
-
"i12986"
-
"i12984"
-
"i12982"
-
"i12980"
-
"i12978"
-
"i12976"
-
"i12974"
-
"i12972"
-
"i12970"
-
"i12968"
-
"i12966"
-
"i12964"
-
"i12962"
-
"i12960"
-
"i12959"
-
"i12958"
-
"i12956"
-
"i12955"
-
"i12954"
-
"i12953"
-
"i12952"
-
"i12950"
-
"i12948"
-
"i12946"
-
"i12944"
-
"i12942"
-
"i12940"
-
"i12938"
-
"i12936"
-
"i12933"
-
"i12931"
-
"i12930"
-
"i12929"
-
"i12928"
-
"i12927"
-
"i12926"
-
"i12924"
-
"i12922"
-
"i12920"
-
"i12918"
-
"i12917"
-
"i12915"
-
"i12913"
-
"i12911"
-
"i12909"
-
"i12907"
-
"i12905"
-
"i12903"
-
"i12902"
-
"i12900"
-
"i12898"
-
"i12897"
-
"i12896"
-
"i12894"
-
"i12893"
-
"i12891"
-
"i12889"
-
"i12887"
-
"i12885"
-
"i12883"
-
"i12881"
-
"i12879"
-
"i12877"
-
"i12875"
-
"i12873"
-
"i12871"
-
"i12869"
-
"i12867"
-
"i12865"
-
"i12863"
-
"i12861"
-
"i12859"
-
"i12857"
-
"i12855"
-
"i12853"
-
"i12851"
-
"i12849"
-
"i12847"
-
"i12845"
-
"i12843"
-
"i12841"
-
"i12839"
-
"i12837"
-
"i12835"
-
"i12833"
-
"i12831"
-
"i12829"
-
"i12828"
-
"i12826"
-
"i12824"
-
"i12822"
-
"i12820"
-
"i12818"
-
"i12816"
-
"i12814"
-
"i12812"
-
"i12810"
-
"i12808"
-
"i12806"
-
"i12804"
-
"i12802"
-
"i12800"
-
"i12798"
-
"i12796"
-
"i12794"
-
"i12792"
-
"i12790"
-
"i12788"
-
"i12786"
-
"i12784"
-
"i12782"
-
"i12780"
-
"i12777"))
+
("i421"
+
"i419"
+
"i417"
+
"i415"
+
"i413"
+
"i411"
+
"i409"
+
"i407"
+
"i405"
+
"i403"
+
"i401"
+
"i399"
+
"i397"
+
"i395"
+
"i393"
+
"i391"
+
"i389"
+
"i387"
+
"i385"
+
"i383"
+
"i381"
+
"i379"
+
"i377"
+
"i375"
+
"i373"
+
"i371"
+
"i369"
+
"i367"
+
"i365"
+
"i363"
+
"i361"
+
"i359"
+
"i357"
+
"i355"
+
"i353"
+
"i351"
+
"i350"
+
"i349"
+
"i347"
+
"i346"
+
"i345"
+
"i344"
+
"i343"
+
"i341"
+
"i339"
+
"i337"
+
"i335"
+
"i333"
+
"i331"
+
"i329"
+
"i327"
+
"i324"
+
"i322"
+
"i321"
+
"i320"
+
"i319"
+
"i318"
+
"i317"
+
"i315"
+
"i313"
+
"i311"
+
"i309"
+
"i308"
+
"i306"
+
"i304"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i293"
+
"i291"
+
"i289"
+
"i288"
+
"i287"
+
"i285"
+
"i284"
+
"i282"
+
"i280"
+
"i278"
+
"i276"
+
"i274"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i260"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i240"
+
"i238"
+
"i236"
+
"i234"
+
"i232"
+
"i230"
+
"i228"
+
"i226"
+
"i224"
+
"i222"
+
"i220"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i173"
+
"i171"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -5840,111 +5788,110 @@
((top)
(top)
(top))
-
("i12629"
-
"i12628"
-
"i12626")))
+
("i22"
+
"i21"
+
"i19")))
(hygiene
guile)))
'(())
- #{s\
14316}#
- #{mod\
14318}#))
- #{tmp\
14416}#)
+ #{s\
1707}#
+ #{mod\
1709}#))
+ #{tmp\
1807}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\
14377}#)))
+ #{tmp\ 1768}#)))
($sc-dispatch
- #{tmp\ 14377}#
+ #{tmp\ 1768}#
'(any any)))))
($sc-dispatch
- #{tmp\ 14377}#
+ #{tmp\ 1768}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 14377}#
+ #{tmp\ 1768}#
'(any any any))))
- #{e\ 14313}#)
- (if (memv #{ftype\ 14345}#
+ #{e\ 1704}#)
+ (if (memv #{ftype\ 1736}#
'(define-syntax))
- ((lambda (#{tmp\ 14427}#)
- ((lambda (#{tmp\ 14428}#)
- (if (if #{tmp\ 14428}#
- (apply (lambda (#{_\
14432}#
-
#{name\ 14433}#
-
#{val\ 14434}#)
- (#{id?\
12916}#
- #{name\
14433}#))
- #{tmp\ 14428}#)
+ ((lambda (#{tmp\ 1818}#)
+ ((lambda (#{tmp\ 1819}#)
+ (if (if #{tmp\ 1819}#
+ (apply (lambda (#{_\
1823}#
+
#{name\ 1824}#
+
#{val\ 1825}#)
+ (#{id?\ 307}#
+ #{name\
1824}#))
+ #{tmp\ 1819}#)
#f)
- (apply (lambda (#{_\
14438}#
- #{name\
14439}#
- #{val\
14440}#)
+ (apply (lambda (#{_\
1829}#
+ #{name\
1830}#
+ #{val\
1831}#)
(values
'define-syntax-form
- #{name\ 14439}#
- #{val\ 14440}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\
14318}#))
- #{tmp\ 14428}#)
+ #{name\ 1830}#
+ #{val\ 1831}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#))
+ #{tmp\ 1819}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 14427}#)))
+ #{tmp\ 1818}#)))
($sc-dispatch
- #{tmp\ 14427}#
+ #{tmp\ 1818}#
'(any any any))))
- #{e\ 14313}#)
+ #{e\ 1704}#)
(values
'call
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#))))))))))))))
- (if (#{syntax-object?\ 12880}# #{e\ 14313}#)
- (#{syntax-type\ 12997}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 14313}#)
- #{r\ 14314}#
- (#{join-wraps\ 12967}#
- #{w\ 14315}#
- (#{syntax-object-wrap\ 12884}# #{e\ 14313}#))
- #{s\ 14316}#
- #{rib\ 14317}#
- (let ((#{t\ 14446}#
- (#{syntax-object-module\ 12886}# #{e\ 14313}#)))
- (if #{t\ 14446}# #{t\ 14446}# #{mod\ 14318}#))
- #{for-car?\ 14319}#)
- (if (self-evaluating? #{e\ 14313}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#))))))))))))))
+ (if (#{syntax-object?\ 271}# #{e\ 1704}#)
+ (#{syntax-type\ 388}#
+ (#{syntax-object-expression\ 273}# #{e\ 1704}#)
+ #{r\ 1705}#
+ (#{join-wraps\ 358}#
+ #{w\ 1706}#
+ (#{syntax-object-wrap\ 275}# #{e\ 1704}#))
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ (let ((#{t\ 1837}#
+ (#{syntax-object-module\ 277}# #{e\ 1704}#)))
+ (if #{t\ 1837}# #{t\ 1837}# #{mod\ 1709}#))
+ #{for-car?\ 1710}#)
+ (if (self-evaluating? #{e\ 1704}#)
(values
'constant
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
(values
'other
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)))))))
- (#{chi-when-list\ 12995}#
- (lambda (#{e\ 14451}# #{when-list\ 14452}# #{w\ 14453}#)
- (letrec ((#{f\ 14460}#
- (lambda (#{when-list\ 14461}# #{situations\ 14462}#)
- (if (null? #{when-list\ 14461}#)
- #{situations\ 14462}#
- (#{f\ 14460}#
- (cdr #{when-list\ 14461}#)
- (cons (let ((#{x\ 14464}#
- (car #{when-list\ 14461}#)))
- (if (#{free-id=?\ 12975}#
- #{x\ 14464}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)))))))
+ (#{chi-when-list\ 386}#
+ (lambda (#{e\ 1842}# #{when-list\ 1843}# #{w\ 1844}#)
+ (letrec ((#{f\ 1851}#
+ (lambda (#{when-list\ 1852}# #{situations\ 1853}#)
+ (if (null? #{when-list\ 1852}#)
+ #{situations\ 1853}#
+ (#{f\ 1851}#
+ (cdr #{when-list\ 1852}#)
+ (cons (let ((#{x\ 1855}#
+ (car #{when-list\ 1852}#)))
+ (if (#{free-id=?\ 366}#
+ #{x\ 1855}#
'#(syntax-object
compile
((top)
@@ -5954,21 +5901,17 @@
#(ribcage
#(x)
#((top))
- #("i14463"))
+ #("i1854"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i14457"
- "i14458"
- "i14459"))
+ #("i1848" "i1849" "i1850"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i14454"
- "i14455"
- "i14456"))
+ #("i1845" "i1846" "i1847"))
#(ribcage
(lambda-var-list
gen-var
@@ -6103,8 +6046,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -6238,155 +6180,151 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 12975}#
- #{x\ 14464}#
+ (if (#{free-id=?\ 366}#
+ #{x\ 1855}#
'#(syntax-object
load
((top)
@@ -6396,21 +6334,21 @@
#(ribcage
#(x)
#((top))
- #("i14463"))
+ #("i1854"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i14457"
- "i14458"
- "i14459"))
+ #("i1848"
+ "i1849"
+ "i1850"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i14454"
- "i14455"
- "i14456"))
+ #("i1845"
+ "i1846"
+ "i1847"))
#(ribcage
(lambda-var-list
gen-var
@@ -6545,8 +6483,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -6680,155 +6617,151 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 12975}#
- #{x\ 14464}#
+ (if (#{free-id=?\ 366}#
+ #{x\ 1855}#
'#(syntax-object
eval
((top)
@@ -6838,23 +6771,23 @@
#(ribcage
#(x)
#((top))
- #("i14463"))
+ #("i1854"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i14457"
- "i14458"
- "i14459"))
+ #("i1848"
+ "i1849"
+ "i1850"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i14454"
- "i14455"
- "i14456"))
+ #("i1845"
+ "i1846"
+ "i1847"))
#(ribcage
(lambda-var-list
gen-var
@@ -6989,8 +6922,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -7124,155 +7056,151 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 12975}#
- #{x\ 14464}#
+ (if (#{free-id=?\ 366}#
+ #{x\ 1855}#
'#(syntax-object
expand
((top)
@@ -7282,23 +7210,23 @@
#(ribcage
#(x)
#((top))
- #("i14463"))
+ #("i1854"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i14457"
- "i14458"
- "i14459"))
+ #("i1848"
+ "i1849"
+ "i1850"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i14454"
- "i14455"
- "i14456"))
+ #("i1845"
+ "i1846"
+ "i1847"))
#(ribcage
(lambda-var-list
gen-var
@@ -7433,8 +7361,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -7568,2530 +7495,2403 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 14451}#
- (#{wrap\ 12985}#
- #{x\ 14464}#
- #{w\ 14453}#
+ #{e\ 1842}#
+ (#{wrap\ 376}#
+ #{x\ 1855}#
+ #{w\ 1844}#
#f)))))))
- #{situations\ 14462}#))))))
- (#{f\ 14460}# #{when-list\ 14452}# (quote ())))))
- (#{chi-install-global\ 12993}#
- (lambda (#{name\ 14474}# #{e\ 14475}#)
- (#{build-global-definition\ 12856}#
+ #{situations\ 1853}#))))))
+ (#{f\ 1851}# #{when-list\ 1843}# (quote ())))))
+ (#{chi-install-global\ 384}#
+ (lambda (#{name\ 1865}# #{e\ 1866}#)
+ (#{build-global-definition\ 247}#
#f
- #{name\ 14474}#
- (#{build-application\ 12838}#
+ #{name\ 1865}#
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 255}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 12866}# #f #{name\ 14474}#)
- (#{build-data\ 12866}# #f (quote macro))
- (#{build-application\ 12838}#
+ (list (#{build-data\ 257}# #f #{name\ 1865}#)
+ (#{build-data\ 257}# #f (quote macro))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}# #f (quote cons))
- (list #{e\ 14475}#
- (#{build-application\ 12838}#
+ (#{build-primref\ 255}# #f (quote cons))
+ (list #{e\ 1866}#
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 255}#
#f
'module-name)
- (list (#{build-application\ 12838}#
+ (list (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 255}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 12991}#
- (lambda (#{body\ 14489}#
- #{r\ 14490}#
- #{w\ 14491}#
- #{s\ 14492}#
- #{m\ 14493}#
- #{esew\ 14494}#
- #{mod\ 14495}#)
- (#{build-sequence\ 12868}#
- #{s\ 14492}#
- (letrec ((#{dobody\ 14511}#
- (lambda (#{body\ 14512}#
- #{r\ 14513}#
- #{w\ 14514}#
- #{m\ 14515}#
- #{esew\ 14516}#
- #{mod\ 14517}#
- #{out\ 14518}#)
- (if (null? #{body\ 14512}#)
- (reverse #{out\ 14518}#)
- (#{dobody\ 14511}#
- (cdr #{body\ 14512}#)
- #{r\ 14513}#
- #{w\ 14514}#
- #{m\ 14515}#
- #{esew\ 14516}#
- #{mod\ 14517}#
- (cons (#{chi-top\ 12999}#
- (car #{body\ 14512}#)
- #{r\ 14513}#
- #{w\ 14514}#
- #{m\ 14515}#
- #{esew\ 14516}#
- #{mod\ 14517}#)
- #{out\ 14518}#))))))
- (#{dobody\ 14511}#
- #{body\ 14489}#
- #{r\ 14490}#
- #{w\ 14491}#
- #{m\ 14493}#
- #{esew\ 14494}#
- #{mod\ 14495}#
+ (#{chi-top-sequence\ 382}#
+ (lambda (#{body\ 1880}#
+ #{r\ 1881}#
+ #{w\ 1882}#
+ #{s\ 1883}#
+ #{m\ 1884}#
+ #{esew\ 1885}#
+ #{mod\ 1886}#)
+ (#{build-sequence\ 259}#
+ #{s\ 1883}#
+ (letrec ((#{dobody\ 1902}#
+ (lambda (#{body\ 1903}#
+ #{r\ 1904}#
+ #{w\ 1905}#
+ #{m\ 1906}#
+ #{esew\ 1907}#
+ #{mod\ 1908}#
+ #{out\ 1909}#)
+ (if (null? #{body\ 1903}#)
+ (reverse #{out\ 1909}#)
+ (#{dobody\ 1902}#
+ (cdr #{body\ 1903}#)
+ #{r\ 1904}#
+ #{w\ 1905}#
+ #{m\ 1906}#
+ #{esew\ 1907}#
+ #{mod\ 1908}#
+ (cons (#{chi-top\ 390}#
+ (car #{body\ 1903}#)
+ #{r\ 1904}#
+ #{w\ 1905}#
+ #{m\ 1906}#
+ #{esew\ 1907}#
+ #{mod\ 1908}#)
+ #{out\ 1909}#))))))
+ (#{dobody\ 1902}#
+ #{body\ 1880}#
+ #{r\ 1881}#
+ #{w\ 1882}#
+ #{m\ 1884}#
+ #{esew\ 1885}#
+ #{mod\ 1886}#
'())))))
- (#{chi-sequence\ 12989}#
- (lambda (#{body\ 14519}#
- #{r\ 14520}#
- #{w\ 14521}#
- #{s\ 14522}#
- #{mod\ 14523}#)
- (#{build-sequence\ 12868}#
- #{s\ 14522}#
- (letrec ((#{dobody\ 14534}#
- (lambda (#{body\ 14535}#
- #{r\ 14536}#
- #{w\ 14537}#
- #{mod\ 14538}#)
- (if (null? #{body\ 14535}#)
+ (#{chi-sequence\ 380}#
+ (lambda (#{body\ 1910}#
+ #{r\ 1911}#
+ #{w\ 1912}#
+ #{s\ 1913}#
+ #{mod\ 1914}#)
+ (#{build-sequence\ 259}#
+ #{s\ 1913}#
+ (letrec ((#{dobody\ 1925}#
+ (lambda (#{body\ 1926}#
+ #{r\ 1927}#
+ #{w\ 1928}#
+ #{mod\ 1929}#)
+ (if (null? #{body\ 1926}#)
'()
- (let ((#{first\ 14540}#
- (#{chi\ 13001}#
- (car #{body\ 14535}#)
- #{r\ 14536}#
- #{w\ 14537}#
- #{mod\ 14538}#)))
- (cons #{first\ 14540}#
- (#{dobody\ 14534}#
- (cdr #{body\ 14535}#)
- #{r\ 14536}#
- #{w\ 14537}#
- #{mod\ 14538}#)))))))
- (#{dobody\ 14534}#
- #{body\ 14519}#
- #{r\ 14520}#
- #{w\ 14521}#
- #{mod\ 14523}#)))))
- (#{source-wrap\ 12987}#
- (lambda (#{x\ 14541}#
- #{w\ 14542}#
- #{s\ 14543}#
- #{defmod\ 14544}#)
- (#{wrap\ 12985}#
- (#{decorate-source\ 12834}#
- #{x\ 14541}#
- #{s\ 14543}#)
- #{w\ 14542}#
- #{defmod\ 14544}#)))
- (#{wrap\ 12985}#
- (lambda (#{x\ 14549}# #{w\ 14550}# #{defmod\ 14551}#)
- (if (if (null? (#{wrap-marks\ 12923}# #{w\ 14550}#))
- (null? (#{wrap-subst\ 12925}# #{w\ 14550}#))
+ (let ((#{first\ 1931}#
+ (#{chi\ 392}#
+ (car #{body\ 1926}#)
+ #{r\ 1927}#
+ #{w\ 1928}#
+ #{mod\ 1929}#)))
+ (cons #{first\ 1931}#
+ (#{dobody\ 1925}#
+ (cdr #{body\ 1926}#)
+ #{r\ 1927}#
+ #{w\ 1928}#
+ #{mod\ 1929}#)))))))
+ (#{dobody\ 1925}#
+ #{body\ 1910}#
+ #{r\ 1911}#
+ #{w\ 1912}#
+ #{mod\ 1914}#)))))
+ (#{source-wrap\ 378}#
+ (lambda (#{x\ 1932}#
+ #{w\ 1933}#
+ #{s\ 1934}#
+ #{defmod\ 1935}#)
+ (#{wrap\ 376}#
+ (#{decorate-source\ 225}#
+ #{x\ 1932}#
+ #{s\ 1934}#)
+ #{w\ 1933}#
+ #{defmod\ 1935}#)))
+ (#{wrap\ 376}#
+ (lambda (#{x\ 1940}# #{w\ 1941}# #{defmod\ 1942}#)
+ (if (if (null? (#{wrap-marks\ 314}# #{w\ 1941}#))
+ (null? (#{wrap-subst\ 316}# #{w\ 1941}#))
#f)
- #{x\ 14549}#
- (if (#{syntax-object?\ 12880}# #{x\ 14549}#)
- (#{make-syntax-object\ 12878}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 14549}#)
- (#{join-wraps\ 12967}#
- #{w\ 14550}#
- (#{syntax-object-wrap\ 12884}# #{x\ 14549}#))
- (#{syntax-object-module\ 12886}# #{x\ 14549}#))
- (if (null? #{x\ 14549}#)
- #{x\ 14549}#
- (#{make-syntax-object\ 12878}#
- #{x\ 14549}#
- #{w\ 14550}#
- #{defmod\ 14551}#))))))
- (#{bound-id-member?\ 12983}#
- (lambda (#{x\ 14564}# #{list\ 14565}#)
- (if (not (null? #{list\ 14565}#))
- (let ((#{t\ 14572}#
- (#{bound-id=?\ 12977}#
- #{x\ 14564}#
- (car #{list\ 14565}#))))
- (if #{t\ 14572}#
- #{t\ 14572}#
- (#{bound-id-member?\ 12983}#
- #{x\ 14564}#
- (cdr #{list\ 14565}#))))
+ #{x\ 1940}#
+ (if (#{syntax-object?\ 271}# #{x\ 1940}#)
+ (#{make-syntax-object\ 269}#
+ (#{syntax-object-expression\ 273}# #{x\ 1940}#)
+ (#{join-wraps\ 358}#
+ #{w\ 1941}#
+ (#{syntax-object-wrap\ 275}# #{x\ 1940}#))
+ (#{syntax-object-module\ 277}# #{x\ 1940}#))
+ (if (null? #{x\ 1940}#)
+ #{x\ 1940}#
+ (#{make-syntax-object\ 269}#
+ #{x\ 1940}#
+ #{w\ 1941}#
+ #{defmod\ 1942}#))))))
+ (#{bound-id-member?\ 374}#
+ (lambda (#{x\ 1955}# #{list\ 1956}#)
+ (if (not (null? #{list\ 1956}#))
+ (let ((#{t\ 1963}#
+ (#{bound-id=?\ 368}#
+ #{x\ 1955}#
+ (car #{list\ 1956}#))))
+ (if #{t\ 1963}#
+ #{t\ 1963}#
+ (#{bound-id-member?\ 374}#
+ #{x\ 1955}#
+ (cdr #{list\ 1956}#))))
#f)))
- (#{distinct-bound-ids?\ 12981}#
- (lambda (#{ids\ 14574}#)
- (letrec ((#{distinct?\ 14578}#
- (lambda (#{ids\ 14579}#)
- (let ((#{t\ 14582}# (null? #{ids\ 14579}#)))
- (if #{t\ 14582}#
- #{t\ 14582}#
- (if (not (#{bound-id-member?\ 12983}#
- (car #{ids\ 14579}#)
- (cdr #{ids\ 14579}#)))
- (#{distinct?\ 14578}# (cdr #{ids\ 14579}#))
+ (#{distinct-bound-ids?\ 372}#
+ (lambda (#{ids\ 1965}#)
+ (letrec ((#{distinct?\ 1969}#
+ (lambda (#{ids\ 1970}#)
+ (let ((#{t\ 1973}# (null? #{ids\ 1970}#)))
+ (if #{t\ 1973}#
+ #{t\ 1973}#
+ (if (not (#{bound-id-member?\ 374}#
+ (car #{ids\ 1970}#)
+ (cdr #{ids\ 1970}#)))
+ (#{distinct?\ 1969}# (cdr #{ids\ 1970}#))
#f))))))
- (#{distinct?\ 14578}# #{ids\ 14574}#))))
- (#{valid-bound-ids?\ 12979}#
- (lambda (#{ids\ 14586}#)
- (if (letrec ((#{all-ids?\ 14591}#
- (lambda (#{ids\ 14592}#)
- (let ((#{t\ 14595}# (null? #{ids\ 14592}#)))
- (if #{t\ 14595}#
- #{t\ 14595}#
- (if (#{id?\ 12916}# (car #{ids\ 14592}#))
- (#{all-ids?\ 14591}#
- (cdr #{ids\ 14592}#))
+ (#{distinct?\ 1969}# #{ids\ 1965}#))))
+ (#{valid-bound-ids?\ 370}#
+ (lambda (#{ids\ 1977}#)
+ (if (letrec ((#{all-ids?\ 1982}#
+ (lambda (#{ids\ 1983}#)
+ (let ((#{t\ 1986}# (null? #{ids\ 1983}#)))
+ (if #{t\ 1986}#
+ #{t\ 1986}#
+ (if (#{id?\ 307}# (car #{ids\ 1983}#))
+ (#{all-ids?\ 1982}# (cdr #{ids\ 1983}#))
#f))))))
- (#{all-ids?\ 14591}# #{ids\ 14586}#))
- (#{distinct-bound-ids?\ 12981}# #{ids\ 14586}#)
+ (#{all-ids?\ 1982}# #{ids\ 1977}#))
+ (#{distinct-bound-ids?\ 372}# #{ids\ 1977}#)
#f)))
- (#{bound-id=?\ 12977}#
- (lambda (#{i\ 14600}# #{j\ 14601}#)
- (if (if (#{syntax-object?\ 12880}# #{i\ 14600}#)
- (#{syntax-object?\ 12880}# #{j\ 14601}#)
+ (#{bound-id=?\ 368}#
+ (lambda (#{i\ 1991}# #{j\ 1992}#)
+ (if (if (#{syntax-object?\ 271}# #{i\ 1991}#)
+ (#{syntax-object?\ 271}# #{j\ 1992}#)
#f)
- (if (eq? (#{syntax-object-expression\ 12882}#
- #{i\ 14600}#)
- (#{syntax-object-expression\ 12882}#
- #{j\ 14601}#))
- (#{same-marks?\ 12971}#
- (#{wrap-marks\ 12923}#
- (#{syntax-object-wrap\ 12884}# #{i\ 14600}#))
- (#{wrap-marks\ 12923}#
- (#{syntax-object-wrap\ 12884}# #{j\ 14601}#)))
+ (if (eq? (#{syntax-object-expression\ 273}# #{i\ 1991}#)
+ (#{syntax-object-expression\ 273}# #{j\ 1992}#))
+ (#{same-marks?\ 362}#
+ (#{wrap-marks\ 314}#
+ (#{syntax-object-wrap\ 275}# #{i\ 1991}#))
+ (#{wrap-marks\ 314}#
+ (#{syntax-object-wrap\ 275}# #{j\ 1992}#)))
#f)
- (eq? #{i\ 14600}# #{j\ 14601}#))))
- (#{free-id=?\ 12975}#
- (lambda (#{i\ 14608}# #{j\ 14609}#)
- (if (eq? (let ((#{x\ 14615}# #{i\ 14608}#))
- (if (#{syntax-object?\ 12880}# #{x\ 14615}#)
- (#{syntax-object-expression\ 12882}#
- #{x\ 14615}#)
- #{x\ 14615}#))
- (let ((#{x\ 14618}# #{j\ 14609}#))
- (if (#{syntax-object?\ 12880}# #{x\ 14618}#)
- (#{syntax-object-expression\ 12882}#
- #{x\ 14618}#)
- #{x\ 14618}#)))
- (eq? (#{id-var-name\ 12973}#
- #{i\ 14608}#
- '(()))
- (#{id-var-name\ 12973}#
- #{j\ 14609}#
- '(())))
+ (eq? #{i\ 1991}# #{j\ 1992}#))))
+ (#{free-id=?\ 366}#
+ (lambda (#{i\ 1999}# #{j\ 2000}#)
+ (if (eq? (let ((#{x\ 2006}# #{i\ 1999}#))
+ (if (#{syntax-object?\ 271}# #{x\ 2006}#)
+ (#{syntax-object-expression\ 273}# #{x\ 2006}#)
+ #{x\ 2006}#))
+ (let ((#{x\ 2009}# #{j\ 2000}#))
+ (if (#{syntax-object?\ 271}# #{x\ 2009}#)
+ (#{syntax-object-expression\ 273}# #{x\ 2009}#)
+ #{x\ 2009}#)))
+ (eq? (#{id-var-name\ 364}# #{i\ 1999}# (quote (())))
+ (#{id-var-name\ 364}# #{j\ 2000}# (quote (()))))
#f)))
- (#{id-var-name\ 12973}#
- (lambda (#{id\ 14622}# #{w\ 14623}#)
- (letrec ((#{search-vector-rib\ 14632}#
- (lambda (#{sym\ 14644}#
- #{subst\ 14645}#
- #{marks\ 14646}#
- #{symnames\ 14647}#
- #{ribcage\ 14648}#)
- (let ((#{n\ 14655}#
- (vector-length #{symnames\ 14647}#)))
- (letrec ((#{f\ 14658}#
- (lambda (#{i\ 14659}#)
- (if (#{fx=\ 12821}#
- #{i\ 14659}#
- #{n\ 14655}#)
- (#{search\ 14628}#
- #{sym\ 14644}#
- (cdr #{subst\ 14645}#)
- #{marks\ 14646}#)
+ (#{id-var-name\ 364}#
+ (lambda (#{id\ 2013}# #{w\ 2014}#)
+ (letrec ((#{search-vector-rib\ 2023}#
+ (lambda (#{sym\ 2035}#
+ #{subst\ 2036}#
+ #{marks\ 2037}#
+ #{symnames\ 2038}#
+ #{ribcage\ 2039}#)
+ (let ((#{n\ 2046}#
+ (vector-length #{symnames\ 2038}#)))
+ (letrec ((#{f\ 2049}#
+ (lambda (#{i\ 2050}#)
+ (if (#{fx=\ 212}#
+ #{i\ 2050}#
+ #{n\ 2046}#)
+ (#{search\ 2019}#
+ #{sym\ 2035}#
+ (cdr #{subst\ 2036}#)
+ #{marks\ 2037}#)
(if (if (eq? (vector-ref
- #{symnames\ 14647}#
- #{i\ 14659}#)
- #{sym\ 14644}#)
- (#{same-marks?\ 12971}#
- #{marks\ 14646}#
+ #{symnames\ 2038}#
+ #{i\ 2050}#)
+ #{sym\ 2035}#)
+ (#{same-marks?\ 362}#
+ #{marks\ 2037}#
(vector-ref
- (#{ribcage-marks\
12943}#
- #{ribcage\ 14648}#)
- #{i\ 14659}#))
+ (#{ribcage-marks\ 334}#
+ #{ribcage\ 2039}#)
+ #{i\ 2050}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 12945}#
- #{ribcage\ 14648}#)
- #{i\ 14659}#)
- #{marks\ 14646}#)
- (#{f\ 14658}#
- (#{fx+\ 12817}#
- #{i\ 14659}#
+ (#{ribcage-labels\ 336}#
+ #{ribcage\ 2039}#)
+ #{i\ 2050}#)
+ #{marks\ 2037}#)
+ (#{f\ 2049}#
+ (#{fx+\ 208}#
+ #{i\ 2050}#
1)))))))
- (#{f\ 14658}# 0)))))
- (#{search-list-rib\ 14630}#
- (lambda (#{sym\ 14667}#
- #{subst\ 14668}#
- #{marks\ 14669}#
- #{symnames\ 14670}#
- #{ribcage\ 14671}#)
- (letrec ((#{f\ 14680}#
- (lambda (#{symnames\ 14681}#
- #{i\ 14682}#)
- (if (null? #{symnames\ 14681}#)
- (#{search\ 14628}#
- #{sym\ 14667}#
- (cdr #{subst\ 14668}#)
- #{marks\ 14669}#)
- (if (if (eq? (car #{symnames\
14681}#)
- #{sym\ 14667}#)
- (#{same-marks?\ 12971}#
- #{marks\ 14669}#
+ (#{f\ 2049}# 0)))))
+ (#{search-list-rib\ 2021}#
+ (lambda (#{sym\ 2058}#
+ #{subst\ 2059}#
+ #{marks\ 2060}#
+ #{symnames\ 2061}#
+ #{ribcage\ 2062}#)
+ (letrec ((#{f\ 2071}#
+ (lambda (#{symnames\ 2072}# #{i\ 2073}#)
+ (if (null? #{symnames\ 2072}#)
+ (#{search\ 2019}#
+ #{sym\ 2058}#
+ (cdr #{subst\ 2059}#)
+ #{marks\ 2060}#)
+ (if (if (eq? (car #{symnames\
2072}#)
+ #{sym\ 2058}#)
+ (#{same-marks?\ 362}#
+ #{marks\ 2060}#
(list-ref
- (#{ribcage-marks\ 12943}#
- #{ribcage\ 14671}#)
- #{i\ 14682}#))
+ (#{ribcage-marks\ 334}#
+ #{ribcage\ 2062}#)
+ #{i\ 2073}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 12945}#
- #{ribcage\ 14671}#)
- #{i\ 14682}#)
- #{marks\ 14669}#)
- (#{f\ 14680}#
- (cdr #{symnames\ 14681}#)
- (#{fx+\ 12817}#
- #{i\ 14682}#
+ (#{ribcage-labels\ 336}#
+ #{ribcage\ 2062}#)
+ #{i\ 2073}#)
+ #{marks\ 2060}#)
+ (#{f\ 2071}#
+ (cdr #{symnames\ 2072}#)
+ (#{fx+\ 208}#
+ #{i\ 2073}#
1)))))))
- (#{f\ 14680}# #{symnames\ 14670}# 0))))
- (#{search\ 14628}#
- (lambda (#{sym\ 14690}#
- #{subst\ 14691}#
- #{marks\ 14692}#)
- (if (null? #{subst\ 14691}#)
- (values #f #{marks\ 14692}#)
- (let ((#{fst\ 14697}# (car #{subst\ 14691}#)))
- (if (eq? #{fst\ 14697}# (quote shift))
- (#{search\ 14628}#
- #{sym\ 14690}#
- (cdr #{subst\ 14691}#)
- (cdr #{marks\ 14692}#))
- (let ((#{symnames\ 14699}#
- (#{ribcage-symnames\ 12941}#
- #{fst\ 14697}#)))
- (if (vector? #{symnames\ 14699}#)
- (#{search-vector-rib\ 14632}#
- #{sym\ 14690}#
- #{subst\ 14691}#
- #{marks\ 14692}#
- #{symnames\ 14699}#
- #{fst\ 14697}#)
- (#{search-list-rib\ 14630}#
- #{sym\ 14690}#
- #{subst\ 14691}#
- #{marks\ 14692}#
- #{symnames\ 14699}#
- #{fst\ 14697}#)))))))))
- (if (symbol? #{id\ 14622}#)
- (let ((#{t\ 14702}#
+ (#{f\ 2071}# #{symnames\ 2061}# 0))))
+ (#{search\ 2019}#
+ (lambda (#{sym\ 2081}#
+ #{subst\ 2082}#
+ #{marks\ 2083}#)
+ (if (null? #{subst\ 2082}#)
+ (values #f #{marks\ 2083}#)
+ (let ((#{fst\ 2088}# (car #{subst\ 2082}#)))
+ (if (eq? #{fst\ 2088}# (quote shift))
+ (#{search\ 2019}#
+ #{sym\ 2081}#
+ (cdr #{subst\ 2082}#)
+ (cdr #{marks\ 2083}#))
+ (let ((#{symnames\ 2090}#
+ (#{ribcage-symnames\ 332}#
+ #{fst\ 2088}#)))
+ (if (vector? #{symnames\ 2090}#)
+ (#{search-vector-rib\ 2023}#
+ #{sym\ 2081}#
+ #{subst\ 2082}#
+ #{marks\ 2083}#
+ #{symnames\ 2090}#
+ #{fst\ 2088}#)
+ (#{search-list-rib\ 2021}#
+ #{sym\ 2081}#
+ #{subst\ 2082}#
+ #{marks\ 2083}#
+ #{symnames\ 2090}#
+ #{fst\ 2088}#)))))))))
+ (if (symbol? #{id\ 2013}#)
+ (let ((#{t\ 2093}#
(call-with-values
(lambda ()
- (#{search\ 14628}#
- #{id\ 14622}#
- (#{wrap-subst\ 12925}# #{w\ 14623}#)
- (#{wrap-marks\ 12923}# #{w\ 14623}#)))
- (lambda (#{x\ 14704}# . #{ignore\ 14705}#)
- #{x\ 14704}#))))
- (if #{t\ 14702}# #{t\ 14702}# #{id\ 14622}#))
- (if (#{syntax-object?\ 12880}# #{id\ 14622}#)
- (let ((#{id\ 14713}#
- (#{syntax-object-expression\ 12882}#
- #{id\ 14622}#))
- (#{w1\ 14714}#
- (#{syntax-object-wrap\ 12884}# #{id\ 14622}#)))
- (let ((#{marks\ 14716}#
- (#{join-marks\ 12969}#
- (#{wrap-marks\ 12923}# #{w\ 14623}#)
- (#{wrap-marks\ 12923}# #{w1\ 14714}#))))
+ (#{search\ 2019}#
+ #{id\ 2013}#
+ (#{wrap-subst\ 316}# #{w\ 2014}#)
+ (#{wrap-marks\ 314}# #{w\ 2014}#)))
+ (lambda (#{x\ 2095}# . #{ignore\ 2096}#)
+ #{x\ 2095}#))))
+ (if #{t\ 2093}# #{t\ 2093}# #{id\ 2013}#))
+ (if (#{syntax-object?\ 271}# #{id\ 2013}#)
+ (let ((#{id\ 2104}#
+ (#{syntax-object-expression\ 273}# #{id\ 2013}#))
+ (#{w1\ 2105}#
+ (#{syntax-object-wrap\ 275}# #{id\ 2013}#)))
+ (let ((#{marks\ 2107}#
+ (#{join-marks\ 360}#
+ (#{wrap-marks\ 314}# #{w\ 2014}#)
+ (#{wrap-marks\ 314}# #{w1\ 2105}#))))
(call-with-values
(lambda ()
- (#{search\ 14628}#
- #{id\ 14713}#
- (#{wrap-subst\ 12925}# #{w\ 14623}#)
- #{marks\ 14716}#))
- (lambda (#{new-id\ 14717}# #{marks\ 14718}#)
- (let ((#{t\ 14723}# #{new-id\ 14717}#))
- (if #{t\ 14723}#
- #{t\ 14723}#
- (let ((#{t\ 14726}#
+ (#{search\ 2019}#
+ #{id\ 2104}#
+ (#{wrap-subst\ 316}# #{w\ 2014}#)
+ #{marks\ 2107}#))
+ (lambda (#{new-id\ 2108}# #{marks\ 2109}#)
+ (let ((#{t\ 2114}# #{new-id\ 2108}#))
+ (if #{t\ 2114}#
+ #{t\ 2114}#
+ (let ((#{t\ 2117}#
(call-with-values
(lambda ()
- (#{search\ 14628}#
- #{id\ 14713}#
- (#{wrap-subst\ 12925}#
- #{w1\ 14714}#)
- #{marks\ 14718}#))
- (lambda (#{x\ 14728}#
+ (#{search\ 2019}#
+ #{id\ 2104}#
+ (#{wrap-subst\ 316}#
+ #{w1\ 2105}#)
+ #{marks\ 2109}#))
+ (lambda (#{x\ 2119}#
.
- #{ignore\ 14729}#)
- #{x\ 14728}#))))
- (if #{t\ 14726}#
- #{t\ 14726}#
- #{id\ 14713}#))))))))
+ #{ignore\ 2120}#)
+ #{x\ 2119}#))))
+ (if #{t\ 2117}#
+ #{t\ 2117}#
+ #{id\ 2104}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 14622}#))))))
- (#{same-marks?\ 12971}#
- (lambda (#{x\ 14734}# #{y\ 14735}#)
- (let ((#{t\ 14740}# (eq? #{x\ 14734}# #{y\ 14735}#)))
- (if #{t\ 14740}#
- #{t\ 14740}#
- (if (not (null? #{x\ 14734}#))
- (if (not (null? #{y\ 14735}#))
- (if (eq? (car #{x\ 14734}#) (car #{y\ 14735}#))
- (#{same-marks?\ 12971}#
- (cdr #{x\ 14734}#)
- (cdr #{y\ 14735}#))
+ #{id\ 2013}#))))))
+ (#{same-marks?\ 362}#
+ (lambda (#{x\ 2125}# #{y\ 2126}#)
+ (let ((#{t\ 2131}# (eq? #{x\ 2125}# #{y\ 2126}#)))
+ (if #{t\ 2131}#
+ #{t\ 2131}#
+ (if (not (null? #{x\ 2125}#))
+ (if (not (null? #{y\ 2126}#))
+ (if (eq? (car #{x\ 2125}#) (car #{y\ 2126}#))
+ (#{same-marks?\ 362}#
+ (cdr #{x\ 2125}#)
+ (cdr #{y\ 2126}#))
#f)
#f)
#f)))))
- (#{join-marks\ 12969}#
- (lambda (#{m1\ 14746}# #{m2\ 14747}#)
- (#{smart-append\ 12965}#
- #{m1\ 14746}#
- #{m2\ 14747}#)))
- (#{join-wraps\ 12967}#
- (lambda (#{w1\ 14750}# #{w2\ 14751}#)
- (let ((#{m1\ 14756}#
- (#{wrap-marks\ 12923}# #{w1\ 14750}#))
- (#{s1\ 14757}#
- (#{wrap-subst\ 12925}# #{w1\ 14750}#)))
- (if (null? #{m1\ 14756}#)
- (if (null? #{s1\ 14757}#)
- #{w2\ 14751}#
- (#{make-wrap\ 12921}#
- (#{wrap-marks\ 12923}# #{w2\ 14751}#)
- (#{smart-append\ 12965}#
- #{s1\ 14757}#
- (#{wrap-subst\ 12925}# #{w2\ 14751}#))))
- (#{make-wrap\ 12921}#
- (#{smart-append\ 12965}#
- #{m1\ 14756}#
- (#{wrap-marks\ 12923}# #{w2\ 14751}#))
- (#{smart-append\ 12965}#
- #{s1\ 14757}#
- (#{wrap-subst\ 12925}# #{w2\ 14751}#)))))))
- (#{smart-append\ 12965}#
- (lambda (#{m1\ 14758}# #{m2\ 14759}#)
- (if (null? #{m2\ 14759}#)
- #{m1\ 14758}#
- (append #{m1\ 14758}# #{m2\ 14759}#))))
- (#{make-binding-wrap\ 12963}#
- (lambda (#{ids\ 14762}# #{labels\ 14763}# #{w\ 14764}#)
- (if (null? #{ids\ 14762}#)
- #{w\ 14764}#
- (#{make-wrap\ 12921}#
- (#{wrap-marks\ 12923}# #{w\ 14764}#)
- (cons (let ((#{labelvec\ 14769}#
- (list->vector #{labels\ 14763}#)))
- (let ((#{n\ 14771}#
- (vector-length #{labelvec\ 14769}#)))
- (let ((#{symnamevec\ 14774}#
- (make-vector #{n\ 14771}#))
- (#{marksvec\ 14775}#
- (make-vector #{n\ 14771}#)))
+ (#{join-marks\ 360}#
+ (lambda (#{m1\ 2137}# #{m2\ 2138}#)
+ (#{smart-append\ 356}# #{m1\ 2137}# #{m2\ 2138}#)))
+ (#{join-wraps\ 358}#
+ (lambda (#{w1\ 2141}# #{w2\ 2142}#)
+ (let ((#{m1\ 2147}# (#{wrap-marks\ 314}# #{w1\ 2141}#))
+ (#{s1\ 2148}# (#{wrap-subst\ 316}# #{w1\ 2141}#)))
+ (if (null? #{m1\ 2147}#)
+ (if (null? #{s1\ 2148}#)
+ #{w2\ 2142}#
+ (#{make-wrap\ 312}#
+ (#{wrap-marks\ 314}# #{w2\ 2142}#)
+ (#{smart-append\ 356}#
+ #{s1\ 2148}#
+ (#{wrap-subst\ 316}# #{w2\ 2142}#))))
+ (#{make-wrap\ 312}#
+ (#{smart-append\ 356}#
+ #{m1\ 2147}#
+ (#{wrap-marks\ 314}# #{w2\ 2142}#))
+ (#{smart-append\ 356}#
+ #{s1\ 2148}#
+ (#{wrap-subst\ 316}# #{w2\ 2142}#)))))))
+ (#{smart-append\ 356}#
+ (lambda (#{m1\ 2149}# #{m2\ 2150}#)
+ (if (null? #{m2\ 2150}#)
+ #{m1\ 2149}#
+ (append #{m1\ 2149}# #{m2\ 2150}#))))
+ (#{make-binding-wrap\ 354}#
+ (lambda (#{ids\ 2153}# #{labels\ 2154}# #{w\ 2155}#)
+ (if (null? #{ids\ 2153}#)
+ #{w\ 2155}#
+ (#{make-wrap\ 312}#
+ (#{wrap-marks\ 314}# #{w\ 2155}#)
+ (cons (let ((#{labelvec\ 2160}#
+ (list->vector #{labels\ 2154}#)))
+ (let ((#{n\ 2162}#
+ (vector-length #{labelvec\ 2160}#)))
+ (let ((#{symnamevec\ 2165}#
+ (make-vector #{n\ 2162}#))
+ (#{marksvec\ 2166}#
+ (make-vector #{n\ 2162}#)))
(begin
- (letrec ((#{f\ 14779}#
- (lambda (#{ids\ 14780}#
- #{i\ 14781}#)
- (if (not (null? #{ids\ 14780}#))
+ (letrec ((#{f\ 2170}#
+ (lambda (#{ids\ 2171}# #{i\ 2172}#)
+ (if (not (null? #{ids\ 2171}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\
12919}#
- (car #{ids\ 14780}#)
- #{w\ 14764}#))
- (lambda (#{symname\ 14782}#
- #{marks\ 14783}#)
+ (#{id-sym-name&marks\ 310}#
+ (car #{ids\ 2171}#)
+ #{w\ 2155}#))
+ (lambda (#{symname\ 2173}#
+ #{marks\ 2174}#)
(begin
(vector-set!
- #{symnamevec\ 14774}#
- #{i\ 14781}#
- #{symname\ 14782}#)
+ #{symnamevec\ 2165}#
+ #{i\ 2172}#
+ #{symname\ 2173}#)
(vector-set!
- #{marksvec\ 14775}#
- #{i\ 14781}#
- #{marks\ 14783}#)
- (#{f\ 14779}#
- (cdr #{ids\ 14780}#)
- (#{fx+\ 12817}#
- #{i\ 14781}#
+ #{marksvec\ 2166}#
+ #{i\ 2172}#
+ #{marks\ 2174}#)
+ (#{f\ 2170}#
+ (cdr #{ids\ 2171}#)
+ (#{fx+\ 208}#
+ #{i\ 2172}#
1)))))))))
- (#{f\ 14779}# #{ids\ 14762}# 0))
- (#{make-ribcage\ 12937}#
- #{symnamevec\ 14774}#
- #{marksvec\ 14775}#
- #{labelvec\ 14769}#)))))
- (#{wrap-subst\ 12925}# #{w\ 14764}#))))))
- (#{extend-ribcage!\ 12961}#
- (lambda (#{ribcage\ 14786}#
- #{id\ 14787}#
- #{label\ 14788}#)
+ (#{f\ 2170}# #{ids\ 2153}# 0))
+ (#{make-ribcage\ 328}#
+ #{symnamevec\ 2165}#
+ #{marksvec\ 2166}#
+ #{labelvec\ 2160}#)))))
+ (#{wrap-subst\ 316}# #{w\ 2155}#))))))
+ (#{extend-ribcage!\ 352}#
+ (lambda (#{ribcage\ 2177}# #{id\ 2178}# #{label\ 2179}#)
(begin
- (#{set-ribcage-symnames!\ 12947}#
- #{ribcage\ 14786}#
- (cons (#{syntax-object-expression\ 12882}#
- #{id\ 14787}#)
- (#{ribcage-symnames\ 12941}# #{ribcage\ 14786}#)))
- (#{set-ribcage-marks!\ 12949}#
- #{ribcage\ 14786}#
- (cons (#{wrap-marks\ 12923}#
- (#{syntax-object-wrap\ 12884}# #{id\ 14787}#))
- (#{ribcage-marks\ 12943}# #{ribcage\ 14786}#)))
- (#{set-ribcage-labels!\ 12951}#
- #{ribcage\ 14786}#
- (cons #{label\ 14788}#
- (#{ribcage-labels\ 12945}# #{ribcage\ 14786}#))))))
- (#{anti-mark\ 12957}#
- (lambda (#{w\ 14792}#)
- (#{make-wrap\ 12921}#
- (cons #f (#{wrap-marks\ 12923}# #{w\ 14792}#))
+ (#{set-ribcage-symnames!\ 338}#
+ #{ribcage\ 2177}#
+ (cons (#{syntax-object-expression\ 273}# #{id\ 2178}#)
+ (#{ribcage-symnames\ 332}# #{ribcage\ 2177}#)))
+ (#{set-ribcage-marks!\ 340}#
+ #{ribcage\ 2177}#
+ (cons (#{wrap-marks\ 314}#
+ (#{syntax-object-wrap\ 275}# #{id\ 2178}#))
+ (#{ribcage-marks\ 334}# #{ribcage\ 2177}#)))
+ (#{set-ribcage-labels!\ 342}#
+ #{ribcage\ 2177}#
+ (cons #{label\ 2179}#
+ (#{ribcage-labels\ 336}# #{ribcage\ 2177}#))))))
+ (#{anti-mark\ 348}#
+ (lambda (#{w\ 2183}#)
+ (#{make-wrap\ 312}#
+ (cons #f (#{wrap-marks\ 314}# #{w\ 2183}#))
(cons 'shift
- (#{wrap-subst\ 12925}# #{w\ 14792}#)))))
- (#{set-ribcage-labels!\ 12951}#
- (lambda (#{x\ 14795}# #{update\ 14796}#)
- (vector-set! #{x\ 14795}# 3 #{update\ 14796}#)))
- (#{set-ribcage-marks!\ 12949}#
- (lambda (#{x\ 14799}# #{update\ 14800}#)
- (vector-set! #{x\ 14799}# 2 #{update\ 14800}#)))
- (#{set-ribcage-symnames!\ 12947}#
- (lambda (#{x\ 14803}# #{update\ 14804}#)
- (vector-set! #{x\ 14803}# 1 #{update\ 14804}#)))
- (#{ribcage-labels\ 12945}#
- (lambda (#{x\ 14807}#)
- (vector-ref #{x\ 14807}# 3)))
- (#{ribcage-marks\ 12943}#
- (lambda (#{x\ 14809}#)
- (vector-ref #{x\ 14809}# 2)))
- (#{ribcage-symnames\ 12941}#
- (lambda (#{x\ 14811}#)
- (vector-ref #{x\ 14811}# 1)))
- (#{ribcage?\ 12939}#
- (lambda (#{x\ 14813}#)
- (if (vector? #{x\ 14813}#)
- (if (= (vector-length #{x\ 14813}#) 4)
- (eq? (vector-ref #{x\ 14813}# 0) (quote ribcage))
+ (#{wrap-subst\ 316}# #{w\ 2183}#)))))
+ (#{set-ribcage-labels!\ 342}#
+ (lambda (#{x\ 2186}# #{update\ 2187}#)
+ (vector-set! #{x\ 2186}# 3 #{update\ 2187}#)))
+ (#{set-ribcage-marks!\ 340}#
+ (lambda (#{x\ 2190}# #{update\ 2191}#)
+ (vector-set! #{x\ 2190}# 2 #{update\ 2191}#)))
+ (#{set-ribcage-symnames!\ 338}#
+ (lambda (#{x\ 2194}# #{update\ 2195}#)
+ (vector-set! #{x\ 2194}# 1 #{update\ 2195}#)))
+ (#{ribcage-labels\ 336}#
+ (lambda (#{x\ 2198}#) (vector-ref #{x\ 2198}# 3)))
+ (#{ribcage-marks\ 334}#
+ (lambda (#{x\ 2200}#) (vector-ref #{x\ 2200}# 2)))
+ (#{ribcage-symnames\ 332}#
+ (lambda (#{x\ 2202}#) (vector-ref #{x\ 2202}# 1)))
+ (#{ribcage?\ 330}#
+ (lambda (#{x\ 2204}#)
+ (if (vector? #{x\ 2204}#)
+ (if (= (vector-length #{x\ 2204}#) 4)
+ (eq? (vector-ref #{x\ 2204}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 12937}#
- (lambda (#{symnames\ 14818}#
- #{marks\ 14819}#
- #{labels\ 14820}#)
+ (#{make-ribcage\ 328}#
+ (lambda (#{symnames\ 2209}#
+ #{marks\ 2210}#
+ #{labels\ 2211}#)
(vector
'ribcage
- #{symnames\ 14818}#
- #{marks\ 14819}#
- #{labels\ 14820}#)))
- (#{gen-labels\ 12934}#
- (lambda (#{ls\ 14824}#)
- (if (null? #{ls\ 14824}#)
+ #{symnames\ 2209}#
+ #{marks\ 2210}#
+ #{labels\ 2211}#)))
+ (#{gen-labels\ 325}#
+ (lambda (#{ls\ 2215}#)
+ (if (null? #{ls\ 2215}#)
'()
- (cons (#{gen-label\ 12932}#)
- (#{gen-labels\ 12934}# (cdr #{ls\ 14824}#))))))
- (#{gen-label\ 12932}#
+ (cons (#{gen-label\ 323}#)
+ (#{gen-labels\ 325}# (cdr #{ls\ 2215}#))))))
+ (#{gen-label\ 323}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 12925}# cdr)
- (#{wrap-marks\ 12923}# car)
- (#{make-wrap\ 12921}# cons)
- (#{id-sym-name&marks\ 12919}#
- (lambda (#{x\ 14826}# #{w\ 14827}#)
- (if (#{syntax-object?\ 12880}# #{x\ 14826}#)
+ (#{wrap-subst\ 316}# cdr)
+ (#{wrap-marks\ 314}# car)
+ (#{make-wrap\ 312}# cons)
+ (#{id-sym-name&marks\ 310}#
+ (lambda (#{x\ 2217}# #{w\ 2218}#)
+ (if (#{syntax-object?\ 271}# #{x\ 2217}#)
(values
- (#{syntax-object-expression\ 12882}#
- #{x\ 14826}#)
- (#{join-marks\ 12969}#
- (#{wrap-marks\ 12923}# #{w\ 14827}#)
- (#{wrap-marks\ 12923}#
- (#{syntax-object-wrap\ 12884}# #{x\ 14826}#))))
+ (#{syntax-object-expression\ 273}# #{x\ 2217}#)
+ (#{join-marks\ 360}#
+ (#{wrap-marks\ 314}# #{w\ 2218}#)
+ (#{wrap-marks\ 314}#
+ (#{syntax-object-wrap\ 275}# #{x\ 2217}#))))
(values
- #{x\ 14826}#
- (#{wrap-marks\ 12923}# #{w\ 14827}#)))))
- (#{id?\ 12916}#
- (lambda (#{x\ 14830}#)
- (if (symbol? #{x\ 14830}#)
+ #{x\ 2217}#
+ (#{wrap-marks\ 314}# #{w\ 2218}#)))))
+ (#{id?\ 307}#
+ (lambda (#{x\ 2221}#)
+ (if (symbol? #{x\ 2221}#)
#t
- (if (#{syntax-object?\ 12880}# #{x\ 14830}#)
+ (if (#{syntax-object?\ 271}# #{x\ 2221}#)
(symbol?
- (#{syntax-object-expression\ 12882}#
- #{x\ 14830}#))
+ (#{syntax-object-expression\ 273}# #{x\ 2221}#))
#f))))
- (#{nonsymbol-id?\ 12914}#
- (lambda (#{x\ 14837}#)
- (if (#{syntax-object?\ 12880}# #{x\ 14837}#)
+ (#{nonsymbol-id?\ 305}#
+ (lambda (#{x\ 2228}#)
+ (if (#{syntax-object?\ 271}# #{x\ 2228}#)
(symbol?
- (#{syntax-object-expression\ 12882}#
- #{x\ 14837}#))
+ (#{syntax-object-expression\ 273}# #{x\ 2228}#))
#f)))
- (#{global-extend\ 12912}#
- (lambda (#{type\ 14841}# #{sym\ 14842}# #{val\ 14843}#)
- (#{put-global-definition-hook\ 12830}#
- #{sym\ 14842}#
- #{type\ 14841}#
- #{val\ 14843}#)))
- (#{lookup\ 12910}#
- (lambda (#{x\ 14847}# #{r\ 14848}# #{mod\ 14849}#)
- (let ((#{t\ 14855}# (assq #{x\ 14847}# #{r\ 14848}#)))
- (if #{t\ 14855}#
- (cdr #{t\ 14855}#)
- (if (symbol? #{x\ 14847}#)
- (let ((#{t\ 14861}#
- (#{get-global-definition-hook\ 12832}#
- #{x\ 14847}#
- #{mod\ 14849}#)))
- (if #{t\ 14861}# #{t\ 14861}# (quote (global))))
+ (#{global-extend\ 303}#
+ (lambda (#{type\ 2232}# #{sym\ 2233}# #{val\ 2234}#)
+ (#{put-global-definition-hook\ 221}#
+ #{sym\ 2233}#
+ #{type\ 2232}#
+ #{val\ 2234}#)))
+ (#{lookup\ 301}#
+ (lambda (#{x\ 2238}# #{r\ 2239}# #{mod\ 2240}#)
+ (let ((#{t\ 2246}# (assq #{x\ 2238}# #{r\ 2239}#)))
+ (if #{t\ 2246}#
+ (cdr #{t\ 2246}#)
+ (if (symbol? #{x\ 2238}#)
+ (let ((#{t\ 2252}#
+ (#{get-global-definition-hook\ 223}#
+ #{x\ 2238}#
+ #{mod\ 2240}#)))
+ (if #{t\ 2252}# #{t\ 2252}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 12908}#
- (lambda (#{r\ 14866}#)
- (if (null? #{r\ 14866}#)
+ (#{macros-only-env\ 299}#
+ (lambda (#{r\ 2257}#)
+ (if (null? #{r\ 2257}#)
'()
- (let ((#{a\ 14869}# (car #{r\ 14866}#)))
- (if (eq? (cadr #{a\ 14869}#) (quote macro))
- (cons #{a\ 14869}#
- (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#)))
- (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#)))))))
- (#{extend-var-env\ 12906}#
- (lambda (#{labels\ 14870}# #{vars\ 14871}# #{r\ 14872}#)
- (if (null? #{labels\ 14870}#)
- #{r\ 14872}#
- (#{extend-var-env\ 12906}#
- (cdr #{labels\ 14870}#)
- (cdr #{vars\ 14871}#)
- (cons (cons (car #{labels\ 14870}#)
- (cons (quote lexical) (car #{vars\ 14871}#)))
- #{r\ 14872}#)))))
- (#{extend-env\ 12904}#
- (lambda (#{labels\ 14877}#
- #{bindings\ 14878}#
- #{r\ 14879}#)
- (if (null? #{labels\ 14877}#)
- #{r\ 14879}#
- (#{extend-env\ 12904}#
- (cdr #{labels\ 14877}#)
- (cdr #{bindings\ 14878}#)
- (cons (cons (car #{labels\ 14877}#)
- (car #{bindings\ 14878}#))
- #{r\ 14879}#)))))
- (#{binding-value\ 12901}# cdr)
- (#{binding-type\ 12899}# car)
- (#{source-annotation\ 12895}#
- (lambda (#{x\ 14883}#)
- (if (#{syntax-object?\ 12880}# #{x\ 14883}#)
- (#{source-annotation\ 12895}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 14883}#))
- (if (pair? #{x\ 14883}#)
- (let ((#{props\ 14890}#
- (source-properties #{x\ 14883}#)))
- (if (pair? #{props\ 14890}#) #{props\ 14890}# #f))
+ (let ((#{a\ 2260}# (car #{r\ 2257}#)))
+ (if (eq? (cadr #{a\ 2260}#) (quote macro))
+ (cons #{a\ 2260}#
+ (#{macros-only-env\ 299}# (cdr #{r\ 2257}#)))
+ (#{macros-only-env\ 299}# (cdr #{r\ 2257}#)))))))
+ (#{extend-var-env\ 297}#
+ (lambda (#{labels\ 2261}# #{vars\ 2262}# #{r\ 2263}#)
+ (if (null? #{labels\ 2261}#)
+ #{r\ 2263}#
+ (#{extend-var-env\ 297}#
+ (cdr #{labels\ 2261}#)
+ (cdr #{vars\ 2262}#)
+ (cons (cons (car #{labels\ 2261}#)
+ (cons (quote lexical) (car #{vars\ 2262}#)))
+ #{r\ 2263}#)))))
+ (#{extend-env\ 295}#
+ (lambda (#{labels\ 2268}# #{bindings\ 2269}# #{r\ 2270}#)
+ (if (null? #{labels\ 2268}#)
+ #{r\ 2270}#
+ (#{extend-env\ 295}#
+ (cdr #{labels\ 2268}#)
+ (cdr #{bindings\ 2269}#)
+ (cons (cons (car #{labels\ 2268}#)
+ (car #{bindings\ 2269}#))
+ #{r\ 2270}#)))))
+ (#{binding-value\ 292}# cdr)
+ (#{binding-type\ 290}# car)
+ (#{source-annotation\ 286}#
+ (lambda (#{x\ 2274}#)
+ (if (#{syntax-object?\ 271}# #{x\ 2274}#)
+ (#{source-annotation\ 286}#
+ (#{syntax-object-expression\ 273}# #{x\ 2274}#))
+ (if (pair? #{x\ 2274}#)
+ (let ((#{props\ 2281}# (source-properties #{x\ 2274}#)))
+ (if (pair? #{props\ 2281}#) #{props\ 2281}# #f))
#f))))
- (#{set-syntax-object-module!\ 12892}#
- (lambda (#{x\ 14892}# #{update\ 14893}#)
- (vector-set! #{x\ 14892}# 3 #{update\ 14893}#)))
- (#{set-syntax-object-wrap!\ 12890}#
- (lambda (#{x\ 14896}# #{update\ 14897}#)
- (vector-set! #{x\ 14896}# 2 #{update\ 14897}#)))
- (#{set-syntax-object-expression!\ 12888}#
- (lambda (#{x\ 14900}# #{update\ 14901}#)
- (vector-set! #{x\ 14900}# 1 #{update\ 14901}#)))
- (#{syntax-object-module\ 12886}#
- (lambda (#{x\ 14904}#)
- (vector-ref #{x\ 14904}# 3)))
- (#{syntax-object-wrap\ 12884}#
- (lambda (#{x\ 14906}#)
- (vector-ref #{x\ 14906}# 2)))
- (#{syntax-object-expression\ 12882}#
- (lambda (#{x\ 14908}#)
- (vector-ref #{x\ 14908}# 1)))
- (#{syntax-object?\ 12880}#
- (lambda (#{x\ 14910}#)
- (if (vector? #{x\ 14910}#)
- (if (= (vector-length #{x\ 14910}#) 4)
- (eq? (vector-ref #{x\ 14910}# 0)
+ (#{set-syntax-object-module!\ 283}#
+ (lambda (#{x\ 2283}# #{update\ 2284}#)
+ (vector-set! #{x\ 2283}# 3 #{update\ 2284}#)))
+ (#{set-syntax-object-wrap!\ 281}#
+ (lambda (#{x\ 2287}# #{update\ 2288}#)
+ (vector-set! #{x\ 2287}# 2 #{update\ 2288}#)))
+ (#{set-syntax-object-expression!\ 279}#
+ (lambda (#{x\ 2291}# #{update\ 2292}#)
+ (vector-set! #{x\ 2291}# 1 #{update\ 2292}#)))
+ (#{syntax-object-module\ 277}#
+ (lambda (#{x\ 2295}#) (vector-ref #{x\ 2295}# 3)))
+ (#{syntax-object-wrap\ 275}#
+ (lambda (#{x\ 2297}#) (vector-ref #{x\ 2297}# 2)))
+ (#{syntax-object-expression\ 273}#
+ (lambda (#{x\ 2299}#) (vector-ref #{x\ 2299}# 1)))
+ (#{syntax-object?\ 271}#
+ (lambda (#{x\ 2301}#)
+ (if (vector? #{x\ 2301}#)
+ (if (= (vector-length #{x\ 2301}#) 4)
+ (eq? (vector-ref #{x\ 2301}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 12878}#
- (lambda (#{expression\ 14915}#
- #{wrap\ 14916}#
- #{module\ 14917}#)
+ (#{make-syntax-object\ 269}#
+ (lambda (#{expression\ 2306}#
+ #{wrap\ 2307}#
+ #{module\ 2308}#)
(vector
'syntax-object
- #{expression\ 14915}#
- #{wrap\ 14916}#
- #{module\ 14917}#)))
- (#{build-letrec\ 12874}#
- (lambda (#{src\ 14921}#
- #{ids\ 14922}#
- #{vars\ 14923}#
- #{val-exps\ 14924}#
- #{body-exp\ 14925}#)
- (if (null? #{vars\ 14923}#)
- #{body-exp\ 14925}#
- (#{make-letrec\ 12813}#
- #{src\ 14921}#
- #{ids\ 14922}#
- #{vars\ 14923}#
- #{val-exps\ 14924}#
- #{body-exp\ 14925}#))))
- (#{build-named-let\ 12872}#
- (lambda (#{src\ 14931}#
- #{ids\ 14932}#
- #{vars\ 14933}#
- #{val-exps\ 14934}#
- #{body-exp\ 14935}#)
- (let ((#{f\ 14945}# (car #{vars\ 14933}#))
- (#{f-name\ 14946}# (car #{ids\ 14932}#))
- (#{vars\ 14947}# (cdr #{vars\ 14933}#))
- (#{ids\ 14948}# (cdr #{ids\ 14932}#)))
- (let ((#{proc\ 14950}#
- (#{build-simple-lambda\ 12858}#
- #{src\ 14931}#
- #{ids\ 14948}#
+ #{expression\ 2306}#
+ #{wrap\ 2307}#
+ #{module\ 2308}#)))
+ (#{build-letrec\ 265}#
+ (lambda (#{src\ 2312}#
+ #{ids\ 2313}#
+ #{vars\ 2314}#
+ #{val-exps\ 2315}#
+ #{body-exp\ 2316}#)
+ (if (null? #{vars\ 2314}#)
+ #{body-exp\ 2316}#
+ (#{make-letrec\ 204}#
+ #{src\ 2312}#
+ #{ids\ 2313}#
+ #{vars\ 2314}#
+ #{val-exps\ 2315}#
+ #{body-exp\ 2316}#))))
+ (#{build-named-let\ 263}#
+ (lambda (#{src\ 2322}#
+ #{ids\ 2323}#
+ #{vars\ 2324}#
+ #{val-exps\ 2325}#
+ #{body-exp\ 2326}#)
+ (let ((#{f\ 2336}# (car #{vars\ 2324}#))
+ (#{f-name\ 2337}# (car #{ids\ 2323}#))
+ (#{vars\ 2338}# (cdr #{vars\ 2324}#))
+ (#{ids\ 2339}# (cdr #{ids\ 2323}#)))
+ (let ((#{proc\ 2341}#
+ (#{build-simple-lambda\ 249}#
+ #{src\ 2322}#
+ #{ids\ 2339}#
#f
- #{vars\ 14947}#
+ #{vars\ 2338}#
'()
- #{body-exp\ 14935}#)))
- (#{make-letrec\ 12813}#
- #{src\ 14931}#
- (list #{f-name\ 14946}#)
- (list #{f\ 14945}#)
- (list #{proc\ 14950}#)
- (#{build-application\ 12838}#
- #{src\ 14931}#
- (#{build-lexical-reference\ 12844}#
+ #{body-exp\ 2326}#)))
+ (#{make-letrec\ 204}#
+ #{src\ 2322}#
+ (list #{f-name\ 2337}#)
+ (list #{f\ 2336}#)
+ (list #{proc\ 2341}#)
+ (#{build-application\ 229}#
+ #{src\ 2322}#
+ (#{build-lexical-reference\ 235}#
'fun
- #{src\ 14931}#
- #{f-name\ 14946}#
- #{f\ 14945}#)
- #{val-exps\ 14934}#))))))
- (#{build-let\ 12870}#
- (lambda (#{src\ 14951}#
- #{ids\ 14952}#
- #{vars\ 14953}#
- #{val-exps\ 14954}#
- #{body-exp\ 14955}#)
- (if (null? #{vars\ 14953}#)
- #{body-exp\ 14955}#
- (#{make-let\ 12811}#
- #{src\ 14951}#
- #{ids\ 14952}#
- #{vars\ 14953}#
- #{val-exps\ 14954}#
- #{body-exp\ 14955}#))))
- (#{build-sequence\ 12868}#
- (lambda (#{src\ 14961}# #{exps\ 14962}#)
- (if (null? (cdr #{exps\ 14962}#))
- (car #{exps\ 14962}#)
- (#{make-sequence\ 12805}#
- #{src\ 14961}#
- #{exps\ 14962}#))))
- (#{build-data\ 12866}#
- (lambda (#{src\ 14965}# #{exp\ 14966}#)
- (#{make-const\ 12783}#
- #{src\ 14965}#
- #{exp\ 14966}#)))
- (#{build-primref\ 12864}#
- (lambda (#{src\ 14969}# #{name\ 14970}#)
+ #{src\ 2322}#
+ #{f-name\ 2337}#
+ #{f\ 2336}#)
+ #{val-exps\ 2325}#))))))
+ (#{build-let\ 261}#
+ (lambda (#{src\ 2342}#
+ #{ids\ 2343}#
+ #{vars\ 2344}#
+ #{val-exps\ 2345}#
+ #{body-exp\ 2346}#)
+ (if (null? #{vars\ 2344}#)
+ #{body-exp\ 2346}#
+ (#{make-let\ 202}#
+ #{src\ 2342}#
+ #{ids\ 2343}#
+ #{vars\ 2344}#
+ #{val-exps\ 2345}#
+ #{body-exp\ 2346}#))))
+ (#{build-sequence\ 259}#
+ (lambda (#{src\ 2352}# #{exps\ 2353}#)
+ (if (null? (cdr #{exps\ 2353}#))
+ (car #{exps\ 2353}#)
+ (#{make-sequence\ 196}#
+ #{src\ 2352}#
+ #{exps\ 2353}#))))
+ (#{build-data\ 257}#
+ (lambda (#{src\ 2356}# #{exp\ 2357}#)
+ (#{make-const\ 174}# #{src\ 2356}# #{exp\ 2357}#)))
+ (#{build-primref\ 255}#
+ (lambda (#{src\ 2360}# #{name\ 2361}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 12795}#
- #{src\ 14969}#
- #{name\ 14970}#)
- (#{make-module-ref\ 12791}#
- #{src\ 14969}#
+ (#{make-toplevel-ref\ 186}#
+ #{src\ 2360}#
+ #{name\ 2361}#)
+ (#{make-module-ref\ 182}#
+ #{src\ 2360}#
'(guile)
- #{name\ 14970}#
+ #{name\ 2361}#
#f))))
- (#{build-lambda-case\ 12862}#
- (lambda (#{src\ 14973}#
- #{req\ 14974}#
- #{opt\ 14975}#
- #{rest\ 14976}#
- #{kw\ 14977}#
- #{inits\ 14978}#
- #{vars\ 14979}#
- #{body\ 14980}#
- #{else-case\ 14981}#)
- (let ((#{atom-key\ 14993}#
- (fluid-ref #{*mode*\ 12778}#)))
- (if (memv #{atom-key\ 14993}# (quote (c)))
- (#{make-lambda-case\ 12809}#
- #{src\ 14973}#
- #{req\ 14974}#
- #{opt\ 14975}#
- #{rest\ 14976}#
- #{kw\ 14977}#
- #{inits\ 14978}#
- #{vars\ 14979}#
- #{body\ 14980}#
- #{else-case\ 14981}#)
- (let ((#{nreq\ 14998}# (length #{req\ 14974}#)))
- (let ((#{nopt\ 15000}#
- (if #{opt\ 14975}# (length #{opt\ 14975}#) 0)))
- (let ((#{rest-idx\ 15002}#
- (if #{rest\ 14976}#
- (+ #{nreq\ 14998}# #{nopt\ 15000}#)
- #f)))
- (let ((#{allow-other-keys?\ 15006}#
- (if #{kw\ 14977}# (car #{kw\ 14977}#) #f)))
- (let ((#{kw-indices\ 15008}#
- (map (lambda (#{x\ 15009}#)
- (cons (car #{x\ 15009}#)
- (list-index
- #{vars\ 14979}#
- (caddr #{x\ 15009}#))))
- (if #{kw\ 14977}#
- (cdr #{kw\ 14977}#)
- '()))))
- (let ((#{nargs\ 15012}#
- (apply max
- (+ #{nreq\ 14998}#
- #{nopt\ 15000}#
- (if #{rest\ 14976}# 1 0))
- (map 1+
- (map cdr
- #{kw-indices\
15008}#)))))
- (begin
- (let ((#{t\ 15015}#
- (= #{nargs\ 15012}#
- (length #{vars\ 14979}#)
- (+ #{nreq\ 14998}#
- (length #{inits\ 14978}#)
- (if #{rest\ 14976}# 1 0)))))
- (if #{t\ 15015}#
- #{t\ 15015}#
- (error "something went wrong"
- #{req\ 14974}#
- #{opt\ 14975}#
- #{rest\ 14976}#
- #{kw\ 14977}#
- #{inits\ 14978}#
- #{vars\ 14979}#
- #{nreq\ 14998}#
- #{nopt\ 15000}#
- #{kw-indices\ 15008}#
- #{nargs\ 15012}#)))
- (#{make-lambda-case\ 12809}#
- #{src\ 14973}#
- #{req\ 14974}#
- #{opt\ 14975}#
- #{rest\ 14976}#
- (if #{kw\ 14977}#
- (cons #{allow-other-keys?\ 15006}#
- #{kw-indices\ 15008}#)
- #f)
- #{inits\ 14978}#
- #{vars\ 14979}#
- #{body\ 14980}#
- #{else-case\ 14981}#))))))))))))
- (#{build-case-lambda\ 12860}#
- (lambda (#{src\ 15019}# #{meta\ 15020}# #{body\ 15021}#)
- (#{make-lambda\ 12807}#
- #{src\ 15019}#
- #{meta\ 15020}#
- #{body\ 15021}#)))
- (#{build-simple-lambda\ 12858}#
- (lambda (#{src\ 15025}#
- #{req\ 15026}#
- #{rest\ 15027}#
- #{vars\ 15028}#
- #{meta\ 15029}#
- #{exp\ 15030}#)
- (#{make-lambda\ 12807}#
- #{src\ 15025}#
- #{meta\ 15029}#
- (#{make-lambda-case\ 12809}#
- #{src\ 15025}#
- #{req\ 15026}#
+ (#{build-lambda-case\ 253}#
+ (lambda (#{src\ 2364}#
+ #{req\ 2365}#
+ #{opt\ 2366}#
+ #{rest\ 2367}#
+ #{kw\ 2368}#
+ #{inits\ 2369}#
+ #{vars\ 2370}#
+ #{body\ 2371}#
+ #{else-case\ 2372}#)
+ (#{make-lambda-case\ 200}#
+ #{src\ 2364}#
+ #{req\ 2365}#
+ #{opt\ 2366}#
+ #{rest\ 2367}#
+ #{kw\ 2368}#
+ #{inits\ 2369}#
+ #{vars\ 2370}#
+ #{body\ 2371}#
+ #{else-case\ 2372}#)))
+ (#{build-case-lambda\ 251}#
+ (lambda (#{src\ 2382}# #{meta\ 2383}# #{body\ 2384}#)
+ (#{make-lambda\ 198}#
+ #{src\ 2382}#
+ #{meta\ 2383}#
+ #{body\ 2384}#)))
+ (#{build-simple-lambda\ 249}#
+ (lambda (#{src\ 2388}#
+ #{req\ 2389}#
+ #{rest\ 2390}#
+ #{vars\ 2391}#
+ #{meta\ 2392}#
+ #{exp\ 2393}#)
+ (#{make-lambda\ 198}#
+ #{src\ 2388}#
+ #{meta\ 2392}#
+ (#{make-lambda-case\ 200}#
+ #{src\ 2388}#
+ #{req\ 2389}#
#f
- #{rest\ 15027}#
+ #{rest\ 2390}#
#f
'()
- #{vars\ 15028}#
- #{exp\ 15030}#
+ #{vars\ 2391}#
+ #{exp\ 2393}#
#f))))
- (#{build-global-definition\ 12856}#
- (lambda (#{source\ 15037}# #{var\ 15038}# #{exp\ 15039}#)
- (#{make-toplevel-define\ 12799}#
- #{source\ 15037}#
- #{var\ 15038}#
- #{exp\ 15039}#)))
- (#{maybe-name-value!\ 12854}#
- (lambda (#{name\ 15043}# #{val\ 15044}#)
- (if ((@ (language tree-il) lambda?) #{val\ 15044}#)
- (let ((#{meta\ 15050}#
+ (#{build-global-definition\ 247}#
+ (lambda (#{source\ 2400}# #{var\ 2401}# #{exp\ 2402}#)
+ (#{make-toplevel-define\ 190}#
+ #{source\ 2400}#
+ #{var\ 2401}#
+ #{exp\ 2402}#)))
+ (#{maybe-name-value!\ 245}#
+ (lambda (#{name\ 2406}# #{val\ 2407}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 2407}#)
+ (let ((#{meta\ 2413}#
((@ (language tree-il) lambda-meta)
- #{val\ 15044}#)))
- (if (not (assq (quote name) #{meta\ 15050}#))
+ #{val\ 2407}#)))
+ (if (not (assq (quote name) #{meta\ 2413}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 15044}#
+ #{val\ 2407}#
(acons 'name
- #{name\ 15043}#
- #{meta\ 15050}#)))))))
- (#{build-global-assignment\ 12852}#
- (lambda (#{source\ 15051}#
- #{var\ 15052}#
- #{exp\ 15053}#
- #{mod\ 15054}#)
- (#{analyze-variable\ 12848}#
- #{mod\ 15054}#
- #{var\ 15052}#
- (lambda (#{mod\ 15059}#
- #{var\ 15060}#
- #{public?\ 15061}#)
- (#{make-module-set\ 12793}#
- #{source\ 15051}#
- #{mod\ 15059}#
- #{var\ 15060}#
- #{public?\ 15061}#
- #{exp\ 15053}#))
- (lambda (#{var\ 15065}#)
- (#{make-toplevel-set\ 12797}#
- #{source\ 15051}#
- #{var\ 15065}#
- #{exp\ 15053}#)))))
- (#{build-global-reference\ 12850}#
- (lambda (#{source\ 15067}# #{var\ 15068}# #{mod\ 15069}#)
- (#{analyze-variable\ 12848}#
- #{mod\ 15069}#
- #{var\ 15068}#
- (lambda (#{mod\ 15073}#
- #{var\ 15074}#
- #{public?\ 15075}#)
- (#{make-module-ref\ 12791}#
- #{source\ 15067}#
- #{mod\ 15073}#
- #{var\ 15074}#
- #{public?\ 15075}#))
- (lambda (#{var\ 15079}#)
- (#{make-toplevel-ref\ 12795}#
- #{source\ 15067}#
- #{var\ 15079}#)))))
- (#{analyze-variable\ 12848}#
- (lambda (#{mod\ 15081}#
- #{var\ 15082}#
- #{modref-cont\ 15083}#
- #{bare-cont\ 15084}#)
- (if (not #{mod\ 15081}#)
- (#{bare-cont\ 15084}# #{var\ 15082}#)
- (let ((#{kind\ 15091}# (car #{mod\ 15081}#))
- (#{mod\ 15092}# (cdr #{mod\ 15081}#)))
- (if (memv #{kind\ 15091}# (quote (public)))
- (#{modref-cont\ 15083}#
- #{mod\ 15092}#
- #{var\ 15082}#
+ #{name\ 2406}#
+ #{meta\ 2413}#)))))))
+ (#{build-global-assignment\ 243}#
+ (lambda (#{source\ 2414}#
+ #{var\ 2415}#
+ #{exp\ 2416}#
+ #{mod\ 2417}#)
+ (#{analyze-variable\ 239}#
+ #{mod\ 2417}#
+ #{var\ 2415}#
+ (lambda (#{mod\ 2422}# #{var\ 2423}# #{public?\ 2424}#)
+ (#{make-module-set\ 184}#
+ #{source\ 2414}#
+ #{mod\ 2422}#
+ #{var\ 2423}#
+ #{public?\ 2424}#
+ #{exp\ 2416}#))
+ (lambda (#{var\ 2428}#)
+ (#{make-toplevel-set\ 188}#
+ #{source\ 2414}#
+ #{var\ 2428}#
+ #{exp\ 2416}#)))))
+ (#{build-global-reference\ 241}#
+ (lambda (#{source\ 2430}# #{var\ 2431}# #{mod\ 2432}#)
+ (#{analyze-variable\ 239}#
+ #{mod\ 2432}#
+ #{var\ 2431}#
+ (lambda (#{mod\ 2436}# #{var\ 2437}# #{public?\ 2438}#)
+ (#{make-module-ref\ 182}#
+ #{source\ 2430}#
+ #{mod\ 2436}#
+ #{var\ 2437}#
+ #{public?\ 2438}#))
+ (lambda (#{var\ 2442}#)
+ (#{make-toplevel-ref\ 186}#
+ #{source\ 2430}#
+ #{var\ 2442}#)))))
+ (#{analyze-variable\ 239}#
+ (lambda (#{mod\ 2444}#
+ #{var\ 2445}#
+ #{modref-cont\ 2446}#
+ #{bare-cont\ 2447}#)
+ (if (not #{mod\ 2444}#)
+ (#{bare-cont\ 2447}# #{var\ 2445}#)
+ (let ((#{kind\ 2454}# (car #{mod\ 2444}#))
+ (#{mod\ 2455}# (cdr #{mod\ 2444}#)))
+ (if (memv #{kind\ 2454}# (quote (public)))
+ (#{modref-cont\ 2446}#
+ #{mod\ 2455}#
+ #{var\ 2445}#
#t)
- (if (memv #{kind\ 15091}# (quote (private)))
+ (if (memv #{kind\ 2454}# (quote (private)))
(if (not (equal?
- #{mod\ 15092}#
+ #{mod\ 2455}#
(module-name (current-module))))
- (#{modref-cont\ 15083}#
- #{mod\ 15092}#
- #{var\ 15082}#
+ (#{modref-cont\ 2446}#
+ #{mod\ 2455}#
+ #{var\ 2445}#
#f)
- (#{bare-cont\ 15084}# #{var\ 15082}#))
- (if (memv #{kind\ 15091}# (quote (bare)))
- (#{bare-cont\ 15084}# #{var\ 15082}#)
- (if (memv #{kind\ 15091}# (quote (hygiene)))
+ (#{bare-cont\ 2447}# #{var\ 2445}#))
+ (if (memv #{kind\ 2454}# (quote (bare)))
+ (#{bare-cont\ 2447}# #{var\ 2445}#)
+ (if (memv #{kind\ 2454}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 15092}#
+ #{mod\ 2455}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 15092}#)
- #{var\ 15082}#)
+ (resolve-module #{mod\ 2455}#)
+ #{var\ 2445}#)
#f)
- (#{modref-cont\ 15083}#
- #{mod\ 15092}#
- #{var\ 15082}#
+ (#{modref-cont\ 2446}#
+ #{mod\ 2455}#
+ #{var\ 2445}#
#f)
- (#{bare-cont\ 15084}# #{var\ 15082}#))
+ (#{bare-cont\ 2447}# #{var\ 2445}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 15082}#
- #{mod\ 15092}#)))))))))
- (#{build-lexical-assignment\ 12846}#
- (lambda (#{source\ 15100}#
- #{name\ 15101}#
- #{var\ 15102}#
- #{exp\ 15103}#)
- (#{make-lexical-set\ 12789}#
- #{source\ 15100}#
- #{name\ 15101}#
- #{var\ 15102}#
- #{exp\ 15103}#)))
- (#{build-lexical-reference\ 12844}#
- (lambda (#{type\ 15108}#
- #{source\ 15109}#
- #{name\ 15110}#
- #{var\ 15111}#)
- (#{make-lexical-ref\ 12787}#
- #{source\ 15109}#
- #{name\ 15110}#
- #{var\ 15111}#)))
- (#{build-dynlet\ 12842}#
- (lambda (#{source\ 15116}#
- #{fluids\ 15117}#
- #{vals\ 15118}#
- #{body\ 15119}#)
- (#{make-dynlet\ 12815}#
- #{source\ 15116}#
- #{fluids\ 15117}#
- #{vals\ 15118}#
- #{body\ 15119}#)))
- (#{build-conditional\ 12840}#
- (lambda (#{source\ 15124}#
- #{test-exp\ 15125}#
- #{then-exp\ 15126}#
- #{else-exp\ 15127}#)
- (#{make-conditional\ 12801}#
- #{source\ 15124}#
- #{test-exp\ 15125}#
- #{then-exp\ 15126}#
- #{else-exp\ 15127}#)))
- (#{build-application\ 12838}#
- (lambda (#{source\ 15132}#
- #{fun-exp\ 15133}#
- #{arg-exps\ 15134}#)
- (#{make-application\ 12803}#
- #{source\ 15132}#
- #{fun-exp\ 15133}#
- #{arg-exps\ 15134}#)))
- (#{build-void\ 12836}#
- (lambda (#{source\ 15138}#)
- (#{make-void\ 12781}# #{source\ 15138}#)))
- (#{decorate-source\ 12834}#
- (lambda (#{e\ 15140}# #{s\ 15141}#)
+ #{var\ 2445}#
+ #{mod\ 2455}#)))))))))
+ (#{build-lexical-assignment\ 237}#
+ (lambda (#{source\ 2463}#
+ #{name\ 2464}#
+ #{var\ 2465}#
+ #{exp\ 2466}#)
+ (#{make-lexical-set\ 180}#
+ #{source\ 2463}#
+ #{name\ 2464}#
+ #{var\ 2465}#
+ #{exp\ 2466}#)))
+ (#{build-lexical-reference\ 235}#
+ (lambda (#{type\ 2471}#
+ #{source\ 2472}#
+ #{name\ 2473}#
+ #{var\ 2474}#)
+ (#{make-lexical-ref\ 178}#
+ #{source\ 2472}#
+ #{name\ 2473}#
+ #{var\ 2474}#)))
+ (#{build-dynlet\ 233}#
+ (lambda (#{source\ 2479}#
+ #{fluids\ 2480}#
+ #{vals\ 2481}#
+ #{body\ 2482}#)
+ (#{make-dynlet\ 206}#
+ #{source\ 2479}#
+ #{fluids\ 2480}#
+ #{vals\ 2481}#
+ #{body\ 2482}#)))
+ (#{build-conditional\ 231}#
+ (lambda (#{source\ 2487}#
+ #{test-exp\ 2488}#
+ #{then-exp\ 2489}#
+ #{else-exp\ 2490}#)
+ (#{make-conditional\ 192}#
+ #{source\ 2487}#
+ #{test-exp\ 2488}#
+ #{then-exp\ 2489}#
+ #{else-exp\ 2490}#)))
+ (#{build-application\ 229}#
+ (lambda (#{source\ 2495}#
+ #{fun-exp\ 2496}#
+ #{arg-exps\ 2497}#)
+ (#{make-application\ 194}#
+ #{source\ 2495}#
+ #{fun-exp\ 2496}#
+ #{arg-exps\ 2497}#)))
+ (#{build-void\ 227}#
+ (lambda (#{source\ 2501}#)
+ (#{make-void\ 172}# #{source\ 2501}#)))
+ (#{decorate-source\ 225}#
+ (lambda (#{e\ 2503}# #{s\ 2504}#)
(begin
- (if (if (pair? #{e\ 15140}#) #{s\ 15141}# #f)
- (set-source-properties!
- #{e\ 15140}#
- #{s\ 15141}#))
- #{e\ 15140}#)))
- (#{get-global-definition-hook\ 12832}#
- (lambda (#{symbol\ 15146}# #{module\ 15147}#)
+ (if (if (pair? #{e\ 2503}#) #{s\ 2504}# #f)
+ (set-source-properties! #{e\ 2503}# #{s\ 2504}#))
+ #{e\ 2503}#)))
+ (#{get-global-definition-hook\ 223}#
+ (lambda (#{symbol\ 2509}# #{module\ 2510}#)
(begin
- (if (if (not #{module\ 15147}#) (current-module) #f)
+ (if (if (not #{module\ 2510}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 15146}#))
- (let ((#{v\ 15153}#
+ #{symbol\ 2509}#))
+ (let ((#{v\ 2516}#
(module-variable
- (if #{module\ 15147}#
- (resolve-module (cdr #{module\ 15147}#))
+ (if #{module\ 2510}#
+ (resolve-module (cdr #{module\ 2510}#))
(current-module))
- #{symbol\ 15146}#)))
- (if #{v\ 15153}#
- (if (variable-bound? #{v\ 15153}#)
- (let ((#{val\ 15158}# (variable-ref #{v\ 15153}#)))
- (if (macro? #{val\ 15158}#)
- (if (macro-type #{val\ 15158}#)
- (cons (macro-type #{val\ 15158}#)
- (macro-binding #{val\ 15158}#))
+ #{symbol\ 2509}#)))
+ (if #{v\ 2516}#
+ (if (variable-bound? #{v\ 2516}#)
+ (let ((#{val\ 2521}# (variable-ref #{v\ 2516}#)))
+ (if (macro? #{val\ 2521}#)
+ (if (macro-type #{val\ 2521}#)
+ (cons (macro-type #{val\ 2521}#)
+ (macro-binding #{val\ 2521}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 12830}#
- (lambda (#{symbol\ 15162}#
- #{type\ 15163}#
- #{val\ 15164}#)
+ (#{put-global-definition-hook\ 221}#
+ (lambda (#{symbol\ 2525}# #{type\ 2526}# #{val\ 2527}#)
(module-define!
(current-module)
- #{symbol\ 15162}#
+ #{symbol\ 2525}#
(make-syntax-transformer
- #{symbol\ 15162}#
- #{type\ 15163}#
- #{val\ 15164}#))))
- (#{local-eval-hook\ 12827}#
- (lambda (#{x\ 15168}# #{mod\ 15169}#)
- (primitive-eval
- (memoize-expression #{x\ 15168}#))))
- (#{top-level-eval-hook\ 12825}#
- (lambda (#{x\ 15172}# #{mod\ 15173}#)
- (primitive-eval
- (memoize-expression #{x\ 15172}#))))
- (#{fx<\ 12823}# <)
- (#{fx=\ 12821}# =)
- (#{fx-\ 12819}# -)
- (#{fx+\ 12817}# +)
- (#{make-dynlet\ 12815}#
- (lambda (#{src\ 15176}#
- #{fluids\ 15177}#
- #{vals\ 15178}#
- #{body\ 15179}#)
+ #{symbol\ 2525}#
+ #{type\ 2526}#
+ #{val\ 2527}#))))
+ (#{local-eval-hook\ 218}#
+ (lambda (#{x\ 2531}# #{mod\ 2532}#)
+ (primitive-eval #{x\ 2531}#)))
+ (#{top-level-eval-hook\ 216}#
+ (lambda (#{x\ 2535}# #{mod\ 2536}#)
+ (primitive-eval #{x\ 2535}#)))
+ (#{fx<\ 214}# <)
+ (#{fx=\ 212}# =)
+ (#{fx-\ 210}# -)
+ (#{fx+\ 208}# +)
+ (#{make-dynlet\ 206}#
+ (lambda (#{src\ 2539}#
+ #{fluids\ 2540}#
+ #{vals\ 2541}#
+ #{body\ 2542}#)
(make-struct
(vector-ref %expanded-vtables 17)
0
- #{src\ 15176}#
- #{fluids\ 15177}#
- #{vals\ 15178}#
- #{body\ 15179}#)))
- (#{make-letrec\ 12813}#
- (lambda (#{src\ 15184}#
- #{names\ 15185}#
- #{gensyms\ 15186}#
- #{vals\ 15187}#
- #{body\ 15188}#)
+ #{src\ 2539}#
+ #{fluids\ 2540}#
+ #{vals\ 2541}#
+ #{body\ 2542}#)))
+ (#{make-letrec\ 204}#
+ (lambda (#{src\ 2547}#
+ #{names\ 2548}#
+ #{gensyms\ 2549}#
+ #{vals\ 2550}#
+ #{body\ 2551}#)
(make-struct
(vector-ref %expanded-vtables 16)
0
- #{src\ 15184}#
- #{names\ 15185}#
- #{gensyms\ 15186}#
- #{vals\ 15187}#
- #{body\ 15188}#)))
- (#{make-let\ 12811}#
- (lambda (#{src\ 15194}#
- #{names\ 15195}#
- #{gensyms\ 15196}#
- #{vals\ 15197}#
- #{body\ 15198}#)
+ #{src\ 2547}#
+ #{names\ 2548}#
+ #{gensyms\ 2549}#
+ #{vals\ 2550}#
+ #{body\ 2551}#)))
+ (#{make-let\ 202}#
+ (lambda (#{src\ 2557}#
+ #{names\ 2558}#
+ #{gensyms\ 2559}#
+ #{vals\ 2560}#
+ #{body\ 2561}#)
(make-struct
(vector-ref %expanded-vtables 15)
0
- #{src\ 15194}#
- #{names\ 15195}#
- #{gensyms\ 15196}#
- #{vals\ 15197}#
- #{body\ 15198}#)))
- (#{make-lambda-case\ 12809}#
- (lambda (#{src\ 15204}#
- #{req\ 15205}#
- #{opt\ 15206}#
- #{rest\ 15207}#
- #{kw\ 15208}#
- #{inits\ 15209}#
- #{gensyms\ 15210}#
- #{body\ 15211}#
- #{alternate\ 15212}#)
+ #{src\ 2557}#
+ #{names\ 2558}#
+ #{gensyms\ 2559}#
+ #{vals\ 2560}#
+ #{body\ 2561}#)))
+ (#{make-lambda-case\ 200}#
+ (lambda (#{src\ 2567}#
+ #{req\ 2568}#
+ #{opt\ 2569}#
+ #{rest\ 2570}#
+ #{kw\ 2571}#
+ #{inits\ 2572}#
+ #{gensyms\ 2573}#
+ #{body\ 2574}#
+ #{alternate\ 2575}#)
(make-struct
(vector-ref %expanded-vtables 14)
0
- #{src\ 15204}#
- #{req\ 15205}#
- #{opt\ 15206}#
- #{rest\ 15207}#
- #{kw\ 15208}#
- #{inits\ 15209}#
- #{gensyms\ 15210}#
- #{body\ 15211}#
- #{alternate\ 15212}#)))
- (#{make-lambda\ 12807}#
- (lambda (#{src\ 15222}# #{meta\ 15223}# #{body\ 15224}#)
+ #{src\ 2567}#
+ #{req\ 2568}#
+ #{opt\ 2569}#
+ #{rest\ 2570}#
+ #{kw\ 2571}#
+ #{inits\ 2572}#
+ #{gensyms\ 2573}#
+ #{body\ 2574}#
+ #{alternate\ 2575}#)))
+ (#{make-lambda\ 198}#
+ (lambda (#{src\ 2585}# #{meta\ 2586}# #{body\ 2587}#)
(make-struct
(vector-ref %expanded-vtables 13)
0
- #{src\ 15222}#
- #{meta\ 15223}#
- #{body\ 15224}#)))
- (#{make-sequence\ 12805}#
- (lambda (#{src\ 15228}# #{exps\ 15229}#)
+ #{src\ 2585}#
+ #{meta\ 2586}#
+ #{body\ 2587}#)))
+ (#{make-sequence\ 196}#
+ (lambda (#{src\ 2591}# #{exps\ 2592}#)
(make-struct
(vector-ref %expanded-vtables 12)
0
- #{src\ 15228}#
- #{exps\ 15229}#)))
- (#{make-application\ 12803}#
- (lambda (#{src\ 15232}# #{proc\ 15233}# #{args\ 15234}#)
+ #{src\ 2591}#
+ #{exps\ 2592}#)))
+ (#{make-application\ 194}#
+ (lambda (#{src\ 2595}# #{proc\ 2596}# #{args\ 2597}#)
(make-struct
(vector-ref %expanded-vtables 11)
0
- #{src\ 15232}#
- #{proc\ 15233}#
- #{args\ 15234}#)))
- (#{make-conditional\ 12801}#
- (lambda (#{src\ 15238}#
- #{test\ 15239}#
- #{consequent\ 15240}#
- #{alternate\ 15241}#)
+ #{src\ 2595}#
+ #{proc\ 2596}#
+ #{args\ 2597}#)))
+ (#{make-conditional\ 192}#
+ (lambda (#{src\ 2601}#
+ #{test\ 2602}#
+ #{consequent\ 2603}#
+ #{alternate\ 2604}#)
(make-struct
(vector-ref %expanded-vtables 10)
0
- #{src\ 15238}#
- #{test\ 15239}#
- #{consequent\ 15240}#
- #{alternate\ 15241}#)))
- (#{make-toplevel-define\ 12799}#
- (lambda (#{src\ 15246}# #{name\ 15247}# #{exp\ 15248}#)
+ #{src\ 2601}#
+ #{test\ 2602}#
+ #{consequent\ 2603}#
+ #{alternate\ 2604}#)))
+ (#{make-toplevel-define\ 190}#
+ (lambda (#{src\ 2609}# #{name\ 2610}# #{exp\ 2611}#)
(make-struct
(vector-ref %expanded-vtables 9)
0
- #{src\ 15246}#
- #{name\ 15247}#
- #{exp\ 15248}#)))
- (#{make-toplevel-set\ 12797}#
- (lambda (#{src\ 15252}# #{name\ 15253}# #{exp\ 15254}#)
+ #{src\ 2609}#
+ #{name\ 2610}#
+ #{exp\ 2611}#)))
+ (#{make-toplevel-set\ 188}#
+ (lambda (#{src\ 2615}# #{name\ 2616}# #{exp\ 2617}#)
(make-struct
(vector-ref %expanded-vtables 8)
0
- #{src\ 15252}#
- #{name\ 15253}#
- #{exp\ 15254}#)))
- (#{make-toplevel-ref\ 12795}#
- (lambda (#{src\ 15258}# #{name\ 15259}#)
+ #{src\ 2615}#
+ #{name\ 2616}#
+ #{exp\ 2617}#)))
+ (#{make-toplevel-ref\ 186}#
+ (lambda (#{src\ 2621}# #{name\ 2622}#)
(make-struct
(vector-ref %expanded-vtables 7)
0
- #{src\ 15258}#
- #{name\ 15259}#)))
- (#{make-module-set\ 12793}#
- (lambda (#{src\ 15262}#
- #{mod\ 15263}#
- #{name\ 15264}#
- #{public?\ 15265}#
- #{exp\ 15266}#)
+ #{src\ 2621}#
+ #{name\ 2622}#)))
+ (#{make-module-set\ 184}#
+ (lambda (#{src\ 2625}#
+ #{mod\ 2626}#
+ #{name\ 2627}#
+ #{public?\ 2628}#
+ #{exp\ 2629}#)
(make-struct
(vector-ref %expanded-vtables 6)
0
- #{src\ 15262}#
- #{mod\ 15263}#
- #{name\ 15264}#
- #{public?\ 15265}#
- #{exp\ 15266}#)))
- (#{make-module-ref\ 12791}#
- (lambda (#{src\ 15272}#
- #{mod\ 15273}#
- #{name\ 15274}#
- #{public?\ 15275}#)
+ #{src\ 2625}#
+ #{mod\ 2626}#
+ #{name\ 2627}#
+ #{public?\ 2628}#
+ #{exp\ 2629}#)))
+ (#{make-module-ref\ 182}#
+ (lambda (#{src\ 2635}#
+ #{mod\ 2636}#
+ #{name\ 2637}#
+ #{public?\ 2638}#)
(make-struct
(vector-ref %expanded-vtables 5)
0
- #{src\ 15272}#
- #{mod\ 15273}#
- #{name\ 15274}#
- #{public?\ 15275}#)))
- (#{make-lexical-set\ 12789}#
- (lambda (#{src\ 15280}#
- #{name\ 15281}#
- #{gensym\ 15282}#
- #{exp\ 15283}#)
+ #{src\ 2635}#
+ #{mod\ 2636}#
+ #{name\ 2637}#
+ #{public?\ 2638}#)))
+ (#{make-lexical-set\ 180}#
+ (lambda (#{src\ 2643}#
+ #{name\ 2644}#
+ #{gensym\ 2645}#
+ #{exp\ 2646}#)
(make-struct
(vector-ref %expanded-vtables 4)
0
- #{src\ 15280}#
- #{name\ 15281}#
- #{gensym\ 15282}#
- #{exp\ 15283}#)))
- (#{make-lexical-ref\ 12787}#
- (lambda (#{src\ 15288}#
- #{name\ 15289}#
- #{gensym\ 15290}#)
+ #{src\ 2643}#
+ #{name\ 2644}#
+ #{gensym\ 2645}#
+ #{exp\ 2646}#)))
+ (#{make-lexical-ref\ 178}#
+ (lambda (#{src\ 2651}# #{name\ 2652}# #{gensym\ 2653}#)
(make-struct
(vector-ref %expanded-vtables 3)
0
- #{src\ 15288}#
- #{name\ 15289}#
- #{gensym\ 15290}#)))
- (#{make-primitive-ref\ 12785}#
- (lambda (#{src\ 15294}# #{name\ 15295}#)
+ #{src\ 2651}#
+ #{name\ 2652}#
+ #{gensym\ 2653}#)))
+ (#{make-primitive-ref\ 176}#
+ (lambda (#{src\ 2657}# #{name\ 2658}#)
(make-struct
(vector-ref %expanded-vtables 2)
0
- #{src\ 15294}#
- #{name\ 15295}#)))
- (#{make-const\ 12783}#
- (lambda (#{src\ 15298}# #{exp\ 15299}#)
+ #{src\ 2657}#
+ #{name\ 2658}#)))
+ (#{make-const\ 174}#
+ (lambda (#{src\ 2661}# #{exp\ 2662}#)
(make-struct
(vector-ref %expanded-vtables 1)
0
- #{src\ 15298}#
- #{exp\ 15299}#)))
- (#{make-void\ 12781}#
- (lambda (#{src\ 15302}#)
+ #{src\ 2661}#
+ #{exp\ 2662}#)))
+ (#{make-void\ 172}#
+ (lambda (#{src\ 2665}#)
(make-struct
(vector-ref %expanded-vtables 0)
0
- #{src\ 15302}#)))
- (#{*mode*\ 12778}# (make-fluid)))
+ #{src\ 2665}#))))
(begin
- (#{global-extend\ 12912}#
+ (#{global-extend\ 303}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 12912}#
+ (#{global-extend\ 303}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 12912}#
+ (#{global-extend\ 303}#
'core
'fluid-let-syntax
- (lambda (#{e\ 15304}#
- #{r\ 15305}#
- #{w\ 15306}#
- #{s\ 15307}#
- #{mod\ 15308}#)
- ((lambda (#{tmp\ 15314}#)
- ((lambda (#{tmp\ 15315}#)
- (if (if #{tmp\ 15315}#
- (apply (lambda (#{_\ 15321}#
- #{var\ 15322}#
- #{val\ 15323}#
- #{e1\ 15324}#
- #{e2\ 15325}#)
- (#{valid-bound-ids?\ 12979}# #{var\ 15322}#))
- #{tmp\ 15315}#)
+ (lambda (#{e\ 2667}#
+ #{r\ 2668}#
+ #{w\ 2669}#
+ #{s\ 2670}#
+ #{mod\ 2671}#)
+ ((lambda (#{tmp\ 2677}#)
+ ((lambda (#{tmp\ 2678}#)
+ (if (if #{tmp\ 2678}#
+ (apply (lambda (#{_\ 2684}#
+ #{var\ 2685}#
+ #{val\ 2686}#
+ #{e1\ 2687}#
+ #{e2\ 2688}#)
+ (#{valid-bound-ids?\ 370}# #{var\ 2685}#))
+ #{tmp\ 2678}#)
#f)
- (apply (lambda (#{_\ 15332}#
- #{var\ 15333}#
- #{val\ 15334}#
- #{e1\ 15335}#
- #{e2\ 15336}#)
- (let ((#{names\ 15338}#
- (map (lambda (#{x\ 15339}#)
- (#{id-var-name\ 12973}#
- #{x\ 15339}#
- #{w\ 15306}#))
- #{var\ 15333}#)))
+ (apply (lambda (#{_\ 2695}#
+ #{var\ 2696}#
+ #{val\ 2697}#
+ #{e1\ 2698}#
+ #{e2\ 2699}#)
+ (let ((#{names\ 2701}#
+ (map (lambda (#{x\ 2702}#)
+ (#{id-var-name\ 364}#
+ #{x\ 2702}#
+ #{w\ 2669}#))
+ #{var\ 2696}#)))
(begin
(for-each
- (lambda (#{id\ 15342}# #{n\ 15343}#)
- (let ((#{atom-key\ 15348}#
- (#{binding-type\ 12899}#
- (#{lookup\ 12910}#
- #{n\ 15343}#
- #{r\ 15305}#
- #{mod\ 15308}#))))
- (if (memv #{atom-key\ 15348}#
+ (lambda (#{id\ 2705}# #{n\ 2706}#)
+ (let ((#{atom-key\ 2711}#
+ (#{binding-type\ 290}#
+ (#{lookup\ 301}#
+ #{n\ 2706}#
+ #{r\ 2668}#
+ #{mod\ 2671}#))))
+ (if (memv #{atom-key\ 2711}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 15304}#
- (#{source-wrap\ 12987}#
- #{id\ 15342}#
- #{w\ 15306}#
- #{s\ 15307}#
- #{mod\ 15308}#)))))
- #{var\ 15333}#
- #{names\ 15338}#)
- (#{chi-body\ 13009}#
- (cons #{e1\ 15335}# #{e2\ 15336}#)
- (#{source-wrap\ 12987}#
- #{e\ 15304}#
- #{w\ 15306}#
- #{s\ 15307}#
- #{mod\ 15308}#)
- (#{extend-env\ 12904}#
- #{names\ 15338}#
- (let ((#{trans-r\ 15353}#
- (#{macros-only-env\ 12908}#
- #{r\ 15305}#)))
- (map (lambda (#{x\ 15354}#)
+ #{e\ 2667}#
+ (#{source-wrap\ 378}#
+ #{id\ 2705}#
+ #{w\ 2669}#
+ #{s\ 2670}#
+ #{mod\ 2671}#)))))
+ #{var\ 2696}#
+ #{names\ 2701}#)
+ (#{chi-body\ 400}#
+ (cons #{e1\ 2698}# #{e2\ 2699}#)
+ (#{source-wrap\ 378}#
+ #{e\ 2667}#
+ #{w\ 2669}#
+ #{s\ 2670}#
+ #{mod\ 2671}#)
+ (#{extend-env\ 295}#
+ #{names\ 2701}#
+ (let ((#{trans-r\ 2716}#
+ (#{macros-only-env\ 299}#
+ #{r\ 2668}#)))
+ (map (lambda (#{x\ 2717}#)
(cons 'macro
- (#{eval-local-transformer\
13013}#
- (#{chi\ 13001}#
- #{x\ 15354}#
- #{trans-r\ 15353}#
- #{w\ 15306}#
- #{mod\ 15308}#)
- #{mod\ 15308}#)))
- #{val\ 15334}#))
- #{r\ 15305}#)
- #{w\ 15306}#
- #{mod\ 15308}#))))
- #{tmp\ 15315}#)
- ((lambda (#{_\ 15359}#)
+ (#{eval-local-transformer\
404}#
+ (#{chi\ 392}#
+ #{x\ 2717}#
+ #{trans-r\ 2716}#
+ #{w\ 2669}#
+ #{mod\ 2671}#)
+ #{mod\ 2671}#)))
+ #{val\ 2697}#))
+ #{r\ 2668}#)
+ #{w\ 2669}#
+ #{mod\ 2671}#))))
+ #{tmp\ 2678}#)
+ ((lambda (#{_\ 2722}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 12987}#
- #{e\ 15304}#
- #{w\ 15306}#
- #{s\ 15307}#
- #{mod\ 15308}#)))
- #{tmp\ 15314}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 2667}#
+ #{w\ 2669}#
+ #{s\ 2670}#
+ #{mod\ 2671}#)))
+ #{tmp\ 2677}#)))
($sc-dispatch
- #{tmp\ 15314}#
+ #{tmp\ 2677}#
'(any #(each (any any)) any . each-any))))
- #{e\ 15304}#)))
- (#{global-extend\ 12912}#
+ #{e\ 2667}#)))
+ (#{global-extend\ 303}#
'core
'quote
- (lambda (#{e\ 15360}#
- #{r\ 15361}#
- #{w\ 15362}#
- #{s\ 15363}#
- #{mod\ 15364}#)
- ((lambda (#{tmp\ 15370}#)
- ((lambda (#{tmp\ 15371}#)
- (if #{tmp\ 15371}#
- (apply (lambda (#{_\ 15374}# #{e\ 15375}#)
- (#{build-data\ 12866}#
- #{s\ 15363}#
- (#{strip\ 13027}# #{e\ 15375}# #{w\ 15362}#)))
- #{tmp\ 15371}#)
- ((lambda (#{_\ 15377}#)
+ (lambda (#{e\ 2723}#
+ #{r\ 2724}#
+ #{w\ 2725}#
+ #{s\ 2726}#
+ #{mod\ 2727}#)
+ ((lambda (#{tmp\ 2733}#)
+ ((lambda (#{tmp\ 2734}#)
+ (if #{tmp\ 2734}#
+ (apply (lambda (#{_\ 2737}# #{e\ 2738}#)
+ (#{build-data\ 257}#
+ #{s\ 2726}#
+ (#{strip\ 418}# #{e\ 2738}# #{w\ 2725}#)))
+ #{tmp\ 2734}#)
+ ((lambda (#{_\ 2740}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 12987}#
- #{e\ 15360}#
- #{w\ 15362}#
- #{s\ 15363}#
- #{mod\ 15364}#)))
- #{tmp\ 15370}#)))
- ($sc-dispatch #{tmp\ 15370}# (quote (any any)))))
- #{e\ 15360}#)))
- (#{global-extend\ 12912}#
+ (#{source-wrap\ 378}#
+ #{e\ 2723}#
+ #{w\ 2725}#
+ #{s\ 2726}#
+ #{mod\ 2727}#)))
+ #{tmp\ 2733}#)))
+ ($sc-dispatch #{tmp\ 2733}# (quote (any any)))))
+ #{e\ 2723}#)))
+ (#{global-extend\ 303}#
'core
'syntax
- (letrec ((#{regen\ 15393}#
- (lambda (#{x\ 15394}#)
- (let ((#{atom-key\ 15398}# (car #{x\ 15394}#)))
- (if (memv #{atom-key\ 15398}# (quote (ref)))
- (#{build-lexical-reference\ 12844}#
+ (letrec ((#{regen\ 2756}#
+ (lambda (#{x\ 2757}#)
+ (let ((#{atom-key\ 2761}# (car #{x\ 2757}#)))
+ (if (memv #{atom-key\ 2761}# (quote (ref)))
+ (#{build-lexical-reference\ 235}#
'value
#f
- (cadr #{x\ 15394}#)
- (cadr #{x\ 15394}#))
- (if (memv #{atom-key\ 15398}# (quote (primitive)))
- (#{build-primref\ 12864}# #f (cadr #{x\ 15394}#))
- (if (memv #{atom-key\ 15398}# (quote (quote)))
- (#{build-data\ 12866}# #f (cadr #{x\ 15394}#))
- (if (memv #{atom-key\ 15398}# (quote (lambda)))
- (if (list? (cadr #{x\ 15394}#))
- (#{build-simple-lambda\ 12858}#
+ (cadr #{x\ 2757}#)
+ (cadr #{x\ 2757}#))
+ (if (memv #{atom-key\ 2761}# (quote (primitive)))
+ (#{build-primref\ 255}# #f (cadr #{x\ 2757}#))
+ (if (memv #{atom-key\ 2761}# (quote (quote)))
+ (#{build-data\ 257}# #f (cadr #{x\ 2757}#))
+ (if (memv #{atom-key\ 2761}# (quote (lambda)))
+ (if (list? (cadr #{x\ 2757}#))
+ (#{build-simple-lambda\ 249}#
#f
- (cadr #{x\ 15394}#)
+ (cadr #{x\ 2757}#)
#f
- (cadr #{x\ 15394}#)
+ (cadr #{x\ 2757}#)
'()
- (#{regen\ 15393}# (caddr #{x\ 15394}#)))
- (error "how did we get here" #{x\ 15394}#))
- (#{build-application\ 12838}#
+ (#{regen\ 2756}# (caddr #{x\ 2757}#)))
+ (error "how did we get here" #{x\ 2757}#))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}#
- #f
- (car #{x\ 15394}#))
- (map #{regen\ 15393}#
- (cdr #{x\ 15394}#))))))))))
- (#{gen-vector\ 15391}#
- (lambda (#{x\ 15410}#)
- (if (eq? (car #{x\ 15410}#) (quote list))
- (cons (quote vector) (cdr #{x\ 15410}#))
- (if (eq? (car #{x\ 15410}#) (quote quote))
+ (#{build-primref\ 255}# #f (car #{x\ 2757}#))
+ (map #{regen\ 2756}#
+ (cdr #{x\ 2757}#))))))))))
+ (#{gen-vector\ 2754}#
+ (lambda (#{x\ 2773}#)
+ (if (eq? (car #{x\ 2773}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2773}#))
+ (if (eq? (car #{x\ 2773}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 15410}#)))
- (list (quote list->vector) #{x\ 15410}#)))))
- (#{gen-append\ 15389}#
- (lambda (#{x\ 15420}# #{y\ 15421}#)
- (if (equal? #{y\ 15421}# (quote (quote ())))
- #{x\ 15420}#
- (list (quote append) #{x\ 15420}# #{y\ 15421}#))))
- (#{gen-cons\ 15387}#
- (lambda (#{x\ 15425}# #{y\ 15426}#)
- (let ((#{atom-key\ 15431}# (car #{y\ 15426}#)))
- (if (memv #{atom-key\ 15431}# (quote (quote)))
- (if (eq? (car #{x\ 15425}#) (quote quote))
+ (list->vector (cadr #{x\ 2773}#)))
+ (list (quote list->vector) #{x\ 2773}#)))))
+ (#{gen-append\ 2752}#
+ (lambda (#{x\ 2783}# #{y\ 2784}#)
+ (if (equal? #{y\ 2784}# (quote (quote ())))
+ #{x\ 2783}#
+ (list (quote append) #{x\ 2783}# #{y\ 2784}#))))
+ (#{gen-cons\ 2750}#
+ (lambda (#{x\ 2788}# #{y\ 2789}#)
+ (let ((#{atom-key\ 2794}# (car #{y\ 2789}#)))
+ (if (memv #{atom-key\ 2794}# (quote (quote)))
+ (if (eq? (car #{x\ 2788}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 15425}#)
- (cadr #{y\ 15426}#)))
- (if (eq? (cadr #{y\ 15426}#) (quote ()))
- (list (quote list) #{x\ 15425}#)
- (list (quote cons) #{x\ 15425}# #{y\ 15426}#)))
- (if (memv #{atom-key\ 15431}# (quote (list)))
+ (cons (cadr #{x\ 2788}#) (cadr #{y\ 2789}#)))
+ (if (eq? (cadr #{y\ 2789}#) (quote ()))
+ (list (quote list) #{x\ 2788}#)
+ (list (quote cons) #{x\ 2788}# #{y\ 2789}#)))
+ (if (memv #{atom-key\ 2794}# (quote (list)))
(cons 'list
- (cons #{x\ 15425}# (cdr #{y\ 15426}#)))
- (list (quote cons) #{x\ 15425}# #{y\ 15426}#))))))
- (#{gen-map\ 15385}#
- (lambda (#{e\ 15440}# #{map-env\ 15441}#)
- (let ((#{formals\ 15446}# (map cdr #{map-env\ 15441}#))
- (#{actuals\ 15447}#
- (map (lambda (#{x\ 15448}#)
- (list (quote ref) (car #{x\ 15448}#)))
- #{map-env\ 15441}#)))
- (if (eq? (car #{e\ 15440}#) (quote ref))
- (car #{actuals\ 15447}#)
+ (cons #{x\ 2788}# (cdr #{y\ 2789}#)))
+ (list (quote cons) #{x\ 2788}# #{y\ 2789}#))))))
+ (#{gen-map\ 2748}#
+ (lambda (#{e\ 2803}# #{map-env\ 2804}#)
+ (let ((#{formals\ 2809}# (map cdr #{map-env\ 2804}#))
+ (#{actuals\ 2810}#
+ (map (lambda (#{x\ 2811}#)
+ (list (quote ref) (car #{x\ 2811}#)))
+ #{map-env\ 2804}#)))
+ (if (eq? (car #{e\ 2803}#) (quote ref))
+ (car #{actuals\ 2810}#)
(if (and-map
- (lambda (#{x\ 15455}#)
- (if (eq? (car #{x\ 15455}#) (quote ref))
- (memq (cadr #{x\ 15455}#)
- #{formals\ 15446}#)
+ (lambda (#{x\ 2818}#)
+ (if (eq? (car #{x\ 2818}#) (quote ref))
+ (memq (cadr #{x\ 2818}#) #{formals\ 2809}#)
#f))
- (cdr #{e\ 15440}#))
+ (cdr #{e\ 2803}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 15440}#))
- (map (let ((#{r\ 15461}#
+ (car #{e\ 2803}#))
+ (map (let ((#{r\ 2824}#
(map cons
- #{formals\ 15446}#
- #{actuals\ 15447}#)))
- (lambda (#{x\ 15462}#)
- (cdr (assq (cadr #{x\ 15462}#)
- #{r\ 15461}#))))
- (cdr #{e\ 15440}#))))
+ #{formals\ 2809}#
+ #{actuals\ 2810}#)))
+ (lambda (#{x\ 2825}#)
+ (cdr (assq (cadr #{x\ 2825}#)
+ #{r\ 2824}#))))
+ (cdr #{e\ 2803}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 15446}#
- #{e\ 15440}#)
- #{actuals\ 15447}#)))))))
- (#{gen-mappend\ 15383}#
- (lambda (#{e\ 15466}# #{map-env\ 15467}#)
+ #{formals\ 2809}#
+ #{e\ 2803}#)
+ #{actuals\ 2810}#)))))))
+ (#{gen-mappend\ 2746}#
+ (lambda (#{e\ 2829}# #{map-env\ 2830}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 15385}#
- #{e\ 15466}#
- #{map-env\ 15467}#))))
- (#{gen-ref\ 15381}#
- (lambda (#{src\ 15471}#
- #{var\ 15472}#
- #{level\ 15473}#
- #{maps\ 15474}#)
- (if (#{fx=\ 12821}# #{level\ 15473}# 0)
- (values #{var\ 15472}# #{maps\ 15474}#)
- (if (null? #{maps\ 15474}#)
+ (#{gen-map\ 2748}# #{e\ 2829}# #{map-env\ 2830}#))))
+ (#{gen-ref\ 2744}#
+ (lambda (#{src\ 2834}#
+ #{var\ 2835}#
+ #{level\ 2836}#
+ #{maps\ 2837}#)
+ (if (#{fx=\ 212}# #{level\ 2836}# 0)
+ (values #{var\ 2835}# #{maps\ 2837}#)
+ (if (null? #{maps\ 2837}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 15471}#)
+ #{src\ 2834}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 15381}#
- #{src\ 15471}#
- #{var\ 15472}#
- (#{fx-\ 12819}# #{level\ 15473}# 1)
- (cdr #{maps\ 15474}#)))
- (lambda (#{outer-var\ 15479}# #{outer-maps\ 15480}#)
- (let ((#{b\ 15484}#
- (assq #{outer-var\ 15479}#
- (car #{maps\ 15474}#))))
- (if #{b\ 15484}#
- (values (cdr #{b\ 15484}#) #{maps\ 15474}#)
- (let ((#{inner-var\ 15486}#
- (#{gen-var\ 13029}# (quote tmp))))
+ (#{gen-ref\ 2744}#
+ #{src\ 2834}#
+ #{var\ 2835}#
+ (#{fx-\ 210}# #{level\ 2836}# 1)
+ (cdr #{maps\ 2837}#)))
+ (lambda (#{outer-var\ 2842}# #{outer-maps\ 2843}#)
+ (let ((#{b\ 2847}#
+ (assq #{outer-var\ 2842}#
+ (car #{maps\ 2837}#))))
+ (if #{b\ 2847}#
+ (values (cdr #{b\ 2847}#) #{maps\ 2837}#)
+ (let ((#{inner-var\ 2849}#
+ (#{gen-var\ 420}# (quote tmp))))
(values
- #{inner-var\ 15486}#
- (cons (cons (cons #{outer-var\ 15479}#
- #{inner-var\ 15486}#)
- (car #{maps\ 15474}#))
- #{outer-maps\ 15480}#)))))))))))
- (#{gen-syntax\ 15379}#
- (lambda (#{src\ 15487}#
- #{e\ 15488}#
- #{r\ 15489}#
- #{maps\ 15490}#
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#)
- (if (#{id?\ 12916}# #{e\ 15488}#)
- (let ((#{label\ 15500}#
- (#{id-var-name\ 12973}#
- #{e\ 15488}#
+ #{inner-var\ 2849}#
+ (cons (cons (cons #{outer-var\ 2842}#
+ #{inner-var\ 2849}#)
+ (car #{maps\ 2837}#))
+ #{outer-maps\ 2843}#)))))))))))
+ (#{gen-syntax\ 2742}#
+ (lambda (#{src\ 2850}#
+ #{e\ 2851}#
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#)
+ (if (#{id?\ 307}# #{e\ 2851}#)
+ (let ((#{label\ 2863}#
+ (#{id-var-name\ 364}#
+ #{e\ 2851}#
'(()))))
- (let ((#{b\ 15503}#
- (#{lookup\ 12910}#
- #{label\ 15500}#
- #{r\ 15489}#
- #{mod\ 15492}#)))
- (if (eq? (#{binding-type\ 12899}# #{b\ 15503}#)
+ (let ((#{b\ 2866}#
+ (#{lookup\ 301}#
+ #{label\ 2863}#
+ #{r\ 2852}#
+ #{mod\ 2855}#)))
+ (if (eq? (#{binding-type\ 290}# #{b\ 2866}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 15505}#
- (#{binding-value\ 12901}#
- #{b\ 15503}#)))
- (#{gen-ref\ 15381}#
- #{src\ 15487}#
- (car #{var.lev\ 15505}#)
- (cdr #{var.lev\ 15505}#)
- #{maps\ 15490}#)))
- (lambda (#{var\ 15506}# #{maps\ 15507}#)
+ (let ((#{var.lev\ 2868}#
+ (#{binding-value\ 292}# #{b\ 2866}#)))
+ (#{gen-ref\ 2744}#
+ #{src\ 2850}#
+ (car #{var.lev\ 2868}#)
+ (cdr #{var.lev\ 2868}#)
+ #{maps\ 2853}#)))
+ (lambda (#{var\ 2869}# #{maps\ 2870}#)
(values
- (list (quote ref) #{var\ 15506}#)
- #{maps\ 15507}#)))
- (if (#{ellipsis?\ 15491}# #{e\ 15488}#)
+ (list (quote ref) #{var\ 2869}#)
+ #{maps\ 2870}#)))
+ (if (#{ellipsis?\ 2854}# #{e\ 2851}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 15487}#)
+ #{src\ 2850}#)
(values
- (list (quote quote) #{e\ 15488}#)
- #{maps\ 15490}#)))))
- ((lambda (#{tmp\ 15512}#)
- ((lambda (#{tmp\ 15513}#)
- (if (if #{tmp\ 15513}#
- (apply (lambda (#{dots\ 15516}#
- #{e\ 15517}#)
- (#{ellipsis?\ 15491}#
- #{dots\ 15516}#))
- #{tmp\ 15513}#)
+ (list (quote quote) #{e\ 2851}#)
+ #{maps\ 2853}#)))))
+ ((lambda (#{tmp\ 2875}#)
+ ((lambda (#{tmp\ 2876}#)
+ (if (if #{tmp\ 2876}#
+ (apply (lambda (#{dots\ 2879}# #{e\ 2880}#)
+ (#{ellipsis?\ 2854}#
+ #{dots\ 2879}#))
+ #{tmp\ 2876}#)
#f)
- (apply (lambda (#{dots\ 15520}# #{e\ 15521}#)
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- #{e\ 15521}#
- #{r\ 15489}#
- #{maps\ 15490}#
- (lambda (#{x\ 15522}#) #f)
- #{mod\ 15492}#))
- #{tmp\ 15513}#)
- ((lambda (#{tmp\ 15524}#)
- (if (if #{tmp\ 15524}#
- (apply (lambda (#{x\ 15528}#
- #{dots\ 15529}#
- #{y\ 15530}#)
- (#{ellipsis?\ 15491}#
- #{dots\ 15529}#))
- #{tmp\ 15524}#)
+ (apply (lambda (#{dots\ 2883}# #{e\ 2884}#)
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{e\ 2884}#
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ (lambda (#{x\ 2885}#) #f)
+ #{mod\ 2855}#))
+ #{tmp\ 2876}#)
+ ((lambda (#{tmp\ 2887}#)
+ (if (if #{tmp\ 2887}#
+ (apply (lambda (#{x\ 2891}#
+ #{dots\ 2892}#
+ #{y\ 2893}#)
+ (#{ellipsis?\ 2854}#
+ #{dots\ 2892}#))
+ #{tmp\ 2887}#)
#f)
- (apply (lambda (#{x\ 15534}#
- #{dots\ 15535}#
- #{y\ 15536}#)
- (letrec ((#{f\ 15540}#
- (lambda (#{y\ 15541}#
- #{k\ 15542}#)
- ((lambda (#{tmp\
15549}#)
- ((lambda (#{tmp\
15550}#)
- (if (if #{tmp\
15550}#
- (apply
(lambda (#{dots\ 15553}#
-
#{y\ 15554}#)
-
(#{ellipsis?\ 15491}#
-
#{dots\ 15553}#))
-
#{tmp\ 15550}#)
+ (apply (lambda (#{x\ 2897}#
+ #{dots\ 2898}#
+ #{y\ 2899}#)
+ (letrec ((#{f\ 2903}#
+ (lambda (#{y\ 2904}#
+ #{k\ 2905}#)
+ ((lambda (#{tmp\
2912}#)
+ ((lambda (#{tmp\
2913}#)
+ (if (if #{tmp\
2913}#
+ (apply
(lambda (#{dots\ 2916}#
+
#{y\ 2917}#)
+
(#{ellipsis?\ 2854}#
+
#{dots\ 2916}#))
+
#{tmp\ 2913}#)
#f)
- (apply
(lambda (#{dots\ 15557}#
-
#{y\ 15558}#)
-
(#{f\ 15540}#
-
#{y\ 15558}#
-
(lambda (#{maps\ 15559}#)
+ (apply
(lambda (#{dots\ 2920}#
+
#{y\ 2921}#)
+
(#{f\ 2903}#
+
#{y\ 2921}#
+
(lambda (#{maps\ 2922}#)
(call-with-values
(lambda ()
-
(#{k\ 15542}#
+
(#{k\ 2905}#
(cons '()
-
#{maps\ 15559}#)))
-
(lambda (#{x\ 15561}#
-
#{maps\ 15562}#)
-
(if (null? (car #{maps\ 15562}#))
+
#{maps\ 2922}#)))
+
(lambda (#{x\ 2924}#
+
#{maps\ 2925}#)
+
(if (null? (car #{maps\ 2925}#))
(syntax-violation
'syntax
"extra ellipsis"
-
#{src\ 15487}#)
+
#{src\ 2850}#)
(values
-
(#{gen-mappend\ 15383}#
-
#{x\ 15561}#
-
(car #{maps\ 15562}#))
-
(cdr #{maps\ 15562}#))))))))
-
#{tmp\ 15550}#)
- ((lambda
(#{_\ 15566}#)
+
(#{gen-mappend\ 2746}#
+
#{x\ 2924}#
+
(car #{maps\ 2925}#))
+
(cdr #{maps\ 2925}#))))))))
+
#{tmp\ 2913}#)
+ ((lambda
(#{_\ 2929}#)
(call-with-values
(lambda
()
-
(#{gen-syntax\ 15379}#
-
#{src\ 15487}#
-
#{y\ 15541}#
-
#{r\ 15489}#
-
#{maps\ 15490}#
-
#{ellipsis?\ 15491}#
-
#{mod\ 15492}#))
- (lambda
(#{y\ 15567}#
-
#{maps\ 15568}#)
+
(#{gen-syntax\ 2742}#
+
#{src\ 2850}#
+
#{y\ 2904}#
+
#{r\ 2852}#
+
#{maps\ 2853}#
+
#{ellipsis?\ 2854}#
+
#{mod\ 2855}#))
+ (lambda
(#{y\ 2930}#
+
#{maps\ 2931}#)
(call-with-values
(lambda ()
-
(#{k\ 15542}#
-
#{maps\ 15568}#))
-
(lambda (#{x\ 15571}#
-
#{maps\ 15572}#)
+
(#{k\ 2905}#
+
#{maps\ 2931}#))
+
(lambda (#{x\ 2934}#
+
#{maps\ 2935}#)
(values
-
(#{gen-append\ 15389}#
-
#{x\ 15571}#
-
#{y\ 15567}#)
-
#{maps\ 15572}#))))))
- #{tmp\
15549}#)))
+
(#{gen-append\ 2752}#
+
#{x\ 2934}#
+
#{y\ 2930}#)
+
#{maps\ 2935}#))))))
+ #{tmp\
2912}#)))
($sc-dispatch
- #{tmp\ 15549}#
+ #{tmp\ 2912}#
'(any . any))))
- #{y\ 15541}#))))
- (#{f\ 15540}#
- #{y\ 15536}#
- (lambda (#{maps\ 15543}#)
+ #{y\ 2904}#))))
+ (#{f\ 2903}#
+ #{y\ 2899}#
+ (lambda (#{maps\ 2906}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- #{x\ 15534}#
- #{r\ 15489}#
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{x\ 2897}#
+ #{r\ 2852}#
(cons '()
- #{maps\ 15543}#)
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#))
- (lambda (#{x\ 15545}#
- #{maps\ 15546}#)
- (if (null? (car #{maps\
15546}#))
+ #{maps\ 2906}#)
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#))
+ (lambda (#{x\ 2908}#
+ #{maps\ 2909}#)
+ (if (null? (car #{maps\
2909}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 15487}#)
+ #{src\ 2850}#)
(values
- (#{gen-map\ 15385}#
- #{x\ 15545}#
- (car #{maps\
15546}#))
- (cdr #{maps\
15546}#)))))))))
- #{tmp\ 15524}#)
- ((lambda (#{tmp\ 15575}#)
- (if #{tmp\ 15575}#
- (apply (lambda (#{x\ 15578}#
- #{y\ 15579}#)
+ (#{gen-map\ 2748}#
+ #{x\ 2908}#
+ (car #{maps\
2909}#))
+ (cdr #{maps\
2909}#)))))))))
+ #{tmp\ 2887}#)
+ ((lambda (#{tmp\ 2938}#)
+ (if #{tmp\ 2938}#
+ (apply (lambda (#{x\ 2941}#
+ #{y\ 2942}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- #{x\ 15578}#
- #{r\ 15489}#
- #{maps\ 15490}#
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#))
- (lambda (#{x\ 15580}#
- #{maps\ 15581}#)
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{x\ 2941}#
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#))
+ (lambda (#{x\ 2943}#
+ #{maps\ 2944}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
15379}#
- #{src\ 15487}#
- #{y\ 15579}#
- #{r\ 15489}#
- #{maps\ 15581}#
- #{ellipsis?\
15491}#
- #{mod\ 15492}#))
- (lambda (#{y\ 15584}#
- #{maps\
15585}#)
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{y\ 2942}#
+ #{r\ 2852}#
+ #{maps\ 2944}#
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#))
+ (lambda (#{y\ 2947}#
+ #{maps\
2948}#)
(values
- (#{gen-cons\
15387}#
- #{x\ 15580}#
- #{y\ 15584}#)
- #{maps\
15585}#))))))
- #{tmp\ 15575}#)
- ((lambda (#{tmp\ 15588}#)
- (if #{tmp\ 15588}#
- (apply (lambda (#{e1\ 15591}#
- #{e2\ 15592}#)
+ (#{gen-cons\ 2750}#
+ #{x\ 2943}#
+ #{y\ 2947}#)
+ #{maps\
2948}#))))))
+ #{tmp\ 2938}#)
+ ((lambda (#{tmp\ 2951}#)
+ (if #{tmp\ 2951}#
+ (apply (lambda (#{e1\ 2954}#
+ #{e2\ 2955}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
15379}#
- #{src\ 15487}#
- (cons #{e1\
15591}#
- #{e2\
15592}#)
- #{r\ 15489}#
- #{maps\ 15490}#
- #{ellipsis?\
15491}#
- #{mod\ 15492}#))
- (lambda (#{e\ 15594}#
- #{maps\
15595}#)
+ (#{gen-syntax\
2742}#
+ #{src\ 2850}#
+ (cons #{e1\ 2954}#
+ #{e2\
2955}#)
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ #{ellipsis?\
2854}#
+ #{mod\ 2855}#))
+ (lambda (#{e\ 2957}#
+ #{maps\
2958}#)
(values
- (#{gen-vector\
15391}#
- #{e\ 15594}#)
- #{maps\
15595}#))))
- #{tmp\ 15588}#)
- ((lambda (#{_\ 15599}#)
+ (#{gen-vector\
2754}#
+ #{e\ 2957}#)
+ #{maps\ 2958}#))))
+ #{tmp\ 2951}#)
+ ((lambda (#{_\ 2962}#)
(values
(list 'quote
- #{e\ 15488}#)
- #{maps\ 15490}#))
- #{tmp\ 15512}#)))
+ #{e\ 2851}#)
+ #{maps\ 2853}#))
+ #{tmp\ 2875}#)))
($sc-dispatch
- #{tmp\ 15512}#
+ #{tmp\ 2875}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 15512}#
+ #{tmp\ 2875}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 15512}#
+ #{tmp\ 2875}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 15512}# (quote (any any)))))
- #{e\ 15488}#)))))
- (lambda (#{e\ 15601}#
- #{r\ 15602}#
- #{w\ 15603}#
- #{s\ 15604}#
- #{mod\ 15605}#)
- (let ((#{e\ 15612}#
- (#{source-wrap\ 12987}#
- #{e\ 15601}#
- #{w\ 15603}#
- #{s\ 15604}#
- #{mod\ 15605}#)))
- ((lambda (#{tmp\ 15613}#)
- ((lambda (#{tmp\ 15614}#)
- (if #{tmp\ 15614}#
- (apply (lambda (#{_\ 15617}# #{x\ 15618}#)
+ ($sc-dispatch #{tmp\ 2875}# (quote (any any)))))
+ #{e\ 2851}#)))))
+ (lambda (#{e\ 2964}#
+ #{r\ 2965}#
+ #{w\ 2966}#
+ #{s\ 2967}#
+ #{mod\ 2968}#)
+ (let ((#{e\ 2975}#
+ (#{source-wrap\ 378}#
+ #{e\ 2964}#
+ #{w\ 2966}#
+ #{s\ 2967}#
+ #{mod\ 2968}#)))
+ ((lambda (#{tmp\ 2976}#)
+ ((lambda (#{tmp\ 2977}#)
+ (if #{tmp\ 2977}#
+ (apply (lambda (#{_\ 2980}# #{x\ 2981}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{e\ 15612}#
- #{x\ 15618}#
- #{r\ 15602}#
+ (#{gen-syntax\ 2742}#
+ #{e\ 2975}#
+ #{x\ 2981}#
+ #{r\ 2965}#
'()
- #{ellipsis?\ 13017}#
- #{mod\ 15605}#))
- (lambda (#{e\ 15619}# #{maps\ 15620}#)
- (#{regen\ 15393}# #{e\ 15619}#))))
- #{tmp\ 15614}#)
- ((lambda (#{_\ 15624}#)
+ #{ellipsis?\ 408}#
+ #{mod\ 2968}#))
+ (lambda (#{e\ 2982}# #{maps\ 2983}#)
+ (#{regen\ 2756}# #{e\ 2982}#))))
+ #{tmp\ 2977}#)
+ ((lambda (#{_\ 2987}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 15612}#))
- #{tmp\ 15613}#)))
- ($sc-dispatch #{tmp\ 15613}# (quote (any any)))))
- #{e\ 15612}#)))))
- (#{global-extend\ 12912}#
+ #{e\ 2975}#))
+ #{tmp\ 2976}#)))
+ ($sc-dispatch #{tmp\ 2976}# (quote (any any)))))
+ #{e\ 2975}#)))))
+ (#{global-extend\ 303}#
'core
'lambda
- (lambda (#{e\ 15625}#
- #{r\ 15626}#
- #{w\ 15627}#
- #{s\ 15628}#
- #{mod\ 15629}#)
- ((lambda (#{tmp\ 15635}#)
- ((lambda (#{tmp\ 15636}#)
- (if #{tmp\ 15636}#
- (apply (lambda (#{_\ 15641}#
- #{args\ 15642}#
- #{e1\ 15643}#
- #{e2\ 15644}#)
+ (lambda (#{e\ 2988}#
+ #{r\ 2989}#
+ #{w\ 2990}#
+ #{s\ 2991}#
+ #{mod\ 2992}#)
+ ((lambda (#{tmp\ 2998}#)
+ ((lambda (#{tmp\ 2999}#)
+ (if #{tmp\ 2999}#
+ (apply (lambda (#{_\ 3004}#
+ #{args\ 3005}#
+ #{e1\ 3006}#
+ #{e2\ 3007}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 13019}# #{args\ 15642}#))
- (lambda (#{req\ 15645}#
- #{opt\ 15646}#
- #{rest\ 15647}#
- #{kw\ 15648}#)
- (letrec ((#{lp\ 15656}#
- (lambda (#{body\ 15657}#
- #{meta\ 15658}#)
- ((lambda (#{tmp\ 15660}#)
- ((lambda (#{tmp\ 15661}#)
- (if (if #{tmp\ 15661}#
- (apply (lambda
(#{docstring\ 15665}#
- #{e1\
15666}#
- #{e2\
15667}#)
+ (#{lambda-formals\ 410}# #{args\ 3005}#))
+ (lambda (#{req\ 3008}#
+ #{opt\ 3009}#
+ #{rest\ 3010}#
+ #{kw\ 3011}#)
+ (letrec ((#{lp\ 3019}#
+ (lambda (#{body\ 3020}#
+ #{meta\ 3021}#)
+ ((lambda (#{tmp\ 3023}#)
+ ((lambda (#{tmp\ 3024}#)
+ (if (if #{tmp\ 3024}#
+ (apply (lambda
(#{docstring\ 3028}#
+ #{e1\
3029}#
+ #{e2\
3030}#)
(string?
(syntax->datum
-
#{docstring\ 15665}#)))
- #{tmp\ 15661}#)
+
#{docstring\ 3028}#)))
+ #{tmp\ 3024}#)
#f)
- (apply (lambda
(#{docstring\ 15671}#
- #{e1\
15672}#
- #{e2\
15673}#)
- (#{lp\ 15656}#
- (cons #{e1\
15672}#
- #{e2\
15673}#)
+ (apply (lambda
(#{docstring\ 3034}#
+ #{e1\
3035}#
+ #{e2\
3036}#)
+ (#{lp\ 3019}#
+ (cons #{e1\
3035}#
+ #{e2\
3036}#)
(append
- #{meta\
15658}#
+ #{meta\ 3021}#
(list (cons
'documentation
(syntax->datum
-
#{docstring\ 15671}#))))))
- #{tmp\ 15661}#)
- ((lambda (#{tmp\ 15676}#)
- (if #{tmp\ 15676}#
- (apply (lambda (#{k\
15681}#
- #{v\
15682}#
- #{e1\
15683}#
- #{e2\
15684}#)
- (#{lp\
15656}#
- (cons
#{e1\ 15683}#
-
#{e2\ 15684}#)
+
#{docstring\ 3034}#))))))
+ #{tmp\ 3024}#)
+ ((lambda (#{tmp\ 3039}#)
+ (if #{tmp\ 3039}#
+ (apply (lambda (#{k\
3044}#
+ #{v\
3045}#
+ #{e1\
3046}#
+ #{e2\
3047}#)
+ (#{lp\ 3019}#
+ (cons
#{e1\ 3046}#
+
#{e2\ 3047}#)
(append
- #{meta\
15658}#
+ #{meta\
3021}#
(syntax->datum
(map
cons
-
#{k\ 15681}#
-
#{v\ 15682}#)))))
- #{tmp\ 15676}#)
- ((lambda (#{_\
15689}#)
-
(#{chi-simple-lambda\ 13021}#
- #{e\ 15625}#
- #{r\ 15626}#
- #{w\ 15627}#
- #{s\ 15628}#
- #{mod\ 15629}#
- #{req\ 15645}#
- #{rest\ 15647}#
- #{meta\ 15658}#
- #{body\ 15657}#))
- #{tmp\ 15660}#)))
+
#{k\ 3044}#
+
#{v\ 3045}#)))))
+ #{tmp\ 3039}#)
+ ((lambda (#{_\ 3052}#)
+
(#{chi-simple-lambda\ 412}#
+ #{e\ 2988}#
+ #{r\ 2989}#
+ #{w\ 2990}#
+ #{s\ 2991}#
+ #{mod\ 2992}#
+ #{req\ 3008}#
+ #{rest\ 3010}#
+ #{meta\ 3021}#
+ #{body\ 3020}#))
+ #{tmp\ 3023}#)))
($sc-dispatch
- #{tmp\ 15660}#
+ #{tmp\ 3023}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 15660}#
+ #{tmp\ 3023}#
'(any any . each-any))))
- #{body\ 15657}#))))
- (#{lp\ 15656}#
- (cons #{e1\ 15643}# #{e2\ 15644}#)
+ #{body\ 3020}#))))
+ (#{lp\ 3019}#
+ (cons #{e1\ 3006}# #{e2\ 3007}#)
'())))))
- #{tmp\ 15636}#)
- ((lambda (#{_\ 15691}#)
+ #{tmp\ 2999}#)
+ ((lambda (#{_\ 3054}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 15625}#))
- #{tmp\ 15635}#)))
+ #{e\ 2988}#))
+ #{tmp\ 2998}#)))
($sc-dispatch
- #{tmp\ 15635}#
+ #{tmp\ 2998}#
'(any any any . each-any))))
- #{e\ 15625}#)))
- (#{global-extend\ 12912}#
+ #{e\ 2988}#)))
+ (#{global-extend\ 303}#
'core
'lambda*
- (lambda (#{e\ 15692}#
- #{r\ 15693}#
- #{w\ 15694}#
- #{s\ 15695}#
- #{mod\ 15696}#)
- ((lambda (#{tmp\ 15702}#)
- ((lambda (#{tmp\ 15703}#)
- (if #{tmp\ 15703}#
- (apply (lambda (#{_\ 15708}#
- #{args\ 15709}#
- #{e1\ 15710}#
- #{e2\ 15711}#)
+ (lambda (#{e\ 3055}#
+ #{r\ 3056}#
+ #{w\ 3057}#
+ #{s\ 3058}#
+ #{mod\ 3059}#)
+ ((lambda (#{tmp\ 3065}#)
+ ((lambda (#{tmp\ 3066}#)
+ (if #{tmp\ 3066}#
+ (apply (lambda (#{_\ 3071}#
+ #{args\ 3072}#
+ #{e1\ 3073}#
+ #{e2\ 3074}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 13025}#
- #{e\ 15692}#
- #{r\ 15693}#
- #{w\ 15694}#
- #{s\ 15695}#
- #{mod\ 15696}#
- #{lambda*-formals\ 13023}#
- (list (cons #{args\ 15709}#
- (cons #{e1\ 15710}#
- #{e2\ 15711}#)))))
- (lambda (#{meta\ 15713}# #{lcase\ 15714}#)
- (#{build-case-lambda\ 12860}#
- #{s\ 15695}#
- #{meta\ 15713}#
- #{lcase\ 15714}#))))
- #{tmp\ 15703}#)
- ((lambda (#{_\ 15718}#)
+ (#{chi-lambda-case\ 416}#
+ #{e\ 3055}#
+ #{r\ 3056}#
+ #{w\ 3057}#
+ #{s\ 3058}#
+ #{mod\ 3059}#
+ #{lambda*-formals\ 414}#
+ (list (cons #{args\ 3072}#
+ (cons #{e1\ 3073}#
+ #{e2\ 3074}#)))))
+ (lambda (#{meta\ 3076}# #{lcase\ 3077}#)
+ (#{build-case-lambda\ 251}#
+ #{s\ 3058}#
+ #{meta\ 3076}#
+ #{lcase\ 3077}#))))
+ #{tmp\ 3066}#)
+ ((lambda (#{_\ 3081}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 15692}#))
- #{tmp\ 15702}#)))
+ #{e\ 3055}#))
+ #{tmp\ 3065}#)))
($sc-dispatch
- #{tmp\ 15702}#
+ #{tmp\ 3065}#
'(any any any . each-any))))
- #{e\ 15692}#)))
- (#{global-extend\ 12912}#
+ #{e\ 3055}#)))
+ (#{global-extend\ 303}#
'core
'case-lambda
- (lambda (#{e\ 15719}#
- #{r\ 15720}#
- #{w\ 15721}#
- #{s\ 15722}#
- #{mod\ 15723}#)
- ((lambda (#{tmp\ 15729}#)
- ((lambda (#{tmp\ 15730}#)
- (if #{tmp\ 15730}#
- (apply (lambda (#{_\ 15738}#
- #{args\ 15739}#
- #{e1\ 15740}#
- #{e2\ 15741}#
- #{args*\ 15742}#
- #{e1*\ 15743}#
- #{e2*\ 15744}#)
+ (lambda (#{e\ 3082}#
+ #{r\ 3083}#
+ #{w\ 3084}#
+ #{s\ 3085}#
+ #{mod\ 3086}#)
+ ((lambda (#{tmp\ 3092}#)
+ ((lambda (#{tmp\ 3093}#)
+ (if #{tmp\ 3093}#
+ (apply (lambda (#{_\ 3101}#
+ #{args\ 3102}#
+ #{e1\ 3103}#
+ #{e2\ 3104}#
+ #{args*\ 3105}#
+ #{e1*\ 3106}#
+ #{e2*\ 3107}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 13025}#
- #{e\ 15719}#
- #{r\ 15720}#
- #{w\ 15721}#
- #{s\ 15722}#
- #{mod\ 15723}#
- #{lambda-formals\ 13019}#
- (cons (cons #{args\ 15739}#
- (cons #{e1\ 15740}#
- #{e2\ 15741}#))
- (map (lambda (#{tmp\ 15748}#
- #{tmp\ 15747}#
- #{tmp\ 15746}#)
- (cons #{tmp\ 15746}#
- (cons #{tmp\ 15747}#
- #{tmp\ 15748}#)))
- #{e2*\ 15744}#
- #{e1*\ 15743}#
- #{args*\ 15742}#))))
- (lambda (#{meta\ 15750}# #{lcase\ 15751}#)
- (#{build-case-lambda\ 12860}#
- #{s\ 15722}#
- #{meta\ 15750}#
- #{lcase\ 15751}#))))
- #{tmp\ 15730}#)
- ((lambda (#{_\ 15755}#)
+ (#{chi-lambda-case\ 416}#
+ #{e\ 3082}#
+ #{r\ 3083}#
+ #{w\ 3084}#
+ #{s\ 3085}#
+ #{mod\ 3086}#
+ #{lambda-formals\ 410}#
+ (cons (cons #{args\ 3102}#
+ (cons #{e1\ 3103}# #{e2\ 3104}#))
+ (map (lambda (#{tmp\ 3111}#
+ #{tmp\ 3110}#
+ #{tmp\ 3109}#)
+ (cons #{tmp\ 3109}#
+ (cons #{tmp\ 3110}#
+ #{tmp\ 3111}#)))
+ #{e2*\ 3107}#
+ #{e1*\ 3106}#
+ #{args*\ 3105}#))))
+ (lambda (#{meta\ 3113}# #{lcase\ 3114}#)
+ (#{build-case-lambda\ 251}#
+ #{s\ 3085}#
+ #{meta\ 3113}#
+ #{lcase\ 3114}#))))
+ #{tmp\ 3093}#)
+ ((lambda (#{_\ 3118}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 15719}#))
- #{tmp\ 15729}#)))
+ #{e\ 3082}#))
+ #{tmp\ 3092}#)))
($sc-dispatch
- #{tmp\ 15729}#
+ #{tmp\ 3092}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 15719}#)))
- (#{global-extend\ 12912}#
+ #{e\ 3082}#)))
+ (#{global-extend\ 303}#
'core
'case-lambda*
- (lambda (#{e\ 15756}#
- #{r\ 15757}#
- #{w\ 15758}#
- #{s\ 15759}#
- #{mod\ 15760}#)
- ((lambda (#{tmp\ 15766}#)
- ((lambda (#{tmp\ 15767}#)
- (if #{tmp\ 15767}#
- (apply (lambda (#{_\ 15775}#
- #{args\ 15776}#
- #{e1\ 15777}#
- #{e2\ 15778}#
- #{args*\ 15779}#
- #{e1*\ 15780}#
- #{e2*\ 15781}#)
+ (lambda (#{e\ 3119}#
+ #{r\ 3120}#
+ #{w\ 3121}#
+ #{s\ 3122}#
+ #{mod\ 3123}#)
+ ((lambda (#{tmp\ 3129}#)
+ ((lambda (#{tmp\ 3130}#)
+ (if #{tmp\ 3130}#
+ (apply (lambda (#{_\ 3138}#
+ #{args\ 3139}#
+ #{e1\ 3140}#
+ #{e2\ 3141}#
+ #{args*\ 3142}#
+ #{e1*\ 3143}#
+ #{e2*\ 3144}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 13025}#
- #{e\ 15756}#
- #{r\ 15757}#
- #{w\ 15758}#
- #{s\ 15759}#
- #{mod\ 15760}#
- #{lambda*-formals\ 13023}#
- (cons (cons #{args\ 15776}#
- (cons #{e1\ 15777}#
- #{e2\ 15778}#))
- (map (lambda (#{tmp\ 15785}#
- #{tmp\ 15784}#
- #{tmp\ 15783}#)
- (cons #{tmp\ 15783}#
- (cons #{tmp\ 15784}#
- #{tmp\ 15785}#)))
- #{e2*\ 15781}#
- #{e1*\ 15780}#
- #{args*\ 15779}#))))
- (lambda (#{meta\ 15787}# #{lcase\ 15788}#)
- (#{build-case-lambda\ 12860}#
- #{s\ 15759}#
- #{meta\ 15787}#
- #{lcase\ 15788}#))))
- #{tmp\ 15767}#)
- ((lambda (#{_\ 15792}#)
+ (#{chi-lambda-case\ 416}#
+ #{e\ 3119}#
+ #{r\ 3120}#
+ #{w\ 3121}#
+ #{s\ 3122}#
+ #{mod\ 3123}#
+ #{lambda*-formals\ 414}#
+ (cons (cons #{args\ 3139}#
+ (cons #{e1\ 3140}# #{e2\ 3141}#))
+ (map (lambda (#{tmp\ 3148}#
+ #{tmp\ 3147}#
+ #{tmp\ 3146}#)
+ (cons #{tmp\ 3146}#
+ (cons #{tmp\ 3147}#
+ #{tmp\ 3148}#)))
+ #{e2*\ 3144}#
+ #{e1*\ 3143}#
+ #{args*\ 3142}#))))
+ (lambda (#{meta\ 3150}# #{lcase\ 3151}#)
+ (#{build-case-lambda\ 251}#
+ #{s\ 3122}#
+ #{meta\ 3150}#
+ #{lcase\ 3151}#))))
+ #{tmp\ 3130}#)
+ ((lambda (#{_\ 3155}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 15756}#))
- #{tmp\ 15766}#)))
+ #{e\ 3119}#))
+ #{tmp\ 3129}#)))
($sc-dispatch
- #{tmp\ 15766}#
+ #{tmp\ 3129}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 15756}#)))
- (#{global-extend\ 12912}#
+ #{e\ 3119}#)))
+ (#{global-extend\ 303}#
'core
'let
- (letrec ((#{chi-let\ 15794}#
- (lambda (#{e\ 15795}#
- #{r\ 15796}#
- #{w\ 15797}#
- #{s\ 15798}#
- #{mod\ 15799}#
- #{constructor\ 15800}#
- #{ids\ 15801}#
- #{vals\ 15802}#
- #{exps\ 15803}#)
- (if (not (#{valid-bound-ids?\ 12979}# #{ids\ 15801}#))
+ (letrec ((#{chi-let\ 3157}#
+ (lambda (#{e\ 3158}#
+ #{r\ 3159}#
+ #{w\ 3160}#
+ #{s\ 3161}#
+ #{mod\ 3162}#
+ #{constructor\ 3163}#
+ #{ids\ 3164}#
+ #{vals\ 3165}#
+ #{exps\ 3166}#)
+ (if (not (#{valid-bound-ids?\ 370}# #{ids\ 3164}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 15795}#)
- (let ((#{labels\ 15815}#
- (#{gen-labels\ 12934}# #{ids\ 15801}#))
- (#{new-vars\ 15816}#
- (map #{gen-var\ 13029}# #{ids\ 15801}#)))
- (let ((#{nw\ 15819}#
- (#{make-binding-wrap\ 12963}#
- #{ids\ 15801}#
- #{labels\ 15815}#
- #{w\ 15797}#))
- (#{nr\ 15820}#
- (#{extend-var-env\ 12906}#
- #{labels\ 15815}#
- #{new-vars\ 15816}#
- #{r\ 15796}#)))
- (#{constructor\ 15800}#
- #{s\ 15798}#
- (map syntax->datum #{ids\ 15801}#)
- #{new-vars\ 15816}#
- (map (lambda (#{x\ 15821}#)
- (#{chi\ 13001}#
- #{x\ 15821}#
- #{r\ 15796}#
- #{w\ 15797}#
- #{mod\ 15799}#))
- #{vals\ 15802}#)
- (#{chi-body\ 13009}#
- #{exps\ 15803}#
- (#{source-wrap\ 12987}#
- #{e\ 15795}#
- #{nw\ 15819}#
- #{s\ 15798}#
- #{mod\ 15799}#)
- #{nr\ 15820}#
- #{nw\ 15819}#
- #{mod\ 15799}#))))))))
- (lambda (#{e\ 15823}#
- #{r\ 15824}#
- #{w\ 15825}#
- #{s\ 15826}#
- #{mod\ 15827}#)
- ((lambda (#{tmp\ 15833}#)
- ((lambda (#{tmp\ 15834}#)
- (if (if #{tmp\ 15834}#
- (apply (lambda (#{_\ 15840}#
- #{id\ 15841}#
- #{val\ 15842}#
- #{e1\ 15843}#
- #{e2\ 15844}#)
- (and-map #{id?\ 12916}# #{id\ 15841}#))
- #{tmp\ 15834}#)
+ #{e\ 3158}#)
+ (let ((#{labels\ 3178}#
+ (#{gen-labels\ 325}# #{ids\ 3164}#))
+ (#{new-vars\ 3179}#
+ (map #{gen-var\ 420}# #{ids\ 3164}#)))
+ (let ((#{nw\ 3182}#
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 3164}#
+ #{labels\ 3178}#
+ #{w\ 3160}#))
+ (#{nr\ 3183}#
+ (#{extend-var-env\ 297}#
+ #{labels\ 3178}#
+ #{new-vars\ 3179}#
+ #{r\ 3159}#)))
+ (#{constructor\ 3163}#
+ #{s\ 3161}#
+ (map syntax->datum #{ids\ 3164}#)
+ #{new-vars\ 3179}#
+ (map (lambda (#{x\ 3184}#)
+ (#{chi\ 392}#
+ #{x\ 3184}#
+ #{r\ 3159}#
+ #{w\ 3160}#
+ #{mod\ 3162}#))
+ #{vals\ 3165}#)
+ (#{chi-body\ 400}#
+ #{exps\ 3166}#
+ (#{source-wrap\ 378}#
+ #{e\ 3158}#
+ #{nw\ 3182}#
+ #{s\ 3161}#
+ #{mod\ 3162}#)
+ #{nr\ 3183}#
+ #{nw\ 3182}#
+ #{mod\ 3162}#))))))))
+ (lambda (#{e\ 3186}#
+ #{r\ 3187}#
+ #{w\ 3188}#
+ #{s\ 3189}#
+ #{mod\ 3190}#)
+ ((lambda (#{tmp\ 3196}#)
+ ((lambda (#{tmp\ 3197}#)
+ (if (if #{tmp\ 3197}#
+ (apply (lambda (#{_\ 3203}#
+ #{id\ 3204}#
+ #{val\ 3205}#
+ #{e1\ 3206}#
+ #{e2\ 3207}#)
+ (and-map #{id?\ 307}# #{id\ 3204}#))
+ #{tmp\ 3197}#)
#f)
- (apply (lambda (#{_\ 15851}#
- #{id\ 15852}#
- #{val\ 15853}#
- #{e1\ 15854}#
- #{e2\ 15855}#)
- (#{chi-let\ 15794}#
- #{e\ 15823}#
- #{r\ 15824}#
- #{w\ 15825}#
- #{s\ 15826}#
- #{mod\ 15827}#
- #{build-let\ 12870}#
- #{id\ 15852}#
- #{val\ 15853}#
- (cons #{e1\ 15854}# #{e2\ 15855}#)))
- #{tmp\ 15834}#)
- ((lambda (#{tmp\ 15859}#)
- (if (if #{tmp\ 15859}#
- (apply (lambda (#{_\ 15866}#
- #{f\ 15867}#
- #{id\ 15868}#
- #{val\ 15869}#
- #{e1\ 15870}#
- #{e2\ 15871}#)
- (if (#{id?\ 12916}# #{f\ 15867}#)
- (and-map #{id?\ 12916}# #{id\ 15868}#)
+ (apply (lambda (#{_\ 3214}#
+ #{id\ 3215}#
+ #{val\ 3216}#
+ #{e1\ 3217}#
+ #{e2\ 3218}#)
+ (#{chi-let\ 3157}#
+ #{e\ 3186}#
+ #{r\ 3187}#
+ #{w\ 3188}#
+ #{s\ 3189}#
+ #{mod\ 3190}#
+ #{build-let\ 261}#
+ #{id\ 3215}#
+ #{val\ 3216}#
+ (cons #{e1\ 3217}# #{e2\ 3218}#)))
+ #{tmp\ 3197}#)
+ ((lambda (#{tmp\ 3222}#)
+ (if (if #{tmp\ 3222}#
+ (apply (lambda (#{_\ 3229}#
+ #{f\ 3230}#
+ #{id\ 3231}#
+ #{val\ 3232}#
+ #{e1\ 3233}#
+ #{e2\ 3234}#)
+ (if (#{id?\ 307}# #{f\ 3230}#)
+ (and-map #{id?\ 307}# #{id\ 3231}#)
#f))
- #{tmp\ 15859}#)
+ #{tmp\ 3222}#)
#f)
- (apply (lambda (#{_\ 15881}#
- #{f\ 15882}#
- #{id\ 15883}#
- #{val\ 15884}#
- #{e1\ 15885}#
- #{e2\ 15886}#)
- (#{chi-let\ 15794}#
- #{e\ 15823}#
- #{r\ 15824}#
- #{w\ 15825}#
- #{s\ 15826}#
- #{mod\ 15827}#
- #{build-named-let\ 12872}#
- (cons #{f\ 15882}# #{id\ 15883}#)
- #{val\ 15884}#
- (cons #{e1\ 15885}# #{e2\ 15886}#)))
- #{tmp\ 15859}#)
- ((lambda (#{_\ 15891}#)
+ (apply (lambda (#{_\ 3244}#
+ #{f\ 3245}#
+ #{id\ 3246}#
+ #{val\ 3247}#
+ #{e1\ 3248}#
+ #{e2\ 3249}#)
+ (#{chi-let\ 3157}#
+ #{e\ 3186}#
+ #{r\ 3187}#
+ #{w\ 3188}#
+ #{s\ 3189}#
+ #{mod\ 3190}#
+ #{build-named-let\ 263}#
+ (cons #{f\ 3245}# #{id\ 3246}#)
+ #{val\ 3247}#
+ (cons #{e1\ 3248}# #{e2\ 3249}#)))
+ #{tmp\ 3222}#)
+ ((lambda (#{_\ 3254}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 12987}#
- #{e\ 15823}#
- #{w\ 15825}#
- #{s\ 15826}#
- #{mod\ 15827}#)))
- #{tmp\ 15833}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 3186}#
+ #{w\ 3188}#
+ #{s\ 3189}#
+ #{mod\ 3190}#)))
+ #{tmp\ 3196}#)))
($sc-dispatch
- #{tmp\ 15833}#
+ #{tmp\ 3196}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 15833}#
+ #{tmp\ 3196}#
'(any #(each (any any)) any . each-any))))
- #{e\ 15823}#))))
- (#{global-extend\ 12912}#
+ #{e\ 3186}#))))
+ (#{global-extend\ 303}#
'core
'letrec
- (lambda (#{e\ 15892}#
- #{r\ 15893}#
- #{w\ 15894}#
- #{s\ 15895}#
- #{mod\ 15896}#)
- ((lambda (#{tmp\ 15902}#)
- ((lambda (#{tmp\ 15903}#)
- (if (if #{tmp\ 15903}#
- (apply (lambda (#{_\ 15909}#
- #{id\ 15910}#
- #{val\ 15911}#
- #{e1\ 15912}#
- #{e2\ 15913}#)
- (and-map #{id?\ 12916}# #{id\ 15910}#))
- #{tmp\ 15903}#)
+ (lambda (#{e\ 3255}#
+ #{r\ 3256}#
+ #{w\ 3257}#
+ #{s\ 3258}#
+ #{mod\ 3259}#)
+ ((lambda (#{tmp\ 3265}#)
+ ((lambda (#{tmp\ 3266}#)
+ (if (if #{tmp\ 3266}#
+ (apply (lambda (#{_\ 3272}#
+ #{id\ 3273}#
+ #{val\ 3274}#
+ #{e1\ 3275}#
+ #{e2\ 3276}#)
+ (and-map #{id?\ 307}# #{id\ 3273}#))
+ #{tmp\ 3266}#)
#f)
- (apply (lambda (#{_\ 15920}#
- #{id\ 15921}#
- #{val\ 15922}#
- #{e1\ 15923}#
- #{e2\ 15924}#)
- (let ((#{ids\ 15926}# #{id\ 15921}#))
- (if (not (#{valid-bound-ids?\ 12979}#
- #{ids\ 15926}#))
+ (apply (lambda (#{_\ 3283}#
+ #{id\ 3284}#
+ #{val\ 3285}#
+ #{e1\ 3286}#
+ #{e2\ 3287}#)
+ (let ((#{ids\ 3289}# #{id\ 3284}#))
+ (if (not (#{valid-bound-ids?\ 370}#
+ #{ids\ 3289}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 15892}#)
- (let ((#{labels\ 15930}#
- (#{gen-labels\ 12934}# #{ids\ 15926}#))
- (#{new-vars\ 15931}#
- (map #{gen-var\ 13029}#
- #{ids\ 15926}#)))
- (let ((#{w\ 15934}#
- (#{make-binding-wrap\ 12963}#
- #{ids\ 15926}#
- #{labels\ 15930}#
- #{w\ 15894}#))
- (#{r\ 15935}#
- (#{extend-var-env\ 12906}#
- #{labels\ 15930}#
- #{new-vars\ 15931}#
- #{r\ 15893}#)))
- (#{build-letrec\ 12874}#
- #{s\ 15895}#
- (map syntax->datum #{ids\ 15926}#)
- #{new-vars\ 15931}#
- (map (lambda (#{x\ 15936}#)
- (#{chi\ 13001}#
- #{x\ 15936}#
- #{r\ 15935}#
- #{w\ 15934}#
- #{mod\ 15896}#))
- #{val\ 15922}#)
- (#{chi-body\ 13009}#
- (cons #{e1\ 15923}# #{e2\ 15924}#)
- (#{source-wrap\ 12987}#
- #{e\ 15892}#
- #{w\ 15934}#
- #{s\ 15895}#
- #{mod\ 15896}#)
- #{r\ 15935}#
- #{w\ 15934}#
- #{mod\ 15896}#)))))))
- #{tmp\ 15903}#)
- ((lambda (#{_\ 15941}#)
+ #{e\ 3255}#)
+ (let ((#{labels\ 3293}#
+ (#{gen-labels\ 325}# #{ids\ 3289}#))
+ (#{new-vars\ 3294}#
+ (map #{gen-var\ 420}# #{ids\ 3289}#)))
+ (let ((#{w\ 3297}#
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 3289}#
+ #{labels\ 3293}#
+ #{w\ 3257}#))
+ (#{r\ 3298}#
+ (#{extend-var-env\ 297}#
+ #{labels\ 3293}#
+ #{new-vars\ 3294}#
+ #{r\ 3256}#)))
+ (#{build-letrec\ 265}#
+ #{s\ 3258}#
+ (map syntax->datum #{ids\ 3289}#)
+ #{new-vars\ 3294}#
+ (map (lambda (#{x\ 3299}#)
+ (#{chi\ 392}#
+ #{x\ 3299}#
+ #{r\ 3298}#
+ #{w\ 3297}#
+ #{mod\ 3259}#))
+ #{val\ 3285}#)
+ (#{chi-body\ 400}#
+ (cons #{e1\ 3286}# #{e2\ 3287}#)
+ (#{source-wrap\ 378}#
+ #{e\ 3255}#
+ #{w\ 3297}#
+ #{s\ 3258}#
+ #{mod\ 3259}#)
+ #{r\ 3298}#
+ #{w\ 3297}#
+ #{mod\ 3259}#)))))))
+ #{tmp\ 3266}#)
+ ((lambda (#{_\ 3304}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 12987}#
- #{e\ 15892}#
- #{w\ 15894}#
- #{s\ 15895}#
- #{mod\ 15896}#)))
- #{tmp\ 15902}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 3255}#
+ #{w\ 3257}#
+ #{s\ 3258}#
+ #{mod\ 3259}#)))
+ #{tmp\ 3265}#)))
($sc-dispatch
- #{tmp\ 15902}#
+ #{tmp\ 3265}#
'(any #(each (any any)) any . each-any))))
- #{e\ 15892}#)))
- (#{global-extend\ 12912}#
+ #{e\ 3255}#)))
+ (#{global-extend\ 303}#
'core
'set!
- (lambda (#{e\ 15942}#
- #{r\ 15943}#
- #{w\ 15944}#
- #{s\ 15945}#
- #{mod\ 15946}#)
- ((lambda (#{tmp\ 15952}#)
- ((lambda (#{tmp\ 15953}#)
- (if (if #{tmp\ 15953}#
- (apply (lambda (#{_\ 15957}#
- #{id\ 15958}#
- #{val\ 15959}#)
- (#{id?\ 12916}# #{id\ 15958}#))
- #{tmp\ 15953}#)
+ (lambda (#{e\ 3305}#
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{s\ 3308}#
+ #{mod\ 3309}#)
+ ((lambda (#{tmp\ 3315}#)
+ ((lambda (#{tmp\ 3316}#)
+ (if (if #{tmp\ 3316}#
+ (apply (lambda (#{_\ 3320}# #{id\ 3321}# #{val\ 3322}#)
+ (#{id?\ 307}# #{id\ 3321}#))
+ #{tmp\ 3316}#)
#f)
- (apply (lambda (#{_\ 15963}# #{id\ 15964}# #{val\ 15965}#)
- (let ((#{val\ 15968}#
- (#{chi\ 13001}#
- #{val\ 15965}#
- #{r\ 15943}#
- #{w\ 15944}#
- #{mod\ 15946}#))
- (#{n\ 15969}#
- (#{id-var-name\ 12973}#
- #{id\ 15964}#
- #{w\ 15944}#)))
- (let ((#{b\ 15971}#
- (#{lookup\ 12910}#
- #{n\ 15969}#
- #{r\ 15943}#
- #{mod\ 15946}#)))
- (let ((#{atom-key\ 15974}#
- (#{binding-type\ 12899}# #{b\ 15971}#)))
- (if (memv #{atom-key\ 15974}#
+ (apply (lambda (#{_\ 3326}# #{id\ 3327}# #{val\ 3328}#)
+ (let ((#{val\ 3331}#
+ (#{chi\ 392}#
+ #{val\ 3328}#
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{mod\ 3309}#))
+ (#{n\ 3332}#
+ (#{id-var-name\ 364}#
+ #{id\ 3327}#
+ #{w\ 3307}#)))
+ (let ((#{b\ 3334}#
+ (#{lookup\ 301}#
+ #{n\ 3332}#
+ #{r\ 3306}#
+ #{mod\ 3309}#)))
+ (let ((#{atom-key\ 3337}#
+ (#{binding-type\ 290}# #{b\ 3334}#)))
+ (if (memv #{atom-key\ 3337}#
'(lexical))
- (#{build-lexical-assignment\ 12846}#
- #{s\ 15945}#
- (syntax->datum #{id\ 15964}#)
- (#{binding-value\ 12901}# #{b\ 15971}#)
- #{val\ 15968}#)
- (if (memv #{atom-key\ 15974}#
+ (#{build-lexical-assignment\ 237}#
+ #{s\ 3308}#
+ (syntax->datum #{id\ 3327}#)
+ (#{binding-value\ 292}# #{b\ 3334}#)
+ #{val\ 3331}#)
+ (if (memv #{atom-key\ 3337}#
'(global))
- (#{build-global-assignment\ 12852}#
- #{s\ 15945}#
- #{n\ 15969}#
- #{val\ 15968}#
- #{mod\ 15946}#)
- (if (memv #{atom-key\ 15974}#
+ (#{build-global-assignment\ 243}#
+ #{s\ 3308}#
+ #{n\ 3332}#
+ #{val\ 3331}#
+ #{mod\ 3309}#)
+ (if (memv #{atom-key\ 3337}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 12985}#
- #{id\ 15964}#
- #{w\ 15944}#
- #{mod\ 15946}#))
+ (#{wrap\ 376}#
+ #{id\ 3327}#
+ #{w\ 3307}#
+ #{mod\ 3309}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 12987}#
- #{e\ 15942}#
- #{w\ 15944}#
- #{s\ 15945}#
- #{mod\ 15946}#)))))))))
- #{tmp\ 15953}#)
- ((lambda (#{tmp\ 15979}#)
- (if #{tmp\ 15979}#
- (apply (lambda (#{_\ 15984}#
- #{head\ 15985}#
- #{tail\ 15986}#
- #{val\ 15987}#)
+ (#{source-wrap\ 378}#
+ #{e\ 3305}#
+ #{w\ 3307}#
+ #{s\ 3308}#
+ #{mod\ 3309}#)))))))))
+ #{tmp\ 3316}#)
+ ((lambda (#{tmp\ 3342}#)
+ (if #{tmp\ 3342}#
+ (apply (lambda (#{_\ 3347}#
+ #{head\ 3348}#
+ #{tail\ 3349}#
+ #{val\ 3350}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{head\ 15985}#
- #{r\ 15943}#
+ (#{syntax-type\ 388}#
+ #{head\ 3348}#
+ #{r\ 3306}#
'(())
#f
#f
- #{mod\ 15946}#
+ #{mod\ 3309}#
#t))
- (lambda (#{type\ 15990}#
- #{value\ 15991}#
- #{ee\ 15992}#
- #{ww\ 15993}#
- #{ss\ 15994}#
- #{modmod\ 15995}#)
- (if (memv #{type\ 15990}#
+ (lambda (#{type\ 3353}#
+ #{value\ 3354}#
+ #{ee\ 3355}#
+ #{ww\ 3356}#
+ #{ss\ 3357}#
+ #{modmod\ 3358}#)
+ (if (memv #{type\ 3353}#
'(module-ref))
- (let ((#{val\ 16004}#
- (#{chi\ 13001}#
- #{val\ 15987}#
- #{r\ 15943}#
- #{w\ 15944}#
- #{mod\ 15946}#)))
+ (let ((#{val\ 3367}#
+ (#{chi\ 392}#
+ #{val\ 3350}#
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{mod\ 3309}#)))
(call-with-values
(lambda ()
- (#{value\ 15991}#
- (cons #{head\ 15985}#
- #{tail\ 15986}#)
- #{r\ 15943}#
- #{w\ 15944}#))
- (lambda (#{e\ 16006}#
- #{r\ 16007}#
- #{w\ 16008}#
- #{s*\ 16009}#
- #{mod\ 16010}#)
- ((lambda (#{tmp\ 16016}#)
- ((lambda (#{tmp\ 16017}#)
- (if (if #{tmp\ 16017}#
- (apply (lambda (#{e\
16019}#)
- (#{id?\
12916}#
- #{e\
16019}#))
- #{tmp\ 16017}#)
+ (#{value\ 3354}#
+ (cons #{head\ 3348}#
+ #{tail\ 3349}#)
+ #{r\ 3306}#
+ #{w\ 3307}#))
+ (lambda (#{e\ 3369}#
+ #{r\ 3370}#
+ #{w\ 3371}#
+ #{s*\ 3372}#
+ #{mod\ 3373}#)
+ ((lambda (#{tmp\ 3379}#)
+ ((lambda (#{tmp\ 3380}#)
+ (if (if #{tmp\ 3380}#
+ (apply (lambda (#{e\
3382}#)
+ (#{id?\ 307}#
+ #{e\
3382}#))
+ #{tmp\ 3380}#)
#f)
- (apply (lambda (#{e\
16021}#)
-
(#{build-global-assignment\ 12852}#
- #{s\ 15945}#
+ (apply (lambda (#{e\
3384}#)
+
(#{build-global-assignment\ 243}#
+ #{s\ 3308}#
(syntax->datum
- #{e\ 16021}#)
- #{val\ 16004}#
- #{mod\ 16010}#))
- #{tmp\ 16017}#)
+ #{e\ 3384}#)
+ #{val\ 3367}#
+ #{mod\ 3373}#))
+ #{tmp\ 3380}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 16016}#)))
- (list #{tmp\ 16016}#)))
- #{e\ 16006}#))))
- (#{build-application\ 12838}#
- #{s\ 15945}#
- (#{chi\ 13001}#
+ #{tmp\ 3379}#)))
+ (list #{tmp\ 3379}#)))
+ #{e\ 3369}#))))
+ (#{build-application\ 229}#
+ #{s\ 3308}#
+ (#{chi\ 392}#
(list '#(syntax-object
setter
((top)
@@ -10110,22 +9910,22 @@
(top)
(top)
(top))
- #("i15996"
- "i15997"
- "i15998"
- "i15999"
- "i16000"
- "i16001"))
+ #("i3359"
+ "i3360"
+ "i3361"
+ "i3362"
+ "i3363"
+ "i3364"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i15980"
- "i15981"
- "i15982"
- "i15983"))
+ #("i3343"
+ "i3344"
+ "i3345"
+ "i3346"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10134,11 +9934,11 @@
(top)
(top)
(top))
- #("i15947"
- "i15948"
- "i15949"
- "i15950"
- "i15951"))
+ #("i3310"
+ "i3311"
+ "i3312"
+ "i3313"
+ "i3314"))
#(ribcage
(lambda-var-list
gen-var
@@ -10273,8 +10073,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -10408,203 +10207,197 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i22" "i21" "i19")))
(hygiene guile))
- #{head\ 15985}#)
- #{r\ 15943}#
- #{w\ 15944}#
- #{mod\ 15946}#)
- (map (lambda (#{e\ 16023}#)
- (#{chi\ 13001}#
- #{e\ 16023}#
- #{r\ 15943}#
- #{w\ 15944}#
- #{mod\ 15946}#))
+ #{head\ 3348}#)
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{mod\ 3309}#)
+ (map (lambda (#{e\ 3386}#)
+ (#{chi\ 392}#
+ #{e\ 3386}#
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{mod\ 3309}#))
(append
- #{tail\ 15986}#
- (list #{val\ 15987}#))))))))
- #{tmp\ 15979}#)
- ((lambda (#{_\ 16027}#)
+ #{tail\ 3349}#
+ (list #{val\ 3350}#))))))))
+ #{tmp\ 3342}#)
+ ((lambda (#{_\ 3390}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 12987}#
- #{e\ 15942}#
- #{w\ 15944}#
- #{s\ 15945}#
- #{mod\ 15946}#)))
- #{tmp\ 15952}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 3305}#
+ #{w\ 3307}#
+ #{s\ 3308}#
+ #{mod\ 3309}#)))
+ #{tmp\ 3315}#)))
($sc-dispatch
- #{tmp\ 15952}#
+ #{tmp\ 3315}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 15952}#
+ #{tmp\ 3315}#
'(any any any))))
- #{e\ 15942}#)))
- (#{global-extend\ 12912}#
+ #{e\ 3305}#)))
+ (#{global-extend\ 303}#
'module-ref
'@
- (lambda (#{e\ 16028}# #{r\ 16029}# #{w\ 16030}#)
- ((lambda (#{tmp\ 16034}#)
- ((lambda (#{tmp\ 16035}#)
- (if (if #{tmp\ 16035}#
- (apply (lambda (#{_\ 16039}#
- #{mod\ 16040}#
- #{id\ 16041}#)
- (if (and-map #{id?\ 12916}# #{mod\ 16040}#)
- (#{id?\ 12916}# #{id\ 16041}#)
+ (lambda (#{e\ 3391}# #{r\ 3392}# #{w\ 3393}#)
+ ((lambda (#{tmp\ 3397}#)
+ ((lambda (#{tmp\ 3398}#)
+ (if (if #{tmp\ 3398}#
+ (apply (lambda (#{_\ 3402}# #{mod\ 3403}# #{id\ 3404}#)
+ (if (and-map #{id?\ 307}# #{mod\ 3403}#)
+ (#{id?\ 307}# #{id\ 3404}#)
#f))
- #{tmp\ 16035}#)
+ #{tmp\ 3398}#)
#f)
- (apply (lambda (#{_\ 16048}# #{mod\ 16049}# #{id\ 16050}#)
+ (apply (lambda (#{_\ 3411}# #{mod\ 3412}# #{id\ 3413}#)
(values
- (syntax->datum #{id\ 16050}#)
- #{r\ 16029}#
- #{w\ 16030}#
+ (syntax->datum #{id\ 3413}#)
+ #{r\ 3392}#
+ #{w\ 3393}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10613,12 +10406,12 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i16045" "i16046" "i16047"))
+ #("i3408" "i3409" "i3410"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i16031" "i16032" "i16033"))
+ #("i3394" "i3395" "i3396"))
#(ribcage
(lambda-var-list
gen-var
@@ -10753,8 +10546,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -10888,216 +10680,213 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629" "i12628" "i12626")))
+ ("i22" "i21" "i19")))
(hygiene guile))
- #{mod\ 16049}#))))
- #{tmp\ 16035}#)
+ #{mod\ 3412}#))))
+ #{tmp\ 3398}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16034}#)))
+ #{tmp\ 3397}#)))
($sc-dispatch
- #{tmp\ 16034}#
+ #{tmp\ 3397}#
'(any each-any any))))
- #{e\ 16028}#)))
- (#{global-extend\ 12912}#
+ #{e\ 3391}#)))
+ (#{global-extend\ 303}#
'module-ref
'@@
- (lambda (#{e\ 16052}# #{r\ 16053}# #{w\ 16054}#)
- (letrec ((#{remodulate\ 16059}#
- (lambda (#{x\ 16060}# #{mod\ 16061}#)
- (if (pair? #{x\ 16060}#)
- (cons (#{remodulate\ 16059}#
- (car #{x\ 16060}#)
- #{mod\ 16061}#)
- (#{remodulate\ 16059}#
- (cdr #{x\ 16060}#)
- #{mod\ 16061}#))
- (if (#{syntax-object?\ 12880}# #{x\ 16060}#)
- (#{make-syntax-object\ 12878}#
- (#{remodulate\ 16059}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 16060}#)
- #{mod\ 16061}#)
- (#{syntax-object-wrap\ 12884}# #{x\ 16060}#)
- #{mod\ 16061}#)
- (if (vector? #{x\ 16060}#)
- (let ((#{n\ 16072}# (vector-length #{x\ 16060}#)))
- (let ((#{v\ 16074}# (make-vector #{n\ 16072}#)))
- (letrec ((#{loop\ 16077}#
- (lambda (#{i\ 16078}#)
- (if (#{fx=\ 12821}#
- #{i\ 16078}#
- #{n\ 16072}#)
- (begin (if #f #f) #{v\ 16074}#)
+ (lambda (#{e\ 3415}# #{r\ 3416}# #{w\ 3417}#)
+ (letrec ((#{remodulate\ 3422}#
+ (lambda (#{x\ 3423}# #{mod\ 3424}#)
+ (if (pair? #{x\ 3423}#)
+ (cons (#{remodulate\ 3422}#
+ (car #{x\ 3423}#)
+ #{mod\ 3424}#)
+ (#{remodulate\ 3422}#
+ (cdr #{x\ 3423}#)
+ #{mod\ 3424}#))
+ (if (#{syntax-object?\ 271}# #{x\ 3423}#)
+ (#{make-syntax-object\ 269}#
+ (#{remodulate\ 3422}#
+ (#{syntax-object-expression\ 273}# #{x\ 3423}#)
+ #{mod\ 3424}#)
+ (#{syntax-object-wrap\ 275}# #{x\ 3423}#)
+ #{mod\ 3424}#)
+ (if (vector? #{x\ 3423}#)
+ (let ((#{n\ 3435}# (vector-length #{x\ 3423}#)))
+ (let ((#{v\ 3437}# (make-vector #{n\ 3435}#)))
+ (letrec ((#{loop\ 3440}#
+ (lambda (#{i\ 3441}#)
+ (if (#{fx=\ 212}#
+ #{i\ 3441}#
+ #{n\ 3435}#)
+ (begin (if #f #f) #{v\ 3437}#)
(begin
(vector-set!
- #{v\ 16074}#
- #{i\ 16078}#
- (#{remodulate\ 16059}#
+ #{v\ 3437}#
+ #{i\ 3441}#
+ (#{remodulate\ 3422}#
(vector-ref
- #{x\ 16060}#
- #{i\ 16078}#)
- #{mod\ 16061}#))
- (#{loop\ 16077}#
- (#{fx+\ 12817}#
- #{i\ 16078}#
+ #{x\ 3423}#
+ #{i\ 3441}#)
+ #{mod\ 3424}#))
+ (#{loop\ 3440}#
+ (#{fx+\ 208}#
+ #{i\ 3441}#
1)))))))
- (#{loop\ 16077}# 0))))
- #{x\ 16060}#))))))
- ((lambda (#{tmp\ 16082}#)
- ((lambda (#{tmp\ 16083}#)
- (if (if #{tmp\ 16083}#
- (apply (lambda (#{_\ 16087}#
- #{mod\ 16088}#
- #{exp\ 16089}#)
- (and-map #{id?\ 12916}# #{mod\ 16088}#))
- #{tmp\ 16083}#)
+ (#{loop\ 3440}# 0))))
+ #{x\ 3423}#))))))
+ ((lambda (#{tmp\ 3445}#)
+ ((lambda (#{tmp\ 3446}#)
+ (if (if #{tmp\ 3446}#
+ (apply (lambda (#{_\ 3450}#
+ #{mod\ 3451}#
+ #{exp\ 3452}#)
+ (and-map #{id?\ 307}# #{mod\ 3451}#))
+ #{tmp\ 3446}#)
#f)
- (apply (lambda (#{_\ 16094}# #{mod\ 16095}# #{exp\ 16096}#)
- (let ((#{mod\ 16098}#
+ (apply (lambda (#{_\ 3457}# #{mod\ 3458}# #{exp\ 3459}#)
+ (let ((#{mod\ 3461}#
(syntax->datum
(cons '#(syntax-object
private
@@ -11105,19 +10894,15 @@
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i16091"
- "i16092"
- "i16093"))
+ #("i3454" "i3455" "i3456"))
#(ribcage
(remodulate)
((top))
- ("i16058"))
+ ("i3421"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i16055"
- "i16056"
- "i16057"))
+ #("i3418" "i3419" "i3420"))
#(ribcage
(lambda-var-list
gen-var
@@ -11252,8 +11037,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -11387,336 +11171,331 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i22" "i21" "i19")))
(hygiene guile))
- #{mod\ 16095}#))))
+ #{mod\ 3458}#))))
(values
- (#{remodulate\ 16059}#
- #{exp\ 16096}#
- #{mod\ 16098}#)
- #{r\ 16053}#
- #{w\ 16054}#
- (#{source-annotation\ 12895}# #{exp\ 16096}#)
- #{mod\ 16098}#)))
- #{tmp\ 16083}#)
+ (#{remodulate\ 3422}#
+ #{exp\ 3459}#
+ #{mod\ 3461}#)
+ #{r\ 3416}#
+ #{w\ 3417}#
+ (#{source-annotation\ 286}# #{exp\ 3459}#)
+ #{mod\ 3461}#)))
+ #{tmp\ 3446}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16082}#)))
+ #{tmp\ 3445}#)))
($sc-dispatch
- #{tmp\ 16082}#
+ #{tmp\ 3445}#
'(any each-any any))))
- #{e\ 16052}#))))
- (#{global-extend\ 12912}#
+ #{e\ 3415}#))))
+ (#{global-extend\ 303}#
'core
'if
- (lambda (#{e\ 16100}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{s\ 16103}#
- #{mod\ 16104}#)
- ((lambda (#{tmp\ 16110}#)
- ((lambda (#{tmp\ 16111}#)
- (if #{tmp\ 16111}#
- (apply (lambda (#{_\ 16115}# #{test\ 16116}# #{then\ 16117}#)
- (#{build-conditional\ 12840}#
- #{s\ 16103}#
- (#{chi\ 13001}#
- #{test\ 16116}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)
- (#{chi\ 13001}#
- #{then\ 16117}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)
- (#{build-void\ 12836}# #f)))
- #{tmp\ 16111}#)
- ((lambda (#{tmp\ 16119}#)
- (if #{tmp\ 16119}#
- (apply (lambda (#{_\ 16124}#
- #{test\ 16125}#
- #{then\ 16126}#
- #{else\ 16127}#)
- (#{build-conditional\ 12840}#
- #{s\ 16103}#
- (#{chi\ 13001}#
- #{test\ 16125}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)
- (#{chi\ 13001}#
- #{then\ 16126}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)
- (#{chi\ 13001}#
- #{else\ 16127}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)))
- #{tmp\ 16119}#)
+ (lambda (#{e\ 3463}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{s\ 3466}#
+ #{mod\ 3467}#)
+ ((lambda (#{tmp\ 3473}#)
+ ((lambda (#{tmp\ 3474}#)
+ (if #{tmp\ 3474}#
+ (apply (lambda (#{_\ 3478}# #{test\ 3479}# #{then\ 3480}#)
+ (#{build-conditional\ 231}#
+ #{s\ 3466}#
+ (#{chi\ 392}#
+ #{test\ 3479}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{chi\ 392}#
+ #{then\ 3480}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{build-void\ 227}# #f)))
+ #{tmp\ 3474}#)
+ ((lambda (#{tmp\ 3482}#)
+ (if #{tmp\ 3482}#
+ (apply (lambda (#{_\ 3487}#
+ #{test\ 3488}#
+ #{then\ 3489}#
+ #{else\ 3490}#)
+ (#{build-conditional\ 231}#
+ #{s\ 3466}#
+ (#{chi\ 392}#
+ #{test\ 3488}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{chi\ 392}#
+ #{then\ 3489}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{chi\ 392}#
+ #{else\ 3490}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)))
+ #{tmp\ 3482}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16110}#)))
+ #{tmp\ 3473}#)))
($sc-dispatch
- #{tmp\ 16110}#
+ #{tmp\ 3473}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 16110}#
+ #{tmp\ 3473}#
'(any any any))))
- #{e\ 16100}#)))
- (#{global-extend\ 12912}#
+ #{e\ 3463}#)))
+ (#{global-extend\ 303}#
'core
'with-fluids
- (lambda (#{e\ 16128}#
- #{r\ 16129}#
- #{w\ 16130}#
- #{s\ 16131}#
- #{mod\ 16132}#)
- ((lambda (#{tmp\ 16138}#)
- ((lambda (#{tmp\ 16139}#)
- (if #{tmp\ 16139}#
- (apply (lambda (#{_\ 16145}#
- #{fluid\ 16146}#
- #{val\ 16147}#
- #{b\ 16148}#
- #{b*\ 16149}#)
- (#{build-dynlet\ 12842}#
- #{s\ 16131}#
- (map (lambda (#{x\ 16150}#)
- (#{chi\ 13001}#
- #{x\ 16150}#
- #{r\ 16129}#
- #{w\ 16130}#
- #{mod\ 16132}#))
- #{fluid\ 16146}#)
- (map (lambda (#{x\ 16153}#)
- (#{chi\ 13001}#
- #{x\ 16153}#
- #{r\ 16129}#
- #{w\ 16130}#
- #{mod\ 16132}#))
- #{val\ 16147}#)
- (#{chi-body\ 13009}#
- (cons #{b\ 16148}# #{b*\ 16149}#)
- (#{source-wrap\ 12987}#
- #{e\ 16128}#
- #{w\ 16130}#
- #{s\ 16131}#
- #{mod\ 16132}#)
- #{r\ 16129}#
- #{w\ 16130}#
- #{mod\ 16132}#)))
- #{tmp\ 16139}#)
+ (lambda (#{e\ 3491}#
+ #{r\ 3492}#
+ #{w\ 3493}#
+ #{s\ 3494}#
+ #{mod\ 3495}#)
+ ((lambda (#{tmp\ 3501}#)
+ ((lambda (#{tmp\ 3502}#)
+ (if #{tmp\ 3502}#
+ (apply (lambda (#{_\ 3508}#
+ #{fluid\ 3509}#
+ #{val\ 3510}#
+ #{b\ 3511}#
+ #{b*\ 3512}#)
+ (#{build-dynlet\ 233}#
+ #{s\ 3494}#
+ (map (lambda (#{x\ 3513}#)
+ (#{chi\ 392}#
+ #{x\ 3513}#
+ #{r\ 3492}#
+ #{w\ 3493}#
+ #{mod\ 3495}#))
+ #{fluid\ 3509}#)
+ (map (lambda (#{x\ 3516}#)
+ (#{chi\ 392}#
+ #{x\ 3516}#
+ #{r\ 3492}#
+ #{w\ 3493}#
+ #{mod\ 3495}#))
+ #{val\ 3510}#)
+ (#{chi-body\ 400}#
+ (cons #{b\ 3511}# #{b*\ 3512}#)
+ (#{source-wrap\ 378}#
+ #{e\ 3491}#
+ #{w\ 3493}#
+ #{s\ 3494}#
+ #{mod\ 3495}#)
+ #{r\ 3492}#
+ #{w\ 3493}#
+ #{mod\ 3495}#)))
+ #{tmp\ 3502}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16138}#)))
+ #{tmp\ 3501}#)))
($sc-dispatch
- #{tmp\ 16138}#
+ #{tmp\ 3501}#
'(any #(each (any any)) any . each-any))))
- #{e\ 16128}#)))
- (#{global-extend\ 12912}#
+ #{e\ 3491}#)))
+ (#{global-extend\ 303}#
'begin
'begin
'())
- (#{global-extend\ 12912}#
+ (#{global-extend\ 303}#
'define
'define
'())
- (#{global-extend\ 12912}#
+ (#{global-extend\ 303}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 12912}#
+ (#{global-extend\ 303}#
'eval-when
'eval-when
'())
- (#{global-extend\ 12912}#
+ (#{global-extend\ 303}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 16164}#
- (lambda (#{x\ 16165}#
- #{keys\ 16166}#
- #{clauses\ 16167}#
- #{r\ 16168}#
- #{mod\ 16169}#)
- (if (null? #{clauses\ 16167}#)
- (#{build-application\ 12838}#
+ (letrec ((#{gen-syntax-case\ 3527}#
+ (lambda (#{x\ 3528}#
+ #{keys\ 3529}#
+ #{clauses\ 3530}#
+ #{r\ 3531}#
+ #{mod\ 3532}#)
+ (if (null? #{clauses\ 3530}#)
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 255}#
#f
'syntax-violation)
- (list (#{build-data\ 12866}# #f #f)
- (#{build-data\ 12866}#
+ (list (#{build-data\ 257}# #f #f)
+ (#{build-data\ 257}#
#f
"source expression failed to match any
pattern")
- #{x\ 16165}#))
- ((lambda (#{tmp\ 16179}#)
- ((lambda (#{tmp\ 16180}#)
- (if #{tmp\ 16180}#
- (apply (lambda (#{pat\ 16183}# #{exp\ 16184}#)
- (if (if (#{id?\ 12916}# #{pat\ 16183}#)
+ #{x\ 3528}#))
+ ((lambda (#{tmp\ 3542}#)
+ ((lambda (#{tmp\ 3543}#)
+ (if #{tmp\ 3543}#
+ (apply (lambda (#{pat\ 3546}# #{exp\ 3547}#)
+ (if (if (#{id?\ 307}# #{pat\ 3546}#)
(and-map
- (lambda (#{x\ 16187}#)
- (not (#{free-id=?\ 12975}#
- #{pat\ 16183}#
- #{x\ 16187}#)))
+ (lambda (#{x\ 3550}#)
+ (not (#{free-id=?\ 366}#
+ #{pat\ 3546}#
+ #{x\ 3550}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i16181"
- "i16182"))
+ #("i3544" "i3545"))
#(ribcage () () ())
#(ribcage
#(x
@@ -11729,11 +11508,11 @@
(top)
(top)
(top))
- #("i16170"
- "i16171"
- "i16172"
- "i16173"
- "i16174"))
+ #("i3533"
+ "i3534"
+ "i3535"
+ "i3536"
+ "i3537"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11743,10 +11522,10 @@
(top)
(top)
(top))
- ("i16163"
- "i16161"
- "i16159"
- "i16157"))
+ ("i3526"
+ "i3524"
+ "i3522"
+ "i3520"))
#(ribcage
(lambda-var-list
gen-var
@@ -11881,8 +11660,7 @@
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
@@ -12016,1064 +11794,1032 @@
(top)
(top)
(top)
- (top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i22"
+ "i21"
+ "i19")))
(hygiene guile))
- #{keys\ 16166}#))
+ #{keys\ 3529}#))
#f)
- (let ((#{labels\ 16191}#
- (list (#{gen-label\
12932}#)))
- (#{var\ 16192}#
- (#{gen-var\ 13029}#
- #{pat\ 16183}#)))
- (#{build-application\ 12838}#
+ (let ((#{labels\ 3554}#
+ (list (#{gen-label\ 323}#)))
+ (#{var\ 3555}#
+ (#{gen-var\ 420}#
+ #{pat\ 3546}#)))
+ (#{build-application\ 229}#
#f
- (#{build-simple-lambda\ 12858}#
+ (#{build-simple-lambda\ 249}#
#f
(list (syntax->datum
- #{pat\ 16183}#))
+ #{pat\ 3546}#))
#f
- (list #{var\ 16192}#)
+ (list #{var\ 3555}#)
'()
- (#{chi\ 13001}#
- #{exp\ 16184}#
- (#{extend-env\ 12904}#
- #{labels\ 16191}#
+ (#{chi\ 392}#
+ #{exp\ 3547}#
+ (#{extend-env\ 295}#
+ #{labels\ 3554}#
(list (cons 'syntax
- (cons #{var\
16192}#
+ (cons #{var\
3555}#
0)))
- #{r\ 16168}#)
- (#{make-binding-wrap\ 12963}#
- (list #{pat\ 16183}#)
- #{labels\ 16191}#
+ #{r\ 3531}#)
+ (#{make-binding-wrap\ 354}#
+ (list #{pat\ 3546}#)
+ #{labels\ 3554}#
'(()))
- #{mod\ 16169}#))
- (list #{x\ 16165}#)))
- (#{gen-clause\ 16162}#
- #{x\ 16165}#
- #{keys\ 16166}#
- (cdr #{clauses\ 16167}#)
- #{r\ 16168}#
- #{pat\ 16183}#
+ #{mod\ 3532}#))
+ (list #{x\ 3528}#)))
+ (#{gen-clause\ 3525}#
+ #{x\ 3528}#
+ #{keys\ 3529}#
+ (cdr #{clauses\ 3530}#)
+ #{r\ 3531}#
+ #{pat\ 3546}#
#t
- #{exp\ 16184}#
- #{mod\ 16169}#)))
- #{tmp\ 16180}#)
- ((lambda (#{tmp\ 16198}#)
- (if #{tmp\ 16198}#
- (apply (lambda (#{pat\ 16202}#
- #{fender\ 16203}#
- #{exp\ 16204}#)
- (#{gen-clause\ 16162}#
- #{x\ 16165}#
- #{keys\ 16166}#
- (cdr #{clauses\ 16167}#)
- #{r\ 16168}#
- #{pat\ 16202}#
- #{fender\ 16203}#
- #{exp\ 16204}#
- #{mod\ 16169}#))
- #{tmp\ 16198}#)
- ((lambda (#{_\ 16206}#)
+ #{exp\ 3547}#
+ #{mod\ 3532}#)))
+ #{tmp\ 3543}#)
+ ((lambda (#{tmp\ 3561}#)
+ (if #{tmp\ 3561}#
+ (apply (lambda (#{pat\ 3565}#
+ #{fender\ 3566}#
+ #{exp\ 3567}#)
+ (#{gen-clause\ 3525}#
+ #{x\ 3528}#
+ #{keys\ 3529}#
+ (cdr #{clauses\ 3530}#)
+ #{r\ 3531}#
+ #{pat\ 3565}#
+ #{fender\ 3566}#
+ #{exp\ 3567}#
+ #{mod\ 3532}#))
+ #{tmp\ 3561}#)
+ ((lambda (#{_\ 3569}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 16167}#)))
- #{tmp\ 16179}#)))
+ (car #{clauses\ 3530}#)))
+ #{tmp\ 3542}#)))
($sc-dispatch
- #{tmp\ 16179}#
+ #{tmp\ 3542}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 16179}# (quote (any any)))))
- (car #{clauses\ 16167}#)))))
- (#{gen-clause\ 16162}#
- (lambda (#{x\ 16207}#
- #{keys\ 16208}#
- #{clauses\ 16209}#
- #{r\ 16210}#
- #{pat\ 16211}#
- #{fender\ 16212}#
- #{exp\ 16213}#
- #{mod\ 16214}#)
+ ($sc-dispatch #{tmp\ 3542}# (quote (any any)))))
+ (car #{clauses\ 3530}#)))))
+ (#{gen-clause\ 3525}#
+ (lambda (#{x\ 3570}#
+ #{keys\ 3571}#
+ #{clauses\ 3572}#
+ #{r\ 3573}#
+ #{pat\ 3574}#
+ #{fender\ 3575}#
+ #{exp\ 3576}#
+ #{mod\ 3577}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 16158}#
- #{pat\ 16211}#
- #{keys\ 16208}#))
- (lambda (#{p\ 16223}# #{pvars\ 16224}#)
- (if (not (#{distinct-bound-ids?\ 12981}#
- (map car #{pvars\ 16224}#)))
+ (#{convert-pattern\ 3521}#
+ #{pat\ 3574}#
+ #{keys\ 3571}#))
+ (lambda (#{p\ 3586}# #{pvars\ 3587}#)
+ (if (not (#{distinct-bound-ids?\ 372}#
+ (map car #{pvars\ 3587}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 16211}#)
+ #{pat\ 3574}#)
(if (not (and-map
- (lambda (#{x\ 16231}#)
- (not (#{ellipsis?\ 13017}#
- (car #{x\ 16231}#))))
- #{pvars\ 16224}#))
+ (lambda (#{x\ 3594}#)
+ (not (#{ellipsis?\ 408}#
+ (car #{x\ 3594}#))))
+ #{pvars\ 3587}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 16211}#)
- (let ((#{y\ 16235}#
- (#{gen-var\ 13029}# (quote tmp))))
- (#{build-application\ 12838}#
+ #{pat\ 3574}#)
+ (let ((#{y\ 3598}#
+ (#{gen-var\ 420}# (quote tmp))))
+ (#{build-application\ 229}#
#f
- (#{build-simple-lambda\ 12858}#
+ (#{build-simple-lambda\ 249}#
#f
(list (quote tmp))
#f
- (list #{y\ 16235}#)
+ (list #{y\ 3598}#)
'()
- (let ((#{y\ 16239}#
- (#{build-lexical-reference\ 12844}#
+ (let ((#{y\ 3602}#
+ (#{build-lexical-reference\ 235}#
'value
#f
'tmp
- #{y\ 16235}#)))
- (#{build-conditional\ 12840}#
+ #{y\ 3598}#)))
+ (#{build-conditional\ 231}#
#f
- ((lambda (#{tmp\ 16242}#)
- ((lambda (#{tmp\ 16243}#)
- (if #{tmp\ 16243}#
- (apply (lambda () #{y\ 16239}#)
- #{tmp\ 16243}#)
- ((lambda (#{_\ 16245}#)
- (#{build-conditional\ 12840}#
+ ((lambda (#{tmp\ 3605}#)
+ ((lambda (#{tmp\ 3606}#)
+ (if #{tmp\ 3606}#
+ (apply (lambda () #{y\ 3602}#)
+ #{tmp\ 3606}#)
+ ((lambda (#{_\ 3608}#)
+ (#{build-conditional\ 231}#
#f
- #{y\ 16239}#
- (#{build-dispatch-call\
16160}#
- #{pvars\ 16224}#
- #{fender\ 16212}#
- #{y\ 16239}#
- #{r\ 16210}#
- #{mod\ 16214}#)
- (#{build-data\ 12866}#
+ #{y\ 3602}#
+ (#{build-dispatch-call\
3523}#
+ #{pvars\ 3587}#
+ #{fender\ 3575}#
+ #{y\ 3602}#
+ #{r\ 3573}#
+ #{mod\ 3577}#)
+ (#{build-data\ 257}#
#f
#f)))
- #{tmp\ 16242}#)))
+ #{tmp\ 3605}#)))
($sc-dispatch
- #{tmp\ 16242}#
+ #{tmp\ 3605}#
'#(atom #t))))
- #{fender\ 16212}#)
- (#{build-dispatch-call\ 16160}#
- #{pvars\ 16224}#
- #{exp\ 16213}#
- #{y\ 16239}#
- #{r\ 16210}#
- #{mod\ 16214}#)
- (#{gen-syntax-case\ 16164}#
- #{x\ 16207}#
- #{keys\ 16208}#
- #{clauses\ 16209}#
- #{r\ 16210}#
- #{mod\ 16214}#))))
- (list (if (eq? #{p\ 16223}# (quote any))
- (#{build-application\ 12838}#
+ #{fender\ 3575}#)
+ (#{build-dispatch-call\ 3523}#
+ #{pvars\ 3587}#
+ #{exp\ 3576}#
+ #{y\ 3602}#
+ #{r\ 3573}#
+ #{mod\ 3577}#)
+ (#{gen-syntax-case\ 3527}#
+ #{x\ 3570}#
+ #{keys\ 3571}#
+ #{clauses\ 3572}#
+ #{r\ 3573}#
+ #{mod\ 3577}#))))
+ (list (if (eq? #{p\ 3586}# (quote any))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 255}#
#f
'list)
- (list #{x\ 16207}#))
- (#{build-application\ 12838}#
+ (list #{x\ 3570}#))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 255}#
#f
'$sc-dispatch)
- (list #{x\ 16207}#
- (#{build-data\ 12866}#
+ (list #{x\ 3570}#
+ (#{build-data\ 257}#
#f
- #{p\ 16223}#)))))))))))))
- (#{build-dispatch-call\ 16160}#
- (lambda (#{pvars\ 16253}#
- #{exp\ 16254}#
- #{y\ 16255}#
- #{r\ 16256}#
- #{mod\ 16257}#)
- (let ((#{ids\ 16265}# (map car #{pvars\ 16253}#))
- (#{levels\ 16266}# (map cdr #{pvars\ 16253}#)))
- (let ((#{labels\ 16269}#
- (#{gen-labels\ 12934}# #{ids\ 16265}#))
- (#{new-vars\ 16270}#
- (map #{gen-var\ 13029}# #{ids\ 16265}#)))
- (#{build-application\ 12838}#
+ #{p\ 3586}#)))))))))))))
+ (#{build-dispatch-call\ 3523}#
+ (lambda (#{pvars\ 3616}#
+ #{exp\ 3617}#
+ #{y\ 3618}#
+ #{r\ 3619}#
+ #{mod\ 3620}#)
+ (let ((#{ids\ 3628}# (map car #{pvars\ 3616}#))
+ (#{levels\ 3629}# (map cdr #{pvars\ 3616}#)))
+ (let ((#{labels\ 3632}#
+ (#{gen-labels\ 325}# #{ids\ 3628}#))
+ (#{new-vars\ 3633}#
+ (map #{gen-var\ 420}# #{ids\ 3628}#)))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 12864}# #f (quote apply))
- (list (#{build-simple-lambda\ 12858}#
+ (#{build-primref\ 255}# #f (quote apply))
+ (list (#{build-simple-lambda\ 249}#
#f
- (map syntax->datum #{ids\ 16265}#)
+ (map syntax->datum #{ids\ 3628}#)
#f
- #{new-vars\ 16270}#
+ #{new-vars\ 3633}#
'()
- (#{chi\ 13001}#
- #{exp\ 16254}#
- (#{extend-env\ 12904}#
- #{labels\ 16269}#
- (map (lambda (#{var\ 16274}#
- #{level\ 16275}#)
+ (#{chi\ 392}#
+ #{exp\ 3617}#
+ (#{extend-env\ 295}#
+ #{labels\ 3632}#
+ (map (lambda (#{var\ 3637}#
+ #{level\ 3638}#)
(cons 'syntax
- (cons #{var\ 16274}#
- #{level\ 16275}#)))
- #{new-vars\ 16270}#
- (map cdr #{pvars\ 16253}#))
- #{r\ 16256}#)
- (#{make-binding-wrap\ 12963}#
- #{ids\ 16265}#
- #{labels\ 16269}#
+ (cons #{var\ 3637}#
+ #{level\ 3638}#)))
+ #{new-vars\ 3633}#
+ (map cdr #{pvars\ 3616}#))
+ #{r\ 3619}#)
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 3628}#
+ #{labels\ 3632}#
'(()))
- #{mod\ 16257}#))
- #{y\ 16255}#))))))
- (#{convert-pattern\ 16158}#
- (lambda (#{pattern\ 16281}# #{keys\ 16282}#)
- (letrec ((#{cvt\ 16288}#
- (lambda (#{p\ 16289}#
- #{n\ 16290}#
- #{ids\ 16291}#)
- (if (#{id?\ 12916}# #{p\ 16289}#)
- (if (#{bound-id-member?\ 12983}#
- #{p\ 16289}#
- #{keys\ 16282}#)
+ #{mod\ 3620}#))
+ #{y\ 3618}#))))))
+ (#{convert-pattern\ 3521}#
+ (lambda (#{pattern\ 3644}# #{keys\ 3645}#)
+ (letrec ((#{cvt\ 3651}#
+ (lambda (#{p\ 3652}# #{n\ 3653}# #{ids\ 3654}#)
+ (if (#{id?\ 307}# #{p\ 3652}#)
+ (if (#{bound-id-member?\ 374}#
+ #{p\ 3652}#
+ #{keys\ 3645}#)
(values
- (vector (quote free-id) #{p\ 16289}#)
- #{ids\ 16291}#)
+ (vector (quote free-id) #{p\ 3652}#)
+ #{ids\ 3654}#)
(values
'any
- (cons (cons #{p\ 16289}# #{n\ 16290}#)
- #{ids\ 16291}#)))
- ((lambda (#{tmp\ 16295}#)
- ((lambda (#{tmp\ 16296}#)
- (if (if #{tmp\ 16296}#
- (apply (lambda (#{x\ 16299}#
- #{dots\
16300}#)
- (#{ellipsis?\ 13017}#
- #{dots\ 16300}#))
- #{tmp\ 16296}#)
+ (cons (cons #{p\ 3652}# #{n\ 3653}#)
+ #{ids\ 3654}#)))
+ ((lambda (#{tmp\ 3658}#)
+ ((lambda (#{tmp\ 3659}#)
+ (if (if #{tmp\ 3659}#
+ (apply (lambda (#{x\ 3662}#
+ #{dots\ 3663}#)
+ (#{ellipsis?\ 408}#
+ #{dots\ 3663}#))
+ #{tmp\ 3659}#)
#f)
- (apply (lambda (#{x\ 16303}#
- #{dots\ 16304}#)
+ (apply (lambda (#{x\ 3666}#
+ #{dots\ 3667}#)
(call-with-values
(lambda ()
- (#{cvt\ 16288}#
- #{x\ 16303}#
- (#{fx+\ 12817}#
- #{n\ 16290}#
+ (#{cvt\ 3651}#
+ #{x\ 3666}#
+ (#{fx+\ 208}#
+ #{n\ 3653}#
1)
- #{ids\ 16291}#))
- (lambda (#{p\ 16305}#
- #{ids\ 16306}#)
+ #{ids\ 3654}#))
+ (lambda (#{p\ 3668}#
+ #{ids\ 3669}#)
(values
- (if (eq? #{p\
16305}#
+ (if (eq? #{p\ 3668}#
'any)
'each-any
(vector
'each
- #{p\ 16305}#))
- #{ids\ 16306}#))))
- #{tmp\ 16296}#)
- ((lambda (#{tmp\ 16309}#)
- (if (if #{tmp\ 16309}#
- (apply (lambda (#{x\
16313}#
- #{dots\
16314}#
- #{ys\
16315}#)
- (#{ellipsis?\
13017}#
- #{dots\
16314}#))
- #{tmp\ 16309}#)
+ #{p\ 3668}#))
+ #{ids\ 3669}#))))
+ #{tmp\ 3659}#)
+ ((lambda (#{tmp\ 3672}#)
+ (if (if #{tmp\ 3672}#
+ (apply (lambda (#{x\
3676}#
+ #{dots\
3677}#
+ #{ys\
3678}#)
+ (#{ellipsis?\
408}#
+ #{dots\
3677}#))
+ #{tmp\ 3672}#)
#f)
- (apply (lambda (#{x\ 16319}#
- #{dots\
16320}#
- #{ys\ 16321}#)
+ (apply (lambda (#{x\ 3682}#
+ #{dots\ 3683}#
+ #{ys\ 3684}#)
(call-with-values
(lambda ()
- (#{cvt*\ 16286}#
- #{ys\ 16321}#
- #{n\ 16290}#
- #{ids\
16291}#))
- (lambda (#{ys\
16323}#
- #{ids\
16324}#)
+ (#{cvt*\ 3649}#
+ #{ys\ 3684}#
+ #{n\ 3653}#
+ #{ids\ 3654}#))
+ (lambda (#{ys\
3686}#
+ #{ids\
3687}#)
(call-with-values
(lambda ()
- (#{cvt\
16288}#
- #{x\
16319}#
- (+ #{n\
16290}#
+ (#{cvt\
3651}#
+ #{x\ 3682}#
+ (+ #{n\
3653}#
1)
- #{ids\
16324}#))
- (lambda (#{x\
16327}#
-
#{ids\ 16328}#)
+ #{ids\
3687}#))
+ (lambda (#{x\
3690}#
+
#{ids\ 3691}#)
(values
(list->vector
(cons
'each+
-
(cons #{x\ 16327}#
+
(cons #{x\ 3690}#
(cons (reverse
-
#{ys\ 16323}#)
+
#{ys\ 3686}#)
'(())))))
- #{ids\
16328}#))))))
- #{tmp\ 16309}#)
- ((lambda (#{tmp\ 16332}#)
- (if #{tmp\ 16332}#
- (apply (lambda (#{x\
16335}#
- #{y\
16336}#)
+ #{ids\
3691}#))))))
+ #{tmp\ 3672}#)
+ ((lambda (#{tmp\ 3695}#)
+ (if #{tmp\ 3695}#
+ (apply (lambda (#{x\
3698}#
+ #{y\
3699}#)
(call-with-values
(lambda ()
- (#{cvt\
16288}#
- #{y\
16336}#
- #{n\
16290}#
- #{ids\
16291}#))
- (lambda (#{y\
16337}#
-
#{ids\ 16338}#)
+ (#{cvt\
3651}#
+ #{y\
3699}#
+ #{n\
3653}#
+ #{ids\
3654}#))
+ (lambda (#{y\
3700}#
+
#{ids\ 3701}#)
(call-with-values
(lambda ()
- (#{cvt\
16288}#
- #{x\
16335}#
- #{n\
16290}#
-
#{ids\ 16338}#))
- (lambda
(#{x\ 16341}#
-
#{ids\ 16342}#)
+ (#{cvt\
3651}#
+ #{x\
3698}#
+ #{n\
3653}#
+
#{ids\ 3701}#))
+ (lambda
(#{x\ 3704}#
+
#{ids\ 3705}#)
(values
- (cons
#{x\ 16341}#
-
#{y\ 16337}#)
-
#{ids\ 16342}#))))))
- #{tmp\ 16332}#)
- ((lambda (#{tmp\ 16345}#)
- (if #{tmp\ 16345}#
+ (cons
#{x\ 3704}#
+
#{y\ 3700}#)
+
#{ids\ 3705}#))))))
+ #{tmp\ 3695}#)
+ ((lambda (#{tmp\ 3708}#)
+ (if #{tmp\ 3708}#
(apply (lambda ()
(values
'()
- #{ids\
16291}#))
- #{tmp\
16345}#)
- ((lambda (#{tmp\
16346}#)
- (if #{tmp\
16346}#
- (apply (lambda
(#{x\ 16348}#)
+ #{ids\
3654}#))
+ #{tmp\
3708}#)
+ ((lambda (#{tmp\
3709}#)
+ (if #{tmp\ 3709}#
+ (apply (lambda
(#{x\ 3711}#)
(call-with-values
(lambda ()
-
(#{cvt\ 16288}#
-
#{x\ 16348}#
-
#{n\ 16290}#
-
#{ids\ 16291}#))
-
(lambda (#{p\ 16350}#
-
#{ids\ 16351}#)
+
(#{cvt\ 3651}#
+
#{x\ 3711}#
+
#{n\ 3653}#
+
#{ids\ 3654}#))
+
(lambda (#{p\ 3713}#
+
#{ids\ 3714}#)
(values
(vector
'vector
-
#{p\ 16350}#)
-
#{ids\ 16351}#))))
- #{tmp\
16346}#)
- ((lambda (#{x\
16355}#)
+
#{p\ 3713}#)
+
#{ids\ 3714}#))))
+ #{tmp\
3709}#)
+ ((lambda (#{x\
3718}#)
(values
(vector
'atom
-
(#{strip\ 13027}#
- #{p\
16289}#
+
(#{strip\ 418}#
+ #{p\
3652}#
'(())))
- #{ids\
16291}#))
- #{tmp\
16295}#)))
+ #{ids\
3654}#))
+ #{tmp\
3658}#)))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 3658}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 3658}#
'()))))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 3658}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 3658}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 3658}#
'(any any))))
- #{p\ 16289}#))))
- (#{cvt*\ 16286}#
- (lambda (#{p*\ 16357}#
- #{n\ 16358}#
- #{ids\ 16359}#)
- (if (null? #{p*\ 16357}#)
- (values (quote ()) #{ids\ 16359}#)
+ #{p\ 3652}#))))
+ (#{cvt*\ 3649}#
+ (lambda (#{p*\ 3720}#
+ #{n\ 3721}#
+ #{ids\ 3722}#)
+ (if (null? #{p*\ 3720}#)
+ (values (quote ()) #{ids\ 3722}#)
(call-with-values
(lambda ()
- (#{cvt*\ 16286}#
- (cdr #{p*\ 16357}#)
- #{n\ 16358}#
- #{ids\ 16359}#))
- (lambda (#{y\ 16363}# #{ids\ 16364}#)
+ (#{cvt*\ 3649}#
+ (cdr #{p*\ 3720}#)
+ #{n\ 3721}#
+ #{ids\ 3722}#))
+ (lambda (#{y\ 3726}# #{ids\ 3727}#)
(call-with-values
(lambda ()
- (#{cvt\ 16288}#
- (car #{p*\ 16357}#)
- #{n\ 16358}#
- #{ids\ 16364}#))
- (lambda (#{x\ 16367}# #{ids\ 16368}#)
+ (#{cvt\ 3651}#
+ (car #{p*\ 3720}#)
+ #{n\ 3721}#
+ #{ids\ 3727}#))
+ (lambda (#{x\ 3730}# #{ids\ 3731}#)
(values
- (cons #{x\ 16367}# #{y\ 16363}#)
- #{ids\ 16368}#)))))))))
- (#{cvt\ 16288}# #{pattern\ 16281}# 0 (quote ()))))))
- (lambda (#{e\ 16371}#
- #{r\ 16372}#
- #{w\ 16373}#
- #{s\ 16374}#
- #{mod\ 16375}#)
- (let ((#{e\ 16382}#
- (#{source-wrap\ 12987}#
- #{e\ 16371}#
- #{w\ 16373}#
- #{s\ 16374}#
- #{mod\ 16375}#)))
- ((lambda (#{tmp\ 16383}#)
- ((lambda (#{tmp\ 16384}#)
- (if #{tmp\ 16384}#
- (apply (lambda (#{_\ 16389}#
- #{val\ 16390}#
- #{key\ 16391}#
- #{m\ 16392}#)
+ (cons #{x\ 3730}# #{y\ 3726}#)
+ #{ids\ 3731}#)))))))))
+ (#{cvt\ 3651}# #{pattern\ 3644}# 0 (quote ()))))))
+ (lambda (#{e\ 3734}#
+ #{r\ 3735}#
+ #{w\ 3736}#
+ #{s\ 3737}#
+ #{mod\ 3738}#)
+ (let ((#{e\ 3745}#
+ (#{source-wrap\ 378}#
+ #{e\ 3734}#
+ #{w\ 3736}#
+ #{s\ 3737}#
+ #{mod\ 3738}#)))
+ ((lambda (#{tmp\ 3746}#)
+ ((lambda (#{tmp\ 3747}#)
+ (if #{tmp\ 3747}#
+ (apply (lambda (#{_\ 3752}#
+ #{val\ 3753}#
+ #{key\ 3754}#
+ #{m\ 3755}#)
(if (and-map
- (lambda (#{x\ 16393}#)
- (if (#{id?\ 12916}# #{x\ 16393}#)
- (not (#{ellipsis?\ 13017}#
- #{x\ 16393}#))
+ (lambda (#{x\ 3756}#)
+ (if (#{id?\ 307}# #{x\ 3756}#)
+ (not (#{ellipsis?\ 408}# #{x\ 3756}#))
#f))
- #{key\ 16391}#)
- (let ((#{x\ 16399}#
- (#{gen-var\ 13029}# (quote tmp))))
- (#{build-application\ 12838}#
- #{s\ 16374}#
- (#{build-simple-lambda\ 12858}#
+ #{key\ 3754}#)
+ (let ((#{x\ 3762}#
+ (#{gen-var\ 420}# (quote tmp))))
+ (#{build-application\ 229}#
+ #{s\ 3737}#
+ (#{build-simple-lambda\ 249}#
#f
(list (quote tmp))
#f
- (list #{x\ 16399}#)
+ (list #{x\ 3762}#)
'()
- (#{gen-syntax-case\ 16164}#
- (#{build-lexical-reference\ 12844}#
+ (#{gen-syntax-case\ 3527}#
+ (#{build-lexical-reference\ 235}#
'value
#f
'tmp
- #{x\ 16399}#)
- #{key\ 16391}#
- #{m\ 16392}#
- #{r\ 16372}#
- #{mod\ 16375}#))
- (list (#{chi\ 13001}#
- #{val\ 16390}#
- #{r\ 16372}#
+ #{x\ 3762}#)
+ #{key\ 3754}#
+ #{m\ 3755}#
+ #{r\ 3735}#
+ #{mod\ 3738}#))
+ (list (#{chi\ 392}#
+ #{val\ 3753}#
+ #{r\ 3735}#
'(())
- #{mod\ 16375}#))))
+ #{mod\ 3738}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 16382}#)))
- #{tmp\ 16384}#)
+ #{e\ 3745}#)))
+ #{tmp\ 3747}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16383}#)))
+ #{tmp\ 3746}#)))
($sc-dispatch
- #{tmp\ 16383}#
+ #{tmp\ 3746}#
'(any any each-any . each-any))))
- #{e\ 16382}#)))))
+ #{e\ 3745}#)))))
(set! macroexpand
- (lambda (#{x\ 16405}# . #{rest\ 16406}#)
- (let ((#{m\ 16412}#
- (if (null? #{rest\ 16406}#)
- 'e
- (car #{rest\ 16406}#)))
- (#{esew\ 16413}#
- (if (let ((#{t\ 16417}# (null? #{rest\ 16406}#)))
- (if #{t\ 16417}#
- #{t\ 16417}#
- (null? (cdr #{rest\ 16406}#))))
- '(eval)
- (cadr #{rest\ 16406}#)))
- (#{mod\ 16414}#
- (cons 'hygiene
- (module-name (current-module)))))
- (with-fluids
- ((#{*mode*\ 12778}# #{m\ 16412}#))
- (if (eq? #{m\ 16412}# (quote e))
- (memoize-expression
- (#{chi-top\ 12999}#
- #{x\ 16405}#
- '()
- '((top))
- #{m\ 16412}#
- #{esew\ 16413}#
- #{mod\ 16414}#))
- (#{chi-top\ 12999}#
- #{x\ 16405}#
- '()
- '((top))
- #{m\ 16412}#
- #{esew\ 16413}#
- #{mod\ 16414}#))))))
+ (lambda*
+ (#{x\ 3768}#
+ #:optional
+ (#{m\ 3770}# (quote e))
+ (#{esew\ 3772}# (quote (eval))))
+ (#{chi-top\ 390}#
+ #{x\ 3768}#
+ '()
+ '((top))
+ #{m\ 3770}#
+ #{esew\ 3772}#
+ (cons 'hygiene
+ (module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 16423}#)
- (#{nonsymbol-id?\ 12914}# #{x\ 16423}#)))
+ (lambda (#{x\ 3776}#)
+ (#{nonsymbol-id?\ 305}# #{x\ 3776}#)))
(set! datum->syntax
- (lambda (#{id\ 16425}# #{datum\ 16426}#)
- (#{make-syntax-object\ 12878}#
- #{datum\ 16426}#
- (#{syntax-object-wrap\ 12884}# #{id\ 16425}#)
+ (lambda (#{id\ 3778}# #{datum\ 3779}#)
+ (#{make-syntax-object\ 269}#
+ #{datum\ 3779}#
+ (#{syntax-object-wrap\ 275}# #{id\ 3778}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 16429}#)
- (#{strip\ 13027}# #{x\ 16429}# (quote (())))))
+ (lambda (#{x\ 3782}#)
+ (#{strip\ 418}# #{x\ 3782}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 16432}#)
+ (lambda (#{ls\ 3785}#)
(begin
- (let ((#{x\ 16436}# #{ls\ 16432}#))
- (if (not (list? #{x\ 16436}#))
+ (let ((#{x\ 3789}# #{ls\ 3785}#))
+ (if (not (list? #{x\ 3789}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 16436}#)))
- (map (lambda (#{x\ 16437}#)
- (#{wrap\ 12985}# (gensym) (quote ((top))) #f))
- #{ls\ 16432}#))))
+ #{x\ 3789}#)))
+ (map (lambda (#{x\ 3790}#)
+ (#{wrap\ 376}# (gensym) (quote ((top))) #f))
+ #{ls\ 3785}#))))
(set! free-identifier=?
- (lambda (#{x\ 16441}# #{y\ 16442}#)
+ (lambda (#{x\ 3794}# #{y\ 3795}#)
(begin
- (let ((#{x\ 16447}# #{x\ 16441}#))
- (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16447}#))
+ (let ((#{x\ 3800}# #{x\ 3794}#))
+ (if (not (#{nonsymbol-id?\ 305}# #{x\ 3800}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 16447}#)))
- (let ((#{x\ 16450}# #{y\ 16442}#))
- (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16450}#))
+ #{x\ 3800}#)))
+ (let ((#{x\ 3803}# #{y\ 3795}#))
+ (if (not (#{nonsymbol-id?\ 305}# #{x\ 3803}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 16450}#)))
- (#{free-id=?\ 12975}# #{x\ 16441}# #{y\ 16442}#))))
+ #{x\ 3803}#)))
+ (#{free-id=?\ 366}# #{x\ 3794}# #{y\ 3795}#))))
(set! bound-identifier=?
- (lambda (#{x\ 16451}# #{y\ 16452}#)
+ (lambda (#{x\ 3804}# #{y\ 3805}#)
(begin
- (let ((#{x\ 16457}# #{x\ 16451}#))
- (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16457}#))
+ (let ((#{x\ 3810}# #{x\ 3804}#))
+ (if (not (#{nonsymbol-id?\ 305}# #{x\ 3810}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 16457}#)))
- (let ((#{x\ 16460}# #{y\ 16452}#))
- (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16460}#))
+ #{x\ 3810}#)))
+ (let ((#{x\ 3813}# #{y\ 3805}#))
+ (if (not (#{nonsymbol-id?\ 305}# #{x\ 3813}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 16460}#)))
- (#{bound-id=?\ 12977}# #{x\ 16451}# #{y\ 16452}#))))
+ #{x\ 3813}#)))
+ (#{bound-id=?\ 368}# #{x\ 3804}# #{y\ 3805}#))))
(set! syntax-violation
- (lambda (#{who\ 16461}#
- #{message\ 16462}#
- #{form\ 16463}#
+ (lambda (#{who\ 3814}#
+ #{message\ 3815}#
+ #{form\ 3816}#
.
- #{subform\ 16464}#)
+ #{subform\ 3817}#)
(begin
- (let ((#{x\ 16471}# #{who\ 16461}#))
- (if (not ((lambda (#{x\ 16472}#)
- (let ((#{t\ 16476}# (not #{x\ 16472}#)))
- (if #{t\ 16476}#
- #{t\ 16476}#
- (let ((#{t\ 16479}# (string? #{x\ 16472}#)))
- (if #{t\ 16479}#
- #{t\ 16479}#
- (symbol? #{x\ 16472}#))))))
- #{x\ 16471}#))
+ (let ((#{x\ 3824}# #{who\ 3814}#))
+ (if (not ((lambda (#{x\ 3825}#)
+ (let ((#{t\ 3829}# (not #{x\ 3825}#)))
+ (if #{t\ 3829}#
+ #{t\ 3829}#
+ (let ((#{t\ 3832}# (string? #{x\ 3825}#)))
+ (if #{t\ 3832}#
+ #{t\ 3832}#
+ (symbol? #{x\ 3825}#))))))
+ #{x\ 3824}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 16471}#)))
- (let ((#{x\ 16483}# #{message\ 16462}#))
- (if (not (string? #{x\ 16483}#))
+ #{x\ 3824}#)))
+ (let ((#{x\ 3836}# #{message\ 3815}#))
+ (if (not (string? #{x\ 3836}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 16483}#)))
+ #{x\ 3836}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 16461}# "~a: " "")
+ (if #{who\ 3814}# "~a: " "")
"~a "
- (if (null? #{subform\ 16464}#)
+ (if (null? #{subform\ 3817}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 16485}#
- (cons #{message\ 16462}#
- (map (lambda (#{x\ 16486}#)
- (#{strip\ 13027}#
- #{x\ 16486}#
- '(())))
+ (let ((#{tail\ 3838}#
+ (cons #{message\ 3815}#
+ (map (lambda (#{x\ 3839}#)
+ (#{strip\ 418}# #{x\ 3839}# (quote (()))))
(append
- #{subform\ 16464}#
- (list #{form\ 16463}#))))))
- (if #{who\ 16461}#
- (cons #{who\ 16461}# #{tail\ 16485}#)
- #{tail\ 16485}#))
+ #{subform\ 3817}#
+ (list #{form\ 3816}#))))))
+ (if #{who\ 3814}#
+ (cons #{who\ 3814}# #{tail\ 3838}#)
+ #{tail\ 3838}#))
#f))))
- (letrec ((#{match\ 16502}#
- (lambda (#{e\ 16503}#
- #{p\ 16504}#
- #{w\ 16505}#
- #{r\ 16506}#
- #{mod\ 16507}#)
- (if (not #{r\ 16506}#)
+ (letrec ((#{match\ 3855}#
+ (lambda (#{e\ 3856}#
+ #{p\ 3857}#
+ #{w\ 3858}#
+ #{r\ 3859}#
+ #{mod\ 3860}#)
+ (if (not #{r\ 3859}#)
#f
- (if (eq? #{p\ 16504}# (quote any))
- (cons (#{wrap\ 12985}#
- #{e\ 16503}#
- #{w\ 16505}#
- #{mod\ 16507}#)
- #{r\ 16506}#)
- (if (#{syntax-object?\ 12880}# #{e\ 16503}#)
- (#{match*\ 16500}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16503}#)
- #{p\ 16504}#
- (#{join-wraps\ 12967}#
- #{w\ 16505}#
- (#{syntax-object-wrap\ 12884}# #{e\ 16503}#))
- #{r\ 16506}#
- (#{syntax-object-module\ 12886}# #{e\ 16503}#))
- (#{match*\ 16500}#
- #{e\ 16503}#
- #{p\ 16504}#
- #{w\ 16505}#
- #{r\ 16506}#
- #{mod\ 16507}#))))))
- (#{match*\ 16500}#
- (lambda (#{e\ 16520}#
- #{p\ 16521}#
- #{w\ 16522}#
- #{r\ 16523}#
- #{mod\ 16524}#)
- (if (null? #{p\ 16521}#)
- (if (null? #{e\ 16520}#) #{r\ 16523}# #f)
- (if (pair? #{p\ 16521}#)
- (if (pair? #{e\ 16520}#)
- (#{match\ 16502}#
- (car #{e\ 16520}#)
- (car #{p\ 16521}#)
- #{w\ 16522}#
- (#{match\ 16502}#
- (cdr #{e\ 16520}#)
- (cdr #{p\ 16521}#)
- #{w\ 16522}#
- #{r\ 16523}#
- #{mod\ 16524}#)
- #{mod\ 16524}#)
+ (if (eq? #{p\ 3857}# (quote any))
+ (cons (#{wrap\ 376}#
+ #{e\ 3856}#
+ #{w\ 3858}#
+ #{mod\ 3860}#)
+ #{r\ 3859}#)
+ (if (#{syntax-object?\ 271}# #{e\ 3856}#)
+ (#{match*\ 3853}#
+ (#{syntax-object-expression\ 273}# #{e\ 3856}#)
+ #{p\ 3857}#
+ (#{join-wraps\ 358}#
+ #{w\ 3858}#
+ (#{syntax-object-wrap\ 275}# #{e\ 3856}#))
+ #{r\ 3859}#
+ (#{syntax-object-module\ 277}# #{e\ 3856}#))
+ (#{match*\ 3853}#
+ #{e\ 3856}#
+ #{p\ 3857}#
+ #{w\ 3858}#
+ #{r\ 3859}#
+ #{mod\ 3860}#))))))
+ (#{match*\ 3853}#
+ (lambda (#{e\ 3873}#
+ #{p\ 3874}#
+ #{w\ 3875}#
+ #{r\ 3876}#
+ #{mod\ 3877}#)
+ (if (null? #{p\ 3874}#)
+ (if (null? #{e\ 3873}#) #{r\ 3876}# #f)
+ (if (pair? #{p\ 3874}#)
+ (if (pair? #{e\ 3873}#)
+ (#{match\ 3855}#
+ (car #{e\ 3873}#)
+ (car #{p\ 3874}#)
+ #{w\ 3875}#
+ (#{match\ 3855}#
+ (cdr #{e\ 3873}#)
+ (cdr #{p\ 3874}#)
+ #{w\ 3875}#
+ #{r\ 3876}#
+ #{mod\ 3877}#)
+ #{mod\ 3877}#)
#f)
- (if (eq? #{p\ 16521}# (quote each-any))
- (let ((#{l\ 16541}#
- (#{match-each-any\ 16494}#
- #{e\ 16520}#
- #{w\ 16522}#
- #{mod\ 16524}#)))
- (if #{l\ 16541}#
- (cons #{l\ 16541}# #{r\ 16523}#)
+ (if (eq? #{p\ 3874}# (quote each-any))
+ (let ((#{l\ 3894}#
+ (#{match-each-any\ 3847}#
+ #{e\ 3873}#
+ #{w\ 3875}#
+ #{mod\ 3877}#)))
+ (if #{l\ 3894}#
+ (cons #{l\ 3894}# #{r\ 3876}#)
#f))
- (let ((#{atom-key\ 16547}#
- (vector-ref #{p\ 16521}# 0)))
- (if (memv #{atom-key\ 16547}# (quote (each)))
- (if (null? #{e\ 16520}#)
- (#{match-empty\ 16496}#
- (vector-ref #{p\ 16521}# 1)
- #{r\ 16523}#)
- (let ((#{l\ 16550}#
- (#{match-each\ 16490}#
- #{e\ 16520}#
- (vector-ref #{p\ 16521}# 1)
- #{w\ 16522}#
- #{mod\ 16524}#)))
- (if #{l\ 16550}#
- (letrec ((#{collect\ 16555}#
- (lambda (#{l\ 16556}#)
- (if (null? (car #{l\ 16556}#))
- #{r\ 16523}#
- (cons (map car #{l\ 16556}#)
- (#{collect\ 16555}#
+ (let ((#{atom-key\ 3900}# (vector-ref #{p\ 3874}# 0)))
+ (if (memv #{atom-key\ 3900}# (quote (each)))
+ (if (null? #{e\ 3873}#)
+ (#{match-empty\ 3849}#
+ (vector-ref #{p\ 3874}# 1)
+ #{r\ 3876}#)
+ (let ((#{l\ 3903}#
+ (#{match-each\ 3843}#
+ #{e\ 3873}#
+ (vector-ref #{p\ 3874}# 1)
+ #{w\ 3875}#
+ #{mod\ 3877}#)))
+ (if #{l\ 3903}#
+ (letrec ((#{collect\ 3908}#
+ (lambda (#{l\ 3909}#)
+ (if (null? (car #{l\ 3909}#))
+ #{r\ 3876}#
+ (cons (map car #{l\ 3909}#)
+ (#{collect\ 3908}#
(map cdr
- #{l\
16556}#)))))))
- (#{collect\ 16555}# #{l\ 16550}#))
+ #{l\
3909}#)))))))
+ (#{collect\ 3908}# #{l\ 3903}#))
#f)))
- (if (memv #{atom-key\ 16547}# (quote (each+)))
+ (if (memv #{atom-key\ 3900}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 16492}#
- #{e\ 16520}#
- (vector-ref #{p\ 16521}# 1)
- (vector-ref #{p\ 16521}# 2)
- (vector-ref #{p\ 16521}# 3)
- #{w\ 16522}#
- #{r\ 16523}#
- #{mod\ 16524}#))
- (lambda (#{xr*\ 16558}#
- #{y-pat\ 16559}#
- #{r\ 16560}#)
- (if #{r\ 16560}#
- (if (null? #{y-pat\ 16559}#)
- (if (null? #{xr*\ 16558}#)
- (#{match-empty\ 16496}#
- (vector-ref #{p\ 16521}# 1)
- #{r\ 16560}#)
- (#{combine\ 16498}#
- #{xr*\ 16558}#
- #{r\ 16560}#))
+ (#{match-each+\ 3845}#
+ #{e\ 3873}#
+ (vector-ref #{p\ 3874}# 1)
+ (vector-ref #{p\ 3874}# 2)
+ (vector-ref #{p\ 3874}# 3)
+ #{w\ 3875}#
+ #{r\ 3876}#
+ #{mod\ 3877}#))
+ (lambda (#{xr*\ 3911}#
+ #{y-pat\ 3912}#
+ #{r\ 3913}#)
+ (if #{r\ 3913}#
+ (if (null? #{y-pat\ 3912}#)
+ (if (null? #{xr*\ 3911}#)
+ (#{match-empty\ 3849}#
+ (vector-ref #{p\ 3874}# 1)
+ #{r\ 3913}#)
+ (#{combine\ 3851}#
+ #{xr*\ 3911}#
+ #{r\ 3913}#))
#f)
#f)))
- (if (memv #{atom-key\ 16547}# (quote (free-id)))
- (if (#{id?\ 12916}# #{e\ 16520}#)
- (if (#{free-id=?\ 12975}#
- (#{wrap\ 12985}#
- #{e\ 16520}#
- #{w\ 16522}#
- #{mod\ 16524}#)
- (vector-ref #{p\ 16521}# 1))
- #{r\ 16523}#
+ (if (memv #{atom-key\ 3900}# (quote (free-id)))
+ (if (#{id?\ 307}# #{e\ 3873}#)
+ (if (#{free-id=?\ 366}#
+ (#{wrap\ 376}#
+ #{e\ 3873}#
+ #{w\ 3875}#
+ #{mod\ 3877}#)
+ (vector-ref #{p\ 3874}# 1))
+ #{r\ 3876}#
#f)
#f)
- (if (memv #{atom-key\ 16547}# (quote (atom)))
+ (if (memv #{atom-key\ 3900}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 16521}# 1)
- (#{strip\ 13027}#
- #{e\ 16520}#
- #{w\ 16522}#))
- #{r\ 16523}#
+ (vector-ref #{p\ 3874}# 1)
+ (#{strip\ 418}#
+ #{e\ 3873}#
+ #{w\ 3875}#))
+ #{r\ 3876}#
#f)
- (if (memv #{atom-key\ 16547}#
+ (if (memv #{atom-key\ 3900}#
'(vector))
- (if (vector? #{e\ 16520}#)
- (#{match\ 16502}#
- (vector->list #{e\ 16520}#)
- (vector-ref #{p\ 16521}# 1)
- #{w\ 16522}#
- #{r\ 16523}#
- #{mod\ 16524}#)
+ (if (vector? #{e\ 3873}#)
+ (#{match\ 3855}#
+ (vector->list #{e\ 3873}#)
+ (vector-ref #{p\ 3874}# 1)
+ #{w\ 3875}#
+ #{r\ 3876}#
+ #{mod\ 3877}#)
#f))))))))))))
- (#{combine\ 16498}#
- (lambda (#{r*\ 16577}# #{r\ 16578}#)
- (if (null? (car #{r*\ 16577}#))
- #{r\ 16578}#
- (cons (map car #{r*\ 16577}#)
- (#{combine\ 16498}#
- (map cdr #{r*\ 16577}#)
- #{r\ 16578}#)))))
- (#{match-empty\ 16496}#
- (lambda (#{p\ 16581}# #{r\ 16582}#)
- (if (null? #{p\ 16581}#)
- #{r\ 16582}#
- (if (eq? #{p\ 16581}# (quote any))
- (cons (quote ()) #{r\ 16582}#)
- (if (pair? #{p\ 16581}#)
- (#{match-empty\ 16496}#
- (car #{p\ 16581}#)
- (#{match-empty\ 16496}#
- (cdr #{p\ 16581}#)
- #{r\ 16582}#))
- (if (eq? #{p\ 16581}# (quote each-any))
- (cons (quote ()) #{r\ 16582}#)
- (let ((#{atom-key\ 16596}#
- (vector-ref #{p\ 16581}# 0)))
- (if (memv #{atom-key\ 16596}# (quote (each)))
- (#{match-empty\ 16496}#
- (vector-ref #{p\ 16581}# 1)
- #{r\ 16582}#)
- (if (memv #{atom-key\ 16596}# (quote (each+)))
- (#{match-empty\ 16496}#
- (vector-ref #{p\ 16581}# 1)
- (#{match-empty\ 16496}#
- (reverse (vector-ref #{p\ 16581}# 2))
- (#{match-empty\ 16496}#
- (vector-ref #{p\ 16581}# 3)
- #{r\ 16582}#)))
- (if (memv #{atom-key\ 16596}#
+ (#{combine\ 3851}#
+ (lambda (#{r*\ 3930}# #{r\ 3931}#)
+ (if (null? (car #{r*\ 3930}#))
+ #{r\ 3931}#
+ (cons (map car #{r*\ 3930}#)
+ (#{combine\ 3851}#
+ (map cdr #{r*\ 3930}#)
+ #{r\ 3931}#)))))
+ (#{match-empty\ 3849}#
+ (lambda (#{p\ 3934}# #{r\ 3935}#)
+ (if (null? #{p\ 3934}#)
+ #{r\ 3935}#
+ (if (eq? #{p\ 3934}# (quote any))
+ (cons (quote ()) #{r\ 3935}#)
+ (if (pair? #{p\ 3934}#)
+ (#{match-empty\ 3849}#
+ (car #{p\ 3934}#)
+ (#{match-empty\ 3849}#
+ (cdr #{p\ 3934}#)
+ #{r\ 3935}#))
+ (if (eq? #{p\ 3934}# (quote each-any))
+ (cons (quote ()) #{r\ 3935}#)
+ (let ((#{atom-key\ 3949}#
+ (vector-ref #{p\ 3934}# 0)))
+ (if (memv #{atom-key\ 3949}# (quote (each)))
+ (#{match-empty\ 3849}#
+ (vector-ref #{p\ 3934}# 1)
+ #{r\ 3935}#)
+ (if (memv #{atom-key\ 3949}# (quote (each+)))
+ (#{match-empty\ 3849}#
+ (vector-ref #{p\ 3934}# 1)
+ (#{match-empty\ 3849}#
+ (reverse (vector-ref #{p\ 3934}# 2))
+ (#{match-empty\ 3849}#
+ (vector-ref #{p\ 3934}# 3)
+ #{r\ 3935}#)))
+ (if (memv #{atom-key\ 3949}#
'(free-id atom))
- #{r\ 16582}#
- (if (memv #{atom-key\ 16596}#
+ #{r\ 3935}#
+ (if (memv #{atom-key\ 3949}#
'(vector))
- (#{match-empty\ 16496}#
- (vector-ref #{p\ 16581}# 1)
- #{r\ 16582}#))))))))))))
- (#{match-each-any\ 16494}#
- (lambda (#{e\ 16601}# #{w\ 16602}# #{mod\ 16603}#)
- (if (pair? #{e\ 16601}#)
- (let ((#{l\ 16610}#
- (#{match-each-any\ 16494}#
- (cdr #{e\ 16601}#)
- #{w\ 16602}#
- #{mod\ 16603}#)))
- (if #{l\ 16610}#
- (cons (#{wrap\ 12985}#
- (car #{e\ 16601}#)
- #{w\ 16602}#
- #{mod\ 16603}#)
- #{l\ 16610}#)
+ (#{match-empty\ 3849}#
+ (vector-ref #{p\ 3934}# 1)
+ #{r\ 3935}#))))))))))))
+ (#{match-each-any\ 3847}#
+ (lambda (#{e\ 3954}# #{w\ 3955}# #{mod\ 3956}#)
+ (if (pair? #{e\ 3954}#)
+ (let ((#{l\ 3963}#
+ (#{match-each-any\ 3847}#
+ (cdr #{e\ 3954}#)
+ #{w\ 3955}#
+ #{mod\ 3956}#)))
+ (if #{l\ 3963}#
+ (cons (#{wrap\ 376}#
+ (car #{e\ 3954}#)
+ #{w\ 3955}#
+ #{mod\ 3956}#)
+ #{l\ 3963}#)
#f))
- (if (null? #{e\ 16601}#)
+ (if (null? #{e\ 3954}#)
'()
- (if (#{syntax-object?\ 12880}# #{e\ 16601}#)
- (#{match-each-any\ 16494}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16601}#)
- (#{join-wraps\ 12967}#
- #{w\ 16602}#
- (#{syntax-object-wrap\ 12884}# #{e\ 16601}#))
- #{mod\ 16603}#)
+ (if (#{syntax-object?\ 271}# #{e\ 3954}#)
+ (#{match-each-any\ 3847}#
+ (#{syntax-object-expression\ 273}# #{e\ 3954}#)
+ (#{join-wraps\ 358}#
+ #{w\ 3955}#
+ (#{syntax-object-wrap\ 275}# #{e\ 3954}#))
+ #{mod\ 3956}#)
#f)))))
- (#{match-each+\ 16492}#
- (lambda (#{e\ 16618}#
- #{x-pat\ 16619}#
- #{y-pat\ 16620}#
- #{z-pat\ 16621}#
- #{w\ 16622}#
- #{r\ 16623}#
- #{mod\ 16624}#)
- (letrec ((#{f\ 16635}#
- (lambda (#{e\ 16636}# #{w\ 16637}#)
- (if (pair? #{e\ 16636}#)
+ (#{match-each+\ 3845}#
+ (lambda (#{e\ 3971}#
+ #{x-pat\ 3972}#
+ #{y-pat\ 3973}#
+ #{z-pat\ 3974}#
+ #{w\ 3975}#
+ #{r\ 3976}#
+ #{mod\ 3977}#)
+ (letrec ((#{f\ 3988}#
+ (lambda (#{e\ 3989}# #{w\ 3990}#)
+ (if (pair? #{e\ 3989}#)
(call-with-values
(lambda ()
- (#{f\ 16635}#
- (cdr #{e\ 16636}#)
- #{w\ 16637}#))
- (lambda (#{xr*\ 16640}#
- #{y-pat\ 16641}#
- #{r\ 16642}#)
- (if #{r\ 16642}#
- (if (null? #{y-pat\ 16641}#)
- (let ((#{xr\ 16647}#
- (#{match\ 16502}#
- (car #{e\ 16636}#)
- #{x-pat\ 16619}#
- #{w\ 16637}#
+ (#{f\ 3988}#
+ (cdr #{e\ 3989}#)
+ #{w\ 3990}#))
+ (lambda (#{xr*\ 3993}#
+ #{y-pat\ 3994}#
+ #{r\ 3995}#)
+ (if #{r\ 3995}#
+ (if (null? #{y-pat\ 3994}#)
+ (let ((#{xr\ 4000}#
+ (#{match\ 3855}#
+ (car #{e\ 3989}#)
+ #{x-pat\ 3972}#
+ #{w\ 3990}#
'()
- #{mod\ 16624}#)))
- (if #{xr\ 16647}#
+ #{mod\ 3977}#)))
+ (if #{xr\ 4000}#
(values
- (cons #{xr\ 16647}#
- #{xr*\ 16640}#)
- #{y-pat\ 16641}#
- #{r\ 16642}#)
+ (cons #{xr\ 4000}#
+ #{xr*\ 3993}#)
+ #{y-pat\ 3994}#
+ #{r\ 3995}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 16641}#)
- (#{match\ 16502}#
- (car #{e\ 16636}#)
- (car #{y-pat\ 16641}#)
- #{w\ 16637}#
- #{r\ 16642}#
- #{mod\ 16624}#)))
+ (cdr #{y-pat\ 3994}#)
+ (#{match\ 3855}#
+ (car #{e\ 3989}#)
+ (car #{y-pat\ 3994}#)
+ #{w\ 3990}#
+ #{r\ 3995}#
+ #{mod\ 3977}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 12880}# #{e\ 16636}#)
- (#{f\ 16635}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16636}#)
- (#{join-wraps\ 12967}#
- #{w\ 16637}#
- #{e\ 16636}#))
+ (if (#{syntax-object?\ 271}# #{e\ 3989}#)
+ (#{f\ 3988}#
+ (#{syntax-object-expression\ 273}#
+ #{e\ 3989}#)
+ (#{join-wraps\ 358}#
+ #{w\ 3990}#
+ #{e\ 3989}#))
(values
'()
- #{y-pat\ 16620}#
- (#{match\ 16502}#
- #{e\ 16636}#
- #{z-pat\ 16621}#
- #{w\ 16637}#
- #{r\ 16623}#
- #{mod\ 16624}#)))))))
- (#{f\ 16635}# #{e\ 16618}# #{w\ 16622}#))))
- (#{match-each\ 16490}#
- (lambda (#{e\ 16651}#
- #{p\ 16652}#
- #{w\ 16653}#
- #{mod\ 16654}#)
- (if (pair? #{e\ 16651}#)
- (let ((#{first\ 16662}#
- (#{match\ 16502}#
- (car #{e\ 16651}#)
- #{p\ 16652}#
- #{w\ 16653}#
+ #{y-pat\ 3973}#
+ (#{match\ 3855}#
+ #{e\ 3989}#
+ #{z-pat\ 3974}#
+ #{w\ 3990}#
+ #{r\ 3976}#
+ #{mod\ 3977}#)))))))
+ (#{f\ 3988}# #{e\ 3971}# #{w\ 3975}#))))
+ (#{match-each\ 3843}#
+ (lambda (#{e\ 4004}#
+ #{p\ 4005}#
+ #{w\ 4006}#
+ #{mod\ 4007}#)
+ (if (pair? #{e\ 4004}#)
+ (let ((#{first\ 4015}#
+ (#{match\ 3855}#
+ (car #{e\ 4004}#)
+ #{p\ 4005}#
+ #{w\ 4006}#
'()
- #{mod\ 16654}#)))
- (if #{first\ 16662}#
- (let ((#{rest\ 16666}#
- (#{match-each\ 16490}#
- (cdr #{e\ 16651}#)
- #{p\ 16652}#
- #{w\ 16653}#
- #{mod\ 16654}#)))
- (if #{rest\ 16666}#
- (cons #{first\ 16662}# #{rest\ 16666}#)
+ #{mod\ 4007}#)))
+ (if #{first\ 4015}#
+ (let ((#{rest\ 4019}#
+ (#{match-each\ 3843}#
+ (cdr #{e\ 4004}#)
+ #{p\ 4005}#
+ #{w\ 4006}#
+ #{mod\ 4007}#)))
+ (if #{rest\ 4019}#
+ (cons #{first\ 4015}# #{rest\ 4019}#)
#f))
#f))
- (if (null? #{e\ 16651}#)
+ (if (null? #{e\ 4004}#)
'()
- (if (#{syntax-object?\ 12880}# #{e\ 16651}#)
- (#{match-each\ 16490}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16651}#)
- #{p\ 16652}#
- (#{join-wraps\ 12967}#
- #{w\ 16653}#
- (#{syntax-object-wrap\ 12884}# #{e\ 16651}#))
- (#{syntax-object-module\ 12886}# #{e\ 16651}#))
+ (if (#{syntax-object?\ 271}# #{e\ 4004}#)
+ (#{match-each\ 3843}#
+ (#{syntax-object-expression\ 273}# #{e\ 4004}#)
+ #{p\ 4005}#
+ (#{join-wraps\ 358}#
+ #{w\ 4006}#
+ (#{syntax-object-wrap\ 275}# #{e\ 4004}#))
+ (#{syntax-object-module\ 277}# #{e\ 4004}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 16674}# #{p\ 16675}#)
- (if (eq? #{p\ 16675}# (quote any))
- (list #{e\ 16674}#)
- (if (#{syntax-object?\ 12880}# #{e\ 16674}#)
- (#{match*\ 16500}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16674}#)
- #{p\ 16675}#
- (#{syntax-object-wrap\ 12884}# #{e\ 16674}#)
+ (lambda (#{e\ 4027}# #{p\ 4028}#)
+ (if (eq? #{p\ 4028}# (quote any))
+ (list #{e\ 4027}#)
+ (if (#{syntax-object?\ 271}# #{e\ 4027}#)
+ (#{match*\ 3853}#
+ (#{syntax-object-expression\ 273}# #{e\ 4027}#)
+ #{p\ 4028}#
+ (#{syntax-object-wrap\ 275}# #{e\ 4027}#)
'()
- (#{syntax-object-module\ 12886}# #{e\ 16674}#))
- (#{match*\ 16500}#
- #{e\ 16674}#
- #{p\ 16675}#
+ (#{syntax-object-module\ 277}# #{e\ 4027}#))
+ (#{match*\ 3853}#
+ #{e\ 4027}#
+ #{p\ 4028}#
'(())
'()
#f)))))))))
@@ -13082,50 +12828,50 @@
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 16684}#)
- ((lambda (#{tmp\ 16686}#)
- ((lambda (#{tmp\ 16687}#)
- (if #{tmp\ 16687}#
- (apply (lambda (#{_\ 16691}# #{e1\ 16692}# #{e2\ 16693}#)
+ (cons (lambda (#{x\ 4037}#)
+ ((lambda (#{tmp\ 4039}#)
+ ((lambda (#{tmp\ 4040}#)
+ (if #{tmp\ 4040}#
+ (apply (lambda (#{_\ 4044}# #{e1\ 4045}# #{e2\ 4046}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i16688" "i16689" "i16690"))
+ #("i4041" "i4042" "i4043"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16685")))
+ #(ribcage #(x) #((top)) #("i4038")))
(hygiene guile))
- (cons #{e1\ 16692}# #{e2\ 16693}#)))
- #{tmp\ 16687}#)
- ((lambda (#{tmp\ 16695}#)
- (if #{tmp\ 16695}#
- (apply (lambda (#{_\ 16701}#
- #{out\ 16702}#
- #{in\ 16703}#
- #{e1\ 16704}#
- #{e2\ 16705}#)
+ (cons #{e1\ 4045}# #{e2\ 4046}#)))
+ #{tmp\ 4040}#)
+ ((lambda (#{tmp\ 4048}#)
+ (if #{tmp\ 4048}#
+ (apply (lambda (#{_\ 4054}#
+ #{out\ 4055}#
+ #{in\ 4056}#
+ #{e1\ 4057}#
+ #{e2\ 4058}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i16696"
- "i16697"
- "i16698"
- "i16699"
- "i16700"))
+ #("i4049"
+ "i4050"
+ "i4051"
+ "i4052"
+ "i4053"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16685")))
+ #("i4038")))
(hygiene guile))
- #{in\ 16703}#
+ #{in\ 4056}#
'()
- (list #{out\ 16702}#
+ (list #{out\ 4055}#
(cons '#(syntax-object
begin
((top)
@@ -13136,27 +12882,27 @@
(top)
(top)
(top))
- #("i16696"
- "i16697"
- "i16698"
- "i16699"
- "i16700"))
+ #("i4049"
+ "i4050"
+ "i4051"
+ "i4052"
+ "i4053"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16685")))
+ #("i4038")))
(hygiene guile))
- (cons #{e1\ 16704}#
- #{e2\ 16705}#)))))
- #{tmp\ 16695}#)
- ((lambda (#{tmp\ 16707}#)
- (if #{tmp\ 16707}#
- (apply (lambda (#{_\ 16713}#
- #{out\ 16714}#
- #{in\ 16715}#
- #{e1\ 16716}#
- #{e2\ 16717}#)
+ (cons #{e1\ 4057}#
+ #{e2\ 4058}#)))))
+ #{tmp\ 4048}#)
+ ((lambda (#{tmp\ 4060}#)
+ (if #{tmp\ 4060}#
+ (apply (lambda (#{_\ 4066}#
+ #{out\ 4067}#
+ #{in\ 4068}#
+ #{e1\ 4069}#
+ #{e2\ 4070}#)
(list '#(syntax-object
syntax-case
((top)
@@ -13167,16 +12913,16 @@
(top)
(top)
(top))
- #("i16708"
- "i16709"
- "i16710"
- "i16711"
- "i16712"))
+ #("i4061"
+ "i4062"
+ "i4063"
+ "i4064"
+ "i4065"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16685")))
+ #("i4038")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -13188,20 +12934,20 @@
(top)
(top)
(top))
- #("i16708"
- "i16709"
- "i16710"
- "i16711"
- "i16712"))
+ #("i4061"
+ "i4062"
+ "i4063"
+ "i4064"
+ "i4065"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16685")))
+ #("i4038")))
(hygiene guile))
- #{in\ 16715}#)
+ #{in\ 4068}#)
'()
- (list #{out\ 16714}#
+ (list #{out\ 4067}#
(cons '#(syntax-object
begin
((top)
@@ -13216,11 +12962,11 @@
(top)
(top)
(top))
- #("i16708"
- "i16709"
- "i16710"
- "i16711"
- "i16712"))
+ #("i4061"
+ "i4062"
+ "i4063"
+ "i4064"
+ "i4065"))
#(ribcage
()
()
@@ -13228,53 +12974,53 @@
#(ribcage
#(x)
#((top))
- #("i16685")))
+ #("i4038")))
(hygiene guile))
- (cons #{e1\ 16716}#
- #{e2\
16717}#)))))
- #{tmp\ 16707}#)
+ (cons #{e1\ 4069}#
+ #{e2\
4070}#)))))
+ #{tmp\ 4060}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16686}#)))
+ #{tmp\ 4039}#)))
($sc-dispatch
- #{tmp\ 16686}#
+ #{tmp\ 4039}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 16686}#
+ #{tmp\ 4039}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 16686}#
+ #{tmp\ 4039}#
'(any () any . each-any))))
- #{x\ 16684}#))
+ #{x\ 4037}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 16721}#)
- ((lambda (#{tmp\ 16723}#)
- ((lambda (#{tmp\ 16724}#)
- (if #{tmp\ 16724}#
- (apply (lambda (#{_\ 16730}#
- #{k\ 16731}#
- #{keyword\ 16732}#
- #{pattern\ 16733}#
- #{template\ 16734}#)
+ (cons (lambda (#{x\ 4074}#)
+ ((lambda (#{tmp\ 4076}#)
+ ((lambda (#{tmp\ 4077}#)
+ (if #{tmp\ 4077}#
+ (apply (lambda (#{_\ 4083}#
+ #{k\ 4084}#
+ #{keyword\ 4085}#
+ #{pattern\ 4086}#
+ #{template\ 4087}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16725"
- "i16726"
- "i16727"
- "i16728"
- "i16729"))
+ #("i4078"
+ "i4079"
+ "i4080"
+ "i4081"
+ "i4082"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16722")))
+ #(ribcage #(x) #((top)) #("i4075")))
(hygiene guile))
'(#(syntax-object
x
@@ -13282,13 +13028,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16725"
- "i16726"
- "i16727"
- "i16728"
- "i16729"))
+ #("i4078"
+ "i4079"
+ "i4080"
+ "i4081"
+ "i4082"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16722")))
+ #(ribcage #(x) #((top)) #("i4075")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -13297,13 +13043,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16725"
- "i16726"
- "i16727"
- "i16728"
- "i16729"))
+ #("i4078"
+ "i4079"
+ "i4080"
+ "i4081"
+ "i4082"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16722")))
+ #(ribcage #(x) #((top)) #("i4075")))
(hygiene guile))
.
#(syntax-object
@@ -13312,13 +13058,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16725"
- "i16726"
- "i16727"
- "i16728"
- "i16729"))
+ #("i4078"
+ "i4079"
+ "i4080"
+ "i4081"
+ "i4082"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16722")))
+ #(ribcage #(x) #((top)) #("i4075")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -13334,34 +13080,34 @@
(top)
(top)
(top))
- #("i16725"
- "i16726"
- "i16727"
- "i16728"
- "i16729"))
+ #("i4078"
+ "i4079"
+ "i4080"
+ "i4081"
+ "i4082"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16722")))
+ #("i4075")))
(hygiene guile))
- #{pattern\ 16733}#))
+ #{pattern\ 4086}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16725"
- "i16726"
- "i16727"
- "i16728"
- "i16729"))
+ #("i4078"
+ "i4079"
+ "i4080"
+ "i4081"
+ "i4082"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16722")))
+ #("i4075")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -13377,20 +13123,20 @@
(top)
(top)
(top))
- #("i16725"
- "i16726"
- "i16727"
- "i16728"
- "i16729"))
+ #("i4078"
+ "i4079"
+ "i4080"
+ "i4081"
+ "i4082"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16722")))
+ #("i4075")))
(hygiene guile))
- (cons #{k\ 16731}#
- (map (lambda (#{tmp\
16738}#
- #{tmp\
16737}#)
+ (cons #{k\ 4084}#
+ (map (lambda (#{tmp\
4091}#
+ #{tmp\
4090}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -13405,11 +13151,11 @@
(top)
(top)
(top))
-
#("i16725"
-
"i16726"
-
"i16727"
-
"i16728"
-
"i16729"))
+
#("i4078"
+
"i4079"
+
"i4080"
+
"i4081"
+
"i4082"))
#(ribcage
()
()
@@ -13417,10 +13163,10 @@
#(ribcage
#(x)
#((top))
-
#("i16722")))
+
#("i4075")))
(hygiene
guile))
- #{tmp\
16737}#)
+ #{tmp\
4090}#)
(list
'#(syntax-object
syntax
((top)
@@ -13435,11 +13181,11 @@
(top)
(top)
(top))
-
#("i16725"
-
"i16726"
-
"i16727"
-
"i16728"
-
"i16729"))
+
#("i4078"
+
"i4079"
+
"i4080"
+
"i4081"
+
"i4082"))
#(ribcage
()
()
@@ -13447,47 +13193,47 @@
#(ribcage
#(x)
#((top))
-
#("i16722")))
+
#("i4075")))
(hygiene
guile))
- #{tmp\
16738}#)))
- #{template\ 16734}#
- #{pattern\
16733}#))))))
- #{tmp\ 16724}#)
+ #{tmp\
4091}#)))
+ #{template\ 4087}#
+ #{pattern\
4086}#))))))
+ #{tmp\ 4077}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16723}#)))
+ #{tmp\ 4076}#)))
($sc-dispatch
- #{tmp\ 16723}#
+ #{tmp\ 4076}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 16721}#))
+ #{x\ 4074}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 16739}#)
- ((lambda (#{tmp\ 16741}#)
- ((lambda (#{tmp\ 16742}#)
- (if (if #{tmp\ 16742}#
- (apply (lambda (#{let*\ 16748}#
- #{x\ 16749}#
- #{v\ 16750}#
- #{e1\ 16751}#
- #{e2\ 16752}#)
- (and-map identifier? #{x\ 16749}#))
- #{tmp\ 16742}#)
+ (cons (lambda (#{x\ 4092}#)
+ ((lambda (#{tmp\ 4094}#)
+ ((lambda (#{tmp\ 4095}#)
+ (if (if #{tmp\ 4095}#
+ (apply (lambda (#{let*\ 4101}#
+ #{x\ 4102}#
+ #{v\ 4103}#
+ #{e1\ 4104}#
+ #{e2\ 4105}#)
+ (and-map identifier? #{x\ 4102}#))
+ #{tmp\ 4095}#)
#f)
- (apply (lambda (#{let*\ 16759}#
- #{x\ 16760}#
- #{v\ 16761}#
- #{e1\ 16762}#
- #{e2\ 16763}#)
- (letrec ((#{f\ 16766}#
- (lambda (#{bindings\ 16767}#)
- (if (null? #{bindings\ 16767}#)
+ (apply (lambda (#{let*\ 4112}#
+ #{x\ 4113}#
+ #{v\ 4114}#
+ #{e1\ 4115}#
+ #{e2\ 4116}#)
+ (letrec ((#{f\ 4119}#
+ (lambda (#{bindings\ 4120}#)
+ (if (null? #{bindings\ 4120}#)
(cons '#(syntax-object
let
((top)
@@ -13495,7 +13241,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i16764" "i16765"))
+ #("i4117" "i4118"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -13503,25 +13249,25 @@
(top)
(top)
(top))
- #("i16754"
- "i16755"
- "i16756"
- "i16757"
- "i16758"))
+ #("i4107"
+ "i4108"
+ "i4109"
+ "i4110"
+ "i4111"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16740")))
+ #("i4093")))
(hygiene guile))
(cons '()
- (cons #{e1\ 16762}#
- #{e2\ 16763}#)))
- ((lambda (#{tmp\ 16772}#)
- ((lambda (#{tmp\ 16773}#)
- (if #{tmp\ 16773}#
- (apply (lambda (#{body\
16776}#
- #{binding\
16777}#)
+ (cons #{e1\ 4115}#
+ #{e2\ 4116}#)))
+ ((lambda (#{tmp\ 4125}#)
+ ((lambda (#{tmp\ 4126}#)
+ (if #{tmp\ 4126}#
+ (apply (lambda (#{body\
4129}#
+ #{binding\
4130}#)
(list
'#(syntax-object
let
((top)
@@ -13530,8 +13276,8 @@
binding)
#((top)
(top))
-
#("i16774"
-
"i16775"))
+
#("i4127"
+
"i4128"))
#(ribcage
()
()
@@ -13541,8 +13287,8 @@
bindings)
#((top)
(top))
-
#("i16764"
-
"i16765"))
+
#("i4117"
+
"i4118"))
#(ribcage
#(let*
x
@@ -13554,11 +13300,11 @@
(top)
(top)
(top))
-
#("i16754"
-
"i16755"
-
"i16756"
-
"i16757"
-
"i16758"))
+
#("i4107"
+
"i4108"
+
"i4109"
+
"i4110"
+
"i4111"))
#(ribcage
()
()
@@ -13566,57 +13312,57 @@
#(ribcage
#(x)
#((top))
-
#("i16740")))
+
#("i4093")))
(hygiene
guile))
- (list
#{binding\ 16777}#)
- #{body\
16776}#))
- #{tmp\ 16773}#)
+ (list
#{binding\ 4130}#)
+ #{body\
4129}#))
+ #{tmp\ 4126}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 16772}#)))
+ #{tmp\ 4125}#)))
($sc-dispatch
- #{tmp\ 16772}#
+ #{tmp\ 4125}#
'(any any))))
- (list (#{f\ 16766}#
- (cdr #{bindings\ 16767}#))
- (car #{bindings\
16767}#)))))))
- (#{f\ 16766}#
- (map list #{x\ 16760}# #{v\ 16761}#))))
- #{tmp\ 16742}#)
+ (list (#{f\ 4119}#
+ (cdr #{bindings\ 4120}#))
+ (car #{bindings\
4120}#)))))))
+ (#{f\ 4119}#
+ (map list #{x\ 4113}# #{v\ 4114}#))))
+ #{tmp\ 4095}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16741}#)))
+ #{tmp\ 4094}#)))
($sc-dispatch
- #{tmp\ 16741}#
+ #{tmp\ 4094}#
'(any #(each (any any)) any . each-any))))
- #{x\ 16739}#))
+ #{x\ 4092}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 16778}#)
- ((lambda (#{tmp\ 16780}#)
- ((lambda (#{tmp\ 16781}#)
- (if #{tmp\ 16781}#
- (apply (lambda (#{_\ 16789}#
- #{var\ 16790}#
- #{init\ 16791}#
- #{step\ 16792}#
- #{e0\ 16793}#
- #{e1\ 16794}#
- #{c\ 16795}#)
- ((lambda (#{tmp\ 16797}#)
- ((lambda (#{tmp\ 16798}#)
- (if #{tmp\ 16798}#
- (apply (lambda (#{step\ 16800}#)
- ((lambda (#{tmp\ 16801}#)
- ((lambda (#{tmp\ 16802}#)
- (if #{tmp\ 16802}#
+ (cons (lambda (#{orig-x\ 4131}#)
+ ((lambda (#{tmp\ 4133}#)
+ ((lambda (#{tmp\ 4134}#)
+ (if #{tmp\ 4134}#
+ (apply (lambda (#{_\ 4142}#
+ #{var\ 4143}#
+ #{init\ 4144}#
+ #{step\ 4145}#
+ #{e0\ 4146}#
+ #{e1\ 4147}#
+ #{c\ 4148}#)
+ ((lambda (#{tmp\ 4150}#)
+ ((lambda (#{tmp\ 4151}#)
+ (if #{tmp\ 4151}#
+ (apply (lambda (#{step\ 4153}#)
+ ((lambda (#{tmp\ 4154}#)
+ ((lambda (#{tmp\ 4155}#)
+ (if #{tmp\ 4155}#
(apply (lambda ()
(list
'#(syntax-object
let
@@ -13624,7 +13370,7 @@
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13640,13 +13386,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -13654,7 +13400,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
'#(syntax-object
@@ -13663,7 +13409,7 @@
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13679,13 +13425,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -13693,19 +13439,19 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
(map list
-
#{var\ 16790}#
-
#{init\ 16791}#)
+
#{var\ 4143}#
+
#{init\ 4144}#)
(list
'#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13721,13 +13467,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -13735,7 +13481,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
(list '#(syntax-object
@@ -13744,7 +13490,7 @@
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13760,13 +13506,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -13774,17 +13520,17 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
-
#{e0\ 16793}#)
+
#{e0\ 4146}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13800,13 +13546,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -13814,18 +13560,18 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
(append
-
#{c\ 16795}#
+
#{c\ 4148}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13841,13 +13587,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -13855,15 +13601,15 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
-
#{step\ 16800}#)))))))
- #{tmp\ 16802}#)
- ((lambda (#{tmp\ 16807}#)
- (if #{tmp\ 16807}#
- (apply (lambda
(#{e1\ 16810}#
-
#{e2\ 16811}#)
+
#{step\ 4153}#)))))))
+ #{tmp\ 4155}#)
+ ((lambda (#{tmp\ 4160}#)
+ (if #{tmp\ 4160}#
+ (apply (lambda
(#{e1\ 4163}#
+
#{e2\ 4164}#)
(list
'#(syntax-object
let
((top)
@@ -13872,12 +13618,12 @@
e2)
#((top)
(top))
-
#("i16808"
-
"i16809"))
+
#("i4161"
+
"i4162"))
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13893,13 +13639,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -13907,7 +13653,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
'#(syntax-object
@@ -13918,12 +13664,12 @@
e2)
#((top)
(top))
-
#("i16808"
-
"i16809"))
+
#("i4161"
+
"i4162"))
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13939,13 +13685,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -13953,12 +13699,12 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
(map
list
-
#{var\ 16790}#
-
#{init\ 16791}#)
+
#{var\ 4143}#
+
#{init\ 4144}#)
(list '#(syntax-object
if
((top)
@@ -13967,12 +13713,12 @@
e2)
#((top)
(top))
-
#("i16808"
-
"i16809"))
+
#("i4161"
+
"i4162"))
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -13988,13 +13734,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -14002,10 +13748,10 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
-
#{e0\ 16793}#
+
#{e0\ 4146}#
(cons '#(syntax-object
begin
((top)
@@ -14014,12 +13760,12 @@
e2)
#((top)
(top))
-
#("i16808"
-
"i16809"))
+
#("i4161"
+
"i4162"))
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -14035,13 +13781,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -14049,11 +13795,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
-
(cons #{e1\ 16810}#
-
#{e2\ 16811}#))
+
(cons #{e1\ 4163}#
+
#{e2\ 4164}#))
(cons '#(syntax-object
begin
((top)
@@ -14062,12 +13808,12 @@
e2)
#((top)
(top))
-
#("i16808"
-
"i16809"))
+
#("i4161"
+
"i4162"))
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -14083,13 +13829,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -14097,11 +13843,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
(append
-
#{c\ 16795}#
+
#{c\ 4148}#
(list (cons '#(syntax-object
doloop
((top)
@@ -14110,12 +13856,12 @@
e2)
#((top)
(top))
-
#("i16808"
-
"i16809"))
+
#("i4161"
+
"i4162"))
#(ribcage
#(step)
#((top))
-
#("i16799"))
+
#("i4152"))
#(ribcage
#(_
var
@@ -14131,13 +13877,13 @@
(top)
(top)
(top))
-
#("i16782"
-
"i16783"
-
"i16784"
-
"i16785"
-
"i16786"
-
"i16787"
-
"i16788"))
+
#("i4135"
+
"i4136"
+
"i4137"
+
"i4138"
+
"i4139"
+
"i4140"
+
"i4141"))
#(ribcage
()
()
@@ -14145,107 +13891,107 @@
#(ribcage
#(orig-x)
#((top))
-
#("i16779")))
+
#("i4132")))
(hygiene
guile))
-
#{step\ 16800}#)))))))
- #{tmp\
16807}#)
+
#{step\ 4153}#)))))))
+ #{tmp\
4160}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 16801}#)))
+ #{tmp\ 4154}#)))
($sc-dispatch
- #{tmp\ 16801}#
+ #{tmp\ 4154}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 16801}#
+ #{tmp\ 4154}#
'())))
- #{e1\ 16794}#))
- #{tmp\ 16798}#)
+ #{e1\ 4147}#))
+ #{tmp\ 4151}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 16797}#)))
+ #{tmp\ 4150}#)))
($sc-dispatch
- #{tmp\ 16797}#
+ #{tmp\ 4150}#
'each-any)))
- (map (lambda (#{v\ 16818}# #{s\ 16819}#)
- ((lambda (#{tmp\ 16822}#)
- ((lambda (#{tmp\ 16823}#)
- (if #{tmp\ 16823}#
- (apply (lambda () #{v\ 16818}#)
- #{tmp\ 16823}#)
- ((lambda (#{tmp\ 16824}#)
- (if #{tmp\ 16824}#
- (apply (lambda (#{e\ 16826}#)
- #{e\ 16826}#)
- #{tmp\ 16824}#)
- ((lambda (#{_\ 16828}#)
+ (map (lambda (#{v\ 4171}# #{s\ 4172}#)
+ ((lambda (#{tmp\ 4175}#)
+ ((lambda (#{tmp\ 4176}#)
+ (if #{tmp\ 4176}#
+ (apply (lambda () #{v\ 4171}#)
+ #{tmp\ 4176}#)
+ ((lambda (#{tmp\ 4177}#)
+ (if #{tmp\ 4177}#
+ (apply (lambda (#{e\ 4179}#)
+ #{e\ 4179}#)
+ #{tmp\ 4177}#)
+ ((lambda (#{_\ 4181}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 16778}#
- #{s\ 16819}#))
- #{tmp\ 16822}#)))
+ #{orig-x\ 4131}#
+ #{s\ 4172}#))
+ #{tmp\ 4175}#)))
($sc-dispatch
- #{tmp\ 16822}#
+ #{tmp\ 4175}#
'(any)))))
($sc-dispatch
- #{tmp\ 16822}#
+ #{tmp\ 4175}#
'())))
- #{s\ 16819}#))
- #{var\ 16790}#
- #{step\ 16792}#)))
- #{tmp\ 16781}#)
+ #{s\ 4172}#))
+ #{var\ 4143}#
+ #{step\ 4145}#)))
+ #{tmp\ 4134}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16780}#)))
+ #{tmp\ 4133}#)))
($sc-dispatch
- #{tmp\ 16780}#
+ #{tmp\ 4133}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 16778}#))
+ #{orig-x\ 4131}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 16835}#
- (lambda (#{x\ 16839}# #{y\ 16840}#)
- ((lambda (#{tmp\ 16844}#)
- ((lambda (#{tmp\ 16845}#)
- (if #{tmp\ 16845}#
- (apply (lambda (#{x\ 16848}# #{y\ 16849}#)
- ((lambda (#{tmp\ 16850}#)
- ((lambda (#{tmp\ 16851}#)
- (if #{tmp\ 16851}#
- (apply (lambda (#{dy\ 16853}#)
- ((lambda (#{tmp\
16854}#)
- ((lambda (#{tmp\
16855}#)
- (if #{tmp\
16855}#
- (apply
(lambda (#{dx\ 16857}#)
+ (cons (letrec ((#{quasicons\ 4188}#
+ (lambda (#{x\ 4192}# #{y\ 4193}#)
+ ((lambda (#{tmp\ 4197}#)
+ ((lambda (#{tmp\ 4198}#)
+ (if #{tmp\ 4198}#
+ (apply (lambda (#{x\ 4201}# #{y\ 4202}#)
+ ((lambda (#{tmp\ 4203}#)
+ ((lambda (#{tmp\ 4204}#)
+ (if #{tmp\ 4204}#
+ (apply (lambda (#{dy\ 4206}#)
+ ((lambda (#{tmp\
4207}#)
+ ((lambda (#{tmp\
4208}#)
+ (if #{tmp\
4208}#
+ (apply
(lambda (#{dx\ 4210}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
-
#("i16856"))
+
#("i4209"))
#(ribcage
#(dy)
#((top))
-
#("i16852"))
+
#("i4205"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i16846"
-
"i16847"))
+
#("i4199"
+
"i4200"))
#(ribcage
()
()
@@ -14259,8 +14005,8 @@
y)
#((top)
(top))
-
#("i16841"
-
"i16842"))
+
#("i4194"
+
"i4195"))
#(ribcage
#(quasicons
quasiappend
@@ -14270,35 +14016,35 @@
(top)
(top)
(top))
-
#("i16831"
-
"i16832"
-
"i16833"
-
"i16834")))
+
#("i4184"
+
"i4185"
+
"i4186"
+
"i4187")))
(hygiene
guile))
-
(cons #{dx\ 16857}#
-
#{dy\ 16853}#)))
- #{tmp\
16855}#)
- ((lambda
(#{_\ 16859}#)
- (if (null?
#{dy\ 16853}#)
+
(cons #{dx\ 4210}#
+
#{dy\ 4206}#)))
+ #{tmp\
4208}#)
+ ((lambda
(#{_\ 4212}#)
+ (if (null?
#{dy\ 4206}#)
(list
'#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
-
#("i16858"))
+
#("i4211"))
#(ribcage
#(dy)
#((top))
-
#("i16852"))
+
#("i4205"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i16846"
-
"i16847"))
+
#("i4199"
+
"i4200"))
#(ribcage
()
()
@@ -14312,8 +14058,8 @@
y)
#((top)
(top))
-
#("i16841"
-
"i16842"))
+
#("i4194"
+
"i4195"))
#(ribcage
#(quasicons
quasiappend
@@ -14323,31 +14069,31 @@
(top)
(top)
(top))
-
#("i16831"
-
"i16832"
-
"i16833"
-
"i16834")))
+
#("i4184"
+
"i4185"
+
"i4186"
+
"i4187")))
(hygiene
guile))
-
#{x\ 16848}#)
+
#{x\ 4201}#)
(list
'#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
-
#("i16858"))
+
#("i4211"))
#(ribcage
#(dy)
#((top))
-
#("i16852"))
+
#("i4205"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i16846"
-
"i16847"))
+
#("i4199"
+
"i4200"))
#(ribcage
()
()
@@ -14361,8 +14107,8 @@
y)
#((top)
(top))
-
#("i16841"
-
"i16842"))
+
#("i4194"
+
"i4195"))
#(ribcage
#(quasicons
quasiappend
@@ -14372,17 +14118,17 @@
(top)
(top)
(top))
-
#("i16831"
-
"i16832"
-
"i16833"
-
"i16834")))
+
#("i4184"
+
"i4185"
+
"i4186"
+
"i4187")))
(hygiene
guile))
-
#{x\ 16848}#
-
#{y\ 16849}#)))
- #{tmp\
16854}#)))
+
#{x\ 4201}#
+
#{y\ 4202}#)))
+ #{tmp\
4207}#)))
($sc-dispatch
- #{tmp\ 16854}#
+ #{tmp\ 4207}#
'(#(free-id
#(syntax-object
quote
@@ -14390,13 +14136,13 @@
#(ribcage
#(dy)
#((top))
-
#("i16852"))
+
#("i4205"))
#(ribcage
#(x y)
#((top)
(top))
-
#("i16846"
-
"i16847"))
+
#("i4199"
+
"i4200"))
#(ribcage
()
()
@@ -14409,8 +14155,8 @@
#(x y)
#((top)
(top))
-
#("i16841"
-
"i16842"))
+
#("i4194"
+
"i4195"))
#(ribcage
#(quasicons
quasiappend
@@ -14420,32 +14166,32 @@
(top)
(top)
(top))
-
#("i16831"
-
"i16832"
-
"i16833"
-
"i16834")))
+
#("i4184"
+
"i4185"
+
"i4186"
+
"i4187")))
(hygiene
guile)))
any))))
- #{x\ 16848}#))
- #{tmp\ 16851}#)
- ((lambda (#{tmp\ 16860}#)
- (if #{tmp\ 16860}#
- (apply (lambda (#{stuff\
16862}#)
+ #{x\ 4201}#))
+ #{tmp\ 4204}#)
+ ((lambda (#{tmp\ 4213}#)
+ (if #{tmp\ 4213}#
+ (apply (lambda (#{stuff\
4215}#)
(cons
'#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
-
#("i16861"))
+
#("i4214"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i16846"
-
"i16847"))
+
#("i4199"
+
"i4200"))
#(ribcage
()
()
@@ -14459,8 +14205,8 @@
y)
#((top)
(top))
-
#("i16841"
-
"i16842"))
+
#("i4194"
+
"i4195"))
#(ribcage
#(quasicons
quasiappend
@@ -14470,29 +14216,29 @@
(top)
(top)
(top))
-
#("i16831"
-
"i16832"
-
"i16833"
-
"i16834")))
+
#("i4184"
+
"i4185"
+
"i4186"
+
"i4187")))
(hygiene
guile))
- (cons #{x\
16848}#
-
#{stuff\ 16862}#)))
- #{tmp\ 16860}#)
- ((lambda (#{else\ 16864}#)
+ (cons #{x\
4201}#
+
#{stuff\ 4215}#)))
+ #{tmp\ 4213}#)
+ ((lambda (#{else\ 4217}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
-
#("i16863"))
+ #("i4216"))
#(ribcage
#(x y)
#((top)
(top))
- #("i16846"
-
"i16847"))
+ #("i4199"
+ "i4200"))
#(ribcage
()
()
@@ -14505,8 +14251,8 @@
#(x y)
#((top)
(top))
- #("i16841"
-
"i16842"))
+ #("i4194"
+ "i4195"))
#(ribcage
#(quasicons
quasiappend
@@ -14516,17 +14262,17 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
-
"i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+
"i4187")))
(hygiene
guile))
- #{x\ 16848}#
- #{y\ 16849}#))
- #{tmp\ 16850}#)))
+ #{x\ 4201}#
+ #{y\ 4202}#))
+ #{tmp\ 4203}#)))
($sc-dispatch
- #{tmp\ 16850}#
+ #{tmp\ 4203}#
'(#(free-id
#(syntax-object
list
@@ -14534,15 +14280,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i16846"
- "i16847"))
+ #("i4199" "i4200"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i16841"
- "i16842"))
+ #("i4194" "i4195"))
#(ribcage
#(quasicons
quasiappend
@@ -14552,15 +14296,15 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 16850}#
+ #{tmp\ 4203}#
'(#(free-id
#(syntax-object
quote
@@ -14568,13 +14312,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i16846" "i16847"))
+ #("i4199" "i4200"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i16841" "i16842"))
+ #("i4194" "i4195"))
#(ribcage
#(quasicons
quasiappend
@@ -14584,44 +14328,44 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
any))))
- #{y\ 16849}#))
- #{tmp\ 16845}#)
+ #{y\ 4202}#))
+ #{tmp\ 4198}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 16844}#)))
- ($sc-dispatch #{tmp\ 16844}# (quote (any any)))))
- (list #{x\ 16839}# #{y\ 16840}#))))
- (#{quasiappend\ 16836}#
- (lambda (#{x\ 16865}# #{y\ 16866}#)
- ((lambda (#{tmp\ 16870}#)
- ((lambda (#{tmp\ 16871}#)
- (if #{tmp\ 16871}#
- (apply (lambda (#{x\ 16874}# #{y\ 16875}#)
- ((lambda (#{tmp\ 16876}#)
- ((lambda (#{tmp\ 16877}#)
- (if #{tmp\ 16877}#
- (apply (lambda () #{x\ 16874}#)
- #{tmp\ 16877}#)
- ((lambda (#{_\ 16879}#)
+ #{tmp\ 4197}#)))
+ ($sc-dispatch #{tmp\ 4197}# (quote (any any)))))
+ (list #{x\ 4192}# #{y\ 4193}#))))
+ (#{quasiappend\ 4189}#
+ (lambda (#{x\ 4218}# #{y\ 4219}#)
+ ((lambda (#{tmp\ 4223}#)
+ ((lambda (#{tmp\ 4224}#)
+ (if #{tmp\ 4224}#
+ (apply (lambda (#{x\ 4227}# #{y\ 4228}#)
+ ((lambda (#{tmp\ 4229}#)
+ ((lambda (#{tmp\ 4230}#)
+ (if #{tmp\ 4230}#
+ (apply (lambda () #{x\ 4227}#)
+ #{tmp\ 4230}#)
+ ((lambda (#{_\ 4232}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i16878"))
+ #("i4231"))
#(ribcage
#(x y)
#((top) (top))
- #("i16872"
- "i16873"))
+ #("i4225"
+ "i4226"))
#(ribcage
()
()
@@ -14633,8 +14377,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i16867"
- "i16868"))
+ #("i4220"
+ "i4221"))
#(ribcage
#(quasicons
quasiappend
@@ -14644,16 +14388,16 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile))
- #{x\ 16874}#
- #{y\ 16875}#))
- #{tmp\ 16876}#)))
+ #{x\ 4227}#
+ #{y\ 4228}#))
+ #{tmp\ 4229}#)))
($sc-dispatch
- #{tmp\ 16876}#
+ #{tmp\ 4229}#
'(#(free-id
#(syntax-object
quote
@@ -14661,13 +14405,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i16872" "i16873"))
+ #("i4225" "i4226"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i16867" "i16868"))
+ #("i4220" "i4221"))
#(ribcage
#(quasicons
quasiappend
@@ -14677,45 +14421,45 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
()))))
- #{y\ 16875}#))
- #{tmp\ 16871}#)
+ #{y\ 4228}#))
+ #{tmp\ 4224}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 16870}#)))
- ($sc-dispatch #{tmp\ 16870}# (quote (any any)))))
- (list #{x\ 16865}# #{y\ 16866}#))))
- (#{quasivector\ 16837}#
- (lambda (#{x\ 16880}#)
- ((lambda (#{tmp\ 16883}#)
- ((lambda (#{x\ 16885}#)
- ((lambda (#{tmp\ 16886}#)
- ((lambda (#{tmp\ 16887}#)
- (if #{tmp\ 16887}#
- (apply (lambda (#{x\ 16889}#)
+ #{tmp\ 4223}#)))
+ ($sc-dispatch #{tmp\ 4223}# (quote (any any)))))
+ (list #{x\ 4218}# #{y\ 4219}#))))
+ (#{quasivector\ 4190}#
+ (lambda (#{x\ 4233}#)
+ ((lambda (#{tmp\ 4236}#)
+ ((lambda (#{x\ 4238}#)
+ ((lambda (#{tmp\ 4239}#)
+ ((lambda (#{tmp\ 4240}#)
+ (if #{tmp\ 4240}#
+ (apply (lambda (#{x\ 4242}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i16888"))
+ #("i4241"))
#(ribcage
#(x)
#((top))
- #("i16884"))
+ #("i4237"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16881"))
+ #("i4234"))
#(ribcage
#(quasicons
quasiappend
@@ -14725,28 +14469,28 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile))
(list->vector
- #{x\ 16889}#)))
- #{tmp\ 16887}#)
- ((lambda (#{tmp\ 16891}#)
- (if #{tmp\ 16891}#
- (apply (lambda (#{x\ 16893}#)
+ #{x\ 4242}#)))
+ #{tmp\ 4240}#)
+ ((lambda (#{tmp\ 4244}#)
+ (if #{tmp\ 4244}#
+ (apply (lambda (#{x\ 4246}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i16892"))
+ #("i4245"))
#(ribcage
#(x)
#((top))
- #("i16884"))
+ #("i4237"))
#(ribcage
()
()
@@ -14758,7 +14502,7 @@
#(ribcage
#(x)
#((top))
- #("i16881"))
+ #("i4234"))
#(ribcage
#(quasicons
quasiappend
@@ -14768,31 +14512,31 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile))
- #{x\ 16893}#))
- #{tmp\ 16891}#)
- ((lambda (#{_\ 16896}#)
+ #{x\ 4246}#))
+ #{tmp\ 4244}#)
+ ((lambda (#{_\ 4249}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i16895"))
+ #("i4248"))
#(ribcage
#(x)
#((top))
- #("i16884"))
+ #("i4237"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16881"))
+ #("i4234"))
#(ribcage
#(quasicons
quasiappend
@@ -14802,15 +14546,15 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile))
- #{x\ 16885}#))
- #{tmp\ 16886}#)))
+ #{x\ 4238}#))
+ #{tmp\ 4239}#)))
($sc-dispatch
- #{tmp\ 16886}#
+ #{tmp\ 4239}#
'(#(free-id
#(syntax-object
list
@@ -14818,82 +14562,82 @@
#(ribcage
#(x)
#((top))
- #("i16884"))
+ #("i4237"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16881"))
+ #("i4234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 16886}#
+ #{tmp\ 4239}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i16884"))
+ #(ribcage #(x) #((top)) #("i4237"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16881"))
+ #(ribcage #(x) #((top)) #("i4234"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
each-any))))
- #{x\ 16885}#))
- #{tmp\ 16883}#))
- #{x\ 16880}#)))
- (#{quasi\ 16838}#
- (lambda (#{p\ 16897}# #{lev\ 16898}#)
- ((lambda (#{tmp\ 16901}#)
- ((lambda (#{tmp\ 16902}#)
- (if #{tmp\ 16902}#
- (apply (lambda (#{p\ 16904}#)
- (if (= #{lev\ 16898}# 0)
- #{p\ 16904}#
- (#{quasicons\ 16835}#
+ #{x\ 4238}#))
+ #{tmp\ 4236}#))
+ #{x\ 4233}#)))
+ (#{quasi\ 4191}#
+ (lambda (#{p\ 4250}# #{lev\ 4251}#)
+ ((lambda (#{tmp\ 4254}#)
+ ((lambda (#{tmp\ 4255}#)
+ (if #{tmp\ 4255}#
+ (apply (lambda (#{p\ 4257}#)
+ (if (= #{lev\ 4251}# 0)
+ #{p\ 4257}#
+ (#{quasicons\ 4188}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i16903"))
+ #("i4256"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i16899" "i16900"))
+ #("i4252" "i4253"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile))
#(syntax-object
unquote
@@ -14901,51 +14645,50 @@
#(ribcage
#(p)
#((top))
- #("i16903"))
+ #("i4256"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i16899" "i16900"))
+ #("i4252" "i4253"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
- (#{quasi\ 16838}#
- (list #{p\ 16904}#)
- (- #{lev\ 16898}# 1)))))
- #{tmp\ 16902}#)
- ((lambda (#{tmp\ 16905}#)
- (if (if #{tmp\ 16905}#
- (apply (lambda (#{args\ 16907}#)
- (= #{lev\ 16898}# 0))
- #{tmp\ 16905}#)
+ (#{quasi\ 4191}#
+ (list #{p\ 4257}#)
+ (- #{lev\ 4251}# 1)))))
+ #{tmp\ 4255}#)
+ ((lambda (#{tmp\ 4258}#)
+ (if (if #{tmp\ 4258}#
+ (apply (lambda (#{args\ 4260}#)
+ (= #{lev\ 4251}# 0))
+ #{tmp\ 4258}#)
#f)
- (apply (lambda (#{args\ 16909}#)
+ (apply (lambda (#{args\ 4262}#)
(syntax-violation
'unquote
"unquote takes exactly one
argument"
- #{p\ 16897}#
+ #{p\ 4250}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i16908"))
+ #("i4261"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i16899"
- "i16900"))
+ #("i4252" "i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -14955,33 +14698,33 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile))
- #{args\ 16909}#)))
- #{tmp\ 16905}#)
- ((lambda (#{tmp\ 16910}#)
- (if #{tmp\ 16910}#
- (apply (lambda (#{p\ 16913}#
- #{q\ 16914}#)
- (if (= #{lev\ 16898}# 0)
- (#{quasiappend\ 16836}#
- #{p\ 16913}#
- (#{quasi\ 16838}#
- #{q\ 16914}#
- #{lev\ 16898}#))
- (#{quasicons\ 16835}#
- (#{quasicons\ 16835}#
+ #{args\ 4262}#)))
+ #{tmp\ 4258}#)
+ ((lambda (#{tmp\ 4263}#)
+ (if #{tmp\ 4263}#
+ (apply (lambda (#{p\ 4266}#
+ #{q\ 4267}#)
+ (if (= #{lev\ 4251}# 0)
+ (#{quasiappend\ 4189}#
+ #{p\ 4266}#
+ (#{quasi\ 4191}#
+ #{q\ 4267}#
+ #{lev\ 4251}#))
+ (#{quasicons\ 4188}#
+ (#{quasicons\ 4188}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i16911"
- "i16912"))
+ #("i4264"
+ "i4265"))
#(ribcage
()
()
@@ -14989,8 +14732,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16899"
- "i16900"))
+ #("i4252"
+ "i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -15000,10 +14743,10 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -15011,8 +14754,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i16911"
- "i16912"))
+ #("i4264"
+ "i4265"))
#(ribcage
()
()
@@ -15020,8 +14763,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16899"
- "i16900"))
+ #("i4252"
+ "i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -15031,33 +14774,31 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
- (#{quasi\ 16838}#
- (list #{p\ 16913}#)
- (- #{lev\ 16898}#
- 1)))
- (#{quasi\ 16838}#
- #{q\ 16914}#
- #{lev\ 16898}#))))
- #{tmp\ 16910}#)
- ((lambda (#{tmp\ 16915}#)
- (if (if #{tmp\ 16915}#
- (apply (lambda (#{args\
16918}#
- #{q\ 16919}#)
- (= #{lev\ 16898}#
- 0))
- #{tmp\ 16915}#)
+ (#{quasi\ 4191}#
+ (list #{p\ 4266}#)
+ (- #{lev\ 4251}# 1)))
+ (#{quasi\ 4191}#
+ #{q\ 4267}#
+ #{lev\ 4251}#))))
+ #{tmp\ 4263}#)
+ ((lambda (#{tmp\ 4268}#)
+ (if (if #{tmp\ 4268}#
+ (apply (lambda (#{args\
4271}#
+ #{q\ 4272}#)
+ (= #{lev\ 4251}# 0))
+ #{tmp\ 4268}#)
#f)
- (apply (lambda (#{args\ 16922}#
- #{q\ 16923}#)
+ (apply (lambda (#{args\ 4275}#
+ #{q\ 4276}#)
(syntax-violation
'unquote-splicing
"unquote-splicing
takes exactly one argument"
- #{p\ 16897}#
+ #{p\ 4250}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -15065,8 +14806,8 @@
#(args q)
#((top)
(top))
- #("i16920"
-
"i16921"))
+ #("i4273"
+
"i4274"))
#(ribcage
()
()
@@ -15075,8 +14816,8 @@
#(p lev)
#((top)
(top))
- #("i16899"
-
"i16900"))
+ #("i4252"
+
"i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -15086,25 +14827,25 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
-
"i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+
"i4187")))
(hygiene
guile))
- #{args\
16922}#)))
- #{tmp\ 16915}#)
- ((lambda (#{tmp\ 16924}#)
- (if #{tmp\ 16924}#
- (apply (lambda (#{p\
16926}#)
- (#{quasicons\
16835}#
+ #{args\
4275}#)))
+ #{tmp\ 4268}#)
+ ((lambda (#{tmp\ 4277}#)
+ (if #{tmp\ 4277}#
+ (apply (lambda (#{p\ 4279}#)
+ (#{quasicons\
4188}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i16925"))
+
#("i4278"))
#(ribcage
()
()
@@ -15113,8 +14854,8 @@
#(p lev)
#((top)
(top))
- #("i16899"
-
"i16900"))
+ #("i4252"
+
"i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -15124,10 +14865,10 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
-
"i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+
"i4187")))
(hygiene
guile))
#(syntax-object
@@ -15136,7 +14877,7 @@
#(ribcage
#(p)
#((top))
-
#("i16925"))
+
#("i4278"))
#(ribcage
()
()
@@ -15145,8 +14886,8 @@
#(p lev)
#((top)
(top))
- #("i16899"
-
"i16900"))
+ #("i4252"
+
"i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -15156,45 +14897,45 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
-
"i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+
"i4187")))
(hygiene
guile)))
- (#{quasi\ 16838}#
- (list #{p\
16926}#)
- (+ #{lev\
16898}#
+ (#{quasi\ 4191}#
+ (list #{p\
4279}#)
+ (+ #{lev\
4251}#
1))))
- #{tmp\ 16924}#)
- ((lambda (#{tmp\ 16927}#)
- (if #{tmp\ 16927}#
- (apply (lambda (#{p\
16930}#
- #{q\
16931}#)
- (#{quasicons\
16835}#
- (#{quasi\
16838}#
- #{p\
16930}#
- #{lev\
16898}#)
- (#{quasi\
16838}#
- #{q\
16931}#
- #{lev\
16898}#)))
- #{tmp\ 16927}#)
- ((lambda (#{tmp\
16932}#)
- (if #{tmp\ 16932}#
- (apply (lambda
(#{x\ 16934}#)
-
(#{quasivector\ 16837}#
-
(#{quasi\ 16838}#
- #{x\
16934}#
-
#{lev\ 16898}#)))
- #{tmp\
16932}#)
- ((lambda (#{p\
16937}#)
+ #{tmp\ 4277}#)
+ ((lambda (#{tmp\ 4280}#)
+ (if #{tmp\ 4280}#
+ (apply (lambda (#{p\
4283}#
+ #{q\
4284}#)
+ (#{quasicons\
4188}#
+ (#{quasi\
4191}#
+ #{p\
4283}#
+ #{lev\
4251}#)
+ (#{quasi\
4191}#
+ #{q\
4284}#
+ #{lev\
4251}#)))
+ #{tmp\ 4280}#)
+ ((lambda (#{tmp\
4285}#)
+ (if #{tmp\ 4285}#
+ (apply (lambda
(#{x\ 4287}#)
+
(#{quasivector\ 4190}#
+
(#{quasi\ 4191}#
+ #{x\
4287}#
+
#{lev\ 4251}#)))
+ #{tmp\
4285}#)
+ ((lambda (#{p\
4290}#)
(list
'#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i16936"))
+
#("i4289"))
#(ribcage
()
()
@@ -15204,8 +14945,8 @@
lev)
#((top)
(top))
-
#("i16899"
-
"i16900"))
+
#("i4252"
+
"i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -15215,23 +14956,23 @@
(top)
(top)
(top))
-
#("i16831"
-
"i16832"
-
"i16833"
-
"i16834")))
+
#("i4184"
+
"i4185"
+
"i4186"
+
"i4187")))
(hygiene
guile))
- #{p\
16937}#))
- #{tmp\ 16901}#)))
+ #{p\
4290}#))
+ #{tmp\ 4254}#)))
($sc-dispatch
- #{tmp\ 16901}#
+ #{tmp\ 4254}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 16901}#
+ #{tmp\ 4254}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 16901}#
+ #{tmp\ 4254}#
'(#(free-id
#(syntax-object
quasiquote
@@ -15240,7 +14981,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16899" "i16900"))
+ #("i4252" "i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -15250,14 +14991,14 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 16901}#
+ #{tmp\ 4254}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -15266,7 +15007,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16899" "i16900"))
+ #("i4252" "i4253"))
#(ribcage
#(quasicons
quasiappend
@@ -15276,17 +15017,17 @@
(top)
(top)
(top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 16901}#
+ #{tmp\ 4254}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -15295,23 +15036,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16899" "i16900"))
+ #("i4252" "i4253"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184"
+ "i4185"
+ "i4186"
+ "i4187")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 16901}#
+ #{tmp\ 4254}#
'(#(free-id
#(syntax-object
unquote
@@ -15320,22 +15061,19 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16899" "i16900"))
+ #("i4252" "i4253"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16831"
- "i16832"
- "i16833"
- "i16834")))
+ #("i4184" "i4185" "i4186" "i4187")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 16901}#
+ #{tmp\ 4254}#
'(#(free-id
#(syntax-object
unquote
@@ -15344,244 +15082,244 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16899" "i16900"))
+ #("i4252" "i4253"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16831" "i16832" "i16833" "i16834")))
+ #("i4184" "i4185" "i4186" "i4187")))
(hygiene guile)))
any))))
- #{p\ 16897}#))))
- (lambda (#{x\ 16938}#)
- ((lambda (#{tmp\ 16940}#)
- ((lambda (#{tmp\ 16941}#)
- (if #{tmp\ 16941}#
- (apply (lambda (#{_\ 16944}# #{e\ 16945}#)
- (#{quasi\ 16838}# #{e\ 16945}# 0))
- #{tmp\ 16941}#)
+ #{p\ 4250}#))))
+ (lambda (#{x\ 4291}#)
+ ((lambda (#{tmp\ 4293}#)
+ ((lambda (#{tmp\ 4294}#)
+ (if #{tmp\ 4294}#
+ (apply (lambda (#{_\ 4297}# #{e\ 4298}#)
+ (#{quasi\ 4191}# #{e\ 4298}# 0))
+ #{tmp\ 4294}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16940}#)))
- ($sc-dispatch #{tmp\ 16940}# (quote (any any)))))
- #{x\ 16938}#)))
+ #{tmp\ 4293}#)))
+ ($sc-dispatch #{tmp\ 4293}# (quote (any any)))))
+ #{x\ 4291}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 16946}#)
- (letrec ((#{read-file\ 16949}#
- (lambda (#{fn\ 16950}# #{k\ 16951}#)
- (let ((#{p\ 16955}# (open-input-file #{fn\ 16950}#)))
- (letrec ((#{f\ 16959}#
- (lambda (#{x\ 16960}# #{result\ 16961}#)
- (if (eof-object? #{x\ 16960}#)
+ (cons (lambda (#{x\ 4299}#)
+ (letrec ((#{read-file\ 4302}#
+ (lambda (#{fn\ 4303}# #{k\ 4304}#)
+ (let ((#{p\ 4308}# (open-input-file #{fn\ 4303}#)))
+ (letrec ((#{f\ 4312}#
+ (lambda (#{x\ 4313}# #{result\ 4314}#)
+ (if (eof-object? #{x\ 4313}#)
(begin
- (close-input-port #{p\ 16955}#)
- (reverse #{result\ 16961}#))
- (#{f\ 16959}#
- (read #{p\ 16955}#)
+ (close-input-port #{p\ 4308}#)
+ (reverse #{result\ 4314}#))
+ (#{f\ 4312}#
+ (read #{p\ 4308}#)
(cons (datum->syntax
- #{k\ 16951}#
- #{x\ 16960}#)
- #{result\ 16961}#))))))
- (#{f\ 16959}# (read #{p\ 16955}#) (quote ())))))))
- ((lambda (#{tmp\ 16962}#)
- ((lambda (#{tmp\ 16963}#)
- (if #{tmp\ 16963}#
- (apply (lambda (#{k\ 16966}# #{filename\ 16967}#)
- (let ((#{fn\ 16969}#
- (syntax->datum #{filename\ 16967}#)))
- ((lambda (#{tmp\ 16971}#)
- ((lambda (#{tmp\ 16972}#)
- (if #{tmp\ 16972}#
- (apply (lambda (#{exp\ 16974}#)
+ #{k\ 4304}#
+ #{x\ 4313}#)
+ #{result\ 4314}#))))))
+ (#{f\ 4312}# (read #{p\ 4308}#) (quote ())))))))
+ ((lambda (#{tmp\ 4315}#)
+ ((lambda (#{tmp\ 4316}#)
+ (if #{tmp\ 4316}#
+ (apply (lambda (#{k\ 4319}# #{filename\ 4320}#)
+ (let ((#{fn\ 4322}#
+ (syntax->datum #{filename\ 4320}#)))
+ ((lambda (#{tmp\ 4324}#)
+ ((lambda (#{tmp\ 4325}#)
+ (if #{tmp\ 4325}#
+ (apply (lambda (#{exp\ 4327}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i16973"))
+ #("i4326"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i16968"))
+ #("i4321"))
#(ribcage
#(k filename)
#((top) (top))
- #("i16964"
- "i16965"))
+ #("i4317"
+ "i4318"))
#(ribcage
(read-file)
((top))
- ("i16948"))
+ ("i4301"))
#(ribcage
#(x)
#((top))
- #("i16947")))
+ #("i4300")))
(hygiene guile))
- #{exp\ 16974}#))
- #{tmp\ 16972}#)
+ #{exp\ 4327}#))
+ #{tmp\ 4325}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 16971}#)))
+ #{tmp\ 4324}#)))
($sc-dispatch
- #{tmp\ 16971}#
+ #{tmp\ 4324}#
'each-any)))
- (#{read-file\ 16949}#
- #{fn\ 16969}#
- #{k\ 16966}#))))
- #{tmp\ 16963}#)
+ (#{read-file\ 4302}#
+ #{fn\ 4322}#
+ #{k\ 4319}#))))
+ #{tmp\ 4316}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16962}#)))
- ($sc-dispatch #{tmp\ 16962}# (quote (any any)))))
- #{x\ 16946}#)))
+ #{tmp\ 4315}#)))
+ ($sc-dispatch #{tmp\ 4315}# (quote (any any)))))
+ #{x\ 4299}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 16976}#)
- ((lambda (#{tmp\ 16978}#)
- ((lambda (#{tmp\ 16979}#)
- (if #{tmp\ 16979}#
- (apply (lambda (#{k\ 16982}# #{filename\ 16983}#)
- (let ((#{fn\ 16985}#
- (syntax->datum #{filename\ 16983}#)))
- ((lambda (#{tmp\ 16987}#)
- ((lambda (#{fn\ 16989}#)
+ (cons (lambda (#{x\ 4329}#)
+ ((lambda (#{tmp\ 4331}#)
+ ((lambda (#{tmp\ 4332}#)
+ (if #{tmp\ 4332}#
+ (apply (lambda (#{k\ 4335}# #{filename\ 4336}#)
+ (let ((#{fn\ 4338}#
+ (syntax->datum #{filename\ 4336}#)))
+ ((lambda (#{tmp\ 4340}#)
+ ((lambda (#{fn\ 4342}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i16988"))
+ #("i4341"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i16984"))
+ #("i4337"))
#(ribcage
#(k filename)
#((top) (top))
- #("i16980" "i16981"))
+ #("i4333" "i4334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16977")))
+ #("i4330")))
(hygiene guile))
- #{fn\ 16989}#))
- #{tmp\ 16987}#))
- (let ((#{t\ 16992}#
- (%search-load-path #{fn\ 16985}#)))
- (if #{t\ 16992}#
- #{t\ 16992}#
+ #{fn\ 4342}#))
+ #{tmp\ 4340}#))
+ (let ((#{t\ 4345}#
+ (%search-load-path #{fn\ 4338}#)))
+ (if #{t\ 4345}#
+ #{t\ 4345}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 16976}#
- #{filename\ 16983}#))))))
- #{tmp\ 16979}#)
+ #{x\ 4329}#
+ #{filename\ 4336}#))))))
+ #{tmp\ 4332}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16978}#)))
- ($sc-dispatch #{tmp\ 16978}# (quote (any any)))))
- #{x\ 16976}#))
+ #{tmp\ 4331}#)))
+ ($sc-dispatch #{tmp\ 4331}# (quote (any any)))))
+ #{x\ 4329}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 16994}#)
- ((lambda (#{tmp\ 16996}#)
- ((lambda (#{tmp\ 16997}#)
- (if #{tmp\ 16997}#
- (apply (lambda (#{_\ 17000}# #{e\ 17001}#)
+ (cons (lambda (#{x\ 4347}#)
+ ((lambda (#{tmp\ 4349}#)
+ ((lambda (#{tmp\ 4350}#)
+ (if #{tmp\ 4350}#
+ (apply (lambda (#{_\ 4353}# #{e\ 4354}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 16994}#))
- #{tmp\ 16997}#)
+ #{x\ 4347}#))
+ #{tmp\ 4350}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16996}#)))
- ($sc-dispatch #{tmp\ 16996}# (quote (any any)))))
- #{x\ 16994}#))
+ #{tmp\ 4349}#)))
+ ($sc-dispatch #{tmp\ 4349}# (quote (any any)))))
+ #{x\ 4347}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 17002}#)
- ((lambda (#{tmp\ 17004}#)
- ((lambda (#{tmp\ 17005}#)
- (if #{tmp\ 17005}#
- (apply (lambda (#{_\ 17008}# #{e\ 17009}#)
+ (cons (lambda (#{x\ 4355}#)
+ ((lambda (#{tmp\ 4357}#)
+ ((lambda (#{tmp\ 4358}#)
+ (if #{tmp\ 4358}#
+ (apply (lambda (#{_\ 4361}# #{e\ 4362}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 17002}#))
- #{tmp\ 17005}#)
+ #{x\ 4355}#))
+ #{tmp\ 4358}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 17004}#)))
- ($sc-dispatch #{tmp\ 17004}# (quote (any any)))))
- #{x\ 17002}#))
+ #{tmp\ 4357}#)))
+ ($sc-dispatch #{tmp\ 4357}# (quote (any any)))))
+ #{x\ 4355}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 17010}#)
- ((lambda (#{tmp\ 17012}#)
- ((lambda (#{tmp\ 17013}#)
- (if #{tmp\ 17013}#
- (apply (lambda (#{_\ 17018}#
- #{e\ 17019}#
- #{m1\ 17020}#
- #{m2\ 17021}#)
- ((lambda (#{tmp\ 17023}#)
- ((lambda (#{body\ 17025}#)
+ (cons (lambda (#{x\ 4363}#)
+ ((lambda (#{tmp\ 4365}#)
+ ((lambda (#{tmp\ 4366}#)
+ (if #{tmp\ 4366}#
+ (apply (lambda (#{_\ 4371}#
+ #{e\ 4372}#
+ #{m1\ 4373}#
+ #{m2\ 4374}#)
+ ((lambda (#{tmp\ 4376}#)
+ ((lambda (#{body\ 4378}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i17024"))
+ #("i4377"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i17014"
- "i17015"
- "i17016"
- "i17017"))
+ #("i4367"
+ "i4368"
+ "i4369"
+ "i4370"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17011")))
+ #("i4364")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -15589,35 +15327,35 @@
#(ribcage
#(body)
#((top))
- #("i17024"))
+ #("i4377"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i17014"
- "i17015"
- "i17016"
- "i17017"))
+ #("i4367"
+ "i4368"
+ "i4369"
+ "i4370"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17011")))
+ #("i4364")))
(hygiene guile))
- #{e\ 17019}#))
- #{body\ 17025}#))
- #{tmp\ 17023}#))
- (letrec ((#{f\ 17029}#
- (lambda (#{clause\ 17030}#
- #{clauses\ 17031}#)
- (if (null? #{clauses\ 17031}#)
- ((lambda (#{tmp\ 17033}#)
- ((lambda (#{tmp\ 17034}#)
- (if #{tmp\ 17034}#
- (apply (lambda (#{e1\
17037}#
- #{e2\
17038}#)
+ #{e\ 4372}#))
+ #{body\ 4378}#))
+ #{tmp\ 4376}#))
+ (letrec ((#{f\ 4382}#
+ (lambda (#{clause\ 4383}#
+ #{clauses\ 4384}#)
+ (if (null? #{clauses\ 4384}#)
+ ((lambda (#{tmp\ 4386}#)
+ ((lambda (#{tmp\ 4387}#)
+ (if #{tmp\ 4387}#
+ (apply (lambda (#{e1\
4390}#
+ #{e2\
4391}#)
(cons
'#(syntax-object
begin
((top)
@@ -15626,8 +15364,8 @@
e2)
#((top)
(top))
-
#("i17035"
-
"i17036"))
+
#("i4388"
+
"i4389"))
#(ribcage
()
()
@@ -15639,9 +15377,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -15651,10 +15389,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -15662,17 +15400,17 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
- (cons
#{e1\ 17037}#
-
#{e2\ 17038}#)))
- #{tmp\ 17034}#)
- ((lambda (#{tmp\ 17040}#)
- (if #{tmp\ 17040}#
- (apply (lambda (#{k\
17044}#
-
#{e1\ 17045}#
-
#{e2\ 17046}#)
+ (cons
#{e1\ 4390}#
+
#{e2\ 4391}#)))
+ #{tmp\ 4387}#)
+ ((lambda (#{tmp\ 4393}#)
+ (if #{tmp\ 4393}#
+ (apply (lambda (#{k\
4397}#
+
#{e1\ 4398}#
+
#{e2\ 4399}#)
(list
'#(syntax-object
if
((top)
@@ -15683,9 +15421,9 @@
#((top)
(top)
(top))
-
#("i17041"
-
"i17042"
-
"i17043"))
+
#("i4394"
+
"i4395"
+
"i4396"))
#(ribcage
()
()
@@ -15697,9 +15435,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -15709,10 +15447,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -15720,7 +15458,7 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
(list
'#(syntax-object
@@ -15733,9 +15471,9 @@
#((top)
(top)
(top))
-
#("i17041"
-
"i17042"
-
"i17043"))
+
#("i4394"
+
"i4395"
+
"i4396"))
#(ribcage
()
()
@@ -15747,9 +15485,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -15759,10 +15497,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -15770,7 +15508,7 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
'#(syntax-object
@@ -15783,9 +15521,9 @@
#((top)
(top)
(top))
-
#("i17041"
-
"i17042"
-
"i17043"))
+
#("i4394"
+
"i4395"
+
"i4396"))
#(ribcage
()
()
@@ -15797,9 +15535,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -15809,10 +15547,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -15820,7 +15558,7 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
(list '#(syntax-object
@@ -15833,9 +15571,9 @@
#((top)
(top)
(top))
-
#("i17041"
-
"i17042"
-
"i17043"))
+
#("i4394"
+
"i4395"
+
"i4396"))
#(ribcage
()
()
@@ -15847,9 +15585,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -15859,10 +15597,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -15870,10 +15608,10 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
-
#{k\ 17044}#))
+
#{k\ 4397}#))
(cons
'#(syntax-object
begin
((top)
@@ -15884,9 +15622,9 @@
#((top)
(top)
(top))
-
#("i17041"
-
"i17042"
-
"i17043"))
+
#("i4394"
+
"i4395"
+
"i4396"))
#(ribcage
()
()
@@ -15898,9 +15636,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -15910,10 +15648,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -15921,27 +15659,27 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
-
(cons #{e1\ 17045}#
-
#{e2\ 17046}#))))
- #{tmp\
17040}#)
- ((lambda (#{_\
17050}#)
+
(cons #{e1\ 4398}#
+
#{e2\ 4399}#))))
+ #{tmp\ 4393}#)
+ ((lambda (#{_\
4403}#)
(syntax-violation
'case
"bad clause"
- #{x\ 17010}#
- #{clause\
17030}#))
- #{tmp\ 17033}#)))
+ #{x\ 4363}#
+ #{clause\
4383}#))
+ #{tmp\ 4386}#)))
($sc-dispatch
- #{tmp\ 17033}#
+ #{tmp\ 4386}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 17033}#
+ #{tmp\ 4386}#
'(#(free-id
#(syntax-object
else
@@ -15952,37 +15690,37 @@
#((top)
(top)
(top))
- #("i17026"
- "i17027"
- "i17028"))
+ #("i4379"
+ "i4380"
+ "i4381"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i17014"
- "i17015"
- "i17016"
- "i17017"))
+ #("i4367"
+ "i4368"
+ "i4369"
+ "i4370"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17011")))
+ #("i4364")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 17030}#)
- ((lambda (#{tmp\ 17052}#)
- ((lambda (#{rest\ 17054}#)
- ((lambda (#{tmp\ 17055}#)
- ((lambda (#{tmp\ 17056}#)
- (if #{tmp\ 17056}#
- (apply (lambda
(#{k\ 17060}#
-
#{e1\ 17061}#
-
#{e2\ 17062}#)
+ #{clause\ 4383}#)
+ ((lambda (#{tmp\ 4405}#)
+ ((lambda (#{rest\ 4407}#)
+ ((lambda (#{tmp\ 4408}#)
+ ((lambda (#{tmp\ 4409}#)
+ (if #{tmp\ 4409}#
+ (apply (lambda
(#{k\ 4413}#
+
#{e1\ 4414}#
+
#{e2\ 4415}#)
(list
'#(syntax-object
if
((top)
@@ -15993,13 +15731,13 @@
#((top)
(top)
(top))
-
#("i17057"
-
"i17058"
-
"i17059"))
+
#("i4410"
+
"i4411"
+
"i4412"))
#(ribcage
#(rest)
#((top))
-
#("i17053"))
+
#("i4406"))
#(ribcage
()
()
@@ -16011,9 +15749,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -16023,10 +15761,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -16034,7 +15772,7 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
(list '#(syntax-object
@@ -16047,13 +15785,13 @@
#((top)
(top)
(top))
-
#("i17057"
-
"i17058"
-
"i17059"))
+
#("i4410"
+
"i4411"
+
"i4412"))
#(ribcage
#(rest)
#((top))
-
#("i17053"))
+
#("i4406"))
#(ribcage
()
()
@@ -16065,9 +15803,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -16077,10 +15815,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -16088,7 +15826,7 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
'#(syntax-object
@@ -16101,13 +15839,13 @@
#((top)
(top)
(top))
-
#("i17057"
-
"i17058"
-
"i17059"))
+
#("i4410"
+
"i4411"
+
"i4412"))
#(ribcage
#(rest)
#((top))
-
#("i17053"))
+
#("i4406"))
#(ribcage
()
()
@@ -16119,9 +15857,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -16131,10 +15869,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -16142,7 +15880,7 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
(list '#(syntax-object
@@ -16155,13 +15893,13 @@
#((top)
(top)
(top))
-
#("i17057"
-
"i17058"
-
"i17059"))
+
#("i4410"
+
"i4411"
+
"i4412"))
#(ribcage
#(rest)
#((top))
-
#("i17053"))
+
#("i4406"))
#(ribcage
()
()
@@ -16173,9 +15911,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -16185,10 +15923,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -16196,10 +15934,10 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
-
#{k\ 17060}#))
+
#{k\ 4413}#))
(cons '#(syntax-object
begin
((top)
@@ -16210,13 +15948,13 @@
#((top)
(top)
(top))
-
#("i17057"
-
"i17058"
-
"i17059"))
+
#("i4410"
+
"i4411"
+
"i4412"))
#(ribcage
#(rest)
#((top))
-
#("i17053"))
+
#("i4406"))
#(ribcage
()
()
@@ -16228,9 +15966,9 @@
#((top)
(top)
(top))
-
#("i17026"
-
"i17027"
-
"i17028"))
+
#("i4379"
+
"i4380"
+
"i4381"))
#(ribcage
#(_
e
@@ -16240,10 +15978,10 @@
(top)
(top)
(top))
-
#("i17014"
-
"i17015"
-
"i17016"
-
"i17017"))
+
#("i4367"
+
"i4368"
+
"i4369"
+
"i4370"))
#(ribcage
()
()
@@ -16251,61 +15989,61 @@
#(ribcage
#(x)
#((top))
-
#("i17011")))
+
#("i4364")))
(hygiene
guile))
-
(cons #{e1\ 17061}#
-
#{e2\ 17062}#))
-
#{rest\ 17054}#))
- #{tmp\
17056}#)
- ((lambda (#{_\
17066}#)
+
(cons #{e1\ 4414}#
+
#{e2\ 4415}#))
+
#{rest\ 4407}#))
+ #{tmp\
4409}#)
+ ((lambda (#{_\
4419}#)
(syntax-violation
'case
"bad clause"
- #{x\ 17010}#
- #{clause\
17030}#))
- #{tmp\ 17055}#)))
+ #{x\ 4363}#
+ #{clause\
4383}#))
+ #{tmp\ 4408}#)))
($sc-dispatch
- #{tmp\ 17055}#
+ #{tmp\ 4408}#
'(each-any
any
.
each-any))))
- #{clause\ 17030}#))
- #{tmp\ 17052}#))
- (#{f\ 17029}#
- (car #{clauses\ 17031}#)
- (cdr #{clauses\ 17031}#)))))))
- (#{f\ 17029}# #{m1\ 17020}# #{m2\ 17021}#))))
- #{tmp\ 17013}#)
+ #{clause\ 4383}#))
+ #{tmp\ 4405}#))
+ (#{f\ 4382}#
+ (car #{clauses\ 4384}#)
+ (cdr #{clauses\ 4384}#)))))))
+ (#{f\ 4382}# #{m1\ 4373}# #{m2\ 4374}#))))
+ #{tmp\ 4366}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 17012}#)))
+ #{tmp\ 4365}#)))
($sc-dispatch
- #{tmp\ 17012}#
+ #{tmp\ 4365}#
'(any any any . each-any))))
- #{x\ 17010}#))
+ #{x\ 4363}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 17067}#)
- ((lambda (#{tmp\ 17069}#)
- ((lambda (#{tmp\ 17070}#)
- (if #{tmp\ 17070}#
- (apply (lambda (#{_\ 17073}# #{e\ 17074}#)
+ (cons (lambda (#{x\ 4420}#)
+ ((lambda (#{tmp\ 4422}#)
+ ((lambda (#{tmp\ 4423}#)
+ (if #{tmp\ 4423}#
+ (apply (lambda (#{_\ 4426}# #{e\ 4427}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17068")))
+ #(ribcage #(x) #((top)) #("i4421")))
(hygiene guile))
'(#(syntax-object
x
@@ -16313,9 +16051,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17068")))
+ #(ribcage #(x) #((top)) #("i4421")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -16323,9 +16061,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17068")))
+ #(ribcage #(x) #((top)) #("i4421")))
(hygiene guile))
.
#(syntax-object
@@ -16334,9 +16072,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17068")))
+ #(ribcage #(x) #((top)) #("i4421")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -16344,12 +16082,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
'#(syntax-object
x
@@ -16357,12 +16095,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -16371,12 +16109,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -16384,12 +16122,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
(#(syntax-object
syntax
@@ -16397,12 +16135,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
#(syntax-object
id
@@ -16410,12 +16148,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071" "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16423,29 +16161,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071"
- "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
- #{e\ 17074}#))
- (list (cons #{_\ 17073}#
+ #{e\ 4427}#))
+ (list (cons #{_\ 4426}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i17071"
- "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
#(syntax-object
...
@@ -16453,13 +16189,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071"
- "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16467,15 +16202,14 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17071"
- "i17072"))
+ #("i4424" "i4425"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
- (cons #{e\ 17074}#
+ (cons #{e\ 4427}#
'(#(syntax-object
x
((top)
@@ -16483,8 +16217,8 @@
#(_ e)
#((top)
(top))
- #("i17071"
- "i17072"))
+ #("i4424"
+ "i4425"))
#(ribcage
()
()
@@ -16492,7 +16226,7 @@
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene guile))
#(syntax-object
...
@@ -16501,8 +16235,8 @@
#(_ e)
#((top)
(top))
- #("i17071"
- "i17072"))
+ #("i4424"
+ "i4425"))
#(ribcage
()
()
@@ -16510,72 +16244,72 @@
#(ribcage
#(x)
#((top))
- #("i17068")))
+ #("i4421")))
(hygiene
guile)))))))))
- #{tmp\ 17070}#)
+ #{tmp\ 4423}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 17069}#)))
- ($sc-dispatch #{tmp\ 17069}# (quote (any any)))))
- #{x\ 17067}#))
+ #{tmp\ 4422}#)))
+ ($sc-dispatch #{tmp\ 4422}# (quote (any any)))))
+ #{x\ 4420}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 17075}#)
- ((lambda (#{tmp\ 17077}#)
- ((lambda (#{tmp\ 17078}#)
- (if #{tmp\ 17078}#
- (apply (lambda (#{_\ 17084}#
- #{id\ 17085}#
- #{args\ 17086}#
- #{b0\ 17087}#
- #{b1\ 17088}#)
+ (cons (lambda (#{x\ 4428}#)
+ ((lambda (#{tmp\ 4430}#)
+ ((lambda (#{tmp\ 4431}#)
+ (if #{tmp\ 4431}#
+ (apply (lambda (#{_\ 4437}#
+ #{id\ 4438}#
+ #{args\ 4439}#
+ #{b0\ 4440}#
+ #{b1\ 4441}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i17079"
- "i17080"
- "i17081"
- "i17082"
- "i17083"))
+ #("i4432"
+ "i4433"
+ "i4434"
+ "i4435"
+ "i4436"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17076")))
+ #(ribcage #(x) #((top)) #("i4429")))
(hygiene guile))
- #{id\ 17085}#
+ #{id\ 4438}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i17079"
- "i17080"
- "i17081"
- "i17082"
- "i17083"))
+ #("i4432"
+ "i4433"
+ "i4434"
+ "i4435"
+ "i4436"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17076")))
+ #("i4429")))
(hygiene guile))
- (cons #{args\ 17086}#
- (cons #{b0\ 17087}#
- #{b1\ 17088}#)))))
- #{tmp\ 17078}#)
- ((lambda (#{tmp\ 17090}#)
- (if (if #{tmp\ 17090}#
- (apply (lambda (#{_\ 17094}#
- #{id\ 17095}#
- #{val\ 17096}#)
+ (cons #{args\ 4439}#
+ (cons #{b0\ 4440}#
+ #{b1\ 4441}#)))))
+ #{tmp\ 4431}#)
+ ((lambda (#{tmp\ 4443}#)
+ (if (if #{tmp\ 4443}#
+ (apply (lambda (#{_\ 4447}#
+ #{id\ 4448}#
+ #{val\ 4449}#)
(identifier?
'#(syntax-object
x
@@ -16583,44 +16317,44 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i17091" "i17092" "i17093"))
+ #("i4444" "i4445" "i4446"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17076")))
+ #("i4429")))
(hygiene guile))))
- #{tmp\ 17090}#)
+ #{tmp\ 4443}#)
#f)
- (apply (lambda (#{_\ 17100}#
- #{id\ 17101}#
- #{val\ 17102}#)
+ (apply (lambda (#{_\ 4453}#
+ #{id\ 4454}#
+ #{val\ 4455}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i17097" "i17098" "i17099"))
+ #("i4450" "i4451" "i4452"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17076")))
+ #("i4429")))
(hygiene guile))
- #{id\ 17101}#
- #{val\ 17102}#))
- #{tmp\ 17090}#)
+ #{id\ 4454}#
+ #{val\ 4455}#))
+ #{tmp\ 4443}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 17077}#)))
+ #{tmp\ 4430}#)))
($sc-dispatch
- #{tmp\ 17077}#
+ #{tmp\ 4430}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 17077}#
+ #{tmp\ 4430}#
'(any (any . any) any . each-any))))
- #{x\ 17075}#))
+ #{x\ 4428}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index daf00f4..9c0c994 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -294,8 +294,6 @@
...))))))
(let ()
- (define *mode* (make-fluid))
-
(define-expansion-constructors)
;;; hooks to nonportable run-time helpers
@@ -307,11 +305,11 @@
(define top-level-eval-hook
(lambda (x mod)
- (primitive-eval (memoize-expression x))))
+ (primitive-eval x)))
(define local-eval-hook
(lambda (x mod)
- (primitive-eval (memoize-expression x))))
+ (primitive-eval x)))
(define-syntax gensym-hook
(syntax-rules ()
@@ -460,31 +458,7 @@
;; the body of a lambda: anything, already expanded
;; else: lambda-case | #f
(lambda (src req opt rest kw inits vars body else-case)
- ;; FIXME!!!
- (case (fluid-ref *mode*)
- ((c)
- ((@ (language tree-il) make-lambda-case)
- src req opt rest kw inits vars body else-case))
- (else
- ;; Very much like the logic of (language tree-il compile-glil).
- (let* ((nreq (length req))
- (nopt (if opt (length opt) 0))
- (rest-idx (and rest (+ nreq nopt)))
- (allow-other-keys? (if kw (car kw) #f))
- (kw-indices (map (lambda (x)
- ;; (,key ,name ,var)
- (cons (car x) (list-index vars (caddr x))))
- (if kw (cdr kw) '())))
- (nargs (apply max (+ nreq nopt (if rest 1 0))
- (map 1+ (map cdr kw-indices)))))
- (or (= nargs
- (length vars)
- (+ nreq (length inits) (if rest 1 0)))
- (error "something went wrong"
- req opt rest kw inits vars nreq nopt kw-indices nargs))
- (make-lambda-case src req opt rest
- (and kw (cons allow-other-keys? kw-indices))
- inits vars body else-case))))))
+ (make-lambda-case src req opt rest kw inits vars body else-case)))
(define build-primref
(lambda (src name)
@@ -2390,18 +2364,10 @@
;;; expanded, and the expanded definitions are also residualized into
;;; the object file if we are compiling a file.
(set! macroexpand
- (lambda (x . rest)
- (let ((m (if (null? rest) 'e (car rest)))
- (esew (if (or (null? rest) (null? (cdr rest)))
- '(eval)
- (cadr rest)))
- (mod (cons 'hygiene (module-name (current-module)))))
- (with-fluids ((*mode* m))
- (if (eq? m 'e)
- (memoize-expression
- (chi-top x null-env top-wrap m esew mod))
- (chi-top x null-env top-wrap m esew mod))))))
-
+ (lambda* (x #:optional (m 'e) (esew '(eval)))
+ (chi-top x null-env top-wrap m esew
+ (cons 'hygiene (module-name (current-module))))))
+
(set! identifier?
(lambda (x)
(nonsymbol-id? x)))
diff --git a/module/ice-9/r6rs-libraries.scm b/module/ice-9/r6rs-libraries.scm
index 14c89d0..fbe80ed 100644
--- a/module/ice-9/r6rs-libraries.scm
+++ b/module/ice-9/r6rs-libraries.scm
@@ -173,6 +173,7 @@
;; welcome!
#'(begin
(define-module (name name* ...)
+ #:pure
#:version (version ...))
(import ispec)
...
@@ -187,7 +188,7 @@
((_ (for import-set import-level ...))
#'(import import-set))
((_ import-set)
- #'(eval-when (eval load compile)
+ #'(eval-when (eval load compile expand)
(let ((iface (resolve-r6rs-interface 'import-set)))
(call-with-deferred-observers
(lambda ()
diff --git a/module/language/tree-il.scm b/module/language/tree-il.scm
index 5f4c014..c268eff 100644
--- a/module/language/tree-il.scm
+++ b/module/language/tree-il.scm
@@ -61,6 +61,9 @@
post-order!
pre-order!))
+(define (print-tree-il exp port)
+ (format port "#<tree-il ~a>" (unparse-tree-il exp)))
+
(define-syntax borrow-core-vtables
(lambda (x)
(syntax-case x ()
@@ -84,6 +87,8 @@
#`(define (#,pred x)
(and (struct? x)
(eq? (struct-vtable x) #,type)))
+ #`(struct-set! #,type vtable-index-printer
+ print-tree-il)
#`(define #,type
(vector-ref %expanded-vtables #,n))
out)))
@@ -121,7 +126,7 @@
;; (<letrec> names gensyms vals body)
;; (<dynlet> fluids vals body)
-(define-type (<tree-il> #:common-slots (src))
+(define-type (<tree-il> #:common-slots (src) #:printer print-tree-il)
(<fix> names gensyms vals body)
(<let-values> exp body)
(<dynwind> winder body unwinder)
@@ -361,17 +366,64 @@
((<lambda> meta body)
;; fixme: put in docstring
- (if (and (lambda-case? body)
- (not (lambda-case-alternate body)))
- `(lambda ,@(car (tree-il->scheme body)))
- `(case-lambda ,@(tree-il->scheme body))))
+ (tree-il->scheme body))
((<lambda-case> req opt rest kw inits gensyms body alternate)
- ;; FIXME! use parse-lambda-case?
- `((,(if rest (apply cons* gensyms) gensyms)
- ,(tree-il->scheme body))
- ,@(if alternate (tree-il->scheme alternate) '())))
-
+ (cond
+ ((and (not opt) (not kw) (not alternate))
+ `(lambda ,(if rest (apply cons* gensyms) gensyms)
+ ,(tree-il->scheme body)))
+ ((and (not opt) (not kw))
+ (let ((alt-expansion (tree-il->scheme alternate))
+ (formals (if rest (apply cons* gensyms) gensyms)))
+ (case (car alt-expansion)
+ ((lambda)
+ `(case-lambda (,formals ,(tree-il->scheme body))
+ ,@(cdr alt-expansion)))
+ ((lambda*)
+ `(case-lambda* (,formals ,(tree-il->scheme body))
+ ,(cdr alt-expansion)))
+ ((case-lambda)
+ `(case-lambda (,formals ,(tree-il->scheme body))
+ ,@(cdr alt-expansion)))
+ ((case-lambda*)
+ `(case-lambda* (,formals ,(tree-il->scheme body))
+ ,@(cdr alt-expansion))))))
+ (else
+ (let* ((alt-expansion (and alternate (tree-il->scheme alternate)))
+ (nreq (length req))
+ (nopt (if opt (length opt) 0))
+ (restargs (if rest (list-ref gensyms (+ nreq nopt)) '()))
+ (reqargs (list-head gensyms nreq))
+ (optargs (if opt
+ `(#:optional
+ ,@(map list
+ (list-head (list-tail gensyms nreq) nopt)
+ (map tree-il->scheme
+ (list-head inits nopt))))
+ '()))
+ (kwargs (if kw
+ `(#:key
+ ,@(map list
+ (map caddr (cdr kw))
+ (map tree-il->scheme
+ (list-tail inits nopt))
+ (map car (cdr kw)))
+ ,@(if (car kw)
+ '(#:allow-other-keys)
+ '()))
+ '()))
+ (formals `(,@reqargs ,@optargs ,@kwargs . ,restargs)))
+ (if (not alt-expansion)
+ `(lambda* ,formals ,(tree-il->scheme body))
+ (case (car alt-expansion)
+ ((lambda lambda*)
+ `(case-lambda* (,formals ,(tree-il->scheme body))
+ ,(cdr alt-expansion)))
+ ((case-lambda case-lambda*)
+ `(case-lambda* (,formals ,(tree-il->scheme body))
+ ,@(cdr alt-expansion)))))))))
+
((<const> exp)
(if (and (self-evaluating? exp) (not (vector? exp)))
exp
diff --git a/test-suite/tests/optargs.test b/test-suite/tests/optargs.test
index f3e4e03..4a0e93a 100644
--- a/test-suite/tests/optargs.test
+++ b/test-suite/tests/optargs.test
@@ -45,34 +45,11 @@
exc (compile 'exp #:to 'value
#:env (current-module)))))))
-(define-syntax c&m&e
- (syntax-rules (pass-if pass-if-exception)
- ((_ (pass-if test-name exp))
- (begin (pass-if (string-append test-name " (eval)")
- (primitive-eval 'exp))
- (pass-if (string-append test-name " (memoized eval)")
- (primitive-eval (memoize-expression 'exp)))
- (pass-if (string-append test-name " (compile)")
- (compile 'exp #:to 'value #:env (current-module)))))
- ((_ (pass-if-exception test-name exc exp))
- (begin (pass-if-exception (string-append test-name " (eval)")
- exc (primitive-eval 'exp))
- (pass-if-exception (string-append test-name " (memoized eval)")
- exc (primitive-eval (memoize-expression 'exp)))
- (pass-if-exception (string-append test-name " (compile)")
- exc (compile 'exp #:to 'value
- #:env (current-module)))))))
-
(define-syntax with-test-prefix/c&e
(syntax-rules ()
((_ section-name exp ...)
(with-test-prefix section-name (c&e exp) ...))))
-(define-syntax with-test-prefix/c&m&e
- (syntax-rules ()
- ((_ section-name exp ...)
- (with-test-prefix section-name (c&m&e exp) ...))))
-
(with-test-prefix/c&e "optional argument processing"
(pass-if "local defines work with optional arguments"
(eval '(begin
@@ -197,7 +174,7 @@
(equal? (f 1 2 3 #:x 'x #:z 'z)
'(x #f z (1 2 3 #:x x #:z z))))))
-(with-test-prefix/c&m&e "lambda* inits"
+(with-test-prefix/c&e "lambda* inits"
(pass-if "can bind lexicals within inits"
(begin
(define qux
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-133-ge6c7e9e,
Andy Wingo <=