|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-110-g384012a |
| Date: | Fri, 07 May 2010 21:18:29 +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=384012a197ae388ad764234b20e2dbceb056b603
The branch, master has been updated
via 384012a197ae388ad764234b20e2dbceb056b603 (commit)
via 2cd72a849f9fd6faa066861210844cc99b56949a (commit)
via 4f692ace90f2dc75b83aa9e10d9cd107d2ea924e (commit)
from b79ba0b01e7dc89d2ba8da2c5cf4e200f4bb5de1 (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 384012a197ae388ad764234b20e2dbceb056b603
Author: Andy Wingo <address@hidden>
Date: Fri May 7 23:12:34 2010 +0200
add memoize-begin, memoize-let, etc functions
* libguile/memoize.h:
* libguile/memoize.c (scm_memoize_begin, scm_memoize_if,
scm_memoize_lambda, scm_memoize_let, scm_memoize_quote,
scm_memoize_define, scm_memoize_with_fluids, scm_memoize_call,
scm_memoize_lexical_ref, scm_memoize_lexical_set,
scm_memoize_toplevel_ref, scm_memoize_toplevel_set,
scm_memoize_module_ref, scm_memoize_module_set): New functions, public
to Scheme but private to C. For use by psyntax, in the future.
commit 2cd72a849f9fd6faa066861210844cc99b56949a
Author: Andy Wingo <address@hidden>
Date: Fri May 7 22:19:36 2010 +0200
add "memoizer" data type
* libguile/memoize.h:
* libguile/memoize.c (MAKMEMO_APPLY): Take the proc and args separately.
(scm_tc16_memoizer, SCM_MEMOIZER_P, SCM_MEMOIZER): New smob type, for
"syntax" like @apply that have normal evaluation order.
(memoize_env_ref_macro, memoize): Refactor to handle "memoizers"
generically.
Reorganize the list of SCM_SYNTAX forms.
Move @apply, @dynamic-wind, @call-with-current-continuation,
@call-with-values, @prompt handling down to be generic "memoizer" data
types.
(scm_memoizer_p, scm_memoizer): New functions, exposed to Scheme. Will
be used by psyntax.
commit 4f692ace90f2dc75b83aa9e10d9cd107d2ea924e
Author: Andy Wingo <address@hidden>
Date: Fri May 7 10:51:28 2010 +0200
macro expanders return memoized expressions
* libguile/eval.c (scm_c_primitive_eval):
* module/ice-9/eval.scm (primitive-eval): Rely on the expander to
produce a memoized expression. If the expression is already memoized,
just pass it through (the equivalent of the old "noexpand" hack).
* libguile/memoize.c (scm_init_memoize): Initialize `memoize-expression'
as the initial binding of `macroexpand'.
* libguile/modules.c (scm_module_transformer): Before modules are
booted, look for `macroexpand', not `%pre-modules-transformer'.
* module/ice-9/boot-9.scm: No more %pre-modules-transformer. Loading
psyntax extends `macroexpand'.
(make-module): `macroexpand' is the default transformer.
* module/ice-9/psyntax.scm: No more `noexpand'.
(top-level-eval-hook, local-eval-hook): Instead of annotating with
noexpand, memoize the expression before handing it to primitive-eval.
(macroexpand): No more noexpand hack -- in its place we have another
hack, to memoize the result when running in eval mode.
* module/ice-9/psyntax-pp.scm: Regenerated.
-----------------------------------------------------------------------
Summary of changes:
libguile/eval.c | 10 +-
libguile/memoize.c | 374 +-
libguile/memoize.h | 18 +
libguile/modules.c | 12 +-
module/ice-9/boot-9.scm | 9 +-
module/ice-9/eval.scm | 7 +-
module/ice-9/psyntax-pp.scm |16261 ++++++++++++++++++++++---------------------
module/ice-9/psyntax.scm | 38 +-
8 files changed, 8525 insertions(+), 8204 deletions(-)
diff --git a/libguile/eval.c b/libguile/eval.c
index f775d31..f2cbebe 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -844,10 +844,12 @@ scm_for_each (SCM proc, SCM arg1, SCM args)
static SCM
scm_c_primitive_eval (SCM exp)
{
- SCM transformer = scm_current_module_transformer ();
- if (scm_is_true (transformer))
- exp = scm_call_1 (transformer, exp);
- exp = scm_memoize_expression (exp);
+ if (!SCM_MEMOIZED_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);
}
diff --git a/libguile/memoize.c b/libguile/memoize.c
index 0427cea..75b9c7e 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -191,8 +191,8 @@ scm_t_bits scm_tc16_memoized;
MAKMEMO (SCM_M_DYNWIND, scm_cons (in, scm_cons (expr, out)))
#define MAKMEMO_WITH_FLUIDS(fluids, vals, expr) \
MAKMEMO (SCM_M_WITH_FLUIDS, scm_cons (fluids, scm_cons (vals, expr)))
-#define MAKMEMO_APPLY(exp) \
- MAKMEMO (SCM_M_APPLY, exp)
+#define MAKMEMO_APPLY(proc, args)\
+ MAKMEMO (SCM_M_APPLY, scm_list_2 (proc, args))
#define MAKMEMO_CONT(proc) \
MAKMEMO (SCM_M_CONT, proc)
#define MAKMEMO_CALL_WITH_VALUES(prod, cons) \
@@ -214,6 +214,12 @@ scm_t_bits scm_tc16_memoized;
#define MAKMEMO_PROMPT(tag, exp, handler) \
MAKMEMO (SCM_M_PROMPT, scm_cons (tag, scm_cons (exp, handler)))
+
+/* Primitives for the evaluator */
+scm_t_bits scm_tc16_memoizer;
+#define SCM_MEMOIZER_P(x) (SCM_SMOB_PREDICATE (scm_tc16_memoizer, (x)))
+#define SCM_MEMOIZER(M) (SCM_SMOB_OBJECT_1 (M))
+
/* This table must agree with the list of M_ constants in memoize.h */
@@ -252,13 +258,9 @@ scm_print_memoized (SCM memoized, SCM port,
scm_print_state *pstate)
static SCM scm_m_at (SCM xorig, SCM env);
static SCM scm_m_atat (SCM xorig, SCM env);
static SCM scm_m_and (SCM xorig, SCM env);
-static SCM scm_m_apply (SCM xorig, SCM env);
static SCM scm_m_begin (SCM xorig, SCM env);
-static SCM scm_m_cont (SCM xorig, SCM env);
-static SCM scm_m_at_call_with_values (SCM xorig, SCM env);
static SCM scm_m_cond (SCM xorig, SCM env);
static SCM scm_m_define (SCM x, SCM env);
-static SCM scm_m_at_dynamic_wind (SCM xorig, SCM env);
static SCM scm_m_with_fluids (SCM xorig, SCM env);
static SCM scm_m_eval_when (SCM xorig, SCM env);
static SCM scm_m_if (SCM xorig, SCM env);
@@ -267,28 +269,27 @@ static SCM scm_m_let (SCM xorig, SCM env);
static SCM scm_m_letrec (SCM xorig, SCM env);
static SCM scm_m_letstar (SCM xorig, SCM env);
static SCM scm_m_or (SCM xorig, SCM env);
-static SCM scm_m_at_prompt (SCM xorig, SCM env);
static SCM scm_m_quote (SCM xorig, SCM env);
static SCM scm_m_set_x (SCM xorig, SCM env);
-
-static scm_t_macro_primitive
-memoize_env_ref_transformer (SCM env, SCM x)
+static SCM
+memoize_env_ref_macro (SCM env, SCM x)
{
SCM var;
for (; scm_is_pair (env); env = CDR (env))
if (scm_is_eq (x, CAR (env)))
- return NULL; /* lexical */
+ return SCM_BOOL_F; /* lexical */
var = scm_module_variable (env, x);
if (scm_is_true (var) && scm_is_true (scm_variable_bound_p (var))
- && scm_is_true (scm_macro_p (scm_variable_ref (var))))
- return scm_i_macro_primitive (scm_variable_ref (var));
+ && (scm_is_true (scm_macro_p (scm_variable_ref (var)))
+ || SCM_MEMOIZER_P (scm_variable_ref (var))))
+ return scm_variable_ref (var);
else
- return NULL; /* anything else */
+ return SCM_BOOL_F; /* anything else */
}
static int
@@ -321,28 +322,40 @@ memoize (SCM exp, SCM env)
{
if (scm_is_pair (exp))
{
- SCM CAR;
- scm_t_macro_primitive trans;
+ SCM car;
+ scm_t_macro_primitive trans = NULL;
+ SCM macro = SCM_BOOL_F, memoizer = SCM_BOOL_F;
- CAR = CAR (exp);
- if (scm_is_symbol (CAR))
- trans = memoize_env_ref_transformer (env, CAR);
- else
- trans = NULL;
+ car = CAR (exp);
+ if (scm_is_symbol (car))
+ macro = memoize_env_ref_macro (env, car);
+ if (scm_is_true (scm_macro_p (macro)))
+ trans = scm_i_macro_primitive (macro);
+ else if (SCM_MEMOIZER_P (macro))
+ memoizer = SCM_MEMOIZER (macro);
+
if (trans)
return trans (exp, env);
else
{
- SCM proc;
SCM args = SCM_EOL;
int nargs = 0;
- proc = memoize (CAR (exp), env);
+ SCM proc = CAR (exp);
+
for (exp = CDR (exp); scm_is_pair (exp); exp = CDR (exp), nargs++)
args = scm_cons (memoize (CAR (exp), env), args);
if (scm_is_null (exp))
- return MAKMEMO_CALL (proc, nargs,
- scm_reverse_x (args, SCM_UNDEFINED));
+ {
+ if (scm_is_true (memoizer))
+ return scm_apply (memoizer, scm_reverse_x (args,
SCM_UNDEFINED),
+ SCM_EOL);
+ else
+ return MAKMEMO_CALL (memoize (proc, env),
+ nargs,
+ scm_reverse_x (args, SCM_UNDEFINED));
+ }
+
else
syntax_error ("expected a proper list", exp, SCM_UNDEFINED);
}
@@ -388,28 +401,27 @@ memoize_sequence (const SCM forms, const SCM env)
SCM_SNARF_HERE(static const char RANAME[]=STR)\
SCM_SNARF_INIT(scm_c_define (RANAME, scm_i_make_primitive_macro (RANAME, CFN)))
+
+/* True primitive syntax */
SCM_SYNTAX (s_at, "@", scm_m_at);
SCM_SYNTAX (s_atat, "@@", scm_m_atat);
-SCM_SYNTAX (s_and, "and", scm_m_and);
SCM_SYNTAX (s_begin, "begin", scm_m_begin);
-SCM_SYNTAX (s_atcall_cc, "@call-with-current-continuation", scm_m_cont);
-SCM_SYNTAX (s_at_call_with_values, "@call-with-values",
scm_m_at_call_with_values);
-SCM_SYNTAX (s_cond, "cond", scm_m_cond);
SCM_SYNTAX (s_define, "define", scm_m_define);
-SCM_SYNTAX (s_at_dynamic_wind, "@dynamic-wind", scm_m_at_dynamic_wind);
SCM_SYNTAX (s_with_fluids, "with-fluids", scm_m_with_fluids);
SCM_SYNTAX (s_eval_when, "eval-when", scm_m_eval_when);
SCM_SYNTAX (s_if, "if", scm_m_if);
SCM_SYNTAX (s_lambda, "lambda", scm_m_lambda);
SCM_SYNTAX (s_let, "let", scm_m_let);
-SCM_SYNTAX (s_letrec, "letrec", scm_m_letrec);
-SCM_SYNTAX (s_letstar, "let*", scm_m_letstar);
-SCM_SYNTAX (s_or, "or", scm_m_or);
-SCM_SYNTAX (s_at_prompt, "@prompt", scm_m_at_prompt);
SCM_SYNTAX (s_quote, "quote", scm_m_quote);
SCM_SYNTAX (s_set_x, "set!", scm_m_set_x);
-SCM_SYNTAX (s_atapply, "@apply", scm_m_apply);
+/* Convenient syntax during boot, expands to primitive syntax. Replaced after
+ psyntax boots. */
+SCM_SYNTAX (s_and, "and", scm_m_and);
+SCM_SYNTAX (s_cond, "cond", scm_m_cond);
+SCM_SYNTAX (s_letrec, "letrec", scm_m_letrec);
+SCM_SYNTAX (s_letstar, "let*", scm_m_letstar);
+SCM_SYNTAX (s_or, "or", scm_m_or);
SCM_GLOBAL_SYMBOL (scm_sym_apply, "apply");
SCM_GLOBAL_SYMBOL (scm_sym_arrow, "=>");
@@ -481,16 +493,6 @@ scm_m_and (SCM expr, SCM env)
}
static SCM
-scm_m_apply (SCM expr, SCM env)
-{
- const SCM cdr_expr = CDR (expr);
- ASSERT_SYNTAX (scm_ilength (cdr_expr) >= 0, s_bad_expression, expr);
- ASSERT_SYNTAX (scm_ilength (cdr_expr) == 2, s_missing_expression, expr);
-
- return MAKMEMO_APPLY (memoize_exprs (cdr_expr, env));
-}
-
-static SCM
scm_m_begin (SCM expr, SCM env)
{
const SCM cdr_expr = CDR (expr);
@@ -499,27 +501,6 @@ scm_m_begin (SCM expr, SCM env)
}
static SCM
-scm_m_cont (SCM expr, SCM env)
-{
- const SCM cdr_expr = CDR (expr);
- ASSERT_SYNTAX (scm_ilength (cdr_expr) >= 0, s_bad_expression, expr);
- ASSERT_SYNTAX (scm_ilength (cdr_expr) == 1, s_expression, expr);
-
- return MAKMEMO_CONT (memoize (CADR (expr), env));
-}
-
-static SCM
-scm_m_at_call_with_values (SCM expr, SCM env)
-{
- const SCM cdr_expr = CDR (expr);
- ASSERT_SYNTAX (scm_ilength (cdr_expr) >= 0, s_bad_expression, expr);
- ASSERT_SYNTAX (scm_ilength (cdr_expr) == 2, s_expression, expr);
-
- return MAKMEMO_CALL_WITH_VALUES (memoize (CADR (expr), env),
- memoize (CADDR (expr), env));
-}
-
-static SCM
scm_m_cond (SCM expr, SCM env)
{
/* Check, whether 'else or '=> is a literal, i. e. not bound to a value. */
@@ -625,17 +606,6 @@ scm_m_define (SCM expr, SCM env)
}
static SCM
-scm_m_at_dynamic_wind (SCM expr, SCM env)
-{
- const SCM cdr_expr = CDR (expr);
- ASSERT_SYNTAX (scm_ilength (cdr_expr) == 3, s_bad_expression, expr);
-
- return MAKMEMO_DYNWIND (memoize (CADR (expr), env),
- memoize (CADDR (expr), env),
- memoize (CADDDR (expr), env));
-}
-
-static SCM
scm_m_with_fluids (SCM expr, SCM env)
{
SCM binds, fluids, vals;
@@ -975,17 +945,6 @@ scm_m_or (SCM expr, SCM env SCM_UNUSED)
}
static SCM
-scm_m_at_prompt (SCM expr, SCM env)
-{
- ASSERT_SYNTAX (scm_ilength (expr) >= 0, s_bad_expression, expr);
- ASSERT_SYNTAX (scm_ilength (expr) == 4, s_expression, expr);
-
- return MAKMEMO_PROMPT (memoize (CADR (expr), env),
- memoize (CADDR (expr), env),
- memoize (CADDDR (expr), env));
-}
-
-static SCM
scm_m_quote (SCM expr, SCM env SCM_UNUSED)
{
SCM quotee;
@@ -1039,8 +998,239 @@ SCM_DEFINE (scm_memoize_expression,
"memoize-expression", 1, 0, 0,
}
#undef FUNC_NAME
+
+
+
+#define SCM_MAKE_MEMOIZER(STR, MEMOIZER, N) \
+ (scm_cell (scm_tc16_memoizer, \
+ (scm_t_bits)(scm_c_make_gsubr (STR, N, 0, 0, MEMOIZER))))
+#define SCM_DEFINE_MEMOIZER(STR, MEMOIZER, N) \
+SCM_SNARF_INIT(scm_c_define (STR, SCM_MAKE_MEMOIZER (STR, MEMOIZER, N)))
+
+static SCM m_apply (SCM proc, SCM args);
+static SCM m_call_cc (SCM proc);
+static SCM m_call_values (SCM prod, SCM cons);
+static SCM m_dynamic_wind (SCM pre, SCM exp, SCM post);
+static SCM m_prompt (SCM tag, SCM exp, SCM handler);
+
+SCM_DEFINE_MEMOIZER ("@apply", m_apply, 2);
+SCM_DEFINE_MEMOIZER ("@call-with-current-continuation", m_call_cc, 1);
+SCM_DEFINE_MEMOIZER ("@call-with-values", m_call_values, 2);
+SCM_DEFINE_MEMOIZER ("@dynamic-wind", m_dynamic_wind, 3);
+SCM_DEFINE_MEMOIZER ("@prompt", m_prompt, 3);
+
+
+
+
+static SCM m_apply (SCM proc, SCM args)
+#define FUNC_NAME "@apply"
+{
+ SCM_VALIDATE_MEMOIZED (1, proc);
+ SCM_VALIDATE_MEMOIZED (2, args);
+ return MAKMEMO_APPLY (proc, args);
+}
+#undef FUNC_NAME
+
+static SCM m_call_cc (SCM proc)
+#define FUNC_NAME "@call-with-current-continuation"
+{
+ SCM_VALIDATE_MEMOIZED (1, proc);
+ return MAKMEMO_CONT (proc);
+}
+#undef FUNC_NAME
+
+static SCM m_call_values (SCM prod, SCM cons)
+#define FUNC_NAME "@call-with-values"
+{
+ SCM_VALIDATE_MEMOIZED (1, prod);
+ SCM_VALIDATE_MEMOIZED (2, cons);
+ return MAKMEMO_CALL_WITH_VALUES (prod, cons);
+}
+#undef FUNC_NAME
+
+static SCM m_dynamic_wind (SCM in, SCM expr, SCM out)
+#define FUNC_NAME "memoize-dynwind"
+{
+ SCM_VALIDATE_MEMOIZED (1, in);
+ SCM_VALIDATE_MEMOIZED (2, expr);
+ SCM_VALIDATE_MEMOIZED (3, out);
+ return MAKMEMO_DYNWIND (in, expr, out);
+}
+#undef FUNC_NAME
+
+static SCM m_prompt (SCM tag, SCM exp, SCM handler)
+#define FUNC_NAME "@prompt"
+{
+ SCM_VALIDATE_MEMOIZED (1, tag);
+ SCM_VALIDATE_MEMOIZED (2, exp);
+ SCM_VALIDATE_MEMOIZED (3, handler);
+ return MAKMEMO_PROMPT (tag, exp, handler);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoizer_p, "memoizer?", 1, 0, 0,
+ (SCM x), "")
+{
+ return scm_from_bool (SCM_MEMOIZER_P (x));
+}
+
+SCM_DEFINE (scm_memoizer, "memoizer", 1, 0, 0,
+ (SCM memoizer), "")
+{
+ SCM_ASSERT (SCM_MEMOIZER_P (memoizer), memoizer, 1, "memoizer?");
+ return SCM_MEMOIZER (memoizer);
+}
+
+
+#define SCM_VALIDATE_MEMOIZED_LIST(n, exps) \
+ { \
+ SCM walk; \
+ for (walk = exps; scm_is_pair (walk); walk = scm_cdr (walk)) \
+ SCM_ASSERT (SCM_MEMOIZED_P (scm_car (walk)), exps, n, FUNC_NAME); \
+ SCM_ASSERT (scm_is_null (walk), exps, n, FUNC_NAME); \
+ }
+
+SCM_DEFINE (scm_memoize_begin, "memoize-begin", 1, 0, 0,
+ (SCM exps), "")
+#define FUNC_NAME s_scm_memoize_begin
+{
+ SCM_VALIDATE_MEMOIZED_LIST (1, exps);
+ return MAKMEMO_BEGIN (exps);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_if, "memoize-if", 3, 0, 0,
+ (SCM test, SCM then, SCM else_), "")
+#define FUNC_NAME s_scm_memoize_if
+{
+ SCM_VALIDATE_MEMOIZED (1, test);
+ SCM_VALIDATE_MEMOIZED (2, then);
+ SCM_VALIDATE_MEMOIZED (3, else_);
+ return MAKMEMO_IF (test, then, else_);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_lambda, "memoize-lambda", 3, 0, 0,
+ (SCM nreq, SCM rest, SCM body), "")
+#define FUNC_NAME s_scm_memoize_lambda
+{
+ SCM_VALIDATE_BOOL (2, rest);
+ SCM_VALIDATE_MEMOIZED (3, body);
+ return MAKMEMO_LAMBDA (scm_to_uint16 (nreq), rest, body);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_let, "memoize-let", 2, 0, 0,
+ (SCM inits, SCM body), "")
+#define FUNC_NAME s_scm_memoize_let
+{
+ SCM_VALIDATE_MEMOIZED_LIST (1, inits);
+ SCM_VALIDATE_MEMOIZED (2, body);
+ return MAKMEMO_LET (inits, body);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_quote, "memoize-quote", 1, 0, 0,
+ (SCM exp), "")
+#define FUNC_NAME s_scm_memoize_quote
+{
+ return MAKMEMO_QUOTE (exp);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_define, "memoize-define", 2, 0, 0,
+ (SCM var, SCM val), "")
+#define FUNC_NAME s_scm_memoize_define
+{
+ SCM_VALIDATE_SYMBOL (1, var);
+ SCM_VALIDATE_MEMOIZED (2, val);
+ return MAKMEMO_DEFINE (var, val);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_with_fluids, "memoize-with-fluids", 3, 0, 0,
+ (SCM fluids, SCM vals, SCM expr), "")
+#define FUNC_NAME s_scm_memoize_with_fluids
+{
+ SCM_VALIDATE_MEMOIZED_LIST (1, fluids);
+ SCM_VALIDATE_MEMOIZED_LIST (2, vals);
+ SCM_ASSERT (scm_ilength (fluids) == scm_ilength (vals), vals, 2, FUNC_NAME);
+ SCM_VALIDATE_MEMOIZED (3, expr);
+ return MAKMEMO_WITH_FLUIDS (fluids, vals, expr);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_call, "memoize-call", 3, 0, 0,
+ (SCM proc, SCM nargs, SCM args), "")
+#define FUNC_NAME s_scm_memoize_call
+{
+ SCM_VALIDATE_MEMOIZED (1, proc);
+ SCM_VALIDATE_MEMOIZED_LIST (3, args);
+ return MAKMEMO_CALL (proc, scm_to_uint16 (nargs), args);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_lexical_ref, "memoize-lexical-ref", 1, 0, 0,
+ (SCM n), "")
+#define FUNC_NAME s_scm_memoize_lexical_ref
+{
+ return MAKMEMO_LEX_REF (scm_to_uint16 (n));
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_lexical_set, "memoize-lexical-set!", 2, 0, 0,
+ (SCM n, SCM val), "")
+#define FUNC_NAME s_scm_memoize_lexical_set
+{
+ SCM_VALIDATE_MEMOIZED (1, val);
+ return MAKMEMO_LEX_SET (n, val);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_toplevel_ref, "memoize-toplevel-ref", 1, 0, 0,
+ (SCM var), "")
+#define FUNC_NAME s_scm_memoize_toplevel_ref
+{
+ SCM_VALIDATE_SYMBOL (1, var);
+ return MAKMEMO_TOP_REF (var);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_toplevel_set, "memoize-toplevel-set!", 2, 0, 0,
+ (SCM var, SCM val), "")
+#define FUNC_NAME s_scm_memoize_toplevel_set
+{
+ SCM_VALIDATE_SYMBOL (1, var);
+ SCM_VALIDATE_MEMOIZED (2, val);
+ return MAKMEMO_TOP_SET (var, val);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_module_ref, "memoize-module-ref", 3, 0, 0,
+ (SCM mod, SCM var, SCM public), "")
+#define FUNC_NAME s_scm_memoize_module_ref
+{
+ SCM_VALIDATE_SYMBOL (2, var);
+ SCM_VALIDATE_BOOL (3, public);
+ return MAKMEMO_MOD_REF (mod, var, public);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_memoize_module_set, "memoize-module-set!", 4, 0, 0,
+ (SCM val, SCM mod, SCM var, SCM public), "")
+#define FUNC_NAME s_scm_memoize_module_set
+{
+ SCM_VALIDATE_MEMOIZED (1, val);
+ SCM_VALIDATE_SYMBOL (3, var);
+ SCM_VALIDATE_BOOL (4, public);
+ return MAKMEMO_MOD_SET (val, mod, var, public);
+}
+#undef FUNC_NAME
+
+
+
SCM_SYMBOL (sym_placeholder, "_");
@@ -1174,6 +1364,9 @@ unmemoize (const SCM expr)
}
}
+
+
+
SCM_DEFINE (scm_memoized_p, "memoized?", 1, 0, 0,
(SCM obj),
"Return @code{#t} if @var{obj} is memoized.")
@@ -1325,7 +1518,12 @@ scm_init_memoize ()
scm_set_smob_mark (scm_tc16_memoized, scm_markcdr);
scm_set_smob_print (scm_tc16_memoized, scm_print_memoized);
+ scm_tc16_memoizer = scm_make_smob_type ("memoizer", 0);
+
#include "libguile/memoize.x"
+
+ scm_c_define ("macroexpand",
+ scm_variable_ref (scm_c_lookup ("memoize-expression")));
}
/*
diff --git a/libguile/memoize.h b/libguile/memoize.h
index 26bd5b1..c04031e 100644
--- a/libguile/memoize.h
+++ b/libguile/memoize.h
@@ -104,6 +104,24 @@ SCM_INTERNAL SCM scm_memoized_typecode (SCM sym);
SCM_INTERNAL SCM scm_memoize_variable_access_x (SCM memoized, SCM module);
SCM_API SCM scm_memoized_p (SCM obj);
+SCM_INTERNAL SCM scm_memoizer_p (SCM obj);
+SCM_INTERNAL SCM scm_memoizer (SCM obj);
+
+SCM_INTERNAL SCM scm_memoize_begin (SCM exps);
+SCM_INTERNAL SCM scm_memoize_if (SCM test, SCM then, SCM else_);
+SCM_INTERNAL SCM scm_memoize_lambda (SCM nreq, SCM rest, SCM body);
+SCM_INTERNAL SCM scm_memoize_let (SCM inits, SCM body);
+SCM_INTERNAL SCM scm_memoize_quote (SCM exp);
+SCM_INTERNAL SCM scm_memoize_define (SCM var, SCM val);
+SCM_INTERNAL SCM scm_memoize_with_fluids (SCM fluids, SCM vals, SCM expr);
+SCM_INTERNAL SCM scm_memoize_call (SCM proc, SCM nargs, SCM args);
+SCM_INTERNAL SCM scm_memoize_lexical_ref (SCM n);
+SCM_INTERNAL SCM scm_memoize_lexical_set (SCM n, SCM val);
+SCM_INTERNAL SCM scm_memoize_toplevel_ref (SCM var);
+SCM_INTERNAL SCM scm_memoize_toplevel_set (SCM var, SCM val);
+SCM_INTERNAL SCM scm_memoize_module_ref (SCM mod, SCM var, SCM public);
+SCM_INTERNAL SCM scm_memoize_module_set (SCM val, SCM mod, SCM var, SCM
public);
+
SCM_INTERNAL void scm_init_memoize (void);
diff --git a/libguile/modules.c b/libguile/modules.c
index ac15eaa..a0c47f2 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -564,7 +564,7 @@ scm_current_module_lookup_closure ()
return SCM_BOOL_F;
}
-SCM_SYMBOL (sym_sys_pre_modules_transformer, "%pre-modules-transformer");
+SCM_SYMBOL (sym_macroexpand, "macroexpand");
SCM_DEFINE (scm_module_transformer, "module-transformer", 1, 0, 0,
(SCM module),
@@ -572,13 +572,13 @@ SCM_DEFINE (scm_module_transformer, "module-transformer",
1, 0, 0,
#define FUNC_NAME s_scm_module_transformer
{
if (SCM_UNLIKELY (scm_is_false (module)))
- { SCM v = scm_hashq_ref (scm_pre_modules_obarray,
- sym_sys_pre_modules_transformer,
+ {
+ SCM v = scm_hashq_ref (scm_pre_modules_obarray,
+ sym_macroexpand,
SCM_BOOL_F);
if (scm_is_false (v))
- return SCM_BOOL_F;
- else
- return SCM_VARIABLE_REF (v);
+ SCM_MISC_ERROR ("no module, and `macroexpand' unbound", SCM_EOL);
+ return SCM_VARIABLE_REF (v);
}
else
{
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 794e929..b2ca4ac 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -357,7 +357,6 @@ If there is no handler at all, Guile prints an error and
then exits."
(define generate-temporaries #f)
(define bound-identifier=? #f)
(define free-identifier=? #f)
-(define macroexpand #f)
;; $sc-dispatch is an implementation detail of psyntax. It is used by
;; expanded macros, to dispatch an input against a set of patterns.
@@ -365,10 +364,8 @@ If there is no handler at all, Guile prints an error and
then exits."
;; Load it up!
(primitive-load-path "ice-9/psyntax-pp")
-
-;; %pre-modules-transformer is the Scheme expander from now until the
-;; module system has booted up.
-(define %pre-modules-transformer macroexpand)
+;; The binding for `macroexpand' has now been overridden, making psyntax the
+;; expander now.
(define-syntax and
(syntax-rules ()
@@ -1606,7 +1603,7 @@ If there is no handler at all, Guile prints an error and
then exits."
"Lazy-binder expected to be a procedure or #f." binder))
(let ((module (module-constructor (make-hash-table size)
- uses binder #f
%pre-modules-transformer
+ uses binder #f macroexpand
#f #f #f
(make-hash-table
%default-import-size)
'()
diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm
index e38f2df..a5f885c 100644
--- a/module/ice-9/eval.scm
+++ b/module/ice-9/eval.scm
@@ -332,8 +332,7 @@
(lambda (exp)
"Evaluate @var{exp} in the current module."
(eval
- (memoize-expression ((or (module-transformer (current-module))
- (lambda (x) x))
- exp))
+ (if (memoized? exp)
+ exp
+ ((module-transformer (current-module)) exp))
'()))))
-
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 1ccc7bd..a0446d7 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,638 +1,657 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 20}#
- (lambda (#{f\ 82}# #{first\ 83}# . #{rest\ 84}#)
- (let ((#{t\ 90}# (null? #{first\ 83}#)))
- (if #{t\ 90}#
- #{t\ 90}#
- (if (null? #{rest\ 84}#)
- (letrec ((#{andmap\ 94}#
- (lambda (#{first\ 95}#)
- (let ((#{x\ 98}# (car #{first\ 95}#))
- (#{first\ 99}# (cdr #{first\ 95}#)))
- (if (null? #{first\ 99}#)
- (#{f\ 82}# #{x\ 98}#)
- (if (#{f\ 82}# #{x\ 98}#)
- (#{andmap\ 94}# #{first\ 99}#)
+(letrec ((#{and-map*\ 10951}#
+ (lambda (#{f\ 11013}# #{first\ 11014}# . #{rest\ 11015}#)
+ (let ((#{t\ 11021}# (null? #{first\ 11014}#)))
+ (if #{t\ 11021}#
+ #{t\ 11021}#
+ (if (null? #{rest\ 11015}#)
+ (letrec ((#{andmap\ 11025}#
+ (lambda (#{first\ 11026}#)
+ (let ((#{x\ 11029}# (car #{first\ 11026}#))
+ (#{first\ 11030}#
+ (cdr #{first\ 11026}#)))
+ (if (null? #{first\ 11030}#)
+ (#{f\ 11013}# #{x\ 11029}#)
+ (if (#{f\ 11013}# #{x\ 11029}#)
+ (#{andmap\ 11025}# #{first\ 11030}#)
#f))))))
- (#{andmap\ 94}# #{first\ 83}#))
- (letrec ((#{andmap\ 105}#
- (lambda (#{first\ 106}# #{rest\ 107}#)
- (let ((#{x\ 112}# (car #{first\ 106}#))
- (#{xr\ 113}# (map car #{rest\ 107}#))
- (#{first\ 114}# (cdr #{first\ 106}#))
- (#{rest\ 115}# (map cdr #{rest\ 107}#)))
- (if (null? #{first\ 114}#)
- (apply #{f\ 82}#
- (cons #{x\ 112}# #{xr\ 113}#))
- (if (apply #{f\ 82}#
- (cons #{x\ 112}# #{xr\ 113}#))
- (#{andmap\ 105}#
- #{first\ 114}#
- #{rest\ 115}#)
+ (#{andmap\ 11025}# #{first\ 11014}#))
+ (letrec ((#{andmap\ 11036}#
+ (lambda (#{first\ 11037}# #{rest\ 11038}#)
+ (let ((#{x\ 11043}# (car #{first\ 11037}#))
+ (#{xr\ 11044}# (map car #{rest\ 11038}#))
+ (#{first\ 11045}# (cdr #{first\ 11037}#))
+ (#{rest\ 11046}#
+ (map cdr #{rest\ 11038}#)))
+ (if (null? #{first\ 11045}#)
+ (apply #{f\ 11013}#
+ (cons #{x\ 11043}# #{xr\ 11044}#))
+ (if (apply #{f\ 11013}#
+ (cons #{x\ 11043}#
+ #{xr\ 11044}#))
+ (#{andmap\ 11036}#
+ #{first\ 11045}#
+ #{rest\ 11046}#)
#f))))))
- (#{andmap\ 105}# #{first\ 83}# #{rest\ 84}#))))))))
- (letrec ((#{lambda-var-list\ 337}#
- (lambda (#{vars\ 552}#)
- (letrec ((#{lvl\ 558}#
- (lambda (#{vars\ 559}# #{ls\ 560}# #{w\ 561}#)
- (if (pair? #{vars\ 559}#)
- (#{lvl\ 558}#
- (cdr #{vars\ 559}#)
- (cons (#{wrap\ 291}#
- (car #{vars\ 559}#)
- #{w\ 561}#
+ (#{andmap\ 11036}#
+ #{first\ 11014}#
+ #{rest\ 11015}#))))))))
+ (letrec ((#{lambda-var-list\ 11266}#
+ (lambda (#{vars\ 11481}#)
+ (letrec ((#{lvl\ 11487}#
+ (lambda (#{vars\ 11488}# #{ls\ 11489}# #{w\ 11490}#)
+ (if (pair? #{vars\ 11488}#)
+ (#{lvl\ 11487}#
+ (cdr #{vars\ 11488}#)
+ (cons (#{wrap\ 11220}#
+ (car #{vars\ 11488}#)
+ #{w\ 11490}#
#f)
- #{ls\ 560}#)
- #{w\ 561}#)
- (if (#{id?\ 222}# #{vars\ 559}#)
- (cons (#{wrap\ 291}#
- #{vars\ 559}#
- #{w\ 561}#
+ #{ls\ 11489}#)
+ #{w\ 11490}#)
+ (if (#{id?\ 11151}# #{vars\ 11488}#)
+ (cons (#{wrap\ 11220}#
+ #{vars\ 11488}#
+ #{w\ 11490}#
#f)
- #{ls\ 560}#)
- (if (null? #{vars\ 559}#)
- #{ls\ 560}#
- (if (#{syntax-object?\ 186}# #{vars\ 559}#)
- (#{lvl\ 558}#
- (#{syntax-object-expression\ 188}#
- #{vars\ 559}#)
- #{ls\ 560}#
- (#{join-wraps\ 273}#
- #{w\ 561}#
- (#{syntax-object-wrap\ 190}#
- #{vars\ 559}#)))
- (cons #{vars\ 559}# #{ls\ 560}#))))))))
- (#{lvl\ 558}#
- #{vars\ 552}#
+ #{ls\ 11489}#)
+ (if (null? #{vars\ 11488}#)
+ #{ls\ 11489}#
+ (if (#{syntax-object?\ 11115}#
+ #{vars\ 11488}#)
+ (#{lvl\ 11487}#
+ (#{syntax-object-expression\ 11117}#
+ #{vars\ 11488}#)
+ #{ls\ 11489}#
+ (#{join-wraps\ 11202}#
+ #{w\ 11490}#
+ (#{syntax-object-wrap\ 11119}#
+ #{vars\ 11488}#)))
+ (cons #{vars\ 11488}# #{ls\ 11489}#))))))))
+ (#{lvl\ 11487}#
+ #{vars\ 11481}#
'()
'(())))))
- (#{gen-var\ 335}#
- (lambda (#{id\ 572}#)
- (let ((#{id\ 575}#
- (if (#{syntax-object?\ 186}# #{id\ 572}#)
- (#{syntax-object-expression\ 188}# #{id\ 572}#)
- #{id\ 572}#)))
+ (#{gen-var\ 11264}#
+ (lambda (#{id\ 11501}#)
+ (let ((#{id\ 11504}#
+ (if (#{syntax-object?\ 11115}# #{id\ 11501}#)
+ (#{syntax-object-expression\ 11117}#
+ #{id\ 11501}#)
+ #{id\ 11501}#)))
(gensym
- (string-append (symbol->string #{id\ 575}#) " ")))))
- (#{strip\ 333}#
- (lambda (#{x\ 577}# #{w\ 578}#)
+ (string-append
+ (symbol->string #{id\ 11504}#)
+ " ")))))
+ (#{strip\ 11262}#
+ (lambda (#{x\ 11506}# #{w\ 11507}#)
(if (memq 'top
- (#{wrap-marks\ 229}# #{w\ 578}#))
- #{x\ 577}#
- (letrec ((#{f\ 584}# (lambda (#{x\ 585}#)
- (if (#{syntax-object?\ 186}#
- #{x\ 585}#)
- (#{strip\ 333}#
- (#{syntax-object-expression\ 188}#
- #{x\ 585}#)
- (#{syntax-object-wrap\ 190}#
- #{x\ 585}#))
- (if (pair? #{x\ 585}#)
- (let ((#{a\ 592}# (#{f\ 584}# (car
#{x\ 585}#)))
- (#{d\ 593}# (#{f\ 584}# (cdr
#{x\ 585}#))))
- (if (if (eq? #{a\ 592}#
- (car #{x\ 585}#))
- (eq? #{d\ 593}#
- (cdr #{x\ 585}#))
- #f)
- #{x\ 585}#
- (cons #{a\ 592}# #{d\ 593}#)))
- (if (vector? #{x\ 585}#)
- (let ((#{old\ 599}#
- (vector->list
- #{x\ 585}#)))
- (let ((#{new\ 601}#
- (map #{f\ 584}#
- #{old\ 599}#)))
- (if (#{and-map*\ 20}#
- eq?
- #{old\ 599}#
- #{new\ 601}#)
- #{x\ 585}#
- (list->vector
- #{new\ 601}#))))
- #{x\ 585}#))))))
- (#{f\ 584}# #{x\ 577}#)))))
- (#{chi-lambda-case\ 331}#
- (lambda (#{e\ 603}#
- #{r\ 604}#
- #{w\ 605}#
- #{s\ 606}#
- #{mod\ 607}#
- #{get-formals\ 608}#
- #{clauses\ 609}#)
- (letrec ((#{expand-body\ 624}#
- (lambda (#{req\ 625}#
- #{opt\ 626}#
- #{rest\ 627}#
- #{kw\ 628}#
- #{body\ 629}#
- #{vars\ 630}#
- #{r*\ 631}#
- #{w*\ 632}#
- #{inits\ 633}#
- #{meta\ 634}#)
- ((lambda (#{tmp\ 645}#)
- ((lambda (#{tmp\ 646}#)
- (if (if #{tmp\ 646}#
- (apply (lambda (#{docstring\ 650}#
- #{e1\ 651}#
- #{e2\ 652}#)
+ (#{wrap-marks\ 11158}# #{w\ 11507}#))
+ #{x\ 11506}#
+ (letrec ((#{f\ 11513}#
+ (lambda (#{x\ 11514}#)
+ (if (#{syntax-object?\ 11115}# #{x\ 11514}#)
+ (#{strip\ 11262}#
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 11514}#)
+ (#{syntax-object-wrap\ 11119}# #{x\ 11514}#))
+ (if (pair? #{x\ 11514}#)
+ (let ((#{a\ 11521}#
+ (#{f\ 11513}# (car #{x\ 11514}#)))
+ (#{d\ 11522}#
+ (#{f\ 11513}# (cdr #{x\ 11514}#))))
+ (if (if (eq? #{a\ 11521}#
+ (car #{x\ 11514}#))
+ (eq? #{d\ 11522}# (cdr #{x\ 11514}#))
+ #f)
+ #{x\ 11514}#
+ (cons #{a\ 11521}# #{d\ 11522}#)))
+ (if (vector? #{x\ 11514}#)
+ (let ((#{old\ 11528}#
+ (vector->list #{x\ 11514}#)))
+ (let ((#{new\ 11530}#
+ (map #{f\ 11513}#
+ #{old\ 11528}#)))
+ (if (#{and-map*\ 10951}#
+ eq?
+ #{old\ 11528}#
+ #{new\ 11530}#)
+ #{x\ 11514}#
+ (list->vector #{new\ 11530}#))))
+ #{x\ 11514}#))))))
+ (#{f\ 11513}# #{x\ 11506}#)))))
+ (#{chi-lambda-case\ 11260}#
+ (lambda (#{e\ 11532}#
+ #{r\ 11533}#
+ #{w\ 11534}#
+ #{s\ 11535}#
+ #{mod\ 11536}#
+ #{get-formals\ 11537}#
+ #{clauses\ 11538}#)
+ (letrec ((#{expand-body\ 11553}#
+ (lambda (#{req\ 11554}#
+ #{opt\ 11555}#
+ #{rest\ 11556}#
+ #{kw\ 11557}#
+ #{body\ 11558}#
+ #{vars\ 11559}#
+ #{r*\ 11560}#
+ #{w*\ 11561}#
+ #{inits\ 11562}#
+ #{meta\ 11563}#)
+ ((lambda (#{tmp\ 11574}#)
+ ((lambda (#{tmp\ 11575}#)
+ (if (if #{tmp\ 11575}#
+ (apply (lambda (#{docstring\ 11579}#
+ #{e1\ 11580}#
+ #{e2\ 11581}#)
(string?
(syntax->datum
- #{docstring\ 650}#)))
- #{tmp\ 646}#)
+ #{docstring\ 11579}#)))
+ #{tmp\ 11575}#)
#f)
- (apply (lambda (#{docstring\ 656}#
- #{e1\ 657}#
- #{e2\ 658}#)
- (#{expand-body\ 624}#
- #{req\ 625}#
- #{opt\ 626}#
- #{rest\ 627}#
- #{kw\ 628}#
- (cons #{e1\ 657}# #{e2\ 658}#)
- #{vars\ 630}#
- #{r*\ 631}#
- #{w*\ 632}#
- #{inits\ 633}#
+ (apply (lambda (#{docstring\ 11585}#
+ #{e1\ 11586}#
+ #{e2\ 11587}#)
+ (#{expand-body\ 11553}#
+ #{req\ 11554}#
+ #{opt\ 11555}#
+ #{rest\ 11556}#
+ #{kw\ 11557}#
+ (cons #{e1\ 11586}#
+ #{e2\ 11587}#)
+ #{vars\ 11559}#
+ #{r*\ 11560}#
+ #{w*\ 11561}#
+ #{inits\ 11562}#
(append
- #{meta\ 634}#
+ #{meta\ 11563}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
656}#))))))
- #{tmp\ 646}#)
- ((lambda (#{tmp\ 661}#)
- (if #{tmp\ 661}#
- (apply (lambda (#{k\ 666}#
- #{v\ 667}#
- #{e1\ 668}#
- #{e2\ 669}#)
- (#{expand-body\ 624}#
- #{req\ 625}#
- #{opt\ 626}#
- #{rest\ 627}#
- #{kw\ 628}#
- (cons #{e1\ 668}#
- #{e2\ 669}#)
- #{vars\ 630}#
- #{r*\ 631}#
- #{w*\ 632}#
- #{inits\ 633}#
+ #{docstring\
11585}#))))))
+ #{tmp\ 11575}#)
+ ((lambda (#{tmp\ 11590}#)
+ (if #{tmp\ 11590}#
+ (apply (lambda (#{k\ 11595}#
+ #{v\ 11596}#
+ #{e1\ 11597}#
+ #{e2\ 11598}#)
+ (#{expand-body\ 11553}#
+ #{req\ 11554}#
+ #{opt\ 11555}#
+ #{rest\ 11556}#
+ #{kw\ 11557}#
+ (cons #{e1\ 11597}#
+ #{e2\ 11598}#)
+ #{vars\ 11559}#
+ #{r*\ 11560}#
+ #{w*\ 11561}#
+ #{inits\ 11562}#
(append
- #{meta\ 634}#
+ #{meta\ 11563}#
(syntax->datum
(map cons
- #{k\ 666}#
- #{v\ 667}#)))))
- #{tmp\ 661}#)
- ((lambda (#{tmp\ 673}#)
- (if #{tmp\ 673}#
- (apply (lambda (#{e1\ 676}#
- #{e2\ 677}#)
+ #{k\ 11595}#
+ #{v\ 11596}#)))))
+ #{tmp\ 11590}#)
+ ((lambda (#{tmp\ 11602}#)
+ (if #{tmp\ 11602}#
+ (apply (lambda (#{e1\ 11605}#
+ #{e2\ 11606}#)
(values
- #{meta\ 634}#
- #{req\ 625}#
- #{opt\ 626}#
- #{rest\ 627}#
- #{kw\ 628}#
- #{inits\ 633}#
- #{vars\ 630}#
- (#{chi-body\ 315}#
- (cons #{e1\ 676}#
- #{e2\ 677}#)
- (#{source-wrap\
293}#
- #{e\ 603}#
- #{w\ 605}#
- #{s\ 606}#
- #{mod\ 607}#)
- #{r*\ 631}#
- #{w*\ 632}#
- #{mod\ 607}#)))
- #{tmp\ 673}#)
+ #{meta\ 11563}#
+ #{req\ 11554}#
+ #{opt\ 11555}#
+ #{rest\ 11556}#
+ #{kw\ 11557}#
+ #{inits\ 11562}#
+ #{vars\ 11559}#
+ (#{chi-body\ 11244}#
+ (cons #{e1\ 11605}#
+ #{e2\ 11606}#)
+ (#{source-wrap\
11222}#
+ #{e\ 11532}#
+ #{w\ 11534}#
+ #{s\ 11535}#
+ #{mod\ 11536}#)
+ #{r*\ 11560}#
+ #{w*\ 11561}#
+ #{mod\ 11536}#)))
+ #{tmp\ 11602}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 645}#)))
+ #{tmp\ 11574}#)))
($sc-dispatch
- #{tmp\ 645}#
+ #{tmp\ 11574}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 645}#
+ #{tmp\ 11574}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 645}#
+ #{tmp\ 11574}#
'(any any . each-any))))
- #{body\ 629}#)))
- (#{expand-kw\ 622}#
- (lambda (#{req\ 679}#
- #{opt\ 680}#
- #{rest\ 681}#
- #{kw\ 682}#
- #{body\ 683}#
- #{vars\ 684}#
- #{r*\ 685}#
- #{w*\ 686}#
- #{aok\ 687}#
- #{out\ 688}#
- #{inits\ 689}#)
- (if (pair? #{kw\ 682}#)
- ((lambda (#{tmp\ 703}#)
- ((lambda (#{tmp\ 704}#)
- (if #{tmp\ 704}#
- (apply (lambda (#{k\ 708}#
- #{id\ 709}#
- #{i\ 710}#)
- (let ((#{v\ 713}# (#{gen-var\
335}#
- #{id\
709}#)))
- (let ((#{l\ 715}#
(#{gen-labels\ 240}#
- (list
#{v\ 713}#))))
- (let ((#{r**\ 717}#
- (#{extend-var-env\
212}#
- #{l\ 715}#
- (list #{v\ 713}#)
- #{r*\ 685}#)))
- (let ((#{w**\ 719}#
-
(#{make-binding-wrap\ 269}#
- (list #{id\
709}#)
- #{l\ 715}#
- #{w*\ 686}#)))
- (#{expand-kw\ 622}#
- #{req\ 679}#
- #{opt\ 680}#
- #{rest\ 681}#
- (cdr #{kw\ 682}#)
- #{body\ 683}#
- (cons #{v\ 713}#
- #{vars\ 684}#)
- #{r**\ 717}#
- #{w**\ 719}#
- #{aok\ 687}#
+ #{body\ 11558}#)))
+ (#{expand-kw\ 11551}#
+ (lambda (#{req\ 11608}#
+ #{opt\ 11609}#
+ #{rest\ 11610}#
+ #{kw\ 11611}#
+ #{body\ 11612}#
+ #{vars\ 11613}#
+ #{r*\ 11614}#
+ #{w*\ 11615}#
+ #{aok\ 11616}#
+ #{out\ 11617}#
+ #{inits\ 11618}#)
+ (if (pair? #{kw\ 11611}#)
+ ((lambda (#{tmp\ 11632}#)
+ ((lambda (#{tmp\ 11633}#)
+ (if #{tmp\ 11633}#
+ (apply (lambda (#{k\ 11637}#
+ #{id\ 11638}#
+ #{i\ 11639}#)
+ (let ((#{v\ 11642}#
+ (#{gen-var\ 11264}#
+ #{id\ 11638}#)))
+ (let ((#{l\ 11644}#
+ (#{gen-labels\ 11169}#
+ (list #{v\
11642}#))))
+ (let ((#{r**\ 11646}#
+ (#{extend-var-env\
11141}#
+ #{l\ 11644}#
+ (list #{v\
11642}#)
+ #{r*\ 11614}#)))
+ (let ((#{w**\ 11648}#
+
(#{make-binding-wrap\ 11198}#
+ (list #{id\
11638}#)
+ #{l\ 11644}#
+ #{w*\ 11615}#)))
+ (#{expand-kw\ 11551}#
+ #{req\ 11608}#
+ #{opt\ 11609}#
+ #{rest\ 11610}#
+ (cdr #{kw\ 11611}#)
+ #{body\ 11612}#
+ (cons #{v\ 11642}#
+ #{vars\ 11613}#)
+ #{r**\ 11646}#
+ #{w**\ 11648}#
+ #{aok\ 11616}#
(cons (list
(syntax->datum
- #{k\
708}#)
+ #{k\
11637}#)
(syntax->datum
- #{id\
709}#)
- #{v\
713}#)
- #{out\ 688}#)
- (cons (#{chi\ 307}#
- #{i\ 710}#
- #{r*\ 685}#
- #{w*\ 686}#
- #{mod\ 607}#)
- #{inits\
689}#)))))))
- #{tmp\ 704}#)
+ #{id\
11638}#)
+ #{v\
11642}#)
+ #{out\ 11617}#)
+ (cons (#{chi\ 11236}#
+ #{i\ 11639}#
+ #{r*\ 11614}#
+ #{w*\ 11615}#
+ #{mod\
11536}#)
+ #{inits\
11618}#)))))))
+ #{tmp\ 11633}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 703}#)))
+ #{tmp\ 11632}#)))
($sc-dispatch
- #{tmp\ 703}#
+ #{tmp\ 11632}#
'(any any any))))
- (car #{kw\ 682}#))
- (#{expand-body\ 624}#
- #{req\ 679}#
- #{opt\ 680}#
- #{rest\ 681}#
- (if (let ((#{t\ 723}# #{aok\ 687}#))
- (if #{t\ 723}#
- #{t\ 723}#
- (pair? #{out\ 688}#)))
- (cons #{aok\ 687}# (reverse #{out\ 688}#))
+ (car #{kw\ 11611}#))
+ (#{expand-body\ 11553}#
+ #{req\ 11608}#
+ #{opt\ 11609}#
+ #{rest\ 11610}#
+ (if (let ((#{t\ 11652}# #{aok\ 11616}#))
+ (if #{t\ 11652}#
+ #{t\ 11652}#
+ (pair? #{out\ 11617}#)))
+ (cons #{aok\ 11616}#
+ (reverse #{out\ 11617}#))
#f)
- #{body\ 683}#
- (reverse #{vars\ 684}#)
- #{r*\ 685}#
- #{w*\ 686}#
- (reverse #{inits\ 689}#)
+ #{body\ 11612}#
+ (reverse #{vars\ 11613}#)
+ #{r*\ 11614}#
+ #{w*\ 11615}#
+ (reverse #{inits\ 11618}#)
'()))))
- (#{expand-opt\ 620}#
- (lambda (#{req\ 725}#
- #{opt\ 726}#
- #{rest\ 727}#
- #{kw\ 728}#
- #{body\ 729}#
- #{vars\ 730}#
- #{r*\ 731}#
- #{w*\ 732}#
- #{out\ 733}#
- #{inits\ 734}#)
- (if (pair? #{opt\ 726}#)
- ((lambda (#{tmp\ 747}#)
- ((lambda (#{tmp\ 748}#)
- (if #{tmp\ 748}#
- (apply (lambda (#{id\ 751}# #{i\ 752}#)
- (let ((#{v\ 755}# (#{gen-var\
335}#
- #{id\
751}#)))
- (let ((#{l\ 757}#
(#{gen-labels\ 240}#
- (list
#{v\ 755}#))))
- (let ((#{r**\ 759}#
- (#{extend-var-env\
212}#
- #{l\ 757}#
- (list #{v\ 755}#)
- #{r*\ 731}#)))
- (let ((#{w**\ 761}#
-
(#{make-binding-wrap\ 269}#
- (list #{id\
751}#)
- #{l\ 757}#
- #{w*\ 732}#)))
- (#{expand-opt\ 620}#
- #{req\ 725}#
- (cdr #{opt\ 726}#)
- #{rest\ 727}#
- #{kw\ 728}#
- #{body\ 729}#
- (cons #{v\ 755}#
- #{vars\ 730}#)
- #{r**\ 759}#
- #{w**\ 761}#
+ (#{expand-opt\ 11549}#
+ (lambda (#{req\ 11654}#
+ #{opt\ 11655}#
+ #{rest\ 11656}#
+ #{kw\ 11657}#
+ #{body\ 11658}#
+ #{vars\ 11659}#
+ #{r*\ 11660}#
+ #{w*\ 11661}#
+ #{out\ 11662}#
+ #{inits\ 11663}#)
+ (if (pair? #{opt\ 11655}#)
+ ((lambda (#{tmp\ 11676}#)
+ ((lambda (#{tmp\ 11677}#)
+ (if #{tmp\ 11677}#
+ (apply (lambda (#{id\ 11680}#
+ #{i\ 11681}#)
+ (let ((#{v\ 11684}#
+ (#{gen-var\ 11264}#
+ #{id\ 11680}#)))
+ (let ((#{l\ 11686}#
+ (#{gen-labels\ 11169}#
+ (list #{v\
11684}#))))
+ (let ((#{r**\ 11688}#
+ (#{extend-var-env\
11141}#
+ #{l\ 11686}#
+ (list #{v\
11684}#)
+ #{r*\ 11660}#)))
+ (let ((#{w**\ 11690}#
+
(#{make-binding-wrap\ 11198}#
+ (list #{id\
11680}#)
+ #{l\ 11686}#
+ #{w*\ 11661}#)))
+ (#{expand-opt\ 11549}#
+ #{req\ 11654}#
+ (cdr #{opt\ 11655}#)
+ #{rest\ 11656}#
+ #{kw\ 11657}#
+ #{body\ 11658}#
+ (cons #{v\ 11684}#
+ #{vars\ 11659}#)
+ #{r**\ 11688}#
+ #{w**\ 11690}#
(cons (syntax->datum
- #{id\ 751}#)
- #{out\ 733}#)
- (cons (#{chi\ 307}#
- #{i\ 752}#
- #{r*\ 731}#
- #{w*\ 732}#
- #{mod\ 607}#)
- #{inits\
734}#)))))))
- #{tmp\ 748}#)
+ #{id\ 11680}#)
+ #{out\ 11662}#)
+ (cons (#{chi\ 11236}#
+ #{i\ 11681}#
+ #{r*\ 11660}#
+ #{w*\ 11661}#
+ #{mod\
11536}#)
+ #{inits\
11663}#)))))))
+ #{tmp\ 11677}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 747}#)))
+ #{tmp\ 11676}#)))
($sc-dispatch
- #{tmp\ 747}#
+ #{tmp\ 11676}#
'(any any))))
- (car #{opt\ 726}#))
- (if #{rest\ 727}#
- (let ((#{v\ 766}# (#{gen-var\ 335}#
- #{rest\ 727}#)))
- (let ((#{l\ 768}# (#{gen-labels\ 240}#
- (list #{v\ 766}#))))
- (let ((#{r*\ 770}#
- (#{extend-var-env\ 212}#
- #{l\ 768}#
- (list #{v\ 766}#)
- #{r*\ 731}#)))
- (let ((#{w*\ 772}#
- (#{make-binding-wrap\ 269}#
- (list #{rest\ 727}#)
- #{l\ 768}#
- #{w*\ 732}#)))
- (#{expand-kw\ 622}#
- #{req\ 725}#
- (if (pair? #{out\ 733}#)
- (reverse #{out\ 733}#)
+ (car #{opt\ 11655}#))
+ (if #{rest\ 11656}#
+ (let ((#{v\ 11695}#
+ (#{gen-var\ 11264}# #{rest\ 11656}#)))
+ (let ((#{l\ 11697}#
+ (#{gen-labels\ 11169}#
+ (list #{v\ 11695}#))))
+ (let ((#{r*\ 11699}#
+ (#{extend-var-env\ 11141}#
+ #{l\ 11697}#
+ (list #{v\ 11695}#)
+ #{r*\ 11660}#)))
+ (let ((#{w*\ 11701}#
+ (#{make-binding-wrap\ 11198}#
+ (list #{rest\ 11656}#)
+ #{l\ 11697}#
+ #{w*\ 11661}#)))
+ (#{expand-kw\ 11551}#
+ #{req\ 11654}#
+ (if (pair? #{out\ 11662}#)
+ (reverse #{out\ 11662}#)
#f)
- (syntax->datum #{rest\ 727}#)
- (if (pair? #{kw\ 728}#)
- (cdr #{kw\ 728}#)
- #{kw\ 728}#)
- #{body\ 729}#
- (cons #{v\ 766}# #{vars\ 730}#)
- #{r*\ 770}#
- #{w*\ 772}#
- (if (pair? #{kw\ 728}#)
- (car #{kw\ 728}#)
+ (syntax->datum #{rest\ 11656}#)
+ (if (pair? #{kw\ 11657}#)
+ (cdr #{kw\ 11657}#)
+ #{kw\ 11657}#)
+ #{body\ 11658}#
+ (cons #{v\ 11695}# #{vars\ 11659}#)
+ #{r*\ 11699}#
+ #{w*\ 11701}#
+ (if (pair? #{kw\ 11657}#)
+ (car #{kw\ 11657}#)
#f)
'()
- #{inits\ 734}#)))))
- (#{expand-kw\ 622}#
- #{req\ 725}#
- (if (pair? #{out\ 733}#)
- (reverse #{out\ 733}#)
+ #{inits\ 11663}#)))))
+ (#{expand-kw\ 11551}#
+ #{req\ 11654}#
+ (if (pair? #{out\ 11662}#)
+ (reverse #{out\ 11662}#)
#f)
#f
- (if (pair? #{kw\ 728}#)
- (cdr #{kw\ 728}#)
- #{kw\ 728}#)
- #{body\ 729}#
- #{vars\ 730}#
- #{r*\ 731}#
- #{w*\ 732}#
- (if (pair? #{kw\ 728}#) (car #{kw\ 728}#) #f)
+ (if (pair? #{kw\ 11657}#)
+ (cdr #{kw\ 11657}#)
+ #{kw\ 11657}#)
+ #{body\ 11658}#
+ #{vars\ 11659}#
+ #{r*\ 11660}#
+ #{w*\ 11661}#
+ (if (pair? #{kw\ 11657}#)
+ (car #{kw\ 11657}#)
+ #f)
'()
- #{inits\ 734}#)))))
- (#{expand-req\ 618}#
- (lambda (#{req\ 774}#
- #{opt\ 775}#
- #{rest\ 776}#
- #{kw\ 777}#
- #{body\ 778}#)
- (let ((#{vars\ 786}#
- (map #{gen-var\ 335}# #{req\ 774}#))
- (#{labels\ 787}#
- (#{gen-labels\ 240}# #{req\ 774}#)))
- (let ((#{r*\ 790}#
- (#{extend-var-env\ 212}#
- #{labels\ 787}#
- #{vars\ 786}#
- #{r\ 604}#))
- (#{w*\ 791}#
- (#{make-binding-wrap\ 269}#
- #{req\ 774}#
- #{labels\ 787}#
- #{w\ 605}#)))
- (#{expand-opt\ 620}#
- (map syntax->datum #{req\ 774}#)
- #{opt\ 775}#
- #{rest\ 776}#
- #{kw\ 777}#
- #{body\ 778}#
- (reverse #{vars\ 786}#)
- #{r*\ 790}#
- #{w*\ 791}#
+ #{inits\ 11663}#)))))
+ (#{expand-req\ 11547}#
+ (lambda (#{req\ 11703}#
+ #{opt\ 11704}#
+ #{rest\ 11705}#
+ #{kw\ 11706}#
+ #{body\ 11707}#)
+ (let ((#{vars\ 11715}#
+ (map #{gen-var\ 11264}# #{req\ 11703}#))
+ (#{labels\ 11716}#
+ (#{gen-labels\ 11169}# #{req\ 11703}#)))
+ (let ((#{r*\ 11719}#
+ (#{extend-var-env\ 11141}#
+ #{labels\ 11716}#
+ #{vars\ 11715}#
+ #{r\ 11533}#))
+ (#{w*\ 11720}#
+ (#{make-binding-wrap\ 11198}#
+ #{req\ 11703}#
+ #{labels\ 11716}#
+ #{w\ 11534}#)))
+ (#{expand-opt\ 11549}#
+ (map syntax->datum #{req\ 11703}#)
+ #{opt\ 11704}#
+ #{rest\ 11705}#
+ #{kw\ 11706}#
+ #{body\ 11707}#
+ (reverse #{vars\ 11715}#)
+ #{r*\ 11719}#
+ #{w*\ 11720}#
'()
'()))))))
- ((lambda (#{tmp\ 792}#)
- ((lambda (#{tmp\ 793}#)
- (if #{tmp\ 793}#
+ ((lambda (#{tmp\ 11721}#)
+ ((lambda (#{tmp\ 11722}#)
+ (if #{tmp\ 11722}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 793}#)
- ((lambda (#{tmp\ 794}#)
- (if #{tmp\ 794}#
- (apply (lambda (#{args\ 801}#
- #{e1\ 802}#
- #{e2\ 803}#
- #{args*\ 804}#
- #{e1*\ 805}#
- #{e2*\ 806}#)
+ #{tmp\ 11722}#)
+ ((lambda (#{tmp\ 11723}#)
+ (if #{tmp\ 11723}#
+ (apply (lambda (#{args\ 11730}#
+ #{e1\ 11731}#
+ #{e2\ 11732}#
+ #{args*\ 11733}#
+ #{e1*\ 11734}#
+ #{e2*\ 11735}#)
(call-with-values
(lambda ()
- (#{get-formals\ 608}#
- #{args\ 801}#))
- (lambda (#{req\ 807}#
- #{opt\ 808}#
- #{rest\ 809}#
- #{kw\ 810}#)
+ (#{get-formals\ 11537}#
+ #{args\ 11730}#))
+ (lambda (#{req\ 11736}#
+ #{opt\ 11737}#
+ #{rest\ 11738}#
+ #{kw\ 11739}#)
(call-with-values
(lambda ()
- (#{expand-req\ 618}#
- #{req\ 807}#
- #{opt\ 808}#
- #{rest\ 809}#
- #{kw\ 810}#
- (cons #{e1\ 802}#
- #{e2\ 803}#)))
- (lambda (#{meta\ 816}#
- #{req\ 817}#
- #{opt\ 818}#
- #{rest\ 819}#
- #{kw\ 820}#
- #{inits\ 821}#
- #{vars\ 822}#
- #{body\ 823}#)
+ (#{expand-req\ 11547}#
+ #{req\ 11736}#
+ #{opt\ 11737}#
+ #{rest\ 11738}#
+ #{kw\ 11739}#
+ (cons #{e1\ 11731}#
+ #{e2\ 11732}#)))
+ (lambda (#{meta\ 11745}#
+ #{req\ 11746}#
+ #{opt\ 11747}#
+ #{rest\ 11748}#
+ #{kw\ 11749}#
+ #{inits\ 11750}#
+ #{vars\ 11751}#
+ #{body\ 11752}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 331}#
- #{e\ 603}#
- #{r\ 604}#
- #{w\ 605}#
- #{s\ 606}#
- #{mod\ 607}#
- #{get-formals\ 608}#
- (map (lambda (#{tmp\ 834}#
- #{tmp\ 833}#
- #{tmp\
832}#)
- (cons #{tmp\ 832}#
- (cons #{tmp\
833}#
- #{tmp\
834}#)))
- #{e2*\ 806}#
- #{e1*\ 805}#
- #{args*\ 804}#)))
- (lambda (#{meta*\ 836}#
- #{else*\ 837}#)
+ (#{chi-lambda-case\ 11260}#
+ #{e\ 11532}#
+ #{r\ 11533}#
+ #{w\ 11534}#
+ #{s\ 11535}#
+ #{mod\ 11536}#
+ #{get-formals\ 11537}#
+ (map (lambda (#{tmp\
11763}#
+ #{tmp\
11762}#
+ #{tmp\
11761}#)
+ (cons #{tmp\
11761}#
+ (cons #{tmp\
11762}#
+ #{tmp\
11763}#)))
+ #{e2*\ 11735}#
+ #{e1*\ 11734}#
+ #{args*\ 11733}#)))
+ (lambda (#{meta*\ 11765}#
+ #{else*\ 11766}#)
(values
(append
- #{meta\ 816}#
- #{meta*\ 836}#)
- (#{build-lambda-case\
168}#
- #{s\ 606}#
- #{req\ 817}#
- #{opt\ 818}#
- #{rest\ 819}#
- #{kw\ 820}#
- #{inits\ 821}#
- #{vars\ 822}#
- #{body\ 823}#
- #{else*\ 837}#)))))))))
- #{tmp\ 794}#)
+ #{meta\ 11745}#
+ #{meta*\ 11765}#)
+ (#{build-lambda-case\
11097}#
+ #{s\ 11535}#
+ #{req\ 11746}#
+ #{opt\ 11747}#
+ #{rest\ 11748}#
+ #{kw\ 11749}#
+ #{inits\ 11750}#
+ #{vars\ 11751}#
+ #{body\ 11752}#
+ #{else*\
11766}#)))))))))
+ #{tmp\ 11723}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 792}#)))
+ #{tmp\ 11721}#)))
($sc-dispatch
- #{tmp\ 792}#
+ #{tmp\ 11721}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 792}# (quote ()))))
- #{clauses\ 609}#))))
- (#{lambda*-formals\ 329}#
- (lambda (#{orig-args\ 840}#)
- (letrec ((#{check\ 851}#
- (lambda (#{req\ 852}#
- #{opt\ 853}#
- #{rest\ 854}#
- #{kw\ 855}#)
- (if (#{distinct-bound-ids?\ 287}#
+ ($sc-dispatch #{tmp\ 11721}# (quote ()))))
+ #{clauses\ 11538}#))))
+ (#{lambda*-formals\ 11258}#
+ (lambda (#{orig-args\ 11769}#)
+ (letrec ((#{check\ 11780}#
+ (lambda (#{req\ 11781}#
+ #{opt\ 11782}#
+ #{rest\ 11783}#
+ #{kw\ 11784}#)
+ (if (#{distinct-bound-ids?\ 11216}#
(append
- #{req\ 852}#
- (map car #{opt\ 853}#)
- (if #{rest\ 854}#
- (list #{rest\ 854}#)
+ #{req\ 11781}#
+ (map car #{opt\ 11782}#)
+ (if #{rest\ 11783}#
+ (list #{rest\ 11783}#)
'())
- (if (pair? #{kw\ 855}#)
- (map cadr (cdr #{kw\ 855}#))
+ (if (pair? #{kw\ 11784}#)
+ (map cadr (cdr #{kw\ 11784}#))
'())))
(values
- #{req\ 852}#
- #{opt\ 853}#
- #{rest\ 854}#
- #{kw\ 855}#)
+ #{req\ 11781}#
+ #{opt\ 11782}#
+ #{rest\ 11783}#
+ #{kw\ 11784}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 840}#))))
- (#{rest\ 849}#
- (lambda (#{args\ 863}#
- #{req\ 864}#
- #{opt\ 865}#
- #{kw\ 866}#)
- ((lambda (#{tmp\ 871}#)
- ((lambda (#{tmp\ 872}#)
- (if (if #{tmp\ 872}#
- (apply (lambda (#{r\ 874}#)
- (#{id?\ 222}# #{r\ 874}#))
- #{tmp\ 872}#)
+ #{orig-args\ 11769}#))))
+ (#{rest\ 11778}#
+ (lambda (#{args\ 11792}#
+ #{req\ 11793}#
+ #{opt\ 11794}#
+ #{kw\ 11795}#)
+ ((lambda (#{tmp\ 11800}#)
+ ((lambda (#{tmp\ 11801}#)
+ (if (if #{tmp\ 11801}#
+ (apply (lambda (#{r\ 11803}#)
+ (#{id?\ 11151}# #{r\ 11803}#))
+ #{tmp\ 11801}#)
#f)
- (apply (lambda (#{r\ 876}#)
- (#{check\ 851}#
- #{req\ 864}#
- #{opt\ 865}#
- #{r\ 876}#
- #{kw\ 866}#))
- #{tmp\ 872}#)
- ((lambda (#{else\ 878}#)
+ (apply (lambda (#{r\ 11805}#)
+ (#{check\ 11780}#
+ #{req\ 11793}#
+ #{opt\ 11794}#
+ #{r\ 11805}#
+ #{kw\ 11795}#))
+ #{tmp\ 11801}#)
+ ((lambda (#{else\ 11807}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 840}#
- #{args\ 863}#))
- #{tmp\ 871}#)))
- (list #{tmp\ 871}#)))
- #{args\ 863}#)))
- (#{key\ 847}#
- (lambda (#{args\ 879}#
- #{req\ 880}#
- #{opt\ 881}#
- #{rkey\ 882}#)
- ((lambda (#{tmp\ 887}#)
- ((lambda (#{tmp\ 888}#)
- (if #{tmp\ 888}#
+ #{orig-args\ 11769}#
+ #{args\ 11792}#))
+ #{tmp\ 11800}#)))
+ (list #{tmp\ 11800}#)))
+ #{args\ 11792}#)))
+ (#{key\ 11776}#
+ (lambda (#{args\ 11808}#
+ #{req\ 11809}#
+ #{opt\ 11810}#
+ #{rkey\ 11811}#)
+ ((lambda (#{tmp\ 11816}#)
+ ((lambda (#{tmp\ 11817}#)
+ (if #{tmp\ 11817}#
(apply (lambda ()
- (#{check\ 851}#
- #{req\ 880}#
- #{opt\ 881}#
+ (#{check\ 11780}#
+ #{req\ 11809}#
+ #{opt\ 11810}#
#f
(cons #f
- (reverse #{rkey\ 882}#))))
- #{tmp\ 888}#)
- ((lambda (#{tmp\ 889}#)
- (if (if #{tmp\ 889}#
- (apply (lambda (#{a\ 892}#
- #{b\ 893}#)
- (#{id?\ 222}#
- #{a\ 892}#))
- #{tmp\ 889}#)
+ (reverse
+ #{rkey\ 11811}#))))
+ #{tmp\ 11817}#)
+ ((lambda (#{tmp\ 11818}#)
+ (if (if #{tmp\ 11818}#
+ (apply (lambda (#{a\ 11821}#
+ #{b\ 11822}#)
+ (#{id?\ 11151}#
+ #{a\ 11821}#))
+ #{tmp\ 11818}#)
#f)
- (apply (lambda (#{a\ 896}# #{b\ 897}#)
- ((lambda (#{tmp\ 899}#)
- ((lambda (#{k\ 901}#)
- (#{key\ 847}#
- #{b\ 897}#
- #{req\ 880}#
- #{opt\ 881}#
- (cons (cons #{k\
901}#
- (cons
#{a\ 896}#
+ (apply (lambda (#{a\ 11825}#
+ #{b\ 11826}#)
+ ((lambda (#{tmp\ 11828}#)
+ ((lambda (#{k\ 11830}#)
+ (#{key\ 11776}#
+ #{b\ 11826}#
+ #{req\ 11809}#
+ #{opt\ 11810}#
+ (cons (cons #{k\
11830}#
+ (cons
#{a\ 11825}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
-
#("i900"))
+
#("i11829"))
#(ribcage
#(a
b)
#((top)
(top))
-
#("i894"
-
"i895"))
+
#("i11823"
+
"i11824"))
#(ribcage
()
()
@@ -646,10 +665,10 @@
(top)
(top)
(top))
-
#("i883"
-
"i884"
-
"i885"
-
"i886"))
+
#("i11812"
+
"i11813"
+
"i11814"
+
"i11815"))
#(ribcage
(check rest
key
@@ -660,15 +679,15 @@
(top)
(top)
(top))
-
("i850"
-
"i848"
-
"i846"
-
"i844"
-
"i842"))
+
("i11779"
+
"i11777"
+
"i11775"
+
"i11773"
+
"i11771"))
#(ribcage
#(orig-args)
#((top))
-
#("i841"))
+
#("i11770"))
#(ribcage
(lambda-var-list
gen-var
@@ -786,8 +805,7 @@
fx=
fx-
fx+
-
*mode*
-
noexpand)
+
*mode*)
((top)
(top)
(top)
@@ -904,352 +922,352 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i278"
-
"i276"
-
"i274"
-
"i272"
-
"i270"
-
"i268"
-
"i266"
-
"i265"
-
"i264"
-
"i262"
-
"i261"
-
"i260"
-
"i259"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i239"
-
"i237"
-
"i236"
-
"i235"
-
"i234"
-
"i233"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i208"
-
"i206"
-
"i204"
-
"i203"
-
"i202"
-
"i200"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"
-
"i169"
-
"i167"
-
"i165"
-
"i163"
-
"i161"
-
"i159"
-
"i157"
-
"i155"
-
"i153"
-
"i151"
-
"i149"
-
"i147"
-
"i145"
-
"i143"
-
"i141"
-
"i139"
-
"i137"
-
"i135"
-
"i134"
-
"i132"
-
"i130"
-
"i128"
-
"i126"
-
"i124"
-
"i122"
-
"i120"
-
"i118"))
+
("i11265"
+
"i11263"
+
"i11261"
+
"i11259"
+
"i11257"
+
"i11255"
+
"i11253"
+
"i11251"
+
"i11249"
+
"i11247"
+
"i11245"
+
"i11243"
+
"i11241"
+
"i11239"
+
"i11237"
+
"i11235"
+
"i11233"
+
"i11231"
+
"i11229"
+
"i11227"
+
"i11225"
+
"i11223"
+
"i11221"
+
"i11219"
+
"i11217"
+
"i11215"
+
"i11213"
+
"i11211"
+
"i11209"
+
"i11207"
+
"i11205"
+
"i11203"
+
"i11201"
+
"i11199"
+
"i11197"
+
"i11195"
+
"i11194"
+
"i11193"
+
"i11191"
+
"i11190"
+
"i11189"
+
"i11188"
+
"i11187"
+
"i11185"
+
"i11183"
+
"i11181"
+
"i11179"
+
"i11177"
+
"i11175"
+
"i11173"
+
"i11171"
+
"i11168"
+
"i11166"
+
"i11165"
+
"i11164"
+
"i11163"
+
"i11162"
+
"i11161"
+
"i11159"
+
"i11157"
+
"i11155"
+
"i11153"
+
"i11152"
+
"i11150"
+
"i11148"
+
"i11146"
+
"i11144"
+
"i11142"
+
"i11140"
+
"i11138"
+
"i11137"
+
"i11135"
+
"i11133"
+
"i11132"
+
"i11131"
+
"i11129"
+
"i11128"
+
"i11126"
+
"i11124"
+
"i11122"
+
"i11120"
+
"i11118"
+
"i11116"
+
"i11114"
+
"i11112"
+
"i11110"
+
"i11108"
+
"i11106"
+
"i11104"
+
"i11102"
+
"i11100"
+
"i11098"
+
"i11096"
+
"i11094"
+
"i11092"
+
"i11090"
+
"i11088"
+
"i11086"
+
"i11084"
+
"i11082"
+
"i11080"
+
"i11078"
+
"i11076"
+
"i11074"
+
"i11072"
+
"i11070"
+
"i11068"
+
"i11066"
+
"i11064"
+
"i11063"
+
"i11061"
+
"i11059"
+
"i11057"
+
"i11055"
+
"i11053"
+
"i11051"
+
"i11049"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i21"
-
"i19")))
+
("i10952"
+
"i10950")))
(hygiene
guile)))))
- #{rkey\
882}#)))
- #{tmp\ 899}#))
+ #{rkey\
11811}#)))
+ #{tmp\ 11828}#))
(symbol->keyword
(syntax->datum
- #{a\ 896}#))))
- #{tmp\ 889}#)
- ((lambda (#{tmp\ 902}#)
- (if (if #{tmp\ 902}#
- (apply (lambda (#{a\ 906}#
- #{init\ 907}#
- #{b\ 908}#)
- (#{id?\ 222}#
- #{a\ 906}#))
- #{tmp\ 902}#)
+ #{a\ 11825}#))))
+ #{tmp\ 11818}#)
+ ((lambda (#{tmp\ 11831}#)
+ (if (if #{tmp\ 11831}#
+ (apply (lambda (#{a\ 11835}#
+ #{init\
11836}#
+ #{b\ 11837}#)
+ (#{id?\ 11151}#
+ #{a\ 11835}#))
+ #{tmp\ 11831}#)
#f)
- (apply (lambda (#{a\ 912}#
- #{init\ 913}#
- #{b\ 914}#)
- ((lambda (#{tmp\ 916}#)
- ((lambda (#{k\ 918}#)
- (#{key\ 847}#
- #{b\ 914}#
- #{req\ 880}#
- #{opt\ 881}#
- (cons (list
#{k\ 918}#
-
#{a\ 912}#
-
#{init\ 913}#)
- #{rkey\
882}#)))
- #{tmp\ 916}#))
+ (apply (lambda (#{a\ 11841}#
+ #{init\ 11842}#
+ #{b\ 11843}#)
+ ((lambda (#{tmp\
11845}#)
+ ((lambda (#{k\
11847}#)
+ (#{key\ 11776}#
+ #{b\ 11843}#
+ #{req\ 11809}#
+ #{opt\ 11810}#
+ (cons (list
#{k\ 11847}#
+
#{a\ 11841}#
+
#{init\ 11842}#)
+ #{rkey\
11811}#)))
+ #{tmp\ 11845}#))
(symbol->keyword
(syntax->datum
- #{a\ 912}#))))
- #{tmp\ 902}#)
- ((lambda (#{tmp\ 919}#)
- (if (if #{tmp\ 919}#
- (apply (lambda (#{a\
924}#
- #{init\
925}#
- #{k\
926}#
- #{b\
927}#)
- (if (#{id?\
222}#
- #{a\
924}#)
+ #{a\ 11841}#))))
+ #{tmp\ 11831}#)
+ ((lambda (#{tmp\ 11848}#)
+ (if (if #{tmp\ 11848}#
+ (apply (lambda (#{a\
11853}#
+ #{init\
11854}#
+ #{k\
11855}#
+ #{b\
11856}#)
+ (if (#{id?\
11151}#
+ #{a\
11853}#)
(keyword?
(syntax->datum
- #{k\
926}#))
+ #{k\
11855}#))
#f))
- #{tmp\ 919}#)
+ #{tmp\ 11848}#)
#f)
- (apply (lambda (#{a\ 934}#
- #{init\
935}#
- #{k\ 936}#
- #{b\ 937}#)
- (#{key\ 847}#
- #{b\ 937}#
- #{req\ 880}#
- #{opt\ 881}#
- (cons (list #{k\
936}#
- #{a\
934}#
-
#{init\ 935}#)
- #{rkey\
882}#)))
- #{tmp\ 919}#)
- ((lambda (#{tmp\ 938}#)
- (if (if #{tmp\ 938}#
- (apply (lambda
(#{aok\ 940}#)
+ (apply (lambda (#{a\ 11863}#
+ #{init\
11864}#
+ #{k\ 11865}#
+ #{b\
11866}#)
+ (#{key\ 11776}#
+ #{b\ 11866}#
+ #{req\ 11809}#
+ #{opt\ 11810}#
+ (cons (list #{k\
11865}#
+ #{a\
11863}#
+
#{init\ 11864}#)
+ #{rkey\
11811}#)))
+ #{tmp\ 11848}#)
+ ((lambda (#{tmp\ 11867}#)
+ (if (if #{tmp\ 11867}#
+ (apply (lambda
(#{aok\ 11869}#)
(eq?
(syntax->datum
-
#{aok\ 940}#)
+
#{aok\ 11869}#)
#:allow-other-keys))
- #{tmp\
938}#)
+ #{tmp\
11867}#)
#f)
- (apply (lambda (#{aok\
942}#)
- (#{check\
851}#
- #{req\ 880}#
- #{opt\ 881}#
+ (apply (lambda (#{aok\
11871}#)
+ (#{check\
11780}#
+ #{req\
11809}#
+ #{opt\
11810}#
#f
(cons #t
(reverse
-
#{rkey\ 882}#))))
- #{tmp\ 938}#)
- ((lambda (#{tmp\ 943}#)
- (if (if #{tmp\ 943}#
- (apply
(lambda (#{aok\ 947}#
-
#{a\ 948}#
-
#{b\ 949}#)
+
#{rkey\ 11811}#))))
+ #{tmp\ 11867}#)
+ ((lambda (#{tmp\
11872}#)
+ (if (if #{tmp\
11872}#
+ (apply
(lambda (#{aok\ 11876}#
+
#{a\ 11877}#
+
#{b\ 11878}#)
(if
(eq? (syntax->datum
-
#{aok\ 947}#)
+
#{aok\ 11876}#)
#:allow-other-keys)
(eq? (syntax->datum
-
#{a\ 948}#)
+
#{a\ 11877}#)
#:rest)
#f))
- #{tmp\
943}#)
+ #{tmp\
11872}#)
#f)
- (apply (lambda
(#{aok\ 955}#
-
#{a\ 956}#
-
#{b\ 957}#)
- (#{rest\
849}#
- #{b\
957}#
- #{req\
880}#
- #{opt\
881}#
+ (apply (lambda
(#{aok\ 11884}#
+
#{a\ 11885}#
+
#{b\ 11886}#)
+ (#{rest\
11778}#
+ #{b\
11886}#
+ #{req\
11809}#
+ #{opt\
11810}#
(cons
#t
(reverse
-
#{rkey\ 882}#))))
- #{tmp\
943}#)
- ((lambda (#{tmp\
958}#)
- (if (if #{tmp\
958}#
- (apply
(lambda (#{aok\ 961}#
-
#{r\ 962}#)
+
#{rkey\ 11811}#))))
+ #{tmp\
11872}#)
+ ((lambda (#{tmp\
11887}#)
+ (if (if #{tmp\
11887}#
+ (apply
(lambda (#{aok\ 11890}#
+
#{r\ 11891}#)
(if (eq? (syntax->datum
-
#{aok\ 961}#)
+
#{aok\ 11890}#)
#:allow-other-keys)
-
(#{id?\ 222}#
-
#{r\ 962}#)
+
(#{id?\ 11151}#
+
#{r\ 11891}#)
#f))
-
#{tmp\ 958}#)
+
#{tmp\ 11887}#)
#f)
- (apply
(lambda (#{aok\ 967}#
-
#{r\ 968}#)
-
(#{rest\ 849}#
-
#{r\ 968}#
-
#{req\ 880}#
-
#{opt\ 881}#
+ (apply
(lambda (#{aok\ 11896}#
+
#{r\ 11897}#)
+
(#{rest\ 11778}#
+
#{r\ 11897}#
+
#{req\ 11809}#
+
#{opt\ 11810}#
(cons #t
(reverse
-
#{rkey\ 882}#))))
-
#{tmp\ 958}#)
- ((lambda
(#{tmp\ 969}#)
- (if (if
#{tmp\ 969}#
-
(apply (lambda (#{a\ 972}#
-
#{b\ 973}#)
+
#{rkey\ 11811}#))))
+
#{tmp\ 11887}#)
+ ((lambda
(#{tmp\ 11898}#)
+ (if (if
#{tmp\ 11898}#
+
(apply (lambda (#{a\ 11901}#
+
#{b\ 11902}#)
(eq? (syntax->datum
-
#{a\ 972}#)
+
#{a\ 11901}#)
#:rest))
-
#{tmp\ 969}#)
+
#{tmp\ 11898}#)
#f)
- (apply
(lambda (#{a\ 976}#
-
#{b\ 977}#)
-
(#{rest\ 849}#
-
#{b\ 977}#
-
#{req\ 880}#
-
#{opt\ 881}#
+ (apply
(lambda (#{a\ 11905}#
+
#{b\ 11906}#)
+
(#{rest\ 11778}#
+
#{b\ 11906}#
+
#{req\ 11809}#
+
#{opt\ 11810}#
(cons #f
(reverse
-
#{rkey\ 882}#))))
-
#{tmp\ 969}#)
-
((lambda (#{tmp\ 978}#)
- (if
(if #{tmp\ 978}#
-
(apply (lambda (#{r\ 980}#)
-
(#{id?\ 222}#
-
#{r\ 980}#))
-
#{tmp\ 978}#)
+
#{rkey\ 11811}#))))
+
#{tmp\ 11898}#)
+
((lambda (#{tmp\ 11907}#)
+ (if
(if #{tmp\ 11907}#
+
(apply (lambda (#{r\ 11909}#)
+
(#{id?\ 11151}#
+
#{r\ 11909}#))
+
#{tmp\ 11907}#)
#f)
-
(apply (lambda (#{r\ 982}#)
-
(#{rest\ 849}#
-
#{r\ 982}#
-
#{req\ 880}#
-
#{opt\ 881}#
+
(apply (lambda (#{r\ 11911}#)
+
(#{rest\ 11778}#
+
#{r\ 11911}#
+
#{req\ 11809}#
+
#{opt\ 11810}#
(cons #f
(reverse
-
#{rkey\ 882}#))))
-
#{tmp\ 978}#)
-
((lambda (#{else\ 984}#)
+
#{rkey\ 11811}#))))
+
#{tmp\ 11907}#)
+
((lambda (#{else\ 11913}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
-
#{orig-args\ 840}#
-
#{args\ 879}#))
-
#{tmp\ 887}#)))
- (list
#{tmp\ 887}#))))
+
#{orig-args\ 11769}#
+
#{args\ 11808}#))
+
#{tmp\ 11816}#)))
+ (list
#{tmp\ 11816}#))))
($sc-dispatch
- #{tmp\
887}#
+ #{tmp\
11816}#
'(any
any)))))
($sc-dispatch
- #{tmp\ 887}#
+ #{tmp\ 11816}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 887}#
+ #{tmp\ 11816}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 887}#
+ #{tmp\ 11816}#
'(any)))))
($sc-dispatch
- #{tmp\ 887}#
+ #{tmp\ 11816}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 887}#
+ #{tmp\ 11816}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 887}#
+ #{tmp\ 11816}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 887}# (quote ()))))
- #{args\ 879}#)))
- (#{opt\ 845}#
- (lambda (#{args\ 985}# #{req\ 986}# #{ropt\ 987}#)
- ((lambda (#{tmp\ 991}#)
- ((lambda (#{tmp\ 992}#)
- (if #{tmp\ 992}#
+ ($sc-dispatch #{tmp\ 11816}# (quote ()))))
+ #{args\ 11808}#)))
+ (#{opt\ 11774}#
+ (lambda (#{args\ 11914}#
+ #{req\ 11915}#
+ #{ropt\ 11916}#)
+ ((lambda (#{tmp\ 11920}#)
+ ((lambda (#{tmp\ 11921}#)
+ (if #{tmp\ 11921}#
(apply (lambda ()
- (#{check\ 851}#
- #{req\ 986}#
- (reverse #{ropt\ 987}#)
+ (#{check\ 11780}#
+ #{req\ 11915}#
+ (reverse #{ropt\ 11916}#)
#f
'()))
- #{tmp\ 992}#)
- ((lambda (#{tmp\ 993}#)
- (if (if #{tmp\ 993}#
- (apply (lambda (#{a\ 996}#
- #{b\ 997}#)
- (#{id?\ 222}#
- #{a\ 996}#))
- #{tmp\ 993}#)
+ #{tmp\ 11921}#)
+ ((lambda (#{tmp\ 11922}#)
+ (if (if #{tmp\ 11922}#
+ (apply (lambda (#{a\ 11925}#
+ #{b\ 11926}#)
+ (#{id?\ 11151}#
+ #{a\ 11925}#))
+ #{tmp\ 11922}#)
#f)
- (apply (lambda (#{a\ 1000}#
- #{b\ 1001}#)
- (#{opt\ 845}#
- #{b\ 1001}#
- #{req\ 986}#
- (cons (cons #{a\ 1000}#
+ (apply (lambda (#{a\ 11929}#
+ #{b\ 11930}#)
+ (#{opt\ 11774}#
+ #{b\ 11930}#
+ #{req\ 11915}#
+ (cons (cons #{a\ 11929}#
'(#(syntax-object
#f
((top)
@@ -1257,8 +1275,8 @@
#(a b)
#((top)
(top))
- #("i998"
-
"i999"))
+
#("i11927"
+
"i11928"))
#(ribcage
()
()
@@ -1270,9 +1288,9 @@
#((top)
(top)
(top))
- #("i988"
- "i989"
-
"i990"))
+
#("i11917"
+
"i11918"
+
"i11919"))
#(ribcage
(check
rest
key
@@ -1283,15 +1301,15 @@
(top)
(top)
(top))
- ("i850"
- "i848"
- "i846"
- "i844"
-
"i842"))
+
("i11779"
+
"i11777"
+
"i11775"
+
"i11773"
+
"i11771"))
#(ribcage
#(orig-args)
#((top))
-
#("i841"))
+
#("i11770"))
#(ribcage
(lambda-var-list
gen-var
@@ -1409,8 +1427,7 @@
fx=
fx-
fx+
- *mode*
-
noexpand)
+
*mode*)
((top)
(top)
(top)
@@ -1527,465 +1544,463 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
-
"i118"))
+
("i11265"
+
"i11263"
+
"i11261"
+
"i11259"
+
"i11257"
+
"i11255"
+
"i11253"
+
"i11251"
+
"i11249"
+
"i11247"
+
"i11245"
+
"i11243"
+
"i11241"
+
"i11239"
+
"i11237"
+
"i11235"
+
"i11233"
+
"i11231"
+
"i11229"
+
"i11227"
+
"i11225"
+
"i11223"
+
"i11221"
+
"i11219"
+
"i11217"
+
"i11215"
+
"i11213"
+
"i11211"
+
"i11209"
+
"i11207"
+
"i11205"
+
"i11203"
+
"i11201"
+
"i11199"
+
"i11197"
+
"i11195"
+
"i11194"
+
"i11193"
+
"i11191"
+
"i11190"
+
"i11189"
+
"i11188"
+
"i11187"
+
"i11185"
+
"i11183"
+
"i11181"
+
"i11179"
+
"i11177"
+
"i11175"
+
"i11173"
+
"i11171"
+
"i11168"
+
"i11166"
+
"i11165"
+
"i11164"
+
"i11163"
+
"i11162"
+
"i11161"
+
"i11159"
+
"i11157"
+
"i11155"
+
"i11153"
+
"i11152"
+
"i11150"
+
"i11148"
+
"i11146"
+
"i11144"
+
"i11142"
+
"i11140"
+
"i11138"
+
"i11137"
+
"i11135"
+
"i11133"
+
"i11132"
+
"i11131"
+
"i11129"
+
"i11128"
+
"i11126"
+
"i11124"
+
"i11122"
+
"i11120"
+
"i11118"
+
"i11116"
+
"i11114"
+
"i11112"
+
"i11110"
+
"i11108"
+
"i11106"
+
"i11104"
+
"i11102"
+
"i11100"
+
"i11098"
+
"i11096"
+
"i11094"
+
"i11092"
+
"i11090"
+
"i11088"
+
"i11086"
+
"i11084"
+
"i11082"
+
"i11080"
+
"i11078"
+
"i11076"
+
"i11074"
+
"i11072"
+
"i11070"
+
"i11068"
+
"i11066"
+
"i11064"
+
"i11063"
+
"i11061"
+
"i11059"
+
"i11057"
+
"i11055"
+
"i11053"
+
"i11051"
+
"i11049"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i21"
-
"i19")))
+
("i10952"
+
"i10950")))
(hygiene
guile))))
- #{ropt\ 987}#)))
- #{tmp\ 993}#)
- ((lambda (#{tmp\ 1002}#)
- (if (if #{tmp\ 1002}#
- (apply (lambda (#{a\ 1006}#
- #{init\
1007}#
- #{b\ 1008}#)
- (#{id?\ 222}#
- #{a\ 1006}#))
- #{tmp\ 1002}#)
+ #{ropt\ 11916}#)))
+ #{tmp\ 11922}#)
+ ((lambda (#{tmp\ 11931}#)
+ (if (if #{tmp\ 11931}#
+ (apply (lambda (#{a\ 11935}#
+ #{init\
11936}#
+ #{b\ 11937}#)
+ (#{id?\ 11151}#
+ #{a\ 11935}#))
+ #{tmp\ 11931}#)
#f)
- (apply (lambda (#{a\ 1012}#
- #{init\ 1013}#
- #{b\ 1014}#)
- (#{opt\ 845}#
- #{b\ 1014}#
- #{req\ 986}#
- (cons (list #{a\
1012}#
- #{init\
1013}#)
- #{ropt\ 987}#)))
- #{tmp\ 1002}#)
- ((lambda (#{tmp\ 1015}#)
- (if (if #{tmp\ 1015}#
- (apply (lambda (#{a\
1018}#
- #{b\
1019}#)
+ (apply (lambda (#{a\ 11941}#
+ #{init\ 11942}#
+ #{b\ 11943}#)
+ (#{opt\ 11774}#
+ #{b\ 11943}#
+ #{req\ 11915}#
+ (cons (list #{a\
11941}#
+ #{init\
11942}#)
+ #{ropt\
11916}#)))
+ #{tmp\ 11931}#)
+ ((lambda (#{tmp\ 11944}#)
+ (if (if #{tmp\ 11944}#
+ (apply (lambda (#{a\
11947}#
+ #{b\
11948}#)
(eq?
(syntax->datum
- #{a\
1018}#)
+ #{a\
11947}#)
#:key))
- #{tmp\ 1015}#)
+ #{tmp\ 11944}#)
#f)
- (apply (lambda (#{a\ 1022}#
- #{b\ 1023}#)
- (#{key\ 847}#
- #{b\ 1023}#
- #{req\ 986}#
+ (apply (lambda (#{a\ 11951}#
+ #{b\
11952}#)
+ (#{key\ 11776}#
+ #{b\ 11952}#
+ #{req\ 11915}#
(reverse
- #{ropt\ 987}#)
+ #{ropt\
11916}#)
'()))
- #{tmp\ 1015}#)
- ((lambda (#{tmp\ 1024}#)
- (if (if #{tmp\ 1024}#
- (apply (lambda
(#{a\ 1027}#
-
#{b\ 1028}#)
+ #{tmp\ 11944}#)
+ ((lambda (#{tmp\ 11953}#)
+ (if (if #{tmp\ 11953}#
+ (apply (lambda
(#{a\ 11956}#
+
#{b\ 11957}#)
(eq?
(syntax->datum
-
#{a\ 1027}#)
+
#{a\ 11956}#)
#:rest))
- #{tmp\
1024}#)
+ #{tmp\
11953}#)
#f)
- (apply (lambda (#{a\
1031}#
- #{b\
1032}#)
- (#{rest\ 849}#
- #{b\ 1032}#
- #{req\ 986}#
+ (apply (lambda (#{a\
11960}#
+ #{b\
11961}#)
+ (#{rest\
11778}#
+ #{b\ 11961}#
+ #{req\
11915}#
(reverse
- #{ropt\
987}#)
+ #{ropt\
11916}#)
'()))
- #{tmp\ 1024}#)
- ((lambda (#{tmp\
1033}#)
- (if (if #{tmp\
1033}#
- (apply
(lambda (#{r\ 1035}#)
-
(#{id?\ 222}#
-
#{r\ 1035}#))
- #{tmp\
1033}#)
+ #{tmp\ 11953}#)
+ ((lambda (#{tmp\
11962}#)
+ (if (if #{tmp\
11962}#
+ (apply
(lambda (#{r\ 11964}#)
+
(#{id?\ 11151}#
+
#{r\ 11964}#))
+ #{tmp\
11962}#)
#f)
- (apply (lambda
(#{r\ 1037}#)
- (#{rest\
849}#
- #{r\
1037}#
- #{req\
986}#
+ (apply (lambda
(#{r\ 11966}#)
+ (#{rest\
11778}#
+ #{r\
11966}#
+ #{req\
11915}#
(reverse
-
#{ropt\ 987}#)
+
#{ropt\ 11916}#)
'()))
- #{tmp\
1033}#)
- ((lambda (#{else\
1039}#)
+ #{tmp\
11962}#)
+ ((lambda (#{else\
11968}#)
(syntax-violation
'lambda*
"invalid
optional argument list"
- #{orig-args\
840}#
- #{args\
985}#))
- #{tmp\ 991}#)))
- (list #{tmp\ 991}#))))
+ #{orig-args\
11769}#
+ #{args\
11914}#))
+ #{tmp\ 11920}#)))
+ (list #{tmp\
11920}#))))
($sc-dispatch
- #{tmp\ 991}#
+ #{tmp\ 11920}#
'(any any)))))
($sc-dispatch
- #{tmp\ 991}#
+ #{tmp\ 11920}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 991}#
+ #{tmp\ 11920}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 991}#
+ #{tmp\ 11920}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 991}# (quote ()))))
- #{args\ 985}#)))
- (#{req\ 843}#
- (lambda (#{args\ 1040}# #{rreq\ 1041}#)
- ((lambda (#{tmp\ 1044}#)
- ((lambda (#{tmp\ 1045}#)
- (if #{tmp\ 1045}#
+ ($sc-dispatch #{tmp\ 11920}# (quote ()))))
+ #{args\ 11914}#)))
+ (#{req\ 11772}#
+ (lambda (#{args\ 11969}# #{rreq\ 11970}#)
+ ((lambda (#{tmp\ 11973}#)
+ ((lambda (#{tmp\ 11974}#)
+ (if #{tmp\ 11974}#
(apply (lambda ()
- (#{check\ 851}#
- (reverse #{rreq\ 1041}#)
+ (#{check\ 11780}#
+ (reverse #{rreq\ 11970}#)
'()
#f
'()))
- #{tmp\ 1045}#)
- ((lambda (#{tmp\ 1046}#)
- (if (if #{tmp\ 1046}#
- (apply (lambda (#{a\ 1049}#
- #{b\ 1050}#)
- (#{id?\ 222}#
- #{a\ 1049}#))
- #{tmp\ 1046}#)
+ #{tmp\ 11974}#)
+ ((lambda (#{tmp\ 11975}#)
+ (if (if #{tmp\ 11975}#
+ (apply (lambda (#{a\ 11978}#
+ #{b\ 11979}#)
+ (#{id?\ 11151}#
+ #{a\ 11978}#))
+ #{tmp\ 11975}#)
#f)
- (apply (lambda (#{a\ 1053}#
- #{b\ 1054}#)
- (#{req\ 843}#
- #{b\ 1054}#
- (cons #{a\ 1053}#
- #{rreq\ 1041}#)))
- #{tmp\ 1046}#)
- ((lambda (#{tmp\ 1055}#)
- (if (if #{tmp\ 1055}#
- (apply (lambda (#{a\ 1058}#
- #{b\ 1059}#)
+ (apply (lambda (#{a\ 11982}#
+ #{b\ 11983}#)
+ (#{req\ 11772}#
+ #{b\ 11983}#
+ (cons #{a\ 11982}#
+ #{rreq\ 11970}#)))
+ #{tmp\ 11975}#)
+ ((lambda (#{tmp\ 11984}#)
+ (if (if #{tmp\ 11984}#
+ (apply (lambda (#{a\ 11987}#
+ #{b\ 11988}#)
(eq? (syntax->datum
- #{a\ 1058}#)
+ #{a\ 11987}#)
#:optional))
- #{tmp\ 1055}#)
+ #{tmp\ 11984}#)
#f)
- (apply (lambda (#{a\ 1062}#
- #{b\ 1063}#)
- (#{opt\ 845}#
- #{b\ 1063}#
+ (apply (lambda (#{a\ 11991}#
+ #{b\ 11992}#)
+ (#{opt\ 11774}#
+ #{b\ 11992}#
(reverse
- #{rreq\ 1041}#)
+ #{rreq\ 11970}#)
'()))
- #{tmp\ 1055}#)
- ((lambda (#{tmp\ 1064}#)
- (if (if #{tmp\ 1064}#
- (apply (lambda (#{a\
1067}#
- #{b\
1068}#)
+ #{tmp\ 11984}#)
+ ((lambda (#{tmp\ 11993}#)
+ (if (if #{tmp\ 11993}#
+ (apply (lambda (#{a\
11996}#
+ #{b\
11997}#)
(eq?
(syntax->datum
- #{a\
1067}#)
+ #{a\
11996}#)
#:key))
- #{tmp\ 1064}#)
+ #{tmp\ 11993}#)
#f)
- (apply (lambda (#{a\ 1071}#
- #{b\ 1072}#)
- (#{key\ 847}#
- #{b\ 1072}#
+ (apply (lambda (#{a\ 12000}#
+ #{b\
12001}#)
+ (#{key\ 11776}#
+ #{b\ 12001}#
(reverse
- #{rreq\ 1041}#)
+ #{rreq\
11970}#)
'()
'()))
- #{tmp\ 1064}#)
- ((lambda (#{tmp\ 1073}#)
- (if (if #{tmp\ 1073}#
- (apply (lambda
(#{a\ 1076}#
-
#{b\ 1077}#)
+ #{tmp\ 11993}#)
+ ((lambda (#{tmp\ 12002}#)
+ (if (if #{tmp\ 12002}#
+ (apply (lambda
(#{a\ 12005}#
+
#{b\ 12006}#)
(eq?
(syntax->datum
-
#{a\ 1076}#)
+
#{a\ 12005}#)
#:rest))
- #{tmp\
1073}#)
+ #{tmp\
12002}#)
#f)
- (apply (lambda (#{a\
1080}#
- #{b\
1081}#)
- (#{rest\ 849}#
- #{b\ 1081}#
+ (apply (lambda (#{a\
12009}#
+ #{b\
12010}#)
+ (#{rest\
11778}#
+ #{b\ 12010}#
(reverse
- #{rreq\
1041}#)
+ #{rreq\
11970}#)
'()
'()))
- #{tmp\ 1073}#)
- ((lambda (#{tmp\
1082}#)
- (if (if #{tmp\
1082}#
- (apply
(lambda (#{r\ 1084}#)
-
(#{id?\ 222}#
-
#{r\ 1084}#))
- #{tmp\
1082}#)
+ #{tmp\ 12002}#)
+ ((lambda (#{tmp\
12011}#)
+ (if (if #{tmp\
12011}#
+ (apply
(lambda (#{r\ 12013}#)
+
(#{id?\ 11151}#
+
#{r\ 12013}#))
+ #{tmp\
12011}#)
#f)
- (apply (lambda
(#{r\ 1086}#)
- (#{rest\
849}#
- #{r\
1086}#
+ (apply (lambda
(#{r\ 12015}#)
+ (#{rest\
11778}#
+ #{r\
12015}#
(reverse
-
#{rreq\ 1041}#)
+
#{rreq\ 11970}#)
'()
'()))
- #{tmp\
1082}#)
- ((lambda (#{else\
1088}#)
+ #{tmp\
12011}#)
+ ((lambda (#{else\
12017}#)
(syntax-violation
'lambda*
"invalid
argument list"
- #{orig-args\
840}#
- #{args\
1040}#))
- #{tmp\ 1044}#)))
- (list #{tmp\
1044}#))))
+ #{orig-args\
11769}#
+ #{args\
11969}#))
+ #{tmp\ 11973}#)))
+ (list #{tmp\
11973}#))))
($sc-dispatch
- #{tmp\ 1044}#
+ #{tmp\ 11973}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1044}#
+ #{tmp\ 11973}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1044}#
+ #{tmp\ 11973}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1044}#
+ #{tmp\ 11973}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1044}# (quote ()))))
- #{args\ 1040}#))))
- (#{req\ 843}# #{orig-args\ 840}# (quote ())))))
- (#{chi-simple-lambda\ 327}#
- (lambda (#{e\ 1089}#
- #{r\ 1090}#
- #{w\ 1091}#
- #{s\ 1092}#
- #{mod\ 1093}#
- #{req\ 1094}#
- #{rest\ 1095}#
- #{meta\ 1096}#
- #{body\ 1097}#)
- (let ((#{ids\ 1109}#
- (if #{rest\ 1095}#
- (append #{req\ 1094}# (list #{rest\ 1095}#))
- #{req\ 1094}#)))
- (let ((#{vars\ 1111}#
- (map #{gen-var\ 335}# #{ids\ 1109}#)))
- (let ((#{labels\ 1113}#
- (#{gen-labels\ 240}# #{ids\ 1109}#)))
- (#{build-simple-lambda\ 164}#
- #{s\ 1092}#
- (map syntax->datum #{req\ 1094}#)
- (if #{rest\ 1095}#
- (syntax->datum #{rest\ 1095}#)
+ ($sc-dispatch #{tmp\ 11973}# (quote ()))))
+ #{args\ 11969}#))))
+ (#{req\ 11772}# #{orig-args\ 11769}# (quote ())))))
+ (#{chi-simple-lambda\ 11256}#
+ (lambda (#{e\ 12018}#
+ #{r\ 12019}#
+ #{w\ 12020}#
+ #{s\ 12021}#
+ #{mod\ 12022}#
+ #{req\ 12023}#
+ #{rest\ 12024}#
+ #{meta\ 12025}#
+ #{body\ 12026}#)
+ (let ((#{ids\ 12038}#
+ (if #{rest\ 12024}#
+ (append #{req\ 12023}# (list #{rest\ 12024}#))
+ #{req\ 12023}#)))
+ (let ((#{vars\ 12040}#
+ (map #{gen-var\ 11264}# #{ids\ 12038}#)))
+ (let ((#{labels\ 12042}#
+ (#{gen-labels\ 11169}# #{ids\ 12038}#)))
+ (#{build-simple-lambda\ 11093}#
+ #{s\ 12021}#
+ (map syntax->datum #{req\ 12023}#)
+ (if #{rest\ 12024}#
+ (syntax->datum #{rest\ 12024}#)
#f)
- #{vars\ 1111}#
- #{meta\ 1096}#
- (#{chi-body\ 315}#
- #{body\ 1097}#
- (#{source-wrap\ 293}#
- #{e\ 1089}#
- #{w\ 1091}#
- #{s\ 1092}#
- #{mod\ 1093}#)
- (#{extend-var-env\ 212}#
- #{labels\ 1113}#
- #{vars\ 1111}#
- #{r\ 1090}#)
- (#{make-binding-wrap\ 269}#
- #{ids\ 1109}#
- #{labels\ 1113}#
- #{w\ 1091}#)
- #{mod\ 1093}#)))))))
- (#{lambda-formals\ 325}#
- (lambda (#{orig-args\ 1116}#)
- (letrec ((#{check\ 1121}#
- (lambda (#{req\ 1122}# #{rest\ 1123}#)
- (if (#{distinct-bound-ids?\ 287}#
- (if #{rest\ 1123}#
- (cons #{rest\ 1123}# #{req\ 1122}#)
- #{req\ 1122}#))
- (values #{req\ 1122}# #f #{rest\ 1123}# #f)
+ #{vars\ 12040}#
+ #{meta\ 12025}#
+ (#{chi-body\ 11244}#
+ #{body\ 12026}#
+ (#{source-wrap\ 11222}#
+ #{e\ 12018}#
+ #{w\ 12020}#
+ #{s\ 12021}#
+ #{mod\ 12022}#)
+ (#{extend-var-env\ 11141}#
+ #{labels\ 12042}#
+ #{vars\ 12040}#
+ #{r\ 12019}#)
+ (#{make-binding-wrap\ 11198}#
+ #{ids\ 12038}#
+ #{labels\ 12042}#
+ #{w\ 12020}#)
+ #{mod\ 12022}#)))))))
+ (#{lambda-formals\ 11254}#
+ (lambda (#{orig-args\ 12045}#)
+ (letrec ((#{check\ 12050}#
+ (lambda (#{req\ 12051}# #{rest\ 12052}#)
+ (if (#{distinct-bound-ids?\ 11216}#
+ (if #{rest\ 12052}#
+ (cons #{rest\ 12052}# #{req\ 12051}#)
+ #{req\ 12051}#))
+ (values #{req\ 12051}# #f #{rest\ 12052}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 1116}#))))
- (#{req\ 1119}#
- (lambda (#{args\ 1129}# #{rreq\ 1130}#)
- ((lambda (#{tmp\ 1133}#)
- ((lambda (#{tmp\ 1134}#)
- (if #{tmp\ 1134}#
+ #{orig-args\ 12045}#))))
+ (#{req\ 12048}#
+ (lambda (#{args\ 12058}# #{rreq\ 12059}#)
+ ((lambda (#{tmp\ 12062}#)
+ ((lambda (#{tmp\ 12063}#)
+ (if #{tmp\ 12063}#
(apply (lambda ()
- (#{check\ 1121}#
- (reverse #{rreq\ 1130}#)
+ (#{check\ 12050}#
+ (reverse #{rreq\ 12059}#)
#f))
- #{tmp\ 1134}#)
- ((lambda (#{tmp\ 1135}#)
- (if (if #{tmp\ 1135}#
- (apply (lambda (#{a\ 1138}#
- #{b\ 1139}#)
- (#{id?\ 222}#
- #{a\ 1138}#))
- #{tmp\ 1135}#)
+ #{tmp\ 12063}#)
+ ((lambda (#{tmp\ 12064}#)
+ (if (if #{tmp\ 12064}#
+ (apply (lambda (#{a\ 12067}#
+ #{b\ 12068}#)
+ (#{id?\ 11151}#
+ #{a\ 12067}#))
+ #{tmp\ 12064}#)
#f)
- (apply (lambda (#{a\ 1142}#
- #{b\ 1143}#)
- (#{req\ 1119}#
- #{b\ 1143}#
- (cons #{a\ 1142}#
- #{rreq\ 1130}#)))
- #{tmp\ 1135}#)
- ((lambda (#{tmp\ 1144}#)
- (if (if #{tmp\ 1144}#
- (apply (lambda (#{r\ 1146}#)
- (#{id?\ 222}#
- #{r\ 1146}#))
- #{tmp\ 1144}#)
+ (apply (lambda (#{a\ 12071}#
+ #{b\ 12072}#)
+ (#{req\ 12048}#
+ #{b\ 12072}#
+ (cons #{a\ 12071}#
+ #{rreq\ 12059}#)))
+ #{tmp\ 12064}#)
+ ((lambda (#{tmp\ 12073}#)
+ (if (if #{tmp\ 12073}#
+ (apply (lambda (#{r\ 12075}#)
+ (#{id?\ 11151}#
+ #{r\ 12075}#))
+ #{tmp\ 12073}#)
#f)
- (apply (lambda (#{r\ 1148}#)
- (#{check\ 1121}#
+ (apply (lambda (#{r\ 12077}#)
+ (#{check\ 12050}#
(reverse
- #{rreq\ 1130}#)
- #{r\ 1148}#))
- #{tmp\ 1144}#)
- ((lambda (#{else\ 1150}#)
+ #{rreq\ 12059}#)
+ #{r\ 12077}#))
+ #{tmp\ 12073}#)
+ ((lambda (#{else\ 12079}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 1116}#
- #{args\ 1129}#))
- #{tmp\ 1133}#)))
- (list #{tmp\ 1133}#))))
+ #{orig-args\ 12045}#
+ #{args\ 12058}#))
+ #{tmp\ 12062}#)))
+ (list #{tmp\ 12062}#))))
($sc-dispatch
- #{tmp\ 1133}#
+ #{tmp\ 12062}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1133}# (quote ()))))
- #{args\ 1129}#))))
- (#{req\ 1119}# #{orig-args\ 1116}# (quote ())))))
- (#{ellipsis?\ 323}#
- (lambda (#{x\ 1151}#)
- (if (#{nonsymbol-id?\ 220}# #{x\ 1151}#)
- (#{free-id=?\ 281}#
- #{x\ 1151}#
+ ($sc-dispatch #{tmp\ 12062}# (quote ()))))
+ #{args\ 12058}#))))
+ (#{req\ 12048}# #{orig-args\ 12045}# (quote ())))))
+ (#{ellipsis?\ 11252}#
+ (lambda (#{x\ 12080}#)
+ (if (#{nonsymbol-id?\ 11149}# #{x\ 12080}#)
+ (#{free-id=?\ 11210}#
+ #{x\ 12080}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1152"))
+ #(ribcage #(x) #((top)) #("i12081"))
#(ribcage
(lambda-var-list
gen-var
@@ -2103,8 +2118,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -2221,1414 +2235,1422 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952" "i10950")))
(hygiene guile)))
#f)))
- (#{chi-void\ 321}#
- (lambda () (#{build-void\ 142}# #f)))
- (#{eval-local-transformer\ 319}#
- (lambda (#{expanded\ 1156}# #{mod\ 1157}#)
- (let ((#{p\ 1161}#
- (#{local-eval-hook\ 133}#
- #{expanded\ 1156}#
- #{mod\ 1157}#)))
- (if (procedure? #{p\ 1161}#)
- (cons #{p\ 1161}# (module-name (current-module)))
+ (#{chi-void\ 11250}#
+ (lambda () (#{build-void\ 11071}# #f)))
+ (#{eval-local-transformer\ 11248}#
+ (lambda (#{expanded\ 12085}# #{mod\ 12086}#)
+ (let ((#{p\ 12090}#
+ (#{local-eval-hook\ 11062}#
+ #{expanded\ 12085}#
+ #{mod\ 12086}#)))
+ (if (procedure? #{p\ 12090}#)
+ (cons #{p\ 12090}#
+ (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 1161}#)))))
- (#{chi-local-syntax\ 317}#
- (lambda (#{rec?\ 1162}#
- #{e\ 1163}#
- #{r\ 1164}#
- #{w\ 1165}#
- #{s\ 1166}#
- #{mod\ 1167}#
- #{k\ 1168}#)
- ((lambda (#{tmp\ 1176}#)
- ((lambda (#{tmp\ 1177}#)
- (if #{tmp\ 1177}#
- (apply (lambda (#{_\ 1183}#
- #{id\ 1184}#
- #{val\ 1185}#
- #{e1\ 1186}#
- #{e2\ 1187}#)
- (let ((#{ids\ 1189}# #{id\ 1184}#))
- (if (not (#{valid-bound-ids?\ 285}#
- #{ids\ 1189}#))
+ #{p\ 12090}#)))))
+ (#{chi-local-syntax\ 11246}#
+ (lambda (#{rec?\ 12091}#
+ #{e\ 12092}#
+ #{r\ 12093}#
+ #{w\ 12094}#
+ #{s\ 12095}#
+ #{mod\ 12096}#
+ #{k\ 12097}#)
+ ((lambda (#{tmp\ 12105}#)
+ ((lambda (#{tmp\ 12106}#)
+ (if #{tmp\ 12106}#
+ (apply (lambda (#{_\ 12112}#
+ #{id\ 12113}#
+ #{val\ 12114}#
+ #{e1\ 12115}#
+ #{e2\ 12116}#)
+ (let ((#{ids\ 12118}# #{id\ 12113}#))
+ (if (not (#{valid-bound-ids?\ 11214}#
+ #{ids\ 12118}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 1163}#)
- (let ((#{labels\ 1192}#
- (#{gen-labels\ 240}#
- #{ids\ 1189}#)))
- (let ((#{new-w\ 1194}#
- (#{make-binding-wrap\ 269}#
- #{ids\ 1189}#
- #{labels\ 1192}#
- #{w\ 1165}#)))
- (#{k\ 1168}#
- (cons #{e1\ 1186}# #{e2\ 1187}#)
- (#{extend-env\ 210}#
- #{labels\ 1192}#
- (let ((#{w\ 1198}#
- (if #{rec?\ 1162}#
- #{new-w\ 1194}#
- #{w\ 1165}#))
- (#{trans-r\ 1199}#
- (#{macros-only-env\ 214}#
- #{r\ 1164}#)))
- (map (lambda (#{x\ 1200}#)
+ #{e\ 12092}#)
+ (let ((#{labels\ 12121}#
+ (#{gen-labels\ 11169}#
+ #{ids\ 12118}#)))
+ (let ((#{new-w\ 12123}#
+ (#{make-binding-wrap\ 11198}#
+ #{ids\ 12118}#
+ #{labels\ 12121}#
+ #{w\ 12094}#)))
+ (#{k\ 12097}#
+ (cons #{e1\ 12115}# #{e2\ 12116}#)
+ (#{extend-env\ 11139}#
+ #{labels\ 12121}#
+ (let ((#{w\ 12127}#
+ (if #{rec?\ 12091}#
+ #{new-w\ 12123}#
+ #{w\ 12094}#))
+ (#{trans-r\ 12128}#
+ (#{macros-only-env\ 11143}#
+ #{r\ 12093}#)))
+ (map (lambda (#{x\ 12129}#)
(cons 'macro
-
(#{eval-local-transformer\ 319}#
- (#{chi\ 307}#
- #{x\ 1200}#
- #{trans-r\
1199}#
- #{w\ 1198}#
- #{mod\ 1167}#)
- #{mod\ 1167}#)))
- #{val\ 1185}#))
- #{r\ 1164}#)
- #{new-w\ 1194}#
- #{s\ 1166}#
- #{mod\ 1167}#))))))
- #{tmp\ 1177}#)
- ((lambda (#{_\ 1205}#)
+
(#{eval-local-transformer\ 11248}#
+ (#{chi\ 11236}#
+ #{x\ 12129}#
+ #{trans-r\
12128}#
+ #{w\ 12127}#
+ #{mod\ 12096}#)
+ #{mod\ 12096}#)))
+ #{val\ 12114}#))
+ #{r\ 12093}#)
+ #{new-w\ 12123}#
+ #{s\ 12095}#
+ #{mod\ 12096}#))))))
+ #{tmp\ 12106}#)
+ ((lambda (#{_\ 12134}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 293}#
- #{e\ 1163}#
- #{w\ 1165}#
- #{s\ 1166}#
- #{mod\ 1167}#)))
- #{tmp\ 1176}#)))
+ (#{source-wrap\ 11222}#
+ #{e\ 12092}#
+ #{w\ 12094}#
+ #{s\ 12095}#
+ #{mod\ 12096}#)))
+ #{tmp\ 12105}#)))
($sc-dispatch
- #{tmp\ 1176}#
+ #{tmp\ 12105}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1163}#)))
- (#{chi-body\ 315}#
- (lambda (#{body\ 1206}#
- #{outer-form\ 1207}#
- #{r\ 1208}#
- #{w\ 1209}#
- #{mod\ 1210}#)
- (let ((#{r\ 1218}#
+ #{e\ 12092}#)))
+ (#{chi-body\ 11244}#
+ (lambda (#{body\ 12135}#
+ #{outer-form\ 12136}#
+ #{r\ 12137}#
+ #{w\ 12138}#
+ #{mod\ 12139}#)
+ (let ((#{r\ 12147}#
(cons '("placeholder" placeholder)
- #{r\ 1208}#)))
- (let ((#{ribcage\ 1220}#
- (#{make-ribcage\ 243}#
+ #{r\ 12137}#)))
+ (let ((#{ribcage\ 12149}#
+ (#{make-ribcage\ 11172}#
'()
'()
'())))
- (let ((#{w\ 1223}#
- (#{make-wrap\ 227}#
- (#{wrap-marks\ 229}# #{w\ 1209}#)
- (cons #{ribcage\ 1220}#
- (#{wrap-subst\ 231}# #{w\ 1209}#)))))
- (letrec ((#{parse\ 1232}#
- (lambda (#{body\ 1233}#
- #{ids\ 1234}#
- #{labels\ 1235}#
- #{var-ids\ 1236}#
- #{vars\ 1237}#
- #{vals\ 1238}#
- #{bindings\ 1239}#)
- (if (null? #{body\ 1233}#)
+ (let ((#{w\ 12152}#
+ (#{make-wrap\ 11156}#
+ (#{wrap-marks\ 11158}# #{w\ 12138}#)
+ (cons #{ribcage\ 12149}#
+ (#{wrap-subst\ 11160}# #{w\ 12138}#)))))
+ (letrec ((#{parse\ 12161}#
+ (lambda (#{body\ 12162}#
+ #{ids\ 12163}#
+ #{labels\ 12164}#
+ #{var-ids\ 12165}#
+ #{vars\ 12166}#
+ #{vals\ 12167}#
+ #{bindings\ 12168}#)
+ (if (null? #{body\ 12162}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1207}#)
- (let ((#{e\ 1244}# (cdar #{body\ 1233}#))
- (#{er\ 1245}# (caar #{body\ 1233}#)))
+ #{outer-form\ 12136}#)
+ (let ((#{e\ 12173}# (cdar #{body\ 12162}#))
+ (#{er\ 12174}#
+ (caar #{body\ 12162}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 303}#
- #{e\ 1244}#
- #{er\ 1245}#
+ (#{syntax-type\ 11232}#
+ #{e\ 12173}#
+ #{er\ 12174}#
'(())
- (#{source-annotation\ 201}#
- #{er\ 1245}#)
- #{ribcage\ 1220}#
- #{mod\ 1210}#
+ (#{source-annotation\ 11130}#
+ #{er\ 12174}#)
+ #{ribcage\ 12149}#
+ #{mod\ 12139}#
#f))
- (lambda (#{type\ 1247}#
- #{value\ 1248}#
- #{e\ 1249}#
- #{w\ 1250}#
- #{s\ 1251}#
- #{mod\ 1252}#)
- (if (memv #{type\ 1247}#
+ (lambda (#{type\ 12176}#
+ #{value\ 12177}#
+ #{e\ 12178}#
+ #{w\ 12179}#
+ #{s\ 12180}#
+ #{mod\ 12181}#)
+ (if (memv #{type\ 12176}#
'(define-form))
- (let ((#{id\ 1262}#
- (#{wrap\ 291}#
- #{value\ 1248}#
- #{w\ 1250}#
- #{mod\ 1252}#))
- (#{label\ 1263}#
- (#{gen-label\ 238}#)))
- (let ((#{var\ 1265}#
- (#{gen-var\ 335}#
- #{id\ 1262}#)))
+ (let ((#{id\ 12191}#
+ (#{wrap\ 11220}#
+ #{value\ 12177}#
+ #{w\ 12179}#
+ #{mod\ 12181}#))
+ (#{label\ 12192}#
+ (#{gen-label\ 11167}#)))
+ (let ((#{var\ 12194}#
+ (#{gen-var\ 11264}#
+ #{id\ 12191}#)))
(begin
- (#{extend-ribcage!\ 267}#
- #{ribcage\ 1220}#
- #{id\ 1262}#
- #{label\ 1263}#)
- (#{parse\ 1232}#
- (cdr #{body\ 1233}#)
- (cons #{id\ 1262}#
- #{ids\ 1234}#)
- (cons #{label\ 1263}#
- #{labels\ 1235}#)
- (cons #{id\ 1262}#
- #{var-ids\ 1236}#)
- (cons #{var\ 1265}#
- #{vars\ 1237}#)
- (cons (cons #{er\ 1245}#
- (#{wrap\ 291}#
- #{e\ 1249}#
- #{w\ 1250}#
- #{mod\
1252}#))
- #{vals\ 1238}#)
+ (#{extend-ribcage!\ 11196}#
+ #{ribcage\ 12149}#
+ #{id\ 12191}#
+ #{label\ 12192}#)
+ (#{parse\ 12161}#
+ (cdr #{body\ 12162}#)
+ (cons #{id\ 12191}#
+ #{ids\ 12163}#)
+ (cons #{label\ 12192}#
+ #{labels\ 12164}#)
+ (cons #{id\ 12191}#
+ #{var-ids\ 12165}#)
+ (cons #{var\ 12194}#
+ #{vars\ 12166}#)
+ (cons (cons #{er\ 12174}#
+ (#{wrap\
11220}#
+ #{e\ 12178}#
+ #{w\ 12179}#
+ #{mod\
12181}#))
+ #{vals\ 12167}#)
(cons (cons 'lexical
- #{var\ 1265}#)
- #{bindings\
1239}#)))))
- (if (memv #{type\ 1247}#
+ #{var\ 12194}#)
+ #{bindings\
12168}#)))))
+ (if (memv #{type\ 12176}#
'(define-syntax-form))
- (let ((#{id\ 1270}#
- (#{wrap\ 291}#
- #{value\ 1248}#
- #{w\ 1250}#
- #{mod\ 1252}#))
- (#{label\ 1271}#
- (#{gen-label\ 238}#)))
+ (let ((#{id\ 12199}#
+ (#{wrap\ 11220}#
+ #{value\ 12177}#
+ #{w\ 12179}#
+ #{mod\ 12181}#))
+ (#{label\ 12200}#
+ (#{gen-label\ 11167}#)))
(begin
- (#{extend-ribcage!\ 267}#
- #{ribcage\ 1220}#
- #{id\ 1270}#
- #{label\ 1271}#)
- (#{parse\ 1232}#
- (cdr #{body\ 1233}#)
- (cons #{id\ 1270}#
- #{ids\ 1234}#)
- (cons #{label\ 1271}#
- #{labels\ 1235}#)
- #{var-ids\ 1236}#
- #{vars\ 1237}#
- #{vals\ 1238}#
+ (#{extend-ribcage!\ 11196}#
+ #{ribcage\ 12149}#
+ #{id\ 12199}#
+ #{label\ 12200}#)
+ (#{parse\ 12161}#
+ (cdr #{body\ 12162}#)
+ (cons #{id\ 12199}#
+ #{ids\ 12163}#)
+ (cons #{label\ 12200}#
+ #{labels\ 12164}#)
+ #{var-ids\ 12165}#
+ #{vars\ 12166}#
+ #{vals\ 12167}#
(cons (cons 'macro
- (cons #{er\
1245}#
- (#{wrap\
291}#
- #{e\
1249}#
- #{w\
1250}#
- #{mod\
1252}#)))
- #{bindings\
1239}#))))
- (if (memv #{type\ 1247}#
+ (cons #{er\
12174}#
+ (#{wrap\
11220}#
+ #{e\
12178}#
+ #{w\
12179}#
+ #{mod\
12181}#)))
+ #{bindings\
12168}#))))
+ (if (memv #{type\ 12176}#
'(begin-form))
- ((lambda (#{tmp\ 1274}#)
- ((lambda (#{tmp\ 1275}#)
- (if #{tmp\ 1275}#
- (apply (lambda (#{_\
1278}#
- #{e1\
1279}#)
- (#{parse\
1232}#
- (letrec
((#{f\ 1282}#
-
(lambda (#{forms\ 1283}#)
-
(if (null? #{forms\ 1283}#)
-
(cdr #{body\ 1233}#)
-
(cons (cons #{er\ 1245}#
-
(#{wrap\ 291}#
-
(car #{forms\ 1283}#)
-
#{w\ 1250}#
-
#{mod\ 1252}#))
-
(#{f\ 1282}#
-
(cdr #{forms\ 1283}#)))))))
- (#{f\
1282}#
- #{e1\
1279}#))
- #{ids\
1234}#
- #{labels\
1235}#
- #{var-ids\
1236}#
- #{vars\
1237}#
- #{vals\
1238}#
- #{bindings\
1239}#))
- #{tmp\ 1275}#)
+ ((lambda (#{tmp\ 12203}#)
+ ((lambda (#{tmp\ 12204}#)
+ (if #{tmp\ 12204}#
+ (apply (lambda (#{_\
12207}#
+ #{e1\
12208}#)
+ (#{parse\
12161}#
+ (letrec
((#{f\ 12211}#
+
(lambda (#{forms\ 12212}#)
+
(if (null? #{forms\ 12212}#)
+
(cdr #{body\ 12162}#)
+
(cons (cons #{er\ 12174}#
+
(#{wrap\ 11220}#
+
(car #{forms\ 12212}#)
+
#{w\ 12179}#
+
#{mod\ 12181}#))
+
(#{f\ 12211}#
+
(cdr #{forms\ 12212}#)))))))
+ (#{f\
12211}#
+ #{e1\
12208}#))
+ #{ids\
12163}#
+ #{labels\
12164}#
+ #{var-ids\
12165}#
+ #{vars\
12166}#
+ #{vals\
12167}#
+ #{bindings\
12168}#))
+ #{tmp\ 12204}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1274}#)))
+ #{tmp\ 12203}#)))
($sc-dispatch
- #{tmp\ 1274}#
+ #{tmp\ 12203}#
'(any . each-any))))
- #{e\ 1249}#)
- (if (memv #{type\ 1247}#
+ #{e\ 12178}#)
+ (if (memv #{type\ 12176}#
'(local-syntax-form))
- (#{chi-local-syntax\ 317}#
- #{value\ 1248}#
- #{e\ 1249}#
- #{er\ 1245}#
- #{w\ 1250}#
- #{s\ 1251}#
- #{mod\ 1252}#
- (lambda (#{forms\ 1286}#
- #{er\ 1287}#
- #{w\ 1288}#
- #{s\ 1289}#
- #{mod\ 1290}#)
- (#{parse\ 1232}#
- (letrec ((#{f\ 1298}#
- (lambda
(#{forms\ 1299}#)
- (if
(null? #{forms\ 1299}#)
- (cdr
#{body\ 1233}#)
- (cons
(cons #{er\ 1287}#
-
(#{wrap\ 291}#
-
(car #{forms\ 1299}#)
-
#{w\ 1288}#
-
#{mod\ 1290}#))
-
(#{f\ 1298}#
-
(cdr #{forms\ 1299}#)))))))
- (#{f\ 1298}#
- #{forms\ 1286}#))
- #{ids\ 1234}#
- #{labels\ 1235}#
- #{var-ids\ 1236}#
- #{vars\ 1237}#
- #{vals\ 1238}#
- #{bindings\ 1239}#)))
- (if (null? #{ids\ 1234}#)
- (#{build-sequence\ 174}#
+ (#{chi-local-syntax\ 11246}#
+ #{value\ 12177}#
+ #{e\ 12178}#
+ #{er\ 12174}#
+ #{w\ 12179}#
+ #{s\ 12180}#
+ #{mod\ 12181}#
+ (lambda (#{forms\ 12215}#
+ #{er\ 12216}#
+ #{w\ 12217}#
+ #{s\ 12218}#
+ #{mod\ 12219}#)
+ (#{parse\ 12161}#
+ (letrec ((#{f\ 12227}#
+ (lambda
(#{forms\ 12228}#)
+ (if
(null? #{forms\ 12228}#)
+ (cdr
#{body\ 12162}#)
+ (cons
(cons #{er\ 12216}#
+
(#{wrap\ 11220}#
+
(car #{forms\ 12228}#)
+
#{w\ 12217}#
+
#{mod\ 12219}#))
+
(#{f\ 12227}#
+
(cdr #{forms\ 12228}#)))))))
+ (#{f\ 12227}#
+ #{forms\ 12215}#))
+ #{ids\ 12163}#
+ #{labels\ 12164}#
+ #{var-ids\ 12165}#
+ #{vars\ 12166}#
+ #{vals\ 12167}#
+ #{bindings\ 12168}#)))
+ (if (null? #{ids\ 12163}#)
+ (#{build-sequence\ 11103}#
#f
- (map (lambda (#{x\
1302}#)
- (#{chi\ 307}#
- (cdr #{x\
1302}#)
- (car #{x\
1302}#)
+ (map (lambda (#{x\
12231}#)
+ (#{chi\ 11236}#
+ (cdr #{x\
12231}#)
+ (car #{x\
12231}#)
'(())
- #{mod\ 1252}#))
- (cons (cons #{er\
1245}#
-
(#{source-wrap\ 293}#
- #{e\
1249}#
- #{w\
1250}#
- #{s\
1251}#
-
#{mod\ 1252}#))
- (cdr #{body\
1233}#))))
+ #{mod\ 12181}#))
+ (cons (cons #{er\
12174}#
+
(#{source-wrap\ 11222}#
+ #{e\
12178}#
+ #{w\
12179}#
+ #{s\
12180}#
+
#{mod\ 12181}#))
+ (cdr #{body\
12162}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 285}#
- #{ids\
1234}#))
+ (if (not
(#{valid-bound-ids?\ 11214}#
+ #{ids\
12163}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
1207}#))
- (letrec ((#{loop\ 1309}#
- (lambda
(#{bs\ 1310}#
-
#{er-cache\ 1311}#
-
#{r-cache\ 1312}#)
- (if (not
(null? #{bs\ 1310}#))
- (let
((#{b\ 1315}#
-
(car #{bs\ 1310}#)))
- (if
(eq? (car #{b\ 1315}#)
+ #{outer-form\
12136}#))
+ (letrec ((#{loop\ 12238}#
+ (lambda
(#{bs\ 12239}#
+
#{er-cache\ 12240}#
+
#{r-cache\ 12241}#)
+ (if (not
(null? #{bs\ 12239}#))
+ (let
((#{b\ 12244}#
+
(car #{bs\ 12239}#)))
+ (if
(eq? (car #{b\ 12244}#)
'macro)
- (let
((#{er\ 1318}#
-
(cadr #{b\ 1315}#)))
-
(let ((#{r-cache\ 1320}#
-
(if (eq? #{er\ 1318}#
-
#{er-cache\ 1311}#)
-
#{r-cache\ 1312}#
-
(#{macros-only-env\ 214}#
-
#{er\ 1318}#))))
+ (let
((#{er\ 12247}#
+
(cadr #{b\ 12244}#)))
+
(let ((#{r-cache\ 12249}#
+
(if (eq? #{er\ 12247}#
+
#{er-cache\ 12240}#)
+
#{r-cache\ 12241}#
+
(#{macros-only-env\ 11143}#
+
#{er\ 12247}#))))
(begin
(set-cdr!
-
#{b\ 1315}#
-
(#{eval-local-transformer\ 319}#
-
(#{chi\ 307}#
-
(cddr #{b\ 1315}#)
-
#{r-cache\ 1320}#
+
#{b\ 12244}#
+
(#{eval-local-transformer\ 11248}#
+
(#{chi\ 11236}#
+
(cddr #{b\ 12244}#)
+
#{r-cache\ 12249}#
'(())
-
#{mod\ 1252}#)
-
#{mod\ 1252}#))
-
(#{loop\ 1309}#
-
(cdr #{bs\ 1310}#)
-
#{er\ 1318}#
-
#{r-cache\ 1320}#))))
-
(#{loop\ 1309}#
-
(cdr #{bs\ 1310}#)
-
#{er-cache\ 1311}#
-
#{r-cache\ 1312}#)))))))
- (#{loop\ 1309}#
- #{bindings\ 1239}#
+
#{mod\ 12181}#)
+
#{mod\ 12181}#))
+
(#{loop\ 12238}#
+
(cdr #{bs\ 12239}#)
+
#{er\ 12247}#
+
#{r-cache\ 12249}#))))
+
(#{loop\ 12238}#
+
(cdr #{bs\ 12239}#)
+
#{er-cache\ 12240}#
+
#{r-cache\ 12241}#)))))))
+ (#{loop\ 12238}#
+ #{bindings\ 12168}#
#f
#f))
(set-cdr!
- #{r\ 1218}#
- (#{extend-env\ 210}#
- #{labels\ 1235}#
- #{bindings\ 1239}#
- (cdr #{r\ 1218}#)))
- (#{build-letrec\ 180}#
+ #{r\ 12147}#
+ (#{extend-env\ 11139}#
+ #{labels\ 12164}#
+ #{bindings\ 12168}#
+ (cdr #{r\ 12147}#)))
+ (#{build-letrec\ 11109}#
#f
(map syntax->datum
- #{var-ids\ 1236}#)
- #{vars\ 1237}#
- (map (lambda (#{x\
1323}#)
- (#{chi\ 307}#
- (cdr #{x\
1323}#)
- (car #{x\
1323}#)
+ #{var-ids\
12165}#)
+ #{vars\ 12166}#
+ (map (lambda (#{x\
12252}#)
+ (#{chi\ 11236}#
+ (cdr #{x\
12252}#)
+ (car #{x\
12252}#)
'(())
- #{mod\
1252}#))
- #{vals\ 1238}#)
- (#{build-sequence\
174}#
+ #{mod\
12181}#))
+ #{vals\ 12167}#)
+ (#{build-sequence\
11103}#
#f
- (map (lambda (#{x\
1327}#)
- (#{chi\ 307}#
- (cdr #{x\
1327}#)
- (car #{x\
1327}#)
+ (map (lambda (#{x\
12256}#)
+ (#{chi\
11236}#
+ (cdr #{x\
12256}#)
+ (car #{x\
12256}#)
'(())
- #{mod\
1252}#))
- (cons (cons
#{er\ 1245}#
-
(#{source-wrap\ 293}#
-
#{e\ 1249}#
-
#{w\ 1250}#
-
#{s\ 1251}#
-
#{mod\ 1252}#))
- (cdr
#{body\ 1233}#))))))))))))))))))
- (#{parse\ 1232}#
- (map (lambda (#{x\ 1240}#)
- (cons #{r\ 1218}#
- (#{wrap\ 291}#
- #{x\ 1240}#
- #{w\ 1223}#
- #{mod\ 1210}#)))
- #{body\ 1206}#)
+ #{mod\
12181}#))
+ (cons (cons
#{er\ 12174}#
+
(#{source-wrap\ 11222}#
+
#{e\ 12178}#
+
#{w\ 12179}#
+
#{s\ 12180}#
+
#{mod\ 12181}#))
+ (cdr
#{body\ 12162}#))))))))))))))))))
+ (#{parse\ 12161}#
+ (map (lambda (#{x\ 12169}#)
+ (cons #{r\ 12147}#
+ (#{wrap\ 11220}#
+ #{x\ 12169}#
+ #{w\ 12152}#
+ #{mod\ 12139}#)))
+ #{body\ 12135}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 313}#
- (lambda (#{p\ 1330}#
- #{e\ 1331}#
- #{r\ 1332}#
- #{w\ 1333}#
- #{rib\ 1334}#
- #{mod\ 1335}#)
- (letrec ((#{rebuild-macro-output\ 1343}#
- (lambda (#{x\ 1344}# #{m\ 1345}#)
- (if (pair? #{x\ 1344}#)
- (cons (#{rebuild-macro-output\ 1343}#
- (car #{x\ 1344}#)
- #{m\ 1345}#)
- (#{rebuild-macro-output\ 1343}#
- (cdr #{x\ 1344}#)
- #{m\ 1345}#))
- (if (#{syntax-object?\ 186}# #{x\ 1344}#)
- (let ((#{w\ 1353}#
- (#{syntax-object-wrap\ 190}#
- #{x\ 1344}#)))
- (let ((#{ms\ 1356}#
- (#{wrap-marks\ 229}# #{w\ 1353}#))
- (#{s\ 1357}#
- (#{wrap-subst\ 231}# #{w\ 1353}#)))
- (if (if (pair? #{ms\ 1356}#)
- (eq? (car #{ms\ 1356}#) #f)
+ (#{chi-macro\ 11242}#
+ (lambda (#{p\ 12259}#
+ #{e\ 12260}#
+ #{r\ 12261}#
+ #{w\ 12262}#
+ #{rib\ 12263}#
+ #{mod\ 12264}#)
+ (letrec ((#{rebuild-macro-output\ 12272}#
+ (lambda (#{x\ 12273}# #{m\ 12274}#)
+ (if (pair? #{x\ 12273}#)
+ (cons (#{rebuild-macro-output\ 12272}#
+ (car #{x\ 12273}#)
+ #{m\ 12274}#)
+ (#{rebuild-macro-output\ 12272}#
+ (cdr #{x\ 12273}#)
+ #{m\ 12274}#))
+ (if (#{syntax-object?\ 11115}# #{x\ 12273}#)
+ (let ((#{w\ 12282}#
+ (#{syntax-object-wrap\ 11119}#
+ #{x\ 12273}#)))
+ (let ((#{ms\ 12285}#
+ (#{wrap-marks\ 11158}# #{w\ 12282}#))
+ (#{s\ 12286}#
+ (#{wrap-subst\ 11160}#
+ #{w\ 12282}#)))
+ (if (if (pair? #{ms\ 12285}#)
+ (eq? (car #{ms\ 12285}#) #f)
#f)
- (#{make-syntax-object\ 184}#
- (#{syntax-object-expression\ 188}#
- #{x\ 1344}#)
- (#{make-wrap\ 227}#
- (cdr #{ms\ 1356}#)
- (if #{rib\ 1334}#
- (cons #{rib\ 1334}#
- (cdr #{s\ 1357}#))
- (cdr #{s\ 1357}#)))
- (#{syntax-object-module\ 192}#
- #{x\ 1344}#))
- (#{make-syntax-object\ 184}#
- (#{syntax-object-expression\ 188}#
- #{x\ 1344}#)
- (#{make-wrap\ 227}#
- (cons #{m\ 1345}# #{ms\ 1356}#)
- (if #{rib\ 1334}#
- (cons #{rib\ 1334}#
+ (#{make-syntax-object\ 11113}#
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 12273}#)
+ (#{make-wrap\ 11156}#
+ (cdr #{ms\ 12285}#)
+ (if #{rib\ 12263}#
+ (cons #{rib\ 12263}#
+ (cdr #{s\ 12286}#))
+ (cdr #{s\ 12286}#)))
+ (#{syntax-object-module\ 11121}#
+ #{x\ 12273}#))
+ (#{make-syntax-object\ 11113}#
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 12273}#)
+ (#{make-wrap\ 11156}#
+ (cons #{m\ 12274}# #{ms\ 12285}#)
+ (if #{rib\ 12263}#
+ (cons #{rib\ 12263}#
(cons 'shift
- #{s\ 1357}#))
- (cons (quote shift) #{s\ 1357}#)))
+ #{s\ 12286}#))
+ (cons (quote shift) #{s\ 12286}#)))
(cons 'hygiene
- (cdr #{p\ 1330}#))))))
- (if (vector? #{x\ 1344}#)
- (let ((#{n\ 1365}#
- (vector-length #{x\ 1344}#)))
- (let ((#{v\ 1367}#
- (make-vector #{n\ 1365}#)))
- (letrec ((#{loop\ 1370}#
- (lambda (#{i\ 1371}#)
- (if (#{fx=\ 127}#
- #{i\ 1371}#
- #{n\ 1365}#)
+ (cdr #{p\ 12259}#))))))
+ (if (vector? #{x\ 12273}#)
+ (let ((#{n\ 12294}#
+ (vector-length #{x\ 12273}#)))
+ (let ((#{v\ 12296}#
+ (make-vector #{n\ 12294}#)))
+ (letrec ((#{loop\ 12299}#
+ (lambda (#{i\ 12300}#)
+ (if (#{fx=\ 11056}#
+ #{i\ 12300}#
+ #{n\ 12294}#)
(begin
(if #f #f)
- #{v\ 1367}#)
+ #{v\ 12296}#)
(begin
(vector-set!
- #{v\ 1367}#
- #{i\ 1371}#
-
(#{rebuild-macro-output\ 1343}#
+ #{v\ 12296}#
+ #{i\ 12300}#
+
(#{rebuild-macro-output\ 12272}#
(vector-ref
- #{x\ 1344}#
- #{i\ 1371}#)
- #{m\ 1345}#))
- (#{loop\ 1370}#
- (#{fx+\ 123}#
- #{i\ 1371}#
+ #{x\ 12273}#
+ #{i\ 12300}#)
+ #{m\ 12274}#))
+ (#{loop\ 12299}#
+ (#{fx+\ 11052}#
+ #{i\ 12300}#
1)))))))
- (#{loop\ 1370}# 0))))
- (if (symbol? #{x\ 1344}#)
+ (#{loop\ 12299}# 0))))
+ (if (symbol? #{x\ 12273}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 293}#
- #{e\ 1331}#
- #{w\ 1333}#
- (#{wrap-subst\ 231}# #{w\ 1333}#)
- #{mod\ 1335}#)
- #{x\ 1344}#)
- #{x\ 1344}#)))))))
- (#{rebuild-macro-output\ 1343}#
- ((car #{p\ 1330}#)
- (#{wrap\ 291}#
- #{e\ 1331}#
- (#{anti-mark\ 263}# #{w\ 1333}#)
- #{mod\ 1335}#))
+ (#{source-wrap\ 11222}#
+ #{e\ 12260}#
+ #{w\ 12262}#
+ (#{wrap-subst\ 11160}# #{w\ 12262}#)
+ #{mod\ 12264}#)
+ #{x\ 12273}#)
+ #{x\ 12273}#)))))))
+ (#{rebuild-macro-output\ 12272}#
+ ((car #{p\ 12259}#)
+ (#{wrap\ 11220}#
+ #{e\ 12260}#
+ (#{anti-mark\ 11192}# #{w\ 12262}#)
+ #{mod\ 12264}#))
(gensym "m")))))
- (#{chi-application\ 311}#
- (lambda (#{x\ 1378}#
- #{e\ 1379}#
- #{r\ 1380}#
- #{w\ 1381}#
- #{s\ 1382}#
- #{mod\ 1383}#)
- ((lambda (#{tmp\ 1390}#)
- ((lambda (#{tmp\ 1391}#)
- (if #{tmp\ 1391}#
- (apply (lambda (#{e0\ 1394}# #{e1\ 1395}#)
- (#{build-application\ 144}#
- #{s\ 1382}#
- #{x\ 1378}#
- (map (lambda (#{e\ 1396}#)
- (#{chi\ 307}#
- #{e\ 1396}#
- #{r\ 1380}#
- #{w\ 1381}#
- #{mod\ 1383}#))
- #{e1\ 1395}#)))
- #{tmp\ 1391}#)
+ (#{chi-application\ 11240}#
+ (lambda (#{x\ 12307}#
+ #{e\ 12308}#
+ #{r\ 12309}#
+ #{w\ 12310}#
+ #{s\ 12311}#
+ #{mod\ 12312}#)
+ ((lambda (#{tmp\ 12319}#)
+ ((lambda (#{tmp\ 12320}#)
+ (if #{tmp\ 12320}#
+ (apply (lambda (#{e0\ 12323}# #{e1\ 12324}#)
+ (#{build-application\ 11073}#
+ #{s\ 12311}#
+ #{x\ 12307}#
+ (map (lambda (#{e\ 12325}#)
+ (#{chi\ 11236}#
+ #{e\ 12325}#
+ #{r\ 12309}#
+ #{w\ 12310}#
+ #{mod\ 12312}#))
+ #{e1\ 12324}#)))
+ #{tmp\ 12320}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1390}#)))
+ #{tmp\ 12319}#)))
($sc-dispatch
- #{tmp\ 1390}#
+ #{tmp\ 12319}#
'(any . each-any))))
- #{e\ 1379}#)))
- (#{chi-expr\ 309}#
- (lambda (#{type\ 1399}#
- #{value\ 1400}#
- #{e\ 1401}#
- #{r\ 1402}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#)
- (if (memv #{type\ 1399}# (quote (lexical)))
- (#{build-lexical-reference\ 150}#
+ #{e\ 12308}#)))
+ (#{chi-expr\ 11238}#
+ (lambda (#{type\ 12328}#
+ #{value\ 12329}#
+ #{e\ 12330}#
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#)
+ (if (memv #{type\ 12328}# (quote (lexical)))
+ (#{build-lexical-reference\ 11079}#
'value
- #{s\ 1404}#
- #{e\ 1401}#
- #{value\ 1400}#)
- (if (memv #{type\ 1399}# (quote (core core-form)))
- (#{value\ 1400}#
- #{e\ 1401}#
- #{r\ 1402}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#)
- (if (memv #{type\ 1399}# (quote (module-ref)))
+ #{s\ 12333}#
+ #{e\ 12330}#
+ #{value\ 12329}#)
+ (if (memv #{type\ 12328}# (quote (core core-form)))
+ (#{value\ 12329}#
+ #{e\ 12330}#
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#)
+ (if (memv #{type\ 12328}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{value\ 1400}#
- #{e\ 1401}#
- #{r\ 1402}#
- #{w\ 1403}#))
- (lambda (#{e\ 1416}#
- #{r\ 1417}#
- #{w\ 1418}#
- #{s\ 1419}#
- #{mod\ 1420}#)
- (#{chi\ 307}#
- #{e\ 1416}#
- #{r\ 1417}#
- #{w\ 1418}#
- #{mod\ 1420}#)))
- (if (memv #{type\ 1399}# (quote (lexical-call)))
- (#{chi-application\ 311}#
- (#{build-lexical-reference\ 150}#
+ (#{value\ 12329}#
+ #{e\ 12330}#
+ #{r\ 12331}#
+ #{w\ 12332}#))
+ (lambda (#{e\ 12345}#
+ #{r\ 12346}#
+ #{w\ 12347}#
+ #{s\ 12348}#
+ #{mod\ 12349}#)
+ (#{chi\ 11236}#
+ #{e\ 12345}#
+ #{r\ 12346}#
+ #{w\ 12347}#
+ #{mod\ 12349}#)))
+ (if (memv #{type\ 12328}# (quote (lexical-call)))
+ (#{chi-application\ 11240}#
+ (#{build-lexical-reference\ 11079}#
'fun
- (#{source-annotation\ 201}# (car #{e\ 1401}#))
- (car #{e\ 1401}#)
- #{value\ 1400}#)
- #{e\ 1401}#
- #{r\ 1402}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#)
- (if (memv #{type\ 1399}# (quote (global-call)))
- (#{chi-application\ 311}#
- (#{build-global-reference\ 156}#
- (#{source-annotation\ 201}# (car #{e\ 1401}#))
- (if (#{syntax-object?\ 186}# #{value\ 1400}#)
- (#{syntax-object-expression\ 188}#
- #{value\ 1400}#)
- #{value\ 1400}#)
- (if (#{syntax-object?\ 186}# #{value\ 1400}#)
- (#{syntax-object-module\ 192}# #{value\ 1400}#)
- #{mod\ 1405}#))
- #{e\ 1401}#
- #{r\ 1402}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#)
- (if (memv #{type\ 1399}# (quote (constant)))
- (#{build-data\ 172}#
- #{s\ 1404}#
- (#{strip\ 333}#
- (#{source-wrap\ 293}#
- #{e\ 1401}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#)
+ (#{source-annotation\ 11130}# (car #{e\ 12330}#))
+ (car #{e\ 12330}#)
+ #{value\ 12329}#)
+ #{e\ 12330}#
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#)
+ (if (memv #{type\ 12328}# (quote (global-call)))
+ (#{chi-application\ 11240}#
+ (#{build-global-reference\ 11085}#
+ (#{source-annotation\ 11130}# (car #{e\ 12330}#))
+ (if (#{syntax-object?\ 11115}# #{value\ 12329}#)
+ (#{syntax-object-expression\ 11117}#
+ #{value\ 12329}#)
+ #{value\ 12329}#)
+ (if (#{syntax-object?\ 11115}# #{value\ 12329}#)
+ (#{syntax-object-module\ 11121}#
+ #{value\ 12329}#)
+ #{mod\ 12334}#))
+ #{e\ 12330}#
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#)
+ (if (memv #{type\ 12328}# (quote (constant)))
+ (#{build-data\ 11101}#
+ #{s\ 12333}#
+ (#{strip\ 11262}#
+ (#{source-wrap\ 11222}#
+ #{e\ 12330}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#)
'(())))
- (if (memv #{type\ 1399}# (quote (global)))
- (#{build-global-reference\ 156}#
- #{s\ 1404}#
- #{value\ 1400}#
- #{mod\ 1405}#)
- (if (memv #{type\ 1399}# (quote (call)))
- (#{chi-application\ 311}#
- (#{chi\ 307}#
- (car #{e\ 1401}#)
- #{r\ 1402}#
- #{w\ 1403}#
- #{mod\ 1405}#)
- #{e\ 1401}#
- #{r\ 1402}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#)
- (if (memv #{type\ 1399}# (quote (begin-form)))
- ((lambda (#{tmp\ 1433}#)
- ((lambda (#{tmp\ 1434}#)
- (if #{tmp\ 1434}#
- (apply (lambda (#{_\ 1438}#
- #{e1\ 1439}#
- #{e2\ 1440}#)
- (#{chi-sequence\ 295}#
- (cons #{e1\ 1439}#
- #{e2\ 1440}#)
- #{r\ 1402}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#))
- #{tmp\ 1434}#)
+ (if (memv #{type\ 12328}# (quote (global)))
+ (#{build-global-reference\ 11085}#
+ #{s\ 12333}#
+ #{value\ 12329}#
+ #{mod\ 12334}#)
+ (if (memv #{type\ 12328}# (quote (call)))
+ (#{chi-application\ 11240}#
+ (#{chi\ 11236}#
+ (car #{e\ 12330}#)
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{mod\ 12334}#)
+ #{e\ 12330}#
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#)
+ (if (memv #{type\ 12328}# (quote (begin-form)))
+ ((lambda (#{tmp\ 12362}#)
+ ((lambda (#{tmp\ 12363}#)
+ (if #{tmp\ 12363}#
+ (apply (lambda (#{_\ 12367}#
+ #{e1\ 12368}#
+ #{e2\ 12369}#)
+ (#{chi-sequence\ 11224}#
+ (cons #{e1\ 12368}#
+ #{e2\ 12369}#)
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#))
+ #{tmp\ 12363}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1433}#)))
+ #{tmp\ 12362}#)))
($sc-dispatch
- #{tmp\ 1433}#
+ #{tmp\ 12362}#
'(any any . each-any))))
- #{e\ 1401}#)
- (if (memv #{type\ 1399}#
+ #{e\ 12330}#)
+ (if (memv #{type\ 12328}#
'(local-syntax-form))
- (#{chi-local-syntax\ 317}#
- #{value\ 1400}#
- #{e\ 1401}#
- #{r\ 1402}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#
- #{chi-sequence\ 295}#)
- (if (memv #{type\ 1399}#
+ (#{chi-local-syntax\ 11246}#
+ #{value\ 12329}#
+ #{e\ 12330}#
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#
+ #{chi-sequence\ 11224}#)
+ (if (memv #{type\ 12328}#
'(eval-when-form))
- ((lambda (#{tmp\ 1444}#)
- ((lambda (#{tmp\ 1445}#)
- (if #{tmp\ 1445}#
- (apply (lambda (#{_\ 1450}#
- #{x\ 1451}#
- #{e1\ 1452}#
- #{e2\ 1453}#)
- (let ((#{when-list\
1455}#
-
(#{chi-when-list\ 301}#
- #{e\ 1401}#
- #{x\ 1451}#
- #{w\ 1403}#)))
+ ((lambda (#{tmp\ 12373}#)
+ ((lambda (#{tmp\ 12374}#)
+ (if #{tmp\ 12374}#
+ (apply (lambda (#{_\ 12379}#
+ #{x\ 12380}#
+ #{e1\ 12381}#
+ #{e2\ 12382}#)
+ (let ((#{when-list\
12384}#
+
(#{chi-when-list\ 11230}#
+ #{e\ 12330}#
+ #{x\ 12380}#
+ #{w\ 12332}#)))
(if (memq 'eval
- #{when-list\
1455}#)
- (#{chi-sequence\
295}#
- (cons #{e1\ 1452}#
- #{e2\ 1453}#)
- #{r\ 1402}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#)
- (#{chi-void\
321}#))))
- #{tmp\ 1445}#)
+ #{when-list\
12384}#)
+ (#{chi-sequence\
11224}#
+ (cons #{e1\ 12381}#
+ #{e2\
12382}#)
+ #{r\ 12331}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#)
+ (#{chi-void\
11250}#))))
+ #{tmp\ 12374}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 1444}#)))
+ #{tmp\ 12373}#)))
($sc-dispatch
- #{tmp\ 1444}#
+ #{tmp\ 12373}#
'(any each-any any . each-any))))
- #{e\ 1401}#)
- (if (memv #{type\ 1399}#
+ #{e\ 12330}#)
+ (if (memv #{type\ 12328}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1401}#
- (#{wrap\ 291}#
- #{value\ 1400}#
- #{w\ 1403}#
- #{mod\ 1405}#))
- (if (memv #{type\ 1399}#
+ #{e\ 12330}#
+ (#{wrap\ 11220}#
+ #{value\ 12329}#
+ #{w\ 12332}#
+ #{mod\ 12334}#))
+ (if (memv #{type\ 12328}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 293}#
- #{e\ 1401}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#))
- (if (memv #{type\ 1399}#
+ (#{source-wrap\ 11222}#
+ #{e\ 12330}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#))
+ (if (memv #{type\ 12328}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 293}#
- #{e\ 1401}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#))
+ (#{source-wrap\ 11222}#
+ #{e\ 12330}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 293}#
- #{e\ 1401}#
- #{w\ 1403}#
- #{s\ 1404}#
- #{mod\ 1405}#))))))))))))))))))
- (#{chi\ 307}#
- (lambda (#{e\ 1462}#
- #{r\ 1463}#
- #{w\ 1464}#
- #{mod\ 1465}#)
+ (#{source-wrap\ 11222}#
+ #{e\ 12330}#
+ #{w\ 12332}#
+ #{s\ 12333}#
+ #{mod\ 12334}#))))))))))))))))))
+ (#{chi\ 11236}#
+ (lambda (#{e\ 12391}#
+ #{r\ 12392}#
+ #{w\ 12393}#
+ #{mod\ 12394}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 303}#
- #{e\ 1462}#
- #{r\ 1463}#
- #{w\ 1464}#
- (#{source-annotation\ 201}# #{e\ 1462}#)
+ (#{syntax-type\ 11232}#
+ #{e\ 12391}#
+ #{r\ 12392}#
+ #{w\ 12393}#
+ (#{source-annotation\ 11130}# #{e\ 12391}#)
#f
- #{mod\ 1465}#
+ #{mod\ 12394}#
#f))
- (lambda (#{type\ 1470}#
- #{value\ 1471}#
- #{e\ 1472}#
- #{w\ 1473}#
- #{s\ 1474}#
- #{mod\ 1475}#)
- (#{chi-expr\ 309}#
- #{type\ 1470}#
- #{value\ 1471}#
- #{e\ 1472}#
- #{r\ 1463}#
- #{w\ 1473}#
- #{s\ 1474}#
- #{mod\ 1475}#)))))
- (#{chi-top\ 305}#
- (lambda (#{e\ 1482}#
- #{r\ 1483}#
- #{w\ 1484}#
- #{m\ 1485}#
- #{esew\ 1486}#
- #{mod\ 1487}#)
+ (lambda (#{type\ 12399}#
+ #{value\ 12400}#
+ #{e\ 12401}#
+ #{w\ 12402}#
+ #{s\ 12403}#
+ #{mod\ 12404}#)
+ (#{chi-expr\ 11238}#
+ #{type\ 12399}#
+ #{value\ 12400}#
+ #{e\ 12401}#
+ #{r\ 12392}#
+ #{w\ 12402}#
+ #{s\ 12403}#
+ #{mod\ 12404}#)))))
+ (#{chi-top\ 11234}#
+ (lambda (#{e\ 12411}#
+ #{r\ 12412}#
+ #{w\ 12413}#
+ #{m\ 12414}#
+ #{esew\ 12415}#
+ #{mod\ 12416}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 303}#
- #{e\ 1482}#
- #{r\ 1483}#
- #{w\ 1484}#
- (#{source-annotation\ 201}# #{e\ 1482}#)
+ (#{syntax-type\ 11232}#
+ #{e\ 12411}#
+ #{r\ 12412}#
+ #{w\ 12413}#
+ (#{source-annotation\ 11130}# #{e\ 12411}#)
#f
- #{mod\ 1487}#
+ #{mod\ 12416}#
#f))
- (lambda (#{type\ 1508}#
- #{value\ 1509}#
- #{e\ 1510}#
- #{w\ 1511}#
- #{s\ 1512}#
- #{mod\ 1513}#)
- (if (memv #{type\ 1508}# (quote (begin-form)))
- ((lambda (#{tmp\ 1521}#)
- ((lambda (#{tmp\ 1522}#)
- (if #{tmp\ 1522}#
- (apply (lambda (#{_\ 1524}#) (#{chi-void\ 321}#))
- #{tmp\ 1522}#)
- ((lambda (#{tmp\ 1525}#)
- (if #{tmp\ 1525}#
- (apply (lambda (#{_\ 1529}#
- #{e1\ 1530}#
- #{e2\ 1531}#)
- (#{chi-top-sequence\ 297}#
- (cons #{e1\ 1530}# #{e2\ 1531}#)
- #{r\ 1483}#
- #{w\ 1511}#
- #{s\ 1512}#
- #{m\ 1485}#
- #{esew\ 1486}#
- #{mod\ 1513}#))
- #{tmp\ 1525}#)
+ (lambda (#{type\ 12437}#
+ #{value\ 12438}#
+ #{e\ 12439}#
+ #{w\ 12440}#
+ #{s\ 12441}#
+ #{mod\ 12442}#)
+ (if (memv #{type\ 12437}# (quote (begin-form)))
+ ((lambda (#{tmp\ 12450}#)
+ ((lambda (#{tmp\ 12451}#)
+ (if #{tmp\ 12451}#
+ (apply (lambda (#{_\ 12453}#)
+ (#{chi-void\ 11250}#))
+ #{tmp\ 12451}#)
+ ((lambda (#{tmp\ 12454}#)
+ (if #{tmp\ 12454}#
+ (apply (lambda (#{_\ 12458}#
+ #{e1\ 12459}#
+ #{e2\ 12460}#)
+ (#{chi-top-sequence\ 11226}#
+ (cons #{e1\ 12459}# #{e2\ 12460}#)
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{s\ 12441}#
+ #{m\ 12414}#
+ #{esew\ 12415}#
+ #{mod\ 12442}#))
+ #{tmp\ 12454}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1521}#)))
+ #{tmp\ 12450}#)))
($sc-dispatch
- #{tmp\ 1521}#
+ #{tmp\ 12450}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 1521}# (quote (any)))))
- #{e\ 1510}#)
- (if (memv #{type\ 1508}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 317}#
- #{value\ 1509}#
- #{e\ 1510}#
- #{r\ 1483}#
- #{w\ 1511}#
- #{s\ 1512}#
- #{mod\ 1513}#
- (lambda (#{body\ 1534}#
- #{r\ 1535}#
- #{w\ 1536}#
- #{s\ 1537}#
- #{mod\ 1538}#)
- (#{chi-top-sequence\ 297}#
- #{body\ 1534}#
- #{r\ 1535}#
- #{w\ 1536}#
- #{s\ 1537}#
- #{m\ 1485}#
- #{esew\ 1486}#
- #{mod\ 1538}#)))
- (if (memv #{type\ 1508}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 1545}#)
- ((lambda (#{tmp\ 1546}#)
- (if #{tmp\ 1546}#
- (apply (lambda (#{_\ 1551}#
- #{x\ 1552}#
- #{e1\ 1553}#
- #{e2\ 1554}#)
- (let ((#{when-list\ 1557}#
- (#{chi-when-list\ 301}#
- #{e\ 1510}#
- #{x\ 1552}#
- #{w\ 1511}#))
- (#{body\ 1558}#
- (cons #{e1\ 1553}#
- #{e2\ 1554}#)))
- (if (eq? #{m\ 1485}# (quote e))
+ ($sc-dispatch #{tmp\ 12450}# (quote (any)))))
+ #{e\ 12439}#)
+ (if (memv #{type\ 12437}#
+ '(local-syntax-form))
+ (#{chi-local-syntax\ 11246}#
+ #{value\ 12438}#
+ #{e\ 12439}#
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{s\ 12441}#
+ #{mod\ 12442}#
+ (lambda (#{body\ 12463}#
+ #{r\ 12464}#
+ #{w\ 12465}#
+ #{s\ 12466}#
+ #{mod\ 12467}#)
+ (#{chi-top-sequence\ 11226}#
+ #{body\ 12463}#
+ #{r\ 12464}#
+ #{w\ 12465}#
+ #{s\ 12466}#
+ #{m\ 12414}#
+ #{esew\ 12415}#
+ #{mod\ 12467}#)))
+ (if (memv #{type\ 12437}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 12474}#)
+ ((lambda (#{tmp\ 12475}#)
+ (if #{tmp\ 12475}#
+ (apply (lambda (#{_\ 12480}#
+ #{x\ 12481}#
+ #{e1\ 12482}#
+ #{e2\ 12483}#)
+ (let ((#{when-list\ 12486}#
+ (#{chi-when-list\ 11230}#
+ #{e\ 12439}#
+ #{x\ 12481}#
+ #{w\ 12440}#))
+ (#{body\ 12487}#
+ (cons #{e1\ 12482}#
+ #{e2\ 12483}#)))
+ (if (eq? #{m\ 12414}# (quote e))
(if (memq 'eval
- #{when-list\ 1557}#)
- (#{chi-top-sequence\ 297}#
- #{body\ 1558}#
- #{r\ 1483}#
- #{w\ 1511}#
- #{s\ 1512}#
+ #{when-list\ 12486}#)
+ (#{chi-top-sequence\ 11226}#
+ #{body\ 12487}#
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{s\ 12441}#
(if (memq 'expand
- #{when-list\
1557}#)
+ #{when-list\
12486}#)
'c&e
'e)
'(eval)
- #{mod\ 1513}#)
+ #{mod\ 12442}#)
(begin
(if (memq 'expand
- #{when-list\
1557}#)
- (#{top-level-eval-hook\
131}#
- (#{chi-top-sequence\
297}#
- #{body\ 1558}#
- #{r\ 1483}#
- #{w\ 1511}#
- #{s\ 1512}#
+ #{when-list\
12486}#)
+ (#{top-level-eval-hook\
11060}#
+ (#{chi-top-sequence\
11226}#
+ #{body\ 12487}#
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{s\ 12441}#
'e
'(eval)
- #{mod\ 1513}#)
- #{mod\ 1513}#))
- (#{chi-void\ 321}#)))
+ #{mod\ 12442}#)
+ #{mod\ 12442}#))
+ (#{chi-void\ 11250}#)))
(if (memq 'load
- #{when-list\ 1557}#)
- (if (let ((#{t\ 1567}#
+ #{when-list\ 12486}#)
+ (if (let ((#{t\ 12496}#
(memq 'compile
- #{when-list\
1557}#)))
- (if #{t\ 1567}#
- #{t\ 1567}#
- (let ((#{t\ 1570}#
+ #{when-list\
12486}#)))
+ (if #{t\ 12496}#
+ #{t\ 12496}#
+ (let ((#{t\ 12499}#
(memq 'expand
-
#{when-list\ 1557}#)))
- (if #{t\ 1570}#
- #{t\ 1570}#
- (if (eq? #{m\
1485}#
+
#{when-list\ 12486}#)))
+ (if #{t\ 12499}#
+ #{t\ 12499}#
+ (if (eq? #{m\
12414}#
'c&e)
(memq 'eval
-
#{when-list\ 1557}#)
+
#{when-list\ 12486}#)
#f)))))
- (#{chi-top-sequence\ 297}#
- #{body\ 1558}#
- #{r\ 1483}#
- #{w\ 1511}#
- #{s\ 1512}#
+ (#{chi-top-sequence\ 11226}#
+ #{body\ 12487}#
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{s\ 12441}#
'c&e
'(compile load)
- #{mod\ 1513}#)
- (if (memq #{m\ 1485}#
+ #{mod\ 12442}#)
+ (if (memq #{m\ 12414}#
'(c c&e))
- (#{chi-top-sequence\ 297}#
- #{body\ 1558}#
- #{r\ 1483}#
- #{w\ 1511}#
- #{s\ 1512}#
+ (#{chi-top-sequence\
11226}#
+ #{body\ 12487}#
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{s\ 12441}#
'c
'(load)
- #{mod\ 1513}#)
- (#{chi-void\ 321}#)))
- (if (let ((#{t\ 1578}#
+ #{mod\ 12442}#)
+ (#{chi-void\ 11250}#)))
+ (if (let ((#{t\ 12507}#
(memq 'compile
- #{when-list\
1557}#)))
- (if #{t\ 1578}#
- #{t\ 1578}#
- (let ((#{t\ 1581}#
+ #{when-list\
12486}#)))
+ (if #{t\ 12507}#
+ #{t\ 12507}#
+ (let ((#{t\ 12510}#
(memq 'expand
-
#{when-list\ 1557}#)))
- (if #{t\ 1581}#
- #{t\ 1581}#
- (if (eq? #{m\
1485}#
+
#{when-list\ 12486}#)))
+ (if #{t\ 12510}#
+ #{t\ 12510}#
+ (if (eq? #{m\
12414}#
'c&e)
(memq 'eval
-
#{when-list\ 1557}#)
+
#{when-list\ 12486}#)
#f)))))
(begin
- (#{top-level-eval-hook\
131}#
- (#{chi-top-sequence\
297}#
- #{body\ 1558}#
- #{r\ 1483}#
- #{w\ 1511}#
- #{s\ 1512}#
+ (#{top-level-eval-hook\
11060}#
+ (#{chi-top-sequence\
11226}#
+ #{body\ 12487}#
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{s\ 12441}#
'e
'(eval)
- #{mod\ 1513}#)
- #{mod\ 1513}#)
- (#{chi-void\ 321}#))
- (#{chi-void\ 321}#))))))
- #{tmp\ 1546}#)
+ #{mod\ 12442}#)
+ #{mod\ 12442}#)
+ (#{chi-void\ 11250}#))
+ (#{chi-void\ 11250}#))))))
+ #{tmp\ 12475}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1545}#)))
+ #{tmp\ 12474}#)))
($sc-dispatch
- #{tmp\ 1545}#
+ #{tmp\ 12474}#
'(any each-any any . each-any))))
- #{e\ 1510}#)
- (if (memv #{type\ 1508}#
+ #{e\ 12439}#)
+ (if (memv #{type\ 12437}#
'(define-syntax-form))
- (let ((#{n\ 1589}#
- (#{id-var-name\ 279}#
- #{value\ 1509}#
- #{w\ 1511}#))
- (#{r\ 1590}#
- (#{macros-only-env\ 214}# #{r\ 1483}#)))
- (if (memv #{m\ 1485}# (quote (c)))
- (if (memq (quote compile) #{esew\ 1486}#)
- (let ((#{e\ 1593}#
- (#{chi-install-global\ 299}#
- #{n\ 1589}#
- (#{chi\ 307}#
- #{e\ 1510}#
- #{r\ 1590}#
- #{w\ 1511}#
- #{mod\ 1513}#))))
+ (let ((#{n\ 12518}#
+ (#{id-var-name\ 11208}#
+ #{value\ 12438}#
+ #{w\ 12440}#))
+ (#{r\ 12519}#
+ (#{macros-only-env\ 11143}# #{r\ 12412}#)))
+ (if (memv #{m\ 12414}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 12415}#)
+ (let ((#{e\ 12522}#
+ (#{chi-install-global\ 11228}#
+ #{n\ 12518}#
+ (#{chi\ 11236}#
+ #{e\ 12439}#
+ #{r\ 12519}#
+ #{w\ 12440}#
+ #{mod\ 12442}#))))
(begin
- (#{top-level-eval-hook\ 131}#
- #{e\ 1593}#
- #{mod\ 1513}#)
- (if (memq (quote load) #{esew\ 1486}#)
- #{e\ 1593}#
- (#{chi-void\ 321}#))))
- (if (memq (quote load) #{esew\ 1486}#)
- (#{chi-install-global\ 299}#
- #{n\ 1589}#
- (#{chi\ 307}#
- #{e\ 1510}#
- #{r\ 1590}#
- #{w\ 1511}#
- #{mod\ 1513}#))
- (#{chi-void\ 321}#)))
- (if (memv #{m\ 1485}# (quote (c&e)))
- (let ((#{e\ 1596}#
- (#{chi-install-global\ 299}#
- #{n\ 1589}#
- (#{chi\ 307}#
- #{e\ 1510}#
- #{r\ 1590}#
- #{w\ 1511}#
- #{mod\ 1513}#))))
+ (#{top-level-eval-hook\ 11060}#
+ #{e\ 12522}#
+ #{mod\ 12442}#)
+ (if (memq (quote load) #{esew\ 12415}#)
+ #{e\ 12522}#
+ (#{chi-void\ 11250}#))))
+ (if (memq (quote load) #{esew\ 12415}#)
+ (#{chi-install-global\ 11228}#
+ #{n\ 12518}#
+ (#{chi\ 11236}#
+ #{e\ 12439}#
+ #{r\ 12519}#
+ #{w\ 12440}#
+ #{mod\ 12442}#))
+ (#{chi-void\ 11250}#)))
+ (if (memv #{m\ 12414}# (quote (c&e)))
+ (let ((#{e\ 12525}#
+ (#{chi-install-global\ 11228}#
+ #{n\ 12518}#
+ (#{chi\ 11236}#
+ #{e\ 12439}#
+ #{r\ 12519}#
+ #{w\ 12440}#
+ #{mod\ 12442}#))))
(begin
- (#{top-level-eval-hook\ 131}#
- #{e\ 1596}#
- #{mod\ 1513}#)
- #{e\ 1596}#))
+ (#{top-level-eval-hook\ 11060}#
+ #{e\ 12525}#
+ #{mod\ 12442}#)
+ #{e\ 12525}#))
(begin
- (if (memq (quote eval) #{esew\ 1486}#)
- (#{top-level-eval-hook\ 131}#
- (#{chi-install-global\ 299}#
- #{n\ 1589}#
- (#{chi\ 307}#
- #{e\ 1510}#
- #{r\ 1590}#
- #{w\ 1511}#
- #{mod\ 1513}#))
- #{mod\ 1513}#))
- (#{chi-void\ 321}#)))))
- (if (memv #{type\ 1508}# (quote (define-form)))
- (let ((#{n\ 1601}#
- (#{id-var-name\ 279}#
- #{value\ 1509}#
- #{w\ 1511}#)))
- (let ((#{type\ 1603}#
- (#{binding-type\ 205}#
- (#{lookup\ 216}#
- #{n\ 1601}#
- #{r\ 1483}#
- #{mod\ 1513}#))))
- (if (memv #{type\ 1603}#
+ (if (memq (quote eval) #{esew\ 12415}#)
+ (#{top-level-eval-hook\ 11060}#
+ (#{chi-install-global\ 11228}#
+ #{n\ 12518}#
+ (#{chi\ 11236}#
+ #{e\ 12439}#
+ #{r\ 12519}#
+ #{w\ 12440}#
+ #{mod\ 12442}#))
+ #{mod\ 12442}#))
+ (#{chi-void\ 11250}#)))))
+ (if (memv #{type\ 12437}# (quote (define-form)))
+ (let ((#{n\ 12530}#
+ (#{id-var-name\ 11208}#
+ #{value\ 12438}#
+ #{w\ 12440}#)))
+ (let ((#{type\ 12532}#
+ (#{binding-type\ 11134}#
+ (#{lookup\ 11145}#
+ #{n\ 12530}#
+ #{r\ 12412}#
+ #{mod\ 12442}#))))
+ (if (memv #{type\ 12532}#
'(global core macro module-ref))
(begin
- (if (if (memq #{m\ 1485}# (quote (c c&e)))
+ (if (if (memq #{m\ 12414}#
+ '(c c&e))
(if (not (module-local-variable
(current-module)
- #{n\ 1601}#))
+ #{n\ 12530}#))
(current-module)
#f)
#f)
- (let ((#{old\ 1609}#
+ (let ((#{old\ 12538}#
(module-variable
(current-module)
- #{n\ 1601}#)))
+ #{n\ 12530}#)))
(module-define!
(current-module)
- #{n\ 1601}#
- (if (variable? #{old\ 1609}#)
- (variable-ref #{old\ 1609}#)
+ #{n\ 12530}#
+ (if (variable? #{old\ 12538}#)
+ (variable-ref #{old\ 12538}#)
#f))))
- (let ((#{x\ 1612}#
- (#{build-global-definition\ 162}#
- #{s\ 1512}#
- #{n\ 1601}#
- (#{chi\ 307}#
- #{e\ 1510}#
- #{r\ 1483}#
- #{w\ 1511}#
- #{mod\ 1513}#))))
+ (let ((#{x\ 12541}#
+ (#{build-global-definition\
11091}#
+ #{s\ 12441}#
+ #{n\ 12530}#
+ (#{chi\ 11236}#
+ #{e\ 12439}#
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{mod\ 12442}#))))
(begin
- (if (eq? #{m\ 1485}# (quote c&e))
- (#{top-level-eval-hook\ 131}#
- #{x\ 1612}#
- #{mod\ 1513}#))
- #{x\ 1612}#)))
- (if (memv #{type\ 1603}#
+ (if (eq? #{m\ 12414}# (quote c&e))
+ (#{top-level-eval-hook\ 11060}#
+ #{x\ 12541}#
+ #{mod\ 12442}#))
+ #{x\ 12541}#)))
+ (if (memv #{type\ 12532}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 1510}#
- (#{wrap\ 291}#
- #{value\ 1509}#
- #{w\ 1511}#
- #{mod\ 1513}#))
+ #{e\ 12439}#
+ (#{wrap\ 11220}#
+ #{value\ 12438}#
+ #{w\ 12440}#
+ #{mod\ 12442}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1510}#
- (#{wrap\ 291}#
- #{value\ 1509}#
- #{w\ 1511}#
- #{mod\ 1513}#))))))
- (let ((#{x\ 1618}#
- (#{chi-expr\ 309}#
- #{type\ 1508}#
- #{value\ 1509}#
- #{e\ 1510}#
- #{r\ 1483}#
- #{w\ 1511}#
- #{s\ 1512}#
- #{mod\ 1513}#)))
+ #{e\ 12439}#
+ (#{wrap\ 11220}#
+ #{value\ 12438}#
+ #{w\ 12440}#
+ #{mod\ 12442}#))))))
+ (let ((#{x\ 12547}#
+ (#{chi-expr\ 11238}#
+ #{type\ 12437}#
+ #{value\ 12438}#
+ #{e\ 12439}#
+ #{r\ 12412}#
+ #{w\ 12440}#
+ #{s\ 12441}#
+ #{mod\ 12442}#)))
(begin
- (if (eq? #{m\ 1485}# (quote c&e))
- (#{top-level-eval-hook\ 131}#
- #{x\ 1618}#
- #{mod\ 1513}#))
- #{x\ 1618}#)))))))))))
- (#{syntax-type\ 303}#
- (lambda (#{e\ 1619}#
- #{r\ 1620}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{rib\ 1623}#
- #{mod\ 1624}#
- #{for-car?\ 1625}#)
- (if (symbol? #{e\ 1619}#)
- (let ((#{n\ 1637}#
- (#{id-var-name\ 279}# #{e\ 1619}# #{w\ 1621}#)))
- (let ((#{b\ 1639}#
- (#{lookup\ 216}#
- #{n\ 1637}#
- #{r\ 1620}#
- #{mod\ 1624}#)))
- (let ((#{type\ 1641}#
- (#{binding-type\ 205}# #{b\ 1639}#)))
- (if (memv #{type\ 1641}# (quote (lexical)))
+ (if (eq? #{m\ 12414}# (quote c&e))
+ (#{top-level-eval-hook\ 11060}#
+ #{x\ 12547}#
+ #{mod\ 12442}#))
+ #{x\ 12547}#)))))))))))
+ (#{syntax-type\ 11232}#
+ (lambda (#{e\ 12548}#
+ #{r\ 12549}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{rib\ 12552}#
+ #{mod\ 12553}#
+ #{for-car?\ 12554}#)
+ (if (symbol? #{e\ 12548}#)
+ (let ((#{n\ 12566}#
+ (#{id-var-name\ 11208}#
+ #{e\ 12548}#
+ #{w\ 12550}#)))
+ (let ((#{b\ 12568}#
+ (#{lookup\ 11145}#
+ #{n\ 12566}#
+ #{r\ 12549}#
+ #{mod\ 12553}#)))
+ (let ((#{type\ 12570}#
+ (#{binding-type\ 11134}# #{b\ 12568}#)))
+ (if (memv #{type\ 12570}# (quote (lexical)))
(values
- #{type\ 1641}#
- (#{binding-value\ 207}# #{b\ 1639}#)
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (if (memv #{type\ 1641}# (quote (global)))
+ #{type\ 12570}#
+ (#{binding-value\ 11136}# #{b\ 12568}#)
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (if (memv #{type\ 12570}# (quote (global)))
(values
- #{type\ 1641}#
- #{n\ 1637}#
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (if (memv #{type\ 1641}# (quote (macro)))
- (if #{for-car?\ 1625}#
+ #{type\ 12570}#
+ #{n\ 12566}#
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (if (memv #{type\ 12570}# (quote (macro)))
+ (if #{for-car?\ 12554}#
(values
- #{type\ 1641}#
- (#{binding-value\ 207}# #{b\ 1639}#)
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (#{syntax-type\ 303}#
- (#{chi-macro\ 313}#
- (#{binding-value\ 207}# #{b\ 1639}#)
- #{e\ 1619}#
- #{r\ 1620}#
- #{w\ 1621}#
- #{rib\ 1623}#
- #{mod\ 1624}#)
- #{r\ 1620}#
+ #{type\ 12570}#
+ (#{binding-value\ 11136}# #{b\ 12568}#)
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (#{syntax-type\ 11232}#
+ (#{chi-macro\ 11242}#
+ (#{binding-value\ 11136}# #{b\ 12568}#)
+ #{e\ 12548}#
+ #{r\ 12549}#
+ #{w\ 12550}#
+ #{rib\ 12552}#
+ #{mod\ 12553}#)
+ #{r\ 12549}#
'(())
- #{s\ 1622}#
- #{rib\ 1623}#
- #{mod\ 1624}#
+ #{s\ 12551}#
+ #{rib\ 12552}#
+ #{mod\ 12553}#
#f))
(values
- #{type\ 1641}#
- (#{binding-value\ 207}# #{b\ 1639}#)
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)))))))
- (if (pair? #{e\ 1619}#)
- (let ((#{first\ 1650}# (car #{e\ 1619}#)))
+ #{type\ 12570}#
+ (#{binding-value\ 11136}# #{b\ 12568}#)
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)))))))
+ (if (pair? #{e\ 12548}#)
+ (let ((#{first\ 12579}# (car #{e\ 12548}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 303}#
- #{first\ 1650}#
- #{r\ 1620}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{rib\ 1623}#
- #{mod\ 1624}#
+ (#{syntax-type\ 11232}#
+ #{first\ 12579}#
+ #{r\ 12549}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{rib\ 12552}#
+ #{mod\ 12553}#
#t))
- (lambda (#{ftype\ 1651}#
- #{fval\ 1652}#
- #{fe\ 1653}#
- #{fw\ 1654}#
- #{fs\ 1655}#
- #{fmod\ 1656}#)
- (if (memv #{ftype\ 1651}# (quote (lexical)))
+ (lambda (#{ftype\ 12580}#
+ #{fval\ 12581}#
+ #{fe\ 12582}#
+ #{fw\ 12583}#
+ #{fs\ 12584}#
+ #{fmod\ 12585}#)
+ (if (memv #{ftype\ 12580}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 1652}#
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (if (memv #{ftype\ 1651}# (quote (global)))
+ #{fval\ 12581}#
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (if (memv #{ftype\ 12580}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 184}#
- #{fval\ 1652}#
- #{w\ 1621}#
- #{fmod\ 1656}#)
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (if (memv #{ftype\ 1651}# (quote (macro)))
- (#{syntax-type\ 303}#
- (#{chi-macro\ 313}#
- #{fval\ 1652}#
- #{e\ 1619}#
- #{r\ 1620}#
- #{w\ 1621}#
- #{rib\ 1623}#
- #{mod\ 1624}#)
- #{r\ 1620}#
+ (#{make-syntax-object\ 11113}#
+ #{fval\ 12581}#
+ #{w\ 12550}#
+ #{fmod\ 12585}#)
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (if (memv #{ftype\ 12580}# (quote (macro)))
+ (#{syntax-type\ 11232}#
+ (#{chi-macro\ 11242}#
+ #{fval\ 12581}#
+ #{e\ 12548}#
+ #{r\ 12549}#
+ #{w\ 12550}#
+ #{rib\ 12552}#
+ #{mod\ 12553}#)
+ #{r\ 12549}#
'(())
- #{s\ 1622}#
- #{rib\ 1623}#
- #{mod\ 1624}#
- #{for-car?\ 1625}#)
- (if (memv #{ftype\ 1651}# (quote (module-ref)))
+ #{s\ 12551}#
+ #{rib\ 12552}#
+ #{mod\ 12553}#
+ #{for-car?\ 12554}#)
+ (if (memv #{ftype\ 12580}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{fval\ 1652}#
- #{e\ 1619}#
- #{r\ 1620}#
- #{w\ 1621}#))
- (lambda (#{e\ 1668}#
- #{r\ 1669}#
- #{w\ 1670}#
- #{s\ 1671}#
- #{mod\ 1672}#)
- (#{syntax-type\ 303}#
- #{e\ 1668}#
- #{r\ 1669}#
- #{w\ 1670}#
- #{s\ 1671}#
- #{rib\ 1623}#
- #{mod\ 1672}#
- #{for-car?\ 1625}#)))
- (if (memv #{ftype\ 1651}# (quote (core)))
+ (#{fval\ 12581}#
+ #{e\ 12548}#
+ #{r\ 12549}#
+ #{w\ 12550}#))
+ (lambda (#{e\ 12597}#
+ #{r\ 12598}#
+ #{w\ 12599}#
+ #{s\ 12600}#
+ #{mod\ 12601}#)
+ (#{syntax-type\ 11232}#
+ #{e\ 12597}#
+ #{r\ 12598}#
+ #{w\ 12599}#
+ #{s\ 12600}#
+ #{rib\ 12552}#
+ #{mod\ 12601}#
+ #{for-car?\ 12554}#)))
+ (if (memv #{ftype\ 12580}# (quote (core)))
(values
'core-form
- #{fval\ 1652}#
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (if (memv #{ftype\ 1651}#
+ #{fval\ 12581}#
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (if (memv #{ftype\ 12580}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 1652}#
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (if (memv #{ftype\ 1651}# (quote (begin)))
+ #{fval\ 12581}#
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (if (memv #{ftype\ 12580}#
+ '(begin))
(values
'begin-form
#f
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (if (memv #{ftype\ 1651}#
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (if (memv #{ftype\ 12580}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
- (if (memv #{ftype\ 1651}#
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
+ (if (memv #{ftype\ 12580}#
'(define))
- ((lambda (#{tmp\ 1683}#)
- ((lambda (#{tmp\ 1684}#)
- (if (if #{tmp\ 1684}#
- (apply (lambda (#{_\
1688}#
- #{name\
1689}#
- #{val\
1690}#)
- (#{id?\ 222}#
- #{name\
1689}#))
- #{tmp\ 1684}#)
+ ((lambda (#{tmp\ 12612}#)
+ ((lambda (#{tmp\ 12613}#)
+ (if (if #{tmp\ 12613}#
+ (apply (lambda (#{_\
12617}#
+ #{name\
12618}#
+ #{val\
12619}#)
+ (#{id?\ 11151}#
+ #{name\
12618}#))
+ #{tmp\ 12613}#)
#f)
- (apply (lambda (#{_\ 1694}#
- #{name\
1695}#
- #{val\
1696}#)
+ (apply (lambda (#{_\ 12623}#
+ #{name\
12624}#
+ #{val\
12625}#)
(values
'define-form
- #{name\ 1695}#
- #{val\ 1696}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#))
- #{tmp\ 1684}#)
- ((lambda (#{tmp\ 1697}#)
- (if (if #{tmp\ 1697}#
- (apply (lambda
(#{_\ 1703}#
-
#{name\ 1704}#
-
#{args\ 1705}#
-
#{e1\ 1706}#
-
#{e2\ 1707}#)
- (if
(#{id?\ 222}#
-
#{name\ 1704}#)
-
(#{valid-bound-ids?\ 285}#
-
(#{lambda-var-list\ 337}#
-
#{args\ 1705}#))
+ #{name\ 12624}#
+ #{val\ 12625}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#))
+ #{tmp\ 12613}#)
+ ((lambda (#{tmp\ 12626}#)
+ (if (if #{tmp\ 12626}#
+ (apply (lambda
(#{_\ 12632}#
+
#{name\ 12633}#
+
#{args\ 12634}#
+
#{e1\ 12635}#
+
#{e2\ 12636}#)
+ (if
(#{id?\ 11151}#
+
#{name\ 12633}#)
+
(#{valid-bound-ids?\ 11214}#
+
(#{lambda-var-list\ 11266}#
+
#{args\ 12634}#))
#f))
- #{tmp\
1697}#)
+ #{tmp\
12626}#)
#f)
- (apply (lambda (#{_\
1715}#
-
#{name\ 1716}#
-
#{args\ 1717}#
- #{e1\
1718}#
- #{e2\
1719}#)
+ (apply (lambda (#{_\
12644}#
+
#{name\ 12645}#
+
#{args\ 12646}#
+ #{e1\
12647}#
+ #{e2\
12648}#)
(values
'define-form
- (#{wrap\
291}#
- #{name\
1716}#
- #{w\
1621}#
- #{mod\
1624}#)
-
(#{decorate-source\ 140}#
+ (#{wrap\
11220}#
+ #{name\
12645}#
+ #{w\
12550}#
+ #{mod\
12553}#)
+
(#{decorate-source\ 11069}#
(cons
'#(syntax-object
lambda
((top)
@@ -3643,11 +3665,11 @@
(top)
(top)
(top))
-
#("i1710"
-
"i1711"
-
"i1712"
-
"i1713"
-
"i1714"))
+
#("i12639"
+
"i12640"
+
"i12641"
+
"i12642"
+
"i12643"))
#(ribcage
()
()
@@ -3669,12 +3691,12 @@
(top)
(top)
(top))
-
#("i1657"
-
"i1658"
-
"i1659"
-
"i1660"
-
"i1661"
-
"i1662"))
+
#("i12586"
+
"i12587"
+
"i12588"
+
"i12589"
+
"i12590"
+
"i12591"))
#(ribcage
()
()
@@ -3682,7 +3704,7 @@
#(ribcage
#(first)
#((top))
-
#("i1649"))
+
#("i12578"))
#(ribcage
()
()
@@ -3710,13 +3732,13 @@
(top)
(top)
(top))
-
#("i1626"
-
"i1627"
-
"i1628"
-
"i1629"
-
"i1630"
-
"i1631"
-
"i1632"))
+
#("i12555"
+
"i12556"
+
"i12557"
+
"i12558"
+
"i12559"
+
"i12560"
+
"i12561"))
#(ribcage
(lambda-var-list
gen-var
@@ -3834,8 +3856,7 @@
fx=
fx-
fx+
-
*mode*
-
noexpand)
+
*mode*)
((top)
(top)
(top)
@@ -3952,162 +3973,160 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i278"
-
"i276"
-
"i274"
-
"i272"
-
"i270"
-
"i268"
-
"i266"
-
"i265"
-
"i264"
-
"i262"
-
"i261"
-
"i260"
-
"i259"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i239"
-
"i237"
-
"i236"
-
"i235"
-
"i234"
-
"i233"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i208"
-
"i206"
-
"i204"
-
"i203"
-
"i202"
-
"i200"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"
-
"i169"
-
"i167"
-
"i165"
-
"i163"
-
"i161"
-
"i159"
-
"i157"
-
"i155"
-
"i153"
-
"i151"
-
"i149"
-
"i147"
-
"i145"
-
"i143"
-
"i141"
-
"i139"
-
"i137"
-
"i135"
-
"i134"
-
"i132"
-
"i130"
-
"i128"
-
"i126"
-
"i124"
-
"i122"
-
"i120"
-
"i118"))
+
("i11265"
+
"i11263"
+
"i11261"
+
"i11259"
+
"i11257"
+
"i11255"
+
"i11253"
+
"i11251"
+
"i11249"
+
"i11247"
+
"i11245"
+
"i11243"
+
"i11241"
+
"i11239"
+
"i11237"
+
"i11235"
+
"i11233"
+
"i11231"
+
"i11229"
+
"i11227"
+
"i11225"
+
"i11223"
+
"i11221"
+
"i11219"
+
"i11217"
+
"i11215"
+
"i11213"
+
"i11211"
+
"i11209"
+
"i11207"
+
"i11205"
+
"i11203"
+
"i11201"
+
"i11199"
+
"i11197"
+
"i11195"
+
"i11194"
+
"i11193"
+
"i11191"
+
"i11190"
+
"i11189"
+
"i11188"
+
"i11187"
+
"i11185"
+
"i11183"
+
"i11181"
+
"i11179"
+
"i11177"
+
"i11175"
+
"i11173"
+
"i11171"
+
"i11168"
+
"i11166"
+
"i11165"
+
"i11164"
+
"i11163"
+
"i11162"
+
"i11161"
+
"i11159"
+
"i11157"
+
"i11155"
+
"i11153"
+
"i11152"
+
"i11150"
+
"i11148"
+
"i11146"
+
"i11144"
+
"i11142"
+
"i11140"
+
"i11138"
+
"i11137"
+
"i11135"
+
"i11133"
+
"i11132"
+
"i11131"
+
"i11129"
+
"i11128"
+
"i11126"
+
"i11124"
+
"i11122"
+
"i11120"
+
"i11118"
+
"i11116"
+
"i11114"
+
"i11112"
+
"i11110"
+
"i11108"
+
"i11106"
+
"i11104"
+
"i11102"
+
"i11100"
+
"i11098"
+
"i11096"
+
"i11094"
+
"i11092"
+
"i11090"
+
"i11088"
+
"i11086"
+
"i11084"
+
"i11082"
+
"i11080"
+
"i11078"
+
"i11076"
+
"i11074"
+
"i11072"
+
"i11070"
+
"i11068"
+
"i11066"
+
"i11064"
+
"i11063"
+
"i11061"
+
"i11059"
+
"i11057"
+
"i11055"
+
"i11053"
+
"i11051"
+
"i11049"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i21"
-
"i19")))
+
("i10952"
+
"i10950")))
(hygiene
guile))
-
(#{wrap\ 291}#
-
(cons #{args\ 1717}#
-
(cons #{e1\ 1718}#
-
#{e2\ 1719}#))
-
#{w\ 1621}#
-
#{mod\ 1624}#))
- #{s\
1622}#)
+
(#{wrap\ 11220}#
+
(cons #{args\ 12646}#
+
(cons #{e1\ 12647}#
+
#{e2\ 12648}#))
+
#{w\ 12550}#
+
#{mod\ 12553}#))
+ #{s\
12551}#)
'(())
- #{s\ 1622}#
- #{mod\
1624}#))
- #{tmp\ 1697}#)
- ((lambda (#{tmp\
1722}#)
- (if (if #{tmp\
1722}#
- (apply
(lambda (#{_\ 1725}#
-
#{name\ 1726}#)
-
(#{id?\ 222}#
-
#{name\ 1726}#))
- #{tmp\
1722}#)
+ #{s\ 12551}#
+ #{mod\
12553}#))
+ #{tmp\ 12626}#)
+ ((lambda (#{tmp\
12651}#)
+ (if (if #{tmp\
12651}#
+ (apply
(lambda (#{_\ 12654}#
+
#{name\ 12655}#)
+
(#{id?\ 11151}#
+
#{name\ 12655}#))
+ #{tmp\
12651}#)
#f)
- (apply (lambda
(#{_\ 1729}#
-
#{name\ 1730}#)
+ (apply (lambda
(#{_\ 12658}#
+
#{name\ 12659}#)
(values
'define-form
-
(#{wrap\ 291}#
-
#{name\ 1730}#
- #{w\
1621}#
-
#{mod\ 1624}#)
+
(#{wrap\ 11220}#
+
#{name\ 12659}#
+ #{w\
12550}#
+
#{mod\ 12553}#)
'(#(syntax-object
if
((top)
@@ -4116,8 +4135,8 @@
name)
#((top)
(top))
-
#("i1727"
-
"i1728"))
+
#("i12656"
+
"i12657"))
#(ribcage
()
()
@@ -4139,12 +4158,12 @@
(top)
(top)
(top))
-
#("i1657"
-
"i1658"
-
"i1659"
-
"i1660"
-
"i1661"
-
"i1662"))
+
#("i12586"
+
"i12587"
+
"i12588"
+
"i12589"
+
"i12590"
+
"i12591"))
#(ribcage
()
()
@@ -4152,7 +4171,7 @@
#(ribcage
#(first)
#((top))
-
#("i1649"))
+
#("i12578"))
#(ribcage
()
()
@@ -4180,13 +4199,13 @@
(top)
(top)
(top))
-
#("i1626"
-
"i1627"
-
"i1628"
-
"i1629"
-
"i1630"
-
"i1631"
-
"i1632"))
+
#("i12555"
+
"i12556"
+
"i12557"
+
"i12558"
+
"i12559"
+
"i12560"
+
"i12561"))
#(ribcage
(lambda-var-list
gen-var
@@ -4304,8 +4323,7 @@
fx=
fx-
fx+
-
*mode*
-
noexpand)
+
*mode*)
((top)
(top)
(top)
@@ -4422,133 +4440,131 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i278"
-
"i276"
-
"i274"
-
"i272"
-
"i270"
-
"i268"
-
"i266"
-
"i265"
-
"i264"
-
"i262"
-
"i261"
-
"i260"
-
"i259"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i239"
-
"i237"
-
"i236"
-
"i235"
-
"i234"
-
"i233"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i208"
-
"i206"
-
"i204"
-
"i203"
-
"i202"
-
"i200"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"
-
"i169"
-
"i167"
-
"i165"
-
"i163"
-
"i161"
-
"i159"
-
"i157"
-
"i155"
-
"i153"
-
"i151"
-
"i149"
-
"i147"
-
"i145"
-
"i143"
-
"i141"
-
"i139"
-
"i137"
-
"i135"
-
"i134"
-
"i132"
-
"i130"
-
"i128"
-
"i126"
-
"i124"
-
"i122"
-
"i120"
-
"i118"))
+
("i11265"
+
"i11263"
+
"i11261"
+
"i11259"
+
"i11257"
+
"i11255"
+
"i11253"
+
"i11251"
+
"i11249"
+
"i11247"
+
"i11245"
+
"i11243"
+
"i11241"
+
"i11239"
+
"i11237"
+
"i11235"
+
"i11233"
+
"i11231"
+
"i11229"
+
"i11227"
+
"i11225"
+
"i11223"
+
"i11221"
+
"i11219"
+
"i11217"
+
"i11215"
+
"i11213"
+
"i11211"
+
"i11209"
+
"i11207"
+
"i11205"
+
"i11203"
+
"i11201"
+
"i11199"
+
"i11197"
+
"i11195"
+
"i11194"
+
"i11193"
+
"i11191"
+
"i11190"
+
"i11189"
+
"i11188"
+
"i11187"
+
"i11185"
+
"i11183"
+
"i11181"
+
"i11179"
+
"i11177"
+
"i11175"
+
"i11173"
+
"i11171"
+
"i11168"
+
"i11166"
+
"i11165"
+
"i11164"
+
"i11163"
+
"i11162"
+
"i11161"
+
"i11159"
+
"i11157"
+
"i11155"
+
"i11153"
+
"i11152"
+
"i11150"
+
"i11148"
+
"i11146"
+
"i11144"
+
"i11142"
+
"i11140"
+
"i11138"
+
"i11137"
+
"i11135"
+
"i11133"
+
"i11132"
+
"i11131"
+
"i11129"
+
"i11128"
+
"i11126"
+
"i11124"
+
"i11122"
+
"i11120"
+
"i11118"
+
"i11116"
+
"i11114"
+
"i11112"
+
"i11110"
+
"i11108"
+
"i11106"
+
"i11104"
+
"i11102"
+
"i11100"
+
"i11098"
+
"i11096"
+
"i11094"
+
"i11092"
+
"i11090"
+
"i11088"
+
"i11086"
+
"i11084"
+
"i11082"
+
"i11080"
+
"i11078"
+
"i11076"
+
"i11074"
+
"i11072"
+
"i11070"
+
"i11068"
+
"i11066"
+
"i11064"
+
"i11063"
+
"i11061"
+
"i11059"
+
"i11057"
+
"i11055"
+
"i11053"
+
"i11051"
+
"i11049"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i21"
-
"i19")))
+
("i10952"
+
"i10950")))
(hygiene
guile))
#(syntax-object
@@ -4559,8 +4575,8 @@
name)
#((top)
(top))
-
#("i1727"
-
"i1728"))
+
#("i12656"
+
"i12657"))
#(ribcage
()
()
@@ -4582,12 +4598,12 @@
(top)
(top)
(top))
-
#("i1657"
-
"i1658"
-
"i1659"
-
"i1660"
-
"i1661"
-
"i1662"))
+
#("i12586"
+
"i12587"
+
"i12588"
+
"i12589"
+
"i12590"
+
"i12591"))
#(ribcage
()
()
@@ -4595,7 +4611,7 @@
#(ribcage
#(first)
#((top))
-
#("i1649"))
+
#("i12578"))
#(ribcage
()
()
@@ -4623,13 +4639,13 @@
(top)
(top)
(top))
-
#("i1626"
-
"i1627"
-
"i1628"
-
"i1629"
-
"i1630"
-
"i1631"
-
"i1632"))
+
#("i12555"
+
"i12556"
+
"i12557"
+
"i12558"
+
"i12559"
+
"i12560"
+
"i12561"))
#(ribcage
(lambda-var-list
gen-var
@@ -4747,8 +4763,7 @@
fx=
fx-
fx+
-
*mode*
-
noexpand)
+
*mode*)
((top)
(top)
(top)
@@ -4865,133 +4880,131 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i278"
-
"i276"
-
"i274"
-
"i272"
-
"i270"
-
"i268"
-
"i266"
-
"i265"
-
"i264"
-
"i262"
-
"i261"
-
"i260"
-
"i259"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i239"
-
"i237"
-
"i236"
-
"i235"
-
"i234"
-
"i233"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i208"
-
"i206"
-
"i204"
-
"i203"
-
"i202"
-
"i200"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"
-
"i169"
-
"i167"
-
"i165"
-
"i163"
-
"i161"
-
"i159"
-
"i157"
-
"i155"
-
"i153"
-
"i151"
-
"i149"
-
"i147"
-
"i145"
-
"i143"
-
"i141"
-
"i139"
-
"i137"
-
"i135"
-
"i134"
-
"i132"
-
"i130"
-
"i128"
-
"i126"
-
"i124"
-
"i122"
-
"i120"
-
"i118"))
+
("i11265"
+
"i11263"
+
"i11261"
+
"i11259"
+
"i11257"
+
"i11255"
+
"i11253"
+
"i11251"
+
"i11249"
+
"i11247"
+
"i11245"
+
"i11243"
+
"i11241"
+
"i11239"
+
"i11237"
+
"i11235"
+
"i11233"
+
"i11231"
+
"i11229"
+
"i11227"
+
"i11225"
+
"i11223"
+
"i11221"
+
"i11219"
+
"i11217"
+
"i11215"
+
"i11213"
+
"i11211"
+
"i11209"
+
"i11207"
+
"i11205"
+
"i11203"
+
"i11201"
+
"i11199"
+
"i11197"
+
"i11195"
+
"i11194"
+
"i11193"
+
"i11191"
+
"i11190"
+
"i11189"
+
"i11188"
+
"i11187"
+
"i11185"
+
"i11183"
+
"i11181"
+
"i11179"
+
"i11177"
+
"i11175"
+
"i11173"
+
"i11171"
+
"i11168"
+
"i11166"
+
"i11165"
+
"i11164"
+
"i11163"
+
"i11162"
+
"i11161"
+
"i11159"
+
"i11157"
+
"i11155"
+
"i11153"
+
"i11152"
+
"i11150"
+
"i11148"
+
"i11146"
+
"i11144"
+
"i11142"
+
"i11140"
+
"i11138"
+
"i11137"
+
"i11135"
+
"i11133"
+
"i11132"
+
"i11131"
+
"i11129"
+
"i11128"
+
"i11126"
+
"i11124"
+
"i11122"
+
"i11120"
+
"i11118"
+
"i11116"
+
"i11114"
+
"i11112"
+
"i11110"
+
"i11108"
+
"i11106"
+
"i11104"
+
"i11102"
+
"i11100"
+
"i11098"
+
"i11096"
+
"i11094"
+
"i11092"
+
"i11090"
+
"i11088"
+
"i11086"
+
"i11084"
+
"i11082"
+
"i11080"
+
"i11078"
+
"i11076"
+
"i11074"
+
"i11072"
+
"i11070"
+
"i11068"
+
"i11066"
+
"i11064"
+
"i11063"
+
"i11061"
+
"i11059"
+
"i11057"
+
"i11055"
+
"i11053"
+
"i11051"
+
"i11049"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i21"
-
"i19")))
+
("i10952"
+
"i10950")))
(hygiene
guile))
#(syntax-object
@@ -5002,8 +5015,8 @@
name)
#((top)
(top))
-
#("i1727"
-
"i1728"))
+
#("i12656"
+
"i12657"))
#(ribcage
()
()
@@ -5025,12 +5038,12 @@
(top)
(top)
(top))
-
#("i1657"
-
"i1658"
-
"i1659"
-
"i1660"
-
"i1661"
-
"i1662"))
+
#("i12586"
+
"i12587"
+
"i12588"
+
"i12589"
+
"i12590"
+
"i12591"))
#(ribcage
()
()
@@ -5038,7 +5051,7 @@
#(ribcage
#(first)
#((top))
-
#("i1649"))
+
#("i12578"))
#(ribcage
()
()
@@ -5066,13 +5079,13 @@
(top)
(top)
(top))
-
#("i1626"
-
"i1627"
-
"i1628"
-
"i1629"
-
"i1630"
-
"i1631"
-
"i1632"))
+
#("i12555"
+
"i12556"
+
"i12557"
+
"i12558"
+
"i12559"
+
"i12560"
+
"i12561"))
#(ribcage
(lambda-var-list
gen-var
@@ -5190,8 +5203,7 @@
fx=
fx-
fx+
-
*mode*
-
noexpand)
+
*mode*)
((top)
(top)
(top)
@@ -5308,234 +5320,233 @@
(top)
(top)
(top)
-
(top)
(top))
-
("i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i302"
-
"i300"
-
"i298"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i278"
-
"i276"
-
"i274"
-
"i272"
-
"i270"
-
"i268"
-
"i266"
-
"i265"
-
"i264"
-
"i262"
-
"i261"
-
"i260"
-
"i259"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"
-
"i242"
-
"i239"
-
"i237"
-
"i236"
-
"i235"
-
"i234"
-
"i233"
-
"i232"
-
"i230"
-
"i228"
-
"i226"
-
"i224"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i208"
-
"i206"
-
"i204"
-
"i203"
-
"i202"
-
"i200"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i173"
-
"i171"
-
"i169"
-
"i167"
-
"i165"
-
"i163"
-
"i161"
-
"i159"
-
"i157"
-
"i155"
-
"i153"
-
"i151"
-
"i149"
-
"i147"
-
"i145"
-
"i143"
-
"i141"
-
"i139"
-
"i137"
-
"i135"
-
"i134"
-
"i132"
-
"i130"
-
"i128"
-
"i126"
-
"i124"
-
"i122"
-
"i120"
-
"i118"))
+
("i11265"
+
"i11263"
+
"i11261"
+
"i11259"
+
"i11257"
+
"i11255"
+
"i11253"
+
"i11251"
+
"i11249"
+
"i11247"
+
"i11245"
+
"i11243"
+
"i11241"
+
"i11239"
+
"i11237"
+
"i11235"
+
"i11233"
+
"i11231"
+
"i11229"
+
"i11227"
+
"i11225"
+
"i11223"
+
"i11221"
+
"i11219"
+
"i11217"
+
"i11215"
+
"i11213"
+
"i11211"
+
"i11209"
+
"i11207"
+
"i11205"
+
"i11203"
+
"i11201"
+
"i11199"
+
"i11197"
+
"i11195"
+
"i11194"
+
"i11193"
+
"i11191"
+
"i11190"
+
"i11189"
+
"i11188"
+
"i11187"
+
"i11185"
+
"i11183"
+
"i11181"
+
"i11179"
+
"i11177"
+
"i11175"
+
"i11173"
+
"i11171"
+
"i11168"
+
"i11166"
+
"i11165"
+
"i11164"
+
"i11163"
+
"i11162"
+
"i11161"
+
"i11159"
+
"i11157"
+
"i11155"
+
"i11153"
+
"i11152"
+
"i11150"
+
"i11148"
+
"i11146"
+
"i11144"
+
"i11142"
+
"i11140"
+
"i11138"
+
"i11137"
+
"i11135"
+
"i11133"
+
"i11132"
+
"i11131"
+
"i11129"
+
"i11128"
+
"i11126"
+
"i11124"
+
"i11122"
+
"i11120"
+
"i11118"
+
"i11116"
+
"i11114"
+
"i11112"
+
"i11110"
+
"i11108"
+
"i11106"
+
"i11104"
+
"i11102"
+
"i11100"
+
"i11098"
+
"i11096"
+
"i11094"
+
"i11092"
+
"i11090"
+
"i11088"
+
"i11086"
+
"i11084"
+
"i11082"
+
"i11080"
+
"i11078"
+
"i11076"
+
"i11074"
+
"i11072"
+
"i11070"
+
"i11068"
+
"i11066"
+
"i11064"
+
"i11063"
+
"i11061"
+
"i11059"
+
"i11057"
+
"i11055"
+
"i11053"
+
"i11051"
+
"i11049"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i21"
-
"i19")))
+
("i10952"
+
"i10950")))
(hygiene
guile)))
'(())
- #{s\
1622}#
- #{mod\
1624}#))
- #{tmp\
1722}#)
+ #{s\
12551}#
+ #{mod\
12553}#))
+ #{tmp\
12651}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 1683}#)))
+ #{tmp\
12612}#)))
($sc-dispatch
- #{tmp\ 1683}#
+ #{tmp\ 12612}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1683}#
+ #{tmp\ 12612}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1683}#
+ #{tmp\ 12612}#
'(any any any))))
- #{e\ 1619}#)
- (if (memv #{ftype\ 1651}#
+ #{e\ 12548}#)
+ (if (memv #{ftype\ 12580}#
'(define-syntax))
- ((lambda (#{tmp\ 1733}#)
- ((lambda (#{tmp\ 1734}#)
- (if (if #{tmp\ 1734}#
- (apply (lambda (#{_\
1738}#
-
#{name\ 1739}#
-
#{val\ 1740}#)
- (#{id?\ 222}#
- #{name\
1739}#))
- #{tmp\ 1734}#)
+ ((lambda (#{tmp\ 12662}#)
+ ((lambda (#{tmp\ 12663}#)
+ (if (if #{tmp\ 12663}#
+ (apply (lambda (#{_\
12667}#
+
#{name\ 12668}#
+
#{val\ 12669}#)
+ (#{id?\
11151}#
+ #{name\
12668}#))
+ #{tmp\ 12663}#)
#f)
- (apply (lambda (#{_\
1744}#
- #{name\
1745}#
- #{val\
1746}#)
+ (apply (lambda (#{_\
12673}#
+ #{name\
12674}#
+ #{val\
12675}#)
(values
'define-syntax-form
- #{name\ 1745}#
- #{val\ 1746}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#))
- #{tmp\ 1734}#)
+ #{name\ 12674}#
+ #{val\ 12675}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\
12553}#))
+ #{tmp\ 12663}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1733}#)))
+ #{tmp\ 12662}#)))
($sc-dispatch
- #{tmp\ 1733}#
+ #{tmp\ 12662}#
'(any any any))))
- #{e\ 1619}#)
+ #{e\ 12548}#)
(values
'call
#f
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#))))))))))))))
- (if (#{syntax-object?\ 186}# #{e\ 1619}#)
- (#{syntax-type\ 303}#
- (#{syntax-object-expression\ 188}# #{e\ 1619}#)
- #{r\ 1620}#
- (#{join-wraps\ 273}#
- #{w\ 1621}#
- (#{syntax-object-wrap\ 190}# #{e\ 1619}#))
- #{s\ 1622}#
- #{rib\ 1623}#
- (let ((#{t\ 1752}#
- (#{syntax-object-module\ 192}# #{e\ 1619}#)))
- (if #{t\ 1752}# #{t\ 1752}# #{mod\ 1624}#))
- #{for-car?\ 1625}#)
- (if (self-evaluating? #{e\ 1619}#)
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#))))))))))))))
+ (if (#{syntax-object?\ 11115}# #{e\ 12548}#)
+ (#{syntax-type\ 11232}#
+ (#{syntax-object-expression\ 11117}#
+ #{e\ 12548}#)
+ #{r\ 12549}#
+ (#{join-wraps\ 11202}#
+ #{w\ 12550}#
+ (#{syntax-object-wrap\ 11119}# #{e\ 12548}#))
+ #{s\ 12551}#
+ #{rib\ 12552}#
+ (let ((#{t\ 12681}#
+ (#{syntax-object-module\ 11121}# #{e\ 12548}#)))
+ (if #{t\ 12681}# #{t\ 12681}# #{mod\ 12553}#))
+ #{for-car?\ 12554}#)
+ (if (self-evaluating? #{e\ 12548}#)
(values
'constant
#f
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)
(values
'other
#f
- #{e\ 1619}#
- #{w\ 1621}#
- #{s\ 1622}#
- #{mod\ 1624}#)))))))
- (#{chi-when-list\ 301}#
- (lambda (#{e\ 1757}# #{when-list\ 1758}# #{w\ 1759}#)
- (letrec ((#{f\ 1766}#
- (lambda (#{when-list\ 1767}# #{situations\ 1768}#)
- (if (null? #{when-list\ 1767}#)
- #{situations\ 1768}#
- (#{f\ 1766}#
- (cdr #{when-list\ 1767}#)
- (cons (let ((#{x\ 1770}#
- (car #{when-list\ 1767}#)))
- (if (#{free-id=?\ 281}#
- #{x\ 1770}#
+ #{e\ 12548}#
+ #{w\ 12550}#
+ #{s\ 12551}#
+ #{mod\ 12553}#)))))))
+ (#{chi-when-list\ 11230}#
+ (lambda (#{e\ 12686}# #{when-list\ 12687}# #{w\ 12688}#)
+ (letrec ((#{f\ 12695}#
+ (lambda (#{when-list\ 12696}# #{situations\ 12697}#)
+ (if (null? #{when-list\ 12696}#)
+ #{situations\ 12697}#
+ (#{f\ 12695}#
+ (cdr #{when-list\ 12696}#)
+ (cons (let ((#{x\ 12699}#
+ (car #{when-list\ 12696}#)))
+ (if (#{free-id=?\ 11210}#
+ #{x\ 12699}#
'#(syntax-object
compile
((top)
@@ -5545,17 +5556,21 @@
#(ribcage
#(x)
#((top))
- #("i1769"))
+ #("i12698"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1763" "i1764" "i1765"))
+ #("i12692"
+ "i12693"
+ "i12694"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1760" "i1761" "i1762"))
+ #("i12689"
+ "i12690"
+ "i12691"))
#(ribcage
(lambda-var-list
gen-var
@@ -5673,8 +5688,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -5791,134 +5805,132 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952" "i10950")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 281}#
- #{x\ 1770}#
+ (if (#{free-id=?\ 11210}#
+ #{x\ 12699}#
'#(syntax-object
load
((top)
@@ -5928,21 +5940,21 @@
#(ribcage
#(x)
#((top))
- #("i1769"))
+ #("i12698"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1763"
- "i1764"
- "i1765"))
+ #("i12692"
+ "i12693"
+ "i12694"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1760"
- "i1761"
- "i1762"))
+ #("i12689"
+ "i12690"
+ "i12691"))
#(ribcage
(lambda-var-list
gen-var
@@ -6060,8 +6072,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -6178,135 +6189,133 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952" "i10950")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 281}#
- #{x\ 1770}#
+ (if (#{free-id=?\ 11210}#
+ #{x\ 12699}#
'#(syntax-object
eval
((top)
@@ -6316,23 +6325,23 @@
#(ribcage
#(x)
#((top))
- #("i1769"))
+ #("i12698"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i1763"
- "i1764"
- "i1765"))
+ #("i12692"
+ "i12693"
+ "i12694"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1760"
- "i1761"
- "i1762"))
+ #("i12689"
+ "i12690"
+ "i12691"))
#(ribcage
(lambda-var-list
gen-var
@@ -6450,8 +6459,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -6568,135 +6576,133 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952" "i10950")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 281}#
- #{x\ 1770}#
+ (if (#{free-id=?\ 11210}#
+ #{x\ 12699}#
'#(syntax-object
expand
((top)
@@ -6706,23 +6712,23 @@
#(ribcage
#(x)
#((top))
- #("i1769"))
+ #("i12698"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i1763"
- "i1764"
- "i1765"))
+ #("i12692"
+ "i12693"
+ "i12694"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1760"
- "i1761"
- "i1762"))
+ #("i12689"
+ "i12690"
+ "i12691"))
#(ribcage
(lambda-var-list
gen-var
@@ -6840,8 +6846,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -6958,1006 +6963,1045 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952" "i10950")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1757}#
- (#{wrap\ 291}#
- #{x\ 1770}#
- #{w\ 1759}#
+ #{e\ 12686}#
+ (#{wrap\ 11220}#
+ #{x\ 12699}#
+ #{w\ 12688}#
#f)))))))
- #{situations\ 1768}#))))))
- (#{f\ 1766}# #{when-list\ 1758}# (quote ())))))
- (#{chi-install-global\ 299}#
- (lambda (#{name\ 1780}# #{e\ 1781}#)
- (#{build-global-definition\ 162}#
+ #{situations\ 12697}#))))))
+ (#{f\ 12695}# #{when-list\ 12687}# (quote ())))))
+ (#{chi-install-global\ 11228}#
+ (lambda (#{name\ 12709}# #{e\ 12710}#)
+ (#{build-global-definition\ 11091}#
#f
- #{name\ 1780}#
- (#{build-application\ 144}#
+ #{name\ 12709}#
+ (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}#
+ (#{build-primref\ 11099}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 172}# #f #{name\ 1780}#)
- (#{build-data\ 172}# #f (quote macro))
- (#{build-application\ 144}#
+ (list (#{build-data\ 11101}# #f #{name\ 12709}#)
+ (#{build-data\ 11101}# #f (quote macro))
+ (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}# #f (quote cons))
- (list #{e\ 1781}#
- (#{build-application\ 144}#
+ (#{build-primref\ 11099}# #f (quote cons))
+ (list #{e\ 12710}#
+ (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}#
+ (#{build-primref\ 11099}#
#f
'module-name)
- (list (#{build-application\ 144}#
+ (list (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}#
+ (#{build-primref\ 11099}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 297}#
- (lambda (#{body\ 1795}#
- #{r\ 1796}#
- #{w\ 1797}#
- #{s\ 1798}#
- #{m\ 1799}#
- #{esew\ 1800}#
- #{mod\ 1801}#)
- (#{build-sequence\ 174}#
- #{s\ 1798}#
- (letrec ((#{dobody\ 1817}#
- (lambda (#{body\ 1818}#
- #{r\ 1819}#
- #{w\ 1820}#
- #{m\ 1821}#
- #{esew\ 1822}#
- #{mod\ 1823}#
- #{out\ 1824}#)
- (if (null? #{body\ 1818}#)
- (reverse #{out\ 1824}#)
- (#{dobody\ 1817}#
- (cdr #{body\ 1818}#)
- #{r\ 1819}#
- #{w\ 1820}#
- #{m\ 1821}#
- #{esew\ 1822}#
- #{mod\ 1823}#
- (cons (#{chi-top\ 305}#
- (car #{body\ 1818}#)
- #{r\ 1819}#
- #{w\ 1820}#
- #{m\ 1821}#
- #{esew\ 1822}#
- #{mod\ 1823}#)
- #{out\ 1824}#))))))
- (#{dobody\ 1817}#
- #{body\ 1795}#
- #{r\ 1796}#
- #{w\ 1797}#
- #{m\ 1799}#
- #{esew\ 1800}#
- #{mod\ 1801}#
+ (#{chi-top-sequence\ 11226}#
+ (lambda (#{body\ 12724}#
+ #{r\ 12725}#
+ #{w\ 12726}#
+ #{s\ 12727}#
+ #{m\ 12728}#
+ #{esew\ 12729}#
+ #{mod\ 12730}#)
+ (#{build-sequence\ 11103}#
+ #{s\ 12727}#
+ (letrec ((#{dobody\ 12746}#
+ (lambda (#{body\ 12747}#
+ #{r\ 12748}#
+ #{w\ 12749}#
+ #{m\ 12750}#
+ #{esew\ 12751}#
+ #{mod\ 12752}#
+ #{out\ 12753}#)
+ (if (null? #{body\ 12747}#)
+ (reverse #{out\ 12753}#)
+ (#{dobody\ 12746}#
+ (cdr #{body\ 12747}#)
+ #{r\ 12748}#
+ #{w\ 12749}#
+ #{m\ 12750}#
+ #{esew\ 12751}#
+ #{mod\ 12752}#
+ (cons (#{chi-top\ 11234}#
+ (car #{body\ 12747}#)
+ #{r\ 12748}#
+ #{w\ 12749}#
+ #{m\ 12750}#
+ #{esew\ 12751}#
+ #{mod\ 12752}#)
+ #{out\ 12753}#))))))
+ (#{dobody\ 12746}#
+ #{body\ 12724}#
+ #{r\ 12725}#
+ #{w\ 12726}#
+ #{m\ 12728}#
+ #{esew\ 12729}#
+ #{mod\ 12730}#
'())))))
- (#{chi-sequence\ 295}#
- (lambda (#{body\ 1825}#
- #{r\ 1826}#
- #{w\ 1827}#
- #{s\ 1828}#
- #{mod\ 1829}#)
- (#{build-sequence\ 174}#
- #{s\ 1828}#
- (letrec ((#{dobody\ 1840}#
- (lambda (#{body\ 1841}#
- #{r\ 1842}#
- #{w\ 1843}#
- #{mod\ 1844}#)
- (if (null? #{body\ 1841}#)
+ (#{chi-sequence\ 11224}#
+ (lambda (#{body\ 12754}#
+ #{r\ 12755}#
+ #{w\ 12756}#
+ #{s\ 12757}#
+ #{mod\ 12758}#)
+ (#{build-sequence\ 11103}#
+ #{s\ 12757}#
+ (letrec ((#{dobody\ 12769}#
+ (lambda (#{body\ 12770}#
+ #{r\ 12771}#
+ #{w\ 12772}#
+ #{mod\ 12773}#)
+ (if (null? #{body\ 12770}#)
'()
- (let ((#{first\ 1846}#
- (#{chi\ 307}#
- (car #{body\ 1841}#)
- #{r\ 1842}#
- #{w\ 1843}#
- #{mod\ 1844}#)))
- (cons #{first\ 1846}#
- (#{dobody\ 1840}#
- (cdr #{body\ 1841}#)
- #{r\ 1842}#
- #{w\ 1843}#
- #{mod\ 1844}#)))))))
- (#{dobody\ 1840}#
- #{body\ 1825}#
- #{r\ 1826}#
- #{w\ 1827}#
- #{mod\ 1829}#)))))
- (#{source-wrap\ 293}#
- (lambda (#{x\ 1847}#
- #{w\ 1848}#
- #{s\ 1849}#
- #{defmod\ 1850}#)
- (#{wrap\ 291}#
- (#{decorate-source\ 140}#
- #{x\ 1847}#
- #{s\ 1849}#)
- #{w\ 1848}#
- #{defmod\ 1850}#)))
- (#{wrap\ 291}#
- (lambda (#{x\ 1855}# #{w\ 1856}# #{defmod\ 1857}#)
- (if (if (null? (#{wrap-marks\ 229}# #{w\ 1856}#))
- (null? (#{wrap-subst\ 231}# #{w\ 1856}#))
+ (let ((#{first\ 12775}#
+ (#{chi\ 11236}#
+ (car #{body\ 12770}#)
+ #{r\ 12771}#
+ #{w\ 12772}#
+ #{mod\ 12773}#)))
+ (cons #{first\ 12775}#
+ (#{dobody\ 12769}#
+ (cdr #{body\ 12770}#)
+ #{r\ 12771}#
+ #{w\ 12772}#
+ #{mod\ 12773}#)))))))
+ (#{dobody\ 12769}#
+ #{body\ 12754}#
+ #{r\ 12755}#
+ #{w\ 12756}#
+ #{mod\ 12758}#)))))
+ (#{source-wrap\ 11222}#
+ (lambda (#{x\ 12776}#
+ #{w\ 12777}#
+ #{s\ 12778}#
+ #{defmod\ 12779}#)
+ (#{wrap\ 11220}#
+ (#{decorate-source\ 11069}#
+ #{x\ 12776}#
+ #{s\ 12778}#)
+ #{w\ 12777}#
+ #{defmod\ 12779}#)))
+ (#{wrap\ 11220}#
+ (lambda (#{x\ 12784}# #{w\ 12785}# #{defmod\ 12786}#)
+ (if (if (null? (#{wrap-marks\ 11158}# #{w\ 12785}#))
+ (null? (#{wrap-subst\ 11160}# #{w\ 12785}#))
#f)
- #{x\ 1855}#
- (if (#{syntax-object?\ 186}# #{x\ 1855}#)
- (#{make-syntax-object\ 184}#
- (#{syntax-object-expression\ 188}# #{x\ 1855}#)
- (#{join-wraps\ 273}#
- #{w\ 1856}#
- (#{syntax-object-wrap\ 190}# #{x\ 1855}#))
- (#{syntax-object-module\ 192}# #{x\ 1855}#))
- (if (null? #{x\ 1855}#)
- #{x\ 1855}#
- (#{make-syntax-object\ 184}#
- #{x\ 1855}#
- #{w\ 1856}#
- #{defmod\ 1857}#))))))
- (#{bound-id-member?\ 289}#
- (lambda (#{x\ 1870}# #{list\ 1871}#)
- (if (not (null? #{list\ 1871}#))
- (let ((#{t\ 1878}#
- (#{bound-id=?\ 283}#
- #{x\ 1870}#
- (car #{list\ 1871}#))))
- (if #{t\ 1878}#
- #{t\ 1878}#
- (#{bound-id-member?\ 289}#
- #{x\ 1870}#
- (cdr #{list\ 1871}#))))
+ #{x\ 12784}#
+ (if (#{syntax-object?\ 11115}# #{x\ 12784}#)
+ (#{make-syntax-object\ 11113}#
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 12784}#)
+ (#{join-wraps\ 11202}#
+ #{w\ 12785}#
+ (#{syntax-object-wrap\ 11119}# #{x\ 12784}#))
+ (#{syntax-object-module\ 11121}# #{x\ 12784}#))
+ (if (null? #{x\ 12784}#)
+ #{x\ 12784}#
+ (#{make-syntax-object\ 11113}#
+ #{x\ 12784}#
+ #{w\ 12785}#
+ #{defmod\ 12786}#))))))
+ (#{bound-id-member?\ 11218}#
+ (lambda (#{x\ 12799}# #{list\ 12800}#)
+ (if (not (null? #{list\ 12800}#))
+ (let ((#{t\ 12807}#
+ (#{bound-id=?\ 11212}#
+ #{x\ 12799}#
+ (car #{list\ 12800}#))))
+ (if #{t\ 12807}#
+ #{t\ 12807}#
+ (#{bound-id-member?\ 11218}#
+ #{x\ 12799}#
+ (cdr #{list\ 12800}#))))
#f)))
- (#{distinct-bound-ids?\ 287}#
- (lambda (#{ids\ 1880}#)
- (letrec ((#{distinct?\ 1884}#
- (lambda (#{ids\ 1885}#)
- (let ((#{t\ 1888}# (null? #{ids\ 1885}#)))
- (if #{t\ 1888}#
- #{t\ 1888}#
- (if (not (#{bound-id-member?\ 289}#
- (car #{ids\ 1885}#)
- (cdr #{ids\ 1885}#)))
- (#{distinct?\ 1884}# (cdr #{ids\ 1885}#))
+ (#{distinct-bound-ids?\ 11216}#
+ (lambda (#{ids\ 12809}#)
+ (letrec ((#{distinct?\ 12813}#
+ (lambda (#{ids\ 12814}#)
+ (let ((#{t\ 12817}# (null? #{ids\ 12814}#)))
+ (if #{t\ 12817}#
+ #{t\ 12817}#
+ (if (not (#{bound-id-member?\ 11218}#
+ (car #{ids\ 12814}#)
+ (cdr #{ids\ 12814}#)))
+ (#{distinct?\ 12813}# (cdr #{ids\ 12814}#))
#f))))))
- (#{distinct?\ 1884}# #{ids\ 1880}#))))
- (#{valid-bound-ids?\ 285}#
- (lambda (#{ids\ 1892}#)
- (if (letrec ((#{all-ids?\ 1897}#
- (lambda (#{ids\ 1898}#)
- (let ((#{t\ 1901}# (null? #{ids\ 1898}#)))
- (if #{t\ 1901}#
- #{t\ 1901}#
- (if (#{id?\ 222}# (car #{ids\ 1898}#))
- (#{all-ids?\ 1897}# (cdr #{ids\ 1898}#))
+ (#{distinct?\ 12813}# #{ids\ 12809}#))))
+ (#{valid-bound-ids?\ 11214}#
+ (lambda (#{ids\ 12821}#)
+ (if (letrec ((#{all-ids?\ 12826}#
+ (lambda (#{ids\ 12827}#)
+ (let ((#{t\ 12830}# (null? #{ids\ 12827}#)))
+ (if #{t\ 12830}#
+ #{t\ 12830}#
+ (if (#{id?\ 11151}# (car #{ids\ 12827}#))
+ (#{all-ids?\ 12826}#
+ (cdr #{ids\ 12827}#))
#f))))))
- (#{all-ids?\ 1897}# #{ids\ 1892}#))
- (#{distinct-bound-ids?\ 287}# #{ids\ 1892}#)
+ (#{all-ids?\ 12826}# #{ids\ 12821}#))
+ (#{distinct-bound-ids?\ 11216}# #{ids\ 12821}#)
#f)))
- (#{bound-id=?\ 283}#
- (lambda (#{i\ 1906}# #{j\ 1907}#)
- (if (if (#{syntax-object?\ 186}# #{i\ 1906}#)
- (#{syntax-object?\ 186}# #{j\ 1907}#)
+ (#{bound-id=?\ 11212}#
+ (lambda (#{i\ 12835}# #{j\ 12836}#)
+ (if (if (#{syntax-object?\ 11115}# #{i\ 12835}#)
+ (#{syntax-object?\ 11115}# #{j\ 12836}#)
#f)
- (if (eq? (#{syntax-object-expression\ 188}# #{i\ 1906}#)
- (#{syntax-object-expression\ 188}# #{j\ 1907}#))
- (#{same-marks?\ 277}#
- (#{wrap-marks\ 229}#
- (#{syntax-object-wrap\ 190}# #{i\ 1906}#))
- (#{wrap-marks\ 229}#
- (#{syntax-object-wrap\ 190}# #{j\ 1907}#)))
+ (if (eq? (#{syntax-object-expression\ 11117}#
+ #{i\ 12835}#)
+ (#{syntax-object-expression\ 11117}#
+ #{j\ 12836}#))
+ (#{same-marks?\ 11206}#
+ (#{wrap-marks\ 11158}#
+ (#{syntax-object-wrap\ 11119}# #{i\ 12835}#))
+ (#{wrap-marks\ 11158}#
+ (#{syntax-object-wrap\ 11119}# #{j\ 12836}#)))
#f)
- (eq? #{i\ 1906}# #{j\ 1907}#))))
- (#{free-id=?\ 281}#
- (lambda (#{i\ 1914}# #{j\ 1915}#)
- (if (eq? (let ((#{x\ 1921}# #{i\ 1914}#))
- (if (#{syntax-object?\ 186}# #{x\ 1921}#)
- (#{syntax-object-expression\ 188}# #{x\ 1921}#)
- #{x\ 1921}#))
- (let ((#{x\ 1924}# #{j\ 1915}#))
- (if (#{syntax-object?\ 186}# #{x\ 1924}#)
- (#{syntax-object-expression\ 188}# #{x\ 1924}#)
- #{x\ 1924}#)))
- (eq? (#{id-var-name\ 279}# #{i\ 1914}# (quote (())))
- (#{id-var-name\ 279}# #{j\ 1915}# (quote (()))))
+ (eq? #{i\ 12835}# #{j\ 12836}#))))
+ (#{free-id=?\ 11210}#
+ (lambda (#{i\ 12843}# #{j\ 12844}#)
+ (if (eq? (let ((#{x\ 12850}# #{i\ 12843}#))
+ (if (#{syntax-object?\ 11115}# #{x\ 12850}#)
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 12850}#)
+ #{x\ 12850}#))
+ (let ((#{x\ 12853}# #{j\ 12844}#))
+ (if (#{syntax-object?\ 11115}# #{x\ 12853}#)
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 12853}#)
+ #{x\ 12853}#)))
+ (eq? (#{id-var-name\ 11208}#
+ #{i\ 12843}#
+ '(()))
+ (#{id-var-name\ 11208}#
+ #{j\ 12844}#
+ '(())))
#f)))
- (#{id-var-name\ 279}#
- (lambda (#{id\ 1928}# #{w\ 1929}#)
- (letrec ((#{search-vector-rib\ 1938}#
- (lambda (#{sym\ 1950}#
- #{subst\ 1951}#
- #{marks\ 1952}#
- #{symnames\ 1953}#
- #{ribcage\ 1954}#)
- (let ((#{n\ 1961}#
- (vector-length #{symnames\ 1953}#)))
- (letrec ((#{f\ 1964}#
- (lambda (#{i\ 1965}#)
- (if (#{fx=\ 127}#
- #{i\ 1965}#
- #{n\ 1961}#)
- (#{search\ 1934}#
- #{sym\ 1950}#
- (cdr #{subst\ 1951}#)
- #{marks\ 1952}#)
+ (#{id-var-name\ 11208}#
+ (lambda (#{id\ 12857}# #{w\ 12858}#)
+ (letrec ((#{search-vector-rib\ 12867}#
+ (lambda (#{sym\ 12879}#
+ #{subst\ 12880}#
+ #{marks\ 12881}#
+ #{symnames\ 12882}#
+ #{ribcage\ 12883}#)
+ (let ((#{n\ 12890}#
+ (vector-length #{symnames\ 12882}#)))
+ (letrec ((#{f\ 12893}#
+ (lambda (#{i\ 12894}#)
+ (if (#{fx=\ 11056}#
+ #{i\ 12894}#
+ #{n\ 12890}#)
+ (#{search\ 12863}#
+ #{sym\ 12879}#
+ (cdr #{subst\ 12880}#)
+ #{marks\ 12881}#)
(if (if (eq? (vector-ref
- #{symnames\ 1953}#
- #{i\ 1965}#)
- #{sym\ 1950}#)
- (#{same-marks?\ 277}#
- #{marks\ 1952}#
+ #{symnames\ 12882}#
+ #{i\ 12894}#)
+ #{sym\ 12879}#)
+ (#{same-marks?\ 11206}#
+ #{marks\ 12881}#
(vector-ref
- (#{ribcage-marks\ 249}#
- #{ribcage\ 1954}#)
- #{i\ 1965}#))
+ (#{ribcage-marks\
11178}#
+ #{ribcage\ 12883}#)
+ #{i\ 12894}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 251}#
- #{ribcage\ 1954}#)
- #{i\ 1965}#)
- #{marks\ 1952}#)
- (#{f\ 1964}#
- (#{fx+\ 123}#
- #{i\ 1965}#
+ (#{ribcage-labels\ 11180}#
+ #{ribcage\ 12883}#)
+ #{i\ 12894}#)
+ #{marks\ 12881}#)
+ (#{f\ 12893}#
+ (#{fx+\ 11052}#
+ #{i\ 12894}#
1)))))))
- (#{f\ 1964}# 0)))))
- (#{search-list-rib\ 1936}#
- (lambda (#{sym\ 1973}#
- #{subst\ 1974}#
- #{marks\ 1975}#
- #{symnames\ 1976}#
- #{ribcage\ 1977}#)
- (letrec ((#{f\ 1986}#
- (lambda (#{symnames\ 1987}# #{i\ 1988}#)
- (if (null? #{symnames\ 1987}#)
- (#{search\ 1934}#
- #{sym\ 1973}#
- (cdr #{subst\ 1974}#)
- #{marks\ 1975}#)
- (if (if (eq? (car #{symnames\
1987}#)
- #{sym\ 1973}#)
- (#{same-marks?\ 277}#
- #{marks\ 1975}#
+ (#{f\ 12893}# 0)))))
+ (#{search-list-rib\ 12865}#
+ (lambda (#{sym\ 12902}#
+ #{subst\ 12903}#
+ #{marks\ 12904}#
+ #{symnames\ 12905}#
+ #{ribcage\ 12906}#)
+ (letrec ((#{f\ 12915}#
+ (lambda (#{symnames\ 12916}#
+ #{i\ 12917}#)
+ (if (null? #{symnames\ 12916}#)
+ (#{search\ 12863}#
+ #{sym\ 12902}#
+ (cdr #{subst\ 12903}#)
+ #{marks\ 12904}#)
+ (if (if (eq? (car #{symnames\
12916}#)
+ #{sym\ 12902}#)
+ (#{same-marks?\ 11206}#
+ #{marks\ 12904}#
(list-ref
- (#{ribcage-marks\ 249}#
- #{ribcage\ 1977}#)
- #{i\ 1988}#))
+ (#{ribcage-marks\ 11178}#
+ #{ribcage\ 12906}#)
+ #{i\ 12917}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 251}#
- #{ribcage\ 1977}#)
- #{i\ 1988}#)
- #{marks\ 1975}#)
- (#{f\ 1986}#
- (cdr #{symnames\ 1987}#)
- (#{fx+\ 123}#
- #{i\ 1988}#
+ (#{ribcage-labels\ 11180}#
+ #{ribcage\ 12906}#)
+ #{i\ 12917}#)
+ #{marks\ 12904}#)
+ (#{f\ 12915}#
+ (cdr #{symnames\ 12916}#)
+ (#{fx+\ 11052}#
+ #{i\ 12917}#
1)))))))
- (#{f\ 1986}# #{symnames\ 1976}# 0))))
- (#{search\ 1934}#
- (lambda (#{sym\ 1996}#
- #{subst\ 1997}#
- #{marks\ 1998}#)
- (if (null? #{subst\ 1997}#)
- (values #f #{marks\ 1998}#)
- (let ((#{fst\ 2003}# (car #{subst\ 1997}#)))
- (if (eq? #{fst\ 2003}# (quote shift))
- (#{search\ 1934}#
- #{sym\ 1996}#
- (cdr #{subst\ 1997}#)
- (cdr #{marks\ 1998}#))
- (let ((#{symnames\ 2005}#
- (#{ribcage-symnames\ 247}#
- #{fst\ 2003}#)))
- (if (vector? #{symnames\ 2005}#)
- (#{search-vector-rib\ 1938}#
- #{sym\ 1996}#
- #{subst\ 1997}#
- #{marks\ 1998}#
- #{symnames\ 2005}#
- #{fst\ 2003}#)
- (#{search-list-rib\ 1936}#
- #{sym\ 1996}#
- #{subst\ 1997}#
- #{marks\ 1998}#
- #{symnames\ 2005}#
- #{fst\ 2003}#)))))))))
- (if (symbol? #{id\ 1928}#)
- (let ((#{t\ 2008}#
+ (#{f\ 12915}# #{symnames\ 12905}# 0))))
+ (#{search\ 12863}#
+ (lambda (#{sym\ 12925}#
+ #{subst\ 12926}#
+ #{marks\ 12927}#)
+ (if (null? #{subst\ 12926}#)
+ (values #f #{marks\ 12927}#)
+ (let ((#{fst\ 12932}# (car #{subst\ 12926}#)))
+ (if (eq? #{fst\ 12932}# (quote shift))
+ (#{search\ 12863}#
+ #{sym\ 12925}#
+ (cdr #{subst\ 12926}#)
+ (cdr #{marks\ 12927}#))
+ (let ((#{symnames\ 12934}#
+ (#{ribcage-symnames\ 11176}#
+ #{fst\ 12932}#)))
+ (if (vector? #{symnames\ 12934}#)
+ (#{search-vector-rib\ 12867}#
+ #{sym\ 12925}#
+ #{subst\ 12926}#
+ #{marks\ 12927}#
+ #{symnames\ 12934}#
+ #{fst\ 12932}#)
+ (#{search-list-rib\ 12865}#
+ #{sym\ 12925}#
+ #{subst\ 12926}#
+ #{marks\ 12927}#
+ #{symnames\ 12934}#
+ #{fst\ 12932}#)))))))))
+ (if (symbol? #{id\ 12857}#)
+ (let ((#{t\ 12937}#
(call-with-values
(lambda ()
- (#{search\ 1934}#
- #{id\ 1928}#
- (#{wrap-subst\ 231}# #{w\ 1929}#)
- (#{wrap-marks\ 229}# #{w\ 1929}#)))
- (lambda (#{x\ 2010}# . #{ignore\ 2011}#)
- #{x\ 2010}#))))
- (if #{t\ 2008}# #{t\ 2008}# #{id\ 1928}#))
- (if (#{syntax-object?\ 186}# #{id\ 1928}#)
- (let ((#{id\ 2019}#
- (#{syntax-object-expression\ 188}# #{id\ 1928}#))
- (#{w1\ 2020}#
- (#{syntax-object-wrap\ 190}# #{id\ 1928}#)))
- (let ((#{marks\ 2022}#
- (#{join-marks\ 275}#
- (#{wrap-marks\ 229}# #{w\ 1929}#)
- (#{wrap-marks\ 229}# #{w1\ 2020}#))))
+ (#{search\ 12863}#
+ #{id\ 12857}#
+ (#{wrap-subst\ 11160}# #{w\ 12858}#)
+ (#{wrap-marks\ 11158}# #{w\ 12858}#)))
+ (lambda (#{x\ 12939}# . #{ignore\ 12940}#)
+ #{x\ 12939}#))))
+ (if #{t\ 12937}# #{t\ 12937}# #{id\ 12857}#))
+ (if (#{syntax-object?\ 11115}# #{id\ 12857}#)
+ (let ((#{id\ 12948}#
+ (#{syntax-object-expression\ 11117}#
+ #{id\ 12857}#))
+ (#{w1\ 12949}#
+ (#{syntax-object-wrap\ 11119}# #{id\ 12857}#)))
+ (let ((#{marks\ 12951}#
+ (#{join-marks\ 11204}#
+ (#{wrap-marks\ 11158}# #{w\ 12858}#)
+ (#{wrap-marks\ 11158}# #{w1\ 12949}#))))
(call-with-values
(lambda ()
- (#{search\ 1934}#
- #{id\ 2019}#
- (#{wrap-subst\ 231}# #{w\ 1929}#)
- #{marks\ 2022}#))
- (lambda (#{new-id\ 2023}# #{marks\ 2024}#)
- (let ((#{t\ 2029}# #{new-id\ 2023}#))
- (if #{t\ 2029}#
- #{t\ 2029}#
- (let ((#{t\ 2032}#
+ (#{search\ 12863}#
+ #{id\ 12948}#
+ (#{wrap-subst\ 11160}# #{w\ 12858}#)
+ #{marks\ 12951}#))
+ (lambda (#{new-id\ 12952}# #{marks\ 12953}#)
+ (let ((#{t\ 12958}# #{new-id\ 12952}#))
+ (if #{t\ 12958}#
+ #{t\ 12958}#
+ (let ((#{t\ 12961}#
(call-with-values
(lambda ()
- (#{search\ 1934}#
- #{id\ 2019}#
- (#{wrap-subst\ 231}#
- #{w1\ 2020}#)
- #{marks\ 2024}#))
- (lambda (#{x\ 2034}#
+ (#{search\ 12863}#
+ #{id\ 12948}#
+ (#{wrap-subst\ 11160}#
+ #{w1\ 12949}#)
+ #{marks\ 12953}#))
+ (lambda (#{x\ 12963}#
.
- #{ignore\ 2035}#)
- #{x\ 2034}#))))
- (if #{t\ 2032}#
- #{t\ 2032}#
- #{id\ 2019}#))))))))
+ #{ignore\ 12964}#)
+ #{x\ 12963}#))))
+ (if #{t\ 12961}#
+ #{t\ 12961}#
+ #{id\ 12948}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1928}#))))))
- (#{same-marks?\ 277}#
- (lambda (#{x\ 2040}# #{y\ 2041}#)
- (let ((#{t\ 2046}# (eq? #{x\ 2040}# #{y\ 2041}#)))
- (if #{t\ 2046}#
- #{t\ 2046}#
- (if (not (null? #{x\ 2040}#))
- (if (not (null? #{y\ 2041}#))
- (if (eq? (car #{x\ 2040}#) (car #{y\ 2041}#))
- (#{same-marks?\ 277}#
- (cdr #{x\ 2040}#)
- (cdr #{y\ 2041}#))
+ #{id\ 12857}#))))))
+ (#{same-marks?\ 11206}#
+ (lambda (#{x\ 12969}# #{y\ 12970}#)
+ (let ((#{t\ 12975}# (eq? #{x\ 12969}# #{y\ 12970}#)))
+ (if #{t\ 12975}#
+ #{t\ 12975}#
+ (if (not (null? #{x\ 12969}#))
+ (if (not (null? #{y\ 12970}#))
+ (if (eq? (car #{x\ 12969}#) (car #{y\ 12970}#))
+ (#{same-marks?\ 11206}#
+ (cdr #{x\ 12969}#)
+ (cdr #{y\ 12970}#))
#f)
#f)
#f)))))
- (#{join-marks\ 275}#
- (lambda (#{m1\ 2052}# #{m2\ 2053}#)
- (#{smart-append\ 271}# #{m1\ 2052}# #{m2\ 2053}#)))
- (#{join-wraps\ 273}#
- (lambda (#{w1\ 2056}# #{w2\ 2057}#)
- (let ((#{m1\ 2062}# (#{wrap-marks\ 229}# #{w1\ 2056}#))
- (#{s1\ 2063}# (#{wrap-subst\ 231}# #{w1\ 2056}#)))
- (if (null? #{m1\ 2062}#)
- (if (null? #{s1\ 2063}#)
- #{w2\ 2057}#
- (#{make-wrap\ 227}#
- (#{wrap-marks\ 229}# #{w2\ 2057}#)
- (#{smart-append\ 271}#
- #{s1\ 2063}#
- (#{wrap-subst\ 231}# #{w2\ 2057}#))))
- (#{make-wrap\ 227}#
- (#{smart-append\ 271}#
- #{m1\ 2062}#
- (#{wrap-marks\ 229}# #{w2\ 2057}#))
- (#{smart-append\ 271}#
- #{s1\ 2063}#
- (#{wrap-subst\ 231}# #{w2\ 2057}#)))))))
- (#{smart-append\ 271}#
- (lambda (#{m1\ 2064}# #{m2\ 2065}#)
- (if (null? #{m2\ 2065}#)
- #{m1\ 2064}#
- (append #{m1\ 2064}# #{m2\ 2065}#))))
- (#{make-binding-wrap\ 269}#
- (lambda (#{ids\ 2068}# #{labels\ 2069}# #{w\ 2070}#)
- (if (null? #{ids\ 2068}#)
- #{w\ 2070}#
- (#{make-wrap\ 227}#
- (#{wrap-marks\ 229}# #{w\ 2070}#)
- (cons (let ((#{labelvec\ 2075}#
- (list->vector #{labels\ 2069}#)))
- (let ((#{n\ 2077}#
- (vector-length #{labelvec\ 2075}#)))
- (let ((#{symnamevec\ 2080}#
- (make-vector #{n\ 2077}#))
- (#{marksvec\ 2081}#
- (make-vector #{n\ 2077}#)))
+ (#{join-marks\ 11204}#
+ (lambda (#{m1\ 12981}# #{m2\ 12982}#)
+ (#{smart-append\ 11200}#
+ #{m1\ 12981}#
+ #{m2\ 12982}#)))
+ (#{join-wraps\ 11202}#
+ (lambda (#{w1\ 12985}# #{w2\ 12986}#)
+ (let ((#{m1\ 12991}#
+ (#{wrap-marks\ 11158}# #{w1\ 12985}#))
+ (#{s1\ 12992}#
+ (#{wrap-subst\ 11160}# #{w1\ 12985}#)))
+ (if (null? #{m1\ 12991}#)
+ (if (null? #{s1\ 12992}#)
+ #{w2\ 12986}#
+ (#{make-wrap\ 11156}#
+ (#{wrap-marks\ 11158}# #{w2\ 12986}#)
+ (#{smart-append\ 11200}#
+ #{s1\ 12992}#
+ (#{wrap-subst\ 11160}# #{w2\ 12986}#))))
+ (#{make-wrap\ 11156}#
+ (#{smart-append\ 11200}#
+ #{m1\ 12991}#
+ (#{wrap-marks\ 11158}# #{w2\ 12986}#))
+ (#{smart-append\ 11200}#
+ #{s1\ 12992}#
+ (#{wrap-subst\ 11160}# #{w2\ 12986}#)))))))
+ (#{smart-append\ 11200}#
+ (lambda (#{m1\ 12993}# #{m2\ 12994}#)
+ (if (null? #{m2\ 12994}#)
+ #{m1\ 12993}#
+ (append #{m1\ 12993}# #{m2\ 12994}#))))
+ (#{make-binding-wrap\ 11198}#
+ (lambda (#{ids\ 12997}# #{labels\ 12998}# #{w\ 12999}#)
+ (if (null? #{ids\ 12997}#)
+ #{w\ 12999}#
+ (#{make-wrap\ 11156}#
+ (#{wrap-marks\ 11158}# #{w\ 12999}#)
+ (cons (let ((#{labelvec\ 13004}#
+ (list->vector #{labels\ 12998}#)))
+ (let ((#{n\ 13006}#
+ (vector-length #{labelvec\ 13004}#)))
+ (let ((#{symnamevec\ 13009}#
+ (make-vector #{n\ 13006}#))
+ (#{marksvec\ 13010}#
+ (make-vector #{n\ 13006}#)))
(begin
- (letrec ((#{f\ 2085}#
- (lambda (#{ids\ 2086}# #{i\ 2087}#)
- (if (not (null? #{ids\ 2086}#))
+ (letrec ((#{f\ 13014}#
+ (lambda (#{ids\ 13015}#
+ #{i\ 13016}#)
+ (if (not (null? #{ids\ 13015}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 225}#
- (car #{ids\ 2086}#)
- #{w\ 2070}#))
- (lambda (#{symname\ 2088}#
- #{marks\ 2089}#)
+ (#{id-sym-name&marks\
11154}#
+ (car #{ids\ 13015}#)
+ #{w\ 12999}#))
+ (lambda (#{symname\ 13017}#
+ #{marks\ 13018}#)
(begin
(vector-set!
- #{symnamevec\ 2080}#
- #{i\ 2087}#
- #{symname\ 2088}#)
+ #{symnamevec\ 13009}#
+ #{i\ 13016}#
+ #{symname\ 13017}#)
(vector-set!
- #{marksvec\ 2081}#
- #{i\ 2087}#
- #{marks\ 2089}#)
- (#{f\ 2085}#
- (cdr #{ids\ 2086}#)
- (#{fx+\ 123}#
- #{i\ 2087}#
+ #{marksvec\ 13010}#
+ #{i\ 13016}#
+ #{marks\ 13018}#)
+ (#{f\ 13014}#
+ (cdr #{ids\ 13015}#)
+ (#{fx+\ 11052}#
+ #{i\ 13016}#
1)))))))))
- (#{f\ 2085}# #{ids\ 2068}# 0))
- (#{make-ribcage\ 243}#
- #{symnamevec\ 2080}#
- #{marksvec\ 2081}#
- #{labelvec\ 2075}#)))))
- (#{wrap-subst\ 231}# #{w\ 2070}#))))))
- (#{extend-ribcage!\ 267}#
- (lambda (#{ribcage\ 2092}# #{id\ 2093}# #{label\ 2094}#)
+ (#{f\ 13014}# #{ids\ 12997}# 0))
+ (#{make-ribcage\ 11172}#
+ #{symnamevec\ 13009}#
+ #{marksvec\ 13010}#
+ #{labelvec\ 13004}#)))))
+ (#{wrap-subst\ 11160}# #{w\ 12999}#))))))
+ (#{extend-ribcage!\ 11196}#
+ (lambda (#{ribcage\ 13021}#
+ #{id\ 13022}#
+ #{label\ 13023}#)
(begin
- (#{set-ribcage-symnames!\ 253}#
- #{ribcage\ 2092}#
- (cons (#{syntax-object-expression\ 188}# #{id\ 2093}#)
- (#{ribcage-symnames\ 247}# #{ribcage\ 2092}#)))
- (#{set-ribcage-marks!\ 255}#
- #{ribcage\ 2092}#
- (cons (#{wrap-marks\ 229}#
- (#{syntax-object-wrap\ 190}# #{id\ 2093}#))
- (#{ribcage-marks\ 249}# #{ribcage\ 2092}#)))
- (#{set-ribcage-labels!\ 257}#
- #{ribcage\ 2092}#
- (cons #{label\ 2094}#
- (#{ribcage-labels\ 251}# #{ribcage\ 2092}#))))))
- (#{anti-mark\ 263}#
- (lambda (#{w\ 2098}#)
- (#{make-wrap\ 227}#
- (cons #f (#{wrap-marks\ 229}# #{w\ 2098}#))
+ (#{set-ribcage-symnames!\ 11182}#
+ #{ribcage\ 13021}#
+ (cons (#{syntax-object-expression\ 11117}#
+ #{id\ 13022}#)
+ (#{ribcage-symnames\ 11176}# #{ribcage\ 13021}#)))
+ (#{set-ribcage-marks!\ 11184}#
+ #{ribcage\ 13021}#
+ (cons (#{wrap-marks\ 11158}#
+ (#{syntax-object-wrap\ 11119}# #{id\ 13022}#))
+ (#{ribcage-marks\ 11178}# #{ribcage\ 13021}#)))
+ (#{set-ribcage-labels!\ 11186}#
+ #{ribcage\ 13021}#
+ (cons #{label\ 13023}#
+ (#{ribcage-labels\ 11180}# #{ribcage\ 13021}#))))))
+ (#{anti-mark\ 11192}#
+ (lambda (#{w\ 13027}#)
+ (#{make-wrap\ 11156}#
+ (cons #f (#{wrap-marks\ 11158}# #{w\ 13027}#))
(cons 'shift
- (#{wrap-subst\ 231}# #{w\ 2098}#)))))
- (#{set-ribcage-labels!\ 257}#
- (lambda (#{x\ 2101}# #{update\ 2102}#)
- (vector-set! #{x\ 2101}# 3 #{update\ 2102}#)))
- (#{set-ribcage-marks!\ 255}#
- (lambda (#{x\ 2105}# #{update\ 2106}#)
- (vector-set! #{x\ 2105}# 2 #{update\ 2106}#)))
- (#{set-ribcage-symnames!\ 253}#
- (lambda (#{x\ 2109}# #{update\ 2110}#)
- (vector-set! #{x\ 2109}# 1 #{update\ 2110}#)))
- (#{ribcage-labels\ 251}#
- (lambda (#{x\ 2113}#) (vector-ref #{x\ 2113}# 3)))
- (#{ribcage-marks\ 249}#
- (lambda (#{x\ 2115}#) (vector-ref #{x\ 2115}# 2)))
- (#{ribcage-symnames\ 247}#
- (lambda (#{x\ 2117}#) (vector-ref #{x\ 2117}# 1)))
- (#{ribcage?\ 245}#
- (lambda (#{x\ 2119}#)
- (if (vector? #{x\ 2119}#)
- (if (= (vector-length #{x\ 2119}#) 4)
- (eq? (vector-ref #{x\ 2119}# 0) (quote ribcage))
+ (#{wrap-subst\ 11160}# #{w\ 13027}#)))))
+ (#{set-ribcage-labels!\ 11186}#
+ (lambda (#{x\ 13030}# #{update\ 13031}#)
+ (vector-set! #{x\ 13030}# 3 #{update\ 13031}#)))
+ (#{set-ribcage-marks!\ 11184}#
+ (lambda (#{x\ 13034}# #{update\ 13035}#)
+ (vector-set! #{x\ 13034}# 2 #{update\ 13035}#)))
+ (#{set-ribcage-symnames!\ 11182}#
+ (lambda (#{x\ 13038}# #{update\ 13039}#)
+ (vector-set! #{x\ 13038}# 1 #{update\ 13039}#)))
+ (#{ribcage-labels\ 11180}#
+ (lambda (#{x\ 13042}#)
+ (vector-ref #{x\ 13042}# 3)))
+ (#{ribcage-marks\ 11178}#
+ (lambda (#{x\ 13044}#)
+ (vector-ref #{x\ 13044}# 2)))
+ (#{ribcage-symnames\ 11176}#
+ (lambda (#{x\ 13046}#)
+ (vector-ref #{x\ 13046}# 1)))
+ (#{ribcage?\ 11174}#
+ (lambda (#{x\ 13048}#)
+ (if (vector? #{x\ 13048}#)
+ (if (= (vector-length #{x\ 13048}#) 4)
+ (eq? (vector-ref #{x\ 13048}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 243}#
- (lambda (#{symnames\ 2124}#
- #{marks\ 2125}#
- #{labels\ 2126}#)
+ (#{make-ribcage\ 11172}#
+ (lambda (#{symnames\ 13053}#
+ #{marks\ 13054}#
+ #{labels\ 13055}#)
(vector
'ribcage
- #{symnames\ 2124}#
- #{marks\ 2125}#
- #{labels\ 2126}#)))
- (#{gen-labels\ 240}#
- (lambda (#{ls\ 2130}#)
- (if (null? #{ls\ 2130}#)
+ #{symnames\ 13053}#
+ #{marks\ 13054}#
+ #{labels\ 13055}#)))
+ (#{gen-labels\ 11169}#
+ (lambda (#{ls\ 13059}#)
+ (if (null? #{ls\ 13059}#)
'()
- (cons (#{gen-label\ 238}#)
- (#{gen-labels\ 240}# (cdr #{ls\ 2130}#))))))
- (#{gen-label\ 238}#
+ (cons (#{gen-label\ 11167}#)
+ (#{gen-labels\ 11169}# (cdr #{ls\ 13059}#))))))
+ (#{gen-label\ 11167}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 231}# cdr)
- (#{wrap-marks\ 229}# car)
- (#{make-wrap\ 227}# cons)
- (#{id-sym-name&marks\ 225}#
- (lambda (#{x\ 2132}# #{w\ 2133}#)
- (if (#{syntax-object?\ 186}# #{x\ 2132}#)
+ (#{wrap-subst\ 11160}# cdr)
+ (#{wrap-marks\ 11158}# car)
+ (#{make-wrap\ 11156}# cons)
+ (#{id-sym-name&marks\ 11154}#
+ (lambda (#{x\ 13061}# #{w\ 13062}#)
+ (if (#{syntax-object?\ 11115}# #{x\ 13061}#)
(values
- (#{syntax-object-expression\ 188}# #{x\ 2132}#)
- (#{join-marks\ 275}#
- (#{wrap-marks\ 229}# #{w\ 2133}#)
- (#{wrap-marks\ 229}#
- (#{syntax-object-wrap\ 190}# #{x\ 2132}#))))
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 13061}#)
+ (#{join-marks\ 11204}#
+ (#{wrap-marks\ 11158}# #{w\ 13062}#)
+ (#{wrap-marks\ 11158}#
+ (#{syntax-object-wrap\ 11119}# #{x\ 13061}#))))
(values
- #{x\ 2132}#
- (#{wrap-marks\ 229}# #{w\ 2133}#)))))
- (#{id?\ 222}#
- (lambda (#{x\ 2136}#)
- (if (symbol? #{x\ 2136}#)
+ #{x\ 13061}#
+ (#{wrap-marks\ 11158}# #{w\ 13062}#)))))
+ (#{id?\ 11151}#
+ (lambda (#{x\ 13065}#)
+ (if (symbol? #{x\ 13065}#)
#t
- (if (#{syntax-object?\ 186}# #{x\ 2136}#)
+ (if (#{syntax-object?\ 11115}# #{x\ 13065}#)
(symbol?
- (#{syntax-object-expression\ 188}# #{x\ 2136}#))
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 13065}#))
#f))))
- (#{nonsymbol-id?\ 220}#
- (lambda (#{x\ 2143}#)
- (if (#{syntax-object?\ 186}# #{x\ 2143}#)
+ (#{nonsymbol-id?\ 11149}#
+ (lambda (#{x\ 13072}#)
+ (if (#{syntax-object?\ 11115}# #{x\ 13072}#)
(symbol?
- (#{syntax-object-expression\ 188}# #{x\ 2143}#))
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 13072}#))
#f)))
- (#{global-extend\ 218}#
- (lambda (#{type\ 2147}# #{sym\ 2148}# #{val\ 2149}#)
- (#{put-global-definition-hook\ 136}#
- #{sym\ 2148}#
- #{type\ 2147}#
- #{val\ 2149}#)))
- (#{lookup\ 216}#
- (lambda (#{x\ 2153}# #{r\ 2154}# #{mod\ 2155}#)
- (let ((#{t\ 2161}# (assq #{x\ 2153}# #{r\ 2154}#)))
- (if #{t\ 2161}#
- (cdr #{t\ 2161}#)
- (if (symbol? #{x\ 2153}#)
- (let ((#{t\ 2167}#
- (#{get-global-definition-hook\ 138}#
- #{x\ 2153}#
- #{mod\ 2155}#)))
- (if #{t\ 2167}# #{t\ 2167}# (quote (global))))
+ (#{global-extend\ 11147}#
+ (lambda (#{type\ 13076}# #{sym\ 13077}# #{val\ 13078}#)
+ (#{put-global-definition-hook\ 11065}#
+ #{sym\ 13077}#
+ #{type\ 13076}#
+ #{val\ 13078}#)))
+ (#{lookup\ 11145}#
+ (lambda (#{x\ 13082}# #{r\ 13083}# #{mod\ 13084}#)
+ (let ((#{t\ 13090}# (assq #{x\ 13082}# #{r\ 13083}#)))
+ (if #{t\ 13090}#
+ (cdr #{t\ 13090}#)
+ (if (symbol? #{x\ 13082}#)
+ (let ((#{t\ 13096}#
+ (#{get-global-definition-hook\ 11067}#
+ #{x\ 13082}#
+ #{mod\ 13084}#)))
+ (if #{t\ 13096}# #{t\ 13096}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 214}#
- (lambda (#{r\ 2172}#)
- (if (null? #{r\ 2172}#)
+ (#{macros-only-env\ 11143}#
+ (lambda (#{r\ 13101}#)
+ (if (null? #{r\ 13101}#)
'()
- (let ((#{a\ 2175}# (car #{r\ 2172}#)))
- (if (eq? (cadr #{a\ 2175}#) (quote macro))
- (cons #{a\ 2175}#
- (#{macros-only-env\ 214}# (cdr #{r\ 2172}#)))
- (#{macros-only-env\ 214}# (cdr #{r\ 2172}#)))))))
- (#{extend-var-env\ 212}#
- (lambda (#{labels\ 2176}# #{vars\ 2177}# #{r\ 2178}#)
- (if (null? #{labels\ 2176}#)
- #{r\ 2178}#
- (#{extend-var-env\ 212}#
- (cdr #{labels\ 2176}#)
- (cdr #{vars\ 2177}#)
- (cons (cons (car #{labels\ 2176}#)
- (cons (quote lexical) (car #{vars\ 2177}#)))
- #{r\ 2178}#)))))
- (#{extend-env\ 210}#
- (lambda (#{labels\ 2183}# #{bindings\ 2184}# #{r\ 2185}#)
- (if (null? #{labels\ 2183}#)
- #{r\ 2185}#
- (#{extend-env\ 210}#
- (cdr #{labels\ 2183}#)
- (cdr #{bindings\ 2184}#)
- (cons (cons (car #{labels\ 2183}#)
- (car #{bindings\ 2184}#))
- #{r\ 2185}#)))))
- (#{binding-value\ 207}# cdr)
- (#{binding-type\ 205}# car)
- (#{source-annotation\ 201}#
- (lambda (#{x\ 2189}#)
- (if (#{syntax-object?\ 186}# #{x\ 2189}#)
- (#{source-annotation\ 201}#
- (#{syntax-object-expression\ 188}# #{x\ 2189}#))
- (if (pair? #{x\ 2189}#)
- (let ((#{props\ 2196}# (source-properties #{x\ 2189}#)))
- (if (pair? #{props\ 2196}#) #{props\ 2196}# #f))
+ (let ((#{a\ 13104}# (car #{r\ 13101}#)))
+ (if (eq? (cadr #{a\ 13104}#) (quote macro))
+ (cons #{a\ 13104}#
+ (#{macros-only-env\ 11143}# (cdr #{r\ 13101}#)))
+ (#{macros-only-env\ 11143}# (cdr #{r\ 13101}#)))))))
+ (#{extend-var-env\ 11141}#
+ (lambda (#{labels\ 13105}# #{vars\ 13106}# #{r\ 13107}#)
+ (if (null? #{labels\ 13105}#)
+ #{r\ 13107}#
+ (#{extend-var-env\ 11141}#
+ (cdr #{labels\ 13105}#)
+ (cdr #{vars\ 13106}#)
+ (cons (cons (car #{labels\ 13105}#)
+ (cons (quote lexical) (car #{vars\ 13106}#)))
+ #{r\ 13107}#)))))
+ (#{extend-env\ 11139}#
+ (lambda (#{labels\ 13112}#
+ #{bindings\ 13113}#
+ #{r\ 13114}#)
+ (if (null? #{labels\ 13112}#)
+ #{r\ 13114}#
+ (#{extend-env\ 11139}#
+ (cdr #{labels\ 13112}#)
+ (cdr #{bindings\ 13113}#)
+ (cons (cons (car #{labels\ 13112}#)
+ (car #{bindings\ 13113}#))
+ #{r\ 13114}#)))))
+ (#{binding-value\ 11136}# cdr)
+ (#{binding-type\ 11134}# car)
+ (#{source-annotation\ 11130}#
+ (lambda (#{x\ 13118}#)
+ (if (#{syntax-object?\ 11115}# #{x\ 13118}#)
+ (#{source-annotation\ 11130}#
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 13118}#))
+ (if (pair? #{x\ 13118}#)
+ (let ((#{props\ 13125}#
+ (source-properties #{x\ 13118}#)))
+ (if (pair? #{props\ 13125}#) #{props\ 13125}# #f))
#f))))
- (#{set-syntax-object-module!\ 198}#
- (lambda (#{x\ 2198}# #{update\ 2199}#)
- (vector-set! #{x\ 2198}# 3 #{update\ 2199}#)))
- (#{set-syntax-object-wrap!\ 196}#
- (lambda (#{x\ 2202}# #{update\ 2203}#)
- (vector-set! #{x\ 2202}# 2 #{update\ 2203}#)))
- (#{set-syntax-object-expression!\ 194}#
- (lambda (#{x\ 2206}# #{update\ 2207}#)
- (vector-set! #{x\ 2206}# 1 #{update\ 2207}#)))
- (#{syntax-object-module\ 192}#
- (lambda (#{x\ 2210}#) (vector-ref #{x\ 2210}# 3)))
- (#{syntax-object-wrap\ 190}#
- (lambda (#{x\ 2212}#) (vector-ref #{x\ 2212}# 2)))
- (#{syntax-object-expression\ 188}#
- (lambda (#{x\ 2214}#) (vector-ref #{x\ 2214}# 1)))
- (#{syntax-object?\ 186}#
- (lambda (#{x\ 2216}#)
- (if (vector? #{x\ 2216}#)
- (if (= (vector-length #{x\ 2216}#) 4)
- (eq? (vector-ref #{x\ 2216}# 0)
+ (#{set-syntax-object-module!\ 11127}#
+ (lambda (#{x\ 13127}# #{update\ 13128}#)
+ (vector-set! #{x\ 13127}# 3 #{update\ 13128}#)))
+ (#{set-syntax-object-wrap!\ 11125}#
+ (lambda (#{x\ 13131}# #{update\ 13132}#)
+ (vector-set! #{x\ 13131}# 2 #{update\ 13132}#)))
+ (#{set-syntax-object-expression!\ 11123}#
+ (lambda (#{x\ 13135}# #{update\ 13136}#)
+ (vector-set! #{x\ 13135}# 1 #{update\ 13136}#)))
+ (#{syntax-object-module\ 11121}#
+ (lambda (#{x\ 13139}#)
+ (vector-ref #{x\ 13139}# 3)))
+ (#{syntax-object-wrap\ 11119}#
+ (lambda (#{x\ 13141}#)
+ (vector-ref #{x\ 13141}# 2)))
+ (#{syntax-object-expression\ 11117}#
+ (lambda (#{x\ 13143}#)
+ (vector-ref #{x\ 13143}# 1)))
+ (#{syntax-object?\ 11115}#
+ (lambda (#{x\ 13145}#)
+ (if (vector? #{x\ 13145}#)
+ (if (= (vector-length #{x\ 13145}#) 4)
+ (eq? (vector-ref #{x\ 13145}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 184}#
- (lambda (#{expression\ 2221}#
- #{wrap\ 2222}#
- #{module\ 2223}#)
+ (#{make-syntax-object\ 11113}#
+ (lambda (#{expression\ 13150}#
+ #{wrap\ 13151}#
+ #{module\ 13152}#)
(vector
'syntax-object
- #{expression\ 2221}#
- #{wrap\ 2222}#
- #{module\ 2223}#)))
- (#{build-letrec\ 180}#
- (lambda (#{src\ 2227}#
- #{ids\ 2228}#
- #{vars\ 2229}#
- #{val-exps\ 2230}#
- #{body-exp\ 2231}#)
- (if (null? #{vars\ 2229}#)
- #{body-exp\ 2231}#
- (let ((#{atom-key\ 2239}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2239}# (quote (c)))
+ #{expression\ 13150}#
+ #{wrap\ 13151}#
+ #{module\ 13152}#)))
+ (#{build-letrec\ 11109}#
+ (lambda (#{src\ 13156}#
+ #{ids\ 13157}#
+ #{vars\ 13158}#
+ #{val-exps\ 13159}#
+ #{body-exp\ 13160}#)
+ (if (null? #{vars\ 13158}#)
+ #{body-exp\ 13160}#
+ (let ((#{atom-key\ 13168}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13168}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 160}#
- #{ids\ 2228}#
- #{val-exps\ 2230}#)
+ #{maybe-name-value!\ 11089}#
+ #{ids\ 13157}#
+ #{val-exps\ 13159}#)
((@ (language tree-il) make-letrec)
- #{src\ 2227}#
- #{ids\ 2228}#
- #{vars\ 2229}#
- #{val-exps\ 2230}#
- #{body-exp\ 2231}#))
- (#{decorate-source\ 140}#
+ #{src\ 13156}#
+ #{ids\ 13157}#
+ #{vars\ 13158}#
+ #{val-exps\ 13159}#
+ #{body-exp\ 13160}#))
+ (#{decorate-source\ 11069}#
(list 'letrec
- (map list #{vars\ 2229}# #{val-exps\ 2230}#)
- #{body-exp\ 2231}#)
- #{src\ 2227}#))))))
- (#{build-named-let\ 178}#
- (lambda (#{src\ 2243}#
- #{ids\ 2244}#
- #{vars\ 2245}#
- #{val-exps\ 2246}#
- #{body-exp\ 2247}#)
- (let ((#{f\ 2257}# (car #{vars\ 2245}#))
- (#{f-name\ 2258}# (car #{ids\ 2244}#))
- (#{vars\ 2259}# (cdr #{vars\ 2245}#))
- (#{ids\ 2260}# (cdr #{ids\ 2244}#)))
- (let ((#{atom-key\ 2263}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2263}# (quote (c)))
- (let ((#{proc\ 2266}#
- (#{build-simple-lambda\ 164}#
- #{src\ 2243}#
- #{ids\ 2260}#
+ (map list #{vars\ 13158}# #{val-exps\ 13159}#)
+ #{body-exp\ 13160}#)
+ #{src\ 13156}#))))))
+ (#{build-named-let\ 11107}#
+ (lambda (#{src\ 13172}#
+ #{ids\ 13173}#
+ #{vars\ 13174}#
+ #{val-exps\ 13175}#
+ #{body-exp\ 13176}#)
+ (let ((#{f\ 13186}# (car #{vars\ 13174}#))
+ (#{f-name\ 13187}# (car #{ids\ 13173}#))
+ (#{vars\ 13188}# (cdr #{vars\ 13174}#))
+ (#{ids\ 13189}# (cdr #{ids\ 13173}#)))
+ (let ((#{atom-key\ 13192}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13192}# (quote (c)))
+ (let ((#{proc\ 13195}#
+ (#{build-simple-lambda\ 11093}#
+ #{src\ 13172}#
+ #{ids\ 13189}#
#f
- #{vars\ 2259}#
+ #{vars\ 13188}#
'()
- #{body-exp\ 2247}#)))
+ #{body-exp\ 13176}#)))
(begin
- (#{maybe-name-value!\ 160}#
- #{f-name\ 2258}#
- #{proc\ 2266}#)
+ (#{maybe-name-value!\ 11089}#
+ #{f-name\ 13187}#
+ #{proc\ 13195}#)
(for-each
- #{maybe-name-value!\ 160}#
- #{ids\ 2260}#
- #{val-exps\ 2246}#)
+ #{maybe-name-value!\ 11089}#
+ #{ids\ 13189}#
+ #{val-exps\ 13175}#)
((@ (language tree-il) make-letrec)
- #{src\ 2243}#
- (list #{f-name\ 2258}#)
- (list #{f\ 2257}#)
- (list #{proc\ 2266}#)
- (#{build-application\ 144}#
- #{src\ 2243}#
- (#{build-lexical-reference\ 150}#
+ #{src\ 13172}#
+ (list #{f-name\ 13187}#)
+ (list #{f\ 13186}#)
+ (list #{proc\ 13195}#)
+ (#{build-application\ 11073}#
+ #{src\ 13172}#
+ (#{build-lexical-reference\ 11079}#
'fun
- #{src\ 2243}#
- #{f-name\ 2258}#
- #{f\ 2257}#)
- #{val-exps\ 2246}#))))
- (#{decorate-source\ 140}#
+ #{src\ 13172}#
+ #{f-name\ 13187}#
+ #{f\ 13186}#)
+ #{val-exps\ 13175}#))))
+ (#{decorate-source\ 11069}#
(list 'letrec
- (list (list #{f\ 2257}#
+ (list (list #{f\ 13186}#
(list 'lambda
- #{vars\ 2259}#
- #{body-exp\ 2247}#)))
- (cons #{f\ 2257}# #{val-exps\ 2246}#))
- #{src\ 2243}#))))))
- (#{build-let\ 176}#
- (lambda (#{src\ 2269}#
- #{ids\ 2270}#
- #{vars\ 2271}#
- #{val-exps\ 2272}#
- #{body-exp\ 2273}#)
- (if (null? #{vars\ 2271}#)
- #{body-exp\ 2273}#
- (let ((#{atom-key\ 2281}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2281}# (quote (c)))
+ #{vars\ 13188}#
+ #{body-exp\ 13176}#)))
+ (cons #{f\ 13186}# #{val-exps\ 13175}#))
+ #{src\ 13172}#))))))
+ (#{build-let\ 11105}#
+ (lambda (#{src\ 13198}#
+ #{ids\ 13199}#
+ #{vars\ 13200}#
+ #{val-exps\ 13201}#
+ #{body-exp\ 13202}#)
+ (if (null? #{vars\ 13200}#)
+ #{body-exp\ 13202}#
+ (let ((#{atom-key\ 13210}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13210}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 160}#
- #{ids\ 2270}#
- #{val-exps\ 2272}#)
+ #{maybe-name-value!\ 11089}#
+ #{ids\ 13199}#
+ #{val-exps\ 13201}#)
((@ (language tree-il) make-let)
- #{src\ 2269}#
- #{ids\ 2270}#
- #{vars\ 2271}#
- #{val-exps\ 2272}#
- #{body-exp\ 2273}#))
- (#{decorate-source\ 140}#
+ #{src\ 13198}#
+ #{ids\ 13199}#
+ #{vars\ 13200}#
+ #{val-exps\ 13201}#
+ #{body-exp\ 13202}#))
+ (#{decorate-source\ 11069}#
(list 'let
- (map list #{vars\ 2271}# #{val-exps\ 2272}#)
- #{body-exp\ 2273}#)
- #{src\ 2269}#))))))
- (#{build-sequence\ 174}#
- (lambda (#{src\ 2285}# #{exps\ 2286}#)
- (if (null? (cdr #{exps\ 2286}#))
- (car #{exps\ 2286}#)
- (let ((#{atom-key\ 2291}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2291}# (quote (c)))
+ (map list #{vars\ 13200}# #{val-exps\ 13201}#)
+ #{body-exp\ 13202}#)
+ #{src\ 13198}#))))))
+ (#{build-sequence\ 11103}#
+ (lambda (#{src\ 13214}# #{exps\ 13215}#)
+ (if (null? (cdr #{exps\ 13215}#))
+ (car #{exps\ 13215}#)
+ (let ((#{atom-key\ 13220}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13220}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 2285}#
- #{exps\ 2286}#)
- (#{decorate-source\ 140}#
- (cons (quote begin) #{exps\ 2286}#)
- #{src\ 2285}#))))))
- (#{build-data\ 172}#
- (lambda (#{src\ 2295}# #{exp\ 2296}#)
- (let ((#{atom-key\ 2301}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2301}# (quote (c)))
+ #{src\ 13214}#
+ #{exps\ 13215}#)
+ (#{decorate-source\ 11069}#
+ (cons (quote begin) #{exps\ 13215}#)
+ #{src\ 13214}#))))))
+ (#{build-data\ 11101}#
+ (lambda (#{src\ 13224}# #{exp\ 13225}#)
+ (let ((#{atom-key\ 13230}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13230}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 2295}#
- #{exp\ 2296}#)
- (#{decorate-source\ 140}#
- (if (if (self-evaluating? #{exp\ 2296}#)
- (not (vector? #{exp\ 2296}#))
+ #{src\ 13224}#
+ #{exp\ 13225}#)
+ (#{decorate-source\ 11069}#
+ (if (if (self-evaluating? #{exp\ 13225}#)
+ (not (vector? #{exp\ 13225}#))
#f)
- #{exp\ 2296}#
- (list (quote quote) #{exp\ 2296}#))
- #{src\ 2295}#)))))
- (#{build-primref\ 170}#
- (lambda (#{src\ 2306}# #{name\ 2307}#)
+ #{exp\ 13225}#
+ (list (quote quote) #{exp\ 13225}#))
+ #{src\ 13224}#)))))
+ (#{build-primref\ 11099}#
+ (lambda (#{src\ 13235}# #{name\ 13236}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 2312}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2312}# (quote (c)))
+ (let ((#{atom-key\ 13241}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13241}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 2306}#
- #{name\ 2307}#)
- (#{decorate-source\ 140}#
- #{name\ 2307}#
- #{src\ 2306}#)))
- (let ((#{atom-key\ 2317}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2317}# (quote (c)))
+ #{src\ 13235}#
+ #{name\ 13236}#)
+ (#{decorate-source\ 11069}#
+ #{name\ 13236}#
+ #{src\ 13235}#)))
+ (let ((#{atom-key\ 13246}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13246}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 2306}#
+ #{src\ 13235}#
'(guile)
- #{name\ 2307}#
+ #{name\ 13236}#
#f)
- (#{decorate-source\ 140}#
- (list (quote @@) (quote (guile)) #{name\ 2307}#)
- #{src\ 2306}#))))))
- (#{build-lambda-case\ 168}#
- (lambda (#{src\ 2321}#
- #{req\ 2322}#
- #{opt\ 2323}#
- #{rest\ 2324}#
- #{kw\ 2325}#
- #{inits\ 2326}#
- #{vars\ 2327}#
- #{body\ 2328}#
- #{else-case\ 2329}#)
- (let ((#{atom-key\ 2341}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2341}# (quote (c)))
+ (#{decorate-source\ 11069}#
+ (list (quote @@) (quote (guile)) #{name\ 13236}#)
+ #{src\ 13235}#))))))
+ (#{build-lambda-case\ 11097}#
+ (lambda (#{src\ 13250}#
+ #{req\ 13251}#
+ #{opt\ 13252}#
+ #{rest\ 13253}#
+ #{kw\ 13254}#
+ #{inits\ 13255}#
+ #{vars\ 13256}#
+ #{body\ 13257}#
+ #{else-case\ 13258}#)
+ (let ((#{atom-key\ 13270}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13270}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 2321}#
- #{req\ 2322}#
- #{opt\ 2323}#
- #{rest\ 2324}#
- #{kw\ 2325}#
- #{inits\ 2326}#
- #{vars\ 2327}#
- #{body\ 2328}#
- #{else-case\ 2329}#)
- (let ((#{nreq\ 2346}# (length #{req\ 2322}#)))
- (let ((#{nopt\ 2348}#
- (if #{opt\ 2323}# (length #{opt\ 2323}#) 0)))
- (let ((#{rest-idx\ 2350}#
- (if #{rest\ 2324}#
- (+ #{nreq\ 2346}# #{nopt\ 2348}#)
+ #{src\ 13250}#
+ #{req\ 13251}#
+ #{opt\ 13252}#
+ #{rest\ 13253}#
+ #{kw\ 13254}#
+ #{inits\ 13255}#
+ #{vars\ 13256}#
+ #{body\ 13257}#
+ #{else-case\ 13258}#)
+ (let ((#{nreq\ 13275}# (length #{req\ 13251}#)))
+ (let ((#{nopt\ 13277}#
+ (if #{opt\ 13252}# (length #{opt\ 13252}#) 0)))
+ (let ((#{rest-idx\ 13279}#
+ (if #{rest\ 13253}#
+ (+ #{nreq\ 13275}# #{nopt\ 13277}#)
#f)))
- (let ((#{allow-other-keys?\ 2354}#
- (if #{kw\ 2325}# (car #{kw\ 2325}#) #f)))
- (let ((#{kw-indices\ 2356}#
- (map (lambda (#{x\ 2357}#)
- (cons (car #{x\ 2357}#)
+ (let ((#{allow-other-keys?\ 13283}#
+ (if #{kw\ 13254}# (car #{kw\ 13254}#) #f)))
+ (let ((#{kw-indices\ 13285}#
+ (map (lambda (#{x\ 13286}#)
+ (cons (car #{x\ 13286}#)
(list-index
- #{vars\ 2327}#
- (caddr #{x\ 2357}#))))
- (if #{kw\ 2325}#
- (cdr #{kw\ 2325}#)
+ #{vars\ 13256}#
+ (caddr #{x\ 13286}#))))
+ (if #{kw\ 13254}#
+ (cdr #{kw\ 13254}#)
'()))))
- (let ((#{nargs\ 2360}#
+ (let ((#{nargs\ 13289}#
(apply max
- (+ #{nreq\ 2346}#
- #{nopt\ 2348}#
- (if #{rest\ 2324}# 1 0))
+ (+ #{nreq\ 13275}#
+ #{nopt\ 13277}#
+ (if #{rest\ 13253}# 1 0))
(map 1+
(map cdr
- #{kw-indices\ 2356}#)))))
+ #{kw-indices\
13285}#)))))
(begin
- (let ((#{t\ 2363}#
- (= #{nargs\ 2360}#
- (length #{vars\ 2327}#)
- (+ #{nreq\ 2346}#
- (length #{inits\ 2326}#)
- (if #{rest\ 2324}# 1 0)))))
- (if #{t\ 2363}#
- #{t\ 2363}#
+ (let ((#{t\ 13292}#
+ (= #{nargs\ 13289}#
+ (length #{vars\ 13256}#)
+ (+ #{nreq\ 13275}#
+ (length #{inits\ 13255}#)
+ (if #{rest\ 13253}# 1 0)))))
+ (if #{t\ 13292}#
+ #{t\ 13292}#
(error "something went wrong"
- #{req\ 2322}#
- #{opt\ 2323}#
- #{rest\ 2324}#
- #{kw\ 2325}#
- #{inits\ 2326}#
- #{vars\ 2327}#
- #{nreq\ 2346}#
- #{nopt\ 2348}#
- #{kw-indices\ 2356}#
- #{nargs\ 2360}#)))
- (#{decorate-source\ 140}#
+ #{req\ 13251}#
+ #{opt\ 13252}#
+ #{rest\ 13253}#
+ #{kw\ 13254}#
+ #{inits\ 13255}#
+ #{vars\ 13256}#
+ #{nreq\ 13275}#
+ #{nopt\ 13277}#
+ #{kw-indices\ 13285}#
+ #{nargs\ 13289}#)))
+ (#{decorate-source\ 11069}#
(cons (list (cons '(@@ (ice-9 optargs)
parse-lambda-case)
(cons (list 'quote
- (list #{nreq\
2346}#
- #{nopt\
2348}#
-
#{rest-idx\ 2350}#
-
#{nargs\ 2360}#
-
#{allow-other-keys?\ 2354}#
-
#{kw-indices\ 2356}#))
+ (list #{nreq\
13275}#
+ #{nopt\
13277}#
+
#{rest-idx\ 13279}#
+
#{nargs\ 13289}#
+
#{allow-other-keys?\ 13283}#
+
#{kw-indices\ 13285}#))
(cons (cons 'list
- (map
(lambda (#{i\ 2366}#)
+ (map
(lambda (#{i\ 13295}#)
(list 'lambda
-
#{vars\ 2327}#
-
#{i\ 2366}#))
-
#{inits\ 2326}#))
+
#{vars\ 13256}#
+
#{i\ 13295}#))
+
#{inits\ 13255}#))
'(%%args))))
'=>
(list 'lambda
'(%%args)
(cons 'apply
(cons (list 'lambda
- #{vars\
2327}#
- #{body\
2328}#)
+ #{vars\
13256}#
+ #{body\
13257}#)
'(%%args)))))
- (let ((#{t\ 2371}#
- #{else-case\ 2329}#))
- (if #{t\ 2371}#
- #{t\ 2371}#
+ (let ((#{t\ 13300}#
+ #{else-case\ 13258}#))
+ (if #{t\ 13300}#
+ #{t\ 13300}#
'((%%args
(scm-error
'wrong-number-of-args
@@ -7965,1454 +8009,1491 @@
"Wrong number of arguments"
'()
%%args))))))
- #{src\ 2321}#))))))))))))
- (#{build-case-lambda\ 166}#
- (lambda (#{src\ 2374}# #{meta\ 2375}# #{body\ 2376}#)
- (let ((#{atom-key\ 2382}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2382}# (quote (c)))
+ #{src\ 13250}#))))))))))))
+ (#{build-case-lambda\ 11095}#
+ (lambda (#{src\ 13303}# #{meta\ 13304}# #{body\ 13305}#)
+ (let ((#{atom-key\ 13311}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13311}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 2374}#
- #{meta\ 2375}#
- #{body\ 2376}#)
- (#{decorate-source\ 140}#
+ #{src\ 13303}#
+ #{meta\ 13304}#
+ #{body\ 13305}#)
+ (#{decorate-source\ 11069}#
(list 'lambda
'%%args
- (cons (quote cond) #{body\ 2376}#))
- #{src\ 2374}#)))))
- (#{build-simple-lambda\ 164}#
- (lambda (#{src\ 2386}#
- #{req\ 2387}#
- #{rest\ 2388}#
- #{vars\ 2389}#
- #{meta\ 2390}#
- #{exp\ 2391}#)
- (let ((#{atom-key\ 2400}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2400}# (quote (c)))
+ (cons (quote cond) #{body\ 13305}#))
+ #{src\ 13303}#)))))
+ (#{build-simple-lambda\ 11093}#
+ (lambda (#{src\ 13315}#
+ #{req\ 13316}#
+ #{rest\ 13317}#
+ #{vars\ 13318}#
+ #{meta\ 13319}#
+ #{exp\ 13320}#)
+ (let ((#{atom-key\ 13329}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13329}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 2386}#
- #{meta\ 2390}#
+ #{src\ 13315}#
+ #{meta\ 13319}#
((@ (language tree-il) make-lambda-case)
- #{src\ 2386}#
- #{req\ 2387}#
+ #{src\ 13315}#
+ #{req\ 13316}#
#f
- #{rest\ 2388}#
+ #{rest\ 13317}#
#f
'()
- #{vars\ 2389}#
- #{exp\ 2391}#
+ #{vars\ 13318}#
+ #{exp\ 13320}#
#f))
- (#{decorate-source\ 140}#
+ (#{decorate-source\ 11069}#
(list 'lambda
- (if #{rest\ 2388}#
- (apply cons* #{vars\ 2389}#)
- #{vars\ 2389}#)
- #{exp\ 2391}#)
- #{src\ 2386}#)))))
- (#{build-global-definition\ 162}#
- (lambda (#{source\ 2404}# #{var\ 2405}# #{exp\ 2406}#)
- (let ((#{atom-key\ 2412}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2412}# (quote (c)))
+ (if #{rest\ 13317}#
+ (apply cons* #{vars\ 13318}#)
+ #{vars\ 13318}#)
+ #{exp\ 13320}#)
+ #{src\ 13315}#)))))
+ (#{build-global-definition\ 11091}#
+ (lambda (#{source\ 13333}# #{var\ 13334}# #{exp\ 13335}#)
+ (let ((#{atom-key\ 13341}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13341}# (quote (c)))
(begin
- (#{maybe-name-value!\ 160}#
- #{var\ 2405}#
- #{exp\ 2406}#)
+ (#{maybe-name-value!\ 11089}#
+ #{var\ 13334}#
+ #{exp\ 13335}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 2404}#
- #{var\ 2405}#
- #{exp\ 2406}#))
- (#{decorate-source\ 140}#
- (list (quote define) #{var\ 2405}# #{exp\ 2406}#)
- #{source\ 2404}#)))))
- (#{maybe-name-value!\ 160}#
- (lambda (#{name\ 2416}# #{val\ 2417}#)
- (if ((@ (language tree-il) lambda?) #{val\ 2417}#)
- (let ((#{meta\ 2423}#
+ #{source\ 13333}#
+ #{var\ 13334}#
+ #{exp\ 13335}#))
+ (#{decorate-source\ 11069}#
+ (list 'define
+ #{var\ 13334}#
+ #{exp\ 13335}#)
+ #{source\ 13333}#)))))
+ (#{maybe-name-value!\ 11089}#
+ (lambda (#{name\ 13345}# #{val\ 13346}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 13346}#)
+ (let ((#{meta\ 13352}#
((@ (language tree-il) lambda-meta)
- #{val\ 2417}#)))
- (if (not (assq (quote name) #{meta\ 2423}#))
+ #{val\ 13346}#)))
+ (if (not (assq (quote name) #{meta\ 13352}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 2417}#
+ #{val\ 13346}#
(acons 'name
- #{name\ 2416}#
- #{meta\ 2423}#)))))))
- (#{build-global-assignment\ 158}#
- (lambda (#{source\ 2424}#
- #{var\ 2425}#
- #{exp\ 2426}#
- #{mod\ 2427}#)
- (#{analyze-variable\ 154}#
- #{mod\ 2427}#
- #{var\ 2425}#
- (lambda (#{mod\ 2432}# #{var\ 2433}# #{public?\ 2434}#)
- (let ((#{atom-key\ 2440}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2440}# (quote (c)))
+ #{name\ 13345}#
+ #{meta\ 13352}#)))))))
+ (#{build-global-assignment\ 11087}#
+ (lambda (#{source\ 13353}#
+ #{var\ 13354}#
+ #{exp\ 13355}#
+ #{mod\ 13356}#)
+ (#{analyze-variable\ 11083}#
+ #{mod\ 13356}#
+ #{var\ 13354}#
+ (lambda (#{mod\ 13361}#
+ #{var\ 13362}#
+ #{public?\ 13363}#)
+ (let ((#{atom-key\ 13369}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13369}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 2424}#
- #{mod\ 2432}#
- #{var\ 2433}#
- #{public?\ 2434}#
- #{exp\ 2426}#)
- (#{decorate-source\ 140}#
+ #{source\ 13353}#
+ #{mod\ 13361}#
+ #{var\ 13362}#
+ #{public?\ 13363}#
+ #{exp\ 13355}#)
+ (#{decorate-source\ 11069}#
(list 'set!
- (list (if #{public?\ 2434}#
+ (list (if #{public?\ 13363}#
'@
'@@)
- #{mod\ 2432}#
- #{var\ 2433}#)
- #{exp\ 2426}#)
- #{source\ 2424}#))))
- (lambda (#{var\ 2444}#)
- (let ((#{atom-key\ 2448}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2448}# (quote (c)))
+ #{mod\ 13361}#
+ #{var\ 13362}#)
+ #{exp\ 13355}#)
+ #{source\ 13353}#))))
+ (lambda (#{var\ 13373}#)
+ (let ((#{atom-key\ 13377}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13377}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 2424}#
- #{var\ 2444}#
- #{exp\ 2426}#)
- (#{decorate-source\ 140}#
- (list (quote set!) #{var\ 2444}# #{exp\ 2426}#)
- #{source\ 2424}#)))))))
- (#{build-global-reference\ 156}#
- (lambda (#{source\ 2452}# #{var\ 2453}# #{mod\ 2454}#)
- (#{analyze-variable\ 154}#
- #{mod\ 2454}#
- #{var\ 2453}#
- (lambda (#{mod\ 2458}# #{var\ 2459}# #{public?\ 2460}#)
- (let ((#{atom-key\ 2466}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2466}# (quote (c)))
+ #{source\ 13353}#
+ #{var\ 13373}#
+ #{exp\ 13355}#)
+ (#{decorate-source\ 11069}#
+ (list (quote set!) #{var\ 13373}# #{exp\ 13355}#)
+ #{source\ 13353}#)))))))
+ (#{build-global-reference\ 11085}#
+ (lambda (#{source\ 13381}# #{var\ 13382}# #{mod\ 13383}#)
+ (#{analyze-variable\ 11083}#
+ #{mod\ 13383}#
+ #{var\ 13382}#
+ (lambda (#{mod\ 13387}#
+ #{var\ 13388}#
+ #{public?\ 13389}#)
+ (let ((#{atom-key\ 13395}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13395}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 2452}#
- #{mod\ 2458}#
- #{var\ 2459}#
- #{public?\ 2460}#)
- (#{decorate-source\ 140}#
- (list (if #{public?\ 2460}# (quote @) (quote @@))
- #{mod\ 2458}#
- #{var\ 2459}#)
- #{source\ 2452}#))))
- (lambda (#{var\ 2469}#)
- (let ((#{atom-key\ 2473}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2473}# (quote (c)))
+ #{source\ 13381}#
+ #{mod\ 13387}#
+ #{var\ 13388}#
+ #{public?\ 13389}#)
+ (#{decorate-source\ 11069}#
+ (list (if #{public?\ 13389}# (quote @) (quote @@))
+ #{mod\ 13387}#
+ #{var\ 13388}#)
+ #{source\ 13381}#))))
+ (lambda (#{var\ 13398}#)
+ (let ((#{atom-key\ 13402}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13402}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 2452}#
- #{var\ 2469}#)
- (#{decorate-source\ 140}#
- #{var\ 2469}#
- #{source\ 2452}#)))))))
- (#{analyze-variable\ 154}#
- (lambda (#{mod\ 2476}#
- #{var\ 2477}#
- #{modref-cont\ 2478}#
- #{bare-cont\ 2479}#)
- (if (not #{mod\ 2476}#)
- (#{bare-cont\ 2479}# #{var\ 2477}#)
- (let ((#{kind\ 2486}# (car #{mod\ 2476}#))
- (#{mod\ 2487}# (cdr #{mod\ 2476}#)))
- (if (memv #{kind\ 2486}# (quote (public)))
- (#{modref-cont\ 2478}#
- #{mod\ 2487}#
- #{var\ 2477}#
+ #{source\ 13381}#
+ #{var\ 13398}#)
+ (#{decorate-source\ 11069}#
+ #{var\ 13398}#
+ #{source\ 13381}#)))))))
+ (#{analyze-variable\ 11083}#
+ (lambda (#{mod\ 13405}#
+ #{var\ 13406}#
+ #{modref-cont\ 13407}#
+ #{bare-cont\ 13408}#)
+ (if (not #{mod\ 13405}#)
+ (#{bare-cont\ 13408}# #{var\ 13406}#)
+ (let ((#{kind\ 13415}# (car #{mod\ 13405}#))
+ (#{mod\ 13416}# (cdr #{mod\ 13405}#)))
+ (if (memv #{kind\ 13415}# (quote (public)))
+ (#{modref-cont\ 13407}#
+ #{mod\ 13416}#
+ #{var\ 13406}#
#t)
- (if (memv #{kind\ 2486}# (quote (private)))
+ (if (memv #{kind\ 13415}# (quote (private)))
(if (not (equal?
- #{mod\ 2487}#
+ #{mod\ 13416}#
(module-name (current-module))))
- (#{modref-cont\ 2478}#
- #{mod\ 2487}#
- #{var\ 2477}#
+ (#{modref-cont\ 13407}#
+ #{mod\ 13416}#
+ #{var\ 13406}#
#f)
- (#{bare-cont\ 2479}# #{var\ 2477}#))
- (if (memv #{kind\ 2486}# (quote (bare)))
- (#{bare-cont\ 2479}# #{var\ 2477}#)
- (if (memv #{kind\ 2486}# (quote (hygiene)))
+ (#{bare-cont\ 13408}# #{var\ 13406}#))
+ (if (memv #{kind\ 13415}# (quote (bare)))
+ (#{bare-cont\ 13408}# #{var\ 13406}#)
+ (if (memv #{kind\ 13415}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 2487}#
+ #{mod\ 13416}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 2487}#)
- #{var\ 2477}#)
+ (resolve-module #{mod\ 13416}#)
+ #{var\ 13406}#)
#f)
- (#{modref-cont\ 2478}#
- #{mod\ 2487}#
- #{var\ 2477}#
+ (#{modref-cont\ 13407}#
+ #{mod\ 13416}#
+ #{var\ 13406}#
#f)
- (#{bare-cont\ 2479}# #{var\ 2477}#))
+ (#{bare-cont\ 13408}# #{var\ 13406}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 2477}#
- #{mod\ 2487}#)))))))))
- (#{build-lexical-assignment\ 152}#
- (lambda (#{source\ 2495}#
- #{name\ 2496}#
- #{var\ 2497}#
- #{exp\ 2498}#)
- (let ((#{atom-key\ 2505}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2505}# (quote (c)))
+ #{var\ 13406}#
+ #{mod\ 13416}#)))))))))
+ (#{build-lexical-assignment\ 11081}#
+ (lambda (#{source\ 13424}#
+ #{name\ 13425}#
+ #{var\ 13426}#
+ #{exp\ 13427}#)
+ (let ((#{atom-key\ 13434}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13434}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 2495}#
- #{name\ 2496}#
- #{var\ 2497}#
- #{exp\ 2498}#)
- (#{decorate-source\ 140}#
- (list (quote set!) #{var\ 2497}# #{exp\ 2498}#)
- #{source\ 2495}#)))))
- (#{build-lexical-reference\ 150}#
- (lambda (#{type\ 2509}#
- #{source\ 2510}#
- #{name\ 2511}#
- #{var\ 2512}#)
- (let ((#{atom-key\ 2519}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2519}# (quote (c)))
+ #{source\ 13424}#
+ #{name\ 13425}#
+ #{var\ 13426}#
+ #{exp\ 13427}#)
+ (#{decorate-source\ 11069}#
+ (list (quote set!) #{var\ 13426}# #{exp\ 13427}#)
+ #{source\ 13424}#)))))
+ (#{build-lexical-reference\ 11079}#
+ (lambda (#{type\ 13438}#
+ #{source\ 13439}#
+ #{name\ 13440}#
+ #{var\ 13441}#)
+ (let ((#{atom-key\ 13448}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13448}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 2510}#
- #{name\ 2511}#
- #{var\ 2512}#)
- (#{decorate-source\ 140}#
- #{var\ 2512}#
- #{source\ 2510}#)))))
- (#{build-dynlet\ 148}#
- (lambda (#{source\ 2522}#
- #{fluids\ 2523}#
- #{vals\ 2524}#
- #{body\ 2525}#)
- (let ((#{atom-key\ 2532}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2532}# (quote (c)))
+ #{source\ 13439}#
+ #{name\ 13440}#
+ #{var\ 13441}#)
+ (#{decorate-source\ 11069}#
+ #{var\ 13441}#
+ #{source\ 13439}#)))))
+ (#{build-dynlet\ 11077}#
+ (lambda (#{source\ 13451}#
+ #{fluids\ 13452}#
+ #{vals\ 13453}#
+ #{body\ 13454}#)
+ (let ((#{atom-key\ 13461}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13461}# (quote (c)))
((@ (language tree-il) make-dynlet)
- #{source\ 2522}#
- #{fluids\ 2523}#
- #{vals\ 2524}#
- #{body\ 2525}#)
- (#{decorate-source\ 140}#
+ #{source\ 13451}#
+ #{fluids\ 13452}#
+ #{vals\ 13453}#
+ #{body\ 13454}#)
+ (#{decorate-source\ 11069}#
(list 'with-fluids
- (map list #{fluids\ 2523}# #{vals\ 2524}#)
- #{body\ 2525}#)
- #{source\ 2522}#)))))
- (#{build-conditional\ 146}#
- (lambda (#{source\ 2536}#
- #{test-exp\ 2537}#
- #{then-exp\ 2538}#
- #{else-exp\ 2539}#)
- (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2546}# (quote (c)))
+ (map list #{fluids\ 13452}# #{vals\ 13453}#)
+ #{body\ 13454}#)
+ #{source\ 13451}#)))))
+ (#{build-conditional\ 11075}#
+ (lambda (#{source\ 13465}#
+ #{test-exp\ 13466}#
+ #{then-exp\ 13467}#
+ #{else-exp\ 13468}#)
+ (let ((#{atom-key\ 13475}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13475}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 2536}#
- #{test-exp\ 2537}#
- #{then-exp\ 2538}#
- #{else-exp\ 2539}#)
- (#{decorate-source\ 140}#
- (if (equal? #{else-exp\ 2539}# (quote (if #f #f)))
+ #{source\ 13465}#
+ #{test-exp\ 13466}#
+ #{then-exp\ 13467}#
+ #{else-exp\ 13468}#)
+ (#{decorate-source\ 11069}#
+ (if (equal? #{else-exp\ 13468}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 2537}#
- #{then-exp\ 2538}#)
+ #{test-exp\ 13466}#
+ #{then-exp\ 13467}#)
(list 'if
- #{test-exp\ 2537}#
- #{then-exp\ 2538}#
- #{else-exp\ 2539}#))
- #{source\ 2536}#)))))
- (#{build-application\ 144}#
- (lambda (#{source\ 2551}#
- #{fun-exp\ 2552}#
- #{arg-exps\ 2553}#)
- (let ((#{atom-key\ 2559}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2559}# (quote (c)))
+ #{test-exp\ 13466}#
+ #{then-exp\ 13467}#
+ #{else-exp\ 13468}#))
+ #{source\ 13465}#)))))
+ (#{build-application\ 11073}#
+ (lambda (#{source\ 13480}#
+ #{fun-exp\ 13481}#
+ #{arg-exps\ 13482}#)
+ (let ((#{atom-key\ 13488}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13488}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 2551}#
- #{fun-exp\ 2552}#
- #{arg-exps\ 2553}#)
- (#{decorate-source\ 140}#
- (cons #{fun-exp\ 2552}# #{arg-exps\ 2553}#)
- #{source\ 2551}#)))))
- (#{build-void\ 142}#
- (lambda (#{source\ 2563}#)
- (let ((#{atom-key\ 2567}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2567}# (quote (c)))
+ #{source\ 13480}#
+ #{fun-exp\ 13481}#
+ #{arg-exps\ 13482}#)
+ (#{decorate-source\ 11069}#
+ (cons #{fun-exp\ 13481}# #{arg-exps\ 13482}#)
+ #{source\ 13480}#)))))
+ (#{build-void\ 11071}#
+ (lambda (#{source\ 13492}#)
+ (let ((#{atom-key\ 13496}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13496}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 2563}#)
- (#{decorate-source\ 140}#
+ #{source\ 13492}#)
+ (#{decorate-source\ 11069}#
'(if #f #f)
- #{source\ 2563}#)))))
- (#{decorate-source\ 140}#
- (lambda (#{e\ 2570}# #{s\ 2571}#)
+ #{source\ 13492}#)))))
+ (#{decorate-source\ 11069}#
+ (lambda (#{e\ 13499}# #{s\ 13500}#)
(begin
- (if (if (pair? #{e\ 2570}#) #{s\ 2571}# #f)
- (set-source-properties! #{e\ 2570}# #{s\ 2571}#))
- #{e\ 2570}#)))
- (#{get-global-definition-hook\ 138}#
- (lambda (#{symbol\ 2576}# #{module\ 2577}#)
+ (if (if (pair? #{e\ 13499}#) #{s\ 13500}# #f)
+ (set-source-properties!
+ #{e\ 13499}#
+ #{s\ 13500}#))
+ #{e\ 13499}#)))
+ (#{get-global-definition-hook\ 11067}#
+ (lambda (#{symbol\ 13505}# #{module\ 13506}#)
(begin
- (if (if (not #{module\ 2577}#) (current-module) #f)
+ (if (if (not #{module\ 13506}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2576}#))
- (let ((#{v\ 2583}#
+ #{symbol\ 13505}#))
+ (let ((#{v\ 13512}#
(module-variable
- (if #{module\ 2577}#
- (resolve-module (cdr #{module\ 2577}#))
+ (if #{module\ 13506}#
+ (resolve-module (cdr #{module\ 13506}#))
(current-module))
- #{symbol\ 2576}#)))
- (if #{v\ 2583}#
- (if (variable-bound? #{v\ 2583}#)
- (let ((#{val\ 2588}# (variable-ref #{v\ 2583}#)))
- (if (macro? #{val\ 2588}#)
- (if (macro-type #{val\ 2588}#)
- (cons (macro-type #{val\ 2588}#)
- (macro-binding #{val\ 2588}#))
+ #{symbol\ 13505}#)))
+ (if #{v\ 13512}#
+ (if (variable-bound? #{v\ 13512}#)
+ (let ((#{val\ 13517}# (variable-ref #{v\ 13512}#)))
+ (if (macro? #{val\ 13517}#)
+ (if (macro-type #{val\ 13517}#)
+ (cons (macro-type #{val\ 13517}#)
+ (macro-binding #{val\ 13517}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 136}#
- (lambda (#{symbol\ 2592}# #{type\ 2593}# #{val\ 2594}#)
+ (#{put-global-definition-hook\ 11065}#
+ (lambda (#{symbol\ 13521}#
+ #{type\ 13522}#
+ #{val\ 13523}#)
(module-define!
(current-module)
- #{symbol\ 2592}#
+ #{symbol\ 13521}#
(make-syntax-transformer
- #{symbol\ 2592}#
- #{type\ 2593}#
- #{val\ 2594}#))))
- (#{local-eval-hook\ 133}#
- (lambda (#{x\ 2598}# #{mod\ 2599}#)
+ #{symbol\ 13521}#
+ #{type\ 13522}#
+ #{val\ 13523}#))))
+ (#{local-eval-hook\ 11062}#
+ (lambda (#{x\ 13527}# #{mod\ 13528}#)
(primitive-eval
- (list #{noexpand\ 119}#
- (let ((#{atom-key\ 2605}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2605}# (quote (c)))
- ((@ (language tree-il) tree-il->scheme)
- #{x\ 2598}#)
- #{x\ 2598}#))))))
- (#{top-level-eval-hook\ 131}#
- (lambda (#{x\ 2608}# #{mod\ 2609}#)
+ (memoize-expression
+ (let ((#{atom-key\ 13533}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13533}# (quote (c)))
+ ((@ (language tree-il) tree-il->scheme)
+ #{x\ 13527}#)
+ #{x\ 13527}#))))))
+ (#{top-level-eval-hook\ 11060}#
+ (lambda (#{x\ 13536}# #{mod\ 13537}#)
(primitive-eval
- (list #{noexpand\ 119}#
- (let ((#{atom-key\ 2615}# (fluid-ref #{*mode*\ 121}#)))
- (if (memv #{atom-key\ 2615}# (quote (c)))
- ((@ (language tree-il) tree-il->scheme)
- #{x\ 2608}#)
- #{x\ 2608}#))))))
- (#{fx<\ 129}# <)
- (#{fx=\ 127}# =)
- (#{fx-\ 125}# -)
- (#{fx+\ 123}# +)
- (#{*mode*\ 121}# (make-fluid))
- (#{noexpand\ 119}# "noexpand"))
+ (memoize-expression
+ (let ((#{atom-key\ 13542}#
+ (fluid-ref #{*mode*\ 11050}#)))
+ (if (memv #{atom-key\ 13542}# (quote (c)))
+ ((@ (language tree-il) tree-il->scheme)
+ #{x\ 13536}#)
+ #{x\ 13536}#))))))
+ (#{fx<\ 11058}# <)
+ (#{fx=\ 11056}# =)
+ (#{fx-\ 11054}# -)
+ (#{fx+\ 11052}# +)
+ (#{*mode*\ 11050}# (make-fluid)))
(begin
- (#{global-extend\ 218}#
+ (#{global-extend\ 11147}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 218}#
+ (#{global-extend\ 11147}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 218}#
+ (#{global-extend\ 11147}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2618}#
- #{r\ 2619}#
- #{w\ 2620}#
- #{s\ 2621}#
- #{mod\ 2622}#)
- ((lambda (#{tmp\ 2628}#)
- ((lambda (#{tmp\ 2629}#)
- (if (if #{tmp\ 2629}#
- (apply (lambda (#{_\ 2635}#
- #{var\ 2636}#
- #{val\ 2637}#
- #{e1\ 2638}#
- #{e2\ 2639}#)
- (#{valid-bound-ids?\ 285}# #{var\ 2636}#))
- #{tmp\ 2629}#)
+ (lambda (#{e\ 13545}#
+ #{r\ 13546}#
+ #{w\ 13547}#
+ #{s\ 13548}#
+ #{mod\ 13549}#)
+ ((lambda (#{tmp\ 13555}#)
+ ((lambda (#{tmp\ 13556}#)
+ (if (if #{tmp\ 13556}#
+ (apply (lambda (#{_\ 13562}#
+ #{var\ 13563}#
+ #{val\ 13564}#
+ #{e1\ 13565}#
+ #{e2\ 13566}#)
+ (#{valid-bound-ids?\ 11214}# #{var\ 13563}#))
+ #{tmp\ 13556}#)
#f)
- (apply (lambda (#{_\ 2646}#
- #{var\ 2647}#
- #{val\ 2648}#
- #{e1\ 2649}#
- #{e2\ 2650}#)
- (let ((#{names\ 2652}#
- (map (lambda (#{x\ 2653}#)
- (#{id-var-name\ 279}#
- #{x\ 2653}#
- #{w\ 2620}#))
- #{var\ 2647}#)))
+ (apply (lambda (#{_\ 13573}#
+ #{var\ 13574}#
+ #{val\ 13575}#
+ #{e1\ 13576}#
+ #{e2\ 13577}#)
+ (let ((#{names\ 13579}#
+ (map (lambda (#{x\ 13580}#)
+ (#{id-var-name\ 11208}#
+ #{x\ 13580}#
+ #{w\ 13547}#))
+ #{var\ 13574}#)))
(begin
(for-each
- (lambda (#{id\ 2656}# #{n\ 2657}#)
- (let ((#{atom-key\ 2662}#
- (#{binding-type\ 205}#
- (#{lookup\ 216}#
- #{n\ 2657}#
- #{r\ 2619}#
- #{mod\ 2622}#))))
- (if (memv #{atom-key\ 2662}#
+ (lambda (#{id\ 13583}# #{n\ 13584}#)
+ (let ((#{atom-key\ 13589}#
+ (#{binding-type\ 11134}#
+ (#{lookup\ 11145}#
+ #{n\ 13584}#
+ #{r\ 13546}#
+ #{mod\ 13549}#))))
+ (if (memv #{atom-key\ 13589}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2618}#
- (#{source-wrap\ 293}#
- #{id\ 2656}#
- #{w\ 2620}#
- #{s\ 2621}#
- #{mod\ 2622}#)))))
- #{var\ 2647}#
- #{names\ 2652}#)
- (#{chi-body\ 315}#
- (cons #{e1\ 2649}# #{e2\ 2650}#)
- (#{source-wrap\ 293}#
- #{e\ 2618}#
- #{w\ 2620}#
- #{s\ 2621}#
- #{mod\ 2622}#)
- (#{extend-env\ 210}#
- #{names\ 2652}#
- (let ((#{trans-r\ 2667}#
- (#{macros-only-env\ 214}#
- #{r\ 2619}#)))
- (map (lambda (#{x\ 2668}#)
+ #{e\ 13545}#
+ (#{source-wrap\ 11222}#
+ #{id\ 13583}#
+ #{w\ 13547}#
+ #{s\ 13548}#
+ #{mod\ 13549}#)))))
+ #{var\ 13574}#
+ #{names\ 13579}#)
+ (#{chi-body\ 11244}#
+ (cons #{e1\ 13576}# #{e2\ 13577}#)
+ (#{source-wrap\ 11222}#
+ #{e\ 13545}#
+ #{w\ 13547}#
+ #{s\ 13548}#
+ #{mod\ 13549}#)
+ (#{extend-env\ 11139}#
+ #{names\ 13579}#
+ (let ((#{trans-r\ 13594}#
+ (#{macros-only-env\ 11143}#
+ #{r\ 13546}#)))
+ (map (lambda (#{x\ 13595}#)
(cons 'macro
- (#{eval-local-transformer\
319}#
- (#{chi\ 307}#
- #{x\ 2668}#
- #{trans-r\ 2667}#
- #{w\ 2620}#
- #{mod\ 2622}#)
- #{mod\ 2622}#)))
- #{val\ 2648}#))
- #{r\ 2619}#)
- #{w\ 2620}#
- #{mod\ 2622}#))))
- #{tmp\ 2629}#)
- ((lambda (#{_\ 2673}#)
+ (#{eval-local-transformer\
11248}#
+ (#{chi\ 11236}#
+ #{x\ 13595}#
+ #{trans-r\ 13594}#
+ #{w\ 13547}#
+ #{mod\ 13549}#)
+ #{mod\ 13549}#)))
+ #{val\ 13575}#))
+ #{r\ 13546}#)
+ #{w\ 13547}#
+ #{mod\ 13549}#))))
+ #{tmp\ 13556}#)
+ ((lambda (#{_\ 13600}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 293}#
- #{e\ 2618}#
- #{w\ 2620}#
- #{s\ 2621}#
- #{mod\ 2622}#)))
- #{tmp\ 2628}#)))
+ (#{source-wrap\ 11222}#
+ #{e\ 13545}#
+ #{w\ 13547}#
+ #{s\ 13548}#
+ #{mod\ 13549}#)))
+ #{tmp\ 13555}#)))
($sc-dispatch
- #{tmp\ 2628}#
+ #{tmp\ 13555}#
'(any #(each (any any)) any . each-any))))
- #{e\ 2618}#)))
- (#{global-extend\ 218}#
+ #{e\ 13545}#)))
+ (#{global-extend\ 11147}#
'core
'quote
- (lambda (#{e\ 2674}#
- #{r\ 2675}#
- #{w\ 2676}#
- #{s\ 2677}#
- #{mod\ 2678}#)
- ((lambda (#{tmp\ 2684}#)
- ((lambda (#{tmp\ 2685}#)
- (if #{tmp\ 2685}#
- (apply (lambda (#{_\ 2688}# #{e\ 2689}#)
- (#{build-data\ 172}#
- #{s\ 2677}#
- (#{strip\ 333}# #{e\ 2689}# #{w\ 2676}#)))
- #{tmp\ 2685}#)
- ((lambda (#{_\ 2691}#)
+ (lambda (#{e\ 13601}#
+ #{r\ 13602}#
+ #{w\ 13603}#
+ #{s\ 13604}#
+ #{mod\ 13605}#)
+ ((lambda (#{tmp\ 13611}#)
+ ((lambda (#{tmp\ 13612}#)
+ (if #{tmp\ 13612}#
+ (apply (lambda (#{_\ 13615}# #{e\ 13616}#)
+ (#{build-data\ 11101}#
+ #{s\ 13604}#
+ (#{strip\ 11262}# #{e\ 13616}# #{w\ 13603}#)))
+ #{tmp\ 13612}#)
+ ((lambda (#{_\ 13618}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 293}#
- #{e\ 2674}#
- #{w\ 2676}#
- #{s\ 2677}#
- #{mod\ 2678}#)))
- #{tmp\ 2684}#)))
- ($sc-dispatch #{tmp\ 2684}# (quote (any any)))))
- #{e\ 2674}#)))
- (#{global-extend\ 218}#
+ (#{source-wrap\ 11222}#
+ #{e\ 13601}#
+ #{w\ 13603}#
+ #{s\ 13604}#
+ #{mod\ 13605}#)))
+ #{tmp\ 13611}#)))
+ ($sc-dispatch #{tmp\ 13611}# (quote (any any)))))
+ #{e\ 13601}#)))
+ (#{global-extend\ 11147}#
'core
'syntax
- (letrec ((#{regen\ 2707}#
- (lambda (#{x\ 2708}#)
- (let ((#{atom-key\ 2712}# (car #{x\ 2708}#)))
- (if (memv #{atom-key\ 2712}# (quote (ref)))
- (#{build-lexical-reference\ 150}#
+ (letrec ((#{regen\ 13634}#
+ (lambda (#{x\ 13635}#)
+ (let ((#{atom-key\ 13639}# (car #{x\ 13635}#)))
+ (if (memv #{atom-key\ 13639}# (quote (ref)))
+ (#{build-lexical-reference\ 11079}#
'value
#f
- (cadr #{x\ 2708}#)
- (cadr #{x\ 2708}#))
- (if (memv #{atom-key\ 2712}# (quote (primitive)))
- (#{build-primref\ 170}# #f (cadr #{x\ 2708}#))
- (if (memv #{atom-key\ 2712}# (quote (quote)))
- (#{build-data\ 172}# #f (cadr #{x\ 2708}#))
- (if (memv #{atom-key\ 2712}# (quote (lambda)))
- (if (list? (cadr #{x\ 2708}#))
- (#{build-simple-lambda\ 164}#
+ (cadr #{x\ 13635}#)
+ (cadr #{x\ 13635}#))
+ (if (memv #{atom-key\ 13639}# (quote (primitive)))
+ (#{build-primref\ 11099}# #f (cadr #{x\ 13635}#))
+ (if (memv #{atom-key\ 13639}# (quote (quote)))
+ (#{build-data\ 11101}# #f (cadr #{x\ 13635}#))
+ (if (memv #{atom-key\ 13639}# (quote (lambda)))
+ (if (list? (cadr #{x\ 13635}#))
+ (#{build-simple-lambda\ 11093}#
#f
- (cadr #{x\ 2708}#)
+ (cadr #{x\ 13635}#)
#f
- (cadr #{x\ 2708}#)
+ (cadr #{x\ 13635}#)
'()
- (#{regen\ 2707}# (caddr #{x\ 2708}#)))
- (error "how did we get here" #{x\ 2708}#))
- (#{build-application\ 144}#
+ (#{regen\ 13634}# (caddr #{x\ 13635}#)))
+ (error "how did we get here" #{x\ 13635}#))
+ (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}# #f (car #{x\ 2708}#))
- (map #{regen\ 2707}#
- (cdr #{x\ 2708}#))))))))))
- (#{gen-vector\ 2705}#
- (lambda (#{x\ 2724}#)
- (if (eq? (car #{x\ 2724}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2724}#))
- (if (eq? (car #{x\ 2724}#) (quote quote))
+ (#{build-primref\ 11099}#
+ #f
+ (car #{x\ 13635}#))
+ (map #{regen\ 13634}#
+ (cdr #{x\ 13635}#))))))))))
+ (#{gen-vector\ 13632}#
+ (lambda (#{x\ 13651}#)
+ (if (eq? (car #{x\ 13651}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 13651}#))
+ (if (eq? (car #{x\ 13651}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 2724}#)))
- (list (quote list->vector) #{x\ 2724}#)))))
- (#{gen-append\ 2703}#
- (lambda (#{x\ 2734}# #{y\ 2735}#)
- (if (equal? #{y\ 2735}# (quote (quote ())))
- #{x\ 2734}#
- (list (quote append) #{x\ 2734}# #{y\ 2735}#))))
- (#{gen-cons\ 2701}#
- (lambda (#{x\ 2739}# #{y\ 2740}#)
- (let ((#{atom-key\ 2745}# (car #{y\ 2740}#)))
- (if (memv #{atom-key\ 2745}# (quote (quote)))
- (if (eq? (car #{x\ 2739}#) (quote quote))
+ (list->vector (cadr #{x\ 13651}#)))
+ (list (quote list->vector) #{x\ 13651}#)))))
+ (#{gen-append\ 13630}#
+ (lambda (#{x\ 13661}# #{y\ 13662}#)
+ (if (equal? #{y\ 13662}# (quote (quote ())))
+ #{x\ 13661}#
+ (list (quote append) #{x\ 13661}# #{y\ 13662}#))))
+ (#{gen-cons\ 13628}#
+ (lambda (#{x\ 13666}# #{y\ 13667}#)
+ (let ((#{atom-key\ 13672}# (car #{y\ 13667}#)))
+ (if (memv #{atom-key\ 13672}# (quote (quote)))
+ (if (eq? (car #{x\ 13666}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 2739}#) (cadr #{y\ 2740}#)))
- (if (eq? (cadr #{y\ 2740}#) (quote ()))
- (list (quote list) #{x\ 2739}#)
- (list (quote cons) #{x\ 2739}# #{y\ 2740}#)))
- (if (memv #{atom-key\ 2745}# (quote (list)))
+ (cons (cadr #{x\ 13666}#)
+ (cadr #{y\ 13667}#)))
+ (if (eq? (cadr #{y\ 13667}#) (quote ()))
+ (list (quote list) #{x\ 13666}#)
+ (list (quote cons) #{x\ 13666}# #{y\ 13667}#)))
+ (if (memv #{atom-key\ 13672}# (quote (list)))
(cons 'list
- (cons #{x\ 2739}# (cdr #{y\ 2740}#)))
- (list (quote cons) #{x\ 2739}# #{y\ 2740}#))))))
- (#{gen-map\ 2699}#
- (lambda (#{e\ 2754}# #{map-env\ 2755}#)
- (let ((#{formals\ 2760}# (map cdr #{map-env\ 2755}#))
- (#{actuals\ 2761}#
- (map (lambda (#{x\ 2762}#)
- (list (quote ref) (car #{x\ 2762}#)))
- #{map-env\ 2755}#)))
- (if (eq? (car #{e\ 2754}#) (quote ref))
- (car #{actuals\ 2761}#)
+ (cons #{x\ 13666}# (cdr #{y\ 13667}#)))
+ (list (quote cons) #{x\ 13666}# #{y\ 13667}#))))))
+ (#{gen-map\ 13626}#
+ (lambda (#{e\ 13681}# #{map-env\ 13682}#)
+ (let ((#{formals\ 13687}# (map cdr #{map-env\ 13682}#))
+ (#{actuals\ 13688}#
+ (map (lambda (#{x\ 13689}#)
+ (list (quote ref) (car #{x\ 13689}#)))
+ #{map-env\ 13682}#)))
+ (if (eq? (car #{e\ 13681}#) (quote ref))
+ (car #{actuals\ 13688}#)
(if (and-map
- (lambda (#{x\ 2769}#)
- (if (eq? (car #{x\ 2769}#) (quote ref))
- (memq (cadr #{x\ 2769}#) #{formals\ 2760}#)
+ (lambda (#{x\ 13696}#)
+ (if (eq? (car #{x\ 13696}#) (quote ref))
+ (memq (cadr #{x\ 13696}#)
+ #{formals\ 13687}#)
#f))
- (cdr #{e\ 2754}#))
+ (cdr #{e\ 13681}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2754}#))
- (map (let ((#{r\ 2775}#
+ (car #{e\ 13681}#))
+ (map (let ((#{r\ 13702}#
(map cons
- #{formals\ 2760}#
- #{actuals\ 2761}#)))
- (lambda (#{x\ 2776}#)
- (cdr (assq (cadr #{x\ 2776}#)
- #{r\ 2775}#))))
- (cdr #{e\ 2754}#))))
+ #{formals\ 13687}#
+ #{actuals\ 13688}#)))
+ (lambda (#{x\ 13703}#)
+ (cdr (assq (cadr #{x\ 13703}#)
+ #{r\ 13702}#))))
+ (cdr #{e\ 13681}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2760}#
- #{e\ 2754}#)
- #{actuals\ 2761}#)))))))
- (#{gen-mappend\ 2697}#
- (lambda (#{e\ 2780}# #{map-env\ 2781}#)
+ #{formals\ 13687}#
+ #{e\ 13681}#)
+ #{actuals\ 13688}#)))))))
+ (#{gen-mappend\ 13624}#
+ (lambda (#{e\ 13707}# #{map-env\ 13708}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2699}# #{e\ 2780}# #{map-env\ 2781}#))))
- (#{gen-ref\ 2695}#
- (lambda (#{src\ 2785}#
- #{var\ 2786}#
- #{level\ 2787}#
- #{maps\ 2788}#)
- (if (#{fx=\ 127}# #{level\ 2787}# 0)
- (values #{var\ 2786}# #{maps\ 2788}#)
- (if (null? #{maps\ 2788}#)
+ (#{gen-map\ 13626}#
+ #{e\ 13707}#
+ #{map-env\ 13708}#))))
+ (#{gen-ref\ 13622}#
+ (lambda (#{src\ 13712}#
+ #{var\ 13713}#
+ #{level\ 13714}#
+ #{maps\ 13715}#)
+ (if (#{fx=\ 11056}# #{level\ 13714}# 0)
+ (values #{var\ 13713}# #{maps\ 13715}#)
+ (if (null? #{maps\ 13715}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2785}#)
+ #{src\ 13712}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2695}#
- #{src\ 2785}#
- #{var\ 2786}#
- (#{fx-\ 125}# #{level\ 2787}# 1)
- (cdr #{maps\ 2788}#)))
- (lambda (#{outer-var\ 2793}# #{outer-maps\ 2794}#)
- (let ((#{b\ 2798}#
- (assq #{outer-var\ 2793}#
- (car #{maps\ 2788}#))))
- (if #{b\ 2798}#
- (values (cdr #{b\ 2798}#) #{maps\ 2788}#)
- (let ((#{inner-var\ 2800}#
- (#{gen-var\ 335}# (quote tmp))))
+ (#{gen-ref\ 13622}#
+ #{src\ 13712}#
+ #{var\ 13713}#
+ (#{fx-\ 11054}# #{level\ 13714}# 1)
+ (cdr #{maps\ 13715}#)))
+ (lambda (#{outer-var\ 13720}# #{outer-maps\ 13721}#)
+ (let ((#{b\ 13725}#
+ (assq #{outer-var\ 13720}#
+ (car #{maps\ 13715}#))))
+ (if #{b\ 13725}#
+ (values (cdr #{b\ 13725}#) #{maps\ 13715}#)
+ (let ((#{inner-var\ 13727}#
+ (#{gen-var\ 11264}# (quote tmp))))
(values
- #{inner-var\ 2800}#
- (cons (cons (cons #{outer-var\ 2793}#
- #{inner-var\ 2800}#)
- (car #{maps\ 2788}#))
- #{outer-maps\ 2794}#)))))))))))
- (#{gen-syntax\ 2693}#
- (lambda (#{src\ 2801}#
- #{e\ 2802}#
- #{r\ 2803}#
- #{maps\ 2804}#
- #{ellipsis?\ 2805}#
- #{mod\ 2806}#)
- (if (#{id?\ 222}# #{e\ 2802}#)
- (let ((#{label\ 2814}#
- (#{id-var-name\ 279}#
- #{e\ 2802}#
+ #{inner-var\ 13727}#
+ (cons (cons (cons #{outer-var\ 13720}#
+ #{inner-var\ 13727}#)
+ (car #{maps\ 13715}#))
+ #{outer-maps\ 13721}#)))))))))))
+ (#{gen-syntax\ 13620}#
+ (lambda (#{src\ 13728}#
+ #{e\ 13729}#
+ #{r\ 13730}#
+ #{maps\ 13731}#
+ #{ellipsis?\ 13732}#
+ #{mod\ 13733}#)
+ (if (#{id?\ 11151}# #{e\ 13729}#)
+ (let ((#{label\ 13741}#
+ (#{id-var-name\ 11208}#
+ #{e\ 13729}#
'(()))))
- (let ((#{b\ 2817}#
- (#{lookup\ 216}#
- #{label\ 2814}#
- #{r\ 2803}#
- #{mod\ 2806}#)))
- (if (eq? (#{binding-type\ 205}# #{b\ 2817}#)
+ (let ((#{b\ 13744}#
+ (#{lookup\ 11145}#
+ #{label\ 13741}#
+ #{r\ 13730}#
+ #{mod\ 13733}#)))
+ (if (eq? (#{binding-type\ 11134}# #{b\ 13744}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 2819}#
- (#{binding-value\ 207}# #{b\ 2817}#)))
- (#{gen-ref\ 2695}#
- #{src\ 2801}#
- (car #{var.lev\ 2819}#)
- (cdr #{var.lev\ 2819}#)
- #{maps\ 2804}#)))
- (lambda (#{var\ 2820}# #{maps\ 2821}#)
+ (let ((#{var.lev\ 13746}#
+ (#{binding-value\ 11136}#
+ #{b\ 13744}#)))
+ (#{gen-ref\ 13622}#
+ #{src\ 13728}#
+ (car #{var.lev\ 13746}#)
+ (cdr #{var.lev\ 13746}#)
+ #{maps\ 13731}#)))
+ (lambda (#{var\ 13747}# #{maps\ 13748}#)
(values
- (list (quote ref) #{var\ 2820}#)
- #{maps\ 2821}#)))
- (if (#{ellipsis?\ 2805}# #{e\ 2802}#)
+ (list (quote ref) #{var\ 13747}#)
+ #{maps\ 13748}#)))
+ (if (#{ellipsis?\ 13732}# #{e\ 13729}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2801}#)
+ #{src\ 13728}#)
(values
- (list (quote quote) #{e\ 2802}#)
- #{maps\ 2804}#)))))
- ((lambda (#{tmp\ 2826}#)
- ((lambda (#{tmp\ 2827}#)
- (if (if #{tmp\ 2827}#
- (apply (lambda (#{dots\ 2830}# #{e\ 2831}#)
- (#{ellipsis?\ 2805}#
- #{dots\ 2830}#))
- #{tmp\ 2827}#)
+ (list (quote quote) #{e\ 13729}#)
+ #{maps\ 13731}#)))))
+ ((lambda (#{tmp\ 13753}#)
+ ((lambda (#{tmp\ 13754}#)
+ (if (if #{tmp\ 13754}#
+ (apply (lambda (#{dots\ 13757}#
+ #{e\ 13758}#)
+ (#{ellipsis?\ 13732}#
+ #{dots\ 13757}#))
+ #{tmp\ 13754}#)
#f)
- (apply (lambda (#{dots\ 2834}# #{e\ 2835}#)
- (#{gen-syntax\ 2693}#
- #{src\ 2801}#
- #{e\ 2835}#
- #{r\ 2803}#
- #{maps\ 2804}#
- (lambda (#{x\ 2836}#) #f)
- #{mod\ 2806}#))
- #{tmp\ 2827}#)
- ((lambda (#{tmp\ 2838}#)
- (if (if #{tmp\ 2838}#
- (apply (lambda (#{x\ 2842}#
- #{dots\ 2843}#
- #{y\ 2844}#)
- (#{ellipsis?\ 2805}#
- #{dots\ 2843}#))
- #{tmp\ 2838}#)
+ (apply (lambda (#{dots\ 13761}# #{e\ 13762}#)
+ (#{gen-syntax\ 13620}#
+ #{src\ 13728}#
+ #{e\ 13762}#
+ #{r\ 13730}#
+ #{maps\ 13731}#
+ (lambda (#{x\ 13763}#) #f)
+ #{mod\ 13733}#))
+ #{tmp\ 13754}#)
+ ((lambda (#{tmp\ 13765}#)
+ (if (if #{tmp\ 13765}#
+ (apply (lambda (#{x\ 13769}#
+ #{dots\ 13770}#
+ #{y\ 13771}#)
+ (#{ellipsis?\ 13732}#
+ #{dots\ 13770}#))
+ #{tmp\ 13765}#)
#f)
- (apply (lambda (#{x\ 2848}#
- #{dots\ 2849}#
- #{y\ 2850}#)
- (letrec ((#{f\ 2854}#
- (lambda (#{y\ 2855}#
- #{k\ 2856}#)
- ((lambda (#{tmp\
2863}#)
- ((lambda (#{tmp\
2864}#)
- (if (if #{tmp\
2864}#
- (apply
(lambda (#{dots\ 2867}#
-
#{y\ 2868}#)
-
(#{ellipsis?\ 2805}#
-
#{dots\ 2867}#))
-
#{tmp\ 2864}#)
+ (apply (lambda (#{x\ 13775}#
+ #{dots\ 13776}#
+ #{y\ 13777}#)
+ (letrec ((#{f\ 13781}#
+ (lambda (#{y\ 13782}#
+ #{k\ 13783}#)
+ ((lambda (#{tmp\
13790}#)
+ ((lambda (#{tmp\
13791}#)
+ (if (if #{tmp\
13791}#
+ (apply
(lambda (#{dots\ 13794}#
+
#{y\ 13795}#)
+
(#{ellipsis?\ 13732}#
+
#{dots\ 13794}#))
+
#{tmp\ 13791}#)
#f)
- (apply
(lambda (#{dots\ 2871}#
-
#{y\ 2872}#)
-
(#{f\ 2854}#
-
#{y\ 2872}#
-
(lambda (#{maps\ 2873}#)
+ (apply
(lambda (#{dots\ 13798}#
+
#{y\ 13799}#)
+
(#{f\ 13781}#
+
#{y\ 13799}#
+
(lambda (#{maps\ 13800}#)
(call-with-values
(lambda ()
-
(#{k\ 2856}#
+
(#{k\ 13783}#
(cons '()
-
#{maps\ 2873}#)))
-
(lambda (#{x\ 2875}#
-
#{maps\ 2876}#)
-
(if (null? (car #{maps\ 2876}#))
+
#{maps\ 13800}#)))
+
(lambda (#{x\ 13802}#
+
#{maps\ 13803}#)
+
(if (null? (car #{maps\ 13803}#))
(syntax-violation
'syntax
"extra ellipsis"
-
#{src\ 2801}#)
+
#{src\ 13728}#)
(values
-
(#{gen-mappend\ 2697}#
-
#{x\ 2875}#
-
(car #{maps\ 2876}#))
-
(cdr #{maps\ 2876}#))))))))
-
#{tmp\ 2864}#)
- ((lambda
(#{_\ 2880}#)
+
(#{gen-mappend\ 13624}#
+
#{x\ 13802}#
+
(car #{maps\ 13803}#))
+
(cdr #{maps\ 13803}#))))))))
+
#{tmp\ 13791}#)
+ ((lambda
(#{_\ 13807}#)
(call-with-values
(lambda
()
-
(#{gen-syntax\ 2693}#
-
#{src\ 2801}#
-
#{y\ 2855}#
-
#{r\ 2803}#
-
#{maps\ 2804}#
-
#{ellipsis?\ 2805}#
-
#{mod\ 2806}#))
- (lambda
(#{y\ 2881}#
-
#{maps\ 2882}#)
+
(#{gen-syntax\ 13620}#
+
#{src\ 13728}#
+
#{y\ 13782}#
+
#{r\ 13730}#
+
#{maps\ 13731}#
+
#{ellipsis?\ 13732}#
+
#{mod\ 13733}#))
+ (lambda
(#{y\ 13808}#
+
#{maps\ 13809}#)
(call-with-values
(lambda ()
-
(#{k\ 2856}#
-
#{maps\ 2882}#))
-
(lambda (#{x\ 2885}#
-
#{maps\ 2886}#)
+
(#{k\ 13783}#
+
#{maps\ 13809}#))
+
(lambda (#{x\ 13812}#
+
#{maps\ 13813}#)
(values
-
(#{gen-append\ 2703}#
-
#{x\ 2885}#
-
#{y\ 2881}#)
-
#{maps\ 2886}#))))))
- #{tmp\
2863}#)))
+
(#{gen-append\ 13630}#
+
#{x\ 13812}#
+
#{y\ 13808}#)
+
#{maps\ 13813}#))))))
+ #{tmp\
13790}#)))
($sc-dispatch
- #{tmp\ 2863}#
+ #{tmp\ 13790}#
'(any . any))))
- #{y\ 2855}#))))
- (#{f\ 2854}#
- #{y\ 2850}#
- (lambda (#{maps\ 2857}#)
+ #{y\ 13782}#))))
+ (#{f\ 13781}#
+ #{y\ 13777}#
+ (lambda (#{maps\ 13784}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2693}#
- #{src\ 2801}#
- #{x\ 2848}#
- #{r\ 2803}#
+ (#{gen-syntax\ 13620}#
+ #{src\ 13728}#
+ #{x\ 13775}#
+ #{r\ 13730}#
(cons '()
- #{maps\ 2857}#)
- #{ellipsis?\ 2805}#
- #{mod\ 2806}#))
- (lambda (#{x\ 2859}#
- #{maps\ 2860}#)
- (if (null? (car #{maps\
2860}#))
+ #{maps\ 13784}#)
+ #{ellipsis?\ 13732}#
+ #{mod\ 13733}#))
+ (lambda (#{x\ 13786}#
+ #{maps\ 13787}#)
+ (if (null? (car #{maps\
13787}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2801}#)
+ #{src\ 13728}#)
(values
- (#{gen-map\ 2699}#
- #{x\ 2859}#
- (car #{maps\
2860}#))
- (cdr #{maps\
2860}#)))))))))
- #{tmp\ 2838}#)
- ((lambda (#{tmp\ 2889}#)
- (if #{tmp\ 2889}#
- (apply (lambda (#{x\ 2892}#
- #{y\ 2893}#)
+ (#{gen-map\ 13626}#
+ #{x\ 13786}#
+ (car #{maps\
13787}#))
+ (cdr #{maps\
13787}#)))))))))
+ #{tmp\ 13765}#)
+ ((lambda (#{tmp\ 13816}#)
+ (if #{tmp\ 13816}#
+ (apply (lambda (#{x\ 13819}#
+ #{y\ 13820}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2693}#
- #{src\ 2801}#
- #{x\ 2892}#
- #{r\ 2803}#
- #{maps\ 2804}#
- #{ellipsis?\ 2805}#
- #{mod\ 2806}#))
- (lambda (#{x\ 2894}#
- #{maps\ 2895}#)
+ (#{gen-syntax\ 13620}#
+ #{src\ 13728}#
+ #{x\ 13819}#
+ #{r\ 13730}#
+ #{maps\ 13731}#
+ #{ellipsis?\ 13732}#
+ #{mod\ 13733}#))
+ (lambda (#{x\ 13821}#
+ #{maps\ 13822}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2693}#
- #{src\ 2801}#
- #{y\ 2893}#
- #{r\ 2803}#
- #{maps\ 2895}#
- #{ellipsis?\ 2805}#
- #{mod\ 2806}#))
- (lambda (#{y\ 2898}#
- #{maps\
2899}#)
+ (#{gen-syntax\
13620}#
+ #{src\ 13728}#
+ #{y\ 13820}#
+ #{r\ 13730}#
+ #{maps\ 13822}#
+ #{ellipsis?\
13732}#
+ #{mod\ 13733}#))
+ (lambda (#{y\ 13825}#
+ #{maps\
13826}#)
(values
- (#{gen-cons\ 2701}#
- #{x\ 2894}#
- #{y\ 2898}#)
- #{maps\
2899}#))))))
- #{tmp\ 2889}#)
- ((lambda (#{tmp\ 2902}#)
- (if #{tmp\ 2902}#
- (apply (lambda (#{e1\ 2905}#
- #{e2\ 2906}#)
+ (#{gen-cons\
13628}#
+ #{x\ 13821}#
+ #{y\ 13825}#)
+ #{maps\
13826}#))))))
+ #{tmp\ 13816}#)
+ ((lambda (#{tmp\ 13829}#)
+ (if #{tmp\ 13829}#
+ (apply (lambda (#{e1\ 13832}#
+ #{e2\ 13833}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
2693}#
- #{src\ 2801}#
- (cons #{e1\ 2905}#
- #{e2\
2906}#)
- #{r\ 2803}#
- #{maps\ 2804}#
- #{ellipsis?\
2805}#
- #{mod\ 2806}#))
- (lambda (#{e\ 2908}#
- #{maps\
2909}#)
+ (#{gen-syntax\
13620}#
+ #{src\ 13728}#
+ (cons #{e1\
13832}#
+ #{e2\
13833}#)
+ #{r\ 13730}#
+ #{maps\ 13731}#
+ #{ellipsis?\
13732}#
+ #{mod\ 13733}#))
+ (lambda (#{e\ 13835}#
+ #{maps\
13836}#)
(values
- (#{gen-vector\
2705}#
- #{e\ 2908}#)
- #{maps\ 2909}#))))
- #{tmp\ 2902}#)
- ((lambda (#{_\ 2913}#)
+ (#{gen-vector\
13632}#
+ #{e\ 13835}#)
+ #{maps\
13836}#))))
+ #{tmp\ 13829}#)
+ ((lambda (#{_\ 13840}#)
(values
(list 'quote
- #{e\ 2802}#)
- #{maps\ 2804}#))
- #{tmp\ 2826}#)))
+ #{e\ 13729}#)
+ #{maps\ 13731}#))
+ #{tmp\ 13753}#)))
($sc-dispatch
- #{tmp\ 2826}#
+ #{tmp\ 13753}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 2826}#
+ #{tmp\ 13753}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 2826}#
+ #{tmp\ 13753}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 2826}# (quote (any any)))))
- #{e\ 2802}#)))))
- (lambda (#{e\ 2915}#
- #{r\ 2916}#
- #{w\ 2917}#
- #{s\ 2918}#
- #{mod\ 2919}#)
- (let ((#{e\ 2926}#
- (#{source-wrap\ 293}#
- #{e\ 2915}#
- #{w\ 2917}#
- #{s\ 2918}#
- #{mod\ 2919}#)))
- ((lambda (#{tmp\ 2927}#)
- ((lambda (#{tmp\ 2928}#)
- (if #{tmp\ 2928}#
- (apply (lambda (#{_\ 2931}# #{x\ 2932}#)
+ ($sc-dispatch #{tmp\ 13753}# (quote (any any)))))
+ #{e\ 13729}#)))))
+ (lambda (#{e\ 13842}#
+ #{r\ 13843}#
+ #{w\ 13844}#
+ #{s\ 13845}#
+ #{mod\ 13846}#)
+ (let ((#{e\ 13853}#
+ (#{source-wrap\ 11222}#
+ #{e\ 13842}#
+ #{w\ 13844}#
+ #{s\ 13845}#
+ #{mod\ 13846}#)))
+ ((lambda (#{tmp\ 13854}#)
+ ((lambda (#{tmp\ 13855}#)
+ (if #{tmp\ 13855}#
+ (apply (lambda (#{_\ 13858}# #{x\ 13859}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2693}#
- #{e\ 2926}#
- #{x\ 2932}#
- #{r\ 2916}#
+ (#{gen-syntax\ 13620}#
+ #{e\ 13853}#
+ #{x\ 13859}#
+ #{r\ 13843}#
'()
- #{ellipsis?\ 323}#
- #{mod\ 2919}#))
- (lambda (#{e\ 2933}# #{maps\ 2934}#)
- (#{regen\ 2707}# #{e\ 2933}#))))
- #{tmp\ 2928}#)
- ((lambda (#{_\ 2938}#)
+ #{ellipsis?\ 11252}#
+ #{mod\ 13846}#))
+ (lambda (#{e\ 13860}# #{maps\ 13861}#)
+ (#{regen\ 13634}# #{e\ 13860}#))))
+ #{tmp\ 13855}#)
+ ((lambda (#{_\ 13865}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 2926}#))
- #{tmp\ 2927}#)))
- ($sc-dispatch #{tmp\ 2927}# (quote (any any)))))
- #{e\ 2926}#)))))
- (#{global-extend\ 218}#
+ #{e\ 13853}#))
+ #{tmp\ 13854}#)))
+ ($sc-dispatch #{tmp\ 13854}# (quote (any any)))))
+ #{e\ 13853}#)))))
+ (#{global-extend\ 11147}#
'core
'lambda
- (lambda (#{e\ 2939}#
- #{r\ 2940}#
- #{w\ 2941}#
- #{s\ 2942}#
- #{mod\ 2943}#)
- ((lambda (#{tmp\ 2949}#)
- ((lambda (#{tmp\ 2950}#)
- (if #{tmp\ 2950}#
- (apply (lambda (#{_\ 2955}#
- #{args\ 2956}#
- #{e1\ 2957}#
- #{e2\ 2958}#)
+ (lambda (#{e\ 13866}#
+ #{r\ 13867}#
+ #{w\ 13868}#
+ #{s\ 13869}#
+ #{mod\ 13870}#)
+ ((lambda (#{tmp\ 13876}#)
+ ((lambda (#{tmp\ 13877}#)
+ (if #{tmp\ 13877}#
+ (apply (lambda (#{_\ 13882}#
+ #{args\ 13883}#
+ #{e1\ 13884}#
+ #{e2\ 13885}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 325}# #{args\ 2956}#))
- (lambda (#{req\ 2959}#
- #{opt\ 2960}#
- #{rest\ 2961}#
- #{kw\ 2962}#)
- (letrec ((#{lp\ 2970}#
- (lambda (#{body\ 2971}#
- #{meta\ 2972}#)
- ((lambda (#{tmp\ 2974}#)
- ((lambda (#{tmp\ 2975}#)
- (if (if #{tmp\ 2975}#
- (apply (lambda
(#{docstring\ 2979}#
- #{e1\
2980}#
- #{e2\
2981}#)
+ (#{lambda-formals\ 11254}# #{args\ 13883}#))
+ (lambda (#{req\ 13886}#
+ #{opt\ 13887}#
+ #{rest\ 13888}#
+ #{kw\ 13889}#)
+ (letrec ((#{lp\ 13897}#
+ (lambda (#{body\ 13898}#
+ #{meta\ 13899}#)
+ ((lambda (#{tmp\ 13901}#)
+ ((lambda (#{tmp\ 13902}#)
+ (if (if #{tmp\ 13902}#
+ (apply (lambda
(#{docstring\ 13906}#
+ #{e1\
13907}#
+ #{e2\
13908}#)
(string?
(syntax->datum
-
#{docstring\ 2979}#)))
- #{tmp\ 2975}#)
+
#{docstring\ 13906}#)))
+ #{tmp\ 13902}#)
#f)
- (apply (lambda
(#{docstring\ 2985}#
- #{e1\
2986}#
- #{e2\
2987}#)
- (#{lp\ 2970}#
- (cons #{e1\
2986}#
- #{e2\
2987}#)
+ (apply (lambda
(#{docstring\ 13912}#
+ #{e1\
13913}#
+ #{e2\
13914}#)
+ (#{lp\ 13897}#
+ (cons #{e1\
13913}#
+ #{e2\
13914}#)
(append
- #{meta\ 2972}#
+ #{meta\
13899}#
(list (cons
'documentation
(syntax->datum
-
#{docstring\ 2985}#))))))
- #{tmp\ 2975}#)
- ((lambda (#{tmp\ 2990}#)
- (if #{tmp\ 2990}#
- (apply (lambda (#{k\
2995}#
- #{v\
2996}#
- #{e1\
2997}#
- #{e2\
2998}#)
- (#{lp\ 2970}#
- (cons
#{e1\ 2997}#
-
#{e2\ 2998}#)
+
#{docstring\ 13912}#))))))
+ #{tmp\ 13902}#)
+ ((lambda (#{tmp\ 13917}#)
+ (if #{tmp\ 13917}#
+ (apply (lambda (#{k\
13922}#
+ #{v\
13923}#
+ #{e1\
13924}#
+ #{e2\
13925}#)
+ (#{lp\
13897}#
+ (cons
#{e1\ 13924}#
+
#{e2\ 13925}#)
(append
- #{meta\
2972}#
+ #{meta\
13899}#
(syntax->datum
(map
cons
-
#{k\ 2995}#
-
#{v\ 2996}#)))))
- #{tmp\ 2990}#)
- ((lambda (#{_\ 3003}#)
-
(#{chi-simple-lambda\ 327}#
- #{e\ 2939}#
- #{r\ 2940}#
- #{w\ 2941}#
- #{s\ 2942}#
- #{mod\ 2943}#
- #{req\ 2959}#
- #{rest\ 2961}#
- #{meta\ 2972}#
- #{body\ 2971}#))
- #{tmp\ 2974}#)))
+
#{k\ 13922}#
+
#{v\ 13923}#)))))
+ #{tmp\ 13917}#)
+ ((lambda (#{_\
13930}#)
+
(#{chi-simple-lambda\ 11256}#
+ #{e\ 13866}#
+ #{r\ 13867}#
+ #{w\ 13868}#
+ #{s\ 13869}#
+ #{mod\ 13870}#
+ #{req\ 13886}#
+ #{rest\ 13888}#
+ #{meta\ 13899}#
+ #{body\ 13898}#))
+ #{tmp\ 13901}#)))
($sc-dispatch
- #{tmp\ 2974}#
+ #{tmp\ 13901}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 2974}#
+ #{tmp\ 13901}#
'(any any . each-any))))
- #{body\ 2971}#))))
- (#{lp\ 2970}#
- (cons #{e1\ 2957}# #{e2\ 2958}#)
+ #{body\ 13898}#))))
+ (#{lp\ 13897}#
+ (cons #{e1\ 13884}# #{e2\ 13885}#)
'())))))
- #{tmp\ 2950}#)
- ((lambda (#{_\ 3005}#)
+ #{tmp\ 13877}#)
+ ((lambda (#{_\ 13932}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 2939}#))
- #{tmp\ 2949}#)))
+ #{e\ 13866}#))
+ #{tmp\ 13876}#)))
($sc-dispatch
- #{tmp\ 2949}#
+ #{tmp\ 13876}#
'(any any any . each-any))))
- #{e\ 2939}#)))
- (#{global-extend\ 218}#
+ #{e\ 13866}#)))
+ (#{global-extend\ 11147}#
'core
'lambda*
- (lambda (#{e\ 3006}#
- #{r\ 3007}#
- #{w\ 3008}#
- #{s\ 3009}#
- #{mod\ 3010}#)
- ((lambda (#{tmp\ 3016}#)
- ((lambda (#{tmp\ 3017}#)
- (if #{tmp\ 3017}#
- (apply (lambda (#{_\ 3022}#
- #{args\ 3023}#
- #{e1\ 3024}#
- #{e2\ 3025}#)
+ (lambda (#{e\ 13933}#
+ #{r\ 13934}#
+ #{w\ 13935}#
+ #{s\ 13936}#
+ #{mod\ 13937}#)
+ ((lambda (#{tmp\ 13943}#)
+ ((lambda (#{tmp\ 13944}#)
+ (if #{tmp\ 13944}#
+ (apply (lambda (#{_\ 13949}#
+ #{args\ 13950}#
+ #{e1\ 13951}#
+ #{e2\ 13952}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 331}#
- #{e\ 3006}#
- #{r\ 3007}#
- #{w\ 3008}#
- #{s\ 3009}#
- #{mod\ 3010}#
- #{lambda*-formals\ 329}#
- (list (cons #{args\ 3023}#
- (cons #{e1\ 3024}#
- #{e2\ 3025}#)))))
- (lambda (#{meta\ 3027}# #{lcase\ 3028}#)
- (#{build-case-lambda\ 166}#
- #{s\ 3009}#
- #{meta\ 3027}#
- #{lcase\ 3028}#))))
- #{tmp\ 3017}#)
- ((lambda (#{_\ 3032}#)
+ (#{chi-lambda-case\ 11260}#
+ #{e\ 13933}#
+ #{r\ 13934}#
+ #{w\ 13935}#
+ #{s\ 13936}#
+ #{mod\ 13937}#
+ #{lambda*-formals\ 11258}#
+ (list (cons #{args\ 13950}#
+ (cons #{e1\ 13951}#
+ #{e2\ 13952}#)))))
+ (lambda (#{meta\ 13954}# #{lcase\ 13955}#)
+ (#{build-case-lambda\ 11095}#
+ #{s\ 13936}#
+ #{meta\ 13954}#
+ #{lcase\ 13955}#))))
+ #{tmp\ 13944}#)
+ ((lambda (#{_\ 13959}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3006}#))
- #{tmp\ 3016}#)))
+ #{e\ 13933}#))
+ #{tmp\ 13943}#)))
($sc-dispatch
- #{tmp\ 3016}#
+ #{tmp\ 13943}#
'(any any any . each-any))))
- #{e\ 3006}#)))
- (#{global-extend\ 218}#
+ #{e\ 13933}#)))
+ (#{global-extend\ 11147}#
'core
'case-lambda
- (lambda (#{e\ 3033}#
- #{r\ 3034}#
- #{w\ 3035}#
- #{s\ 3036}#
- #{mod\ 3037}#)
- ((lambda (#{tmp\ 3043}#)
- ((lambda (#{tmp\ 3044}#)
- (if #{tmp\ 3044}#
- (apply (lambda (#{_\ 3052}#
- #{args\ 3053}#
- #{e1\ 3054}#
- #{e2\ 3055}#
- #{args*\ 3056}#
- #{e1*\ 3057}#
- #{e2*\ 3058}#)
+ (lambda (#{e\ 13960}#
+ #{r\ 13961}#
+ #{w\ 13962}#
+ #{s\ 13963}#
+ #{mod\ 13964}#)
+ ((lambda (#{tmp\ 13970}#)
+ ((lambda (#{tmp\ 13971}#)
+ (if #{tmp\ 13971}#
+ (apply (lambda (#{_\ 13979}#
+ #{args\ 13980}#
+ #{e1\ 13981}#
+ #{e2\ 13982}#
+ #{args*\ 13983}#
+ #{e1*\ 13984}#
+ #{e2*\ 13985}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 331}#
- #{e\ 3033}#
- #{r\ 3034}#
- #{w\ 3035}#
- #{s\ 3036}#
- #{mod\ 3037}#
- #{lambda-formals\ 325}#
- (cons (cons #{args\ 3053}#
- (cons #{e1\ 3054}# #{e2\ 3055}#))
- (map (lambda (#{tmp\ 3062}#
- #{tmp\ 3061}#
- #{tmp\ 3060}#)
- (cons #{tmp\ 3060}#
- (cons #{tmp\ 3061}#
- #{tmp\ 3062}#)))
- #{e2*\ 3058}#
- #{e1*\ 3057}#
- #{args*\ 3056}#))))
- (lambda (#{meta\ 3064}# #{lcase\ 3065}#)
- (#{build-case-lambda\ 166}#
- #{s\ 3036}#
- #{meta\ 3064}#
- #{lcase\ 3065}#))))
- #{tmp\ 3044}#)
- ((lambda (#{_\ 3069}#)
+ (#{chi-lambda-case\ 11260}#
+ #{e\ 13960}#
+ #{r\ 13961}#
+ #{w\ 13962}#
+ #{s\ 13963}#
+ #{mod\ 13964}#
+ #{lambda-formals\ 11254}#
+ (cons (cons #{args\ 13980}#
+ (cons #{e1\ 13981}#
+ #{e2\ 13982}#))
+ (map (lambda (#{tmp\ 13989}#
+ #{tmp\ 13988}#
+ #{tmp\ 13987}#)
+ (cons #{tmp\ 13987}#
+ (cons #{tmp\ 13988}#
+ #{tmp\ 13989}#)))
+ #{e2*\ 13985}#
+ #{e1*\ 13984}#
+ #{args*\ 13983}#))))
+ (lambda (#{meta\ 13991}# #{lcase\ 13992}#)
+ (#{build-case-lambda\ 11095}#
+ #{s\ 13963}#
+ #{meta\ 13991}#
+ #{lcase\ 13992}#))))
+ #{tmp\ 13971}#)
+ ((lambda (#{_\ 13996}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3033}#))
- #{tmp\ 3043}#)))
+ #{e\ 13960}#))
+ #{tmp\ 13970}#)))
($sc-dispatch
- #{tmp\ 3043}#
+ #{tmp\ 13970}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3033}#)))
- (#{global-extend\ 218}#
+ #{e\ 13960}#)))
+ (#{global-extend\ 11147}#
'core
'case-lambda*
- (lambda (#{e\ 3070}#
- #{r\ 3071}#
- #{w\ 3072}#
- #{s\ 3073}#
- #{mod\ 3074}#)
- ((lambda (#{tmp\ 3080}#)
- ((lambda (#{tmp\ 3081}#)
- (if #{tmp\ 3081}#
- (apply (lambda (#{_\ 3089}#
- #{args\ 3090}#
- #{e1\ 3091}#
- #{e2\ 3092}#
- #{args*\ 3093}#
- #{e1*\ 3094}#
- #{e2*\ 3095}#)
+ (lambda (#{e\ 13997}#
+ #{r\ 13998}#
+ #{w\ 13999}#
+ #{s\ 14000}#
+ #{mod\ 14001}#)
+ ((lambda (#{tmp\ 14007}#)
+ ((lambda (#{tmp\ 14008}#)
+ (if #{tmp\ 14008}#
+ (apply (lambda (#{_\ 14016}#
+ #{args\ 14017}#
+ #{e1\ 14018}#
+ #{e2\ 14019}#
+ #{args*\ 14020}#
+ #{e1*\ 14021}#
+ #{e2*\ 14022}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 331}#
- #{e\ 3070}#
- #{r\ 3071}#
- #{w\ 3072}#
- #{s\ 3073}#
- #{mod\ 3074}#
- #{lambda*-formals\ 329}#
- (cons (cons #{args\ 3090}#
- (cons #{e1\ 3091}# #{e2\ 3092}#))
- (map (lambda (#{tmp\ 3099}#
- #{tmp\ 3098}#
- #{tmp\ 3097}#)
- (cons #{tmp\ 3097}#
- (cons #{tmp\ 3098}#
- #{tmp\ 3099}#)))
- #{e2*\ 3095}#
- #{e1*\ 3094}#
- #{args*\ 3093}#))))
- (lambda (#{meta\ 3101}# #{lcase\ 3102}#)
- (#{build-case-lambda\ 166}#
- #{s\ 3073}#
- #{meta\ 3101}#
- #{lcase\ 3102}#))))
- #{tmp\ 3081}#)
- ((lambda (#{_\ 3106}#)
+ (#{chi-lambda-case\ 11260}#
+ #{e\ 13997}#
+ #{r\ 13998}#
+ #{w\ 13999}#
+ #{s\ 14000}#
+ #{mod\ 14001}#
+ #{lambda*-formals\ 11258}#
+ (cons (cons #{args\ 14017}#
+ (cons #{e1\ 14018}#
+ #{e2\ 14019}#))
+ (map (lambda (#{tmp\ 14026}#
+ #{tmp\ 14025}#
+ #{tmp\ 14024}#)
+ (cons #{tmp\ 14024}#
+ (cons #{tmp\ 14025}#
+ #{tmp\ 14026}#)))
+ #{e2*\ 14022}#
+ #{e1*\ 14021}#
+ #{args*\ 14020}#))))
+ (lambda (#{meta\ 14028}# #{lcase\ 14029}#)
+ (#{build-case-lambda\ 11095}#
+ #{s\ 14000}#
+ #{meta\ 14028}#
+ #{lcase\ 14029}#))))
+ #{tmp\ 14008}#)
+ ((lambda (#{_\ 14033}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3070}#))
- #{tmp\ 3080}#)))
+ #{e\ 13997}#))
+ #{tmp\ 14007}#)))
($sc-dispatch
- #{tmp\ 3080}#
+ #{tmp\ 14007}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3070}#)))
- (#{global-extend\ 218}#
+ #{e\ 13997}#)))
+ (#{global-extend\ 11147}#
'core
'let
- (letrec ((#{chi-let\ 3108}#
- (lambda (#{e\ 3109}#
- #{r\ 3110}#
- #{w\ 3111}#
- #{s\ 3112}#
- #{mod\ 3113}#
- #{constructor\ 3114}#
- #{ids\ 3115}#
- #{vals\ 3116}#
- #{exps\ 3117}#)
- (if (not (#{valid-bound-ids?\ 285}# #{ids\ 3115}#))
+ (letrec ((#{chi-let\ 14035}#
+ (lambda (#{e\ 14036}#
+ #{r\ 14037}#
+ #{w\ 14038}#
+ #{s\ 14039}#
+ #{mod\ 14040}#
+ #{constructor\ 14041}#
+ #{ids\ 14042}#
+ #{vals\ 14043}#
+ #{exps\ 14044}#)
+ (if (not (#{valid-bound-ids?\ 11214}# #{ids\ 14042}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3109}#)
- (let ((#{labels\ 3129}#
- (#{gen-labels\ 240}# #{ids\ 3115}#))
- (#{new-vars\ 3130}#
- (map #{gen-var\ 335}# #{ids\ 3115}#)))
- (let ((#{nw\ 3133}#
- (#{make-binding-wrap\ 269}#
- #{ids\ 3115}#
- #{labels\ 3129}#
- #{w\ 3111}#))
- (#{nr\ 3134}#
- (#{extend-var-env\ 212}#
- #{labels\ 3129}#
- #{new-vars\ 3130}#
- #{r\ 3110}#)))
- (#{constructor\ 3114}#
- #{s\ 3112}#
- (map syntax->datum #{ids\ 3115}#)
- #{new-vars\ 3130}#
- (map (lambda (#{x\ 3135}#)
- (#{chi\ 307}#
- #{x\ 3135}#
- #{r\ 3110}#
- #{w\ 3111}#
- #{mod\ 3113}#))
- #{vals\ 3116}#)
- (#{chi-body\ 315}#
- #{exps\ 3117}#
- (#{source-wrap\ 293}#
- #{e\ 3109}#
- #{nw\ 3133}#
- #{s\ 3112}#
- #{mod\ 3113}#)
- #{nr\ 3134}#
- #{nw\ 3133}#
- #{mod\ 3113}#))))))))
- (lambda (#{e\ 3137}#
- #{r\ 3138}#
- #{w\ 3139}#
- #{s\ 3140}#
- #{mod\ 3141}#)
- ((lambda (#{tmp\ 3147}#)
- ((lambda (#{tmp\ 3148}#)
- (if (if #{tmp\ 3148}#
- (apply (lambda (#{_\ 3154}#
- #{id\ 3155}#
- #{val\ 3156}#
- #{e1\ 3157}#
- #{e2\ 3158}#)
- (and-map #{id?\ 222}# #{id\ 3155}#))
- #{tmp\ 3148}#)
+ #{e\ 14036}#)
+ (let ((#{labels\ 14056}#
+ (#{gen-labels\ 11169}# #{ids\ 14042}#))
+ (#{new-vars\ 14057}#
+ (map #{gen-var\ 11264}# #{ids\ 14042}#)))
+ (let ((#{nw\ 14060}#
+ (#{make-binding-wrap\ 11198}#
+ #{ids\ 14042}#
+ #{labels\ 14056}#
+ #{w\ 14038}#))
+ (#{nr\ 14061}#
+ (#{extend-var-env\ 11141}#
+ #{labels\ 14056}#
+ #{new-vars\ 14057}#
+ #{r\ 14037}#)))
+ (#{constructor\ 14041}#
+ #{s\ 14039}#
+ (map syntax->datum #{ids\ 14042}#)
+ #{new-vars\ 14057}#
+ (map (lambda (#{x\ 14062}#)
+ (#{chi\ 11236}#
+ #{x\ 14062}#
+ #{r\ 14037}#
+ #{w\ 14038}#
+ #{mod\ 14040}#))
+ #{vals\ 14043}#)
+ (#{chi-body\ 11244}#
+ #{exps\ 14044}#
+ (#{source-wrap\ 11222}#
+ #{e\ 14036}#
+ #{nw\ 14060}#
+ #{s\ 14039}#
+ #{mod\ 14040}#)
+ #{nr\ 14061}#
+ #{nw\ 14060}#
+ #{mod\ 14040}#))))))))
+ (lambda (#{e\ 14064}#
+ #{r\ 14065}#
+ #{w\ 14066}#
+ #{s\ 14067}#
+ #{mod\ 14068}#)
+ ((lambda (#{tmp\ 14074}#)
+ ((lambda (#{tmp\ 14075}#)
+ (if (if #{tmp\ 14075}#
+ (apply (lambda (#{_\ 14081}#
+ #{id\ 14082}#
+ #{val\ 14083}#
+ #{e1\ 14084}#
+ #{e2\ 14085}#)
+ (and-map #{id?\ 11151}# #{id\ 14082}#))
+ #{tmp\ 14075}#)
#f)
- (apply (lambda (#{_\ 3165}#
- #{id\ 3166}#
- #{val\ 3167}#
- #{e1\ 3168}#
- #{e2\ 3169}#)
- (#{chi-let\ 3108}#
- #{e\ 3137}#
- #{r\ 3138}#
- #{w\ 3139}#
- #{s\ 3140}#
- #{mod\ 3141}#
- #{build-let\ 176}#
- #{id\ 3166}#
- #{val\ 3167}#
- (cons #{e1\ 3168}# #{e2\ 3169}#)))
- #{tmp\ 3148}#)
- ((lambda (#{tmp\ 3173}#)
- (if (if #{tmp\ 3173}#
- (apply (lambda (#{_\ 3180}#
- #{f\ 3181}#
- #{id\ 3182}#
- #{val\ 3183}#
- #{e1\ 3184}#
- #{e2\ 3185}#)
- (if (#{id?\ 222}# #{f\ 3181}#)
- (and-map #{id?\ 222}# #{id\ 3182}#)
+ (apply (lambda (#{_\ 14092}#
+ #{id\ 14093}#
+ #{val\ 14094}#
+ #{e1\ 14095}#
+ #{e2\ 14096}#)
+ (#{chi-let\ 14035}#
+ #{e\ 14064}#
+ #{r\ 14065}#
+ #{w\ 14066}#
+ #{s\ 14067}#
+ #{mod\ 14068}#
+ #{build-let\ 11105}#
+ #{id\ 14093}#
+ #{val\ 14094}#
+ (cons #{e1\ 14095}# #{e2\ 14096}#)))
+ #{tmp\ 14075}#)
+ ((lambda (#{tmp\ 14100}#)
+ (if (if #{tmp\ 14100}#
+ (apply (lambda (#{_\ 14107}#
+ #{f\ 14108}#
+ #{id\ 14109}#
+ #{val\ 14110}#
+ #{e1\ 14111}#
+ #{e2\ 14112}#)
+ (if (#{id?\ 11151}# #{f\ 14108}#)
+ (and-map #{id?\ 11151}# #{id\ 14109}#)
#f))
- #{tmp\ 3173}#)
+ #{tmp\ 14100}#)
#f)
- (apply (lambda (#{_\ 3195}#
- #{f\ 3196}#
- #{id\ 3197}#
- #{val\ 3198}#
- #{e1\ 3199}#
- #{e2\ 3200}#)
- (#{chi-let\ 3108}#
- #{e\ 3137}#
- #{r\ 3138}#
- #{w\ 3139}#
- #{s\ 3140}#
- #{mod\ 3141}#
- #{build-named-let\ 178}#
- (cons #{f\ 3196}# #{id\ 3197}#)
- #{val\ 3198}#
- (cons #{e1\ 3199}# #{e2\ 3200}#)))
- #{tmp\ 3173}#)
- ((lambda (#{_\ 3205}#)
+ (apply (lambda (#{_\ 14122}#
+ #{f\ 14123}#
+ #{id\ 14124}#
+ #{val\ 14125}#
+ #{e1\ 14126}#
+ #{e2\ 14127}#)
+ (#{chi-let\ 14035}#
+ #{e\ 14064}#
+ #{r\ 14065}#
+ #{w\ 14066}#
+ #{s\ 14067}#
+ #{mod\ 14068}#
+ #{build-named-let\ 11107}#
+ (cons #{f\ 14123}# #{id\ 14124}#)
+ #{val\ 14125}#
+ (cons #{e1\ 14126}# #{e2\ 14127}#)))
+ #{tmp\ 14100}#)
+ ((lambda (#{_\ 14132}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 293}#
- #{e\ 3137}#
- #{w\ 3139}#
- #{s\ 3140}#
- #{mod\ 3141}#)))
- #{tmp\ 3147}#)))
+ (#{source-wrap\ 11222}#
+ #{e\ 14064}#
+ #{w\ 14066}#
+ #{s\ 14067}#
+ #{mod\ 14068}#)))
+ #{tmp\ 14074}#)))
($sc-dispatch
- #{tmp\ 3147}#
+ #{tmp\ 14074}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3147}#
+ #{tmp\ 14074}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3137}#))))
- (#{global-extend\ 218}#
+ #{e\ 14064}#))))
+ (#{global-extend\ 11147}#
'core
'letrec
- (lambda (#{e\ 3206}#
- #{r\ 3207}#
- #{w\ 3208}#
- #{s\ 3209}#
- #{mod\ 3210}#)
- ((lambda (#{tmp\ 3216}#)
- ((lambda (#{tmp\ 3217}#)
- (if (if #{tmp\ 3217}#
- (apply (lambda (#{_\ 3223}#
- #{id\ 3224}#
- #{val\ 3225}#
- #{e1\ 3226}#
- #{e2\ 3227}#)
- (and-map #{id?\ 222}# #{id\ 3224}#))
- #{tmp\ 3217}#)
+ (lambda (#{e\ 14133}#
+ #{r\ 14134}#
+ #{w\ 14135}#
+ #{s\ 14136}#
+ #{mod\ 14137}#)
+ ((lambda (#{tmp\ 14143}#)
+ ((lambda (#{tmp\ 14144}#)
+ (if (if #{tmp\ 14144}#
+ (apply (lambda (#{_\ 14150}#
+ #{id\ 14151}#
+ #{val\ 14152}#
+ #{e1\ 14153}#
+ #{e2\ 14154}#)
+ (and-map #{id?\ 11151}# #{id\ 14151}#))
+ #{tmp\ 14144}#)
#f)
- (apply (lambda (#{_\ 3234}#
- #{id\ 3235}#
- #{val\ 3236}#
- #{e1\ 3237}#
- #{e2\ 3238}#)
- (let ((#{ids\ 3240}# #{id\ 3235}#))
- (if (not (#{valid-bound-ids?\ 285}#
- #{ids\ 3240}#))
+ (apply (lambda (#{_\ 14161}#
+ #{id\ 14162}#
+ #{val\ 14163}#
+ #{e1\ 14164}#
+ #{e2\ 14165}#)
+ (let ((#{ids\ 14167}# #{id\ 14162}#))
+ (if (not (#{valid-bound-ids?\ 11214}#
+ #{ids\ 14167}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3206}#)
- (let ((#{labels\ 3244}#
- (#{gen-labels\ 240}# #{ids\ 3240}#))
- (#{new-vars\ 3245}#
- (map #{gen-var\ 335}# #{ids\ 3240}#)))
- (let ((#{w\ 3248}#
- (#{make-binding-wrap\ 269}#
- #{ids\ 3240}#
- #{labels\ 3244}#
- #{w\ 3208}#))
- (#{r\ 3249}#
- (#{extend-var-env\ 212}#
- #{labels\ 3244}#
- #{new-vars\ 3245}#
- #{r\ 3207}#)))
- (#{build-letrec\ 180}#
- #{s\ 3209}#
- (map syntax->datum #{ids\ 3240}#)
- #{new-vars\ 3245}#
- (map (lambda (#{x\ 3250}#)
- (#{chi\ 307}#
- #{x\ 3250}#
- #{r\ 3249}#
- #{w\ 3248}#
- #{mod\ 3210}#))
- #{val\ 3236}#)
- (#{chi-body\ 315}#
- (cons #{e1\ 3237}# #{e2\ 3238}#)
- (#{source-wrap\ 293}#
- #{e\ 3206}#
- #{w\ 3248}#
- #{s\ 3209}#
- #{mod\ 3210}#)
- #{r\ 3249}#
- #{w\ 3248}#
- #{mod\ 3210}#)))))))
- #{tmp\ 3217}#)
- ((lambda (#{_\ 3255}#)
+ #{e\ 14133}#)
+ (let ((#{labels\ 14171}#
+ (#{gen-labels\ 11169}# #{ids\ 14167}#))
+ (#{new-vars\ 14172}#
+ (map #{gen-var\ 11264}#
+ #{ids\ 14167}#)))
+ (let ((#{w\ 14175}#
+ (#{make-binding-wrap\ 11198}#
+ #{ids\ 14167}#
+ #{labels\ 14171}#
+ #{w\ 14135}#))
+ (#{r\ 14176}#
+ (#{extend-var-env\ 11141}#
+ #{labels\ 14171}#
+ #{new-vars\ 14172}#
+ #{r\ 14134}#)))
+ (#{build-letrec\ 11109}#
+ #{s\ 14136}#
+ (map syntax->datum #{ids\ 14167}#)
+ #{new-vars\ 14172}#
+ (map (lambda (#{x\ 14177}#)
+ (#{chi\ 11236}#
+ #{x\ 14177}#
+ #{r\ 14176}#
+ #{w\ 14175}#
+ #{mod\ 14137}#))
+ #{val\ 14163}#)
+ (#{chi-body\ 11244}#
+ (cons #{e1\ 14164}# #{e2\ 14165}#)
+ (#{source-wrap\ 11222}#
+ #{e\ 14133}#
+ #{w\ 14175}#
+ #{s\ 14136}#
+ #{mod\ 14137}#)
+ #{r\ 14176}#
+ #{w\ 14175}#
+ #{mod\ 14137}#)))))))
+ #{tmp\ 14144}#)
+ ((lambda (#{_\ 14182}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 293}#
- #{e\ 3206}#
- #{w\ 3208}#
- #{s\ 3209}#
- #{mod\ 3210}#)))
- #{tmp\ 3216}#)))
+ (#{source-wrap\ 11222}#
+ #{e\ 14133}#
+ #{w\ 14135}#
+ #{s\ 14136}#
+ #{mod\ 14137}#)))
+ #{tmp\ 14143}#)))
($sc-dispatch
- #{tmp\ 3216}#
+ #{tmp\ 14143}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3206}#)))
- (#{global-extend\ 218}#
+ #{e\ 14133}#)))
+ (#{global-extend\ 11147}#
'core
'set!
- (lambda (#{e\ 3256}#
- #{r\ 3257}#
- #{w\ 3258}#
- #{s\ 3259}#
- #{mod\ 3260}#)
- ((lambda (#{tmp\ 3266}#)
- ((lambda (#{tmp\ 3267}#)
- (if (if #{tmp\ 3267}#
- (apply (lambda (#{_\ 3271}# #{id\ 3272}# #{val\ 3273}#)
- (#{id?\ 222}# #{id\ 3272}#))
- #{tmp\ 3267}#)
+ (lambda (#{e\ 14183}#
+ #{r\ 14184}#
+ #{w\ 14185}#
+ #{s\ 14186}#
+ #{mod\ 14187}#)
+ ((lambda (#{tmp\ 14193}#)
+ ((lambda (#{tmp\ 14194}#)
+ (if (if #{tmp\ 14194}#
+ (apply (lambda (#{_\ 14198}#
+ #{id\ 14199}#
+ #{val\ 14200}#)
+ (#{id?\ 11151}# #{id\ 14199}#))
+ #{tmp\ 14194}#)
#f)
- (apply (lambda (#{_\ 3277}# #{id\ 3278}# #{val\ 3279}#)
- (let ((#{val\ 3282}#
- (#{chi\ 307}#
- #{val\ 3279}#
- #{r\ 3257}#
- #{w\ 3258}#
- #{mod\ 3260}#))
- (#{n\ 3283}#
- (#{id-var-name\ 279}#
- #{id\ 3278}#
- #{w\ 3258}#)))
- (let ((#{b\ 3285}#
- (#{lookup\ 216}#
- #{n\ 3283}#
- #{r\ 3257}#
- #{mod\ 3260}#)))
- (let ((#{atom-key\ 3288}#
- (#{binding-type\ 205}# #{b\ 3285}#)))
- (if (memv #{atom-key\ 3288}#
+ (apply (lambda (#{_\ 14204}# #{id\ 14205}# #{val\ 14206}#)
+ (let ((#{val\ 14209}#
+ (#{chi\ 11236}#
+ #{val\ 14206}#
+ #{r\ 14184}#
+ #{w\ 14185}#
+ #{mod\ 14187}#))
+ (#{n\ 14210}#
+ (#{id-var-name\ 11208}#
+ #{id\ 14205}#
+ #{w\ 14185}#)))
+ (let ((#{b\ 14212}#
+ (#{lookup\ 11145}#
+ #{n\ 14210}#
+ #{r\ 14184}#
+ #{mod\ 14187}#)))
+ (let ((#{atom-key\ 14215}#
+ (#{binding-type\ 11134}# #{b\ 14212}#)))
+ (if (memv #{atom-key\ 14215}#
'(lexical))
- (#{build-lexical-assignment\ 152}#
- #{s\ 3259}#
- (syntax->datum #{id\ 3278}#)
- (#{binding-value\ 207}# #{b\ 3285}#)
- #{val\ 3282}#)
- (if (memv #{atom-key\ 3288}#
+ (#{build-lexical-assignment\ 11081}#
+ #{s\ 14186}#
+ (syntax->datum #{id\ 14205}#)
+ (#{binding-value\ 11136}# #{b\ 14212}#)
+ #{val\ 14209}#)
+ (if (memv #{atom-key\ 14215}#
'(global))
- (#{build-global-assignment\ 158}#
- #{s\ 3259}#
- #{n\ 3283}#
- #{val\ 3282}#
- #{mod\ 3260}#)
- (if (memv #{atom-key\ 3288}#
+ (#{build-global-assignment\ 11087}#
+ #{s\ 14186}#
+ #{n\ 14210}#
+ #{val\ 14209}#
+ #{mod\ 14187}#)
+ (if (memv #{atom-key\ 14215}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 291}#
- #{id\ 3278}#
- #{w\ 3258}#
- #{mod\ 3260}#))
+ (#{wrap\ 11220}#
+ #{id\ 14205}#
+ #{w\ 14185}#
+ #{mod\ 14187}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 293}#
- #{e\ 3256}#
- #{w\ 3258}#
- #{s\ 3259}#
- #{mod\ 3260}#)))))))))
- #{tmp\ 3267}#)
- ((lambda (#{tmp\ 3293}#)
- (if #{tmp\ 3293}#
- (apply (lambda (#{_\ 3298}#
- #{head\ 3299}#
- #{tail\ 3300}#
- #{val\ 3301}#)
+ (#{source-wrap\ 11222}#
+ #{e\ 14183}#
+ #{w\ 14185}#
+ #{s\ 14186}#
+ #{mod\ 14187}#)))))))))
+ #{tmp\ 14194}#)
+ ((lambda (#{tmp\ 14220}#)
+ (if #{tmp\ 14220}#
+ (apply (lambda (#{_\ 14225}#
+ #{head\ 14226}#
+ #{tail\ 14227}#
+ #{val\ 14228}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 303}#
- #{head\ 3299}#
- #{r\ 3257}#
+ (#{syntax-type\ 11232}#
+ #{head\ 14226}#
+ #{r\ 14184}#
'(())
#f
#f
- #{mod\ 3260}#
+ #{mod\ 14187}#
#t))
- (lambda (#{type\ 3304}#
- #{value\ 3305}#
- #{ee\ 3306}#
- #{ww\ 3307}#
- #{ss\ 3308}#
- #{modmod\ 3309}#)
- (if (memv #{type\ 3304}#
+ (lambda (#{type\ 14231}#
+ #{value\ 14232}#
+ #{ee\ 14233}#
+ #{ww\ 14234}#
+ #{ss\ 14235}#
+ #{modmod\ 14236}#)
+ (if (memv #{type\ 14231}#
'(module-ref))
- (let ((#{val\ 3318}#
- (#{chi\ 307}#
- #{val\ 3301}#
- #{r\ 3257}#
- #{w\ 3258}#
- #{mod\ 3260}#)))
+ (let ((#{val\ 14245}#
+ (#{chi\ 11236}#
+ #{val\ 14228}#
+ #{r\ 14184}#
+ #{w\ 14185}#
+ #{mod\ 14187}#)))
(call-with-values
(lambda ()
- (#{value\ 3305}#
- (cons #{head\ 3299}#
- #{tail\ 3300}#)
- #{r\ 3257}#
- #{w\ 3258}#))
- (lambda (#{e\ 3320}#
- #{r\ 3321}#
- #{w\ 3322}#
- #{s*\ 3323}#
- #{mod\ 3324}#)
- ((lambda (#{tmp\ 3330}#)
- ((lambda (#{tmp\ 3331}#)
- (if (if #{tmp\ 3331}#
- (apply (lambda (#{e\
3333}#)
- (#{id?\ 222}#
- #{e\
3333}#))
- #{tmp\ 3331}#)
+ (#{value\ 14232}#
+ (cons #{head\ 14226}#
+ #{tail\ 14227}#)
+ #{r\ 14184}#
+ #{w\ 14185}#))
+ (lambda (#{e\ 14247}#
+ #{r\ 14248}#
+ #{w\ 14249}#
+ #{s*\ 14250}#
+ #{mod\ 14251}#)
+ ((lambda (#{tmp\ 14257}#)
+ ((lambda (#{tmp\ 14258}#)
+ (if (if #{tmp\ 14258}#
+ (apply (lambda (#{e\
14260}#)
+ (#{id?\
11151}#
+ #{e\
14260}#))
+ #{tmp\ 14258}#)
#f)
- (apply (lambda (#{e\
3335}#)
-
(#{build-global-assignment\ 158}#
- #{s\ 3259}#
+ (apply (lambda (#{e\
14262}#)
+
(#{build-global-assignment\ 11087}#
+ #{s\ 14186}#
(syntax->datum
- #{e\ 3335}#)
- #{val\ 3318}#
- #{mod\ 3324}#))
- #{tmp\ 3331}#)
+ #{e\ 14262}#)
+ #{val\ 14245}#
+ #{mod\ 14251}#))
+ #{tmp\ 14258}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 3330}#)))
- (list #{tmp\ 3330}#)))
- #{e\ 3320}#))))
- (#{build-application\ 144}#
- #{s\ 3259}#
- (#{chi\ 307}#
+ #{tmp\ 14257}#)))
+ (list #{tmp\ 14257}#)))
+ #{e\ 14247}#))))
+ (#{build-application\ 11073}#
+ #{s\ 14186}#
+ (#{chi\ 11236}#
(list '#(syntax-object
setter
((top)
@@ -9431,22 +9512,22 @@
(top)
(top)
(top))
- #("i3310"
- "i3311"
- "i3312"
- "i3313"
- "i3314"
- "i3315"))
+ #("i14237"
+ "i14238"
+ "i14239"
+ "i14240"
+ "i14241"
+ "i14242"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i3294"
- "i3295"
- "i3296"
- "i3297"))
+ #("i14221"
+ "i14222"
+ "i14223"
+ "i14224"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9455,11 +9536,11 @@
(top)
(top)
(top))
- #("i3261"
- "i3262"
- "i3263"
- "i3264"
- "i3265"))
+ #("i14188"
+ "i14189"
+ "i14190"
+ "i14191"
+ "i14192"))
#(ribcage
(lambda-var-list
gen-var
@@ -9577,8 +9658,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -9695,181 +9775,181 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952" "i10950")))
(hygiene guile))
- #{head\ 3299}#)
- #{r\ 3257}#
- #{w\ 3258}#
- #{mod\ 3260}#)
- (map (lambda (#{e\ 3337}#)
- (#{chi\ 307}#
- #{e\ 3337}#
- #{r\ 3257}#
- #{w\ 3258}#
- #{mod\ 3260}#))
+ #{head\ 14226}#)
+ #{r\ 14184}#
+ #{w\ 14185}#
+ #{mod\ 14187}#)
+ (map (lambda (#{e\ 14264}#)
+ (#{chi\ 11236}#
+ #{e\ 14264}#
+ #{r\ 14184}#
+ #{w\ 14185}#
+ #{mod\ 14187}#))
(append
- #{tail\ 3300}#
- (list #{val\ 3301}#))))))))
- #{tmp\ 3293}#)
- ((lambda (#{_\ 3341}#)
+ #{tail\ 14227}#
+ (list #{val\ 14228}#))))))))
+ #{tmp\ 14220}#)
+ ((lambda (#{_\ 14268}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 293}#
- #{e\ 3256}#
- #{w\ 3258}#
- #{s\ 3259}#
- #{mod\ 3260}#)))
- #{tmp\ 3266}#)))
+ (#{source-wrap\ 11222}#
+ #{e\ 14183}#
+ #{w\ 14185}#
+ #{s\ 14186}#
+ #{mod\ 14187}#)))
+ #{tmp\ 14193}#)))
($sc-dispatch
- #{tmp\ 3266}#
+ #{tmp\ 14193}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 3266}#
+ #{tmp\ 14193}#
'(any any any))))
- #{e\ 3256}#)))
- (#{global-extend\ 218}#
+ #{e\ 14183}#)))
+ (#{global-extend\ 11147}#
'module-ref
'@
- (lambda (#{e\ 3342}# #{r\ 3343}# #{w\ 3344}#)
- ((lambda (#{tmp\ 3348}#)
- ((lambda (#{tmp\ 3349}#)
- (if (if #{tmp\ 3349}#
- (apply (lambda (#{_\ 3353}# #{mod\ 3354}# #{id\ 3355}#)
- (if (and-map #{id?\ 222}# #{mod\ 3354}#)
- (#{id?\ 222}# #{id\ 3355}#)
+ (lambda (#{e\ 14269}# #{r\ 14270}# #{w\ 14271}#)
+ ((lambda (#{tmp\ 14275}#)
+ ((lambda (#{tmp\ 14276}#)
+ (if (if #{tmp\ 14276}#
+ (apply (lambda (#{_\ 14280}#
+ #{mod\ 14281}#
+ #{id\ 14282}#)
+ (if (and-map #{id?\ 11151}# #{mod\ 14281}#)
+ (#{id?\ 11151}# #{id\ 14282}#)
#f))
- #{tmp\ 3349}#)
+ #{tmp\ 14276}#)
#f)
- (apply (lambda (#{_\ 3362}# #{mod\ 3363}# #{id\ 3364}#)
+ (apply (lambda (#{_\ 14289}# #{mod\ 14290}# #{id\ 14291}#)
(values
- (syntax->datum #{id\ 3364}#)
- #{r\ 3343}#
- #{w\ 3344}#
+ (syntax->datum #{id\ 14291}#)
+ #{r\ 14270}#
+ #{w\ 14271}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -9878,12 +9958,12 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3359" "i3360" "i3361"))
+ #("i14286" "i14287" "i14288"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3345" "i3346" "i3347"))
+ #("i14272" "i14273" "i14274"))
#(ribcage
(lambda-var-list
gen-var
@@ -10001,8 +10081,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -10119,196 +10198,195 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952" "i10950")))
(hygiene guile))
- #{mod\ 3363}#))))
- #{tmp\ 3349}#)
+ #{mod\ 14290}#))))
+ #{tmp\ 14276}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3348}#)))
+ #{tmp\ 14275}#)))
($sc-dispatch
- #{tmp\ 3348}#
+ #{tmp\ 14275}#
'(any each-any any))))
- #{e\ 3342}#)))
- (#{global-extend\ 218}#
+ #{e\ 14269}#)))
+ (#{global-extend\ 11147}#
'module-ref
'@@
- (lambda (#{e\ 3366}# #{r\ 3367}# #{w\ 3368}#)
- (letrec ((#{remodulate\ 3373}#
- (lambda (#{x\ 3374}# #{mod\ 3375}#)
- (if (pair? #{x\ 3374}#)
- (cons (#{remodulate\ 3373}#
- (car #{x\ 3374}#)
- #{mod\ 3375}#)
- (#{remodulate\ 3373}#
- (cdr #{x\ 3374}#)
- #{mod\ 3375}#))
- (if (#{syntax-object?\ 186}# #{x\ 3374}#)
- (#{make-syntax-object\ 184}#
- (#{remodulate\ 3373}#
- (#{syntax-object-expression\ 188}# #{x\ 3374}#)
- #{mod\ 3375}#)
- (#{syntax-object-wrap\ 190}# #{x\ 3374}#)
- #{mod\ 3375}#)
- (if (vector? #{x\ 3374}#)
- (let ((#{n\ 3386}# (vector-length #{x\ 3374}#)))
- (let ((#{v\ 3388}# (make-vector #{n\ 3386}#)))
- (letrec ((#{loop\ 3391}#
- (lambda (#{i\ 3392}#)
- (if (#{fx=\ 127}#
- #{i\ 3392}#
- #{n\ 3386}#)
- (begin (if #f #f) #{v\ 3388}#)
+ (lambda (#{e\ 14293}# #{r\ 14294}# #{w\ 14295}#)
+ (letrec ((#{remodulate\ 14300}#
+ (lambda (#{x\ 14301}# #{mod\ 14302}#)
+ (if (pair? #{x\ 14301}#)
+ (cons (#{remodulate\ 14300}#
+ (car #{x\ 14301}#)
+ #{mod\ 14302}#)
+ (#{remodulate\ 14300}#
+ (cdr #{x\ 14301}#)
+ #{mod\ 14302}#))
+ (if (#{syntax-object?\ 11115}# #{x\ 14301}#)
+ (#{make-syntax-object\ 11113}#
+ (#{remodulate\ 14300}#
+ (#{syntax-object-expression\ 11117}#
+ #{x\ 14301}#)
+ #{mod\ 14302}#)
+ (#{syntax-object-wrap\ 11119}# #{x\ 14301}#)
+ #{mod\ 14302}#)
+ (if (vector? #{x\ 14301}#)
+ (let ((#{n\ 14313}# (vector-length #{x\ 14301}#)))
+ (let ((#{v\ 14315}# (make-vector #{n\ 14313}#)))
+ (letrec ((#{loop\ 14318}#
+ (lambda (#{i\ 14319}#)
+ (if (#{fx=\ 11056}#
+ #{i\ 14319}#
+ #{n\ 14313}#)
+ (begin (if #f #f) #{v\ 14315}#)
(begin
(vector-set!
- #{v\ 3388}#
- #{i\ 3392}#
- (#{remodulate\ 3373}#
+ #{v\ 14315}#
+ #{i\ 14319}#
+ (#{remodulate\ 14300}#
(vector-ref
- #{x\ 3374}#
- #{i\ 3392}#)
- #{mod\ 3375}#))
- (#{loop\ 3391}#
- (#{fx+\ 123}#
- #{i\ 3392}#
+ #{x\ 14301}#
+ #{i\ 14319}#)
+ #{mod\ 14302}#))
+ (#{loop\ 14318}#
+ (#{fx+\ 11052}#
+ #{i\ 14319}#
1)))))))
- (#{loop\ 3391}# 0))))
- #{x\ 3374}#))))))
- ((lambda (#{tmp\ 3396}#)
- ((lambda (#{tmp\ 3397}#)
- (if (if #{tmp\ 3397}#
- (apply (lambda (#{_\ 3401}#
- #{mod\ 3402}#
- #{exp\ 3403}#)
- (and-map #{id?\ 222}# #{mod\ 3402}#))
- #{tmp\ 3397}#)
+ (#{loop\ 14318}# 0))))
+ #{x\ 14301}#))))))
+ ((lambda (#{tmp\ 14323}#)
+ ((lambda (#{tmp\ 14324}#)
+ (if (if #{tmp\ 14324}#
+ (apply (lambda (#{_\ 14328}#
+ #{mod\ 14329}#
+ #{exp\ 14330}#)
+ (and-map #{id?\ 11151}# #{mod\ 14329}#))
+ #{tmp\ 14324}#)
#f)
- (apply (lambda (#{_\ 3408}# #{mod\ 3409}# #{exp\ 3410}#)
- (let ((#{mod\ 3412}#
+ (apply (lambda (#{_\ 14335}# #{mod\ 14336}# #{exp\ 14337}#)
+ (let ((#{mod\ 14339}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10316,15 +10394,19 @@
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i3405" "i3406" "i3407"))
+ #("i14332"
+ "i14333"
+ "i14334"))
#(ribcage
(remodulate)
((top))
- ("i3372"))
+ ("i14299"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3369" "i3370" "i3371"))
+ #("i14296"
+ "i14297"
+ "i14298"))
#(ribcage
(lambda-var-list
gen-var
@@ -10442,8 +10524,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -10560,314 +10641,313 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952" "i10950")))
(hygiene guile))
- #{mod\ 3409}#))))
+ #{mod\ 14336}#))))
(values
- (#{remodulate\ 3373}#
- #{exp\ 3410}#
- #{mod\ 3412}#)
- #{r\ 3367}#
- #{w\ 3368}#
- (#{source-annotation\ 201}# #{exp\ 3410}#)
- #{mod\ 3412}#)))
- #{tmp\ 3397}#)
+ (#{remodulate\ 14300}#
+ #{exp\ 14337}#
+ #{mod\ 14339}#)
+ #{r\ 14294}#
+ #{w\ 14295}#
+ (#{source-annotation\ 11130}# #{exp\ 14337}#)
+ #{mod\ 14339}#)))
+ #{tmp\ 14324}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3396}#)))
+ #{tmp\ 14323}#)))
($sc-dispatch
- #{tmp\ 3396}#
+ #{tmp\ 14323}#
'(any each-any any))))
- #{e\ 3366}#))))
- (#{global-extend\ 218}#
+ #{e\ 14293}#))))
+ (#{global-extend\ 11147}#
'core
'if
- (lambda (#{e\ 3414}#
- #{r\ 3415}#
- #{w\ 3416}#
- #{s\ 3417}#
- #{mod\ 3418}#)
- ((lambda (#{tmp\ 3424}#)
- ((lambda (#{tmp\ 3425}#)
- (if #{tmp\ 3425}#
- (apply (lambda (#{_\ 3429}# #{test\ 3430}# #{then\ 3431}#)
- (#{build-conditional\ 146}#
- #{s\ 3417}#
- (#{chi\ 307}#
- #{test\ 3430}#
- #{r\ 3415}#
- #{w\ 3416}#
- #{mod\ 3418}#)
- (#{chi\ 307}#
- #{then\ 3431}#
- #{r\ 3415}#
- #{w\ 3416}#
- #{mod\ 3418}#)
- (#{build-void\ 142}# #f)))
- #{tmp\ 3425}#)
- ((lambda (#{tmp\ 3433}#)
- (if #{tmp\ 3433}#
- (apply (lambda (#{_\ 3438}#
- #{test\ 3439}#
- #{then\ 3440}#
- #{else\ 3441}#)
- (#{build-conditional\ 146}#
- #{s\ 3417}#
- (#{chi\ 307}#
- #{test\ 3439}#
- #{r\ 3415}#
- #{w\ 3416}#
- #{mod\ 3418}#)
- (#{chi\ 307}#
- #{then\ 3440}#
- #{r\ 3415}#
- #{w\ 3416}#
- #{mod\ 3418}#)
- (#{chi\ 307}#
- #{else\ 3441}#
- #{r\ 3415}#
- #{w\ 3416}#
- #{mod\ 3418}#)))
- #{tmp\ 3433}#)
+ (lambda (#{e\ 14341}#
+ #{r\ 14342}#
+ #{w\ 14343}#
+ #{s\ 14344}#
+ #{mod\ 14345}#)
+ ((lambda (#{tmp\ 14351}#)
+ ((lambda (#{tmp\ 14352}#)
+ (if #{tmp\ 14352}#
+ (apply (lambda (#{_\ 14356}# #{test\ 14357}# #{then\ 14358}#)
+ (#{build-conditional\ 11075}#
+ #{s\ 14344}#
+ (#{chi\ 11236}#
+ #{test\ 14357}#
+ #{r\ 14342}#
+ #{w\ 14343}#
+ #{mod\ 14345}#)
+ (#{chi\ 11236}#
+ #{then\ 14358}#
+ #{r\ 14342}#
+ #{w\ 14343}#
+ #{mod\ 14345}#)
+ (#{build-void\ 11071}# #f)))
+ #{tmp\ 14352}#)
+ ((lambda (#{tmp\ 14360}#)
+ (if #{tmp\ 14360}#
+ (apply (lambda (#{_\ 14365}#
+ #{test\ 14366}#
+ #{then\ 14367}#
+ #{else\ 14368}#)
+ (#{build-conditional\ 11075}#
+ #{s\ 14344}#
+ (#{chi\ 11236}#
+ #{test\ 14366}#
+ #{r\ 14342}#
+ #{w\ 14343}#
+ #{mod\ 14345}#)
+ (#{chi\ 11236}#
+ #{then\ 14367}#
+ #{r\ 14342}#
+ #{w\ 14343}#
+ #{mod\ 14345}#)
+ (#{chi\ 11236}#
+ #{else\ 14368}#
+ #{r\ 14342}#
+ #{w\ 14343}#
+ #{mod\ 14345}#)))
+ #{tmp\ 14360}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3424}#)))
+ #{tmp\ 14351}#)))
($sc-dispatch
- #{tmp\ 3424}#
+ #{tmp\ 14351}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 3424}#
+ #{tmp\ 14351}#
'(any any any))))
- #{e\ 3414}#)))
- (#{global-extend\ 218}#
+ #{e\ 14341}#)))
+ (#{global-extend\ 11147}#
'core
'with-fluids
- (lambda (#{e\ 3442}#
- #{r\ 3443}#
- #{w\ 3444}#
- #{s\ 3445}#
- #{mod\ 3446}#)
- ((lambda (#{tmp\ 3452}#)
- ((lambda (#{tmp\ 3453}#)
- (if #{tmp\ 3453}#
- (apply (lambda (#{_\ 3459}#
- #{fluid\ 3460}#
- #{val\ 3461}#
- #{b\ 3462}#
- #{b*\ 3463}#)
- (#{build-dynlet\ 148}#
- #{s\ 3445}#
- (map (lambda (#{x\ 3464}#)
- (#{chi\ 307}#
- #{x\ 3464}#
- #{r\ 3443}#
- #{w\ 3444}#
- #{mod\ 3446}#))
- #{fluid\ 3460}#)
- (map (lambda (#{x\ 3467}#)
- (#{chi\ 307}#
- #{x\ 3467}#
- #{r\ 3443}#
- #{w\ 3444}#
- #{mod\ 3446}#))
- #{val\ 3461}#)
- (#{chi-body\ 315}#
- (cons #{b\ 3462}# #{b*\ 3463}#)
- (#{source-wrap\ 293}#
- #{e\ 3442}#
- #{w\ 3444}#
- #{s\ 3445}#
- #{mod\ 3446}#)
- #{r\ 3443}#
- #{w\ 3444}#
- #{mod\ 3446}#)))
- #{tmp\ 3453}#)
+ (lambda (#{e\ 14369}#
+ #{r\ 14370}#
+ #{w\ 14371}#
+ #{s\ 14372}#
+ #{mod\ 14373}#)
+ ((lambda (#{tmp\ 14379}#)
+ ((lambda (#{tmp\ 14380}#)
+ (if #{tmp\ 14380}#
+ (apply (lambda (#{_\ 14386}#
+ #{fluid\ 14387}#
+ #{val\ 14388}#
+ #{b\ 14389}#
+ #{b*\ 14390}#)
+ (#{build-dynlet\ 11077}#
+ #{s\ 14372}#
+ (map (lambda (#{x\ 14391}#)
+ (#{chi\ 11236}#
+ #{x\ 14391}#
+ #{r\ 14370}#
+ #{w\ 14371}#
+ #{mod\ 14373}#))
+ #{fluid\ 14387}#)
+ (map (lambda (#{x\ 14394}#)
+ (#{chi\ 11236}#
+ #{x\ 14394}#
+ #{r\ 14370}#
+ #{w\ 14371}#
+ #{mod\ 14373}#))
+ #{val\ 14388}#)
+ (#{chi-body\ 11244}#
+ (cons #{b\ 14389}# #{b*\ 14390}#)
+ (#{source-wrap\ 11222}#
+ #{e\ 14369}#
+ #{w\ 14371}#
+ #{s\ 14372}#
+ #{mod\ 14373}#)
+ #{r\ 14370}#
+ #{w\ 14371}#
+ #{mod\ 14373}#)))
+ #{tmp\ 14380}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3452}#)))
+ #{tmp\ 14379}#)))
($sc-dispatch
- #{tmp\ 3452}#
+ #{tmp\ 14379}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3442}#)))
- (#{global-extend\ 218}#
+ #{e\ 14369}#)))
+ (#{global-extend\ 11147}#
'begin
'begin
'())
- (#{global-extend\ 218}#
+ (#{global-extend\ 11147}#
'define
'define
'())
- (#{global-extend\ 218}#
+ (#{global-extend\ 11147}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 218}#
+ (#{global-extend\ 11147}#
'eval-when
'eval-when
'())
- (#{global-extend\ 218}#
+ (#{global-extend\ 11147}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 3478}#
- (lambda (#{x\ 3479}#
- #{keys\ 3480}#
- #{clauses\ 3481}#
- #{r\ 3482}#
- #{mod\ 3483}#)
- (if (null? #{clauses\ 3481}#)
- (#{build-application\ 144}#
+ (letrec ((#{gen-syntax-case\ 14405}#
+ (lambda (#{x\ 14406}#
+ #{keys\ 14407}#
+ #{clauses\ 14408}#
+ #{r\ 14409}#
+ #{mod\ 14410}#)
+ (if (null? #{clauses\ 14408}#)
+ (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}#
+ (#{build-primref\ 11099}#
#f
'syntax-violation)
- (list (#{build-data\ 172}# #f #f)
- (#{build-data\ 172}#
+ (list (#{build-data\ 11101}# #f #f)
+ (#{build-data\ 11101}#
#f
"source expression failed to match any
pattern")
- #{x\ 3479}#))
- ((lambda (#{tmp\ 3493}#)
- ((lambda (#{tmp\ 3494}#)
- (if #{tmp\ 3494}#
- (apply (lambda (#{pat\ 3497}# #{exp\ 3498}#)
- (if (if (#{id?\ 222}# #{pat\ 3497}#)
+ #{x\ 14406}#))
+ ((lambda (#{tmp\ 14420}#)
+ ((lambda (#{tmp\ 14421}#)
+ (if #{tmp\ 14421}#
+ (apply (lambda (#{pat\ 14424}# #{exp\ 14425}#)
+ (if (if (#{id?\ 11151}# #{pat\ 14424}#)
(and-map
- (lambda (#{x\ 3501}#)
- (not (#{free-id=?\ 281}#
- #{pat\ 3497}#
- #{x\ 3501}#)))
+ (lambda (#{x\ 14428}#)
+ (not (#{free-id=?\ 11210}#
+ #{pat\ 14424}#
+ #{x\ 14428}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3495" "i3496"))
+ #("i14422"
+ "i14423"))
#(ribcage () () ())
#(ribcage
#(x
@@ -10880,11 +10960,11 @@
(top)
(top)
(top))
- #("i3484"
- "i3485"
- "i3486"
- "i3487"
- "i3488"))
+ #("i14411"
+ "i14412"
+ "i14413"
+ "i14414"
+ "i14415"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -10894,10 +10974,10 @@
(top)
(top)
(top))
- ("i3477"
- "i3475"
- "i3473"
- "i3471"))
+ ("i14404"
+ "i14402"
+ "i14400"
+ "i14398"))
#(ribcage
(lambda-var-list
gen-var
@@ -11015,8 +11095,7 @@
fx=
fx-
fx+
- *mode*
- noexpand)
+ *mode*)
((top)
(top)
(top)
@@ -11133,1027 +11212,1043 @@
(top)
(top)
(top)
- (top)
(top))
- ("i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i265"
- "i264"
- "i262"
- "i261"
- "i260"
- "i259"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i239"
- "i237"
- "i236"
- "i235"
- "i234"
- "i233"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i208"
- "i206"
- "i204"
- "i203"
- "i202"
- "i200"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i155"
- "i153"
- "i151"
- "i149"
- "i147"
- "i145"
- "i143"
- "i141"
- "i139"
- "i137"
- "i135"
- "i134"
- "i132"
- "i130"
- "i128"
- "i126"
- "i124"
- "i122"
- "i120"
- "i118"))
+ ("i11265"
+ "i11263"
+ "i11261"
+ "i11259"
+ "i11257"
+ "i11255"
+ "i11253"
+ "i11251"
+ "i11249"
+ "i11247"
+ "i11245"
+ "i11243"
+ "i11241"
+ "i11239"
+ "i11237"
+ "i11235"
+ "i11233"
+ "i11231"
+ "i11229"
+ "i11227"
+ "i11225"
+ "i11223"
+ "i11221"
+ "i11219"
+ "i11217"
+ "i11215"
+ "i11213"
+ "i11211"
+ "i11209"
+ "i11207"
+ "i11205"
+ "i11203"
+ "i11201"
+ "i11199"
+ "i11197"
+ "i11195"
+ "i11194"
+ "i11193"
+ "i11191"
+ "i11190"
+ "i11189"
+ "i11188"
+ "i11187"
+ "i11185"
+ "i11183"
+ "i11181"
+ "i11179"
+ "i11177"
+ "i11175"
+ "i11173"
+ "i11171"
+ "i11168"
+ "i11166"
+ "i11165"
+ "i11164"
+ "i11163"
+ "i11162"
+ "i11161"
+ "i11159"
+ "i11157"
+ "i11155"
+ "i11153"
+ "i11152"
+ "i11150"
+ "i11148"
+ "i11146"
+ "i11144"
+ "i11142"
+ "i11140"
+ "i11138"
+ "i11137"
+ "i11135"
+ "i11133"
+ "i11132"
+ "i11131"
+ "i11129"
+ "i11128"
+ "i11126"
+ "i11124"
+ "i11122"
+ "i11120"
+ "i11118"
+ "i11116"
+ "i11114"
+ "i11112"
+ "i11110"
+ "i11108"
+ "i11106"
+ "i11104"
+ "i11102"
+ "i11100"
+ "i11098"
+ "i11096"
+ "i11094"
+ "i11092"
+ "i11090"
+ "i11088"
+ "i11086"
+ "i11084"
+ "i11082"
+ "i11080"
+ "i11078"
+ "i11076"
+ "i11074"
+ "i11072"
+ "i11070"
+ "i11068"
+ "i11066"
+ "i11064"
+ "i11063"
+ "i11061"
+ "i11059"
+ "i11057"
+ "i11055"
+ "i11053"
+ "i11051"
+ "i11049"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i21" "i19")))
+ ("i10952"
+ "i10950")))
(hygiene guile))
- #{keys\ 3480}#))
+ #{keys\ 14407}#))
#f)
- (let ((#{labels\ 3505}#
- (list (#{gen-label\ 238}#)))
- (#{var\ 3506}#
- (#{gen-var\ 335}#
- #{pat\ 3497}#)))
- (#{build-application\ 144}#
+ (let ((#{labels\ 14432}#
+ (list (#{gen-label\
11167}#)))
+ (#{var\ 14433}#
+ (#{gen-var\ 11264}#
+ #{pat\ 14424}#)))
+ (#{build-application\ 11073}#
#f
- (#{build-simple-lambda\ 164}#
+ (#{build-simple-lambda\ 11093}#
#f
(list (syntax->datum
- #{pat\ 3497}#))
+ #{pat\ 14424}#))
#f
- (list #{var\ 3506}#)
+ (list #{var\ 14433}#)
'()
- (#{chi\ 307}#
- #{exp\ 3498}#
- (#{extend-env\ 210}#
- #{labels\ 3505}#
+ (#{chi\ 11236}#
+ #{exp\ 14425}#
+ (#{extend-env\ 11139}#
+ #{labels\ 14432}#
(list (cons 'syntax
- (cons #{var\
3506}#
+ (cons #{var\
14433}#
0)))
- #{r\ 3482}#)
- (#{make-binding-wrap\ 269}#
- (list #{pat\ 3497}#)
- #{labels\ 3505}#
+ #{r\ 14409}#)
+ (#{make-binding-wrap\ 11198}#
+ (list #{pat\ 14424}#)
+ #{labels\ 14432}#
'(()))
- #{mod\ 3483}#))
- (list #{x\ 3479}#)))
- (#{gen-clause\ 3476}#
- #{x\ 3479}#
- #{keys\ 3480}#
- (cdr #{clauses\ 3481}#)
- #{r\ 3482}#
- #{pat\ 3497}#
+ #{mod\ 14410}#))
+ (list #{x\ 14406}#)))
+ (#{gen-clause\ 14403}#
+ #{x\ 14406}#
+ #{keys\ 14407}#
+ (cdr #{clauses\ 14408}#)
+ #{r\ 14409}#
+ #{pat\ 14424}#
#t
- #{exp\ 3498}#
- #{mod\ 3483}#)))
- #{tmp\ 3494}#)
- ((lambda (#{tmp\ 3512}#)
- (if #{tmp\ 3512}#
- (apply (lambda (#{pat\ 3516}#
- #{fender\ 3517}#
- #{exp\ 3518}#)
- (#{gen-clause\ 3476}#
- #{x\ 3479}#
- #{keys\ 3480}#
- (cdr #{clauses\ 3481}#)
- #{r\ 3482}#
- #{pat\ 3516}#
- #{fender\ 3517}#
- #{exp\ 3518}#
- #{mod\ 3483}#))
- #{tmp\ 3512}#)
- ((lambda (#{_\ 3520}#)
+ #{exp\ 14425}#
+ #{mod\ 14410}#)))
+ #{tmp\ 14421}#)
+ ((lambda (#{tmp\ 14439}#)
+ (if #{tmp\ 14439}#
+ (apply (lambda (#{pat\ 14443}#
+ #{fender\ 14444}#
+ #{exp\ 14445}#)
+ (#{gen-clause\ 14403}#
+ #{x\ 14406}#
+ #{keys\ 14407}#
+ (cdr #{clauses\ 14408}#)
+ #{r\ 14409}#
+ #{pat\ 14443}#
+ #{fender\ 14444}#
+ #{exp\ 14445}#
+ #{mod\ 14410}#))
+ #{tmp\ 14439}#)
+ ((lambda (#{_\ 14447}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3481}#)))
- #{tmp\ 3493}#)))
+ (car #{clauses\ 14408}#)))
+ #{tmp\ 14420}#)))
($sc-dispatch
- #{tmp\ 3493}#
+ #{tmp\ 14420}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 3493}# (quote (any any)))))
- (car #{clauses\ 3481}#)))))
- (#{gen-clause\ 3476}#
- (lambda (#{x\ 3521}#
- #{keys\ 3522}#
- #{clauses\ 3523}#
- #{r\ 3524}#
- #{pat\ 3525}#
- #{fender\ 3526}#
- #{exp\ 3527}#
- #{mod\ 3528}#)
+ ($sc-dispatch #{tmp\ 14420}# (quote (any any)))))
+ (car #{clauses\ 14408}#)))))
+ (#{gen-clause\ 14403}#
+ (lambda (#{x\ 14448}#
+ #{keys\ 14449}#
+ #{clauses\ 14450}#
+ #{r\ 14451}#
+ #{pat\ 14452}#
+ #{fender\ 14453}#
+ #{exp\ 14454}#
+ #{mod\ 14455}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3472}#
- #{pat\ 3525}#
- #{keys\ 3522}#))
- (lambda (#{p\ 3537}# #{pvars\ 3538}#)
- (if (not (#{distinct-bound-ids?\ 287}#
- (map car #{pvars\ 3538}#)))
+ (#{convert-pattern\ 14399}#
+ #{pat\ 14452}#
+ #{keys\ 14449}#))
+ (lambda (#{p\ 14464}# #{pvars\ 14465}#)
+ (if (not (#{distinct-bound-ids?\ 11216}#
+ (map car #{pvars\ 14465}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3525}#)
+ #{pat\ 14452}#)
(if (not (and-map
- (lambda (#{x\ 3545}#)
- (not (#{ellipsis?\ 323}#
- (car #{x\ 3545}#))))
- #{pvars\ 3538}#))
+ (lambda (#{x\ 14472}#)
+ (not (#{ellipsis?\ 11252}#
+ (car #{x\ 14472}#))))
+ #{pvars\ 14465}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3525}#)
- (let ((#{y\ 3549}#
- (#{gen-var\ 335}# (quote tmp))))
- (#{build-application\ 144}#
+ #{pat\ 14452}#)
+ (let ((#{y\ 14476}#
+ (#{gen-var\ 11264}# (quote tmp))))
+ (#{build-application\ 11073}#
#f
- (#{build-simple-lambda\ 164}#
+ (#{build-simple-lambda\ 11093}#
#f
(list (quote tmp))
#f
- (list #{y\ 3549}#)
+ (list #{y\ 14476}#)
'()
- (let ((#{y\ 3553}#
- (#{build-lexical-reference\ 150}#
+ (let ((#{y\ 14480}#
+ (#{build-lexical-reference\ 11079}#
'value
#f
'tmp
- #{y\ 3549}#)))
- (#{build-conditional\ 146}#
+ #{y\ 14476}#)))
+ (#{build-conditional\ 11075}#
#f
- ((lambda (#{tmp\ 3556}#)
- ((lambda (#{tmp\ 3557}#)
- (if #{tmp\ 3557}#
- (apply (lambda () #{y\ 3553}#)
- #{tmp\ 3557}#)
- ((lambda (#{_\ 3559}#)
- (#{build-conditional\ 146}#
+ ((lambda (#{tmp\ 14483}#)
+ ((lambda (#{tmp\ 14484}#)
+ (if #{tmp\ 14484}#
+ (apply (lambda () #{y\ 14480}#)
+ #{tmp\ 14484}#)
+ ((lambda (#{_\ 14486}#)
+ (#{build-conditional\ 11075}#
#f
- #{y\ 3553}#
- (#{build-dispatch-call\
3474}#
- #{pvars\ 3538}#
- #{fender\ 3526}#
- #{y\ 3553}#
- #{r\ 3524}#
- #{mod\ 3528}#)
- (#{build-data\ 172}#
+ #{y\ 14480}#
+ (#{build-dispatch-call\
14401}#
+ #{pvars\ 14465}#
+ #{fender\ 14453}#
+ #{y\ 14480}#
+ #{r\ 14451}#
+ #{mod\ 14455}#)
+ (#{build-data\ 11101}#
#f
#f)))
- #{tmp\ 3556}#)))
+ #{tmp\ 14483}#)))
($sc-dispatch
- #{tmp\ 3556}#
+ #{tmp\ 14483}#
'#(atom #t))))
- #{fender\ 3526}#)
- (#{build-dispatch-call\ 3474}#
- #{pvars\ 3538}#
- #{exp\ 3527}#
- #{y\ 3553}#
- #{r\ 3524}#
- #{mod\ 3528}#)
- (#{gen-syntax-case\ 3478}#
- #{x\ 3521}#
- #{keys\ 3522}#
- #{clauses\ 3523}#
- #{r\ 3524}#
- #{mod\ 3528}#))))
- (list (if (eq? #{p\ 3537}# (quote any))
- (#{build-application\ 144}#
+ #{fender\ 14453}#)
+ (#{build-dispatch-call\ 14401}#
+ #{pvars\ 14465}#
+ #{exp\ 14454}#
+ #{y\ 14480}#
+ #{r\ 14451}#
+ #{mod\ 14455}#)
+ (#{gen-syntax-case\ 14405}#
+ #{x\ 14448}#
+ #{keys\ 14449}#
+ #{clauses\ 14450}#
+ #{r\ 14451}#
+ #{mod\ 14455}#))))
+ (list (if (eq? #{p\ 14464}# (quote any))
+ (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}#
+ (#{build-primref\ 11099}#
#f
'list)
- (list #{x\ 3521}#))
- (#{build-application\ 144}#
+ (list #{x\ 14448}#))
+ (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}#
+ (#{build-primref\ 11099}#
#f
'$sc-dispatch)
- (list #{x\ 3521}#
- (#{build-data\ 172}#
+ (list #{x\ 14448}#
+ (#{build-data\ 11101}#
#f
- #{p\ 3537}#)))))))))))))
- (#{build-dispatch-call\ 3474}#
- (lambda (#{pvars\ 3567}#
- #{exp\ 3568}#
- #{y\ 3569}#
- #{r\ 3570}#
- #{mod\ 3571}#)
- (let ((#{ids\ 3579}# (map car #{pvars\ 3567}#))
- (#{levels\ 3580}# (map cdr #{pvars\ 3567}#)))
- (let ((#{labels\ 3583}#
- (#{gen-labels\ 240}# #{ids\ 3579}#))
- (#{new-vars\ 3584}#
- (map #{gen-var\ 335}# #{ids\ 3579}#)))
- (#{build-application\ 144}#
+ #{p\ 14464}#)))))))))))))
+ (#{build-dispatch-call\ 14401}#
+ (lambda (#{pvars\ 14494}#
+ #{exp\ 14495}#
+ #{y\ 14496}#
+ #{r\ 14497}#
+ #{mod\ 14498}#)
+ (let ((#{ids\ 14506}# (map car #{pvars\ 14494}#))
+ (#{levels\ 14507}# (map cdr #{pvars\ 14494}#)))
+ (let ((#{labels\ 14510}#
+ (#{gen-labels\ 11169}# #{ids\ 14506}#))
+ (#{new-vars\ 14511}#
+ (map #{gen-var\ 11264}# #{ids\ 14506}#)))
+ (#{build-application\ 11073}#
#f
- (#{build-primref\ 170}# #f (quote apply))
- (list (#{build-simple-lambda\ 164}#
+ (#{build-primref\ 11099}# #f (quote apply))
+ (list (#{build-simple-lambda\ 11093}#
#f
- (map syntax->datum #{ids\ 3579}#)
+ (map syntax->datum #{ids\ 14506}#)
#f
- #{new-vars\ 3584}#
+ #{new-vars\ 14511}#
'()
- (#{chi\ 307}#
- #{exp\ 3568}#
- (#{extend-env\ 210}#
- #{labels\ 3583}#
- (map (lambda (#{var\ 3588}#
- #{level\ 3589}#)
+ (#{chi\ 11236}#
+ #{exp\ 14495}#
+ (#{extend-env\ 11139}#
+ #{labels\ 14510}#
+ (map (lambda (#{var\ 14515}#
+ #{level\ 14516}#)
(cons 'syntax
- (cons #{var\ 3588}#
- #{level\ 3589}#)))
- #{new-vars\ 3584}#
- (map cdr #{pvars\ 3567}#))
- #{r\ 3570}#)
- (#{make-binding-wrap\ 269}#
- #{ids\ 3579}#
- #{labels\ 3583}#
+ (cons #{var\ 14515}#
+ #{level\ 14516}#)))
+ #{new-vars\ 14511}#
+ (map cdr #{pvars\ 14494}#))
+ #{r\ 14497}#)
+ (#{make-binding-wrap\ 11198}#
+ #{ids\ 14506}#
+ #{labels\ 14510}#
'(()))
- #{mod\ 3571}#))
- #{y\ 3569}#))))))
- (#{convert-pattern\ 3472}#
- (lambda (#{pattern\ 3595}# #{keys\ 3596}#)
- (letrec ((#{cvt\ 3602}#
- (lambda (#{p\ 3603}# #{n\ 3604}# #{ids\ 3605}#)
- (if (#{id?\ 222}# #{p\ 3603}#)
- (if (#{bound-id-member?\ 289}#
- #{p\ 3603}#
- #{keys\ 3596}#)
+ #{mod\ 14498}#))
+ #{y\ 14496}#))))))
+ (#{convert-pattern\ 14399}#
+ (lambda (#{pattern\ 14522}# #{keys\ 14523}#)
+ (letrec ((#{cvt\ 14529}#
+ (lambda (#{p\ 14530}#
+ #{n\ 14531}#
+ #{ids\ 14532}#)
+ (if (#{id?\ 11151}# #{p\ 14530}#)
+ (if (#{bound-id-member?\ 11218}#
+ #{p\ 14530}#
+ #{keys\ 14523}#)
(values
- (vector (quote free-id) #{p\ 3603}#)
- #{ids\ 3605}#)
+ (vector (quote free-id) #{p\ 14530}#)
+ #{ids\ 14532}#)
(values
'any
- (cons (cons #{p\ 3603}# #{n\ 3604}#)
- #{ids\ 3605}#)))
- ((lambda (#{tmp\ 3609}#)
- ((lambda (#{tmp\ 3610}#)
- (if (if #{tmp\ 3610}#
- (apply (lambda (#{x\ 3613}#
- #{dots\ 3614}#)
- (#{ellipsis?\ 323}#
- #{dots\ 3614}#))
- #{tmp\ 3610}#)
+ (cons (cons #{p\ 14530}# #{n\ 14531}#)
+ #{ids\ 14532}#)))
+ ((lambda (#{tmp\ 14536}#)
+ ((lambda (#{tmp\ 14537}#)
+ (if (if #{tmp\ 14537}#
+ (apply (lambda (#{x\ 14540}#
+ #{dots\
14541}#)
+ (#{ellipsis?\ 11252}#
+ #{dots\ 14541}#))
+ #{tmp\ 14537}#)
#f)
- (apply (lambda (#{x\ 3617}#
- #{dots\ 3618}#)
+ (apply (lambda (#{x\ 14544}#
+ #{dots\ 14545}#)
(call-with-values
(lambda ()
- (#{cvt\ 3602}#
- #{x\ 3617}#
- (#{fx+\ 123}#
- #{n\ 3604}#
+ (#{cvt\ 14529}#
+ #{x\ 14544}#
+ (#{fx+\ 11052}#
+ #{n\ 14531}#
1)
- #{ids\ 3605}#))
- (lambda (#{p\ 3619}#
- #{ids\ 3620}#)
+ #{ids\ 14532}#))
+ (lambda (#{p\ 14546}#
+ #{ids\ 14547}#)
(values
- (if (eq? #{p\ 3619}#
+ (if (eq? #{p\
14546}#
'any)
'each-any
(vector
'each
- #{p\ 3619}#))
- #{ids\ 3620}#))))
- #{tmp\ 3610}#)
- ((lambda (#{tmp\ 3623}#)
- (if (if #{tmp\ 3623}#
- (apply (lambda (#{x\
3627}#
- #{dots\
3628}#
- #{ys\
3629}#)
- (#{ellipsis?\
323}#
- #{dots\
3628}#))
- #{tmp\ 3623}#)
+ #{p\ 14546}#))
+ #{ids\ 14547}#))))
+ #{tmp\ 14537}#)
+ ((lambda (#{tmp\ 14550}#)
+ (if (if #{tmp\ 14550}#
+ (apply (lambda (#{x\
14554}#
+ #{dots\
14555}#
+ #{ys\
14556}#)
+ (#{ellipsis?\
11252}#
+ #{dots\
14555}#))
+ #{tmp\ 14550}#)
#f)
- (apply (lambda (#{x\ 3633}#
- #{dots\ 3634}#
- #{ys\ 3635}#)
+ (apply (lambda (#{x\ 14560}#
+ #{dots\
14561}#
+ #{ys\ 14562}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3600}#
- #{ys\ 3635}#
- #{n\ 3604}#
- #{ids\ 3605}#))
- (lambda (#{ys\
3637}#
- #{ids\
3638}#)
+ (#{cvt*\ 14527}#
+ #{ys\ 14562}#
+ #{n\ 14531}#
+ #{ids\
14532}#))
+ (lambda (#{ys\
14564}#
+ #{ids\
14565}#)
(call-with-values
(lambda ()
- (#{cvt\
3602}#
- #{x\ 3633}#
- (+ #{n\
3604}#
+ (#{cvt\
14529}#
+ #{x\
14560}#
+ (+ #{n\
14531}#
1)
- #{ids\
3638}#))
- (lambda (#{x\
3641}#
-
#{ids\ 3642}#)
+ #{ids\
14565}#))
+ (lambda (#{x\
14568}#
+
#{ids\ 14569}#)
(values
(list->vector
(cons
'each+
-
(cons #{x\ 3641}#
+
(cons #{x\ 14568}#
(cons (reverse
-
#{ys\ 3637}#)
+
#{ys\ 14564}#)
'(())))))
- #{ids\
3642}#))))))
- #{tmp\ 3623}#)
- ((lambda (#{tmp\ 3646}#)
- (if #{tmp\ 3646}#
- (apply (lambda (#{x\
3649}#
- #{y\
3650}#)
+ #{ids\
14569}#))))))
+ #{tmp\ 14550}#)
+ ((lambda (#{tmp\ 14573}#)
+ (if #{tmp\ 14573}#
+ (apply (lambda (#{x\
14576}#
+ #{y\
14577}#)
(call-with-values
(lambda ()
- (#{cvt\
3602}#
- #{y\
3650}#
- #{n\
3604}#
- #{ids\
3605}#))
- (lambda (#{y\
3651}#
-
#{ids\ 3652}#)
+ (#{cvt\
14529}#
+ #{y\
14577}#
+ #{n\
14531}#
+ #{ids\
14532}#))
+ (lambda (#{y\
14578}#
+
#{ids\ 14579}#)
(call-with-values
(lambda ()
- (#{cvt\
3602}#
- #{x\
3649}#
- #{n\
3604}#
-
#{ids\ 3652}#))
- (lambda
(#{x\ 3655}#
-
#{ids\ 3656}#)
+ (#{cvt\
14529}#
+ #{x\
14576}#
+ #{n\
14531}#
+
#{ids\ 14579}#))
+ (lambda
(#{x\ 14582}#
+
#{ids\ 14583}#)
(values
- (cons
#{x\ 3655}#
-
#{y\ 3651}#)
-
#{ids\ 3656}#))))))
- #{tmp\ 3646}#)
- ((lambda (#{tmp\ 3659}#)
- (if #{tmp\ 3659}#
+ (cons
#{x\ 14582}#
+
#{y\ 14578}#)
+
#{ids\ 14583}#))))))
+ #{tmp\ 14573}#)
+ ((lambda (#{tmp\ 14586}#)
+ (if #{tmp\ 14586}#
(apply (lambda ()
(values
'()
- #{ids\
3605}#))
- #{tmp\
3659}#)
- ((lambda (#{tmp\
3660}#)
- (if #{tmp\ 3660}#
- (apply (lambda
(#{x\ 3662}#)
+ #{ids\
14532}#))
+ #{tmp\
14586}#)
+ ((lambda (#{tmp\
14587}#)
+ (if #{tmp\
14587}#
+ (apply (lambda
(#{x\ 14589}#)
(call-with-values
(lambda ()
-
(#{cvt\ 3602}#
-
#{x\ 3662}#
-
#{n\ 3604}#
-
#{ids\ 3605}#))
-
(lambda (#{p\ 3664}#
-
#{ids\ 3665}#)
+
(#{cvt\ 14529}#
+
#{x\ 14589}#
+
#{n\ 14531}#
+
#{ids\ 14532}#))
+
(lambda (#{p\ 14591}#
+
#{ids\ 14592}#)
(values
(vector
'vector
-
#{p\ 3664}#)
-
#{ids\ 3665}#))))
- #{tmp\
3660}#)
- ((lambda (#{x\
3669}#)
+
#{p\ 14591}#)
+
#{ids\ 14592}#))))
+ #{tmp\
14587}#)
+ ((lambda (#{x\
14596}#)
(values
(vector
'atom
-
(#{strip\ 333}#
- #{p\
3603}#
+
(#{strip\ 11262}#
+ #{p\
14530}#
'(())))
- #{ids\
3605}#))
- #{tmp\
3609}#)))
+ #{ids\
14532}#))
+ #{tmp\
14536}#)))
($sc-dispatch
- #{tmp\ 3609}#
+ #{tmp\ 14536}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 3609}#
+ #{tmp\ 14536}#
'()))))
($sc-dispatch
- #{tmp\ 3609}#
+ #{tmp\ 14536}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3609}#
+ #{tmp\ 14536}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 3609}#
+ #{tmp\ 14536}#
'(any any))))
- #{p\ 3603}#))))
- (#{cvt*\ 3600}#
- (lambda (#{p*\ 3671}#
- #{n\ 3672}#
- #{ids\ 3673}#)
- (if (null? #{p*\ 3671}#)
- (values (quote ()) #{ids\ 3673}#)
+ #{p\ 14530}#))))
+ (#{cvt*\ 14527}#
+ (lambda (#{p*\ 14598}#
+ #{n\ 14599}#
+ #{ids\ 14600}#)
+ (if (null? #{p*\ 14598}#)
+ (values (quote ()) #{ids\ 14600}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3600}#
- (cdr #{p*\ 3671}#)
- #{n\ 3672}#
- #{ids\ 3673}#))
- (lambda (#{y\ 3677}# #{ids\ 3678}#)
+ (#{cvt*\ 14527}#
+ (cdr #{p*\ 14598}#)
+ #{n\ 14599}#
+ #{ids\ 14600}#))
+ (lambda (#{y\ 14604}# #{ids\ 14605}#)
(call-with-values
(lambda ()
- (#{cvt\ 3602}#
- (car #{p*\ 3671}#)
- #{n\ 3672}#
- #{ids\ 3678}#))
- (lambda (#{x\ 3681}# #{ids\ 3682}#)
+ (#{cvt\ 14529}#
+ (car #{p*\ 14598}#)
+ #{n\ 14599}#
+ #{ids\ 14605}#))
+ (lambda (#{x\ 14608}# #{ids\ 14609}#)
(values
- (cons #{x\ 3681}# #{y\ 3677}#)
- #{ids\ 3682}#)))))))))
- (#{cvt\ 3602}# #{pattern\ 3595}# 0 (quote ()))))))
- (lambda (#{e\ 3685}#
- #{r\ 3686}#
- #{w\ 3687}#
- #{s\ 3688}#
- #{mod\ 3689}#)
- (let ((#{e\ 3696}#
- (#{source-wrap\ 293}#
- #{e\ 3685}#
- #{w\ 3687}#
- #{s\ 3688}#
- #{mod\ 3689}#)))
- ((lambda (#{tmp\ 3697}#)
- ((lambda (#{tmp\ 3698}#)
- (if #{tmp\ 3698}#
- (apply (lambda (#{_\ 3703}#
- #{val\ 3704}#
- #{key\ 3705}#
- #{m\ 3706}#)
+ (cons #{x\ 14608}# #{y\ 14604}#)
+ #{ids\ 14609}#)))))))))
+ (#{cvt\ 14529}# #{pattern\ 14522}# 0 (quote ()))))))
+ (lambda (#{e\ 14612}#
+ #{r\ 14613}#
+ #{w\ 14614}#
+ #{s\ 14615}#
+ #{mod\ 14616}#)
+ (let ((#{e\ 14623}#
+ (#{source-wrap\ 11222}#
+ #{e\ 14612}#
+ #{w\ 14614}#
+ #{s\ 14615}#
+ #{mod\ 14616}#)))
+ ((lambda (#{tmp\ 14624}#)
+ ((lambda (#{tmp\ 14625}#)
+ (if #{tmp\ 14625}#
+ (apply (lambda (#{_\ 14630}#
+ #{val\ 14631}#
+ #{key\ 14632}#
+ #{m\ 14633}#)
(if (and-map
- (lambda (#{x\ 3707}#)
- (if (#{id?\ 222}# #{x\ 3707}#)
- (not (#{ellipsis?\ 323}# #{x\ 3707}#))
+ (lambda (#{x\ 14634}#)
+ (if (#{id?\ 11151}# #{x\ 14634}#)
+ (not (#{ellipsis?\ 11252}#
+ #{x\ 14634}#))
#f))
- #{key\ 3705}#)
- (let ((#{x\ 3713}#
- (#{gen-var\ 335}# (quote tmp))))
- (#{build-application\ 144}#
- #{s\ 3688}#
- (#{build-simple-lambda\ 164}#
+ #{key\ 14632}#)
+ (let ((#{x\ 14640}#
+ (#{gen-var\ 11264}# (quote tmp))))
+ (#{build-application\ 11073}#
+ #{s\ 14615}#
+ (#{build-simple-lambda\ 11093}#
#f
(list (quote tmp))
#f
- (list #{x\ 3713}#)
+ (list #{x\ 14640}#)
'()
- (#{gen-syntax-case\ 3478}#
- (#{build-lexical-reference\ 150}#
+ (#{gen-syntax-case\ 14405}#
+ (#{build-lexical-reference\ 11079}#
'value
#f
'tmp
- #{x\ 3713}#)
- #{key\ 3705}#
- #{m\ 3706}#
- #{r\ 3686}#
- #{mod\ 3689}#))
- (list (#{chi\ 307}#
- #{val\ 3704}#
- #{r\ 3686}#
+ #{x\ 14640}#)
+ #{key\ 14632}#
+ #{m\ 14633}#
+ #{r\ 14613}#
+ #{mod\ 14616}#))
+ (list (#{chi\ 11236}#
+ #{val\ 14631}#
+ #{r\ 14613}#
'(())
- #{mod\ 3689}#))))
+ #{mod\ 14616}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3696}#)))
- #{tmp\ 3698}#)
+ #{e\ 14623}#)))
+ #{tmp\ 14625}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3697}#)))
+ #{tmp\ 14624}#)))
($sc-dispatch
- #{tmp\ 3697}#
+ #{tmp\ 14624}#
'(any any each-any . each-any))))
- #{e\ 3696}#)))))
+ #{e\ 14623}#)))))
(set! macroexpand
- (lambda (#{x\ 3719}# . #{rest\ 3720}#)
- (if (if (pair? #{x\ 3719}#)
- (equal? (car #{x\ 3719}#) #{noexpand\ 119}#)
- #f)
- (cadr #{x\ 3719}#)
- (let ((#{m\ 3727}#
- (if (null? #{rest\ 3720}#)
- 'e
- (car #{rest\ 3720}#)))
- (#{esew\ 3728}#
- (if (let ((#{t\ 3731}# (null? #{rest\ 3720}#)))
- (if #{t\ 3731}#
- #{t\ 3731}#
- (null? (cdr #{rest\ 3720}#))))
- '(eval)
- (cadr #{rest\ 3720}#))))
- (with-fluids
- ((#{*mode*\ 121}# #{m\ 3727}#))
- (#{chi-top\ 305}#
- #{x\ 3719}#
+ (lambda (#{x\ 14646}# . #{rest\ 14647}#)
+ (let ((#{m\ 14653}#
+ (if (null? #{rest\ 14647}#)
+ 'e
+ (car #{rest\ 14647}#)))
+ (#{esew\ 14654}#
+ (if (let ((#{t\ 14658}# (null? #{rest\ 14647}#)))
+ (if #{t\ 14658}#
+ #{t\ 14658}#
+ (null? (cdr #{rest\ 14647}#))))
+ '(eval)
+ (cadr #{rest\ 14647}#)))
+ (#{mod\ 14655}#
+ (cons 'hygiene
+ (module-name (current-module)))))
+ (with-fluids
+ ((#{*mode*\ 11050}# #{m\ 14653}#))
+ (if (eq? #{m\ 14653}# (quote e))
+ (memoize-expression
+ (#{chi-top\ 11234}#
+ #{x\ 14646}#
+ '()
+ '((top))
+ #{m\ 14653}#
+ #{esew\ 14654}#
+ #{mod\ 14655}#))
+ (#{chi-top\ 11234}#
+ #{x\ 14646}#
'()
'((top))
- #{m\ 3727}#
- #{esew\ 3728}#
- (cons 'hygiene
- (module-name (current-module)))))))))
+ #{m\ 14653}#
+ #{esew\ 14654}#
+ #{mod\ 14655}#))))))
(set! identifier?
- (lambda (#{x\ 3735}#)
- (#{nonsymbol-id?\ 220}# #{x\ 3735}#)))
+ (lambda (#{x\ 14664}#)
+ (#{nonsymbol-id?\ 11149}# #{x\ 14664}#)))
(set! datum->syntax
- (lambda (#{id\ 3737}# #{datum\ 3738}#)
- (#{make-syntax-object\ 184}#
- #{datum\ 3738}#
- (#{syntax-object-wrap\ 190}# #{id\ 3737}#)
+ (lambda (#{id\ 14666}# #{datum\ 14667}#)
+ (#{make-syntax-object\ 11113}#
+ #{datum\ 14667}#
+ (#{syntax-object-wrap\ 11119}# #{id\ 14666}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 3741}#)
- (#{strip\ 333}# #{x\ 3741}# (quote (())))))
+ (lambda (#{x\ 14670}#)
+ (#{strip\ 11262}# #{x\ 14670}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 3744}#)
+ (lambda (#{ls\ 14673}#)
(begin
- (let ((#{x\ 3748}# #{ls\ 3744}#))
- (if (not (list? #{x\ 3748}#))
+ (let ((#{x\ 14677}# #{ls\ 14673}#))
+ (if (not (list? #{x\ 14677}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3748}#)))
- (map (lambda (#{x\ 3749}#)
- (#{wrap\ 291}# (gensym) (quote ((top))) #f))
- #{ls\ 3744}#))))
+ #{x\ 14677}#)))
+ (map (lambda (#{x\ 14678}#)
+ (#{wrap\ 11220}# (gensym) (quote ((top))) #f))
+ #{ls\ 14673}#))))
(set! free-identifier=?
- (lambda (#{x\ 3753}# #{y\ 3754}#)
+ (lambda (#{x\ 14682}# #{y\ 14683}#)
(begin
- (let ((#{x\ 3759}# #{x\ 3753}#))
- (if (not (#{nonsymbol-id?\ 220}# #{x\ 3759}#))
+ (let ((#{x\ 14688}# #{x\ 14682}#))
+ (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14688}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3759}#)))
- (let ((#{x\ 3762}# #{y\ 3754}#))
- (if (not (#{nonsymbol-id?\ 220}# #{x\ 3762}#))
+ #{x\ 14688}#)))
+ (let ((#{x\ 14691}# #{y\ 14683}#))
+ (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14691}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3762}#)))
- (#{free-id=?\ 281}# #{x\ 3753}# #{y\ 3754}#))))
+ #{x\ 14691}#)))
+ (#{free-id=?\ 11210}# #{x\ 14682}# #{y\ 14683}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3763}# #{y\ 3764}#)
+ (lambda (#{x\ 14692}# #{y\ 14693}#)
(begin
- (let ((#{x\ 3769}# #{x\ 3763}#))
- (if (not (#{nonsymbol-id?\ 220}# #{x\ 3769}#))
+ (let ((#{x\ 14698}# #{x\ 14692}#))
+ (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14698}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3769}#)))
- (let ((#{x\ 3772}# #{y\ 3764}#))
- (if (not (#{nonsymbol-id?\ 220}# #{x\ 3772}#))
+ #{x\ 14698}#)))
+ (let ((#{x\ 14701}# #{y\ 14693}#))
+ (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14701}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3772}#)))
- (#{bound-id=?\ 283}# #{x\ 3763}# #{y\ 3764}#))))
+ #{x\ 14701}#)))
+ (#{bound-id=?\ 11212}# #{x\ 14692}# #{y\ 14693}#))))
(set! syntax-violation
- (lambda (#{who\ 3773}#
- #{message\ 3774}#
- #{form\ 3775}#
+ (lambda (#{who\ 14702}#
+ #{message\ 14703}#
+ #{form\ 14704}#
.
- #{subform\ 3776}#)
+ #{subform\ 14705}#)
(begin
- (let ((#{x\ 3783}# #{who\ 3773}#))
- (if (not ((lambda (#{x\ 3784}#)
- (let ((#{t\ 3788}# (not #{x\ 3784}#)))
- (if #{t\ 3788}#
- #{t\ 3788}#
- (let ((#{t\ 3791}# (string? #{x\ 3784}#)))
- (if #{t\ 3791}#
- #{t\ 3791}#
- (symbol? #{x\ 3784}#))))))
- #{x\ 3783}#))
+ (let ((#{x\ 14712}# #{who\ 14702}#))
+ (if (not ((lambda (#{x\ 14713}#)
+ (let ((#{t\ 14717}# (not #{x\ 14713}#)))
+ (if #{t\ 14717}#
+ #{t\ 14717}#
+ (let ((#{t\ 14720}# (string? #{x\ 14713}#)))
+ (if #{t\ 14720}#
+ #{t\ 14720}#
+ (symbol? #{x\ 14713}#))))))
+ #{x\ 14712}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3783}#)))
- (let ((#{x\ 3795}# #{message\ 3774}#))
- (if (not (string? #{x\ 3795}#))
+ #{x\ 14712}#)))
+ (let ((#{x\ 14724}# #{message\ 14703}#))
+ (if (not (string? #{x\ 14724}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3795}#)))
+ #{x\ 14724}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 3773}# "~a: " "")
+ (if #{who\ 14702}# "~a: " "")
"~a "
- (if (null? #{subform\ 3776}#)
+ (if (null? #{subform\ 14705}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 3797}#
- (cons #{message\ 3774}#
- (map (lambda (#{x\ 3798}#)
- (#{strip\ 333}# #{x\ 3798}# (quote (()))))
+ (let ((#{tail\ 14726}#
+ (cons #{message\ 14703}#
+ (map (lambda (#{x\ 14727}#)
+ (#{strip\ 11262}#
+ #{x\ 14727}#
+ '(())))
(append
- #{subform\ 3776}#
- (list #{form\ 3775}#))))))
- (if #{who\ 3773}#
- (cons #{who\ 3773}# #{tail\ 3797}#)
- #{tail\ 3797}#))
+ #{subform\ 14705}#
+ (list #{form\ 14704}#))))))
+ (if #{who\ 14702}#
+ (cons #{who\ 14702}# #{tail\ 14726}#)
+ #{tail\ 14726}#))
#f))))
- (letrec ((#{match\ 3814}#
- (lambda (#{e\ 3815}#
- #{p\ 3816}#
- #{w\ 3817}#
- #{r\ 3818}#
- #{mod\ 3819}#)
- (if (not #{r\ 3818}#)
+ (letrec ((#{match\ 14743}#
+ (lambda (#{e\ 14744}#
+ #{p\ 14745}#
+ #{w\ 14746}#
+ #{r\ 14747}#
+ #{mod\ 14748}#)
+ (if (not #{r\ 14747}#)
#f
- (if (eq? #{p\ 3816}# (quote any))
- (cons (#{wrap\ 291}#
- #{e\ 3815}#
- #{w\ 3817}#
- #{mod\ 3819}#)
- #{r\ 3818}#)
- (if (#{syntax-object?\ 186}# #{e\ 3815}#)
- (#{match*\ 3812}#
- (#{syntax-object-expression\ 188}# #{e\ 3815}#)
- #{p\ 3816}#
- (#{join-wraps\ 273}#
- #{w\ 3817}#
- (#{syntax-object-wrap\ 190}# #{e\ 3815}#))
- #{r\ 3818}#
- (#{syntax-object-module\ 192}# #{e\ 3815}#))
- (#{match*\ 3812}#
- #{e\ 3815}#
- #{p\ 3816}#
- #{w\ 3817}#
- #{r\ 3818}#
- #{mod\ 3819}#))))))
- (#{match*\ 3812}#
- (lambda (#{e\ 3832}#
- #{p\ 3833}#
- #{w\ 3834}#
- #{r\ 3835}#
- #{mod\ 3836}#)
- (if (null? #{p\ 3833}#)
- (if (null? #{e\ 3832}#) #{r\ 3835}# #f)
- (if (pair? #{p\ 3833}#)
- (if (pair? #{e\ 3832}#)
- (#{match\ 3814}#
- (car #{e\ 3832}#)
- (car #{p\ 3833}#)
- #{w\ 3834}#
- (#{match\ 3814}#
- (cdr #{e\ 3832}#)
- (cdr #{p\ 3833}#)
- #{w\ 3834}#
- #{r\ 3835}#
- #{mod\ 3836}#)
- #{mod\ 3836}#)
+ (if (eq? #{p\ 14745}# (quote any))
+ (cons (#{wrap\ 11220}#
+ #{e\ 14744}#
+ #{w\ 14746}#
+ #{mod\ 14748}#)
+ #{r\ 14747}#)
+ (if (#{syntax-object?\ 11115}# #{e\ 14744}#)
+ (#{match*\ 14741}#
+ (#{syntax-object-expression\ 11117}#
+ #{e\ 14744}#)
+ #{p\ 14745}#
+ (#{join-wraps\ 11202}#
+ #{w\ 14746}#
+ (#{syntax-object-wrap\ 11119}# #{e\ 14744}#))
+ #{r\ 14747}#
+ (#{syntax-object-module\ 11121}# #{e\ 14744}#))
+ (#{match*\ 14741}#
+ #{e\ 14744}#
+ #{p\ 14745}#
+ #{w\ 14746}#
+ #{r\ 14747}#
+ #{mod\ 14748}#))))))
+ (#{match*\ 14741}#
+ (lambda (#{e\ 14761}#
+ #{p\ 14762}#
+ #{w\ 14763}#
+ #{r\ 14764}#
+ #{mod\ 14765}#)
+ (if (null? #{p\ 14762}#)
+ (if (null? #{e\ 14761}#) #{r\ 14764}# #f)
+ (if (pair? #{p\ 14762}#)
+ (if (pair? #{e\ 14761}#)
+ (#{match\ 14743}#
+ (car #{e\ 14761}#)
+ (car #{p\ 14762}#)
+ #{w\ 14763}#
+ (#{match\ 14743}#
+ (cdr #{e\ 14761}#)
+ (cdr #{p\ 14762}#)
+ #{w\ 14763}#
+ #{r\ 14764}#
+ #{mod\ 14765}#)
+ #{mod\ 14765}#)
#f)
- (if (eq? #{p\ 3833}# (quote each-any))
- (let ((#{l\ 3853}#
- (#{match-each-any\ 3806}#
- #{e\ 3832}#
- #{w\ 3834}#
- #{mod\ 3836}#)))
- (if #{l\ 3853}#
- (cons #{l\ 3853}# #{r\ 3835}#)
+ (if (eq? #{p\ 14762}# (quote each-any))
+ (let ((#{l\ 14782}#
+ (#{match-each-any\ 14735}#
+ #{e\ 14761}#
+ #{w\ 14763}#
+ #{mod\ 14765}#)))
+ (if #{l\ 14782}#
+ (cons #{l\ 14782}# #{r\ 14764}#)
#f))
- (let ((#{atom-key\ 3859}# (vector-ref #{p\ 3833}# 0)))
- (if (memv #{atom-key\ 3859}# (quote (each)))
- (if (null? #{e\ 3832}#)
- (#{match-empty\ 3808}#
- (vector-ref #{p\ 3833}# 1)
- #{r\ 3835}#)
- (let ((#{l\ 3862}#
- (#{match-each\ 3802}#
- #{e\ 3832}#
- (vector-ref #{p\ 3833}# 1)
- #{w\ 3834}#
- #{mod\ 3836}#)))
- (if #{l\ 3862}#
- (letrec ((#{collect\ 3867}#
- (lambda (#{l\ 3868}#)
- (if (null? (car #{l\ 3868}#))
- #{r\ 3835}#
- (cons (map car #{l\ 3868}#)
- (#{collect\ 3867}#
+ (let ((#{atom-key\ 14788}#
+ (vector-ref #{p\ 14762}# 0)))
+ (if (memv #{atom-key\ 14788}# (quote (each)))
+ (if (null? #{e\ 14761}#)
+ (#{match-empty\ 14737}#
+ (vector-ref #{p\ 14762}# 1)
+ #{r\ 14764}#)
+ (let ((#{l\ 14791}#
+ (#{match-each\ 14731}#
+ #{e\ 14761}#
+ (vector-ref #{p\ 14762}# 1)
+ #{w\ 14763}#
+ #{mod\ 14765}#)))
+ (if #{l\ 14791}#
+ (letrec ((#{collect\ 14796}#
+ (lambda (#{l\ 14797}#)
+ (if (null? (car #{l\ 14797}#))
+ #{r\ 14764}#
+ (cons (map car #{l\ 14797}#)
+ (#{collect\ 14796}#
(map cdr
- #{l\
3868}#)))))))
- (#{collect\ 3867}# #{l\ 3862}#))
+ #{l\
14797}#)))))))
+ (#{collect\ 14796}# #{l\ 14791}#))
#f)))
- (if (memv #{atom-key\ 3859}# (quote (each+)))
+ (if (memv #{atom-key\ 14788}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 3804}#
- #{e\ 3832}#
- (vector-ref #{p\ 3833}# 1)
- (vector-ref #{p\ 3833}# 2)
- (vector-ref #{p\ 3833}# 3)
- #{w\ 3834}#
- #{r\ 3835}#
- #{mod\ 3836}#))
- (lambda (#{xr*\ 3870}#
- #{y-pat\ 3871}#
- #{r\ 3872}#)
- (if #{r\ 3872}#
- (if (null? #{y-pat\ 3871}#)
- (if (null? #{xr*\ 3870}#)
- (#{match-empty\ 3808}#
- (vector-ref #{p\ 3833}# 1)
- #{r\ 3872}#)
- (#{combine\ 3810}#
- #{xr*\ 3870}#
- #{r\ 3872}#))
+ (#{match-each+\ 14733}#
+ #{e\ 14761}#
+ (vector-ref #{p\ 14762}# 1)
+ (vector-ref #{p\ 14762}# 2)
+ (vector-ref #{p\ 14762}# 3)
+ #{w\ 14763}#
+ #{r\ 14764}#
+ #{mod\ 14765}#))
+ (lambda (#{xr*\ 14799}#
+ #{y-pat\ 14800}#
+ #{r\ 14801}#)
+ (if #{r\ 14801}#
+ (if (null? #{y-pat\ 14800}#)
+ (if (null? #{xr*\ 14799}#)
+ (#{match-empty\ 14737}#
+ (vector-ref #{p\ 14762}# 1)
+ #{r\ 14801}#)
+ (#{combine\ 14739}#
+ #{xr*\ 14799}#
+ #{r\ 14801}#))
#f)
#f)))
- (if (memv #{atom-key\ 3859}# (quote (free-id)))
- (if (#{id?\ 222}# #{e\ 3832}#)
- (if (#{free-id=?\ 281}#
- (#{wrap\ 291}#
- #{e\ 3832}#
- #{w\ 3834}#
- #{mod\ 3836}#)
- (vector-ref #{p\ 3833}# 1))
- #{r\ 3835}#
+ (if (memv #{atom-key\ 14788}# (quote (free-id)))
+ (if (#{id?\ 11151}# #{e\ 14761}#)
+ (if (#{free-id=?\ 11210}#
+ (#{wrap\ 11220}#
+ #{e\ 14761}#
+ #{w\ 14763}#
+ #{mod\ 14765}#)
+ (vector-ref #{p\ 14762}# 1))
+ #{r\ 14764}#
#f)
#f)
- (if (memv #{atom-key\ 3859}# (quote (atom)))
+ (if (memv #{atom-key\ 14788}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 3833}# 1)
- (#{strip\ 333}#
- #{e\ 3832}#
- #{w\ 3834}#))
- #{r\ 3835}#
+ (vector-ref #{p\ 14762}# 1)
+ (#{strip\ 11262}#
+ #{e\ 14761}#
+ #{w\ 14763}#))
+ #{r\ 14764}#
#f)
- (if (memv #{atom-key\ 3859}#
+ (if (memv #{atom-key\ 14788}#
'(vector))
- (if (vector? #{e\ 3832}#)
- (#{match\ 3814}#
- (vector->list #{e\ 3832}#)
- (vector-ref #{p\ 3833}# 1)
- #{w\ 3834}#
- #{r\ 3835}#
- #{mod\ 3836}#)
+ (if (vector? #{e\ 14761}#)
+ (#{match\ 14743}#
+ (vector->list #{e\ 14761}#)
+ (vector-ref #{p\ 14762}# 1)
+ #{w\ 14763}#
+ #{r\ 14764}#
+ #{mod\ 14765}#)
#f))))))))))))
- (#{combine\ 3810}#
- (lambda (#{r*\ 3889}# #{r\ 3890}#)
- (if (null? (car #{r*\ 3889}#))
- #{r\ 3890}#
- (cons (map car #{r*\ 3889}#)
- (#{combine\ 3810}#
- (map cdr #{r*\ 3889}#)
- #{r\ 3890}#)))))
- (#{match-empty\ 3808}#
- (lambda (#{p\ 3893}# #{r\ 3894}#)
- (if (null? #{p\ 3893}#)
- #{r\ 3894}#
- (if (eq? #{p\ 3893}# (quote any))
- (cons (quote ()) #{r\ 3894}#)
- (if (pair? #{p\ 3893}#)
- (#{match-empty\ 3808}#
- (car #{p\ 3893}#)
- (#{match-empty\ 3808}#
- (cdr #{p\ 3893}#)
- #{r\ 3894}#))
- (if (eq? #{p\ 3893}# (quote each-any))
- (cons (quote ()) #{r\ 3894}#)
- (let ((#{atom-key\ 3908}#
- (vector-ref #{p\ 3893}# 0)))
- (if (memv #{atom-key\ 3908}# (quote (each)))
- (#{match-empty\ 3808}#
- (vector-ref #{p\ 3893}# 1)
- #{r\ 3894}#)
- (if (memv #{atom-key\ 3908}# (quote (each+)))
- (#{match-empty\ 3808}#
- (vector-ref #{p\ 3893}# 1)
- (#{match-empty\ 3808}#
- (reverse (vector-ref #{p\ 3893}# 2))
- (#{match-empty\ 3808}#
- (vector-ref #{p\ 3893}# 3)
- #{r\ 3894}#)))
- (if (memv #{atom-key\ 3908}#
+ (#{combine\ 14739}#
+ (lambda (#{r*\ 14818}# #{r\ 14819}#)
+ (if (null? (car #{r*\ 14818}#))
+ #{r\ 14819}#
+ (cons (map car #{r*\ 14818}#)
+ (#{combine\ 14739}#
+ (map cdr #{r*\ 14818}#)
+ #{r\ 14819}#)))))
+ (#{match-empty\ 14737}#
+ (lambda (#{p\ 14822}# #{r\ 14823}#)
+ (if (null? #{p\ 14822}#)
+ #{r\ 14823}#
+ (if (eq? #{p\ 14822}# (quote any))
+ (cons (quote ()) #{r\ 14823}#)
+ (if (pair? #{p\ 14822}#)
+ (#{match-empty\ 14737}#
+ (car #{p\ 14822}#)
+ (#{match-empty\ 14737}#
+ (cdr #{p\ 14822}#)
+ #{r\ 14823}#))
+ (if (eq? #{p\ 14822}# (quote each-any))
+ (cons (quote ()) #{r\ 14823}#)
+ (let ((#{atom-key\ 14837}#
+ (vector-ref #{p\ 14822}# 0)))
+ (if (memv #{atom-key\ 14837}# (quote (each)))
+ (#{match-empty\ 14737}#
+ (vector-ref #{p\ 14822}# 1)
+ #{r\ 14823}#)
+ (if (memv #{atom-key\ 14837}# (quote (each+)))
+ (#{match-empty\ 14737}#
+ (vector-ref #{p\ 14822}# 1)
+ (#{match-empty\ 14737}#
+ (reverse (vector-ref #{p\ 14822}# 2))
+ (#{match-empty\ 14737}#
+ (vector-ref #{p\ 14822}# 3)
+ #{r\ 14823}#)))
+ (if (memv #{atom-key\ 14837}#
'(free-id atom))
- #{r\ 3894}#
- (if (memv #{atom-key\ 3908}#
+ #{r\ 14823}#
+ (if (memv #{atom-key\ 14837}#
'(vector))
- (#{match-empty\ 3808}#
- (vector-ref #{p\ 3893}# 1)
- #{r\ 3894}#))))))))))))
- (#{match-each-any\ 3806}#
- (lambda (#{e\ 3913}# #{w\ 3914}# #{mod\ 3915}#)
- (if (pair? #{e\ 3913}#)
- (let ((#{l\ 3922}#
- (#{match-each-any\ 3806}#
- (cdr #{e\ 3913}#)
- #{w\ 3914}#
- #{mod\ 3915}#)))
- (if #{l\ 3922}#
- (cons (#{wrap\ 291}#
- (car #{e\ 3913}#)
- #{w\ 3914}#
- #{mod\ 3915}#)
- #{l\ 3922}#)
+ (#{match-empty\ 14737}#
+ (vector-ref #{p\ 14822}# 1)
+ #{r\ 14823}#))))))))))))
+ (#{match-each-any\ 14735}#
+ (lambda (#{e\ 14842}# #{w\ 14843}# #{mod\ 14844}#)
+ (if (pair? #{e\ 14842}#)
+ (let ((#{l\ 14851}#
+ (#{match-each-any\ 14735}#
+ (cdr #{e\ 14842}#)
+ #{w\ 14843}#
+ #{mod\ 14844}#)))
+ (if #{l\ 14851}#
+ (cons (#{wrap\ 11220}#
+ (car #{e\ 14842}#)
+ #{w\ 14843}#
+ #{mod\ 14844}#)
+ #{l\ 14851}#)
#f))
- (if (null? #{e\ 3913}#)
+ (if (null? #{e\ 14842}#)
'()
- (if (#{syntax-object?\ 186}# #{e\ 3913}#)
- (#{match-each-any\ 3806}#
- (#{syntax-object-expression\ 188}# #{e\ 3913}#)
- (#{join-wraps\ 273}#
- #{w\ 3914}#
- (#{syntax-object-wrap\ 190}# #{e\ 3913}#))
- #{mod\ 3915}#)
+ (if (#{syntax-object?\ 11115}# #{e\ 14842}#)
+ (#{match-each-any\ 14735}#
+ (#{syntax-object-expression\ 11117}#
+ #{e\ 14842}#)
+ (#{join-wraps\ 11202}#
+ #{w\ 14843}#
+ (#{syntax-object-wrap\ 11119}# #{e\ 14842}#))
+ #{mod\ 14844}#)
#f)))))
- (#{match-each+\ 3804}#
- (lambda (#{e\ 3930}#
- #{x-pat\ 3931}#
- #{y-pat\ 3932}#
- #{z-pat\ 3933}#
- #{w\ 3934}#
- #{r\ 3935}#
- #{mod\ 3936}#)
- (letrec ((#{f\ 3947}#
- (lambda (#{e\ 3948}# #{w\ 3949}#)
- (if (pair? #{e\ 3948}#)
+ (#{match-each+\ 14733}#
+ (lambda (#{e\ 14859}#
+ #{x-pat\ 14860}#
+ #{y-pat\ 14861}#
+ #{z-pat\ 14862}#
+ #{w\ 14863}#
+ #{r\ 14864}#
+ #{mod\ 14865}#)
+ (letrec ((#{f\ 14876}#
+ (lambda (#{e\ 14877}# #{w\ 14878}#)
+ (if (pair? #{e\ 14877}#)
(call-with-values
(lambda ()
- (#{f\ 3947}#
- (cdr #{e\ 3948}#)
- #{w\ 3949}#))
- (lambda (#{xr*\ 3952}#
- #{y-pat\ 3953}#
- #{r\ 3954}#)
- (if #{r\ 3954}#
- (if (null? #{y-pat\ 3953}#)
- (let ((#{xr\ 3959}#
- (#{match\ 3814}#
- (car #{e\ 3948}#)
- #{x-pat\ 3931}#
- #{w\ 3949}#
+ (#{f\ 14876}#
+ (cdr #{e\ 14877}#)
+ #{w\ 14878}#))
+ (lambda (#{xr*\ 14881}#
+ #{y-pat\ 14882}#
+ #{r\ 14883}#)
+ (if #{r\ 14883}#
+ (if (null? #{y-pat\ 14882}#)
+ (let ((#{xr\ 14888}#
+ (#{match\ 14743}#
+ (car #{e\ 14877}#)
+ #{x-pat\ 14860}#
+ #{w\ 14878}#
'()
- #{mod\ 3936}#)))
- (if #{xr\ 3959}#
+ #{mod\ 14865}#)))
+ (if #{xr\ 14888}#
(values
- (cons #{xr\ 3959}#
- #{xr*\ 3952}#)
- #{y-pat\ 3953}#
- #{r\ 3954}#)
+ (cons #{xr\ 14888}#
+ #{xr*\ 14881}#)
+ #{y-pat\ 14882}#
+ #{r\ 14883}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 3953}#)
- (#{match\ 3814}#
- (car #{e\ 3948}#)
- (car #{y-pat\ 3953}#)
- #{w\ 3949}#
- #{r\ 3954}#
- #{mod\ 3936}#)))
+ (cdr #{y-pat\ 14882}#)
+ (#{match\ 14743}#
+ (car #{e\ 14877}#)
+ (car #{y-pat\ 14882}#)
+ #{w\ 14878}#
+ #{r\ 14883}#
+ #{mod\ 14865}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 186}# #{e\ 3948}#)
- (#{f\ 3947}#
- (#{syntax-object-expression\ 188}#
- #{e\ 3948}#)
- (#{join-wraps\ 273}#
- #{w\ 3949}#
- #{e\ 3948}#))
+ (if (#{syntax-object?\ 11115}# #{e\ 14877}#)
+ (#{f\ 14876}#
+ (#{syntax-object-expression\ 11117}#
+ #{e\ 14877}#)
+ (#{join-wraps\ 11202}#
+ #{w\ 14878}#
+ #{e\ 14877}#))
(values
'()
- #{y-pat\ 3932}#
- (#{match\ 3814}#
- #{e\ 3948}#
- #{z-pat\ 3933}#
- #{w\ 3949}#
- #{r\ 3935}#
- #{mod\ 3936}#)))))))
- (#{f\ 3947}# #{e\ 3930}# #{w\ 3934}#))))
- (#{match-each\ 3802}#
- (lambda (#{e\ 3963}#
- #{p\ 3964}#
- #{w\ 3965}#
- #{mod\ 3966}#)
- (if (pair? #{e\ 3963}#)
- (let ((#{first\ 3974}#
- (#{match\ 3814}#
- (car #{e\ 3963}#)
- #{p\ 3964}#
- #{w\ 3965}#
+ #{y-pat\ 14861}#
+ (#{match\ 14743}#
+ #{e\ 14877}#
+ #{z-pat\ 14862}#
+ #{w\ 14878}#
+ #{r\ 14864}#
+ #{mod\ 14865}#)))))))
+ (#{f\ 14876}# #{e\ 14859}# #{w\ 14863}#))))
+ (#{match-each\ 14731}#
+ (lambda (#{e\ 14892}#
+ #{p\ 14893}#
+ #{w\ 14894}#
+ #{mod\ 14895}#)
+ (if (pair? #{e\ 14892}#)
+ (let ((#{first\ 14903}#
+ (#{match\ 14743}#
+ (car #{e\ 14892}#)
+ #{p\ 14893}#
+ #{w\ 14894}#
'()
- #{mod\ 3966}#)))
- (if #{first\ 3974}#
- (let ((#{rest\ 3978}#
- (#{match-each\ 3802}#
- (cdr #{e\ 3963}#)
- #{p\ 3964}#
- #{w\ 3965}#
- #{mod\ 3966}#)))
- (if #{rest\ 3978}#
- (cons #{first\ 3974}# #{rest\ 3978}#)
+ #{mod\ 14895}#)))
+ (if #{first\ 14903}#
+ (let ((#{rest\ 14907}#
+ (#{match-each\ 14731}#
+ (cdr #{e\ 14892}#)
+ #{p\ 14893}#
+ #{w\ 14894}#
+ #{mod\ 14895}#)))
+ (if #{rest\ 14907}#
+ (cons #{first\ 14903}# #{rest\ 14907}#)
#f))
#f))
- (if (null? #{e\ 3963}#)
+ (if (null? #{e\ 14892}#)
'()
- (if (#{syntax-object?\ 186}# #{e\ 3963}#)
- (#{match-each\ 3802}#
- (#{syntax-object-expression\ 188}# #{e\ 3963}#)
- #{p\ 3964}#
- (#{join-wraps\ 273}#
- #{w\ 3965}#
- (#{syntax-object-wrap\ 190}# #{e\ 3963}#))
- (#{syntax-object-module\ 192}# #{e\ 3963}#))
+ (if (#{syntax-object?\ 11115}# #{e\ 14892}#)
+ (#{match-each\ 14731}#
+ (#{syntax-object-expression\ 11117}#
+ #{e\ 14892}#)
+ #{p\ 14893}#
+ (#{join-wraps\ 11202}#
+ #{w\ 14894}#
+ (#{syntax-object-wrap\ 11119}# #{e\ 14892}#))
+ (#{syntax-object-module\ 11121}# #{e\ 14892}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 3986}# #{p\ 3987}#)
- (if (eq? #{p\ 3987}# (quote any))
- (list #{e\ 3986}#)
- (if (#{syntax-object?\ 186}# #{e\ 3986}#)
- (#{match*\ 3812}#
- (#{syntax-object-expression\ 188}# #{e\ 3986}#)
- #{p\ 3987}#
- (#{syntax-object-wrap\ 190}# #{e\ 3986}#)
+ (lambda (#{e\ 14915}# #{p\ 14916}#)
+ (if (eq? #{p\ 14916}# (quote any))
+ (list #{e\ 14915}#)
+ (if (#{syntax-object?\ 11115}# #{e\ 14915}#)
+ (#{match*\ 14741}#
+ (#{syntax-object-expression\ 11117}#
+ #{e\ 14915}#)
+ #{p\ 14916}#
+ (#{syntax-object-wrap\ 11119}# #{e\ 14915}#)
'()
- (#{syntax-object-module\ 192}# #{e\ 3986}#))
- (#{match*\ 3812}#
- #{e\ 3986}#
- #{p\ 3987}#
+ (#{syntax-object-module\ 11121}# #{e\ 14915}#))
+ (#{match*\ 14741}#
+ #{e\ 14915}#
+ #{p\ 14916}#
'(())
'()
#f)))))))))
@@ -12162,50 +12257,50 @@
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 3996}#)
- ((lambda (#{tmp\ 3998}#)
- ((lambda (#{tmp\ 3999}#)
- (if #{tmp\ 3999}#
- (apply (lambda (#{_\ 4003}# #{e1\ 4004}# #{e2\ 4005}#)
+ (cons (lambda (#{x\ 14925}#)
+ ((lambda (#{tmp\ 14927}#)
+ ((lambda (#{tmp\ 14928}#)
+ (if #{tmp\ 14928}#
+ (apply (lambda (#{_\ 14932}# #{e1\ 14933}# #{e2\ 14934}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i4000" "i4001" "i4002"))
+ #("i14929" "i14930" "i14931"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3997")))
+ #(ribcage #(x) #((top)) #("i14926")))
(hygiene guile))
- (cons #{e1\ 4004}# #{e2\ 4005}#)))
- #{tmp\ 3999}#)
- ((lambda (#{tmp\ 4007}#)
- (if #{tmp\ 4007}#
- (apply (lambda (#{_\ 4013}#
- #{out\ 4014}#
- #{in\ 4015}#
- #{e1\ 4016}#
- #{e2\ 4017}#)
+ (cons #{e1\ 14933}# #{e2\ 14934}#)))
+ #{tmp\ 14928}#)
+ ((lambda (#{tmp\ 14936}#)
+ (if #{tmp\ 14936}#
+ (apply (lambda (#{_\ 14942}#
+ #{out\ 14943}#
+ #{in\ 14944}#
+ #{e1\ 14945}#
+ #{e2\ 14946}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4008"
- "i4009"
- "i4010"
- "i4011"
- "i4012"))
+ #("i14937"
+ "i14938"
+ "i14939"
+ "i14940"
+ "i14941"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3997")))
+ #("i14926")))
(hygiene guile))
- #{in\ 4015}#
+ #{in\ 14944}#
'()
- (list #{out\ 4014}#
+ (list #{out\ 14943}#
(cons '#(syntax-object
begin
((top)
@@ -12216,27 +12311,27 @@
(top)
(top)
(top))
- #("i4008"
- "i4009"
- "i4010"
- "i4011"
- "i4012"))
+ #("i14937"
+ "i14938"
+ "i14939"
+ "i14940"
+ "i14941"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3997")))
+ #("i14926")))
(hygiene guile))
- (cons #{e1\ 4016}#
- #{e2\ 4017}#)))))
- #{tmp\ 4007}#)
- ((lambda (#{tmp\ 4019}#)
- (if #{tmp\ 4019}#
- (apply (lambda (#{_\ 4025}#
- #{out\ 4026}#
- #{in\ 4027}#
- #{e1\ 4028}#
- #{e2\ 4029}#)
+ (cons #{e1\ 14945}#
+ #{e2\ 14946}#)))))
+ #{tmp\ 14936}#)
+ ((lambda (#{tmp\ 14948}#)
+ (if #{tmp\ 14948}#
+ (apply (lambda (#{_\ 14954}#
+ #{out\ 14955}#
+ #{in\ 14956}#
+ #{e1\ 14957}#
+ #{e2\ 14958}#)
(list '#(syntax-object
syntax-case
((top)
@@ -12247,16 +12342,16 @@
(top)
(top)
(top))
- #("i4020"
- "i4021"
- "i4022"
- "i4023"
- "i4024"))
+ #("i14949"
+ "i14950"
+ "i14951"
+ "i14952"
+ "i14953"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3997")))
+ #("i14926")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -12268,20 +12363,20 @@
(top)
(top)
(top))
- #("i4020"
- "i4021"
- "i4022"
- "i4023"
- "i4024"))
+ #("i14949"
+ "i14950"
+ "i14951"
+ "i14952"
+ "i14953"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3997")))
+ #("i14926")))
(hygiene guile))
- #{in\ 4027}#)
+ #{in\ 14956}#)
'()
- (list #{out\ 4026}#
+ (list #{out\ 14955}#
(cons '#(syntax-object
begin
((top)
@@ -12296,11 +12391,11 @@
(top)
(top)
(top))
- #("i4020"
- "i4021"
- "i4022"
- "i4023"
- "i4024"))
+ #("i14949"
+ "i14950"
+ "i14951"
+ "i14952"
+ "i14953"))
#(ribcage
()
()
@@ -12308,53 +12403,53 @@
#(ribcage
#(x)
#((top))
- #("i3997")))
+ #("i14926")))
(hygiene guile))
- (cons #{e1\ 4028}#
- #{e2\
4029}#)))))
- #{tmp\ 4019}#)
+ (cons #{e1\ 14957}#
+ #{e2\
14958}#)))))
+ #{tmp\ 14948}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3998}#)))
+ #{tmp\ 14927}#)))
($sc-dispatch
- #{tmp\ 3998}#
+ #{tmp\ 14927}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3998}#
+ #{tmp\ 14927}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3998}#
+ #{tmp\ 14927}#
'(any () any . each-any))))
- #{x\ 3996}#))
+ #{x\ 14925}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 4033}#)
- ((lambda (#{tmp\ 4035}#)
- ((lambda (#{tmp\ 4036}#)
- (if #{tmp\ 4036}#
- (apply (lambda (#{_\ 4042}#
- #{k\ 4043}#
- #{keyword\ 4044}#
- #{pattern\ 4045}#
- #{template\ 4046}#)
+ (cons (lambda (#{x\ 14962}#)
+ ((lambda (#{tmp\ 14964}#)
+ ((lambda (#{tmp\ 14965}#)
+ (if #{tmp\ 14965}#
+ (apply (lambda (#{_\ 14971}#
+ #{k\ 14972}#
+ #{keyword\ 14973}#
+ #{pattern\ 14974}#
+ #{template\ 14975}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4037"
- "i4038"
- "i4039"
- "i4040"
- "i4041"))
+ #("i14966"
+ "i14967"
+ "i14968"
+ "i14969"
+ "i14970"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4034")))
+ #(ribcage #(x) #((top)) #("i14963")))
(hygiene guile))
'(#(syntax-object
x
@@ -12362,13 +12457,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4037"
- "i4038"
- "i4039"
- "i4040"
- "i4041"))
+ #("i14966"
+ "i14967"
+ "i14968"
+ "i14969"
+ "i14970"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4034")))
+ #(ribcage #(x) #((top)) #("i14963")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -12377,13 +12472,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4037"
- "i4038"
- "i4039"
- "i4040"
- "i4041"))
+ #("i14966"
+ "i14967"
+ "i14968"
+ "i14969"
+ "i14970"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4034")))
+ #(ribcage #(x) #((top)) #("i14963")))
(hygiene guile))
.
#(syntax-object
@@ -12392,13 +12487,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4037"
- "i4038"
- "i4039"
- "i4040"
- "i4041"))
+ #("i14966"
+ "i14967"
+ "i14968"
+ "i14969"
+ "i14970"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4034")))
+ #(ribcage #(x) #((top)) #("i14963")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -12414,34 +12509,34 @@
(top)
(top)
(top))
- #("i4037"
- "i4038"
- "i4039"
- "i4040"
- "i4041"))
+ #("i14966"
+ "i14967"
+ "i14968"
+ "i14969"
+ "i14970"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4034")))
+ #("i14963")))
(hygiene guile))
- #{pattern\ 4045}#))
+ #{pattern\ 14974}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4037"
- "i4038"
- "i4039"
- "i4040"
- "i4041"))
+ #("i14966"
+ "i14967"
+ "i14968"
+ "i14969"
+ "i14970"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4034")))
+ #("i14963")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -12457,20 +12552,20 @@
(top)
(top)
(top))
- #("i4037"
- "i4038"
- "i4039"
- "i4040"
- "i4041"))
+ #("i14966"
+ "i14967"
+ "i14968"
+ "i14969"
+ "i14970"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4034")))
+ #("i14963")))
(hygiene guile))
- (cons #{k\ 4043}#
- (map (lambda (#{tmp\
4050}#
- #{tmp\
4049}#)
+ (cons #{k\ 14972}#
+ (map (lambda (#{tmp\
14979}#
+ #{tmp\
14978}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -12485,11 +12580,11 @@
(top)
(top)
(top))
-
#("i4037"
-
"i4038"
-
"i4039"
-
"i4040"
-
"i4041"))
+
#("i14966"
+
"i14967"
+
"i14968"
+
"i14969"
+
"i14970"))
#(ribcage
()
()
@@ -12497,10 +12592,10 @@
#(ribcage
#(x)
#((top))
-
#("i4034")))
+
#("i14963")))
(hygiene
guile))
- #{tmp\
4049}#)
+ #{tmp\
14978}#)
(list
'#(syntax-object
syntax
((top)
@@ -12515,11 +12610,11 @@
(top)
(top)
(top))
-
#("i4037"
-
"i4038"
-
"i4039"
-
"i4040"
-
"i4041"))
+
#("i14966"
+
"i14967"
+
"i14968"
+
"i14969"
+
"i14970"))
#(ribcage
()
()
@@ -12527,47 +12622,47 @@
#(ribcage
#(x)
#((top))
-
#("i4034")))
+
#("i14963")))
(hygiene
guile))
- #{tmp\
4050}#)))
- #{template\ 4046}#
- #{pattern\
4045}#))))))
- #{tmp\ 4036}#)
+ #{tmp\
14979}#)))
+ #{template\ 14975}#
+ #{pattern\
14974}#))))))
+ #{tmp\ 14965}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4035}#)))
+ #{tmp\ 14964}#)))
($sc-dispatch
- #{tmp\ 4035}#
+ #{tmp\ 14964}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 4033}#))
+ #{x\ 14962}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 4051}#)
- ((lambda (#{tmp\ 4053}#)
- ((lambda (#{tmp\ 4054}#)
- (if (if #{tmp\ 4054}#
- (apply (lambda (#{let*\ 4060}#
- #{x\ 4061}#
- #{v\ 4062}#
- #{e1\ 4063}#
- #{e2\ 4064}#)
- (and-map identifier? #{x\ 4061}#))
- #{tmp\ 4054}#)
+ (cons (lambda (#{x\ 14980}#)
+ ((lambda (#{tmp\ 14982}#)
+ ((lambda (#{tmp\ 14983}#)
+ (if (if #{tmp\ 14983}#
+ (apply (lambda (#{let*\ 14989}#
+ #{x\ 14990}#
+ #{v\ 14991}#
+ #{e1\ 14992}#
+ #{e2\ 14993}#)
+ (and-map identifier? #{x\ 14990}#))
+ #{tmp\ 14983}#)
#f)
- (apply (lambda (#{let*\ 4071}#
- #{x\ 4072}#
- #{v\ 4073}#
- #{e1\ 4074}#
- #{e2\ 4075}#)
- (letrec ((#{f\ 4078}#
- (lambda (#{bindings\ 4079}#)
- (if (null? #{bindings\ 4079}#)
+ (apply (lambda (#{let*\ 15000}#
+ #{x\ 15001}#
+ #{v\ 15002}#
+ #{e1\ 15003}#
+ #{e2\ 15004}#)
+ (letrec ((#{f\ 15007}#
+ (lambda (#{bindings\ 15008}#)
+ (if (null? #{bindings\ 15008}#)
(cons '#(syntax-object
let
((top)
@@ -12575,7 +12670,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4076" "i4077"))
+ #("i15005" "i15006"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -12583,25 +12678,25 @@
(top)
(top)
(top))
- #("i4066"
- "i4067"
- "i4068"
- "i4069"
- "i4070"))
+ #("i14995"
+ "i14996"
+ "i14997"
+ "i14998"
+ "i14999"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4052")))
+ #("i14981")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4074}#
- #{e2\ 4075}#)))
- ((lambda (#{tmp\ 4084}#)
- ((lambda (#{tmp\ 4085}#)
- (if #{tmp\ 4085}#
- (apply (lambda (#{body\
4088}#
- #{binding\
4089}#)
+ (cons #{e1\ 15003}#
+ #{e2\ 15004}#)))
+ ((lambda (#{tmp\ 15013}#)
+ ((lambda (#{tmp\ 15014}#)
+ (if #{tmp\ 15014}#
+ (apply (lambda (#{body\
15017}#
+ #{binding\
15018}#)
(list
'#(syntax-object
let
((top)
@@ -12610,8 +12705,8 @@
binding)
#((top)
(top))
-
#("i4086"
-
"i4087"))
+
#("i15015"
+
"i15016"))
#(ribcage
()
()
@@ -12621,8 +12716,8 @@
bindings)
#((top)
(top))
-
#("i4076"
-
"i4077"))
+
#("i15005"
+
"i15006"))
#(ribcage
#(let*
x
@@ -12634,11 +12729,11 @@
(top)
(top)
(top))
-
#("i4066"
-
"i4067"
-
"i4068"
-
"i4069"
-
"i4070"))
+
#("i14995"
+
"i14996"
+
"i14997"
+
"i14998"
+
"i14999"))
#(ribcage
()
()
@@ -12646,57 +12741,57 @@
#(ribcage
#(x)
#((top))
-
#("i4052")))
+
#("i14981")))
(hygiene
guile))
- (list
#{binding\ 4089}#)
- #{body\
4088}#))
- #{tmp\ 4085}#)
+ (list
#{binding\ 15018}#)
+ #{body\
15017}#))
+ #{tmp\ 15014}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 4084}#)))
+ #{tmp\ 15013}#)))
($sc-dispatch
- #{tmp\ 4084}#
+ #{tmp\ 15013}#
'(any any))))
- (list (#{f\ 4078}#
- (cdr #{bindings\ 4079}#))
- (car #{bindings\
4079}#)))))))
- (#{f\ 4078}#
- (map list #{x\ 4072}# #{v\ 4073}#))))
- #{tmp\ 4054}#)
+ (list (#{f\ 15007}#
+ (cdr #{bindings\ 15008}#))
+ (car #{bindings\
15008}#)))))))
+ (#{f\ 15007}#
+ (map list #{x\ 15001}# #{v\ 15002}#))))
+ #{tmp\ 14983}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4053}#)))
+ #{tmp\ 14982}#)))
($sc-dispatch
- #{tmp\ 4053}#
+ #{tmp\ 14982}#
'(any #(each (any any)) any . each-any))))
- #{x\ 4051}#))
+ #{x\ 14980}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 4090}#)
- ((lambda (#{tmp\ 4092}#)
- ((lambda (#{tmp\ 4093}#)
- (if #{tmp\ 4093}#
- (apply (lambda (#{_\ 4101}#
- #{var\ 4102}#
- #{init\ 4103}#
- #{step\ 4104}#
- #{e0\ 4105}#
- #{e1\ 4106}#
- #{c\ 4107}#)
- ((lambda (#{tmp\ 4109}#)
- ((lambda (#{tmp\ 4110}#)
- (if #{tmp\ 4110}#
- (apply (lambda (#{step\ 4112}#)
- ((lambda (#{tmp\ 4113}#)
- ((lambda (#{tmp\ 4114}#)
- (if #{tmp\ 4114}#
+ (cons (lambda (#{orig-x\ 15019}#)
+ ((lambda (#{tmp\ 15021}#)
+ ((lambda (#{tmp\ 15022}#)
+ (if #{tmp\ 15022}#
+ (apply (lambda (#{_\ 15030}#
+ #{var\ 15031}#
+ #{init\ 15032}#
+ #{step\ 15033}#
+ #{e0\ 15034}#
+ #{e1\ 15035}#
+ #{c\ 15036}#)
+ ((lambda (#{tmp\ 15038}#)
+ ((lambda (#{tmp\ 15039}#)
+ (if #{tmp\ 15039}#
+ (apply (lambda (#{step\ 15041}#)
+ ((lambda (#{tmp\ 15042}#)
+ ((lambda (#{tmp\ 15043}#)
+ (if #{tmp\ 15043}#
(apply (lambda ()
(list
'#(syntax-object
let
@@ -12704,7 +12799,7 @@
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -12720,13 +12815,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -12734,7 +12829,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
'#(syntax-object
@@ -12743,7 +12838,7 @@
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -12759,13 +12854,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -12773,19 +12868,19 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
(map list
-
#{var\ 4102}#
-
#{init\ 4103}#)
+
#{var\ 15031}#
+
#{init\ 15032}#)
(list
'#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -12801,13 +12896,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -12815,7 +12910,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
(list '#(syntax-object
@@ -12824,7 +12919,7 @@
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -12840,13 +12935,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -12854,17 +12949,17 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
-
#{e0\ 4105}#)
+
#{e0\ 15034}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -12880,13 +12975,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -12894,18 +12989,18 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
(append
-
#{c\ 4107}#
+
#{c\ 15036}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -12921,13 +13016,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -12935,15 +13030,15 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
-
#{step\ 4112}#)))))))
- #{tmp\ 4114}#)
- ((lambda (#{tmp\ 4119}#)
- (if #{tmp\ 4119}#
- (apply (lambda
(#{e1\ 4122}#
-
#{e2\ 4123}#)
+
#{step\ 15041}#)))))))
+ #{tmp\ 15043}#)
+ ((lambda (#{tmp\ 15048}#)
+ (if #{tmp\ 15048}#
+ (apply (lambda
(#{e1\ 15051}#
+
#{e2\ 15052}#)
(list
'#(syntax-object
let
((top)
@@ -12952,12 +13047,12 @@
e2)
#((top)
(top))
-
#("i4120"
-
"i4121"))
+
#("i15049"
+
"i15050"))
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -12973,13 +13068,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -12987,7 +13082,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
'#(syntax-object
@@ -12998,12 +13093,12 @@
e2)
#((top)
(top))
-
#("i4120"
-
"i4121"))
+
#("i15049"
+
"i15050"))
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -13019,13 +13114,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -13033,12 +13128,12 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
(map
list
-
#{var\ 4102}#
-
#{init\ 4103}#)
+
#{var\ 15031}#
+
#{init\ 15032}#)
(list '#(syntax-object
if
((top)
@@ -13047,12 +13142,12 @@
e2)
#((top)
(top))
-
#("i4120"
-
"i4121"))
+
#("i15049"
+
"i15050"))
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -13068,13 +13163,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -13082,10 +13177,10 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
-
#{e0\ 4105}#
+
#{e0\ 15034}#
(cons '#(syntax-object
begin
((top)
@@ -13094,12 +13189,12 @@
e2)
#((top)
(top))
-
#("i4120"
-
"i4121"))
+
#("i15049"
+
"i15050"))
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -13115,13 +13210,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -13129,11 +13224,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
-
(cons #{e1\ 4122}#
-
#{e2\ 4123}#))
+
(cons #{e1\ 15051}#
+
#{e2\ 15052}#))
(cons '#(syntax-object
begin
((top)
@@ -13142,12 +13237,12 @@
e2)
#((top)
(top))
-
#("i4120"
-
"i4121"))
+
#("i15049"
+
"i15050"))
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -13163,13 +13258,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -13177,11 +13272,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
(append
-
#{c\ 4107}#
+
#{c\ 15036}#
(list (cons '#(syntax-object
doloop
((top)
@@ -13190,12 +13285,12 @@
e2)
#((top)
(top))
-
#("i4120"
-
"i4121"))
+
#("i15049"
+
"i15050"))
#(ribcage
#(step)
#((top))
-
#("i4111"))
+
#("i15040"))
#(ribcage
#(_
var
@@ -13211,13 +13306,13 @@
(top)
(top)
(top))
-
#("i4094"
-
"i4095"
-
"i4096"
-
"i4097"
-
"i4098"
-
"i4099"
-
"i4100"))
+
#("i15023"
+
"i15024"
+
"i15025"
+
"i15026"
+
"i15027"
+
"i15028"
+
"i15029"))
#(ribcage
()
()
@@ -13225,107 +13320,107 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4091")))
+
#("i15020")))
(hygiene
guile))
-
#{step\ 4112}#)))))))
- #{tmp\
4119}#)
+
#{step\ 15041}#)))))))
+ #{tmp\
15048}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 4113}#)))
+ #{tmp\ 15042}#)))
($sc-dispatch
- #{tmp\ 4113}#
+ #{tmp\ 15042}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 4113}#
+ #{tmp\ 15042}#
'())))
- #{e1\ 4106}#))
- #{tmp\ 4110}#)
+ #{e1\ 15035}#))
+ #{tmp\ 15039}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4109}#)))
+ #{tmp\ 15038}#)))
($sc-dispatch
- #{tmp\ 4109}#
+ #{tmp\ 15038}#
'each-any)))
- (map (lambda (#{v\ 4130}# #{s\ 4131}#)
- ((lambda (#{tmp\ 4134}#)
- ((lambda (#{tmp\ 4135}#)
- (if #{tmp\ 4135}#
- (apply (lambda () #{v\ 4130}#)
- #{tmp\ 4135}#)
- ((lambda (#{tmp\ 4136}#)
- (if #{tmp\ 4136}#
- (apply (lambda (#{e\ 4138}#)
- #{e\ 4138}#)
- #{tmp\ 4136}#)
- ((lambda (#{_\ 4140}#)
+ (map (lambda (#{v\ 15059}# #{s\ 15060}#)
+ ((lambda (#{tmp\ 15063}#)
+ ((lambda (#{tmp\ 15064}#)
+ (if #{tmp\ 15064}#
+ (apply (lambda () #{v\ 15059}#)
+ #{tmp\ 15064}#)
+ ((lambda (#{tmp\ 15065}#)
+ (if #{tmp\ 15065}#
+ (apply (lambda (#{e\ 15067}#)
+ #{e\ 15067}#)
+ #{tmp\ 15065}#)
+ ((lambda (#{_\ 15069}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4090}#
- #{s\ 4131}#))
- #{tmp\ 4134}#)))
+ #{orig-x\ 15019}#
+ #{s\ 15060}#))
+ #{tmp\ 15063}#)))
($sc-dispatch
- #{tmp\ 4134}#
+ #{tmp\ 15063}#
'(any)))))
($sc-dispatch
- #{tmp\ 4134}#
+ #{tmp\ 15063}#
'())))
- #{s\ 4131}#))
- #{var\ 4102}#
- #{step\ 4104}#)))
- #{tmp\ 4093}#)
+ #{s\ 15060}#))
+ #{var\ 15031}#
+ #{step\ 15033}#)))
+ #{tmp\ 15022}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4092}#)))
+ #{tmp\ 15021}#)))
($sc-dispatch
- #{tmp\ 4092}#
+ #{tmp\ 15021}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 4090}#))
+ #{orig-x\ 15019}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 4147}#
- (lambda (#{x\ 4151}# #{y\ 4152}#)
- ((lambda (#{tmp\ 4156}#)
- ((lambda (#{tmp\ 4157}#)
- (if #{tmp\ 4157}#
- (apply (lambda (#{x\ 4160}# #{y\ 4161}#)
- ((lambda (#{tmp\ 4162}#)
- ((lambda (#{tmp\ 4163}#)
- (if #{tmp\ 4163}#
- (apply (lambda (#{dy\ 4165}#)
- ((lambda (#{tmp\
4166}#)
- ((lambda (#{tmp\
4167}#)
- (if #{tmp\
4167}#
- (apply
(lambda (#{dx\ 4169}#)
+ (cons (letrec ((#{quasicons\ 15076}#
+ (lambda (#{x\ 15080}# #{y\ 15081}#)
+ ((lambda (#{tmp\ 15085}#)
+ ((lambda (#{tmp\ 15086}#)
+ (if #{tmp\ 15086}#
+ (apply (lambda (#{x\ 15089}# #{y\ 15090}#)
+ ((lambda (#{tmp\ 15091}#)
+ ((lambda (#{tmp\ 15092}#)
+ (if #{tmp\ 15092}#
+ (apply (lambda (#{dy\ 15094}#)
+ ((lambda (#{tmp\
15095}#)
+ ((lambda (#{tmp\
15096}#)
+ (if #{tmp\
15096}#
+ (apply
(lambda (#{dx\ 15098}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
-
#("i4168"))
+
#("i15097"))
#(ribcage
#(dy)
#((top))
-
#("i4164"))
+
#("i15093"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4158"
-
"i4159"))
+
#("i15087"
+
"i15088"))
#(ribcage
()
()
@@ -13339,8 +13434,8 @@
y)
#((top)
(top))
-
#("i4153"
-
"i4154"))
+
#("i15082"
+
"i15083"))
#(ribcage
#(quasicons
quasiappend
@@ -13350,35 +13445,35 @@
(top)
(top)
(top))
-
#("i4143"
-
"i4144"
-
"i4145"
-
"i4146")))
+
#("i15072"
+
"i15073"
+
"i15074"
+
"i15075")))
(hygiene
guile))
-
(cons #{dx\ 4169}#
-
#{dy\ 4165}#)))
- #{tmp\
4167}#)
- ((lambda
(#{_\ 4171}#)
- (if (null?
#{dy\ 4165}#)
+
(cons #{dx\ 15098}#
+
#{dy\ 15094}#)))
+ #{tmp\
15096}#)
+ ((lambda
(#{_\ 15100}#)
+ (if (null?
#{dy\ 15094}#)
(list
'#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
-
#("i4170"))
+
#("i15099"))
#(ribcage
#(dy)
#((top))
-
#("i4164"))
+
#("i15093"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4158"
-
"i4159"))
+
#("i15087"
+
"i15088"))
#(ribcage
()
()
@@ -13392,8 +13487,8 @@
y)
#((top)
(top))
-
#("i4153"
-
"i4154"))
+
#("i15082"
+
"i15083"))
#(ribcage
#(quasicons
quasiappend
@@ -13403,31 +13498,31 @@
(top)
(top)
(top))
-
#("i4143"
-
"i4144"
-
"i4145"
-
"i4146")))
+
#("i15072"
+
"i15073"
+
"i15074"
+
"i15075")))
(hygiene
guile))
-
#{x\ 4160}#)
+
#{x\ 15089}#)
(list
'#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
-
#("i4170"))
+
#("i15099"))
#(ribcage
#(dy)
#((top))
-
#("i4164"))
+
#("i15093"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4158"
-
"i4159"))
+
#("i15087"
+
"i15088"))
#(ribcage
()
()
@@ -13441,8 +13536,8 @@
y)
#((top)
(top))
-
#("i4153"
-
"i4154"))
+
#("i15082"
+
"i15083"))
#(ribcage
#(quasicons
quasiappend
@@ -13452,17 +13547,17 @@
(top)
(top)
(top))
-
#("i4143"
-
"i4144"
-
"i4145"
-
"i4146")))
+
#("i15072"
+
"i15073"
+
"i15074"
+
"i15075")))
(hygiene
guile))
-
#{x\ 4160}#
-
#{y\ 4161}#)))
- #{tmp\
4166}#)))
+
#{x\ 15089}#
+
#{y\ 15090}#)))
+ #{tmp\
15095}#)))
($sc-dispatch
- #{tmp\ 4166}#
+ #{tmp\ 15095}#
'(#(free-id
#(syntax-object
quote
@@ -13470,13 +13565,13 @@
#(ribcage
#(dy)
#((top))
-
#("i4164"))
+
#("i15093"))
#(ribcage
#(x y)
#((top)
(top))
-
#("i4158"
-
"i4159"))
+
#("i15087"
+
"i15088"))
#(ribcage
()
()
@@ -13489,8 +13584,8 @@
#(x y)
#((top)
(top))
-
#("i4153"
-
"i4154"))
+
#("i15082"
+
"i15083"))
#(ribcage
#(quasicons
quasiappend
@@ -13500,32 +13595,32 @@
(top)
(top)
(top))
-
#("i4143"
-
"i4144"
-
"i4145"
-
"i4146")))
+
#("i15072"
+
"i15073"
+
"i15074"
+
"i15075")))
(hygiene
guile)))
any))))
- #{x\ 4160}#))
- #{tmp\ 4163}#)
- ((lambda (#{tmp\ 4172}#)
- (if #{tmp\ 4172}#
- (apply (lambda (#{stuff\
4174}#)
+ #{x\ 15089}#))
+ #{tmp\ 15092}#)
+ ((lambda (#{tmp\ 15101}#)
+ (if #{tmp\ 15101}#
+ (apply (lambda (#{stuff\
15103}#)
(cons
'#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
-
#("i4173"))
+
#("i15102"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4158"
-
"i4159"))
+
#("i15087"
+
"i15088"))
#(ribcage
()
()
@@ -13539,8 +13634,8 @@
y)
#((top)
(top))
-
#("i4153"
-
"i4154"))
+
#("i15082"
+
"i15083"))
#(ribcage
#(quasicons
quasiappend
@@ -13550,29 +13645,29 @@
(top)
(top)
(top))
-
#("i4143"
-
"i4144"
-
"i4145"
-
"i4146")))
+
#("i15072"
+
"i15073"
+
"i15074"
+
"i15075")))
(hygiene
guile))
- (cons #{x\
4160}#
-
#{stuff\ 4174}#)))
- #{tmp\ 4172}#)
- ((lambda (#{else\ 4176}#)
+ (cons #{x\
15089}#
+
#{stuff\ 15103}#)))
+ #{tmp\ 15101}#)
+ ((lambda (#{else\ 15105}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4175"))
+
#("i15104"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4158"
- "i4159"))
+ #("i15087"
+
"i15088"))
#(ribcage
()
()
@@ -13585,8 +13680,8 @@
#(x y)
#((top)
(top))
- #("i4153"
- "i4154"))
+ #("i15082"
+
"i15083"))
#(ribcage
#(quasicons
quasiappend
@@ -13596,17 +13691,17 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
-
"i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+
"i15075")))
(hygiene
guile))
- #{x\ 4160}#
- #{y\ 4161}#))
- #{tmp\ 4162}#)))
+ #{x\ 15089}#
+ #{y\ 15090}#))
+ #{tmp\ 15091}#)))
($sc-dispatch
- #{tmp\ 4162}#
+ #{tmp\ 15091}#
'(#(free-id
#(syntax-object
list
@@ -13614,13 +13709,15 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4158" "i4159"))
+ #("i15087"
+ "i15088"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4153" "i4154"))
+ #("i15082"
+ "i15083"))
#(ribcage
#(quasicons
quasiappend
@@ -13630,15 +13727,15 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4162}#
+ #{tmp\ 15091}#
'(#(free-id
#(syntax-object
quote
@@ -13646,13 +13743,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4158" "i4159"))
+ #("i15087" "i15088"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4153" "i4154"))
+ #("i15082" "i15083"))
#(ribcage
#(quasicons
quasiappend
@@ -13662,44 +13759,44 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
any))))
- #{y\ 4161}#))
- #{tmp\ 4157}#)
+ #{y\ 15090}#))
+ #{tmp\ 15086}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4156}#)))
- ($sc-dispatch #{tmp\ 4156}# (quote (any any)))))
- (list #{x\ 4151}# #{y\ 4152}#))))
- (#{quasiappend\ 4148}#
- (lambda (#{x\ 4177}# #{y\ 4178}#)
- ((lambda (#{tmp\ 4182}#)
- ((lambda (#{tmp\ 4183}#)
- (if #{tmp\ 4183}#
- (apply (lambda (#{x\ 4186}# #{y\ 4187}#)
- ((lambda (#{tmp\ 4188}#)
- ((lambda (#{tmp\ 4189}#)
- (if #{tmp\ 4189}#
- (apply (lambda () #{x\ 4186}#)
- #{tmp\ 4189}#)
- ((lambda (#{_\ 4191}#)
+ #{tmp\ 15085}#)))
+ ($sc-dispatch #{tmp\ 15085}# (quote (any any)))))
+ (list #{x\ 15080}# #{y\ 15081}#))))
+ (#{quasiappend\ 15077}#
+ (lambda (#{x\ 15106}# #{y\ 15107}#)
+ ((lambda (#{tmp\ 15111}#)
+ ((lambda (#{tmp\ 15112}#)
+ (if #{tmp\ 15112}#
+ (apply (lambda (#{x\ 15115}# #{y\ 15116}#)
+ ((lambda (#{tmp\ 15117}#)
+ ((lambda (#{tmp\ 15118}#)
+ (if #{tmp\ 15118}#
+ (apply (lambda () #{x\ 15115}#)
+ #{tmp\ 15118}#)
+ ((lambda (#{_\ 15120}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i4190"))
+ #("i15119"))
#(ribcage
#(x y)
#((top) (top))
- #("i4184"
- "i4185"))
+ #("i15113"
+ "i15114"))
#(ribcage
()
()
@@ -13711,8 +13808,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4179"
- "i4180"))
+ #("i15108"
+ "i15109"))
#(ribcage
#(quasicons
quasiappend
@@ -13722,16 +13819,16 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile))
- #{x\ 4186}#
- #{y\ 4187}#))
- #{tmp\ 4188}#)))
+ #{x\ 15115}#
+ #{y\ 15116}#))
+ #{tmp\ 15117}#)))
($sc-dispatch
- #{tmp\ 4188}#
+ #{tmp\ 15117}#
'(#(free-id
#(syntax-object
quote
@@ -13739,13 +13836,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4184" "i4185"))
+ #("i15113" "i15114"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4179" "i4180"))
+ #("i15108" "i15109"))
#(ribcage
#(quasicons
quasiappend
@@ -13755,45 +13852,45 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
()))))
- #{y\ 4187}#))
- #{tmp\ 4183}#)
+ #{y\ 15116}#))
+ #{tmp\ 15112}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4182}#)))
- ($sc-dispatch #{tmp\ 4182}# (quote (any any)))))
- (list #{x\ 4177}# #{y\ 4178}#))))
- (#{quasivector\ 4149}#
- (lambda (#{x\ 4192}#)
- ((lambda (#{tmp\ 4195}#)
- ((lambda (#{x\ 4197}#)
- ((lambda (#{tmp\ 4198}#)
- ((lambda (#{tmp\ 4199}#)
- (if #{tmp\ 4199}#
- (apply (lambda (#{x\ 4201}#)
+ #{tmp\ 15111}#)))
+ ($sc-dispatch #{tmp\ 15111}# (quote (any any)))))
+ (list #{x\ 15106}# #{y\ 15107}#))))
+ (#{quasivector\ 15078}#
+ (lambda (#{x\ 15121}#)
+ ((lambda (#{tmp\ 15124}#)
+ ((lambda (#{x\ 15126}#)
+ ((lambda (#{tmp\ 15127}#)
+ ((lambda (#{tmp\ 15128}#)
+ (if #{tmp\ 15128}#
+ (apply (lambda (#{x\ 15130}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i4200"))
+ #("i15129"))
#(ribcage
#(x)
#((top))
- #("i4196"))
+ #("i15125"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4193"))
+ #("i15122"))
#(ribcage
#(quasicons
quasiappend
@@ -13803,28 +13900,28 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile))
(list->vector
- #{x\ 4201}#)))
- #{tmp\ 4199}#)
- ((lambda (#{tmp\ 4203}#)
- (if #{tmp\ 4203}#
- (apply (lambda (#{x\ 4205}#)
+ #{x\ 15130}#)))
+ #{tmp\ 15128}#)
+ ((lambda (#{tmp\ 15132}#)
+ (if #{tmp\ 15132}#
+ (apply (lambda (#{x\ 15134}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i4204"))
+ #("i15133"))
#(ribcage
#(x)
#((top))
- #("i4196"))
+ #("i15125"))
#(ribcage
()
()
@@ -13836,7 +13933,7 @@
#(ribcage
#(x)
#((top))
- #("i4193"))
+ #("i15122"))
#(ribcage
#(quasicons
quasiappend
@@ -13846,31 +13943,31 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile))
- #{x\ 4205}#))
- #{tmp\ 4203}#)
- ((lambda (#{_\ 4208}#)
+ #{x\ 15134}#))
+ #{tmp\ 15132}#)
+ ((lambda (#{_\ 15137}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i4207"))
+ #("i15136"))
#(ribcage
#(x)
#((top))
- #("i4196"))
+ #("i15125"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4193"))
+ #("i15122"))
#(ribcage
#(quasicons
quasiappend
@@ -13880,15 +13977,15 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile))
- #{x\ 4197}#))
- #{tmp\ 4198}#)))
+ #{x\ 15126}#))
+ #{tmp\ 15127}#)))
($sc-dispatch
- #{tmp\ 4198}#
+ #{tmp\ 15127}#
'(#(free-id
#(syntax-object
list
@@ -13896,82 +13993,82 @@
#(ribcage
#(x)
#((top))
- #("i4196"))
+ #("i15125"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4193"))
+ #("i15122"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 4198}#
+ #{tmp\ 15127}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4196"))
+ #(ribcage #(x) #((top)) #("i15125"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4193"))
+ #(ribcage #(x) #((top)) #("i15122"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
each-any))))
- #{x\ 4197}#))
- #{tmp\ 4195}#))
- #{x\ 4192}#)))
- (#{quasi\ 4150}#
- (lambda (#{p\ 4209}# #{lev\ 4210}#)
- ((lambda (#{tmp\ 4213}#)
- ((lambda (#{tmp\ 4214}#)
- (if #{tmp\ 4214}#
- (apply (lambda (#{p\ 4216}#)
- (if (= #{lev\ 4210}# 0)
- #{p\ 4216}#
- (#{quasicons\ 4147}#
+ #{x\ 15126}#))
+ #{tmp\ 15124}#))
+ #{x\ 15121}#)))
+ (#{quasi\ 15079}#
+ (lambda (#{p\ 15138}# #{lev\ 15139}#)
+ ((lambda (#{tmp\ 15142}#)
+ ((lambda (#{tmp\ 15143}#)
+ (if #{tmp\ 15143}#
+ (apply (lambda (#{p\ 15145}#)
+ (if (= #{lev\ 15139}# 0)
+ #{p\ 15145}#
+ (#{quasicons\ 15076}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4215"))
+ #("i15144"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4211" "i4212"))
+ #("i15140" "i15141"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile))
#(syntax-object
unquote
@@ -13979,50 +14076,51 @@
#(ribcage
#(p)
#((top))
- #("i4215"))
+ #("i15144"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4211" "i4212"))
+ #("i15140" "i15141"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
- (#{quasi\ 4150}#
- (list #{p\ 4216}#)
- (- #{lev\ 4210}# 1)))))
- #{tmp\ 4214}#)
- ((lambda (#{tmp\ 4217}#)
- (if (if #{tmp\ 4217}#
- (apply (lambda (#{args\ 4219}#)
- (= #{lev\ 4210}# 0))
- #{tmp\ 4217}#)
+ (#{quasi\ 15079}#
+ (list #{p\ 15145}#)
+ (- #{lev\ 15139}# 1)))))
+ #{tmp\ 15143}#)
+ ((lambda (#{tmp\ 15146}#)
+ (if (if #{tmp\ 15146}#
+ (apply (lambda (#{args\ 15148}#)
+ (= #{lev\ 15139}# 0))
+ #{tmp\ 15146}#)
#f)
- (apply (lambda (#{args\ 4221}#)
+ (apply (lambda (#{args\ 15150}#)
(syntax-violation
'unquote
"unquote takes exactly one
argument"
- #{p\ 4209}#
+ #{p\ 15138}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i4220"))
+ #("i15149"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4211" "i4212"))
+ #("i15140"
+ "i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14032,33 +14130,33 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile))
- #{args\ 4221}#)))
- #{tmp\ 4217}#)
- ((lambda (#{tmp\ 4222}#)
- (if #{tmp\ 4222}#
- (apply (lambda (#{p\ 4225}#
- #{q\ 4226}#)
- (if (= #{lev\ 4210}# 0)
- (#{quasiappend\ 4148}#
- #{p\ 4225}#
- (#{quasi\ 4150}#
- #{q\ 4226}#
- #{lev\ 4210}#))
- (#{quasicons\ 4147}#
- (#{quasicons\ 4147}#
+ #{args\ 15150}#)))
+ #{tmp\ 15146}#)
+ ((lambda (#{tmp\ 15151}#)
+ (if #{tmp\ 15151}#
+ (apply (lambda (#{p\ 15154}#
+ #{q\ 15155}#)
+ (if (= #{lev\ 15139}# 0)
+ (#{quasiappend\ 15077}#
+ #{p\ 15154}#
+ (#{quasi\ 15079}#
+ #{q\ 15155}#
+ #{lev\ 15139}#))
+ (#{quasicons\ 15076}#
+ (#{quasicons\ 15076}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4223"
- "i4224"))
+ #("i15152"
+ "i15153"))
#(ribcage
()
()
@@ -14066,8 +14164,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4211"
- "i4212"))
+ #("i15140"
+ "i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14077,10 +14175,10 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -14088,8 +14186,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4223"
- "i4224"))
+ #("i15152"
+ "i15153"))
#(ribcage
()
()
@@ -14097,8 +14195,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4211"
- "i4212"))
+ #("i15140"
+ "i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14108,31 +14206,33 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
- (#{quasi\ 4150}#
- (list #{p\ 4225}#)
- (- #{lev\ 4210}# 1)))
- (#{quasi\ 4150}#
- #{q\ 4226}#
- #{lev\ 4210}#))))
- #{tmp\ 4222}#)
- ((lambda (#{tmp\ 4227}#)
- (if (if #{tmp\ 4227}#
- (apply (lambda (#{args\
4230}#
- #{q\ 4231}#)
- (= #{lev\ 4210}# 0))
- #{tmp\ 4227}#)
+ (#{quasi\ 15079}#
+ (list #{p\ 15154}#)
+ (- #{lev\ 15139}#
+ 1)))
+ (#{quasi\ 15079}#
+ #{q\ 15155}#
+ #{lev\ 15139}#))))
+ #{tmp\ 15151}#)
+ ((lambda (#{tmp\ 15156}#)
+ (if (if #{tmp\ 15156}#
+ (apply (lambda (#{args\
15159}#
+ #{q\ 15160}#)
+ (= #{lev\ 15139}#
+ 0))
+ #{tmp\ 15156}#)
#f)
- (apply (lambda (#{args\ 4234}#
- #{q\ 4235}#)
+ (apply (lambda (#{args\ 15163}#
+ #{q\ 15164}#)
(syntax-violation
'unquote-splicing
"unquote-splicing
takes exactly one argument"
- #{p\ 4209}#
+ #{p\ 15138}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -14140,8 +14240,8 @@
#(args q)
#((top)
(top))
- #("i4232"
-
"i4233"))
+ #("i15161"
+
"i15162"))
#(ribcage
()
()
@@ -14150,8 +14250,8 @@
#(p lev)
#((top)
(top))
- #("i4211"
-
"i4212"))
+ #("i15140"
+
"i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14161,25 +14261,25 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
-
"i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+
"i15075")))
(hygiene
guile))
- #{args\
4234}#)))
- #{tmp\ 4227}#)
- ((lambda (#{tmp\ 4236}#)
- (if #{tmp\ 4236}#
- (apply (lambda (#{p\ 4238}#)
- (#{quasicons\
4147}#
+ #{args\
15163}#)))
+ #{tmp\ 15156}#)
+ ((lambda (#{tmp\ 15165}#)
+ (if #{tmp\ 15165}#
+ (apply (lambda (#{p\
15167}#)
+ (#{quasicons\
15076}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i4237"))
+
#("i15166"))
#(ribcage
()
()
@@ -14188,8 +14288,8 @@
#(p lev)
#((top)
(top))
- #("i4211"
-
"i4212"))
+ #("i15140"
+
"i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14199,10 +14299,10 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
-
"i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+
"i15075")))
(hygiene
guile))
#(syntax-object
@@ -14211,7 +14311,7 @@
#(ribcage
#(p)
#((top))
-
#("i4237"))
+
#("i15166"))
#(ribcage
()
()
@@ -14220,8 +14320,8 @@
#(p lev)
#((top)
(top))
- #("i4211"
-
"i4212"))
+ #("i15140"
+
"i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14231,45 +14331,45 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
-
"i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+
"i15075")))
(hygiene
guile)))
- (#{quasi\ 4150}#
- (list #{p\
4238}#)
- (+ #{lev\
4210}#
+ (#{quasi\ 15079}#
+ (list #{p\
15167}#)
+ (+ #{lev\
15139}#
1))))
- #{tmp\ 4236}#)
- ((lambda (#{tmp\ 4239}#)
- (if #{tmp\ 4239}#
- (apply (lambda (#{p\
4242}#
- #{q\
4243}#)
- (#{quasicons\
4147}#
- (#{quasi\
4150}#
- #{p\
4242}#
- #{lev\
4210}#)
- (#{quasi\
4150}#
- #{q\
4243}#
- #{lev\
4210}#)))
- #{tmp\ 4239}#)
- ((lambda (#{tmp\
4244}#)
- (if #{tmp\ 4244}#
- (apply (lambda
(#{x\ 4246}#)
-
(#{quasivector\ 4149}#
-
(#{quasi\ 4150}#
- #{x\
4246}#
-
#{lev\ 4210}#)))
- #{tmp\
4244}#)
- ((lambda (#{p\
4249}#)
+ #{tmp\ 15165}#)
+ ((lambda (#{tmp\ 15168}#)
+ (if #{tmp\ 15168}#
+ (apply (lambda (#{p\
15171}#
+ #{q\
15172}#)
+ (#{quasicons\
15076}#
+ (#{quasi\
15079}#
+ #{p\
15171}#
+ #{lev\
15139}#)
+ (#{quasi\
15079}#
+ #{q\
15172}#
+ #{lev\
15139}#)))
+ #{tmp\ 15168}#)
+ ((lambda (#{tmp\
15173}#)
+ (if #{tmp\ 15173}#
+ (apply (lambda
(#{x\ 15175}#)
+
(#{quasivector\ 15078}#
+
(#{quasi\ 15079}#
+ #{x\
15175}#
+
#{lev\ 15139}#)))
+ #{tmp\
15173}#)
+ ((lambda (#{p\
15178}#)
(list
'#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i4248"))
+
#("i15177"))
#(ribcage
()
()
@@ -14279,8 +14379,8 @@
lev)
#((top)
(top))
-
#("i4211"
-
"i4212"))
+
#("i15140"
+
"i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14290,23 +14390,23 @@
(top)
(top)
(top))
-
#("i4143"
-
"i4144"
-
"i4145"
-
"i4146")))
+
#("i15072"
+
"i15073"
+
"i15074"
+
"i15075")))
(hygiene
guile))
- #{p\
4249}#))
- #{tmp\ 4213}#)))
+ #{p\
15178}#))
+ #{tmp\ 15142}#)))
($sc-dispatch
- #{tmp\ 4213}#
+ #{tmp\ 15142}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 4213}#
+ #{tmp\ 15142}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4213}#
+ #{tmp\ 15142}#
'(#(free-id
#(syntax-object
quasiquote
@@ -14315,7 +14415,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4211" "i4212"))
+ #("i15140" "i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14325,14 +14425,14 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 4213}#
+ #{tmp\ 15142}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14341,7 +14441,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4211" "i4212"))
+ #("i15140" "i15141"))
#(ribcage
#(quasicons
quasiappend
@@ -14351,17 +14451,17 @@
(top)
(top)
(top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4213}#
+ #{tmp\ 15142}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14370,23 +14470,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4211" "i4212"))
+ #("i15140" "i15141"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4143"
- "i4144"
- "i4145"
- "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4213}#
+ #{tmp\ 15142}#
'(#(free-id
#(syntax-object
unquote
@@ -14395,19 +14495,22 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4211" "i4212"))
+ #("i15140" "i15141"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4143" "i4144" "i4145" "i4146")))
+ #("i15072"
+ "i15073"
+ "i15074"
+ "i15075")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4213}#
+ #{tmp\ 15142}#
'(#(free-id
#(syntax-object
unquote
@@ -14416,244 +14519,244 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4211" "i4212"))
+ #("i15140" "i15141"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4143" "i4144" "i4145" "i4146")))
+ #("i15072" "i15073" "i15074" "i15075")))
(hygiene guile)))
any))))
- #{p\ 4209}#))))
- (lambda (#{x\ 4250}#)
- ((lambda (#{tmp\ 4252}#)
- ((lambda (#{tmp\ 4253}#)
- (if #{tmp\ 4253}#
- (apply (lambda (#{_\ 4256}# #{e\ 4257}#)
- (#{quasi\ 4150}# #{e\ 4257}# 0))
- #{tmp\ 4253}#)
+ #{p\ 15138}#))))
+ (lambda (#{x\ 15179}#)
+ ((lambda (#{tmp\ 15181}#)
+ ((lambda (#{tmp\ 15182}#)
+ (if #{tmp\ 15182}#
+ (apply (lambda (#{_\ 15185}# #{e\ 15186}#)
+ (#{quasi\ 15079}# #{e\ 15186}# 0))
+ #{tmp\ 15182}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4252}#)))
- ($sc-dispatch #{tmp\ 4252}# (quote (any any)))))
- #{x\ 4250}#)))
+ #{tmp\ 15181}#)))
+ ($sc-dispatch #{tmp\ 15181}# (quote (any any)))))
+ #{x\ 15179}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 4258}#)
- (letrec ((#{read-file\ 4261}#
- (lambda (#{fn\ 4262}# #{k\ 4263}#)
- (let ((#{p\ 4267}# (open-input-file #{fn\ 4262}#)))
- (letrec ((#{f\ 4271}#
- (lambda (#{x\ 4272}# #{result\ 4273}#)
- (if (eof-object? #{x\ 4272}#)
+ (cons (lambda (#{x\ 15187}#)
+ (letrec ((#{read-file\ 15190}#
+ (lambda (#{fn\ 15191}# #{k\ 15192}#)
+ (let ((#{p\ 15196}# (open-input-file #{fn\ 15191}#)))
+ (letrec ((#{f\ 15200}#
+ (lambda (#{x\ 15201}# #{result\ 15202}#)
+ (if (eof-object? #{x\ 15201}#)
(begin
- (close-input-port #{p\ 4267}#)
- (reverse #{result\ 4273}#))
- (#{f\ 4271}#
- (read #{p\ 4267}#)
+ (close-input-port #{p\ 15196}#)
+ (reverse #{result\ 15202}#))
+ (#{f\ 15200}#
+ (read #{p\ 15196}#)
(cons (datum->syntax
- #{k\ 4263}#
- #{x\ 4272}#)
- #{result\ 4273}#))))))
- (#{f\ 4271}# (read #{p\ 4267}#) (quote ())))))))
- ((lambda (#{tmp\ 4274}#)
- ((lambda (#{tmp\ 4275}#)
- (if #{tmp\ 4275}#
- (apply (lambda (#{k\ 4278}# #{filename\ 4279}#)
- (let ((#{fn\ 4281}#
- (syntax->datum #{filename\ 4279}#)))
- ((lambda (#{tmp\ 4283}#)
- ((lambda (#{tmp\ 4284}#)
- (if #{tmp\ 4284}#
- (apply (lambda (#{exp\ 4286}#)
+ #{k\ 15192}#
+ #{x\ 15201}#)
+ #{result\ 15202}#))))))
+ (#{f\ 15200}# (read #{p\ 15196}#) (quote ())))))))
+ ((lambda (#{tmp\ 15203}#)
+ ((lambda (#{tmp\ 15204}#)
+ (if #{tmp\ 15204}#
+ (apply (lambda (#{k\ 15207}# #{filename\ 15208}#)
+ (let ((#{fn\ 15210}#
+ (syntax->datum #{filename\ 15208}#)))
+ ((lambda (#{tmp\ 15212}#)
+ ((lambda (#{tmp\ 15213}#)
+ (if #{tmp\ 15213}#
+ (apply (lambda (#{exp\ 15215}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4285"))
+ #("i15214"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4280"))
+ #("i15209"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4276"
- "i4277"))
+ #("i15205"
+ "i15206"))
#(ribcage
(read-file)
((top))
- ("i4260"))
+ ("i15189"))
#(ribcage
#(x)
#((top))
- #("i4259")))
+ #("i15188")))
(hygiene guile))
- #{exp\ 4286}#))
- #{tmp\ 4284}#)
+ #{exp\ 15215}#))
+ #{tmp\ 15213}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 4283}#)))
+ #{tmp\ 15212}#)))
($sc-dispatch
- #{tmp\ 4283}#
+ #{tmp\ 15212}#
'each-any)))
- (#{read-file\ 4261}#
- #{fn\ 4281}#
- #{k\ 4278}#))))
- #{tmp\ 4275}#)
+ (#{read-file\ 15190}#
+ #{fn\ 15210}#
+ #{k\ 15207}#))))
+ #{tmp\ 15204}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4274}#)))
- ($sc-dispatch #{tmp\ 4274}# (quote (any any)))))
- #{x\ 4258}#)))
+ #{tmp\ 15203}#)))
+ ($sc-dispatch #{tmp\ 15203}# (quote (any any)))))
+ #{x\ 15187}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 4288}#)
- ((lambda (#{tmp\ 4290}#)
- ((lambda (#{tmp\ 4291}#)
- (if #{tmp\ 4291}#
- (apply (lambda (#{k\ 4294}# #{filename\ 4295}#)
- (let ((#{fn\ 4297}#
- (syntax->datum #{filename\ 4295}#)))
- ((lambda (#{tmp\ 4299}#)
- ((lambda (#{fn\ 4301}#)
+ (cons (lambda (#{x\ 15217}#)
+ ((lambda (#{tmp\ 15219}#)
+ ((lambda (#{tmp\ 15220}#)
+ (if #{tmp\ 15220}#
+ (apply (lambda (#{k\ 15223}# #{filename\ 15224}#)
+ (let ((#{fn\ 15226}#
+ (syntax->datum #{filename\ 15224}#)))
+ ((lambda (#{tmp\ 15228}#)
+ ((lambda (#{fn\ 15230}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i4300"))
+ #("i15229"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4296"))
+ #("i15225"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4292" "i4293"))
+ #("i15221" "i15222"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4289")))
+ #("i15218")))
(hygiene guile))
- #{fn\ 4301}#))
- #{tmp\ 4299}#))
- (let ((#{t\ 4304}#
- (%search-load-path #{fn\ 4297}#)))
- (if #{t\ 4304}#
- #{t\ 4304}#
+ #{fn\ 15230}#))
+ #{tmp\ 15228}#))
+ (let ((#{t\ 15233}#
+ (%search-load-path #{fn\ 15226}#)))
+ (if #{t\ 15233}#
+ #{t\ 15233}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4288}#
- #{filename\ 4295}#))))))
- #{tmp\ 4291}#)
+ #{x\ 15217}#
+ #{filename\ 15224}#))))))
+ #{tmp\ 15220}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4290}#)))
- ($sc-dispatch #{tmp\ 4290}# (quote (any any)))))
- #{x\ 4288}#))
+ #{tmp\ 15219}#)))
+ ($sc-dispatch #{tmp\ 15219}# (quote (any any)))))
+ #{x\ 15217}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 4306}#)
- ((lambda (#{tmp\ 4308}#)
- ((lambda (#{tmp\ 4309}#)
- (if #{tmp\ 4309}#
- (apply (lambda (#{_\ 4312}# #{e\ 4313}#)
+ (cons (lambda (#{x\ 15235}#)
+ ((lambda (#{tmp\ 15237}#)
+ ((lambda (#{tmp\ 15238}#)
+ (if #{tmp\ 15238}#
+ (apply (lambda (#{_\ 15241}# #{e\ 15242}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4306}#))
- #{tmp\ 4309}#)
+ #{x\ 15235}#))
+ #{tmp\ 15238}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4308}#)))
- ($sc-dispatch #{tmp\ 4308}# (quote (any any)))))
- #{x\ 4306}#))
+ #{tmp\ 15237}#)))
+ ($sc-dispatch #{tmp\ 15237}# (quote (any any)))))
+ #{x\ 15235}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 4314}#)
- ((lambda (#{tmp\ 4316}#)
- ((lambda (#{tmp\ 4317}#)
- (if #{tmp\ 4317}#
- (apply (lambda (#{_\ 4320}# #{e\ 4321}#)
+ (cons (lambda (#{x\ 15243}#)
+ ((lambda (#{tmp\ 15245}#)
+ ((lambda (#{tmp\ 15246}#)
+ (if #{tmp\ 15246}#
+ (apply (lambda (#{_\ 15249}# #{e\ 15250}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4314}#))
- #{tmp\ 4317}#)
+ #{x\ 15243}#))
+ #{tmp\ 15246}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4316}#)))
- ($sc-dispatch #{tmp\ 4316}# (quote (any any)))))
- #{x\ 4314}#))
+ #{tmp\ 15245}#)))
+ ($sc-dispatch #{tmp\ 15245}# (quote (any any)))))
+ #{x\ 15243}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 4322}#)
- ((lambda (#{tmp\ 4324}#)
- ((lambda (#{tmp\ 4325}#)
- (if #{tmp\ 4325}#
- (apply (lambda (#{_\ 4330}#
- #{e\ 4331}#
- #{m1\ 4332}#
- #{m2\ 4333}#)
- ((lambda (#{tmp\ 4335}#)
- ((lambda (#{body\ 4337}#)
+ (cons (lambda (#{x\ 15251}#)
+ ((lambda (#{tmp\ 15253}#)
+ ((lambda (#{tmp\ 15254}#)
+ (if #{tmp\ 15254}#
+ (apply (lambda (#{_\ 15259}#
+ #{e\ 15260}#
+ #{m1\ 15261}#
+ #{m2\ 15262}#)
+ ((lambda (#{tmp\ 15264}#)
+ ((lambda (#{body\ 15266}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i4336"))
+ #("i15265"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4326"
- "i4327"
- "i4328"
- "i4329"))
+ #("i15255"
+ "i15256"
+ "i15257"
+ "i15258"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i15252")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -14661,35 +14764,35 @@
#(ribcage
#(body)
#((top))
- #("i4336"))
+ #("i15265"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4326"
- "i4327"
- "i4328"
- "i4329"))
+ #("i15255"
+ "i15256"
+ "i15257"
+ "i15258"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i15252")))
(hygiene guile))
- #{e\ 4331}#))
- #{body\ 4337}#))
- #{tmp\ 4335}#))
- (letrec ((#{f\ 4341}#
- (lambda (#{clause\ 4342}#
- #{clauses\ 4343}#)
- (if (null? #{clauses\ 4343}#)
- ((lambda (#{tmp\ 4345}#)
- ((lambda (#{tmp\ 4346}#)
- (if #{tmp\ 4346}#
- (apply (lambda (#{e1\
4349}#
- #{e2\
4350}#)
+ #{e\ 15260}#))
+ #{body\ 15266}#))
+ #{tmp\ 15264}#))
+ (letrec ((#{f\ 15270}#
+ (lambda (#{clause\ 15271}#
+ #{clauses\ 15272}#)
+ (if (null? #{clauses\ 15272}#)
+ ((lambda (#{tmp\ 15274}#)
+ ((lambda (#{tmp\ 15275}#)
+ (if #{tmp\ 15275}#
+ (apply (lambda (#{e1\
15278}#
+ #{e2\
15279}#)
(cons
'#(syntax-object
begin
((top)
@@ -14698,8 +14801,8 @@
e2)
#((top)
(top))
-
#("i4347"
-
"i4348"))
+
#("i15276"
+
"i15277"))
#(ribcage
()
()
@@ -14711,9 +14814,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -14723,10 +14826,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -14734,17 +14837,17 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
- (cons
#{e1\ 4349}#
-
#{e2\ 4350}#)))
- #{tmp\ 4346}#)
- ((lambda (#{tmp\ 4352}#)
- (if #{tmp\ 4352}#
- (apply (lambda (#{k\
4356}#
-
#{e1\ 4357}#
-
#{e2\ 4358}#)
+ (cons
#{e1\ 15278}#
+
#{e2\ 15279}#)))
+ #{tmp\ 15275}#)
+ ((lambda (#{tmp\ 15281}#)
+ (if #{tmp\ 15281}#
+ (apply (lambda (#{k\
15285}#
+
#{e1\ 15286}#
+
#{e2\ 15287}#)
(list
'#(syntax-object
if
((top)
@@ -14755,9 +14858,9 @@
#((top)
(top)
(top))
-
#("i4353"
-
"i4354"
-
"i4355"))
+
#("i15282"
+
"i15283"
+
"i15284"))
#(ribcage
()
()
@@ -14769,9 +14872,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -14781,10 +14884,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -14792,7 +14895,7 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
(list
'#(syntax-object
@@ -14805,9 +14908,9 @@
#((top)
(top)
(top))
-
#("i4353"
-
"i4354"
-
"i4355"))
+
#("i15282"
+
"i15283"
+
"i15284"))
#(ribcage
()
()
@@ -14819,9 +14922,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -14831,10 +14934,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -14842,7 +14945,7 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
'#(syntax-object
@@ -14855,9 +14958,9 @@
#((top)
(top)
(top))
-
#("i4353"
-
"i4354"
-
"i4355"))
+
#("i15282"
+
"i15283"
+
"i15284"))
#(ribcage
()
()
@@ -14869,9 +14972,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -14881,10 +14984,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -14892,7 +14995,7 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
(list '#(syntax-object
@@ -14905,9 +15008,9 @@
#((top)
(top)
(top))
-
#("i4353"
-
"i4354"
-
"i4355"))
+
#("i15282"
+
"i15283"
+
"i15284"))
#(ribcage
()
()
@@ -14919,9 +15022,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -14931,10 +15034,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -14942,10 +15045,10 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
-
#{k\ 4356}#))
+
#{k\ 15285}#))
(cons
'#(syntax-object
begin
((top)
@@ -14956,9 +15059,9 @@
#((top)
(top)
(top))
-
#("i4353"
-
"i4354"
-
"i4355"))
+
#("i15282"
+
"i15283"
+
"i15284"))
#(ribcage
()
()
@@ -14970,9 +15073,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -14982,10 +15085,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -14993,27 +15096,27 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
-
(cons #{e1\ 4357}#
-
#{e2\ 4358}#))))
- #{tmp\ 4352}#)
- ((lambda (#{_\
4362}#)
+
(cons #{e1\ 15286}#
+
#{e2\ 15287}#))))
+ #{tmp\
15281}#)
+ ((lambda (#{_\
15291}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4322}#
- #{clause\
4342}#))
- #{tmp\ 4345}#)))
+ #{x\ 15251}#
+ #{clause\
15271}#))
+ #{tmp\ 15274}#)))
($sc-dispatch
- #{tmp\ 4345}#
+ #{tmp\ 15274}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 4345}#
+ #{tmp\ 15274}#
'(#(free-id
#(syntax-object
else
@@ -15024,37 +15127,37 @@
#((top)
(top)
(top))
- #("i4338"
- "i4339"
- "i4340"))
+ #("i15267"
+ "i15268"
+ "i15269"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4326"
- "i4327"
- "i4328"
- "i4329"))
+ #("i15255"
+ "i15256"
+ "i15257"
+ "i15258"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i15252")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 4342}#)
- ((lambda (#{tmp\ 4364}#)
- ((lambda (#{rest\ 4366}#)
- ((lambda (#{tmp\ 4367}#)
- ((lambda (#{tmp\ 4368}#)
- (if #{tmp\ 4368}#
- (apply (lambda
(#{k\ 4372}#
-
#{e1\ 4373}#
-
#{e2\ 4374}#)
+ #{clause\ 15271}#)
+ ((lambda (#{tmp\ 15293}#)
+ ((lambda (#{rest\ 15295}#)
+ ((lambda (#{tmp\ 15296}#)
+ ((lambda (#{tmp\ 15297}#)
+ (if #{tmp\ 15297}#
+ (apply (lambda
(#{k\ 15301}#
+
#{e1\ 15302}#
+
#{e2\ 15303}#)
(list
'#(syntax-object
if
((top)
@@ -15065,13 +15168,13 @@
#((top)
(top)
(top))
-
#("i4369"
-
"i4370"
-
"i4371"))
+
#("i15298"
+
"i15299"
+
"i15300"))
#(ribcage
#(rest)
#((top))
-
#("i4365"))
+
#("i15294"))
#(ribcage
()
()
@@ -15083,9 +15186,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -15095,10 +15198,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -15106,7 +15209,7 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
(list '#(syntax-object
@@ -15119,13 +15222,13 @@
#((top)
(top)
(top))
-
#("i4369"
-
"i4370"
-
"i4371"))
+
#("i15298"
+
"i15299"
+
"i15300"))
#(ribcage
#(rest)
#((top))
-
#("i4365"))
+
#("i15294"))
#(ribcage
()
()
@@ -15137,9 +15240,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -15149,10 +15252,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -15160,7 +15263,7 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
'#(syntax-object
@@ -15173,13 +15276,13 @@
#((top)
(top)
(top))
-
#("i4369"
-
"i4370"
-
"i4371"))
+
#("i15298"
+
"i15299"
+
"i15300"))
#(ribcage
#(rest)
#((top))
-
#("i4365"))
+
#("i15294"))
#(ribcage
()
()
@@ -15191,9 +15294,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -15203,10 +15306,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -15214,7 +15317,7 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
(list '#(syntax-object
@@ -15227,13 +15330,13 @@
#((top)
(top)
(top))
-
#("i4369"
-
"i4370"
-
"i4371"))
+
#("i15298"
+
"i15299"
+
"i15300"))
#(ribcage
#(rest)
#((top))
-
#("i4365"))
+
#("i15294"))
#(ribcage
()
()
@@ -15245,9 +15348,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -15257,10 +15360,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -15268,10 +15371,10 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
-
#{k\ 4372}#))
+
#{k\ 15301}#))
(cons '#(syntax-object
begin
((top)
@@ -15282,13 +15385,13 @@
#((top)
(top)
(top))
-
#("i4369"
-
"i4370"
-
"i4371"))
+
#("i15298"
+
"i15299"
+
"i15300"))
#(ribcage
#(rest)
#((top))
-
#("i4365"))
+
#("i15294"))
#(ribcage
()
()
@@ -15300,9 +15403,9 @@
#((top)
(top)
(top))
-
#("i4338"
-
"i4339"
-
"i4340"))
+
#("i15267"
+
"i15268"
+
"i15269"))
#(ribcage
#(_
e
@@ -15312,10 +15415,10 @@
(top)
(top)
(top))
-
#("i4326"
-
"i4327"
-
"i4328"
-
"i4329"))
+
#("i15255"
+
"i15256"
+
"i15257"
+
"i15258"))
#(ribcage
()
()
@@ -15323,61 +15426,61 @@
#(ribcage
#(x)
#((top))
-
#("i4323")))
+
#("i15252")))
(hygiene
guile))
-
(cons #{e1\ 4373}#
-
#{e2\ 4374}#))
-
#{rest\ 4366}#))
- #{tmp\
4368}#)
- ((lambda (#{_\
4378}#)
+
(cons #{e1\ 15302}#
+
#{e2\ 15303}#))
+
#{rest\ 15295}#))
+ #{tmp\
15297}#)
+ ((lambda (#{_\
15307}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4322}#
- #{clause\
4342}#))
- #{tmp\ 4367}#)))
+ #{x\ 15251}#
+ #{clause\
15271}#))
+ #{tmp\ 15296}#)))
($sc-dispatch
- #{tmp\ 4367}#
+ #{tmp\ 15296}#
'(each-any
any
.
each-any))))
- #{clause\ 4342}#))
- #{tmp\ 4364}#))
- (#{f\ 4341}#
- (car #{clauses\ 4343}#)
- (cdr #{clauses\ 4343}#)))))))
- (#{f\ 4341}# #{m1\ 4332}# #{m2\ 4333}#))))
- #{tmp\ 4325}#)
+ #{clause\ 15271}#))
+ #{tmp\ 15293}#))
+ (#{f\ 15270}#
+ (car #{clauses\ 15272}#)
+ (cdr #{clauses\ 15272}#)))))))
+ (#{f\ 15270}# #{m1\ 15261}# #{m2\ 15262}#))))
+ #{tmp\ 15254}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4324}#)))
+ #{tmp\ 15253}#)))
($sc-dispatch
- #{tmp\ 4324}#
+ #{tmp\ 15253}#
'(any any any . each-any))))
- #{x\ 4322}#))
+ #{x\ 15251}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 4379}#)
- ((lambda (#{tmp\ 4381}#)
- ((lambda (#{tmp\ 4382}#)
- (if #{tmp\ 4382}#
- (apply (lambda (#{_\ 4385}# #{e\ 4386}#)
+ (cons (lambda (#{x\ 15308}#)
+ ((lambda (#{tmp\ 15310}#)
+ ((lambda (#{tmp\ 15311}#)
+ (if #{tmp\ 15311}#
+ (apply (lambda (#{_\ 15314}# #{e\ 15315}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380")))
+ #(ribcage #(x) #((top)) #("i15309")))
(hygiene guile))
'(#(syntax-object
x
@@ -15385,9 +15488,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380")))
+ #(ribcage #(x) #((top)) #("i15309")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -15395,9 +15498,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380")))
+ #(ribcage #(x) #((top)) #("i15309")))
(hygiene guile))
.
#(syntax-object
@@ -15406,9 +15509,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380")))
+ #(ribcage #(x) #((top)) #("i15309")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -15416,12 +15519,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
'#(syntax-object
x
@@ -15429,12 +15532,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -15443,12 +15546,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -15456,12 +15559,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
(#(syntax-object
syntax
@@ -15469,12 +15572,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
#(syntax-object
id
@@ -15482,12 +15585,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312" "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -15495,27 +15598,29 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312"
+ "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
- #{e\ 4386}#))
- (list (cons #{_\ 4385}#
+ #{e\ 15315}#))
+ (list (cons #{_\ 15314}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312"
+ "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
#(syntax-object
...
@@ -15523,12 +15628,13 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312"
+ "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -15536,14 +15642,15 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4383" "i4384"))
+ #("i15312"
+ "i15313"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
- (cons #{e\ 4386}#
+ (cons #{e\ 15315}#
'(#(syntax-object
x
((top)
@@ -15551,8 +15658,8 @@
#(_ e)
#((top)
(top))
- #("i4383"
- "i4384"))
+ #("i15312"
+ "i15313"))
#(ribcage
()
()
@@ -15560,7 +15667,7 @@
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene guile))
#(syntax-object
...
@@ -15569,8 +15676,8 @@
#(_ e)
#((top)
(top))
- #("i4383"
- "i4384"))
+ #("i15312"
+ "i15313"))
#(ribcage
()
()
@@ -15578,72 +15685,72 @@
#(ribcage
#(x)
#((top))
- #("i4380")))
+ #("i15309")))
(hygiene
guile)))))))))
- #{tmp\ 4382}#)
+ #{tmp\ 15311}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4381}#)))
- ($sc-dispatch #{tmp\ 4381}# (quote (any any)))))
- #{x\ 4379}#))
+ #{tmp\ 15310}#)))
+ ($sc-dispatch #{tmp\ 15310}# (quote (any any)))))
+ #{x\ 15308}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 4387}#)
- ((lambda (#{tmp\ 4389}#)
- ((lambda (#{tmp\ 4390}#)
- (if #{tmp\ 4390}#
- (apply (lambda (#{_\ 4396}#
- #{id\ 4397}#
- #{args\ 4398}#
- #{b0\ 4399}#
- #{b1\ 4400}#)
+ (cons (lambda (#{x\ 15316}#)
+ ((lambda (#{tmp\ 15318}#)
+ ((lambda (#{tmp\ 15319}#)
+ (if #{tmp\ 15319}#
+ (apply (lambda (#{_\ 15325}#
+ #{id\ 15326}#
+ #{args\ 15327}#
+ #{b0\ 15328}#
+ #{b1\ 15329}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4391"
- "i4392"
- "i4393"
- "i4394"
- "i4395"))
+ #("i15320"
+ "i15321"
+ "i15322"
+ "i15323"
+ "i15324"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4388")))
+ #(ribcage #(x) #((top)) #("i15317")))
(hygiene guile))
- #{id\ 4397}#
+ #{id\ 15326}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4391"
- "i4392"
- "i4393"
- "i4394"
- "i4395"))
+ #("i15320"
+ "i15321"
+ "i15322"
+ "i15323"
+ "i15324"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4388")))
+ #("i15317")))
(hygiene guile))
- (cons #{args\ 4398}#
- (cons #{b0\ 4399}#
- #{b1\ 4400}#)))))
- #{tmp\ 4390}#)
- ((lambda (#{tmp\ 4402}#)
- (if (if #{tmp\ 4402}#
- (apply (lambda (#{_\ 4406}#
- #{id\ 4407}#
- #{val\ 4408}#)
+ (cons #{args\ 15327}#
+ (cons #{b0\ 15328}#
+ #{b1\ 15329}#)))))
+ #{tmp\ 15319}#)
+ ((lambda (#{tmp\ 15331}#)
+ (if (if #{tmp\ 15331}#
+ (apply (lambda (#{_\ 15335}#
+ #{id\ 15336}#
+ #{val\ 15337}#)
(identifier?
'#(syntax-object
x
@@ -15651,44 +15758,44 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4403" "i4404" "i4405"))
+ #("i15332" "i15333" "i15334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4388")))
+ #("i15317")))
(hygiene guile))))
- #{tmp\ 4402}#)
+ #{tmp\ 15331}#)
#f)
- (apply (lambda (#{_\ 4412}#
- #{id\ 4413}#
- #{val\ 4414}#)
+ (apply (lambda (#{_\ 15341}#
+ #{id\ 15342}#
+ #{val\ 15343}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4409" "i4410" "i4411"))
+ #("i15338" "i15339" "i15340"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4388")))
+ #("i15317")))
(hygiene guile))
- #{id\ 4413}#
- #{val\ 4414}#))
- #{tmp\ 4402}#)
+ #{id\ 15342}#
+ #{val\ 15343}#))
+ #{tmp\ 15331}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4389}#)))
+ #{tmp\ 15318}#)))
($sc-dispatch
- #{tmp\ 4389}#
+ #{tmp\ 15318}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 4389}#
+ #{tmp\ 15318}#
'(any (any . any) any . each-any))))
- #{x\ 4387}#))
+ #{x\ 15316}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 17d4de0..6620158 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -276,7 +276,6 @@
...))))))
(let ()
- (define noexpand "noexpand")
(define *mode* (make-fluid))
;;; hooks to nonportable run-time helpers
@@ -289,18 +288,18 @@
(define top-level-eval-hook
(lambda (x mod)
(primitive-eval
- `(,noexpand
- ,(case (fluid-ref *mode*)
- ((c) ((@ (language tree-il) tree-il->scheme) x))
- (else x))))))
+ (memoize-expression
+ (case (fluid-ref *mode*)
+ ((c) ((@ (language tree-il) tree-il->scheme) x))
+ (else x))))))
(define local-eval-hook
(lambda (x mod)
(primitive-eval
- `(,noexpand
- ,(case (fluid-ref *mode*)
- ((c) ((@ (language tree-il) tree-il->scheme) x))
- (else x))))))
+ (memoize-expression
+ (case (fluid-ref *mode*)
+ ((c) ((@ (language tree-il) tree-il->scheme) x))
+ (else x))))))
(define-syntax gensym-hook
(syntax-rules ()
@@ -2450,16 +2449,17 @@
;;; the object file if we are compiling a file.
(set! macroexpand
(lambda (x . rest)
- (if (and (pair? x) (equal? (car x) noexpand))
- (cadr x)
- (let ((m (if (null? rest) 'e (car rest)))
- (esew (if (or (null? rest) (null? (cdr rest)))
- '(eval)
- (cadr rest))))
- (with-fluids ((*mode* m))
- (chi-top x null-env top-wrap m esew
- (cons 'hygiene (module-name (current-module)))))))))
-
+ (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))))))
+
(set! identifier?
(lambda (x)
(nonsymbol-id? x)))
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |