[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-112-g3
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-112-g37620f3 |
Date: |
Sat, 19 Jun 2010 12:14:37 +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=37620f3f4e067be9a51b5740698e30c7b1de3a86
The branch, master has been updated
via 37620f3f4e067be9a51b5740698e30c7b1de3a86 (commit)
via ec16eb7847895247be3438c25d2d27ce2e137b83 (commit)
via a0d57eedfa135ae25bdb94274169aac362408bb9 (commit)
via 4c5412a28886f903a1e58c151543a1f2910c2806 (commit)
via 27ae3651bd59051107f8cd0d6a0368b80d3abce3 (commit)
via d8158b837ed950c37cf33bddcd87464d4495d058 (commit)
via bfccdcd53006c1e74676e48d338349e4119b0af9 (commit)
via 7034da249bdbc6067fe192c15bc9200847d0505d (commit)
from a6025413eb8aa5d7b38a8c2423909c468484c3cf (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 37620f3f4e067be9a51b5740698e30c7b1de3a86
Author: Andy Wingo <address@hidden>
Date: Sat Jun 19 13:56:16 2010 +0200
set! name (lambda ...) names the lambda
* module/ice-9/psyntax.scm (build-lexical-assignment)
(build-global-assignment): Maybe name the RHS.
* module/ice-9/psyntax-pp.scm: Regenerated.
* module/ice-9/boot-9.scm (catch, with-throw-handler, throw): Rework to
use set! instead of define! so that we get names.
commit ec16eb7847895247be3438c25d2d27ce2e137b83
Author: Andy Wingo <address@hidden>
Date: Sat Jun 19 13:43:33 2010 +0200
deprecate the-last-stack
* libguile/backtrace.h (scm_the_last_stack_fluid_var)
* libguile/backtrace.c (scm_init_backtrace): No more
scm_the_last_stack_fluid_var. The replacement is to resolve
`the-last-stack' in (ice-9 stack-catch).
(scm_backtrace_with_highlights): Accordingly, instead of backtracing
the last stack, backtrace the current stack.
* libguile/throw.h:
* libguile/throw.c:
* libguile/deprecated.h:
* libguile/deprecated.c (scm_internal_stack_catch): Deprecate this
function.
* module/ice-9/save-stack.scm (the-last-stack): Move here from boot-9.
* module/ice-9/debug.scm:
* module/ice-9/debugger.scm: Use (ice-9 save-stack) for the-last-stack.
* module/ice-9/deprecated.scm (the-last-stack): Add deprecated shim.
commit a0d57eedfa135ae25bdb94274169aac362408bb9
Author: Andy Wingo <address@hidden>
Date: Sat Jun 19 13:36:53 2010 +0200
don't bind the-last-stack in repl.scm
* module/system/repl/repl.scm (start-repl): Don't bind the-last-stack.
commit 4c5412a28886f903a1e58c151543a1f2910c2806
Author: Andy Wingo <address@hidden>
Date: Sat Jun 19 13:36:23 2010 +0200
no the-last-stack in ice-9 threads
* module/ice-9/threads.scm (thread-handler): Don't muck with
the-last-stack.
commit 27ae3651bd59051107f8cd0d6a0368b80d3abce3
Author: Andy Wingo <address@hidden>
Date: Sat Jun 19 13:35:36 2010 +0200
remove the-last-stack from boot-9
* module/ice-9/boot-9.scm (false-if-exception): Use syntax-rules. Don't
muck with the-last-stack, it is going away. Remove a later comment
about the-last-stack.
commit d8158b837ed950c37cf33bddcd87464d4495d058
Author: Andy Wingo <address@hidden>
Date: Sat Jun 19 12:57:31 2010 +0200
deprecate save-stack, stack-saved?
* module/Makefile.am:
* module/ice-9/boot-9.scm:
* module/ice-9/save-stack.scm (stack-saved?, save-stack): Move these
bindings to their own module.
* module/oop/goops.scm (goops-error):
* module/ice-9/boot-9.scm (error, top-repl): Remove calls to save-stack.
* module/ice-9/deprecated.scm (stack-saved?, save-stack): Add deprecated
shims.
* module/ice-9/emacs.scm:
* module/ice-9/stack-catch.scm:
* module/ice-9/debugger/command-loop.scm:
* module/ice-9/scm-style-repl.scm: Import (ice-9 save-stack).
commit bfccdcd53006c1e74676e48d338349e4119b0af9
Author: Andy Wingo <address@hidden>
Date: Sat Jun 19 12:43:40 2010 +0200
add support for variable transformers: settable identifier syntax
* module/ice-9/psyntax.scm (set!): Handle variable transformers; though,
they cannot produce definitions.
(make-variable-transformer): New procedure.
(identifier-syntax): Allow the R6RS form that makes variable
transformers.
* module/ice-9/psyntax-pp.scm: Regenerated.
* doc/ref/r6rs.texi (R6RS Incompatibilities): Remove letrec* item, and
add set! restriction.
commit 7034da249bdbc6067fe192c15bc9200847d0505d
Author: Andy Wingo <address@hidden>
Date: Sat Jun 19 11:43:48 2010 +0200
handle-system-error to scm-style-repl
* module/ice-9/boot-9.scm:
* module/ice-9/scm-style-repl.scm (handle-system-error): Move here from
boot-9.
* module/ice-9/deprecated.scm (handle-system-error): Keep a deprecated
wrapper in the root environment.
-----------------------------------------------------------------------
Summary of changes:
doc/ref/r6rs.texi | 10 +-
libguile/backtrace.c | 48 +-
libguile/backtrace.h | 4 +-
libguile/deprecated.c | 49 +
libguile/deprecated.h | 8 +
libguile/throw.c | 44 -
libguile/throw.h | 8 +-
module/Makefile.am | 1 +
module/ice-9/boot-9.scm | 135 +-
module/ice-9/debug.scm | 5 +-
module/ice-9/debugger.scm | 1 +
module/ice-9/debugger/command-loop.scm | 1 +
module/ice-9/deprecated.scm | 42 +-
module/ice-9/emacs.scm | 3 +-
module/ice-9/psyntax-pp.scm |16761 +++++++++++++++++---------------
module/ice-9/psyntax.scm | 54 +-
module/ice-9/save-stack.scm | 58 +
module/ice-9/scm-style-repl.scm | 26 +-
module/ice-9/stack-catch.scm | 1 +
module/ice-9/threads.scm | 3 +-
module/oop/goops.scm | 3 +-
module/system/repl/repl.scm | 3 +-
22 files changed, 8954 insertions(+), 8314 deletions(-)
create mode 100644 module/ice-9/save-stack.scm
diff --git a/doc/ref/r6rs.texi b/doc/ref/r6rs.texi
index aee73c3..c8bc815 100644
--- a/doc/ref/r6rs.texi
+++ b/doc/ref/r6rs.texi
@@ -25,10 +25,6 @@ Please let the Guile developers know if you find one that is
not on this list.
@itemize
@item
-In the R6RS, internal definitions expand to @code{letrec*}, not @code{letrec}.
-Guile does not support @code{letrec*}, though that would be nice.
-
address@hidden
The R6RS specifies many situations in which a conforming implementation must
signal a specific error. Guile doesn't really care about that too much -- if a
correct R6RS program would not hit that error, we don't bother checking for it.
@@ -37,8 +33,12 @@ correct R6RS program would not hit that error, we don't
bother checking for it.
Multiple @code{library} forms in one file are not yet supported. This is
because
the expansion of @code{library} sets the current module, but does not restore
it. This is a bug.
address@hidden itemize
address@hidden
+A @code{set!} to a variable transformer may only expand to an expression, not a
+definition -- even if the original @code{set!} expression was in definition
+context.
address@hidden itemize
@node R6RS Standard Libraries
@subsection R6RS Standard Libraries
diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index bfd8d97..aac7e20 100644
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -71,8 +71,6 @@
if (!(_cond)) \
return SCM_BOOL_F;
-SCM scm_the_last_stack_fluid_var;
-
static void
display_header (SCM source, SCM port)
{
@@ -662,43 +660,24 @@ SCM_VARIABLE (scm_has_shown_backtrace_hint_p_var,
"has-shown-backtrace-hint?");
SCM_DEFINE (scm_backtrace_with_highlights, "backtrace", 0, 1, 0,
(SCM highlights),
- "Display a backtrace of the stack saved by the last error\n"
- "to the current output port. If @var{highlights} is given\n"
- "it should be a list; the elements of this list will be\n"
- "highlighted wherever they appear in the backtrace.")
+ "Display a backtrace of the current stack to the current\n"
+ "output port. If @var{highlights} is given, it should be\n"
+ "a list; the elements of this list will be highlighted\n"
+ "wherever they appear in the backtrace.")
#define FUNC_NAME s_scm_backtrace_with_highlights
{
SCM port = scm_current_output_port ();
- SCM the_last_stack =
- scm_fluid_ref (SCM_VARIABLE_REF (scm_the_last_stack_fluid_var));
-
+ SCM stack = scm_make_stack (SCM_BOOL_T, SCM_EOL);
+
if (SCM_UNBNDP (highlights))
highlights = SCM_EOL;
- if (scm_is_true (the_last_stack))
- {
- scm_newline (port);
- scm_puts ("Backtrace:\n", port);
- scm_display_backtrace_with_highlights (the_last_stack,
- port,
- SCM_BOOL_F,
- SCM_BOOL_F,
- highlights);
- scm_newline (port);
- if (scm_is_false (SCM_VARIABLE_REF (scm_has_shown_backtrace_hint_p_var))
- && !SCM_BACKTRACE_P)
- {
- scm_puts ("Type \"(debug-enable 'backtrace)\" if you would like "
- "a backtrace\n"
- "automatically if an error occurs in the future.\n",
- port);
- SCM_VARIABLE_SET (scm_has_shown_backtrace_hint_p_var, SCM_BOOL_T);
- }
- }
- else
- {
- scm_puts ("No backtrace available.\n", port);
- }
+ scm_newline (port);
+ scm_puts ("Backtrace:\n", port);
+ scm_display_backtrace_with_highlights (stack, port, SCM_BOOL_F, SCM_BOOL_F,
+ highlights);
+ scm_newline (port);
+
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
@@ -714,9 +693,6 @@ scm_backtrace (void)
void
scm_init_backtrace ()
{
- SCM f = scm_make_fluid ();
- scm_the_last_stack_fluid_var = scm_c_define ("the-last-stack", f);
-
#include "libguile/backtrace.x"
}
diff --git a/libguile/backtrace.h b/libguile/backtrace.h
index c065166..22d2d03 100644
--- a/libguile/backtrace.h
+++ b/libguile/backtrace.h
@@ -3,7 +3,7 @@
#ifndef SCM_BACKTRACE_H
#define SCM_BACKTRACE_H
-/* Copyright (C) 1996,1998,1999,2000,2001, 2004, 2006, 2008 Free Software
Foundation, Inc.
+/* Copyright (C) 1996,1998,1999,2000,2001, 2004, 2006, 2008, 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
@@ -25,8 +25,6 @@
#include "libguile/__scm.h"
-SCM_API SCM scm_the_last_stack_fluid_var;
-
SCM_API void scm_display_error_message (SCM message, SCM args, SCM port);
SCM_INTERNAL void scm_i_display_error (SCM stack, SCM port, SCM subr,
SCM message, SCM args, SCM rest);
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index b6e89bb..a35e21a 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1937,6 +1937,55 @@ scm_badargsp (SCM formals, SCM args)
+/* scm_internal_stack_catch
+ Use this one if you want debugging information to be stored in
+ the-last-stack on error. */
+
+static SCM
+ss_handler (void *data SCM_UNUSED, SCM tag, SCM throw_args)
+{
+ /* In the stack */
+ scm_fluid_set_x (scm_variable_ref
+ (scm_c_module_lookup
+ (scm_c_resolve_module ("ice-9 save-stack"),
+ "the-last-stack")),
+ scm_make_stack (SCM_BOOL_T, SCM_EOL));
+ /* Throw the error */
+ return scm_throw (tag, throw_args);
+}
+
+struct cwss_data
+{
+ SCM tag;
+ scm_t_catch_body body;
+ void *data;
+};
+
+static SCM
+cwss_body (void *data)
+{
+ struct cwss_data *d = data;
+ return scm_c_with_throw_handler (d->tag, d->body, d->data, ss_handler, NULL,
0);
+}
+
+SCM
+scm_internal_stack_catch (SCM tag,
+ scm_t_catch_body body,
+ void *body_data,
+ scm_t_catch_handler handler,
+ void *handler_data)
+{
+ struct cwss_data d;
+ d.tag = tag;
+ d.body = body;
+ d.data = body_data;
+ scm_c_issue_deprecation_warning
+ ("`scm_internal_stack_catch' is deprecated. Talk to guile-devel if you see
this message.");
+ return scm_internal_catch (tag, cwss_body, &d, handler, handler_data);
+}
+
+
+
void
scm_i_init_deprecated ()
{
diff --git a/libguile/deprecated.h b/libguile/deprecated.h
index 877b826..65eda5b 100644
--- a/libguile/deprecated.h
+++ b/libguile/deprecated.h
@@ -26,6 +26,7 @@
#include "libguile/__scm.h"
#include "libguile/strings.h"
#include "libguile/eval.h"
+#include "libguile/throw.h"
#if (SCM_ENABLE_DEPRECATED == 1)
@@ -630,6 +631,13 @@ SCM_DEPRECATED SCM scm_dynamic_args_call (SCM symb, SCM
dobj, SCM args);
/* Deprecated 2010-05-12, no replacement */
SCM_DEPRECATED int scm_badargsp (SCM formals, SCM args);
+/* Deprecated 2010-06-19, use call-with-error-handling instead */
+SCM_DEPRECATED SCM scm_internal_stack_catch (SCM tag,
+ scm_t_catch_body body,
+ void *body_data,
+ scm_t_catch_handler handler,
+ void *handler_data);
+
void scm_i_init_deprecated (void);
diff --git a/libguile/throw.c b/libguile/throw.c
index 3e95fb3..a6f04e1 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -253,50 +253,6 @@ scm_c_with_throw_handler (SCM tag,
}
-/* scm_internal_stack_catch
- Use this one if you want debugging information to be stored in
- scm_the_last_stack_fluid_var on error. */
-
-static SCM
-ss_handler (void *data SCM_UNUSED, SCM tag, SCM throw_args)
-{
- /* Save the stack */
- scm_fluid_set_x (SCM_VARIABLE_REF (scm_the_last_stack_fluid_var),
- scm_make_stack (SCM_BOOL_T, SCM_EOL));
- /* Throw the error */
- return scm_throw (tag, throw_args);
-}
-
-struct cwss_data
-{
- SCM tag;
- scm_t_catch_body body;
- void *data;
-};
-
-static SCM
-cwss_body (void *data)
-{
- struct cwss_data *d = data;
- return scm_c_with_throw_handler (d->tag, d->body, d->data, ss_handler, NULL,
0);
-}
-
-SCM
-scm_internal_stack_catch (SCM tag,
- scm_t_catch_body body,
- void *body_data,
- scm_t_catch_handler handler,
- void *handler_data)
-{
- struct cwss_data d;
- d.tag = tag;
- d.body = body;
- d.data = body_data;
- return scm_internal_catch (tag, cwss_body, &d, handler, handler_data);
-}
-
-
-
/* body and handler functions for use with any of the above catch variants */
/* This is a body function you can pass to scm_internal_catch if you
diff --git a/libguile/throw.h b/libguile/throw.h
index d14cbf8..6cf6790 100644
--- a/libguile/throw.h
+++ b/libguile/throw.h
@@ -3,7 +3,7 @@
#ifndef SCM_THROW_H
#define SCM_THROW_H
-/* Copyright (C) 1995,1996,1998,2000, 2006, 2008 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,2000, 2006, 2008, 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
@@ -52,12 +52,6 @@ SCM_API SCM scm_internal_catch (SCM tag,
scm_t_catch_handler handler,
void *handler_data);
-SCM_API SCM scm_internal_stack_catch (SCM tag,
- scm_t_catch_body body,
- void *body_data,
- scm_t_catch_handler handler,
- void *handler_data);
-
/* The first argument to scm_body_thunk should be a pointer to one of
these. See the implementation of catch in throw.c. */
struct scm_body_thunk_data
diff --git a/module/Makefile.am b/module/Makefile.am
index e0f1abd..08367c4 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -210,6 +210,7 @@ ICE_9_SOURCES = \
ice-9/rw.scm \
ice-9/safe-r5rs.scm \
ice-9/safe.scm \
+ ice-9/save-stack.scm \
ice-9/scm-style-repl.scm \
ice-9/session.scm \
ice-9/slib.scm \
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index d7f010f..3928d1e 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -67,6 +67,7 @@
;; Define catch and with-throw-handler, using some common helper routines and a
;; shared fluid. Hide the helpers in a lexical contour.
+(define with-throw-handler #f)
(let ()
;; Ideally we'd like to be able to give these default values for all threads,
;; even threads not created by Guile; but alack, that does not currently seem
@@ -118,9 +119,9 @@
(apply prev thrown-k args))))
(apply prev thrown-k args)))))
- (define! 'catch
- (lambda* (k thunk handler #:optional pre-unwind-handler)
- "Invoke @var{thunk} in the dynamic context of @var{handler} for
+ (set! catch
+ (lambda* (k thunk handler #:optional pre-unwind-handler)
+ "Invoke @var{thunk} in the dynamic context of @var{handler} for
exceptions matching @var{key}. If thunk throws to the symbol
@var{key}, then @var{handler} is invoked this way:
@lisp
@@ -153,47 +154,47 @@ A @var{pre-unwind-handler} can exit either normally or
non-locally.
If it exits normally, Guile unwinds the stack and dynamic context
and then calls the normal (third argument) handler. If it exits
non-locally, that exit determines the continuation."
- (if (not (or (symbol? k) (eqv? k #t)))
- (scm-error "catch" 'wrong-type-arg
- "Wrong type argument in position ~a: ~a"
- (list 1 k) (list k)))
- (let ((tag (make-prompt-tag "catch")))
- (call-with-prompt
- tag
- (lambda ()
- (with-fluids
- ((%exception-handler
- (if pre-unwind-handler
- (custom-throw-handler tag k pre-unwind-handler)
- (default-throw-handler tag k))))
- (thunk)))
- (lambda (cont k . args)
- (apply handler k args))))))
-
- (define! 'with-throw-handler
- (lambda (k thunk pre-unwind-handler)
- "Add @var{handler} to the dynamic context as a throw handler
+ (if (not (or (symbol? k) (eqv? k #t)))
+ (scm-error "catch" 'wrong-type-arg
+ "Wrong type argument in position ~a: ~a"
+ (list 1 k) (list k)))
+ (let ((tag (make-prompt-tag "catch")))
+ (call-with-prompt
+ tag
+ (lambda ()
+ (with-fluids
+ ((%exception-handler
+ (if pre-unwind-handler
+ (custom-throw-handler tag k pre-unwind-handler)
+ (default-throw-handler tag k))))
+ (thunk)))
+ (lambda (cont k . args)
+ (apply handler k args))))))
+
+ (set! with-throw-handler
+ (lambda (k thunk pre-unwind-handler)
+ "Add @var{handler} to the dynamic context as a throw handler
for key @var{key}, then invoke @var{thunk}."
- (if (not (or (symbol? k) (eqv? k #t)))
- (scm-error "with-throw-handler" 'wrong-type-arg
- "Wrong type argument in position ~a: ~a"
- (list 1 k) (list k)))
- (with-fluids ((%exception-handler
- (custom-throw-handler #f k pre-unwind-handler)))
- (thunk))))
-
- (define! 'throw
- (lambda (key . args)
- "Invoke the catch form matching @var{key}, passing @var{args} to the
+ (if (not (or (symbol? k) (eqv? k #t)))
+ (scm-error "with-throw-handler" 'wrong-type-arg
+ "Wrong type argument in position ~a: ~a"
+ (list 1 k) (list k)))
+ (with-fluids ((%exception-handler
+ (custom-throw-handler #f k pre-unwind-handler)))
+ (thunk))))
+
+ (set! throw
+ (lambda (key . args)
+ "Invoke the catch form matching @var{key}, passing @var{args} to the
@var{handler}.
@var{key} is a symbol. It will match catches of the same symbol or of
@code{#t}.
If there is no handler at all, Guile prints an error and then exits."
- (if (not (symbol? key))
- ((exception-handler) 'wrong-type-arg "throw"
- "Wrong type argument in position ~a: ~a" (list 1 key) (list key))
- (apply (exception-handler) key args)))))
+ (if (not (symbol? key))
+ ((exception-handler) 'wrong-type-arg "throw"
+ "Wrong type argument in position ~a: ~a" (list 1 key) (list
key))
+ (apply (exception-handler) key args)))))
@@ -532,13 +533,12 @@ If there is no handler at all, Guile prints an error and
then exits."
(define (and=> value procedure) (and value (procedure value)))
(define call/cc call-with-current-continuation)
-(defmacro false-if-exception (expr)
- `(catch #t
- (lambda ()
- ;; avoid saving backtraces inside false-if-exception
- (with-fluids ((the-last-stack (fluid-ref the-last-stack)))
- ,expr))
- (lambda args #f)))
+(define-syntax false-if-exception
+ (syntax-rules ()
+ ((_ expr)
+ (catch #t
+ (lambda () expr)
+ (lambda (k . args) #f)))))
@@ -856,10 +856,8 @@ If there is no handler at all, Guile prints an error and
then exits."
(define error
(case-lambda
(()
- (save-stack)
(scm-error 'misc-error #f "?" #f #f))
((message . args)
- (save-stack)
(let ((msg (string-join (cons "~A" (make-list (length args) "~S")))))
(scm-error 'misc-error #f msg (cons message args) #f)))))
@@ -2689,48 +2687,6 @@ module '(ice-9 q) '(make-q q-length))}."
(fluid-set! *repl-level* #f)
(restore-signals))
-;;(define the-last-stack (make-fluid)) Defined by scm_init_backtrace ()
-;; FIXME: stack-saved? is broken in the presence of threads.
-(define stack-saved? #f)
-
-(define (save-stack . narrowing)
- (if (not stack-saved?)
- (begin
- (let ((stacks (fluid-ref %stacks)))
- (fluid-set! the-last-stack
- ;; (make-stack obj inner outer inner outer ...)
- ;;
- ;; In this case, cut away the make-stack frame, the
- ;; save-stack frame, and then narrow as specified by the
- ;; user, delimited by the nearest start-stack invocation,
- ;; if any.
- (apply make-stack #t
- 2
- (if (pair? stacks) (cdar stacks) 0)
- narrowing)))
- (set! stack-saved? #t))))
-
-(define (handle-system-error key . args)
- (let ((cep (current-error-port)))
- (cond ((not (stack? (fluid-ref the-last-stack))))
- ((memq 'backtrace (debug-options-interface))
- (let ((highlights (if (or (eq? key 'wrong-type-arg)
- (eq? key 'out-of-range))
- (list-ref args 3)
- '())))
- (run-hook before-backtrace-hook)
- (newline cep)
- (display "Backtrace:\n")
- (display-backtrace (fluid-ref the-last-stack) cep
- #f #f highlights)
- (newline cep)
- (run-hook after-backtrace-hook))))
- (run-hook before-error-hook)
- (apply display-error (fluid-ref the-last-stack) cep args)
- (run-hook after-error-hook)
- (force-output cep)
- (throw 'abort key)))
-
(define (quit . args)
(apply throw 'quit args))
@@ -3459,7 +3415,6 @@ module '(ice-9 q) '(make-q q-length))}."
(lambda ()
(let ((make-handler (lambda (msg)
(lambda (sig)
- (save-stack 2)
(scm-error 'signal
#f
msg
diff --git a/module/ice-9/debug.scm b/module/ice-9/debug.scm
index 1fd5b66..2f728e7 100644
--- a/module/ice-9/debug.scm
+++ b/module/ice-9/debug.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2006 Free Software
Foundation
+;;;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2006, 2010 Free Software
Foundation
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -20,7 +20,8 @@
(define-module (ice-9 debug)
- :export (frame-number->index trace untrace trace-stack untrace-stack))
+ #:use-module (ice-9 save-stack)
+ #:export (frame-number->index trace untrace trace-stack untrace-stack))
;;; {Misc}
diff --git a/module/ice-9/debugger.scm b/module/ice-9/debugger.scm
index baece4e..9a5e4af 100644
--- a/module/ice-9/debugger.scm
+++ b/module/ice-9/debugger.scm
@@ -22,6 +22,7 @@
#:use-module (ice-9 debugger utils)
#:use-module (ice-9 debugging traps)
#:use-module (ice-9 scm-style-repl)
+ #:use-module (ice-9 save-stack)
#:use-module (ice-9 format)
#:export (debug-stack
debug
diff --git a/module/ice-9/debugger/command-loop.scm
b/module/ice-9/debugger/command-loop.scm
index 5b38255..b58952d 100644
--- a/module/ice-9/debugger/command-loop.scm
+++ b/module/ice-9/debugger/command-loop.scm
@@ -21,6 +21,7 @@
#:use-module (ice-9 debugger)
#:use-module (ice-9 debugger state)
#:use-module (ice-9 debugging traps)
+ #:use-module (ice-9 save-stack)
#:export (debugger-command-loop
debugger-command-loop-error
debugger-command-loop-quit)
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index 27c70f8..ebc9709 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -58,7 +58,11 @@
set-batch-mode?!
repl
pre-unwind-handler-dispatch
- default-pre-unwind-handler)
+ default-pre-unwind-handler
+ handle-system-error
+ stack-saved?
+ the-last-stack
+ save-stack)
#:replace (module-ref-submodule module-define-submodule!))
@@ -630,3 +634,39 @@ the `(system repl common)' module.")
"`default-pre-unwind-handler' is deprecated. Use it from
`(ice-9 scm-style-repl)' if you need it.")
(apply (@ (ice-9 scm-style-repl) default-pre-unwind-handler) key args))
+
+(define (handle-system-error key . args)
+ (issue-deprecation-warning
+ "`handle-system-error' is deprecated. Use it from
+`(ice-9 scm-style-repl)' if you need it.")
+ (apply (@ (ice-9 scm-style-repl) handle-system-error) key args))
+
+(define-syntax stack-saved?
+ (make-variable-transformer
+ (lambda (x)
+ (issue-deprecation-warning
+ "`stack-saved?' is deprecated. Use it from
+`(ice-9 save-stack)' if you need it.")
+ (syntax-case x (set!)
+ ((set! id val)
+ (identifier? #'id)
+ #'(set! (@ (ice-9 save-stack) stack-saved?) val))
+ (id
+ (identifier? #'id)
+ #'(@ (ice-9 save-stack) stack-saved?))))))
+
+(define-syntax the-last-stack
+ (lambda (x)
+ (issue-deprecation-warning
+ "`the-last-stack' is deprecated. Use it from `(ice-9 save-stack)'
+if you need it.")
+ (syntax-case x ()
+ (id
+ (identifier? #'id)
+ #'(@ (ice-9 save-stack) the-last-stack)))))
+
+(define (save-stack . args)
+ (issue-deprecation-warning
+ "`save-stack' is deprecated. Use it from `(ice-9 save-stack)' if you need
+it.")
+ (apply (@ (ice-9 save-stack) save-stack) args))
diff --git a/module/ice-9/emacs.scm b/module/ice-9/emacs.scm
index 5bd5282..341870a 100644
--- a/module/ice-9/emacs.scm
+++ b/module/ice-9/emacs.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2006, 2009 Free
Software Foundation, Inc.
+;;;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2006, 2009, 2010 Free
Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -32,6 +32,7 @@
:use-module (ice-9 debug)
:use-module (ice-9 threads)
:use-module (ice-9 session)
+ :use-module (ice-9 save-stack)
:no-backtrace)
(define emacs-escape-character #\sub)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 2ecbca5..a186682 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1216 +2,1233 @@
(if #f #f)
(letrec*
- ((#{and-map*\ 35}#
- (lambda (#{f\ 207}# #{first\ 208}# . #{rest\ 209}#)
+ ((#{and-map*\ 2144}#
+ (lambda (#{f\ 2316}# #{first\ 2317}# . #{rest\ 2318}#)
(begin
- (let ((#{t\ 215}# (null? #{first\ 208}#)))
- (if #{t\ 215}#
- #{t\ 215}#
- (if (null? #{rest\ 209}#)
+ (let ((#{t\ 2324}# (null? #{first\ 2317}#)))
+ (if #{t\ 2324}#
+ #{t\ 2324}#
+ (if (null? #{rest\ 2318}#)
(letrec*
- ((#{andmap\ 219}#
- (lambda (#{first\ 220}#)
+ ((#{andmap\ 2328}#
+ (lambda (#{first\ 2329}#)
(begin
- (let ((#{x\ 223}# (car #{first\ 220}#))
- (#{first\ 224}# (cdr #{first\ 220}#)))
- (if (null? #{first\ 224}#)
- (#{f\ 207}# #{x\ 223}#)
- (if (#{f\ 207}# #{x\ 223}#)
- (#{andmap\ 219}# #{first\ 224}#)
+ (let ((#{x\ 2332}# (car #{first\ 2329}#))
+ (#{first\ 2333}# (cdr #{first\ 2329}#)))
+ (if (null? #{first\ 2333}#)
+ (#{f\ 2316}# #{x\ 2332}#)
+ (if (#{f\ 2316}# #{x\ 2332}#)
+ (#{andmap\ 2328}# #{first\ 2333}#)
#f)))))))
- (begin (#{andmap\ 219}# #{first\ 208}#)))
+ (begin (#{andmap\ 2328}# #{first\ 2317}#)))
(letrec*
- ((#{andmap\ 230}#
- (lambda (#{first\ 231}# #{rest\ 232}#)
+ ((#{andmap\ 2339}#
+ (lambda (#{first\ 2340}# #{rest\ 2341}#)
(begin
- (let ((#{x\ 237}# (car #{first\ 231}#))
- (#{xr\ 238}# (map car #{rest\ 232}#))
- (#{first\ 239}# (cdr #{first\ 231}#))
- (#{rest\ 240}# (map cdr #{rest\ 232}#)))
- (if (null? #{first\ 239}#)
- (@apply #{f\ 207}# (cons #{x\ 237}# #{xr\ 238}#))
+ (let ((#{x\ 2346}# (car #{first\ 2340}#))
+ (#{xr\ 2347}# (map car #{rest\ 2341}#))
+ (#{first\ 2348}# (cdr #{first\ 2340}#))
+ (#{rest\ 2349}# (map cdr #{rest\ 2341}#)))
+ (if (null? #{first\ 2348}#)
+ (@apply
+ #{f\ 2316}#
+ (cons #{x\ 2346}# #{xr\ 2347}#))
(if (@apply
- #{f\ 207}#
- (cons #{x\ 237}# #{xr\ 238}#))
- (#{andmap\ 230}# #{first\ 239}# #{rest\ 240}#)
+ #{f\ 2316}#
+ (cons #{x\ 2346}# #{xr\ 2347}#))
+ (#{andmap\ 2339}# #{first\ 2348}# #{rest\ 2349}#)
#f)))))))
(begin
- (#{andmap\ 230}# #{first\ 208}# #{rest\ 209}#))))))))))
+ (#{andmap\ 2339}# #{first\ 2317}# #{rest\ 2318}#))))))))))
(begin
- (let ((#{make-primitive-ref\ 249}# (if #f #f))
- (#{fx+\ 288}# (if #f #f))
- (#{fx-\ 290}# (if #f #f))
- (#{fx=\ 292}# (if #f #f))
- (#{fx<\ 294}# (if #f #f))
- (#{set-syntax-object-expression!\ 359}#
+ (let ((#{make-primitive-ref\ 2358}# (if #f #f))
+ (#{fx+\ 2397}# (if #f #f))
+ (#{fx-\ 2399}# (if #f #f))
+ (#{fx=\ 2401}# (if #f #f))
+ (#{fx<\ 2403}# (if #f #f))
+ (#{set-syntax-object-expression!\ 2468}#
(if #f #f))
- (#{set-syntax-object-wrap!\ 361}# (if #f #f))
- (#{set-syntax-object-module!\ 363}# (if #f #f))
- (#{binding-type\ 370}# (if #f #f))
- (#{binding-value\ 372}# (if #f #f))
- (#{make-wrap\ 392}# (if #f #f))
- (#{wrap-marks\ 394}# (if #f #f))
- (#{wrap-subst\ 396}# (if #f #f))
- (#{ribcage?\ 410}# (if #f #f)))
+ (#{set-syntax-object-wrap!\ 2470}# (if #f #f))
+ (#{set-syntax-object-module!\ 2472}# (if #f #f))
+ (#{binding-type\ 2479}# (if #f #f))
+ (#{binding-value\ 2481}# (if #f #f))
+ (#{make-wrap\ 2501}# (if #f #f))
+ (#{wrap-marks\ 2503}# (if #f #f))
+ (#{wrap-subst\ 2505}# (if #f #f))
+ (#{ribcage?\ 2519}# (if #f #f)))
(letrec*
- ((#{make-void\ 245}#
- (lambda (#{src\ 717}#)
+ ((#{make-void\ 2354}#
+ (lambda (#{src\ 2826}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 717}#)))
- (#{make-const\ 247}#
- (lambda (#{src\ 719}# #{exp\ 720}#)
+ #{src\ 2826}#)))
+ (#{make-const\ 2356}#
+ (lambda (#{src\ 2828}# #{exp\ 2829}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src\ 719}#
- #{exp\ 720}#)))
- (#{make-lexical-ref\ 251}#
- (lambda (#{src\ 727}# #{name\ 728}# #{gensym\ 729}#)
+ #{src\ 2828}#
+ #{exp\ 2829}#)))
+ (#{make-lexical-ref\ 2360}#
+ (lambda (#{src\ 2836}# #{name\ 2837}# #{gensym\ 2838}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src\ 727}#
- #{name\ 728}#
- #{gensym\ 729}#)))
- (#{make-lexical-set\ 253}#
- (lambda (#{src\ 733}#
- #{name\ 734}#
- #{gensym\ 735}#
- #{exp\ 736}#)
+ #{src\ 2836}#
+ #{name\ 2837}#
+ #{gensym\ 2838}#)))
+ (#{make-lexical-set\ 2362}#
+ (lambda (#{src\ 2842}#
+ #{name\ 2843}#
+ #{gensym\ 2844}#
+ #{exp\ 2845}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src\ 733}#
- #{name\ 734}#
- #{gensym\ 735}#
- #{exp\ 736}#)))
- (#{make-module-ref\ 255}#
- (lambda (#{src\ 741}#
- #{mod\ 742}#
- #{name\ 743}#
- #{public?\ 744}#)
+ #{src\ 2842}#
+ #{name\ 2843}#
+ #{gensym\ 2844}#
+ #{exp\ 2845}#)))
+ (#{make-module-ref\ 2364}#
+ (lambda (#{src\ 2850}#
+ #{mod\ 2851}#
+ #{name\ 2852}#
+ #{public?\ 2853}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src\ 741}#
- #{mod\ 742}#
- #{name\ 743}#
- #{public?\ 744}#)))
- (#{make-module-set\ 257}#
- (lambda (#{src\ 749}#
- #{mod\ 750}#
- #{name\ 751}#
- #{public?\ 752}#
- #{exp\ 753}#)
+ #{src\ 2850}#
+ #{mod\ 2851}#
+ #{name\ 2852}#
+ #{public?\ 2853}#)))
+ (#{make-module-set\ 2366}#
+ (lambda (#{src\ 2858}#
+ #{mod\ 2859}#
+ #{name\ 2860}#
+ #{public?\ 2861}#
+ #{exp\ 2862}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src\ 749}#
- #{mod\ 750}#
- #{name\ 751}#
- #{public?\ 752}#
- #{exp\ 753}#)))
- (#{make-toplevel-ref\ 259}#
- (lambda (#{src\ 759}# #{name\ 760}#)
+ #{src\ 2858}#
+ #{mod\ 2859}#
+ #{name\ 2860}#
+ #{public?\ 2861}#
+ #{exp\ 2862}#)))
+ (#{make-toplevel-ref\ 2368}#
+ (lambda (#{src\ 2868}# #{name\ 2869}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src\ 759}#
- #{name\ 760}#)))
- (#{make-toplevel-set\ 261}#
- (lambda (#{src\ 763}# #{name\ 764}# #{exp\ 765}#)
+ #{src\ 2868}#
+ #{name\ 2869}#)))
+ (#{make-toplevel-set\ 2370}#
+ (lambda (#{src\ 2872}# #{name\ 2873}# #{exp\ 2874}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src\ 763}#
- #{name\ 764}#
- #{exp\ 765}#)))
- (#{make-toplevel-define\ 263}#
- (lambda (#{src\ 769}# #{name\ 770}# #{exp\ 771}#)
+ #{src\ 2872}#
+ #{name\ 2873}#
+ #{exp\ 2874}#)))
+ (#{make-toplevel-define\ 2372}#
+ (lambda (#{src\ 2878}# #{name\ 2879}# #{exp\ 2880}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src\ 769}#
- #{name\ 770}#
- #{exp\ 771}#)))
- (#{make-conditional\ 265}#
- (lambda (#{src\ 775}#
- #{test\ 776}#
- #{consequent\ 777}#
- #{alternate\ 778}#)
+ #{src\ 2878}#
+ #{name\ 2879}#
+ #{exp\ 2880}#)))
+ (#{make-conditional\ 2374}#
+ (lambda (#{src\ 2884}#
+ #{test\ 2885}#
+ #{consequent\ 2886}#
+ #{alternate\ 2887}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src\ 775}#
- #{test\ 776}#
- #{consequent\ 777}#
- #{alternate\ 778}#)))
- (#{make-application\ 267}#
- (lambda (#{src\ 783}# #{proc\ 784}# #{args\ 785}#)
+ #{src\ 2884}#
+ #{test\ 2885}#
+ #{consequent\ 2886}#
+ #{alternate\ 2887}#)))
+ (#{make-application\ 2376}#
+ (lambda (#{src\ 2892}# #{proc\ 2893}# #{args\ 2894}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 783}#
- #{proc\ 784}#
- #{args\ 785}#)))
- (#{make-sequence\ 269}#
- (lambda (#{src\ 789}# #{exps\ 790}#)
+ #{src\ 2892}#
+ #{proc\ 2893}#
+ #{args\ 2894}#)))
+ (#{make-sequence\ 2378}#
+ (lambda (#{src\ 2898}# #{exps\ 2899}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 789}#
- #{exps\ 790}#)))
- (#{make-lambda\ 271}#
- (lambda (#{src\ 793}# #{meta\ 794}# #{body\ 795}#)
+ #{src\ 2898}#
+ #{exps\ 2899}#)))
+ (#{make-lambda\ 2380}#
+ (lambda (#{src\ 2902}# #{meta\ 2903}# #{body\ 2904}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src\ 793}#
- #{meta\ 794}#
- #{body\ 795}#)))
- (#{make-lambda-case\ 273}#
- (lambda (#{src\ 799}#
- #{req\ 800}#
- #{opt\ 801}#
- #{rest\ 802}#
- #{kw\ 803}#
- #{inits\ 804}#
- #{gensyms\ 805}#
- #{body\ 806}#
- #{alternate\ 807}#)
+ #{src\ 2902}#
+ #{meta\ 2903}#
+ #{body\ 2904}#)))
+ (#{make-lambda-case\ 2382}#
+ (lambda (#{src\ 2908}#
+ #{req\ 2909}#
+ #{opt\ 2910}#
+ #{rest\ 2911}#
+ #{kw\ 2912}#
+ #{inits\ 2913}#
+ #{gensyms\ 2914}#
+ #{body\ 2915}#
+ #{alternate\ 2916}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src\ 799}#
- #{req\ 800}#
- #{opt\ 801}#
- #{rest\ 802}#
- #{kw\ 803}#
- #{inits\ 804}#
- #{gensyms\ 805}#
- #{body\ 806}#
- #{alternate\ 807}#)))
- (#{make-let\ 275}#
- (lambda (#{src\ 817}#
- #{names\ 818}#
- #{gensyms\ 819}#
- #{vals\ 820}#
- #{body\ 821}#)
+ #{src\ 2908}#
+ #{req\ 2909}#
+ #{opt\ 2910}#
+ #{rest\ 2911}#
+ #{kw\ 2912}#
+ #{inits\ 2913}#
+ #{gensyms\ 2914}#
+ #{body\ 2915}#
+ #{alternate\ 2916}#)))
+ (#{make-let\ 2384}#
+ (lambda (#{src\ 2926}#
+ #{names\ 2927}#
+ #{gensyms\ 2928}#
+ #{vals\ 2929}#
+ #{body\ 2930}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src\ 817}#
- #{names\ 818}#
- #{gensyms\ 819}#
- #{vals\ 820}#
- #{body\ 821}#)))
- (#{make-letrec\ 277}#
- (lambda (#{src\ 827}#
- #{in-order?\ 828}#
- #{names\ 829}#
- #{gensyms\ 830}#
- #{vals\ 831}#
- #{body\ 832}#)
+ #{src\ 2926}#
+ #{names\ 2927}#
+ #{gensyms\ 2928}#
+ #{vals\ 2929}#
+ #{body\ 2930}#)))
+ (#{make-letrec\ 2386}#
+ (lambda (#{src\ 2936}#
+ #{in-order?\ 2937}#
+ #{names\ 2938}#
+ #{gensyms\ 2939}#
+ #{vals\ 2940}#
+ #{body\ 2941}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src\ 827}#
- #{in-order?\ 828}#
- #{names\ 829}#
- #{gensyms\ 830}#
- #{vals\ 831}#
- #{body\ 832}#)))
- (#{make-dynlet\ 279}#
- (lambda (#{src\ 839}#
- #{fluids\ 840}#
- #{vals\ 841}#
- #{body\ 842}#)
+ #{src\ 2936}#
+ #{in-order?\ 2937}#
+ #{names\ 2938}#
+ #{gensyms\ 2939}#
+ #{vals\ 2940}#
+ #{body\ 2941}#)))
+ (#{make-dynlet\ 2388}#
+ (lambda (#{src\ 2948}#
+ #{fluids\ 2949}#
+ #{vals\ 2950}#
+ #{body\ 2951}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src\ 839}#
- #{fluids\ 840}#
- #{vals\ 841}#
- #{body\ 842}#)))
- (#{lambda?\ 282}#
- (lambda (#{x\ 847}#)
- (if (struct? #{x\ 847}#)
- (eq? (struct-vtable #{x\ 847}#)
+ #{src\ 2948}#
+ #{fluids\ 2949}#
+ #{vals\ 2950}#
+ #{body\ 2951}#)))
+ (#{lambda?\ 2391}#
+ (lambda (#{x\ 2956}#)
+ (if (struct? #{x\ 2956}#)
+ (eq? (struct-vtable #{x\ 2956}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta\ 284}#
- (lambda (#{x\ 851}#) (struct-ref #{x\ 851}# 1)))
- (#{set-lambda-meta!\ 286}#
- (lambda (#{x\ 853}# #{v\ 854}#)
- (struct-set! #{x\ 853}# 1 #{v\ 854}#)))
- (#{top-level-eval-hook\ 296}#
- (lambda (#{x\ 857}# #{mod\ 858}#)
- (primitive-eval #{x\ 857}#)))
- (#{local-eval-hook\ 298}#
- (lambda (#{x\ 861}# #{mod\ 862}#)
- (primitive-eval #{x\ 861}#)))
- (#{put-global-definition-hook\ 301}#
- (lambda (#{symbol\ 865}# #{type\ 866}# #{val\ 867}#)
+ (#{lambda-meta\ 2393}#
+ (lambda (#{x\ 2960}#) (struct-ref #{x\ 2960}# 1)))
+ (#{set-lambda-meta!\ 2395}#
+ (lambda (#{x\ 2962}# #{v\ 2963}#)
+ (struct-set! #{x\ 2962}# 1 #{v\ 2963}#)))
+ (#{top-level-eval-hook\ 2405}#
+ (lambda (#{x\ 2966}# #{mod\ 2967}#)
+ (primitive-eval #{x\ 2966}#)))
+ (#{local-eval-hook\ 2407}#
+ (lambda (#{x\ 2970}# #{mod\ 2971}#)
+ (primitive-eval #{x\ 2970}#)))
+ (#{put-global-definition-hook\ 2410}#
+ (lambda (#{symbol\ 2974}# #{type\ 2975}# #{val\ 2976}#)
(module-define!
(current-module)
- #{symbol\ 865}#
+ #{symbol\ 2974}#
(make-syntax-transformer
- #{symbol\ 865}#
- #{type\ 866}#
- #{val\ 867}#))))
- (#{get-global-definition-hook\ 303}#
- (lambda (#{symbol\ 871}# #{module\ 872}#)
+ #{symbol\ 2974}#
+ #{type\ 2975}#
+ #{val\ 2976}#))))
+ (#{get-global-definition-hook\ 2412}#
+ (lambda (#{symbol\ 2980}# #{module\ 2981}#)
(begin
- (if (if (not #{module\ 872}#) (current-module) #f)
+ (if (if (not #{module\ 2981}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 871}#))
+ #{symbol\ 2980}#))
(begin
- (let ((#{v\ 878}# (module-variable
- (if #{module\ 872}#
- (resolve-module (cdr #{module\ 872}#))
- (current-module))
- #{symbol\ 871}#)))
- (if #{v\ 878}#
- (if (variable-bound? #{v\ 878}#)
+ (let ((#{v\ 2987}#
+ (module-variable
+ (if #{module\ 2981}#
+ (resolve-module (cdr #{module\ 2981}#))
+ (current-module))
+ #{symbol\ 2980}#)))
+ (if #{v\ 2987}#
+ (if (variable-bound? #{v\ 2987}#)
(begin
- (let ((#{val\ 883}# (variable-ref #{v\ 878}#)))
- (if (macro? #{val\ 883}#)
- (if (macro-type #{val\ 883}#)
- (cons (macro-type #{val\ 883}#)
- (macro-binding #{val\ 883}#))
+ (let ((#{val\ 2992}# (variable-ref #{v\ 2987}#)))
+ (if (macro? #{val\ 2992}#)
+ (if (macro-type #{val\ 2992}#)
+ (cons (macro-type #{val\ 2992}#)
+ (macro-binding #{val\ 2992}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 305}#
- (lambda (#{e\ 887}# #{s\ 888}#)
+ (#{decorate-source\ 2414}#
+ (lambda (#{e\ 2996}# #{s\ 2997}#)
+ (begin
+ (if (if (pair? #{e\ 2996}#) #{s\ 2997}# #f)
+ (set-source-properties! #{e\ 2996}# #{s\ 2997}#))
+ #{e\ 2996}#)))
+ (#{maybe-name-value!\ 2416}#
+ (lambda (#{name\ 3002}# #{val\ 3003}#)
+ (if (#{lambda?\ 2391}# #{val\ 3003}#)
+ (begin
+ (let ((#{meta\ 3007}#
+ (#{lambda-meta\ 2393}# #{val\ 3003}#)))
+ (if (not (assq (quote name) #{meta\ 3007}#))
+ (#{set-lambda-meta!\ 2395}#
+ #{val\ 3003}#
+ (cons (cons (quote name) #{name\ 3002}#)
+ #{meta\ 3007}#))))))))
+ (#{build-void\ 2418}#
+ (lambda (#{source\ 3008}#)
+ (#{make-void\ 2354}# #{source\ 3008}#)))
+ (#{build-application\ 2420}#
+ (lambda (#{source\ 3010}#
+ #{fun-exp\ 3011}#
+ #{arg-exps\ 3012}#)
+ (#{make-application\ 2376}#
+ #{source\ 3010}#
+ #{fun-exp\ 3011}#
+ #{arg-exps\ 3012}#)))
+ (#{build-conditional\ 2422}#
+ (lambda (#{source\ 3016}#
+ #{test-exp\ 3017}#
+ #{then-exp\ 3018}#
+ #{else-exp\ 3019}#)
+ (#{make-conditional\ 2374}#
+ #{source\ 3016}#
+ #{test-exp\ 3017}#
+ #{then-exp\ 3018}#
+ #{else-exp\ 3019}#)))
+ (#{build-dynlet\ 2424}#
+ (lambda (#{source\ 3024}#
+ #{fluids\ 3025}#
+ #{vals\ 3026}#
+ #{body\ 3027}#)
+ (#{make-dynlet\ 2388}#
+ #{source\ 3024}#
+ #{fluids\ 3025}#
+ #{vals\ 3026}#
+ #{body\ 3027}#)))
+ (#{build-lexical-reference\ 2426}#
+ (lambda (#{type\ 3032}#
+ #{source\ 3033}#
+ #{name\ 3034}#
+ #{var\ 3035}#)
+ (#{make-lexical-ref\ 2360}#
+ #{source\ 3033}#
+ #{name\ 3034}#
+ #{var\ 3035}#)))
+ (#{build-lexical-assignment\ 2428}#
+ (lambda (#{source\ 3040}#
+ #{name\ 3041}#
+ #{var\ 3042}#
+ #{exp\ 3043}#)
(begin
- (if (if (pair? #{e\ 887}#) #{s\ 888}# #f)
- (set-source-properties! #{e\ 887}# #{s\ 888}#))
- #{e\ 887}#)))
- (#{build-void\ 307}#
- (lambda (#{source\ 893}#)
- (#{make-void\ 245}# #{source\ 893}#)))
- (#{build-application\ 309}#
- (lambda (#{source\ 895}#
- #{fun-exp\ 896}#
- #{arg-exps\ 897}#)
- (#{make-application\ 267}#
- #{source\ 895}#
- #{fun-exp\ 896}#
- #{arg-exps\ 897}#)))
- (#{build-conditional\ 311}#
- (lambda (#{source\ 901}#
- #{test-exp\ 902}#
- #{then-exp\ 903}#
- #{else-exp\ 904}#)
- (#{make-conditional\ 265}#
- #{source\ 901}#
- #{test-exp\ 902}#
- #{then-exp\ 903}#
- #{else-exp\ 904}#)))
- (#{build-dynlet\ 313}#
- (lambda (#{source\ 909}#
- #{fluids\ 910}#
- #{vals\ 911}#
- #{body\ 912}#)
- (#{make-dynlet\ 279}#
- #{source\ 909}#
- #{fluids\ 910}#
- #{vals\ 911}#
- #{body\ 912}#)))
- (#{build-lexical-reference\ 315}#
- (lambda (#{type\ 917}#
- #{source\ 918}#
- #{name\ 919}#
- #{var\ 920}#)
- (#{make-lexical-ref\ 251}#
- #{source\ 918}#
- #{name\ 919}#
- #{var\ 920}#)))
- (#{build-lexical-assignment\ 317}#
- (lambda (#{source\ 925}#
- #{name\ 926}#
- #{var\ 927}#
- #{exp\ 928}#)
- (#{make-lexical-set\ 253}#
- #{source\ 925}#
- #{name\ 926}#
- #{var\ 927}#
- #{exp\ 928}#)))
- (#{analyze-variable\ 319}#
- (lambda (#{mod\ 933}#
- #{var\ 934}#
- #{modref-cont\ 935}#
- #{bare-cont\ 936}#)
- (if (not #{mod\ 933}#)
- (#{bare-cont\ 936}# #{var\ 934}#)
+ (#{maybe-name-value!\ 2416}#
+ #{name\ 3041}#
+ #{exp\ 3043}#)
+ (#{make-lexical-set\ 2362}#
+ #{source\ 3040}#
+ #{name\ 3041}#
+ #{var\ 3042}#
+ #{exp\ 3043}#))))
+ (#{analyze-variable\ 2430}#
+ (lambda (#{mod\ 3048}#
+ #{var\ 3049}#
+ #{modref-cont\ 3050}#
+ #{bare-cont\ 3051}#)
+ (if (not #{mod\ 3048}#)
+ (#{bare-cont\ 3051}# #{var\ 3049}#)
(begin
- (let ((#{kind\ 943}# (car #{mod\ 933}#))
- (#{mod\ 944}# (cdr #{mod\ 933}#)))
- (if (eqv? #{kind\ 943}# (quote public))
- (#{modref-cont\ 935}#
- #{mod\ 944}#
- #{var\ 934}#
+ (let ((#{kind\ 3058}# (car #{mod\ 3048}#))
+ (#{mod\ 3059}# (cdr #{mod\ 3048}#)))
+ (if (eqv? #{kind\ 3058}# (quote public))
+ (#{modref-cont\ 3050}#
+ #{mod\ 3059}#
+ #{var\ 3049}#
#t)
- (if (eqv? #{kind\ 943}# (quote private))
+ (if (eqv? #{kind\ 3058}# (quote private))
(if (not (equal?
- #{mod\ 944}#
+ #{mod\ 3059}#
(module-name (current-module))))
- (#{modref-cont\ 935}#
- #{mod\ 944}#
- #{var\ 934}#
+ (#{modref-cont\ 3050}#
+ #{mod\ 3059}#
+ #{var\ 3049}#
#f)
- (#{bare-cont\ 936}# #{var\ 934}#))
- (if (eqv? #{kind\ 943}# (quote bare))
- (#{bare-cont\ 936}# #{var\ 934}#)
- (if (eqv? #{kind\ 943}# (quote hygiene))
+ (#{bare-cont\ 3051}# #{var\ 3049}#))
+ (if (eqv? #{kind\ 3058}# (quote bare))
+ (#{bare-cont\ 3051}# #{var\ 3049}#)
+ (if (eqv? #{kind\ 3058}# (quote hygiene))
(if (if (not (equal?
- #{mod\ 944}#
+ #{mod\ 3059}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 944}#)
- #{var\ 934}#)
+ (resolve-module #{mod\ 3059}#)
+ #{var\ 3049}#)
#f)
- (#{modref-cont\ 935}#
- #{mod\ 944}#
- #{var\ 934}#
+ (#{modref-cont\ 3050}#
+ #{mod\ 3059}#
+ #{var\ 3049}#
#f)
- (#{bare-cont\ 936}# #{var\ 934}#))
+ (#{bare-cont\ 3051}# #{var\ 3049}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 934}#
- #{mod\ 944}#))))))))))
- (#{build-global-reference\ 321}#
- (lambda (#{source\ 952}# #{var\ 953}# #{mod\ 954}#)
- (#{analyze-variable\ 319}#
- #{mod\ 954}#
- #{var\ 953}#
- (lambda (#{mod\ 958}# #{var\ 959}# #{public?\ 960}#)
- (#{make-module-ref\ 255}#
- #{source\ 952}#
- #{mod\ 958}#
- #{var\ 959}#
- #{public?\ 960}#))
- (lambda (#{var\ 964}#)
- (#{make-toplevel-ref\ 259}#
- #{source\ 952}#
- #{var\ 964}#)))))
- (#{build-global-assignment\ 323}#
- (lambda (#{source\ 966}#
- #{var\ 967}#
- #{exp\ 968}#
- #{mod\ 969}#)
- (#{analyze-variable\ 319}#
- #{mod\ 969}#
- #{var\ 967}#
- (lambda (#{mod\ 974}# #{var\ 975}# #{public?\ 976}#)
- (#{make-module-set\ 257}#
- #{source\ 966}#
- #{mod\ 974}#
- #{var\ 975}#
- #{public?\ 976}#
- #{exp\ 968}#))
- (lambda (#{var\ 980}#)
- (#{make-toplevel-set\ 261}#
- #{source\ 966}#
- #{var\ 980}#
- #{exp\ 968}#)))))
- (#{maybe-name-value!\ 325}#
- (lambda (#{name\ 982}# #{val\ 983}#)
- (if (#{lambda?\ 282}# #{val\ 983}#)
- (begin
- (let ((#{meta\ 987}#
- (#{lambda-meta\ 284}# #{val\ 983}#)))
- (if (not (assq (quote name) #{meta\ 987}#))
- (#{set-lambda-meta!\ 286}#
- #{val\ 983}#
- (cons (cons (quote name) #{name\ 982}#)
- #{meta\ 987}#))))))))
- (#{build-global-definition\ 327}#
- (lambda (#{source\ 988}# #{var\ 989}# #{exp\ 990}#)
+ #{var\ 3049}#
+ #{mod\ 3059}#))))))))))
+ (#{build-global-reference\ 2432}#
+ (lambda (#{source\ 3067}# #{var\ 3068}# #{mod\ 3069}#)
+ (#{analyze-variable\ 2430}#
+ #{mod\ 3069}#
+ #{var\ 3068}#
+ (lambda (#{mod\ 3073}# #{var\ 3074}# #{public?\ 3075}#)
+ (#{make-module-ref\ 2364}#
+ #{source\ 3067}#
+ #{mod\ 3073}#
+ #{var\ 3074}#
+ #{public?\ 3075}#))
+ (lambda (#{var\ 3079}#)
+ (#{make-toplevel-ref\ 2368}#
+ #{source\ 3067}#
+ #{var\ 3079}#)))))
+ (#{build-global-assignment\ 2434}#
+ (lambda (#{source\ 3081}#
+ #{var\ 3082}#
+ #{exp\ 3083}#
+ #{mod\ 3084}#)
+ (begin
+ (#{maybe-name-value!\ 2416}#
+ #{var\ 3082}#
+ #{exp\ 3083}#)
+ (#{analyze-variable\ 2430}#
+ #{mod\ 3084}#
+ #{var\ 3082}#
+ (lambda (#{mod\ 3089}# #{var\ 3090}# #{public?\ 3091}#)
+ (#{make-module-set\ 2366}#
+ #{source\ 3081}#
+ #{mod\ 3089}#
+ #{var\ 3090}#
+ #{public?\ 3091}#
+ #{exp\ 3083}#))
+ (lambda (#{var\ 3095}#)
+ (#{make-toplevel-set\ 2370}#
+ #{source\ 3081}#
+ #{var\ 3095}#
+ #{exp\ 3083}#))))))
+ (#{build-global-definition\ 2436}#
+ (lambda (#{source\ 3097}# #{var\ 3098}# #{exp\ 3099}#)
(begin
- (#{maybe-name-value!\ 325}#
- #{var\ 989}#
- #{exp\ 990}#)
- (#{make-toplevel-define\ 263}#
- #{source\ 988}#
- #{var\ 989}#
- #{exp\ 990}#))))
- (#{build-simple-lambda\ 329}#
- (lambda (#{src\ 994}#
- #{req\ 995}#
- #{rest\ 996}#
- #{vars\ 997}#
- #{meta\ 998}#
- #{exp\ 999}#)
- (#{make-lambda\ 271}#
- #{src\ 994}#
- #{meta\ 998}#
- (#{make-lambda-case\ 273}#
- #{src\ 994}#
- #{req\ 995}#
+ (#{maybe-name-value!\ 2416}#
+ #{var\ 3098}#
+ #{exp\ 3099}#)
+ (#{make-toplevel-define\ 2372}#
+ #{source\ 3097}#
+ #{var\ 3098}#
+ #{exp\ 3099}#))))
+ (#{build-simple-lambda\ 2438}#
+ (lambda (#{src\ 3103}#
+ #{req\ 3104}#
+ #{rest\ 3105}#
+ #{vars\ 3106}#
+ #{meta\ 3107}#
+ #{exp\ 3108}#)
+ (#{make-lambda\ 2380}#
+ #{src\ 3103}#
+ #{meta\ 3107}#
+ (#{make-lambda-case\ 2382}#
+ #{src\ 3103}#
+ #{req\ 3104}#
#f
- #{rest\ 996}#
+ #{rest\ 3105}#
#f
'()
- #{vars\ 997}#
- #{exp\ 999}#
+ #{vars\ 3106}#
+ #{exp\ 3108}#
#f))))
- (#{build-case-lambda\ 331}#
- (lambda (#{src\ 1006}# #{meta\ 1007}# #{body\ 1008}#)
- (#{make-lambda\ 271}#
- #{src\ 1006}#
- #{meta\ 1007}#
- #{body\ 1008}#)))
- (#{build-lambda-case\ 333}#
- (lambda (#{src\ 1012}#
- #{req\ 1013}#
- #{opt\ 1014}#
- #{rest\ 1015}#
- #{kw\ 1016}#
- #{inits\ 1017}#
- #{vars\ 1018}#
- #{body\ 1019}#
- #{else-case\ 1020}#)
- (#{make-lambda-case\ 273}#
- #{src\ 1012}#
- #{req\ 1013}#
- #{opt\ 1014}#
- #{rest\ 1015}#
- #{kw\ 1016}#
- #{inits\ 1017}#
- #{vars\ 1018}#
- #{body\ 1019}#
- #{else-case\ 1020}#)))
- (#{build-primref\ 335}#
- (lambda (#{src\ 1030}# #{name\ 1031}#)
+ (#{build-case-lambda\ 2440}#
+ (lambda (#{src\ 3115}# #{meta\ 3116}# #{body\ 3117}#)
+ (#{make-lambda\ 2380}#
+ #{src\ 3115}#
+ #{meta\ 3116}#
+ #{body\ 3117}#)))
+ (#{build-lambda-case\ 2442}#
+ (lambda (#{src\ 3121}#
+ #{req\ 3122}#
+ #{opt\ 3123}#
+ #{rest\ 3124}#
+ #{kw\ 3125}#
+ #{inits\ 3126}#
+ #{vars\ 3127}#
+ #{body\ 3128}#
+ #{else-case\ 3129}#)
+ (#{make-lambda-case\ 2382}#
+ #{src\ 3121}#
+ #{req\ 3122}#
+ #{opt\ 3123}#
+ #{rest\ 3124}#
+ #{kw\ 3125}#
+ #{inits\ 3126}#
+ #{vars\ 3127}#
+ #{body\ 3128}#
+ #{else-case\ 3129}#)))
+ (#{build-primref\ 2444}#
+ (lambda (#{src\ 3139}# #{name\ 3140}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 259}#
- #{src\ 1030}#
- #{name\ 1031}#)
- (#{make-module-ref\ 255}#
- #{src\ 1030}#
+ (#{make-toplevel-ref\ 2368}#
+ #{src\ 3139}#
+ #{name\ 3140}#)
+ (#{make-module-ref\ 2364}#
+ #{src\ 3139}#
'(guile)
- #{name\ 1031}#
+ #{name\ 3140}#
#f))))
- (#{build-data\ 337}#
- (lambda (#{src\ 1034}# #{exp\ 1035}#)
- (#{make-const\ 247}# #{src\ 1034}# #{exp\ 1035}#)))
- (#{build-sequence\ 339}#
- (lambda (#{src\ 1038}# #{exps\ 1039}#)
- (if (null? (cdr #{exps\ 1039}#))
- (car #{exps\ 1039}#)
- (#{make-sequence\ 269}#
- #{src\ 1038}#
- #{exps\ 1039}#))))
- (#{build-let\ 341}#
- (lambda (#{src\ 1042}#
- #{ids\ 1043}#
- #{vars\ 1044}#
- #{val-exps\ 1045}#
- #{body-exp\ 1046}#)
+ (#{build-data\ 2446}#
+ (lambda (#{src\ 3143}# #{exp\ 3144}#)
+ (#{make-const\ 2356}#
+ #{src\ 3143}#
+ #{exp\ 3144}#)))
+ (#{build-sequence\ 2448}#
+ (lambda (#{src\ 3147}# #{exps\ 3148}#)
+ (if (null? (cdr #{exps\ 3148}#))
+ (car #{exps\ 3148}#)
+ (#{make-sequence\ 2378}#
+ #{src\ 3147}#
+ #{exps\ 3148}#))))
+ (#{build-let\ 2450}#
+ (lambda (#{src\ 3151}#
+ #{ids\ 3152}#
+ #{vars\ 3153}#
+ #{val-exps\ 3154}#
+ #{body-exp\ 3155}#)
(begin
(for-each
- #{maybe-name-value!\ 325}#
- #{ids\ 1043}#
- #{val-exps\ 1045}#)
- (if (null? #{vars\ 1044}#)
- #{body-exp\ 1046}#
- (#{make-let\ 275}#
- #{src\ 1042}#
- #{ids\ 1043}#
- #{vars\ 1044}#
- #{val-exps\ 1045}#
- #{body-exp\ 1046}#)))))
- (#{build-named-let\ 343}#
- (lambda (#{src\ 1052}#
- #{ids\ 1053}#
- #{vars\ 1054}#
- #{val-exps\ 1055}#
- #{body-exp\ 1056}#)
+ #{maybe-name-value!\ 2416}#
+ #{ids\ 3152}#
+ #{val-exps\ 3154}#)
+ (if (null? #{vars\ 3153}#)
+ #{body-exp\ 3155}#
+ (#{make-let\ 2384}#
+ #{src\ 3151}#
+ #{ids\ 3152}#
+ #{vars\ 3153}#
+ #{val-exps\ 3154}#
+ #{body-exp\ 3155}#)))))
+ (#{build-named-let\ 2452}#
+ (lambda (#{src\ 3161}#
+ #{ids\ 3162}#
+ #{vars\ 3163}#
+ #{val-exps\ 3164}#
+ #{body-exp\ 3165}#)
(begin
- (let ((#{f\ 1066}# (car #{vars\ 1054}#))
- (#{f-name\ 1067}# (car #{ids\ 1053}#))
- (#{vars\ 1068}# (cdr #{vars\ 1054}#))
- (#{ids\ 1069}# (cdr #{ids\ 1053}#)))
+ (let ((#{f\ 3175}# (car #{vars\ 3163}#))
+ (#{f-name\ 3176}# (car #{ids\ 3162}#))
+ (#{vars\ 3177}# (cdr #{vars\ 3163}#))
+ (#{ids\ 3178}# (cdr #{ids\ 3162}#)))
(begin
- (let ((#{proc\ 1071}#
- (#{build-simple-lambda\ 329}#
- #{src\ 1052}#
- #{ids\ 1069}#
+ (let ((#{proc\ 3180}#
+ (#{build-simple-lambda\ 2438}#
+ #{src\ 3161}#
+ #{ids\ 3178}#
#f
- #{vars\ 1068}#
+ #{vars\ 3177}#
'()
- #{body-exp\ 1056}#)))
+ #{body-exp\ 3165}#)))
(begin
- (#{maybe-name-value!\ 325}#
- #{f-name\ 1067}#
- #{proc\ 1071}#)
+ (#{maybe-name-value!\ 2416}#
+ #{f-name\ 3176}#
+ #{proc\ 3180}#)
(for-each
- #{maybe-name-value!\ 325}#
- #{ids\ 1069}#
- #{val-exps\ 1055}#)
- (#{make-letrec\ 277}#
- #{src\ 1052}#
+ #{maybe-name-value!\ 2416}#
+ #{ids\ 3178}#
+ #{val-exps\ 3164}#)
+ (#{make-letrec\ 2386}#
+ #{src\ 3161}#
#f
- (list #{f-name\ 1067}#)
- (list #{f\ 1066}#)
- (list #{proc\ 1071}#)
- (#{build-application\ 309}#
- #{src\ 1052}#
- (#{build-lexical-reference\ 315}#
+ (list #{f-name\ 3176}#)
+ (list #{f\ 3175}#)
+ (list #{proc\ 3180}#)
+ (#{build-application\ 2420}#
+ #{src\ 3161}#
+ (#{build-lexical-reference\ 2426}#
'fun
- #{src\ 1052}#
- #{f-name\ 1067}#
- #{f\ 1066}#)
- #{val-exps\ 1055}#)))))))))
- (#{build-letrec\ 345}#
- (lambda (#{src\ 1072}#
- #{in-order?\ 1073}#
- #{ids\ 1074}#
- #{vars\ 1075}#
- #{val-exps\ 1076}#
- #{body-exp\ 1077}#)
- (if (null? #{vars\ 1075}#)
- #{body-exp\ 1077}#
+ #{src\ 3161}#
+ #{f-name\ 3176}#
+ #{f\ 3175}#)
+ #{val-exps\ 3164}#)))))))))
+ (#{build-letrec\ 2454}#
+ (lambda (#{src\ 3181}#
+ #{in-order?\ 3182}#
+ #{ids\ 3183}#
+ #{vars\ 3184}#
+ #{val-exps\ 3185}#
+ #{body-exp\ 3186}#)
+ (if (null? #{vars\ 3184}#)
+ #{body-exp\ 3186}#
(begin
(for-each
- #{maybe-name-value!\ 325}#
- #{ids\ 1074}#
- #{val-exps\ 1076}#)
- (#{make-letrec\ 277}#
- #{src\ 1072}#
- #{in-order?\ 1073}#
- #{ids\ 1074}#
- #{vars\ 1075}#
- #{val-exps\ 1076}#
- #{body-exp\ 1077}#)))))
- (#{make-syntax-object\ 349}#
- (lambda (#{expression\ 1084}#
- #{wrap\ 1085}#
- #{module\ 1086}#)
+ #{maybe-name-value!\ 2416}#
+ #{ids\ 3183}#
+ #{val-exps\ 3185}#)
+ (#{make-letrec\ 2386}#
+ #{src\ 3181}#
+ #{in-order?\ 3182}#
+ #{ids\ 3183}#
+ #{vars\ 3184}#
+ #{val-exps\ 3185}#
+ #{body-exp\ 3186}#)))))
+ (#{make-syntax-object\ 2458}#
+ (lambda (#{expression\ 3193}#
+ #{wrap\ 3194}#
+ #{module\ 3195}#)
(vector
'syntax-object
- #{expression\ 1084}#
- #{wrap\ 1085}#
- #{module\ 1086}#)))
- (#{syntax-object?\ 351}#
- (lambda (#{x\ 1090}#)
- (if (vector? #{x\ 1090}#)
- (if (= (vector-length #{x\ 1090}#) 4)
- (eq? (vector-ref #{x\ 1090}# 0)
+ #{expression\ 3193}#
+ #{wrap\ 3194}#
+ #{module\ 3195}#)))
+ (#{syntax-object?\ 2460}#
+ (lambda (#{x\ 3199}#)
+ (if (vector? #{x\ 3199}#)
+ (if (= (vector-length #{x\ 3199}#) 4)
+ (eq? (vector-ref #{x\ 3199}# 0)
'syntax-object)
#f)
#f)))
- (#{syntax-object-expression\ 353}#
- (lambda (#{x\ 1095}#) (vector-ref #{x\ 1095}# 1)))
- (#{syntax-object-wrap\ 355}#
- (lambda (#{x\ 1097}#) (vector-ref #{x\ 1097}# 2)))
- (#{syntax-object-module\ 357}#
- (lambda (#{x\ 1099}#) (vector-ref #{x\ 1099}# 3)))
- (#{source-annotation\ 366}#
- (lambda (#{x\ 1113}#)
- (if (#{syntax-object?\ 351}# #{x\ 1113}#)
- (#{source-annotation\ 366}#
- (#{syntax-object-expression\ 353}# #{x\ 1113}#))
- (if (pair? #{x\ 1113}#)
+ (#{syntax-object-expression\ 2462}#
+ (lambda (#{x\ 3204}#) (vector-ref #{x\ 3204}# 1)))
+ (#{syntax-object-wrap\ 2464}#
+ (lambda (#{x\ 3206}#) (vector-ref #{x\ 3206}# 2)))
+ (#{syntax-object-module\ 2466}#
+ (lambda (#{x\ 3208}#) (vector-ref #{x\ 3208}# 3)))
+ (#{source-annotation\ 2475}#
+ (lambda (#{x\ 3222}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 3222}#)
+ (#{source-annotation\ 2475}#
+ (#{syntax-object-expression\ 2462}# #{x\ 3222}#))
+ (if (pair? #{x\ 3222}#)
(begin
- (let ((#{props\ 1120}# (source-properties #{x\ 1113}#)))
- (if (pair? #{props\ 1120}#) #{props\ 1120}# #f)))
+ (let ((#{props\ 3229}# (source-properties #{x\ 3222}#)))
+ (if (pair? #{props\ 3229}#) #{props\ 3229}# #f)))
#f))))
- (#{extend-env\ 375}#
- (lambda (#{labels\ 1122}# #{bindings\ 1123}# #{r\ 1124}#)
- (if (null? #{labels\ 1122}#)
- #{r\ 1124}#
- (#{extend-env\ 375}#
- (cdr #{labels\ 1122}#)
- (cdr #{bindings\ 1123}#)
- (cons (cons (car #{labels\ 1122}#)
- (car #{bindings\ 1123}#))
- #{r\ 1124}#)))))
- (#{extend-var-env\ 377}#
- (lambda (#{labels\ 1128}# #{vars\ 1129}# #{r\ 1130}#)
- (if (null? #{labels\ 1128}#)
- #{r\ 1130}#
- (#{extend-var-env\ 377}#
- (cdr #{labels\ 1128}#)
- (cdr #{vars\ 1129}#)
- (cons (cons (car #{labels\ 1128}#)
- (cons (quote lexical) (car #{vars\ 1129}#)))
- #{r\ 1130}#)))))
- (#{macros-only-env\ 379}#
- (lambda (#{r\ 1135}#)
- (if (null? #{r\ 1135}#)
+ (#{extend-env\ 2484}#
+ (lambda (#{labels\ 3231}# #{bindings\ 3232}# #{r\ 3233}#)
+ (if (null? #{labels\ 3231}#)
+ #{r\ 3233}#
+ (#{extend-env\ 2484}#
+ (cdr #{labels\ 3231}#)
+ (cdr #{bindings\ 3232}#)
+ (cons (cons (car #{labels\ 3231}#)
+ (car #{bindings\ 3232}#))
+ #{r\ 3233}#)))))
+ (#{extend-var-env\ 2486}#
+ (lambda (#{labels\ 3237}# #{vars\ 3238}# #{r\ 3239}#)
+ (if (null? #{labels\ 3237}#)
+ #{r\ 3239}#
+ (#{extend-var-env\ 2486}#
+ (cdr #{labels\ 3237}#)
+ (cdr #{vars\ 3238}#)
+ (cons (cons (car #{labels\ 3237}#)
+ (cons (quote lexical) (car #{vars\ 3238}#)))
+ #{r\ 3239}#)))))
+ (#{macros-only-env\ 2488}#
+ (lambda (#{r\ 3244}#)
+ (if (null? #{r\ 3244}#)
'()
(begin
- (let ((#{a\ 1138}# (car #{r\ 1135}#)))
- (if (eq? (car (cdr #{a\ 1138}#)) (quote macro))
- (cons #{a\ 1138}#
- (#{macros-only-env\ 379}# (cdr #{r\ 1135}#)))
- (#{macros-only-env\ 379}# (cdr #{r\ 1135}#))))))))
- (#{lookup\ 381}#
- (lambda (#{x\ 1139}# #{r\ 1140}# #{mod\ 1141}#)
+ (let ((#{a\ 3247}# (car #{r\ 3244}#)))
+ (if (eq? (car (cdr #{a\ 3247}#)) (quote macro))
+ (cons #{a\ 3247}#
+ (#{macros-only-env\ 2488}# (cdr #{r\ 3244}#)))
+ (#{macros-only-env\ 2488}# (cdr #{r\ 3244}#))))))))
+ (#{lookup\ 2490}#
+ (lambda (#{x\ 3248}# #{r\ 3249}# #{mod\ 3250}#)
(begin
- (let ((#{t\ 1147}# (assq #{x\ 1139}# #{r\ 1140}#)))
- (if #{t\ 1147}#
- (cdr #{t\ 1147}#)
- (if (symbol? #{x\ 1139}#)
+ (let ((#{t\ 3256}# (assq #{x\ 3248}# #{r\ 3249}#)))
+ (if #{t\ 3256}#
+ (cdr #{t\ 3256}#)
+ (if (symbol? #{x\ 3248}#)
(begin
- (let ((#{t\ 1153}#
- (#{get-global-definition-hook\ 303}#
- #{x\ 1139}#
- #{mod\ 1141}#)))
- (if #{t\ 1153}# #{t\ 1153}# (quote (global)))))
+ (let ((#{t\ 3262}#
+ (#{get-global-definition-hook\ 2412}#
+ #{x\ 3248}#
+ #{mod\ 3250}#)))
+ (if #{t\ 3262}# #{t\ 3262}# (quote (global)))))
'(displaced-lexical)))))))
- (#{global-extend\ 383}#
- (lambda (#{type\ 1158}# #{sym\ 1159}# #{val\ 1160}#)
- (#{put-global-definition-hook\ 301}#
- #{sym\ 1159}#
- #{type\ 1158}#
- #{val\ 1160}#)))
- (#{nonsymbol-id?\ 385}#
- (lambda (#{x\ 1164}#)
- (if (#{syntax-object?\ 351}# #{x\ 1164}#)
+ (#{global-extend\ 2492}#
+ (lambda (#{type\ 3267}# #{sym\ 3268}# #{val\ 3269}#)
+ (#{put-global-definition-hook\ 2410}#
+ #{sym\ 3268}#
+ #{type\ 3267}#
+ #{val\ 3269}#)))
+ (#{nonsymbol-id?\ 2494}#
+ (lambda (#{x\ 3273}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 3273}#)
(symbol?
- (#{syntax-object-expression\ 353}# #{x\ 1164}#))
+ (#{syntax-object-expression\ 2462}# #{x\ 3273}#))
#f)))
- (#{id?\ 387}#
- (lambda (#{x\ 1168}#)
- (if (symbol? #{x\ 1168}#)
+ (#{id?\ 2496}#
+ (lambda (#{x\ 3277}#)
+ (if (symbol? #{x\ 3277}#)
#t
- (if (#{syntax-object?\ 351}# #{x\ 1168}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 3277}#)
(symbol?
- (#{syntax-object-expression\ 353}# #{x\ 1168}#))
+ (#{syntax-object-expression\ 2462}# #{x\ 3277}#))
#f))))
- (#{id-sym-name&marks\ 390}#
- (lambda (#{x\ 1175}# #{w\ 1176}#)
- (if (#{syntax-object?\ 351}# #{x\ 1175}#)
+ (#{id-sym-name&marks\ 2499}#
+ (lambda (#{x\ 3284}# #{w\ 3285}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 3284}#)
(values
- (#{syntax-object-expression\ 353}# #{x\ 1175}#)
- (#{join-marks\ 440}#
- (#{wrap-marks\ 394}# #{w\ 1176}#)
- (#{wrap-marks\ 394}#
- (#{syntax-object-wrap\ 355}# #{x\ 1175}#))))
+ (#{syntax-object-expression\ 2462}# #{x\ 3284}#)
+ (#{join-marks\ 2549}#
+ (#{wrap-marks\ 2503}# #{w\ 3285}#)
+ (#{wrap-marks\ 2503}#
+ (#{syntax-object-wrap\ 2464}# #{x\ 3284}#))))
(values
- #{x\ 1175}#
- (#{wrap-marks\ 394}# #{w\ 1176}#)))))
- (#{gen-label\ 403}#
+ #{x\ 3284}#
+ (#{wrap-marks\ 2503}# #{w\ 3285}#)))))
+ (#{gen-label\ 2512}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 405}#
- (lambda (#{ls\ 1179}#)
- (if (null? #{ls\ 1179}#)
+ (#{gen-labels\ 2514}#
+ (lambda (#{ls\ 3288}#)
+ (if (null? #{ls\ 3288}#)
'()
- (cons (#{gen-label\ 403}#)
- (#{gen-labels\ 405}# (cdr #{ls\ 1179}#))))))
- (#{make-ribcage\ 408}#
- (lambda (#{symnames\ 1181}#
- #{marks\ 1182}#
- #{labels\ 1183}#)
+ (cons (#{gen-label\ 2512}#)
+ (#{gen-labels\ 2514}# (cdr #{ls\ 3288}#))))))
+ (#{make-ribcage\ 2517}#
+ (lambda (#{symnames\ 3290}#
+ #{marks\ 3291}#
+ #{labels\ 3292}#)
(vector
'ribcage
- #{symnames\ 1181}#
- #{marks\ 1182}#
- #{labels\ 1183}#)))
- (#{ribcage-symnames\ 412}#
- (lambda (#{x\ 1192}#) (vector-ref #{x\ 1192}# 1)))
- (#{ribcage-marks\ 414}#
- (lambda (#{x\ 1194}#) (vector-ref #{x\ 1194}# 2)))
- (#{ribcage-labels\ 416}#
- (lambda (#{x\ 1196}#) (vector-ref #{x\ 1196}# 3)))
- (#{set-ribcage-symnames!\ 418}#
- (lambda (#{x\ 1198}# #{update\ 1199}#)
- (vector-set! #{x\ 1198}# 1 #{update\ 1199}#)))
- (#{set-ribcage-marks!\ 420}#
- (lambda (#{x\ 1202}# #{update\ 1203}#)
- (vector-set! #{x\ 1202}# 2 #{update\ 1203}#)))
- (#{set-ribcage-labels!\ 422}#
- (lambda (#{x\ 1206}# #{update\ 1207}#)
- (vector-set! #{x\ 1206}# 3 #{update\ 1207}#)))
- (#{anti-mark\ 428}#
- (lambda (#{w\ 1210}#)
- (#{make-wrap\ 392}#
- (cons #f (#{wrap-marks\ 394}# #{w\ 1210}#))
+ #{symnames\ 3290}#
+ #{marks\ 3291}#
+ #{labels\ 3292}#)))
+ (#{ribcage-symnames\ 2521}#
+ (lambda (#{x\ 3301}#) (vector-ref #{x\ 3301}# 1)))
+ (#{ribcage-marks\ 2523}#
+ (lambda (#{x\ 3303}#) (vector-ref #{x\ 3303}# 2)))
+ (#{ribcage-labels\ 2525}#
+ (lambda (#{x\ 3305}#) (vector-ref #{x\ 3305}# 3)))
+ (#{set-ribcage-symnames!\ 2527}#
+ (lambda (#{x\ 3307}# #{update\ 3308}#)
+ (vector-set! #{x\ 3307}# 1 #{update\ 3308}#)))
+ (#{set-ribcage-marks!\ 2529}#
+ (lambda (#{x\ 3311}# #{update\ 3312}#)
+ (vector-set! #{x\ 3311}# 2 #{update\ 3312}#)))
+ (#{set-ribcage-labels!\ 2531}#
+ (lambda (#{x\ 3315}# #{update\ 3316}#)
+ (vector-set! #{x\ 3315}# 3 #{update\ 3316}#)))
+ (#{anti-mark\ 2537}#
+ (lambda (#{w\ 3319}#)
+ (#{make-wrap\ 2501}#
+ (cons #f (#{wrap-marks\ 2503}# #{w\ 3319}#))
(cons 'shift
- (#{wrap-subst\ 396}# #{w\ 1210}#)))))
- (#{extend-ribcage!\ 432}#
- (lambda (#{ribcage\ 1213}# #{id\ 1214}# #{label\ 1215}#)
+ (#{wrap-subst\ 2505}# #{w\ 3319}#)))))
+ (#{extend-ribcage!\ 2541}#
+ (lambda (#{ribcage\ 3322}# #{id\ 3323}# #{label\ 3324}#)
(begin
- (#{set-ribcage-symnames!\ 418}#
- #{ribcage\ 1213}#
- (cons (#{syntax-object-expression\ 353}# #{id\ 1214}#)
- (#{ribcage-symnames\ 412}# #{ribcage\ 1213}#)))
- (#{set-ribcage-marks!\ 420}#
- #{ribcage\ 1213}#
- (cons (#{wrap-marks\ 394}#
- (#{syntax-object-wrap\ 355}# #{id\ 1214}#))
- (#{ribcage-marks\ 414}# #{ribcage\ 1213}#)))
- (#{set-ribcage-labels!\ 422}#
- #{ribcage\ 1213}#
- (cons #{label\ 1215}#
- (#{ribcage-labels\ 416}# #{ribcage\ 1213}#))))))
- (#{make-binding-wrap\ 434}#
- (lambda (#{ids\ 1219}# #{labels\ 1220}# #{w\ 1221}#)
- (if (null? #{ids\ 1219}#)
- #{w\ 1221}#
- (#{make-wrap\ 392}#
- (#{wrap-marks\ 394}# #{w\ 1221}#)
+ (#{set-ribcage-symnames!\ 2527}#
+ #{ribcage\ 3322}#
+ (cons (#{syntax-object-expression\ 2462}# #{id\ 3323}#)
+ (#{ribcage-symnames\ 2521}# #{ribcage\ 3322}#)))
+ (#{set-ribcage-marks!\ 2529}#
+ #{ribcage\ 3322}#
+ (cons (#{wrap-marks\ 2503}#
+ (#{syntax-object-wrap\ 2464}# #{id\ 3323}#))
+ (#{ribcage-marks\ 2523}# #{ribcage\ 3322}#)))
+ (#{set-ribcage-labels!\ 2531}#
+ #{ribcage\ 3322}#
+ (cons #{label\ 3324}#
+ (#{ribcage-labels\ 2525}# #{ribcage\ 3322}#))))))
+ (#{make-binding-wrap\ 2543}#
+ (lambda (#{ids\ 3328}# #{labels\ 3329}# #{w\ 3330}#)
+ (if (null? #{ids\ 3328}#)
+ #{w\ 3330}#
+ (#{make-wrap\ 2501}#
+ (#{wrap-marks\ 2503}# #{w\ 3330}#)
(cons (begin
- (let ((#{labelvec\ 1226}#
- (list->vector #{labels\ 1220}#)))
+ (let ((#{labelvec\ 3335}#
+ (list->vector #{labels\ 3329}#)))
(begin
- (let ((#{n\ 1228}#
- (vector-length #{labelvec\ 1226}#)))
+ (let ((#{n\ 3337}#
+ (vector-length #{labelvec\ 3335}#)))
(begin
- (let ((#{symnamevec\ 1231}#
- (make-vector #{n\ 1228}#))
- (#{marksvec\ 1232}#
- (make-vector #{n\ 1228}#)))
+ (let ((#{symnamevec\ 3340}#
+ (make-vector #{n\ 3337}#))
+ (#{marksvec\ 3341}#
+ (make-vector #{n\ 3337}#)))
(begin
(letrec*
- ((#{f\ 1236}#
- (lambda (#{ids\ 1237}# #{i\ 1238}#)
- (if (not (null? #{ids\ 1237}#))
+ ((#{f\ 3345}#
+ (lambda (#{ids\ 3346}# #{i\ 3347}#)
+ (if (not (null? #{ids\ 3346}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 390}#
- (car #{ids\ 1237}#)
- #{w\ 1221}#))
- (lambda (#{symname\ 1239}#
- #{marks\ 1240}#)
+ (#{id-sym-name&marks\ 2499}#
+ (car #{ids\ 3346}#)
+ #{w\ 3330}#))
+ (lambda (#{symname\ 3348}#
+ #{marks\ 3349}#)
(begin
(vector-set!
- #{symnamevec\ 1231}#
- #{i\ 1238}#
- #{symname\ 1239}#)
+ #{symnamevec\ 3340}#
+ #{i\ 3347}#
+ #{symname\ 3348}#)
(vector-set!
- #{marksvec\ 1232}#
- #{i\ 1238}#
- #{marks\ 1240}#)
- (#{f\ 1236}#
- (cdr #{ids\ 1237}#)
- (#{fx+\ 288}#
- #{i\ 1238}#
+ #{marksvec\ 3341}#
+ #{i\ 3347}#
+ #{marks\ 3349}#)
+ (#{f\ 3345}#
+ (cdr #{ids\ 3346}#)
+ (#{fx+\ 2397}#
+ #{i\ 3347}#
1)))))))))
- (begin (#{f\ 1236}# #{ids\ 1219}# 0)))
- (#{make-ribcage\ 408}#
- #{symnamevec\ 1231}#
- #{marksvec\ 1232}#
- #{labelvec\ 1226}#))))))))
- (#{wrap-subst\ 396}# #{w\ 1221}#))))))
- (#{smart-append\ 436}#
- (lambda (#{m1\ 1243}# #{m2\ 1244}#)
- (if (null? #{m2\ 1244}#)
- #{m1\ 1243}#
- (append #{m1\ 1243}# #{m2\ 1244}#))))
- (#{join-wraps\ 438}#
- (lambda (#{w1\ 1247}# #{w2\ 1248}#)
+ (begin (#{f\ 3345}# #{ids\ 3328}# 0)))
+ (#{make-ribcage\ 2517}#
+ #{symnamevec\ 3340}#
+ #{marksvec\ 3341}#
+ #{labelvec\ 3335}#))))))))
+ (#{wrap-subst\ 2505}# #{w\ 3330}#))))))
+ (#{smart-append\ 2545}#
+ (lambda (#{m1\ 3352}# #{m2\ 3353}#)
+ (if (null? #{m2\ 3353}#)
+ #{m1\ 3352}#
+ (append #{m1\ 3352}# #{m2\ 3353}#))))
+ (#{join-wraps\ 2547}#
+ (lambda (#{w1\ 3356}# #{w2\ 3357}#)
(begin
- (let ((#{m1\ 1253}# (#{wrap-marks\ 394}# #{w1\ 1247}#))
- (#{s1\ 1254}# (#{wrap-subst\ 396}# #{w1\ 1247}#)))
- (if (null? #{m1\ 1253}#)
- (if (null? #{s1\ 1254}#)
- #{w2\ 1248}#
- (#{make-wrap\ 392}#
- (#{wrap-marks\ 394}# #{w2\ 1248}#)
- (#{smart-append\ 436}#
- #{s1\ 1254}#
- (#{wrap-subst\ 396}# #{w2\ 1248}#))))
- (#{make-wrap\ 392}#
- (#{smart-append\ 436}#
- #{m1\ 1253}#
- (#{wrap-marks\ 394}# #{w2\ 1248}#))
- (#{smart-append\ 436}#
- #{s1\ 1254}#
- (#{wrap-subst\ 396}# #{w2\ 1248}#))))))))
- (#{join-marks\ 440}#
- (lambda (#{m1\ 1255}# #{m2\ 1256}#)
- (#{smart-append\ 436}# #{m1\ 1255}# #{m2\ 1256}#)))
- (#{same-marks?\ 442}#
- (lambda (#{x\ 1259}# #{y\ 1260}#)
+ (let ((#{m1\ 3362}#
+ (#{wrap-marks\ 2503}# #{w1\ 3356}#))
+ (#{s1\ 3363}#
+ (#{wrap-subst\ 2505}# #{w1\ 3356}#)))
+ (if (null? #{m1\ 3362}#)
+ (if (null? #{s1\ 3363}#)
+ #{w2\ 3357}#
+ (#{make-wrap\ 2501}#
+ (#{wrap-marks\ 2503}# #{w2\ 3357}#)
+ (#{smart-append\ 2545}#
+ #{s1\ 3363}#
+ (#{wrap-subst\ 2505}# #{w2\ 3357}#))))
+ (#{make-wrap\ 2501}#
+ (#{smart-append\ 2545}#
+ #{m1\ 3362}#
+ (#{wrap-marks\ 2503}# #{w2\ 3357}#))
+ (#{smart-append\ 2545}#
+ #{s1\ 3363}#
+ (#{wrap-subst\ 2505}# #{w2\ 3357}#))))))))
+ (#{join-marks\ 2549}#
+ (lambda (#{m1\ 3364}# #{m2\ 3365}#)
+ (#{smart-append\ 2545}#
+ #{m1\ 3364}#
+ #{m2\ 3365}#)))
+ (#{same-marks?\ 2551}#
+ (lambda (#{x\ 3368}# #{y\ 3369}#)
(begin
- (let ((#{t\ 1265}# (eq? #{x\ 1259}# #{y\ 1260}#)))
- (if #{t\ 1265}#
- #{t\ 1265}#
- (if (not (null? #{x\ 1259}#))
- (if (not (null? #{y\ 1260}#))
- (if (eq? (car #{x\ 1259}#) (car #{y\ 1260}#))
- (#{same-marks?\ 442}#
- (cdr #{x\ 1259}#)
- (cdr #{y\ 1260}#))
+ (let ((#{t\ 3374}# (eq? #{x\ 3368}# #{y\ 3369}#)))
+ (if #{t\ 3374}#
+ #{t\ 3374}#
+ (if (not (null? #{x\ 3368}#))
+ (if (not (null? #{y\ 3369}#))
+ (if (eq? (car #{x\ 3368}#) (car #{y\ 3369}#))
+ (#{same-marks?\ 2551}#
+ (cdr #{x\ 3368}#)
+ (cdr #{y\ 3369}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 444}#
- (lambda (#{id\ 1271}# #{w\ 1272}#)
+ (#{id-var-name\ 2553}#
+ (lambda (#{id\ 3380}# #{w\ 3381}#)
(letrec*
- ((#{search\ 1277}#
- (lambda (#{sym\ 1293}# #{subst\ 1294}# #{marks\ 1295}#)
- (if (null? #{subst\ 1294}#)
- (values #f #{marks\ 1295}#)
+ ((#{search\ 3386}#
+ (lambda (#{sym\ 3402}# #{subst\ 3403}# #{marks\ 3404}#)
+ (if (null? #{subst\ 3403}#)
+ (values #f #{marks\ 3404}#)
(begin
- (let ((#{fst\ 1300}# (car #{subst\ 1294}#)))
- (if (eq? #{fst\ 1300}# (quote shift))
- (#{search\ 1277}#
- #{sym\ 1293}#
- (cdr #{subst\ 1294}#)
- (cdr #{marks\ 1295}#))
+ (let ((#{fst\ 3409}# (car #{subst\ 3403}#)))
+ (if (eq? #{fst\ 3409}# (quote shift))
+ (#{search\ 3386}#
+ #{sym\ 3402}#
+ (cdr #{subst\ 3403}#)
+ (cdr #{marks\ 3404}#))
(begin
- (let ((#{symnames\ 1302}#
- (#{ribcage-symnames\ 412}#
- #{fst\ 1300}#)))
- (if (vector? #{symnames\ 1302}#)
- (#{search-vector-rib\ 1281}#
- #{sym\ 1293}#
- #{subst\ 1294}#
- #{marks\ 1295}#
- #{symnames\ 1302}#
- #{fst\ 1300}#)
- (#{search-list-rib\ 1279}#
- #{sym\ 1293}#
- #{subst\ 1294}#
- #{marks\ 1295}#
- #{symnames\ 1302}#
- #{fst\ 1300}#))))))))))
- (#{search-list-rib\ 1279}#
- (lambda (#{sym\ 1303}#
- #{subst\ 1304}#
- #{marks\ 1305}#
- #{symnames\ 1306}#
- #{ribcage\ 1307}#)
+ (let ((#{symnames\ 3411}#
+ (#{ribcage-symnames\ 2521}#
+ #{fst\ 3409}#)))
+ (if (vector? #{symnames\ 3411}#)
+ (#{search-vector-rib\ 3390}#
+ #{sym\ 3402}#
+ #{subst\ 3403}#
+ #{marks\ 3404}#
+ #{symnames\ 3411}#
+ #{fst\ 3409}#)
+ (#{search-list-rib\ 3388}#
+ #{sym\ 3402}#
+ #{subst\ 3403}#
+ #{marks\ 3404}#
+ #{symnames\ 3411}#
+ #{fst\ 3409}#))))))))))
+ (#{search-list-rib\ 3388}#
+ (lambda (#{sym\ 3412}#
+ #{subst\ 3413}#
+ #{marks\ 3414}#
+ #{symnames\ 3415}#
+ #{ribcage\ 3416}#)
(letrec*
- ((#{f\ 1316}#
- (lambda (#{symnames\ 1317}# #{i\ 1318}#)
- (if (null? #{symnames\ 1317}#)
- (#{search\ 1277}#
- #{sym\ 1303}#
- (cdr #{subst\ 1304}#)
- #{marks\ 1305}#)
- (if (if (eq? (car #{symnames\ 1317}#)
- #{sym\ 1303}#)
- (#{same-marks?\ 442}#
- #{marks\ 1305}#
+ ((#{f\ 3425}#
+ (lambda (#{symnames\ 3426}# #{i\ 3427}#)
+ (if (null? #{symnames\ 3426}#)
+ (#{search\ 3386}#
+ #{sym\ 3412}#
+ (cdr #{subst\ 3413}#)
+ #{marks\ 3414}#)
+ (if (if (eq? (car #{symnames\ 3426}#)
+ #{sym\ 3412}#)
+ (#{same-marks?\ 2551}#
+ #{marks\ 3414}#
(list-ref
- (#{ribcage-marks\ 414}#
- #{ribcage\ 1307}#)
- #{i\ 1318}#))
+ (#{ribcage-marks\ 2523}#
+ #{ribcage\ 3416}#)
+ #{i\ 3427}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 416}# #{ribcage\ 1307}#)
- #{i\ 1318}#)
- #{marks\ 1305}#)
- (#{f\ 1316}#
- (cdr #{symnames\ 1317}#)
- (#{fx+\ 288}# #{i\ 1318}# 1)))))))
- (begin (#{f\ 1316}# #{symnames\ 1306}# 0)))))
- (#{search-vector-rib\ 1281}#
- (lambda (#{sym\ 1326}#
- #{subst\ 1327}#
- #{marks\ 1328}#
- #{symnames\ 1329}#
- #{ribcage\ 1330}#)
+ (#{ribcage-labels\ 2525}# #{ribcage\ 3416}#)
+ #{i\ 3427}#)
+ #{marks\ 3414}#)
+ (#{f\ 3425}#
+ (cdr #{symnames\ 3426}#)
+ (#{fx+\ 2397}# #{i\ 3427}# 1)))))))
+ (begin (#{f\ 3425}# #{symnames\ 3415}# 0)))))
+ (#{search-vector-rib\ 3390}#
+ (lambda (#{sym\ 3435}#
+ #{subst\ 3436}#
+ #{marks\ 3437}#
+ #{symnames\ 3438}#
+ #{ribcage\ 3439}#)
(begin
- (let ((#{n\ 1337}# (vector-length #{symnames\ 1329}#)))
+ (let ((#{n\ 3446}# (vector-length #{symnames\ 3438}#)))
(letrec*
- ((#{f\ 1340}#
- (lambda (#{i\ 1341}#)
- (if (#{fx=\ 292}# #{i\ 1341}# #{n\ 1337}#)
- (#{search\ 1277}#
- #{sym\ 1326}#
- (cdr #{subst\ 1327}#)
- #{marks\ 1328}#)
+ ((#{f\ 3449}#
+ (lambda (#{i\ 3450}#)
+ (if (#{fx=\ 2401}# #{i\ 3450}# #{n\ 3446}#)
+ (#{search\ 3386}#
+ #{sym\ 3435}#
+ (cdr #{subst\ 3436}#)
+ #{marks\ 3437}#)
(if (if (eq? (vector-ref
- #{symnames\ 1329}#
- #{i\ 1341}#)
- #{sym\ 1326}#)
- (#{same-marks?\ 442}#
- #{marks\ 1328}#
+ #{symnames\ 3438}#
+ #{i\ 3450}#)
+ #{sym\ 3435}#)
+ (#{same-marks?\ 2551}#
+ #{marks\ 3437}#
(vector-ref
- (#{ribcage-marks\ 414}#
- #{ribcage\ 1330}#)
- #{i\ 1341}#))
+ (#{ribcage-marks\ 2523}#
+ #{ribcage\ 3439}#)
+ #{i\ 3450}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 416}#
- #{ribcage\ 1330}#)
- #{i\ 1341}#)
- #{marks\ 1328}#)
- (#{f\ 1340}#
- (#{fx+\ 288}# #{i\ 1341}# 1)))))))
- (begin (#{f\ 1340}# 0))))))))
+ (#{ribcage-labels\ 2525}#
+ #{ribcage\ 3439}#)
+ #{i\ 3450}#)
+ #{marks\ 3437}#)
+ (#{f\ 3449}#
+ (#{fx+\ 2397}# #{i\ 3450}# 1)))))))
+ (begin (#{f\ 3449}# 0))))))))
(begin
- (if (symbol? #{id\ 1271}#)
+ (if (symbol? #{id\ 3380}#)
(begin
- (let ((#{t\ 1351}#
+ (let ((#{t\ 3460}#
(call-with-values
(lambda ()
- (#{search\ 1277}#
- #{id\ 1271}#
- (#{wrap-subst\ 396}# #{w\ 1272}#)
- (#{wrap-marks\ 394}# #{w\ 1272}#)))
- (lambda (#{x\ 1353}# . #{ignore\ 1354}#)
- #{x\ 1353}#))))
- (if #{t\ 1351}# #{t\ 1351}# #{id\ 1271}#)))
- (if (#{syntax-object?\ 351}# #{id\ 1271}#)
+ (#{search\ 3386}#
+ #{id\ 3380}#
+ (#{wrap-subst\ 2505}# #{w\ 3381}#)
+ (#{wrap-marks\ 2503}# #{w\ 3381}#)))
+ (lambda (#{x\ 3462}# . #{ignore\ 3463}#)
+ #{x\ 3462}#))))
+ (if #{t\ 3460}# #{t\ 3460}# #{id\ 3380}#)))
+ (if (#{syntax-object?\ 2460}# #{id\ 3380}#)
(begin
- (let ((#{id\ 1362}#
- (#{syntax-object-expression\ 353}#
- #{id\ 1271}#))
- (#{w1\ 1363}#
- (#{syntax-object-wrap\ 355}# #{id\ 1271}#)))
+ (let ((#{id\ 3471}#
+ (#{syntax-object-expression\ 2462}#
+ #{id\ 3380}#))
+ (#{w1\ 3472}#
+ (#{syntax-object-wrap\ 2464}# #{id\ 3380}#)))
(begin
- (let ((#{marks\ 1365}#
- (#{join-marks\ 440}#
- (#{wrap-marks\ 394}# #{w\ 1272}#)
- (#{wrap-marks\ 394}# #{w1\ 1363}#))))
+ (let ((#{marks\ 3474}#
+ (#{join-marks\ 2549}#
+ (#{wrap-marks\ 2503}# #{w\ 3381}#)
+ (#{wrap-marks\ 2503}# #{w1\ 3472}#))))
(call-with-values
(lambda ()
- (#{search\ 1277}#
- #{id\ 1362}#
- (#{wrap-subst\ 396}# #{w\ 1272}#)
- #{marks\ 1365}#))
- (lambda (#{new-id\ 1366}# #{marks\ 1367}#)
+ (#{search\ 3386}#
+ #{id\ 3471}#
+ (#{wrap-subst\ 2505}# #{w\ 3381}#)
+ #{marks\ 3474}#))
+ (lambda (#{new-id\ 3475}# #{marks\ 3476}#)
(begin
- (let ((#{t\ 1372}# #{new-id\ 1366}#))
- (if #{t\ 1372}#
- #{t\ 1372}#
+ (let ((#{t\ 3481}# #{new-id\ 3475}#))
+ (if #{t\ 3481}#
+ #{t\ 3481}#
(begin
- (let ((#{t\ 1375}#
+ (let ((#{t\ 3484}#
(call-with-values
(lambda ()
- (#{search\ 1277}#
- #{id\ 1362}#
- (#{wrap-subst\ 396}#
- #{w1\ 1363}#)
- #{marks\ 1367}#))
- (lambda (#{x\ 1377}#
+ (#{search\ 3386}#
+ #{id\ 3471}#
+ (#{wrap-subst\ 2505}#
+ #{w1\ 3472}#)
+ #{marks\ 3476}#))
+ (lambda (#{x\ 3486}#
.
- #{ignore\ 1378}#)
- #{x\ 1377}#))))
- (if #{t\ 1375}#
- #{t\ 1375}#
- #{id\ 1362}#))))))))))))
+ #{ignore\ 3487}#)
+ #{x\ 3486}#))))
+ (if #{t\ 3484}#
+ #{t\ 3484}#
+ #{id\ 3471}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1271}#)))))))
- (#{free-id=?\ 446}#
- (lambda (#{i\ 1383}# #{j\ 1384}#)
+ #{id\ 3380}#)))))))
+ (#{free-id=?\ 2555}#
+ (lambda (#{i\ 3492}# #{j\ 3493}#)
(if (eq? (begin
- (let ((#{x\ 1390}# #{i\ 1383}#))
- (if (#{syntax-object?\ 351}# #{x\ 1390}#)
- (#{syntax-object-expression\ 353}# #{x\ 1390}#)
- #{x\ 1390}#)))
+ (let ((#{x\ 3499}# #{i\ 3492}#))
+ (if (#{syntax-object?\ 2460}# #{x\ 3499}#)
+ (#{syntax-object-expression\ 2462}# #{x\ 3499}#)
+ #{x\ 3499}#)))
(begin
- (let ((#{x\ 1393}# #{j\ 1384}#))
- (if (#{syntax-object?\ 351}# #{x\ 1393}#)
- (#{syntax-object-expression\ 353}# #{x\ 1393}#)
- #{x\ 1393}#))))
- (eq? (#{id-var-name\ 444}# #{i\ 1383}# (quote (())))
- (#{id-var-name\ 444}# #{j\ 1384}# (quote (()))))
+ (let ((#{x\ 3502}# #{j\ 3493}#))
+ (if (#{syntax-object?\ 2460}# #{x\ 3502}#)
+ (#{syntax-object-expression\ 2462}# #{x\ 3502}#)
+ #{x\ 3502}#))))
+ (eq? (#{id-var-name\ 2553}# #{i\ 3492}# (quote (())))
+ (#{id-var-name\ 2553}# #{j\ 3493}# (quote (()))))
#f)))
- (#{bound-id=?\ 448}#
- (lambda (#{i\ 1397}# #{j\ 1398}#)
- (if (if (#{syntax-object?\ 351}# #{i\ 1397}#)
- (#{syntax-object?\ 351}# #{j\ 1398}#)
+ (#{bound-id=?\ 2557}#
+ (lambda (#{i\ 3506}# #{j\ 3507}#)
+ (if (if (#{syntax-object?\ 2460}# #{i\ 3506}#)
+ (#{syntax-object?\ 2460}# #{j\ 3507}#)
#f)
- (if (eq? (#{syntax-object-expression\ 353}# #{i\ 1397}#)
- (#{syntax-object-expression\ 353}# #{j\ 1398}#))
- (#{same-marks?\ 442}#
- (#{wrap-marks\ 394}#
- (#{syntax-object-wrap\ 355}# #{i\ 1397}#))
- (#{wrap-marks\ 394}#
- (#{syntax-object-wrap\ 355}# #{j\ 1398}#)))
+ (if (eq? (#{syntax-object-expression\ 2462}# #{i\ 3506}#)
+ (#{syntax-object-expression\ 2462}# #{j\ 3507}#))
+ (#{same-marks?\ 2551}#
+ (#{wrap-marks\ 2503}#
+ (#{syntax-object-wrap\ 2464}# #{i\ 3506}#))
+ (#{wrap-marks\ 2503}#
+ (#{syntax-object-wrap\ 2464}# #{j\ 3507}#)))
#f)
- (eq? #{i\ 1397}# #{j\ 1398}#))))
- (#{valid-bound-ids?\ 450}#
- (lambda (#{ids\ 1405}#)
+ (eq? #{i\ 3506}# #{j\ 3507}#))))
+ (#{valid-bound-ids?\ 2559}#
+ (lambda (#{ids\ 3514}#)
(if (letrec*
- ((#{all-ids?\ 1410}#
- (lambda (#{ids\ 1411}#)
+ ((#{all-ids?\ 3519}#
+ (lambda (#{ids\ 3520}#)
(begin
- (let ((#{t\ 1414}# (null? #{ids\ 1411}#)))
- (if #{t\ 1414}#
- #{t\ 1414}#
- (if (#{id?\ 387}# (car #{ids\ 1411}#))
- (#{all-ids?\ 1410}# (cdr #{ids\ 1411}#))
+ (let ((#{t\ 3523}# (null? #{ids\ 3520}#)))
+ (if #{t\ 3523}#
+ #{t\ 3523}#
+ (if (#{id?\ 2496}# (car #{ids\ 3520}#))
+ (#{all-ids?\ 3519}# (cdr #{ids\ 3520}#))
#f)))))))
- (begin (#{all-ids?\ 1410}# #{ids\ 1405}#)))
- (#{distinct-bound-ids?\ 452}# #{ids\ 1405}#)
+ (begin (#{all-ids?\ 3519}# #{ids\ 3514}#)))
+ (#{distinct-bound-ids?\ 2561}# #{ids\ 3514}#)
#f)))
- (#{distinct-bound-ids?\ 452}#
- (lambda (#{ids\ 1419}#)
+ (#{distinct-bound-ids?\ 2561}#
+ (lambda (#{ids\ 3528}#)
(letrec*
- ((#{distinct?\ 1423}#
- (lambda (#{ids\ 1424}#)
+ ((#{distinct?\ 3532}#
+ (lambda (#{ids\ 3533}#)
(begin
- (let ((#{t\ 1427}# (null? #{ids\ 1424}#)))
- (if #{t\ 1427}#
- #{t\ 1427}#
- (if (not (#{bound-id-member?\ 454}#
- (car #{ids\ 1424}#)
- (cdr #{ids\ 1424}#)))
- (#{distinct?\ 1423}# (cdr #{ids\ 1424}#))
+ (let ((#{t\ 3536}# (null? #{ids\ 3533}#)))
+ (if #{t\ 3536}#
+ #{t\ 3536}#
+ (if (not (#{bound-id-member?\ 2563}#
+ (car #{ids\ 3533}#)
+ (cdr #{ids\ 3533}#)))
+ (#{distinct?\ 3532}# (cdr #{ids\ 3533}#))
#f)))))))
- (begin (#{distinct?\ 1423}# #{ids\ 1419}#)))))
- (#{bound-id-member?\ 454}#
- (lambda (#{x\ 1431}# #{list\ 1432}#)
- (if (not (null? #{list\ 1432}#))
+ (begin (#{distinct?\ 3532}# #{ids\ 3528}#)))))
+ (#{bound-id-member?\ 2563}#
+ (lambda (#{x\ 3540}# #{list\ 3541}#)
+ (if (not (null? #{list\ 3541}#))
(begin
- (let ((#{t\ 1439}#
- (#{bound-id=?\ 448}#
- #{x\ 1431}#
- (car #{list\ 1432}#))))
- (if #{t\ 1439}#
- #{t\ 1439}#
- (#{bound-id-member?\ 454}#
- #{x\ 1431}#
- (cdr #{list\ 1432}#)))))
+ (let ((#{t\ 3548}#
+ (#{bound-id=?\ 2557}#
+ #{x\ 3540}#
+ (car #{list\ 3541}#))))
+ (if #{t\ 3548}#
+ #{t\ 3548}#
+ (#{bound-id-member?\ 2563}#
+ #{x\ 3540}#
+ (cdr #{list\ 3541}#)))))
#f)))
- (#{wrap\ 456}#
- (lambda (#{x\ 1441}# #{w\ 1442}# #{defmod\ 1443}#)
- (if (if (null? (#{wrap-marks\ 394}# #{w\ 1442}#))
- (null? (#{wrap-subst\ 396}# #{w\ 1442}#))
+ (#{wrap\ 2565}#
+ (lambda (#{x\ 3550}# #{w\ 3551}# #{defmod\ 3552}#)
+ (if (if (null? (#{wrap-marks\ 2503}# #{w\ 3551}#))
+ (null? (#{wrap-subst\ 2505}# #{w\ 3551}#))
#f)
- #{x\ 1441}#
- (if (#{syntax-object?\ 351}# #{x\ 1441}#)
- (#{make-syntax-object\ 349}#
- (#{syntax-object-expression\ 353}# #{x\ 1441}#)
- (#{join-wraps\ 438}#
- #{w\ 1442}#
- (#{syntax-object-wrap\ 355}# #{x\ 1441}#))
- (#{syntax-object-module\ 357}# #{x\ 1441}#))
- (if (null? #{x\ 1441}#)
- #{x\ 1441}#
- (#{make-syntax-object\ 349}#
- #{x\ 1441}#
- #{w\ 1442}#
- #{defmod\ 1443}#))))))
- (#{source-wrap\ 458}#
- (lambda (#{x\ 1456}#
- #{w\ 1457}#
- #{s\ 1458}#
- #{defmod\ 1459}#)
- (#{wrap\ 456}#
- (#{decorate-source\ 305}#
- #{x\ 1456}#
- #{s\ 1458}#)
- #{w\ 1457}#
- #{defmod\ 1459}#)))
- (#{chi-sequence\ 460}#
- (lambda (#{body\ 1464}#
- #{r\ 1465}#
- #{w\ 1466}#
- #{s\ 1467}#
- #{mod\ 1468}#)
- (#{build-sequence\ 339}#
- #{s\ 1467}#
+ #{x\ 3550}#
+ (if (#{syntax-object?\ 2460}# #{x\ 3550}#)
+ (#{make-syntax-object\ 2458}#
+ (#{syntax-object-expression\ 2462}# #{x\ 3550}#)
+ (#{join-wraps\ 2547}#
+ #{w\ 3551}#
+ (#{syntax-object-wrap\ 2464}# #{x\ 3550}#))
+ (#{syntax-object-module\ 2466}# #{x\ 3550}#))
+ (if (null? #{x\ 3550}#)
+ #{x\ 3550}#
+ (#{make-syntax-object\ 2458}#
+ #{x\ 3550}#
+ #{w\ 3551}#
+ #{defmod\ 3552}#))))))
+ (#{source-wrap\ 2567}#
+ (lambda (#{x\ 3565}#
+ #{w\ 3566}#
+ #{s\ 3567}#
+ #{defmod\ 3568}#)
+ (#{wrap\ 2565}#
+ (#{decorate-source\ 2414}#
+ #{x\ 3565}#
+ #{s\ 3567}#)
+ #{w\ 3566}#
+ #{defmod\ 3568}#)))
+ (#{chi-sequence\ 2569}#
+ (lambda (#{body\ 3573}#
+ #{r\ 3574}#
+ #{w\ 3575}#
+ #{s\ 3576}#
+ #{mod\ 3577}#)
+ (#{build-sequence\ 2448}#
+ #{s\ 3576}#
(letrec*
- ((#{dobody\ 1479}#
- (lambda (#{body\ 1480}#
- #{r\ 1481}#
- #{w\ 1482}#
- #{mod\ 1483}#)
- (if (null? #{body\ 1480}#)
+ ((#{dobody\ 3588}#
+ (lambda (#{body\ 3589}#
+ #{r\ 3590}#
+ #{w\ 3591}#
+ #{mod\ 3592}#)
+ (if (null? #{body\ 3589}#)
'()
(begin
- (let ((#{first\ 1485}#
- (#{chi\ 472}#
- (car #{body\ 1480}#)
- #{r\ 1481}#
- #{w\ 1482}#
- #{mod\ 1483}#)))
- (cons #{first\ 1485}#
- (#{dobody\ 1479}#
- (cdr #{body\ 1480}#)
- #{r\ 1481}#
- #{w\ 1482}#
- #{mod\ 1483}#))))))))
+ (let ((#{first\ 3594}#
+ (#{chi\ 2581}#
+ (car #{body\ 3589}#)
+ #{r\ 3590}#
+ #{w\ 3591}#
+ #{mod\ 3592}#)))
+ (cons #{first\ 3594}#
+ (#{dobody\ 3588}#
+ (cdr #{body\ 3589}#)
+ #{r\ 3590}#
+ #{w\ 3591}#
+ #{mod\ 3592}#))))))))
(begin
- (#{dobody\ 1479}#
- #{body\ 1464}#
- #{r\ 1465}#
- #{w\ 1466}#
- #{mod\ 1468}#))))))
- (#{chi-top-sequence\ 462}#
- (lambda (#{body\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#
- #{s\ 1489}#
- #{m\ 1490}#
- #{esew\ 1491}#
- #{mod\ 1492}#)
- (#{build-sequence\ 339}#
- #{s\ 1489}#
+ (#{dobody\ 3588}#
+ #{body\ 3573}#
+ #{r\ 3574}#
+ #{w\ 3575}#
+ #{mod\ 3577}#))))))
+ (#{chi-top-sequence\ 2571}#
+ (lambda (#{body\ 3595}#
+ #{r\ 3596}#
+ #{w\ 3597}#
+ #{s\ 3598}#
+ #{m\ 3599}#
+ #{esew\ 3600}#
+ #{mod\ 3601}#)
+ (#{build-sequence\ 2448}#
+ #{s\ 3598}#
(letrec*
- ((#{dobody\ 1508}#
- (lambda (#{body\ 1509}#
- #{r\ 1510}#
- #{w\ 1511}#
- #{m\ 1512}#
- #{esew\ 1513}#
- #{mod\ 1514}#
- #{out\ 1515}#)
- (if (null? #{body\ 1509}#)
- (reverse #{out\ 1515}#)
- (#{dobody\ 1508}#
- (cdr #{body\ 1509}#)
- #{r\ 1510}#
- #{w\ 1511}#
- #{m\ 1512}#
- #{esew\ 1513}#
- #{mod\ 1514}#
- (cons (#{chi-top\ 470}#
- (car #{body\ 1509}#)
- #{r\ 1510}#
- #{w\ 1511}#
- #{m\ 1512}#
- #{esew\ 1513}#
- #{mod\ 1514}#)
- #{out\ 1515}#))))))
+ ((#{dobody\ 3617}#
+ (lambda (#{body\ 3618}#
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{m\ 3621}#
+ #{esew\ 3622}#
+ #{mod\ 3623}#
+ #{out\ 3624}#)
+ (if (null? #{body\ 3618}#)
+ (reverse #{out\ 3624}#)
+ (#{dobody\ 3617}#
+ (cdr #{body\ 3618}#)
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{m\ 3621}#
+ #{esew\ 3622}#
+ #{mod\ 3623}#
+ (cons (#{chi-top\ 2579}#
+ (car #{body\ 3618}#)
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{m\ 3621}#
+ #{esew\ 3622}#
+ #{mod\ 3623}#)
+ #{out\ 3624}#))))))
(begin
- (#{dobody\ 1508}#
- #{body\ 1486}#
- #{r\ 1487}#
- #{w\ 1488}#
- #{m\ 1490}#
- #{esew\ 1491}#
- #{mod\ 1492}#
+ (#{dobody\ 3617}#
+ #{body\ 3595}#
+ #{r\ 3596}#
+ #{w\ 3597}#
+ #{m\ 3599}#
+ #{esew\ 3600}#
+ #{mod\ 3601}#
'()))))))
- (#{chi-install-global\ 464}#
- (lambda (#{name\ 1516}# #{e\ 1517}#)
- (#{build-global-definition\ 327}#
+ (#{chi-install-global\ 2573}#
+ (lambda (#{name\ 3625}# #{e\ 3626}#)
+ (#{build-global-definition\ 2436}#
#f
- #{name\ 1516}#
- (#{build-application\ 309}#
+ #{name\ 3625}#
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 335}#
+ (#{build-primref\ 2444}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 337}# #f #{name\ 1516}#)
- (#{build-data\ 337}# #f (quote macro))
- #{e\ 1517}#)))))
- (#{chi-when-list\ 466}#
- (lambda (#{e\ 1525}# #{when-list\ 1526}# #{w\ 1527}#)
+ (list (#{build-data\ 2446}# #f #{name\ 3625}#)
+ (#{build-data\ 2446}# #f (quote macro))
+ #{e\ 3626}#)))))
+ (#{chi-when-list\ 2575}#
+ (lambda (#{e\ 3634}# #{when-list\ 3635}# #{w\ 3636}#)
(letrec*
- ((#{f\ 1534}#
- (lambda (#{when-list\ 1535}# #{situations\ 1536}#)
- (if (null? #{when-list\ 1535}#)
- #{situations\ 1536}#
- (#{f\ 1534}#
- (cdr #{when-list\ 1535}#)
+ ((#{f\ 3643}#
+ (lambda (#{when-list\ 3644}# #{situations\ 3645}#)
+ (if (null? #{when-list\ 3644}#)
+ #{situations\ 3645}#
+ (#{f\ 3643}#
+ (cdr #{when-list\ 3644}#)
(cons (begin
- (let ((#{x\ 1538}# (car #{when-list\ 1535}#)))
- (if (#{free-id=?\ 446}#
- #{x\ 1538}#
+ (let ((#{x\ 3647}# (car #{when-list\ 3644}#)))
+ (if (#{free-id=?\ 2555}#
+ #{x\ 3647}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1537"))
+ #(ribcage #(x) #((top)) #("i3646"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1531" "i1532" "i1533"))
+ #("i3640" "i3641" "i3642"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1528" "i1529" "i1530"))
+ #("i3637" "i3638" "i3639"))
#(ribcage
(lambda-var-list
gen-var
@@ -1309,7 +1326,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -1319,6 +1335,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -1487,154 +1504,157 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 446}#
- #{x\ 1538}#
+ (if (#{free-id=?\ 2555}#
+ #{x\ 3647}#
'#(syntax-object
load
((top)
@@ -1644,17 +1664,17 @@
#(ribcage
#(x)
#((top))
- #("i1537"))
+ #("i3646"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1531" "i1532" "i1533"))
+ #("i3640" "i3641" "i3642"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1528" "i1529" "i1530"))
+ #("i3637" "i3638" "i3639"))
#(ribcage
(lambda-var-list
gen-var
@@ -1752,7 +1772,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -1762,6 +1781,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -1930,154 +1950,157 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 446}#
- #{x\ 1538}#
+ (if (#{free-id=?\ 2555}#
+ #{x\ 3647}#
'#(syntax-object
eval
((top)
@@ -2087,17 +2110,17 @@
#(ribcage
#(x)
#((top))
- #("i1537"))
+ #("i3646"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1531" "i1532" "i1533"))
+ #("i3640" "i3641" "i3642"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1528" "i1529" "i1530"))
+ #("i3637" "i3638" "i3639"))
#(ribcage
(lambda-var-list
gen-var
@@ -2195,7 +2218,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -2205,6 +2227,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -2373,154 +2396,157 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 446}#
- #{x\ 1538}#
+ (if (#{free-id=?\ 2555}#
+ #{x\ 3647}#
'#(syntax-object
expand
((top)
@@ -2530,17 +2556,17 @@
#(ribcage
#(x)
#((top))
- #("i1537"))
+ #("i3646"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1531" "i1532" "i1533"))
+ #("i3640" "i3641" "i3642"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1528" "i1529" "i1530"))
+ #("i3637" "i3638" "i3639"))
#(ribcage
(lambda-var-list
gen-var
@@ -2638,7 +2664,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -2648,6 +2673,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -2816,402 +2842,405 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1525}#
- (#{wrap\ 456}#
- #{x\ 1538}#
- #{w\ 1527}#
+ #{e\ 3634}#
+ (#{wrap\ 2565}#
+ #{x\ 3647}#
+ #{w\ 3636}#
#f))))))))
- #{situations\ 1536}#))))))
+ #{situations\ 3645}#))))))
(begin
- (#{f\ 1534}# #{when-list\ 1526}# (quote ()))))))
- (#{syntax-type\ 468}#
- (lambda (#{e\ 1548}#
- #{r\ 1549}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{rib\ 1552}#
- #{mod\ 1553}#
- #{for-car?\ 1554}#)
- (if (symbol? #{e\ 1548}#)
+ (#{f\ 3643}# #{when-list\ 3635}# (quote ()))))))
+ (#{syntax-type\ 2577}#
+ (lambda (#{e\ 3657}#
+ #{r\ 3658}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#
+ #{for-car?\ 3663}#)
+ (if (symbol? #{e\ 3657}#)
(begin
- (let ((#{n\ 1566}#
- (#{id-var-name\ 444}# #{e\ 1548}# #{w\ 1550}#)))
+ (let ((#{n\ 3675}#
+ (#{id-var-name\ 2553}# #{e\ 3657}# #{w\ 3659}#)))
(begin
- (let ((#{b\ 1568}#
- (#{lookup\ 381}#
- #{n\ 1566}#
- #{r\ 1549}#
- #{mod\ 1553}#)))
+ (let ((#{b\ 3677}#
+ (#{lookup\ 2490}#
+ #{n\ 3675}#
+ #{r\ 3658}#
+ #{mod\ 3662}#)))
(begin
- (let ((#{type\ 1570}#
- (#{binding-type\ 370}# #{b\ 1568}#)))
- (if (eqv? #{type\ 1570}# (quote lexical))
+ (let ((#{type\ 3679}#
+ (#{binding-type\ 2479}# #{b\ 3677}#)))
+ (if (eqv? #{type\ 3679}# (quote lexical))
(values
- #{type\ 1570}#
- (#{binding-value\ 372}# #{b\ 1568}#)
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (if (eqv? #{type\ 1570}# (quote global))
+ #{type\ 3679}#
+ (#{binding-value\ 2481}# #{b\ 3677}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{type\ 3679}# (quote global))
(values
- #{type\ 1570}#
- #{n\ 1566}#
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (if (eqv? #{type\ 1570}# (quote macro))
- (if #{for-car?\ 1554}#
+ #{type\ 3679}#
+ #{n\ 3675}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{type\ 3679}# (quote macro))
+ (if #{for-car?\ 3663}#
(values
- #{type\ 1570}#
- (#{binding-value\ 372}# #{b\ 1568}#)
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (#{syntax-type\ 468}#
- (#{chi-macro\ 478}#
- (#{binding-value\ 372}# #{b\ 1568}#)
- #{e\ 1548}#
- #{r\ 1549}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{rib\ 1552}#
- #{mod\ 1553}#)
- #{r\ 1549}#
+ #{type\ 3679}#
+ (#{binding-value\ 2481}# #{b\ 3677}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (#{syntax-type\ 2577}#
+ (#{chi-macro\ 2587}#
+ (#{binding-value\ 2481}# #{b\ 3677}#)
+ #{e\ 3657}#
+ #{r\ 3658}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#)
+ #{r\ 3658}#
'(())
- #{s\ 1551}#
- #{rib\ 1552}#
- #{mod\ 1553}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#
#f))
(values
- #{type\ 1570}#
- (#{binding-value\ 372}# #{b\ 1568}#)
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#))))))))))
- (if (pair? #{e\ 1548}#)
+ #{type\ 3679}#
+ (#{binding-value\ 2481}# #{b\ 3677}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#))))))))))
+ (if (pair? #{e\ 3657}#)
(begin
- (let ((#{first\ 1579}# (car #{e\ 1548}#)))
+ (let ((#{first\ 3688}# (car #{e\ 3657}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 468}#
- #{first\ 1579}#
- #{r\ 1549}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{rib\ 1552}#
- #{mod\ 1553}#
+ (#{syntax-type\ 2577}#
+ #{first\ 3688}#
+ #{r\ 3658}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#
#t))
- (lambda (#{ftype\ 1580}#
- #{fval\ 1581}#
- #{fe\ 1582}#
- #{fw\ 1583}#
- #{fs\ 1584}#
- #{fmod\ 1585}#)
- (if (eqv? #{ftype\ 1580}# (quote lexical))
+ (lambda (#{ftype\ 3689}#
+ #{fval\ 3690}#
+ #{fe\ 3691}#
+ #{fw\ 3692}#
+ #{fs\ 3693}#
+ #{fmod\ 3694}#)
+ (if (eqv? #{ftype\ 3689}# (quote lexical))
(values
'lexical-call
- #{fval\ 1581}#
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (if (eqv? #{ftype\ 1580}# (quote global))
+ #{fval\ 3690}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}# (quote global))
(values
'global-call
- (#{make-syntax-object\ 349}#
- #{fval\ 1581}#
- #{w\ 1550}#
- #{fmod\ 1585}#)
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (if (eqv? #{ftype\ 1580}# (quote macro))
- (#{syntax-type\ 468}#
- (#{chi-macro\ 478}#
- #{fval\ 1581}#
- #{e\ 1548}#
- #{r\ 1549}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{rib\ 1552}#
- #{mod\ 1553}#)
- #{r\ 1549}#
+ (#{make-syntax-object\ 2458}#
+ #{fval\ 3690}#
+ #{w\ 3659}#
+ #{fmod\ 3694}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}# (quote macro))
+ (#{syntax-type\ 2577}#
+ (#{chi-macro\ 2587}#
+ #{fval\ 3690}#
+ #{e\ 3657}#
+ #{r\ 3658}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#)
+ #{r\ 3658}#
'(())
- #{s\ 1551}#
- #{rib\ 1552}#
- #{mod\ 1553}#
- #{for-car?\ 1554}#)
- (if (eqv? #{ftype\ 1580}# (quote module-ref))
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#
+ #{for-car?\ 3663}#)
+ (if (eqv? #{ftype\ 3689}# (quote module-ref))
(call-with-values
(lambda ()
- (#{fval\ 1581}#
- #{e\ 1548}#
- #{r\ 1549}#
- #{w\ 1550}#))
- (lambda (#{e\ 1597}#
- #{r\ 1598}#
- #{w\ 1599}#
- #{s\ 1600}#
- #{mod\ 1601}#)
- (#{syntax-type\ 468}#
- #{e\ 1597}#
- #{r\ 1598}#
- #{w\ 1599}#
- #{s\ 1600}#
- #{rib\ 1552}#
- #{mod\ 1601}#
- #{for-car?\ 1554}#)))
- (if (eqv? #{ftype\ 1580}# (quote core))
+ (#{fval\ 3690}#
+ #{e\ 3657}#
+ #{r\ 3658}#
+ #{w\ 3659}#))
+ (lambda (#{e\ 3706}#
+ #{r\ 3707}#
+ #{w\ 3708}#
+ #{s\ 3709}#
+ #{mod\ 3710}#)
+ (#{syntax-type\ 2577}#
+ #{e\ 3706}#
+ #{r\ 3707}#
+ #{w\ 3708}#
+ #{s\ 3709}#
+ #{rib\ 3661}#
+ #{mod\ 3710}#
+ #{for-car?\ 3663}#)))
+ (if (eqv? #{ftype\ 3689}# (quote core))
(values
'core-form
- #{fval\ 1581}#
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (if (eqv? #{ftype\ 1580}#
+ #{fval\ 3690}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}#
'local-syntax)
(values
'local-syntax-form
- #{fval\ 1581}#
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (if (eqv? #{ftype\ 1580}# (quote begin))
+ #{fval\ 3690}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}# (quote begin))
(values
'begin-form
#f
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (if (eqv? #{ftype\ 1580}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}#
'eval-when)
(values
'eval-when-form
#f
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
- (if (eqv? #{ftype\ 1580}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}#
'define)
- (let ((#{tmp\ 1612}# #{e\ 1548}#))
- (let ((#{tmp\ 1613}#
+ (let ((#{tmp\ 3721}# #{e\ 3657}#))
+ (let ((#{tmp\ 3722}#
($sc-dispatch
- #{tmp\ 1612}#
+ #{tmp\ 3721}#
'(any any any))))
- (if (if #{tmp\ 1613}#
+ (if (if #{tmp\ 3722}#
(@apply
- (lambda (#{_\ 1617}#
- #{name\ 1618}#
- #{val\ 1619}#)
- (#{id?\ 387}#
- #{name\ 1618}#))
- #{tmp\ 1613}#)
+ (lambda (#{_\ 3726}#
+ #{name\ 3727}#
+ #{val\ 3728}#)
+ (#{id?\ 2496}#
+ #{name\ 3727}#))
+ #{tmp\ 3722}#)
#f)
(@apply
- (lambda (#{_\ 1623}#
- #{name\ 1624}#
- #{val\ 1625}#)
+ (lambda (#{_\ 3732}#
+ #{name\ 3733}#
+ #{val\ 3734}#)
(values
'define-form
- #{name\ 1624}#
- #{val\ 1625}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#))
- #{tmp\ 1613}#)
- (let ((#{tmp\ 1626}#
+ #{name\ 3733}#
+ #{val\ 3734}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#))
+ #{tmp\ 3722}#)
+ (let ((#{tmp\ 3735}#
($sc-dispatch
- #{tmp\ 1612}#
+ #{tmp\ 3721}#
'(any (any . any)
any
.
each-any))))
- (if (if #{tmp\ 1626}#
+ (if (if #{tmp\ 3735}#
(@apply
- (lambda (#{_\ 1632}#
- #{name\
1633}#
- #{args\
1634}#
- #{e1\
1635}#
- #{e2\
1636}#)
- (if (#{id?\ 387}#
- #{name\
1633}#)
-
(#{valid-bound-ids?\ 450}#
-
(#{lambda-var-list\ 502}#
- #{args\
1634}#))
+ (lambda (#{_\ 3741}#
+ #{name\
3742}#
+ #{args\
3743}#
+ #{e1\
3744}#
+ #{e2\
3745}#)
+ (if (#{id?\ 2496}#
+ #{name\
3742}#)
+
(#{valid-bound-ids?\ 2559}#
+
(#{lambda-var-list\ 2611}#
+ #{args\
3743}#))
#f))
- #{tmp\ 1626}#)
+ #{tmp\ 3735}#)
#f)
(@apply
- (lambda (#{_\ 1644}#
- #{name\ 1645}#
- #{args\ 1646}#
- #{e1\ 1647}#
- #{e2\ 1648}#)
+ (lambda (#{_\ 3753}#
+ #{name\ 3754}#
+ #{args\ 3755}#
+ #{e1\ 3756}#
+ #{e2\ 3757}#)
(values
'define-form
- (#{wrap\ 456}#
- #{name\ 1645}#
- #{w\ 1550}#
- #{mod\ 1553}#)
- (#{decorate-source\
305}#
+ (#{wrap\ 2565}#
+ #{name\ 3754}#
+ #{w\ 3659}#
+ #{mod\ 3662}#)
+ (#{decorate-source\
2414}#
(cons
'#(syntax-object
lambda
((top)
@@ -3226,11 +3255,11 @@
(top)
(top)
(top))
-
#("i1639"
-
"i1640"
-
"i1641"
-
"i1642"
-
"i1643"))
+
#("i3748"
+
"i3749"
+
"i3750"
+
"i3751"
+
"i3752"))
#(ribcage
()
()
@@ -3252,12 +3281,12 @@
(top)
(top)
(top))
-
#("i1586"
-
"i1587"
-
"i1588"
-
"i1589"
-
"i1590"
-
"i1591"))
+
#("i3695"
+
"i3696"
+
"i3697"
+
"i3698"
+
"i3699"
+
"i3700"))
#(ribcage
()
()
@@ -3265,7 +3294,7 @@
#(ribcage
#(first)
#((top))
-
#("i1578"))
+
#("i3687"))
#(ribcage
()
()
@@ -3293,13 +3322,13 @@
(top)
(top)
(top))
-
#("i1555"
-
"i1556"
-
"i1557"
-
"i1558"
-
"i1559"
-
"i1560"
-
"i1561"))
+
#("i3664"
+
"i3665"
+
"i3666"
+
"i3667"
+
"i3668"
+
"i3669"
+
"i3670"))
#(ribcage
(lambda-var-list
gen-var
@@ -3397,7 +3426,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
-
maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -3407,6 +3435,7 @@
build-conditional
build-application
build-void
+
maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -3575,143 +3604,143 @@
(top)
(top)
(top))
-
("i501"
-
"i499"
-
"i497"
-
"i495"
-
"i493"
-
"i491"
-
"i489"
-
"i487"
-
"i485"
-
"i483"
-
"i481"
-
"i479"
-
"i477"
-
"i475"
-
"i473"
-
"i471"
-
"i469"
-
"i467"
-
"i465"
-
"i463"
-
"i461"
-
"i459"
-
"i457"
-
"i455"
-
"i453"
-
"i451"
-
"i449"
-
"i447"
-
"i445"
-
"i443"
-
"i441"
-
"i439"
-
"i437"
-
"i435"
-
"i433"
-
"i431"
-
"i430"
-
"i429"
-
"i427"
-
"i426"
-
"i425"
-
"i424"
-
"i423"
-
"i421"
-
"i419"
-
"i417"
-
"i415"
-
"i413"
-
"i411"
-
"i409"
-
"i407"
-
"i404"
-
"i402"
-
"i401"
-
"i400"
-
"i399"
-
"i398"
-
"i397"
-
"i395"
-
"i393"
-
"i391"
-
"i389"
-
"i388"
-
"i386"
-
"i384"
-
"i382"
-
"i380"
-
"i378"
-
"i376"
-
"i374"
-
"i373"
-
"i371"
-
"i369"
-
"i368"
-
"i367"
-
"i365"
-
"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"
-
"i302"
-
"i300"
-
"i299"
-
"i297"
-
"i295"
-
"i293"
-
"i291"
-
"i289"
-
"i287"
-
"i285"
-
"i283"
-
"i281"
-
"i278"
-
"i276"
-
"i274"
-
"i272"
-
"i270"
-
"i268"
-
"i266"
-
"i264"
-
"i262"
-
"i260"
-
"i258"
-
"i256"
-
"i254"
-
"i252"
-
"i250"
-
"i248"
-
"i246"
-
"i244"))
+
("i2610"
+
"i2608"
+
"i2606"
+
"i2604"
+
"i2602"
+
"i2600"
+
"i2598"
+
"i2596"
+
"i2594"
+
"i2592"
+
"i2590"
+
"i2588"
+
"i2586"
+
"i2584"
+
"i2582"
+
"i2580"
+
"i2578"
+
"i2576"
+
"i2574"
+
"i2572"
+
"i2570"
+
"i2568"
+
"i2566"
+
"i2564"
+
"i2562"
+
"i2560"
+
"i2558"
+
"i2556"
+
"i2554"
+
"i2552"
+
"i2550"
+
"i2548"
+
"i2546"
+
"i2544"
+
"i2542"
+
"i2540"
+
"i2539"
+
"i2538"
+
"i2536"
+
"i2535"
+
"i2534"
+
"i2533"
+
"i2532"
+
"i2530"
+
"i2528"
+
"i2526"
+
"i2524"
+
"i2522"
+
"i2520"
+
"i2518"
+
"i2516"
+
"i2513"
+
"i2511"
+
"i2510"
+
"i2509"
+
"i2508"
+
"i2507"
+
"i2506"
+
"i2504"
+
"i2502"
+
"i2500"
+
"i2498"
+
"i2497"
+
"i2495"
+
"i2493"
+
"i2491"
+
"i2489"
+
"i2487"
+
"i2485"
+
"i2483"
+
"i2482"
+
"i2480"
+
"i2478"
+
"i2477"
+
"i2476"
+
"i2474"
+
"i2473"
+
"i2471"
+
"i2469"
+
"i2467"
+
"i2465"
+
"i2463"
+
"i2461"
+
"i2459"
+
"i2457"
+
"i2455"
+
"i2453"
+
"i2451"
+
"i2449"
+
"i2447"
+
"i2445"
+
"i2443"
+
"i2441"
+
"i2439"
+
"i2437"
+
"i2435"
+
"i2433"
+
"i2431"
+
"i2429"
+
"i2427"
+
"i2425"
+
"i2423"
+
"i2421"
+
"i2419"
+
"i2417"
+
"i2415"
+
"i2413"
+
"i2411"
+
"i2409"
+
"i2408"
+
"i2406"
+
"i2404"
+
"i2402"
+
"i2400"
+
"i2398"
+
"i2396"
+
"i2394"
+
"i2392"
+
"i2390"
+
"i2387"
+
"i2385"
+
"i2383"
+
"i2381"
+
"i2379"
+
"i2377"
+
"i2375"
+
"i2373"
+
"i2371"
+
"i2369"
+
"i2367"
+
"i2365"
+
"i2363"
+
"i2361"
+
"i2359"
+
"i2357"
+
"i2355"
+
"i2353"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3721,44 +3750,44 @@
(top)
(top)
(top))
- ("i38"
- "i37"
- "i36"
-
"i34")))
+
("i2147"
+
"i2146"
+
"i2145"
+
"i2143")))
(hygiene
guile))
- (#{wrap\
456}#
- (cons
#{args\ 1646}#
-
(cons #{e1\ 1647}#
-
#{e2\ 1648}#))
- #{w\
1550}#
- #{mod\
1553}#))
- #{s\ 1551}#)
+ (#{wrap\
2565}#
+ (cons
#{args\ 3755}#
+
(cons #{e1\ 3756}#
+
#{e2\ 3757}#))
+ #{w\
3659}#
+ #{mod\
3662}#))
+ #{s\ 3660}#)
'(())
- #{s\ 1551}#
- #{mod\ 1553}#))
- #{tmp\ 1626}#)
- (let ((#{tmp\ 1651}#
+ #{s\ 3660}#
+ #{mod\ 3662}#))
+ #{tmp\ 3735}#)
+ (let ((#{tmp\ 3760}#
($sc-dispatch
- #{tmp\ 1612}#
+ #{tmp\ 3721}#
'(any any))))
- (if (if #{tmp\ 1651}#
+ (if (if #{tmp\ 3760}#
(@apply
- (lambda (#{_\
1654}#
-
#{name\ 1655}#)
- (#{id?\ 387}#
- #{name\
1655}#))
- #{tmp\ 1651}#)
+ (lambda (#{_\
3763}#
+
#{name\ 3764}#)
+ (#{id?\ 2496}#
+ #{name\
3764}#))
+ #{tmp\ 3760}#)
#f)
(@apply
- (lambda (#{_\ 1658}#
- #{name\
1659}#)
+ (lambda (#{_\ 3767}#
+ #{name\
3768}#)
(values
'define-form
- (#{wrap\ 456}#
- #{name\ 1659}#
- #{w\ 1550}#
- #{mod\ 1553}#)
+ (#{wrap\ 2565}#
+ #{name\ 3768}#
+ #{w\ 3659}#
+ #{mod\ 3662}#)
'(#(syntax-object
if
((top)
@@ -3766,8 +3795,8 @@
#(_ name)
#((top)
(top))
- #("i1656"
-
"i1657"))
+ #("i3765"
+
"i3766"))
#(ribcage
()
()
@@ -3789,12 +3818,12 @@
(top)
(top)
(top))
- #("i1586"
- "i1587"
- "i1588"
- "i1589"
- "i1590"
-
"i1591"))
+ #("i3695"
+ "i3696"
+ "i3697"
+ "i3698"
+ "i3699"
+
"i3700"))
#(ribcage
()
()
@@ -3802,7 +3831,7 @@
#(ribcage
#(first)
#((top))
-
#("i1578"))
+
#("i3687"))
#(ribcage
()
()
@@ -3830,13 +3859,13 @@
(top)
(top)
(top))
- #("i1555"
- "i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
-
"i1561"))
+ #("i3664"
+ "i3665"
+ "i3666"
+ "i3667"
+ "i3668"
+ "i3669"
+
"i3670"))
#(ribcage
(lambda-var-list
gen-var
@@ -3934,7 +3963,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
-
maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -3944,6 +3972,7 @@
build-conditional
build-application
build-void
+
maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -4112,143 +4141,143 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+
"i2353"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4258,10 +4287,10 @@
(top)
(top)
(top))
- ("i38"
- "i37"
- "i36"
- "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+
"i2143")))
(hygiene
guile))
#(syntax-object
@@ -4271,8 +4300,8 @@
#(_ name)
#((top)
(top))
- #("i1656"
-
"i1657"))
+ #("i3765"
+
"i3766"))
#(ribcage
()
()
@@ -4294,12 +4323,12 @@
(top)
(top)
(top))
- #("i1586"
- "i1587"
- "i1588"
- "i1589"
- "i1590"
-
"i1591"))
+ #("i3695"
+ "i3696"
+ "i3697"
+ "i3698"
+ "i3699"
+
"i3700"))
#(ribcage
()
()
@@ -4307,7 +4336,7 @@
#(ribcage
#(first)
#((top))
-
#("i1578"))
+
#("i3687"))
#(ribcage
()
()
@@ -4335,13 +4364,13 @@
(top)
(top)
(top))
- #("i1555"
- "i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
-
"i1561"))
+ #("i3664"
+ "i3665"
+ "i3666"
+ "i3667"
+ "i3668"
+ "i3669"
+
"i3670"))
#(ribcage
(lambda-var-list
gen-var
@@ -4439,7 +4468,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
-
maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -4449,6 +4477,7 @@
build-conditional
build-application
build-void
+
maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -4617,143 +4646,143 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+
"i2353"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4763,10 +4792,10 @@
(top)
(top)
(top))
- ("i38"
- "i37"
- "i36"
- "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+
"i2143")))
(hygiene
guile))
#(syntax-object
@@ -4776,8 +4805,8 @@
#(_ name)
#((top)
(top))
- #("i1656"
-
"i1657"))
+ #("i3765"
+
"i3766"))
#(ribcage
()
()
@@ -4799,12 +4828,12 @@
(top)
(top)
(top))
- #("i1586"
- "i1587"
- "i1588"
- "i1589"
- "i1590"
-
"i1591"))
+ #("i3695"
+ "i3696"
+ "i3697"
+ "i3698"
+ "i3699"
+
"i3700"))
#(ribcage
()
()
@@ -4812,7 +4841,7 @@
#(ribcage
#(first)
#((top))
-
#("i1578"))
+
#("i3687"))
#(ribcage
()
()
@@ -4840,13 +4869,13 @@
(top)
(top)
(top))
- #("i1555"
- "i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
-
"i1561"))
+ #("i3664"
+ "i3665"
+ "i3666"
+ "i3667"
+ "i3668"
+ "i3669"
+
"i3670"))
#(ribcage
(lambda-var-list
gen-var
@@ -4944,7 +4973,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
-
maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -4954,6 +4982,7 @@
build-conditional
build-application
build-void
+
maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -5122,143 +5151,143 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+
"i2353"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -5268,1233 +5297,1233 @@
(top)
(top)
(top))
- ("i38"
- "i37"
- "i36"
- "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+
"i2143")))
(hygiene
guile)))
'(())
- #{s\ 1551}#
- #{mod\ 1553}#))
- #{tmp\ 1651}#)
+ #{s\ 3660}#
+ #{mod\ 3662}#))
+ #{tmp\ 3760}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\
1612}#))))))))
- (if (eqv? #{ftype\ 1580}#
+ #{tmp\
3721}#))))))))
+ (if (eqv? #{ftype\ 3689}#
'define-syntax)
- (let ((#{tmp\ 1662}# #{e\ 1548}#))
- (let ((#{tmp\ 1663}#
+ (let ((#{tmp\ 3771}# #{e\ 3657}#))
+ (let ((#{tmp\ 3772}#
($sc-dispatch
- #{tmp\ 1662}#
+ #{tmp\ 3771}#
'(any any any))))
- (if (if #{tmp\ 1663}#
+ (if (if #{tmp\ 3772}#
(@apply
- (lambda (#{_\ 1667}#
- #{name\
1668}#
- #{val\
1669}#)
- (#{id?\ 387}#
- #{name\ 1668}#))
- #{tmp\ 1663}#)
+ (lambda (#{_\ 3776}#
+ #{name\
3777}#
+ #{val\
3778}#)
+ (#{id?\ 2496}#
+ #{name\ 3777}#))
+ #{tmp\ 3772}#)
#f)
(@apply
- (lambda (#{_\ 1673}#
- #{name\ 1674}#
- #{val\ 1675}#)
+ (lambda (#{_\ 3782}#
+ #{name\ 3783}#
+ #{val\ 3784}#)
(values
'define-syntax-form
- #{name\ 1674}#
- #{val\ 1675}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#))
- #{tmp\ 1663}#)
+ #{name\ 3783}#
+ #{val\ 3784}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#))
+ #{tmp\ 3772}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 1662}#))))
+ #{tmp\ 3771}#))))
(values
'call
#f
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)))))))))))))))
- (if (#{syntax-object?\ 351}# #{e\ 1548}#)
- (#{syntax-type\ 468}#
- (#{syntax-object-expression\ 353}# #{e\ 1548}#)
- #{r\ 1549}#
- (#{join-wraps\ 438}#
- #{w\ 1550}#
- (#{syntax-object-wrap\ 355}# #{e\ 1548}#))
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)))))))))))))))
+ (if (#{syntax-object?\ 2460}# #{e\ 3657}#)
+ (#{syntax-type\ 2577}#
+ (#{syntax-object-expression\ 2462}# #{e\ 3657}#)
+ #{r\ 3658}#
+ (#{join-wraps\ 2547}#
+ #{w\ 3659}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 3657}#))
(begin
- (let ((#{t\ 1681}#
- (#{source-annotation\ 366}# #{e\ 1548}#)))
- (if #{t\ 1681}# #{t\ 1681}# #{s\ 1551}#)))
- #{rib\ 1552}#
+ (let ((#{t\ 3790}#
+ (#{source-annotation\ 2475}# #{e\ 3657}#)))
+ (if #{t\ 3790}# #{t\ 3790}# #{s\ 3660}#)))
+ #{rib\ 3661}#
(begin
- (let ((#{t\ 1685}#
- (#{syntax-object-module\ 357}# #{e\ 1548}#)))
- (if #{t\ 1685}# #{t\ 1685}# #{mod\ 1553}#)))
- #{for-car?\ 1554}#)
- (if (self-evaluating? #{e\ 1548}#)
+ (let ((#{t\ 3794}#
+ (#{syntax-object-module\ 2466}# #{e\ 3657}#)))
+ (if #{t\ 3794}# #{t\ 3794}# #{mod\ 3662}#)))
+ #{for-car?\ 3663}#)
+ (if (self-evaluating? #{e\ 3657}#)
(values
'constant
#f
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
(values
'other
#f
- #{e\ 1548}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{mod\ 1553}#)))))))
- (#{chi-top\ 470}#
- (lambda (#{e\ 1690}#
- #{r\ 1691}#
- #{w\ 1692}#
- #{m\ 1693}#
- #{esew\ 1694}#
- #{mod\ 1695}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)))))))
+ (#{chi-top\ 2579}#
+ (lambda (#{e\ 3799}#
+ #{r\ 3800}#
+ #{w\ 3801}#
+ #{m\ 3802}#
+ #{esew\ 3803}#
+ #{mod\ 3804}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 468}#
- #{e\ 1690}#
- #{r\ 1691}#
- #{w\ 1692}#
- (#{source-annotation\ 366}# #{e\ 1690}#)
+ (#{syntax-type\ 2577}#
+ #{e\ 3799}#
+ #{r\ 3800}#
+ #{w\ 3801}#
+ (#{source-annotation\ 2475}# #{e\ 3799}#)
#f
- #{mod\ 1695}#
+ #{mod\ 3804}#
#f))
- (lambda (#{type\ 1716}#
- #{value\ 1717}#
- #{e\ 1718}#
- #{w\ 1719}#
- #{s\ 1720}#
- #{mod\ 1721}#)
- (if (eqv? #{type\ 1716}# (quote begin-form))
- (let ((#{tmp\ 1729}# #{e\ 1718}#))
- (let ((#{tmp\ 1730}#
- ($sc-dispatch #{tmp\ 1729}# (quote (any)))))
- (if #{tmp\ 1730}#
+ (lambda (#{type\ 3825}#
+ #{value\ 3826}#
+ #{e\ 3827}#
+ #{w\ 3828}#
+ #{s\ 3829}#
+ #{mod\ 3830}#)
+ (if (eqv? #{type\ 3825}# (quote begin-form))
+ (let ((#{tmp\ 3838}# #{e\ 3827}#))
+ (let ((#{tmp\ 3839}#
+ ($sc-dispatch #{tmp\ 3838}# (quote (any)))))
+ (if #{tmp\ 3839}#
(@apply
- (lambda (#{_\ 1732}#) (#{chi-void\ 486}#))
- #{tmp\ 1730}#)
- (let ((#{tmp\ 1733}#
+ (lambda (#{_\ 3841}#) (#{chi-void\ 2595}#))
+ #{tmp\ 3839}#)
+ (let ((#{tmp\ 3842}#
($sc-dispatch
- #{tmp\ 1729}#
+ #{tmp\ 3838}#
'(any any . each-any))))
- (if #{tmp\ 1733}#
+ (if #{tmp\ 3842}#
(@apply
- (lambda (#{_\ 1737}# #{e1\ 1738}# #{e2\ 1739}#)
- (#{chi-top-sequence\ 462}#
- (cons #{e1\ 1738}# #{e2\ 1739}#)
- #{r\ 1691}#
- #{w\ 1719}#
- #{s\ 1720}#
- #{m\ 1693}#
- #{esew\ 1694}#
- #{mod\ 1721}#))
- #{tmp\ 1733}#)
+ (lambda (#{_\ 3846}# #{e1\ 3847}# #{e2\ 3848}#)
+ (#{chi-top-sequence\ 2571}#
+ (cons #{e1\ 3847}# #{e2\ 3848}#)
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
+ #{m\ 3802}#
+ #{esew\ 3803}#
+ #{mod\ 3830}#))
+ #{tmp\ 3842}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1729}#))))))
- (if (eqv? #{type\ 1716}# (quote local-syntax-form))
- (#{chi-local-syntax\ 482}#
- #{value\ 1717}#
- #{e\ 1718}#
- #{r\ 1691}#
- #{w\ 1719}#
- #{s\ 1720}#
- #{mod\ 1721}#
- (lambda (#{body\ 1742}#
- #{r\ 1743}#
- #{w\ 1744}#
- #{s\ 1745}#
- #{mod\ 1746}#)
- (#{chi-top-sequence\ 462}#
- #{body\ 1742}#
- #{r\ 1743}#
- #{w\ 1744}#
- #{s\ 1745}#
- #{m\ 1693}#
- #{esew\ 1694}#
- #{mod\ 1746}#)))
- (if (eqv? #{type\ 1716}# (quote eval-when-form))
- (let ((#{tmp\ 1753}# #{e\ 1718}#))
- (let ((#{tmp\ 1754}#
+ #{tmp\ 3838}#))))))
+ (if (eqv? #{type\ 3825}# (quote local-syntax-form))
+ (#{chi-local-syntax\ 2591}#
+ #{value\ 3826}#
+ #{e\ 3827}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
+ #{mod\ 3830}#
+ (lambda (#{body\ 3851}#
+ #{r\ 3852}#
+ #{w\ 3853}#
+ #{s\ 3854}#
+ #{mod\ 3855}#)
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3851}#
+ #{r\ 3852}#
+ #{w\ 3853}#
+ #{s\ 3854}#
+ #{m\ 3802}#
+ #{esew\ 3803}#
+ #{mod\ 3855}#)))
+ (if (eqv? #{type\ 3825}# (quote eval-when-form))
+ (let ((#{tmp\ 3862}# #{e\ 3827}#))
+ (let ((#{tmp\ 3863}#
($sc-dispatch
- #{tmp\ 1753}#
+ #{tmp\ 3862}#
'(any each-any any . each-any))))
- (if #{tmp\ 1754}#
+ (if #{tmp\ 3863}#
(@apply
- (lambda (#{_\ 1759}#
- #{x\ 1760}#
- #{e1\ 1761}#
- #{e2\ 1762}#)
+ (lambda (#{_\ 3868}#
+ #{x\ 3869}#
+ #{e1\ 3870}#
+ #{e2\ 3871}#)
(begin
- (let ((#{when-list\ 1765}#
- (#{chi-when-list\ 466}#
- #{e\ 1718}#
- #{x\ 1760}#
- #{w\ 1719}#))
- (#{body\ 1766}#
- (cons #{e1\ 1761}# #{e2\ 1762}#)))
- (if (eq? #{m\ 1693}# (quote e))
+ (let ((#{when-list\ 3874}#
+ (#{chi-when-list\ 2575}#
+ #{e\ 3827}#
+ #{x\ 3869}#
+ #{w\ 3828}#))
+ (#{body\ 3875}#
+ (cons #{e1\ 3870}# #{e2\ 3871}#)))
+ (if (eq? #{m\ 3802}# (quote e))
(if (memq 'eval
- #{when-list\ 1765}#)
- (#{chi-top-sequence\ 462}#
- #{body\ 1766}#
- #{r\ 1691}#
- #{w\ 1719}#
- #{s\ 1720}#
+ #{when-list\ 3874}#)
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
(if (memq 'expand
- #{when-list\ 1765}#)
+ #{when-list\ 3874}#)
'c&e
'e)
'(eval)
- #{mod\ 1721}#)
+ #{mod\ 3830}#)
(begin
(if (memq 'expand
- #{when-list\ 1765}#)
- (#{top-level-eval-hook\ 296}#
- (#{chi-top-sequence\ 462}#
- #{body\ 1766}#
- #{r\ 1691}#
- #{w\ 1719}#
- #{s\ 1720}#
+ #{when-list\ 3874}#)
+ (#{top-level-eval-hook\ 2405}#
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
'e
'(eval)
- #{mod\ 1721}#)
- #{mod\ 1721}#))
- (#{chi-void\ 486}#)))
+ #{mod\ 3830}#)
+ #{mod\ 3830}#))
+ (#{chi-void\ 2595}#)))
(if (memq 'load
- #{when-list\ 1765}#)
+ #{when-list\ 3874}#)
(if (begin
- (let ((#{t\ 1775}#
+ (let ((#{t\ 3884}#
(memq 'compile
- #{when-list\
1765}#)))
- (if #{t\ 1775}#
- #{t\ 1775}#
+ #{when-list\
3874}#)))
+ (if #{t\ 3884}#
+ #{t\ 3884}#
(begin
- (let ((#{t\ 1778}#
+ (let ((#{t\ 3887}#
(memq 'expand
-
#{when-list\ 1765}#)))
- (if #{t\ 1778}#
- #{t\ 1778}#
- (if (eq? #{m\ 1693}#
+
#{when-list\ 3874}#)))
+ (if #{t\ 3887}#
+ #{t\ 3887}#
+ (if (eq? #{m\ 3802}#
'c&e)
(memq 'eval
- #{when-list\
1765}#)
+ #{when-list\
3874}#)
#f)))))))
- (#{chi-top-sequence\ 462}#
- #{body\ 1766}#
- #{r\ 1691}#
- #{w\ 1719}#
- #{s\ 1720}#
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
'c&e
'(compile load)
- #{mod\ 1721}#)
- (if (if (eq? #{m\ 1693}# (quote c))
+ #{mod\ 3830}#)
+ (if (if (eq? #{m\ 3802}# (quote c))
#t
- (eq? #{m\ 1693}# (quote c&e)))
- (#{chi-top-sequence\ 462}#
- #{body\ 1766}#
- #{r\ 1691}#
- #{w\ 1719}#
- #{s\ 1720}#
+ (eq? #{m\ 3802}# (quote c&e)))
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
'c
'(load)
- #{mod\ 1721}#)
- (#{chi-void\ 486}#)))
+ #{mod\ 3830}#)
+ (#{chi-void\ 2595}#)))
(if (begin
- (let ((#{t\ 1786}#
+ (let ((#{t\ 3895}#
(memq 'compile
- #{when-list\
1765}#)))
- (if #{t\ 1786}#
- #{t\ 1786}#
+ #{when-list\
3874}#)))
+ (if #{t\ 3895}#
+ #{t\ 3895}#
(begin
- (let ((#{t\ 1789}#
+ (let ((#{t\ 3898}#
(memq 'expand
-
#{when-list\ 1765}#)))
- (if #{t\ 1789}#
- #{t\ 1789}#
- (if (eq? #{m\ 1693}#
+
#{when-list\ 3874}#)))
+ (if #{t\ 3898}#
+ #{t\ 3898}#
+ (if (eq? #{m\ 3802}#
'c&e)
(memq 'eval
- #{when-list\
1765}#)
+ #{when-list\
3874}#)
#f)))))))
(begin
- (#{top-level-eval-hook\ 296}#
- (#{chi-top-sequence\ 462}#
- #{body\ 1766}#
- #{r\ 1691}#
- #{w\ 1719}#
- #{s\ 1720}#
+ (#{top-level-eval-hook\ 2405}#
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
'e
'(eval)
- #{mod\ 1721}#)
- #{mod\ 1721}#)
- (#{chi-void\ 486}#))
- (#{chi-void\ 486}#)))))))
- #{tmp\ 1754}#)
+ #{mod\ 3830}#)
+ #{mod\ 3830}#)
+ (#{chi-void\ 2595}#))
+ (#{chi-void\ 2595}#)))))))
+ #{tmp\ 3863}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1753}#))))
- (if (eqv? #{type\ 1716}# (quote define-syntax-form))
+ #{tmp\ 3862}#))))
+ (if (eqv? #{type\ 3825}# (quote define-syntax-form))
(begin
- (let ((#{n\ 1797}#
- (#{id-var-name\ 444}#
- #{value\ 1717}#
- #{w\ 1719}#))
- (#{r\ 1798}#
- (#{macros-only-env\ 379}# #{r\ 1691}#)))
- (if (eqv? #{m\ 1693}# (quote c))
- (if (memq (quote compile) #{esew\ 1694}#)
+ (let ((#{n\ 3906}#
+ (#{id-var-name\ 2553}#
+ #{value\ 3826}#
+ #{w\ 3828}#))
+ (#{r\ 3907}#
+ (#{macros-only-env\ 2488}# #{r\ 3800}#)))
+ (if (eqv? #{m\ 3802}# (quote c))
+ (if (memq (quote compile) #{esew\ 3803}#)
(begin
- (let ((#{e\ 1801}#
- (#{chi-install-global\ 464}#
- #{n\ 1797}#
- (#{chi\ 472}#
- #{e\ 1718}#
- #{r\ 1798}#
- #{w\ 1719}#
- #{mod\ 1721}#))))
+ (let ((#{e\ 3910}#
+ (#{chi-install-global\ 2573}#
+ #{n\ 3906}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3907}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))))
(begin
- (#{top-level-eval-hook\ 296}#
- #{e\ 1801}#
- #{mod\ 1721}#)
- (if (memq (quote load) #{esew\ 1694}#)
- #{e\ 1801}#
- (#{chi-void\ 486}#)))))
- (if (memq (quote load) #{esew\ 1694}#)
- (#{chi-install-global\ 464}#
- #{n\ 1797}#
- (#{chi\ 472}#
- #{e\ 1718}#
- #{r\ 1798}#
- #{w\ 1719}#
- #{mod\ 1721}#))
- (#{chi-void\ 486}#)))
- (if (eqv? #{m\ 1693}# (quote c&e))
+ (#{top-level-eval-hook\ 2405}#
+ #{e\ 3910}#
+ #{mod\ 3830}#)
+ (if (memq (quote load) #{esew\ 3803}#)
+ #{e\ 3910}#
+ (#{chi-void\ 2595}#)))))
+ (if (memq (quote load) #{esew\ 3803}#)
+ (#{chi-install-global\ 2573}#
+ #{n\ 3906}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3907}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))
+ (#{chi-void\ 2595}#)))
+ (if (eqv? #{m\ 3802}# (quote c&e))
(begin
- (let ((#{e\ 1804}#
- (#{chi-install-global\ 464}#
- #{n\ 1797}#
- (#{chi\ 472}#
- #{e\ 1718}#
- #{r\ 1798}#
- #{w\ 1719}#
- #{mod\ 1721}#))))
+ (let ((#{e\ 3913}#
+ (#{chi-install-global\ 2573}#
+ #{n\ 3906}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3907}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))))
(begin
- (#{top-level-eval-hook\ 296}#
- #{e\ 1804}#
- #{mod\ 1721}#)
- #{e\ 1804}#)))
+ (#{top-level-eval-hook\ 2405}#
+ #{e\ 3913}#
+ #{mod\ 3830}#)
+ #{e\ 3913}#)))
(begin
- (if (memq (quote eval) #{esew\ 1694}#)
- (#{top-level-eval-hook\ 296}#
- (#{chi-install-global\ 464}#
- #{n\ 1797}#
- (#{chi\ 472}#
- #{e\ 1718}#
- #{r\ 1798}#
- #{w\ 1719}#
- #{mod\ 1721}#))
- #{mod\ 1721}#))
- (#{chi-void\ 486}#))))))
- (if (eqv? #{type\ 1716}# (quote define-form))
+ (if (memq (quote eval) #{esew\ 3803}#)
+ (#{top-level-eval-hook\ 2405}#
+ (#{chi-install-global\ 2573}#
+ #{n\ 3906}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3907}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))
+ #{mod\ 3830}#))
+ (#{chi-void\ 2595}#))))))
+ (if (eqv? #{type\ 3825}# (quote define-form))
(begin
- (let ((#{n\ 1809}#
- (#{id-var-name\ 444}#
- #{value\ 1717}#
- #{w\ 1719}#)))
+ (let ((#{n\ 3918}#
+ (#{id-var-name\ 2553}#
+ #{value\ 3826}#
+ #{w\ 3828}#)))
(begin
- (let ((#{type\ 1811}#
- (#{binding-type\ 370}#
- (#{lookup\ 381}#
- #{n\ 1809}#
- #{r\ 1691}#
- #{mod\ 1721}#))))
- (if (if (eqv? #{type\ 1811}# (quote global))
+ (let ((#{type\ 3920}#
+ (#{binding-type\ 2479}#
+ (#{lookup\ 2490}#
+ #{n\ 3918}#
+ #{r\ 3800}#
+ #{mod\ 3830}#))))
+ (if (if (eqv? #{type\ 3920}# (quote global))
#t
- (if (eqv? #{type\ 1811}# (quote core))
+ (if (eqv? #{type\ 3920}# (quote core))
#t
- (if (eqv? #{type\ 1811}#
+ (if (eqv? #{type\ 3920}#
'macro)
#t
- (eqv? #{type\ 1811}#
+ (eqv? #{type\ 3920}#
'module-ref))))
(begin
- (if (if (if (eq? #{m\ 1693}# (quote c))
+ (if (if (if (eq? #{m\ 3802}# (quote c))
#t
- (eq? #{m\ 1693}# (quote c&e)))
+ (eq? #{m\ 3802}# (quote c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 1809}#))
+ #{n\ 3918}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old\ 1817}#
+ (let ((#{old\ 3926}#
(module-variable
(current-module)
- #{n\ 1809}#)))
+ #{n\ 3918}#)))
(module-define!
(current-module)
- #{n\ 1809}#
- (if (variable? #{old\ 1817}#)
- (variable-ref #{old\ 1817}#)
+ #{n\ 3918}#
+ (if (variable? #{old\ 3926}#)
+ (variable-ref #{old\ 3926}#)
#f)))))
(begin
- (let ((#{x\ 1820}#
- (#{build-global-definition\
327}#
- #{s\ 1720}#
- #{n\ 1809}#
- (#{chi\ 472}#
- #{e\ 1718}#
- #{r\ 1691}#
- #{w\ 1719}#
- #{mod\ 1721}#))))
+ (let ((#{x\ 3929}#
+ (#{build-global-definition\
2436}#
+ #{s\ 3829}#
+ #{n\ 3918}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))))
(begin
- (if (eq? #{m\ 1693}# (quote c&e))
- (#{top-level-eval-hook\ 296}#
- #{x\ 1820}#
- #{mod\ 1721}#))
- #{x\ 1820}#))))
- (if (eqv? #{type\ 1811}#
+ (if (eq? #{m\ 3802}# (quote c&e))
+ (#{top-level-eval-hook\ 2405}#
+ #{x\ 3929}#
+ #{mod\ 3830}#))
+ #{x\ 3929}#))))
+ (if (eqv? #{type\ 3920}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e\ 1718}#
- (#{wrap\ 456}#
- #{value\ 1717}#
- #{w\ 1719}#
- #{mod\ 1721}#))
+ #{e\ 3827}#
+ (#{wrap\ 2565}#
+ #{value\ 3826}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1718}#
- (#{wrap\ 456}#
- #{value\ 1717}#
- #{w\ 1719}#
- #{mod\ 1721}#))))))))
+ #{e\ 3827}#
+ (#{wrap\ 2565}#
+ #{value\ 3826}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))))))))
(begin
- (let ((#{x\ 1826}#
- (#{chi-expr\ 474}#
- #{type\ 1716}#
- #{value\ 1717}#
- #{e\ 1718}#
- #{r\ 1691}#
- #{w\ 1719}#
- #{s\ 1720}#
- #{mod\ 1721}#)))
+ (let ((#{x\ 3935}#
+ (#{chi-expr\ 2583}#
+ #{type\ 3825}#
+ #{value\ 3826}#
+ #{e\ 3827}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
+ #{mod\ 3830}#)))
(begin
- (if (eq? #{m\ 1693}# (quote c&e))
- (#{top-level-eval-hook\ 296}#
- #{x\ 1826}#
- #{mod\ 1721}#))
- #{x\ 1826}#))))))))))))
- (#{chi\ 472}#
- (lambda (#{e\ 1827}#
- #{r\ 1828}#
- #{w\ 1829}#
- #{mod\ 1830}#)
+ (if (eq? #{m\ 3802}# (quote c&e))
+ (#{top-level-eval-hook\ 2405}#
+ #{x\ 3935}#
+ #{mod\ 3830}#))
+ #{x\ 3935}#))))))))))))
+ (#{chi\ 2581}#
+ (lambda (#{e\ 3936}#
+ #{r\ 3937}#
+ #{w\ 3938}#
+ #{mod\ 3939}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 468}#
- #{e\ 1827}#
- #{r\ 1828}#
- #{w\ 1829}#
- (#{source-annotation\ 366}# #{e\ 1827}#)
+ (#{syntax-type\ 2577}#
+ #{e\ 3936}#
+ #{r\ 3937}#
+ #{w\ 3938}#
+ (#{source-annotation\ 2475}# #{e\ 3936}#)
#f
- #{mod\ 1830}#
+ #{mod\ 3939}#
#f))
- (lambda (#{type\ 1835}#
- #{value\ 1836}#
- #{e\ 1837}#
- #{w\ 1838}#
- #{s\ 1839}#
- #{mod\ 1840}#)
- (#{chi-expr\ 474}#
- #{type\ 1835}#
- #{value\ 1836}#
- #{e\ 1837}#
- #{r\ 1828}#
- #{w\ 1838}#
- #{s\ 1839}#
- #{mod\ 1840}#)))))
- (#{chi-expr\ 474}#
- (lambda (#{type\ 1847}#
- #{value\ 1848}#
- #{e\ 1849}#
- #{r\ 1850}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#)
- (if (eqv? #{type\ 1847}# (quote lexical))
- (#{build-lexical-reference\ 315}#
+ (lambda (#{type\ 3944}#
+ #{value\ 3945}#
+ #{e\ 3946}#
+ #{w\ 3947}#
+ #{s\ 3948}#
+ #{mod\ 3949}#)
+ (#{chi-expr\ 2583}#
+ #{type\ 3944}#
+ #{value\ 3945}#
+ #{e\ 3946}#
+ #{r\ 3937}#
+ #{w\ 3947}#
+ #{s\ 3948}#
+ #{mod\ 3949}#)))))
+ (#{chi-expr\ 2583}#
+ (lambda (#{type\ 3956}#
+ #{value\ 3957}#
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote lexical))
+ (#{build-lexical-reference\ 2426}#
'value
- #{s\ 1852}#
- #{e\ 1849}#
- #{value\ 1848}#)
- (if (if (eqv? #{type\ 1847}# (quote core))
+ #{s\ 3961}#
+ #{e\ 3958}#
+ #{value\ 3957}#)
+ (if (if (eqv? #{type\ 3956}# (quote core))
#t
- (eqv? #{type\ 1847}# (quote core-form)))
- (#{value\ 1848}#
- #{e\ 1849}#
- #{r\ 1850}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#)
- (if (eqv? #{type\ 1847}# (quote module-ref))
+ (eqv? #{type\ 3956}# (quote core-form)))
+ (#{value\ 3957}#
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote module-ref))
(call-with-values
(lambda ()
- (#{value\ 1848}#
- #{e\ 1849}#
- #{r\ 1850}#
- #{w\ 1851}#))
- (lambda (#{e\ 1864}#
- #{r\ 1865}#
- #{w\ 1866}#
- #{s\ 1867}#
- #{mod\ 1868}#)
- (#{chi\ 472}#
- #{e\ 1864}#
- #{r\ 1865}#
- #{w\ 1866}#
- #{mod\ 1868}#)))
- (if (eqv? #{type\ 1847}# (quote lexical-call))
- (#{chi-application\ 476}#
+ (#{value\ 3957}#
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#))
+ (lambda (#{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
+ (#{chi\ 2581}#
+ #{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{mod\ 3977}#)))
+ (if (eqv? #{type\ 3956}# (quote lexical-call))
+ (#{chi-application\ 2585}#
(begin
- (let ((#{id\ 1876}# (car #{e\ 1849}#)))
- (#{build-lexical-reference\ 315}#
+ (let ((#{id\ 3985}# (car #{e\ 3958}#)))
+ (#{build-lexical-reference\ 2426}#
'fun
- (#{source-annotation\ 366}# #{id\ 1876}#)
- (if (#{syntax-object?\ 351}# #{id\ 1876}#)
- (syntax->datum #{id\ 1876}#)
- #{id\ 1876}#)
- #{value\ 1848}#)))
- #{e\ 1849}#
- #{r\ 1850}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#)
- (if (eqv? #{type\ 1847}# (quote global-call))
- (#{chi-application\ 476}#
- (#{build-global-reference\ 321}#
- (#{source-annotation\ 366}# (car #{e\ 1849}#))
- (if (#{syntax-object?\ 351}# #{value\ 1848}#)
- (#{syntax-object-expression\ 353}#
- #{value\ 1848}#)
- #{value\ 1848}#)
- (if (#{syntax-object?\ 351}# #{value\ 1848}#)
- (#{syntax-object-module\ 357}# #{value\ 1848}#)
- #{mod\ 1853}#))
- #{e\ 1849}#
- #{r\ 1850}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#)
- (if (eqv? #{type\ 1847}# (quote constant))
- (#{build-data\ 337}#
- #{s\ 1852}#
- (#{strip\ 498}#
- (#{source-wrap\ 458}#
- #{e\ 1849}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#)
+ (#{source-annotation\ 2475}# #{id\ 3985}#)
+ (if (#{syntax-object?\ 2460}# #{id\ 3985}#)
+ (syntax->datum #{id\ 3985}#)
+ #{id\ 3985}#)
+ #{value\ 3957}#)))
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote global-call))
+ (#{chi-application\ 2585}#
+ (#{build-global-reference\ 2432}#
+ (#{source-annotation\ 2475}# (car #{e\ 3958}#))
+ (if (#{syntax-object?\ 2460}# #{value\ 3957}#)
+ (#{syntax-object-expression\ 2462}#
+ #{value\ 3957}#)
+ #{value\ 3957}#)
+ (if (#{syntax-object?\ 2460}# #{value\ 3957}#)
+ (#{syntax-object-module\ 2466}# #{value\ 3957}#)
+ #{mod\ 3962}#))
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote constant))
+ (#{build-data\ 2446}#
+ #{s\ 3961}#
+ (#{strip\ 2607}#
+ (#{source-wrap\ 2567}#
+ #{e\ 3958}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
'(())))
- (if (eqv? #{type\ 1847}# (quote global))
- (#{build-global-reference\ 321}#
- #{s\ 1852}#
- #{value\ 1848}#
- #{mod\ 1853}#)
- (if (eqv? #{type\ 1847}# (quote call))
- (#{chi-application\ 476}#
- (#{chi\ 472}#
- (car #{e\ 1849}#)
- #{r\ 1850}#
- #{w\ 1851}#
- #{mod\ 1853}#)
- #{e\ 1849}#
- #{r\ 1850}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#)
- (if (eqv? #{type\ 1847}# (quote begin-form))
- (let ((#{tmp\ 1883}# #{e\ 1849}#))
- (let ((#{tmp\ 1884}#
+ (if (eqv? #{type\ 3956}# (quote global))
+ (#{build-global-reference\ 2432}#
+ #{s\ 3961}#
+ #{value\ 3957}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote call))
+ (#{chi-application\ 2585}#
+ (#{chi\ 2581}#
+ (car #{e\ 3958}#)
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{mod\ 3962}#)
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote begin-form))
+ (let ((#{tmp\ 3992}# #{e\ 3958}#))
+ (let ((#{tmp\ 3993}#
($sc-dispatch
- #{tmp\ 1883}#
+ #{tmp\ 3992}#
'(any any . each-any))))
- (if #{tmp\ 1884}#
+ (if #{tmp\ 3993}#
(@apply
- (lambda (#{_\ 1888}#
- #{e1\ 1889}#
- #{e2\ 1890}#)
- (#{chi-sequence\ 460}#
- (cons #{e1\ 1889}# #{e2\ 1890}#)
- #{r\ 1850}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#))
- #{tmp\ 1884}#)
+ (lambda (#{_\ 3997}#
+ #{e1\ 3998}#
+ #{e2\ 3999}#)
+ (#{chi-sequence\ 2569}#
+ (cons #{e1\ 3998}# #{e2\ 3999}#)
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#))
+ #{tmp\ 3993}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1883}#))))
- (if (eqv? #{type\ 1847}#
+ #{tmp\ 3992}#))))
+ (if (eqv? #{type\ 3956}#
'local-syntax-form)
- (#{chi-local-syntax\ 482}#
- #{value\ 1848}#
- #{e\ 1849}#
- #{r\ 1850}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#
- #{chi-sequence\ 460}#)
- (if (eqv? #{type\ 1847}#
+ (#{chi-local-syntax\ 2591}#
+ #{value\ 3957}#
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#
+ #{chi-sequence\ 2569}#)
+ (if (eqv? #{type\ 3956}#
'eval-when-form)
- (let ((#{tmp\ 1894}# #{e\ 1849}#))
- (let ((#{tmp\ 1895}#
+ (let ((#{tmp\ 4003}# #{e\ 3958}#))
+ (let ((#{tmp\ 4004}#
($sc-dispatch
- #{tmp\ 1894}#
+ #{tmp\ 4003}#
'(any each-any
any
.
each-any))))
- (if #{tmp\ 1895}#
+ (if #{tmp\ 4004}#
(@apply
- (lambda (#{_\ 1900}#
- #{x\ 1901}#
- #{e1\ 1902}#
- #{e2\ 1903}#)
+ (lambda (#{_\ 4009}#
+ #{x\ 4010}#
+ #{e1\ 4011}#
+ #{e2\ 4012}#)
(begin
- (let ((#{when-list\ 1905}#
- (#{chi-when-list\ 466}#
- #{e\ 1849}#
- #{x\ 1901}#
- #{w\ 1851}#)))
+ (let ((#{when-list\ 4014}#
+ (#{chi-when-list\ 2575}#
+ #{e\ 3958}#
+ #{x\ 4010}#
+ #{w\ 3960}#)))
(if (memq 'eval
- #{when-list\ 1905}#)
- (#{chi-sequence\ 460}#
- (cons #{e1\ 1902}#
- #{e2\ 1903}#)
- #{r\ 1850}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#)
- (#{chi-void\ 486}#)))))
- #{tmp\ 1895}#)
+ #{when-list\ 4014}#)
+ (#{chi-sequence\ 2569}#
+ (cons #{e1\ 4011}#
+ #{e2\ 4012}#)
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (#{chi-void\ 2595}#)))))
+ #{tmp\ 4004}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1894}#))))
- (if (if (eqv? #{type\ 1847}#
+ #{tmp\ 4003}#))))
+ (if (if (eqv? #{type\ 3956}#
'define-form)
#t
- (eqv? #{type\ 1847}#
+ (eqv? #{type\ 3956}#
'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1849}#
- (#{wrap\ 456}#
- #{value\ 1848}#
- #{w\ 1851}#
- #{mod\ 1853}#))
- (if (eqv? #{type\ 1847}# (quote syntax))
+ #{e\ 3958}#
+ (#{wrap\ 2565}#
+ #{value\ 3957}#
+ #{w\ 3960}#
+ #{mod\ 3962}#))
+ (if (eqv? #{type\ 3956}# (quote syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 458}#
- #{e\ 1849}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#))
- (if (eqv? #{type\ 1847}#
+ (#{source-wrap\ 2567}#
+ #{e\ 3958}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#))
+ (if (eqv? #{type\ 3956}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 458}#
- #{e\ 1849}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#))
+ (#{source-wrap\ 2567}#
+ #{e\ 3958}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 458}#
- #{e\ 1849}#
- #{w\ 1851}#
- #{s\ 1852}#
- #{mod\ 1853}#))))))))))))))))))
- (#{chi-application\ 476}#
- (lambda (#{x\ 1912}#
- #{e\ 1913}#
- #{r\ 1914}#
- #{w\ 1915}#
- #{s\ 1916}#
- #{mod\ 1917}#)
- (let ((#{tmp\ 1924}# #{e\ 1913}#))
- (let ((#{tmp\ 1925}#
+ (#{source-wrap\ 2567}#
+ #{e\ 3958}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#))))))))))))))))))
+ (#{chi-application\ 2585}#
+ (lambda (#{x\ 4021}#
+ #{e\ 4022}#
+ #{r\ 4023}#
+ #{w\ 4024}#
+ #{s\ 4025}#
+ #{mod\ 4026}#)
+ (let ((#{tmp\ 4033}# #{e\ 4022}#))
+ (let ((#{tmp\ 4034}#
($sc-dispatch
- #{tmp\ 1924}#
+ #{tmp\ 4033}#
'(any . each-any))))
- (if #{tmp\ 1925}#
+ (if #{tmp\ 4034}#
(@apply
- (lambda (#{e0\ 1928}# #{e1\ 1929}#)
- (#{build-application\ 309}#
- #{s\ 1916}#
- #{x\ 1912}#
- (map (lambda (#{e\ 1930}#)
- (#{chi\ 472}#
- #{e\ 1930}#
- #{r\ 1914}#
- #{w\ 1915}#
- #{mod\ 1917}#))
- #{e1\ 1929}#)))
- #{tmp\ 1925}#)
+ (lambda (#{e0\ 4037}# #{e1\ 4038}#)
+ (#{build-application\ 2420}#
+ #{s\ 4025}#
+ #{x\ 4021}#
+ (map (lambda (#{e\ 4039}#)
+ (#{chi\ 2581}#
+ #{e\ 4039}#
+ #{r\ 4023}#
+ #{w\ 4024}#
+ #{mod\ 4026}#))
+ #{e1\ 4038}#)))
+ #{tmp\ 4034}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1924}#))))))
- (#{chi-macro\ 478}#
- (lambda (#{p\ 1933}#
- #{e\ 1934}#
- #{r\ 1935}#
- #{w\ 1936}#
- #{s\ 1937}#
- #{rib\ 1938}#
- #{mod\ 1939}#)
+ #{tmp\ 4033}#))))))
+ (#{chi-macro\ 2587}#
+ (lambda (#{p\ 4042}#
+ #{e\ 4043}#
+ #{r\ 4044}#
+ #{w\ 4045}#
+ #{s\ 4046}#
+ #{rib\ 4047}#
+ #{mod\ 4048}#)
(letrec*
- ((#{rebuild-macro-output\ 1948}#
- (lambda (#{x\ 1949}# #{m\ 1950}#)
- (if (pair? #{x\ 1949}#)
- (#{decorate-source\ 305}#
- (cons (#{rebuild-macro-output\ 1948}#
- (car #{x\ 1949}#)
- #{m\ 1950}#)
- (#{rebuild-macro-output\ 1948}#
- (cdr #{x\ 1949}#)
- #{m\ 1950}#))
- #{s\ 1937}#)
- (if (#{syntax-object?\ 351}# #{x\ 1949}#)
+ ((#{rebuild-macro-output\ 4057}#
+ (lambda (#{x\ 4058}# #{m\ 4059}#)
+ (if (pair? #{x\ 4058}#)
+ (#{decorate-source\ 2414}#
+ (cons (#{rebuild-macro-output\ 4057}#
+ (car #{x\ 4058}#)
+ #{m\ 4059}#)
+ (#{rebuild-macro-output\ 4057}#
+ (cdr #{x\ 4058}#)
+ #{m\ 4059}#))
+ #{s\ 4046}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 4058}#)
(begin
- (let ((#{w\ 1958}#
- (#{syntax-object-wrap\ 355}# #{x\ 1949}#)))
+ (let ((#{w\ 4067}#
+ (#{syntax-object-wrap\ 2464}# #{x\ 4058}#)))
(begin
- (let ((#{ms\ 1961}#
- (#{wrap-marks\ 394}# #{w\ 1958}#))
- (#{s\ 1962}#
- (#{wrap-subst\ 396}# #{w\ 1958}#)))
- (if (if (pair? #{ms\ 1961}#)
- (eq? (car #{ms\ 1961}#) #f)
+ (let ((#{ms\ 4070}#
+ (#{wrap-marks\ 2503}# #{w\ 4067}#))
+ (#{s\ 4071}#
+ (#{wrap-subst\ 2505}# #{w\ 4067}#)))
+ (if (if (pair? #{ms\ 4070}#)
+ (eq? (car #{ms\ 4070}#) #f)
#f)
- (#{make-syntax-object\ 349}#
- (#{syntax-object-expression\ 353}#
- #{x\ 1949}#)
- (#{make-wrap\ 392}#
- (cdr #{ms\ 1961}#)
- (if #{rib\ 1938}#
- (cons #{rib\ 1938}# (cdr #{s\ 1962}#))
- (cdr #{s\ 1962}#)))
- (#{syntax-object-module\ 357}#
- #{x\ 1949}#))
- (#{make-syntax-object\ 349}#
- (#{decorate-source\ 305}#
- (#{syntax-object-expression\ 353}#
- #{x\ 1949}#)
- #{s\ 1962}#)
- (#{make-wrap\ 392}#
- (cons #{m\ 1950}# #{ms\ 1961}#)
- (if #{rib\ 1938}#
- (cons #{rib\ 1938}#
- (cons (quote shift) #{s\ 1962}#))
- (cons (quote shift) #{s\ 1962}#)))
- (#{syntax-object-module\ 357}#
- #{x\ 1949}#)))))))
- (if (vector? #{x\ 1949}#)
+ (#{make-syntax-object\ 2458}#
+ (#{syntax-object-expression\ 2462}#
+ #{x\ 4058}#)
+ (#{make-wrap\ 2501}#
+ (cdr #{ms\ 4070}#)
+ (if #{rib\ 4047}#
+ (cons #{rib\ 4047}# (cdr #{s\ 4071}#))
+ (cdr #{s\ 4071}#)))
+ (#{syntax-object-module\ 2466}#
+ #{x\ 4058}#))
+ (#{make-syntax-object\ 2458}#
+ (#{decorate-source\ 2414}#
+ (#{syntax-object-expression\ 2462}#
+ #{x\ 4058}#)
+ #{s\ 4071}#)
+ (#{make-wrap\ 2501}#
+ (cons #{m\ 4059}# #{ms\ 4070}#)
+ (if #{rib\ 4047}#
+ (cons #{rib\ 4047}#
+ (cons (quote shift) #{s\ 4071}#))
+ (cons (quote shift) #{s\ 4071}#)))
+ (#{syntax-object-module\ 2466}#
+ #{x\ 4058}#)))))))
+ (if (vector? #{x\ 4058}#)
(begin
- (let ((#{n\ 1970}# (vector-length #{x\ 1949}#)))
+ (let ((#{n\ 4079}# (vector-length #{x\ 4058}#)))
(begin
- (let ((#{v\ 1972}#
- (#{decorate-source\ 305}#
- (make-vector #{n\ 1970}#)
- #{x\ 1949}#)))
+ (let ((#{v\ 4081}#
+ (#{decorate-source\ 2414}#
+ (make-vector #{n\ 4079}#)
+ #{x\ 4058}#)))
(letrec*
- ((#{loop\ 1975}#
- (lambda (#{i\ 1976}#)
- (if (#{fx=\ 292}#
- #{i\ 1976}#
- #{n\ 1970}#)
- (begin (if #f #f) #{v\ 1972}#)
+ ((#{loop\ 4084}#
+ (lambda (#{i\ 4085}#)
+ (if (#{fx=\ 2401}#
+ #{i\ 4085}#
+ #{n\ 4079}#)
+ (begin (if #f #f) #{v\ 4081}#)
(begin
(vector-set!
- #{v\ 1972}#
- #{i\ 1976}#
- (#{rebuild-macro-output\ 1948}#
+ #{v\ 4081}#
+ #{i\ 4085}#
+ (#{rebuild-macro-output\ 4057}#
(vector-ref
- #{x\ 1949}#
- #{i\ 1976}#)
- #{m\ 1950}#))
- (#{loop\ 1975}#
- (#{fx+\ 288}#
- #{i\ 1976}#
+ #{x\ 4058}#
+ #{i\ 4085}#)
+ #{m\ 4059}#))
+ (#{loop\ 4084}#
+ (#{fx+\ 2397}#
+ #{i\ 4085}#
1)))))))
- (begin (#{loop\ 1975}# 0)))))))
- (if (symbol? #{x\ 1949}#)
+ (begin (#{loop\ 4084}# 0)))))))
+ (if (symbol? #{x\ 4058}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 458}#
- #{e\ 1934}#
- #{w\ 1936}#
- (#{wrap-subst\ 396}# #{w\ 1936}#)
- #{mod\ 1939}#)
- #{x\ 1949}#)
- (#{decorate-source\ 305}#
- #{x\ 1949}#
- #{s\ 1937}#))))))))
+ (#{source-wrap\ 2567}#
+ #{e\ 4043}#
+ #{w\ 4045}#
+ (#{wrap-subst\ 2505}# #{w\ 4045}#)
+ #{mod\ 4048}#)
+ #{x\ 4058}#)
+ (#{decorate-source\ 2414}#
+ #{x\ 4058}#
+ #{s\ 4046}#))))))))
(begin
- (#{rebuild-macro-output\ 1948}#
- (#{p\ 1933}#
- (#{source-wrap\ 458}#
- #{e\ 1934}#
- (#{anti-mark\ 428}# #{w\ 1936}#)
- #{s\ 1937}#
- #{mod\ 1939}#))
+ (#{rebuild-macro-output\ 4057}#
+ (#{p\ 4042}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4043}#
+ (#{anti-mark\ 2537}# #{w\ 4045}#)
+ #{s\ 4046}#
+ #{mod\ 4048}#))
(gensym "m"))))))
- (#{chi-body\ 480}#
- (lambda (#{body\ 1983}#
- #{outer-form\ 1984}#
- #{r\ 1985}#
- #{w\ 1986}#
- #{mod\ 1987}#)
+ (#{chi-body\ 2589}#
+ (lambda (#{body\ 4092}#
+ #{outer-form\ 4093}#
+ #{r\ 4094}#
+ #{w\ 4095}#
+ #{mod\ 4096}#)
(begin
- (let ((#{r\ 1995}#
+ (let ((#{r\ 4104}#
(cons '("placeholder" placeholder)
- #{r\ 1985}#)))
+ #{r\ 4094}#)))
(begin
- (let ((#{ribcage\ 1997}#
- (#{make-ribcage\ 408}#
+ (let ((#{ribcage\ 4106}#
+ (#{make-ribcage\ 2517}#
'()
'()
'())))
(begin
- (let ((#{w\ 2000}#
- (#{make-wrap\ 392}#
- (#{wrap-marks\ 394}# #{w\ 1986}#)
- (cons #{ribcage\ 1997}#
- (#{wrap-subst\ 396}# #{w\ 1986}#)))))
+ (let ((#{w\ 4109}#
+ (#{make-wrap\ 2501}#
+ (#{wrap-marks\ 2503}# #{w\ 4095}#)
+ (cons #{ribcage\ 4106}#
+ (#{wrap-subst\ 2505}# #{w\ 4095}#)))))
(letrec*
- ((#{parse\ 2009}#
- (lambda (#{body\ 2010}#
- #{ids\ 2011}#
- #{labels\ 2012}#
- #{var-ids\ 2013}#
- #{vars\ 2014}#
- #{vals\ 2015}#
- #{bindings\ 2016}#)
- (if (null? #{body\ 2010}#)
+ ((#{parse\ 4118}#
+ (lambda (#{body\ 4119}#
+ #{ids\ 4120}#
+ #{labels\ 4121}#
+ #{var-ids\ 4122}#
+ #{vars\ 4123}#
+ #{vals\ 4124}#
+ #{bindings\ 4125}#)
+ (if (null? #{body\ 4119}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1984}#)
+ #{outer-form\ 4093}#)
(begin
- (let ((#{e\ 2021}#
- (cdr (car #{body\ 2010}#)))
- (#{er\ 2022}#
- (car (car #{body\ 2010}#))))
+ (let ((#{e\ 4130}#
+ (cdr (car #{body\ 4119}#)))
+ (#{er\ 4131}#
+ (car (car #{body\ 4119}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 468}#
- #{e\ 2021}#
- #{er\ 2022}#
+ (#{syntax-type\ 2577}#
+ #{e\ 4130}#
+ #{er\ 4131}#
'(())
- (#{source-annotation\ 366}#
- #{er\ 2022}#)
- #{ribcage\ 1997}#
- #{mod\ 1987}#
+ (#{source-annotation\ 2475}#
+ #{er\ 4131}#)
+ #{ribcage\ 4106}#
+ #{mod\ 4096}#
#f))
- (lambda (#{type\ 2024}#
- #{value\ 2025}#
- #{e\ 2026}#
- #{w\ 2027}#
- #{s\ 2028}#
- #{mod\ 2029}#)
- (if (eqv? #{type\ 2024}#
+ (lambda (#{type\ 4133}#
+ #{value\ 4134}#
+ #{e\ 4135}#
+ #{w\ 4136}#
+ #{s\ 4137}#
+ #{mod\ 4138}#)
+ (if (eqv? #{type\ 4133}#
'define-form)
(begin
- (let ((#{id\ 2039}#
- (#{wrap\ 456}#
- #{value\ 2025}#
- #{w\ 2027}#
- #{mod\ 2029}#))
- (#{label\ 2040}#
- (#{gen-label\ 403}#)))
+ (let ((#{id\ 4148}#
+ (#{wrap\ 2565}#
+ #{value\ 4134}#
+ #{w\ 4136}#
+ #{mod\ 4138}#))
+ (#{label\ 4149}#
+ (#{gen-label\ 2512}#)))
(begin
- (let ((#{var\ 2042}#
- (#{gen-var\ 500}#
- #{id\ 2039}#)))
+ (let ((#{var\ 4151}#
+ (#{gen-var\ 2609}#
+ #{id\ 4148}#)))
(begin
- (#{extend-ribcage!\ 432}#
- #{ribcage\ 1997}#
- #{id\ 2039}#
- #{label\ 2040}#)
- (#{parse\ 2009}#
- (cdr #{body\ 2010}#)
- (cons #{id\ 2039}#
- #{ids\ 2011}#)
- (cons #{label\ 2040}#
- #{labels\ 2012}#)
- (cons #{id\ 2039}#
- #{var-ids\
2013}#)
- (cons #{var\ 2042}#
- #{vars\ 2014}#)
- (cons (cons #{er\
2022}#
- (#{wrap\
456}#
- #{e\
2026}#
- #{w\
2027}#
- #{mod\
2029}#))
- #{vals\ 2015}#)
+ (#{extend-ribcage!\
2541}#
+ #{ribcage\ 4106}#
+ #{id\ 4148}#
+ #{label\ 4149}#)
+ (#{parse\ 4118}#
+ (cdr #{body\ 4119}#)
+ (cons #{id\ 4148}#
+ #{ids\ 4120}#)
+ (cons #{label\ 4149}#
+ #{labels\ 4121}#)
+ (cons #{id\ 4148}#
+ #{var-ids\
4122}#)
+ (cons #{var\ 4151}#
+ #{vars\ 4123}#)
+ (cons (cons #{er\
4131}#
+ (#{wrap\
2565}#
+ #{e\
4135}#
+ #{w\
4136}#
+ #{mod\
4138}#))
+ #{vals\ 4124}#)
(cons (cons 'lexical
- #{var\
2042}#)
- #{bindings\
2016}#)))))))
- (if (eqv? #{type\ 2024}#
+ #{var\
4151}#)
+ #{bindings\
4125}#)))))))
+ (if (eqv? #{type\ 4133}#
'define-syntax-form)
(begin
- (let ((#{id\ 2047}#
- (#{wrap\ 456}#
- #{value\ 2025}#
- #{w\ 2027}#
- #{mod\ 2029}#))
- (#{label\ 2048}#
- (#{gen-label\ 403}#)))
+ (let ((#{id\ 4156}#
+ (#{wrap\ 2565}#
+ #{value\ 4134}#
+ #{w\ 4136}#
+ #{mod\ 4138}#))
+ (#{label\ 4157}#
+ (#{gen-label\ 2512}#)))
(begin
- (#{extend-ribcage!\ 432}#
- #{ribcage\ 1997}#
- #{id\ 2047}#
- #{label\ 2048}#)
- (#{parse\ 2009}#
- (cdr #{body\ 2010}#)
- (cons #{id\ 2047}#
- #{ids\ 2011}#)
- (cons #{label\ 2048}#
- #{labels\ 2012}#)
- #{var-ids\ 2013}#
- #{vars\ 2014}#
- #{vals\ 2015}#
+ (#{extend-ribcage!\ 2541}#
+ #{ribcage\ 4106}#
+ #{id\ 4156}#
+ #{label\ 4157}#)
+ (#{parse\ 4118}#
+ (cdr #{body\ 4119}#)
+ (cons #{id\ 4156}#
+ #{ids\ 4120}#)
+ (cons #{label\ 4157}#
+ #{labels\ 4121}#)
+ #{var-ids\ 4122}#
+ #{vars\ 4123}#
+ #{vals\ 4124}#
(cons (cons 'macro
- (cons #{er\
2022}#
-
(#{wrap\ 456}#
- #{e\
2026}#
- #{w\
2027}#
-
#{mod\ 2029}#)))
- #{bindings\
2016}#)))))
- (if (eqv? #{type\ 2024}#
+ (cons #{er\
4131}#
+
(#{wrap\ 2565}#
+ #{e\
4135}#
+ #{w\
4136}#
+
#{mod\ 4138}#)))
+ #{bindings\
4125}#)))))
+ (if (eqv? #{type\ 4133}#
'begin-form)
- (let ((#{tmp\ 2051}#
- #{e\ 2026}#))
- (let ((#{tmp\ 2052}#
+ (let ((#{tmp\ 4160}#
+ #{e\ 4135}#))
+ (let ((#{tmp\ 4161}#
($sc-dispatch
- #{tmp\ 2051}#
+ #{tmp\ 4160}#
'(any .
each-any))))
- (if #{tmp\ 2052}#
+ (if #{tmp\ 4161}#
(@apply
- (lambda (#{_\ 2055}#
- #{e1\ 2056}#)
- (#{parse\ 2009}#
+ (lambda (#{_\ 4164}#
+ #{e1\ 4165}#)
+ (#{parse\ 4118}#
(letrec*
- ((#{f\ 2059}#
- (lambda
(#{forms\ 2060}#)
- (if (null?
#{forms\ 2060}#)
- (cdr
#{body\ 2010}#)
- (cons
(cons #{er\ 2022}#
-
(#{wrap\ 456}#
-
(car #{forms\ 2060}#)
-
#{w\ 2027}#
-
#{mod\ 2029}#))
-
(#{f\ 2059}#
-
(cdr #{forms\ 2060}#)))))))
+ ((#{f\ 4168}#
+ (lambda
(#{forms\ 4169}#)
+ (if (null?
#{forms\ 4169}#)
+ (cdr
#{body\ 4119}#)
+ (cons
(cons #{er\ 4131}#
+
(#{wrap\ 2565}#
+
(car #{forms\ 4169}#)
+
#{w\ 4136}#
+
#{mod\ 4138}#))
+
(#{f\ 4168}#
+
(cdr #{forms\ 4169}#)))))))
(begin
- (#{f\ 2059}#
- #{e1\
2056}#)))
- #{ids\ 2011}#
- #{labels\ 2012}#
- #{var-ids\ 2013}#
- #{vars\ 2014}#
- #{vals\ 2015}#
- #{bindings\
2016}#))
- #{tmp\ 2052}#)
+ (#{f\ 4168}#
+ #{e1\
4165}#)))
+ #{ids\ 4120}#
+ #{labels\ 4121}#
+ #{var-ids\ 4122}#
+ #{vars\ 4123}#
+ #{vals\ 4124}#
+ #{bindings\
4125}#))
+ #{tmp\ 4161}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 2051}#))))
- (if (eqv? #{type\ 2024}#
+ #{tmp\ 4160}#))))
+ (if (eqv? #{type\ 4133}#
'local-syntax-form)
- (#{chi-local-syntax\ 482}#
- #{value\ 2025}#
- #{e\ 2026}#
- #{er\ 2022}#
- #{w\ 2027}#
- #{s\ 2028}#
- #{mod\ 2029}#
- (lambda (#{forms\ 2063}#
- #{er\ 2064}#
- #{w\ 2065}#
- #{s\ 2066}#
- #{mod\ 2067}#)
- (#{parse\ 2009}#
+ (#{chi-local-syntax\ 2591}#
+ #{value\ 4134}#
+ #{e\ 4135}#
+ #{er\ 4131}#
+ #{w\ 4136}#
+ #{s\ 4137}#
+ #{mod\ 4138}#
+ (lambda (#{forms\ 4172}#
+ #{er\ 4173}#
+ #{w\ 4174}#
+ #{s\ 4175}#
+ #{mod\ 4176}#)
+ (#{parse\ 4118}#
(letrec*
- ((#{f\ 2075}#
- (lambda (#{forms\
2076}#)
- (if (null?
#{forms\ 2076}#)
- (cdr #{body\
2010}#)
- (cons (cons
#{er\ 2064}#
-
(#{wrap\ 456}#
-
(car #{forms\ 2076}#)
-
#{w\ 2065}#
-
#{mod\ 2067}#))
- (#{f\
2075}#
- (cdr
#{forms\ 2076}#)))))))
+ ((#{f\ 4184}#
+ (lambda (#{forms\
4185}#)
+ (if (null?
#{forms\ 4185}#)
+ (cdr #{body\
4119}#)
+ (cons (cons
#{er\ 4173}#
+
(#{wrap\ 2565}#
+
(car #{forms\ 4185}#)
+
#{w\ 4174}#
+
#{mod\ 4176}#))
+ (#{f\
4184}#
+ (cdr
#{forms\ 4185}#)))))))
(begin
- (#{f\ 2075}#
- #{forms\
2063}#)))
- #{ids\ 2011}#
- #{labels\ 2012}#
- #{var-ids\ 2013}#
- #{vars\ 2014}#
- #{vals\ 2015}#
- #{bindings\ 2016}#)))
- (if (null? #{ids\ 2011}#)
- (#{build-sequence\ 339}#
+ (#{f\ 4184}#
+ #{forms\
4172}#)))
+ #{ids\ 4120}#
+ #{labels\ 4121}#
+ #{var-ids\ 4122}#
+ #{vars\ 4123}#
+ #{vals\ 4124}#
+ #{bindings\ 4125}#)))
+ (if (null? #{ids\ 4120}#)
+ (#{build-sequence\ 2448}#
#f
- (map (lambda (#{x\
2079}#)
- (#{chi\ 472}#
- (cdr #{x\
2079}#)
- (car #{x\
2079}#)
+ (map (lambda (#{x\
4188}#)
+ (#{chi\ 2581}#
+ (cdr #{x\
4188}#)
+ (car #{x\
4188}#)
'(())
- #{mod\ 2029}#))
- (cons (cons #{er\
2022}#
-
(#{source-wrap\ 458}#
- #{e\
2026}#
- #{w\
2027}#
- #{s\
2028}#
-
#{mod\ 2029}#))
- (cdr #{body\
2010}#))))
+ #{mod\ 4138}#))
+ (cons (cons #{er\
4131}#
+
(#{source-wrap\ 2567}#
+ #{e\
4135}#
+ #{w\
4136}#
+ #{s\
4137}#
+
#{mod\ 4138}#))
+ (cdr #{body\
4119}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 450}#
- #{ids\
2011}#))
+ (if (not
(#{valid-bound-ids?\ 2559}#
+ #{ids\
4120}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
1984}#))
+ #{outer-form\
4093}#))
(letrec*
- ((#{loop\ 2086}#
- (lambda (#{bs\
2087}#
-
#{er-cache\ 2088}#
- #{r-cache\
2089}#)
- (if (not (null?
#{bs\ 2087}#))
+ ((#{loop\ 4195}#
+ (lambda (#{bs\
4196}#
+
#{er-cache\ 4197}#
+ #{r-cache\
4198}#)
+ (if (not (null?
#{bs\ 4196}#))
(begin
- (let ((#{b\
2092}#
- (car
#{bs\ 2087}#)))
- (if (eq?
(car #{b\ 2092}#)
+ (let ((#{b\
4201}#
+ (car
#{bs\ 4196}#)))
+ (if (eq?
(car #{b\ 4201}#)
'macro)
(begin
- (let
((#{er\ 2095}#
-
(car (cdr #{b\ 2092}#))))
+ (let
((#{er\ 4204}#
+
(car (cdr #{b\ 4201}#))))
(begin
-
(let ((#{r-cache\ 2097}#
-
(if (eq? #{er\ 2095}#
-
#{er-cache\ 2088}#)
-
#{r-cache\ 2089}#
-
(#{macros-only-env\ 379}#
-
#{er\ 2095}#))))
+
(let ((#{r-cache\ 4206}#
+
(if (eq? #{er\ 4204}#
+
#{er-cache\ 4197}#)
+
#{r-cache\ 4198}#
+
(#{macros-only-env\ 2488}#
+
#{er\ 4204}#))))
(begin
(set-cdr!
-
#{b\ 2092}#
-
(#{eval-local-transformer\ 484}#
-
(#{chi\ 472}#
-
(cdr (cdr #{b\ 2092}#))
-
#{r-cache\ 2097}#
+
#{b\ 4201}#
+
(#{eval-local-transformer\ 2593}#
+
(#{chi\ 2581}#
+
(cdr (cdr #{b\ 4201}#))
+
#{r-cache\ 4206}#
'(())
-
#{mod\ 2029}#)
-
#{mod\ 2029}#))
-
(#{loop\ 2086}#
-
(cdr #{bs\ 2087}#)
-
#{er\ 2095}#
-
#{r-cache\ 2097}#))))))
- (#{loop\
2086}#
- (cdr
#{bs\ 2087}#)
-
#{er-cache\ 2088}#
-
#{r-cache\ 2089}#))))))))
+
#{mod\ 4138}#)
+
#{mod\ 4138}#))
+
(#{loop\ 4195}#
+
(cdr #{bs\ 4196}#)
+
#{er\ 4204}#
+
#{r-cache\ 4206}#))))))
+ (#{loop\
4195}#
+ (cdr
#{bs\ 4196}#)
+
#{er-cache\ 4197}#
+
#{r-cache\ 4198}#))))))))
(begin
- (#{loop\ 2086}#
- #{bindings\ 2016}#
+ (#{loop\ 4195}#
+ #{bindings\ 4125}#
#f
#f)))
(set-cdr!
- #{r\ 1995}#
- (#{extend-env\ 375}#
- #{labels\ 2012}#
- #{bindings\ 2016}#
- (cdr #{r\ 1995}#)))
- (#{build-letrec\ 345}#
+ #{r\ 4104}#
+ (#{extend-env\ 2484}#
+ #{labels\ 4121}#
+ #{bindings\ 4125}#
+ (cdr #{r\ 4104}#)))
+ (#{build-letrec\ 2454}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\
2013}#))
+ #{var-ids\
4122}#))
(reverse
- #{vars\ 2014}#)
- (map (lambda (#{x\
2100}#)
- (#{chi\ 472}#
- (cdr #{x\
2100}#)
- (car #{x\
2100}#)
+ #{vars\ 4123}#)
+ (map (lambda (#{x\
4209}#)
+ (#{chi\ 2581}#
+ (cdr #{x\
4209}#)
+ (car #{x\
4209}#)
'(())
- #{mod\
2029}#))
+ #{mod\
4138}#))
(reverse
- #{vals\ 2015}#))
- (#{build-sequence\
339}#
+ #{vals\ 4124}#))
+ (#{build-sequence\
2448}#
#f
- (map (lambda (#{x\
2104}#)
- (#{chi\ 472}#
- (cdr #{x\
2104}#)
- (car #{x\
2104}#)
+ (map (lambda (#{x\
4213}#)
+ (#{chi\ 2581}#
+ (cdr #{x\
4213}#)
+ (car #{x\
4213}#)
'(())
- #{mod\
2029}#))
- (cons (cons
#{er\ 2022}#
-
(#{source-wrap\ 458}#
-
#{e\ 2026}#
-
#{w\ 2027}#
-
#{s\ 2028}#
-
#{mod\ 2029}#))
- (cdr
#{body\ 2010}#)))))))))))))))))))
+ #{mod\
4138}#))
+ (cons (cons
#{er\ 4131}#
+
(#{source-wrap\ 2567}#
+
#{e\ 4135}#
+
#{w\ 4136}#
+
#{s\ 4137}#
+
#{mod\ 4138}#))
+ (cdr
#{body\ 4119}#)))))))))))))))))))
(begin
- (#{parse\ 2009}#
- (map (lambda (#{x\ 2017}#)
- (cons #{r\ 1995}#
- (#{wrap\ 456}#
- #{x\ 2017}#
- #{w\ 2000}#
- #{mod\ 1987}#)))
- #{body\ 1983}#)
+ (#{parse\ 4118}#
+ (map (lambda (#{x\ 4126}#)
+ (cons #{r\ 4104}#
+ (#{wrap\ 2565}#
+ #{x\ 4126}#
+ #{w\ 4109}#
+ #{mod\ 4096}#)))
+ #{body\ 4092}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax\ 482}#
- (lambda (#{rec?\ 2107}#
- #{e\ 2108}#
- #{r\ 2109}#
- #{w\ 2110}#
- #{s\ 2111}#
- #{mod\ 2112}#
- #{k\ 2113}#)
- (let ((#{tmp\ 2121}# #{e\ 2108}#))
- (let ((#{tmp\ 2122}#
+ (#{chi-local-syntax\ 2591}#
+ (lambda (#{rec?\ 4216}#
+ #{e\ 4217}#
+ #{r\ 4218}#
+ #{w\ 4219}#
+ #{s\ 4220}#
+ #{mod\ 4221}#
+ #{k\ 4222}#)
+ (let ((#{tmp\ 4230}# #{e\ 4217}#))
+ (let ((#{tmp\ 4231}#
($sc-dispatch
- #{tmp\ 2121}#
+ #{tmp\ 4230}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 2122}#
+ (if #{tmp\ 4231}#
(@apply
- (lambda (#{_\ 2128}#
- #{id\ 2129}#
- #{val\ 2130}#
- #{e1\ 2131}#
- #{e2\ 2132}#)
+ (lambda (#{_\ 4237}#
+ #{id\ 4238}#
+ #{val\ 4239}#
+ #{e1\ 4240}#
+ #{e2\ 4241}#)
(begin
- (let ((#{ids\ 2134}# #{id\ 2129}#))
- (if (not (#{valid-bound-ids?\ 450}# #{ids\ 2134}#))
+ (let ((#{ids\ 4243}# #{id\ 4238}#))
+ (if (not (#{valid-bound-ids?\ 2559}# #{ids\ 4243}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 2108}#)
+ #{e\ 4217}#)
(begin
- (let ((#{labels\ 2137}#
- (#{gen-labels\ 405}# #{ids\ 2134}#)))
+ (let ((#{labels\ 4246}#
+ (#{gen-labels\ 2514}# #{ids\ 4243}#)))
(begin
- (let ((#{new-w\ 2139}#
- (#{make-binding-wrap\ 434}#
- #{ids\ 2134}#
- #{labels\ 2137}#
- #{w\ 2110}#)))
- (#{k\ 2113}#
- (cons #{e1\ 2131}# #{e2\ 2132}#)
- (#{extend-env\ 375}#
- #{labels\ 2137}#
+ (let ((#{new-w\ 4248}#
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 4243}#
+ #{labels\ 4246}#
+ #{w\ 4219}#)))
+ (#{k\ 4222}#
+ (cons #{e1\ 4240}# #{e2\ 4241}#)
+ (#{extend-env\ 2484}#
+ #{labels\ 4246}#
(begin
- (let ((#{w\ 2143}#
- (if #{rec?\ 2107}#
- #{new-w\ 2139}#
- #{w\ 2110}#))
- (#{trans-r\ 2144}#
- (#{macros-only-env\ 379}#
- #{r\ 2109}#)))
- (map (lambda (#{x\ 2145}#)
+ (let ((#{w\ 4252}#
+ (if #{rec?\ 4216}#
+ #{new-w\ 4248}#
+ #{w\ 4219}#))
+ (#{trans-r\ 4253}#
+ (#{macros-only-env\ 2488}#
+ #{r\ 4218}#)))
+ (map (lambda (#{x\ 4254}#)
(cons 'macro
-
(#{eval-local-transformer\ 484}#
- (#{chi\ 472}#
- #{x\ 2145}#
- #{trans-r\ 2144}#
- #{w\ 2143}#
- #{mod\ 2112}#)
- #{mod\ 2112}#)))
- #{val\ 2130}#)))
- #{r\ 2109}#)
- #{new-w\ 2139}#
- #{s\ 2111}#
- #{mod\ 2112}#)))))))))
- #{tmp\ 2122}#)
- (let ((#{_\ 2150}# #{tmp\ 2121}#))
+
(#{eval-local-transformer\ 2593}#
+ (#{chi\ 2581}#
+ #{x\ 4254}#
+ #{trans-r\ 4253}#
+ #{w\ 4252}#
+ #{mod\ 4221}#)
+ #{mod\ 4221}#)))
+ #{val\ 4239}#)))
+ #{r\ 4218}#)
+ #{new-w\ 4248}#
+ #{s\ 4220}#
+ #{mod\ 4221}#)))))))))
+ #{tmp\ 4231}#)
+ (let ((#{_\ 4259}# #{tmp\ 4230}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 458}#
- #{e\ 2108}#
- #{w\ 2110}#
- #{s\ 2111}#
- #{mod\ 2112}#))))))))
- (#{eval-local-transformer\ 484}#
- (lambda (#{expanded\ 2151}# #{mod\ 2152}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 4217}#
+ #{w\ 4219}#
+ #{s\ 4220}#
+ #{mod\ 4221}#))))))))
+ (#{eval-local-transformer\ 2593}#
+ (lambda (#{expanded\ 4260}# #{mod\ 4261}#)
(begin
- (let ((#{p\ 2156}#
- (#{local-eval-hook\ 298}#
- #{expanded\ 2151}#
- #{mod\ 2152}#)))
- (if (procedure? #{p\ 2156}#)
- #{p\ 2156}#
+ (let ((#{p\ 4265}#
+ (#{local-eval-hook\ 2407}#
+ #{expanded\ 4260}#
+ #{mod\ 4261}#)))
+ (if (procedure? #{p\ 4265}#)
+ #{p\ 4265}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 2156}#))))))
- (#{chi-void\ 486}#
- (lambda () (#{build-void\ 307}# #f)))
- (#{ellipsis?\ 488}#
- (lambda (#{x\ 2158}#)
- (if (#{nonsymbol-id?\ 385}# #{x\ 2158}#)
- (#{free-id=?\ 446}#
- #{x\ 2158}#
+ #{p\ 4265}#))))))
+ (#{chi-void\ 2595}#
+ (lambda () (#{build-void\ 2418}# #f)))
+ (#{ellipsis?\ 2597}#
+ (lambda (#{x\ 4267}#)
+ (if (#{nonsymbol-id?\ 2494}# #{x\ 4267}#)
+ (#{free-id=?\ 2555}#
+ #{x\ 4267}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2159"))
+ #(ribcage #(x) #((top)) #("i4268"))
#(ribcage
(lambda-var-list
gen-var
@@ -6592,7 +6621,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -6602,6 +6630,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -6770,417 +6799,417 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i2147" "i2146" "i2145" "i2143")))
(hygiene guile)))
#f)))
- (#{lambda-formals\ 490}#
- (lambda (#{orig-args\ 2162}#)
+ (#{lambda-formals\ 2599}#
+ (lambda (#{orig-args\ 4271}#)
(letrec*
- ((#{req\ 2165}#
- (lambda (#{args\ 2168}# #{rreq\ 2169}#)
- (let ((#{tmp\ 2172}# #{args\ 2168}#))
- (let ((#{tmp\ 2173}#
- ($sc-dispatch #{tmp\ 2172}# (quote ()))))
- (if #{tmp\ 2173}#
+ ((#{req\ 4274}#
+ (lambda (#{args\ 4277}# #{rreq\ 4278}#)
+ (let ((#{tmp\ 4281}# #{args\ 4277}#))
+ (let ((#{tmp\ 4282}#
+ ($sc-dispatch #{tmp\ 4281}# (quote ()))))
+ (if #{tmp\ 4282}#
(@apply
(lambda ()
- (#{check\ 2167}# (reverse #{rreq\ 2169}#) #f))
- #{tmp\ 2173}#)
- (let ((#{tmp\ 2174}#
+ (#{check\ 4276}# (reverse #{rreq\ 4278}#) #f))
+ #{tmp\ 4282}#)
+ (let ((#{tmp\ 4283}#
($sc-dispatch
- #{tmp\ 2172}#
+ #{tmp\ 4281}#
'(any . any))))
- (if (if #{tmp\ 2174}#
+ (if (if #{tmp\ 4283}#
(@apply
- (lambda (#{a\ 2177}# #{b\ 2178}#)
- (#{id?\ 387}# #{a\ 2177}#))
- #{tmp\ 2174}#)
+ (lambda (#{a\ 4286}# #{b\ 4287}#)
+ (#{id?\ 2496}# #{a\ 4286}#))
+ #{tmp\ 4283}#)
#f)
(@apply
- (lambda (#{a\ 2181}# #{b\ 2182}#)
- (#{req\ 2165}#
- #{b\ 2182}#
- (cons #{a\ 2181}# #{rreq\ 2169}#)))
- #{tmp\ 2174}#)
- (let ((#{tmp\ 2183}# (list #{tmp\ 2172}#)))
- (if (if #{tmp\ 2183}#
+ (lambda (#{a\ 4290}# #{b\ 4291}#)
+ (#{req\ 4274}#
+ #{b\ 4291}#
+ (cons #{a\ 4290}# #{rreq\ 4278}#)))
+ #{tmp\ 4283}#)
+ (let ((#{tmp\ 4292}# (list #{tmp\ 4281}#)))
+ (if (if #{tmp\ 4292}#
(@apply
- (lambda (#{r\ 2185}#)
- (#{id?\ 387}# #{r\ 2185}#))
- #{tmp\ 2183}#)
+ (lambda (#{r\ 4294}#)
+ (#{id?\ 2496}# #{r\ 4294}#))
+ #{tmp\ 4292}#)
#f)
(@apply
- (lambda (#{r\ 2187}#)
- (#{check\ 2167}#
- (reverse #{rreq\ 2169}#)
- #{r\ 2187}#))
- #{tmp\ 2183}#)
- (let ((#{else\ 2189}# #{tmp\ 2172}#))
+ (lambda (#{r\ 4296}#)
+ (#{check\ 4276}#
+ (reverse #{rreq\ 4278}#)
+ #{r\ 4296}#))
+ #{tmp\ 4292}#)
+ (let ((#{else\ 4298}# #{tmp\ 4281}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 2162}#
- #{args\ 2168}#)))))))))))
- (#{check\ 2167}#
- (lambda (#{req\ 2190}# #{rest\ 2191}#)
- (if (#{distinct-bound-ids?\ 452}#
- (if #{rest\ 2191}#
- (cons #{rest\ 2191}# #{req\ 2190}#)
- #{req\ 2190}#))
- (values #{req\ 2190}# #f #{rest\ 2191}# #f)
+ #{orig-args\ 4271}#
+ #{args\ 4277}#)))))))))))
+ (#{check\ 4276}#
+ (lambda (#{req\ 4299}# #{rest\ 4300}#)
+ (if (#{distinct-bound-ids?\ 2561}#
+ (if #{rest\ 4300}#
+ (cons #{rest\ 4300}# #{req\ 4299}#)
+ #{req\ 4299}#))
+ (values #{req\ 4299}# #f #{rest\ 4300}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 2162}#)))))
+ #{orig-args\ 4271}#)))))
(begin
- (#{req\ 2165}# #{orig-args\ 2162}# (quote ()))))))
- (#{chi-simple-lambda\ 492}#
- (lambda (#{e\ 2197}#
- #{r\ 2198}#
- #{w\ 2199}#
- #{s\ 2200}#
- #{mod\ 2201}#
- #{req\ 2202}#
- #{rest\ 2203}#
- #{meta\ 2204}#
- #{body\ 2205}#)
+ (#{req\ 4274}# #{orig-args\ 4271}# (quote ()))))))
+ (#{chi-simple-lambda\ 2601}#
+ (lambda (#{e\ 4306}#
+ #{r\ 4307}#
+ #{w\ 4308}#
+ #{s\ 4309}#
+ #{mod\ 4310}#
+ #{req\ 4311}#
+ #{rest\ 4312}#
+ #{meta\ 4313}#
+ #{body\ 4314}#)
(begin
- (let ((#{ids\ 2217}#
- (if #{rest\ 2203}#
- (append #{req\ 2202}# (list #{rest\ 2203}#))
- #{req\ 2202}#)))
+ (let ((#{ids\ 4326}#
+ (if #{rest\ 4312}#
+ (append #{req\ 4311}# (list #{rest\ 4312}#))
+ #{req\ 4311}#)))
(begin
- (let ((#{vars\ 2219}#
- (map #{gen-var\ 500}# #{ids\ 2217}#)))
+ (let ((#{vars\ 4328}#
+ (map #{gen-var\ 2609}# #{ids\ 4326}#)))
(begin
- (let ((#{labels\ 2221}#
- (#{gen-labels\ 405}# #{ids\ 2217}#)))
- (#{build-simple-lambda\ 329}#
- #{s\ 2200}#
- (map syntax->datum #{req\ 2202}#)
- (if #{rest\ 2203}#
- (syntax->datum #{rest\ 2203}#)
+ (let ((#{labels\ 4330}#
+ (#{gen-labels\ 2514}# #{ids\ 4326}#)))
+ (#{build-simple-lambda\ 2438}#
+ #{s\ 4309}#
+ (map syntax->datum #{req\ 4311}#)
+ (if #{rest\ 4312}#
+ (syntax->datum #{rest\ 4312}#)
#f)
- #{vars\ 2219}#
- #{meta\ 2204}#
- (#{chi-body\ 480}#
- #{body\ 2205}#
- (#{source-wrap\ 458}#
- #{e\ 2197}#
- #{w\ 2199}#
- #{s\ 2200}#
- #{mod\ 2201}#)
- (#{extend-var-env\ 377}#
- #{labels\ 2221}#
- #{vars\ 2219}#
- #{r\ 2198}#)
- (#{make-binding-wrap\ 434}#
- #{ids\ 2217}#
- #{labels\ 2221}#
- #{w\ 2199}#)
- #{mod\ 2201}#))))))))))
- (#{lambda*-formals\ 494}#
- (lambda (#{orig-args\ 2224}#)
+ #{vars\ 4328}#
+ #{meta\ 4313}#
+ (#{chi-body\ 2589}#
+ #{body\ 4314}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4306}#
+ #{w\ 4308}#
+ #{s\ 4309}#
+ #{mod\ 4310}#)
+ (#{extend-var-env\ 2486}#
+ #{labels\ 4330}#
+ #{vars\ 4328}#
+ #{r\ 4307}#)
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 4326}#
+ #{labels\ 4330}#
+ #{w\ 4308}#)
+ #{mod\ 4310}#))))))))))
+ (#{lambda*-formals\ 2603}#
+ (lambda (#{orig-args\ 4333}#)
(letrec*
- ((#{req\ 2227}#
- (lambda (#{args\ 2236}# #{rreq\ 2237}#)
- (let ((#{tmp\ 2240}# #{args\ 2236}#))
- (let ((#{tmp\ 2241}#
- ($sc-dispatch #{tmp\ 2240}# (quote ()))))
- (if #{tmp\ 2241}#
+ ((#{req\ 4336}#
+ (lambda (#{args\ 4345}# #{rreq\ 4346}#)
+ (let ((#{tmp\ 4349}# #{args\ 4345}#))
+ (let ((#{tmp\ 4350}#
+ ($sc-dispatch #{tmp\ 4349}# (quote ()))))
+ (if #{tmp\ 4350}#
(@apply
(lambda ()
- (#{check\ 2235}#
- (reverse #{rreq\ 2237}#)
+ (#{check\ 4344}#
+ (reverse #{rreq\ 4346}#)
'()
#f
'()))
- #{tmp\ 2241}#)
- (let ((#{tmp\ 2242}#
+ #{tmp\ 4350}#)
+ (let ((#{tmp\ 4351}#
($sc-dispatch
- #{tmp\ 2240}#
+ #{tmp\ 4349}#
'(any . any))))
- (if (if #{tmp\ 2242}#
+ (if (if #{tmp\ 4351}#
(@apply
- (lambda (#{a\ 2245}# #{b\ 2246}#)
- (#{id?\ 387}# #{a\ 2245}#))
- #{tmp\ 2242}#)
+ (lambda (#{a\ 4354}# #{b\ 4355}#)
+ (#{id?\ 2496}# #{a\ 4354}#))
+ #{tmp\ 4351}#)
#f)
(@apply
- (lambda (#{a\ 2249}# #{b\ 2250}#)
- (#{req\ 2227}#
- #{b\ 2250}#
- (cons #{a\ 2249}# #{rreq\ 2237}#)))
- #{tmp\ 2242}#)
- (let ((#{tmp\ 2251}#
+ (lambda (#{a\ 4358}# #{b\ 4359}#)
+ (#{req\ 4336}#
+ #{b\ 4359}#
+ (cons #{a\ 4358}# #{rreq\ 4346}#)))
+ #{tmp\ 4351}#)
+ (let ((#{tmp\ 4360}#
($sc-dispatch
- #{tmp\ 2240}#
+ #{tmp\ 4349}#
'(any . any))))
- (if (if #{tmp\ 2251}#
+ (if (if #{tmp\ 4360}#
(@apply
- (lambda (#{a\ 2254}# #{b\ 2255}#)
- (eq? (syntax->datum #{a\ 2254}#)
+ (lambda (#{a\ 4363}# #{b\ 4364}#)
+ (eq? (syntax->datum #{a\ 4363}#)
#:optional))
- #{tmp\ 2251}#)
+ #{tmp\ 4360}#)
#f)
(@apply
- (lambda (#{a\ 2258}# #{b\ 2259}#)
- (#{opt\ 2229}#
- #{b\ 2259}#
- (reverse #{rreq\ 2237}#)
+ (lambda (#{a\ 4367}# #{b\ 4368}#)
+ (#{opt\ 4338}#
+ #{b\ 4368}#
+ (reverse #{rreq\ 4346}#)
'()))
- #{tmp\ 2251}#)
- (let ((#{tmp\ 2260}#
+ #{tmp\ 4360}#)
+ (let ((#{tmp\ 4369}#
($sc-dispatch
- #{tmp\ 2240}#
+ #{tmp\ 4349}#
'(any . any))))
- (if (if #{tmp\ 2260}#
+ (if (if #{tmp\ 4369}#
(@apply
- (lambda (#{a\ 2263}# #{b\ 2264}#)
- (eq? (syntax->datum #{a\ 2263}#)
+ (lambda (#{a\ 4372}# #{b\ 4373}#)
+ (eq? (syntax->datum #{a\ 4372}#)
#:key))
- #{tmp\ 2260}#)
+ #{tmp\ 4369}#)
#f)
(@apply
- (lambda (#{a\ 2267}# #{b\ 2268}#)
- (#{key\ 2231}#
- #{b\ 2268}#
- (reverse #{rreq\ 2237}#)
+ (lambda (#{a\ 4376}# #{b\ 4377}#)
+ (#{key\ 4340}#
+ #{b\ 4377}#
+ (reverse #{rreq\ 4346}#)
'()
'()))
- #{tmp\ 2260}#)
- (let ((#{tmp\ 2269}#
+ #{tmp\ 4369}#)
+ (let ((#{tmp\ 4378}#
($sc-dispatch
- #{tmp\ 2240}#
+ #{tmp\ 4349}#
'(any any))))
- (if (if #{tmp\ 2269}#
+ (if (if #{tmp\ 4378}#
(@apply
- (lambda (#{a\ 2272}#
- #{b\ 2273}#)
+ (lambda (#{a\ 4381}#
+ #{b\ 4382}#)
(eq? (syntax->datum
- #{a\ 2272}#)
+ #{a\ 4381}#)
#:rest))
- #{tmp\ 2269}#)
+ #{tmp\ 4378}#)
#f)
(@apply
- (lambda (#{a\ 2276}# #{b\ 2277}#)
- (#{rest\ 2233}#
- #{b\ 2277}#
- (reverse #{rreq\ 2237}#)
+ (lambda (#{a\ 4385}# #{b\ 4386}#)
+ (#{rest\ 4342}#
+ #{b\ 4386}#
+ (reverse #{rreq\ 4346}#)
'()
'()))
- #{tmp\ 2269}#)
- (let ((#{tmp\ 2278}#
- (list #{tmp\ 2240}#)))
- (if (if #{tmp\ 2278}#
+ #{tmp\ 4378}#)
+ (let ((#{tmp\ 4387}#
+ (list #{tmp\ 4349}#)))
+ (if (if #{tmp\ 4387}#
(@apply
- (lambda (#{r\ 2280}#)
- (#{id?\ 387}#
- #{r\ 2280}#))
- #{tmp\ 2278}#)
+ (lambda (#{r\ 4389}#)
+ (#{id?\ 2496}#
+ #{r\ 4389}#))
+ #{tmp\ 4387}#)
#f)
(@apply
- (lambda (#{r\ 2282}#)
- (#{rest\ 2233}#
- #{r\ 2282}#
- (reverse #{rreq\ 2237}#)
+ (lambda (#{r\ 4391}#)
+ (#{rest\ 4342}#
+ #{r\ 4391}#
+ (reverse #{rreq\ 4346}#)
'()
'()))
- #{tmp\ 2278}#)
- (let ((#{else\ 2284}#
- #{tmp\ 2240}#))
+ #{tmp\ 4387}#)
+ (let ((#{else\ 4393}#
+ #{tmp\ 4349}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 2224}#
- #{args\
2236}#)))))))))))))))))
- (#{opt\ 2229}#
- (lambda (#{args\ 2285}# #{req\ 2286}# #{ropt\ 2287}#)
- (let ((#{tmp\ 2291}# #{args\ 2285}#))
- (let ((#{tmp\ 2292}#
- ($sc-dispatch #{tmp\ 2291}# (quote ()))))
- (if #{tmp\ 2292}#
+ #{orig-args\ 4333}#
+ #{args\
4345}#)))))))))))))))))
+ (#{opt\ 4338}#
+ (lambda (#{args\ 4394}# #{req\ 4395}# #{ropt\ 4396}#)
+ (let ((#{tmp\ 4400}# #{args\ 4394}#))
+ (let ((#{tmp\ 4401}#
+ ($sc-dispatch #{tmp\ 4400}# (quote ()))))
+ (if #{tmp\ 4401}#
(@apply
(lambda ()
- (#{check\ 2235}#
- #{req\ 2286}#
- (reverse #{ropt\ 2287}#)
+ (#{check\ 4344}#
+ #{req\ 4395}#
+ (reverse #{ropt\ 4396}#)
#f
'()))
- #{tmp\ 2292}#)
- (let ((#{tmp\ 2293}#
+ #{tmp\ 4401}#)
+ (let ((#{tmp\ 4402}#
($sc-dispatch
- #{tmp\ 2291}#
+ #{tmp\ 4400}#
'(any . any))))
- (if (if #{tmp\ 2293}#
+ (if (if #{tmp\ 4402}#
(@apply
- (lambda (#{a\ 2296}# #{b\ 2297}#)
- (#{id?\ 387}# #{a\ 2296}#))
- #{tmp\ 2293}#)
+ (lambda (#{a\ 4405}# #{b\ 4406}#)
+ (#{id?\ 2496}# #{a\ 4405}#))
+ #{tmp\ 4402}#)
#f)
(@apply
- (lambda (#{a\ 2300}# #{b\ 2301}#)
- (#{opt\ 2229}#
- #{b\ 2301}#
- #{req\ 2286}#
- (cons (cons #{a\ 2300}#
+ (lambda (#{a\ 4409}# #{b\ 4410}#)
+ (#{opt\ 4338}#
+ #{b\ 4410}#
+ #{req\ 4395}#
+ (cons (cons #{a\ 4409}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2298" "i2299"))
+ #("i4407" "i4408"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2288"
- "i2289"
- "i2290"))
+ #("i4397"
+ "i4398"
+ "i4399"))
#(ribcage
(check rest key opt req)
((top)
@@ -7188,15 +7217,15 @@
(top)
(top)
(top))
- ("i2234"
- "i2232"
- "i2230"
- "i2228"
- "i2226"))
+ ("i4343"
+ "i4341"
+ "i4339"
+ "i4337"
+ "i4335"))
#(ribcage
#(orig-args)
#((top))
- #("i2225"))
+ #("i4334"))
#(ribcage
(lambda-var-list
gen-var
@@ -7294,7 +7323,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -7304,6 +7332,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -7472,143 +7501,143 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -7618,150 +7647,150 @@
(top)
(top)
(top))
- ("i38"
- "i37"
- "i36"
- "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile))))
- #{ropt\ 2287}#)))
- #{tmp\ 2293}#)
- (let ((#{tmp\ 2302}#
+ #{ropt\ 4396}#)))
+ #{tmp\ 4402}#)
+ (let ((#{tmp\ 4411}#
($sc-dispatch
- #{tmp\ 2291}#
+ #{tmp\ 4400}#
'((any any) . any))))
- (if (if #{tmp\ 2302}#
+ (if (if #{tmp\ 4411}#
(@apply
- (lambda (#{a\ 2306}#
- #{init\ 2307}#
- #{b\ 2308}#)
- (#{id?\ 387}# #{a\ 2306}#))
- #{tmp\ 2302}#)
+ (lambda (#{a\ 4415}#
+ #{init\ 4416}#
+ #{b\ 4417}#)
+ (#{id?\ 2496}# #{a\ 4415}#))
+ #{tmp\ 4411}#)
#f)
(@apply
- (lambda (#{a\ 2312}#
- #{init\ 2313}#
- #{b\ 2314}#)
- (#{opt\ 2229}#
- #{b\ 2314}#
- #{req\ 2286}#
- (cons (list #{a\ 2312}# #{init\ 2313}#)
- #{ropt\ 2287}#)))
- #{tmp\ 2302}#)
- (let ((#{tmp\ 2315}#
+ (lambda (#{a\ 4421}#
+ #{init\ 4422}#
+ #{b\ 4423}#)
+ (#{opt\ 4338}#
+ #{b\ 4423}#
+ #{req\ 4395}#
+ (cons (list #{a\ 4421}# #{init\ 4422}#)
+ #{ropt\ 4396}#)))
+ #{tmp\ 4411}#)
+ (let ((#{tmp\ 4424}#
($sc-dispatch
- #{tmp\ 2291}#
+ #{tmp\ 4400}#
'(any . any))))
- (if (if #{tmp\ 2315}#
+ (if (if #{tmp\ 4424}#
(@apply
- (lambda (#{a\ 2318}# #{b\ 2319}#)
- (eq? (syntax->datum #{a\ 2318}#)
+ (lambda (#{a\ 4427}# #{b\ 4428}#)
+ (eq? (syntax->datum #{a\ 4427}#)
#:key))
- #{tmp\ 2315}#)
+ #{tmp\ 4424}#)
#f)
(@apply
- (lambda (#{a\ 2322}# #{b\ 2323}#)
- (#{key\ 2231}#
- #{b\ 2323}#
- #{req\ 2286}#
- (reverse #{ropt\ 2287}#)
+ (lambda (#{a\ 4431}# #{b\ 4432}#)
+ (#{key\ 4340}#
+ #{b\ 4432}#
+ #{req\ 4395}#
+ (reverse #{ropt\ 4396}#)
'()))
- #{tmp\ 2315}#)
- (let ((#{tmp\ 2324}#
+ #{tmp\ 4424}#)
+ (let ((#{tmp\ 4433}#
($sc-dispatch
- #{tmp\ 2291}#
+ #{tmp\ 4400}#
'(any any))))
- (if (if #{tmp\ 2324}#
+ (if (if #{tmp\ 4433}#
(@apply
- (lambda (#{a\ 2327}#
- #{b\ 2328}#)
+ (lambda (#{a\ 4436}#
+ #{b\ 4437}#)
(eq? (syntax->datum
- #{a\ 2327}#)
+ #{a\ 4436}#)
#:rest))
- #{tmp\ 2324}#)
+ #{tmp\ 4433}#)
#f)
(@apply
- (lambda (#{a\ 2331}# #{b\ 2332}#)
- (#{rest\ 2233}#
- #{b\ 2332}#
- #{req\ 2286}#
- (reverse #{ropt\ 2287}#)
+ (lambda (#{a\ 4440}# #{b\ 4441}#)
+ (#{rest\ 4342}#
+ #{b\ 4441}#
+ #{req\ 4395}#
+ (reverse #{ropt\ 4396}#)
'()))
- #{tmp\ 2324}#)
- (let ((#{tmp\ 2333}#
- (list #{tmp\ 2291}#)))
- (if (if #{tmp\ 2333}#
+ #{tmp\ 4433}#)
+ (let ((#{tmp\ 4442}#
+ (list #{tmp\ 4400}#)))
+ (if (if #{tmp\ 4442}#
(@apply
- (lambda (#{r\ 2335}#)
- (#{id?\ 387}#
- #{r\ 2335}#))
- #{tmp\ 2333}#)
+ (lambda (#{r\ 4444}#)
+ (#{id?\ 2496}#
+ #{r\ 4444}#))
+ #{tmp\ 4442}#)
#f)
(@apply
- (lambda (#{r\ 2337}#)
- (#{rest\ 2233}#
- #{r\ 2337}#
- #{req\ 2286}#
- (reverse #{ropt\ 2287}#)
+ (lambda (#{r\ 4446}#)
+ (#{rest\ 4342}#
+ #{r\ 4446}#
+ #{req\ 4395}#
+ (reverse #{ropt\ 4396}#)
'()))
- #{tmp\ 2333}#)
- (let ((#{else\ 2339}#
- #{tmp\ 2291}#))
+ #{tmp\ 4442}#)
+ (let ((#{else\ 4448}#
+ #{tmp\ 4400}#))
(syntax-violation
'lambda*
"invalid optional argument
list"
- #{orig-args\ 2224}#
- #{args\
2285}#)))))))))))))))))
- (#{key\ 2231}#
- (lambda (#{args\ 2340}#
- #{req\ 2341}#
- #{opt\ 2342}#
- #{rkey\ 2343}#)
- (let ((#{tmp\ 2348}# #{args\ 2340}#))
- (let ((#{tmp\ 2349}#
- ($sc-dispatch #{tmp\ 2348}# (quote ()))))
- (if #{tmp\ 2349}#
+ #{orig-args\ 4333}#
+ #{args\
4394}#)))))))))))))))))
+ (#{key\ 4340}#
+ (lambda (#{args\ 4449}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
+ #{rkey\ 4452}#)
+ (let ((#{tmp\ 4457}# #{args\ 4449}#))
+ (let ((#{tmp\ 4458}#
+ ($sc-dispatch #{tmp\ 4457}# (quote ()))))
+ (if #{tmp\ 4458}#
(@apply
(lambda ()
- (#{check\ 2235}#
- #{req\ 2341}#
- #{opt\ 2342}#
+ (#{check\ 4344}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
#f
- (cons #f (reverse #{rkey\ 2343}#))))
- #{tmp\ 2349}#)
- (let ((#{tmp\ 2350}#
+ (cons #f (reverse #{rkey\ 4452}#))))
+ #{tmp\ 4458}#)
+ (let ((#{tmp\ 4459}#
($sc-dispatch
- #{tmp\ 2348}#
+ #{tmp\ 4457}#
'(any . any))))
- (if (if #{tmp\ 2350}#
+ (if (if #{tmp\ 4459}#
(@apply
- (lambda (#{a\ 2353}# #{b\ 2354}#)
- (#{id?\ 387}# #{a\ 2353}#))
- #{tmp\ 2350}#)
+ (lambda (#{a\ 4462}# #{b\ 4463}#)
+ (#{id?\ 2496}# #{a\ 4462}#))
+ #{tmp\ 4459}#)
#f)
(@apply
- (lambda (#{a\ 2357}# #{b\ 2358}#)
- (let ((#{tmp\ 2360}#
+ (lambda (#{a\ 4466}# #{b\ 4467}#)
+ (let ((#{tmp\ 4469}#
(symbol->keyword
- (syntax->datum #{a\ 2357}#))))
- (let ((#{k\ 2362}# #{tmp\ 2360}#))
- (#{key\ 2231}#
- #{b\ 2358}#
- #{req\ 2341}#
- #{opt\ 2342}#
- (cons (cons #{k\ 2362}#
- (cons #{a\ 2357}#
+ (syntax->datum #{a\ 4466}#))))
+ (let ((#{k\ 4471}# #{tmp\ 4469}#))
+ (#{key\ 4340}#
+ #{b\ 4467}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
+ (cons (cons #{k\ 4471}#
+ (cons #{a\ 4466}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i2361"))
+ #("i4470"))
#(ribcage
#(a b)
#((top) (top))
- #("i2355"
- "i2356"))
+ #("i4464"
+ "i4465"))
#(ribcage
()
()
@@ -7775,10 +7804,10 @@
(top)
(top)
(top))
- #("i2344"
- "i2345"
- "i2346"
- "i2347"))
+ #("i4453"
+ "i4454"
+ "i4455"
+ "i4456"))
#(ribcage
(check rest
key
@@ -7789,15 +7818,15 @@
(top)
(top)
(top))
- ("i2234"
- "i2232"
- "i2230"
- "i2228"
- "i2226"))
+ ("i4343"
+ "i4341"
+ "i4339"
+ "i4337"
+ "i4335"))
#(ribcage
#(orig-args)
#((top))
- #("i2225"))
+ #("i4334"))
#(ribcage
(lambda-var-list
gen-var
@@ -7895,7 +7924,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
-
maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -7905,6 +7933,7 @@
build-conditional
build-application
build-void
+
maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -8073,143 +8102,143 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -8219,2055 +8248,2091 @@
(top)
(top)
(top))
- ("i38"
- "i37"
- "i36"
- "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene
guile)))))
- #{rkey\ 2343}#)))))
- #{tmp\ 2350}#)
- (let ((#{tmp\ 2363}#
+ #{rkey\ 4452}#)))))
+ #{tmp\ 4459}#)
+ (let ((#{tmp\ 4472}#
($sc-dispatch
- #{tmp\ 2348}#
+ #{tmp\ 4457}#
'((any any) . any))))
- (if (if #{tmp\ 2363}#
+ (if (if #{tmp\ 4472}#
(@apply
- (lambda (#{a\ 2367}#
- #{init\ 2368}#
- #{b\ 2369}#)
- (#{id?\ 387}# #{a\ 2367}#))
- #{tmp\ 2363}#)
+ (lambda (#{a\ 4476}#
+ #{init\ 4477}#
+ #{b\ 4478}#)
+ (#{id?\ 2496}# #{a\ 4476}#))
+ #{tmp\ 4472}#)
#f)
(@apply
- (lambda (#{a\ 2373}#
- #{init\ 2374}#
- #{b\ 2375}#)
- (let ((#{tmp\ 2377}#
+ (lambda (#{a\ 4482}#
+ #{init\ 4483}#
+ #{b\ 4484}#)
+ (let ((#{tmp\ 4486}#
(symbol->keyword
- (syntax->datum #{a\ 2373}#))))
- (let ((#{k\ 2379}# #{tmp\ 2377}#))
- (#{key\ 2231}#
- #{b\ 2375}#
- #{req\ 2341}#
- #{opt\ 2342}#
- (cons (list #{k\ 2379}#
- #{a\ 2373}#
- #{init\ 2374}#)
- #{rkey\ 2343}#)))))
- #{tmp\ 2363}#)
- (let ((#{tmp\ 2380}#
+ (syntax->datum #{a\ 4482}#))))
+ (let ((#{k\ 4488}# #{tmp\ 4486}#))
+ (#{key\ 4340}#
+ #{b\ 4484}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
+ (cons (list #{k\ 4488}#
+ #{a\ 4482}#
+ #{init\ 4483}#)
+ #{rkey\ 4452}#)))))
+ #{tmp\ 4472}#)
+ (let ((#{tmp\ 4489}#
($sc-dispatch
- #{tmp\ 2348}#
+ #{tmp\ 4457}#
'((any any any) . any))))
- (if (if #{tmp\ 2380}#
+ (if (if #{tmp\ 4489}#
(@apply
- (lambda (#{a\ 2385}#
- #{init\ 2386}#
- #{k\ 2387}#
- #{b\ 2388}#)
- (if (#{id?\ 387}# #{a\ 2385}#)
+ (lambda (#{a\ 4494}#
+ #{init\ 4495}#
+ #{k\ 4496}#
+ #{b\ 4497}#)
+ (if (#{id?\ 2496}# #{a\ 4494}#)
(keyword?
- (syntax->datum #{k\ 2387}#))
+ (syntax->datum #{k\ 4496}#))
#f))
- #{tmp\ 2380}#)
+ #{tmp\ 4489}#)
#f)
(@apply
- (lambda (#{a\ 2395}#
- #{init\ 2396}#
- #{k\ 2397}#
- #{b\ 2398}#)
- (#{key\ 2231}#
- #{b\ 2398}#
- #{req\ 2341}#
- #{opt\ 2342}#
- (cons (list #{k\ 2397}#
- #{a\ 2395}#
- #{init\ 2396}#)
- #{rkey\ 2343}#)))
- #{tmp\ 2380}#)
- (let ((#{tmp\ 2399}#
+ (lambda (#{a\ 4504}#
+ #{init\ 4505}#
+ #{k\ 4506}#
+ #{b\ 4507}#)
+ (#{key\ 4340}#
+ #{b\ 4507}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
+ (cons (list #{k\ 4506}#
+ #{a\ 4504}#
+ #{init\ 4505}#)
+ #{rkey\ 4452}#)))
+ #{tmp\ 4489}#)
+ (let ((#{tmp\ 4508}#
($sc-dispatch
- #{tmp\ 2348}#
+ #{tmp\ 4457}#
'(any))))
- (if (if #{tmp\ 2399}#
+ (if (if #{tmp\ 4508}#
(@apply
- (lambda (#{aok\ 2401}#)
+ (lambda (#{aok\ 4510}#)
(eq? (syntax->datum
- #{aok\ 2401}#)
+ #{aok\ 4510}#)
#:allow-other-keys))
- #{tmp\ 2399}#)
+ #{tmp\ 4508}#)
#f)
(@apply
- (lambda (#{aok\ 2403}#)
- (#{check\ 2235}#
- #{req\ 2341}#
- #{opt\ 2342}#
+ (lambda (#{aok\ 4512}#)
+ (#{check\ 4344}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
#f
(cons #t
(reverse
- #{rkey\ 2343}#))))
- #{tmp\ 2399}#)
- (let ((#{tmp\ 2404}#
+ #{rkey\ 4452}#))))
+ #{tmp\ 4508}#)
+ (let ((#{tmp\ 4513}#
($sc-dispatch
- #{tmp\ 2348}#
+ #{tmp\ 4457}#
'(any any any))))
- (if (if #{tmp\ 2404}#
+ (if (if #{tmp\ 4513}#
(@apply
- (lambda (#{aok\ 2408}#
- #{a\ 2409}#
- #{b\ 2410}#)
+ (lambda (#{aok\ 4517}#
+ #{a\ 4518}#
+ #{b\ 4519}#)
(if (eq? (syntax->datum
- #{aok\ 2408}#)
+ #{aok\ 4517}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 2409}#)
+ #{a\ 4518}#)
#:rest)
#f))
- #{tmp\ 2404}#)
+ #{tmp\ 4513}#)
#f)
(@apply
- (lambda (#{aok\ 2416}#
- #{a\ 2417}#
- #{b\ 2418}#)
- (#{rest\ 2233}#
- #{b\ 2418}#
- #{req\ 2341}#
- #{opt\ 2342}#
+ (lambda (#{aok\ 4525}#
+ #{a\ 4526}#
+ #{b\ 4527}#)
+ (#{rest\ 4342}#
+ #{b\ 4527}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
(cons #t
(reverse
- #{rkey\ 2343}#))))
- #{tmp\ 2404}#)
- (let ((#{tmp\ 2419}#
+ #{rkey\ 4452}#))))
+ #{tmp\ 4513}#)
+ (let ((#{tmp\ 4528}#
($sc-dispatch
- #{tmp\ 2348}#
+ #{tmp\ 4457}#
'(any . any))))
- (if (if #{tmp\ 2419}#
+ (if (if #{tmp\ 4528}#
(@apply
- (lambda (#{aok\ 2422}#
- #{r\ 2423}#)
+ (lambda (#{aok\ 4531}#
+ #{r\ 4532}#)
(if (eq?
(syntax->datum
- #{aok\
2422}#)
+ #{aok\
4531}#)
#:allow-other-keys)
- (#{id?\ 387}#
- #{r\ 2423}#)
+ (#{id?\ 2496}#
+ #{r\ 4532}#)
#f))
- #{tmp\ 2419}#)
+ #{tmp\ 4528}#)
#f)
(@apply
- (lambda (#{aok\ 2428}#
- #{r\ 2429}#)
- (#{rest\ 2233}#
- #{r\ 2429}#
- #{req\ 2341}#
- #{opt\ 2342}#
+ (lambda (#{aok\ 4537}#
+ #{r\ 4538}#)
+ (#{rest\ 4342}#
+ #{r\ 4538}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
(cons #t
(reverse
- #{rkey\
2343}#))))
- #{tmp\ 2419}#)
- (let ((#{tmp\ 2430}#
+ #{rkey\
4452}#))))
+ #{tmp\ 4528}#)
+ (let ((#{tmp\ 4539}#
($sc-dispatch
- #{tmp\ 2348}#
+ #{tmp\ 4457}#
'(any any))))
- (if (if #{tmp\ 2430}#
+ (if (if #{tmp\ 4539}#
(@apply
- (lambda (#{a\
2433}#
- #{b\
2434}#)
+ (lambda (#{a\
4542}#
+ #{b\
4543}#)
(eq?
(syntax->datum
- #{a\
2433}#)
+ #{a\
4542}#)
#:rest))
- #{tmp\ 2430}#)
+ #{tmp\ 4539}#)
#f)
(@apply
- (lambda (#{a\ 2437}#
- #{b\ 2438}#)
- (#{rest\ 2233}#
- #{b\ 2438}#
- #{req\ 2341}#
- #{opt\ 2342}#
+ (lambda (#{a\ 4546}#
+ #{b\ 4547}#)
+ (#{rest\ 4342}#
+ #{b\ 4547}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
(cons #f
(reverse
- #{rkey\
2343}#))))
- #{tmp\ 2430}#)
- (let ((#{tmp\ 2439}#
- (list #{tmp\
2348}#)))
- (if (if #{tmp\ 2439}#
+ #{rkey\
4452}#))))
+ #{tmp\ 4539}#)
+ (let ((#{tmp\ 4548}#
+ (list #{tmp\
4457}#)))
+ (if (if #{tmp\ 4548}#
(@apply
- (lambda (#{r\
2441}#)
- (#{id?\ 387}#
- #{r\
2441}#))
- #{tmp\ 2439}#)
+ (lambda (#{r\
4550}#)
+ (#{id?\
2496}#
+ #{r\
4550}#))
+ #{tmp\ 4548}#)
#f)
(@apply
- (lambda (#{r\
2443}#)
- (#{rest\ 2233}#
- #{r\ 2443}#
- #{req\ 2341}#
- #{opt\ 2342}#
+ (lambda (#{r\
4552}#)
+ (#{rest\ 4342}#
+ #{r\ 4552}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
(cons #f
(reverse
-
#{rkey\ 2343}#))))
- #{tmp\ 2439}#)
- (let ((#{else\ 2445}#
- #{tmp\
2348}#))
+
#{rkey\ 4452}#))))
+ #{tmp\ 4548}#)
+ (let ((#{else\ 4554}#
+ #{tmp\
4457}#))
(syntax-violation
'lambda*
"invalid keyword
argument list"
- #{orig-args\
2224}#
- #{args\
2340}#)))))))))))))))))))))))
- (#{rest\ 2233}#
- (lambda (#{args\ 2446}#
- #{req\ 2447}#
- #{opt\ 2448}#
- #{kw\ 2449}#)
- (let ((#{tmp\ 2454}# #{args\ 2446}#))
- (let ((#{tmp\ 2455}# (list #{tmp\ 2454}#)))
- (if (if #{tmp\ 2455}#
+ #{orig-args\
4333}#
+ #{args\
4449}#)))))))))))))))))))))))
+ (#{rest\ 4342}#
+ (lambda (#{args\ 4555}#
+ #{req\ 4556}#
+ #{opt\ 4557}#
+ #{kw\ 4558}#)
+ (let ((#{tmp\ 4563}# #{args\ 4555}#))
+ (let ((#{tmp\ 4564}# (list #{tmp\ 4563}#)))
+ (if (if #{tmp\ 4564}#
(@apply
- (lambda (#{r\ 2457}#)
- (#{id?\ 387}# #{r\ 2457}#))
- #{tmp\ 2455}#)
+ (lambda (#{r\ 4566}#)
+ (#{id?\ 2496}# #{r\ 4566}#))
+ #{tmp\ 4564}#)
#f)
(@apply
- (lambda (#{r\ 2459}#)
- (#{check\ 2235}#
- #{req\ 2447}#
- #{opt\ 2448}#
- #{r\ 2459}#
- #{kw\ 2449}#))
- #{tmp\ 2455}#)
- (let ((#{else\ 2461}# #{tmp\ 2454}#))
+ (lambda (#{r\ 4568}#)
+ (#{check\ 4344}#
+ #{req\ 4556}#
+ #{opt\ 4557}#
+ #{r\ 4568}#
+ #{kw\ 4558}#))
+ #{tmp\ 4564}#)
+ (let ((#{else\ 4570}# #{tmp\ 4563}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 2224}#
- #{args\ 2446}#)))))))
- (#{check\ 2235}#
- (lambda (#{req\ 2462}#
- #{opt\ 2463}#
- #{rest\ 2464}#
- #{kw\ 2465}#)
- (if (#{distinct-bound-ids?\ 452}#
+ #{orig-args\ 4333}#
+ #{args\ 4555}#)))))))
+ (#{check\ 4344}#
+ (lambda (#{req\ 4571}#
+ #{opt\ 4572}#
+ #{rest\ 4573}#
+ #{kw\ 4574}#)
+ (if (#{distinct-bound-ids?\ 2561}#
(append
- #{req\ 2462}#
- (map car #{opt\ 2463}#)
- (if #{rest\ 2464}#
- (list #{rest\ 2464}#)
+ #{req\ 4571}#
+ (map car #{opt\ 4572}#)
+ (if #{rest\ 4573}#
+ (list #{rest\ 4573}#)
'())
- (if (pair? #{kw\ 2465}#)
- (map cadr (cdr #{kw\ 2465}#))
+ (if (pair? #{kw\ 4574}#)
+ (map cadr (cdr #{kw\ 4574}#))
'())))
(values
- #{req\ 2462}#
- #{opt\ 2463}#
- #{rest\ 2464}#
- #{kw\ 2465}#)
+ #{req\ 4571}#
+ #{opt\ 4572}#
+ #{rest\ 4573}#
+ #{kw\ 4574}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 2224}#)))))
+ #{orig-args\ 4333}#)))))
(begin
- (#{req\ 2227}# #{orig-args\ 2224}# (quote ()))))))
- (#{chi-lambda-case\ 496}#
- (lambda (#{e\ 2473}#
- #{r\ 2474}#
- #{w\ 2475}#
- #{s\ 2476}#
- #{mod\ 2477}#
- #{get-formals\ 2478}#
- #{clauses\ 2479}#)
+ (#{req\ 4336}# #{orig-args\ 4333}# (quote ()))))))
+ (#{chi-lambda-case\ 2605}#
+ (lambda (#{e\ 4582}#
+ #{r\ 4583}#
+ #{w\ 4584}#
+ #{s\ 4585}#
+ #{mod\ 4586}#
+ #{get-formals\ 4587}#
+ #{clauses\ 4588}#)
(letrec*
- ((#{expand-req\ 2488}#
- (lambda (#{req\ 2495}#
- #{opt\ 2496}#
- #{rest\ 2497}#
- #{kw\ 2498}#
- #{body\ 2499}#)
+ ((#{expand-req\ 4597}#
+ (lambda (#{req\ 4604}#
+ #{opt\ 4605}#
+ #{rest\ 4606}#
+ #{kw\ 4607}#
+ #{body\ 4608}#)
(begin
- (let ((#{vars\ 2507}#
- (map #{gen-var\ 500}# #{req\ 2495}#))
- (#{labels\ 2508}#
- (#{gen-labels\ 405}# #{req\ 2495}#)))
+ (let ((#{vars\ 4616}#
+ (map #{gen-var\ 2609}# #{req\ 4604}#))
+ (#{labels\ 4617}#
+ (#{gen-labels\ 2514}# #{req\ 4604}#)))
(begin
- (let ((#{r*\ 2511}#
- (#{extend-var-env\ 377}#
- #{labels\ 2508}#
- #{vars\ 2507}#
- #{r\ 2474}#))
- (#{w*\ 2512}#
- (#{make-binding-wrap\ 434}#
- #{req\ 2495}#
- #{labels\ 2508}#
- #{w\ 2475}#)))
- (#{expand-opt\ 2490}#
- (map syntax->datum #{req\ 2495}#)
- #{opt\ 2496}#
- #{rest\ 2497}#
- #{kw\ 2498}#
- #{body\ 2499}#
- (reverse #{vars\ 2507}#)
- #{r*\ 2511}#
- #{w*\ 2512}#
+ (let ((#{r*\ 4620}#
+ (#{extend-var-env\ 2486}#
+ #{labels\ 4617}#
+ #{vars\ 4616}#
+ #{r\ 4583}#))
+ (#{w*\ 4621}#
+ (#{make-binding-wrap\ 2543}#
+ #{req\ 4604}#
+ #{labels\ 4617}#
+ #{w\ 4584}#)))
+ (#{expand-opt\ 4599}#
+ (map syntax->datum #{req\ 4604}#)
+ #{opt\ 4605}#
+ #{rest\ 4606}#
+ #{kw\ 4607}#
+ #{body\ 4608}#
+ (reverse #{vars\ 4616}#)
+ #{r*\ 4620}#
+ #{w*\ 4621}#
'()
'())))))))
- (#{expand-opt\ 2490}#
- (lambda (#{req\ 2513}#
- #{opt\ 2514}#
- #{rest\ 2515}#
- #{kw\ 2516}#
- #{body\ 2517}#
- #{vars\ 2518}#
- #{r*\ 2519}#
- #{w*\ 2520}#
- #{out\ 2521}#
- #{inits\ 2522}#)
- (if (pair? #{opt\ 2514}#)
- (let ((#{tmp\ 2535}# (car #{opt\ 2514}#)))
- (let ((#{tmp\ 2536}#
+ (#{expand-opt\ 4599}#
+ (lambda (#{req\ 4622}#
+ #{opt\ 4623}#
+ #{rest\ 4624}#
+ #{kw\ 4625}#
+ #{body\ 4626}#
+ #{vars\ 4627}#
+ #{r*\ 4628}#
+ #{w*\ 4629}#
+ #{out\ 4630}#
+ #{inits\ 4631}#)
+ (if (pair? #{opt\ 4623}#)
+ (let ((#{tmp\ 4644}# (car #{opt\ 4623}#)))
+ (let ((#{tmp\ 4645}#
($sc-dispatch
- #{tmp\ 2535}#
+ #{tmp\ 4644}#
'(any any))))
- (if #{tmp\ 2536}#
+ (if #{tmp\ 4645}#
(@apply
- (lambda (#{id\ 2539}# #{i\ 2540}#)
+ (lambda (#{id\ 4648}# #{i\ 4649}#)
(begin
- (let ((#{v\ 2543}#
- (#{gen-var\ 500}# #{id\ 2539}#)))
+ (let ((#{v\ 4652}#
+ (#{gen-var\ 2609}# #{id\ 4648}#)))
(begin
- (let ((#{l\ 2545}#
- (#{gen-labels\ 405}#
- (list #{v\ 2543}#))))
+ (let ((#{l\ 4654}#
+ (#{gen-labels\ 2514}#
+ (list #{v\ 4652}#))))
(begin
- (let ((#{r**\ 2547}#
- (#{extend-var-env\ 377}#
- #{l\ 2545}#
- (list #{v\ 2543}#)
- #{r*\ 2519}#)))
+ (let ((#{r**\ 4656}#
+ (#{extend-var-env\ 2486}#
+ #{l\ 4654}#
+ (list #{v\ 4652}#)
+ #{r*\ 4628}#)))
(begin
- (let ((#{w**\ 2549}#
- (#{make-binding-wrap\
434}#
- (list #{id\ 2539}#)
- #{l\ 2545}#
- #{w*\ 2520}#)))
- (#{expand-opt\ 2490}#
- #{req\ 2513}#
- (cdr #{opt\ 2514}#)
- #{rest\ 2515}#
- #{kw\ 2516}#
- #{body\ 2517}#
- (cons #{v\ 2543}#
- #{vars\ 2518}#)
- #{r**\ 2547}#
- #{w**\ 2549}#
+ (let ((#{w**\ 4658}#
+ (#{make-binding-wrap\
2543}#
+ (list #{id\ 4648}#)
+ #{l\ 4654}#
+ #{w*\ 4629}#)))
+ (#{expand-opt\ 4599}#
+ #{req\ 4622}#
+ (cdr #{opt\ 4623}#)
+ #{rest\ 4624}#
+ #{kw\ 4625}#
+ #{body\ 4626}#
+ (cons #{v\ 4652}#
+ #{vars\ 4627}#)
+ #{r**\ 4656}#
+ #{w**\ 4658}#
(cons (syntax->datum
- #{id\ 2539}#)
- #{out\ 2521}#)
- (cons (#{chi\ 472}#
- #{i\ 2540}#
- #{r*\ 2519}#
- #{w*\ 2520}#
- #{mod\ 2477}#)
- #{inits\
2522}#)))))))))))
- #{tmp\ 2536}#)
+ #{id\ 4648}#)
+ #{out\ 4630}#)
+ (cons (#{chi\ 2581}#
+ #{i\ 4649}#
+ #{r*\ 4628}#
+ #{w*\ 4629}#
+ #{mod\ 4586}#)
+ #{inits\
4631}#)))))))))))
+ #{tmp\ 4645}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2535}#))))
- (if #{rest\ 2515}#
+ #{tmp\ 4644}#))))
+ (if #{rest\ 4624}#
(begin
- (let ((#{v\ 2554}#
- (#{gen-var\ 500}# #{rest\ 2515}#)))
+ (let ((#{v\ 4663}#
+ (#{gen-var\ 2609}# #{rest\ 4624}#)))
(begin
- (let ((#{l\ 2556}#
- (#{gen-labels\ 405}#
- (list #{v\ 2554}#))))
+ (let ((#{l\ 4665}#
+ (#{gen-labels\ 2514}#
+ (list #{v\ 4663}#))))
(begin
- (let ((#{r*\ 2558}#
- (#{extend-var-env\ 377}#
- #{l\ 2556}#
- (list #{v\ 2554}#)
- #{r*\ 2519}#)))
+ (let ((#{r*\ 4667}#
+ (#{extend-var-env\ 2486}#
+ #{l\ 4665}#
+ (list #{v\ 4663}#)
+ #{r*\ 4628}#)))
(begin
- (let ((#{w*\ 2560}#
- (#{make-binding-wrap\ 434}#
- (list #{rest\ 2515}#)
- #{l\ 2556}#
- #{w*\ 2520}#)))
- (#{expand-kw\ 2492}#
- #{req\ 2513}#
- (if (pair? #{out\ 2521}#)
- (reverse #{out\ 2521}#)
+ (let ((#{w*\ 4669}#
+ (#{make-binding-wrap\ 2543}#
+ (list #{rest\ 4624}#)
+ #{l\ 4665}#
+ #{w*\ 4629}#)))
+ (#{expand-kw\ 4601}#
+ #{req\ 4622}#
+ (if (pair? #{out\ 4630}#)
+ (reverse #{out\ 4630}#)
#f)
- (syntax->datum #{rest\ 2515}#)
- (if (pair? #{kw\ 2516}#)
- (cdr #{kw\ 2516}#)
- #{kw\ 2516}#)
- #{body\ 2517}#
- (cons #{v\ 2554}# #{vars\ 2518}#)
- #{r*\ 2558}#
- #{w*\ 2560}#
- (if (pair? #{kw\ 2516}#)
- (car #{kw\ 2516}#)
+ (syntax->datum #{rest\ 4624}#)
+ (if (pair? #{kw\ 4625}#)
+ (cdr #{kw\ 4625}#)
+ #{kw\ 4625}#)
+ #{body\ 4626}#
+ (cons #{v\ 4663}# #{vars\ 4627}#)
+ #{r*\ 4667}#
+ #{w*\ 4669}#
+ (if (pair? #{kw\ 4625}#)
+ (car #{kw\ 4625}#)
#f)
'()
- #{inits\ 2522}#)))))))))
- (#{expand-kw\ 2492}#
- #{req\ 2513}#
- (if (pair? #{out\ 2521}#)
- (reverse #{out\ 2521}#)
+ #{inits\ 4631}#)))))))))
+ (#{expand-kw\ 4601}#
+ #{req\ 4622}#
+ (if (pair? #{out\ 4630}#)
+ (reverse #{out\ 4630}#)
#f)
#f
- (if (pair? #{kw\ 2516}#)
- (cdr #{kw\ 2516}#)
- #{kw\ 2516}#)
- #{body\ 2517}#
- #{vars\ 2518}#
- #{r*\ 2519}#
- #{w*\ 2520}#
- (if (pair? #{kw\ 2516}#) (car #{kw\ 2516}#) #f)
+ (if (pair? #{kw\ 4625}#)
+ (cdr #{kw\ 4625}#)
+ #{kw\ 4625}#)
+ #{body\ 4626}#
+ #{vars\ 4627}#
+ #{r*\ 4628}#
+ #{w*\ 4629}#
+ (if (pair? #{kw\ 4625}#) (car #{kw\ 4625}#) #f)
'()
- #{inits\ 2522}#)))))
- (#{expand-kw\ 2492}#
- (lambda (#{req\ 2562}#
- #{opt\ 2563}#
- #{rest\ 2564}#
- #{kw\ 2565}#
- #{body\ 2566}#
- #{vars\ 2567}#
- #{r*\ 2568}#
- #{w*\ 2569}#
- #{aok\ 2570}#
- #{out\ 2571}#
- #{inits\ 2572}#)
- (if (pair? #{kw\ 2565}#)
- (let ((#{tmp\ 2586}# (car #{kw\ 2565}#)))
- (let ((#{tmp\ 2587}#
+ #{inits\ 4631}#)))))
+ (#{expand-kw\ 4601}#
+ (lambda (#{req\ 4671}#
+ #{opt\ 4672}#
+ #{rest\ 4673}#
+ #{kw\ 4674}#
+ #{body\ 4675}#
+ #{vars\ 4676}#
+ #{r*\ 4677}#
+ #{w*\ 4678}#
+ #{aok\ 4679}#
+ #{out\ 4680}#
+ #{inits\ 4681}#)
+ (if (pair? #{kw\ 4674}#)
+ (let ((#{tmp\ 4695}# (car #{kw\ 4674}#)))
+ (let ((#{tmp\ 4696}#
($sc-dispatch
- #{tmp\ 2586}#
+ #{tmp\ 4695}#
'(any any any))))
- (if #{tmp\ 2587}#
+ (if #{tmp\ 4696}#
(@apply
- (lambda (#{k\ 2591}# #{id\ 2592}# #{i\ 2593}#)
+ (lambda (#{k\ 4700}# #{id\ 4701}# #{i\ 4702}#)
(begin
- (let ((#{v\ 2596}#
- (#{gen-var\ 500}# #{id\ 2592}#)))
+ (let ((#{v\ 4705}#
+ (#{gen-var\ 2609}# #{id\ 4701}#)))
(begin
- (let ((#{l\ 2598}#
- (#{gen-labels\ 405}#
- (list #{v\ 2596}#))))
+ (let ((#{l\ 4707}#
+ (#{gen-labels\ 2514}#
+ (list #{v\ 4705}#))))
(begin
- (let ((#{r**\ 2600}#
- (#{extend-var-env\ 377}#
- #{l\ 2598}#
- (list #{v\ 2596}#)
- #{r*\ 2568}#)))
+ (let ((#{r**\ 4709}#
+ (#{extend-var-env\ 2486}#
+ #{l\ 4707}#
+ (list #{v\ 4705}#)
+ #{r*\ 4677}#)))
(begin
- (let ((#{w**\ 2602}#
- (#{make-binding-wrap\
434}#
- (list #{id\ 2592}#)
- #{l\ 2598}#
- #{w*\ 2569}#)))
- (#{expand-kw\ 2492}#
- #{req\ 2562}#
- #{opt\ 2563}#
- #{rest\ 2564}#
- (cdr #{kw\ 2565}#)
- #{body\ 2566}#
- (cons #{v\ 2596}#
- #{vars\ 2567}#)
- #{r**\ 2600}#
- #{w**\ 2602}#
- #{aok\ 2570}#
+ (let ((#{w**\ 4711}#
+ (#{make-binding-wrap\
2543}#
+ (list #{id\ 4701}#)
+ #{l\ 4707}#
+ #{w*\ 4678}#)))
+ (#{expand-kw\ 4601}#
+ #{req\ 4671}#
+ #{opt\ 4672}#
+ #{rest\ 4673}#
+ (cdr #{kw\ 4674}#)
+ #{body\ 4675}#
+ (cons #{v\ 4705}#
+ #{vars\ 4676}#)
+ #{r**\ 4709}#
+ #{w**\ 4711}#
+ #{aok\ 4679}#
(cons (list (syntax->datum
- #{k\ 2591}#)
+ #{k\ 4700}#)
(syntax->datum
- #{id\ 2592}#)
- #{v\ 2596}#)
- #{out\ 2571}#)
- (cons (#{chi\ 472}#
- #{i\ 2593}#
- #{r*\ 2568}#
- #{w*\ 2569}#
- #{mod\ 2477}#)
- #{inits\
2572}#)))))))))))
- #{tmp\ 2587}#)
+ #{id\ 4701}#)
+ #{v\ 4705}#)
+ #{out\ 4680}#)
+ (cons (#{chi\ 2581}#
+ #{i\ 4702}#
+ #{r*\ 4677}#
+ #{w*\ 4678}#
+ #{mod\ 4586}#)
+ #{inits\
4681}#)))))))))))
+ #{tmp\ 4696}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2586}#))))
- (#{expand-body\ 2494}#
- #{req\ 2562}#
- #{opt\ 2563}#
- #{rest\ 2564}#
+ #{tmp\ 4695}#))))
+ (#{expand-body\ 4603}#
+ #{req\ 4671}#
+ #{opt\ 4672}#
+ #{rest\ 4673}#
(if (begin
- (let ((#{t\ 2606}# #{aok\ 2570}#))
- (if #{t\ 2606}#
- #{t\ 2606}#
- (pair? #{out\ 2571}#))))
- (cons #{aok\ 2570}# (reverse #{out\ 2571}#))
+ (let ((#{t\ 4715}# #{aok\ 4679}#))
+ (if #{t\ 4715}#
+ #{t\ 4715}#
+ (pair? #{out\ 4680}#))))
+ (cons #{aok\ 4679}# (reverse #{out\ 4680}#))
#f)
- #{body\ 2566}#
- (reverse #{vars\ 2567}#)
- #{r*\ 2568}#
- #{w*\ 2569}#
- (reverse #{inits\ 2572}#)
+ #{body\ 4675}#
+ (reverse #{vars\ 4676}#)
+ #{r*\ 4677}#
+ #{w*\ 4678}#
+ (reverse #{inits\ 4681}#)
'()))))
- (#{expand-body\ 2494}#
- (lambda (#{req\ 2608}#
- #{opt\ 2609}#
- #{rest\ 2610}#
- #{kw\ 2611}#
- #{body\ 2612}#
- #{vars\ 2613}#
- #{r*\ 2614}#
- #{w*\ 2615}#
- #{inits\ 2616}#
- #{meta\ 2617}#)
- (let ((#{tmp\ 2628}# #{body\ 2612}#))
- (let ((#{tmp\ 2629}#
+ (#{expand-body\ 4603}#
+ (lambda (#{req\ 4717}#
+ #{opt\ 4718}#
+ #{rest\ 4719}#
+ #{kw\ 4720}#
+ #{body\ 4721}#
+ #{vars\ 4722}#
+ #{r*\ 4723}#
+ #{w*\ 4724}#
+ #{inits\ 4725}#
+ #{meta\ 4726}#)
+ (let ((#{tmp\ 4737}# #{body\ 4721}#))
+ (let ((#{tmp\ 4738}#
($sc-dispatch
- #{tmp\ 2628}#
+ #{tmp\ 4737}#
'(any any . each-any))))
- (if (if #{tmp\ 2629}#
+ (if (if #{tmp\ 4738}#
(@apply
- (lambda (#{docstring\ 2633}#
- #{e1\ 2634}#
- #{e2\ 2635}#)
+ (lambda (#{docstring\ 4742}#
+ #{e1\ 4743}#
+ #{e2\ 4744}#)
(string?
- (syntax->datum #{docstring\ 2633}#)))
- #{tmp\ 2629}#)
+ (syntax->datum #{docstring\ 4742}#)))
+ #{tmp\ 4738}#)
#f)
(@apply
- (lambda (#{docstring\ 2639}#
- #{e1\ 2640}#
- #{e2\ 2641}#)
- (#{expand-body\ 2494}#
- #{req\ 2608}#
- #{opt\ 2609}#
- #{rest\ 2610}#
- #{kw\ 2611}#
- (cons #{e1\ 2640}# #{e2\ 2641}#)
- #{vars\ 2613}#
- #{r*\ 2614}#
- #{w*\ 2615}#
- #{inits\ 2616}#
+ (lambda (#{docstring\ 4748}#
+ #{e1\ 4749}#
+ #{e2\ 4750}#)
+ (#{expand-body\ 4603}#
+ #{req\ 4717}#
+ #{opt\ 4718}#
+ #{rest\ 4719}#
+ #{kw\ 4720}#
+ (cons #{e1\ 4749}# #{e2\ 4750}#)
+ #{vars\ 4722}#
+ #{r*\ 4723}#
+ #{w*\ 4724}#
+ #{inits\ 4725}#
(append
- #{meta\ 2617}#
+ #{meta\ 4726}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 2639}#))))))
- #{tmp\ 2629}#)
- (let ((#{tmp\ 2644}#
+ #{docstring\ 4748}#))))))
+ #{tmp\ 4738}#)
+ (let ((#{tmp\ 4753}#
($sc-dispatch
- #{tmp\ 2628}#
+ #{tmp\ 4737}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 2644}#
+ (if #{tmp\ 4753}#
(@apply
- (lambda (#{k\ 2649}#
- #{v\ 2650}#
- #{e1\ 2651}#
- #{e2\ 2652}#)
- (#{expand-body\ 2494}#
- #{req\ 2608}#
- #{opt\ 2609}#
- #{rest\ 2610}#
- #{kw\ 2611}#
- (cons #{e1\ 2651}# #{e2\ 2652}#)
- #{vars\ 2613}#
- #{r*\ 2614}#
- #{w*\ 2615}#
- #{inits\ 2616}#
+ (lambda (#{k\ 4758}#
+ #{v\ 4759}#
+ #{e1\ 4760}#
+ #{e2\ 4761}#)
+ (#{expand-body\ 4603}#
+ #{req\ 4717}#
+ #{opt\ 4718}#
+ #{rest\ 4719}#
+ #{kw\ 4720}#
+ (cons #{e1\ 4760}# #{e2\ 4761}#)
+ #{vars\ 4722}#
+ #{r*\ 4723}#
+ #{w*\ 4724}#
+ #{inits\ 4725}#
(append
- #{meta\ 2617}#
+ #{meta\ 4726}#
(syntax->datum
- (map cons #{k\ 2649}# #{v\ 2650}#)))))
- #{tmp\ 2644}#)
- (let ((#{tmp\ 2656}#
+ (map cons #{k\ 4758}# #{v\ 4759}#)))))
+ #{tmp\ 4753}#)
+ (let ((#{tmp\ 4765}#
($sc-dispatch
- #{tmp\ 2628}#
+ #{tmp\ 4737}#
'(any . each-any))))
- (if #{tmp\ 2656}#
+ (if #{tmp\ 4765}#
(@apply
- (lambda (#{e1\ 2659}# #{e2\ 2660}#)
+ (lambda (#{e1\ 4768}# #{e2\ 4769}#)
(values
- #{meta\ 2617}#
- #{req\ 2608}#
- #{opt\ 2609}#
- #{rest\ 2610}#
- #{kw\ 2611}#
- #{inits\ 2616}#
- #{vars\ 2613}#
- (#{chi-body\ 480}#
- (cons #{e1\ 2659}# #{e2\ 2660}#)
- (#{source-wrap\ 458}#
- #{e\ 2473}#
- #{w\ 2475}#
- #{s\ 2476}#
- #{mod\ 2477}#)
- #{r*\ 2614}#
- #{w*\ 2615}#
- #{mod\ 2477}#)))
- #{tmp\ 2656}#)
+ #{meta\ 4726}#
+ #{req\ 4717}#
+ #{opt\ 4718}#
+ #{rest\ 4719}#
+ #{kw\ 4720}#
+ #{inits\ 4725}#
+ #{vars\ 4722}#
+ (#{chi-body\ 2589}#
+ (cons #{e1\ 4768}# #{e2\ 4769}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 4582}#
+ #{w\ 4584}#
+ #{s\ 4585}#
+ #{mod\ 4586}#)
+ #{r*\ 4723}#
+ #{w*\ 4724}#
+ #{mod\ 4586}#)))
+ #{tmp\ 4765}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 2628}#)))))))))))
+ #{tmp\ 4737}#)))))))))))
(begin
- (let ((#{tmp\ 2662}# #{clauses\ 2479}#))
- (let ((#{tmp\ 2663}#
- ($sc-dispatch #{tmp\ 2662}# (quote ()))))
- (if #{tmp\ 2663}#
+ (let ((#{tmp\ 4771}# #{clauses\ 4588}#))
+ (let ((#{tmp\ 4772}#
+ ($sc-dispatch #{tmp\ 4771}# (quote ()))))
+ (if #{tmp\ 4772}#
(@apply
(lambda () (values (quote ()) #f))
- #{tmp\ 2663}#)
- (let ((#{tmp\ 2664}#
+ #{tmp\ 4772}#)
+ (let ((#{tmp\ 4773}#
($sc-dispatch
- #{tmp\ 2662}#
+ #{tmp\ 4771}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 2664}#
+ (if #{tmp\ 4773}#
(@apply
- (lambda (#{args\ 2671}#
- #{e1\ 2672}#
- #{e2\ 2673}#
- #{args*\ 2674}#
- #{e1*\ 2675}#
- #{e2*\ 2676}#)
+ (lambda (#{args\ 4780}#
+ #{e1\ 4781}#
+ #{e2\ 4782}#
+ #{args*\ 4783}#
+ #{e1*\ 4784}#
+ #{e2*\ 4785}#)
(call-with-values
(lambda ()
- (#{get-formals\ 2478}# #{args\ 2671}#))
- (lambda (#{req\ 2677}#
- #{opt\ 2678}#
- #{rest\ 2679}#
- #{kw\ 2680}#)
+ (#{get-formals\ 4587}# #{args\ 4780}#))
+ (lambda (#{req\ 4786}#
+ #{opt\ 4787}#
+ #{rest\ 4788}#
+ #{kw\ 4789}#)
(call-with-values
(lambda ()
- (#{expand-req\ 2488}#
- #{req\ 2677}#
- #{opt\ 2678}#
- #{rest\ 2679}#
- #{kw\ 2680}#
- (cons #{e1\ 2672}# #{e2\ 2673}#)))
- (lambda (#{meta\ 2686}#
- #{req\ 2687}#
- #{opt\ 2688}#
- #{rest\ 2689}#
- #{kw\ 2690}#
- #{inits\ 2691}#
- #{vars\ 2692}#
- #{body\ 2693}#)
+ (#{expand-req\ 4597}#
+ #{req\ 4786}#
+ #{opt\ 4787}#
+ #{rest\ 4788}#
+ #{kw\ 4789}#
+ (cons #{e1\ 4781}# #{e2\ 4782}#)))
+ (lambda (#{meta\ 4795}#
+ #{req\ 4796}#
+ #{opt\ 4797}#
+ #{rest\ 4798}#
+ #{kw\ 4799}#
+ #{inits\ 4800}#
+ #{vars\ 4801}#
+ #{body\ 4802}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 496}#
- #{e\ 2473}#
- #{r\ 2474}#
- #{w\ 2475}#
- #{s\ 2476}#
- #{mod\ 2477}#
- #{get-formals\ 2478}#
- (map (lambda (#{tmp\ 2704}#
- #{tmp\ 2703}#
- #{tmp\ 2702}#)
- (cons #{tmp\ 2702}#
- (cons #{tmp\ 2703}#
- #{tmp\
2704}#)))
- #{e2*\ 2676}#
- #{e1*\ 2675}#
- #{args*\ 2674}#)))
- (lambda (#{meta*\ 2706}#
- #{else*\ 2707}#)
+ (#{chi-lambda-case\ 2605}#
+ #{e\ 4582}#
+ #{r\ 4583}#
+ #{w\ 4584}#
+ #{s\ 4585}#
+ #{mod\ 4586}#
+ #{get-formals\ 4587}#
+ (map (lambda (#{tmp\ 4813}#
+ #{tmp\ 4812}#
+ #{tmp\ 4811}#)
+ (cons #{tmp\ 4811}#
+ (cons #{tmp\ 4812}#
+ #{tmp\
4813}#)))
+ #{e2*\ 4785}#
+ #{e1*\ 4784}#
+ #{args*\ 4783}#)))
+ (lambda (#{meta*\ 4815}#
+ #{else*\ 4816}#)
(values
(append
- #{meta\ 2686}#
- #{meta*\ 2706}#)
- (#{build-lambda-case\ 333}#
- #{s\ 2476}#
- #{req\ 2687}#
- #{opt\ 2688}#
- #{rest\ 2689}#
- #{kw\ 2690}#
- #{inits\ 2691}#
- #{vars\ 2692}#
- #{body\ 2693}#
- #{else*\ 2707}#)))))))))
- #{tmp\ 2664}#)
+ #{meta\ 4795}#
+ #{meta*\ 4815}#)
+ (#{build-lambda-case\ 2442}#
+ #{s\ 4585}#
+ #{req\ 4796}#
+ #{opt\ 4797}#
+ #{rest\ 4798}#
+ #{kw\ 4799}#
+ #{inits\ 4800}#
+ #{vars\ 4801}#
+ #{body\ 4802}#
+ #{else*\ 4816}#)))))))))
+ #{tmp\ 4773}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2662}#))))))))))
- (#{strip\ 498}#
- (lambda (#{x\ 2710}# #{w\ 2711}#)
+ #{tmp\ 4771}#))))))))))
+ (#{strip\ 2607}#
+ (lambda (#{x\ 4819}# #{w\ 4820}#)
(if (memq 'top
- (#{wrap-marks\ 394}# #{w\ 2711}#))
- #{x\ 2710}#
+ (#{wrap-marks\ 2503}# #{w\ 4820}#))
+ #{x\ 4819}#
(letrec*
- ((#{f\ 2717}#
- (lambda (#{x\ 2718}#)
- (if (#{syntax-object?\ 351}# #{x\ 2718}#)
- (#{strip\ 498}#
- (#{syntax-object-expression\ 353}# #{x\ 2718}#)
- (#{syntax-object-wrap\ 355}# #{x\ 2718}#))
- (if (pair? #{x\ 2718}#)
+ ((#{f\ 4826}#
+ (lambda (#{x\ 4827}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 4827}#)
+ (#{strip\ 2607}#
+ (#{syntax-object-expression\ 2462}# #{x\ 4827}#)
+ (#{syntax-object-wrap\ 2464}# #{x\ 4827}#))
+ (if (pair? #{x\ 4827}#)
(begin
- (let ((#{a\ 2725}# (#{f\ 2717}# (car #{x\ 2718}#)))
- (#{d\ 2726}#
- (#{f\ 2717}# (cdr #{x\ 2718}#))))
- (if (if (eq? #{a\ 2725}# (car #{x\ 2718}#))
- (eq? #{d\ 2726}# (cdr #{x\ 2718}#))
+ (let ((#{a\ 4834}# (#{f\ 4826}# (car #{x\ 4827}#)))
+ (#{d\ 4835}#
+ (#{f\ 4826}# (cdr #{x\ 4827}#))))
+ (if (if (eq? #{a\ 4834}# (car #{x\ 4827}#))
+ (eq? #{d\ 4835}# (cdr #{x\ 4827}#))
#f)
- #{x\ 2718}#
- (cons #{a\ 2725}# #{d\ 2726}#))))
- (if (vector? #{x\ 2718}#)
+ #{x\ 4827}#
+ (cons #{a\ 4834}# #{d\ 4835}#))))
+ (if (vector? #{x\ 4827}#)
(begin
- (let ((#{old\ 2732}# (vector->list #{x\ 2718}#)))
+ (let ((#{old\ 4841}# (vector->list #{x\ 4827}#)))
(begin
- (let ((#{new\ 2734}#
- (map #{f\ 2717}# #{old\ 2732}#)))
- (if (#{and-map*\ 35}#
+ (let ((#{new\ 4843}#
+ (map #{f\ 4826}# #{old\ 4841}#)))
+ (if (#{and-map*\ 2144}#
eq?
- #{old\ 2732}#
- #{new\ 2734}#)
- #{x\ 2718}#
- (list->vector #{new\ 2734}#))))))
- #{x\ 2718}#))))))
- (begin (#{f\ 2717}# #{x\ 2710}#))))))
- (#{gen-var\ 500}#
- (lambda (#{id\ 2736}#)
+ #{old\ 4841}#
+ #{new\ 4843}#)
+ #{x\ 4827}#
+ (list->vector #{new\ 4843}#))))))
+ #{x\ 4827}#))))))
+ (begin (#{f\ 4826}# #{x\ 4819}#))))))
+ (#{gen-var\ 2609}#
+ (lambda (#{id\ 4845}#)
(begin
- (let ((#{id\ 2739}#
- (if (#{syntax-object?\ 351}# #{id\ 2736}#)
- (#{syntax-object-expression\ 353}# #{id\ 2736}#)
- #{id\ 2736}#)))
+ (let ((#{id\ 4848}#
+ (if (#{syntax-object?\ 2460}# #{id\ 4845}#)
+ (#{syntax-object-expression\ 2462}# #{id\ 4845}#)
+ #{id\ 4845}#)))
(gensym
- (string-append (symbol->string #{id\ 2739}#) " "))))))
- (#{lambda-var-list\ 502}#
- (lambda (#{vars\ 2741}#)
+ (string-append (symbol->string #{id\ 4848}#) " "))))))
+ (#{lambda-var-list\ 2611}#
+ (lambda (#{vars\ 4850}#)
(letrec*
- ((#{lvl\ 2747}#
- (lambda (#{vars\ 2748}# #{ls\ 2749}# #{w\ 2750}#)
- (if (pair? #{vars\ 2748}#)
- (#{lvl\ 2747}#
- (cdr #{vars\ 2748}#)
- (cons (#{wrap\ 456}#
- (car #{vars\ 2748}#)
- #{w\ 2750}#
+ ((#{lvl\ 4856}#
+ (lambda (#{vars\ 4857}# #{ls\ 4858}# #{w\ 4859}#)
+ (if (pair? #{vars\ 4857}#)
+ (#{lvl\ 4856}#
+ (cdr #{vars\ 4857}#)
+ (cons (#{wrap\ 2565}#
+ (car #{vars\ 4857}#)
+ #{w\ 4859}#
#f)
- #{ls\ 2749}#)
- #{w\ 2750}#)
- (if (#{id?\ 387}# #{vars\ 2748}#)
- (cons (#{wrap\ 456}# #{vars\ 2748}# #{w\ 2750}# #f)
- #{ls\ 2749}#)
- (if (null? #{vars\ 2748}#)
- #{ls\ 2749}#
- (if (#{syntax-object?\ 351}# #{vars\ 2748}#)
- (#{lvl\ 2747}#
- (#{syntax-object-expression\ 353}#
- #{vars\ 2748}#)
- #{ls\ 2749}#
- (#{join-wraps\ 438}#
- #{w\ 2750}#
- (#{syntax-object-wrap\ 355}# #{vars\ 2748}#)))
- (cons #{vars\ 2748}# #{ls\ 2749}#))))))))
+ #{ls\ 4858}#)
+ #{w\ 4859}#)
+ (if (#{id?\ 2496}# #{vars\ 4857}#)
+ (cons (#{wrap\ 2565}# #{vars\ 4857}# #{w\ 4859}# #f)
+ #{ls\ 4858}#)
+ (if (null? #{vars\ 4857}#)
+ #{ls\ 4858}#
+ (if (#{syntax-object?\ 2460}# #{vars\ 4857}#)
+ (#{lvl\ 4856}#
+ (#{syntax-object-expression\ 2462}#
+ #{vars\ 4857}#)
+ #{ls\ 4858}#
+ (#{join-wraps\ 2547}#
+ #{w\ 4859}#
+ (#{syntax-object-wrap\ 2464}# #{vars\ 4857}#)))
+ (cons #{vars\ 4857}# #{ls\ 4858}#))))))))
(begin
- (#{lvl\ 2747}#
- #{vars\ 2741}#
+ (#{lvl\ 4856}#
+ #{vars\ 4850}#
'()
'(())))))))
(begin
- (set! #{make-primitive-ref\ 249}#
- (lambda (#{src\ 723}# #{name\ 724}#)
+ (set! #{make-primitive-ref\ 2358}#
+ (lambda (#{src\ 2832}# #{name\ 2833}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src\ 723}#
- #{name\ 724}#)))
- (set! #{fx+\ 288}# +)
- (set! #{fx-\ 290}# -)
- (set! #{fx=\ 292}# =)
- (set! #{fx<\ 294}# <)
- (set! #{set-syntax-object-expression!\ 359}#
- (lambda (#{x\ 1101}# #{update\ 1102}#)
- (vector-set! #{x\ 1101}# 1 #{update\ 1102}#)))
- (set! #{set-syntax-object-wrap!\ 361}#
- (lambda (#{x\ 1105}# #{update\ 1106}#)
- (vector-set! #{x\ 1105}# 2 #{update\ 1106}#)))
- (set! #{set-syntax-object-module!\ 363}#
- (lambda (#{x\ 1109}# #{update\ 1110}#)
- (vector-set! #{x\ 1109}# 3 #{update\ 1110}#)))
- (set! #{binding-type\ 370}# car)
- (set! #{binding-value\ 372}# cdr)
- (set! #{make-wrap\ 392}# cons)
- (set! #{wrap-marks\ 394}# car)
- (set! #{wrap-subst\ 396}# cdr)
- (set! #{ribcage?\ 410}#
- (lambda (#{x\ 1187}#)
- (if (vector? #{x\ 1187}#)
- (if (= (vector-length #{x\ 1187}#) 4)
- (eq? (vector-ref #{x\ 1187}# 0) (quote ribcage))
+ #{src\ 2832}#
+ #{name\ 2833}#)))
+ (set! #{fx+\ 2397}# +)
+ (set! #{fx-\ 2399}# -)
+ (set! #{fx=\ 2401}# =)
+ (set! #{fx<\ 2403}# <)
+ (set! #{set-syntax-object-expression!\ 2468}#
+ (lambda (#{x\ 3210}# #{update\ 3211}#)
+ (vector-set! #{x\ 3210}# 1 #{update\ 3211}#)))
+ (set! #{set-syntax-object-wrap!\ 2470}#
+ (lambda (#{x\ 3214}# #{update\ 3215}#)
+ (vector-set! #{x\ 3214}# 2 #{update\ 3215}#)))
+ (set! #{set-syntax-object-module!\ 2472}#
+ (lambda (#{x\ 3218}# #{update\ 3219}#)
+ (vector-set! #{x\ 3218}# 3 #{update\ 3219}#)))
+ (set! #{binding-type\ 2479}# car)
+ (set! #{binding-value\ 2481}# cdr)
+ (set! #{make-wrap\ 2501}# cons)
+ (set! #{wrap-marks\ 2503}# car)
+ (set! #{wrap-subst\ 2505}# cdr)
+ (set! #{ribcage?\ 2519}#
+ (lambda (#{x\ 3296}#)
+ (if (vector? #{x\ 3296}#)
+ (if (= (vector-length #{x\ 3296}#) 4)
+ (eq? (vector-ref #{x\ 3296}# 0) (quote ribcage))
#f)
#f)))
(begin
- (#{global-extend\ 383}#
+ (#{global-extend\ 2492}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 383}#
+ (#{global-extend\ 2492}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 383}#
+ (#{global-extend\ 2492}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2761}#
- #{r\ 2762}#
- #{w\ 2763}#
- #{s\ 2764}#
- #{mod\ 2765}#)
- (let ((#{tmp\ 2771}# #{e\ 2761}#))
- (let ((#{tmp\ 2772}#
+ (lambda (#{e\ 4870}#
+ #{r\ 4871}#
+ #{w\ 4872}#
+ #{s\ 4873}#
+ #{mod\ 4874}#)
+ (let ((#{tmp\ 4880}# #{e\ 4870}#))
+ (let ((#{tmp\ 4881}#
($sc-dispatch
- #{tmp\ 2771}#
+ #{tmp\ 4880}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2772}#
+ (if (if #{tmp\ 4881}#
(@apply
- (lambda (#{_\ 2778}#
- #{var\ 2779}#
- #{val\ 2780}#
- #{e1\ 2781}#
- #{e2\ 2782}#)
- (#{valid-bound-ids?\ 450}# #{var\ 2779}#))
- #{tmp\ 2772}#)
+ (lambda (#{_\ 4887}#
+ #{var\ 4888}#
+ #{val\ 4889}#
+ #{e1\ 4890}#
+ #{e2\ 4891}#)
+ (#{valid-bound-ids?\ 2559}# #{var\ 4888}#))
+ #{tmp\ 4881}#)
#f)
(@apply
- (lambda (#{_\ 2789}#
- #{var\ 2790}#
- #{val\ 2791}#
- #{e1\ 2792}#
- #{e2\ 2793}#)
+ (lambda (#{_\ 4898}#
+ #{var\ 4899}#
+ #{val\ 4900}#
+ #{e1\ 4901}#
+ #{e2\ 4902}#)
(begin
- (let ((#{names\ 2795}#
- (map (lambda (#{x\ 2796}#)
- (#{id-var-name\ 444}#
- #{x\ 2796}#
- #{w\ 2763}#))
- #{var\ 2790}#)))
+ (let ((#{names\ 4904}#
+ (map (lambda (#{x\ 4905}#)
+ (#{id-var-name\ 2553}#
+ #{x\ 4905}#
+ #{w\ 4872}#))
+ #{var\ 4899}#)))
(begin
(for-each
- (lambda (#{id\ 2799}# #{n\ 2800}#)
+ (lambda (#{id\ 4908}# #{n\ 4909}#)
(begin
- (let ((#{atom-key\ 2805}#
- (#{binding-type\ 370}#
- (#{lookup\ 381}#
- #{n\ 2800}#
- #{r\ 2762}#
- #{mod\ 2765}#))))
- (if (eqv? #{atom-key\ 2805}#
+ (let ((#{atom-key\ 4914}#
+ (#{binding-type\ 2479}#
+ (#{lookup\ 2490}#
+ #{n\ 4909}#
+ #{r\ 4871}#
+ #{mod\ 4874}#))))
+ (if (eqv? #{atom-key\ 4914}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2761}#
- (#{source-wrap\ 458}#
- #{id\ 2799}#
- #{w\ 2763}#
- #{s\ 2764}#
- #{mod\ 2765}#))))))
- #{var\ 2790}#
- #{names\ 2795}#)
- (#{chi-body\ 480}#
- (cons #{e1\ 2792}# #{e2\ 2793}#)
- (#{source-wrap\ 458}#
- #{e\ 2761}#
- #{w\ 2763}#
- #{s\ 2764}#
- #{mod\ 2765}#)
- (#{extend-env\ 375}#
- #{names\ 2795}#
+ #{e\ 4870}#
+ (#{source-wrap\ 2567}#
+ #{id\ 4908}#
+ #{w\ 4872}#
+ #{s\ 4873}#
+ #{mod\ 4874}#))))))
+ #{var\ 4899}#
+ #{names\ 4904}#)
+ (#{chi-body\ 2589}#
+ (cons #{e1\ 4901}# #{e2\ 4902}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 4870}#
+ #{w\ 4872}#
+ #{s\ 4873}#
+ #{mod\ 4874}#)
+ (#{extend-env\ 2484}#
+ #{names\ 4904}#
(begin
- (let ((#{trans-r\ 2810}#
- (#{macros-only-env\ 379}#
- #{r\ 2762}#)))
- (map (lambda (#{x\ 2811}#)
+ (let ((#{trans-r\ 4919}#
+ (#{macros-only-env\ 2488}#
+ #{r\ 4871}#)))
+ (map (lambda (#{x\ 4920}#)
(cons 'macro
-
(#{eval-local-transformer\ 484}#
- (#{chi\ 472}#
- #{x\ 2811}#
- #{trans-r\ 2810}#
- #{w\ 2763}#
- #{mod\ 2765}#)
- #{mod\ 2765}#)))
- #{val\ 2791}#)))
- #{r\ 2762}#)
- #{w\ 2763}#
- #{mod\ 2765}#)))))
- #{tmp\ 2772}#)
- (let ((#{_\ 2816}# #{tmp\ 2771}#))
+
(#{eval-local-transformer\ 2593}#
+ (#{chi\ 2581}#
+ #{x\ 4920}#
+ #{trans-r\ 4919}#
+ #{w\ 4872}#
+ #{mod\ 4874}#)
+ #{mod\ 4874}#)))
+ #{val\ 4900}#)))
+ #{r\ 4871}#)
+ #{w\ 4872}#
+ #{mod\ 4874}#)))))
+ #{tmp\ 4881}#)
+ (let ((#{_\ 4925}# #{tmp\ 4880}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 458}#
- #{e\ 2761}#
- #{w\ 2763}#
- #{s\ 2764}#
- #{mod\ 2765}#))))))))
- (#{global-extend\ 383}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4870}#
+ #{w\ 4872}#
+ #{s\ 4873}#
+ #{mod\ 4874}#))))))))
+ (#{global-extend\ 2492}#
'core
'quote
- (lambda (#{e\ 2817}#
- #{r\ 2818}#
- #{w\ 2819}#
- #{s\ 2820}#
- #{mod\ 2821}#)
- (let ((#{tmp\ 2827}# #{e\ 2817}#))
- (let ((#{tmp\ 2828}#
- ($sc-dispatch #{tmp\ 2827}# (quote (any any)))))
- (if #{tmp\ 2828}#
+ (lambda (#{e\ 4926}#
+ #{r\ 4927}#
+ #{w\ 4928}#
+ #{s\ 4929}#
+ #{mod\ 4930}#)
+ (let ((#{tmp\ 4936}# #{e\ 4926}#))
+ (let ((#{tmp\ 4937}#
+ ($sc-dispatch #{tmp\ 4936}# (quote (any any)))))
+ (if #{tmp\ 4937}#
(@apply
- (lambda (#{_\ 2831}# #{e\ 2832}#)
- (#{build-data\ 337}#
- #{s\ 2820}#
- (#{strip\ 498}# #{e\ 2832}# #{w\ 2819}#)))
- #{tmp\ 2828}#)
- (let ((#{_\ 2834}# #{tmp\ 2827}#))
+ (lambda (#{_\ 4940}# #{e\ 4941}#)
+ (#{build-data\ 2446}#
+ #{s\ 4929}#
+ (#{strip\ 2607}# #{e\ 4941}# #{w\ 4928}#)))
+ #{tmp\ 4937}#)
+ (let ((#{_\ 4943}# #{tmp\ 4936}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 458}#
- #{e\ 2817}#
- #{w\ 2819}#
- #{s\ 2820}#
- #{mod\ 2821}#))))))))
- (#{global-extend\ 383}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4926}#
+ #{w\ 4928}#
+ #{s\ 4929}#
+ #{mod\ 4930}#))))))))
+ (#{global-extend\ 2492}#
'core
'syntax
(letrec*
- ((#{gen-syntax\ 2836}#
- (lambda (#{src\ 2851}#
- #{e\ 2852}#
- #{r\ 2853}#
- #{maps\ 2854}#
- #{ellipsis?\ 2855}#
- #{mod\ 2856}#)
- (if (#{id?\ 387}# #{e\ 2852}#)
+ ((#{gen-syntax\ 4945}#
+ (lambda (#{src\ 4960}#
+ #{e\ 4961}#
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#)
+ (if (#{id?\ 2496}# #{e\ 4961}#)
(begin
- (let ((#{label\ 2864}#
- (#{id-var-name\ 444}#
- #{e\ 2852}#
+ (let ((#{label\ 4973}#
+ (#{id-var-name\ 2553}#
+ #{e\ 4961}#
'(()))))
(begin
- (let ((#{b\ 2867}#
- (#{lookup\ 381}#
- #{label\ 2864}#
- #{r\ 2853}#
- #{mod\ 2856}#)))
- (if (eq? (#{binding-type\ 370}# #{b\ 2867}#)
+ (let ((#{b\ 4976}#
+ (#{lookup\ 2490}#
+ #{label\ 4973}#
+ #{r\ 4962}#
+ #{mod\ 4965}#)))
+ (if (eq? (#{binding-type\ 2479}# #{b\ 4976}#)
'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev\ 2869}#
- (#{binding-value\ 372}#
- #{b\ 2867}#)))
- (#{gen-ref\ 2838}#
- #{src\ 2851}#
- (car #{var.lev\ 2869}#)
- (cdr #{var.lev\ 2869}#)
- #{maps\ 2854}#))))
- (lambda (#{var\ 2870}# #{maps\ 2871}#)
+ (let ((#{var.lev\ 4978}#
+ (#{binding-value\ 2481}#
+ #{b\ 4976}#)))
+ (#{gen-ref\ 4947}#
+ #{src\ 4960}#
+ (car #{var.lev\ 4978}#)
+ (cdr #{var.lev\ 4978}#)
+ #{maps\ 4963}#))))
+ (lambda (#{var\ 4979}# #{maps\ 4980}#)
(values
- (list (quote ref) #{var\ 2870}#)
- #{maps\ 2871}#)))
- (if (#{ellipsis?\ 2855}# #{e\ 2852}#)
+ (list (quote ref) #{var\ 4979}#)
+ #{maps\ 4980}#)))
+ (if (#{ellipsis?\ 4964}# #{e\ 4961}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2851}#)
+ #{src\ 4960}#)
(values
- (list (quote quote) #{e\ 2852}#)
- #{maps\ 2854}#)))))))
- (let ((#{tmp\ 2876}# #{e\ 2852}#))
- (let ((#{tmp\ 2877}#
+ (list (quote quote) #{e\ 4961}#)
+ #{maps\ 4963}#)))))))
+ (let ((#{tmp\ 4985}# #{e\ 4961}#))
+ (let ((#{tmp\ 4986}#
($sc-dispatch
- #{tmp\ 2876}#
+ #{tmp\ 4985}#
'(any any))))
- (if (if #{tmp\ 2877}#
+ (if (if #{tmp\ 4986}#
(@apply
- (lambda (#{dots\ 2880}# #{e\ 2881}#)
- (#{ellipsis?\ 2855}# #{dots\ 2880}#))
- #{tmp\ 2877}#)
+ (lambda (#{dots\ 4989}# #{e\ 4990}#)
+ (#{ellipsis?\ 4964}# #{dots\ 4989}#))
+ #{tmp\ 4986}#)
#f)
(@apply
- (lambda (#{dots\ 2884}# #{e\ 2885}#)
- (#{gen-syntax\ 2836}#
- #{src\ 2851}#
- #{e\ 2885}#
- #{r\ 2853}#
- #{maps\ 2854}#
- (lambda (#{x\ 2886}#) #f)
- #{mod\ 2856}#))
- #{tmp\ 2877}#)
- (let ((#{tmp\ 2888}#
+ (lambda (#{dots\ 4993}# #{e\ 4994}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{e\ 4994}#
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ (lambda (#{x\ 4995}#) #f)
+ #{mod\ 4965}#))
+ #{tmp\ 4986}#)
+ (let ((#{tmp\ 4997}#
($sc-dispatch
- #{tmp\ 2876}#
+ #{tmp\ 4985}#
'(any any . any))))
- (if (if #{tmp\ 2888}#
+ (if (if #{tmp\ 4997}#
(@apply
- (lambda (#{x\ 2892}#
- #{dots\ 2893}#
- #{y\ 2894}#)
- (#{ellipsis?\ 2855}# #{dots\ 2893}#))
- #{tmp\ 2888}#)
+ (lambda (#{x\ 5001}#
+ #{dots\ 5002}#
+ #{y\ 5003}#)
+ (#{ellipsis?\ 4964}# #{dots\ 5002}#))
+ #{tmp\ 4997}#)
#f)
(@apply
- (lambda (#{x\ 2898}#
- #{dots\ 2899}#
- #{y\ 2900}#)
+ (lambda (#{x\ 5007}#
+ #{dots\ 5008}#
+ #{y\ 5009}#)
(letrec*
- ((#{f\ 2904}#
- (lambda (#{y\ 2905}# #{k\ 2906}#)
- (let ((#{tmp\ 2913}# #{y\ 2905}#))
- (let ((#{tmp\ 2914}#
+ ((#{f\ 5013}#
+ (lambda (#{y\ 5014}# #{k\ 5015}#)
+ (let ((#{tmp\ 5022}# #{y\ 5014}#))
+ (let ((#{tmp\ 5023}#
($sc-dispatch
- #{tmp\ 2913}#
+ #{tmp\ 5022}#
'(any . any))))
- (if (if #{tmp\ 2914}#
+ (if (if #{tmp\ 5023}#
(@apply
- (lambda (#{dots\ 2917}#
- #{y\ 2918}#)
- (#{ellipsis?\ 2855}#
- #{dots\ 2917}#))
- #{tmp\ 2914}#)
+ (lambda (#{dots\ 5026}#
+ #{y\ 5027}#)
+ (#{ellipsis?\ 4964}#
+ #{dots\ 5026}#))
+ #{tmp\ 5023}#)
#f)
(@apply
- (lambda (#{dots\ 2921}#
- #{y\ 2922}#)
- (#{f\ 2904}#
- #{y\ 2922}#
- (lambda (#{maps\
2923}#)
+ (lambda (#{dots\ 5030}#
+ #{y\ 5031}#)
+ (#{f\ 5013}#
+ #{y\ 5031}#
+ (lambda (#{maps\
5032}#)
(call-with-values
(lambda ()
- (#{k\ 2906}#
+ (#{k\ 5015}#
(cons '()
- #{maps\
2923}#)))
- (lambda (#{x\
2925}#
- #{maps\
2926}#)
- (if (null? (car
#{maps\ 2926}#))
+ #{maps\
5032}#)))
+ (lambda (#{x\
5034}#
+ #{maps\
5035}#)
+ (if (null? (car
#{maps\ 5035}#))
(syntax-violation
'syntax
"extra
ellipsis"
- #{src\
2851}#)
+ #{src\
4960}#)
(values
-
(#{gen-mappend\ 2840}#
- #{x\ 2925}#
- (car
#{maps\ 2926}#))
- (cdr #{maps\
2926}#))))))))
- #{tmp\ 2914}#)
- (let ((#{_\ 2930}#
- #{tmp\ 2913}#))
+
(#{gen-mappend\ 4949}#
+ #{x\ 5034}#
+ (car
#{maps\ 5035}#))
+ (cdr #{maps\
5035}#))))))))
+ #{tmp\ 5023}#)
+ (let ((#{_\ 5039}#
+ #{tmp\ 5022}#))
(call-with-values
(lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2851}#
- #{y\ 2905}#
- #{r\ 2853}#
- #{maps\ 2854}#
- #{ellipsis?\ 2855}#
- #{mod\ 2856}#))
- (lambda (#{y\ 2931}#
- #{maps\ 2932}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{y\ 5014}#
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{y\ 5040}#
+ #{maps\ 5041}#)
(call-with-values
(lambda ()
- (#{k\ 2906}#
- #{maps\ 2932}#))
- (lambda (#{x\ 2935}#
- #{maps\
2936}#)
+ (#{k\ 5015}#
+ #{maps\ 5041}#))
+ (lambda (#{x\ 5044}#
+ #{maps\
5045}#)
(values
- (#{gen-append\
2846}#
- #{x\ 2935}#
- #{y\ 2931}#)
- #{maps\
2936}#))))))))))))
+ (#{gen-append\
4955}#
+ #{x\ 5044}#
+ #{y\ 5040}#)
+ #{maps\
5045}#))))))))))))
(begin
- (#{f\ 2904}#
- #{y\ 2900}#
- (lambda (#{maps\ 2907}#)
+ (#{f\ 5013}#
+ #{y\ 5009}#
+ (lambda (#{maps\ 5016}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2851}#
- #{x\ 2898}#
- #{r\ 2853}#
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{x\ 5007}#
+ #{r\ 4962}#
(cons '()
- #{maps\ 2907}#)
- #{ellipsis?\ 2855}#
- #{mod\ 2856}#))
- (lambda (#{x\ 2909}#
- #{maps\ 2910}#)
- (if (null? (car #{maps\
2910}#))
+ #{maps\ 5016}#)
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{x\ 5018}#
+ #{maps\ 5019}#)
+ (if (null? (car #{maps\
5019}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2851}#)
+ #{src\ 4960}#)
(values
- (#{gen-map\ 2842}#
- #{x\ 2909}#
- (car #{maps\ 2910}#))
- (cdr #{maps\
2910}#))))))))))
- #{tmp\ 2888}#)
- (let ((#{tmp\ 2939}#
+ (#{gen-map\ 4951}#
+ #{x\ 5018}#
+ (car #{maps\ 5019}#))
+ (cdr #{maps\
5019}#))))))))))
+ #{tmp\ 4997}#)
+ (let ((#{tmp\ 5048}#
($sc-dispatch
- #{tmp\ 2876}#
+ #{tmp\ 4985}#
'(any . any))))
- (if #{tmp\ 2939}#
+ (if #{tmp\ 5048}#
(@apply
- (lambda (#{x\ 2942}# #{y\ 2943}#)
+ (lambda (#{x\ 5051}# #{y\ 5052}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2851}#
- #{x\ 2942}#
- #{r\ 2853}#
- #{maps\ 2854}#
- #{ellipsis?\ 2855}#
- #{mod\ 2856}#))
- (lambda (#{x\ 2944}# #{maps\ 2945}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{x\ 5051}#
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{x\ 5053}# #{maps\ 5054}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2851}#
- #{y\ 2943}#
- #{r\ 2853}#
- #{maps\ 2945}#
- #{ellipsis?\ 2855}#
- #{mod\ 2856}#))
- (lambda (#{y\ 2948}#
- #{maps\ 2949}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{y\ 5052}#
+ #{r\ 4962}#
+ #{maps\ 5054}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{y\ 5057}#
+ #{maps\ 5058}#)
(values
- (#{gen-cons\ 2844}#
- #{x\ 2944}#
- #{y\ 2948}#)
- #{maps\ 2949}#))))))
- #{tmp\ 2939}#)
- (let ((#{tmp\ 2952}#
+ (#{gen-cons\ 4953}#
+ #{x\ 5053}#
+ #{y\ 5057}#)
+ #{maps\ 5058}#))))))
+ #{tmp\ 5048}#)
+ (let ((#{tmp\ 5061}#
($sc-dispatch
- #{tmp\ 2876}#
+ #{tmp\ 4985}#
'#(vector (any . each-any)))))
- (if #{tmp\ 2952}#
+ (if #{tmp\ 5061}#
(@apply
- (lambda (#{e1\ 2955}# #{e2\ 2956}#)
+ (lambda (#{e1\ 5064}# #{e2\ 5065}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2851}#
- (cons #{e1\ 2955}#
- #{e2\ 2956}#)
- #{r\ 2853}#
- #{maps\ 2854}#
- #{ellipsis?\ 2855}#
- #{mod\ 2856}#))
- (lambda (#{e\ 2958}#
- #{maps\ 2959}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ (cons #{e1\ 5064}#
+ #{e2\ 5065}#)
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{e\ 5067}#
+ #{maps\ 5068}#)
(values
- (#{gen-vector\ 2848}#
- #{e\ 2958}#)
- #{maps\ 2959}#))))
- #{tmp\ 2952}#)
- (let ((#{_\ 2963}# #{tmp\ 2876}#))
+ (#{gen-vector\ 4957}#
+ #{e\ 5067}#)
+ #{maps\ 5068}#))))
+ #{tmp\ 5061}#)
+ (let ((#{_\ 5072}# #{tmp\ 4985}#))
(values
- (list (quote quote) #{e\ 2852}#)
- #{maps\ 2854}#))))))))))))))
- (#{gen-ref\ 2838}#
- (lambda (#{src\ 2965}#
- #{var\ 2966}#
- #{level\ 2967}#
- #{maps\ 2968}#)
- (if (#{fx=\ 292}# #{level\ 2967}# 0)
- (values #{var\ 2966}# #{maps\ 2968}#)
- (if (null? #{maps\ 2968}#)
+ (list (quote quote) #{e\ 4961}#)
+ #{maps\ 4963}#))))))))))))))
+ (#{gen-ref\ 4947}#
+ (lambda (#{src\ 5074}#
+ #{var\ 5075}#
+ #{level\ 5076}#
+ #{maps\ 5077}#)
+ (if (#{fx=\ 2401}# #{level\ 5076}# 0)
+ (values #{var\ 5075}# #{maps\ 5077}#)
+ (if (null? #{maps\ 5077}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2965}#)
+ #{src\ 5074}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2838}#
- #{src\ 2965}#
- #{var\ 2966}#
- (#{fx-\ 290}# #{level\ 2967}# 1)
- (cdr #{maps\ 2968}#)))
- (lambda (#{outer-var\ 2973}# #{outer-maps\ 2974}#)
+ (#{gen-ref\ 4947}#
+ #{src\ 5074}#
+ #{var\ 5075}#
+ (#{fx-\ 2399}# #{level\ 5076}# 1)
+ (cdr #{maps\ 5077}#)))
+ (lambda (#{outer-var\ 5082}# #{outer-maps\ 5083}#)
(begin
- (let ((#{b\ 2978}#
- (assq #{outer-var\ 2973}#
- (car #{maps\ 2968}#))))
- (if #{b\ 2978}#
- (values (cdr #{b\ 2978}#) #{maps\ 2968}#)
+ (let ((#{b\ 5087}#
+ (assq #{outer-var\ 5082}#
+ (car #{maps\ 5077}#))))
+ (if #{b\ 5087}#
+ (values (cdr #{b\ 5087}#) #{maps\ 5077}#)
(begin
- (let ((#{inner-var\ 2980}#
- (#{gen-var\ 500}# (quote tmp))))
+ (let ((#{inner-var\ 5089}#
+ (#{gen-var\ 2609}# (quote tmp))))
(values
- #{inner-var\ 2980}#
- (cons (cons (cons #{outer-var\ 2973}#
- #{inner-var\ 2980}#)
- (car #{maps\ 2968}#))
- #{outer-maps\
2974}#)))))))))))))
- (#{gen-mappend\ 2840}#
- (lambda (#{e\ 2981}# #{map-env\ 2982}#)
+ #{inner-var\ 5089}#
+ (cons (cons (cons #{outer-var\ 5082}#
+ #{inner-var\ 5089}#)
+ (car #{maps\ 5077}#))
+ #{outer-maps\
5083}#)))))))))))))
+ (#{gen-mappend\ 4949}#
+ (lambda (#{e\ 5090}# #{map-env\ 5091}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2842}# #{e\ 2981}# #{map-env\ 2982}#))))
- (#{gen-map\ 2842}#
- (lambda (#{e\ 2986}# #{map-env\ 2987}#)
+ (#{gen-map\ 4951}# #{e\ 5090}# #{map-env\ 5091}#))))
+ (#{gen-map\ 4951}#
+ (lambda (#{e\ 5095}# #{map-env\ 5096}#)
(begin
- (let ((#{formals\ 2992}# (map cdr #{map-env\ 2987}#))
- (#{actuals\ 2993}#
- (map (lambda (#{x\ 2994}#)
- (list (quote ref) (car #{x\ 2994}#)))
- #{map-env\ 2987}#)))
- (if (eq? (car #{e\ 2986}#) (quote ref))
- (car #{actuals\ 2993}#)
+ (let ((#{formals\ 5101}# (map cdr #{map-env\ 5096}#))
+ (#{actuals\ 5102}#
+ (map (lambda (#{x\ 5103}#)
+ (list (quote ref) (car #{x\ 5103}#)))
+ #{map-env\ 5096}#)))
+ (if (eq? (car #{e\ 5095}#) (quote ref))
+ (car #{actuals\ 5102}#)
(if (and-map
- (lambda (#{x\ 3001}#)
- (if (eq? (car #{x\ 3001}#) (quote ref))
- (memq (car (cdr #{x\ 3001}#))
- #{formals\ 2992}#)
+ (lambda (#{x\ 5110}#)
+ (if (eq? (car #{x\ 5110}#) (quote ref))
+ (memq (car (cdr #{x\ 5110}#))
+ #{formals\ 5101}#)
#f))
- (cdr #{e\ 2986}#))
+ (cdr #{e\ 5095}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2986}#))
+ (car #{e\ 5095}#))
(map (begin
- (let ((#{r\ 3007}#
+ (let ((#{r\ 5116}#
(map cons
- #{formals\ 2992}#
- #{actuals\
2993}#)))
- (lambda (#{x\ 3008}#)
- (cdr (assq (car (cdr #{x\
3008}#))
- #{r\ 3007}#)))))
- (cdr #{e\ 2986}#))))
+ #{formals\ 5101}#
+ #{actuals\
5102}#)))
+ (lambda (#{x\ 5117}#)
+ (cdr (assq (car (cdr #{x\
5117}#))
+ #{r\ 5116}#)))))
+ (cdr #{e\ 5095}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2992}#
- #{e\ 2986}#)
- #{actuals\ 2993}#))))))))
- (#{gen-cons\ 2844}#
- (lambda (#{x\ 3012}# #{y\ 3013}#)
+ #{formals\ 5101}#
+ #{e\ 5095}#)
+ #{actuals\ 5102}#))))))))
+ (#{gen-cons\ 4953}#
+ (lambda (#{x\ 5121}# #{y\ 5122}#)
(begin
- (let ((#{atom-key\ 3018}# (car #{y\ 3013}#)))
- (if (eqv? #{atom-key\ 3018}# (quote quote))
- (if (eq? (car #{x\ 3012}#) (quote quote))
+ (let ((#{atom-key\ 5127}# (car #{y\ 5122}#)))
+ (if (eqv? #{atom-key\ 5127}# (quote quote))
+ (if (eq? (car #{x\ 5121}#) (quote quote))
(list 'quote
- (cons (car (cdr #{x\ 3012}#))
- (car (cdr #{y\ 3013}#))))
- (if (eq? (car (cdr #{y\ 3013}#)) (quote ()))
- (list (quote list) #{x\ 3012}#)
- (list (quote cons) #{x\ 3012}# #{y\ 3013}#)))
- (if (eqv? #{atom-key\ 3018}# (quote list))
+ (cons (car (cdr #{x\ 5121}#))
+ (car (cdr #{y\ 5122}#))))
+ (if (eq? (car (cdr #{y\ 5122}#)) (quote ()))
+ (list (quote list) #{x\ 5121}#)
+ (list (quote cons) #{x\ 5121}# #{y\ 5122}#)))
+ (if (eqv? #{atom-key\ 5127}# (quote list))
(cons 'list
- (cons #{x\ 3012}# (cdr #{y\ 3013}#)))
- (list (quote cons) #{x\ 3012}# #{y\ 3013}#)))))))
- (#{gen-append\ 2846}#
- (lambda (#{x\ 3027}# #{y\ 3028}#)
- (if (equal? #{y\ 3028}# (quote (quote ())))
- #{x\ 3027}#
- (list (quote append) #{x\ 3027}# #{y\ 3028}#))))
- (#{gen-vector\ 2848}#
- (lambda (#{x\ 3032}#)
- (if (eq? (car #{x\ 3032}#) (quote list))
- (cons (quote vector) (cdr #{x\ 3032}#))
- (if (eq? (car #{x\ 3032}#) (quote quote))
+ (cons #{x\ 5121}# (cdr #{y\ 5122}#)))
+ (list (quote cons) #{x\ 5121}# #{y\ 5122}#)))))))
+ (#{gen-append\ 4955}#
+ (lambda (#{x\ 5136}# #{y\ 5137}#)
+ (if (equal? #{y\ 5137}# (quote (quote ())))
+ #{x\ 5136}#
+ (list (quote append) #{x\ 5136}# #{y\ 5137}#))))
+ (#{gen-vector\ 4957}#
+ (lambda (#{x\ 5141}#)
+ (if (eq? (car #{x\ 5141}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 5141}#))
+ (if (eq? (car #{x\ 5141}#) (quote quote))
(list 'quote
- (list->vector (car (cdr #{x\ 3032}#))))
- (list (quote list->vector) #{x\ 3032}#)))))
- (#{regen\ 2850}#
- (lambda (#{x\ 3042}#)
+ (list->vector (car (cdr #{x\ 5141}#))))
+ (list (quote list->vector) #{x\ 5141}#)))))
+ (#{regen\ 4959}#
+ (lambda (#{x\ 5151}#)
(begin
- (let ((#{atom-key\ 3046}# (car #{x\ 3042}#)))
- (if (eqv? #{atom-key\ 3046}# (quote ref))
- (#{build-lexical-reference\ 315}#
+ (let ((#{atom-key\ 5155}# (car #{x\ 5151}#)))
+ (if (eqv? #{atom-key\ 5155}# (quote ref))
+ (#{build-lexical-reference\ 2426}#
'value
#f
- (car (cdr #{x\ 3042}#))
- (car (cdr #{x\ 3042}#)))
- (if (eqv? #{atom-key\ 3046}# (quote primitive))
- (#{build-primref\ 335}#
+ (car (cdr #{x\ 5151}#))
+ (car (cdr #{x\ 5151}#)))
+ (if (eqv? #{atom-key\ 5155}# (quote primitive))
+ (#{build-primref\ 2444}#
#f
- (car (cdr #{x\ 3042}#)))
- (if (eqv? #{atom-key\ 3046}# (quote quote))
- (#{build-data\ 337}# #f (car (cdr #{x\ 3042}#)))
- (if (eqv? #{atom-key\ 3046}# (quote lambda))
- (if (list? (car (cdr #{x\ 3042}#)))
- (#{build-simple-lambda\ 329}#
+ (car (cdr #{x\ 5151}#)))
+ (if (eqv? #{atom-key\ 5155}# (quote quote))
+ (#{build-data\ 2446}#
+ #f
+ (car (cdr #{x\ 5151}#)))
+ (if (eqv? #{atom-key\ 5155}# (quote lambda))
+ (if (list? (car (cdr #{x\ 5151}#)))
+ (#{build-simple-lambda\ 2438}#
#f
- (car (cdr #{x\ 3042}#))
+ (car (cdr #{x\ 5151}#))
#f
- (car (cdr #{x\ 3042}#))
+ (car (cdr #{x\ 5151}#))
'()
- (#{regen\ 2850}#
- (car (cdr (cdr #{x\ 3042}#)))))
- (error "how did we get here" #{x\ 3042}#))
- (#{build-application\ 309}#
+ (#{regen\ 4959}#
+ (car (cdr (cdr #{x\ 5151}#)))))
+ (error "how did we get here" #{x\ 5151}#))
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 335}#
+ (#{build-primref\ 2444}#
#f
- (car #{x\ 3042}#))
- (map #{regen\ 2850}#
- (cdr #{x\ 3042}#))))))))))))
+ (car #{x\ 5151}#))
+ (map #{regen\ 4959}#
+ (cdr #{x\ 5151}#))))))))))))
(begin
- (lambda (#{e\ 3058}#
- #{r\ 3059}#
- #{w\ 3060}#
- #{s\ 3061}#
- #{mod\ 3062}#)
+ (lambda (#{e\ 5167}#
+ #{r\ 5168}#
+ #{w\ 5169}#
+ #{s\ 5170}#
+ #{mod\ 5171}#)
(begin
- (let ((#{e\ 3069}#
- (#{source-wrap\ 458}#
- #{e\ 3058}#
- #{w\ 3060}#
- #{s\ 3061}#
- #{mod\ 3062}#)))
- (let ((#{tmp\ 3070}# #{e\ 3069}#))
- (let ((#{tmp\ 3071}#
+ (let ((#{e\ 5178}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5167}#
+ #{w\ 5169}#
+ #{s\ 5170}#
+ #{mod\ 5171}#)))
+ (let ((#{tmp\ 5179}# #{e\ 5178}#))
+ (let ((#{tmp\ 5180}#
($sc-dispatch
- #{tmp\ 3070}#
+ #{tmp\ 5179}#
'(any any))))
- (if #{tmp\ 3071}#
+ (if #{tmp\ 5180}#
(@apply
- (lambda (#{_\ 3074}# #{x\ 3075}#)
+ (lambda (#{_\ 5183}# #{x\ 5184}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2836}#
- #{e\ 3069}#
- #{x\ 3075}#
- #{r\ 3059}#
+ (#{gen-syntax\ 4945}#
+ #{e\ 5178}#
+ #{x\ 5184}#
+ #{r\ 5168}#
'()
- #{ellipsis?\ 488}#
- #{mod\ 3062}#))
- (lambda (#{e\ 3076}# #{maps\ 3077}#)
- (#{regen\ 2850}# #{e\ 3076}#))))
- #{tmp\ 3071}#)
- (let ((#{_\ 3081}# #{tmp\ 3070}#))
+ #{ellipsis?\ 2597}#
+ #{mod\ 5171}#))
+ (lambda (#{e\ 5185}# #{maps\ 5186}#)
+ (#{regen\ 4959}# #{e\ 5185}#))))
+ #{tmp\ 5180}#)
+ (let ((#{_\ 5190}# #{tmp\ 5179}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3069}#)))))))))))
- (#{global-extend\ 383}#
+ #{e\ 5178}#)))))))))))
+ (#{global-extend\ 2492}#
'core
'lambda
- (lambda (#{e\ 3082}#
- #{r\ 3083}#
- #{w\ 3084}#
- #{s\ 3085}#
- #{mod\ 3086}#)
- (let ((#{tmp\ 3092}# #{e\ 3082}#))
- (let ((#{tmp\ 3093}#
+ (lambda (#{e\ 5191}#
+ #{r\ 5192}#
+ #{w\ 5193}#
+ #{s\ 5194}#
+ #{mod\ 5195}#)
+ (let ((#{tmp\ 5201}# #{e\ 5191}#))
+ (let ((#{tmp\ 5202}#
($sc-dispatch
- #{tmp\ 3092}#
+ #{tmp\ 5201}#
'(any any any . each-any))))
- (if #{tmp\ 3093}#
+ (if #{tmp\ 5202}#
(@apply
- (lambda (#{_\ 3098}#
- #{args\ 3099}#
- #{e1\ 3100}#
- #{e2\ 3101}#)
+ (lambda (#{_\ 5207}#
+ #{args\ 5208}#
+ #{e1\ 5209}#
+ #{e2\ 5210}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 490}# #{args\ 3099}#))
- (lambda (#{req\ 3102}#
- #{opt\ 3103}#
- #{rest\ 3104}#
- #{kw\ 3105}#)
+ (#{lambda-formals\ 2599}# #{args\ 5208}#))
+ (lambda (#{req\ 5211}#
+ #{opt\ 5212}#
+ #{rest\ 5213}#
+ #{kw\ 5214}#)
(letrec*
- ((#{lp\ 3113}#
- (lambda (#{body\ 3114}# #{meta\ 3115}#)
- (let ((#{tmp\ 3117}# #{body\ 3114}#))
- (let ((#{tmp\ 3118}#
+ ((#{lp\ 5222}#
+ (lambda (#{body\ 5223}# #{meta\ 5224}#)
+ (let ((#{tmp\ 5226}# #{body\ 5223}#))
+ (let ((#{tmp\ 5227}#
($sc-dispatch
- #{tmp\ 3117}#
+ #{tmp\ 5226}#
'(any any . each-any))))
- (if (if #{tmp\ 3118}#
+ (if (if #{tmp\ 5227}#
(@apply
- (lambda (#{docstring\ 3122}#
- #{e1\ 3123}#
- #{e2\ 3124}#)
+ (lambda (#{docstring\ 5231}#
+ #{e1\ 5232}#
+ #{e2\ 5233}#)
(string?
(syntax->datum
- #{docstring\ 3122}#)))
- #{tmp\ 3118}#)
+ #{docstring\ 5231}#)))
+ #{tmp\ 5227}#)
#f)
(@apply
- (lambda (#{docstring\ 3128}#
- #{e1\ 3129}#
- #{e2\ 3130}#)
- (#{lp\ 3113}#
- (cons #{e1\ 3129}#
- #{e2\ 3130}#)
+ (lambda (#{docstring\ 5237}#
+ #{e1\ 5238}#
+ #{e2\ 5239}#)
+ (#{lp\ 5222}#
+ (cons #{e1\ 5238}#
+ #{e2\ 5239}#)
(append
- #{meta\ 3115}#
+ #{meta\ 5224}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
3128}#))))))
- #{tmp\ 3118}#)
- (let ((#{tmp\ 3133}#
+ #{docstring\
5237}#))))))
+ #{tmp\ 5227}#)
+ (let ((#{tmp\ 5242}#
($sc-dispatch
- #{tmp\ 3117}#
+ #{tmp\ 5226}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 3133}#
+ (if #{tmp\ 5242}#
(@apply
- (lambda (#{k\ 3138}#
- #{v\ 3139}#
- #{e1\ 3140}#
- #{e2\ 3141}#)
- (#{lp\ 3113}#
- (cons #{e1\ 3140}#
- #{e2\ 3141}#)
+ (lambda (#{k\ 5247}#
+ #{v\ 5248}#
+ #{e1\ 5249}#
+ #{e2\ 5250}#)
+ (#{lp\ 5222}#
+ (cons #{e1\ 5249}#
+ #{e2\ 5250}#)
(append
- #{meta\ 3115}#
+ #{meta\ 5224}#
(syntax->datum
(map cons
- #{k\ 3138}#
- #{v\ 3139}#)))))
- #{tmp\ 3133}#)
- (let ((#{_\ 3146}#
- #{tmp\ 3117}#))
- (#{chi-simple-lambda\ 492}#
- #{e\ 3082}#
- #{r\ 3083}#
- #{w\ 3084}#
- #{s\ 3085}#
- #{mod\ 3086}#
- #{req\ 3102}#
- #{rest\ 3104}#
- #{meta\ 3115}#
- #{body\ 3114}#))))))))))
+ #{k\ 5247}#
+ #{v\ 5248}#)))))
+ #{tmp\ 5242}#)
+ (let ((#{_\ 5255}#
+ #{tmp\ 5226}#))
+ (#{chi-simple-lambda\ 2601}#
+ #{e\ 5191}#
+ #{r\ 5192}#
+ #{w\ 5193}#
+ #{s\ 5194}#
+ #{mod\ 5195}#
+ #{req\ 5211}#
+ #{rest\ 5213}#
+ #{meta\ 5224}#
+ #{body\ 5223}#))))))))))
(begin
- (#{lp\ 3113}#
- (cons #{e1\ 3100}# #{e2\ 3101}#)
+ (#{lp\ 5222}#
+ (cons #{e1\ 5209}# #{e2\ 5210}#)
'()))))))
- #{tmp\ 3093}#)
- (let ((#{_\ 3148}# #{tmp\ 3092}#))
+ #{tmp\ 5202}#)
+ (let ((#{_\ 5257}# #{tmp\ 5201}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3082}#)))))))
- (#{global-extend\ 383}#
+ #{e\ 5191}#)))))))
+ (#{global-extend\ 2492}#
'core
'lambda*
- (lambda (#{e\ 3149}#
- #{r\ 3150}#
- #{w\ 3151}#
- #{s\ 3152}#
- #{mod\ 3153}#)
- (let ((#{tmp\ 3159}# #{e\ 3149}#))
- (let ((#{tmp\ 3160}#
+ (lambda (#{e\ 5258}#
+ #{r\ 5259}#
+ #{w\ 5260}#
+ #{s\ 5261}#
+ #{mod\ 5262}#)
+ (let ((#{tmp\ 5268}# #{e\ 5258}#))
+ (let ((#{tmp\ 5269}#
($sc-dispatch
- #{tmp\ 3159}#
+ #{tmp\ 5268}#
'(any any any . each-any))))
- (if #{tmp\ 3160}#
+ (if #{tmp\ 5269}#
(@apply
- (lambda (#{_\ 3165}#
- #{args\ 3166}#
- #{e1\ 3167}#
- #{e2\ 3168}#)
+ (lambda (#{_\ 5274}#
+ #{args\ 5275}#
+ #{e1\ 5276}#
+ #{e2\ 5277}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 496}#
- #{e\ 3149}#
- #{r\ 3150}#
- #{w\ 3151}#
- #{s\ 3152}#
- #{mod\ 3153}#
- #{lambda*-formals\ 494}#
- (list (cons #{args\ 3166}#
- (cons #{e1\ 3167}#
- #{e2\ 3168}#)))))
- (lambda (#{meta\ 3170}# #{lcase\ 3171}#)
- (#{build-case-lambda\ 331}#
- #{s\ 3152}#
- #{meta\ 3170}#
- #{lcase\ 3171}#))))
- #{tmp\ 3160}#)
- (let ((#{_\ 3175}# #{tmp\ 3159}#))
+ (#{chi-lambda-case\ 2605}#
+ #{e\ 5258}#
+ #{r\ 5259}#
+ #{w\ 5260}#
+ #{s\ 5261}#
+ #{mod\ 5262}#
+ #{lambda*-formals\ 2603}#
+ (list (cons #{args\ 5275}#
+ (cons #{e1\ 5276}#
+ #{e2\ 5277}#)))))
+ (lambda (#{meta\ 5279}# #{lcase\ 5280}#)
+ (#{build-case-lambda\ 2440}#
+ #{s\ 5261}#
+ #{meta\ 5279}#
+ #{lcase\ 5280}#))))
+ #{tmp\ 5269}#)
+ (let ((#{_\ 5284}# #{tmp\ 5268}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3149}#)))))))
- (#{global-extend\ 383}#
+ #{e\ 5258}#)))))))
+ (#{global-extend\ 2492}#
'core
'case-lambda
- (lambda (#{e\ 3176}#
- #{r\ 3177}#
- #{w\ 3178}#
- #{s\ 3179}#
- #{mod\ 3180}#)
- (let ((#{tmp\ 3186}# #{e\ 3176}#))
- (let ((#{tmp\ 3187}#
+ (lambda (#{e\ 5285}#
+ #{r\ 5286}#
+ #{w\ 5287}#
+ #{s\ 5288}#
+ #{mod\ 5289}#)
+ (let ((#{tmp\ 5295}# #{e\ 5285}#))
+ (let ((#{tmp\ 5296}#
($sc-dispatch
- #{tmp\ 3186}#
+ #{tmp\ 5295}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3187}#
+ (if #{tmp\ 5296}#
(@apply
- (lambda (#{_\ 3195}#
- #{args\ 3196}#
- #{e1\ 3197}#
- #{e2\ 3198}#
- #{args*\ 3199}#
- #{e1*\ 3200}#
- #{e2*\ 3201}#)
+ (lambda (#{_\ 5304}#
+ #{args\ 5305}#
+ #{e1\ 5306}#
+ #{e2\ 5307}#
+ #{args*\ 5308}#
+ #{e1*\ 5309}#
+ #{e2*\ 5310}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 496}#
- #{e\ 3176}#
- #{r\ 3177}#
- #{w\ 3178}#
- #{s\ 3179}#
- #{mod\ 3180}#
- #{lambda-formals\ 490}#
- (cons (cons #{args\ 3196}#
- (cons #{e1\ 3197}# #{e2\ 3198}#))
- (map (lambda (#{tmp\ 3205}#
- #{tmp\ 3204}#
- #{tmp\ 3203}#)
- (cons #{tmp\ 3203}#
- (cons #{tmp\ 3204}#
- #{tmp\ 3205}#)))
- #{e2*\ 3201}#
- #{e1*\ 3200}#
- #{args*\ 3199}#))))
- (lambda (#{meta\ 3207}# #{lcase\ 3208}#)
- (#{build-case-lambda\ 331}#
- #{s\ 3179}#
- #{meta\ 3207}#
- #{lcase\ 3208}#))))
- #{tmp\ 3187}#)
- (let ((#{_\ 3212}# #{tmp\ 3186}#))
+ (#{chi-lambda-case\ 2605}#
+ #{e\ 5285}#
+ #{r\ 5286}#
+ #{w\ 5287}#
+ #{s\ 5288}#
+ #{mod\ 5289}#
+ #{lambda-formals\ 2599}#
+ (cons (cons #{args\ 5305}#
+ (cons #{e1\ 5306}# #{e2\ 5307}#))
+ (map (lambda (#{tmp\ 5314}#
+ #{tmp\ 5313}#
+ #{tmp\ 5312}#)
+ (cons #{tmp\ 5312}#
+ (cons #{tmp\ 5313}#
+ #{tmp\ 5314}#)))
+ #{e2*\ 5310}#
+ #{e1*\ 5309}#
+ #{args*\ 5308}#))))
+ (lambda (#{meta\ 5316}# #{lcase\ 5317}#)
+ (#{build-case-lambda\ 2440}#
+ #{s\ 5288}#
+ #{meta\ 5316}#
+ #{lcase\ 5317}#))))
+ #{tmp\ 5296}#)
+ (let ((#{_\ 5321}# #{tmp\ 5295}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3176}#)))))))
- (#{global-extend\ 383}#
+ #{e\ 5285}#)))))))
+ (#{global-extend\ 2492}#
'core
'case-lambda*
- (lambda (#{e\ 3213}#
- #{r\ 3214}#
- #{w\ 3215}#
- #{s\ 3216}#
- #{mod\ 3217}#)
- (let ((#{tmp\ 3223}# #{e\ 3213}#))
- (let ((#{tmp\ 3224}#
+ (lambda (#{e\ 5322}#
+ #{r\ 5323}#
+ #{w\ 5324}#
+ #{s\ 5325}#
+ #{mod\ 5326}#)
+ (let ((#{tmp\ 5332}# #{e\ 5322}#))
+ (let ((#{tmp\ 5333}#
($sc-dispatch
- #{tmp\ 3223}#
+ #{tmp\ 5332}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3224}#
+ (if #{tmp\ 5333}#
(@apply
- (lambda (#{_\ 3232}#
- #{args\ 3233}#
- #{e1\ 3234}#
- #{e2\ 3235}#
- #{args*\ 3236}#
- #{e1*\ 3237}#
- #{e2*\ 3238}#)
+ (lambda (#{_\ 5341}#
+ #{args\ 5342}#
+ #{e1\ 5343}#
+ #{e2\ 5344}#
+ #{args*\ 5345}#
+ #{e1*\ 5346}#
+ #{e2*\ 5347}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 496}#
- #{e\ 3213}#
- #{r\ 3214}#
- #{w\ 3215}#
- #{s\ 3216}#
- #{mod\ 3217}#
- #{lambda*-formals\ 494}#
- (cons (cons #{args\ 3233}#
- (cons #{e1\ 3234}# #{e2\ 3235}#))
- (map (lambda (#{tmp\ 3242}#
- #{tmp\ 3241}#
- #{tmp\ 3240}#)
- (cons #{tmp\ 3240}#
- (cons #{tmp\ 3241}#
- #{tmp\ 3242}#)))
- #{e2*\ 3238}#
- #{e1*\ 3237}#
- #{args*\ 3236}#))))
- (lambda (#{meta\ 3244}# #{lcase\ 3245}#)
- (#{build-case-lambda\ 331}#
- #{s\ 3216}#
- #{meta\ 3244}#
- #{lcase\ 3245}#))))
- #{tmp\ 3224}#)
- (let ((#{_\ 3249}# #{tmp\ 3223}#))
+ (#{chi-lambda-case\ 2605}#
+ #{e\ 5322}#
+ #{r\ 5323}#
+ #{w\ 5324}#
+ #{s\ 5325}#
+ #{mod\ 5326}#
+ #{lambda*-formals\ 2603}#
+ (cons (cons #{args\ 5342}#
+ (cons #{e1\ 5343}# #{e2\ 5344}#))
+ (map (lambda (#{tmp\ 5351}#
+ #{tmp\ 5350}#
+ #{tmp\ 5349}#)
+ (cons #{tmp\ 5349}#
+ (cons #{tmp\ 5350}#
+ #{tmp\ 5351}#)))
+ #{e2*\ 5347}#
+ #{e1*\ 5346}#
+ #{args*\ 5345}#))))
+ (lambda (#{meta\ 5353}# #{lcase\ 5354}#)
+ (#{build-case-lambda\ 2440}#
+ #{s\ 5325}#
+ #{meta\ 5353}#
+ #{lcase\ 5354}#))))
+ #{tmp\ 5333}#)
+ (let ((#{_\ 5358}# #{tmp\ 5332}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3213}#)))))))
- (#{global-extend\ 383}#
+ #{e\ 5322}#)))))))
+ (#{global-extend\ 2492}#
'core
'let
(letrec*
- ((#{chi-let\ 3251}#
- (lambda (#{e\ 3252}#
- #{r\ 3253}#
- #{w\ 3254}#
- #{s\ 3255}#
- #{mod\ 3256}#
- #{constructor\ 3257}#
- #{ids\ 3258}#
- #{vals\ 3259}#
- #{exps\ 3260}#)
- (if (not (#{valid-bound-ids?\ 450}# #{ids\ 3258}#))
+ ((#{chi-let\ 5360}#
+ (lambda (#{e\ 5361}#
+ #{r\ 5362}#
+ #{w\ 5363}#
+ #{s\ 5364}#
+ #{mod\ 5365}#
+ #{constructor\ 5366}#
+ #{ids\ 5367}#
+ #{vals\ 5368}#
+ #{exps\ 5369}#)
+ (if (not (#{valid-bound-ids?\ 2559}# #{ids\ 5367}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3252}#)
+ #{e\ 5361}#)
(begin
- (let ((#{labels\ 3272}#
- (#{gen-labels\ 405}# #{ids\ 3258}#))
- (#{new-vars\ 3273}#
- (map #{gen-var\ 500}# #{ids\ 3258}#)))
+ (let ((#{labels\ 5381}#
+ (#{gen-labels\ 2514}# #{ids\ 5367}#))
+ (#{new-vars\ 5382}#
+ (map #{gen-var\ 2609}# #{ids\ 5367}#)))
(begin
- (let ((#{nw\ 3276}#
- (#{make-binding-wrap\ 434}#
- #{ids\ 3258}#
- #{labels\ 3272}#
- #{w\ 3254}#))
- (#{nr\ 3277}#
- (#{extend-var-env\ 377}#
- #{labels\ 3272}#
- #{new-vars\ 3273}#
- #{r\ 3253}#)))
- (#{constructor\ 3257}#
- #{s\ 3255}#
- (map syntax->datum #{ids\ 3258}#)
- #{new-vars\ 3273}#
- (map (lambda (#{x\ 3278}#)
- (#{chi\ 472}#
- #{x\ 3278}#
- #{r\ 3253}#
- #{w\ 3254}#
- #{mod\ 3256}#))
- #{vals\ 3259}#)
- (#{chi-body\ 480}#
- #{exps\ 3260}#
- (#{source-wrap\ 458}#
- #{e\ 3252}#
- #{nw\ 3276}#
- #{s\ 3255}#
- #{mod\ 3256}#)
- #{nr\ 3277}#
- #{nw\ 3276}#
- #{mod\ 3256}#))))))))))
+ (let ((#{nw\ 5385}#
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 5367}#
+ #{labels\ 5381}#
+ #{w\ 5363}#))
+ (#{nr\ 5386}#
+ (#{extend-var-env\ 2486}#
+ #{labels\ 5381}#
+ #{new-vars\ 5382}#
+ #{r\ 5362}#)))
+ (#{constructor\ 5366}#
+ #{s\ 5364}#
+ (map syntax->datum #{ids\ 5367}#)
+ #{new-vars\ 5382}#
+ (map (lambda (#{x\ 5387}#)
+ (#{chi\ 2581}#
+ #{x\ 5387}#
+ #{r\ 5362}#
+ #{w\ 5363}#
+ #{mod\ 5365}#))
+ #{vals\ 5368}#)
+ (#{chi-body\ 2589}#
+ #{exps\ 5369}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5361}#
+ #{nw\ 5385}#
+ #{s\ 5364}#
+ #{mod\ 5365}#)
+ #{nr\ 5386}#
+ #{nw\ 5385}#
+ #{mod\ 5365}#))))))))))
(begin
- (lambda (#{e\ 3280}#
- #{r\ 3281}#
- #{w\ 3282}#
- #{s\ 3283}#
- #{mod\ 3284}#)
- (let ((#{tmp\ 3290}# #{e\ 3280}#))
- (let ((#{tmp\ 3291}#
+ (lambda (#{e\ 5389}#
+ #{r\ 5390}#
+ #{w\ 5391}#
+ #{s\ 5392}#
+ #{mod\ 5393}#)
+ (let ((#{tmp\ 5399}# #{e\ 5389}#))
+ (let ((#{tmp\ 5400}#
($sc-dispatch
- #{tmp\ 3290}#
+ #{tmp\ 5399}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3291}#
+ (if (if #{tmp\ 5400}#
(@apply
- (lambda (#{_\ 3297}#
- #{id\ 3298}#
- #{val\ 3299}#
- #{e1\ 3300}#
- #{e2\ 3301}#)
- (and-map #{id?\ 387}# #{id\ 3298}#))
- #{tmp\ 3291}#)
+ (lambda (#{_\ 5406}#
+ #{id\ 5407}#
+ #{val\ 5408}#
+ #{e1\ 5409}#
+ #{e2\ 5410}#)
+ (and-map #{id?\ 2496}# #{id\ 5407}#))
+ #{tmp\ 5400}#)
#f)
(@apply
- (lambda (#{_\ 3308}#
- #{id\ 3309}#
- #{val\ 3310}#
- #{e1\ 3311}#
- #{e2\ 3312}#)
- (#{chi-let\ 3251}#
- #{e\ 3280}#
- #{r\ 3281}#
- #{w\ 3282}#
- #{s\ 3283}#
- #{mod\ 3284}#
- #{build-let\ 341}#
- #{id\ 3309}#
- #{val\ 3310}#
- (cons #{e1\ 3311}# #{e2\ 3312}#)))
- #{tmp\ 3291}#)
- (let ((#{tmp\ 3316}#
+ (lambda (#{_\ 5417}#
+ #{id\ 5418}#
+ #{val\ 5419}#
+ #{e1\ 5420}#
+ #{e2\ 5421}#)
+ (#{chi-let\ 5360}#
+ #{e\ 5389}#
+ #{r\ 5390}#
+ #{w\ 5391}#
+ #{s\ 5392}#
+ #{mod\ 5393}#
+ #{build-let\ 2450}#
+ #{id\ 5418}#
+ #{val\ 5419}#
+ (cons #{e1\ 5420}# #{e2\ 5421}#)))
+ #{tmp\ 5400}#)
+ (let ((#{tmp\ 5425}#
($sc-dispatch
- #{tmp\ 3290}#
+ #{tmp\ 5399}#
'(any any
#(each (any any))
any
.
each-any))))
- (if (if #{tmp\ 3316}#
+ (if (if #{tmp\ 5425}#
(@apply
- (lambda (#{_\ 3323}#
- #{f\ 3324}#
- #{id\ 3325}#
- #{val\ 3326}#
- #{e1\ 3327}#
- #{e2\ 3328}#)
- (if (#{id?\ 387}# #{f\ 3324}#)
- (and-map #{id?\ 387}# #{id\ 3325}#)
+ (lambda (#{_\ 5432}#
+ #{f\ 5433}#
+ #{id\ 5434}#
+ #{val\ 5435}#
+ #{e1\ 5436}#
+ #{e2\ 5437}#)
+ (if (#{id?\ 2496}# #{f\ 5433}#)
+ (and-map #{id?\ 2496}# #{id\ 5434}#)
#f))
- #{tmp\ 3316}#)
+ #{tmp\ 5425}#)
#f)
(@apply
- (lambda (#{_\ 3338}#
- #{f\ 3339}#
- #{id\ 3340}#
- #{val\ 3341}#
- #{e1\ 3342}#
- #{e2\ 3343}#)
- (#{chi-let\ 3251}#
- #{e\ 3280}#
- #{r\ 3281}#
- #{w\ 3282}#
- #{s\ 3283}#
- #{mod\ 3284}#
- #{build-named-let\ 343}#
- (cons #{f\ 3339}# #{id\ 3340}#)
- #{val\ 3341}#
- (cons #{e1\ 3342}# #{e2\ 3343}#)))
- #{tmp\ 3316}#)
- (let ((#{_\ 3348}# #{tmp\ 3290}#))
+ (lambda (#{_\ 5447}#
+ #{f\ 5448}#
+ #{id\ 5449}#
+ #{val\ 5450}#
+ #{e1\ 5451}#
+ #{e2\ 5452}#)
+ (#{chi-let\ 5360}#
+ #{e\ 5389}#
+ #{r\ 5390}#
+ #{w\ 5391}#
+ #{s\ 5392}#
+ #{mod\ 5393}#
+ #{build-named-let\ 2452}#
+ (cons #{f\ 5448}# #{id\ 5449}#)
+ #{val\ 5450}#
+ (cons #{e1\ 5451}# #{e2\ 5452}#)))
+ #{tmp\ 5425}#)
+ (let ((#{_\ 5457}# #{tmp\ 5399}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 458}#
- #{e\ 3280}#
- #{w\ 3282}#
- #{s\ 3283}#
- #{mod\ 3284}#))))))))))))
- (#{global-extend\ 383}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5389}#
+ #{w\ 5391}#
+ #{s\ 5392}#
+ #{mod\ 5393}#))))))))))))
+ (#{global-extend\ 2492}#
'core
'letrec
- (lambda (#{e\ 3349}#
- #{r\ 3350}#
- #{w\ 3351}#
- #{s\ 3352}#
- #{mod\ 3353}#)
- (let ((#{tmp\ 3359}# #{e\ 3349}#))
- (let ((#{tmp\ 3360}#
+ (lambda (#{e\ 5458}#
+ #{r\ 5459}#
+ #{w\ 5460}#
+ #{s\ 5461}#
+ #{mod\ 5462}#)
+ (let ((#{tmp\ 5468}# #{e\ 5458}#))
+ (let ((#{tmp\ 5469}#
($sc-dispatch
- #{tmp\ 3359}#
+ #{tmp\ 5468}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3360}#
+ (if (if #{tmp\ 5469}#
(@apply
- (lambda (#{_\ 3366}#
- #{id\ 3367}#
- #{val\ 3368}#
- #{e1\ 3369}#
- #{e2\ 3370}#)
- (and-map #{id?\ 387}# #{id\ 3367}#))
- #{tmp\ 3360}#)
+ (lambda (#{_\ 5475}#
+ #{id\ 5476}#
+ #{val\ 5477}#
+ #{e1\ 5478}#
+ #{e2\ 5479}#)
+ (and-map #{id?\ 2496}# #{id\ 5476}#))
+ #{tmp\ 5469}#)
#f)
(@apply
- (lambda (#{_\ 3377}#
- #{id\ 3378}#
- #{val\ 3379}#
- #{e1\ 3380}#
- #{e2\ 3381}#)
+ (lambda (#{_\ 5486}#
+ #{id\ 5487}#
+ #{val\ 5488}#
+ #{e1\ 5489}#
+ #{e2\ 5490}#)
(begin
- (let ((#{ids\ 3383}# #{id\ 3378}#))
- (if (not (#{valid-bound-ids?\ 450}#
- #{ids\ 3383}#))
+ (let ((#{ids\ 5492}# #{id\ 5487}#))
+ (if (not (#{valid-bound-ids?\ 2559}#
+ #{ids\ 5492}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3349}#)
+ #{e\ 5458}#)
(begin
- (let ((#{labels\ 3387}#
- (#{gen-labels\ 405}# #{ids\ 3383}#))
- (#{new-vars\ 3388}#
- (map #{gen-var\ 500}#
- #{ids\ 3383}#)))
+ (let ((#{labels\ 5496}#
+ (#{gen-labels\ 2514}# #{ids\ 5492}#))
+ (#{new-vars\ 5497}#
+ (map #{gen-var\ 2609}#
+ #{ids\ 5492}#)))
(begin
- (let ((#{w\ 3391}#
- (#{make-binding-wrap\ 434}#
- #{ids\ 3383}#
- #{labels\ 3387}#
- #{w\ 3351}#))
- (#{r\ 3392}#
- (#{extend-var-env\ 377}#
- #{labels\ 3387}#
- #{new-vars\ 3388}#
- #{r\ 3350}#)))
- (#{build-letrec\ 345}#
- #{s\ 3352}#
+ (let ((#{w\ 5500}#
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 5492}#
+ #{labels\ 5496}#
+ #{w\ 5460}#))
+ (#{r\ 5501}#
+ (#{extend-var-env\ 2486}#
+ #{labels\ 5496}#
+ #{new-vars\ 5497}#
+ #{r\ 5459}#)))
+ (#{build-letrec\ 2454}#
+ #{s\ 5461}#
#f
- (map syntax->datum #{ids\ 3383}#)
- #{new-vars\ 3388}#
- (map (lambda (#{x\ 3393}#)
- (#{chi\ 472}#
- #{x\ 3393}#
- #{r\ 3392}#
- #{w\ 3391}#
- #{mod\ 3353}#))
- #{val\ 3379}#)
- (#{chi-body\ 480}#
- (cons #{e1\ 3380}# #{e2\ 3381}#)
- (#{source-wrap\ 458}#
- #{e\ 3349}#
- #{w\ 3391}#
- #{s\ 3352}#
- #{mod\ 3353}#)
- #{r\ 3392}#
- #{w\ 3391}#
- #{mod\ 3353}#))))))))))
- #{tmp\ 3360}#)
- (let ((#{_\ 3398}# #{tmp\ 3359}#))
+ (map syntax->datum #{ids\ 5492}#)
+ #{new-vars\ 5497}#
+ (map (lambda (#{x\ 5502}#)
+ (#{chi\ 2581}#
+ #{x\ 5502}#
+ #{r\ 5501}#
+ #{w\ 5500}#
+ #{mod\ 5462}#))
+ #{val\ 5488}#)
+ (#{chi-body\ 2589}#
+ (cons #{e1\ 5489}# #{e2\ 5490}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 5458}#
+ #{w\ 5500}#
+ #{s\ 5461}#
+ #{mod\ 5462}#)
+ #{r\ 5501}#
+ #{w\ 5500}#
+ #{mod\ 5462}#))))))))))
+ #{tmp\ 5469}#)
+ (let ((#{_\ 5507}# #{tmp\ 5468}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 458}#
- #{e\ 3349}#
- #{w\ 3351}#
- #{s\ 3352}#
- #{mod\ 3353}#))))))))
- (#{global-extend\ 383}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5458}#
+ #{w\ 5460}#
+ #{s\ 5461}#
+ #{mod\ 5462}#))))))))
+ (#{global-extend\ 2492}#
'core
'letrec*
- (lambda (#{e\ 3399}#
- #{r\ 3400}#
- #{w\ 3401}#
- #{s\ 3402}#
- #{mod\ 3403}#)
- (let ((#{tmp\ 3409}# #{e\ 3399}#))
- (let ((#{tmp\ 3410}#
+ (lambda (#{e\ 5508}#
+ #{r\ 5509}#
+ #{w\ 5510}#
+ #{s\ 5511}#
+ #{mod\ 5512}#)
+ (let ((#{tmp\ 5518}# #{e\ 5508}#))
+ (let ((#{tmp\ 5519}#
($sc-dispatch
- #{tmp\ 3409}#
+ #{tmp\ 5518}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3410}#
+ (if (if #{tmp\ 5519}#
(@apply
- (lambda (#{_\ 3416}#
- #{id\ 3417}#
- #{val\ 3418}#
- #{e1\ 3419}#
- #{e2\ 3420}#)
- (and-map #{id?\ 387}# #{id\ 3417}#))
- #{tmp\ 3410}#)
+ (lambda (#{_\ 5525}#
+ #{id\ 5526}#
+ #{val\ 5527}#
+ #{e1\ 5528}#
+ #{e2\ 5529}#)
+ (and-map #{id?\ 2496}# #{id\ 5526}#))
+ #{tmp\ 5519}#)
#f)
(@apply
- (lambda (#{_\ 3427}#
- #{id\ 3428}#
- #{val\ 3429}#
- #{e1\ 3430}#
- #{e2\ 3431}#)
+ (lambda (#{_\ 5536}#
+ #{id\ 5537}#
+ #{val\ 5538}#
+ #{e1\ 5539}#
+ #{e2\ 5540}#)
(begin
- (let ((#{ids\ 3433}# #{id\ 3428}#))
- (if (not (#{valid-bound-ids?\ 450}#
- #{ids\ 3433}#))
+ (let ((#{ids\ 5542}# #{id\ 5537}#))
+ (if (not (#{valid-bound-ids?\ 2559}#
+ #{ids\ 5542}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 3399}#)
+ #{e\ 5508}#)
(begin
- (let ((#{labels\ 3437}#
- (#{gen-labels\ 405}# #{ids\ 3433}#))
- (#{new-vars\ 3438}#
- (map #{gen-var\ 500}#
- #{ids\ 3433}#)))
+ (let ((#{labels\ 5546}#
+ (#{gen-labels\ 2514}# #{ids\ 5542}#))
+ (#{new-vars\ 5547}#
+ (map #{gen-var\ 2609}#
+ #{ids\ 5542}#)))
(begin
- (let ((#{w\ 3441}#
- (#{make-binding-wrap\ 434}#
- #{ids\ 3433}#
- #{labels\ 3437}#
- #{w\ 3401}#))
- (#{r\ 3442}#
- (#{extend-var-env\ 377}#
- #{labels\ 3437}#
- #{new-vars\ 3438}#
- #{r\ 3400}#)))
- (#{build-letrec\ 345}#
- #{s\ 3402}#
+ (let ((#{w\ 5550}#
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 5542}#
+ #{labels\ 5546}#
+ #{w\ 5510}#))
+ (#{r\ 5551}#
+ (#{extend-var-env\ 2486}#
+ #{labels\ 5546}#
+ #{new-vars\ 5547}#
+ #{r\ 5509}#)))
+ (#{build-letrec\ 2454}#
+ #{s\ 5511}#
#t
- (map syntax->datum #{ids\ 3433}#)
- #{new-vars\ 3438}#
- (map (lambda (#{x\ 3443}#)
- (#{chi\ 472}#
- #{x\ 3443}#
- #{r\ 3442}#
- #{w\ 3441}#
- #{mod\ 3403}#))
- #{val\ 3429}#)
- (#{chi-body\ 480}#
- (cons #{e1\ 3430}# #{e2\ 3431}#)
- (#{source-wrap\ 458}#
- #{e\ 3399}#
- #{w\ 3441}#
- #{s\ 3402}#
- #{mod\ 3403}#)
- #{r\ 3442}#
- #{w\ 3441}#
- #{mod\ 3403}#))))))))))
- #{tmp\ 3410}#)
- (let ((#{_\ 3448}# #{tmp\ 3409}#))
+ (map syntax->datum #{ids\ 5542}#)
+ #{new-vars\ 5547}#
+ (map (lambda (#{x\ 5552}#)
+ (#{chi\ 2581}#
+ #{x\ 5552}#
+ #{r\ 5551}#
+ #{w\ 5550}#
+ #{mod\ 5512}#))
+ #{val\ 5538}#)
+ (#{chi-body\ 2589}#
+ (cons #{e1\ 5539}# #{e2\ 5540}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 5508}#
+ #{w\ 5550}#
+ #{s\ 5511}#
+ #{mod\ 5512}#)
+ #{r\ 5551}#
+ #{w\ 5550}#
+ #{mod\ 5512}#))))))))))
+ #{tmp\ 5519}#)
+ (let ((#{_\ 5557}# #{tmp\ 5518}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 458}#
- #{e\ 3399}#
- #{w\ 3401}#
- #{s\ 3402}#
- #{mod\ 3403}#))))))))
- (#{global-extend\ 383}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5508}#
+ #{w\ 5510}#
+ #{s\ 5511}#
+ #{mod\ 5512}#))))))))
+ (#{global-extend\ 2492}#
'core
'set!
- (lambda (#{e\ 3449}#
- #{r\ 3450}#
- #{w\ 3451}#
- #{s\ 3452}#
- #{mod\ 3453}#)
- (let ((#{tmp\ 3459}# #{e\ 3449}#))
- (let ((#{tmp\ 3460}#
+ (lambda (#{e\ 5558}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{s\ 5561}#
+ #{mod\ 5562}#)
+ (let ((#{tmp\ 5568}# #{e\ 5558}#))
+ (let ((#{tmp\ 5569}#
($sc-dispatch
- #{tmp\ 3459}#
+ #{tmp\ 5568}#
'(any any any))))
- (if (if #{tmp\ 3460}#
+ (if (if #{tmp\ 5569}#
(@apply
- (lambda (#{_\ 3464}# #{id\ 3465}# #{val\ 3466}#)
- (#{id?\ 387}# #{id\ 3465}#))
- #{tmp\ 3460}#)
+ (lambda (#{_\ 5573}# #{id\ 5574}# #{val\ 5575}#)
+ (#{id?\ 2496}# #{id\ 5574}#))
+ #{tmp\ 5569}#)
#f)
(@apply
- (lambda (#{_\ 3470}# #{id\ 3471}# #{val\ 3472}#)
+ (lambda (#{_\ 5579}# #{id\ 5580}# #{val\ 5581}#)
(begin
- (let ((#{val\ 3475}#
- (#{chi\ 472}#
- #{val\ 3472}#
- #{r\ 3450}#
- #{w\ 3451}#
- #{mod\ 3453}#))
- (#{n\ 3476}#
- (#{id-var-name\ 444}#
- #{id\ 3471}#
- #{w\ 3451}#)))
+ (let ((#{n\ 5583}#
+ (#{id-var-name\ 2553}#
+ #{id\ 5580}#
+ #{w\ 5560}#)))
(begin
- (let ((#{b\ 3478}#
- (#{lookup\ 381}#
- #{n\ 3476}#
- #{r\ 3450}#
- #{mod\ 3453}#)))
+ (let ((#{b\ 5585}#
+ (#{lookup\ 2490}#
+ #{n\ 5583}#
+ #{r\ 5559}#
+ #{mod\ 5562}#)))
(begin
- (let ((#{atom-key\ 3481}#
- (#{binding-type\ 370}#
- #{b\ 3478}#)))
- (if (eqv? #{atom-key\ 3481}#
+ (let ((#{atom-key\ 5588}#
+ (#{binding-type\ 2479}#
+ #{b\ 5585}#)))
+ (if (eqv? #{atom-key\ 5588}#
'lexical)
- (#{build-lexical-assignment\ 317}#
- #{s\ 3452}#
- (syntax->datum #{id\ 3471}#)
- (#{binding-value\ 372}# #{b\ 3478}#)
- #{val\ 3475}#)
- (if (eqv? #{atom-key\ 3481}#
+ (#{build-lexical-assignment\ 2428}#
+ #{s\ 5561}#
+ (syntax->datum #{id\ 5580}#)
+ (#{binding-value\ 2481}# #{b\ 5585}#)
+ (#{chi\ 2581}#
+ #{val\ 5581}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#))
+ (if (eqv? #{atom-key\ 5588}#
'global)
- (#{build-global-assignment\ 323}#
- #{s\ 3452}#
- #{n\ 3476}#
- #{val\ 3475}#
- #{mod\ 3453}#)
- (if (eqv? #{atom-key\ 3481}#
- 'displaced-lexical)
- (syntax-violation
- 'set!
- "identifier out of context"
- (#{wrap\ 456}#
- #{id\ 3471}#
- #{w\ 3451}#
- #{mod\ 3453}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap\ 458}#
- #{e\ 3449}#
- #{w\ 3451}#
- #{s\ 3452}#
- #{mod\ 3453}#))))))))))))
- #{tmp\ 3460}#)
- (let ((#{tmp\ 3486}#
+ (#{build-global-assignment\ 2434}#
+ #{s\ 5561}#
+ #{n\ 5583}#
+ (#{chi\ 2581}#
+ #{val\ 5581}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)
+ #{mod\ 5562}#)
+ (if (eqv? #{atom-key\ 5588}#
+ 'macro)
+ (begin
+ (let ((#{p\ 5593}#
+ (#{binding-value\ 2481}#
+ #{b\ 5585}#)))
+ (if (procedure-property
+ #{p\ 5593}#
+ 'variable-transformer)
+ (#{chi\ 2581}#
+ (#{chi-macro\ 2587}#
+ #{p\ 5593}#
+ #{e\ 5558}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{s\ 5561}#
+ #f
+ #{mod\ 5562}#)
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)
+ (syntax-violation
+ 'set!
+ "not a variable
transformer"
+ (#{wrap\ 2565}#
+ #{e\ 5558}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)
+ (#{wrap\ 2565}#
+ #{id\ 5580}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)))))
+ (if (eqv? #{atom-key\ 5588}#
+ 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (#{wrap\ 2565}#
+ #{id\ 5580}#
+ #{w\ 5560}#
+ #{mod\ 5562}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{source-wrap\ 2567}#
+ #{e\ 5558}#
+ #{w\ 5560}#
+ #{s\ 5561}#
+ #{mod\ 5562}#)))))))))))))
+ #{tmp\ 5569}#)
+ (let ((#{tmp\ 5596}#
($sc-dispatch
- #{tmp\ 3459}#
+ #{tmp\ 5568}#
'(any (any . each-any) any))))
- (if #{tmp\ 3486}#
+ (if #{tmp\ 5596}#
(@apply
- (lambda (#{_\ 3491}#
- #{head\ 3492}#
- #{tail\ 3493}#
- #{val\ 3494}#)
+ (lambda (#{_\ 5601}#
+ #{head\ 5602}#
+ #{tail\ 5603}#
+ #{val\ 5604}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 468}#
- #{head\ 3492}#
- #{r\ 3450}#
+ (#{syntax-type\ 2577}#
+ #{head\ 5602}#
+ #{r\ 5559}#
'(())
#f
#f
- #{mod\ 3453}#
+ #{mod\ 5562}#
#t))
- (lambda (#{type\ 3497}#
- #{value\ 3498}#
- #{ee\ 3499}#
- #{ww\ 3500}#
- #{ss\ 3501}#
- #{modmod\ 3502}#)
- (if (eqv? #{type\ 3497}# (quote module-ref))
+ (lambda (#{type\ 5607}#
+ #{value\ 5608}#
+ #{ee\ 5609}#
+ #{ww\ 5610}#
+ #{ss\ 5611}#
+ #{modmod\ 5612}#)
+ (if (eqv? #{type\ 5607}# (quote module-ref))
(begin
- (let ((#{val\ 3511}#
- (#{chi\ 472}#
- #{val\ 3494}#
- #{r\ 3450}#
- #{w\ 3451}#
- #{mod\ 3453}#)))
+ (let ((#{val\ 5621}#
+ (#{chi\ 2581}#
+ #{val\ 5604}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)))
(call-with-values
(lambda ()
- (#{value\ 3498}#
- (cons #{head\ 3492}#
- #{tail\ 3493}#)
- #{r\ 3450}#
- #{w\ 3451}#))
- (lambda (#{e\ 3513}#
- #{r\ 3514}#
- #{w\ 3515}#
- #{s*\ 3516}#
- #{mod\ 3517}#)
- (let ((#{tmp\ 3523}# #{e\ 3513}#))
- (let ((#{tmp\ 3524}#
- (list #{tmp\ 3523}#)))
- (if (if #{tmp\ 3524}#
+ (#{value\ 5608}#
+ (cons #{head\ 5602}#
+ #{tail\ 5603}#)
+ #{r\ 5559}#
+ #{w\ 5560}#))
+ (lambda (#{e\ 5623}#
+ #{r\ 5624}#
+ #{w\ 5625}#
+ #{s*\ 5626}#
+ #{mod\ 5627}#)
+ (let ((#{tmp\ 5633}# #{e\ 5623}#))
+ (let ((#{tmp\ 5634}#
+ (list #{tmp\ 5633}#)))
+ (if (if #{tmp\ 5634}#
(@apply
- (lambda (#{e\ 3526}#)
- (#{id?\ 387}#
- #{e\ 3526}#))
- #{tmp\ 3524}#)
+ (lambda (#{e\ 5636}#)
+ (#{id?\ 2496}#
+ #{e\ 5636}#))
+ #{tmp\ 5634}#)
#f)
(@apply
- (lambda (#{e\ 3528}#)
-
(#{build-global-assignment\ 323}#
- #{s\ 3452}#
+ (lambda (#{e\ 5638}#)
+
(#{build-global-assignment\ 2434}#
+ #{s\ 5561}#
(syntax->datum
- #{e\ 3528}#)
- #{val\ 3511}#
- #{mod\ 3517}#))
- #{tmp\ 3524}#)
+ #{e\ 5638}#)
+ #{val\ 5621}#
+ #{mod\ 5627}#))
+ #{tmp\ 5634}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 3523}#))))))))
- (#{build-application\ 309}#
- #{s\ 3452}#
- (#{chi\ 472}#
+ #{tmp\ 5633}#))))))))
+ (#{build-application\ 2420}#
+ #{s\ 5561}#
+ (#{chi\ 2581}#
(list '#(syntax-object
setter
((top)
@@ -10286,19 +10351,19 @@
(top)
(top)
(top))
- #("i3503"
- "i3504"
- "i3505"
- "i3506"
- "i3507"
- "i3508"))
+ #("i5613"
+ "i5614"
+ "i5615"
+ "i5616"
+ "i5617"
+ "i5618"))
#(ribcage
#(_ head tail val)
#((top) (top) (top) (top))
- #("i3487"
- "i3488"
- "i3489"
- "i3490"))
+ #("i5597"
+ "i5598"
+ "i5599"
+ "i5600"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10307,11 +10372,11 @@
(top)
(top)
(top))
- #("i3454"
- "i3455"
- "i3456"
- "i3457"
- "i3458"))
+ #("i5563"
+ "i5564"
+ "i5565"
+ "i5566"
+ "i5567"))
#(ribcage
(lambda-var-list
gen-var
@@ -10409,7 +10474,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -10419,6 +10483,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -10587,197 +10652,200 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile))
- #{head\ 3492}#)
- #{r\ 3450}#
- #{w\ 3451}#
- #{mod\ 3453}#)
- (map (lambda (#{e\ 3530}#)
- (#{chi\ 472}#
- #{e\ 3530}#
- #{r\ 3450}#
- #{w\ 3451}#
- #{mod\ 3453}#))
+ #{head\ 5602}#)
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)
+ (map (lambda (#{e\ 5640}#)
+ (#{chi\ 2581}#
+ #{e\ 5640}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#))
(append
- #{tail\ 3493}#
- (list #{val\ 3494}#))))))))
- #{tmp\ 3486}#)
- (let ((#{_\ 3534}# #{tmp\ 3459}#))
+ #{tail\ 5603}#
+ (list #{val\ 5604}#))))))))
+ #{tmp\ 5596}#)
+ (let ((#{_\ 5644}# #{tmp\ 5568}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 458}#
- #{e\ 3449}#
- #{w\ 3451}#
- #{s\ 3452}#
- #{mod\ 3453}#))))))))))
- (#{global-extend\ 383}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5558}#
+ #{w\ 5560}#
+ #{s\ 5561}#
+ #{mod\ 5562}#))))))))))
+ (#{global-extend\ 2492}#
'module-ref
'@
- (lambda (#{e\ 3535}# #{r\ 3536}# #{w\ 3537}#)
- (let ((#{tmp\ 3541}# #{e\ 3535}#))
- (let ((#{tmp\ 3542}#
+ (lambda (#{e\ 5645}# #{r\ 5646}# #{w\ 5647}#)
+ (let ((#{tmp\ 5651}# #{e\ 5645}#))
+ (let ((#{tmp\ 5652}#
($sc-dispatch
- #{tmp\ 3541}#
+ #{tmp\ 5651}#
'(any each-any any))))
- (if (if #{tmp\ 3542}#
+ (if (if #{tmp\ 5652}#
(@apply
- (lambda (#{_\ 3546}# #{mod\ 3547}# #{id\ 3548}#)
- (if (and-map #{id?\ 387}# #{mod\ 3547}#)
- (#{id?\ 387}# #{id\ 3548}#)
+ (lambda (#{_\ 5656}# #{mod\ 5657}# #{id\ 5658}#)
+ (if (and-map #{id?\ 2496}# #{mod\ 5657}#)
+ (#{id?\ 2496}# #{id\ 5658}#)
#f))
- #{tmp\ 3542}#)
+ #{tmp\ 5652}#)
#f)
(@apply
- (lambda (#{_\ 3555}# #{mod\ 3556}# #{id\ 3557}#)
+ (lambda (#{_\ 5665}# #{mod\ 5666}# #{id\ 5667}#)
(values
- (syntax->datum #{id\ 3557}#)
- #{r\ 3536}#
- #{w\ 3537}#
+ (syntax->datum #{id\ 5667}#)
+ #{r\ 5646}#
+ #{w\ 5647}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10786,12 +10854,12 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3552" "i3553" "i3554"))
+ #("i5662" "i5663" "i5664"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3538" "i3539" "i3540"))
+ #("i5648" "i5649" "i5650"))
#(ribcage
(lambda-var-list
gen-var
@@ -10889,7 +10957,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -10899,6 +10966,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -11067,224 +11135,224 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
+ ("i2147" "i2146" "i2145" "i2143")))
(hygiene guile))
- #{mod\ 3556}#))))
- #{tmp\ 3542}#)
+ #{mod\ 5666}#))))
+ #{tmp\ 5652}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3541}#))))))
- (#{global-extend\ 383}#
+ #{tmp\ 5651}#))))))
+ (#{global-extend\ 2492}#
'module-ref
'@@
- (lambda (#{e\ 3559}# #{r\ 3560}# #{w\ 3561}#)
+ (lambda (#{e\ 5669}# #{r\ 5670}# #{w\ 5671}#)
(letrec*
- ((#{remodulate\ 3566}#
- (lambda (#{x\ 3567}# #{mod\ 3568}#)
- (if (pair? #{x\ 3567}#)
- (cons (#{remodulate\ 3566}#
- (car #{x\ 3567}#)
- #{mod\ 3568}#)
- (#{remodulate\ 3566}#
- (cdr #{x\ 3567}#)
- #{mod\ 3568}#))
- (if (#{syntax-object?\ 351}# #{x\ 3567}#)
- (#{make-syntax-object\ 349}#
- (#{remodulate\ 3566}#
- (#{syntax-object-expression\ 353}# #{x\ 3567}#)
- #{mod\ 3568}#)
- (#{syntax-object-wrap\ 355}# #{x\ 3567}#)
- #{mod\ 3568}#)
- (if (vector? #{x\ 3567}#)
+ ((#{remodulate\ 5676}#
+ (lambda (#{x\ 5677}# #{mod\ 5678}#)
+ (if (pair? #{x\ 5677}#)
+ (cons (#{remodulate\ 5676}#
+ (car #{x\ 5677}#)
+ #{mod\ 5678}#)
+ (#{remodulate\ 5676}#
+ (cdr #{x\ 5677}#)
+ #{mod\ 5678}#))
+ (if (#{syntax-object?\ 2460}# #{x\ 5677}#)
+ (#{make-syntax-object\ 2458}#
+ (#{remodulate\ 5676}#
+ (#{syntax-object-expression\ 2462}# #{x\ 5677}#)
+ #{mod\ 5678}#)
+ (#{syntax-object-wrap\ 2464}# #{x\ 5677}#)
+ #{mod\ 5678}#)
+ (if (vector? #{x\ 5677}#)
(begin
- (let ((#{n\ 3579}# (vector-length #{x\ 3567}#)))
+ (let ((#{n\ 5689}# (vector-length #{x\ 5677}#)))
(begin
- (let ((#{v\ 3581}#
- (make-vector #{n\ 3579}#)))
+ (let ((#{v\ 5691}#
+ (make-vector #{n\ 5689}#)))
(letrec*
- ((#{loop\ 3584}#
- (lambda (#{i\ 3585}#)
- (if (#{fx=\ 292}#
- #{i\ 3585}#
- #{n\ 3579}#)
- (begin (if #f #f) #{v\ 3581}#)
+ ((#{loop\ 5694}#
+ (lambda (#{i\ 5695}#)
+ (if (#{fx=\ 2401}#
+ #{i\ 5695}#
+ #{n\ 5689}#)
+ (begin (if #f #f) #{v\ 5691}#)
(begin
(vector-set!
- #{v\ 3581}#
- #{i\ 3585}#
- (#{remodulate\ 3566}#
+ #{v\ 5691}#
+ #{i\ 5695}#
+ (#{remodulate\ 5676}#
(vector-ref
- #{x\ 3567}#
- #{i\ 3585}#)
- #{mod\ 3568}#))
- (#{loop\ 3584}#
- (#{fx+\ 288}#
- #{i\ 3585}#
+ #{x\ 5677}#
+ #{i\ 5695}#)
+ #{mod\ 5678}#))
+ (#{loop\ 5694}#
+ (#{fx+\ 2397}#
+ #{i\ 5695}#
1)))))))
- (begin (#{loop\ 3584}# 0)))))))
- #{x\ 3567}#))))))
+ (begin (#{loop\ 5694}# 0)))))))
+ #{x\ 5677}#))))))
(begin
- (let ((#{tmp\ 3589}# #{e\ 3559}#))
- (let ((#{tmp\ 3590}#
+ (let ((#{tmp\ 5699}# #{e\ 5669}#))
+ (let ((#{tmp\ 5700}#
($sc-dispatch
- #{tmp\ 3589}#
+ #{tmp\ 5699}#
'(any each-any any))))
- (if (if #{tmp\ 3590}#
+ (if (if #{tmp\ 5700}#
(@apply
- (lambda (#{_\ 3594}#
- #{mod\ 3595}#
- #{exp\ 3596}#)
- (and-map #{id?\ 387}# #{mod\ 3595}#))
- #{tmp\ 3590}#)
+ (lambda (#{_\ 5704}#
+ #{mod\ 5705}#
+ #{exp\ 5706}#)
+ (and-map #{id?\ 2496}# #{mod\ 5705}#))
+ #{tmp\ 5700}#)
#f)
(@apply
- (lambda (#{_\ 3601}# #{mod\ 3602}# #{exp\ 3603}#)
+ (lambda (#{_\ 5711}# #{mod\ 5712}# #{exp\ 5713}#)
(begin
- (let ((#{mod\ 3605}#
+ (let ((#{mod\ 5715}#
(syntax->datum
(cons '#(syntax-object
private
@@ -11292,19 +11360,19 @@
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i3598"
- "i3599"
- "i3600"))
+ #("i5708"
+ "i5709"
+ "i5710"))
#(ribcage
(remodulate)
((top))
- ("i3565"))
+ ("i5675"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3562"
- "i3563"
- "i3564"))
+ #("i5672"
+ "i5673"
+ "i5674"))
#(ribcage
(lambda-var-list
gen-var
@@ -11402,7 +11470,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -11412,6 +11479,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -11580,662 +11648,662 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile))
- #{mod\ 3602}#))))
+ #{mod\ 5712}#))))
(values
- (#{remodulate\ 3566}#
- #{exp\ 3603}#
- #{mod\ 3605}#)
- #{r\ 3560}#
- #{w\ 3561}#
- (#{source-annotation\ 366}# #{exp\ 3603}#)
- #{mod\ 3605}#))))
- #{tmp\ 3590}#)
+ (#{remodulate\ 5676}#
+ #{exp\ 5713}#
+ #{mod\ 5715}#)
+ #{r\ 5670}#
+ #{w\ 5671}#
+ (#{source-annotation\ 2475}# #{exp\ 5713}#)
+ #{mod\ 5715}#))))
+ #{tmp\ 5700}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3589}#))))))))
- (#{global-extend\ 383}#
+ #{tmp\ 5699}#))))))))
+ (#{global-extend\ 2492}#
'core
'if
- (lambda (#{e\ 3607}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{s\ 3610}#
- #{mod\ 3611}#)
- (let ((#{tmp\ 3617}# #{e\ 3607}#))
- (let ((#{tmp\ 3618}#
+ (lambda (#{e\ 5717}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{s\ 5720}#
+ #{mod\ 5721}#)
+ (let ((#{tmp\ 5727}# #{e\ 5717}#))
+ (let ((#{tmp\ 5728}#
($sc-dispatch
- #{tmp\ 3617}#
+ #{tmp\ 5727}#
'(any any any))))
- (if #{tmp\ 3618}#
+ (if #{tmp\ 5728}#
(@apply
- (lambda (#{_\ 3622}# #{test\ 3623}# #{then\ 3624}#)
- (#{build-conditional\ 311}#
- #{s\ 3610}#
- (#{chi\ 472}#
- #{test\ 3623}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)
- (#{chi\ 472}#
- #{then\ 3624}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)
- (#{build-void\ 307}# #f)))
- #{tmp\ 3618}#)
- (let ((#{tmp\ 3626}#
+ (lambda (#{_\ 5732}# #{test\ 5733}# #{then\ 5734}#)
+ (#{build-conditional\ 2422}#
+ #{s\ 5720}#
+ (#{chi\ 2581}#
+ #{test\ 5733}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)
+ (#{chi\ 2581}#
+ #{then\ 5734}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)
+ (#{build-void\ 2418}# #f)))
+ #{tmp\ 5728}#)
+ (let ((#{tmp\ 5736}#
($sc-dispatch
- #{tmp\ 3617}#
+ #{tmp\ 5727}#
'(any any any any))))
- (if #{tmp\ 3626}#
+ (if #{tmp\ 5736}#
(@apply
- (lambda (#{_\ 3631}#
- #{test\ 3632}#
- #{then\ 3633}#
- #{else\ 3634}#)
- (#{build-conditional\ 311}#
- #{s\ 3610}#
- (#{chi\ 472}#
- #{test\ 3632}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)
- (#{chi\ 472}#
- #{then\ 3633}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)
- (#{chi\ 472}#
- #{else\ 3634}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)))
- #{tmp\ 3626}#)
+ (lambda (#{_\ 5741}#
+ #{test\ 5742}#
+ #{then\ 5743}#
+ #{else\ 5744}#)
+ (#{build-conditional\ 2422}#
+ #{s\ 5720}#
+ (#{chi\ 2581}#
+ #{test\ 5742}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)
+ (#{chi\ 2581}#
+ #{then\ 5743}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)
+ (#{chi\ 2581}#
+ #{else\ 5744}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)))
+ #{tmp\ 5736}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3617}#))))))))
- (#{global-extend\ 383}#
+ #{tmp\ 5727}#))))))))
+ (#{global-extend\ 2492}#
'core
'with-fluids
- (lambda (#{e\ 3635}#
- #{r\ 3636}#
- #{w\ 3637}#
- #{s\ 3638}#
- #{mod\ 3639}#)
- (let ((#{tmp\ 3645}# #{e\ 3635}#))
- (let ((#{tmp\ 3646}#
+ (lambda (#{e\ 5745}#
+ #{r\ 5746}#
+ #{w\ 5747}#
+ #{s\ 5748}#
+ #{mod\ 5749}#)
+ (let ((#{tmp\ 5755}# #{e\ 5745}#))
+ (let ((#{tmp\ 5756}#
($sc-dispatch
- #{tmp\ 3645}#
+ #{tmp\ 5755}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 3646}#
+ (if #{tmp\ 5756}#
(@apply
- (lambda (#{_\ 3652}#
- #{fluid\ 3653}#
- #{val\ 3654}#
- #{b\ 3655}#
- #{b*\ 3656}#)
- (#{build-dynlet\ 313}#
- #{s\ 3638}#
- (map (lambda (#{x\ 3657}#)
- (#{chi\ 472}#
- #{x\ 3657}#
- #{r\ 3636}#
- #{w\ 3637}#
- #{mod\ 3639}#))
- #{fluid\ 3653}#)
- (map (lambda (#{x\ 3660}#)
- (#{chi\ 472}#
- #{x\ 3660}#
- #{r\ 3636}#
- #{w\ 3637}#
- #{mod\ 3639}#))
- #{val\ 3654}#)
- (#{chi-body\ 480}#
- (cons #{b\ 3655}# #{b*\ 3656}#)
- (#{source-wrap\ 458}#
- #{e\ 3635}#
- #{w\ 3637}#
- #{s\ 3638}#
- #{mod\ 3639}#)
- #{r\ 3636}#
- #{w\ 3637}#
- #{mod\ 3639}#)))
- #{tmp\ 3646}#)
+ (lambda (#{_\ 5762}#
+ #{fluid\ 5763}#
+ #{val\ 5764}#
+ #{b\ 5765}#
+ #{b*\ 5766}#)
+ (#{build-dynlet\ 2424}#
+ #{s\ 5748}#
+ (map (lambda (#{x\ 5767}#)
+ (#{chi\ 2581}#
+ #{x\ 5767}#
+ #{r\ 5746}#
+ #{w\ 5747}#
+ #{mod\ 5749}#))
+ #{fluid\ 5763}#)
+ (map (lambda (#{x\ 5770}#)
+ (#{chi\ 2581}#
+ #{x\ 5770}#
+ #{r\ 5746}#
+ #{w\ 5747}#
+ #{mod\ 5749}#))
+ #{val\ 5764}#)
+ (#{chi-body\ 2589}#
+ (cons #{b\ 5765}# #{b*\ 5766}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 5745}#
+ #{w\ 5747}#
+ #{s\ 5748}#
+ #{mod\ 5749}#)
+ #{r\ 5746}#
+ #{w\ 5747}#
+ #{mod\ 5749}#)))
+ #{tmp\ 5756}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3645}#))))))
- (#{global-extend\ 383}#
+ #{tmp\ 5755}#))))))
+ (#{global-extend\ 2492}#
'begin
'begin
'())
- (#{global-extend\ 383}#
+ (#{global-extend\ 2492}#
'define
'define
'())
- (#{global-extend\ 383}#
+ (#{global-extend\ 2492}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 383}#
+ (#{global-extend\ 2492}#
'eval-when
'eval-when
'())
- (#{global-extend\ 383}#
+ (#{global-extend\ 2492}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 3665}#
- (lambda (#{pattern\ 3672}# #{keys\ 3673}#)
+ ((#{convert-pattern\ 5775}#
+ (lambda (#{pattern\ 5782}# #{keys\ 5783}#)
(letrec*
- ((#{cvt*\ 3677}#
- (lambda (#{p*\ 3680}# #{n\ 3681}# #{ids\ 3682}#)
- (if (null? #{p*\ 3680}#)
- (values (quote ()) #{ids\ 3682}#)
+ ((#{cvt*\ 5787}#
+ (lambda (#{p*\ 5790}# #{n\ 5791}# #{ids\ 5792}#)
+ (if (null? #{p*\ 5790}#)
+ (values (quote ()) #{ids\ 5792}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3677}#
- (cdr #{p*\ 3680}#)
- #{n\ 3681}#
- #{ids\ 3682}#))
- (lambda (#{y\ 3686}# #{ids\ 3687}#)
+ (#{cvt*\ 5787}#
+ (cdr #{p*\ 5790}#)
+ #{n\ 5791}#
+ #{ids\ 5792}#))
+ (lambda (#{y\ 5796}# #{ids\ 5797}#)
(call-with-values
(lambda ()
- (#{cvt\ 3679}#
- (car #{p*\ 3680}#)
- #{n\ 3681}#
- #{ids\ 3687}#))
- (lambda (#{x\ 3690}# #{ids\ 3691}#)
+ (#{cvt\ 5789}#
+ (car #{p*\ 5790}#)
+ #{n\ 5791}#
+ #{ids\ 5797}#))
+ (lambda (#{x\ 5800}# #{ids\ 5801}#)
(values
- (cons #{x\ 3690}# #{y\ 3686}#)
- #{ids\ 3691}#))))))))
- (#{cvt\ 3679}#
- (lambda (#{p\ 3694}# #{n\ 3695}# #{ids\ 3696}#)
- (if (#{id?\ 387}# #{p\ 3694}#)
- (if (#{bound-id-member?\ 454}#
- #{p\ 3694}#
- #{keys\ 3673}#)
+ (cons #{x\ 5800}# #{y\ 5796}#)
+ #{ids\ 5801}#))))))))
+ (#{cvt\ 5789}#
+ (lambda (#{p\ 5804}# #{n\ 5805}# #{ids\ 5806}#)
+ (if (#{id?\ 2496}# #{p\ 5804}#)
+ (if (#{bound-id-member?\ 2563}#
+ #{p\ 5804}#
+ #{keys\ 5783}#)
(values
- (vector (quote free-id) #{p\ 3694}#)
- #{ids\ 3696}#)
+ (vector (quote free-id) #{p\ 5804}#)
+ #{ids\ 5806}#)
(values
'any
- (cons (cons #{p\ 3694}# #{n\ 3695}#)
- #{ids\ 3696}#)))
- (let ((#{tmp\ 3700}# #{p\ 3694}#))
- (let ((#{tmp\ 3701}#
+ (cons (cons #{p\ 5804}# #{n\ 5805}#)
+ #{ids\ 5806}#)))
+ (let ((#{tmp\ 5810}# #{p\ 5804}#))
+ (let ((#{tmp\ 5811}#
($sc-dispatch
- #{tmp\ 3700}#
+ #{tmp\ 5810}#
'(any any))))
- (if (if #{tmp\ 3701}#
+ (if (if #{tmp\ 5811}#
(@apply
- (lambda (#{x\ 3704}# #{dots\ 3705}#)
- (#{ellipsis?\ 488}#
- #{dots\ 3705}#))
- #{tmp\ 3701}#)
+ (lambda (#{x\ 5814}# #{dots\ 5815}#)
+ (#{ellipsis?\ 2597}#
+ #{dots\ 5815}#))
+ #{tmp\ 5811}#)
#f)
(@apply
- (lambda (#{x\ 3708}# #{dots\ 3709}#)
+ (lambda (#{x\ 5818}# #{dots\ 5819}#)
(call-with-values
(lambda ()
- (#{cvt\ 3679}#
- #{x\ 3708}#
- (#{fx+\ 288}# #{n\ 3695}# 1)
- #{ids\ 3696}#))
- (lambda (#{p\ 3710}# #{ids\ 3711}#)
+ (#{cvt\ 5789}#
+ #{x\ 5818}#
+ (#{fx+\ 2397}# #{n\ 5805}# 1)
+ #{ids\ 5806}#))
+ (lambda (#{p\ 5820}# #{ids\ 5821}#)
(values
- (if (eq? #{p\ 3710}# (quote any))
+ (if (eq? #{p\ 5820}# (quote any))
'each-any
(vector
'each
- #{p\ 3710}#))
- #{ids\ 3711}#))))
- #{tmp\ 3701}#)
- (let ((#{tmp\ 3714}#
+ #{p\ 5820}#))
+ #{ids\ 5821}#))))
+ #{tmp\ 5811}#)
+ (let ((#{tmp\ 5824}#
($sc-dispatch
- #{tmp\ 3700}#
+ #{tmp\ 5810}#
'(any any . each-any))))
- (if (if #{tmp\ 3714}#
+ (if (if #{tmp\ 5824}#
(@apply
- (lambda (#{x\ 3718}#
- #{dots\ 3719}#
- #{ys\ 3720}#)
- (#{ellipsis?\ 488}#
- #{dots\ 3719}#))
- #{tmp\ 3714}#)
+ (lambda (#{x\ 5828}#
+ #{dots\ 5829}#
+ #{ys\ 5830}#)
+ (#{ellipsis?\ 2597}#
+ #{dots\ 5829}#))
+ #{tmp\ 5824}#)
#f)
(@apply
- (lambda (#{x\ 3724}#
- #{dots\ 3725}#
- #{ys\ 3726}#)
+ (lambda (#{x\ 5834}#
+ #{dots\ 5835}#
+ #{ys\ 5836}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3677}#
- #{ys\ 3726}#
- #{n\ 3695}#
- #{ids\ 3696}#))
- (lambda (#{ys\ 3728}#
- #{ids\ 3729}#)
+ (#{cvt*\ 5787}#
+ #{ys\ 5836}#
+ #{n\ 5805}#
+ #{ids\ 5806}#))
+ (lambda (#{ys\ 5838}#
+ #{ids\ 5839}#)
(call-with-values
(lambda ()
- (#{cvt\ 3679}#
- #{x\ 3724}#
- (1+ #{n\ 3695}#)
- #{ids\ 3729}#))
- (lambda (#{x\ 3732}#
- #{ids\ 3733}#)
+ (#{cvt\ 5789}#
+ #{x\ 5834}#
+ (1+ #{n\ 5805}#)
+ #{ids\ 5839}#))
+ (lambda (#{x\ 5842}#
+ #{ids\ 5843}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 3732}#
+ (cons #{x\ 5842}#
(cons
(reverse
-
#{ys\ 3728}#)
+
#{ys\ 5838}#)
'(())))))
- #{ids\ 3733}#))))))
- #{tmp\ 3714}#)
- (let ((#{tmp\ 3737}#
+ #{ids\ 5843}#))))))
+ #{tmp\ 5824}#)
+ (let ((#{tmp\ 5847}#
($sc-dispatch
- #{tmp\ 3700}#
+ #{tmp\ 5810}#
'(any . any))))
- (if #{tmp\ 3737}#
+ (if #{tmp\ 5847}#
(@apply
- (lambda (#{x\ 3740}# #{y\ 3741}#)
+ (lambda (#{x\ 5850}# #{y\ 5851}#)
(call-with-values
(lambda ()
- (#{cvt\ 3679}#
- #{y\ 3741}#
- #{n\ 3695}#
- #{ids\ 3696}#))
- (lambda (#{y\ 3742}#
- #{ids\ 3743}#)
+ (#{cvt\ 5789}#
+ #{y\ 5851}#
+ #{n\ 5805}#
+ #{ids\ 5806}#))
+ (lambda (#{y\ 5852}#
+ #{ids\ 5853}#)
(call-with-values
(lambda ()
- (#{cvt\ 3679}#
- #{x\ 3740}#
- #{n\ 3695}#
- #{ids\ 3743}#))
- (lambda (#{x\ 3746}#
- #{ids\ 3747}#)
+ (#{cvt\ 5789}#
+ #{x\ 5850}#
+ #{n\ 5805}#
+ #{ids\ 5853}#))
+ (lambda (#{x\ 5856}#
+ #{ids\ 5857}#)
(values
- (cons #{x\ 3746}#
- #{y\ 3742}#)
- #{ids\ 3747}#))))))
- #{tmp\ 3737}#)
- (let ((#{tmp\ 3750}#
+ (cons #{x\ 5856}#
+ #{y\ 5852}#)
+ #{ids\ 5857}#))))))
+ #{tmp\ 5847}#)
+ (let ((#{tmp\ 5860}#
($sc-dispatch
- #{tmp\ 3700}#
+ #{tmp\ 5810}#
'())))
- (if #{tmp\ 3750}#
+ (if #{tmp\ 5860}#
(@apply
(lambda ()
(values
'()
- #{ids\ 3696}#))
- #{tmp\ 3750}#)
- (let ((#{tmp\ 3751}#
+ #{ids\ 5806}#))
+ #{tmp\ 5860}#)
+ (let ((#{tmp\ 5861}#
($sc-dispatch
- #{tmp\ 3700}#
+ #{tmp\ 5810}#
'#(vector
each-any))))
- (if #{tmp\ 3751}#
+ (if #{tmp\ 5861}#
(@apply
- (lambda (#{x\ 3753}#)
+ (lambda (#{x\ 5863}#)
(call-with-values
(lambda ()
- (#{cvt\ 3679}#
- #{x\ 3753}#
- #{n\ 3695}#
- #{ids\ 3696}#))
- (lambda (#{p\ 3755}#
- #{ids\
3756}#)
+ (#{cvt\ 5789}#
+ #{x\ 5863}#
+ #{n\ 5805}#
+ #{ids\ 5806}#))
+ (lambda (#{p\ 5865}#
+ #{ids\
5866}#)
(values
(vector
'vector
- #{p\ 3755}#)
- #{ids\ 3756}#))))
- #{tmp\ 3751}#)
- (let ((#{x\ 3760}#
- #{tmp\ 3700}#))
+ #{p\ 5865}#)
+ #{ids\ 5866}#))))
+ #{tmp\ 5861}#)
+ (let ((#{x\ 5870}#
+ #{tmp\ 5810}#))
(values
(vector
'atom
- (#{strip\ 498}#
- #{p\ 3694}#
+ (#{strip\ 2607}#
+ #{p\ 5804}#
'(())))
- #{ids\
3696}#)))))))))))))))))
+ #{ids\
5806}#)))))))))))))))))
(begin
- (#{cvt\ 3679}# #{pattern\ 3672}# 0 (quote ()))))))
- (#{build-dispatch-call\ 3667}#
- (lambda (#{pvars\ 3762}#
- #{exp\ 3763}#
- #{y\ 3764}#
- #{r\ 3765}#
- #{mod\ 3766}#)
+ (#{cvt\ 5789}# #{pattern\ 5782}# 0 (quote ()))))))
+ (#{build-dispatch-call\ 5777}#
+ (lambda (#{pvars\ 5872}#
+ #{exp\ 5873}#
+ #{y\ 5874}#
+ #{r\ 5875}#
+ #{mod\ 5876}#)
(begin
- (map cdr #{pvars\ 3762}#)
- (let ((#{ids\ 3774}# (map car #{pvars\ 3762}#)))
+ (map cdr #{pvars\ 5872}#)
+ (let ((#{ids\ 5884}# (map car #{pvars\ 5872}#)))
(begin
- (let ((#{labels\ 3778}#
- (#{gen-labels\ 405}# #{ids\ 3774}#))
- (#{new-vars\ 3779}#
- (map #{gen-var\ 500}# #{ids\ 3774}#)))
- (#{build-application\ 309}#
+ (let ((#{labels\ 5888}#
+ (#{gen-labels\ 2514}# #{ids\ 5884}#))
+ (#{new-vars\ 5889}#
+ (map #{gen-var\ 2609}# #{ids\ 5884}#)))
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 335}# #f (quote apply))
- (list (#{build-simple-lambda\ 329}#
+ (#{build-primref\ 2444}# #f (quote apply))
+ (list (#{build-simple-lambda\ 2438}#
#f
- (map syntax->datum #{ids\ 3774}#)
+ (map syntax->datum #{ids\ 5884}#)
#f
- #{new-vars\ 3779}#
+ #{new-vars\ 5889}#
'()
- (#{chi\ 472}#
- #{exp\ 3763}#
- (#{extend-env\ 375}#
- #{labels\ 3778}#
- (map (lambda (#{var\ 3783}#
- #{level\ 3784}#)
+ (#{chi\ 2581}#
+ #{exp\ 5873}#
+ (#{extend-env\ 2484}#
+ #{labels\ 5888}#
+ (map (lambda (#{var\ 5893}#
+ #{level\ 5894}#)
(cons 'syntax
- (cons #{var\ 3783}#
- #{level\
3784}#)))
- #{new-vars\ 3779}#
- (map cdr #{pvars\ 3762}#))
- #{r\ 3765}#)
- (#{make-binding-wrap\ 434}#
- #{ids\ 3774}#
- #{labels\ 3778}#
+ (cons #{var\ 5893}#
+ #{level\
5894}#)))
+ #{new-vars\ 5889}#
+ (map cdr #{pvars\ 5872}#))
+ #{r\ 5875}#)
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 5884}#
+ #{labels\ 5888}#
'(()))
- #{mod\ 3766}#))
- #{y\ 3764}#))))))))
- (#{gen-clause\ 3669}#
- (lambda (#{x\ 3790}#
- #{keys\ 3791}#
- #{clauses\ 3792}#
- #{r\ 3793}#
- #{pat\ 3794}#
- #{fender\ 3795}#
- #{exp\ 3796}#
- #{mod\ 3797}#)
+ #{mod\ 5876}#))
+ #{y\ 5874}#))))))))
+ (#{gen-clause\ 5779}#
+ (lambda (#{x\ 5900}#
+ #{keys\ 5901}#
+ #{clauses\ 5902}#
+ #{r\ 5903}#
+ #{pat\ 5904}#
+ #{fender\ 5905}#
+ #{exp\ 5906}#
+ #{mod\ 5907}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3665}#
- #{pat\ 3794}#
- #{keys\ 3791}#))
- (lambda (#{p\ 3806}# #{pvars\ 3807}#)
- (if (not (#{distinct-bound-ids?\ 452}#
- (map car #{pvars\ 3807}#)))
+ (#{convert-pattern\ 5775}#
+ #{pat\ 5904}#
+ #{keys\ 5901}#))
+ (lambda (#{p\ 5916}# #{pvars\ 5917}#)
+ (if (not (#{distinct-bound-ids?\ 2561}#
+ (map car #{pvars\ 5917}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3794}#)
+ #{pat\ 5904}#)
(if (not (and-map
- (lambda (#{x\ 3814}#)
- (not (#{ellipsis?\ 488}#
- (car #{x\ 3814}#))))
- #{pvars\ 3807}#))
+ (lambda (#{x\ 5924}#)
+ (not (#{ellipsis?\ 2597}#
+ (car #{x\ 5924}#))))
+ #{pvars\ 5917}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3794}#)
+ #{pat\ 5904}#)
(begin
- (let ((#{y\ 3818}#
- (#{gen-var\ 500}# (quote tmp))))
- (#{build-application\ 309}#
+ (let ((#{y\ 5928}#
+ (#{gen-var\ 2609}# (quote tmp))))
+ (#{build-application\ 2420}#
#f
- (#{build-simple-lambda\ 329}#
+ (#{build-simple-lambda\ 2438}#
#f
(list (quote tmp))
#f
- (list #{y\ 3818}#)
+ (list #{y\ 5928}#)
'()
(begin
- (let ((#{y\ 3822}#
- (#{build-lexical-reference\
315}#
+ (let ((#{y\ 5932}#
+ (#{build-lexical-reference\
2426}#
'value
#f
'tmp
- #{y\ 3818}#)))
- (#{build-conditional\ 311}#
+ #{y\ 5928}#)))
+ (#{build-conditional\ 2422}#
#f
- (let ((#{tmp\ 3825}#
- #{fender\ 3795}#))
- (let ((#{tmp\ 3826}#
+ (let ((#{tmp\ 5935}#
+ #{fender\ 5905}#))
+ (let ((#{tmp\ 5936}#
($sc-dispatch
- #{tmp\ 3825}#
+ #{tmp\ 5935}#
'#(atom #t))))
- (if #{tmp\ 3826}#
+ (if #{tmp\ 5936}#
(@apply
- (lambda () #{y\ 3822}#)
- #{tmp\ 3826}#)
- (let ((#{_\ 3828}#
- #{tmp\ 3825}#))
- (#{build-conditional\ 311}#
+ (lambda () #{y\ 5932}#)
+ #{tmp\ 5936}#)
+ (let ((#{_\ 5938}#
+ #{tmp\ 5935}#))
+ (#{build-conditional\ 2422}#
#f
- #{y\ 3822}#
- (#{build-dispatch-call\
3667}#
- #{pvars\ 3807}#
- #{fender\ 3795}#
- #{y\ 3822}#
- #{r\ 3793}#
- #{mod\ 3797}#)
- (#{build-data\ 337}#
+ #{y\ 5932}#
+ (#{build-dispatch-call\
5777}#
+ #{pvars\ 5917}#
+ #{fender\ 5905}#
+ #{y\ 5932}#
+ #{r\ 5903}#
+ #{mod\ 5907}#)
+ (#{build-data\ 2446}#
#f
#f))))))
- (#{build-dispatch-call\ 3667}#
- #{pvars\ 3807}#
- #{exp\ 3796}#
- #{y\ 3822}#
- #{r\ 3793}#
- #{mod\ 3797}#)
- (#{gen-syntax-case\ 3671}#
- #{x\ 3790}#
- #{keys\ 3791}#
- #{clauses\ 3792}#
- #{r\ 3793}#
- #{mod\ 3797}#)))))
- (list (if (eq? #{p\ 3806}# (quote any))
- (#{build-application\ 309}#
+ (#{build-dispatch-call\ 5777}#
+ #{pvars\ 5917}#
+ #{exp\ 5906}#
+ #{y\ 5932}#
+ #{r\ 5903}#
+ #{mod\ 5907}#)
+ (#{gen-syntax-case\ 5781}#
+ #{x\ 5900}#
+ #{keys\ 5901}#
+ #{clauses\ 5902}#
+ #{r\ 5903}#
+ #{mod\ 5907}#)))))
+ (list (if (eq? #{p\ 5916}# (quote any))
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 335}#
+ (#{build-primref\ 2444}#
#f
'list)
- (list #{x\ 3790}#))
- (#{build-application\ 309}#
+ (list #{x\ 5900}#))
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 335}#
+ (#{build-primref\ 2444}#
#f
'$sc-dispatch)
- (list #{x\ 3790}#
- (#{build-data\ 337}#
+ (list #{x\ 5900}#
+ (#{build-data\ 2446}#
#f
- #{p\ 3806}#))))))))))))))
- (#{gen-syntax-case\ 3671}#
- (lambda (#{x\ 3836}#
- #{keys\ 3837}#
- #{clauses\ 3838}#
- #{r\ 3839}#
- #{mod\ 3840}#)
- (if (null? #{clauses\ 3838}#)
- (#{build-application\ 309}#
+ #{p\ 5916}#))))))))))))))
+ (#{gen-syntax-case\ 5781}#
+ (lambda (#{x\ 5946}#
+ #{keys\ 5947}#
+ #{clauses\ 5948}#
+ #{r\ 5949}#
+ #{mod\ 5950}#)
+ (if (null? #{clauses\ 5948}#)
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 335}#
+ (#{build-primref\ 2444}#
#f
'syntax-violation)
- (list (#{build-data\ 337}# #f #f)
- (#{build-data\ 337}#
+ (list (#{build-data\ 2446}# #f #f)
+ (#{build-data\ 2446}#
#f
"source expression failed to match any
pattern")
- #{x\ 3836}#))
- (let ((#{tmp\ 3850}# (car #{clauses\ 3838}#)))
- (let ((#{tmp\ 3851}#
+ #{x\ 5946}#))
+ (let ((#{tmp\ 5960}# (car #{clauses\ 5948}#)))
+ (let ((#{tmp\ 5961}#
($sc-dispatch
- #{tmp\ 3850}#
+ #{tmp\ 5960}#
'(any any))))
- (if #{tmp\ 3851}#
+ (if #{tmp\ 5961}#
(@apply
- (lambda (#{pat\ 3854}# #{exp\ 3855}#)
- (if (if (#{id?\ 387}# #{pat\ 3854}#)
+ (lambda (#{pat\ 5964}# #{exp\ 5965}#)
+ (if (if (#{id?\ 2496}# #{pat\ 5964}#)
(and-map
- (lambda (#{x\ 3858}#)
- (not (#{free-id=?\ 446}#
- #{pat\ 3854}#
- #{x\ 3858}#)))
+ (lambda (#{x\ 5968}#)
+ (not (#{free-id=?\ 2555}#
+ #{pat\ 5964}#
+ #{x\ 5968}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3852" "i3853"))
+ #("i5962" "i5963"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -12244,21 +12312,21 @@
(top)
(top)
(top))
- #("i3841"
- "i3842"
- "i3843"
- "i3844"
- "i3845"))
+ #("i5951"
+ "i5952"
+ "i5953"
+ "i5954"
+ "i5955"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3670"
- "i3668"
- "i3666"
- "i3664"))
+ ("i5780"
+ "i5778"
+ "i5776"
+ "i5774"))
#(ribcage
(lambda-var-list
gen-var
@@ -12356,7 +12424,6 @@
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
@@ -12366,6 +12433,7 @@
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
@@ -12534,743 +12602,745 @@
(top)
(top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "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"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile))
- #{keys\ 3837}#))
+ #{keys\ 5947}#))
#f)
(begin
- (let ((#{labels\ 3862}#
- (list (#{gen-label\ 403}#)))
- (#{var\ 3863}#
- (#{gen-var\ 500}# #{pat\ 3854}#)))
- (#{build-application\ 309}#
+ (let ((#{labels\ 5972}#
+ (list (#{gen-label\ 2512}#)))
+ (#{var\ 5973}#
+ (#{gen-var\ 2609}#
+ #{pat\ 5964}#)))
+ (#{build-application\ 2420}#
#f
- (#{build-simple-lambda\ 329}#
+ (#{build-simple-lambda\ 2438}#
#f
- (list (syntax->datum #{pat\ 3854}#))
+ (list (syntax->datum #{pat\ 5964}#))
#f
- (list #{var\ 3863}#)
+ (list #{var\ 5973}#)
'()
- (#{chi\ 472}#
- #{exp\ 3855}#
- (#{extend-env\ 375}#
- #{labels\ 3862}#
+ (#{chi\ 2581}#
+ #{exp\ 5965}#
+ (#{extend-env\ 2484}#
+ #{labels\ 5972}#
(list (cons 'syntax
- (cons #{var\ 3863}#
+ (cons #{var\ 5973}#
0)))
- #{r\ 3839}#)
- (#{make-binding-wrap\ 434}#
- (list #{pat\ 3854}#)
- #{labels\ 3862}#
+ #{r\ 5949}#)
+ (#{make-binding-wrap\ 2543}#
+ (list #{pat\ 5964}#)
+ #{labels\ 5972}#
'(()))
- #{mod\ 3840}#))
- (list #{x\ 3836}#))))
- (#{gen-clause\ 3669}#
- #{x\ 3836}#
- #{keys\ 3837}#
- (cdr #{clauses\ 3838}#)
- #{r\ 3839}#
- #{pat\ 3854}#
+ #{mod\ 5950}#))
+ (list #{x\ 5946}#))))
+ (#{gen-clause\ 5779}#
+ #{x\ 5946}#
+ #{keys\ 5947}#
+ (cdr #{clauses\ 5948}#)
+ #{r\ 5949}#
+ #{pat\ 5964}#
#t
- #{exp\ 3855}#
- #{mod\ 3840}#)))
- #{tmp\ 3851}#)
- (let ((#{tmp\ 3869}#
+ #{exp\ 5965}#
+ #{mod\ 5950}#)))
+ #{tmp\ 5961}#)
+ (let ((#{tmp\ 5979}#
($sc-dispatch
- #{tmp\ 3850}#
+ #{tmp\ 5960}#
'(any any any))))
- (if #{tmp\ 3869}#
+ (if #{tmp\ 5979}#
(@apply
- (lambda (#{pat\ 3873}#
- #{fender\ 3874}#
- #{exp\ 3875}#)
- (#{gen-clause\ 3669}#
- #{x\ 3836}#
- #{keys\ 3837}#
- (cdr #{clauses\ 3838}#)
- #{r\ 3839}#
- #{pat\ 3873}#
- #{fender\ 3874}#
- #{exp\ 3875}#
- #{mod\ 3840}#))
- #{tmp\ 3869}#)
- (let ((#{_\ 3877}# #{tmp\ 3850}#))
+ (lambda (#{pat\ 5983}#
+ #{fender\ 5984}#
+ #{exp\ 5985}#)
+ (#{gen-clause\ 5779}#
+ #{x\ 5946}#
+ #{keys\ 5947}#
+ (cdr #{clauses\ 5948}#)
+ #{r\ 5949}#
+ #{pat\ 5983}#
+ #{fender\ 5984}#
+ #{exp\ 5985}#
+ #{mod\ 5950}#))
+ #{tmp\ 5979}#)
+ (let ((#{_\ 5987}# #{tmp\ 5960}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3838}#))))))))))))
+ (car #{clauses\ 5948}#))))))))))))
(begin
- (lambda (#{e\ 3878}#
- #{r\ 3879}#
- #{w\ 3880}#
- #{s\ 3881}#
- #{mod\ 3882}#)
+ (lambda (#{e\ 5988}#
+ #{r\ 5989}#
+ #{w\ 5990}#
+ #{s\ 5991}#
+ #{mod\ 5992}#)
(begin
- (let ((#{e\ 3889}#
- (#{source-wrap\ 458}#
- #{e\ 3878}#
- #{w\ 3880}#
- #{s\ 3881}#
- #{mod\ 3882}#)))
- (let ((#{tmp\ 3890}# #{e\ 3889}#))
- (let ((#{tmp\ 3891}#
+ (let ((#{e\ 5999}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5988}#
+ #{w\ 5990}#
+ #{s\ 5991}#
+ #{mod\ 5992}#)))
+ (let ((#{tmp\ 6000}# #{e\ 5999}#))
+ (let ((#{tmp\ 6001}#
($sc-dispatch
- #{tmp\ 3890}#
+ #{tmp\ 6000}#
'(any any each-any . each-any))))
- (if #{tmp\ 3891}#
+ (if #{tmp\ 6001}#
(@apply
- (lambda (#{_\ 3896}#
- #{val\ 3897}#
- #{key\ 3898}#
- #{m\ 3899}#)
+ (lambda (#{_\ 6006}#
+ #{val\ 6007}#
+ #{key\ 6008}#
+ #{m\ 6009}#)
(if (and-map
- (lambda (#{x\ 3900}#)
- (if (#{id?\ 387}# #{x\ 3900}#)
- (not (#{ellipsis?\ 488}#
- #{x\ 3900}#))
+ (lambda (#{x\ 6010}#)
+ (if (#{id?\ 2496}# #{x\ 6010}#)
+ (not (#{ellipsis?\ 2597}#
+ #{x\ 6010}#))
#f))
- #{key\ 3898}#)
+ #{key\ 6008}#)
(begin
- (let ((#{x\ 3906}#
- (#{gen-var\ 500}# (quote tmp))))
- (#{build-application\ 309}#
- #{s\ 3881}#
- (#{build-simple-lambda\ 329}#
+ (let ((#{x\ 6016}#
+ (#{gen-var\ 2609}# (quote tmp))))
+ (#{build-application\ 2420}#
+ #{s\ 5991}#
+ (#{build-simple-lambda\ 2438}#
#f
(list (quote tmp))
#f
- (list #{x\ 3906}#)
+ (list #{x\ 6016}#)
'()
- (#{gen-syntax-case\ 3671}#
- (#{build-lexical-reference\ 315}#
+ (#{gen-syntax-case\ 5781}#
+ (#{build-lexical-reference\
2426}#
'value
#f
'tmp
- #{x\ 3906}#)
- #{key\ 3898}#
- #{m\ 3899}#
- #{r\ 3879}#
- #{mod\ 3882}#))
- (list (#{chi\ 472}#
- #{val\ 3897}#
- #{r\ 3879}#
+ #{x\ 6016}#)
+ #{key\ 6008}#
+ #{m\ 6009}#
+ #{r\ 5989}#
+ #{mod\ 5992}#))
+ (list (#{chi\ 2581}#
+ #{val\ 6007}#
+ #{r\ 5989}#
'(())
- #{mod\ 3882}#)))))
+ #{mod\ 5992}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3889}#)))
- #{tmp\ 3891}#)
+ #{e\ 5999}#)))
+ #{tmp\ 6001}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3890}#))))))))))
+ #{tmp\ 6000}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 3912}#
+ (#{x\ 6022}#
#:optional
- (#{m\ 3914}# (quote e))
- (#{esew\ 3916}# (quote (eval))))
- (#{chi-top\ 470}#
- #{x\ 3912}#
+ (#{m\ 6024}# (quote e))
+ (#{esew\ 6026}# (quote (eval))))
+ (#{chi-top\ 2579}#
+ #{x\ 6022}#
'()
'((top))
- #{m\ 3914}#
- #{esew\ 3916}#
+ #{m\ 6024}#
+ #{esew\ 6026}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3920}#)
- (#{nonsymbol-id?\ 385}# #{x\ 3920}#)))
+ (lambda (#{x\ 6030}#)
+ (#{nonsymbol-id?\ 2494}# #{x\ 6030}#)))
(set! datum->syntax
- (lambda (#{id\ 3922}# #{datum\ 3923}#)
- (#{make-syntax-object\ 349}#
- #{datum\ 3923}#
- (#{syntax-object-wrap\ 355}# #{id\ 3922}#)
- (#{syntax-object-module\ 357}# #{id\ 3922}#))))
+ (lambda (#{id\ 6032}# #{datum\ 6033}#)
+ (#{make-syntax-object\ 2458}#
+ #{datum\ 6033}#
+ (#{syntax-object-wrap\ 2464}# #{id\ 6032}#)
+ (#{syntax-object-module\ 2466}# #{id\ 6032}#))))
(set! syntax->datum
- (lambda (#{x\ 3926}#)
- (#{strip\ 498}# #{x\ 3926}# (quote (())))))
+ (lambda (#{x\ 6036}#)
+ (#{strip\ 2607}# #{x\ 6036}# (quote (())))))
(set! syntax-source
- (lambda (#{x\ 3929}#)
- (#{source-annotation\ 366}# #{x\ 3929}#)))
+ (lambda (#{x\ 6039}#)
+ (#{source-annotation\ 2475}# #{x\ 6039}#)))
(set! generate-temporaries
- (lambda (#{ls\ 3931}#)
+ (lambda (#{ls\ 6041}#)
(begin
(begin
- (let ((#{x\ 3935}# #{ls\ 3931}#))
- (if (not (list? #{x\ 3935}#))
+ (let ((#{x\ 6045}# #{ls\ 6041}#))
+ (if (not (list? #{x\ 6045}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3935}#))))
- (map (lambda (#{x\ 3936}#)
- (#{wrap\ 456}# (gensym) (quote ((top))) #f))
- #{ls\ 3931}#))))
+ #{x\ 6045}#))))
+ (map (lambda (#{x\ 6046}#)
+ (#{wrap\ 2565}# (gensym) (quote ((top))) #f))
+ #{ls\ 6041}#))))
(set! free-identifier=?
- (lambda (#{x\ 3940}# #{y\ 3941}#)
+ (lambda (#{x\ 6050}# #{y\ 6051}#)
(begin
(begin
- (let ((#{x\ 3946}# #{x\ 3940}#))
- (if (not (#{nonsymbol-id?\ 385}# #{x\ 3946}#))
+ (let ((#{x\ 6056}# #{x\ 6050}#))
+ (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6056}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3946}#))))
+ #{x\ 6056}#))))
(begin
- (let ((#{x\ 3949}# #{y\ 3941}#))
- (if (not (#{nonsymbol-id?\ 385}# #{x\ 3949}#))
+ (let ((#{x\ 6059}# #{y\ 6051}#))
+ (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6059}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3949}#))))
- (#{free-id=?\ 446}# #{x\ 3940}# #{y\ 3941}#))))
+ #{x\ 6059}#))))
+ (#{free-id=?\ 2555}# #{x\ 6050}# #{y\ 6051}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3950}# #{y\ 3951}#)
+ (lambda (#{x\ 6060}# #{y\ 6061}#)
(begin
(begin
- (let ((#{x\ 3956}# #{x\ 3950}#))
- (if (not (#{nonsymbol-id?\ 385}# #{x\ 3956}#))
+ (let ((#{x\ 6066}# #{x\ 6060}#))
+ (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6066}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3956}#))))
+ #{x\ 6066}#))))
(begin
- (let ((#{x\ 3959}# #{y\ 3951}#))
- (if (not (#{nonsymbol-id?\ 385}# #{x\ 3959}#))
+ (let ((#{x\ 6069}# #{y\ 6061}#))
+ (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6069}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3959}#))))
- (#{bound-id=?\ 448}# #{x\ 3950}# #{y\ 3951}#))))
+ #{x\ 6069}#))))
+ (#{bound-id=?\ 2557}# #{x\ 6060}# #{y\ 6061}#))))
(set! syntax-violation
- (lambda (#{who\ 3960}#
- #{message\ 3961}#
- #{form\ 3962}#
+ (lambda (#{who\ 6070}#
+ #{message\ 6071}#
+ #{form\ 6072}#
.
- #{subform\ 3963}#)
+ #{subform\ 6073}#)
(begin
(begin
- (let ((#{x\ 3970}# #{who\ 3960}#))
- (if (not (let ((#{x\ 3971}# #{x\ 3970}#))
+ (let ((#{x\ 6080}# #{who\ 6070}#))
+ (if (not (let ((#{x\ 6081}# #{x\ 6080}#))
(begin
- (let ((#{t\ 3975}# (not #{x\ 3971}#)))
- (if #{t\ 3975}#
- #{t\ 3975}#
+ (let ((#{t\ 6085}# (not #{x\ 6081}#)))
+ (if #{t\ 6085}#
+ #{t\ 6085}#
(begin
- (let ((#{t\ 3978}#
- (string? #{x\ 3971}#)))
- (if #{t\ 3978}#
- #{t\ 3978}#
- (symbol? #{x\ 3971}#)))))))))
+ (let ((#{t\ 6088}#
+ (string? #{x\ 6081}#)))
+ (if #{t\ 6088}#
+ #{t\ 6088}#
+ (symbol? #{x\ 6081}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3970}#))))
+ #{x\ 6080}#))))
(begin
- (let ((#{x\ 3982}# #{message\ 3961}#))
- (if (not (string? #{x\ 3982}#))
+ (let ((#{x\ 6092}# #{message\ 6071}#))
+ (if (not (string? #{x\ 6092}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3982}#))))
+ #{x\ 6092}#))))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 3960}# "~a: " "")
+ (if #{who\ 6070}# "~a: " "")
"~a "
- (if (null? #{subform\ 3963}#)
+ (if (null? #{subform\ 6073}#)
"in ~a"
"in subform `~s' of `~s'"))
(begin
- (let ((#{tail\ 3984}#
- (cons #{message\ 3961}#
- (map (lambda (#{x\ 3985}#)
- (#{strip\ 498}#
- #{x\ 3985}#
+ (let ((#{tail\ 6094}#
+ (cons #{message\ 6071}#
+ (map (lambda (#{x\ 6095}#)
+ (#{strip\ 2607}#
+ #{x\ 6095}#
'(())))
(append
- #{subform\ 3963}#
- (list #{form\ 3962}#))))))
- (if #{who\ 3960}#
- (cons #{who\ 3960}# #{tail\ 3984}#)
- #{tail\ 3984}#)))
+ #{subform\ 6073}#
+ (list #{form\ 6072}#))))))
+ (if #{who\ 6070}#
+ (cons #{who\ 6070}# #{tail\ 6094}#)
+ #{tail\ 6094}#)))
#f))))
(letrec*
- ((#{match-each\ 3989}#
- (lambda (#{e\ 4002}#
- #{p\ 4003}#
- #{w\ 4004}#
- #{mod\ 4005}#)
- (if (pair? #{e\ 4002}#)
+ ((#{match-each\ 6099}#
+ (lambda (#{e\ 6112}#
+ #{p\ 6113}#
+ #{w\ 6114}#
+ #{mod\ 6115}#)
+ (if (pair? #{e\ 6112}#)
(begin
- (let ((#{first\ 4013}#
- (#{match\ 4001}#
- (car #{e\ 4002}#)
- #{p\ 4003}#
- #{w\ 4004}#
+ (let ((#{first\ 6123}#
+ (#{match\ 6111}#
+ (car #{e\ 6112}#)
+ #{p\ 6113}#
+ #{w\ 6114}#
'()
- #{mod\ 4005}#)))
- (if #{first\ 4013}#
+ #{mod\ 6115}#)))
+ (if #{first\ 6123}#
(begin
- (let ((#{rest\ 4017}#
- (#{match-each\ 3989}#
- (cdr #{e\ 4002}#)
- #{p\ 4003}#
- #{w\ 4004}#
- #{mod\ 4005}#)))
- (if #{rest\ 4017}#
- (cons #{first\ 4013}# #{rest\ 4017}#)
+ (let ((#{rest\ 6127}#
+ (#{match-each\ 6099}#
+ (cdr #{e\ 6112}#)
+ #{p\ 6113}#
+ #{w\ 6114}#
+ #{mod\ 6115}#)))
+ (if #{rest\ 6127}#
+ (cons #{first\ 6123}# #{rest\ 6127}#)
#f)))
#f)))
- (if (null? #{e\ 4002}#)
+ (if (null? #{e\ 6112}#)
'()
- (if (#{syntax-object?\ 351}# #{e\ 4002}#)
- (#{match-each\ 3989}#
- (#{syntax-object-expression\ 353}# #{e\ 4002}#)
- #{p\ 4003}#
- (#{join-wraps\ 438}#
- #{w\ 4004}#
- (#{syntax-object-wrap\ 355}# #{e\ 4002}#))
- (#{syntax-object-module\ 357}# #{e\ 4002}#))
+ (if (#{syntax-object?\ 2460}# #{e\ 6112}#)
+ (#{match-each\ 6099}#
+ (#{syntax-object-expression\ 2462}# #{e\ 6112}#)
+ #{p\ 6113}#
+ (#{join-wraps\ 2547}#
+ #{w\ 6114}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 6112}#))
+ (#{syntax-object-module\ 2466}# #{e\ 6112}#))
#f)))))
- (#{match-each+\ 3991}#
- (lambda (#{e\ 4025}#
- #{x-pat\ 4026}#
- #{y-pat\ 4027}#
- #{z-pat\ 4028}#
- #{w\ 4029}#
- #{r\ 4030}#
- #{mod\ 4031}#)
+ (#{match-each+\ 6101}#
+ (lambda (#{e\ 6135}#
+ #{x-pat\ 6136}#
+ #{y-pat\ 6137}#
+ #{z-pat\ 6138}#
+ #{w\ 6139}#
+ #{r\ 6140}#
+ #{mod\ 6141}#)
(letrec*
- ((#{f\ 4042}#
- (lambda (#{e\ 4043}# #{w\ 4044}#)
- (if (pair? #{e\ 4043}#)
+ ((#{f\ 6152}#
+ (lambda (#{e\ 6153}# #{w\ 6154}#)
+ (if (pair? #{e\ 6153}#)
(call-with-values
(lambda ()
- (#{f\ 4042}# (cdr #{e\ 4043}#) #{w\ 4044}#))
- (lambda (#{xr*\ 4047}#
- #{y-pat\ 4048}#
- #{r\ 4049}#)
- (if #{r\ 4049}#
- (if (null? #{y-pat\ 4048}#)
+ (#{f\ 6152}# (cdr #{e\ 6153}#) #{w\ 6154}#))
+ (lambda (#{xr*\ 6157}#
+ #{y-pat\ 6158}#
+ #{r\ 6159}#)
+ (if #{r\ 6159}#
+ (if (null? #{y-pat\ 6158}#)
(begin
- (let ((#{xr\ 4054}#
- (#{match\ 4001}#
- (car #{e\ 4043}#)
- #{x-pat\ 4026}#
- #{w\ 4044}#
+ (let ((#{xr\ 6164}#
+ (#{match\ 6111}#
+ (car #{e\ 6153}#)
+ #{x-pat\ 6136}#
+ #{w\ 6154}#
'()
- #{mod\ 4031}#)))
- (if #{xr\ 4054}#
+ #{mod\ 6141}#)))
+ (if #{xr\ 6164}#
(values
- (cons #{xr\ 4054}# #{xr*\ 4047}#)
- #{y-pat\ 4048}#
- #{r\ 4049}#)
+ (cons #{xr\ 6164}# #{xr*\ 6157}#)
+ #{y-pat\ 6158}#
+ #{r\ 6159}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat\ 4048}#)
- (#{match\ 4001}#
- (car #{e\ 4043}#)
- (car #{y-pat\ 4048}#)
- #{w\ 4044}#
- #{r\ 4049}#
- #{mod\ 4031}#)))
+ (cdr #{y-pat\ 6158}#)
+ (#{match\ 6111}#
+ (car #{e\ 6153}#)
+ (car #{y-pat\ 6158}#)
+ #{w\ 6154}#
+ #{r\ 6159}#
+ #{mod\ 6141}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 351}# #{e\ 4043}#)
- (#{f\ 4042}#
- (#{syntax-object-expression\ 353}# #{e\ 4043}#)
- (#{join-wraps\ 438}# #{w\ 4044}# #{e\ 4043}#))
+ (if (#{syntax-object?\ 2460}# #{e\ 6153}#)
+ (#{f\ 6152}#
+ (#{syntax-object-expression\ 2462}#
+ #{e\ 6153}#)
+ (#{join-wraps\ 2547}# #{w\ 6154}# #{e\ 6153}#))
(values
'()
- #{y-pat\ 4027}#
- (#{match\ 4001}#
- #{e\ 4043}#
- #{z-pat\ 4028}#
- #{w\ 4044}#
- #{r\ 4030}#
- #{mod\ 4031}#)))))))
- (begin (#{f\ 4042}# #{e\ 4025}# #{w\ 4029}#)))))
- (#{match-each-any\ 3993}#
- (lambda (#{e\ 4058}# #{w\ 4059}# #{mod\ 4060}#)
- (if (pair? #{e\ 4058}#)
+ #{y-pat\ 6137}#
+ (#{match\ 6111}#
+ #{e\ 6153}#
+ #{z-pat\ 6138}#
+ #{w\ 6154}#
+ #{r\ 6140}#
+ #{mod\ 6141}#)))))))
+ (begin (#{f\ 6152}# #{e\ 6135}# #{w\ 6139}#)))))
+ (#{match-each-any\ 6103}#
+ (lambda (#{e\ 6168}# #{w\ 6169}# #{mod\ 6170}#)
+ (if (pair? #{e\ 6168}#)
(begin
- (let ((#{l\ 4067}#
- (#{match-each-any\ 3993}#
- (cdr #{e\ 4058}#)
- #{w\ 4059}#
- #{mod\ 4060}#)))
- (if #{l\ 4067}#
- (cons (#{wrap\ 456}#
- (car #{e\ 4058}#)
- #{w\ 4059}#
- #{mod\ 4060}#)
- #{l\ 4067}#)
+ (let ((#{l\ 6177}#
+ (#{match-each-any\ 6103}#
+ (cdr #{e\ 6168}#)
+ #{w\ 6169}#
+ #{mod\ 6170}#)))
+ (if #{l\ 6177}#
+ (cons (#{wrap\ 2565}#
+ (car #{e\ 6168}#)
+ #{w\ 6169}#
+ #{mod\ 6170}#)
+ #{l\ 6177}#)
#f)))
- (if (null? #{e\ 4058}#)
+ (if (null? #{e\ 6168}#)
'()
- (if (#{syntax-object?\ 351}# #{e\ 4058}#)
- (#{match-each-any\ 3993}#
- (#{syntax-object-expression\ 353}# #{e\ 4058}#)
- (#{join-wraps\ 438}#
- #{w\ 4059}#
- (#{syntax-object-wrap\ 355}# #{e\ 4058}#))
- #{mod\ 4060}#)
+ (if (#{syntax-object?\ 2460}# #{e\ 6168}#)
+ (#{match-each-any\ 6103}#
+ (#{syntax-object-expression\ 2462}# #{e\ 6168}#)
+ (#{join-wraps\ 2547}#
+ #{w\ 6169}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 6168}#))
+ #{mod\ 6170}#)
#f)))))
- (#{match-empty\ 3995}#
- (lambda (#{p\ 4075}# #{r\ 4076}#)
- (if (null? #{p\ 4075}#)
- #{r\ 4076}#
- (if (eq? #{p\ 4075}# (quote any))
- (cons (quote ()) #{r\ 4076}#)
- (if (pair? #{p\ 4075}#)
- (#{match-empty\ 3995}#
- (car #{p\ 4075}#)
- (#{match-empty\ 3995}#
- (cdr #{p\ 4075}#)
- #{r\ 4076}#))
- (if (eq? #{p\ 4075}# (quote each-any))
- (cons (quote ()) #{r\ 4076}#)
+ (#{match-empty\ 6105}#
+ (lambda (#{p\ 6185}# #{r\ 6186}#)
+ (if (null? #{p\ 6185}#)
+ #{r\ 6186}#
+ (if (eq? #{p\ 6185}# (quote any))
+ (cons (quote ()) #{r\ 6186}#)
+ (if (pair? #{p\ 6185}#)
+ (#{match-empty\ 6105}#
+ (car #{p\ 6185}#)
+ (#{match-empty\ 6105}#
+ (cdr #{p\ 6185}#)
+ #{r\ 6186}#))
+ (if (eq? #{p\ 6185}# (quote each-any))
+ (cons (quote ()) #{r\ 6186}#)
(begin
- (let ((#{atom-key\ 4090}#
- (vector-ref #{p\ 4075}# 0)))
- (if (eqv? #{atom-key\ 4090}# (quote each))
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4075}# 1)
- #{r\ 4076}#)
- (if (eqv? #{atom-key\ 4090}# (quote each+))
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4075}# 1)
- (#{match-empty\ 3995}#
- (reverse (vector-ref #{p\ 4075}# 2))
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4075}# 3)
- #{r\ 4076}#)))
- (if (if (eqv? #{atom-key\ 4090}#
+ (let ((#{atom-key\ 6200}#
+ (vector-ref #{p\ 6185}# 0)))
+ (if (eqv? #{atom-key\ 6200}# (quote each))
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6185}# 1)
+ #{r\ 6186}#)
+ (if (eqv? #{atom-key\ 6200}# (quote each+))
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6185}# 1)
+ (#{match-empty\ 6105}#
+ (reverse (vector-ref #{p\ 6185}# 2))
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6185}# 3)
+ #{r\ 6186}#)))
+ (if (if (eqv? #{atom-key\ 6200}#
'free-id)
#t
- (eqv? #{atom-key\ 4090}#
+ (eqv? #{atom-key\ 6200}#
'atom))
- #{r\ 4076}#
- (if (eqv? #{atom-key\ 4090}#
+ #{r\ 6186}#
+ (if (eqv? #{atom-key\ 6200}#
'vector)
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4075}# 1)
- #{r\ 4076}#)))))))))))))
- (#{combine\ 3997}#
- (lambda (#{r*\ 4095}# #{r\ 4096}#)
- (if (null? (car #{r*\ 4095}#))
- #{r\ 4096}#
- (cons (map car #{r*\ 4095}#)
- (#{combine\ 3997}#
- (map cdr #{r*\ 4095}#)
- #{r\ 4096}#)))))
- (#{match*\ 3999}#
- (lambda (#{e\ 4099}#
- #{p\ 4100}#
- #{w\ 4101}#
- #{r\ 4102}#
- #{mod\ 4103}#)
- (if (null? #{p\ 4100}#)
- (if (null? #{e\ 4099}#) #{r\ 4102}# #f)
- (if (pair? #{p\ 4100}#)
- (if (pair? #{e\ 4099}#)
- (#{match\ 4001}#
- (car #{e\ 4099}#)
- (car #{p\ 4100}#)
- #{w\ 4101}#
- (#{match\ 4001}#
- (cdr #{e\ 4099}#)
- (cdr #{p\ 4100}#)
- #{w\ 4101}#
- #{r\ 4102}#
- #{mod\ 4103}#)
- #{mod\ 4103}#)
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6185}# 1)
+ #{r\ 6186}#)))))))))))))
+ (#{combine\ 6107}#
+ (lambda (#{r*\ 6205}# #{r\ 6206}#)
+ (if (null? (car #{r*\ 6205}#))
+ #{r\ 6206}#
+ (cons (map car #{r*\ 6205}#)
+ (#{combine\ 6107}#
+ (map cdr #{r*\ 6205}#)
+ #{r\ 6206}#)))))
+ (#{match*\ 6109}#
+ (lambda (#{e\ 6209}#
+ #{p\ 6210}#
+ #{w\ 6211}#
+ #{r\ 6212}#
+ #{mod\ 6213}#)
+ (if (null? #{p\ 6210}#)
+ (if (null? #{e\ 6209}#) #{r\ 6212}# #f)
+ (if (pair? #{p\ 6210}#)
+ (if (pair? #{e\ 6209}#)
+ (#{match\ 6111}#
+ (car #{e\ 6209}#)
+ (car #{p\ 6210}#)
+ #{w\ 6211}#
+ (#{match\ 6111}#
+ (cdr #{e\ 6209}#)
+ (cdr #{p\ 6210}#)
+ #{w\ 6211}#
+ #{r\ 6212}#
+ #{mod\ 6213}#)
+ #{mod\ 6213}#)
#f)
- (if (eq? #{p\ 4100}# (quote each-any))
+ (if (eq? #{p\ 6210}# (quote each-any))
(begin
- (let ((#{l\ 4120}#
- (#{match-each-any\ 3993}#
- #{e\ 4099}#
- #{w\ 4101}#
- #{mod\ 4103}#)))
- (if #{l\ 4120}#
- (cons #{l\ 4120}# #{r\ 4102}#)
+ (let ((#{l\ 6230}#
+ (#{match-each-any\ 6103}#
+ #{e\ 6209}#
+ #{w\ 6211}#
+ #{mod\ 6213}#)))
+ (if #{l\ 6230}#
+ (cons #{l\ 6230}# #{r\ 6212}#)
#f)))
(begin
- (let ((#{atom-key\ 4126}#
- (vector-ref #{p\ 4100}# 0)))
- (if (eqv? #{atom-key\ 4126}# (quote each))
- (if (null? #{e\ 4099}#)
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4100}# 1)
- #{r\ 4102}#)
+ (let ((#{atom-key\ 6236}#
+ (vector-ref #{p\ 6210}# 0)))
+ (if (eqv? #{atom-key\ 6236}# (quote each))
+ (if (null? #{e\ 6209}#)
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6210}# 1)
+ #{r\ 6212}#)
(begin
- (let ((#{l\ 4129}#
- (#{match-each\ 3989}#
- #{e\ 4099}#
- (vector-ref #{p\ 4100}# 1)
- #{w\ 4101}#
- #{mod\ 4103}#)))
- (if #{l\ 4129}#
+ (let ((#{l\ 6239}#
+ (#{match-each\ 6099}#
+ #{e\ 6209}#
+ (vector-ref #{p\ 6210}# 1)
+ #{w\ 6211}#
+ #{mod\ 6213}#)))
+ (if #{l\ 6239}#
(letrec*
- ((#{collect\ 4134}#
- (lambda (#{l\ 4135}#)
- (if (null? (car #{l\ 4135}#))
- #{r\ 4102}#
- (cons (map car #{l\ 4135}#)
- (#{collect\ 4134}#
+ ((#{collect\ 6244}#
+ (lambda (#{l\ 6245}#)
+ (if (null? (car #{l\ 6245}#))
+ #{r\ 6212}#
+ (cons (map car #{l\ 6245}#)
+ (#{collect\ 6244}#
(map cdr
- #{l\ 4135}#)))))))
+ #{l\ 6245}#)))))))
(begin
- (#{collect\ 4134}# #{l\ 4129}#)))
+ (#{collect\ 6244}# #{l\ 6239}#)))
#f))))
- (if (eqv? #{atom-key\ 4126}# (quote each+))
+ (if (eqv? #{atom-key\ 6236}# (quote each+))
(call-with-values
(lambda ()
- (#{match-each+\ 3991}#
- #{e\ 4099}#
- (vector-ref #{p\ 4100}# 1)
- (vector-ref #{p\ 4100}# 2)
- (vector-ref #{p\ 4100}# 3)
- #{w\ 4101}#
- #{r\ 4102}#
- #{mod\ 4103}#))
- (lambda (#{xr*\ 4137}#
- #{y-pat\ 4138}#
- #{r\ 4139}#)
- (if #{r\ 4139}#
- (if (null? #{y-pat\ 4138}#)
- (if (null? #{xr*\ 4137}#)
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4100}# 1)
- #{r\ 4139}#)
- (#{combine\ 3997}#
- #{xr*\ 4137}#
- #{r\ 4139}#))
+ (#{match-each+\ 6101}#
+ #{e\ 6209}#
+ (vector-ref #{p\ 6210}# 1)
+ (vector-ref #{p\ 6210}# 2)
+ (vector-ref #{p\ 6210}# 3)
+ #{w\ 6211}#
+ #{r\ 6212}#
+ #{mod\ 6213}#))
+ (lambda (#{xr*\ 6247}#
+ #{y-pat\ 6248}#
+ #{r\ 6249}#)
+ (if #{r\ 6249}#
+ (if (null? #{y-pat\ 6248}#)
+ (if (null? #{xr*\ 6247}#)
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6210}# 1)
+ #{r\ 6249}#)
+ (#{combine\ 6107}#
+ #{xr*\ 6247}#
+ #{r\ 6249}#))
#f)
#f)))
- (if (eqv? #{atom-key\ 4126}# (quote free-id))
- (if (#{id?\ 387}# #{e\ 4099}#)
- (if (#{free-id=?\ 446}#
- (#{wrap\ 456}#
- #{e\ 4099}#
- #{w\ 4101}#
- #{mod\ 4103}#)
- (vector-ref #{p\ 4100}# 1))
- #{r\ 4102}#
+ (if (eqv? #{atom-key\ 6236}# (quote free-id))
+ (if (#{id?\ 2496}# #{e\ 6209}#)
+ (if (#{free-id=?\ 2555}#
+ (#{wrap\ 2565}#
+ #{e\ 6209}#
+ #{w\ 6211}#
+ #{mod\ 6213}#)
+ (vector-ref #{p\ 6210}# 1))
+ #{r\ 6212}#
#f)
#f)
- (if (eqv? #{atom-key\ 4126}# (quote atom))
+ (if (eqv? #{atom-key\ 6236}# (quote atom))
(if (equal?
- (vector-ref #{p\ 4100}# 1)
- (#{strip\ 498}#
- #{e\ 4099}#
- #{w\ 4101}#))
- #{r\ 4102}#
+ (vector-ref #{p\ 6210}# 1)
+ (#{strip\ 2607}#
+ #{e\ 6209}#
+ #{w\ 6211}#))
+ #{r\ 6212}#
#f)
- (if (eqv? #{atom-key\ 4126}#
+ (if (eqv? #{atom-key\ 6236}#
'vector)
- (if (vector? #{e\ 4099}#)
- (#{match\ 4001}#
- (vector->list #{e\ 4099}#)
- (vector-ref #{p\ 4100}# 1)
- #{w\ 4101}#
- #{r\ 4102}#
- #{mod\ 4103}#)
+ (if (vector? #{e\ 6209}#)
+ (#{match\ 6111}#
+ (vector->list #{e\ 6209}#)
+ (vector-ref #{p\ 6210}# 1)
+ #{w\ 6211}#
+ #{r\ 6212}#
+ #{mod\ 6213}#)
#f)))))))))))))
- (#{match\ 4001}#
- (lambda (#{e\ 4156}#
- #{p\ 4157}#
- #{w\ 4158}#
- #{r\ 4159}#
- #{mod\ 4160}#)
- (if (not #{r\ 4159}#)
+ (#{match\ 6111}#
+ (lambda (#{e\ 6266}#
+ #{p\ 6267}#
+ #{w\ 6268}#
+ #{r\ 6269}#
+ #{mod\ 6270}#)
+ (if (not #{r\ 6269}#)
#f
- (if (eq? #{p\ 4157}# (quote any))
- (cons (#{wrap\ 456}#
- #{e\ 4156}#
- #{w\ 4158}#
- #{mod\ 4160}#)
- #{r\ 4159}#)
- (if (#{syntax-object?\ 351}# #{e\ 4156}#)
- (#{match*\ 3999}#
- (#{syntax-object-expression\ 353}# #{e\ 4156}#)
- #{p\ 4157}#
- (#{join-wraps\ 438}#
- #{w\ 4158}#
- (#{syntax-object-wrap\ 355}# #{e\ 4156}#))
- #{r\ 4159}#
- (#{syntax-object-module\ 357}# #{e\ 4156}#))
- (#{match*\ 3999}#
- #{e\ 4156}#
- #{p\ 4157}#
- #{w\ 4158}#
- #{r\ 4159}#
- #{mod\ 4160}#)))))))
+ (if (eq? #{p\ 6267}# (quote any))
+ (cons (#{wrap\ 2565}#
+ #{e\ 6266}#
+ #{w\ 6268}#
+ #{mod\ 6270}#)
+ #{r\ 6269}#)
+ (if (#{syntax-object?\ 2460}# #{e\ 6266}#)
+ (#{match*\ 6109}#
+ (#{syntax-object-expression\ 2462}# #{e\ 6266}#)
+ #{p\ 6267}#
+ (#{join-wraps\ 2547}#
+ #{w\ 6268}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 6266}#))
+ #{r\ 6269}#
+ (#{syntax-object-module\ 2466}# #{e\ 6266}#))
+ (#{match*\ 6109}#
+ #{e\ 6266}#
+ #{p\ 6267}#
+ #{w\ 6268}#
+ #{r\ 6269}#
+ #{mod\ 6270}#)))))))
(begin
(set! $sc-dispatch
- (lambda (#{e\ 4173}# #{p\ 4174}#)
- (if (eq? #{p\ 4174}# (quote any))
- (list #{e\ 4173}#)
- (if (#{syntax-object?\ 351}# #{e\ 4173}#)
- (#{match*\ 3999}#
- (#{syntax-object-expression\ 353}# #{e\ 4173}#)
- #{p\ 4174}#
- (#{syntax-object-wrap\ 355}# #{e\ 4173}#)
+ (lambda (#{e\ 6283}# #{p\ 6284}#)
+ (if (eq? #{p\ 6284}# (quote any))
+ (list #{e\ 6283}#)
+ (if (#{syntax-object?\ 2460}# #{e\ 6283}#)
+ (#{match*\ 6109}#
+ (#{syntax-object-expression\ 2462}# #{e\ 6283}#)
+ #{p\ 6284}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 6283}#)
'()
- (#{syntax-object-module\ 357}# #{e\ 4173}#))
- (#{match*\ 3999}#
- #{e\ 4173}#
- #{p\ 4174}#
+ (#{syntax-object-module\ 2466}# #{e\ 6283}#))
+ (#{match*\ 6109}#
+ #{e\ 6283}#
+ #{p\ 6284}#
'(())
'()
#f)))))))))))))
@@ -13279,87 +13349,87 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4183}#)
- (let ((#{tmp\ 4185}# #{x\ 4183}#))
- (let ((#{tmp\ 4186}#
+ (lambda (#{x\ 6293}#)
+ (let ((#{tmp\ 6295}# #{x\ 6293}#))
+ (let ((#{tmp\ 6296}#
($sc-dispatch
- #{tmp\ 4185}#
+ #{tmp\ 6295}#
'(any () any . each-any))))
- (if #{tmp\ 4186}#
+ (if #{tmp\ 6296}#
(@apply
- (lambda (#{_\ 4190}# #{e1\ 4191}# #{e2\ 4192}#)
+ (lambda (#{_\ 6300}# #{e1\ 6301}# #{e2\ 6302}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i4187" "i4188" "i4189"))
+ #("i6297" "i6298" "i6299"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
- (cons #{e1\ 4191}# #{e2\ 4192}#)))
- #{tmp\ 4186}#)
- (let ((#{tmp\ 4194}#
+ (cons #{e1\ 6301}# #{e2\ 6302}#)))
+ #{tmp\ 6296}#)
+ (let ((#{tmp\ 6304}#
($sc-dispatch
- #{tmp\ 4185}#
+ #{tmp\ 6295}#
'(any ((any any)) any . each-any))))
- (if #{tmp\ 4194}#
+ (if #{tmp\ 6304}#
(@apply
- (lambda (#{_\ 4200}#
- #{out\ 4201}#
- #{in\ 4202}#
- #{e1\ 4203}#
- #{e2\ 4204}#)
+ (lambda (#{_\ 6310}#
+ #{out\ 6311}#
+ #{in\ 6312}#
+ #{e1\ 6313}#
+ #{e2\ 6314}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4195" "i4196" "i4197" "i4198" "i4199"))
+ #("i6305" "i6306" "i6307" "i6308" "i6309"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
- #{in\ 4202}#
+ #{in\ 6312}#
'()
- (list #{out\ 4201}#
+ (list #{out\ 6311}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4195"
- "i4196"
- "i4197"
- "i4198"
- "i4199"))
+ #("i6305"
+ "i6306"
+ "i6307"
+ "i6308"
+ "i6309"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
- (cons #{e1\ 4203}# #{e2\ 4204}#)))))
- #{tmp\ 4194}#)
- (let ((#{tmp\ 4206}#
+ (cons #{e1\ 6313}# #{e2\ 6314}#)))))
+ #{tmp\ 6304}#)
+ (let ((#{tmp\ 6316}#
($sc-dispatch
- #{tmp\ 4185}#
+ #{tmp\ 6295}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 4206}#
+ (if #{tmp\ 6316}#
(@apply
- (lambda (#{_\ 4212}#
- #{out\ 4213}#
- #{in\ 4214}#
- #{e1\ 4215}#
- #{e2\ 4216}#)
+ (lambda (#{_\ 6322}#
+ #{out\ 6323}#
+ #{in\ 6324}#
+ #{e1\ 6325}#
+ #{e2\ 6326}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4207" "i4208" "i4209" "i4210" "i4211"))
+ #("i6317" "i6318" "i6319" "i6320" "i6321"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -13367,17 +13437,17 @@
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4207"
- "i4208"
- "i4209"
- "i4210"
- "i4211"))
+ #("i6317"
+ "i6318"
+ "i6319"
+ "i6320"
+ "i6321"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
- #{in\ 4214}#)
+ #{in\ 6324}#)
'()
- (list #{out\ 4213}#
+ (list #{out\ 6323}#
(cons '#(syntax-object
begin
((top)
@@ -13388,50 +13458,50 @@
(top)
(top)
(top))
- #("i4207"
- "i4208"
- "i4209"
- "i4210"
- "i4211"))
+ #("i6317"
+ "i6318"
+ "i6319"
+ "i6320"
+ "i6321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4184")))
+ #("i6294")))
(hygiene guile))
- (cons #{e1\ 4215}# #{e2\ 4216}#)))))
- #{tmp\ 4206}#)
+ (cons #{e1\ 6325}# #{e2\ 6326}#)))))
+ #{tmp\ 6316}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4185}#)))))))))))
+ #{tmp\ 6295}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4220}#)
- (let ((#{tmp\ 4222}# #{x\ 4220}#))
- (let ((#{tmp\ 4223}#
+ (lambda (#{x\ 6330}#)
+ (let ((#{tmp\ 6332}# #{x\ 6330}#))
+ (let ((#{tmp\ 6333}#
($sc-dispatch
- #{tmp\ 4222}#
+ #{tmp\ 6332}#
'(any each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4223}#
+ (if #{tmp\ 6333}#
(@apply
- (lambda (#{_\ 4229}#
- #{k\ 4230}#
- #{keyword\ 4231}#
- #{pattern\ 4232}#
- #{template\ 4233}#)
+ (lambda (#{_\ 6339}#
+ #{k\ 6340}#
+ #{keyword\ 6341}#
+ #{pattern\ 6342}#
+ #{template\ 6343}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
'(#(syntax-object
x
@@ -13439,9 +13509,9 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -13450,9 +13520,9 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
.
#(syntax-object
@@ -13461,9 +13531,9 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -13471,20 +13541,20 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
- #{pattern\ 4232}#))
+ #{pattern\ 6342}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -13492,17 +13562,17 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4224"
- "i4225"
- "i4226"
- "i4227"
- "i4228"))
+ #("i6334"
+ "i6335"
+ "i6336"
+ "i6337"
+ "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
- (cons #{k\ 4230}#
- (map (lambda (#{tmp\ 4237}#
- #{tmp\ 4236}#)
+ (cons #{k\ 6340}#
+ (map (lambda (#{tmp\ 6347}#
+ #{tmp\ 6346}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -13517,11 +13587,11 @@
(top)
(top)
(top))
- #("i4224"
- "i4225"
- "i4226"
- "i4227"
- "i4228"))
+ #("i6334"
+ "i6335"
+ "i6336"
+ "i6337"
+ "i6338"))
#(ribcage
()
()
@@ -13529,9 +13599,9 @@
#(ribcage
#(x)
#((top))
- #("i4221")))
+ #("i6331")))
(hygiene guile))
- #{tmp\ 4236}#)
+ #{tmp\ 6346}#)
(list '#(syntax-object
syntax
((top)
@@ -13546,11 +13616,11 @@
(top)
(top)
(top))
- #("i4224"
- "i4225"
- "i4226"
- "i4227"
- "i4228"))
+ #("i6334"
+ "i6335"
+ "i6336"
+ "i6337"
+ "i6338"))
#(ribcage
()
()
@@ -13558,47 +13628,47 @@
#(ribcage
#(x)
#((top))
- #("i4221")))
+ #("i6331")))
(hygiene guile))
- #{tmp\ 4237}#)))
- #{template\ 4233}#
- #{pattern\ 4232}#))))))
- #{tmp\ 4223}#)
+ #{tmp\ 6347}#)))
+ #{template\ 6343}#
+ #{pattern\ 6342}#))))))
+ #{tmp\ 6333}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4222}#)))))))
+ #{tmp\ 6332}#)))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4238}#)
- (let ((#{tmp\ 4240}# #{x\ 4238}#))
- (let ((#{tmp\ 4241}#
+ (lambda (#{x\ 6348}#)
+ (let ((#{tmp\ 6350}# #{x\ 6348}#))
+ (let ((#{tmp\ 6351}#
($sc-dispatch
- #{tmp\ 4240}#
+ #{tmp\ 6350}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4241}#
+ (if (if #{tmp\ 6351}#
(@apply
- (lambda (#{let*\ 4247}#
- #{x\ 4248}#
- #{v\ 4249}#
- #{e1\ 4250}#
- #{e2\ 4251}#)
- (and-map identifier? #{x\ 4248}#))
- #{tmp\ 4241}#)
+ (lambda (#{let*\ 6357}#
+ #{x\ 6358}#
+ #{v\ 6359}#
+ #{e1\ 6360}#
+ #{e2\ 6361}#)
+ (and-map identifier? #{x\ 6358}#))
+ #{tmp\ 6351}#)
#f)
(@apply
- (lambda (#{let*\ 4258}#
- #{x\ 4259}#
- #{v\ 4260}#
- #{e1\ 4261}#
- #{e2\ 4262}#)
+ (lambda (#{let*\ 6368}#
+ #{x\ 6369}#
+ #{v\ 6370}#
+ #{e1\ 6371}#
+ #{e2\ 6372}#)
(letrec*
- ((#{f\ 4265}#
- (lambda (#{bindings\ 4266}#)
- (if (null? #{bindings\ 4266}#)
+ ((#{f\ 6375}#
+ (lambda (#{bindings\ 6376}#)
+ (if (null? #{bindings\ 6376}#)
(cons '#(syntax-object
let
((top)
@@ -13606,129 +13676,129 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4263" "i4264"))
+ #("i6373" "i6374"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4253"
- "i4254"
- "i4255"
- "i4256"
- "i4257"))
+ #("i6363"
+ "i6364"
+ "i6365"
+ "i6366"
+ "i6367"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4239")))
+ #(ribcage #(x) #((top)) #("i6349")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4261}# #{e2\ 4262}#)))
- (let ((#{tmp\ 4271}#
- (list (#{f\ 4265}# (cdr #{bindings\ 4266}#))
- (car #{bindings\ 4266}#))))
- (let ((#{tmp\ 4272}#
+ (cons #{e1\ 6371}# #{e2\ 6372}#)))
+ (let ((#{tmp\ 6381}#
+ (list (#{f\ 6375}# (cdr #{bindings\ 6376}#))
+ (car #{bindings\ 6376}#))))
+ (let ((#{tmp\ 6382}#
($sc-dispatch
- #{tmp\ 4271}#
+ #{tmp\ 6381}#
'(any any))))
- (if #{tmp\ 4272}#
+ (if #{tmp\ 6382}#
(@apply
- (lambda (#{body\ 4275}# #{binding\ 4276}#)
+ (lambda (#{body\ 6385}# #{binding\ 6386}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4273" "i4274"))
+ #("i6383" "i6384"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4263" "i4264"))
+ #("i6373" "i6374"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4253"
- "i4254"
- "i4255"
- "i4256"
- "i4257"))
+ #("i6363"
+ "i6364"
+ "i6365"
+ "i6366"
+ "i6367"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4239")))
+ #("i6349")))
(hygiene guile))
- (list #{binding\ 4276}#)
- #{body\ 4275}#))
- #{tmp\ 4272}#)
+ (list #{binding\ 6386}#)
+ #{body\ 6385}#))
+ #{tmp\ 6382}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4271}#))))))))
+ #{tmp\ 6381}#))))))))
(begin
- (#{f\ 4265}# (map list #{x\ 4259}# #{v\ 4260}#)))))
- #{tmp\ 4241}#)
+ (#{f\ 6375}# (map list #{x\ 6369}# #{v\ 6370}#)))))
+ #{tmp\ 6351}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4240}#)))))))
+ #{tmp\ 6350}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4277}#)
- (let ((#{tmp\ 4279}# #{orig-x\ 4277}#))
- (let ((#{tmp\ 4280}#
+ (lambda (#{orig-x\ 6387}#)
+ (let ((#{tmp\ 6389}# #{orig-x\ 6387}#))
+ (let ((#{tmp\ 6390}#
($sc-dispatch
- #{tmp\ 4279}#
+ #{tmp\ 6389}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp\ 4280}#
+ (if #{tmp\ 6390}#
(@apply
- (lambda (#{_\ 4288}#
- #{var\ 4289}#
- #{init\ 4290}#
- #{step\ 4291}#
- #{e0\ 4292}#
- #{e1\ 4293}#
- #{c\ 4294}#)
- (let ((#{tmp\ 4296}#
- (map (lambda (#{v\ 4317}# #{s\ 4318}#)
- (let ((#{tmp\ 4321}# #{s\ 4318}#))
- (let ((#{tmp\ 4322}#
+ (lambda (#{_\ 6398}#
+ #{var\ 6399}#
+ #{init\ 6400}#
+ #{step\ 6401}#
+ #{e0\ 6402}#
+ #{e1\ 6403}#
+ #{c\ 6404}#)
+ (let ((#{tmp\ 6406}#
+ (map (lambda (#{v\ 6427}# #{s\ 6428}#)
+ (let ((#{tmp\ 6431}# #{s\ 6428}#))
+ (let ((#{tmp\ 6432}#
($sc-dispatch
- #{tmp\ 4321}#
+ #{tmp\ 6431}#
'())))
- (if #{tmp\ 4322}#
+ (if #{tmp\ 6432}#
(@apply
- (lambda () #{v\ 4317}#)
- #{tmp\ 4322}#)
- (let ((#{tmp\ 4323}#
+ (lambda () #{v\ 6427}#)
+ #{tmp\ 6432}#)
+ (let ((#{tmp\ 6433}#
($sc-dispatch
- #{tmp\ 4321}#
+ #{tmp\ 6431}#
'(any))))
- (if #{tmp\ 4323}#
+ (if #{tmp\ 6433}#
(@apply
- (lambda (#{e\ 4325}#) #{e\ 4325}#)
- #{tmp\ 4323}#)
- (let ((#{_\ 4327}# #{tmp\ 4321}#))
+ (lambda (#{e\ 6435}#) #{e\ 6435}#)
+ #{tmp\ 6433}#)
+ (let ((#{_\ 6437}# #{tmp\ 6431}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4277}#
- #{s\ 4318}#))))))))
- #{var\ 4289}#
- #{step\ 4291}#)))
- (let ((#{tmp\ 4297}#
- ($sc-dispatch #{tmp\ 4296}# (quote each-any))))
- (if #{tmp\ 4297}#
+ #{orig-x\ 6387}#
+ #{s\ 6428}#))))))))
+ #{var\ 6399}#
+ #{step\ 6401}#)))
+ (let ((#{tmp\ 6407}#
+ ($sc-dispatch #{tmp\ 6406}# (quote each-any))))
+ (if #{tmp\ 6407}#
(@apply
- (lambda (#{step\ 4299}#)
- (let ((#{tmp\ 4300}# #{e1\ 4293}#))
- (let ((#{tmp\ 4301}#
- ($sc-dispatch #{tmp\ 4300}# (quote ()))))
- (if #{tmp\ 4301}#
+ (lambda (#{step\ 6409}#)
+ (let ((#{tmp\ 6410}# #{e1\ 6403}#))
+ (let ((#{tmp\ 6411}#
+ ($sc-dispatch #{tmp\ 6410}# (quote ()))))
+ (if #{tmp\ 6411}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -13737,7 +13807,7 @@
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
@@ -13747,18 +13817,18 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
'#(syntax-object
doloop
@@ -13766,7 +13836,7 @@
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
@@ -13776,29 +13846,29 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
(map list
- #{var\ 4289}#
- #{init\ 4290}#)
+ #{var\ 6399}#
+ #{init\ 6400}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_
var
@@ -13814,18 +13884,18 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
(list '#(syntax-object
not
@@ -13833,7 +13903,7 @@
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_
var
@@ -13849,27 +13919,27 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
- #{e0\ 4292}#)
+ #{e0\ 6402}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_
var
@@ -13885,28 +13955,28 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
(append
- #{c\ 4294}#
+ #{c\ 6404}#
(list (cons
'#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i4298"))
+
#("i6408"))
#(ribcage
#(_
var
@@ -13922,13 +13992,13 @@
(top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"
-
"i4284"
-
"i4285"
-
"i4286"
-
"i4287"))
+
#("i6391"
+
"i6392"
+
"i6393"
+
"i6394"
+
"i6395"
+
"i6396"
+
"i6397"))
#(ribcage
()
()
@@ -13936,29 +14006,29 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4278")))
+
#("i6388")))
(hygiene
guile))
- #{step\
4299}#)))))))
- #{tmp\ 4301}#)
- (let ((#{tmp\ 4306}#
+ #{step\
6409}#)))))))
+ #{tmp\ 6411}#)
+ (let ((#{tmp\ 6416}#
($sc-dispatch
- #{tmp\ 4300}#
+ #{tmp\ 6410}#
'(any . each-any))))
- (if #{tmp\ 4306}#
+ (if #{tmp\ 6416}#
(@apply
- (lambda (#{e1\ 4309}# #{e2\ 4310}#)
+ (lambda (#{e1\ 6419}# #{e2\ 6420}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4307" "i4308"))
+ #("i6417" "i6418"))
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
@@ -13968,18 +14038,18 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
'#(syntax-object
doloop
@@ -13987,11 +14057,11 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4307" "i4308"))
+ #("i6417" "i6418"))
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
@@ -14001,33 +14071,33 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
(map list
- #{var\ 4289}#
- #{init\ 4290}#)
+ #{var\ 6399}#
+ #{init\ 6400}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4307" "i4308"))
+ #("i6417" "i6418"))
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_
var
@@ -14043,32 +14113,32 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
- #{e0\ 4292}#
+ #{e0\ 6402}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4307"
- "i4308"))
+ #("i6417"
+ "i6418"))
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_
var
@@ -14084,13 +14154,13 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage
()
()
@@ -14098,22 +14168,22 @@
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
- (cons #{e1\ 4309}#
- #{e2\ 4310}#))
+ (cons #{e1\ 6419}#
+ #{e2\ 6420}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4307"
- "i4308"))
+ #("i6417"
+ "i6418"))
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("i6408"))
#(ribcage
#(_
var
@@ -14129,13 +14199,13 @@
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage
()
()
@@ -14143,10 +14213,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("i6388")))
(hygiene guile))
(append
- #{c\ 4294}#
+ #{c\ 6404}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -14155,12 +14225,12 @@
e2)
#((top)
(top))
-
#("i4307"
-
"i4308"))
+
#("i6417"
+
"i6418"))
#(ribcage
#(step)
#((top))
-
#("i4298"))
+
#("i6408"))
#(ribcage
#(_
var
@@ -14176,13 +14246,13 @@
(top)
(top)
(top))
-
#("i4281"
-
"i4282"
-
"i4283"
-
"i4284"
-
"i4285"
-
"i4286"
-
"i4287"))
+
#("i6391"
+
"i6392"
+
"i6393"
+
"i6394"
+
"i6395"
+
"i6396"
+
"i6397"))
#(ribcage
()
()
@@ -14190,43 +14260,43 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4278")))
+
#("i6388")))
(hygiene
guile))
-
#{step\ 4299}#)))))))
- #{tmp\ 4306}#)
+
#{step\ 6409}#)))))))
+ #{tmp\ 6416}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4300}#)))))))
- #{tmp\ 4297}#)
+ #{tmp\ 6410}#)))))))
+ #{tmp\ 6407}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4296}#)))))
- #{tmp\ 4280}#)
+ #{tmp\ 6406}#)))))
+ #{tmp\ 6390}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4279}#)))))))
+ #{tmp\ 6389}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasicons\ 4334}#
- (lambda (#{x\ 4338}# #{y\ 4339}#)
- (let ((#{tmp\ 4343}# (list #{x\ 4338}# #{y\ 4339}#)))
- (let ((#{tmp\ 4344}#
- ($sc-dispatch #{tmp\ 4343}# (quote (any any)))))
- (if #{tmp\ 4344}#
+ ((#{quasicons\ 6444}#
+ (lambda (#{x\ 6448}# #{y\ 6449}#)
+ (let ((#{tmp\ 6453}# (list #{x\ 6448}# #{y\ 6449}#)))
+ (let ((#{tmp\ 6454}#
+ ($sc-dispatch #{tmp\ 6453}# (quote (any any)))))
+ (if #{tmp\ 6454}#
(@apply
- (lambda (#{x\ 4347}# #{y\ 4348}#)
- (let ((#{tmp\ 4349}# #{y\ 4348}#))
- (let ((#{tmp\ 4350}#
+ (lambda (#{x\ 6457}# #{y\ 6458}#)
+ (let ((#{tmp\ 6459}# #{y\ 6458}#))
+ (let ((#{tmp\ 6460}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 6459}#
'(#(free-id
#(syntax-object
quote
@@ -14234,29 +14304,29 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
any))))
- (if #{tmp\ 4350}#
+ (if #{tmp\ 6460}#
(@apply
- (lambda (#{dy\ 4352}#)
- (let ((#{tmp\ 4353}# #{x\ 4347}#))
- (let ((#{tmp\ 4354}#
+ (lambda (#{dy\ 6462}#)
+ (let ((#{tmp\ 6463}# #{x\ 6457}#))
+ (let ((#{tmp\ 6464}#
($sc-dispatch
- #{tmp\ 4353}#
+ #{tmp\ 6463}#
'(#(free-id
#(syntax-object
quote
@@ -14264,140 +14334,140 @@
#(ribcage
#(dy)
#((top))
- #("i4351"))
+ #("i6461"))
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
any))))
- (if #{tmp\ 4354}#
+ (if #{tmp\ 6464}#
(@apply
- (lambda (#{dx\ 4356}#)
+ (lambda (#{dx\ 6466}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4355"))
+ #("i6465"))
#(ribcage
#(dy)
#((top))
- #("i4351"))
+ #("i6461"))
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- (cons #{dx\ 4356}#
- #{dy\ 4352}#)))
- #{tmp\ 4354}#)
- (let ((#{_\ 4358}# #{tmp\ 4353}#))
- (if (null? #{dy\ 4352}#)
+ (cons #{dx\ 6466}#
+ #{dy\ 6462}#)))
+ #{tmp\ 6464}#)
+ (let ((#{_\ 6468}# #{tmp\ 6463}#))
+ (if (null? #{dy\ 6462}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4357"))
+ #("i6467"))
#(ribcage
#(dy)
#((top))
- #("i4351"))
+ #("i6461"))
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{x\ 4347}#)
+ #{x\ 6457}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4357"))
+ #("i6467"))
#(ribcage
#(dy)
#((top))
- #("i4351"))
+ #("i6461"))
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{x\ 4347}#
- #{y\ 4348}#)))))))
- #{tmp\ 4350}#)
- (let ((#{tmp\ 4359}#
+ #{x\ 6457}#
+ #{y\ 6458}#)))))))
+ #{tmp\ 6460}#)
+ (let ((#{tmp\ 6469}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 6459}#
'(#(free-id
#(syntax-object
list
@@ -14405,107 +14475,107 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
.
any))))
- (if #{tmp\ 4359}#
+ (if #{tmp\ 6469}#
(@apply
- (lambda (#{stuff\ 4361}#)
+ (lambda (#{stuff\ 6471}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4360"))
+ #("i6470"))
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- (cons #{x\ 4347}# #{stuff\ 4361}#)))
- #{tmp\ 4359}#)
- (let ((#{else\ 4363}# #{tmp\ 4349}#))
+ (cons #{x\ 6457}# #{stuff\ 6471}#)))
+ #{tmp\ 6469}#)
+ (let ((#{else\ 6473}# #{tmp\ 6459}#))
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4362"))
+ #("i6472"))
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{x\ 4347}#
- #{y\ 4348}#))))))))
- #{tmp\ 4344}#)
+ #{x\ 6457}#
+ #{y\ 6458}#))))))))
+ #{tmp\ 6454}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4343}#))))))
- (#{quasiappend\ 4335}#
- (lambda (#{x\ 4364}# #{y\ 4365}#)
- (let ((#{tmp\ 4369}# (list #{x\ 4364}# #{y\ 4365}#)))
- (let ((#{tmp\ 4370}#
- ($sc-dispatch #{tmp\ 4369}# (quote (any any)))))
- (if #{tmp\ 4370}#
+ #{tmp\ 6453}#))))))
+ (#{quasiappend\ 6445}#
+ (lambda (#{x\ 6474}# #{y\ 6475}#)
+ (let ((#{tmp\ 6479}# (list #{x\ 6474}# #{y\ 6475}#)))
+ (let ((#{tmp\ 6480}#
+ ($sc-dispatch #{tmp\ 6479}# (quote (any any)))))
+ (if #{tmp\ 6480}#
(@apply
- (lambda (#{x\ 4373}# #{y\ 4374}#)
- (let ((#{tmp\ 4375}# #{y\ 4374}#))
- (let ((#{tmp\ 4376}#
+ (lambda (#{x\ 6483}# #{y\ 6484}#)
+ (let ((#{tmp\ 6485}# #{y\ 6484}#))
+ (let ((#{tmp\ 6486}#
($sc-dispatch
- #{tmp\ 4375}#
+ #{tmp\ 6485}#
'(#(free-id
#(syntax-object
quote
@@ -14513,160 +14583,160 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4371" "i4372"))
+ #("i6481" "i6482"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4366" "i4367"))
+ #("i6476" "i6477"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
()))))
- (if #{tmp\ 4376}#
- (@apply (lambda () #{x\ 4373}#) #{tmp\ 4376}#)
- (let ((#{_\ 4378}# #{tmp\ 4375}#))
+ (if #{tmp\ 6486}#
+ (@apply (lambda () #{x\ 6483}#) #{tmp\ 6486}#)
+ (let ((#{_\ 6488}# #{tmp\ 6485}#))
(list '#(syntax-object
append
((top)
- #(ribcage #(_) #((top)) #("i4377"))
+ #(ribcage #(_) #((top)) #("i6487"))
#(ribcage
#(x y)
#((top) (top))
- #("i4371" "i4372"))
+ #("i6481" "i6482"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4366" "i4367"))
+ #("i6476" "i6477"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- #{x\ 4373}#
- #{y\ 4374}#))))))
- #{tmp\ 4370}#)
+ #{x\ 6483}#
+ #{y\ 6484}#))))))
+ #{tmp\ 6480}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4369}#))))))
- (#{quasivector\ 4336}#
- (lambda (#{x\ 4379}#)
- (let ((#{tmp\ 4382}# #{x\ 4379}#))
- (let ((#{x\ 4384}# #{tmp\ 4382}#))
- (let ((#{tmp\ 4385}# #{x\ 4384}#))
- (let ((#{tmp\ 4386}#
+ #{tmp\ 6479}#))))))
+ (#{quasivector\ 6446}#
+ (lambda (#{x\ 6489}#)
+ (let ((#{tmp\ 6492}# #{x\ 6489}#))
+ (let ((#{x\ 6494}# #{tmp\ 6492}#))
+ (let ((#{tmp\ 6495}# #{x\ 6494}#))
+ (let ((#{tmp\ 6496}#
($sc-dispatch
- #{tmp\ 4385}#
+ #{tmp\ 6495}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4383"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
each-any))))
- (if #{tmp\ 4386}#
+ (if #{tmp\ 6496}#
(@apply
- (lambda (#{x\ 4388}#)
+ (lambda (#{x\ 6498}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4387"))
- #(ribcage #(x) #((top)) #("i4383"))
+ #(ribcage #(x) #((top)) #("i6497"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- (list->vector #{x\ 4388}#)))
- #{tmp\ 4386}#)
- (let ((#{tmp\ 4390}#
+ (list->vector #{x\ 6498}#)))
+ #{tmp\ 6496}#)
+ (let ((#{tmp\ 6500}#
($sc-dispatch
- #{tmp\ 4385}#
+ #{tmp\ 6495}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i4383"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4390}#
+ (if #{tmp\ 6500}#
(@apply
- (lambda (#{x\ 4392}#)
+ (lambda (#{x\ 6502}#)
(cons '#(syntax-object
vector
((top)
- #(ribcage #(x) #((top)) #("i4391"))
- #(ribcage #(x) #((top)) #("i4383"))
+ #(ribcage #(x) #((top)) #("i6501"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- #{x\ 4392}#))
- #{tmp\ 4390}#)
- (let ((#{_\ 4395}# #{tmp\ 4385}#))
+ #{x\ 6502}#))
+ #{tmp\ 6500}#)
+ (let ((#{_\ 6505}# #{tmp\ 6495}#))
(list '#(syntax-object
list->vector
((top)
- #(ribcage #(_) #((top)) #("i4394"))
- #(ribcage #(x) #((top)) #("i4383"))
+ #(ribcage #(_) #((top)) #("i6504"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- #{x\ 4384}#)))))))))))
- (#{quasi\ 4337}#
- (lambda (#{p\ 4396}# #{lev\ 4397}#)
- (let ((#{tmp\ 4400}# #{p\ 4396}#))
- (let ((#{tmp\ 4401}#
+ #{x\ 6494}#)))))))))))
+ (#{quasi\ 6447}#
+ (lambda (#{p\ 6506}# #{lev\ 6507}#)
+ (let ((#{tmp\ 6510}# #{p\ 6506}#))
+ (let ((#{tmp\ 6511}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 6510}#
'(#(free-id
#(syntax-object
unquote
@@ -14675,54 +14745,54 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
any))))
- (if #{tmp\ 4401}#
+ (if #{tmp\ 6511}#
(@apply
- (lambda (#{p\ 4403}#)
- (if (= #{lev\ 4397}# 0)
- #{p\ 4403}#
- (#{quasicons\ 4334}#
+ (lambda (#{p\ 6513}#)
+ (if (= #{lev\ 6507}# 0)
+ #{p\ 6513}#
+ (#{quasicons\ 6444}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4402"))
+ #(ribcage #(p) #((top)) #("i6512"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4402"))
+ #(ribcage #(p) #((top)) #("i6512"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
- (#{quasi\ 4337}#
- (list #{p\ 4403}#)
- (1- #{lev\ 4397}#)))))
- #{tmp\ 4401}#)
- (let ((#{tmp\ 4404}#
+ (#{quasi\ 6447}#
+ (list #{p\ 6513}#)
+ (1- #{lev\ 6507}#)))))
+ #{tmp\ 6511}#)
+ (let ((#{tmp\ 6514}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 6510}#
'(#(free-id
#(syntax-object
unquote
@@ -14731,47 +14801,47 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
.
any))))
- (if (if #{tmp\ 4404}#
+ (if (if #{tmp\ 6514}#
(@apply
- (lambda (#{args\ 4406}#) (= #{lev\ 4397}# 0))
- #{tmp\ 4404}#)
+ (lambda (#{args\ 6516}#) (= #{lev\ 6507}# 0))
+ #{tmp\ 6514}#)
#f)
(@apply
- (lambda (#{args\ 4408}#)
+ (lambda (#{args\ 6518}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4396}#
+ #{p\ 6506}#
(cons '#(syntax-object
unquote
((top)
- #(ribcage #(args) #((top)) #("i4407"))
+ #(ribcage #(args) #((top)) #("i6517"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- #{args\ 4408}#)))
- #{tmp\ 4404}#)
- (let ((#{tmp\ 4409}#
+ #{args\ 6518}#)))
+ #{tmp\ 6514}#)
+ (let ((#{tmp\ 6519}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 6510}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14780,46 +14850,46 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
any)
.
any))))
- (if #{tmp\ 4409}#
+ (if #{tmp\ 6519}#
(@apply
- (lambda (#{p\ 4412}# #{q\ 4413}#)
- (if (= #{lev\ 4397}# 0)
- (#{quasiappend\ 4335}#
- #{p\ 4412}#
- (#{quasi\ 4337}# #{q\ 4413}# #{lev\ 4397}#))
- (#{quasicons\ 4334}#
- (#{quasicons\ 4334}#
+ (lambda (#{p\ 6522}# #{q\ 6523}#)
+ (if (= #{lev\ 6507}# 0)
+ (#{quasiappend\ 6445}#
+ #{p\ 6522}#
+ (#{quasi\ 6447}# #{q\ 6523}# #{lev\ 6507}#))
+ (#{quasicons\ 6444}#
+ (#{quasicons\ 6444}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4410" "i4411"))
+ #("i6520" "i6521"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -14827,28 +14897,28 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4410" "i4411"))
+ #("i6520" "i6521"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
- (#{quasi\ 4337}#
- (list #{p\ 4412}#)
- (1- #{lev\ 4397}#)))
- (#{quasi\ 4337}# #{q\ 4413}# #{lev\ 4397}#))))
- #{tmp\ 4409}#)
- (let ((#{tmp\ 4414}#
+ (#{quasi\ 6447}#
+ (list #{p\ 6522}#)
+ (1- #{lev\ 6507}#)))
+ (#{quasi\ 6447}# #{q\ 6523}# #{lev\ 6507}#))))
+ #{tmp\ 6519}#)
+ (let ((#{tmp\ 6524}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 6510}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14857,62 +14927,62 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
.
any)
.
any))))
- (if (if #{tmp\ 4414}#
+ (if (if #{tmp\ 6524}#
(@apply
- (lambda (#{args\ 4417}# #{q\ 4418}#)
- (= #{lev\ 4397}# 0))
- #{tmp\ 4414}#)
+ (lambda (#{args\ 6527}# #{q\ 6528}#)
+ (= #{lev\ 6507}# 0))
+ #{tmp\ 6524}#)
#f)
(@apply
- (lambda (#{args\ 4421}# #{q\ 4422}#)
+ (lambda (#{args\ 6531}# #{q\ 6532}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one
argument"
- #{p\ 4396}#
+ #{p\ 6506}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i4419" "i4420"))
+ #("i6529" "i6530"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{args\ 4421}#)))
- #{tmp\ 4414}#)
- (let ((#{tmp\ 4423}#
+ #{args\ 6531}#)))
+ #{tmp\ 6524}#)
+ (let ((#{tmp\ 6533}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 6510}#
'(#(free-id
#(syntax-object
quasiquote
@@ -14921,107 +14991,107 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
any))))
- (if #{tmp\ 4423}#
+ (if #{tmp\ 6533}#
(@apply
- (lambda (#{p\ 4425}#)
- (#{quasicons\ 4334}#
+ (lambda (#{p\ 6535}#)
+ (#{quasicons\ 6444}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4424"))
+ #(ribcage #(p) #((top)) #("i6534"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4424"))
+ #(ribcage #(p) #((top)) #("i6534"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
- (#{quasi\ 4337}#
- (list #{p\ 4425}#)
- (1+ #{lev\ 4397}#))))
- #{tmp\ 4423}#)
- (let ((#{tmp\ 4426}#
+ (#{quasi\ 6447}#
+ (list #{p\ 6535}#)
+ (1+ #{lev\ 6507}#))))
+ #{tmp\ 6533}#)
+ (let ((#{tmp\ 6536}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 6510}#
'(any . any))))
- (if #{tmp\ 4426}#
+ (if #{tmp\ 6536}#
(@apply
- (lambda (#{p\ 4429}# #{q\ 4430}#)
- (#{quasicons\ 4334}#
- (#{quasi\ 4337}#
- #{p\ 4429}#
- #{lev\ 4397}#)
- (#{quasi\ 4337}#
- #{q\ 4430}#
- #{lev\ 4397}#)))
- #{tmp\ 4426}#)
- (let ((#{tmp\ 4431}#
+ (lambda (#{p\ 6539}# #{q\ 6540}#)
+ (#{quasicons\ 6444}#
+ (#{quasi\ 6447}#
+ #{p\ 6539}#
+ #{lev\ 6507}#)
+ (#{quasi\ 6447}#
+ #{q\ 6540}#
+ #{lev\ 6507}#)))
+ #{tmp\ 6536}#)
+ (let ((#{tmp\ 6541}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 6510}#
'#(vector each-any))))
- (if #{tmp\ 4431}#
+ (if #{tmp\ 6541}#
(@apply
- (lambda (#{x\ 4433}#)
- (#{quasivector\ 4336}#
- (#{quasi\ 4337}#
- #{x\ 4433}#
- #{lev\ 4397}#)))
- #{tmp\ 4431}#)
- (let ((#{p\ 4436}# #{tmp\ 4400}#))
+ (lambda (#{x\ 6543}#)
+ (#{quasivector\ 6446}#
+ (#{quasi\ 6447}#
+ #{x\ 6543}#
+ #{lev\ 6507}#)))
+ #{tmp\ 6541}#)
+ (let ((#{p\ 6546}# #{tmp\ 6510}#))
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4435"))
+ #("i6545"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4398" "i4399"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
@@ -15031,223 +15101,223 @@
(top)
(top)
(top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{p\
4436}#))))))))))))))))))))
+ #{p\
6546}#))))))))))))))))))))
(begin
- (lambda (#{x\ 4437}#)
- (let ((#{tmp\ 4439}# #{x\ 4437}#))
- (let ((#{tmp\ 4440}#
- ($sc-dispatch #{tmp\ 4439}# (quote (any any)))))
- (if #{tmp\ 4440}#
+ (lambda (#{x\ 6547}#)
+ (let ((#{tmp\ 6549}# #{x\ 6547}#))
+ (let ((#{tmp\ 6550}#
+ ($sc-dispatch #{tmp\ 6549}# (quote (any any)))))
+ (if #{tmp\ 6550}#
(@apply
- (lambda (#{_\ 4443}# #{e\ 4444}#)
- (#{quasi\ 4337}# #{e\ 4444}# 0))
- #{tmp\ 4440}#)
+ (lambda (#{_\ 6553}# #{e\ 6554}#)
+ (#{quasi\ 6447}# #{e\ 6554}# 0))
+ #{tmp\ 6550}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4439}#)))))))))
+ #{tmp\ 6549}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4445}#)
+ (lambda (#{x\ 6555}#)
(letrec*
- ((#{read-file\ 4448}#
- (lambda (#{fn\ 4449}# #{k\ 4450}#)
+ ((#{read-file\ 6558}#
+ (lambda (#{fn\ 6559}# #{k\ 6560}#)
(begin
- (let ((#{p\ 4454}# (open-input-file #{fn\ 4449}#)))
+ (let ((#{p\ 6564}# (open-input-file #{fn\ 6559}#)))
(letrec*
- ((#{f\ 4458}#
- (lambda (#{x\ 4459}# #{result\ 4460}#)
- (if (eof-object? #{x\ 4459}#)
+ ((#{f\ 6568}#
+ (lambda (#{x\ 6569}# #{result\ 6570}#)
+ (if (eof-object? #{x\ 6569}#)
(begin
- (close-input-port #{p\ 4454}#)
- (reverse #{result\ 4460}#))
- (#{f\ 4458}#
- (read #{p\ 4454}#)
- (cons (datum->syntax #{k\ 4450}# #{x\ 4459}#)
- #{result\ 4460}#))))))
+ (close-input-port #{p\ 6564}#)
+ (reverse #{result\ 6570}#))
+ (#{f\ 6568}#
+ (read #{p\ 6564}#)
+ (cons (datum->syntax #{k\ 6560}# #{x\ 6569}#)
+ #{result\ 6570}#))))))
(begin
- (#{f\ 4458}# (read #{p\ 4454}#) (quote ())))))))))
+ (#{f\ 6568}# (read #{p\ 6564}#) (quote ())))))))))
(begin
- (let ((#{tmp\ 4461}# #{x\ 4445}#))
- (let ((#{tmp\ 4462}#
- ($sc-dispatch #{tmp\ 4461}# (quote (any any)))))
- (if #{tmp\ 4462}#
+ (let ((#{tmp\ 6571}# #{x\ 6555}#))
+ (let ((#{tmp\ 6572}#
+ ($sc-dispatch #{tmp\ 6571}# (quote (any any)))))
+ (if #{tmp\ 6572}#
(@apply
- (lambda (#{k\ 4465}# #{filename\ 4466}#)
+ (lambda (#{k\ 6575}# #{filename\ 6576}#)
(begin
- (let ((#{fn\ 4468}# (syntax->datum #{filename\ 4466}#)))
- (let ((#{tmp\ 4470}#
- (#{read-file\ 4448}#
- #{fn\ 4468}#
- #{filename\ 4466}#)))
- (let ((#{tmp\ 4471}#
+ (let ((#{fn\ 6578}# (syntax->datum #{filename\ 6576}#)))
+ (let ((#{tmp\ 6580}#
+ (#{read-file\ 6558}#
+ #{fn\ 6578}#
+ #{filename\ 6576}#)))
+ (let ((#{tmp\ 6581}#
($sc-dispatch
- #{tmp\ 4470}#
+ #{tmp\ 6580}#
'each-any)))
- (if #{tmp\ 4471}#
+ (if #{tmp\ 6581}#
(@apply
- (lambda (#{exp\ 4473}#)
+ (lambda (#{exp\ 6583}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4472"))
+ #("i6582"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4467"))
+ #("i6577"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4463" "i4464"))
+ #("i6573" "i6574"))
#(ribcage
(read-file)
((top))
- ("i4447"))
+ ("i6557"))
#(ribcage
#(x)
#((top))
- #("i4446")))
+ #("i6556")))
(hygiene guile))
- #{exp\ 4473}#))
- #{tmp\ 4471}#)
+ #{exp\ 6583}#))
+ #{tmp\ 6581}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4470}#)))))))
- #{tmp\ 4462}#)
+ #{tmp\ 6580}#)))))))
+ #{tmp\ 6572}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4461}#)))))))))
+ #{tmp\ 6571}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4475}#)
- (let ((#{tmp\ 4477}# #{x\ 4475}#))
- (let ((#{tmp\ 4478}#
- ($sc-dispatch #{tmp\ 4477}# (quote (any any)))))
- (if #{tmp\ 4478}#
+ (lambda (#{x\ 6585}#)
+ (let ((#{tmp\ 6587}# #{x\ 6585}#))
+ (let ((#{tmp\ 6588}#
+ ($sc-dispatch #{tmp\ 6587}# (quote (any any)))))
+ (if #{tmp\ 6588}#
(@apply
- (lambda (#{k\ 4481}# #{filename\ 4482}#)
+ (lambda (#{k\ 6591}# #{filename\ 6592}#)
(begin
- (let ((#{fn\ 4484}# (syntax->datum #{filename\ 4482}#)))
- (let ((#{tmp\ 4486}#
+ (let ((#{fn\ 6594}# (syntax->datum #{filename\ 6592}#)))
+ (let ((#{tmp\ 6596}#
(datum->syntax
- #{filename\ 4482}#
+ #{filename\ 6592}#
(begin
- (let ((#{t\ 4491}#
- (%search-load-path #{fn\ 4484}#)))
- (if #{t\ 4491}#
- #{t\ 4491}#
+ (let ((#{t\ 6601}#
+ (%search-load-path #{fn\ 6594}#)))
+ (if #{t\ 6601}#
+ #{t\ 6601}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4475}#
- #{filename\ 4482}#)))))))
- (let ((#{fn\ 4488}# #{tmp\ 4486}#))
+ #{x\ 6585}#
+ #{filename\ 6592}#)))))))
+ (let ((#{fn\ 6598}# #{tmp\ 6596}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i4487"))
+ #(ribcage #(fn) #((top)) #("i6597"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4483"))
+ #(ribcage #(fn) #((top)) #("i6593"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4479" "i4480"))
+ #("i6589" "i6590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4476")))
+ #(ribcage #(x) #((top)) #("i6586")))
(hygiene guile))
- #{fn\ 4488}#))))))
- #{tmp\ 4478}#)
+ #{fn\ 6598}#))))))
+ #{tmp\ 6588}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4477}#)))))))
+ #{tmp\ 6587}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4493}#)
- (let ((#{tmp\ 4495}# #{x\ 4493}#))
- (let ((#{tmp\ 4496}#
- ($sc-dispatch #{tmp\ 4495}# (quote (any any)))))
- (if #{tmp\ 4496}#
+ (lambda (#{x\ 6603}#)
+ (let ((#{tmp\ 6605}# #{x\ 6603}#))
+ (let ((#{tmp\ 6606}#
+ ($sc-dispatch #{tmp\ 6605}# (quote (any any)))))
+ (if #{tmp\ 6606}#
(@apply
- (lambda (#{_\ 4499}# #{e\ 4500}#)
+ (lambda (#{_\ 6609}# #{e\ 6610}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4493}#))
- #{tmp\ 4496}#)
+ #{x\ 6603}#))
+ #{tmp\ 6606}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4495}#)))))))
+ #{tmp\ 6605}#)))))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4501}#)
- (let ((#{tmp\ 4503}# #{x\ 4501}#))
- (let ((#{tmp\ 4504}#
- ($sc-dispatch #{tmp\ 4503}# (quote (any any)))))
- (if #{tmp\ 4504}#
+ (lambda (#{x\ 6611}#)
+ (let ((#{tmp\ 6613}# #{x\ 6611}#))
+ (let ((#{tmp\ 6614}#
+ ($sc-dispatch #{tmp\ 6613}# (quote (any any)))))
+ (if #{tmp\ 6614}#
(@apply
- (lambda (#{_\ 4507}# #{e\ 4508}#)
+ (lambda (#{_\ 6617}# #{e\ 6618}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4501}#))
- #{tmp\ 4504}#)
+ #{x\ 6611}#))
+ #{tmp\ 6614}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4503}#)))))))
+ #{tmp\ 6613}#)))))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4509}#)
- (let ((#{tmp\ 4511}# #{x\ 4509}#))
- (let ((#{tmp\ 4512}#
+ (lambda (#{x\ 6619}#)
+ (let ((#{tmp\ 6621}# #{x\ 6619}#))
+ (let ((#{tmp\ 6622}#
($sc-dispatch
- #{tmp\ 4511}#
+ #{tmp\ 6621}#
'(any any any . each-any))))
- (if #{tmp\ 4512}#
+ (if #{tmp\ 6622}#
(@apply
- (lambda (#{_\ 4517}#
- #{e\ 4518}#
- #{m1\ 4519}#
- #{m2\ 4520}#)
- (let ((#{tmp\ 4522}#
+ (lambda (#{_\ 6627}#
+ #{e\ 6628}#
+ #{m1\ 6629}#
+ #{m2\ 6630}#)
+ (let ((#{tmp\ 6632}#
(letrec*
- ((#{f\ 4528}#
- (lambda (#{clause\ 4529}# #{clauses\ 4530}#)
- (if (null? #{clauses\ 4530}#)
- (let ((#{tmp\ 4532}# #{clause\ 4529}#))
- (let ((#{tmp\ 4533}#
+ ((#{f\ 6638}#
+ (lambda (#{clause\ 6639}# #{clauses\ 6640}#)
+ (if (null? #{clauses\ 6640}#)
+ (let ((#{tmp\ 6642}# #{clause\ 6639}#))
+ (let ((#{tmp\ 6643}#
($sc-dispatch
- #{tmp\ 4532}#
+ #{tmp\ 6642}#
'(#(free-id
#(syntax-object
else
@@ -15256,104 +15326,104 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 4533}#
+ (if #{tmp\ 6643}#
(@apply
- (lambda (#{e1\ 4536}# #{e2\ 4537}#)
+ (lambda (#{e1\ 6646}# #{e2\ 6647}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4534" "i4535"))
+ #("i6644" "i6645"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
- (cons #{e1\ 4536}#
- #{e2\ 4537}#)))
- #{tmp\ 4533}#)
- (let ((#{tmp\ 4539}#
+ (cons #{e1\ 6646}#
+ #{e2\ 6647}#)))
+ #{tmp\ 6643}#)
+ (let ((#{tmp\ 6649}#
($sc-dispatch
- #{tmp\ 4532}#
+ #{tmp\ 6642}#
'(each-any any . each-any))))
- (if #{tmp\ 4539}#
+ (if #{tmp\ 6649}#
(@apply
- (lambda (#{k\ 4543}#
- #{e1\ 4544}#
- #{e2\ 4545}#)
+ (lambda (#{k\ 6653}#
+ #{e1\ 6654}#
+ #{e2\ 6655}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4540"
- "i4541"
- "i4542"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -15363,9 +15433,9 @@
#((top)
(top)
(top))
- #("i4540"
- "i4541"
- "i4542"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage
()
()
@@ -15377,19 +15447,19 @@
#((top)
(top)
(top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
@@ -15397,7 +15467,7 @@
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
'#(syntax-object
t
@@ -15407,9 +15477,9 @@
#((top)
(top)
(top))
- #("i4540"
- "i4541"
- "i4542"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage
()
()
@@ -15421,19 +15491,19 @@
#((top)
(top)
(top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
@@ -15441,7 +15511,7 @@
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -15453,9 +15523,9 @@
#((top)
(top)
(top))
-
#("i4540"
-
"i4541"
-
"i4542"))
+
#("i6650"
+
"i6651"
+
"i6652"))
#(ribcage
()
()
@@ -15467,9 +15537,9 @@
#((top)
(top)
(top))
-
#("i4525"
-
"i4526"
-
"i4527"))
+
#("i6635"
+
"i6636"
+
"i6637"))
#(ribcage
#(_
e
@@ -15479,10 +15549,10 @@
(top)
(top)
(top))
-
#("i4513"
-
"i4514"
-
"i4515"
-
"i4516"))
+
#("i6623"
+
"i6624"
+
"i6625"
+
"i6626"))
#(ribcage
()
()
@@ -15490,10 +15560,10 @@
#(ribcage
#(x)
#((top))
-
#("i4510")))
+
#("i6620")))
(hygiene
guile))
- #{k\ 4543}#))
+ #{k\ 6653}#))
(cons '#(syntax-object
begin
((top)
@@ -15502,9 +15572,9 @@
#((top)
(top)
(top))
- #("i4540"
- "i4541"
- "i4542"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage
()
()
@@ -15516,19 +15586,19 @@
#((top)
(top)
(top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
@@ -15536,67 +15606,67 @@
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
- (cons #{e1\ 4544}#
- #{e2\
4545}#))))
- #{tmp\ 4539}#)
- (let ((#{_\ 4549}# #{tmp\ 4532}#))
+ (cons #{e1\ 6654}#
+ #{e2\
6655}#))))
+ #{tmp\ 6649}#)
+ (let ((#{_\ 6659}# #{tmp\ 6642}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4509}#
- #{clause\ 4529}#)))))))
- (let ((#{tmp\ 4551}#
- (#{f\ 4528}#
- (car #{clauses\ 4530}#)
- (cdr #{clauses\ 4530}#))))
- (let ((#{rest\ 4553}# #{tmp\ 4551}#))
- (let ((#{tmp\ 4554}# #{clause\ 4529}#))
- (let ((#{tmp\ 4555}#
+ #{x\ 6619}#
+ #{clause\ 6639}#)))))))
+ (let ((#{tmp\ 6661}#
+ (#{f\ 6638}#
+ (car #{clauses\ 6640}#)
+ (cdr #{clauses\ 6640}#))))
+ (let ((#{rest\ 6663}# #{tmp\ 6661}#))
+ (let ((#{tmp\ 6664}# #{clause\ 6639}#))
+ (let ((#{tmp\ 6665}#
($sc-dispatch
- #{tmp\ 4554}#
+ #{tmp\ 6664}#
'(each-any any . each-any))))
- (if #{tmp\ 4555}#
+ (if #{tmp\ 6665}#
(@apply
- (lambda (#{k\ 4559}#
- #{e1\ 4560}#
- #{e2\ 4561}#)
+ (lambda (#{k\ 6669}#
+ #{e1\ 6670}#
+ #{e2\ 6671}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4556"
- "i4557"
- "i4558"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4552"))
+ #("i6662"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -15606,13 +15676,13 @@
#((top)
(top)
(top))
- #("i4556"
- "i4557"
- "i4558"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4552"))
+ #("i6662"))
#(ribcage
()
()
@@ -15624,19 +15694,19 @@
#((top)
(top)
(top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
@@ -15644,7 +15714,7 @@
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
'#(syntax-object
t
@@ -15654,13 +15724,13 @@
#((top)
(top)
(top))
- #("i4556"
- "i4557"
- "i4558"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4552"))
+ #("i6662"))
#(ribcage
()
()
@@ -15672,19 +15742,19 @@
#((top)
(top)
(top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
@@ -15692,7 +15762,7 @@
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -15704,13 +15774,13 @@
#((top)
(top)
(top))
-
#("i4556"
-
"i4557"
-
"i4558"))
+
#("i6666"
+
"i6667"
+
"i6668"))
#(ribcage
#(rest)
#((top))
-
#("i4552"))
+
#("i6662"))
#(ribcage
()
()
@@ -15722,9 +15792,9 @@
#((top)
(top)
(top))
-
#("i4525"
-
"i4526"
-
"i4527"))
+
#("i6635"
+
"i6636"
+
"i6637"))
#(ribcage
#(_
e
@@ -15734,10 +15804,10 @@
(top)
(top)
(top))
-
#("i4513"
-
"i4514"
-
"i4515"
-
"i4516"))
+
#("i6623"
+
"i6624"
+
"i6625"
+
"i6626"))
#(ribcage
()
()
@@ -15745,10 +15815,10 @@
#(ribcage
#(x)
#((top))
-
#("i4510")))
+
#("i6620")))
(hygiene
guile))
- #{k\ 4559}#))
+ #{k\ 6669}#))
(cons '#(syntax-object
begin
((top)
@@ -15757,13 +15827,13 @@
#((top)
(top)
(top))
- #("i4556"
- "i4557"
- "i4558"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4552"))
+ #("i6662"))
#(ribcage
()
()
@@ -15775,19 +15845,19 @@
#((top)
(top)
(top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
@@ -15795,30 +15865,30 @@
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("i6620")))
(hygiene guile))
- (cons #{e1\ 4560}#
- #{e2\ 4561}#))
- #{rest\ 4553}#))
- #{tmp\ 4555}#)
- (let ((#{_\ 4565}# #{tmp\ 4554}#))
+ (cons #{e1\ 6670}#
+ #{e2\ 6671}#))
+ #{rest\ 6663}#))
+ #{tmp\ 6665}#)
+ (let ((#{_\ 6675}# #{tmp\ 6664}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4509}#
- #{clause\ 4529}#)))))))))))
- (begin (#{f\ 4528}# #{m1\ 4519}# #{m2\ 4520}#)))))
- (let ((#{body\ 4524}# #{tmp\ 4522}#))
+ #{x\ 6619}#
+ #{clause\ 6639}#)))))))))))
+ (begin (#{f\ 6638}# #{m1\ 6629}# #{m2\ 6630}#)))))
+ (let ((#{body\ 6634}# #{tmp\ 6632}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i4523"))
+ #(ribcage #(body) #((top)) #("i6633"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4513" "i4514" "i4515" "i4516"))
+ #("i6623" "i6624" "i6625" "i6626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4510")))
+ #(ribcage #(x) #((top)) #("i6620")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -15826,42 +15896,59 @@
#(ribcage
#(body)
#((top))
- #("i4523"))
+ #("i6633"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4513" "i4514" "i4515" "i4516"))
+ #("i6623" "i6624" "i6625" "i6626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4510")))
+ #(ribcage #(x) #((top)) #("i6620")))
(hygiene guile))
- #{e\ 4518}#))
- #{body\ 4524}#))))
- #{tmp\ 4512}#)
+ #{e\ 6628}#))
+ #{body\ 6634}#))))
+ #{tmp\ 6622}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4511}#)))))))
+ #{tmp\ 6621}#)))))))
+
+(define make-variable-transformer
+ (lambda (#{proc\ 6676}#)
+ (if (procedure? #{proc\ 6676}#)
+ (begin
+ (letrec*
+ ((#{trans\ 6679}#
+ (lambda (#{x\ 6680}#)
+ (#{proc\ 6676}# #{x\ 6680}#))))
+ (begin
+ (set-procedure-property!
+ #{trans\ 6679}#
+ 'variable-transformer
+ #t)
+ #{trans\ 6679}#)))
+ (error "variable transformer not a procedure"
+ #{proc\ 6676}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4566}#)
- (let ((#{tmp\ 4568}# #{x\ 4566}#))
- (let ((#{tmp\ 4569}#
- ($sc-dispatch #{tmp\ 4568}# (quote (any any)))))
- (if #{tmp\ 4569}#
+ (lambda (#{x\ 6682}#)
+ (let ((#{tmp\ 6684}# #{x\ 6682}#))
+ (let ((#{tmp\ 6685}#
+ ($sc-dispatch #{tmp\ 6684}# (quote (any any)))))
+ (if #{tmp\ 6685}#
(@apply
- (lambda (#{_\ 4572}# #{e\ 4573}#)
+ (lambda (#{_\ 6688}# #{e\ 6689}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'(#(syntax-object
x
@@ -15869,9 +15956,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -15879,9 +15966,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
.
#(syntax-object
@@ -15890,9 +15977,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -15900,9 +15987,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'#(syntax-object
x
@@ -15910,9 +15997,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -15921,9 +16008,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -15931,9 +16018,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
(#(syntax-object
syntax
@@ -15941,9 +16028,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
#(syntax-object
id
@@ -15951,9 +16038,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -15961,27 +16048,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4567")))
+ #("i6683")))
(hygiene guile))
- #{e\ 4573}#))
- (list (cons #{_\ 4572}#
+ #{e\ 6689}#))
+ (list (cons #{_\ 6688}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4567")))
+ #("i6683")))
(hygiene guile))
#(syntax-object
...
@@ -15989,12 +16076,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4567")))
+ #("i6683")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16002,26 +16089,26 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4567")))
+ #("i6683")))
(hygiene guile))
- (cons #{e\ 4573}#
+ (cons #{e\ 6689}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4567")))
+ #("i6683")))
(hygiene guile))
#(syntax-object
...
@@ -16029,67 +16116,533 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i4570" "i4571"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4567")))
+ #("i6683")))
(hygiene guile)))))))))
- #{tmp\ 4569}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4568}#)))))))
+ #{tmp\ 6685}#)
+ (let ((#{tmp\ 6690}#
+ ($sc-dispatch
+ #{tmp\ 6684}#
+ '(any (any any)
+ ((#(free-id
+ #(syntax-object
+ set!
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile)))
+ any
+ any)
+ any)))))
+ (if (if #{tmp\ 6690}#
+ (@apply
+ (lambda (#{_\ 6697}#
+ #{id\ 6698}#
+ #{exp1\ 6699}#
+ #{var\ 6700}#
+ #{val\ 6701}#
+ #{exp2\ 6702}#)
+ (if (identifier? #{id\ 6698}#)
+ (identifier? #{var\ 6700}#)
+ #f))
+ #{tmp\ 6690}#)
+ #f)
+ (@apply
+ (lambda (#{_\ 6711}#
+ #{id\ 6712}#
+ #{exp1\ 6713}#
+ #{var\ 6714}#
+ #{val\ 6715}#
+ #{exp2\ 6716}#)
+ (list '#(syntax-object
+ make-variable-transformer
+ ((top)
+ #(ribcage
+ #(_ id exp1 var val exp2)
+ #((top) (top) (top) (top) (top) (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile))
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(_ id exp1 var val exp2)
+ #((top) (top) (top) (top) (top) (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(_ id exp1 var val exp2)
+ #((top) (top) (top) (top) (top) (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile)))
+ '#((#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage
+ #(_ id exp1 var val exp2)
+ #((top) (top) (top) (top) (top) (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ variable-transformer
+ ((top)
+ #(ribcage
+ #(_ id exp1 var val exp2)
+ #((top) (top) (top) (top) (top) (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile))))
+ (list '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(_ id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile))
+ '#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(_ id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile))
+ '(#(syntax-object
+ set!
+ ((top)
+ #(ribcage
+ #(_ id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i6683")))
+ (hygiene guile)))
+ (list (list '#(syntax-object
+ set!
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))
+ #{var\ 6714}#
+ #{val\ 6715}#)
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))
+ #{exp2\ 6716}#))
+ (list (cons #{id\ 6712}#
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))
+ (cons #{exp1\ 6713}#
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene
+ guile))))))
+ (list #{id\ 6712}#
+ (list '#(syntax-object
+ identifier?
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))
+ #{id\ 6712}#))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(_
+ id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i6683")))
+ (hygiene guile))
+ #{exp1\ 6713}#))))))
+ #{tmp\ 6690}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 6684}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4574}#)
- (let ((#{tmp\ 4576}# #{x\ 4574}#))
- (let ((#{tmp\ 4577}#
+ (lambda (#{x\ 6717}#)
+ (let ((#{tmp\ 6719}# #{x\ 6717}#))
+ (let ((#{tmp\ 6720}#
($sc-dispatch
- #{tmp\ 4576}#
+ #{tmp\ 6719}#
'(any (any . any) any . each-any))))
- (if #{tmp\ 4577}#
+ (if #{tmp\ 6720}#
(@apply
- (lambda (#{_\ 4583}#
- #{id\ 4584}#
- #{args\ 4585}#
- #{b0\ 4586}#
- #{b1\ 4587}#)
+ (lambda (#{_\ 6726}#
+ #{id\ 6727}#
+ #{args\ 6728}#
+ #{b0\ 6729}#
+ #{b1\ 6730}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4578" "i4579" "i4580" "i4581" "i4582"))
+ #("i6721" "i6722" "i6723" "i6724" "i6725"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6718")))
(hygiene guile))
- #{id\ 4584}#
+ #{id\ 6727}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4578" "i4579" "i4580" "i4581" "i4582"))
+ #("i6721" "i6722" "i6723" "i6724" "i6725"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6718")))
(hygiene guile))
- (cons #{args\ 4585}#
- (cons #{b0\ 4586}# #{b1\ 4587}#)))))
- #{tmp\ 4577}#)
- (let ((#{tmp\ 4589}#
+ (cons #{args\ 6728}#
+ (cons #{b0\ 6729}# #{b1\ 6730}#)))))
+ #{tmp\ 6720}#)
+ (let ((#{tmp\ 6732}#
($sc-dispatch
- #{tmp\ 4576}#
+ #{tmp\ 6719}#
'(any any any))))
- (if (if #{tmp\ 4589}#
+ (if (if #{tmp\ 6732}#
(@apply
- (lambda (#{_\ 4593}# #{id\ 4594}# #{val\ 4595}#)
+ (lambda (#{_\ 6736}# #{id\ 6737}# #{val\ 6738}#)
(identifier?
'#(syntax-object
x
@@ -16097,29 +16650,29 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4590" "i4591" "i4592"))
+ #("i6733" "i6734" "i6735"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6718")))
(hygiene guile))))
- #{tmp\ 4589}#)
+ #{tmp\ 6732}#)
#f)
(@apply
- (lambda (#{_\ 4599}# #{id\ 4600}# #{val\ 4601}#)
+ (lambda (#{_\ 6742}# #{id\ 6743}# #{val\ 6744}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4596" "i4597" "i4598"))
+ #("i6739" "i6740" "i6741"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6718")))
(hygiene guile))
- #{id\ 4600}#
- #{val\ 4601}#))
- #{tmp\ 4589}#)
+ #{id\ 6743}#
+ #{val\ 6744}#))
+ #{tmp\ 6732}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4576}#)))))))))
+ #{tmp\ 6719}#)))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 323f0c9..21aa2ac 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -377,7 +377,13 @@
(set-source-properties! e s))
e)
-;;; output constructors
+ (define (maybe-name-value! name val)
+ (if (lambda? val)
+ (let ((meta (lambda-meta val)))
+ (if (not (assq 'name meta))
+ (set-lambda-meta! val (acons 'name name meta))))))
+
+ ;;; output constructors
(define build-void
(lambda (source)
(make-void source)))
@@ -400,6 +406,7 @@
(define build-lexical-assignment
(lambda (source name var exp)
+ (maybe-name-value! name exp)
(make-lexical-set source name var exp)))
;; Before modules are booted, we can't expand into data structures from
@@ -438,6 +445,7 @@
(define build-global-assignment
(lambda (source var exp mod)
+ (maybe-name-value! var exp)
(analyze-variable
mod var
(lambda (mod var public?)
@@ -445,12 +453,6 @@
(lambda (var)
(make-toplevel-set source var exp)))))
- (define (maybe-name-value! name val)
- (if (lambda? val)
- (let ((meta (lambda-meta val)))
- (if (not (assq 'name meta))
- (set-lambda-meta! val (acons 'name name meta))))))
-
(define build-global-definition
(lambda (source var exp)
(maybe-name-value! var exp)
@@ -1327,7 +1329,6 @@
;; possible.
(define chi-macro
(lambda (p e r w s rib mod)
- ;; p := (procedure . module-name)
(define rebuild-macro-output
(lambda (x m)
(cond ((pair? x)
@@ -2138,16 +2139,23 @@
(syntax-case e ()
((_ id val)
(id? #'id)
- (let ((val (chi #'val r w mod))
- (n (id-var-name #'id w)))
+ (let ((n (id-var-name #'id w)))
(let ((b (lookup n r mod)))
(case (binding-type b)
((lexical)
(build-lexical-assignment s
(syntax->datum #'id)
(binding-value b)
- val))
- ((global) (build-global-assignment s n val mod))
+ (chi #'val r w mod)))
+ ((global)
+ (build-global-assignment s n (chi #'val r w mod)
mod))
+ ((macro)
+ (let ((p (binding-value b)))
+ (if (procedure-property p 'variable-transformer)
+ (chi (chi-macro p e r w s #f mod) r w mod)
+ (syntax-violation 'set! "not a variable
transformer"
+ (wrap e w mod)
+ (wrap #'id w mod)))))
((displaced-lexical)
(syntax-violation 'set! "identifier out of
context"
(wrap #'id w mod)))
@@ -2826,9 +2834,18 @@
clause))))))))
#'(let ((t e)) body))))))
+(define (make-variable-transformer proc)
+ (if (procedure? proc)
+ (let ((trans (lambda (x)
+ #((macro-type . variable-transformer))
+ (proc x))))
+ (set-procedure-property! trans 'variable-transformer #t)
+ trans)
+ (error "variable transformer not a procedure" proc)))
+
(define-syntax identifier-syntax
(lambda (x)
- (syntax-case x ()
+ (syntax-case x (set!)
((_ e)
#'(lambda (x)
#((macro-type . identifier-syntax))
@@ -2837,7 +2854,16 @@
(identifier? #'id)
#'e)
((_ x (... ...))
- #'(e x (... ...)))))))))
+ #'(e x (... ...))))))
+ ((_ (id exp1) ((set! var val) exp2))
+ (and (identifier? #'id) (identifier? #'var))
+ #'(make-variable-transformer
+ (lambda (x)
+ #((macro-type . variable-transformer))
+ (syntax-case x (set!)
+ ((set! var val) #'exp2)
+ ((id x (... ...)) #'(exp1 x (... ...)))
+ (id (identifier? #'id) #'exp1))))))))
(define-syntax define*
(lambda (x)
diff --git a/module/ice-9/save-stack.scm b/module/ice-9/save-stack.scm
new file mode 100644
index 0000000..126ed83
--- /dev/null
+++ b/module/ice-9/save-stack.scm
@@ -0,0 +1,58 @@
+;;; -*- mode: scheme; coding: utf-8; -*-
+
+;;;; 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
+;;;; modify it under the terms of the GNU Lesser General Public
+;;;; License as published by the Free Software Foundation; either
+;;;; version 3 of the License, or (at your option) any later version.
+;;;;
+;;;; This library is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;;; Lesser General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU Lesser General Public
+;;;; License along with this library; if not, write to the Free Software
+;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
+;;;;
+
+
+
+;;; Commentary:
+
+;;; An older approack to debugging, in which the user installs a pre-unwind
+;;; handler that saves the stack at the time of the error. The last stack can
+;;; then be debugged later.
+;;;
+
+;;; Code:
+
+(define-module (ice-9 save-stack)
+ ;; Replace deprecated root-module bindings, if present.
+ #:replace (stack-saved?
+ the-last-stack
+ save-stack))
+
+;; FIXME: stack-saved? is broken in the presence of threads.
+(define stack-saved? #f)
+
+(define the-last-stack (make-fluid))
+
+(define (save-stack . narrowing)
+ (if (not stack-saved?)
+ (begin
+ (let ((stacks (fluid-ref %stacks)))
+ (fluid-set! the-last-stack
+ ;; (make-stack obj inner outer inner outer ...)
+ ;;
+ ;; In this case, cut away the make-stack frame, the
+ ;; save-stack frame, and then narrow as specified by the
+ ;; user, delimited by the nearest start-stack invocation,
+ ;; if any.
+ (apply make-stack #t
+ 2
+ (if (pair? stacks) (cdar stacks) 0)
+ narrowing)))
+ (set! stack-saved? #t))))
diff --git a/module/ice-9/scm-style-repl.scm b/module/ice-9/scm-style-repl.scm
index 5ce8185..947d0f0 100644
--- a/module/ice-9/scm-style-repl.scm
+++ b/module/ice-9/scm-style-repl.scm
@@ -17,6 +17,8 @@
;;;;
(define-module (ice-9 scm-style-repl)
+ #:use-module (ice-9 save-stack)
+
#:export (scm-repl-silent
scm-repl-print-unspecified
scm-repl-verbose
@@ -31,7 +33,8 @@
bad-throw
error-catching-loop
error-catching-repl
- scm-style-repl))
+ scm-style-repl
+ handle-system-error))
(define scm-repl-silent #f)
(define (assert-repl-silence v) (set! scm-repl-silent v))
@@ -257,3 +260,24 @@
-eval
-print)))
(-quit status))))
+
+(define (handle-system-error key . args)
+ (let ((cep (current-error-port)))
+ (cond ((not (stack? (fluid-ref the-last-stack))))
+ ((memq 'backtrace (debug-options-interface))
+ (let ((highlights (if (or (eq? key 'wrong-type-arg)
+ (eq? key 'out-of-range))
+ (list-ref args 3)
+ '())))
+ (run-hook before-backtrace-hook)
+ (newline cep)
+ (display "Backtrace:\n")
+ (display-backtrace (fluid-ref the-last-stack) cep
+ #f #f highlights)
+ (newline cep)
+ (run-hook after-backtrace-hook))))
+ (run-hook before-error-hook)
+ (apply display-error (fluid-ref the-last-stack) cep args)
+ (run-hook after-error-hook)
+ (force-output cep)
+ (throw 'abort key)))
diff --git a/module/ice-9/stack-catch.scm b/module/ice-9/stack-catch.scm
index a8912da..5087ad7 100644
--- a/module/ice-9/stack-catch.scm
+++ b/module/ice-9/stack-catch.scm
@@ -18,6 +18,7 @@
;;;;
(define-module (ice-9 stack-catch)
+ #:use-module (ice-9 save-stack)
#:export (stack-catch))
(define (stack-catch key thunk handler)
diff --git a/module/ice-9/threads.scm b/module/ice-9/threads.scm
index 292d3c2..f56939d 100644
--- a/module/ice-9/threads.scm
+++ b/module/ice-9/threads.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 1996, 1998, 2001, 2002, 2003, 2006 Free Software
Foundation, Inc.
+;;;; Copyright (C) 1996, 1998, 2001, 2002, 2003, 2006, 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
@@ -196,7 +196,6 @@ of applying P-PROC on ARGLISTS."
threads)))))
(define (thread-handler tag . args)
- (fluid-set! the-last-stack #f)
(let ((n (length args))
(p (current-error-port)))
(display "In thread:" p)
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index 50d9828..d0d65fa 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -1,6 +1,6 @@
;;; installed-scm-file
-;;;; Copyright (C) 1998,1999,2000,2001,2002, 2003, 2006, 2009 Free Software
Foundation, Inc.
+;;;; Copyright (C) 1998,1999,2000,2001,2002, 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
@@ -105,7 +105,6 @@
;; goops-error
;;
(define (goops-error format-string . args)
- (save-stack)
(scm-error 'goops-error #f format-string args '()))
;;
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index f9c11b4..503191f 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -71,8 +71,7 @@
(*debug-input-port*
(or (fluid-ref *debug-input-port*) (current-input-port)))
(*debug-output-port*
- (or (fluid-ref *debug-output-port*) (current-output-port)))
- (the-last-stack #f))
+ (or (fluid-ref *debug-output-port*) (current-output-port))))
(let prompt-loop ()
(let ((exp (prompting-meta-read repl)))
(cond
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-11-112-g37620f3,
Andy Wingo <=