[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-117-g1
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-117-g12922f0 |
Date: |
Thu, 13 May 2010 22:29:59 +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=12922f0dd1e327e6f0c5693619e1e6d600e6a866
The branch, master has been updated
via 12922f0dd1e327e6f0c5693619e1e6d600e6a866 (commit)
via 7572ee5261f434cf9b8e58126eb6d87c085a596d (commit)
via d8a071fc4e709ee83cd3c7fc935f7ec21375e624 (commit)
via 9658182d5f51368e2888cb461edfc2f35f91c6ac (commit)
via 8f9c5b589d7552d79cbafda3029986b714807a25 (commit)
via cc00f4474306d961bbc997bbf7fbfe6e610888da (commit)
from df3f1090e8772a78206e6a5b65112fa66dbcd0af (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 12922f0dd1e327e6f0c5693619e1e6d600e6a866
Author: Andy Wingo <address@hidden>
Date: Thu May 13 23:27:00 2010 +0200
psyntax builds case-lambda expressions
* module/ice-9/psyntax.scm (build-case-lambda, build-lambda-case):
Actually build case-lambda expressions, knowing that the memoizer will
do the right thing.
* module/ice-9/psyntax-pp.scm: Regenerated.
commit 7572ee5261f434cf9b8e58126eb6d87c085a596d
Author: Andy Wingo <address@hidden>
Date: Thu May 13 21:43:35 2010 +0200
evaluator support for case-lambda
* libguile/memoize.c (patch_case_lambda, scm_m_case_lambda)
(scm_m_case_lambda_star): Add memoizers for case-lambda and
case-lambda*.
(unmemoize): Unmemoize lambdas with multiple arities.
* libguile/eval.c (prepare_boot_closure_env_for_apply):
(prepare_boot_closure_env_for_eval): Adapt to return both body and
env, so that case-lambda clauses can be selected appropriately.
(eval, boot_closure_apply): Adapt callers.
* module/ice-9/eval.scm (make-general-closure): Support multiple
arities.
commit d8a071fc4e709ee83cd3c7fc935f7ec21375e624
Author: Andy Wingo <address@hidden>
Date: Thu May 13 17:15:10 2010 +0200
primitive support for lambda*
* libguile/memoize.c (scm_m_lambda_star): Define lambda* in the
pre-psyntax env, and make it memoize lambda* expressions.
* libguile/eval.c (BOOT_CLOSURE_PARSE_FULL): New helper.
(error_invalid_keyword, error_unrecognized_keyword): New helpers.
(prepare_boot_closure_env_for_apply): Flesh out application of boot
closures with "full" arity.
(prepare_boot_closure_env_for_eval): Punt to
prepare_boot_closure_env_for_eval for the full-arity case.
* module/ice-9/eval.scm (make-fixed-closure): Rename from `closure', and
just handle fixed arities, where there is no rest argument..
(make-general-closure): New helper, a procedure, that returns a
closure that can take rest, optional, and keyword arguments.
(eval): Adapt to call make-fixed-closure or make-general-closure as
appropriate.
* test-suite/tests/optargs.test ("lambda* inits"): Test the memoizer as
well.
commit 9658182d5f51368e2888cb461edfc2f35f91c6ac
Author: Andy Wingo <address@hidden>
Date: Thu May 13 16:56:31 2010 +0200
tweak to lambda* memoization format
* libguile/memoize.c (FULL_ARITY): Change the form to more closely
approximate <lambda-case>.
(unmemoize): Unmemoize lambda* expressions.
commit 8f9c5b589d7552d79cbafda3029986b714807a25
Author: Andy Wingo <address@hidden>
Date: Wed May 12 12:17:18 2010 +0200
change to format of memoization lambda expressions
* libguile/memoize.c (scm_m_lambda, memoize_named_let)
(scm_memoize_lambda, unmemoize)
* libguile/eval.c (eval, prepare_boot_closure_env_for_apply)
(prepare_boot_closure_env_for_eval, boot_closure_apply):
* module/ice-9/eval.scm (primitive-eval): Change the format for memoized
lambda expressions, so as to allow, in the future, case-lambda* to be
supported by the evaluator.
commit cc00f4474306d961bbc997bbf7fbfe6e610888da
Author: Andy Wingo <address@hidden>
Date: Wed May 12 12:02:09 2010 +0200
scm_badargsp is deprecated
* libguile/eval.h:
* libguile/eval.c:
* libguile/deprecated.h
* libguile/deprecated.c (scm_badargsp): Deprecate scm_badargsp.
-----------------------------------------------------------------------
Summary of changes:
libguile/deprecated.c | 21 +
libguile/deprecated.h | 3 +
libguile/eval.c | 308 +-
libguile/eval.h | 3 +-
libguile/memoize.c | 322 +-
module/ice-9/eval.scm | 159 +-
module/ice-9/psyntax-pp.scm |16215 ++++++++++++++++++++---------------------
module/ice-9/psyntax.scm | 33 +-
test-suite/tests/optargs.test | 33 +-
9 files changed, 8793 insertions(+), 8304 deletions(-)
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 4ff1bc2..b6e89bb 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1916,6 +1916,27 @@ SCM_DEFINE (scm_dynamic_args_call, "dynamic-args-call",
3, 0, 0,
+
+int
+scm_badargsp (SCM formals, SCM args)
+{
+ scm_c_issue_deprecation_warning
+ ("`scm_badargsp' is deprecated. Copy it into your project if you need
it.");
+
+ while (!scm_is_null (formals))
+ {
+ if (!scm_is_pair (formals))
+ return 0;
+ if (scm_is_null (args))
+ return 1;
+ formals = scm_cdr (formals);
+ args = scm_cdr (args);
+ }
+ return !scm_is_null (args) ? 1 : 0;
+}
+
+
+
void
scm_i_init_deprecated ()
{
diff --git a/libguile/deprecated.h b/libguile/deprecated.h
index 021e319..877b826 100644
--- a/libguile/deprecated.h
+++ b/libguile/deprecated.h
@@ -627,6 +627,9 @@ SCM_DEPRECATED SCM scm_raequal (SCM ra0, SCM ra1);
/* Deprecated 2010-04-01, use the dynamic FFI instead */
SCM_DEPRECATED SCM scm_dynamic_args_call (SCM symb, SCM dobj, SCM args);
+/* Deprecated 2010-05-12, no replacement */
+SCM_DEPRECATED int scm_badargsp (SCM formals, SCM args);
+
void scm_i_init_deprecated (void);
diff --git a/libguile/eval.c b/libguile/eval.c
index f2cbebe..7c21060 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -106,10 +106,29 @@ static scm_t_bits scm_tc16_boot_closure;
#define BOOT_CLOSURE_P(obj) SCM_TYP16_PREDICATE (scm_tc16_boot_closure, (obj))
#define BOOT_CLOSURE_CODE(x) SCM_SMOB_OBJECT (x)
#define BOOT_CLOSURE_ENV(x) SCM_SMOB_OBJECT_2 (x)
-#define BOOT_CLOSURE_NUM_REQUIRED_ARGS(x) SCM_I_INUM (CAR (BOOT_CLOSURE_CODE
(x)))
-#define BOOT_CLOSURE_HAS_REST_ARGS(x) scm_is_true (CADR (BOOT_CLOSURE_CODE
(x)))
-#define BOOT_CLOSURE_BODY(x) CDDR (BOOT_CLOSURE_CODE (x))
-
+#define BOOT_CLOSURE_BODY(x) CAR (BOOT_CLOSURE_CODE (x))
+#define BOOT_CLOSURE_NUM_REQUIRED_ARGS(x) SCM_I_INUM (CADR (BOOT_CLOSURE_CODE
(x)))
+#define BOOT_CLOSURE_IS_FIXED(x) scm_is_null (CDDR (BOOT_CLOSURE_CODE (x)))
+/* NB: One may only call the following accessors if the closure is not FIXED.
*/
+#define BOOT_CLOSURE_HAS_REST_ARGS(x) scm_is_true (CADDR (BOOT_CLOSURE_CODE
(x)))
+#define BOOT_CLOSURE_IS_REST(x) scm_is_null (CDDDR (BOOT_CLOSURE_CODE (x)))
+/* NB: One may only call the following accessors if the closure is not REST. */
+#define BOOT_CLOSURE_IS_FULL(x) (1)
+#define BOOT_CLOSURE_PARSE_FULL(x,body,nargs,rest,nopt,kw,inits,alt) \
+ do { SCM mx = BOOT_CLOSURE_CODE (x); \
+ body = CAR (mx); mx = CDR (mx); \
+ nreq = SCM_I_INUM (CAR (mx)); mx = CDR (mx); \
+ rest = CAR (mx); mx = CDR (mx); \
+ nopt = SCM_I_INUM (CAR (mx)); mx = CDR (mx); \
+ kw = CAR (mx); mx = CDR (mx); \
+ inits = CAR (mx); mx = CDR (mx); \
+ alt = CAR (mx); \
+ } while (0)
+static void prepare_boot_closure_env_for_apply (SCM proc, SCM args,
+ SCM *out_body, SCM *out_env);
+static void prepare_boot_closure_env_for_eval (SCM proc, unsigned int argc,
+ SCM exps, SCM *out_body,
+ SCM *inout_env);
#define CAR(x) SCM_CAR(x)
@@ -130,21 +149,21 @@ static void error_used_before_defined (void)
"Variable used before given a value", SCM_EOL, SCM_BOOL_F);
}
-int
-scm_badargsp (SCM formals, SCM args)
+static void error_invalid_keyword (SCM proc)
{
- while (!scm_is_null (formals))
- {
- if (!scm_is_pair (formals))
- return 0;
- if (scm_is_null (args))
- return 1;
- formals = CDR (formals);
- args = CDR (args);
- }
- return !scm_is_null (args) ? 1 : 0;
+ scm_error_scm (scm_from_locale_symbol ("keyword-argument-error"), proc,
+ scm_from_locale_string ("Invalid keyword"), SCM_EOL,
+ SCM_BOOL_F);
+}
+
+static void error_unrecognized_keyword (SCM proc)
+{
+ scm_error_scm (scm_from_locale_symbol ("keyword-argument-error"), proc,
+ scm_from_locale_string ("Unrecognized keyword"), SCM_EOL,
+ SCM_BOOL_F);
}
+
/* the environment:
(VAL ... . MOD)
If MOD is #f, it means the environment was captured before modules were
@@ -253,25 +272,7 @@ eval (SCM x, SCM env)
* ARGS is the list of arguments. */
if (BOOT_CLOSURE_P (proc))
{
- int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (proc);
- SCM new_env = BOOT_CLOSURE_ENV (proc);
- if (BOOT_CLOSURE_HAS_REST_ARGS (proc))
- {
- if (SCM_UNLIKELY (scm_ilength (args) < nreq))
- scm_wrong_num_args (proc);
- for (; nreq; nreq--, args = CDR (args))
- new_env = scm_cons (CAR (args), new_env);
- new_env = scm_cons (args, new_env);
- }
- else
- {
- if (SCM_UNLIKELY (scm_ilength (args) != nreq))
- scm_wrong_num_args (proc);
- for (; scm_is_pair (args); args = CDR (args))
- new_env = scm_cons (CAR (args), new_env);
- }
- x = BOOT_CLOSURE_BODY (proc);
- env = new_env;
+ prepare_boot_closure_env_for_apply (proc, args, &x, &env);
goto loop;
}
else
@@ -285,31 +286,7 @@ eval (SCM x, SCM env)
if (BOOT_CLOSURE_P (proc))
{
- int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (proc);
- SCM new_env = BOOT_CLOSURE_ENV (proc);
- if (BOOT_CLOSURE_HAS_REST_ARGS (proc))
- {
- if (SCM_UNLIKELY (argc < nreq))
- scm_wrong_num_args (proc);
- for (; nreq; nreq--, mx = CDR (mx))
- new_env = scm_cons (eval (CAR (mx), env), new_env);
- {
- SCM rest = SCM_EOL;
- for (; scm_is_pair (mx); mx = CDR (mx))
- rest = scm_cons (eval (CAR (mx), env), rest);
- new_env = scm_cons (scm_reverse (rest),
- new_env);
- }
- }
- else
- {
- for (; scm_is_pair (mx); mx = CDR (mx), nreq--)
- new_env = scm_cons (eval (CAR (mx), env), new_env);
- if (SCM_UNLIKELY (nreq != 0))
- scm_wrong_num_args (proc);
- }
- x = BOOT_CLOSURE_BODY (proc);
- env = new_env;
+ prepare_boot_closure_env_for_eval (proc, argc, mx, &x, &env);
goto loop;
}
else
@@ -923,28 +900,208 @@ scm_apply (SCM proc, SCM arg1, SCM args)
return scm_vm_apply (scm_the_vm (), proc, args);
}
-
-static SCM
-boot_closure_apply (SCM closure, SCM args)
+static void
+prepare_boot_closure_env_for_apply (SCM proc, SCM args,
+ SCM *out_body, SCM *out_env)
{
- int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (closure);
- SCM new_env = BOOT_CLOSURE_ENV (closure);
- if (BOOT_CLOSURE_HAS_REST_ARGS (closure))
+ int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (proc);
+ SCM env = BOOT_CLOSURE_ENV (proc);
+ if (BOOT_CLOSURE_IS_FIXED (proc)
+ || (BOOT_CLOSURE_IS_REST (proc)
+ && !BOOT_CLOSURE_HAS_REST_ARGS (proc)))
+ {
+ if (SCM_UNLIKELY (scm_ilength (args) != nreq))
+ scm_wrong_num_args (proc);
+ for (; scm_is_pair (args); args = CDR (args))
+ env = scm_cons (CAR (args), env);
+ *out_body = BOOT_CLOSURE_BODY (proc);
+ *out_env = env;
+ }
+ else if (BOOT_CLOSURE_IS_REST (proc))
{
if (SCM_UNLIKELY (scm_ilength (args) < nreq))
- scm_wrong_num_args (closure);
+ scm_wrong_num_args (proc);
for (; nreq; nreq--, args = CDR (args))
- new_env = scm_cons (CAR (args), new_env);
- new_env = scm_cons (args, new_env);
+ env = scm_cons (CAR (args), env);
+ env = scm_cons (args, env);
+ *out_body = BOOT_CLOSURE_BODY (proc);
+ *out_env = env;
}
else
{
- if (SCM_UNLIKELY (scm_ilength (args) != nreq))
- scm_wrong_num_args (closure);
- for (; scm_is_pair (args); args = CDR (args))
- new_env = scm_cons (CAR (args), new_env);
+ int i, argc, nreq, nopt;
+ SCM body, rest, kw, inits, alt;
+
+ loop:
+ BOOT_CLOSURE_PARSE_FULL (proc, body, nargs, rest, nopt, kw, inits, alt);
+
+ argc = scm_ilength (args);
+ if (argc < nreq)
+ {
+ if (scm_is_true (alt))
+ {
+ proc = alt;
+ goto loop;
+ }
+ else
+ scm_wrong_num_args (proc);
+ }
+ if (scm_is_false (kw) && argc > nreq + nopt && scm_is_false (rest))
+ {
+ if (scm_is_true (alt))
+ {
+ proc = alt;
+ goto loop;
+ }
+ else
+ scm_wrong_num_args (proc);
+ }
+
+ for (i = 0; i < nreq; i++, args = CDR (args))
+ env = scm_cons (CAR (args), env);
+
+ if (scm_is_false (kw))
+ {
+ /* Optional args (possibly), but no keyword args. */
+ for (; i < argc && i < nreq + nopt;
+ i++, args = CDR (args))
+ {
+ env = scm_cons (CAR (args), env);
+ inits = CDR (inits);
+ }
+
+ for (; i < nreq + nopt; i++, inits = CDR (inits))
+ env = scm_cons (eval (CAR (inits), env), env);
+
+ if (scm_is_true (rest))
+ env = scm_cons (args, env);
+ }
+ else
+ {
+ SCM aok;
+
+ aok = CAR (kw);
+ kw = CDR (kw);
+
+ /* Keyword args. As before, but stop at the first keyword. */
+ for (; i < argc && i < nreq + nopt && !scm_is_keyword (CAR (args));
+ i++, args = CDR (args), inits = CDR (inits))
+ env = scm_cons (CAR (args), env);
+
+ for (; i < nreq + nopt; i++, inits = CDR (inits))
+ env = scm_cons (eval (CAR (inits), env), env);
+
+ if (scm_is_true (rest))
+ {
+ env = scm_cons (args, env);
+ i++;
+ }
+
+ /* Now fill in env with unbound values, limn the rest of the args for
+ keywords, and fill in unbound values with their inits. */
+ {
+ int imax = i - 1;
+ int kw_start_idx = i;
+ SCM walk, k, v;
+ for (walk = kw; scm_is_pair (walk); walk = CDR (walk))
+ if (SCM_I_INUM (CDAR (walk)) > imax)
+ imax = SCM_I_INUM (CDAR (walk));
+ for (; i <= imax; i++)
+ env = scm_cons (SCM_UNDEFINED, env);
+
+ if (scm_is_pair (args) && scm_is_pair (CDR (args)))
+ for (; scm_is_pair (args) && scm_is_pair (CDR (args));
+ args = CDR (args))
+ {
+ k = CAR (args); v = CADR (args);
+ if (!scm_is_keyword (k))
+ {
+ if (scm_is_true (rest))
+ continue;
+ else
+ break;
+ }
+ for (walk = kw; scm_is_pair (walk); walk = CDR (walk))
+ if (scm_is_eq (k, CAAR (walk)))
+ {
+ /* Well... ok, list-set! isn't the nicest interface,
but
+ hey. */
+ int iset = imax - SCM_I_INUM (CDAR (walk));
+ scm_list_set_x (env, SCM_I_MAKINUM (iset), v);
+ args = CDR (args);
+ break;
+ }
+ if (scm_is_null (walk) && scm_is_false (aok))
+ error_unrecognized_keyword (proc);
+ }
+ if (scm_is_pair (args) && scm_is_false (rest))
+ error_invalid_keyword (proc);
+
+ /* Now fill in unbound values, evaluating init expressions in their
+ appropriate environment. */
+ for (i = imax - kw_start_idx; scm_is_pair (inits); i--, inits =
CDR (inits))
+ {
+ SCM tail = scm_list_tail (env, SCM_I_MAKINUM (i));
+ if (SCM_UNBNDP (CAR (tail)))
+ SCM_SETCAR (tail, eval (CAR (inits), CDR (tail)));
+ }
+ }
+ }
+
+ *out_body = BOOT_CLOSURE_BODY (proc);
+ *out_env = env;
+ }
+}
+
+static void
+prepare_boot_closure_env_for_eval (SCM proc, unsigned int argc,
+ SCM exps, SCM *out_body, SCM *inout_env)
+{
+ int nreq = BOOT_CLOSURE_NUM_REQUIRED_ARGS (proc);
+ SCM new_env = BOOT_CLOSURE_ENV (proc);
+ if (BOOT_CLOSURE_IS_FIXED (proc)
+ || (BOOT_CLOSURE_IS_REST (proc)
+ && !BOOT_CLOSURE_HAS_REST_ARGS (proc)))
+ {
+ for (; scm_is_pair (exps); exps = CDR (exps), nreq--)
+ new_env = scm_cons (eval (CAR (exps), *inout_env), new_env);
+ if (SCM_UNLIKELY (nreq != 0))
+ scm_wrong_num_args (proc);
+ *out_body = BOOT_CLOSURE_BODY (proc);
+ *inout_env = new_env;
}
- return eval (BOOT_CLOSURE_BODY (closure), new_env);
+ else if (BOOT_CLOSURE_IS_REST (proc))
+ {
+ if (SCM_UNLIKELY (argc < nreq))
+ scm_wrong_num_args (proc);
+ for (; nreq; nreq--, exps = CDR (exps))
+ new_env = scm_cons (eval (CAR (exps), *inout_env), new_env);
+ {
+ SCM rest = SCM_EOL;
+ for (; scm_is_pair (exps); exps = CDR (exps))
+ rest = scm_cons (eval (CAR (exps), *inout_env), rest);
+ new_env = scm_cons (scm_reverse (rest),
+ new_env);
+ }
+ *out_body = BOOT_CLOSURE_BODY (proc);
+ *inout_env = new_env;
+ }
+ else
+ {
+ SCM args = SCM_EOL;
+ for (; scm_is_pair (exps); exps = CDR (exps))
+ args = scm_cons (eval (CAR (exps), *inout_env), args);
+ args = scm_reverse_x (args, SCM_UNDEFINED);
+ prepare_boot_closure_env_for_apply (proc, args, out_body, inout_env);
+ }
+}
+
+static SCM
+boot_closure_apply (SCM closure, SCM args)
+{
+ SCM body, env;
+ prepare_boot_closure_env_for_apply (closure, args, &body, &env);
+ return eval (body, env);
}
static int
@@ -956,8 +1113,9 @@ boot_closure_print (SCM closure, SCM port, scm_print_state
*pstate)
scm_putc (' ', port);
args = scm_make_list (scm_from_int (BOOT_CLOSURE_NUM_REQUIRED_ARGS
(closure)),
scm_from_locale_symbol ("_"));
- if (BOOT_CLOSURE_HAS_REST_ARGS (closure))
+ if (!BOOT_CLOSURE_IS_FIXED (closure) && BOOT_CLOSURE_HAS_REST_ARGS (closure))
args = scm_cons_star (scm_from_locale_symbol ("_"), args);
+ /* FIXME: optionals and rests */
scm_display (args, port);
scm_putc ('>', port);
return 1;
diff --git a/libguile/eval.h b/libguile/eval.h
index 0715e04..969cce1 100644
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -3,7 +3,7 @@
#ifndef SCM_EVAL_H
#define SCM_EVAL_H
-/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003,2004,2008,2009
+/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -63,7 +63,6 @@ typedef SCM (*scm_t_trampoline_2) (SCM proc, SCM arg1, SCM
arg2);
-SCM_API int scm_badargsp (SCM formals, SCM args);
SCM_API SCM scm_call_0 (SCM proc);
SCM_API SCM scm_call_1 (SCM proc, SCM arg1);
SCM_API SCM scm_call_2 (SCM proc, SCM arg1, SCM arg2);
diff --git a/libguile/memoize.c b/libguile/memoize.c
index 75b9c7e..544de7c 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -179,8 +179,15 @@ scm_t_bits scm_tc16_memoized;
MAKMEMO (SCM_M_BEGIN, exps)
#define MAKMEMO_IF(test, then, else_) \
MAKMEMO (SCM_M_IF, scm_cons (test, scm_cons (then, else_)))
-#define MAKMEMO_LAMBDA(nreq, rest, body) \
- MAKMEMO (SCM_M_LAMBDA, scm_cons (SCM_I_MAKINUM (nreq), scm_cons (rest,
body)))
+#define FIXED_ARITY(nreq) \
+ scm_list_1 (SCM_I_MAKINUM (nreq))
+#define REST_ARITY(nreq, rest) \
+ scm_list_2 (SCM_I_MAKINUM (nreq), rest)
+#define FULL_ARITY(nreq, rest, nopt, kw, inits, alt) \
+ scm_list_n (SCM_I_MAKINUM (nreq), rest, SCM_I_MAKINUM (nopt), kw, inits, \
+ alt, SCM_UNDEFINED)
+#define MAKMEMO_LAMBDA(body, arity) \
+ MAKMEMO (SCM_M_LAMBDA, (scm_cons (body, arity)))
#define MAKMEMO_LET(inits, body) \
MAKMEMO (SCM_M_LET, scm_cons (inits, body))
#define MAKMEMO_QUOTE(exp) \
@@ -265,6 +272,9 @@ 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);
static SCM scm_m_lambda (SCM xorig, SCM env);
+static SCM scm_m_lambda_star (SCM xorig, SCM env);
+static SCM scm_m_case_lambda (SCM xorig, SCM env);
+static SCM scm_m_case_lambda_star (SCM xorig, SCM env);
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);
@@ -422,6 +432,9 @@ 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_SYNTAX (s_lambda_star, "lambda*", scm_m_lambda_star);
+SCM_SYNTAX (s_case_lambda, "case-lambda", scm_m_case_lambda);
+SCM_SYNTAX (s_case_lambda_star, "case-lambda*", scm_m_case_lambda_star);
SCM_GLOBAL_SYMBOL (scm_sym_apply, "apply");
SCM_GLOBAL_SYMBOL (scm_sym_arrow, "=>");
@@ -447,6 +460,9 @@ SCM_GLOBAL_SYMBOL (scm_sym_or, "or");
SCM_GLOBAL_SYMBOL (scm_sym_at_prompt, "@prompt");
SCM_GLOBAL_SYMBOL (scm_sym_quote, "quote");
SCM_GLOBAL_SYMBOL (scm_sym_set_x, "set!");
+SCM_SYMBOL (sym_lambda_star, "lambda*");
+SCM_SYMBOL (sym_case_lambda, "case-lambda");
+SCM_SYMBOL (sym_case_lambda_star, "case-lambda*");
SCM_SYMBOL (sym_eval, "eval");
SCM_SYMBOL (sym_load, "load");
@@ -454,6 +470,11 @@ SCM_GLOBAL_SYMBOL (scm_sym_unquote, "unquote");
SCM_GLOBAL_SYMBOL (scm_sym_quasiquote, "quasiquote");
SCM_GLOBAL_SYMBOL (scm_sym_uq_splicing, "unquote-splicing");
+SCM_KEYWORD (kw_allow_other_keys, "allow-other-keys");
+SCM_KEYWORD (kw_optional, "optional");
+SCM_KEYWORD (kw_key, "key");
+SCM_KEYWORD (kw_rest, "rest");
+
static SCM
scm_m_at (SCM expr, SCM env SCM_UNUSED)
@@ -676,6 +697,7 @@ scm_m_lambda (SCM expr, SCM env SCM_UNUSED)
SCM formals;
SCM formals_idx;
SCM formal_vars = SCM_EOL;
+ SCM body;
int nreq = 0;
const SCM cdr_expr = CDR (expr);
@@ -715,9 +737,253 @@ scm_m_lambda (SCM expr, SCM env SCM_UNUSED)
s_bad_formal, formals_idx, expr);
if (scm_is_symbol (formals_idx))
formal_vars = scm_cons (formals_idx, formal_vars);
- return MAKMEMO_LAMBDA (nreq, scm_symbol_p (formals_idx),
- memoize_sequence (CDDR (expr),
- memoize_env_extend (env,
formal_vars)));
+
+ body = memoize_sequence (CDDR (expr), memoize_env_extend (env, formal_vars));
+
+ if (scm_is_symbol (formals_idx))
+ return MAKMEMO_LAMBDA (body, REST_ARITY (nreq, SCM_BOOL_T));
+ else
+ return MAKMEMO_LAMBDA (body, FIXED_ARITY (nreq));
+}
+
+static SCM
+scm_m_lambda_star (SCM expr, SCM env)
+{
+ SCM req, opt, kw, allow_other_keys, rest, formals, body;
+ SCM inits, kw_indices;
+ int nreq, nopt;
+
+ const long length = scm_ilength (expr);
+ ASSERT_SYNTAX (length >= 1, s_bad_expression, expr);
+ ASSERT_SYNTAX (length >= 3, s_missing_expression, expr);
+
+ formals = CADR (expr);
+ body = CDDR (expr);
+
+ nreq = nopt = 0;
+ req = opt = kw = SCM_EOL;
+ rest = allow_other_keys = SCM_BOOL_F;
+
+ while (scm_is_pair (formals) && scm_is_symbol (CAR (formals)))
+ {
+ nreq++;
+ req = scm_cons (CAR (formals), req);
+ formals = scm_cdr (formals);
+ }
+
+ if (scm_is_pair (formals) && scm_is_eq (CAR (formals), kw_optional))
+ {
+ formals = CDR (formals);
+ while (scm_is_pair (formals)
+ && (scm_is_symbol (CAR (formals)) || scm_is_pair (CAR (formals))))
+ {
+ nopt++;
+ opt = scm_cons (CAR (formals), opt);
+ formals = scm_cdr (formals);
+ }
+ }
+
+ if (scm_is_pair (formals) && scm_is_eq (CAR (formals), kw_key))
+ {
+ formals = CDR (formals);
+ while (scm_is_pair (formals)
+ && (scm_is_symbol (CAR (formals)) || scm_is_pair (CAR (formals))))
+ {
+ kw = scm_cons (CAR (formals), kw);
+ formals = scm_cdr (formals);
+ }
+ }
+
+ if (scm_is_pair (formals) && scm_is_eq (CAR (formals), kw_allow_other_keys))
+ {
+ formals = CDR (formals);
+ allow_other_keys = SCM_BOOL_T;
+ }
+
+ if (scm_is_pair (formals) && scm_is_eq (CAR (formals), kw_rest))
+ {
+ if (scm_ilength (formals) != 2)
+ syntax_error (s_bad_formals, CADR (expr), expr);
+ else
+ rest = CADR (formals);
+ }
+ else if (scm_is_symbol (formals))
+ rest = formals;
+ else if (!scm_is_null (formals))
+ syntax_error (s_bad_formals, CADR (expr), expr);
+ else
+ rest = SCM_BOOL_F;
+
+ /* Now, iterate through them a second time, building up an expansion-time
+ environment, checking, expanding and canonicalizing the opt/kw init forms,
+ and eventually memoizing the body as well. Note that the rest argument, if
+ any, is expanded before keyword args, thus necessitating the second
+ pass.
+
+ Also note that the specific environment during expansion of init
+ expressions here needs to coincide with the environment when psyntax
+ expands. A lot of effort for something that is only used in the bootstrap
+ memoizer, you say? Yes. Yes it is.
+ */
+
+ inits = SCM_EOL;
+
+ /* nreq is already set, and req is already reversed: simply extend. */
+ env = memoize_env_extend (env, req);
+
+ /* Build up opt inits and env */
+ opt = scm_reverse_x (opt, SCM_EOL);
+ while (scm_is_pair (opt))
+ {
+ SCM x = CAR (opt);
+ if (scm_is_symbol (x))
+ inits = scm_cons (MAKMEMO_QUOTE (SCM_BOOL_F), inits);
+ else if (scm_ilength (x) == 2 && scm_is_symbol (CAR (x)))
+ inits = scm_cons (memoize (CADR (x), env), inits);
+ else
+ syntax_error (s_bad_formals, CADR (expr), expr);
+ env = scm_cons (scm_is_symbol (x) ? x : CAR (x), env);
+ opt = CDR (opt);
+ }
+
+ /* Process rest before keyword args */
+ if (scm_is_true (rest))
+ env = scm_cons (rest, env);
+
+ /* Build up kw inits, env, and kw-indices alist */
+ if (scm_is_null (kw))
+ kw_indices = SCM_BOOL_F;
+ else
+ {
+ int idx = nreq + nopt + (scm_is_true (rest) ? 1 : 0);
+
+ kw_indices = SCM_EOL;
+ kw = scm_reverse_x (kw, SCM_EOL);
+ while (scm_is_pair (kw))
+ {
+ SCM x, sym, k, init;
+ x = CAR (kw);
+ if (scm_is_symbol (x))
+ {
+ sym = x;
+ init = SCM_BOOL_F;
+ k = scm_symbol_to_keyword (sym);
+ }
+ else if (scm_ilength (x) == 2 && scm_is_symbol (CAR (x)))
+ {
+ sym = CAR (x);
+ init = CADR (x);
+ k = scm_symbol_to_keyword (sym);
+ }
+ else if (scm_ilength (x) == 3 && scm_is_symbol (CAR (x))
+ && scm_is_keyword (CADDR (x)))
+ {
+ sym = CAR (x);
+ init = CADR (x);
+ k = CADDR (x);
+ }
+ else
+ syntax_error (s_bad_formals, CADR (expr), expr);
+
+ kw_indices = scm_acons (k, SCM_I_MAKINUM (idx++), kw_indices);
+ inits = scm_cons (memoize (init, env), inits);
+ env = scm_cons (sym, env);
+ kw = CDR (kw);
+ }
+ kw_indices = scm_cons (allow_other_keys,
+ scm_reverse_x (kw_indices, SCM_UNDEFINED));
+ }
+
+ /* We should check for no duplicates, but given that psyntax does this
+ already, we can punt on it here... */
+
+ inits = scm_reverse_x (inits, SCM_UNDEFINED);
+ body = memoize_sequence (body, env);
+
+ if (scm_is_false (kw_indices) && scm_is_false (rest) && !nopt)
+ return MAKMEMO_LAMBDA (body, FIXED_ARITY (nreq));
+ if (scm_is_false (kw_indices) && !nopt)
+ return MAKMEMO_LAMBDA (body, REST_ARITY (nreq, SCM_BOOL_T));
+ else
+ return MAKMEMO_LAMBDA (body, FULL_ARITY (nreq, rest, nopt, kw_indices,
inits,
+ SCM_BOOL_F));
+}
+
+static SCM
+patch_case_lambda (SCM a, SCM b)
+{
+ SCM mx, body, rest, kw_indices, inits;
+ int nreq, nopt;
+
+ mx = SCM_SMOB_OBJECT_1 (a);
+ body = CAR (mx);
+ mx = CDR (mx);
+
+ if (scm_is_null (CDR (mx)))
+ {
+ nreq = scm_to_int16 (CAR (mx));
+ rest = SCM_BOOL_F;
+ nopt = 0;
+ kw_indices = SCM_BOOL_F;
+ inits = SCM_EOL;
+ }
+ else if (scm_is_null (CDDR (mx)))
+ {
+ nreq = scm_to_int16 (CAR (mx));
+ rest = CADR (mx);
+ nopt = 0;
+ kw_indices = SCM_BOOL_F;
+ inits = SCM_EOL;
+ }
+ else
+ {
+ nreq = scm_to_int16 (CAR (mx));
+ rest = CADR (mx);
+ nopt = scm_to_int16 (CADDR (mx));
+ kw_indices = CADDDR (mx);
+ inits = CADR (CDDDR (mx));
+ }
+
+ return MAKMEMO_LAMBDA
+ (body, FULL_ARITY (nreq, rest, nopt, kw_indices, inits, b));
+}
+
+static SCM
+scm_m_case_lambda (SCM expr, SCM env)
+{
+ SCM ret, clauses;
+
+ const long length = scm_ilength (expr);
+ ASSERT_SYNTAX (length >= 1, s_bad_expression, expr);
+ ASSERT_SYNTAX (length >= 2, s_missing_expression, expr);
+
+ clauses = scm_reverse (CDR (expr));
+ ret = SCM_BOOL_F;
+
+ for (; scm_is_pair (clauses); clauses = CDR (clauses))
+ ret = patch_case_lambda
+ (scm_m_lambda (scm_cons (scm_sym_lambda, CAR (clauses)), env), ret);
+
+ return ret;
+}
+
+static SCM
+scm_m_case_lambda_star (SCM expr, SCM env)
+{
+ SCM ret, clauses;
+
+ const long length = scm_ilength (expr);
+ ASSERT_SYNTAX (length >= 1, s_bad_expression, expr);
+ ASSERT_SYNTAX (length >= 2, s_missing_expression, expr);
+
+ clauses = scm_reverse (CDR (expr));
+ ret = SCM_BOOL_F;
+
+ for (; scm_is_pair (clauses); clauses = CDR (clauses))
+ ret = patch_case_lambda
+ (scm_m_lambda_star (scm_cons (sym_lambda_star, CAR (clauses)), env),
ret);
+
+ return ret;
}
/* Check if the format of the bindings is ((<symbol> <init-form>) ...). */
@@ -796,10 +1062,10 @@ memoize_named_let (const SCM expr, SCM env)
MAKMEMO_BEGIN
(scm_list_2 (MAKMEMO_LEX_SET
(0,
- MAKMEMO_LAMBDA
- (nreq, SCM_BOOL_F,
- memoize_sequence (CDDDR (expr),
- memoize_env_extend (env, rvariables)))),
+ MAKMEMO_LAMBDA (memoize_sequence
+ (CDDDR (expr),
+ memoize_env_extend (env, rvariables)),
+ FIXED_ARITY (nreq))),
MAKMEMO_CALL (MAKMEMO_LEX_REF (0),
nreq,
memoize_exprs (inits, env)))));
@@ -1118,7 +1384,7 @@ SCM_DEFINE (scm_memoize_lambda, "memoize-lambda", 3, 0, 0,
{
SCM_VALIDATE_BOOL (2, rest);
SCM_VALIDATE_MEMOIZED (3, body);
- return MAKMEMO_LAMBDA (scm_to_uint16 (nreq), rest, body);
+ return MAKMEMO_LAMBDA (body, REST_ARITY (scm_to_uint16 (nreq), rest));
}
#undef FUNC_NAME
@@ -1323,9 +1589,39 @@ unmemoize (const SCM expr)
return scm_list_4 (scm_sym_if, unmemoize (scm_car (args)),
unmemoize (scm_cadr (args)), unmemoize (scm_cddr
(args)));
case SCM_M_LAMBDA:
- return scm_list_3 (scm_sym_lambda,
- scm_make_list (CAR (args), sym_placeholder),
- unmemoize (CDDR (args)));
+ if (scm_is_null (CDDR (args)))
+ return scm_list_3 (scm_sym_lambda,
+ scm_make_list (CADR (args), sym_placeholder),
+ unmemoize (CAR (args)));
+ else if (scm_is_null (CDDDR (args)))
+ {
+ SCM formals = scm_make_list (CADR (args), sym_placeholder);
+ return scm_list_3 (scm_sym_lambda,
+ scm_is_true (CADDR (args))
+ ? scm_cons_star (sym_placeholder, formals)
+ : formals,
+ unmemoize (CAR (args)));
+ }
+ else
+ {
+ SCM body = CAR (args), spec = CDR (args), alt, tail;
+
+ alt = CADDR (CDDDR (spec));
+ if (scm_is_true (alt))
+ tail = CDR (unmemoize (alt));
+ else
+ tail = SCM_EOL;
+
+ return scm_cons
+ (sym_case_lambda_star,
+ scm_cons (scm_list_2 (scm_list_5 (CAR (spec),
+ CADR (spec),
+ CADDR (spec),
+ CADDDR (spec),
+ unmemoize_exprs (CADR (CDDDR
(spec)))),
+ unmemoize (body)),
+ tail));
+ }
case SCM_M_LET:
return scm_list_3 (scm_sym_let,
unmemoize_bindings (CAR (args)),
diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm
index a5f885c..e6e5f17 100644
--- a/module/ice-9/eval.scm
+++ b/module/ice-9/eval.scm
@@ -55,7 +55,8 @@
(and (current-module) the-root-module)
env)))))
- (define-syntax make-closure
+ ;; Fast case for procedures with fixed arities.
+ (define-syntax make-fixed-closure
(lambda (x)
(define *max-static-argument-count* 8)
(define (make-formals n)
@@ -66,22 +67,17 @@
(string (integer->char (+ (char->integer #\a) i))))))
(iota n)))
(syntax-case x ()
- ((_ eval nreq rest? body env) (not (identifier? #'env))
+ ((_ eval nreq body env) (not (identifier? #'env))
#'(let ((e env))
- (make-closure eval nreq rest? body e)))
- ((_ eval nreq rest? body env)
+ (make-fixed-closure eval nreq body e)))
+ ((_ eval nreq body env)
#`(case nreq
#,@(map (lambda (nreq)
(let ((formals (make-formals nreq)))
#`((#,nreq)
- (if rest?
- (lambda (#,@formals . rest)
- (eval body
- (cons* rest #,@(reverse formals)
- env)))
- (lambda (#,@formals)
- (eval body
- (cons* #,@(reverse formals) env)))))))
+ (lambda (#,@formals)
+ (eval body
+ (cons* #,@(reverse formals) env))))))
(iota *max-static-argument-count*))
(else
#,(let ((formals (make-formals *max-static-argument-count*)))
@@ -91,13 +87,11 @@
(args more))
(if (zero? nreq)
(eval body
- (if rest?
- (cons args new-env)
- (if (not (null? args))
- (scm-error 'wrong-number-of-args
- "eval" "Wrong number of
arguments"
- '() #f)
- new-env)))
+ (if (null? args)
+ new-env
+ (scm-error 'wrong-number-of-args
+ "eval" "Wrong number of
arguments"
+ '() #f)))
(if (null? args)
(scm-error 'wrong-number-of-args
"eval" "Wrong number of arguments"
@@ -218,6 +212,122 @@
(define primitive-eval
(let ()
+ ;; We pre-generate procedures with fixed arities, up to some number of
+ ;; arguments; see make-fixed-closure above.
+
+ ;; A unique marker for unbound keywords.
+ (define unbound-arg (list 'unbound-arg))
+
+ ;; Procedures with rest, optional, or keyword arguments, potentially with
+ ;; multiple arities, as with case-lambda.
+ (define (make-general-closure env body nreq rest? nopt kw inits alt)
+ (define alt-proc
+ (and alt
+ (apply make-general-closure env (memoized-expression-data alt))))
+ (lambda %args
+ (let lp ((env env)
+ (nreq* nreq)
+ (args %args))
+ (if (> nreq* 0)
+ ;; First, bind required arguments.
+ (if (null? args)
+ (if alt
+ (apply alt-proc %args)
+ (scm-error 'wrong-number-of-args
+ "eval" "Wrong number of arguments"
+ '() #f))
+ (lp (cons (car args) env)
+ (1- nreq*)
+ (cdr args)))
+ ;; Move on to optional arguments.
+ (if (not kw)
+ ;; Without keywords, bind optionals from arguments.
+ (let lp ((env env)
+ (nopt nopt)
+ (args args)
+ (inits inits))
+ (if (zero? nopt)
+ (if rest?
+ (eval body (cons args env))
+ (if (null? args)
+ (eval body env)
+ (if alt
+ (apply alt-proc %args)
+ (scm-error 'wrong-number-of-args
+ "eval" "Wrong number of
arguments"
+ '() #f))))
+ (if (null? args)
+ (lp (cons (eval (car inits) env) env)
+ (1- nopt) args (cdr inits))
+ (lp (cons (car args) env)
+ (1- nopt) (cdr args) (cdr inits)))))
+ ;; With keywords, we stop binding optionals at the first
+ ;; keyword.
+ (let lp ((env env)
+ (nopt* nopt)
+ (args args)
+ (inits inits))
+ (if (> nopt* 0)
+ (if (or (null? args) (keyword? (car args)))
+ (lp (cons (eval (car inits) env) env)
+ (1- nopt*) args (cdr inits))
+ (lp (cons (car args) env)
+ (1- nopt*) (cdr args) (cdr inits)))
+ ;; Finished with optionals.
+ (let* ((aok (car kw))
+ (kw (cdr kw))
+ (kw-base (+ nopt nreq (if rest? 1 0)))
+ (imax (let lp ((imax (1- kw-base)) (kw kw))
+ (if (null? kw)
+ imax
+ (lp (max (cdar kw) imax)
+ (cdr kw)))))
+ ;; Fill in kwargs with "undefined" vals.
+ (env (let lp ((i kw-base)
+ ;; Also, here we bind the rest
+ ;; arg, if any.
+ (env (if rest? (cons args env)
env)))
+ (if (<= i imax)
+ (lp (1+ i) (cons unbound-arg env))
+ env))))
+ ;; Now scan args for keywords.
+ (let lp ((args args))
+ (if (and (pair? args) (pair? (cdr args))
+ (keyword? (car args)))
+ (let ((kw-pair (assq (car args) kw))
+ (v (cadr args)))
+ (if kw-pair
+ ;; Found a known keyword; set its value.
+ (list-set! env (- imax (cdr kw-pair)) v)
+ ;; Unknown keyword.
+ (if (not aok)
+ (scm-error 'keyword-argument-error
+ "eval" "Unrecognized
keyword"
+ '() #f)))
+ (lp (cddr args)))
+ (if (pair? args)
+ (if rest?
+ ;; Be lenient parsing rest args.
+ (lp (cdr args))
+ (scm-error 'keyword-argument-error
+ "eval" "Invalid keyword"
+ '() #f))
+ ;; Finished parsing keywords. Fill in
+ ;; uninitialized kwargs by evalling init
+ ;; expressions in their appropriate
+ ;; environment.
+ (let lp ((i (- imax kw-base))
+ (inits inits))
+ (if (pair? inits)
+ (let ((tail (list-tail env i)))
+ (if (eq? (car tail) unbound-arg)
+ (set-car! tail
+ (eval (car inits)
+ (cdr tail))))
+ (lp (1- i) (cdr inits)))
+ ;; Finally, eval the body.
+ (eval body env))))))))))))))
+
;; The "engine". EXP is a memoized expression.
(define (eval exp env)
(memoized-expression-case exp
@@ -255,9 +365,14 @@
(lp (cdr inits)
(cons (eval (car inits) env) new-env)))))
- (('lambda (nreq rest? . body))
- (make-closure eval nreq rest? body (capture-env env)))
-
+ (('lambda (body nreq . tail))
+ (if (null? tail)
+ (make-fixed-closure eval nreq body (capture-env env))
+ (if (null? (cdr tail))
+ (make-general-closure (capture-env env) body nreq (car tail)
+ 0 #f '() #f)
+ (apply make-general-closure (capture-env env) body nreq
tail))))
+
(('begin (first . rest))
(let lp ((first first) (rest rest))
(if (null? rest)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index a0446d7..f9ee8f8 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,657 +1,643 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(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}#)
+(letrec ((#{and-map*\ 466}#
+ (lambda (#{f\ 528}# #{first\ 529}# . #{rest\ 530}#)
+ (let ((#{t\ 536}# (null? #{first\ 529}#)))
+ (if #{t\ 536}#
+ #{t\ 536}#
+ (if (null? #{rest\ 530}#)
+ (letrec ((#{andmap\ 540}#
+ (lambda (#{first\ 541}#)
+ (let ((#{x\ 544}# (car #{first\ 541}#))
+ (#{first\ 545}# (cdr #{first\ 541}#)))
+ (if (null? #{first\ 545}#)
+ (#{f\ 528}# #{x\ 544}#)
+ (if (#{f\ 528}# #{x\ 544}#)
+ (#{andmap\ 540}# #{first\ 545}#)
#f))))))
- (#{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}#)
+ (#{andmap\ 540}# #{first\ 529}#))
+ (letrec ((#{andmap\ 551}#
+ (lambda (#{first\ 552}# #{rest\ 553}#)
+ (let ((#{x\ 558}# (car #{first\ 552}#))
+ (#{xr\ 559}# (map car #{rest\ 553}#))
+ (#{first\ 560}# (cdr #{first\ 552}#))
+ (#{rest\ 561}# (map cdr #{rest\ 553}#)))
+ (if (null? #{first\ 560}#)
+ (apply #{f\ 528}#
+ (cons #{x\ 558}# #{xr\ 559}#))
+ (if (apply #{f\ 528}#
+ (cons #{x\ 558}# #{xr\ 559}#))
+ (#{andmap\ 551}#
+ #{first\ 560}#
+ #{rest\ 561}#)
#f))))))
- (#{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}#
+ (#{andmap\ 551}# #{first\ 529}# #{rest\ 530}#))))))))
+ (letrec ((#{lambda-var-list\ 781}#
+ (lambda (#{vars\ 996}#)
+ (letrec ((#{lvl\ 1002}#
+ (lambda (#{vars\ 1003}# #{ls\ 1004}# #{w\ 1005}#)
+ (if (pair? #{vars\ 1003}#)
+ (#{lvl\ 1002}#
+ (cdr #{vars\ 1003}#)
+ (cons (#{wrap\ 735}#
+ (car #{vars\ 1003}#)
+ #{w\ 1005}#
#f)
- #{ls\ 11489}#)
- #{w\ 11490}#)
- (if (#{id?\ 11151}# #{vars\ 11488}#)
- (cons (#{wrap\ 11220}#
- #{vars\ 11488}#
- #{w\ 11490}#
+ #{ls\ 1004}#)
+ #{w\ 1005}#)
+ (if (#{id?\ 666}# #{vars\ 1003}#)
+ (cons (#{wrap\ 735}#
+ #{vars\ 1003}#
+ #{w\ 1005}#
#f)
- #{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}#
+ #{ls\ 1004}#)
+ (if (null? #{vars\ 1003}#)
+ #{ls\ 1004}#
+ (if (#{syntax-object?\ 630}# #{vars\ 1003}#)
+ (#{lvl\ 1002}#
+ (#{syntax-object-expression\ 632}#
+ #{vars\ 1003}#)
+ #{ls\ 1004}#
+ (#{join-wraps\ 717}#
+ #{w\ 1005}#
+ (#{syntax-object-wrap\ 634}#
+ #{vars\ 1003}#)))
+ (cons #{vars\ 1003}# #{ls\ 1004}#))))))))
+ (#{lvl\ 1002}#
+ #{vars\ 996}#
'()
'(())))))
- (#{gen-var\ 11264}#
- (lambda (#{id\ 11501}#)
- (let ((#{id\ 11504}#
- (if (#{syntax-object?\ 11115}# #{id\ 11501}#)
- (#{syntax-object-expression\ 11117}#
- #{id\ 11501}#)
- #{id\ 11501}#)))
+ (#{gen-var\ 779}#
+ (lambda (#{id\ 1016}#)
+ (let ((#{id\ 1019}#
+ (if (#{syntax-object?\ 630}# #{id\ 1016}#)
+ (#{syntax-object-expression\ 632}# #{id\ 1016}#)
+ #{id\ 1016}#)))
(gensym
- (string-append
- (symbol->string #{id\ 11504}#)
- " ")))))
- (#{strip\ 11262}#
- (lambda (#{x\ 11506}# #{w\ 11507}#)
+ (string-append (symbol->string #{id\ 1019}#) " ")))))
+ (#{strip\ 777}#
+ (lambda (#{x\ 1021}# #{w\ 1022}#)
(if (memq 'top
- (#{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}#))
+ (#{wrap-marks\ 673}# #{w\ 1022}#))
+ #{x\ 1021}#
+ (letrec ((#{f\ 1028}#
+ (lambda (#{x\ 1029}#)
+ (if (#{syntax-object?\ 630}# #{x\ 1029}#)
+ (#{strip\ 777}#
+ (#{syntax-object-expression\ 632}#
+ #{x\ 1029}#)
+ (#{syntax-object-wrap\ 634}# #{x\ 1029}#))
+ (if (pair? #{x\ 1029}#)
+ (let ((#{a\ 1036}#
+ (#{f\ 1028}# (car #{x\ 1029}#)))
+ (#{d\ 1037}#
+ (#{f\ 1028}# (cdr #{x\ 1029}#))))
+ (if (if (eq? #{a\ 1036}# (car #{x\ 1029}#))
+ (eq? #{d\ 1037}# (cdr #{x\ 1029}#))
#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}#
+ #{x\ 1029}#
+ (cons #{a\ 1036}# #{d\ 1037}#)))
+ (if (vector? #{x\ 1029}#)
+ (let ((#{old\ 1043}#
+ (vector->list #{x\ 1029}#)))
+ (let ((#{new\ 1045}#
+ (map #{f\ 1028}# #{old\ 1043}#)))
+ (if (#{and-map*\ 466}#
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}#)
+ #{old\ 1043}#
+ #{new\ 1045}#)
+ #{x\ 1029}#
+ (list->vector #{new\ 1045}#))))
+ #{x\ 1029}#))))))
+ (#{f\ 1028}# #{x\ 1021}#)))))
+ (#{chi-lambda-case\ 775}#
+ (lambda (#{e\ 1047}#
+ #{r\ 1048}#
+ #{w\ 1049}#
+ #{s\ 1050}#
+ #{mod\ 1051}#
+ #{get-formals\ 1052}#
+ #{clauses\ 1053}#)
+ (letrec ((#{expand-body\ 1068}#
+ (lambda (#{req\ 1069}#
+ #{opt\ 1070}#
+ #{rest\ 1071}#
+ #{kw\ 1072}#
+ #{body\ 1073}#
+ #{vars\ 1074}#
+ #{r*\ 1075}#
+ #{w*\ 1076}#
+ #{inits\ 1077}#
+ #{meta\ 1078}#)
+ ((lambda (#{tmp\ 1089}#)
+ ((lambda (#{tmp\ 1090}#)
+ (if (if #{tmp\ 1090}#
+ (apply (lambda (#{docstring\ 1094}#
+ #{e1\ 1095}#
+ #{e2\ 1096}#)
(string?
(syntax->datum
- #{docstring\ 11579}#)))
- #{tmp\ 11575}#)
+ #{docstring\ 1094}#)))
+ #{tmp\ 1090}#)
#f)
- (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}#
+ (apply (lambda (#{docstring\ 1100}#
+ #{e1\ 1101}#
+ #{e2\ 1102}#)
+ (#{expand-body\ 1068}#
+ #{req\ 1069}#
+ #{opt\ 1070}#
+ #{rest\ 1071}#
+ #{kw\ 1072}#
+ (cons #{e1\ 1101}# #{e2\ 1102}#)
+ #{vars\ 1074}#
+ #{r*\ 1075}#
+ #{w*\ 1076}#
+ #{inits\ 1077}#
(append
- #{meta\ 11563}#
+ #{meta\ 1078}#
(list (cons 'documentation
(syntax->datum
- #{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}#
+ #{docstring\
1100}#))))))
+ #{tmp\ 1090}#)
+ ((lambda (#{tmp\ 1105}#)
+ (if #{tmp\ 1105}#
+ (apply (lambda (#{k\ 1110}#
+ #{v\ 1111}#
+ #{e1\ 1112}#
+ #{e2\ 1113}#)
+ (#{expand-body\ 1068}#
+ #{req\ 1069}#
+ #{opt\ 1070}#
+ #{rest\ 1071}#
+ #{kw\ 1072}#
+ (cons #{e1\ 1112}#
+ #{e2\ 1113}#)
+ #{vars\ 1074}#
+ #{r*\ 1075}#
+ #{w*\ 1076}#
+ #{inits\ 1077}#
(append
- #{meta\ 11563}#
+ #{meta\ 1078}#
(syntax->datum
(map cons
- #{k\ 11595}#
- #{v\ 11596}#)))))
- #{tmp\ 11590}#)
- ((lambda (#{tmp\ 11602}#)
- (if #{tmp\ 11602}#
- (apply (lambda (#{e1\ 11605}#
- #{e2\ 11606}#)
+ #{k\ 1110}#
+ #{v\ 1111}#)))))
+ #{tmp\ 1105}#)
+ ((lambda (#{tmp\ 1117}#)
+ (if #{tmp\ 1117}#
+ (apply (lambda (#{e1\ 1120}#
+ #{e2\ 1121}#)
(values
- #{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}#)
+ #{meta\ 1078}#
+ #{req\ 1069}#
+ #{opt\ 1070}#
+ #{rest\ 1071}#
+ #{kw\ 1072}#
+ #{inits\ 1077}#
+ #{vars\ 1074}#
+ (#{chi-body\ 759}#
+ (cons #{e1\ 1120}#
+ #{e2\ 1121}#)
+ (#{source-wrap\
737}#
+ #{e\ 1047}#
+ #{w\ 1049}#
+ #{s\ 1050}#
+ #{mod\ 1051}#)
+ #{r*\ 1075}#
+ #{w*\ 1076}#
+ #{mod\ 1051}#)))
+ #{tmp\ 1117}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 11574}#)))
+ #{tmp\ 1089}#)))
($sc-dispatch
- #{tmp\ 11574}#
+ #{tmp\ 1089}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 11574}#
+ #{tmp\ 1089}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 11574}#
+ #{tmp\ 1089}#
'(any any . each-any))))
- #{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}#
+ #{body\ 1073}#)))
+ (#{expand-kw\ 1066}#
+ (lambda (#{req\ 1123}#
+ #{opt\ 1124}#
+ #{rest\ 1125}#
+ #{kw\ 1126}#
+ #{body\ 1127}#
+ #{vars\ 1128}#
+ #{r*\ 1129}#
+ #{w*\ 1130}#
+ #{aok\ 1131}#
+ #{out\ 1132}#
+ #{inits\ 1133}#)
+ (if (pair? #{kw\ 1126}#)
+ ((lambda (#{tmp\ 1147}#)
+ ((lambda (#{tmp\ 1148}#)
+ (if #{tmp\ 1148}#
+ (apply (lambda (#{k\ 1152}#
+ #{id\ 1153}#
+ #{i\ 1154}#)
+ (let ((#{v\ 1157}#
+ (#{gen-var\ 779}#
+ #{id\ 1153}#)))
+ (let ((#{l\ 1159}#
+ (#{gen-labels\ 684}#
+ (list #{v\
1157}#))))
+ (let ((#{r**\ 1161}#
+ (#{extend-var-env\
656}#
+ #{l\ 1159}#
+ (list #{v\ 1157}#)
+ #{r*\ 1129}#)))
+ (let ((#{w**\ 1163}#
+
(#{make-binding-wrap\ 713}#
+ (list #{id\
1153}#)
+ #{l\ 1159}#
+ #{w*\ 1130}#)))
+ (#{expand-kw\ 1066}#
+ #{req\ 1123}#
+ #{opt\ 1124}#
+ #{rest\ 1125}#
+ (cdr #{kw\ 1126}#)
+ #{body\ 1127}#
+ (cons #{v\ 1157}#
+ #{vars\ 1128}#)
+ #{r**\ 1161}#
+ #{w**\ 1163}#
+ #{aok\ 1131}#
(cons (list
(syntax->datum
- #{k\
11637}#)
+ #{k\
1152}#)
(syntax->datum
- #{id\
11638}#)
- #{v\
11642}#)
- #{out\ 11617}#)
- (cons (#{chi\ 11236}#
- #{i\ 11639}#
- #{r*\ 11614}#
- #{w*\ 11615}#
- #{mod\
11536}#)
- #{inits\
11618}#)))))))
- #{tmp\ 11633}#)
+ #{id\
1153}#)
+ #{v\
1157}#)
+ #{out\ 1132}#)
+ (cons (#{chi\ 751}#
+ #{i\ 1154}#
+ #{r*\ 1129}#
+ #{w*\ 1130}#
+ #{mod\ 1051}#)
+ #{inits\
1133}#)))))))
+ #{tmp\ 1148}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 11632}#)))
+ #{tmp\ 1147}#)))
($sc-dispatch
- #{tmp\ 11632}#
+ #{tmp\ 1147}#
'(any any any))))
- (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}#))
+ (car #{kw\ 1126}#))
+ (#{expand-body\ 1068}#
+ #{req\ 1123}#
+ #{opt\ 1124}#
+ #{rest\ 1125}#
+ (if (let ((#{t\ 1167}# #{aok\ 1131}#))
+ (if #{t\ 1167}#
+ #{t\ 1167}#
+ (pair? #{out\ 1132}#)))
+ (cons #{aok\ 1131}# (reverse #{out\ 1132}#))
#f)
- #{body\ 11612}#
- (reverse #{vars\ 11613}#)
- #{r*\ 11614}#
- #{w*\ 11615}#
- (reverse #{inits\ 11618}#)
+ #{body\ 1127}#
+ (reverse #{vars\ 1128}#)
+ #{r*\ 1129}#
+ #{w*\ 1130}#
+ (reverse #{inits\ 1133}#)
'()))))
- (#{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}#
+ (#{expand-opt\ 1064}#
+ (lambda (#{req\ 1169}#
+ #{opt\ 1170}#
+ #{rest\ 1171}#
+ #{kw\ 1172}#
+ #{body\ 1173}#
+ #{vars\ 1174}#
+ #{r*\ 1175}#
+ #{w*\ 1176}#
+ #{out\ 1177}#
+ #{inits\ 1178}#)
+ (if (pair? #{opt\ 1170}#)
+ ((lambda (#{tmp\ 1191}#)
+ ((lambda (#{tmp\ 1192}#)
+ (if #{tmp\ 1192}#
+ (apply (lambda (#{id\ 1195}# #{i\ 1196}#)
+ (let ((#{v\ 1199}#
+ (#{gen-var\ 779}#
+ #{id\ 1195}#)))
+ (let ((#{l\ 1201}#
+ (#{gen-labels\ 684}#
+ (list #{v\
1199}#))))
+ (let ((#{r**\ 1203}#
+ (#{extend-var-env\
656}#
+ #{l\ 1201}#
+ (list #{v\ 1199}#)
+ #{r*\ 1175}#)))
+ (let ((#{w**\ 1205}#
+
(#{make-binding-wrap\ 713}#
+ (list #{id\
1195}#)
+ #{l\ 1201}#
+ #{w*\ 1176}#)))
+ (#{expand-opt\ 1064}#
+ #{req\ 1169}#
+ (cdr #{opt\ 1170}#)
+ #{rest\ 1171}#
+ #{kw\ 1172}#
+ #{body\ 1173}#
+ (cons #{v\ 1199}#
+ #{vars\ 1174}#)
+ #{r**\ 1203}#
+ #{w**\ 1205}#
(cons (syntax->datum
- #{id\ 11680}#)
- #{out\ 11662}#)
- (cons (#{chi\ 11236}#
- #{i\ 11681}#
- #{r*\ 11660}#
- #{w*\ 11661}#
- #{mod\
11536}#)
- #{inits\
11663}#)))))))
- #{tmp\ 11677}#)
+ #{id\ 1195}#)
+ #{out\ 1177}#)
+ (cons (#{chi\ 751}#
+ #{i\ 1196}#
+ #{r*\ 1175}#
+ #{w*\ 1176}#
+ #{mod\ 1051}#)
+ #{inits\
1178}#)))))))
+ #{tmp\ 1192}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 11676}#)))
+ #{tmp\ 1191}#)))
($sc-dispatch
- #{tmp\ 11676}#
+ #{tmp\ 1191}#
'(any any))))
- (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}#)
+ (car #{opt\ 1170}#))
+ (if #{rest\ 1171}#
+ (let ((#{v\ 1210}#
+ (#{gen-var\ 779}# #{rest\ 1171}#)))
+ (let ((#{l\ 1212}#
+ (#{gen-labels\ 684}#
+ (list #{v\ 1210}#))))
+ (let ((#{r*\ 1214}#
+ (#{extend-var-env\ 656}#
+ #{l\ 1212}#
+ (list #{v\ 1210}#)
+ #{r*\ 1175}#)))
+ (let ((#{w*\ 1216}#
+ (#{make-binding-wrap\ 713}#
+ (list #{rest\ 1171}#)
+ #{l\ 1212}#
+ #{w*\ 1176}#)))
+ (#{expand-kw\ 1066}#
+ #{req\ 1169}#
+ (if (pair? #{out\ 1177}#)
+ (reverse #{out\ 1177}#)
#f)
- (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}#)
+ (syntax->datum #{rest\ 1171}#)
+ (if (pair? #{kw\ 1172}#)
+ (cdr #{kw\ 1172}#)
+ #{kw\ 1172}#)
+ #{body\ 1173}#
+ (cons #{v\ 1210}# #{vars\ 1174}#)
+ #{r*\ 1214}#
+ #{w*\ 1216}#
+ (if (pair? #{kw\ 1172}#)
+ (car #{kw\ 1172}#)
#f)
'()
- #{inits\ 11663}#)))))
- (#{expand-kw\ 11551}#
- #{req\ 11654}#
- (if (pair? #{out\ 11662}#)
- (reverse #{out\ 11662}#)
+ #{inits\ 1178}#)))))
+ (#{expand-kw\ 1066}#
+ #{req\ 1169}#
+ (if (pair? #{out\ 1177}#)
+ (reverse #{out\ 1177}#)
#f)
#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}#)
+ (if (pair? #{kw\ 1172}#)
+ (cdr #{kw\ 1172}#)
+ #{kw\ 1172}#)
+ #{body\ 1173}#
+ #{vars\ 1174}#
+ #{r*\ 1175}#
+ #{w*\ 1176}#
+ (if (pair? #{kw\ 1172}#)
+ (car #{kw\ 1172}#)
#f)
'()
- #{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}#
+ #{inits\ 1178}#)))))
+ (#{expand-req\ 1062}#
+ (lambda (#{req\ 1218}#
+ #{opt\ 1219}#
+ #{rest\ 1220}#
+ #{kw\ 1221}#
+ #{body\ 1222}#)
+ (let ((#{vars\ 1230}#
+ (map #{gen-var\ 779}# #{req\ 1218}#))
+ (#{labels\ 1231}#
+ (#{gen-labels\ 684}# #{req\ 1218}#)))
+ (let ((#{r*\ 1234}#
+ (#{extend-var-env\ 656}#
+ #{labels\ 1231}#
+ #{vars\ 1230}#
+ #{r\ 1048}#))
+ (#{w*\ 1235}#
+ (#{make-binding-wrap\ 713}#
+ #{req\ 1218}#
+ #{labels\ 1231}#
+ #{w\ 1049}#)))
+ (#{expand-opt\ 1064}#
+ (map syntax->datum #{req\ 1218}#)
+ #{opt\ 1219}#
+ #{rest\ 1220}#
+ #{kw\ 1221}#
+ #{body\ 1222}#
+ (reverse #{vars\ 1230}#)
+ #{r*\ 1234}#
+ #{w*\ 1235}#
'()
'()))))))
- ((lambda (#{tmp\ 11721}#)
- ((lambda (#{tmp\ 11722}#)
- (if #{tmp\ 11722}#
+ ((lambda (#{tmp\ 1236}#)
+ ((lambda (#{tmp\ 1237}#)
+ (if #{tmp\ 1237}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 11722}#)
- ((lambda (#{tmp\ 11723}#)
- (if #{tmp\ 11723}#
- (apply (lambda (#{args\ 11730}#
- #{e1\ 11731}#
- #{e2\ 11732}#
- #{args*\ 11733}#
- #{e1*\ 11734}#
- #{e2*\ 11735}#)
+ #{tmp\ 1237}#)
+ ((lambda (#{tmp\ 1238}#)
+ (if #{tmp\ 1238}#
+ (apply (lambda (#{args\ 1245}#
+ #{e1\ 1246}#
+ #{e2\ 1247}#
+ #{args*\ 1248}#
+ #{e1*\ 1249}#
+ #{e2*\ 1250}#)
(call-with-values
(lambda ()
- (#{get-formals\ 11537}#
- #{args\ 11730}#))
- (lambda (#{req\ 11736}#
- #{opt\ 11737}#
- #{rest\ 11738}#
- #{kw\ 11739}#)
+ (#{get-formals\ 1052}#
+ #{args\ 1245}#))
+ (lambda (#{req\ 1251}#
+ #{opt\ 1252}#
+ #{rest\ 1253}#
+ #{kw\ 1254}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{expand-req\ 1062}#
+ #{req\ 1251}#
+ #{opt\ 1252}#
+ #{rest\ 1253}#
+ #{kw\ 1254}#
+ (cons #{e1\ 1246}#
+ #{e2\ 1247}#)))
+ (lambda (#{meta\ 1260}#
+ #{req\ 1261}#
+ #{opt\ 1262}#
+ #{rest\ 1263}#
+ #{kw\ 1264}#
+ #{inits\ 1265}#
+ #{vars\ 1266}#
+ #{body\ 1267}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{chi-lambda-case\ 775}#
+ #{e\ 1047}#
+ #{r\ 1048}#
+ #{w\ 1049}#
+ #{s\ 1050}#
+ #{mod\ 1051}#
+ #{get-formals\ 1052}#
+ (map (lambda (#{tmp\
1278}#
+ #{tmp\
1277}#
+ #{tmp\
1276}#)
+ (cons #{tmp\ 1276}#
+ (cons #{tmp\
1277}#
+ #{tmp\
1278}#)))
+ #{e2*\ 1250}#
+ #{e1*\ 1249}#
+ #{args*\ 1248}#)))
+ (lambda (#{meta*\ 1280}#
+ #{else*\ 1281}#)
(values
(append
- #{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}#)
+ #{meta\ 1260}#
+ #{meta*\ 1280}#)
+ (#{build-lambda-case\
612}#
+ #{s\ 1050}#
+ #{req\ 1261}#
+ #{opt\ 1262}#
+ #{rest\ 1263}#
+ #{kw\ 1264}#
+ #{inits\ 1265}#
+ #{vars\ 1266}#
+ #{body\ 1267}#
+ #{else*\ 1281}#)))))))))
+ #{tmp\ 1238}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 11721}#)))
+ #{tmp\ 1236}#)))
($sc-dispatch
- #{tmp\ 11721}#
+ #{tmp\ 1236}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($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}#
+ ($sc-dispatch #{tmp\ 1236}# (quote ()))))
+ #{clauses\ 1053}#))))
+ (#{lambda*-formals\ 773}#
+ (lambda (#{orig-args\ 1284}#)
+ (letrec ((#{check\ 1295}#
+ (lambda (#{req\ 1296}#
+ #{opt\ 1297}#
+ #{rest\ 1298}#
+ #{kw\ 1299}#)
+ (if (#{distinct-bound-ids?\ 731}#
(append
- #{req\ 11781}#
- (map car #{opt\ 11782}#)
- (if #{rest\ 11783}#
- (list #{rest\ 11783}#)
+ #{req\ 1296}#
+ (map car #{opt\ 1297}#)
+ (if #{rest\ 1298}#
+ (list #{rest\ 1298}#)
'())
- (if (pair? #{kw\ 11784}#)
- (map cadr (cdr #{kw\ 11784}#))
+ (if (pair? #{kw\ 1299}#)
+ (map cadr (cdr #{kw\ 1299}#))
'())))
(values
- #{req\ 11781}#
- #{opt\ 11782}#
- #{rest\ 11783}#
- #{kw\ 11784}#)
+ #{req\ 1296}#
+ #{opt\ 1297}#
+ #{rest\ 1298}#
+ #{kw\ 1299}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{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}#)
+ #{orig-args\ 1284}#))))
+ (#{rest\ 1293}#
+ (lambda (#{args\ 1307}#
+ #{req\ 1308}#
+ #{opt\ 1309}#
+ #{kw\ 1310}#)
+ ((lambda (#{tmp\ 1315}#)
+ ((lambda (#{tmp\ 1316}#)
+ (if (if #{tmp\ 1316}#
+ (apply (lambda (#{r\ 1318}#)
+ (#{id?\ 666}# #{r\ 1318}#))
+ #{tmp\ 1316}#)
#f)
- (apply (lambda (#{r\ 11805}#)
- (#{check\ 11780}#
- #{req\ 11793}#
- #{opt\ 11794}#
- #{r\ 11805}#
- #{kw\ 11795}#))
- #{tmp\ 11801}#)
- ((lambda (#{else\ 11807}#)
+ (apply (lambda (#{r\ 1320}#)
+ (#{check\ 1295}#
+ #{req\ 1308}#
+ #{opt\ 1309}#
+ #{r\ 1320}#
+ #{kw\ 1310}#))
+ #{tmp\ 1316}#)
+ ((lambda (#{else\ 1322}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{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}#
+ #{orig-args\ 1284}#
+ #{args\ 1307}#))
+ #{tmp\ 1315}#)))
+ (list #{tmp\ 1315}#)))
+ #{args\ 1307}#)))
+ (#{key\ 1291}#
+ (lambda (#{args\ 1323}#
+ #{req\ 1324}#
+ #{opt\ 1325}#
+ #{rkey\ 1326}#)
+ ((lambda (#{tmp\ 1331}#)
+ ((lambda (#{tmp\ 1332}#)
+ (if #{tmp\ 1332}#
(apply (lambda ()
- (#{check\ 11780}#
- #{req\ 11809}#
- #{opt\ 11810}#
+ (#{check\ 1295}#
+ #{req\ 1324}#
+ #{opt\ 1325}#
#f
(cons #f
(reverse
- #{rkey\ 11811}#))))
- #{tmp\ 11817}#)
- ((lambda (#{tmp\ 11818}#)
- (if (if #{tmp\ 11818}#
- (apply (lambda (#{a\ 11821}#
- #{b\ 11822}#)
- (#{id?\ 11151}#
- #{a\ 11821}#))
- #{tmp\ 11818}#)
+ #{rkey\ 1326}#))))
+ #{tmp\ 1332}#)
+ ((lambda (#{tmp\ 1333}#)
+ (if (if #{tmp\ 1333}#
+ (apply (lambda (#{a\ 1336}#
+ #{b\ 1337}#)
+ (#{id?\ 666}#
+ #{a\ 1336}#))
+ #{tmp\ 1333}#)
#f)
- (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}#
+ (apply (lambda (#{a\ 1340}#
+ #{b\ 1341}#)
+ ((lambda (#{tmp\ 1343}#)
+ ((lambda (#{k\ 1345}#)
+ (#{key\ 1291}#
+ #{b\ 1341}#
+ #{req\ 1324}#
+ #{opt\ 1325}#
+ (cons (cons #{k\
1345}#
+ (cons
#{a\ 1340}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
-
#("i11829"))
+
#("i1344"))
#(ribcage
#(a
b)
#((top)
(top))
-
#("i11823"
-
"i11824"))
+
#("i1338"
+
"i1339"))
#(ribcage
()
()
@@ -665,10 +651,10 @@
(top)
(top)
(top))
-
#("i11812"
-
"i11813"
-
"i11814"
-
"i11815"))
+
#("i1327"
+
"i1328"
+
"i1329"
+
"i1330"))
#(ribcage
(check rest
key
@@ -679,15 +665,15 @@
(top)
(top)
(top))
-
("i11779"
-
"i11777"
-
"i11775"
-
"i11773"
-
"i11771"))
+
("i1294"
+
"i1292"
+
"i1290"
+
"i1288"
+
"i1286"))
#(ribcage
#(orig-args)
#((top))
-
#("i11770"))
+
#("i1285"))
#(ribcage
(lambda-var-list
gen-var
@@ -923,351 +909,349 @@
(top)
(top)
(top))
-
("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"))
+
("i780"
+
"i778"
+
"i776"
+
"i774"
+
"i772"
+
"i770"
+
"i768"
+
"i766"
+
"i764"
+
"i762"
+
"i760"
+
"i758"
+
"i756"
+
"i754"
+
"i752"
+
"i750"
+
"i748"
+
"i746"
+
"i744"
+
"i742"
+
"i740"
+
"i738"
+
"i736"
+
"i734"
+
"i732"
+
"i730"
+
"i728"
+
"i726"
+
"i724"
+
"i722"
+
"i720"
+
"i718"
+
"i716"
+
"i714"
+
"i712"
+
"i710"
+
"i709"
+
"i708"
+
"i706"
+
"i705"
+
"i704"
+
"i703"
+
"i702"
+
"i700"
+
"i698"
+
"i696"
+
"i694"
+
"i692"
+
"i690"
+
"i688"
+
"i686"
+
"i683"
+
"i681"
+
"i680"
+
"i679"
+
"i678"
+
"i677"
+
"i676"
+
"i674"
+
"i672"
+
"i670"
+
"i668"
+
"i667"
+
"i665"
+
"i663"
+
"i661"
+
"i659"
+
"i657"
+
"i655"
+
"i653"
+
"i652"
+
"i650"
+
"i648"
+
"i647"
+
"i646"
+
"i644"
+
"i643"
+
"i641"
+
"i639"
+
"i637"
+
"i635"
+
"i633"
+
"i631"
+
"i629"
+
"i627"
+
"i625"
+
"i623"
+
"i621"
+
"i619"
+
"i617"
+
"i615"
+
"i613"
+
"i611"
+
"i609"
+
"i607"
+
"i605"
+
"i603"
+
"i601"
+
"i599"
+
"i597"
+
"i595"
+
"i593"
+
"i591"
+
"i589"
+
"i587"
+
"i585"
+
"i583"
+
"i581"
+
"i579"
+
"i578"
+
"i576"
+
"i574"
+
"i572"
+
"i570"
+
"i568"
+
"i566"
+
"i564"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i10952"
-
"i10950")))
+
("i467"
+
"i465")))
(hygiene
guile)))))
- #{rkey\
11811}#)))
- #{tmp\ 11828}#))
+ #{rkey\
1326}#)))
+ #{tmp\ 1343}#))
(symbol->keyword
(syntax->datum
- #{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}#)
+ #{a\ 1340}#))))
+ #{tmp\ 1333}#)
+ ((lambda (#{tmp\ 1346}#)
+ (if (if #{tmp\ 1346}#
+ (apply (lambda (#{a\ 1350}#
+ #{init\
1351}#
+ #{b\ 1352}#)
+ (#{id?\ 666}#
+ #{a\ 1350}#))
+ #{tmp\ 1346}#)
#f)
- (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}#))
+ (apply (lambda (#{a\ 1356}#
+ #{init\ 1357}#
+ #{b\ 1358}#)
+ ((lambda (#{tmp\ 1360}#)
+ ((lambda (#{k\
1362}#)
+ (#{key\ 1291}#
+ #{b\ 1358}#
+ #{req\ 1324}#
+ #{opt\ 1325}#
+ (cons (list
#{k\ 1362}#
+
#{a\ 1356}#
+
#{init\ 1357}#)
+ #{rkey\
1326}#)))
+ #{tmp\ 1360}#))
(symbol->keyword
(syntax->datum
- #{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}#)
+ #{a\ 1356}#))))
+ #{tmp\ 1346}#)
+ ((lambda (#{tmp\ 1363}#)
+ (if (if #{tmp\ 1363}#
+ (apply (lambda (#{a\
1368}#
+ #{init\
1369}#
+ #{k\
1370}#
+ #{b\
1371}#)
+ (if (#{id?\
666}#
+ #{a\
1368}#)
(keyword?
(syntax->datum
- #{k\
11855}#))
+ #{k\
1370}#))
#f))
- #{tmp\ 11848}#)
+ #{tmp\ 1363}#)
#f)
- (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}#)
+ (apply (lambda (#{a\ 1378}#
+ #{init\
1379}#
+ #{k\ 1380}#
+ #{b\ 1381}#)
+ (#{key\ 1291}#
+ #{b\ 1381}#
+ #{req\ 1324}#
+ #{opt\ 1325}#
+ (cons (list #{k\
1380}#
+ #{a\
1378}#
+
#{init\ 1379}#)
+ #{rkey\
1326}#)))
+ #{tmp\ 1363}#)
+ ((lambda (#{tmp\ 1382}#)
+ (if (if #{tmp\ 1382}#
+ (apply (lambda
(#{aok\ 1384}#)
(eq?
(syntax->datum
-
#{aok\ 11869}#)
+
#{aok\ 1384}#)
#:allow-other-keys))
- #{tmp\
11867}#)
+ #{tmp\
1382}#)
#f)
- (apply (lambda (#{aok\
11871}#)
- (#{check\
11780}#
- #{req\
11809}#
- #{opt\
11810}#
+ (apply (lambda (#{aok\
1386}#)
+ (#{check\
1295}#
+ #{req\
1324}#
+ #{opt\
1325}#
#f
(cons #t
(reverse
-
#{rkey\ 11811}#))))
- #{tmp\ 11867}#)
- ((lambda (#{tmp\
11872}#)
- (if (if #{tmp\
11872}#
- (apply
(lambda (#{aok\ 11876}#
-
#{a\ 11877}#
-
#{b\ 11878}#)
+
#{rkey\ 1326}#))))
+ #{tmp\ 1382}#)
+ ((lambda (#{tmp\
1387}#)
+ (if (if #{tmp\
1387}#
+ (apply
(lambda (#{aok\ 1391}#
+
#{a\ 1392}#
+
#{b\ 1393}#)
(if
(eq? (syntax->datum
-
#{aok\ 11876}#)
+
#{aok\ 1391}#)
#:allow-other-keys)
(eq? (syntax->datum
-
#{a\ 11877}#)
+
#{a\ 1392}#)
#:rest)
#f))
- #{tmp\
11872}#)
+ #{tmp\
1387}#)
#f)
- (apply (lambda
(#{aok\ 11884}#
-
#{a\ 11885}#
-
#{b\ 11886}#)
- (#{rest\
11778}#
- #{b\
11886}#
- #{req\
11809}#
- #{opt\
11810}#
+ (apply (lambda
(#{aok\ 1399}#
+
#{a\ 1400}#
+
#{b\ 1401}#)
+ (#{rest\
1293}#
+ #{b\
1401}#
+ #{req\
1324}#
+ #{opt\
1325}#
(cons
#t
(reverse
-
#{rkey\ 11811}#))))
- #{tmp\
11872}#)
- ((lambda (#{tmp\
11887}#)
- (if (if #{tmp\
11887}#
- (apply
(lambda (#{aok\ 11890}#
-
#{r\ 11891}#)
+
#{rkey\ 1326}#))))
+ #{tmp\
1387}#)
+ ((lambda (#{tmp\
1402}#)
+ (if (if #{tmp\
1402}#
+ (apply
(lambda (#{aok\ 1405}#
+
#{r\ 1406}#)
(if (eq? (syntax->datum
-
#{aok\ 11890}#)
+
#{aok\ 1405}#)
#:allow-other-keys)
-
(#{id?\ 11151}#
-
#{r\ 11891}#)
+
(#{id?\ 666}#
+
#{r\ 1406}#)
#f))
-
#{tmp\ 11887}#)
+
#{tmp\ 1402}#)
#f)
- (apply
(lambda (#{aok\ 11896}#
-
#{r\ 11897}#)
-
(#{rest\ 11778}#
-
#{r\ 11897}#
-
#{req\ 11809}#
-
#{opt\ 11810}#
+ (apply
(lambda (#{aok\ 1411}#
+
#{r\ 1412}#)
+
(#{rest\ 1293}#
+
#{r\ 1412}#
+
#{req\ 1324}#
+
#{opt\ 1325}#
(cons #t
(reverse
-
#{rkey\ 11811}#))))
-
#{tmp\ 11887}#)
- ((lambda
(#{tmp\ 11898}#)
- (if (if
#{tmp\ 11898}#
-
(apply (lambda (#{a\ 11901}#
-
#{b\ 11902}#)
+
#{rkey\ 1326}#))))
+
#{tmp\ 1402}#)
+ ((lambda
(#{tmp\ 1413}#)
+ (if (if
#{tmp\ 1413}#
+
(apply (lambda (#{a\ 1416}#
+
#{b\ 1417}#)
(eq? (syntax->datum
-
#{a\ 11901}#)
+
#{a\ 1416}#)
#:rest))
-
#{tmp\ 11898}#)
+
#{tmp\ 1413}#)
#f)
- (apply
(lambda (#{a\ 11905}#
-
#{b\ 11906}#)
-
(#{rest\ 11778}#
-
#{b\ 11906}#
-
#{req\ 11809}#
-
#{opt\ 11810}#
+ (apply
(lambda (#{a\ 1420}#
+
#{b\ 1421}#)
+
(#{rest\ 1293}#
+
#{b\ 1421}#
+
#{req\ 1324}#
+
#{opt\ 1325}#
(cons #f
(reverse
-
#{rkey\ 11811}#))))
-
#{tmp\ 11898}#)
-
((lambda (#{tmp\ 11907}#)
- (if
(if #{tmp\ 11907}#
-
(apply (lambda (#{r\ 11909}#)
-
(#{id?\ 11151}#
-
#{r\ 11909}#))
-
#{tmp\ 11907}#)
+
#{rkey\ 1326}#))))
+
#{tmp\ 1413}#)
+
((lambda (#{tmp\ 1422}#)
+ (if
(if #{tmp\ 1422}#
+
(apply (lambda (#{r\ 1424}#)
+
(#{id?\ 666}#
+
#{r\ 1424}#))
+
#{tmp\ 1422}#)
#f)
-
(apply (lambda (#{r\ 11911}#)
-
(#{rest\ 11778}#
-
#{r\ 11911}#
-
#{req\ 11809}#
-
#{opt\ 11810}#
+
(apply (lambda (#{r\ 1426}#)
+
(#{rest\ 1293}#
+
#{r\ 1426}#
+
#{req\ 1324}#
+
#{opt\ 1325}#
(cons #f
(reverse
-
#{rkey\ 11811}#))))
-
#{tmp\ 11907}#)
-
((lambda (#{else\ 11913}#)
+
#{rkey\ 1326}#))))
+
#{tmp\ 1422}#)
+
((lambda (#{else\ 1428}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
-
#{orig-args\ 11769}#
-
#{args\ 11808}#))
-
#{tmp\ 11816}#)))
- (list
#{tmp\ 11816}#))))
+
#{orig-args\ 1284}#
+
#{args\ 1323}#))
+
#{tmp\ 1331}#)))
+ (list
#{tmp\ 1331}#))))
($sc-dispatch
- #{tmp\
11816}#
+ #{tmp\
1331}#
'(any
any)))))
($sc-dispatch
- #{tmp\ 11816}#
+ #{tmp\ 1331}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 11816}#
+ #{tmp\ 1331}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 11816}#
+ #{tmp\ 1331}#
'(any)))))
($sc-dispatch
- #{tmp\ 11816}#
+ #{tmp\ 1331}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 11816}#
+ #{tmp\ 1331}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 11816}#
+ #{tmp\ 1331}#
'(any . any)))))
- ($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}#
+ ($sc-dispatch #{tmp\ 1331}# (quote ()))))
+ #{args\ 1323}#)))
+ (#{opt\ 1289}#
+ (lambda (#{args\ 1429}# #{req\ 1430}# #{ropt\ 1431}#)
+ ((lambda (#{tmp\ 1435}#)
+ ((lambda (#{tmp\ 1436}#)
+ (if #{tmp\ 1436}#
(apply (lambda ()
- (#{check\ 11780}#
- #{req\ 11915}#
- (reverse #{ropt\ 11916}#)
+ (#{check\ 1295}#
+ #{req\ 1430}#
+ (reverse #{ropt\ 1431}#)
#f
'()))
- #{tmp\ 11921}#)
- ((lambda (#{tmp\ 11922}#)
- (if (if #{tmp\ 11922}#
- (apply (lambda (#{a\ 11925}#
- #{b\ 11926}#)
- (#{id?\ 11151}#
- #{a\ 11925}#))
- #{tmp\ 11922}#)
+ #{tmp\ 1436}#)
+ ((lambda (#{tmp\ 1437}#)
+ (if (if #{tmp\ 1437}#
+ (apply (lambda (#{a\ 1440}#
+ #{b\ 1441}#)
+ (#{id?\ 666}#
+ #{a\ 1440}#))
+ #{tmp\ 1437}#)
#f)
- (apply (lambda (#{a\ 11929}#
- #{b\ 11930}#)
- (#{opt\ 11774}#
- #{b\ 11930}#
- #{req\ 11915}#
- (cons (cons #{a\ 11929}#
+ (apply (lambda (#{a\ 1444}#
+ #{b\ 1445}#)
+ (#{opt\ 1289}#
+ #{b\ 1445}#
+ #{req\ 1430}#
+ (cons (cons #{a\ 1444}#
'(#(syntax-object
#f
((top)
@@ -1275,8 +1259,8 @@
#(a b)
#((top)
(top))
-
#("i11927"
-
"i11928"))
+
#("i1442"
+
"i1443"))
#(ribcage
()
()
@@ -1288,9 +1272,9 @@
#((top)
(top)
(top))
-
#("i11917"
-
"i11918"
-
"i11919"))
+
#("i1432"
+
"i1433"
+
"i1434"))
#(ribcage
(check
rest
key
@@ -1301,15 +1285,15 @@
(top)
(top)
(top))
-
("i11779"
-
"i11777"
-
"i11775"
-
"i11773"
-
"i11771"))
+ ("i1294"
+ "i1292"
+ "i1290"
+ "i1288"
+
"i1286"))
#(ribcage
#(orig-args)
#((top))
-
#("i11770"))
+
#("i1285"))
#(ribcage
(lambda-var-list
gen-var
@@ -1545,462 +1529,462 @@
(top)
(top)
(top))
-
("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+
"i564"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i10952"
-
"i10950")))
+ ("i467"
+
"i465")))
(hygiene
guile))))
- #{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}#)
+ #{ropt\ 1431}#)))
+ #{tmp\ 1437}#)
+ ((lambda (#{tmp\ 1446}#)
+ (if (if #{tmp\ 1446}#
+ (apply (lambda (#{a\ 1450}#
+ #{init\
1451}#
+ #{b\ 1452}#)
+ (#{id?\ 666}#
+ #{a\ 1450}#))
+ #{tmp\ 1446}#)
#f)
- (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}#)
+ (apply (lambda (#{a\ 1456}#
+ #{init\ 1457}#
+ #{b\ 1458}#)
+ (#{opt\ 1289}#
+ #{b\ 1458}#
+ #{req\ 1430}#
+ (cons (list #{a\
1456}#
+ #{init\
1457}#)
+ #{ropt\
1431}#)))
+ #{tmp\ 1446}#)
+ ((lambda (#{tmp\ 1459}#)
+ (if (if #{tmp\ 1459}#
+ (apply (lambda (#{a\
1462}#
+ #{b\
1463}#)
(eq?
(syntax->datum
- #{a\
11947}#)
+ #{a\
1462}#)
#:key))
- #{tmp\ 11944}#)
+ #{tmp\ 1459}#)
#f)
- (apply (lambda (#{a\ 11951}#
- #{b\
11952}#)
- (#{key\ 11776}#
- #{b\ 11952}#
- #{req\ 11915}#
+ (apply (lambda (#{a\ 1466}#
+ #{b\ 1467}#)
+ (#{key\ 1291}#
+ #{b\ 1467}#
+ #{req\ 1430}#
(reverse
- #{ropt\
11916}#)
+ #{ropt\ 1431}#)
'()))
- #{tmp\ 11944}#)
- ((lambda (#{tmp\ 11953}#)
- (if (if #{tmp\ 11953}#
- (apply (lambda
(#{a\ 11956}#
-
#{b\ 11957}#)
+ #{tmp\ 1459}#)
+ ((lambda (#{tmp\ 1468}#)
+ (if (if #{tmp\ 1468}#
+ (apply (lambda
(#{a\ 1471}#
+
#{b\ 1472}#)
(eq?
(syntax->datum
-
#{a\ 11956}#)
+
#{a\ 1471}#)
#:rest))
- #{tmp\
11953}#)
+ #{tmp\
1468}#)
#f)
- (apply (lambda (#{a\
11960}#
- #{b\
11961}#)
- (#{rest\
11778}#
- #{b\ 11961}#
- #{req\
11915}#
+ (apply (lambda (#{a\
1475}#
+ #{b\
1476}#)
+ (#{rest\
1293}#
+ #{b\ 1476}#
+ #{req\
1430}#
(reverse
- #{ropt\
11916}#)
+ #{ropt\
1431}#)
'()))
- #{tmp\ 11953}#)
- ((lambda (#{tmp\
11962}#)
- (if (if #{tmp\
11962}#
- (apply
(lambda (#{r\ 11964}#)
-
(#{id?\ 11151}#
-
#{r\ 11964}#))
- #{tmp\
11962}#)
+ #{tmp\ 1468}#)
+ ((lambda (#{tmp\
1477}#)
+ (if (if #{tmp\
1477}#
+ (apply
(lambda (#{r\ 1479}#)
+
(#{id?\ 666}#
+
#{r\ 1479}#))
+ #{tmp\
1477}#)
#f)
- (apply (lambda
(#{r\ 11966}#)
- (#{rest\
11778}#
- #{r\
11966}#
- #{req\
11915}#
+ (apply (lambda
(#{r\ 1481}#)
+ (#{rest\
1293}#
+ #{r\
1481}#
+ #{req\
1430}#
(reverse
-
#{ropt\ 11916}#)
+
#{ropt\ 1431}#)
'()))
- #{tmp\
11962}#)
- ((lambda (#{else\
11968}#)
+ #{tmp\
1477}#)
+ ((lambda (#{else\
1483}#)
(syntax-violation
'lambda*
"invalid
optional argument list"
- #{orig-args\
11769}#
- #{args\
11914}#))
- #{tmp\ 11920}#)))
- (list #{tmp\
11920}#))))
+ #{orig-args\
1284}#
+ #{args\
1429}#))
+ #{tmp\ 1435}#)))
+ (list #{tmp\
1435}#))))
($sc-dispatch
- #{tmp\ 11920}#
+ #{tmp\ 1435}#
'(any any)))))
($sc-dispatch
- #{tmp\ 11920}#
+ #{tmp\ 1435}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 11920}#
+ #{tmp\ 1435}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 11920}#
+ #{tmp\ 1435}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 11920}# (quote ()))))
- #{args\ 11914}#)))
- (#{req\ 11772}#
- (lambda (#{args\ 11969}# #{rreq\ 11970}#)
- ((lambda (#{tmp\ 11973}#)
- ((lambda (#{tmp\ 11974}#)
- (if #{tmp\ 11974}#
+ ($sc-dispatch #{tmp\ 1435}# (quote ()))))
+ #{args\ 1429}#)))
+ (#{req\ 1287}#
+ (lambda (#{args\ 1484}# #{rreq\ 1485}#)
+ ((lambda (#{tmp\ 1488}#)
+ ((lambda (#{tmp\ 1489}#)
+ (if #{tmp\ 1489}#
(apply (lambda ()
- (#{check\ 11780}#
- (reverse #{rreq\ 11970}#)
+ (#{check\ 1295}#
+ (reverse #{rreq\ 1485}#)
'()
#f
'()))
- #{tmp\ 11974}#)
- ((lambda (#{tmp\ 11975}#)
- (if (if #{tmp\ 11975}#
- (apply (lambda (#{a\ 11978}#
- #{b\ 11979}#)
- (#{id?\ 11151}#
- #{a\ 11978}#))
- #{tmp\ 11975}#)
+ #{tmp\ 1489}#)
+ ((lambda (#{tmp\ 1490}#)
+ (if (if #{tmp\ 1490}#
+ (apply (lambda (#{a\ 1493}#
+ #{b\ 1494}#)
+ (#{id?\ 666}#
+ #{a\ 1493}#))
+ #{tmp\ 1490}#)
#f)
- (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}#)
+ (apply (lambda (#{a\ 1497}#
+ #{b\ 1498}#)
+ (#{req\ 1287}#
+ #{b\ 1498}#
+ (cons #{a\ 1497}#
+ #{rreq\ 1485}#)))
+ #{tmp\ 1490}#)
+ ((lambda (#{tmp\ 1499}#)
+ (if (if #{tmp\ 1499}#
+ (apply (lambda (#{a\ 1502}#
+ #{b\ 1503}#)
(eq? (syntax->datum
- #{a\ 11987}#)
+ #{a\ 1502}#)
#:optional))
- #{tmp\ 11984}#)
+ #{tmp\ 1499}#)
#f)
- (apply (lambda (#{a\ 11991}#
- #{b\ 11992}#)
- (#{opt\ 11774}#
- #{b\ 11992}#
+ (apply (lambda (#{a\ 1506}#
+ #{b\ 1507}#)
+ (#{opt\ 1289}#
+ #{b\ 1507}#
(reverse
- #{rreq\ 11970}#)
+ #{rreq\ 1485}#)
'()))
- #{tmp\ 11984}#)
- ((lambda (#{tmp\ 11993}#)
- (if (if #{tmp\ 11993}#
- (apply (lambda (#{a\
11996}#
- #{b\
11997}#)
+ #{tmp\ 1499}#)
+ ((lambda (#{tmp\ 1508}#)
+ (if (if #{tmp\ 1508}#
+ (apply (lambda (#{a\
1511}#
+ #{b\
1512}#)
(eq?
(syntax->datum
- #{a\
11996}#)
+ #{a\
1511}#)
#:key))
- #{tmp\ 11993}#)
+ #{tmp\ 1508}#)
#f)
- (apply (lambda (#{a\ 12000}#
- #{b\
12001}#)
- (#{key\ 11776}#
- #{b\ 12001}#
+ (apply (lambda (#{a\ 1515}#
+ #{b\ 1516}#)
+ (#{key\ 1291}#
+ #{b\ 1516}#
(reverse
- #{rreq\
11970}#)
+ #{rreq\ 1485}#)
'()
'()))
- #{tmp\ 11993}#)
- ((lambda (#{tmp\ 12002}#)
- (if (if #{tmp\ 12002}#
- (apply (lambda
(#{a\ 12005}#
-
#{b\ 12006}#)
+ #{tmp\ 1508}#)
+ ((lambda (#{tmp\ 1517}#)
+ (if (if #{tmp\ 1517}#
+ (apply (lambda
(#{a\ 1520}#
+
#{b\ 1521}#)
(eq?
(syntax->datum
-
#{a\ 12005}#)
+
#{a\ 1520}#)
#:rest))
- #{tmp\
12002}#)
+ #{tmp\
1517}#)
#f)
- (apply (lambda (#{a\
12009}#
- #{b\
12010}#)
- (#{rest\
11778}#
- #{b\ 12010}#
+ (apply (lambda (#{a\
1524}#
+ #{b\
1525}#)
+ (#{rest\
1293}#
+ #{b\ 1525}#
(reverse
- #{rreq\
11970}#)
+ #{rreq\
1485}#)
'()
'()))
- #{tmp\ 12002}#)
- ((lambda (#{tmp\
12011}#)
- (if (if #{tmp\
12011}#
- (apply
(lambda (#{r\ 12013}#)
-
(#{id?\ 11151}#
-
#{r\ 12013}#))
- #{tmp\
12011}#)
+ #{tmp\ 1517}#)
+ ((lambda (#{tmp\
1526}#)
+ (if (if #{tmp\
1526}#
+ (apply
(lambda (#{r\ 1528}#)
+
(#{id?\ 666}#
+
#{r\ 1528}#))
+ #{tmp\
1526}#)
#f)
- (apply (lambda
(#{r\ 12015}#)
- (#{rest\
11778}#
- #{r\
12015}#
+ (apply (lambda
(#{r\ 1530}#)
+ (#{rest\
1293}#
+ #{r\
1530}#
(reverse
-
#{rreq\ 11970}#)
+
#{rreq\ 1485}#)
'()
'()))
- #{tmp\
12011}#)
- ((lambda (#{else\
12017}#)
+ #{tmp\
1526}#)
+ ((lambda (#{else\
1532}#)
(syntax-violation
'lambda*
"invalid
argument list"
- #{orig-args\
11769}#
- #{args\
11969}#))
- #{tmp\ 11973}#)))
- (list #{tmp\
11973}#))))
+ #{orig-args\
1284}#
+ #{args\
1484}#))
+ #{tmp\ 1488}#)))
+ (list #{tmp\
1488}#))))
($sc-dispatch
- #{tmp\ 11973}#
+ #{tmp\ 1488}#
'(any any)))))
($sc-dispatch
- #{tmp\ 11973}#
+ #{tmp\ 1488}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 11973}#
+ #{tmp\ 1488}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 11973}#
+ #{tmp\ 1488}#
'(any . any)))))
- ($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}#)
+ ($sc-dispatch #{tmp\ 1488}# (quote ()))))
+ #{args\ 1484}#))))
+ (#{req\ 1287}# #{orig-args\ 1284}# (quote ())))))
+ (#{chi-simple-lambda\ 771}#
+ (lambda (#{e\ 1533}#
+ #{r\ 1534}#
+ #{w\ 1535}#
+ #{s\ 1536}#
+ #{mod\ 1537}#
+ #{req\ 1538}#
+ #{rest\ 1539}#
+ #{meta\ 1540}#
+ #{body\ 1541}#)
+ (let ((#{ids\ 1553}#
+ (if #{rest\ 1539}#
+ (append #{req\ 1538}# (list #{rest\ 1539}#))
+ #{req\ 1538}#)))
+ (let ((#{vars\ 1555}#
+ (map #{gen-var\ 779}# #{ids\ 1553}#)))
+ (let ((#{labels\ 1557}#
+ (#{gen-labels\ 684}# #{ids\ 1553}#)))
+ (#{build-simple-lambda\ 608}#
+ #{s\ 1536}#
+ (map syntax->datum #{req\ 1538}#)
+ (if #{rest\ 1539}#
+ (syntax->datum #{rest\ 1539}#)
#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)
+ #{vars\ 1555}#
+ #{meta\ 1540}#
+ (#{chi-body\ 759}#
+ #{body\ 1541}#
+ (#{source-wrap\ 737}#
+ #{e\ 1533}#
+ #{w\ 1535}#
+ #{s\ 1536}#
+ #{mod\ 1537}#)
+ (#{extend-var-env\ 656}#
+ #{labels\ 1557}#
+ #{vars\ 1555}#
+ #{r\ 1534}#)
+ (#{make-binding-wrap\ 713}#
+ #{ids\ 1553}#
+ #{labels\ 1557}#
+ #{w\ 1535}#)
+ #{mod\ 1537}#)))))))
+ (#{lambda-formals\ 769}#
+ (lambda (#{orig-args\ 1560}#)
+ (letrec ((#{check\ 1565}#
+ (lambda (#{req\ 1566}# #{rest\ 1567}#)
+ (if (#{distinct-bound-ids?\ 731}#
+ (if #{rest\ 1567}#
+ (cons #{rest\ 1567}# #{req\ 1566}#)
+ #{req\ 1566}#))
+ (values #{req\ 1566}# #f #{rest\ 1567}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 12045}#))))
- (#{req\ 12048}#
- (lambda (#{args\ 12058}# #{rreq\ 12059}#)
- ((lambda (#{tmp\ 12062}#)
- ((lambda (#{tmp\ 12063}#)
- (if #{tmp\ 12063}#
+ #{orig-args\ 1560}#))))
+ (#{req\ 1563}#
+ (lambda (#{args\ 1573}# #{rreq\ 1574}#)
+ ((lambda (#{tmp\ 1577}#)
+ ((lambda (#{tmp\ 1578}#)
+ (if #{tmp\ 1578}#
(apply (lambda ()
- (#{check\ 12050}#
- (reverse #{rreq\ 12059}#)
+ (#{check\ 1565}#
+ (reverse #{rreq\ 1574}#)
#f))
- #{tmp\ 12063}#)
- ((lambda (#{tmp\ 12064}#)
- (if (if #{tmp\ 12064}#
- (apply (lambda (#{a\ 12067}#
- #{b\ 12068}#)
- (#{id?\ 11151}#
- #{a\ 12067}#))
- #{tmp\ 12064}#)
+ #{tmp\ 1578}#)
+ ((lambda (#{tmp\ 1579}#)
+ (if (if #{tmp\ 1579}#
+ (apply (lambda (#{a\ 1582}#
+ #{b\ 1583}#)
+ (#{id?\ 666}#
+ #{a\ 1582}#))
+ #{tmp\ 1579}#)
#f)
- (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}#)
+ (apply (lambda (#{a\ 1586}#
+ #{b\ 1587}#)
+ (#{req\ 1563}#
+ #{b\ 1587}#
+ (cons #{a\ 1586}#
+ #{rreq\ 1574}#)))
+ #{tmp\ 1579}#)
+ ((lambda (#{tmp\ 1588}#)
+ (if (if #{tmp\ 1588}#
+ (apply (lambda (#{r\ 1590}#)
+ (#{id?\ 666}#
+ #{r\ 1590}#))
+ #{tmp\ 1588}#)
#f)
- (apply (lambda (#{r\ 12077}#)
- (#{check\ 12050}#
+ (apply (lambda (#{r\ 1592}#)
+ (#{check\ 1565}#
(reverse
- #{rreq\ 12059}#)
- #{r\ 12077}#))
- #{tmp\ 12073}#)
- ((lambda (#{else\ 12079}#)
+ #{rreq\ 1574}#)
+ #{r\ 1592}#))
+ #{tmp\ 1588}#)
+ ((lambda (#{else\ 1594}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 12045}#
- #{args\ 12058}#))
- #{tmp\ 12062}#)))
- (list #{tmp\ 12062}#))))
+ #{orig-args\ 1560}#
+ #{args\ 1573}#))
+ #{tmp\ 1577}#)))
+ (list #{tmp\ 1577}#))))
($sc-dispatch
- #{tmp\ 12062}#
+ #{tmp\ 1577}#
'(any . any)))))
- ($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}#
+ ($sc-dispatch #{tmp\ 1577}# (quote ()))))
+ #{args\ 1573}#))))
+ (#{req\ 1563}# #{orig-args\ 1560}# (quote ())))))
+ (#{ellipsis?\ 767}#
+ (lambda (#{x\ 1595}#)
+ (if (#{nonsymbol-id?\ 664}# #{x\ 1595}#)
+ (#{free-id=?\ 725}#
+ #{x\ 1595}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i12081"))
+ #(ribcage #(x) #((top)) #("i1596"))
#(ribcage
(lambda-var-list
gen-var
@@ -2236,1421 +2220,1411 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i10952" "i10950")))
+ ("i467" "i465")))
(hygiene guile)))
#f)))
- (#{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)))
+ (#{chi-void\ 765}#
+ (lambda () (#{build-void\ 586}# #f)))
+ (#{eval-local-transformer\ 763}#
+ (lambda (#{expanded\ 1600}# #{mod\ 1601}#)
+ (let ((#{p\ 1605}#
+ (#{local-eval-hook\ 577}#
+ #{expanded\ 1600}#
+ #{mod\ 1601}#)))
+ (if (procedure? #{p\ 1605}#)
+ (cons #{p\ 1605}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{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}#))
+ #{p\ 1605}#)))))
+ (#{chi-local-syntax\ 761}#
+ (lambda (#{rec?\ 1606}#
+ #{e\ 1607}#
+ #{r\ 1608}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1611}#
+ #{k\ 1612}#)
+ ((lambda (#{tmp\ 1620}#)
+ ((lambda (#{tmp\ 1621}#)
+ (if #{tmp\ 1621}#
+ (apply (lambda (#{_\ 1627}#
+ #{id\ 1628}#
+ #{val\ 1629}#
+ #{e1\ 1630}#
+ #{e2\ 1631}#)
+ (let ((#{ids\ 1633}# #{id\ 1628}#))
+ (if (not (#{valid-bound-ids?\ 729}#
+ #{ids\ 1633}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{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}#)
+ #{e\ 1607}#)
+ (let ((#{labels\ 1636}#
+ (#{gen-labels\ 684}#
+ #{ids\ 1633}#)))
+ (let ((#{new-w\ 1638}#
+ (#{make-binding-wrap\ 713}#
+ #{ids\ 1633}#
+ #{labels\ 1636}#
+ #{w\ 1609}#)))
+ (#{k\ 1612}#
+ (cons #{e1\ 1630}# #{e2\ 1631}#)
+ (#{extend-env\ 654}#
+ #{labels\ 1636}#
+ (let ((#{w\ 1642}#
+ (if #{rec?\ 1606}#
+ #{new-w\ 1638}#
+ #{w\ 1609}#))
+ (#{trans-r\ 1643}#
+ (#{macros-only-env\ 658}#
+ #{r\ 1608}#)))
+ (map (lambda (#{x\ 1644}#)
(cons 'macro
-
(#{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}#)
+
(#{eval-local-transformer\ 763}#
+ (#{chi\ 751}#
+ #{x\ 1644}#
+ #{trans-r\
1643}#
+ #{w\ 1642}#
+ #{mod\ 1611}#)
+ #{mod\ 1611}#)))
+ #{val\ 1629}#))
+ #{r\ 1608}#)
+ #{new-w\ 1638}#
+ #{s\ 1610}#
+ #{mod\ 1611}#))))))
+ #{tmp\ 1621}#)
+ ((lambda (#{_\ 1649}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 11222}#
- #{e\ 12092}#
- #{w\ 12094}#
- #{s\ 12095}#
- #{mod\ 12096}#)))
- #{tmp\ 12105}#)))
+ (#{source-wrap\ 737}#
+ #{e\ 1607}#
+ #{w\ 1609}#
+ #{s\ 1610}#
+ #{mod\ 1611}#)))
+ #{tmp\ 1620}#)))
($sc-dispatch
- #{tmp\ 12105}#
+ #{tmp\ 1620}#
'(any #(each (any any)) any . each-any))))
- #{e\ 12092}#)))
- (#{chi-body\ 11244}#
- (lambda (#{body\ 12135}#
- #{outer-form\ 12136}#
- #{r\ 12137}#
- #{w\ 12138}#
- #{mod\ 12139}#)
- (let ((#{r\ 12147}#
+ #{e\ 1607}#)))
+ (#{chi-body\ 759}#
+ (lambda (#{body\ 1650}#
+ #{outer-form\ 1651}#
+ #{r\ 1652}#
+ #{w\ 1653}#
+ #{mod\ 1654}#)
+ (let ((#{r\ 1662}#
(cons '("placeholder" placeholder)
- #{r\ 12137}#)))
- (let ((#{ribcage\ 12149}#
- (#{make-ribcage\ 11172}#
+ #{r\ 1652}#)))
+ (let ((#{ribcage\ 1664}#
+ (#{make-ribcage\ 687}#
'()
'()
'())))
- (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}#)
+ (let ((#{w\ 1667}#
+ (#{make-wrap\ 671}#
+ (#{wrap-marks\ 673}# #{w\ 1653}#)
+ (cons #{ribcage\ 1664}#
+ (#{wrap-subst\ 675}# #{w\ 1653}#)))))
+ (letrec ((#{parse\ 1676}#
+ (lambda (#{body\ 1677}#
+ #{ids\ 1678}#
+ #{labels\ 1679}#
+ #{var-ids\ 1680}#
+ #{vars\ 1681}#
+ #{vals\ 1682}#
+ #{bindings\ 1683}#)
+ (if (null? #{body\ 1677}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 12136}#)
- (let ((#{e\ 12173}# (cdar #{body\ 12162}#))
- (#{er\ 12174}#
- (caar #{body\ 12162}#)))
+ #{outer-form\ 1651}#)
+ (let ((#{e\ 1688}# (cdar #{body\ 1677}#))
+ (#{er\ 1689}# (caar #{body\ 1677}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 11232}#
- #{e\ 12173}#
- #{er\ 12174}#
+ (#{syntax-type\ 747}#
+ #{e\ 1688}#
+ #{er\ 1689}#
'(())
- (#{source-annotation\ 11130}#
- #{er\ 12174}#)
- #{ribcage\ 12149}#
- #{mod\ 12139}#
+ (#{source-annotation\ 645}#
+ #{er\ 1689}#)
+ #{ribcage\ 1664}#
+ #{mod\ 1654}#
#f))
- (lambda (#{type\ 12176}#
- #{value\ 12177}#
- #{e\ 12178}#
- #{w\ 12179}#
- #{s\ 12180}#
- #{mod\ 12181}#)
- (if (memv #{type\ 12176}#
+ (lambda (#{type\ 1691}#
+ #{value\ 1692}#
+ #{e\ 1693}#
+ #{w\ 1694}#
+ #{s\ 1695}#
+ #{mod\ 1696}#)
+ (if (memv #{type\ 1691}#
'(define-form))
- (let ((#{id\ 12191}#
- (#{wrap\ 11220}#
- #{value\ 12177}#
- #{w\ 12179}#
- #{mod\ 12181}#))
- (#{label\ 12192}#
- (#{gen-label\ 11167}#)))
- (let ((#{var\ 12194}#
- (#{gen-var\ 11264}#
- #{id\ 12191}#)))
+ (let ((#{id\ 1706}#
+ (#{wrap\ 735}#
+ #{value\ 1692}#
+ #{w\ 1694}#
+ #{mod\ 1696}#))
+ (#{label\ 1707}#
+ (#{gen-label\ 682}#)))
+ (let ((#{var\ 1709}#
+ (#{gen-var\ 779}#
+ #{id\ 1706}#)))
(begin
- (#{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}#)
+ (#{extend-ribcage!\ 711}#
+ #{ribcage\ 1664}#
+ #{id\ 1706}#
+ #{label\ 1707}#)
+ (#{parse\ 1676}#
+ (cdr #{body\ 1677}#)
+ (cons #{id\ 1706}#
+ #{ids\ 1678}#)
+ (cons #{label\ 1707}#
+ #{labels\ 1679}#)
+ (cons #{id\ 1706}#
+ #{var-ids\ 1680}#)
+ (cons #{var\ 1709}#
+ #{vars\ 1681}#)
+ (cons (cons #{er\ 1689}#
+ (#{wrap\ 735}#
+ #{e\ 1693}#
+ #{w\ 1694}#
+ #{mod\
1696}#))
+ #{vals\ 1682}#)
(cons (cons 'lexical
- #{var\ 12194}#)
- #{bindings\
12168}#)))))
- (if (memv #{type\ 12176}#
+ #{var\ 1709}#)
+ #{bindings\
1683}#)))))
+ (if (memv #{type\ 1691}#
'(define-syntax-form))
- (let ((#{id\ 12199}#
- (#{wrap\ 11220}#
- #{value\ 12177}#
- #{w\ 12179}#
- #{mod\ 12181}#))
- (#{label\ 12200}#
- (#{gen-label\ 11167}#)))
+ (let ((#{id\ 1714}#
+ (#{wrap\ 735}#
+ #{value\ 1692}#
+ #{w\ 1694}#
+ #{mod\ 1696}#))
+ (#{label\ 1715}#
+ (#{gen-label\ 682}#)))
(begin
- (#{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}#
+ (#{extend-ribcage!\ 711}#
+ #{ribcage\ 1664}#
+ #{id\ 1714}#
+ #{label\ 1715}#)
+ (#{parse\ 1676}#
+ (cdr #{body\ 1677}#)
+ (cons #{id\ 1714}#
+ #{ids\ 1678}#)
+ (cons #{label\ 1715}#
+ #{labels\ 1679}#)
+ #{var-ids\ 1680}#
+ #{vars\ 1681}#
+ #{vals\ 1682}#
(cons (cons 'macro
- (cons #{er\
12174}#
- (#{wrap\
11220}#
- #{e\
12178}#
- #{w\
12179}#
- #{mod\
12181}#)))
- #{bindings\
12168}#))))
- (if (memv #{type\ 12176}#
+ (cons #{er\
1689}#
+ (#{wrap\
735}#
+ #{e\
1693}#
+ #{w\
1694}#
+ #{mod\
1696}#)))
+ #{bindings\
1683}#))))
+ (if (memv #{type\ 1691}#
'(begin-form))
- ((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}#)
+ ((lambda (#{tmp\ 1718}#)
+ ((lambda (#{tmp\ 1719}#)
+ (if #{tmp\ 1719}#
+ (apply (lambda (#{_\
1722}#
+ #{e1\
1723}#)
+ (#{parse\
1676}#
+ (letrec
((#{f\ 1726}#
+
(lambda (#{forms\ 1727}#)
+
(if (null? #{forms\ 1727}#)
+
(cdr #{body\ 1677}#)
+
(cons (cons #{er\ 1689}#
+
(#{wrap\ 735}#
+
(car #{forms\ 1727}#)
+
#{w\ 1694}#
+
#{mod\ 1696}#))
+
(#{f\ 1726}#
+
(cdr #{forms\ 1727}#)))))))
+ (#{f\
1726}#
+ #{e1\
1723}#))
+ #{ids\
1678}#
+ #{labels\
1679}#
+ #{var-ids\
1680}#
+ #{vars\
1681}#
+ #{vals\
1682}#
+ #{bindings\
1683}#))
+ #{tmp\ 1719}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 12203}#)))
+ #{tmp\ 1718}#)))
($sc-dispatch
- #{tmp\ 12203}#
+ #{tmp\ 1718}#
'(any . each-any))))
- #{e\ 12178}#)
- (if (memv #{type\ 12176}#
+ #{e\ 1693}#)
+ (if (memv #{type\ 1691}#
'(local-syntax-form))
- (#{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}#
+ (#{chi-local-syntax\ 761}#
+ #{value\ 1692}#
+ #{e\ 1693}#
+ #{er\ 1689}#
+ #{w\ 1694}#
+ #{s\ 1695}#
+ #{mod\ 1696}#
+ (lambda (#{forms\ 1730}#
+ #{er\ 1731}#
+ #{w\ 1732}#
+ #{s\ 1733}#
+ #{mod\ 1734}#)
+ (#{parse\ 1676}#
+ (letrec ((#{f\ 1742}#
+ (lambda
(#{forms\ 1743}#)
+ (if
(null? #{forms\ 1743}#)
+ (cdr
#{body\ 1677}#)
+ (cons
(cons #{er\ 1731}#
+
(#{wrap\ 735}#
+
(car #{forms\ 1743}#)
+
#{w\ 1732}#
+
#{mod\ 1734}#))
+
(#{f\ 1742}#
+
(cdr #{forms\ 1743}#)))))))
+ (#{f\ 1742}#
+ #{forms\ 1730}#))
+ #{ids\ 1678}#
+ #{labels\ 1679}#
+ #{var-ids\ 1680}#
+ #{vars\ 1681}#
+ #{vals\ 1682}#
+ #{bindings\ 1683}#)))
+ (if (null? #{ids\ 1678}#)
+ (#{build-sequence\ 618}#
#f
- (map (lambda (#{x\
12231}#)
- (#{chi\ 11236}#
- (cdr #{x\
12231}#)
- (car #{x\
12231}#)
+ (map (lambda (#{x\
1746}#)
+ (#{chi\ 751}#
+ (cdr #{x\
1746}#)
+ (car #{x\
1746}#)
'(())
- #{mod\ 12181}#))
- (cons (cons #{er\
12174}#
-
(#{source-wrap\ 11222}#
- #{e\
12178}#
- #{w\
12179}#
- #{s\
12180}#
-
#{mod\ 12181}#))
- (cdr #{body\
12162}#))))
+ #{mod\ 1696}#))
+ (cons (cons #{er\
1689}#
+
(#{source-wrap\ 737}#
+ #{e\
1693}#
+ #{w\
1694}#
+ #{s\
1695}#
+
#{mod\ 1696}#))
+ (cdr #{body\
1677}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 11214}#
- #{ids\
12163}#))
+ (if (not
(#{valid-bound-ids?\ 729}#
+ #{ids\
1678}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{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}#)
+ #{outer-form\
1651}#))
+ (letrec ((#{loop\ 1753}#
+ (lambda
(#{bs\ 1754}#
+
#{er-cache\ 1755}#
+
#{r-cache\ 1756}#)
+ (if (not
(null? #{bs\ 1754}#))
+ (let
((#{b\ 1759}#
+
(car #{bs\ 1754}#)))
+ (if
(eq? (car #{b\ 1759}#)
'macro)
- (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}#))))
+ (let
((#{er\ 1762}#
+
(cadr #{b\ 1759}#)))
+
(let ((#{r-cache\ 1764}#
+
(if (eq? #{er\ 1762}#
+
#{er-cache\ 1755}#)
+
#{r-cache\ 1756}#
+
(#{macros-only-env\ 658}#
+
#{er\ 1762}#))))
(begin
(set-cdr!
-
#{b\ 12244}#
-
(#{eval-local-transformer\ 11248}#
-
(#{chi\ 11236}#
-
(cddr #{b\ 12244}#)
-
#{r-cache\ 12249}#
+
#{b\ 1759}#
+
(#{eval-local-transformer\ 763}#
+
(#{chi\ 751}#
+
(cddr #{b\ 1759}#)
+
#{r-cache\ 1764}#
'(())
-
#{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}#
+
#{mod\ 1696}#)
+
#{mod\ 1696}#))
+
(#{loop\ 1753}#
+
(cdr #{bs\ 1754}#)
+
#{er\ 1762}#
+
#{r-cache\ 1764}#))))
+
(#{loop\ 1753}#
+
(cdr #{bs\ 1754}#)
+
#{er-cache\ 1755}#
+
#{r-cache\ 1756}#)))))))
+ (#{loop\ 1753}#
+ #{bindings\ 1683}#
#f
#f))
(set-cdr!
- #{r\ 12147}#
- (#{extend-env\ 11139}#
- #{labels\ 12164}#
- #{bindings\ 12168}#
- (cdr #{r\ 12147}#)))
- (#{build-letrec\ 11109}#
+ #{r\ 1662}#
+ (#{extend-env\ 654}#
+ #{labels\ 1679}#
+ #{bindings\ 1683}#
+ (cdr #{r\ 1662}#)))
+ (#{build-letrec\ 624}#
#f
(map syntax->datum
- #{var-ids\
12165}#)
- #{vars\ 12166}#
- (map (lambda (#{x\
12252}#)
- (#{chi\ 11236}#
- (cdr #{x\
12252}#)
- (car #{x\
12252}#)
+ #{var-ids\ 1680}#)
+ #{vars\ 1681}#
+ (map (lambda (#{x\
1767}#)
+ (#{chi\ 751}#
+ (cdr #{x\
1767}#)
+ (car #{x\
1767}#)
'(())
- #{mod\
12181}#))
- #{vals\ 12167}#)
- (#{build-sequence\
11103}#
+ #{mod\
1696}#))
+ #{vals\ 1682}#)
+ (#{build-sequence\
618}#
#f
- (map (lambda (#{x\
12256}#)
- (#{chi\
11236}#
- (cdr #{x\
12256}#)
- (car #{x\
12256}#)
+ (map (lambda (#{x\
1771}#)
+ (#{chi\ 751}#
+ (cdr #{x\
1771}#)
+ (car #{x\
1771}#)
'(())
- #{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}#)
+ #{mod\
1696}#))
+ (cons (cons
#{er\ 1689}#
+
(#{source-wrap\ 737}#
+
#{e\ 1693}#
+
#{w\ 1694}#
+
#{s\ 1695}#
+
#{mod\ 1696}#))
+ (cdr
#{body\ 1677}#))))))))))))))))))
+ (#{parse\ 1676}#
+ (map (lambda (#{x\ 1684}#)
+ (cons #{r\ 1662}#
+ (#{wrap\ 735}#
+ #{x\ 1684}#
+ #{w\ 1667}#
+ #{mod\ 1654}#)))
+ #{body\ 1650}#)
'()
'()
'()
'()
'()
'())))))))
- (#{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)
+ (#{chi-macro\ 757}#
+ (lambda (#{p\ 1774}#
+ #{e\ 1775}#
+ #{r\ 1776}#
+ #{w\ 1777}#
+ #{rib\ 1778}#
+ #{mod\ 1779}#)
+ (letrec ((#{rebuild-macro-output\ 1787}#
+ (lambda (#{x\ 1788}# #{m\ 1789}#)
+ (if (pair? #{x\ 1788}#)
+ (cons (#{rebuild-macro-output\ 1787}#
+ (car #{x\ 1788}#)
+ #{m\ 1789}#)
+ (#{rebuild-macro-output\ 1787}#
+ (cdr #{x\ 1788}#)
+ #{m\ 1789}#))
+ (if (#{syntax-object?\ 630}# #{x\ 1788}#)
+ (let ((#{w\ 1797}#
+ (#{syntax-object-wrap\ 634}#
+ #{x\ 1788}#)))
+ (let ((#{ms\ 1800}#
+ (#{wrap-marks\ 673}# #{w\ 1797}#))
+ (#{s\ 1801}#
+ (#{wrap-subst\ 675}# #{w\ 1797}#)))
+ (if (if (pair? #{ms\ 1800}#)
+ (eq? (car #{ms\ 1800}#) #f)
#f)
- (#{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}#
+ (#{make-syntax-object\ 628}#
+ (#{syntax-object-expression\ 632}#
+ #{x\ 1788}#)
+ (#{make-wrap\ 671}#
+ (cdr #{ms\ 1800}#)
+ (if #{rib\ 1778}#
+ (cons #{rib\ 1778}#
+ (cdr #{s\ 1801}#))
+ (cdr #{s\ 1801}#)))
+ (#{syntax-object-module\ 636}#
+ #{x\ 1788}#))
+ (#{make-syntax-object\ 628}#
+ (#{syntax-object-expression\ 632}#
+ #{x\ 1788}#)
+ (#{make-wrap\ 671}#
+ (cons #{m\ 1789}# #{ms\ 1800}#)
+ (if #{rib\ 1778}#
+ (cons #{rib\ 1778}#
(cons 'shift
- #{s\ 12286}#))
- (cons (quote shift) #{s\ 12286}#)))
+ #{s\ 1801}#))
+ (cons (quote shift) #{s\ 1801}#)))
(cons 'hygiene
- (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}#)
+ (cdr #{p\ 1774}#))))))
+ (if (vector? #{x\ 1788}#)
+ (let ((#{n\ 1809}#
+ (vector-length #{x\ 1788}#)))
+ (let ((#{v\ 1811}#
+ (make-vector #{n\ 1809}#)))
+ (letrec ((#{loop\ 1814}#
+ (lambda (#{i\ 1815}#)
+ (if (#{fx=\ 571}#
+ #{i\ 1815}#
+ #{n\ 1809}#)
(begin
(if #f #f)
- #{v\ 12296}#)
+ #{v\ 1811}#)
(begin
(vector-set!
- #{v\ 12296}#
- #{i\ 12300}#
-
(#{rebuild-macro-output\ 12272}#
+ #{v\ 1811}#
+ #{i\ 1815}#
+
(#{rebuild-macro-output\ 1787}#
(vector-ref
- #{x\ 12273}#
- #{i\ 12300}#)
- #{m\ 12274}#))
- (#{loop\ 12299}#
- (#{fx+\ 11052}#
- #{i\ 12300}#
+ #{x\ 1788}#
+ #{i\ 1815}#)
+ #{m\ 1789}#))
+ (#{loop\ 1814}#
+ (#{fx+\ 567}#
+ #{i\ 1815}#
1)))))))
- (#{loop\ 12299}# 0))))
- (if (symbol? #{x\ 12273}#)
+ (#{loop\ 1814}# 0))))
+ (if (symbol? #{x\ 1788}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{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}#))
+ (#{source-wrap\ 737}#
+ #{e\ 1775}#
+ #{w\ 1777}#
+ (#{wrap-subst\ 675}# #{w\ 1777}#)
+ #{mod\ 1779}#)
+ #{x\ 1788}#)
+ #{x\ 1788}#)))))))
+ (#{rebuild-macro-output\ 1787}#
+ ((car #{p\ 1774}#)
+ (#{wrap\ 735}#
+ #{e\ 1775}#
+ (#{anti-mark\ 707}# #{w\ 1777}#)
+ #{mod\ 1779}#))
(gensym "m")))))
- (#{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}#)
+ (#{chi-application\ 755}#
+ (lambda (#{x\ 1822}#
+ #{e\ 1823}#
+ #{r\ 1824}#
+ #{w\ 1825}#
+ #{s\ 1826}#
+ #{mod\ 1827}#)
+ ((lambda (#{tmp\ 1834}#)
+ ((lambda (#{tmp\ 1835}#)
+ (if #{tmp\ 1835}#
+ (apply (lambda (#{e0\ 1838}# #{e1\ 1839}#)
+ (#{build-application\ 588}#
+ #{s\ 1826}#
+ #{x\ 1822}#
+ (map (lambda (#{e\ 1840}#)
+ (#{chi\ 751}#
+ #{e\ 1840}#
+ #{r\ 1824}#
+ #{w\ 1825}#
+ #{mod\ 1827}#))
+ #{e1\ 1839}#)))
+ #{tmp\ 1835}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 12319}#)))
+ #{tmp\ 1834}#)))
($sc-dispatch
- #{tmp\ 12319}#
+ #{tmp\ 1834}#
'(any . each-any))))
- #{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}#
+ #{e\ 1823}#)))
+ (#{chi-expr\ 753}#
+ (lambda (#{type\ 1843}#
+ #{value\ 1844}#
+ #{e\ 1845}#
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#)
+ (if (memv #{type\ 1843}# (quote (lexical)))
+ (#{build-lexical-reference\ 594}#
'value
- #{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)))
+ #{s\ 1848}#
+ #{e\ 1845}#
+ #{value\ 1844}#)
+ (if (memv #{type\ 1843}# (quote (core core-form)))
+ (#{value\ 1844}#
+ #{e\ 1845}#
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#)
+ (if (memv #{type\ 1843}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{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}#
+ (#{value\ 1844}#
+ #{e\ 1845}#
+ #{r\ 1846}#
+ #{w\ 1847}#))
+ (lambda (#{e\ 1860}#
+ #{r\ 1861}#
+ #{w\ 1862}#
+ #{s\ 1863}#
+ #{mod\ 1864}#)
+ (#{chi\ 751}#
+ #{e\ 1860}#
+ #{r\ 1861}#
+ #{w\ 1862}#
+ #{mod\ 1864}#)))
+ (if (memv #{type\ 1843}# (quote (lexical-call)))
+ (#{chi-application\ 755}#
+ (#{build-lexical-reference\ 594}#
'fun
- (#{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}#)
+ (#{source-annotation\ 645}# (car #{e\ 1845}#))
+ (car #{e\ 1845}#)
+ #{value\ 1844}#)
+ #{e\ 1845}#
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#)
+ (if (memv #{type\ 1843}# (quote (global-call)))
+ (#{chi-application\ 755}#
+ (#{build-global-reference\ 600}#
+ (#{source-annotation\ 645}# (car #{e\ 1845}#))
+ (if (#{syntax-object?\ 630}# #{value\ 1844}#)
+ (#{syntax-object-expression\ 632}#
+ #{value\ 1844}#)
+ #{value\ 1844}#)
+ (if (#{syntax-object?\ 630}# #{value\ 1844}#)
+ (#{syntax-object-module\ 636}# #{value\ 1844}#)
+ #{mod\ 1849}#))
+ #{e\ 1845}#
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#)
+ (if (memv #{type\ 1843}# (quote (constant)))
+ (#{build-data\ 616}#
+ #{s\ 1848}#
+ (#{strip\ 777}#
+ (#{source-wrap\ 737}#
+ #{e\ 1845}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#)
'(())))
- (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}#)
+ (if (memv #{type\ 1843}# (quote (global)))
+ (#{build-global-reference\ 600}#
+ #{s\ 1848}#
+ #{value\ 1844}#
+ #{mod\ 1849}#)
+ (if (memv #{type\ 1843}# (quote (call)))
+ (#{chi-application\ 755}#
+ (#{chi\ 751}#
+ (car #{e\ 1845}#)
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{mod\ 1849}#)
+ #{e\ 1845}#
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#)
+ (if (memv #{type\ 1843}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1877}#)
+ ((lambda (#{tmp\ 1878}#)
+ (if #{tmp\ 1878}#
+ (apply (lambda (#{_\ 1882}#
+ #{e1\ 1883}#
+ #{e2\ 1884}#)
+ (#{chi-sequence\ 739}#
+ (cons #{e1\ 1883}#
+ #{e2\ 1884}#)
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#))
+ #{tmp\ 1878}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 12362}#)))
+ #{tmp\ 1877}#)))
($sc-dispatch
- #{tmp\ 12362}#
+ #{tmp\ 1877}#
'(any any . each-any))))
- #{e\ 12330}#)
- (if (memv #{type\ 12328}#
+ #{e\ 1845}#)
+ (if (memv #{type\ 1843}#
'(local-syntax-form))
- (#{chi-local-syntax\ 11246}#
- #{value\ 12329}#
- #{e\ 12330}#
- #{r\ 12331}#
- #{w\ 12332}#
- #{s\ 12333}#
- #{mod\ 12334}#
- #{chi-sequence\ 11224}#)
- (if (memv #{type\ 12328}#
+ (#{chi-local-syntax\ 761}#
+ #{value\ 1844}#
+ #{e\ 1845}#
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#
+ #{chi-sequence\ 739}#)
+ (if (memv #{type\ 1843}#
'(eval-when-form))
- ((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}#)))
+ ((lambda (#{tmp\ 1888}#)
+ ((lambda (#{tmp\ 1889}#)
+ (if #{tmp\ 1889}#
+ (apply (lambda (#{_\ 1894}#
+ #{x\ 1895}#
+ #{e1\ 1896}#
+ #{e2\ 1897}#)
+ (let ((#{when-list\
1899}#
+
(#{chi-when-list\ 745}#
+ #{e\ 1845}#
+ #{x\ 1895}#
+ #{w\ 1847}#)))
(if (memq 'eval
- #{when-list\
12384}#)
- (#{chi-sequence\
11224}#
- (cons #{e1\ 12381}#
- #{e2\
12382}#)
- #{r\ 12331}#
- #{w\ 12332}#
- #{s\ 12333}#
- #{mod\ 12334}#)
- (#{chi-void\
11250}#))))
- #{tmp\ 12374}#)
+ #{when-list\
1899}#)
+ (#{chi-sequence\
739}#
+ (cons #{e1\ 1896}#
+ #{e2\ 1897}#)
+ #{r\ 1846}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#)
+ (#{chi-void\
765}#))))
+ #{tmp\ 1889}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 12373}#)))
+ #{tmp\ 1888}#)))
($sc-dispatch
- #{tmp\ 12373}#
+ #{tmp\ 1888}#
'(any each-any any . each-any))))
- #{e\ 12330}#)
- (if (memv #{type\ 12328}#
+ #{e\ 1845}#)
+ (if (memv #{type\ 1843}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 12330}#
- (#{wrap\ 11220}#
- #{value\ 12329}#
- #{w\ 12332}#
- #{mod\ 12334}#))
- (if (memv #{type\ 12328}#
+ #{e\ 1845}#
+ (#{wrap\ 735}#
+ #{value\ 1844}#
+ #{w\ 1847}#
+ #{mod\ 1849}#))
+ (if (memv #{type\ 1843}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 11222}#
- #{e\ 12330}#
- #{w\ 12332}#
- #{s\ 12333}#
- #{mod\ 12334}#))
- (if (memv #{type\ 12328}#
+ (#{source-wrap\ 737}#
+ #{e\ 1845}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#))
+ (if (memv #{type\ 1843}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 11222}#
- #{e\ 12330}#
- #{w\ 12332}#
- #{s\ 12333}#
- #{mod\ 12334}#))
+ (#{source-wrap\ 737}#
+ #{e\ 1845}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 11222}#
- #{e\ 12330}#
- #{w\ 12332}#
- #{s\ 12333}#
- #{mod\ 12334}#))))))))))))))))))
- (#{chi\ 11236}#
- (lambda (#{e\ 12391}#
- #{r\ 12392}#
- #{w\ 12393}#
- #{mod\ 12394}#)
+ (#{source-wrap\ 737}#
+ #{e\ 1845}#
+ #{w\ 1847}#
+ #{s\ 1848}#
+ #{mod\ 1849}#))))))))))))))))))
+ (#{chi\ 751}#
+ (lambda (#{e\ 1906}#
+ #{r\ 1907}#
+ #{w\ 1908}#
+ #{mod\ 1909}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 11232}#
- #{e\ 12391}#
- #{r\ 12392}#
- #{w\ 12393}#
- (#{source-annotation\ 11130}# #{e\ 12391}#)
+ (#{syntax-type\ 747}#
+ #{e\ 1906}#
+ #{r\ 1907}#
+ #{w\ 1908}#
+ (#{source-annotation\ 645}# #{e\ 1906}#)
#f
- #{mod\ 12394}#
+ #{mod\ 1909}#
#f))
- (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}#)
+ (lambda (#{type\ 1914}#
+ #{value\ 1915}#
+ #{e\ 1916}#
+ #{w\ 1917}#
+ #{s\ 1918}#
+ #{mod\ 1919}#)
+ (#{chi-expr\ 753}#
+ #{type\ 1914}#
+ #{value\ 1915}#
+ #{e\ 1916}#
+ #{r\ 1907}#
+ #{w\ 1917}#
+ #{s\ 1918}#
+ #{mod\ 1919}#)))))
+ (#{chi-top\ 749}#
+ (lambda (#{e\ 1926}#
+ #{r\ 1927}#
+ #{w\ 1928}#
+ #{m\ 1929}#
+ #{esew\ 1930}#
+ #{mod\ 1931}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 11232}#
- #{e\ 12411}#
- #{r\ 12412}#
- #{w\ 12413}#
- (#{source-annotation\ 11130}# #{e\ 12411}#)
+ (#{syntax-type\ 747}#
+ #{e\ 1926}#
+ #{r\ 1927}#
+ #{w\ 1928}#
+ (#{source-annotation\ 645}# #{e\ 1926}#)
#f
- #{mod\ 12416}#
+ #{mod\ 1931}#
#f))
- (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}#)
+ (lambda (#{type\ 1952}#
+ #{value\ 1953}#
+ #{e\ 1954}#
+ #{w\ 1955}#
+ #{s\ 1956}#
+ #{mod\ 1957}#)
+ (if (memv #{type\ 1952}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1965}#)
+ ((lambda (#{tmp\ 1966}#)
+ (if #{tmp\ 1966}#
+ (apply (lambda (#{_\ 1968}#) (#{chi-void\ 765}#))
+ #{tmp\ 1966}#)
+ ((lambda (#{tmp\ 1969}#)
+ (if #{tmp\ 1969}#
+ (apply (lambda (#{_\ 1973}#
+ #{e1\ 1974}#
+ #{e2\ 1975}#)
+ (#{chi-top-sequence\ 741}#
+ (cons #{e1\ 1974}# #{e2\ 1975}#)
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{s\ 1956}#
+ #{m\ 1929}#
+ #{esew\ 1930}#
+ #{mod\ 1957}#))
+ #{tmp\ 1969}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 12450}#)))
+ #{tmp\ 1965}#)))
($sc-dispatch
- #{tmp\ 12450}#
+ #{tmp\ 1965}#
'(any any . each-any)))))
- ($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))
+ ($sc-dispatch #{tmp\ 1965}# (quote (any)))))
+ #{e\ 1954}#)
+ (if (memv #{type\ 1952}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 761}#
+ #{value\ 1953}#
+ #{e\ 1954}#
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{s\ 1956}#
+ #{mod\ 1957}#
+ (lambda (#{body\ 1978}#
+ #{r\ 1979}#
+ #{w\ 1980}#
+ #{s\ 1981}#
+ #{mod\ 1982}#)
+ (#{chi-top-sequence\ 741}#
+ #{body\ 1978}#
+ #{r\ 1979}#
+ #{w\ 1980}#
+ #{s\ 1981}#
+ #{m\ 1929}#
+ #{esew\ 1930}#
+ #{mod\ 1982}#)))
+ (if (memv #{type\ 1952}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 1989}#)
+ ((lambda (#{tmp\ 1990}#)
+ (if #{tmp\ 1990}#
+ (apply (lambda (#{_\ 1995}#
+ #{x\ 1996}#
+ #{e1\ 1997}#
+ #{e2\ 1998}#)
+ (let ((#{when-list\ 2001}#
+ (#{chi-when-list\ 745}#
+ #{e\ 1954}#
+ #{x\ 1996}#
+ #{w\ 1955}#))
+ (#{body\ 2002}#
+ (cons #{e1\ 1997}#
+ #{e2\ 1998}#)))
+ (if (eq? #{m\ 1929}# (quote e))
(if (memq 'eval
- #{when-list\ 12486}#)
- (#{chi-top-sequence\ 11226}#
- #{body\ 12487}#
- #{r\ 12412}#
- #{w\ 12440}#
- #{s\ 12441}#
+ #{when-list\ 2001}#)
+ (#{chi-top-sequence\ 741}#
+ #{body\ 2002}#
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{s\ 1956}#
(if (memq 'expand
- #{when-list\
12486}#)
+ #{when-list\
2001}#)
'c&e
'e)
'(eval)
- #{mod\ 12442}#)
+ #{mod\ 1957}#)
(begin
(if (memq 'expand
- #{when-list\
12486}#)
- (#{top-level-eval-hook\
11060}#
- (#{chi-top-sequence\
11226}#
- #{body\ 12487}#
- #{r\ 12412}#
- #{w\ 12440}#
- #{s\ 12441}#
+ #{when-list\
2001}#)
+ (#{top-level-eval-hook\
575}#
+ (#{chi-top-sequence\
741}#
+ #{body\ 2002}#
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{s\ 1956}#
'e
'(eval)
- #{mod\ 12442}#)
- #{mod\ 12442}#))
- (#{chi-void\ 11250}#)))
+ #{mod\ 1957}#)
+ #{mod\ 1957}#))
+ (#{chi-void\ 765}#)))
(if (memq 'load
- #{when-list\ 12486}#)
- (if (let ((#{t\ 12496}#
+ #{when-list\ 2001}#)
+ (if (let ((#{t\ 2011}#
(memq 'compile
- #{when-list\
12486}#)))
- (if #{t\ 12496}#
- #{t\ 12496}#
- (let ((#{t\ 12499}#
+ #{when-list\
2001}#)))
+ (if #{t\ 2011}#
+ #{t\ 2011}#
+ (let ((#{t\ 2014}#
(memq 'expand
-
#{when-list\ 12486}#)))
- (if #{t\ 12499}#
- #{t\ 12499}#
- (if (eq? #{m\
12414}#
+
#{when-list\ 2001}#)))
+ (if #{t\ 2014}#
+ #{t\ 2014}#
+ (if (eq? #{m\
1929}#
'c&e)
(memq 'eval
-
#{when-list\ 12486}#)
+
#{when-list\ 2001}#)
#f)))))
- (#{chi-top-sequence\ 11226}#
- #{body\ 12487}#
- #{r\ 12412}#
- #{w\ 12440}#
- #{s\ 12441}#
+ (#{chi-top-sequence\ 741}#
+ #{body\ 2002}#
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{s\ 1956}#
'c&e
'(compile load)
- #{mod\ 12442}#)
- (if (memq #{m\ 12414}#
+ #{mod\ 1957}#)
+ (if (memq #{m\ 1929}#
'(c c&e))
- (#{chi-top-sequence\
11226}#
- #{body\ 12487}#
- #{r\ 12412}#
- #{w\ 12440}#
- #{s\ 12441}#
+ (#{chi-top-sequence\ 741}#
+ #{body\ 2002}#
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{s\ 1956}#
'c
'(load)
- #{mod\ 12442}#)
- (#{chi-void\ 11250}#)))
- (if (let ((#{t\ 12507}#
+ #{mod\ 1957}#)
+ (#{chi-void\ 765}#)))
+ (if (let ((#{t\ 2022}#
(memq 'compile
- #{when-list\
12486}#)))
- (if #{t\ 12507}#
- #{t\ 12507}#
- (let ((#{t\ 12510}#
+ #{when-list\
2001}#)))
+ (if #{t\ 2022}#
+ #{t\ 2022}#
+ (let ((#{t\ 2025}#
(memq 'expand
-
#{when-list\ 12486}#)))
- (if #{t\ 12510}#
- #{t\ 12510}#
- (if (eq? #{m\
12414}#
+
#{when-list\ 2001}#)))
+ (if #{t\ 2025}#
+ #{t\ 2025}#
+ (if (eq? #{m\
1929}#
'c&e)
(memq 'eval
-
#{when-list\ 12486}#)
+
#{when-list\ 2001}#)
#f)))))
(begin
- (#{top-level-eval-hook\
11060}#
- (#{chi-top-sequence\
11226}#
- #{body\ 12487}#
- #{r\ 12412}#
- #{w\ 12440}#
- #{s\ 12441}#
+ (#{top-level-eval-hook\
575}#
+ (#{chi-top-sequence\
741}#
+ #{body\ 2002}#
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{s\ 1956}#
'e
'(eval)
- #{mod\ 12442}#)
- #{mod\ 12442}#)
- (#{chi-void\ 11250}#))
- (#{chi-void\ 11250}#))))))
- #{tmp\ 12475}#)
+ #{mod\ 1957}#)
+ #{mod\ 1957}#)
+ (#{chi-void\ 765}#))
+ (#{chi-void\ 765}#))))))
+ #{tmp\ 1990}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 12474}#)))
+ #{tmp\ 1989}#)))
($sc-dispatch
- #{tmp\ 12474}#
+ #{tmp\ 1989}#
'(any each-any any . each-any))))
- #{e\ 12439}#)
- (if (memv #{type\ 12437}#
+ #{e\ 1954}#)
+ (if (memv #{type\ 1952}#
'(define-syntax-form))
- (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}#))))
+ (let ((#{n\ 2033}#
+ (#{id-var-name\ 723}#
+ #{value\ 1953}#
+ #{w\ 1955}#))
+ (#{r\ 2034}#
+ (#{macros-only-env\ 658}# #{r\ 1927}#)))
+ (if (memv #{m\ 1929}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 1930}#)
+ (let ((#{e\ 2037}#
+ (#{chi-install-global\ 743}#
+ #{n\ 2033}#
+ (#{chi\ 751}#
+ #{e\ 1954}#
+ #{r\ 2034}#
+ #{w\ 1955}#
+ #{mod\ 1957}#))))
(begin
- (#{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}#))))
+ (#{top-level-eval-hook\ 575}#
+ #{e\ 2037}#
+ #{mod\ 1957}#)
+ (if (memq (quote load) #{esew\ 1930}#)
+ #{e\ 2037}#
+ (#{chi-void\ 765}#))))
+ (if (memq (quote load) #{esew\ 1930}#)
+ (#{chi-install-global\ 743}#
+ #{n\ 2033}#
+ (#{chi\ 751}#
+ #{e\ 1954}#
+ #{r\ 2034}#
+ #{w\ 1955}#
+ #{mod\ 1957}#))
+ (#{chi-void\ 765}#)))
+ (if (memv #{m\ 1929}# (quote (c&e)))
+ (let ((#{e\ 2040}#
+ (#{chi-install-global\ 743}#
+ #{n\ 2033}#
+ (#{chi\ 751}#
+ #{e\ 1954}#
+ #{r\ 2034}#
+ #{w\ 1955}#
+ #{mod\ 1957}#))))
(begin
- (#{top-level-eval-hook\ 11060}#
- #{e\ 12525}#
- #{mod\ 12442}#)
- #{e\ 12525}#))
+ (#{top-level-eval-hook\ 575}#
+ #{e\ 2040}#
+ #{mod\ 1957}#)
+ #{e\ 2040}#))
(begin
- (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}#
+ (if (memq (quote eval) #{esew\ 1930}#)
+ (#{top-level-eval-hook\ 575}#
+ (#{chi-install-global\ 743}#
+ #{n\ 2033}#
+ (#{chi\ 751}#
+ #{e\ 1954}#
+ #{r\ 2034}#
+ #{w\ 1955}#
+ #{mod\ 1957}#))
+ #{mod\ 1957}#))
+ (#{chi-void\ 765}#)))))
+ (if (memv #{type\ 1952}# (quote (define-form)))
+ (let ((#{n\ 2045}#
+ (#{id-var-name\ 723}#
+ #{value\ 1953}#
+ #{w\ 1955}#)))
+ (let ((#{type\ 2047}#
+ (#{binding-type\ 649}#
+ (#{lookup\ 660}#
+ #{n\ 2045}#
+ #{r\ 1927}#
+ #{mod\ 1957}#))))
+ (if (memv #{type\ 2047}#
'(global core macro module-ref))
(begin
- (if (if (memq #{m\ 12414}#
- '(c c&e))
+ (if (if (memq #{m\ 1929}# (quote (c c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 12530}#))
+ #{n\ 2045}#))
(current-module)
#f)
#f)
- (let ((#{old\ 12538}#
+ (let ((#{old\ 2053}#
(module-variable
(current-module)
- #{n\ 12530}#)))
+ #{n\ 2045}#)))
(module-define!
(current-module)
- #{n\ 12530}#
- (if (variable? #{old\ 12538}#)
- (variable-ref #{old\ 12538}#)
+ #{n\ 2045}#
+ (if (variable? #{old\ 2053}#)
+ (variable-ref #{old\ 2053}#)
#f))))
- (let ((#{x\ 12541}#
- (#{build-global-definition\
11091}#
- #{s\ 12441}#
- #{n\ 12530}#
- (#{chi\ 11236}#
- #{e\ 12439}#
- #{r\ 12412}#
- #{w\ 12440}#
- #{mod\ 12442}#))))
+ (let ((#{x\ 2056}#
+ (#{build-global-definition\ 606}#
+ #{s\ 1956}#
+ #{n\ 2045}#
+ (#{chi\ 751}#
+ #{e\ 1954}#
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{mod\ 1957}#))))
(begin
- (if (eq? #{m\ 12414}# (quote c&e))
- (#{top-level-eval-hook\ 11060}#
- #{x\ 12541}#
- #{mod\ 12442}#))
- #{x\ 12541}#)))
- (if (memv #{type\ 12532}#
+ (if (eq? #{m\ 1929}# (quote c&e))
+ (#{top-level-eval-hook\ 575}#
+ #{x\ 2056}#
+ #{mod\ 1957}#))
+ #{x\ 2056}#)))
+ (if (memv #{type\ 2047}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 12439}#
- (#{wrap\ 11220}#
- #{value\ 12438}#
- #{w\ 12440}#
- #{mod\ 12442}#))
+ #{e\ 1954}#
+ (#{wrap\ 735}#
+ #{value\ 1953}#
+ #{w\ 1955}#
+ #{mod\ 1957}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{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}#)))
+ #{e\ 1954}#
+ (#{wrap\ 735}#
+ #{value\ 1953}#
+ #{w\ 1955}#
+ #{mod\ 1957}#))))))
+ (let ((#{x\ 2062}#
+ (#{chi-expr\ 753}#
+ #{type\ 1952}#
+ #{value\ 1953}#
+ #{e\ 1954}#
+ #{r\ 1927}#
+ #{w\ 1955}#
+ #{s\ 1956}#
+ #{mod\ 1957}#)))
(begin
- (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)))
+ (if (eq? #{m\ 1929}# (quote c&e))
+ (#{top-level-eval-hook\ 575}#
+ #{x\ 2062}#
+ #{mod\ 1957}#))
+ #{x\ 2062}#)))))))))))
+ (#{syntax-type\ 747}#
+ (lambda (#{e\ 2063}#
+ #{r\ 2064}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{rib\ 2067}#
+ #{mod\ 2068}#
+ #{for-car?\ 2069}#)
+ (if (symbol? #{e\ 2063}#)
+ (let ((#{n\ 2081}#
+ (#{id-var-name\ 723}# #{e\ 2063}# #{w\ 2065}#)))
+ (let ((#{b\ 2083}#
+ (#{lookup\ 660}#
+ #{n\ 2081}#
+ #{r\ 2064}#
+ #{mod\ 2068}#)))
+ (let ((#{type\ 2085}#
+ (#{binding-type\ 649}# #{b\ 2083}#)))
+ (if (memv #{type\ 2085}# (quote (lexical)))
(values
- #{type\ 12570}#
- (#{binding-value\ 11136}# #{b\ 12568}#)
- #{e\ 12548}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\ 12553}#)
- (if (memv #{type\ 12570}# (quote (global)))
+ #{type\ 2085}#
+ (#{binding-value\ 651}# #{b\ 2083}#)
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (if (memv #{type\ 2085}# (quote (global)))
(values
- #{type\ 12570}#
- #{n\ 12566}#
- #{e\ 12548}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\ 12553}#)
- (if (memv #{type\ 12570}# (quote (macro)))
- (if #{for-car?\ 12554}#
+ #{type\ 2085}#
+ #{n\ 2081}#
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (if (memv #{type\ 2085}# (quote (macro)))
+ (if #{for-car?\ 2069}#
(values
- #{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}#
+ #{type\ 2085}#
+ (#{binding-value\ 651}# #{b\ 2083}#)
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (#{syntax-type\ 747}#
+ (#{chi-macro\ 757}#
+ (#{binding-value\ 651}# #{b\ 2083}#)
+ #{e\ 2063}#
+ #{r\ 2064}#
+ #{w\ 2065}#
+ #{rib\ 2067}#
+ #{mod\ 2068}#)
+ #{r\ 2064}#
'(())
- #{s\ 12551}#
- #{rib\ 12552}#
- #{mod\ 12553}#
+ #{s\ 2066}#
+ #{rib\ 2067}#
+ #{mod\ 2068}#
#f))
(values
- #{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}#)))
+ #{type\ 2085}#
+ (#{binding-value\ 651}# #{b\ 2083}#)
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)))))))
+ (if (pair? #{e\ 2063}#)
+ (let ((#{first\ 2094}# (car #{e\ 2063}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 11232}#
- #{first\ 12579}#
- #{r\ 12549}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{rib\ 12552}#
- #{mod\ 12553}#
+ (#{syntax-type\ 747}#
+ #{first\ 2094}#
+ #{r\ 2064}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{rib\ 2067}#
+ #{mod\ 2068}#
#t))
- (lambda (#{ftype\ 12580}#
- #{fval\ 12581}#
- #{fe\ 12582}#
- #{fw\ 12583}#
- #{fs\ 12584}#
- #{fmod\ 12585}#)
- (if (memv #{ftype\ 12580}# (quote (lexical)))
+ (lambda (#{ftype\ 2095}#
+ #{fval\ 2096}#
+ #{fe\ 2097}#
+ #{fw\ 2098}#
+ #{fs\ 2099}#
+ #{fmod\ 2100}#)
+ (if (memv #{ftype\ 2095}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 12581}#
- #{e\ 12548}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\ 12553}#)
- (if (memv #{ftype\ 12580}# (quote (global)))
+ #{fval\ 2096}#
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (if (memv #{ftype\ 2095}# (quote (global)))
(values
'global-call
- (#{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}#
+ (#{make-syntax-object\ 628}#
+ #{fval\ 2096}#
+ #{w\ 2065}#
+ #{fmod\ 2100}#)
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (if (memv #{ftype\ 2095}# (quote (macro)))
+ (#{syntax-type\ 747}#
+ (#{chi-macro\ 757}#
+ #{fval\ 2096}#
+ #{e\ 2063}#
+ #{r\ 2064}#
+ #{w\ 2065}#
+ #{rib\ 2067}#
+ #{mod\ 2068}#)
+ #{r\ 2064}#
'(())
- #{s\ 12551}#
- #{rib\ 12552}#
- #{mod\ 12553}#
- #{for-car?\ 12554}#)
- (if (memv #{ftype\ 12580}# (quote (module-ref)))
+ #{s\ 2066}#
+ #{rib\ 2067}#
+ #{mod\ 2068}#
+ #{for-car?\ 2069}#)
+ (if (memv #{ftype\ 2095}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{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)))
+ (#{fval\ 2096}#
+ #{e\ 2063}#
+ #{r\ 2064}#
+ #{w\ 2065}#))
+ (lambda (#{e\ 2112}#
+ #{r\ 2113}#
+ #{w\ 2114}#
+ #{s\ 2115}#
+ #{mod\ 2116}#)
+ (#{syntax-type\ 747}#
+ #{e\ 2112}#
+ #{r\ 2113}#
+ #{w\ 2114}#
+ #{s\ 2115}#
+ #{rib\ 2067}#
+ #{mod\ 2116}#
+ #{for-car?\ 2069}#)))
+ (if (memv #{ftype\ 2095}# (quote (core)))
(values
'core-form
- #{fval\ 12581}#
- #{e\ 12548}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\ 12553}#)
- (if (memv #{ftype\ 12580}#
+ #{fval\ 2096}#
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (if (memv #{ftype\ 2095}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 12581}#
- #{e\ 12548}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\ 12553}#)
- (if (memv #{ftype\ 12580}#
- '(begin))
+ #{fval\ 2096}#
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (if (memv #{ftype\ 2095}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 12548}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\ 12553}#)
- (if (memv #{ftype\ 12580}#
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (if (memv #{ftype\ 2095}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 12548}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\ 12553}#)
- (if (memv #{ftype\ 12580}#
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
+ (if (memv #{ftype\ 2095}#
'(define))
- ((lambda (#{tmp\ 12612}#)
- ((lambda (#{tmp\ 12613}#)
- (if (if #{tmp\ 12613}#
- (apply (lambda (#{_\
12617}#
- #{name\
12618}#
- #{val\
12619}#)
- (#{id?\ 11151}#
- #{name\
12618}#))
- #{tmp\ 12613}#)
+ ((lambda (#{tmp\ 2127}#)
+ ((lambda (#{tmp\ 2128}#)
+ (if (if #{tmp\ 2128}#
+ (apply (lambda (#{_\
2132}#
+ #{name\
2133}#
+ #{val\
2134}#)
+ (#{id?\ 666}#
+ #{name\
2133}#))
+ #{tmp\ 2128}#)
#f)
- (apply (lambda (#{_\ 12623}#
- #{name\
12624}#
- #{val\
12625}#)
+ (apply (lambda (#{_\ 2138}#
+ #{name\
2139}#
+ #{val\
2140}#)
(values
'define-form
- #{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}#))
+ #{name\ 2139}#
+ #{val\ 2140}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#))
+ #{tmp\ 2128}#)
+ ((lambda (#{tmp\ 2141}#)
+ (if (if #{tmp\ 2141}#
+ (apply (lambda
(#{_\ 2147}#
+
#{name\ 2148}#
+
#{args\ 2149}#
+
#{e1\ 2150}#
+
#{e2\ 2151}#)
+ (if
(#{id?\ 666}#
+
#{name\ 2148}#)
+
(#{valid-bound-ids?\ 729}#
+
(#{lambda-var-list\ 781}#
+
#{args\ 2149}#))
#f))
- #{tmp\
12626}#)
+ #{tmp\
2141}#)
#f)
- (apply (lambda (#{_\
12644}#
-
#{name\ 12645}#
-
#{args\ 12646}#
- #{e1\
12647}#
- #{e2\
12648}#)
+ (apply (lambda (#{_\
2159}#
+
#{name\ 2160}#
+
#{args\ 2161}#
+ #{e1\
2162}#
+ #{e2\
2163}#)
(values
'define-form
- (#{wrap\
11220}#
- #{name\
12645}#
- #{w\
12550}#
- #{mod\
12553}#)
-
(#{decorate-source\ 11069}#
+ (#{wrap\
735}#
+ #{name\
2160}#
+ #{w\
2065}#
+ #{mod\
2068}#)
+
(#{decorate-source\ 584}#
(cons
'#(syntax-object
lambda
((top)
@@ -3665,11 +3639,11 @@
(top)
(top)
(top))
-
#("i12639"
-
"i12640"
-
"i12641"
-
"i12642"
-
"i12643"))
+
#("i2154"
+
"i2155"
+
"i2156"
+
"i2157"
+
"i2158"))
#(ribcage
()
()
@@ -3691,12 +3665,12 @@
(top)
(top)
(top))
-
#("i12586"
-
"i12587"
-
"i12588"
-
"i12589"
-
"i12590"
-
"i12591"))
+
#("i2101"
+
"i2102"
+
"i2103"
+
"i2104"
+
"i2105"
+
"i2106"))
#(ribcage
()
()
@@ -3704,7 +3678,7 @@
#(ribcage
#(first)
#((top))
-
#("i12578"))
+
#("i2093"))
#(ribcage
()
()
@@ -3732,13 +3706,13 @@
(top)
(top)
(top))
-
#("i12555"
-
"i12556"
-
"i12557"
-
"i12558"
-
"i12559"
-
"i12560"
-
"i12561"))
+
#("i2070"
+
"i2071"
+
"i2072"
+
"i2073"
+
"i2074"
+
"i2075"
+
"i2076"))
#(ribcage
(lambda-var-list
gen-var
@@ -3974,159 +3948,159 @@
(top)
(top)
(top))
-
("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"))
+
("i780"
+
"i778"
+
"i776"
+
"i774"
+
"i772"
+
"i770"
+
"i768"
+
"i766"
+
"i764"
+
"i762"
+
"i760"
+
"i758"
+
"i756"
+
"i754"
+
"i752"
+
"i750"
+
"i748"
+
"i746"
+
"i744"
+
"i742"
+
"i740"
+
"i738"
+
"i736"
+
"i734"
+
"i732"
+
"i730"
+
"i728"
+
"i726"
+
"i724"
+
"i722"
+
"i720"
+
"i718"
+
"i716"
+
"i714"
+
"i712"
+
"i710"
+
"i709"
+
"i708"
+
"i706"
+
"i705"
+
"i704"
+
"i703"
+
"i702"
+
"i700"
+
"i698"
+
"i696"
+
"i694"
+
"i692"
+
"i690"
+
"i688"
+
"i686"
+
"i683"
+
"i681"
+
"i680"
+
"i679"
+
"i678"
+
"i677"
+
"i676"
+
"i674"
+
"i672"
+
"i670"
+
"i668"
+
"i667"
+
"i665"
+
"i663"
+
"i661"
+
"i659"
+
"i657"
+
"i655"
+
"i653"
+
"i652"
+
"i650"
+
"i648"
+
"i647"
+
"i646"
+
"i644"
+
"i643"
+
"i641"
+
"i639"
+
"i637"
+
"i635"
+
"i633"
+
"i631"
+
"i629"
+
"i627"
+
"i625"
+
"i623"
+
"i621"
+
"i619"
+
"i617"
+
"i615"
+
"i613"
+
"i611"
+
"i609"
+
"i607"
+
"i605"
+
"i603"
+
"i601"
+
"i599"
+
"i597"
+
"i595"
+
"i593"
+
"i591"
+
"i589"
+
"i587"
+
"i585"
+
"i583"
+
"i581"
+
"i579"
+
"i578"
+
"i576"
+
"i574"
+
"i572"
+
"i570"
+
"i568"
+
"i566"
+
"i564"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i10952"
-
"i10950")))
+
("i467"
+
"i465")))
(hygiene
guile))
-
(#{wrap\ 11220}#
-
(cons #{args\ 12646}#
-
(cons #{e1\ 12647}#
-
#{e2\ 12648}#))
-
#{w\ 12550}#
-
#{mod\ 12553}#))
- #{s\
12551}#)
+
(#{wrap\ 735}#
+
(cons #{args\ 2161}#
+
(cons #{e1\ 2162}#
+
#{e2\ 2163}#))
+
#{w\ 2065}#
+
#{mod\ 2068}#))
+ #{s\
2066}#)
'(())
- #{s\ 12551}#
- #{mod\
12553}#))
- #{tmp\ 12626}#)
- ((lambda (#{tmp\
12651}#)
- (if (if #{tmp\
12651}#
- (apply
(lambda (#{_\ 12654}#
-
#{name\ 12655}#)
-
(#{id?\ 11151}#
-
#{name\ 12655}#))
- #{tmp\
12651}#)
+ #{s\ 2066}#
+ #{mod\
2068}#))
+ #{tmp\ 2141}#)
+ ((lambda (#{tmp\
2166}#)
+ (if (if #{tmp\
2166}#
+ (apply
(lambda (#{_\ 2169}#
+
#{name\ 2170}#)
+
(#{id?\ 666}#
+
#{name\ 2170}#))
+ #{tmp\
2166}#)
#f)
- (apply (lambda
(#{_\ 12658}#
-
#{name\ 12659}#)
+ (apply (lambda
(#{_\ 2173}#
+
#{name\ 2174}#)
(values
'define-form
-
(#{wrap\ 11220}#
-
#{name\ 12659}#
- #{w\
12550}#
-
#{mod\ 12553}#)
+
(#{wrap\ 735}#
+
#{name\ 2174}#
+ #{w\
2065}#
+
#{mod\ 2068}#)
'(#(syntax-object
if
((top)
@@ -4135,8 +4109,8 @@
name)
#((top)
(top))
-
#("i12656"
-
"i12657"))
+
#("i2171"
+
"i2172"))
#(ribcage
()
()
@@ -4158,12 +4132,12 @@
(top)
(top)
(top))
-
#("i12586"
-
"i12587"
-
"i12588"
-
"i12589"
-
"i12590"
-
"i12591"))
+
#("i2101"
+
"i2102"
+
"i2103"
+
"i2104"
+
"i2105"
+
"i2106"))
#(ribcage
()
()
@@ -4171,7 +4145,7 @@
#(ribcage
#(first)
#((top))
-
#("i12578"))
+
#("i2093"))
#(ribcage
()
()
@@ -4199,13 +4173,13 @@
(top)
(top)
(top))
-
#("i12555"
-
"i12556"
-
"i12557"
-
"i12558"
-
"i12559"
-
"i12560"
-
"i12561"))
+
#("i2070"
+
"i2071"
+
"i2072"
+
"i2073"
+
"i2074"
+
"i2075"
+
"i2076"))
#(ribcage
(lambda-var-list
gen-var
@@ -4441,130 +4415,130 @@
(top)
(top)
(top))
-
("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"))
+
("i780"
+
"i778"
+
"i776"
+
"i774"
+
"i772"
+
"i770"
+
"i768"
+
"i766"
+
"i764"
+
"i762"
+
"i760"
+
"i758"
+
"i756"
+
"i754"
+
"i752"
+
"i750"
+
"i748"
+
"i746"
+
"i744"
+
"i742"
+
"i740"
+
"i738"
+
"i736"
+
"i734"
+
"i732"
+
"i730"
+
"i728"
+
"i726"
+
"i724"
+
"i722"
+
"i720"
+
"i718"
+
"i716"
+
"i714"
+
"i712"
+
"i710"
+
"i709"
+
"i708"
+
"i706"
+
"i705"
+
"i704"
+
"i703"
+
"i702"
+
"i700"
+
"i698"
+
"i696"
+
"i694"
+
"i692"
+
"i690"
+
"i688"
+
"i686"
+
"i683"
+
"i681"
+
"i680"
+
"i679"
+
"i678"
+
"i677"
+
"i676"
+
"i674"
+
"i672"
+
"i670"
+
"i668"
+
"i667"
+
"i665"
+
"i663"
+
"i661"
+
"i659"
+
"i657"
+
"i655"
+
"i653"
+
"i652"
+
"i650"
+
"i648"
+
"i647"
+
"i646"
+
"i644"
+
"i643"
+
"i641"
+
"i639"
+
"i637"
+
"i635"
+
"i633"
+
"i631"
+
"i629"
+
"i627"
+
"i625"
+
"i623"
+
"i621"
+
"i619"
+
"i617"
+
"i615"
+
"i613"
+
"i611"
+
"i609"
+
"i607"
+
"i605"
+
"i603"
+
"i601"
+
"i599"
+
"i597"
+
"i595"
+
"i593"
+
"i591"
+
"i589"
+
"i587"
+
"i585"
+
"i583"
+
"i581"
+
"i579"
+
"i578"
+
"i576"
+
"i574"
+
"i572"
+
"i570"
+
"i568"
+
"i566"
+
"i564"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i10952"
-
"i10950")))
+
("i467"
+
"i465")))
(hygiene
guile))
#(syntax-object
@@ -4575,8 +4549,8 @@
name)
#((top)
(top))
-
#("i12656"
-
"i12657"))
+
#("i2171"
+
"i2172"))
#(ribcage
()
()
@@ -4598,12 +4572,12 @@
(top)
(top)
(top))
-
#("i12586"
-
"i12587"
-
"i12588"
-
"i12589"
-
"i12590"
-
"i12591"))
+
#("i2101"
+
"i2102"
+
"i2103"
+
"i2104"
+
"i2105"
+
"i2106"))
#(ribcage
()
()
@@ -4611,7 +4585,7 @@
#(ribcage
#(first)
#((top))
-
#("i12578"))
+
#("i2093"))
#(ribcage
()
()
@@ -4639,13 +4613,13 @@
(top)
(top)
(top))
-
#("i12555"
-
"i12556"
-
"i12557"
-
"i12558"
-
"i12559"
-
"i12560"
-
"i12561"))
+
#("i2070"
+
"i2071"
+
"i2072"
+
"i2073"
+
"i2074"
+
"i2075"
+
"i2076"))
#(ribcage
(lambda-var-list
gen-var
@@ -4881,130 +4855,130 @@
(top)
(top)
(top))
-
("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"))
+
("i780"
+
"i778"
+
"i776"
+
"i774"
+
"i772"
+
"i770"
+
"i768"
+
"i766"
+
"i764"
+
"i762"
+
"i760"
+
"i758"
+
"i756"
+
"i754"
+
"i752"
+
"i750"
+
"i748"
+
"i746"
+
"i744"
+
"i742"
+
"i740"
+
"i738"
+
"i736"
+
"i734"
+
"i732"
+
"i730"
+
"i728"
+
"i726"
+
"i724"
+
"i722"
+
"i720"
+
"i718"
+
"i716"
+
"i714"
+
"i712"
+
"i710"
+
"i709"
+
"i708"
+
"i706"
+
"i705"
+
"i704"
+
"i703"
+
"i702"
+
"i700"
+
"i698"
+
"i696"
+
"i694"
+
"i692"
+
"i690"
+
"i688"
+
"i686"
+
"i683"
+
"i681"
+
"i680"
+
"i679"
+
"i678"
+
"i677"
+
"i676"
+
"i674"
+
"i672"
+
"i670"
+
"i668"
+
"i667"
+
"i665"
+
"i663"
+
"i661"
+
"i659"
+
"i657"
+
"i655"
+
"i653"
+
"i652"
+
"i650"
+
"i648"
+
"i647"
+
"i646"
+
"i644"
+
"i643"
+
"i641"
+
"i639"
+
"i637"
+
"i635"
+
"i633"
+
"i631"
+
"i629"
+
"i627"
+
"i625"
+
"i623"
+
"i621"
+
"i619"
+
"i617"
+
"i615"
+
"i613"
+
"i611"
+
"i609"
+
"i607"
+
"i605"
+
"i603"
+
"i601"
+
"i599"
+
"i597"
+
"i595"
+
"i593"
+
"i591"
+
"i589"
+
"i587"
+
"i585"
+
"i583"
+
"i581"
+
"i579"
+
"i578"
+
"i576"
+
"i574"
+
"i572"
+
"i570"
+
"i568"
+
"i566"
+
"i564"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i10952"
-
"i10950")))
+
("i467"
+
"i465")))
(hygiene
guile))
#(syntax-object
@@ -5015,8 +4989,8 @@
name)
#((top)
(top))
-
#("i12656"
-
"i12657"))
+
#("i2171"
+
"i2172"))
#(ribcage
()
()
@@ -5038,12 +5012,12 @@
(top)
(top)
(top))
-
#("i12586"
-
"i12587"
-
"i12588"
-
"i12589"
-
"i12590"
-
"i12591"))
+
#("i2101"
+
"i2102"
+
"i2103"
+
"i2104"
+
"i2105"
+
"i2106"))
#(ribcage
()
()
@@ -5051,7 +5025,7 @@
#(ribcage
#(first)
#((top))
-
#("i12578"))
+
#("i2093"))
#(ribcage
()
()
@@ -5079,13 +5053,13 @@
(top)
(top)
(top))
-
#("i12555"
-
"i12556"
-
"i12557"
-
"i12558"
-
"i12559"
-
"i12560"
-
"i12561"))
+
#("i2070"
+
"i2071"
+
"i2072"
+
"i2073"
+
"i2074"
+
"i2075"
+
"i2076"))
#(ribcage
(lambda-var-list
gen-var
@@ -5321,232 +5295,231 @@
(top)
(top)
(top))
-
("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"))
+
("i780"
+
"i778"
+
"i776"
+
"i774"
+
"i772"
+
"i770"
+
"i768"
+
"i766"
+
"i764"
+
"i762"
+
"i760"
+
"i758"
+
"i756"
+
"i754"
+
"i752"
+
"i750"
+
"i748"
+
"i746"
+
"i744"
+
"i742"
+
"i740"
+
"i738"
+
"i736"
+
"i734"
+
"i732"
+
"i730"
+
"i728"
+
"i726"
+
"i724"
+
"i722"
+
"i720"
+
"i718"
+
"i716"
+
"i714"
+
"i712"
+
"i710"
+
"i709"
+
"i708"
+
"i706"
+
"i705"
+
"i704"
+
"i703"
+
"i702"
+
"i700"
+
"i698"
+
"i696"
+
"i694"
+
"i692"
+
"i690"
+
"i688"
+
"i686"
+
"i683"
+
"i681"
+
"i680"
+
"i679"
+
"i678"
+
"i677"
+
"i676"
+
"i674"
+
"i672"
+
"i670"
+
"i668"
+
"i667"
+
"i665"
+
"i663"
+
"i661"
+
"i659"
+
"i657"
+
"i655"
+
"i653"
+
"i652"
+
"i650"
+
"i648"
+
"i647"
+
"i646"
+
"i644"
+
"i643"
+
"i641"
+
"i639"
+
"i637"
+
"i635"
+
"i633"
+
"i631"
+
"i629"
+
"i627"
+
"i625"
+
"i623"
+
"i621"
+
"i619"
+
"i617"
+
"i615"
+
"i613"
+
"i611"
+
"i609"
+
"i607"
+
"i605"
+
"i603"
+
"i601"
+
"i599"
+
"i597"
+
"i595"
+
"i593"
+
"i591"
+
"i589"
+
"i587"
+
"i585"
+
"i583"
+
"i581"
+
"i579"
+
"i578"
+
"i576"
+
"i574"
+
"i572"
+
"i570"
+
"i568"
+
"i566"
+
"i564"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i10952"
-
"i10950")))
+
("i467"
+
"i465")))
(hygiene
guile)))
'(())
- #{s\
12551}#
- #{mod\
12553}#))
- #{tmp\
12651}#)
+ #{s\
2066}#
+ #{mod\
2068}#))
+ #{tmp\
2166}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\
12612}#)))
+ #{tmp\ 2127}#)))
($sc-dispatch
- #{tmp\ 12612}#
+ #{tmp\ 2127}#
'(any any)))))
($sc-dispatch
- #{tmp\ 12612}#
+ #{tmp\ 2127}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 12612}#
+ #{tmp\ 2127}#
'(any any any))))
- #{e\ 12548}#)
- (if (memv #{ftype\ 12580}#
+ #{e\ 2063}#)
+ (if (memv #{ftype\ 2095}#
'(define-syntax))
- ((lambda (#{tmp\ 12662}#)
- ((lambda (#{tmp\ 12663}#)
- (if (if #{tmp\ 12663}#
- (apply (lambda (#{_\
12667}#
-
#{name\ 12668}#
-
#{val\ 12669}#)
- (#{id?\
11151}#
- #{name\
12668}#))
- #{tmp\ 12663}#)
+ ((lambda (#{tmp\ 2177}#)
+ ((lambda (#{tmp\ 2178}#)
+ (if (if #{tmp\ 2178}#
+ (apply (lambda (#{_\
2182}#
+
#{name\ 2183}#
+
#{val\ 2184}#)
+ (#{id?\ 666}#
+ #{name\
2183}#))
+ #{tmp\ 2178}#)
#f)
- (apply (lambda (#{_\
12673}#
- #{name\
12674}#
- #{val\
12675}#)
+ (apply (lambda (#{_\
2188}#
+ #{name\
2189}#
+ #{val\
2190}#)
(values
'define-syntax-form
- #{name\ 12674}#
- #{val\ 12675}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\
12553}#))
- #{tmp\ 12663}#)
+ #{name\ 2189}#
+ #{val\ 2190}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#))
+ #{tmp\ 2178}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 12662}#)))
+ #{tmp\ 2177}#)))
($sc-dispatch
- #{tmp\ 12662}#
+ #{tmp\ 2177}#
'(any any any))))
- #{e\ 12548}#)
+ #{e\ 2063}#)
(values
'call
#f
- #{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}#)
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#))))))))))))))
+ (if (#{syntax-object?\ 630}# #{e\ 2063}#)
+ (#{syntax-type\ 747}#
+ (#{syntax-object-expression\ 632}# #{e\ 2063}#)
+ #{r\ 2064}#
+ (#{join-wraps\ 717}#
+ #{w\ 2065}#
+ (#{syntax-object-wrap\ 634}# #{e\ 2063}#))
+ #{s\ 2066}#
+ #{rib\ 2067}#
+ (let ((#{t\ 2196}#
+ (#{syntax-object-module\ 636}# #{e\ 2063}#)))
+ (if #{t\ 2196}# #{t\ 2196}# #{mod\ 2068}#))
+ #{for-car?\ 2069}#)
+ (if (self-evaluating? #{e\ 2063}#)
(values
'constant
#f
- #{e\ 12548}#
- #{w\ 12550}#
- #{s\ 12551}#
- #{mod\ 12553}#)
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)
(values
'other
#f
- #{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}#
+ #{e\ 2063}#
+ #{w\ 2065}#
+ #{s\ 2066}#
+ #{mod\ 2068}#)))))))
+ (#{chi-when-list\ 745}#
+ (lambda (#{e\ 2201}# #{when-list\ 2202}# #{w\ 2203}#)
+ (letrec ((#{f\ 2210}#
+ (lambda (#{when-list\ 2211}# #{situations\ 2212}#)
+ (if (null? #{when-list\ 2211}#)
+ #{situations\ 2212}#
+ (#{f\ 2210}#
+ (cdr #{when-list\ 2211}#)
+ (cons (let ((#{x\ 2214}#
+ (car #{when-list\ 2211}#)))
+ (if (#{free-id=?\ 725}#
+ #{x\ 2214}#
'#(syntax-object
compile
((top)
@@ -5556,21 +5529,17 @@
#(ribcage
#(x)
#((top))
- #("i12698"))
+ #("i2213"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i12692"
- "i12693"
- "i12694"))
+ #("i2207" "i2208" "i2209"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i12689"
- "i12690"
- "i12691"))
+ #("i2204" "i2205" "i2206"))
#(ribcage
(lambda-var-list
gen-var
@@ -5806,131 +5775,131 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i10952" "i10950")))
+ ("i467" "i465")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 11210}#
- #{x\ 12699}#
+ (if (#{free-id=?\ 725}#
+ #{x\ 2214}#
'#(syntax-object
load
((top)
@@ -5940,21 +5909,21 @@
#(ribcage
#(x)
#((top))
- #("i12698"))
+ #("i2213"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i12692"
- "i12693"
- "i12694"))
+ #("i2207"
+ "i2208"
+ "i2209"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i12689"
- "i12690"
- "i12691"))
+ #("i2204"
+ "i2205"
+ "i2206"))
#(ribcage
(lambda-var-list
gen-var
@@ -6190,132 +6159,132 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i10952" "i10950")))
+ ("i467" "i465")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 11210}#
- #{x\ 12699}#
+ (if (#{free-id=?\ 725}#
+ #{x\ 2214}#
'#(syntax-object
eval
((top)
@@ -6325,23 +6294,23 @@
#(ribcage
#(x)
#((top))
- #("i12698"))
+ #("i2213"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i12692"
- "i12693"
- "i12694"))
+ #("i2207"
+ "i2208"
+ "i2209"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i12689"
- "i12690"
- "i12691"))
+ #("i2204"
+ "i2205"
+ "i2206"))
#(ribcage
(lambda-var-list
gen-var
@@ -6577,132 +6546,132 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i10952" "i10950")))
+ ("i467" "i465")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 11210}#
- #{x\ 12699}#
+ (if (#{free-id=?\ 725}#
+ #{x\ 2214}#
'#(syntax-object
expand
((top)
@@ -6712,23 +6681,23 @@
#(ribcage
#(x)
#((top))
- #("i12698"))
+ #("i2213"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i12692"
- "i12693"
- "i12694"))
+ #("i2207"
+ "i2208"
+ "i2209"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i12689"
- "i12690"
- "i12691"))
+ #("i2204"
+ "i2205"
+ "i2206"))
#(ribcage
(lambda-var-list
gen-var
@@ -6964,2536 +6933,2465 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i10952" "i10950")))
+ ("i467" "i465")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 12686}#
- (#{wrap\ 11220}#
- #{x\ 12699}#
- #{w\ 12688}#
+ #{e\ 2201}#
+ (#{wrap\ 735}#
+ #{x\ 2214}#
+ #{w\ 2203}#
#f)))))))
- #{situations\ 12697}#))))))
- (#{f\ 12695}# #{when-list\ 12687}# (quote ())))))
- (#{chi-install-global\ 11228}#
- (lambda (#{name\ 12709}# #{e\ 12710}#)
- (#{build-global-definition\ 11091}#
+ #{situations\ 2212}#))))))
+ (#{f\ 2210}# #{when-list\ 2202}# (quote ())))))
+ (#{chi-install-global\ 743}#
+ (lambda (#{name\ 2224}# #{e\ 2225}#)
+ (#{build-global-definition\ 606}#
#f
- #{name\ 12709}#
- (#{build-application\ 11073}#
+ #{name\ 2224}#
+ (#{build-application\ 588}#
#f
- (#{build-primref\ 11099}#
+ (#{build-primref\ 614}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 11101}# #f #{name\ 12709}#)
- (#{build-data\ 11101}# #f (quote macro))
- (#{build-application\ 11073}#
+ (list (#{build-data\ 616}# #f #{name\ 2224}#)
+ (#{build-data\ 616}# #f (quote macro))
+ (#{build-application\ 588}#
#f
- (#{build-primref\ 11099}# #f (quote cons))
- (list #{e\ 12710}#
- (#{build-application\ 11073}#
+ (#{build-primref\ 614}# #f (quote cons))
+ (list #{e\ 2225}#
+ (#{build-application\ 588}#
#f
- (#{build-primref\ 11099}#
+ (#{build-primref\ 614}#
#f
'module-name)
- (list (#{build-application\ 11073}#
+ (list (#{build-application\ 588}#
#f
- (#{build-primref\ 11099}#
+ (#{build-primref\ 614}#
#f
'current-module)
'()))))))))))
- (#{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-top-sequence\ 741}#
+ (lambda (#{body\ 2239}#
+ #{r\ 2240}#
+ #{w\ 2241}#
+ #{s\ 2242}#
+ #{m\ 2243}#
+ #{esew\ 2244}#
+ #{mod\ 2245}#)
+ (#{build-sequence\ 618}#
+ #{s\ 2242}#
+ (letrec ((#{dobody\ 2261}#
+ (lambda (#{body\ 2262}#
+ #{r\ 2263}#
+ #{w\ 2264}#
+ #{m\ 2265}#
+ #{esew\ 2266}#
+ #{mod\ 2267}#
+ #{out\ 2268}#)
+ (if (null? #{body\ 2262}#)
+ (reverse #{out\ 2268}#)
+ (#{dobody\ 2261}#
+ (cdr #{body\ 2262}#)
+ #{r\ 2263}#
+ #{w\ 2264}#
+ #{m\ 2265}#
+ #{esew\ 2266}#
+ #{mod\ 2267}#
+ (cons (#{chi-top\ 749}#
+ (car #{body\ 2262}#)
+ #{r\ 2263}#
+ #{w\ 2264}#
+ #{m\ 2265}#
+ #{esew\ 2266}#
+ #{mod\ 2267}#)
+ #{out\ 2268}#))))))
+ (#{dobody\ 2261}#
+ #{body\ 2239}#
+ #{r\ 2240}#
+ #{w\ 2241}#
+ #{m\ 2243}#
+ #{esew\ 2244}#
+ #{mod\ 2245}#
'())))))
- (#{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}#)
+ (#{chi-sequence\ 739}#
+ (lambda (#{body\ 2269}#
+ #{r\ 2270}#
+ #{w\ 2271}#
+ #{s\ 2272}#
+ #{mod\ 2273}#)
+ (#{build-sequence\ 618}#
+ #{s\ 2272}#
+ (letrec ((#{dobody\ 2284}#
+ (lambda (#{body\ 2285}#
+ #{r\ 2286}#
+ #{w\ 2287}#
+ #{mod\ 2288}#)
+ (if (null? #{body\ 2285}#)
'()
- (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}#))
+ (let ((#{first\ 2290}#
+ (#{chi\ 751}#
+ (car #{body\ 2285}#)
+ #{r\ 2286}#
+ #{w\ 2287}#
+ #{mod\ 2288}#)))
+ (cons #{first\ 2290}#
+ (#{dobody\ 2284}#
+ (cdr #{body\ 2285}#)
+ #{r\ 2286}#
+ #{w\ 2287}#
+ #{mod\ 2288}#)))))))
+ (#{dobody\ 2284}#
+ #{body\ 2269}#
+ #{r\ 2270}#
+ #{w\ 2271}#
+ #{mod\ 2273}#)))))
+ (#{source-wrap\ 737}#
+ (lambda (#{x\ 2291}#
+ #{w\ 2292}#
+ #{s\ 2293}#
+ #{defmod\ 2294}#)
+ (#{wrap\ 735}#
+ (#{decorate-source\ 584}#
+ #{x\ 2291}#
+ #{s\ 2293}#)
+ #{w\ 2292}#
+ #{defmod\ 2294}#)))
+ (#{wrap\ 735}#
+ (lambda (#{x\ 2299}# #{w\ 2300}# #{defmod\ 2301}#)
+ (if (if (null? (#{wrap-marks\ 673}# #{w\ 2300}#))
+ (null? (#{wrap-subst\ 675}# #{w\ 2300}#))
#f)
- #{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}#))))
+ #{x\ 2299}#
+ (if (#{syntax-object?\ 630}# #{x\ 2299}#)
+ (#{make-syntax-object\ 628}#
+ (#{syntax-object-expression\ 632}# #{x\ 2299}#)
+ (#{join-wraps\ 717}#
+ #{w\ 2300}#
+ (#{syntax-object-wrap\ 634}# #{x\ 2299}#))
+ (#{syntax-object-module\ 636}# #{x\ 2299}#))
+ (if (null? #{x\ 2299}#)
+ #{x\ 2299}#
+ (#{make-syntax-object\ 628}#
+ #{x\ 2299}#
+ #{w\ 2300}#
+ #{defmod\ 2301}#))))))
+ (#{bound-id-member?\ 733}#
+ (lambda (#{x\ 2314}# #{list\ 2315}#)
+ (if (not (null? #{list\ 2315}#))
+ (let ((#{t\ 2322}#
+ (#{bound-id=?\ 727}#
+ #{x\ 2314}#
+ (car #{list\ 2315}#))))
+ (if #{t\ 2322}#
+ #{t\ 2322}#
+ (#{bound-id-member?\ 733}#
+ #{x\ 2314}#
+ (cdr #{list\ 2315}#))))
#f)))
- (#{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}#))
+ (#{distinct-bound-ids?\ 731}#
+ (lambda (#{ids\ 2324}#)
+ (letrec ((#{distinct?\ 2328}#
+ (lambda (#{ids\ 2329}#)
+ (let ((#{t\ 2332}# (null? #{ids\ 2329}#)))
+ (if #{t\ 2332}#
+ #{t\ 2332}#
+ (if (not (#{bound-id-member?\ 733}#
+ (car #{ids\ 2329}#)
+ (cdr #{ids\ 2329}#)))
+ (#{distinct?\ 2328}# (cdr #{ids\ 2329}#))
#f))))))
- (#{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}#))
+ (#{distinct?\ 2328}# #{ids\ 2324}#))))
+ (#{valid-bound-ids?\ 729}#
+ (lambda (#{ids\ 2336}#)
+ (if (letrec ((#{all-ids?\ 2341}#
+ (lambda (#{ids\ 2342}#)
+ (let ((#{t\ 2345}# (null? #{ids\ 2342}#)))
+ (if #{t\ 2345}#
+ #{t\ 2345}#
+ (if (#{id?\ 666}# (car #{ids\ 2342}#))
+ (#{all-ids?\ 2341}# (cdr #{ids\ 2342}#))
#f))))))
- (#{all-ids?\ 12826}# #{ids\ 12821}#))
- (#{distinct-bound-ids?\ 11216}# #{ids\ 12821}#)
+ (#{all-ids?\ 2341}# #{ids\ 2336}#))
+ (#{distinct-bound-ids?\ 731}# #{ids\ 2336}#)
#f)))
- (#{bound-id=?\ 11212}#
- (lambda (#{i\ 12835}# #{j\ 12836}#)
- (if (if (#{syntax-object?\ 11115}# #{i\ 12835}#)
- (#{syntax-object?\ 11115}# #{j\ 12836}#)
+ (#{bound-id=?\ 727}#
+ (lambda (#{i\ 2350}# #{j\ 2351}#)
+ (if (if (#{syntax-object?\ 630}# #{i\ 2350}#)
+ (#{syntax-object?\ 630}# #{j\ 2351}#)
#f)
- (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}#)))
+ (if (eq? (#{syntax-object-expression\ 632}# #{i\ 2350}#)
+ (#{syntax-object-expression\ 632}# #{j\ 2351}#))
+ (#{same-marks?\ 721}#
+ (#{wrap-marks\ 673}#
+ (#{syntax-object-wrap\ 634}# #{i\ 2350}#))
+ (#{wrap-marks\ 673}#
+ (#{syntax-object-wrap\ 634}# #{j\ 2351}#)))
#f)
- (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}#
- '(())))
+ (eq? #{i\ 2350}# #{j\ 2351}#))))
+ (#{free-id=?\ 725}#
+ (lambda (#{i\ 2358}# #{j\ 2359}#)
+ (if (eq? (let ((#{x\ 2365}# #{i\ 2358}#))
+ (if (#{syntax-object?\ 630}# #{x\ 2365}#)
+ (#{syntax-object-expression\ 632}# #{x\ 2365}#)
+ #{x\ 2365}#))
+ (let ((#{x\ 2368}# #{j\ 2359}#))
+ (if (#{syntax-object?\ 630}# #{x\ 2368}#)
+ (#{syntax-object-expression\ 632}# #{x\ 2368}#)
+ #{x\ 2368}#)))
+ (eq? (#{id-var-name\ 723}# #{i\ 2358}# (quote (())))
+ (#{id-var-name\ 723}# #{j\ 2359}# (quote (()))))
#f)))
- (#{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}#)
+ (#{id-var-name\ 723}#
+ (lambda (#{id\ 2372}# #{w\ 2373}#)
+ (letrec ((#{search-vector-rib\ 2382}#
+ (lambda (#{sym\ 2394}#
+ #{subst\ 2395}#
+ #{marks\ 2396}#
+ #{symnames\ 2397}#
+ #{ribcage\ 2398}#)
+ (let ((#{n\ 2405}#
+ (vector-length #{symnames\ 2397}#)))
+ (letrec ((#{f\ 2408}#
+ (lambda (#{i\ 2409}#)
+ (if (#{fx=\ 571}#
+ #{i\ 2409}#
+ #{n\ 2405}#)
+ (#{search\ 2378}#
+ #{sym\ 2394}#
+ (cdr #{subst\ 2395}#)
+ #{marks\ 2396}#)
(if (if (eq? (vector-ref
- #{symnames\ 12882}#
- #{i\ 12894}#)
- #{sym\ 12879}#)
- (#{same-marks?\ 11206}#
- #{marks\ 12881}#
+ #{symnames\ 2397}#
+ #{i\ 2409}#)
+ #{sym\ 2394}#)
+ (#{same-marks?\ 721}#
+ #{marks\ 2396}#
(vector-ref
- (#{ribcage-marks\
11178}#
- #{ribcage\ 12883}#)
- #{i\ 12894}#))
+ (#{ribcage-marks\ 693}#
+ #{ribcage\ 2398}#)
+ #{i\ 2409}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 11180}#
- #{ribcage\ 12883}#)
- #{i\ 12894}#)
- #{marks\ 12881}#)
- (#{f\ 12893}#
- (#{fx+\ 11052}#
- #{i\ 12894}#
+ (#{ribcage-labels\ 695}#
+ #{ribcage\ 2398}#)
+ #{i\ 2409}#)
+ #{marks\ 2396}#)
+ (#{f\ 2408}#
+ (#{fx+\ 567}#
+ #{i\ 2409}#
1)))))))
- (#{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}#
+ (#{f\ 2408}# 0)))))
+ (#{search-list-rib\ 2380}#
+ (lambda (#{sym\ 2417}#
+ #{subst\ 2418}#
+ #{marks\ 2419}#
+ #{symnames\ 2420}#
+ #{ribcage\ 2421}#)
+ (letrec ((#{f\ 2430}#
+ (lambda (#{symnames\ 2431}# #{i\ 2432}#)
+ (if (null? #{symnames\ 2431}#)
+ (#{search\ 2378}#
+ #{sym\ 2417}#
+ (cdr #{subst\ 2418}#)
+ #{marks\ 2419}#)
+ (if (if (eq? (car #{symnames\
2431}#)
+ #{sym\ 2417}#)
+ (#{same-marks?\ 721}#
+ #{marks\ 2419}#
(list-ref
- (#{ribcage-marks\ 11178}#
- #{ribcage\ 12906}#)
- #{i\ 12917}#))
+ (#{ribcage-marks\ 693}#
+ #{ribcage\ 2421}#)
+ #{i\ 2432}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 11180}#
- #{ribcage\ 12906}#)
- #{i\ 12917}#)
- #{marks\ 12904}#)
- (#{f\ 12915}#
- (cdr #{symnames\ 12916}#)
- (#{fx+\ 11052}#
- #{i\ 12917}#
+ (#{ribcage-labels\ 695}#
+ #{ribcage\ 2421}#)
+ #{i\ 2432}#)
+ #{marks\ 2419}#)
+ (#{f\ 2430}#
+ (cdr #{symnames\ 2431}#)
+ (#{fx+\ 567}#
+ #{i\ 2432}#
1)))))))
- (#{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}#
+ (#{f\ 2430}# #{symnames\ 2420}# 0))))
+ (#{search\ 2378}#
+ (lambda (#{sym\ 2440}#
+ #{subst\ 2441}#
+ #{marks\ 2442}#)
+ (if (null? #{subst\ 2441}#)
+ (values #f #{marks\ 2442}#)
+ (let ((#{fst\ 2447}# (car #{subst\ 2441}#)))
+ (if (eq? #{fst\ 2447}# (quote shift))
+ (#{search\ 2378}#
+ #{sym\ 2440}#
+ (cdr #{subst\ 2441}#)
+ (cdr #{marks\ 2442}#))
+ (let ((#{symnames\ 2449}#
+ (#{ribcage-symnames\ 691}#
+ #{fst\ 2447}#)))
+ (if (vector? #{symnames\ 2449}#)
+ (#{search-vector-rib\ 2382}#
+ #{sym\ 2440}#
+ #{subst\ 2441}#
+ #{marks\ 2442}#
+ #{symnames\ 2449}#
+ #{fst\ 2447}#)
+ (#{search-list-rib\ 2380}#
+ #{sym\ 2440}#
+ #{subst\ 2441}#
+ #{marks\ 2442}#
+ #{symnames\ 2449}#
+ #{fst\ 2447}#)))))))))
+ (if (symbol? #{id\ 2372}#)
+ (let ((#{t\ 2452}#
(call-with-values
(lambda ()
- (#{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}#))))
+ (#{search\ 2378}#
+ #{id\ 2372}#
+ (#{wrap-subst\ 675}# #{w\ 2373}#)
+ (#{wrap-marks\ 673}# #{w\ 2373}#)))
+ (lambda (#{x\ 2454}# . #{ignore\ 2455}#)
+ #{x\ 2454}#))))
+ (if #{t\ 2452}# #{t\ 2452}# #{id\ 2372}#))
+ (if (#{syntax-object?\ 630}# #{id\ 2372}#)
+ (let ((#{id\ 2463}#
+ (#{syntax-object-expression\ 632}# #{id\ 2372}#))
+ (#{w1\ 2464}#
+ (#{syntax-object-wrap\ 634}# #{id\ 2372}#)))
+ (let ((#{marks\ 2466}#
+ (#{join-marks\ 719}#
+ (#{wrap-marks\ 673}# #{w\ 2373}#)
+ (#{wrap-marks\ 673}# #{w1\ 2464}#))))
(call-with-values
(lambda ()
- (#{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}#
+ (#{search\ 2378}#
+ #{id\ 2463}#
+ (#{wrap-subst\ 675}# #{w\ 2373}#)
+ #{marks\ 2466}#))
+ (lambda (#{new-id\ 2467}# #{marks\ 2468}#)
+ (let ((#{t\ 2473}# #{new-id\ 2467}#))
+ (if #{t\ 2473}#
+ #{t\ 2473}#
+ (let ((#{t\ 2476}#
(call-with-values
(lambda ()
- (#{search\ 12863}#
- #{id\ 12948}#
- (#{wrap-subst\ 11160}#
- #{w1\ 12949}#)
- #{marks\ 12953}#))
- (lambda (#{x\ 12963}#
+ (#{search\ 2378}#
+ #{id\ 2463}#
+ (#{wrap-subst\ 675}#
+ #{w1\ 2464}#)
+ #{marks\ 2468}#))
+ (lambda (#{x\ 2478}#
.
- #{ignore\ 12964}#)
- #{x\ 12963}#))))
- (if #{t\ 12961}#
- #{t\ 12961}#
- #{id\ 12948}#))))))))
+ #{ignore\ 2479}#)
+ #{x\ 2478}#))))
+ (if #{t\ 2476}#
+ #{t\ 2476}#
+ #{id\ 2463}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{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}#))
+ #{id\ 2372}#))))))
+ (#{same-marks?\ 721}#
+ (lambda (#{x\ 2484}# #{y\ 2485}#)
+ (let ((#{t\ 2490}# (eq? #{x\ 2484}# #{y\ 2485}#)))
+ (if #{t\ 2490}#
+ #{t\ 2490}#
+ (if (not (null? #{x\ 2484}#))
+ (if (not (null? #{y\ 2485}#))
+ (if (eq? (car #{x\ 2484}#) (car #{y\ 2485}#))
+ (#{same-marks?\ 721}#
+ (cdr #{x\ 2484}#)
+ (cdr #{y\ 2485}#))
#f)
#f)
#f)))))
- (#{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}#)))
+ (#{join-marks\ 719}#
+ (lambda (#{m1\ 2496}# #{m2\ 2497}#)
+ (#{smart-append\ 715}# #{m1\ 2496}# #{m2\ 2497}#)))
+ (#{join-wraps\ 717}#
+ (lambda (#{w1\ 2500}# #{w2\ 2501}#)
+ (let ((#{m1\ 2506}# (#{wrap-marks\ 673}# #{w1\ 2500}#))
+ (#{s1\ 2507}# (#{wrap-subst\ 675}# #{w1\ 2500}#)))
+ (if (null? #{m1\ 2506}#)
+ (if (null? #{s1\ 2507}#)
+ #{w2\ 2501}#
+ (#{make-wrap\ 671}#
+ (#{wrap-marks\ 673}# #{w2\ 2501}#)
+ (#{smart-append\ 715}#
+ #{s1\ 2507}#
+ (#{wrap-subst\ 675}# #{w2\ 2501}#))))
+ (#{make-wrap\ 671}#
+ (#{smart-append\ 715}#
+ #{m1\ 2506}#
+ (#{wrap-marks\ 673}# #{w2\ 2501}#))
+ (#{smart-append\ 715}#
+ #{s1\ 2507}#
+ (#{wrap-subst\ 675}# #{w2\ 2501}#)))))))
+ (#{smart-append\ 715}#
+ (lambda (#{m1\ 2508}# #{m2\ 2509}#)
+ (if (null? #{m2\ 2509}#)
+ #{m1\ 2508}#
+ (append #{m1\ 2508}# #{m2\ 2509}#))))
+ (#{make-binding-wrap\ 713}#
+ (lambda (#{ids\ 2512}# #{labels\ 2513}# #{w\ 2514}#)
+ (if (null? #{ids\ 2512}#)
+ #{w\ 2514}#
+ (#{make-wrap\ 671}#
+ (#{wrap-marks\ 673}# #{w\ 2514}#)
+ (cons (let ((#{labelvec\ 2519}#
+ (list->vector #{labels\ 2513}#)))
+ (let ((#{n\ 2521}#
+ (vector-length #{labelvec\ 2519}#)))
+ (let ((#{symnamevec\ 2524}#
+ (make-vector #{n\ 2521}#))
+ (#{marksvec\ 2525}#
+ (make-vector #{n\ 2521}#)))
(begin
- (letrec ((#{f\ 13014}#
- (lambda (#{ids\ 13015}#
- #{i\ 13016}#)
- (if (not (null? #{ids\ 13015}#))
+ (letrec ((#{f\ 2529}#
+ (lambda (#{ids\ 2530}# #{i\ 2531}#)
+ (if (not (null? #{ids\ 2530}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\
11154}#
- (car #{ids\ 13015}#)
- #{w\ 12999}#))
- (lambda (#{symname\ 13017}#
- #{marks\ 13018}#)
+ (#{id-sym-name&marks\ 669}#
+ (car #{ids\ 2530}#)
+ #{w\ 2514}#))
+ (lambda (#{symname\ 2532}#
+ #{marks\ 2533}#)
(begin
(vector-set!
- #{symnamevec\ 13009}#
- #{i\ 13016}#
- #{symname\ 13017}#)
+ #{symnamevec\ 2524}#
+ #{i\ 2531}#
+ #{symname\ 2532}#)
(vector-set!
- #{marksvec\ 13010}#
- #{i\ 13016}#
- #{marks\ 13018}#)
- (#{f\ 13014}#
- (cdr #{ids\ 13015}#)
- (#{fx+\ 11052}#
- #{i\ 13016}#
+ #{marksvec\ 2525}#
+ #{i\ 2531}#
+ #{marks\ 2533}#)
+ (#{f\ 2529}#
+ (cdr #{ids\ 2530}#)
+ (#{fx+\ 567}#
+ #{i\ 2531}#
1)))))))))
- (#{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}#)
+ (#{f\ 2529}# #{ids\ 2512}# 0))
+ (#{make-ribcage\ 687}#
+ #{symnamevec\ 2524}#
+ #{marksvec\ 2525}#
+ #{labelvec\ 2519}#)))))
+ (#{wrap-subst\ 675}# #{w\ 2514}#))))))
+ (#{extend-ribcage!\ 711}#
+ (lambda (#{ribcage\ 2536}# #{id\ 2537}# #{label\ 2538}#)
(begin
- (#{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}#))
+ (#{set-ribcage-symnames!\ 697}#
+ #{ribcage\ 2536}#
+ (cons (#{syntax-object-expression\ 632}# #{id\ 2537}#)
+ (#{ribcage-symnames\ 691}# #{ribcage\ 2536}#)))
+ (#{set-ribcage-marks!\ 699}#
+ #{ribcage\ 2536}#
+ (cons (#{wrap-marks\ 673}#
+ (#{syntax-object-wrap\ 634}# #{id\ 2537}#))
+ (#{ribcage-marks\ 693}# #{ribcage\ 2536}#)))
+ (#{set-ribcage-labels!\ 701}#
+ #{ribcage\ 2536}#
+ (cons #{label\ 2538}#
+ (#{ribcage-labels\ 695}# #{ribcage\ 2536}#))))))
+ (#{anti-mark\ 707}#
+ (lambda (#{w\ 2542}#)
+ (#{make-wrap\ 671}#
+ (cons #f (#{wrap-marks\ 673}# #{w\ 2542}#))
(cons 'shift
- (#{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))
+ (#{wrap-subst\ 675}# #{w\ 2542}#)))))
+ (#{set-ribcage-labels!\ 701}#
+ (lambda (#{x\ 2545}# #{update\ 2546}#)
+ (vector-set! #{x\ 2545}# 3 #{update\ 2546}#)))
+ (#{set-ribcage-marks!\ 699}#
+ (lambda (#{x\ 2549}# #{update\ 2550}#)
+ (vector-set! #{x\ 2549}# 2 #{update\ 2550}#)))
+ (#{set-ribcage-symnames!\ 697}#
+ (lambda (#{x\ 2553}# #{update\ 2554}#)
+ (vector-set! #{x\ 2553}# 1 #{update\ 2554}#)))
+ (#{ribcage-labels\ 695}#
+ (lambda (#{x\ 2557}#) (vector-ref #{x\ 2557}# 3)))
+ (#{ribcage-marks\ 693}#
+ (lambda (#{x\ 2559}#) (vector-ref #{x\ 2559}# 2)))
+ (#{ribcage-symnames\ 691}#
+ (lambda (#{x\ 2561}#) (vector-ref #{x\ 2561}# 1)))
+ (#{ribcage?\ 689}#
+ (lambda (#{x\ 2563}#)
+ (if (vector? #{x\ 2563}#)
+ (if (= (vector-length #{x\ 2563}#) 4)
+ (eq? (vector-ref #{x\ 2563}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 11172}#
- (lambda (#{symnames\ 13053}#
- #{marks\ 13054}#
- #{labels\ 13055}#)
+ (#{make-ribcage\ 687}#
+ (lambda (#{symnames\ 2568}#
+ #{marks\ 2569}#
+ #{labels\ 2570}#)
(vector
'ribcage
- #{symnames\ 13053}#
- #{marks\ 13054}#
- #{labels\ 13055}#)))
- (#{gen-labels\ 11169}#
- (lambda (#{ls\ 13059}#)
- (if (null? #{ls\ 13059}#)
+ #{symnames\ 2568}#
+ #{marks\ 2569}#
+ #{labels\ 2570}#)))
+ (#{gen-labels\ 684}#
+ (lambda (#{ls\ 2574}#)
+ (if (null? #{ls\ 2574}#)
'()
- (cons (#{gen-label\ 11167}#)
- (#{gen-labels\ 11169}# (cdr #{ls\ 13059}#))))))
- (#{gen-label\ 11167}#
+ (cons (#{gen-label\ 682}#)
+ (#{gen-labels\ 684}# (cdr #{ls\ 2574}#))))))
+ (#{gen-label\ 682}#
(lambda () (symbol->string (gensym "i"))))
- (#{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}#)
+ (#{wrap-subst\ 675}# cdr)
+ (#{wrap-marks\ 673}# car)
+ (#{make-wrap\ 671}# cons)
+ (#{id-sym-name&marks\ 669}#
+ (lambda (#{x\ 2576}# #{w\ 2577}#)
+ (if (#{syntax-object?\ 630}# #{x\ 2576}#)
(values
- (#{syntax-object-expression\ 11117}#
- #{x\ 13061}#)
- (#{join-marks\ 11204}#
- (#{wrap-marks\ 11158}# #{w\ 13062}#)
- (#{wrap-marks\ 11158}#
- (#{syntax-object-wrap\ 11119}# #{x\ 13061}#))))
+ (#{syntax-object-expression\ 632}# #{x\ 2576}#)
+ (#{join-marks\ 719}#
+ (#{wrap-marks\ 673}# #{w\ 2577}#)
+ (#{wrap-marks\ 673}#
+ (#{syntax-object-wrap\ 634}# #{x\ 2576}#))))
(values
- #{x\ 13061}#
- (#{wrap-marks\ 11158}# #{w\ 13062}#)))))
- (#{id?\ 11151}#
- (lambda (#{x\ 13065}#)
- (if (symbol? #{x\ 13065}#)
+ #{x\ 2576}#
+ (#{wrap-marks\ 673}# #{w\ 2577}#)))))
+ (#{id?\ 666}#
+ (lambda (#{x\ 2580}#)
+ (if (symbol? #{x\ 2580}#)
#t
- (if (#{syntax-object?\ 11115}# #{x\ 13065}#)
+ (if (#{syntax-object?\ 630}# #{x\ 2580}#)
(symbol?
- (#{syntax-object-expression\ 11117}#
- #{x\ 13065}#))
+ (#{syntax-object-expression\ 632}# #{x\ 2580}#))
#f))))
- (#{nonsymbol-id?\ 11149}#
- (lambda (#{x\ 13072}#)
- (if (#{syntax-object?\ 11115}# #{x\ 13072}#)
+ (#{nonsymbol-id?\ 664}#
+ (lambda (#{x\ 2587}#)
+ (if (#{syntax-object?\ 630}# #{x\ 2587}#)
(symbol?
- (#{syntax-object-expression\ 11117}#
- #{x\ 13072}#))
+ (#{syntax-object-expression\ 632}# #{x\ 2587}#))
#f)))
- (#{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))))
+ (#{global-extend\ 662}#
+ (lambda (#{type\ 2591}# #{sym\ 2592}# #{val\ 2593}#)
+ (#{put-global-definition-hook\ 580}#
+ #{sym\ 2592}#
+ #{type\ 2591}#
+ #{val\ 2593}#)))
+ (#{lookup\ 660}#
+ (lambda (#{x\ 2597}# #{r\ 2598}# #{mod\ 2599}#)
+ (let ((#{t\ 2605}# (assq #{x\ 2597}# #{r\ 2598}#)))
+ (if #{t\ 2605}#
+ (cdr #{t\ 2605}#)
+ (if (symbol? #{x\ 2597}#)
+ (let ((#{t\ 2611}#
+ (#{get-global-definition-hook\ 582}#
+ #{x\ 2597}#
+ #{mod\ 2599}#)))
+ (if #{t\ 2611}# #{t\ 2611}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 11143}#
- (lambda (#{r\ 13101}#)
- (if (null? #{r\ 13101}#)
+ (#{macros-only-env\ 658}#
+ (lambda (#{r\ 2616}#)
+ (if (null? #{r\ 2616}#)
'()
- (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))
+ (let ((#{a\ 2619}# (car #{r\ 2616}#)))
+ (if (eq? (cadr #{a\ 2619}#) (quote macro))
+ (cons #{a\ 2619}#
+ (#{macros-only-env\ 658}# (cdr #{r\ 2616}#)))
+ (#{macros-only-env\ 658}# (cdr #{r\ 2616}#)))))))
+ (#{extend-var-env\ 656}#
+ (lambda (#{labels\ 2620}# #{vars\ 2621}# #{r\ 2622}#)
+ (if (null? #{labels\ 2620}#)
+ #{r\ 2622}#
+ (#{extend-var-env\ 656}#
+ (cdr #{labels\ 2620}#)
+ (cdr #{vars\ 2621}#)
+ (cons (cons (car #{labels\ 2620}#)
+ (cons (quote lexical) (car #{vars\ 2621}#)))
+ #{r\ 2622}#)))))
+ (#{extend-env\ 654}#
+ (lambda (#{labels\ 2627}# #{bindings\ 2628}# #{r\ 2629}#)
+ (if (null? #{labels\ 2627}#)
+ #{r\ 2629}#
+ (#{extend-env\ 654}#
+ (cdr #{labels\ 2627}#)
+ (cdr #{bindings\ 2628}#)
+ (cons (cons (car #{labels\ 2627}#)
+ (car #{bindings\ 2628}#))
+ #{r\ 2629}#)))))
+ (#{binding-value\ 651}# cdr)
+ (#{binding-type\ 649}# car)
+ (#{source-annotation\ 645}#
+ (lambda (#{x\ 2633}#)
+ (if (#{syntax-object?\ 630}# #{x\ 2633}#)
+ (#{source-annotation\ 645}#
+ (#{syntax-object-expression\ 632}# #{x\ 2633}#))
+ (if (pair? #{x\ 2633}#)
+ (let ((#{props\ 2640}# (source-properties #{x\ 2633}#)))
+ (if (pair? #{props\ 2640}#) #{props\ 2640}# #f))
#f))))
- (#{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)
+ (#{set-syntax-object-module!\ 642}#
+ (lambda (#{x\ 2642}# #{update\ 2643}#)
+ (vector-set! #{x\ 2642}# 3 #{update\ 2643}#)))
+ (#{set-syntax-object-wrap!\ 640}#
+ (lambda (#{x\ 2646}# #{update\ 2647}#)
+ (vector-set! #{x\ 2646}# 2 #{update\ 2647}#)))
+ (#{set-syntax-object-expression!\ 638}#
+ (lambda (#{x\ 2650}# #{update\ 2651}#)
+ (vector-set! #{x\ 2650}# 1 #{update\ 2651}#)))
+ (#{syntax-object-module\ 636}#
+ (lambda (#{x\ 2654}#) (vector-ref #{x\ 2654}# 3)))
+ (#{syntax-object-wrap\ 634}#
+ (lambda (#{x\ 2656}#) (vector-ref #{x\ 2656}# 2)))
+ (#{syntax-object-expression\ 632}#
+ (lambda (#{x\ 2658}#) (vector-ref #{x\ 2658}# 1)))
+ (#{syntax-object?\ 630}#
+ (lambda (#{x\ 2660}#)
+ (if (vector? #{x\ 2660}#)
+ (if (= (vector-length #{x\ 2660}#) 4)
+ (eq? (vector-ref #{x\ 2660}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 11113}#
- (lambda (#{expression\ 13150}#
- #{wrap\ 13151}#
- #{module\ 13152}#)
+ (#{make-syntax-object\ 628}#
+ (lambda (#{expression\ 2665}#
+ #{wrap\ 2666}#
+ #{module\ 2667}#)
(vector
'syntax-object
- #{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)))
+ #{expression\ 2665}#
+ #{wrap\ 2666}#
+ #{module\ 2667}#)))
+ (#{build-letrec\ 624}#
+ (lambda (#{src\ 2671}#
+ #{ids\ 2672}#
+ #{vars\ 2673}#
+ #{val-exps\ 2674}#
+ #{body-exp\ 2675}#)
+ (if (null? #{vars\ 2673}#)
+ #{body-exp\ 2675}#
+ (let ((#{atom-key\ 2683}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2683}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 11089}#
- #{ids\ 13157}#
- #{val-exps\ 13159}#)
+ #{maybe-name-value!\ 604}#
+ #{ids\ 2672}#
+ #{val-exps\ 2674}#)
((@ (language tree-il) make-letrec)
- #{src\ 13156}#
- #{ids\ 13157}#
- #{vars\ 13158}#
- #{val-exps\ 13159}#
- #{body-exp\ 13160}#))
- (#{decorate-source\ 11069}#
+ #{src\ 2671}#
+ #{ids\ 2672}#
+ #{vars\ 2673}#
+ #{val-exps\ 2674}#
+ #{body-exp\ 2675}#))
+ (#{decorate-source\ 584}#
(list 'letrec
- (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}#
+ (map list #{vars\ 2673}# #{val-exps\ 2674}#)
+ #{body-exp\ 2675}#)
+ #{src\ 2671}#))))))
+ (#{build-named-let\ 622}#
+ (lambda (#{src\ 2687}#
+ #{ids\ 2688}#
+ #{vars\ 2689}#
+ #{val-exps\ 2690}#
+ #{body-exp\ 2691}#)
+ (let ((#{f\ 2701}# (car #{vars\ 2689}#))
+ (#{f-name\ 2702}# (car #{ids\ 2688}#))
+ (#{vars\ 2703}# (cdr #{vars\ 2689}#))
+ (#{ids\ 2704}# (cdr #{ids\ 2688}#)))
+ (let ((#{atom-key\ 2707}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2707}# (quote (c)))
+ (let ((#{proc\ 2710}#
+ (#{build-simple-lambda\ 608}#
+ #{src\ 2687}#
+ #{ids\ 2704}#
#f
- #{vars\ 13188}#
+ #{vars\ 2703}#
'()
- #{body-exp\ 13176}#)))
+ #{body-exp\ 2691}#)))
(begin
- (#{maybe-name-value!\ 11089}#
- #{f-name\ 13187}#
- #{proc\ 13195}#)
+ (#{maybe-name-value!\ 604}#
+ #{f-name\ 2702}#
+ #{proc\ 2710}#)
(for-each
- #{maybe-name-value!\ 11089}#
- #{ids\ 13189}#
- #{val-exps\ 13175}#)
+ #{maybe-name-value!\ 604}#
+ #{ids\ 2704}#
+ #{val-exps\ 2690}#)
((@ (language tree-il) make-letrec)
- #{src\ 13172}#
- (list #{f-name\ 13187}#)
- (list #{f\ 13186}#)
- (list #{proc\ 13195}#)
- (#{build-application\ 11073}#
- #{src\ 13172}#
- (#{build-lexical-reference\ 11079}#
+ #{src\ 2687}#
+ (list #{f-name\ 2702}#)
+ (list #{f\ 2701}#)
+ (list #{proc\ 2710}#)
+ (#{build-application\ 588}#
+ #{src\ 2687}#
+ (#{build-lexical-reference\ 594}#
'fun
- #{src\ 13172}#
- #{f-name\ 13187}#
- #{f\ 13186}#)
- #{val-exps\ 13175}#))))
- (#{decorate-source\ 11069}#
+ #{src\ 2687}#
+ #{f-name\ 2702}#
+ #{f\ 2701}#)
+ #{val-exps\ 2690}#))))
+ (#{decorate-source\ 584}#
(list 'letrec
- (list (list #{f\ 13186}#
+ (list (list #{f\ 2701}#
(list 'lambda
- #{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)))
+ #{vars\ 2703}#
+ #{body-exp\ 2691}#)))
+ (cons #{f\ 2701}# #{val-exps\ 2690}#))
+ #{src\ 2687}#))))))
+ (#{build-let\ 620}#
+ (lambda (#{src\ 2713}#
+ #{ids\ 2714}#
+ #{vars\ 2715}#
+ #{val-exps\ 2716}#
+ #{body-exp\ 2717}#)
+ (if (null? #{vars\ 2715}#)
+ #{body-exp\ 2717}#
+ (let ((#{atom-key\ 2725}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2725}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 11089}#
- #{ids\ 13199}#
- #{val-exps\ 13201}#)
+ #{maybe-name-value!\ 604}#
+ #{ids\ 2714}#
+ #{val-exps\ 2716}#)
((@ (language tree-il) make-let)
- #{src\ 13198}#
- #{ids\ 13199}#
- #{vars\ 13200}#
- #{val-exps\ 13201}#
- #{body-exp\ 13202}#))
- (#{decorate-source\ 11069}#
+ #{src\ 2713}#
+ #{ids\ 2714}#
+ #{vars\ 2715}#
+ #{val-exps\ 2716}#
+ #{body-exp\ 2717}#))
+ (#{decorate-source\ 584}#
(list 'let
- (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)))
+ (map list #{vars\ 2715}# #{val-exps\ 2716}#)
+ #{body-exp\ 2717}#)
+ #{src\ 2713}#))))))
+ (#{build-sequence\ 618}#
+ (lambda (#{src\ 2729}# #{exps\ 2730}#)
+ (if (null? (cdr #{exps\ 2730}#))
+ (car #{exps\ 2730}#)
+ (let ((#{atom-key\ 2735}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2735}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{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)))
+ #{src\ 2729}#
+ #{exps\ 2730}#)
+ (#{decorate-source\ 584}#
+ (cons (quote begin) #{exps\ 2730}#)
+ #{src\ 2729}#))))))
+ (#{build-data\ 616}#
+ (lambda (#{src\ 2739}# #{exp\ 2740}#)
+ (let ((#{atom-key\ 2745}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2745}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 13224}#
- #{exp\ 13225}#)
- (#{decorate-source\ 11069}#
- (if (if (self-evaluating? #{exp\ 13225}#)
- (not (vector? #{exp\ 13225}#))
+ #{src\ 2739}#
+ #{exp\ 2740}#)
+ (#{decorate-source\ 584}#
+ (if (if (self-evaluating? #{exp\ 2740}#)
+ (not (vector? #{exp\ 2740}#))
#f)
- #{exp\ 13225}#
- (list (quote quote) #{exp\ 13225}#))
- #{src\ 13224}#)))))
- (#{build-primref\ 11099}#
- (lambda (#{src\ 13235}# #{name\ 13236}#)
+ #{exp\ 2740}#
+ (list (quote quote) #{exp\ 2740}#))
+ #{src\ 2739}#)))))
+ (#{build-primref\ 614}#
+ (lambda (#{src\ 2750}# #{name\ 2751}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 13241}#
- (fluid-ref #{*mode*\ 11050}#)))
- (if (memv #{atom-key\ 13241}# (quote (c)))
+ (let ((#{atom-key\ 2756}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2756}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{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)))
+ #{src\ 2750}#
+ #{name\ 2751}#)
+ (#{decorate-source\ 584}#
+ #{name\ 2751}#
+ #{src\ 2750}#)))
+ (let ((#{atom-key\ 2761}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2761}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 13235}#
+ #{src\ 2750}#
'(guile)
- #{name\ 13236}#
+ #{name\ 2751}#
#f)
- (#{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)))
+ (#{decorate-source\ 584}#
+ (list (quote @@) (quote (guile)) #{name\ 2751}#)
+ #{src\ 2750}#))))))
+ (#{build-lambda-case\ 612}#
+ (lambda (#{src\ 2765}#
+ #{req\ 2766}#
+ #{opt\ 2767}#
+ #{rest\ 2768}#
+ #{kw\ 2769}#
+ #{inits\ 2770}#
+ #{vars\ 2771}#
+ #{body\ 2772}#
+ #{else-case\ 2773}#)
+ (let ((#{atom-key\ 2785}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2785}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{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}#)
+ #{src\ 2765}#
+ #{req\ 2766}#
+ #{opt\ 2767}#
+ #{rest\ 2768}#
+ #{kw\ 2769}#
+ #{inits\ 2770}#
+ #{vars\ 2771}#
+ #{body\ 2772}#
+ #{else-case\ 2773}#)
+ (let ((#{nreq\ 2790}# (length #{req\ 2766}#)))
+ (let ((#{nopt\ 2792}#
+ (if #{opt\ 2767}# (length #{opt\ 2767}#) 0)))
+ (let ((#{rest-idx\ 2794}#
+ (if #{rest\ 2768}#
+ (+ #{nreq\ 2790}# #{nopt\ 2792}#)
#f)))
- (let ((#{allow-other-keys?\ 13283}#
- (if #{kw\ 13254}# (car #{kw\ 13254}#) #f)))
- (let ((#{kw-indices\ 13285}#
- (map (lambda (#{x\ 13286}#)
- (cons (car #{x\ 13286}#)
+ (let ((#{allow-other-keys?\ 2798}#
+ (if #{kw\ 2769}# (car #{kw\ 2769}#) #f)))
+ (let ((#{kw-indices\ 2800}#
+ (map (lambda (#{x\ 2801}#)
+ (cons (car #{x\ 2801}#)
(list-index
- #{vars\ 13256}#
- (caddr #{x\ 13286}#))))
- (if #{kw\ 13254}#
- (cdr #{kw\ 13254}#)
+ #{vars\ 2771}#
+ (caddr #{x\ 2801}#))))
+ (if #{kw\ 2769}#
+ (cdr #{kw\ 2769}#)
'()))))
- (let ((#{nargs\ 13289}#
+ (let ((#{nargs\ 2804}#
(apply max
- (+ #{nreq\ 13275}#
- #{nopt\ 13277}#
- (if #{rest\ 13253}# 1 0))
+ (+ #{nreq\ 2790}#
+ #{nopt\ 2792}#
+ (if #{rest\ 2768}# 1 0))
(map 1+
(map cdr
- #{kw-indices\
13285}#)))))
+ #{kw-indices\ 2800}#)))))
(begin
- (let ((#{t\ 13292}#
- (= #{nargs\ 13289}#
- (length #{vars\ 13256}#)
- (+ #{nreq\ 13275}#
- (length #{inits\ 13255}#)
- (if #{rest\ 13253}# 1 0)))))
- (if #{t\ 13292}#
- #{t\ 13292}#
+ (let ((#{t\ 2807}#
+ (= #{nargs\ 2804}#
+ (length #{vars\ 2771}#)
+ (+ #{nreq\ 2790}#
+ (length #{inits\ 2770}#)
+ (if #{rest\ 2768}# 1 0)))))
+ (if #{t\ 2807}#
+ #{t\ 2807}#
(error "something went wrong"
- #{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\
13275}#
- #{nopt\
13277}#
-
#{rest-idx\ 13279}#
-
#{nargs\ 13289}#
-
#{allow-other-keys?\ 13283}#
-
#{kw-indices\ 13285}#))
- (cons (cons 'list
- (map
(lambda (#{i\ 13295}#)
-
(list 'lambda
-
#{vars\ 13256}#
-
#{i\ 13295}#))
-
#{inits\ 13255}#))
- '(%%args))))
- '=>
- (list 'lambda
- '(%%args)
- (cons 'apply
- (cons (list 'lambda
- #{vars\
13256}#
- #{body\
13257}#)
- '(%%args)))))
- (let ((#{t\ 13300}#
- #{else-case\ 13258}#))
- (if #{t\ 13300}#
- #{t\ 13300}#
- '((%%args
- (scm-error
- 'wrong-number-of-args
- #f
- "Wrong number of arguments"
- '()
- %%args))))))
- #{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)))
+ #{req\ 2766}#
+ #{opt\ 2767}#
+ #{rest\ 2768}#
+ #{kw\ 2769}#
+ #{inits\ 2770}#
+ #{vars\ 2771}#
+ #{nreq\ 2790}#
+ #{nopt\ 2792}#
+ #{kw-indices\ 2800}#
+ #{nargs\ 2804}#)))
+ (#{decorate-source\ 584}#
+ (cons (list (append
+ (list-head
+ #{vars\ 2771}#
+ #{nreq\ 2790}#)
+ (append
+ (if #{opt\ 2767}#
+ (cons #:optional
+ (map list
+ (list-head
+ (list-tail
+ #{vars\
2771}#
+ #{nreq\
2790}#)
+ #{nopt\
2792}#)
+ (list-head
+ #{inits\
2770}#
+ #{nopt\
2792}#)))
+ '())
+ (append
+ (if #{kw\ 2769}#
+ (cons #:key
+ (map (lambda
(#{x\ 2812}#
+
#{init\ 2813}#)
+ (list
(caddr #{x\ 2812}#)
+
#{init\ 2813}#
+ (car
#{x\ 2812}#)))
+ (cdr #{kw\
2769}#)
+ (list-tail
+ #{inits\
2770}#
+ #{nopt\
2792}#)))
+ '())
+ (append
+ (if
#{allow-other-keys?\ 2798}#
+ '(#:allow-other-keys)
+ '())
+ (if #{rest\ 2768}#
+ (list-ref
+ #{vars\ 2771}#
+ #{rest-idx\ 2794}#)
+ '())))))
+ #{body\ 2772}#)
+ (let ((#{t\ 2818}#
+ #{else-case\ 2773}#))
+ (if #{t\ 2818}#
+ #{t\ 2818}#
+ '())))
+ #{src\ 2765}#))))))))))))
+ (#{build-case-lambda\ 610}#
+ (lambda (#{src\ 2820}# #{meta\ 2821}# #{body\ 2822}#)
+ (let ((#{atom-key\ 2828}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2828}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 13303}#
- #{meta\ 13304}#
- #{body\ 13305}#)
- (#{decorate-source\ 11069}#
- (list 'lambda
- '%%args
- (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)))
+ #{src\ 2820}#
+ #{meta\ 2821}#
+ #{body\ 2822}#)
+ (#{decorate-source\ 584}#
+ (cons (quote case-lambda*) #{body\ 2822}#)
+ #{src\ 2820}#)))))
+ (#{build-simple-lambda\ 608}#
+ (lambda (#{src\ 2832}#
+ #{req\ 2833}#
+ #{rest\ 2834}#
+ #{vars\ 2835}#
+ #{meta\ 2836}#
+ #{exp\ 2837}#)
+ (let ((#{atom-key\ 2846}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2846}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 13315}#
- #{meta\ 13319}#
+ #{src\ 2832}#
+ #{meta\ 2836}#
((@ (language tree-il) make-lambda-case)
- #{src\ 13315}#
- #{req\ 13316}#
+ #{src\ 2832}#
+ #{req\ 2833}#
#f
- #{rest\ 13317}#
+ #{rest\ 2834}#
#f
'()
- #{vars\ 13318}#
- #{exp\ 13320}#
+ #{vars\ 2835}#
+ #{exp\ 2837}#
#f))
- (#{decorate-source\ 11069}#
+ (#{decorate-source\ 584}#
(list 'lambda
- (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)))
+ (if #{rest\ 2834}#
+ (apply cons* #{vars\ 2835}#)
+ #{vars\ 2835}#)
+ #{exp\ 2837}#)
+ #{src\ 2832}#)))))
+ (#{build-global-definition\ 606}#
+ (lambda (#{source\ 2850}# #{var\ 2851}# #{exp\ 2852}#)
+ (let ((#{atom-key\ 2858}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2858}# (quote (c)))
(begin
- (#{maybe-name-value!\ 11089}#
- #{var\ 13334}#
- #{exp\ 13335}#)
+ (#{maybe-name-value!\ 604}#
+ #{var\ 2851}#
+ #{exp\ 2852}#)
((@ (language tree-il) make-toplevel-define)
- #{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}#
+ #{source\ 2850}#
+ #{var\ 2851}#
+ #{exp\ 2852}#))
+ (#{decorate-source\ 584}#
+ (list (quote define) #{var\ 2851}# #{exp\ 2852}#)
+ #{source\ 2850}#)))))
+ (#{maybe-name-value!\ 604}#
+ (lambda (#{name\ 2862}# #{val\ 2863}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 2863}#)
+ (let ((#{meta\ 2869}#
((@ (language tree-il) lambda-meta)
- #{val\ 13346}#)))
- (if (not (assq (quote name) #{meta\ 13352}#))
+ #{val\ 2863}#)))
+ (if (not (assq (quote name) #{meta\ 2869}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 13346}#
+ #{val\ 2863}#
(acons 'name
- #{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)))
+ #{name\ 2862}#
+ #{meta\ 2869}#)))))))
+ (#{build-global-assignment\ 602}#
+ (lambda (#{source\ 2870}#
+ #{var\ 2871}#
+ #{exp\ 2872}#
+ #{mod\ 2873}#)
+ (#{analyze-variable\ 598}#
+ #{mod\ 2873}#
+ #{var\ 2871}#
+ (lambda (#{mod\ 2878}# #{var\ 2879}# #{public?\ 2880}#)
+ (let ((#{atom-key\ 2886}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2886}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 13353}#
- #{mod\ 13361}#
- #{var\ 13362}#
- #{public?\ 13363}#
- #{exp\ 13355}#)
- (#{decorate-source\ 11069}#
+ #{source\ 2870}#
+ #{mod\ 2878}#
+ #{var\ 2879}#
+ #{public?\ 2880}#
+ #{exp\ 2872}#)
+ (#{decorate-source\ 584}#
(list 'set!
- (list (if #{public?\ 13363}#
+ (list (if #{public?\ 2880}#
'@
'@@)
- #{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)))
+ #{mod\ 2878}#
+ #{var\ 2879}#)
+ #{exp\ 2872}#)
+ #{source\ 2870}#))))
+ (lambda (#{var\ 2890}#)
+ (let ((#{atom-key\ 2894}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2894}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{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)))
+ #{source\ 2870}#
+ #{var\ 2890}#
+ #{exp\ 2872}#)
+ (#{decorate-source\ 584}#
+ (list (quote set!) #{var\ 2890}# #{exp\ 2872}#)
+ #{source\ 2870}#)))))))
+ (#{build-global-reference\ 600}#
+ (lambda (#{source\ 2898}# #{var\ 2899}# #{mod\ 2900}#)
+ (#{analyze-variable\ 598}#
+ #{mod\ 2900}#
+ #{var\ 2899}#
+ (lambda (#{mod\ 2904}# #{var\ 2905}# #{public?\ 2906}#)
+ (let ((#{atom-key\ 2912}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2912}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{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)))
+ #{source\ 2898}#
+ #{mod\ 2904}#
+ #{var\ 2905}#
+ #{public?\ 2906}#)
+ (#{decorate-source\ 584}#
+ (list (if #{public?\ 2906}# (quote @) (quote @@))
+ #{mod\ 2904}#
+ #{var\ 2905}#)
+ #{source\ 2898}#))))
+ (lambda (#{var\ 2915}#)
+ (let ((#{atom-key\ 2919}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2919}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{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}#
+ #{source\ 2898}#
+ #{var\ 2915}#)
+ (#{decorate-source\ 584}#
+ #{var\ 2915}#
+ #{source\ 2898}#)))))))
+ (#{analyze-variable\ 598}#
+ (lambda (#{mod\ 2922}#
+ #{var\ 2923}#
+ #{modref-cont\ 2924}#
+ #{bare-cont\ 2925}#)
+ (if (not #{mod\ 2922}#)
+ (#{bare-cont\ 2925}# #{var\ 2923}#)
+ (let ((#{kind\ 2932}# (car #{mod\ 2922}#))
+ (#{mod\ 2933}# (cdr #{mod\ 2922}#)))
+ (if (memv #{kind\ 2932}# (quote (public)))
+ (#{modref-cont\ 2924}#
+ #{mod\ 2933}#
+ #{var\ 2923}#
#t)
- (if (memv #{kind\ 13415}# (quote (private)))
+ (if (memv #{kind\ 2932}# (quote (private)))
(if (not (equal?
- #{mod\ 13416}#
+ #{mod\ 2933}#
(module-name (current-module))))
- (#{modref-cont\ 13407}#
- #{mod\ 13416}#
- #{var\ 13406}#
+ (#{modref-cont\ 2924}#
+ #{mod\ 2933}#
+ #{var\ 2923}#
#f)
- (#{bare-cont\ 13408}# #{var\ 13406}#))
- (if (memv #{kind\ 13415}# (quote (bare)))
- (#{bare-cont\ 13408}# #{var\ 13406}#)
- (if (memv #{kind\ 13415}# (quote (hygiene)))
+ (#{bare-cont\ 2925}# #{var\ 2923}#))
+ (if (memv #{kind\ 2932}# (quote (bare)))
+ (#{bare-cont\ 2925}# #{var\ 2923}#)
+ (if (memv #{kind\ 2932}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 13416}#
+ #{mod\ 2933}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 13416}#)
- #{var\ 13406}#)
+ (resolve-module #{mod\ 2933}#)
+ #{var\ 2923}#)
#f)
- (#{modref-cont\ 13407}#
- #{mod\ 13416}#
- #{var\ 13406}#
+ (#{modref-cont\ 2924}#
+ #{mod\ 2933}#
+ #{var\ 2923}#
#f)
- (#{bare-cont\ 13408}# #{var\ 13406}#))
+ (#{bare-cont\ 2925}# #{var\ 2923}#))
(syntax-violation
#f
"bad module kind"
- #{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)))
+ #{var\ 2923}#
+ #{mod\ 2933}#)))))))))
+ (#{build-lexical-assignment\ 596}#
+ (lambda (#{source\ 2941}#
+ #{name\ 2942}#
+ #{var\ 2943}#
+ #{exp\ 2944}#)
+ (let ((#{atom-key\ 2951}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2951}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{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)))
+ #{source\ 2941}#
+ #{name\ 2942}#
+ #{var\ 2943}#
+ #{exp\ 2944}#)
+ (#{decorate-source\ 584}#
+ (list (quote set!) #{var\ 2943}# #{exp\ 2944}#)
+ #{source\ 2941}#)))))
+ (#{build-lexical-reference\ 594}#
+ (lambda (#{type\ 2955}#
+ #{source\ 2956}#
+ #{name\ 2957}#
+ #{var\ 2958}#)
+ (let ((#{atom-key\ 2965}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2965}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{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)))
+ #{source\ 2956}#
+ #{name\ 2957}#
+ #{var\ 2958}#)
+ (#{decorate-source\ 584}#
+ #{var\ 2958}#
+ #{source\ 2956}#)))))
+ (#{build-dynlet\ 592}#
+ (lambda (#{source\ 2968}#
+ #{fluids\ 2969}#
+ #{vals\ 2970}#
+ #{body\ 2971}#)
+ (let ((#{atom-key\ 2978}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2978}# (quote (c)))
((@ (language tree-il) make-dynlet)
- #{source\ 13451}#
- #{fluids\ 13452}#
- #{vals\ 13453}#
- #{body\ 13454}#)
- (#{decorate-source\ 11069}#
+ #{source\ 2968}#
+ #{fluids\ 2969}#
+ #{vals\ 2970}#
+ #{body\ 2971}#)
+ (#{decorate-source\ 584}#
(list 'with-fluids
- (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)))
+ (map list #{fluids\ 2969}# #{vals\ 2970}#)
+ #{body\ 2971}#)
+ #{source\ 2968}#)))))
+ (#{build-conditional\ 590}#
+ (lambda (#{source\ 2982}#
+ #{test-exp\ 2983}#
+ #{then-exp\ 2984}#
+ #{else-exp\ 2985}#)
+ (let ((#{atom-key\ 2992}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 2992}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 13465}#
- #{test-exp\ 13466}#
- #{then-exp\ 13467}#
- #{else-exp\ 13468}#)
- (#{decorate-source\ 11069}#
- (if (equal? #{else-exp\ 13468}# (quote (if #f #f)))
+ #{source\ 2982}#
+ #{test-exp\ 2983}#
+ #{then-exp\ 2984}#
+ #{else-exp\ 2985}#)
+ (#{decorate-source\ 584}#
+ (if (equal? #{else-exp\ 2985}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 13466}#
- #{then-exp\ 13467}#)
+ #{test-exp\ 2983}#
+ #{then-exp\ 2984}#)
(list 'if
- #{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)))
+ #{test-exp\ 2983}#
+ #{then-exp\ 2984}#
+ #{else-exp\ 2985}#))
+ #{source\ 2982}#)))))
+ (#{build-application\ 588}#
+ (lambda (#{source\ 2997}#
+ #{fun-exp\ 2998}#
+ #{arg-exps\ 2999}#)
+ (let ((#{atom-key\ 3005}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 3005}# (quote (c)))
((@ (language tree-il) make-application)
- #{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)))
+ #{source\ 2997}#
+ #{fun-exp\ 2998}#
+ #{arg-exps\ 2999}#)
+ (#{decorate-source\ 584}#
+ (cons #{fun-exp\ 2998}# #{arg-exps\ 2999}#)
+ #{source\ 2997}#)))))
+ (#{build-void\ 586}#
+ (lambda (#{source\ 3009}#)
+ (let ((#{atom-key\ 3013}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 3013}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 13492}#)
- (#{decorate-source\ 11069}#
+ #{source\ 3009}#)
+ (#{decorate-source\ 584}#
'(if #f #f)
- #{source\ 13492}#)))))
- (#{decorate-source\ 11069}#
- (lambda (#{e\ 13499}# #{s\ 13500}#)
+ #{source\ 3009}#)))))
+ (#{decorate-source\ 584}#
+ (lambda (#{e\ 3016}# #{s\ 3017}#)
(begin
- (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}#)
+ (if (if (pair? #{e\ 3016}#) #{s\ 3017}# #f)
+ (set-source-properties! #{e\ 3016}# #{s\ 3017}#))
+ #{e\ 3016}#)))
+ (#{get-global-definition-hook\ 582}#
+ (lambda (#{symbol\ 3022}# #{module\ 3023}#)
(begin
- (if (if (not #{module\ 13506}#) (current-module) #f)
+ (if (if (not #{module\ 3023}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 13505}#))
- (let ((#{v\ 13512}#
+ #{symbol\ 3022}#))
+ (let ((#{v\ 3029}#
(module-variable
- (if #{module\ 13506}#
- (resolve-module (cdr #{module\ 13506}#))
+ (if #{module\ 3023}#
+ (resolve-module (cdr #{module\ 3023}#))
(current-module))
- #{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}#))
+ #{symbol\ 3022}#)))
+ (if #{v\ 3029}#
+ (if (variable-bound? #{v\ 3029}#)
+ (let ((#{val\ 3034}# (variable-ref #{v\ 3029}#)))
+ (if (macro? #{val\ 3034}#)
+ (if (macro-type #{val\ 3034}#)
+ (cons (macro-type #{val\ 3034}#)
+ (macro-binding #{val\ 3034}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 11065}#
- (lambda (#{symbol\ 13521}#
- #{type\ 13522}#
- #{val\ 13523}#)
+ (#{put-global-definition-hook\ 580}#
+ (lambda (#{symbol\ 3038}# #{type\ 3039}# #{val\ 3040}#)
(module-define!
(current-module)
- #{symbol\ 13521}#
+ #{symbol\ 3038}#
(make-syntax-transformer
- #{symbol\ 13521}#
- #{type\ 13522}#
- #{val\ 13523}#))))
- (#{local-eval-hook\ 11062}#
- (lambda (#{x\ 13527}# #{mod\ 13528}#)
+ #{symbol\ 3038}#
+ #{type\ 3039}#
+ #{val\ 3040}#))))
+ (#{local-eval-hook\ 577}#
+ (lambda (#{x\ 3044}# #{mod\ 3045}#)
(primitive-eval
(memoize-expression
- (let ((#{atom-key\ 13533}#
- (fluid-ref #{*mode*\ 11050}#)))
- (if (memv #{atom-key\ 13533}# (quote (c)))
+ (let ((#{atom-key\ 3050}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 3050}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 13527}#)
- #{x\ 13527}#))))))
- (#{top-level-eval-hook\ 11060}#
- (lambda (#{x\ 13536}# #{mod\ 13537}#)
+ #{x\ 3044}#)
+ #{x\ 3044}#))))))
+ (#{top-level-eval-hook\ 575}#
+ (lambda (#{x\ 3053}# #{mod\ 3054}#)
(primitive-eval
(memoize-expression
- (let ((#{atom-key\ 13542}#
- (fluid-ref #{*mode*\ 11050}#)))
- (if (memv #{atom-key\ 13542}# (quote (c)))
+ (let ((#{atom-key\ 3059}# (fluid-ref #{*mode*\ 565}#)))
+ (if (memv #{atom-key\ 3059}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 13536}#)
- #{x\ 13536}#))))))
- (#{fx<\ 11058}# <)
- (#{fx=\ 11056}# =)
- (#{fx-\ 11054}# -)
- (#{fx+\ 11052}# +)
- (#{*mode*\ 11050}# (make-fluid)))
+ #{x\ 3053}#)
+ #{x\ 3053}#))))))
+ (#{fx<\ 573}# <)
+ (#{fx=\ 571}# =)
+ (#{fx-\ 569}# -)
+ (#{fx+\ 567}# +)
+ (#{*mode*\ 565}# (make-fluid)))
(begin
- (#{global-extend\ 11147}#
+ (#{global-extend\ 662}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 11147}#
+ (#{global-extend\ 662}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 11147}#
+ (#{global-extend\ 662}#
'core
'fluid-let-syntax
- (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}#)
+ (lambda (#{e\ 3062}#
+ #{r\ 3063}#
+ #{w\ 3064}#
+ #{s\ 3065}#
+ #{mod\ 3066}#)
+ ((lambda (#{tmp\ 3072}#)
+ ((lambda (#{tmp\ 3073}#)
+ (if (if #{tmp\ 3073}#
+ (apply (lambda (#{_\ 3079}#
+ #{var\ 3080}#
+ #{val\ 3081}#
+ #{e1\ 3082}#
+ #{e2\ 3083}#)
+ (#{valid-bound-ids?\ 729}# #{var\ 3080}#))
+ #{tmp\ 3073}#)
#f)
- (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}#)))
+ (apply (lambda (#{_\ 3090}#
+ #{var\ 3091}#
+ #{val\ 3092}#
+ #{e1\ 3093}#
+ #{e2\ 3094}#)
+ (let ((#{names\ 3096}#
+ (map (lambda (#{x\ 3097}#)
+ (#{id-var-name\ 723}#
+ #{x\ 3097}#
+ #{w\ 3064}#))
+ #{var\ 3091}#)))
(begin
(for-each
- (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}#
+ (lambda (#{id\ 3100}# #{n\ 3101}#)
+ (let ((#{atom-key\ 3106}#
+ (#{binding-type\ 649}#
+ (#{lookup\ 660}#
+ #{n\ 3101}#
+ #{r\ 3063}#
+ #{mod\ 3066}#))))
+ (if (memv #{atom-key\ 3106}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{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}#)
+ #{e\ 3062}#
+ (#{source-wrap\ 737}#
+ #{id\ 3100}#
+ #{w\ 3064}#
+ #{s\ 3065}#
+ #{mod\ 3066}#)))))
+ #{var\ 3091}#
+ #{names\ 3096}#)
+ (#{chi-body\ 759}#
+ (cons #{e1\ 3093}# #{e2\ 3094}#)
+ (#{source-wrap\ 737}#
+ #{e\ 3062}#
+ #{w\ 3064}#
+ #{s\ 3065}#
+ #{mod\ 3066}#)
+ (#{extend-env\ 654}#
+ #{names\ 3096}#
+ (let ((#{trans-r\ 3111}#
+ (#{macros-only-env\ 658}#
+ #{r\ 3063}#)))
+ (map (lambda (#{x\ 3112}#)
(cons 'macro
- (#{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}#)
+ (#{eval-local-transformer\
763}#
+ (#{chi\ 751}#
+ #{x\ 3112}#
+ #{trans-r\ 3111}#
+ #{w\ 3064}#
+ #{mod\ 3066}#)
+ #{mod\ 3066}#)))
+ #{val\ 3092}#))
+ #{r\ 3063}#)
+ #{w\ 3064}#
+ #{mod\ 3066}#))))
+ #{tmp\ 3073}#)
+ ((lambda (#{_\ 3117}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 11222}#
- #{e\ 13545}#
- #{w\ 13547}#
- #{s\ 13548}#
- #{mod\ 13549}#)))
- #{tmp\ 13555}#)))
+ (#{source-wrap\ 737}#
+ #{e\ 3062}#
+ #{w\ 3064}#
+ #{s\ 3065}#
+ #{mod\ 3066}#)))
+ #{tmp\ 3072}#)))
($sc-dispatch
- #{tmp\ 13555}#
+ #{tmp\ 3072}#
'(any #(each (any any)) any . each-any))))
- #{e\ 13545}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3062}#)))
+ (#{global-extend\ 662}#
'core
'quote
- (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}#)
+ (lambda (#{e\ 3118}#
+ #{r\ 3119}#
+ #{w\ 3120}#
+ #{s\ 3121}#
+ #{mod\ 3122}#)
+ ((lambda (#{tmp\ 3128}#)
+ ((lambda (#{tmp\ 3129}#)
+ (if #{tmp\ 3129}#
+ (apply (lambda (#{_\ 3132}# #{e\ 3133}#)
+ (#{build-data\ 616}#
+ #{s\ 3121}#
+ (#{strip\ 777}# #{e\ 3133}# #{w\ 3120}#)))
+ #{tmp\ 3129}#)
+ ((lambda (#{_\ 3135}#)
(syntax-violation
'quote
"bad syntax"
- (#{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}#
+ (#{source-wrap\ 737}#
+ #{e\ 3118}#
+ #{w\ 3120}#
+ #{s\ 3121}#
+ #{mod\ 3122}#)))
+ #{tmp\ 3128}#)))
+ ($sc-dispatch #{tmp\ 3128}# (quote (any any)))))
+ #{e\ 3118}#)))
+ (#{global-extend\ 662}#
'core
'syntax
- (letrec ((#{regen\ 13634}#
- (lambda (#{x\ 13635}#)
- (let ((#{atom-key\ 13639}# (car #{x\ 13635}#)))
- (if (memv #{atom-key\ 13639}# (quote (ref)))
- (#{build-lexical-reference\ 11079}#
+ (letrec ((#{regen\ 3151}#
+ (lambda (#{x\ 3152}#)
+ (let ((#{atom-key\ 3156}# (car #{x\ 3152}#)))
+ (if (memv #{atom-key\ 3156}# (quote (ref)))
+ (#{build-lexical-reference\ 594}#
'value
#f
- (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}#
+ (cadr #{x\ 3152}#)
+ (cadr #{x\ 3152}#))
+ (if (memv #{atom-key\ 3156}# (quote (primitive)))
+ (#{build-primref\ 614}# #f (cadr #{x\ 3152}#))
+ (if (memv #{atom-key\ 3156}# (quote (quote)))
+ (#{build-data\ 616}# #f (cadr #{x\ 3152}#))
+ (if (memv #{atom-key\ 3156}# (quote (lambda)))
+ (if (list? (cadr #{x\ 3152}#))
+ (#{build-simple-lambda\ 608}#
#f
- (cadr #{x\ 13635}#)
+ (cadr #{x\ 3152}#)
#f
- (cadr #{x\ 13635}#)
+ (cadr #{x\ 3152}#)
'()
- (#{regen\ 13634}# (caddr #{x\ 13635}#)))
- (error "how did we get here" #{x\ 13635}#))
- (#{build-application\ 11073}#
+ (#{regen\ 3151}# (caddr #{x\ 3152}#)))
+ (error "how did we get here" #{x\ 3152}#))
+ (#{build-application\ 588}#
#f
- (#{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))
+ (#{build-primref\ 614}# #f (car #{x\ 3152}#))
+ (map #{regen\ 3151}#
+ (cdr #{x\ 3152}#))))))))))
+ (#{gen-vector\ 3149}#
+ (lambda (#{x\ 3168}#)
+ (if (eq? (car #{x\ 3168}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 3168}#))
+ (if (eq? (car #{x\ 3168}#) (quote quote))
(list '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->vector (cadr #{x\ 3168}#)))
+ (list (quote list->vector) #{x\ 3168}#)))))
+ (#{gen-append\ 3147}#
+ (lambda (#{x\ 3178}# #{y\ 3179}#)
+ (if (equal? #{y\ 3179}# (quote (quote ())))
+ #{x\ 3178}#
+ (list (quote append) #{x\ 3178}# #{y\ 3179}#))))
+ (#{gen-cons\ 3145}#
+ (lambda (#{x\ 3183}# #{y\ 3184}#)
+ (let ((#{atom-key\ 3189}# (car #{y\ 3184}#)))
+ (if (memv #{atom-key\ 3189}# (quote (quote)))
+ (if (eq? (car #{x\ 3183}#) (quote quote))
(list 'quote
- (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 (cadr #{x\ 3183}#) (cadr #{y\ 3184}#)))
+ (if (eq? (cadr #{y\ 3184}#) (quote ()))
+ (list (quote list) #{x\ 3183}#)
+ (list (quote cons) #{x\ 3183}# #{y\ 3184}#)))
+ (if (memv #{atom-key\ 3189}# (quote (list)))
(cons 'list
- (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}#)
+ (cons #{x\ 3183}# (cdr #{y\ 3184}#)))
+ (list (quote cons) #{x\ 3183}# #{y\ 3184}#))))))
+ (#{gen-map\ 3143}#
+ (lambda (#{e\ 3198}# #{map-env\ 3199}#)
+ (let ((#{formals\ 3204}# (map cdr #{map-env\ 3199}#))
+ (#{actuals\ 3205}#
+ (map (lambda (#{x\ 3206}#)
+ (list (quote ref) (car #{x\ 3206}#)))
+ #{map-env\ 3199}#)))
+ (if (eq? (car #{e\ 3198}#) (quote ref))
+ (car #{actuals\ 3205}#)
(if (and-map
- (lambda (#{x\ 13696}#)
- (if (eq? (car #{x\ 13696}#) (quote ref))
- (memq (cadr #{x\ 13696}#)
- #{formals\ 13687}#)
+ (lambda (#{x\ 3213}#)
+ (if (eq? (car #{x\ 3213}#) (quote ref))
+ (memq (cadr #{x\ 3213}#) #{formals\ 3204}#)
#f))
- (cdr #{e\ 13681}#))
+ (cdr #{e\ 3198}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 13681}#))
- (map (let ((#{r\ 13702}#
+ (car #{e\ 3198}#))
+ (map (let ((#{r\ 3219}#
(map cons
- #{formals\ 13687}#
- #{actuals\ 13688}#)))
- (lambda (#{x\ 13703}#)
- (cdr (assq (cadr #{x\ 13703}#)
- #{r\ 13702}#))))
- (cdr #{e\ 13681}#))))
+ #{formals\ 3204}#
+ #{actuals\ 3205}#)))
+ (lambda (#{x\ 3220}#)
+ (cdr (assq (cadr #{x\ 3220}#)
+ #{r\ 3219}#))))
+ (cdr #{e\ 3198}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 13687}#
- #{e\ 13681}#)
- #{actuals\ 13688}#)))))))
- (#{gen-mappend\ 13624}#
- (lambda (#{e\ 13707}# #{map-env\ 13708}#)
+ #{formals\ 3204}#
+ #{e\ 3198}#)
+ #{actuals\ 3205}#)))))))
+ (#{gen-mappend\ 3141}#
+ (lambda (#{e\ 3224}# #{map-env\ 3225}#)
(list 'apply
'(primitive append)
- (#{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}#)
+ (#{gen-map\ 3143}# #{e\ 3224}# #{map-env\ 3225}#))))
+ (#{gen-ref\ 3139}#
+ (lambda (#{src\ 3229}#
+ #{var\ 3230}#
+ #{level\ 3231}#
+ #{maps\ 3232}#)
+ (if (#{fx=\ 571}# #{level\ 3231}# 0)
+ (values #{var\ 3230}# #{maps\ 3232}#)
+ (if (null? #{maps\ 3232}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 13712}#)
+ #{src\ 3229}#)
(call-with-values
(lambda ()
- (#{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))))
+ (#{gen-ref\ 3139}#
+ #{src\ 3229}#
+ #{var\ 3230}#
+ (#{fx-\ 569}# #{level\ 3231}# 1)
+ (cdr #{maps\ 3232}#)))
+ (lambda (#{outer-var\ 3237}# #{outer-maps\ 3238}#)
+ (let ((#{b\ 3242}#
+ (assq #{outer-var\ 3237}#
+ (car #{maps\ 3232}#))))
+ (if #{b\ 3242}#
+ (values (cdr #{b\ 3242}#) #{maps\ 3232}#)
+ (let ((#{inner-var\ 3244}#
+ (#{gen-var\ 779}# (quote tmp))))
(values
- #{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}#
+ #{inner-var\ 3244}#
+ (cons (cons (cons #{outer-var\ 3237}#
+ #{inner-var\ 3244}#)
+ (car #{maps\ 3232}#))
+ #{outer-maps\ 3238}#)))))))))))
+ (#{gen-syntax\ 3137}#
+ (lambda (#{src\ 3245}#
+ #{e\ 3246}#
+ #{r\ 3247}#
+ #{maps\ 3248}#
+ #{ellipsis?\ 3249}#
+ #{mod\ 3250}#)
+ (if (#{id?\ 666}# #{e\ 3246}#)
+ (let ((#{label\ 3258}#
+ (#{id-var-name\ 723}#
+ #{e\ 3246}#
'(()))))
- (let ((#{b\ 13744}#
- (#{lookup\ 11145}#
- #{label\ 13741}#
- #{r\ 13730}#
- #{mod\ 13733}#)))
- (if (eq? (#{binding-type\ 11134}# #{b\ 13744}#)
+ (let ((#{b\ 3261}#
+ (#{lookup\ 660}#
+ #{label\ 3258}#
+ #{r\ 3247}#
+ #{mod\ 3250}#)))
+ (if (eq? (#{binding-type\ 649}# #{b\ 3261}#)
'syntax)
(call-with-values
(lambda ()
- (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}#)
+ (let ((#{var.lev\ 3263}#
+ (#{binding-value\ 651}# #{b\ 3261}#)))
+ (#{gen-ref\ 3139}#
+ #{src\ 3245}#
+ (car #{var.lev\ 3263}#)
+ (cdr #{var.lev\ 3263}#)
+ #{maps\ 3248}#)))
+ (lambda (#{var\ 3264}# #{maps\ 3265}#)
(values
- (list (quote ref) #{var\ 13747}#)
- #{maps\ 13748}#)))
- (if (#{ellipsis?\ 13732}# #{e\ 13729}#)
+ (list (quote ref) #{var\ 3264}#)
+ #{maps\ 3265}#)))
+ (if (#{ellipsis?\ 3249}# #{e\ 3246}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 13728}#)
+ #{src\ 3245}#)
(values
- (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}#)
+ (list (quote quote) #{e\ 3246}#)
+ #{maps\ 3248}#)))))
+ ((lambda (#{tmp\ 3270}#)
+ ((lambda (#{tmp\ 3271}#)
+ (if (if #{tmp\ 3271}#
+ (apply (lambda (#{dots\ 3274}# #{e\ 3275}#)
+ (#{ellipsis?\ 3249}#
+ #{dots\ 3274}#))
+ #{tmp\ 3271}#)
#f)
- (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}#)
+ (apply (lambda (#{dots\ 3278}# #{e\ 3279}#)
+ (#{gen-syntax\ 3137}#
+ #{src\ 3245}#
+ #{e\ 3279}#
+ #{r\ 3247}#
+ #{maps\ 3248}#
+ (lambda (#{x\ 3280}#) #f)
+ #{mod\ 3250}#))
+ #{tmp\ 3271}#)
+ ((lambda (#{tmp\ 3282}#)
+ (if (if #{tmp\ 3282}#
+ (apply (lambda (#{x\ 3286}#
+ #{dots\ 3287}#
+ #{y\ 3288}#)
+ (#{ellipsis?\ 3249}#
+ #{dots\ 3287}#))
+ #{tmp\ 3282}#)
#f)
- (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}#)
+ (apply (lambda (#{x\ 3292}#
+ #{dots\ 3293}#
+ #{y\ 3294}#)
+ (letrec ((#{f\ 3298}#
+ (lambda (#{y\ 3299}#
+ #{k\ 3300}#)
+ ((lambda (#{tmp\
3307}#)
+ ((lambda (#{tmp\
3308}#)
+ (if (if #{tmp\
3308}#
+ (apply
(lambda (#{dots\ 3311}#
+
#{y\ 3312}#)
+
(#{ellipsis?\ 3249}#
+
#{dots\ 3311}#))
+
#{tmp\ 3308}#)
#f)
- (apply
(lambda (#{dots\ 13798}#
-
#{y\ 13799}#)
-
(#{f\ 13781}#
-
#{y\ 13799}#
-
(lambda (#{maps\ 13800}#)
+ (apply
(lambda (#{dots\ 3315}#
+
#{y\ 3316}#)
+
(#{f\ 3298}#
+
#{y\ 3316}#
+
(lambda (#{maps\ 3317}#)
(call-with-values
(lambda ()
-
(#{k\ 13783}#
+
(#{k\ 3300}#
(cons '()
-
#{maps\ 13800}#)))
-
(lambda (#{x\ 13802}#
-
#{maps\ 13803}#)
-
(if (null? (car #{maps\ 13803}#))
+
#{maps\ 3317}#)))
+
(lambda (#{x\ 3319}#
+
#{maps\ 3320}#)
+
(if (null? (car #{maps\ 3320}#))
(syntax-violation
'syntax
"extra ellipsis"
-
#{src\ 13728}#)
+
#{src\ 3245}#)
(values
-
(#{gen-mappend\ 13624}#
-
#{x\ 13802}#
-
(car #{maps\ 13803}#))
-
(cdr #{maps\ 13803}#))))))))
-
#{tmp\ 13791}#)
- ((lambda
(#{_\ 13807}#)
+
(#{gen-mappend\ 3141}#
+
#{x\ 3319}#
+
(car #{maps\ 3320}#))
+
(cdr #{maps\ 3320}#))))))))
+
#{tmp\ 3308}#)
+ ((lambda
(#{_\ 3324}#)
(call-with-values
(lambda
()
-
(#{gen-syntax\ 13620}#
-
#{src\ 13728}#
-
#{y\ 13782}#
-
#{r\ 13730}#
-
#{maps\ 13731}#
-
#{ellipsis?\ 13732}#
-
#{mod\ 13733}#))
- (lambda
(#{y\ 13808}#
-
#{maps\ 13809}#)
+
(#{gen-syntax\ 3137}#
+
#{src\ 3245}#
+
#{y\ 3299}#
+
#{r\ 3247}#
+
#{maps\ 3248}#
+
#{ellipsis?\ 3249}#
+
#{mod\ 3250}#))
+ (lambda
(#{y\ 3325}#
+
#{maps\ 3326}#)
(call-with-values
(lambda ()
-
(#{k\ 13783}#
-
#{maps\ 13809}#))
-
(lambda (#{x\ 13812}#
-
#{maps\ 13813}#)
+
(#{k\ 3300}#
+
#{maps\ 3326}#))
+
(lambda (#{x\ 3329}#
+
#{maps\ 3330}#)
(values
-
(#{gen-append\ 13630}#
-
#{x\ 13812}#
-
#{y\ 13808}#)
-
#{maps\ 13813}#))))))
- #{tmp\
13790}#)))
+
(#{gen-append\ 3147}#
+
#{x\ 3329}#
+
#{y\ 3325}#)
+
#{maps\ 3330}#))))))
+ #{tmp\
3307}#)))
($sc-dispatch
- #{tmp\ 13790}#
+ #{tmp\ 3307}#
'(any . any))))
- #{y\ 13782}#))))
- (#{f\ 13781}#
- #{y\ 13777}#
- (lambda (#{maps\ 13784}#)
+ #{y\ 3299}#))))
+ (#{f\ 3298}#
+ #{y\ 3294}#
+ (lambda (#{maps\ 3301}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 13620}#
- #{src\ 13728}#
- #{x\ 13775}#
- #{r\ 13730}#
+ (#{gen-syntax\ 3137}#
+ #{src\ 3245}#
+ #{x\ 3292}#
+ #{r\ 3247}#
(cons '()
- #{maps\ 13784}#)
- #{ellipsis?\ 13732}#
- #{mod\ 13733}#))
- (lambda (#{x\ 13786}#
- #{maps\ 13787}#)
- (if (null? (car #{maps\
13787}#))
+ #{maps\ 3301}#)
+ #{ellipsis?\ 3249}#
+ #{mod\ 3250}#))
+ (lambda (#{x\ 3303}#
+ #{maps\ 3304}#)
+ (if (null? (car #{maps\
3304}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 13728}#)
+ #{src\ 3245}#)
(values
- (#{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}#)
+ (#{gen-map\ 3143}#
+ #{x\ 3303}#
+ (car #{maps\
3304}#))
+ (cdr #{maps\
3304}#)))))))))
+ #{tmp\ 3282}#)
+ ((lambda (#{tmp\ 3333}#)
+ (if #{tmp\ 3333}#
+ (apply (lambda (#{x\ 3336}#
+ #{y\ 3337}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 13620}#
- #{src\ 13728}#
- #{x\ 13819}#
- #{r\ 13730}#
- #{maps\ 13731}#
- #{ellipsis?\ 13732}#
- #{mod\ 13733}#))
- (lambda (#{x\ 13821}#
- #{maps\ 13822}#)
+ (#{gen-syntax\ 3137}#
+ #{src\ 3245}#
+ #{x\ 3336}#
+ #{r\ 3247}#
+ #{maps\ 3248}#
+ #{ellipsis?\ 3249}#
+ #{mod\ 3250}#))
+ (lambda (#{x\ 3338}#
+ #{maps\ 3339}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
13620}#
- #{src\ 13728}#
- #{y\ 13820}#
- #{r\ 13730}#
- #{maps\ 13822}#
- #{ellipsis?\
13732}#
- #{mod\ 13733}#))
- (lambda (#{y\ 13825}#
- #{maps\
13826}#)
+ (#{gen-syntax\ 3137}#
+ #{src\ 3245}#
+ #{y\ 3337}#
+ #{r\ 3247}#
+ #{maps\ 3339}#
+ #{ellipsis?\ 3249}#
+ #{mod\ 3250}#))
+ (lambda (#{y\ 3342}#
+ #{maps\
3343}#)
(values
- (#{gen-cons\
13628}#
- #{x\ 13821}#
- #{y\ 13825}#)
- #{maps\
13826}#))))))
- #{tmp\ 13816}#)
- ((lambda (#{tmp\ 13829}#)
- (if #{tmp\ 13829}#
- (apply (lambda (#{e1\ 13832}#
- #{e2\ 13833}#)
+ (#{gen-cons\ 3145}#
+ #{x\ 3338}#
+ #{y\ 3342}#)
+ #{maps\
3343}#))))))
+ #{tmp\ 3333}#)
+ ((lambda (#{tmp\ 3346}#)
+ (if #{tmp\ 3346}#
+ (apply (lambda (#{e1\ 3349}#
+ #{e2\ 3350}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
13620}#
- #{src\ 13728}#
- (cons #{e1\
13832}#
- #{e2\
13833}#)
- #{r\ 13730}#
- #{maps\ 13731}#
- #{ellipsis?\
13732}#
- #{mod\ 13733}#))
- (lambda (#{e\ 13835}#
- #{maps\
13836}#)
+ (#{gen-syntax\
3137}#
+ #{src\ 3245}#
+ (cons #{e1\ 3349}#
+ #{e2\
3350}#)
+ #{r\ 3247}#
+ #{maps\ 3248}#
+ #{ellipsis?\
3249}#
+ #{mod\ 3250}#))
+ (lambda (#{e\ 3352}#
+ #{maps\
3353}#)
(values
- (#{gen-vector\
13632}#
- #{e\ 13835}#)
- #{maps\
13836}#))))
- #{tmp\ 13829}#)
- ((lambda (#{_\ 13840}#)
+ (#{gen-vector\
3149}#
+ #{e\ 3352}#)
+ #{maps\ 3353}#))))
+ #{tmp\ 3346}#)
+ ((lambda (#{_\ 3357}#)
(values
(list 'quote
- #{e\ 13729}#)
- #{maps\ 13731}#))
- #{tmp\ 13753}#)))
+ #{e\ 3246}#)
+ #{maps\ 3248}#))
+ #{tmp\ 3270}#)))
($sc-dispatch
- #{tmp\ 13753}#
+ #{tmp\ 3270}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 13753}#
+ #{tmp\ 3270}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 13753}#
+ #{tmp\ 3270}#
'(any any . any)))))
- ($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}#)
+ ($sc-dispatch #{tmp\ 3270}# (quote (any any)))))
+ #{e\ 3246}#)))))
+ (lambda (#{e\ 3359}#
+ #{r\ 3360}#
+ #{w\ 3361}#
+ #{s\ 3362}#
+ #{mod\ 3363}#)
+ (let ((#{e\ 3370}#
+ (#{source-wrap\ 737}#
+ #{e\ 3359}#
+ #{w\ 3361}#
+ #{s\ 3362}#
+ #{mod\ 3363}#)))
+ ((lambda (#{tmp\ 3371}#)
+ ((lambda (#{tmp\ 3372}#)
+ (if #{tmp\ 3372}#
+ (apply (lambda (#{_\ 3375}# #{x\ 3376}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 13620}#
- #{e\ 13853}#
- #{x\ 13859}#
- #{r\ 13843}#
+ (#{gen-syntax\ 3137}#
+ #{e\ 3370}#
+ #{x\ 3376}#
+ #{r\ 3360}#
'()
- #{ellipsis?\ 11252}#
- #{mod\ 13846}#))
- (lambda (#{e\ 13860}# #{maps\ 13861}#)
- (#{regen\ 13634}# #{e\ 13860}#))))
- #{tmp\ 13855}#)
- ((lambda (#{_\ 13865}#)
+ #{ellipsis?\ 767}#
+ #{mod\ 3363}#))
+ (lambda (#{e\ 3377}# #{maps\ 3378}#)
+ (#{regen\ 3151}# #{e\ 3377}#))))
+ #{tmp\ 3372}#)
+ ((lambda (#{_\ 3382}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 13853}#))
- #{tmp\ 13854}#)))
- ($sc-dispatch #{tmp\ 13854}# (quote (any any)))))
- #{e\ 13853}#)))))
- (#{global-extend\ 11147}#
+ #{e\ 3370}#))
+ #{tmp\ 3371}#)))
+ ($sc-dispatch #{tmp\ 3371}# (quote (any any)))))
+ #{e\ 3370}#)))))
+ (#{global-extend\ 662}#
'core
'lambda
- (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}#)
+ (lambda (#{e\ 3383}#
+ #{r\ 3384}#
+ #{w\ 3385}#
+ #{s\ 3386}#
+ #{mod\ 3387}#)
+ ((lambda (#{tmp\ 3393}#)
+ ((lambda (#{tmp\ 3394}#)
+ (if #{tmp\ 3394}#
+ (apply (lambda (#{_\ 3399}#
+ #{args\ 3400}#
+ #{e1\ 3401}#
+ #{e2\ 3402}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{lambda-formals\ 769}# #{args\ 3400}#))
+ (lambda (#{req\ 3403}#
+ #{opt\ 3404}#
+ #{rest\ 3405}#
+ #{kw\ 3406}#)
+ (letrec ((#{lp\ 3414}#
+ (lambda (#{body\ 3415}#
+ #{meta\ 3416}#)
+ ((lambda (#{tmp\ 3418}#)
+ ((lambda (#{tmp\ 3419}#)
+ (if (if #{tmp\ 3419}#
+ (apply (lambda
(#{docstring\ 3423}#
+ #{e1\
3424}#
+ #{e2\
3425}#)
(string?
(syntax->datum
-
#{docstring\ 13906}#)))
- #{tmp\ 13902}#)
+
#{docstring\ 3423}#)))
+ #{tmp\ 3419}#)
#f)
- (apply (lambda
(#{docstring\ 13912}#
- #{e1\
13913}#
- #{e2\
13914}#)
- (#{lp\ 13897}#
- (cons #{e1\
13913}#
- #{e2\
13914}#)
+ (apply (lambda
(#{docstring\ 3429}#
+ #{e1\
3430}#
+ #{e2\
3431}#)
+ (#{lp\ 3414}#
+ (cons #{e1\
3430}#
+ #{e2\
3431}#)
(append
- #{meta\
13899}#
+ #{meta\ 3416}#
(list (cons
'documentation
(syntax->datum
-
#{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}#)
+
#{docstring\ 3429}#))))))
+ #{tmp\ 3419}#)
+ ((lambda (#{tmp\ 3434}#)
+ (if #{tmp\ 3434}#
+ (apply (lambda (#{k\
3439}#
+ #{v\
3440}#
+ #{e1\
3441}#
+ #{e2\
3442}#)
+ (#{lp\ 3414}#
+ (cons
#{e1\ 3441}#
+
#{e2\ 3442}#)
(append
- #{meta\
13899}#
+ #{meta\
3416}#
(syntax->datum
(map
cons
-
#{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}#)))
+
#{k\ 3439}#
+
#{v\ 3440}#)))))
+ #{tmp\ 3434}#)
+ ((lambda (#{_\ 3447}#)
+
(#{chi-simple-lambda\ 771}#
+ #{e\ 3383}#
+ #{r\ 3384}#
+ #{w\ 3385}#
+ #{s\ 3386}#
+ #{mod\ 3387}#
+ #{req\ 3403}#
+ #{rest\ 3405}#
+ #{meta\ 3416}#
+ #{body\ 3415}#))
+ #{tmp\ 3418}#)))
($sc-dispatch
- #{tmp\ 13901}#
+ #{tmp\ 3418}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 13901}#
+ #{tmp\ 3418}#
'(any any . each-any))))
- #{body\ 13898}#))))
- (#{lp\ 13897}#
- (cons #{e1\ 13884}# #{e2\ 13885}#)
+ #{body\ 3415}#))))
+ (#{lp\ 3414}#
+ (cons #{e1\ 3401}# #{e2\ 3402}#)
'())))))
- #{tmp\ 13877}#)
- ((lambda (#{_\ 13932}#)
+ #{tmp\ 3394}#)
+ ((lambda (#{_\ 3449}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 13866}#))
- #{tmp\ 13876}#)))
+ #{e\ 3383}#))
+ #{tmp\ 3393}#)))
($sc-dispatch
- #{tmp\ 13876}#
+ #{tmp\ 3393}#
'(any any any . each-any))))
- #{e\ 13866}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3383}#)))
+ (#{global-extend\ 662}#
'core
'lambda*
- (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}#)
+ (lambda (#{e\ 3450}#
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{s\ 3453}#
+ #{mod\ 3454}#)
+ ((lambda (#{tmp\ 3460}#)
+ ((lambda (#{tmp\ 3461}#)
+ (if #{tmp\ 3461}#
+ (apply (lambda (#{_\ 3466}#
+ #{args\ 3467}#
+ #{e1\ 3468}#
+ #{e2\ 3469}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{chi-lambda-case\ 775}#
+ #{e\ 3450}#
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{s\ 3453}#
+ #{mod\ 3454}#
+ #{lambda*-formals\ 773}#
+ (list (cons #{args\ 3467}#
+ (cons #{e1\ 3468}#
+ #{e2\ 3469}#)))))
+ (lambda (#{meta\ 3471}# #{lcase\ 3472}#)
+ (#{build-case-lambda\ 610}#
+ #{s\ 3453}#
+ #{meta\ 3471}#
+ #{lcase\ 3472}#))))
+ #{tmp\ 3461}#)
+ ((lambda (#{_\ 3476}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 13933}#))
- #{tmp\ 13943}#)))
+ #{e\ 3450}#))
+ #{tmp\ 3460}#)))
($sc-dispatch
- #{tmp\ 13943}#
+ #{tmp\ 3460}#
'(any any any . each-any))))
- #{e\ 13933}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3450}#)))
+ (#{global-extend\ 662}#
'core
'case-lambda
- (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}#)
+ (lambda (#{e\ 3477}#
+ #{r\ 3478}#
+ #{w\ 3479}#
+ #{s\ 3480}#
+ #{mod\ 3481}#)
+ ((lambda (#{tmp\ 3487}#)
+ ((lambda (#{tmp\ 3488}#)
+ (if #{tmp\ 3488}#
+ (apply (lambda (#{_\ 3496}#
+ #{args\ 3497}#
+ #{e1\ 3498}#
+ #{e2\ 3499}#
+ #{args*\ 3500}#
+ #{e1*\ 3501}#
+ #{e2*\ 3502}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{chi-lambda-case\ 775}#
+ #{e\ 3477}#
+ #{r\ 3478}#
+ #{w\ 3479}#
+ #{s\ 3480}#
+ #{mod\ 3481}#
+ #{lambda-formals\ 769}#
+ (cons (cons #{args\ 3497}#
+ (cons #{e1\ 3498}# #{e2\ 3499}#))
+ (map (lambda (#{tmp\ 3506}#
+ #{tmp\ 3505}#
+ #{tmp\ 3504}#)
+ (cons #{tmp\ 3504}#
+ (cons #{tmp\ 3505}#
+ #{tmp\ 3506}#)))
+ #{e2*\ 3502}#
+ #{e1*\ 3501}#
+ #{args*\ 3500}#))))
+ (lambda (#{meta\ 3508}# #{lcase\ 3509}#)
+ (#{build-case-lambda\ 610}#
+ #{s\ 3480}#
+ #{meta\ 3508}#
+ #{lcase\ 3509}#))))
+ #{tmp\ 3488}#)
+ ((lambda (#{_\ 3513}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 13960}#))
- #{tmp\ 13970}#)))
+ #{e\ 3477}#))
+ #{tmp\ 3487}#)))
($sc-dispatch
- #{tmp\ 13970}#
+ #{tmp\ 3487}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 13960}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3477}#)))
+ (#{global-extend\ 662}#
'core
'case-lambda*
- (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}#)
+ (lambda (#{e\ 3514}#
+ #{r\ 3515}#
+ #{w\ 3516}#
+ #{s\ 3517}#
+ #{mod\ 3518}#)
+ ((lambda (#{tmp\ 3524}#)
+ ((lambda (#{tmp\ 3525}#)
+ (if #{tmp\ 3525}#
+ (apply (lambda (#{_\ 3533}#
+ #{args\ 3534}#
+ #{e1\ 3535}#
+ #{e2\ 3536}#
+ #{args*\ 3537}#
+ #{e1*\ 3538}#
+ #{e2*\ 3539}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{chi-lambda-case\ 775}#
+ #{e\ 3514}#
+ #{r\ 3515}#
+ #{w\ 3516}#
+ #{s\ 3517}#
+ #{mod\ 3518}#
+ #{lambda*-formals\ 773}#
+ (cons (cons #{args\ 3534}#
+ (cons #{e1\ 3535}# #{e2\ 3536}#))
+ (map (lambda (#{tmp\ 3543}#
+ #{tmp\ 3542}#
+ #{tmp\ 3541}#)
+ (cons #{tmp\ 3541}#
+ (cons #{tmp\ 3542}#
+ #{tmp\ 3543}#)))
+ #{e2*\ 3539}#
+ #{e1*\ 3538}#
+ #{args*\ 3537}#))))
+ (lambda (#{meta\ 3545}# #{lcase\ 3546}#)
+ (#{build-case-lambda\ 610}#
+ #{s\ 3517}#
+ #{meta\ 3545}#
+ #{lcase\ 3546}#))))
+ #{tmp\ 3525}#)
+ ((lambda (#{_\ 3550}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 13997}#))
- #{tmp\ 14007}#)))
+ #{e\ 3514}#))
+ #{tmp\ 3524}#)))
($sc-dispatch
- #{tmp\ 14007}#
+ #{tmp\ 3524}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 13997}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3514}#)))
+ (#{global-extend\ 662}#
'core
'let
- (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}#))
+ (letrec ((#{chi-let\ 3552}#
+ (lambda (#{e\ 3553}#
+ #{r\ 3554}#
+ #{w\ 3555}#
+ #{s\ 3556}#
+ #{mod\ 3557}#
+ #{constructor\ 3558}#
+ #{ids\ 3559}#
+ #{vals\ 3560}#
+ #{exps\ 3561}#)
+ (if (not (#{valid-bound-ids?\ 729}# #{ids\ 3559}#))
(syntax-violation
'let
"duplicate bound variable"
- #{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}#)
+ #{e\ 3553}#)
+ (let ((#{labels\ 3573}#
+ (#{gen-labels\ 684}# #{ids\ 3559}#))
+ (#{new-vars\ 3574}#
+ (map #{gen-var\ 779}# #{ids\ 3559}#)))
+ (let ((#{nw\ 3577}#
+ (#{make-binding-wrap\ 713}#
+ #{ids\ 3559}#
+ #{labels\ 3573}#
+ #{w\ 3555}#))
+ (#{nr\ 3578}#
+ (#{extend-var-env\ 656}#
+ #{labels\ 3573}#
+ #{new-vars\ 3574}#
+ #{r\ 3554}#)))
+ (#{constructor\ 3558}#
+ #{s\ 3556}#
+ (map syntax->datum #{ids\ 3559}#)
+ #{new-vars\ 3574}#
+ (map (lambda (#{x\ 3579}#)
+ (#{chi\ 751}#
+ #{x\ 3579}#
+ #{r\ 3554}#
+ #{w\ 3555}#
+ #{mod\ 3557}#))
+ #{vals\ 3560}#)
+ (#{chi-body\ 759}#
+ #{exps\ 3561}#
+ (#{source-wrap\ 737}#
+ #{e\ 3553}#
+ #{nw\ 3577}#
+ #{s\ 3556}#
+ #{mod\ 3557}#)
+ #{nr\ 3578}#
+ #{nw\ 3577}#
+ #{mod\ 3557}#))))))))
+ (lambda (#{e\ 3581}#
+ #{r\ 3582}#
+ #{w\ 3583}#
+ #{s\ 3584}#
+ #{mod\ 3585}#)
+ ((lambda (#{tmp\ 3591}#)
+ ((lambda (#{tmp\ 3592}#)
+ (if (if #{tmp\ 3592}#
+ (apply (lambda (#{_\ 3598}#
+ #{id\ 3599}#
+ #{val\ 3600}#
+ #{e1\ 3601}#
+ #{e2\ 3602}#)
+ (and-map #{id?\ 666}# #{id\ 3599}#))
+ #{tmp\ 3592}#)
#f)
- (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}#)
+ (apply (lambda (#{_\ 3609}#
+ #{id\ 3610}#
+ #{val\ 3611}#
+ #{e1\ 3612}#
+ #{e2\ 3613}#)
+ (#{chi-let\ 3552}#
+ #{e\ 3581}#
+ #{r\ 3582}#
+ #{w\ 3583}#
+ #{s\ 3584}#
+ #{mod\ 3585}#
+ #{build-let\ 620}#
+ #{id\ 3610}#
+ #{val\ 3611}#
+ (cons #{e1\ 3612}# #{e2\ 3613}#)))
+ #{tmp\ 3592}#)
+ ((lambda (#{tmp\ 3617}#)
+ (if (if #{tmp\ 3617}#
+ (apply (lambda (#{_\ 3624}#
+ #{f\ 3625}#
+ #{id\ 3626}#
+ #{val\ 3627}#
+ #{e1\ 3628}#
+ #{e2\ 3629}#)
+ (if (#{id?\ 666}# #{f\ 3625}#)
+ (and-map #{id?\ 666}# #{id\ 3626}#)
#f))
- #{tmp\ 14100}#)
+ #{tmp\ 3617}#)
#f)
- (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}#)
+ (apply (lambda (#{_\ 3639}#
+ #{f\ 3640}#
+ #{id\ 3641}#
+ #{val\ 3642}#
+ #{e1\ 3643}#
+ #{e2\ 3644}#)
+ (#{chi-let\ 3552}#
+ #{e\ 3581}#
+ #{r\ 3582}#
+ #{w\ 3583}#
+ #{s\ 3584}#
+ #{mod\ 3585}#
+ #{build-named-let\ 622}#
+ (cons #{f\ 3640}# #{id\ 3641}#)
+ #{val\ 3642}#
+ (cons #{e1\ 3643}# #{e2\ 3644}#)))
+ #{tmp\ 3617}#)
+ ((lambda (#{_\ 3649}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 11222}#
- #{e\ 14064}#
- #{w\ 14066}#
- #{s\ 14067}#
- #{mod\ 14068}#)))
- #{tmp\ 14074}#)))
+ (#{source-wrap\ 737}#
+ #{e\ 3581}#
+ #{w\ 3583}#
+ #{s\ 3584}#
+ #{mod\ 3585}#)))
+ #{tmp\ 3591}#)))
($sc-dispatch
- #{tmp\ 14074}#
+ #{tmp\ 3591}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 14074}#
+ #{tmp\ 3591}#
'(any #(each (any any)) any . each-any))))
- #{e\ 14064}#))))
- (#{global-extend\ 11147}#
+ #{e\ 3581}#))))
+ (#{global-extend\ 662}#
'core
'letrec
- (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}#)
+ (lambda (#{e\ 3650}#
+ #{r\ 3651}#
+ #{w\ 3652}#
+ #{s\ 3653}#
+ #{mod\ 3654}#)
+ ((lambda (#{tmp\ 3660}#)
+ ((lambda (#{tmp\ 3661}#)
+ (if (if #{tmp\ 3661}#
+ (apply (lambda (#{_\ 3667}#
+ #{id\ 3668}#
+ #{val\ 3669}#
+ #{e1\ 3670}#
+ #{e2\ 3671}#)
+ (and-map #{id?\ 666}# #{id\ 3668}#))
+ #{tmp\ 3661}#)
#f)
- (apply (lambda (#{_\ 14161}#
- #{id\ 14162}#
- #{val\ 14163}#
- #{e1\ 14164}#
- #{e2\ 14165}#)
- (let ((#{ids\ 14167}# #{id\ 14162}#))
- (if (not (#{valid-bound-ids?\ 11214}#
- #{ids\ 14167}#))
+ (apply (lambda (#{_\ 3678}#
+ #{id\ 3679}#
+ #{val\ 3680}#
+ #{e1\ 3681}#
+ #{e2\ 3682}#)
+ (let ((#{ids\ 3684}# #{id\ 3679}#))
+ (if (not (#{valid-bound-ids?\ 729}#
+ #{ids\ 3684}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{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}#)
+ #{e\ 3650}#)
+ (let ((#{labels\ 3688}#
+ (#{gen-labels\ 684}# #{ids\ 3684}#))
+ (#{new-vars\ 3689}#
+ (map #{gen-var\ 779}# #{ids\ 3684}#)))
+ (let ((#{w\ 3692}#
+ (#{make-binding-wrap\ 713}#
+ #{ids\ 3684}#
+ #{labels\ 3688}#
+ #{w\ 3652}#))
+ (#{r\ 3693}#
+ (#{extend-var-env\ 656}#
+ #{labels\ 3688}#
+ #{new-vars\ 3689}#
+ #{r\ 3651}#)))
+ (#{build-letrec\ 624}#
+ #{s\ 3653}#
+ (map syntax->datum #{ids\ 3684}#)
+ #{new-vars\ 3689}#
+ (map (lambda (#{x\ 3694}#)
+ (#{chi\ 751}#
+ #{x\ 3694}#
+ #{r\ 3693}#
+ #{w\ 3692}#
+ #{mod\ 3654}#))
+ #{val\ 3680}#)
+ (#{chi-body\ 759}#
+ (cons #{e1\ 3681}# #{e2\ 3682}#)
+ (#{source-wrap\ 737}#
+ #{e\ 3650}#
+ #{w\ 3692}#
+ #{s\ 3653}#
+ #{mod\ 3654}#)
+ #{r\ 3693}#
+ #{w\ 3692}#
+ #{mod\ 3654}#)))))))
+ #{tmp\ 3661}#)
+ ((lambda (#{_\ 3699}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 11222}#
- #{e\ 14133}#
- #{w\ 14135}#
- #{s\ 14136}#
- #{mod\ 14137}#)))
- #{tmp\ 14143}#)))
+ (#{source-wrap\ 737}#
+ #{e\ 3650}#
+ #{w\ 3652}#
+ #{s\ 3653}#
+ #{mod\ 3654}#)))
+ #{tmp\ 3660}#)))
($sc-dispatch
- #{tmp\ 14143}#
+ #{tmp\ 3660}#
'(any #(each (any any)) any . each-any))))
- #{e\ 14133}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3650}#)))
+ (#{global-extend\ 662}#
'core
'set!
- (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}#)
+ (lambda (#{e\ 3700}#
+ #{r\ 3701}#
+ #{w\ 3702}#
+ #{s\ 3703}#
+ #{mod\ 3704}#)
+ ((lambda (#{tmp\ 3710}#)
+ ((lambda (#{tmp\ 3711}#)
+ (if (if #{tmp\ 3711}#
+ (apply (lambda (#{_\ 3715}# #{id\ 3716}# #{val\ 3717}#)
+ (#{id?\ 666}# #{id\ 3716}#))
+ #{tmp\ 3711}#)
#f)
- (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}#
+ (apply (lambda (#{_\ 3721}# #{id\ 3722}# #{val\ 3723}#)
+ (let ((#{val\ 3726}#
+ (#{chi\ 751}#
+ #{val\ 3723}#
+ #{r\ 3701}#
+ #{w\ 3702}#
+ #{mod\ 3704}#))
+ (#{n\ 3727}#
+ (#{id-var-name\ 723}#
+ #{id\ 3722}#
+ #{w\ 3702}#)))
+ (let ((#{b\ 3729}#
+ (#{lookup\ 660}#
+ #{n\ 3727}#
+ #{r\ 3701}#
+ #{mod\ 3704}#)))
+ (let ((#{atom-key\ 3732}#
+ (#{binding-type\ 649}# #{b\ 3729}#)))
+ (if (memv #{atom-key\ 3732}#
'(lexical))
- (#{build-lexical-assignment\ 11081}#
- #{s\ 14186}#
- (syntax->datum #{id\ 14205}#)
- (#{binding-value\ 11136}# #{b\ 14212}#)
- #{val\ 14209}#)
- (if (memv #{atom-key\ 14215}#
+ (#{build-lexical-assignment\ 596}#
+ #{s\ 3703}#
+ (syntax->datum #{id\ 3722}#)
+ (#{binding-value\ 651}# #{b\ 3729}#)
+ #{val\ 3726}#)
+ (if (memv #{atom-key\ 3732}#
'(global))
- (#{build-global-assignment\ 11087}#
- #{s\ 14186}#
- #{n\ 14210}#
- #{val\ 14209}#
- #{mod\ 14187}#)
- (if (memv #{atom-key\ 14215}#
+ (#{build-global-assignment\ 602}#
+ #{s\ 3703}#
+ #{n\ 3727}#
+ #{val\ 3726}#
+ #{mod\ 3704}#)
+ (if (memv #{atom-key\ 3732}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 11220}#
- #{id\ 14205}#
- #{w\ 14185}#
- #{mod\ 14187}#))
+ (#{wrap\ 735}#
+ #{id\ 3722}#
+ #{w\ 3702}#
+ #{mod\ 3704}#))
(syntax-violation
'set!
"bad set!"
- (#{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}#)
+ (#{source-wrap\ 737}#
+ #{e\ 3700}#
+ #{w\ 3702}#
+ #{s\ 3703}#
+ #{mod\ 3704}#)))))))))
+ #{tmp\ 3711}#)
+ ((lambda (#{tmp\ 3737}#)
+ (if #{tmp\ 3737}#
+ (apply (lambda (#{_\ 3742}#
+ #{head\ 3743}#
+ #{tail\ 3744}#
+ #{val\ 3745}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 11232}#
- #{head\ 14226}#
- #{r\ 14184}#
+ (#{syntax-type\ 747}#
+ #{head\ 3743}#
+ #{r\ 3701}#
'(())
#f
#f
- #{mod\ 14187}#
+ #{mod\ 3704}#
#t))
- (lambda (#{type\ 14231}#
- #{value\ 14232}#
- #{ee\ 14233}#
- #{ww\ 14234}#
- #{ss\ 14235}#
- #{modmod\ 14236}#)
- (if (memv #{type\ 14231}#
+ (lambda (#{type\ 3748}#
+ #{value\ 3749}#
+ #{ee\ 3750}#
+ #{ww\ 3751}#
+ #{ss\ 3752}#
+ #{modmod\ 3753}#)
+ (if (memv #{type\ 3748}#
'(module-ref))
- (let ((#{val\ 14245}#
- (#{chi\ 11236}#
- #{val\ 14228}#
- #{r\ 14184}#
- #{w\ 14185}#
- #{mod\ 14187}#)))
+ (let ((#{val\ 3762}#
+ (#{chi\ 751}#
+ #{val\ 3745}#
+ #{r\ 3701}#
+ #{w\ 3702}#
+ #{mod\ 3704}#)))
(call-with-values
(lambda ()
- (#{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}#)
+ (#{value\ 3749}#
+ (cons #{head\ 3743}#
+ #{tail\ 3744}#)
+ #{r\ 3701}#
+ #{w\ 3702}#))
+ (lambda (#{e\ 3764}#
+ #{r\ 3765}#
+ #{w\ 3766}#
+ #{s*\ 3767}#
+ #{mod\ 3768}#)
+ ((lambda (#{tmp\ 3774}#)
+ ((lambda (#{tmp\ 3775}#)
+ (if (if #{tmp\ 3775}#
+ (apply (lambda (#{e\
3777}#)
+ (#{id?\ 666}#
+ #{e\
3777}#))
+ #{tmp\ 3775}#)
#f)
- (apply (lambda (#{e\
14262}#)
-
(#{build-global-assignment\ 11087}#
- #{s\ 14186}#
+ (apply (lambda (#{e\
3779}#)
+
(#{build-global-assignment\ 602}#
+ #{s\ 3703}#
(syntax->datum
- #{e\ 14262}#)
- #{val\ 14245}#
- #{mod\ 14251}#))
- #{tmp\ 14258}#)
+ #{e\ 3779}#)
+ #{val\ 3762}#
+ #{mod\ 3768}#))
+ #{tmp\ 3775}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 14257}#)))
- (list #{tmp\ 14257}#)))
- #{e\ 14247}#))))
- (#{build-application\ 11073}#
- #{s\ 14186}#
- (#{chi\ 11236}#
+ #{tmp\ 3774}#)))
+ (list #{tmp\ 3774}#)))
+ #{e\ 3764}#))))
+ (#{build-application\ 588}#
+ #{s\ 3703}#
+ (#{chi\ 751}#
(list '#(syntax-object
setter
((top)
@@ -9512,22 +9410,22 @@
(top)
(top)
(top))
- #("i14237"
- "i14238"
- "i14239"
- "i14240"
- "i14241"
- "i14242"))
+ #("i3754"
+ "i3755"
+ "i3756"
+ "i3757"
+ "i3758"
+ "i3759"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i14221"
- "i14222"
- "i14223"
- "i14224"))
+ #("i3738"
+ "i3739"
+ "i3740"
+ "i3741"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9536,11 +9434,11 @@
(top)
(top)
(top))
- #("i14188"
- "i14189"
- "i14190"
- "i14191"
- "i14192"))
+ #("i3705"
+ "i3706"
+ "i3707"
+ "i3708"
+ "i3709"))
#(ribcage
(lambda-var-list
gen-var
@@ -9776,180 +9674,178 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i10952" "i10950")))
+ ("i467" "i465")))
(hygiene guile))
- #{head\ 14226}#)
- #{r\ 14184}#
- #{w\ 14185}#
- #{mod\ 14187}#)
- (map (lambda (#{e\ 14264}#)
- (#{chi\ 11236}#
- #{e\ 14264}#
- #{r\ 14184}#
- #{w\ 14185}#
- #{mod\ 14187}#))
+ #{head\ 3743}#)
+ #{r\ 3701}#
+ #{w\ 3702}#
+ #{mod\ 3704}#)
+ (map (lambda (#{e\ 3781}#)
+ (#{chi\ 751}#
+ #{e\ 3781}#
+ #{r\ 3701}#
+ #{w\ 3702}#
+ #{mod\ 3704}#))
(append
- #{tail\ 14227}#
- (list #{val\ 14228}#))))))))
- #{tmp\ 14220}#)
- ((lambda (#{_\ 14268}#)
+ #{tail\ 3744}#
+ (list #{val\ 3745}#))))))))
+ #{tmp\ 3737}#)
+ ((lambda (#{_\ 3785}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 11222}#
- #{e\ 14183}#
- #{w\ 14185}#
- #{s\ 14186}#
- #{mod\ 14187}#)))
- #{tmp\ 14193}#)))
+ (#{source-wrap\ 737}#
+ #{e\ 3700}#
+ #{w\ 3702}#
+ #{s\ 3703}#
+ #{mod\ 3704}#)))
+ #{tmp\ 3710}#)))
($sc-dispatch
- #{tmp\ 14193}#
+ #{tmp\ 3710}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 14193}#
+ #{tmp\ 3710}#
'(any any any))))
- #{e\ 14183}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3700}#)))
+ (#{global-extend\ 662}#
'module-ref
'@
- (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}#)
+ (lambda (#{e\ 3786}# #{r\ 3787}# #{w\ 3788}#)
+ ((lambda (#{tmp\ 3792}#)
+ ((lambda (#{tmp\ 3793}#)
+ (if (if #{tmp\ 3793}#
+ (apply (lambda (#{_\ 3797}# #{mod\ 3798}# #{id\ 3799}#)
+ (if (and-map #{id?\ 666}# #{mod\ 3798}#)
+ (#{id?\ 666}# #{id\ 3799}#)
#f))
- #{tmp\ 14276}#)
+ #{tmp\ 3793}#)
#f)
- (apply (lambda (#{_\ 14289}# #{mod\ 14290}# #{id\ 14291}#)
+ (apply (lambda (#{_\ 3806}# #{mod\ 3807}# #{id\ 3808}#)
(values
- (syntax->datum #{id\ 14291}#)
- #{r\ 14270}#
- #{w\ 14271}#
+ (syntax->datum #{id\ 3808}#)
+ #{r\ 3787}#
+ #{w\ 3788}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -9958,12 +9854,12 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i14286" "i14287" "i14288"))
+ #("i3803" "i3804" "i3805"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i14272" "i14273" "i14274"))
+ #("i3789" "i3790" "i3791"))
#(ribcage
(lambda-var-list
gen-var
@@ -10199,194 +10095,193 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i10952" "i10950")))
+ ("i467" "i465")))
(hygiene guile))
- #{mod\ 14290}#))))
- #{tmp\ 14276}#)
+ #{mod\ 3807}#))))
+ #{tmp\ 3793}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14275}#)))
+ #{tmp\ 3792}#)))
($sc-dispatch
- #{tmp\ 14275}#
+ #{tmp\ 3792}#
'(any each-any any))))
- #{e\ 14269}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3786}#)))
+ (#{global-extend\ 662}#
'module-ref
'@@
- (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}#)
+ (lambda (#{e\ 3810}# #{r\ 3811}# #{w\ 3812}#)
+ (letrec ((#{remodulate\ 3817}#
+ (lambda (#{x\ 3818}# #{mod\ 3819}#)
+ (if (pair? #{x\ 3818}#)
+ (cons (#{remodulate\ 3817}#
+ (car #{x\ 3818}#)
+ #{mod\ 3819}#)
+ (#{remodulate\ 3817}#
+ (cdr #{x\ 3818}#)
+ #{mod\ 3819}#))
+ (if (#{syntax-object?\ 630}# #{x\ 3818}#)
+ (#{make-syntax-object\ 628}#
+ (#{remodulate\ 3817}#
+ (#{syntax-object-expression\ 632}# #{x\ 3818}#)
+ #{mod\ 3819}#)
+ (#{syntax-object-wrap\ 634}# #{x\ 3818}#)
+ #{mod\ 3819}#)
+ (if (vector? #{x\ 3818}#)
+ (let ((#{n\ 3830}# (vector-length #{x\ 3818}#)))
+ (let ((#{v\ 3832}# (make-vector #{n\ 3830}#)))
+ (letrec ((#{loop\ 3835}#
+ (lambda (#{i\ 3836}#)
+ (if (#{fx=\ 571}#
+ #{i\ 3836}#
+ #{n\ 3830}#)
+ (begin (if #f #f) #{v\ 3832}#)
(begin
(vector-set!
- #{v\ 14315}#
- #{i\ 14319}#
- (#{remodulate\ 14300}#
+ #{v\ 3832}#
+ #{i\ 3836}#
+ (#{remodulate\ 3817}#
(vector-ref
- #{x\ 14301}#
- #{i\ 14319}#)
- #{mod\ 14302}#))
- (#{loop\ 14318}#
- (#{fx+\ 11052}#
- #{i\ 14319}#
+ #{x\ 3818}#
+ #{i\ 3836}#)
+ #{mod\ 3819}#))
+ (#{loop\ 3835}#
+ (#{fx+\ 567}#
+ #{i\ 3836}#
1)))))))
- (#{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}#)
+ (#{loop\ 3835}# 0))))
+ #{x\ 3818}#))))))
+ ((lambda (#{tmp\ 3840}#)
+ ((lambda (#{tmp\ 3841}#)
+ (if (if #{tmp\ 3841}#
+ (apply (lambda (#{_\ 3845}#
+ #{mod\ 3846}#
+ #{exp\ 3847}#)
+ (and-map #{id?\ 666}# #{mod\ 3846}#))
+ #{tmp\ 3841}#)
#f)
- (apply (lambda (#{_\ 14335}# #{mod\ 14336}# #{exp\ 14337}#)
- (let ((#{mod\ 14339}#
+ (apply (lambda (#{_\ 3852}# #{mod\ 3853}# #{exp\ 3854}#)
+ (let ((#{mod\ 3856}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10394,19 +10289,15 @@
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i14332"
- "i14333"
- "i14334"))
+ #("i3849" "i3850" "i3851"))
#(ribcage
(remodulate)
((top))
- ("i14299"))
+ ("i3816"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i14296"
- "i14297"
- "i14298"))
+ #("i3813" "i3814" "i3815"))
#(ribcage
(lambda-var-list
gen-var
@@ -10642,312 +10533,311 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i10952" "i10950")))
+ ("i467" "i465")))
(hygiene guile))
- #{mod\ 14336}#))))
+ #{mod\ 3853}#))))
(values
- (#{remodulate\ 14300}#
- #{exp\ 14337}#
- #{mod\ 14339}#)
- #{r\ 14294}#
- #{w\ 14295}#
- (#{source-annotation\ 11130}# #{exp\ 14337}#)
- #{mod\ 14339}#)))
- #{tmp\ 14324}#)
+ (#{remodulate\ 3817}#
+ #{exp\ 3854}#
+ #{mod\ 3856}#)
+ #{r\ 3811}#
+ #{w\ 3812}#
+ (#{source-annotation\ 645}# #{exp\ 3854}#)
+ #{mod\ 3856}#)))
+ #{tmp\ 3841}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14323}#)))
+ #{tmp\ 3840}#)))
($sc-dispatch
- #{tmp\ 14323}#
+ #{tmp\ 3840}#
'(any each-any any))))
- #{e\ 14293}#))))
- (#{global-extend\ 11147}#
+ #{e\ 3810}#))))
+ (#{global-extend\ 662}#
'core
'if
- (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}#)
+ (lambda (#{e\ 3858}#
+ #{r\ 3859}#
+ #{w\ 3860}#
+ #{s\ 3861}#
+ #{mod\ 3862}#)
+ ((lambda (#{tmp\ 3868}#)
+ ((lambda (#{tmp\ 3869}#)
+ (if #{tmp\ 3869}#
+ (apply (lambda (#{_\ 3873}# #{test\ 3874}# #{then\ 3875}#)
+ (#{build-conditional\ 590}#
+ #{s\ 3861}#
+ (#{chi\ 751}#
+ #{test\ 3874}#
+ #{r\ 3859}#
+ #{w\ 3860}#
+ #{mod\ 3862}#)
+ (#{chi\ 751}#
+ #{then\ 3875}#
+ #{r\ 3859}#
+ #{w\ 3860}#
+ #{mod\ 3862}#)
+ (#{build-void\ 586}# #f)))
+ #{tmp\ 3869}#)
+ ((lambda (#{tmp\ 3877}#)
+ (if #{tmp\ 3877}#
+ (apply (lambda (#{_\ 3882}#
+ #{test\ 3883}#
+ #{then\ 3884}#
+ #{else\ 3885}#)
+ (#{build-conditional\ 590}#
+ #{s\ 3861}#
+ (#{chi\ 751}#
+ #{test\ 3883}#
+ #{r\ 3859}#
+ #{w\ 3860}#
+ #{mod\ 3862}#)
+ (#{chi\ 751}#
+ #{then\ 3884}#
+ #{r\ 3859}#
+ #{w\ 3860}#
+ #{mod\ 3862}#)
+ (#{chi\ 751}#
+ #{else\ 3885}#
+ #{r\ 3859}#
+ #{w\ 3860}#
+ #{mod\ 3862}#)))
+ #{tmp\ 3877}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14351}#)))
+ #{tmp\ 3868}#)))
($sc-dispatch
- #{tmp\ 14351}#
+ #{tmp\ 3868}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 14351}#
+ #{tmp\ 3868}#
'(any any any))))
- #{e\ 14341}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3858}#)))
+ (#{global-extend\ 662}#
'core
'with-fluids
- (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}#)
+ (lambda (#{e\ 3886}#
+ #{r\ 3887}#
+ #{w\ 3888}#
+ #{s\ 3889}#
+ #{mod\ 3890}#)
+ ((lambda (#{tmp\ 3896}#)
+ ((lambda (#{tmp\ 3897}#)
+ (if #{tmp\ 3897}#
+ (apply (lambda (#{_\ 3903}#
+ #{fluid\ 3904}#
+ #{val\ 3905}#
+ #{b\ 3906}#
+ #{b*\ 3907}#)
+ (#{build-dynlet\ 592}#
+ #{s\ 3889}#
+ (map (lambda (#{x\ 3908}#)
+ (#{chi\ 751}#
+ #{x\ 3908}#
+ #{r\ 3887}#
+ #{w\ 3888}#
+ #{mod\ 3890}#))
+ #{fluid\ 3904}#)
+ (map (lambda (#{x\ 3911}#)
+ (#{chi\ 751}#
+ #{x\ 3911}#
+ #{r\ 3887}#
+ #{w\ 3888}#
+ #{mod\ 3890}#))
+ #{val\ 3905}#)
+ (#{chi-body\ 759}#
+ (cons #{b\ 3906}# #{b*\ 3907}#)
+ (#{source-wrap\ 737}#
+ #{e\ 3886}#
+ #{w\ 3888}#
+ #{s\ 3889}#
+ #{mod\ 3890}#)
+ #{r\ 3887}#
+ #{w\ 3888}#
+ #{mod\ 3890}#)))
+ #{tmp\ 3897}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14379}#)))
+ #{tmp\ 3896}#)))
($sc-dispatch
- #{tmp\ 14379}#
+ #{tmp\ 3896}#
'(any #(each (any any)) any . each-any))))
- #{e\ 14369}#)))
- (#{global-extend\ 11147}#
+ #{e\ 3886}#)))
+ (#{global-extend\ 662}#
'begin
'begin
'())
- (#{global-extend\ 11147}#
+ (#{global-extend\ 662}#
'define
'define
'())
- (#{global-extend\ 11147}#
+ (#{global-extend\ 662}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 11147}#
+ (#{global-extend\ 662}#
'eval-when
'eval-when
'())
- (#{global-extend\ 11147}#
+ (#{global-extend\ 662}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 14405}#
- (lambda (#{x\ 14406}#
- #{keys\ 14407}#
- #{clauses\ 14408}#
- #{r\ 14409}#
- #{mod\ 14410}#)
- (if (null? #{clauses\ 14408}#)
- (#{build-application\ 11073}#
+ (letrec ((#{gen-syntax-case\ 3922}#
+ (lambda (#{x\ 3923}#
+ #{keys\ 3924}#
+ #{clauses\ 3925}#
+ #{r\ 3926}#
+ #{mod\ 3927}#)
+ (if (null? #{clauses\ 3925}#)
+ (#{build-application\ 588}#
#f
- (#{build-primref\ 11099}#
+ (#{build-primref\ 614}#
#f
'syntax-violation)
- (list (#{build-data\ 11101}# #f #f)
- (#{build-data\ 11101}#
+ (list (#{build-data\ 616}# #f #f)
+ (#{build-data\ 616}#
#f
"source expression failed to match any
pattern")
- #{x\ 14406}#))
- ((lambda (#{tmp\ 14420}#)
- ((lambda (#{tmp\ 14421}#)
- (if #{tmp\ 14421}#
- (apply (lambda (#{pat\ 14424}# #{exp\ 14425}#)
- (if (if (#{id?\ 11151}# #{pat\ 14424}#)
+ #{x\ 3923}#))
+ ((lambda (#{tmp\ 3937}#)
+ ((lambda (#{tmp\ 3938}#)
+ (if #{tmp\ 3938}#
+ (apply (lambda (#{pat\ 3941}# #{exp\ 3942}#)
+ (if (if (#{id?\ 666}# #{pat\ 3941}#)
(and-map
- (lambda (#{x\ 14428}#)
- (not (#{free-id=?\ 11210}#
- #{pat\ 14424}#
- #{x\ 14428}#)))
+ (lambda (#{x\ 3945}#)
+ (not (#{free-id=?\ 725}#
+ #{pat\ 3941}#
+ #{x\ 3945}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i14422"
- "i14423"))
+ #("i3939" "i3940"))
#(ribcage () () ())
#(ribcage
#(x
@@ -10960,11 +10850,11 @@
(top)
(top)
(top))
- #("i14411"
- "i14412"
- "i14413"
- "i14414"
- "i14415"))
+ #("i3928"
+ "i3929"
+ "i3930"
+ "i3931"
+ "i3932"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -10974,10 +10864,10 @@
(top)
(top)
(top))
- ("i14404"
- "i14402"
- "i14400"
- "i14398"))
+ ("i3921"
+ "i3919"
+ "i3917"
+ "i3915"))
#(ribcage
(lambda-var-list
gen-var
@@ -11213,1042 +11103,1031 @@
(top)
(top)
(top))
- ("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"))
+ ("i780"
+ "i778"
+ "i776"
+ "i774"
+ "i772"
+ "i770"
+ "i768"
+ "i766"
+ "i764"
+ "i762"
+ "i760"
+ "i758"
+ "i756"
+ "i754"
+ "i752"
+ "i750"
+ "i748"
+ "i746"
+ "i744"
+ "i742"
+ "i740"
+ "i738"
+ "i736"
+ "i734"
+ "i732"
+ "i730"
+ "i728"
+ "i726"
+ "i724"
+ "i722"
+ "i720"
+ "i718"
+ "i716"
+ "i714"
+ "i712"
+ "i710"
+ "i709"
+ "i708"
+ "i706"
+ "i705"
+ "i704"
+ "i703"
+ "i702"
+ "i700"
+ "i698"
+ "i696"
+ "i694"
+ "i692"
+ "i690"
+ "i688"
+ "i686"
+ "i683"
+ "i681"
+ "i680"
+ "i679"
+ "i678"
+ "i677"
+ "i676"
+ "i674"
+ "i672"
+ "i670"
+ "i668"
+ "i667"
+ "i665"
+ "i663"
+ "i661"
+ "i659"
+ "i657"
+ "i655"
+ "i653"
+ "i652"
+ "i650"
+ "i648"
+ "i647"
+ "i646"
+ "i644"
+ "i643"
+ "i641"
+ "i639"
+ "i637"
+ "i635"
+ "i633"
+ "i631"
+ "i629"
+ "i627"
+ "i625"
+ "i623"
+ "i621"
+ "i619"
+ "i617"
+ "i615"
+ "i613"
+ "i611"
+ "i609"
+ "i607"
+ "i605"
+ "i603"
+ "i601"
+ "i599"
+ "i597"
+ "i595"
+ "i593"
+ "i591"
+ "i589"
+ "i587"
+ "i585"
+ "i583"
+ "i581"
+ "i579"
+ "i578"
+ "i576"
+ "i574"
+ "i572"
+ "i570"
+ "i568"
+ "i566"
+ "i564"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i10952"
- "i10950")))
+ ("i467" "i465")))
(hygiene guile))
- #{keys\ 14407}#))
+ #{keys\ 3924}#))
#f)
- (let ((#{labels\ 14432}#
- (list (#{gen-label\
11167}#)))
- (#{var\ 14433}#
- (#{gen-var\ 11264}#
- #{pat\ 14424}#)))
- (#{build-application\ 11073}#
+ (let ((#{labels\ 3949}#
+ (list (#{gen-label\ 682}#)))
+ (#{var\ 3950}#
+ (#{gen-var\ 779}#
+ #{pat\ 3941}#)))
+ (#{build-application\ 588}#
#f
- (#{build-simple-lambda\ 11093}#
+ (#{build-simple-lambda\ 608}#
#f
(list (syntax->datum
- #{pat\ 14424}#))
+ #{pat\ 3941}#))
#f
- (list #{var\ 14433}#)
+ (list #{var\ 3950}#)
'()
- (#{chi\ 11236}#
- #{exp\ 14425}#
- (#{extend-env\ 11139}#
- #{labels\ 14432}#
+ (#{chi\ 751}#
+ #{exp\ 3942}#
+ (#{extend-env\ 654}#
+ #{labels\ 3949}#
(list (cons 'syntax
- (cons #{var\
14433}#
+ (cons #{var\
3950}#
0)))
- #{r\ 14409}#)
- (#{make-binding-wrap\ 11198}#
- (list #{pat\ 14424}#)
- #{labels\ 14432}#
+ #{r\ 3926}#)
+ (#{make-binding-wrap\ 713}#
+ (list #{pat\ 3941}#)
+ #{labels\ 3949}#
'(()))
- #{mod\ 14410}#))
- (list #{x\ 14406}#)))
- (#{gen-clause\ 14403}#
- #{x\ 14406}#
- #{keys\ 14407}#
- (cdr #{clauses\ 14408}#)
- #{r\ 14409}#
- #{pat\ 14424}#
+ #{mod\ 3927}#))
+ (list #{x\ 3923}#)))
+ (#{gen-clause\ 3920}#
+ #{x\ 3923}#
+ #{keys\ 3924}#
+ (cdr #{clauses\ 3925}#)
+ #{r\ 3926}#
+ #{pat\ 3941}#
#t
- #{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}#)
+ #{exp\ 3942}#
+ #{mod\ 3927}#)))
+ #{tmp\ 3938}#)
+ ((lambda (#{tmp\ 3956}#)
+ (if #{tmp\ 3956}#
+ (apply (lambda (#{pat\ 3960}#
+ #{fender\ 3961}#
+ #{exp\ 3962}#)
+ (#{gen-clause\ 3920}#
+ #{x\ 3923}#
+ #{keys\ 3924}#
+ (cdr #{clauses\ 3925}#)
+ #{r\ 3926}#
+ #{pat\ 3960}#
+ #{fender\ 3961}#
+ #{exp\ 3962}#
+ #{mod\ 3927}#))
+ #{tmp\ 3956}#)
+ ((lambda (#{_\ 3964}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 14408}#)))
- #{tmp\ 14420}#)))
+ (car #{clauses\ 3925}#)))
+ #{tmp\ 3937}#)))
($sc-dispatch
- #{tmp\ 14420}#
+ #{tmp\ 3937}#
'(any any any)))))
- ($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}#)
+ ($sc-dispatch #{tmp\ 3937}# (quote (any any)))))
+ (car #{clauses\ 3925}#)))))
+ (#{gen-clause\ 3920}#
+ (lambda (#{x\ 3965}#
+ #{keys\ 3966}#
+ #{clauses\ 3967}#
+ #{r\ 3968}#
+ #{pat\ 3969}#
+ #{fender\ 3970}#
+ #{exp\ 3971}#
+ #{mod\ 3972}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 14399}#
- #{pat\ 14452}#
- #{keys\ 14449}#))
- (lambda (#{p\ 14464}# #{pvars\ 14465}#)
- (if (not (#{distinct-bound-ids?\ 11216}#
- (map car #{pvars\ 14465}#)))
+ (#{convert-pattern\ 3916}#
+ #{pat\ 3969}#
+ #{keys\ 3966}#))
+ (lambda (#{p\ 3981}# #{pvars\ 3982}#)
+ (if (not (#{distinct-bound-ids?\ 731}#
+ (map car #{pvars\ 3982}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 14452}#)
+ #{pat\ 3969}#)
(if (not (and-map
- (lambda (#{x\ 14472}#)
- (not (#{ellipsis?\ 11252}#
- (car #{x\ 14472}#))))
- #{pvars\ 14465}#))
+ (lambda (#{x\ 3989}#)
+ (not (#{ellipsis?\ 767}#
+ (car #{x\ 3989}#))))
+ #{pvars\ 3982}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 14452}#)
- (let ((#{y\ 14476}#
- (#{gen-var\ 11264}# (quote tmp))))
- (#{build-application\ 11073}#
+ #{pat\ 3969}#)
+ (let ((#{y\ 3993}#
+ (#{gen-var\ 779}# (quote tmp))))
+ (#{build-application\ 588}#
#f
- (#{build-simple-lambda\ 11093}#
+ (#{build-simple-lambda\ 608}#
#f
(list (quote tmp))
#f
- (list #{y\ 14476}#)
+ (list #{y\ 3993}#)
'()
- (let ((#{y\ 14480}#
- (#{build-lexical-reference\ 11079}#
+ (let ((#{y\ 3997}#
+ (#{build-lexical-reference\ 594}#
'value
#f
'tmp
- #{y\ 14476}#)))
- (#{build-conditional\ 11075}#
+ #{y\ 3993}#)))
+ (#{build-conditional\ 590}#
#f
- ((lambda (#{tmp\ 14483}#)
- ((lambda (#{tmp\ 14484}#)
- (if #{tmp\ 14484}#
- (apply (lambda () #{y\ 14480}#)
- #{tmp\ 14484}#)
- ((lambda (#{_\ 14486}#)
- (#{build-conditional\ 11075}#
+ ((lambda (#{tmp\ 4000}#)
+ ((lambda (#{tmp\ 4001}#)
+ (if #{tmp\ 4001}#
+ (apply (lambda () #{y\ 3997}#)
+ #{tmp\ 4001}#)
+ ((lambda (#{_\ 4003}#)
+ (#{build-conditional\ 590}#
#f
- #{y\ 14480}#
- (#{build-dispatch-call\
14401}#
- #{pvars\ 14465}#
- #{fender\ 14453}#
- #{y\ 14480}#
- #{r\ 14451}#
- #{mod\ 14455}#)
- (#{build-data\ 11101}#
+ #{y\ 3997}#
+ (#{build-dispatch-call\
3918}#
+ #{pvars\ 3982}#
+ #{fender\ 3970}#
+ #{y\ 3997}#
+ #{r\ 3968}#
+ #{mod\ 3972}#)
+ (#{build-data\ 616}#
#f
#f)))
- #{tmp\ 14483}#)))
+ #{tmp\ 4000}#)))
($sc-dispatch
- #{tmp\ 14483}#
+ #{tmp\ 4000}#
'#(atom #t))))
- #{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}#
+ #{fender\ 3970}#)
+ (#{build-dispatch-call\ 3918}#
+ #{pvars\ 3982}#
+ #{exp\ 3971}#
+ #{y\ 3997}#
+ #{r\ 3968}#
+ #{mod\ 3972}#)
+ (#{gen-syntax-case\ 3922}#
+ #{x\ 3965}#
+ #{keys\ 3966}#
+ #{clauses\ 3967}#
+ #{r\ 3968}#
+ #{mod\ 3972}#))))
+ (list (if (eq? #{p\ 3981}# (quote any))
+ (#{build-application\ 588}#
#f
- (#{build-primref\ 11099}#
+ (#{build-primref\ 614}#
#f
'list)
- (list #{x\ 14448}#))
- (#{build-application\ 11073}#
+ (list #{x\ 3965}#))
+ (#{build-application\ 588}#
#f
- (#{build-primref\ 11099}#
+ (#{build-primref\ 614}#
#f
'$sc-dispatch)
- (list #{x\ 14448}#
- (#{build-data\ 11101}#
+ (list #{x\ 3965}#
+ (#{build-data\ 616}#
#f
- #{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}#
+ #{p\ 3981}#)))))))))))))
+ (#{build-dispatch-call\ 3918}#
+ (lambda (#{pvars\ 4011}#
+ #{exp\ 4012}#
+ #{y\ 4013}#
+ #{r\ 4014}#
+ #{mod\ 4015}#)
+ (let ((#{ids\ 4023}# (map car #{pvars\ 4011}#))
+ (#{levels\ 4024}# (map cdr #{pvars\ 4011}#)))
+ (let ((#{labels\ 4027}#
+ (#{gen-labels\ 684}# #{ids\ 4023}#))
+ (#{new-vars\ 4028}#
+ (map #{gen-var\ 779}# #{ids\ 4023}#)))
+ (#{build-application\ 588}#
#f
- (#{build-primref\ 11099}# #f (quote apply))
- (list (#{build-simple-lambda\ 11093}#
+ (#{build-primref\ 614}# #f (quote apply))
+ (list (#{build-simple-lambda\ 608}#
#f
- (map syntax->datum #{ids\ 14506}#)
+ (map syntax->datum #{ids\ 4023}#)
#f
- #{new-vars\ 14511}#
+ #{new-vars\ 4028}#
'()
- (#{chi\ 11236}#
- #{exp\ 14495}#
- (#{extend-env\ 11139}#
- #{labels\ 14510}#
- (map (lambda (#{var\ 14515}#
- #{level\ 14516}#)
+ (#{chi\ 751}#
+ #{exp\ 4012}#
+ (#{extend-env\ 654}#
+ #{labels\ 4027}#
+ (map (lambda (#{var\ 4032}#
+ #{level\ 4033}#)
(cons 'syntax
- (cons #{var\ 14515}#
- #{level\ 14516}#)))
- #{new-vars\ 14511}#
- (map cdr #{pvars\ 14494}#))
- #{r\ 14497}#)
- (#{make-binding-wrap\ 11198}#
- #{ids\ 14506}#
- #{labels\ 14510}#
+ (cons #{var\ 4032}#
+ #{level\ 4033}#)))
+ #{new-vars\ 4028}#
+ (map cdr #{pvars\ 4011}#))
+ #{r\ 4014}#)
+ (#{make-binding-wrap\ 713}#
+ #{ids\ 4023}#
+ #{labels\ 4027}#
'(()))
- #{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}#)
+ #{mod\ 4015}#))
+ #{y\ 4013}#))))))
+ (#{convert-pattern\ 3916}#
+ (lambda (#{pattern\ 4039}# #{keys\ 4040}#)
+ (letrec ((#{cvt\ 4046}#
+ (lambda (#{p\ 4047}# #{n\ 4048}# #{ids\ 4049}#)
+ (if (#{id?\ 666}# #{p\ 4047}#)
+ (if (#{bound-id-member?\ 733}#
+ #{p\ 4047}#
+ #{keys\ 4040}#)
(values
- (vector (quote free-id) #{p\ 14530}#)
- #{ids\ 14532}#)
+ (vector (quote free-id) #{p\ 4047}#)
+ #{ids\ 4049}#)
(values
'any
- (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}#)
+ (cons (cons #{p\ 4047}# #{n\ 4048}#)
+ #{ids\ 4049}#)))
+ ((lambda (#{tmp\ 4053}#)
+ ((lambda (#{tmp\ 4054}#)
+ (if (if #{tmp\ 4054}#
+ (apply (lambda (#{x\ 4057}#
+ #{dots\ 4058}#)
+ (#{ellipsis?\ 767}#
+ #{dots\ 4058}#))
+ #{tmp\ 4054}#)
#f)
- (apply (lambda (#{x\ 14544}#
- #{dots\ 14545}#)
+ (apply (lambda (#{x\ 4061}#
+ #{dots\ 4062}#)
(call-with-values
(lambda ()
- (#{cvt\ 14529}#
- #{x\ 14544}#
- (#{fx+\ 11052}#
- #{n\ 14531}#
+ (#{cvt\ 4046}#
+ #{x\ 4061}#
+ (#{fx+\ 567}#
+ #{n\ 4048}#
1)
- #{ids\ 14532}#))
- (lambda (#{p\ 14546}#
- #{ids\ 14547}#)
+ #{ids\ 4049}#))
+ (lambda (#{p\ 4063}#
+ #{ids\ 4064}#)
(values
- (if (eq? #{p\
14546}#
+ (if (eq? #{p\ 4063}#
'any)
'each-any
(vector
'each
- #{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}#)
+ #{p\ 4063}#))
+ #{ids\ 4064}#))))
+ #{tmp\ 4054}#)
+ ((lambda (#{tmp\ 4067}#)
+ (if (if #{tmp\ 4067}#
+ (apply (lambda (#{x\
4071}#
+ #{dots\
4072}#
+ #{ys\
4073}#)
+ (#{ellipsis?\
767}#
+ #{dots\
4072}#))
+ #{tmp\ 4067}#)
#f)
- (apply (lambda (#{x\ 14560}#
- #{dots\
14561}#
- #{ys\ 14562}#)
+ (apply (lambda (#{x\ 4077}#
+ #{dots\ 4078}#
+ #{ys\ 4079}#)
(call-with-values
(lambda ()
- (#{cvt*\ 14527}#
- #{ys\ 14562}#
- #{n\ 14531}#
- #{ids\
14532}#))
- (lambda (#{ys\
14564}#
- #{ids\
14565}#)
+ (#{cvt*\ 4044}#
+ #{ys\ 4079}#
+ #{n\ 4048}#
+ #{ids\ 4049}#))
+ (lambda (#{ys\
4081}#
+ #{ids\
4082}#)
(call-with-values
(lambda ()
- (#{cvt\
14529}#
- #{x\
14560}#
- (+ #{n\
14531}#
+ (#{cvt\
4046}#
+ #{x\ 4077}#
+ (+ #{n\
4048}#
1)
- #{ids\
14565}#))
- (lambda (#{x\
14568}#
-
#{ids\ 14569}#)
+ #{ids\
4082}#))
+ (lambda (#{x\
4085}#
+
#{ids\ 4086}#)
(values
(list->vector
(cons
'each+
-
(cons #{x\ 14568}#
+
(cons #{x\ 4085}#
(cons (reverse
-
#{ys\ 14564}#)
+
#{ys\ 4081}#)
'(())))))
- #{ids\
14569}#))))))
- #{tmp\ 14550}#)
- ((lambda (#{tmp\ 14573}#)
- (if #{tmp\ 14573}#
- (apply (lambda (#{x\
14576}#
- #{y\
14577}#)
+ #{ids\
4086}#))))))
+ #{tmp\ 4067}#)
+ ((lambda (#{tmp\ 4090}#)
+ (if #{tmp\ 4090}#
+ (apply (lambda (#{x\
4093}#
+ #{y\
4094}#)
(call-with-values
(lambda ()
- (#{cvt\
14529}#
- #{y\
14577}#
- #{n\
14531}#
- #{ids\
14532}#))
- (lambda (#{y\
14578}#
-
#{ids\ 14579}#)
+ (#{cvt\
4046}#
+ #{y\
4094}#
+ #{n\
4048}#
+ #{ids\
4049}#))
+ (lambda (#{y\
4095}#
+
#{ids\ 4096}#)
(call-with-values
(lambda ()
- (#{cvt\
14529}#
- #{x\
14576}#
- #{n\
14531}#
-
#{ids\ 14579}#))
- (lambda
(#{x\ 14582}#
-
#{ids\ 14583}#)
+ (#{cvt\
4046}#
+ #{x\
4093}#
+ #{n\
4048}#
+
#{ids\ 4096}#))
+ (lambda
(#{x\ 4099}#
+
#{ids\ 4100}#)
(values
- (cons
#{x\ 14582}#
-
#{y\ 14578}#)
-
#{ids\ 14583}#))))))
- #{tmp\ 14573}#)
- ((lambda (#{tmp\ 14586}#)
- (if #{tmp\ 14586}#
+ (cons
#{x\ 4099}#
+
#{y\ 4095}#)
+
#{ids\ 4100}#))))))
+ #{tmp\ 4090}#)
+ ((lambda (#{tmp\ 4103}#)
+ (if #{tmp\ 4103}#
(apply (lambda ()
(values
'()
- #{ids\
14532}#))
- #{tmp\
14586}#)
- ((lambda (#{tmp\
14587}#)
- (if #{tmp\
14587}#
- (apply (lambda
(#{x\ 14589}#)
+ #{ids\
4049}#))
+ #{tmp\
4103}#)
+ ((lambda (#{tmp\
4104}#)
+ (if #{tmp\ 4104}#
+ (apply (lambda
(#{x\ 4106}#)
(call-with-values
(lambda ()
-
(#{cvt\ 14529}#
-
#{x\ 14589}#
-
#{n\ 14531}#
-
#{ids\ 14532}#))
-
(lambda (#{p\ 14591}#
-
#{ids\ 14592}#)
+
(#{cvt\ 4046}#
+
#{x\ 4106}#
+
#{n\ 4048}#
+
#{ids\ 4049}#))
+
(lambda (#{p\ 4108}#
+
#{ids\ 4109}#)
(values
(vector
'vector
-
#{p\ 14591}#)
-
#{ids\ 14592}#))))
- #{tmp\
14587}#)
- ((lambda (#{x\
14596}#)
+
#{p\ 4108}#)
+
#{ids\ 4109}#))))
+ #{tmp\
4104}#)
+ ((lambda (#{x\
4113}#)
(values
(vector
'atom
-
(#{strip\ 11262}#
- #{p\
14530}#
+
(#{strip\ 777}#
+ #{p\
4047}#
'(())))
- #{ids\
14532}#))
- #{tmp\
14536}#)))
+ #{ids\
4049}#))
+ #{tmp\
4053}#)))
($sc-dispatch
- #{tmp\ 14536}#
+ #{tmp\ 4053}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 14536}#
+ #{tmp\ 4053}#
'()))))
($sc-dispatch
- #{tmp\ 14536}#
+ #{tmp\ 4053}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 14536}#
+ #{tmp\ 4053}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 14536}#
+ #{tmp\ 4053}#
'(any any))))
- #{p\ 14530}#))))
- (#{cvt*\ 14527}#
- (lambda (#{p*\ 14598}#
- #{n\ 14599}#
- #{ids\ 14600}#)
- (if (null? #{p*\ 14598}#)
- (values (quote ()) #{ids\ 14600}#)
+ #{p\ 4047}#))))
+ (#{cvt*\ 4044}#
+ (lambda (#{p*\ 4115}#
+ #{n\ 4116}#
+ #{ids\ 4117}#)
+ (if (null? #{p*\ 4115}#)
+ (values (quote ()) #{ids\ 4117}#)
(call-with-values
(lambda ()
- (#{cvt*\ 14527}#
- (cdr #{p*\ 14598}#)
- #{n\ 14599}#
- #{ids\ 14600}#))
- (lambda (#{y\ 14604}# #{ids\ 14605}#)
+ (#{cvt*\ 4044}#
+ (cdr #{p*\ 4115}#)
+ #{n\ 4116}#
+ #{ids\ 4117}#))
+ (lambda (#{y\ 4121}# #{ids\ 4122}#)
(call-with-values
(lambda ()
- (#{cvt\ 14529}#
- (car #{p*\ 14598}#)
- #{n\ 14599}#
- #{ids\ 14605}#))
- (lambda (#{x\ 14608}# #{ids\ 14609}#)
+ (#{cvt\ 4046}#
+ (car #{p*\ 4115}#)
+ #{n\ 4116}#
+ #{ids\ 4122}#))
+ (lambda (#{x\ 4125}# #{ids\ 4126}#)
(values
- (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}#)
+ (cons #{x\ 4125}# #{y\ 4121}#)
+ #{ids\ 4126}#)))))))))
+ (#{cvt\ 4046}# #{pattern\ 4039}# 0 (quote ()))))))
+ (lambda (#{e\ 4129}#
+ #{r\ 4130}#
+ #{w\ 4131}#
+ #{s\ 4132}#
+ #{mod\ 4133}#)
+ (let ((#{e\ 4140}#
+ (#{source-wrap\ 737}#
+ #{e\ 4129}#
+ #{w\ 4131}#
+ #{s\ 4132}#
+ #{mod\ 4133}#)))
+ ((lambda (#{tmp\ 4141}#)
+ ((lambda (#{tmp\ 4142}#)
+ (if #{tmp\ 4142}#
+ (apply (lambda (#{_\ 4147}#
+ #{val\ 4148}#
+ #{key\ 4149}#
+ #{m\ 4150}#)
(if (and-map
- (lambda (#{x\ 14634}#)
- (if (#{id?\ 11151}# #{x\ 14634}#)
- (not (#{ellipsis?\ 11252}#
- #{x\ 14634}#))
+ (lambda (#{x\ 4151}#)
+ (if (#{id?\ 666}# #{x\ 4151}#)
+ (not (#{ellipsis?\ 767}# #{x\ 4151}#))
#f))
- #{key\ 14632}#)
- (let ((#{x\ 14640}#
- (#{gen-var\ 11264}# (quote tmp))))
- (#{build-application\ 11073}#
- #{s\ 14615}#
- (#{build-simple-lambda\ 11093}#
+ #{key\ 4149}#)
+ (let ((#{x\ 4157}#
+ (#{gen-var\ 779}# (quote tmp))))
+ (#{build-application\ 588}#
+ #{s\ 4132}#
+ (#{build-simple-lambda\ 608}#
#f
(list (quote tmp))
#f
- (list #{x\ 14640}#)
+ (list #{x\ 4157}#)
'()
- (#{gen-syntax-case\ 14405}#
- (#{build-lexical-reference\ 11079}#
+ (#{gen-syntax-case\ 3922}#
+ (#{build-lexical-reference\ 594}#
'value
#f
'tmp
- #{x\ 14640}#)
- #{key\ 14632}#
- #{m\ 14633}#
- #{r\ 14613}#
- #{mod\ 14616}#))
- (list (#{chi\ 11236}#
- #{val\ 14631}#
- #{r\ 14613}#
+ #{x\ 4157}#)
+ #{key\ 4149}#
+ #{m\ 4150}#
+ #{r\ 4130}#
+ #{mod\ 4133}#))
+ (list (#{chi\ 751}#
+ #{val\ 4148}#
+ #{r\ 4130}#
'(())
- #{mod\ 14616}#))))
+ #{mod\ 4133}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 14623}#)))
- #{tmp\ 14625}#)
+ #{e\ 4140}#)))
+ #{tmp\ 4142}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14624}#)))
+ #{tmp\ 4141}#)))
($sc-dispatch
- #{tmp\ 14624}#
+ #{tmp\ 4141}#
'(any any each-any . each-any))))
- #{e\ 14623}#)))))
+ #{e\ 4140}#)))))
(set! macroexpand
- (lambda (#{x\ 14646}# . #{rest\ 14647}#)
- (let ((#{m\ 14653}#
- (if (null? #{rest\ 14647}#)
+ (lambda (#{x\ 4163}# . #{rest\ 4164}#)
+ (let ((#{m\ 4170}#
+ (if (null? #{rest\ 4164}#)
'e
- (car #{rest\ 14647}#)))
- (#{esew\ 14654}#
- (if (let ((#{t\ 14658}# (null? #{rest\ 14647}#)))
- (if #{t\ 14658}#
- #{t\ 14658}#
- (null? (cdr #{rest\ 14647}#))))
+ (car #{rest\ 4164}#)))
+ (#{esew\ 4171}#
+ (if (let ((#{t\ 4175}# (null? #{rest\ 4164}#)))
+ (if #{t\ 4175}#
+ #{t\ 4175}#
+ (null? (cdr #{rest\ 4164}#))))
'(eval)
- (cadr #{rest\ 14647}#)))
- (#{mod\ 14655}#
+ (cadr #{rest\ 4164}#)))
+ (#{mod\ 4172}#
(cons 'hygiene
(module-name (current-module)))))
(with-fluids
- ((#{*mode*\ 11050}# #{m\ 14653}#))
- (if (eq? #{m\ 14653}# (quote e))
+ ((#{*mode*\ 565}# #{m\ 4170}#))
+ (if (eq? #{m\ 4170}# (quote e))
(memoize-expression
- (#{chi-top\ 11234}#
- #{x\ 14646}#
+ (#{chi-top\ 749}#
+ #{x\ 4163}#
'()
'((top))
- #{m\ 14653}#
- #{esew\ 14654}#
- #{mod\ 14655}#))
- (#{chi-top\ 11234}#
- #{x\ 14646}#
+ #{m\ 4170}#
+ #{esew\ 4171}#
+ #{mod\ 4172}#))
+ (#{chi-top\ 749}#
+ #{x\ 4163}#
'()
'((top))
- #{m\ 14653}#
- #{esew\ 14654}#
- #{mod\ 14655}#))))))
+ #{m\ 4170}#
+ #{esew\ 4171}#
+ #{mod\ 4172}#))))))
(set! identifier?
- (lambda (#{x\ 14664}#)
- (#{nonsymbol-id?\ 11149}# #{x\ 14664}#)))
+ (lambda (#{x\ 4181}#)
+ (#{nonsymbol-id?\ 664}# #{x\ 4181}#)))
(set! datum->syntax
- (lambda (#{id\ 14666}# #{datum\ 14667}#)
- (#{make-syntax-object\ 11113}#
- #{datum\ 14667}#
- (#{syntax-object-wrap\ 11119}# #{id\ 14666}#)
+ (lambda (#{id\ 4183}# #{datum\ 4184}#)
+ (#{make-syntax-object\ 628}#
+ #{datum\ 4184}#
+ (#{syntax-object-wrap\ 634}# #{id\ 4183}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 14670}#)
- (#{strip\ 11262}# #{x\ 14670}# (quote (())))))
+ (lambda (#{x\ 4187}#)
+ (#{strip\ 777}# #{x\ 4187}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 14673}#)
+ (lambda (#{ls\ 4190}#)
(begin
- (let ((#{x\ 14677}# #{ls\ 14673}#))
- (if (not (list? #{x\ 14677}#))
+ (let ((#{x\ 4194}# #{ls\ 4190}#))
+ (if (not (list? #{x\ 4194}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 14677}#)))
- (map (lambda (#{x\ 14678}#)
- (#{wrap\ 11220}# (gensym) (quote ((top))) #f))
- #{ls\ 14673}#))))
+ #{x\ 4194}#)))
+ (map (lambda (#{x\ 4195}#)
+ (#{wrap\ 735}# (gensym) (quote ((top))) #f))
+ #{ls\ 4190}#))))
(set! free-identifier=?
- (lambda (#{x\ 14682}# #{y\ 14683}#)
+ (lambda (#{x\ 4199}# #{y\ 4200}#)
(begin
- (let ((#{x\ 14688}# #{x\ 14682}#))
- (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14688}#))
+ (let ((#{x\ 4205}# #{x\ 4199}#))
+ (if (not (#{nonsymbol-id?\ 664}# #{x\ 4205}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 14688}#)))
- (let ((#{x\ 14691}# #{y\ 14683}#))
- (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14691}#))
+ #{x\ 4205}#)))
+ (let ((#{x\ 4208}# #{y\ 4200}#))
+ (if (not (#{nonsymbol-id?\ 664}# #{x\ 4208}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 14691}#)))
- (#{free-id=?\ 11210}# #{x\ 14682}# #{y\ 14683}#))))
+ #{x\ 4208}#)))
+ (#{free-id=?\ 725}# #{x\ 4199}# #{y\ 4200}#))))
(set! bound-identifier=?
- (lambda (#{x\ 14692}# #{y\ 14693}#)
+ (lambda (#{x\ 4209}# #{y\ 4210}#)
(begin
- (let ((#{x\ 14698}# #{x\ 14692}#))
- (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14698}#))
+ (let ((#{x\ 4215}# #{x\ 4209}#))
+ (if (not (#{nonsymbol-id?\ 664}# #{x\ 4215}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 14698}#)))
- (let ((#{x\ 14701}# #{y\ 14693}#))
- (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14701}#))
+ #{x\ 4215}#)))
+ (let ((#{x\ 4218}# #{y\ 4210}#))
+ (if (not (#{nonsymbol-id?\ 664}# #{x\ 4218}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 14701}#)))
- (#{bound-id=?\ 11212}# #{x\ 14692}# #{y\ 14693}#))))
+ #{x\ 4218}#)))
+ (#{bound-id=?\ 727}# #{x\ 4209}# #{y\ 4210}#))))
(set! syntax-violation
- (lambda (#{who\ 14702}#
- #{message\ 14703}#
- #{form\ 14704}#
+ (lambda (#{who\ 4219}#
+ #{message\ 4220}#
+ #{form\ 4221}#
.
- #{subform\ 14705}#)
+ #{subform\ 4222}#)
(begin
- (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}#))
+ (let ((#{x\ 4229}# #{who\ 4219}#))
+ (if (not ((lambda (#{x\ 4230}#)
+ (let ((#{t\ 4234}# (not #{x\ 4230}#)))
+ (if #{t\ 4234}#
+ #{t\ 4234}#
+ (let ((#{t\ 4237}# (string? #{x\ 4230}#)))
+ (if #{t\ 4237}#
+ #{t\ 4237}#
+ (symbol? #{x\ 4230}#))))))
+ #{x\ 4229}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 14712}#)))
- (let ((#{x\ 14724}# #{message\ 14703}#))
- (if (not (string? #{x\ 14724}#))
+ #{x\ 4229}#)))
+ (let ((#{x\ 4241}# #{message\ 4220}#))
+ (if (not (string? #{x\ 4241}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 14724}#)))
+ #{x\ 4241}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 14702}# "~a: " "")
+ (if #{who\ 4219}# "~a: " "")
"~a "
- (if (null? #{subform\ 14705}#)
+ (if (null? #{subform\ 4222}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 14726}#
- (cons #{message\ 14703}#
- (map (lambda (#{x\ 14727}#)
- (#{strip\ 11262}#
- #{x\ 14727}#
- '(())))
+ (let ((#{tail\ 4243}#
+ (cons #{message\ 4220}#
+ (map (lambda (#{x\ 4244}#)
+ (#{strip\ 777}# #{x\ 4244}# (quote (()))))
(append
- #{subform\ 14705}#
- (list #{form\ 14704}#))))))
- (if #{who\ 14702}#
- (cons #{who\ 14702}# #{tail\ 14726}#)
- #{tail\ 14726}#))
+ #{subform\ 4222}#
+ (list #{form\ 4221}#))))))
+ (if #{who\ 4219}#
+ (cons #{who\ 4219}# #{tail\ 4243}#)
+ #{tail\ 4243}#))
#f))))
- (letrec ((#{match\ 14743}#
- (lambda (#{e\ 14744}#
- #{p\ 14745}#
- #{w\ 14746}#
- #{r\ 14747}#
- #{mod\ 14748}#)
- (if (not #{r\ 14747}#)
+ (letrec ((#{match\ 4260}#
+ (lambda (#{e\ 4261}#
+ #{p\ 4262}#
+ #{w\ 4263}#
+ #{r\ 4264}#
+ #{mod\ 4265}#)
+ (if (not #{r\ 4264}#)
#f
- (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}#)
+ (if (eq? #{p\ 4262}# (quote any))
+ (cons (#{wrap\ 735}#
+ #{e\ 4261}#
+ #{w\ 4263}#
+ #{mod\ 4265}#)
+ #{r\ 4264}#)
+ (if (#{syntax-object?\ 630}# #{e\ 4261}#)
+ (#{match*\ 4258}#
+ (#{syntax-object-expression\ 632}# #{e\ 4261}#)
+ #{p\ 4262}#
+ (#{join-wraps\ 717}#
+ #{w\ 4263}#
+ (#{syntax-object-wrap\ 634}# #{e\ 4261}#))
+ #{r\ 4264}#
+ (#{syntax-object-module\ 636}# #{e\ 4261}#))
+ (#{match*\ 4258}#
+ #{e\ 4261}#
+ #{p\ 4262}#
+ #{w\ 4263}#
+ #{r\ 4264}#
+ #{mod\ 4265}#))))))
+ (#{match*\ 4258}#
+ (lambda (#{e\ 4278}#
+ #{p\ 4279}#
+ #{w\ 4280}#
+ #{r\ 4281}#
+ #{mod\ 4282}#)
+ (if (null? #{p\ 4279}#)
+ (if (null? #{e\ 4278}#) #{r\ 4281}# #f)
+ (if (pair? #{p\ 4279}#)
+ (if (pair? #{e\ 4278}#)
+ (#{match\ 4260}#
+ (car #{e\ 4278}#)
+ (car #{p\ 4279}#)
+ #{w\ 4280}#
+ (#{match\ 4260}#
+ (cdr #{e\ 4278}#)
+ (cdr #{p\ 4279}#)
+ #{w\ 4280}#
+ #{r\ 4281}#
+ #{mod\ 4282}#)
+ #{mod\ 4282}#)
#f)
- (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}#)
+ (if (eq? #{p\ 4279}# (quote each-any))
+ (let ((#{l\ 4299}#
+ (#{match-each-any\ 4252}#
+ #{e\ 4278}#
+ #{w\ 4280}#
+ #{mod\ 4282}#)))
+ (if #{l\ 4299}#
+ (cons #{l\ 4299}# #{r\ 4281}#)
#f))
- (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}#
+ (let ((#{atom-key\ 4305}# (vector-ref #{p\ 4279}# 0)))
+ (if (memv #{atom-key\ 4305}# (quote (each)))
+ (if (null? #{e\ 4278}#)
+ (#{match-empty\ 4254}#
+ (vector-ref #{p\ 4279}# 1)
+ #{r\ 4281}#)
+ (let ((#{l\ 4308}#
+ (#{match-each\ 4248}#
+ #{e\ 4278}#
+ (vector-ref #{p\ 4279}# 1)
+ #{w\ 4280}#
+ #{mod\ 4282}#)))
+ (if #{l\ 4308}#
+ (letrec ((#{collect\ 4313}#
+ (lambda (#{l\ 4314}#)
+ (if (null? (car #{l\ 4314}#))
+ #{r\ 4281}#
+ (cons (map car #{l\ 4314}#)
+ (#{collect\ 4313}#
(map cdr
- #{l\
14797}#)))))))
- (#{collect\ 14796}# #{l\ 14791}#))
+ #{l\
4314}#)))))))
+ (#{collect\ 4313}# #{l\ 4308}#))
#f)))
- (if (memv #{atom-key\ 14788}# (quote (each+)))
+ (if (memv #{atom-key\ 4305}# (quote (each+)))
(call-with-values
(lambda ()
- (#{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}#))
+ (#{match-each+\ 4250}#
+ #{e\ 4278}#
+ (vector-ref #{p\ 4279}# 1)
+ (vector-ref #{p\ 4279}# 2)
+ (vector-ref #{p\ 4279}# 3)
+ #{w\ 4280}#
+ #{r\ 4281}#
+ #{mod\ 4282}#))
+ (lambda (#{xr*\ 4316}#
+ #{y-pat\ 4317}#
+ #{r\ 4318}#)
+ (if #{r\ 4318}#
+ (if (null? #{y-pat\ 4317}#)
+ (if (null? #{xr*\ 4316}#)
+ (#{match-empty\ 4254}#
+ (vector-ref #{p\ 4279}# 1)
+ #{r\ 4318}#)
+ (#{combine\ 4256}#
+ #{xr*\ 4316}#
+ #{r\ 4318}#))
#f)
#f)))
- (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}#
+ (if (memv #{atom-key\ 4305}# (quote (free-id)))
+ (if (#{id?\ 666}# #{e\ 4278}#)
+ (if (#{free-id=?\ 725}#
+ (#{wrap\ 735}#
+ #{e\ 4278}#
+ #{w\ 4280}#
+ #{mod\ 4282}#)
+ (vector-ref #{p\ 4279}# 1))
+ #{r\ 4281}#
#f)
#f)
- (if (memv #{atom-key\ 14788}# (quote (atom)))
+ (if (memv #{atom-key\ 4305}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 14762}# 1)
- (#{strip\ 11262}#
- #{e\ 14761}#
- #{w\ 14763}#))
- #{r\ 14764}#
+ (vector-ref #{p\ 4279}# 1)
+ (#{strip\ 777}#
+ #{e\ 4278}#
+ #{w\ 4280}#))
+ #{r\ 4281}#
#f)
- (if (memv #{atom-key\ 14788}#
+ (if (memv #{atom-key\ 4305}#
'(vector))
- (if (vector? #{e\ 14761}#)
- (#{match\ 14743}#
- (vector->list #{e\ 14761}#)
- (vector-ref #{p\ 14762}# 1)
- #{w\ 14763}#
- #{r\ 14764}#
- #{mod\ 14765}#)
+ (if (vector? #{e\ 4278}#)
+ (#{match\ 4260}#
+ (vector->list #{e\ 4278}#)
+ (vector-ref #{p\ 4279}# 1)
+ #{w\ 4280}#
+ #{r\ 4281}#
+ #{mod\ 4282}#)
#f))))))))))))
- (#{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}#
+ (#{combine\ 4256}#
+ (lambda (#{r*\ 4335}# #{r\ 4336}#)
+ (if (null? (car #{r*\ 4335}#))
+ #{r\ 4336}#
+ (cons (map car #{r*\ 4335}#)
+ (#{combine\ 4256}#
+ (map cdr #{r*\ 4335}#)
+ #{r\ 4336}#)))))
+ (#{match-empty\ 4254}#
+ (lambda (#{p\ 4339}# #{r\ 4340}#)
+ (if (null? #{p\ 4339}#)
+ #{r\ 4340}#
+ (if (eq? #{p\ 4339}# (quote any))
+ (cons (quote ()) #{r\ 4340}#)
+ (if (pair? #{p\ 4339}#)
+ (#{match-empty\ 4254}#
+ (car #{p\ 4339}#)
+ (#{match-empty\ 4254}#
+ (cdr #{p\ 4339}#)
+ #{r\ 4340}#))
+ (if (eq? #{p\ 4339}# (quote each-any))
+ (cons (quote ()) #{r\ 4340}#)
+ (let ((#{atom-key\ 4354}#
+ (vector-ref #{p\ 4339}# 0)))
+ (if (memv #{atom-key\ 4354}# (quote (each)))
+ (#{match-empty\ 4254}#
+ (vector-ref #{p\ 4339}# 1)
+ #{r\ 4340}#)
+ (if (memv #{atom-key\ 4354}# (quote (each+)))
+ (#{match-empty\ 4254}#
+ (vector-ref #{p\ 4339}# 1)
+ (#{match-empty\ 4254}#
+ (reverse (vector-ref #{p\ 4339}# 2))
+ (#{match-empty\ 4254}#
+ (vector-ref #{p\ 4339}# 3)
+ #{r\ 4340}#)))
+ (if (memv #{atom-key\ 4354}#
'(free-id atom))
- #{r\ 14823}#
- (if (memv #{atom-key\ 14837}#
+ #{r\ 4340}#
+ (if (memv #{atom-key\ 4354}#
'(vector))
- (#{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}#)
+ (#{match-empty\ 4254}#
+ (vector-ref #{p\ 4339}# 1)
+ #{r\ 4340}#))))))))))))
+ (#{match-each-any\ 4252}#
+ (lambda (#{e\ 4359}# #{w\ 4360}# #{mod\ 4361}#)
+ (if (pair? #{e\ 4359}#)
+ (let ((#{l\ 4368}#
+ (#{match-each-any\ 4252}#
+ (cdr #{e\ 4359}#)
+ #{w\ 4360}#
+ #{mod\ 4361}#)))
+ (if #{l\ 4368}#
+ (cons (#{wrap\ 735}#
+ (car #{e\ 4359}#)
+ #{w\ 4360}#
+ #{mod\ 4361}#)
+ #{l\ 4368}#)
#f))
- (if (null? #{e\ 14842}#)
+ (if (null? #{e\ 4359}#)
'()
- (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}#)
+ (if (#{syntax-object?\ 630}# #{e\ 4359}#)
+ (#{match-each-any\ 4252}#
+ (#{syntax-object-expression\ 632}# #{e\ 4359}#)
+ (#{join-wraps\ 717}#
+ #{w\ 4360}#
+ (#{syntax-object-wrap\ 634}# #{e\ 4359}#))
+ #{mod\ 4361}#)
#f)))))
- (#{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}#)
+ (#{match-each+\ 4250}#
+ (lambda (#{e\ 4376}#
+ #{x-pat\ 4377}#
+ #{y-pat\ 4378}#
+ #{z-pat\ 4379}#
+ #{w\ 4380}#
+ #{r\ 4381}#
+ #{mod\ 4382}#)
+ (letrec ((#{f\ 4393}#
+ (lambda (#{e\ 4394}# #{w\ 4395}#)
+ (if (pair? #{e\ 4394}#)
(call-with-values
(lambda ()
- (#{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}#
+ (#{f\ 4393}#
+ (cdr #{e\ 4394}#)
+ #{w\ 4395}#))
+ (lambda (#{xr*\ 4398}#
+ #{y-pat\ 4399}#
+ #{r\ 4400}#)
+ (if #{r\ 4400}#
+ (if (null? #{y-pat\ 4399}#)
+ (let ((#{xr\ 4405}#
+ (#{match\ 4260}#
+ (car #{e\ 4394}#)
+ #{x-pat\ 4377}#
+ #{w\ 4395}#
'()
- #{mod\ 14865}#)))
- (if #{xr\ 14888}#
+ #{mod\ 4382}#)))
+ (if #{xr\ 4405}#
(values
- (cons #{xr\ 14888}#
- #{xr*\ 14881}#)
- #{y-pat\ 14882}#
- #{r\ 14883}#)
+ (cons #{xr\ 4405}#
+ #{xr*\ 4398}#)
+ #{y-pat\ 4399}#
+ #{r\ 4400}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 14882}#)
- (#{match\ 14743}#
- (car #{e\ 14877}#)
- (car #{y-pat\ 14882}#)
- #{w\ 14878}#
- #{r\ 14883}#
- #{mod\ 14865}#)))
+ (cdr #{y-pat\ 4399}#)
+ (#{match\ 4260}#
+ (car #{e\ 4394}#)
+ (car #{y-pat\ 4399}#)
+ #{w\ 4395}#
+ #{r\ 4400}#
+ #{mod\ 4382}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 11115}# #{e\ 14877}#)
- (#{f\ 14876}#
- (#{syntax-object-expression\ 11117}#
- #{e\ 14877}#)
- (#{join-wraps\ 11202}#
- #{w\ 14878}#
- #{e\ 14877}#))
+ (if (#{syntax-object?\ 630}# #{e\ 4394}#)
+ (#{f\ 4393}#
+ (#{syntax-object-expression\ 632}#
+ #{e\ 4394}#)
+ (#{join-wraps\ 717}#
+ #{w\ 4395}#
+ #{e\ 4394}#))
(values
'()
- #{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}#
+ #{y-pat\ 4378}#
+ (#{match\ 4260}#
+ #{e\ 4394}#
+ #{z-pat\ 4379}#
+ #{w\ 4395}#
+ #{r\ 4381}#
+ #{mod\ 4382}#)))))))
+ (#{f\ 4393}# #{e\ 4376}# #{w\ 4380}#))))
+ (#{match-each\ 4248}#
+ (lambda (#{e\ 4409}#
+ #{p\ 4410}#
+ #{w\ 4411}#
+ #{mod\ 4412}#)
+ (if (pair? #{e\ 4409}#)
+ (let ((#{first\ 4420}#
+ (#{match\ 4260}#
+ (car #{e\ 4409}#)
+ #{p\ 4410}#
+ #{w\ 4411}#
'()
- #{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}#)
+ #{mod\ 4412}#)))
+ (if #{first\ 4420}#
+ (let ((#{rest\ 4424}#
+ (#{match-each\ 4248}#
+ (cdr #{e\ 4409}#)
+ #{p\ 4410}#
+ #{w\ 4411}#
+ #{mod\ 4412}#)))
+ (if #{rest\ 4424}#
+ (cons #{first\ 4420}# #{rest\ 4424}#)
#f))
#f))
- (if (null? #{e\ 14892}#)
+ (if (null? #{e\ 4409}#)
'()
- (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}#))
+ (if (#{syntax-object?\ 630}# #{e\ 4409}#)
+ (#{match-each\ 4248}#
+ (#{syntax-object-expression\ 632}# #{e\ 4409}#)
+ #{p\ 4410}#
+ (#{join-wraps\ 717}#
+ #{w\ 4411}#
+ (#{syntax-object-wrap\ 634}# #{e\ 4409}#))
+ (#{syntax-object-module\ 636}# #{e\ 4409}#))
#f))))))
(set! $sc-dispatch
- (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}#)
+ (lambda (#{e\ 4432}# #{p\ 4433}#)
+ (if (eq? #{p\ 4433}# (quote any))
+ (list #{e\ 4432}#)
+ (if (#{syntax-object?\ 630}# #{e\ 4432}#)
+ (#{match*\ 4258}#
+ (#{syntax-object-expression\ 632}# #{e\ 4432}#)
+ #{p\ 4433}#
+ (#{syntax-object-wrap\ 634}# #{e\ 4432}#)
'()
- (#{syntax-object-module\ 11121}# #{e\ 14915}#))
- (#{match*\ 14741}#
- #{e\ 14915}#
- #{p\ 14916}#
+ (#{syntax-object-module\ 636}# #{e\ 4432}#))
+ (#{match*\ 4258}#
+ #{e\ 4432}#
+ #{p\ 4433}#
'(())
'()
#f)))))))))
@@ -12257,50 +12136,50 @@
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 14925}#)
- ((lambda (#{tmp\ 14927}#)
- ((lambda (#{tmp\ 14928}#)
- (if #{tmp\ 14928}#
- (apply (lambda (#{_\ 14932}# #{e1\ 14933}# #{e2\ 14934}#)
+ (cons (lambda (#{x\ 4442}#)
+ ((lambda (#{tmp\ 4444}#)
+ ((lambda (#{tmp\ 4445}#)
+ (if #{tmp\ 4445}#
+ (apply (lambda (#{_\ 4449}# #{e1\ 4450}# #{e2\ 4451}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i14929" "i14930" "i14931"))
+ #("i4446" "i4447" "i4448"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i14926")))
+ #(ribcage #(x) #((top)) #("i4443")))
(hygiene guile))
- (cons #{e1\ 14933}# #{e2\ 14934}#)))
- #{tmp\ 14928}#)
- ((lambda (#{tmp\ 14936}#)
- (if #{tmp\ 14936}#
- (apply (lambda (#{_\ 14942}#
- #{out\ 14943}#
- #{in\ 14944}#
- #{e1\ 14945}#
- #{e2\ 14946}#)
+ (cons #{e1\ 4450}# #{e2\ 4451}#)))
+ #{tmp\ 4445}#)
+ ((lambda (#{tmp\ 4453}#)
+ (if #{tmp\ 4453}#
+ (apply (lambda (#{_\ 4459}#
+ #{out\ 4460}#
+ #{in\ 4461}#
+ #{e1\ 4462}#
+ #{e2\ 4463}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i14937"
- "i14938"
- "i14939"
- "i14940"
- "i14941"))
+ #("i4454"
+ "i4455"
+ "i4456"
+ "i4457"
+ "i4458"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i14926")))
+ #("i4443")))
(hygiene guile))
- #{in\ 14944}#
+ #{in\ 4461}#
'()
- (list #{out\ 14943}#
+ (list #{out\ 4460}#
(cons '#(syntax-object
begin
((top)
@@ -12311,27 +12190,27 @@
(top)
(top)
(top))
- #("i14937"
- "i14938"
- "i14939"
- "i14940"
- "i14941"))
+ #("i4454"
+ "i4455"
+ "i4456"
+ "i4457"
+ "i4458"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i14926")))
+ #("i4443")))
(hygiene guile))
- (cons #{e1\ 14945}#
- #{e2\ 14946}#)))))
- #{tmp\ 14936}#)
- ((lambda (#{tmp\ 14948}#)
- (if #{tmp\ 14948}#
- (apply (lambda (#{_\ 14954}#
- #{out\ 14955}#
- #{in\ 14956}#
- #{e1\ 14957}#
- #{e2\ 14958}#)
+ (cons #{e1\ 4462}#
+ #{e2\ 4463}#)))))
+ #{tmp\ 4453}#)
+ ((lambda (#{tmp\ 4465}#)
+ (if #{tmp\ 4465}#
+ (apply (lambda (#{_\ 4471}#
+ #{out\ 4472}#
+ #{in\ 4473}#
+ #{e1\ 4474}#
+ #{e2\ 4475}#)
(list '#(syntax-object
syntax-case
((top)
@@ -12342,16 +12221,16 @@
(top)
(top)
(top))
- #("i14949"
- "i14950"
- "i14951"
- "i14952"
- "i14953"))
+ #("i4466"
+ "i4467"
+ "i4468"
+ "i4469"
+ "i4470"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i14926")))
+ #("i4443")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -12363,20 +12242,20 @@
(top)
(top)
(top))
- #("i14949"
- "i14950"
- "i14951"
- "i14952"
- "i14953"))
+ #("i4466"
+ "i4467"
+ "i4468"
+ "i4469"
+ "i4470"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i14926")))
+ #("i4443")))
(hygiene guile))
- #{in\ 14956}#)
+ #{in\ 4473}#)
'()
- (list #{out\ 14955}#
+ (list #{out\ 4472}#
(cons '#(syntax-object
begin
((top)
@@ -12391,11 +12270,11 @@
(top)
(top)
(top))
- #("i14949"
- "i14950"
- "i14951"
- "i14952"
- "i14953"))
+ #("i4466"
+ "i4467"
+ "i4468"
+ "i4469"
+ "i4470"))
#(ribcage
()
()
@@ -12403,53 +12282,53 @@
#(ribcage
#(x)
#((top))
- #("i14926")))
+ #("i4443")))
(hygiene guile))
- (cons #{e1\ 14957}#
- #{e2\
14958}#)))))
- #{tmp\ 14948}#)
+ (cons #{e1\ 4474}#
+ #{e2\
4475}#)))))
+ #{tmp\ 4465}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14927}#)))
+ #{tmp\ 4444}#)))
($sc-dispatch
- #{tmp\ 14927}#
+ #{tmp\ 4444}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 14927}#
+ #{tmp\ 4444}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 14927}#
+ #{tmp\ 4444}#
'(any () any . each-any))))
- #{x\ 14925}#))
+ #{x\ 4442}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 14962}#)
- ((lambda (#{tmp\ 14964}#)
- ((lambda (#{tmp\ 14965}#)
- (if #{tmp\ 14965}#
- (apply (lambda (#{_\ 14971}#
- #{k\ 14972}#
- #{keyword\ 14973}#
- #{pattern\ 14974}#
- #{template\ 14975}#)
+ (cons (lambda (#{x\ 4479}#)
+ ((lambda (#{tmp\ 4481}#)
+ ((lambda (#{tmp\ 4482}#)
+ (if #{tmp\ 4482}#
+ (apply (lambda (#{_\ 4488}#
+ #{k\ 4489}#
+ #{keyword\ 4490}#
+ #{pattern\ 4491}#
+ #{template\ 4492}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i14966"
- "i14967"
- "i14968"
- "i14969"
- "i14970"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i14963")))
+ #(ribcage #(x) #((top)) #("i4480")))
(hygiene guile))
'(#(syntax-object
x
@@ -12457,13 +12336,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i14966"
- "i14967"
- "i14968"
- "i14969"
- "i14970"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i14963")))
+ #(ribcage #(x) #((top)) #("i4480")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -12472,13 +12351,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i14966"
- "i14967"
- "i14968"
- "i14969"
- "i14970"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i14963")))
+ #(ribcage #(x) #((top)) #("i4480")))
(hygiene guile))
.
#(syntax-object
@@ -12487,13 +12366,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i14966"
- "i14967"
- "i14968"
- "i14969"
- "i14970"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i14963")))
+ #(ribcage #(x) #((top)) #("i4480")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -12509,34 +12388,34 @@
(top)
(top)
(top))
- #("i14966"
- "i14967"
- "i14968"
- "i14969"
- "i14970"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i14963")))
+ #("i4480")))
(hygiene guile))
- #{pattern\ 14974}#))
+ #{pattern\ 4491}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i14966"
- "i14967"
- "i14968"
- "i14969"
- "i14970"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i14963")))
+ #("i4480")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -12552,20 +12431,20 @@
(top)
(top)
(top))
- #("i14966"
- "i14967"
- "i14968"
- "i14969"
- "i14970"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i14963")))
+ #("i4480")))
(hygiene guile))
- (cons #{k\ 14972}#
- (map (lambda (#{tmp\
14979}#
- #{tmp\
14978}#)
+ (cons #{k\ 4489}#
+ (map (lambda (#{tmp\
4496}#
+ #{tmp\
4495}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -12580,11 +12459,11 @@
(top)
(top)
(top))
-
#("i14966"
-
"i14967"
-
"i14968"
-
"i14969"
-
"i14970"))
+
#("i4483"
+
"i4484"
+
"i4485"
+
"i4486"
+
"i4487"))
#(ribcage
()
()
@@ -12592,10 +12471,10 @@
#(ribcage
#(x)
#((top))
-
#("i14963")))
+
#("i4480")))
(hygiene
guile))
- #{tmp\
14978}#)
+ #{tmp\
4495}#)
(list
'#(syntax-object
syntax
((top)
@@ -12610,11 +12489,11 @@
(top)
(top)
(top))
-
#("i14966"
-
"i14967"
-
"i14968"
-
"i14969"
-
"i14970"))
+
#("i4483"
+
"i4484"
+
"i4485"
+
"i4486"
+
"i4487"))
#(ribcage
()
()
@@ -12622,47 +12501,47 @@
#(ribcage
#(x)
#((top))
-
#("i14963")))
+
#("i4480")))
(hygiene
guile))
- #{tmp\
14979}#)))
- #{template\ 14975}#
- #{pattern\
14974}#))))))
- #{tmp\ 14965}#)
+ #{tmp\
4496}#)))
+ #{template\ 4492}#
+ #{pattern\
4491}#))))))
+ #{tmp\ 4482}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14964}#)))
+ #{tmp\ 4481}#)))
($sc-dispatch
- #{tmp\ 14964}#
+ #{tmp\ 4481}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 14962}#))
+ #{x\ 4479}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (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}#)
+ (cons (lambda (#{x\ 4497}#)
+ ((lambda (#{tmp\ 4499}#)
+ ((lambda (#{tmp\ 4500}#)
+ (if (if #{tmp\ 4500}#
+ (apply (lambda (#{let*\ 4506}#
+ #{x\ 4507}#
+ #{v\ 4508}#
+ #{e1\ 4509}#
+ #{e2\ 4510}#)
+ (and-map identifier? #{x\ 4507}#))
+ #{tmp\ 4500}#)
#f)
- (apply (lambda (#{let*\ 15000}#
- #{x\ 15001}#
- #{v\ 15002}#
- #{e1\ 15003}#
- #{e2\ 15004}#)
- (letrec ((#{f\ 15007}#
- (lambda (#{bindings\ 15008}#)
- (if (null? #{bindings\ 15008}#)
+ (apply (lambda (#{let*\ 4517}#
+ #{x\ 4518}#
+ #{v\ 4519}#
+ #{e1\ 4520}#
+ #{e2\ 4521}#)
+ (letrec ((#{f\ 4524}#
+ (lambda (#{bindings\ 4525}#)
+ (if (null? #{bindings\ 4525}#)
(cons '#(syntax-object
let
((top)
@@ -12670,7 +12549,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i15005" "i15006"))
+ #("i4522" "i4523"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -12678,25 +12557,25 @@
(top)
(top)
(top))
- #("i14995"
- "i14996"
- "i14997"
- "i14998"
- "i14999"))
+ #("i4512"
+ "i4513"
+ "i4514"
+ "i4515"
+ "i4516"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i14981")))
+ #("i4498")))
(hygiene guile))
(cons '()
- (cons #{e1\ 15003}#
- #{e2\ 15004}#)))
- ((lambda (#{tmp\ 15013}#)
- ((lambda (#{tmp\ 15014}#)
- (if #{tmp\ 15014}#
- (apply (lambda (#{body\
15017}#
- #{binding\
15018}#)
+ (cons #{e1\ 4520}#
+ #{e2\ 4521}#)))
+ ((lambda (#{tmp\ 4530}#)
+ ((lambda (#{tmp\ 4531}#)
+ (if #{tmp\ 4531}#
+ (apply (lambda (#{body\
4534}#
+ #{binding\
4535}#)
(list
'#(syntax-object
let
((top)
@@ -12705,8 +12584,8 @@
binding)
#((top)
(top))
-
#("i15015"
-
"i15016"))
+
#("i4532"
+
"i4533"))
#(ribcage
()
()
@@ -12716,8 +12595,8 @@
bindings)
#((top)
(top))
-
#("i15005"
-
"i15006"))
+
#("i4522"
+
"i4523"))
#(ribcage
#(let*
x
@@ -12729,11 +12608,11 @@
(top)
(top)
(top))
-
#("i14995"
-
"i14996"
-
"i14997"
-
"i14998"
-
"i14999"))
+
#("i4512"
+
"i4513"
+
"i4514"
+
"i4515"
+
"i4516"))
#(ribcage
()
()
@@ -12741,57 +12620,57 @@
#(ribcage
#(x)
#((top))
-
#("i14981")))
+
#("i4498")))
(hygiene
guile))
- (list
#{binding\ 15018}#)
- #{body\
15017}#))
- #{tmp\ 15014}#)
+ (list
#{binding\ 4535}#)
+ #{body\
4534}#))
+ #{tmp\ 4531}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 15013}#)))
+ #{tmp\ 4530}#)))
($sc-dispatch
- #{tmp\ 15013}#
+ #{tmp\ 4530}#
'(any any))))
- (list (#{f\ 15007}#
- (cdr #{bindings\ 15008}#))
- (car #{bindings\
15008}#)))))))
- (#{f\ 15007}#
- (map list #{x\ 15001}# #{v\ 15002}#))))
- #{tmp\ 14983}#)
+ (list (#{f\ 4524}#
+ (cdr #{bindings\ 4525}#))
+ (car #{bindings\
4525}#)))))))
+ (#{f\ 4524}#
+ (map list #{x\ 4518}# #{v\ 4519}#))))
+ #{tmp\ 4500}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14982}#)))
+ #{tmp\ 4499}#)))
($sc-dispatch
- #{tmp\ 14982}#
+ #{tmp\ 4499}#
'(any #(each (any any)) any . each-any))))
- #{x\ 14980}#))
+ #{x\ 4497}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (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}#
+ (cons (lambda (#{orig-x\ 4536}#)
+ ((lambda (#{tmp\ 4538}#)
+ ((lambda (#{tmp\ 4539}#)
+ (if #{tmp\ 4539}#
+ (apply (lambda (#{_\ 4547}#
+ #{var\ 4548}#
+ #{init\ 4549}#
+ #{step\ 4550}#
+ #{e0\ 4551}#
+ #{e1\ 4552}#
+ #{c\ 4553}#)
+ ((lambda (#{tmp\ 4555}#)
+ ((lambda (#{tmp\ 4556}#)
+ (if #{tmp\ 4556}#
+ (apply (lambda (#{step\ 4558}#)
+ ((lambda (#{tmp\ 4559}#)
+ ((lambda (#{tmp\ 4560}#)
+ (if #{tmp\ 4560}#
(apply (lambda ()
(list
'#(syntax-object
let
@@ -12799,7 +12678,7 @@
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -12815,13 +12694,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -12829,7 +12708,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
'#(syntax-object
@@ -12838,7 +12717,7 @@
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -12854,13 +12733,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -12868,19 +12747,19 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
(map list
-
#{var\ 15031}#
-
#{init\ 15032}#)
+
#{var\ 4548}#
+
#{init\ 4549}#)
(list
'#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -12896,13 +12775,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -12910,7 +12789,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
(list '#(syntax-object
@@ -12919,7 +12798,7 @@
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -12935,13 +12814,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -12949,17 +12828,17 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
-
#{e0\ 15034}#)
+
#{e0\ 4551}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -12975,13 +12854,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -12989,18 +12868,18 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
(append
-
#{c\ 15036}#
+
#{c\ 4553}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -13016,13 +12895,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -13030,15 +12909,15 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
-
#{step\ 15041}#)))))))
- #{tmp\ 15043}#)
- ((lambda (#{tmp\ 15048}#)
- (if #{tmp\ 15048}#
- (apply (lambda
(#{e1\ 15051}#
-
#{e2\ 15052}#)
+
#{step\ 4558}#)))))))
+ #{tmp\ 4560}#)
+ ((lambda (#{tmp\ 4565}#)
+ (if #{tmp\ 4565}#
+ (apply (lambda
(#{e1\ 4568}#
+
#{e2\ 4569}#)
(list
'#(syntax-object
let
((top)
@@ -13047,12 +12926,12 @@
e2)
#((top)
(top))
-
#("i15049"
-
"i15050"))
+
#("i4566"
+
"i4567"))
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -13068,13 +12947,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -13082,7 +12961,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
'#(syntax-object
@@ -13093,12 +12972,12 @@
e2)
#((top)
(top))
-
#("i15049"
-
"i15050"))
+
#("i4566"
+
"i4567"))
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -13114,13 +12993,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -13128,12 +13007,12 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
(map
list
-
#{var\ 15031}#
-
#{init\ 15032}#)
+
#{var\ 4548}#
+
#{init\ 4549}#)
(list '#(syntax-object
if
((top)
@@ -13142,12 +13021,12 @@
e2)
#((top)
(top))
-
#("i15049"
-
"i15050"))
+
#("i4566"
+
"i4567"))
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -13163,13 +13042,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -13177,10 +13056,10 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
-
#{e0\ 15034}#
+
#{e0\ 4551}#
(cons '#(syntax-object
begin
((top)
@@ -13189,12 +13068,12 @@
e2)
#((top)
(top))
-
#("i15049"
-
"i15050"))
+
#("i4566"
+
"i4567"))
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -13210,13 +13089,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -13224,11 +13103,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
-
(cons #{e1\ 15051}#
-
#{e2\ 15052}#))
+
(cons #{e1\ 4568}#
+
#{e2\ 4569}#))
(cons '#(syntax-object
begin
((top)
@@ -13237,12 +13116,12 @@
e2)
#((top)
(top))
-
#("i15049"
-
"i15050"))
+
#("i4566"
+
"i4567"))
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -13258,13 +13137,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -13272,11 +13151,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
(append
-
#{c\ 15036}#
+
#{c\ 4553}#
(list (cons '#(syntax-object
doloop
((top)
@@ -13285,12 +13164,12 @@
e2)
#((top)
(top))
-
#("i15049"
-
"i15050"))
+
#("i4566"
+
"i4567"))
#(ribcage
#(step)
#((top))
-
#("i15040"))
+
#("i4557"))
#(ribcage
#(_
var
@@ -13306,13 +13185,13 @@
(top)
(top)
(top))
-
#("i15023"
-
"i15024"
-
"i15025"
-
"i15026"
-
"i15027"
-
"i15028"
-
"i15029"))
+
#("i4540"
+
"i4541"
+
"i4542"
+
"i4543"
+
"i4544"
+
"i4545"
+
"i4546"))
#(ribcage
()
()
@@ -13320,107 +13199,107 @@
#(ribcage
#(orig-x)
#((top))
-
#("i15020")))
+
#("i4537")))
(hygiene
guile))
-
#{step\ 15041}#)))))))
- #{tmp\
15048}#)
+
#{step\ 4558}#)))))))
+ #{tmp\
4565}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 15042}#)))
+ #{tmp\ 4559}#)))
($sc-dispatch
- #{tmp\ 15042}#
+ #{tmp\ 4559}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 15042}#
+ #{tmp\ 4559}#
'())))
- #{e1\ 15035}#))
- #{tmp\ 15039}#)
+ #{e1\ 4552}#))
+ #{tmp\ 4556}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 15038}#)))
+ #{tmp\ 4555}#)))
($sc-dispatch
- #{tmp\ 15038}#
+ #{tmp\ 4555}#
'each-any)))
- (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}#)
+ (map (lambda (#{v\ 4576}# #{s\ 4577}#)
+ ((lambda (#{tmp\ 4580}#)
+ ((lambda (#{tmp\ 4581}#)
+ (if #{tmp\ 4581}#
+ (apply (lambda () #{v\ 4576}#)
+ #{tmp\ 4581}#)
+ ((lambda (#{tmp\ 4582}#)
+ (if #{tmp\ 4582}#
+ (apply (lambda (#{e\ 4584}#)
+ #{e\ 4584}#)
+ #{tmp\ 4582}#)
+ ((lambda (#{_\ 4586}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 15019}#
- #{s\ 15060}#))
- #{tmp\ 15063}#)))
+ #{orig-x\ 4536}#
+ #{s\ 4577}#))
+ #{tmp\ 4580}#)))
($sc-dispatch
- #{tmp\ 15063}#
+ #{tmp\ 4580}#
'(any)))))
($sc-dispatch
- #{tmp\ 15063}#
+ #{tmp\ 4580}#
'())))
- #{s\ 15060}#))
- #{var\ 15031}#
- #{step\ 15033}#)))
- #{tmp\ 15022}#)
+ #{s\ 4577}#))
+ #{var\ 4548}#
+ #{step\ 4550}#)))
+ #{tmp\ 4539}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15021}#)))
+ #{tmp\ 4538}#)))
($sc-dispatch
- #{tmp\ 15021}#
+ #{tmp\ 4538}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 15019}#))
+ #{orig-x\ 4536}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (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}#)
+ (cons (letrec ((#{quasicons\ 4593}#
+ (lambda (#{x\ 4597}# #{y\ 4598}#)
+ ((lambda (#{tmp\ 4602}#)
+ ((lambda (#{tmp\ 4603}#)
+ (if #{tmp\ 4603}#
+ (apply (lambda (#{x\ 4606}# #{y\ 4607}#)
+ ((lambda (#{tmp\ 4608}#)
+ ((lambda (#{tmp\ 4609}#)
+ (if #{tmp\ 4609}#
+ (apply (lambda (#{dy\ 4611}#)
+ ((lambda (#{tmp\
4612}#)
+ ((lambda (#{tmp\
4613}#)
+ (if #{tmp\
4613}#
+ (apply
(lambda (#{dx\ 4615}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
-
#("i15097"))
+
#("i4614"))
#(ribcage
#(dy)
#((top))
-
#("i15093"))
+
#("i4610"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i15087"
-
"i15088"))
+
#("i4604"
+
"i4605"))
#(ribcage
()
()
@@ -13434,8 +13313,8 @@
y)
#((top)
(top))
-
#("i15082"
-
"i15083"))
+
#("i4599"
+
"i4600"))
#(ribcage
#(quasicons
quasiappend
@@ -13445,35 +13324,35 @@
(top)
(top)
(top))
-
#("i15072"
-
"i15073"
-
"i15074"
-
"i15075")))
+
#("i4589"
+
"i4590"
+
"i4591"
+
"i4592")))
(hygiene
guile))
-
(cons #{dx\ 15098}#
-
#{dy\ 15094}#)))
- #{tmp\
15096}#)
- ((lambda
(#{_\ 15100}#)
- (if (null?
#{dy\ 15094}#)
+
(cons #{dx\ 4615}#
+
#{dy\ 4611}#)))
+ #{tmp\
4613}#)
+ ((lambda
(#{_\ 4617}#)
+ (if (null?
#{dy\ 4611}#)
(list
'#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
-
#("i15099"))
+
#("i4616"))
#(ribcage
#(dy)
#((top))
-
#("i15093"))
+
#("i4610"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i15087"
-
"i15088"))
+
#("i4604"
+
"i4605"))
#(ribcage
()
()
@@ -13487,8 +13366,8 @@
y)
#((top)
(top))
-
#("i15082"
-
"i15083"))
+
#("i4599"
+
"i4600"))
#(ribcage
#(quasicons
quasiappend
@@ -13498,31 +13377,31 @@
(top)
(top)
(top))
-
#("i15072"
-
"i15073"
-
"i15074"
-
"i15075")))
+
#("i4589"
+
"i4590"
+
"i4591"
+
"i4592")))
(hygiene
guile))
-
#{x\ 15089}#)
+
#{x\ 4606}#)
(list
'#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
-
#("i15099"))
+
#("i4616"))
#(ribcage
#(dy)
#((top))
-
#("i15093"))
+
#("i4610"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i15087"
-
"i15088"))
+
#("i4604"
+
"i4605"))
#(ribcage
()
()
@@ -13536,8 +13415,8 @@
y)
#((top)
(top))
-
#("i15082"
-
"i15083"))
+
#("i4599"
+
"i4600"))
#(ribcage
#(quasicons
quasiappend
@@ -13547,17 +13426,17 @@
(top)
(top)
(top))
-
#("i15072"
-
"i15073"
-
"i15074"
-
"i15075")))
+
#("i4589"
+
"i4590"
+
"i4591"
+
"i4592")))
(hygiene
guile))
-
#{x\ 15089}#
-
#{y\ 15090}#)))
- #{tmp\
15095}#)))
+
#{x\ 4606}#
+
#{y\ 4607}#)))
+ #{tmp\
4612}#)))
($sc-dispatch
- #{tmp\ 15095}#
+ #{tmp\ 4612}#
'(#(free-id
#(syntax-object
quote
@@ -13565,13 +13444,13 @@
#(ribcage
#(dy)
#((top))
-
#("i15093"))
+
#("i4610"))
#(ribcage
#(x y)
#((top)
(top))
-
#("i15087"
-
"i15088"))
+
#("i4604"
+
"i4605"))
#(ribcage
()
()
@@ -13584,8 +13463,8 @@
#(x y)
#((top)
(top))
-
#("i15082"
-
"i15083"))
+
#("i4599"
+
"i4600"))
#(ribcage
#(quasicons
quasiappend
@@ -13595,32 +13474,32 @@
(top)
(top)
(top))
-
#("i15072"
-
"i15073"
-
"i15074"
-
"i15075")))
+
#("i4589"
+
"i4590"
+
"i4591"
+
"i4592")))
(hygiene
guile)))
any))))
- #{x\ 15089}#))
- #{tmp\ 15092}#)
- ((lambda (#{tmp\ 15101}#)
- (if #{tmp\ 15101}#
- (apply (lambda (#{stuff\
15103}#)
+ #{x\ 4606}#))
+ #{tmp\ 4609}#)
+ ((lambda (#{tmp\ 4618}#)
+ (if #{tmp\ 4618}#
+ (apply (lambda (#{stuff\
4620}#)
(cons
'#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
-
#("i15102"))
+
#("i4619"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i15087"
-
"i15088"))
+
#("i4604"
+
"i4605"))
#(ribcage
()
()
@@ -13634,8 +13513,8 @@
y)
#((top)
(top))
-
#("i15082"
-
"i15083"))
+
#("i4599"
+
"i4600"))
#(ribcage
#(quasicons
quasiappend
@@ -13645,29 +13524,29 @@
(top)
(top)
(top))
-
#("i15072"
-
"i15073"
-
"i15074"
-
"i15075")))
+
#("i4589"
+
"i4590"
+
"i4591"
+
"i4592")))
(hygiene
guile))
- (cons #{x\
15089}#
-
#{stuff\ 15103}#)))
- #{tmp\ 15101}#)
- ((lambda (#{else\ 15105}#)
+ (cons #{x\
4606}#
+
#{stuff\ 4620}#)))
+ #{tmp\ 4618}#)
+ ((lambda (#{else\ 4622}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
-
#("i15104"))
+ #("i4621"))
#(ribcage
#(x y)
#((top)
(top))
- #("i15087"
-
"i15088"))
+ #("i4604"
+ "i4605"))
#(ribcage
()
()
@@ -13680,8 +13559,8 @@
#(x y)
#((top)
(top))
- #("i15082"
-
"i15083"))
+ #("i4599"
+ "i4600"))
#(ribcage
#(quasicons
quasiappend
@@ -13691,17 +13570,17 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
-
"i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+
"i4592")))
(hygiene
guile))
- #{x\ 15089}#
- #{y\ 15090}#))
- #{tmp\ 15091}#)))
+ #{x\ 4606}#
+ #{y\ 4607}#))
+ #{tmp\ 4608}#)))
($sc-dispatch
- #{tmp\ 15091}#
+ #{tmp\ 4608}#
'(#(free-id
#(syntax-object
list
@@ -13709,15 +13588,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i15087"
- "i15088"))
+ #("i4604" "i4605"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i15082"
- "i15083"))
+ #("i4599" "i4600"))
#(ribcage
#(quasicons
quasiappend
@@ -13727,15 +13604,15 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 15091}#
+ #{tmp\ 4608}#
'(#(free-id
#(syntax-object
quote
@@ -13743,13 +13620,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i15087" "i15088"))
+ #("i4604" "i4605"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i15082" "i15083"))
+ #("i4599" "i4600"))
#(ribcage
#(quasicons
quasiappend
@@ -13759,44 +13636,44 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
any))))
- #{y\ 15090}#))
- #{tmp\ 15086}#)
+ #{y\ 4607}#))
+ #{tmp\ 4603}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{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}#)
+ #{tmp\ 4602}#)))
+ ($sc-dispatch #{tmp\ 4602}# (quote (any any)))))
+ (list #{x\ 4597}# #{y\ 4598}#))))
+ (#{quasiappend\ 4594}#
+ (lambda (#{x\ 4623}# #{y\ 4624}#)
+ ((lambda (#{tmp\ 4628}#)
+ ((lambda (#{tmp\ 4629}#)
+ (if #{tmp\ 4629}#
+ (apply (lambda (#{x\ 4632}# #{y\ 4633}#)
+ ((lambda (#{tmp\ 4634}#)
+ ((lambda (#{tmp\ 4635}#)
+ (if #{tmp\ 4635}#
+ (apply (lambda () #{x\ 4632}#)
+ #{tmp\ 4635}#)
+ ((lambda (#{_\ 4637}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i15119"))
+ #("i4636"))
#(ribcage
#(x y)
#((top) (top))
- #("i15113"
- "i15114"))
+ #("i4630"
+ "i4631"))
#(ribcage
()
()
@@ -13808,8 +13685,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i15108"
- "i15109"))
+ #("i4625"
+ "i4626"))
#(ribcage
#(quasicons
quasiappend
@@ -13819,16 +13696,16 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile))
- #{x\ 15115}#
- #{y\ 15116}#))
- #{tmp\ 15117}#)))
+ #{x\ 4632}#
+ #{y\ 4633}#))
+ #{tmp\ 4634}#)))
($sc-dispatch
- #{tmp\ 15117}#
+ #{tmp\ 4634}#
'(#(free-id
#(syntax-object
quote
@@ -13836,13 +13713,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i15113" "i15114"))
+ #("i4630" "i4631"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i15108" "i15109"))
+ #("i4625" "i4626"))
#(ribcage
#(quasicons
quasiappend
@@ -13852,45 +13729,45 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
()))))
- #{y\ 15116}#))
- #{tmp\ 15112}#)
+ #{y\ 4633}#))
+ #{tmp\ 4629}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{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}#)
+ #{tmp\ 4628}#)))
+ ($sc-dispatch #{tmp\ 4628}# (quote (any any)))))
+ (list #{x\ 4623}# #{y\ 4624}#))))
+ (#{quasivector\ 4595}#
+ (lambda (#{x\ 4638}#)
+ ((lambda (#{tmp\ 4641}#)
+ ((lambda (#{x\ 4643}#)
+ ((lambda (#{tmp\ 4644}#)
+ ((lambda (#{tmp\ 4645}#)
+ (if #{tmp\ 4645}#
+ (apply (lambda (#{x\ 4647}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i15129"))
+ #("i4646"))
#(ribcage
#(x)
#((top))
- #("i15125"))
+ #("i4642"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15122"))
+ #("i4639"))
#(ribcage
#(quasicons
quasiappend
@@ -13900,28 +13777,28 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile))
(list->vector
- #{x\ 15130}#)))
- #{tmp\ 15128}#)
- ((lambda (#{tmp\ 15132}#)
- (if #{tmp\ 15132}#
- (apply (lambda (#{x\ 15134}#)
+ #{x\ 4647}#)))
+ #{tmp\ 4645}#)
+ ((lambda (#{tmp\ 4649}#)
+ (if #{tmp\ 4649}#
+ (apply (lambda (#{x\ 4651}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i15133"))
+ #("i4650"))
#(ribcage
#(x)
#((top))
- #("i15125"))
+ #("i4642"))
#(ribcage
()
()
@@ -13933,7 +13810,7 @@
#(ribcage
#(x)
#((top))
- #("i15122"))
+ #("i4639"))
#(ribcage
#(quasicons
quasiappend
@@ -13943,31 +13820,31 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile))
- #{x\ 15134}#))
- #{tmp\ 15132}#)
- ((lambda (#{_\ 15137}#)
+ #{x\ 4651}#))
+ #{tmp\ 4649}#)
+ ((lambda (#{_\ 4654}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i15136"))
+ #("i4653"))
#(ribcage
#(x)
#((top))
- #("i15125"))
+ #("i4642"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15122"))
+ #("i4639"))
#(ribcage
#(quasicons
quasiappend
@@ -13977,15 +13854,15 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile))
- #{x\ 15126}#))
- #{tmp\ 15127}#)))
+ #{x\ 4643}#))
+ #{tmp\ 4644}#)))
($sc-dispatch
- #{tmp\ 15127}#
+ #{tmp\ 4644}#
'(#(free-id
#(syntax-object
list
@@ -13993,82 +13870,82 @@
#(ribcage
#(x)
#((top))
- #("i15125"))
+ #("i4642"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15122"))
+ #("i4639"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 15127}#
+ #{tmp\ 4644}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i15125"))
+ #(ribcage #(x) #((top)) #("i4642"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i15122"))
+ #(ribcage #(x) #((top)) #("i4639"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
each-any))))
- #{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}#
+ #{x\ 4643}#))
+ #{tmp\ 4641}#))
+ #{x\ 4638}#)))
+ (#{quasi\ 4596}#
+ (lambda (#{p\ 4655}# #{lev\ 4656}#)
+ ((lambda (#{tmp\ 4659}#)
+ ((lambda (#{tmp\ 4660}#)
+ (if #{tmp\ 4660}#
+ (apply (lambda (#{p\ 4662}#)
+ (if (= #{lev\ 4656}# 0)
+ #{p\ 4662}#
+ (#{quasicons\ 4593}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i15144"))
+ #("i4661"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i15140" "i15141"))
+ #("i4657" "i4658"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile))
#(syntax-object
unquote
@@ -14076,51 +13953,50 @@
#(ribcage
#(p)
#((top))
- #("i15144"))
+ #("i4661"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i15140" "i15141"))
+ #("i4657" "i4658"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
- (#{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}#)
+ (#{quasi\ 4596}#
+ (list #{p\ 4662}#)
+ (- #{lev\ 4656}# 1)))))
+ #{tmp\ 4660}#)
+ ((lambda (#{tmp\ 4663}#)
+ (if (if #{tmp\ 4663}#
+ (apply (lambda (#{args\ 4665}#)
+ (= #{lev\ 4656}# 0))
+ #{tmp\ 4663}#)
#f)
- (apply (lambda (#{args\ 15150}#)
+ (apply (lambda (#{args\ 4667}#)
(syntax-violation
'unquote
"unquote takes exactly one
argument"
- #{p\ 15138}#
+ #{p\ 4655}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i15149"))
+ #("i4666"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i15140"
- "i15141"))
+ #("i4657" "i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14130,33 +14006,33 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile))
- #{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}#
+ #{args\ 4667}#)))
+ #{tmp\ 4663}#)
+ ((lambda (#{tmp\ 4668}#)
+ (if #{tmp\ 4668}#
+ (apply (lambda (#{p\ 4671}#
+ #{q\ 4672}#)
+ (if (= #{lev\ 4656}# 0)
+ (#{quasiappend\ 4594}#
+ #{p\ 4671}#
+ (#{quasi\ 4596}#
+ #{q\ 4672}#
+ #{lev\ 4656}#))
+ (#{quasicons\ 4593}#
+ (#{quasicons\ 4593}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i15152"
- "i15153"))
+ #("i4669"
+ "i4670"))
#(ribcage
()
()
@@ -14164,8 +14040,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i15140"
- "i15141"))
+ #("i4657"
+ "i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14175,10 +14051,10 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -14186,8 +14062,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i15152"
- "i15153"))
+ #("i4669"
+ "i4670"))
#(ribcage
()
()
@@ -14195,8 +14071,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i15140"
- "i15141"))
+ #("i4657"
+ "i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14206,33 +14082,31 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
- (#{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}#)
+ (#{quasi\ 4596}#
+ (list #{p\ 4671}#)
+ (- #{lev\ 4656}# 1)))
+ (#{quasi\ 4596}#
+ #{q\ 4672}#
+ #{lev\ 4656}#))))
+ #{tmp\ 4668}#)
+ ((lambda (#{tmp\ 4673}#)
+ (if (if #{tmp\ 4673}#
+ (apply (lambda (#{args\
4676}#
+ #{q\ 4677}#)
+ (= #{lev\ 4656}# 0))
+ #{tmp\ 4673}#)
#f)
- (apply (lambda (#{args\ 15163}#
- #{q\ 15164}#)
+ (apply (lambda (#{args\ 4680}#
+ #{q\ 4681}#)
(syntax-violation
'unquote-splicing
"unquote-splicing
takes exactly one argument"
- #{p\ 15138}#
+ #{p\ 4655}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -14240,8 +14114,8 @@
#(args q)
#((top)
(top))
- #("i15161"
-
"i15162"))
+ #("i4678"
+
"i4679"))
#(ribcage
()
()
@@ -14250,8 +14124,8 @@
#(p lev)
#((top)
(top))
- #("i15140"
-
"i15141"))
+ #("i4657"
+
"i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14261,25 +14135,25 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
-
"i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+
"i4592")))
(hygiene
guile))
- #{args\
15163}#)))
- #{tmp\ 15156}#)
- ((lambda (#{tmp\ 15165}#)
- (if #{tmp\ 15165}#
- (apply (lambda (#{p\
15167}#)
- (#{quasicons\
15076}#
+ #{args\
4680}#)))
+ #{tmp\ 4673}#)
+ ((lambda (#{tmp\ 4682}#)
+ (if #{tmp\ 4682}#
+ (apply (lambda (#{p\ 4684}#)
+ (#{quasicons\
4593}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i15166"))
+
#("i4683"))
#(ribcage
()
()
@@ -14288,8 +14162,8 @@
#(p lev)
#((top)
(top))
- #("i15140"
-
"i15141"))
+ #("i4657"
+
"i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14299,10 +14173,10 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
-
"i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+
"i4592")))
(hygiene
guile))
#(syntax-object
@@ -14311,7 +14185,7 @@
#(ribcage
#(p)
#((top))
-
#("i15166"))
+
#("i4683"))
#(ribcage
()
()
@@ -14320,8 +14194,8 @@
#(p lev)
#((top)
(top))
- #("i15140"
-
"i15141"))
+ #("i4657"
+
"i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14331,45 +14205,45 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
-
"i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+
"i4592")))
(hygiene
guile)))
- (#{quasi\ 15079}#
- (list #{p\
15167}#)
- (+ #{lev\
15139}#
+ (#{quasi\ 4596}#
+ (list #{p\
4684}#)
+ (+ #{lev\
4656}#
1))))
- #{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}#)
+ #{tmp\ 4682}#)
+ ((lambda (#{tmp\ 4685}#)
+ (if #{tmp\ 4685}#
+ (apply (lambda (#{p\
4688}#
+ #{q\
4689}#)
+ (#{quasicons\
4593}#
+ (#{quasi\
4596}#
+ #{p\
4688}#
+ #{lev\
4656}#)
+ (#{quasi\
4596}#
+ #{q\
4689}#
+ #{lev\
4656}#)))
+ #{tmp\ 4685}#)
+ ((lambda (#{tmp\
4690}#)
+ (if #{tmp\ 4690}#
+ (apply (lambda
(#{x\ 4692}#)
+
(#{quasivector\ 4595}#
+
(#{quasi\ 4596}#
+ #{x\
4692}#
+
#{lev\ 4656}#)))
+ #{tmp\
4690}#)
+ ((lambda (#{p\
4695}#)
(list
'#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i15177"))
+
#("i4694"))
#(ribcage
()
()
@@ -14379,8 +14253,8 @@
lev)
#((top)
(top))
-
#("i15140"
-
"i15141"))
+
#("i4657"
+
"i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14390,23 +14264,23 @@
(top)
(top)
(top))
-
#("i15072"
-
"i15073"
-
"i15074"
-
"i15075")))
+
#("i4589"
+
"i4590"
+
"i4591"
+
"i4592")))
(hygiene
guile))
- #{p\
15178}#))
- #{tmp\ 15142}#)))
+ #{p\
4695}#))
+ #{tmp\ 4659}#)))
($sc-dispatch
- #{tmp\ 15142}#
+ #{tmp\ 4659}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 15142}#
+ #{tmp\ 4659}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 15142}#
+ #{tmp\ 4659}#
'(#(free-id
#(syntax-object
quasiquote
@@ -14415,7 +14289,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i15140" "i15141"))
+ #("i4657" "i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14425,14 +14299,14 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 15142}#
+ #{tmp\ 4659}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14441,7 +14315,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i15140" "i15141"))
+ #("i4657" "i4658"))
#(ribcage
#(quasicons
quasiappend
@@ -14451,17 +14325,17 @@
(top)
(top)
(top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 15142}#
+ #{tmp\ 4659}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14470,23 +14344,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i15140" "i15141"))
+ #("i4657" "i4658"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589"
+ "i4590"
+ "i4591"
+ "i4592")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 15142}#
+ #{tmp\ 4659}#
'(#(free-id
#(syntax-object
unquote
@@ -14495,22 +14369,19 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i15140" "i15141"))
+ #("i4657" "i4658"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i15072"
- "i15073"
- "i15074"
- "i15075")))
+ #("i4589" "i4590" "i4591" "i4592")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 15142}#
+ #{tmp\ 4659}#
'(#(free-id
#(syntax-object
unquote
@@ -14519,244 +14390,244 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i15140" "i15141"))
+ #("i4657" "i4658"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i15072" "i15073" "i15074" "i15075")))
+ #("i4589" "i4590" "i4591" "i4592")))
(hygiene guile)))
any))))
- #{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}#)
+ #{p\ 4655}#))))
+ (lambda (#{x\ 4696}#)
+ ((lambda (#{tmp\ 4698}#)
+ ((lambda (#{tmp\ 4699}#)
+ (if #{tmp\ 4699}#
+ (apply (lambda (#{_\ 4702}# #{e\ 4703}#)
+ (#{quasi\ 4596}# #{e\ 4703}# 0))
+ #{tmp\ 4699}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15181}#)))
- ($sc-dispatch #{tmp\ 15181}# (quote (any any)))))
- #{x\ 15179}#)))
+ #{tmp\ 4698}#)))
+ ($sc-dispatch #{tmp\ 4698}# (quote (any any)))))
+ #{x\ 4696}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (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}#)
+ (cons (lambda (#{x\ 4704}#)
+ (letrec ((#{read-file\ 4707}#
+ (lambda (#{fn\ 4708}# #{k\ 4709}#)
+ (let ((#{p\ 4713}# (open-input-file #{fn\ 4708}#)))
+ (letrec ((#{f\ 4717}#
+ (lambda (#{x\ 4718}# #{result\ 4719}#)
+ (if (eof-object? #{x\ 4718}#)
(begin
- (close-input-port #{p\ 15196}#)
- (reverse #{result\ 15202}#))
- (#{f\ 15200}#
- (read #{p\ 15196}#)
+ (close-input-port #{p\ 4713}#)
+ (reverse #{result\ 4719}#))
+ (#{f\ 4717}#
+ (read #{p\ 4713}#)
(cons (datum->syntax
- #{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}#)
+ #{k\ 4709}#
+ #{x\ 4718}#)
+ #{result\ 4719}#))))))
+ (#{f\ 4717}# (read #{p\ 4713}#) (quote ())))))))
+ ((lambda (#{tmp\ 4720}#)
+ ((lambda (#{tmp\ 4721}#)
+ (if #{tmp\ 4721}#
+ (apply (lambda (#{k\ 4724}# #{filename\ 4725}#)
+ (let ((#{fn\ 4727}#
+ (syntax->datum #{filename\ 4725}#)))
+ ((lambda (#{tmp\ 4729}#)
+ ((lambda (#{tmp\ 4730}#)
+ (if #{tmp\ 4730}#
+ (apply (lambda (#{exp\ 4732}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i15214"))
+ #("i4731"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i15209"))
+ #("i4726"))
#(ribcage
#(k filename)
#((top) (top))
- #("i15205"
- "i15206"))
+ #("i4722"
+ "i4723"))
#(ribcage
(read-file)
((top))
- ("i15189"))
+ ("i4706"))
#(ribcage
#(x)
#((top))
- #("i15188")))
+ #("i4705")))
(hygiene guile))
- #{exp\ 15215}#))
- #{tmp\ 15213}#)
+ #{exp\ 4732}#))
+ #{tmp\ 4730}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 15212}#)))
+ #{tmp\ 4729}#)))
($sc-dispatch
- #{tmp\ 15212}#
+ #{tmp\ 4729}#
'each-any)))
- (#{read-file\ 15190}#
- #{fn\ 15210}#
- #{k\ 15207}#))))
- #{tmp\ 15204}#)
+ (#{read-file\ 4707}#
+ #{fn\ 4727}#
+ #{k\ 4724}#))))
+ #{tmp\ 4721}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15203}#)))
- ($sc-dispatch #{tmp\ 15203}# (quote (any any)))))
- #{x\ 15187}#)))
+ #{tmp\ 4720}#)))
+ ($sc-dispatch #{tmp\ 4720}# (quote (any any)))))
+ #{x\ 4704}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (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}#)
+ (cons (lambda (#{x\ 4734}#)
+ ((lambda (#{tmp\ 4736}#)
+ ((lambda (#{tmp\ 4737}#)
+ (if #{tmp\ 4737}#
+ (apply (lambda (#{k\ 4740}# #{filename\ 4741}#)
+ (let ((#{fn\ 4743}#
+ (syntax->datum #{filename\ 4741}#)))
+ ((lambda (#{tmp\ 4745}#)
+ ((lambda (#{fn\ 4747}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i15229"))
+ #("i4746"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i15225"))
+ #("i4742"))
#(ribcage
#(k filename)
#((top) (top))
- #("i15221" "i15222"))
+ #("i4738" "i4739"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15218")))
+ #("i4735")))
(hygiene guile))
- #{fn\ 15230}#))
- #{tmp\ 15228}#))
- (let ((#{t\ 15233}#
- (%search-load-path #{fn\ 15226}#)))
- (if #{t\ 15233}#
- #{t\ 15233}#
+ #{fn\ 4747}#))
+ #{tmp\ 4745}#))
+ (let ((#{t\ 4750}#
+ (%search-load-path #{fn\ 4743}#)))
+ (if #{t\ 4750}#
+ #{t\ 4750}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 15217}#
- #{filename\ 15224}#))))))
- #{tmp\ 15220}#)
+ #{x\ 4734}#
+ #{filename\ 4741}#))))))
+ #{tmp\ 4737}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15219}#)))
- ($sc-dispatch #{tmp\ 15219}# (quote (any any)))))
- #{x\ 15217}#))
+ #{tmp\ 4736}#)))
+ ($sc-dispatch #{tmp\ 4736}# (quote (any any)))))
+ #{x\ 4734}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 15235}#)
- ((lambda (#{tmp\ 15237}#)
- ((lambda (#{tmp\ 15238}#)
- (if #{tmp\ 15238}#
- (apply (lambda (#{_\ 15241}# #{e\ 15242}#)
+ (cons (lambda (#{x\ 4752}#)
+ ((lambda (#{tmp\ 4754}#)
+ ((lambda (#{tmp\ 4755}#)
+ (if #{tmp\ 4755}#
+ (apply (lambda (#{_\ 4758}# #{e\ 4759}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 15235}#))
- #{tmp\ 15238}#)
+ #{x\ 4752}#))
+ #{tmp\ 4755}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15237}#)))
- ($sc-dispatch #{tmp\ 15237}# (quote (any any)))))
- #{x\ 15235}#))
+ #{tmp\ 4754}#)))
+ ($sc-dispatch #{tmp\ 4754}# (quote (any any)))))
+ #{x\ 4752}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 15243}#)
- ((lambda (#{tmp\ 15245}#)
- ((lambda (#{tmp\ 15246}#)
- (if #{tmp\ 15246}#
- (apply (lambda (#{_\ 15249}# #{e\ 15250}#)
+ (cons (lambda (#{x\ 4760}#)
+ ((lambda (#{tmp\ 4762}#)
+ ((lambda (#{tmp\ 4763}#)
+ (if #{tmp\ 4763}#
+ (apply (lambda (#{_\ 4766}# #{e\ 4767}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 15243}#))
- #{tmp\ 15246}#)
+ #{x\ 4760}#))
+ #{tmp\ 4763}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15245}#)))
- ($sc-dispatch #{tmp\ 15245}# (quote (any any)))))
- #{x\ 15243}#))
+ #{tmp\ 4762}#)))
+ ($sc-dispatch #{tmp\ 4762}# (quote (any any)))))
+ #{x\ 4760}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (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}#)
+ (cons (lambda (#{x\ 4768}#)
+ ((lambda (#{tmp\ 4770}#)
+ ((lambda (#{tmp\ 4771}#)
+ (if #{tmp\ 4771}#
+ (apply (lambda (#{_\ 4776}#
+ #{e\ 4777}#
+ #{m1\ 4778}#
+ #{m2\ 4779}#)
+ ((lambda (#{tmp\ 4781}#)
+ ((lambda (#{body\ 4783}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i15265"))
+ #("i4782"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i15255"
- "i15256"
- "i15257"
- "i15258"))
+ #("i4772"
+ "i4773"
+ "i4774"
+ "i4775"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15252")))
+ #("i4769")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -14764,35 +14635,35 @@
#(ribcage
#(body)
#((top))
- #("i15265"))
+ #("i4782"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i15255"
- "i15256"
- "i15257"
- "i15258"))
+ #("i4772"
+ "i4773"
+ "i4774"
+ "i4775"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15252")))
+ #("i4769")))
(hygiene guile))
- #{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}#)
+ #{e\ 4777}#))
+ #{body\ 4783}#))
+ #{tmp\ 4781}#))
+ (letrec ((#{f\ 4787}#
+ (lambda (#{clause\ 4788}#
+ #{clauses\ 4789}#)
+ (if (null? #{clauses\ 4789}#)
+ ((lambda (#{tmp\ 4791}#)
+ ((lambda (#{tmp\ 4792}#)
+ (if #{tmp\ 4792}#
+ (apply (lambda (#{e1\
4795}#
+ #{e2\
4796}#)
(cons
'#(syntax-object
begin
((top)
@@ -14801,8 +14672,8 @@
e2)
#((top)
(top))
-
#("i15276"
-
"i15277"))
+
#("i4793"
+
"i4794"))
#(ribcage
()
()
@@ -14814,9 +14685,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -14826,10 +14697,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -14837,17 +14708,17 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
- (cons
#{e1\ 15278}#
-
#{e2\ 15279}#)))
- #{tmp\ 15275}#)
- ((lambda (#{tmp\ 15281}#)
- (if #{tmp\ 15281}#
- (apply (lambda (#{k\
15285}#
-
#{e1\ 15286}#
-
#{e2\ 15287}#)
+ (cons
#{e1\ 4795}#
+
#{e2\ 4796}#)))
+ #{tmp\ 4792}#)
+ ((lambda (#{tmp\ 4798}#)
+ (if #{tmp\ 4798}#
+ (apply (lambda (#{k\
4802}#
+
#{e1\ 4803}#
+
#{e2\ 4804}#)
(list
'#(syntax-object
if
((top)
@@ -14858,9 +14729,9 @@
#((top)
(top)
(top))
-
#("i15282"
-
"i15283"
-
"i15284"))
+
#("i4799"
+
"i4800"
+
"i4801"))
#(ribcage
()
()
@@ -14872,9 +14743,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -14884,10 +14755,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -14895,7 +14766,7 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
(list
'#(syntax-object
@@ -14908,9 +14779,9 @@
#((top)
(top)
(top))
-
#("i15282"
-
"i15283"
-
"i15284"))
+
#("i4799"
+
"i4800"
+
"i4801"))
#(ribcage
()
()
@@ -14922,9 +14793,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -14934,10 +14805,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -14945,7 +14816,7 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
'#(syntax-object
@@ -14958,9 +14829,9 @@
#((top)
(top)
(top))
-
#("i15282"
-
"i15283"
-
"i15284"))
+
#("i4799"
+
"i4800"
+
"i4801"))
#(ribcage
()
()
@@ -14972,9 +14843,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -14984,10 +14855,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -14995,7 +14866,7 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
(list '#(syntax-object
@@ -15008,9 +14879,9 @@
#((top)
(top)
(top))
-
#("i15282"
-
"i15283"
-
"i15284"))
+
#("i4799"
+
"i4800"
+
"i4801"))
#(ribcage
()
()
@@ -15022,9 +14893,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -15034,10 +14905,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -15045,10 +14916,10 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
-
#{k\ 15285}#))
+
#{k\ 4802}#))
(cons
'#(syntax-object
begin
((top)
@@ -15059,9 +14930,9 @@
#((top)
(top)
(top))
-
#("i15282"
-
"i15283"
-
"i15284"))
+
#("i4799"
+
"i4800"
+
"i4801"))
#(ribcage
()
()
@@ -15073,9 +14944,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -15085,10 +14956,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -15096,27 +14967,27 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
-
(cons #{e1\ 15286}#
-
#{e2\ 15287}#))))
- #{tmp\
15281}#)
- ((lambda (#{_\
15291}#)
+
(cons #{e1\ 4803}#
+
#{e2\ 4804}#))))
+ #{tmp\ 4798}#)
+ ((lambda (#{_\
4808}#)
(syntax-violation
'case
"bad clause"
- #{x\ 15251}#
- #{clause\
15271}#))
- #{tmp\ 15274}#)))
+ #{x\ 4768}#
+ #{clause\
4788}#))
+ #{tmp\ 4791}#)))
($sc-dispatch
- #{tmp\ 15274}#
+ #{tmp\ 4791}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 15274}#
+ #{tmp\ 4791}#
'(#(free-id
#(syntax-object
else
@@ -15127,37 +14998,37 @@
#((top)
(top)
(top))
- #("i15267"
- "i15268"
- "i15269"))
+ #("i4784"
+ "i4785"
+ "i4786"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i15255"
- "i15256"
- "i15257"
- "i15258"))
+ #("i4772"
+ "i4773"
+ "i4774"
+ "i4775"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15252")))
+ #("i4769")))
(hygiene guile)))
any
.
each-any))))
- #{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}#)
+ #{clause\ 4788}#)
+ ((lambda (#{tmp\ 4810}#)
+ ((lambda (#{rest\ 4812}#)
+ ((lambda (#{tmp\ 4813}#)
+ ((lambda (#{tmp\ 4814}#)
+ (if #{tmp\ 4814}#
+ (apply (lambda
(#{k\ 4818}#
+
#{e1\ 4819}#
+
#{e2\ 4820}#)
(list
'#(syntax-object
if
((top)
@@ -15168,13 +15039,13 @@
#((top)
(top)
(top))
-
#("i15298"
-
"i15299"
-
"i15300"))
+
#("i4815"
+
"i4816"
+
"i4817"))
#(ribcage
#(rest)
#((top))
-
#("i15294"))
+
#("i4811"))
#(ribcage
()
()
@@ -15186,9 +15057,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -15198,10 +15069,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -15209,7 +15080,7 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
(list '#(syntax-object
@@ -15222,13 +15093,13 @@
#((top)
(top)
(top))
-
#("i15298"
-
"i15299"
-
"i15300"))
+
#("i4815"
+
"i4816"
+
"i4817"))
#(ribcage
#(rest)
#((top))
-
#("i15294"))
+
#("i4811"))
#(ribcage
()
()
@@ -15240,9 +15111,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -15252,10 +15123,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -15263,7 +15134,7 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
'#(syntax-object
@@ -15276,13 +15147,13 @@
#((top)
(top)
(top))
-
#("i15298"
-
"i15299"
-
"i15300"))
+
#("i4815"
+
"i4816"
+
"i4817"))
#(ribcage
#(rest)
#((top))
-
#("i15294"))
+
#("i4811"))
#(ribcage
()
()
@@ -15294,9 +15165,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -15306,10 +15177,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -15317,7 +15188,7 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
(list '#(syntax-object
@@ -15330,13 +15201,13 @@
#((top)
(top)
(top))
-
#("i15298"
-
"i15299"
-
"i15300"))
+
#("i4815"
+
"i4816"
+
"i4817"))
#(ribcage
#(rest)
#((top))
-
#("i15294"))
+
#("i4811"))
#(ribcage
()
()
@@ -15348,9 +15219,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -15360,10 +15231,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -15371,10 +15242,10 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
-
#{k\ 15301}#))
+
#{k\ 4818}#))
(cons '#(syntax-object
begin
((top)
@@ -15385,13 +15256,13 @@
#((top)
(top)
(top))
-
#("i15298"
-
"i15299"
-
"i15300"))
+
#("i4815"
+
"i4816"
+
"i4817"))
#(ribcage
#(rest)
#((top))
-
#("i15294"))
+
#("i4811"))
#(ribcage
()
()
@@ -15403,9 +15274,9 @@
#((top)
(top)
(top))
-
#("i15267"
-
"i15268"
-
"i15269"))
+
#("i4784"
+
"i4785"
+
"i4786"))
#(ribcage
#(_
e
@@ -15415,10 +15286,10 @@
(top)
(top)
(top))
-
#("i15255"
-
"i15256"
-
"i15257"
-
"i15258"))
+
#("i4772"
+
"i4773"
+
"i4774"
+
"i4775"))
#(ribcage
()
()
@@ -15426,61 +15297,61 @@
#(ribcage
#(x)
#((top))
-
#("i15252")))
+
#("i4769")))
(hygiene
guile))
-
(cons #{e1\ 15302}#
-
#{e2\ 15303}#))
-
#{rest\ 15295}#))
- #{tmp\
15297}#)
- ((lambda (#{_\
15307}#)
+
(cons #{e1\ 4819}#
+
#{e2\ 4820}#))
+
#{rest\ 4812}#))
+ #{tmp\
4814}#)
+ ((lambda (#{_\
4824}#)
(syntax-violation
'case
"bad clause"
- #{x\ 15251}#
- #{clause\
15271}#))
- #{tmp\ 15296}#)))
+ #{x\ 4768}#
+ #{clause\
4788}#))
+ #{tmp\ 4813}#)))
($sc-dispatch
- #{tmp\ 15296}#
+ #{tmp\ 4813}#
'(each-any
any
.
each-any))))
- #{clause\ 15271}#))
- #{tmp\ 15293}#))
- (#{f\ 15270}#
- (car #{clauses\ 15272}#)
- (cdr #{clauses\ 15272}#)))))))
- (#{f\ 15270}# #{m1\ 15261}# #{m2\ 15262}#))))
- #{tmp\ 15254}#)
+ #{clause\ 4788}#))
+ #{tmp\ 4810}#))
+ (#{f\ 4787}#
+ (car #{clauses\ 4789}#)
+ (cdr #{clauses\ 4789}#)))))))
+ (#{f\ 4787}# #{m1\ 4778}# #{m2\ 4779}#))))
+ #{tmp\ 4771}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15253}#)))
+ #{tmp\ 4770}#)))
($sc-dispatch
- #{tmp\ 15253}#
+ #{tmp\ 4770}#
'(any any any . each-any))))
- #{x\ 15251}#))
+ #{x\ 4768}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 15308}#)
- ((lambda (#{tmp\ 15310}#)
- ((lambda (#{tmp\ 15311}#)
- (if #{tmp\ 15311}#
- (apply (lambda (#{_\ 15314}# #{e\ 15315}#)
+ (cons (lambda (#{x\ 4825}#)
+ ((lambda (#{tmp\ 4827}#)
+ ((lambda (#{tmp\ 4828}#)
+ (if #{tmp\ 4828}#
+ (apply (lambda (#{_\ 4831}# #{e\ 4832}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i15309")))
+ #(ribcage #(x) #((top)) #("i4826")))
(hygiene guile))
'(#(syntax-object
x
@@ -15488,9 +15359,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i15309")))
+ #(ribcage #(x) #((top)) #("i4826")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -15498,9 +15369,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i15309")))
+ #(ribcage #(x) #((top)) #("i4826")))
(hygiene guile))
.
#(syntax-object
@@ -15509,9 +15380,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i15309")))
+ #(ribcage #(x) #((top)) #("i4826")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -15519,12 +15390,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
'#(syntax-object
x
@@ -15532,12 +15403,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -15546,12 +15417,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -15559,12 +15430,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
(#(syntax-object
syntax
@@ -15572,12 +15443,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
#(syntax-object
id
@@ -15585,12 +15456,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312" "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -15598,29 +15469,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312"
- "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
- #{e\ 15315}#))
- (list (cons #{_\ 15314}#
+ #{e\ 4832}#))
+ (list (cons #{_\ 4831}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i15312"
- "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
#(syntax-object
...
@@ -15628,13 +15497,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312"
- "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -15642,15 +15510,14 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i15312"
- "i15313"))
+ #("i4829" "i4830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
- (cons #{e\ 15315}#
+ (cons #{e\ 4832}#
'(#(syntax-object
x
((top)
@@ -15658,8 +15525,8 @@
#(_ e)
#((top)
(top))
- #("i15312"
- "i15313"))
+ #("i4829"
+ "i4830"))
#(ribcage
()
()
@@ -15667,7 +15534,7 @@
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene guile))
#(syntax-object
...
@@ -15676,8 +15543,8 @@
#(_ e)
#((top)
(top))
- #("i15312"
- "i15313"))
+ #("i4829"
+ "i4830"))
#(ribcage
()
()
@@ -15685,72 +15552,72 @@
#(ribcage
#(x)
#((top))
- #("i15309")))
+ #("i4826")))
(hygiene
guile)))))))))
- #{tmp\ 15311}#)
+ #{tmp\ 4828}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15310}#)))
- ($sc-dispatch #{tmp\ 15310}# (quote (any any)))))
- #{x\ 15308}#))
+ #{tmp\ 4827}#)))
+ ($sc-dispatch #{tmp\ 4827}# (quote (any any)))))
+ #{x\ 4825}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 15316}#)
- ((lambda (#{tmp\ 15318}#)
- ((lambda (#{tmp\ 15319}#)
- (if #{tmp\ 15319}#
- (apply (lambda (#{_\ 15325}#
- #{id\ 15326}#
- #{args\ 15327}#
- #{b0\ 15328}#
- #{b1\ 15329}#)
+ (cons (lambda (#{x\ 4833}#)
+ ((lambda (#{tmp\ 4835}#)
+ ((lambda (#{tmp\ 4836}#)
+ (if #{tmp\ 4836}#
+ (apply (lambda (#{_\ 4842}#
+ #{id\ 4843}#
+ #{args\ 4844}#
+ #{b0\ 4845}#
+ #{b1\ 4846}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i15320"
- "i15321"
- "i15322"
- "i15323"
- "i15324"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i15317")))
+ #(ribcage #(x) #((top)) #("i4834")))
(hygiene guile))
- #{id\ 15326}#
+ #{id\ 4843}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i15320"
- "i15321"
- "i15322"
- "i15323"
- "i15324"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15317")))
+ #("i4834")))
(hygiene guile))
- (cons #{args\ 15327}#
- (cons #{b0\ 15328}#
- #{b1\ 15329}#)))))
- #{tmp\ 15319}#)
- ((lambda (#{tmp\ 15331}#)
- (if (if #{tmp\ 15331}#
- (apply (lambda (#{_\ 15335}#
- #{id\ 15336}#
- #{val\ 15337}#)
+ (cons #{args\ 4844}#
+ (cons #{b0\ 4845}#
+ #{b1\ 4846}#)))))
+ #{tmp\ 4836}#)
+ ((lambda (#{tmp\ 4848}#)
+ (if (if #{tmp\ 4848}#
+ (apply (lambda (#{_\ 4852}#
+ #{id\ 4853}#
+ #{val\ 4854}#)
(identifier?
'#(syntax-object
x
@@ -15758,44 +15625,44 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i15332" "i15333" "i15334"))
+ #("i4849" "i4850" "i4851"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15317")))
+ #("i4834")))
(hygiene guile))))
- #{tmp\ 15331}#)
+ #{tmp\ 4848}#)
#f)
- (apply (lambda (#{_\ 15341}#
- #{id\ 15342}#
- #{val\ 15343}#)
+ (apply (lambda (#{_\ 4858}#
+ #{id\ 4859}#
+ #{val\ 4860}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i15338" "i15339" "i15340"))
+ #("i4855" "i4856" "i4857"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i15317")))
+ #("i4834")))
(hygiene guile))
- #{id\ 15342}#
- #{val\ 15343}#))
- #{tmp\ 15331}#)
+ #{id\ 4859}#
+ #{val\ 4860}#))
+ #{tmp\ 4848}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 15318}#)))
+ #{tmp\ 4835}#)))
($sc-dispatch
- #{tmp\ 15318}#
+ #{tmp\ 4835}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 15318}#
+ #{tmp\ 4835}#
'(any (any . any) any . each-any))))
- #{x\ 15316}#))
+ #{x\ 4833}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 6620158..877269c 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -471,16 +471,14 @@
meta
body))
(else (decorate-source
- ;; really gross hack
- `(lambda %%args
- (cond ,@body))
+ `(case-lambda* ,@body)
src)))))
(define build-lambda-case
;; req := (name ...)
;; opt := (name ...) | #f
;; rest := name | #f
- ;; kw := (allow-other-keys? (keyword name var [init]) ...) | #f
+ ;; kw := (allow-other-keys? (keyword name var) ...) | #f
;; inits: (init ...)
;; vars: (sym ...)
;; vars map to named arguments in the following order:
@@ -510,15 +508,24 @@
(error "something went wrong"
req opt rest kw inits vars nreq nopt kw-indices nargs))
(decorate-source
- `((((@@ (ice-9 optargs) parse-lambda-case)
- '(,nreq ,nopt ,rest-idx ,nargs ,allow-other-keys? ,kw-indices)
- (list ,@(map (lambda (i) `(lambda ,vars ,i)) inits))
- %%args)
- => (lambda (%%args) (apply (lambda ,vars ,body) %%args)))
- ,@(or else-case
- `((%%args (scm-error 'wrong-number-of-args #f
- "Wrong number of arguments" '()
- %%args)))))
+ `(((,@(list-head vars nreq)
+ ,@(if opt
+ `(#:optional ,@(map list
+ (list-head (list-tail vars nreq)
nopt)
+ (list-head inits nopt)))
+ '())
+ ,@(if kw
+ `(#:key ,@(map (lambda (x init)
+ (list (caddr x)
+ init
+ (car x)))
+ (cdr kw)
+ (list-tail inits nopt)))
+ '())
+ ,@(if allow-other-keys? '(#:allow-other-keys) '())
+ ,@(if rest (list-ref vars rest-idx) '()))
+ ,body)
+ ,@(or else-case '()))
src))))))
(define build-primref
diff --git a/test-suite/tests/optargs.test b/test-suite/tests/optargs.test
index 1f9313b..f3e4e03 100644
--- a/test-suite/tests/optargs.test
+++ b/test-suite/tests/optargs.test
@@ -1,7 +1,7 @@
;;;; optargs.test --- test suite for optional arg processing -*- scheme -*-
;;;; Matthias Koeppe <address@hidden> --- June 2001
;;;;
-;;;; Copyright (C) 2001, 2006, 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2001, 2006, 2009, 2010 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -45,11 +45,34 @@
exc (compile 'exp #:to 'value
#:env (current-module)))))))
+(define-syntax c&m&e
+ (syntax-rules (pass-if pass-if-exception)
+ ((_ (pass-if test-name exp))
+ (begin (pass-if (string-append test-name " (eval)")
+ (primitive-eval 'exp))
+ (pass-if (string-append test-name " (memoized eval)")
+ (primitive-eval (memoize-expression 'exp)))
+ (pass-if (string-append test-name " (compile)")
+ (compile 'exp #:to 'value #:env (current-module)))))
+ ((_ (pass-if-exception test-name exc exp))
+ (begin (pass-if-exception (string-append test-name " (eval)")
+ exc (primitive-eval 'exp))
+ (pass-if-exception (string-append test-name " (memoized eval)")
+ exc (primitive-eval (memoize-expression 'exp)))
+ (pass-if-exception (string-append test-name " (compile)")
+ exc (compile 'exp #:to 'value
+ #:env (current-module)))))))
+
(define-syntax with-test-prefix/c&e
(syntax-rules ()
((_ section-name exp ...)
(with-test-prefix section-name (c&e exp) ...))))
+(define-syntax with-test-prefix/c&m&e
+ (syntax-rules ()
+ ((_ section-name exp ...)
+ (with-test-prefix section-name (c&m&e exp) ...))))
+
(with-test-prefix/c&e "optional argument processing"
(pass-if "local defines work with optional arguments"
(eval '(begin
@@ -174,12 +197,12 @@
(equal? (f 1 2 3 #:x 'x #:z 'z)
'(x #f z (1 2 3 #:x x #:z z))))))
-(with-test-prefix/c&e "lambda* inits"
+(with-test-prefix/c&m&e "lambda* inits"
(pass-if "can bind lexicals within inits"
(begin
- (define* (qux #:optional a
- #:key (b (or a 13) #:a))
- b)
+ (define qux
+ (lambda* (#:optional a #:key (b (or a 13) #:a))
+ b))
#t))
(pass-if "testing qux"
(and (equal? (qux) 13)
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-117-g12922f0,
Andy Wingo <=