|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-6-73-ge809758 |
| Date: | Tue, 05 Jan 2010 14:34:59 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e809758a7e0f3f63162a0a9064b95bd1c1d10628
The branch, master has been updated
via e809758a7e0f3f63162a0a9064b95bd1c1d10628 (commit)
via bab980466108c6c22d2c820213d07b3d1b18c48e (commit)
via 9f09b127d447991bd749235f78516700a20c7dff (commit)
via ea7d717b1ed5ae84812c53dbbc3f399c6ff0b65e (commit)
via 54cd715022acc06bcf59038d863b1a3ab7e4bba1 (commit)
from e773b1e6ce2af1753034cb1065518c2341228008 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit e809758a7e0f3f63162a0a9064b95bd1c1d10628
Author: Andy Wingo <address@hidden>
Date: Tue Jan 5 15:20:47 2010 +0100
clean up macros.[ch]
There are some incompatible changes here, but only to interfaces that
were introduced earlier in 1.9, or interfaces which have been broken
since early in 1.9.
* libguile/_scm.h (SCM_OBJCODE_MINOR_VERSION): Bump, as the macro
changes affect the interface that is called by psyntax-generated macro
definitions.
* libguile/inline.h (scm_words): New function, allocates a variable
number of contiguous scm_t_bits locations, with a given value in the
0th word, and 0 in the rest of the words.
* libguile/macros.h: Rework interface to correspond more closely, and
minimally, to the needs of memoize.c and psyntax.
(SCM_ASSYNT, SCM_MACRO_TYPE_BITS, SCM_MACRO_TYPE_MASK)
(SCM_F_MACRO_EXTENDED, SCM_MACROP, SCM_MACRO_TYPE)
(SCM_MACRO_IS_EXTENDED, SCM_BUILTIN_MACRO_P, SCM_SYNCASE_MACRO_P)
(SCM_MACRO_CODE, scm_tc16_macro): Remove CPP macros related to the
representation of Scheme macros.
(scm_i_make_primitive_macro): Renamed from scm_i_makbimacro.
(scm_i_macro_primitive): New accessor so that memoize.c can get to the
primitive syntax transformer.
(scm_make_syncase_macro, scm_make_extended_syncase_macro)
(scm_syncase_macro_type, scm_syncase_macro_binding): Removed these
functions, replaced by make-syntax-transformer and its accessors.
(scm_macro_binding): New accessor, the same as what
scm_syncase_macro_binding was.
* libguile/macros.c: All representation details of syntax transformers
are private to this file now.
(macro_print): Print macros as #<syntax-transformer ...>, or
#<primitive-syntax-transformer ...> if psyntax has not attached a
transformer of its own.
(scm_i_make_primitive_macro): Represent macros as 5-word smobs.
(scm_make_syntax_transformer): New constructor for syntax transformers
(macros), exported to scheme. Takes a name, and looks it up in the
current module to determine the previous primitive transformer, if
any.
(scm_macro_type): Instead of returning 'builtin-macro!, etc, return
the type as set by psyntax, or #f if it's a primitive.
(scm_macro_name): Return the stored macro name.
(scm_macro_transformer): Return the psyntax-set syntax transformer.
Hacky, but should help introspection somewhat.
* libguile/memoize.c (memoize_env_ref_transformer): Use the new
scm_i_macro_primitive, and adapt to other macro API changes.
* module/ice-9/psyntax.scm (put-global-definition-hook)
(get-global-definition-hook, chi-install-global): Call (and generate
calls to) the new macro constructors and accessors.
* module/ice-9/psyntax-pp.scm: Doubly regenerated.
* module/ice-9/debugging/traps.scm (trap-here): Comment out this
definition and export, while it's not working.
commit bab980466108c6c22d2c820213d07b3d1b18c48e
Author: Andy Wingo <address@hidden>
Date: Tue Jan 5 11:05:12 2010 +0100
remove mmacros, SCM_SYNTAX snarf macro
* libguile/snarf.h (SCM_SYNTAX): Remove snarf macro, users can't define
primitive syntax any more.
* libguile/memoize.c (SCM_SYNTAX): Define locally, and just call
scm_i_makbimacro as there's no difference between that and
scm_makmmacro. Alter invocations to suit.
* libguile/macros.h:
* libguile/macros.c (scm_i_makmmacro): Remove; users can't define
primitive syntax any more. Use define-syntax instead.
(scm_make_synt): Remove, this was only used by the SCM_SYNTAX snarf
macro.
(scm_i_makbimacro): Change prototype of this internal function to make
the gsubr on behalf of the caller.
(macro_print, scm_macro_type): Remove cases for mmacros.
commit 9f09b127d447991bd749235f78516700a20c7dff
Author: Andy Wingo <address@hidden>
Date: Tue Jan 5 10:39:40 2010 +0100
remove scm_makacro and scm_makmacro
* libguile/macros.h:
* libguile/macros.c (scm_makacro): Remove this function for making
"acros", as it is unused and won't work with the compiler.
(scm_makmacro): Remove this deprecated function for making
non-memoizing macros, as they won't work with the compiler.
(macro_print, scm_macro_type): Remove a couple of cases for macros
that can't be created any more.
commit ea7d717b1ed5ae84812c53dbbc3f399c6ff0b65e
Author: Andy Wingo <address@hidden>
Date: Tue Jan 5 10:17:41 2010 +0100
fix include paths in foreign.c
* libguile/foreign.c: Fix include paths.
commit 54cd715022acc06bcf59038d863b1a3ab7e4bba1
Author: Andy Wingo <address@hidden>
Date: Tue Jan 5 10:16:45 2010 +0100
remove the deprecatd scm_make_subr_*
* libguile/deprecated.h:
* libguile/deprecated.c (scm_make_subr, scm_make_subr_with_generic)
(scm_make_subr_opt): Remove these functions that were deprecated in
2003, as they explicitly reference subr types.
-----------------------------------------------------------------------
Summary of changes:
libguile/_scm.h | 4 +-
libguile/deprecated.c | 34 +-
libguile/deprecated.h | 12 +-
libguile/foreign.c | 4 +-
libguile/inline.h | 41 +-
libguile/macros.c | 297 +-
libguile/macros.h | 40 +-
libguile/memoize.c | 62 +-
libguile/snarf.h | 6 +-
module/ice-9/debugging/traps.scm | 7 +-
module/ice-9/psyntax-pp.scm |15563 +++++++++++++++++++-------------------
module/ice-9/psyntax.scm | 83 +-
12 files changed, 8007 insertions(+), 8146 deletions(-)
diff --git a/libguile/_scm.h b/libguile/_scm.h
index b5c818c..c3aa8ff 100644
--- a/libguile/_scm.h
+++ b/libguile/_scm.h
@@ -3,7 +3,7 @@
#ifndef SCM__SCM_H
#define SCM__SCM_H
-/* Copyright (C) 1995,1996,2000,2001, 2002, 2006, 2008, 2009 Free Software
Foundation, Inc.
+/* Copyright (C) 1995,1996,2000,2001, 2002, 2006, 2008, 2009, 2010 Free
Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -176,7 +176,7 @@
/* Major and minor versions must be single characters. */
#define SCM_OBJCODE_MAJOR_VERSION 0
-#define SCM_OBJCODE_MINOR_VERSION M
+#define SCM_OBJCODE_MINOR_VERSION N
#define SCM_OBJCODE_MAJOR_VERSION_STRING \
SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION)
#define SCM_OBJCODE_MINOR_VERSION_STRING \
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index c53776c..3a61342 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -2,7 +2,7 @@
deprecate something, move it here when that is feasible.
*/
-/* Copyright (C) 2003, 2004, 2006, 2008, 2009 Free Software Foundation, Inc.
+/* Copyright (C) 2003, 2004, 2006, 2008, 2009, 2010 Free Software Foundation,
Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -508,38 +508,6 @@ SCM_DEFINE (scm_read_and_eval_x, "read-and-eval!", 0, 1, 0,
}
#undef FUNC_NAME
-SCM
-scm_make_subr_opt (const char *name, int type, SCM (*fcn) (), int set)
-{
- scm_c_issue_deprecation_warning
- ("`scm_make_subr_opt' is deprecated. Use `scm_c_make_subr' or "
- "`scm_c_define_subr' instead.");
-
- if (set)
- return scm_c_define_subr (name, type, fcn);
- else
- return scm_c_make_subr (name, type, fcn);
-}
-
-SCM
-scm_make_subr (const char *name, int type, SCM (*fcn) ())
-{
- scm_c_issue_deprecation_warning
- ("`scm_make_subr' is deprecated. Use `scm_c_define_subr' instead.");
-
- return scm_c_define_subr (name, type, fcn);
-}
-
-SCM
-scm_make_subr_with_generic (const char *name, int type, SCM (*fcn) (), SCM *gf)
-{
- scm_c_issue_deprecation_warning
- ("`scm_make_subr_with_generic' is deprecated. Use "
- "`scm_c_define_subr_with_generic' instead.");
-
- return scm_c_define_subr_with_generic (name, type, fcn, gf);
-}
-
/* Call thunk(closure) underneath a top-level error handler.
* If an error occurs, pass the exitval through err_filter and return it.
* If no error occurs, return the value of thunk.
diff --git a/libguile/deprecated.h b/libguile/deprecated.h
index be56d37..671f40f 100644
--- a/libguile/deprecated.h
+++ b/libguile/deprecated.h
@@ -5,7 +5,7 @@
#ifndef SCM_DEPRECATED_H
#define SCM_DEPRECATED_H
-/* Copyright (C) 2003,2004, 2005, 2006, 2007, 2009 Free Software Foundation,
Inc.
+/* Copyright (C) 2003,2004, 2005, 2006, 2007, 2009, 2010 Free Software
Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -172,16 +172,6 @@ SCM_DEPRECATED SCM scm_read_and_eval_x (SCM port);
#define SCM_SUBR_DOC(x) SCM_BOOL_F
-SCM_DEPRECATED SCM scm_make_subr (const char *name, int type, SCM (*fcn) ());
-SCM_DEPRECATED SCM scm_make_subr_with_generic (const char *name,
- int type,
- SCM (*fcn) (),
- SCM *gf);
-SCM_DEPRECATED SCM scm_make_subr_opt (const char *name,
- int type,
- SCM (*fcn) (),
- int set);
-
SCM_DEPRECATED SCM scm_call_catching_errors (SCM (*thunk)(), SCM
(*err_filter)(),
void * closure);
diff --git a/libguile/foreign.c b/libguile/foreign.c
index 8ace4a1..cdf58b3 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -21,8 +21,8 @@
#endif
#include <string.h>
-#include "_scm.h"
-#include "foreign.h"
+#include "libguile/_scm.h"
+#include "libguile/foreign.h"
diff --git a/libguile/inline.h b/libguile/inline.h
index 09a1b5a..018e6c6 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -3,7 +3,7 @@
#ifndef SCM_INLINE_H
#define SCM_INLINE_H
-/* Copyright (C) 2001, 2002, 2003, 2004, 2006, 2008, 2009 Free Software
Foundation, Inc.
+/* Copyright (C) 2001, 2002, 2003, 2004, 2006, 2008, 2009, 2010 Free Software
Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -87,6 +87,9 @@ SCM_API SCM scm_double_cell (scm_t_bits car, scm_t_bits cbr,
scm_t_bits ccr, scm_t_bits cdr);
SCM_API SCM scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr,
scm_t_bits ccr, scm_t_bits cdr);
+SCM_API SCM scm_words (scm_t_bits car, scm_t_uint16 n_words);
+/* no immutable words for now, would require initialization at the same time as
+ allocation */
SCM_API SCM scm_array_handle_ref (scm_t_array_handle *h, ssize_t pos);
SCM_API void scm_array_handle_set (scm_t_array_handle *h, ssize_t pos, SCM
val);
@@ -241,6 +244,42 @@ scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr,
SCM_C_EXTERN_INLINE
#endif
SCM
+scm_words (scm_t_bits car, scm_t_uint16 n_words)
+{
+ SCM z;
+
+ z = SCM_PACK ((scm_t_bits) (GC_MALLOC (sizeof (scm_t_bits) * n_words)));
+ SCM_GC_SET_CELL_WORD (z, 0, car);
+
+ /* FIXME: is the following concern even relevant with BDW-GC? */
+
+ /* When this function is inlined, it's possible that the last
+ SCM_GC_SET_CELL_WORD above will be adjacent to a following
+ initialization of z. E.g., it occurred in scm_make_real. GCC
+ from around version 3 (e.g., certainly 3.2) began taking
+ advantage of strict C aliasing rules which say that it's OK to
+ interchange the initialization above and the one below when the
+ pointer types appear to differ sufficiently. We don't want that,
+ of course. GCC allows this behaviour to be disabled with the
+ -fno-strict-aliasing option, but would also need to be supplied
+ by Guile users. Instead, the following statements prevent the
+ reordering.
+ */
+#ifdef __GNUC__
+ __asm__ volatile ("" : : : "memory");
+#else
+ /* portable version, just in case any other compiler does the same
+ thing. */
+ scm_remember_upto_here_1 (z);
+#endif
+
+ return z;
+}
+
+#ifndef SCM_INLINE_C_INCLUDING_INLINE_H
+SCM_C_EXTERN_INLINE
+#endif
+SCM
scm_array_handle_ref (scm_t_array_handle *h, ssize_t p)
{
if (SCM_UNLIKELY (p < 0 && ((size_t)-p) > h->base))
diff --git a/libguile/macros.c b/libguile/macros.c
index 0d71400..edb6538 100644
--- a/libguile/macros.c
+++ b/libguile/macros.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003, 2006, 2008, 2009
Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003, 2006, 2008, 2009,
2010 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -22,296 +22,161 @@
# include <config.h>
#endif
-#define SCM_BUILDING_DEPRECATED_CODE
-
#include "libguile/_scm.h"
-#include "libguile/alist.h" /* for SCM_EXTEND_ENV (well...) */
-#include "libguile/eval.h"
#include "libguile/ports.h"
#include "libguile/print.h"
-#include "libguile/root.h"
#include "libguile/smob.h"
-#include "libguile/deprecation.h"
-
#include "libguile/validate.h"
-#include "libguile/programs.h"
#include "libguile/macros.h"
#include "libguile/private-options.h"
-scm_t_bits scm_tc16_macro;
+static scm_t_bits scm_tc16_macro;
-static int
-macro_print (SCM macro, SCM port, scm_print_state *pstate)
-{
- SCM code = SCM_MACRO_CODE (macro);
+#define SCM_MACROP(x) SCM_SMOB_PREDICATE (scm_tc16_macro, (x))
+#define SCM_MACRO_PRIMITIVE(m) ((scm_t_macro_primitive)SCM_SMOB_DATA (m))
+#define SCM_MACRO_NAME(m) (SCM_SMOB_OBJECT_2 (m))
+#define SCM_MACRO_TYPE(m) (SCM_SMOB_OBJECT_3 (m))
+#define SCM_MACRO_BINDING(m) (SCM_CELL_OBJECT ((m), 4))
+#define SCM_VALIDATE_MACRO(p,v) SCM_MAKE_VALIDATE ((p), (v), MACROP)
- scm_puts ("#<", port);
- if (SCM_MACRO_TYPE (macro) < 4 && SCM_MACRO_IS_EXTENDED (macro))
- scm_puts ("extended-", port);
+SCM_API scm_t_bits scm_tc16_macro;
- /* FIXME: doesn't catch boot closures; but do we care? */
- if (!SCM_PROGRAM_P (code))
- scm_puts ("primitive-", port);
- if (SCM_MACRO_TYPE (macro) == 0)
- scm_puts ("syntax", port);
-#if SCM_ENABLE_DEPRECATED == 1
- if (SCM_MACRO_TYPE (macro) == 1)
- scm_puts ("macro", port);
-#endif
- if (SCM_MACRO_TYPE (macro) == 2)
- scm_puts ("macro!", port);
- if (SCM_MACRO_TYPE (macro) == 3)
- scm_puts ("builtin-macro!", port);
- if (SCM_MACRO_TYPE (macro) == 4)
- scm_puts ("syncase-macro", port);
-
- scm_putc (' ', port);
+static int
+macro_print (SCM macro, SCM port, scm_print_state *pstate)
+{
+ if (scm_is_false (SCM_MACRO_TYPE (macro)))
+ scm_puts ("#<primitive-syntax-transformer ", port);
+ else
+ scm_puts ("#<syntax-transformer ", port);
scm_iprin1 (scm_macro_name (macro), port, pstate);
-
- if (SCM_MACRO_IS_EXTENDED (macro))
- {
- scm_putc (' ', port);
- scm_write (SCM_SMOB_OBJECT_2 (macro), port);
- scm_putc (' ', port);
- scm_write (SCM_SMOB_OBJECT_3 (macro), port);
- }
-
scm_putc ('>', port);
return 1;
}
-static SCM
-makmac (SCM code, scm_t_bits flags)
-{
- SCM z;
- SCM_NEWSMOB (z, scm_tc16_macro, SCM_UNPACK (code));
- SCM_SET_SMOB_FLAGS (z, flags);
- return z;
-}
-
/* Return a mmacro that is known to be one of guile's built in macros. */
SCM
-scm_i_makbimacro (SCM code)
-#define FUNC_NAME "scm_i_makbimacro"
+scm_i_make_primitive_macro (const char *name, scm_t_macro_primitive fn)
{
- SCM_VALIDATE_PROC (1, code);
- return makmac (code, 3);
-}
-#undef FUNC_NAME
-
-
-SCM_DEFINE (scm_makmmacro, "procedure->memoizing-macro", 1, 0, 0,
- (SCM code),
- "Return a @dfn{macro} which, when a symbol defined to this value\n"
- "appears as the first symbol in an expression, evaluates the\n"
- "result of applying @var{code} to the expression and the\n"
- "environment.\n\n"
- "@code{procedure->memoizing-macro} is the same as\n"
- "@code{procedure->macro}, except that the expression returned by\n"
- "@var{code} replaces the original macro expression in the
memoized\n"
- "form of the containing code.")
-#define FUNC_NAME s_scm_makmmacro
-{
- SCM_VALIDATE_PROC (1, code);
- return makmac (code, 2);
+ SCM z = scm_words (scm_tc16_macro, 5);
+ SCM_SET_SMOB_DATA_N (z, 1, (scm_t_bits)fn);
+ SCM_SET_SMOB_DATA_N (z, 2, scm_from_locale_symbol (name));
+ SCM_SET_SMOB_DATA_N (z, 3, SCM_BOOL_F);
+ SCM_SET_SMOB_DATA_N (z, 4, SCM_BOOL_F);
+ return z;
}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_makacro, "procedure->syntax", 1, 0, 0,
- (SCM code),
- "Return a @dfn{macro} which, when a symbol defined to this value\n"
- "appears as the first symbol in an expression, returns the\n"
- "result of applying @var{code} to the expression and the\n"
- "environment.")
-#define FUNC_NAME s_scm_makacro
+scm_t_macro_primitive
+scm_i_macro_primitive (SCM macro)
{
- SCM_VALIDATE_PROC (1, code);
- return makmac (code, 0);
+ return SCM_MACRO_PRIMITIVE (macro);
}
-#undef FUNC_NAME
-
-#if SCM_ENABLE_DEPRECATED == 1
-SCM_DEFINE (scm_makmacro, "procedure->macro", 1, 0, 0,
- (SCM code),
- "Return a @dfn{macro} which, when a symbol defined to this value\n"
- "appears as the first symbol in an expression, evaluates the\n"
- "result of applying @var{code} to the expression and the\n"
- "environment. For example:\n"
- "\n"
- "@lisp\n"
- "(define trace\n"
- " (procedure->macro\n"
- " (lambda (x env) `(set! ,(cadr x) (tracef ,(cadr x) ',(cadr
x))))))\n\n"
- "(trace @i{foo}) @equiv{} (set! @i{foo} (tracef @i{foo}
'@i{foo})).\n"
- "@end lisp")
-#define FUNC_NAME s_scm_makmacro
-{
- scm_c_issue_deprecation_warning
- ("The function procedure->macro is deprecated, and so are"
- " non-memoizing macros in general. Use memoizing macros"
- " or r5rs macros instead.");
-
- SCM_VALIDATE_PROC (1, code);
- return makmac (code, 1);
-}
-#undef FUNC_NAME
-
-#endif
-
-SCM_DEFINE (scm_make_syncase_macro, "make-syncase-macro", 2, 0, 0,
- (SCM type, SCM binding),
- "Return a @dfn{macro} that requires expansion by syntax-case.\n"
- "While users should not call this function, it is useful to know\n"
- "that syntax-case macros are represented as Guile primitive
macros.")
-#define FUNC_NAME s_scm_make_syncase_macro
+SCM_DEFINE (scm_make_syntax_transformer, "make-syntax-transformer", 3, 0, 0,
+ (SCM name, SCM type, SCM binding),
+ "Construct a @dfn{syntax transformer}.\n\n"
+ "This function is part of Guile's low-level support for the
psyntax\n"
+ "syntax expander. Users should not call this function.")
+#define FUNC_NAME s_scm_make_syntax_transformer
{
SCM z;
- SCM_VALIDATE_SYMBOL (1, type);
+ SCM (*prim)(SCM,SCM) = NULL;
- SCM_NEWSMOB3 (z, scm_tc16_macro, SCM_UNPACK (binding), SCM_UNPACK (type),
- SCM_UNPACK (binding));
- SCM_SET_SMOB_FLAGS (z, 4 | SCM_F_MACRO_EXTENDED);
- return z;
-}
-#undef FUNC_NAME
+ if (scm_is_true (name))
+ {
+ SCM existing_var;
+
+ SCM_VALIDATE_SYMBOL (1, name);
+ existing_var = scm_sym2var (name, scm_current_module_lookup_closure (),
+ SCM_BOOL_F);
+ if (scm_is_true (existing_var)
+ && scm_is_true (scm_variable_bound_p (existing_var))
+ && SCM_MACROP (SCM_VARIABLE_REF (existing_var)))
+ prim = SCM_MACRO_PRIMITIVE (SCM_VARIABLE_REF (existing_var));
+ }
-SCM_DEFINE (scm_make_extended_syncase_macro, "make-extended-syncase-macro", 3,
0, 0,
- (SCM m, SCM type, SCM binding),
- "Extend a core macro @var{m} with a syntax-case binding.")
-#define FUNC_NAME s_scm_make_extended_syncase_macro
-{
- SCM z;
- SCM_VALIDATE_SMOB (1, m, macro);
SCM_VALIDATE_SYMBOL (2, type);
- SCM_NEWSMOB3 (z, scm_tc16_macro, SCM_SMOB_DATA (m), SCM_UNPACK (type),
- SCM_UNPACK (binding));
- SCM_SET_SMOB_FLAGS (z, SCM_SMOB_FLAGS (m) | SCM_F_MACRO_EXTENDED);
+ z = scm_words (scm_tc16_macro, 5);
+ SCM_SET_SMOB_DATA_N (z, 1, prim);
+ SCM_SET_SMOB_DATA_N (z, 2, name);
+ SCM_SET_SMOB_DATA_N (z, 3, type);
+ SCM_SET_SMOB_DATA_N (z, 4, binding);
return z;
}
#undef FUNC_NAME
-
-
SCM_DEFINE (scm_macro_p, "macro?", 1, 0, 0,
(SCM obj),
- "Return @code{#t} if @var{obj} is a regular macro, a memoizing
macro, a\n"
- "syntax transformer, or a syntax-case macro.")
+ "Return @code{#t} if @var{obj} is a syntax transformer (an object
that "
+ "transforms Scheme expressions at expansion-time).\n\n"
+ "Macros are actually just one kind of syntax transformer; this\n"
+ "procedure has its name due to historical reasons.")
#define FUNC_NAME s_scm_macro_p
{
- return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_macro, obj));
+ return scm_from_bool (SCM_MACROP (obj));
}
#undef FUNC_NAME
-
-SCM_SYMBOL (scm_sym_syntax, "syntax");
-#if SCM_ENABLE_DEPRECATED == 1
-SCM_SYMBOL (scm_sym_macro, "macro");
-#endif
-SCM_SYMBOL (scm_sym_mmacro, "macro!");
-SCM_SYMBOL (scm_sym_bimacro, "builtin-macro!");
-SCM_SYMBOL (scm_sym_syncase_macro, "syncase-macro");
-
SCM_DEFINE (scm_macro_type, "macro-type", 1, 0, 0,
(SCM m),
- "Return one of the symbols @code{syntax}, @code{macro},\n"
- "@code{macro!}, or @code{syntax-case}, depending on whether\n"
- "@var{m} is a syntax transformer, a regular macro, a memoizing\n"
- "macro, or a syntax-case macro, respectively. If @var{m} is\n"
- "not a macro, @code{#f} is returned.")
+ "Return the type of the syntax transformer @var{m}, as passed to\n"
+ "@code{make-syntax-transformer}. If @var{m} is a primitive
syntax\n"
+ "transformer, @code{#f} will be returned.")
#define FUNC_NAME s_scm_macro_type
{
- if (!SCM_SMOB_PREDICATE (scm_tc16_macro, m))
- return SCM_BOOL_F;
- switch (SCM_MACRO_TYPE (m))
- {
- case 0: return scm_sym_syntax;
-#if SCM_ENABLE_DEPRECATED == 1
- case 1: return scm_sym_macro;
-#endif
- case 2: return scm_sym_mmacro;
- case 3: return scm_sym_bimacro;
- case 4: return scm_sym_syncase_macro;
- default: scm_wrong_type_arg (FUNC_NAME, 1, m);
- }
+ SCM_VALIDATE_MACRO (1, m);
+ return SCM_MACRO_TYPE (m);
}
#undef FUNC_NAME
-
SCM_DEFINE (scm_macro_name, "macro-name", 1, 0, 0,
(SCM m),
- "Return the name of the macro @var{m}.")
+ "Return the name of the syntax transformer @var{m}.")
#define FUNC_NAME s_scm_macro_name
{
- SCM_VALIDATE_SMOB (1, m, macro);
- if (scm_is_true (scm_procedure_p (SCM_SMOB_OBJECT (m))))
- return scm_procedure_name (SCM_SMOB_OBJECT (m));
- return SCM_BOOL_F;
+ SCM_VALIDATE_MACRO (1, m);
+ return SCM_MACRO_NAME (m);
}
#undef FUNC_NAME
-
SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0,
(SCM m),
- "Return the transformer of the macro @var{m}.")
+ "Return the transformer procedure of the macro @var{m}.\n\n"
+ "If @var{m} is a syntax transformer but not a macro, @code{#f}\n"
+ "will be returned. (This can happen, for example, with primitive\n"
+ "syntax transformers).")
#define FUNC_NAME s_scm_macro_transformer
{
- SCM data;
-
- SCM_VALIDATE_SMOB (1, m, macro);
- data = SCM_PACK (SCM_SMOB_DATA (m));
-
- if (scm_is_true (scm_procedure_p (data)))
- return data;
+ SCM_VALIDATE_MACRO (1, m);
+ /* here we rely on knowledge of how psyntax represents macro bindings, but
+ hey, there is code out there that calls this function, and expects to get
+ a procedure in return... */
+ if (scm_is_pair (SCM_MACRO_BINDING (m))
+ && scm_is_true (scm_procedure_p (scm_car (SCM_MACRO_BINDING (m)))))
+ return scm_car (SCM_MACRO_BINDING (m));
else
return SCM_BOOL_F;
}
#undef FUNC_NAME
-SCM_DEFINE (scm_syncase_macro_type, "syncase-macro-type", 1, 0, 0,
+SCM_DEFINE (scm_macro_binding, "macro-binding", 1, 0, 0,
(SCM m),
- "Return the type of the macro @var{m}.")
-#define FUNC_NAME s_scm_syncase_macro_type
-{
- SCM_VALIDATE_SMOB (1, m, macro);
-
- if (SCM_MACRO_IS_EXTENDED (m))
- return SCM_SMOB_OBJECT_2 (m);
- else
- return SCM_BOOL_F;
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_syncase_macro_binding, "syncase-macro-binding", 1, 0, 0,
- (SCM m),
- "Return the binding of the macro @var{m}.")
-#define FUNC_NAME s_scm_syncase_macro_binding
+ "Return the binding of the syntax transformer @var{m}, as passed
to\n"
+ "@code{make-syntax-transformer}. If @var{m} is a primitive
syntax\n"
+ "transformer, @code{#f} will be returned.")
+#define FUNC_NAME s_scm_macro_transformer
{
- SCM_VALIDATE_SMOB (1, m, macro);
-
- if (SCM_MACRO_IS_EXTENDED (m))
- return SCM_SMOB_OBJECT_3 (m);
- else
- return SCM_BOOL_F;
+ SCM_VALIDATE_MACRO (1, m);
+ return SCM_MACRO_BINDING (m);
}
#undef FUNC_NAME
-SCM
-scm_make_synt (const char *name, SCM (*macroizer) (), SCM (*fcn)() )
-{
- SCM var = scm_c_define (name, SCM_UNDEFINED);
- SCM transformer = scm_c_make_gsubr (name, 2, 0, 0, fcn);
- SCM_VARIABLE_SET (var, macroizer (transformer));
- return SCM_UNSPECIFIED;
-}
void
scm_init_macros ()
diff --git a/libguile/macros.h b/libguile/macros.h
index f05d2f1..de2496e 100644
--- a/libguile/macros.h
+++ b/libguile/macros.h
@@ -3,7 +3,7 @@
#ifndef SCM_MACROS_H
#define SCM_MACROS_H
-/* Copyright (C) 1998,2000,2001,2002,2003, 2006, 2008, 2009 Free Software
Foundation, Inc.
+/* Copyright (C) 1998,2000,2001,2002,2003, 2006, 2008, 2009, 2010 Free
Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -27,42 +27,22 @@
-#define SCM_ASSYNT(_cond, _msg, _subr) \
- if (!(_cond)) scm_misc_error (_subr, _msg, SCM_EOL);
+typedef SCM (*scm_t_macro_primitive) (SCM, SCM);
-#define SCM_MACRO_TYPE_BITS (3)
-#define SCM_MACRO_TYPE_MASK ((1<<SCM_MACRO_TYPE_BITS)-1)
-#define SCM_F_MACRO_EXTENDED (1<<SCM_MACRO_TYPE_BITS)
-
-#define SCM_MACROP(x) SCM_SMOB_PREDICATE (scm_tc16_macro, (x))
-#define SCM_MACRO_TYPE(m) (SCM_SMOB_FLAGS (m) & SCM_MACRO_TYPE_MASK)
-#define SCM_MACRO_IS_EXTENDED(m) (SCM_SMOB_FLAGS (m) & SCM_F_MACRO_EXTENDED)
-#define SCM_BUILTIN_MACRO_P(x) (SCM_MACROP (x) && SCM_MACRO_TYPE (x) == 3)
-#define SCM_SYNCASE_MACRO_P(x) (SCM_MACROP (x) && SCM_MACRO_TYPE (x) == 4)
-#define SCM_MACRO_CODE(m) SCM_SMOB_OBJECT (m)
-
-SCM_API scm_t_bits scm_tc16_macro;
-
-SCM_INTERNAL SCM scm_i_makbimacro (SCM code);
-SCM_API SCM scm_makmmacro (SCM code);
-SCM_API SCM scm_makacro (SCM code);
-SCM_API SCM scm_make_syncase_macro (SCM type, SCM binding);
-SCM_API SCM scm_make_extended_syncase_macro (SCM builtin, SCM type,
- SCM binding);
+SCM_API SCM scm_make_syntax_transformer (SCM name_or_existing_definition,
+ SCM type, SCM binding);
SCM_API SCM scm_macro_p (SCM obj);
SCM_API SCM scm_macro_type (SCM m);
SCM_API SCM scm_macro_name (SCM m);
+SCM_API SCM scm_macro_binding (SCM m);
SCM_API SCM scm_macro_transformer (SCM m);
-SCM_API SCM scm_syncase_macro_type (SCM m);
-SCM_API SCM scm_syncase_macro_binding (SCM m);
-SCM_API SCM scm_make_synt (const char *name,
- SCM (*macroizer) (SCM),
- SCM (*fcn) ());
+
+SCM_INTERNAL SCM scm_i_make_primitive_macro (const char *name,
+ scm_t_macro_primitive fn);
+SCM_INTERNAL scm_t_macro_primitive scm_i_macro_primitive (SCM m);
+
SCM_INTERNAL void scm_init_macros (void);
-#if SCM_ENABLE_DEPRECATED == 1
-SCM_DEPRECATED SCM scm_makmacro (SCM code);
-#endif
#endif /* SCM_MACROS_H */
diff --git a/libguile/memoize.c b/libguile/memoize.c
index d2504dc..7360941 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -1,4 +1,4 @@
-/* Copyright (C)
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009
+/* Copyright (C)
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -275,9 +275,7 @@ static SCM scm_m_set_x (SCM xorig, SCM env);
-typedef SCM (*t_syntax_transformer) (SCM, SCM);
-
-static t_syntax_transformer
+static scm_t_macro_primitive
memoize_env_ref_transformer (SCM env, SCM x)
{
SCM var;
@@ -287,15 +285,8 @@ memoize_env_ref_transformer (SCM env, SCM x)
var = scm_module_variable (env, x);
if (scm_is_true (var) && scm_is_true (scm_variable_bound_p (var))
- && SCM_MACROP (scm_variable_ref (var)))
- {
- SCM mac = scm_variable_ref (var);
- if (SCM_IMP (SCM_MACRO_CODE (mac))
- || (SCM_TYP7 (SCM_MACRO_CODE (mac)) != scm_tc7_gsubr))
- syntax_error ("bad macro", x, SCM_UNDEFINED);
- else
- return (t_syntax_transformer)SCM_SUBRF (SCM_MACRO_CODE (mac)); /*
global macro */
- }
+ && scm_is_true (scm_macro_p (scm_variable_ref (var))))
+ return scm_i_macro_primitive (scm_variable_ref (var));
else
return NULL; /* anything else */
}
@@ -331,7 +322,7 @@ memoize (SCM exp, SCM env)
if (scm_is_pair (exp))
{
SCM CAR;
- t_syntax_transformer trans;
+ scm_t_macro_primitive trans;
CAR = CAR (exp);
if (scm_is_symbol (CAR))
@@ -390,27 +381,28 @@ memoize_sequence (const SCM forms, const SCM env)
/* Memoization. */
-/* bimacros (built-in macros) have isym codes.
- mmacros don't exist at runtime, they just expand out to more primitive
- forms. */
-SCM_SYNTAX (s_at, "@", scm_i_makbimacro, scm_m_at);
-SCM_SYNTAX (s_atat, "@@", scm_i_makbimacro, scm_m_atat);
-SCM_SYNTAX (s_and, "and", scm_makmmacro, scm_m_and);
-SCM_SYNTAX (s_begin, "begin", scm_i_makbimacro, scm_m_begin);
-SCM_SYNTAX (s_atcall_cc, "@call-with-current-continuation", scm_i_makbimacro,
scm_m_cont);
-SCM_SYNTAX (s_at_call_with_values, "@call-with-values", scm_i_makbimacro,
scm_m_at_call_with_values);
-SCM_SYNTAX (s_cond, "cond", scm_makmmacro, scm_m_cond);
-SCM_SYNTAX (s_define, "define", scm_i_makbimacro, scm_m_define);
-SCM_SYNTAX (s_eval_when, "eval-when", scm_makmmacro, scm_m_eval_when);
-SCM_SYNTAX (s_if, "if", scm_i_makbimacro, scm_m_if);
-SCM_SYNTAX (s_lambda, "lambda", scm_i_makbimacro, scm_m_lambda);
-SCM_SYNTAX (s_let, "let", scm_i_makbimacro, scm_m_let);
-SCM_SYNTAX (s_letrec, "letrec", scm_makmmacro, scm_m_letrec);
-SCM_SYNTAX (s_letstar, "let*", scm_makmmacro, scm_m_letstar);
-SCM_SYNTAX (s_or, "or", scm_makmmacro, scm_m_or);
-SCM_SYNTAX (s_quote, "quote", scm_i_makbimacro, scm_m_quote);
-SCM_SYNTAX (s_set_x, "set!", scm_i_makbimacro, scm_m_set_x);
-SCM_SYNTAX (s_atapply, "@apply", scm_i_makbimacro, scm_m_apply);
+#define SCM_SYNTAX(RANAME, STR, CFN) \
+SCM_SNARF_HERE(static const char RANAME[]=STR)\
+SCM_SNARF_INIT(scm_c_define (RANAME, scm_i_make_primitive_macro (RANAME, CFN)))
+
+SCM_SYNTAX (s_at, "@", scm_m_at);
+SCM_SYNTAX (s_atat, "@@", scm_m_atat);
+SCM_SYNTAX (s_and, "and", scm_m_and);
+SCM_SYNTAX (s_begin, "begin", scm_m_begin);
+SCM_SYNTAX (s_atcall_cc, "@call-with-current-continuation", scm_m_cont);
+SCM_SYNTAX (s_at_call_with_values, "@call-with-values",
scm_m_at_call_with_values);
+SCM_SYNTAX (s_cond, "cond", scm_m_cond);
+SCM_SYNTAX (s_define, "define", scm_m_define);
+SCM_SYNTAX (s_eval_when, "eval-when", scm_m_eval_when);
+SCM_SYNTAX (s_if, "if", scm_m_if);
+SCM_SYNTAX (s_lambda, "lambda", scm_m_lambda);
+SCM_SYNTAX (s_let, "let", scm_m_let);
+SCM_SYNTAX (s_letrec, "letrec", scm_m_letrec);
+SCM_SYNTAX (s_letstar, "let*", scm_m_letstar);
+SCM_SYNTAX (s_or, "or", scm_m_or);
+SCM_SYNTAX (s_quote, "quote", scm_m_quote);
+SCM_SYNTAX (s_set_x, "set!", scm_m_set_x);
+SCM_SYNTAX (s_atapply, "@apply", scm_m_apply);
SCM_GLOBAL_SYMBOL (scm_sym_apply, "apply");
diff --git a/libguile/snarf.h b/libguile/snarf.h
index ef1fcd0..e5b059b 100644
--- a/libguile/snarf.h
+++ b/libguile/snarf.h
@@ -3,7 +3,7 @@
#ifndef SCM_SNARF_H
#define SCM_SNARF_H
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006,
2009 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006,
2009, 2010 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -211,10 +211,6 @@ scm_c_define_subr_with_generic (RANAME, TYPE, \
(SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \
)
-#define SCM_SYNTAX(RANAME, STR, TYPE, CFN) \
-SCM_SNARF_HERE(static const char RANAME[]=STR)\
-SCM_SNARF_INIT(scm_make_synt (RANAME, TYPE, CFN))
-
#ifdef SCM_SUPPORT_STATIC_ALLOCATION
# define SCM_SYMBOL(c_name, scheme_name) \
diff --git a/module/ice-9/debugging/traps.scm b/module/ice-9/debugging/traps.scm
index 132e2d4..1d509f4 100755
--- a/module/ice-9/debugging/traps.scm
+++ b/module/ice-9/debugging/traps.scm
@@ -1,6 +1,6 @@
;;;; (ice-9 debugging traps) -- abstraction of libguile's traps interface
-;;; Copyright (C) 2002, 2004, 2009 Free Software Foundation, Inc.
+;;; Copyright (C) 2002, 2004, 2009, 2010 Free Software Foundation, Inc.
;;; Copyright (C) 2005 Neil Jerram
;;;
;;;; This library is free software; you can redistribute it and/or
@@ -81,7 +81,9 @@
without-traps
guile-trap-features)
#:re-export (make)
- #:export-syntax (trap-here))
+ ;; FIXME: see below
+ ;; #:export-syntax (trap-here)
+ )
;; How to debug the debugging infrastructure, when needed. Grep for
;; "(trc " to find other symbols that can be passed to trc-add.
@@ -888,6 +890,7 @@ it twice."
;; (trap-here EXPRESSION . OPTIONS)
;; FIXME: no longer working due to no mmacros, no local-eval
+#;
(define trap-here
(procedure->memoizing-macro
(lambda (expr env)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index ec229ce..2755252 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,610 +1,618 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 60}#
- (lambda (#{f\ 122}# #{first\ 123}# . #{rest\ 124}#)
- (let ((#{t\ 130}# (null? #{first\ 123}#)))
- (if #{t\ 130}#
- #{t\ 130}#
- (if (null? #{rest\ 124}#)
- (letrec ((#{andmap\ 134}#
- (lambda (#{first\ 135}#)
- (let ((#{x\ 138}# (car #{first\ 135}#))
- (#{first\ 139}# (cdr #{first\ 135}#)))
- (if (null? #{first\ 139}#)
- (#{f\ 122}# #{x\ 138}#)
- (if (#{f\ 122}# #{x\ 138}#)
- (#{andmap\ 134}# #{first\ 139}#)
+(letrec ((#{and-map*\ 9214}#
+ (lambda (#{f\ 9276}# #{first\ 9277}# . #{rest\ 9278}#)
+ (let ((#{t\ 9284}# (null? #{first\ 9277}#)))
+ (if #{t\ 9284}#
+ #{t\ 9284}#
+ (if (null? #{rest\ 9278}#)
+ (letrec ((#{andmap\ 9288}#
+ (lambda (#{first\ 9289}#)
+ (let ((#{x\ 9292}# (car #{first\ 9289}#))
+ (#{first\ 9293}# (cdr #{first\ 9289}#)))
+ (if (null? #{first\ 9293}#)
+ (#{f\ 9276}# #{x\ 9292}#)
+ (if (#{f\ 9276}# #{x\ 9292}#)
+ (#{andmap\ 9288}# #{first\ 9293}#)
#f))))))
- (#{andmap\ 134}# #{first\ 123}#))
- (letrec ((#{andmap\ 145}#
- (lambda (#{first\ 146}# #{rest\ 147}#)
- (let ((#{x\ 152}# (car #{first\ 146}#))
- (#{xr\ 153}# (map car #{rest\ 147}#))
- (#{first\ 154}# (cdr #{first\ 146}#))
- (#{rest\ 155}# (map cdr #{rest\ 147}#)))
- (if (null? #{first\ 154}#)
- (apply #{f\ 122}#
- (cons #{x\ 152}# #{xr\ 153}#))
- (if (apply #{f\ 122}#
- (cons #{x\ 152}# #{xr\ 153}#))
- (#{andmap\ 145}#
- #{first\ 154}#
- #{rest\ 155}#)
+ (#{andmap\ 9288}# #{first\ 9277}#))
+ (letrec ((#{andmap\ 9299}#
+ (lambda (#{first\ 9300}# #{rest\ 9301}#)
+ (let ((#{x\ 9306}# (car #{first\ 9300}#))
+ (#{xr\ 9307}# (map car #{rest\ 9301}#))
+ (#{first\ 9308}# (cdr #{first\ 9300}#))
+ (#{rest\ 9309}#
+ (map cdr #{rest\ 9301}#)))
+ (if (null? #{first\ 9308}#)
+ (apply #{f\ 9276}#
+ (cons #{x\ 9306}# #{xr\ 9307}#))
+ (if (apply #{f\ 9276}#
+ (cons #{x\ 9306}# #{xr\ 9307}#))
+ (#{andmap\ 9299}#
+ #{first\ 9308}#
+ #{rest\ 9309}#)
#f))))))
- (#{andmap\ 145}# #{first\ 123}# #{rest\ 124}#))))))))
- (letrec ((#{lambda-var-list\ 375}#
- (lambda (#{vars\ 590}#)
- (letrec ((#{lvl\ 596}#
- (lambda (#{vars\ 597}# #{ls\ 598}# #{w\ 599}#)
- (if (pair? #{vars\ 597}#)
- (#{lvl\ 596}#
- (cdr #{vars\ 597}#)
- (cons (#{wrap\ 329}#
- (car #{vars\ 597}#)
- #{w\ 599}#
+ (#{andmap\ 9299}# #{first\ 9277}# #{rest\ 9278}#))))))))
+ (letrec ((#{lambda-var-list\ 9529}#
+ (lambda (#{vars\ 9744}#)
+ (letrec ((#{lvl\ 9750}#
+ (lambda (#{vars\ 9751}# #{ls\ 9752}# #{w\ 9753}#)
+ (if (pair? #{vars\ 9751}#)
+ (#{lvl\ 9750}#
+ (cdr #{vars\ 9751}#)
+ (cons (#{wrap\ 9483}#
+ (car #{vars\ 9751}#)
+ #{w\ 9753}#
#f)
- #{ls\ 598}#)
- #{w\ 599}#)
- (if (#{id?\ 260}# #{vars\ 597}#)
- (cons (#{wrap\ 329}#
- #{vars\ 597}#
- #{w\ 599}#
+ #{ls\ 9752}#)
+ #{w\ 9753}#)
+ (if (#{id?\ 9414}# #{vars\ 9751}#)
+ (cons (#{wrap\ 9483}#
+ #{vars\ 9751}#
+ #{w\ 9753}#
#f)
- #{ls\ 598}#)
- (if (null? #{vars\ 597}#)
- #{ls\ 598}#
- (if (#{syntax-object?\ 224}# #{vars\ 597}#)
- (#{lvl\ 596}#
- (#{syntax-object-expression\ 226}#
- #{vars\ 597}#)
- #{ls\ 598}#
- (#{join-wraps\ 311}#
- #{w\ 599}#
- (#{syntax-object-wrap\ 228}#
- #{vars\ 597}#)))
- (cons #{vars\ 597}# #{ls\ 598}#))))))))
- (#{lvl\ 596}#
- #{vars\ 590}#
+ #{ls\ 9752}#)
+ (if (null? #{vars\ 9751}#)
+ #{ls\ 9752}#
+ (if (#{syntax-object?\ 9378}# #{vars\ 9751}#)
+ (#{lvl\ 9750}#
+ (#{syntax-object-expression\ 9380}#
+ #{vars\ 9751}#)
+ #{ls\ 9752}#
+ (#{join-wraps\ 9465}#
+ #{w\ 9753}#
+ (#{syntax-object-wrap\ 9382}#
+ #{vars\ 9751}#)))
+ (cons #{vars\ 9751}# #{ls\ 9752}#))))))))
+ (#{lvl\ 9750}#
+ #{vars\ 9744}#
'()
'(())))))
- (#{gen-var\ 373}#
- (lambda (#{id\ 610}#)
- (let ((#{id\ 613}#
- (if (#{syntax-object?\ 224}# #{id\ 610}#)
- (#{syntax-object-expression\ 226}# #{id\ 610}#)
- #{id\ 610}#)))
+ (#{gen-var\ 9527}#
+ (lambda (#{id\ 9764}#)
+ (let ((#{id\ 9767}#
+ (if (#{syntax-object?\ 9378}# #{id\ 9764}#)
+ (#{syntax-object-expression\ 9380}# #{id\ 9764}#)
+ #{id\ 9764}#)))
(gensym
- (string-append (symbol->string #{id\ 613}#) " ")))))
- (#{strip\ 371}#
- (lambda (#{x\ 615}# #{w\ 616}#)
+ (string-append (symbol->string #{id\ 9767}#) " ")))))
+ (#{strip\ 9525}#
+ (lambda (#{x\ 9769}# #{w\ 9770}#)
(if (memq 'top
- (#{wrap-marks\ 267}# #{w\ 616}#))
- #{x\ 615}#
- (letrec ((#{f\ 622}# (lambda (#{x\ 623}#)
- (if (#{syntax-object?\ 224}#
- #{x\ 623}#)
- (#{strip\ 371}#
- (#{syntax-object-expression\ 226}#
- #{x\ 623}#)
- (#{syntax-object-wrap\ 228}#
- #{x\ 623}#))
- (if (pair? #{x\ 623}#)
- (let ((#{a\ 630}# (#{f\ 622}# (car
#{x\ 623}#)))
- (#{d\ 631}# (#{f\ 622}# (cdr
#{x\ 623}#))))
- (if (if (eq? #{a\ 630}#
- (car #{x\ 623}#))
- (eq? #{d\ 631}#
- (cdr #{x\ 623}#))
- #f)
- #{x\ 623}#
- (cons #{a\ 630}# #{d\ 631}#)))
- (if (vector? #{x\ 623}#)
- (let ((#{old\ 637}#
- (vector->list
- #{x\ 623}#)))
- (let ((#{new\ 639}#
- (map #{f\ 622}#
- #{old\ 637}#)))
- (if (#{and-map*\ 60}#
- eq?
- #{old\ 637}#
- #{new\ 639}#)
- #{x\ 623}#
- (list->vector
- #{new\ 639}#))))
- #{x\ 623}#))))))
- (#{f\ 622}# #{x\ 615}#)))))
- (#{chi-lambda-case\ 369}#
- (lambda (#{e\ 641}#
- #{r\ 642}#
- #{w\ 643}#
- #{s\ 644}#
- #{mod\ 645}#
- #{get-formals\ 646}#
- #{clauses\ 647}#)
- (letrec ((#{expand-body\ 662}#
- (lambda (#{req\ 663}#
- #{opt\ 664}#
- #{rest\ 665}#
- #{kw\ 666}#
- #{body\ 667}#
- #{vars\ 668}#
- #{r*\ 669}#
- #{w*\ 670}#
- #{inits\ 671}#)
- ((lambda (#{tmp\ 681}#)
- ((lambda (#{tmp\ 682}#)
- (if (if #{tmp\ 682}#
- (apply (lambda (#{docstring\ 686}#
- #{e1\ 687}#
- #{e2\ 688}#)
+ (#{wrap-marks\ 9421}# #{w\ 9770}#))
+ #{x\ 9769}#
+ (letrec ((#{f\ 9776}#
+ (lambda (#{x\ 9777}#)
+ (if (#{syntax-object?\ 9378}# #{x\ 9777}#)
+ (#{strip\ 9525}#
+ (#{syntax-object-expression\ 9380}#
+ #{x\ 9777}#)
+ (#{syntax-object-wrap\ 9382}# #{x\ 9777}#))
+ (if (pair? #{x\ 9777}#)
+ (let ((#{a\ 9784}#
+ (#{f\ 9776}# (car #{x\ 9777}#)))
+ (#{d\ 9785}#
+ (#{f\ 9776}# (cdr #{x\ 9777}#))))
+ (if (if (eq? #{a\ 9784}# (car #{x\ 9777}#))
+ (eq? #{d\ 9785}# (cdr #{x\ 9777}#))
+ #f)
+ #{x\ 9777}#
+ (cons #{a\ 9784}# #{d\ 9785}#)))
+ (if (vector? #{x\ 9777}#)
+ (let ((#{old\ 9791}#
+ (vector->list #{x\ 9777}#)))
+ (let ((#{new\ 9793}#
+ (map #{f\ 9776}# #{old\ 9791}#)))
+ (if (#{and-map*\ 9214}#
+ eq?
+ #{old\ 9791}#
+ #{new\ 9793}#)
+ #{x\ 9777}#
+ (list->vector #{new\ 9793}#))))
+ #{x\ 9777}#))))))
+ (#{f\ 9776}# #{x\ 9769}#)))))
+ (#{chi-lambda-case\ 9523}#
+ (lambda (#{e\ 9795}#
+ #{r\ 9796}#
+ #{w\ 9797}#
+ #{s\ 9798}#
+ #{mod\ 9799}#
+ #{get-formals\ 9800}#
+ #{clauses\ 9801}#)
+ (letrec ((#{expand-body\ 9816}#
+ (lambda (#{req\ 9817}#
+ #{opt\ 9818}#
+ #{rest\ 9819}#
+ #{kw\ 9820}#
+ #{body\ 9821}#
+ #{vars\ 9822}#
+ #{r*\ 9823}#
+ #{w*\ 9824}#
+ #{inits\ 9825}#)
+ ((lambda (#{tmp\ 9835}#)
+ ((lambda (#{tmp\ 9836}#)
+ (if (if #{tmp\ 9836}#
+ (apply (lambda (#{docstring\ 9840}#
+ #{e1\ 9841}#
+ #{e2\ 9842}#)
(string?
(syntax->datum
- #{docstring\ 686}#)))
- #{tmp\ 682}#)
+ #{docstring\ 9840}#)))
+ #{tmp\ 9836}#)
#f)
- (apply (lambda (#{docstring\ 692}#
- #{e1\ 693}#
- #{e2\ 694}#)
+ (apply (lambda (#{docstring\ 9846}#
+ #{e1\ 9847}#
+ #{e2\ 9848}#)
(values
(syntax->datum
- #{docstring\ 692}#)
- #{req\ 663}#
- #{opt\ 664}#
- #{rest\ 665}#
- #{kw\ 666}#
- #{inits\ 671}#
- #{vars\ 668}#
- (#{chi-body\ 353}#
- (cons #{e1\ 693}# #{e2\ 694}#)
- (#{source-wrap\ 331}#
- #{e\ 641}#
- #{w\ 643}#
- #{s\ 644}#
- #{mod\ 645}#)
- #{r*\ 669}#
- #{w*\ 670}#
- #{mod\ 645}#)))
- #{tmp\ 682}#)
- ((lambda (#{tmp\ 696}#)
- (if #{tmp\ 696}#
- (apply (lambda (#{e1\ 699}#
- #{e2\ 700}#)
+ #{docstring\ 9846}#)
+ #{req\ 9817}#
+ #{opt\ 9818}#
+ #{rest\ 9819}#
+ #{kw\ 9820}#
+ #{inits\ 9825}#
+ #{vars\ 9822}#
+ (#{chi-body\ 9507}#
+ (cons #{e1\ 9847}#
+ #{e2\ 9848}#)
+ (#{source-wrap\ 9485}#
+ #{e\ 9795}#
+ #{w\ 9797}#
+ #{s\ 9798}#
+ #{mod\ 9799}#)
+ #{r*\ 9823}#
+ #{w*\ 9824}#
+ #{mod\ 9799}#)))
+ #{tmp\ 9836}#)
+ ((lambda (#{tmp\ 9850}#)
+ (if #{tmp\ 9850}#
+ (apply (lambda (#{e1\ 9853}#
+ #{e2\ 9854}#)
(values
#f
- #{req\ 663}#
- #{opt\ 664}#
- #{rest\ 665}#
- #{kw\ 666}#
- #{inits\ 671}#
- #{vars\ 668}#
- (#{chi-body\ 353}#
- (cons #{e1\ 699}#
- #{e2\ 700}#)
- (#{source-wrap\ 331}#
- #{e\ 641}#
- #{w\ 643}#
- #{s\ 644}#
- #{mod\ 645}#)
- #{r*\ 669}#
- #{w*\ 670}#
- #{mod\ 645}#)))
- #{tmp\ 696}#)
+ #{req\ 9817}#
+ #{opt\ 9818}#
+ #{rest\ 9819}#
+ #{kw\ 9820}#
+ #{inits\ 9825}#
+ #{vars\ 9822}#
+ (#{chi-body\ 9507}#
+ (cons #{e1\ 9853}#
+ #{e2\ 9854}#)
+ (#{source-wrap\ 9485}#
+ #{e\ 9795}#
+ #{w\ 9797}#
+ #{s\ 9798}#
+ #{mod\ 9799}#)
+ #{r*\ 9823}#
+ #{w*\ 9824}#
+ #{mod\ 9799}#)))
+ #{tmp\ 9850}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 681}#)))
+ #{tmp\ 9835}#)))
($sc-dispatch
- #{tmp\ 681}#
+ #{tmp\ 9835}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 681}#
+ #{tmp\ 9835}#
'(any any . each-any))))
- #{body\ 667}#)))
- (#{expand-kw\ 660}#
- (lambda (#{req\ 702}#
- #{opt\ 703}#
- #{rest\ 704}#
- #{kw\ 705}#
- #{body\ 706}#
- #{vars\ 707}#
- #{r*\ 708}#
- #{w*\ 709}#
- #{aok\ 710}#
- #{out\ 711}#
- #{inits\ 712}#)
- (if (pair? #{kw\ 705}#)
- ((lambda (#{tmp\ 726}#)
- ((lambda (#{tmp\ 727}#)
- (if #{tmp\ 727}#
- (apply (lambda (#{k\ 731}#
- #{id\ 732}#
- #{i\ 733}#)
- (let ((#{v\ 736}# (#{gen-var\
373}#
- #{id\
732}#)))
- (let ((#{l\ 738}#
(#{gen-labels\ 278}#
- (list
#{v\ 736}#))))
- (let ((#{r**\ 740}#
- (#{extend-var-env\
250}#
- #{l\ 738}#
- (list #{v\ 736}#)
- #{r*\ 708}#)))
- (let ((#{w**\ 742}#
-
(#{make-binding-wrap\ 307}#
- (list #{id\
732}#)
- #{l\ 738}#
- #{w*\ 709}#)))
- (#{expand-kw\ 660}#
- #{req\ 702}#
- #{opt\ 703}#
- #{rest\ 704}#
- (cdr #{kw\ 705}#)
- #{body\ 706}#
- (cons #{v\ 736}#
- #{vars\ 707}#)
- #{r**\ 740}#
- #{w**\ 742}#
- #{aok\ 710}#
+ #{body\ 9821}#)))
+ (#{expand-kw\ 9814}#
+ (lambda (#{req\ 9856}#
+ #{opt\ 9857}#
+ #{rest\ 9858}#
+ #{kw\ 9859}#
+ #{body\ 9860}#
+ #{vars\ 9861}#
+ #{r*\ 9862}#
+ #{w*\ 9863}#
+ #{aok\ 9864}#
+ #{out\ 9865}#
+ #{inits\ 9866}#)
+ (if (pair? #{kw\ 9859}#)
+ ((lambda (#{tmp\ 9880}#)
+ ((lambda (#{tmp\ 9881}#)
+ (if #{tmp\ 9881}#
+ (apply (lambda (#{k\ 9885}#
+ #{id\ 9886}#
+ #{i\ 9887}#)
+ (let ((#{v\ 9890}#
+ (#{gen-var\ 9527}#
+ #{id\ 9886}#)))
+ (let ((#{l\ 9892}#
+ (#{gen-labels\ 9432}#
+ (list #{v\
9890}#))))
+ (let ((#{r**\ 9894}#
+ (#{extend-var-env\
9404}#
+ #{l\ 9892}#
+ (list #{v\ 9890}#)
+ #{r*\ 9862}#)))
+ (let ((#{w**\ 9896}#
+
(#{make-binding-wrap\ 9461}#
+ (list #{id\
9886}#)
+ #{l\ 9892}#
+ #{w*\ 9863}#)))
+ (#{expand-kw\ 9814}#
+ #{req\ 9856}#
+ #{opt\ 9857}#
+ #{rest\ 9858}#
+ (cdr #{kw\ 9859}#)
+ #{body\ 9860}#
+ (cons #{v\ 9890}#
+ #{vars\ 9861}#)
+ #{r**\ 9894}#
+ #{w**\ 9896}#
+ #{aok\ 9864}#
(cons (list
(syntax->datum
- #{k\
731}#)
+ #{k\
9885}#)
(syntax->datum
- #{id\
732}#)
- #{v\
736}#)
- #{out\ 711}#)
- (cons (#{chi\ 345}#
- #{i\ 733}#
- #{r*\ 708}#
- #{w*\ 709}#
- #{mod\ 645}#)
- #{inits\
712}#)))))))
- #{tmp\ 727}#)
+ #{id\
9886}#)
+ #{v\
9890}#)
+ #{out\ 9865}#)
+ (cons (#{chi\ 9499}#
+ #{i\ 9887}#
+ #{r*\ 9862}#
+ #{w*\ 9863}#
+ #{mod\ 9799}#)
+ #{inits\
9866}#)))))))
+ #{tmp\ 9881}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 726}#)))
+ #{tmp\ 9880}#)))
($sc-dispatch
- #{tmp\ 726}#
+ #{tmp\ 9880}#
'(any any any))))
- (car #{kw\ 705}#))
- (#{expand-body\ 662}#
- #{req\ 702}#
- #{opt\ 703}#
- #{rest\ 704}#
- (if (let ((#{t\ 746}# #{aok\ 710}#))
- (if #{t\ 746}#
- #{t\ 746}#
- (pair? #{out\ 711}#)))
- (cons #{aok\ 710}# (reverse #{out\ 711}#))
+ (car #{kw\ 9859}#))
+ (#{expand-body\ 9816}#
+ #{req\ 9856}#
+ #{opt\ 9857}#
+ #{rest\ 9858}#
+ (if (let ((#{t\ 9900}# #{aok\ 9864}#))
+ (if #{t\ 9900}#
+ #{t\ 9900}#
+ (pair? #{out\ 9865}#)))
+ (cons #{aok\ 9864}# (reverse #{out\ 9865}#))
#f)
- #{body\ 706}#
- (reverse #{vars\ 707}#)
- #{r*\ 708}#
- #{w*\ 709}#
- (reverse #{inits\ 712}#)))))
- (#{expand-opt\ 658}#
- (lambda (#{req\ 748}#
- #{opt\ 749}#
- #{rest\ 750}#
- #{kw\ 751}#
- #{body\ 752}#
- #{vars\ 753}#
- #{r*\ 754}#
- #{w*\ 755}#
- #{out\ 756}#
- #{inits\ 757}#)
- (if (pair? #{opt\ 749}#)
- ((lambda (#{tmp\ 770}#)
- ((lambda (#{tmp\ 771}#)
- (if #{tmp\ 771}#
- (apply (lambda (#{id\ 774}# #{i\ 775}#)
- (let ((#{v\ 778}# (#{gen-var\
373}#
- #{id\
774}#)))
- (let ((#{l\ 780}#
(#{gen-labels\ 278}#
- (list
#{v\ 778}#))))
- (let ((#{r**\ 782}#
- (#{extend-var-env\
250}#
- #{l\ 780}#
- (list #{v\ 778}#)
- #{r*\ 754}#)))
- (let ((#{w**\ 784}#
-
(#{make-binding-wrap\ 307}#
- (list #{id\
774}#)
- #{l\ 780}#
- #{w*\ 755}#)))
- (#{expand-opt\ 658}#
- #{req\ 748}#
- (cdr #{opt\ 749}#)
- #{rest\ 750}#
- #{kw\ 751}#
- #{body\ 752}#
- (cons #{v\ 778}#
- #{vars\ 753}#)
- #{r**\ 782}#
- #{w**\ 784}#
+ #{body\ 9860}#
+ (reverse #{vars\ 9861}#)
+ #{r*\ 9862}#
+ #{w*\ 9863}#
+ (reverse #{inits\ 9866}#)))))
+ (#{expand-opt\ 9812}#
+ (lambda (#{req\ 9902}#
+ #{opt\ 9903}#
+ #{rest\ 9904}#
+ #{kw\ 9905}#
+ #{body\ 9906}#
+ #{vars\ 9907}#
+ #{r*\ 9908}#
+ #{w*\ 9909}#
+ #{out\ 9910}#
+ #{inits\ 9911}#)
+ (if (pair? #{opt\ 9903}#)
+ ((lambda (#{tmp\ 9924}#)
+ ((lambda (#{tmp\ 9925}#)
+ (if #{tmp\ 9925}#
+ (apply (lambda (#{id\ 9928}# #{i\ 9929}#)
+ (let ((#{v\ 9932}#
+ (#{gen-var\ 9527}#
+ #{id\ 9928}#)))
+ (let ((#{l\ 9934}#
+ (#{gen-labels\ 9432}#
+ (list #{v\
9932}#))))
+ (let ((#{r**\ 9936}#
+ (#{extend-var-env\
9404}#
+ #{l\ 9934}#
+ (list #{v\ 9932}#)
+ #{r*\ 9908}#)))
+ (let ((#{w**\ 9938}#
+
(#{make-binding-wrap\ 9461}#
+ (list #{id\
9928}#)
+ #{l\ 9934}#
+ #{w*\ 9909}#)))
+ (#{expand-opt\ 9812}#
+ #{req\ 9902}#
+ (cdr #{opt\ 9903}#)
+ #{rest\ 9904}#
+ #{kw\ 9905}#
+ #{body\ 9906}#
+ (cons #{v\ 9932}#
+ #{vars\ 9907}#)
+ #{r**\ 9936}#
+ #{w**\ 9938}#
(cons (syntax->datum
- #{id\ 774}#)
- #{out\ 756}#)
- (cons (#{chi\ 345}#
- #{i\ 775}#
- #{r*\ 754}#
- #{w*\ 755}#
- #{mod\ 645}#)
- #{inits\
757}#)))))))
- #{tmp\ 771}#)
+ #{id\ 9928}#)
+ #{out\ 9910}#)
+ (cons (#{chi\ 9499}#
+ #{i\ 9929}#
+ #{r*\ 9908}#
+ #{w*\ 9909}#
+ #{mod\ 9799}#)
+ #{inits\
9911}#)))))))
+ #{tmp\ 9925}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 770}#)))
+ #{tmp\ 9924}#)))
($sc-dispatch
- #{tmp\ 770}#
+ #{tmp\ 9924}#
'(any any))))
- (car #{opt\ 749}#))
- (if #{rest\ 750}#
- (let ((#{v\ 789}# (#{gen-var\ 373}#
- #{rest\ 750}#)))
- (let ((#{l\ 791}# (#{gen-labels\ 278}#
- (list #{v\ 789}#))))
- (let ((#{r*\ 793}#
- (#{extend-var-env\ 250}#
- #{l\ 791}#
- (list #{v\ 789}#)
- #{r*\ 754}#)))
- (let ((#{w*\ 795}#
- (#{make-binding-wrap\ 307}#
- (list #{rest\ 750}#)
- #{l\ 791}#
- #{w*\ 755}#)))
- (#{expand-kw\ 660}#
- #{req\ 748}#
- (if (pair? #{out\ 756}#)
- (reverse #{out\ 756}#)
+ (car #{opt\ 9903}#))
+ (if #{rest\ 9904}#
+ (let ((#{v\ 9943}#
+ (#{gen-var\ 9527}# #{rest\ 9904}#)))
+ (let ((#{l\ 9945}#
+ (#{gen-labels\ 9432}#
+ (list #{v\ 9943}#))))
+ (let ((#{r*\ 9947}#
+ (#{extend-var-env\ 9404}#
+ #{l\ 9945}#
+ (list #{v\ 9943}#)
+ #{r*\ 9908}#)))
+ (let ((#{w*\ 9949}#
+ (#{make-binding-wrap\ 9461}#
+ (list #{rest\ 9904}#)
+ #{l\ 9945}#
+ #{w*\ 9909}#)))
+ (#{expand-kw\ 9814}#
+ #{req\ 9902}#
+ (if (pair? #{out\ 9910}#)
+ (reverse #{out\ 9910}#)
#f)
- (syntax->datum #{rest\ 750}#)
- (if (pair? #{kw\ 751}#)
- (cdr #{kw\ 751}#)
- #{kw\ 751}#)
- #{body\ 752}#
- (cons #{v\ 789}# #{vars\ 753}#)
- #{r*\ 793}#
- #{w*\ 795}#
- (if (pair? #{kw\ 751}#)
- (car #{kw\ 751}#)
+ (syntax->datum #{rest\ 9904}#)
+ (if (pair? #{kw\ 9905}#)
+ (cdr #{kw\ 9905}#)
+ #{kw\ 9905}#)
+ #{body\ 9906}#
+ (cons #{v\ 9943}# #{vars\ 9907}#)
+ #{r*\ 9947}#
+ #{w*\ 9949}#
+ (if (pair? #{kw\ 9905}#)
+ (car #{kw\ 9905}#)
#f)
'()
- #{inits\ 757}#)))))
- (#{expand-kw\ 660}#
- #{req\ 748}#
- (if (pair? #{out\ 756}#)
- (reverse #{out\ 756}#)
+ #{inits\ 9911}#)))))
+ (#{expand-kw\ 9814}#
+ #{req\ 9902}#
+ (if (pair? #{out\ 9910}#)
+ (reverse #{out\ 9910}#)
#f)
#f
- (if (pair? #{kw\ 751}#)
- (cdr #{kw\ 751}#)
- #{kw\ 751}#)
- #{body\ 752}#
- #{vars\ 753}#
- #{r*\ 754}#
- #{w*\ 755}#
- (if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f)
+ (if (pair? #{kw\ 9905}#)
+ (cdr #{kw\ 9905}#)
+ #{kw\ 9905}#)
+ #{body\ 9906}#
+ #{vars\ 9907}#
+ #{r*\ 9908}#
+ #{w*\ 9909}#
+ (if (pair? #{kw\ 9905}#)
+ (car #{kw\ 9905}#)
+ #f)
'()
- #{inits\ 757}#)))))
- (#{expand-req\ 656}#
- (lambda (#{req\ 797}#
- #{opt\ 798}#
- #{rest\ 799}#
- #{kw\ 800}#
- #{body\ 801}#)
- (let ((#{vars\ 809}#
- (map #{gen-var\ 373}# #{req\ 797}#))
- (#{labels\ 810}#
- (#{gen-labels\ 278}# #{req\ 797}#)))
- (let ((#{r*\ 813}#
- (#{extend-var-env\ 250}#
- #{labels\ 810}#
- #{vars\ 809}#
- #{r\ 642}#))
- (#{w*\ 814}#
- (#{make-binding-wrap\ 307}#
- #{req\ 797}#
- #{labels\ 810}#
- #{w\ 643}#)))
- (#{expand-opt\ 658}#
- (map syntax->datum #{req\ 797}#)
- #{opt\ 798}#
- #{rest\ 799}#
- #{kw\ 800}#
- #{body\ 801}#
- (reverse #{vars\ 809}#)
- #{r*\ 813}#
- #{w*\ 814}#
+ #{inits\ 9911}#)))))
+ (#{expand-req\ 9810}#
+ (lambda (#{req\ 9951}#
+ #{opt\ 9952}#
+ #{rest\ 9953}#
+ #{kw\ 9954}#
+ #{body\ 9955}#)
+ (let ((#{vars\ 9963}#
+ (map #{gen-var\ 9527}# #{req\ 9951}#))
+ (#{labels\ 9964}#
+ (#{gen-labels\ 9432}# #{req\ 9951}#)))
+ (let ((#{r*\ 9967}#
+ (#{extend-var-env\ 9404}#
+ #{labels\ 9964}#
+ #{vars\ 9963}#
+ #{r\ 9796}#))
+ (#{w*\ 9968}#
+ (#{make-binding-wrap\ 9461}#
+ #{req\ 9951}#
+ #{labels\ 9964}#
+ #{w\ 9797}#)))
+ (#{expand-opt\ 9812}#
+ (map syntax->datum #{req\ 9951}#)
+ #{opt\ 9952}#
+ #{rest\ 9953}#
+ #{kw\ 9954}#
+ #{body\ 9955}#
+ (reverse #{vars\ 9963}#)
+ #{r*\ 9967}#
+ #{w*\ 9968}#
'()
'()))))))
- ((lambda (#{tmp\ 815}#)
- ((lambda (#{tmp\ 816}#)
- (if #{tmp\ 816}#
- (apply (lambda () (values #f #f)) #{tmp\ 816}#)
- ((lambda (#{tmp\ 817}#)
- (if #{tmp\ 817}#
- (apply (lambda (#{args\ 824}#
- #{e1\ 825}#
- #{e2\ 826}#
- #{args*\ 827}#
- #{e1*\ 828}#
- #{e2*\ 829}#)
+ ((lambda (#{tmp\ 9969}#)
+ ((lambda (#{tmp\ 9970}#)
+ (if #{tmp\ 9970}#
+ (apply (lambda () (values #f #f)) #{tmp\ 9970}#)
+ ((lambda (#{tmp\ 9971}#)
+ (if #{tmp\ 9971}#
+ (apply (lambda (#{args\ 9978}#
+ #{e1\ 9979}#
+ #{e2\ 9980}#
+ #{args*\ 9981}#
+ #{e1*\ 9982}#
+ #{e2*\ 9983}#)
(call-with-values
(lambda ()
- (#{get-formals\ 646}#
- #{args\ 824}#))
- (lambda (#{req\ 830}#
- #{opt\ 831}#
- #{rest\ 832}#
- #{kw\ 833}#)
+ (#{get-formals\ 9800}#
+ #{args\ 9978}#))
+ (lambda (#{req\ 9984}#
+ #{opt\ 9985}#
+ #{rest\ 9986}#
+ #{kw\ 9987}#)
(call-with-values
(lambda ()
- (#{expand-req\ 656}#
- #{req\ 830}#
- #{opt\ 831}#
- #{rest\ 832}#
- #{kw\ 833}#
- (cons #{e1\ 825}#
- #{e2\ 826}#)))
- (lambda (#{docstring\ 839}#
- #{req\ 840}#
- #{opt\ 841}#
- #{rest\ 842}#
- #{kw\ 843}#
- #{inits\ 844}#
- #{vars\ 845}#
- #{body\ 846}#)
+ (#{expand-req\ 9810}#
+ #{req\ 9984}#
+ #{opt\ 9985}#
+ #{rest\ 9986}#
+ #{kw\ 9987}#
+ (cons #{e1\ 9979}#
+ #{e2\ 9980}#)))
+ (lambda (#{docstring\ 9993}#
+ #{req\ 9994}#
+ #{opt\ 9995}#
+ #{rest\ 9996}#
+ #{kw\ 9997}#
+ #{inits\ 9998}#
+ #{vars\ 9999}#
+ #{body\ 10000}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 369}#
- #{e\ 641}#
- #{r\ 642}#
- #{w\ 643}#
- #{s\ 644}#
- #{mod\ 645}#
- #{get-formals\ 646}#
- (map (lambda (#{tmp\ 857}#
- #{tmp\ 856}#
- #{tmp\
855}#)
- (cons #{tmp\ 855}#
- (cons #{tmp\
856}#
- #{tmp\
857}#)))
- #{e2*\ 829}#
- #{e1*\ 828}#
- #{args*\ 827}#)))
- (lambda (#{docstring*\ 859}#
- #{else*\ 860}#)
+ (#{chi-lambda-case\ 9523}#
+ #{e\ 9795}#
+ #{r\ 9796}#
+ #{w\ 9797}#
+ #{s\ 9798}#
+ #{mod\ 9799}#
+ #{get-formals\ 9800}#
+ (map (lambda (#{tmp\
10011}#
+ #{tmp\
10010}#
+ #{tmp\
10009}#)
+ (cons #{tmp\
10009}#
+ (cons #{tmp\
10010}#
+ #{tmp\
10011}#)))
+ #{e2*\ 9983}#
+ #{e1*\ 9982}#
+ #{args*\ 9981}#)))
+ (lambda (#{docstring*\ 10013}#
+ #{else*\ 10014}#)
(values
- (let ((#{t\ 865}#
#{docstring\ 839}#))
- (if #{t\ 865}#
- #{t\ 865}#
- #{docstring*\ 859}#))
- (#{build-lambda-case\
206}#
- #{s\ 644}#
- #{req\ 840}#
- #{opt\ 841}#
- #{rest\ 842}#
- #{kw\ 843}#
- #{inits\ 844}#
- #{vars\ 845}#
- #{body\ 846}#
- #{else*\ 860}#)))))))))
- #{tmp\ 817}#)
+ (let ((#{t\ 10019}#
+ #{docstring\
9993}#))
+ (if #{t\ 10019}#
+ #{t\ 10019}#
+ #{docstring*\
10013}#))
+ (#{build-lambda-case\
9360}#
+ #{s\ 9798}#
+ #{req\ 9994}#
+ #{opt\ 9995}#
+ #{rest\ 9996}#
+ #{kw\ 9997}#
+ #{inits\ 9998}#
+ #{vars\ 9999}#
+ #{body\ 10000}#
+ #{else*\
10014}#)))))))))
+ #{tmp\ 9971}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 815}#)))
+ #{tmp\ 9969}#)))
($sc-dispatch
- #{tmp\ 815}#
+ #{tmp\ 9969}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 815}# (quote ()))))
- #{clauses\ 647}#))))
- (#{lambda*-formals\ 367}#
- (lambda (#{orig-args\ 867}#)
- (letrec ((#{check\ 878}#
- (lambda (#{req\ 879}#
- #{opt\ 880}#
- #{rest\ 881}#
- #{kw\ 882}#)
- (if (#{distinct-bound-ids?\ 325}#
+ ($sc-dispatch #{tmp\ 9969}# (quote ()))))
+ #{clauses\ 9801}#))))
+ (#{lambda*-formals\ 9521}#
+ (lambda (#{orig-args\ 10021}#)
+ (letrec ((#{check\ 10032}#
+ (lambda (#{req\ 10033}#
+ #{opt\ 10034}#
+ #{rest\ 10035}#
+ #{kw\ 10036}#)
+ (if (#{distinct-bound-ids?\ 9479}#
(append
- #{req\ 879}#
- (map car #{opt\ 880}#)
- (if #{rest\ 881}#
- (list #{rest\ 881}#)
+ #{req\ 10033}#
+ (map car #{opt\ 10034}#)
+ (if #{rest\ 10035}#
+ (list #{rest\ 10035}#)
'())
- (if (pair? #{kw\ 882}#)
- (map cadr (cdr #{kw\ 882}#))
+ (if (pair? #{kw\ 10036}#)
+ (map cadr (cdr #{kw\ 10036}#))
'())))
(values
- #{req\ 879}#
- #{opt\ 880}#
- #{rest\ 881}#
- #{kw\ 882}#)
+ #{req\ 10033}#
+ #{opt\ 10034}#
+ #{rest\ 10035}#
+ #{kw\ 10036}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 867}#))))
- (#{rest\ 876}#
- (lambda (#{args\ 890}#
- #{req\ 891}#
- #{opt\ 892}#
- #{kw\ 893}#)
- ((lambda (#{tmp\ 898}#)
- ((lambda (#{tmp\ 899}#)
- (if (if #{tmp\ 899}#
- (apply (lambda (#{r\ 901}#)
- (#{id?\ 260}# #{r\ 901}#))
- #{tmp\ 899}#)
+ #{orig-args\ 10021}#))))
+ (#{rest\ 10030}#
+ (lambda (#{args\ 10044}#
+ #{req\ 10045}#
+ #{opt\ 10046}#
+ #{kw\ 10047}#)
+ ((lambda (#{tmp\ 10052}#)
+ ((lambda (#{tmp\ 10053}#)
+ (if (if #{tmp\ 10053}#
+ (apply (lambda (#{r\ 10055}#)
+ (#{id?\ 9414}# #{r\ 10055}#))
+ #{tmp\ 10053}#)
#f)
- (apply (lambda (#{r\ 903}#)
- (#{check\ 878}#
- #{req\ 891}#
- #{opt\ 892}#
- #{r\ 903}#
- #{kw\ 893}#))
- #{tmp\ 899}#)
- ((lambda (#{else\ 905}#)
+ (apply (lambda (#{r\ 10057}#)
+ (#{check\ 10032}#
+ #{req\ 10045}#
+ #{opt\ 10046}#
+ #{r\ 10057}#
+ #{kw\ 10047}#))
+ #{tmp\ 10053}#)
+ ((lambda (#{else\ 10059}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 867}#
- #{args\ 890}#))
- #{tmp\ 898}#)))
- (list #{tmp\ 898}#)))
- #{args\ 890}#)))
- (#{key\ 874}#
- (lambda (#{args\ 906}#
- #{req\ 907}#
- #{opt\ 908}#
- #{rkey\ 909}#)
- ((lambda (#{tmp\ 914}#)
- ((lambda (#{tmp\ 915}#)
- (if #{tmp\ 915}#
+ #{orig-args\ 10021}#
+ #{args\ 10044}#))
+ #{tmp\ 10052}#)))
+ (list #{tmp\ 10052}#)))
+ #{args\ 10044}#)))
+ (#{key\ 10028}#
+ (lambda (#{args\ 10060}#
+ #{req\ 10061}#
+ #{opt\ 10062}#
+ #{rkey\ 10063}#)
+ ((lambda (#{tmp\ 10068}#)
+ ((lambda (#{tmp\ 10069}#)
+ (if #{tmp\ 10069}#
(apply (lambda ()
- (#{check\ 878}#
- #{req\ 907}#
- #{opt\ 908}#
+ (#{check\ 10032}#
+ #{req\ 10061}#
+ #{opt\ 10062}#
#f
(cons #f
- (reverse #{rkey\ 909}#))))
- #{tmp\ 915}#)
- ((lambda (#{tmp\ 916}#)
- (if (if #{tmp\ 916}#
- (apply (lambda (#{a\ 919}#
- #{b\ 920}#)
- (#{id?\ 260}#
- #{a\ 919}#))
- #{tmp\ 916}#)
+ (reverse
+ #{rkey\ 10063}#))))
+ #{tmp\ 10069}#)
+ ((lambda (#{tmp\ 10070}#)
+ (if (if #{tmp\ 10070}#
+ (apply (lambda (#{a\ 10073}#
+ #{b\ 10074}#)
+ (#{id?\ 9414}#
+ #{a\ 10073}#))
+ #{tmp\ 10070}#)
#f)
- (apply (lambda (#{a\ 923}# #{b\ 924}#)
- ((lambda (#{tmp\ 926}#)
- ((lambda (#{k\ 928}#)
- (#{key\ 874}#
- #{b\ 924}#
- #{req\ 907}#
- #{opt\ 908}#
- (cons (cons #{k\
928}#
- (cons
#{a\ 923}#
+ (apply (lambda (#{a\ 10077}#
+ #{b\ 10078}#)
+ ((lambda (#{tmp\ 10080}#)
+ ((lambda (#{k\ 10082}#)
+ (#{key\ 10028}#
+ #{b\ 10078}#
+ #{req\ 10061}#
+ #{opt\ 10062}#
+ (cons (cons #{k\
10082}#
+ (cons
#{a\ 10077}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
-
#("i927"))
+
#("i10081"))
#(ribcage
#(a
b)
#((top)
(top))
-
#("i921"
-
"i922"))
+
#("i10075"
+
"i10076"))
#(ribcage
()
()
@@ -618,10 +626,10 @@
(top)
(top)
(top))
-
#("i910"
-
"i911"
-
"i912"
-
"i913"))
+
#("i10064"
+
"i10065"
+
"i10066"
+
"i10067"))
#(ribcage
(check rest
key
@@ -632,15 +640,15 @@
(top)
(top)
(top))
-
("i877"
-
"i875"
-
"i873"
-
"i871"
-
"i869"))
+
("i10031"
+
"i10029"
+
"i10027"
+
"i10025"
+
"i10023"))
#(ribcage
#(orig-args)
#((top))
-
#("i868"))
+
#("i10022"))
#(ribcage
(lambda-var-list
gen-var
@@ -876,349 +884,351 @@
(top)
(top)
(top))
-
("i374"
-
"i372"
-
"i370"
-
"i368"
-
"i366"
-
"i364"
-
"i362"
-
"i360"
-
"i358"
-
"i356"
-
"i354"
-
"i352"
-
"i350"
-
"i348"
-
"i346"
-
"i344"
-
"i342"
-
"i340"
-
"i338"
-
"i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i303"
-
"i302"
-
"i300"
-
"i299"
-
"i298"
-
"i297"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i277"
-
"i275"
-
"i274"
-
"i273"
-
"i272"
-
"i271"
-
"i270"
-
"i268"
-
"i266"
-
"i264"
-
"i262"
-
"i261"
-
"i259"
-
"i257"
-
"i255"
-
"i253"
-
"i251"
-
"i249"
-
"i247"
-
"i246"
-
"i244"
-
"i242"
-
"i241"
-
"i240"
-
"i238"
-
"i237"
-
"i235"
-
"i233"
-
"i231"
-
"i229"
-
"i227"
-
"i225"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i174"
-
"i172"
-
"i170"
-
"i168"
-
"i166"
-
"i164"
-
"i162"
-
"i160"
-
"i158"))
+
("i9528"
+
"i9526"
+
"i9524"
+
"i9522"
+
"i9520"
+
"i9518"
+
"i9516"
+
"i9514"
+
"i9512"
+
"i9510"
+
"i9508"
+
"i9506"
+
"i9504"
+
"i9502"
+
"i9500"
+
"i9498"
+
"i9496"
+
"i9494"
+
"i9492"
+
"i9490"
+
"i9488"
+
"i9486"
+
"i9484"
+
"i9482"
+
"i9480"
+
"i9478"
+
"i9476"
+
"i9474"
+
"i9472"
+
"i9470"
+
"i9468"
+
"i9466"
+
"i9464"
+
"i9462"
+
"i9460"
+
"i9458"
+
"i9457"
+
"i9456"
+
"i9454"
+
"i9453"
+
"i9452"
+
"i9451"
+
"i9450"
+
"i9448"
+
"i9446"
+
"i9444"
+
"i9442"
+
"i9440"
+
"i9438"
+
"i9436"
+
"i9434"
+
"i9431"
+
"i9429"
+
"i9428"
+
"i9427"
+
"i9426"
+
"i9425"
+
"i9424"
+
"i9422"
+
"i9420"
+
"i9418"
+
"i9416"
+
"i9415"
+
"i9413"
+
"i9411"
+
"i9409"
+
"i9407"
+
"i9405"
+
"i9403"
+
"i9401"
+
"i9400"
+
"i9398"
+
"i9396"
+
"i9395"
+
"i9394"
+
"i9392"
+
"i9391"
+
"i9389"
+
"i9387"
+
"i9385"
+
"i9383"
+
"i9381"
+
"i9379"
+
"i9377"
+
"i9375"
+
"i9373"
+
"i9371"
+
"i9369"
+
"i9367"
+
"i9365"
+
"i9363"
+
"i9361"
+
"i9359"
+
"i9357"
+
"i9355"
+
"i9353"
+
"i9351"
+
"i9349"
+
"i9347"
+
"i9345"
+
"i9343"
+
"i9341"
+
"i9339"
+
"i9337"
+
"i9335"
+
"i9333"
+
"i9331"
+
"i9329"
+
"i9328"
+
"i9326"
+
"i9324"
+
"i9322"
+
"i9320"
+
"i9318"
+
"i9316"
+
"i9314"
+
"i9312"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i61"
-
"i59")))
+
("i9215"
+
"i9213")))
(hygiene
guile)))))
- #{rkey\
909}#)))
- #{tmp\ 926}#))
+ #{rkey\
10063}#)))
+ #{tmp\ 10080}#))
(symbol->keyword
(syntax->datum
- #{a\ 923}#))))
- #{tmp\ 916}#)
- ((lambda (#{tmp\ 929}#)
- (if (if #{tmp\ 929}#
- (apply (lambda (#{a\ 933}#
- #{init\ 934}#
- #{b\ 935}#)
- (#{id?\ 260}#
- #{a\ 933}#))
- #{tmp\ 929}#)
+ #{a\ 10077}#))))
+ #{tmp\ 10070}#)
+ ((lambda (#{tmp\ 10083}#)
+ (if (if #{tmp\ 10083}#
+ (apply (lambda (#{a\ 10087}#
+ #{init\
10088}#
+ #{b\ 10089}#)
+ (#{id?\ 9414}#
+ #{a\ 10087}#))
+ #{tmp\ 10083}#)
#f)
- (apply (lambda (#{a\ 939}#
- #{init\ 940}#
- #{b\ 941}#)
- ((lambda (#{tmp\ 943}#)
- ((lambda (#{k\ 945}#)
- (#{key\ 874}#
- #{b\ 941}#
- #{req\ 907}#
- #{opt\ 908}#
- (cons (list
#{k\ 945}#
-
#{a\ 939}#
-
#{init\ 940}#)
- #{rkey\
909}#)))
- #{tmp\ 943}#))
+ (apply (lambda (#{a\ 10093}#
+ #{init\ 10094}#
+ #{b\ 10095}#)
+ ((lambda (#{tmp\
10097}#)
+ ((lambda (#{k\
10099}#)
+ (#{key\ 10028}#
+ #{b\ 10095}#
+ #{req\ 10061}#
+ #{opt\ 10062}#
+ (cons (list
#{k\ 10099}#
+
#{a\ 10093}#
+
#{init\ 10094}#)
+ #{rkey\
10063}#)))
+ #{tmp\ 10097}#))
(symbol->keyword
(syntax->datum
- #{a\ 939}#))))
- #{tmp\ 929}#)
- ((lambda (#{tmp\ 946}#)
- (if (if #{tmp\ 946}#
- (apply (lambda (#{a\
951}#
- #{init\
952}#
- #{k\
953}#
- #{b\
954}#)
- (if (#{id?\
260}#
- #{a\
951}#)
+ #{a\ 10093}#))))
+ #{tmp\ 10083}#)
+ ((lambda (#{tmp\ 10100}#)
+ (if (if #{tmp\ 10100}#
+ (apply (lambda (#{a\
10105}#
+ #{init\
10106}#
+ #{k\
10107}#
+ #{b\
10108}#)
+ (if (#{id?\
9414}#
+ #{a\
10105}#)
(keyword?
(syntax->datum
- #{k\
953}#))
+ #{k\
10107}#))
#f))
- #{tmp\ 946}#)
+ #{tmp\ 10100}#)
#f)
- (apply (lambda (#{a\ 961}#
- #{init\
962}#
- #{k\ 963}#
- #{b\ 964}#)
- (#{key\ 874}#
- #{b\ 964}#
- #{req\ 907}#
- #{opt\ 908}#
- (cons (list #{k\
963}#
- #{a\
961}#
-
#{init\ 962}#)
- #{rkey\
909}#)))
- #{tmp\ 946}#)
- ((lambda (#{tmp\ 965}#)
- (if (if #{tmp\ 965}#
- (apply (lambda
(#{aok\ 967}#)
+ (apply (lambda (#{a\ 10115}#
+ #{init\
10116}#
+ #{k\ 10117}#
+ #{b\
10118}#)
+ (#{key\ 10028}#
+ #{b\ 10118}#
+ #{req\ 10061}#
+ #{opt\ 10062}#
+ (cons (list #{k\
10117}#
+ #{a\
10115}#
+
#{init\ 10116}#)
+ #{rkey\
10063}#)))
+ #{tmp\ 10100}#)
+ ((lambda (#{tmp\ 10119}#)
+ (if (if #{tmp\ 10119}#
+ (apply (lambda
(#{aok\ 10121}#)
(eq?
(syntax->datum
-
#{aok\ 967}#)
+
#{aok\ 10121}#)
#:allow-other-keys))
- #{tmp\
965}#)
+ #{tmp\
10119}#)
#f)
- (apply (lambda (#{aok\
969}#)
- (#{check\
878}#
- #{req\ 907}#
- #{opt\ 908}#
+ (apply (lambda (#{aok\
10123}#)
+ (#{check\
10032}#
+ #{req\
10061}#
+ #{opt\
10062}#
#f
(cons #t
(reverse
-
#{rkey\ 909}#))))
- #{tmp\ 965}#)
- ((lambda (#{tmp\ 970}#)
- (if (if #{tmp\ 970}#
- (apply
(lambda (#{aok\ 974}#
-
#{a\ 975}#
-
#{b\ 976}#)
+
#{rkey\ 10063}#))))
+ #{tmp\ 10119}#)
+ ((lambda (#{tmp\
10124}#)
+ (if (if #{tmp\
10124}#
+ (apply
(lambda (#{aok\ 10128}#
+
#{a\ 10129}#
+
#{b\ 10130}#)
(if
(eq? (syntax->datum
-
#{aok\ 974}#)
+
#{aok\ 10128}#)
#:allow-other-keys)
(eq? (syntax->datum
-
#{a\ 975}#)
+
#{a\ 10129}#)
#:rest)
#f))
- #{tmp\
970}#)
+ #{tmp\
10124}#)
#f)
- (apply (lambda
(#{aok\ 982}#
-
#{a\ 983}#
-
#{b\ 984}#)
- (#{rest\
876}#
- #{b\
984}#
- #{req\
907}#
- #{opt\
908}#
+ (apply (lambda
(#{aok\ 10136}#
+
#{a\ 10137}#
+
#{b\ 10138}#)
+ (#{rest\
10030}#
+ #{b\
10138}#
+ #{req\
10061}#
+ #{opt\
10062}#
(cons
#t
(reverse
-
#{rkey\ 909}#))))
- #{tmp\
970}#)
- ((lambda (#{tmp\
985}#)
- (if (if #{tmp\
985}#
- (apply
(lambda (#{aok\ 988}#
-
#{r\ 989}#)
+
#{rkey\ 10063}#))))
+ #{tmp\
10124}#)
+ ((lambda (#{tmp\
10139}#)
+ (if (if #{tmp\
10139}#
+ (apply
(lambda (#{aok\ 10142}#
+
#{r\ 10143}#)
(if (eq? (syntax->datum
-
#{aok\ 988}#)
+
#{aok\ 10142}#)
#:allow-other-keys)
-
(#{id?\ 260}#
-
#{r\ 989}#)
+
(#{id?\ 9414}#
+
#{r\ 10143}#)
#f))
-
#{tmp\ 985}#)
+
#{tmp\ 10139}#)
#f)
- (apply
(lambda (#{aok\ 994}#
-
#{r\ 995}#)
-
(#{rest\ 876}#
-
#{r\ 995}#
-
#{req\ 907}#
-
#{opt\ 908}#
+ (apply
(lambda (#{aok\ 10148}#
+
#{r\ 10149}#)
+
(#{rest\ 10030}#
+
#{r\ 10149}#
+
#{req\ 10061}#
+
#{opt\ 10062}#
(cons #t
(reverse
-
#{rkey\ 909}#))))
-
#{tmp\ 985}#)
- ((lambda
(#{tmp\ 996}#)
- (if (if
#{tmp\ 996}#
-
(apply (lambda (#{a\ 999}#
-
#{b\ 1000}#)
+
#{rkey\ 10063}#))))
+
#{tmp\ 10139}#)
+ ((lambda
(#{tmp\ 10150}#)
+ (if (if
#{tmp\ 10150}#
+
(apply (lambda (#{a\ 10153}#
+
#{b\ 10154}#)
(eq? (syntax->datum
-
#{a\ 999}#)
+
#{a\ 10153}#)
#:rest))
-
#{tmp\ 996}#)
+
#{tmp\ 10150}#)
#f)
- (apply
(lambda (#{a\ 1003}#
-
#{b\ 1004}#)
-
(#{rest\ 876}#
-
#{b\ 1004}#
-
#{req\ 907}#
-
#{opt\ 908}#
+ (apply
(lambda (#{a\ 10157}#
+
#{b\ 10158}#)
+
(#{rest\ 10030}#
+
#{b\ 10158}#
+
#{req\ 10061}#
+
#{opt\ 10062}#
(cons #f
(reverse
-
#{rkey\ 909}#))))
-
#{tmp\ 996}#)
-
((lambda (#{tmp\ 1005}#)
- (if
(if #{tmp\ 1005}#
-
(apply (lambda (#{r\ 1007}#)
-
(#{id?\ 260}#
-
#{r\ 1007}#))
-
#{tmp\ 1005}#)
+
#{rkey\ 10063}#))))
+
#{tmp\ 10150}#)
+
((lambda (#{tmp\ 10159}#)
+ (if
(if #{tmp\ 10159}#
+
(apply (lambda (#{r\ 10161}#)
+
(#{id?\ 9414}#
+
#{r\ 10161}#))
+
#{tmp\ 10159}#)
#f)
-
(apply (lambda (#{r\ 1009}#)
-
(#{rest\ 876}#
-
#{r\ 1009}#
-
#{req\ 907}#
-
#{opt\ 908}#
+
(apply (lambda (#{r\ 10163}#)
+
(#{rest\ 10030}#
+
#{r\ 10163}#
+
#{req\ 10061}#
+
#{opt\ 10062}#
(cons #f
(reverse
-
#{rkey\ 909}#))))
-
#{tmp\ 1005}#)
-
((lambda (#{else\ 1011}#)
+
#{rkey\ 10063}#))))
+
#{tmp\ 10159}#)
+
((lambda (#{else\ 10165}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
-
#{orig-args\ 867}#
-
#{args\ 906}#))
-
#{tmp\ 914}#)))
- (list
#{tmp\ 914}#))))
+
#{orig-args\ 10021}#
+
#{args\ 10060}#))
+
#{tmp\ 10068}#)))
+ (list
#{tmp\ 10068}#))))
($sc-dispatch
- #{tmp\
914}#
+ #{tmp\
10068}#
'(any
any)))))
($sc-dispatch
- #{tmp\ 914}#
+ #{tmp\ 10068}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 914}#
+ #{tmp\ 10068}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 914}#
+ #{tmp\ 10068}#
'(any)))))
($sc-dispatch
- #{tmp\ 914}#
+ #{tmp\ 10068}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 914}#
+ #{tmp\ 10068}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 914}#
+ #{tmp\ 10068}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 914}# (quote ()))))
- #{args\ 906}#)))
- (#{opt\ 872}#
- (lambda (#{args\ 1012}# #{req\ 1013}# #{ropt\ 1014}#)
- ((lambda (#{tmp\ 1018}#)
- ((lambda (#{tmp\ 1019}#)
- (if #{tmp\ 1019}#
+ ($sc-dispatch #{tmp\ 10068}# (quote ()))))
+ #{args\ 10060}#)))
+ (#{opt\ 10026}#
+ (lambda (#{args\ 10166}#
+ #{req\ 10167}#
+ #{ropt\ 10168}#)
+ ((lambda (#{tmp\ 10172}#)
+ ((lambda (#{tmp\ 10173}#)
+ (if #{tmp\ 10173}#
(apply (lambda ()
- (#{check\ 878}#
- #{req\ 1013}#
- (reverse #{ropt\ 1014}#)
+ (#{check\ 10032}#
+ #{req\ 10167}#
+ (reverse #{ropt\ 10168}#)
#f
'()))
- #{tmp\ 1019}#)
- ((lambda (#{tmp\ 1020}#)
- (if (if #{tmp\ 1020}#
- (apply (lambda (#{a\ 1023}#
- #{b\ 1024}#)
- (#{id?\ 260}#
- #{a\ 1023}#))
- #{tmp\ 1020}#)
+ #{tmp\ 10173}#)
+ ((lambda (#{tmp\ 10174}#)
+ (if (if #{tmp\ 10174}#
+ (apply (lambda (#{a\ 10177}#
+ #{b\ 10178}#)
+ (#{id?\ 9414}#
+ #{a\ 10177}#))
+ #{tmp\ 10174}#)
#f)
- (apply (lambda (#{a\ 1027}#
- #{b\ 1028}#)
- (#{opt\ 872}#
- #{b\ 1028}#
- #{req\ 1013}#
- (cons (cons #{a\ 1027}#
+ (apply (lambda (#{a\ 10181}#
+ #{b\ 10182}#)
+ (#{opt\ 10026}#
+ #{b\ 10182}#
+ #{req\ 10167}#
+ (cons (cons #{a\ 10181}#
'(#(syntax-object
#f
((top)
@@ -1226,8 +1236,8 @@
#(a b)
#((top)
(top))
-
#("i1025"
-
"i1026"))
+
#("i10179"
+
"i10180"))
#(ribcage
()
()
@@ -1239,9 +1249,9 @@
#((top)
(top)
(top))
-
#("i1015"
-
"i1016"
-
"i1017"))
+
#("i10169"
+
"i10170"
+
"i10171"))
#(ribcage
(check
rest
key
@@ -1252,15 +1262,15 @@
(top)
(top)
(top))
- ("i877"
- "i875"
- "i873"
- "i871"
-
"i869"))
+
("i10031"
+
"i10029"
+
"i10027"
+
"i10025"
+
"i10023"))
#(ribcage
#(orig-args)
#((top))
-
#("i868"))
+
#("i10022"))
#(ribcage
(lambda-var-list
gen-var
@@ -1496,462 +1506,462 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
-
"i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+
"i9312"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i61"
-
"i59")))
+ ("i9215"
+
"i9213")))
(hygiene
guile))))
- #{ropt\ 1014}#)))
- #{tmp\ 1020}#)
- ((lambda (#{tmp\ 1029}#)
- (if (if #{tmp\ 1029}#
- (apply (lambda (#{a\ 1033}#
- #{init\
1034}#
- #{b\ 1035}#)
- (#{id?\ 260}#
- #{a\ 1033}#))
- #{tmp\ 1029}#)
+ #{ropt\ 10168}#)))
+ #{tmp\ 10174}#)
+ ((lambda (#{tmp\ 10183}#)
+ (if (if #{tmp\ 10183}#
+ (apply (lambda (#{a\ 10187}#
+ #{init\
10188}#
+ #{b\ 10189}#)
+ (#{id?\ 9414}#
+ #{a\ 10187}#))
+ #{tmp\ 10183}#)
#f)
- (apply (lambda (#{a\ 1039}#
- #{init\ 1040}#
- #{b\ 1041}#)
- (#{opt\ 872}#
- #{b\ 1041}#
- #{req\ 1013}#
- (cons (list #{a\
1039}#
- #{init\
1040}#)
- #{ropt\
1014}#)))
- #{tmp\ 1029}#)
- ((lambda (#{tmp\ 1042}#)
- (if (if #{tmp\ 1042}#
- (apply (lambda (#{a\
1045}#
- #{b\
1046}#)
+ (apply (lambda (#{a\ 10193}#
+ #{init\ 10194}#
+ #{b\ 10195}#)
+ (#{opt\ 10026}#
+ #{b\ 10195}#
+ #{req\ 10167}#
+ (cons (list #{a\
10193}#
+ #{init\
10194}#)
+ #{ropt\
10168}#)))
+ #{tmp\ 10183}#)
+ ((lambda (#{tmp\ 10196}#)
+ (if (if #{tmp\ 10196}#
+ (apply (lambda (#{a\
10199}#
+ #{b\
10200}#)
(eq?
(syntax->datum
- #{a\
1045}#)
+ #{a\
10199}#)
#:key))
- #{tmp\ 1042}#)
+ #{tmp\ 10196}#)
#f)
- (apply (lambda (#{a\ 1049}#
- #{b\ 1050}#)
- (#{key\ 874}#
- #{b\ 1050}#
- #{req\ 1013}#
+ (apply (lambda (#{a\ 10203}#
+ #{b\
10204}#)
+ (#{key\ 10028}#
+ #{b\ 10204}#
+ #{req\ 10167}#
(reverse
- #{ropt\ 1014}#)
+ #{ropt\
10168}#)
'()))
- #{tmp\ 1042}#)
- ((lambda (#{tmp\ 1051}#)
- (if (if #{tmp\ 1051}#
- (apply (lambda
(#{a\ 1054}#
-
#{b\ 1055}#)
+ #{tmp\ 10196}#)
+ ((lambda (#{tmp\ 10205}#)
+ (if (if #{tmp\ 10205}#
+ (apply (lambda
(#{a\ 10208}#
+
#{b\ 10209}#)
(eq?
(syntax->datum
-
#{a\ 1054}#)
+
#{a\ 10208}#)
#:rest))
- #{tmp\
1051}#)
+ #{tmp\
10205}#)
#f)
- (apply (lambda (#{a\
1058}#
- #{b\
1059}#)
- (#{rest\ 876}#
- #{b\ 1059}#
- #{req\
1013}#
+ (apply (lambda (#{a\
10212}#
+ #{b\
10213}#)
+ (#{rest\
10030}#
+ #{b\ 10213}#
+ #{req\
10167}#
(reverse
- #{ropt\
1014}#)
+ #{ropt\
10168}#)
'()))
- #{tmp\ 1051}#)
- ((lambda (#{tmp\
1060}#)
- (if (if #{tmp\
1060}#
- (apply
(lambda (#{r\ 1062}#)
-
(#{id?\ 260}#
-
#{r\ 1062}#))
- #{tmp\
1060}#)
+ #{tmp\ 10205}#)
+ ((lambda (#{tmp\
10214}#)
+ (if (if #{tmp\
10214}#
+ (apply
(lambda (#{r\ 10216}#)
+
(#{id?\ 9414}#
+
#{r\ 10216}#))
+ #{tmp\
10214}#)
#f)
- (apply (lambda
(#{r\ 1064}#)
- (#{rest\
876}#
- #{r\
1064}#
- #{req\
1013}#
+ (apply (lambda
(#{r\ 10218}#)
+ (#{rest\
10030}#
+ #{r\
10218}#
+ #{req\
10167}#
(reverse
-
#{ropt\ 1014}#)
+
#{ropt\ 10168}#)
'()))
- #{tmp\
1060}#)
- ((lambda (#{else\
1066}#)
+ #{tmp\
10214}#)
+ ((lambda (#{else\
10220}#)
(syntax-violation
'lambda*
"invalid
optional argument list"
- #{orig-args\
867}#
- #{args\
1012}#))
- #{tmp\ 1018}#)))
- (list #{tmp\
1018}#))))
+ #{orig-args\
10021}#
+ #{args\
10166}#))
+ #{tmp\ 10172}#)))
+ (list #{tmp\
10172}#))))
($sc-dispatch
- #{tmp\ 1018}#
+ #{tmp\ 10172}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1018}#
+ #{tmp\ 10172}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1018}#
+ #{tmp\ 10172}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 1018}#
+ #{tmp\ 10172}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1018}# (quote ()))))
- #{args\ 1012}#)))
- (#{req\ 870}#
- (lambda (#{args\ 1067}# #{rreq\ 1068}#)
- ((lambda (#{tmp\ 1071}#)
- ((lambda (#{tmp\ 1072}#)
- (if #{tmp\ 1072}#
+ ($sc-dispatch #{tmp\ 10172}# (quote ()))))
+ #{args\ 10166}#)))
+ (#{req\ 10024}#
+ (lambda (#{args\ 10221}# #{rreq\ 10222}#)
+ ((lambda (#{tmp\ 10225}#)
+ ((lambda (#{tmp\ 10226}#)
+ (if #{tmp\ 10226}#
(apply (lambda ()
- (#{check\ 878}#
- (reverse #{rreq\ 1068}#)
+ (#{check\ 10032}#
+ (reverse #{rreq\ 10222}#)
'()
#f
'()))
- #{tmp\ 1072}#)
- ((lambda (#{tmp\ 1073}#)
- (if (if #{tmp\ 1073}#
- (apply (lambda (#{a\ 1076}#
- #{b\ 1077}#)
- (#{id?\ 260}#
- #{a\ 1076}#))
- #{tmp\ 1073}#)
+ #{tmp\ 10226}#)
+ ((lambda (#{tmp\ 10227}#)
+ (if (if #{tmp\ 10227}#
+ (apply (lambda (#{a\ 10230}#
+ #{b\ 10231}#)
+ (#{id?\ 9414}#
+ #{a\ 10230}#))
+ #{tmp\ 10227}#)
#f)
- (apply (lambda (#{a\ 1080}#
- #{b\ 1081}#)
- (#{req\ 870}#
- #{b\ 1081}#
- (cons #{a\ 1080}#
- #{rreq\ 1068}#)))
- #{tmp\ 1073}#)
- ((lambda (#{tmp\ 1082}#)
- (if (if #{tmp\ 1082}#
- (apply (lambda (#{a\ 1085}#
- #{b\ 1086}#)
+ (apply (lambda (#{a\ 10234}#
+ #{b\ 10235}#)
+ (#{req\ 10024}#
+ #{b\ 10235}#
+ (cons #{a\ 10234}#
+ #{rreq\ 10222}#)))
+ #{tmp\ 10227}#)
+ ((lambda (#{tmp\ 10236}#)
+ (if (if #{tmp\ 10236}#
+ (apply (lambda (#{a\ 10239}#
+ #{b\ 10240}#)
(eq? (syntax->datum
- #{a\ 1085}#)
+ #{a\ 10239}#)
#:optional))
- #{tmp\ 1082}#)
+ #{tmp\ 10236}#)
#f)
- (apply (lambda (#{a\ 1089}#
- #{b\ 1090}#)
- (#{opt\ 872}#
- #{b\ 1090}#
+ (apply (lambda (#{a\ 10243}#
+ #{b\ 10244}#)
+ (#{opt\ 10026}#
+ #{b\ 10244}#
(reverse
- #{rreq\ 1068}#)
+ #{rreq\ 10222}#)
'()))
- #{tmp\ 1082}#)
- ((lambda (#{tmp\ 1091}#)
- (if (if #{tmp\ 1091}#
- (apply (lambda (#{a\
1094}#
- #{b\
1095}#)
+ #{tmp\ 10236}#)
+ ((lambda (#{tmp\ 10245}#)
+ (if (if #{tmp\ 10245}#
+ (apply (lambda (#{a\
10248}#
+ #{b\
10249}#)
(eq?
(syntax->datum
- #{a\
1094}#)
+ #{a\
10248}#)
#:key))
- #{tmp\ 1091}#)
+ #{tmp\ 10245}#)
#f)
- (apply (lambda (#{a\ 1098}#
- #{b\ 1099}#)
- (#{key\ 874}#
- #{b\ 1099}#
+ (apply (lambda (#{a\ 10252}#
+ #{b\
10253}#)
+ (#{key\ 10028}#
+ #{b\ 10253}#
(reverse
- #{rreq\ 1068}#)
+ #{rreq\
10222}#)
'()
'()))
- #{tmp\ 1091}#)
- ((lambda (#{tmp\ 1100}#)
- (if (if #{tmp\ 1100}#
- (apply (lambda
(#{a\ 1103}#
-
#{b\ 1104}#)
+ #{tmp\ 10245}#)
+ ((lambda (#{tmp\ 10254}#)
+ (if (if #{tmp\ 10254}#
+ (apply (lambda
(#{a\ 10257}#
+
#{b\ 10258}#)
(eq?
(syntax->datum
-
#{a\ 1103}#)
+
#{a\ 10257}#)
#:rest))
- #{tmp\
1100}#)
+ #{tmp\
10254}#)
#f)
- (apply (lambda (#{a\
1107}#
- #{b\
1108}#)
- (#{rest\ 876}#
- #{b\ 1108}#
+ (apply (lambda (#{a\
10261}#
+ #{b\
10262}#)
+ (#{rest\
10030}#
+ #{b\ 10262}#
(reverse
- #{rreq\
1068}#)
+ #{rreq\
10222}#)
'()
'()))
- #{tmp\ 1100}#)
- ((lambda (#{tmp\
1109}#)
- (if (if #{tmp\
1109}#
- (apply
(lambda (#{r\ 1111}#)
-
(#{id?\ 260}#
-
#{r\ 1111}#))
- #{tmp\
1109}#)
+ #{tmp\ 10254}#)
+ ((lambda (#{tmp\
10263}#)
+ (if (if #{tmp\
10263}#
+ (apply
(lambda (#{r\ 10265}#)
+
(#{id?\ 9414}#
+
#{r\ 10265}#))
+ #{tmp\
10263}#)
#f)
- (apply (lambda
(#{r\ 1113}#)
- (#{rest\
876}#
- #{r\
1113}#
+ (apply (lambda
(#{r\ 10267}#)
+ (#{rest\
10030}#
+ #{r\
10267}#
(reverse
-
#{rreq\ 1068}#)
+
#{rreq\ 10222}#)
'()
'()))
- #{tmp\
1109}#)
- ((lambda (#{else\
1115}#)
+ #{tmp\
10263}#)
+ ((lambda (#{else\
10269}#)
(syntax-violation
'lambda*
"invalid
argument list"
- #{orig-args\
867}#
- #{args\
1067}#))
- #{tmp\ 1071}#)))
- (list #{tmp\
1071}#))))
+ #{orig-args\
10021}#
+ #{args\
10221}#))
+ #{tmp\ 10225}#)))
+ (list #{tmp\
10225}#))))
($sc-dispatch
- #{tmp\ 1071}#
+ #{tmp\ 10225}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1071}#
+ #{tmp\ 10225}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1071}#
+ #{tmp\ 10225}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1071}#
+ #{tmp\ 10225}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1071}# (quote ()))))
- #{args\ 1067}#))))
- (#{req\ 870}# #{orig-args\ 867}# (quote ())))))
- (#{chi-simple-lambda\ 365}#
- (lambda (#{e\ 1116}#
- #{r\ 1117}#
- #{w\ 1118}#
- #{s\ 1119}#
- #{mod\ 1120}#
- #{req\ 1121}#
- #{rest\ 1122}#
- #{docstring\ 1123}#
- #{body\ 1124}#)
- (let ((#{ids\ 1136}#
- (if #{rest\ 1122}#
- (append #{req\ 1121}# (list #{rest\ 1122}#))
- #{req\ 1121}#)))
- (let ((#{vars\ 1138}#
- (map #{gen-var\ 373}# #{ids\ 1136}#)))
- (let ((#{labels\ 1140}#
- (#{gen-labels\ 278}# #{ids\ 1136}#)))
- (#{build-simple-lambda\ 202}#
- #{s\ 1119}#
- (map syntax->datum #{req\ 1121}#)
- (if #{rest\ 1122}#
- (syntax->datum #{rest\ 1122}#)
+ ($sc-dispatch #{tmp\ 10225}# (quote ()))))
+ #{args\ 10221}#))))
+ (#{req\ 10024}# #{orig-args\ 10021}# (quote ())))))
+ (#{chi-simple-lambda\ 9519}#
+ (lambda (#{e\ 10270}#
+ #{r\ 10271}#
+ #{w\ 10272}#
+ #{s\ 10273}#
+ #{mod\ 10274}#
+ #{req\ 10275}#
+ #{rest\ 10276}#
+ #{docstring\ 10277}#
+ #{body\ 10278}#)
+ (let ((#{ids\ 10290}#
+ (if #{rest\ 10276}#
+ (append #{req\ 10275}# (list #{rest\ 10276}#))
+ #{req\ 10275}#)))
+ (let ((#{vars\ 10292}#
+ (map #{gen-var\ 9527}# #{ids\ 10290}#)))
+ (let ((#{labels\ 10294}#
+ (#{gen-labels\ 9432}# #{ids\ 10290}#)))
+ (#{build-simple-lambda\ 9356}#
+ #{s\ 10273}#
+ (map syntax->datum #{req\ 10275}#)
+ (if #{rest\ 10276}#
+ (syntax->datum #{rest\ 10276}#)
#f)
- #{vars\ 1138}#
- #{docstring\ 1123}#
- (#{chi-body\ 353}#
- #{body\ 1124}#
- (#{source-wrap\ 331}#
- #{e\ 1116}#
- #{w\ 1118}#
- #{s\ 1119}#
- #{mod\ 1120}#)
- (#{extend-var-env\ 250}#
- #{labels\ 1140}#
- #{vars\ 1138}#
- #{r\ 1117}#)
- (#{make-binding-wrap\ 307}#
- #{ids\ 1136}#
- #{labels\ 1140}#
- #{w\ 1118}#)
- #{mod\ 1120}#)))))))
- (#{lambda-formals\ 363}#
- (lambda (#{orig-args\ 1143}#)
- (letrec ((#{check\ 1148}#
- (lambda (#{req\ 1149}# #{rest\ 1150}#)
- (if (#{distinct-bound-ids?\ 325}#
- (if #{rest\ 1150}#
- (cons #{rest\ 1150}# #{req\ 1149}#)
- #{req\ 1149}#))
- (values #{req\ 1149}# #f #{rest\ 1150}# #f)
+ #{vars\ 10292}#
+ #{docstring\ 10277}#
+ (#{chi-body\ 9507}#
+ #{body\ 10278}#
+ (#{source-wrap\ 9485}#
+ #{e\ 10270}#
+ #{w\ 10272}#
+ #{s\ 10273}#
+ #{mod\ 10274}#)
+ (#{extend-var-env\ 9404}#
+ #{labels\ 10294}#
+ #{vars\ 10292}#
+ #{r\ 10271}#)
+ (#{make-binding-wrap\ 9461}#
+ #{ids\ 10290}#
+ #{labels\ 10294}#
+ #{w\ 10272}#)
+ #{mod\ 10274}#)))))))
+ (#{lambda-formals\ 9517}#
+ (lambda (#{orig-args\ 10297}#)
+ (letrec ((#{check\ 10302}#
+ (lambda (#{req\ 10303}# #{rest\ 10304}#)
+ (if (#{distinct-bound-ids?\ 9479}#
+ (if #{rest\ 10304}#
+ (cons #{rest\ 10304}# #{req\ 10303}#)
+ #{req\ 10303}#))
+ (values #{req\ 10303}# #f #{rest\ 10304}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 1143}#))))
- (#{req\ 1146}#
- (lambda (#{args\ 1156}# #{rreq\ 1157}#)
- ((lambda (#{tmp\ 1160}#)
- ((lambda (#{tmp\ 1161}#)
- (if #{tmp\ 1161}#
+ #{orig-args\ 10297}#))))
+ (#{req\ 10300}#
+ (lambda (#{args\ 10310}# #{rreq\ 10311}#)
+ ((lambda (#{tmp\ 10314}#)
+ ((lambda (#{tmp\ 10315}#)
+ (if #{tmp\ 10315}#
(apply (lambda ()
- (#{check\ 1148}#
- (reverse #{rreq\ 1157}#)
+ (#{check\ 10302}#
+ (reverse #{rreq\ 10311}#)
#f))
- #{tmp\ 1161}#)
- ((lambda (#{tmp\ 1162}#)
- (if (if #{tmp\ 1162}#
- (apply (lambda (#{a\ 1165}#
- #{b\ 1166}#)
- (#{id?\ 260}#
- #{a\ 1165}#))
- #{tmp\ 1162}#)
+ #{tmp\ 10315}#)
+ ((lambda (#{tmp\ 10316}#)
+ (if (if #{tmp\ 10316}#
+ (apply (lambda (#{a\ 10319}#
+ #{b\ 10320}#)
+ (#{id?\ 9414}#
+ #{a\ 10319}#))
+ #{tmp\ 10316}#)
#f)
- (apply (lambda (#{a\ 1169}#
- #{b\ 1170}#)
- (#{req\ 1146}#
- #{b\ 1170}#
- (cons #{a\ 1169}#
- #{rreq\ 1157}#)))
- #{tmp\ 1162}#)
- ((lambda (#{tmp\ 1171}#)
- (if (if #{tmp\ 1171}#
- (apply (lambda (#{r\ 1173}#)
- (#{id?\ 260}#
- #{r\ 1173}#))
- #{tmp\ 1171}#)
+ (apply (lambda (#{a\ 10323}#
+ #{b\ 10324}#)
+ (#{req\ 10300}#
+ #{b\ 10324}#
+ (cons #{a\ 10323}#
+ #{rreq\ 10311}#)))
+ #{tmp\ 10316}#)
+ ((lambda (#{tmp\ 10325}#)
+ (if (if #{tmp\ 10325}#
+ (apply (lambda (#{r\ 10327}#)
+ (#{id?\ 9414}#
+ #{r\ 10327}#))
+ #{tmp\ 10325}#)
#f)
- (apply (lambda (#{r\ 1175}#)
- (#{check\ 1148}#
+ (apply (lambda (#{r\ 10329}#)
+ (#{check\ 10302}#
(reverse
- #{rreq\ 1157}#)
- #{r\ 1175}#))
- #{tmp\ 1171}#)
- ((lambda (#{else\ 1177}#)
+ #{rreq\ 10311}#)
+ #{r\ 10329}#))
+ #{tmp\ 10325}#)
+ ((lambda (#{else\ 10331}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 1143}#
- #{args\ 1156}#))
- #{tmp\ 1160}#)))
- (list #{tmp\ 1160}#))))
+ #{orig-args\ 10297}#
+ #{args\ 10310}#))
+ #{tmp\ 10314}#)))
+ (list #{tmp\ 10314}#))))
($sc-dispatch
- #{tmp\ 1160}#
+ #{tmp\ 10314}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1160}# (quote ()))))
- #{args\ 1156}#))))
- (#{req\ 1146}# #{orig-args\ 1143}# (quote ())))))
- (#{ellipsis?\ 361}#
- (lambda (#{x\ 1178}#)
- (if (#{nonsymbol-id?\ 258}# #{x\ 1178}#)
- (#{free-id=?\ 319}#
- #{x\ 1178}#
+ ($sc-dispatch #{tmp\ 10314}# (quote ()))))
+ #{args\ 10310}#))))
+ (#{req\ 10300}# #{orig-args\ 10297}# (quote ())))))
+ (#{ellipsis?\ 9515}#
+ (lambda (#{x\ 10332}#)
+ (if (#{nonsymbol-id?\ 9412}# #{x\ 10332}#)
+ (#{free-id=?\ 9473}#
+ #{x\ 10332}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1179"))
+ #(ribcage #(x) #((top)) #("i10333"))
#(ribcage
(lambda-var-list
gen-var
@@ -2187,1366 +2197,1372 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
- "i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+ "i9312"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i61" "i59")))
+ ("i9215" "i9213")))
(hygiene guile)))
#f)))
- (#{chi-void\ 359}#
- (lambda () (#{build-void\ 182}# #f)))
- (#{eval-local-transformer\ 357}#
- (lambda (#{expanded\ 1183}# #{mod\ 1184}#)
- (let ((#{p\ 1188}#
- (#{local-eval-hook\ 173}#
- #{expanded\ 1183}#
- #{mod\ 1184}#)))
- (if (procedure? #{p\ 1188}#)
- (cons #{p\ 1188}# (module-name (current-module)))
+ (#{chi-void\ 9513}#
+ (lambda () (#{build-void\ 9336}# #f)))
+ (#{eval-local-transformer\ 9511}#
+ (lambda (#{expanded\ 10337}# #{mod\ 10338}#)
+ (let ((#{p\ 10342}#
+ (#{local-eval-hook\ 9327}#
+ #{expanded\ 10337}#
+ #{mod\ 10338}#)))
+ (if (procedure? #{p\ 10342}#)
+ (cons #{p\ 10342}#
+ (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 1188}#)))))
- (#{chi-local-syntax\ 355}#
- (lambda (#{rec?\ 1189}#
- #{e\ 1190}#
- #{r\ 1191}#
- #{w\ 1192}#
- #{s\ 1193}#
- #{mod\ 1194}#
- #{k\ 1195}#)
- ((lambda (#{tmp\ 1203}#)
- ((lambda (#{tmp\ 1204}#)
- (if #{tmp\ 1204}#
- (apply (lambda (#{_\ 1210}#
- #{id\ 1211}#
- #{val\ 1212}#
- #{e1\ 1213}#
- #{e2\ 1214}#)
- (let ((#{ids\ 1216}# #{id\ 1211}#))
- (if (not (#{valid-bound-ids?\ 323}#
- #{ids\ 1216}#))
+ #{p\ 10342}#)))))
+ (#{chi-local-syntax\ 9509}#
+ (lambda (#{rec?\ 10343}#
+ #{e\ 10344}#
+ #{r\ 10345}#
+ #{w\ 10346}#
+ #{s\ 10347}#
+ #{mod\ 10348}#
+ #{k\ 10349}#)
+ ((lambda (#{tmp\ 10357}#)
+ ((lambda (#{tmp\ 10358}#)
+ (if #{tmp\ 10358}#
+ (apply (lambda (#{_\ 10364}#
+ #{id\ 10365}#
+ #{val\ 10366}#
+ #{e1\ 10367}#
+ #{e2\ 10368}#)
+ (let ((#{ids\ 10370}# #{id\ 10365}#))
+ (if (not (#{valid-bound-ids?\ 9477}#
+ #{ids\ 10370}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 1190}#)
- (let ((#{labels\ 1219}#
- (#{gen-labels\ 278}#
- #{ids\ 1216}#)))
- (let ((#{new-w\ 1221}#
- (#{make-binding-wrap\ 307}#
- #{ids\ 1216}#
- #{labels\ 1219}#
- #{w\ 1192}#)))
- (#{k\ 1195}#
- (cons #{e1\ 1213}# #{e2\ 1214}#)
- (#{extend-env\ 248}#
- #{labels\ 1219}#
- (let ((#{w\ 1225}#
- (if #{rec?\ 1189}#
- #{new-w\ 1221}#
- #{w\ 1192}#))
- (#{trans-r\ 1226}#
- (#{macros-only-env\ 252}#
- #{r\ 1191}#)))
- (map (lambda (#{x\ 1227}#)
+ #{e\ 10344}#)
+ (let ((#{labels\ 10373}#
+ (#{gen-labels\ 9432}#
+ #{ids\ 10370}#)))
+ (let ((#{new-w\ 10375}#
+ (#{make-binding-wrap\ 9461}#
+ #{ids\ 10370}#
+ #{labels\ 10373}#
+ #{w\ 10346}#)))
+ (#{k\ 10349}#
+ (cons #{e1\ 10367}# #{e2\ 10368}#)
+ (#{extend-env\ 9402}#
+ #{labels\ 10373}#
+ (let ((#{w\ 10379}#
+ (if #{rec?\ 10343}#
+ #{new-w\ 10375}#
+ #{w\ 10346}#))
+ (#{trans-r\ 10380}#
+ (#{macros-only-env\ 9406}#
+ #{r\ 10345}#)))
+ (map (lambda (#{x\ 10381}#)
(cons 'macro
-
(#{eval-local-transformer\ 357}#
- (#{chi\ 345}#
- #{x\ 1227}#
- #{trans-r\
1226}#
- #{w\ 1225}#
- #{mod\ 1194}#)
- #{mod\ 1194}#)))
- #{val\ 1212}#))
- #{r\ 1191}#)
- #{new-w\ 1221}#
- #{s\ 1193}#
- #{mod\ 1194}#))))))
- #{tmp\ 1204}#)
- ((lambda (#{_\ 1232}#)
+
(#{eval-local-transformer\ 9511}#
+ (#{chi\ 9499}#
+ #{x\ 10381}#
+ #{trans-r\
10380}#
+ #{w\ 10379}#
+ #{mod\ 10348}#)
+ #{mod\ 10348}#)))
+ #{val\ 10366}#))
+ #{r\ 10345}#)
+ #{new-w\ 10375}#
+ #{s\ 10347}#
+ #{mod\ 10348}#))))))
+ #{tmp\ 10358}#)
+ ((lambda (#{_\ 10386}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 331}#
- #{e\ 1190}#
- #{w\ 1192}#
- #{s\ 1193}#
- #{mod\ 1194}#)))
- #{tmp\ 1203}#)))
+ (#{source-wrap\ 9485}#
+ #{e\ 10344}#
+ #{w\ 10346}#
+ #{s\ 10347}#
+ #{mod\ 10348}#)))
+ #{tmp\ 10357}#)))
($sc-dispatch
- #{tmp\ 1203}#
+ #{tmp\ 10357}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1190}#)))
- (#{chi-body\ 353}#
- (lambda (#{body\ 1233}#
- #{outer-form\ 1234}#
- #{r\ 1235}#
- #{w\ 1236}#
- #{mod\ 1237}#)
- (let ((#{r\ 1245}#
+ #{e\ 10344}#)))
+ (#{chi-body\ 9507}#
+ (lambda (#{body\ 10387}#
+ #{outer-form\ 10388}#
+ #{r\ 10389}#
+ #{w\ 10390}#
+ #{mod\ 10391}#)
+ (let ((#{r\ 10399}#
(cons '("placeholder" placeholder)
- #{r\ 1235}#)))
- (let ((#{ribcage\ 1247}#
- (#{make-ribcage\ 281}#
+ #{r\ 10389}#)))
+ (let ((#{ribcage\ 10401}#
+ (#{make-ribcage\ 9435}#
'()
'()
'())))
- (let ((#{w\ 1250}#
- (#{make-wrap\ 265}#
- (#{wrap-marks\ 267}# #{w\ 1236}#)
- (cons #{ribcage\ 1247}#
- (#{wrap-subst\ 269}# #{w\ 1236}#)))))
- (letrec ((#{parse\ 1259}#
- (lambda (#{body\ 1260}#
- #{ids\ 1261}#
- #{labels\ 1262}#
- #{var-ids\ 1263}#
- #{vars\ 1264}#
- #{vals\ 1265}#
- #{bindings\ 1266}#)
- (if (null? #{body\ 1260}#)
+ (let ((#{w\ 10404}#
+ (#{make-wrap\ 9419}#
+ (#{wrap-marks\ 9421}# #{w\ 10390}#)
+ (cons #{ribcage\ 10401}#
+ (#{wrap-subst\ 9423}# #{w\ 10390}#)))))
+ (letrec ((#{parse\ 10413}#
+ (lambda (#{body\ 10414}#
+ #{ids\ 10415}#
+ #{labels\ 10416}#
+ #{var-ids\ 10417}#
+ #{vars\ 10418}#
+ #{vals\ 10419}#
+ #{bindings\ 10420}#)
+ (if (null? #{body\ 10414}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1234}#)
- (let ((#{e\ 1271}# (cdar #{body\ 1260}#))
- (#{er\ 1272}# (caar #{body\ 1260}#)))
+ #{outer-form\ 10388}#)
+ (let ((#{e\ 10425}# (cdar #{body\ 10414}#))
+ (#{er\ 10426}#
+ (caar #{body\ 10414}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 341}#
- #{e\ 1271}#
- #{er\ 1272}#
+ (#{syntax-type\ 9495}#
+ #{e\ 10425}#
+ #{er\ 10426}#
'(())
- (#{source-annotation\ 239}#
- #{er\ 1272}#)
- #{ribcage\ 1247}#
- #{mod\ 1237}#
+ (#{source-annotation\ 9393}#
+ #{er\ 10426}#)
+ #{ribcage\ 10401}#
+ #{mod\ 10391}#
#f))
- (lambda (#{type\ 1274}#
- #{value\ 1275}#
- #{e\ 1276}#
- #{w\ 1277}#
- #{s\ 1278}#
- #{mod\ 1279}#)
- (if (memv #{type\ 1274}#
+ (lambda (#{type\ 10428}#
+ #{value\ 10429}#
+ #{e\ 10430}#
+ #{w\ 10431}#
+ #{s\ 10432}#
+ #{mod\ 10433}#)
+ (if (memv #{type\ 10428}#
'(define-form))
- (let ((#{id\ 1289}#
- (#{wrap\ 329}#
- #{value\ 1275}#
- #{w\ 1277}#
- #{mod\ 1279}#))
- (#{label\ 1290}#
- (#{gen-label\ 276}#)))
- (let ((#{var\ 1292}#
- (#{gen-var\ 373}#
- #{id\ 1289}#)))
+ (let ((#{id\ 10443}#
+ (#{wrap\ 9483}#
+ #{value\ 10429}#
+ #{w\ 10431}#
+ #{mod\ 10433}#))
+ (#{label\ 10444}#
+ (#{gen-label\ 9430}#)))
+ (let ((#{var\ 10446}#
+ (#{gen-var\ 9527}#
+ #{id\ 10443}#)))
(begin
- (#{extend-ribcage!\ 305}#
- #{ribcage\ 1247}#
- #{id\ 1289}#
- #{label\ 1290}#)
- (#{parse\ 1259}#
- (cdr #{body\ 1260}#)
- (cons #{id\ 1289}#
- #{ids\ 1261}#)
- (cons #{label\ 1290}#
- #{labels\ 1262}#)
- (cons #{id\ 1289}#
- #{var-ids\ 1263}#)
- (cons #{var\ 1292}#
- #{vars\ 1264}#)
- (cons (cons #{er\ 1272}#
- (#{wrap\ 329}#
- #{e\ 1276}#
- #{w\ 1277}#
- #{mod\
1279}#))
- #{vals\ 1265}#)
+ (#{extend-ribcage!\ 9459}#
+ #{ribcage\ 10401}#
+ #{id\ 10443}#
+ #{label\ 10444}#)
+ (#{parse\ 10413}#
+ (cdr #{body\ 10414}#)
+ (cons #{id\ 10443}#
+ #{ids\ 10415}#)
+ (cons #{label\ 10444}#
+ #{labels\ 10416}#)
+ (cons #{id\ 10443}#
+ #{var-ids\ 10417}#)
+ (cons #{var\ 10446}#
+ #{vars\ 10418}#)
+ (cons (cons #{er\ 10426}#
+ (#{wrap\ 9483}#
+ #{e\ 10430}#
+ #{w\ 10431}#
+ #{mod\
10433}#))
+ #{vals\ 10419}#)
(cons (cons 'lexical
- #{var\ 1292}#)
- #{bindings\
1266}#)))))
- (if (memv #{type\ 1274}#
+ #{var\ 10446}#)
+ #{bindings\
10420}#)))))
+ (if (memv #{type\ 10428}#
'(define-syntax-form))
- (let ((#{id\ 1297}#
- (#{wrap\ 329}#
- #{value\ 1275}#
- #{w\ 1277}#
- #{mod\ 1279}#))
- (#{label\ 1298}#
- (#{gen-label\ 276}#)))
+ (let ((#{id\ 10451}#
+ (#{wrap\ 9483}#
+ #{value\ 10429}#
+ #{w\ 10431}#
+ #{mod\ 10433}#))
+ (#{label\ 10452}#
+ (#{gen-label\ 9430}#)))
(begin
- (#{extend-ribcage!\ 305}#
- #{ribcage\ 1247}#
- #{id\ 1297}#
- #{label\ 1298}#)
- (#{parse\ 1259}#
- (cdr #{body\ 1260}#)
- (cons #{id\ 1297}#
- #{ids\ 1261}#)
- (cons #{label\ 1298}#
- #{labels\ 1262}#)
- #{var-ids\ 1263}#
- #{vars\ 1264}#
- #{vals\ 1265}#
+ (#{extend-ribcage!\ 9459}#
+ #{ribcage\ 10401}#
+ #{id\ 10451}#
+ #{label\ 10452}#)
+ (#{parse\ 10413}#
+ (cdr #{body\ 10414}#)
+ (cons #{id\ 10451}#
+ #{ids\ 10415}#)
+ (cons #{label\ 10452}#
+ #{labels\ 10416}#)
+ #{var-ids\ 10417}#
+ #{vars\ 10418}#
+ #{vals\ 10419}#
(cons (cons 'macro
- (cons #{er\
1272}#
- (#{wrap\
329}#
- #{e\
1276}#
- #{w\
1277}#
- #{mod\
1279}#)))
- #{bindings\
1266}#))))
- (if (memv #{type\ 1274}#
+ (cons #{er\
10426}#
+ (#{wrap\
9483}#
+ #{e\
10430}#
+ #{w\
10431}#
+ #{mod\
10433}#)))
+ #{bindings\
10420}#))))
+ (if (memv #{type\ 10428}#
'(begin-form))
- ((lambda (#{tmp\ 1301}#)
- ((lambda (#{tmp\ 1302}#)
- (if #{tmp\ 1302}#
- (apply (lambda (#{_\
1305}#
- #{e1\
1306}#)
- (#{parse\
1259}#
- (letrec
((#{f\ 1309}#
-
(lambda (#{forms\ 1310}#)
-
(if (null? #{forms\ 1310}#)
-
(cdr #{body\ 1260}#)
-
(cons (cons #{er\ 1272}#
-
(#{wrap\ 329}#
-
(car #{forms\ 1310}#)
-
#{w\ 1277}#
-
#{mod\ 1279}#))
-
(#{f\ 1309}#
-
(cdr #{forms\ 1310}#)))))))
- (#{f\
1309}#
- #{e1\
1306}#))
- #{ids\
1261}#
- #{labels\
1262}#
- #{var-ids\
1263}#
- #{vars\
1264}#
- #{vals\
1265}#
- #{bindings\
1266}#))
- #{tmp\ 1302}#)
+ ((lambda (#{tmp\ 10455}#)
+ ((lambda (#{tmp\ 10456}#)
+ (if #{tmp\ 10456}#
+ (apply (lambda (#{_\
10459}#
+ #{e1\
10460}#)
+ (#{parse\
10413}#
+ (letrec
((#{f\ 10463}#
+
(lambda (#{forms\ 10464}#)
+
(if (null? #{forms\ 10464}#)
+
(cdr #{body\ 10414}#)
+
(cons (cons #{er\ 10426}#
+
(#{wrap\ 9483}#
+
(car #{forms\ 10464}#)
+
#{w\ 10431}#
+
#{mod\ 10433}#))
+
(#{f\ 10463}#
+
(cdr #{forms\ 10464}#)))))))
+ (#{f\
10463}#
+ #{e1\
10460}#))
+ #{ids\
10415}#
+ #{labels\
10416}#
+ #{var-ids\
10417}#
+ #{vars\
10418}#
+ #{vals\
10419}#
+ #{bindings\
10420}#))
+ #{tmp\ 10456}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1301}#)))
+ #{tmp\ 10455}#)))
($sc-dispatch
- #{tmp\ 1301}#
+ #{tmp\ 10455}#
'(any . each-any))))
- #{e\ 1276}#)
- (if (memv #{type\ 1274}#
+ #{e\ 10430}#)
+ (if (memv #{type\ 10428}#
'(local-syntax-form))
- (#{chi-local-syntax\ 355}#
- #{value\ 1275}#
- #{e\ 1276}#
- #{er\ 1272}#
- #{w\ 1277}#
- #{s\ 1278}#
- #{mod\ 1279}#
- (lambda (#{forms\ 1313}#
- #{er\ 1314}#
- #{w\ 1315}#
- #{s\ 1316}#
- #{mod\ 1317}#)
- (#{parse\ 1259}#
- (letrec ((#{f\ 1325}#
- (lambda
(#{forms\ 1326}#)
- (if
(null? #{forms\ 1326}#)
- (cdr
#{body\ 1260}#)
- (cons
(cons #{er\ 1314}#
-
(#{wrap\ 329}#
-
(car #{forms\ 1326}#)
-
#{w\ 1315}#
-
#{mod\ 1317}#))
-
(#{f\ 1325}#
-
(cdr #{forms\ 1326}#)))))))
- (#{f\ 1325}#
- #{forms\ 1313}#))
- #{ids\ 1261}#
- #{labels\ 1262}#
- #{var-ids\ 1263}#
- #{vars\ 1264}#
- #{vals\ 1265}#
- #{bindings\ 1266}#)))
- (if (null? #{ids\ 1261}#)
- (#{build-sequence\ 212}#
+ (#{chi-local-syntax\ 9509}#
+ #{value\ 10429}#
+ #{e\ 10430}#
+ #{er\ 10426}#
+ #{w\ 10431}#
+ #{s\ 10432}#
+ #{mod\ 10433}#
+ (lambda (#{forms\ 10467}#
+ #{er\ 10468}#
+ #{w\ 10469}#
+ #{s\ 10470}#
+ #{mod\ 10471}#)
+ (#{parse\ 10413}#
+ (letrec ((#{f\ 10479}#
+ (lambda
(#{forms\ 10480}#)
+ (if
(null? #{forms\ 10480}#)
+ (cdr
#{body\ 10414}#)
+ (cons
(cons #{er\ 10468}#
+
(#{wrap\ 9483}#
+
(car #{forms\ 10480}#)
+
#{w\ 10469}#
+
#{mod\ 10471}#))
+
(#{f\ 10479}#
+
(cdr #{forms\ 10480}#)))))))
+ (#{f\ 10479}#
+ #{forms\ 10467}#))
+ #{ids\ 10415}#
+ #{labels\ 10416}#
+ #{var-ids\ 10417}#
+ #{vars\ 10418}#
+ #{vals\ 10419}#
+ #{bindings\ 10420}#)))
+ (if (null? #{ids\ 10415}#)
+ (#{build-sequence\ 9366}#
#f
- (map (lambda (#{x\
1329}#)
- (#{chi\ 345}#
- (cdr #{x\
1329}#)
- (car #{x\
1329}#)
+ (map (lambda (#{x\
10483}#)
+ (#{chi\ 9499}#
+ (cdr #{x\
10483}#)
+ (car #{x\
10483}#)
'(())
- #{mod\ 1279}#))
- (cons (cons #{er\
1272}#
-
(#{source-wrap\ 331}#
- #{e\
1276}#
- #{w\
1277}#
- #{s\
1278}#
-
#{mod\ 1279}#))
- (cdr #{body\
1260}#))))
+ #{mod\ 10433}#))
+ (cons (cons #{er\
10426}#
+
(#{source-wrap\ 9485}#
+ #{e\
10430}#
+ #{w\
10431}#
+ #{s\
10432}#
+
#{mod\ 10433}#))
+ (cdr #{body\
10414}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 323}#
- #{ids\
1261}#))
+ (if (not
(#{valid-bound-ids?\ 9477}#
+ #{ids\
10415}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
1234}#))
- (letrec ((#{loop\ 1336}#
- (lambda
(#{bs\ 1337}#
-
#{er-cache\ 1338}#
-
#{r-cache\ 1339}#)
- (if (not
(null? #{bs\ 1337}#))
- (let
((#{b\ 1342}#
-
(car #{bs\ 1337}#)))
- (if
(eq? (car #{b\ 1342}#)
+ #{outer-form\
10388}#))
+ (letrec ((#{loop\ 10490}#
+ (lambda
(#{bs\ 10491}#
+
#{er-cache\ 10492}#
+
#{r-cache\ 10493}#)
+ (if (not
(null? #{bs\ 10491}#))
+ (let
((#{b\ 10496}#
+
(car #{bs\ 10491}#)))
+ (if
(eq? (car #{b\ 10496}#)
'macro)
- (let
((#{er\ 1345}#
-
(cadr #{b\ 1342}#)))
-
(let ((#{r-cache\ 1347}#
-
(if (eq? #{er\ 1345}#
-
#{er-cache\ 1338}#)
-
#{r-cache\ 1339}#
-
(#{macros-only-env\ 252}#
-
#{er\ 1345}#))))
+ (let
((#{er\ 10499}#
+
(cadr #{b\ 10496}#)))
+
(let ((#{r-cache\ 10501}#
+
(if (eq? #{er\ 10499}#
+
#{er-cache\ 10492}#)
+
#{r-cache\ 10493}#
+
(#{macros-only-env\ 9406}#
+
#{er\ 10499}#))))
(begin
(set-cdr!
-
#{b\ 1342}#
-
(#{eval-local-transformer\ 357}#
-
(#{chi\ 345}#
-
(cddr #{b\ 1342}#)
-
#{r-cache\ 1347}#
+
#{b\ 10496}#
+
(#{eval-local-transformer\ 9511}#
+
(#{chi\ 9499}#
+
(cddr #{b\ 10496}#)
+
#{r-cache\ 10501}#
'(())
-
#{mod\ 1279}#)
-
#{mod\ 1279}#))
-
(#{loop\ 1336}#
-
(cdr #{bs\ 1337}#)
-
#{er\ 1345}#
-
#{r-cache\ 1347}#))))
-
(#{loop\ 1336}#
-
(cdr #{bs\ 1337}#)
-
#{er-cache\ 1338}#
-
#{r-cache\ 1339}#)))))))
- (#{loop\ 1336}#
- #{bindings\ 1266}#
+
#{mod\ 10433}#)
+
#{mod\ 10433}#))
+
(#{loop\ 10490}#
+
(cdr #{bs\ 10491}#)
+
#{er\ 10499}#
+
#{r-cache\ 10501}#))))
+
(#{loop\ 10490}#
+
(cdr #{bs\ 10491}#)
+
#{er-cache\ 10492}#
+
#{r-cache\ 10493}#)))))))
+ (#{loop\ 10490}#
+ #{bindings\ 10420}#
#f
#f))
(set-cdr!
- #{r\ 1245}#
- (#{extend-env\ 248}#
- #{labels\ 1262}#
- #{bindings\ 1266}#
- (cdr #{r\ 1245}#)))
- (#{build-letrec\ 218}#
+ #{r\ 10399}#
+ (#{extend-env\ 9402}#
+ #{labels\ 10416}#
+ #{bindings\ 10420}#
+ (cdr #{r\ 10399}#)))
+ (#{build-letrec\ 9372}#
#f
(map syntax->datum
- #{var-ids\ 1263}#)
- #{vars\ 1264}#
- (map (lambda (#{x\
1350}#)
- (#{chi\ 345}#
- (cdr #{x\
1350}#)
- (car #{x\
1350}#)
+ #{var-ids\
10417}#)
+ #{vars\ 10418}#
+ (map (lambda (#{x\
10504}#)
+ (#{chi\ 9499}#
+ (cdr #{x\
10504}#)
+ (car #{x\
10504}#)
'(())
- #{mod\
1279}#))
- #{vals\ 1265}#)
- (#{build-sequence\
212}#
+ #{mod\
10433}#))
+ #{vals\ 10419}#)
+ (#{build-sequence\
9366}#
#f
- (map (lambda (#{x\
1354}#)
- (#{chi\ 345}#
- (cdr #{x\
1354}#)
- (car #{x\
1354}#)
+ (map (lambda (#{x\
10508}#)
+ (#{chi\ 9499}#
+ (cdr #{x\
10508}#)
+ (car #{x\
10508}#)
'(())
- #{mod\
1279}#))
- (cons (cons
#{er\ 1272}#
-
(#{source-wrap\ 331}#
-
#{e\ 1276}#
-
#{w\ 1277}#
-
#{s\ 1278}#
-
#{mod\ 1279}#))
- (cdr
#{body\ 1260}#))))))))))))))))))
- (#{parse\ 1259}#
- (map (lambda (#{x\ 1267}#)
- (cons #{r\ 1245}#
- (#{wrap\ 329}#
- #{x\ 1267}#
- #{w\ 1250}#
- #{mod\ 1237}#)))
- #{body\ 1233}#)
+ #{mod\
10433}#))
+ (cons (cons
#{er\ 10426}#
+
(#{source-wrap\ 9485}#
+
#{e\ 10430}#
+
#{w\ 10431}#
+
#{s\ 10432}#
+
#{mod\ 10433}#))
+ (cdr
#{body\ 10414}#))))))))))))))))))
+ (#{parse\ 10413}#
+ (map (lambda (#{x\ 10421}#)
+ (cons #{r\ 10399}#
+ (#{wrap\ 9483}#
+ #{x\ 10421}#
+ #{w\ 10404}#
+ #{mod\ 10391}#)))
+ #{body\ 10387}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 351}#
- (lambda (#{p\ 1357}#
- #{e\ 1358}#
- #{r\ 1359}#
- #{w\ 1360}#
- #{rib\ 1361}#
- #{mod\ 1362}#)
- (letrec ((#{rebuild-macro-output\ 1370}#
- (lambda (#{x\ 1371}# #{m\ 1372}#)
- (if (pair? #{x\ 1371}#)
- (cons (#{rebuild-macro-output\ 1370}#
- (car #{x\ 1371}#)
- #{m\ 1372}#)
- (#{rebuild-macro-output\ 1370}#
- (cdr #{x\ 1371}#)
- #{m\ 1372}#))
- (if (#{syntax-object?\ 224}# #{x\ 1371}#)
- (let ((#{w\ 1380}#
- (#{syntax-object-wrap\ 228}#
- #{x\ 1371}#)))
- (let ((#{ms\ 1383}#
- (#{wrap-marks\ 267}# #{w\ 1380}#))
- (#{s\ 1384}#
- (#{wrap-subst\ 269}# #{w\ 1380}#)))
- (if (if (pair? #{ms\ 1383}#)
- (eq? (car #{ms\ 1383}#) #f)
+ (#{chi-macro\ 9505}#
+ (lambda (#{p\ 10511}#
+ #{e\ 10512}#
+ #{r\ 10513}#
+ #{w\ 10514}#
+ #{rib\ 10515}#
+ #{mod\ 10516}#)
+ (letrec ((#{rebuild-macro-output\ 10524}#
+ (lambda (#{x\ 10525}# #{m\ 10526}#)
+ (if (pair? #{x\ 10525}#)
+ (cons (#{rebuild-macro-output\ 10524}#
+ (car #{x\ 10525}#)
+ #{m\ 10526}#)
+ (#{rebuild-macro-output\ 10524}#
+ (cdr #{x\ 10525}#)
+ #{m\ 10526}#))
+ (if (#{syntax-object?\ 9378}# #{x\ 10525}#)
+ (let ((#{w\ 10534}#
+ (#{syntax-object-wrap\ 9382}#
+ #{x\ 10525}#)))
+ (let ((#{ms\ 10537}#
+ (#{wrap-marks\ 9421}# #{w\ 10534}#))
+ (#{s\ 10538}#
+ (#{wrap-subst\ 9423}# #{w\ 10534}#)))
+ (if (if (pair? #{ms\ 10537}#)
+ (eq? (car #{ms\ 10537}#) #f)
#f)
- (#{make-syntax-object\ 222}#
- (#{syntax-object-expression\ 226}#
- #{x\ 1371}#)
- (#{make-wrap\ 265}#
- (cdr #{ms\ 1383}#)
- (if #{rib\ 1361}#
- (cons #{rib\ 1361}#
- (cdr #{s\ 1384}#))
- (cdr #{s\ 1384}#)))
- (#{syntax-object-module\ 230}#
- #{x\ 1371}#))
- (#{make-syntax-object\ 222}#
- (#{syntax-object-expression\ 226}#
- #{x\ 1371}#)
- (#{make-wrap\ 265}#
- (cons #{m\ 1372}# #{ms\ 1383}#)
- (if #{rib\ 1361}#
- (cons #{rib\ 1361}#
+ (#{make-syntax-object\ 9376}#
+ (#{syntax-object-expression\ 9380}#
+ #{x\ 10525}#)
+ (#{make-wrap\ 9419}#
+ (cdr #{ms\ 10537}#)
+ (if #{rib\ 10515}#
+ (cons #{rib\ 10515}#
+ (cdr #{s\ 10538}#))
+ (cdr #{s\ 10538}#)))
+ (#{syntax-object-module\ 9384}#
+ #{x\ 10525}#))
+ (#{make-syntax-object\ 9376}#
+ (#{syntax-object-expression\ 9380}#
+ #{x\ 10525}#)
+ (#{make-wrap\ 9419}#
+ (cons #{m\ 10526}# #{ms\ 10537}#)
+ (if #{rib\ 10515}#
+ (cons #{rib\ 10515}#
(cons 'shift
- #{s\ 1384}#))
- (cons (quote shift) #{s\ 1384}#)))
+ #{s\ 10538}#))
+ (cons (quote shift) #{s\ 10538}#)))
(cons 'hygiene
- (cdr #{p\ 1357}#))))))
- (if (vector? #{x\ 1371}#)
- (let ((#{n\ 1392}#
- (vector-length #{x\ 1371}#)))
- (let ((#{v\ 1394}#
- (make-vector #{n\ 1392}#)))
- (letrec ((#{loop\ 1397}#
- (lambda (#{i\ 1398}#)
- (if (#{fx=\ 167}#
- #{i\ 1398}#
- #{n\ 1392}#)
+ (cdr #{p\ 10511}#))))))
+ (if (vector? #{x\ 10525}#)
+ (let ((#{n\ 10546}#
+ (vector-length #{x\ 10525}#)))
+ (let ((#{v\ 10548}#
+ (make-vector #{n\ 10546}#)))
+ (letrec ((#{loop\ 10551}#
+ (lambda (#{i\ 10552}#)
+ (if (#{fx=\ 9321}#
+ #{i\ 10552}#
+ #{n\ 10546}#)
(begin
(if #f #f)
- #{v\ 1394}#)
+ #{v\ 10548}#)
(begin
(vector-set!
- #{v\ 1394}#
- #{i\ 1398}#
-
(#{rebuild-macro-output\ 1370}#
+ #{v\ 10548}#
+ #{i\ 10552}#
+
(#{rebuild-macro-output\ 10524}#
(vector-ref
- #{x\ 1371}#
- #{i\ 1398}#)
- #{m\ 1372}#))
- (#{loop\ 1397}#
- (#{fx+\ 163}#
- #{i\ 1398}#
+ #{x\ 10525}#
+ #{i\ 10552}#)
+ #{m\ 10526}#))
+ (#{loop\ 10551}#
+ (#{fx+\ 9317}#
+ #{i\ 10552}#
1)))))))
- (#{loop\ 1397}# 0))))
- (if (symbol? #{x\ 1371}#)
+ (#{loop\ 10551}# 0))))
+ (if (symbol? #{x\ 10525}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 331}#
- #{e\ 1358}#
- #{w\ 1360}#
- (#{wrap-subst\ 269}# #{w\ 1360}#)
- #{mod\ 1362}#)
- #{x\ 1371}#)
- #{x\ 1371}#)))))))
- (#{rebuild-macro-output\ 1370}#
- ((car #{p\ 1357}#)
- (#{wrap\ 329}#
- #{e\ 1358}#
- (#{anti-mark\ 301}# #{w\ 1360}#)
- #{mod\ 1362}#))
+ (#{source-wrap\ 9485}#
+ #{e\ 10512}#
+ #{w\ 10514}#
+ (#{wrap-subst\ 9423}# #{w\ 10514}#)
+ #{mod\ 10516}#)
+ #{x\ 10525}#)
+ #{x\ 10525}#)))))))
+ (#{rebuild-macro-output\ 10524}#
+ ((car #{p\ 10511}#)
+ (#{wrap\ 9483}#
+ #{e\ 10512}#
+ (#{anti-mark\ 9455}# #{w\ 10514}#)
+ #{mod\ 10516}#))
(gensym "m")))))
- (#{chi-application\ 349}#
- (lambda (#{x\ 1405}#
- #{e\ 1406}#
- #{r\ 1407}#
- #{w\ 1408}#
- #{s\ 1409}#
- #{mod\ 1410}#)
- ((lambda (#{tmp\ 1417}#)
- ((lambda (#{tmp\ 1418}#)
- (if #{tmp\ 1418}#
- (apply (lambda (#{e0\ 1421}# #{e1\ 1422}#)
- (#{build-application\ 184}#
- #{s\ 1409}#
- #{x\ 1405}#
- (map (lambda (#{e\ 1423}#)
- (#{chi\ 345}#
- #{e\ 1423}#
- #{r\ 1407}#
- #{w\ 1408}#
- #{mod\ 1410}#))
- #{e1\ 1422}#)))
- #{tmp\ 1418}#)
+ (#{chi-application\ 9503}#
+ (lambda (#{x\ 10559}#
+ #{e\ 10560}#
+ #{r\ 10561}#
+ #{w\ 10562}#
+ #{s\ 10563}#
+ #{mod\ 10564}#)
+ ((lambda (#{tmp\ 10571}#)
+ ((lambda (#{tmp\ 10572}#)
+ (if #{tmp\ 10572}#
+ (apply (lambda (#{e0\ 10575}# #{e1\ 10576}#)
+ (#{build-application\ 9338}#
+ #{s\ 10563}#
+ #{x\ 10559}#
+ (map (lambda (#{e\ 10577}#)
+ (#{chi\ 9499}#
+ #{e\ 10577}#
+ #{r\ 10561}#
+ #{w\ 10562}#
+ #{mod\ 10564}#))
+ #{e1\ 10576}#)))
+ #{tmp\ 10572}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1417}#)))
+ #{tmp\ 10571}#)))
($sc-dispatch
- #{tmp\ 1417}#
+ #{tmp\ 10571}#
'(any . each-any))))
- #{e\ 1406}#)))
- (#{chi-expr\ 347}#
- (lambda (#{type\ 1426}#
- #{value\ 1427}#
- #{e\ 1428}#
- #{r\ 1429}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#)
- (if (memv #{type\ 1426}# (quote (lexical)))
- (#{build-lexical-reference\ 188}#
+ #{e\ 10560}#)))
+ (#{chi-expr\ 9501}#
+ (lambda (#{type\ 10580}#
+ #{value\ 10581}#
+ #{e\ 10582}#
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#)
+ (if (memv #{type\ 10580}# (quote (lexical)))
+ (#{build-lexical-reference\ 9342}#
'value
- #{s\ 1431}#
- #{e\ 1428}#
- #{value\ 1427}#)
- (if (memv #{type\ 1426}# (quote (core core-form)))
- (#{value\ 1427}#
- #{e\ 1428}#
- #{r\ 1429}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#)
- (if (memv #{type\ 1426}# (quote (module-ref)))
+ #{s\ 10585}#
+ #{e\ 10582}#
+ #{value\ 10581}#)
+ (if (memv #{type\ 10580}# (quote (core core-form)))
+ (#{value\ 10581}#
+ #{e\ 10582}#
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#)
+ (if (memv #{type\ 10580}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 1427}# #{e\ 1428}#))
- (lambda (#{id\ 1443}# #{mod\ 1444}#)
- (#{build-global-reference\ 194}#
- #{s\ 1431}#
- #{id\ 1443}#
- #{mod\ 1444}#)))
- (if (memv #{type\ 1426}# (quote (lexical-call)))
- (#{chi-application\ 349}#
- (#{build-lexical-reference\ 188}#
+ (lambda () (#{value\ 10581}# #{e\ 10582}#))
+ (lambda (#{id\ 10597}# #{mod\ 10598}#)
+ (#{build-global-reference\ 9348}#
+ #{s\ 10585}#
+ #{id\ 10597}#
+ #{mod\ 10598}#)))
+ (if (memv #{type\ 10580}# (quote (lexical-call)))
+ (#{chi-application\ 9503}#
+ (#{build-lexical-reference\ 9342}#
'fun
- (#{source-annotation\ 239}# (car #{e\ 1428}#))
- (car #{e\ 1428}#)
- #{value\ 1427}#)
- #{e\ 1428}#
- #{r\ 1429}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#)
- (if (memv #{type\ 1426}# (quote (global-call)))
- (#{chi-application\ 349}#
- (#{build-global-reference\ 194}#
- (#{source-annotation\ 239}# (car #{e\ 1428}#))
- (if (#{syntax-object?\ 224}# #{value\ 1427}#)
- (#{syntax-object-expression\ 226}#
- #{value\ 1427}#)
- #{value\ 1427}#)
- (if (#{syntax-object?\ 224}# #{value\ 1427}#)
- (#{syntax-object-module\ 230}# #{value\ 1427}#)
- #{mod\ 1432}#))
- #{e\ 1428}#
- #{r\ 1429}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#)
- (if (memv #{type\ 1426}# (quote (constant)))
- (#{build-data\ 210}#
- #{s\ 1431}#
- (#{strip\ 371}#
- (#{source-wrap\ 331}#
- #{e\ 1428}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#)
+ (#{source-annotation\ 9393}# (car #{e\ 10582}#))
+ (car #{e\ 10582}#)
+ #{value\ 10581}#)
+ #{e\ 10582}#
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#)
+ (if (memv #{type\ 10580}# (quote (global-call)))
+ (#{chi-application\ 9503}#
+ (#{build-global-reference\ 9348}#
+ (#{source-annotation\ 9393}# (car #{e\ 10582}#))
+ (if (#{syntax-object?\ 9378}# #{value\ 10581}#)
+ (#{syntax-object-expression\ 9380}#
+ #{value\ 10581}#)
+ #{value\ 10581}#)
+ (if (#{syntax-object?\ 9378}# #{value\ 10581}#)
+ (#{syntax-object-module\ 9384}#
+ #{value\ 10581}#)
+ #{mod\ 10586}#))
+ #{e\ 10582}#
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#)
+ (if (memv #{type\ 10580}# (quote (constant)))
+ (#{build-data\ 9364}#
+ #{s\ 10585}#
+ (#{strip\ 9525}#
+ (#{source-wrap\ 9485}#
+ #{e\ 10582}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#)
'(())))
- (if (memv #{type\ 1426}# (quote (global)))
- (#{build-global-reference\ 194}#
- #{s\ 1431}#
- #{value\ 1427}#
- #{mod\ 1432}#)
- (if (memv #{type\ 1426}# (quote (call)))
- (#{chi-application\ 349}#
- (#{chi\ 345}#
- (car #{e\ 1428}#)
- #{r\ 1429}#
- #{w\ 1430}#
- #{mod\ 1432}#)
- #{e\ 1428}#
- #{r\ 1429}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#)
- (if (memv #{type\ 1426}# (quote (begin-form)))
- ((lambda (#{tmp\ 1454}#)
- ((lambda (#{tmp\ 1455}#)
- (if #{tmp\ 1455}#
- (apply (lambda (#{_\ 1459}#
- #{e1\ 1460}#
- #{e2\ 1461}#)
- (#{chi-sequence\ 333}#
- (cons #{e1\ 1460}#
- #{e2\ 1461}#)
- #{r\ 1429}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#))
- #{tmp\ 1455}#)
+ (if (memv #{type\ 10580}# (quote (global)))
+ (#{build-global-reference\ 9348}#
+ #{s\ 10585}#
+ #{value\ 10581}#
+ #{mod\ 10586}#)
+ (if (memv #{type\ 10580}# (quote (call)))
+ (#{chi-application\ 9503}#
+ (#{chi\ 9499}#
+ (car #{e\ 10582}#)
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{mod\ 10586}#)
+ #{e\ 10582}#
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#)
+ (if (memv #{type\ 10580}# (quote (begin-form)))
+ ((lambda (#{tmp\ 10608}#)
+ ((lambda (#{tmp\ 10609}#)
+ (if #{tmp\ 10609}#
+ (apply (lambda (#{_\ 10613}#
+ #{e1\ 10614}#
+ #{e2\ 10615}#)
+ (#{chi-sequence\ 9487}#
+ (cons #{e1\ 10614}#
+ #{e2\ 10615}#)
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#))
+ #{tmp\ 10609}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1454}#)))
+ #{tmp\ 10608}#)))
($sc-dispatch
- #{tmp\ 1454}#
+ #{tmp\ 10608}#
'(any any . each-any))))
- #{e\ 1428}#)
- (if (memv #{type\ 1426}#
+ #{e\ 10582}#)
+ (if (memv #{type\ 10580}#
'(local-syntax-form))
- (#{chi-local-syntax\ 355}#
- #{value\ 1427}#
- #{e\ 1428}#
- #{r\ 1429}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#
- #{chi-sequence\ 333}#)
- (if (memv #{type\ 1426}#
+ (#{chi-local-syntax\ 9509}#
+ #{value\ 10581}#
+ #{e\ 10582}#
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#
+ #{chi-sequence\ 9487}#)
+ (if (memv #{type\ 10580}#
'(eval-when-form))
- ((lambda (#{tmp\ 1465}#)
- ((lambda (#{tmp\ 1466}#)
- (if #{tmp\ 1466}#
- (apply (lambda (#{_\ 1471}#
- #{x\ 1472}#
- #{e1\ 1473}#
- #{e2\ 1474}#)
- (let ((#{when-list\
1476}#
-
(#{chi-when-list\ 339}#
- #{e\ 1428}#
- #{x\ 1472}#
- #{w\ 1430}#)))
+ ((lambda (#{tmp\ 10619}#)
+ ((lambda (#{tmp\ 10620}#)
+ (if #{tmp\ 10620}#
+ (apply (lambda (#{_\ 10625}#
+ #{x\ 10626}#
+ #{e1\ 10627}#
+ #{e2\ 10628}#)
+ (let ((#{when-list\
10630}#
+
(#{chi-when-list\ 9493}#
+ #{e\ 10582}#
+ #{x\ 10626}#
+ #{w\ 10584}#)))
(if (memq 'eval
- #{when-list\
1476}#)
- (#{chi-sequence\
333}#
- (cons #{e1\ 1473}#
- #{e2\ 1474}#)
- #{r\ 1429}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#)
- (#{chi-void\
359}#))))
- #{tmp\ 1466}#)
+ #{when-list\
10630}#)
+ (#{chi-sequence\
9487}#
+ (cons #{e1\ 10627}#
+ #{e2\
10628}#)
+ #{r\ 10583}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#)
+ (#{chi-void\
9513}#))))
+ #{tmp\ 10620}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 1465}#)))
+ #{tmp\ 10619}#)))
($sc-dispatch
- #{tmp\ 1465}#
+ #{tmp\ 10619}#
'(any each-any any . each-any))))
- #{e\ 1428}#)
- (if (memv #{type\ 1426}#
+ #{e\ 10582}#)
+ (if (memv #{type\ 10580}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1428}#
- (#{wrap\ 329}#
- #{value\ 1427}#
- #{w\ 1430}#
- #{mod\ 1432}#))
- (if (memv #{type\ 1426}#
+ #{e\ 10582}#
+ (#{wrap\ 9483}#
+ #{value\ 10581}#
+ #{w\ 10584}#
+ #{mod\ 10586}#))
+ (if (memv #{type\ 10580}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 331}#
- #{e\ 1428}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#))
- (if (memv #{type\ 1426}#
+ (#{source-wrap\ 9485}#
+ #{e\ 10582}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#))
+ (if (memv #{type\ 10580}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 331}#
- #{e\ 1428}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#))
+ (#{source-wrap\ 9485}#
+ #{e\ 10582}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 331}#
- #{e\ 1428}#
- #{w\ 1430}#
- #{s\ 1431}#
- #{mod\ 1432}#))))))))))))))))))
- (#{chi\ 345}#
- (lambda (#{e\ 1483}#
- #{r\ 1484}#
- #{w\ 1485}#
- #{mod\ 1486}#)
+ (#{source-wrap\ 9485}#
+ #{e\ 10582}#
+ #{w\ 10584}#
+ #{s\ 10585}#
+ #{mod\ 10586}#))))))))))))))))))
+ (#{chi\ 9499}#
+ (lambda (#{e\ 10637}#
+ #{r\ 10638}#
+ #{w\ 10639}#
+ #{mod\ 10640}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 341}#
- #{e\ 1483}#
- #{r\ 1484}#
- #{w\ 1485}#
- (#{source-annotation\ 239}# #{e\ 1483}#)
+ (#{syntax-type\ 9495}#
+ #{e\ 10637}#
+ #{r\ 10638}#
+ #{w\ 10639}#
+ (#{source-annotation\ 9393}# #{e\ 10637}#)
#f
- #{mod\ 1486}#
+ #{mod\ 10640}#
#f))
- (lambda (#{type\ 1491}#
- #{value\ 1492}#
- #{e\ 1493}#
- #{w\ 1494}#
- #{s\ 1495}#
- #{mod\ 1496}#)
- (#{chi-expr\ 347}#
- #{type\ 1491}#
- #{value\ 1492}#
- #{e\ 1493}#
- #{r\ 1484}#
- #{w\ 1494}#
- #{s\ 1495}#
- #{mod\ 1496}#)))))
- (#{chi-top\ 343}#
- (lambda (#{e\ 1503}#
- #{r\ 1504}#
- #{w\ 1505}#
- #{m\ 1506}#
- #{esew\ 1507}#
- #{mod\ 1508}#)
+ (lambda (#{type\ 10645}#
+ #{value\ 10646}#
+ #{e\ 10647}#
+ #{w\ 10648}#
+ #{s\ 10649}#
+ #{mod\ 10650}#)
+ (#{chi-expr\ 9501}#
+ #{type\ 10645}#
+ #{value\ 10646}#
+ #{e\ 10647}#
+ #{r\ 10638}#
+ #{w\ 10648}#
+ #{s\ 10649}#
+ #{mod\ 10650}#)))))
+ (#{chi-top\ 9497}#
+ (lambda (#{e\ 10657}#
+ #{r\ 10658}#
+ #{w\ 10659}#
+ #{m\ 10660}#
+ #{esew\ 10661}#
+ #{mod\ 10662}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 341}#
- #{e\ 1503}#
- #{r\ 1504}#
- #{w\ 1505}#
- (#{source-annotation\ 239}# #{e\ 1503}#)
+ (#{syntax-type\ 9495}#
+ #{e\ 10657}#
+ #{r\ 10658}#
+ #{w\ 10659}#
+ (#{source-annotation\ 9393}# #{e\ 10657}#)
#f
- #{mod\ 1508}#
+ #{mod\ 10662}#
#f))
- (lambda (#{type\ 1529}#
- #{value\ 1530}#
- #{e\ 1531}#
- #{w\ 1532}#
- #{s\ 1533}#
- #{mod\ 1534}#)
- (if (memv #{type\ 1529}# (quote (begin-form)))
- ((lambda (#{tmp\ 1542}#)
- ((lambda (#{tmp\ 1543}#)
- (if #{tmp\ 1543}#
- (apply (lambda (#{_\ 1545}#) (#{chi-void\ 359}#))
- #{tmp\ 1543}#)
- ((lambda (#{tmp\ 1546}#)
- (if #{tmp\ 1546}#
- (apply (lambda (#{_\ 1550}#
- #{e1\ 1551}#
- #{e2\ 1552}#)
- (#{chi-top-sequence\ 335}#
- (cons #{e1\ 1551}# #{e2\ 1552}#)
- #{r\ 1504}#
- #{w\ 1532}#
- #{s\ 1533}#
- #{m\ 1506}#
- #{esew\ 1507}#
- #{mod\ 1534}#))
- #{tmp\ 1546}#)
+ (lambda (#{type\ 10683}#
+ #{value\ 10684}#
+ #{e\ 10685}#
+ #{w\ 10686}#
+ #{s\ 10687}#
+ #{mod\ 10688}#)
+ (if (memv #{type\ 10683}# (quote (begin-form)))
+ ((lambda (#{tmp\ 10696}#)
+ ((lambda (#{tmp\ 10697}#)
+ (if #{tmp\ 10697}#
+ (apply (lambda (#{_\ 10699}#)
+ (#{chi-void\ 9513}#))
+ #{tmp\ 10697}#)
+ ((lambda (#{tmp\ 10700}#)
+ (if #{tmp\ 10700}#
+ (apply (lambda (#{_\ 10704}#
+ #{e1\ 10705}#
+ #{e2\ 10706}#)
+ (#{chi-top-sequence\ 9489}#
+ (cons #{e1\ 10705}# #{e2\ 10706}#)
+ #{r\ 10658}#
+ #{w\ 10686}#
+ #{s\ 10687}#
+ #{m\ 10660}#
+ #{esew\ 10661}#
+ #{mod\ 10688}#))
+ #{tmp\ 10700}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1542}#)))
+ #{tmp\ 10696}#)))
($sc-dispatch
- #{tmp\ 1542}#
+ #{tmp\ 10696}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 1542}# (quote (any)))))
- #{e\ 1531}#)
- (if (memv #{type\ 1529}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 355}#
- #{value\ 1530}#
- #{e\ 1531}#
- #{r\ 1504}#
- #{w\ 1532}#
- #{s\ 1533}#
- #{mod\ 1534}#
- (lambda (#{body\ 1555}#
- #{r\ 1556}#
- #{w\ 1557}#
- #{s\ 1558}#
- #{mod\ 1559}#)
- (#{chi-top-sequence\ 335}#
- #{body\ 1555}#
- #{r\ 1556}#
- #{w\ 1557}#
- #{s\ 1558}#
- #{m\ 1506}#
- #{esew\ 1507}#
- #{mod\ 1559}#)))
- (if (memv #{type\ 1529}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 1566}#)
- ((lambda (#{tmp\ 1567}#)
- (if #{tmp\ 1567}#
- (apply (lambda (#{_\ 1572}#
- #{x\ 1573}#
- #{e1\ 1574}#
- #{e2\ 1575}#)
- (let ((#{when-list\ 1578}#
- (#{chi-when-list\ 339}#
- #{e\ 1531}#
- #{x\ 1573}#
- #{w\ 1532}#))
- (#{body\ 1579}#
- (cons #{e1\ 1574}#
- #{e2\ 1575}#)))
- (if (eq? #{m\ 1506}# (quote e))
+ ($sc-dispatch #{tmp\ 10696}# (quote (any)))))
+ #{e\ 10685}#)
+ (if (memv #{type\ 10683}#
+ '(local-syntax-form))
+ (#{chi-local-syntax\ 9509}#
+ #{value\ 10684}#
+ #{e\ 10685}#
+ #{r\ 10658}#
+ #{w\ 10686}#
+ #{s\ 10687}#
+ #{mod\ 10688}#
+ (lambda (#{body\ 10709}#
+ #{r\ 10710}#
+ #{w\ 10711}#
+ #{s\ 10712}#
+ #{mod\ 10713}#)
+ (#{chi-top-sequence\ 9489}#
+ #{body\ 10709}#
+ #{r\ 10710}#
+ #{w\ 10711}#
+ #{s\ 10712}#
+ #{m\ 10660}#
+ #{esew\ 10661}#
+ #{mod\ 10713}#)))
+ (if (memv #{type\ 10683}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 10720}#)
+ ((lambda (#{tmp\ 10721}#)
+ (if #{tmp\ 10721}#
+ (apply (lambda (#{_\ 10726}#
+ #{x\ 10727}#
+ #{e1\ 10728}#
+ #{e2\ 10729}#)
+ (let ((#{when-list\ 10732}#
+ (#{chi-when-list\ 9493}#
+ #{e\ 10685}#
+ #{x\ 10727}#
+ #{w\ 10686}#))
+ (#{body\ 10733}#
+ (cons #{e1\ 10728}#
+ #{e2\ 10729}#)))
+ (if (eq? #{m\ 10660}# (quote e))
(if (memq 'eval
- #{when-list\ 1578}#)
- (#{chi-top-sequence\ 335}#
- #{body\ 1579}#
- #{r\ 1504}#
- #{w\ 1532}#
- #{s\ 1533}#
+ #{when-list\ 10732}#)
+ (#{chi-top-sequence\ 9489}#
+ #{body\ 10733}#
+ #{r\ 10658}#
+ #{w\ 10686}#
+ #{s\ 10687}#
'e
'(eval)
- #{mod\ 1534}#)
- (#{chi-void\ 359}#))
+ #{mod\ 10688}#)
+ (#{chi-void\ 9513}#))
(if (memq 'load
- #{when-list\ 1578}#)
- (if (let ((#{t\ 1588}#
+ #{when-list\ 10732}#)
+ (if (let ((#{t\ 10742}#
(memq 'compile
- #{when-list\
1578}#)))
- (if #{t\ 1588}#
- #{t\ 1588}#
- (if (eq? #{m\ 1506}#
+ #{when-list\
10732}#)))
+ (if #{t\ 10742}#
+ #{t\ 10742}#
+ (if (eq? #{m\ 10660}#
'c&e)
(memq 'eval
- #{when-list\
1578}#)
+ #{when-list\
10732}#)
#f)))
- (#{chi-top-sequence\ 335}#
- #{body\ 1579}#
- #{r\ 1504}#
- #{w\ 1532}#
- #{s\ 1533}#
+ (#{chi-top-sequence\ 9489}#
+ #{body\ 10733}#
+ #{r\ 10658}#
+ #{w\ 10686}#
+ #{s\ 10687}#
'c&e
'(compile load)
- #{mod\ 1534}#)
- (if (memq #{m\ 1506}#
+ #{mod\ 10688}#)
+ (if (memq #{m\ 10660}#
'(c c&e))
- (#{chi-top-sequence\ 335}#
- #{body\ 1579}#
- #{r\ 1504}#
- #{w\ 1532}#
- #{s\ 1533}#
+ (#{chi-top-sequence\ 9489}#
+ #{body\ 10733}#
+ #{r\ 10658}#
+ #{w\ 10686}#
+ #{s\ 10687}#
'c
'(load)
- #{mod\ 1534}#)
- (#{chi-void\ 359}#)))
- (if (let ((#{t\ 1596}#
+ #{mod\ 10688}#)
+ (#{chi-void\ 9513}#)))
+ (if (let ((#{t\ 10750}#
(memq 'compile
- #{when-list\
1578}#)))
- (if #{t\ 1596}#
- #{t\ 1596}#
- (if (eq? #{m\ 1506}#
+ #{when-list\
10732}#)))
+ (if #{t\ 10750}#
+ #{t\ 10750}#
+ (if (eq? #{m\ 10660}#
'c&e)
(memq 'eval
- #{when-list\
1578}#)
+ #{when-list\
10732}#)
#f)))
(begin
- (#{top-level-eval-hook\
171}#
- (#{chi-top-sequence\
335}#
- #{body\ 1579}#
- #{r\ 1504}#
- #{w\ 1532}#
- #{s\ 1533}#
+ (#{top-level-eval-hook\
9325}#
+ (#{chi-top-sequence\
9489}#
+ #{body\ 10733}#
+ #{r\ 10658}#
+ #{w\ 10686}#
+ #{s\ 10687}#
'e
'(eval)
- #{mod\ 1534}#)
- #{mod\ 1534}#)
- (#{chi-void\ 359}#))
- (#{chi-void\ 359}#))))))
- #{tmp\ 1567}#)
+ #{mod\ 10688}#)
+ #{mod\ 10688}#)
+ (#{chi-void\ 9513}#))
+ (#{chi-void\ 9513}#))))))
+ #{tmp\ 10721}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1566}#)))
+ #{tmp\ 10720}#)))
($sc-dispatch
- #{tmp\ 1566}#
+ #{tmp\ 10720}#
'(any each-any any . each-any))))
- #{e\ 1531}#)
- (if (memv #{type\ 1529}#
+ #{e\ 10685}#)
+ (if (memv #{type\ 10683}#
'(define-syntax-form))
- (let ((#{n\ 1604}#
- (#{id-var-name\ 317}#
- #{value\ 1530}#
- #{w\ 1532}#))
- (#{r\ 1605}#
- (#{macros-only-env\ 252}# #{r\ 1504}#)))
- (if (memv #{m\ 1506}# (quote (c)))
- (if (memq (quote compile) #{esew\ 1507}#)
- (let ((#{e\ 1608}#
- (#{chi-install-global\ 337}#
- #{n\ 1604}#
- (#{chi\ 345}#
- #{e\ 1531}#
- #{r\ 1605}#
- #{w\ 1532}#
- #{mod\ 1534}#))))
+ (let ((#{n\ 10758}#
+ (#{id-var-name\ 9471}#
+ #{value\ 10684}#
+ #{w\ 10686}#))
+ (#{r\ 10759}#
+ (#{macros-only-env\ 9406}# #{r\ 10658}#)))
+ (if (memv #{m\ 10660}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 10661}#)
+ (let ((#{e\ 10762}#
+ (#{chi-install-global\ 9491}#
+ #{n\ 10758}#
+ (#{chi\ 9499}#
+ #{e\ 10685}#
+ #{r\ 10759}#
+ #{w\ 10686}#
+ #{mod\ 10688}#))))
(begin
- (#{top-level-eval-hook\ 171}#
- #{e\ 1608}#
- #{mod\ 1534}#)
- (if (memq (quote load) #{esew\ 1507}#)
- #{e\ 1608}#
- (#{chi-void\ 359}#))))
- (if (memq (quote load) #{esew\ 1507}#)
- (#{chi-install-global\ 337}#
- #{n\ 1604}#
- (#{chi\ 345}#
- #{e\ 1531}#
- #{r\ 1605}#
- #{w\ 1532}#
- #{mod\ 1534}#))
- (#{chi-void\ 359}#)))
- (if (memv #{m\ 1506}# (quote (c&e)))
- (let ((#{e\ 1611}#
- (#{chi-install-global\ 337}#
- #{n\ 1604}#
- (#{chi\ 345}#
- #{e\ 1531}#
- #{r\ 1605}#
- #{w\ 1532}#
- #{mod\ 1534}#))))
+ (#{top-level-eval-hook\ 9325}#
+ #{e\ 10762}#
+ #{mod\ 10688}#)
+ (if (memq (quote load) #{esew\ 10661}#)
+ #{e\ 10762}#
+ (#{chi-void\ 9513}#))))
+ (if (memq (quote load) #{esew\ 10661}#)
+ (#{chi-install-global\ 9491}#
+ #{n\ 10758}#
+ (#{chi\ 9499}#
+ #{e\ 10685}#
+ #{r\ 10759}#
+ #{w\ 10686}#
+ #{mod\ 10688}#))
+ (#{chi-void\ 9513}#)))
+ (if (memv #{m\ 10660}# (quote (c&e)))
+ (let ((#{e\ 10765}#
+ (#{chi-install-global\ 9491}#
+ #{n\ 10758}#
+ (#{chi\ 9499}#
+ #{e\ 10685}#
+ #{r\ 10759}#
+ #{w\ 10686}#
+ #{mod\ 10688}#))))
(begin
- (#{top-level-eval-hook\ 171}#
- #{e\ 1611}#
- #{mod\ 1534}#)
- #{e\ 1611}#))
+ (#{top-level-eval-hook\ 9325}#
+ #{e\ 10765}#
+ #{mod\ 10688}#)
+ #{e\ 10765}#))
(begin
- (if (memq (quote eval) #{esew\ 1507}#)
- (#{top-level-eval-hook\ 171}#
- (#{chi-install-global\ 337}#
- #{n\ 1604}#
- (#{chi\ 345}#
- #{e\ 1531}#
- #{r\ 1605}#
- #{w\ 1532}#
- #{mod\ 1534}#))
- #{mod\ 1534}#))
- (#{chi-void\ 359}#)))))
- (if (memv #{type\ 1529}# (quote (define-form)))
- (let ((#{n\ 1616}#
- (#{id-var-name\ 317}#
- #{value\ 1530}#
- #{w\ 1532}#)))
- (let ((#{type\ 1618}#
- (#{binding-type\ 243}#
- (#{lookup\ 254}#
- #{n\ 1616}#
- #{r\ 1504}#
- #{mod\ 1534}#))))
- (if (memv #{type\ 1618}#
+ (if (memq (quote eval) #{esew\ 10661}#)
+ (#{top-level-eval-hook\ 9325}#
+ (#{chi-install-global\ 9491}#
+ #{n\ 10758}#
+ (#{chi\ 9499}#
+ #{e\ 10685}#
+ #{r\ 10759}#
+ #{w\ 10686}#
+ #{mod\ 10688}#))
+ #{mod\ 10688}#))
+ (#{chi-void\ 9513}#)))))
+ (if (memv #{type\ 10683}# (quote (define-form)))
+ (let ((#{n\ 10770}#
+ (#{id-var-name\ 9471}#
+ #{value\ 10684}#
+ #{w\ 10686}#)))
+ (let ((#{type\ 10772}#
+ (#{binding-type\ 9397}#
+ (#{lookup\ 9408}#
+ #{n\ 10770}#
+ #{r\ 10658}#
+ #{mod\ 10688}#))))
+ (if (memv #{type\ 10772}#
'(global core macro module-ref))
(begin
(if (if (not (module-local-variable
(current-module)
- #{n\ 1616}#))
+ #{n\ 10770}#))
(current-module)
#f)
- (let ((#{old\ 1623}#
+ (let ((#{old\ 10777}#
(module-variable
(current-module)
- #{n\ 1616}#)))
+ #{n\ 10770}#)))
(module-define!
(current-module)
- #{n\ 1616}#
- (if (variable? #{old\ 1623}#)
- (variable-ref #{old\ 1623}#)
+ #{n\ 10770}#
+ (if (variable? #{old\ 10777}#)
+ (variable-ref #{old\ 10777}#)
#f))))
- (let ((#{x\ 1626}#
- (#{build-global-definition\ 200}#
- #{s\ 1533}#
- #{n\ 1616}#
- (#{chi\ 345}#
- #{e\ 1531}#
- #{r\ 1504}#
- #{w\ 1532}#
- #{mod\ 1534}#))))
+ (let ((#{x\ 10780}#
+ (#{build-global-definition\ 9354}#
+ #{s\ 10687}#
+ #{n\ 10770}#
+ (#{chi\ 9499}#
+ #{e\ 10685}#
+ #{r\ 10658}#
+ #{w\ 10686}#
+ #{mod\ 10688}#))))
(begin
- (if (eq? #{m\ 1506}# (quote c&e))
- (#{top-level-eval-hook\ 171}#
- #{x\ 1626}#
- #{mod\ 1534}#))
- #{x\ 1626}#)))
- (if (memv #{type\ 1618}#
+ (if (eq? #{m\ 10660}# (quote c&e))
+ (#{top-level-eval-hook\ 9325}#
+ #{x\ 10780}#
+ #{mod\ 10688}#))
+ #{x\ 10780}#)))
+ (if (memv #{type\ 10772}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 1531}#
- (#{wrap\ 329}#
- #{value\ 1530}#
- #{w\ 1532}#
- #{mod\ 1534}#))
+ #{e\ 10685}#
+ (#{wrap\ 9483}#
+ #{value\ 10684}#
+ #{w\ 10686}#
+ #{mod\ 10688}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1531}#
- (#{wrap\ 329}#
- #{value\ 1530}#
- #{w\ 1532}#
- #{mod\ 1534}#))))))
- (let ((#{x\ 1632}#
- (#{chi-expr\ 347}#
- #{type\ 1529}#
- #{value\ 1530}#
- #{e\ 1531}#
- #{r\ 1504}#
- #{w\ 1532}#
- #{s\ 1533}#
- #{mod\ 1534}#)))
+ #{e\ 10685}#
+ (#{wrap\ 9483}#
+ #{value\ 10684}#
+ #{w\ 10686}#
+ #{mod\ 10688}#))))))
+ (let ((#{x\ 10786}#
+ (#{chi-expr\ 9501}#
+ #{type\ 10683}#
+ #{value\ 10684}#
+ #{e\ 10685}#
+ #{r\ 10658}#
+ #{w\ 10686}#
+ #{s\ 10687}#
+ #{mod\ 10688}#)))
(begin
- (if (eq? #{m\ 1506}# (quote c&e))
- (#{top-level-eval-hook\ 171}#
- #{x\ 1632}#
- #{mod\ 1534}#))
- #{x\ 1632}#)))))))))))
- (#{syntax-type\ 341}#
- (lambda (#{e\ 1633}#
- #{r\ 1634}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{rib\ 1637}#
- #{mod\ 1638}#
- #{for-car?\ 1639}#)
- (if (symbol? #{e\ 1633}#)
- (let ((#{n\ 1651}#
- (#{id-var-name\ 317}# #{e\ 1633}# #{w\ 1635}#)))
- (let ((#{b\ 1653}#
- (#{lookup\ 254}#
- #{n\ 1651}#
- #{r\ 1634}#
- #{mod\ 1638}#)))
- (let ((#{type\ 1655}#
- (#{binding-type\ 243}# #{b\ 1653}#)))
- (if (memv #{type\ 1655}# (quote (lexical)))
+ (if (eq? #{m\ 10660}# (quote c&e))
+ (#{top-level-eval-hook\ 9325}#
+ #{x\ 10786}#
+ #{mod\ 10688}#))
+ #{x\ 10786}#)))))))))))
+ (#{syntax-type\ 9495}#
+ (lambda (#{e\ 10787}#
+ #{r\ 10788}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{rib\ 10791}#
+ #{mod\ 10792}#
+ #{for-car?\ 10793}#)
+ (if (symbol? #{e\ 10787}#)
+ (let ((#{n\ 10805}#
+ (#{id-var-name\ 9471}# #{e\ 10787}# #{w\ 10789}#)))
+ (let ((#{b\ 10807}#
+ (#{lookup\ 9408}#
+ #{n\ 10805}#
+ #{r\ 10788}#
+ #{mod\ 10792}#)))
+ (let ((#{type\ 10809}#
+ (#{binding-type\ 9397}# #{b\ 10807}#)))
+ (if (memv #{type\ 10809}# (quote (lexical)))
(values
- #{type\ 1655}#
- (#{binding-value\ 245}# #{b\ 1653}#)
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (if (memv #{type\ 1655}# (quote (global)))
+ #{type\ 10809}#
+ (#{binding-value\ 9399}# #{b\ 10807}#)
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (if (memv #{type\ 10809}# (quote (global)))
(values
- #{type\ 1655}#
- #{n\ 1651}#
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (if (memv #{type\ 1655}# (quote (macro)))
- (if #{for-car?\ 1639}#
+ #{type\ 10809}#
+ #{n\ 10805}#
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (if (memv #{type\ 10809}# (quote (macro)))
+ (if #{for-car?\ 10793}#
(values
- #{type\ 1655}#
- (#{binding-value\ 245}# #{b\ 1653}#)
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (#{syntax-type\ 341}#
- (#{chi-macro\ 351}#
- (#{binding-value\ 245}# #{b\ 1653}#)
- #{e\ 1633}#
- #{r\ 1634}#
- #{w\ 1635}#
- #{rib\ 1637}#
- #{mod\ 1638}#)
- #{r\ 1634}#
+ #{type\ 10809}#
+ (#{binding-value\ 9399}# #{b\ 10807}#)
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (#{syntax-type\ 9495}#
+ (#{chi-macro\ 9505}#
+ (#{binding-value\ 9399}# #{b\ 10807}#)
+ #{e\ 10787}#
+ #{r\ 10788}#
+ #{w\ 10789}#
+ #{rib\ 10791}#
+ #{mod\ 10792}#)
+ #{r\ 10788}#
'(())
- #{s\ 1636}#
- #{rib\ 1637}#
- #{mod\ 1638}#
+ #{s\ 10790}#
+ #{rib\ 10791}#
+ #{mod\ 10792}#
#f))
(values
- #{type\ 1655}#
- (#{binding-value\ 245}# #{b\ 1653}#)
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)))))))
- (if (pair? #{e\ 1633}#)
- (let ((#{first\ 1664}# (car #{e\ 1633}#)))
+ #{type\ 10809}#
+ (#{binding-value\ 9399}# #{b\ 10807}#)
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)))))))
+ (if (pair? #{e\ 10787}#)
+ (let ((#{first\ 10818}# (car #{e\ 10787}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 341}#
- #{first\ 1664}#
- #{r\ 1634}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{rib\ 1637}#
- #{mod\ 1638}#
+ (#{syntax-type\ 9495}#
+ #{first\ 10818}#
+ #{r\ 10788}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{rib\ 10791}#
+ #{mod\ 10792}#
#t))
- (lambda (#{ftype\ 1665}#
- #{fval\ 1666}#
- #{fe\ 1667}#
- #{fw\ 1668}#
- #{fs\ 1669}#
- #{fmod\ 1670}#)
- (if (memv #{ftype\ 1665}# (quote (lexical)))
+ (lambda (#{ftype\ 10819}#
+ #{fval\ 10820}#
+ #{fe\ 10821}#
+ #{fw\ 10822}#
+ #{fs\ 10823}#
+ #{fmod\ 10824}#)
+ (if (memv #{ftype\ 10819}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 1666}#
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (if (memv #{ftype\ 1665}# (quote (global)))
+ #{fval\ 10820}#
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (if (memv #{ftype\ 10819}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 222}#
- #{fval\ 1666}#
- #{w\ 1635}#
- #{fmod\ 1670}#)
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (if (memv #{ftype\ 1665}# (quote (macro)))
- (#{syntax-type\ 341}#
- (#{chi-macro\ 351}#
- #{fval\ 1666}#
- #{e\ 1633}#
- #{r\ 1634}#
- #{w\ 1635}#
- #{rib\ 1637}#
- #{mod\ 1638}#)
- #{r\ 1634}#
+ (#{make-syntax-object\ 9376}#
+ #{fval\ 10820}#
+ #{w\ 10789}#
+ #{fmod\ 10824}#)
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (if (memv #{ftype\ 10819}# (quote (macro)))
+ (#{syntax-type\ 9495}#
+ (#{chi-macro\ 9505}#
+ #{fval\ 10820}#
+ #{e\ 10787}#
+ #{r\ 10788}#
+ #{w\ 10789}#
+ #{rib\ 10791}#
+ #{mod\ 10792}#)
+ #{r\ 10788}#
'(())
- #{s\ 1636}#
- #{rib\ 1637}#
- #{mod\ 1638}#
- #{for-car?\ 1639}#)
- (if (memv #{ftype\ 1665}# (quote (module-ref)))
+ #{s\ 10790}#
+ #{rib\ 10791}#
+ #{mod\ 10792}#
+ #{for-car?\ 10793}#)
+ (if (memv #{ftype\ 10819}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 1666}# #{e\ 1633}#))
- (lambda (#{sym\ 1682}# #{mod\ 1683}#)
- (#{syntax-type\ 341}#
- #{sym\ 1682}#
- #{r\ 1634}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{rib\ 1637}#
- #{mod\ 1683}#
- #{for-car?\ 1639}#)))
- (if (memv #{ftype\ 1665}# (quote (core)))
+ (lambda () (#{fval\ 10820}# #{e\ 10787}#))
+ (lambda (#{sym\ 10836}# #{mod\ 10837}#)
+ (#{syntax-type\ 9495}#
+ #{sym\ 10836}#
+ #{r\ 10788}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{rib\ 10791}#
+ #{mod\ 10837}#
+ #{for-car?\ 10793}#)))
+ (if (memv #{ftype\ 10819}# (quote (core)))
(values
'core-form
- #{fval\ 1666}#
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (if (memv #{ftype\ 1665}#
+ #{fval\ 10820}#
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (if (memv #{ftype\ 10819}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 1666}#
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (if (memv #{ftype\ 1665}# (quote (begin)))
+ #{fval\ 10820}#
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (if (memv #{ftype\ 10819}#
+ '(begin))
(values
'begin-form
#f
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (if (memv #{ftype\ 1665}#
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (if (memv #{ftype\ 10819}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
- (if (memv #{ftype\ 1665}#
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
+ (if (memv #{ftype\ 10819}#
'(define))
- ((lambda (#{tmp\ 1691}#)
- ((lambda (#{tmp\ 1692}#)
- (if (if #{tmp\ 1692}#
- (apply (lambda (#{_\
1696}#
- #{name\
1697}#
- #{val\
1698}#)
- (#{id?\ 260}#
- #{name\
1697}#))
- #{tmp\ 1692}#)
+ ((lambda (#{tmp\ 10845}#)
+ ((lambda (#{tmp\ 10846}#)
+ (if (if #{tmp\ 10846}#
+ (apply (lambda (#{_\
10850}#
+ #{name\
10851}#
+ #{val\
10852}#)
+ (#{id?\ 9414}#
+ #{name\
10851}#))
+ #{tmp\ 10846}#)
#f)
- (apply (lambda (#{_\ 1702}#
- #{name\
1703}#
- #{val\
1704}#)
+ (apply (lambda (#{_\ 10856}#
+ #{name\
10857}#
+ #{val\
10858}#)
(values
'define-form
- #{name\ 1703}#
- #{val\ 1704}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#))
- #{tmp\ 1692}#)
- ((lambda (#{tmp\ 1705}#)
- (if (if #{tmp\ 1705}#
- (apply (lambda
(#{_\ 1711}#
-
#{name\ 1712}#
-
#{args\ 1713}#
-
#{e1\ 1714}#
-
#{e2\ 1715}#)
- (if
(#{id?\ 260}#
-
#{name\ 1712}#)
-
(#{valid-bound-ids?\ 323}#
-
(#{lambda-var-list\ 375}#
-
#{args\ 1713}#))
+ #{name\ 10857}#
+ #{val\ 10858}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#))
+ #{tmp\ 10846}#)
+ ((lambda (#{tmp\ 10859}#)
+ (if (if #{tmp\ 10859}#
+ (apply (lambda
(#{_\ 10865}#
+
#{name\ 10866}#
+
#{args\ 10867}#
+
#{e1\ 10868}#
+
#{e2\ 10869}#)
+ (if
(#{id?\ 9414}#
+
#{name\ 10866}#)
+
(#{valid-bound-ids?\ 9477}#
+
(#{lambda-var-list\ 9529}#
+
#{args\ 10867}#))
#f))
- #{tmp\
1705}#)
+ #{tmp\
10859}#)
#f)
- (apply (lambda (#{_\
1723}#
-
#{name\ 1724}#
-
#{args\ 1725}#
- #{e1\
1726}#
- #{e2\
1727}#)
+ (apply (lambda (#{_\
10877}#
+
#{name\ 10878}#
+
#{args\ 10879}#
+ #{e1\
10880}#
+ #{e2\
10881}#)
(values
'define-form
- (#{wrap\
329}#
- #{name\
1724}#
- #{w\
1635}#
- #{mod\
1638}#)
-
(#{decorate-source\ 180}#
+ (#{wrap\
9483}#
+ #{name\
10878}#
+ #{w\
10789}#
+ #{mod\
10792}#)
+
(#{decorate-source\ 9334}#
(cons
'#(syntax-object
lambda
((top)
@@ -3561,11 +3577,11 @@
(top)
(top)
(top))
-
#("i1718"
-
"i1719"
-
"i1720"
-
"i1721"
-
"i1722"))
+
#("i10872"
+
"i10873"
+
"i10874"
+
"i10875"
+
"i10876"))
#(ribcage
()
()
@@ -3587,12 +3603,12 @@
(top)
(top)
(top))
-
#("i1671"
-
"i1672"
-
"i1673"
-
"i1674"
-
"i1675"
-
"i1676"))
+
#("i10825"
+
"i10826"
+
"i10827"
+
"i10828"
+
"i10829"
+
"i10830"))
#(ribcage
()
()
@@ -3600,7 +3616,7 @@
#(ribcage
#(first)
#((top))
-
#("i1663"))
+
#("i10817"))
#(ribcage
()
()
@@ -3628,13 +3644,13 @@
(top)
(top)
(top))
-
#("i1640"
-
"i1641"
-
"i1642"
-
"i1643"
-
"i1644"
-
"i1645"
-
"i1646"))
+
#("i10794"
+
"i10795"
+
"i10796"
+
"i10797"
+
"i10798"
+
"i10799"
+
"i10800"))
#(ribcage
(lambda-var-list
gen-var
@@ -3870,159 +3886,159 @@
(top)
(top)
(top))
-
("i374"
-
"i372"
-
"i370"
-
"i368"
-
"i366"
-
"i364"
-
"i362"
-
"i360"
-
"i358"
-
"i356"
-
"i354"
-
"i352"
-
"i350"
-
"i348"
-
"i346"
-
"i344"
-
"i342"
-
"i340"
-
"i338"
-
"i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i303"
-
"i302"
-
"i300"
-
"i299"
-
"i298"
-
"i297"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i277"
-
"i275"
-
"i274"
-
"i273"
-
"i272"
-
"i271"
-
"i270"
-
"i268"
-
"i266"
-
"i264"
-
"i262"
-
"i261"
-
"i259"
-
"i257"
-
"i255"
-
"i253"
-
"i251"
-
"i249"
-
"i247"
-
"i246"
-
"i244"
-
"i242"
-
"i241"
-
"i240"
-
"i238"
-
"i237"
-
"i235"
-
"i233"
-
"i231"
-
"i229"
-
"i227"
-
"i225"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i174"
-
"i172"
-
"i170"
-
"i168"
-
"i166"
-
"i164"
-
"i162"
-
"i160"
-
"i158"))
+
("i9528"
+
"i9526"
+
"i9524"
+
"i9522"
+
"i9520"
+
"i9518"
+
"i9516"
+
"i9514"
+
"i9512"
+
"i9510"
+
"i9508"
+
"i9506"
+
"i9504"
+
"i9502"
+
"i9500"
+
"i9498"
+
"i9496"
+
"i9494"
+
"i9492"
+
"i9490"
+
"i9488"
+
"i9486"
+
"i9484"
+
"i9482"
+
"i9480"
+
"i9478"
+
"i9476"
+
"i9474"
+
"i9472"
+
"i9470"
+
"i9468"
+
"i9466"
+
"i9464"
+
"i9462"
+
"i9460"
+
"i9458"
+
"i9457"
+
"i9456"
+
"i9454"
+
"i9453"
+
"i9452"
+
"i9451"
+
"i9450"
+
"i9448"
+
"i9446"
+
"i9444"
+
"i9442"
+
"i9440"
+
"i9438"
+
"i9436"
+
"i9434"
+
"i9431"
+
"i9429"
+
"i9428"
+
"i9427"
+
"i9426"
+
"i9425"
+
"i9424"
+
"i9422"
+
"i9420"
+
"i9418"
+
"i9416"
+
"i9415"
+
"i9413"
+
"i9411"
+
"i9409"
+
"i9407"
+
"i9405"
+
"i9403"
+
"i9401"
+
"i9400"
+
"i9398"
+
"i9396"
+
"i9395"
+
"i9394"
+
"i9392"
+
"i9391"
+
"i9389"
+
"i9387"
+
"i9385"
+
"i9383"
+
"i9381"
+
"i9379"
+
"i9377"
+
"i9375"
+
"i9373"
+
"i9371"
+
"i9369"
+
"i9367"
+
"i9365"
+
"i9363"
+
"i9361"
+
"i9359"
+
"i9357"
+
"i9355"
+
"i9353"
+
"i9351"
+
"i9349"
+
"i9347"
+
"i9345"
+
"i9343"
+
"i9341"
+
"i9339"
+
"i9337"
+
"i9335"
+
"i9333"
+
"i9331"
+
"i9329"
+
"i9328"
+
"i9326"
+
"i9324"
+
"i9322"
+
"i9320"
+
"i9318"
+
"i9316"
+
"i9314"
+
"i9312"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i61"
-
"i59")))
+
("i9215"
+
"i9213")))
(hygiene
guile))
-
(#{wrap\ 329}#
-
(cons #{args\ 1725}#
-
(cons #{e1\ 1726}#
-
#{e2\ 1727}#))
-
#{w\ 1635}#
-
#{mod\ 1638}#))
- #{s\
1636}#)
+
(#{wrap\ 9483}#
+
(cons #{args\ 10879}#
+
(cons #{e1\ 10880}#
+
#{e2\ 10881}#))
+
#{w\ 10789}#
+
#{mod\ 10792}#))
+ #{s\
10790}#)
'(())
- #{s\ 1636}#
- #{mod\
1638}#))
- #{tmp\ 1705}#)
- ((lambda (#{tmp\
1730}#)
- (if (if #{tmp\
1730}#
- (apply
(lambda (#{_\ 1733}#
-
#{name\ 1734}#)
-
(#{id?\ 260}#
-
#{name\ 1734}#))
- #{tmp\
1730}#)
+ #{s\ 10790}#
+ #{mod\
10792}#))
+ #{tmp\ 10859}#)
+ ((lambda (#{tmp\
10884}#)
+ (if (if #{tmp\
10884}#
+ (apply
(lambda (#{_\ 10887}#
+
#{name\ 10888}#)
+
(#{id?\ 9414}#
+
#{name\ 10888}#))
+ #{tmp\
10884}#)
#f)
- (apply (lambda
(#{_\ 1737}#
-
#{name\ 1738}#)
+ (apply (lambda
(#{_\ 10891}#
+
#{name\ 10892}#)
(values
'define-form
-
(#{wrap\ 329}#
-
#{name\ 1738}#
- #{w\
1635}#
-
#{mod\ 1638}#)
+
(#{wrap\ 9483}#
+
#{name\ 10892}#
+ #{w\
10789}#
+
#{mod\ 10792}#)
'(#(syntax-object
if
((top)
@@ -4031,8 +4047,8 @@
name)
#((top)
(top))
-
#("i1735"
-
"i1736"))
+
#("i10889"
+
"i10890"))
#(ribcage
()
()
@@ -4054,12 +4070,12 @@
(top)
(top)
(top))
-
#("i1671"
-
"i1672"
-
"i1673"
-
"i1674"
-
"i1675"
-
"i1676"))
+
#("i10825"
+
"i10826"
+
"i10827"
+
"i10828"
+
"i10829"
+
"i10830"))
#(ribcage
()
()
@@ -4067,7 +4083,7 @@
#(ribcage
#(first)
#((top))
-
#("i1663"))
+
#("i10817"))
#(ribcage
()
()
@@ -4095,13 +4111,13 @@
(top)
(top)
(top))
-
#("i1640"
-
"i1641"
-
"i1642"
-
"i1643"
-
"i1644"
-
"i1645"
-
"i1646"))
+
#("i10794"
+
"i10795"
+
"i10796"
+
"i10797"
+
"i10798"
+
"i10799"
+
"i10800"))
#(ribcage
(lambda-var-list
gen-var
@@ -4337,130 +4353,130 @@
(top)
(top)
(top))
-
("i374"
-
"i372"
-
"i370"
-
"i368"
-
"i366"
-
"i364"
-
"i362"
-
"i360"
-
"i358"
-
"i356"
-
"i354"
-
"i352"
-
"i350"
-
"i348"
-
"i346"
-
"i344"
-
"i342"
-
"i340"
-
"i338"
-
"i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i303"
-
"i302"
-
"i300"
-
"i299"
-
"i298"
-
"i297"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i277"
-
"i275"
-
"i274"
-
"i273"
-
"i272"
-
"i271"
-
"i270"
-
"i268"
-
"i266"
-
"i264"
-
"i262"
-
"i261"
-
"i259"
-
"i257"
-
"i255"
-
"i253"
-
"i251"
-
"i249"
-
"i247"
-
"i246"
-
"i244"
-
"i242"
-
"i241"
-
"i240"
-
"i238"
-
"i237"
-
"i235"
-
"i233"
-
"i231"
-
"i229"
-
"i227"
-
"i225"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i174"
-
"i172"
-
"i170"
-
"i168"
-
"i166"
-
"i164"
-
"i162"
-
"i160"
-
"i158"))
+
("i9528"
+
"i9526"
+
"i9524"
+
"i9522"
+
"i9520"
+
"i9518"
+
"i9516"
+
"i9514"
+
"i9512"
+
"i9510"
+
"i9508"
+
"i9506"
+
"i9504"
+
"i9502"
+
"i9500"
+
"i9498"
+
"i9496"
+
"i9494"
+
"i9492"
+
"i9490"
+
"i9488"
+
"i9486"
+
"i9484"
+
"i9482"
+
"i9480"
+
"i9478"
+
"i9476"
+
"i9474"
+
"i9472"
+
"i9470"
+
"i9468"
+
"i9466"
+
"i9464"
+
"i9462"
+
"i9460"
+
"i9458"
+
"i9457"
+
"i9456"
+
"i9454"
+
"i9453"
+
"i9452"
+
"i9451"
+
"i9450"
+
"i9448"
+
"i9446"
+
"i9444"
+
"i9442"
+
"i9440"
+
"i9438"
+
"i9436"
+
"i9434"
+
"i9431"
+
"i9429"
+
"i9428"
+
"i9427"
+
"i9426"
+
"i9425"
+
"i9424"
+
"i9422"
+
"i9420"
+
"i9418"
+
"i9416"
+
"i9415"
+
"i9413"
+
"i9411"
+
"i9409"
+
"i9407"
+
"i9405"
+
"i9403"
+
"i9401"
+
"i9400"
+
"i9398"
+
"i9396"
+
"i9395"
+
"i9394"
+
"i9392"
+
"i9391"
+
"i9389"
+
"i9387"
+
"i9385"
+
"i9383"
+
"i9381"
+
"i9379"
+
"i9377"
+
"i9375"
+
"i9373"
+
"i9371"
+
"i9369"
+
"i9367"
+
"i9365"
+
"i9363"
+
"i9361"
+
"i9359"
+
"i9357"
+
"i9355"
+
"i9353"
+
"i9351"
+
"i9349"
+
"i9347"
+
"i9345"
+
"i9343"
+
"i9341"
+
"i9339"
+
"i9337"
+
"i9335"
+
"i9333"
+
"i9331"
+
"i9329"
+
"i9328"
+
"i9326"
+
"i9324"
+
"i9322"
+
"i9320"
+
"i9318"
+
"i9316"
+
"i9314"
+
"i9312"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i61"
-
"i59")))
+
("i9215"
+
"i9213")))
(hygiene
guile))
#(syntax-object
@@ -4471,8 +4487,8 @@
name)
#((top)
(top))
-
#("i1735"
-
"i1736"))
+
#("i10889"
+
"i10890"))
#(ribcage
()
()
@@ -4494,12 +4510,12 @@
(top)
(top)
(top))
-
#("i1671"
-
"i1672"
-
"i1673"
-
"i1674"
-
"i1675"
-
"i1676"))
+
#("i10825"
+
"i10826"
+
"i10827"
+
"i10828"
+
"i10829"
+
"i10830"))
#(ribcage
()
()
@@ -4507,7 +4523,7 @@
#(ribcage
#(first)
#((top))
-
#("i1663"))
+
#("i10817"))
#(ribcage
()
()
@@ -4535,13 +4551,13 @@
(top)
(top)
(top))
-
#("i1640"
-
"i1641"
-
"i1642"
-
"i1643"
-
"i1644"
-
"i1645"
-
"i1646"))
+
#("i10794"
+
"i10795"
+
"i10796"
+
"i10797"
+
"i10798"
+
"i10799"
+
"i10800"))
#(ribcage
(lambda-var-list
gen-var
@@ -4777,130 +4793,130 @@
(top)
(top)
(top))
-
("i374"
-
"i372"
-
"i370"
-
"i368"
-
"i366"
-
"i364"
-
"i362"
-
"i360"
-
"i358"
-
"i356"
-
"i354"
-
"i352"
-
"i350"
-
"i348"
-
"i346"
-
"i344"
-
"i342"
-
"i340"
-
"i338"
-
"i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i303"
-
"i302"
-
"i300"
-
"i299"
-
"i298"
-
"i297"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i277"
-
"i275"
-
"i274"
-
"i273"
-
"i272"
-
"i271"
-
"i270"
-
"i268"
-
"i266"
-
"i264"
-
"i262"
-
"i261"
-
"i259"
-
"i257"
-
"i255"
-
"i253"
-
"i251"
-
"i249"
-
"i247"
-
"i246"
-
"i244"
-
"i242"
-
"i241"
-
"i240"
-
"i238"
-
"i237"
-
"i235"
-
"i233"
-
"i231"
-
"i229"
-
"i227"
-
"i225"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i174"
-
"i172"
-
"i170"
-
"i168"
-
"i166"
-
"i164"
-
"i162"
-
"i160"
-
"i158"))
+
("i9528"
+
"i9526"
+
"i9524"
+
"i9522"
+
"i9520"
+
"i9518"
+
"i9516"
+
"i9514"
+
"i9512"
+
"i9510"
+
"i9508"
+
"i9506"
+
"i9504"
+
"i9502"
+
"i9500"
+
"i9498"
+
"i9496"
+
"i9494"
+
"i9492"
+
"i9490"
+
"i9488"
+
"i9486"
+
"i9484"
+
"i9482"
+
"i9480"
+
"i9478"
+
"i9476"
+
"i9474"
+
"i9472"
+
"i9470"
+
"i9468"
+
"i9466"
+
"i9464"
+
"i9462"
+
"i9460"
+
"i9458"
+
"i9457"
+
"i9456"
+
"i9454"
+
"i9453"
+
"i9452"
+
"i9451"
+
"i9450"
+
"i9448"
+
"i9446"
+
"i9444"
+
"i9442"
+
"i9440"
+
"i9438"
+
"i9436"
+
"i9434"
+
"i9431"
+
"i9429"
+
"i9428"
+
"i9427"
+
"i9426"
+
"i9425"
+
"i9424"
+
"i9422"
+
"i9420"
+
"i9418"
+
"i9416"
+
"i9415"
+
"i9413"
+
"i9411"
+
"i9409"
+
"i9407"
+
"i9405"
+
"i9403"
+
"i9401"
+
"i9400"
+
"i9398"
+
"i9396"
+
"i9395"
+
"i9394"
+
"i9392"
+
"i9391"
+
"i9389"
+
"i9387"
+
"i9385"
+
"i9383"
+
"i9381"
+
"i9379"
+
"i9377"
+
"i9375"
+
"i9373"
+
"i9371"
+
"i9369"
+
"i9367"
+
"i9365"
+
"i9363"
+
"i9361"
+
"i9359"
+
"i9357"
+
"i9355"
+
"i9353"
+
"i9351"
+
"i9349"
+
"i9347"
+
"i9345"
+
"i9343"
+
"i9341"
+
"i9339"
+
"i9337"
+
"i9335"
+
"i9333"
+
"i9331"
+
"i9329"
+
"i9328"
+
"i9326"
+
"i9324"
+
"i9322"
+
"i9320"
+
"i9318"
+
"i9316"
+
"i9314"
+
"i9312"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i61"
-
"i59")))
+
("i9215"
+
"i9213")))
(hygiene
guile))
#(syntax-object
@@ -4911,8 +4927,8 @@
name)
#((top)
(top))
-
#("i1735"
-
"i1736"))
+
#("i10889"
+
"i10890"))
#(ribcage
()
()
@@ -4934,12 +4950,12 @@
(top)
(top)
(top))
-
#("i1671"
-
"i1672"
-
"i1673"
-
"i1674"
-
"i1675"
-
"i1676"))
+
#("i10825"
+
"i10826"
+
"i10827"
+
"i10828"
+
"i10829"
+
"i10830"))
#(ribcage
()
()
@@ -4947,7 +4963,7 @@
#(ribcage
#(first)
#((top))
-
#("i1663"))
+
#("i10817"))
#(ribcage
()
()
@@ -4975,13 +4991,13 @@
(top)
(top)
(top))
-
#("i1640"
-
"i1641"
-
"i1642"
-
"i1643"
-
"i1644"
-
"i1645"
-
"i1646"))
+
#("i10794"
+
"i10795"
+
"i10796"
+
"i10797"
+
"i10798"
+
"i10799"
+
"i10800"))
#(ribcage
(lambda-var-list
gen-var
@@ -5217,231 +5233,231 @@
(top)
(top)
(top))
-
("i374"
-
"i372"
-
"i370"
-
"i368"
-
"i366"
-
"i364"
-
"i362"
-
"i360"
-
"i358"
-
"i356"
-
"i354"
-
"i352"
-
"i350"
-
"i348"
-
"i346"
-
"i344"
-
"i342"
-
"i340"
-
"i338"
-
"i336"
-
"i334"
-
"i332"
-
"i330"
-
"i328"
-
"i326"
-
"i324"
-
"i322"
-
"i320"
-
"i318"
-
"i316"
-
"i314"
-
"i312"
-
"i310"
-
"i308"
-
"i306"
-
"i304"
-
"i303"
-
"i302"
-
"i300"
-
"i299"
-
"i298"
-
"i297"
-
"i296"
-
"i294"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i277"
-
"i275"
-
"i274"
-
"i273"
-
"i272"
-
"i271"
-
"i270"
-
"i268"
-
"i266"
-
"i264"
-
"i262"
-
"i261"
-
"i259"
-
"i257"
-
"i255"
-
"i253"
-
"i251"
-
"i249"
-
"i247"
-
"i246"
-
"i244"
-
"i242"
-
"i241"
-
"i240"
-
"i238"
-
"i237"
-
"i235"
-
"i233"
-
"i231"
-
"i229"
-
"i227"
-
"i225"
-
"i223"
-
"i221"
-
"i219"
-
"i217"
-
"i215"
-
"i213"
-
"i211"
-
"i209"
-
"i207"
-
"i205"
-
"i203"
-
"i201"
-
"i199"
-
"i197"
-
"i195"
-
"i193"
-
"i191"
-
"i189"
-
"i187"
-
"i185"
-
"i183"
-
"i181"
-
"i179"
-
"i177"
-
"i175"
-
"i174"
-
"i172"
-
"i170"
-
"i168"
-
"i166"
-
"i164"
-
"i162"
-
"i160"
-
"i158"))
+
("i9528"
+
"i9526"
+
"i9524"
+
"i9522"
+
"i9520"
+
"i9518"
+
"i9516"
+
"i9514"
+
"i9512"
+
"i9510"
+
"i9508"
+
"i9506"
+
"i9504"
+
"i9502"
+
"i9500"
+
"i9498"
+
"i9496"
+
"i9494"
+
"i9492"
+
"i9490"
+
"i9488"
+
"i9486"
+
"i9484"
+
"i9482"
+
"i9480"
+
"i9478"
+
"i9476"
+
"i9474"
+
"i9472"
+
"i9470"
+
"i9468"
+
"i9466"
+
"i9464"
+
"i9462"
+
"i9460"
+
"i9458"
+
"i9457"
+
"i9456"
+
"i9454"
+
"i9453"
+
"i9452"
+
"i9451"
+
"i9450"
+
"i9448"
+
"i9446"
+
"i9444"
+
"i9442"
+
"i9440"
+
"i9438"
+
"i9436"
+
"i9434"
+
"i9431"
+
"i9429"
+
"i9428"
+
"i9427"
+
"i9426"
+
"i9425"
+
"i9424"
+
"i9422"
+
"i9420"
+
"i9418"
+
"i9416"
+
"i9415"
+
"i9413"
+
"i9411"
+
"i9409"
+
"i9407"
+
"i9405"
+
"i9403"
+
"i9401"
+
"i9400"
+
"i9398"
+
"i9396"
+
"i9395"
+
"i9394"
+
"i9392"
+
"i9391"
+
"i9389"
+
"i9387"
+
"i9385"
+
"i9383"
+
"i9381"
+
"i9379"
+
"i9377"
+
"i9375"
+
"i9373"
+
"i9371"
+
"i9369"
+
"i9367"
+
"i9365"
+
"i9363"
+
"i9361"
+
"i9359"
+
"i9357"
+
"i9355"
+
"i9353"
+
"i9351"
+
"i9349"
+
"i9347"
+
"i9345"
+
"i9343"
+
"i9341"
+
"i9339"
+
"i9337"
+
"i9335"
+
"i9333"
+
"i9331"
+
"i9329"
+
"i9328"
+
"i9326"
+
"i9324"
+
"i9322"
+
"i9320"
+
"i9318"
+
"i9316"
+
"i9314"
+
"i9312"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i61"
-
"i59")))
+
("i9215"
+
"i9213")))
(hygiene
guile)))
'(())
- #{s\
1636}#
- #{mod\
1638}#))
- #{tmp\
1730}#)
+ #{s\
10790}#
+ #{mod\
10792}#))
+ #{tmp\
10884}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 1691}#)))
+ #{tmp\
10845}#)))
($sc-dispatch
- #{tmp\ 1691}#
+ #{tmp\ 10845}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1691}#
+ #{tmp\ 10845}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1691}#
+ #{tmp\ 10845}#
'(any any any))))
- #{e\ 1633}#)
- (if (memv #{ftype\ 1665}#
+ #{e\ 10787}#)
+ (if (memv #{ftype\ 10819}#
'(define-syntax))
- ((lambda (#{tmp\ 1741}#)
- ((lambda (#{tmp\ 1742}#)
- (if (if #{tmp\ 1742}#
- (apply (lambda (#{_\
1746}#
-
#{name\ 1747}#
-
#{val\ 1748}#)
- (#{id?\ 260}#
- #{name\
1747}#))
- #{tmp\ 1742}#)
+ ((lambda (#{tmp\ 10895}#)
+ ((lambda (#{tmp\ 10896}#)
+ (if (if #{tmp\ 10896}#
+ (apply (lambda (#{_\
10900}#
+
#{name\ 10901}#
+
#{val\ 10902}#)
+ (#{id?\
9414}#
+ #{name\
10901}#))
+ #{tmp\ 10896}#)
#f)
- (apply (lambda (#{_\
1752}#
- #{name\
1753}#
- #{val\
1754}#)
+ (apply (lambda (#{_\
10906}#
+ #{name\
10907}#
+ #{val\
10908}#)
(values
'define-syntax-form
- #{name\ 1753}#
- #{val\ 1754}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#))
- #{tmp\ 1742}#)
+ #{name\ 10907}#
+ #{val\ 10908}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\
10792}#))
+ #{tmp\ 10896}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1741}#)))
+ #{tmp\ 10895}#)))
($sc-dispatch
- #{tmp\ 1741}#
+ #{tmp\ 10895}#
'(any any any))))
- #{e\ 1633}#)
+ #{e\ 10787}#)
(values
'call
#f
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#))))))))))))))
- (if (#{syntax-object?\ 224}# #{e\ 1633}#)
- (#{syntax-type\ 341}#
- (#{syntax-object-expression\ 226}# #{e\ 1633}#)
- #{r\ 1634}#
- (#{join-wraps\ 311}#
- #{w\ 1635}#
- (#{syntax-object-wrap\ 228}# #{e\ 1633}#))
- #{s\ 1636}#
- #{rib\ 1637}#
- (let ((#{t\ 1760}#
- (#{syntax-object-module\ 230}# #{e\ 1633}#)))
- (if #{t\ 1760}# #{t\ 1760}# #{mod\ 1638}#))
- #{for-car?\ 1639}#)
- (if (self-evaluating? #{e\ 1633}#)
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#))))))))))))))
+ (if (#{syntax-object?\ 9378}# #{e\ 10787}#)
+ (#{syntax-type\ 9495}#
+ (#{syntax-object-expression\ 9380}# #{e\ 10787}#)
+ #{r\ 10788}#
+ (#{join-wraps\ 9465}#
+ #{w\ 10789}#
+ (#{syntax-object-wrap\ 9382}# #{e\ 10787}#))
+ #{s\ 10790}#
+ #{rib\ 10791}#
+ (let ((#{t\ 10914}#
+ (#{syntax-object-module\ 9384}# #{e\ 10787}#)))
+ (if #{t\ 10914}# #{t\ 10914}# #{mod\ 10792}#))
+ #{for-car?\ 10793}#)
+ (if (self-evaluating? #{e\ 10787}#)
(values
'constant
#f
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)
(values
'other
#f
- #{e\ 1633}#
- #{w\ 1635}#
- #{s\ 1636}#
- #{mod\ 1638}#)))))))
- (#{chi-when-list\ 339}#
- (lambda (#{e\ 1765}# #{when-list\ 1766}# #{w\ 1767}#)
- (letrec ((#{f\ 1774}#
- (lambda (#{when-list\ 1775}# #{situations\ 1776}#)
- (if (null? #{when-list\ 1775}#)
- #{situations\ 1776}#
- (#{f\ 1774}#
- (cdr #{when-list\ 1775}#)
- (cons (let ((#{x\ 1778}#
- (car #{when-list\ 1775}#)))
- (if (#{free-id=?\ 319}#
- #{x\ 1778}#
+ #{e\ 10787}#
+ #{w\ 10789}#
+ #{s\ 10790}#
+ #{mod\ 10792}#)))))))
+ (#{chi-when-list\ 9493}#
+ (lambda (#{e\ 10919}# #{when-list\ 10920}# #{w\ 10921}#)
+ (letrec ((#{f\ 10928}#
+ (lambda (#{when-list\ 10929}# #{situations\ 10930}#)
+ (if (null? #{when-list\ 10929}#)
+ #{situations\ 10930}#
+ (#{f\ 10928}#
+ (cdr #{when-list\ 10929}#)
+ (cons (let ((#{x\ 10932}#
+ (car #{when-list\ 10929}#)))
+ (if (#{free-id=?\ 9473}#
+ #{x\ 10932}#
'#(syntax-object
compile
((top)
@@ -5451,17 +5467,21 @@
#(ribcage
#(x)
#((top))
- #("i1777"))
+ #("i10931"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1771" "i1772" "i1773"))
+ #("i10925"
+ "i10926"
+ "i10927"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1768" "i1769" "i1770"))
+ #("i10922"
+ "i10923"
+ "i10924"))
#(ribcage
(lambda-var-list
gen-var
@@ -5697,131 +5717,131 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
- "i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+ "i9312"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i61" "i59")))
+ ("i9215" "i9213")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 319}#
- #{x\ 1778}#
+ (if (#{free-id=?\ 9473}#
+ #{x\ 10932}#
'#(syntax-object
load
((top)
@@ -5831,21 +5851,21 @@
#(ribcage
#(x)
#((top))
- #("i1777"))
+ #("i10931"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1771"
- "i1772"
- "i1773"))
+ #("i10925"
+ "i10926"
+ "i10927"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1768"
- "i1769"
- "i1770"))
+ #("i10922"
+ "i10923"
+ "i10924"))
#(ribcage
(lambda-var-list
gen-var
@@ -6081,132 +6101,132 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
- "i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+ "i9312"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i61" "i59")))
+ ("i9215" "i9213")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 319}#
- #{x\ 1778}#
+ (if (#{free-id=?\ 9473}#
+ #{x\ 10932}#
'#(syntax-object
eval
((top)
@@ -6216,23 +6236,23 @@
#(ribcage
#(x)
#((top))
- #("i1777"))
+ #("i10931"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i1771"
- "i1772"
- "i1773"))
+ #("i10925"
+ "i10926"
+ "i10927"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1768"
- "i1769"
- "i1770"))
+ #("i10922"
+ "i10923"
+ "i10924"))
#(ribcage
(lambda-var-list
gen-var
@@ -6468,1044 +6488,1030 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
- "i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+ "i9312"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i61" "i59")))
+ ("i9215" "i9213")))
(hygiene guile)))
'eval
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1765}#
- (#{wrap\ 329}#
- #{x\ 1778}#
- #{w\ 1767}#
+ #{e\ 10919}#
+ (#{wrap\ 9483}#
+ #{x\ 10932}#
+ #{w\ 10921}#
#f))))))
- #{situations\ 1776}#))))))
- (#{f\ 1774}# #{when-list\ 1766}# (quote ())))))
- (#{chi-install-global\ 337}#
- (lambda (#{name\ 1786}# #{e\ 1787}#)
- (#{build-global-definition\ 200}#
+ #{situations\ 10930}#))))))
+ (#{f\ 10928}# #{when-list\ 10920}# (quote ())))))
+ (#{chi-install-global\ 9491}#
+ (lambda (#{name\ 10940}# #{e\ 10941}#)
+ (#{build-global-definition\ 9354}#
#f
- #{name\ 1786}#
- (if (let ((#{v\ 1792}#
- (module-variable
- (current-module)
- #{name\ 1786}#)))
- (if #{v\ 1792}#
- (if (variable-bound? #{v\ 1792}#)
- (if (macro? (variable-ref #{v\ 1792}#))
- (not (eq? (macro-type (variable-ref #{v\ 1792}#))
- 'syncase-macro))
- #f)
- #f)
- #f))
- (#{build-application\ 184}#
- #f
- (#{build-primref\ 208}#
- #f
- 'make-extended-syncase-macro)
- (list (#{build-application\ 184}#
- #f
- (#{build-primref\ 208}# #f (quote module-ref))
- (list (#{build-application\ 184}#
- #f
- (#{build-primref\ 208}#
- #f
- 'current-module)
- '())
- (#{build-data\ 210}# #f #{name\ 1786}#)))
- (#{build-data\ 210}# #f (quote macro))
- (#{build-application\ 184}#
- #f
- (#{build-primref\ 208}# #f (quote cons))
- (list #{e\ 1787}#
- (#{build-application\ 184}#
- #f
- (#{build-primref\ 208}#
- #f
- 'module-name)
- (list (#{build-application\ 184}#
- #f
- (#{build-primref\ 208}#
- #f
- 'current-module)
- '())))))))
- (#{build-application\ 184}#
+ #{name\ 10940}#
+ (#{build-application\ 9338}#
+ #f
+ (#{build-primref\ 9362}#
#f
- (#{build-primref\ 208}#
- #f
- 'make-syncase-macro)
- (list (#{build-data\ 210}# #f (quote macro))
- (#{build-application\ 184}#
- #f
- (#{build-primref\ 208}# #f (quote cons))
- (list #{e\ 1787}#
- (#{build-application\ 184}#
+ 'make-syntax-transformer)
+ (list (#{build-data\ 9364}# #f #{name\ 10940}#)
+ (#{build-data\ 9364}# #f (quote macro))
+ (#{build-application\ 9338}#
+ #f
+ (#{build-primref\ 9362}# #f (quote cons))
+ (list #{e\ 10941}#
+ (#{build-application\ 9338}#
+ #f
+ (#{build-primref\ 9362}#
#f
- (#{build-primref\ 208}#
- #f
- 'module-name)
- (list (#{build-application\ 184}#
+ 'module-name)
+ (list (#{build-application\ 9338}#
+ #f
+ (#{build-primref\ 9362}#
#f
- (#{build-primref\ 208}#
- #f
- 'current-module)
- '())))))))))))
- (#{chi-top-sequence\ 335}#
- (lambda (#{body\ 1820}#
- #{r\ 1821}#
- #{w\ 1822}#
- #{s\ 1823}#
- #{m\ 1824}#
- #{esew\ 1825}#
- #{mod\ 1826}#)
- (#{build-sequence\ 212}#
- #{s\ 1823}#
- (letrec ((#{dobody\ 1841}#
- (lambda (#{body\ 1842}#
- #{r\ 1843}#
- #{w\ 1844}#
- #{m\ 1845}#
- #{esew\ 1846}#
- #{mod\ 1847}#)
- (if (null? #{body\ 1842}#)
+ 'current-module)
+ '()))))))))))
+ (#{chi-top-sequence\ 9489}#
+ (lambda (#{body\ 10955}#
+ #{r\ 10956}#
+ #{w\ 10957}#
+ #{s\ 10958}#
+ #{m\ 10959}#
+ #{esew\ 10960}#
+ #{mod\ 10961}#)
+ (#{build-sequence\ 9366}#
+ #{s\ 10958}#
+ (letrec ((#{dobody\ 10976}#
+ (lambda (#{body\ 10977}#
+ #{r\ 10978}#
+ #{w\ 10979}#
+ #{m\ 10980}#
+ #{esew\ 10981}#
+ #{mod\ 10982}#)
+ (if (null? #{body\ 10977}#)
'()
- (let ((#{first\ 1849}#
- (#{chi-top\ 343}#
- (car #{body\ 1842}#)
- #{r\ 1843}#
- #{w\ 1844}#
- #{m\ 1845}#
- #{esew\ 1846}#
- #{mod\ 1847}#)))
- (cons #{first\ 1849}#
- (#{dobody\ 1841}#
- (cdr #{body\ 1842}#)
- #{r\ 1843}#
- #{w\ 1844}#
- #{m\ 1845}#
- #{esew\ 1846}#
- #{mod\ 1847}#)))))))
- (#{dobody\ 1841}#
- #{body\ 1820}#
- #{r\ 1821}#
- #{w\ 1822}#
- #{m\ 1824}#
- #{esew\ 1825}#
- #{mod\ 1826}#)))))
- (#{chi-sequence\ 333}#
- (lambda (#{body\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (#{build-sequence\ 212}#
- #{s\ 1853}#
- (letrec ((#{dobody\ 1865}#
- (lambda (#{body\ 1866}#
- #{r\ 1867}#
- #{w\ 1868}#
- #{mod\ 1869}#)
- (if (null? #{body\ 1866}#)
+ (let ((#{first\ 10984}#
+ (#{chi-top\ 9497}#
+ (car #{body\ 10977}#)
+ #{r\ 10978}#
+ #{w\ 10979}#
+ #{m\ 10980}#
+ #{esew\ 10981}#
+ #{mod\ 10982}#)))
+ (cons #{first\ 10984}#
+ (#{dobody\ 10976}#
+ (cdr #{body\ 10977}#)
+ #{r\ 10978}#
+ #{w\ 10979}#
+ #{m\ 10980}#
+ #{esew\ 10981}#
+ #{mod\ 10982}#)))))))
+ (#{dobody\ 10976}#
+ #{body\ 10955}#
+ #{r\ 10956}#
+ #{w\ 10957}#
+ #{m\ 10959}#
+ #{esew\ 10960}#
+ #{mod\ 10961}#)))))
+ (#{chi-sequence\ 9487}#
+ (lambda (#{body\ 10985}#
+ #{r\ 10986}#
+ #{w\ 10987}#
+ #{s\ 10988}#
+ #{mod\ 10989}#)
+ (#{build-sequence\ 9366}#
+ #{s\ 10988}#
+ (letrec ((#{dobody\ 11000}#
+ (lambda (#{body\ 11001}#
+ #{r\ 11002}#
+ #{w\ 11003}#
+ #{mod\ 11004}#)
+ (if (null? #{body\ 11001}#)
'()
- (let ((#{first\ 1871}#
- (#{chi\ 345}#
- (car #{body\ 1866}#)
- #{r\ 1867}#
- #{w\ 1868}#
- #{mod\ 1869}#)))
- (cons #{first\ 1871}#
- (#{dobody\ 1865}#
- (cdr #{body\ 1866}#)
- #{r\ 1867}#
- #{w\ 1868}#
- #{mod\ 1869}#)))))))
- (#{dobody\ 1865}#
- #{body\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{mod\ 1854}#)))))
- (#{source-wrap\ 331}#
- (lambda (#{x\ 1872}#
- #{w\ 1873}#
- #{s\ 1874}#
- #{defmod\ 1875}#)
- (#{wrap\ 329}#
- (#{decorate-source\ 180}#
- #{x\ 1872}#
- #{s\ 1874}#)
- #{w\ 1873}#
- #{defmod\ 1875}#)))
- (#{wrap\ 329}#
- (lambda (#{x\ 1880}# #{w\ 1881}# #{defmod\ 1882}#)
- (if (if (null? (#{wrap-marks\ 267}# #{w\ 1881}#))
- (null? (#{wrap-subst\ 269}# #{w\ 1881}#))
+ (let ((#{first\ 11006}#
+ (#{chi\ 9499}#
+ (car #{body\ 11001}#)
+ #{r\ 11002}#
+ #{w\ 11003}#
+ #{mod\ 11004}#)))
+ (cons #{first\ 11006}#
+ (#{dobody\ 11000}#
+ (cdr #{body\ 11001}#)
+ #{r\ 11002}#
+ #{w\ 11003}#
+ #{mod\ 11004}#)))))))
+ (#{dobody\ 11000}#
+ #{body\ 10985}#
+ #{r\ 10986}#
+ #{w\ 10987}#
+ #{mod\ 10989}#)))))
+ (#{source-wrap\ 9485}#
+ (lambda (#{x\ 11007}#
+ #{w\ 11008}#
+ #{s\ 11009}#
+ #{defmod\ 11010}#)
+ (#{wrap\ 9483}#
+ (#{decorate-source\ 9334}#
+ #{x\ 11007}#
+ #{s\ 11009}#)
+ #{w\ 11008}#
+ #{defmod\ 11010}#)))
+ (#{wrap\ 9483}#
+ (lambda (#{x\ 11015}# #{w\ 11016}# #{defmod\ 11017}#)
+ (if (if (null? (#{wrap-marks\ 9421}# #{w\ 11016}#))
+ (null? (#{wrap-subst\ 9423}# #{w\ 11016}#))
#f)
- #{x\ 1880}#
- (if (#{syntax-object?\ 224}# #{x\ 1880}#)
- (#{make-syntax-object\ 222}#
- (#{syntax-object-expression\ 226}# #{x\ 1880}#)
- (#{join-wraps\ 311}#
- #{w\ 1881}#
- (#{syntax-object-wrap\ 228}# #{x\ 1880}#))
- (#{syntax-object-module\ 230}# #{x\ 1880}#))
- (if (null? #{x\ 1880}#)
- #{x\ 1880}#
- (#{make-syntax-object\ 222}#
- #{x\ 1880}#
- #{w\ 1881}#
- #{defmod\ 1882}#))))))
- (#{bound-id-member?\ 327}#
- (lambda (#{x\ 1895}# #{list\ 1896}#)
- (if (not (null? #{list\ 1896}#))
- (let ((#{t\ 1903}#
- (#{bound-id=?\ 321}#
- #{x\ 1895}#
- (car #{list\ 1896}#))))
- (if #{t\ 1903}#
- #{t\ 1903}#
- (#{bound-id-member?\ 327}#
- #{x\ 1895}#
- (cdr #{list\ 1896}#))))
+ #{x\ 11015}#
+ (if (#{syntax-object?\ 9378}# #{x\ 11015}#)
+ (#{make-syntax-object\ 9376}#
+ (#{syntax-object-expression\ 9380}# #{x\ 11015}#)
+ (#{join-wraps\ 9465}#
+ #{w\ 11016}#
+ (#{syntax-object-wrap\ 9382}# #{x\ 11015}#))
+ (#{syntax-object-module\ 9384}# #{x\ 11015}#))
+ (if (null? #{x\ 11015}#)
+ #{x\ 11015}#
+ (#{make-syntax-object\ 9376}#
+ #{x\ 11015}#
+ #{w\ 11016}#
+ #{defmod\ 11017}#))))))
+ (#{bound-id-member?\ 9481}#
+ (lambda (#{x\ 11030}# #{list\ 11031}#)
+ (if (not (null? #{list\ 11031}#))
+ (let ((#{t\ 11038}#
+ (#{bound-id=?\ 9475}#
+ #{x\ 11030}#
+ (car #{list\ 11031}#))))
+ (if #{t\ 11038}#
+ #{t\ 11038}#
+ (#{bound-id-member?\ 9481}#
+ #{x\ 11030}#
+ (cdr #{list\ 11031}#))))
#f)))
- (#{distinct-bound-ids?\ 325}#
- (lambda (#{ids\ 1905}#)
- (letrec ((#{distinct?\ 1909}#
- (lambda (#{ids\ 1910}#)
- (let ((#{t\ 1913}# (null? #{ids\ 1910}#)))
- (if #{t\ 1913}#
- #{t\ 1913}#
- (if (not (#{bound-id-member?\ 327}#
- (car #{ids\ 1910}#)
- (cdr #{ids\ 1910}#)))
- (#{distinct?\ 1909}# (cdr #{ids\ 1910}#))
+ (#{distinct-bound-ids?\ 9479}#
+ (lambda (#{ids\ 11040}#)
+ (letrec ((#{distinct?\ 11044}#
+ (lambda (#{ids\ 11045}#)
+ (let ((#{t\ 11048}# (null? #{ids\ 11045}#)))
+ (if #{t\ 11048}#
+ #{t\ 11048}#
+ (if (not (#{bound-id-member?\ 9481}#
+ (car #{ids\ 11045}#)
+ (cdr #{ids\ 11045}#)))
+ (#{distinct?\ 11044}# (cdr #{ids\ 11045}#))
#f))))))
- (#{distinct?\ 1909}# #{ids\ 1905}#))))
- (#{valid-bound-ids?\ 323}#
- (lambda (#{ids\ 1917}#)
- (if (letrec ((#{all-ids?\ 1922}#
- (lambda (#{ids\ 1923}#)
- (let ((#{t\ 1926}# (null? #{ids\ 1923}#)))
- (if #{t\ 1926}#
- #{t\ 1926}#
- (if (#{id?\ 260}# (car #{ids\ 1923}#))
- (#{all-ids?\ 1922}# (cdr #{ids\ 1923}#))
+ (#{distinct?\ 11044}# #{ids\ 11040}#))))
+ (#{valid-bound-ids?\ 9477}#
+ (lambda (#{ids\ 11052}#)
+ (if (letrec ((#{all-ids?\ 11057}#
+ (lambda (#{ids\ 11058}#)
+ (let ((#{t\ 11061}# (null? #{ids\ 11058}#)))
+ (if #{t\ 11061}#
+ #{t\ 11061}#
+ (if (#{id?\ 9414}# (car #{ids\ 11058}#))
+ (#{all-ids?\ 11057}#
+ (cdr #{ids\ 11058}#))
#f))))))
- (#{all-ids?\ 1922}# #{ids\ 1917}#))
- (#{distinct-bound-ids?\ 325}# #{ids\ 1917}#)
+ (#{all-ids?\ 11057}# #{ids\ 11052}#))
+ (#{distinct-bound-ids?\ 9479}# #{ids\ 11052}#)
#f)))
- (#{bound-id=?\ 321}#
- (lambda (#{i\ 1931}# #{j\ 1932}#)
- (if (if (#{syntax-object?\ 224}# #{i\ 1931}#)
- (#{syntax-object?\ 224}# #{j\ 1932}#)
+ (#{bound-id=?\ 9475}#
+ (lambda (#{i\ 11066}# #{j\ 11067}#)
+ (if (if (#{syntax-object?\ 9378}# #{i\ 11066}#)
+ (#{syntax-object?\ 9378}# #{j\ 11067}#)
#f)
- (if (eq? (#{syntax-object-expression\ 226}# #{i\ 1931}#)
- (#{syntax-object-expression\ 226}# #{j\ 1932}#))
- (#{same-marks?\ 315}#
- (#{wrap-marks\ 267}#
- (#{syntax-object-wrap\ 228}# #{i\ 1931}#))
- (#{wrap-marks\ 267}#
- (#{syntax-object-wrap\ 228}# #{j\ 1932}#)))
+ (if (eq? (#{syntax-object-expression\ 9380}# #{i\ 11066}#)
+ (#{syntax-object-expression\ 9380}# #{j\ 11067}#))
+ (#{same-marks?\ 9469}#
+ (#{wrap-marks\ 9421}#
+ (#{syntax-object-wrap\ 9382}# #{i\ 11066}#))
+ (#{wrap-marks\ 9421}#
+ (#{syntax-object-wrap\ 9382}# #{j\ 11067}#)))
#f)
- (eq? #{i\ 1931}# #{j\ 1932}#))))
- (#{free-id=?\ 319}#
- (lambda (#{i\ 1939}# #{j\ 1940}#)
- (if (eq? (let ((#{x\ 1946}# #{i\ 1939}#))
- (if (#{syntax-object?\ 224}# #{x\ 1946}#)
- (#{syntax-object-expression\ 226}# #{x\ 1946}#)
- #{x\ 1946}#))
- (let ((#{x\ 1949}# #{j\ 1940}#))
- (if (#{syntax-object?\ 224}# #{x\ 1949}#)
- (#{syntax-object-expression\ 226}# #{x\ 1949}#)
- #{x\ 1949}#)))
- (eq? (#{id-var-name\ 317}# #{i\ 1939}# (quote (())))
- (#{id-var-name\ 317}# #{j\ 1940}# (quote (()))))
+ (eq? #{i\ 11066}# #{j\ 11067}#))))
+ (#{free-id=?\ 9473}#
+ (lambda (#{i\ 11074}# #{j\ 11075}#)
+ (if (eq? (let ((#{x\ 11081}# #{i\ 11074}#))
+ (if (#{syntax-object?\ 9378}# #{x\ 11081}#)
+ (#{syntax-object-expression\ 9380}# #{x\ 11081}#)
+ #{x\ 11081}#))
+ (let ((#{x\ 11084}# #{j\ 11075}#))
+ (if (#{syntax-object?\ 9378}# #{x\ 11084}#)
+ (#{syntax-object-expression\ 9380}# #{x\ 11084}#)
+ #{x\ 11084}#)))
+ (eq? (#{id-var-name\ 9471}# #{i\ 11074}# (quote (())))
+ (#{id-var-name\ 9471}# #{j\ 11075}# (quote (()))))
#f)))
- (#{id-var-name\ 317}#
- (lambda (#{id\ 1953}# #{w\ 1954}#)
- (letrec ((#{search-vector-rib\ 1963}#
- (lambda (#{sym\ 1975}#
- #{subst\ 1976}#
- #{marks\ 1977}#
- #{symnames\ 1978}#
- #{ribcage\ 1979}#)
- (let ((#{n\ 1986}#
- (vector-length #{symnames\ 1978}#)))
- (letrec ((#{f\ 1989}#
- (lambda (#{i\ 1990}#)
- (if (#{fx=\ 167}#
- #{i\ 1990}#
- #{n\ 1986}#)
- (#{search\ 1959}#
- #{sym\ 1975}#
- (cdr #{subst\ 1976}#)
- #{marks\ 1977}#)
+ (#{id-var-name\ 9471}#
+ (lambda (#{id\ 11088}# #{w\ 11089}#)
+ (letrec ((#{search-vector-rib\ 11098}#
+ (lambda (#{sym\ 11110}#
+ #{subst\ 11111}#
+ #{marks\ 11112}#
+ #{symnames\ 11113}#
+ #{ribcage\ 11114}#)
+ (let ((#{n\ 11121}#
+ (vector-length #{symnames\ 11113}#)))
+ (letrec ((#{f\ 11124}#
+ (lambda (#{i\ 11125}#)
+ (if (#{fx=\ 9321}#
+ #{i\ 11125}#
+ #{n\ 11121}#)
+ (#{search\ 11094}#
+ #{sym\ 11110}#
+ (cdr #{subst\ 11111}#)
+ #{marks\ 11112}#)
(if (if (eq? (vector-ref
- #{symnames\ 1978}#
- #{i\ 1990}#)
- #{sym\ 1975}#)
- (#{same-marks?\ 315}#
- #{marks\ 1977}#
+ #{symnames\ 11113}#
+ #{i\ 11125}#)
+ #{sym\ 11110}#)
+ (#{same-marks?\ 9469}#
+ #{marks\ 11112}#
(vector-ref
- (#{ribcage-marks\ 287}#
- #{ribcage\ 1979}#)
- #{i\ 1990}#))
+ (#{ribcage-marks\ 9441}#
+ #{ribcage\ 11114}#)
+ #{i\ 11125}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 289}#
- #{ribcage\ 1979}#)
- #{i\ 1990}#)
- #{marks\ 1977}#)
- (#{f\ 1989}#
- (#{fx+\ 163}#
- #{i\ 1990}#
+ (#{ribcage-labels\ 9443}#
+ #{ribcage\ 11114}#)
+ #{i\ 11125}#)
+ #{marks\ 11112}#)
+ (#{f\ 11124}#
+ (#{fx+\ 9317}#
+ #{i\ 11125}#
1)))))))
- (#{f\ 1989}# 0)))))
- (#{search-list-rib\ 1961}#
- (lambda (#{sym\ 1998}#
- #{subst\ 1999}#
- #{marks\ 2000}#
- #{symnames\ 2001}#
- #{ribcage\ 2002}#)
- (letrec ((#{f\ 2011}#
- (lambda (#{symnames\ 2012}# #{i\ 2013}#)
- (if (null? #{symnames\ 2012}#)
- (#{search\ 1959}#
- #{sym\ 1998}#
- (cdr #{subst\ 1999}#)
- #{marks\ 2000}#)
- (if (if (eq? (car #{symnames\
2012}#)
- #{sym\ 1998}#)
- (#{same-marks?\ 315}#
- #{marks\ 2000}#
+ (#{f\ 11124}# 0)))))
+ (#{search-list-rib\ 11096}#
+ (lambda (#{sym\ 11133}#
+ #{subst\ 11134}#
+ #{marks\ 11135}#
+ #{symnames\ 11136}#
+ #{ribcage\ 11137}#)
+ (letrec ((#{f\ 11146}#
+ (lambda (#{symnames\ 11147}#
+ #{i\ 11148}#)
+ (if (null? #{symnames\ 11147}#)
+ (#{search\ 11094}#
+ #{sym\ 11133}#
+ (cdr #{subst\ 11134}#)
+ #{marks\ 11135}#)
+ (if (if (eq? (car #{symnames\
11147}#)
+ #{sym\ 11133}#)
+ (#{same-marks?\ 9469}#
+ #{marks\ 11135}#
(list-ref
- (#{ribcage-marks\ 287}#
- #{ribcage\ 2002}#)
- #{i\ 2013}#))
+ (#{ribcage-marks\ 9441}#
+ #{ribcage\ 11137}#)
+ #{i\ 11148}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 289}#
- #{ribcage\ 2002}#)
- #{i\ 2013}#)
- #{marks\ 2000}#)
- (#{f\ 2011}#
- (cdr #{symnames\ 2012}#)
- (#{fx+\ 163}#
- #{i\ 2013}#
+ (#{ribcage-labels\ 9443}#
+ #{ribcage\ 11137}#)
+ #{i\ 11148}#)
+ #{marks\ 11135}#)
+ (#{f\ 11146}#
+ (cdr #{symnames\ 11147}#)
+ (#{fx+\ 9317}#
+ #{i\ 11148}#
1)))))))
- (#{f\ 2011}# #{symnames\ 2001}# 0))))
- (#{search\ 1959}#
- (lambda (#{sym\ 2021}#
- #{subst\ 2022}#
- #{marks\ 2023}#)
- (if (null? #{subst\ 2022}#)
- (values #f #{marks\ 2023}#)
- (let ((#{fst\ 2028}# (car #{subst\ 2022}#)))
- (if (eq? #{fst\ 2028}# (quote shift))
- (#{search\ 1959}#
- #{sym\ 2021}#
- (cdr #{subst\ 2022}#)
- (cdr #{marks\ 2023}#))
- (let ((#{symnames\ 2030}#
- (#{ribcage-symnames\ 285}#
- #{fst\ 2028}#)))
- (if (vector? #{symnames\ 2030}#)
- (#{search-vector-rib\ 1963}#
- #{sym\ 2021}#
- #{subst\ 2022}#
- #{marks\ 2023}#
- #{symnames\ 2030}#
- #{fst\ 2028}#)
- (#{search-list-rib\ 1961}#
- #{sym\ 2021}#
- #{subst\ 2022}#
- #{marks\ 2023}#
- #{symnames\ 2030}#
- #{fst\ 2028}#)))))))))
- (if (symbol? #{id\ 1953}#)
- (let ((#{t\ 2033}#
+ (#{f\ 11146}# #{symnames\ 11136}# 0))))
+ (#{search\ 11094}#
+ (lambda (#{sym\ 11156}#
+ #{subst\ 11157}#
+ #{marks\ 11158}#)
+ (if (null? #{subst\ 11157}#)
+ (values #f #{marks\ 11158}#)
+ (let ((#{fst\ 11163}# (car #{subst\ 11157}#)))
+ (if (eq? #{fst\ 11163}# (quote shift))
+ (#{search\ 11094}#
+ #{sym\ 11156}#
+ (cdr #{subst\ 11157}#)
+ (cdr #{marks\ 11158}#))
+ (let ((#{symnames\ 11165}#
+ (#{ribcage-symnames\ 9439}#
+ #{fst\ 11163}#)))
+ (if (vector? #{symnames\ 11165}#)
+ (#{search-vector-rib\ 11098}#
+ #{sym\ 11156}#
+ #{subst\ 11157}#
+ #{marks\ 11158}#
+ #{symnames\ 11165}#
+ #{fst\ 11163}#)
+ (#{search-list-rib\ 11096}#
+ #{sym\ 11156}#
+ #{subst\ 11157}#
+ #{marks\ 11158}#
+ #{symnames\ 11165}#
+ #{fst\ 11163}#)))))))))
+ (if (symbol? #{id\ 11088}#)
+ (let ((#{t\ 11168}#
(call-with-values
(lambda ()
- (#{search\ 1959}#
- #{id\ 1953}#
- (#{wrap-subst\ 269}# #{w\ 1954}#)
- (#{wrap-marks\ 267}# #{w\ 1954}#)))
- (lambda (#{x\ 2035}# . #{ignore\ 2036}#)
- #{x\ 2035}#))))
- (if #{t\ 2033}# #{t\ 2033}# #{id\ 1953}#))
- (if (#{syntax-object?\ 224}# #{id\ 1953}#)
- (let ((#{id\ 2044}#
- (#{syntax-object-expression\ 226}# #{id\ 1953}#))
- (#{w1\ 2045}#
- (#{syntax-object-wrap\ 228}# #{id\ 1953}#)))
- (let ((#{marks\ 2047}#
- (#{join-marks\ 313}#
- (#{wrap-marks\ 267}# #{w\ 1954}#)
- (#{wrap-marks\ 267}# #{w1\ 2045}#))))
+ (#{search\ 11094}#
+ #{id\ 11088}#
+ (#{wrap-subst\ 9423}# #{w\ 11089}#)
+ (#{wrap-marks\ 9421}# #{w\ 11089}#)))
+ (lambda (#{x\ 11170}# . #{ignore\ 11171}#)
+ #{x\ 11170}#))))
+ (if #{t\ 11168}# #{t\ 11168}# #{id\ 11088}#))
+ (if (#{syntax-object?\ 9378}# #{id\ 11088}#)
+ (let ((#{id\ 11179}#
+ (#{syntax-object-expression\ 9380}#
+ #{id\ 11088}#))
+ (#{w1\ 11180}#
+ (#{syntax-object-wrap\ 9382}# #{id\ 11088}#)))
+ (let ((#{marks\ 11182}#
+ (#{join-marks\ 9467}#
+ (#{wrap-marks\ 9421}# #{w\ 11089}#)
+ (#{wrap-marks\ 9421}# #{w1\ 11180}#))))
(call-with-values
(lambda ()
- (#{search\ 1959}#
- #{id\ 2044}#
- (#{wrap-subst\ 269}# #{w\ 1954}#)
- #{marks\ 2047}#))
- (lambda (#{new-id\ 2048}# #{marks\ 2049}#)
- (let ((#{t\ 2054}# #{new-id\ 2048}#))
- (if #{t\ 2054}#
- #{t\ 2054}#
- (let ((#{t\ 2057}#
+ (#{search\ 11094}#
+ #{id\ 11179}#
+ (#{wrap-subst\ 9423}# #{w\ 11089}#)
+ #{marks\ 11182}#))
+ (lambda (#{new-id\ 11183}# #{marks\ 11184}#)
+ (let ((#{t\ 11189}# #{new-id\ 11183}#))
+ (if #{t\ 11189}#
+ #{t\ 11189}#
+ (let ((#{t\ 11192}#
(call-with-values
(lambda ()
- (#{search\ 1959}#
- #{id\ 2044}#
- (#{wrap-subst\ 269}#
- #{w1\ 2045}#)
- #{marks\ 2049}#))
- (lambda (#{x\ 2059}#
+ (#{search\ 11094}#
+ #{id\ 11179}#
+ (#{wrap-subst\ 9423}#
+ #{w1\ 11180}#)
+ #{marks\ 11184}#))
+ (lambda (#{x\ 11194}#
.
- #{ignore\ 2060}#)
- #{x\ 2059}#))))
- (if #{t\ 2057}#
- #{t\ 2057}#
- #{id\ 2044}#))))))))
+ #{ignore\ 11195}#)
+ #{x\ 11194}#))))
+ (if #{t\ 11192}#
+ #{t\ 11192}#
+ #{id\ 11179}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1953}#))))))
- (#{same-marks?\ 315}#
- (lambda (#{x\ 2065}# #{y\ 2066}#)
- (let ((#{t\ 2071}# (eq? #{x\ 2065}# #{y\ 2066}#)))
- (if #{t\ 2071}#
- #{t\ 2071}#
- (if (not (null? #{x\ 2065}#))
- (if (not (null? #{y\ 2066}#))
- (if (eq? (car #{x\ 2065}#) (car #{y\ 2066}#))
- (#{same-marks?\ 315}#
- (cdr #{x\ 2065}#)
- (cdr #{y\ 2066}#))
+ #{id\ 11088}#))))))
+ (#{same-marks?\ 9469}#
+ (lambda (#{x\ 11200}# #{y\ 11201}#)
+ (let ((#{t\ 11206}# (eq? #{x\ 11200}# #{y\ 11201}#)))
+ (if #{t\ 11206}#
+ #{t\ 11206}#
+ (if (not (null? #{x\ 11200}#))
+ (if (not (null? #{y\ 11201}#))
+ (if (eq? (car #{x\ 11200}#) (car #{y\ 11201}#))
+ (#{same-marks?\ 9469}#
+ (cdr #{x\ 11200}#)
+ (cdr #{y\ 11201}#))
#f)
#f)
#f)))))
- (#{join-marks\ 313}#
- (lambda (#{m1\ 2077}# #{m2\ 2078}#)
- (#{smart-append\ 309}# #{m1\ 2077}# #{m2\ 2078}#)))
- (#{join-wraps\ 311}#
- (lambda (#{w1\ 2081}# #{w2\ 2082}#)
- (let ((#{m1\ 2087}# (#{wrap-marks\ 267}# #{w1\ 2081}#))
- (#{s1\ 2088}# (#{wrap-subst\ 269}# #{w1\ 2081}#)))
- (if (null? #{m1\ 2087}#)
- (if (null? #{s1\ 2088}#)
- #{w2\ 2082}#
- (#{make-wrap\ 265}#
- (#{wrap-marks\ 267}# #{w2\ 2082}#)
- (#{smart-append\ 309}#
- #{s1\ 2088}#
- (#{wrap-subst\ 269}# #{w2\ 2082}#))))
- (#{make-wrap\ 265}#
- (#{smart-append\ 309}#
- #{m1\ 2087}#
- (#{wrap-marks\ 267}# #{w2\ 2082}#))
- (#{smart-append\ 309}#
- #{s1\ 2088}#
- (#{wrap-subst\ 269}# #{w2\ 2082}#)))))))
- (#{smart-append\ 309}#
- (lambda (#{m1\ 2089}# #{m2\ 2090}#)
- (if (null? #{m2\ 2090}#)
- #{m1\ 2089}#
- (append #{m1\ 2089}# #{m2\ 2090}#))))
- (#{make-binding-wrap\ 307}#
- (lambda (#{ids\ 2093}# #{labels\ 2094}# #{w\ 2095}#)
- (if (null? #{ids\ 2093}#)
- #{w\ 2095}#
- (#{make-wrap\ 265}#
- (#{wrap-marks\ 267}# #{w\ 2095}#)
- (cons (let ((#{labelvec\ 2100}#
- (list->vector #{labels\ 2094}#)))
- (let ((#{n\ 2102}#
- (vector-length #{labelvec\ 2100}#)))
- (let ((#{symnamevec\ 2105}#
- (make-vector #{n\ 2102}#))
- (#{marksvec\ 2106}#
- (make-vector #{n\ 2102}#)))
+ (#{join-marks\ 9467}#
+ (lambda (#{m1\ 11212}# #{m2\ 11213}#)
+ (#{smart-append\ 9463}#
+ #{m1\ 11212}#
+ #{m2\ 11213}#)))
+ (#{join-wraps\ 9465}#
+ (lambda (#{w1\ 11216}# #{w2\ 11217}#)
+ (let ((#{m1\ 11222}#
+ (#{wrap-marks\ 9421}# #{w1\ 11216}#))
+ (#{s1\ 11223}#
+ (#{wrap-subst\ 9423}# #{w1\ 11216}#)))
+ (if (null? #{m1\ 11222}#)
+ (if (null? #{s1\ 11223}#)
+ #{w2\ 11217}#
+ (#{make-wrap\ 9419}#
+ (#{wrap-marks\ 9421}# #{w2\ 11217}#)
+ (#{smart-append\ 9463}#
+ #{s1\ 11223}#
+ (#{wrap-subst\ 9423}# #{w2\ 11217}#))))
+ (#{make-wrap\ 9419}#
+ (#{smart-append\ 9463}#
+ #{m1\ 11222}#
+ (#{wrap-marks\ 9421}# #{w2\ 11217}#))
+ (#{smart-append\ 9463}#
+ #{s1\ 11223}#
+ (#{wrap-subst\ 9423}# #{w2\ 11217}#)))))))
+ (#{smart-append\ 9463}#
+ (lambda (#{m1\ 11224}# #{m2\ 11225}#)
+ (if (null? #{m2\ 11225}#)
+ #{m1\ 11224}#
+ (append #{m1\ 11224}# #{m2\ 11225}#))))
+ (#{make-binding-wrap\ 9461}#
+ (lambda (#{ids\ 11228}# #{labels\ 11229}# #{w\ 11230}#)
+ (if (null? #{ids\ 11228}#)
+ #{w\ 11230}#
+ (#{make-wrap\ 9419}#
+ (#{wrap-marks\ 9421}# #{w\ 11230}#)
+ (cons (let ((#{labelvec\ 11235}#
+ (list->vector #{labels\ 11229}#)))
+ (let ((#{n\ 11237}#
+ (vector-length #{labelvec\ 11235}#)))
+ (let ((#{symnamevec\ 11240}#
+ (make-vector #{n\ 11237}#))
+ (#{marksvec\ 11241}#
+ (make-vector #{n\ 11237}#)))
(begin
- (letrec ((#{f\ 2110}#
- (lambda (#{ids\ 2111}# #{i\ 2112}#)
- (if (not (null? #{ids\ 2111}#))
+ (letrec ((#{f\ 11245}#
+ (lambda (#{ids\ 11246}#
+ #{i\ 11247}#)
+ (if (not (null? #{ids\ 11246}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 263}#
- (car #{ids\ 2111}#)
- #{w\ 2095}#))
- (lambda (#{symname\ 2113}#
- #{marks\ 2114}#)
+ (#{id-sym-name&marks\
9417}#
+ (car #{ids\ 11246}#)
+ #{w\ 11230}#))
+ (lambda (#{symname\ 11248}#
+ #{marks\ 11249}#)
(begin
(vector-set!
- #{symnamevec\ 2105}#
- #{i\ 2112}#
- #{symname\ 2113}#)
+ #{symnamevec\ 11240}#
+ #{i\ 11247}#
+ #{symname\ 11248}#)
(vector-set!
- #{marksvec\ 2106}#
- #{i\ 2112}#
- #{marks\ 2114}#)
- (#{f\ 2110}#
- (cdr #{ids\ 2111}#)
- (#{fx+\ 163}#
- #{i\ 2112}#
+ #{marksvec\ 11241}#
+ #{i\ 11247}#
+ #{marks\ 11249}#)
+ (#{f\ 11245}#
+ (cdr #{ids\ 11246}#)
+ (#{fx+\ 9317}#
+ #{i\ 11247}#
1)))))))))
- (#{f\ 2110}# #{ids\ 2093}# 0))
- (#{make-ribcage\ 281}#
- #{symnamevec\ 2105}#
- #{marksvec\ 2106}#
- #{labelvec\ 2100}#)))))
- (#{wrap-subst\ 269}# #{w\ 2095}#))))))
- (#{extend-ribcage!\ 305}#
- (lambda (#{ribcage\ 2117}# #{id\ 2118}# #{label\ 2119}#)
+ (#{f\ 11245}# #{ids\ 11228}# 0))
+ (#{make-ribcage\ 9435}#
+ #{symnamevec\ 11240}#
+ #{marksvec\ 11241}#
+ #{labelvec\ 11235}#)))))
+ (#{wrap-subst\ 9423}# #{w\ 11230}#))))))
+ (#{extend-ribcage!\ 9459}#
+ (lambda (#{ribcage\ 11252}#
+ #{id\ 11253}#
+ #{label\ 11254}#)
(begin
- (#{set-ribcage-symnames!\ 291}#
- #{ribcage\ 2117}#
- (cons (#{syntax-object-expression\ 226}# #{id\ 2118}#)
- (#{ribcage-symnames\ 285}# #{ribcage\ 2117}#)))
- (#{set-ribcage-marks!\ 293}#
- #{ribcage\ 2117}#
- (cons (#{wrap-marks\ 267}#
- (#{syntax-object-wrap\ 228}# #{id\ 2118}#))
- (#{ribcage-marks\ 287}# #{ribcage\ 2117}#)))
- (#{set-ribcage-labels!\ 295}#
- #{ribcage\ 2117}#
- (cons #{label\ 2119}#
- (#{ribcage-labels\ 289}# #{ribcage\ 2117}#))))))
- (#{anti-mark\ 301}#
- (lambda (#{w\ 2123}#)
- (#{make-wrap\ 265}#
- (cons #f (#{wrap-marks\ 267}# #{w\ 2123}#))
+ (#{set-ribcage-symnames!\ 9445}#
+ #{ribcage\ 11252}#
+ (cons (#{syntax-object-expression\ 9380}#
+ #{id\ 11253}#)
+ (#{ribcage-symnames\ 9439}# #{ribcage\ 11252}#)))
+ (#{set-ribcage-marks!\ 9447}#
+ #{ribcage\ 11252}#
+ (cons (#{wrap-marks\ 9421}#
+ (#{syntax-object-wrap\ 9382}# #{id\ 11253}#))
+ (#{ribcage-marks\ 9441}# #{ribcage\ 11252}#)))
+ (#{set-ribcage-labels!\ 9449}#
+ #{ribcage\ 11252}#
+ (cons #{label\ 11254}#
+ (#{ribcage-labels\ 9443}# #{ribcage\ 11252}#))))))
+ (#{anti-mark\ 9455}#
+ (lambda (#{w\ 11258}#)
+ (#{make-wrap\ 9419}#
+ (cons #f (#{wrap-marks\ 9421}# #{w\ 11258}#))
(cons 'shift
- (#{wrap-subst\ 269}# #{w\ 2123}#)))))
- (#{set-ribcage-labels!\ 295}#
- (lambda (#{x\ 2126}# #{update\ 2127}#)
- (vector-set! #{x\ 2126}# 3 #{update\ 2127}#)))
- (#{set-ribcage-marks!\ 293}#
- (lambda (#{x\ 2130}# #{update\ 2131}#)
- (vector-set! #{x\ 2130}# 2 #{update\ 2131}#)))
- (#{set-ribcage-symnames!\ 291}#
- (lambda (#{x\ 2134}# #{update\ 2135}#)
- (vector-set! #{x\ 2134}# 1 #{update\ 2135}#)))
- (#{ribcage-labels\ 289}#
- (lambda (#{x\ 2138}#) (vector-ref #{x\ 2138}# 3)))
- (#{ribcage-marks\ 287}#
- (lambda (#{x\ 2140}#) (vector-ref #{x\ 2140}# 2)))
- (#{ribcage-symnames\ 285}#
- (lambda (#{x\ 2142}#) (vector-ref #{x\ 2142}# 1)))
- (#{ribcage?\ 283}#
- (lambda (#{x\ 2144}#)
- (if (vector? #{x\ 2144}#)
- (if (= (vector-length #{x\ 2144}#) 4)
- (eq? (vector-ref #{x\ 2144}# 0) (quote ribcage))
+ (#{wrap-subst\ 9423}# #{w\ 11258}#)))))
+ (#{set-ribcage-labels!\ 9449}#
+ (lambda (#{x\ 11261}# #{update\ 11262}#)
+ (vector-set! #{x\ 11261}# 3 #{update\ 11262}#)))
+ (#{set-ribcage-marks!\ 9447}#
+ (lambda (#{x\ 11265}# #{update\ 11266}#)
+ (vector-set! #{x\ 11265}# 2 #{update\ 11266}#)))
+ (#{set-ribcage-symnames!\ 9445}#
+ (lambda (#{x\ 11269}# #{update\ 11270}#)
+ (vector-set! #{x\ 11269}# 1 #{update\ 11270}#)))
+ (#{ribcage-labels\ 9443}#
+ (lambda (#{x\ 11273}#)
+ (vector-ref #{x\ 11273}# 3)))
+ (#{ribcage-marks\ 9441}#
+ (lambda (#{x\ 11275}#)
+ (vector-ref #{x\ 11275}# 2)))
+ (#{ribcage-symnames\ 9439}#
+ (lambda (#{x\ 11277}#)
+ (vector-ref #{x\ 11277}# 1)))
+ (#{ribcage?\ 9437}#
+ (lambda (#{x\ 11279}#)
+ (if (vector? #{x\ 11279}#)
+ (if (= (vector-length #{x\ 11279}#) 4)
+ (eq? (vector-ref #{x\ 11279}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 281}#
- (lambda (#{symnames\ 2149}#
- #{marks\ 2150}#
- #{labels\ 2151}#)
+ (#{make-ribcage\ 9435}#
+ (lambda (#{symnames\ 11284}#
+ #{marks\ 11285}#
+ #{labels\ 11286}#)
(vector
'ribcage
- #{symnames\ 2149}#
- #{marks\ 2150}#
- #{labels\ 2151}#)))
- (#{gen-labels\ 278}#
- (lambda (#{ls\ 2155}#)
- (if (null? #{ls\ 2155}#)
+ #{symnames\ 11284}#
+ #{marks\ 11285}#
+ #{labels\ 11286}#)))
+ (#{gen-labels\ 9432}#
+ (lambda (#{ls\ 11290}#)
+ (if (null? #{ls\ 11290}#)
'()
- (cons (#{gen-label\ 276}#)
- (#{gen-labels\ 278}# (cdr #{ls\ 2155}#))))))
- (#{gen-label\ 276}#
+ (cons (#{gen-label\ 9430}#)
+ (#{gen-labels\ 9432}# (cdr #{ls\ 11290}#))))))
+ (#{gen-label\ 9430}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 269}# cdr)
- (#{wrap-marks\ 267}# car)
- (#{make-wrap\ 265}# cons)
- (#{id-sym-name&marks\ 263}#
- (lambda (#{x\ 2157}# #{w\ 2158}#)
- (if (#{syntax-object?\ 224}# #{x\ 2157}#)
+ (#{wrap-subst\ 9423}# cdr)
+ (#{wrap-marks\ 9421}# car)
+ (#{make-wrap\ 9419}# cons)
+ (#{id-sym-name&marks\ 9417}#
+ (lambda (#{x\ 11292}# #{w\ 11293}#)
+ (if (#{syntax-object?\ 9378}# #{x\ 11292}#)
(values
- (#{syntax-object-expression\ 226}# #{x\ 2157}#)
- (#{join-marks\ 313}#
- (#{wrap-marks\ 267}# #{w\ 2158}#)
- (#{wrap-marks\ 267}#
- (#{syntax-object-wrap\ 228}# #{x\ 2157}#))))
+ (#{syntax-object-expression\ 9380}# #{x\ 11292}#)
+ (#{join-marks\ 9467}#
+ (#{wrap-marks\ 9421}# #{w\ 11293}#)
+ (#{wrap-marks\ 9421}#
+ (#{syntax-object-wrap\ 9382}# #{x\ 11292}#))))
(values
- #{x\ 2157}#
- (#{wrap-marks\ 267}# #{w\ 2158}#)))))
- (#{id?\ 260}#
- (lambda (#{x\ 2161}#)
- (if (symbol? #{x\ 2161}#)
+ #{x\ 11292}#
+ (#{wrap-marks\ 9421}# #{w\ 11293}#)))))
+ (#{id?\ 9414}#
+ (lambda (#{x\ 11296}#)
+ (if (symbol? #{x\ 11296}#)
#t
- (if (#{syntax-object?\ 224}# #{x\ 2161}#)
+ (if (#{syntax-object?\ 9378}# #{x\ 11296}#)
(symbol?
- (#{syntax-object-expression\ 226}# #{x\ 2161}#))
+ (#{syntax-object-expression\ 9380}# #{x\ 11296}#))
#f))))
- (#{nonsymbol-id?\ 258}#
- (lambda (#{x\ 2168}#)
- (if (#{syntax-object?\ 224}# #{x\ 2168}#)
+ (#{nonsymbol-id?\ 9412}#
+ (lambda (#{x\ 11303}#)
+ (if (#{syntax-object?\ 9378}# #{x\ 11303}#)
(symbol?
- (#{syntax-object-expression\ 226}# #{x\ 2168}#))
+ (#{syntax-object-expression\ 9380}# #{x\ 11303}#))
#f)))
- (#{global-extend\ 256}#
- (lambda (#{type\ 2172}# #{sym\ 2173}# #{val\ 2174}#)
- (#{put-global-definition-hook\ 176}#
- #{sym\ 2173}#
- #{type\ 2172}#
- #{val\ 2174}#)))
- (#{lookup\ 254}#
- (lambda (#{x\ 2178}# #{r\ 2179}# #{mod\ 2180}#)
- (let ((#{t\ 2186}# (assq #{x\ 2178}# #{r\ 2179}#)))
- (if #{t\ 2186}#
- (cdr #{t\ 2186}#)
- (if (symbol? #{x\ 2178}#)
- (let ((#{t\ 2192}#
- (#{get-global-definition-hook\ 178}#
- #{x\ 2178}#
- #{mod\ 2180}#)))
- (if #{t\ 2192}# #{t\ 2192}# (quote (global))))
+ (#{global-extend\ 9410}#
+ (lambda (#{type\ 11307}# #{sym\ 11308}# #{val\ 11309}#)
+ (#{put-global-definition-hook\ 9330}#
+ #{sym\ 11308}#
+ #{type\ 11307}#
+ #{val\ 11309}#)))
+ (#{lookup\ 9408}#
+ (lambda (#{x\ 11313}# #{r\ 11314}# #{mod\ 11315}#)
+ (let ((#{t\ 11321}# (assq #{x\ 11313}# #{r\ 11314}#)))
+ (if #{t\ 11321}#
+ (cdr #{t\ 11321}#)
+ (if (symbol? #{x\ 11313}#)
+ (let ((#{t\ 11327}#
+ (#{get-global-definition-hook\ 9332}#
+ #{x\ 11313}#
+ #{mod\ 11315}#)))
+ (if #{t\ 11327}# #{t\ 11327}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 252}#
- (lambda (#{r\ 2197}#)
- (if (null? #{r\ 2197}#)
+ (#{macros-only-env\ 9406}#
+ (lambda (#{r\ 11332}#)
+ (if (null? #{r\ 11332}#)
'()
- (let ((#{a\ 2200}# (car #{r\ 2197}#)))
- (if (eq? (cadr #{a\ 2200}#) (quote macro))
- (cons #{a\ 2200}#
- (#{macros-only-env\ 252}# (cdr #{r\ 2197}#)))
- (#{macros-only-env\ 252}# (cdr #{r\ 2197}#)))))))
- (#{extend-var-env\ 250}#
- (lambda (#{labels\ 2201}# #{vars\ 2202}# #{r\ 2203}#)
- (if (null? #{labels\ 2201}#)
- #{r\ 2203}#
- (#{extend-var-env\ 250}#
- (cdr #{labels\ 2201}#)
- (cdr #{vars\ 2202}#)
- (cons (cons (car #{labels\ 2201}#)
- (cons (quote lexical) (car #{vars\ 2202}#)))
- #{r\ 2203}#)))))
- (#{extend-env\ 248}#
- (lambda (#{labels\ 2208}# #{bindings\ 2209}# #{r\ 2210}#)
- (if (null? #{labels\ 2208}#)
- #{r\ 2210}#
- (#{extend-env\ 248}#
- (cdr #{labels\ 2208}#)
- (cdr #{bindings\ 2209}#)
- (cons (cons (car #{labels\ 2208}#)
- (car #{bindings\ 2209}#))
- #{r\ 2210}#)))))
- (#{binding-value\ 245}# cdr)
- (#{binding-type\ 243}# car)
- (#{source-annotation\ 239}#
- (lambda (#{x\ 2214}#)
- (if (#{syntax-object?\ 224}# #{x\ 2214}#)
- (#{source-annotation\ 239}#
- (#{syntax-object-expression\ 226}# #{x\ 2214}#))
- (if (pair? #{x\ 2214}#)
- (let ((#{props\ 2221}# (source-properties #{x\ 2214}#)))
- (if (pair? #{props\ 2221}#) #{props\ 2221}# #f))
+ (let ((#{a\ 11335}# (car #{r\ 11332}#)))
+ (if (eq? (cadr #{a\ 11335}#) (quote macro))
+ (cons #{a\ 11335}#
+ (#{macros-only-env\ 9406}# (cdr #{r\ 11332}#)))
+ (#{macros-only-env\ 9406}# (cdr #{r\ 11332}#)))))))
+ (#{extend-var-env\ 9404}#
+ (lambda (#{labels\ 11336}# #{vars\ 11337}# #{r\ 11338}#)
+ (if (null? #{labels\ 11336}#)
+ #{r\ 11338}#
+ (#{extend-var-env\ 9404}#
+ (cdr #{labels\ 11336}#)
+ (cdr #{vars\ 11337}#)
+ (cons (cons (car #{labels\ 11336}#)
+ (cons (quote lexical) (car #{vars\ 11337}#)))
+ #{r\ 11338}#)))))
+ (#{extend-env\ 9402}#
+ (lambda (#{labels\ 11343}#
+ #{bindings\ 11344}#
+ #{r\ 11345}#)
+ (if (null? #{labels\ 11343}#)
+ #{r\ 11345}#
+ (#{extend-env\ 9402}#
+ (cdr #{labels\ 11343}#)
+ (cdr #{bindings\ 11344}#)
+ (cons (cons (car #{labels\ 11343}#)
+ (car #{bindings\ 11344}#))
+ #{r\ 11345}#)))))
+ (#{binding-value\ 9399}# cdr)
+ (#{binding-type\ 9397}# car)
+ (#{source-annotation\ 9393}#
+ (lambda (#{x\ 11349}#)
+ (if (#{syntax-object?\ 9378}# #{x\ 11349}#)
+ (#{source-annotation\ 9393}#
+ (#{syntax-object-expression\ 9380}# #{x\ 11349}#))
+ (if (pair? #{x\ 11349}#)
+ (let ((#{props\ 11356}#
+ (source-properties #{x\ 11349}#)))
+ (if (pair? #{props\ 11356}#) #{props\ 11356}# #f))
#f))))
- (#{set-syntax-object-module!\ 236}#
- (lambda (#{x\ 2223}# #{update\ 2224}#)
- (vector-set! #{x\ 2223}# 3 #{update\ 2224}#)))
- (#{set-syntax-object-wrap!\ 234}#
- (lambda (#{x\ 2227}# #{update\ 2228}#)
- (vector-set! #{x\ 2227}# 2 #{update\ 2228}#)))
- (#{set-syntax-object-expression!\ 232}#
- (lambda (#{x\ 2231}# #{update\ 2232}#)
- (vector-set! #{x\ 2231}# 1 #{update\ 2232}#)))
- (#{syntax-object-module\ 230}#
- (lambda (#{x\ 2235}#) (vector-ref #{x\ 2235}# 3)))
- (#{syntax-object-wrap\ 228}#
- (lambda (#{x\ 2237}#) (vector-ref #{x\ 2237}# 2)))
- (#{syntax-object-expression\ 226}#
- (lambda (#{x\ 2239}#) (vector-ref #{x\ 2239}# 1)))
- (#{syntax-object?\ 224}#
- (lambda (#{x\ 2241}#)
- (if (vector? #{x\ 2241}#)
- (if (= (vector-length #{x\ 2241}#) 4)
- (eq? (vector-ref #{x\ 2241}# 0)
+ (#{set-syntax-object-module!\ 9390}#
+ (lambda (#{x\ 11358}# #{update\ 11359}#)
+ (vector-set! #{x\ 11358}# 3 #{update\ 11359}#)))
+ (#{set-syntax-object-wrap!\ 9388}#
+ (lambda (#{x\ 11362}# #{update\ 11363}#)
+ (vector-set! #{x\ 11362}# 2 #{update\ 11363}#)))
+ (#{set-syntax-object-expression!\ 9386}#
+ (lambda (#{x\ 11366}# #{update\ 11367}#)
+ (vector-set! #{x\ 11366}# 1 #{update\ 11367}#)))
+ (#{syntax-object-module\ 9384}#
+ (lambda (#{x\ 11370}#)
+ (vector-ref #{x\ 11370}# 3)))
+ (#{syntax-object-wrap\ 9382}#
+ (lambda (#{x\ 11372}#)
+ (vector-ref #{x\ 11372}# 2)))
+ (#{syntax-object-expression\ 9380}#
+ (lambda (#{x\ 11374}#)
+ (vector-ref #{x\ 11374}# 1)))
+ (#{syntax-object?\ 9378}#
+ (lambda (#{x\ 11376}#)
+ (if (vector? #{x\ 11376}#)
+ (if (= (vector-length #{x\ 11376}#) 4)
+ (eq? (vector-ref #{x\ 11376}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 222}#
- (lambda (#{expression\ 2246}#
- #{wrap\ 2247}#
- #{module\ 2248}#)
+ (#{make-syntax-object\ 9376}#
+ (lambda (#{expression\ 11381}#
+ #{wrap\ 11382}#
+ #{module\ 11383}#)
(vector
'syntax-object
- #{expression\ 2246}#
- #{wrap\ 2247}#
- #{module\ 2248}#)))
- (#{build-letrec\ 218}#
- (lambda (#{src\ 2252}#
- #{ids\ 2253}#
- #{vars\ 2254}#
- #{val-exps\ 2255}#
- #{body-exp\ 2256}#)
- (if (null? #{vars\ 2254}#)
- #{body-exp\ 2256}#
- (let ((#{atom-key\ 2264}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2264}# (quote (c)))
+ #{expression\ 11381}#
+ #{wrap\ 11382}#
+ #{module\ 11383}#)))
+ (#{build-letrec\ 9372}#
+ (lambda (#{src\ 11387}#
+ #{ids\ 11388}#
+ #{vars\ 11389}#
+ #{val-exps\ 11390}#
+ #{body-exp\ 11391}#)
+ (if (null? #{vars\ 11389}#)
+ #{body-exp\ 11391}#
+ (let ((#{atom-key\ 11399}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11399}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 198}#
- #{ids\ 2253}#
- #{val-exps\ 2255}#)
+ #{maybe-name-value!\ 9352}#
+ #{ids\ 11388}#
+ #{val-exps\ 11390}#)
((@ (language tree-il) make-letrec)
- #{src\ 2252}#
- #{ids\ 2253}#
- #{vars\ 2254}#
- #{val-exps\ 2255}#
- #{body-exp\ 2256}#))
- (#{decorate-source\ 180}#
+ #{src\ 11387}#
+ #{ids\ 11388}#
+ #{vars\ 11389}#
+ #{val-exps\ 11390}#
+ #{body-exp\ 11391}#))
+ (#{decorate-source\ 9334}#
(list 'letrec
- (map list #{vars\ 2254}# #{val-exps\ 2255}#)
- #{body-exp\ 2256}#)
- #{src\ 2252}#))))))
- (#{build-named-let\ 216}#
- (lambda (#{src\ 2268}#
- #{ids\ 2269}#
- #{vars\ 2270}#
- #{val-exps\ 2271}#
- #{body-exp\ 2272}#)
- (let ((#{f\ 2282}# (car #{vars\ 2270}#))
- (#{f-name\ 2283}# (car #{ids\ 2269}#))
- (#{vars\ 2284}# (cdr #{vars\ 2270}#))
- (#{ids\ 2285}# (cdr #{ids\ 2269}#)))
- (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2288}# (quote (c)))
- (let ((#{proc\ 2291}#
- (#{build-simple-lambda\ 202}#
- #{src\ 2268}#
- #{ids\ 2285}#
+ (map list #{vars\ 11389}# #{val-exps\ 11390}#)
+ #{body-exp\ 11391}#)
+ #{src\ 11387}#))))))
+ (#{build-named-let\ 9370}#
+ (lambda (#{src\ 11403}#
+ #{ids\ 11404}#
+ #{vars\ 11405}#
+ #{val-exps\ 11406}#
+ #{body-exp\ 11407}#)
+ (let ((#{f\ 11417}# (car #{vars\ 11405}#))
+ (#{f-name\ 11418}# (car #{ids\ 11404}#))
+ (#{vars\ 11419}# (cdr #{vars\ 11405}#))
+ (#{ids\ 11420}# (cdr #{ids\ 11404}#)))
+ (let ((#{atom-key\ 11423}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11423}# (quote (c)))
+ (let ((#{proc\ 11426}#
+ (#{build-simple-lambda\ 9356}#
+ #{src\ 11403}#
+ #{ids\ 11420}#
#f
- #{vars\ 2284}#
+ #{vars\ 11419}#
#f
- #{body-exp\ 2272}#)))
+ #{body-exp\ 11407}#)))
(begin
- (#{maybe-name-value!\ 198}#
- #{f-name\ 2283}#
- #{proc\ 2291}#)
+ (#{maybe-name-value!\ 9352}#
+ #{f-name\ 11418}#
+ #{proc\ 11426}#)
(for-each
- #{maybe-name-value!\ 198}#
- #{ids\ 2285}#
- #{val-exps\ 2271}#)
+ #{maybe-name-value!\ 9352}#
+ #{ids\ 11420}#
+ #{val-exps\ 11406}#)
((@ (language tree-il) make-letrec)
- #{src\ 2268}#
- (list #{f-name\ 2283}#)
- (list #{f\ 2282}#)
- (list #{proc\ 2291}#)
- (#{build-application\ 184}#
- #{src\ 2268}#
- (#{build-lexical-reference\ 188}#
+ #{src\ 11403}#
+ (list #{f-name\ 11418}#)
+ (list #{f\ 11417}#)
+ (list #{proc\ 11426}#)
+ (#{build-application\ 9338}#
+ #{src\ 11403}#
+ (#{build-lexical-reference\ 9342}#
'fun
- #{src\ 2268}#
- #{f-name\ 2283}#
- #{f\ 2282}#)
- #{val-exps\ 2271}#))))
- (#{decorate-source\ 180}#
+ #{src\ 11403}#
+ #{f-name\ 11418}#
+ #{f\ 11417}#)
+ #{val-exps\ 11406}#))))
+ (#{decorate-source\ 9334}#
(list 'letrec
- (list (list #{f\ 2282}#
+ (list (list #{f\ 11417}#
(list 'lambda
- #{vars\ 2284}#
- #{body-exp\ 2272}#)))
- (cons #{f\ 2282}# #{val-exps\ 2271}#))
- #{src\ 2268}#))))))
- (#{build-let\ 214}#
- (lambda (#{src\ 2294}#
- #{ids\ 2295}#
- #{vars\ 2296}#
- #{val-exps\ 2297}#
- #{body-exp\ 2298}#)
- (if (null? #{vars\ 2296}#)
- #{body-exp\ 2298}#
- (let ((#{atom-key\ 2306}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2306}# (quote (c)))
+ #{vars\ 11419}#
+ #{body-exp\ 11407}#)))
+ (cons #{f\ 11417}# #{val-exps\ 11406}#))
+ #{src\ 11403}#))))))
+ (#{build-let\ 9368}#
+ (lambda (#{src\ 11429}#
+ #{ids\ 11430}#
+ #{vars\ 11431}#
+ #{val-exps\ 11432}#
+ #{body-exp\ 11433}#)
+ (if (null? #{vars\ 11431}#)
+ #{body-exp\ 11433}#
+ (let ((#{atom-key\ 11441}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11441}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 198}#
- #{ids\ 2295}#
- #{val-exps\ 2297}#)
+ #{maybe-name-value!\ 9352}#
+ #{ids\ 11430}#
+ #{val-exps\ 11432}#)
((@ (language tree-il) make-let)
- #{src\ 2294}#
- #{ids\ 2295}#
- #{vars\ 2296}#
- #{val-exps\ 2297}#
- #{body-exp\ 2298}#))
- (#{decorate-source\ 180}#
+ #{src\ 11429}#
+ #{ids\ 11430}#
+ #{vars\ 11431}#
+ #{val-exps\ 11432}#
+ #{body-exp\ 11433}#))
+ (#{decorate-source\ 9334}#
(list 'let
- (map list #{vars\ 2296}# #{val-exps\ 2297}#)
- #{body-exp\ 2298}#)
- #{src\ 2294}#))))))
- (#{build-sequence\ 212}#
- (lambda (#{src\ 2310}# #{exps\ 2311}#)
- (if (null? (cdr #{exps\ 2311}#))
- (car #{exps\ 2311}#)
- (let ((#{atom-key\ 2316}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2316}# (quote (c)))
+ (map list #{vars\ 11431}# #{val-exps\ 11432}#)
+ #{body-exp\ 11433}#)
+ #{src\ 11429}#))))))
+ (#{build-sequence\ 9366}#
+ (lambda (#{src\ 11445}# #{exps\ 11446}#)
+ (if (null? (cdr #{exps\ 11446}#))
+ (car #{exps\ 11446}#)
+ (let ((#{atom-key\ 11451}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11451}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 2310}#
- #{exps\ 2311}#)
- (#{decorate-source\ 180}#
- (cons (quote begin) #{exps\ 2311}#)
- #{src\ 2310}#))))))
- (#{build-data\ 210}#
- (lambda (#{src\ 2320}# #{exp\ 2321}#)
- (let ((#{atom-key\ 2326}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2326}# (quote (c)))
+ #{src\ 11445}#
+ #{exps\ 11446}#)
+ (#{decorate-source\ 9334}#
+ (cons (quote begin) #{exps\ 11446}#)
+ #{src\ 11445}#))))))
+ (#{build-data\ 9364}#
+ (lambda (#{src\ 11455}# #{exp\ 11456}#)
+ (let ((#{atom-key\ 11461}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11461}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 2320}#
- #{exp\ 2321}#)
- (#{decorate-source\ 180}#
- (if (if (self-evaluating? #{exp\ 2321}#)
- (not (vector? #{exp\ 2321}#))
+ #{src\ 11455}#
+ #{exp\ 11456}#)
+ (#{decorate-source\ 9334}#
+ (if (if (self-evaluating? #{exp\ 11456}#)
+ (not (vector? #{exp\ 11456}#))
#f)
- #{exp\ 2321}#
- (list (quote quote) #{exp\ 2321}#))
- #{src\ 2320}#)))))
- (#{build-primref\ 208}#
- (lambda (#{src\ 2331}# #{name\ 2332}#)
+ #{exp\ 11456}#
+ (list (quote quote) #{exp\ 11456}#))
+ #{src\ 11455}#)))))
+ (#{build-primref\ 9362}#
+ (lambda (#{src\ 11466}# #{name\ 11467}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 2337}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2337}# (quote (c)))
+ (let ((#{atom-key\ 11472}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11472}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 2331}#
- #{name\ 2332}#)
- (#{decorate-source\ 180}#
- #{name\ 2332}#
- #{src\ 2331}#)))
- (let ((#{atom-key\ 2342}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2342}# (quote (c)))
+ #{src\ 11466}#
+ #{name\ 11467}#)
+ (#{decorate-source\ 9334}#
+ #{name\ 11467}#
+ #{src\ 11466}#)))
+ (let ((#{atom-key\ 11477}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11477}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 2331}#
+ #{src\ 11466}#
'(guile)
- #{name\ 2332}#
+ #{name\ 11467}#
#f)
- (#{decorate-source\ 180}#
- (list (quote @@) (quote (guile)) #{name\ 2332}#)
- #{src\ 2331}#))))))
- (#{build-lambda-case\ 206}#
- (lambda (#{src\ 2346}#
- #{req\ 2347}#
- #{opt\ 2348}#
- #{rest\ 2349}#
- #{kw\ 2350}#
- #{inits\ 2351}#
- #{vars\ 2352}#
- #{body\ 2353}#
- #{else-case\ 2354}#)
- (let ((#{atom-key\ 2366}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2366}# (quote (c)))
+ (#{decorate-source\ 9334}#
+ (list (quote @@) (quote (guile)) #{name\ 11467}#)
+ #{src\ 11466}#))))))
+ (#{build-lambda-case\ 9360}#
+ (lambda (#{src\ 11481}#
+ #{req\ 11482}#
+ #{opt\ 11483}#
+ #{rest\ 11484}#
+ #{kw\ 11485}#
+ #{inits\ 11486}#
+ #{vars\ 11487}#
+ #{body\ 11488}#
+ #{else-case\ 11489}#)
+ (let ((#{atom-key\ 11501}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11501}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 2346}#
- #{req\ 2347}#
- #{opt\ 2348}#
- #{rest\ 2349}#
- #{kw\ 2350}#
- #{inits\ 2351}#
- #{vars\ 2352}#
- #{body\ 2353}#
- #{else-case\ 2354}#)
- (let ((#{nreq\ 2371}# (length #{req\ 2347}#)))
- (let ((#{nopt\ 2373}#
- (if #{opt\ 2348}# (length #{opt\ 2348}#) 0)))
- (let ((#{rest-idx\ 2375}#
- (if #{rest\ 2349}#
- (+ #{nreq\ 2371}# #{nopt\ 2373}#)
+ #{src\ 11481}#
+ #{req\ 11482}#
+ #{opt\ 11483}#
+ #{rest\ 11484}#
+ #{kw\ 11485}#
+ #{inits\ 11486}#
+ #{vars\ 11487}#
+ #{body\ 11488}#
+ #{else-case\ 11489}#)
+ (let ((#{nreq\ 11506}# (length #{req\ 11482}#)))
+ (let ((#{nopt\ 11508}#
+ (if #{opt\ 11483}# (length #{opt\ 11483}#) 0)))
+ (let ((#{rest-idx\ 11510}#
+ (if #{rest\ 11484}#
+ (+ #{nreq\ 11506}# #{nopt\ 11508}#)
#f)))
- (let ((#{allow-other-keys?\ 2379}#
- (if #{kw\ 2350}# (car #{kw\ 2350}#) #f)))
- (let ((#{kw-indices\ 2381}#
- (map (lambda (#{x\ 2382}#)
- (cons (car #{x\ 2382}#)
+ (let ((#{allow-other-keys?\ 11514}#
+ (if #{kw\ 11485}# (car #{kw\ 11485}#) #f)))
+ (let ((#{kw-indices\ 11516}#
+ (map (lambda (#{x\ 11517}#)
+ (cons (car #{x\ 11517}#)
(list-index
- #{vars\ 2352}#
- (caddr #{x\ 2382}#))))
- (if #{kw\ 2350}#
- (cdr #{kw\ 2350}#)
+ #{vars\ 11487}#
+ (caddr #{x\ 11517}#))))
+ (if #{kw\ 11485}#
+ (cdr #{kw\ 11485}#)
'()))))
- (let ((#{nargs\ 2385}#
+ (let ((#{nargs\ 11520}#
(apply max
- (+ #{nreq\ 2371}#
- #{nopt\ 2373}#
- (if #{rest\ 2349}# 1 0))
+ (+ #{nreq\ 11506}#
+ #{nopt\ 11508}#
+ (if #{rest\ 11484}# 1 0))
(map 1+
(map cdr
- #{kw-indices\ 2381}#)))))
+ #{kw-indices\
11516}#)))))
(begin
- (let ((#{t\ 2388}#
- (= #{nargs\ 2385}#
- (length #{vars\ 2352}#)
- (+ #{nreq\ 2371}#
- (length #{inits\ 2351}#)
- (if #{rest\ 2349}# 1 0)))))
- (if #{t\ 2388}#
- #{t\ 2388}#
+ (let ((#{t\ 11523}#
+ (= #{nargs\ 11520}#
+ (length #{vars\ 11487}#)
+ (+ #{nreq\ 11506}#
+ (length #{inits\ 11486}#)
+ (if #{rest\ 11484}# 1 0)))))
+ (if #{t\ 11523}#
+ #{t\ 11523}#
(error "something went wrong"
- #{req\ 2347}#
- #{opt\ 2348}#
- #{rest\ 2349}#
- #{kw\ 2350}#
- #{inits\ 2351}#
- #{vars\ 2352}#
- #{nreq\ 2371}#
- #{nopt\ 2373}#
- #{kw-indices\ 2381}#
- #{nargs\ 2385}#)))
- (#{decorate-source\ 180}#
+ #{req\ 11482}#
+ #{opt\ 11483}#
+ #{rest\ 11484}#
+ #{kw\ 11485}#
+ #{inits\ 11486}#
+ #{vars\ 11487}#
+ #{nreq\ 11506}#
+ #{nopt\ 11508}#
+ #{kw-indices\ 11516}#
+ #{nargs\ 11520}#)))
+ (#{decorate-source\ 9334}#
(cons (list (cons '(@@ (ice-9 optargs)
parse-lambda-case)
(cons (list 'quote
- (list #{nreq\
2371}#
- #{nopt\
2373}#
-
#{rest-idx\ 2375}#
-
#{nargs\ 2385}#
-
#{allow-other-keys?\ 2379}#
-
#{kw-indices\ 2381}#))
+ (list #{nreq\
11506}#
+ #{nopt\
11508}#
+
#{rest-idx\ 11510}#
+
#{nargs\ 11520}#
+
#{allow-other-keys?\ 11514}#
+
#{kw-indices\ 11516}#))
(cons (cons 'list
- (map
(lambda (#{i\ 2391}#)
+ (map
(lambda (#{i\ 11526}#)
(list 'lambda
-
#{vars\ 2352}#
-
#{i\ 2391}#))
-
#{inits\ 2351}#))
+
#{vars\ 11487}#
+
#{i\ 11526}#))
+
#{inits\ 11486}#))
'(%%args))))
'=>
(list 'lambda
'(%%args)
(cons 'apply
(cons (list 'lambda
- #{vars\
2352}#
- #{body\
2353}#)
+ #{vars\
11487}#
+ #{body\
11488}#)
'(%%args)))))
- (let ((#{t\ 2396}#
- #{else-case\ 2354}#))
- (if #{t\ 2396}#
- #{t\ 2396}#
+ (let ((#{t\ 11531}#
+ #{else-case\ 11489}#))
+ (if #{t\ 11531}#
+ #{t\ 11531}#
'((%%args
(scm-error
'wrong-number-of-args
@@ -7513,1423 +7519,1444 @@
"Wrong number of arguments"
'()
%%args))))))
- #{src\ 2346}#))))))))))))
- (#{build-case-lambda\ 204}#
- (lambda (#{src\ 2399}#
- #{docstring\ 2400}#
- #{body\ 2401}#)
- (let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2407}# (quote (c)))
+ #{src\ 11481}#))))))))))))
+ (#{build-case-lambda\ 9358}#
+ (lambda (#{src\ 11534}#
+ #{docstring\ 11535}#
+ #{body\ 11536}#)
+ (let ((#{atom-key\ 11542}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11542}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 2399}#
- (if #{docstring\ 2400}#
- (list (cons (quote documentation) #{docstring\ 2400}#))
+ #{src\ 11534}#
+ (if #{docstring\ 11535}#
+ (list (cons (quote documentation) #{docstring\ 11535}#))
'())
- #{body\ 2401}#)
- (#{decorate-source\ 180}#
+ #{body\ 11536}#)
+ (#{decorate-source\ 9334}#
(cons 'lambda
(cons '%%args
(append
- (if #{docstring\ 2400}#
- (list #{docstring\ 2400}#)
+ (if #{docstring\ 11535}#
+ (list #{docstring\ 11535}#)
'())
- (list (cons (quote cond) #{body\ 2401}#)))))
- #{src\ 2399}#)))))
- (#{build-simple-lambda\ 202}#
- (lambda (#{src\ 2412}#
- #{req\ 2413}#
- #{rest\ 2414}#
- #{vars\ 2415}#
- #{docstring\ 2416}#
- #{exp\ 2417}#)
- (let ((#{atom-key\ 2426}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2426}# (quote (c)))
+ (list (cons 'cond
+ #{body\ 11536}#)))))
+ #{src\ 11534}#)))))
+ (#{build-simple-lambda\ 9356}#
+ (lambda (#{src\ 11547}#
+ #{req\ 11548}#
+ #{rest\ 11549}#
+ #{vars\ 11550}#
+ #{docstring\ 11551}#
+ #{exp\ 11552}#)
+ (let ((#{atom-key\ 11561}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11561}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 2412}#
- (if #{docstring\ 2416}#
- (list (cons (quote documentation) #{docstring\ 2416}#))
+ #{src\ 11547}#
+ (if #{docstring\ 11551}#
+ (list (cons (quote documentation) #{docstring\ 11551}#))
'())
((@ (language tree-il) make-lambda-case)
- #{src\ 2412}#
- #{req\ 2413}#
+ #{src\ 11547}#
+ #{req\ 11548}#
#f
- #{rest\ 2414}#
+ #{rest\ 11549}#
#f
'()
- #{vars\ 2415}#
- #{exp\ 2417}#
+ #{vars\ 11550}#
+ #{exp\ 11552}#
#f))
- (#{decorate-source\ 180}#
+ (#{decorate-source\ 9334}#
(cons 'lambda
- (cons (if #{rest\ 2414}#
- (apply cons* #{vars\ 2415}#)
- #{vars\ 2415}#)
+ (cons (if #{rest\ 11549}#
+ (apply cons* #{vars\ 11550}#)
+ #{vars\ 11550}#)
(append
- (if #{docstring\ 2416}#
- (list #{docstring\ 2416}#)
+ (if #{docstring\ 11551}#
+ (list #{docstring\ 11551}#)
'())
- (list #{exp\ 2417}#))))
- #{src\ 2412}#)))))
- (#{build-global-definition\ 200}#
- (lambda (#{source\ 2431}# #{var\ 2432}# #{exp\ 2433}#)
- (let ((#{atom-key\ 2439}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2439}# (quote (c)))
+ (list #{exp\ 11552}#))))
+ #{src\ 11547}#)))))
+ (#{build-global-definition\ 9354}#
+ (lambda (#{source\ 11566}# #{var\ 11567}# #{exp\ 11568}#)
+ (let ((#{atom-key\ 11574}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11574}# (quote (c)))
(begin
- (#{maybe-name-value!\ 198}#
- #{var\ 2432}#
- #{exp\ 2433}#)
+ (#{maybe-name-value!\ 9352}#
+ #{var\ 11567}#
+ #{exp\ 11568}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 2431}#
- #{var\ 2432}#
- #{exp\ 2433}#))
- (#{decorate-source\ 180}#
- (list (quote define) #{var\ 2432}# #{exp\ 2433}#)
- #{source\ 2431}#)))))
- (#{maybe-name-value!\ 198}#
- (lambda (#{name\ 2443}# #{val\ 2444}#)
- (if ((@ (language tree-il) lambda?) #{val\ 2444}#)
- (let ((#{meta\ 2450}#
+ #{source\ 11566}#
+ #{var\ 11567}#
+ #{exp\ 11568}#))
+ (#{decorate-source\ 9334}#
+ (list 'define
+ #{var\ 11567}#
+ #{exp\ 11568}#)
+ #{source\ 11566}#)))))
+ (#{maybe-name-value!\ 9352}#
+ (lambda (#{name\ 11578}# #{val\ 11579}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 11579}#)
+ (let ((#{meta\ 11585}#
((@ (language tree-il) lambda-meta)
- #{val\ 2444}#)))
- (if (not (assq (quote name) #{meta\ 2450}#))
+ #{val\ 11579}#)))
+ (if (not (assq (quote name) #{meta\ 11585}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 2444}#
+ #{val\ 11579}#
(acons 'name
- #{name\ 2443}#
- #{meta\ 2450}#)))))))
- (#{build-global-assignment\ 196}#
- (lambda (#{source\ 2451}#
- #{var\ 2452}#
- #{exp\ 2453}#
- #{mod\ 2454}#)
- (#{analyze-variable\ 192}#
- #{mod\ 2454}#
- #{var\ 2452}#
- (lambda (#{mod\ 2459}# #{var\ 2460}# #{public?\ 2461}#)
- (let ((#{atom-key\ 2467}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2467}# (quote (c)))
+ #{name\ 11578}#
+ #{meta\ 11585}#)))))))
+ (#{build-global-assignment\ 9350}#
+ (lambda (#{source\ 11586}#
+ #{var\ 11587}#
+ #{exp\ 11588}#
+ #{mod\ 11589}#)
+ (#{analyze-variable\ 9346}#
+ #{mod\ 11589}#
+ #{var\ 11587}#
+ (lambda (#{mod\ 11594}#
+ #{var\ 11595}#
+ #{public?\ 11596}#)
+ (let ((#{atom-key\ 11602}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11602}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 2451}#
- #{mod\ 2459}#
- #{var\ 2460}#
- #{public?\ 2461}#
- #{exp\ 2453}#)
- (#{decorate-source\ 180}#
+ #{source\ 11586}#
+ #{mod\ 11594}#
+ #{var\ 11595}#
+ #{public?\ 11596}#
+ #{exp\ 11588}#)
+ (#{decorate-source\ 9334}#
(list 'set!
- (list (if #{public?\ 2461}#
+ (list (if #{public?\ 11596}#
'@
'@@)
- #{mod\ 2459}#
- #{var\ 2460}#)
- #{exp\ 2453}#)
- #{source\ 2451}#))))
- (lambda (#{var\ 2471}#)
- (let ((#{atom-key\ 2475}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2475}# (quote (c)))
+ #{mod\ 11594}#
+ #{var\ 11595}#)
+ #{exp\ 11588}#)
+ #{source\ 11586}#))))
+ (lambda (#{var\ 11606}#)
+ (let ((#{atom-key\ 11610}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11610}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 2451}#
- #{var\ 2471}#
- #{exp\ 2453}#)
- (#{decorate-source\ 180}#
- (list (quote set!) #{var\ 2471}# #{exp\ 2453}#)
- #{source\ 2451}#)))))))
- (#{build-global-reference\ 194}#
- (lambda (#{source\ 2479}# #{var\ 2480}# #{mod\ 2481}#)
- (#{analyze-variable\ 192}#
- #{mod\ 2481}#
- #{var\ 2480}#
- (lambda (#{mod\ 2485}# #{var\ 2486}# #{public?\ 2487}#)
- (let ((#{atom-key\ 2493}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2493}# (quote (c)))
+ #{source\ 11586}#
+ #{var\ 11606}#
+ #{exp\ 11588}#)
+ (#{decorate-source\ 9334}#
+ (list (quote set!) #{var\ 11606}# #{exp\ 11588}#)
+ #{source\ 11586}#)))))))
+ (#{build-global-reference\ 9348}#
+ (lambda (#{source\ 11614}# #{var\ 11615}# #{mod\ 11616}#)
+ (#{analyze-variable\ 9346}#
+ #{mod\ 11616}#
+ #{var\ 11615}#
+ (lambda (#{mod\ 11620}#
+ #{var\ 11621}#
+ #{public?\ 11622}#)
+ (let ((#{atom-key\ 11628}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11628}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 2479}#
- #{mod\ 2485}#
- #{var\ 2486}#
- #{public?\ 2487}#)
- (#{decorate-source\ 180}#
- (list (if #{public?\ 2487}# (quote @) (quote @@))
- #{mod\ 2485}#
- #{var\ 2486}#)
- #{source\ 2479}#))))
- (lambda (#{var\ 2496}#)
- (let ((#{atom-key\ 2500}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2500}# (quote (c)))
+ #{source\ 11614}#
+ #{mod\ 11620}#
+ #{var\ 11621}#
+ #{public?\ 11622}#)
+ (#{decorate-source\ 9334}#
+ (list (if #{public?\ 11622}# (quote @) (quote @@))
+ #{mod\ 11620}#
+ #{var\ 11621}#)
+ #{source\ 11614}#))))
+ (lambda (#{var\ 11631}#)
+ (let ((#{atom-key\ 11635}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11635}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 2479}#
- #{var\ 2496}#)
- (#{decorate-source\ 180}#
- #{var\ 2496}#
- #{source\ 2479}#)))))))
- (#{analyze-variable\ 192}#
- (lambda (#{mod\ 2503}#
- #{var\ 2504}#
- #{modref-cont\ 2505}#
- #{bare-cont\ 2506}#)
- (if (not #{mod\ 2503}#)
- (#{bare-cont\ 2506}# #{var\ 2504}#)
- (let ((#{kind\ 2513}# (car #{mod\ 2503}#))
- (#{mod\ 2514}# (cdr #{mod\ 2503}#)))
- (if (memv #{kind\ 2513}# (quote (public)))
- (#{modref-cont\ 2505}#
- #{mod\ 2514}#
- #{var\ 2504}#
+ #{source\ 11614}#
+ #{var\ 11631}#)
+ (#{decorate-source\ 9334}#
+ #{var\ 11631}#
+ #{source\ 11614}#)))))))
+ (#{analyze-variable\ 9346}#
+ (lambda (#{mod\ 11638}#
+ #{var\ 11639}#
+ #{modref-cont\ 11640}#
+ #{bare-cont\ 11641}#)
+ (if (not #{mod\ 11638}#)
+ (#{bare-cont\ 11641}# #{var\ 11639}#)
+ (let ((#{kind\ 11648}# (car #{mod\ 11638}#))
+ (#{mod\ 11649}# (cdr #{mod\ 11638}#)))
+ (if (memv #{kind\ 11648}# (quote (public)))
+ (#{modref-cont\ 11640}#
+ #{mod\ 11649}#
+ #{var\ 11639}#
#t)
- (if (memv #{kind\ 2513}# (quote (private)))
+ (if (memv #{kind\ 11648}# (quote (private)))
(if (not (equal?
- #{mod\ 2514}#
+ #{mod\ 11649}#
(module-name (current-module))))
- (#{modref-cont\ 2505}#
- #{mod\ 2514}#
- #{var\ 2504}#
+ (#{modref-cont\ 11640}#
+ #{mod\ 11649}#
+ #{var\ 11639}#
#f)
- (#{bare-cont\ 2506}# #{var\ 2504}#))
- (if (memv #{kind\ 2513}# (quote (bare)))
- (#{bare-cont\ 2506}# #{var\ 2504}#)
- (if (memv #{kind\ 2513}# (quote (hygiene)))
+ (#{bare-cont\ 11641}# #{var\ 11639}#))
+ (if (memv #{kind\ 11648}# (quote (bare)))
+ (#{bare-cont\ 11641}# #{var\ 11639}#)
+ (if (memv #{kind\ 11648}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 2514}#
+ #{mod\ 11649}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 2514}#)
- #{var\ 2504}#)
+ (resolve-module #{mod\ 11649}#)
+ #{var\ 11639}#)
#f)
- (#{modref-cont\ 2505}#
- #{mod\ 2514}#
- #{var\ 2504}#
+ (#{modref-cont\ 11640}#
+ #{mod\ 11649}#
+ #{var\ 11639}#
#f)
- (#{bare-cont\ 2506}# #{var\ 2504}#))
+ (#{bare-cont\ 11641}# #{var\ 11639}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 2504}#
- #{mod\ 2514}#)))))))))
- (#{build-lexical-assignment\ 190}#
- (lambda (#{source\ 2522}#
- #{name\ 2523}#
- #{var\ 2524}#
- #{exp\ 2525}#)
- (let ((#{atom-key\ 2532}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2532}# (quote (c)))
+ #{var\ 11639}#
+ #{mod\ 11649}#)))))))))
+ (#{build-lexical-assignment\ 9344}#
+ (lambda (#{source\ 11657}#
+ #{name\ 11658}#
+ #{var\ 11659}#
+ #{exp\ 11660}#)
+ (let ((#{atom-key\ 11667}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11667}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 2522}#
- #{name\ 2523}#
- #{var\ 2524}#
- #{exp\ 2525}#)
- (#{decorate-source\ 180}#
- (list (quote set!) #{var\ 2524}# #{exp\ 2525}#)
- #{source\ 2522}#)))))
- (#{build-lexical-reference\ 188}#
- (lambda (#{type\ 2536}#
- #{source\ 2537}#
- #{name\ 2538}#
- #{var\ 2539}#)
- (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2546}# (quote (c)))
+ #{source\ 11657}#
+ #{name\ 11658}#
+ #{var\ 11659}#
+ #{exp\ 11660}#)
+ (#{decorate-source\ 9334}#
+ (list (quote set!) #{var\ 11659}# #{exp\ 11660}#)
+ #{source\ 11657}#)))))
+ (#{build-lexical-reference\ 9342}#
+ (lambda (#{type\ 11671}#
+ #{source\ 11672}#
+ #{name\ 11673}#
+ #{var\ 11674}#)
+ (let ((#{atom-key\ 11681}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11681}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 2537}#
- #{name\ 2538}#
- #{var\ 2539}#)
- (#{decorate-source\ 180}#
- #{var\ 2539}#
- #{source\ 2537}#)))))
- (#{build-conditional\ 186}#
- (lambda (#{source\ 2549}#
- #{test-exp\ 2550}#
- #{then-exp\ 2551}#
- #{else-exp\ 2552}#)
- (let ((#{atom-key\ 2559}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2559}# (quote (c)))
+ #{source\ 11672}#
+ #{name\ 11673}#
+ #{var\ 11674}#)
+ (#{decorate-source\ 9334}#
+ #{var\ 11674}#
+ #{source\ 11672}#)))))
+ (#{build-conditional\ 9340}#
+ (lambda (#{source\ 11684}#
+ #{test-exp\ 11685}#
+ #{then-exp\ 11686}#
+ #{else-exp\ 11687}#)
+ (let ((#{atom-key\ 11694}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11694}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 2549}#
- #{test-exp\ 2550}#
- #{then-exp\ 2551}#
- #{else-exp\ 2552}#)
- (#{decorate-source\ 180}#
- (if (equal? #{else-exp\ 2552}# (quote (if #f #f)))
+ #{source\ 11684}#
+ #{test-exp\ 11685}#
+ #{then-exp\ 11686}#
+ #{else-exp\ 11687}#)
+ (#{decorate-source\ 9334}#
+ (if (equal? #{else-exp\ 11687}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 2550}#
- #{then-exp\ 2551}#)
+ #{test-exp\ 11685}#
+ #{then-exp\ 11686}#)
(list 'if
- #{test-exp\ 2550}#
- #{then-exp\ 2551}#
- #{else-exp\ 2552}#))
- #{source\ 2549}#)))))
- (#{build-application\ 184}#
- (lambda (#{source\ 2564}#
- #{fun-exp\ 2565}#
- #{arg-exps\ 2566}#)
- (let ((#{atom-key\ 2572}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2572}# (quote (c)))
+ #{test-exp\ 11685}#
+ #{then-exp\ 11686}#
+ #{else-exp\ 11687}#))
+ #{source\ 11684}#)))))
+ (#{build-application\ 9338}#
+ (lambda (#{source\ 11699}#
+ #{fun-exp\ 11700}#
+ #{arg-exps\ 11701}#)
+ (let ((#{atom-key\ 11707}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11707}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 2564}#
- #{fun-exp\ 2565}#
- #{arg-exps\ 2566}#)
- (#{decorate-source\ 180}#
- (cons #{fun-exp\ 2565}# #{arg-exps\ 2566}#)
- #{source\ 2564}#)))))
- (#{build-void\ 182}#
- (lambda (#{source\ 2576}#)
- (let ((#{atom-key\ 2580}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2580}# (quote (c)))
+ #{source\ 11699}#
+ #{fun-exp\ 11700}#
+ #{arg-exps\ 11701}#)
+ (#{decorate-source\ 9334}#
+ (cons #{fun-exp\ 11700}# #{arg-exps\ 11701}#)
+ #{source\ 11699}#)))))
+ (#{build-void\ 9336}#
+ (lambda (#{source\ 11711}#)
+ (let ((#{atom-key\ 11715}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11715}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 2576}#)
- (#{decorate-source\ 180}#
+ #{source\ 11711}#)
+ (#{decorate-source\ 9334}#
'(if #f #f)
- #{source\ 2576}#)))))
- (#{decorate-source\ 180}#
- (lambda (#{e\ 2583}# #{s\ 2584}#)
+ #{source\ 11711}#)))))
+ (#{decorate-source\ 9334}#
+ (lambda (#{e\ 11718}# #{s\ 11719}#)
(begin
- (if (if (pair? #{e\ 2583}#) #{s\ 2584}# #f)
- (set-source-properties! #{e\ 2583}# #{s\ 2584}#))
- #{e\ 2583}#)))
- (#{get-global-definition-hook\ 178}#
- (lambda (#{symbol\ 2589}# #{module\ 2590}#)
+ (if (if (pair? #{e\ 11718}#) #{s\ 11719}# #f)
+ (set-source-properties!
+ #{e\ 11718}#
+ #{s\ 11719}#))
+ #{e\ 11718}#)))
+ (#{get-global-definition-hook\ 9332}#
+ (lambda (#{symbol\ 11724}# #{module\ 11725}#)
(begin
- (if (if (not #{module\ 2590}#) (current-module) #f)
+ (if (if (not #{module\ 11725}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2589}#))
- (let ((#{v\ 2596}#
+ #{symbol\ 11724}#))
+ (let ((#{v\ 11731}#
(module-variable
- (if #{module\ 2590}#
- (resolve-module (cdr #{module\ 2590}#))
+ (if #{module\ 11725}#
+ (resolve-module (cdr #{module\ 11725}#))
(current-module))
- #{symbol\ 2589}#)))
- (if #{v\ 2596}#
- (if (variable-bound? #{v\ 2596}#)
- (let ((#{val\ 2601}# (variable-ref #{v\ 2596}#)))
- (if (macro? #{val\ 2601}#)
- (if (syncase-macro-type #{val\ 2601}#)
- (cons (syncase-macro-type #{val\ 2601}#)
- (syncase-macro-binding #{val\ 2601}#))
+ #{symbol\ 11724}#)))
+ (if #{v\ 11731}#
+ (if (variable-bound? #{v\ 11731}#)
+ (let ((#{val\ 11736}# (variable-ref #{v\ 11731}#)))
+ (if (macro? #{val\ 11736}#)
+ (if (macro-type #{val\ 11736}#)
+ (cons (macro-type #{val\ 11736}#)
+ (macro-binding #{val\ 11736}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 176}#
- (lambda (#{symbol\ 2605}# #{type\ 2606}# #{val\ 2607}#)
- (let ((#{existing\ 2612}#
- (let ((#{v\ 2614}#
- (module-variable
- (current-module)
- #{symbol\ 2605}#)))
- (if #{v\ 2614}#
- (if (variable-bound? #{v\ 2614}#)
- (let ((#{val\ 2619}# (variable-ref #{v\ 2614}#)))
- (if (macro? #{val\ 2619}#)
- (if (not (syncase-macro-type #{val\ 2619}#))
- #{val\ 2619}#
- #f)
- #f))
- #f)
- #f))))
- (module-define!
- (current-module)
- #{symbol\ 2605}#
- (if #{existing\ 2612}#
- (make-extended-syncase-macro
- #{existing\ 2612}#
- #{type\ 2606}#
- #{val\ 2607}#)
- (make-syncase-macro #{type\ 2606}# #{val\ 2607}#))))))
- (#{local-eval-hook\ 173}#
- (lambda (#{x\ 2623}# #{mod\ 2624}#)
+ (#{put-global-definition-hook\ 9330}#
+ (lambda (#{symbol\ 11740}#
+ #{type\ 11741}#
+ #{val\ 11742}#)
+ (module-define!
+ (current-module)
+ #{symbol\ 11740}#
+ (make-syntax-transformer
+ #{symbol\ 11740}#
+ #{type\ 11741}#
+ #{val\ 11742}#))))
+ (#{local-eval-hook\ 9327}#
+ (lambda (#{x\ 11746}# #{mod\ 11747}#)
(primitive-eval
- (list #{noexpand\ 159}#
- (let ((#{atom-key\ 2630}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2630}# (quote (c)))
+ (list #{noexpand\ 9313}#
+ (let ((#{atom-key\ 11753}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11753}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 2623}#)
- #{x\ 2623}#))))))
- (#{top-level-eval-hook\ 171}#
- (lambda (#{x\ 2633}# #{mod\ 2634}#)
+ #{x\ 11746}#)
+ #{x\ 11746}#))))))
+ (#{top-level-eval-hook\ 9325}#
+ (lambda (#{x\ 11756}# #{mod\ 11757}#)
(primitive-eval
- (list #{noexpand\ 159}#
- (let ((#{atom-key\ 2640}# (fluid-ref #{*mode*\ 161}#)))
- (if (memv #{atom-key\ 2640}# (quote (c)))
+ (list #{noexpand\ 9313}#
+ (let ((#{atom-key\ 11763}#
+ (fluid-ref #{*mode*\ 9315}#)))
+ (if (memv #{atom-key\ 11763}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 2633}#)
- #{x\ 2633}#))))))
- (#{fx<\ 169}# <)
- (#{fx=\ 167}# =)
- (#{fx-\ 165}# -)
- (#{fx+\ 163}# +)
- (#{*mode*\ 161}# (make-fluid))
- (#{noexpand\ 159}# "noexpand"))
+ #{x\ 11756}#)
+ #{x\ 11756}#))))))
+ (#{fx<\ 9323}# <)
+ (#{fx=\ 9321}# =)
+ (#{fx-\ 9319}# -)
+ (#{fx+\ 9317}# +)
+ (#{*mode*\ 9315}# (make-fluid))
+ (#{noexpand\ 9313}# "noexpand"))
(begin
- (#{global-extend\ 256}#
+ (#{global-extend\ 9410}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 256}#
+ (#{global-extend\ 9410}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 256}#
+ (#{global-extend\ 9410}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2643}#
- #{r\ 2644}#
- #{w\ 2645}#
- #{s\ 2646}#
- #{mod\ 2647}#)
- ((lambda (#{tmp\ 2653}#)
- ((lambda (#{tmp\ 2654}#)
- (if (if #{tmp\ 2654}#
- (apply (lambda (#{_\ 2660}#
- #{var\ 2661}#
- #{val\ 2662}#
- #{e1\ 2663}#
- #{e2\ 2664}#)
- (#{valid-bound-ids?\ 323}# #{var\ 2661}#))
- #{tmp\ 2654}#)
+ (lambda (#{e\ 11766}#
+ #{r\ 11767}#
+ #{w\ 11768}#
+ #{s\ 11769}#
+ #{mod\ 11770}#)
+ ((lambda (#{tmp\ 11776}#)
+ ((lambda (#{tmp\ 11777}#)
+ (if (if #{tmp\ 11777}#
+ (apply (lambda (#{_\ 11783}#
+ #{var\ 11784}#
+ #{val\ 11785}#
+ #{e1\ 11786}#
+ #{e2\ 11787}#)
+ (#{valid-bound-ids?\ 9477}# #{var\ 11784}#))
+ #{tmp\ 11777}#)
#f)
- (apply (lambda (#{_\ 2671}#
- #{var\ 2672}#
- #{val\ 2673}#
- #{e1\ 2674}#
- #{e2\ 2675}#)
- (let ((#{names\ 2677}#
- (map (lambda (#{x\ 2678}#)
- (#{id-var-name\ 317}#
- #{x\ 2678}#
- #{w\ 2645}#))
- #{var\ 2672}#)))
+ (apply (lambda (#{_\ 11794}#
+ #{var\ 11795}#
+ #{val\ 11796}#
+ #{e1\ 11797}#
+ #{e2\ 11798}#)
+ (let ((#{names\ 11800}#
+ (map (lambda (#{x\ 11801}#)
+ (#{id-var-name\ 9471}#
+ #{x\ 11801}#
+ #{w\ 11768}#))
+ #{var\ 11795}#)))
(begin
(for-each
- (lambda (#{id\ 2681}# #{n\ 2682}#)
- (let ((#{atom-key\ 2687}#
- (#{binding-type\ 243}#
- (#{lookup\ 254}#
- #{n\ 2682}#
- #{r\ 2644}#
- #{mod\ 2647}#))))
- (if (memv #{atom-key\ 2687}#
+ (lambda (#{id\ 11804}# #{n\ 11805}#)
+ (let ((#{atom-key\ 11810}#
+ (#{binding-type\ 9397}#
+ (#{lookup\ 9408}#
+ #{n\ 11805}#
+ #{r\ 11767}#
+ #{mod\ 11770}#))))
+ (if (memv #{atom-key\ 11810}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2643}#
- (#{source-wrap\ 331}#
- #{id\ 2681}#
- #{w\ 2645}#
- #{s\ 2646}#
- #{mod\ 2647}#)))))
- #{var\ 2672}#
- #{names\ 2677}#)
- (#{chi-body\ 353}#
- (cons #{e1\ 2674}# #{e2\ 2675}#)
- (#{source-wrap\ 331}#
- #{e\ 2643}#
- #{w\ 2645}#
- #{s\ 2646}#
- #{mod\ 2647}#)
- (#{extend-env\ 248}#
- #{names\ 2677}#
- (let ((#{trans-r\ 2692}#
- (#{macros-only-env\ 252}#
- #{r\ 2644}#)))
- (map (lambda (#{x\ 2693}#)
+ #{e\ 11766}#
+ (#{source-wrap\ 9485}#
+ #{id\ 11804}#
+ #{w\ 11768}#
+ #{s\ 11769}#
+ #{mod\ 11770}#)))))
+ #{var\ 11795}#
+ #{names\ 11800}#)
+ (#{chi-body\ 9507}#
+ (cons #{e1\ 11797}# #{e2\ 11798}#)
+ (#{source-wrap\ 9485}#
+ #{e\ 11766}#
+ #{w\ 11768}#
+ #{s\ 11769}#
+ #{mod\ 11770}#)
+ (#{extend-env\ 9402}#
+ #{names\ 11800}#
+ (let ((#{trans-r\ 11815}#
+ (#{macros-only-env\ 9406}#
+ #{r\ 11767}#)))
+ (map (lambda (#{x\ 11816}#)
(cons 'macro
- (#{eval-local-transformer\
357}#
- (#{chi\ 345}#
- #{x\ 2693}#
- #{trans-r\ 2692}#
- #{w\ 2645}#
- #{mod\ 2647}#)
- #{mod\ 2647}#)))
- #{val\ 2673}#))
- #{r\ 2644}#)
- #{w\ 2645}#
- #{mod\ 2647}#))))
- #{tmp\ 2654}#)
- ((lambda (#{_\ 2698}#)
+ (#{eval-local-transformer\
9511}#
+ (#{chi\ 9499}#
+ #{x\ 11816}#
+ #{trans-r\ 11815}#
+ #{w\ 11768}#
+ #{mod\ 11770}#)
+ #{mod\ 11770}#)))
+ #{val\ 11796}#))
+ #{r\ 11767}#)
+ #{w\ 11768}#
+ #{mod\ 11770}#))))
+ #{tmp\ 11777}#)
+ ((lambda (#{_\ 11821}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 331}#
- #{e\ 2643}#
- #{w\ 2645}#
- #{s\ 2646}#
- #{mod\ 2647}#)))
- #{tmp\ 2653}#)))
+ (#{source-wrap\ 9485}#
+ #{e\ 11766}#
+ #{w\ 11768}#
+ #{s\ 11769}#
+ #{mod\ 11770}#)))
+ #{tmp\ 11776}#)))
($sc-dispatch
- #{tmp\ 2653}#
+ #{tmp\ 11776}#
'(any #(each (any any)) any . each-any))))
- #{e\ 2643}#)))
- (#{global-extend\ 256}#
+ #{e\ 11766}#)))
+ (#{global-extend\ 9410}#
'core
'quote
- (lambda (#{e\ 2699}#
- #{r\ 2700}#
- #{w\ 2701}#
- #{s\ 2702}#
- #{mod\ 2703}#)
- ((lambda (#{tmp\ 2709}#)
- ((lambda (#{tmp\ 2710}#)
- (if #{tmp\ 2710}#
- (apply (lambda (#{_\ 2713}# #{e\ 2714}#)
- (#{build-data\ 210}#
- #{s\ 2702}#
- (#{strip\ 371}# #{e\ 2714}# #{w\ 2701}#)))
- #{tmp\ 2710}#)
- ((lambda (#{_\ 2716}#)
+ (lambda (#{e\ 11822}#
+ #{r\ 11823}#
+ #{w\ 11824}#
+ #{s\ 11825}#
+ #{mod\ 11826}#)
+ ((lambda (#{tmp\ 11832}#)
+ ((lambda (#{tmp\ 11833}#)
+ (if #{tmp\ 11833}#
+ (apply (lambda (#{_\ 11836}# #{e\ 11837}#)
+ (#{build-data\ 9364}#
+ #{s\ 11825}#
+ (#{strip\ 9525}# #{e\ 11837}# #{w\ 11824}#)))
+ #{tmp\ 11833}#)
+ ((lambda (#{_\ 11839}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 331}#
- #{e\ 2699}#
- #{w\ 2701}#
- #{s\ 2702}#
- #{mod\ 2703}#)))
- #{tmp\ 2709}#)))
- ($sc-dispatch #{tmp\ 2709}# (quote (any any)))))
- #{e\ 2699}#)))
- (#{global-extend\ 256}#
+ (#{source-wrap\ 9485}#
+ #{e\ 11822}#
+ #{w\ 11824}#
+ #{s\ 11825}#
+ #{mod\ 11826}#)))
+ #{tmp\ 11832}#)))
+ ($sc-dispatch #{tmp\ 11832}# (quote (any any)))))
+ #{e\ 11822}#)))
+ (#{global-extend\ 9410}#
'core
'syntax
- (letrec ((#{regen\ 2732}#
- (lambda (#{x\ 2733}#)
- (let ((#{atom-key\ 2737}# (car #{x\ 2733}#)))
- (if (memv #{atom-key\ 2737}# (quote (ref)))
- (#{build-lexical-reference\ 188}#
+ (letrec ((#{regen\ 11855}#
+ (lambda (#{x\ 11856}#)
+ (let ((#{atom-key\ 11860}# (car #{x\ 11856}#)))
+ (if (memv #{atom-key\ 11860}# (quote (ref)))
+ (#{build-lexical-reference\ 9342}#
'value
#f
- (cadr #{x\ 2733}#)
- (cadr #{x\ 2733}#))
- (if (memv #{atom-key\ 2737}# (quote (primitive)))
- (#{build-primref\ 208}# #f (cadr #{x\ 2733}#))
- (if (memv #{atom-key\ 2737}# (quote (quote)))
- (#{build-data\ 210}# #f (cadr #{x\ 2733}#))
- (if (memv #{atom-key\ 2737}# (quote (lambda)))
- (if (list? (cadr #{x\ 2733}#))
- (#{build-simple-lambda\ 202}#
+ (cadr #{x\ 11856}#)
+ (cadr #{x\ 11856}#))
+ (if (memv #{atom-key\ 11860}# (quote (primitive)))
+ (#{build-primref\ 9362}# #f (cadr #{x\ 11856}#))
+ (if (memv #{atom-key\ 11860}# (quote (quote)))
+ (#{build-data\ 9364}# #f (cadr #{x\ 11856}#))
+ (if (memv #{atom-key\ 11860}# (quote (lambda)))
+ (if (list? (cadr #{x\ 11856}#))
+ (#{build-simple-lambda\ 9356}#
#f
- (cadr #{x\ 2733}#)
+ (cadr #{x\ 11856}#)
#f
- (cadr #{x\ 2733}#)
+ (cadr #{x\ 11856}#)
#f
- (#{regen\ 2732}# (caddr #{x\ 2733}#)))
- (error "how did we get here" #{x\ 2733}#))
- (#{build-application\ 184}#
+ (#{regen\ 11855}# (caddr #{x\ 11856}#)))
+ (error "how did we get here" #{x\ 11856}#))
+ (#{build-application\ 9338}#
#f
- (#{build-primref\ 208}# #f (car #{x\ 2733}#))
- (map #{regen\ 2732}#
- (cdr #{x\ 2733}#))))))))))
- (#{gen-vector\ 2730}#
- (lambda (#{x\ 2749}#)
- (if (eq? (car #{x\ 2749}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2749}#))
- (if (eq? (car #{x\ 2749}#) (quote quote))
+ (#{build-primref\ 9362}#
+ #f
+ (car #{x\ 11856}#))
+ (map #{regen\ 11855}#
+ (cdr #{x\ 11856}#))))))))))
+ (#{gen-vector\ 11853}#
+ (lambda (#{x\ 11872}#)
+ (if (eq? (car #{x\ 11872}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 11872}#))
+ (if (eq? (car #{x\ 11872}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 2749}#)))
- (list (quote list->vector) #{x\ 2749}#)))))
- (#{gen-append\ 2728}#
- (lambda (#{x\ 2759}# #{y\ 2760}#)
- (if (equal? #{y\ 2760}# (quote (quote ())))
- #{x\ 2759}#
- (list (quote append) #{x\ 2759}# #{y\ 2760}#))))
- (#{gen-cons\ 2726}#
- (lambda (#{x\ 2764}# #{y\ 2765}#)
- (let ((#{atom-key\ 2770}# (car #{y\ 2765}#)))
- (if (memv #{atom-key\ 2770}# (quote (quote)))
- (if (eq? (car #{x\ 2764}#) (quote quote))
+ (list->vector (cadr #{x\ 11872}#)))
+ (list (quote list->vector) #{x\ 11872}#)))))
+ (#{gen-append\ 11851}#
+ (lambda (#{x\ 11882}# #{y\ 11883}#)
+ (if (equal? #{y\ 11883}# (quote (quote ())))
+ #{x\ 11882}#
+ (list (quote append) #{x\ 11882}# #{y\ 11883}#))))
+ (#{gen-cons\ 11849}#
+ (lambda (#{x\ 11887}# #{y\ 11888}#)
+ (let ((#{atom-key\ 11893}# (car #{y\ 11888}#)))
+ (if (memv #{atom-key\ 11893}# (quote (quote)))
+ (if (eq? (car #{x\ 11887}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 2764}#) (cadr #{y\ 2765}#)))
- (if (eq? (cadr #{y\ 2765}#) (quote ()))
- (list (quote list) #{x\ 2764}#)
- (list (quote cons) #{x\ 2764}# #{y\ 2765}#)))
- (if (memv #{atom-key\ 2770}# (quote (list)))
+ (cons (cadr #{x\ 11887}#)
+ (cadr #{y\ 11888}#)))
+ (if (eq? (cadr #{y\ 11888}#) (quote ()))
+ (list (quote list) #{x\ 11887}#)
+ (list (quote cons) #{x\ 11887}# #{y\ 11888}#)))
+ (if (memv #{atom-key\ 11893}# (quote (list)))
(cons 'list
- (cons #{x\ 2764}# (cdr #{y\ 2765}#)))
- (list (quote cons) #{x\ 2764}# #{y\ 2765}#))))))
- (#{gen-map\ 2724}#
- (lambda (#{e\ 2779}# #{map-env\ 2780}#)
- (let ((#{formals\ 2785}# (map cdr #{map-env\ 2780}#))
- (#{actuals\ 2786}#
- (map (lambda (#{x\ 2787}#)
- (list (quote ref) (car #{x\ 2787}#)))
- #{map-env\ 2780}#)))
- (if (eq? (car #{e\ 2779}#) (quote ref))
- (car #{actuals\ 2786}#)
+ (cons #{x\ 11887}# (cdr #{y\ 11888}#)))
+ (list (quote cons) #{x\ 11887}# #{y\ 11888}#))))))
+ (#{gen-map\ 11847}#
+ (lambda (#{e\ 11902}# #{map-env\ 11903}#)
+ (let ((#{formals\ 11908}# (map cdr #{map-env\ 11903}#))
+ (#{actuals\ 11909}#
+ (map (lambda (#{x\ 11910}#)
+ (list (quote ref) (car #{x\ 11910}#)))
+ #{map-env\ 11903}#)))
+ (if (eq? (car #{e\ 11902}#) (quote ref))
+ (car #{actuals\ 11909}#)
(if (and-map
- (lambda (#{x\ 2794}#)
- (if (eq? (car #{x\ 2794}#) (quote ref))
- (memq (cadr #{x\ 2794}#) #{formals\ 2785}#)
+ (lambda (#{x\ 11917}#)
+ (if (eq? (car #{x\ 11917}#) (quote ref))
+ (memq (cadr #{x\ 11917}#)
+ #{formals\ 11908}#)
#f))
- (cdr #{e\ 2779}#))
+ (cdr #{e\ 11902}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2779}#))
- (map (let ((#{r\ 2800}#
+ (car #{e\ 11902}#))
+ (map (let ((#{r\ 11923}#
(map cons
- #{formals\ 2785}#
- #{actuals\ 2786}#)))
- (lambda (#{x\ 2801}#)
- (cdr (assq (cadr #{x\ 2801}#)
- #{r\ 2800}#))))
- (cdr #{e\ 2779}#))))
+ #{formals\ 11908}#
+ #{actuals\ 11909}#)))
+ (lambda (#{x\ 11924}#)
+ (cdr (assq (cadr #{x\ 11924}#)
+ #{r\ 11923}#))))
+ (cdr #{e\ 11902}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2785}#
- #{e\ 2779}#)
- #{actuals\ 2786}#)))))))
- (#{gen-mappend\ 2722}#
- (lambda (#{e\ 2805}# #{map-env\ 2806}#)
+ #{formals\ 11908}#
+ #{e\ 11902}#)
+ #{actuals\ 11909}#)))))))
+ (#{gen-mappend\ 11845}#
+ (lambda (#{e\ 11928}# #{map-env\ 11929}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2724}# #{e\ 2805}# #{map-env\ 2806}#))))
- (#{gen-ref\ 2720}#
- (lambda (#{src\ 2810}#
- #{var\ 2811}#
- #{level\ 2812}#
- #{maps\ 2813}#)
- (if (#{fx=\ 167}# #{level\ 2812}# 0)
- (values #{var\ 2811}# #{maps\ 2813}#)
- (if (null? #{maps\ 2813}#)
+ (#{gen-map\ 11847}#
+ #{e\ 11928}#
+ #{map-env\ 11929}#))))
+ (#{gen-ref\ 11843}#
+ (lambda (#{src\ 11933}#
+ #{var\ 11934}#
+ #{level\ 11935}#
+ #{maps\ 11936}#)
+ (if (#{fx=\ 9321}# #{level\ 11935}# 0)
+ (values #{var\ 11934}# #{maps\ 11936}#)
+ (if (null? #{maps\ 11936}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2810}#)
+ #{src\ 11933}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2720}#
- #{src\ 2810}#
- #{var\ 2811}#
- (#{fx-\ 165}# #{level\ 2812}# 1)
- (cdr #{maps\ 2813}#)))
- (lambda (#{outer-var\ 2818}# #{outer-maps\ 2819}#)
- (let ((#{b\ 2823}#
- (assq #{outer-var\ 2818}#
- (car #{maps\ 2813}#))))
- (if #{b\ 2823}#
- (values (cdr #{b\ 2823}#) #{maps\ 2813}#)
- (let ((#{inner-var\ 2825}#
- (#{gen-var\ 373}# (quote tmp))))
+ (#{gen-ref\ 11843}#
+ #{src\ 11933}#
+ #{var\ 11934}#
+ (#{fx-\ 9319}# #{level\ 11935}# 1)
+ (cdr #{maps\ 11936}#)))
+ (lambda (#{outer-var\ 11941}# #{outer-maps\ 11942}#)
+ (let ((#{b\ 11946}#
+ (assq #{outer-var\ 11941}#
+ (car #{maps\ 11936}#))))
+ (if #{b\ 11946}#
+ (values (cdr #{b\ 11946}#) #{maps\ 11936}#)
+ (let ((#{inner-var\ 11948}#
+ (#{gen-var\ 9527}# (quote tmp))))
(values
- #{inner-var\ 2825}#
- (cons (cons (cons #{outer-var\ 2818}#
- #{inner-var\ 2825}#)
- (car #{maps\ 2813}#))
- #{outer-maps\ 2819}#)))))))))))
- (#{gen-syntax\ 2718}#
- (lambda (#{src\ 2826}#
- #{e\ 2827}#
- #{r\ 2828}#
- #{maps\ 2829}#
- #{ellipsis?\ 2830}#
- #{mod\ 2831}#)
- (if (#{id?\ 260}# #{e\ 2827}#)
- (let ((#{label\ 2839}#
- (#{id-var-name\ 317}#
- #{e\ 2827}#
+ #{inner-var\ 11948}#
+ (cons (cons (cons #{outer-var\ 11941}#
+ #{inner-var\ 11948}#)
+ (car #{maps\ 11936}#))
+ #{outer-maps\ 11942}#)))))))))))
+ (#{gen-syntax\ 11841}#
+ (lambda (#{src\ 11949}#
+ #{e\ 11950}#
+ #{r\ 11951}#
+ #{maps\ 11952}#
+ #{ellipsis?\ 11953}#
+ #{mod\ 11954}#)
+ (if (#{id?\ 9414}# #{e\ 11950}#)
+ (let ((#{label\ 11962}#
+ (#{id-var-name\ 9471}#
+ #{e\ 11950}#
'(()))))
- (let ((#{b\ 2842}#
- (#{lookup\ 254}#
- #{label\ 2839}#
- #{r\ 2828}#
- #{mod\ 2831}#)))
- (if (eq? (#{binding-type\ 243}# #{b\ 2842}#)
+ (let ((#{b\ 11965}#
+ (#{lookup\ 9408}#
+ #{label\ 11962}#
+ #{r\ 11951}#
+ #{mod\ 11954}#)))
+ (if (eq? (#{binding-type\ 9397}# #{b\ 11965}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 2844}#
- (#{binding-value\ 245}# #{b\ 2842}#)))
- (#{gen-ref\ 2720}#
- #{src\ 2826}#
- (car #{var.lev\ 2844}#)
- (cdr #{var.lev\ 2844}#)
- #{maps\ 2829}#)))
- (lambda (#{var\ 2845}# #{maps\ 2846}#)
+ (let ((#{var.lev\ 11967}#
+ (#{binding-value\ 9399}#
+ #{b\ 11965}#)))
+ (#{gen-ref\ 11843}#
+ #{src\ 11949}#
+ (car #{var.lev\ 11967}#)
+ (cdr #{var.lev\ 11967}#)
+ #{maps\ 11952}#)))
+ (lambda (#{var\ 11968}# #{maps\ 11969}#)
(values
- (list (quote ref) #{var\ 2845}#)
- #{maps\ 2846}#)))
- (if (#{ellipsis?\ 2830}# #{e\ 2827}#)
+ (list (quote ref) #{var\ 11968}#)
+ #{maps\ 11969}#)))
+ (if (#{ellipsis?\ 11953}# #{e\ 11950}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2826}#)
+ #{src\ 11949}#)
(values
- (list (quote quote) #{e\ 2827}#)
- #{maps\ 2829}#)))))
- ((lambda (#{tmp\ 2851}#)
- ((lambda (#{tmp\ 2852}#)
- (if (if #{tmp\ 2852}#
- (apply (lambda (#{dots\ 2855}# #{e\ 2856}#)
- (#{ellipsis?\ 2830}#
- #{dots\ 2855}#))
- #{tmp\ 2852}#)
+ (list (quote quote) #{e\ 11950}#)
+ #{maps\ 11952}#)))))
+ ((lambda (#{tmp\ 11974}#)
+ ((lambda (#{tmp\ 11975}#)
+ (if (if #{tmp\ 11975}#
+ (apply (lambda (#{dots\ 11978}#
+ #{e\ 11979}#)
+ (#{ellipsis?\ 11953}#
+ #{dots\ 11978}#))
+ #{tmp\ 11975}#)
#f)
- (apply (lambda (#{dots\ 2859}# #{e\ 2860}#)
- (#{gen-syntax\ 2718}#
- #{src\ 2826}#
- #{e\ 2860}#
- #{r\ 2828}#
- #{maps\ 2829}#
- (lambda (#{x\ 2861}#) #f)
- #{mod\ 2831}#))
- #{tmp\ 2852}#)
- ((lambda (#{tmp\ 2863}#)
- (if (if #{tmp\ 2863}#
- (apply (lambda (#{x\ 2867}#
- #{dots\ 2868}#
- #{y\ 2869}#)
- (#{ellipsis?\ 2830}#
- #{dots\ 2868}#))
- #{tmp\ 2863}#)
+ (apply (lambda (#{dots\ 11982}# #{e\ 11983}#)
+ (#{gen-syntax\ 11841}#
+ #{src\ 11949}#
+ #{e\ 11983}#
+ #{r\ 11951}#
+ #{maps\ 11952}#
+ (lambda (#{x\ 11984}#) #f)
+ #{mod\ 11954}#))
+ #{tmp\ 11975}#)
+ ((lambda (#{tmp\ 11986}#)
+ (if (if #{tmp\ 11986}#
+ (apply (lambda (#{x\ 11990}#
+ #{dots\ 11991}#
+ #{y\ 11992}#)
+ (#{ellipsis?\ 11953}#
+ #{dots\ 11991}#))
+ #{tmp\ 11986}#)
#f)
- (apply (lambda (#{x\ 2873}#
- #{dots\ 2874}#
- #{y\ 2875}#)
- (letrec ((#{f\ 2879}#
- (lambda (#{y\ 2880}#
- #{k\ 2881}#)
- ((lambda (#{tmp\
2888}#)
- ((lambda (#{tmp\
2889}#)
- (if (if #{tmp\
2889}#
- (apply
(lambda (#{dots\ 2892}#
-
#{y\ 2893}#)
-
(#{ellipsis?\ 2830}#
-
#{dots\ 2892}#))
-
#{tmp\ 2889}#)
+ (apply (lambda (#{x\ 11996}#
+ #{dots\ 11997}#
+ #{y\ 11998}#)
+ (letrec ((#{f\ 12002}#
+ (lambda (#{y\ 12003}#
+ #{k\ 12004}#)
+ ((lambda (#{tmp\
12011}#)
+ ((lambda (#{tmp\
12012}#)
+ (if (if #{tmp\
12012}#
+ (apply
(lambda (#{dots\ 12015}#
+
#{y\ 12016}#)
+
(#{ellipsis?\ 11953}#
+
#{dots\ 12015}#))
+
#{tmp\ 12012}#)
#f)
- (apply
(lambda (#{dots\ 2896}#
-
#{y\ 2897}#)
-
(#{f\ 2879}#
-
#{y\ 2897}#
-
(lambda (#{maps\ 2898}#)
+ (apply
(lambda (#{dots\ 12019}#
+
#{y\ 12020}#)
+
(#{f\ 12002}#
+
#{y\ 12020}#
+
(lambda (#{maps\ 12021}#)
(call-with-values
(lambda ()
-
(#{k\ 2881}#
+
(#{k\ 12004}#
(cons '()
-
#{maps\ 2898}#)))
-
(lambda (#{x\ 2900}#
-
#{maps\ 2901}#)
-
(if (null? (car #{maps\ 2901}#))
+
#{maps\ 12021}#)))
+
(lambda (#{x\ 12023}#
+
#{maps\ 12024}#)
+
(if (null? (car #{maps\ 12024}#))
(syntax-violation
'syntax
"extra ellipsis"
-
#{src\ 2826}#)
+
#{src\ 11949}#)
(values
-
(#{gen-mappend\ 2722}#
-
#{x\ 2900}#
-
(car #{maps\ 2901}#))
-
(cdr #{maps\ 2901}#))))))))
-
#{tmp\ 2889}#)
- ((lambda
(#{_\ 2905}#)
+
(#{gen-mappend\ 11845}#
+
#{x\ 12023}#
+
(car #{maps\ 12024}#))
+
(cdr #{maps\ 12024}#))))))))
+
#{tmp\ 12012}#)
+ ((lambda
(#{_\ 12028}#)
(call-with-values
(lambda
()
-
(#{gen-syntax\ 2718}#
-
#{src\ 2826}#
-
#{y\ 2880}#
-
#{r\ 2828}#
-
#{maps\ 2829}#
-
#{ellipsis?\ 2830}#
-
#{mod\ 2831}#))
- (lambda
(#{y\ 2906}#
-
#{maps\ 2907}#)
+
(#{gen-syntax\ 11841}#
+
#{src\ 11949}#
+
#{y\ 12003}#
+
#{r\ 11951}#
+
#{maps\ 11952}#
+
#{ellipsis?\ 11953}#
+
#{mod\ 11954}#))
+ (lambda
(#{y\ 12029}#
+
#{maps\ 12030}#)
(call-with-values
(lambda ()
-
(#{k\ 2881}#
-
#{maps\ 2907}#))
-
(lambda (#{x\ 2910}#
-
#{maps\ 2911}#)
+
(#{k\ 12004}#
+
#{maps\ 12030}#))
+
(lambda (#{x\ 12033}#
+
#{maps\ 12034}#)
(values
-
(#{gen-append\ 2728}#
-
#{x\ 2910}#
-
#{y\ 2906}#)
-
#{maps\ 2911}#))))))
- #{tmp\
2888}#)))
+
(#{gen-append\ 11851}#
+
#{x\ 12033}#
+
#{y\ 12029}#)
+
#{maps\ 12034}#))))))
+ #{tmp\
12011}#)))
($sc-dispatch
- #{tmp\ 2888}#
+ #{tmp\ 12011}#
'(any . any))))
- #{y\ 2880}#))))
- (#{f\ 2879}#
- #{y\ 2875}#
- (lambda (#{maps\ 2882}#)
+ #{y\ 12003}#))))
+ (#{f\ 12002}#
+ #{y\ 11998}#
+ (lambda (#{maps\ 12005}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2718}#
- #{src\ 2826}#
- #{x\ 2873}#
- #{r\ 2828}#
+ (#{gen-syntax\ 11841}#
+ #{src\ 11949}#
+ #{x\ 11996}#
+ #{r\ 11951}#
(cons '()
- #{maps\ 2882}#)
- #{ellipsis?\ 2830}#
- #{mod\ 2831}#))
- (lambda (#{x\ 2884}#
- #{maps\ 2885}#)
- (if (null? (car #{maps\
2885}#))
+ #{maps\ 12005}#)
+ #{ellipsis?\ 11953}#
+ #{mod\ 11954}#))
+ (lambda (#{x\ 12007}#
+ #{maps\ 12008}#)
+ (if (null? (car #{maps\
12008}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2826}#)
+ #{src\ 11949}#)
(values
- (#{gen-map\ 2724}#
- #{x\ 2884}#
- (car #{maps\
2885}#))
- (cdr #{maps\
2885}#)))))))))
- #{tmp\ 2863}#)
- ((lambda (#{tmp\ 2914}#)
- (if #{tmp\ 2914}#
- (apply (lambda (#{x\ 2917}#
- #{y\ 2918}#)
+ (#{gen-map\ 11847}#
+ #{x\ 12007}#
+ (car #{maps\
12008}#))
+ (cdr #{maps\
12008}#)))))))))
+ #{tmp\ 11986}#)
+ ((lambda (#{tmp\ 12037}#)
+ (if #{tmp\ 12037}#
+ (apply (lambda (#{x\ 12040}#
+ #{y\ 12041}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2718}#
- #{src\ 2826}#
- #{x\ 2917}#
- #{r\ 2828}#
- #{maps\ 2829}#
- #{ellipsis?\ 2830}#
- #{mod\ 2831}#))
- (lambda (#{x\ 2919}#
- #{maps\ 2920}#)
+ (#{gen-syntax\ 11841}#
+ #{src\ 11949}#
+ #{x\ 12040}#
+ #{r\ 11951}#
+ #{maps\ 11952}#
+ #{ellipsis?\ 11953}#
+ #{mod\ 11954}#))
+ (lambda (#{x\ 12042}#
+ #{maps\ 12043}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2718}#
- #{src\ 2826}#
- #{y\ 2918}#
- #{r\ 2828}#
- #{maps\ 2920}#
- #{ellipsis?\ 2830}#
- #{mod\ 2831}#))
- (lambda (#{y\ 2923}#
- #{maps\
2924}#)
+ (#{gen-syntax\
11841}#
+ #{src\ 11949}#
+ #{y\ 12041}#
+ #{r\ 11951}#
+ #{maps\ 12043}#
+ #{ellipsis?\
11953}#
+ #{mod\ 11954}#))
+ (lambda (#{y\ 12046}#
+ #{maps\
12047}#)
(values
- (#{gen-cons\ 2726}#
- #{x\ 2919}#
- #{y\ 2923}#)
- #{maps\
2924}#))))))
- #{tmp\ 2914}#)
- ((lambda (#{tmp\ 2927}#)
- (if #{tmp\ 2927}#
- (apply (lambda (#{e1\ 2930}#
- #{e2\ 2931}#)
+ (#{gen-cons\
11849}#
+ #{x\ 12042}#
+ #{y\ 12046}#)
+ #{maps\
12047}#))))))
+ #{tmp\ 12037}#)
+ ((lambda (#{tmp\ 12050}#)
+ (if #{tmp\ 12050}#
+ (apply (lambda (#{e1\ 12053}#
+ #{e2\ 12054}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
2718}#
- #{src\ 2826}#
- (cons #{e1\ 2930}#
- #{e2\
2931}#)
- #{r\ 2828}#
- #{maps\ 2829}#
- #{ellipsis?\
2830}#
- #{mod\ 2831}#))
- (lambda (#{e\ 2933}#
- #{maps\
2934}#)
+ (#{gen-syntax\
11841}#
+ #{src\ 11949}#
+ (cons #{e1\
12053}#
+ #{e2\
12054}#)
+ #{r\ 11951}#
+ #{maps\ 11952}#
+ #{ellipsis?\
11953}#
+ #{mod\ 11954}#))
+ (lambda (#{e\ 12056}#
+ #{maps\
12057}#)
(values
- (#{gen-vector\
2730}#
- #{e\ 2933}#)
- #{maps\ 2934}#))))
- #{tmp\ 2927}#)
- ((lambda (#{_\ 2938}#)
+ (#{gen-vector\
11853}#
+ #{e\ 12056}#)
+ #{maps\
12057}#))))
+ #{tmp\ 12050}#)
+ ((lambda (#{_\ 12061}#)
(values
(list 'quote
- #{e\ 2827}#)
- #{maps\ 2829}#))
- #{tmp\ 2851}#)))
+ #{e\ 11950}#)
+ #{maps\ 11952}#))
+ #{tmp\ 11974}#)))
($sc-dispatch
- #{tmp\ 2851}#
+ #{tmp\ 11974}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 2851}#
+ #{tmp\ 11974}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 2851}#
+ #{tmp\ 11974}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 2851}# (quote (any any)))))
- #{e\ 2827}#)))))
- (lambda (#{e\ 2940}#
- #{r\ 2941}#
- #{w\ 2942}#
- #{s\ 2943}#
- #{mod\ 2944}#)
- (let ((#{e\ 2951}#
- (#{source-wrap\ 331}#
- #{e\ 2940}#
- #{w\ 2942}#
- #{s\ 2943}#
- #{mod\ 2944}#)))
- ((lambda (#{tmp\ 2952}#)
- ((lambda (#{tmp\ 2953}#)
- (if #{tmp\ 2953}#
- (apply (lambda (#{_\ 2956}# #{x\ 2957}#)
+ ($sc-dispatch #{tmp\ 11974}# (quote (any any)))))
+ #{e\ 11950}#)))))
+ (lambda (#{e\ 12063}#
+ #{r\ 12064}#
+ #{w\ 12065}#
+ #{s\ 12066}#
+ #{mod\ 12067}#)
+ (let ((#{e\ 12074}#
+ (#{source-wrap\ 9485}#
+ #{e\ 12063}#
+ #{w\ 12065}#
+ #{s\ 12066}#
+ #{mod\ 12067}#)))
+ ((lambda (#{tmp\ 12075}#)
+ ((lambda (#{tmp\ 12076}#)
+ (if #{tmp\ 12076}#
+ (apply (lambda (#{_\ 12079}# #{x\ 12080}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2718}#
- #{e\ 2951}#
- #{x\ 2957}#
- #{r\ 2941}#
+ (#{gen-syntax\ 11841}#
+ #{e\ 12074}#
+ #{x\ 12080}#
+ #{r\ 12064}#
'()
- #{ellipsis?\ 361}#
- #{mod\ 2944}#))
- (lambda (#{e\ 2958}# #{maps\ 2959}#)
- (#{regen\ 2732}# #{e\ 2958}#))))
- #{tmp\ 2953}#)
- ((lambda (#{_\ 2963}#)
+ #{ellipsis?\ 9515}#
+ #{mod\ 12067}#))
+ (lambda (#{e\ 12081}# #{maps\ 12082}#)
+ (#{regen\ 11855}# #{e\ 12081}#))))
+ #{tmp\ 12076}#)
+ ((lambda (#{_\ 12086}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 2951}#))
- #{tmp\ 2952}#)))
- ($sc-dispatch #{tmp\ 2952}# (quote (any any)))))
- #{e\ 2951}#)))))
- (#{global-extend\ 256}#
+ #{e\ 12074}#))
+ #{tmp\ 12075}#)))
+ ($sc-dispatch #{tmp\ 12075}# (quote (any any)))))
+ #{e\ 12074}#)))))
+ (#{global-extend\ 9410}#
'core
'lambda
- (lambda (#{e\ 2964}#
- #{r\ 2965}#
- #{w\ 2966}#
- #{s\ 2967}#
- #{mod\ 2968}#)
- ((lambda (#{tmp\ 2974}#)
- ((lambda (#{tmp\ 2975}#)
- (if (if #{tmp\ 2975}#
- (apply (lambda (#{_\ 2981}#
- #{args\ 2982}#
- #{docstring\ 2983}#
- #{e1\ 2984}#
- #{e2\ 2985}#)
- (string? (syntax->datum #{docstring\ 2983}#)))
- #{tmp\ 2975}#)
+ (lambda (#{e\ 12087}#
+ #{r\ 12088}#
+ #{w\ 12089}#
+ #{s\ 12090}#
+ #{mod\ 12091}#)
+ ((lambda (#{tmp\ 12097}#)
+ ((lambda (#{tmp\ 12098}#)
+ (if (if #{tmp\ 12098}#
+ (apply (lambda (#{_\ 12104}#
+ #{args\ 12105}#
+ #{docstring\ 12106}#
+ #{e1\ 12107}#
+ #{e2\ 12108}#)
+ (string? (syntax->datum #{docstring\ 12106}#)))
+ #{tmp\ 12098}#)
#f)
- (apply (lambda (#{_\ 2991}#
- #{args\ 2992}#
- #{docstring\ 2993}#
- #{e1\ 2994}#
- #{e2\ 2995}#)
+ (apply (lambda (#{_\ 12114}#
+ #{args\ 12115}#
+ #{docstring\ 12116}#
+ #{e1\ 12117}#
+ #{e2\ 12118}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 363}# #{args\ 2992}#))
- (lambda (#{req\ 2996}#
- #{opt\ 2997}#
- #{rest\ 2998}#
- #{kw\ 2999}#)
- (#{chi-simple-lambda\ 365}#
- #{e\ 2964}#
- #{r\ 2965}#
- #{w\ 2966}#
- #{s\ 2967}#
- #{mod\ 2968}#
- #{req\ 2996}#
- #{rest\ 2998}#
- (syntax->datum #{docstring\ 2993}#)
- (cons #{e1\ 2994}# #{e2\ 2995}#)))))
- #{tmp\ 2975}#)
- ((lambda (#{tmp\ 3005}#)
- (if #{tmp\ 3005}#
- (apply (lambda (#{_\ 3010}#
- #{args\ 3011}#
- #{e1\ 3012}#
- #{e2\ 3013}#)
+ (#{lambda-formals\ 9517}# #{args\ 12115}#))
+ (lambda (#{req\ 12119}#
+ #{opt\ 12120}#
+ #{rest\ 12121}#
+ #{kw\ 12122}#)
+ (#{chi-simple-lambda\ 9519}#
+ #{e\ 12087}#
+ #{r\ 12088}#
+ #{w\ 12089}#
+ #{s\ 12090}#
+ #{mod\ 12091}#
+ #{req\ 12119}#
+ #{rest\ 12121}#
+ (syntax->datum #{docstring\ 12116}#)
+ (cons #{e1\ 12117}# #{e2\ 12118}#)))))
+ #{tmp\ 12098}#)
+ ((lambda (#{tmp\ 12128}#)
+ (if #{tmp\ 12128}#
+ (apply (lambda (#{_\ 12133}#
+ #{args\ 12134}#
+ #{e1\ 12135}#
+ #{e2\ 12136}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 363}# #{args\ 3011}#))
- (lambda (#{req\ 3014}#
- #{opt\ 3015}#
- #{rest\ 3016}#
- #{kw\ 3017}#)
- (#{chi-simple-lambda\ 365}#
- #{e\ 2964}#
- #{r\ 2965}#
- #{w\ 2966}#
- #{s\ 2967}#
- #{mod\ 2968}#
- #{req\ 3014}#
- #{rest\ 3016}#
+ (#{lambda-formals\ 9517}# #{args\ 12134}#))
+ (lambda (#{req\ 12137}#
+ #{opt\ 12138}#
+ #{rest\ 12139}#
+ #{kw\ 12140}#)
+ (#{chi-simple-lambda\ 9519}#
+ #{e\ 12087}#
+ #{r\ 12088}#
+ #{w\ 12089}#
+ #{s\ 12090}#
+ #{mod\ 12091}#
+ #{req\ 12137}#
+ #{rest\ 12139}#
#f
- (cons #{e1\ 3012}# #{e2\ 3013}#)))))
- #{tmp\ 3005}#)
- ((lambda (#{_\ 3024}#)
+ (cons #{e1\ 12135}# #{e2\ 12136}#)))))
+ #{tmp\ 12128}#)
+ ((lambda (#{_\ 12147}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 2964}#))
- #{tmp\ 2974}#)))
+ #{e\ 12087}#))
+ #{tmp\ 12097}#)))
($sc-dispatch
- #{tmp\ 2974}#
+ #{tmp\ 12097}#
'(any any any . each-any)))))
($sc-dispatch
- #{tmp\ 2974}#
+ #{tmp\ 12097}#
'(any any any any . each-any))))
- #{e\ 2964}#)))
- (#{global-extend\ 256}#
+ #{e\ 12087}#)))
+ (#{global-extend\ 9410}#
'core
'lambda*
- (lambda (#{e\ 3025}#
- #{r\ 3026}#
- #{w\ 3027}#
- #{s\ 3028}#
- #{mod\ 3029}#)
- ((lambda (#{tmp\ 3035}#)
- ((lambda (#{tmp\ 3036}#)
- (if #{tmp\ 3036}#
- (apply (lambda (#{_\ 3041}#
- #{args\ 3042}#
- #{e1\ 3043}#
- #{e2\ 3044}#)
+ (lambda (#{e\ 12148}#
+ #{r\ 12149}#
+ #{w\ 12150}#
+ #{s\ 12151}#
+ #{mod\ 12152}#)
+ ((lambda (#{tmp\ 12158}#)
+ ((lambda (#{tmp\ 12159}#)
+ (if #{tmp\ 12159}#
+ (apply (lambda (#{_\ 12164}#
+ #{args\ 12165}#
+ #{e1\ 12166}#
+ #{e2\ 12167}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 369}#
- #{e\ 3025}#
- #{r\ 3026}#
- #{w\ 3027}#
- #{s\ 3028}#
- #{mod\ 3029}#
- #{lambda*-formals\ 367}#
- (list (cons #{args\ 3042}#
- (cons #{e1\ 3043}#
- #{e2\ 3044}#)))))
- (lambda (#{docstring\ 3046}# #{lcase\ 3047}#)
- (#{build-case-lambda\ 204}#
- #{s\ 3028}#
- #{docstring\ 3046}#
- #{lcase\ 3047}#))))
- #{tmp\ 3036}#)
- ((lambda (#{_\ 3051}#)
+ (#{chi-lambda-case\ 9523}#
+ #{e\ 12148}#
+ #{r\ 12149}#
+ #{w\ 12150}#
+ #{s\ 12151}#
+ #{mod\ 12152}#
+ #{lambda*-formals\ 9521}#
+ (list (cons #{args\ 12165}#
+ (cons #{e1\ 12166}#
+ #{e2\ 12167}#)))))
+ (lambda (#{docstring\ 12169}# #{lcase\ 12170}#)
+ (#{build-case-lambda\ 9358}#
+ #{s\ 12151}#
+ #{docstring\ 12169}#
+ #{lcase\ 12170}#))))
+ #{tmp\ 12159}#)
+ ((lambda (#{_\ 12174}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3025}#))
- #{tmp\ 3035}#)))
+ #{e\ 12148}#))
+ #{tmp\ 12158}#)))
($sc-dispatch
- #{tmp\ 3035}#
+ #{tmp\ 12158}#
'(any any any . each-any))))
- #{e\ 3025}#)))
- (#{global-extend\ 256}#
+ #{e\ 12148}#)))
+ (#{global-extend\ 9410}#
'core
'case-lambda
- (lambda (#{e\ 3052}#
- #{r\ 3053}#
- #{w\ 3054}#
- #{s\ 3055}#
- #{mod\ 3056}#)
- ((lambda (#{tmp\ 3062}#)
- ((lambda (#{tmp\ 3063}#)
- (if #{tmp\ 3063}#
- (apply (lambda (#{_\ 3071}#
- #{args\ 3072}#
- #{e1\ 3073}#
- #{e2\ 3074}#
- #{args*\ 3075}#
- #{e1*\ 3076}#
- #{e2*\ 3077}#)
+ (lambda (#{e\ 12175}#
+ #{r\ 12176}#
+ #{w\ 12177}#
+ #{s\ 12178}#
+ #{mod\ 12179}#)
+ ((lambda (#{tmp\ 12185}#)
+ ((lambda (#{tmp\ 12186}#)
+ (if #{tmp\ 12186}#
+ (apply (lambda (#{_\ 12194}#
+ #{args\ 12195}#
+ #{e1\ 12196}#
+ #{e2\ 12197}#
+ #{args*\ 12198}#
+ #{e1*\ 12199}#
+ #{e2*\ 12200}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 369}#
- #{e\ 3052}#
- #{r\ 3053}#
- #{w\ 3054}#
- #{s\ 3055}#
- #{mod\ 3056}#
- #{lambda-formals\ 363}#
- (cons (cons #{args\ 3072}#
- (cons #{e1\ 3073}# #{e2\ 3074}#))
- (map (lambda (#{tmp\ 3081}#
- #{tmp\ 3080}#
- #{tmp\ 3079}#)
- (cons #{tmp\ 3079}#
- (cons #{tmp\ 3080}#
- #{tmp\ 3081}#)))
- #{e2*\ 3077}#
- #{e1*\ 3076}#
- #{args*\ 3075}#))))
- (lambda (#{docstring\ 3083}# #{lcase\ 3084}#)
- (#{build-case-lambda\ 204}#
- #{s\ 3055}#
- #{docstring\ 3083}#
- #{lcase\ 3084}#))))
- #{tmp\ 3063}#)
- ((lambda (#{_\ 3088}#)
+ (#{chi-lambda-case\ 9523}#
+ #{e\ 12175}#
+ #{r\ 12176}#
+ #{w\ 12177}#
+ #{s\ 12178}#
+ #{mod\ 12179}#
+ #{lambda-formals\ 9517}#
+ (cons (cons #{args\ 12195}#
+ (cons #{e1\ 12196}#
+ #{e2\ 12197}#))
+ (map (lambda (#{tmp\ 12204}#
+ #{tmp\ 12203}#
+ #{tmp\ 12202}#)
+ (cons #{tmp\ 12202}#
+ (cons #{tmp\ 12203}#
+ #{tmp\ 12204}#)))
+ #{e2*\ 12200}#
+ #{e1*\ 12199}#
+ #{args*\ 12198}#))))
+ (lambda (#{docstring\ 12206}# #{lcase\ 12207}#)
+ (#{build-case-lambda\ 9358}#
+ #{s\ 12178}#
+ #{docstring\ 12206}#
+ #{lcase\ 12207}#))))
+ #{tmp\ 12186}#)
+ ((lambda (#{_\ 12211}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3052}#))
- #{tmp\ 3062}#)))
+ #{e\ 12175}#))
+ #{tmp\ 12185}#)))
($sc-dispatch
- #{tmp\ 3062}#
+ #{tmp\ 12185}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3052}#)))
- (#{global-extend\ 256}#
+ #{e\ 12175}#)))
+ (#{global-extend\ 9410}#
'core
'case-lambda*
- (lambda (#{e\ 3089}#
- #{r\ 3090}#
- #{w\ 3091}#
- #{s\ 3092}#
- #{mod\ 3093}#)
- ((lambda (#{tmp\ 3099}#)
- ((lambda (#{tmp\ 3100}#)
- (if #{tmp\ 3100}#
- (apply (lambda (#{_\ 3108}#
- #{args\ 3109}#
- #{e1\ 3110}#
- #{e2\ 3111}#
- #{args*\ 3112}#
- #{e1*\ 3113}#
- #{e2*\ 3114}#)
+ (lambda (#{e\ 12212}#
+ #{r\ 12213}#
+ #{w\ 12214}#
+ #{s\ 12215}#
+ #{mod\ 12216}#)
+ ((lambda (#{tmp\ 12222}#)
+ ((lambda (#{tmp\ 12223}#)
+ (if #{tmp\ 12223}#
+ (apply (lambda (#{_\ 12231}#
+ #{args\ 12232}#
+ #{e1\ 12233}#
+ #{e2\ 12234}#
+ #{args*\ 12235}#
+ #{e1*\ 12236}#
+ #{e2*\ 12237}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 369}#
- #{e\ 3089}#
- #{r\ 3090}#
- #{w\ 3091}#
- #{s\ 3092}#
- #{mod\ 3093}#
- #{lambda*-formals\ 367}#
- (cons (cons #{args\ 3109}#
- (cons #{e1\ 3110}# #{e2\ 3111}#))
- (map (lambda (#{tmp\ 3118}#
- #{tmp\ 3117}#
- #{tmp\ 3116}#)
- (cons #{tmp\ 3116}#
- (cons #{tmp\ 3117}#
- #{tmp\ 3118}#)))
- #{e2*\ 3114}#
- #{e1*\ 3113}#
- #{args*\ 3112}#))))
- (lambda (#{docstring\ 3120}# #{lcase\ 3121}#)
- (#{build-case-lambda\ 204}#
- #{s\ 3092}#
- #{docstring\ 3120}#
- #{lcase\ 3121}#))))
- #{tmp\ 3100}#)
- ((lambda (#{_\ 3125}#)
+ (#{chi-lambda-case\ 9523}#
+ #{e\ 12212}#
+ #{r\ 12213}#
+ #{w\ 12214}#
+ #{s\ 12215}#
+ #{mod\ 12216}#
+ #{lambda*-formals\ 9521}#
+ (cons (cons #{args\ 12232}#
+ (cons #{e1\ 12233}#
+ #{e2\ 12234}#))
+ (map (lambda (#{tmp\ 12241}#
+ #{tmp\ 12240}#
+ #{tmp\ 12239}#)
+ (cons #{tmp\ 12239}#
+ (cons #{tmp\ 12240}#
+ #{tmp\ 12241}#)))
+ #{e2*\ 12237}#
+ #{e1*\ 12236}#
+ #{args*\ 12235}#))))
+ (lambda (#{docstring\ 12243}# #{lcase\ 12244}#)
+ (#{build-case-lambda\ 9358}#
+ #{s\ 12215}#
+ #{docstring\ 12243}#
+ #{lcase\ 12244}#))))
+ #{tmp\ 12223}#)
+ ((lambda (#{_\ 12248}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3089}#))
- #{tmp\ 3099}#)))
+ #{e\ 12212}#))
+ #{tmp\ 12222}#)))
($sc-dispatch
- #{tmp\ 3099}#
+ #{tmp\ 12222}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3089}#)))
- (#{global-extend\ 256}#
+ #{e\ 12212}#)))
+ (#{global-extend\ 9410}#
'core
'let
- (letrec ((#{chi-let\ 3127}#
- (lambda (#{e\ 3128}#
- #{r\ 3129}#
- #{w\ 3130}#
- #{s\ 3131}#
- #{mod\ 3132}#
- #{constructor\ 3133}#
- #{ids\ 3134}#
- #{vals\ 3135}#
- #{exps\ 3136}#)
- (if (not (#{valid-bound-ids?\ 323}# #{ids\ 3134}#))
+ (letrec ((#{chi-let\ 12250}#
+ (lambda (#{e\ 12251}#
+ #{r\ 12252}#
+ #{w\ 12253}#
+ #{s\ 12254}#
+ #{mod\ 12255}#
+ #{constructor\ 12256}#
+ #{ids\ 12257}#
+ #{vals\ 12258}#
+ #{exps\ 12259}#)
+ (if (not (#{valid-bound-ids?\ 9477}# #{ids\ 12257}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3128}#)
- (let ((#{labels\ 3148}#
- (#{gen-labels\ 278}# #{ids\ 3134}#))
- (#{new-vars\ 3149}#
- (map #{gen-var\ 373}# #{ids\ 3134}#)))
- (let ((#{nw\ 3152}#
- (#{make-binding-wrap\ 307}#
- #{ids\ 3134}#
- #{labels\ 3148}#
- #{w\ 3130}#))
- (#{nr\ 3153}#
- (#{extend-var-env\ 250}#
- #{labels\ 3148}#
- #{new-vars\ 3149}#
- #{r\ 3129}#)))
- (#{constructor\ 3133}#
- #{s\ 3131}#
- (map syntax->datum #{ids\ 3134}#)
- #{new-vars\ 3149}#
- (map (lambda (#{x\ 3154}#)
- (#{chi\ 345}#
- #{x\ 3154}#
- #{r\ 3129}#
- #{w\ 3130}#
- #{mod\ 3132}#))
- #{vals\ 3135}#)
- (#{chi-body\ 353}#
- #{exps\ 3136}#
- (#{source-wrap\ 331}#
- #{e\ 3128}#
- #{nw\ 3152}#
- #{s\ 3131}#
- #{mod\ 3132}#)
- #{nr\ 3153}#
- #{nw\ 3152}#
- #{mod\ 3132}#))))))))
- (lambda (#{e\ 3156}#
- #{r\ 3157}#
- #{w\ 3158}#
- #{s\ 3159}#
- #{mod\ 3160}#)
- ((lambda (#{tmp\ 3166}#)
- ((lambda (#{tmp\ 3167}#)
- (if (if #{tmp\ 3167}#
- (apply (lambda (#{_\ 3173}#
- #{id\ 3174}#
- #{val\ 3175}#
- #{e1\ 3176}#
- #{e2\ 3177}#)
- (and-map #{id?\ 260}# #{id\ 3174}#))
- #{tmp\ 3167}#)
+ #{e\ 12251}#)
+ (let ((#{labels\ 12271}#
+ (#{gen-labels\ 9432}# #{ids\ 12257}#))
+ (#{new-vars\ 12272}#
+ (map #{gen-var\ 9527}# #{ids\ 12257}#)))
+ (let ((#{nw\ 12275}#
+ (#{make-binding-wrap\ 9461}#
+ #{ids\ 12257}#
+ #{labels\ 12271}#
+ #{w\ 12253}#))
+ (#{nr\ 12276}#
+ (#{extend-var-env\ 9404}#
+ #{labels\ 12271}#
+ #{new-vars\ 12272}#
+ #{r\ 12252}#)))
+ (#{constructor\ 12256}#
+ #{s\ 12254}#
+ (map syntax->datum #{ids\ 12257}#)
+ #{new-vars\ 12272}#
+ (map (lambda (#{x\ 12277}#)
+ (#{chi\ 9499}#
+ #{x\ 12277}#
+ #{r\ 12252}#
+ #{w\ 12253}#
+ #{mod\ 12255}#))
+ #{vals\ 12258}#)
+ (#{chi-body\ 9507}#
+ #{exps\ 12259}#
+ (#{source-wrap\ 9485}#
+ #{e\ 12251}#
+ #{nw\ 12275}#
+ #{s\ 12254}#
+ #{mod\ 12255}#)
+ #{nr\ 12276}#
+ #{nw\ 12275}#
+ #{mod\ 12255}#))))))))
+ (lambda (#{e\ 12279}#
+ #{r\ 12280}#
+ #{w\ 12281}#
+ #{s\ 12282}#
+ #{mod\ 12283}#)
+ ((lambda (#{tmp\ 12289}#)
+ ((lambda (#{tmp\ 12290}#)
+ (if (if #{tmp\ 12290}#
+ (apply (lambda (#{_\ 12296}#
+ #{id\ 12297}#
+ #{val\ 12298}#
+ #{e1\ 12299}#
+ #{e2\ 12300}#)
+ (and-map #{id?\ 9414}# #{id\ 12297}#))
+ #{tmp\ 12290}#)
#f)
- (apply (lambda (#{_\ 3184}#
- #{id\ 3185}#
- #{val\ 3186}#
- #{e1\ 3187}#
- #{e2\ 3188}#)
- (#{chi-let\ 3127}#
- #{e\ 3156}#
- #{r\ 3157}#
- #{w\ 3158}#
- #{s\ 3159}#
- #{mod\ 3160}#
- #{build-let\ 214}#
- #{id\ 3185}#
- #{val\ 3186}#
- (cons #{e1\ 3187}# #{e2\ 3188}#)))
- #{tmp\ 3167}#)
- ((lambda (#{tmp\ 3192}#)
- (if (if #{tmp\ 3192}#
- (apply (lambda (#{_\ 3199}#
- #{f\ 3200}#
- #{id\ 3201}#
- #{val\ 3202}#
- #{e1\ 3203}#
- #{e2\ 3204}#)
- (if (#{id?\ 260}# #{f\ 3200}#)
- (and-map #{id?\ 260}# #{id\ 3201}#)
+ (apply (lambda (#{_\ 12307}#
+ #{id\ 12308}#
+ #{val\ 12309}#
+ #{e1\ 12310}#
+ #{e2\ 12311}#)
+ (#{chi-let\ 12250}#
+ #{e\ 12279}#
+ #{r\ 12280}#
+ #{w\ 12281}#
+ #{s\ 12282}#
+ #{mod\ 12283}#
+ #{build-let\ 9368}#
+ #{id\ 12308}#
+ #{val\ 12309}#
+ (cons #{e1\ 12310}# #{e2\ 12311}#)))
+ #{tmp\ 12290}#)
+ ((lambda (#{tmp\ 12315}#)
+ (if (if #{tmp\ 12315}#
+ (apply (lambda (#{_\ 12322}#
+ #{f\ 12323}#
+ #{id\ 12324}#
+ #{val\ 12325}#
+ #{e1\ 12326}#
+ #{e2\ 12327}#)
+ (if (#{id?\ 9414}# #{f\ 12323}#)
+ (and-map #{id?\ 9414}# #{id\ 12324}#)
#f))
- #{tmp\ 3192}#)
+ #{tmp\ 12315}#)
#f)
- (apply (lambda (#{_\ 3214}#
- #{f\ 3215}#
- #{id\ 3216}#
- #{val\ 3217}#
- #{e1\ 3218}#
- #{e2\ 3219}#)
- (#{chi-let\ 3127}#
- #{e\ 3156}#
- #{r\ 3157}#
- #{w\ 3158}#
- #{s\ 3159}#
- #{mod\ 3160}#
- #{build-named-let\ 216}#
- (cons #{f\ 3215}# #{id\ 3216}#)
- #{val\ 3217}#
- (cons #{e1\ 3218}# #{e2\ 3219}#)))
- #{tmp\ 3192}#)
- ((lambda (#{_\ 3224}#)
+ (apply (lambda (#{_\ 12337}#
+ #{f\ 12338}#
+ #{id\ 12339}#
+ #{val\ 12340}#
+ #{e1\ 12341}#
+ #{e2\ 12342}#)
+ (#{chi-let\ 12250}#
+ #{e\ 12279}#
+ #{r\ 12280}#
+ #{w\ 12281}#
+ #{s\ 12282}#
+ #{mod\ 12283}#
+ #{build-named-let\ 9370}#
+ (cons #{f\ 12338}# #{id\ 12339}#)
+ #{val\ 12340}#
+ (cons #{e1\ 12341}# #{e2\ 12342}#)))
+ #{tmp\ 12315}#)
+ ((lambda (#{_\ 12347}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 331}#
- #{e\ 3156}#
- #{w\ 3158}#
- #{s\ 3159}#
- #{mod\ 3160}#)))
- #{tmp\ 3166}#)))
+ (#{source-wrap\ 9485}#
+ #{e\ 12279}#
+ #{w\ 12281}#
+ #{s\ 12282}#
+ #{mod\ 12283}#)))
+ #{tmp\ 12289}#)))
($sc-dispatch
- #{tmp\ 3166}#
+ #{tmp\ 12289}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3166}#
+ #{tmp\ 12289}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3156}#))))
- (#{global-extend\ 256}#
+ #{e\ 12279}#))))
+ (#{global-extend\ 9410}#
'core
'letrec
- (lambda (#{e\ 3225}#
- #{r\ 3226}#
- #{w\ 3227}#
- #{s\ 3228}#
- #{mod\ 3229}#)
- ((lambda (#{tmp\ 3235}#)
- ((lambda (#{tmp\ 3236}#)
- (if (if #{tmp\ 3236}#
- (apply (lambda (#{_\ 3242}#
- #{id\ 3243}#
- #{val\ 3244}#
- #{e1\ 3245}#
- #{e2\ 3246}#)
- (and-map #{id?\ 260}# #{id\ 3243}#))
- #{tmp\ 3236}#)
+ (lambda (#{e\ 12348}#
+ #{r\ 12349}#
+ #{w\ 12350}#
+ #{s\ 12351}#
+ #{mod\ 12352}#)
+ ((lambda (#{tmp\ 12358}#)
+ ((lambda (#{tmp\ 12359}#)
+ (if (if #{tmp\ 12359}#
+ (apply (lambda (#{_\ 12365}#
+ #{id\ 12366}#
+ #{val\ 12367}#
+ #{e1\ 12368}#
+ #{e2\ 12369}#)
+ (and-map #{id?\ 9414}# #{id\ 12366}#))
+ #{tmp\ 12359}#)
#f)
- (apply (lambda (#{_\ 3253}#
- #{id\ 3254}#
- #{val\ 3255}#
- #{e1\ 3256}#
- #{e2\ 3257}#)
- (let ((#{ids\ 3259}# #{id\ 3254}#))
- (if (not (#{valid-bound-ids?\ 323}#
- #{ids\ 3259}#))
+ (apply (lambda (#{_\ 12376}#
+ #{id\ 12377}#
+ #{val\ 12378}#
+ #{e1\ 12379}#
+ #{e2\ 12380}#)
+ (let ((#{ids\ 12382}# #{id\ 12377}#))
+ (if (not (#{valid-bound-ids?\ 9477}#
+ #{ids\ 12382}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3225}#)
- (let ((#{labels\ 3263}#
- (#{gen-labels\ 278}# #{ids\ 3259}#))
- (#{new-vars\ 3264}#
- (map #{gen-var\ 373}# #{ids\ 3259}#)))
- (let ((#{w\ 3267}#
- (#{make-binding-wrap\ 307}#
- #{ids\ 3259}#
- #{labels\ 3263}#
- #{w\ 3227}#))
- (#{r\ 3268}#
- (#{extend-var-env\ 250}#
- #{labels\ 3263}#
- #{new-vars\ 3264}#
- #{r\ 3226}#)))
- (#{build-letrec\ 218}#
- #{s\ 3228}#
- (map syntax->datum #{ids\ 3259}#)
- #{new-vars\ 3264}#
- (map (lambda (#{x\ 3269}#)
- (#{chi\ 345}#
- #{x\ 3269}#
- #{r\ 3268}#
- #{w\ 3267}#
- #{mod\ 3229}#))
- #{val\ 3255}#)
- (#{chi-body\ 353}#
- (cons #{e1\ 3256}# #{e2\ 3257}#)
- (#{source-wrap\ 331}#
- #{e\ 3225}#
- #{w\ 3267}#
- #{s\ 3228}#
- #{mod\ 3229}#)
- #{r\ 3268}#
- #{w\ 3267}#
- #{mod\ 3229}#)))))))
- #{tmp\ 3236}#)
- ((lambda (#{_\ 3274}#)
+ #{e\ 12348}#)
+ (let ((#{labels\ 12386}#
+ (#{gen-labels\ 9432}# #{ids\ 12382}#))
+ (#{new-vars\ 12387}#
+ (map #{gen-var\ 9527}# #{ids\ 12382}#)))
+ (let ((#{w\ 12390}#
+ (#{make-binding-wrap\ 9461}#
+ #{ids\ 12382}#
+ #{labels\ 12386}#
+ #{w\ 12350}#))
+ (#{r\ 12391}#
+ (#{extend-var-env\ 9404}#
+ #{labels\ 12386}#
+ #{new-vars\ 12387}#
+ #{r\ 12349}#)))
+ (#{build-letrec\ 9372}#
+ #{s\ 12351}#
+ (map syntax->datum #{ids\ 12382}#)
+ #{new-vars\ 12387}#
+ (map (lambda (#{x\ 12392}#)
+ (#{chi\ 9499}#
+ #{x\ 12392}#
+ #{r\ 12391}#
+ #{w\ 12390}#
+ #{mod\ 12352}#))
+ #{val\ 12378}#)
+ (#{chi-body\ 9507}#
+ (cons #{e1\ 12379}# #{e2\ 12380}#)
+ (#{source-wrap\ 9485}#
+ #{e\ 12348}#
+ #{w\ 12390}#
+ #{s\ 12351}#
+ #{mod\ 12352}#)
+ #{r\ 12391}#
+ #{w\ 12390}#
+ #{mod\ 12352}#)))))))
+ #{tmp\ 12359}#)
+ ((lambda (#{_\ 12397}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 331}#
- #{e\ 3225}#
- #{w\ 3227}#
- #{s\ 3228}#
- #{mod\ 3229}#)))
- #{tmp\ 3235}#)))
+ (#{source-wrap\ 9485}#
+ #{e\ 12348}#
+ #{w\ 12350}#
+ #{s\ 12351}#
+ #{mod\ 12352}#)))
+ #{tmp\ 12358}#)))
($sc-dispatch
- #{tmp\ 3235}#
+ #{tmp\ 12358}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3225}#)))
- (#{global-extend\ 256}#
+ #{e\ 12348}#)))
+ (#{global-extend\ 9410}#
'core
'set!
- (lambda (#{e\ 3275}#
- #{r\ 3276}#
- #{w\ 3277}#
- #{s\ 3278}#
- #{mod\ 3279}#)
- ((lambda (#{tmp\ 3285}#)
- ((lambda (#{tmp\ 3286}#)
- (if (if #{tmp\ 3286}#
- (apply (lambda (#{_\ 3290}# #{id\ 3291}# #{val\ 3292}#)
- (#{id?\ 260}# #{id\ 3291}#))
- #{tmp\ 3286}#)
+ (lambda (#{e\ 12398}#
+ #{r\ 12399}#
+ #{w\ 12400}#
+ #{s\ 12401}#
+ #{mod\ 12402}#)
+ ((lambda (#{tmp\ 12408}#)
+ ((lambda (#{tmp\ 12409}#)
+ (if (if #{tmp\ 12409}#
+ (apply (lambda (#{_\ 12413}#
+ #{id\ 12414}#
+ #{val\ 12415}#)
+ (#{id?\ 9414}# #{id\ 12414}#))
+ #{tmp\ 12409}#)
#f)
- (apply (lambda (#{_\ 3296}# #{id\ 3297}# #{val\ 3298}#)
- (let ((#{val\ 3301}#
- (#{chi\ 345}#
- #{val\ 3298}#
- #{r\ 3276}#
- #{w\ 3277}#
- #{mod\ 3279}#))
- (#{n\ 3302}#
- (#{id-var-name\ 317}#
- #{id\ 3297}#
- #{w\ 3277}#)))
- (let ((#{b\ 3304}#
- (#{lookup\ 254}#
- #{n\ 3302}#
- #{r\ 3276}#
- #{mod\ 3279}#)))
- (let ((#{atom-key\ 3307}#
- (#{binding-type\ 243}# #{b\ 3304}#)))
- (if (memv #{atom-key\ 3307}#
+ (apply (lambda (#{_\ 12419}# #{id\ 12420}# #{val\ 12421}#)
+ (let ((#{val\ 12424}#
+ (#{chi\ 9499}#
+ #{val\ 12421}#
+ #{r\ 12399}#
+ #{w\ 12400}#
+ #{mod\ 12402}#))
+ (#{n\ 12425}#
+ (#{id-var-name\ 9471}#
+ #{id\ 12420}#
+ #{w\ 12400}#)))
+ (let ((#{b\ 12427}#
+ (#{lookup\ 9408}#
+ #{n\ 12425}#
+ #{r\ 12399}#
+ #{mod\ 12402}#)))
+ (let ((#{atom-key\ 12430}#
+ (#{binding-type\ 9397}# #{b\ 12427}#)))
+ (if (memv #{atom-key\ 12430}#
'(lexical))
- (#{build-lexical-assignment\ 190}#
- #{s\ 3278}#
- (syntax->datum #{id\ 3297}#)
- (#{binding-value\ 245}# #{b\ 3304}#)
- #{val\ 3301}#)
- (if (memv #{atom-key\ 3307}#
+ (#{build-lexical-assignment\ 9344}#
+ #{s\ 12401}#
+ (syntax->datum #{id\ 12420}#)
+ (#{binding-value\ 9399}# #{b\ 12427}#)
+ #{val\ 12424}#)
+ (if (memv #{atom-key\ 12430}#
'(global))
- (#{build-global-assignment\ 196}#
- #{s\ 3278}#
- #{n\ 3302}#
- #{val\ 3301}#
- #{mod\ 3279}#)
- (if (memv #{atom-key\ 3307}#
+ (#{build-global-assignment\ 9350}#
+ #{s\ 12401}#
+ #{n\ 12425}#
+ #{val\ 12424}#
+ #{mod\ 12402}#)
+ (if (memv #{atom-key\ 12430}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 329}#
- #{id\ 3297}#
- #{w\ 3277}#
- #{mod\ 3279}#))
+ (#{wrap\ 9483}#
+ #{id\ 12420}#
+ #{w\ 12400}#
+ #{mod\ 12402}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 331}#
- #{e\ 3275}#
- #{w\ 3277}#
- #{s\ 3278}#
- #{mod\ 3279}#)))))))))
- #{tmp\ 3286}#)
- ((lambda (#{tmp\ 3312}#)
- (if #{tmp\ 3312}#
- (apply (lambda (#{_\ 3317}#
- #{head\ 3318}#
- #{tail\ 3319}#
- #{val\ 3320}#)
+ (#{source-wrap\ 9485}#
+ #{e\ 12398}#
+ #{w\ 12400}#
+ #{s\ 12401}#
+ #{mod\ 12402}#)))))))))
+ #{tmp\ 12409}#)
+ ((lambda (#{tmp\ 12435}#)
+ (if #{tmp\ 12435}#
+ (apply (lambda (#{_\ 12440}#
+ #{head\ 12441}#
+ #{tail\ 12442}#
+ #{val\ 12443}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 341}#
- #{head\ 3318}#
- #{r\ 3276}#
+ (#{syntax-type\ 9495}#
+ #{head\ 12441}#
+ #{r\ 12399}#
'(())
#f
#f
- #{mod\ 3279}#
+ #{mod\ 12402}#
#t))
- (lambda (#{type\ 3323}#
- #{value\ 3324}#
- #{ee\ 3325}#
- #{ww\ 3326}#
- #{ss\ 3327}#
- #{modmod\ 3328}#)
- (if (memv #{type\ 3323}#
+ (lambda (#{type\ 12446}#
+ #{value\ 12447}#
+ #{ee\ 12448}#
+ #{ww\ 12449}#
+ #{ss\ 12450}#
+ #{modmod\ 12451}#)
+ (if (memv #{type\ 12446}#
'(module-ref))
- (let ((#{val\ 3337}#
- (#{chi\ 345}#
- #{val\ 3320}#
- #{r\ 3276}#
- #{w\ 3277}#
- #{mod\ 3279}#)))
+ (let ((#{val\ 12460}#
+ (#{chi\ 9499}#
+ #{val\ 12443}#
+ #{r\ 12399}#
+ #{w\ 12400}#
+ #{mod\ 12402}#)))
(call-with-values
(lambda ()
- (#{value\ 3324}#
- (cons #{head\ 3318}#
- #{tail\ 3319}#)))
- (lambda (#{id\ 3339}# #{mod\ 3340}#)
- (#{build-global-assignment\ 196}#
- #{s\ 3278}#
- #{id\ 3339}#
- #{val\ 3337}#
- #{mod\ 3340}#))))
- (#{build-application\ 184}#
- #{s\ 3278}#
- (#{chi\ 345}#
+ (#{value\ 12447}#
+ (cons #{head\ 12441}#
+ #{tail\ 12442}#)))
+ (lambda (#{id\ 12462}#
+ #{mod\ 12463}#)
+ (#{build-global-assignment\ 9350}#
+ #{s\ 12401}#
+ #{id\ 12462}#
+ #{val\ 12460}#
+ #{mod\ 12463}#))))
+ (#{build-application\ 9338}#
+ #{s\ 12401}#
+ (#{chi\ 9499}#
(list '#(syntax-object
setter
((top)
@@ -8948,22 +8975,22 @@
(top)
(top)
(top))
- #("i3329"
- "i3330"
- "i3331"
- "i3332"
- "i3333"
- "i3334"))
+ #("i12452"
+ "i12453"
+ "i12454"
+ "i12455"
+ "i12456"
+ "i12457"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i3313"
- "i3314"
- "i3315"
- "i3316"))
+ #("i12436"
+ "i12437"
+ "i12438"
+ "i12439"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -8972,11 +8999,11 @@
(top)
(top)
(top))
- #("i3280"
- "i3281"
- "i3282"
- "i3283"
- "i3284"))
+ #("i12403"
+ "i12404"
+ "i12405"
+ "i12406"
+ "i12407"))
#(ribcage
(lambda-var-list
gen-var
@@ -9212,176 +9239,178 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
- "i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+ "i9312"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i61" "i59")))
+ ("i9215" "i9213")))
(hygiene guile))
- #{head\ 3318}#)
- #{r\ 3276}#
- #{w\ 3277}#
- #{mod\ 3279}#)
- (map (lambda (#{e\ 3344}#)
- (#{chi\ 345}#
- #{e\ 3344}#
- #{r\ 3276}#
- #{w\ 3277}#
- #{mod\ 3279}#))
+ #{head\ 12441}#)
+ #{r\ 12399}#
+ #{w\ 12400}#
+ #{mod\ 12402}#)
+ (map (lambda (#{e\ 12467}#)
+ (#{chi\ 9499}#
+ #{e\ 12467}#
+ #{r\ 12399}#
+ #{w\ 12400}#
+ #{mod\ 12402}#))
(append
- #{tail\ 3319}#
- (list #{val\ 3320}#))))))))
- #{tmp\ 3312}#)
- ((lambda (#{_\ 3348}#)
+ #{tail\ 12442}#
+ (list #{val\ 12443}#))))))))
+ #{tmp\ 12435}#)
+ ((lambda (#{_\ 12471}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 331}#
- #{e\ 3275}#
- #{w\ 3277}#
- #{s\ 3278}#
- #{mod\ 3279}#)))
- #{tmp\ 3285}#)))
+ (#{source-wrap\ 9485}#
+ #{e\ 12398}#
+ #{w\ 12400}#
+ #{s\ 12401}#
+ #{mod\ 12402}#)))
+ #{tmp\ 12408}#)))
($sc-dispatch
- #{tmp\ 3285}#
+ #{tmp\ 12408}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 3285}#
+ #{tmp\ 12408}#
'(any any any))))
- #{e\ 3275}#)))
- (#{global-extend\ 256}#
+ #{e\ 12398}#)))
+ (#{global-extend\ 9410}#
'module-ref
'@
- (lambda (#{e\ 3349}#)
- ((lambda (#{tmp\ 3351}#)
- ((lambda (#{tmp\ 3352}#)
- (if (if #{tmp\ 3352}#
- (apply (lambda (#{_\ 3356}# #{mod\ 3357}# #{id\ 3358}#)
- (if (and-map #{id?\ 260}# #{mod\ 3357}#)
- (#{id?\ 260}# #{id\ 3358}#)
+ (lambda (#{e\ 12472}#)
+ ((lambda (#{tmp\ 12474}#)
+ ((lambda (#{tmp\ 12475}#)
+ (if (if #{tmp\ 12475}#
+ (apply (lambda (#{_\ 12479}#
+ #{mod\ 12480}#
+ #{id\ 12481}#)
+ (if (and-map #{id?\ 9414}# #{mod\ 12480}#)
+ (#{id?\ 9414}# #{id\ 12481}#)
#f))
- #{tmp\ 3352}#)
+ #{tmp\ 12475}#)
#f)
- (apply (lambda (#{_\ 3365}# #{mod\ 3366}# #{id\ 3367}#)
+ (apply (lambda (#{_\ 12488}# #{mod\ 12489}# #{id\ 12490}#)
(values
- (syntax->datum #{id\ 3367}#)
+ (syntax->datum #{id\ 12490}#)
(syntax->datum
(cons '#(syntax-object
public
@@ -9389,9 +9418,9 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3362" "i3363" "i3364"))
+ #("i12485" "i12486" "i12487"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i3350"))
+ #(ribcage #(e) #((top)) #("i12473"))
#(ribcage
(lambda-var-list
gen-var
@@ -9627,154 +9656,156 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
- "i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+ "i9312"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i61" "i59")))
+ ("i9215" "i9213")))
(hygiene guile))
- #{mod\ 3366}#))))
- #{tmp\ 3352}#)
+ #{mod\ 12489}#))))
+ #{tmp\ 12475}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3351}#)))
+ #{tmp\ 12474}#)))
($sc-dispatch
- #{tmp\ 3351}#
+ #{tmp\ 12474}#
'(any each-any any))))
- #{e\ 3349}#)))
- (#{global-extend\ 256}#
+ #{e\ 12472}#)))
+ (#{global-extend\ 9410}#
'module-ref
'@@
- (lambda (#{e\ 3369}#)
- ((lambda (#{tmp\ 3371}#)
- ((lambda (#{tmp\ 3372}#)
- (if (if #{tmp\ 3372}#
- (apply (lambda (#{_\ 3376}# #{mod\ 3377}# #{id\ 3378}#)
- (if (and-map #{id?\ 260}# #{mod\ 3377}#)
- (#{id?\ 260}# #{id\ 3378}#)
+ (lambda (#{e\ 12492}#)
+ ((lambda (#{tmp\ 12494}#)
+ ((lambda (#{tmp\ 12495}#)
+ (if (if #{tmp\ 12495}#
+ (apply (lambda (#{_\ 12499}#
+ #{mod\ 12500}#
+ #{id\ 12501}#)
+ (if (and-map #{id?\ 9414}# #{mod\ 12500}#)
+ (#{id?\ 9414}# #{id\ 12501}#)
#f))
- #{tmp\ 3372}#)
+ #{tmp\ 12495}#)
#f)
- (apply (lambda (#{_\ 3385}# #{mod\ 3386}# #{id\ 3387}#)
+ (apply (lambda (#{_\ 12508}# #{mod\ 12509}# #{id\ 12510}#)
(values
- (syntax->datum #{id\ 3387}#)
+ (syntax->datum #{id\ 12510}#)
(syntax->datum
(cons '#(syntax-object
private
@@ -9782,9 +9813,9 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3382" "i3383" "i3384"))
+ #("i12505" "i12506" "i12507"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i3370"))
+ #(ribcage #(e) #((top)) #("i12493"))
#(ribcage
(lambda-var-list
gen-var
@@ -10020,252 +10051,253 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
- "i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+ "i9312"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i61" "i59")))
+ ("i9215" "i9213")))
(hygiene guile))
- #{mod\ 3386}#))))
- #{tmp\ 3372}#)
+ #{mod\ 12509}#))))
+ #{tmp\ 12495}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3371}#)))
+ #{tmp\ 12494}#)))
($sc-dispatch
- #{tmp\ 3371}#
+ #{tmp\ 12494}#
'(any each-any any))))
- #{e\ 3369}#)))
- (#{global-extend\ 256}#
+ #{e\ 12492}#)))
+ (#{global-extend\ 9410}#
'core
'if
- (lambda (#{e\ 3389}#
- #{r\ 3390}#
- #{w\ 3391}#
- #{s\ 3392}#
- #{mod\ 3393}#)
- ((lambda (#{tmp\ 3399}#)
- ((lambda (#{tmp\ 3400}#)
- (if #{tmp\ 3400}#
- (apply (lambda (#{_\ 3404}# #{test\ 3405}# #{then\ 3406}#)
- (#{build-conditional\ 186}#
- #{s\ 3392}#
- (#{chi\ 345}#
- #{test\ 3405}#
- #{r\ 3390}#
- #{w\ 3391}#
- #{mod\ 3393}#)
- (#{chi\ 345}#
- #{then\ 3406}#
- #{r\ 3390}#
- #{w\ 3391}#
- #{mod\ 3393}#)
- (#{build-void\ 182}# #f)))
- #{tmp\ 3400}#)
- ((lambda (#{tmp\ 3408}#)
- (if #{tmp\ 3408}#
- (apply (lambda (#{_\ 3413}#
- #{test\ 3414}#
- #{then\ 3415}#
- #{else\ 3416}#)
- (#{build-conditional\ 186}#
- #{s\ 3392}#
- (#{chi\ 345}#
- #{test\ 3414}#
- #{r\ 3390}#
- #{w\ 3391}#
- #{mod\ 3393}#)
- (#{chi\ 345}#
- #{then\ 3415}#
- #{r\ 3390}#
- #{w\ 3391}#
- #{mod\ 3393}#)
- (#{chi\ 345}#
- #{else\ 3416}#
- #{r\ 3390}#
- #{w\ 3391}#
- #{mod\ 3393}#)))
- #{tmp\ 3408}#)
+ (lambda (#{e\ 12512}#
+ #{r\ 12513}#
+ #{w\ 12514}#
+ #{s\ 12515}#
+ #{mod\ 12516}#)
+ ((lambda (#{tmp\ 12522}#)
+ ((lambda (#{tmp\ 12523}#)
+ (if #{tmp\ 12523}#
+ (apply (lambda (#{_\ 12527}# #{test\ 12528}# #{then\ 12529}#)
+ (#{build-conditional\ 9340}#
+ #{s\ 12515}#
+ (#{chi\ 9499}#
+ #{test\ 12528}#
+ #{r\ 12513}#
+ #{w\ 12514}#
+ #{mod\ 12516}#)
+ (#{chi\ 9499}#
+ #{then\ 12529}#
+ #{r\ 12513}#
+ #{w\ 12514}#
+ #{mod\ 12516}#)
+ (#{build-void\ 9336}# #f)))
+ #{tmp\ 12523}#)
+ ((lambda (#{tmp\ 12531}#)
+ (if #{tmp\ 12531}#
+ (apply (lambda (#{_\ 12536}#
+ #{test\ 12537}#
+ #{then\ 12538}#
+ #{else\ 12539}#)
+ (#{build-conditional\ 9340}#
+ #{s\ 12515}#
+ (#{chi\ 9499}#
+ #{test\ 12537}#
+ #{r\ 12513}#
+ #{w\ 12514}#
+ #{mod\ 12516}#)
+ (#{chi\ 9499}#
+ #{then\ 12538}#
+ #{r\ 12513}#
+ #{w\ 12514}#
+ #{mod\ 12516}#)
+ (#{chi\ 9499}#
+ #{else\ 12539}#
+ #{r\ 12513}#
+ #{w\ 12514}#
+ #{mod\ 12516}#)))
+ #{tmp\ 12531}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3399}#)))
+ #{tmp\ 12522}#)))
($sc-dispatch
- #{tmp\ 3399}#
+ #{tmp\ 12522}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 3399}#
+ #{tmp\ 12522}#
'(any any any))))
- #{e\ 3389}#)))
- (#{global-extend\ 256}#
+ #{e\ 12512}#)))
+ (#{global-extend\ 9410}#
'begin
'begin
'())
- (#{global-extend\ 256}#
+ (#{global-extend\ 9410}#
'define
'define
'())
- (#{global-extend\ 256}#
+ (#{global-extend\ 9410}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 256}#
+ (#{global-extend\ 9410}#
'eval-when
'eval-when
'())
- (#{global-extend\ 256}#
+ (#{global-extend\ 9410}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 3424}#
- (lambda (#{x\ 3425}#
- #{keys\ 3426}#
- #{clauses\ 3427}#
- #{r\ 3428}#
- #{mod\ 3429}#)
- (if (null? #{clauses\ 3427}#)
- (#{build-application\ 184}#
+ (letrec ((#{gen-syntax-case\ 12547}#
+ (lambda (#{x\ 12548}#
+ #{keys\ 12549}#
+ #{clauses\ 12550}#
+ #{r\ 12551}#
+ #{mod\ 12552}#)
+ (if (null? #{clauses\ 12550}#)
+ (#{build-application\ 9338}#
#f
- (#{build-primref\ 208}#
+ (#{build-primref\ 9362}#
#f
'syntax-violation)
- (list (#{build-data\ 210}# #f #f)
- (#{build-data\ 210}#
+ (list (#{build-data\ 9364}# #f #f)
+ (#{build-data\ 9364}#
#f
"source expression failed to match any
pattern")
- #{x\ 3425}#))
- ((lambda (#{tmp\ 3439}#)
- ((lambda (#{tmp\ 3440}#)
- (if #{tmp\ 3440}#
- (apply (lambda (#{pat\ 3443}# #{exp\ 3444}#)
- (if (if (#{id?\ 260}# #{pat\ 3443}#)
+ #{x\ 12548}#))
+ ((lambda (#{tmp\ 12562}#)
+ ((lambda (#{tmp\ 12563}#)
+ (if #{tmp\ 12563}#
+ (apply (lambda (#{pat\ 12566}# #{exp\ 12567}#)
+ (if (if (#{id?\ 9414}# #{pat\ 12566}#)
(and-map
- (lambda (#{x\ 3447}#)
- (not (#{free-id=?\ 319}#
- #{pat\ 3443}#
- #{x\ 3447}#)))
+ (lambda (#{x\ 12570}#)
+ (not (#{free-id=?\ 9473}#
+ #{pat\ 12566}#
+ #{x\ 12570}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3441" "i3442"))
+ #("i12564"
+ "i12565"))
#(ribcage () () ())
#(ribcage
#(x
@@ -10278,11 +10310,11 @@
(top)
(top)
(top))
- #("i3430"
- "i3431"
- "i3432"
- "i3433"
- "i3434"))
+ #("i12553"
+ "i12554"
+ "i12555"
+ "i12556"
+ "i12557"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -10292,10 +10324,10 @@
(top)
(top)
(top))
- ("i3423"
- "i3421"
- "i3419"
- "i3417"))
+ ("i12546"
+ "i12544"
+ "i12542"
+ "i12540"))
#(ribcage
(lambda-var-list
gen-var
@@ -10531,1077 +10563,1082 @@
(top)
(top)
(top))
- ("i374"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i303"
- "i302"
- "i300"
- "i299"
- "i298"
- "i297"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i277"
- "i275"
- "i274"
- "i273"
- "i272"
- "i271"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i246"
- "i244"
- "i242"
- "i241"
- "i240"
- "i238"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i174"
- "i172"
- "i170"
- "i168"
- "i166"
- "i164"
- "i162"
- "i160"
- "i158"))
+ ("i9528"
+ "i9526"
+ "i9524"
+ "i9522"
+ "i9520"
+ "i9518"
+ "i9516"
+ "i9514"
+ "i9512"
+ "i9510"
+ "i9508"
+ "i9506"
+ "i9504"
+ "i9502"
+ "i9500"
+ "i9498"
+ "i9496"
+ "i9494"
+ "i9492"
+ "i9490"
+ "i9488"
+ "i9486"
+ "i9484"
+ "i9482"
+ "i9480"
+ "i9478"
+ "i9476"
+ "i9474"
+ "i9472"
+ "i9470"
+ "i9468"
+ "i9466"
+ "i9464"
+ "i9462"
+ "i9460"
+ "i9458"
+ "i9457"
+ "i9456"
+ "i9454"
+ "i9453"
+ "i9452"
+ "i9451"
+ "i9450"
+ "i9448"
+ "i9446"
+ "i9444"
+ "i9442"
+ "i9440"
+ "i9438"
+ "i9436"
+ "i9434"
+ "i9431"
+ "i9429"
+ "i9428"
+ "i9427"
+ "i9426"
+ "i9425"
+ "i9424"
+ "i9422"
+ "i9420"
+ "i9418"
+ "i9416"
+ "i9415"
+ "i9413"
+ "i9411"
+ "i9409"
+ "i9407"
+ "i9405"
+ "i9403"
+ "i9401"
+ "i9400"
+ "i9398"
+ "i9396"
+ "i9395"
+ "i9394"
+ "i9392"
+ "i9391"
+ "i9389"
+ "i9387"
+ "i9385"
+ "i9383"
+ "i9381"
+ "i9379"
+ "i9377"
+ "i9375"
+ "i9373"
+ "i9371"
+ "i9369"
+ "i9367"
+ "i9365"
+ "i9363"
+ "i9361"
+ "i9359"
+ "i9357"
+ "i9355"
+ "i9353"
+ "i9351"
+ "i9349"
+ "i9347"
+ "i9345"
+ "i9343"
+ "i9341"
+ "i9339"
+ "i9337"
+ "i9335"
+ "i9333"
+ "i9331"
+ "i9329"
+ "i9328"
+ "i9326"
+ "i9324"
+ "i9322"
+ "i9320"
+ "i9318"
+ "i9316"
+ "i9314"
+ "i9312"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i61" "i59")))
+ ("i9215" "i9213")))
(hygiene guile))
- #{keys\ 3426}#))
+ #{keys\ 12549}#))
#f)
- (let ((#{labels\ 3451}#
- (list (#{gen-label\ 276}#)))
- (#{var\ 3452}#
- (#{gen-var\ 373}#
- #{pat\ 3443}#)))
- (#{build-application\ 184}#
+ (let ((#{labels\ 12574}#
+ (list (#{gen-label\ 9430}#)))
+ (#{var\ 12575}#
+ (#{gen-var\ 9527}#
+ #{pat\ 12566}#)))
+ (#{build-application\ 9338}#
#f
- (#{build-simple-lambda\ 202}#
+ (#{build-simple-lambda\ 9356}#
#f
(list (syntax->datum
- #{pat\ 3443}#))
+ #{pat\ 12566}#))
#f
- (list #{var\ 3452}#)
+ (list #{var\ 12575}#)
#f
- (#{chi\ 345}#
- #{exp\ 3444}#
- (#{extend-env\ 248}#
- #{labels\ 3451}#
+ (#{chi\ 9499}#
+ #{exp\ 12567}#
+ (#{extend-env\ 9402}#
+ #{labels\ 12574}#
(list (cons 'syntax
- (cons #{var\
3452}#
+ (cons #{var\
12575}#
0)))
- #{r\ 3428}#)
- (#{make-binding-wrap\ 307}#
- (list #{pat\ 3443}#)
- #{labels\ 3451}#
+ #{r\ 12551}#)
+ (#{make-binding-wrap\ 9461}#
+ (list #{pat\ 12566}#)
+ #{labels\ 12574}#
'(()))
- #{mod\ 3429}#))
- (list #{x\ 3425}#)))
- (#{gen-clause\ 3422}#
- #{x\ 3425}#
- #{keys\ 3426}#
- (cdr #{clauses\ 3427}#)
- #{r\ 3428}#
- #{pat\ 3443}#
+ #{mod\ 12552}#))
+ (list #{x\ 12548}#)))
+ (#{gen-clause\ 12545}#
+ #{x\ 12548}#
+ #{keys\ 12549}#
+ (cdr #{clauses\ 12550}#)
+ #{r\ 12551}#
+ #{pat\ 12566}#
#t
- #{exp\ 3444}#
- #{mod\ 3429}#)))
- #{tmp\ 3440}#)
- ((lambda (#{tmp\ 3458}#)
- (if #{tmp\ 3458}#
- (apply (lambda (#{pat\ 3462}#
- #{fender\ 3463}#
- #{exp\ 3464}#)
- (#{gen-clause\ 3422}#
- #{x\ 3425}#
- #{keys\ 3426}#
- (cdr #{clauses\ 3427}#)
- #{r\ 3428}#
- #{pat\ 3462}#
- #{fender\ 3463}#
- #{exp\ 3464}#
- #{mod\ 3429}#))
- #{tmp\ 3458}#)
- ((lambda (#{_\ 3466}#)
+ #{exp\ 12567}#
+ #{mod\ 12552}#)))
+ #{tmp\ 12563}#)
+ ((lambda (#{tmp\ 12581}#)
+ (if #{tmp\ 12581}#
+ (apply (lambda (#{pat\ 12585}#
+ #{fender\ 12586}#
+ #{exp\ 12587}#)
+ (#{gen-clause\ 12545}#
+ #{x\ 12548}#
+ #{keys\ 12549}#
+ (cdr #{clauses\ 12550}#)
+ #{r\ 12551}#
+ #{pat\ 12585}#
+ #{fender\ 12586}#
+ #{exp\ 12587}#
+ #{mod\ 12552}#))
+ #{tmp\ 12581}#)
+ ((lambda (#{_\ 12589}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3427}#)))
- #{tmp\ 3439}#)))
+ (car #{clauses\ 12550}#)))
+ #{tmp\ 12562}#)))
($sc-dispatch
- #{tmp\ 3439}#
+ #{tmp\ 12562}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 3439}# (quote (any any)))))
- (car #{clauses\ 3427}#)))))
- (#{gen-clause\ 3422}#
- (lambda (#{x\ 3467}#
- #{keys\ 3468}#
- #{clauses\ 3469}#
- #{r\ 3470}#
- #{pat\ 3471}#
- #{fender\ 3472}#
- #{exp\ 3473}#
- #{mod\ 3474}#)
+ ($sc-dispatch #{tmp\ 12562}# (quote (any any)))))
+ (car #{clauses\ 12550}#)))))
+ (#{gen-clause\ 12545}#
+ (lambda (#{x\ 12590}#
+ #{keys\ 12591}#
+ #{clauses\ 12592}#
+ #{r\ 12593}#
+ #{pat\ 12594}#
+ #{fender\ 12595}#
+ #{exp\ 12596}#
+ #{mod\ 12597}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3418}#
- #{pat\ 3471}#
- #{keys\ 3468}#))
- (lambda (#{p\ 3483}# #{pvars\ 3484}#)
- (if (not (#{distinct-bound-ids?\ 325}#
- (map car #{pvars\ 3484}#)))
+ (#{convert-pattern\ 12541}#
+ #{pat\ 12594}#
+ #{keys\ 12591}#))
+ (lambda (#{p\ 12606}# #{pvars\ 12607}#)
+ (if (not (#{distinct-bound-ids?\ 9479}#
+ (map car #{pvars\ 12607}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3471}#)
+ #{pat\ 12594}#)
(if (not (and-map
- (lambda (#{x\ 3491}#)
- (not (#{ellipsis?\ 361}#
- (car #{x\ 3491}#))))
- #{pvars\ 3484}#))
+ (lambda (#{x\ 12614}#)
+ (not (#{ellipsis?\ 9515}#
+ (car #{x\ 12614}#))))
+ #{pvars\ 12607}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3471}#)
- (let ((#{y\ 3495}#
- (#{gen-var\ 373}# (quote tmp))))
- (#{build-application\ 184}#
+ #{pat\ 12594}#)
+ (let ((#{y\ 12618}#
+ (#{gen-var\ 9527}# (quote tmp))))
+ (#{build-application\ 9338}#
#f
- (#{build-simple-lambda\ 202}#
+ (#{build-simple-lambda\ 9356}#
#f
(list (quote tmp))
#f
- (list #{y\ 3495}#)
+ (list #{y\ 12618}#)
#f
- (let ((#{y\ 3499}#
- (#{build-lexical-reference\ 188}#
+ (let ((#{y\ 12622}#
+ (#{build-lexical-reference\ 9342}#
'value
#f
'tmp
- #{y\ 3495}#)))
- (#{build-conditional\ 186}#
+ #{y\ 12618}#)))
+ (#{build-conditional\ 9340}#
#f
- ((lambda (#{tmp\ 3502}#)
- ((lambda (#{tmp\ 3503}#)
- (if #{tmp\ 3503}#
- (apply (lambda () #{y\ 3499}#)
- #{tmp\ 3503}#)
- ((lambda (#{_\ 3505}#)
- (#{build-conditional\ 186}#
+ ((lambda (#{tmp\ 12625}#)
+ ((lambda (#{tmp\ 12626}#)
+ (if #{tmp\ 12626}#
+ (apply (lambda () #{y\ 12622}#)
+ #{tmp\ 12626}#)
+ ((lambda (#{_\ 12628}#)
+ (#{build-conditional\ 9340}#
#f
- #{y\ 3499}#
- (#{build-dispatch-call\
3420}#
- #{pvars\ 3484}#
- #{fender\ 3472}#
- #{y\ 3499}#
- #{r\ 3470}#
- #{mod\ 3474}#)
- (#{build-data\ 210}#
+ #{y\ 12622}#
+ (#{build-dispatch-call\
12543}#
+ #{pvars\ 12607}#
+ #{fender\ 12595}#
+ #{y\ 12622}#
+ #{r\ 12593}#
+ #{mod\ 12597}#)
+ (#{build-data\ 9364}#
#f
#f)))
- #{tmp\ 3502}#)))
+ #{tmp\ 12625}#)))
($sc-dispatch
- #{tmp\ 3502}#
+ #{tmp\ 12625}#
'#(atom #t))))
- #{fender\ 3472}#)
- (#{build-dispatch-call\ 3420}#
- #{pvars\ 3484}#
- #{exp\ 3473}#
- #{y\ 3499}#
- #{r\ 3470}#
- #{mod\ 3474}#)
- (#{gen-syntax-case\ 3424}#
- #{x\ 3467}#
- #{keys\ 3468}#
- #{clauses\ 3469}#
- #{r\ 3470}#
- #{mod\ 3474}#))))
- (list (if (eq? #{p\ 3483}# (quote any))
- (#{build-application\ 184}#
+ #{fender\ 12595}#)
+ (#{build-dispatch-call\ 12543}#
+ #{pvars\ 12607}#
+ #{exp\ 12596}#
+ #{y\ 12622}#
+ #{r\ 12593}#
+ #{mod\ 12597}#)
+ (#{gen-syntax-case\ 12547}#
+ #{x\ 12590}#
+ #{keys\ 12591}#
+ #{clauses\ 12592}#
+ #{r\ 12593}#
+ #{mod\ 12597}#))))
+ (list (if (eq? #{p\ 12606}# (quote any))
+ (#{build-application\ 9338}#
#f
- (#{build-primref\ 208}#
+ (#{build-primref\ 9362}#
#f
'list)
- (list #{x\ 3467}#))
- (#{build-application\ 184}#
+ (list #{x\ 12590}#))
+ (#{build-application\ 9338}#
#f
- (#{build-primref\ 208}#
+ (#{build-primref\ 9362}#
#f
'$sc-dispatch)
- (list #{x\ 3467}#
- (#{build-data\ 210}#
+ (list #{x\ 12590}#
+ (#{build-data\ 9364}#
#f
- #{p\ 3483}#)))))))))))))
- (#{build-dispatch-call\ 3420}#
- (lambda (#{pvars\ 3513}#
- #{exp\ 3514}#
- #{y\ 3515}#
- #{r\ 3516}#
- #{mod\ 3517}#)
- (let ((#{ids\ 3525}# (map car #{pvars\ 3513}#))
- (#{levels\ 3526}# (map cdr #{pvars\ 3513}#)))
- (let ((#{labels\ 3529}#
- (#{gen-labels\ 278}# #{ids\ 3525}#))
- (#{new-vars\ 3530}#
- (map #{gen-var\ 373}# #{ids\ 3525}#)))
- (#{build-application\ 184}#
+ #{p\ 12606}#)))))))))))))
+ (#{build-dispatch-call\ 12543}#
+ (lambda (#{pvars\ 12636}#
+ #{exp\ 12637}#
+ #{y\ 12638}#
+ #{r\ 12639}#
+ #{mod\ 12640}#)
+ (let ((#{ids\ 12648}# (map car #{pvars\ 12636}#))
+ (#{levels\ 12649}# (map cdr #{pvars\ 12636}#)))
+ (let ((#{labels\ 12652}#
+ (#{gen-labels\ 9432}# #{ids\ 12648}#))
+ (#{new-vars\ 12653}#
+ (map #{gen-var\ 9527}# #{ids\ 12648}#)))
+ (#{build-application\ 9338}#
#f
- (#{build-primref\ 208}# #f (quote apply))
- (list (#{build-simple-lambda\ 202}#
+ (#{build-primref\ 9362}# #f (quote apply))
+ (list (#{build-simple-lambda\ 9356}#
#f
- (map syntax->datum #{ids\ 3525}#)
+ (map syntax->datum #{ids\ 12648}#)
#f
- #{new-vars\ 3530}#
+ #{new-vars\ 12653}#
#f
- (#{chi\ 345}#
- #{exp\ 3514}#
- (#{extend-env\ 248}#
- #{labels\ 3529}#
- (map (lambda (#{var\ 3534}#
- #{level\ 3535}#)
+ (#{chi\ 9499}#
+ #{exp\ 12637}#
+ (#{extend-env\ 9402}#
+ #{labels\ 12652}#
+ (map (lambda (#{var\ 12657}#
+ #{level\ 12658}#)
(cons 'syntax
- (cons #{var\ 3534}#
- #{level\ 3535}#)))
- #{new-vars\ 3530}#
- (map cdr #{pvars\ 3513}#))
- #{r\ 3516}#)
- (#{make-binding-wrap\ 307}#
- #{ids\ 3525}#
- #{labels\ 3529}#
+ (cons #{var\ 12657}#
+ #{level\ 12658}#)))
+ #{new-vars\ 12653}#
+ (map cdr #{pvars\ 12636}#))
+ #{r\ 12639}#)
+ (#{make-binding-wrap\ 9461}#
+ #{ids\ 12648}#
+ #{labels\ 12652}#
'(()))
- #{mod\ 3517}#))
- #{y\ 3515}#))))))
- (#{convert-pattern\ 3418}#
- (lambda (#{pattern\ 3541}# #{keys\ 3542}#)
- (letrec ((#{cvt\ 3548}#
- (lambda (#{p\ 3549}# #{n\ 3550}# #{ids\ 3551}#)
- (if (#{id?\ 260}# #{p\ 3549}#)
- (if (#{bound-id-member?\ 327}#
- #{p\ 3549}#
- #{keys\ 3542}#)
+ #{mod\ 12640}#))
+ #{y\ 12638}#))))))
+ (#{convert-pattern\ 12541}#
+ (lambda (#{pattern\ 12664}# #{keys\ 12665}#)
+ (letrec ((#{cvt\ 12671}#
+ (lambda (#{p\ 12672}#
+ #{n\ 12673}#
+ #{ids\ 12674}#)
+ (if (#{id?\ 9414}# #{p\ 12672}#)
+ (if (#{bound-id-member?\ 9481}#
+ #{p\ 12672}#
+ #{keys\ 12665}#)
(values
- (vector (quote free-id) #{p\ 3549}#)
- #{ids\ 3551}#)
+ (vector (quote free-id) #{p\ 12672}#)
+ #{ids\ 12674}#)
(values
'any
- (cons (cons #{p\ 3549}# #{n\ 3550}#)
- #{ids\ 3551}#)))
- ((lambda (#{tmp\ 3555}#)
- ((lambda (#{tmp\ 3556}#)
- (if (if #{tmp\ 3556}#
- (apply (lambda (#{x\ 3559}#
- #{dots\ 3560}#)
- (#{ellipsis?\ 361}#
- #{dots\ 3560}#))
- #{tmp\ 3556}#)
+ (cons (cons #{p\ 12672}# #{n\ 12673}#)
+ #{ids\ 12674}#)))
+ ((lambda (#{tmp\ 12678}#)
+ ((lambda (#{tmp\ 12679}#)
+ (if (if #{tmp\ 12679}#
+ (apply (lambda (#{x\ 12682}#
+ #{dots\
12683}#)
+ (#{ellipsis?\ 9515}#
+ #{dots\ 12683}#))
+ #{tmp\ 12679}#)
#f)
- (apply (lambda (#{x\ 3563}#
- #{dots\ 3564}#)
+ (apply (lambda (#{x\ 12686}#
+ #{dots\ 12687}#)
(call-with-values
(lambda ()
- (#{cvt\ 3548}#
- #{x\ 3563}#
- (#{fx+\ 163}#
- #{n\ 3550}#
+ (#{cvt\ 12671}#
+ #{x\ 12686}#
+ (#{fx+\ 9317}#
+ #{n\ 12673}#
1)
- #{ids\ 3551}#))
- (lambda (#{p\ 3565}#
- #{ids\ 3566}#)
+ #{ids\ 12674}#))
+ (lambda (#{p\ 12688}#
+ #{ids\ 12689}#)
(values
- (if (eq? #{p\ 3565}#
+ (if (eq? #{p\
12688}#
'any)
'each-any
(vector
'each
- #{p\ 3565}#))
- #{ids\ 3566}#))))
- #{tmp\ 3556}#)
- ((lambda (#{tmp\ 3569}#)
- (if (if #{tmp\ 3569}#
- (apply (lambda (#{x\
3573}#
- #{dots\
3574}#
- #{ys\
3575}#)
- (#{ellipsis?\
361}#
- #{dots\
3574}#))
- #{tmp\ 3569}#)
+ #{p\ 12688}#))
+ #{ids\ 12689}#))))
+ #{tmp\ 12679}#)
+ ((lambda (#{tmp\ 12692}#)
+ (if (if #{tmp\ 12692}#
+ (apply (lambda (#{x\
12696}#
+ #{dots\
12697}#
+ #{ys\
12698}#)
+ (#{ellipsis?\
9515}#
+ #{dots\
12697}#))
+ #{tmp\ 12692}#)
#f)
- (apply (lambda (#{x\ 3579}#
- #{dots\ 3580}#
- #{ys\ 3581}#)
+ (apply (lambda (#{x\ 12702}#
+ #{dots\
12703}#
+ #{ys\ 12704}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3546}#
- #{ys\ 3581}#
- #{n\ 3550}#
- #{ids\ 3551}#))
- (lambda (#{ys\
3583}#
- #{ids\
3584}#)
+ (#{cvt*\ 12669}#
+ #{ys\ 12704}#
+ #{n\ 12673}#
+ #{ids\
12674}#))
+ (lambda (#{ys\
12706}#
+ #{ids\
12707}#)
(call-with-values
(lambda ()
- (#{cvt\
3548}#
- #{x\ 3579}#
- (+ #{n\
3550}#
+ (#{cvt\
12671}#
+ #{x\
12702}#
+ (+ #{n\
12673}#
1)
- #{ids\
3584}#))
- (lambda (#{x\
3587}#
-
#{ids\ 3588}#)
+ #{ids\
12707}#))
+ (lambda (#{x\
12710}#
+
#{ids\ 12711}#)
(values
(list->vector
(cons
'each+
-
(cons #{x\ 3587}#
+
(cons #{x\ 12710}#
(cons (reverse
-
#{ys\ 3583}#)
+
#{ys\ 12706}#)
'(())))))
- #{ids\
3588}#))))))
- #{tmp\ 3569}#)
- ((lambda (#{tmp\ 3592}#)
- (if #{tmp\ 3592}#
- (apply (lambda (#{x\
3595}#
- #{y\
3596}#)
+ #{ids\
12711}#))))))
+ #{tmp\ 12692}#)
+ ((lambda (#{tmp\ 12715}#)
+ (if #{tmp\ 12715}#
+ (apply (lambda (#{x\
12718}#
+ #{y\
12719}#)
(call-with-values
(lambda ()
- (#{cvt\
3548}#
- #{y\
3596}#
- #{n\
3550}#
- #{ids\
3551}#))
- (lambda (#{y\
3597}#
-
#{ids\ 3598}#)
+ (#{cvt\
12671}#
+ #{y\
12719}#
+ #{n\
12673}#
+ #{ids\
12674}#))
+ (lambda (#{y\
12720}#
+
#{ids\ 12721}#)
(call-with-values
(lambda ()
- (#{cvt\
3548}#
- #{x\
3595}#
- #{n\
3550}#
-
#{ids\ 3598}#))
- (lambda
(#{x\ 3601}#
-
#{ids\ 3602}#)
+ (#{cvt\
12671}#
+ #{x\
12718}#
+ #{n\
12673}#
+
#{ids\ 12721}#))
+ (lambda
(#{x\ 12724}#
+
#{ids\ 12725}#)
(values
- (cons
#{x\ 3601}#
-
#{y\ 3597}#)
-
#{ids\ 3602}#))))))
- #{tmp\ 3592}#)
- ((lambda (#{tmp\ 3605}#)
- (if #{tmp\ 3605}#
+ (cons
#{x\ 12724}#
+
#{y\ 12720}#)
+
#{ids\ 12725}#))))))
+ #{tmp\ 12715}#)
+ ((lambda (#{tmp\ 12728}#)
+ (if #{tmp\ 12728}#
(apply (lambda ()
(values
'()
- #{ids\
3551}#))
- #{tmp\
3605}#)
- ((lambda (#{tmp\
3606}#)
- (if #{tmp\ 3606}#
- (apply (lambda
(#{x\ 3608}#)
+ #{ids\
12674}#))
+ #{tmp\
12728}#)
+ ((lambda (#{tmp\
12729}#)
+ (if #{tmp\
12729}#
+ (apply (lambda
(#{x\ 12731}#)
(call-with-values
(lambda ()
-
(#{cvt\ 3548}#
-
#{x\ 3608}#
-
#{n\ 3550}#
-
#{ids\ 3551}#))
-
(lambda (#{p\ 3610}#
-
#{ids\ 3611}#)
+
(#{cvt\ 12671}#
+
#{x\ 12731}#
+
#{n\ 12673}#
+
#{ids\ 12674}#))
+
(lambda (#{p\ 12733}#
+
#{ids\ 12734}#)
(values
(vector
'vector
-
#{p\ 3610}#)
-
#{ids\ 3611}#))))
- #{tmp\
3606}#)
- ((lambda (#{x\
3615}#)
+
#{p\ 12733}#)
+
#{ids\ 12734}#))))
+ #{tmp\
12729}#)
+ ((lambda (#{x\
12738}#)
(values
(vector
'atom
-
(#{strip\ 371}#
- #{p\
3549}#
+
(#{strip\ 9525}#
+ #{p\
12672}#
'(())))
- #{ids\
3551}#))
- #{tmp\
3555}#)))
+ #{ids\
12674}#))
+ #{tmp\
12678}#)))
($sc-dispatch
- #{tmp\ 3555}#
+ #{tmp\ 12678}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 3555}#
+ #{tmp\ 12678}#
'()))))
($sc-dispatch
- #{tmp\ 3555}#
+ #{tmp\ 12678}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3555}#
+ #{tmp\ 12678}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 3555}#
+ #{tmp\ 12678}#
'(any any))))
- #{p\ 3549}#))))
- (#{cvt*\ 3546}#
- (lambda (#{p*\ 3617}#
- #{n\ 3618}#
- #{ids\ 3619}#)
- (if (null? #{p*\ 3617}#)
- (values (quote ()) #{ids\ 3619}#)
+ #{p\ 12672}#))))
+ (#{cvt*\ 12669}#
+ (lambda (#{p*\ 12740}#
+ #{n\ 12741}#
+ #{ids\ 12742}#)
+ (if (null? #{p*\ 12740}#)
+ (values (quote ()) #{ids\ 12742}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3546}#
- (cdr #{p*\ 3617}#)
- #{n\ 3618}#
- #{ids\ 3619}#))
- (lambda (#{y\ 3623}# #{ids\ 3624}#)
+ (#{cvt*\ 12669}#
+ (cdr #{p*\ 12740}#)
+ #{n\ 12741}#
+ #{ids\ 12742}#))
+ (lambda (#{y\ 12746}# #{ids\ 12747}#)
(call-with-values
(lambda ()
- (#{cvt\ 3548}#
- (car #{p*\ 3617}#)
- #{n\ 3618}#
- #{ids\ 3624}#))
- (lambda (#{x\ 3627}# #{ids\ 3628}#)
+ (#{cvt\ 12671}#
+ (car #{p*\ 12740}#)
+ #{n\ 12741}#
+ #{ids\ 12747}#))
+ (lambda (#{x\ 12750}# #{ids\ 12751}#)
(values
- (cons #{x\ 3627}# #{y\ 3623}#)
- #{ids\ 3628}#)))))))))
- (#{cvt\ 3548}# #{pattern\ 3541}# 0 (quote ()))))))
- (lambda (#{e\ 3631}#
- #{r\ 3632}#
- #{w\ 3633}#
- #{s\ 3634}#
- #{mod\ 3635}#)
- (let ((#{e\ 3642}#
- (#{source-wrap\ 331}#
- #{e\ 3631}#
- #{w\ 3633}#
- #{s\ 3634}#
- #{mod\ 3635}#)))
- ((lambda (#{tmp\ 3643}#)
- ((lambda (#{tmp\ 3644}#)
- (if #{tmp\ 3644}#
- (apply (lambda (#{_\ 3649}#
- #{val\ 3650}#
- #{key\ 3651}#
- #{m\ 3652}#)
+ (cons #{x\ 12750}# #{y\ 12746}#)
+ #{ids\ 12751}#)))))))))
+ (#{cvt\ 12671}# #{pattern\ 12664}# 0 (quote ()))))))
+ (lambda (#{e\ 12754}#
+ #{r\ 12755}#
+ #{w\ 12756}#
+ #{s\ 12757}#
+ #{mod\ 12758}#)
+ (let ((#{e\ 12765}#
+ (#{source-wrap\ 9485}#
+ #{e\ 12754}#
+ #{w\ 12756}#
+ #{s\ 12757}#
+ #{mod\ 12758}#)))
+ ((lambda (#{tmp\ 12766}#)
+ ((lambda (#{tmp\ 12767}#)
+ (if #{tmp\ 12767}#
+ (apply (lambda (#{_\ 12772}#
+ #{val\ 12773}#
+ #{key\ 12774}#
+ #{m\ 12775}#)
(if (and-map
- (lambda (#{x\ 3653}#)
- (if (#{id?\ 260}# #{x\ 3653}#)
- (not (#{ellipsis?\ 361}# #{x\ 3653}#))
+ (lambda (#{x\ 12776}#)
+ (if (#{id?\ 9414}# #{x\ 12776}#)
+ (not (#{ellipsis?\ 9515}#
+ #{x\ 12776}#))
#f))
- #{key\ 3651}#)
- (let ((#{x\ 3659}#
- (#{gen-var\ 373}# (quote tmp))))
- (#{build-application\ 184}#
- #{s\ 3634}#
- (#{build-simple-lambda\ 202}#
+ #{key\ 12774}#)
+ (let ((#{x\ 12782}#
+ (#{gen-var\ 9527}# (quote tmp))))
+ (#{build-application\ 9338}#
+ #{s\ 12757}#
+ (#{build-simple-lambda\ 9356}#
#f
(list (quote tmp))
#f
- (list #{x\ 3659}#)
+ (list #{x\ 12782}#)
#f
- (#{gen-syntax-case\ 3424}#
- (#{build-lexical-reference\ 188}#
+ (#{gen-syntax-case\ 12547}#
+ (#{build-lexical-reference\ 9342}#
'value
#f
'tmp
- #{x\ 3659}#)
- #{key\ 3651}#
- #{m\ 3652}#
- #{r\ 3632}#
- #{mod\ 3635}#))
- (list (#{chi\ 345}#
- #{val\ 3650}#
- #{r\ 3632}#
+ #{x\ 12782}#)
+ #{key\ 12774}#
+ #{m\ 12775}#
+ #{r\ 12755}#
+ #{mod\ 12758}#))
+ (list (#{chi\ 9499}#
+ #{val\ 12773}#
+ #{r\ 12755}#
'(())
- #{mod\ 3635}#))))
+ #{mod\ 12758}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3642}#)))
- #{tmp\ 3644}#)
+ #{e\ 12765}#)))
+ #{tmp\ 12767}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3643}#)))
+ #{tmp\ 12766}#)))
($sc-dispatch
- #{tmp\ 3643}#
+ #{tmp\ 12766}#
'(any any each-any . each-any))))
- #{e\ 3642}#)))))
+ #{e\ 12765}#)))))
(set! sc-expand
- (lambda (#{x\ 3665}# . #{rest\ 3666}#)
- (if (if (pair? #{x\ 3665}#)
- (equal? (car #{x\ 3665}#) #{noexpand\ 159}#)
+ (lambda (#{x\ 12788}# . #{rest\ 12789}#)
+ (if (if (pair? #{x\ 12788}#)
+ (equal? (car #{x\ 12788}#) #{noexpand\ 9313}#)
#f)
- (cadr #{x\ 3665}#)
- (let ((#{m\ 3673}#
- (if (null? #{rest\ 3666}#)
+ (cadr #{x\ 12788}#)
+ (let ((#{m\ 12796}#
+ (if (null? #{rest\ 12789}#)
'e
- (car #{rest\ 3666}#)))
- (#{esew\ 3674}#
- (if (let ((#{t\ 3677}# (null? #{rest\ 3666}#)))
- (if #{t\ 3677}#
- #{t\ 3677}#
- (null? (cdr #{rest\ 3666}#))))
+ (car #{rest\ 12789}#)))
+ (#{esew\ 12797}#
+ (if (let ((#{t\ 12800}# (null? #{rest\ 12789}#)))
+ (if #{t\ 12800}#
+ #{t\ 12800}#
+ (null? (cdr #{rest\ 12789}#))))
'(eval)
- (cadr #{rest\ 3666}#))))
+ (cadr #{rest\ 12789}#))))
(with-fluid*
- #{*mode*\ 161}#
- #{m\ 3673}#
+ #{*mode*\ 9315}#
+ #{m\ 12796}#
(lambda ()
- (#{chi-top\ 343}#
- #{x\ 3665}#
+ (#{chi-top\ 9497}#
+ #{x\ 12788}#
'()
'((top))
- #{m\ 3673}#
- #{esew\ 3674}#
+ #{m\ 12796}#
+ #{esew\ 12797}#
(cons 'hygiene
(module-name (current-module))))))))))
(set! identifier?
- (lambda (#{x\ 3681}#)
- (#{nonsymbol-id?\ 258}# #{x\ 3681}#)))
+ (lambda (#{x\ 12804}#)
+ (#{nonsymbol-id?\ 9412}# #{x\ 12804}#)))
(set! datum->syntax
- (lambda (#{id\ 3683}# #{datum\ 3684}#)
- (#{make-syntax-object\ 222}#
- #{datum\ 3684}#
- (#{syntax-object-wrap\ 228}# #{id\ 3683}#)
+ (lambda (#{id\ 12806}# #{datum\ 12807}#)
+ (#{make-syntax-object\ 9376}#
+ #{datum\ 12807}#
+ (#{syntax-object-wrap\ 9382}# #{id\ 12806}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 3687}#)
- (#{strip\ 371}# #{x\ 3687}# (quote (())))))
+ (lambda (#{x\ 12810}#)
+ (#{strip\ 9525}# #{x\ 12810}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 3690}#)
+ (lambda (#{ls\ 12813}#)
(begin
- (let ((#{x\ 3694}# #{ls\ 3690}#))
- (if (not (list? #{x\ 3694}#))
+ (let ((#{x\ 12817}# #{ls\ 12813}#))
+ (if (not (list? #{x\ 12817}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3694}#)))
- (map (lambda (#{x\ 3695}#)
- (#{wrap\ 329}# (gensym) (quote ((top))) #f))
- #{ls\ 3690}#))))
+ #{x\ 12817}#)))
+ (map (lambda (#{x\ 12818}#)
+ (#{wrap\ 9483}# (gensym) (quote ((top))) #f))
+ #{ls\ 12813}#))))
(set! free-identifier=?
- (lambda (#{x\ 3699}# #{y\ 3700}#)
+ (lambda (#{x\ 12822}# #{y\ 12823}#)
(begin
- (let ((#{x\ 3705}# #{x\ 3699}#))
- (if (not (#{nonsymbol-id?\ 258}# #{x\ 3705}#))
+ (let ((#{x\ 12828}# #{x\ 12822}#))
+ (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12828}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3705}#)))
- (let ((#{x\ 3708}# #{y\ 3700}#))
- (if (not (#{nonsymbol-id?\ 258}# #{x\ 3708}#))
+ #{x\ 12828}#)))
+ (let ((#{x\ 12831}# #{y\ 12823}#))
+ (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12831}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3708}#)))
- (#{free-id=?\ 319}# #{x\ 3699}# #{y\ 3700}#))))
+ #{x\ 12831}#)))
+ (#{free-id=?\ 9473}# #{x\ 12822}# #{y\ 12823}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3709}# #{y\ 3710}#)
+ (lambda (#{x\ 12832}# #{y\ 12833}#)
(begin
- (let ((#{x\ 3715}# #{x\ 3709}#))
- (if (not (#{nonsymbol-id?\ 258}# #{x\ 3715}#))
+ (let ((#{x\ 12838}# #{x\ 12832}#))
+ (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12838}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3715}#)))
- (let ((#{x\ 3718}# #{y\ 3710}#))
- (if (not (#{nonsymbol-id?\ 258}# #{x\ 3718}#))
+ #{x\ 12838}#)))
+ (let ((#{x\ 12841}# #{y\ 12833}#))
+ (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12841}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3718}#)))
- (#{bound-id=?\ 321}# #{x\ 3709}# #{y\ 3710}#))))
+ #{x\ 12841}#)))
+ (#{bound-id=?\ 9475}# #{x\ 12832}# #{y\ 12833}#))))
(set! syntax-violation
- (lambda (#{who\ 3719}#
- #{message\ 3720}#
- #{form\ 3721}#
+ (lambda (#{who\ 12842}#
+ #{message\ 12843}#
+ #{form\ 12844}#
.
- #{subform\ 3722}#)
+ #{subform\ 12845}#)
(begin
- (let ((#{x\ 3729}# #{who\ 3719}#))
- (if (not ((lambda (#{x\ 3730}#)
- (let ((#{t\ 3734}# (not #{x\ 3730}#)))
- (if #{t\ 3734}#
- #{t\ 3734}#
- (let ((#{t\ 3737}# (string? #{x\ 3730}#)))
- (if #{t\ 3737}#
- #{t\ 3737}#
- (symbol? #{x\ 3730}#))))))
- #{x\ 3729}#))
+ (let ((#{x\ 12852}# #{who\ 12842}#))
+ (if (not ((lambda (#{x\ 12853}#)
+ (let ((#{t\ 12857}# (not #{x\ 12853}#)))
+ (if #{t\ 12857}#
+ #{t\ 12857}#
+ (let ((#{t\ 12860}# (string? #{x\ 12853}#)))
+ (if #{t\ 12860}#
+ #{t\ 12860}#
+ (symbol? #{x\ 12853}#))))))
+ #{x\ 12852}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3729}#)))
- (let ((#{x\ 3741}# #{message\ 3720}#))
- (if (not (string? #{x\ 3741}#))
+ #{x\ 12852}#)))
+ (let ((#{x\ 12864}# #{message\ 12843}#))
+ (if (not (string? #{x\ 12864}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3741}#)))
+ #{x\ 12864}#)))
(scm-error
'syntax-error
'sc-expand
(string-append
- (if #{who\ 3719}# "~a: " "")
+ (if #{who\ 12842}# "~a: " "")
"~a "
- (if (null? #{subform\ 3722}#)
+ (if (null? #{subform\ 12845}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 3743}#
- (cons #{message\ 3720}#
- (map (lambda (#{x\ 3744}#)
- (#{strip\ 371}# #{x\ 3744}# (quote (()))))
+ (let ((#{tail\ 12866}#
+ (cons #{message\ 12843}#
+ (map (lambda (#{x\ 12867}#)
+ (#{strip\ 9525}# #{x\ 12867}# (quote (()))))
(append
- #{subform\ 3722}#
- (list #{form\ 3721}#))))))
- (if #{who\ 3719}#
- (cons #{who\ 3719}# #{tail\ 3743}#)
- #{tail\ 3743}#))
+ #{subform\ 12845}#
+ (list #{form\ 12844}#))))))
+ (if #{who\ 12842}#
+ (cons #{who\ 12842}# #{tail\ 12866}#)
+ #{tail\ 12866}#))
#f))))
- (letrec ((#{match\ 3760}#
- (lambda (#{e\ 3761}#
- #{p\ 3762}#
- #{w\ 3763}#
- #{r\ 3764}#
- #{mod\ 3765}#)
- (if (not #{r\ 3764}#)
+ (letrec ((#{match\ 12883}#
+ (lambda (#{e\ 12884}#
+ #{p\ 12885}#
+ #{w\ 12886}#
+ #{r\ 12887}#
+ #{mod\ 12888}#)
+ (if (not #{r\ 12887}#)
#f
- (if (eq? #{p\ 3762}# (quote any))
- (cons (#{wrap\ 329}#
- #{e\ 3761}#
- #{w\ 3763}#
- #{mod\ 3765}#)
- #{r\ 3764}#)
- (if (#{syntax-object?\ 224}# #{e\ 3761}#)
- (#{match*\ 3758}#
- (#{syntax-object-expression\ 226}# #{e\ 3761}#)
- #{p\ 3762}#
- (#{join-wraps\ 311}#
- #{w\ 3763}#
- (#{syntax-object-wrap\ 228}# #{e\ 3761}#))
- #{r\ 3764}#
- (#{syntax-object-module\ 230}# #{e\ 3761}#))
- (#{match*\ 3758}#
- #{e\ 3761}#
- #{p\ 3762}#
- #{w\ 3763}#
- #{r\ 3764}#
- #{mod\ 3765}#))))))
- (#{match*\ 3758}#
- (lambda (#{e\ 3778}#
- #{p\ 3779}#
- #{w\ 3780}#
- #{r\ 3781}#
- #{mod\ 3782}#)
- (if (null? #{p\ 3779}#)
- (if (null? #{e\ 3778}#) #{r\ 3781}# #f)
- (if (pair? #{p\ 3779}#)
- (if (pair? #{e\ 3778}#)
- (#{match\ 3760}#
- (car #{e\ 3778}#)
- (car #{p\ 3779}#)
- #{w\ 3780}#
- (#{match\ 3760}#
- (cdr #{e\ 3778}#)
- (cdr #{p\ 3779}#)
- #{w\ 3780}#
- #{r\ 3781}#
- #{mod\ 3782}#)
- #{mod\ 3782}#)
+ (if (eq? #{p\ 12885}# (quote any))
+ (cons (#{wrap\ 9483}#
+ #{e\ 12884}#
+ #{w\ 12886}#
+ #{mod\ 12888}#)
+ #{r\ 12887}#)
+ (if (#{syntax-object?\ 9378}# #{e\ 12884}#)
+ (#{match*\ 12881}#
+ (#{syntax-object-expression\ 9380}# #{e\ 12884}#)
+ #{p\ 12885}#
+ (#{join-wraps\ 9465}#
+ #{w\ 12886}#
+ (#{syntax-object-wrap\ 9382}# #{e\ 12884}#))
+ #{r\ 12887}#
+ (#{syntax-object-module\ 9384}# #{e\ 12884}#))
+ (#{match*\ 12881}#
+ #{e\ 12884}#
+ #{p\ 12885}#
+ #{w\ 12886}#
+ #{r\ 12887}#
+ #{mod\ 12888}#))))))
+ (#{match*\ 12881}#
+ (lambda (#{e\ 12901}#
+ #{p\ 12902}#
+ #{w\ 12903}#
+ #{r\ 12904}#
+ #{mod\ 12905}#)
+ (if (null? #{p\ 12902}#)
+ (if (null? #{e\ 12901}#) #{r\ 12904}# #f)
+ (if (pair? #{p\ 12902}#)
+ (if (pair? #{e\ 12901}#)
+ (#{match\ 12883}#
+ (car #{e\ 12901}#)
+ (car #{p\ 12902}#)
+ #{w\ 12903}#
+ (#{match\ 12883}#
+ (cdr #{e\ 12901}#)
+ (cdr #{p\ 12902}#)
+ #{w\ 12903}#
+ #{r\ 12904}#
+ #{mod\ 12905}#)
+ #{mod\ 12905}#)
#f)
- (if (eq? #{p\ 3779}# (quote each-any))
- (let ((#{l\ 3799}#
- (#{match-each-any\ 3752}#
- #{e\ 3778}#
- #{w\ 3780}#
- #{mod\ 3782}#)))
- (if #{l\ 3799}#
- (cons #{l\ 3799}# #{r\ 3781}#)
+ (if (eq? #{p\ 12902}# (quote each-any))
+ (let ((#{l\ 12922}#
+ (#{match-each-any\ 12875}#
+ #{e\ 12901}#
+ #{w\ 12903}#
+ #{mod\ 12905}#)))
+ (if #{l\ 12922}#
+ (cons #{l\ 12922}# #{r\ 12904}#)
#f))
- (let ((#{atom-key\ 3805}# (vector-ref #{p\ 3779}# 0)))
- (if (memv #{atom-key\ 3805}# (quote (each)))
- (if (null? #{e\ 3778}#)
- (#{match-empty\ 3754}#
- (vector-ref #{p\ 3779}# 1)
- #{r\ 3781}#)
- (let ((#{l\ 3808}#
- (#{match-each\ 3748}#
- #{e\ 3778}#
- (vector-ref #{p\ 3779}# 1)
- #{w\ 3780}#
- #{mod\ 3782}#)))
- (if #{l\ 3808}#
- (letrec ((#{collect\ 3813}#
- (lambda (#{l\ 3814}#)
- (if (null? (car #{l\ 3814}#))
- #{r\ 3781}#
- (cons (map car #{l\ 3814}#)
- (#{collect\ 3813}#
+ (let ((#{atom-key\ 12928}#
+ (vector-ref #{p\ 12902}# 0)))
+ (if (memv #{atom-key\ 12928}# (quote (each)))
+ (if (null? #{e\ 12901}#)
+ (#{match-empty\ 12877}#
+ (vector-ref #{p\ 12902}# 1)
+ #{r\ 12904}#)
+ (let ((#{l\ 12931}#
+ (#{match-each\ 12871}#
+ #{e\ 12901}#
+ (vector-ref #{p\ 12902}# 1)
+ #{w\ 12903}#
+ #{mod\ 12905}#)))
+ (if #{l\ 12931}#
+ (letrec ((#{collect\ 12936}#
+ (lambda (#{l\ 12937}#)
+ (if (null? (car #{l\ 12937}#))
+ #{r\ 12904}#
+ (cons (map car #{l\ 12937}#)
+ (#{collect\ 12936}#
(map cdr
- #{l\
3814}#)))))))
- (#{collect\ 3813}# #{l\ 3808}#))
+ #{l\
12937}#)))))))
+ (#{collect\ 12936}# #{l\ 12931}#))
#f)))
- (if (memv #{atom-key\ 3805}# (quote (each+)))
+ (if (memv #{atom-key\ 12928}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 3750}#
- #{e\ 3778}#
- (vector-ref #{p\ 3779}# 1)
- (vector-ref #{p\ 3779}# 2)
- (vector-ref #{p\ 3779}# 3)
- #{w\ 3780}#
- #{r\ 3781}#
- #{mod\ 3782}#))
- (lambda (#{xr*\ 3816}#
- #{y-pat\ 3817}#
- #{r\ 3818}#)
- (if #{r\ 3818}#
- (if (null? #{y-pat\ 3817}#)
- (if (null? #{xr*\ 3816}#)
- (#{match-empty\ 3754}#
- (vector-ref #{p\ 3779}# 1)
- #{r\ 3818}#)
- (#{combine\ 3756}#
- #{xr*\ 3816}#
- #{r\ 3818}#))
+ (#{match-each+\ 12873}#
+ #{e\ 12901}#
+ (vector-ref #{p\ 12902}# 1)
+ (vector-ref #{p\ 12902}# 2)
+ (vector-ref #{p\ 12902}# 3)
+ #{w\ 12903}#
+ #{r\ 12904}#
+ #{mod\ 12905}#))
+ (lambda (#{xr*\ 12939}#
+ #{y-pat\ 12940}#
+ #{r\ 12941}#)
+ (if #{r\ 12941}#
+ (if (null? #{y-pat\ 12940}#)
+ (if (null? #{xr*\ 12939}#)
+ (#{match-empty\ 12877}#
+ (vector-ref #{p\ 12902}# 1)
+ #{r\ 12941}#)
+ (#{combine\ 12879}#
+ #{xr*\ 12939}#
+ #{r\ 12941}#))
#f)
#f)))
- (if (memv #{atom-key\ 3805}# (quote (free-id)))
- (if (#{id?\ 260}# #{e\ 3778}#)
- (if (#{free-id=?\ 319}#
- (#{wrap\ 329}#
- #{e\ 3778}#
- #{w\ 3780}#
- #{mod\ 3782}#)
- (vector-ref #{p\ 3779}# 1))
- #{r\ 3781}#
+ (if (memv #{atom-key\ 12928}# (quote (free-id)))
+ (if (#{id?\ 9414}# #{e\ 12901}#)
+ (if (#{free-id=?\ 9473}#
+ (#{wrap\ 9483}#
+ #{e\ 12901}#
+ #{w\ 12903}#
+ #{mod\ 12905}#)
+ (vector-ref #{p\ 12902}# 1))
+ #{r\ 12904}#
#f)
#f)
- (if (memv #{atom-key\ 3805}# (quote (atom)))
+ (if (memv #{atom-key\ 12928}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 3779}# 1)
- (#{strip\ 371}#
- #{e\ 3778}#
- #{w\ 3780}#))
- #{r\ 3781}#
+ (vector-ref #{p\ 12902}# 1)
+ (#{strip\ 9525}#
+ #{e\ 12901}#
+ #{w\ 12903}#))
+ #{r\ 12904}#
#f)
- (if (memv #{atom-key\ 3805}#
+ (if (memv #{atom-key\ 12928}#
'(vector))
- (if (vector? #{e\ 3778}#)
- (#{match\ 3760}#
- (vector->list #{e\ 3778}#)
- (vector-ref #{p\ 3779}# 1)
- #{w\ 3780}#
- #{r\ 3781}#
- #{mod\ 3782}#)
+ (if (vector? #{e\ 12901}#)
+ (#{match\ 12883}#
+ (vector->list #{e\ 12901}#)
+ (vector-ref #{p\ 12902}# 1)
+ #{w\ 12903}#
+ #{r\ 12904}#
+ #{mod\ 12905}#)
#f))))))))))))
- (#{combine\ 3756}#
- (lambda (#{r*\ 3835}# #{r\ 3836}#)
- (if (null? (car #{r*\ 3835}#))
- #{r\ 3836}#
- (cons (map car #{r*\ 3835}#)
- (#{combine\ 3756}#
- (map cdr #{r*\ 3835}#)
- #{r\ 3836}#)))))
- (#{match-empty\ 3754}#
- (lambda (#{p\ 3839}# #{r\ 3840}#)
- (if (null? #{p\ 3839}#)
- #{r\ 3840}#
- (if (eq? #{p\ 3839}# (quote any))
- (cons (quote ()) #{r\ 3840}#)
- (if (pair? #{p\ 3839}#)
- (#{match-empty\ 3754}#
- (car #{p\ 3839}#)
- (#{match-empty\ 3754}#
- (cdr #{p\ 3839}#)
- #{r\ 3840}#))
- (if (eq? #{p\ 3839}# (quote each-any))
- (cons (quote ()) #{r\ 3840}#)
- (let ((#{atom-key\ 3854}#
- (vector-ref #{p\ 3839}# 0)))
- (if (memv #{atom-key\ 3854}# (quote (each)))
- (#{match-empty\ 3754}#
- (vector-ref #{p\ 3839}# 1)
- #{r\ 3840}#)
- (if (memv #{atom-key\ 3854}# (quote (each+)))
- (#{match-empty\ 3754}#
- (vector-ref #{p\ 3839}# 1)
- (#{match-empty\ 3754}#
- (reverse (vector-ref #{p\ 3839}# 2))
- (#{match-empty\ 3754}#
- (vector-ref #{p\ 3839}# 3)
- #{r\ 3840}#)))
- (if (memv #{atom-key\ 3854}#
+ (#{combine\ 12879}#
+ (lambda (#{r*\ 12958}# #{r\ 12959}#)
+ (if (null? (car #{r*\ 12958}#))
+ #{r\ 12959}#
+ (cons (map car #{r*\ 12958}#)
+ (#{combine\ 12879}#
+ (map cdr #{r*\ 12958}#)
+ #{r\ 12959}#)))))
+ (#{match-empty\ 12877}#
+ (lambda (#{p\ 12962}# #{r\ 12963}#)
+ (if (null? #{p\ 12962}#)
+ #{r\ 12963}#
+ (if (eq? #{p\ 12962}# (quote any))
+ (cons (quote ()) #{r\ 12963}#)
+ (if (pair? #{p\ 12962}#)
+ (#{match-empty\ 12877}#
+ (car #{p\ 12962}#)
+ (#{match-empty\ 12877}#
+ (cdr #{p\ 12962}#)
+ #{r\ 12963}#))
+ (if (eq? #{p\ 12962}# (quote each-any))
+ (cons (quote ()) #{r\ 12963}#)
+ (let ((#{atom-key\ 12977}#
+ (vector-ref #{p\ 12962}# 0)))
+ (if (memv #{atom-key\ 12977}# (quote (each)))
+ (#{match-empty\ 12877}#
+ (vector-ref #{p\ 12962}# 1)
+ #{r\ 12963}#)
+ (if (memv #{atom-key\ 12977}# (quote (each+)))
+ (#{match-empty\ 12877}#
+ (vector-ref #{p\ 12962}# 1)
+ (#{match-empty\ 12877}#
+ (reverse (vector-ref #{p\ 12962}# 2))
+ (#{match-empty\ 12877}#
+ (vector-ref #{p\ 12962}# 3)
+ #{r\ 12963}#)))
+ (if (memv #{atom-key\ 12977}#
'(free-id atom))
- #{r\ 3840}#
- (if (memv #{atom-key\ 3854}#
+ #{r\ 12963}#
+ (if (memv #{atom-key\ 12977}#
'(vector))
- (#{match-empty\ 3754}#
- (vector-ref #{p\ 3839}# 1)
- #{r\ 3840}#))))))))))))
- (#{match-each-any\ 3752}#
- (lambda (#{e\ 3859}# #{w\ 3860}# #{mod\ 3861}#)
- (if (pair? #{e\ 3859}#)
- (let ((#{l\ 3868}#
- (#{match-each-any\ 3752}#
- (cdr #{e\ 3859}#)
- #{w\ 3860}#
- #{mod\ 3861}#)))
- (if #{l\ 3868}#
- (cons (#{wrap\ 329}#
- (car #{e\ 3859}#)
- #{w\ 3860}#
- #{mod\ 3861}#)
- #{l\ 3868}#)
+ (#{match-empty\ 12877}#
+ (vector-ref #{p\ 12962}# 1)
+ #{r\ 12963}#))))))))))))
+ (#{match-each-any\ 12875}#
+ (lambda (#{e\ 12982}# #{w\ 12983}# #{mod\ 12984}#)
+ (if (pair? #{e\ 12982}#)
+ (let ((#{l\ 12991}#
+ (#{match-each-any\ 12875}#
+ (cdr #{e\ 12982}#)
+ #{w\ 12983}#
+ #{mod\ 12984}#)))
+ (if #{l\ 12991}#
+ (cons (#{wrap\ 9483}#
+ (car #{e\ 12982}#)
+ #{w\ 12983}#
+ #{mod\ 12984}#)
+ #{l\ 12991}#)
#f))
- (if (null? #{e\ 3859}#)
+ (if (null? #{e\ 12982}#)
'()
- (if (#{syntax-object?\ 224}# #{e\ 3859}#)
- (#{match-each-any\ 3752}#
- (#{syntax-object-expression\ 226}# #{e\ 3859}#)
- (#{join-wraps\ 311}#
- #{w\ 3860}#
- (#{syntax-object-wrap\ 228}# #{e\ 3859}#))
- #{mod\ 3861}#)
+ (if (#{syntax-object?\ 9378}# #{e\ 12982}#)
+ (#{match-each-any\ 12875}#
+ (#{syntax-object-expression\ 9380}# #{e\ 12982}#)
+ (#{join-wraps\ 9465}#
+ #{w\ 12983}#
+ (#{syntax-object-wrap\ 9382}# #{e\ 12982}#))
+ #{mod\ 12984}#)
#f)))))
- (#{match-each+\ 3750}#
- (lambda (#{e\ 3876}#
- #{x-pat\ 3877}#
- #{y-pat\ 3878}#
- #{z-pat\ 3879}#
- #{w\ 3880}#
- #{r\ 3881}#
- #{mod\ 3882}#)
- (letrec ((#{f\ 3893}#
- (lambda (#{e\ 3894}# #{w\ 3895}#)
- (if (pair? #{e\ 3894}#)
+ (#{match-each+\ 12873}#
+ (lambda (#{e\ 12999}#
+ #{x-pat\ 13000}#
+ #{y-pat\ 13001}#
+ #{z-pat\ 13002}#
+ #{w\ 13003}#
+ #{r\ 13004}#
+ #{mod\ 13005}#)
+ (letrec ((#{f\ 13016}#
+ (lambda (#{e\ 13017}# #{w\ 13018}#)
+ (if (pair? #{e\ 13017}#)
(call-with-values
(lambda ()
- (#{f\ 3893}#
- (cdr #{e\ 3894}#)
- #{w\ 3895}#))
- (lambda (#{xr*\ 3898}#
- #{y-pat\ 3899}#
- #{r\ 3900}#)
- (if #{r\ 3900}#
- (if (null? #{y-pat\ 3899}#)
- (let ((#{xr\ 3905}#
- (#{match\ 3760}#
- (car #{e\ 3894}#)
- #{x-pat\ 3877}#
- #{w\ 3895}#
+ (#{f\ 13016}#
+ (cdr #{e\ 13017}#)
+ #{w\ 13018}#))
+ (lambda (#{xr*\ 13021}#
+ #{y-pat\ 13022}#
+ #{r\ 13023}#)
+ (if #{r\ 13023}#
+ (if (null? #{y-pat\ 13022}#)
+ (let ((#{xr\ 13028}#
+ (#{match\ 12883}#
+ (car #{e\ 13017}#)
+ #{x-pat\ 13000}#
+ #{w\ 13018}#
'()
- #{mod\ 3882}#)))
- (if #{xr\ 3905}#
+ #{mod\ 13005}#)))
+ (if #{xr\ 13028}#
(values
- (cons #{xr\ 3905}#
- #{xr*\ 3898}#)
- #{y-pat\ 3899}#
- #{r\ 3900}#)
+ (cons #{xr\ 13028}#
+ #{xr*\ 13021}#)
+ #{y-pat\ 13022}#
+ #{r\ 13023}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 3899}#)
- (#{match\ 3760}#
- (car #{e\ 3894}#)
- (car #{y-pat\ 3899}#)
- #{w\ 3895}#
- #{r\ 3900}#
- #{mod\ 3882}#)))
+ (cdr #{y-pat\ 13022}#)
+ (#{match\ 12883}#
+ (car #{e\ 13017}#)
+ (car #{y-pat\ 13022}#)
+ #{w\ 13018}#
+ #{r\ 13023}#
+ #{mod\ 13005}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 224}# #{e\ 3894}#)
- (#{f\ 3893}#
- (#{syntax-object-expression\ 226}#
- #{e\ 3894}#)
- (#{join-wraps\ 311}#
- #{w\ 3895}#
- #{e\ 3894}#))
+ (if (#{syntax-object?\ 9378}# #{e\ 13017}#)
+ (#{f\ 13016}#
+ (#{syntax-object-expression\ 9380}#
+ #{e\ 13017}#)
+ (#{join-wraps\ 9465}#
+ #{w\ 13018}#
+ #{e\ 13017}#))
(values
'()
- #{y-pat\ 3878}#
- (#{match\ 3760}#
- #{e\ 3894}#
- #{z-pat\ 3879}#
- #{w\ 3895}#
- #{r\ 3881}#
- #{mod\ 3882}#)))))))
- (#{f\ 3893}# #{e\ 3876}# #{w\ 3880}#))))
- (#{match-each\ 3748}#
- (lambda (#{e\ 3909}#
- #{p\ 3910}#
- #{w\ 3911}#
- #{mod\ 3912}#)
- (if (pair? #{e\ 3909}#)
- (let ((#{first\ 3920}#
- (#{match\ 3760}#
- (car #{e\ 3909}#)
- #{p\ 3910}#
- #{w\ 3911}#
+ #{y-pat\ 13001}#
+ (#{match\ 12883}#
+ #{e\ 13017}#
+ #{z-pat\ 13002}#
+ #{w\ 13018}#
+ #{r\ 13004}#
+ #{mod\ 13005}#)))))))
+ (#{f\ 13016}# #{e\ 12999}# #{w\ 13003}#))))
+ (#{match-each\ 12871}#
+ (lambda (#{e\ 13032}#
+ #{p\ 13033}#
+ #{w\ 13034}#
+ #{mod\ 13035}#)
+ (if (pair? #{e\ 13032}#)
+ (let ((#{first\ 13043}#
+ (#{match\ 12883}#
+ (car #{e\ 13032}#)
+ #{p\ 13033}#
+ #{w\ 13034}#
'()
- #{mod\ 3912}#)))
- (if #{first\ 3920}#
- (let ((#{rest\ 3924}#
- (#{match-each\ 3748}#
- (cdr #{e\ 3909}#)
- #{p\ 3910}#
- #{w\ 3911}#
- #{mod\ 3912}#)))
- (if #{rest\ 3924}#
- (cons #{first\ 3920}# #{rest\ 3924}#)
+ #{mod\ 13035}#)))
+ (if #{first\ 13043}#
+ (let ((#{rest\ 13047}#
+ (#{match-each\ 12871}#
+ (cdr #{e\ 13032}#)
+ #{p\ 13033}#
+ #{w\ 13034}#
+ #{mod\ 13035}#)))
+ (if #{rest\ 13047}#
+ (cons #{first\ 13043}# #{rest\ 13047}#)
#f))
#f))
- (if (null? #{e\ 3909}#)
+ (if (null? #{e\ 13032}#)
'()
- (if (#{syntax-object?\ 224}# #{e\ 3909}#)
- (#{match-each\ 3748}#
- (#{syntax-object-expression\ 226}# #{e\ 3909}#)
- #{p\ 3910}#
- (#{join-wraps\ 311}#
- #{w\ 3911}#
- (#{syntax-object-wrap\ 228}# #{e\ 3909}#))
- (#{syntax-object-module\ 230}# #{e\ 3909}#))
+ (if (#{syntax-object?\ 9378}# #{e\ 13032}#)
+ (#{match-each\ 12871}#
+ (#{syntax-object-expression\ 9380}# #{e\ 13032}#)
+ #{p\ 13033}#
+ (#{join-wraps\ 9465}#
+ #{w\ 13034}#
+ (#{syntax-object-wrap\ 9382}# #{e\ 13032}#))
+ (#{syntax-object-module\ 9384}# #{e\ 13032}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 3932}# #{p\ 3933}#)
- (if (eq? #{p\ 3933}# (quote any))
- (list #{e\ 3932}#)
- (if (#{syntax-object?\ 224}# #{e\ 3932}#)
- (#{match*\ 3758}#
- (#{syntax-object-expression\ 226}# #{e\ 3932}#)
- #{p\ 3933}#
- (#{syntax-object-wrap\ 228}# #{e\ 3932}#)
+ (lambda (#{e\ 13055}# #{p\ 13056}#)
+ (if (eq? #{p\ 13056}# (quote any))
+ (list #{e\ 13055}#)
+ (if (#{syntax-object?\ 9378}# #{e\ 13055}#)
+ (#{match*\ 12881}#
+ (#{syntax-object-expression\ 9380}# #{e\ 13055}#)
+ #{p\ 13056}#
+ (#{syntax-object-wrap\ 9382}# #{e\ 13055}#)
'()
- (#{syntax-object-module\ 230}# #{e\ 3932}#))
- (#{match*\ 3758}#
- #{e\ 3932}#
- #{p\ 3933}#
+ (#{syntax-object-module\ 9384}# #{e\ 13055}#))
+ (#{match*\ 12881}#
+ #{e\ 13055}#
+ #{p\ 13056}#
'(())
'()
#f)))))))))
(define with-syntax
- (make-syncase-macro
+ (make-syntax-transformer
+ 'with-syntax
'macro
- (cons (lambda (#{x\ 3942}#)
- ((lambda (#{tmp\ 3944}#)
- ((lambda (#{tmp\ 3945}#)
- (if #{tmp\ 3945}#
- (apply (lambda (#{_\ 3949}# #{e1\ 3950}# #{e2\ 3951}#)
+ (cons (lambda (#{x\ 13065}#)
+ ((lambda (#{tmp\ 13067}#)
+ ((lambda (#{tmp\ 13068}#)
+ (if #{tmp\ 13068}#
+ (apply (lambda (#{_\ 13072}# #{e1\ 13073}# #{e2\ 13074}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i3946" "i3947" "i3948"))
+ #("i13069" "i13070" "i13071"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3943")))
+ #(ribcage #(x) #((top)) #("i13066")))
(hygiene guile))
- (cons #{e1\ 3950}# #{e2\ 3951}#)))
- #{tmp\ 3945}#)
- ((lambda (#{tmp\ 3953}#)
- (if #{tmp\ 3953}#
- (apply (lambda (#{_\ 3959}#
- #{out\ 3960}#
- #{in\ 3961}#
- #{e1\ 3962}#
- #{e2\ 3963}#)
+ (cons #{e1\ 13073}# #{e2\ 13074}#)))
+ #{tmp\ 13068}#)
+ ((lambda (#{tmp\ 13076}#)
+ (if #{tmp\ 13076}#
+ (apply (lambda (#{_\ 13082}#
+ #{out\ 13083}#
+ #{in\ 13084}#
+ #{e1\ 13085}#
+ #{e2\ 13086}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i3954"
- "i3955"
- "i3956"
- "i3957"
- "i3958"))
+ #("i13077"
+ "i13078"
+ "i13079"
+ "i13080"
+ "i13081"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3943")))
+ #("i13066")))
(hygiene guile))
- #{in\ 3961}#
+ #{in\ 13084}#
'()
- (list #{out\ 3960}#
+ (list #{out\ 13083}#
(cons '#(syntax-object
begin
((top)
@@ -11612,27 +11649,27 @@
(top)
(top)
(top))
- #("i3954"
- "i3955"
- "i3956"
- "i3957"
- "i3958"))
+ #("i13077"
+ "i13078"
+ "i13079"
+ "i13080"
+ "i13081"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3943")))
+ #("i13066")))
(hygiene guile))
- (cons #{e1\ 3962}#
- #{e2\ 3963}#)))))
- #{tmp\ 3953}#)
- ((lambda (#{tmp\ 3965}#)
- (if #{tmp\ 3965}#
- (apply (lambda (#{_\ 3971}#
- #{out\ 3972}#
- #{in\ 3973}#
- #{e1\ 3974}#
- #{e2\ 3975}#)
+ (cons #{e1\ 13085}#
+ #{e2\ 13086}#)))))
+ #{tmp\ 13076}#)
+ ((lambda (#{tmp\ 13088}#)
+ (if #{tmp\ 13088}#
+ (apply (lambda (#{_\ 13094}#
+ #{out\ 13095}#
+ #{in\ 13096}#
+ #{e1\ 13097}#
+ #{e2\ 13098}#)
(list '#(syntax-object
syntax-case
((top)
@@ -11643,16 +11680,16 @@
(top)
(top)
(top))
- #("i3966"
- "i3967"
- "i3968"
- "i3969"
- "i3970"))
+ #("i13089"
+ "i13090"
+ "i13091"
+ "i13092"
+ "i13093"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3943")))
+ #("i13066")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -11664,20 +11701,20 @@
(top)
(top)
(top))
- #("i3966"
- "i3967"
- "i3968"
- "i3969"
- "i3970"))
+ #("i13089"
+ "i13090"
+ "i13091"
+ "i13092"
+ "i13093"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3943")))
+ #("i13066")))
(hygiene guile))
- #{in\ 3973}#)
+ #{in\ 13096}#)
'()
- (list #{out\ 3972}#
+ (list #{out\ 13095}#
(cons '#(syntax-object
begin
((top)
@@ -11692,11 +11729,11 @@
(top)
(top)
(top))
- #("i3966"
- "i3967"
- "i3968"
- "i3969"
- "i3970"))
+ #("i13089"
+ "i13090"
+ "i13091"
+ "i13092"
+ "i13093"))
#(ribcage
()
()
@@ -11704,52 +11741,53 @@
#(ribcage
#(x)
#((top))
- #("i3943")))
+ #("i13066")))
(hygiene guile))
- (cons #{e1\ 3974}#
- #{e2\
3975}#)))))
- #{tmp\ 3965}#)
+ (cons #{e1\ 13097}#
+ #{e2\
13098}#)))))
+ #{tmp\ 13088}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3944}#)))
+ #{tmp\ 13067}#)))
($sc-dispatch
- #{tmp\ 3944}#
+ #{tmp\ 13067}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3944}#
+ #{tmp\ 13067}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3944}#
+ #{tmp\ 13067}#
'(any () any . each-any))))
- #{x\ 3942}#))
+ #{x\ 13065}#))
(module-name (current-module)))))
(define syntax-rules
- (make-syncase-macro
+ (make-syntax-transformer
+ 'syntax-rules
'macro
- (cons (lambda (#{x\ 3979}#)
- ((lambda (#{tmp\ 3981}#)
- ((lambda (#{tmp\ 3982}#)
- (if #{tmp\ 3982}#
- (apply (lambda (#{_\ 3988}#
- #{k\ 3989}#
- #{keyword\ 3990}#
- #{pattern\ 3991}#
- #{template\ 3992}#)
+ (cons (lambda (#{x\ 13102}#)
+ ((lambda (#{tmp\ 13104}#)
+ ((lambda (#{tmp\ 13105}#)
+ (if #{tmp\ 13105}#
+ (apply (lambda (#{_\ 13111}#
+ #{k\ 13112}#
+ #{keyword\ 13113}#
+ #{pattern\ 13114}#
+ #{template\ 13115}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i3983"
- "i3984"
- "i3985"
- "i3986"
- "i3987"))
+ #("i13106"
+ "i13107"
+ "i13108"
+ "i13109"
+ "i13110"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3980")))
+ #(ribcage #(x) #((top)) #("i13103")))
(hygiene guile))
'(#(syntax-object
x
@@ -11757,13 +11795,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i3983"
- "i3984"
- "i3985"
- "i3986"
- "i3987"))
+ #("i13106"
+ "i13107"
+ "i13108"
+ "i13109"
+ "i13110"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3980")))
+ #(ribcage #(x) #((top)) #("i13103")))
(hygiene guile)))
(cons '#(syntax-object
syntax-case
@@ -11771,16 +11809,16 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i3983"
- "i3984"
- "i3985"
- "i3986"
- "i3987"))
+ #("i13106"
+ "i13107"
+ "i13108"
+ "i13109"
+ "i13110"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3980")))
+ #("i13103")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -11796,20 +11834,20 @@
(top)
(top)
(top))
- #("i3983"
- "i3984"
- "i3985"
- "i3986"
- "i3987"))
+ #("i13106"
+ "i13107"
+ "i13108"
+ "i13109"
+ "i13110"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3980")))
+ #("i13103")))
(hygiene guile))
- (cons #{k\ 3989}#
- (map (lambda (#{tmp\
3995}#
- #{tmp\
3994}#)
+ (cons #{k\ 13112}#
+ (map (lambda (#{tmp\
13118}#
+ #{tmp\
13117}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -11824,11 +11862,11 @@
(top)
(top)
(top))
-
#("i3983"
-
"i3984"
-
"i3985"
-
"i3986"
-
"i3987"))
+
#("i13106"
+
"i13107"
+
"i13108"
+
"i13109"
+
"i13110"))
#(ribcage
()
()
@@ -11836,10 +11874,10 @@
#(ribcage
#(x)
#((top))
-
#("i3980")))
+
#("i13103")))
(hygiene
guile))
- #{tmp\
3994}#)
+ #{tmp\
13117}#)
(list
'#(syntax-object
syntax
((top)
@@ -11854,11 +11892,11 @@
(top)
(top)
(top))
-
#("i3983"
-
"i3984"
-
"i3985"
-
"i3986"
-
"i3987"))
+
#("i13106"
+
"i13107"
+
"i13108"
+
"i13109"
+
"i13110"))
#(ribcage
()
()
@@ -11866,47 +11904,47 @@
#(ribcage
#(x)
#((top))
-
#("i3980")))
+
#("i13103")))
(hygiene
guile))
- #{tmp\
3995}#)))
- #{template\ 3992}#
- #{pattern\
3991}#))))))
- #{tmp\ 3982}#)
+ #{tmp\
13118}#)))
+ #{template\ 13115}#
+ #{pattern\
13114}#))))))
+ #{tmp\ 13105}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3981}#)))
+ #{tmp\ 13104}#)))
($sc-dispatch
- #{tmp\ 3981}#
+ #{tmp\ 13104}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 3979}#))
+ #{x\ 13102}#))
(module-name (current-module)))))
(define let*
- (make-extended-syncase-macro
- (module-ref (current-module) (quote let*))
+ (make-syntax-transformer
+ 'let*
'macro
- (cons (lambda (#{x\ 3996}#)
- ((lambda (#{tmp\ 3998}#)
- ((lambda (#{tmp\ 3999}#)
- (if (if #{tmp\ 3999}#
- (apply (lambda (#{let*\ 4005}#
- #{x\ 4006}#
- #{v\ 4007}#
- #{e1\ 4008}#
- #{e2\ 4009}#)
- (and-map identifier? #{x\ 4006}#))
- #{tmp\ 3999}#)
+ (cons (lambda (#{x\ 13119}#)
+ ((lambda (#{tmp\ 13121}#)
+ ((lambda (#{tmp\ 13122}#)
+ (if (if #{tmp\ 13122}#
+ (apply (lambda (#{let*\ 13128}#
+ #{x\ 13129}#
+ #{v\ 13130}#
+ #{e1\ 13131}#
+ #{e2\ 13132}#)
+ (and-map identifier? #{x\ 13129}#))
+ #{tmp\ 13122}#)
#f)
- (apply (lambda (#{let*\ 4016}#
- #{x\ 4017}#
- #{v\ 4018}#
- #{e1\ 4019}#
- #{e2\ 4020}#)
- (letrec ((#{f\ 4023}#
- (lambda (#{bindings\ 4024}#)
- (if (null? #{bindings\ 4024}#)
+ (apply (lambda (#{let*\ 13139}#
+ #{x\ 13140}#
+ #{v\ 13141}#
+ #{e1\ 13142}#
+ #{e2\ 13143}#)
+ (letrec ((#{f\ 13146}#
+ (lambda (#{bindings\ 13147}#)
+ (if (null? #{bindings\ 13147}#)
(cons '#(syntax-object
let
((top)
@@ -11914,7 +11952,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4021" "i4022"))
+ #("i13144" "i13145"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -11922,25 +11960,25 @@
(top)
(top)
(top))
- #("i4011"
- "i4012"
- "i4013"
- "i4014"
- "i4015"))
+ #("i13134"
+ "i13135"
+ "i13136"
+ "i13137"
+ "i13138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3997")))
+ #("i13120")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4019}#
- #{e2\ 4020}#)))
- ((lambda (#{tmp\ 4029}#)
- ((lambda (#{tmp\ 4030}#)
- (if #{tmp\ 4030}#
- (apply (lambda (#{body\
4033}#
- #{binding\
4034}#)
+ (cons #{e1\ 13142}#
+ #{e2\ 13143}#)))
+ ((lambda (#{tmp\ 13152}#)
+ ((lambda (#{tmp\ 13153}#)
+ (if #{tmp\ 13153}#
+ (apply (lambda (#{body\
13156}#
+ #{binding\
13157}#)
(list
'#(syntax-object
let
((top)
@@ -11949,8 +11987,8 @@
binding)
#((top)
(top))
-
#("i4031"
-
"i4032"))
+
#("i13154"
+
"i13155"))
#(ribcage
()
()
@@ -11960,8 +11998,8 @@
bindings)
#((top)
(top))
-
#("i4021"
-
"i4022"))
+
#("i13144"
+
"i13145"))
#(ribcage
#(let*
x
@@ -11973,11 +12011,11 @@
(top)
(top)
(top))
-
#("i4011"
-
"i4012"
-
"i4013"
-
"i4014"
-
"i4015"))
+
#("i13134"
+
"i13135"
+
"i13136"
+
"i13137"
+
"i13138"))
#(ribcage
()
()
@@ -11985,56 +12023,57 @@
#(ribcage
#(x)
#((top))
-
#("i3997")))
+
#("i13120")))
(hygiene
guile))
- (list
#{binding\ 4034}#)
- #{body\
4033}#))
- #{tmp\ 4030}#)
+ (list
#{binding\ 13157}#)
+ #{body\
13156}#))
+ #{tmp\ 13153}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 4029}#)))
+ #{tmp\ 13152}#)))
($sc-dispatch
- #{tmp\ 4029}#
+ #{tmp\ 13152}#
'(any any))))
- (list (#{f\ 4023}#
- (cdr #{bindings\ 4024}#))
- (car #{bindings\
4024}#)))))))
- (#{f\ 4023}#
- (map list #{x\ 4017}# #{v\ 4018}#))))
- #{tmp\ 3999}#)
+ (list (#{f\ 13146}#
+ (cdr #{bindings\ 13147}#))
+ (car #{bindings\
13147}#)))))))
+ (#{f\ 13146}#
+ (map list #{x\ 13140}# #{v\ 13141}#))))
+ #{tmp\ 13122}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3998}#)))
+ #{tmp\ 13121}#)))
($sc-dispatch
- #{tmp\ 3998}#
+ #{tmp\ 13121}#
'(any #(each (any any)) any . each-any))))
- #{x\ 3996}#))
+ #{x\ 13119}#))
(module-name (current-module)))))
(define do
- (make-syncase-macro
+ (make-syntax-transformer
+ 'do
'macro
- (cons (lambda (#{orig-x\ 4035}#)
- ((lambda (#{tmp\ 4037}#)
- ((lambda (#{tmp\ 4038}#)
- (if #{tmp\ 4038}#
- (apply (lambda (#{_\ 4046}#
- #{var\ 4047}#
- #{init\ 4048}#
- #{step\ 4049}#
- #{e0\ 4050}#
- #{e1\ 4051}#
- #{c\ 4052}#)
- ((lambda (#{tmp\ 4054}#)
- ((lambda (#{tmp\ 4055}#)
- (if #{tmp\ 4055}#
- (apply (lambda (#{step\ 4057}#)
- ((lambda (#{tmp\ 4058}#)
- ((lambda (#{tmp\ 4059}#)
- (if #{tmp\ 4059}#
+ (cons (lambda (#{orig-x\ 13158}#)
+ ((lambda (#{tmp\ 13160}#)
+ ((lambda (#{tmp\ 13161}#)
+ (if #{tmp\ 13161}#
+ (apply (lambda (#{_\ 13169}#
+ #{var\ 13170}#
+ #{init\ 13171}#
+ #{step\ 13172}#
+ #{e0\ 13173}#
+ #{e1\ 13174}#
+ #{c\ 13175}#)
+ ((lambda (#{tmp\ 13177}#)
+ ((lambda (#{tmp\ 13178}#)
+ (if #{tmp\ 13178}#
+ (apply (lambda (#{step\ 13180}#)
+ ((lambda (#{tmp\ 13181}#)
+ ((lambda (#{tmp\ 13182}#)
+ (if #{tmp\ 13182}#
(apply (lambda ()
(list
'#(syntax-object
let
@@ -12042,7 +12081,7 @@
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12058,13 +12097,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12072,7 +12111,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
'#(syntax-object
@@ -12081,7 +12120,7 @@
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12097,13 +12136,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12111,19 +12150,19 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
(map list
-
#{var\ 4047}#
-
#{init\ 4048}#)
+
#{var\ 13170}#
+
#{init\ 13171}#)
(list
'#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12139,13 +12178,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12153,7 +12192,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
(list '#(syntax-object
@@ -12162,7 +12201,7 @@
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12178,13 +12217,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12192,17 +12231,17 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
-
#{e0\ 4050}#)
+
#{e0\ 13173}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12218,13 +12257,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12232,18 +12271,18 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
(append
-
#{c\ 4052}#
+
#{c\ 13175}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12259,13 +12298,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12273,15 +12312,15 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
-
#{step\ 4057}#)))))))
- #{tmp\ 4059}#)
- ((lambda (#{tmp\ 4064}#)
- (if #{tmp\ 4064}#
- (apply (lambda
(#{e1\ 4067}#
-
#{e2\ 4068}#)
+
#{step\ 13180}#)))))))
+ #{tmp\ 13182}#)
+ ((lambda (#{tmp\ 13187}#)
+ (if #{tmp\ 13187}#
+ (apply (lambda
(#{e1\ 13190}#
+
#{e2\ 13191}#)
(list
'#(syntax-object
let
((top)
@@ -12290,12 +12329,12 @@
e2)
#((top)
(top))
-
#("i4065"
-
"i4066"))
+
#("i13188"
+
"i13189"))
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12311,13 +12350,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12325,7 +12364,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
'#(syntax-object
@@ -12336,12 +12375,12 @@
e2)
#((top)
(top))
-
#("i4065"
-
"i4066"))
+
#("i13188"
+
"i13189"))
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12357,13 +12396,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12371,12 +12410,12 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
(map
list
-
#{var\ 4047}#
-
#{init\ 4048}#)
+
#{var\ 13170}#
+
#{init\ 13171}#)
(list '#(syntax-object
if
((top)
@@ -12385,12 +12424,12 @@
e2)
#((top)
(top))
-
#("i4065"
-
"i4066"))
+
#("i13188"
+
"i13189"))
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12406,13 +12445,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12420,10 +12459,10 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
-
#{e0\ 4050}#
+
#{e0\ 13173}#
(cons '#(syntax-object
begin
((top)
@@ -12432,12 +12471,12 @@
e2)
#((top)
(top))
-
#("i4065"
-
"i4066"))
+
#("i13188"
+
"i13189"))
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12453,13 +12492,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12467,11 +12506,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
-
(cons #{e1\ 4067}#
-
#{e2\ 4068}#))
+
(cons #{e1\ 13190}#
+
#{e2\ 13191}#))
(cons '#(syntax-object
begin
((top)
@@ -12480,12 +12519,12 @@
e2)
#((top)
(top))
-
#("i4065"
-
"i4066"))
+
#("i13188"
+
"i13189"))
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12501,13 +12540,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12515,11 +12554,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
(append
-
#{c\ 4052}#
+
#{c\ 13175}#
(list (cons '#(syntax-object
doloop
((top)
@@ -12528,12 +12567,12 @@
e2)
#((top)
(top))
-
#("i4065"
-
"i4066"))
+
#("i13188"
+
"i13189"))
#(ribcage
#(step)
#((top))
-
#("i4056"))
+
#("i13179"))
#(ribcage
#(_
var
@@ -12549,13 +12588,13 @@
(top)
(top)
(top))
-
#("i4039"
-
"i4040"
-
"i4041"
-
"i4042"
-
"i4043"
-
"i4044"
-
"i4045"))
+
#("i13162"
+
"i13163"
+
"i13164"
+
"i13165"
+
"i13166"
+
"i13167"
+
"i13168"))
#(ribcage
()
()
@@ -12563,106 +12602,107 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4036")))
+
#("i13159")))
(hygiene
guile))
-
#{step\ 4057}#)))))))
- #{tmp\
4064}#)
+
#{step\ 13180}#)))))))
+ #{tmp\
13187}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 4058}#)))
+ #{tmp\ 13181}#)))
($sc-dispatch
- #{tmp\ 4058}#
+ #{tmp\ 13181}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 4058}#
+ #{tmp\ 13181}#
'())))
- #{e1\ 4051}#))
- #{tmp\ 4055}#)
+ #{e1\ 13174}#))
+ #{tmp\ 13178}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4054}#)))
+ #{tmp\ 13177}#)))
($sc-dispatch
- #{tmp\ 4054}#
+ #{tmp\ 13177}#
'each-any)))
- (map (lambda (#{v\ 4075}# #{s\ 4076}#)
- ((lambda (#{tmp\ 4079}#)
- ((lambda (#{tmp\ 4080}#)
- (if #{tmp\ 4080}#
- (apply (lambda () #{v\ 4075}#)
- #{tmp\ 4080}#)
- ((lambda (#{tmp\ 4081}#)
- (if #{tmp\ 4081}#
- (apply (lambda (#{e\ 4083}#)
- #{e\ 4083}#)
- #{tmp\ 4081}#)
- ((lambda (#{_\ 4085}#)
+ (map (lambda (#{v\ 13198}# #{s\ 13199}#)
+ ((lambda (#{tmp\ 13202}#)
+ ((lambda (#{tmp\ 13203}#)
+ (if #{tmp\ 13203}#
+ (apply (lambda () #{v\ 13198}#)
+ #{tmp\ 13203}#)
+ ((lambda (#{tmp\ 13204}#)
+ (if #{tmp\ 13204}#
+ (apply (lambda (#{e\ 13206}#)
+ #{e\ 13206}#)
+ #{tmp\ 13204}#)
+ ((lambda (#{_\ 13208}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4035}#
- #{s\ 4076}#))
- #{tmp\ 4079}#)))
+ #{orig-x\ 13158}#
+ #{s\ 13199}#))
+ #{tmp\ 13202}#)))
($sc-dispatch
- #{tmp\ 4079}#
+ #{tmp\ 13202}#
'(any)))))
($sc-dispatch
- #{tmp\ 4079}#
+ #{tmp\ 13202}#
'())))
- #{s\ 4076}#))
- #{var\ 4047}#
- #{step\ 4049}#)))
- #{tmp\ 4038}#)
+ #{s\ 13199}#))
+ #{var\ 13170}#
+ #{step\ 13172}#)))
+ #{tmp\ 13161}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4037}#)))
+ #{tmp\ 13160}#)))
($sc-dispatch
- #{tmp\ 4037}#
+ #{tmp\ 13160}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 4035}#))
+ #{orig-x\ 13158}#))
(module-name (current-module)))))
(define quasiquote
- (make-syncase-macro
+ (make-syntax-transformer
+ 'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 4092}#
- (lambda (#{x\ 4096}# #{y\ 4097}#)
- ((lambda (#{tmp\ 4101}#)
- ((lambda (#{tmp\ 4102}#)
- (if #{tmp\ 4102}#
- (apply (lambda (#{x\ 4105}# #{y\ 4106}#)
- ((lambda (#{tmp\ 4107}#)
- ((lambda (#{tmp\ 4108}#)
- (if #{tmp\ 4108}#
- (apply (lambda (#{dy\ 4110}#)
- ((lambda (#{tmp\
4111}#)
- ((lambda (#{tmp\
4112}#)
- (if #{tmp\
4112}#
- (apply
(lambda (#{dx\ 4114}#)
+ (cons (letrec ((#{quasicons\ 13215}#
+ (lambda (#{x\ 13219}# #{y\ 13220}#)
+ ((lambda (#{tmp\ 13224}#)
+ ((lambda (#{tmp\ 13225}#)
+ (if #{tmp\ 13225}#
+ (apply (lambda (#{x\ 13228}# #{y\ 13229}#)
+ ((lambda (#{tmp\ 13230}#)
+ ((lambda (#{tmp\ 13231}#)
+ (if #{tmp\ 13231}#
+ (apply (lambda (#{dy\ 13233}#)
+ ((lambda (#{tmp\
13234}#)
+ ((lambda (#{tmp\
13235}#)
+ (if #{tmp\
13235}#
+ (apply
(lambda (#{dx\ 13237}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
-
#("i4113"))
+
#("i13236"))
#(ribcage
#(dy)
#((top))
-
#("i4109"))
+
#("i13232"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4103"
-
"i4104"))
+
#("i13226"
+
"i13227"))
#(ribcage
()
()
@@ -12676,8 +12716,8 @@
y)
#((top)
(top))
-
#("i4098"
-
"i4099"))
+
#("i13221"
+
"i13222"))
#(ribcage
#(quasicons
quasiappend
@@ -12687,35 +12727,35 @@
(top)
(top)
(top))
-
#("i4088"
-
"i4089"
-
"i4090"
-
"i4091")))
+
#("i13211"
+
"i13212"
+
"i13213"
+
"i13214")))
(hygiene
guile))
-
(cons #{dx\ 4114}#
-
#{dy\ 4110}#)))
- #{tmp\
4112}#)
- ((lambda
(#{_\ 4116}#)
- (if (null?
#{dy\ 4110}#)
+
(cons #{dx\ 13237}#
+
#{dy\ 13233}#)))
+ #{tmp\
13235}#)
+ ((lambda
(#{_\ 13239}#)
+ (if (null?
#{dy\ 13233}#)
(list
'#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
-
#("i4115"))
+
#("i13238"))
#(ribcage
#(dy)
#((top))
-
#("i4109"))
+
#("i13232"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4103"
-
"i4104"))
+
#("i13226"
+
"i13227"))
#(ribcage
()
()
@@ -12729,8 +12769,8 @@
y)
#((top)
(top))
-
#("i4098"
-
"i4099"))
+
#("i13221"
+
"i13222"))
#(ribcage
#(quasicons
quasiappend
@@ -12740,31 +12780,31 @@
(top)
(top)
(top))
-
#("i4088"
-
"i4089"
-
"i4090"
-
"i4091")))
+
#("i13211"
+
"i13212"
+
"i13213"
+
"i13214")))
(hygiene
guile))
-
#{x\ 4105}#)
+
#{x\ 13228}#)
(list
'#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
-
#("i4115"))
+
#("i13238"))
#(ribcage
#(dy)
#((top))
-
#("i4109"))
+
#("i13232"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4103"
-
"i4104"))
+
#("i13226"
+
"i13227"))
#(ribcage
()
()
@@ -12778,8 +12818,8 @@
y)
#((top)
(top))
-
#("i4098"
-
"i4099"))
+
#("i13221"
+
"i13222"))
#(ribcage
#(quasicons
quasiappend
@@ -12789,17 +12829,17 @@
(top)
(top)
(top))
-
#("i4088"
-
"i4089"
-
"i4090"
-
"i4091")))
+
#("i13211"
+
"i13212"
+
"i13213"
+
"i13214")))
(hygiene
guile))
-
#{x\ 4105}#
-
#{y\ 4106}#)))
- #{tmp\
4111}#)))
+
#{x\ 13228}#
+
#{y\ 13229}#)))
+ #{tmp\
13234}#)))
($sc-dispatch
- #{tmp\ 4111}#
+ #{tmp\ 13234}#
'(#(free-id
#(syntax-object
quote
@@ -12807,13 +12847,13 @@
#(ribcage
#(dy)
#((top))
-
#("i4109"))
+
#("i13232"))
#(ribcage
#(x y)
#((top)
(top))
-
#("i4103"
-
"i4104"))
+
#("i13226"
+
"i13227"))
#(ribcage
()
()
@@ -12826,8 +12866,8 @@
#(x y)
#((top)
(top))
-
#("i4098"
-
"i4099"))
+
#("i13221"
+
"i13222"))
#(ribcage
#(quasicons
quasiappend
@@ -12837,32 +12877,32 @@
(top)
(top)
(top))
-
#("i4088"
-
"i4089"
-
"i4090"
-
"i4091")))
+
#("i13211"
+
"i13212"
+
"i13213"
+
"i13214")))
(hygiene
guile)))
any))))
- #{x\ 4105}#))
- #{tmp\ 4108}#)
- ((lambda (#{tmp\ 4117}#)
- (if #{tmp\ 4117}#
- (apply (lambda (#{stuff\
4119}#)
+ #{x\ 13228}#))
+ #{tmp\ 13231}#)
+ ((lambda (#{tmp\ 13240}#)
+ (if #{tmp\ 13240}#
+ (apply (lambda (#{stuff\
13242}#)
(cons
'#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
-
#("i4118"))
+
#("i13241"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i4103"
-
"i4104"))
+
#("i13226"
+
"i13227"))
#(ribcage
()
()
@@ -12876,8 +12916,8 @@
y)
#((top)
(top))
-
#("i4098"
-
"i4099"))
+
#("i13221"
+
"i13222"))
#(ribcage
#(quasicons
quasiappend
@@ -12887,29 +12927,29 @@
(top)
(top)
(top))
-
#("i4088"
-
"i4089"
-
"i4090"
-
"i4091")))
+
#("i13211"
+
"i13212"
+
"i13213"
+
"i13214")))
(hygiene
guile))
- (cons #{x\
4105}#
-
#{stuff\ 4119}#)))
- #{tmp\ 4117}#)
- ((lambda (#{else\ 4121}#)
+ (cons #{x\
13228}#
+
#{stuff\ 13242}#)))
+ #{tmp\ 13240}#)
+ ((lambda (#{else\ 13244}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4120"))
+
#("i13243"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4103"
- "i4104"))
+ #("i13226"
+
"i13227"))
#(ribcage
()
()
@@ -12922,8 +12962,8 @@
#(x y)
#((top)
(top))
- #("i4098"
- "i4099"))
+ #("i13221"
+
"i13222"))
#(ribcage
#(quasicons
quasiappend
@@ -12933,17 +12973,17 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
-
"i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+
"i13214")))
(hygiene
guile))
- #{x\ 4105}#
- #{y\ 4106}#))
- #{tmp\ 4107}#)))
+ #{x\ 13228}#
+ #{y\ 13229}#))
+ #{tmp\ 13230}#)))
($sc-dispatch
- #{tmp\ 4107}#
+ #{tmp\ 13230}#
'(#(free-id
#(syntax-object
list
@@ -12951,13 +12991,15 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4103" "i4104"))
+ #("i13226"
+ "i13227"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4098" "i4099"))
+ #("i13221"
+ "i13222"))
#(ribcage
#(quasicons
quasiappend
@@ -12967,15 +13009,15 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4107}#
+ #{tmp\ 13230}#
'(#(free-id
#(syntax-object
quote
@@ -12983,13 +13025,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4103" "i4104"))
+ #("i13226" "i13227"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4098" "i4099"))
+ #("i13221" "i13222"))
#(ribcage
#(quasicons
quasiappend
@@ -12999,44 +13041,44 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
any))))
- #{y\ 4106}#))
- #{tmp\ 4102}#)
+ #{y\ 13229}#))
+ #{tmp\ 13225}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4101}#)))
- ($sc-dispatch #{tmp\ 4101}# (quote (any any)))))
- (list #{x\ 4096}# #{y\ 4097}#))))
- (#{quasiappend\ 4093}#
- (lambda (#{x\ 4122}# #{y\ 4123}#)
- ((lambda (#{tmp\ 4127}#)
- ((lambda (#{tmp\ 4128}#)
- (if #{tmp\ 4128}#
- (apply (lambda (#{x\ 4131}# #{y\ 4132}#)
- ((lambda (#{tmp\ 4133}#)
- ((lambda (#{tmp\ 4134}#)
- (if #{tmp\ 4134}#
- (apply (lambda () #{x\ 4131}#)
- #{tmp\ 4134}#)
- ((lambda (#{_\ 4136}#)
+ #{tmp\ 13224}#)))
+ ($sc-dispatch #{tmp\ 13224}# (quote (any any)))))
+ (list #{x\ 13219}# #{y\ 13220}#))))
+ (#{quasiappend\ 13216}#
+ (lambda (#{x\ 13245}# #{y\ 13246}#)
+ ((lambda (#{tmp\ 13250}#)
+ ((lambda (#{tmp\ 13251}#)
+ (if #{tmp\ 13251}#
+ (apply (lambda (#{x\ 13254}# #{y\ 13255}#)
+ ((lambda (#{tmp\ 13256}#)
+ ((lambda (#{tmp\ 13257}#)
+ (if #{tmp\ 13257}#
+ (apply (lambda () #{x\ 13254}#)
+ #{tmp\ 13257}#)
+ ((lambda (#{_\ 13259}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i4135"))
+ #("i13258"))
#(ribcage
#(x y)
#((top) (top))
- #("i4129"
- "i4130"))
+ #("i13252"
+ "i13253"))
#(ribcage
()
()
@@ -13048,8 +13090,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4124"
- "i4125"))
+ #("i13247"
+ "i13248"))
#(ribcage
#(quasicons
quasiappend
@@ -13059,16 +13101,16 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile))
- #{x\ 4131}#
- #{y\ 4132}#))
- #{tmp\ 4133}#)))
+ #{x\ 13254}#
+ #{y\ 13255}#))
+ #{tmp\ 13256}#)))
($sc-dispatch
- #{tmp\ 4133}#
+ #{tmp\ 13256}#
'(#(free-id
#(syntax-object
quote
@@ -13076,13 +13118,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4129" "i4130"))
+ #("i13252" "i13253"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4124" "i4125"))
+ #("i13247" "i13248"))
#(ribcage
#(quasicons
quasiappend
@@ -13092,45 +13134,45 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
()))))
- #{y\ 4132}#))
- #{tmp\ 4128}#)
+ #{y\ 13255}#))
+ #{tmp\ 13251}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4127}#)))
- ($sc-dispatch #{tmp\ 4127}# (quote (any any)))))
- (list #{x\ 4122}# #{y\ 4123}#))))
- (#{quasivector\ 4094}#
- (lambda (#{x\ 4137}#)
- ((lambda (#{tmp\ 4140}#)
- ((lambda (#{x\ 4142}#)
- ((lambda (#{tmp\ 4143}#)
- ((lambda (#{tmp\ 4144}#)
- (if #{tmp\ 4144}#
- (apply (lambda (#{x\ 4146}#)
+ #{tmp\ 13250}#)))
+ ($sc-dispatch #{tmp\ 13250}# (quote (any any)))))
+ (list #{x\ 13245}# #{y\ 13246}#))))
+ (#{quasivector\ 13217}#
+ (lambda (#{x\ 13260}#)
+ ((lambda (#{tmp\ 13263}#)
+ ((lambda (#{x\ 13265}#)
+ ((lambda (#{tmp\ 13266}#)
+ ((lambda (#{tmp\ 13267}#)
+ (if #{tmp\ 13267}#
+ (apply (lambda (#{x\ 13269}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i4145"))
+ #("i13268"))
#(ribcage
#(x)
#((top))
- #("i4141"))
+ #("i13264"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4138"))
+ #("i13261"))
#(ribcage
#(quasicons
quasiappend
@@ -13140,28 +13182,28 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile))
(list->vector
- #{x\ 4146}#)))
- #{tmp\ 4144}#)
- ((lambda (#{tmp\ 4148}#)
- (if #{tmp\ 4148}#
- (apply (lambda (#{x\ 4150}#)
+ #{x\ 13269}#)))
+ #{tmp\ 13267}#)
+ ((lambda (#{tmp\ 13271}#)
+ (if #{tmp\ 13271}#
+ (apply (lambda (#{x\ 13273}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i4149"))
+ #("i13272"))
#(ribcage
#(x)
#((top))
- #("i4141"))
+ #("i13264"))
#(ribcage
()
()
@@ -13173,7 +13215,7 @@
#(ribcage
#(x)
#((top))
- #("i4138"))
+ #("i13261"))
#(ribcage
#(quasicons
quasiappend
@@ -13183,31 +13225,31 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile))
- #{x\ 4150}#))
- #{tmp\ 4148}#)
- ((lambda (#{_\ 4153}#)
+ #{x\ 13273}#))
+ #{tmp\ 13271}#)
+ ((lambda (#{_\ 13276}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i4152"))
+ #("i13275"))
#(ribcage
#(x)
#((top))
- #("i4141"))
+ #("i13264"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4138"))
+ #("i13261"))
#(ribcage
#(quasicons
quasiappend
@@ -13217,15 +13259,15 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile))
- #{x\ 4142}#))
- #{tmp\ 4143}#)))
+ #{x\ 13265}#))
+ #{tmp\ 13266}#)))
($sc-dispatch
- #{tmp\ 4143}#
+ #{tmp\ 13266}#
'(#(free-id
#(syntax-object
list
@@ -13233,82 +13275,82 @@
#(ribcage
#(x)
#((top))
- #("i4141"))
+ #("i13264"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4138"))
+ #("i13261"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 4143}#
+ #{tmp\ 13266}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4141"))
+ #(ribcage #(x) #((top)) #("i13264"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4138"))
+ #(ribcage #(x) #((top)) #("i13261"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
each-any))))
- #{x\ 4142}#))
- #{tmp\ 4140}#))
- #{x\ 4137}#)))
- (#{quasi\ 4095}#
- (lambda (#{p\ 4154}# #{lev\ 4155}#)
- ((lambda (#{tmp\ 4158}#)
- ((lambda (#{tmp\ 4159}#)
- (if #{tmp\ 4159}#
- (apply (lambda (#{p\ 4161}#)
- (if (= #{lev\ 4155}# 0)
- #{p\ 4161}#
- (#{quasicons\ 4092}#
+ #{x\ 13265}#))
+ #{tmp\ 13263}#))
+ #{x\ 13260}#)))
+ (#{quasi\ 13218}#
+ (lambda (#{p\ 13277}# #{lev\ 13278}#)
+ ((lambda (#{tmp\ 13281}#)
+ ((lambda (#{tmp\ 13282}#)
+ (if #{tmp\ 13282}#
+ (apply (lambda (#{p\ 13284}#)
+ (if (= #{lev\ 13278}# 0)
+ #{p\ 13284}#
+ (#{quasicons\ 13215}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4160"))
+ #("i13283"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4156" "i4157"))
+ #("i13279" "i13280"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile))
#(syntax-object
unquote
@@ -13316,50 +13358,51 @@
#(ribcage
#(p)
#((top))
- #("i4160"))
+ #("i13283"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4156" "i4157"))
+ #("i13279" "i13280"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
- (#{quasi\ 4095}#
- (list #{p\ 4161}#)
- (- #{lev\ 4155}# 1)))))
- #{tmp\ 4159}#)
- ((lambda (#{tmp\ 4162}#)
- (if (if #{tmp\ 4162}#
- (apply (lambda (#{args\ 4164}#)
- (= #{lev\ 4155}# 0))
- #{tmp\ 4162}#)
+ (#{quasi\ 13218}#
+ (list #{p\ 13284}#)
+ (- #{lev\ 13278}# 1)))))
+ #{tmp\ 13282}#)
+ ((lambda (#{tmp\ 13285}#)
+ (if (if #{tmp\ 13285}#
+ (apply (lambda (#{args\ 13287}#)
+ (= #{lev\ 13278}# 0))
+ #{tmp\ 13285}#)
#f)
- (apply (lambda (#{args\ 4166}#)
+ (apply (lambda (#{args\ 13289}#)
(syntax-violation
'unquote
"unquote takes exactly one
argument"
- #{p\ 4154}#
+ #{p\ 13277}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i4165"))
+ #("i13288"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4156" "i4157"))
+ #("i13279"
+ "i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13369,33 +13412,33 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile))
- #{args\ 4166}#)))
- #{tmp\ 4162}#)
- ((lambda (#{tmp\ 4167}#)
- (if #{tmp\ 4167}#
- (apply (lambda (#{p\ 4170}#
- #{q\ 4171}#)
- (if (= #{lev\ 4155}# 0)
- (#{quasiappend\ 4093}#
- #{p\ 4170}#
- (#{quasi\ 4095}#
- #{q\ 4171}#
- #{lev\ 4155}#))
- (#{quasicons\ 4092}#
- (#{quasicons\ 4092}#
+ #{args\ 13289}#)))
+ #{tmp\ 13285}#)
+ ((lambda (#{tmp\ 13290}#)
+ (if #{tmp\ 13290}#
+ (apply (lambda (#{p\ 13293}#
+ #{q\ 13294}#)
+ (if (= #{lev\ 13278}# 0)
+ (#{quasiappend\ 13216}#
+ #{p\ 13293}#
+ (#{quasi\ 13218}#
+ #{q\ 13294}#
+ #{lev\ 13278}#))
+ (#{quasicons\ 13215}#
+ (#{quasicons\ 13215}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4168"
- "i4169"))
+ #("i13291"
+ "i13292"))
#(ribcage
()
()
@@ -13403,8 +13446,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4156"
- "i4157"))
+ #("i13279"
+ "i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13414,10 +13457,10 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -13425,8 +13468,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4168"
- "i4169"))
+ #("i13291"
+ "i13292"))
#(ribcage
()
()
@@ -13434,8 +13477,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4156"
- "i4157"))
+ #("i13279"
+ "i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13445,31 +13488,33 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
- (#{quasi\ 4095}#
- (list #{p\ 4170}#)
- (- #{lev\ 4155}# 1)))
- (#{quasi\ 4095}#
- #{q\ 4171}#
- #{lev\ 4155}#))))
- #{tmp\ 4167}#)
- ((lambda (#{tmp\ 4172}#)
- (if (if #{tmp\ 4172}#
- (apply (lambda (#{args\
4175}#
- #{q\ 4176}#)
- (= #{lev\ 4155}# 0))
- #{tmp\ 4172}#)
+ (#{quasi\ 13218}#
+ (list #{p\ 13293}#)
+ (- #{lev\ 13278}#
+ 1)))
+ (#{quasi\ 13218}#
+ #{q\ 13294}#
+ #{lev\ 13278}#))))
+ #{tmp\ 13290}#)
+ ((lambda (#{tmp\ 13295}#)
+ (if (if #{tmp\ 13295}#
+ (apply (lambda (#{args\
13298}#
+ #{q\ 13299}#)
+ (= #{lev\ 13278}#
+ 0))
+ #{tmp\ 13295}#)
#f)
- (apply (lambda (#{args\ 4179}#
- #{q\ 4180}#)
+ (apply (lambda (#{args\ 13302}#
+ #{q\ 13303}#)
(syntax-violation
'unquote-splicing
"unquote-splicing
takes exactly one argument"
- #{p\ 4154}#
+ #{p\ 13277}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -13477,8 +13522,8 @@
#(args q)
#((top)
(top))
- #("i4177"
-
"i4178"))
+ #("i13300"
+
"i13301"))
#(ribcage
()
()
@@ -13487,8 +13532,8 @@
#(p lev)
#((top)
(top))
- #("i4156"
-
"i4157"))
+ #("i13279"
+
"i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13498,25 +13543,25 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
-
"i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+
"i13214")))
(hygiene
guile))
- #{args\
4179}#)))
- #{tmp\ 4172}#)
- ((lambda (#{tmp\ 4181}#)
- (if #{tmp\ 4181}#
- (apply (lambda (#{p\ 4183}#)
- (#{quasicons\
4092}#
+ #{args\
13302}#)))
+ #{tmp\ 13295}#)
+ ((lambda (#{tmp\ 13304}#)
+ (if #{tmp\ 13304}#
+ (apply (lambda (#{p\
13306}#)
+ (#{quasicons\
13215}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i4182"))
+
#("i13305"))
#(ribcage
()
()
@@ -13525,8 +13570,8 @@
#(p lev)
#((top)
(top))
- #("i4156"
-
"i4157"))
+ #("i13279"
+
"i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13536,10 +13581,10 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
-
"i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+
"i13214")))
(hygiene
guile))
#(syntax-object
@@ -13548,7 +13593,7 @@
#(ribcage
#(p)
#((top))
-
#("i4182"))
+
#("i13305"))
#(ribcage
()
()
@@ -13557,8 +13602,8 @@
#(p lev)
#((top)
(top))
- #("i4156"
-
"i4157"))
+ #("i13279"
+
"i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13568,45 +13613,45 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
-
"i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+
"i13214")))
(hygiene
guile)))
- (#{quasi\ 4095}#
- (list #{p\
4183}#)
- (+ #{lev\
4155}#
+ (#{quasi\ 13218}#
+ (list #{p\
13306}#)
+ (+ #{lev\
13278}#
1))))
- #{tmp\ 4181}#)
- ((lambda (#{tmp\ 4184}#)
- (if #{tmp\ 4184}#
- (apply (lambda (#{p\
4187}#
- #{q\
4188}#)
- (#{quasicons\
4092}#
- (#{quasi\
4095}#
- #{p\
4187}#
- #{lev\
4155}#)
- (#{quasi\
4095}#
- #{q\
4188}#
- #{lev\
4155}#)))
- #{tmp\ 4184}#)
- ((lambda (#{tmp\
4189}#)
- (if #{tmp\ 4189}#
- (apply (lambda
(#{x\ 4191}#)
-
(#{quasivector\ 4094}#
-
(#{quasi\ 4095}#
- #{x\
4191}#
-
#{lev\ 4155}#)))
- #{tmp\
4189}#)
- ((lambda (#{p\
4194}#)
+ #{tmp\ 13304}#)
+ ((lambda (#{tmp\ 13307}#)
+ (if #{tmp\ 13307}#
+ (apply (lambda (#{p\
13310}#
+ #{q\
13311}#)
+ (#{quasicons\
13215}#
+ (#{quasi\
13218}#
+ #{p\
13310}#
+ #{lev\
13278}#)
+ (#{quasi\
13218}#
+ #{q\
13311}#
+ #{lev\
13278}#)))
+ #{tmp\ 13307}#)
+ ((lambda (#{tmp\
13312}#)
+ (if #{tmp\ 13312}#
+ (apply (lambda
(#{x\ 13314}#)
+
(#{quasivector\ 13217}#
+
(#{quasi\ 13218}#
+ #{x\
13314}#
+
#{lev\ 13278}#)))
+ #{tmp\
13312}#)
+ ((lambda (#{p\
13317}#)
(list
'#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i4193"))
+
#("i13316"))
#(ribcage
()
()
@@ -13616,8 +13661,8 @@
lev)
#((top)
(top))
-
#("i4156"
-
"i4157"))
+
#("i13279"
+
"i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13627,23 +13672,23 @@
(top)
(top)
(top))
-
#("i4088"
-
"i4089"
-
"i4090"
-
"i4091")))
+
#("i13211"
+
"i13212"
+
"i13213"
+
"i13214")))
(hygiene
guile))
- #{p\
4194}#))
- #{tmp\ 4158}#)))
+ #{p\
13317}#))
+ #{tmp\ 13281}#)))
($sc-dispatch
- #{tmp\ 4158}#
+ #{tmp\ 13281}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 4158}#
+ #{tmp\ 13281}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4158}#
+ #{tmp\ 13281}#
'(#(free-id
#(syntax-object
quasiquote
@@ -13652,7 +13697,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4156" "i4157"))
+ #("i13279" "i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13662,14 +13707,14 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 4158}#
+ #{tmp\ 13281}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13678,7 +13723,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4156" "i4157"))
+ #("i13279" "i13280"))
#(ribcage
#(quasicons
quasiappend
@@ -13688,17 +13733,17 @@
(top)
(top)
(top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4158}#
+ #{tmp\ 13281}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13707,23 +13752,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4156" "i4157"))
+ #("i13279" "i13280"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4088"
- "i4089"
- "i4090"
- "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4158}#
+ #{tmp\ 13281}#
'(#(free-id
#(syntax-object
unquote
@@ -13732,19 +13777,22 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4156" "i4157"))
+ #("i13279" "i13280"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4088" "i4089" "i4090" "i4091")))
+ #("i13211"
+ "i13212"
+ "i13213"
+ "i13214")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4158}#
+ #{tmp\ 13281}#
'(#(free-id
#(syntax-object
unquote
@@ -13753,238 +13801,243 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4156" "i4157"))
+ #("i13279" "i13280"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4088" "i4089" "i4090" "i4091")))
+ #("i13211" "i13212" "i13213" "i13214")))
(hygiene guile)))
any))))
- #{p\ 4154}#))))
- (lambda (#{x\ 4195}#)
- ((lambda (#{tmp\ 4197}#)
- ((lambda (#{tmp\ 4198}#)
- (if #{tmp\ 4198}#
- (apply (lambda (#{_\ 4201}# #{e\ 4202}#)
- (#{quasi\ 4095}# #{e\ 4202}# 0))
- #{tmp\ 4198}#)
+ #{p\ 13277}#))))
+ (lambda (#{x\ 13318}#)
+ ((lambda (#{tmp\ 13320}#)
+ ((lambda (#{tmp\ 13321}#)
+ (if #{tmp\ 13321}#
+ (apply (lambda (#{_\ 13324}# #{e\ 13325}#)
+ (#{quasi\ 13218}# #{e\ 13325}# 0))
+ #{tmp\ 13321}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4197}#)))
- ($sc-dispatch #{tmp\ 4197}# (quote (any any)))))
- #{x\ 4195}#)))
+ #{tmp\ 13320}#)))
+ ($sc-dispatch #{tmp\ 13320}# (quote (any any)))))
+ #{x\ 13318}#)))
(module-name (current-module)))))
(define include
- (make-syncase-macro
+ (make-syntax-transformer
+ 'include
'macro
- (cons (lambda (#{x\ 4203}#)
- (letrec ((#{read-file\ 4206}#
- (lambda (#{fn\ 4207}# #{k\ 4208}#)
- (let ((#{p\ 4212}# (open-input-file #{fn\ 4207}#)))
- (letrec ((#{f\ 4215}#
- (lambda (#{x\ 4216}#)
- (if (eof-object? #{x\ 4216}#)
+ (cons (lambda (#{x\ 13326}#)
+ (letrec ((#{read-file\ 13329}#
+ (lambda (#{fn\ 13330}# #{k\ 13331}#)
+ (let ((#{p\ 13335}# (open-input-file #{fn\ 13330}#)))
+ (letrec ((#{f\ 13338}#
+ (lambda (#{x\ 13339}#)
+ (if (eof-object? #{x\ 13339}#)
(begin
- (close-input-port #{p\ 4212}#)
+ (close-input-port #{p\ 13335}#)
'())
(cons (datum->syntax
- #{k\ 4208}#
- #{x\ 4216}#)
- (#{f\ 4215}#
- (read #{p\ 4212}#)))))))
- (#{f\ 4215}# (read #{p\ 4212}#)))))))
- ((lambda (#{tmp\ 4217}#)
- ((lambda (#{tmp\ 4218}#)
- (if #{tmp\ 4218}#
- (apply (lambda (#{k\ 4221}# #{filename\ 4222}#)
- (let ((#{fn\ 4224}#
- (syntax->datum #{filename\ 4222}#)))
- ((lambda (#{tmp\ 4226}#)
- ((lambda (#{tmp\ 4227}#)
- (if #{tmp\ 4227}#
- (apply (lambda (#{exp\ 4229}#)
+ #{k\ 13331}#
+ #{x\ 13339}#)
+ (#{f\ 13338}#
+ (read #{p\ 13335}#)))))))
+ (#{f\ 13338}# (read #{p\ 13335}#)))))))
+ ((lambda (#{tmp\ 13340}#)
+ ((lambda (#{tmp\ 13341}#)
+ (if #{tmp\ 13341}#
+ (apply (lambda (#{k\ 13344}# #{filename\ 13345}#)
+ (let ((#{fn\ 13347}#
+ (syntax->datum #{filename\ 13345}#)))
+ ((lambda (#{tmp\ 13349}#)
+ ((lambda (#{tmp\ 13350}#)
+ (if #{tmp\ 13350}#
+ (apply (lambda (#{exp\ 13352}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4228"))
+ #("i13351"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4223"))
+ #("i13346"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4219"
- "i4220"))
+ #("i13342"
+ "i13343"))
#(ribcage
(read-file)
((top))
- ("i4205"))
+ ("i13328"))
#(ribcage
#(x)
#((top))
- #("i4204")))
+ #("i13327")))
(hygiene guile))
- #{exp\ 4229}#))
- #{tmp\ 4227}#)
+ #{exp\ 13352}#))
+ #{tmp\ 13350}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 4226}#)))
+ #{tmp\ 13349}#)))
($sc-dispatch
- #{tmp\ 4226}#
+ #{tmp\ 13349}#
'each-any)))
- (#{read-file\ 4206}#
- #{fn\ 4224}#
- #{k\ 4221}#))))
- #{tmp\ 4218}#)
+ (#{read-file\ 13329}#
+ #{fn\ 13347}#
+ #{k\ 13344}#))))
+ #{tmp\ 13341}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4217}#)))
- ($sc-dispatch #{tmp\ 4217}# (quote (any any)))))
- #{x\ 4203}#)))
+ #{tmp\ 13340}#)))
+ ($sc-dispatch #{tmp\ 13340}# (quote (any any)))))
+ #{x\ 13326}#)))
(module-name (current-module)))))
(define include-from-path
- (make-syncase-macro
+ (make-syntax-transformer
+ 'include-from-path
'macro
- (cons (lambda (#{x\ 4231}#)
- ((lambda (#{tmp\ 4233}#)
- ((lambda (#{tmp\ 4234}#)
- (if #{tmp\ 4234}#
- (apply (lambda (#{k\ 4237}# #{filename\ 4238}#)
- (let ((#{fn\ 4240}#
- (syntax->datum #{filename\ 4238}#)))
- ((lambda (#{tmp\ 4242}#)
- ((lambda (#{fn\ 4244}#)
+ (cons (lambda (#{x\ 13354}#)
+ ((lambda (#{tmp\ 13356}#)
+ ((lambda (#{tmp\ 13357}#)
+ (if #{tmp\ 13357}#
+ (apply (lambda (#{k\ 13360}# #{filename\ 13361}#)
+ (let ((#{fn\ 13363}#
+ (syntax->datum #{filename\ 13361}#)))
+ ((lambda (#{tmp\ 13365}#)
+ ((lambda (#{fn\ 13367}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i4243"))
+ #("i13366"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4239"))
+ #("i13362"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4235" "i4236"))
+ #("i13358" "i13359"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4232")))
+ #("i13355")))
(hygiene guile))
- #{fn\ 4244}#))
- #{tmp\ 4242}#))
- (let ((#{t\ 4247}#
- (%search-load-path #{fn\ 4240}#)))
- (if #{t\ 4247}#
- #{t\ 4247}#
+ #{fn\ 13367}#))
+ #{tmp\ 13365}#))
+ (let ((#{t\ 13370}#
+ (%search-load-path #{fn\ 13363}#)))
+ (if #{t\ 13370}#
+ #{t\ 13370}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4231}#
- #{filename\ 4238}#))))))
- #{tmp\ 4234}#)
+ #{x\ 13354}#
+ #{filename\ 13361}#))))))
+ #{tmp\ 13357}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4233}#)))
- ($sc-dispatch #{tmp\ 4233}# (quote (any any)))))
- #{x\ 4231}#))
+ #{tmp\ 13356}#)))
+ ($sc-dispatch #{tmp\ 13356}# (quote (any any)))))
+ #{x\ 13354}#))
(module-name (current-module)))))
(define unquote
- (make-syncase-macro
+ (make-syntax-transformer
+ 'unquote
'macro
- (cons (lambda (#{x\ 4249}#)
- ((lambda (#{tmp\ 4251}#)
- ((lambda (#{tmp\ 4252}#)
- (if #{tmp\ 4252}#
- (apply (lambda (#{_\ 4255}# #{e\ 4256}#)
+ (cons (lambda (#{x\ 13372}#)
+ ((lambda (#{tmp\ 13374}#)
+ ((lambda (#{tmp\ 13375}#)
+ (if #{tmp\ 13375}#
+ (apply (lambda (#{_\ 13378}# #{e\ 13379}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4249}#))
- #{tmp\ 4252}#)
+ #{x\ 13372}#))
+ #{tmp\ 13375}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4251}#)))
- ($sc-dispatch #{tmp\ 4251}# (quote (any any)))))
- #{x\ 4249}#))
+ #{tmp\ 13374}#)))
+ ($sc-dispatch #{tmp\ 13374}# (quote (any any)))))
+ #{x\ 13372}#))
(module-name (current-module)))))
(define unquote-splicing
- (make-syncase-macro
+ (make-syntax-transformer
+ 'unquote-splicing
'macro
- (cons (lambda (#{x\ 4257}#)
- ((lambda (#{tmp\ 4259}#)
- ((lambda (#{tmp\ 4260}#)
- (if #{tmp\ 4260}#
- (apply (lambda (#{_\ 4263}# #{e\ 4264}#)
+ (cons (lambda (#{x\ 13380}#)
+ ((lambda (#{tmp\ 13382}#)
+ ((lambda (#{tmp\ 13383}#)
+ (if #{tmp\ 13383}#
+ (apply (lambda (#{_\ 13386}# #{e\ 13387}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4257}#))
- #{tmp\ 4260}#)
+ #{x\ 13380}#))
+ #{tmp\ 13383}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4259}#)))
- ($sc-dispatch #{tmp\ 4259}# (quote (any any)))))
- #{x\ 4257}#))
+ #{tmp\ 13382}#)))
+ ($sc-dispatch #{tmp\ 13382}# (quote (any any)))))
+ #{x\ 13380}#))
(module-name (current-module)))))
(define case
- (make-syncase-macro
+ (make-syntax-transformer
+ 'case
'macro
- (cons (lambda (#{x\ 4265}#)
- ((lambda (#{tmp\ 4267}#)
- ((lambda (#{tmp\ 4268}#)
- (if #{tmp\ 4268}#
- (apply (lambda (#{_\ 4273}#
- #{e\ 4274}#
- #{m1\ 4275}#
- #{m2\ 4276}#)
- ((lambda (#{tmp\ 4278}#)
- ((lambda (#{body\ 4280}#)
+ (cons (lambda (#{x\ 13388}#)
+ ((lambda (#{tmp\ 13390}#)
+ ((lambda (#{tmp\ 13391}#)
+ (if #{tmp\ 13391}#
+ (apply (lambda (#{_\ 13396}#
+ #{e\ 13397}#
+ #{m1\ 13398}#
+ #{m2\ 13399}#)
+ ((lambda (#{tmp\ 13401}#)
+ ((lambda (#{body\ 13403}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i4279"))
+ #("i13402"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4269"
- "i4270"
- "i4271"
- "i4272"))
+ #("i13392"
+ "i13393"
+ "i13394"
+ "i13395"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4266")))
+ #("i13389")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -13992,35 +14045,35 @@
#(ribcage
#(body)
#((top))
- #("i4279"))
+ #("i13402"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4269"
- "i4270"
- "i4271"
- "i4272"))
+ #("i13392"
+ "i13393"
+ "i13394"
+ "i13395"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4266")))
+ #("i13389")))
(hygiene guile))
- #{e\ 4274}#))
- #{body\ 4280}#))
- #{tmp\ 4278}#))
- (letrec ((#{f\ 4284}#
- (lambda (#{clause\ 4285}#
- #{clauses\ 4286}#)
- (if (null? #{clauses\ 4286}#)
- ((lambda (#{tmp\ 4288}#)
- ((lambda (#{tmp\ 4289}#)
- (if #{tmp\ 4289}#
- (apply (lambda (#{e1\
4292}#
- #{e2\
4293}#)
+ #{e\ 13397}#))
+ #{body\ 13403}#))
+ #{tmp\ 13401}#))
+ (letrec ((#{f\ 13407}#
+ (lambda (#{clause\ 13408}#
+ #{clauses\ 13409}#)
+ (if (null? #{clauses\ 13409}#)
+ ((lambda (#{tmp\ 13411}#)
+ ((lambda (#{tmp\ 13412}#)
+ (if #{tmp\ 13412}#
+ (apply (lambda (#{e1\
13415}#
+ #{e2\
13416}#)
(cons
'#(syntax-object
begin
((top)
@@ -14029,8 +14082,8 @@
e2)
#((top)
(top))
-
#("i4290"
-
"i4291"))
+
#("i13413"
+
"i13414"))
#(ribcage
()
()
@@ -14042,9 +14095,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14054,10 +14107,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14065,17 +14118,17 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
- (cons
#{e1\ 4292}#
-
#{e2\ 4293}#)))
- #{tmp\ 4289}#)
- ((lambda (#{tmp\ 4295}#)
- (if #{tmp\ 4295}#
- (apply (lambda (#{k\
4299}#
-
#{e1\ 4300}#
-
#{e2\ 4301}#)
+ (cons
#{e1\ 13415}#
+
#{e2\ 13416}#)))
+ #{tmp\ 13412}#)
+ ((lambda (#{tmp\ 13418}#)
+ (if #{tmp\ 13418}#
+ (apply (lambda (#{k\
13422}#
+
#{e1\ 13423}#
+
#{e2\ 13424}#)
(list
'#(syntax-object
if
((top)
@@ -14086,9 +14139,9 @@
#((top)
(top)
(top))
-
#("i4296"
-
"i4297"
-
"i4298"))
+
#("i13419"
+
"i13420"
+
"i13421"))
#(ribcage
()
()
@@ -14100,9 +14153,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14112,10 +14165,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14123,7 +14176,7 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
(list
'#(syntax-object
@@ -14136,9 +14189,9 @@
#((top)
(top)
(top))
-
#("i4296"
-
"i4297"
-
"i4298"))
+
#("i13419"
+
"i13420"
+
"i13421"))
#(ribcage
()
()
@@ -14150,9 +14203,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14162,10 +14215,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14173,7 +14226,7 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
'#(syntax-object
@@ -14186,9 +14239,9 @@
#((top)
(top)
(top))
-
#("i4296"
-
"i4297"
-
"i4298"))
+
#("i13419"
+
"i13420"
+
"i13421"))
#(ribcage
()
()
@@ -14200,9 +14253,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14212,10 +14265,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14223,7 +14276,7 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
(list '#(syntax-object
@@ -14236,9 +14289,9 @@
#((top)
(top)
(top))
-
#("i4296"
-
"i4297"
-
"i4298"))
+
#("i13419"
+
"i13420"
+
"i13421"))
#(ribcage
()
()
@@ -14250,9 +14303,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14262,10 +14315,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14273,10 +14326,10 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
-
#{k\ 4299}#))
+
#{k\ 13422}#))
(cons
'#(syntax-object
begin
((top)
@@ -14287,9 +14340,9 @@
#((top)
(top)
(top))
-
#("i4296"
-
"i4297"
-
"i4298"))
+
#("i13419"
+
"i13420"
+
"i13421"))
#(ribcage
()
()
@@ -14301,9 +14354,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14313,10 +14366,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14324,27 +14377,27 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
-
(cons #{e1\ 4300}#
-
#{e2\ 4301}#))))
- #{tmp\ 4295}#)
- ((lambda (#{_\
4305}#)
+
(cons #{e1\ 13423}#
+
#{e2\ 13424}#))))
+ #{tmp\
13418}#)
+ ((lambda (#{_\
13428}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4265}#
- #{clause\
4285}#))
- #{tmp\ 4288}#)))
+ #{x\ 13388}#
+ #{clause\
13408}#))
+ #{tmp\ 13411}#)))
($sc-dispatch
- #{tmp\ 4288}#
+ #{tmp\ 13411}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 4288}#
+ #{tmp\ 13411}#
'(#(free-id
#(syntax-object
else
@@ -14355,37 +14408,37 @@
#((top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"))
+ #("i13404"
+ "i13405"
+ "i13406"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4269"
- "i4270"
- "i4271"
- "i4272"))
+ #("i13392"
+ "i13393"
+ "i13394"
+ "i13395"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4266")))
+ #("i13389")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 4285}#)
- ((lambda (#{tmp\ 4307}#)
- ((lambda (#{rest\ 4309}#)
- ((lambda (#{tmp\ 4310}#)
- ((lambda (#{tmp\ 4311}#)
- (if #{tmp\ 4311}#
- (apply (lambda
(#{k\ 4315}#
-
#{e1\ 4316}#
-
#{e2\ 4317}#)
+ #{clause\ 13408}#)
+ ((lambda (#{tmp\ 13430}#)
+ ((lambda (#{rest\ 13432}#)
+ ((lambda (#{tmp\ 13433}#)
+ ((lambda (#{tmp\ 13434}#)
+ (if #{tmp\ 13434}#
+ (apply (lambda
(#{k\ 13438}#
+
#{e1\ 13439}#
+
#{e2\ 13440}#)
(list
'#(syntax-object
if
((top)
@@ -14396,13 +14449,13 @@
#((top)
(top)
(top))
-
#("i4312"
-
"i4313"
-
"i4314"))
+
#("i13435"
+
"i13436"
+
"i13437"))
#(ribcage
#(rest)
#((top))
-
#("i4308"))
+
#("i13431"))
#(ribcage
()
()
@@ -14414,9 +14467,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14426,10 +14479,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14437,7 +14490,7 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
(list '#(syntax-object
@@ -14450,13 +14503,13 @@
#((top)
(top)
(top))
-
#("i4312"
-
"i4313"
-
"i4314"))
+
#("i13435"
+
"i13436"
+
"i13437"))
#(ribcage
#(rest)
#((top))
-
#("i4308"))
+
#("i13431"))
#(ribcage
()
()
@@ -14468,9 +14521,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14480,10 +14533,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14491,7 +14544,7 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
'#(syntax-object
@@ -14504,13 +14557,13 @@
#((top)
(top)
(top))
-
#("i4312"
-
"i4313"
-
"i4314"))
+
#("i13435"
+
"i13436"
+
"i13437"))
#(ribcage
#(rest)
#((top))
-
#("i4308"))
+
#("i13431"))
#(ribcage
()
()
@@ -14522,9 +14575,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14534,10 +14587,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14545,7 +14598,7 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
(list '#(syntax-object
@@ -14558,13 +14611,13 @@
#((top)
(top)
(top))
-
#("i4312"
-
"i4313"
-
"i4314"))
+
#("i13435"
+
"i13436"
+
"i13437"))
#(ribcage
#(rest)
#((top))
-
#("i4308"))
+
#("i13431"))
#(ribcage
()
()
@@ -14576,9 +14629,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14588,10 +14641,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14599,10 +14652,10 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
-
#{k\ 4315}#))
+
#{k\ 13438}#))
(cons '#(syntax-object
begin
((top)
@@ -14613,13 +14666,13 @@
#((top)
(top)
(top))
-
#("i4312"
-
"i4313"
-
"i4314"))
+
#("i13435"
+
"i13436"
+
"i13437"))
#(ribcage
#(rest)
#((top))
-
#("i4308"))
+
#("i13431"))
#(ribcage
()
()
@@ -14631,9 +14684,9 @@
#((top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"))
+
#("i13404"
+
"i13405"
+
"i13406"))
#(ribcage
#(_
e
@@ -14643,10 +14696,10 @@
(top)
(top)
(top))
-
#("i4269"
-
"i4270"
-
"i4271"
-
"i4272"))
+
#("i13392"
+
"i13393"
+
"i13394"
+
"i13395"))
#(ribcage
()
()
@@ -14654,60 +14707,61 @@
#(ribcage
#(x)
#((top))
-
#("i4266")))
+
#("i13389")))
(hygiene
guile))
-
(cons #{e1\ 4316}#
-
#{e2\ 4317}#))
-
#{rest\ 4309}#))
- #{tmp\
4311}#)
- ((lambda (#{_\
4321}#)
+
(cons #{e1\ 13439}#
+
#{e2\ 13440}#))
+
#{rest\ 13432}#))
+ #{tmp\
13434}#)
+ ((lambda (#{_\
13444}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4265}#
- #{clause\
4285}#))
- #{tmp\ 4310}#)))
+ #{x\ 13388}#
+ #{clause\
13408}#))
+ #{tmp\ 13433}#)))
($sc-dispatch
- #{tmp\ 4310}#
+ #{tmp\ 13433}#
'(each-any
any
.
each-any))))
- #{clause\ 4285}#))
- #{tmp\ 4307}#))
- (#{f\ 4284}#
- (car #{clauses\ 4286}#)
- (cdr #{clauses\ 4286}#)))))))
- (#{f\ 4284}# #{m1\ 4275}# #{m2\ 4276}#))))
- #{tmp\ 4268}#)
+ #{clause\ 13408}#))
+ #{tmp\ 13430}#))
+ (#{f\ 13407}#
+ (car #{clauses\ 13409}#)
+ (cdr #{clauses\ 13409}#)))))))
+ (#{f\ 13407}# #{m1\ 13398}# #{m2\ 13399}#))))
+ #{tmp\ 13391}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4267}#)))
+ #{tmp\ 13390}#)))
($sc-dispatch
- #{tmp\ 4267}#
+ #{tmp\ 13390}#
'(any any any . each-any))))
- #{x\ 4265}#))
+ #{x\ 13388}#))
(module-name (current-module)))))
(define identifier-syntax
- (make-syncase-macro
+ (make-syntax-transformer
+ 'identifier-syntax
'macro
- (cons (lambda (#{x\ 4322}#)
- ((lambda (#{tmp\ 4324}#)
- ((lambda (#{tmp\ 4325}#)
- (if #{tmp\ 4325}#
- (apply (lambda (#{_\ 4328}# #{e\ 4329}#)
+ (cons (lambda (#{x\ 13445}#)
+ ((lambda (#{tmp\ 13447}#)
+ ((lambda (#{tmp\ 13448}#)
+ (if #{tmp\ 13448}#
+ (apply (lambda (#{_\ 13451}# #{e\ 13452}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449" "i13450"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4323")))
+ #(ribcage #(x) #((top)) #("i13446")))
(hygiene guile))
'(#(syntax-object
x
@@ -14715,9 +14769,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449" "i13450"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4323")))
+ #(ribcage #(x) #((top)) #("i13446")))
(hygiene guile)))
(list '#(syntax-object
syntax-case
@@ -14725,12 +14779,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449" "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
'#(syntax-object
x
@@ -14738,12 +14792,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449" "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -14752,12 +14806,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449" "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -14765,12 +14819,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449" "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
(#(syntax-object
syntax
@@ -14778,12 +14832,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449" "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
#(syntax-object
id
@@ -14791,12 +14845,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449" "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -14804,27 +14858,29 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449"
+ "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
- #{e\ 4329}#))
- (list (cons #{_\ 4328}#
+ #{e\ 13452}#))
+ (list (cons #{_\ 13451}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449"
+ "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
#(syntax-object
...
@@ -14832,12 +14888,13 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449"
+ "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -14845,14 +14902,15 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4326" "i4327"))
+ #("i13449"
+ "i13450"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
- (cons #{e\ 4329}#
+ (cons #{e\ 13452}#
'(#(syntax-object
x
((top)
@@ -14860,8 +14918,8 @@
#(_ e)
#((top)
(top))
- #("i4326"
- "i4327"))
+ #("i13449"
+ "i13450"))
#(ribcage
()
()
@@ -14869,7 +14927,7 @@
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene guile))
#(syntax-object
...
@@ -14878,8 +14936,8 @@
#(_ e)
#((top)
(top))
- #("i4326"
- "i4327"))
+ #("i13449"
+ "i13450"))
#(ribcage
()
()
@@ -14887,80 +14945,85 @@
#(ribcage
#(x)
#((top))
- #("i4323")))
+ #("i13446")))
(hygiene
guile)))))))))
- #{tmp\ 4325}#)
+ #{tmp\ 13448}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4324}#)))
- ($sc-dispatch #{tmp\ 4324}# (quote (any any)))))
- #{x\ 4322}#))
+ #{tmp\ 13447}#)))
+ ($sc-dispatch #{tmp\ 13447}# (quote (any any)))))
+ #{x\ 13445}#))
(module-name (current-module)))))
(define define*
- (make-syncase-macro
+ (make-syntax-transformer
+ 'define*
'macro
- (cons (lambda (#{x\ 4331}#)
- ((lambda (#{tmp\ 4333}#)
- ((lambda (#{tmp\ 4334}#)
- (if #{tmp\ 4334}#
- (apply (lambda (#{dummy\ 4340}#
- #{id\ 4341}#
- #{args\ 4342}#
- #{b0\ 4343}#
- #{b1\ 4344}#)
+ (cons (lambda (#{x\ 13454}#)
+ ((lambda (#{tmp\ 13456}#)
+ ((lambda (#{tmp\ 13457}#)
+ (if #{tmp\ 13457}#
+ (apply (lambda (#{dummy\ 13463}#
+ #{id\ 13464}#
+ #{args\ 13465}#
+ #{b0\ 13466}#
+ #{b1\ 13467}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(dummy id args b0 b1)
- #((m4330 top) (top) (top) (top) (top))
- #("i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
+ #((m13453 top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i13458"
+ "i13459"
+ "i13460"
+ "i13461"
+ "i13462"))
#(ribcage () () ())
#(ribcage
#(x)
- #((m4330 top))
- #("i4332")))
+ #((m13453 top))
+ #("i13455")))
(hygiene guile))
- #{id\ 4341}#
+ #{id\ 13464}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(dummy id args b0 b1)
- #((m4330 top)
+ #((m13453 top)
(top)
(top)
(top)
(top))
- #("i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
+ #("i13458"
+ "i13459"
+ "i13460"
+ "i13461"
+ "i13462"))
#(ribcage () () ())
#(ribcage
#(x)
- #((m4330 top))
- #("i4332")))
+ #((m13453 top))
+ #("i13455")))
(hygiene guile))
- (cons #{args\ 4342}#
- (cons #{b0\ 4343}#
- #{b1\ 4344}#)))))
- #{tmp\ 4334}#)
+ (cons #{args\ 13465}#
+ (cons #{b0\ 13466}#
+ #{b1\ 13467}#)))))
+ #{tmp\ 13457}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4333}#)))
+ #{tmp\ 13456}#)))
($sc-dispatch
- #{tmp\ 4333}#
+ #{tmp\ 13456}#
'(any (any . any) any . each-any))))
- #{x\ 4331}#))
+ #{x\ 13454}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 4e6c849..a9a22c0 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1,6 +1,6 @@
;;;; -*-scheme-*-
;;;;
-;;;; Copyright (C) 2001, 2003, 2006, 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2001, 2003, 2006, 2009, 2010 Free Software Foundation,
Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -308,18 +308,10 @@
(define put-global-definition-hook
(lambda (symbol type val)
- (let ((existing (let ((v (module-variable (current-module) symbol)))
- (and v (variable-bound? v)
- (let ((val (variable-ref v)))
- (and (macro? val)
- (not (syncase-macro-type val))
- val))))))
- (module-define! (current-module)
- symbol
- (if existing
- (make-extended-syncase-macro existing type val)
- (make-syncase-macro type val))))))
-
+ (module-define! (current-module)
+ symbol
+ (make-syntax-transformer symbol type val))))
+
(define get-global-definition-hook
(lambda (symbol module)
(if (and (not module) (current-module))
@@ -330,9 +322,9 @@
symbol)))
(and v (variable-bound? v)
(let ((val (variable-ref v)))
- (and (macro? val) (syncase-macro-type val)
- (cons (syncase-macro-type val)
- (syncase-macro-binding val))))))))
+ (and (macro? val) (macro-type val)
+ (cons (macro-type val)
+ (macro-binding val))))))))
)
@@ -1036,49 +1028,22 @@
(build-global-definition
no-source
name
- ;; FIXME: seems nasty to call current-module here
- (if (let ((v (module-variable (current-module) name)))
- ;; FIXME use primitive-macro?
- (and v (variable-bound? v) (macro? (variable-ref v))
- (not (eq? (macro-type (variable-ref v)) 'syncase-macro))))
- (build-application
- no-source
- (build-primref no-source 'make-extended-syncase-macro)
- (list (build-application
- no-source
- (build-primref no-source 'module-ref)
- (list (build-application
- no-source
- (build-primref no-source 'current-module)
- '())
- (build-data no-source name)))
- (build-data no-source 'macro)
- (build-application
- no-source
- (build-primref no-source 'cons)
- (list e
- (build-application
- no-source
- (build-primref no-source 'module-name)
- (list (build-application
- no-source
- (build-primref no-source 'current-module)
- '())))))))
- (build-application
- no-source
- (build-primref no-source 'make-syncase-macro)
- (list (build-data no-source 'macro)
- (build-application
- no-source
- (build-primref no-source 'cons)
- (list e
- (build-application
- no-source
- (build-primref no-source 'module-name)
- (list (build-application
- no-source
- (build-primref no-source 'current-module)
- '())))))))))))
+ (build-application
+ no-source
+ (build-primref no-source 'make-syntax-transformer)
+ (list (build-data no-source name)
+ (build-data no-source 'macro)
+ (build-application
+ no-source
+ (build-primref no-source 'cons)
+ (list e
+ (build-application
+ no-source
+ (build-primref no-source 'module-name)
+ (list (build-application
+ no-source
+ (build-primref no-source 'current-module)
+ '()))))))))))
(define chi-when-list
(lambda (e when-list w)
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |