summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/__scm.h4
-rw-r--r--libguile/eval.c170
-rw-r--r--libguile/evalext.c5
-rw-r--r--libguile/list.c59
-rw-r--r--libguile/srfi-1.c229
-rw-r--r--libguile/srfi-1.h2
-rw-r--r--libguile/vm-engine.c2
-rw-r--r--libguile/vm-engine.h2
-rw-r--r--libguile/vm-i-system.c8
-rw-r--r--module/ice-9/boot-9.scm185
-rw-r--r--module/ice-9/psyntax-pp.scm29613
-rw-r--r--module/ice-9/psyntax.scm27
-rw-r--r--module/srfi/srfi-1.scm129
-rw-r--r--test-suite/tests/eval.test15
-rw-r--r--test-suite/tests/ports.test54
15 files changed, 15106 insertions, 15398 deletions
diff --git a/libguile/__scm.h b/libguile/__scm.h
index 2bfb4f694..f5551ad7a 100644
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -536,10 +536,10 @@ SCM_API void scm_async_tick (void);
while (0)
/* SCM_ASYNC_TICK_WITH_CODE is only available to Guile itself */
-# define SCM_ASYNC_TICK_WITH_CODE(stmt) \
+# define SCM_ASYNC_TICK_WITH_CODE(thr, stmt) \
do \
{ \
- if (SCM_UNLIKELY (SCM_I_CURRENT_THREAD->pending_asyncs)) \
+ if (SCM_UNLIKELY (thr->pending_asyncs)) \
{ \
stmt; \
scm_async_click (); \
diff --git a/libguile/eval.c b/libguile/eval.c
index f830e0099..009f3790b 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -596,171 +596,31 @@ SCM_DEFINE (scm_nconc2last, "apply:nconc2last", 1, 0, 0,
#undef FUNC_NAME
-
-/* Typechecking for multi-argument MAP and FOR-EACH.
-
- Verify that each element of the vector ARGV, except for the first,
- is a proper list whose length is LEN. Attribute errors to WHO,
- and claim that the i'th element of ARGV is WHO's i+2'th argument. */
-static inline void
-check_map_args (SCM argv,
- long len,
- SCM gf,
- SCM proc,
- SCM args,
- const char *who)
-{
- long i;
-
- for (i = SCM_SIMPLE_VECTOR_LENGTH (argv) - 1; i >= 1; i--)
- {
- SCM elt = SCM_SIMPLE_VECTOR_REF (argv, i);
- long elt_len = scm_ilength (elt);
-
- if (elt_len < 0)
- {
- if (gf)
- scm_apply_generic (gf, scm_cons (proc, args));
- else
- scm_wrong_type_arg (who, i + 2, elt);
- }
-
- if (elt_len != len)
- scm_out_of_range_pos (who, elt, scm_from_long (i + 2));
- }
-}
-
-
-SCM_GPROC (s_map, "map", 2, 0, 1, scm_map, g_map);
-
-/* Note: Currently, scm_map applies PROC to the argument list(s)
- sequentially, starting with the first element(s). This is used in
- evalext.c where the Scheme procedure `map-in-order', which guarantees
- sequential behaviour, is implemented using scm_map. If the
- behaviour changes, we need to update `map-in-order'.
-*/
-
SCM
scm_map (SCM proc, SCM arg1, SCM args)
-#define FUNC_NAME s_map
{
- long i, len;
- SCM res = SCM_EOL;
- SCM *pres = &res;
-
- len = scm_ilength (arg1);
- SCM_GASSERTn (len >= 0,
- g_map, scm_cons2 (proc, arg1, args), SCM_ARG2, s_map);
- SCM_VALIDATE_REST_ARGUMENT (args);
- if (scm_is_null (args))
- {
- SCM_GASSERT2 (scm_is_true (scm_procedure_p (proc)), g_map, proc, arg1, SCM_ARG1, s_map);
- while (SCM_NIMP (arg1))
- {
- *pres = scm_list_1 (scm_call_1 (proc, SCM_CAR (arg1)));
- pres = SCM_CDRLOC (*pres);
- arg1 = SCM_CDR (arg1);
- }
- return res;
- }
- if (scm_is_null (SCM_CDR (args)))
- {
- SCM arg2 = SCM_CAR (args);
- int len2 = scm_ilength (arg2);
- SCM_GASSERTn (scm_is_true (scm_procedure_p (proc)), g_map,
- scm_cons2 (proc, arg1, args), SCM_ARG1, s_map);
- SCM_GASSERTn (len2 >= 0,
- g_map, scm_cons2 (proc, arg1, args), SCM_ARG3, s_map);
- if (len2 != len)
- SCM_OUT_OF_RANGE (3, arg2);
- while (SCM_NIMP (arg1))
- {
- *pres = scm_list_1 (scm_call_2 (proc, SCM_CAR (arg1), SCM_CAR (arg2)));
- pres = SCM_CDRLOC (*pres);
- arg1 = SCM_CDR (arg1);
- arg2 = SCM_CDR (arg2);
- }
- return res;
- }
- arg1 = scm_cons (arg1, args);
- args = scm_vector (arg1);
- check_map_args (args, len, g_map, proc, arg1, s_map);
- while (1)
- {
- arg1 = SCM_EOL;
- for (i = SCM_SIMPLE_VECTOR_LENGTH (args) - 1; i >= 0; i--)
- {
- SCM elt = SCM_SIMPLE_VECTOR_REF (args, i);
- if (SCM_IMP (elt))
- return res;
- arg1 = scm_cons (SCM_CAR (elt), arg1);
- SCM_SIMPLE_VECTOR_SET (args, i, SCM_CDR (elt));
- }
- *pres = scm_list_1 (scm_apply (proc, arg1, SCM_EOL));
- pres = SCM_CDRLOC (*pres);
- }
-}
-#undef FUNC_NAME
+ static SCM var = SCM_BOOL_F;
+ if (scm_is_false (var))
+ var = scm_private_variable (scm_the_root_module (),
+ scm_from_latin1_symbol ("map"));
-SCM_GPROC (s_for_each, "for-each", 2, 0, 1, scm_for_each, g_for_each);
+ return scm_apply (scm_variable_ref (var),
+ scm_cons (proc, scm_cons (arg1, args)), SCM_EOL);
+}
SCM
scm_for_each (SCM proc, SCM arg1, SCM args)
-#define FUNC_NAME s_for_each
{
- long i, len;
- len = scm_ilength (arg1);
- SCM_GASSERTn (len >= 0, g_for_each, scm_cons2 (proc, arg1, args),
- SCM_ARG2, s_for_each);
- SCM_VALIDATE_REST_ARGUMENT (args);
- if (scm_is_null (args))
- {
- SCM_GASSERT2 (scm_is_true (scm_procedure_p (proc)), g_for_each,
- proc, arg1, SCM_ARG1, s_for_each);
- while (SCM_NIMP (arg1))
- {
- scm_call_1 (proc, SCM_CAR (arg1));
- arg1 = SCM_CDR (arg1);
- }
- return SCM_UNSPECIFIED;
- }
- if (scm_is_null (SCM_CDR (args)))
- {
- SCM arg2 = SCM_CAR (args);
- int len2 = scm_ilength (arg2);
- SCM_GASSERTn (scm_is_true (scm_procedure_p (proc)), g_for_each,
- scm_cons2 (proc, arg1, args), SCM_ARG1, s_for_each);
- SCM_GASSERTn (len2 >= 0, g_for_each,
- scm_cons2 (proc, arg1, args), SCM_ARG3, s_for_each);
- if (len2 != len)
- SCM_OUT_OF_RANGE (3, arg2);
- while (SCM_NIMP (arg1))
- {
- scm_call_2 (proc, SCM_CAR (arg1), SCM_CAR (arg2));
- arg1 = SCM_CDR (arg1);
- arg2 = SCM_CDR (arg2);
- }
- return SCM_UNSPECIFIED;
- }
- arg1 = scm_cons (arg1, args);
- args = scm_vector (arg1);
- check_map_args (args, len, g_for_each, proc, arg1, s_for_each);
- while (1)
- {
- arg1 = SCM_EOL;
- for (i = SCM_SIMPLE_VECTOR_LENGTH (args) - 1; i >= 0; i--)
- {
- SCM elt = SCM_SIMPLE_VECTOR_REF (args, i);
- if (SCM_IMP (elt))
- return SCM_UNSPECIFIED;
- arg1 = scm_cons (SCM_CAR (elt), arg1);
- SCM_SIMPLE_VECTOR_SET (args, i, SCM_CDR (elt));
- }
- scm_apply (proc, arg1, SCM_EOL);
- }
+ static SCM var = SCM_BOOL_F;
+
+ if (scm_is_false (var))
+ var = scm_private_variable (scm_the_root_module (),
+ scm_from_latin1_symbol ("for-each"));
+
+ return scm_apply (scm_variable_ref (var),
+ scm_cons (proc, scm_cons (arg1, args)), SCM_EOL);
}
-#undef FUNC_NAME
static SCM
diff --git a/libguile/evalext.c b/libguile/evalext.c
index ff2ff0ec0..1e5bd6822 100644
--- a/libguile/evalext.c
+++ b/libguile/evalext.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009, 2010 Free Software Foundation, Inc.
+/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009, 2010, 2011 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 License
@@ -55,9 +55,6 @@ SCM_DEFINE (scm_defined_p, "defined?", 1, 1, 0,
#undef FUNC_NAME
-SCM_REGISTER_PROC (s_map_in_order, "map-in-order", 2, 0, 1, scm_map);
-
-
SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0,
(SCM obj),
"Return #t for objects which Guile considers self-evaluating")
diff --git a/libguile/list.c b/libguile/list.c
index 23ef40407..704151519 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,2000,2001,2003,2004,2008,2009,2010
+/* Copyright (C) 1995,1996,1997,2000,2001,2003,2004,2008,2009,2010,2011
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -617,8 +617,32 @@ SCM_DEFINE (scm_memq, "memq", 2, 0, 0,
"returned.")
#define FUNC_NAME s_scm_memq
{
- SCM_VALIDATE_LIST (2, lst);
- return scm_c_memq (x, lst);
+ SCM hare = lst, tortoise = lst;
+
+ while (scm_is_pair (hare))
+ {
+ if (scm_is_eq (SCM_CAR (hare), x))
+ return hare;
+ else
+ hare = SCM_CDR (hare);
+
+ if (!scm_is_pair (hare))
+ break;
+
+ if (scm_is_eq (SCM_CAR (hare), x))
+ return hare;
+ else
+ hare = SCM_CDR (hare);
+
+ tortoise = SCM_CDR (tortoise);
+ if (SCM_UNLIKELY (scm_is_eq (hare, tortoise)))
+ break;
+ }
+
+ if (SCM_LIKELY (scm_is_null (hare)))
+ return SCM_BOOL_F;
+ else
+ scm_wrong_type_arg_msg (FUNC_NAME, 2, lst, "list");
}
#undef FUNC_NAME
@@ -633,13 +657,32 @@ SCM_DEFINE (scm_memv, "memv", 2, 0, 0,
"returned.")
#define FUNC_NAME s_scm_memv
{
- SCM_VALIDATE_LIST (2, lst);
- for (; !SCM_NULL_OR_NIL_P (lst); lst = SCM_CDR (lst))
+ SCM hare = lst, tortoise = lst;
+
+ while (scm_is_pair (hare))
{
- if (! scm_is_false (scm_eqv_p (SCM_CAR (lst), x)))
- return lst;
+ if (scm_is_true (scm_eqv_p (SCM_CAR (hare), x)))
+ return hare;
+ else
+ hare = SCM_CDR (hare);
+
+ if (!scm_is_pair (hare))
+ break;
+
+ if (scm_is_true (scm_eqv_p (SCM_CAR (hare), x)))
+ return hare;
+ else
+ hare = SCM_CDR (hare);
+
+ tortoise = SCM_CDR (tortoise);
+ if (SCM_UNLIKELY (scm_is_eq (hare, tortoise)))
+ break;
}
- return SCM_BOOL_F;
+
+ if (SCM_LIKELY (scm_is_null (hare)))
+ return SCM_BOOL_F;
+ else
+ scm_wrong_type_arg_msg (FUNC_NAME, 2, lst, "list");
}
#undef FUNC_NAME
diff --git a/libguile/srfi-1.c b/libguile/srfi-1.c
index f67e60082..37441f788 100644
--- a/libguile/srfi-1.c
+++ b/libguile/srfi-1.c
@@ -44,32 +44,6 @@
*/
-static long
-srfi1_ilength (SCM sx)
-{
- long i = 0;
- SCM tortoise = sx;
- SCM hare = sx;
-
- do {
- if (SCM_NULL_OR_NIL_P(hare)) return i;
- if (!scm_is_pair (hare)) return -2;
- hare = SCM_CDR(hare);
- i++;
- if (SCM_NULL_OR_NIL_P(hare)) return i;
- if (!scm_is_pair (hare)) return -2;
- hare = SCM_CDR(hare);
- i++;
- /* For every two steps the hare takes, the tortoise takes one. */
- tortoise = SCM_CDR(tortoise);
- }
- while (! scm_is_eq (hare, tortoise));
-
- /* If the tortoise ever catches the hare, then the list must contain
- a cycle. */
- return -1;
-}
-
static SCM
equal_trampoline (SCM proc, SCM arg1, SCM arg2)
{
@@ -760,202 +734,6 @@ SCM_DEFINE (scm_srfi1_lset_difference_x, "lset-difference!", 2, 0, 1,
#undef FUNC_NAME
-/* Typechecking for multi-argument MAP and FOR-EACH.
-
- Verify that each element of the vector ARGV, except for the first,
- is a list and return minimum length. Attribute errors to WHO,
- and claim that the i'th element of ARGV is WHO's i+2'th argument. */
-static inline int
-check_map_args (SCM argv,
- long len,
- SCM gf,
- SCM proc,
- SCM args,
- const char *who)
-{
- long i;
- SCM elt;
-
- for (i = SCM_SIMPLE_VECTOR_LENGTH (argv) - 1; i >= 1; i--)
- {
- long elt_len;
- elt = SCM_SIMPLE_VECTOR_REF (argv, i);
-
- if (!(scm_is_null (elt) || scm_is_pair (elt)))
- goto check_map_error;
-
- elt_len = srfi1_ilength (elt);
- if (elt_len < -1)
- goto check_map_error;
-
- if (len < 0 || (elt_len >= 0 && elt_len < len))
- len = elt_len;
- }
-
- if (len < 0)
- {
- /* i == 0 */
- elt = SCM_EOL;
- check_map_error:
- if (gf)
- scm_apply_generic (gf, scm_cons (proc, args));
- else
- scm_wrong_type_arg (who, i + 2, elt);
- }
-
- scm_remember_upto_here_1 (argv);
- return len;
-}
-
-
-SCM_GPROC (s_srfi1_map, "map", 2, 0, 1, scm_srfi1_map, g_srfi1_map);
-
-/* Note: Currently, scm_srfi1_map applies PROC to the argument list(s)
- sequentially, starting with the first element(s). This is used in
- the Scheme procedure `map-in-order', which guarantees sequential
- behaviour, is implemented using scm_map. If the behaviour changes,
- we need to update `map-in-order'.
-*/
-
-SCM
-scm_srfi1_map (SCM proc, SCM arg1, SCM args)
-#define FUNC_NAME s_srfi1_map
-{
- long i, len;
- SCM res = SCM_EOL;
- SCM *pres = &res;
-
- len = srfi1_ilength (arg1);
- SCM_GASSERTn ((scm_is_null (arg1) || scm_is_pair (arg1)) && len >= -1,
- g_srfi1_map,
- scm_cons2 (proc, arg1, args), SCM_ARG2, s_srfi1_map);
- SCM_VALIDATE_REST_ARGUMENT (args);
- if (scm_is_null (args))
- {
- SCM_GASSERT2 (scm_is_true (scm_procedure_p (proc)), g_srfi1_map,
- proc, arg1, SCM_ARG1, s_srfi1_map);
- SCM_GASSERT2 (len >= 0, g_srfi1_map, proc, arg1, SCM_ARG2, s_srfi1_map);
- while (SCM_NIMP (arg1))
- {
- *pres = scm_list_1 (scm_call_1 (proc, SCM_CAR (arg1)));
- pres = SCM_CDRLOC (*pres);
- arg1 = SCM_CDR (arg1);
- }
- return res;
- }
- if (scm_is_null (SCM_CDR (args)))
- {
- SCM arg2 = SCM_CAR (args);
- int len2 = srfi1_ilength (arg2);
- SCM_GASSERTn (scm_is_true (scm_procedure_p (proc)), g_srfi1_map,
- scm_cons2 (proc, arg1, args), SCM_ARG1, s_srfi1_map);
- if (len < 0 || (len2 >= 0 && len2 < len))
- len = len2;
- SCM_GASSERTn ((scm_is_null (arg2) || scm_is_pair (arg2))
- && len >= 0 && len2 >= -1,
- g_srfi1_map,
- scm_cons2 (proc, arg1, args),
- len2 >= 0 ? SCM_ARG2 : SCM_ARG3,
- s_srfi1_map);
- while (len > 0)
- {
- *pres = scm_list_1 (scm_call_2 (proc, SCM_CAR (arg1), SCM_CAR (arg2)));
- pres = SCM_CDRLOC (*pres);
- arg1 = SCM_CDR (arg1);
- arg2 = SCM_CDR (arg2);
- --len;
- }
- return res;
- }
- args = scm_vector (arg1 = scm_cons (arg1, args));
- len = check_map_args (args, len, g_srfi1_map, proc, arg1, s_srfi1_map);
- while (len > 0)
- {
- arg1 = SCM_EOL;
- for (i = SCM_SIMPLE_VECTOR_LENGTH (args) - 1; i >= 0; i--)
- {
- SCM elt = SCM_SIMPLE_VECTOR_REF (args, i);
- arg1 = scm_cons (SCM_CAR (elt), arg1);
- SCM_SIMPLE_VECTOR_SET (args, i, SCM_CDR (elt));
- }
- *pres = scm_list_1 (scm_apply (proc, arg1, SCM_EOL));
- pres = SCM_CDRLOC (*pres);
- --len;
- }
- return res;
-}
-#undef FUNC_NAME
-
-SCM_REGISTER_PROC (s_srfi1_map_in_order, "map-in-order", 2, 0, 1, scm_srfi1_map);
-
-SCM_GPROC (s_srfi1_for_each, "for-each", 2, 0, 1, scm_srfi1_for_each, g_srfi1_for_each);
-
-SCM
-scm_srfi1_for_each (SCM proc, SCM arg1, SCM args)
-#define FUNC_NAME s_srfi1_for_each
-{
- long i, len;
- len = srfi1_ilength (arg1);
- SCM_GASSERTn ((scm_is_null (arg1) || scm_is_pair (arg1)) && len >= -1,
- g_srfi1_for_each, scm_cons2 (proc, arg1, args),
- SCM_ARG2, s_srfi1_for_each);
- SCM_VALIDATE_REST_ARGUMENT (args);
- if (scm_is_null (args))
- {
- SCM_GASSERT2 (scm_is_true (scm_procedure_p (proc)), g_srfi1_for_each,
- proc, arg1, SCM_ARG1, s_srfi1_for_each);
- SCM_GASSERT2 (len >= 0, g_srfi1_for_each, proc, arg1,
- SCM_ARG2, s_srfi1_map);
- while (SCM_NIMP (arg1))
- {
- scm_call_1 (proc, SCM_CAR (arg1));
- arg1 = SCM_CDR (arg1);
- }
- return SCM_UNSPECIFIED;
- }
- if (scm_is_null (SCM_CDR (args)))
- {
- SCM arg2 = SCM_CAR (args);
- int len2 = srfi1_ilength (arg2);
- SCM_GASSERTn (scm_is_true (scm_procedure_p (proc)), g_srfi1_for_each,
- scm_cons2 (proc, arg1, args), SCM_ARG1, s_srfi1_for_each);
- if (len < 0 || (len2 >= 0 && len2 < len))
- len = len2;
- SCM_GASSERTn ((scm_is_null (arg2) || scm_is_pair (arg2))
- && len >= 0 && len2 >= -1,
- g_srfi1_for_each,
- scm_cons2 (proc, arg1, args),
- len2 >= 0 ? SCM_ARG2 : SCM_ARG3,
- s_srfi1_for_each);
- while (len > 0)
- {
- scm_call_2 (proc, SCM_CAR (arg1), SCM_CAR (arg2));
- arg1 = SCM_CDR (arg1);
- arg2 = SCM_CDR (arg2);
- --len;
- }
- return SCM_UNSPECIFIED;
- }
- args = scm_vector (arg1 = scm_cons (arg1, args));
- len = check_map_args (args, len, g_srfi1_for_each, proc, arg1,
- s_srfi1_for_each);
- while (len > 0)
- {
- arg1 = SCM_EOL;
- for (i = SCM_SIMPLE_VECTOR_LENGTH (args) - 1; i >= 0; i--)
- {
- SCM elt = SCM_SIMPLE_VECTOR_REF (args, i);
- arg1 = scm_cons (SCM_CAR (elt), arg1);
- SCM_SIMPLE_VECTOR_SET (args, i, SCM_CDR (elt));
- }
- scm_apply (proc, arg1, SCM_EOL);
- --len;
- }
- return SCM_UNSPECIFIED;
-}
-#undef FUNC_NAME
-
-
SCM_DEFINE (scm_srfi1_assoc, "assoc", 2, 1, 0,
(SCM key, SCM alist, SCM pred),
"Behaves like @code{assq} but uses third argument @var{pred?}\n"
@@ -1175,16 +953,9 @@ scm_register_srfi_1 (void)
void
scm_init_srfi_1 (void)
{
- SCM the_root_module = scm_lookup_closure_module (SCM_BOOL_F);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/srfi-1.x"
#endif
- scm_c_extend_primitive_generic
- (SCM_VARIABLE_REF (scm_c_module_lookup (the_root_module, "map")),
- SCM_VARIABLE_REF (scm_c_lookup ("map")));
- scm_c_extend_primitive_generic
- (SCM_VARIABLE_REF (scm_c_module_lookup (the_root_module, "for-each")),
- SCM_VARIABLE_REF (scm_c_lookup ("for-each")));
}
/* End of srfi-1.c. */
diff --git a/libguile/srfi-1.h b/libguile/srfi-1.h
index 85aa65d0c..13ab067bd 100644
--- a/libguile/srfi-1.h
+++ b/libguile/srfi-1.h
@@ -39,8 +39,6 @@ SCM_INTERNAL SCM scm_srfi1_find_tail (SCM pred, SCM lst);
SCM_INTERNAL SCM scm_srfi1_length_plus (SCM lst);
SCM_INTERNAL SCM scm_srfi1_lset_difference_x (SCM equal, SCM lst, SCM rest);
SCM_INTERNAL SCM scm_srfi1_list_copy (SCM lst);
-SCM_INTERNAL SCM scm_srfi1_map (SCM proc, SCM arg1, SCM args);
-SCM_INTERNAL SCM scm_srfi1_for_each (SCM proc, SCM arg1, SCM args);
SCM_INTERNAL SCM scm_srfi1_assoc (SCM key, SCM alist, SCM pred);
SCM_INTERNAL SCM scm_srfi1_partition (SCM pred, SCM list);
SCM_INTERNAL SCM scm_srfi1_partition_x (SCM pred, SCM list);
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index bfa848967..e449b4372 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -52,7 +52,7 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
#endif
SCM *stack_limit = vp->stack_limit; /* stack limit address */
- SCM dynstate = SCM_I_CURRENT_THREAD->dynamic_state;
+ scm_i_thread *current_thread = SCM_I_CURRENT_THREAD;
scm_t_int64 vm_cookie = vp->cookie++;
/* Internal variables */
diff --git a/libguile/vm-engine.h b/libguile/vm-engine.h
index abbc11077..146931eb6 100644
--- a/libguile/vm-engine.h
+++ b/libguile/vm-engine.h
@@ -244,7 +244,7 @@
RUN_HOOK (SCM_VM_RESTORE_CONTINUATION_HOOK)
#define VM_HANDLE_INTERRUPTS \
- SCM_ASYNC_TICK_WITH_CODE (SYNC_REGISTER ())
+ SCM_ASYNC_TICK_WITH_CODE (current_thread, SYNC_REGISTER ())
/*
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index ea00fc920..0ff411f9a 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -1635,7 +1635,7 @@ VM_DEFINE_INSTRUCTION (89, wind_fluids, "wind-fluids", 1, -1, 0)
wf = scm_i_make_with_fluids (n, sp + 1, sp + 1 + n);
NULLSTACK (2 * n);
- scm_i_swap_with_fluids (wf, dynstate);
+ scm_i_swap_with_fluids (wf, current_thread->dynamic_state);
scm_i_set_dynwinds (scm_cons (wf, scm_i_dynwinds ()));
NEXT;
}
@@ -1645,7 +1645,7 @@ VM_DEFINE_INSTRUCTION (90, unwind_fluids, "unwind-fluids", 0, 0, 0)
SCM wf;
wf = scm_car (scm_i_dynwinds ());
scm_i_set_dynwinds (scm_cdr (scm_i_dynwinds ()));
- scm_i_swap_with_fluids (wf, dynstate);
+ scm_i_swap_with_fluids (wf, current_thread->dynamic_state);
NEXT;
}
@@ -1655,7 +1655,7 @@ VM_DEFINE_INSTRUCTION (91, fluid_ref, "fluid-ref", 0, 1, 1)
SCM fluids;
CHECK_UNDERFLOW ();
- fluids = SCM_I_DYNAMIC_STATE_FLUIDS (dynstate);
+ fluids = SCM_I_DYNAMIC_STATE_FLUIDS (current_thread->dynamic_state);
if (SCM_UNLIKELY (!SCM_FLUID_P (*sp))
|| ((num = SCM_I_FLUID_NUM (*sp)) >= SCM_SIMPLE_VECTOR_LENGTH (fluids)))
{
@@ -1683,7 +1683,7 @@ VM_DEFINE_INSTRUCTION (92, fluid_set, "fluid-set", 0, 2, 0)
SCM val, fluid, fluids;
POP2 (val, fluid);
- fluids = SCM_I_DYNAMIC_STATE_FLUIDS (dynstate);
+ fluids = SCM_I_DYNAMIC_STATE_FLUIDS (current_thread->dynamic_state);
if (SCM_UNLIKELY (!SCM_FLUID_P (fluid))
|| ((num = SCM_I_FLUID_NUM (fluid)) >= SCM_SIMPLE_VECTOR_LENGTH (fluids)))
{
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 294b91515..60d133f20 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -263,6 +263,50 @@ If there is no handler at all, Guile prints an error and then exits."
+;;; Boot versions of `map' and `for-each', enough to get the expander
+;;; running.
+;;;
+(define map
+ (case-lambda
+ ((f l)
+ (let map1 ((l l))
+ (if (null? l)
+ '()
+ (cons (f (car l)) (map1 (cdr l))))))
+ ((f l1 l2)
+ (let map2 ((l1 l1) (l2 l2))
+ (if (null? l1)
+ '()
+ (cons (f (car l1) (car l2))
+ (map2 (cdr l1) (cdr l2))))))
+ ((f l1 . rest)
+ (let lp ((l1 l1) (rest rest))
+ (if (null? l1)
+ '()
+ (cons (apply f (car l1) (map car rest))
+ (lp (cdr l1) (map cdr rest))))))))
+
+(define for-each
+ (case-lambda
+ ((f l)
+ (let for-each1 ((l l))
+ (if (pair? l)
+ (begin
+ (f (car l))
+ (for-each1 (cdr l))))))
+ ((f l1 l2)
+ (let for-each2 ((l1 l1) (l2 l2))
+ (if (pair? l1)
+ (begin
+ (f (car l1) (car l2))
+ (for-each2 (cdr l1) (cdr l2))))))
+ ((f l1 . rest)
+ (let lp ((l1 l1) (rest rest))
+ (if (pair? l1)
+ (begin
+ (apply f (car l1) (map car rest))
+ (lp (cdr l1) (map cdr rest))))))))
+
;;; {and-map and or-map}
;;;
;;; (and-map fn lst) is like (and (fn (car lst)) (fn (cadr lst)) (fn...) ...)
@@ -479,6 +523,147 @@ If there is no handler at all, Guile prints an error and then exits."
(define sym
(if (module-locally-bound? (current-module) 'sym) sym val)))))
+;;; The real versions of `map' and `for-each', with cycle detection, and
+;;; that use reverse! instead of recursion in the case of `map'.
+;;;
+(define map
+ (case-lambda
+ ((f l)
+ (let map1 ((hare l) (tortoise l) (move? #f) (out '()))
+ (if (pair? hare)
+ (if move?
+ (if (eq? tortoise hare)
+ (scm-error 'wrong-type-arg "map" "Circular list: ~S"
+ (list l) #f)
+ (map1 (cdr hare) (cdr tortoise) #f
+ (cons (f (car hare)) out)))
+ (map1 (cdr hare) tortoise #t
+ (cons (f (car hare)) out)))
+ (if (null? hare)
+ (reverse! out)
+ (scm-error 'wrong-type-arg "map" "Not a list: ~S"
+ (list l) #f)))))
+
+ ((f l1 l2)
+ (let map2 ((h1 l1) (h2 l2) (t1 l1) (t2 l2) (move? #f) (out '()))
+ (cond
+ ((pair? h1)
+ (cond
+ ((not (pair? h2))
+ (scm-error 'wrong-type-arg "map"
+ (if (list? h2)
+ "List of wrong length: ~S"
+ "Not a list: ~S")
+ (list l2) #f))
+ ((not move?)
+ (map2 (cdr h1) (cdr h2) t1 t2 #t
+ (cons (f (car h1) (car h2)) out)))
+ ((eq? t1 h1)
+ (scm-error 'wrong-type-arg "map" "Circular list: ~S"
+ (list l1) #f))
+ ((eq? t2 h2)
+ (scm-error 'wrong-type-arg "map" "Circular list: ~S"
+ (list l2) #f))
+ (else
+ (map2 (cdr h1) (cdr h2) (cdr t1) (cdr t2) #f
+ (cons (f (car h1) (car h2)) out)))))
+
+ ((and (null? h1) (null? h2))
+ (reverse! out))
+
+ ((null? h1)
+ (scm-error 'wrong-type-arg "map"
+ (if (list? h2)
+ "List of wrong length: ~S"
+ "Not a list: ~S")
+ (list l2) #f))
+ (else
+ (scm-error 'wrong-type-arg "map"
+ "Not a list: ~S"
+ (list l1) #f)))))
+
+ ((f l1 . rest)
+ (let ((len (length l1)))
+ (let mapn ((rest rest))
+ (or (null? rest)
+ (if (= (length (car rest)) len)
+ (mapn (cdr rest))
+ (scm-error 'wrong-type-arg "map" "List of wrong length: ~S"
+ (list (car rest)) #f)))))
+ (let mapn ((l1 l1) (rest rest) (out '()))
+ (if (null? l1)
+ (reverse! out)
+ (mapn (cdr l1) (map cdr rest)
+ (cons (apply f (car l1) (map car rest)) out)))))))
+
+(define map-in-order map)
+
+(define for-each
+ (case-lambda
+ ((f l)
+ (let for-each1 ((hare l) (tortoise l) (move? #f))
+ (if (pair? hare)
+ (if move?
+ (if (eq? tortoise hare)
+ (scm-error 'wrong-type-arg "for-each" "Circular list: ~S"
+ (list l) #f)
+ (begin
+ (f (car hare))
+ (for-each1 (cdr hare) (cdr tortoise) #f)))
+ (begin
+ (f (car hare))
+ (for-each1 (cdr hare) tortoise #t)))
+
+ (if (not (null? hare))
+ (scm-error 'wrong-type-arg "for-each" "Not a list: ~S"
+ (list l) #f)))))
+
+ ((f l1 l2)
+ (let for-each2 ((h1 l1) (h2 l2) (t1 l1) (t2 l2) (move? #f))
+ (cond
+ ((and (pair? h1) (pair? h2))
+ (cond
+ ((not move?)
+ (f (car h1) (car h2))
+ (for-each2 (cdr h1) (cdr h2) t1 t2 #t))
+ ((eq? t1 h1)
+ (scm-error 'wrong-type-arg "for-each" "Circular list: ~S"
+ (list l1) #f))
+ ((eq? t2 h2)
+ (scm-error 'wrong-type-arg "for-each" "Circular list: ~S"
+ (list l2) #f))
+ (else
+ (f (car h1) (car h2))
+ (for-each2 (cdr h1) (cdr h2) (cdr t1) (cdr t2) #f))))
+
+ ((if (null? h1)
+ (or (null? h2) (pair? h2))
+ (and (pair? h1) (null? h2)))
+ (if #f #f))
+
+ ((list? h1)
+ (scm-error 'wrong-type-arg "for-each" "Unexpected tail: ~S"
+ (list h2) #f))
+ (else
+ (scm-error 'wrong-type-arg "for-each" "Unexpected tail: ~S"
+ (list h1) #f)))))
+
+ ((f l1 . rest)
+ (let ((len (length l1)))
+ (let for-eachn ((rest rest))
+ (or (null? rest)
+ (if (= (length (car rest)) len)
+ (for-eachn (cdr rest))
+ (scm-error 'wrong-type-arg "for-each" "List of wrong length: ~S"
+ (list (car rest)) #f)))))
+
+ (let for-eachn ((l1 l1) (rest rest))
+ (if (pair? l1)
+ (begin
+ (apply f (car l1) (map car rest))
+ (for-eachn (cdr l1) (map cdr rest))))))))
+
+
;;;
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 16c6a90a4..2a444a086 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1588 +2,2393 @@
(if #f #f)
(letrec*
- ((#{and-map* 38}#
- (lambda (#{f 202}# #{first 203}# . #{rest 204}#)
+ ((#{make-void 203}#
+ (lambda (#{src 761}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #{src 761}#)))
+ (#{make-const 205}#
+ (lambda (#{src 763}# #{exp 764}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{src 763}#
+ #{exp 764}#)))
+ (#{make-lexical-ref 209}#
+ (lambda (#{src 771}# #{name 772}# #{gensym 773}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{src 771}#
+ #{name 772}#
+ #{gensym 773}#)))
+ (#{make-lexical-set 211}#
+ (lambda (#{src 777}#
+ #{name 778}#
+ #{gensym 779}#
+ #{exp 780}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 4)
+ #{src 777}#
+ #{name 778}#
+ #{gensym 779}#
+ #{exp 780}#)))
+ (#{make-module-ref 213}#
+ (lambda (#{src 785}#
+ #{mod 786}#
+ #{name 787}#
+ #{public? 788}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #{src 785}#
+ #{mod 786}#
+ #{name 787}#
+ #{public? 788}#)))
+ (#{make-module-set 215}#
+ (lambda (#{src 793}#
+ #{mod 794}#
+ #{name 795}#
+ #{public? 796}#
+ #{exp 797}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 6)
+ #{src 793}#
+ #{mod 794}#
+ #{name 795}#
+ #{public? 796}#
+ #{exp 797}#)))
+ (#{make-toplevel-ref 217}#
+ (lambda (#{src 803}# #{name 804}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #{src 803}#
+ #{name 804}#)))
+ (#{make-toplevel-set 219}#
+ (lambda (#{src 807}# #{name 808}# #{exp 809}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 8)
+ #{src 807}#
+ #{name 808}#
+ #{exp 809}#)))
+ (#{make-toplevel-define 221}#
+ (lambda (#{src 813}# #{name 814}# #{exp 815}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
+ #{src 813}#
+ #{name 814}#
+ #{exp 815}#)))
+ (#{make-conditional 223}#
+ (lambda (#{src 819}#
+ #{test 820}#
+ #{consequent 821}#
+ #{alternate 822}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ #{src 819}#
+ #{test 820}#
+ #{consequent 821}#
+ #{alternate 822}#)))
+ (#{make-application 225}#
+ (lambda (#{src 827}# #{proc 828}# #{args 829}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #{src 827}#
+ #{proc 828}#
+ #{args 829}#)))
+ (#{make-sequence 227}#
+ (lambda (#{src 833}# #{exps 834}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 12)
+ #{src 833}#
+ #{exps 834}#)))
+ (#{make-lambda 229}#
+ (lambda (#{src 837}# #{meta 838}# #{body 839}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{src 837}#
+ #{meta 838}#
+ #{body 839}#)))
+ (#{make-lambda-case 231}#
+ (lambda (#{src 843}#
+ #{req 844}#
+ #{opt 845}#
+ #{rest 846}#
+ #{kw 847}#
+ #{inits 848}#
+ #{gensyms 849}#
+ #{body 850}#
+ #{alternate 851}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{src 843}#
+ #{req 844}#
+ #{opt 845}#
+ #{rest 846}#
+ #{kw 847}#
+ #{inits 848}#
+ #{gensyms 849}#
+ #{body 850}#
+ #{alternate 851}#)))
+ (#{make-let 233}#
+ (lambda (#{src 861}#
+ #{names 862}#
+ #{gensyms 863}#
+ #{vals 864}#
+ #{body 865}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 15)
+ #{src 861}#
+ #{names 862}#
+ #{gensyms 863}#
+ #{vals 864}#
+ #{body 865}#)))
+ (#{make-letrec 235}#
+ (lambda (#{src 871}#
+ #{in-order? 872}#
+ #{names 873}#
+ #{gensyms 874}#
+ #{vals 875}#
+ #{body 876}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ #{src 871}#
+ #{in-order? 872}#
+ #{names 873}#
+ #{gensyms 874}#
+ #{vals 875}#
+ #{body 876}#)))
+ (#{make-dynlet 237}#
+ (lambda (#{src 883}#
+ #{fluids 884}#
+ #{vals 885}#
+ #{body 886}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 17)
+ #{src 883}#
+ #{fluids 884}#
+ #{vals 885}#
+ #{body 886}#)))
+ (#{lambda? 240}#
+ (lambda (#{x 891}#)
+ (if (struct? #{x 891}#)
+ (eq? (struct-vtable #{x 891}#)
+ (vector-ref %expanded-vtables 13))
+ #f)))
+ (#{lambda-meta 242}#
+ (lambda (#{x 895}#) (struct-ref #{x 895}# 1)))
+ (#{set-lambda-meta! 244}#
+ (lambda (#{x 897}# #{v 898}#)
+ (struct-set! #{x 897}# 1 #{v 898}#)))
+ (#{top-level-eval-hook 250}#
+ (lambda (#{x 901}# #{mod 902}#)
+ (primitive-eval #{x 901}#)))
+ (#{local-eval-hook 252}#
+ (lambda (#{x 905}# #{mod 906}#)
+ (primitive-eval #{x 905}#)))
+ (#{put-global-definition-hook 255}#
+ (lambda (#{symbol 909}# #{type 910}# #{val 911}#)
+ (module-define!
+ (current-module)
+ #{symbol 909}#
+ (make-syntax-transformer
+ #{symbol 909}#
+ #{type 910}#
+ #{val 911}#))))
+ (#{get-global-definition-hook 257}#
+ (lambda (#{symbol 915}# #{module 916}#)
(begin
- (let ((#{t 210}# (null? #{first 203}#)))
- (if #{t 210}#
- #{t 210}#
- (if (null? #{rest 204}#)
- (letrec*
- ((#{andmap 214}#
- (lambda (#{first 215}#)
- (begin
- (let ((#{x 218}# (car #{first 215}#))
- (#{first 219}# (cdr #{first 215}#)))
- (if (null? #{first 219}#)
- (#{f 202}# #{x 218}#)
- (if (#{f 202}# #{x 218}#)
- (#{andmap 214}# #{first 219}#)
- #f)))))))
- (begin (#{andmap 214}# #{first 203}#)))
- (letrec*
- ((#{andmap 225}#
- (lambda (#{first 226}# #{rest 227}#)
- (begin
- (let ((#{x 232}# (car #{first 226}#))
- (#{xr 233}# (map car #{rest 227}#))
- (#{first 234}# (cdr #{first 226}#))
- (#{rest 235}# (map cdr #{rest 227}#)))
- (if (null? #{first 234}#)
- (@apply #{f 202}# #{x 232}# #{xr 233}#)
- (if (@apply #{f 202}# #{x 232}# #{xr 233}#)
- (#{andmap 225}# #{first 234}# #{rest 235}#)
- #f)))))))
+ (if (if (not #{module 916}#) (current-module) #f)
+ (warn "module system is booted, we should have a module"
+ #{symbol 915}#))
+ (begin
+ (let ((#{v 922}# (module-variable
+ (if #{module 916}#
+ (resolve-module (cdr #{module 916}#))
+ (current-module))
+ #{symbol 915}#)))
+ (if #{v 922}#
+ (if (variable-bound? #{v 922}#)
(begin
- (#{andmap 225}# #{first 203}# #{rest 204}#))))))))))
- (begin
- (letrec*
- ((#{make-void 240}#
- (lambda (#{src 798}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #{src 798}#)))
- (#{make-const 242}#
- (lambda (#{src 800}# #{exp 801}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #{src 800}#
- #{exp 801}#)))
- (#{make-lexical-ref 246}#
- (lambda (#{src 808}# #{name 809}# #{gensym 810}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #{src 808}#
- #{name 809}#
- #{gensym 810}#)))
- (#{make-lexical-set 248}#
- (lambda (#{src 814}#
- #{name 815}#
- #{gensym 816}#
- #{exp 817}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 4)
- #{src 814}#
- #{name 815}#
- #{gensym 816}#
- #{exp 817}#)))
- (#{make-module-ref 250}#
- (lambda (#{src 822}#
- #{mod 823}#
- #{name 824}#
- #{public? 825}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #{src 822}#
- #{mod 823}#
- #{name 824}#
- #{public? 825}#)))
- (#{make-module-set 252}#
- (lambda (#{src 830}#
- #{mod 831}#
- #{name 832}#
- #{public? 833}#
- #{exp 834}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 6)
- #{src 830}#
- #{mod 831}#
- #{name 832}#
- #{public? 833}#
- #{exp 834}#)))
- (#{make-toplevel-ref 254}#
- (lambda (#{src 840}# #{name 841}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #{src 840}#
- #{name 841}#)))
- (#{make-toplevel-set 256}#
- (lambda (#{src 844}# #{name 845}# #{exp 846}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 8)
- #{src 844}#
- #{name 845}#
- #{exp 846}#)))
- (#{make-toplevel-define 258}#
- (lambda (#{src 850}# #{name 851}# #{exp 852}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 9)
- #{src 850}#
- #{name 851}#
- #{exp 852}#)))
- (#{make-conditional 260}#
- (lambda (#{src 856}#
- #{test 857}#
- #{consequent 858}#
- #{alternate 859}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 10)
- #{src 856}#
- #{test 857}#
- #{consequent 858}#
- #{alternate 859}#)))
- (#{make-application 262}#
- (lambda (#{src 864}# #{proc 865}# #{args 866}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #{src 864}#
- #{proc 865}#
- #{args 866}#)))
- (#{make-sequence 264}#
- (lambda (#{src 870}# #{exps 871}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 12)
- #{src 870}#
- #{exps 871}#)))
- (#{make-lambda 266}#
- (lambda (#{src 874}# #{meta 875}# #{body 876}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{src 874}#
- #{meta 875}#
- #{body 876}#)))
- (#{make-lambda-case 268}#
- (lambda (#{src 880}#
- #{req 881}#
- #{opt 882}#
- #{rest 883}#
- #{kw 884}#
- #{inits 885}#
- #{gensyms 886}#
- #{body 887}#
- #{alternate 888}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #{src 880}#
- #{req 881}#
- #{opt 882}#
- #{rest 883}#
- #{kw 884}#
- #{inits 885}#
- #{gensyms 886}#
- #{body 887}#
- #{alternate 888}#)))
- (#{make-let 270}#
- (lambda (#{src 898}#
- #{names 899}#
- #{gensyms 900}#
- #{vals 901}#
- #{body 902}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 15)
- #{src 898}#
- #{names 899}#
- #{gensyms 900}#
- #{vals 901}#
- #{body 902}#)))
- (#{make-letrec 272}#
- (lambda (#{src 908}#
- #{in-order? 909}#
- #{names 910}#
- #{gensyms 911}#
- #{vals 912}#
- #{body 913}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 16)
- #{src 908}#
- #{in-order? 909}#
- #{names 910}#
- #{gensyms 911}#
- #{vals 912}#
- #{body 913}#)))
- (#{make-dynlet 274}#
- (lambda (#{src 920}#
- #{fluids 921}#
- #{vals 922}#
- #{body 923}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 17)
- #{src 920}#
- #{fluids 921}#
- #{vals 922}#
- #{body 923}#)))
- (#{lambda? 277}#
- (lambda (#{x 928}#)
- (if (struct? #{x 928}#)
- (eq? (struct-vtable #{x 928}#)
- (vector-ref %expanded-vtables 13))
- #f)))
- (#{lambda-meta 279}#
- (lambda (#{x 932}#) (struct-ref #{x 932}# 1)))
- (#{set-lambda-meta! 281}#
- (lambda (#{x 934}# #{v 935}#)
- (struct-set! #{x 934}# 1 #{v 935}#)))
- (#{top-level-eval-hook 287}#
- (lambda (#{x 938}# #{mod 939}#)
- (primitive-eval #{x 938}#)))
- (#{local-eval-hook 289}#
- (lambda (#{x 942}# #{mod 943}#)
- (primitive-eval #{x 942}#)))
- (#{put-global-definition-hook 292}#
- (lambda (#{symbol 946}# #{type 947}# #{val 948}#)
- (module-define!
- (current-module)
- #{symbol 946}#
- (make-syntax-transformer
- #{symbol 946}#
- #{type 947}#
- #{val 948}#))))
- (#{get-global-definition-hook 294}#
- (lambda (#{symbol 952}# #{module 953}#)
- (begin
- (if (if (not #{module 953}#) (current-module) #f)
- (warn "module system is booted, we should have a module"
- #{symbol 952}#))
- (begin
- (let ((#{v 959}# (module-variable
- (if #{module 953}#
- (resolve-module (cdr #{module 953}#))
- (current-module))
- #{symbol 952}#)))
- (if #{v 959}#
- (if (variable-bound? #{v 959}#)
- (begin
- (let ((#{val 964}# (variable-ref #{v 959}#)))
- (if (macro? #{val 964}#)
- (if (macro-type #{val 964}#)
- (cons (macro-type #{val 964}#)
- (macro-binding #{val 964}#))
- #f)
- #f)))
- #f)
- #f))))))
- (#{decorate-source 296}#
- (lambda (#{e 968}# #{s 969}#)
- (begin
- (if (if (pair? #{e 968}#) #{s 969}# #f)
- (set-source-properties! #{e 968}# #{s 969}#))
- #{e 968}#)))
- (#{maybe-name-value! 298}#
- (lambda (#{name 974}# #{val 975}#)
- (if (#{lambda? 277}# #{val 975}#)
- (begin
- (let ((#{meta 979}# (#{lambda-meta 279}# #{val 975}#)))
- (if (not (assq 'name #{meta 979}#))
- (#{set-lambda-meta! 281}#
- #{val 975}#
- (cons (cons 'name #{name 974}#) #{meta 979}#))))))))
- (#{build-void 300}#
- (lambda (#{source 980}#)
- (#{make-void 240}# #{source 980}#)))
- (#{build-application 302}#
- (lambda (#{source 982}# #{fun-exp 983}# #{arg-exps 984}#)
- (#{make-application 262}#
- #{source 982}#
- #{fun-exp 983}#
- #{arg-exps 984}#)))
- (#{build-conditional 304}#
- (lambda (#{source 988}#
- #{test-exp 989}#
- #{then-exp 990}#
- #{else-exp 991}#)
- (#{make-conditional 260}#
- #{source 988}#
- #{test-exp 989}#
- #{then-exp 990}#
- #{else-exp 991}#)))
- (#{build-dynlet 306}#
- (lambda (#{source 996}#
- #{fluids 997}#
- #{vals 998}#
- #{body 999}#)
- (#{make-dynlet 274}#
- #{source 996}#
- #{fluids 997}#
- #{vals 998}#
- #{body 999}#)))
- (#{build-lexical-reference 308}#
- (lambda (#{type 1004}#
- #{source 1005}#
- #{name 1006}#
- #{var 1007}#)
- (#{make-lexical-ref 246}#
- #{source 1005}#
- #{name 1006}#
- #{var 1007}#)))
- (#{build-lexical-assignment 310}#
- (lambda (#{source 1012}#
- #{name 1013}#
- #{var 1014}#
- #{exp 1015}#)
- (begin
- (#{maybe-name-value! 298}#
- #{name 1013}#
- #{exp 1015}#)
- (#{make-lexical-set 248}#
- #{source 1012}#
- #{name 1013}#
- #{var 1014}#
- #{exp 1015}#))))
- (#{analyze-variable 312}#
- (lambda (#{mod 1020}#
- #{var 1021}#
- #{modref-cont 1022}#
- #{bare-cont 1023}#)
- (if (not #{mod 1020}#)
- (#{bare-cont 1023}# #{var 1021}#)
- (begin
- (let ((#{kind 1030}# (car #{mod 1020}#))
- (#{mod 1031}# (cdr #{mod 1020}#)))
- (if (eqv? #{kind 1030}# 'public)
- (#{modref-cont 1022}#
- #{mod 1031}#
- #{var 1021}#
- #t)
- (if (eqv? #{kind 1030}# 'private)
- (if (not (equal?
- #{mod 1031}#
- (module-name (current-module))))
- (#{modref-cont 1022}#
- #{mod 1031}#
- #{var 1021}#
+ (let ((#{val 927}# (variable-ref #{v 922}#)))
+ (if (macro? #{val 927}#)
+ (if (macro-type #{val 927}#)
+ (cons (macro-type #{val 927}#)
+ (macro-binding #{val 927}#))
#f)
- (#{bare-cont 1023}# #{var 1021}#))
- (if (eqv? #{kind 1030}# 'bare)
- (#{bare-cont 1023}# #{var 1021}#)
- (if (eqv? #{kind 1030}# 'hygiene)
- (if (if (not (equal?
- #{mod 1031}#
- (module-name (current-module))))
- (module-variable
- (resolve-module #{mod 1031}#)
- #{var 1021}#)
- #f)
- (#{modref-cont 1022}#
- #{mod 1031}#
- #{var 1021}#
- #f)
- (#{bare-cont 1023}# #{var 1021}#))
- (syntax-violation
- #f
- "bad module kind"
- #{var 1021}#
- #{mod 1031}#))))))))))
- (#{build-global-reference 314}#
- (lambda (#{source 1039}# #{var 1040}# #{mod 1041}#)
- (#{analyze-variable 312}#
- #{mod 1041}#
- #{var 1040}#
- (lambda (#{mod 1045}# #{var 1046}# #{public? 1047}#)
- (#{make-module-ref 250}#
- #{source 1039}#
- #{mod 1045}#
- #{var 1046}#
- #{public? 1047}#))
- (lambda (#{var 1051}#)
- (#{make-toplevel-ref 254}#
- #{source 1039}#
- #{var 1051}#)))))
- (#{build-global-assignment 316}#
- (lambda (#{source 1053}#
- #{var 1054}#
- #{exp 1055}#
- #{mod 1056}#)
- (begin
- (#{maybe-name-value! 298}#
- #{var 1054}#
- #{exp 1055}#)
- (#{analyze-variable 312}#
- #{mod 1056}#
- #{var 1054}#
- (lambda (#{mod 1061}# #{var 1062}# #{public? 1063}#)
- (#{make-module-set 252}#
- #{source 1053}#
- #{mod 1061}#
- #{var 1062}#
- #{public? 1063}#
- #{exp 1055}#))
- (lambda (#{var 1067}#)
- (#{make-toplevel-set 256}#
- #{source 1053}#
- #{var 1067}#
- #{exp 1055}#))))))
- (#{build-global-definition 318}#
- (lambda (#{source 1069}# #{var 1070}# #{exp 1071}#)
- (begin
- (#{maybe-name-value! 298}#
- #{var 1070}#
- #{exp 1071}#)
- (#{make-toplevel-define 258}#
- #{source 1069}#
- #{var 1070}#
- #{exp 1071}#))))
- (#{build-simple-lambda 320}#
- (lambda (#{src 1075}#
- #{req 1076}#
- #{rest 1077}#
- #{vars 1078}#
- #{meta 1079}#
- #{exp 1080}#)
- (#{make-lambda 266}#
- #{src 1075}#
- #{meta 1079}#
- (#{make-lambda-case 268}#
- #{src 1075}#
- #{req 1076}#
- #f
- #{rest 1077}#
- #f
- '()
- #{vars 1078}#
- #{exp 1080}#
- #f))))
- (#{build-case-lambda 322}#
- (lambda (#{src 1087}# #{meta 1088}# #{body 1089}#)
- (#{make-lambda 266}#
- #{src 1087}#
- #{meta 1088}#
- #{body 1089}#)))
- (#{build-lambda-case 324}#
- (lambda (#{src 1093}#
- #{req 1094}#
- #{opt 1095}#
- #{rest 1096}#
- #{kw 1097}#
- #{inits 1098}#
- #{vars 1099}#
- #{body 1100}#
- #{else-case 1101}#)
- (#{make-lambda-case 268}#
- #{src 1093}#
- #{req 1094}#
- #{opt 1095}#
- #{rest 1096}#
- #{kw 1097}#
- #{inits 1098}#
- #{vars 1099}#
- #{body 1100}#
- #{else-case 1101}#)))
- (#{build-primref 326}#
- (lambda (#{src 1111}# #{name 1112}#)
- (if (equal? (module-name (current-module)) '(guile))
- (#{make-toplevel-ref 254}#
- #{src 1111}#
- #{name 1112}#)
- (#{make-module-ref 250}#
- #{src 1111}#
- '(guile)
- #{name 1112}#
- #f))))
- (#{build-data 328}#
- (lambda (#{src 1115}# #{exp 1116}#)
- (#{make-const 242}# #{src 1115}# #{exp 1116}#)))
- (#{build-sequence 330}#
- (lambda (#{src 1119}# #{exps 1120}#)
- (if (null? (cdr #{exps 1120}#))
- (car #{exps 1120}#)
- (#{make-sequence 264}#
- #{src 1119}#
- #{exps 1120}#))))
- (#{build-let 332}#
- (lambda (#{src 1123}#
- #{ids 1124}#
- #{vars 1125}#
- #{val-exps 1126}#
- #{body-exp 1127}#)
- (begin
- (for-each
- #{maybe-name-value! 298}#
- #{ids 1124}#
- #{val-exps 1126}#)
- (if (null? #{vars 1125}#)
- #{body-exp 1127}#
- (#{make-let 270}#
- #{src 1123}#
- #{ids 1124}#
- #{vars 1125}#
- #{val-exps 1126}#
- #{body-exp 1127}#)))))
- (#{build-named-let 334}#
- (lambda (#{src 1133}#
- #{ids 1134}#
- #{vars 1135}#
- #{val-exps 1136}#
- #{body-exp 1137}#)
+ #f)))
+ #f)
+ #f))))))
+ (#{decorate-source 259}#
+ (lambda (#{e 931}# #{s 932}#)
+ (begin
+ (if (if (pair? #{e 931}#) #{s 932}# #f)
+ (set-source-properties! #{e 931}# #{s 932}#))
+ #{e 931}#)))
+ (#{maybe-name-value! 261}#
+ (lambda (#{name 937}# #{val 938}#)
+ (if (#{lambda? 240}# #{val 938}#)
+ (begin
+ (let ((#{meta 942}# (#{lambda-meta 242}# #{val 938}#)))
+ (if (not (assq 'name #{meta 942}#))
+ (#{set-lambda-meta! 244}#
+ #{val 938}#
+ (cons (cons 'name #{name 937}#) #{meta 942}#))))))))
+ (#{build-void 263}#
+ (lambda (#{source 943}#)
+ (#{make-void 203}# #{source 943}#)))
+ (#{build-application 265}#
+ (lambda (#{source 945}# #{fun-exp 946}# #{arg-exps 947}#)
+ (#{make-application 225}#
+ #{source 945}#
+ #{fun-exp 946}#
+ #{arg-exps 947}#)))
+ (#{build-conditional 267}#
+ (lambda (#{source 951}#
+ #{test-exp 952}#
+ #{then-exp 953}#
+ #{else-exp 954}#)
+ (#{make-conditional 223}#
+ #{source 951}#
+ #{test-exp 952}#
+ #{then-exp 953}#
+ #{else-exp 954}#)))
+ (#{build-dynlet 269}#
+ (lambda (#{source 959}#
+ #{fluids 960}#
+ #{vals 961}#
+ #{body 962}#)
+ (#{make-dynlet 237}#
+ #{source 959}#
+ #{fluids 960}#
+ #{vals 961}#
+ #{body 962}#)))
+ (#{build-lexical-reference 271}#
+ (lambda (#{type 967}#
+ #{source 968}#
+ #{name 969}#
+ #{var 970}#)
+ (#{make-lexical-ref 209}#
+ #{source 968}#
+ #{name 969}#
+ #{var 970}#)))
+ (#{build-lexical-assignment 273}#
+ (lambda (#{source 975}#
+ #{name 976}#
+ #{var 977}#
+ #{exp 978}#)
+ (begin
+ (#{maybe-name-value! 261}#
+ #{name 976}#
+ #{exp 978}#)
+ (#{make-lexical-set 211}#
+ #{source 975}#
+ #{name 976}#
+ #{var 977}#
+ #{exp 978}#))))
+ (#{analyze-variable 275}#
+ (lambda (#{mod 983}#
+ #{var 984}#
+ #{modref-cont 985}#
+ #{bare-cont 986}#)
+ (if (not #{mod 983}#)
+ (#{bare-cont 986}# #{var 984}#)
+ (begin
+ (let ((#{kind 993}# (car #{mod 983}#))
+ (#{mod 994}# (cdr #{mod 983}#)))
+ (if (eqv? #{kind 993}# 'public)
+ (#{modref-cont 985}# #{mod 994}# #{var 984}# #t)
+ (if (eqv? #{kind 993}# 'private)
+ (if (not (equal?
+ #{mod 994}#
+ (module-name (current-module))))
+ (#{modref-cont 985}# #{mod 994}# #{var 984}# #f)
+ (#{bare-cont 986}# #{var 984}#))
+ (if (eqv? #{kind 993}# 'bare)
+ (#{bare-cont 986}# #{var 984}#)
+ (if (eqv? #{kind 993}# 'hygiene)
+ (if (if (not (equal?
+ #{mod 994}#
+ (module-name (current-module))))
+ (module-variable
+ (resolve-module #{mod 994}#)
+ #{var 984}#)
+ #f)
+ (#{modref-cont 985}# #{mod 994}# #{var 984}# #f)
+ (#{bare-cont 986}# #{var 984}#))
+ (syntax-violation
+ #f
+ "bad module kind"
+ #{var 984}#
+ #{mod 994}#))))))))))
+ (#{build-global-reference 277}#
+ (lambda (#{source 1002}# #{var 1003}# #{mod 1004}#)
+ (#{analyze-variable 275}#
+ #{mod 1004}#
+ #{var 1003}#
+ (lambda (#{mod 1008}# #{var 1009}# #{public? 1010}#)
+ (#{make-module-ref 213}#
+ #{source 1002}#
+ #{mod 1008}#
+ #{var 1009}#
+ #{public? 1010}#))
+ (lambda (#{var 1014}#)
+ (#{make-toplevel-ref 217}#
+ #{source 1002}#
+ #{var 1014}#)))))
+ (#{build-global-assignment 279}#
+ (lambda (#{source 1016}#
+ #{var 1017}#
+ #{exp 1018}#
+ #{mod 1019}#)
+ (begin
+ (#{maybe-name-value! 261}#
+ #{var 1017}#
+ #{exp 1018}#)
+ (#{analyze-variable 275}#
+ #{mod 1019}#
+ #{var 1017}#
+ (lambda (#{mod 1024}# #{var 1025}# #{public? 1026}#)
+ (#{make-module-set 215}#
+ #{source 1016}#
+ #{mod 1024}#
+ #{var 1025}#
+ #{public? 1026}#
+ #{exp 1018}#))
+ (lambda (#{var 1030}#)
+ (#{make-toplevel-set 219}#
+ #{source 1016}#
+ #{var 1030}#
+ #{exp 1018}#))))))
+ (#{build-global-definition 281}#
+ (lambda (#{source 1032}# #{var 1033}# #{exp 1034}#)
+ (begin
+ (#{maybe-name-value! 261}#
+ #{var 1033}#
+ #{exp 1034}#)
+ (#{make-toplevel-define 221}#
+ #{source 1032}#
+ #{var 1033}#
+ #{exp 1034}#))))
+ (#{build-simple-lambda 283}#
+ (lambda (#{src 1038}#
+ #{req 1039}#
+ #{rest 1040}#
+ #{vars 1041}#
+ #{meta 1042}#
+ #{exp 1043}#)
+ (#{make-lambda 229}#
+ #{src 1038}#
+ #{meta 1042}#
+ (#{make-lambda-case 231}#
+ #{src 1038}#
+ #{req 1039}#
+ #f
+ #{rest 1040}#
+ #f
+ '()
+ #{vars 1041}#
+ #{exp 1043}#
+ #f))))
+ (#{build-case-lambda 285}#
+ (lambda (#{src 1050}# #{meta 1051}# #{body 1052}#)
+ (#{make-lambda 229}#
+ #{src 1050}#
+ #{meta 1051}#
+ #{body 1052}#)))
+ (#{build-lambda-case 287}#
+ (lambda (#{src 1056}#
+ #{req 1057}#
+ #{opt 1058}#
+ #{rest 1059}#
+ #{kw 1060}#
+ #{inits 1061}#
+ #{vars 1062}#
+ #{body 1063}#
+ #{else-case 1064}#)
+ (#{make-lambda-case 231}#
+ #{src 1056}#
+ #{req 1057}#
+ #{opt 1058}#
+ #{rest 1059}#
+ #{kw 1060}#
+ #{inits 1061}#
+ #{vars 1062}#
+ #{body 1063}#
+ #{else-case 1064}#)))
+ (#{build-primref 289}#
+ (lambda (#{src 1074}# #{name 1075}#)
+ (if (equal? (module-name (current-module)) '(guile))
+ (#{make-toplevel-ref 217}#
+ #{src 1074}#
+ #{name 1075}#)
+ (#{make-module-ref 213}#
+ #{src 1074}#
+ '(guile)
+ #{name 1075}#
+ #f))))
+ (#{build-data 291}#
+ (lambda (#{src 1078}# #{exp 1079}#)
+ (#{make-const 205}# #{src 1078}# #{exp 1079}#)))
+ (#{build-sequence 293}#
+ (lambda (#{src 1082}# #{exps 1083}#)
+ (if (null? (cdr #{exps 1083}#))
+ (car #{exps 1083}#)
+ (#{make-sequence 227}#
+ #{src 1082}#
+ #{exps 1083}#))))
+ (#{build-let 295}#
+ (lambda (#{src 1086}#
+ #{ids 1087}#
+ #{vars 1088}#
+ #{val-exps 1089}#
+ #{body-exp 1090}#)
+ (begin
+ (for-each
+ #{maybe-name-value! 261}#
+ #{ids 1087}#
+ #{val-exps 1089}#)
+ (if (null? #{vars 1088}#)
+ #{body-exp 1090}#
+ (#{make-let 233}#
+ #{src 1086}#
+ #{ids 1087}#
+ #{vars 1088}#
+ #{val-exps 1089}#
+ #{body-exp 1090}#)))))
+ (#{build-named-let 297}#
+ (lambda (#{src 1096}#
+ #{ids 1097}#
+ #{vars 1098}#
+ #{val-exps 1099}#
+ #{body-exp 1100}#)
+ (begin
+ (let ((#{f 1110}# (car #{vars 1098}#))
+ (#{f-name 1111}# (car #{ids 1097}#))
+ (#{vars 1112}# (cdr #{vars 1098}#))
+ (#{ids 1113}# (cdr #{ids 1097}#)))
(begin
- (let ((#{f 1147}# (car #{vars 1135}#))
- (#{f-name 1148}# (car #{ids 1134}#))
- (#{vars 1149}# (cdr #{vars 1135}#))
- (#{ids 1150}# (cdr #{ids 1134}#)))
- (begin
- (let ((#{proc 1152}#
- (#{build-simple-lambda 320}#
- #{src 1133}#
- #{ids 1150}#
- #f
- #{vars 1149}#
- '()
- #{body-exp 1137}#)))
- (begin
- (#{maybe-name-value! 298}#
- #{f-name 1148}#
- #{proc 1152}#)
- (for-each
- #{maybe-name-value! 298}#
- #{ids 1150}#
- #{val-exps 1136}#)
- (#{make-letrec 272}#
- #{src 1133}#
+ (let ((#{proc 1115}#
+ (#{build-simple-lambda 283}#
+ #{src 1096}#
+ #{ids 1113}#
#f
- (list #{f-name 1148}#)
- (list #{f 1147}#)
- (list #{proc 1152}#)
- (#{build-application 302}#
- #{src 1133}#
- (#{build-lexical-reference 308}#
- 'fun
- #{src 1133}#
- #{f-name 1148}#
- #{f 1147}#)
- #{val-exps 1136}#)))))))))
- (#{build-letrec 336}#
- (lambda (#{src 1153}#
- #{in-order? 1154}#
- #{ids 1155}#
- #{vars 1156}#
- #{val-exps 1157}#
- #{body-exp 1158}#)
- (if (null? #{vars 1156}#)
- #{body-exp 1158}#
- (begin
- (for-each
- #{maybe-name-value! 298}#
- #{ids 1155}#
- #{val-exps 1157}#)
- (#{make-letrec 272}#
- #{src 1153}#
- #{in-order? 1154}#
- #{ids 1155}#
- #{vars 1156}#
- #{val-exps 1157}#
- #{body-exp 1158}#)))))
- (#{make-syntax-object 340}#
- (lambda (#{expression 1165}#
- #{wrap 1166}#
- #{module 1167}#)
- (vector
- 'syntax-object
- #{expression 1165}#
- #{wrap 1166}#
- #{module 1167}#)))
- (#{syntax-object? 342}#
- (lambda (#{x 1171}#)
- (if (vector? #{x 1171}#)
- (if (= (vector-length #{x 1171}#) 4)
- (eq? (vector-ref #{x 1171}# 0) 'syntax-object)
- #f)
- #f)))
- (#{syntax-object-expression 344}#
- (lambda (#{x 1176}#) (vector-ref #{x 1176}# 1)))
- (#{syntax-object-wrap 346}#
- (lambda (#{x 1178}#) (vector-ref #{x 1178}# 2)))
- (#{syntax-object-module 348}#
- (lambda (#{x 1180}#) (vector-ref #{x 1180}# 3)))
- (#{source-annotation 357}#
- (lambda (#{x 1194}#)
- (if (#{syntax-object? 342}# #{x 1194}#)
- (#{source-annotation 357}#
- (#{syntax-object-expression 344}# #{x 1194}#))
- (if (pair? #{x 1194}#)
+ #{vars 1112}#
+ '()
+ #{body-exp 1100}#)))
(begin
- (let ((#{props 1201}# (source-properties #{x 1194}#)))
- (if (pair? #{props 1201}#) #{props 1201}# #f)))
- #f))))
- (#{extend-env 364}#
- (lambda (#{labels 1203}# #{bindings 1204}# #{r 1205}#)
- (if (null? #{labels 1203}#)
- #{r 1205}#
- (#{extend-env 364}#
- (cdr #{labels 1203}#)
- (cdr #{bindings 1204}#)
- (cons (cons (car #{labels 1203}#)
- (car #{bindings 1204}#))
- #{r 1205}#)))))
- (#{extend-var-env 366}#
- (lambda (#{labels 1209}# #{vars 1210}# #{r 1211}#)
- (if (null? #{labels 1209}#)
- #{r 1211}#
- (#{extend-var-env 366}#
- (cdr #{labels 1209}#)
- (cdr #{vars 1210}#)
- (cons (cons (car #{labels 1209}#)
- (cons 'lexical (car #{vars 1210}#)))
- #{r 1211}#)))))
- (#{macros-only-env 368}#
- (lambda (#{r 1216}#)
- (if (null? #{r 1216}#)
- '()
- (begin
- (let ((#{a 1219}# (car #{r 1216}#)))
- (if (eq? (car (cdr #{a 1219}#)) 'macro)
- (cons #{a 1219}#
- (#{macros-only-env 368}# (cdr #{r 1216}#)))
- (#{macros-only-env 368}# (cdr #{r 1216}#))))))))
- (#{lookup 370}#
- (lambda (#{x 1220}# #{r 1221}# #{mod 1222}#)
- (begin
- (let ((#{t 1228}# (assq #{x 1220}# #{r 1221}#)))
- (if #{t 1228}#
- (cdr #{t 1228}#)
- (if (symbol? #{x 1220}#)
- (begin
- (let ((#{t 1234}#
- (#{get-global-definition-hook 294}#
- #{x 1220}#
- #{mod 1222}#)))
- (if #{t 1234}# #{t 1234}# '(global))))
- '(displaced-lexical)))))))
- (#{global-extend 372}#
- (lambda (#{type 1239}# #{sym 1240}# #{val 1241}#)
- (#{put-global-definition-hook 292}#
- #{sym 1240}#
- #{type 1239}#
- #{val 1241}#)))
- (#{nonsymbol-id? 374}#
- (lambda (#{x 1245}#)
- (if (#{syntax-object? 342}# #{x 1245}#)
- (symbol?
- (#{syntax-object-expression 344}# #{x 1245}#))
- #f)))
- (#{id? 376}#
- (lambda (#{x 1249}#)
- (if (symbol? #{x 1249}#)
- #t
- (if (#{syntax-object? 342}# #{x 1249}#)
- (symbol?
- (#{syntax-object-expression 344}# #{x 1249}#))
- #f))))
- (#{id-sym-name&marks 379}#
- (lambda (#{x 1256}# #{w 1257}#)
- (if (#{syntax-object? 342}# #{x 1256}#)
- (values
- (#{syntax-object-expression 344}# #{x 1256}#)
- (#{join-marks 426}#
- (car #{w 1257}#)
- (car (#{syntax-object-wrap 346}# #{x 1256}#))))
- (values #{x 1256}# (car #{w 1257}#)))))
- (#{gen-label 389}#
- (lambda () (symbol->string (gensym "i"))))
- (#{gen-labels 391}#
- (lambda (#{ls 1263}#)
- (if (null? #{ls 1263}#)
- '()
- (cons (#{gen-label 389}#)
- (#{gen-labels 391}# (cdr #{ls 1263}#))))))
- (#{make-ribcage 394}#
- (lambda (#{symnames 1265}#
- #{marks 1266}#
- #{labels 1267}#)
- (vector
- 'ribcage
- #{symnames 1265}#
- #{marks 1266}#
- #{labels 1267}#)))
- (#{ribcage-symnames 398}#
- (lambda (#{x 1276}#) (vector-ref #{x 1276}# 1)))
- (#{ribcage-marks 400}#
- (lambda (#{x 1278}#) (vector-ref #{x 1278}# 2)))
- (#{ribcage-labels 402}#
- (lambda (#{x 1280}#) (vector-ref #{x 1280}# 3)))
- (#{set-ribcage-symnames! 404}#
- (lambda (#{x 1282}# #{update 1283}#)
- (vector-set! #{x 1282}# 1 #{update 1283}#)))
- (#{set-ribcage-marks! 406}#
- (lambda (#{x 1286}# #{update 1287}#)
- (vector-set! #{x 1286}# 2 #{update 1287}#)))
- (#{set-ribcage-labels! 408}#
- (lambda (#{x 1290}# #{update 1291}#)
- (vector-set! #{x 1290}# 3 #{update 1291}#)))
- (#{anti-mark 414}#
- (lambda (#{w 1294}#)
- (cons (cons #f (car #{w 1294}#))
- (cons 'shift (cdr #{w 1294}#)))))
- (#{extend-ribcage! 418}#
- (lambda (#{ribcage 1300}# #{id 1301}# #{label 1302}#)
+ (#{maybe-name-value! 261}#
+ #{f-name 1111}#
+ #{proc 1115}#)
+ (for-each
+ #{maybe-name-value! 261}#
+ #{ids 1113}#
+ #{val-exps 1099}#)
+ (#{make-letrec 235}#
+ #{src 1096}#
+ #f
+ (list #{f-name 1111}#)
+ (list #{f 1110}#)
+ (list #{proc 1115}#)
+ (#{build-application 265}#
+ #{src 1096}#
+ (#{build-lexical-reference 271}#
+ 'fun
+ #{src 1096}#
+ #{f-name 1111}#
+ #{f 1110}#)
+ #{val-exps 1099}#)))))))))
+ (#{build-letrec 299}#
+ (lambda (#{src 1116}#
+ #{in-order? 1117}#
+ #{ids 1118}#
+ #{vars 1119}#
+ #{val-exps 1120}#
+ #{body-exp 1121}#)
+ (if (null? #{vars 1119}#)
+ #{body-exp 1121}#
+ (begin
+ (for-each
+ #{maybe-name-value! 261}#
+ #{ids 1118}#
+ #{val-exps 1120}#)
+ (#{make-letrec 235}#
+ #{src 1116}#
+ #{in-order? 1117}#
+ #{ids 1118}#
+ #{vars 1119}#
+ #{val-exps 1120}#
+ #{body-exp 1121}#)))))
+ (#{make-syntax-object 303}#
+ (lambda (#{expression 1128}#
+ #{wrap 1129}#
+ #{module 1130}#)
+ (vector
+ 'syntax-object
+ #{expression 1128}#
+ #{wrap 1129}#
+ #{module 1130}#)))
+ (#{syntax-object? 305}#
+ (lambda (#{x 1134}#)
+ (if (vector? #{x 1134}#)
+ (if (= (vector-length #{x 1134}#) 4)
+ (eq? (vector-ref #{x 1134}# 0) 'syntax-object)
+ #f)
+ #f)))
+ (#{syntax-object-expression 307}#
+ (lambda (#{x 1139}#) (vector-ref #{x 1139}# 1)))
+ (#{syntax-object-wrap 309}#
+ (lambda (#{x 1141}#) (vector-ref #{x 1141}# 2)))
+ (#{syntax-object-module 311}#
+ (lambda (#{x 1143}#) (vector-ref #{x 1143}# 3)))
+ (#{source-annotation 320}#
+ (lambda (#{x 1157}#)
+ (if (#{syntax-object? 305}# #{x 1157}#)
+ (#{source-annotation 320}#
+ (#{syntax-object-expression 307}# #{x 1157}#))
+ (if (pair? #{x 1157}#)
(begin
- (#{set-ribcage-symnames! 404}#
- #{ribcage 1300}#
- (cons (#{syntax-object-expression 344}# #{id 1301}#)
- (#{ribcage-symnames 398}# #{ribcage 1300}#)))
- (#{set-ribcage-marks! 406}#
- #{ribcage 1300}#
- (cons (car (#{syntax-object-wrap 346}# #{id 1301}#))
- (#{ribcage-marks 400}# #{ribcage 1300}#)))
- (#{set-ribcage-labels! 408}#
- #{ribcage 1300}#
- (cons #{label 1302}#
- (#{ribcage-labels 402}# #{ribcage 1300}#))))))
- (#{make-binding-wrap 420}#
- (lambda (#{ids 1307}# #{labels 1308}# #{w 1309}#)
- (if (null? #{ids 1307}#)
- #{w 1309}#
- (cons (car #{w 1309}#)
- (cons (begin
- (let ((#{labelvec 1316}#
- (list->vector #{labels 1308}#)))
+ (let ((#{props 1164}# (source-properties #{x 1157}#)))
+ (if (pair? #{props 1164}#) #{props 1164}# #f)))
+ #f))))
+ (#{extend-env 327}#
+ (lambda (#{labels 1166}# #{bindings 1167}# #{r 1168}#)
+ (if (null? #{labels 1166}#)
+ #{r 1168}#
+ (#{extend-env 327}#
+ (cdr #{labels 1166}#)
+ (cdr #{bindings 1167}#)
+ (cons (cons (car #{labels 1166}#)
+ (car #{bindings 1167}#))
+ #{r 1168}#)))))
+ (#{extend-var-env 329}#
+ (lambda (#{labels 1172}# #{vars 1173}# #{r 1174}#)
+ (if (null? #{labels 1172}#)
+ #{r 1174}#
+ (#{extend-var-env 329}#
+ (cdr #{labels 1172}#)
+ (cdr #{vars 1173}#)
+ (cons (cons (car #{labels 1172}#)
+ (cons 'lexical (car #{vars 1173}#)))
+ #{r 1174}#)))))
+ (#{macros-only-env 331}#
+ (lambda (#{r 1179}#)
+ (if (null? #{r 1179}#)
+ '()
+ (begin
+ (let ((#{a 1182}# (car #{r 1179}#)))
+ (if (eq? (car (cdr #{a 1182}#)) 'macro)
+ (cons #{a 1182}#
+ (#{macros-only-env 331}# (cdr #{r 1179}#)))
+ (#{macros-only-env 331}# (cdr #{r 1179}#))))))))
+ (#{lookup 333}#
+ (lambda (#{x 1183}# #{r 1184}# #{mod 1185}#)
+ (begin
+ (let ((#{t 1191}# (assq #{x 1183}# #{r 1184}#)))
+ (if #{t 1191}#
+ (cdr #{t 1191}#)
+ (if (symbol? #{x 1183}#)
+ (begin
+ (let ((#{t 1197}#
+ (#{get-global-definition-hook 257}#
+ #{x 1183}#
+ #{mod 1185}#)))
+ (if #{t 1197}# #{t 1197}# '(global))))
+ '(displaced-lexical)))))))
+ (#{global-extend 335}#
+ (lambda (#{type 1202}# #{sym 1203}# #{val 1204}#)
+ (#{put-global-definition-hook 255}#
+ #{sym 1203}#
+ #{type 1202}#
+ #{val 1204}#)))
+ (#{nonsymbol-id? 337}#
+ (lambda (#{x 1208}#)
+ (if (#{syntax-object? 305}# #{x 1208}#)
+ (symbol?
+ (#{syntax-object-expression 307}# #{x 1208}#))
+ #f)))
+ (#{id? 339}#
+ (lambda (#{x 1212}#)
+ (if (symbol? #{x 1212}#)
+ #t
+ (if (#{syntax-object? 305}# #{x 1212}#)
+ (symbol?
+ (#{syntax-object-expression 307}# #{x 1212}#))
+ #f))))
+ (#{id-sym-name&marks 342}#
+ (lambda (#{x 1219}# #{w 1220}#)
+ (if (#{syntax-object? 305}# #{x 1219}#)
+ (values
+ (#{syntax-object-expression 307}# #{x 1219}#)
+ (#{join-marks 389}#
+ (car #{w 1220}#)
+ (car (#{syntax-object-wrap 309}# #{x 1219}#))))
+ (values #{x 1219}# (car #{w 1220}#)))))
+ (#{gen-label 352}#
+ (lambda () (symbol->string (gensym "i"))))
+ (#{gen-labels 354}#
+ (lambda (#{ls 1226}#)
+ (if (null? #{ls 1226}#)
+ '()
+ (cons (#{gen-label 352}#)
+ (#{gen-labels 354}# (cdr #{ls 1226}#))))))
+ (#{make-ribcage 357}#
+ (lambda (#{symnames 1228}#
+ #{marks 1229}#
+ #{labels 1230}#)
+ (vector
+ 'ribcage
+ #{symnames 1228}#
+ #{marks 1229}#
+ #{labels 1230}#)))
+ (#{ribcage-symnames 361}#
+ (lambda (#{x 1239}#) (vector-ref #{x 1239}# 1)))
+ (#{ribcage-marks 363}#
+ (lambda (#{x 1241}#) (vector-ref #{x 1241}# 2)))
+ (#{ribcage-labels 365}#
+ (lambda (#{x 1243}#) (vector-ref #{x 1243}# 3)))
+ (#{set-ribcage-symnames! 367}#
+ (lambda (#{x 1245}# #{update 1246}#)
+ (vector-set! #{x 1245}# 1 #{update 1246}#)))
+ (#{set-ribcage-marks! 369}#
+ (lambda (#{x 1249}# #{update 1250}#)
+ (vector-set! #{x 1249}# 2 #{update 1250}#)))
+ (#{set-ribcage-labels! 371}#
+ (lambda (#{x 1253}# #{update 1254}#)
+ (vector-set! #{x 1253}# 3 #{update 1254}#)))
+ (#{anti-mark 377}#
+ (lambda (#{w 1257}#)
+ (cons (cons #f (car #{w 1257}#))
+ (cons 'shift (cdr #{w 1257}#)))))
+ (#{extend-ribcage! 381}#
+ (lambda (#{ribcage 1263}# #{id 1264}# #{label 1265}#)
+ (begin
+ (#{set-ribcage-symnames! 367}#
+ #{ribcage 1263}#
+ (cons (#{syntax-object-expression 307}# #{id 1264}#)
+ (#{ribcage-symnames 361}# #{ribcage 1263}#)))
+ (#{set-ribcage-marks! 369}#
+ #{ribcage 1263}#
+ (cons (car (#{syntax-object-wrap 309}# #{id 1264}#))
+ (#{ribcage-marks 363}# #{ribcage 1263}#)))
+ (#{set-ribcage-labels! 371}#
+ #{ribcage 1263}#
+ (cons #{label 1265}#
+ (#{ribcage-labels 365}# #{ribcage 1263}#))))))
+ (#{make-binding-wrap 383}#
+ (lambda (#{ids 1270}# #{labels 1271}# #{w 1272}#)
+ (if (null? #{ids 1270}#)
+ #{w 1272}#
+ (cons (car #{w 1272}#)
+ (cons (begin
+ (let ((#{labelvec 1279}#
+ (list->vector #{labels 1271}#)))
+ (begin
+ (let ((#{n 1281}#
+ (vector-length #{labelvec 1279}#)))
(begin
- (let ((#{n 1318}#
- (vector-length #{labelvec 1316}#)))
+ (let ((#{symnamevec 1284}#
+ (make-vector #{n 1281}#))
+ (#{marksvec 1285}#
+ (make-vector #{n 1281}#)))
(begin
- (let ((#{symnamevec 1321}#
- (make-vector #{n 1318}#))
- (#{marksvec 1322}#
- (make-vector #{n 1318}#)))
- (begin
- (letrec*
- ((#{f 1326}#
- (lambda (#{ids 1327}# #{i 1328}#)
- (if (not (null? #{ids 1327}#))
- (call-with-values
- (lambda ()
- (#{id-sym-name&marks 379}#
- (car #{ids 1327}#)
- #{w 1309}#))
- (lambda (#{symname 1329}#
- #{marks 1330}#)
- (begin
- (vector-set!
- #{symnamevec 1321}#
- #{i 1328}#
- #{symname 1329}#)
- (vector-set!
- #{marksvec 1322}#
- #{i 1328}#
- #{marks 1330}#)
- (#{f 1326}#
- (cdr #{ids 1327}#)
- (#{1+}# #{i 1328}#)))))))))
- (begin (#{f 1326}# #{ids 1307}# 0)))
- (#{make-ribcage 394}#
- #{symnamevec 1321}#
- #{marksvec 1322}#
- #{labelvec 1316}#))))))))
- (cdr #{w 1309}#))))))
- (#{smart-append 422}#
- (lambda (#{m1 1335}# #{m2 1336}#)
- (if (null? #{m2 1336}#)
- #{m1 1335}#
- (append #{m1 1335}# #{m2 1336}#))))
- (#{join-wraps 424}#
- (lambda (#{w1 1339}# #{w2 1340}#)
- (begin
- (let ((#{m1 1345}# (car #{w1 1339}#))
- (#{s1 1346}# (cdr #{w1 1339}#)))
- (if (null? #{m1 1345}#)
- (if (null? #{s1 1346}#)
- #{w2 1340}#
- (cons (car #{w2 1340}#)
- (#{smart-append 422}#
- #{s1 1346}#
- (cdr #{w2 1340}#))))
- (cons (#{smart-append 422}#
- #{m1 1345}#
- (car #{w2 1340}#))
- (#{smart-append 422}#
- #{s1 1346}#
- (cdr #{w2 1340}#))))))))
- (#{join-marks 426}#
- (lambda (#{m1 1355}# #{m2 1356}#)
- (#{smart-append 422}# #{m1 1355}# #{m2 1356}#)))
- (#{same-marks? 428}#
- (lambda (#{x 1359}# #{y 1360}#)
- (begin
- (let ((#{t 1365}# (eq? #{x 1359}# #{y 1360}#)))
- (if #{t 1365}#
- #{t 1365}#
- (if (not (null? #{x 1359}#))
- (if (not (null? #{y 1360}#))
- (if (eq? (car #{x 1359}#) (car #{y 1360}#))
- (#{same-marks? 428}#
- (cdr #{x 1359}#)
- (cdr #{y 1360}#))
- #f)
- #f)
- #f))))))
- (#{id-var-name 430}#
- (lambda (#{id 1371}# #{w 1372}#)
- (letrec*
- ((#{search 1377}#
- (lambda (#{sym 1393}# #{subst 1394}# #{marks 1395}#)
- (if (null? #{subst 1394}#)
- (values #f #{marks 1395}#)
- (begin
- (let ((#{fst 1400}# (car #{subst 1394}#)))
- (if (eq? #{fst 1400}# 'shift)
- (#{search 1377}#
- #{sym 1393}#
- (cdr #{subst 1394}#)
- (cdr #{marks 1395}#))
- (begin
- (let ((#{symnames 1402}#
- (#{ribcage-symnames 398}# #{fst 1400}#)))
- (if (vector? #{symnames 1402}#)
- (#{search-vector-rib 1381}#
- #{sym 1393}#
- #{subst 1394}#
- #{marks 1395}#
- #{symnames 1402}#
- #{fst 1400}#)
- (#{search-list-rib 1379}#
- #{sym 1393}#
- #{subst 1394}#
- #{marks 1395}#
- #{symnames 1402}#
- #{fst 1400}#))))))))))
- (#{search-list-rib 1379}#
- (lambda (#{sym 1403}#
- #{subst 1404}#
- #{marks 1405}#
- #{symnames 1406}#
- #{ribcage 1407}#)
+ (letrec*
+ ((#{f 1289}#
+ (lambda (#{ids 1290}# #{i 1291}#)
+ (if (not (null? #{ids 1290}#))
+ (call-with-values
+ (lambda ()
+ (#{id-sym-name&marks 342}#
+ (car #{ids 1290}#)
+ #{w 1272}#))
+ (lambda (#{symname 1292}#
+ #{marks 1293}#)
+ (begin
+ (vector-set!
+ #{symnamevec 1284}#
+ #{i 1291}#
+ #{symname 1292}#)
+ (vector-set!
+ #{marksvec 1285}#
+ #{i 1291}#
+ #{marks 1293}#)
+ (#{f 1289}#
+ (cdr #{ids 1290}#)
+ (#{1+}# #{i 1291}#)))))))))
+ (begin (#{f 1289}# #{ids 1270}# 0)))
+ (#{make-ribcage 357}#
+ #{symnamevec 1284}#
+ #{marksvec 1285}#
+ #{labelvec 1279}#))))))))
+ (cdr #{w 1272}#))))))
+ (#{smart-append 385}#
+ (lambda (#{m1 1298}# #{m2 1299}#)
+ (if (null? #{m2 1299}#)
+ #{m1 1298}#
+ (append #{m1 1298}# #{m2 1299}#))))
+ (#{join-wraps 387}#
+ (lambda (#{w1 1302}# #{w2 1303}#)
+ (begin
+ (let ((#{m1 1308}# (car #{w1 1302}#))
+ (#{s1 1309}# (cdr #{w1 1302}#)))
+ (if (null? #{m1 1308}#)
+ (if (null? #{s1 1309}#)
+ #{w2 1303}#
+ (cons (car #{w2 1303}#)
+ (#{smart-append 385}#
+ #{s1 1309}#
+ (cdr #{w2 1303}#))))
+ (cons (#{smart-append 385}#
+ #{m1 1308}#
+ (car #{w2 1303}#))
+ (#{smart-append 385}#
+ #{s1 1309}#
+ (cdr #{w2 1303}#))))))))
+ (#{join-marks 389}#
+ (lambda (#{m1 1318}# #{m2 1319}#)
+ (#{smart-append 385}# #{m1 1318}# #{m2 1319}#)))
+ (#{same-marks? 391}#
+ (lambda (#{x 1322}# #{y 1323}#)
+ (begin
+ (let ((#{t 1328}# (eq? #{x 1322}# #{y 1323}#)))
+ (if #{t 1328}#
+ #{t 1328}#
+ (if (not (null? #{x 1322}#))
+ (if (not (null? #{y 1323}#))
+ (if (eq? (car #{x 1322}#) (car #{y 1323}#))
+ (#{same-marks? 391}#
+ (cdr #{x 1322}#)
+ (cdr #{y 1323}#))
+ #f)
+ #f)
+ #f))))))
+ (#{id-var-name 393}#
+ (lambda (#{id 1334}# #{w 1335}#)
+ (letrec*
+ ((#{search 1340}#
+ (lambda (#{sym 1356}# #{subst 1357}# #{marks 1358}#)
+ (if (null? #{subst 1357}#)
+ (values #f #{marks 1358}#)
+ (begin
+ (let ((#{fst 1363}# (car #{subst 1357}#)))
+ (if (eq? #{fst 1363}# 'shift)
+ (#{search 1340}#
+ #{sym 1356}#
+ (cdr #{subst 1357}#)
+ (cdr #{marks 1358}#))
+ (begin
+ (let ((#{symnames 1365}#
+ (#{ribcage-symnames 361}# #{fst 1363}#)))
+ (if (vector? #{symnames 1365}#)
+ (#{search-vector-rib 1344}#
+ #{sym 1356}#
+ #{subst 1357}#
+ #{marks 1358}#
+ #{symnames 1365}#
+ #{fst 1363}#)
+ (#{search-list-rib 1342}#
+ #{sym 1356}#
+ #{subst 1357}#
+ #{marks 1358}#
+ #{symnames 1365}#
+ #{fst 1363}#))))))))))
+ (#{search-list-rib 1342}#
+ (lambda (#{sym 1366}#
+ #{subst 1367}#
+ #{marks 1368}#
+ #{symnames 1369}#
+ #{ribcage 1370}#)
+ (letrec*
+ ((#{f 1379}#
+ (lambda (#{symnames 1380}# #{i 1381}#)
+ (if (null? #{symnames 1380}#)
+ (#{search 1340}#
+ #{sym 1366}#
+ (cdr #{subst 1367}#)
+ #{marks 1368}#)
+ (if (if (eq? (car #{symnames 1380}#) #{sym 1366}#)
+ (#{same-marks? 391}#
+ #{marks 1368}#
+ (list-ref
+ (#{ribcage-marks 363}# #{ribcage 1370}#)
+ #{i 1381}#))
+ #f)
+ (values
+ (list-ref
+ (#{ribcage-labels 365}# #{ribcage 1370}#)
+ #{i 1381}#)
+ #{marks 1368}#)
+ (#{f 1379}#
+ (cdr #{symnames 1380}#)
+ (#{1+}# #{i 1381}#)))))))
+ (begin (#{f 1379}# #{symnames 1369}# 0)))))
+ (#{search-vector-rib 1344}#
+ (lambda (#{sym 1390}#
+ #{subst 1391}#
+ #{marks 1392}#
+ #{symnames 1393}#
+ #{ribcage 1394}#)
+ (begin
+ (let ((#{n 1401}# (vector-length #{symnames 1393}#)))
(letrec*
- ((#{f 1416}#
- (lambda (#{symnames 1417}# #{i 1418}#)
- (if (null? #{symnames 1417}#)
- (#{search 1377}#
- #{sym 1403}#
- (cdr #{subst 1404}#)
- #{marks 1405}#)
- (if (if (eq? (car #{symnames 1417}#) #{sym 1403}#)
- (#{same-marks? 428}#
- #{marks 1405}#
- (list-ref
- (#{ribcage-marks 400}# #{ribcage 1407}#)
- #{i 1418}#))
+ ((#{f 1404}#
+ (lambda (#{i 1405}#)
+ (if (= #{i 1405}# #{n 1401}#)
+ (#{search 1340}#
+ #{sym 1390}#
+ (cdr #{subst 1391}#)
+ #{marks 1392}#)
+ (if (if (eq? (vector-ref
+ #{symnames 1393}#
+ #{i 1405}#)
+ #{sym 1390}#)
+ (#{same-marks? 391}#
+ #{marks 1392}#
+ (vector-ref
+ (#{ribcage-marks 363}# #{ribcage 1394}#)
+ #{i 1405}#))
#f)
(values
- (list-ref
- (#{ribcage-labels 402}# #{ribcage 1407}#)
- #{i 1418}#)
- #{marks 1405}#)
- (#{f 1416}#
- (cdr #{symnames 1417}#)
- (#{1+}# #{i 1418}#)))))))
- (begin (#{f 1416}# #{symnames 1406}# 0)))))
- (#{search-vector-rib 1381}#
- (lambda (#{sym 1427}#
- #{subst 1428}#
- #{marks 1429}#
- #{symnames 1430}#
- #{ribcage 1431}#)
- (begin
- (let ((#{n 1438}# (vector-length #{symnames 1430}#)))
- (letrec*
- ((#{f 1441}#
- (lambda (#{i 1442}#)
- (if (= #{i 1442}# #{n 1438}#)
- (#{search 1377}#
- #{sym 1427}#
- (cdr #{subst 1428}#)
- #{marks 1429}#)
- (if (if (eq? (vector-ref
- #{symnames 1430}#
- #{i 1442}#)
- #{sym 1427}#)
- (#{same-marks? 428}#
- #{marks 1429}#
- (vector-ref
- (#{ribcage-marks 400}#
- #{ribcage 1431}#)
- #{i 1442}#))
- #f)
- (values
- (vector-ref
- (#{ribcage-labels 402}# #{ribcage 1431}#)
- #{i 1442}#)
- #{marks 1429}#)
- (#{f 1441}# (#{1+}# #{i 1442}#)))))))
- (begin (#{f 1441}# 0))))))))
+ (vector-ref
+ (#{ribcage-labels 365}# #{ribcage 1394}#)
+ #{i 1405}#)
+ #{marks 1392}#)
+ (#{f 1404}# (#{1+}# #{i 1405}#)))))))
+ (begin (#{f 1404}# 0))))))))
+ (begin
+ (if (symbol? #{id 1334}#)
(begin
- (if (symbol? #{id 1371}#)
- (begin
- (let ((#{t 1454}#
- (call-with-values
- (lambda ()
- (#{search 1377}#
- #{id 1371}#
- (cdr #{w 1372}#)
- (car #{w 1372}#)))
- (lambda (#{x 1458}# . #{ignore 1459}#)
- #{x 1458}#))))
- (if #{t 1454}# #{t 1454}# #{id 1371}#)))
- (if (#{syntax-object? 342}# #{id 1371}#)
+ (let ((#{t 1417}#
+ (#{search 1340}#
+ #{id 1334}#
+ (cdr #{w 1335}#)
+ (car #{w 1335}#))))
+ (if #{t 1417}# #{t 1417}# #{id 1334}#)))
+ (if (#{syntax-object? 305}# #{id 1334}#)
+ (begin
+ (let ((#{id 1426}#
+ (#{syntax-object-expression 307}# #{id 1334}#))
+ (#{w1 1427}#
+ (#{syntax-object-wrap 309}# #{id 1334}#)))
(begin
- (let ((#{id 1467}#
- (#{syntax-object-expression 344}# #{id 1371}#))
- (#{w1 1468}#
- (#{syntax-object-wrap 346}# #{id 1371}#)))
- (begin
- (let ((#{marks 1470}#
- (#{join-marks 426}#
- (car #{w 1372}#)
- (car #{w1 1468}#))))
- (call-with-values
- (lambda ()
- (#{search 1377}#
- #{id 1467}#
- (cdr #{w 1372}#)
- #{marks 1470}#))
- (lambda (#{new-id 1474}# #{marks 1475}#)
- (begin
- (let ((#{t 1480}# #{new-id 1474}#))
- (if #{t 1480}#
- #{t 1480}#
- (begin
- (let ((#{t 1483}#
- (call-with-values
- (lambda ()
- (#{search 1377}#
- #{id 1467}#
- (cdr #{w1 1468}#)
- #{marks 1475}#))
- (lambda (#{x 1486}#
- .
- #{ignore 1487}#)
- #{x 1486}#))))
- (if #{t 1483}#
- #{t 1483}#
- #{id 1467}#))))))))))))
- (syntax-violation
- 'id-var-name
- "invalid id"
- #{id 1371}#)))))))
- (#{free-id=? 432}#
- (lambda (#{i 1492}# #{j 1493}#)
- (if (eq? (begin
- (let ((#{x 1499}# #{i 1492}#))
- (if (#{syntax-object? 342}# #{x 1499}#)
- (#{syntax-object-expression 344}# #{x 1499}#)
- #{x 1499}#)))
- (begin
- (let ((#{x 1502}# #{j 1493}#))
- (if (#{syntax-object? 342}# #{x 1502}#)
- (#{syntax-object-expression 344}# #{x 1502}#)
- #{x 1502}#))))
- (eq? (#{id-var-name 430}# #{i 1492}# '(()))
- (#{id-var-name 430}# #{j 1493}# '(())))
- #f)))
- (#{bound-id=? 434}#
- (lambda (#{i 1506}# #{j 1507}#)
- (if (if (#{syntax-object? 342}# #{i 1506}#)
- (#{syntax-object? 342}# #{j 1507}#)
- #f)
- (if (eq? (#{syntax-object-expression 344}# #{i 1506}#)
- (#{syntax-object-expression 344}# #{j 1507}#))
- (#{same-marks? 428}#
- (car (#{syntax-object-wrap 346}# #{i 1506}#))
- (car (#{syntax-object-wrap 346}# #{j 1507}#)))
- #f)
- (eq? #{i 1506}# #{j 1507}#))))
- (#{valid-bound-ids? 436}#
- (lambda (#{ids 1516}#)
- (if (letrec*
- ((#{all-ids? 1521}#
- (lambda (#{ids 1522}#)
- (begin
- (let ((#{t 1525}# (null? #{ids 1522}#)))
- (if #{t 1525}#
- #{t 1525}#
- (if (#{id? 376}# (car #{ids 1522}#))
- (#{all-ids? 1521}# (cdr #{ids 1522}#))
- #f)))))))
- (begin (#{all-ids? 1521}# #{ids 1516}#)))
- (#{distinct-bound-ids? 438}# #{ids 1516}#)
- #f)))
- (#{distinct-bound-ids? 438}#
- (lambda (#{ids 1530}#)
- (letrec*
- ((#{distinct? 1534}#
- (lambda (#{ids 1535}#)
+ (let ((#{marks 1429}#
+ (#{join-marks 389}#
+ (car #{w 1335}#)
+ (car #{w1 1427}#))))
+ (call-with-values
+ (lambda ()
+ (#{search 1340}#
+ #{id 1426}#
+ (cdr #{w 1335}#)
+ #{marks 1429}#))
+ (lambda (#{new-id 1433}# #{marks 1434}#)
+ (begin
+ (let ((#{t 1439}# #{new-id 1433}#))
+ (if #{t 1439}#
+ #{t 1439}#
+ (begin
+ (let ((#{t 1442}#
+ (#{search 1340}#
+ #{id 1426}#
+ (cdr #{w1 1427}#)
+ #{marks 1434}#)))
+ (if #{t 1442}#
+ #{t 1442}#
+ #{id 1426}#))))))))))))
+ (syntax-violation
+ 'id-var-name
+ "invalid id"
+ #{id 1334}#)))))))
+ (#{free-id=? 395}#
+ (lambda (#{i 1447}# #{j 1448}#)
+ (if (eq? (begin
+ (let ((#{x 1454}# #{i 1447}#))
+ (if (#{syntax-object? 305}# #{x 1454}#)
+ (#{syntax-object-expression 307}# #{x 1454}#)
+ #{x 1454}#)))
+ (begin
+ (let ((#{x 1457}# #{j 1448}#))
+ (if (#{syntax-object? 305}# #{x 1457}#)
+ (#{syntax-object-expression 307}# #{x 1457}#)
+ #{x 1457}#))))
+ (eq? (#{id-var-name 393}# #{i 1447}# '(()))
+ (#{id-var-name 393}# #{j 1448}# '(())))
+ #f)))
+ (#{bound-id=? 397}#
+ (lambda (#{i 1461}# #{j 1462}#)
+ (if (if (#{syntax-object? 305}# #{i 1461}#)
+ (#{syntax-object? 305}# #{j 1462}#)
+ #f)
+ (if (eq? (#{syntax-object-expression 307}# #{i 1461}#)
+ (#{syntax-object-expression 307}# #{j 1462}#))
+ (#{same-marks? 391}#
+ (car (#{syntax-object-wrap 309}# #{i 1461}#))
+ (car (#{syntax-object-wrap 309}# #{j 1462}#)))
+ #f)
+ (eq? #{i 1461}# #{j 1462}#))))
+ (#{valid-bound-ids? 399}#
+ (lambda (#{ids 1471}#)
+ (if (letrec*
+ ((#{all-ids? 1476}#
+ (lambda (#{ids 1477}#)
(begin
- (let ((#{t 1538}# (null? #{ids 1535}#)))
- (if #{t 1538}#
- #{t 1538}#
- (if (not (#{bound-id-member? 440}#
- (car #{ids 1535}#)
- (cdr #{ids 1535}#)))
- (#{distinct? 1534}# (cdr #{ids 1535}#))
+ (let ((#{t 1480}# (null? #{ids 1477}#)))
+ (if #{t 1480}#
+ #{t 1480}#
+ (if (#{id? 339}# (car #{ids 1477}#))
+ (#{all-ids? 1476}# (cdr #{ids 1477}#))
#f)))))))
- (begin (#{distinct? 1534}# #{ids 1530}#)))))
- (#{bound-id-member? 440}#
- (lambda (#{x 1542}# #{list 1543}#)
- (if (not (null? #{list 1543}#))
- (begin
- (let ((#{t 1550}#
- (#{bound-id=? 434}#
- #{x 1542}#
- (car #{list 1543}#))))
- (if #{t 1550}#
- #{t 1550}#
- (#{bound-id-member? 440}#
- #{x 1542}#
- (cdr #{list 1543}#)))))
- #f)))
- (#{wrap 442}#
- (lambda (#{x 1552}# #{w 1553}# #{defmod 1554}#)
- (if (if (null? (car #{w 1553}#))
- (null? (cdr #{w 1553}#))
- #f)
- #{x 1552}#
- (if (#{syntax-object? 342}# #{x 1552}#)
- (#{make-syntax-object 340}#
- (#{syntax-object-expression 344}# #{x 1552}#)
- (#{join-wraps 424}#
- #{w 1553}#
- (#{syntax-object-wrap 346}# #{x 1552}#))
- (#{syntax-object-module 348}# #{x 1552}#))
- (if (null? #{x 1552}#)
- #{x 1552}#
- (#{make-syntax-object 340}#
- #{x 1552}#
- #{w 1553}#
- #{defmod 1554}#))))))
- (#{source-wrap 444}#
- (lambda (#{x 1569}#
- #{w 1570}#
- #{s 1571}#
- #{defmod 1572}#)
- (#{wrap 442}#
- (#{decorate-source 296}# #{x 1569}# #{s 1571}#)
- #{w 1570}#
- #{defmod 1572}#)))
- (#{chi-sequence 446}#
- (lambda (#{body 1577}#
- #{r 1578}#
- #{w 1579}#
- #{s 1580}#
- #{mod 1581}#)
- (#{build-sequence 330}#
- #{s 1580}#
- (letrec*
- ((#{dobody 1592}#
- (lambda (#{body 1593}#
- #{r 1594}#
- #{w 1595}#
- #{mod 1596}#)
- (if (null? #{body 1593}#)
- '()
- (begin
- (let ((#{first 1598}#
- (#{chi 456}#
- (car #{body 1593}#)
- #{r 1594}#
- #{w 1595}#
- #{mod 1596}#)))
- (cons #{first 1598}#
- (#{dobody 1592}#
- (cdr #{body 1593}#)
- #{r 1594}#
- #{w 1595}#
- #{mod 1596}#))))))))
- (begin
- (#{dobody 1592}#
- #{body 1577}#
- #{r 1578}#
- #{w 1579}#
- #{mod 1581}#))))))
- (#{chi-top-sequence 448}#
- (lambda (#{body 1599}#
- #{r 1600}#
- #{w 1601}#
- #{s 1602}#
- #{m 1603}#
- #{esew 1604}#
- #{mod 1605}#)
- (letrec*
- ((#{scan 1614}#
- (lambda (#{body 1615}#
- #{r 1616}#
- #{w 1617}#
- #{s 1618}#
- #{m 1619}#
- #{esew 1620}#
- #{mod 1621}#
- #{exps 1622}#)
- (if (null? #{body 1615}#)
- #{exps 1622}#
+ (begin (#{all-ids? 1476}# #{ids 1471}#)))
+ (#{distinct-bound-ids? 401}# #{ids 1471}#)
+ #f)))
+ (#{distinct-bound-ids? 401}#
+ (lambda (#{ids 1485}#)
+ (letrec*
+ ((#{distinct? 1489}#
+ (lambda (#{ids 1490}#)
+ (begin
+ (let ((#{t 1493}# (null? #{ids 1490}#)))
+ (if #{t 1493}#
+ #{t 1493}#
+ (if (not (#{bound-id-member? 403}#
+ (car #{ids 1490}#)
+ (cdr #{ids 1490}#)))
+ (#{distinct? 1489}# (cdr #{ids 1490}#))
+ #f)))))))
+ (begin (#{distinct? 1489}# #{ids 1485}#)))))
+ (#{bound-id-member? 403}#
+ (lambda (#{x 1497}# #{list 1498}#)
+ (if (not (null? #{list 1498}#))
+ (begin
+ (let ((#{t 1505}#
+ (#{bound-id=? 397}#
+ #{x 1497}#
+ (car #{list 1498}#))))
+ (if #{t 1505}#
+ #{t 1505}#
+ (#{bound-id-member? 403}#
+ #{x 1497}#
+ (cdr #{list 1498}#)))))
+ #f)))
+ (#{wrap 405}#
+ (lambda (#{x 1507}# #{w 1508}# #{defmod 1509}#)
+ (if (if (null? (car #{w 1508}#))
+ (null? (cdr #{w 1508}#))
+ #f)
+ #{x 1507}#
+ (if (#{syntax-object? 305}# #{x 1507}#)
+ (#{make-syntax-object 303}#
+ (#{syntax-object-expression 307}# #{x 1507}#)
+ (#{join-wraps 387}#
+ #{w 1508}#
+ (#{syntax-object-wrap 309}# #{x 1507}#))
+ (#{syntax-object-module 311}# #{x 1507}#))
+ (if (null? #{x 1507}#)
+ #{x 1507}#
+ (#{make-syntax-object 303}#
+ #{x 1507}#
+ #{w 1508}#
+ #{defmod 1509}#))))))
+ (#{source-wrap 407}#
+ (lambda (#{x 1524}#
+ #{w 1525}#
+ #{s 1526}#
+ #{defmod 1527}#)
+ (#{wrap 405}#
+ (#{decorate-source 259}# #{x 1524}# #{s 1526}#)
+ #{w 1525}#
+ #{defmod 1527}#)))
+ (#{chi-sequence 409}#
+ (lambda (#{body 1532}#
+ #{r 1533}#
+ #{w 1534}#
+ #{s 1535}#
+ #{mod 1536}#)
+ (#{build-sequence 293}#
+ #{s 1535}#
+ (letrec*
+ ((#{dobody 1547}#
+ (lambda (#{body 1548}#
+ #{r 1549}#
+ #{w 1550}#
+ #{mod 1551}#)
+ (if (null? #{body 1548}#)
+ '()
+ (begin
+ (let ((#{first 1553}#
+ (#{chi 419}#
+ (car #{body 1548}#)
+ #{r 1549}#
+ #{w 1550}#
+ #{mod 1551}#)))
+ (cons #{first 1553}#
+ (#{dobody 1547}#
+ (cdr #{body 1548}#)
+ #{r 1549}#
+ #{w 1550}#
+ #{mod 1551}#))))))))
+ (begin
+ (#{dobody 1547}#
+ #{body 1532}#
+ #{r 1533}#
+ #{w 1534}#
+ #{mod 1536}#))))))
+ (#{chi-top-sequence 411}#
+ (lambda (#{body 1554}#
+ #{r 1555}#
+ #{w 1556}#
+ #{s 1557}#
+ #{m 1558}#
+ #{esew 1559}#
+ #{mod 1560}#)
+ (letrec*
+ ((#{scan 1569}#
+ (lambda (#{body 1570}#
+ #{r 1571}#
+ #{w 1572}#
+ #{s 1573}#
+ #{m 1574}#
+ #{esew 1575}#
+ #{mod 1576}#
+ #{exps 1577}#)
+ (if (null? #{body 1570}#)
+ #{exps 1577}#
+ (call-with-values
+ (lambda ()
(call-with-values
(lambda ()
- (call-with-values
- (lambda ()
- (begin
- (let ((#{e 1635}# (car #{body 1615}#)))
- (#{syntax-type 454}#
- #{e 1635}#
- #{r 1616}#
- #{w 1617}#
- (begin
- (let ((#{t 1638}#
- (#{source-annotation 357}#
- #{e 1635}#)))
- (if #{t 1638}# #{t 1638}# #{s 1618}#)))
- #f
+ (begin
+ (let ((#{e 1590}# (car #{body 1570}#)))
+ (#{syntax-type 417}#
+ #{e 1590}#
+ #{r 1571}#
+ #{w 1572}#
+ (begin
+ (let ((#{t 1593}#
+ (#{source-annotation 320}#
+ #{e 1590}#)))
+ (if #{t 1593}# #{t 1593}# #{s 1573}#)))
+ #f
+ #{mod 1576}#
+ #f))))
+ (lambda (#{type 1595}#
+ #{value 1596}#
+ #{e 1597}#
+ #{w 1598}#
+ #{s 1599}#
+ #{mod 1600}#)
+ (if (eqv? #{type 1595}# 'begin-form)
+ (let ((#{tmp 1608}# #{e 1597}#))
+ (let ((#{tmp 1609}#
+ ($sc-dispatch #{tmp 1608}# '(_))))
+ (if #{tmp 1609}#
+ (@apply (lambda () #{exps 1577}#) #{tmp 1609}#)
+ (let ((#{tmp 1610}#
+ ($sc-dispatch
+ #{tmp 1608}#
+ '(_ any . each-any))))
+ (if #{tmp 1610}#
+ (@apply
+ (lambda (#{e1 1613}# #{e2 1614}#)
+ (#{scan 1569}#
+ (cons #{e1 1613}# #{e2 1614}#)
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ #{m 1574}#
+ #{esew 1575}#
+ #{mod 1600}#
+ #{exps 1577}#))
+ #{tmp 1610}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1608}#))))))
+ (if (eqv? #{type 1595}# 'local-syntax-form)
+ (#{chi-local-syntax 429}#
+ #{value 1596}#
+ #{e 1597}#
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ #{mod 1600}#
+ (lambda (#{body 1617}#
+ #{r 1618}#
+ #{w 1619}#
+ #{s 1620}#
+ #{mod 1621}#)
+ (#{scan 1569}#
+ #{body 1617}#
+ #{r 1618}#
+ #{w 1619}#
+ #{s 1620}#
+ #{m 1574}#
+ #{esew 1575}#
#{mod 1621}#
- #f))))
- (lambda (#{type 1640}#
- #{value 1641}#
- #{e 1642}#
- #{w 1643}#
- #{s 1644}#
- #{mod 1645}#)
- (if (eqv? #{type 1640}# 'begin-form)
- (let ((#{tmp 1653}# #{e 1642}#))
- (let ((#{tmp 1654}#
- ($sc-dispatch #{tmp 1653}# '(_))))
- (if #{tmp 1654}#
+ #{exps 1577}#)))
+ (if (eqv? #{type 1595}# 'eval-when-form)
+ (let ((#{tmp 1628}# #{e 1597}#))
+ (let ((#{tmp 1629}#
+ ($sc-dispatch
+ #{tmp 1628}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 1629}#
(@apply
- (lambda () #{exps 1622}#)
- #{tmp 1654}#)
- (let ((#{tmp 1655}#
- ($sc-dispatch
- #{tmp 1653}#
- '(_ any . each-any))))
- (if #{tmp 1655}#
- (@apply
- (lambda (#{e1 1658}# #{e2 1659}#)
- (#{scan 1614}#
- (cons #{e1 1658}# #{e2 1659}#)
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- #{m 1619}#
- #{esew 1620}#
- #{mod 1645}#
- #{exps 1622}#))
- #{tmp 1655}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1653}#))))))
- (if (eqv? #{type 1640}# 'local-syntax-form)
- (#{chi-local-syntax 466}#
- #{value 1641}#
- #{e 1642}#
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- #{mod 1645}#
- (lambda (#{body 1662}#
- #{r 1663}#
- #{w 1664}#
- #{s 1665}#
- #{mod 1666}#)
- (#{scan 1614}#
- #{body 1662}#
- #{r 1663}#
- #{w 1664}#
- #{s 1665}#
- #{m 1619}#
- #{esew 1620}#
- #{mod 1666}#
- #{exps 1622}#)))
- (if (eqv? #{type 1640}# 'eval-when-form)
- (let ((#{tmp 1673}# #{e 1642}#))
- (let ((#{tmp 1674}#
- ($sc-dispatch
- #{tmp 1673}#
- '(_ each-any any . each-any))))
- (if #{tmp 1674}#
- (@apply
- (lambda (#{x 1678}#
- #{e1 1679}#
- #{e2 1680}#)
- (begin
- (let ((#{when-list 1683}#
- (#{chi-when-list 452}#
- #{e 1642}#
- #{x 1678}#
- #{w 1643}#))
- (#{body 1684}#
- (cons #{e1 1679}#
- #{e2 1680}#)))
- (if (eq? #{m 1619}# 'e)
- (if (memq 'eval
- #{when-list 1683}#)
- (#{scan 1614}#
- #{body 1684}#
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- (if (memq 'expand
- #{when-list 1683}#)
- 'c&e
- 'e)
- '(eval)
- #{mod 1645}#
- #{exps 1622}#)
- (begin
- (if (memq 'expand
- #{when-list 1683}#)
- (#{top-level-eval-hook 287}#
- (#{chi-top-sequence 448}#
- #{body 1684}#
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- 'e
- '(eval)
- #{mod 1645}#)
- #{mod 1645}#))
- #{exps 1622}#))
- (if (memq 'load
- #{when-list 1683}#)
- (if (begin
- (let ((#{t 1693}#
- (memq 'compile
- #{when-list 1683}#)))
- (if #{t 1693}#
- #{t 1693}#
- (begin
- (let ((#{t 1696}#
- (memq 'expand
- #{when-list 1683}#)))
- (if #{t 1696}#
- #{t 1696}#
- (if (eq? #{m 1619}#
- 'c&e)
- (memq 'eval
- #{when-list 1683}#)
- #f)))))))
- (#{scan 1614}#
- #{body 1684}#
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- 'c&e
- '(compile load)
- #{mod 1645}#
- #{exps 1622}#)
- (if (if (eq? #{m 1619}#
- 'c)
- #t
- (eq? #{m 1619}#
- 'c&e))
- (#{scan 1614}#
- #{body 1684}#
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- 'c
- '(load)
- #{mod 1645}#
- #{exps 1622}#)
- #{exps 1622}#))
- (if (begin
- (let ((#{t 1704}#
- (memq 'compile
- #{when-list 1683}#)))
- (if #{t 1704}#
- #{t 1704}#
- (begin
- (let ((#{t 1707}#
- (memq 'expand
- #{when-list 1683}#)))
- (if #{t 1707}#
- #{t 1707}#
- (if (eq? #{m 1619}#
- 'c&e)
- (memq 'eval
- #{when-list 1683}#)
- #f)))))))
- (begin
- (#{top-level-eval-hook 287}#
- (#{chi-top-sequence 448}#
- #{body 1684}#
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- 'e
- '(eval)
- #{mod 1645}#)
- #{mod 1645}#)
- #{exps 1622}#)
- #{exps 1622}#))))))
- #{tmp 1674}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1673}#))))
- (if (eqv? #{type 1640}# 'define-syntax-form)
- (begin
- (let ((#{n 1715}#
- (#{id-var-name 430}#
- #{value 1641}#
- #{w 1643}#))
- (#{r 1716}#
- (#{macros-only-env 368}#
- #{r 1616}#)))
- (if (eqv? #{m 1619}# 'c)
- (if (memq 'compile #{esew 1620}#)
- (begin
- (let ((#{e 1719}#
- (#{chi-install-global 450}#
- #{n 1715}#
- (#{chi 456}#
- #{e 1642}#
- #{r 1716}#
- #{w 1643}#
- #{mod 1645}#))))
+ (lambda (#{x 1633}#
+ #{e1 1634}#
+ #{e2 1635}#)
+ (begin
+ (let ((#{when-list 1638}#
+ (#{chi-when-list 415}#
+ #{e 1597}#
+ #{x 1633}#
+ #{w 1598}#))
+ (#{body 1639}#
+ (cons #{e1 1634}#
+ #{e2 1635}#)))
+ (if (eq? #{m 1574}# 'e)
+ (if (memq 'eval
+ #{when-list 1638}#)
+ (#{scan 1569}#
+ #{body 1639}#
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ (if (memq 'expand
+ #{when-list 1638}#)
+ 'c&e
+ 'e)
+ '(eval)
+ #{mod 1600}#
+ #{exps 1577}#)
(begin
- (#{top-level-eval-hook 287}#
- #{e 1719}#
- #{mod 1645}#)
- (if (memq 'load
- #{esew 1620}#)
- (cons #{e 1719}#
- #{exps 1622}#)
- #{exps 1622}#))))
- (if (memq 'load #{esew 1620}#)
- (cons (#{chi-install-global 450}#
- #{n 1715}#
- (#{chi 456}#
- #{e 1642}#
- #{r 1716}#
- #{w 1643}#
- #{mod 1645}#))
- #{exps 1622}#)
- #{exps 1622}#))
- (if (eqv? #{m 1619}# 'c&e)
+ (if (memq 'expand
+ #{when-list 1638}#)
+ (#{top-level-eval-hook 250}#
+ (#{chi-top-sequence 411}#
+ #{body 1639}#
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ 'e
+ '(eval)
+ #{mod 1600}#)
+ #{mod 1600}#))
+ #{exps 1577}#))
+ (if (memq 'load
+ #{when-list 1638}#)
+ (if (begin
+ (let ((#{t 1648}#
+ (memq 'compile
+ #{when-list 1638}#)))
+ (if #{t 1648}#
+ #{t 1648}#
+ (begin
+ (let ((#{t 1651}#
+ (memq 'expand
+ #{when-list 1638}#)))
+ (if #{t 1651}#
+ #{t 1651}#
+ (if (eq? #{m 1574}#
+ 'c&e)
+ (memq 'eval
+ #{when-list 1638}#)
+ #f)))))))
+ (#{scan 1569}#
+ #{body 1639}#
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ 'c&e
+ '(compile load)
+ #{mod 1600}#
+ #{exps 1577}#)
+ (if (if (eq? #{m 1574}# 'c)
+ #t
+ (eq? #{m 1574}# 'c&e))
+ (#{scan 1569}#
+ #{body 1639}#
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ 'c
+ '(load)
+ #{mod 1600}#
+ #{exps 1577}#)
+ #{exps 1577}#))
+ (if (begin
+ (let ((#{t 1659}#
+ (memq 'compile
+ #{when-list 1638}#)))
+ (if #{t 1659}#
+ #{t 1659}#
+ (begin
+ (let ((#{t 1662}#
+ (memq 'expand
+ #{when-list 1638}#)))
+ (if #{t 1662}#
+ #{t 1662}#
+ (if (eq? #{m 1574}#
+ 'c&e)
+ (memq 'eval
+ #{when-list 1638}#)
+ #f)))))))
+ (begin
+ (#{top-level-eval-hook 250}#
+ (#{chi-top-sequence 411}#
+ #{body 1639}#
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ 'e
+ '(eval)
+ #{mod 1600}#)
+ #{mod 1600}#)
+ #{exps 1577}#)
+ #{exps 1577}#))))))
+ #{tmp 1629}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1628}#))))
+ (if (eqv? #{type 1595}# 'define-syntax-form)
+ (begin
+ (let ((#{n 1670}#
+ (#{id-var-name 393}#
+ #{value 1596}#
+ #{w 1598}#))
+ (#{r 1671}#
+ (#{macros-only-env 331}#
+ #{r 1571}#)))
+ (if (eqv? #{m 1574}# 'c)
+ (if (memq 'compile #{esew 1575}#)
+ (begin
+ (let ((#{e 1674}#
+ (#{chi-install-global 413}#
+ #{n 1670}#
+ (#{chi 419}#
+ #{e 1597}#
+ #{r 1671}#
+ #{w 1598}#
+ #{mod 1600}#))))
(begin
- (let ((#{e 1722}#
- (#{chi-install-global 450}#
- #{n 1715}#
- (#{chi 456}#
- #{e 1642}#
- #{r 1716}#
- #{w 1643}#
- #{mod 1645}#))))
- (begin
- (#{top-level-eval-hook 287}#
- #{e 1722}#
- #{mod 1645}#)
- (cons #{e 1722}#
- #{exps 1622}#))))
+ (#{top-level-eval-hook 250}#
+ #{e 1674}#
+ #{mod 1600}#)
+ (if (memq 'load #{esew 1575}#)
+ (cons #{e 1674}# #{exps 1577}#)
+ #{exps 1577}#))))
+ (if (memq 'load #{esew 1575}#)
+ (cons (#{chi-install-global 413}#
+ #{n 1670}#
+ (#{chi 419}#
+ #{e 1597}#
+ #{r 1671}#
+ #{w 1598}#
+ #{mod 1600}#))
+ #{exps 1577}#)
+ #{exps 1577}#))
+ (if (eqv? #{m 1574}# 'c&e)
+ (begin
+ (let ((#{e 1677}#
+ (#{chi-install-global 413}#
+ #{n 1670}#
+ (#{chi 419}#
+ #{e 1597}#
+ #{r 1671}#
+ #{w 1598}#
+ #{mod 1600}#))))
(begin
- (if (memq 'eval #{esew 1620}#)
- (#{top-level-eval-hook 287}#
- (#{chi-install-global 450}#
- #{n 1715}#
- (#{chi 456}#
- #{e 1642}#
- #{r 1716}#
- #{w 1643}#
- #{mod 1645}#))
- #{mod 1645}#))
- #{exps 1622}#)))))
- (if (eqv? #{type 1640}# 'define-form)
+ (#{top-level-eval-hook 250}#
+ #{e 1677}#
+ #{mod 1600}#)
+ (cons #{e 1677}#
+ #{exps 1577}#))))
+ (begin
+ (if (memq 'eval #{esew 1575}#)
+ (#{top-level-eval-hook 250}#
+ (#{chi-install-global 413}#
+ #{n 1670}#
+ (#{chi 419}#
+ #{e 1597}#
+ #{r 1671}#
+ #{w 1598}#
+ #{mod 1600}#))
+ #{mod 1600}#))
+ #{exps 1577}#)))))
+ (if (eqv? #{type 1595}# 'define-form)
+ (begin
+ (let ((#{n 1682}#
+ (#{id-var-name 393}#
+ #{value 1596}#
+ #{w 1598}#)))
(begin
- (let ((#{n 1727}#
- (#{id-var-name 430}#
- #{value 1641}#
- #{w 1643}#)))
- (begin
- (let ((#{type 1729}#
- (car (#{lookup 370}#
- #{n 1727}#
- #{r 1616}#
- #{mod 1645}#))))
- (if (if (eqv? #{type 1729}#
- 'global)
+ (let ((#{type 1684}#
+ (car (#{lookup 333}#
+ #{n 1682}#
+ #{r 1571}#
+ #{mod 1600}#))))
+ (if (if (eqv? #{type 1684}# 'global)
+ #t
+ (if (eqv? #{type 1684}# 'core)
+ #t
+ (if (eqv? #{type 1684}#
+ 'macro)
#t
- (if (eqv? #{type 1729}#
- 'core)
- #t
- (if (eqv? #{type 1729}#
- 'macro)
+ (eqv? #{type 1684}#
+ 'module-ref))))
+ (begin
+ (if (if (if (eq? #{m 1574}# 'c)
#t
- (eqv? #{type 1729}#
- 'module-ref))))
+ (eq? #{m 1574}# 'c&e))
+ (if (not (module-local-variable
+ (current-module)
+ #{n 1682}#))
+ (current-module)
+ #f)
+ #f)
(begin
- (if (if (if (eq? #{m 1619}#
- 'c)
- #t
- (eq? #{m 1619}#
- 'c&e))
- (if (not (module-local-variable
- (current-module)
- #{n 1727}#))
- (current-module)
- #f)
- #f)
- (begin
- (let ((#{old 1736}#
- (module-variable
- (current-module)
- #{n 1727}#)))
- (if (if (variable?
- #{old 1736}#)
- (variable-bound?
- #{old 1736}#)
- #f)
- (module-define!
+ (let ((#{old 1691}#
+ (module-variable
(current-module)
- #{n 1727}#
- (variable-ref
- #{old 1736}#))
- (module-add!
- (current-module)
- #{n 1727}#
- (make-undefined-variable))))))
- (cons (if (eq? #{m 1619}#
- 'c&e)
+ #{n 1682}#)))
+ (if (if (variable?
+ #{old 1691}#)
+ (variable-bound?
+ #{old 1691}#)
+ #f)
+ (module-define!
+ (current-module)
+ #{n 1682}#
+ (variable-ref
+ #{old 1691}#))
+ (module-add!
+ (current-module)
+ #{n 1682}#
+ (make-undefined-variable))))))
+ (cons (if (eq? #{m 1574}# 'c&e)
+ (begin
+ (let ((#{x 1695}#
+ (#{build-global-definition 281}#
+ #{s 1599}#
+ #{n 1682}#
+ (#{chi 419}#
+ #{e 1597}#
+ #{r 1571}#
+ #{w 1598}#
+ #{mod 1600}#))))
(begin
- (let ((#{x 1740}#
- (#{build-global-definition 318}#
- #{s 1644}#
- #{n 1727}#
- (#{chi 456}#
- #{e 1642}#
- #{r 1616}#
- #{w 1643}#
- #{mod 1645}#))))
- (begin
- (#{top-level-eval-hook 287}#
- #{x 1740}#
- #{mod 1645}#)
- #{x 1740}#)))
- (lambda ()
- (#{build-global-definition 318}#
- #{s 1644}#
- #{n 1727}#
- (#{chi 456}#
- #{e 1642}#
- #{r 1616}#
- #{w 1643}#
- #{mod 1645}#))))
- #{exps 1622}#))
- (if (eqv? #{type 1729}#
- 'displaced-lexical)
- (syntax-violation
- #f
- "identifier out of context"
- #{e 1642}#
- (#{wrap 442}#
- #{value 1641}#
- #{w 1643}#
- #{mod 1645}#))
- (syntax-violation
- #f
- "cannot define keyword at top level"
- #{e 1642}#
- (#{wrap 442}#
- #{value 1641}#
- #{w 1643}#
- #{mod 1645}#))))))))
- (cons (if (eq? #{m 1619}# 'c&e)
+ (#{top-level-eval-hook 250}#
+ #{x 1695}#
+ #{mod 1600}#)
+ #{x 1695}#)))
+ (lambda ()
+ (#{build-global-definition 281}#
+ #{s 1599}#
+ #{n 1682}#
+ (#{chi 419}#
+ #{e 1597}#
+ #{r 1571}#
+ #{w 1598}#
+ #{mod 1600}#))))
+ #{exps 1577}#))
+ (if (eqv? #{type 1684}#
+ 'displaced-lexical)
+ (syntax-violation
+ #f
+ "identifier out of context"
+ #{e 1597}#
+ (#{wrap 405}#
+ #{value 1596}#
+ #{w 1598}#
+ #{mod 1600}#))
+ (syntax-violation
+ #f
+ "cannot define keyword at top level"
+ #{e 1597}#
+ (#{wrap 405}#
+ #{value 1596}#
+ #{w 1598}#
+ #{mod 1600}#))))))))
+ (cons (if (eq? #{m 1574}# 'c&e)
+ (begin
+ (let ((#{x 1700}#
+ (#{chi-expr 421}#
+ #{type 1595}#
+ #{value 1596}#
+ #{e 1597}#
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ #{mod 1600}#)))
(begin
- (let ((#{x 1745}#
- (#{chi-expr 458}#
- #{type 1640}#
- #{value 1641}#
- #{e 1642}#
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- #{mod 1645}#)))
- (begin
- (#{top-level-eval-hook 287}#
- #{x 1745}#
- #{mod 1645}#)
- #{x 1745}#)))
- (lambda ()
- (#{chi-expr 458}#
- #{type 1640}#
- #{value 1641}#
- #{e 1642}#
- #{r 1616}#
- #{w 1643}#
- #{s 1644}#
- #{mod 1645}#)))
- #{exps 1622}#)))))))))
- (lambda (#{exps 1746}#)
- (#{scan 1614}#
- (cdr #{body 1615}#)
- #{r 1616}#
- #{w 1617}#
- #{s 1618}#
- #{m 1619}#
- #{esew 1620}#
- #{mod 1621}#
- #{exps 1746}#)))))))
- (begin
- (call-with-values
- (lambda ()
- (#{scan 1614}#
- #{body 1599}#
- #{r 1600}#
- #{w 1601}#
- #{s 1602}#
- #{m 1603}#
- #{esew 1604}#
- #{mod 1605}#
- '()))
- (lambda (#{exps 1748}#)
- (if (null? #{exps 1748}#)
- (#{build-void 300}# #{s 1602}#)
- (#{build-sequence 330}#
- #{s 1602}#
- (letrec*
- ((#{lp 1753}#
- (lambda (#{in 1754}# #{out 1755}#)
- (if (null? #{in 1754}#)
- #{out 1755}#
- (begin
- (let ((#{e 1757}# (car #{in 1754}#)))
- (#{lp 1753}#
- (cdr #{in 1754}#)
- (cons (if (procedure? #{e 1757}#)
- (#{e 1757}#)
- #{e 1757}#)
- #{out 1755}#))))))))
- (begin (#{lp 1753}# #{exps 1748}# '())))))))))))
- (#{chi-install-global 450}#
- (lambda (#{name 1758}# #{e 1759}#)
- (#{build-global-definition 318}#
+ (#{top-level-eval-hook 250}#
+ #{x 1700}#
+ #{mod 1600}#)
+ #{x 1700}#)))
+ (lambda ()
+ (#{chi-expr 421}#
+ #{type 1595}#
+ #{value 1596}#
+ #{e 1597}#
+ #{r 1571}#
+ #{w 1598}#
+ #{s 1599}#
+ #{mod 1600}#)))
+ #{exps 1577}#)))))))))
+ (lambda (#{exps 1701}#)
+ (#{scan 1569}#
+ (cdr #{body 1570}#)
+ #{r 1571}#
+ #{w 1572}#
+ #{s 1573}#
+ #{m 1574}#
+ #{esew 1575}#
+ #{mod 1576}#
+ #{exps 1701}#)))))))
+ (begin
+ (call-with-values
+ (lambda ()
+ (#{scan 1569}#
+ #{body 1554}#
+ #{r 1555}#
+ #{w 1556}#
+ #{s 1557}#
+ #{m 1558}#
+ #{esew 1559}#
+ #{mod 1560}#
+ '()))
+ (lambda (#{exps 1703}#)
+ (if (null? #{exps 1703}#)
+ (#{build-void 263}# #{s 1557}#)
+ (#{build-sequence 293}#
+ #{s 1557}#
+ (letrec*
+ ((#{lp 1708}#
+ (lambda (#{in 1709}# #{out 1710}#)
+ (if (null? #{in 1709}#)
+ #{out 1710}#
+ (begin
+ (let ((#{e 1712}# (car #{in 1709}#)))
+ (#{lp 1708}#
+ (cdr #{in 1709}#)
+ (cons (if (procedure? #{e 1712}#)
+ (#{e 1712}#)
+ #{e 1712}#)
+ #{out 1710}#))))))))
+ (begin (#{lp 1708}# #{exps 1703}# '())))))))))))
+ (#{chi-install-global 413}#
+ (lambda (#{name 1713}# #{e 1714}#)
+ (#{build-global-definition 281}#
+ #f
+ #{name 1713}#
+ (#{build-application 265}#
+ #f
+ (#{build-primref 289}#
#f
- #{name 1758}#
- (#{build-application 302}#
- #f
- (#{build-primref 326}#
- #f
- 'make-syntax-transformer)
- (list (#{build-data 328}# #f #{name 1758}#)
- (#{build-data 328}# #f 'macro)
- #{e 1759}#)))))
- (#{chi-when-list 452}#
- (lambda (#{e 1767}# #{when-list 1768}# #{w 1769}#)
- (letrec*
- ((#{f 1776}#
- (lambda (#{when-list 1777}# #{situations 1778}#)
- (if (null? #{when-list 1777}#)
- #{situations 1778}#
- (#{f 1776}#
- (cdr #{when-list 1777}#)
- (cons (begin
- (let ((#{x 1780}# (car #{when-list 1777}#)))
- (if (#{free-id=? 432}#
- #{x 1780}#
+ 'make-syntax-transformer)
+ (list (#{build-data 291}# #f #{name 1713}#)
+ (#{build-data 291}# #f 'macro)
+ #{e 1714}#)))))
+ (#{chi-when-list 415}#
+ (lambda (#{e 1722}# #{when-list 1723}# #{w 1724}#)
+ (letrec*
+ ((#{f 1731}#
+ (lambda (#{when-list 1732}# #{situations 1733}#)
+ (if (null? #{when-list 1732}#)
+ #{situations 1733}#
+ (#{f 1731}#
+ (cdr #{when-list 1732}#)
+ (cons (begin
+ (let ((#{x 1735}# (car #{when-list 1732}#)))
+ (if (#{free-id=? 395}#
+ #{x 1735}#
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1734"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1728" "i1729" "i1730"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1725" "i1726" "i1727"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ 'compile
+ (if (#{free-id=? 395}#
+ #{x 1735}#
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1734"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1728" "i1729" "i1730"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1725" "i1726" "i1727"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ 'load
+ (if (#{free-id=? 395}#
+ #{x 1735}#
'#(syntax-object
- compile
+ eval
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1779"))
+ #(ribcage #(x) #((top)) #("i1734"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1773" "i1774" "i1775"))
+ #("i1728" "i1729" "i1730"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1770" "i1771" "i1772"))
+ #("i1725" "i1726" "i1727"))
#(ribcage
(lambda-var-list
gen-var
@@ -1857,170 +2662,169 @@
(top)
(top)
(top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
"i416"
- "i415"
- "i413"
+ "i414"
"i412"
- "i411"
"i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i390"
"i388"
- "i387"
"i386"
- "i385"
"i384"
- "i383"
"i382"
- "i381"
"i380"
+ "i379"
"i378"
- "i377"
+ "i376"
"i375"
+ "i374"
"i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
"i362"
- "i361"
"i360"
- "i359"
"i358"
"i356"
- "i355"
"i353"
"i351"
+ "i350"
"i349"
+ "i348"
"i347"
+ "i346"
"i345"
+ "i344"
"i343"
"i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
"i325"
+ "i324"
"i323"
+ "i322"
"i321"
"i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
"i290"
"i288"
"i286"
- "i285"
"i284"
- "i283"
"i282"
"i280"
"i278"
"i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
"i253"
"i251"
"i249"
+ "i248"
"i247"
+ "i246"
"i245"
"i243"
"i241"
- "i239"))
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
#(ribcage
(define-structure
define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
(hygiene guile)))
- 'compile
- (if (#{free-id=? 432}#
- #{x 1780}#
+ 'eval
+ (if (#{free-id=? 395}#
+ #{x 1735}#
'#(syntax-object
- load
+ expand
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1779"))
+ #(ribcage #(x) #((top)) #("i1734"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1773" "i1774" "i1775"))
+ #("i1728" "i1729" "i1730"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1770" "i1771" "i1772"))
+ #("i1725" "i1726" "i1727"))
#(ribcage
(lambda-var-list
gen-var
@@ -2294,173 +3098,7821 @@
(top)
(top)
(top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
"i416"
- "i415"
- "i413"
+ "i414"
"i412"
- "i411"
"i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i390"
"i388"
- "i387"
"i386"
- "i385"
"i384"
- "i383"
"i382"
- "i381"
"i380"
+ "i379"
"i378"
- "i377"
+ "i376"
"i375"
+ "i374"
"i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
"i362"
- "i361"
"i360"
- "i359"
"i358"
"i356"
- "i355"
"i353"
"i351"
+ "i350"
"i349"
+ "i348"
"i347"
+ "i346"
"i345"
+ "i344"
"i343"
"i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
"i325"
+ "i324"
"i323"
+ "i322"
"i321"
"i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
"i290"
"i288"
"i286"
- "i285"
"i284"
- "i283"
"i282"
"i280"
"i278"
"i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
"i253"
"i251"
"i249"
+ "i248"
"i247"
+ "i246"
"i245"
"i243"
"i241"
- "i239"))
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
#(ribcage
(define-structure
define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
(hygiene guile)))
- 'load
- (if (#{free-id=? 432}#
- #{x 1780}#
- '#(syntax-object
- eval
+ 'expand
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e 1722}#
+ (#{wrap 405}#
+ #{x 1735}#
+ #{w 1724}#
+ #f))))))))
+ #{situations 1733}#))))))
+ (begin (#{f 1731}# #{when-list 1723}# '())))))
+ (#{syntax-type 417}#
+ (lambda (#{e 1745}#
+ #{r 1746}#
+ #{w 1747}#
+ #{s 1748}#
+ #{rib 1749}#
+ #{mod 1750}#
+ #{for-car? 1751}#)
+ (if (symbol? #{e 1745}#)
+ (begin
+ (let ((#{n 1763}#
+ (#{id-var-name 393}# #{e 1745}# #{w 1747}#)))
+ (begin
+ (let ((#{b 1765}#
+ (#{lookup 333}#
+ #{n 1763}#
+ #{r 1746}#
+ #{mod 1750}#)))
+ (begin
+ (let ((#{type 1767}# (car #{b 1765}#)))
+ (if (eqv? #{type 1767}# 'lexical)
+ (values
+ #{type 1767}#
+ (cdr #{b 1765}#)
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (if (eqv? #{type 1767}# 'global)
+ (values
+ #{type 1767}#
+ #{n 1763}#
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (if (eqv? #{type 1767}# 'macro)
+ (if #{for-car? 1751}#
+ (values
+ #{type 1767}#
+ (cdr #{b 1765}#)
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (#{syntax-type 417}#
+ (#{chi-macro 425}#
+ (cdr #{b 1765}#)
+ #{e 1745}#
+ #{r 1746}#
+ #{w 1747}#
+ #{s 1748}#
+ #{rib 1749}#
+ #{mod 1750}#)
+ #{r 1746}#
+ '(())
+ #{s 1748}#
+ #{rib 1749}#
+ #{mod 1750}#
+ #f))
+ (values
+ #{type 1767}#
+ (cdr #{b 1765}#)
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#))))))))))
+ (if (pair? #{e 1745}#)
+ (begin
+ (let ((#{first 1781}# (car #{e 1745}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 417}#
+ #{first 1781}#
+ #{r 1746}#
+ #{w 1747}#
+ #{s 1748}#
+ #{rib 1749}#
+ #{mod 1750}#
+ #t))
+ (lambda (#{ftype 1782}#
+ #{fval 1783}#
+ #{fe 1784}#
+ #{fw 1785}#
+ #{fs 1786}#
+ #{fmod 1787}#)
+ (if (eqv? #{ftype 1782}# 'lexical)
+ (values
+ 'lexical-call
+ #{fval 1783}#
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (if (eqv? #{ftype 1782}# 'global)
+ (values
+ 'global-call
+ (#{make-syntax-object 303}#
+ #{fval 1783}#
+ #{w 1747}#
+ #{fmod 1787}#)
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (if (eqv? #{ftype 1782}# 'macro)
+ (#{syntax-type 417}#
+ (#{chi-macro 425}#
+ #{fval 1783}#
+ #{e 1745}#
+ #{r 1746}#
+ #{w 1747}#
+ #{s 1748}#
+ #{rib 1749}#
+ #{mod 1750}#)
+ #{r 1746}#
+ '(())
+ #{s 1748}#
+ #{rib 1749}#
+ #{mod 1750}#
+ #{for-car? 1751}#)
+ (if (eqv? #{ftype 1782}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{fval 1783}#
+ #{e 1745}#
+ #{r 1746}#
+ #{w 1747}#))
+ (lambda (#{e 1799}#
+ #{r 1800}#
+ #{w 1801}#
+ #{s 1802}#
+ #{mod 1803}#)
+ (#{syntax-type 417}#
+ #{e 1799}#
+ #{r 1800}#
+ #{w 1801}#
+ #{s 1802}#
+ #{rib 1749}#
+ #{mod 1803}#
+ #{for-car? 1751}#)))
+ (if (eqv? #{ftype 1782}# 'core)
+ (values
+ 'core-form
+ #{fval 1783}#
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (if (eqv? #{ftype 1782}# 'local-syntax)
+ (values
+ 'local-syntax-form
+ #{fval 1783}#
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (if (eqv? #{ftype 1782}# 'begin)
+ (values
+ 'begin-form
+ #f
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (if (eqv? #{ftype 1782}# 'eval-when)
+ (values
+ 'eval-when-form
+ #f
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (if (eqv? #{ftype 1782}# 'define)
+ (let ((#{tmp 1814}# #{e 1745}#))
+ (let ((#{tmp 1815}#
+ ($sc-dispatch
+ #{tmp 1814}#
+ '(_ any any))))
+ (if (if #{tmp 1815}#
+ (@apply
+ (lambda (#{name 1818}#
+ #{val 1819}#)
+ (#{id? 339}# #{name 1818}#))
+ #{tmp 1815}#)
+ #f)
+ (@apply
+ (lambda (#{name 1822}#
+ #{val 1823}#)
+ (values
+ 'define-form
+ #{name 1822}#
+ #{val 1823}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#))
+ #{tmp 1815}#)
+ (let ((#{tmp 1824}#
+ ($sc-dispatch
+ #{tmp 1814}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp 1824}#
+ (@apply
+ (lambda (#{name 1829}#
+ #{args 1830}#
+ #{e1 1831}#
+ #{e2 1832}#)
+ (if (#{id? 339}#
+ #{name 1829}#)
+ (#{valid-bound-ids? 399}#
+ (#{lambda-var-list 449}#
+ #{args 1830}#))
+ #f))
+ #{tmp 1824}#)
+ #f)
+ (@apply
+ (lambda (#{name 1839}#
+ #{args 1840}#
+ #{e1 1841}#
+ #{e2 1842}#)
+ (values
+ 'define-form
+ (#{wrap 405}#
+ #{name 1839}#
+ #{w 1747}#
+ #{mod 1750}#)
+ (#{decorate-source 259}#
+ (cons '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i1835"
+ "i1836"
+ "i1837"
+ "i1838"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1788"
+ "i1789"
+ "i1790"
+ "i1791"
+ "i1792"
+ "i1793"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1780"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1752"
+ "i1753"
+ "i1754"
+ "i1755"
+ "i1756"
+ "i1757"
+ "i1758"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene
+ guile))
+ (#{wrap 405}#
+ (cons #{args 1840}#
+ (cons #{e1 1841}#
+ #{e2 1842}#))
+ #{w 1747}#
+ #{mod 1750}#))
+ #{s 1748}#)
+ '(())
+ #{s 1748}#
+ #{mod 1750}#))
+ #{tmp 1824}#)
+ (let ((#{tmp 1845}#
+ ($sc-dispatch
+ #{tmp 1814}#
+ '(_ any))))
+ (if (if #{tmp 1845}#
+ (@apply
+ (lambda (#{name 1847}#)
+ (#{id? 339}#
+ #{name 1847}#))
+ #{tmp 1845}#)
+ #f)
+ (@apply
+ (lambda (#{name 1849}#)
+ (values
+ 'define-form
+ (#{wrap 405}#
+ #{name 1849}#
+ #{w 1747}#
+ #{mod 1750}#)
+ '(#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1848"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1788"
+ "i1789"
+ "i1790"
+ "i1791"
+ "i1792"
+ "i1793"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1780"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1752"
+ "i1753"
+ "i1754"
+ "i1755"
+ "i1756"
+ "i1757"
+ "i1758"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1848"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1788"
+ "i1789"
+ "i1790"
+ "i1791"
+ "i1792"
+ "i1793"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1780"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1752"
+ "i1753"
+ "i1754"
+ "i1755"
+ "i1756"
+ "i1757"
+ "i1758"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1848"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1788"
+ "i1789"
+ "i1790"
+ "i1791"
+ "i1792"
+ "i1793"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1780"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1752"
+ "i1753"
+ "i1754"
+ "i1755"
+ "i1756"
+ "i1757"
+ "i1758"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile)))
+ '(())
+ #{s 1748}#
+ #{mod 1750}#))
+ #{tmp 1845}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1814}#))))))))
+ (if (eqv? #{ftype 1782}# 'define-syntax)
+ (let ((#{tmp 1852}# #{e 1745}#))
+ (let ((#{tmp 1853}#
+ ($sc-dispatch
+ #{tmp 1852}#
+ '(_ any any))))
+ (if (if #{tmp 1853}#
+ (@apply
+ (lambda (#{name 1856}#
+ #{val 1857}#)
+ (#{id? 339}#
+ #{name 1856}#))
+ #{tmp 1853}#)
+ #f)
+ (@apply
+ (lambda (#{name 1860}#
+ #{val 1861}#)
+ (values
+ 'define-syntax-form
+ #{name 1860}#
+ #{val 1861}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#))
+ #{tmp 1853}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1852}#))))
+ (values
+ 'call
+ #f
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)))))))))))))))
+ (if (#{syntax-object? 305}# #{e 1745}#)
+ (#{syntax-type 417}#
+ (#{syntax-object-expression 307}# #{e 1745}#)
+ #{r 1746}#
+ (#{join-wraps 387}#
+ #{w 1747}#
+ (#{syntax-object-wrap 309}# #{e 1745}#))
+ (begin
+ (let ((#{t 1867}#
+ (#{source-annotation 320}# #{e 1745}#)))
+ (if #{t 1867}# #{t 1867}# #{s 1748}#)))
+ #{rib 1749}#
+ (begin
+ (let ((#{t 1871}#
+ (#{syntax-object-module 311}# #{e 1745}#)))
+ (if #{t 1871}# #{t 1871}# #{mod 1750}#)))
+ #{for-car? 1751}#)
+ (if (self-evaluating? #{e 1745}#)
+ (values
+ 'constant
+ #f
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)
+ (values
+ 'other
+ #f
+ #{e 1745}#
+ #{w 1747}#
+ #{s 1748}#
+ #{mod 1750}#)))))))
+ (#{chi 419}#
+ (lambda (#{e 1876}# #{r 1877}# #{w 1878}# #{mod 1879}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 417}#
+ #{e 1876}#
+ #{r 1877}#
+ #{w 1878}#
+ (#{source-annotation 320}# #{e 1876}#)
+ #f
+ #{mod 1879}#
+ #f))
+ (lambda (#{type 1884}#
+ #{value 1885}#
+ #{e 1886}#
+ #{w 1887}#
+ #{s 1888}#
+ #{mod 1889}#)
+ (#{chi-expr 421}#
+ #{type 1884}#
+ #{value 1885}#
+ #{e 1886}#
+ #{r 1877}#
+ #{w 1887}#
+ #{s 1888}#
+ #{mod 1889}#)))))
+ (#{chi-expr 421}#
+ (lambda (#{type 1896}#
+ #{value 1897}#
+ #{e 1898}#
+ #{r 1899}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#)
+ (if (eqv? #{type 1896}# 'lexical)
+ (#{build-lexical-reference 271}#
+ 'value
+ #{s 1901}#
+ #{e 1898}#
+ #{value 1897}#)
+ (if (if (eqv? #{type 1896}# 'core)
+ #t
+ (eqv? #{type 1896}# 'core-form))
+ (#{value 1897}#
+ #{e 1898}#
+ #{r 1899}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#)
+ (if (eqv? #{type 1896}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{value 1897}# #{e 1898}# #{r 1899}# #{w 1900}#))
+ (lambda (#{e 1913}#
+ #{r 1914}#
+ #{w 1915}#
+ #{s 1916}#
+ #{mod 1917}#)
+ (#{chi 419}#
+ #{e 1913}#
+ #{r 1914}#
+ #{w 1915}#
+ #{mod 1917}#)))
+ (if (eqv? #{type 1896}# 'lexical-call)
+ (#{chi-application 423}#
+ (begin
+ (let ((#{id 1925}# (car #{e 1898}#)))
+ (#{build-lexical-reference 271}#
+ 'fun
+ (#{source-annotation 320}# #{id 1925}#)
+ (if (#{syntax-object? 305}# #{id 1925}#)
+ (syntax->datum #{id 1925}#)
+ #{id 1925}#)
+ #{value 1897}#)))
+ #{e 1898}#
+ #{r 1899}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#)
+ (if (eqv? #{type 1896}# 'global-call)
+ (#{chi-application 423}#
+ (#{build-global-reference 277}#
+ (#{source-annotation 320}# (car #{e 1898}#))
+ (if (#{syntax-object? 305}# #{value 1897}#)
+ (#{syntax-object-expression 307}# #{value 1897}#)
+ #{value 1897}#)
+ (if (#{syntax-object? 305}# #{value 1897}#)
+ (#{syntax-object-module 311}# #{value 1897}#)
+ #{mod 1902}#))
+ #{e 1898}#
+ #{r 1899}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#)
+ (if (eqv? #{type 1896}# 'constant)
+ (#{build-data 291}#
+ #{s 1901}#
+ (#{strip 445}#
+ (#{source-wrap 407}#
+ #{e 1898}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#)
+ '(())))
+ (if (eqv? #{type 1896}# 'global)
+ (#{build-global-reference 277}#
+ #{s 1901}#
+ #{value 1897}#
+ #{mod 1902}#)
+ (if (eqv? #{type 1896}# 'call)
+ (#{chi-application 423}#
+ (#{chi 419}#
+ (car #{e 1898}#)
+ #{r 1899}#
+ #{w 1900}#
+ #{mod 1902}#)
+ #{e 1898}#
+ #{r 1899}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#)
+ (if (eqv? #{type 1896}# 'begin-form)
+ (let ((#{tmp 1932}# #{e 1898}#))
+ (let ((#{tmp 1933}#
+ ($sc-dispatch
+ #{tmp 1932}#
+ '(_ any . each-any))))
+ (if #{tmp 1933}#
+ (@apply
+ (lambda (#{e1 1936}# #{e2 1937}#)
+ (#{chi-sequence 409}#
+ (cons #{e1 1936}# #{e2 1937}#)
+ #{r 1899}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#))
+ #{tmp 1933}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1932}#))))
+ (if (eqv? #{type 1896}# 'local-syntax-form)
+ (#{chi-local-syntax 429}#
+ #{value 1897}#
+ #{e 1898}#
+ #{r 1899}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#
+ #{chi-sequence 409}#)
+ (if (eqv? #{type 1896}# 'eval-when-form)
+ (let ((#{tmp 1941}# #{e 1898}#))
+ (let ((#{tmp 1942}#
+ ($sc-dispatch
+ #{tmp 1941}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 1942}#
+ (@apply
+ (lambda (#{x 1946}#
+ #{e1 1947}#
+ #{e2 1948}#)
+ (begin
+ (let ((#{when-list 1950}#
+ (#{chi-when-list 415}#
+ #{e 1898}#
+ #{x 1946}#
+ #{w 1900}#)))
+ (if (memq 'eval #{when-list 1950}#)
+ (#{chi-sequence 409}#
+ (cons #{e1 1947}# #{e2 1948}#)
+ #{r 1899}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#)
+ (#{chi-void 433}#)))))
+ #{tmp 1942}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1941}#))))
+ (if (if (eqv? #{type 1896}# 'define-form)
+ #t
+ (eqv? #{type 1896}# 'define-syntax-form))
+ (syntax-violation
+ #f
+ "definition in expression context"
+ #{e 1898}#
+ (#{wrap 405}#
+ #{value 1897}#
+ #{w 1900}#
+ #{mod 1902}#))
+ (if (eqv? #{type 1896}# 'syntax)
+ (syntax-violation
+ #f
+ "reference to pattern variable outside syntax form"
+ (#{source-wrap 407}#
+ #{e 1898}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#))
+ (if (eqv? #{type 1896}# 'displaced-lexical)
+ (syntax-violation
+ #f
+ "reference to identifier outside its scope"
+ (#{source-wrap 407}#
+ #{e 1898}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#))
+ (syntax-violation
+ #f
+ "unexpected syntax"
+ (#{source-wrap 407}#
+ #{e 1898}#
+ #{w 1900}#
+ #{s 1901}#
+ #{mod 1902}#))))))))))))))))))
+ (#{chi-application 423}#
+ (lambda (#{x 1957}#
+ #{e 1958}#
+ #{r 1959}#
+ #{w 1960}#
+ #{s 1961}#
+ #{mod 1962}#)
+ (let ((#{tmp 1969}# #{e 1958}#))
+ (let ((#{tmp 1970}#
+ ($sc-dispatch #{tmp 1969}# '(any . each-any))))
+ (if #{tmp 1970}#
+ (@apply
+ (lambda (#{e0 1973}# #{e1 1974}#)
+ (#{build-application 265}#
+ #{s 1961}#
+ #{x 1957}#
+ (map (lambda (#{e 1975}#)
+ (#{chi 419}#
+ #{e 1975}#
+ #{r 1959}#
+ #{w 1960}#
+ #{mod 1962}#))
+ #{e1 1974}#)))
+ #{tmp 1970}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1969}#))))))
+ (#{chi-macro 425}#
+ (lambda (#{p 1978}#
+ #{e 1979}#
+ #{r 1980}#
+ #{w 1981}#
+ #{s 1982}#
+ #{rib 1983}#
+ #{mod 1984}#)
+ (letrec*
+ ((#{rebuild-macro-output 1993}#
+ (lambda (#{x 1994}# #{m 1995}#)
+ (if (pair? #{x 1994}#)
+ (#{decorate-source 259}#
+ (cons (#{rebuild-macro-output 1993}#
+ (car #{x 1994}#)
+ #{m 1995}#)
+ (#{rebuild-macro-output 1993}#
+ (cdr #{x 1994}#)
+ #{m 1995}#))
+ #{s 1982}#)
+ (if (#{syntax-object? 305}# #{x 1994}#)
+ (begin
+ (let ((#{w 2003}#
+ (#{syntax-object-wrap 309}# #{x 1994}#)))
+ (begin
+ (let ((#{ms 2006}# (car #{w 2003}#))
+ (#{s 2007}# (cdr #{w 2003}#)))
+ (if (if (pair? #{ms 2006}#)
+ (eq? (car #{ms 2006}#) #f)
+ #f)
+ (#{make-syntax-object 303}#
+ (#{syntax-object-expression 307}# #{x 1994}#)
+ (cons (cdr #{ms 2006}#)
+ (if #{rib 1983}#
+ (cons #{rib 1983}# (cdr #{s 2007}#))
+ (cdr #{s 2007}#)))
+ (#{syntax-object-module 311}# #{x 1994}#))
+ (#{make-syntax-object 303}#
+ (#{decorate-source 259}#
+ (#{syntax-object-expression 307}# #{x 1994}#)
+ #{s 2007}#)
+ (cons (cons #{m 1995}# #{ms 2006}#)
+ (if #{rib 1983}#
+ (cons #{rib 1983}#
+ (cons 'shift #{s 2007}#))
+ (cons 'shift #{s 2007}#)))
+ (#{syntax-object-module 311}# #{x 1994}#)))))))
+ (if (vector? #{x 1994}#)
+ (begin
+ (let ((#{n 2019}# (vector-length #{x 1994}#)))
+ (begin
+ (let ((#{v 2021}#
+ (#{decorate-source 259}#
+ (make-vector #{n 2019}#)
+ #{x 1994}#)))
+ (letrec*
+ ((#{loop 2024}#
+ (lambda (#{i 2025}#)
+ (if (= #{i 2025}# #{n 2019}#)
+ (begin (if #f #f) #{v 2021}#)
+ (begin
+ (vector-set!
+ #{v 2021}#
+ #{i 2025}#
+ (#{rebuild-macro-output 1993}#
+ (vector-ref #{x 1994}# #{i 2025}#)
+ #{m 1995}#))
+ (#{loop 2024}# (#{1+}# #{i 2025}#)))))))
+ (begin (#{loop 2024}# 0)))))))
+ (if (symbol? #{x 1994}#)
+ (syntax-violation
+ #f
+ "encountered raw symbol in macro output"
+ (#{source-wrap 407}#
+ #{e 1979}#
+ #{w 1981}#
+ (cdr #{w 1981}#)
+ #{mod 1984}#)
+ #{x 1994}#)
+ (#{decorate-source 259}# #{x 1994}# #{s 1982}#))))))))
+ (begin
+ (#{rebuild-macro-output 1993}#
+ (#{p 1978}#
+ (#{source-wrap 407}#
+ #{e 1979}#
+ (#{anti-mark 377}# #{w 1981}#)
+ #{s 1982}#
+ #{mod 1984}#))
+ (gensym "m"))))))
+ (#{chi-body 427}#
+ (lambda (#{body 2035}#
+ #{outer-form 2036}#
+ #{r 2037}#
+ #{w 2038}#
+ #{mod 2039}#)
+ (begin
+ (let ((#{r 2047}#
+ (cons '("placeholder" placeholder) #{r 2037}#)))
+ (begin
+ (let ((#{ribcage 2049}#
+ (#{make-ribcage 357}# '() '() '())))
+ (begin
+ (let ((#{w 2052}#
+ (cons (car #{w 2038}#)
+ (cons #{ribcage 2049}# (cdr #{w 2038}#)))))
+ (letrec*
+ ((#{parse 2064}#
+ (lambda (#{body 2065}#
+ #{ids 2066}#
+ #{labels 2067}#
+ #{var-ids 2068}#
+ #{vars 2069}#
+ #{vals 2070}#
+ #{bindings 2071}#)
+ (if (null? #{body 2065}#)
+ (syntax-violation
+ #f
+ "no expressions in body"
+ #{outer-form 2036}#)
+ (begin
+ (let ((#{e 2076}# (cdr (car #{body 2065}#)))
+ (#{er 2077}# (car (car #{body 2065}#))))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 417}#
+ #{e 2076}#
+ #{er 2077}#
+ '(())
+ (#{source-annotation 320}# #{er 2077}#)
+ #{ribcage 2049}#
+ #{mod 2039}#
+ #f))
+ (lambda (#{type 2079}#
+ #{value 2080}#
+ #{e 2081}#
+ #{w 2082}#
+ #{s 2083}#
+ #{mod 2084}#)
+ (if (eqv? #{type 2079}# 'define-form)
+ (begin
+ (let ((#{id 2094}#
+ (#{wrap 405}#
+ #{value 2080}#
+ #{w 2082}#
+ #{mod 2084}#))
+ (#{label 2095}#
+ (#{gen-label 352}#)))
+ (begin
+ (let ((#{var 2097}#
+ (#{gen-var 447}#
+ #{id 2094}#)))
+ (begin
+ (#{extend-ribcage! 381}#
+ #{ribcage 2049}#
+ #{id 2094}#
+ #{label 2095}#)
+ (#{parse 2064}#
+ (cdr #{body 2065}#)
+ (cons #{id 2094}#
+ #{ids 2066}#)
+ (cons #{label 2095}#
+ #{labels 2067}#)
+ (cons #{id 2094}#
+ #{var-ids 2068}#)
+ (cons #{var 2097}#
+ #{vars 2069}#)
+ (cons (cons #{er 2077}#
+ (#{wrap 405}#
+ #{e 2081}#
+ #{w 2082}#
+ #{mod 2084}#))
+ #{vals 2070}#)
+ (cons (cons 'lexical
+ #{var 2097}#)
+ #{bindings 2071}#)))))))
+ (if (eqv? #{type 2079}#
+ 'define-syntax-form)
+ (begin
+ (let ((#{id 2102}#
+ (#{wrap 405}#
+ #{value 2080}#
+ #{w 2082}#
+ #{mod 2084}#))
+ (#{label 2103}#
+ (#{gen-label 352}#)))
+ (begin
+ (#{extend-ribcage! 381}#
+ #{ribcage 2049}#
+ #{id 2102}#
+ #{label 2103}#)
+ (#{parse 2064}#
+ (cdr #{body 2065}#)
+ (cons #{id 2102}# #{ids 2066}#)
+ (cons #{label 2103}#
+ #{labels 2067}#)
+ #{var-ids 2068}#
+ #{vars 2069}#
+ #{vals 2070}#
+ (cons (cons 'macro
+ (cons #{er 2077}#
+ (#{wrap 405}#
+ #{e 2081}#
+ #{w 2082}#
+ #{mod 2084}#)))
+ #{bindings 2071}#)))))
+ (if (eqv? #{type 2079}# 'begin-form)
+ (let ((#{tmp 2106}# #{e 2081}#))
+ (let ((#{tmp 2107}#
+ ($sc-dispatch
+ #{tmp 2106}#
+ '(_ . each-any))))
+ (if #{tmp 2107}#
+ (@apply
+ (lambda (#{e1 2109}#)
+ (#{parse 2064}#
+ (letrec*
+ ((#{f 2112}#
+ (lambda (#{forms 2113}#)
+ (if (null? #{forms 2113}#)
+ (cdr #{body 2065}#)
+ (cons (cons #{er 2077}#
+ (#{wrap 405}#
+ (car #{forms 2113}#)
+ #{w 2082}#
+ #{mod 2084}#))
+ (#{f 2112}#
+ (cdr #{forms 2113}#)))))))
+ (begin
+ (#{f 2112}#
+ #{e1 2109}#)))
+ #{ids 2066}#
+ #{labels 2067}#
+ #{var-ids 2068}#
+ #{vars 2069}#
+ #{vals 2070}#
+ #{bindings 2071}#))
+ #{tmp 2107}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2106}#))))
+ (if (eqv? #{type 2079}#
+ 'local-syntax-form)
+ (#{chi-local-syntax 429}#
+ #{value 2080}#
+ #{e 2081}#
+ #{er 2077}#
+ #{w 2082}#
+ #{s 2083}#
+ #{mod 2084}#
+ (lambda (#{forms 2116}#
+ #{er 2117}#
+ #{w 2118}#
+ #{s 2119}#
+ #{mod 2120}#)
+ (#{parse 2064}#
+ (letrec*
+ ((#{f 2128}#
+ (lambda (#{forms 2129}#)
+ (if (null? #{forms 2129}#)
+ (cdr #{body 2065}#)
+ (cons (cons #{er 2117}#
+ (#{wrap 405}#
+ (car #{forms 2129}#)
+ #{w 2118}#
+ #{mod 2120}#))
+ (#{f 2128}#
+ (cdr #{forms 2129}#)))))))
+ (begin
+ (#{f 2128}#
+ #{forms 2116}#)))
+ #{ids 2066}#
+ #{labels 2067}#
+ #{var-ids 2068}#
+ #{vars 2069}#
+ #{vals 2070}#
+ #{bindings 2071}#)))
+ (if (null? #{ids 2066}#)
+ (#{build-sequence 293}#
+ #f
+ (map (lambda (#{x 2132}#)
+ (#{chi 419}#
+ (cdr #{x 2132}#)
+ (car #{x 2132}#)
+ '(())
+ #{mod 2084}#))
+ (cons (cons #{er 2077}#
+ (#{source-wrap 407}#
+ #{e 2081}#
+ #{w 2082}#
+ #{s 2083}#
+ #{mod 2084}#))
+ (cdr #{body 2065}#))))
+ (begin
+ (if (not (#{valid-bound-ids? 399}#
+ #{ids 2066}#))
+ (syntax-violation
+ #f
+ "invalid or duplicate identifier in definition"
+ #{outer-form 2036}#))
+ (letrec*
+ ((#{loop 2139}#
+ (lambda (#{bs 2140}#
+ #{er-cache 2141}#
+ #{r-cache 2142}#)
+ (if (not (null? #{bs 2140}#))
+ (begin
+ (let ((#{b 2145}#
+ (car #{bs 2140}#)))
+ (if (eq? (car #{b 2145}#)
+ 'macro)
+ (begin
+ (let ((#{er 2148}#
+ (car (cdr #{b 2145}#))))
+ (begin
+ (let ((#{r-cache 2150}#
+ (if (eq? #{er 2148}#
+ #{er-cache 2141}#)
+ #{r-cache 2142}#
+ (#{macros-only-env 331}#
+ #{er 2148}#))))
+ (begin
+ (set-cdr!
+ #{b 2145}#
+ (#{eval-local-transformer 431}#
+ (#{chi 419}#
+ (cdr (cdr #{b 2145}#))
+ #{r-cache 2150}#
+ '(())
+ #{mod 2084}#)
+ #{mod 2084}#))
+ (#{loop 2139}#
+ (cdr #{bs 2140}#)
+ #{er 2148}#
+ #{r-cache 2150}#))))))
+ (#{loop 2139}#
+ (cdr #{bs 2140}#)
+ #{er-cache 2141}#
+ #{r-cache 2142}#))))))))
+ (begin
+ (#{loop 2139}#
+ #{bindings 2071}#
+ #f
+ #f)))
+ (set-cdr!
+ #{r 2047}#
+ (#{extend-env 327}#
+ #{labels 2067}#
+ #{bindings 2071}#
+ (cdr #{r 2047}#)))
+ (#{build-letrec 299}#
+ #f
+ #t
+ (reverse
+ (map syntax->datum
+ #{var-ids 2068}#))
+ (reverse #{vars 2069}#)
+ (map (lambda (#{x 2153}#)
+ (#{chi 419}#
+ (cdr #{x 2153}#)
+ (car #{x 2153}#)
+ '(())
+ #{mod 2084}#))
+ (reverse #{vals 2070}#))
+ (#{build-sequence 293}#
+ #f
+ (map (lambda (#{x 2157}#)
+ (#{chi 419}#
+ (cdr #{x 2157}#)
+ (car #{x 2157}#)
+ '(())
+ #{mod 2084}#))
+ (cons (cons #{er 2077}#
+ (#{source-wrap 407}#
+ #{e 2081}#
+ #{w 2082}#
+ #{s 2083}#
+ #{mod 2084}#))
+ (cdr #{body 2065}#)))))))))))))))))))
+ (begin
+ (#{parse 2064}#
+ (map (lambda (#{x 2072}#)
+ (cons #{r 2047}#
+ (#{wrap 405}#
+ #{x 2072}#
+ #{w 2052}#
+ #{mod 2039}#)))
+ #{body 2035}#)
+ '()
+ '()
+ '()
+ '()
+ '()
+ '())))))))))))
+ (#{chi-local-syntax 429}#
+ (lambda (#{rec? 2160}#
+ #{e 2161}#
+ #{r 2162}#
+ #{w 2163}#
+ #{s 2164}#
+ #{mod 2165}#
+ #{k 2166}#)
+ (let ((#{tmp 2174}# #{e 2161}#))
+ (let ((#{tmp 2175}#
+ ($sc-dispatch
+ #{tmp 2174}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 2175}#
+ (@apply
+ (lambda (#{id 2180}#
+ #{val 2181}#
+ #{e1 2182}#
+ #{e2 2183}#)
+ (begin
+ (let ((#{ids 2185}# #{id 2180}#))
+ (if (not (#{valid-bound-ids? 399}# #{ids 2185}#))
+ (syntax-violation
+ #f
+ "duplicate bound keyword"
+ #{e 2161}#)
+ (begin
+ (let ((#{labels 2188}#
+ (#{gen-labels 354}# #{ids 2185}#)))
+ (begin
+ (let ((#{new-w 2190}#
+ (#{make-binding-wrap 383}#
+ #{ids 2185}#
+ #{labels 2188}#
+ #{w 2163}#)))
+ (#{k 2166}#
+ (cons #{e1 2182}# #{e2 2183}#)
+ (#{extend-env 327}#
+ #{labels 2188}#
+ (begin
+ (let ((#{w 2194}#
+ (if #{rec? 2160}#
+ #{new-w 2190}#
+ #{w 2163}#))
+ (#{trans-r 2195}#
+ (#{macros-only-env 331}#
+ #{r 2162}#)))
+ (map (lambda (#{x 2196}#)
+ (cons 'macro
+ (#{eval-local-transformer 431}#
+ (#{chi 419}#
+ #{x 2196}#
+ #{trans-r 2195}#
+ #{w 2194}#
+ #{mod 2165}#)
+ #{mod 2165}#)))
+ #{val 2181}#)))
+ #{r 2162}#)
+ #{new-w 2190}#
+ #{s 2164}#
+ #{mod 2165}#)))))))))
+ #{tmp 2175}#)
+ (let ((#{_ 2201}# #{tmp 2174}#))
+ (syntax-violation
+ #f
+ "bad local syntax definition"
+ (#{source-wrap 407}#
+ #{e 2161}#
+ #{w 2163}#
+ #{s 2164}#
+ #{mod 2165}#))))))))
+ (#{eval-local-transformer 431}#
+ (lambda (#{expanded 2202}# #{mod 2203}#)
+ (begin
+ (let ((#{p 2207}#
+ (#{local-eval-hook 252}#
+ #{expanded 2202}#
+ #{mod 2203}#)))
+ (if (procedure? #{p 2207}#)
+ #{p 2207}#
+ (syntax-violation
+ #f
+ "nonprocedure transformer"
+ #{p 2207}#))))))
+ (#{chi-void 433}#
+ (lambda () (#{build-void 263}# #f)))
+ (#{ellipsis? 435}#
+ (lambda (#{x 2209}#)
+ (if (#{nonsymbol-id? 337}# #{x 2209}#)
+ (#{free-id=? 395}#
+ #{x 2209}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2210"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ #f)))
+ (#{lambda-formals 437}#
+ (lambda (#{orig-args 2213}#)
+ (letrec*
+ ((#{req 2216}#
+ (lambda (#{args 2219}# #{rreq 2220}#)
+ (let ((#{tmp 2223}# #{args 2219}#))
+ (let ((#{tmp 2224}# ($sc-dispatch #{tmp 2223}# '())))
+ (if #{tmp 2224}#
+ (@apply
+ (lambda ()
+ (#{check 2218}# (reverse #{rreq 2220}#) #f))
+ #{tmp 2224}#)
+ (let ((#{tmp 2225}#
+ ($sc-dispatch #{tmp 2223}# '(any . any))))
+ (if (if #{tmp 2225}#
+ (@apply
+ (lambda (#{a 2228}# #{b 2229}#)
+ (#{id? 339}# #{a 2228}#))
+ #{tmp 2225}#)
+ #f)
+ (@apply
+ (lambda (#{a 2232}# #{b 2233}#)
+ (#{req 2216}#
+ #{b 2233}#
+ (cons #{a 2232}# #{rreq 2220}#)))
+ #{tmp 2225}#)
+ (let ((#{tmp 2234}# (list #{tmp 2223}#)))
+ (if (if #{tmp 2234}#
+ (@apply
+ (lambda (#{r 2236}#)
+ (#{id? 339}# #{r 2236}#))
+ #{tmp 2234}#)
+ #f)
+ (@apply
+ (lambda (#{r 2238}#)
+ (#{check 2218}#
+ (reverse #{rreq 2220}#)
+ #{r 2238}#))
+ #{tmp 2234}#)
+ (let ((#{else 2240}# #{tmp 2223}#))
+ (syntax-violation
+ 'lambda
+ "invalid argument list"
+ #{orig-args 2213}#
+ #{args 2219}#)))))))))))
+ (#{check 2218}#
+ (lambda (#{req 2241}# #{rest 2242}#)
+ (if (#{distinct-bound-ids? 401}#
+ (if #{rest 2242}#
+ (cons #{rest 2242}# #{req 2241}#)
+ #{req 2241}#))
+ (values #{req 2241}# #f #{rest 2242}# #f)
+ (syntax-violation
+ 'lambda
+ "duplicate identifier in argument list"
+ #{orig-args 2213}#)))))
+ (begin (#{req 2216}# #{orig-args 2213}# '())))))
+ (#{chi-simple-lambda 439}#
+ (lambda (#{e 2248}#
+ #{r 2249}#
+ #{w 2250}#
+ #{s 2251}#
+ #{mod 2252}#
+ #{req 2253}#
+ #{rest 2254}#
+ #{meta 2255}#
+ #{body 2256}#)
+ (begin
+ (let ((#{ids 2268}#
+ (if #{rest 2254}#
+ (append #{req 2253}# (list #{rest 2254}#))
+ #{req 2253}#)))
+ (begin
+ (let ((#{vars 2270}#
+ (map #{gen-var 447}# #{ids 2268}#)))
+ (begin
+ (let ((#{labels 2272}#
+ (#{gen-labels 354}# #{ids 2268}#)))
+ (#{build-simple-lambda 283}#
+ #{s 2251}#
+ (map syntax->datum #{req 2253}#)
+ (if #{rest 2254}#
+ (syntax->datum #{rest 2254}#)
+ #f)
+ #{vars 2270}#
+ #{meta 2255}#
+ (#{chi-body 427}#
+ #{body 2256}#
+ (#{source-wrap 407}#
+ #{e 2248}#
+ #{w 2250}#
+ #{s 2251}#
+ #{mod 2252}#)
+ (#{extend-var-env 329}#
+ #{labels 2272}#
+ #{vars 2270}#
+ #{r 2249}#)
+ (#{make-binding-wrap 383}#
+ #{ids 2268}#
+ #{labels 2272}#
+ #{w 2250}#)
+ #{mod 2252}#))))))))))
+ (#{lambda*-formals 441}#
+ (lambda (#{orig-args 2275}#)
+ (letrec*
+ ((#{req 2278}#
+ (lambda (#{args 2287}# #{rreq 2288}#)
+ (let ((#{tmp 2291}# #{args 2287}#))
+ (let ((#{tmp 2292}# ($sc-dispatch #{tmp 2291}# '())))
+ (if #{tmp 2292}#
+ (@apply
+ (lambda ()
+ (#{check 2286}#
+ (reverse #{rreq 2288}#)
+ '()
+ #f
+ '()))
+ #{tmp 2292}#)
+ (let ((#{tmp 2293}#
+ ($sc-dispatch #{tmp 2291}# '(any . any))))
+ (if (if #{tmp 2293}#
+ (@apply
+ (lambda (#{a 2296}# #{b 2297}#)
+ (#{id? 339}# #{a 2296}#))
+ #{tmp 2293}#)
+ #f)
+ (@apply
+ (lambda (#{a 2300}# #{b 2301}#)
+ (#{req 2278}#
+ #{b 2301}#
+ (cons #{a 2300}# #{rreq 2288}#)))
+ #{tmp 2293}#)
+ (let ((#{tmp 2302}#
+ ($sc-dispatch #{tmp 2291}# '(any . any))))
+ (if (if #{tmp 2302}#
+ (@apply
+ (lambda (#{a 2305}# #{b 2306}#)
+ (eq? (syntax->datum #{a 2305}#)
+ #:optional))
+ #{tmp 2302}#)
+ #f)
+ (@apply
+ (lambda (#{a 2309}# #{b 2310}#)
+ (#{opt 2280}#
+ #{b 2310}#
+ (reverse #{rreq 2288}#)
+ '()))
+ #{tmp 2302}#)
+ (let ((#{tmp 2311}#
+ ($sc-dispatch #{tmp 2291}# '(any . any))))
+ (if (if #{tmp 2311}#
+ (@apply
+ (lambda (#{a 2314}# #{b 2315}#)
+ (eq? (syntax->datum #{a 2314}#) #:key))
+ #{tmp 2311}#)
+ #f)
+ (@apply
+ (lambda (#{a 2318}# #{b 2319}#)
+ (#{key 2282}#
+ #{b 2319}#
+ (reverse #{rreq 2288}#)
+ '()
+ '()))
+ #{tmp 2311}#)
+ (let ((#{tmp 2320}#
+ ($sc-dispatch
+ #{tmp 2291}#
+ '(any any))))
+ (if (if #{tmp 2320}#
+ (@apply
+ (lambda (#{a 2323}# #{b 2324}#)
+ (eq? (syntax->datum #{a 2323}#)
+ #:rest))
+ #{tmp 2320}#)
+ #f)
+ (@apply
+ (lambda (#{a 2327}# #{b 2328}#)
+ (#{rest 2284}#
+ #{b 2328}#
+ (reverse #{rreq 2288}#)
+ '()
+ '()))
+ #{tmp 2320}#)
+ (let ((#{tmp 2329}# (list #{tmp 2291}#)))
+ (if (if #{tmp 2329}#
+ (@apply
+ (lambda (#{r 2331}#)
+ (#{id? 339}# #{r 2331}#))
+ #{tmp 2329}#)
+ #f)
+ (@apply
+ (lambda (#{r 2333}#)
+ (#{rest 2284}#
+ #{r 2333}#
+ (reverse #{rreq 2288}#)
+ '()
+ '()))
+ #{tmp 2329}#)
+ (let ((#{else 2335}# #{tmp 2291}#))
+ (syntax-violation
+ 'lambda*
+ "invalid argument list"
+ #{orig-args 2275}#
+ #{args 2287}#)))))))))))))))))
+ (#{opt 2280}#
+ (lambda (#{args 2336}# #{req 2337}# #{ropt 2338}#)
+ (let ((#{tmp 2342}# #{args 2336}#))
+ (let ((#{tmp 2343}# ($sc-dispatch #{tmp 2342}# '())))
+ (if #{tmp 2343}#
+ (@apply
+ (lambda ()
+ (#{check 2286}#
+ #{req 2337}#
+ (reverse #{ropt 2338}#)
+ #f
+ '()))
+ #{tmp 2343}#)
+ (let ((#{tmp 2344}#
+ ($sc-dispatch #{tmp 2342}# '(any . any))))
+ (if (if #{tmp 2344}#
+ (@apply
+ (lambda (#{a 2347}# #{b 2348}#)
+ (#{id? 339}# #{a 2347}#))
+ #{tmp 2344}#)
+ #f)
+ (@apply
+ (lambda (#{a 2351}# #{b 2352}#)
+ (#{opt 2280}#
+ #{b 2352}#
+ #{req 2337}#
+ (cons (cons #{a 2351}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2349" "i2350"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req ropt)
+ #((top) (top) (top))
+ #("i2339" "i2340" "i2341"))
+ #(ribcage
+ (check rest key opt req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2285"
+ "i2283"
+ "i2281"
+ "i2279"
+ "i2277"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2276"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))))
+ #{ropt 2338}#)))
+ #{tmp 2344}#)
+ (let ((#{tmp 2353}#
+ ($sc-dispatch
+ #{tmp 2342}#
+ '((any any) . any))))
+ (if (if #{tmp 2353}#
+ (@apply
+ (lambda (#{a 2357}# #{init 2358}# #{b 2359}#)
+ (#{id? 339}# #{a 2357}#))
+ #{tmp 2353}#)
+ #f)
+ (@apply
+ (lambda (#{a 2363}# #{init 2364}# #{b 2365}#)
+ (#{opt 2280}#
+ #{b 2365}#
+ #{req 2337}#
+ (cons (list #{a 2363}# #{init 2364}#)
+ #{ropt 2338}#)))
+ #{tmp 2353}#)
+ (let ((#{tmp 2366}#
+ ($sc-dispatch #{tmp 2342}# '(any . any))))
+ (if (if #{tmp 2366}#
+ (@apply
+ (lambda (#{a 2369}# #{b 2370}#)
+ (eq? (syntax->datum #{a 2369}#) #:key))
+ #{tmp 2366}#)
+ #f)
+ (@apply
+ (lambda (#{a 2373}# #{b 2374}#)
+ (#{key 2282}#
+ #{b 2374}#
+ #{req 2337}#
+ (reverse #{ropt 2338}#)
+ '()))
+ #{tmp 2366}#)
+ (let ((#{tmp 2375}#
+ ($sc-dispatch
+ #{tmp 2342}#
+ '(any any))))
+ (if (if #{tmp 2375}#
+ (@apply
+ (lambda (#{a 2378}# #{b 2379}#)
+ (eq? (syntax->datum #{a 2378}#)
+ #:rest))
+ #{tmp 2375}#)
+ #f)
+ (@apply
+ (lambda (#{a 2382}# #{b 2383}#)
+ (#{rest 2284}#
+ #{b 2383}#
+ #{req 2337}#
+ (reverse #{ropt 2338}#)
+ '()))
+ #{tmp 2375}#)
+ (let ((#{tmp 2384}# (list #{tmp 2342}#)))
+ (if (if #{tmp 2384}#
+ (@apply
+ (lambda (#{r 2386}#)
+ (#{id? 339}# #{r 2386}#))
+ #{tmp 2384}#)
+ #f)
+ (@apply
+ (lambda (#{r 2388}#)
+ (#{rest 2284}#
+ #{r 2388}#
+ #{req 2337}#
+ (reverse #{ropt 2338}#)
+ '()))
+ #{tmp 2384}#)
+ (let ((#{else 2390}# #{tmp 2342}#))
+ (syntax-violation
+ 'lambda*
+ "invalid optional argument list"
+ #{orig-args 2275}#
+ #{args 2336}#)))))))))))))))))
+ (#{key 2282}#
+ (lambda (#{args 2391}#
+ #{req 2392}#
+ #{opt 2393}#
+ #{rkey 2394}#)
+ (let ((#{tmp 2399}# #{args 2391}#))
+ (let ((#{tmp 2400}# ($sc-dispatch #{tmp 2399}# '())))
+ (if #{tmp 2400}#
+ (@apply
+ (lambda ()
+ (#{check 2286}#
+ #{req 2392}#
+ #{opt 2393}#
+ #f
+ (cons #f (reverse #{rkey 2394}#))))
+ #{tmp 2400}#)
+ (let ((#{tmp 2401}#
+ ($sc-dispatch #{tmp 2399}# '(any . any))))
+ (if (if #{tmp 2401}#
+ (@apply
+ (lambda (#{a 2404}# #{b 2405}#)
+ (#{id? 339}# #{a 2404}#))
+ #{tmp 2401}#)
+ #f)
+ (@apply
+ (lambda (#{a 2408}# #{b 2409}#)
+ (let ((#{tmp 2411}#
+ (symbol->keyword
+ (syntax->datum #{a 2408}#))))
+ (let ((#{k 2413}# #{tmp 2411}#))
+ (#{key 2282}#
+ #{b 2409}#
+ #{req 2392}#
+ #{opt 2393}#
+ (cons (cons #{k 2413}#
+ (cons #{a 2408}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(k)
+ #((top))
+ #("i2412"))
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2406" "i2407"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req opt rkey)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i2395"
+ "i2396"
+ "i2397"
+ "i2398"))
+ #(ribcage
+ (check rest
+ key
+ opt
+ req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2285"
+ "i2283"
+ "i2281"
+ "i2279"
+ "i2277"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2276"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile)))))
+ #{rkey 2394}#)))))
+ #{tmp 2401}#)
+ (let ((#{tmp 2414}#
+ ($sc-dispatch
+ #{tmp 2399}#
+ '((any any) . any))))
+ (if (if #{tmp 2414}#
+ (@apply
+ (lambda (#{a 2418}# #{init 2419}# #{b 2420}#)
+ (#{id? 339}# #{a 2418}#))
+ #{tmp 2414}#)
+ #f)
+ (@apply
+ (lambda (#{a 2424}# #{init 2425}# #{b 2426}#)
+ (let ((#{tmp 2428}#
+ (symbol->keyword
+ (syntax->datum #{a 2424}#))))
+ (let ((#{k 2430}# #{tmp 2428}#))
+ (#{key 2282}#
+ #{b 2426}#
+ #{req 2392}#
+ #{opt 2393}#
+ (cons (list #{k 2430}#
+ #{a 2424}#
+ #{init 2425}#)
+ #{rkey 2394}#)))))
+ #{tmp 2414}#)
+ (let ((#{tmp 2431}#
+ ($sc-dispatch
+ #{tmp 2399}#
+ '((any any any) . any))))
+ (if (if #{tmp 2431}#
+ (@apply
+ (lambda (#{a 2436}#
+ #{init 2437}#
+ #{k 2438}#
+ #{b 2439}#)
+ (if (#{id? 339}# #{a 2436}#)
+ (keyword? (syntax->datum #{k 2438}#))
+ #f))
+ #{tmp 2431}#)
+ #f)
+ (@apply
+ (lambda (#{a 2446}#
+ #{init 2447}#
+ #{k 2448}#
+ #{b 2449}#)
+ (#{key 2282}#
+ #{b 2449}#
+ #{req 2392}#
+ #{opt 2393}#
+ (cons (list #{k 2448}#
+ #{a 2446}#
+ #{init 2447}#)
+ #{rkey 2394}#)))
+ #{tmp 2431}#)
+ (let ((#{tmp 2450}#
+ ($sc-dispatch #{tmp 2399}# '(any))))
+ (if (if #{tmp 2450}#
+ (@apply
+ (lambda (#{aok 2452}#)
+ (eq? (syntax->datum #{aok 2452}#)
+ #:allow-other-keys))
+ #{tmp 2450}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2454}#)
+ (#{check 2286}#
+ #{req 2392}#
+ #{opt 2393}#
+ #f
+ (cons #t (reverse #{rkey 2394}#))))
+ #{tmp 2450}#)
+ (let ((#{tmp 2455}#
+ ($sc-dispatch
+ #{tmp 2399}#
+ '(any any any))))
+ (if (if #{tmp 2455}#
+ (@apply
+ (lambda (#{aok 2459}#
+ #{a 2460}#
+ #{b 2461}#)
+ (if (eq? (syntax->datum
+ #{aok 2459}#)
+ #:allow-other-keys)
+ (eq? (syntax->datum
+ #{a 2460}#)
+ #:rest)
+ #f))
+ #{tmp 2455}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2467}#
+ #{a 2468}#
+ #{b 2469}#)
+ (#{rest 2284}#
+ #{b 2469}#
+ #{req 2392}#
+ #{opt 2393}#
+ (cons #t
+ (reverse #{rkey 2394}#))))
+ #{tmp 2455}#)
+ (let ((#{tmp 2470}#
+ ($sc-dispatch
+ #{tmp 2399}#
+ '(any . any))))
+ (if (if #{tmp 2470}#
+ (@apply
+ (lambda (#{aok 2473}#
+ #{r 2474}#)
+ (if (eq? (syntax->datum
+ #{aok 2473}#)
+ #:allow-other-keys)
+ (#{id? 339}# #{r 2474}#)
+ #f))
+ #{tmp 2470}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2479}# #{r 2480}#)
+ (#{rest 2284}#
+ #{r 2480}#
+ #{req 2392}#
+ #{opt 2393}#
+ (cons #t
+ (reverse
+ #{rkey 2394}#))))
+ #{tmp 2470}#)
+ (let ((#{tmp 2481}#
+ ($sc-dispatch
+ #{tmp 2399}#
+ '(any any))))
+ (if (if #{tmp 2481}#
+ (@apply
+ (lambda (#{a 2484}#
+ #{b 2485}#)
+ (eq? (syntax->datum
+ #{a 2484}#)
+ #:rest))
+ #{tmp 2481}#)
+ #f)
+ (@apply
+ (lambda (#{a 2488}#
+ #{b 2489}#)
+ (#{rest 2284}#
+ #{b 2489}#
+ #{req 2392}#
+ #{opt 2393}#
+ (cons #f
+ (reverse
+ #{rkey 2394}#))))
+ #{tmp 2481}#)
+ (let ((#{tmp 2490}#
+ (list #{tmp 2399}#)))
+ (if (if #{tmp 2490}#
+ (@apply
+ (lambda (#{r 2492}#)
+ (#{id? 339}#
+ #{r 2492}#))
+ #{tmp 2490}#)
+ #f)
+ (@apply
+ (lambda (#{r 2494}#)
+ (#{rest 2284}#
+ #{r 2494}#
+ #{req 2392}#
+ #{opt 2393}#
+ (cons #f
+ (reverse
+ #{rkey 2394}#))))
+ #{tmp 2490}#)
+ (let ((#{else 2496}#
+ #{tmp 2399}#))
+ (syntax-violation
+ 'lambda*
+ "invalid keyword argument list"
+ #{orig-args 2275}#
+ #{args 2391}#)))))))))))))))))))))))
+ (#{rest 2284}#
+ (lambda (#{args 2497}#
+ #{req 2498}#
+ #{opt 2499}#
+ #{kw 2500}#)
+ (let ((#{tmp 2505}# #{args 2497}#))
+ (let ((#{tmp 2506}# (list #{tmp 2505}#)))
+ (if (if #{tmp 2506}#
+ (@apply
+ (lambda (#{r 2508}#) (#{id? 339}# #{r 2508}#))
+ #{tmp 2506}#)
+ #f)
+ (@apply
+ (lambda (#{r 2510}#)
+ (#{check 2286}#
+ #{req 2498}#
+ #{opt 2499}#
+ #{r 2510}#
+ #{kw 2500}#))
+ #{tmp 2506}#)
+ (let ((#{else 2512}# #{tmp 2505}#))
+ (syntax-violation
+ 'lambda*
+ "invalid rest argument"
+ #{orig-args 2275}#
+ #{args 2497}#)))))))
+ (#{check 2286}#
+ (lambda (#{req 2513}#
+ #{opt 2514}#
+ #{rest 2515}#
+ #{kw 2516}#)
+ (if (#{distinct-bound-ids? 401}#
+ (append
+ #{req 2513}#
+ (map car #{opt 2514}#)
+ (if #{rest 2515}# (list #{rest 2515}#) '())
+ (if (pair? #{kw 2516}#)
+ (map cadr (cdr #{kw 2516}#))
+ '())))
+ (values
+ #{req 2513}#
+ #{opt 2514}#
+ #{rest 2515}#
+ #{kw 2516}#)
+ (syntax-violation
+ 'lambda*
+ "duplicate identifier in argument list"
+ #{orig-args 2275}#)))))
+ (begin (#{req 2278}# #{orig-args 2275}# '())))))
+ (#{chi-lambda-case 443}#
+ (lambda (#{e 2524}#
+ #{r 2525}#
+ #{w 2526}#
+ #{s 2527}#
+ #{mod 2528}#
+ #{get-formals 2529}#
+ #{clauses 2530}#)
+ (letrec*
+ ((#{expand-req 2539}#
+ (lambda (#{req 2546}#
+ #{opt 2547}#
+ #{rest 2548}#
+ #{kw 2549}#
+ #{body 2550}#)
+ (begin
+ (let ((#{vars 2558}#
+ (map #{gen-var 447}# #{req 2546}#))
+ (#{labels 2559}#
+ (#{gen-labels 354}# #{req 2546}#)))
+ (begin
+ (let ((#{r* 2562}#
+ (#{extend-var-env 329}#
+ #{labels 2559}#
+ #{vars 2558}#
+ #{r 2525}#))
+ (#{w* 2563}#
+ (#{make-binding-wrap 383}#
+ #{req 2546}#
+ #{labels 2559}#
+ #{w 2526}#)))
+ (#{expand-opt 2541}#
+ (map syntax->datum #{req 2546}#)
+ #{opt 2547}#
+ #{rest 2548}#
+ #{kw 2549}#
+ #{body 2550}#
+ (reverse #{vars 2558}#)
+ #{r* 2562}#
+ #{w* 2563}#
+ '()
+ '())))))))
+ (#{expand-opt 2541}#
+ (lambda (#{req 2564}#
+ #{opt 2565}#
+ #{rest 2566}#
+ #{kw 2567}#
+ #{body 2568}#
+ #{vars 2569}#
+ #{r* 2570}#
+ #{w* 2571}#
+ #{out 2572}#
+ #{inits 2573}#)
+ (if (pair? #{opt 2565}#)
+ (let ((#{tmp 2586}# (car #{opt 2565}#)))
+ (let ((#{tmp 2587}#
+ ($sc-dispatch #{tmp 2586}# '(any any))))
+ (if #{tmp 2587}#
+ (@apply
+ (lambda (#{id 2590}# #{i 2591}#)
+ (begin
+ (let ((#{v 2594}# (#{gen-var 447}# #{id 2590}#)))
+ (begin
+ (let ((#{l 2596}#
+ (#{gen-labels 354}#
+ (list #{v 2594}#))))
+ (begin
+ (let ((#{r** 2598}#
+ (#{extend-var-env 329}#
+ #{l 2596}#
+ (list #{v 2594}#)
+ #{r* 2570}#)))
+ (begin
+ (let ((#{w** 2600}#
+ (#{make-binding-wrap 383}#
+ (list #{id 2590}#)
+ #{l 2596}#
+ #{w* 2571}#)))
+ (#{expand-opt 2541}#
+ #{req 2564}#
+ (cdr #{opt 2565}#)
+ #{rest 2566}#
+ #{kw 2567}#
+ #{body 2568}#
+ (cons #{v 2594}# #{vars 2569}#)
+ #{r** 2598}#
+ #{w** 2600}#
+ (cons (syntax->datum #{id 2590}#)
+ #{out 2572}#)
+ (cons (#{chi 419}#
+ #{i 2591}#
+ #{r* 2570}#
+ #{w* 2571}#
+ #{mod 2528}#)
+ #{inits 2573}#)))))))))))
+ #{tmp 2587}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2586}#))))
+ (if #{rest 2566}#
+ (begin
+ (let ((#{v 2605}# (#{gen-var 447}# #{rest 2566}#)))
+ (begin
+ (let ((#{l 2607}#
+ (#{gen-labels 354}# (list #{v 2605}#))))
+ (begin
+ (let ((#{r* 2609}#
+ (#{extend-var-env 329}#
+ #{l 2607}#
+ (list #{v 2605}#)
+ #{r* 2570}#)))
+ (begin
+ (let ((#{w* 2611}#
+ (#{make-binding-wrap 383}#
+ (list #{rest 2566}#)
+ #{l 2607}#
+ #{w* 2571}#)))
+ (#{expand-kw 2543}#
+ #{req 2564}#
+ (if (pair? #{out 2572}#)
+ (reverse #{out 2572}#)
+ #f)
+ (syntax->datum #{rest 2566}#)
+ (if (pair? #{kw 2567}#)
+ (cdr #{kw 2567}#)
+ #{kw 2567}#)
+ #{body 2568}#
+ (cons #{v 2605}# #{vars 2569}#)
+ #{r* 2609}#
+ #{w* 2611}#
+ (if (pair? #{kw 2567}#)
+ (car #{kw 2567}#)
+ #f)
+ '()
+ #{inits 2573}#)))))))))
+ (#{expand-kw 2543}#
+ #{req 2564}#
+ (if (pair? #{out 2572}#)
+ (reverse #{out 2572}#)
+ #f)
+ #f
+ (if (pair? #{kw 2567}#)
+ (cdr #{kw 2567}#)
+ #{kw 2567}#)
+ #{body 2568}#
+ #{vars 2569}#
+ #{r* 2570}#
+ #{w* 2571}#
+ (if (pair? #{kw 2567}#) (car #{kw 2567}#) #f)
+ '()
+ #{inits 2573}#)))))
+ (#{expand-kw 2543}#
+ (lambda (#{req 2613}#
+ #{opt 2614}#
+ #{rest 2615}#
+ #{kw 2616}#
+ #{body 2617}#
+ #{vars 2618}#
+ #{r* 2619}#
+ #{w* 2620}#
+ #{aok 2621}#
+ #{out 2622}#
+ #{inits 2623}#)
+ (if (pair? #{kw 2616}#)
+ (let ((#{tmp 2637}# (car #{kw 2616}#)))
+ (let ((#{tmp 2638}#
+ ($sc-dispatch #{tmp 2637}# '(any any any))))
+ (if #{tmp 2638}#
+ (@apply
+ (lambda (#{k 2642}# #{id 2643}# #{i 2644}#)
+ (begin
+ (let ((#{v 2647}# (#{gen-var 447}# #{id 2643}#)))
+ (begin
+ (let ((#{l 2649}#
+ (#{gen-labels 354}#
+ (list #{v 2647}#))))
+ (begin
+ (let ((#{r** 2651}#
+ (#{extend-var-env 329}#
+ #{l 2649}#
+ (list #{v 2647}#)
+ #{r* 2619}#)))
+ (begin
+ (let ((#{w** 2653}#
+ (#{make-binding-wrap 383}#
+ (list #{id 2643}#)
+ #{l 2649}#
+ #{w* 2620}#)))
+ (#{expand-kw 2543}#
+ #{req 2613}#
+ #{opt 2614}#
+ #{rest 2615}#
+ (cdr #{kw 2616}#)
+ #{body 2617}#
+ (cons #{v 2647}# #{vars 2618}#)
+ #{r** 2651}#
+ #{w** 2653}#
+ #{aok 2621}#
+ (cons (list (syntax->datum
+ #{k 2642}#)
+ (syntax->datum
+ #{id 2643}#)
+ #{v 2647}#)
+ #{out 2622}#)
+ (cons (#{chi 419}#
+ #{i 2644}#
+ #{r* 2619}#
+ #{w* 2620}#
+ #{mod 2528}#)
+ #{inits 2623}#)))))))))))
+ #{tmp 2638}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2637}#))))
+ (#{expand-body 2545}#
+ #{req 2613}#
+ #{opt 2614}#
+ #{rest 2615}#
+ (if (begin
+ (let ((#{t 2657}# #{aok 2621}#))
+ (if #{t 2657}# #{t 2657}# (pair? #{out 2622}#))))
+ (cons #{aok 2621}# (reverse #{out 2622}#))
+ #f)
+ #{body 2617}#
+ (reverse #{vars 2618}#)
+ #{r* 2619}#
+ #{w* 2620}#
+ (reverse #{inits 2623}#)
+ '()))))
+ (#{expand-body 2545}#
+ (lambda (#{req 2659}#
+ #{opt 2660}#
+ #{rest 2661}#
+ #{kw 2662}#
+ #{body 2663}#
+ #{vars 2664}#
+ #{r* 2665}#
+ #{w* 2666}#
+ #{inits 2667}#
+ #{meta 2668}#)
+ (let ((#{tmp 2679}# #{body 2663}#))
+ (let ((#{tmp 2680}#
+ ($sc-dispatch #{tmp 2679}# '(any any . each-any))))
+ (if (if #{tmp 2680}#
+ (@apply
+ (lambda (#{docstring 2684}# #{e1 2685}# #{e2 2686}#)
+ (string? (syntax->datum #{docstring 2684}#)))
+ #{tmp 2680}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 2690}# #{e1 2691}# #{e2 2692}#)
+ (#{expand-body 2545}#
+ #{req 2659}#
+ #{opt 2660}#
+ #{rest 2661}#
+ #{kw 2662}#
+ (cons #{e1 2691}# #{e2 2692}#)
+ #{vars 2664}#
+ #{r* 2665}#
+ #{w* 2666}#
+ #{inits 2667}#
+ (append
+ #{meta 2668}#
+ (list (cons 'documentation
+ (syntax->datum #{docstring 2690}#))))))
+ #{tmp 2680}#)
+ (let ((#{tmp 2695}#
+ ($sc-dispatch
+ #{tmp 2679}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 2695}#
+ (@apply
+ (lambda (#{k 2700}#
+ #{v 2701}#
+ #{e1 2702}#
+ #{e2 2703}#)
+ (#{expand-body 2545}#
+ #{req 2659}#
+ #{opt 2660}#
+ #{rest 2661}#
+ #{kw 2662}#
+ (cons #{e1 2702}# #{e2 2703}#)
+ #{vars 2664}#
+ #{r* 2665}#
+ #{w* 2666}#
+ #{inits 2667}#
+ (append
+ #{meta 2668}#
+ (syntax->datum
+ (map cons #{k 2700}# #{v 2701}#)))))
+ #{tmp 2695}#)
+ (let ((#{tmp 2707}#
+ ($sc-dispatch #{tmp 2679}# '(any . each-any))))
+ (if #{tmp 2707}#
+ (@apply
+ (lambda (#{e1 2710}# #{e2 2711}#)
+ (values
+ #{meta 2668}#
+ #{req 2659}#
+ #{opt 2660}#
+ #{rest 2661}#
+ #{kw 2662}#
+ #{inits 2667}#
+ #{vars 2664}#
+ (#{chi-body 427}#
+ (cons #{e1 2710}# #{e2 2711}#)
+ (#{source-wrap 407}#
+ #{e 2524}#
+ #{w 2526}#
+ #{s 2527}#
+ #{mod 2528}#)
+ #{r* 2665}#
+ #{w* 2666}#
+ #{mod 2528}#)))
+ #{tmp 2707}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2679}#)))))))))))
+ (begin
+ (let ((#{tmp 2713}# #{clauses 2530}#))
+ (let ((#{tmp 2714}# ($sc-dispatch #{tmp 2713}# '())))
+ (if #{tmp 2714}#
+ (@apply (lambda () (values '() #f)) #{tmp 2714}#)
+ (let ((#{tmp 2715}#
+ ($sc-dispatch
+ #{tmp 2713}#
+ '((any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 2715}#
+ (@apply
+ (lambda (#{args 2722}#
+ #{e1 2723}#
+ #{e2 2724}#
+ #{args* 2725}#
+ #{e1* 2726}#
+ #{e2* 2727}#)
+ (call-with-values
+ (lambda () (#{get-formals 2529}# #{args 2722}#))
+ (lambda (#{req 2728}#
+ #{opt 2729}#
+ #{rest 2730}#
+ #{kw 2731}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-req 2539}#
+ #{req 2728}#
+ #{opt 2729}#
+ #{rest 2730}#
+ #{kw 2731}#
+ (cons #{e1 2723}# #{e2 2724}#)))
+ (lambda (#{meta 2737}#
+ #{req 2738}#
+ #{opt 2739}#
+ #{rest 2740}#
+ #{kw 2741}#
+ #{inits 2742}#
+ #{vars 2743}#
+ #{body 2744}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 443}#
+ #{e 2524}#
+ #{r 2525}#
+ #{w 2526}#
+ #{s 2527}#
+ #{mod 2528}#
+ #{get-formals 2529}#
+ (map (lambda (#{tmp 2755}#
+ #{tmp 2754}#
+ #{tmp 2753}#)
+ (cons #{tmp 2753}#
+ (cons #{tmp 2754}#
+ #{tmp 2755}#)))
+ #{e2* 2727}#
+ #{e1* 2726}#
+ #{args* 2725}#)))
+ (lambda (#{meta* 2757}# #{else* 2758}#)
+ (values
+ (append #{meta 2737}# #{meta* 2757}#)
+ (#{build-lambda-case 287}#
+ #{s 2527}#
+ #{req 2738}#
+ #{opt 2739}#
+ #{rest 2740}#
+ #{kw 2741}#
+ #{inits 2742}#
+ #{vars 2743}#
+ #{body 2744}#
+ #{else* 2758}#)))))))))
+ #{tmp 2715}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2713}#))))))))))
+ (#{strip 445}#
+ (lambda (#{x 2761}# #{w 2762}#)
+ (if (memq 'top (car #{w 2762}#))
+ #{x 2761}#
+ (letrec*
+ ((#{f 2769}#
+ (lambda (#{x 2770}#)
+ (if (#{syntax-object? 305}# #{x 2770}#)
+ (#{strip 445}#
+ (#{syntax-object-expression 307}# #{x 2770}#)
+ (#{syntax-object-wrap 309}# #{x 2770}#))
+ (if (pair? #{x 2770}#)
+ (begin
+ (let ((#{a 2777}# (#{f 2769}# (car #{x 2770}#)))
+ (#{d 2778}# (#{f 2769}# (cdr #{x 2770}#))))
+ (if (if (eq? #{a 2777}# (car #{x 2770}#))
+ (eq? #{d 2778}# (cdr #{x 2770}#))
+ #f)
+ #{x 2770}#
+ (cons #{a 2777}# #{d 2778}#))))
+ (if (vector? #{x 2770}#)
+ (begin
+ (let ((#{old 2784}# (vector->list #{x 2770}#)))
+ (begin
+ (let ((#{new 2786}# (map #{f 2769}# #{old 2784}#)))
+ (letrec*
+ ((#{lp 2790}#
+ (lambda (#{l1 2791}# #{l2 2792}#)
+ (if (null? #{l1 2791}#)
+ #{x 2770}#
+ (if (eq? (car #{l1 2791}#)
+ (car #{l2 2792}#))
+ (#{lp 2790}#
+ (cdr #{l1 2791}#)
+ (cdr #{l2 2792}#))
+ (list->vector #{new 2786}#))))))
+ (begin
+ (#{lp 2790}# #{old 2784}# #{new 2786}#)))))))
+ #{x 2770}#))))))
+ (begin (#{f 2769}# #{x 2761}#))))))
+ (#{gen-var 447}#
+ (lambda (#{id 2794}#)
+ (begin
+ (let ((#{id 2797}#
+ (if (#{syntax-object? 305}# #{id 2794}#)
+ (#{syntax-object-expression 307}# #{id 2794}#)
+ #{id 2794}#)))
+ (gensym
+ (string-append (symbol->string #{id 2797}#) " "))))))
+ (#{lambda-var-list 449}#
+ (lambda (#{vars 2799}#)
+ (letrec*
+ ((#{lvl 2805}#
+ (lambda (#{vars 2806}# #{ls 2807}# #{w 2808}#)
+ (if (pair? #{vars 2806}#)
+ (#{lvl 2805}#
+ (cdr #{vars 2806}#)
+ (cons (#{wrap 405}# (car #{vars 2806}#) #{w 2808}# #f)
+ #{ls 2807}#)
+ #{w 2808}#)
+ (if (#{id? 339}# #{vars 2806}#)
+ (cons (#{wrap 405}# #{vars 2806}# #{w 2808}# #f)
+ #{ls 2807}#)
+ (if (null? #{vars 2806}#)
+ #{ls 2807}#
+ (if (#{syntax-object? 305}# #{vars 2806}#)
+ (#{lvl 2805}#
+ (#{syntax-object-expression 307}# #{vars 2806}#)
+ #{ls 2807}#
+ (#{join-wraps 387}#
+ #{w 2808}#
+ (#{syntax-object-wrap 309}# #{vars 2806}#)))
+ (cons #{vars 2806}# #{ls 2807}#))))))))
+ (begin (#{lvl 2805}# #{vars 2799}# '() '(())))))))
+ (begin
+ (lambda (#{src 767}# #{name 768}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 2)
+ #{src 767}#
+ #{name 768}#))
+ (lambda (#{x 1145}# #{update 1146}#)
+ (vector-set! #{x 1145}# 1 #{update 1146}#))
+ (lambda (#{x 1149}# #{update 1150}#)
+ (vector-set! #{x 1149}# 2 #{update 1150}#))
+ (lambda (#{x 1153}# #{update 1154}#)
+ (vector-set! #{x 1153}# 3 #{update 1154}#))
+ (lambda (#{x 1234}#)
+ (if (vector? #{x 1234}#)
+ (if (= (vector-length #{x 1234}#) 4)
+ (eq? (vector-ref #{x 1234}# 0) 'ribcage)
+ #f)
+ #f))
+ (begin
+ (#{global-extend 335}#
+ 'local-syntax
+ 'letrec-syntax
+ #t)
+ (#{global-extend 335}#
+ 'local-syntax
+ 'let-syntax
+ #f)
+ (#{global-extend 335}#
+ 'core
+ 'fluid-let-syntax
+ (lambda (#{e 2819}#
+ #{r 2820}#
+ #{w 2821}#
+ #{s 2822}#
+ #{mod 2823}#)
+ (let ((#{tmp 2829}# #{e 2819}#))
+ (let ((#{tmp 2830}#
+ ($sc-dispatch
+ #{tmp 2829}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 2830}#
+ (@apply
+ (lambda (#{var 2835}#
+ #{val 2836}#
+ #{e1 2837}#
+ #{e2 2838}#)
+ (#{valid-bound-ids? 399}# #{var 2835}#))
+ #{tmp 2830}#)
+ #f)
+ (@apply
+ (lambda (#{var 2844}#
+ #{val 2845}#
+ #{e1 2846}#
+ #{e2 2847}#)
+ (begin
+ (let ((#{names 2849}#
+ (map (lambda (#{x 2850}#)
+ (#{id-var-name 393}#
+ #{x 2850}#
+ #{w 2821}#))
+ #{var 2844}#)))
+ (begin
+ (for-each
+ (lambda (#{id 2853}# #{n 2854}#)
+ (begin
+ (let ((#{atom-key 2859}#
+ (car (#{lookup 333}#
+ #{n 2854}#
+ #{r 2820}#
+ #{mod 2823}#))))
+ (if (eqv? #{atom-key 2859}#
+ 'displaced-lexical)
+ (syntax-violation
+ 'fluid-let-syntax
+ "identifier out of context"
+ #{e 2819}#
+ (#{source-wrap 407}#
+ #{id 2853}#
+ #{w 2821}#
+ #{s 2822}#
+ #{mod 2823}#))))))
+ #{var 2844}#
+ #{names 2849}#)
+ (#{chi-body 427}#
+ (cons #{e1 2846}# #{e2 2847}#)
+ (#{source-wrap 407}#
+ #{e 2819}#
+ #{w 2821}#
+ #{s 2822}#
+ #{mod 2823}#)
+ (#{extend-env 327}#
+ #{names 2849}#
+ (begin
+ (let ((#{trans-r 2865}#
+ (#{macros-only-env 331}# #{r 2820}#)))
+ (map (lambda (#{x 2866}#)
+ (cons 'macro
+ (#{eval-local-transformer 431}#
+ (#{chi 419}#
+ #{x 2866}#
+ #{trans-r 2865}#
+ #{w 2821}#
+ #{mod 2823}#)
+ #{mod 2823}#)))
+ #{val 2845}#)))
+ #{r 2820}#)
+ #{w 2821}#
+ #{mod 2823}#)))))
+ #{tmp 2830}#)
+ (let ((#{_ 2871}# #{tmp 2829}#))
+ (syntax-violation
+ 'fluid-let-syntax
+ "bad syntax"
+ (#{source-wrap 407}#
+ #{e 2819}#
+ #{w 2821}#
+ #{s 2822}#
+ #{mod 2823}#))))))))
+ (#{global-extend 335}#
+ 'core
+ 'quote
+ (lambda (#{e 2872}#
+ #{r 2873}#
+ #{w 2874}#
+ #{s 2875}#
+ #{mod 2876}#)
+ (let ((#{tmp 2882}# #{e 2872}#))
+ (let ((#{tmp 2883}#
+ ($sc-dispatch #{tmp 2882}# '(_ any))))
+ (if #{tmp 2883}#
+ (@apply
+ (lambda (#{e 2885}#)
+ (#{build-data 291}#
+ #{s 2875}#
+ (#{strip 445}# #{e 2885}# #{w 2874}#)))
+ #{tmp 2883}#)
+ (let ((#{_ 2887}# #{tmp 2882}#))
+ (syntax-violation
+ 'quote
+ "bad syntax"
+ (#{source-wrap 407}#
+ #{e 2872}#
+ #{w 2874}#
+ #{s 2875}#
+ #{mod 2876}#))))))))
+ (#{global-extend 335}#
+ 'core
+ 'syntax
+ (letrec*
+ ((#{gen-syntax 2889}#
+ (lambda (#{src 2904}#
+ #{e 2905}#
+ #{r 2906}#
+ #{maps 2907}#
+ #{ellipsis? 2908}#
+ #{mod 2909}#)
+ (if (#{id? 339}# #{e 2905}#)
+ (begin
+ (let ((#{label 2917}#
+ (#{id-var-name 393}# #{e 2905}# '(()))))
+ (begin
+ (let ((#{b 2920}#
+ (#{lookup 333}#
+ #{label 2917}#
+ #{r 2906}#
+ #{mod 2909}#)))
+ (if (eq? (car #{b 2920}#) 'syntax)
+ (call-with-values
+ (lambda ()
+ (begin
+ (let ((#{var.lev 2923}# (cdr #{b 2920}#)))
+ (#{gen-ref 2891}#
+ #{src 2904}#
+ (car #{var.lev 2923}#)
+ (cdr #{var.lev 2923}#)
+ #{maps 2907}#))))
+ (lambda (#{var 2925}# #{maps 2926}#)
+ (values
+ (list 'ref #{var 2925}#)
+ #{maps 2926}#)))
+ (if (#{ellipsis? 2908}# #{e 2905}#)
+ (syntax-violation
+ 'syntax
+ "misplaced ellipsis"
+ #{src 2904}#)
+ (values
+ (list 'quote #{e 2905}#)
+ #{maps 2907}#)))))))
+ (let ((#{tmp 2931}# #{e 2905}#))
+ (let ((#{tmp 2932}#
+ ($sc-dispatch #{tmp 2931}# '(any any))))
+ (if (if #{tmp 2932}#
+ (@apply
+ (lambda (#{dots 2935}# #{e 2936}#)
+ (#{ellipsis? 2908}# #{dots 2935}#))
+ #{tmp 2932}#)
+ #f)
+ (@apply
+ (lambda (#{dots 2939}# #{e 2940}#)
+ (#{gen-syntax 2889}#
+ #{src 2904}#
+ #{e 2940}#
+ #{r 2906}#
+ #{maps 2907}#
+ (lambda (#{x 2941}#) #f)
+ #{mod 2909}#))
+ #{tmp 2932}#)
+ (let ((#{tmp 2943}#
+ ($sc-dispatch #{tmp 2931}# '(any any . any))))
+ (if (if #{tmp 2943}#
+ (@apply
+ (lambda (#{x 2947}# #{dots 2948}# #{y 2949}#)
+ (#{ellipsis? 2908}# #{dots 2948}#))
+ #{tmp 2943}#)
+ #f)
+ (@apply
+ (lambda (#{x 2953}# #{dots 2954}# #{y 2955}#)
+ (letrec*
+ ((#{f 2959}#
+ (lambda (#{y 2960}# #{k 2961}#)
+ (let ((#{tmp 2968}# #{y 2960}#))
+ (let ((#{tmp 2969}#
+ ($sc-dispatch
+ #{tmp 2968}#
+ '(any . any))))
+ (if (if #{tmp 2969}#
+ (@apply
+ (lambda (#{dots 2972}#
+ #{y 2973}#)
+ (#{ellipsis? 2908}#
+ #{dots 2972}#))
+ #{tmp 2969}#)
+ #f)
+ (@apply
+ (lambda (#{dots 2976}#
+ #{y 2977}#)
+ (#{f 2959}#
+ #{y 2977}#
+ (lambda (#{maps 2978}#)
+ (call-with-values
+ (lambda ()
+ (#{k 2961}#
+ (cons '()
+ #{maps 2978}#)))
+ (lambda (#{x 2980}#
+ #{maps 2981}#)
+ (if (null? (car #{maps 2981}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 2904}#)
+ (values
+ (#{gen-mappend 2893}#
+ #{x 2980}#
+ (car #{maps 2981}#))
+ (cdr #{maps 2981}#))))))))
+ #{tmp 2969}#)
+ (let ((#{_ 2985}# #{tmp 2968}#))
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2889}#
+ #{src 2904}#
+ #{y 2960}#
+ #{r 2906}#
+ #{maps 2907}#
+ #{ellipsis? 2908}#
+ #{mod 2909}#))
+ (lambda (#{y 2986}#
+ #{maps 2987}#)
+ (call-with-values
+ (lambda ()
+ (#{k 2961}#
+ #{maps 2987}#))
+ (lambda (#{x 2990}#
+ #{maps 2991}#)
+ (values
+ (#{gen-append 2899}#
+ #{x 2990}#
+ #{y 2986}#)
+ #{maps 2991}#))))))))))))
+ (begin
+ (#{f 2959}#
+ #{y 2955}#
+ (lambda (#{maps 2962}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2889}#
+ #{src 2904}#
+ #{x 2953}#
+ #{r 2906}#
+ (cons '() #{maps 2962}#)
+ #{ellipsis? 2908}#
+ #{mod 2909}#))
+ (lambda (#{x 2964}# #{maps 2965}#)
+ (if (null? (car #{maps 2965}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 2904}#)
+ (values
+ (#{gen-map 2895}#
+ #{x 2964}#
+ (car #{maps 2965}#))
+ (cdr #{maps 2965}#))))))))))
+ #{tmp 2943}#)
+ (let ((#{tmp 2994}#
+ ($sc-dispatch #{tmp 2931}# '(any . any))))
+ (if #{tmp 2994}#
+ (@apply
+ (lambda (#{x 2997}# #{y 2998}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2889}#
+ #{src 2904}#
+ #{x 2997}#
+ #{r 2906}#
+ #{maps 2907}#
+ #{ellipsis? 2908}#
+ #{mod 2909}#))
+ (lambda (#{x 2999}# #{maps 3000}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2889}#
+ #{src 2904}#
+ #{y 2998}#
+ #{r 2906}#
+ #{maps 3000}#
+ #{ellipsis? 2908}#
+ #{mod 2909}#))
+ (lambda (#{y 3003}# #{maps 3004}#)
+ (values
+ (#{gen-cons 2897}#
+ #{x 2999}#
+ #{y 3003}#)
+ #{maps 3004}#))))))
+ #{tmp 2994}#)
+ (let ((#{tmp 3007}#
+ ($sc-dispatch
+ #{tmp 2931}#
+ '#(vector (any . each-any)))))
+ (if #{tmp 3007}#
+ (@apply
+ (lambda (#{e1 3010}# #{e2 3011}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2889}#
+ #{src 2904}#
+ (cons #{e1 3010}# #{e2 3011}#)
+ #{r 2906}#
+ #{maps 2907}#
+ #{ellipsis? 2908}#
+ #{mod 2909}#))
+ (lambda (#{e 3013}# #{maps 3014}#)
+ (values
+ (#{gen-vector 2901}# #{e 3013}#)
+ #{maps 3014}#))))
+ #{tmp 3007}#)
+ (let ((#{_ 3018}# #{tmp 2931}#))
+ (values
+ (list 'quote #{e 2905}#)
+ #{maps 2907}#))))))))))))))
+ (#{gen-ref 2891}#
+ (lambda (#{src 3020}#
+ #{var 3021}#
+ #{level 3022}#
+ #{maps 3023}#)
+ (if (= #{level 3022}# 0)
+ (values #{var 3021}# #{maps 3023}#)
+ (if (null? #{maps 3023}#)
+ (syntax-violation
+ 'syntax
+ "missing ellipsis"
+ #{src 3020}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-ref 2891}#
+ #{src 3020}#
+ #{var 3021}#
+ (#{1-}# #{level 3022}#)
+ (cdr #{maps 3023}#)))
+ (lambda (#{outer-var 3030}# #{outer-maps 3031}#)
+ (begin
+ (let ((#{b 3035}#
+ (assq #{outer-var 3030}#
+ (car #{maps 3023}#))))
+ (if #{b 3035}#
+ (values (cdr #{b 3035}#) #{maps 3023}#)
+ (begin
+ (let ((#{inner-var 3037}#
+ (#{gen-var 447}# 'tmp)))
+ (values
+ #{inner-var 3037}#
+ (cons (cons (cons #{outer-var 3030}#
+ #{inner-var 3037}#)
+ (car #{maps 3023}#))
+ #{outer-maps 3031}#)))))))))))))
+ (#{gen-mappend 2893}#
+ (lambda (#{e 3038}# #{map-env 3039}#)
+ (list 'apply
+ '(primitive append)
+ (#{gen-map 2895}# #{e 3038}# #{map-env 3039}#))))
+ (#{gen-map 2895}#
+ (lambda (#{e 3043}# #{map-env 3044}#)
+ (begin
+ (let ((#{formals 3049}# (map cdr #{map-env 3044}#))
+ (#{actuals 3050}#
+ (map (lambda (#{x 3051}#)
+ (list 'ref (car #{x 3051}#)))
+ #{map-env 3044}#)))
+ (if (eq? (car #{e 3043}#) 'ref)
+ (car #{actuals 3050}#)
+ (if (and-map
+ (lambda (#{x 3058}#)
+ (if (eq? (car #{x 3058}#) 'ref)
+ (memq (car (cdr #{x 3058}#)) #{formals 3049}#)
+ #f))
+ (cdr #{e 3043}#))
+ (cons 'map
+ (cons (list 'primitive (car #{e 3043}#))
+ (map (begin
+ (let ((#{r 3064}#
+ (map cons
+ #{formals 3049}#
+ #{actuals 3050}#)))
+ (lambda (#{x 3065}#)
+ (cdr (assq (car (cdr #{x 3065}#))
+ #{r 3064}#)))))
+ (cdr #{e 3043}#))))
+ (cons 'map
+ (cons (list 'lambda #{formals 3049}# #{e 3043}#)
+ #{actuals 3050}#))))))))
+ (#{gen-cons 2897}#
+ (lambda (#{x 3069}# #{y 3070}#)
+ (begin
+ (let ((#{atom-key 3075}# (car #{y 3070}#)))
+ (if (eqv? #{atom-key 3075}# 'quote)
+ (if (eq? (car #{x 3069}#) 'quote)
+ (list 'quote
+ (cons (car (cdr #{x 3069}#))
+ (car (cdr #{y 3070}#))))
+ (if (eq? (car (cdr #{y 3070}#)) '())
+ (list 'list #{x 3069}#)
+ (list 'cons #{x 3069}# #{y 3070}#)))
+ (if (eqv? #{atom-key 3075}# 'list)
+ (cons 'list (cons #{x 3069}# (cdr #{y 3070}#)))
+ (list 'cons #{x 3069}# #{y 3070}#)))))))
+ (#{gen-append 2899}#
+ (lambda (#{x 3084}# #{y 3085}#)
+ (if (equal? #{y 3085}# ''())
+ #{x 3084}#
+ (list 'append #{x 3084}# #{y 3085}#))))
+ (#{gen-vector 2901}#
+ (lambda (#{x 3089}#)
+ (if (eq? (car #{x 3089}#) 'list)
+ (cons 'vector (cdr #{x 3089}#))
+ (if (eq? (car #{x 3089}#) 'quote)
+ (list 'quote
+ (list->vector (car (cdr #{x 3089}#))))
+ (list 'list->vector #{x 3089}#)))))
+ (#{regen 2903}#
+ (lambda (#{x 3099}#)
+ (begin
+ (let ((#{atom-key 3103}# (car #{x 3099}#)))
+ (if (eqv? #{atom-key 3103}# 'ref)
+ (#{build-lexical-reference 271}#
+ 'value
+ #f
+ (car (cdr #{x 3099}#))
+ (car (cdr #{x 3099}#)))
+ (if (eqv? #{atom-key 3103}# 'primitive)
+ (#{build-primref 289}# #f (car (cdr #{x 3099}#)))
+ (if (eqv? #{atom-key 3103}# 'quote)
+ (#{build-data 291}# #f (car (cdr #{x 3099}#)))
+ (if (eqv? #{atom-key 3103}# 'lambda)
+ (if (list? (car (cdr #{x 3099}#)))
+ (#{build-simple-lambda 283}#
+ #f
+ (car (cdr #{x 3099}#))
+ #f
+ (car (cdr #{x 3099}#))
+ '()
+ (#{regen 2903}# (car (cdr (cdr #{x 3099}#)))))
+ (error "how did we get here" #{x 3099}#))
+ (#{build-application 265}#
+ #f
+ (#{build-primref 289}# #f (car #{x 3099}#))
+ (map #{regen 2903}# (cdr #{x 3099}#))))))))))))
+ (begin
+ (lambda (#{e 3115}#
+ #{r 3116}#
+ #{w 3117}#
+ #{s 3118}#
+ #{mod 3119}#)
+ (begin
+ (let ((#{e 3126}#
+ (#{source-wrap 407}#
+ #{e 3115}#
+ #{w 3117}#
+ #{s 3118}#
+ #{mod 3119}#)))
+ (let ((#{tmp 3127}# #{e 3126}#))
+ (let ((#{tmp 3128}#
+ ($sc-dispatch #{tmp 3127}# '(_ any))))
+ (if #{tmp 3128}#
+ (@apply
+ (lambda (#{x 3130}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2889}#
+ #{e 3126}#
+ #{x 3130}#
+ #{r 3116}#
+ '()
+ #{ellipsis? 435}#
+ #{mod 3119}#))
+ (lambda (#{e 3131}# #{maps 3132}#)
+ (#{regen 2903}# #{e 3131}#))))
+ #{tmp 3128}#)
+ (let ((#{_ 3136}# #{tmp 3127}#))
+ (syntax-violation
+ 'syntax
+ "bad `syntax' form"
+ #{e 3126}#)))))))))))
+ (#{global-extend 335}#
+ 'core
+ 'lambda
+ (lambda (#{e 3137}#
+ #{r 3138}#
+ #{w 3139}#
+ #{s 3140}#
+ #{mod 3141}#)
+ (let ((#{tmp 3147}# #{e 3137}#))
+ (let ((#{tmp 3148}#
+ ($sc-dispatch
+ #{tmp 3147}#
+ '(_ any any . each-any))))
+ (if #{tmp 3148}#
+ (@apply
+ (lambda (#{args 3152}# #{e1 3153}# #{e2 3154}#)
+ (call-with-values
+ (lambda ()
+ (#{lambda-formals 437}# #{args 3152}#))
+ (lambda (#{req 3155}#
+ #{opt 3156}#
+ #{rest 3157}#
+ #{kw 3158}#)
+ (letrec*
+ ((#{lp 3166}#
+ (lambda (#{body 3167}# #{meta 3168}#)
+ (let ((#{tmp 3170}# #{body 3167}#))
+ (let ((#{tmp 3171}#
+ ($sc-dispatch
+ #{tmp 3170}#
+ '(any any . each-any))))
+ (if (if #{tmp 3171}#
+ (@apply
+ (lambda (#{docstring 3175}#
+ #{e1 3176}#
+ #{e2 3177}#)
+ (string?
+ (syntax->datum
+ #{docstring 3175}#)))
+ #{tmp 3171}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 3181}#
+ #{e1 3182}#
+ #{e2 3183}#)
+ (#{lp 3166}#
+ (cons #{e1 3182}# #{e2 3183}#)
+ (append
+ #{meta 3168}#
+ (list (cons 'documentation
+ (syntax->datum
+ #{docstring 3181}#))))))
+ #{tmp 3171}#)
+ (let ((#{tmp 3186}#
+ ($sc-dispatch
+ #{tmp 3170}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 3186}#
+ (@apply
+ (lambda (#{k 3191}#
+ #{v 3192}#
+ #{e1 3193}#
+ #{e2 3194}#)
+ (#{lp 3166}#
+ (cons #{e1 3193}# #{e2 3194}#)
+ (append
+ #{meta 3168}#
+ (syntax->datum
+ (map cons
+ #{k 3191}#
+ #{v 3192}#)))))
+ #{tmp 3186}#)
+ (let ((#{_ 3199}# #{tmp 3170}#))
+ (#{chi-simple-lambda 439}#
+ #{e 3137}#
+ #{r 3138}#
+ #{w 3139}#
+ #{s 3140}#
+ #{mod 3141}#
+ #{req 3155}#
+ #{rest 3157}#
+ #{meta 3168}#
+ #{body 3167}#))))))))))
+ (begin
+ (#{lp 3166}#
+ (cons #{e1 3153}# #{e2 3154}#)
+ '()))))))
+ #{tmp 3148}#)
+ (let ((#{_ 3201}# #{tmp 3147}#))
+ (syntax-violation
+ 'lambda
+ "bad lambda"
+ #{e 3137}#)))))))
+ (#{global-extend 335}#
+ 'core
+ 'lambda*
+ (lambda (#{e 3202}#
+ #{r 3203}#
+ #{w 3204}#
+ #{s 3205}#
+ #{mod 3206}#)
+ (let ((#{tmp 3212}# #{e 3202}#))
+ (let ((#{tmp 3213}#
+ ($sc-dispatch
+ #{tmp 3212}#
+ '(_ any any . each-any))))
+ (if #{tmp 3213}#
+ (@apply
+ (lambda (#{args 3217}# #{e1 3218}# #{e2 3219}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 443}#
+ #{e 3202}#
+ #{r 3203}#
+ #{w 3204}#
+ #{s 3205}#
+ #{mod 3206}#
+ #{lambda*-formals 441}#
+ (list (cons #{args 3217}#
+ (cons #{e1 3218}# #{e2 3219}#)))))
+ (lambda (#{meta 3221}# #{lcase 3222}#)
+ (#{build-case-lambda 285}#
+ #{s 3205}#
+ #{meta 3221}#
+ #{lcase 3222}#))))
+ #{tmp 3213}#)
+ (let ((#{_ 3226}# #{tmp 3212}#))
+ (syntax-violation
+ 'lambda
+ "bad lambda*"
+ #{e 3202}#)))))))
+ (#{global-extend 335}#
+ 'core
+ 'case-lambda
+ (lambda (#{e 3227}#
+ #{r 3228}#
+ #{w 3229}#
+ #{s 3230}#
+ #{mod 3231}#)
+ (let ((#{tmp 3237}# #{e 3227}#))
+ (let ((#{tmp 3238}#
+ ($sc-dispatch
+ #{tmp 3237}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 3238}#
+ (@apply
+ (lambda (#{args 3245}#
+ #{e1 3246}#
+ #{e2 3247}#
+ #{args* 3248}#
+ #{e1* 3249}#
+ #{e2* 3250}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 443}#
+ #{e 3227}#
+ #{r 3228}#
+ #{w 3229}#
+ #{s 3230}#
+ #{mod 3231}#
+ #{lambda-formals 437}#
+ (cons (cons #{args 3245}#
+ (cons #{e1 3246}# #{e2 3247}#))
+ (map (lambda (#{tmp 3254}#
+ #{tmp 3253}#
+ #{tmp 3252}#)
+ (cons #{tmp 3252}#
+ (cons #{tmp 3253}# #{tmp 3254}#)))
+ #{e2* 3250}#
+ #{e1* 3249}#
+ #{args* 3248}#))))
+ (lambda (#{meta 3256}# #{lcase 3257}#)
+ (#{build-case-lambda 285}#
+ #{s 3230}#
+ #{meta 3256}#
+ #{lcase 3257}#))))
+ #{tmp 3238}#)
+ (let ((#{_ 3261}# #{tmp 3237}#))
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda"
+ #{e 3227}#)))))))
+ (#{global-extend 335}#
+ 'core
+ 'case-lambda*
+ (lambda (#{e 3262}#
+ #{r 3263}#
+ #{w 3264}#
+ #{s 3265}#
+ #{mod 3266}#)
+ (let ((#{tmp 3272}# #{e 3262}#))
+ (let ((#{tmp 3273}#
+ ($sc-dispatch
+ #{tmp 3272}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 3273}#
+ (@apply
+ (lambda (#{args 3280}#
+ #{e1 3281}#
+ #{e2 3282}#
+ #{args* 3283}#
+ #{e1* 3284}#
+ #{e2* 3285}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 443}#
+ #{e 3262}#
+ #{r 3263}#
+ #{w 3264}#
+ #{s 3265}#
+ #{mod 3266}#
+ #{lambda*-formals 441}#
+ (cons (cons #{args 3280}#
+ (cons #{e1 3281}# #{e2 3282}#))
+ (map (lambda (#{tmp 3289}#
+ #{tmp 3288}#
+ #{tmp 3287}#)
+ (cons #{tmp 3287}#
+ (cons #{tmp 3288}# #{tmp 3289}#)))
+ #{e2* 3285}#
+ #{e1* 3284}#
+ #{args* 3283}#))))
+ (lambda (#{meta 3291}# #{lcase 3292}#)
+ (#{build-case-lambda 285}#
+ #{s 3265}#
+ #{meta 3291}#
+ #{lcase 3292}#))))
+ #{tmp 3273}#)
+ (let ((#{_ 3296}# #{tmp 3272}#))
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ #{e 3262}#)))))))
+ (#{global-extend 335}#
+ 'core
+ 'let
+ (letrec*
+ ((#{chi-let 3298}#
+ (lambda (#{e 3299}#
+ #{r 3300}#
+ #{w 3301}#
+ #{s 3302}#
+ #{mod 3303}#
+ #{constructor 3304}#
+ #{ids 3305}#
+ #{vals 3306}#
+ #{exps 3307}#)
+ (if (not (#{valid-bound-ids? 399}# #{ids 3305}#))
+ (syntax-violation
+ 'let
+ "duplicate bound variable"
+ #{e 3299}#)
+ (begin
+ (let ((#{labels 3319}#
+ (#{gen-labels 354}# #{ids 3305}#))
+ (#{new-vars 3320}#
+ (map #{gen-var 447}# #{ids 3305}#)))
+ (begin
+ (let ((#{nw 3323}#
+ (#{make-binding-wrap 383}#
+ #{ids 3305}#
+ #{labels 3319}#
+ #{w 3301}#))
+ (#{nr 3324}#
+ (#{extend-var-env 329}#
+ #{labels 3319}#
+ #{new-vars 3320}#
+ #{r 3300}#)))
+ (#{constructor 3304}#
+ #{s 3302}#
+ (map syntax->datum #{ids 3305}#)
+ #{new-vars 3320}#
+ (map (lambda (#{x 3325}#)
+ (#{chi 419}#
+ #{x 3325}#
+ #{r 3300}#
+ #{w 3301}#
+ #{mod 3303}#))
+ #{vals 3306}#)
+ (#{chi-body 427}#
+ #{exps 3307}#
+ (#{source-wrap 407}#
+ #{e 3299}#
+ #{nw 3323}#
+ #{s 3302}#
+ #{mod 3303}#)
+ #{nr 3324}#
+ #{nw 3323}#
+ #{mod 3303}#))))))))))
+ (begin
+ (lambda (#{e 3327}#
+ #{r 3328}#
+ #{w 3329}#
+ #{s 3330}#
+ #{mod 3331}#)
+ (let ((#{tmp 3337}# #{e 3327}#))
+ (let ((#{tmp 3338}#
+ ($sc-dispatch
+ #{tmp 3337}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 3338}#
+ (@apply
+ (lambda (#{id 3343}#
+ #{val 3344}#
+ #{e1 3345}#
+ #{e2 3346}#)
+ (and-map #{id? 339}# #{id 3343}#))
+ #{tmp 3338}#)
+ #f)
+ (@apply
+ (lambda (#{id 3352}#
+ #{val 3353}#
+ #{e1 3354}#
+ #{e2 3355}#)
+ (#{chi-let 3298}#
+ #{e 3327}#
+ #{r 3328}#
+ #{w 3329}#
+ #{s 3330}#
+ #{mod 3331}#
+ #{build-let 295}#
+ #{id 3352}#
+ #{val 3353}#
+ (cons #{e1 3354}# #{e2 3355}#)))
+ #{tmp 3338}#)
+ (let ((#{tmp 3359}#
+ ($sc-dispatch
+ #{tmp 3337}#
+ '(_ any #(each (any any)) any . each-any))))
+ (if (if #{tmp 3359}#
+ (@apply
+ (lambda (#{f 3365}#
+ #{id 3366}#
+ #{val 3367}#
+ #{e1 3368}#
+ #{e2 3369}#)
+ (if (#{id? 339}# #{f 3365}#)
+ (and-map #{id? 339}# #{id 3366}#)
+ #f))
+ #{tmp 3359}#)
+ #f)
+ (@apply
+ (lambda (#{f 3378}#
+ #{id 3379}#
+ #{val 3380}#
+ #{e1 3381}#
+ #{e2 3382}#)
+ (#{chi-let 3298}#
+ #{e 3327}#
+ #{r 3328}#
+ #{w 3329}#
+ #{s 3330}#
+ #{mod 3331}#
+ #{build-named-let 297}#
+ (cons #{f 3378}# #{id 3379}#)
+ #{val 3380}#
+ (cons #{e1 3381}# #{e2 3382}#)))
+ #{tmp 3359}#)
+ (let ((#{_ 3387}# #{tmp 3337}#))
+ (syntax-violation
+ 'let
+ "bad let"
+ (#{source-wrap 407}#
+ #{e 3327}#
+ #{w 3329}#
+ #{s 3330}#
+ #{mod 3331}#))))))))))))
+ (#{global-extend 335}#
+ 'core
+ 'letrec
+ (lambda (#{e 3388}#
+ #{r 3389}#
+ #{w 3390}#
+ #{s 3391}#
+ #{mod 3392}#)
+ (let ((#{tmp 3398}# #{e 3388}#))
+ (let ((#{tmp 3399}#
+ ($sc-dispatch
+ #{tmp 3398}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 3399}#
+ (@apply
+ (lambda (#{id 3404}#
+ #{val 3405}#
+ #{e1 3406}#
+ #{e2 3407}#)
+ (and-map #{id? 339}# #{id 3404}#))
+ #{tmp 3399}#)
+ #f)
+ (@apply
+ (lambda (#{id 3413}#
+ #{val 3414}#
+ #{e1 3415}#
+ #{e2 3416}#)
+ (begin
+ (let ((#{ids 3418}# #{id 3413}#))
+ (if (not (#{valid-bound-ids? 399}# #{ids 3418}#))
+ (syntax-violation
+ 'letrec
+ "duplicate bound variable"
+ #{e 3388}#)
+ (begin
+ (let ((#{labels 3422}#
+ (#{gen-labels 354}# #{ids 3418}#))
+ (#{new-vars 3423}#
+ (map #{gen-var 447}# #{ids 3418}#)))
+ (begin
+ (let ((#{w 3426}#
+ (#{make-binding-wrap 383}#
+ #{ids 3418}#
+ #{labels 3422}#
+ #{w 3390}#))
+ (#{r 3427}#
+ (#{extend-var-env 329}#
+ #{labels 3422}#
+ #{new-vars 3423}#
+ #{r 3389}#)))
+ (#{build-letrec 299}#
+ #{s 3391}#
+ #f
+ (map syntax->datum #{ids 3418}#)
+ #{new-vars 3423}#
+ (map (lambda (#{x 3428}#)
+ (#{chi 419}#
+ #{x 3428}#
+ #{r 3427}#
+ #{w 3426}#
+ #{mod 3392}#))
+ #{val 3414}#)
+ (#{chi-body 427}#
+ (cons #{e1 3415}# #{e2 3416}#)
+ (#{source-wrap 407}#
+ #{e 3388}#
+ #{w 3426}#
+ #{s 3391}#
+ #{mod 3392}#)
+ #{r 3427}#
+ #{w 3426}#
+ #{mod 3392}#))))))))))
+ #{tmp 3399}#)
+ (let ((#{_ 3433}# #{tmp 3398}#))
+ (syntax-violation
+ 'letrec
+ "bad letrec"
+ (#{source-wrap 407}#
+ #{e 3388}#
+ #{w 3390}#
+ #{s 3391}#
+ #{mod 3392}#))))))))
+ (#{global-extend 335}#
+ 'core
+ 'letrec*
+ (lambda (#{e 3434}#
+ #{r 3435}#
+ #{w 3436}#
+ #{s 3437}#
+ #{mod 3438}#)
+ (let ((#{tmp 3444}# #{e 3434}#))
+ (let ((#{tmp 3445}#
+ ($sc-dispatch
+ #{tmp 3444}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 3445}#
+ (@apply
+ (lambda (#{id 3450}#
+ #{val 3451}#
+ #{e1 3452}#
+ #{e2 3453}#)
+ (and-map #{id? 339}# #{id 3450}#))
+ #{tmp 3445}#)
+ #f)
+ (@apply
+ (lambda (#{id 3459}#
+ #{val 3460}#
+ #{e1 3461}#
+ #{e2 3462}#)
+ (begin
+ (let ((#{ids 3464}# #{id 3459}#))
+ (if (not (#{valid-bound-ids? 399}# #{ids 3464}#))
+ (syntax-violation
+ 'letrec*
+ "duplicate bound variable"
+ #{e 3434}#)
+ (begin
+ (let ((#{labels 3468}#
+ (#{gen-labels 354}# #{ids 3464}#))
+ (#{new-vars 3469}#
+ (map #{gen-var 447}# #{ids 3464}#)))
+ (begin
+ (let ((#{w 3472}#
+ (#{make-binding-wrap 383}#
+ #{ids 3464}#
+ #{labels 3468}#
+ #{w 3436}#))
+ (#{r 3473}#
+ (#{extend-var-env 329}#
+ #{labels 3468}#
+ #{new-vars 3469}#
+ #{r 3435}#)))
+ (#{build-letrec 299}#
+ #{s 3437}#
+ #t
+ (map syntax->datum #{ids 3464}#)
+ #{new-vars 3469}#
+ (map (lambda (#{x 3474}#)
+ (#{chi 419}#
+ #{x 3474}#
+ #{r 3473}#
+ #{w 3472}#
+ #{mod 3438}#))
+ #{val 3460}#)
+ (#{chi-body 427}#
+ (cons #{e1 3461}# #{e2 3462}#)
+ (#{source-wrap 407}#
+ #{e 3434}#
+ #{w 3472}#
+ #{s 3437}#
+ #{mod 3438}#)
+ #{r 3473}#
+ #{w 3472}#
+ #{mod 3438}#))))))))))
+ #{tmp 3445}#)
+ (let ((#{_ 3479}# #{tmp 3444}#))
+ (syntax-violation
+ 'letrec*
+ "bad letrec*"
+ (#{source-wrap 407}#
+ #{e 3434}#
+ #{w 3436}#
+ #{s 3437}#
+ #{mod 3438}#))))))))
+ (#{global-extend 335}#
+ 'core
+ 'set!
+ (lambda (#{e 3480}#
+ #{r 3481}#
+ #{w 3482}#
+ #{s 3483}#
+ #{mod 3484}#)
+ (let ((#{tmp 3490}# #{e 3480}#))
+ (let ((#{tmp 3491}#
+ ($sc-dispatch #{tmp 3490}# '(_ any any))))
+ (if (if #{tmp 3491}#
+ (@apply
+ (lambda (#{id 3494}# #{val 3495}#)
+ (#{id? 339}# #{id 3494}#))
+ #{tmp 3491}#)
+ #f)
+ (@apply
+ (lambda (#{id 3498}# #{val 3499}#)
+ (begin
+ (let ((#{n 3502}#
+ (#{id-var-name 393}# #{id 3498}# #{w 3482}#))
+ (#{id-mod 3503}#
+ (if (#{syntax-object? 305}# #{id 3498}#)
+ (#{syntax-object-module 311}# #{id 3498}#)
+ #{mod 3484}#)))
+ (begin
+ (let ((#{b 3505}#
+ (#{lookup 333}#
+ #{n 3502}#
+ #{r 3481}#
+ #{id-mod 3503}#)))
+ (begin
+ (let ((#{atom-key 3508}# (car #{b 3505}#)))
+ (if (eqv? #{atom-key 3508}# 'lexical)
+ (#{build-lexical-assignment 273}#
+ #{s 3483}#
+ (syntax->datum #{id 3498}#)
+ (cdr #{b 3505}#)
+ (#{chi 419}#
+ #{val 3499}#
+ #{r 3481}#
+ #{w 3482}#
+ #{mod 3484}#))
+ (if (eqv? #{atom-key 3508}# 'global)
+ (#{build-global-assignment 279}#
+ #{s 3483}#
+ #{n 3502}#
+ (#{chi 419}#
+ #{val 3499}#
+ #{r 3481}#
+ #{w 3482}#
+ #{mod 3484}#)
+ #{id-mod 3503}#)
+ (if (eqv? #{atom-key 3508}# 'macro)
+ (begin
+ (let ((#{p 3515}# (cdr #{b 3505}#)))
+ (if (procedure-property
+ #{p 3515}#
+ 'variable-transformer)
+ (#{chi 419}#
+ (#{chi-macro 425}#
+ #{p 3515}#
+ #{e 3480}#
+ #{r 3481}#
+ #{w 3482}#
+ #{s 3483}#
+ #f
+ #{mod 3484}#)
+ #{r 3481}#
+ '(())
+ #{mod 3484}#)
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (#{wrap 405}#
+ #{e 3480}#
+ #{w 3482}#
+ #{mod 3484}#)
+ (#{wrap 405}#
+ #{id 3498}#
+ #{w 3482}#
+ #{id-mod 3503}#)))))
+ (if (eqv? #{atom-key 3508}#
+ 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (#{wrap 405}#
+ #{id 3498}#
+ #{w 3482}#
+ #{mod 3484}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{source-wrap 407}#
+ #{e 3480}#
+ #{w 3482}#
+ #{s 3483}#
+ #{mod 3484}#)))))))))))))
+ #{tmp 3491}#)
+ (let ((#{tmp 3520}#
+ ($sc-dispatch
+ #{tmp 3490}#
+ '(_ (any . each-any) any))))
+ (if #{tmp 3520}#
+ (@apply
+ (lambda (#{head 3524}# #{tail 3525}# #{val 3526}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 417}#
+ #{head 3524}#
+ #{r 3481}#
+ '(())
+ #f
+ #f
+ #{mod 3484}#
+ #t))
+ (lambda (#{type 3529}#
+ #{value 3530}#
+ #{ee 3531}#
+ #{ww 3532}#
+ #{ss 3533}#
+ #{modmod 3534}#)
+ (if (eqv? #{type 3529}# 'module-ref)
+ (begin
+ (let ((#{val 3543}#
+ (#{chi 419}#
+ #{val 3526}#
+ #{r 3481}#
+ #{w 3482}#
+ #{mod 3484}#)))
+ (call-with-values
+ (lambda ()
+ (#{value 3530}#
+ (cons #{head 3524}# #{tail 3525}#)
+ #{r 3481}#
+ #{w 3482}#))
+ (lambda (#{e 3545}#
+ #{r 3546}#
+ #{w 3547}#
+ #{s* 3548}#
+ #{mod 3549}#)
+ (let ((#{tmp 3555}# #{e 3545}#))
+ (let ((#{tmp 3556}#
+ (list #{tmp 3555}#)))
+ (if (if #{tmp 3556}#
+ (@apply
+ (lambda (#{e 3558}#)
+ (#{id? 339}# #{e 3558}#))
+ #{tmp 3556}#)
+ #f)
+ (@apply
+ (lambda (#{e 3560}#)
+ (#{build-global-assignment 279}#
+ #{s 3483}#
+ (syntax->datum #{e 3560}#)
+ #{val 3543}#
+ #{mod 3549}#))
+ #{tmp 3556}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3555}#))))))))
+ (#{build-application 265}#
+ #{s 3483}#
+ (#{chi 419}#
+ (list '#(syntax-object
+ setter
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(type value ee ww ss modmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3535"
+ "i3536"
+ "i3537"
+ "i3538"
+ "i3539"
+ "i3540"))
+ #(ribcage
+ #(head tail val)
+ #((top) (top) (top))
+ #("i3521" "i3522" "i3523"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w s mod)
+ #((top) (top) (top) (top) (top))
+ #("i3485"
+ "i3486"
+ "i3487"
+ "i3488"
+ "i3489"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ #{head 3524}#)
+ #{r 3481}#
+ #{w 3482}#
+ #{mod 3484}#)
+ (map (lambda (#{e 3562}#)
+ (#{chi 419}#
+ #{e 3562}#
+ #{r 3481}#
+ #{w 3482}#
+ #{mod 3484}#))
+ (append
+ #{tail 3525}#
+ (list #{val 3526}#))))))))
+ #{tmp 3520}#)
+ (let ((#{_ 3566}# #{tmp 3490}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{source-wrap 407}#
+ #{e 3480}#
+ #{w 3482}#
+ #{s 3483}#
+ #{mod 3484}#))))))))))
+ (#{global-extend 335}#
+ 'module-ref
+ '@
+ (lambda (#{e 3567}# #{r 3568}# #{w 3569}#)
+ (let ((#{tmp 3573}# #{e 3567}#))
+ (let ((#{tmp 3574}#
+ ($sc-dispatch #{tmp 3573}# '(_ each-any any))))
+ (if (if #{tmp 3574}#
+ (@apply
+ (lambda (#{mod 3577}# #{id 3578}#)
+ (if (and-map #{id? 339}# #{mod 3577}#)
+ (#{id? 339}# #{id 3578}#)
+ #f))
+ #{tmp 3574}#)
+ #f)
+ (@apply
+ (lambda (#{mod 3584}# #{id 3585}#)
+ (values
+ (syntax->datum #{id 3585}#)
+ #{r 3568}#
+ #{w 3569}#
+ #f
+ (syntax->datum
+ (cons '#(syntax-object
+ public
+ ((top)
+ #(ribcage
+ #(mod id)
+ #((top) (top))
+ #("i3582" "i3583"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("i3570" "i3571" "i3572"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ #{mod 3584}#))))
+ #{tmp 3574}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3573}#))))))
+ (#{global-extend 335}#
+ 'module-ref
+ '@@
+ (lambda (#{e 3587}# #{r 3588}# #{w 3589}#)
+ (letrec*
+ ((#{remodulate 3594}#
+ (lambda (#{x 3595}# #{mod 3596}#)
+ (if (pair? #{x 3595}#)
+ (cons (#{remodulate 3594}#
+ (car #{x 3595}#)
+ #{mod 3596}#)
+ (#{remodulate 3594}#
+ (cdr #{x 3595}#)
+ #{mod 3596}#))
+ (if (#{syntax-object? 305}# #{x 3595}#)
+ (#{make-syntax-object 303}#
+ (#{remodulate 3594}#
+ (#{syntax-object-expression 307}# #{x 3595}#)
+ #{mod 3596}#)
+ (#{syntax-object-wrap 309}# #{x 3595}#)
+ #{mod 3596}#)
+ (if (vector? #{x 3595}#)
+ (begin
+ (let ((#{n 3607}# (vector-length #{x 3595}#)))
+ (begin
+ (let ((#{v 3609}# (make-vector #{n 3607}#)))
+ (letrec*
+ ((#{loop 3612}#
+ (lambda (#{i 3613}#)
+ (if (= #{i 3613}# #{n 3607}#)
+ (begin (if #f #f) #{v 3609}#)
+ (begin
+ (vector-set!
+ #{v 3609}#
+ #{i 3613}#
+ (#{remodulate 3594}#
+ (vector-ref
+ #{x 3595}#
+ #{i 3613}#)
+ #{mod 3596}#))
+ (#{loop 3612}#
+ (#{1+}# #{i 3613}#)))))))
+ (begin (#{loop 3612}# 0)))))))
+ #{x 3595}#))))))
+ (begin
+ (let ((#{tmp 3619}# #{e 3587}#))
+ (let ((#{tmp 3620}#
+ ($sc-dispatch #{tmp 3619}# '(_ each-any any))))
+ (if (if #{tmp 3620}#
+ (@apply
+ (lambda (#{mod 3623}# #{exp 3624}#)
+ (and-map #{id? 339}# #{mod 3623}#))
+ #{tmp 3620}#)
+ #f)
+ (@apply
+ (lambda (#{mod 3628}# #{exp 3629}#)
+ (begin
+ (let ((#{mod 3631}#
+ (syntax->datum
+ (cons '#(syntax-object
+ private
((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
#(ribcage
- #(x)
- #((top))
- #("i1779"))
- #(ribcage () () ())
+ #(mod exp)
+ #((top) (top))
+ #("i3626" "i3627"))
#(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1773" "i1774" "i1775"))
- #(ribcage () () ())
+ (remodulate)
+ ((top))
+ ("i3593"))
#(ribcage
- #(e when-list w)
+ #(e r w)
#((top) (top) (top))
- #("i1770" "i1771" "i1772"))
+ #("i3590" "i3591" "i3592"))
#(ribcage
(lambda-var-list
gen-var
@@ -2734,11667 +11186,3004 @@
(top)
(top)
(top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
"i416"
- "i415"
- "i413"
+ "i414"
"i412"
- "i411"
"i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
"i390"
"i388"
- "i387"
"i386"
- "i385"
"i384"
- "i383"
"i382"
- "i381"
"i380"
+ "i379"
"i378"
- "i377"
+ "i376"
"i375"
+ "i374"
"i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
"i362"
- "i361"
"i360"
- "i359"
"i358"
"i356"
- "i355"
"i353"
"i351"
+ "i350"
"i349"
+ "i348"
"i347"
+ "i346"
"i345"
+ "i344"
"i343"
"i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
"i325"
+ "i324"
"i323"
+ "i322"
"i321"
"i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
"i290"
"i288"
"i286"
- "i285"
"i284"
- "i283"
"i282"
"i280"
"i278"
"i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
"i253"
"i251"
"i249"
+ "i248"
"i247"
+ "i246"
"i245"
"i243"
"i241"
- "i239"))
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
#(ribcage
(define-structure
define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- 'eval
- (if (#{free-id=? 432}#
- #{x 1780}#
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1779"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1773" "i1774" "i1775"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1770" "i1771" "i1772"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- 'expand
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e 1767}#
- (#{wrap 442}#
- #{x 1780}#
- #{w 1769}#
- #f))))))))
- #{situations 1778}#))))))
- (begin (#{f 1776}# #{when-list 1768}# '())))))
- (#{syntax-type 454}#
- (lambda (#{e 1790}#
- #{r 1791}#
- #{w 1792}#
- #{s 1793}#
- #{rib 1794}#
- #{mod 1795}#
- #{for-car? 1796}#)
- (if (symbol? #{e 1790}#)
- (begin
- (let ((#{n 1808}#
- (#{id-var-name 430}# #{e 1790}# #{w 1792}#)))
- (begin
- (let ((#{b 1810}#
- (#{lookup 370}#
- #{n 1808}#
- #{r 1791}#
- #{mod 1795}#)))
- (begin
- (let ((#{type 1812}# (car #{b 1810}#)))
- (if (eqv? #{type 1812}# 'lexical)
- (values
- #{type 1812}#
- (cdr #{b 1810}#)
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (if (eqv? #{type 1812}# 'global)
- (values
- #{type 1812}#
- #{n 1808}#
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (if (eqv? #{type 1812}# 'macro)
- (if #{for-car? 1796}#
- (values
- #{type 1812}#
- (cdr #{b 1810}#)
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (#{syntax-type 454}#
- (#{chi-macro 462}#
- (cdr #{b 1810}#)
- #{e 1790}#
- #{r 1791}#
- #{w 1792}#
- #{s 1793}#
- #{rib 1794}#
- #{mod 1795}#)
- #{r 1791}#
- '(())
- #{s 1793}#
- #{rib 1794}#
- #{mod 1795}#
- #f))
- (values
- #{type 1812}#
- (cdr #{b 1810}#)
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#))))))))))
- (if (pair? #{e 1790}#)
- (begin
- (let ((#{first 1826}# (car #{e 1790}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type 454}#
- #{first 1826}#
- #{r 1791}#
- #{w 1792}#
- #{s 1793}#
- #{rib 1794}#
- #{mod 1795}#
- #t))
- (lambda (#{ftype 1827}#
- #{fval 1828}#
- #{fe 1829}#
- #{fw 1830}#
- #{fs 1831}#
- #{fmod 1832}#)
- (if (eqv? #{ftype 1827}# 'lexical)
- (values
- 'lexical-call
- #{fval 1828}#
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (if (eqv? #{ftype 1827}# 'global)
- (values
- 'global-call
- (#{make-syntax-object 340}#
- #{fval 1828}#
- #{w 1792}#
- #{fmod 1832}#)
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (if (eqv? #{ftype 1827}# 'macro)
- (#{syntax-type 454}#
- (#{chi-macro 462}#
- #{fval 1828}#
- #{e 1790}#
- #{r 1791}#
- #{w 1792}#
- #{s 1793}#
- #{rib 1794}#
- #{mod 1795}#)
- #{r 1791}#
- '(())
- #{s 1793}#
- #{rib 1794}#
- #{mod 1795}#
- #{for-car? 1796}#)
- (if (eqv? #{ftype 1827}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{fval 1828}#
- #{e 1790}#
- #{r 1791}#
- #{w 1792}#))
- (lambda (#{e 1844}#
- #{r 1845}#
- #{w 1846}#
- #{s 1847}#
- #{mod 1848}#)
- (#{syntax-type 454}#
- #{e 1844}#
- #{r 1845}#
- #{w 1846}#
- #{s 1847}#
- #{rib 1794}#
- #{mod 1848}#
- #{for-car? 1796}#)))
- (if (eqv? #{ftype 1827}# 'core)
- (values
- 'core-form
- #{fval 1828}#
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (if (eqv? #{ftype 1827}# 'local-syntax)
- (values
- 'local-syntax-form
- #{fval 1828}#
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (if (eqv? #{ftype 1827}# 'begin)
- (values
- 'begin-form
- #f
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (if (eqv? #{ftype 1827}# 'eval-when)
- (values
- 'eval-when-form
- #f
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (if (eqv? #{ftype 1827}# 'define)
- (let ((#{tmp 1859}# #{e 1790}#))
- (let ((#{tmp 1860}#
- ($sc-dispatch
- #{tmp 1859}#
- '(_ any any))))
- (if (if #{tmp 1860}#
- (@apply
- (lambda (#{name 1863}#
- #{val 1864}#)
- (#{id? 376}#
- #{name 1863}#))
- #{tmp 1860}#)
- #f)
- (@apply
- (lambda (#{name 1867}#
- #{val 1868}#)
- (values
- 'define-form
- #{name 1867}#
- #{val 1868}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#))
- #{tmp 1860}#)
- (let ((#{tmp 1869}#
- ($sc-dispatch
- #{tmp 1859}#
- '(_ (any . any)
- any
- .
- each-any))))
- (if (if #{tmp 1869}#
- (@apply
- (lambda (#{name 1874}#
- #{args 1875}#
- #{e1 1876}#
- #{e2 1877}#)
- (if (#{id? 376}#
- #{name 1874}#)
- (#{valid-bound-ids? 436}#
- (#{lambda-var-list 486}#
- #{args 1875}#))
- #f))
- #{tmp 1869}#)
- #f)
- (@apply
- (lambda (#{name 1884}#
- #{args 1885}#
- #{e1 1886}#
- #{e2 1887}#)
- (values
- 'define-form
- (#{wrap 442}#
- #{name 1884}#
- #{w 1792}#
- #{mod 1795}#)
- (#{decorate-source 296}#
- (cons '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(name
- args
- e1
- e2)
- #((top)
- (top)
- (top)
- (top))
- #("i1880"
- "i1881"
- "i1882"
- "i1883"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1833"
- "i1834"
- "i1835"
- "i1836"
- "i1837"
- "i1838"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1825"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"
- "i1802"
- "i1803"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile))
- (#{wrap 442}#
- (cons #{args 1885}#
- (cons #{e1 1886}#
- #{e2 1887}#))
- #{w 1792}#
- #{mod 1795}#))
- #{s 1793}#)
- '(())
- #{s 1793}#
- #{mod 1795}#))
- #{tmp 1869}#)
- (let ((#{tmp 1890}#
- ($sc-dispatch
- #{tmp 1859}#
- '(_ any))))
- (if (if #{tmp 1890}#
- (@apply
- (lambda (#{name 1892}#)
- (#{id? 376}#
- #{name 1892}#))
- #{tmp 1890}#)
- #f)
- (@apply
- (lambda (#{name 1894}#)
- (values
- 'define-form
- (#{wrap 442}#
- #{name 1894}#
- #{w 1792}#
- #{mod 1795}#)
- '(#(syntax-object
- if
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1893"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1833"
- "i1834"
- "i1835"
- "i1836"
- "i1837"
- "i1838"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1825"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"
- "i1802"
- "i1803"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1893"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1833"
- "i1834"
- "i1835"
- "i1836"
- "i1837"
- "i1838"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1825"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"
- "i1802"
- "i1803"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1893"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1833"
- "i1834"
- "i1835"
- "i1836"
- "i1837"
- "i1838"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1825"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"
- "i1802"
- "i1803"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile)))
- '(())
- #{s 1793}#
- #{mod 1795}#))
- #{tmp 1890}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1859}#))))))))
- (if (eqv? #{ftype 1827}#
- 'define-syntax)
- (let ((#{tmp 1897}# #{e 1790}#))
- (let ((#{tmp 1898}#
- ($sc-dispatch
- #{tmp 1897}#
- '(_ any any))))
- (if (if #{tmp 1898}#
- (@apply
- (lambda (#{name 1901}#
- #{val 1902}#)
- (#{id? 376}#
- #{name 1901}#))
- #{tmp 1898}#)
- #f)
- (@apply
- (lambda (#{name 1905}#
- #{val 1906}#)
- (values
- 'define-syntax-form
- #{name 1905}#
- #{val 1906}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#))
- #{tmp 1898}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1897}#))))
- (values
- 'call
- #f
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)))))))))))))))
- (if (#{syntax-object? 342}# #{e 1790}#)
- (#{syntax-type 454}#
- (#{syntax-object-expression 344}# #{e 1790}#)
- #{r 1791}#
- (#{join-wraps 424}#
- #{w 1792}#
- (#{syntax-object-wrap 346}# #{e 1790}#))
- (begin
- (let ((#{t 1912}#
- (#{source-annotation 357}# #{e 1790}#)))
- (if #{t 1912}# #{t 1912}# #{s 1793}#)))
- #{rib 1794}#
- (begin
- (let ((#{t 1916}#
- (#{syntax-object-module 348}# #{e 1790}#)))
- (if #{t 1916}# #{t 1916}# #{mod 1795}#)))
- #{for-car? 1796}#)
- (if (self-evaluating? #{e 1790}#)
- (values
- 'constant
- #f
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)
- (values
- 'other
- #f
- #{e 1790}#
- #{w 1792}#
- #{s 1793}#
- #{mod 1795}#)))))))
- (#{chi 456}#
- (lambda (#{e 1921}# #{r 1922}# #{w 1923}# #{mod 1924}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 454}#
- #{e 1921}#
- #{r 1922}#
- #{w 1923}#
- (#{source-annotation 357}# #{e 1921}#)
- #f
- #{mod 1924}#
- #f))
- (lambda (#{type 1929}#
- #{value 1930}#
- #{e 1931}#
- #{w 1932}#
- #{s 1933}#
- #{mod 1934}#)
- (#{chi-expr 458}#
- #{type 1929}#
- #{value 1930}#
- #{e 1931}#
- #{r 1922}#
- #{w 1932}#
- #{s 1933}#
- #{mod 1934}#)))))
- (#{chi-expr 458}#
- (lambda (#{type 1941}#
- #{value 1942}#
- #{e 1943}#
- #{r 1944}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#)
- (if (eqv? #{type 1941}# 'lexical)
- (#{build-lexical-reference 308}#
- 'value
- #{s 1946}#
- #{e 1943}#
- #{value 1942}#)
- (if (if (eqv? #{type 1941}# 'core)
- #t
- (eqv? #{type 1941}# 'core-form))
- (#{value 1942}#
- #{e 1943}#
- #{r 1944}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#)
- (if (eqv? #{type 1941}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{value 1942}# #{e 1943}# #{r 1944}# #{w 1945}#))
- (lambda (#{e 1958}#
- #{r 1959}#
- #{w 1960}#
- #{s 1961}#
- #{mod 1962}#)
- (#{chi 456}#
- #{e 1958}#
- #{r 1959}#
- #{w 1960}#
- #{mod 1962}#)))
- (if (eqv? #{type 1941}# 'lexical-call)
- (#{chi-application 460}#
- (begin
- (let ((#{id 1970}# (car #{e 1943}#)))
- (#{build-lexical-reference 308}#
- 'fun
- (#{source-annotation 357}# #{id 1970}#)
- (if (#{syntax-object? 342}# #{id 1970}#)
- (syntax->datum #{id 1970}#)
- #{id 1970}#)
- #{value 1942}#)))
- #{e 1943}#
- #{r 1944}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#)
- (if (eqv? #{type 1941}# 'global-call)
- (#{chi-application 460}#
- (#{build-global-reference 314}#
- (#{source-annotation 357}# (car #{e 1943}#))
- (if (#{syntax-object? 342}# #{value 1942}#)
- (#{syntax-object-expression 344}# #{value 1942}#)
- #{value 1942}#)
- (if (#{syntax-object? 342}# #{value 1942}#)
- (#{syntax-object-module 348}# #{value 1942}#)
- #{mod 1947}#))
- #{e 1943}#
- #{r 1944}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#)
- (if (eqv? #{type 1941}# 'constant)
- (#{build-data 328}#
- #{s 1946}#
- (#{strip 482}#
- (#{source-wrap 444}#
- #{e 1943}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#)
- '(())))
- (if (eqv? #{type 1941}# 'global)
- (#{build-global-reference 314}#
- #{s 1946}#
- #{value 1942}#
- #{mod 1947}#)
- (if (eqv? #{type 1941}# 'call)
- (#{chi-application 460}#
- (#{chi 456}#
- (car #{e 1943}#)
- #{r 1944}#
- #{w 1945}#
- #{mod 1947}#)
- #{e 1943}#
- #{r 1944}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#)
- (if (eqv? #{type 1941}# 'begin-form)
- (let ((#{tmp 1977}# #{e 1943}#))
- (let ((#{tmp 1978}#
- ($sc-dispatch
- #{tmp 1977}#
- '(_ any . each-any))))
- (if #{tmp 1978}#
- (@apply
- (lambda (#{e1 1981}# #{e2 1982}#)
- (#{chi-sequence 446}#
- (cons #{e1 1981}# #{e2 1982}#)
- #{r 1944}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#))
- #{tmp 1978}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1977}#))))
- (if (eqv? #{type 1941}# 'local-syntax-form)
- (#{chi-local-syntax 466}#
- #{value 1942}#
- #{e 1943}#
- #{r 1944}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#
- #{chi-sequence 446}#)
- (if (eqv? #{type 1941}# 'eval-when-form)
- (let ((#{tmp 1986}# #{e 1943}#))
- (let ((#{tmp 1987}#
- ($sc-dispatch
- #{tmp 1986}#
- '(_ each-any any . each-any))))
- (if #{tmp 1987}#
- (@apply
- (lambda (#{x 1991}#
- #{e1 1992}#
- #{e2 1993}#)
- (begin
- (let ((#{when-list 1995}#
- (#{chi-when-list 452}#
- #{e 1943}#
- #{x 1991}#
- #{w 1945}#)))
- (if (memq 'eval
- #{when-list 1995}#)
- (#{chi-sequence 446}#
- (cons #{e1 1992}#
- #{e2 1993}#)
- #{r 1944}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#)
- (#{chi-void 470}#)))))
- #{tmp 1987}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1986}#))))
- (if (if (eqv? #{type 1941}# 'define-form)
- #t
- (eqv? #{type 1941}#
- 'define-syntax-form))
- (syntax-violation
- #f
- "definition in expression context"
- #{e 1943}#
- (#{wrap 442}#
- #{value 1942}#
- #{w 1945}#
- #{mod 1947}#))
- (if (eqv? #{type 1941}# 'syntax)
- (syntax-violation
- #f
- "reference to pattern variable outside syntax form"
- (#{source-wrap 444}#
- #{e 1943}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#))
- (if (eqv? #{type 1941}#
- 'displaced-lexical)
- (syntax-violation
- #f
- "reference to identifier outside its scope"
- (#{source-wrap 444}#
- #{e 1943}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#))
- (syntax-violation
- #f
- "unexpected syntax"
- (#{source-wrap 444}#
- #{e 1943}#
- #{w 1945}#
- #{s 1946}#
- #{mod 1947}#))))))))))))))))))
- (#{chi-application 460}#
- (lambda (#{x 2002}#
- #{e 2003}#
- #{r 2004}#
- #{w 2005}#
- #{s 2006}#
- #{mod 2007}#)
- (let ((#{tmp 2014}# #{e 2003}#))
- (let ((#{tmp 2015}#
- ($sc-dispatch #{tmp 2014}# '(any . each-any))))
- (if #{tmp 2015}#
- (@apply
- (lambda (#{e0 2018}# #{e1 2019}#)
- (#{build-application 302}#
- #{s 2006}#
- #{x 2002}#
- (map (lambda (#{e 2020}#)
- (#{chi 456}#
- #{e 2020}#
- #{r 2004}#
- #{w 2005}#
- #{mod 2007}#))
- #{e1 2019}#)))
- #{tmp 2015}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2014}#))))))
- (#{chi-macro 462}#
- (lambda (#{p 2023}#
- #{e 2024}#
- #{r 2025}#
- #{w 2026}#
- #{s 2027}#
- #{rib 2028}#
- #{mod 2029}#)
- (letrec*
- ((#{rebuild-macro-output 2038}#
- (lambda (#{x 2039}# #{m 2040}#)
- (if (pair? #{x 2039}#)
- (#{decorate-source 296}#
- (cons (#{rebuild-macro-output 2038}#
- (car #{x 2039}#)
- #{m 2040}#)
- (#{rebuild-macro-output 2038}#
- (cdr #{x 2039}#)
- #{m 2040}#))
- #{s 2027}#)
- (if (#{syntax-object? 342}# #{x 2039}#)
- (begin
- (let ((#{w 2048}#
- (#{syntax-object-wrap 346}# #{x 2039}#)))
- (begin
- (let ((#{ms 2051}# (car #{w 2048}#))
- (#{s 2052}# (cdr #{w 2048}#)))
- (if (if (pair? #{ms 2051}#)
- (eq? (car #{ms 2051}#) #f)
- #f)
- (#{make-syntax-object 340}#
- (#{syntax-object-expression 344}# #{x 2039}#)
- (cons (cdr #{ms 2051}#)
- (if #{rib 2028}#
- (cons #{rib 2028}# (cdr #{s 2052}#))
- (cdr #{s 2052}#)))
- (#{syntax-object-module 348}# #{x 2039}#))
- (#{make-syntax-object 340}#
- (#{decorate-source 296}#
- (#{syntax-object-expression 344}#
- #{x 2039}#)
- #{s 2052}#)
- (cons (cons #{m 2040}# #{ms 2051}#)
- (if #{rib 2028}#
- (cons #{rib 2028}#
- (cons 'shift #{s 2052}#))
- (cons 'shift #{s 2052}#)))
- (#{syntax-object-module 348}#
- #{x 2039}#)))))))
- (if (vector? #{x 2039}#)
- (begin
- (let ((#{n 2064}# (vector-length #{x 2039}#)))
- (begin
- (let ((#{v 2066}#
- (#{decorate-source 296}#
- (make-vector #{n 2064}#)
- #{x 2039}#)))
- (letrec*
- ((#{loop 2069}#
- (lambda (#{i 2070}#)
- (if (= #{i 2070}# #{n 2064}#)
- (begin (if #f #f) #{v 2066}#)
- (begin
- (vector-set!
- #{v 2066}#
- #{i 2070}#
- (#{rebuild-macro-output 2038}#
- (vector-ref
- #{x 2039}#
- #{i 2070}#)
- #{m 2040}#))
- (#{loop 2069}#
- (#{1+}# #{i 2070}#)))))))
- (begin (#{loop 2069}# 0)))))))
- (if (symbol? #{x 2039}#)
- (syntax-violation
- #f
- "encountered raw symbol in macro output"
- (#{source-wrap 444}#
- #{e 2024}#
- #{w 2026}#
- (cdr #{w 2026}#)
- #{mod 2029}#)
- #{x 2039}#)
- (#{decorate-source 296}#
- #{x 2039}#
- #{s 2027}#))))))))
- (begin
- (#{rebuild-macro-output 2038}#
- (#{p 2023}#
- (#{source-wrap 444}#
- #{e 2024}#
- (#{anti-mark 414}# #{w 2026}#)
- #{s 2027}#
- #{mod 2029}#))
- (gensym "m"))))))
- (#{chi-body 464}#
- (lambda (#{body 2080}#
- #{outer-form 2081}#
- #{r 2082}#
- #{w 2083}#
- #{mod 2084}#)
- (begin
- (let ((#{r 2092}#
- (cons '("placeholder" placeholder) #{r 2082}#)))
- (begin
- (let ((#{ribcage 2094}#
- (#{make-ribcage 394}# '() '() '())))
- (begin
- (let ((#{w 2097}#
- (cons (car #{w 2083}#)
- (cons #{ribcage 2094}# (cdr #{w 2083}#)))))
- (letrec*
- ((#{parse 2109}#
- (lambda (#{body 2110}#
- #{ids 2111}#
- #{labels 2112}#
- #{var-ids 2113}#
- #{vars 2114}#
- #{vals 2115}#
- #{bindings 2116}#)
- (if (null? #{body 2110}#)
- (syntax-violation
- #f
- "no expressions in body"
- #{outer-form 2081}#)
- (begin
- (let ((#{e 2121}# (cdr (car #{body 2110}#)))
- (#{er 2122}#
- (car (car #{body 2110}#))))
- (call-with-values
- (lambda ()
- (#{syntax-type 454}#
- #{e 2121}#
- #{er 2122}#
- '(())
- (#{source-annotation 357}#
- #{er 2122}#)
- #{ribcage 2094}#
- #{mod 2084}#
- #f))
- (lambda (#{type 2124}#
- #{value 2125}#
- #{e 2126}#
- #{w 2127}#
- #{s 2128}#
- #{mod 2129}#)
- (if (eqv? #{type 2124}# 'define-form)
- (begin
- (let ((#{id 2139}#
- (#{wrap 442}#
- #{value 2125}#
- #{w 2127}#
- #{mod 2129}#))
- (#{label 2140}#
- (#{gen-label 389}#)))
- (begin
- (let ((#{var 2142}#
- (#{gen-var 484}#
- #{id 2139}#)))
- (begin
- (#{extend-ribcage! 418}#
- #{ribcage 2094}#
- #{id 2139}#
- #{label 2140}#)
- (#{parse 2109}#
- (cdr #{body 2110}#)
- (cons #{id 2139}#
- #{ids 2111}#)
- (cons #{label 2140}#
- #{labels 2112}#)
- (cons #{id 2139}#
- #{var-ids 2113}#)
- (cons #{var 2142}#
- #{vars 2114}#)
- (cons (cons #{er 2122}#
- (#{wrap 442}#
- #{e 2126}#
- #{w 2127}#
- #{mod 2129}#))
- #{vals 2115}#)
- (cons (cons 'lexical
- #{var 2142}#)
- #{bindings 2116}#)))))))
- (if (eqv? #{type 2124}#
- 'define-syntax-form)
- (begin
- (let ((#{id 2147}#
- (#{wrap 442}#
- #{value 2125}#
- #{w 2127}#
- #{mod 2129}#))
- (#{label 2148}#
- (#{gen-label 389}#)))
- (begin
- (#{extend-ribcage! 418}#
- #{ribcage 2094}#
- #{id 2147}#
- #{label 2148}#)
- (#{parse 2109}#
- (cdr #{body 2110}#)
- (cons #{id 2147}#
- #{ids 2111}#)
- (cons #{label 2148}#
- #{labels 2112}#)
- #{var-ids 2113}#
- #{vars 2114}#
- #{vals 2115}#
- (cons (cons 'macro
- (cons #{er 2122}#
- (#{wrap 442}#
- #{e 2126}#
- #{w 2127}#
- #{mod 2129}#)))
- #{bindings 2116}#)))))
- (if (eqv? #{type 2124}#
- 'begin-form)
- (let ((#{tmp 2151}# #{e 2126}#))
- (let ((#{tmp 2152}#
- ($sc-dispatch
- #{tmp 2151}#
- '(_ . each-any))))
- (if #{tmp 2152}#
- (@apply
- (lambda (#{e1 2154}#)
- (#{parse 2109}#
- (letrec*
- ((#{f 2157}#
- (lambda (#{forms 2158}#)
- (if (null? #{forms 2158}#)
- (cdr #{body 2110}#)
- (cons (cons #{er 2122}#
- (#{wrap 442}#
- (car #{forms 2158}#)
- #{w 2127}#
- #{mod 2129}#))
- (#{f 2157}#
- (cdr #{forms 2158}#)))))))
- (begin
- (#{f 2157}#
- #{e1 2154}#)))
- #{ids 2111}#
- #{labels 2112}#
- #{var-ids 2113}#
- #{vars 2114}#
- #{vals 2115}#
- #{bindings 2116}#))
- #{tmp 2152}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2151}#))))
- (if (eqv? #{type 2124}#
- 'local-syntax-form)
- (#{chi-local-syntax 466}#
- #{value 2125}#
- #{e 2126}#
- #{er 2122}#
- #{w 2127}#
- #{s 2128}#
- #{mod 2129}#
- (lambda (#{forms 2161}#
- #{er 2162}#
- #{w 2163}#
- #{s 2164}#
- #{mod 2165}#)
- (#{parse 2109}#
- (letrec*
- ((#{f 2173}#
- (lambda (#{forms 2174}#)
- (if (null? #{forms 2174}#)
- (cdr #{body 2110}#)
- (cons (cons #{er 2162}#
- (#{wrap 442}#
- (car #{forms 2174}#)
- #{w 2163}#
- #{mod 2165}#))
- (#{f 2173}#
- (cdr #{forms 2174}#)))))))
- (begin
- (#{f 2173}#
- #{forms 2161}#)))
- #{ids 2111}#
- #{labels 2112}#
- #{var-ids 2113}#
- #{vars 2114}#
- #{vals 2115}#
- #{bindings 2116}#)))
- (if (null? #{ids 2111}#)
- (#{build-sequence 330}#
- #f
- (map (lambda (#{x 2177}#)
- (#{chi 456}#
- (cdr #{x 2177}#)
- (car #{x 2177}#)
- '(())
- #{mod 2129}#))
- (cons (cons #{er 2122}#
- (#{source-wrap 444}#
- #{e 2126}#
- #{w 2127}#
- #{s 2128}#
- #{mod 2129}#))
- (cdr #{body 2110}#))))
- (begin
- (if (not (#{valid-bound-ids? 436}#
- #{ids 2111}#))
- (syntax-violation
- #f
- "invalid or duplicate identifier in definition"
- #{outer-form 2081}#))
- (letrec*
- ((#{loop 2184}#
- (lambda (#{bs 2185}#
- #{er-cache 2186}#
- #{r-cache 2187}#)
- (if (not (null? #{bs 2185}#))
- (begin
- (let ((#{b 2190}#
- (car #{bs 2185}#)))
- (if (eq? (car #{b 2190}#)
- 'macro)
- (begin
- (let ((#{er 2193}#
- (car (cdr #{b 2190}#))))
- (begin
- (let ((#{r-cache 2195}#
- (if (eq? #{er 2193}#
- #{er-cache 2186}#)
- #{r-cache 2187}#
- (#{macros-only-env 368}#
- #{er 2193}#))))
- (begin
- (set-cdr!
- #{b 2190}#
- (#{eval-local-transformer 468}#
- (#{chi 456}#
- (cdr (cdr #{b 2190}#))
- #{r-cache 2195}#
- '(())
- #{mod 2129}#)
- #{mod 2129}#))
- (#{loop 2184}#
- (cdr #{bs 2185}#)
- #{er 2193}#
- #{r-cache 2195}#))))))
- (#{loop 2184}#
- (cdr #{bs 2185}#)
- #{er-cache 2186}#
- #{r-cache 2187}#))))))))
- (begin
- (#{loop 2184}#
- #{bindings 2116}#
- #f
- #f)))
- (set-cdr!
- #{r 2092}#
- (#{extend-env 364}#
- #{labels 2112}#
- #{bindings 2116}#
- (cdr #{r 2092}#)))
- (#{build-letrec 336}#
- #f
- #t
- (reverse
- (map syntax->datum
- #{var-ids 2113}#))
- (reverse #{vars 2114}#)
- (map (lambda (#{x 2198}#)
- (#{chi 456}#
- (cdr #{x 2198}#)
- (car #{x 2198}#)
- '(())
- #{mod 2129}#))
- (reverse
- #{vals 2115}#))
- (#{build-sequence 330}#
- #f
- (map (lambda (#{x 2202}#)
- (#{chi 456}#
- (cdr #{x 2202}#)
- (car #{x 2202}#)
- '(())
- #{mod 2129}#))
- (cons (cons #{er 2122}#
- (#{source-wrap 444}#
- #{e 2126}#
- #{w 2127}#
- #{s 2128}#
- #{mod 2129}#))
- (cdr #{body 2110}#)))))))))))))))))))
- (begin
- (#{parse 2109}#
- (map (lambda (#{x 2117}#)
- (cons #{r 2092}#
- (#{wrap 442}#
- #{x 2117}#
- #{w 2097}#
- #{mod 2084}#)))
- #{body 2080}#)
- '()
- '()
- '()
- '()
- '()
- '())))))))))))
- (#{chi-local-syntax 466}#
- (lambda (#{rec? 2205}#
- #{e 2206}#
- #{r 2207}#
- #{w 2208}#
- #{s 2209}#
- #{mod 2210}#
- #{k 2211}#)
- (let ((#{tmp 2219}# #{e 2206}#))
- (let ((#{tmp 2220}#
- ($sc-dispatch
- #{tmp 2219}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 2220}#
- (@apply
- (lambda (#{id 2225}#
- #{val 2226}#
- #{e1 2227}#
- #{e2 2228}#)
- (begin
- (let ((#{ids 2230}# #{id 2225}#))
- (if (not (#{valid-bound-ids? 436}# #{ids 2230}#))
- (syntax-violation
- #f
- "duplicate bound keyword"
- #{e 2206}#)
- (begin
- (let ((#{labels 2233}#
- (#{gen-labels 391}# #{ids 2230}#)))
- (begin
- (let ((#{new-w 2235}#
- (#{make-binding-wrap 420}#
- #{ids 2230}#
- #{labels 2233}#
- #{w 2208}#)))
- (#{k 2211}#
- (cons #{e1 2227}# #{e2 2228}#)
- (#{extend-env 364}#
- #{labels 2233}#
- (begin
- (let ((#{w 2239}#
- (if #{rec? 2205}#
- #{new-w 2235}#
- #{w 2208}#))
- (#{trans-r 2240}#
- (#{macros-only-env 368}#
- #{r 2207}#)))
- (map (lambda (#{x 2241}#)
- (cons 'macro
- (#{eval-local-transformer 468}#
- (#{chi 456}#
- #{x 2241}#
- #{trans-r 2240}#
- #{w 2239}#
- #{mod 2210}#)
- #{mod 2210}#)))
- #{val 2226}#)))
- #{r 2207}#)
- #{new-w 2235}#
- #{s 2209}#
- #{mod 2210}#)))))))))
- #{tmp 2220}#)
- (let ((#{_ 2246}# #{tmp 2219}#))
- (syntax-violation
- #f
- "bad local syntax definition"
- (#{source-wrap 444}#
- #{e 2206}#
- #{w 2208}#
- #{s 2209}#
- #{mod 2210}#))))))))
- (#{eval-local-transformer 468}#
- (lambda (#{expanded 2247}# #{mod 2248}#)
- (begin
- (let ((#{p 2252}#
- (#{local-eval-hook 289}#
- #{expanded 2247}#
- #{mod 2248}#)))
- (if (procedure? #{p 2252}#)
- #{p 2252}#
- (syntax-violation
- #f
- "nonprocedure transformer"
- #{p 2252}#))))))
- (#{chi-void 470}#
- (lambda () (#{build-void 300}# #f)))
- (#{ellipsis? 472}#
- (lambda (#{x 2254}#)
- (if (#{nonsymbol-id? 374}# #{x 2254}#)
- (#{free-id=? 432}#
- #{x 2254}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2255"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- #f)))
- (#{lambda-formals 474}#
- (lambda (#{orig-args 2258}#)
- (letrec*
- ((#{req 2261}#
- (lambda (#{args 2264}# #{rreq 2265}#)
- (let ((#{tmp 2268}# #{args 2264}#))
- (let ((#{tmp 2269}# ($sc-dispatch #{tmp 2268}# '())))
- (if #{tmp 2269}#
- (@apply
- (lambda ()
- (#{check 2263}# (reverse #{rreq 2265}#) #f))
- #{tmp 2269}#)
- (let ((#{tmp 2270}#
- ($sc-dispatch #{tmp 2268}# '(any . any))))
- (if (if #{tmp 2270}#
- (@apply
- (lambda (#{a 2273}# #{b 2274}#)
- (#{id? 376}# #{a 2273}#))
- #{tmp 2270}#)
- #f)
- (@apply
- (lambda (#{a 2277}# #{b 2278}#)
- (#{req 2261}#
- #{b 2278}#
- (cons #{a 2277}# #{rreq 2265}#)))
- #{tmp 2270}#)
- (let ((#{tmp 2279}# (list #{tmp 2268}#)))
- (if (if #{tmp 2279}#
- (@apply
- (lambda (#{r 2281}#)
- (#{id? 376}# #{r 2281}#))
- #{tmp 2279}#)
- #f)
- (@apply
- (lambda (#{r 2283}#)
- (#{check 2263}#
- (reverse #{rreq 2265}#)
- #{r 2283}#))
- #{tmp 2279}#)
- (let ((#{else 2285}# #{tmp 2268}#))
- (syntax-violation
- 'lambda
- "invalid argument list"
- #{orig-args 2258}#
- #{args 2264}#)))))))))))
- (#{check 2263}#
- (lambda (#{req 2286}# #{rest 2287}#)
- (if (#{distinct-bound-ids? 438}#
- (if #{rest 2287}#
- (cons #{rest 2287}# #{req 2286}#)
- #{req 2286}#))
- (values #{req 2286}# #f #{rest 2287}# #f)
- (syntax-violation
- 'lambda
- "duplicate identifier in argument list"
- #{orig-args 2258}#)))))
- (begin (#{req 2261}# #{orig-args 2258}# '())))))
- (#{chi-simple-lambda 476}#
- (lambda (#{e 2293}#
- #{r 2294}#
- #{w 2295}#
- #{s 2296}#
- #{mod 2297}#
- #{req 2298}#
- #{rest 2299}#
- #{meta 2300}#
- #{body 2301}#)
- (begin
- (let ((#{ids 2313}#
- (if #{rest 2299}#
- (append #{req 2298}# (list #{rest 2299}#))
- #{req 2298}#)))
- (begin
- (let ((#{vars 2315}#
- (map #{gen-var 484}# #{ids 2313}#)))
- (begin
- (let ((#{labels 2317}#
- (#{gen-labels 391}# #{ids 2313}#)))
- (#{build-simple-lambda 320}#
- #{s 2296}#
- (map syntax->datum #{req 2298}#)
- (if #{rest 2299}#
- (syntax->datum #{rest 2299}#)
- #f)
- #{vars 2315}#
- #{meta 2300}#
- (#{chi-body 464}#
- #{body 2301}#
- (#{source-wrap 444}#
- #{e 2293}#
- #{w 2295}#
- #{s 2296}#
- #{mod 2297}#)
- (#{extend-var-env 366}#
- #{labels 2317}#
- #{vars 2315}#
- #{r 2294}#)
- (#{make-binding-wrap 420}#
- #{ids 2313}#
- #{labels 2317}#
- #{w 2295}#)
- #{mod 2297}#))))))))))
- (#{lambda*-formals 478}#
- (lambda (#{orig-args 2320}#)
- (letrec*
- ((#{req 2323}#
- (lambda (#{args 2332}# #{rreq 2333}#)
- (let ((#{tmp 2336}# #{args 2332}#))
- (let ((#{tmp 2337}# ($sc-dispatch #{tmp 2336}# '())))
- (if #{tmp 2337}#
- (@apply
- (lambda ()
- (#{check 2331}#
- (reverse #{rreq 2333}#)
- '()
- #f
- '()))
- #{tmp 2337}#)
- (let ((#{tmp 2338}#
- ($sc-dispatch #{tmp 2336}# '(any . any))))
- (if (if #{tmp 2338}#
- (@apply
- (lambda (#{a 2341}# #{b 2342}#)
- (#{id? 376}# #{a 2341}#))
- #{tmp 2338}#)
- #f)
- (@apply
- (lambda (#{a 2345}# #{b 2346}#)
- (#{req 2323}#
- #{b 2346}#
- (cons #{a 2345}# #{rreq 2333}#)))
- #{tmp 2338}#)
- (let ((#{tmp 2347}#
- ($sc-dispatch #{tmp 2336}# '(any . any))))
- (if (if #{tmp 2347}#
- (@apply
- (lambda (#{a 2350}# #{b 2351}#)
- (eq? (syntax->datum #{a 2350}#)
- #:optional))
- #{tmp 2347}#)
- #f)
- (@apply
- (lambda (#{a 2354}# #{b 2355}#)
- (#{opt 2325}#
- #{b 2355}#
- (reverse #{rreq 2333}#)
- '()))
- #{tmp 2347}#)
- (let ((#{tmp 2356}#
- ($sc-dispatch
- #{tmp 2336}#
- '(any . any))))
- (if (if #{tmp 2356}#
- (@apply
- (lambda (#{a 2359}# #{b 2360}#)
- (eq? (syntax->datum #{a 2359}#)
- #:key))
- #{tmp 2356}#)
- #f)
- (@apply
- (lambda (#{a 2363}# #{b 2364}#)
- (#{key 2327}#
- #{b 2364}#
- (reverse #{rreq 2333}#)
- '()
- '()))
- #{tmp 2356}#)
- (let ((#{tmp 2365}#
- ($sc-dispatch
- #{tmp 2336}#
- '(any any))))
- (if (if #{tmp 2365}#
- (@apply
- (lambda (#{a 2368}# #{b 2369}#)
- (eq? (syntax->datum #{a 2368}#)
- #:rest))
- #{tmp 2365}#)
- #f)
- (@apply
- (lambda (#{a 2372}# #{b 2373}#)
- (#{rest 2329}#
- #{b 2373}#
- (reverse #{rreq 2333}#)
- '()
- '()))
- #{tmp 2365}#)
- (let ((#{tmp 2374}#
- (list #{tmp 2336}#)))
- (if (if #{tmp 2374}#
- (@apply
- (lambda (#{r 2376}#)
- (#{id? 376}# #{r 2376}#))
- #{tmp 2374}#)
- #f)
- (@apply
- (lambda (#{r 2378}#)
- (#{rest 2329}#
- #{r 2378}#
- (reverse #{rreq 2333}#)
- '()
- '()))
- #{tmp 2374}#)
- (let ((#{else 2380}# #{tmp 2336}#))
- (syntax-violation
- 'lambda*
- "invalid argument list"
- #{orig-args 2320}#
- #{args 2332}#)))))))))))))))))
- (#{opt 2325}#
- (lambda (#{args 2381}# #{req 2382}# #{ropt 2383}#)
- (let ((#{tmp 2387}# #{args 2381}#))
- (let ((#{tmp 2388}# ($sc-dispatch #{tmp 2387}# '())))
- (if #{tmp 2388}#
- (@apply
- (lambda ()
- (#{check 2331}#
- #{req 2382}#
- (reverse #{ropt 2383}#)
- #f
- '()))
- #{tmp 2388}#)
- (let ((#{tmp 2389}#
- ($sc-dispatch #{tmp 2387}# '(any . any))))
- (if (if #{tmp 2389}#
- (@apply
- (lambda (#{a 2392}# #{b 2393}#)
- (#{id? 376}# #{a 2392}#))
- #{tmp 2389}#)
- #f)
- (@apply
- (lambda (#{a 2396}# #{b 2397}#)
- (#{opt 2325}#
- #{b 2397}#
- #{req 2382}#
- (cons (cons #{a 2396}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2394" "i2395"))
- #(ribcage () () ())
- #(ribcage
- #(args req ropt)
- #((top) (top) (top))
- #("i2384"
- "i2385"
- "i2386"))
- #(ribcage
- (check rest key opt req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2321"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene guile))))
- #{ropt 2383}#)))
- #{tmp 2389}#)
- (let ((#{tmp 2398}#
- ($sc-dispatch
- #{tmp 2387}#
- '((any any) . any))))
- (if (if #{tmp 2398}#
- (@apply
- (lambda (#{a 2402}#
- #{init 2403}#
- #{b 2404}#)
- (#{id? 376}# #{a 2402}#))
- #{tmp 2398}#)
- #f)
- (@apply
- (lambda (#{a 2408}# #{init 2409}# #{b 2410}#)
- (#{opt 2325}#
- #{b 2410}#
- #{req 2382}#
- (cons (list #{a 2408}# #{init 2409}#)
- #{ropt 2383}#)))
- #{tmp 2398}#)
- (let ((#{tmp 2411}#
- ($sc-dispatch
- #{tmp 2387}#
- '(any . any))))
- (if (if #{tmp 2411}#
- (@apply
- (lambda (#{a 2414}# #{b 2415}#)
- (eq? (syntax->datum #{a 2414}#)
- #:key))
- #{tmp 2411}#)
- #f)
- (@apply
- (lambda (#{a 2418}# #{b 2419}#)
- (#{key 2327}#
- #{b 2419}#
- #{req 2382}#
- (reverse #{ropt 2383}#)
- '()))
- #{tmp 2411}#)
- (let ((#{tmp 2420}#
- ($sc-dispatch
- #{tmp 2387}#
- '(any any))))
- (if (if #{tmp 2420}#
- (@apply
- (lambda (#{a 2423}# #{b 2424}#)
- (eq? (syntax->datum #{a 2423}#)
- #:rest))
- #{tmp 2420}#)
- #f)
- (@apply
- (lambda (#{a 2427}# #{b 2428}#)
- (#{rest 2329}#
- #{b 2428}#
- #{req 2382}#
- (reverse #{ropt 2383}#)
- '()))
- #{tmp 2420}#)
- (let ((#{tmp 2429}#
- (list #{tmp 2387}#)))
- (if (if #{tmp 2429}#
- (@apply
- (lambda (#{r 2431}#)
- (#{id? 376}# #{r 2431}#))
- #{tmp 2429}#)
- #f)
- (@apply
- (lambda (#{r 2433}#)
- (#{rest 2329}#
- #{r 2433}#
- #{req 2382}#
- (reverse #{ropt 2383}#)
- '()))
- #{tmp 2429}#)
- (let ((#{else 2435}# #{tmp 2387}#))
- (syntax-violation
- 'lambda*
- "invalid optional argument list"
- #{orig-args 2320}#
- #{args 2381}#)))))))))))))))))
- (#{key 2327}#
- (lambda (#{args 2436}#
- #{req 2437}#
- #{opt 2438}#
- #{rkey 2439}#)
- (let ((#{tmp 2444}# #{args 2436}#))
- (let ((#{tmp 2445}# ($sc-dispatch #{tmp 2444}# '())))
- (if #{tmp 2445}#
- (@apply
- (lambda ()
- (#{check 2331}#
- #{req 2437}#
- #{opt 2438}#
- #f
- (cons #f (reverse #{rkey 2439}#))))
- #{tmp 2445}#)
- (let ((#{tmp 2446}#
- ($sc-dispatch #{tmp 2444}# '(any . any))))
- (if (if #{tmp 2446}#
- (@apply
- (lambda (#{a 2449}# #{b 2450}#)
- (#{id? 376}# #{a 2449}#))
- #{tmp 2446}#)
- #f)
- (@apply
- (lambda (#{a 2453}# #{b 2454}#)
- (let ((#{tmp 2456}#
- (symbol->keyword
- (syntax->datum #{a 2453}#))))
- (let ((#{k 2458}# #{tmp 2456}#))
- (#{key 2327}#
- #{b 2454}#
- #{req 2437}#
- #{opt 2438}#
- (cons (cons #{k 2458}#
- (cons #{a 2453}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(k)
- #((top))
- #("i2457"))
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2451"
- "i2452"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(args
- req
- opt
- rkey)
- #((top)
- (top)
- (top)
- (top))
- #("i2440"
- "i2441"
- "i2442"
- "i2443"))
- #(ribcage
- (check rest
- key
- opt
- req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2321"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene guile)))))
- #{rkey 2439}#)))))
- #{tmp 2446}#)
- (let ((#{tmp 2459}#
- ($sc-dispatch
- #{tmp 2444}#
- '((any any) . any))))
- (if (if #{tmp 2459}#
- (@apply
- (lambda (#{a 2463}#
- #{init 2464}#
- #{b 2465}#)
- (#{id? 376}# #{a 2463}#))
- #{tmp 2459}#)
- #f)
- (@apply
- (lambda (#{a 2469}# #{init 2470}# #{b 2471}#)
- (let ((#{tmp 2473}#
- (symbol->keyword
- (syntax->datum #{a 2469}#))))
- (let ((#{k 2475}# #{tmp 2473}#))
- (#{key 2327}#
- #{b 2471}#
- #{req 2437}#
- #{opt 2438}#
- (cons (list #{k 2475}#
- #{a 2469}#
- #{init 2470}#)
- #{rkey 2439}#)))))
- #{tmp 2459}#)
- (let ((#{tmp 2476}#
- ($sc-dispatch
- #{tmp 2444}#
- '((any any any) . any))))
- (if (if #{tmp 2476}#
- (@apply
- (lambda (#{a 2481}#
- #{init 2482}#
- #{k 2483}#
- #{b 2484}#)
- (if (#{id? 376}# #{a 2481}#)
- (keyword?
- (syntax->datum #{k 2483}#))
- #f))
- #{tmp 2476}#)
- #f)
- (@apply
- (lambda (#{a 2491}#
- #{init 2492}#
- #{k 2493}#
- #{b 2494}#)
- (#{key 2327}#
- #{b 2494}#
- #{req 2437}#
- #{opt 2438}#
- (cons (list #{k 2493}#
- #{a 2491}#
- #{init 2492}#)
- #{rkey 2439}#)))
- #{tmp 2476}#)
- (let ((#{tmp 2495}#
- ($sc-dispatch
- #{tmp 2444}#
- '(any))))
- (if (if #{tmp 2495}#
- (@apply
- (lambda (#{aok 2497}#)
- (eq? (syntax->datum
- #{aok 2497}#)
- #:allow-other-keys))
- #{tmp 2495}#)
- #f)
- (@apply
- (lambda (#{aok 2499}#)
- (#{check 2331}#
- #{req 2437}#
- #{opt 2438}#
- #f
- (cons #t
- (reverse #{rkey 2439}#))))
- #{tmp 2495}#)
- (let ((#{tmp 2500}#
- ($sc-dispatch
- #{tmp 2444}#
- '(any any any))))
- (if (if #{tmp 2500}#
- (@apply
- (lambda (#{aok 2504}#
- #{a 2505}#
- #{b 2506}#)
- (if (eq? (syntax->datum
- #{aok 2504}#)
- #:allow-other-keys)
- (eq? (syntax->datum
- #{a 2505}#)
- #:rest)
- #f))
- #{tmp 2500}#)
- #f)
- (@apply
- (lambda (#{aok 2512}#
- #{a 2513}#
- #{b 2514}#)
- (#{rest 2329}#
- #{b 2514}#
- #{req 2437}#
- #{opt 2438}#
- (cons #t
- (reverse
- #{rkey 2439}#))))
- #{tmp 2500}#)
- (let ((#{tmp 2515}#
- ($sc-dispatch
- #{tmp 2444}#
- '(any . any))))
- (if (if #{tmp 2515}#
- (@apply
- (lambda (#{aok 2518}#
- #{r 2519}#)
- (if (eq? (syntax->datum
- #{aok 2518}#)
- #:allow-other-keys)
- (#{id? 376}#
- #{r 2519}#)
- #f))
- #{tmp 2515}#)
- #f)
- (@apply
- (lambda (#{aok 2524}#
- #{r 2525}#)
- (#{rest 2329}#
- #{r 2525}#
- #{req 2437}#
- #{opt 2438}#
- (cons #t
- (reverse
- #{rkey 2439}#))))
- #{tmp 2515}#)
- (let ((#{tmp 2526}#
- ($sc-dispatch
- #{tmp 2444}#
- '(any any))))
- (if (if #{tmp 2526}#
- (@apply
- (lambda (#{a 2529}#
- #{b 2530}#)
- (eq? (syntax->datum
- #{a 2529}#)
- #:rest))
- #{tmp 2526}#)
- #f)
- (@apply
- (lambda (#{a 2533}#
- #{b 2534}#)
- (#{rest 2329}#
- #{b 2534}#
- #{req 2437}#
- #{opt 2438}#
- (cons #f
- (reverse
- #{rkey 2439}#))))
- #{tmp 2526}#)
- (let ((#{tmp 2535}#
- (list #{tmp 2444}#)))
- (if (if #{tmp 2535}#
- (@apply
- (lambda (#{r 2537}#)
- (#{id? 376}#
- #{r 2537}#))
- #{tmp 2535}#)
- #f)
- (@apply
- (lambda (#{r 2539}#)
- (#{rest 2329}#
- #{r 2539}#
- #{req 2437}#
- #{opt 2438}#
- (cons #f
- (reverse
- #{rkey 2439}#))))
- #{tmp 2535}#)
- (let ((#{else 2541}#
- #{tmp 2444}#))
- (syntax-violation
- 'lambda*
- "invalid keyword argument list"
- #{orig-args 2320}#
- #{args 2436}#)))))))))))))))))))))))
- (#{rest 2329}#
- (lambda (#{args 2542}#
- #{req 2543}#
- #{opt 2544}#
- #{kw 2545}#)
- (let ((#{tmp 2550}# #{args 2542}#))
- (let ((#{tmp 2551}# (list #{tmp 2550}#)))
- (if (if #{tmp 2551}#
- (@apply
- (lambda (#{r 2553}#) (#{id? 376}# #{r 2553}#))
- #{tmp 2551}#)
- #f)
- (@apply
- (lambda (#{r 2555}#)
- (#{check 2331}#
- #{req 2543}#
- #{opt 2544}#
- #{r 2555}#
- #{kw 2545}#))
- #{tmp 2551}#)
- (let ((#{else 2557}# #{tmp 2550}#))
- (syntax-violation
- 'lambda*
- "invalid rest argument"
- #{orig-args 2320}#
- #{args 2542}#)))))))
- (#{check 2331}#
- (lambda (#{req 2558}#
- #{opt 2559}#
- #{rest 2560}#
- #{kw 2561}#)
- (if (#{distinct-bound-ids? 438}#
- (append
- #{req 2558}#
- (map car #{opt 2559}#)
- (if #{rest 2560}# (list #{rest 2560}#) '())
- (if (pair? #{kw 2561}#)
- (map cadr (cdr #{kw 2561}#))
- '())))
- (values
- #{req 2558}#
- #{opt 2559}#
- #{rest 2560}#
- #{kw 2561}#)
- (syntax-violation
- 'lambda*
- "duplicate identifier in argument list"
- #{orig-args 2320}#)))))
- (begin (#{req 2323}# #{orig-args 2320}# '())))))
- (#{chi-lambda-case 480}#
- (lambda (#{e 2569}#
- #{r 2570}#
- #{w 2571}#
- #{s 2572}#
- #{mod 2573}#
- #{get-formals 2574}#
- #{clauses 2575}#)
- (letrec*
- ((#{expand-req 2584}#
- (lambda (#{req 2591}#
- #{opt 2592}#
- #{rest 2593}#
- #{kw 2594}#
- #{body 2595}#)
- (begin
- (let ((#{vars 2603}#
- (map #{gen-var 484}# #{req 2591}#))
- (#{labels 2604}#
- (#{gen-labels 391}# #{req 2591}#)))
- (begin
- (let ((#{r* 2607}#
- (#{extend-var-env 366}#
- #{labels 2604}#
- #{vars 2603}#
- #{r 2570}#))
- (#{w* 2608}#
- (#{make-binding-wrap 420}#
- #{req 2591}#
- #{labels 2604}#
- #{w 2571}#)))
- (#{expand-opt 2586}#
- (map syntax->datum #{req 2591}#)
- #{opt 2592}#
- #{rest 2593}#
- #{kw 2594}#
- #{body 2595}#
- (reverse #{vars 2603}#)
- #{r* 2607}#
- #{w* 2608}#
- '()
- '())))))))
- (#{expand-opt 2586}#
- (lambda (#{req 2609}#
- #{opt 2610}#
- #{rest 2611}#
- #{kw 2612}#
- #{body 2613}#
- #{vars 2614}#
- #{r* 2615}#
- #{w* 2616}#
- #{out 2617}#
- #{inits 2618}#)
- (if (pair? #{opt 2610}#)
- (let ((#{tmp 2631}# (car #{opt 2610}#)))
- (let ((#{tmp 2632}#
- ($sc-dispatch #{tmp 2631}# '(any any))))
- (if #{tmp 2632}#
- (@apply
- (lambda (#{id 2635}# #{i 2636}#)
- (begin
- (let ((#{v 2639}#
- (#{gen-var 484}# #{id 2635}#)))
- (begin
- (let ((#{l 2641}#
- (#{gen-labels 391}#
- (list #{v 2639}#))))
- (begin
- (let ((#{r** 2643}#
- (#{extend-var-env 366}#
- #{l 2641}#
- (list #{v 2639}#)
- #{r* 2615}#)))
- (begin
- (let ((#{w** 2645}#
- (#{make-binding-wrap 420}#
- (list #{id 2635}#)
- #{l 2641}#
- #{w* 2616}#)))
- (#{expand-opt 2586}#
- #{req 2609}#
- (cdr #{opt 2610}#)
- #{rest 2611}#
- #{kw 2612}#
- #{body 2613}#
- (cons #{v 2639}# #{vars 2614}#)
- #{r** 2643}#
- #{w** 2645}#
- (cons (syntax->datum
- #{id 2635}#)
- #{out 2617}#)
- (cons (#{chi 456}#
- #{i 2636}#
- #{r* 2615}#
- #{w* 2616}#
- #{mod 2573}#)
- #{inits 2618}#)))))))))))
- #{tmp 2632}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2631}#))))
- (if #{rest 2611}#
- (begin
- (let ((#{v 2650}# (#{gen-var 484}# #{rest 2611}#)))
- (begin
- (let ((#{l 2652}#
- (#{gen-labels 391}# (list #{v 2650}#))))
- (begin
- (let ((#{r* 2654}#
- (#{extend-var-env 366}#
- #{l 2652}#
- (list #{v 2650}#)
- #{r* 2615}#)))
- (begin
- (let ((#{w* 2656}#
- (#{make-binding-wrap 420}#
- (list #{rest 2611}#)
- #{l 2652}#
- #{w* 2616}#)))
- (#{expand-kw 2588}#
- #{req 2609}#
- (if (pair? #{out 2617}#)
- (reverse #{out 2617}#)
- #f)
- (syntax->datum #{rest 2611}#)
- (if (pair? #{kw 2612}#)
- (cdr #{kw 2612}#)
- #{kw 2612}#)
- #{body 2613}#
- (cons #{v 2650}# #{vars 2614}#)
- #{r* 2654}#
- #{w* 2656}#
- (if (pair? #{kw 2612}#)
- (car #{kw 2612}#)
- #f)
- '()
- #{inits 2618}#)))))))))
- (#{expand-kw 2588}#
- #{req 2609}#
- (if (pair? #{out 2617}#)
- (reverse #{out 2617}#)
- #f)
- #f
- (if (pair? #{kw 2612}#)
- (cdr #{kw 2612}#)
- #{kw 2612}#)
- #{body 2613}#
- #{vars 2614}#
- #{r* 2615}#
- #{w* 2616}#
- (if (pair? #{kw 2612}#) (car #{kw 2612}#) #f)
- '()
- #{inits 2618}#)))))
- (#{expand-kw 2588}#
- (lambda (#{req 2658}#
- #{opt 2659}#
- #{rest 2660}#
- #{kw 2661}#
- #{body 2662}#
- #{vars 2663}#
- #{r* 2664}#
- #{w* 2665}#
- #{aok 2666}#
- #{out 2667}#
- #{inits 2668}#)
- (if (pair? #{kw 2661}#)
- (let ((#{tmp 2682}# (car #{kw 2661}#)))
- (let ((#{tmp 2683}#
- ($sc-dispatch #{tmp 2682}# '(any any any))))
- (if #{tmp 2683}#
- (@apply
- (lambda (#{k 2687}# #{id 2688}# #{i 2689}#)
- (begin
- (let ((#{v 2692}#
- (#{gen-var 484}# #{id 2688}#)))
- (begin
- (let ((#{l 2694}#
- (#{gen-labels 391}#
- (list #{v 2692}#))))
- (begin
- (let ((#{r** 2696}#
- (#{extend-var-env 366}#
- #{l 2694}#
- (list #{v 2692}#)
- #{r* 2664}#)))
- (begin
- (let ((#{w** 2698}#
- (#{make-binding-wrap 420}#
- (list #{id 2688}#)
- #{l 2694}#
- #{w* 2665}#)))
- (#{expand-kw 2588}#
- #{req 2658}#
- #{opt 2659}#
- #{rest 2660}#
- (cdr #{kw 2661}#)
- #{body 2662}#
- (cons #{v 2692}# #{vars 2663}#)
- #{r** 2696}#
- #{w** 2698}#
- #{aok 2666}#
- (cons (list (syntax->datum
- #{k 2687}#)
- (syntax->datum
- #{id 2688}#)
- #{v 2692}#)
- #{out 2667}#)
- (cons (#{chi 456}#
- #{i 2689}#
- #{r* 2664}#
- #{w* 2665}#
- #{mod 2573}#)
- #{inits 2668}#)))))))))))
- #{tmp 2683}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2682}#))))
- (#{expand-body 2590}#
- #{req 2658}#
- #{opt 2659}#
- #{rest 2660}#
- (if (begin
- (let ((#{t 2702}# #{aok 2666}#))
- (if #{t 2702}# #{t 2702}# (pair? #{out 2667}#))))
- (cons #{aok 2666}# (reverse #{out 2667}#))
- #f)
- #{body 2662}#
- (reverse #{vars 2663}#)
- #{r* 2664}#
- #{w* 2665}#
- (reverse #{inits 2668}#)
- '()))))
- (#{expand-body 2590}#
- (lambda (#{req 2704}#
- #{opt 2705}#
- #{rest 2706}#
- #{kw 2707}#
- #{body 2708}#
- #{vars 2709}#
- #{r* 2710}#
- #{w* 2711}#
- #{inits 2712}#
- #{meta 2713}#)
- (let ((#{tmp 2724}# #{body 2708}#))
- (let ((#{tmp 2725}#
- ($sc-dispatch #{tmp 2724}# '(any any . each-any))))
- (if (if #{tmp 2725}#
- (@apply
- (lambda (#{docstring 2729}#
- #{e1 2730}#
- #{e2 2731}#)
- (string? (syntax->datum #{docstring 2729}#)))
- #{tmp 2725}#)
- #f)
- (@apply
- (lambda (#{docstring 2735}# #{e1 2736}# #{e2 2737}#)
- (#{expand-body 2590}#
- #{req 2704}#
- #{opt 2705}#
- #{rest 2706}#
- #{kw 2707}#
- (cons #{e1 2736}# #{e2 2737}#)
- #{vars 2709}#
- #{r* 2710}#
- #{w* 2711}#
- #{inits 2712}#
- (append
- #{meta 2713}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring 2735}#))))))
- #{tmp 2725}#)
- (let ((#{tmp 2740}#
- ($sc-dispatch
- #{tmp 2724}#
- '(#(vector #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp 2740}#
- (@apply
- (lambda (#{k 2745}#
- #{v 2746}#
- #{e1 2747}#
- #{e2 2748}#)
- (#{expand-body 2590}#
- #{req 2704}#
- #{opt 2705}#
- #{rest 2706}#
- #{kw 2707}#
- (cons #{e1 2747}# #{e2 2748}#)
- #{vars 2709}#
- #{r* 2710}#
- #{w* 2711}#
- #{inits 2712}#
- (append
- #{meta 2713}#
- (syntax->datum
- (map cons #{k 2745}# #{v 2746}#)))))
- #{tmp 2740}#)
- (let ((#{tmp 2752}#
- ($sc-dispatch
- #{tmp 2724}#
- '(any . each-any))))
- (if #{tmp 2752}#
- (@apply
- (lambda (#{e1 2755}# #{e2 2756}#)
- (values
- #{meta 2713}#
- #{req 2704}#
- #{opt 2705}#
- #{rest 2706}#
- #{kw 2707}#
- #{inits 2712}#
- #{vars 2709}#
- (#{chi-body 464}#
- (cons #{e1 2755}# #{e2 2756}#)
- (#{source-wrap 444}#
- #{e 2569}#
- #{w 2571}#
- #{s 2572}#
- #{mod 2573}#)
- #{r* 2710}#
- #{w* 2711}#
- #{mod 2573}#)))
- #{tmp 2752}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2724}#)))))))))))
- (begin
- (let ((#{tmp 2758}# #{clauses 2575}#))
- (let ((#{tmp 2759}# ($sc-dispatch #{tmp 2758}# '())))
- (if #{tmp 2759}#
- (@apply (lambda () (values '() #f)) #{tmp 2759}#)
- (let ((#{tmp 2760}#
- ($sc-dispatch
- #{tmp 2758}#
- '((any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 2760}#
- (@apply
- (lambda (#{args 2767}#
- #{e1 2768}#
- #{e2 2769}#
- #{args* 2770}#
- #{e1* 2771}#
- #{e2* 2772}#)
- (call-with-values
- (lambda () (#{get-formals 2574}# #{args 2767}#))
- (lambda (#{req 2773}#
- #{opt 2774}#
- #{rest 2775}#
- #{kw 2776}#)
- (call-with-values
- (lambda ()
- (#{expand-req 2584}#
- #{req 2773}#
- #{opt 2774}#
- #{rest 2775}#
- #{kw 2776}#
- (cons #{e1 2768}# #{e2 2769}#)))
- (lambda (#{meta 2782}#
- #{req 2783}#
- #{opt 2784}#
- #{rest 2785}#
- #{kw 2786}#
- #{inits 2787}#
- #{vars 2788}#
- #{body 2789}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 480}#
- #{e 2569}#
- #{r 2570}#
- #{w 2571}#
- #{s 2572}#
- #{mod 2573}#
- #{get-formals 2574}#
- (map (lambda (#{tmp 2800}#
- #{tmp 2799}#
- #{tmp 2798}#)
- (cons #{tmp 2798}#
- (cons #{tmp 2799}#
- #{tmp 2800}#)))
- #{e2* 2772}#
- #{e1* 2771}#
- #{args* 2770}#)))
- (lambda (#{meta* 2802}# #{else* 2803}#)
- (values
- (append
- #{meta 2782}#
- #{meta* 2802}#)
- (#{build-lambda-case 324}#
- #{s 2572}#
- #{req 2783}#
- #{opt 2784}#
- #{rest 2785}#
- #{kw 2786}#
- #{inits 2787}#
- #{vars 2788}#
- #{body 2789}#
- #{else* 2803}#)))))))))
- #{tmp 2760}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2758}#))))))))))
- (#{strip 482}#
- (lambda (#{x 2806}# #{w 2807}#)
- (if (memq 'top (car #{w 2807}#))
- #{x 2806}#
- (letrec*
- ((#{f 2814}#
- (lambda (#{x 2815}#)
- (if (#{syntax-object? 342}# #{x 2815}#)
- (#{strip 482}#
- (#{syntax-object-expression 344}# #{x 2815}#)
- (#{syntax-object-wrap 346}# #{x 2815}#))
- (if (pair? #{x 2815}#)
- (begin
- (let ((#{a 2822}# (#{f 2814}# (car #{x 2815}#)))
- (#{d 2823}# (#{f 2814}# (cdr #{x 2815}#))))
- (if (if (eq? #{a 2822}# (car #{x 2815}#))
- (eq? #{d 2823}# (cdr #{x 2815}#))
- #f)
- #{x 2815}#
- (cons #{a 2822}# #{d 2823}#))))
- (if (vector? #{x 2815}#)
- (begin
- (let ((#{old 2829}# (vector->list #{x 2815}#)))
- (begin
- (let ((#{new 2831}#
- (map #{f 2814}# #{old 2829}#)))
- (if (#{and-map* 38}#
- eq?
- #{old 2829}#
- #{new 2831}#)
- #{x 2815}#
- (list->vector #{new 2831}#))))))
- #{x 2815}#))))))
- (begin (#{f 2814}# #{x 2806}#))))))
- (#{gen-var 484}#
- (lambda (#{id 2833}#)
- (begin
- (let ((#{id 2836}#
- (if (#{syntax-object? 342}# #{id 2833}#)
- (#{syntax-object-expression 344}# #{id 2833}#)
- #{id 2833}#)))
- (gensym
- (string-append (symbol->string #{id 2836}#) " "))))))
- (#{lambda-var-list 486}#
- (lambda (#{vars 2838}#)
- (letrec*
- ((#{lvl 2844}#
- (lambda (#{vars 2845}# #{ls 2846}# #{w 2847}#)
- (if (pair? #{vars 2845}#)
- (#{lvl 2844}#
- (cdr #{vars 2845}#)
- (cons (#{wrap 442}# (car #{vars 2845}#) #{w 2847}# #f)
- #{ls 2846}#)
- #{w 2847}#)
- (if (#{id? 376}# #{vars 2845}#)
- (cons (#{wrap 442}# #{vars 2845}# #{w 2847}# #f)
- #{ls 2846}#)
- (if (null? #{vars 2845}#)
- #{ls 2846}#
- (if (#{syntax-object? 342}# #{vars 2845}#)
- (#{lvl 2844}#
- (#{syntax-object-expression 344}# #{vars 2845}#)
- #{ls 2846}#
- (#{join-wraps 424}#
- #{w 2847}#
- (#{syntax-object-wrap 346}# #{vars 2845}#)))
- (cons #{vars 2845}# #{ls 2846}#))))))))
- (begin (#{lvl 2844}# #{vars 2838}# '() '(())))))))
- (begin
- (lambda (#{src 804}# #{name 805}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 2)
- #{src 804}#
- #{name 805}#))
- (lambda (#{x 1182}# #{update 1183}#)
- (vector-set! #{x 1182}# 1 #{update 1183}#))
- (lambda (#{x 1186}# #{update 1187}#)
- (vector-set! #{x 1186}# 2 #{update 1187}#))
- (lambda (#{x 1190}# #{update 1191}#)
- (vector-set! #{x 1190}# 3 #{update 1191}#))
- (lambda (#{x 1271}#)
- (if (vector? #{x 1271}#)
- (if (= (vector-length #{x 1271}#) 4)
- (eq? (vector-ref #{x 1271}# 0) 'ribcage)
- #f)
- #f))
- (begin
- (#{global-extend 372}#
- 'local-syntax
- 'letrec-syntax
- #t)
- (#{global-extend 372}#
- 'local-syntax
- 'let-syntax
- #f)
- (#{global-extend 372}#
- 'core
- 'fluid-let-syntax
- (lambda (#{e 2858}#
- #{r 2859}#
- #{w 2860}#
- #{s 2861}#
- #{mod 2862}#)
- (let ((#{tmp 2868}# #{e 2858}#))
- (let ((#{tmp 2869}#
- ($sc-dispatch
- #{tmp 2868}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2869}#
- (@apply
- (lambda (#{var 2874}#
- #{val 2875}#
- #{e1 2876}#
- #{e2 2877}#)
- (#{valid-bound-ids? 436}# #{var 2874}#))
- #{tmp 2869}#)
- #f)
- (@apply
- (lambda (#{var 2883}#
- #{val 2884}#
- #{e1 2885}#
- #{e2 2886}#)
- (begin
- (let ((#{names 2888}#
- (map (lambda (#{x 2889}#)
- (#{id-var-name 430}#
- #{x 2889}#
- #{w 2860}#))
- #{var 2883}#)))
- (begin
- (for-each
- (lambda (#{id 2892}# #{n 2893}#)
- (begin
- (let ((#{atom-key 2898}#
- (car (#{lookup 370}#
- #{n 2893}#
- #{r 2859}#
- #{mod 2862}#))))
- (if (eqv? #{atom-key 2898}#
- 'displaced-lexical)
- (syntax-violation
- 'fluid-let-syntax
- "identifier out of context"
- #{e 2858}#
- (#{source-wrap 444}#
- #{id 2892}#
- #{w 2860}#
- #{s 2861}#
- #{mod 2862}#))))))
- #{var 2883}#
- #{names 2888}#)
- (#{chi-body 464}#
- (cons #{e1 2885}# #{e2 2886}#)
- (#{source-wrap 444}#
- #{e 2858}#
- #{w 2860}#
- #{s 2861}#
- #{mod 2862}#)
- (#{extend-env 364}#
- #{names 2888}#
- (begin
- (let ((#{trans-r 2904}#
- (#{macros-only-env 368}#
- #{r 2859}#)))
- (map (lambda (#{x 2905}#)
- (cons 'macro
- (#{eval-local-transformer 468}#
- (#{chi 456}#
- #{x 2905}#
- #{trans-r 2904}#
- #{w 2860}#
- #{mod 2862}#)
- #{mod 2862}#)))
- #{val 2884}#)))
- #{r 2859}#)
- #{w 2860}#
- #{mod 2862}#)))))
- #{tmp 2869}#)
- (let ((#{_ 2910}# #{tmp 2868}#))
- (syntax-violation
- 'fluid-let-syntax
- "bad syntax"
- (#{source-wrap 444}#
- #{e 2858}#
- #{w 2860}#
- #{s 2861}#
- #{mod 2862}#))))))))
- (#{global-extend 372}#
- 'core
- 'quote
- (lambda (#{e 2911}#
- #{r 2912}#
- #{w 2913}#
- #{s 2914}#
- #{mod 2915}#)
- (let ((#{tmp 2921}# #{e 2911}#))
- (let ((#{tmp 2922}#
- ($sc-dispatch #{tmp 2921}# '(_ any))))
- (if #{tmp 2922}#
- (@apply
- (lambda (#{e 2924}#)
- (#{build-data 328}#
- #{s 2914}#
- (#{strip 482}# #{e 2924}# #{w 2913}#)))
- #{tmp 2922}#)
- (let ((#{_ 2926}# #{tmp 2921}#))
- (syntax-violation
- 'quote
- "bad syntax"
- (#{source-wrap 444}#
- #{e 2911}#
- #{w 2913}#
- #{s 2914}#
- #{mod 2915}#))))))))
- (#{global-extend 372}#
- 'core
- 'syntax
- (letrec*
- ((#{gen-syntax 2928}#
- (lambda (#{src 2943}#
- #{e 2944}#
- #{r 2945}#
- #{maps 2946}#
- #{ellipsis? 2947}#
- #{mod 2948}#)
- (if (#{id? 376}# #{e 2944}#)
- (begin
- (let ((#{label 2956}#
- (#{id-var-name 430}# #{e 2944}# '(()))))
- (begin
- (let ((#{b 2959}#
- (#{lookup 370}#
- #{label 2956}#
- #{r 2945}#
- #{mod 2948}#)))
- (if (eq? (car #{b 2959}#) 'syntax)
- (call-with-values
- (lambda ()
- (begin
- (let ((#{var.lev 2962}# (cdr #{b 2959}#)))
- (#{gen-ref 2930}#
- #{src 2943}#
- (car #{var.lev 2962}#)
- (cdr #{var.lev 2962}#)
- #{maps 2946}#))))
- (lambda (#{var 2964}# #{maps 2965}#)
- (values
- (list 'ref #{var 2964}#)
- #{maps 2965}#)))
- (if (#{ellipsis? 2947}# #{e 2944}#)
- (syntax-violation
- 'syntax
- "misplaced ellipsis"
- #{src 2943}#)
- (values
- (list 'quote #{e 2944}#)
- #{maps 2946}#)))))))
- (let ((#{tmp 2970}# #{e 2944}#))
- (let ((#{tmp 2971}#
- ($sc-dispatch #{tmp 2970}# '(any any))))
- (if (if #{tmp 2971}#
- (@apply
- (lambda (#{dots 2974}# #{e 2975}#)
- (#{ellipsis? 2947}# #{dots 2974}#))
- #{tmp 2971}#)
- #f)
- (@apply
- (lambda (#{dots 2978}# #{e 2979}#)
- (#{gen-syntax 2928}#
- #{src 2943}#
- #{e 2979}#
- #{r 2945}#
- #{maps 2946}#
- (lambda (#{x 2980}#) #f)
- #{mod 2948}#))
- #{tmp 2971}#)
- (let ((#{tmp 2982}#
- ($sc-dispatch
- #{tmp 2970}#
- '(any any . any))))
- (if (if #{tmp 2982}#
- (@apply
- (lambda (#{x 2986}#
- #{dots 2987}#
- #{y 2988}#)
- (#{ellipsis? 2947}# #{dots 2987}#))
- #{tmp 2982}#)
- #f)
- (@apply
- (lambda (#{x 2992}# #{dots 2993}# #{y 2994}#)
- (letrec*
- ((#{f 2998}#
- (lambda (#{y 2999}# #{k 3000}#)
- (let ((#{tmp 3007}# #{y 2999}#))
- (let ((#{tmp 3008}#
- ($sc-dispatch
- #{tmp 3007}#
- '(any . any))))
- (if (if #{tmp 3008}#
- (@apply
- (lambda (#{dots 3011}#
- #{y 3012}#)
- (#{ellipsis? 2947}#
- #{dots 3011}#))
- #{tmp 3008}#)
- #f)
- (@apply
- (lambda (#{dots 3015}#
- #{y 3016}#)
- (#{f 2998}#
- #{y 3016}#
- (lambda (#{maps 3017}#)
- (call-with-values
- (lambda ()
- (#{k 3000}#
- (cons '()
- #{maps 3017}#)))
- (lambda (#{x 3019}#
- #{maps 3020}#)
- (if (null? (car #{maps 3020}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src 2943}#)
- (values
- (#{gen-mappend 2932}#
- #{x 3019}#
- (car #{maps 3020}#))
- (cdr #{maps 3020}#))))))))
- #{tmp 3008}#)
- (let ((#{_ 3024}#
- #{tmp 3007}#))
- (call-with-values
- (lambda ()
- (#{gen-syntax 2928}#
- #{src 2943}#
- #{y 2999}#
- #{r 2945}#
- #{maps 2946}#
- #{ellipsis? 2947}#
- #{mod 2948}#))
- (lambda (#{y 3025}#
- #{maps 3026}#)
- (call-with-values
- (lambda ()
- (#{k 3000}#
- #{maps 3026}#))
- (lambda (#{x 3029}#
- #{maps 3030}#)
- (values
- (#{gen-append 2938}#
- #{x 3029}#
- #{y 3025}#)
- #{maps 3030}#))))))))))))
- (begin
- (#{f 2998}#
- #{y 2994}#
- (lambda (#{maps 3001}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2928}#
- #{src 2943}#
- #{x 2992}#
- #{r 2945}#
- (cons '() #{maps 3001}#)
- #{ellipsis? 2947}#
- #{mod 2948}#))
- (lambda (#{x 3003}# #{maps 3004}#)
- (if (null? (car #{maps 3004}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src 2943}#)
- (values
- (#{gen-map 2934}#
- #{x 3003}#
- (car #{maps 3004}#))
- (cdr #{maps 3004}#))))))))))
- #{tmp 2982}#)
- (let ((#{tmp 3033}#
- ($sc-dispatch
- #{tmp 2970}#
- '(any . any))))
- (if #{tmp 3033}#
- (@apply
- (lambda (#{x 3036}# #{y 3037}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2928}#
- #{src 2943}#
- #{x 3036}#
- #{r 2945}#
- #{maps 2946}#
- #{ellipsis? 2947}#
- #{mod 2948}#))
- (lambda (#{x 3038}# #{maps 3039}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2928}#
- #{src 2943}#
- #{y 3037}#
- #{r 2945}#
- #{maps 3039}#
- #{ellipsis? 2947}#
- #{mod 2948}#))
- (lambda (#{y 3042}# #{maps 3043}#)
- (values
- (#{gen-cons 2936}#
- #{x 3038}#
- #{y 3042}#)
- #{maps 3043}#))))))
- #{tmp 3033}#)
- (let ((#{tmp 3046}#
- ($sc-dispatch
- #{tmp 2970}#
- '#(vector (any . each-any)))))
- (if #{tmp 3046}#
- (@apply
- (lambda (#{e1 3049}# #{e2 3050}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2928}#
- #{src 2943}#
- (cons #{e1 3049}# #{e2 3050}#)
- #{r 2945}#
- #{maps 2946}#
- #{ellipsis? 2947}#
- #{mod 2948}#))
- (lambda (#{e 3052}# #{maps 3053}#)
- (values
- (#{gen-vector 2940}#
- #{e 3052}#)
- #{maps 3053}#))))
- #{tmp 3046}#)
- (let ((#{_ 3057}# #{tmp 2970}#))
- (values
- (list 'quote #{e 2944}#)
- #{maps 2946}#))))))))))))))
- (#{gen-ref 2930}#
- (lambda (#{src 3059}#
- #{var 3060}#
- #{level 3061}#
- #{maps 3062}#)
- (if (= #{level 3061}# 0)
- (values #{var 3060}# #{maps 3062}#)
- (if (null? #{maps 3062}#)
- (syntax-violation
- 'syntax
- "missing ellipsis"
- #{src 3059}#)
- (call-with-values
- (lambda ()
- (#{gen-ref 2930}#
- #{src 3059}#
- #{var 3060}#
- (#{1-}# #{level 3061}#)
- (cdr #{maps 3062}#)))
- (lambda (#{outer-var 3069}# #{outer-maps 3070}#)
- (begin
- (let ((#{b 3074}#
- (assq #{outer-var 3069}#
- (car #{maps 3062}#))))
- (if #{b 3074}#
- (values (cdr #{b 3074}#) #{maps 3062}#)
- (begin
- (let ((#{inner-var 3076}#
- (#{gen-var 484}# 'tmp)))
- (values
- #{inner-var 3076}#
- (cons (cons (cons #{outer-var 3069}#
- #{inner-var 3076}#)
- (car #{maps 3062}#))
- #{outer-maps 3070}#)))))))))))))
- (#{gen-mappend 2932}#
- (lambda (#{e 3077}# #{map-env 3078}#)
- (list 'apply
- '(primitive append)
- (#{gen-map 2934}# #{e 3077}# #{map-env 3078}#))))
- (#{gen-map 2934}#
- (lambda (#{e 3082}# #{map-env 3083}#)
- (begin
- (let ((#{formals 3088}# (map cdr #{map-env 3083}#))
- (#{actuals 3089}#
- (map (lambda (#{x 3090}#)
- (list 'ref (car #{x 3090}#)))
- #{map-env 3083}#)))
- (if (eq? (car #{e 3082}#) 'ref)
- (car #{actuals 3089}#)
- (if (and-map
- (lambda (#{x 3097}#)
- (if (eq? (car #{x 3097}#) 'ref)
- (memq (car (cdr #{x 3097}#))
- #{formals 3088}#)
- #f))
- (cdr #{e 3082}#))
- (cons 'map
- (cons (list 'primitive (car #{e 3082}#))
- (map (begin
- (let ((#{r 3103}#
- (map cons
- #{formals 3088}#
- #{actuals 3089}#)))
- (lambda (#{x 3104}#)
- (cdr (assq (car (cdr #{x 3104}#))
- #{r 3103}#)))))
- (cdr #{e 3082}#))))
- (cons 'map
- (cons (list 'lambda
- #{formals 3088}#
- #{e 3082}#)
- #{actuals 3089}#))))))))
- (#{gen-cons 2936}#
- (lambda (#{x 3108}# #{y 3109}#)
- (begin
- (let ((#{atom-key 3114}# (car #{y 3109}#)))
- (if (eqv? #{atom-key 3114}# 'quote)
- (if (eq? (car #{x 3108}#) 'quote)
- (list 'quote
- (cons (car (cdr #{x 3108}#))
- (car (cdr #{y 3109}#))))
- (if (eq? (car (cdr #{y 3109}#)) '())
- (list 'list #{x 3108}#)
- (list 'cons #{x 3108}# #{y 3109}#)))
- (if (eqv? #{atom-key 3114}# 'list)
- (cons 'list (cons #{x 3108}# (cdr #{y 3109}#)))
- (list 'cons #{x 3108}# #{y 3109}#)))))))
- (#{gen-append 2938}#
- (lambda (#{x 3123}# #{y 3124}#)
- (if (equal? #{y 3124}# ''())
- #{x 3123}#
- (list 'append #{x 3123}# #{y 3124}#))))
- (#{gen-vector 2940}#
- (lambda (#{x 3128}#)
- (if (eq? (car #{x 3128}#) 'list)
- (cons 'vector (cdr #{x 3128}#))
- (if (eq? (car #{x 3128}#) 'quote)
- (list 'quote
- (list->vector (car (cdr #{x 3128}#))))
- (list 'list->vector #{x 3128}#)))))
- (#{regen 2942}#
- (lambda (#{x 3138}#)
- (begin
- (let ((#{atom-key 3142}# (car #{x 3138}#)))
- (if (eqv? #{atom-key 3142}# 'ref)
- (#{build-lexical-reference 308}#
- 'value
- #f
- (car (cdr #{x 3138}#))
- (car (cdr #{x 3138}#)))
- (if (eqv? #{atom-key 3142}# 'primitive)
- (#{build-primref 326}# #f (car (cdr #{x 3138}#)))
- (if (eqv? #{atom-key 3142}# 'quote)
- (#{build-data 328}# #f (car (cdr #{x 3138}#)))
- (if (eqv? #{atom-key 3142}# 'lambda)
- (if (list? (car (cdr #{x 3138}#)))
- (#{build-simple-lambda 320}#
- #f
- (car (cdr #{x 3138}#))
- #f
- (car (cdr #{x 3138}#))
- '()
- (#{regen 2942}#
- (car (cdr (cdr #{x 3138}#)))))
- (error "how did we get here" #{x 3138}#))
- (#{build-application 302}#
- #f
- (#{build-primref 326}# #f (car #{x 3138}#))
- (map #{regen 2942}#
- (cdr #{x 3138}#))))))))))))
- (begin
- (lambda (#{e 3154}#
- #{r 3155}#
- #{w 3156}#
- #{s 3157}#
- #{mod 3158}#)
- (begin
- (let ((#{e 3165}#
- (#{source-wrap 444}#
- #{e 3154}#
- #{w 3156}#
- #{s 3157}#
- #{mod 3158}#)))
- (let ((#{tmp 3166}# #{e 3165}#))
- (let ((#{tmp 3167}#
- ($sc-dispatch #{tmp 3166}# '(_ any))))
- (if #{tmp 3167}#
- (@apply
- (lambda (#{x 3169}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2928}#
- #{e 3165}#
- #{x 3169}#
- #{r 3155}#
- '()
- #{ellipsis? 472}#
- #{mod 3158}#))
- (lambda (#{e 3170}# #{maps 3171}#)
- (#{regen 2942}# #{e 3170}#))))
- #{tmp 3167}#)
- (let ((#{_ 3175}# #{tmp 3166}#))
- (syntax-violation
- 'syntax
- "bad `syntax' form"
- #{e 3165}#)))))))))))
- (#{global-extend 372}#
- 'core
- 'lambda
- (lambda (#{e 3176}#
- #{r 3177}#
- #{w 3178}#
- #{s 3179}#
- #{mod 3180}#)
- (let ((#{tmp 3186}# #{e 3176}#))
- (let ((#{tmp 3187}#
- ($sc-dispatch
- #{tmp 3186}#
- '(_ any any . each-any))))
- (if #{tmp 3187}#
- (@apply
- (lambda (#{args 3191}# #{e1 3192}# #{e2 3193}#)
- (call-with-values
- (lambda ()
- (#{lambda-formals 474}# #{args 3191}#))
- (lambda (#{req 3194}#
- #{opt 3195}#
- #{rest 3196}#
- #{kw 3197}#)
- (letrec*
- ((#{lp 3205}#
- (lambda (#{body 3206}# #{meta 3207}#)
- (let ((#{tmp 3209}# #{body 3206}#))
- (let ((#{tmp 3210}#
- ($sc-dispatch
- #{tmp 3209}#
- '(any any . each-any))))
- (if (if #{tmp 3210}#
- (@apply
- (lambda (#{docstring 3214}#
- #{e1 3215}#
- #{e2 3216}#)
- (string?
- (syntax->datum
- #{docstring 3214}#)))
- #{tmp 3210}#)
- #f)
- (@apply
- (lambda (#{docstring 3220}#
- #{e1 3221}#
- #{e2 3222}#)
- (#{lp 3205}#
- (cons #{e1 3221}# #{e2 3222}#)
- (append
- #{meta 3207}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring 3220}#))))))
- #{tmp 3210}#)
- (let ((#{tmp 3225}#
- ($sc-dispatch
- #{tmp 3209}#
- '(#(vector
- #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp 3225}#
- (@apply
- (lambda (#{k 3230}#
- #{v 3231}#
- #{e1 3232}#
- #{e2 3233}#)
- (#{lp 3205}#
- (cons #{e1 3232}#
- #{e2 3233}#)
- (append
- #{meta 3207}#
- (syntax->datum
- (map cons
- #{k 3230}#
- #{v 3231}#)))))
- #{tmp 3225}#)
- (let ((#{_ 3238}# #{tmp 3209}#))
- (#{chi-simple-lambda 476}#
- #{e 3176}#
- #{r 3177}#
- #{w 3178}#
- #{s 3179}#
- #{mod 3180}#
- #{req 3194}#
- #{rest 3196}#
- #{meta 3207}#
- #{body 3206}#))))))))))
- (begin
- (#{lp 3205}#
- (cons #{e1 3192}# #{e2 3193}#)
- '()))))))
- #{tmp 3187}#)
- (let ((#{_ 3240}# #{tmp 3186}#))
- (syntax-violation
- 'lambda
- "bad lambda"
- #{e 3176}#)))))))
- (#{global-extend 372}#
- 'core
- 'lambda*
- (lambda (#{e 3241}#
- #{r 3242}#
- #{w 3243}#
- #{s 3244}#
- #{mod 3245}#)
- (let ((#{tmp 3251}# #{e 3241}#))
- (let ((#{tmp 3252}#
- ($sc-dispatch
- #{tmp 3251}#
- '(_ any any . each-any))))
- (if #{tmp 3252}#
- (@apply
- (lambda (#{args 3256}# #{e1 3257}# #{e2 3258}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 480}#
- #{e 3241}#
- #{r 3242}#
- #{w 3243}#
- #{s 3244}#
- #{mod 3245}#
- #{lambda*-formals 478}#
- (list (cons #{args 3256}#
- (cons #{e1 3257}# #{e2 3258}#)))))
- (lambda (#{meta 3260}# #{lcase 3261}#)
- (#{build-case-lambda 322}#
- #{s 3244}#
- #{meta 3260}#
- #{lcase 3261}#))))
- #{tmp 3252}#)
- (let ((#{_ 3265}# #{tmp 3251}#))
- (syntax-violation
- 'lambda
- "bad lambda*"
- #{e 3241}#)))))))
- (#{global-extend 372}#
- 'core
- 'case-lambda
- (lambda (#{e 3266}#
- #{r 3267}#
- #{w 3268}#
- #{s 3269}#
- #{mod 3270}#)
- (let ((#{tmp 3276}# #{e 3266}#))
- (let ((#{tmp 3277}#
- ($sc-dispatch
- #{tmp 3276}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3277}#
- (@apply
- (lambda (#{args 3284}#
- #{e1 3285}#
- #{e2 3286}#
- #{args* 3287}#
- #{e1* 3288}#
- #{e2* 3289}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 480}#
- #{e 3266}#
- #{r 3267}#
- #{w 3268}#
- #{s 3269}#
- #{mod 3270}#
- #{lambda-formals 474}#
- (cons (cons #{args 3284}#
- (cons #{e1 3285}# #{e2 3286}#))
- (map (lambda (#{tmp 3293}#
- #{tmp 3292}#
- #{tmp 3291}#)
- (cons #{tmp 3291}#
- (cons #{tmp 3292}#
- #{tmp 3293}#)))
- #{e2* 3289}#
- #{e1* 3288}#
- #{args* 3287}#))))
- (lambda (#{meta 3295}# #{lcase 3296}#)
- (#{build-case-lambda 322}#
- #{s 3269}#
- #{meta 3295}#
- #{lcase 3296}#))))
- #{tmp 3277}#)
- (let ((#{_ 3300}# #{tmp 3276}#))
- (syntax-violation
- 'case-lambda
- "bad case-lambda"
- #{e 3266}#)))))))
- (#{global-extend 372}#
- 'core
- 'case-lambda*
- (lambda (#{e 3301}#
- #{r 3302}#
- #{w 3303}#
- #{s 3304}#
- #{mod 3305}#)
- (let ((#{tmp 3311}# #{e 3301}#))
- (let ((#{tmp 3312}#
- ($sc-dispatch
- #{tmp 3311}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3312}#
- (@apply
- (lambda (#{args 3319}#
- #{e1 3320}#
- #{e2 3321}#
- #{args* 3322}#
- #{e1* 3323}#
- #{e2* 3324}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 480}#
- #{e 3301}#
- #{r 3302}#
- #{w 3303}#
- #{s 3304}#
- #{mod 3305}#
- #{lambda*-formals 478}#
- (cons (cons #{args 3319}#
- (cons #{e1 3320}# #{e2 3321}#))
- (map (lambda (#{tmp 3328}#
- #{tmp 3327}#
- #{tmp 3326}#)
- (cons #{tmp 3326}#
- (cons #{tmp 3327}#
- #{tmp 3328}#)))
- #{e2* 3324}#
- #{e1* 3323}#
- #{args* 3322}#))))
- (lambda (#{meta 3330}# #{lcase 3331}#)
- (#{build-case-lambda 322}#
- #{s 3304}#
- #{meta 3330}#
- #{lcase 3331}#))))
- #{tmp 3312}#)
- (let ((#{_ 3335}# #{tmp 3311}#))
- (syntax-violation
- 'case-lambda
- "bad case-lambda*"
- #{e 3301}#)))))))
- (#{global-extend 372}#
- 'core
- 'let
- (letrec*
- ((#{chi-let 3337}#
- (lambda (#{e 3338}#
- #{r 3339}#
- #{w 3340}#
- #{s 3341}#
- #{mod 3342}#
- #{constructor 3343}#
- #{ids 3344}#
- #{vals 3345}#
- #{exps 3346}#)
- (if (not (#{valid-bound-ids? 436}# #{ids 3344}#))
- (syntax-violation
- 'let
- "duplicate bound variable"
- #{e 3338}#)
- (begin
- (let ((#{labels 3358}#
- (#{gen-labels 391}# #{ids 3344}#))
- (#{new-vars 3359}#
- (map #{gen-var 484}# #{ids 3344}#)))
- (begin
- (let ((#{nw 3362}#
- (#{make-binding-wrap 420}#
- #{ids 3344}#
- #{labels 3358}#
- #{w 3340}#))
- (#{nr 3363}#
- (#{extend-var-env 366}#
- #{labels 3358}#
- #{new-vars 3359}#
- #{r 3339}#)))
- (#{constructor 3343}#
- #{s 3341}#
- (map syntax->datum #{ids 3344}#)
- #{new-vars 3359}#
- (map (lambda (#{x 3364}#)
- (#{chi 456}#
- #{x 3364}#
- #{r 3339}#
- #{w 3340}#
- #{mod 3342}#))
- #{vals 3345}#)
- (#{chi-body 464}#
- #{exps 3346}#
- (#{source-wrap 444}#
- #{e 3338}#
- #{nw 3362}#
- #{s 3341}#
- #{mod 3342}#)
- #{nr 3363}#
- #{nw 3362}#
- #{mod 3342}#))))))))))
- (begin
- (lambda (#{e 3366}#
- #{r 3367}#
- #{w 3368}#
- #{s 3369}#
- #{mod 3370}#)
- (let ((#{tmp 3376}# #{e 3366}#))
- (let ((#{tmp 3377}#
- ($sc-dispatch
- #{tmp 3376}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3377}#
- (@apply
- (lambda (#{id 3382}#
- #{val 3383}#
- #{e1 3384}#
- #{e2 3385}#)
- (and-map #{id? 376}# #{id 3382}#))
- #{tmp 3377}#)
- #f)
- (@apply
- (lambda (#{id 3391}#
- #{val 3392}#
- #{e1 3393}#
- #{e2 3394}#)
- (#{chi-let 3337}#
- #{e 3366}#
- #{r 3367}#
- #{w 3368}#
- #{s 3369}#
- #{mod 3370}#
- #{build-let 332}#
- #{id 3391}#
- #{val 3392}#
- (cons #{e1 3393}# #{e2 3394}#)))
- #{tmp 3377}#)
- (let ((#{tmp 3398}#
- ($sc-dispatch
- #{tmp 3376}#
- '(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 3398}#
- (@apply
- (lambda (#{f 3404}#
- #{id 3405}#
- #{val 3406}#
- #{e1 3407}#
- #{e2 3408}#)
- (if (#{id? 376}# #{f 3404}#)
- (and-map #{id? 376}# #{id 3405}#)
- #f))
- #{tmp 3398}#)
- #f)
- (@apply
- (lambda (#{f 3417}#
- #{id 3418}#
- #{val 3419}#
- #{e1 3420}#
- #{e2 3421}#)
- (#{chi-let 3337}#
- #{e 3366}#
- #{r 3367}#
- #{w 3368}#
- #{s 3369}#
- #{mod 3370}#
- #{build-named-let 334}#
- (cons #{f 3417}# #{id 3418}#)
- #{val 3419}#
- (cons #{e1 3420}# #{e2 3421}#)))
- #{tmp 3398}#)
- (let ((#{_ 3426}# #{tmp 3376}#))
- (syntax-violation
- 'let
- "bad let"
- (#{source-wrap 444}#
- #{e 3366}#
- #{w 3368}#
- #{s 3369}#
- #{mod 3370}#))))))))))))
- (#{global-extend 372}#
- 'core
- 'letrec
- (lambda (#{e 3427}#
- #{r 3428}#
- #{w 3429}#
- #{s 3430}#
- #{mod 3431}#)
- (let ((#{tmp 3437}# #{e 3427}#))
- (let ((#{tmp 3438}#
- ($sc-dispatch
- #{tmp 3437}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3438}#
- (@apply
- (lambda (#{id 3443}#
- #{val 3444}#
- #{e1 3445}#
- #{e2 3446}#)
- (and-map #{id? 376}# #{id 3443}#))
- #{tmp 3438}#)
- #f)
- (@apply
- (lambda (#{id 3452}#
- #{val 3453}#
- #{e1 3454}#
- #{e2 3455}#)
- (begin
- (let ((#{ids 3457}# #{id 3452}#))
- (if (not (#{valid-bound-ids? 436}# #{ids 3457}#))
- (syntax-violation
- 'letrec
- "duplicate bound variable"
- #{e 3427}#)
- (begin
- (let ((#{labels 3461}#
- (#{gen-labels 391}# #{ids 3457}#))
- (#{new-vars 3462}#
- (map #{gen-var 484}# #{ids 3457}#)))
- (begin
- (let ((#{w 3465}#
- (#{make-binding-wrap 420}#
- #{ids 3457}#
- #{labels 3461}#
- #{w 3429}#))
- (#{r 3466}#
- (#{extend-var-env 366}#
- #{labels 3461}#
- #{new-vars 3462}#
- #{r 3428}#)))
- (#{build-letrec 336}#
- #{s 3430}#
- #f
- (map syntax->datum #{ids 3457}#)
- #{new-vars 3462}#
- (map (lambda (#{x 3467}#)
- (#{chi 456}#
- #{x 3467}#
- #{r 3466}#
- #{w 3465}#
- #{mod 3431}#))
- #{val 3453}#)
- (#{chi-body 464}#
- (cons #{e1 3454}# #{e2 3455}#)
- (#{source-wrap 444}#
- #{e 3427}#
- #{w 3465}#
- #{s 3430}#
- #{mod 3431}#)
- #{r 3466}#
- #{w 3465}#
- #{mod 3431}#))))))))))
- #{tmp 3438}#)
- (let ((#{_ 3472}# #{tmp 3437}#))
- (syntax-violation
- 'letrec
- "bad letrec"
- (#{source-wrap 444}#
- #{e 3427}#
- #{w 3429}#
- #{s 3430}#
- #{mod 3431}#))))))))
- (#{global-extend 372}#
- 'core
- 'letrec*
- (lambda (#{e 3473}#
- #{r 3474}#
- #{w 3475}#
- #{s 3476}#
- #{mod 3477}#)
- (let ((#{tmp 3483}# #{e 3473}#))
- (let ((#{tmp 3484}#
- ($sc-dispatch
- #{tmp 3483}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3484}#
- (@apply
- (lambda (#{id 3489}#
- #{val 3490}#
- #{e1 3491}#
- #{e2 3492}#)
- (and-map #{id? 376}# #{id 3489}#))
- #{tmp 3484}#)
- #f)
- (@apply
- (lambda (#{id 3498}#
- #{val 3499}#
- #{e1 3500}#
- #{e2 3501}#)
- (begin
- (let ((#{ids 3503}# #{id 3498}#))
- (if (not (#{valid-bound-ids? 436}# #{ids 3503}#))
- (syntax-violation
- 'letrec*
- "duplicate bound variable"
- #{e 3473}#)
- (begin
- (let ((#{labels 3507}#
- (#{gen-labels 391}# #{ids 3503}#))
- (#{new-vars 3508}#
- (map #{gen-var 484}# #{ids 3503}#)))
- (begin
- (let ((#{w 3511}#
- (#{make-binding-wrap 420}#
- #{ids 3503}#
- #{labels 3507}#
- #{w 3475}#))
- (#{r 3512}#
- (#{extend-var-env 366}#
- #{labels 3507}#
- #{new-vars 3508}#
- #{r 3474}#)))
- (#{build-letrec 336}#
- #{s 3476}#
- #t
- (map syntax->datum #{ids 3503}#)
- #{new-vars 3508}#
- (map (lambda (#{x 3513}#)
- (#{chi 456}#
- #{x 3513}#
- #{r 3512}#
- #{w 3511}#
- #{mod 3477}#))
- #{val 3499}#)
- (#{chi-body 464}#
- (cons #{e1 3500}# #{e2 3501}#)
- (#{source-wrap 444}#
- #{e 3473}#
- #{w 3511}#
- #{s 3476}#
- #{mod 3477}#)
- #{r 3512}#
- #{w 3511}#
- #{mod 3477}#))))))))))
- #{tmp 3484}#)
- (let ((#{_ 3518}# #{tmp 3483}#))
- (syntax-violation
- 'letrec*
- "bad letrec*"
- (#{source-wrap 444}#
- #{e 3473}#
- #{w 3475}#
- #{s 3476}#
- #{mod 3477}#))))))))
- (#{global-extend 372}#
- 'core
- 'set!
- (lambda (#{e 3519}#
- #{r 3520}#
- #{w 3521}#
- #{s 3522}#
- #{mod 3523}#)
- (let ((#{tmp 3529}# #{e 3519}#))
- (let ((#{tmp 3530}#
- ($sc-dispatch #{tmp 3529}# '(_ any any))))
- (if (if #{tmp 3530}#
- (@apply
- (lambda (#{id 3533}# #{val 3534}#)
- (#{id? 376}# #{id 3533}#))
- #{tmp 3530}#)
- #f)
- (@apply
- (lambda (#{id 3537}# #{val 3538}#)
- (begin
- (let ((#{n 3541}#
- (#{id-var-name 430}# #{id 3537}# #{w 3521}#))
- (#{id-mod 3542}#
- (if (#{syntax-object? 342}# #{id 3537}#)
- (#{syntax-object-module 348}# #{id 3537}#)
- #{mod 3523}#)))
- (begin
- (let ((#{b 3544}#
- (#{lookup 370}#
- #{n 3541}#
- #{r 3520}#
- #{id-mod 3542}#)))
- (begin
- (let ((#{atom-key 3547}# (car #{b 3544}#)))
- (if (eqv? #{atom-key 3547}# 'lexical)
- (#{build-lexical-assignment 310}#
- #{s 3522}#
- (syntax->datum #{id 3537}#)
- (cdr #{b 3544}#)
- (#{chi 456}#
- #{val 3538}#
- #{r 3520}#
- #{w 3521}#
- #{mod 3523}#))
- (if (eqv? #{atom-key 3547}# 'global)
- (#{build-global-assignment 316}#
- #{s 3522}#
- #{n 3541}#
- (#{chi 456}#
- #{val 3538}#
- #{r 3520}#
- #{w 3521}#
- #{mod 3523}#)
- #{id-mod 3542}#)
- (if (eqv? #{atom-key 3547}# 'macro)
- (begin
- (let ((#{p 3554}#
- (cdr #{b 3544}#)))
- (if (procedure-property
- #{p 3554}#
- 'variable-transformer)
- (#{chi 456}#
- (#{chi-macro 462}#
- #{p 3554}#
- #{e 3519}#
- #{r 3520}#
- #{w 3521}#
- #{s 3522}#
- #f
- #{mod 3523}#)
- #{r 3520}#
- '(())
- #{mod 3523}#)
- (syntax-violation
- 'set!
- "not a variable transformer"
- (#{wrap 442}#
- #{e 3519}#
- #{w 3521}#
- #{mod 3523}#)
- (#{wrap 442}#
- #{id 3537}#
- #{w 3521}#
- #{id-mod 3542}#)))))
- (if (eqv? #{atom-key 3547}#
- 'displaced-lexical)
- (syntax-violation
- 'set!
- "identifier out of context"
- (#{wrap 442}#
- #{id 3537}#
- #{w 3521}#
- #{mod 3523}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap 444}#
- #{e 3519}#
- #{w 3521}#
- #{s 3522}#
- #{mod 3523}#)))))))))))))
- #{tmp 3530}#)
- (let ((#{tmp 3559}#
- ($sc-dispatch
- #{tmp 3529}#
- '(_ (any . each-any) any))))
- (if #{tmp 3559}#
- (@apply
- (lambda (#{head 3563}# #{tail 3564}# #{val 3565}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 454}#
- #{head 3563}#
- #{r 3520}#
- '(())
- #f
- #f
- #{mod 3523}#
- #t))
- (lambda (#{type 3568}#
- #{value 3569}#
- #{ee 3570}#
- #{ww 3571}#
- #{ss 3572}#
- #{modmod 3573}#)
- (if (eqv? #{type 3568}# 'module-ref)
- (begin
- (let ((#{val 3582}#
- (#{chi 456}#
- #{val 3565}#
- #{r 3520}#
- #{w 3521}#
- #{mod 3523}#)))
- (call-with-values
- (lambda ()
- (#{value 3569}#
- (cons #{head 3563}# #{tail 3564}#)
- #{r 3520}#
- #{w 3521}#))
- (lambda (#{e 3584}#
- #{r 3585}#
- #{w 3586}#
- #{s* 3587}#
- #{mod 3588}#)
- (let ((#{tmp 3594}# #{e 3584}#))
- (let ((#{tmp 3595}#
- (list #{tmp 3594}#)))
- (if (if #{tmp 3595}#
- (@apply
- (lambda (#{e 3597}#)
- (#{id? 376}#
- #{e 3597}#))
- #{tmp 3595}#)
- #f)
- (@apply
- (lambda (#{e 3599}#)
- (#{build-global-assignment 316}#
- #{s 3522}#
- (syntax->datum
- #{e 3599}#)
- #{val 3582}#
- #{mod 3588}#))
- #{tmp 3595}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3594}#))))))))
- (#{build-application 302}#
- #{s 3522}#
- (#{chi 456}#
- (list '#(syntax-object
- setter
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(type value ee ww ss modmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i3574"
- "i3575"
- "i3576"
- "i3577"
- "i3578"
- "i3579"))
- #(ribcage
- #(head tail val)
- #((top) (top) (top))
- #("i3560" "i3561" "i3562"))
- #(ribcage () () ())
- #(ribcage
- #(e r w s mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3524"
- "i3525"
- "i3526"
- "i3527"
- "i3528"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile))
- #{head 3563}#)
- #{r 3520}#
- #{w 3521}#
- #{mod 3523}#)
- (map (lambda (#{e 3601}#)
- (#{chi 456}#
- #{e 3601}#
- #{r 3520}#
- #{w 3521}#
- #{mod 3523}#))
- (append
- #{tail 3564}#
- (list #{val 3565}#))))))))
- #{tmp 3559}#)
- (let ((#{_ 3605}# #{tmp 3529}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap 444}#
- #{e 3519}#
- #{w 3521}#
- #{s 3522}#
- #{mod 3523}#))))))))))
- (#{global-extend 372}#
- 'module-ref
- '@
- (lambda (#{e 3606}# #{r 3607}# #{w 3608}#)
- (let ((#{tmp 3612}# #{e 3606}#))
- (let ((#{tmp 3613}#
- ($sc-dispatch #{tmp 3612}# '(_ each-any any))))
- (if (if #{tmp 3613}#
- (@apply
- (lambda (#{mod 3616}# #{id 3617}#)
- (if (and-map #{id? 376}# #{mod 3616}#)
- (#{id? 376}# #{id 3617}#)
- #f))
- #{tmp 3613}#)
- #f)
- (@apply
- (lambda (#{mod 3623}# #{id 3624}#)
- (values
- (syntax->datum #{id 3624}#)
- #{r 3607}#
- #{w 3608}#
- #f
- (syntax->datum
- (cons '#(syntax-object
- public
- ((top)
- #(ribcage
- #(mod id)
- #((top) (top))
- #("i3621" "i3622"))
- #(ribcage () () ())
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3609" "i3610" "i3611"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile))
- #{mod 3623}#))))
- #{tmp 3613}#)
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ #{mod 3628}#))))
+ (values
+ (#{remodulate 3594}# #{exp 3629}# #{mod 3631}#)
+ #{r 3588}#
+ #{w 3589}#
+ (#{source-annotation 320}# #{exp 3629}#)
+ #{mod 3631}#))))
+ #{tmp 3620}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3612}#))))))
- (#{global-extend 372}#
- 'module-ref
- '@@
- (lambda (#{e 3626}# #{r 3627}# #{w 3628}#)
- (letrec*
- ((#{remodulate 3633}#
- (lambda (#{x 3634}# #{mod 3635}#)
- (if (pair? #{x 3634}#)
- (cons (#{remodulate 3633}#
- (car #{x 3634}#)
- #{mod 3635}#)
- (#{remodulate 3633}#
- (cdr #{x 3634}#)
- #{mod 3635}#))
- (if (#{syntax-object? 342}# #{x 3634}#)
- (#{make-syntax-object 340}#
- (#{remodulate 3633}#
- (#{syntax-object-expression 344}# #{x 3634}#)
- #{mod 3635}#)
- (#{syntax-object-wrap 346}# #{x 3634}#)
- #{mod 3635}#)
- (if (vector? #{x 3634}#)
- (begin
- (let ((#{n 3646}# (vector-length #{x 3634}#)))
- (begin
- (let ((#{v 3648}# (make-vector #{n 3646}#)))
- (letrec*
- ((#{loop 3651}#
- (lambda (#{i 3652}#)
- (if (= #{i 3652}# #{n 3646}#)
- (begin (if #f #f) #{v 3648}#)
- (begin
- (vector-set!
- #{v 3648}#
- #{i 3652}#
- (#{remodulate 3633}#
- (vector-ref
- #{x 3634}#
- #{i 3652}#)
- #{mod 3635}#))
- (#{loop 3651}#
- (#{1+}# #{i 3652}#)))))))
- (begin (#{loop 3651}# 0)))))))
- #{x 3634}#))))))
- (begin
- (let ((#{tmp 3658}# #{e 3626}#))
- (let ((#{tmp 3659}#
- ($sc-dispatch #{tmp 3658}# '(_ each-any any))))
- (if (if #{tmp 3659}#
- (@apply
- (lambda (#{mod 3662}# #{exp 3663}#)
- (and-map #{id? 376}# #{mod 3662}#))
- #{tmp 3659}#)
- #f)
- (@apply
- (lambda (#{mod 3667}# #{exp 3668}#)
- (begin
- (let ((#{mod 3670}#
- (syntax->datum
- (cons '#(syntax-object
- private
- ((top)
- #(ribcage
- #(mod exp)
- #((top) (top))
- #("i3665" "i3666"))
- #(ribcage
- (remodulate)
- ((top))
- ("i3632"))
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3629" "i3630" "i3631"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile))
- #{mod 3667}#))))
- (values
- (#{remodulate 3633}#
- #{exp 3668}#
- #{mod 3670}#)
- #{r 3627}#
- #{w 3628}#
- (#{source-annotation 357}# #{exp 3668}#)
- #{mod 3670}#))))
- #{tmp 3659}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3658}#))))))))
- (#{global-extend 372}#
- 'core
- 'if
- (lambda (#{e 3672}#
- #{r 3673}#
- #{w 3674}#
- #{s 3675}#
- #{mod 3676}#)
- (let ((#{tmp 3682}# #{e 3672}#))
- (let ((#{tmp 3683}#
- ($sc-dispatch #{tmp 3682}# '(_ any any))))
- (if #{tmp 3683}#
- (@apply
- (lambda (#{test 3686}# #{then 3687}#)
- (#{build-conditional 304}#
- #{s 3675}#
- (#{chi 456}#
- #{test 3686}#
- #{r 3673}#
- #{w 3674}#
- #{mod 3676}#)
- (#{chi 456}#
- #{then 3687}#
- #{r 3673}#
- #{w 3674}#
- #{mod 3676}#)
- (#{build-void 300}# #f)))
- #{tmp 3683}#)
- (let ((#{tmp 3689}#
- ($sc-dispatch #{tmp 3682}# '(_ any any any))))
- (if #{tmp 3689}#
- (@apply
- (lambda (#{test 3693}# #{then 3694}# #{else 3695}#)
- (#{build-conditional 304}#
- #{s 3675}#
- (#{chi 456}#
- #{test 3693}#
- #{r 3673}#
- #{w 3674}#
- #{mod 3676}#)
- (#{chi 456}#
- #{then 3694}#
- #{r 3673}#
- #{w 3674}#
- #{mod 3676}#)
- (#{chi 456}#
- #{else 3695}#
- #{r 3673}#
- #{w 3674}#
- #{mod 3676}#)))
- #{tmp 3689}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3682}#))))))))
- (#{global-extend 372}#
- 'core
- 'with-fluids
- (lambda (#{e 3696}#
- #{r 3697}#
- #{w 3698}#
- #{s 3699}#
- #{mod 3700}#)
- (let ((#{tmp 3706}# #{e 3696}#))
- (let ((#{tmp 3707}#
- ($sc-dispatch
- #{tmp 3706}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 3707}#
+ #{tmp 3619}#))))))))
+ (#{global-extend 335}#
+ 'core
+ 'if
+ (lambda (#{e 3633}#
+ #{r 3634}#
+ #{w 3635}#
+ #{s 3636}#
+ #{mod 3637}#)
+ (let ((#{tmp 3643}# #{e 3633}#))
+ (let ((#{tmp 3644}#
+ ($sc-dispatch #{tmp 3643}# '(_ any any))))
+ (if #{tmp 3644}#
+ (@apply
+ (lambda (#{test 3647}# #{then 3648}#)
+ (#{build-conditional 267}#
+ #{s 3636}#
+ (#{chi 419}#
+ #{test 3647}#
+ #{r 3634}#
+ #{w 3635}#
+ #{mod 3637}#)
+ (#{chi 419}#
+ #{then 3648}#
+ #{r 3634}#
+ #{w 3635}#
+ #{mod 3637}#)
+ (#{build-void 263}# #f)))
+ #{tmp 3644}#)
+ (let ((#{tmp 3650}#
+ ($sc-dispatch #{tmp 3643}# '(_ any any any))))
+ (if #{tmp 3650}#
(@apply
- (lambda (#{fluid 3712}#
- #{val 3713}#
- #{b 3714}#
- #{b* 3715}#)
- (#{build-dynlet 306}#
- #{s 3699}#
- (map (lambda (#{x 3716}#)
- (#{chi 456}#
- #{x 3716}#
- #{r 3697}#
- #{w 3698}#
- #{mod 3700}#))
- #{fluid 3712}#)
- (map (lambda (#{x 3719}#)
- (#{chi 456}#
- #{x 3719}#
- #{r 3697}#
- #{w 3698}#
- #{mod 3700}#))
- #{val 3713}#)
- (#{chi-body 464}#
- (cons #{b 3714}# #{b* 3715}#)
- (#{source-wrap 444}#
- #{e 3696}#
- #{w 3698}#
- #{s 3699}#
- #{mod 3700}#)
- #{r 3697}#
- #{w 3698}#
- #{mod 3700}#)))
- #{tmp 3707}#)
+ (lambda (#{test 3654}# #{then 3655}# #{else 3656}#)
+ (#{build-conditional 267}#
+ #{s 3636}#
+ (#{chi 419}#
+ #{test 3654}#
+ #{r 3634}#
+ #{w 3635}#
+ #{mod 3637}#)
+ (#{chi 419}#
+ #{then 3655}#
+ #{r 3634}#
+ #{w 3635}#
+ #{mod 3637}#)
+ (#{chi 419}#
+ #{else 3656}#
+ #{r 3634}#
+ #{w 3635}#
+ #{mod 3637}#)))
+ #{tmp 3650}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3706}#))))))
- (#{global-extend 372}# 'begin 'begin '())
- (#{global-extend 372}# 'define 'define '())
- (#{global-extend 372}#
- 'define-syntax
- 'define-syntax
- '())
- (#{global-extend 372}# 'eval-when 'eval-when '())
- (#{global-extend 372}#
- 'core
- 'syntax-case
- (letrec*
- ((#{convert-pattern 3724}#
- (lambda (#{pattern 3731}# #{keys 3732}#)
- (letrec*
- ((#{cvt* 3736}#
- (lambda (#{p* 3739}# #{n 3740}# #{ids 3741}#)
- (if (null? #{p* 3739}#)
- (values '() #{ids 3741}#)
+ #{tmp 3643}#))))))))
+ (#{global-extend 335}#
+ 'core
+ 'with-fluids
+ (lambda (#{e 3657}#
+ #{r 3658}#
+ #{w 3659}#
+ #{s 3660}#
+ #{mod 3661}#)
+ (let ((#{tmp 3667}# #{e 3657}#))
+ (let ((#{tmp 3668}#
+ ($sc-dispatch
+ #{tmp 3667}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 3668}#
+ (@apply
+ (lambda (#{fluid 3673}#
+ #{val 3674}#
+ #{b 3675}#
+ #{b* 3676}#)
+ (#{build-dynlet 269}#
+ #{s 3660}#
+ (map (lambda (#{x 3677}#)
+ (#{chi 419}#
+ #{x 3677}#
+ #{r 3658}#
+ #{w 3659}#
+ #{mod 3661}#))
+ #{fluid 3673}#)
+ (map (lambda (#{x 3680}#)
+ (#{chi 419}#
+ #{x 3680}#
+ #{r 3658}#
+ #{w 3659}#
+ #{mod 3661}#))
+ #{val 3674}#)
+ (#{chi-body 427}#
+ (cons #{b 3675}# #{b* 3676}#)
+ (#{source-wrap 407}#
+ #{e 3657}#
+ #{w 3659}#
+ #{s 3660}#
+ #{mod 3661}#)
+ #{r 3658}#
+ #{w 3659}#
+ #{mod 3661}#)))
+ #{tmp 3668}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3667}#))))))
+ (#{global-extend 335}# 'begin 'begin '())
+ (#{global-extend 335}# 'define 'define '())
+ (#{global-extend 335}#
+ 'define-syntax
+ 'define-syntax
+ '())
+ (#{global-extend 335}# 'eval-when 'eval-when '())
+ (#{global-extend 335}#
+ 'core
+ 'syntax-case
+ (letrec*
+ ((#{convert-pattern 3685}#
+ (lambda (#{pattern 3692}# #{keys 3693}#)
+ (letrec*
+ ((#{cvt* 3697}#
+ (lambda (#{p* 3700}# #{n 3701}# #{ids 3702}#)
+ (if (null? #{p* 3700}#)
+ (values '() #{ids 3702}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 3697}#
+ (cdr #{p* 3700}#)
+ #{n 3701}#
+ #{ids 3702}#))
+ (lambda (#{y 3706}# #{ids 3707}#)
(call-with-values
(lambda ()
- (#{cvt* 3736}#
- (cdr #{p* 3739}#)
- #{n 3740}#
- #{ids 3741}#))
- (lambda (#{y 3745}# #{ids 3746}#)
- (call-with-values
- (lambda ()
- (#{cvt 3738}#
- (car #{p* 3739}#)
- #{n 3740}#
- #{ids 3746}#))
- (lambda (#{x 3749}# #{ids 3750}#)
- (values
- (cons #{x 3749}# #{y 3745}#)
- #{ids 3750}#))))))))
- (#{cvt 3738}#
- (lambda (#{p 3753}# #{n 3754}# #{ids 3755}#)
- (if (#{id? 376}# #{p 3753}#)
- (if (#{bound-id-member? 440}#
- #{p 3753}#
- #{keys 3732}#)
- (values
- (vector 'free-id #{p 3753}#)
- #{ids 3755}#)
- (if (#{free-id=? 432}#
- #{p 3753}#
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3756" "i3757" "i3758"))
- #(ribcage
- (cvt cvt*)
- ((top) (top))
- ("i3737" "i3735"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3733" "i3734"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3729" "i3727" "i3725" "i3723"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- (values '_ #{ids 3755}#)
+ (#{cvt 3699}#
+ (car #{p* 3700}#)
+ #{n 3701}#
+ #{ids 3707}#))
+ (lambda (#{x 3710}# #{ids 3711}#)
(values
- 'any
- (cons (cons #{p 3753}# #{n 3754}#)
- #{ids 3755}#))))
- (let ((#{tmp 3764}# #{p 3753}#))
- (let ((#{tmp 3765}#
- ($sc-dispatch #{tmp 3764}# '(any any))))
- (if (if #{tmp 3765}#
+ (cons #{x 3710}# #{y 3706}#)
+ #{ids 3711}#))))))))
+ (#{cvt 3699}#
+ (lambda (#{p 3714}# #{n 3715}# #{ids 3716}#)
+ (if (#{id? 339}# #{p 3714}#)
+ (if (#{bound-id-member? 403}#
+ #{p 3714}#
+ #{keys 3693}#)
+ (values
+ (vector 'free-id #{p 3714}#)
+ #{ids 3716}#)
+ (if (#{free-id=? 395}#
+ #{p 3714}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3717" "i3718" "i3719"))
+ #(ribcage
+ (cvt cvt*)
+ ((top) (top))
+ ("i3698" "i3696"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3694" "i3695"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3690" "i3688" "i3686" "i3684"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ (values '_ #{ids 3716}#)
+ (values
+ 'any
+ (cons (cons #{p 3714}# #{n 3715}#)
+ #{ids 3716}#))))
+ (let ((#{tmp 3725}# #{p 3714}#))
+ (let ((#{tmp 3726}#
+ ($sc-dispatch #{tmp 3725}# '(any any))))
+ (if (if #{tmp 3726}#
+ (@apply
+ (lambda (#{x 3729}# #{dots 3730}#)
+ (#{ellipsis? 435}# #{dots 3730}#))
+ #{tmp 3726}#)
+ #f)
+ (@apply
+ (lambda (#{x 3733}# #{dots 3734}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3699}#
+ #{x 3733}#
+ (#{1+}# #{n 3715}#)
+ #{ids 3716}#))
+ (lambda (#{p 3736}# #{ids 3737}#)
+ (values
+ (if (eq? #{p 3736}# 'any)
+ 'each-any
+ (vector 'each #{p 3736}#))
+ #{ids 3737}#))))
+ #{tmp 3726}#)
+ (let ((#{tmp 3740}#
+ ($sc-dispatch
+ #{tmp 3725}#
+ '(any any . each-any))))
+ (if (if #{tmp 3740}#
(@apply
- (lambda (#{x 3768}# #{dots 3769}#)
- (#{ellipsis? 472}# #{dots 3769}#))
- #{tmp 3765}#)
+ (lambda (#{x 3744}#
+ #{dots 3745}#
+ #{ys 3746}#)
+ (#{ellipsis? 435}# #{dots 3745}#))
+ #{tmp 3740}#)
#f)
(@apply
- (lambda (#{x 3772}# #{dots 3773}#)
+ (lambda (#{x 3750}#
+ #{dots 3751}#
+ #{ys 3752}#)
(call-with-values
(lambda ()
- (#{cvt 3738}#
- #{x 3772}#
- (#{1+}# #{n 3754}#)
- #{ids 3755}#))
- (lambda (#{p 3775}# #{ids 3776}#)
- (values
- (if (eq? #{p 3775}# 'any)
- 'each-any
- (vector 'each #{p 3775}#))
- #{ids 3776}#))))
- #{tmp 3765}#)
- (let ((#{tmp 3779}#
+ (#{cvt* 3697}#
+ #{ys 3752}#
+ #{n 3715}#
+ #{ids 3716}#))
+ (lambda (#{ys 3754}# #{ids 3755}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3699}#
+ #{x 3750}#
+ (#{1+}# #{n 3715}#)
+ #{ids 3755}#))
+ (lambda (#{x 3758}# #{ids 3759}#)
+ (values
+ (vector
+ 'each+
+ #{x 3758}#
+ (reverse #{ys 3754}#)
+ '())
+ #{ids 3759}#))))))
+ #{tmp 3740}#)
+ (let ((#{tmp 3763}#
($sc-dispatch
- #{tmp 3764}#
- '(any any . each-any))))
- (if (if #{tmp 3779}#
- (@apply
- (lambda (#{x 3783}#
- #{dots 3784}#
- #{ys 3785}#)
- (#{ellipsis? 472}#
- #{dots 3784}#))
- #{tmp 3779}#)
- #f)
+ #{tmp 3725}#
+ '(any . any))))
+ (if #{tmp 3763}#
(@apply
- (lambda (#{x 3789}#
- #{dots 3790}#
- #{ys 3791}#)
+ (lambda (#{x 3766}# #{y 3767}#)
(call-with-values
(lambda ()
- (#{cvt* 3736}#
- #{ys 3791}#
- #{n 3754}#
- #{ids 3755}#))
- (lambda (#{ys 3793}# #{ids 3794}#)
+ (#{cvt 3699}#
+ #{y 3767}#
+ #{n 3715}#
+ #{ids 3716}#))
+ (lambda (#{y 3768}# #{ids 3769}#)
(call-with-values
(lambda ()
- (#{cvt 3738}#
- #{x 3789}#
- (#{1+}# #{n 3754}#)
- #{ids 3794}#))
- (lambda (#{x 3797}#
- #{ids 3798}#)
+ (#{cvt 3699}#
+ #{x 3766}#
+ #{n 3715}#
+ #{ids 3769}#))
+ (lambda (#{x 3772}#
+ #{ids 3773}#)
(values
- (vector
- 'each+
- #{x 3797}#
- (reverse #{ys 3793}#)
- '())
- #{ids 3798}#))))))
- #{tmp 3779}#)
- (let ((#{tmp 3802}#
- ($sc-dispatch
- #{tmp 3764}#
- '(any . any))))
- (if #{tmp 3802}#
+ (cons #{x 3772}#
+ #{y 3768}#)
+ #{ids 3773}#))))))
+ #{tmp 3763}#)
+ (let ((#{tmp 3776}#
+ ($sc-dispatch #{tmp 3725}# '())))
+ (if #{tmp 3776}#
(@apply
- (lambda (#{x 3805}# #{y 3806}#)
- (call-with-values
- (lambda ()
- (#{cvt 3738}#
- #{y 3806}#
- #{n 3754}#
- #{ids 3755}#))
- (lambda (#{y 3807}#
- #{ids 3808}#)
+ (lambda ()
+ (values '() #{ids 3716}#))
+ #{tmp 3776}#)
+ (let ((#{tmp 3777}#
+ ($sc-dispatch
+ #{tmp 3725}#
+ '#(vector each-any))))
+ (if #{tmp 3777}#
+ (@apply
+ (lambda (#{x 3779}#)
(call-with-values
(lambda ()
- (#{cvt 3738}#
- #{x 3805}#
- #{n 3754}#
- #{ids 3808}#))
- (lambda (#{x 3811}#
- #{ids 3812}#)
+ (#{cvt 3699}#
+ #{x 3779}#
+ #{n 3715}#
+ #{ids 3716}#))
+ (lambda (#{p 3781}#
+ #{ids 3782}#)
(values
- (cons #{x 3811}#
- #{y 3807}#)
- #{ids 3812}#))))))
- #{tmp 3802}#)
- (let ((#{tmp 3815}#
- ($sc-dispatch
- #{tmp 3764}#
- '())))
- (if #{tmp 3815}#
- (@apply
- (lambda ()
- (values '() #{ids 3755}#))
- #{tmp 3815}#)
- (let ((#{tmp 3816}#
- ($sc-dispatch
- #{tmp 3764}#
- '#(vector each-any))))
- (if #{tmp 3816}#
- (@apply
- (lambda (#{x 3818}#)
- (call-with-values
- (lambda ()
- (#{cvt 3738}#
- #{x 3818}#
- #{n 3754}#
- #{ids 3755}#))
- (lambda (#{p 3820}#
- #{ids 3821}#)
- (values
- (vector
- 'vector
- #{p 3820}#)
- #{ids 3821}#))))
- #{tmp 3816}#)
- (let ((#{x 3825}#
- #{tmp 3764}#))
- (values
- (vector
- 'atom
- (#{strip 482}#
- #{p 3753}#
- '(())))
- #{ids 3755}#)))))))))))))))))
- (begin (#{cvt 3738}# #{pattern 3731}# 0 '())))))
- (#{build-dispatch-call 3726}#
- (lambda (#{pvars 3827}#
- #{exp 3828}#
- #{y 3829}#
- #{r 3830}#
- #{mod 3831}#)
+ (vector
+ 'vector
+ #{p 3781}#)
+ #{ids 3782}#))))
+ #{tmp 3777}#)
+ (let ((#{x 3786}# #{tmp 3725}#))
+ (values
+ (vector
+ 'atom
+ (#{strip 445}#
+ #{p 3714}#
+ '(())))
+ #{ids 3716}#)))))))))))))))))
+ (begin (#{cvt 3699}# #{pattern 3692}# 0 '())))))
+ (#{build-dispatch-call 3687}#
+ (lambda (#{pvars 3788}#
+ #{exp 3789}#
+ #{y 3790}#
+ #{r 3791}#
+ #{mod 3792}#)
+ (begin
+ (map cdr #{pvars 3788}#)
+ (let ((#{ids 3800}# (map car #{pvars 3788}#)))
(begin
- (map cdr #{pvars 3827}#)
- (let ((#{ids 3839}# (map car #{pvars 3827}#)))
+ (let ((#{labels 3804}#
+ (#{gen-labels 354}# #{ids 3800}#))
+ (#{new-vars 3805}#
+ (map #{gen-var 447}# #{ids 3800}#)))
+ (#{build-application 265}#
+ #f
+ (#{build-primref 289}# #f 'apply)
+ (list (#{build-simple-lambda 283}#
+ #f
+ (map syntax->datum #{ids 3800}#)
+ #f
+ #{new-vars 3805}#
+ '()
+ (#{chi 419}#
+ #{exp 3789}#
+ (#{extend-env 327}#
+ #{labels 3804}#
+ (map (lambda (#{var 3809}# #{level 3810}#)
+ (cons 'syntax
+ (cons #{var 3809}#
+ #{level 3810}#)))
+ #{new-vars 3805}#
+ (map cdr #{pvars 3788}#))
+ #{r 3791}#)
+ (#{make-binding-wrap 383}#
+ #{ids 3800}#
+ #{labels 3804}#
+ '(()))
+ #{mod 3792}#))
+ #{y 3790}#))))))))
+ (#{gen-clause 3689}#
+ (lambda (#{x 3816}#
+ #{keys 3817}#
+ #{clauses 3818}#
+ #{r 3819}#
+ #{pat 3820}#
+ #{fender 3821}#
+ #{exp 3822}#
+ #{mod 3823}#)
+ (call-with-values
+ (lambda ()
+ (#{convert-pattern 3685}#
+ #{pat 3820}#
+ #{keys 3817}#))
+ (lambda (#{p 3832}# #{pvars 3833}#)
+ (if (not (#{distinct-bound-ids? 401}#
+ (map car #{pvars 3833}#)))
+ (syntax-violation
+ 'syntax-case
+ "duplicate pattern variable"
+ #{pat 3820}#)
+ (if (not (and-map
+ (lambda (#{x 3840}#)
+ (not (#{ellipsis? 435}# (car #{x 3840}#))))
+ #{pvars 3833}#))
+ (syntax-violation
+ 'syntax-case
+ "misplaced ellipsis"
+ #{pat 3820}#)
(begin
- (let ((#{labels 3843}#
- (#{gen-labels 391}# #{ids 3839}#))
- (#{new-vars 3844}#
- (map #{gen-var 484}# #{ids 3839}#)))
- (#{build-application 302}#
+ (let ((#{y 3844}# (#{gen-var 447}# 'tmp)))
+ (#{build-application 265}#
#f
- (#{build-primref 326}# #f 'apply)
- (list (#{build-simple-lambda 320}#
- #f
- (map syntax->datum #{ids 3839}#)
+ (#{build-simple-lambda 283}#
+ #f
+ (list 'tmp)
+ #f
+ (list #{y 3844}#)
+ '()
+ (begin
+ (let ((#{y 3848}#
+ (#{build-lexical-reference 271}#
+ 'value
+ #f
+ 'tmp
+ #{y 3844}#)))
+ (#{build-conditional 267}#
#f
- #{new-vars 3844}#
- '()
- (#{chi 456}#
- #{exp 3828}#
- (#{extend-env 364}#
- #{labels 3843}#
- (map (lambda (#{var 3848}#
- #{level 3849}#)
- (cons 'syntax
- (cons #{var 3848}#
- #{level 3849}#)))
- #{new-vars 3844}#
- (map cdr #{pvars 3827}#))
- #{r 3830}#)
- (#{make-binding-wrap 420}#
- #{ids 3839}#
- #{labels 3843}#
- '(()))
- #{mod 3831}#))
- #{y 3829}#))))))))
- (#{gen-clause 3728}#
- (lambda (#{x 3855}#
- #{keys 3856}#
- #{clauses 3857}#
- #{r 3858}#
- #{pat 3859}#
- #{fender 3860}#
- #{exp 3861}#
- #{mod 3862}#)
- (call-with-values
- (lambda ()
- (#{convert-pattern 3724}#
- #{pat 3859}#
- #{keys 3856}#))
- (lambda (#{p 3871}# #{pvars 3872}#)
- (if (not (#{distinct-bound-ids? 438}#
- (map car #{pvars 3872}#)))
- (syntax-violation
- 'syntax-case
- "duplicate pattern variable"
- #{pat 3859}#)
- (if (not (and-map
- (lambda (#{x 3879}#)
- (not (#{ellipsis? 472}#
- (car #{x 3879}#))))
- #{pvars 3872}#))
- (syntax-violation
- 'syntax-case
- "misplaced ellipsis"
- #{pat 3859}#)
- (begin
- (let ((#{y 3883}# (#{gen-var 484}# 'tmp)))
- (#{build-application 302}#
- #f
- (#{build-simple-lambda 320}#
- #f
- (list 'tmp)
- #f
- (list #{y 3883}#)
- '()
- (begin
- (let ((#{y 3887}#
- (#{build-lexical-reference 308}#
- 'value
+ (let ((#{tmp 3851}# #{fender 3821}#))
+ (let ((#{tmp 3852}#
+ ($sc-dispatch
+ #{tmp 3851}#
+ '#(atom #t))))
+ (if #{tmp 3852}#
+ (@apply
+ (lambda () #{y 3848}#)
+ #{tmp 3852}#)
+ (let ((#{_ 3854}# #{tmp 3851}#))
+ (#{build-conditional 267}#
#f
- 'tmp
- #{y 3883}#)))
- (#{build-conditional 304}#
- #f
- (let ((#{tmp 3890}# #{fender 3860}#))
- (let ((#{tmp 3891}#
- ($sc-dispatch
- #{tmp 3890}#
- '#(atom #t))))
- (if #{tmp 3891}#
- (@apply
- (lambda () #{y 3887}#)
- #{tmp 3891}#)
- (let ((#{_ 3893}# #{tmp 3890}#))
- (#{build-conditional 304}#
- #f
- #{y 3887}#
- (#{build-dispatch-call 3726}#
- #{pvars 3872}#
- #{fender 3860}#
- #{y 3887}#
- #{r 3858}#
- #{mod 3862}#)
- (#{build-data 328}#
- #f
- #f))))))
- (#{build-dispatch-call 3726}#
- #{pvars 3872}#
- #{exp 3861}#
- #{y 3887}#
- #{r 3858}#
- #{mod 3862}#)
- (#{gen-syntax-case 3730}#
- #{x 3855}#
- #{keys 3856}#
- #{clauses 3857}#
- #{r 3858}#
- #{mod 3862}#)))))
- (list (if (eq? #{p 3871}# 'any)
- (#{build-application 302}#
- #f
- (#{build-primref 326}# #f 'list)
- (list #{x 3855}#))
- (#{build-application 302}#
- #f
- (#{build-primref 326}#
- #f
- '$sc-dispatch)
- (list #{x 3855}#
- (#{build-data 328}#
- #f
- #{p 3871}#))))))))))))))
- (#{gen-syntax-case 3730}#
- (lambda (#{x 3901}#
- #{keys 3902}#
- #{clauses 3903}#
- #{r 3904}#
- #{mod 3905}#)
- (if (null? #{clauses 3903}#)
- (#{build-application 302}#
- #f
- (#{build-primref 326}# #f 'syntax-violation)
- (list (#{build-data 328}# #f #f)
- (#{build-data 328}#
- #f
- "source expression failed to match any pattern")
- #{x 3901}#))
- (let ((#{tmp 3915}# (car #{clauses 3903}#)))
- (let ((#{tmp 3916}#
- ($sc-dispatch #{tmp 3915}# '(any any))))
- (if #{tmp 3916}#
+ #{y 3848}#
+ (#{build-dispatch-call 3687}#
+ #{pvars 3833}#
+ #{fender 3821}#
+ #{y 3848}#
+ #{r 3819}#
+ #{mod 3823}#)
+ (#{build-data 291}# #f #f))))))
+ (#{build-dispatch-call 3687}#
+ #{pvars 3833}#
+ #{exp 3822}#
+ #{y 3848}#
+ #{r 3819}#
+ #{mod 3823}#)
+ (#{gen-syntax-case 3691}#
+ #{x 3816}#
+ #{keys 3817}#
+ #{clauses 3818}#
+ #{r 3819}#
+ #{mod 3823}#)))))
+ (list (if (eq? #{p 3832}# 'any)
+ (#{build-application 265}#
+ #f
+ (#{build-primref 289}# #f 'list)
+ (list #{x 3816}#))
+ (#{build-application 265}#
+ #f
+ (#{build-primref 289}# #f '$sc-dispatch)
+ (list #{x 3816}#
+ (#{build-data 291}#
+ #f
+ #{p 3832}#))))))))))))))
+ (#{gen-syntax-case 3691}#
+ (lambda (#{x 3862}#
+ #{keys 3863}#
+ #{clauses 3864}#
+ #{r 3865}#
+ #{mod 3866}#)
+ (if (null? #{clauses 3864}#)
+ (#{build-application 265}#
+ #f
+ (#{build-primref 289}# #f 'syntax-violation)
+ (list (#{build-data 291}# #f #f)
+ (#{build-data 291}#
+ #f
+ "source expression failed to match any pattern")
+ #{x 3862}#))
+ (let ((#{tmp 3876}# (car #{clauses 3864}#)))
+ (let ((#{tmp 3877}#
+ ($sc-dispatch #{tmp 3876}# '(any any))))
+ (if #{tmp 3877}#
+ (@apply
+ (lambda (#{pat 3880}# #{exp 3881}#)
+ (if (if (#{id? 339}# #{pat 3880}#)
+ (and-map
+ (lambda (#{x 3884}#)
+ (not (#{free-id=? 395}#
+ #{pat 3880}#
+ #{x 3884}#)))
+ (cons '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3878" "i3879"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3867"
+ "i3868"
+ "i3869"
+ "i3870"
+ "i3871"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3690"
+ "i3688"
+ "i3686"
+ "i3684"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ #{keys 3863}#))
+ #f)
+ (if (#{free-id=? 395}#
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3878" "i3879"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3867"
+ "i3868"
+ "i3869"
+ "i3870"
+ "i3871"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3690" "i3688" "i3686" "i3684"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3878" "i3879"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3867"
+ "i3868"
+ "i3869"
+ "i3870"
+ "i3871"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3690" "i3688" "i3686" "i3684"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i376"
+ "i375"
+ "i374"
+ "i373"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i325"
+ "i324"
+ "i323"
+ "i322"
+ "i321"
+ "i319"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i253"
+ "i251"
+ "i249"
+ "i248"
+ "i247"
+ "i246"
+ "i245"
+ "i243"
+ "i241"
+ "i239"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ (#{chi 419}#
+ #{exp 3881}#
+ #{r 3865}#
+ '(())
+ #{mod 3866}#)
+ (begin
+ (let ((#{labels 3889}#
+ (list (#{gen-label 352}#)))
+ (#{var 3890}#
+ (#{gen-var 447}# #{pat 3880}#)))
+ (#{build-application 265}#
+ #f
+ (#{build-simple-lambda 283}#
+ #f
+ (list (syntax->datum #{pat 3880}#))
+ #f
+ (list #{var 3890}#)
+ '()
+ (#{chi 419}#
+ #{exp 3881}#
+ (#{extend-env 327}#
+ #{labels 3889}#
+ (list (cons 'syntax
+ (cons #{var 3890}# 0)))
+ #{r 3865}#)
+ (#{make-binding-wrap 383}#
+ (list #{pat 3880}#)
+ #{labels 3889}#
+ '(()))
+ #{mod 3866}#))
+ (list #{x 3862}#)))))
+ (#{gen-clause 3689}#
+ #{x 3862}#
+ #{keys 3863}#
+ (cdr #{clauses 3864}#)
+ #{r 3865}#
+ #{pat 3880}#
+ #t
+ #{exp 3881}#
+ #{mod 3866}#)))
+ #{tmp 3877}#)
+ (let ((#{tmp 3896}#
+ ($sc-dispatch #{tmp 3876}# '(any any any))))
+ (if #{tmp 3896}#
(@apply
- (lambda (#{pat 3919}# #{exp 3920}#)
- (if (if (#{id? 376}# #{pat 3919}#)
- (and-map
- (lambda (#{x 3923}#)
- (not (#{free-id=? 432}#
- #{pat 3919}#
- #{x 3923}#)))
- (cons '#(syntax-object
- ...
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3917" "i3918"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3906"
- "i3907"
- "i3908"
- "i3909"
- "i3910"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3729"
- "i3727"
- "i3725"
- "i3723"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile))
- #{keys 3902}#))
- #f)
- (if (#{free-id=? 432}#
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3917" "i3918"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3906"
- "i3907"
- "i3908"
- "i3909"
- "i3910"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3729" "i3727" "i3725" "i3723"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile))
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3917" "i3918"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3906"
- "i3907"
- "i3908"
- "i3909"
- "i3910"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3729" "i3727" "i3725" "i3723"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i416"
- "i415"
- "i413"
- "i412"
- "i411"
- "i410"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i393"
- "i390"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i383"
- "i382"
- "i381"
- "i380"
- "i378"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i365"
- "i363"
- "i362"
- "i361"
- "i360"
- "i359"
- "i358"
- "i356"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i290"
- "i288"
- "i286"
- "i285"
- "i284"
- "i283"
- "i282"
- "i280"
- "i278"
- "i276"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- (#{chi 456}#
- #{exp 3920}#
- #{r 3904}#
- '(())
- #{mod 3905}#)
- (begin
- (let ((#{labels 3928}#
- (list (#{gen-label 389}#)))
- (#{var 3929}#
- (#{gen-var 484}# #{pat 3919}#)))
- (#{build-application 302}#
- #f
- (#{build-simple-lambda 320}#
- #f
- (list (syntax->datum #{pat 3919}#))
- #f
- (list #{var 3929}#)
- '()
- (#{chi 456}#
- #{exp 3920}#
- (#{extend-env 364}#
- #{labels 3928}#
- (list (cons 'syntax
- (cons #{var 3929}#
- 0)))
- #{r 3904}#)
- (#{make-binding-wrap 420}#
- (list #{pat 3919}#)
- #{labels 3928}#
- '(()))
- #{mod 3905}#))
- (list #{x 3901}#)))))
- (#{gen-clause 3728}#
- #{x 3901}#
- #{keys 3902}#
- (cdr #{clauses 3903}#)
- #{r 3904}#
- #{pat 3919}#
- #t
- #{exp 3920}#
- #{mod 3905}#)))
- #{tmp 3916}#)
- (let ((#{tmp 3935}#
- ($sc-dispatch #{tmp 3915}# '(any any any))))
- (if #{tmp 3935}#
- (@apply
- (lambda (#{pat 3939}#
- #{fender 3940}#
- #{exp 3941}#)
- (#{gen-clause 3728}#
- #{x 3901}#
- #{keys 3902}#
- (cdr #{clauses 3903}#)
- #{r 3904}#
- #{pat 3939}#
- #{fender 3940}#
- #{exp 3941}#
- #{mod 3905}#))
- #{tmp 3935}#)
- (let ((#{_ 3943}# #{tmp 3915}#))
- (syntax-violation
- 'syntax-case
- "invalid clause"
- (car #{clauses 3903}#))))))))))))
+ (lambda (#{pat 3900}#
+ #{fender 3901}#
+ #{exp 3902}#)
+ (#{gen-clause 3689}#
+ #{x 3862}#
+ #{keys 3863}#
+ (cdr #{clauses 3864}#)
+ #{r 3865}#
+ #{pat 3900}#
+ #{fender 3901}#
+ #{exp 3902}#
+ #{mod 3866}#))
+ #{tmp 3896}#)
+ (let ((#{_ 3904}# #{tmp 3876}#))
+ (syntax-violation
+ 'syntax-case
+ "invalid clause"
+ (car #{clauses 3864}#))))))))))))
+ (begin
+ (lambda (#{e 3905}#
+ #{r 3906}#
+ #{w 3907}#
+ #{s 3908}#
+ #{mod 3909}#)
(begin
- (lambda (#{e 3944}#
- #{r 3945}#
- #{w 3946}#
- #{s 3947}#
- #{mod 3948}#)
- (begin
- (let ((#{e 3955}#
- (#{source-wrap 444}#
- #{e 3944}#
- #{w 3946}#
- #{s 3947}#
- #{mod 3948}#)))
- (let ((#{tmp 3956}# #{e 3955}#))
- (let ((#{tmp 3957}#
- ($sc-dispatch
- #{tmp 3956}#
- '(_ any each-any . each-any))))
- (if #{tmp 3957}#
- (@apply
- (lambda (#{val 3961}# #{key 3962}# #{m 3963}#)
- (if (and-map
- (lambda (#{x 3964}#)
- (if (#{id? 376}# #{x 3964}#)
- (not (#{ellipsis? 472}# #{x 3964}#))
- #f))
- #{key 3962}#)
- (begin
- (let ((#{x 3970}# (#{gen-var 484}# 'tmp)))
- (#{build-application 302}#
- #{s 3947}#
- (#{build-simple-lambda 320}#
- #f
- (list 'tmp)
+ (let ((#{e 3916}#
+ (#{source-wrap 407}#
+ #{e 3905}#
+ #{w 3907}#
+ #{s 3908}#
+ #{mod 3909}#)))
+ (let ((#{tmp 3917}# #{e 3916}#))
+ (let ((#{tmp 3918}#
+ ($sc-dispatch
+ #{tmp 3917}#
+ '(_ any each-any . each-any))))
+ (if #{tmp 3918}#
+ (@apply
+ (lambda (#{val 3922}# #{key 3923}# #{m 3924}#)
+ (if (and-map
+ (lambda (#{x 3925}#)
+ (if (#{id? 339}# #{x 3925}#)
+ (not (#{ellipsis? 435}# #{x 3925}#))
+ #f))
+ #{key 3923}#)
+ (begin
+ (let ((#{x 3931}# (#{gen-var 447}# 'tmp)))
+ (#{build-application 265}#
+ #{s 3908}#
+ (#{build-simple-lambda 283}#
+ #f
+ (list 'tmp)
+ #f
+ (list #{x 3931}#)
+ '()
+ (#{gen-syntax-case 3691}#
+ (#{build-lexical-reference 271}#
+ 'value
#f
- (list #{x 3970}#)
+ 'tmp
+ #{x 3931}#)
+ #{key 3923}#
+ #{m 3924}#
+ #{r 3906}#
+ #{mod 3909}#))
+ (list (#{chi 419}#
+ #{val 3922}#
+ #{r 3906}#
+ '(())
+ #{mod 3909}#)))))
+ (syntax-violation
+ 'syntax-case
+ "invalid literals list"
+ #{e 3916}#)))
+ #{tmp 3918}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3917}#))))))))))
+ (set! macroexpand
+ (lambda*
+ (#{x 3937}#
+ #:optional
+ (#{m 3939}# 'e)
+ (#{esew 3941}# '(eval)))
+ (#{chi-top-sequence 411}#
+ (list #{x 3937}#)
+ '()
+ '((top))
+ #f
+ #{m 3939}#
+ #{esew 3941}#
+ (cons 'hygiene (module-name (current-module))))))
+ (set! identifier?
+ (lambda (#{x 3945}#)
+ (#{nonsymbol-id? 337}# #{x 3945}#)))
+ (set! datum->syntax
+ (lambda (#{id 3947}# #{datum 3948}#)
+ (#{make-syntax-object 303}#
+ #{datum 3948}#
+ (#{syntax-object-wrap 309}# #{id 3947}#)
+ (#{syntax-object-module 311}# #{id 3947}#))))
+ (set! syntax->datum
+ (lambda (#{x 3951}#)
+ (#{strip 445}# #{x 3951}# '(()))))
+ (set! syntax-source
+ (lambda (#{x 3954}#)
+ (#{source-annotation 320}# #{x 3954}#)))
+ (set! generate-temporaries
+ (lambda (#{ls 3956}#)
+ (begin
+ (begin
+ (let ((#{x 3960}# #{ls 3956}#))
+ (if (not (list? #{x 3960}#))
+ (syntax-violation
+ 'generate-temporaries
+ "invalid argument"
+ #{x 3960}#))))
+ (map (lambda (#{x 3961}#)
+ (#{wrap 405}# (gensym) '((top)) #f))
+ #{ls 3956}#))))
+ (set! free-identifier=?
+ (lambda (#{x 3965}# #{y 3966}#)
+ (begin
+ (begin
+ (let ((#{x 3971}# #{x 3965}#))
+ (if (not (#{nonsymbol-id? 337}# #{x 3971}#))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ #{x 3971}#))))
+ (begin
+ (let ((#{x 3974}# #{y 3966}#))
+ (if (not (#{nonsymbol-id? 337}# #{x 3974}#))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ #{x 3974}#))))
+ (#{free-id=? 395}# #{x 3965}# #{y 3966}#))))
+ (set! bound-identifier=?
+ (lambda (#{x 3975}# #{y 3976}#)
+ (begin
+ (begin
+ (let ((#{x 3981}# #{x 3975}#))
+ (if (not (#{nonsymbol-id? 337}# #{x 3981}#))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ #{x 3981}#))))
+ (begin
+ (let ((#{x 3984}# #{y 3976}#))
+ (if (not (#{nonsymbol-id? 337}# #{x 3984}#))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ #{x 3984}#))))
+ (#{bound-id=? 397}# #{x 3975}# #{y 3976}#))))
+ (set! syntax-violation
+ (lambda*
+ (#{who 3985}#
+ #{message 3986}#
+ #{form 3987}#
+ #:optional
+ (#{subform 3991}# #f))
+ (begin
+ (begin
+ (let ((#{x 3995}# #{who 3985}#))
+ (if (not (let ((#{x 3996}# #{x 3995}#))
+ (begin
+ (let ((#{t 4000}# (not #{x 3996}#)))
+ (if #{t 4000}#
+ #{t 4000}#
+ (begin
+ (let ((#{t 4003}# (string? #{x 3996}#)))
+ (if #{t 4003}#
+ #{t 4003}#
+ (symbol? #{x 3996}#)))))))))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ #{x 3995}#))))
+ (begin
+ (let ((#{x 4007}# #{message 3986}#))
+ (if (not (string? #{x 4007}#))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ #{x 4007}#))))
+ (throw 'syntax-error
+ #{who 3985}#
+ #{message 3986}#
+ (#{source-annotation 320}#
+ (begin
+ (let ((#{t 4010}# #{form 3987}#))
+ (if #{t 4010}# #{t 4010}# #{subform 3991}#))))
+ (#{strip 445}# #{form 3987}# '(()))
+ (if #{subform 3991}#
+ (#{strip 445}# #{subform 3991}# '(()))
+ #f)))))
+ (letrec*
+ ((#{match-each 4017}#
+ (lambda (#{e 4030}# #{p 4031}# #{w 4032}# #{mod 4033}#)
+ (if (pair? #{e 4030}#)
+ (begin
+ (let ((#{first 4041}#
+ (#{match 4029}#
+ (car #{e 4030}#)
+ #{p 4031}#
+ #{w 4032}#
+ '()
+ #{mod 4033}#)))
+ (if #{first 4041}#
+ (begin
+ (let ((#{rest 4045}#
+ (#{match-each 4017}#
+ (cdr #{e 4030}#)
+ #{p 4031}#
+ #{w 4032}#
+ #{mod 4033}#)))
+ (if #{rest 4045}#
+ (cons #{first 4041}# #{rest 4045}#)
+ #f)))
+ #f)))
+ (if (null? #{e 4030}#)
+ '()
+ (if (#{syntax-object? 305}# #{e 4030}#)
+ (#{match-each 4017}#
+ (#{syntax-object-expression 307}# #{e 4030}#)
+ #{p 4031}#
+ (#{join-wraps 387}#
+ #{w 4032}#
+ (#{syntax-object-wrap 309}# #{e 4030}#))
+ (#{syntax-object-module 311}# #{e 4030}#))
+ #f)))))
+ (#{match-each+ 4019}#
+ (lambda (#{e 4053}#
+ #{x-pat 4054}#
+ #{y-pat 4055}#
+ #{z-pat 4056}#
+ #{w 4057}#
+ #{r 4058}#
+ #{mod 4059}#)
+ (letrec*
+ ((#{f 4070}#
+ (lambda (#{e 4071}# #{w 4072}#)
+ (if (pair? #{e 4071}#)
+ (call-with-values
+ (lambda ()
+ (#{f 4070}# (cdr #{e 4071}#) #{w 4072}#))
+ (lambda (#{xr* 4075}# #{y-pat 4076}# #{r 4077}#)
+ (if #{r 4077}#
+ (if (null? #{y-pat 4076}#)
+ (begin
+ (let ((#{xr 4082}#
+ (#{match 4029}#
+ (car #{e 4071}#)
+ #{x-pat 4054}#
+ #{w 4072}#
'()
- (#{gen-syntax-case 3730}#
- (#{build-lexical-reference 308}#
- 'value
- #f
- 'tmp
- #{x 3970}#)
- #{key 3962}#
- #{m 3963}#
- #{r 3945}#
- #{mod 3948}#))
- (list (#{chi 456}#
- #{val 3961}#
- #{r 3945}#
- '(())
- #{mod 3948}#)))))
- (syntax-violation
- 'syntax-case
- "invalid literals list"
- #{e 3955}#)))
- #{tmp 3957}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3956}#))))))))))
- (set! macroexpand
- (lambda*
- (#{x 3976}#
- #:optional
- (#{m 3978}# 'e)
- (#{esew 3980}# '(eval)))
- (#{chi-top-sequence 448}#
- (list #{x 3976}#)
- '()
- '((top))
- #f
- #{m 3978}#
- #{esew 3980}#
- (cons 'hygiene (module-name (current-module))))))
- (set! identifier?
- (lambda (#{x 3984}#)
- (#{nonsymbol-id? 374}# #{x 3984}#)))
- (set! datum->syntax
- (lambda (#{id 3986}# #{datum 3987}#)
- (#{make-syntax-object 340}#
- #{datum 3987}#
- (#{syntax-object-wrap 346}# #{id 3986}#)
- (#{syntax-object-module 348}# #{id 3986}#))))
- (set! syntax->datum
- (lambda (#{x 3990}#)
- (#{strip 482}# #{x 3990}# '(()))))
- (set! syntax-source
- (lambda (#{x 3993}#)
- (#{source-annotation 357}# #{x 3993}#)))
- (set! generate-temporaries
- (lambda (#{ls 3995}#)
- (begin
- (begin
- (let ((#{x 3999}# #{ls 3995}#))
- (if (not (list? #{x 3999}#))
- (syntax-violation
- 'generate-temporaries
- "invalid argument"
- #{x 3999}#))))
- (map (lambda (#{x 4000}#)
- (#{wrap 442}# (gensym) '((top)) #f))
- #{ls 3995}#))))
- (set! free-identifier=?
- (lambda (#{x 4004}# #{y 4005}#)
- (begin
- (begin
- (let ((#{x 4010}# #{x 4004}#))
- (if (not (#{nonsymbol-id? 374}# #{x 4010}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x 4010}#))))
- (begin
- (let ((#{x 4013}# #{y 4005}#))
- (if (not (#{nonsymbol-id? 374}# #{x 4013}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x 4013}#))))
- (#{free-id=? 432}# #{x 4004}# #{y 4005}#))))
- (set! bound-identifier=?
- (lambda (#{x 4014}# #{y 4015}#)
- (begin
- (begin
- (let ((#{x 4020}# #{x 4014}#))
- (if (not (#{nonsymbol-id? 374}# #{x 4020}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x 4020}#))))
- (begin
- (let ((#{x 4023}# #{y 4015}#))
- (if (not (#{nonsymbol-id? 374}# #{x 4023}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x 4023}#))))
- (#{bound-id=? 434}# #{x 4014}# #{y 4015}#))))
- (set! syntax-violation
- (lambda*
- (#{who 4024}#
- #{message 4025}#
- #{form 4026}#
- #:optional
- (#{subform 4030}# #f))
- (begin
- (begin
- (let ((#{x 4034}# #{who 4024}#))
- (if (not (let ((#{x 4035}# #{x 4034}#))
- (begin
- (let ((#{t 4039}# (not #{x 4035}#)))
- (if #{t 4039}#
- #{t 4039}#
- (begin
- (let ((#{t 4042}# (string? #{x 4035}#)))
- (if #{t 4042}#
- #{t 4042}#
- (symbol? #{x 4035}#)))))))))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x 4034}#))))
- (begin
- (let ((#{x 4046}# #{message 4025}#))
- (if (not (string? #{x 4046}#))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x 4046}#))))
- (throw 'syntax-error
- #{who 4024}#
- #{message 4025}#
- (#{source-annotation 357}#
- (begin
- (let ((#{t 4049}# #{form 4026}#))
- (if #{t 4049}# #{t 4049}# #{subform 4030}#))))
- (#{strip 482}# #{form 4026}# '(()))
- (if #{subform 4030}#
- (#{strip 482}# #{subform 4030}# '(()))
- #f)))))
- (letrec*
- ((#{match-each 4056}#
- (lambda (#{e 4069}# #{p 4070}# #{w 4071}# #{mod 4072}#)
- (if (pair? #{e 4069}#)
+ #{mod 4059}#)))
+ (if #{xr 4082}#
+ (values
+ (cons #{xr 4082}# #{xr* 4075}#)
+ #{y-pat 4076}#
+ #{r 4077}#)
+ (values #f #f #f))))
+ (values
+ '()
+ (cdr #{y-pat 4076}#)
+ (#{match 4029}#
+ (car #{e 4071}#)
+ (car #{y-pat 4076}#)
+ #{w 4072}#
+ #{r 4077}#
+ #{mod 4059}#)))
+ (values #f #f #f))))
+ (if (#{syntax-object? 305}# #{e 4071}#)
+ (#{f 4070}#
+ (#{syntax-object-expression 307}# #{e 4071}#)
+ (#{join-wraps 387}# #{w 4072}# #{e 4071}#))
+ (values
+ '()
+ #{y-pat 4055}#
+ (#{match 4029}#
+ #{e 4071}#
+ #{z-pat 4056}#
+ #{w 4072}#
+ #{r 4058}#
+ #{mod 4059}#)))))))
+ (begin (#{f 4070}# #{e 4053}# #{w 4057}#)))))
+ (#{match-each-any 4021}#
+ (lambda (#{e 4086}# #{w 4087}# #{mod 4088}#)
+ (if (pair? #{e 4086}#)
+ (begin
+ (let ((#{l 4095}#
+ (#{match-each-any 4021}#
+ (cdr #{e 4086}#)
+ #{w 4087}#
+ #{mod 4088}#)))
+ (if #{l 4095}#
+ (cons (#{wrap 405}#
+ (car #{e 4086}#)
+ #{w 4087}#
+ #{mod 4088}#)
+ #{l 4095}#)
+ #f)))
+ (if (null? #{e 4086}#)
+ '()
+ (if (#{syntax-object? 305}# #{e 4086}#)
+ (#{match-each-any 4021}#
+ (#{syntax-object-expression 307}# #{e 4086}#)
+ (#{join-wraps 387}#
+ #{w 4087}#
+ (#{syntax-object-wrap 309}# #{e 4086}#))
+ #{mod 4088}#)
+ #f)))))
+ (#{match-empty 4023}#
+ (lambda (#{p 4103}# #{r 4104}#)
+ (if (null? #{p 4103}#)
+ #{r 4104}#
+ (if (eq? #{p 4103}# '_)
+ #{r 4104}#
+ (if (eq? #{p 4103}# 'any)
+ (cons '() #{r 4104}#)
+ (if (pair? #{p 4103}#)
+ (#{match-empty 4023}#
+ (car #{p 4103}#)
+ (#{match-empty 4023}#
+ (cdr #{p 4103}#)
+ #{r 4104}#))
+ (if (eq? #{p 4103}# 'each-any)
+ (cons '() #{r 4104}#)
+ (begin
+ (let ((#{atom-key 4120}# (vector-ref #{p 4103}# 0)))
+ (if (eqv? #{atom-key 4120}# 'each)
+ (#{match-empty 4023}#
+ (vector-ref #{p 4103}# 1)
+ #{r 4104}#)
+ (if (eqv? #{atom-key 4120}# 'each+)
+ (#{match-empty 4023}#
+ (vector-ref #{p 4103}# 1)
+ (#{match-empty 4023}#
+ (reverse (vector-ref #{p 4103}# 2))
+ (#{match-empty 4023}#
+ (vector-ref #{p 4103}# 3)
+ #{r 4104}#)))
+ (if (if (eqv? #{atom-key 4120}# 'free-id)
+ #t
+ (eqv? #{atom-key 4120}# 'atom))
+ #{r 4104}#
+ (if (eqv? #{atom-key 4120}# 'vector)
+ (#{match-empty 4023}#
+ (vector-ref #{p 4103}# 1)
+ #{r 4104}#))))))))))))))
+ (#{combine 4025}#
+ (lambda (#{r* 4125}# #{r 4126}#)
+ (if (null? (car #{r* 4125}#))
+ #{r 4126}#
+ (cons (map car #{r* 4125}#)
+ (#{combine 4025}#
+ (map cdr #{r* 4125}#)
+ #{r 4126}#)))))
+ (#{match* 4027}#
+ (lambda (#{e 4129}#
+ #{p 4130}#
+ #{w 4131}#
+ #{r 4132}#
+ #{mod 4133}#)
+ (if (null? #{p 4130}#)
+ (if (null? #{e 4129}#) #{r 4132}# #f)
+ (if (pair? #{p 4130}#)
+ (if (pair? #{e 4129}#)
+ (#{match 4029}#
+ (car #{e 4129}#)
+ (car #{p 4130}#)
+ #{w 4131}#
+ (#{match 4029}#
+ (cdr #{e 4129}#)
+ (cdr #{p 4130}#)
+ #{w 4131}#
+ #{r 4132}#
+ #{mod 4133}#)
+ #{mod 4133}#)
+ #f)
+ (if (eq? #{p 4130}# 'each-any)
(begin
- (let ((#{first 4080}#
- (#{match 4068}#
- (car #{e 4069}#)
- #{p 4070}#
- #{w 4071}#
- '()
- #{mod 4072}#)))
- (if #{first 4080}#
- (begin
- (let ((#{rest 4084}#
- (#{match-each 4056}#
- (cdr #{e 4069}#)
- #{p 4070}#
- #{w 4071}#
- #{mod 4072}#)))
- (if #{rest 4084}#
- (cons #{first 4080}# #{rest 4084}#)
- #f)))
- #f)))
- (if (null? #{e 4069}#)
- '()
- (if (#{syntax-object? 342}# #{e 4069}#)
- (#{match-each 4056}#
- (#{syntax-object-expression 344}# #{e 4069}#)
- #{p 4070}#
- (#{join-wraps 424}#
- #{w 4071}#
- (#{syntax-object-wrap 346}# #{e 4069}#))
- (#{syntax-object-module 348}# #{e 4069}#))
- #f)))))
- (#{match-each+ 4058}#
- (lambda (#{e 4092}#
- #{x-pat 4093}#
- #{y-pat 4094}#
- #{z-pat 4095}#
- #{w 4096}#
- #{r 4097}#
- #{mod 4098}#)
- (letrec*
- ((#{f 4109}#
- (lambda (#{e 4110}# #{w 4111}#)
- (if (pair? #{e 4110}#)
- (call-with-values
- (lambda ()
- (#{f 4109}# (cdr #{e 4110}#) #{w 4111}#))
- (lambda (#{xr* 4114}# #{y-pat 4115}# #{r 4116}#)
- (if #{r 4116}#
- (if (null? #{y-pat 4115}#)
- (begin
- (let ((#{xr 4121}#
- (#{match 4068}#
- (car #{e 4110}#)
- #{x-pat 4093}#
- #{w 4111}#
- '()
- #{mod 4098}#)))
- (if #{xr 4121}#
- (values
- (cons #{xr 4121}# #{xr* 4114}#)
- #{y-pat 4115}#
- #{r 4116}#)
- (values #f #f #f))))
- (values
- '()
- (cdr #{y-pat 4115}#)
- (#{match 4068}#
- (car #{e 4110}#)
- (car #{y-pat 4115}#)
- #{w 4111}#
- #{r 4116}#
- #{mod 4098}#)))
- (values #f #f #f))))
- (if (#{syntax-object? 342}# #{e 4110}#)
- (#{f 4109}#
- (#{syntax-object-expression 344}# #{e 4110}#)
- (#{join-wraps 424}# #{w 4111}# #{e 4110}#))
- (values
- '()
- #{y-pat 4094}#
- (#{match 4068}#
- #{e 4110}#
- #{z-pat 4095}#
- #{w 4111}#
- #{r 4097}#
- #{mod 4098}#)))))))
- (begin (#{f 4109}# #{e 4092}# #{w 4096}#)))))
- (#{match-each-any 4060}#
- (lambda (#{e 4125}# #{w 4126}# #{mod 4127}#)
- (if (pair? #{e 4125}#)
+ (let ((#{l 4150}#
+ (#{match-each-any 4021}#
+ #{e 4129}#
+ #{w 4131}#
+ #{mod 4133}#)))
+ (if #{l 4150}# (cons #{l 4150}# #{r 4132}#) #f)))
(begin
- (let ((#{l 4134}#
- (#{match-each-any 4060}#
- (cdr #{e 4125}#)
- #{w 4126}#
- #{mod 4127}#)))
- (if #{l 4134}#
- (cons (#{wrap 442}#
- (car #{e 4125}#)
- #{w 4126}#
- #{mod 4127}#)
- #{l 4134}#)
- #f)))
- (if (null? #{e 4125}#)
- '()
- (if (#{syntax-object? 342}# #{e 4125}#)
- (#{match-each-any 4060}#
- (#{syntax-object-expression 344}# #{e 4125}#)
- (#{join-wraps 424}#
- #{w 4126}#
- (#{syntax-object-wrap 346}# #{e 4125}#))
- #{mod 4127}#)
- #f)))))
- (#{match-empty 4062}#
- (lambda (#{p 4142}# #{r 4143}#)
- (if (null? #{p 4142}#)
- #{r 4143}#
- (if (eq? #{p 4142}# '_)
- #{r 4143}#
- (if (eq? #{p 4142}# 'any)
- (cons '() #{r 4143}#)
- (if (pair? #{p 4142}#)
- (#{match-empty 4062}#
- (car #{p 4142}#)
- (#{match-empty 4062}#
- (cdr #{p 4142}#)
- #{r 4143}#))
- (if (eq? #{p 4142}# 'each-any)
- (cons '() #{r 4143}#)
+ (let ((#{atom-key 4156}# (vector-ref #{p 4130}# 0)))
+ (if (eqv? #{atom-key 4156}# 'each)
+ (if (null? #{e 4129}#)
+ (#{match-empty 4023}#
+ (vector-ref #{p 4130}# 1)
+ #{r 4132}#)
(begin
- (let ((#{atom-key 4159}#
- (vector-ref #{p 4142}# 0)))
- (if (eqv? #{atom-key 4159}# 'each)
- (#{match-empty 4062}#
- (vector-ref #{p 4142}# 1)
- #{r 4143}#)
- (if (eqv? #{atom-key 4159}# 'each+)
- (#{match-empty 4062}#
- (vector-ref #{p 4142}# 1)
- (#{match-empty 4062}#
- (reverse (vector-ref #{p 4142}# 2))
- (#{match-empty 4062}#
- (vector-ref #{p 4142}# 3)
- #{r 4143}#)))
- (if (if (eqv? #{atom-key 4159}# 'free-id)
- #t
- (eqv? #{atom-key 4159}# 'atom))
- #{r 4143}#
- (if (eqv? #{atom-key 4159}# 'vector)
- (#{match-empty 4062}#
- (vector-ref #{p 4142}# 1)
- #{r 4143}#))))))))))))))
- (#{combine 4064}#
- (lambda (#{r* 4164}# #{r 4165}#)
- (if (null? (car #{r* 4164}#))
- #{r 4165}#
- (cons (map car #{r* 4164}#)
- (#{combine 4064}#
- (map cdr #{r* 4164}#)
- #{r 4165}#)))))
- (#{match* 4066}#
- (lambda (#{e 4168}#
- #{p 4169}#
- #{w 4170}#
- #{r 4171}#
- #{mod 4172}#)
- (if (null? #{p 4169}#)
- (if (null? #{e 4168}#) #{r 4171}# #f)
- (if (pair? #{p 4169}#)
- (if (pair? #{e 4168}#)
- (#{match 4068}#
- (car #{e 4168}#)
- (car #{p 4169}#)
- #{w 4170}#
- (#{match 4068}#
- (cdr #{e 4168}#)
- (cdr #{p 4169}#)
- #{w 4170}#
- #{r 4171}#
- #{mod 4172}#)
- #{mod 4172}#)
- #f)
- (if (eq? #{p 4169}# 'each-any)
- (begin
- (let ((#{l 4189}#
- (#{match-each-any 4060}#
- #{e 4168}#
- #{w 4170}#
- #{mod 4172}#)))
- (if #{l 4189}# (cons #{l 4189}# #{r 4171}#) #f)))
- (begin
- (let ((#{atom-key 4195}# (vector-ref #{p 4169}# 0)))
- (if (eqv? #{atom-key 4195}# 'each)
- (if (null? #{e 4168}#)
- (#{match-empty 4062}#
- (vector-ref #{p 4169}# 1)
- #{r 4171}#)
- (begin
- (let ((#{l 4198}#
- (#{match-each 4056}#
- #{e 4168}#
- (vector-ref #{p 4169}# 1)
- #{w 4170}#
- #{mod 4172}#)))
- (if #{l 4198}#
- (letrec*
- ((#{collect 4203}#
- (lambda (#{l 4204}#)
- (if (null? (car #{l 4204}#))
- #{r 4171}#
- (cons (map car #{l 4204}#)
- (#{collect 4203}#
- (map cdr
- #{l 4204}#)))))))
- (begin (#{collect 4203}# #{l 4198}#)))
- #f))))
- (if (eqv? #{atom-key 4195}# 'each+)
- (call-with-values
- (lambda ()
- (#{match-each+ 4058}#
- #{e 4168}#
- (vector-ref #{p 4169}# 1)
- (vector-ref #{p 4169}# 2)
- (vector-ref #{p 4169}# 3)
- #{w 4170}#
- #{r 4171}#
- #{mod 4172}#))
- (lambda (#{xr* 4206}#
- #{y-pat 4207}#
- #{r 4208}#)
- (if #{r 4208}#
- (if (null? #{y-pat 4207}#)
- (if (null? #{xr* 4206}#)
- (#{match-empty 4062}#
- (vector-ref #{p 4169}# 1)
- #{r 4208}#)
- (#{combine 4064}#
- #{xr* 4206}#
- #{r 4208}#))
- #f)
- #f)))
- (if (eqv? #{atom-key 4195}# 'free-id)
- (if (#{id? 376}# #{e 4168}#)
- (if (#{free-id=? 432}#
- (#{wrap 442}#
- #{e 4168}#
- #{w 4170}#
- #{mod 4172}#)
- (vector-ref #{p 4169}# 1))
- #{r 4171}#
- #f)
+ (let ((#{l 4159}#
+ (#{match-each 4017}#
+ #{e 4129}#
+ (vector-ref #{p 4130}# 1)
+ #{w 4131}#
+ #{mod 4133}#)))
+ (if #{l 4159}#
+ (letrec*
+ ((#{collect 4164}#
+ (lambda (#{l 4165}#)
+ (if (null? (car #{l 4165}#))
+ #{r 4132}#
+ (cons (map car #{l 4165}#)
+ (#{collect 4164}#
+ (map cdr #{l 4165}#)))))))
+ (begin (#{collect 4164}# #{l 4159}#)))
+ #f))))
+ (if (eqv? #{atom-key 4156}# 'each+)
+ (call-with-values
+ (lambda ()
+ (#{match-each+ 4019}#
+ #{e 4129}#
+ (vector-ref #{p 4130}# 1)
+ (vector-ref #{p 4130}# 2)
+ (vector-ref #{p 4130}# 3)
+ #{w 4131}#
+ #{r 4132}#
+ #{mod 4133}#))
+ (lambda (#{xr* 4167}# #{y-pat 4168}# #{r 4169}#)
+ (if #{r 4169}#
+ (if (null? #{y-pat 4168}#)
+ (if (null? #{xr* 4167}#)
+ (#{match-empty 4023}#
+ (vector-ref #{p 4130}# 1)
+ #{r 4169}#)
+ (#{combine 4025}#
+ #{xr* 4167}#
+ #{r 4169}#))
#f)
- (if (eqv? #{atom-key 4195}# 'atom)
- (if (equal?
- (vector-ref #{p 4169}# 1)
- (#{strip 482}# #{e 4168}# #{w 4170}#))
- #{r 4171}#
- #f)
- (if (eqv? #{atom-key 4195}# 'vector)
- (if (vector? #{e 4168}#)
- (#{match 4068}#
- (vector->list #{e 4168}#)
- (vector-ref #{p 4169}# 1)
- #{w 4170}#
- #{r 4171}#
- #{mod 4172}#)
- #f)))))))))))))
- (#{match 4068}#
- (lambda (#{e 4225}#
- #{p 4226}#
- #{w 4227}#
- #{r 4228}#
- #{mod 4229}#)
- (if (not #{r 4228}#)
- #f
- (if (eq? #{p 4226}# '_)
- #{r 4228}#
- (if (eq? #{p 4226}# 'any)
- (cons (#{wrap 442}# #{e 4225}# #{w 4227}# #{mod 4229}#)
- #{r 4228}#)
- (if (#{syntax-object? 342}# #{e 4225}#)
- (#{match* 4066}#
- (#{syntax-object-expression 344}# #{e 4225}#)
- #{p 4226}#
- (#{join-wraps 424}#
- #{w 4227}#
- (#{syntax-object-wrap 346}# #{e 4225}#))
- #{r 4228}#
- (#{syntax-object-module 348}# #{e 4225}#))
- (#{match* 4066}#
- #{e 4225}#
- #{p 4226}#
- #{w 4227}#
- #{r 4228}#
- #{mod 4229}#))))))))
- (begin
- (set! $sc-dispatch
- (lambda (#{e 4244}# #{p 4245}#)
- (if (eq? #{p 4245}# 'any)
- (list #{e 4244}#)
- (if (eq? #{p 4245}# '_)
+ #f)))
+ (if (eqv? #{atom-key 4156}# 'free-id)
+ (if (#{id? 339}# #{e 4129}#)
+ (if (#{free-id=? 395}#
+ (#{wrap 405}#
+ #{e 4129}#
+ #{w 4131}#
+ #{mod 4133}#)
+ (vector-ref #{p 4130}# 1))
+ #{r 4132}#
+ #f)
+ #f)
+ (if (eqv? #{atom-key 4156}# 'atom)
+ (if (equal?
+ (vector-ref #{p 4130}# 1)
+ (#{strip 445}# #{e 4129}# #{w 4131}#))
+ #{r 4132}#
+ #f)
+ (if (eqv? #{atom-key 4156}# 'vector)
+ (if (vector? #{e 4129}#)
+ (#{match 4029}#
+ (vector->list #{e 4129}#)
+ (vector-ref #{p 4130}# 1)
+ #{w 4131}#
+ #{r 4132}#
+ #{mod 4133}#)
+ #f)))))))))))))
+ (#{match 4029}#
+ (lambda (#{e 4186}#
+ #{p 4187}#
+ #{w 4188}#
+ #{r 4189}#
+ #{mod 4190}#)
+ (if (not #{r 4189}#)
+ #f
+ (if (eq? #{p 4187}# '_)
+ #{r 4189}#
+ (if (eq? #{p 4187}# 'any)
+ (cons (#{wrap 405}# #{e 4186}# #{w 4188}# #{mod 4190}#)
+ #{r 4189}#)
+ (if (#{syntax-object? 305}# #{e 4186}#)
+ (#{match* 4027}#
+ (#{syntax-object-expression 307}# #{e 4186}#)
+ #{p 4187}#
+ (#{join-wraps 387}#
+ #{w 4188}#
+ (#{syntax-object-wrap 309}# #{e 4186}#))
+ #{r 4189}#
+ (#{syntax-object-module 311}# #{e 4186}#))
+ (#{match* 4027}#
+ #{e 4186}#
+ #{p 4187}#
+ #{w 4188}#
+ #{r 4189}#
+ #{mod 4190}#))))))))
+ (begin
+ (set! $sc-dispatch
+ (lambda (#{e 4205}# #{p 4206}#)
+ (if (eq? #{p 4206}# 'any)
+ (list #{e 4205}#)
+ (if (eq? #{p 4206}# '_)
+ '()
+ (if (#{syntax-object? 305}# #{e 4205}#)
+ (#{match* 4027}#
+ (#{syntax-object-expression 307}# #{e 4205}#)
+ #{p 4206}#
+ (#{syntax-object-wrap 309}# #{e 4205}#)
'()
- (if (#{syntax-object? 342}# #{e 4244}#)
- (#{match* 4066}#
- (#{syntax-object-expression 344}# #{e 4244}#)
- #{p 4245}#
- (#{syntax-object-wrap 346}# #{e 4244}#)
- '()
- (#{syntax-object-module 348}# #{e 4244}#))
- (#{match* 4066}#
- #{e 4244}#
- #{p 4245}#
- '(())
- '()
- #f)))))))))))))
+ (#{syntax-object-module 311}# #{e 4205}#))
+ (#{match* 4027}#
+ #{e 4205}#
+ #{p 4206}#
+ '(())
+ '()
+ #f)))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 4256}#)
- (let ((#{tmp 4258}# #{x 4256}#))
- (let ((#{tmp 4259}#
+ (lambda (#{x 4217}#)
+ (let ((#{tmp 4219}# #{x 4217}#))
+ (let ((#{tmp 4220}#
($sc-dispatch
- #{tmp 4258}#
+ #{tmp 4219}#
'(_ () any . each-any))))
- (if #{tmp 4259}#
+ (if #{tmp 4220}#
(@apply
- (lambda (#{e1 4262}# #{e2 4263}#)
+ (lambda (#{e1 4223}# #{e2 4224}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4260" "i4261"))
+ #("i4221" "i4222"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4257")))
+ #(ribcage #(x) #((top)) #("i4218")))
(hygiene guile))
- (cons '() (cons #{e1 4262}# #{e2 4263}#))))
- #{tmp 4259}#)
- (let ((#{tmp 4265}#
+ (cons '() (cons #{e1 4223}# #{e2 4224}#))))
+ #{tmp 4220}#)
+ (let ((#{tmp 4226}#
($sc-dispatch
- #{tmp 4258}#
+ #{tmp 4219}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 4265}#
+ (if #{tmp 4226}#
(@apply
- (lambda (#{out 4270}#
- #{in 4271}#
- #{e1 4272}#
- #{e2 4273}#)
+ (lambda (#{out 4231}#
+ #{in 4232}#
+ #{e1 4233}#
+ #{e2 4234}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
+ #("i4227" "i4228" "i4229" "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4257")))
+ #(ribcage #(x) #((top)) #("i4218")))
(hygiene guile))
- #{in 4271}#
+ #{in 4232}#
'()
- (list #{out 4270}#
+ (list #{out 4231}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
+ #("i4227" "i4228" "i4229" "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4257")))
+ #(ribcage #(x) #((top)) #("i4218")))
(hygiene guile))
(cons '()
- (cons #{e1 4272}# #{e2 4273}#))))))
- #{tmp 4265}#)
- (let ((#{tmp 4275}#
+ (cons #{e1 4233}# #{e2 4234}#))))))
+ #{tmp 4226}#)
+ (let ((#{tmp 4236}#
($sc-dispatch
- #{tmp 4258}#
+ #{tmp 4219}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 4275}#
+ (if #{tmp 4236}#
(@apply
- (lambda (#{out 4280}#
- #{in 4281}#
- #{e1 4282}#
- #{e2 4283}#)
+ (lambda (#{out 4241}#
+ #{in 4242}#
+ #{e1 4243}#
+ #{e2 4244}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4276" "i4277" "i4278" "i4279"))
+ #("i4237" "i4238" "i4239" "i4240"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4257")))
+ #(ribcage #(x) #((top)) #("i4218")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -14402,63 +14191,63 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4276" "i4277" "i4278" "i4279"))
+ #("i4237" "i4238" "i4239" "i4240"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4257")))
+ #(ribcage #(x) #((top)) #("i4218")))
(hygiene guile))
- #{in 4281}#)
+ #{in 4242}#)
'()
- (list #{out 4280}#
+ (list #{out 4241}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4276"
- "i4277"
- "i4278"
- "i4279"))
+ #("i4237"
+ "i4238"
+ "i4239"
+ "i4240"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4257")))
+ #("i4218")))
(hygiene guile))
(cons '()
- (cons #{e1 4282}#
- #{e2 4283}#))))))
- #{tmp 4275}#)
+ (cons #{e1 4243}#
+ #{e2 4244}#))))))
+ #{tmp 4236}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4258}#)))))))))))
+ #{tmp 4219}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 4287}#)
- (let ((#{tmp 4289}# #{x 4287}#))
- (let ((#{tmp 4290}#
+ (lambda (#{x 4248}#)
+ (let ((#{tmp 4250}# #{x 4248}#))
+ (let ((#{tmp 4251}#
($sc-dispatch
- #{tmp 4289}#
+ #{tmp 4250}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 4290}#
+ (if #{tmp 4251}#
(@apply
- (lambda (#{k 4295}#
- #{keyword 4296}#
- #{pattern 4297}#
- #{template 4298}#)
+ (lambda (#{k 4256}#
+ #{keyword 4257}#
+ #{pattern 4258}#
+ #{template 4259}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4291" "i4292" "i4293" "i4294"))
+ #("i4252" "i4253" "i4254" "i4255"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
'(#(syntax-object
x
@@ -14466,9 +14255,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4291" "i4292" "i4293" "i4294"))
+ #("i4252" "i4253" "i4254" "i4255"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -14477,9 +14266,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4291" "i4292" "i4293" "i4294"))
+ #("i4252" "i4253" "i4254" "i4255"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
.
#(syntax-object
@@ -14488,9 +14277,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4291" "i4292" "i4293" "i4294"))
+ #("i4252" "i4253" "i4254" "i4255"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14498,20 +14287,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4291" "i4292" "i4293" "i4294"))
+ #("i4252" "i4253" "i4254" "i4255"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
- #{pattern 4297}#))
+ #{pattern 4258}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4291" "i4292" "i4293" "i4294"))
+ #("i4252" "i4253" "i4254" "i4255"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14519,13 +14308,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4291" "i4292" "i4293" "i4294"))
+ #("i4252" "i4253" "i4254" "i4255"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
- (cons #{k 4295}#
- (map (lambda (#{tmp 4302}#
- #{tmp 4301}#)
+ (cons #{k 4256}#
+ (map (lambda (#{tmp 4263}#
+ #{tmp 4262}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14538,10 +14327,10 @@
(top)
(top)
(top))
- #("i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4252"
+ "i4253"
+ "i4254"
+ "i4255"))
#(ribcage
()
()
@@ -14549,9 +14338,9 @@
#(ribcage
#(x)
#((top))
- #("i4288")))
+ #("i4249")))
(hygiene guile))
- #{tmp 4301}#)
+ #{tmp 4262}#)
(list '#(syntax-object
syntax
((top)
@@ -14564,10 +14353,10 @@
(top)
(top)
(top))
- #("i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4252"
+ "i4253"
+ "i4254"
+ "i4255"))
#(ribcage
()
()
@@ -14575,41 +14364,41 @@
#(ribcage
#(x)
#((top))
- #("i4288")))
+ #("i4249")))
(hygiene guile))
- #{tmp 4302}#)))
- #{template 4298}#
- #{pattern 4297}#))))))
- #{tmp 4290}#)
- (let ((#{tmp 4303}#
+ #{tmp 4263}#)))
+ #{template 4259}#
+ #{pattern 4258}#))))))
+ #{tmp 4251}#)
+ (let ((#{tmp 4264}#
($sc-dispatch
- #{tmp 4289}#
+ #{tmp 4250}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 4303}#
+ (if (if #{tmp 4264}#
(@apply
- (lambda (#{k 4309}#
- #{docstring 4310}#
- #{keyword 4311}#
- #{pattern 4312}#
- #{template 4313}#)
- (string? (syntax->datum #{docstring 4310}#)))
- #{tmp 4303}#)
+ (lambda (#{k 4270}#
+ #{docstring 4271}#
+ #{keyword 4272}#
+ #{pattern 4273}#
+ #{template 4274}#)
+ (string? (syntax->datum #{docstring 4271}#)))
+ #{tmp 4264}#)
#f)
(@apply
- (lambda (#{k 4319}#
- #{docstring 4320}#
- #{keyword 4321}#
- #{pattern 4322}#
- #{template 4323}#)
+ (lambda (#{k 4280}#
+ #{docstring 4281}#
+ #{keyword 4282}#
+ #{pattern 4283}#
+ #{template 4284}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4314" "i4315" "i4316" "i4317" "i4318"))
+ #("i4275" "i4276" "i4277" "i4278" "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
'(#(syntax-object
x
@@ -14617,11 +14406,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4314" "i4315" "i4316" "i4317" "i4318"))
+ #("i4275" "i4276" "i4277" "i4278" "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile)))
- #{docstring 4320}#
+ #{docstring 4281}#
(vector
'(#(syntax-object
macro-type
@@ -14629,9 +14418,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4314" "i4315" "i4316" "i4317" "i4318"))
+ #("i4275" "i4276" "i4277" "i4278" "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
.
#(syntax-object
@@ -14640,9 +14429,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4314" "i4315" "i4316" "i4317" "i4318"))
+ #("i4275" "i4276" "i4277" "i4278" "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14650,28 +14439,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4314"
- "i4315"
- "i4316"
- "i4317"
- "i4318"))
+ #("i4275"
+ "i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
- #{pattern 4322}#))
+ #{pattern 4283}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4314"
- "i4315"
- "i4316"
- "i4317"
- "i4318"))
+ #("i4275"
+ "i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14683,17 +14472,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i4314"
- "i4315"
- "i4316"
- "i4317"
- "i4318"))
+ #("i4275"
+ "i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4288")))
+ #(ribcage #(x) #((top)) #("i4249")))
(hygiene guile))
- (cons #{k 4319}#
- (map (lambda (#{tmp 4327}#
- #{tmp 4326}#)
+ (cons #{k 4280}#
+ (map (lambda (#{tmp 4288}#
+ #{tmp 4287}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14708,11 +14497,11 @@
(top)
(top)
(top))
- #("i4314"
- "i4315"
- "i4316"
- "i4317"
- "i4318"))
+ #("i4275"
+ "i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14720,10 +14509,10 @@
#(ribcage
#(x)
#((top))
- #("i4288")))
+ #("i4249")))
(hygiene
guile))
- #{tmp 4326}#)
+ #{tmp 4287}#)
(list '#(syntax-object
syntax
((top)
@@ -14738,11 +14527,11 @@
(top)
(top)
(top))
- #("i4314"
- "i4315"
- "i4316"
- "i4317"
- "i4318"))
+ #("i4275"
+ "i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage
()
()
@@ -14750,48 +14539,48 @@
#(ribcage
#(x)
#((top))
- #("i4288")))
+ #("i4249")))
(hygiene
guile))
- #{tmp 4327}#)))
- #{template 4323}#
- #{pattern 4322}#))))))
- #{tmp 4303}#)
+ #{tmp 4288}#)))
+ #{template 4284}#
+ #{pattern 4283}#))))))
+ #{tmp 4264}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4289}#)))))))))
+ #{tmp 4250}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 4328}#)
- (let ((#{tmp 4330}# #{x 4328}#))
- (let ((#{tmp 4331}#
+ (lambda (#{x 4289}#)
+ (let ((#{tmp 4291}# #{x 4289}#))
+ (let ((#{tmp 4292}#
($sc-dispatch
- #{tmp 4330}#
+ #{tmp 4291}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 4331}#
+ (if (if #{tmp 4292}#
(@apply
- (lambda (#{let* 4337}#
- #{x 4338}#
- #{v 4339}#
- #{e1 4340}#
- #{e2 4341}#)
- (and-map identifier? #{x 4338}#))
- #{tmp 4331}#)
+ (lambda (#{let* 4298}#
+ #{x 4299}#
+ #{v 4300}#
+ #{e1 4301}#
+ #{e2 4302}#)
+ (and-map identifier? #{x 4299}#))
+ #{tmp 4292}#)
#f)
(@apply
- (lambda (#{let* 4348}#
- #{x 4349}#
- #{v 4350}#
- #{e1 4351}#
- #{e2 4352}#)
+ (lambda (#{let* 4309}#
+ #{x 4310}#
+ #{v 4311}#
+ #{e1 4312}#
+ #{e2 4313}#)
(letrec*
- ((#{f 4355}#
- (lambda (#{bindings 4356}#)
- (if (null? #{bindings 4356}#)
+ ((#{f 4316}#
+ (lambda (#{bindings 4317}#)
+ (if (null? #{bindings 4317}#)
(cons '#(syntax-object
let
((top)
@@ -14799,27 +14588,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4353" "i4354"))
+ #("i4314" "i4315"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4343"
- "i4344"
- "i4345"
- "i4346"
- "i4347"))
+ #("i4304"
+ "i4305"
+ "i4306"
+ "i4307"
+ "i4308"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4329")))
+ #(ribcage #(x) #((top)) #("i4290")))
(hygiene guile))
- (cons '() (cons #{e1 4351}# #{e2 4352}#)))
- (let ((#{tmp 4361}#
- (list (#{f 4355}# (cdr #{bindings 4356}#))
- (car #{bindings 4356}#))))
- (let ((#{tmp 4362}#
- ($sc-dispatch #{tmp 4361}# '(any any))))
- (if #{tmp 4362}#
+ (cons '() (cons #{e1 4312}# #{e2 4313}#)))
+ (let ((#{tmp 4322}#
+ (list (#{f 4316}# (cdr #{bindings 4317}#))
+ (car #{bindings 4317}#))))
+ (let ((#{tmp 4323}#
+ ($sc-dispatch #{tmp 4322}# '(any any))))
+ (if #{tmp 4323}#
(@apply
- (lambda (#{body 4365}# #{binding 4366}#)
+ (lambda (#{body 4326}# #{binding 4327}#)
(list '#(syntax-object
let
((top)
@@ -14827,96 +14616,96 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i4363" "i4364"))
+ #("i4324" "i4325"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4353" "i4354"))
+ #("i4314" "i4315"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4343"
- "i4344"
- "i4345"
- "i4346"
- "i4347"))
+ #("i4304"
+ "i4305"
+ "i4306"
+ "i4307"
+ "i4308"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4329")))
+ #("i4290")))
(hygiene guile))
- (list #{binding 4366}#)
- #{body 4365}#))
- #{tmp 4362}#)
+ (list #{binding 4327}#)
+ #{body 4326}#))
+ #{tmp 4323}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4361}#))))))))
+ #{tmp 4322}#))))))))
(begin
- (#{f 4355}# (map list #{x 4349}# #{v 4350}#)))))
- #{tmp 4331}#)
+ (#{f 4316}# (map list #{x 4310}# #{v 4311}#)))))
+ #{tmp 4292}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4330}#)))))))
+ #{tmp 4291}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 4367}#)
- (let ((#{tmp 4369}# #{orig-x 4367}#))
- (let ((#{tmp 4370}#
+ (lambda (#{orig-x 4328}#)
+ (let ((#{tmp 4330}# #{orig-x 4328}#))
+ (let ((#{tmp 4331}#
($sc-dispatch
- #{tmp 4369}#
+ #{tmp 4330}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 4370}#
+ (if #{tmp 4331}#
(@apply
- (lambda (#{var 4377}#
- #{init 4378}#
- #{step 4379}#
- #{e0 4380}#
- #{e1 4381}#
- #{c 4382}#)
- (let ((#{tmp 4384}#
- (map (lambda (#{v 4405}# #{s 4406}#)
- (let ((#{tmp 4409}# #{s 4406}#))
- (let ((#{tmp 4410}#
- ($sc-dispatch #{tmp 4409}# '())))
- (if #{tmp 4410}#
+ (lambda (#{var 4338}#
+ #{init 4339}#
+ #{step 4340}#
+ #{e0 4341}#
+ #{e1 4342}#
+ #{c 4343}#)
+ (let ((#{tmp 4345}#
+ (map (lambda (#{v 4366}# #{s 4367}#)
+ (let ((#{tmp 4370}# #{s 4367}#))
+ (let ((#{tmp 4371}#
+ ($sc-dispatch #{tmp 4370}# '())))
+ (if #{tmp 4371}#
(@apply
- (lambda () #{v 4405}#)
- #{tmp 4410}#)
- (let ((#{tmp 4411}#
+ (lambda () #{v 4366}#)
+ #{tmp 4371}#)
+ (let ((#{tmp 4372}#
($sc-dispatch
- #{tmp 4409}#
+ #{tmp 4370}#
'(any))))
- (if #{tmp 4411}#
+ (if #{tmp 4372}#
(@apply
- (lambda (#{e 4413}#) #{e 4413}#)
- #{tmp 4411}#)
- (let ((#{_ 4415}# #{tmp 4409}#))
+ (lambda (#{e 4374}#) #{e 4374}#)
+ #{tmp 4372}#)
+ (let ((#{_ 4376}# #{tmp 4370}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x 4367}#
- #{s 4406}#))))))))
- #{var 4377}#
- #{step 4379}#)))
- (let ((#{tmp 4385}#
- ($sc-dispatch #{tmp 4384}# 'each-any)))
- (if #{tmp 4385}#
+ #{orig-x 4328}#
+ #{s 4367}#))))))))
+ #{var 4338}#
+ #{step 4340}#)))
+ (let ((#{tmp 4346}#
+ ($sc-dispatch #{tmp 4345}# 'each-any)))
+ (if #{tmp 4346}#
(@apply
- (lambda (#{step 4387}#)
- (let ((#{tmp 4388}# #{e1 4381}#))
- (let ((#{tmp 4389}#
- ($sc-dispatch #{tmp 4388}# '())))
- (if #{tmp 4389}#
+ (lambda (#{step 4348}#)
+ (let ((#{tmp 4349}# #{e1 4342}#))
+ (let ((#{tmp 4350}#
+ ($sc-dispatch #{tmp 4349}# '())))
+ (if #{tmp 4350}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -14926,7 +14715,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14935,17 +14724,17 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
'#(syntax-object
doloop
@@ -14954,7 +14743,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14963,19 +14752,19 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
- (map list #{var 4377}# #{init 4378}#)
+ (map list #{var 4338}# #{init 4339}#)
(list '#(syntax-object
if
((top)
@@ -14983,7 +14772,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14992,17 +14781,17 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
(list '#(syntax-object
not
@@ -15011,7 +14800,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var
init
@@ -15025,19 +14814,19 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
- #{e0 4380}#)
+ #{e0 4341}#)
(cons '#(syntax-object
begin
((top)
@@ -15045,7 +14834,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var
init
@@ -15059,20 +14848,20 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
(append
- #{c 4382}#
+ #{c 4343}#
(list (cons '#(syntax-object
doloop
((top)
@@ -15083,7 +14872,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var
init
@@ -15097,12 +14886,12 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage
()
()
@@ -15110,30 +14899,30 @@
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene
guile))
- #{step 4387}#)))))))
- #{tmp 4389}#)
- (let ((#{tmp 4394}#
+ #{step 4348}#)))))))
+ #{tmp 4350}#)
+ (let ((#{tmp 4355}#
($sc-dispatch
- #{tmp 4388}#
+ #{tmp 4349}#
'(any . each-any))))
- (if #{tmp 4394}#
+ (if #{tmp 4355}#
(@apply
- (lambda (#{e1 4397}# #{e2 4398}#)
+ (lambda (#{e1 4358}# #{e2 4359}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4395" "i4396"))
+ #("i4356" "i4357"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15142,17 +14931,17 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15160,12 +14949,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4395" "i4396"))
+ #("i4356" "i4357"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15174,33 +14963,33 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
(map list
- #{var 4377}#
- #{init 4378}#)
+ #{var 4338}#
+ #{init 4339}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4395" "i4396"))
+ #("i4356" "i4357"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var
init
@@ -15214,27 +15003,27 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
- #{e0 4380}#
+ #{e0 4341}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4395"
- "i4396"))
+ #("i4356"
+ "i4357"))
#(ribcage
()
()
@@ -15242,7 +15031,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var
init
@@ -15256,12 +15045,12 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage
()
()
@@ -15269,18 +15058,18 @@
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
- (cons #{e1 4397}#
- #{e2 4398}#))
+ (cons #{e1 4358}#
+ #{e2 4359}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4395"
- "i4396"))
+ #("i4356"
+ "i4357"))
#(ribcage
()
()
@@ -15288,7 +15077,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var
init
@@ -15302,12 +15091,12 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage
()
()
@@ -15315,10 +15104,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene guile))
(append
- #{c 4382}#
+ #{c 4343}#
(list (cons '#(syntax-object
doloop
((top)
@@ -15327,8 +15116,8 @@
e2)
#((top)
(top))
- #("i4395"
- "i4396"))
+ #("i4356"
+ "i4357"))
#(ribcage
()
()
@@ -15336,7 +15125,7 @@
#(ribcage
#(step)
#((top))
- #("i4386"))
+ #("i4347"))
#(ribcage
#(var
init
@@ -15350,12 +15139,12 @@
(top)
(top)
(top))
- #("i4371"
- "i4372"
- "i4373"
- "i4374"
- "i4375"
- "i4376"))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335"
+ "i4336"
+ "i4337"))
#(ribcage
()
()
@@ -15363,37 +15152,37 @@
#(ribcage
#(orig-x)
#((top))
- #("i4368")))
+ #("i4329")))
(hygiene
guile))
- #{step 4387}#)))))))
- #{tmp 4394}#)
+ #{step 4348}#)))))))
+ #{tmp 4355}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4388}#)))))))
- #{tmp 4385}#)
+ #{tmp 4349}#)))))))
+ #{tmp 4346}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4384}#)))))
- #{tmp 4370}#)
+ #{tmp 4345}#)))))
+ #{tmp 4331}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4369}#)))))))
+ #{tmp 4330}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 4419}#
- (lambda (#{p 4432}# #{lev 4433}#)
- (let ((#{tmp 4436}# #{p 4432}#))
- (let ((#{tmp 4437}#
+ ((#{quasi 4380}#
+ (lambda (#{p 4393}# #{lev 4394}#)
+ (let ((#{tmp 4397}# #{p 4393}#))
+ (let ((#{tmp 4398}#
($sc-dispatch
- #{tmp 4436}#
+ #{tmp 4397}#
'(#(free-id
#(syntax-object
unquote
@@ -15402,7 +15191,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15411,28 +15200,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
any))))
- (if #{tmp 4437}#
+ (if #{tmp 4398}#
(@apply
- (lambda (#{p 4439}#)
- (if (= #{lev 4433}# 0)
+ (lambda (#{p 4400}#)
+ (if (= #{lev 4394}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i4438"))
+ #(ribcage #(p) #((top)) #("i4399"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15441,25 +15230,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{p 4439}#)
- (#{quasicons 4423}#
+ #{p 4400}#)
+ (#{quasicons 4384}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4438"))
+ #(ribcage #(p) #((top)) #("i4399"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15468,23 +15257,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4438"))
+ #(ribcage #(p) #((top)) #("i4399"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15493,21 +15282,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
- (#{quasi 4419}#
- (list #{p 4439}#)
- (#{1-}# #{lev 4433}#)))))
- #{tmp 4437}#)
- (let ((#{tmp 4440}#
+ (#{quasi 4380}#
+ (list #{p 4400}#)
+ (#{1-}# #{lev 4394}#)))))
+ #{tmp 4398}#)
+ (let ((#{tmp 4401}#
($sc-dispatch
- #{tmp 4436}#
+ #{tmp 4397}#
'(#(free-id
#(syntax-object
quasiquote
@@ -15516,7 +15305,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15525,28 +15314,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
any))))
- (if #{tmp 4440}#
+ (if #{tmp 4401}#
(@apply
- (lambda (#{p 4442}#)
- (#{quasicons 4423}#
+ (lambda (#{p 4403}#)
+ (#{quasicons 4384}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4441"))
+ #(ribcage #(p) #((top)) #("i4402"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15555,23 +15344,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4441"))
+ #(ribcage #(p) #((top)) #("i4402"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15580,27 +15369,27 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
- (#{quasi 4419}#
- (list #{p 4442}#)
- (#{1+}# #{lev 4433}#))))
- #{tmp 4440}#)
- (let ((#{tmp 4443}#
- ($sc-dispatch #{tmp 4436}# '(any . any))))
- (if #{tmp 4443}#
+ (#{quasi 4380}#
+ (list #{p 4403}#)
+ (#{1+}# #{lev 4394}#))))
+ #{tmp 4401}#)
+ (let ((#{tmp 4404}#
+ ($sc-dispatch #{tmp 4397}# '(any . any))))
+ (if #{tmp 4404}#
(@apply
- (lambda (#{p 4446}# #{q 4447}#)
- (let ((#{tmp 4448}# #{p 4446}#))
- (let ((#{tmp 4449}#
+ (lambda (#{p 4407}# #{q 4408}#)
+ (let ((#{tmp 4409}# #{p 4407}#))
+ (let ((#{tmp 4410}#
($sc-dispatch
- #{tmp 4448}#
+ #{tmp 4409}#
'(#(free-id
#(syntax-object
unquote
@@ -15608,12 +15397,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4444" "i4445"))
+ #("i4405" "i4406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15628,40 +15417,40 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4449}#
+ (if #{tmp 4410}#
(@apply
- (lambda (#{p 4451}#)
- (if (= #{lev 4433}# 0)
- (#{quasilist* 4427}#
- (map (lambda (#{tmp 4452}#)
+ (lambda (#{p 4412}#)
+ (if (= #{lev 4394}# 0)
+ (#{quasilist* 4388}#
+ (map (lambda (#{tmp 4413}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4450"))
+ #("i4411"))
#(ribcage
#(p q)
#((top) (top))
- #("i4444"
- "i4445"))
+ #("i4405"
+ "i4406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434"
- "i4435"))
+ #("i4395"
+ "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15676,37 +15465,37 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{tmp 4452}#))
- #{p 4451}#)
- (#{quasi 4419}#
- #{q 4447}#
- #{lev 4433}#))
- (#{quasicons 4423}#
- (#{quasicons 4423}#
+ #{tmp 4413}#))
+ #{p 4412}#)
+ (#{quasi 4380}#
+ #{q 4408}#
+ #{lev 4394}#))
+ (#{quasicons 4384}#
+ (#{quasicons 4384}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4450"))
+ #("i4411"))
#(ribcage
#(p q)
#((top) (top))
- #("i4444" "i4445"))
+ #("i4405" "i4406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15721,13 +15510,13 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
#(syntax-object
unquote
@@ -15735,16 +15524,16 @@
#(ribcage
#(p)
#((top))
- #("i4450"))
+ #("i4411"))
#(ribcage
#(p q)
#((top) (top))
- #("i4444" "i4445"))
+ #("i4405" "i4406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15759,24 +15548,24 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
- (#{quasi 4419}#
- #{p 4451}#
- (#{1-}# #{lev 4433}#)))
- (#{quasi 4419}#
- #{q 4447}#
- #{lev 4433}#))))
- #{tmp 4449}#)
- (let ((#{tmp 4454}#
+ (#{quasi 4380}#
+ #{p 4412}#
+ (#{1-}# #{lev 4394}#)))
+ (#{quasi 4380}#
+ #{q 4408}#
+ #{lev 4394}#))))
+ #{tmp 4410}#)
+ (let ((#{tmp 4415}#
($sc-dispatch
- #{tmp 4448}#
+ #{tmp 4409}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -15784,12 +15573,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4444" "i4445"))
+ #("i4405" "i4406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15804,35 +15593,35 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4454}#
+ (if #{tmp 4415}#
(@apply
- (lambda (#{p 4456}#)
- (if (= #{lev 4433}# 0)
- (#{quasiappend 4425}#
- (map (lambda (#{tmp 4457}#)
+ (lambda (#{p 4417}#)
+ (if (= #{lev 4394}# 0)
+ (#{quasiappend 4386}#
+ (map (lambda (#{tmp 4418}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4455"))
+ #("i4416"))
#(ribcage
#(p q)
#((top)
(top))
- #("i4444"
- "i4445"))
+ #("i4405"
+ "i4406"))
#(ribcage
()
()
@@ -15841,8 +15630,8 @@
#(p lev)
#((top)
(top))
- #("i4434"
- "i4435"))
+ #("i4395"
+ "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15857,37 +15646,37 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{tmp 4457}#))
- #{p 4456}#)
- (#{quasi 4419}#
- #{q 4447}#
- #{lev 4433}#))
- (#{quasicons 4423}#
- (#{quasicons 4423}#
+ #{tmp 4418}#))
+ #{p 4417}#)
+ (#{quasi 4380}#
+ #{q 4408}#
+ #{lev 4394}#))
+ (#{quasicons 4384}#
+ (#{quasicons 4384}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4455"))
+ #("i4416"))
#(ribcage
#(p q)
#((top) (top))
- #("i4444" "i4445"))
+ #("i4405" "i4406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15902,13 +15691,13 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -15916,16 +15705,16 @@
#(ribcage
#(p)
#((top))
- #("i4455"))
+ #("i4416"))
#(ribcage
#(p q)
#((top) (top))
- #("i4444" "i4445"))
+ #("i4405" "i4406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15940,50 +15729,50 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
- (#{quasi 4419}#
- #{p 4456}#
- (#{1-}# #{lev 4433}#)))
- (#{quasi 4419}#
- #{q 4447}#
- #{lev 4433}#))))
- #{tmp 4454}#)
- (let ((#{_ 4460}# #{tmp 4448}#))
- (#{quasicons 4423}#
- (#{quasi 4419}#
- #{p 4446}#
- #{lev 4433}#)
- (#{quasi 4419}#
- #{q 4447}#
- #{lev 4433}#)))))))))
- #{tmp 4443}#)
- (let ((#{tmp 4461}#
+ (#{quasi 4380}#
+ #{p 4417}#
+ (#{1-}# #{lev 4394}#)))
+ (#{quasi 4380}#
+ #{q 4408}#
+ #{lev 4394}#))))
+ #{tmp 4415}#)
+ (let ((#{_ 4421}# #{tmp 4409}#))
+ (#{quasicons 4384}#
+ (#{quasi 4380}#
+ #{p 4407}#
+ #{lev 4394}#)
+ (#{quasi 4380}#
+ #{q 4408}#
+ #{lev 4394}#)))))))))
+ #{tmp 4404}#)
+ (let ((#{tmp 4422}#
($sc-dispatch
- #{tmp 4436}#
+ #{tmp 4397}#
'#(vector each-any))))
- (if #{tmp 4461}#
+ (if #{tmp 4422}#
(@apply
- (lambda (#{x 4463}#)
- (#{quasivector 4429}#
- (#{vquasi 4421}# #{x 4463}# #{lev 4433}#)))
- #{tmp 4461}#)
- (let ((#{p 4466}# #{tmp 4436}#))
+ (lambda (#{x 4424}#)
+ (#{quasivector 4390}#
+ (#{vquasi 4382}# #{x 4424}# #{lev 4394}#)))
+ #{tmp 4422}#)
+ (let ((#{p 4427}# #{tmp 4397}#))
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4465"))
+ #(ribcage #(p) #((top)) #("i4426"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4395" "i4396"))
#(ribcage
(emit quasivector
quasilist*
@@ -15998,27 +15787,27 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{p 4466}#)))))))))))))
- (#{vquasi 4421}#
- (lambda (#{p 4467}# #{lev 4468}#)
- (let ((#{tmp 4471}# #{p 4467}#))
- (let ((#{tmp 4472}#
- ($sc-dispatch #{tmp 4471}# '(any . any))))
- (if #{tmp 4472}#
+ #{p 4427}#)))))))))))))
+ (#{vquasi 4382}#
+ (lambda (#{p 4428}# #{lev 4429}#)
+ (let ((#{tmp 4432}# #{p 4428}#))
+ (let ((#{tmp 4433}#
+ ($sc-dispatch #{tmp 4432}# '(any . any))))
+ (if #{tmp 4433}#
(@apply
- (lambda (#{p 4475}# #{q 4476}#)
- (let ((#{tmp 4477}# #{p 4475}#))
- (let ((#{tmp 4478}#
+ (lambda (#{p 4436}# #{q 4437}#)
+ (let ((#{tmp 4438}# #{p 4436}#))
+ (let ((#{tmp 4439}#
($sc-dispatch
- #{tmp 4477}#
+ #{tmp 4438}#
'(#(free-id
#(syntax-object
unquote
@@ -16026,12 +15815,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4473" "i4474"))
+ #("i4434" "i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16046,38 +15835,38 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4478}#
+ (if #{tmp 4439}#
(@apply
- (lambda (#{p 4480}#)
- (if (= #{lev 4468}# 0)
- (#{quasilist* 4427}#
- (map (lambda (#{tmp 4481}#)
+ (lambda (#{p 4441}#)
+ (if (= #{lev 4429}# 0)
+ (#{quasilist* 4388}#
+ (map (lambda (#{tmp 4442}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4479"))
+ #("i4440"))
#(ribcage
#(p q)
#((top) (top))
- #("i4473" "i4474"))
+ #("i4434" "i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16092,32 +15881,32 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{tmp 4481}#))
- #{p 4480}#)
- (#{vquasi 4421}# #{q 4476}# #{lev 4468}#))
- (#{quasicons 4423}#
- (#{quasicons 4423}#
+ #{tmp 4442}#))
+ #{p 4441}#)
+ (#{vquasi 4382}# #{q 4437}# #{lev 4429}#))
+ (#{quasicons 4384}#
+ (#{quasicons 4384}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4479"))
+ #(ribcage #(p) #((top)) #("i4440"))
#(ribcage
#(p q)
#((top) (top))
- #("i4473" "i4474"))
+ #("i4434" "i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16132,27 +15921,27 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4479"))
+ #(ribcage #(p) #((top)) #("i4440"))
#(ribcage
#(p q)
#((top) (top))
- #("i4473" "i4474"))
+ #("i4434" "i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16167,22 +15956,22 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
- (#{quasi 4419}#
- #{p 4480}#
- (#{1-}# #{lev 4468}#)))
- (#{vquasi 4421}# #{q 4476}# #{lev 4468}#))))
- #{tmp 4478}#)
- (let ((#{tmp 4483}#
+ (#{quasi 4380}#
+ #{p 4441}#
+ (#{1-}# #{lev 4429}#)))
+ (#{vquasi 4382}# #{q 4437}# #{lev 4429}#))))
+ #{tmp 4439}#)
+ (let ((#{tmp 4444}#
($sc-dispatch
- #{tmp 4477}#
+ #{tmp 4438}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -16190,12 +15979,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4473" "i4474"))
+ #("i4434" "i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16210,38 +15999,38 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4483}#
+ (if #{tmp 4444}#
(@apply
- (lambda (#{p 4485}#)
- (if (= #{lev 4468}# 0)
- (#{quasiappend 4425}#
- (map (lambda (#{tmp 4486}#)
+ (lambda (#{p 4446}#)
+ (if (= #{lev 4429}# 0)
+ (#{quasiappend 4386}#
+ (map (lambda (#{tmp 4447}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4484"))
+ #("i4445"))
#(ribcage
#(p q)
#((top) (top))
- #("i4473" "i4474"))
+ #("i4434" "i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16256,37 +16045,37 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{tmp 4486}#))
- #{p 4485}#)
- (#{vquasi 4421}#
- #{q 4476}#
- #{lev 4468}#))
- (#{quasicons 4423}#
- (#{quasicons 4423}#
+ #{tmp 4447}#))
+ #{p 4446}#)
+ (#{vquasi 4382}#
+ #{q 4437}#
+ #{lev 4429}#))
+ (#{quasicons 4384}#
+ (#{quasicons 4384}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4484"))
+ #("i4445"))
#(ribcage
#(p q)
#((top) (top))
- #("i4473" "i4474"))
+ #("i4434" "i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16301,13 +16090,13 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -16315,16 +16104,16 @@
#(ribcage
#(p)
#((top))
- #("i4484"))
+ #("i4445"))
#(ribcage
#(p q)
#((top) (top))
- #("i4473" "i4474"))
+ #("i4434" "i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16339,30 +16128,30 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile)))
- (#{quasi 4419}#
- #{p 4485}#
- (#{1-}# #{lev 4468}#)))
- (#{vquasi 4421}#
- #{q 4476}#
- #{lev 4468}#))))
- #{tmp 4483}#)
- (let ((#{_ 4489}# #{tmp 4477}#))
- (#{quasicons 4423}#
- (#{quasi 4419}# #{p 4475}# #{lev 4468}#)
- (#{vquasi 4421}#
- #{q 4476}#
- #{lev 4468}#)))))))))
- #{tmp 4472}#)
- (let ((#{tmp 4490}# ($sc-dispatch #{tmp 4471}# '())))
- (if #{tmp 4490}#
+ (#{quasi 4380}#
+ #{p 4446}#
+ (#{1-}# #{lev 4429}#)))
+ (#{vquasi 4382}#
+ #{q 4437}#
+ #{lev 4429}#))))
+ #{tmp 4444}#)
+ (let ((#{_ 4450}# #{tmp 4438}#))
+ (#{quasicons 4384}#
+ (#{quasi 4380}# #{p 4436}# #{lev 4429}#)
+ (#{vquasi 4382}#
+ #{q 4437}#
+ #{lev 4429}#)))))))))
+ #{tmp 4433}#)
+ (let ((#{tmp 4451}# ($sc-dispatch #{tmp 4432}# '())))
+ (if #{tmp 4451}#
(@apply
(lambda ()
'(#(syntax-object
@@ -16372,7 +16161,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4430" "i4431"))
#(ribcage
(emit quasivector
quasilist*
@@ -16381,66 +16170,66 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
()))
- #{tmp 4490}#)
+ #{tmp 4451}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4471}#))))))))
- (#{quasicons 4423}#
- (lambda (#{x 4491}# #{y 4492}#)
- (let ((#{tmp 4496}# (list #{x 4491}# #{y 4492}#)))
- (let ((#{tmp 4497}#
- ($sc-dispatch #{tmp 4496}# '(any any))))
- (if #{tmp 4497}#
+ #{tmp 4432}#))))))))
+ (#{quasicons 4384}#
+ (lambda (#{x 4452}# #{y 4453}#)
+ (let ((#{tmp 4457}# (list #{x 4452}# #{y 4453}#)))
+ (let ((#{tmp 4458}#
+ ($sc-dispatch #{tmp 4457}# '(any any))))
+ (if #{tmp 4458}#
(@apply
- (lambda (#{x 4500}# #{y 4501}#)
- (let ((#{tmp 4502}# #{y 4501}#))
- (let ((#{tmp 4503}#
+ (lambda (#{x 4461}# #{y 4462}#)
+ (let ((#{tmp 4463}# #{y 4462}#))
+ (let ((#{tmp 4464}#
($sc-dispatch
- #{tmp 4502}#
+ #{tmp 4463}#
'(#(atom "quote") any))))
- (if #{tmp 4503}#
+ (if #{tmp 4464}#
(@apply
- (lambda (#{dy 4505}#)
- (let ((#{tmp 4506}# #{x 4500}#))
- (let ((#{tmp 4507}#
+ (lambda (#{dy 4466}#)
+ (let ((#{tmp 4467}# #{x 4461}#))
+ (let ((#{tmp 4468}#
($sc-dispatch
- #{tmp 4506}#
+ #{tmp 4467}#
'(#(atom "quote") any))))
- (if #{tmp 4507}#
+ (if #{tmp 4468}#
(@apply
- (lambda (#{dx 4509}#)
+ (lambda (#{dx 4470}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i4508"))
+ #("i4469"))
#(ribcage
#(dy)
#((top))
- #("i4504"))
+ #("i4465"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4498" "i4499"))
+ #("i4459" "i4460"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4493" "i4494"))
+ #("i4454" "i4455"))
#(ribcage
(emit quasivector
quasilist*
@@ -16455,40 +16244,40 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- (cons #{dx 4509}# #{dy 4505}#)))
- #{tmp 4507}#)
- (let ((#{_ 4511}# #{tmp 4506}#))
- (if (null? #{dy 4505}#)
+ (cons #{dx 4470}# #{dy 4466}#)))
+ #{tmp 4468}#)
+ (let ((#{_ 4472}# #{tmp 4467}#))
+ (if (null? #{dy 4466}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i4510"))
+ #("i4471"))
#(ribcage
#(dy)
#((top))
- #("i4504"))
+ #("i4465"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4498" "i4499"))
+ #("i4459" "i4460"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4493" "i4494"))
+ #("i4454" "i4455"))
#(ribcage
(emit quasivector
quasilist*
@@ -16503,37 +16292,37 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{x 4500}#)
+ #{x 4461}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4510"))
+ #("i4471"))
#(ribcage
#(dy)
#((top))
- #("i4504"))
+ #("i4465"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4498" "i4499"))
+ #("i4459" "i4460"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4493" "i4494"))
+ #("i4454" "i4455"))
#(ribcage
(emit quasivector
quasilist*
@@ -16548,42 +16337,42 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{x 4500}#
- #{y 4501}#)))))))
- #{tmp 4503}#)
- (let ((#{tmp 4512}#
+ #{x 4461}#
+ #{y 4462}#)))))))
+ #{tmp 4464}#)
+ (let ((#{tmp 4473}#
($sc-dispatch
- #{tmp 4502}#
+ #{tmp 4463}#
'(#(atom "list") . any))))
- (if #{tmp 4512}#
+ (if #{tmp 4473}#
(@apply
- (lambda (#{stuff 4514}#)
+ (lambda (#{stuff 4475}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4513"))
+ #("i4474"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4498" "i4499"))
+ #("i4459" "i4460"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4493" "i4494"))
+ #("i4454" "i4455"))
#(ribcage
(emit quasivector
quasilist*
@@ -16598,41 +16387,41 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- (cons #{x 4500}# #{stuff 4514}#)))
- #{tmp 4512}#)
- (let ((#{tmp 4515}#
+ (cons #{x 4461}# #{stuff 4475}#)))
+ #{tmp 4473}#)
+ (let ((#{tmp 4476}#
($sc-dispatch
- #{tmp 4502}#
+ #{tmp 4463}#
'(#(atom "list*") . any))))
- (if #{tmp 4515}#
+ (if #{tmp 4476}#
(@apply
- (lambda (#{stuff 4517}#)
+ (lambda (#{stuff 4478}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4516"))
+ #("i4477"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4498" "i4499"))
+ #("i4459" "i4460"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4493" "i4494"))
+ #("i4454" "i4455"))
#(ribcage
(emit quasivector
quasilist*
@@ -16647,35 +16436,35 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- (cons #{x 4500}# #{stuff 4517}#)))
- #{tmp 4515}#)
- (let ((#{_ 4519}# #{tmp 4502}#))
+ (cons #{x 4461}# #{stuff 4478}#)))
+ #{tmp 4476}#)
+ (let ((#{_ 4480}# #{tmp 4463}#))
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4518"))
+ #("i4479"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4498" "i4499"))
+ #("i4459" "i4460"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4493" "i4494"))
+ #("i4454" "i4455"))
#(ribcage
(emit quasivector
quasilist*
@@ -16690,30 +16479,30 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{x 4500}#
- #{y 4501}#))))))))))
- #{tmp 4497}#)
+ #{x 4461}#
+ #{y 4462}#))))))))))
+ #{tmp 4458}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4496}#))))))
- (#{quasiappend 4425}#
- (lambda (#{x 4520}# #{y 4521}#)
- (let ((#{tmp 4524}# #{y 4521}#))
- (let ((#{tmp 4525}#
- ($sc-dispatch #{tmp 4524}# '(#(atom "quote") ()))))
- (if #{tmp 4525}#
+ #{tmp 4457}#))))))
+ (#{quasiappend 4386}#
+ (lambda (#{x 4481}# #{y 4482}#)
+ (let ((#{tmp 4485}# #{y 4482}#))
+ (let ((#{tmp 4486}#
+ ($sc-dispatch #{tmp 4485}# '(#(atom "quote") ()))))
+ (if #{tmp 4486}#
(@apply
(lambda ()
- (if (null? #{x 4520}#)
+ (if (null? #{x 4481}#)
'(#(syntax-object
"quote"
((top)
@@ -16721,7 +16510,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4522" "i4523"))
+ #("i4483" "i4484"))
#(ribcage
(emit quasivector
quasilist*
@@ -16730,23 +16519,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
())
- (if (null? (cdr #{x 4520}#))
- (car #{x 4520}#)
- (let ((#{tmp 4532}# #{x 4520}#))
- (let ((#{tmp 4533}#
- ($sc-dispatch #{tmp 4532}# 'each-any)))
- (if #{tmp 4533}#
+ (if (null? (cdr #{x 4481}#))
+ (car #{x 4481}#)
+ (let ((#{tmp 4493}# #{x 4481}#))
+ (let ((#{tmp 4494}#
+ ($sc-dispatch #{tmp 4493}# 'each-any)))
+ (if #{tmp 4494}#
(@apply
- (lambda (#{p 4535}#)
+ (lambda (#{p 4496}#)
(cons '#(syntax-object
"append"
((top)
@@ -16754,12 +16543,12 @@
#(ribcage
#(p)
#((top))
- #("i4534"))
+ #("i4495"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4522" "i4523"))
+ #("i4483" "i4484"))
#(ribcage
(emit quasivector
quasilist*
@@ -16774,30 +16563,30 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{p 4535}#))
- #{tmp 4533}#)
+ #{p 4496}#))
+ #{tmp 4494}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4532}#)))))))
- #{tmp 4525}#)
- (let ((#{_ 4538}# #{tmp 4524}#))
- (if (null? #{x 4520}#)
- #{y 4521}#
- (let ((#{tmp 4543}# (list #{x 4520}# #{y 4521}#)))
- (let ((#{tmp 4544}#
- ($sc-dispatch #{tmp 4543}# '(each-any any))))
- (if #{tmp 4544}#
+ #{tmp 4493}#)))))))
+ #{tmp 4486}#)
+ (let ((#{_ 4499}# #{tmp 4485}#))
+ (if (null? #{x 4481}#)
+ #{y 4482}#
+ (let ((#{tmp 4504}# (list #{x 4481}# #{y 4482}#)))
+ (let ((#{tmp 4505}#
+ ($sc-dispatch #{tmp 4504}# '(each-any any))))
+ (if #{tmp 4505}#
(@apply
- (lambda (#{p 4547}# #{y 4548}#)
+ (lambda (#{p 4508}# #{y 4509}#)
(cons '#(syntax-object
"append"
((top)
@@ -16805,13 +16594,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i4545" "i4546"))
- #(ribcage #(_) #((top)) #("i4537"))
+ #("i4506" "i4507"))
+ #(ribcage #(_) #((top)) #("i4498"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4522" "i4523"))
+ #("i4483" "i4484"))
#(ribcage
(emit quasivector
quasilist*
@@ -16826,47 +16615,47 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- (append #{p 4547}# (list #{y 4548}#))))
- #{tmp 4544}#)
+ (append #{p 4508}# (list #{y 4509}#))))
+ #{tmp 4505}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4543}#)))))))))))
- (#{quasilist* 4427}#
- (lambda (#{x 4550}# #{y 4551}#)
+ #{tmp 4504}#)))))))))))
+ (#{quasilist* 4388}#
+ (lambda (#{x 4511}# #{y 4512}#)
(letrec*
- ((#{f 4556}#
- (lambda (#{x 4557}#)
- (if (null? #{x 4557}#)
- #{y 4551}#
- (#{quasicons 4423}#
- (car #{x 4557}#)
- (#{f 4556}# (cdr #{x 4557}#)))))))
- (begin (#{f 4556}# #{x 4550}#)))))
- (#{quasivector 4429}#
- (lambda (#{x 4558}#)
- (let ((#{tmp 4560}# #{x 4558}#))
- (let ((#{tmp 4561}#
+ ((#{f 4517}#
+ (lambda (#{x 4518}#)
+ (if (null? #{x 4518}#)
+ #{y 4512}#
+ (#{quasicons 4384}#
+ (car #{x 4518}#)
+ (#{f 4517}# (cdr #{x 4518}#)))))))
+ (begin (#{f 4517}# #{x 4511}#)))))
+ (#{quasivector 4390}#
+ (lambda (#{x 4519}#)
+ (let ((#{tmp 4521}# #{x 4519}#))
+ (let ((#{tmp 4522}#
($sc-dispatch
- #{tmp 4560}#
+ #{tmp 4521}#
'(#(atom "quote") each-any))))
- (if #{tmp 4561}#
+ (if #{tmp 4522}#
(@apply
- (lambda (#{x 4563}#)
+ (lambda (#{x 4524}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(x) #((top)) #("i4562"))
+ #(ribcage #(x) #((top)) #("i4523"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4559"))
+ #(ribcage #(x) #((top)) #("i4520"))
#(ribcage
(emit quasivector
quasilist*
@@ -16875,53 +16664,53 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- (list->vector #{x 4563}#)))
- #{tmp 4561}#)
- (let ((#{_ 4566}# #{tmp 4560}#))
+ (list->vector #{x 4524}#)))
+ #{tmp 4522}#)
+ (let ((#{_ 4527}# #{tmp 4521}#))
(letrec*
- ((#{f 4570}#
- (lambda (#{y 4571}# #{k 4572}#)
- (let ((#{tmp 4583}# #{y 4571}#))
- (let ((#{tmp 4584}#
+ ((#{f 4531}#
+ (lambda (#{y 4532}# #{k 4533}#)
+ (let ((#{tmp 4544}# #{y 4532}#))
+ (let ((#{tmp 4545}#
($sc-dispatch
- #{tmp 4583}#
+ #{tmp 4544}#
'(#(atom "quote") each-any))))
- (if #{tmp 4584}#
+ (if #{tmp 4545}#
(@apply
- (lambda (#{y 4586}#)
- (#{k 4572}#
- (map (lambda (#{tmp 4587}#)
+ (lambda (#{y 4547}#)
+ (#{k 4533}#
+ (map (lambda (#{tmp 4548}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i4585"))
+ #("i4546"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4567"
- "i4568"
- "i4569"))
+ #("i4528"
+ "i4529"
+ "i4530"))
#(ribcage
#(_)
#((top))
- #("i4565"))
+ #("i4526"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4559"))
+ #("i4520"))
#(ribcage
(emit quasivector
quasilist*
@@ -16936,75 +16725,75 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{tmp 4587}#))
- #{y 4586}#)))
- #{tmp 4584}#)
- (let ((#{tmp 4588}#
+ #{tmp 4548}#))
+ #{y 4547}#)))
+ #{tmp 4545}#)
+ (let ((#{tmp 4549}#
($sc-dispatch
- #{tmp 4583}#
+ #{tmp 4544}#
'(#(atom "list") . each-any))))
- (if #{tmp 4588}#
+ (if #{tmp 4549}#
(@apply
- (lambda (#{y 4590}#)
- (#{k 4572}# #{y 4590}#))
- #{tmp 4588}#)
- (let ((#{tmp 4592}#
+ (lambda (#{y 4551}#)
+ (#{k 4533}# #{y 4551}#))
+ #{tmp 4549}#)
+ (let ((#{tmp 4553}#
($sc-dispatch
- #{tmp 4583}#
+ #{tmp 4544}#
'(#(atom "list*")
.
#(each+ any (any) ())))))
- (if #{tmp 4592}#
+ (if #{tmp 4553}#
(@apply
- (lambda (#{y 4595}# #{z 4596}#)
- (#{f 4570}#
- #{z 4596}#
- (lambda (#{ls 4597}#)
- (#{k 4572}#
+ (lambda (#{y 4556}# #{z 4557}#)
+ (#{f 4531}#
+ #{z 4557}#
+ (lambda (#{ls 4558}#)
+ (#{k 4533}#
(append
- #{y 4595}#
- #{ls 4597}#)))))
- #{tmp 4592}#)
- (let ((#{else 4601}# #{tmp 4583}#))
- (let ((#{tmp 4605}# #{x 4558}#))
- (let ((#{ g4602 4607}#
- #{tmp 4605}#))
+ #{y 4556}#
+ #{ls 4558}#)))))
+ #{tmp 4553}#)
+ (let ((#{else 4562}# #{tmp 4544}#))
+ (let ((#{tmp 4566}# #{x 4519}#))
+ (let ((#{ g4563 4568}#
+ #{tmp 4566}#))
(list '#(syntax-object
"list->vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4602}#)
- #((m4603 top))
- #("i4606"))
+ #(#{ g4563}#)
+ #((m4564 top))
+ #("i4567"))
#(ribcage
#(else)
#((top))
- #("i4600"))
+ #("i4561"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4567"
- "i4568"
- "i4569"))
+ #("i4528"
+ "i4529"
+ "i4530"))
#(ribcage
#(_)
#((top))
- #("i4565"))
+ #("i4526"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4559"))
+ #("i4520"))
#(ribcage
(emit quasivector
quasilist*
@@ -17019,49 +16808,49 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{ g4602 4607}#))))))))))))))
+ #{ g4563 4568}#))))))))))))))
(begin
- (#{f 4570}#
- #{x 4558}#
- (lambda (#{ls 4573}#)
- (let ((#{tmp 4578}# #{ls 4573}#))
- (let ((#{tmp 4579}#
- ($sc-dispatch #{tmp 4578}# 'each-any)))
- (if #{tmp 4579}#
+ (#{f 4531}#
+ #{x 4519}#
+ (lambda (#{ls 4534}#)
+ (let ((#{tmp 4539}# #{ls 4534}#))
+ (let ((#{tmp 4540}#
+ ($sc-dispatch #{tmp 4539}# 'each-any)))
+ (if #{tmp 4540}#
(@apply
- (lambda (#{ g4575 4581}#)
+ (lambda (#{ g4536 4542}#)
(cons '#(syntax-object
"vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4575}#)
- #((m4576 top))
- #("i4580"))
+ #(#{ g4536}#)
+ #((m4537 top))
+ #("i4541"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(ls)
#((top))
- #("i4574"))
+ #("i4535"))
#(ribcage
#(_)
#((top))
- #("i4565"))
+ #("i4526"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4559"))
+ #("i4520"))
#(ribcage
(emit quasivector
quasilist*
@@ -17076,36 +16865,36 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{ g4575 4581}#))
- #{tmp 4579}#)
+ #{ g4536 4542}#))
+ #{tmp 4540}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4578}#))))))))))))))
- (#{emit 4431}#
- (lambda (#{x 4608}#)
- (let ((#{tmp 4610}# #{x 4608}#))
- (let ((#{tmp 4611}#
+ #{tmp 4539}#))))))))))))))
+ (#{emit 4392}#
+ (lambda (#{x 4569}#)
+ (let ((#{tmp 4571}# #{x 4569}#))
+ (let ((#{tmp 4572}#
($sc-dispatch
- #{tmp 4610}#
+ #{tmp 4571}#
'(#(atom "quote") any))))
- (if #{tmp 4611}#
+ (if #{tmp 4572}#
(@apply
- (lambda (#{x 4613}#)
+ (lambda (#{x 4574}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4612"))
+ #(ribcage #(x) #((top)) #("i4573"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4609"))
+ #(ribcage #(x) #((top)) #("i4570"))
#(ribcage
(emit quasivector
quasilist*
@@ -17114,46 +16903,46 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{x 4613}#))
- #{tmp 4611}#)
- (let ((#{tmp 4614}#
+ #{x 4574}#))
+ #{tmp 4572}#)
+ (let ((#{tmp 4575}#
($sc-dispatch
- #{tmp 4610}#
+ #{tmp 4571}#
'(#(atom "list") . each-any))))
- (if #{tmp 4614}#
+ (if #{tmp 4575}#
(@apply
- (lambda (#{x 4616}#)
- (let ((#{tmp 4620}# (map #{emit 4431}# #{x 4616}#)))
- (let ((#{tmp 4621}#
- ($sc-dispatch #{tmp 4620}# 'each-any)))
- (if #{tmp 4621}#
+ (lambda (#{x 4577}#)
+ (let ((#{tmp 4581}# (map #{emit 4392}# #{x 4577}#)))
+ (let ((#{tmp 4582}#
+ ($sc-dispatch #{tmp 4581}# 'each-any)))
+ (if #{tmp 4582}#
(@apply
- (lambda (#{ g4617 4623}#)
+ (lambda (#{ g4578 4584}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4617}#)
- #((m4618 top))
- #("i4622"))
+ #(#{ g4578}#)
+ #((m4579 top))
+ #("i4583"))
#(ribcage
#(x)
#((top))
- #("i4615"))
+ #("i4576"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4609"))
+ #("i4570"))
#(ribcage
(emit quasivector
quasilist*
@@ -17168,70 +16957,70 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{ g4617 4623}#))
- #{tmp 4621}#)
+ #{ g4578 4584}#))
+ #{tmp 4582}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4620}#)))))
- #{tmp 4614}#)
- (let ((#{tmp 4626}#
+ #{tmp 4581}#)))))
+ #{tmp 4575}#)
+ (let ((#{tmp 4587}#
($sc-dispatch
- #{tmp 4610}#
+ #{tmp 4571}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 4626}#
+ (if #{tmp 4587}#
(@apply
- (lambda (#{x 4629}# #{y 4630}#)
+ (lambda (#{x 4590}# #{y 4591}#)
(letrec*
- ((#{f 4633}#
- (lambda (#{x* 4634}#)
- (if (null? #{x* 4634}#)
- (#{emit 4431}# #{y 4630}#)
- (let ((#{tmp 4640}#
- (list (#{emit 4431}#
- (car #{x* 4634}#))
- (#{f 4633}#
- (cdr #{x* 4634}#)))))
- (let ((#{tmp 4641}#
+ ((#{f 4594}#
+ (lambda (#{x* 4595}#)
+ (if (null? #{x* 4595}#)
+ (#{emit 4392}# #{y 4591}#)
+ (let ((#{tmp 4601}#
+ (list (#{emit 4392}#
+ (car #{x* 4595}#))
+ (#{f 4594}#
+ (cdr #{x* 4595}#)))))
+ (let ((#{tmp 4602}#
($sc-dispatch
- #{tmp 4640}#
+ #{tmp 4601}#
'(any any))))
- (if #{tmp 4641}#
+ (if #{tmp 4602}#
(@apply
- (lambda (#{ g4637 4644}#
- #{ g4636 4645}#)
+ (lambda (#{ g4598 4605}#
+ #{ g4597 4606}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4637}#
- #{ g4636}#)
- #((m4638 top)
- (m4638 top))
- #("i4642" "i4643"))
+ #(#{ g4598}#
+ #{ g4597}#)
+ #((m4599 top)
+ (m4599 top))
+ #("i4603" "i4604"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i4631" "i4632"))
+ #("i4592" "i4593"))
#(ribcage
#(x y)
#((top) (top))
- #("i4627" "i4628"))
+ #("i4588" "i4589"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4609"))
+ #("i4570"))
#(ribcage
(emit quasivector
quasilist*
@@ -17246,56 +17035,56 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{ g4637 4644}#
- #{ g4636 4645}#))
- #{tmp 4641}#)
+ #{ g4598 4605}#
+ #{ g4597 4606}#))
+ #{tmp 4602}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4640}#))))))))
- (begin (#{f 4633}# #{x 4629}#))))
- #{tmp 4626}#)
- (let ((#{tmp 4646}#
+ #{tmp 4601}#))))))))
+ (begin (#{f 4594}# #{x 4590}#))))
+ #{tmp 4587}#)
+ (let ((#{tmp 4607}#
($sc-dispatch
- #{tmp 4610}#
+ #{tmp 4571}#
'(#(atom "append") . each-any))))
- (if #{tmp 4646}#
+ (if #{tmp 4607}#
(@apply
- (lambda (#{x 4648}#)
- (let ((#{tmp 4652}#
- (map #{emit 4431}# #{x 4648}#)))
- (let ((#{tmp 4653}#
+ (lambda (#{x 4609}#)
+ (let ((#{tmp 4613}#
+ (map #{emit 4392}# #{x 4609}#)))
+ (let ((#{tmp 4614}#
($sc-dispatch
- #{tmp 4652}#
+ #{tmp 4613}#
'each-any)))
- (if #{tmp 4653}#
+ (if #{tmp 4614}#
(@apply
- (lambda (#{ g4649 4655}#)
+ (lambda (#{ g4610 4616}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4649}#)
- #((m4650 top))
- #("i4654"))
+ #(#{ g4610}#)
+ #((m4611 top))
+ #("i4615"))
#(ribcage
#(x)
#((top))
- #("i4647"))
+ #("i4608"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4609"))
+ #("i4570"))
#(ribcage
(emit quasivector
quasilist*
@@ -17310,54 +17099,54 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{ g4649 4655}#))
- #{tmp 4653}#)
+ #{ g4610 4616}#))
+ #{tmp 4614}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4652}#)))))
- #{tmp 4646}#)
- (let ((#{tmp 4658}#
+ #{tmp 4613}#)))))
+ #{tmp 4607}#)
+ (let ((#{tmp 4619}#
($sc-dispatch
- #{tmp 4610}#
+ #{tmp 4571}#
'(#(atom "vector") . each-any))))
- (if #{tmp 4658}#
+ (if #{tmp 4619}#
(@apply
- (lambda (#{x 4660}#)
- (let ((#{tmp 4664}#
- (map #{emit 4431}# #{x 4660}#)))
- (let ((#{tmp 4665}#
+ (lambda (#{x 4621}#)
+ (let ((#{tmp 4625}#
+ (map #{emit 4392}# #{x 4621}#)))
+ (let ((#{tmp 4626}#
($sc-dispatch
- #{tmp 4664}#
+ #{tmp 4625}#
'each-any)))
- (if #{tmp 4665}#
+ (if #{tmp 4626}#
(@apply
- (lambda (#{ g4661 4667}#)
+ (lambda (#{ g4622 4628}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4661}#)
- #((m4662 top))
- #("i4666"))
+ #(#{ g4622}#)
+ #((m4623 top))
+ #("i4627"))
#(ribcage
#(x)
#((top))
- #("i4659"))
+ #("i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4609"))
+ #("i4570"))
#(ribcage
(emit quasivector
quasilist*
@@ -17372,49 +17161,49 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{ g4661 4667}#))
- #{tmp 4665}#)
+ #{ g4622 4628}#))
+ #{tmp 4626}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4664}#)))))
- #{tmp 4658}#)
- (let ((#{tmp 4670}#
+ #{tmp 4625}#)))))
+ #{tmp 4619}#)
+ (let ((#{tmp 4631}#
($sc-dispatch
- #{tmp 4610}#
+ #{tmp 4571}#
'(#(atom "list->vector") any))))
- (if #{tmp 4670}#
+ (if #{tmp 4631}#
(@apply
- (lambda (#{x 4672}#)
- (let ((#{tmp 4676}#
- (#{emit 4431}# #{x 4672}#)))
- (let ((#{ g4673 4678}#
- #{tmp 4676}#))
+ (lambda (#{x 4633}#)
+ (let ((#{tmp 4637}#
+ (#{emit 4392}# #{x 4633}#)))
+ (let ((#{ g4634 4639}#
+ #{tmp 4637}#))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4673}#)
- #((m4674 top))
- #("i4677"))
+ #(#{ g4634}#)
+ #((m4635 top))
+ #("i4638"))
#(ribcage
#(x)
#((top))
- #("i4671"))
+ #("i4632"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4609"))
+ #("i4570"))
#(ribcage
(emit quasivector
quasilist*
@@ -17429,83 +17218,83 @@
(top)
(top)
(top))
- ("i4430"
- "i4428"
- "i4426"
- "i4424"
- "i4422"
- "i4420"
- "i4418")))
+ ("i4391"
+ "i4389"
+ "i4387"
+ "i4385"
+ "i4383"
+ "i4381"
+ "i4379")))
(hygiene guile))
- #{ g4673 4678}#))))
- #{tmp 4670}#)
- (let ((#{tmp 4679}#
+ #{ g4634 4639}#))))
+ #{tmp 4631}#)
+ (let ((#{tmp 4640}#
($sc-dispatch
- #{tmp 4610}#
+ #{tmp 4571}#
'(#(atom "value") any))))
- (if #{tmp 4679}#
+ (if #{tmp 4640}#
(@apply
- (lambda (#{x 4681}#) #{x 4681}#)
- #{tmp 4679}#)
+ (lambda (#{x 4642}#) #{x 4642}#)
+ #{tmp 4640}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4610}#)))))))))))))))))))
+ #{tmp 4571}#)))))))))))))))))))
(begin
- (lambda (#{x 4682}#)
- (let ((#{tmp 4684}# #{x 4682}#))
- (let ((#{tmp 4685}#
- ($sc-dispatch #{tmp 4684}# '(_ any))))
- (if #{tmp 4685}#
+ (lambda (#{x 4643}#)
+ (let ((#{tmp 4645}# #{x 4643}#))
+ (let ((#{tmp 4646}#
+ ($sc-dispatch #{tmp 4645}# '(_ any))))
+ (if #{tmp 4646}#
(@apply
- (lambda (#{e 4687}#)
- (#{emit 4431}# (#{quasi 4419}# #{e 4687}# 0)))
- #{tmp 4685}#)
+ (lambda (#{e 4648}#)
+ (#{emit 4392}# (#{quasi 4380}# #{e 4648}# 0)))
+ #{tmp 4646}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4684}#)))))))))
+ #{tmp 4645}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 4688}#)
+ (lambda (#{x 4649}#)
(letrec*
- ((#{read-file 4691}#
- (lambda (#{fn 4692}# #{k 4693}#)
+ ((#{read-file 4652}#
+ (lambda (#{fn 4653}# #{k 4654}#)
(begin
- (let ((#{p 4697}# (open-input-file #{fn 4692}#)))
+ (let ((#{p 4658}# (open-input-file #{fn 4653}#)))
(letrec*
- ((#{f 4701}#
- (lambda (#{x 4702}# #{result 4703}#)
- (if (eof-object? #{x 4702}#)
+ ((#{f 4662}#
+ (lambda (#{x 4663}# #{result 4664}#)
+ (if (eof-object? #{x 4663}#)
(begin
- (close-input-port #{p 4697}#)
- (reverse #{result 4703}#))
- (#{f 4701}#
- (read #{p 4697}#)
- (cons (datum->syntax #{k 4693}# #{x 4702}#)
- #{result 4703}#))))))
- (begin (#{f 4701}# (read #{p 4697}#) '()))))))))
+ (close-input-port #{p 4658}#)
+ (reverse #{result 4664}#))
+ (#{f 4662}#
+ (read #{p 4658}#)
+ (cons (datum->syntax #{k 4654}# #{x 4663}#)
+ #{result 4664}#))))))
+ (begin (#{f 4662}# (read #{p 4658}#) '()))))))))
(begin
- (let ((#{tmp 4704}# #{x 4688}#))
- (let ((#{tmp 4705}#
- ($sc-dispatch #{tmp 4704}# '(any any))))
- (if #{tmp 4705}#
+ (let ((#{tmp 4665}# #{x 4649}#))
+ (let ((#{tmp 4666}#
+ ($sc-dispatch #{tmp 4665}# '(any any))))
+ (if #{tmp 4666}#
(@apply
- (lambda (#{k 4708}# #{filename 4709}#)
+ (lambda (#{k 4669}# #{filename 4670}#)
(begin
- (let ((#{fn 4711}# (syntax->datum #{filename 4709}#)))
- (let ((#{tmp 4713}#
- (#{read-file 4691}#
- #{fn 4711}#
- #{filename 4709}#)))
- (let ((#{tmp 4714}#
- ($sc-dispatch #{tmp 4713}# 'each-any)))
- (if #{tmp 4714}#
+ (let ((#{fn 4672}# (syntax->datum #{filename 4670}#)))
+ (let ((#{tmp 4674}#
+ (#{read-file 4652}#
+ #{fn 4672}#
+ #{filename 4670}#)))
+ (let ((#{tmp 4675}#
+ ($sc-dispatch #{tmp 4674}# 'each-any)))
+ (if #{tmp 4675}#
(@apply
- (lambda (#{exp 4716}#)
+ (lambda (#{exp 4677}#)
(cons '#(syntax-object
begin
((top)
@@ -17513,129 +17302,129 @@
#(ribcage
#(exp)
#((top))
- #("i4715"))
+ #("i4676"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4710"))
+ #("i4671"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4706" "i4707"))
+ #("i4667" "i4668"))
#(ribcage
(read-file)
((top))
- ("i4690"))
+ ("i4651"))
#(ribcage
#(x)
#((top))
- #("i4689")))
+ #("i4650")))
(hygiene guile))
- #{exp 4716}#))
- #{tmp 4714}#)
+ #{exp 4677}#))
+ #{tmp 4675}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4713}#)))))))
- #{tmp 4705}#)
+ #{tmp 4674}#)))))))
+ #{tmp 4666}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4704}#)))))))))
+ #{tmp 4665}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 4718}#)
- (let ((#{tmp 4720}# #{x 4718}#))
- (let ((#{tmp 4721}#
- ($sc-dispatch #{tmp 4720}# '(any any))))
- (if #{tmp 4721}#
+ (lambda (#{x 4679}#)
+ (let ((#{tmp 4681}# #{x 4679}#))
+ (let ((#{tmp 4682}#
+ ($sc-dispatch #{tmp 4681}# '(any any))))
+ (if #{tmp 4682}#
(@apply
- (lambda (#{k 4724}# #{filename 4725}#)
+ (lambda (#{k 4685}# #{filename 4686}#)
(begin
- (let ((#{fn 4727}# (syntax->datum #{filename 4725}#)))
- (let ((#{tmp 4729}#
+ (let ((#{fn 4688}# (syntax->datum #{filename 4686}#)))
+ (let ((#{tmp 4690}#
(datum->syntax
- #{filename 4725}#
+ #{filename 4686}#
(begin
- (let ((#{t 4734}#
- (%search-load-path #{fn 4727}#)))
- (if #{t 4734}#
- #{t 4734}#
+ (let ((#{t 4695}#
+ (%search-load-path #{fn 4688}#)))
+ (if #{t 4695}#
+ #{t 4695}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 4718}#
- #{filename 4725}#)))))))
- (let ((#{fn 4731}# #{tmp 4729}#))
+ #{x 4679}#
+ #{filename 4686}#)))))))
+ (let ((#{fn 4692}# #{tmp 4690}#))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4730"))
+ #(ribcage #(fn) #((top)) #("i4691"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4726"))
+ #(ribcage #(fn) #((top)) #("i4687"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4722" "i4723"))
+ #("i4683" "i4684"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4719")))
+ #(ribcage #(x) #((top)) #("i4680")))
(hygiene guile))
- #{fn 4731}#))))))
- #{tmp 4721}#)
+ #{fn 4692}#))))))
+ #{tmp 4682}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4720}#)))))))
+ #{tmp 4681}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 4736}#)
+ (lambda (#{x 4697}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 4736}#))))
+ #{x 4697}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 4738}#)
+ (lambda (#{x 4699}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 4738}#))))
+ #{x 4699}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 4740}#)
- (let ((#{tmp 4742}# #{x 4740}#))
- (let ((#{tmp 4743}#
+ (lambda (#{x 4701}#)
+ (let ((#{tmp 4703}# #{x 4701}#))
+ (let ((#{tmp 4704}#
($sc-dispatch
- #{tmp 4742}#
+ #{tmp 4703}#
'(_ any any . each-any))))
- (if #{tmp 4743}#
+ (if #{tmp 4704}#
(@apply
- (lambda (#{e 4747}# #{m1 4748}# #{m2 4749}#)
- (let ((#{tmp 4751}#
+ (lambda (#{e 4708}# #{m1 4709}# #{m2 4710}#)
+ (let ((#{tmp 4712}#
(letrec*
- ((#{f 4757}#
- (lambda (#{clause 4758}# #{clauses 4759}#)
- (if (null? #{clauses 4759}#)
- (let ((#{tmp 4761}# #{clause 4758}#))
- (let ((#{tmp 4762}#
+ ((#{f 4718}#
+ (lambda (#{clause 4719}# #{clauses 4720}#)
+ (if (null? #{clauses 4720}#)
+ (let ((#{tmp 4722}# #{clause 4719}#))
+ (let ((#{tmp 4723}#
($sc-dispatch
- #{tmp 4761}#
+ #{tmp 4722}#
'(#(free-id
#(syntax-object
else
@@ -17644,92 +17433,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 4762}#
+ (if #{tmp 4723}#
(@apply
- (lambda (#{e1 4765}# #{e2 4766}#)
+ (lambda (#{e1 4726}# #{e2 4727}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4763" "i4764"))
+ #("i4724" "i4725"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
- (cons #{e1 4765}#
- #{e2 4766}#)))
- #{tmp 4762}#)
- (let ((#{tmp 4768}#
+ (cons #{e1 4726}#
+ #{e2 4727}#)))
+ #{tmp 4723}#)
+ (let ((#{tmp 4729}#
($sc-dispatch
- #{tmp 4761}#
+ #{tmp 4722}#
'(each-any any . each-any))))
- (if #{tmp 4768}#
+ (if #{tmp 4729}#
(@apply
- (lambda (#{k 4772}#
- #{e1 4773}#
- #{e2 4774}#)
+ (lambda (#{k 4733}#
+ #{e1 4734}#
+ #{e2 4735}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4769"
- "i4770"
- "i4771"))
+ #("i4730"
+ "i4731"
+ "i4732"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -17739,9 +17528,9 @@
#((top)
(top)
(top))
- #("i4769"
- "i4770"
- "i4771"))
+ #("i4730"
+ "i4731"
+ "i4732"))
#(ribcage
()
()
@@ -17753,17 +17542,17 @@
#((top)
(top)
(top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage
()
()
@@ -17771,7 +17560,7 @@
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
'#(syntax-object
t
@@ -17781,9 +17570,9 @@
#((top)
(top)
(top))
- #("i4769"
- "i4770"
- "i4771"))
+ #("i4730"
+ "i4731"
+ "i4732"))
#(ribcage
()
()
@@ -17795,17 +17584,17 @@
#((top)
(top)
(top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage
()
()
@@ -17813,7 +17602,7 @@
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -17825,9 +17614,9 @@
#((top)
(top)
(top))
- #("i4769"
- "i4770"
- "i4771"))
+ #("i4730"
+ "i4731"
+ "i4732"))
#(ribcage
()
()
@@ -17839,9 +17628,9 @@
#((top)
(top)
(top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e
m1
@@ -17849,9 +17638,9 @@
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage
()
()
@@ -17859,10 +17648,10 @@
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene
guile))
- #{k 4772}#))
+ #{k 4733}#))
(cons '#(syntax-object
begin
((top)
@@ -17871,9 +17660,9 @@
#((top)
(top)
(top))
- #("i4769"
- "i4770"
- "i4771"))
+ #("i4730"
+ "i4731"
+ "i4732"))
#(ribcage
()
()
@@ -17885,17 +17674,17 @@
#((top)
(top)
(top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage
()
()
@@ -17903,64 +17692,64 @@
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
- (cons #{e1 4773}#
- #{e2 4774}#))))
- #{tmp 4768}#)
- (let ((#{_ 4778}# #{tmp 4761}#))
+ (cons #{e1 4734}#
+ #{e2 4735}#))))
+ #{tmp 4729}#)
+ (let ((#{_ 4739}# #{tmp 4722}#))
(syntax-violation
'case
"bad clause"
- #{x 4740}#
- #{clause 4758}#)))))))
- (let ((#{tmp 4780}#
- (#{f 4757}#
- (car #{clauses 4759}#)
- (cdr #{clauses 4759}#))))
- (let ((#{rest 4782}# #{tmp 4780}#))
- (let ((#{tmp 4783}# #{clause 4758}#))
- (let ((#{tmp 4784}#
+ #{x 4701}#
+ #{clause 4719}#)))))))
+ (let ((#{tmp 4741}#
+ (#{f 4718}#
+ (car #{clauses 4720}#)
+ (cdr #{clauses 4720}#))))
+ (let ((#{rest 4743}# #{tmp 4741}#))
+ (let ((#{tmp 4744}# #{clause 4719}#))
+ (let ((#{tmp 4745}#
($sc-dispatch
- #{tmp 4783}#
+ #{tmp 4744}#
'(each-any any . each-any))))
- (if #{tmp 4784}#
+ (if #{tmp 4745}#
(@apply
- (lambda (#{k 4788}#
- #{e1 4789}#
- #{e2 4790}#)
+ (lambda (#{k 4749}#
+ #{e1 4750}#
+ #{e2 4751}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4785"
- "i4786"
- "i4787"))
+ #("i4746"
+ "i4747"
+ "i4748"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i4781"))
+ #("i4742"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -17970,9 +17759,9 @@
#((top)
(top)
(top))
- #("i4785"
- "i4786"
- "i4787"))
+ #("i4746"
+ "i4747"
+ "i4748"))
#(ribcage
()
()
@@ -17980,7 +17769,7 @@
#(ribcage
#(rest)
#((top))
- #("i4781"))
+ #("i4742"))
#(ribcage
()
()
@@ -17992,17 +17781,17 @@
#((top)
(top)
(top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage
()
()
@@ -18010,7 +17799,7 @@
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
'#(syntax-object
t
@@ -18020,9 +17809,9 @@
#((top)
(top)
(top))
- #("i4785"
- "i4786"
- "i4787"))
+ #("i4746"
+ "i4747"
+ "i4748"))
#(ribcage
()
()
@@ -18030,7 +17819,7 @@
#(ribcage
#(rest)
#((top))
- #("i4781"))
+ #("i4742"))
#(ribcage
()
()
@@ -18042,17 +17831,17 @@
#((top)
(top)
(top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage
()
()
@@ -18060,7 +17849,7 @@
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -18072,9 +17861,9 @@
#((top)
(top)
(top))
- #("i4785"
- "i4786"
- "i4787"))
+ #("i4746"
+ "i4747"
+ "i4748"))
#(ribcage
()
()
@@ -18082,7 +17871,7 @@
#(ribcage
#(rest)
#((top))
- #("i4781"))
+ #("i4742"))
#(ribcage
()
()
@@ -18094,9 +17883,9 @@
#((top)
(top)
(top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e
m1
@@ -18104,9 +17893,9 @@
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage
()
()
@@ -18114,10 +17903,10 @@
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene
guile))
- #{k 4788}#))
+ #{k 4749}#))
(cons '#(syntax-object
begin
((top)
@@ -18126,9 +17915,9 @@
#((top)
(top)
(top))
- #("i4785"
- "i4786"
- "i4787"))
+ #("i4746"
+ "i4747"
+ "i4748"))
#(ribcage
()
()
@@ -18136,7 +17925,7 @@
#(ribcage
#(rest)
#((top))
- #("i4781"))
+ #("i4742"))
#(ribcage
()
()
@@ -18148,17 +17937,17 @@
#((top)
(top)
(top))
- #("i4754"
- "i4755"
- "i4756"))
+ #("i4715"
+ "i4716"
+ "i4717"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
+ #("i4705"
+ "i4706"
+ "i4707"))
#(ribcage
()
()
@@ -18166,31 +17955,31 @@
#(ribcage
#(x)
#((top))
- #("i4741")))
+ #("i4702")))
(hygiene guile))
- (cons #{e1 4789}#
- #{e2 4790}#))
- #{rest 4782}#))
- #{tmp 4784}#)
- (let ((#{_ 4794}# #{tmp 4783}#))
+ (cons #{e1 4750}#
+ #{e2 4751}#))
+ #{rest 4743}#))
+ #{tmp 4745}#)
+ (let ((#{_ 4755}# #{tmp 4744}#))
(syntax-violation
'case
"bad clause"
- #{x 4740}#
- #{clause 4758}#)))))))))))
- (begin (#{f 4757}# #{m1 4748}# #{m2 4749}#)))))
- (let ((#{body 4753}# #{tmp 4751}#))
+ #{x 4701}#
+ #{clause 4719}#)))))))))))
+ (begin (#{f 4718}# #{m1 4709}# #{m2 4710}#)))))
+ (let ((#{body 4714}# #{tmp 4712}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i4752"))
+ #(ribcage #(body) #((top)) #("i4713"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4744" "i4745" "i4746"))
+ #("i4705" "i4706" "i4707"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4741")))
+ #(ribcage #(x) #((top)) #("i4702")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -18199,176 +17988,176 @@
#(ribcage
#(body)
#((top))
- #("i4752"))
+ #("i4713"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4744" "i4745" "i4746"))
+ #("i4705" "i4706" "i4707"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4741")))
+ #(ribcage #(x) #((top)) #("i4702")))
(hygiene guile))
- #{e 4747}#))
- #{body 4753}#))))
- #{tmp 4743}#)
+ #{e 4708}#))
+ #{body 4714}#))))
+ #{tmp 4704}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4742}#)))))))
+ #{tmp 4703}#)))))))
(define make-variable-transformer
- (lambda (#{proc 4795}#)
- (if (procedure? #{proc 4795}#)
+ (lambda (#{proc 4756}#)
+ (if (procedure? #{proc 4756}#)
(begin
(letrec*
- ((#{trans 4798}#
- (lambda (#{x 4799}#) (#{proc 4795}# #{x 4799}#))))
+ ((#{trans 4759}#
+ (lambda (#{x 4760}#) (#{proc 4756}# #{x 4760}#))))
(begin
(set-procedure-property!
- #{trans 4798}#
+ #{trans 4759}#
'variable-transformer
#t)
- #{trans 4798}#)))
+ #{trans 4759}#)))
(error "variable transformer not a procedure"
- #{proc 4795}#))))
+ #{proc 4756}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 4801}#)
- (let ((#{tmp 4803}# #{x 4801}#))
- (let ((#{tmp 4804}#
- ($sc-dispatch #{tmp 4803}# '(_ any))))
- (if #{tmp 4804}#
+ (lambda (#{x 4762}#)
+ (let ((#{tmp 4764}# #{x 4762}#))
+ (let ((#{tmp 4765}#
+ ($sc-dispatch #{tmp 4764}# '(_ any))))
+ (if #{tmp 4765}#
(@apply
- (lambda (#{e 4806}#)
+ (lambda (#{e 4767}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
- #{e 4806}#))
+ #{e 4767}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4805"))
+ #(ribcage #(e) #((top)) #("i4766"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
- (cons #{e 4806}#
+ (cons #{e 4767}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4805"))
+ #("i4766"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
#(syntax-object
...
@@ -18376,55 +18165,55 @@
#(ribcage
#(e)
#((top))
- #("i4805"))
+ #("i4766"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile)))))))))
- #{tmp 4804}#)
- (let ((#{tmp 4807}#
+ #{tmp 4765}#)
+ (let ((#{tmp 4768}#
($sc-dispatch
- #{tmp 4803}#
+ #{tmp 4764}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 4807}#
+ (if (if #{tmp 4768}#
(@apply
- (lambda (#{id 4813}#
- #{exp1 4814}#
- #{var 4815}#
- #{val 4816}#
- #{exp2 4817}#)
- (if (identifier? #{id 4813}#)
- (identifier? #{var 4815}#)
+ (lambda (#{id 4774}#
+ #{exp1 4775}#
+ #{var 4776}#
+ #{val 4777}#
+ #{exp2 4778}#)
+ (if (identifier? #{id 4774}#)
+ (identifier? #{var 4776}#)
#f))
- #{tmp 4807}#)
+ #{tmp 4768}#)
#f)
(@apply
- (lambda (#{id 4825}#
- #{exp1 4826}#
- #{var 4827}#
- #{val 4828}#
- #{exp2 4829}#)
+ (lambda (#{id 4786}#
+ #{exp1 4787}#
+ #{var 4788}#
+ #{val 4789}#
+ #{exp2 4790}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4820" "i4821" "i4822" "i4823" "i4824"))
+ #("i4781" "i4782" "i4783" "i4784" "i4785"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -18432,13 +18221,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
'(#(syntax-object
x
@@ -18446,13 +18235,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -18460,13 +18249,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
.
#(syntax-object
@@ -18475,13 +18264,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -18489,13 +18278,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
'#(syntax-object
x
@@ -18503,13 +18292,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile))
'(#(syntax-object
set!
@@ -18517,13 +18306,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4802")))
+ #(ribcage #(x) #((top)) #("i4763")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -18535,19 +18324,19 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
- #{var 4827}#
- #{val 4828}#)
+ #{var 4788}#
+ #{val 4789}#)
(list '#(syntax-object
syntax
((top)
@@ -18558,19 +18347,19 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
- #{exp2 4829}#))
- (list (cons #{id 4825}#
+ #{exp2 4790}#))
+ (list (cons #{id 4786}#
'(#(syntax-object
x
((top)
@@ -18585,16 +18374,16 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
#(syntax-object
...
@@ -18610,16 +18399,16 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -18631,18 +18420,18 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
- (cons #{exp1 4826}#
+ (cons #{exp1 4787}#
'(#(syntax-object
x
((top)
@@ -18657,11 +18446,11 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage
()
()
@@ -18669,7 +18458,7 @@
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
#(syntax-object
...
@@ -18685,11 +18474,11 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage
()
()
@@ -18697,10 +18486,10 @@
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene
guile))))))
- (list #{id 4825}#
+ (list #{id 4786}#
(list '#(syntax-object
identifier?
((top)
@@ -18711,16 +18500,16 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -18736,18 +18525,18 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
- #{id 4825}#))
+ #{id 4786}#))
(list '#(syntax-object
syntax
((top)
@@ -18758,69 +18547,69 @@
(top)
(top)
(top))
- #("i4820"
- "i4821"
- "i4822"
- "i4823"
- "i4824"))
+ #("i4781"
+ "i4782"
+ "i4783"
+ "i4784"
+ "i4785"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4802")))
+ #("i4763")))
(hygiene guile))
- #{exp1 4826}#))))))
- #{tmp 4807}#)
+ #{exp1 4787}#))))))
+ #{tmp 4768}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4803}#)))))))))
+ #{tmp 4764}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 4830}#)
- (let ((#{tmp 4832}# #{x 4830}#))
- (let ((#{tmp 4833}#
+ (lambda (#{x 4791}#)
+ (let ((#{tmp 4793}# #{x 4791}#))
+ (let ((#{tmp 4794}#
($sc-dispatch
- #{tmp 4832}#
+ #{tmp 4793}#
'(_ (any . any) any . each-any))))
- (if #{tmp 4833}#
+ (if #{tmp 4794}#
(@apply
- (lambda (#{id 4838}#
- #{args 4839}#
- #{b0 4840}#
- #{b1 4841}#)
+ (lambda (#{id 4799}#
+ #{args 4800}#
+ #{b0 4801}#
+ #{b1 4802}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4834" "i4835" "i4836" "i4837"))
+ #("i4795" "i4796" "i4797" "i4798"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4831")))
+ #(ribcage #(x) #((top)) #("i4792")))
(hygiene guile))
- #{id 4838}#
+ #{id 4799}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4834" "i4835" "i4836" "i4837"))
+ #("i4795" "i4796" "i4797" "i4798"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4831")))
+ #(ribcage #(x) #((top)) #("i4792")))
(hygiene guile))
- (cons #{args 4839}#
- (cons #{b0 4840}# #{b1 4841}#)))))
- #{tmp 4833}#)
- (let ((#{tmp 4843}#
- ($sc-dispatch #{tmp 4832}# '(_ any any))))
- (if (if #{tmp 4843}#
+ (cons #{args 4800}#
+ (cons #{b0 4801}# #{b1 4802}#)))))
+ #{tmp 4794}#)
+ (let ((#{tmp 4804}#
+ ($sc-dispatch #{tmp 4793}# '(_ any any))))
+ (if (if #{tmp 4804}#
(@apply
- (lambda (#{id 4846}# #{val 4847}#)
+ (lambda (#{id 4807}# #{val 4808}#)
(identifier?
'#(syntax-object
x
@@ -18828,29 +18617,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i4844" "i4845"))
+ #("i4805" "i4806"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4831")))
+ #(ribcage #(x) #((top)) #("i4792")))
(hygiene guile))))
- #{tmp 4843}#)
+ #{tmp 4804}#)
#f)
(@apply
- (lambda (#{id 4850}# #{val 4851}#)
+ (lambda (#{id 4811}# #{val 4812}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4848" "i4849"))
+ #("i4809" "i4810"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4831")))
+ #(ribcage #(x) #((top)) #("i4792")))
(hygiene guile))
- #{id 4850}#
- #{val 4851}#))
- #{tmp 4843}#)
+ #{id 4811}#
+ #{val 4812}#))
+ #{tmp 4804}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4832}#)))))))))
+ #{tmp 4793}#)))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 85ceb13c2..5380ba787 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -156,25 +156,6 @@
(set-current-module (resolve-module '(guile))))
(let ()
- ;; Private version of and-map that handles multiple lists.
- (define and-map*
- (lambda (f first . rest)
- (or (null? first)
- (if (null? rest)
- (let andmap ((first first))
- (let ((x (car first)) (first (cdr first)))
- (if (null? first)
- (f x)
- (and (f x) (andmap first)))))
- (let andmap ((first first) (rest rest))
- (let ((x (car first))
- (xr (map car rest))
- (first (cdr first))
- (rest (map cdr rest)))
- (if (null? first)
- (apply f x xr)
- (and (apply f x xr) (andmap first rest)))))))))
-
(define-syntax define-expansion-constructors
(lambda (x)
(syntax-case x ()
@@ -1747,7 +1728,13 @@
((vector? x)
(let ((old (vector->list x)))
(let ((new (map f old)))
- (if (and-map* eq? old new) x (list->vector new)))))
+ ;; inlined and-map with two args
+ (let lp ((l1 old) (l2 new))
+ (if (null? l1)
+ x
+ (if (eq? (car l1) (car l2))
+ (lp (cdr l1) (cdr l2))
+ (list->vector new)))))))
(else x))))))
;; lexical variables
diff --git a/module/srfi/srfi-1.scm b/module/srfi/srfi-1.scm
index 68b62de56..bcaca65d7 100644
--- a/module/srfi/srfi-1.scm
+++ b/module/srfi/srfi-1.scm
@@ -418,20 +418,20 @@ a list of those after."
(let lp ((l (cons clist1 rest)) (acc '()))
(if (any null? l)
(reverse! acc)
- (lp (map1 cdr l) (cons (map1 car l) acc)))))
+ (lp (map cdr l) (cons (map car l) acc)))))
(define (unzip1 l)
- (map1 first l))
+ (map first l))
(define (unzip2 l)
- (values (map1 first l) (map1 second l)))
+ (values (map first l) (map second l)))
(define (unzip3 l)
- (values (map1 first l) (map1 second l) (map1 third l)))
+ (values (map first l) (map second l) (map third l)))
(define (unzip4 l)
- (values (map1 first l) (map1 second l) (map1 third l) (map1 fourth l)))
+ (values (map first l) (map second l) (map third l) (map fourth l)))
(define (unzip5 l)
- (values (map1 first l) (map1 second l) (map1 third l) (map1 fourth l)
- (map1 fifth l)))
+ (values (map first l) (map second l) (map third l) (map fourth l)
+ (map fifth l)))
;;; Fold, unfold & map
@@ -446,8 +446,8 @@ that result. See the manual for details."
(let f ((knil knil) (lists (cons list1 rest)))
(if (any null? lists)
knil
- (let ((cars (map1 car lists))
- (cdrs (map1 cdr lists)))
+ (let ((cars (map car lists))
+ (cdrs (map cdr lists)))
(f (apply kons (append! cars (list knil))) cdrs))))))
(define (fold-right kons knil clist1 . rest)
@@ -458,12 +458,12 @@ that result. See the manual for details."
result
(loop (cdr lst)
(kons (car lst) result))))
- (let loop ((lists (map1 reverse (cons clist1 rest)))
+ (let loop ((lists (map reverse (cons clist1 rest)))
(result knil))
(if (any1 null? lists)
result
- (loop (map1 cdr lists)
- (apply kons (append! (map1 car lists) (list result))))))))
+ (loop (map cdr lists)
+ (apply kons (append! (map car lists) (list result))))))))
(define (pair-fold kons knil clist1 . rest)
(if (null? rest)
@@ -475,7 +475,7 @@ that result. See the manual for details."
(let f ((knil knil) (lists (cons clist1 rest)))
(if (any null? lists)
knil
- (let ((tails (map1 cdr lists)))
+ (let ((tails (map cdr lists)))
(f (apply kons (append! lists (list knil))) tails))))))
@@ -488,7 +488,7 @@ that result. See the manual for details."
(let f ((lists (cons clist1 rest)))
(if (any null? lists)
knil
- (apply kons (append! lists (list (f (map1 cdr lists)))))))))
+ (apply kons (append! lists (list (f (map cdr lists)))))))))
(define* (unfold p f g seed #:optional (tail-gen (lambda (x) '())))
(define (reverse+tail lst seed)
@@ -530,10 +530,79 @@ has just one element then that's the return value."
ridentity
(fold-right f (last lst) (drop-right lst 1))))
-
-;; Internal helper procedure. Map `f' over the single list `ls'.
-;;
-(define map1 map)
+(define map
+ (case-lambda
+ ((f l)
+ (let map1 ((hare l) (tortoise l) (move? #f) (out '()))
+ (if (pair? hare)
+ (if move?
+ (if (eq? tortoise hare)
+ (scm-error 'wrong-type-arg "map" "Circular list: ~S"
+ (list l) #f)
+ (map1 (cdr hare) (cdr tortoise) #f
+ (cons (f (car hare)) out)))
+ (map1 (cdr hare) tortoise #t
+ (cons (f (car hare)) out)))
+ (if (null? hare)
+ (reverse! out)
+ (scm-error 'wrong-type-arg "map" "Not a list: ~S"
+ (list l) #f)))))
+
+ ((f l1 . rest)
+ (let ((len (fold (lambda (ls len)
+ (let ((ls-len (length+ ls)))
+ (if len
+ (if ls-len (min ls-len len) len)
+ ls-len)))
+ (length+ l1)
+ rest)))
+ (if (not len)
+ (scm-error 'wrong-type-arg "map"
+ "Args do not contain a proper (finite) list: ~S"
+ (list (cons l1 rest)) #f))
+ (let mapn ((l1 l1) (rest rest) (len len) (out '()))
+ (if (zero? len)
+ (reverse! out)
+ (mapn (cdr l1) (map cdr rest) (1- len)
+ (cons (apply f (car l1) (map car rest)) out))))))))
+
+(define for-each
+ (case-lambda
+ ((f l)
+ (let for-each1 ((hare l) (tortoise l) (move? #f))
+ (if (pair? hare)
+ (if move?
+ (if (eq? tortoise hare)
+ (scm-error 'wrong-type-arg "for-each" "Circular list: ~S"
+ (list l) #f)
+ (begin
+ (f (car hare))
+ (for-each1 (cdr hare) (cdr tortoise) #f)))
+ (begin
+ (f (car hare))
+ (for-each1 (cdr hare) tortoise #t)))
+
+ (if (not (null? hare))
+ (scm-error 'wrong-type-arg "for-each" "Not a list: ~S"
+ (list l) #f)))))
+
+ ((f l1 . rest)
+ (let ((len (fold (lambda (ls len)
+ (let ((ls-len (length+ ls)))
+ (if len
+ (if ls-len (min ls-len len) len)
+ ls-len)))
+ (length+ l1)
+ rest)))
+ (if (not len)
+ (scm-error 'wrong-type-arg "for-each"
+ "Args do not contain a proper (finite) list: ~S"
+ (list (cons l1 rest)) #f))
+ (let for-eachn ((l1 l1) (rest rest) (len len))
+ (if (> len 0)
+ (begin
+ (apply f (car l1) (map car rest))
+ (for-eachn (cdr l1) (map cdr rest) (1- len)))))))))
(define (append-map f clist1 . rest)
(concatenate (apply map f clist1 rest)))
@@ -561,10 +630,10 @@ the list returned."
(rl '()))
(if (any1 null? l)
(reverse! rl)
- (let ((res (apply proc (map1 car l))))
+ (let ((res (apply proc (map car l))))
(if res
- (lp (map1 cdr l) (cons res rl))
- (lp (map1 cdr l) rl)))))))
+ (lp (map cdr l) (cons res rl))
+ (lp (map cdr l) rl)))))))
(define (pair-for-each f clist1 . rest)
(if (null? rest)
@@ -579,7 +648,7 @@ the list returned."
(if #f #f)
(begin
(apply f l)
- (lp (map1 cdr l)))))))
+ (lp (map cdr l)))))))
;;; Searching
@@ -677,10 +746,10 @@ all fail the predicate PRED, and the remainder of LST."
(let lp ((lists (cons ls lists)))
(cond ((any1 null? lists)
#f)
- ((any1 null? (map1 cdr lists))
- (apply pred (map1 car lists)))
+ ((any1 null? (map cdr lists))
+ (apply pred (map car lists)))
(else
- (or (apply pred (map1 car lists)) (lp (map1 cdr lists))))))))
+ (or (apply pred (map car lists)) (lp (map cdr lists))))))))
(define (any1 pred ls)
(let lp ((ls ls))
@@ -697,10 +766,10 @@ all fail the predicate PRED, and the remainder of LST."
(let lp ((lists (cons ls lists)))
(cond ((any1 null? lists)
#t)
- ((any1 null? (map1 cdr lists))
- (apply pred (map1 car lists)))
+ ((any1 null? (map cdr lists))
+ (apply pred (map car lists)))
(else
- (and (apply pred (map1 car lists)) (lp (map1 cdr lists))))))))
+ (and (apply pred (map car lists)) (lp (map cdr lists))))))))
(define (every1 pred ls)
(let lp ((ls ls))
@@ -724,9 +793,9 @@ CLIST1 ... CLISTN, that satisfies PRED."
(let lp ((lists (cons clist1 rest)) (i 0))
(cond ((any1 null? lists)
#f)
- ((apply pred (map1 car lists)) i)
+ ((apply pred (map car lists)) i)
(else
- (lp (map1 cdr lists) (+ i 1)))))))
+ (lp (map cdr lists) (+ i 1)))))))
;;; Association lists
diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 7eb19ebec..9d6bc6d94 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -1,5 +1,5 @@
;;;; eval.test --- tests guile's evaluator -*- scheme -*-
-;;;; Copyright (C) 2000, 2001, 2006, 2007, 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001, 2006, 2007, 2009, 2010, 2011 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
@@ -28,6 +28,11 @@
(define exception:failed-match
(cons 'syntax-error "failed to match any pattern"))
+(define exception:not-a-list
+ (cons 'wrong-type-arg "Not a list"))
+
+(define exception:wrong-length
+ (cons 'wrong-type-arg "wrong length"))
;;;
;;; miscellaneous
@@ -192,19 +197,19 @@
(with-test-prefix "different length lists"
(pass-if-exception "first list empty"
- exception:out-of-range
+ exception:wrong-length
(map + '() '(1)))
(pass-if-exception "second list empty"
- exception:out-of-range
+ exception:wrong-length
(map + '(1) '()))
(pass-if-exception "first list shorter"
- exception:out-of-range
+ exception:wrong-length
(map + '(1) '(2 3)))
(pass-if-exception "second list shorter"
- exception:out-of-range
+ exception:wrong-length
(map + '(1 2) '(3)))
)))
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 7b646a110..9fb6a9632 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -486,7 +486,10 @@
(make-check
(syntax-rules (-> error eof)
((_ port (proc -> error))
- (decoding-error? port (proc port)))
+ (if (eq? 'substitute
+ (port-conversion-strategy port))
+ (eq? (proc port) #\?)
+ (decoding-error? port (proc port))))
((_ port (proc -> eof))
(eof-object? (proc port)))
((_ port (proc -> char))
@@ -510,7 +513,8 @@
((peek-char -> e1)
(read-char -> e1))
expected ...))))
- (test-decoding-error
+
+ (test-decoding-error*
(syntax-rules ()
((_ sequence encoding strategy (expected ...))
(begin
@@ -532,56 +536,56 @@
(u8-list->bytevector 'sequence))))
(set-port-encoding! p encoding)
(set-port-conversion-strategy! p strategy)
- (make-peek+read-checks p #f expected ...))))))))
+ (make-peek+read-checks p #f expected
+ ...)))))))
+ (test-decoding-error
+ (syntax-rules ()
+ ((_ sequence encoding (expected ...))
+ (begin
+ (test-decoding-error* sequence encoding 'error
+ (expected ...))
- (test-decoding-error (255 65 66 67) "UTF-8" 'error
- (error #\A #\B #\C eof))
+ ;; `escape' should behave exactly like `error'.
+ (test-decoding-error* sequence encoding 'escape
+ (expected ...))
- (test-decoding-error (255 65 66 67) "UTF-8" 'escape
- ;; `escape' should behave exactly like `error'.
+ (test-decoding-error* sequence encoding 'substitute
+ (expected ...)))))))
+
+ (test-decoding-error (255 65 66 67) "UTF-8"
(error #\A #\B #\C eof))
- (test-decoding-error (255 206 187 206 188) "UTF-8" 'substitute
- (#\? #\λ #\μ eof))
+ (test-decoding-error (255 206 187 206 188) "UTF-8"
+ (error #\λ #\μ eof))
- (test-decoding-error (206 187 206) "UTF-8" 'error
+ (test-decoding-error (206 187 206) "UTF-8"
;; Unterminated sequence.
(#\λ error eof))
- (test-decoding-error (206 187 206) "UTF-8" 'substitute
- ;; Unterminated sequence.
- (#\λ #\? eof))
-
;; Check how ill-formed UTF-8 sequences are handled (see Table 3-7
;; of the "Conformance" chapter of Unicode 6.0.0.)
- (test-decoding-error (#xc0 #x80 #x41) "UTF-8" 'error
+ (test-decoding-error (#xc0 #x80 #x41) "UTF-8"
(error ;; C0: should be in the C2..DF range
error ;; 80: invalid
#\A
eof))
- (test-decoding-error (#xc0 #x80 #x41) "UTF-8" 'substitute
- (#\? ;; C0: should be in the C2..DF range
- #\? ;; 80: invalid
- #\A
- eof))
-
- (test-decoding-error (#xc2 #x41 #x42) "UTF-8" 'error
+ (test-decoding-error (#xc2 #x41 #x42) "UTF-8"
(error ;; 41: should be in the 80..BF range
#\B
eof))
- (test-decoding-error (#xe0 #x88 #x88) "UTF-8" 'error
+ (test-decoding-error (#xe0 #x88 #x88) "UTF-8"
(error ;; 2nd byte should be in the A0..BF range
eof))
- (test-decoding-error (#xe0 #xa0 #x41 #x42) "UTF-8" 'error
+ (test-decoding-error (#xe0 #xa0 #x41 #x42) "UTF-8"
(error ;; 3rd byte should be in the 80..BF range
#\B
eof))
- (test-decoding-error (#xf0 #x88 #x88 #x88) "UTF-8" 'error
+ (test-decoding-error (#xf0 #x88 #x88 #x88) "UTF-8"
(error ;; 2nd byte should be in the 90..BF range
eof))))